mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-01-17 00:22:10 +00:00
Commit DCMCP transcription as of 2012-06-03; commit initial emulator
module constructors.
This commit is contained in:
Paul Kimpel
parent
146df6b0c9
commit
4ee49653a6
@ -2338,3 +2338,236 @@ ARRAY MAINTBUFFER[*]; 04121950
|
||||
END 04134950
|
||||
ELSE GO TO DC; 04134955
|
||||
END ELSE GO TO X; 04134960
|
||||
END; 04134990
|
||||
IF E = 0 THEN 04135000
|
||||
BEGIN % RECOVERED MASS STORAGE % 04137000
|
||||
MAINTBUFFER[NXDISK:=NXDISK+4 AND 15] 04137100
|
||||
:= -0 & U[2:46:2] & LOCATQUE[S][4:3:5] & 04137110
|
||||
(LOIGENTRY:=LOGENTRY+1)[CTF] & 04137120
|
||||
RDCTABLE[U]{18:1:2]; 04137130
|
||||
IF FINALQUE[S] GTR 0 THEN 04137140
|
||||
BEGIN 04137150
|
||||
MAINTBUFFER[XNDISK]:=(*P(DUP)) & 04137160
|
||||
((M[M[S1:=LOCATQUE[S] INX NOT 2] INX 4]04137170
|
||||
.[13:11] DIV ETRLNG)+1)[9:39:9]; 04137180
|
||||
M[S1].[7:1] := 1; 04137190
|
||||
END; 04137200
|
||||
P(MAINTBUFFER[NXDISK+2]:=IOQUE[S]); 04137202
|
||||
$ SET OMIT = NOT(AUXMEM) 04137203
|
||||
P(NFLAG(M[P])); 04137212
|
||||
P(P&V[1:44:4],[MAINTBUFFER[NXDISK+1]],STD); 04137215
|
||||
MAINTBUFFER[NXDISK+3]:=MAINTBUFFER[U]; 04137220
|
||||
IF (LOGHOLDER INX 0) = 0 THEN 04137230
|
||||
BEGIN 04137240
|
||||
LOGHOLDER.[CF]:=[MAINTBUFFER[NXDISK]]; 04137250
|
||||
INDEPENDENTRUNNER(P(.MAINTLOGGER),0,100); 04137260
|
||||
END ELSE M[LOGHOLDER.[FF]].[CF]:= 04137270
|
||||
[MAINTBUFFER[NXDISK]]; 04137275
|
||||
LOGHOLDER.[FF]:=[MAINTBUFFER[NXDISK]]; 04137280
|
||||
NUMAINTMESS:= NUMAINTMESS+1; 04137290
|
||||
T.[5:8] ~ 0; 04142000
|
||||
GO TO SW; 04142500
|
||||
END;% 04143000
|
||||
IF V = 0 THEN% 04144000
|
||||
$ SET OMIT = NOT(SHAREDISK) 04144099
|
||||
BEGIN % ORIGINAL ERROR ON MASS STORAGE% 04145000
|
||||
TINU[U].[18:2] ~ P(DUP).[18:12]+1;% 04146000
|
||||
MAINTBUFFER[U]:=R&TWO(C)[18:43:4]; 04146100
|
||||
RDCTABLE[U]:=(*P(DUP))&(C-1)[1:46:2]; 04146200
|
||||
V:=129; 04147000
|
||||
$ SET OMIT = NOT(SHAREDISK) 04147399
|
||||
END% 04148000
|
||||
ELSE BEGIN % RECURRENT ERROR ON MASS STORAGE% 04149000
|
||||
P(MAINTBUFFER[U]:=P(DUP,LOD) OR 04150100
|
||||
R&TWO(C)[18:43:4]); 04150200
|
||||
IF (V ~ V+1) > 137 THEN% 04151000
|
||||
BEGIN R:=P; 04151200
|
||||
IF LOCATQUE[S].[9:1] THEN % OLAY I/O 04151220
|
||||
M[LOCATQUE[S]:=R OR IOMASK; 04151230
|
||||
$ SET OMIT = NOT(AUXMEM) 04151235
|
||||
DISKERR: 04151300
|
||||
$ SET OMIT = NOT(DFX) 04151399
|
||||
T.[5:10]:=0; 04151400
|
||||
GO TO DX; 04152600
|
||||
END; 04152800
|
||||
P(DEL); 04152900
|
||||
END;% 04153000
|
||||
UNIT[U] ~ T&V[5:40:8];% 04154000
|
||||
DS:% 04155000
|
||||
CHANNEL[P(TIO)] ~ U;% 04156000
|
||||
P([IOQUE[S]],IIO);% 04157000
|
||||
GO TO EXTERNAL ;% 04158000
|
||||
X: STOP ~ (V!0)|2+1;% 04159000
|
||||
T.[5:13] ~ 32|E+8;% 04160000
|
||||
GO TO TEST; 04161000
|
||||
END; 04161500
|
||||
SW:: GO TO TYPE[T.[1:4]];% 04162000
|
||||
LP: 04163000
|
||||
IF STOP := (T := T&0[16:16:1]).[17:1] THEN 04164000
|
||||
TEST: IF FIRSTWAIT = NEXTWAIT THEN GO TO INCR ELSE% 04165000
|
||||
GO TO NEW ELSE GO TO NOWAIT;% 04166000
|
||||
DK: 04167900
|
||||
IF NOT (I:=IOQUE[S]).[24:1] THEN 04168000
|
||||
IF FINALQUE[S].[24:1] THEN% 04169000
|
||||
$ SET OMIT = DFX 04169090
|
||||
BEGIN 04169100
|
||||
$ SET OMIT = NOT DKBNODFX OR OMIT 04169190
|
||||
$ SET OMIT = DKBNODFX OR OMIT 04170750
|
||||
M[IOQUE[S]:=I&1[24:47:1]]:=*(P(DUP) INX P(0,LNG,XCH)); 04170800
|
||||
$ POP OMIT 04170900
|
||||
GO TO DS; 04171000
|
||||
END ELSE GO TO OK ELSE GO TO OK; 04171200
|
||||
$ POP OMIT 04171250
|
||||
$ SET OMIT = NOT DFX 04171350
|
||||
DC: 04174000
|
||||
$ SET OMIT = NOT(DATACOM ) 04174999
|
||||
04176000
|
||||
$ SET OMIT = DFX 04176899
|
||||
DX: DX1: 04176900
|
||||
$ POP OMIT 04176901
|
||||
OK: IF FIRSTWAIT = NEXTWAIT THEN 04177000
|
||||
NOWAIT: IF (S1 := LOCATQUE[S].[18:15]) LSS @1777 THEN 04178000
|
||||
INITIATEIO(IOQUE[S1],LOCATQUE[S1].[3:5],U)% 04180000
|
||||
ELSE 04181000
|
||||
PROC: T := T&0[16:16:2] 04182000
|
||||
ELSE 04183000
|
||||
BEGIN% 04187000
|
||||
NEW: NEWIO;% 04188000
|
||||
IF STOP THEN GO TO INCR;% 04189000
|
||||
QUP: IF LOCATQUE[S].[FF] GTR @1777 THEN GO TO PROC; 04190000
|
||||
QUEUEUP(U);% 04191000
|
||||
T ~ T&4[13:43:5];% 04192000
|
||||
END;% 04193000
|
||||
INCR: 04194000
|
||||
IF (TIM~CLOCK+P(RTR)-TIM) LSS THEN THEN TIM~0; 04194050
|
||||
IOD:=IOQUE[S]; 04194100
|
||||
IF (U OR 1 )=19 THEN 04194200
|
||||
BEGIN 04194300
|
||||
IF (JUNK:=M[IOD].[5:7])>9 THEN 04194400
|
||||
JUNK:=NEUP.[CF]+(JUNK AND @17); 04194500
|
||||
IF JUNK<NEUP.[FF] THEN 04194550
|
||||
PEUIO[JUNK]:=P(DUP,LOD)+CLOCK+P(RTR)-EUIO[C]; 04194600
|
||||
END; 04194650
|
||||
I~(S1~LOCATQUE[S]).[3:5]; % FIND MIX INDEX 04194700
|
||||
$ SET OMIT = NOT(NEWLOGGING) 04194799
|
||||
IOTIME[I]~(*P(DUP))+TIM; 04195000
|
||||
IF P(.S1,LOD).[10:1] THEN FORGETSPACE(IOD); % NO MEM MESSAGE 04195100
|
||||
IF F!0 THEN 04196200
|
||||
IF STOP THEN 04196400
|
||||
P(T) 04196600
|
||||
ELSE GO TO L1 04196800
|
||||
ELSE BEGIN 04197000
|
||||
RETURNIOSPACE(S); 04199000
|
||||
L1: P(T&P(.L1,LOD)[FTF]); 04201000
|
||||
END; 04202000
|
||||
P([UNIT[U]],STD); 04203000
|
||||
FIN ~ FINALQUE[S] AND NOT MEMORY;% 04205000
|
||||
IF (U OR 1) NEQ 17 THEN 04205012
|
||||
IF IOD.[24:1] THEN% 04206000
|
||||
BEGIN V ~ ABS(IOD.[33:15]-R.[33:15]);% 04207000
|
||||
IF IOD.[8:10] < V THEN% 04208000
|
||||
IF IOD.[23:1] THEN% 04209000
|
||||
V ~ IOD.[8:10];% 04210000
|
||||
IF U < 16 THEN% 04211000
|
||||
IF IOD.[21:2] = 0 THEN% 04212000
|
||||
BEGIN; STREAM(A!0:B~M[S1.[33:15]+V-1]);% 04213000
|
||||
BEGIN SI ~ LOC B;% 04214000
|
||||
IF SC = "~" THEN TALLY ~ 1;% 04215000
|
||||
A ~ TALLTY;% 04216000
|
||||
END;% 04217000
|
||||
V ~ -P+V;% 04218000
|
||||
END;% 04219000
|
||||
IF U ! 30 THEN % NOT DCA 04219100
|
||||
FINISHOFFIO(U);% 04220000
|
||||
END;% 04221000
|
||||
IF E ! 0 THEN% 04222000
|
||||
$ SET OMIT = NOT(SHAREDISK) 04222499
|
||||
BEGIN IF STOP LEQ 1 THEN 04223000
|
||||
BEGIN 04223500
|
||||
INDEPENDENTRUNNER( 04224000
|
||||
P(.DISKORAUXERROR)+((U AND @774) NEQ 16), 04224010
|
||||
R&S[3:43:5],240); 04224100
|
||||
LOCATQUE[S].[11:1]:=1; 04224500
|
||||
END 04224750
|
||||
ELSE IF FIN < 0 THEN P(LOCATQUE[S],R,XCH,~);% 04225000
|
||||
END% 04226000
|
||||
$ SET OMIT = NOT(SHAREDISK) 04226499
|
||||
ELSE BEGIN% 04227000
|
||||
IF FIN < 0 THEN P(R OR IOMASK,LOCATQUE[S],~)% 04228000
|
||||
ELSE 04229000
|
||||
$ SET OMIT = NOT (DATACOM OR DFX OR DKBNODFX) 04229099
|
||||
BEGIN 04229200
|
||||
LOCN ~ [M[LOCATQUE[S]]];% 04230000
|
||||
IOD ~ IOD.[33:15];% 04231000
|
||||
WHILE LOCN[0].[33:15] ! IOD DO% 04232000
|
||||
LOCN ~ 1 INX LOCN;% 04233000
|
||||
LOCN[0] ~ M OR FIN;% 04234000
|
||||
END END;% 04235000
|
||||
IF P1MIX = 0 THEN GO TO NOTHINGTODO;% 04236000
|
||||
IF I = P1MIX THEN GO TO RETURN;% 04237000
|
||||
GO TO INITIATE;% 04238000
|
||||
END IOCOMPLETE;% 04239000
|
||||
SAVE REAL PROCEDURE WAITIO(IOD,MASK,U);% 04240000
|
||||
VALUE MASK,U,IOD;% 04241000
|
||||
REAL MASK,U,IOD;% 04242000
|
||||
BEGIN% 04243000
|
||||
REAL T; 04243100
|
||||
DEFINE OCTADE= DS~3 RESET;3(IF SB THEN DS!SET ELSE 04243200
|
||||
DS~RESET;SKIP SB)#; 04243300
|
||||
IOD ~ NFLAG(P(.IOD,LOC))&TINU[U][3:3:5];% 04244000
|
||||
MASK ~ NOT MASK;% 04245000
|
||||
IOREQUEST(NABS(IOD)&MASK[25:40:8],IOD, 04246000
|
||||
[IOD]&U[12:42:6]);% 04247000
|
||||
IOD ~ IOD&0[25:25:8]&0[19:19:1];% 04248000
|
||||
SLEEP([IOD],IOMASK);% 04249000
|
||||
IF ((WAITIO~IOD.[26:7]) AND MASK AND MAKS.[18:15])!0 THEN 04250000
|
||||
BEGIN 04251000
|
||||
T~SPACE(12); 04251100
|
||||
STREAM(IOD~IOD.[26:7],MASK~(NOT MASK).[41:7], 04251200
|
||||
Z~[TINU[U]],T~T); 04251300
|
||||
BEGIN DS~20 LIT" UNEXP I-O ERROR ON ";SI~Z; 04251400
|
||||
SI~SI+5;DS~3 CHR;DS~8 LIT":RESULT="; 04251500
|
||||
SI~LOC IOD;SI~SI+6;SKIP 3 SB;3(OCTADE); 04251600
|
||||
DS~6 LIT",MASK=" ;SI~SI+6;SKIP 3 SB; 04251700
|
||||
3(OCTADE);DS~2 LIT".~"; 04251800
|
||||
END; 04251900
|
||||
IF P1MIX = 0 THEN BEGIN P(T); PUNT(0) END; 04252000
|
||||
IF NOTERMSET(P1MIX) THEN 04252100
|
||||
BEGIN 04252200
|
||||
TERMINATE(P1MIX&19[18:33:15]); 04252300
|
||||
IF JAR[P1MIX,9].SYSJOBF THEN %SYSTEM JOB 04252500
|
||||
BEGIN 04252600
|
||||
SPOUT(T); 04252700
|
||||
BLASTQ(U); 04252800
|
||||
END ELSE 04252900
|
||||
TERMINALMESSAGE(-T); 04253000
|
||||
END; 04253100
|
||||
END; 04253200
|
||||
END; 04253300
|
||||
REAL PROCEDURE TAPEPARITYRETRY(R,U,KEY);% 04254000
|
||||
VALUE R,U,KEY; REAL R,U,KEY; FORWARD; 04255000
|
||||
REAL PROCEDURE WRITEPARITYREELSWITCH(OIOD,RC); 04255100
|
||||
VALUE OIOD,REC; REAL OIOD,RC; FORWARD; 04255200
|
||||
PROCEDURE DISKORAUXERROR(R); VALUE R; REAL R; 04256000
|
||||
04256200
|
||||
BEGIN 04256400
|
||||
REAL MSCW = -2, 04256600
|
||||
U = +1, 04256800
|
||||
S = +2, 04257000
|
||||
E = +3, 04257200
|
||||
T = +4, 04257400
|
||||
MK = +5, CELL = MK, 04257600
|
||||
IOD = +6, 04257800
|
||||
MIX = +7, 04258000
|
||||
FIN = +8, PARITY= FIN, 04258200
|
||||
KEY1 = +9, 04258400
|
||||
KEY2 = +10, 04258600
|
||||
DISC = +11, 04258800
|
||||
MASK = +12, 04259000
|
||||
AREA = +13, U1 = AREA, 04259200
|
||||
RLST = +14, MSG = RSLT, 04259400
|
||||
PRTMAX = +15, T1 = PRTMAX, 04259600
|
||||
DISKCELL= +16, T2 = DISKCELL, 04259800
|
||||
TERMNATE = +17, 04260000
|
||||
OLAYIO = +18, 04260200
|
||||
DSKADRS = +19; 04260400
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user