diff --git a/SYMBOL/COOL.esp_m b/SYMBOL/COOL.esp_m index 7341d26..da33736 100644 --- a/SYMBOL/COOL.esp_m +++ b/SYMBOL/COOL.esp_m @@ -61,7 +61,7 @@ ARRAY FIRST[17]:=0, 00210000 "STOP0000", 00240000 "ESU00000", 00250000 "USE00000", 00260000 - "DATEO000", 00270000 + "DATE0000", 00270000 "TYPE0000", 00280000 "OPTN0000", 00290000 "DIRECT00", 00300000 @@ -84,7 +84,7 @@ ARRAY FIRST[17]:=0, 00210000 "ONEBREAK", %39, USE ONLY ONE BREAKOUT TAPE 00430000 "AUTOPRNT", %38, AUTOMATICALLY PRINT PBT 00440000 "CLEARWRS", %37, CLEAR WRITE READY STATUS @ TERMINAL 00450000 - "DISCONDC", %36, WRITE DISC, CODE ON TERMINAL 00460000 + "DISCONDC", %36, WRITE DISC. CODE ON TERMINAL 00460000 "CMPLFILE", %35, TYPE WHEN COMPILER FILES OPEN & CLOSE 00470000 "CLOSE000", %34, TYPE FILE CLOSE 00480000 "ERRORMSG", %33, ERROR MSGS WHEN PROGR RECOVERY USED 00490000 @@ -171,21 +171,21 @@ ARRAY FIRST[17]:=0, 00210000 "NO. OF E","SUS TO B","E CHANGE","D FROM "," ",%6901035060 "~~~~~~~~"; 01039000 ARRAY LOADBUTTON[15]~ 01040000 - OCT0441000401570421, % 1 20 01050000 - OCT0157000000104411, % 2 21 01060000 - OCT0211001441310055, % 3 22 01070000 - OCT4155124500004425, % 4 23 01080000 - OCT0060013101600064, % 5 24 01090000 - OCT4441010402530305, % 6 25 01100000 - OCT0100023441310055, % 7 26 01110000 - OCT0062011441310055, % 8 27 01120000 - OCT0066013441310055, % 9 30 01130000 - OCT0072015441310055, % 10 31 01140000 - OCT0076017441310055, % 11 32 01150000 - OCT5140000047700200, % 12 33 01160000 - OCT0441100401004441, % 13 34 01170000 - OCT0253010420527405, % 14 35 01180000 - OCT7405005101002411; % 15 36 01190000 + OCT0441000401570421, % 1 20 01050000 + OCT0157000000104411, % 2 21 01060000 + OCT0211001441310055, % 3 22 01070000 + OCT4155124500004425, % 4 23 01080000 + OCT0060013101600064, % 5 24 01090000 + OCT4441010402530305, % 6 25 01100000 + OCT0100023441310055, % 7 26 01110000 + OCT0062011441310055, % 8 27 01120000 + OCT0066013441310055, % 9 30 01130000 + OCT0072015441310055, % 10 31 01140000 + OCT0076017441310055, % 11 32 01150000 + OCT5140000047700200, % 12 33 01160000 + OCT0441100401004441, % 13 34 01170000 + OCT0253010420527405, % 14 35 01180000 + OCT7405005101002411; % 15 36 01190000 BOOLEAN STREAM PROCEDURE OK(B); VALUE B; 01195000 BEGIN SI:=B; L: IF SC=" " THEN BEGIN SI:=SI+1; GO L END; 01195100 IF SC="O" THEN SI:=SI+1 ELSE GO AWAY; 01195200 @@ -260,7 +260,7 @@ XXIT: SV:=SI; SI:=LOC SV; DI:=LSTADR; DS:=WDS; 01294000 BEGIN T ~ SI; DI ~ T; DS ~ LIT " "; 01390000 JUMP OUT TO X 01400000 END;); 01410000 - E: TALLY ~ 0; GO TO X; 01420000 + E: TALLY ~ 0; GO TO X; 01420000 END; 01430000 IF SC = ALPHA THEN BEGIN 01440000 17(SI~SI+1; TALLY ~ TALLY+1; 01450000 @@ -478,7 +478,7 @@ SAVE PROCEDURE REMOVER(L); VALUE L; INTEGER L; 02690000 :@31:P(@16,LOD,RTN); % I/O #3 FINISHED 02880000 :@32:P(@17,LOD,RTN); % I/O #4 FINISHED 02890000 :@34:GO TO TIMER; % INQUIRY REQUEST 02900000 -%**********************CODE STARTS HERE************************** 02910000 +%**********************CODE STARTS HERE*************************** 02910000 START:*: P(64,STS); 02920000 DISKTOP ~ -1; 02930000 NUMWDS := 30; 02940000 @@ -589,55 +589,55 @@ SYSTEMS: SPECIAL ("="); 03400000 % 03470000 DIRECTORYTOP: 03480000 $ SET OMIT = NOT(COOL) 03480050 - IF NOT FIRSTCARD THEN 03480100 - BEGIN 03480200 - SPOUT(27); 03480300 - GO BOMBOUT; 03480400 - END; 03480500 + IF NOT FIRSTCARD THEN 03480100 + BEGIN 03480200 + SPOUT(27); 03480300 + GO BOMBOUT; 03480400 + END; 03480500 $ POP OMIT 03480501 - DISKTOP:=SCANUMBER; 03480600 - J ~ DISKTOP+19; 03490000 + DISKTOP:=SCANUMBER; 03480600 + J ~ DISKTOP+19; 03490000 $ SET OMIT = NOT(COOL) 03500000 - DISKIO(-(DISKTOP-SYSNO),INFO); 03510000 - FIRSTCARD:=FALSE; 03510100 + DISKIO(-(DISKTOP-SYSNO),INFO); 03510000 + FIRSTCARD:=FALSE; 03510100 $ POP OMIT 03510101 - GO TO READCARD; 03520000 + GO TO READCARD; 03520000 % 03530000 -DIRECT: INFO[4] ~ SHAR[4]~SCANUMBER; 03540000 - GO TO READCARD; 03550000 +DIRECT: INFO[4] ~ SHAR[4]~SCANUMBER; 03540000 + GO TO READCARD; 03550000 % 03560000 -FENCE: SPECIAL("="); 03570000 - INFO[19]~@100000-(P(DUP)-SCANUMBER) DIV 1024|1024; 03580000 - IF INFO[19]<@20000 THEN INFO[19]~@20000 ELSE 03590000 - IF INFO[19]>@70000 THEN INFO[19]~@70000; 03600000 - GO TO READCARD; 03610000 +FENCE: SPECIAL("="); 03570000 + INFO[19]~@100000-(P(DUP)-SCANUMBER) DIV 1024|1024; 03580000 + IF INFO[19]<@20000 THEN INFO[19]~@20000 ELSE 03590000 + IF INFO[19]>@70000 THEN INFO[19]~@70000; 03600000 + GO TO READCARD; 03610000 % 03620000 -ESU: ESUTEMP:=SCANUMBER; 03630000 - SPECIAL("%"); 03635000 - GO READCARD; 03640000 +ESU: ESUTEMP:=SCANUMBER; 03630000 + SPECIAL("%"); 03635000 + GO READCARD; 03640000 % 03650000 - DATE: MN ~ SCANUMBER; 03660000 - IF MN < 1 OR MN > 12 THEN GO TO ERROR; 03670000 - SPECIAL("/"); 03680000 - DY ~ SCANUMBER; 03690000 - SPECIAL("/"); 03700000 - YR ~ SCANUMBER; 03710000 - DY ~ MONTHS[MN-1]+DY; 03720000 - IF YR MOD 4 = 0 AND (YR MOD 100 ! 0 OR YR MOD 400 = 0) 03730000 - AND MN } 3 THEN DY ~ DY+1; 03740000 - DY ~ YR MOD 100 | 1000+DY; 03750000 - STREAM(D~[DY],I~[INFO[1]]); 03760000 - BEGIN SI ~ D; DS ~ 8 DEC END; 03770000 - GO READCARD; 03780000 + DATE: MN ~ SCANUMBER; 03660000 + IF MN < 1 OR MN > 12 THEN GO TO ERROR; 03670000 + SPECIAL("/"); 03680000 + DY ~ SCANUMBER; 03690000 + SPECIAL("/"); 03700000 + YR ~ SCANUMBER; 03710000 + DY ~ MONTHS[MN-1]+DY; 03720000 + IF YR MOD 4 = 0 AND (YR MOD 100 ! 0 OR YR MOD 400 = 0) 03730000 + AND MN } 3 THEN DY ~ DY+1; 03740000 + DY ~ YR MOD 100 | 1000+DY; 03750000 + STREAM(D~[DY],I~[INFO[1]]); 03760000 + BEGIN SI ~ D; DS ~ 8 DEC END; 03770000 + GO READCARD; 03780000 % 03810000 -USE: IF TYPE NEQ 8 THEN XY:=SCANWORD(OPTIONS) 03820000 - ELSE XY:=48-SCANUMBER; 03820100 - IF XY=0 THEN GO ERROR; 03830000 - TREAL:=1; 03880000 - FOR K:=2 STEP 1 UNTIL XY DO TREAL:=0&TREAL[1:2:46]; 03890000 - INFO[0]:=INFO[0] OR TREAL; 03900000 - SPECIAL("%"); 03905000 - GO READCARD; 03910000 +USE: IF TYPE NEQ 8 THEN XY:=SCANWORD(OPTIONS) 03820000 + ELSE XY:=48-SCANUMBER; 03820100 + IF XY=0 THEN GO ERROR; 03830000 + TREAL:=1; 03880000 + FOR K:=2 STEP 1 UNTIL XY DO TREAL:=0&TREAL[1:2:46]; 03890000 + INFO[0]:=INFO[0] OR TREAL; 03900000 + SPECIAL("%"); 03905000 + GO READCARD; 03910000 % 03920000 FILE: 03930000 $ SET OMIT = NOT(COOL) 03940000 @@ -987,15 +987,15 @@ ARND: 05070450 IO(MESSAGE INX 45,IF P1IO THEN @540100004000000 05070570 ELSE @640100004000000); 05070580 END; 05070590 -%************* END RECONSTRUCTION CODE ********** 05070600 +%********** END RECONSTRUCTION CODE ********** 05070600 REMOVED: 05071000 - END; 05080000 - DISKIO(J,LABELS); 05090000 - END; 05100000 - LABELS[0]~@114; 05110000 + END; 05080000 + DISKIO(J,LABELS); 05090000 + END; 05100000 + LABELS[0]~@114; 05110000 QUIT: 05120000 - IF P1IO OR P2IO THEN IO(0,@440004000100000&(IF P1IO THEN 05120010 - @1 ELSE @2)[4:46:2]); 05120020 + IF P1IO OR P2IO THEN IO(0,@440004000100000&(IF P1IO THEN 05120010 + @1 ELSE @2)[4:46:2]); 05120020 $ POP OMIT 05120050 DISKIO(J,LABELS); 05130000 FOR I ~ 0 STEP 1 UNTIL 29 DO INFO[I] ~ 0; 05160000