github.com/pkimpel.retro-b5500
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-b5500.git synced 2026-02-18 05:44:04 +00:00
Code Releases Activity

Commit DCMCP transcription as of 2013-01-18.

Browse Source
This commit is contained in:
paul
2013-01-18 18:35:29 +00:00
parent 1594e3367a
commit a4ba006748
1 changed files with 32 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
SYMBOL/DCMCP.esp_m
View File

@@ -19719,3 +19719,35 @@ FOG: FORGETSPACE(FRONT); 22350000
END; 22424500
END;% 22425000
END;% 22426000
INTRNSC[MOM.[8:10]] ~ (*P(DUP))&MOM[FTC];% 22427000
FORGETSPACE(FRONT);% 22428000
P(AWAKEN,DEL,TRUE); 22429000
EXIT: 22429100
$ SET OMIT = NOT(NEWLOGGING) 22429199
$ SET OMIT = NOT(WORKSET) 22429210
IF P1MIX NEQ 0 THEN 22429220
IKATTUNEPO1NUX]:=(*P(DUP))+(CLOCK+P(RTR)-MCPTEMP); 22429230
$ POP OMIT % WORKSET 22429231
P(RTN); 22429300
END OF OVERLAY;% REVISION OF MAY 31, 1967... 22430000
PROCEDURE CHANGEABORT(X); VALUE X; REAL X;% 22900000
BEGIN ARRAY A[*];, B[*];% 22901000
REAL J, T;% 22902000
22903000
A~[M[SPACE(210)]]&210[8:38:10]; 22904000
SLEEP([TOGLE], ABORTMASK);% 22905000
LOCKTOG(ABORTMASK); 22906000
DISKWAIT(-A.[CF],210,ESPDISKTOP+1); 22907000
WHILE (A[0]:=XCLOCK+P(RTR)) GEQ WITCHINGHOUR DO MIDNIGHT; 22909000
A[1] ~ DATE;% 22910000
J ~ 3|P1MIX;% 22911000
A[J] ~ A[J+1] ~ A[J+2] ~ 0;% 22912000
B~JARROW[P1MIX]; %CANT WATCH JAR AND LOSE CONTROL, TOO. 22913000
A[J+90] ~ B[0]; 22914000
A[J+91] ~ B[1]; 22915000
A[J+92] ~ X&B[5][1:25:23]; 22916000
A[180+P1MIX]~USERCODE[P1MIX]; 22917000
DISKWAIT(A.[CF],210,ESPDISKTOP+1); 22918000
UNLOCKTOG(ABORTMASK); 22919000
FORGETSPACE(A);% 22920000
END;% 22921000