mirror of
https://github.com/pkimpel/retro-b5500.git
synced 2026-02-12 03:07:30 +00:00
Commit DCMCP transcription as of 2012-11-29.
This commit is contained in:
paul
@@ -16609,7 +16609,7 @@ WINDUP: 20189900
|
||||
END; 20197200
|
||||
$ SET OMIT = NOT(NEWLOGGING) 20197300
|
||||
SAVEMIX(MIX); 20197600
|
||||
PRYOR(MIX) := S[18]; % PRIORITY IN SHEET[18]; 20198500
|
||||
PRYOR[MIX] := S[18]; % PRIORITY IN SHEET[18]; 20198500
|
||||
IF F=0 THEN % SHEET ENTRY NOT PASSED AS A PARAMETER 20199200
|
||||
BEGIN 20199300
|
||||
TYPE := (IF S[2].[1:1] THEN STARTING ELSE CONTINUEING); 20199400
|
||||
@@ -16627,3 +16627,117 @@ QUIT: 20210000
|
||||
IF LBL NEQ 0 THEN FORGETSPACE(LBL); % SPACE FOR LABEL EQN.ENTRIES 20210700
|
||||
KILL([MSCW]); 20211400
|
||||
END SELECTION ROUTINE; 20211600
|
||||
DEFINE% 20212000
|
||||
COMMA = 10#,% 20213000
|
||||
EQUAL = 11#,% 20214000
|
||||
PERIO = 12#,% 20215000
|
||||
SLASH = 13#,% 20216000
|
||||
QUEST = 14#,% 20217000
|
||||
POUND = 15#,% %LP 1 20217500
|
||||
RB = 16#,% RIGHT BRACKET FOR EXCEPT LIST 20217600
|
||||
LB = 17#,% LEFT " " " " 20217700
|
||||
SPECI = 19#,% 20218000
|
||||
IDENT = 20#,% 20219000
|
||||
UNLOCKV = 21#,% SWITCH LABEL (FUNC) IN 20219050
|
||||
USEV = 22#,% SECURITYMAINT USES THE ORDER OF 20219060
|
||||
LOCKV = 23#,% VALUES OF "UNLOCKV" THROUGH "OPEN". 20219100
|
||||
FREE = 24#, 20219200
|
||||
OPEN = 25#, 20219300
|
||||
PACKET = 26#, 20219310
|
||||
USER = 27#, 20219400
|
||||
RUNV = 28#, 20219500
|
||||
COMPI = 29#, 20220000
|
||||
EXECU = 30#, 20221000
|
||||
COPYN = 31#, 20221500
|
||||
DUMP = 32#, 20222000
|
||||
UNLOAD = 33#, 20223000
|
||||
ADDV = 34#, 20224000
|
||||
LOAD = 35#, 20224500
|
||||
REMOV = 36#, 20225000
|
||||
CHANG = 37#, 20225500
|
||||
ENDFI = 39#,% 20226000
|
||||
$ SET OMIT = NOT(PACKETS) 20226099
|
||||
WAITV = 40#,% 20226100
|
||||
$ POP OMIT 20226101
|
||||
DATAV = 41#,% 20226500
|
||||
LABEV = 42#,% 20227000
|
||||
SETV = 43#,% 20228000
|
||||
RESETV = 44#,% 20228100
|
||||
FILEV = 47#,% -20228200
|
||||
EXPIRED = 48#,% -20228300
|
||||
ACCESSD = 49#,% -20228400
|
||||
PROCE = 50#,% A STORE NEARE THE END OF PCC 20229000
|
||||
IO = 51#,% MAKES USE OF THE ORDER AND VALUES 20230000
|
||||
PRIOR = 52#,% OF "PROCE" THRU "SAVEV". 20231000
|
||||
COMMONV = 53#,% 20232000
|
||||
COREV = 54#,% 20232500
|
||||
STACK = 55#,% 20233000
|
||||
SAVEV = 56#,% (SAVE #DAYS ON COMPILE TO LIBRARY) 20233500
|
||||
ALGOL = 60#,% 20234000
|
||||
FORTRAN = 62#,% -20235000
|
||||
TSPOL = 63#,% -20235050
|
||||
BASIC = 64#,% 20235075
|
||||
COBOL68 = 65#,% -20235080
|
||||
WITH = 66#,% -20235099
|
||||
COBOL = 67#,% -20235100
|
||||
LIBRA = 68#,% 20236000
|
||||
SYNTA = 69#,% 20237000
|
||||
FROM = 70#,% 20238000
|
||||
TOV = 71#,% 20239000
|
||||
ONV = 72#,% %148-20239100
|
||||
FORM = 75#,% SWITCH D(PCC)"FORM"-"SPECIAL- %846-20240000
|
||||
LINES66 = 77#, % 66 LINES PER PAGE %724-20240020
|
||||
NO = 79#,% 20241000
|
||||
DISK = 80#,% 20242000
|
||||
TAPE = 81#,% 20243000
|
||||
PUNCH = 82#,% 20244000
|
||||
PRINT = 82#,% 20245000
|
||||
BACK = 83#,% 20246000
|
||||
SPECIAL = 90#, 20247000
|
||||
REMOTE = 89#, 20247500
|
||||
EU = 91#,% -20247600
|
||||
SLOW = 92#,% -20247700
|
||||
B6500 = 93#,% -20247800
|
||||
FAST = 94#, 20247900
|
||||
MAXV = 96#, 20247920
|
||||
FREEF = 97#,% 20247930
|
||||
FIXED = 98#, 20247940
|
||||
SENSE = 100#, 20247950
|
||||
LATESTV = 101#, 20247960
|
||||
EXCEPT = 102#, 20247970
|
||||
AS = 103#, 20247980
|
||||
NOHASH = 104#, 20247990
|
||||
PAPER = 84#;% 20248000
|
||||
COMMENT RESWDS CONTAINS RESERVED WORDS FOR CONTROL CARDS;% 20249000
|
||||
DEFINE DECLARECCVARIABLES = 20288000
|
||||
REAL MSCW = -2, 20288100
|
||||
CARD = MSCW+1, MYMSCW = CARD, 20288105
|
||||
RCW = +0, 20288110
|
||||
PROCVAL = RCW+1, %IN CASE OF TYPED PROCEDURES 20288115
|
||||
A = PROCVAL+1, T = A, 20288120
|
||||
CADDR = A+1, SFID = CADDR, 20288125
|
||||
CARDLOC = CADDR+1, 20288130
|
||||
CDEX = CARDLOC+1, SDEX = CDEX, 20288135
|
||||
CMPLR = CDEX+1, 20288140
|
||||
ON = CMPLR+1, 20288150
|
||||
KOUNT = CN+1, 20288155
|
||||
LASTSCAN = KOUNT+1, 20288165
|
||||
LIBNO = LASTSCAN+1, 20288170
|
||||
N1 = LIBNO+1, 20288175
|
||||
N2 = N1+1, 20288185
|
||||
N3 = N2+1, 20288190
|
||||
N4 = N3+1, U = N4, 20288195
|
||||
OPTN = N4+1, 20288200
|
||||
OPTNN = OPTN+1, 20288205
|
||||
PADDR = OPTNN+1, SFH = PADDR, 20288210
|
||||
PDEX = PADDR+1, SMID = PDEX, 20288215
|
||||
PPCPROCESS = PDEX+1, 20288220
|
||||
SOURCE = PPCPROCESS+1, 20288225
|
||||
SPOUTUNIT = SOURCE+1, 20288240
|
||||
ST = SPOUTUNIT+1, 20288245
|
||||
T1 = ST+1, 20288250
|
||||
UNITNO = T1+1, 20288255
|
||||
USERID = UNITNO+1, 20288260
|
||||
ARRAY ACCUM = USERID+1[*], 20288265
|
||||
CEQN = ACCUM+1[*], 20288270
|
||||
CMM = CEQN+1[*], 20288275
|
||||
|
||||
Reference in New Issue
Block a user