mirror of
https://github.com/pkimpel/retro-b5500.git
synced 2026-02-11 10:55:09 +00:00
Correct indentation and whitespace in Mark XIV SYMBOL/COOL transcription.
This commit is contained in:
paul.kimpel@digm.com
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user