From 44dc63133ef5d39e8c269d11bb1826ee9104b777 Mon Sep 17 00:00:00 2001 From: Paul Kimpel Date: Thu, 21 Nov 2013 04:30:48 +0000 Subject: [PATCH] Commit Mark XVI DCMCP transcription as of 2013-11-19. --- Mark-XVI/SYMBOL/DCMCP.esp_m | 117 ++++++++++++++++++++++++++++++++++++ 1 file changed, 117 insertions(+) diff --git a/Mark-XVI/SYMBOL/DCMCP.esp_m b/Mark-XVI/SYMBOL/DCMCP.esp_m index 1b07aa9..6a11437 100644 --- a/Mark-XVI/SYMBOL/DCMCP.esp_m +++ b/Mark-XVI/SYMBOL/DCMCP.esp_m @@ -23810,3 +23810,120 @@ AGAIN: P(DIRECTORYSEARCH(-(IF I THEN P(PUD) ELSE P(PBD)),D,14), 38608200 IF P OR 1 THEN %105-38608920 BEGIN PBCOUNT:=PBCOUNT+1; 38609000 $ POP OMIT 38609010 + IF AUTOPRINT 38609100 + $ SET OMIT = NOT RJE 38609190 + THEN P(PRINTORPUNCHWAIT(R&1[32:32:16],I 38609300 + $ SET OMIT = NOT RJE 38609390 + 0, DEL); 38609500 + $ SET OMIT = NOT PACKETS 38609590 + END; 38609600 + $ POP OMIT 38609610 +ZERODKADDR: %175-38609700 + $ SET OMIT = PACKETS 38609999 + FILEMESSAGE((IF I THEN P(PUD) ELSE P(PBD))&R[24:6:24], 38610100 + ("REL ")&R[30:30:18],MID,FID, 38610200 + FIB[7],0,0,(PBDREL OR CLOSEMESS)); 38610250 + FORGETSPACE(FIB[14].[3:15]); FIB[14].[3:15]:=0; 38610600 + END ELSE 38622000 +EOT: BEGIN T~@1737000000000000; 38623000 + J~WAITIO([T],@40,U)!0 OR J; 38624000 + I := SPACE(8); 38625000 + STREAM(PN:=TYPE GEQ 20,D:=0,I); 38626000 + BEGIN 38626100 + DS:=24LIT" LABEL 0PBTMCP 0BACK-UP"; 38626200 + PN(D:=DI; DI:=DI-14; DS:=2LIT"UT"; DI:=D); 38626300 + 20(DS:=2LIT" "); 38626400 + END; 38626500 + IF NOT UNLABELED THEN M[I+4]~M[M[ALPHA-2] INX 4].[42:6]; 38628000 + ,[I+3]~T1; % MARK ENDING TAPE LABEL FOR MULTI-REEL COND. 38628100 + J~WAITIO(I&8[8:38:10]&5[21:45:3],@40,U)!0 OR J;% 38629000 + FORGETSPACE(I);% 38630000 + FOR I~0 STEP 1 UNTIL 1 DO% 38631000 + P(WAITIO(@1000000340000005,@40,U),DEL);% 38632000 + IF (TWO(U) AND SAVEWORD)!0 THEN% 38633000 + SETNOTINUSE(U,0) ELSE 38634000 +BEGIN% 38635000 + RDCTABLE[U]~(*P(DUP))&0[8:8:6]&R[14:38:10]; 38637000 + PRNTABLE[U].[15:15]~0; 38638000 + RRRMECH:=NOT TWO(U) AND RRRMECH; 38638500 + IF J THEN SETNOTINUSE(U,0) ELSE LABELTABLE[U].[1:5]~1; %717-38640000 + END; END; 38641000 +STATE.[FF]~0; 38642000 + GO CLOSEOUT;% 38643000 +PBD::: "PBD "; 38644000 +PUD::: "PUD "; 38644500 +CLOSEOUT: 38645000 + P(P&RCW[CTC],0,RDS,0,XCH,P&P[CTC],STF); 38646000 +END BACK CLOSE; 38647000 +PROCEDURE OTHERCLOSE(ALPHA) VALUE ALPHA; INTEGER ALPHA;% 38648000 +BEGIN REAL RCW=+0,MSCW=-2; 38649000 + ARRAY FIB=+1[*],FPB=+2[*],HEADER=+3[*];% 38650000 +%%% DONT ADD ANY DECLARATIONS BETWEEN "HEADER" AND "KIND" %%% WCP 38651000 + INTEGER KIND=+4,NBUFS=+5,U=+6,BLEN=+7,CODE=+8, 38652000 + UNLABELED=+9,COBOL=+10,I=+11,J=+12, 38653000 + ENUM=+13; 38654000 + REAL MID=+14,FID=+15,R=+16,D=+17,C=+18,FORMS=+19,STATE=+20; 38655000 + REAL STA=+21;% 38655100 + REAL T1=+22,T2=+23,T3=+24,IOD=+25;% 38656000 + ARRAY SEG0=+26[*],SKEL=+27[*]; 38657000 + REAL T=+28,ACCESS=+29;% 38658000 + BOOLEAN COMPGO=+30; 38659000 + LABEL PX; %905-38660000 + LABEL CR,LP,MT,CLOSED,DK,SP,CP,BKUP,PP,PR,DC,CD,CC; 38661000 + SWITCH SW~CR,LP,MT,CLOSED,DK,SP,CP,BKUP,PP,PR,DC,CD,BKUP; 38662000 + LABEL EOF,ON,ONE,CLEANUP;% 38663000 + LABEL EOD; 38664000 + SUBROUTINE COOLOFF;% 38665000 + BEGIN FOR I~0 STEP 1 UNTIL NBUFS-1 DO% 38666000 + BEGIN IF NOT M[ALPHA+I].[19:1] THEN% 38667000 + SLEEP([M[ALPHA+I]],IOMASK);% 38668000 + IF KIND!4 THEN 38669000 + IF M[ALPHA+I].[27:1] THEN GO TO EOF;% 38670000 + END;% 38671000 +EOF: END COOLOFF;% 38672000 + DEFINE REW=CODE.[47:1]#,% 38674000 + REL=CODE.[46:1'#,% 38675000 + TIME=CODE.[45:1]#,% 38676000 + LOCK=NOT CODE.[44:1]#,% 38677000 + PURGE=NOT CODE.[43:1]#;% 38678000 + SUBROUTINE EMPTY;% 38680000 + IF FIB[17]T) AND (I{(T_BLEN+1)) THEN GO ON;% 38704000 + T~M[T].[18:15]-2;% 38705000 + END;% 38706000 + ON: MOVE(10,T+2,M[ALPHA-2]);% 38707000 + END;% 38708000 + IF JAR[P1MIX,0]<0 THEN% 38709000 + IF PRT[P1MIX,@25]!0 THEN% 38710000 +ONE: BEGIN STREAM(I: F~"ENDPACK", D~M[ALPHA-2]);% 38711000 + BEGIN SI~D;% 38712000 + L: SI~SI+1; IF SC=" " THEN GO TO L;% 38713000 + DI~LOC E; DI~DI+1; 38714000 + IF 3 SC=DC THEN TALLY~1; 38715000 + $ SET OMIT = NOT(PACKETS) 38715099 + IF TOGGLE THEN ELSE 38715100 + BEGIN SI~SI-3; IF 4 SC=DC THEN TALLY~1; END; 38715200 + $ POP OMIT 38715201 + I~TALLY;% 38716000 + END;% 38717000 + IF NOT P THEN% 38718000