diff --git a/SYMBOL/DCMCP.esp_m b/SYMBOL/DCMCP.esp_m index 68c3267..f8f71be 100644 --- a/SYMBOL/DCMCP.esp_m +++ b/SYMBOL/DCMCP.esp_m @@ -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