LEX 'HMSLEX' TITLE HMS *** UTILITIES *** 01/05/1985 CON(2) 113 CON(2) 22 CON(2) 25 CON(5) 0 NIBHEX F REL(4) 1+(TXTB) CON(4) 0 CON(5) 0 CON(3) (TXT1)-(TXTB) REL(5) HMS+e CON(1) 15 CON(3) (TXT2)-(TXTB) REL(5) HMS-e CON(1) 15 CON(3) (TXT3)-(TXTB) REL(5) HMSe CON(1) 15 CON(3) (TXT4)-(TXTB) REL(5) HRe CON(1) 15 TXTB TXT1 CON(1) 7 NIBASC 'HMS+' CON(2) 22 TXT2 CON(1) 7 NIBASC 'HMS-' CON(2) 23 TXT3 CON(1) 5 NIBASC 'HMS' CON(2) 24 TXT4 CON(1) 3 NIBASC 'HR' CON(2) 25 TXTE NIBHEX 1FF AD2-15 EQU #0C363 DV2-15 EQU #0C4AC EXAB2 EQU #0D40E POP1R EQU #0E8FD SPLITA EQU #0C6BF STAB1 EQU #0D3D9 CLRFRC EQU #0C6F4 STAB2 EQU #0D400 RCCD1 EQU #0D3F5 STCD2 EQU #0D427 RCCD2 EQU #0D41C uRES12 EQU #0C994 SB15S EQU #0E19A FNRTN4 EQU #0F238 MP2-15 EQU #0C43A FUNCR0 EQU #2F89B FUNCR1 EQU #2F8AB NIBHEX 8822 HMS+e ST=1 0 GOSUB HRs GOSUB SAVEX GOSUB HRs GOSUB RESTRY GOSBVL AD2-15 HJ GOSUB INTXs ST=0 0 GOTO HMSs NIBHEX 8822 HMS-e ST=1 0 GOSUB HRs GOSUB SAVEX GOSUB HRs GOSUB RESTRY GOSBVL SB15S GONC HJ NIBHEX 811 HMSe ST=0 0 GOSUB INTX HMSs GOSUB Y=60 GOSUB MM.SS C=0 W P= 14 LC(1) 6 D=C W C=C-1 A GOSBVL MP2-15 GOSBVL RCCD2 GOSBVL AD2-15 GOSUB Y=100 GOSBVL DV2-15 GOTO HD NIBHEX 811 HRe ST=0 0 HRs GOSUB INTX GOSUB Y=100 GOSUB MM.SS C=0 W P= 13 LCHEX 36 D=C W C=C+1 A GOSBVL DV2-15 GOSBVL EXAB2 GOSUB Y=60 GOSBVL DV2-15 GOSBVL RCCD2 GOSBVL AD2-15 HD GOSBVL RCCD1 GOSBVL AD2-15 ?ST=1 0 RTNYES XM=0 GOSBVL uRES12 GOVLNG FNRTN4 INTX GOSBVL POP1R GOSBVL SPLITA INTXs GOSBVL STAB1 GOSBVL CLRFRC GOSBVL RCCD1 GOSBVL STAB1 ADCHSX ?A=0 S GOYES SA- A=0 S GONC AD SA- A=A-1 S AD GOSBVL AD2-15 RTNCC Y=100 C=0 W P= 14 LC(1) 1 D=C W C=C+1 A C=C+1 A RTN MM.SS GOSBVL MP2-15 GOSBVL STAB2 GOSBVL CLRFRC GOSBVL RCCD2 GOSBVL STAB2 GOSUB ADCHSX RTN Y=60 C=0 W P= 14 LC(1) 6 D=C W C=C+1 A RTN RESTRY CD1EX R0=C D1=(5) FUNCR1 C=DAT1 W D=C W D1=D1- 16 C=DAT1 W CR0EX D1=C C=R0 RTN SAVEX CD1EX D1=(5) FUNCR0 DAT1=A W D1=D1+ 16 A=B W DAT1=A W D1=C D1=D1+ 16 RTN END