github.com/pkimpel.retro-b5500
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-b5500.git synced 2026-02-11 10:55:09 +00:00
Code Releases Activity

Fix serious partial-word typo in ESPOL at 05252000 and ESPOLXEM at 23075000; fix other miscellaneous non-critical typos in ESPOL and ESPOLXEM.

Browse Source 
Change compilation $ options in KERNEL.
This commit is contained in:
paul.kimpel@digm.com
2013-01-28 14:22:41 +00:00
parent 3282dde3eb
commit 85a7419cf1
3 changed files with 163 additions and 161 deletions
Download Patch File Download Diff File Expand all files Collapse all files

215
SYMBOL/ESPOL.alg_m
View File

@@ -48,7 +48,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00002000
011 PROCEDUREDEC: VALUE PART NOT ENDED BY SEMICOLON. 00026000
012 PROCEDUREDEC: MISSING OR ILLEGAL SPECIFICATION 00027000
PART. 00028000
013 PROCEDUREDEC: OWN USED IS ARRAY SPECIFICATION. 00029000
013 PROCEDUREDEC: OWN USED IN ARRAY SPECIFICATION. 00029000
014 PROCEDUREDEC: SAVE USED IN ARRAY SPECIFICATION. 00030000
015 BLOCK: DECLARATION PRECEDED BY ILLEGAL DECLARATOR. 00031000
016 ARRAYDEC: ARRAY ID IN DECLARATION NOT FOLLOWED 00032000
@@ -97,8 +97,8 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00002000
054 ARRAYDEC: FILL PART OF SAVE ARRAY DEC LONGER THAN SIZE 00069540
056 ARRAYDEC: ILLEGAL DIMENSION INDICATOR IN ARRAY DEC 00069560
057 SEGMENTSTART:SAVE STORAGE NOT ALLOWED WITH INTRINSIC OPTION 00069570
098 IOSTMT: ILLEGAL SPECIFIER IN SCOPE STMT: MUST BE }15. 00069580
099 INLINE: EXTRA : IN STREAM HEAD. 00069590
098 IOSTMT: ILLEGAL SPECIFIER IN SCOPE STMT: MUST BE }15. 00069980
099 INLINE: EXTRA : IN STREAM HEAD. 00069990
100 ANYWHERE: UNDECLARED IDENTIFIER. 00070000
101 CHECKER: AN ATTEMPT HAS BEEN MADE TO ADDRESS AN 00071000
IDENTIFIER WHICH IS LOCAL TO ONE PROCEDURE AND GLOBAL00072000
@@ -113,7 +113,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00002000
107 BEXP: THE EXPRESSION IS NOT OF BOOLEAN TYPE. 00081000
108 EXPRSS: A RELATION MAY NOT HAVE CONDITIONAL EXPRESSIONS 00082000
AS THE ARITHMETIC EXPRESSIONS. 00083000
109 BOOSEC,SIMBOO, AND BOOCOMP: THE PRIMARY IS NOT BOOLEAN. 00084000
109 BOOSEC,SIMPBOO, AND BOOCOMP: THE PRIMARY IS NOT BOOLEAN.00084000
110 BOOCOMP: A NON-BOOLEAN OPERATOR OCCURS IN A BOOLEAN 00085000
EXPRESSION. 00086000
111 BOOPRIM: NO EXPRESSION (ARITHMETIC, BOOLEAN, OR DESIGNA- 00087000
@@ -130,7 +130,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00002000
118 BANA: MISSING RIGHT BRAKET. 00098000
119 COMPOUNDTAIL: MISSING SEMICOLON OR END. 00099000
120 COMPOUNDTAIL: MISSING END. 00100000
121 ACTUALPARAPART: AN INDEXED FILE MAY BE PASSED BY NAME 00101000
121 ACTUALPARAPART: AN INDEXED FILE MAY BE PASSED BY NAME 00101000
ONLY AND ONLY TO A STREAM PROCEDURE - THE STREAM 00102000
PROCEDURE MAY NOT DO A RELEASE ON THIS TYPE PARA- 00103000
METER. 00104000
@@ -187,7 +187,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00002000
155 IFEXP: MISSING ELSE 00155000
156 LISTELEMENT: A DESIGNATIONAL EXPRESSION MAY NOT BE A LIST00156000
ELEMENT. 00157000
157 LISTELEMENT: A ROW DESIGNATOR MAY NOT BE A LIST ELEMENT. 00158000
157 LISTELEMENT: A ROW DESIGNATOR MAY NOT BE A LIST ELEMENT 00158000
158 LISTELEMENT: MISSING RIGHT BRAKET IN GROUP OF ELEMENTS 00159000
159 PROCSTMT: ILLEGAL USE OF PROCEDURE OR FUNCTION IDENTIFIER00160000
160 PURGE: DECLARED LABEL DOES NOT OCCUR. 00161000
@@ -208,7 +208,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00002000
208 SUBSCRIPTED VARIABLE: WRONG NUMBER OF SUBSCRIPTS. 00176000
209 SUBSCRIPTED VARIABLE: PARTIAL WORD DESIGNATOR NOT LEFT- 00177000
MOST IN A LEFT PART LIST. 00178000
210 SUBSCRIPTED VARIABLE: MISSING , OR ~ . 00179000
210 SUBSCRIPTED VARIABLE: MISSING . OR ~ . 00179000
211 VARIABLE: PROCEDURE ID USED OUTSIDE OF SCOPE IN LEFT PART.00180000
250 STREAM STMT:ILLEGAL STREAM STATEMENT. 00181000
251 ANY STREAM STMT PROCEDURE: MISSING ~. 00182000
@@ -232,7 +232,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00002000
266 IFS: MISSING THEN INIF STATEMENT. 00200000
267 FREDFIX: THERE ARE GO TO STATEMENTS IN WHICH THE LABEL IS 00201000
UNDEFINED. 00202000
268 EMITC: A REPEAT INDEX }64 WAS SPECIFIED OR TOO MANY 00203000
268 EMITC: A REPEAT INDEX } 64 WAS SPECIFIED OR TOO MANY 00203000
FORMAL PARAMETERS,LOCALS AND LABELS. 00204000
269 TABLE: A CONSTANT IS SPECIFIED WHICH IS TOO LARGE 00205000
OR TOO SMALL. 00206000
@@ -354,13 +354,13 @@ BEGIN COMMENT OUTERMOST BLOCK; 00500000
INTEGER ERRORCOUNT; COMMENT NUMBER OF ERROR MSGS. MCP WILL TYPE 00501000
SYNTX ERR AT EOJ IF THIS IS NON-ZERO. MUST BE @R+25; 00502000
INTEGER SAVETIME; COMMENT SAVE-FACTOR FOR CODE FILE, GIVEN BY MCP. 00503000
IF COMPILE & GO =0, FOR SYNTAX, =-1. MUST BE AT R+26;00504000
IF COMPILE & GO =0. FOR SYNTAX, =-1. MUST BE AT R+26;00504000
INTEGER CARDNUMBER; % SEQ # OF CARD BEING PROCESSED. 00504100
INTEGER CARDCOUNT; % NUMBER OF CARDS PROCESSED. 00504150
BOOLEAN BUILDLINE; 00504700
COMMENT RR1-RR11 ARE USED IN SOME PROCEDURES IN 00505000
PLACE OF LOCALS TO SAVE STACK SPACE; 00506000
REAL RR1,RR2,RR3,RR4,RR5,RR6,RR7,RR8,RR9,RR10,RR11; 00507000
REAL RR1,RR2,RR3,RR4,RR5,RR6,RR7,RR8,RR9,RR10,RR11; 00507000
COMMENT SOME OF THE RRI ARE USED TO PASS FILE INFORMATION 00508000
TO THE MAIN BLOCK; 00509000
COMMENT EXAMIN RETURNS THE CHARACTER AT ABSOLUTE ADDRESS NCR; 00510000
@@ -468,8 +468,8 @@ ARRAY INFO [0:127,0:255]; 01007000
THE INTERNAL CODE ( OR ELBAT WORD AS IT IS USUALLY 01010000
CALLED). THE SECOND WORD CONTAINS THE FORWARD BIT (IN 01011000
[1:1]) FOR PROCEDURES, THE LINK TO PREVIOUS ENTRY (IN 01012000
[4:8]). THE NUMBER OF CHARACTORS IN THE ALPHA REPRESENTA- 01013000
TION (IN [12:6]), AND THE FIRST 5 CHARACTERS OF ALPHA. 01014000
[4:8]), THE NUMBER OF CHARACTORS IN THE ALPHA REPRESENTA- 01013000
TION (IN [12:6]), AND THE FIRST 5 CHARACTORS OF ALPHA. 01014000
SUCCEDING WORDS CONTAIN THE REMAINING CHARACTORS OF ALPHA,01015000
FOLLOWED BY ANY ADDITIONAL INFORMATION. THE ELBAT WORD 01016000
AND THE ALPHA FOR ANY QUANTITY ARE NOT SPLIT ACROSS A ROW 01017000
@@ -524,7 +524,7 @@ COMMENT INFO FORMAT 01028000
POINTS TO A. 01066000
THE SECOND WORD OF EACH ENTRY IN INFO IS MADE UP AS FOLLOWS: 01067000
FWDPT =[1:1],THIS TELLS WHETHER A PROCEDURE WAS DECLARED 01068000
FORWARD. IT IS RESET AT THE TIME OF ITS ACTUAL 01069000
FORWARD.IT IS RESET AT THE TIME OF ITS ACTUAL 01069000
FULL DECLARATION. 01070000
PURPT =[4:8] THIS GIVES A DECREMENT WHICH GIVES THE RELATIVE 01071000
INDEX TO THE PREVIOUS INFO ENTRY WHEN SUBTRACTED 01072000
@@ -577,7 +577,7 @@ COMMENT INFO FORMAT 01028000
THE FIRST WORD OF ADDITIONAL INFO CONTAINS THE NUMBER OF 01119000
PARAMETERS [40:8] 01120000
IF A STREAM PROCEDURE THEN THIS WORD CONTAINS ALSO IN 01121000
[13:11] ENDING PRT ADDRESS FOR LABELS, 01122000
[13:11] ENDING PRT ADDRESS FOR LABELS, 01122000
[ 7:6] NO OF LABELS REQUIRING PRT ADDRESSES, AND [1:6] NUMBER 01123000
OF LOCALS. 01124000
SUCCEEDING WORDS (ONE FOR EACH FORMAL PARAMETER,IN ORDER 01125000
@@ -586,9 +586,9 @@ COMMENT INFO FORMAT 01028000
VALUE OR NOT([10:1]). 01128000
THE ADDRESS([16:11]) IS THE F- ADDRESS FOR EACH. 01129000
IF THE PARAMETER IS AN ARRAY THEN THE INCR FIELD([27:8]) 01130000
CONTAINS THE NUMBER OF DIMENSIONS,OTHERWISE INCR IS MEANINGLESS. 01131000
CONTAINS THE NUMBER OF DIMENSIONS.OTHERWISE INCR IS MEANINGLESS. 01131000
LINK([35:13]) IS MEANINGLESS. 01132000
IF A STREAM PROCEDURE THEN THE CLASS OF EACH PARAMETER IS 01133000
IF A STREAM PROCEDURE THEN THE CLASS OF EACH PARAMATER IS 01133000
THAT OF LOCAL ID OR FILE ID, DEPENDING ON WHETHER OR NOT A RELEASE01134000
IS DONE IN THE STREAM PROCEDURE. 01135000
LABELS: 01136000
@@ -773,12 +773,12 @@ DEFINE DDES = 8#, 01299000
ALPHA ARRAY ACCUM[0:10]; 01304000
COMMENT ACCUM HOLDS THE ALPHA AND CHARACTER COUNT OF THE LAST 01305000
SCANNED ITEM IN A FORM COMPATIBLE WITH ITS APPEARANCE 01306000
IN INFO. THAT IS ACCUM[1] = 00NAAAAA, ACCUM[I] , I> 1, 01307000
IN INFO, THAT IS ACCUM[1] = 00NAAAAA. ACCUM[I] , I> 1, 01307000
HAS ANY ADDITIONAL CHARACTERS. ACCUM[0] IS USED FOR 01308000
THE ELBAT WORD BY THE ENTER ROUTINES; 01309000
ARRAY STACKHEAD[0:125]; 01310000
COMMENT STACKHEAD[N] CONTAINS AN INDEX INTO INFO GIVING THE TOP 01311000
ITEM IN THE N-TH STACK; 01312000
ITEM IN THE N-TH STACK; 01312000
INTEGER COUNT; 01313000
COMMENT COUNT CONTAINS THE NUMBER OF CHARACTORS OF THE LAST ITEM 01314000
SCANNED; 01315000
@@ -806,7 +806,7 @@ ARRAY STACKHEAD[0:125]; 01310000
IS THE MAXIMUM OF TLCR WHEN THE INPUT IS BLOCKED; 01337000
ARRAY TEN[-46:69]; 01340000
01341000
DEFINE PRTBASE=129#,PRTOP=896#; COMMENT PAGE AND TOP OF PRT; 01342000
DEFINE PRTBASE=129#,PRTOP=896#; COMMENT PASE AND TOP OF PRT; 01342000
ARRAY PRT[PRTBASE:PRTOP]; 01343000
INTEGER DISKADR,CORADR; COMMENT GLOBALS FOR PROGDESCBLDR; 01344000
INTEGER SGAVL;COMMENT NEXT AVAILABLE SEGMENT NUMBER; 01369000
@@ -856,15 +856,15 @@ INTEGER SGNO;COMMENT THIS IS THE CURRENT SEGMENT NUMBER; 01370000
GLOBAL OF THE PROCEDURES CURRENTLY BEING COMPILED. MODE 01409000
IS THE CURRENT DEPTH OF THE PROCEDURE IN WHICH WE ARE 01410000
NESTED (AT COMPILE TIME); 01411000
BOOLEAN ERRORTOG; 01412000
BOOLEAN ERRORTOG; 01412000
COMMENT ERRORTOG IS TRUE IF MESSAGES ARE CURRENTLY ACCEPTABLE TO THE01413000
ERROR ROUTINES. ERRORCOUNT IS THE COUNT OF ERROR MSSGS; 01414000
BOOLEAN ENDTOG; COMMENT ENDTOG TELLS THE TABLE TO ALLOW 01415000
COMMENT TO BE PASSED BACK TO COMPOUNDTAIL; 01416000
BOOLEAN STREAMTOG; 01417000
COMMENT STREAMTOG IS TRUE IF WE ARE COMPILING STREAM STATEMENT. IT 01418000
IS USED TO CONTROL COMPOUNDTAIL; 01419000
DEFINE FS = 1#, FP = 2#, FL = 3#, FR=4#; 01420000
IS USED TO CONTROL COUMPOUNDTAIL; 01419000
DEFINE FS = 1#, FP = 2#, FL = 3#, FR =4#; 01420000
COMMENT THESE DEFINES ARE USED WHEN CALLING THE VARIABLE ROUTINE. 01421000
THEIR PURPOSES IS TO TELL VARIABLE WHO IS CALLING. 01422000
THEIR MEANING IS: 01423000
@@ -879,34 +879,34 @@ BOOLEAN ENDTOG; COMMENT ENDTOG TELLS THE TABLE TO ALLOW 01415000
BOOLEAN TB1; 01457000
COMMENT TB1 IS A TEMPORARY BOOLEAN VARIABLE; 01458000
INTEGER JUMPCTR; 01459000
COMMENT JUMPCTR IS A VARIABLE USED FOR COMMUNICATION BETWEEN BLOCK 01460000
AND GENGO. IT GIVES HIGHEST LEVEL TO WHICH A JUMP HAS 01461000
BEEN MADE FROM WITHIN A THE PRESENTLY BEING COMPILED 01462000
SEGMENT. THE BLOCK COMPILES CODE TO INCREMENT AND DECRE- 01463000
MENT THE BLOCKCTR ON THE BASIS OF JUMPCTR AT COMPLETION 01464000
OF COMPILATION OF A SEGMENT - I.E. THE BLOCKCTR IS TALLIED 01465000
IF LEVEL = JUMPCTR; 01466000
COMMENT JUMPCTR IS A VARIABLE USED FOR COMMUNICATION BETWEEN BLOCK01460000
AND GENGO. IT GIVES HIGHEST LEVEL TO WHICH A JUMP HAS 01461000
BEEN MADE FROM WITHIN A THE PRESENTLY BEING COMPILED 01462000
SEGMENT. THE BLOCK COMPILES CODE TO INCREMENT AND DECRE- 01463000
MENT THE BLOCKCTR ON THE BASIS OF JUMPCTR AT COMPLETION 01464000
OF COMPILATION OF A SEGMENT - I.E. THE BLOCKCTR IS TALLIED01465000
IF LEVEL = JUMPCTR; 01466000
01467000
01468000
01469000
01470000
REAL STLB; 01471000
COMMENT STLB IS USED BY VARIABLE AND ACTUALPARAPART TO COMMUNICATE 01472000
THE LOWER BOUND INFORMATION FOR THE LAST DIMENSION OF THE 01473000
ARRAY INVOLVED IN A ROW DESIGNATOR. THE FORMAT OF THE 01474000
INFORMATION IS THAT OF INFO. STLB IS ALSO SOMETIMES USED 01475000
FOR TEMPORARY STORAGE; 01476000
DEFINE BUMPL = L~L+2#; 01477000
COMMENT BUMPL IS USED MOSTLY TO PREPARE A FORWARD JUMP; 01478000
DEFINE IDMAX = LABELID#; 01479000
COMMENT IDMAX IS THE MAXIMUM CLASS NUMBER FOR IDENTIFIERS; 01480000
INTEGER DEFINECTR,DEFINEINDEX; 01481000
REAL JOINFO, COMMENT POINTS TO PSEUDO LABEL FOR JUMP OUTS; 01482000
LPRT, COMMENT SHOWS LOCATION OF THE LAST LABEL IN THE PRT ; 01483000
NESTLEVEL, COMMENT COUNTS NESTING FOR GO TO AND JUMP OUTS; 01484000
JUMPLEVEL; COMMENT NUMBER OF LEVELS TO BE JUMPED OUT; 01485000
COMMENT THE REALS ABOVE ARE FOR STREAM STATEMENT; 01486000
ARRAY MACRO[0:35]; 01487000
REAL STLB; 01471000
COMMENT STLB IS USED BY VARIABLE AND ACTUALPARAPART TO COMMUNICATE 01472000
THE LOWER BOUND INFORMATION FOR THE LAST DIMENSION OF THE 01473000
ARRAY INVOLVED IN A ROW DESIGNATOR. THE FORMAT OF THE 01474000
INFORMATION IS THAT OF INFO. STLB IS ALSO SOMETIMES USED 01475000
FOR TEMPORARY STORAGE; 01476000
DEFINE BUMPL = L~L+2#; 01477000
COMMENT BUMPL IS USED MOSTLY TO PREPARE A FORWARD JUMP; 01478000
DEFINE IDMAX = LABELID#; 01479000
COMMENT IDMAX IS THE MAXIMUM CLASS NUMBER FOR IDENTIFIERS; 01480000
INTEGER DEFINECTR,DEFINEINDEX; 01481000
REAL JOINFO, COMMENT POINTS TO PSEUDO LABEL FOR JUMP OUTS; 01482000
LPRT, COMMENT SHOWS LOCATION OF THE LAST LABEL IN THE PRT ; 01483000
NESTLEVEL, COMMENT COUNTS NESTING FOR GO TO AND JUMP OUTS;01484000
JUMPLEVEL; COMMENT NUMBER OF LEVELS TO BE JUMPED OUT; 01485000
COMMENT THE REALS ABOVE ARE FOR STREAM STATEMENT; 01486000
ARRAY MACRO[0:35]; 01487000
COMMENT MACRO IS FILLED WITH SYLLABLES FOR STREAM STATEMENT; 01488000
REAL P, COMMENT CONTAINS NUMBER OF FORMALS FOR STREAM PROCS; 01489000
Z; COMMENT CONTAINS 1ST WORD OF INFO FOR STREAM FUNCTIONS; 01490000
@@ -969,7 +969,7 @@ FILE OUT LINE DISK SERIAL[20:2400](RR3,15,RR4,SAVE 10); 01558000
ARRAY LIN[0:20]; COMMENT PRINT OUTPUT BUILT IN LIN; 01559010
INTEGER DA; 01559020
SAVE FILE OUT NEWTAPE DISK SERIAL[20:2400](RR5,RR6,RR7,SAVE 1); 01560000
FILE IN TAPE "OCRDIMG"(2,RR8,RR9); 01561000
FILE IN TAPE "0CRDIMG"(2,RR8,RR9); 01561000
SAVE ARRAY CBUFF,TBUFF[0:9]; % INPUT BUFFERS. 01561056
FILE OUT CODISK DISK SERIAL [20:600] (2,30,300); 01561300
FILE OUT DISK DISK [1:2100] "MCP""DISK"(3,30,300,SAVE 99); 01561400
@@ -1082,7 +1082,7 @@ DEFINE PURPT=[4:8]#,SECRET=2#; 01628000
LNG = 19#, COMMENT (0115) 7.4.3.4 LOGICAL NEGATE; 01657000
LOD = 260#, COMMENT (2021) 7.4.10.1 LOAD OPERATOR; 01658000
LOR = 35#, COMMENT (0215) 7.4.3.2 LOGICAL OR; 01659000
LQV = 131#, COMMENT (1015) 7.4.3.3 LOGICAL EQUIVALENCE; 01660000
LQV = 131#, COMMENT (1015) 7.4.3.3 LOGICAL EQIVALENCE; 01660000
LSS = 549#, COMMENT (4225) 7.4.4.5 LESS THAN; 01661000
MKS = 72#, COMMENT (0441) 7.4.8.1 MARK STACK; 01662000
MUL = 64#, COMMENT (0401) 7.4.2.3 MULTIPLY; 01663000
@@ -2498,7 +2498,7 @@ WHILE L.[46:2]!0 DO EMIT(45); 04086000
BEGIN 04117000
INTEGER TL; 04118000
TL ~ L; 04119000
IF TOWARDS > FOULED THEN FOULED ~ TOWARDS; 04119500
IF TOWARDS > FOULED THEN FOULED ~ TOWARDS; 04119500
L ~ FROM-2; 04120000
GT1 ~ TOWARDS-FROM; 04120100
IF TOWARDS.[46:2] = 0 04120200
@@ -2600,7 +2600,7 @@ WHILE L.[46:2]!0 DO EMIT(45); 04086000
INFO[0,255 -LASTENTRY] ~ L; 04210000
INFO[0,255 -LASTENTRY-1]~ C ; 04211000
EMITN(1023); 04212000
IF MODE=0 THEN EMITO(NOP); 04212100
IF MODE=0 THEN EMITO(NOP); 04212100
LINKTOG~FALSE; 04213000
IF LASTENTRY ~ LASTENTRY+2 } 128 THEN 04214000
BEGIN 04215000
@@ -2616,7 +2616,7 @@ WHILE L.[46:2]!0 DO EMIT(45); 04086000
END; 04224000
FINISHED:END EMITNUM ; 04225000
COMMENT SEARCH PERFORMS A BINARY SEARCH ON THE COP AND WOP 04226000
ARRAYS, GIVEN THE OPERATOR BITS SEARCH YIELDS THE BCD 04227000
ARRAYS. GIVEN THE OPERATOR BITS SEARCH YIELDS THE BCD 04227000
MNEUMONIC FOR THAT OPERATOR. IF THE OPERATOR CANNOT 04228000
BE FOUND SEARCH YIELDS BLANKS. 04229000
NOTE: DIA,DIB,TRB ARE RETURNED AS BLANKS. ; 04230000
@@ -2630,9 +2630,9 @@ WHILE L.[46:2]!0 DO EMIT(45); 04086000
N ~ 64 ; 04238000
FOR I ~ 66 STEP IF Q[I]<KEY THEN N ELSE - N 04239000
WHILE N~N DIV 2 } 1 DO 04240000
IF Q[ I ]=KEY THEN GO TO L ; 04241000
IF Q[ I ]= KEY THEN GO TO L ; 04241000
I ~0; COMMENT ARGUMENT NOT FOUND,SEARCH=Q[1] ; 04242000
L: SEARCH~Q[ I +1] ; 04243000
L: SEARCH~Q[ I +1] ; 04243000
END SEARCH ; 04244000
COMMENT B2D CONVERTS THE FOUR LOW ORDER OCTAL DIGITS TO BCD 04245000
CODE ; 04246000
@@ -2682,7 +2682,7 @@ PROCEDURE DEBUG(S); VALUE S; REAL S; 04277500
L~L+1; 04298000
END ELSE 04299000
BEGIN ERR(200); L~1; END; 04300000
COMMENT 200 EMIT - SEGMENT GREATER THAN 4093 SYLLABLES *; 04301000
COMMENT 200 EMIT - SEGMENT GREATER THAN 4093 SYLLABLES *;04301000
END EMIT ; 04302000
COMMENT EMITD EMITS THE DIA,DIB,TRB SEQUENCE OF CODE. THE 04305000
PREVIOUS SETTING OF THE G-H AND K-V REGISTERS IS COMPARED 04306000
@@ -2775,7 +2775,7 @@ PROCEDURE DEBUG(S); VALUE S; REAL S; 04277500
COMMENT PUT PLACES A WORD INTO INFO; 05007000
PROCEDURE PUT(WORD,INDEX); VALUE WORD,INDEX; REAL WORD,INDEX; 05008000
INFO[INDEX.LINKR,INDEX.LINKC] ~ WORD; 05009000
COMMENT FLAG FLAGS ERROR MESSAGES, COUNTS THEM AND SUPRESS FUTURE 05010000
COMMENT FLAG FLAGS ERROR MESSAGES, COUNTS THEM AND SUPPRESS FUTURE 05010000
ERROR MESSAGES UNTIL THE COMPILER THINKS IT HAS RECOVERED;05011000
PROCEDURE FLAG(ERRNUM); VALUE ERRNUM; INTEGER ERRNUM; 05012000
BEGIN 05013000
@@ -2785,7 +2785,7 @@ PROCEDURE DEBUG(S); VALUE S; REAL S; 04277500
VALUE ERRNUM,COUNT; 05017000
BEGIN 05018000
DI ~ LINE; 44(DS~2LIT" "); COMMENT CLEAR BUFFER; 05019000
SI ~LSTSEQ;SI ~ SI-8; DS ~WDS; 05020000
SI ~LSTSEQ; SI ~ SI-8; DS ~WDS; 05020000
SI ~ LINE; DS ~ 2 WDS; 05021000
4(DS ~ 2 LIT "XX"); COMMENT SET RIGHT MARGIN FLAG; 05022000
SI ~ LSTSEQ; DI ~ LSTSEQ; DI ~ DI-8; DS ~ WDS; 05023000
@@ -2875,13 +2875,13 @@ EXIT: END ; 05100000
COMMENT ERR,IS THE SAME AS FLAG EXCEPT THAT IT MAKES AN ATTEMPT TO 05102000
RECOVER FROM ERROR SITUATIONS BY SEARCHING FOR A 05103000
SEMICOLON, END, OR BEGIN; 05104000
PROCEDURE ERR(ERRNUM); VALUE ERRNUM; INTEGER ERRNUM; 05105000
BEGIN FLAG(ERRNUM); 05106000
I ~ I-1; 05107000
IF ERRNUM = 200 THEN I:=I/0;% SEGMENT TOO LARGE 05107100
IF ERRNUM = 611 THEN I:=I/0;% ERRMAX EXCEEDED 05107200
DO IF STEPI = BEGINV THEN STMT UNTIL 05108000
ELCLASS = ENDV OR ELCLASS = SEMICOLON END ERR; 05109000
PROCEDURE ERR(ERRNUM); VALUE ERRNUM; INTEGER ERRNUM; 05105000
BEGIN FLAG(ERRNUM); 05106000
I ~ I-1; 05107000
IF ERRNUM = 200 THEN I:=I/0;% SEGMENT TOO LARGE 05107100
IF ERRNUM = 611 THEN I:=I/0;% ERRMAX EXCEEDED 05107200
DO IF STEPI = BEGINV THEN STMT UNTIL 05108000
ELCLASS = ENDV OR ELCLASS = SEMICOLON END ERR; 05109000
DEFINE ERROR = ERR#; COMMENT ERROR IS A SYNONM FOR ERR; 05110000
COMMENT CHECKER IS A SMALL PROCEDURE THAT CHECKS TO SEE THAT THE 05111000
UPLEVEL ADDRESSING CONVENTIONS ARE OBEYED; 05112000
@@ -2963,7 +2963,7 @@ PROCEDURE PROGDESCBLDR(PRTADR,SAV,SIZE,TYPE); 05245000
BEGIN PRTADR~PRTADR.[38:10]; 05247500
IF SAV THEN BEGIN PRT[PRTADR] ~ ( IF TYPE = LDES 05248000
THEN SIZE ELSE CORADR) 05248500
&SIZE[8:28:10]&TYPE[1:43:5]&3[6:46:2]; 05249000
&SIZE[8:38:10]&TYPE[1:43:5]&3[6:46:2]; 05249000
IF TYPE!LDES THEN CORADR~CORADR+SIZE; 05250000
END 05251000
ELSE BEGIN PRT[PRTADR]~0&DISKADR[18:33:15]&SIZE[8:38:10] 05252000
@@ -3231,7 +3231,7 @@ IF NOT(STREAMTOG AND (LEVEL>2))THEN 05344400
END; 05460000
END; 05461000
COMMENT ROUTINES IN THIS SECTION COMPILE CODE FOR ALL EXPRESSIONS;06000000
COMMENT AEXP IS THE ARITHMETIC EXRESSION ROUTINE; 06001000
COMMENT AEXP IS THE ARITHMETIC EXPRESSION ROUTINE; 06001000
PROCEDURE AEXP; 06002000
BEGIN 06003000
IF ELCLASS = IFV 06004000
@@ -3319,7 +3319,7 @@ IF NOT(STREAMTOG AND (LEVEL>2))THEN 05344400
BEGIN ERR(500); GO TO EXIT END; 06086000
IF T2 = BITOP THEN EMIT(T1&C 06087000
[36:42:6]) ELSE 06088000
IF T2 =HEXOP THEN EMIT(T1& 06089000
IF T2 = HEXOP THEN EMIT(T1& 06089000
(T2~C DIV 6)[36:45:3]&(C-T2|6) 06090000
[39:45:3]) ELSE 06091000
IF T2 = ISOLATE THEN 06092000
@@ -3684,7 +3684,7 @@ FCR:= (LCR:=MKABS(TBUFF[9]))-9 END; 07025030
COMMENT CALL VARIABLE TO HANDLE THIS ASSIGNMENT OPERATION; 07403000
IF ELCLASS ! PROCID EQV FROM 07404000
THEN BEGIN ERR(159); GO TO EXIT END; 07405000
COMMENT IT IS PROCEDURE IF AND ONLY WE COME FORM STMT; 07406000
COMMENT IT IS PROCEDURE IF AND ONLY WE COME FROM STMT; 07406000
STEPIT; 07407000
EMITO(MKS); 07408000
IF ELCLASS = LEFTPAREN 07409000
@@ -3880,7 +3880,7 @@ DEFINE ELBATWORD=RR9#,LINK=GT2#,INDEX=GT3#,ADDITIONAL 07595000
NONLITNO THEN EMITWORD(C) 07604120
ELSE BEGIN ERR(500); I ~ I-1 END 07604130
UNTIL STEPI ! COMMA; 07604140
I ~ I-1; 07604150
I ~ I-1 ; 07604150
END ELSE 07604160
WHILE LINK ! 0 07605000
DO BEGIN 07606000
@@ -3984,21 +3984,21 @@ L1: 07675000
END; 07727110
IF ELCLASS = 0 THEN FLAG(100); FLAG(145); 07728000
L1:L2:L3:L4:L5:L6:L9:L11:L13:L14:L15:L16:L17:L20:L21:L25:L28:L29:L24: 07729000
L33:L34:L35:L36:L37:L39: 07730000
L33:L34:L35:L36:L37:L39: 07730000
ERR(144); GO TO EXIT; 07731000
L7:L8: 07732000
L7:L8: 07732000
SUBHAND(TRUE); GO TO EXIT; 07733000
L10:L18:L19: 07734000
L10:L18:L19: 07734000
PROCSTMT(TRUE); GO TO EXIT; 07735000
L12: 07736000
L12: 07736000
STRMPROCSTMT; GO TO EXIT; 07737000
L22:L23:L26:L27:L30:L31: 07738000
L22:L23:L26:L27:L30:L31: 07738000
VARIABLE(FS); GO TO EXIT; 07739000
L32: 07740000
L32: 07740000
LABELR; GO TO AGAIN; 07741000
L38: 07742000
L38: 07742000
POLISHER(0); GO TO EXIT; 07743000
L40: 07744000
L40: 07744000
IF ELBAT[I].ADDRESS = STREAMV THEN 07745000
BEGIN INLINE; GO TO EXIT END; 07746000
FLAG(146); 07747000
@@ -4006,21 +4006,21 @@ L33:L34:L35:L36:L37:L39: 07730000
BEGIN I ~ I-2; ELCLASS ~ ENDV; GO TO EXIT END; 07749000
I ~ I-1; ERRORTOG ~ TRUE; BLOCK(FALSE); 07750000
ELCLASS ~ TABLE(I~I-1); GO TO EXIT; 07751000
L42: 07752000
L42: 07752000
DBLSTMT; GO TO EXIT; 07753000
L43: 07754000
L43: 07754000
FORSTMT; GO TO EXIT; 07755000
L44: 07756000
L44: 07756000
WHILESTMT; GO TO EXIT; 07757000
L45: 07758000
L45: 07758000
DOSTMT; GO TO EXIT; 07759000
L51: 07760000
L51: 07760000
IFSTMT; GO TO EXIT; 07761000
L52: 07762000
L52: 07762000
GOSTMT; GO TO EXIT; 07763000
L53: 07764000
L53: 07764000
IOSTMT; GO TO EXIT; 07765000
L54: 07766000
L54: 07766000
IF STEPI = DECLARATORS THEN 07767000
BEGIN 07768000
IF ELBAT[I].ADDRESS = STREAMV THEN IF STEPI = % 6 07768100
@@ -4037,7 +4037,7 @@ L33:L34:L35:L36:L37:L39: 07730000
EXIT: END STMT; 07771000
07991000
PROCEDURE IOSTMT; 07993000
IF STEPI ! LITNO OR (GT1~ELBAT[I].ADDRESS>15) THEN ERR(98)ELSE 07994000
IF STEPI ! LITNO OR (GT1~ELBAT[I].ADDRESS)>15 THEN ERR(98)ELSE 07994000
BEGIN EMIT(ELBAT[I-1].ADDRESS&GT1[41:47:1]&GT1[36:44:3]); 07995000
STEPIT 07996000
END SCOPE STATEMENT; 07997000
@@ -4506,7 +4506,7 @@ COMMENT THIS IS THE FILL FOR THE SECOND ROW OF INFO: 09081000
OCT2141, COMMENT FXS ; 09122200
OCT1310456000000002, "3RDV00", %520 09122300
OCT1310304030000002, "3RFB00", %522 09122400
OCT1310240470000002, "3RND00", %524 09122500
OCT1310240470000002, "3RNO00", %524 09122500
OCT1310145060000002, "3RRR00", %526 09122600
OCT1310311060000002, "3RSB00", %528 09122700
OCT1310242470000002, "3RSP00", %530 09122800
@@ -4526,8 +4526,8 @@ COMMENT THIS IS THE FILL FOR THE SECOND ROW OF INFO: 09081000
OCT2141, COMMENT FXS ; 09124200
OCT1310442040000002, "3STN00", %558 09124300
OCT1310240000020004, "3STS00", %560 09124400
OCT0014, COMMENT LITC 3; 09124500
OCT2141, COMMENT FXS ; 09124600
OCT0014, COMMENT LITC 3; 09124500
OCT2141, COMMENT FXS ; 09124600
OCT1310440600000002, "3SUB00", %564 09124700
OCT1310344060000002, "3TFB00", %566 09124800
OCT1270440650000002, "3TFR00", %568 09124900
@@ -4554,8 +4554,8 @@ COMMENT THIS IS THE FILL FOR THE SECOND ROW OF INFO: 09081000
OCT0460000000000002, "1P0000", %610 09126900
OCT0360002000020002, "1M0000", %612 09127000
OCT1310240000020004, "3PRL00", %614 09127100
OCT0111, COMMENT PRL; 09127200
OCT0055, COMMENT NOP; 09127300
OCT0111, COMMENT PRL; 09127200
OCT0055, COMMENT NOP; 09127300
OCT0650006610000003, "7SCOPO", "FF......", %618 09127400
OCT0030000000040003, "2LB000", "[# ", %621 09127500
OCT0030000000040003, "2RB000", "]# ", %624 09127600
@@ -4566,9 +4566,9 @@ COMMENT THIS IS THE FILL FOR THE SECOND ROW OF INFO: 09081000
OCT0030000000040003, "3LEQ00", "{# ", %639 09128100
OCT0030000000040003, "3LSS00", "<# ", %642 09128200
OCT0030000000040003, "5TIMES", "|# ", %645 09128300
OCT1310117530000002, "3SCI00", %688 09128400
OCT1310117530000002, "3SCI00", %648 09128400
OCT1310117540000002, "3SAN00", %650 09128500
OCT1310157730000002, "3SCS00", %652 09128600
OCT1310157730000000, "3SCS00", %652 09128600
09128700
09128800
09128900
@@ -5083,7 +5083,7 @@ STREAM PROCEDURE FIXHDR(F,N); VALUE N; 09393700
EL~TABLE(NXTELBT); 12112000
NXTELBT~NXTELBT-1; 12113000
IF EL!LEFTPAREN AND EL!LFTBRKET THEN 12114000
FLAG(141) 12115000
FLAG(141) 12115000
ELSE DO BEGIN J~J+1; 12116000
SET(INFO[T.LINKR,T.LINKC],ACCUM[1],K,64|J+12); 12117000
ACCUM[1].[12:6]~K+2; 12118000
@@ -5444,7 +5444,7 @@ PROCEDURE SEGMENT(SIZE,FR); VALUE SIZE,FR; INTEGER SIZE,FR; 13657000
3(IF SB THEN DS~1 SET ELSE DS~1 RESET;SKIP 1 SB); 13709000
DI~T3; 13710000
SI~LOC T1; 13711000
DS~WDS; 13712000
DS~WDS 13712000
END; 13713000
PROCEDURE ENTER(TYPE); 13714000
VALUE TYPE; 13715000
@@ -5675,7 +5675,7 @@ NAMEDEC: IF T1~GTA1[J~J-1]!ARRAYV THEN J~J+1; 14161000
THEN 14161050
BEGIN 14161060
P2~TRUE; IF SPECTOG THEN 14161070
FLAG(013); 14161080
FLAG(013) 14161080
END 14161090
ELSE 14161100
14161110
@@ -5686,7 +5686,7 @@ SUBDEC: 14163000
IF GTA1[J~J-1]=REALV THEN TYPEV~REALSUBID ELSE TYPEV~SUBID; 14164000
STOPGSP~TRUE; 14164500
JUMPCHKNX;ENTRY(TYPEV);IF ELCLASS!SEMICOLON THEN FLAG(57); 14165000
STOPGSP~FALSE; 14165500
STOPGSP~FALSE; 14165499
STEPIT; 14166000
T~NEXTINFO; 14166500
PUTNBUMP(L); STMT; EMITO(LFU); IF TYPEV=REALSUBID THEN 14167000
@@ -5732,7 +5732,7 @@ SWITCHDEC: 14200000
SCATTERELBAT; GT1~0; TB1~FALSE; 14206000
ENTRY(SWITCHID); 14207000
GT2~NEXTINFO; PUTNBUMP(0); 14217000
DO 14218000
DO 14218000
BEGIN 14219000
IF STEPI!LABELID OR ELBAT[I].LVL!LEVEL THEN FLAG(63); 14220000
PUTNBUMP(ELBAT[I]);GT1~GT1+1 14221000
@@ -5786,6 +5786,7 @@ GO TO START; 14253000
END 14267000
UNTIL STEPI!COMMA; 14268000
START: STOPENTRY~STOPGSP~FALSE; END; GO TO START; 14269000
14269499
PROCEDUREDEC: 14270000
BEGIN 14271000
LABEL START,START1; 14272000
@@ -5985,7 +5986,7 @@ HF: 14382000
IF TESTLEV THEN BEGIN EMITC(1,0); EMITO(BFW) END 14451000
ELSE EMIT(0); 14451100
PUT(TAKE(MARK)&NLOC[1:42:6]&L[16:36:12]&P[40:40:8],MARK); 14451200
IF FUNCTOG THEN 14452000
IF FUNCTOG THEN 14452000
PUT(Z, PROINFO); 14457000
STREAMWORDS; 14460000
STREAMTOG~FALSE; 14461000
@@ -6136,7 +6137,7 @@ END BLOCK; 14613000
5. ZEROL,VV,T . 15052000
6. VV . 15053000
WHERE VN = DESC V 15054000
EXP= ARITH, OR BOOLEAN EXPRESSION,AS REQUIRED. 15055000
EXP= ARITH. OR BOOLEAN EXPRESSION,AS REQUIRED. 15055000
M* = CALL ON MONITOR ROUTINE,IF REQUIRED. 15056000
VL = LITC V 15057000
VV = OPDC V 15058000
@@ -6161,7 +6162,7 @@ END BLOCK; 14613000
DEFINE FORMALNAME=[9:2]=2#, LONGID=NAMEID#; 15076100
BOOLEAN SPCLMON; 15076200
TALL~ELBAT[I] ; 15077000
IF ELCLASS { INTPROCID THEN 15078000
IF ELCLASS { INTPROCID THEN 15078000
BEGIN 15079000
IF TALL.LINK !PROINFO.LINK THEN 15080000
BEGIN ERR(211); GO TO EXIT END; 15081000
@@ -6265,7 +6266,7 @@ COMMENT 201 VARIABLE- A PARTIAL WORD DESIGNATOR IS NOT THE * 15122000
IF FIRST SUBSCRIPT THEN VV ELSE COC. 15170000
EXECUTION: THE ARRAY ELEMENT IS PUT IN REG A. 15171000
4. ADD THE SEQUENCE: 15172000
IF FIRST SUBSCRIPT THEN VV ELSE COC,ZEROL. 15173000
IF FIRST SUBSCRIPT THEN VV ELSE COC,ZEROL, 15173000
XCH,T. 15174000
5. ADD THE SEQUENCE: 15175000
IF FIRST SUBSCRIPT THEN VN ELSE CDC,EXP, 15176000
@@ -6310,7 +6311,7 @@ COMMENT 201 VARIABLE- A PARTIAL WORD DESIGNATOR IS NOT THE * 15122000
END; 15233027
J ~ 0; 15234000
STACKCT ~ 0; 15234500
COMMENT 207 VARIABLE-MISSING LEFT BRACKET ON SUBSCRIPTED VARIABLE *; 15235000
COMMENT 207 VARIABLE-MISSING LEFTBRACKET ON SUBSCRIPTED VARIABLE *; 15235000
NEXT: IF STEPI = FACTOP THEN 15253000
BEGIN 15254000
IF J+1! TALL.INCR THEN 15255000
@@ -6412,8 +6413,8 @@ COMMENT ***** MONITOR FUNCTION M10 GOES HERE ; 15347000
THEN EMITV(TALL.ADDRESS) 15352000
ELSE EMITN(TALL.ADDRESS) 15353000
ELSE EMITO(IF SPCLMON 15354000
THEN COC 15355000
ELSE CDC); 15356000
THEN COC 15355000
ELSE CDC); 15356000
IF P1 =FS THEN ERR(210); 15364000
GO TO EXIT; 15365000
END; 15366000
@@ -6629,7 +6630,7 @@ PROCEDURE LABELS; 16156000
ELSE 16212000
IF ELCLASS=LITNO THEN EMITC(C,ELBAT[I-1].TESTCODE) ELSE 16212500
IF ELCLASS{IDMAX AND Q="5ALPHA" THEN EMITC(17,TAN) 16213000
ELSE BEGIN ERR(265); GO TO EXIT END; 16214000
ELSE BEGIN ERR(265);GO TO EXIT END; 16214000
GO TO IFTOG ; 16215000
IFSB: EMITC(1,BIT); 16216000
IFTOG: IF STEPI ! THENV THEN BEGIN ERR(266); GO TO EXIT END; 16217000
@@ -6750,7 +6751,7 @@ PROCEDURE INDEXS; 16311000
IF ELCLASS = LOCV THEN 16339000
IF STEPI ! LOCLID THEN GO TO L; 16340000
IF ELCLASS = LITNO AND TCLASS = TALLYV THEN 16341000
BEGIN EMITC(ELBAT[I].ADDRESS,SEC); GO TO EXIT END; 16342000
BEGIN EMITC(ELBAT[I].ADDRESS,SEC);GO TO EXIT END; 16342000
END ; 16343000
ADDR ~ ELBAT[I].ADDRESS; 16344000
GENERATE: 16345000
@@ -6890,7 +6891,7 @@ PROCEDURE JUMPS; 16431000
SWITCH TYPE ~ FINI,L,FINI,L3,L4,L5,L6,L7,L7,L7,L7,L8,L9,L10; 16476000
START: GO TO TYPE[ ELCLASS-ENDV+1]; 16477000
IF ELCLASS= RTPAREN THEN GO TO FINI ; 16478000
IF ELCLASS=STLABID THEN GO TO L2 ; 16481000
IF ELCLASS= STLABID THEN GO TO L2 ; 16481000
16482000
IF ELCLASS <IDMAX AND ELCLASS!LOCLID THEN BEGIN 16482100
DECLARELABEL; GO TO L2; END; 16482200

2
SYMBOL/KERNEL.esp_m
View File

@@ -1,4 +1,4 @@
$ SET LIST MCP PRT DEBUG DEBUGN 00000011
$ SET LIST PRT DEBUGN 00000011
B-5500 ESSENCE OF MCP : NOV,1968 P.E.G. 00020000
COMMENT: * TITLE: B5500/B5700 MARK XVI SYSTEM RELEASE * 00020110
* FILE ID: SYMBOL/KERNAL TAPE ID: SYMBOL2/FILE000 * 00020111

107
tools/xem/ESPOLXEM.alg_m
View File

@@ -1,6 +1,6 @@
%#######################################################################00005000=00001000=
% 00010000=00001010=
% B-5700 ESPOLXEM COMPILER 00015000
% B-5700 ESPOLXEM COMPILER 00015000=00001020=
% MARK XVI.0.00 00020000=00001030=
% OCT 1, 1974 00025000=00001040=
% 00030000=00001050=
@@ -49,7 +49,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00125000
011 PROCEDUREDEC: VALUE PART NOT ENDED BY SEMICOLON. 00245000=00026000=
012 PROCEDUREDEC: MISSING OR ILLEGAL SPECIFICATION 00250000=00027000=
PART. 00255000=00028000=
013 PROCEDUREDEC: OWN USED IS ARRAY SPECIFICATION. 00260000=00029000=
013 PROCEDUREDEC: OWN USED IN ARRAY SPECIFICATION. 00260000=00029000=
014 PROCEDUREDEC: SAVE USED IN ARRAY SPECIFICATION. 00265000=00030000=
015 BLOCK: DECLARATION PRECEDED BY ILLEGAL DECLARATOR. 00270000=00031000=
016 ARRAYDEC: ARRAY ID IN DECLARATION NOT FOLLOWED 00275000=00032000=
@@ -114,7 +114,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00125000
107 BEXP: THE EXPRESSION IS NOT OF BOOLEAN TYPE. 00570000=00081000=
108 EXPRSS: A RELATION MAY NOT HAVE CONDITIONAL EXPRESSIONS 00575000=00082000=
AS THE ARITHMETIC EXPRESSIONS. 00580000=00083000=
109 BOOSEC,SIMBOO, AND BOOCOMP: THE PRIMARY IS NOT BOOLEAN. 00585000=00084000=
109 BOOSEC,SIMPBOO, AND BOOCOMP: THE PRIMARY IS NOT BOOLEAN.00585000=00084000=
110 BOOCOMP: A NON-BOOLEAN OPERATOR OCCURS IN A BOOLEAN 00590000=00085000=
EXPRESSION. 00595000=00086000=
111 BOOPRIM: NO EXPRESSION (ARITHMETIC, BOOLEAN, OR DESIGNA- 00600000=00087000=
@@ -131,7 +131,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00125000
118 BANA: MISSING RIGHT BRAKET. 00655000=00098000=
119 COMPOUNDTAIL: MISSING SEMICOLON OR END. 00660000=00099000=
120 COMPOUNDTAIL: MISSING END. 00665000=00100000=
121 ACTUALPARAPART: AN INDEXED FILE MAY BE PASSED BY NAME 00670000=00101000=
121 ACTUALPARAPART: AN INDEXED FILE MAY BE PASSED BY NAME 00670000=00101000=
ONLY AND ONLY TO A STREAM PROCEDURE - THE STREAM 00675000=00102000=
PROCEDURE MAY NOT DO A RELEASE ON THIS TYPE PARA- 00680000=00103000=
METER. 00685000=00104000=
@@ -188,7 +188,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00125000
155 IFEXP: MISSING ELSE 00940000=00155000=
156 LISTELEMENT: A DESIGNATIONAL EXPRESSION MAY NOT BE A LIST00945000=00156000=
ELEMENT. 00950000=00157000=
157 LISTELEMENT: A ROW DESIGNATOR MAY NOT BE A LIST ELEMENT. 00955000=00158000=
157 LISTELEMENT: A ROW DESIGNATOR MAY NOT BE A LIST ELEMENT 00955000=00158000=
158 LISTELEMENT: MISSING RIGHT BRAKET IN GROUP OF ELEMENTS 00960000=00159000=
159 PROCSTMT: ILLEGAL USE OF PROCEDURE OR FUNCTION IDENTIFIER00965000=00160000=
160 PURGE: DECLARED LABEL DOES NOT OCCUR. 00970000=00161000=
@@ -209,7 +209,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00125000
208 SUBSCRIPTED VARIABLE: WRONG NUMBER OF SUBSCRIPTS. 01045000=00176000=
209 SUBSCRIPTED VARIABLE: PARTIAL WORD DESIGNATOR NOT LEFT- 01050000=00177000=
MOST IN A LEFT PART LIST. 01055000=00178000=
210 SUBSCRIPTED VARIABLE: MISSING , OR ~ . 01060000=00179000=
210 SUBSCRIPTED VARIABLE: MISSING . OR ~ . 01060000=00179000=
211 VARIABLE: PROCEDURE ID USED OUTSIDE OF SCOPE IN LEFT PART.01065000=00180000=
250 STREAM STMT:ILLEGAL STREAM STATEMENT. 01070000=00181000=
251 ANY STREAM STMT PROCEDURE: MISSING ~. 01075000=00182000=
@@ -233,7 +233,7 @@ ERROR NUMBER ROUTINE:ERROR MESSAGE 00125000
266 IFS: MISSING THEN INIF STATEMENT. 01165000=00200000=
267 FREDFIX: THERE ARE GO TO STATEMENTS IN WHICH THE LABEL IS 01170000=00201000=
UNDEFINED. 01175000=00202000=
268 EMITC: A REPEAT INDEX >=64 WAS SPECIFIED OR TOO MANY 01180000=00203000=
268 EMITC: A REPEAT INDEX >= 64 WAS SPECIFIED OR TOO MANY 01180000=00203000=
FORMAL PARAMETERS,LOCALS AND LABELS. 01185000=00204000=
269 TABLE: A CONSTANT IS SPECIFIED WHICH IS TOO LARGE 01190000=00205000=
OR TOO SMALL. 01195000=00206000=
@@ -358,7 +358,7 @@ INTEGER 01780000
SYNTX ERR AT EOJ IF THIS IS NON-ZERO. MUST BE @R+25; 01795000=00502000=
INTEGER 01800000=00503000=
SAVETIME; COMMENT SAVE-FACTOR FOR CODE FILE, GIVEN BY MCP. 01810000=00503000=
IF COMPILE & GO =0, FOR SYNTAX, =-1. MUST BE AT R+26;01815000=00504000=
IF COMPILE & GO =0. FOR SYNTAX, =-1. MUST BE AT R+26;01815000=00504000=
INTEGER 01820000=00504100=
CARDNUMBER; % SEQ # OF CARD BEING PROCESSED. 01825000=00504100=
INTEGER 01830000=00504150=
@@ -1818,8 +1818,8 @@ COMMENT SEQTOG INDICATES RESEQUENCING IS TO BE DONE; 02620000
THE INTERNAL CODE ( OR ELBAT WORD AS IT IS USUALLY 02815000=01010000=
CALLED). THE SECOND WORD CONTAINS THE FORWARD BIT (IN 02820000=01011000=
[46:1]) FOR PROCEDURES, THE LINK TO PREVIOUS ENTRY (IN 02825000=01012000=
[43:8]). THE NUMBER OF CHARACTORS IN THE ALPHA REPRESENTA-02830000=01013000=
TION (IN [35:6]), AND THE FIRST 5 CHARACTERS OF ALPHA. 02835000=01014000=
[43:8]), THE NUMBER OF CHARACTORS IN THE ALPHA REPRESENTA-02830000=01013000=
TION (IN [35:6]), AND THE FIRST 5 CHARACTORS OF ALPHA. 02835000=01014000=
SUCCEDING WORDS CONTAIN THE REMAINING CHARACTORS OF ALPHA,02840000=01015000=
FOLLOWED BY ANY ADDITIONAL INFORMATION. THE ELBAT WORD 02845000=01016000=
AND THE ALPHA FOR ANY QUANTITY ARE NOT SPLIT ACROSS A ROW 02850000=01017000=
@@ -1875,7 +1875,7 @@ COMMENT INFO FORMAT 02910000
POINTS TO A. 03100000=01066000=
THE SECOND WORD OF EACH ENTRY IN INFO IS MADE UP AS FOLLOWS: 03105000=01067000=
FWDPT =[46:1],THIS TELLS WHETHER A PROCEDURE WAS DECLARED 03110000=01068000=
FORWARD. IT IS RESET AT THE TIME OF ITS ACTUAL 03115000=01069000=
FORWARD.IT IS RESET AT THE TIME OF ITS ACTUAL 03115000=01069000=
FULL DECLARATION. 03120000=01070000=
PURPT =[43:8] THIS GIVES A DECREMENT WHICH GIVES THE RELATIVE 03125000=01071000=
INDEX TO THE PREVIOUS INFO ENTRY WHEN SUBTRACTED 03130000=01072000=
@@ -1928,7 +1928,7 @@ COMMENT INFO FORMAT 02910000
THE FIRST WORD OF ADDITIONAL INFO CONTAINS THE NUMBER OF 03365000=01119000=
PARAMETERS [7:8] 03370000=01120000=
IF A STREAM PROCEDURE THEN THIS WORD CONTAINS ALSO IN 03375000=01121000=
[34:11] ENDING PRT ADDRESS FOR LABELS, 03380000=01122000=
[34:11] ENDING PRT ADDRESS FOR LABELS, 03380000=01122000=
[40:6] NO OF LABELS REQUIRING PRT ADDRESSES, AND [46:6] NUMBER 03385000=01123000=
OF LOCALS. 03390000=01124000=
SUCCEEDING WORDS (ONE FOR EACH FORMAL PARAMETER,IN ORDER 03395000=01125000=
@@ -1937,9 +1937,9 @@ COMMENT INFO FORMAT 02910000
VALUE OR NOT([37:1]). 03410000=01128000=
THE ADDRESS([31:11]) IS THE F- ADDRESS FOR EACH. 03415000=01129000=
IF THE PARAMETER IS AN ARRAY THEN THE INCR FIELD([20:8]) 03420000=01130000=
CONTAINS THE NUMBER OF DIMENSIONS,OTHERWISE INCR IS MEANINGLESS. 03425000=01131000=
CONTAINS THE NUMBER OF DIMENSIONS.OTHERWISE INCR IS MEANINGLESS. 03425000=01131000=
LINK([12:13]) IS MEANINGLESS. 03430000=01132000=
IF A STREAM PROCEDURE THEN THE CLASS OF EACH PARAMETER IS 03435000=01133000=
IF A STREAM PROCEDURE THEN THE CLASS OF EACH PARAMATER IS 03435000=01133000=
THAT OF LOCAL ID OR FILE ID, DEPENDING ON WHETHER OR NOT A RELEASE03440000=01134000=
IS DONE IN THE STREAM PROCEDURE. 03445000=01135000=
LABELS: 03450000=01136000=
@@ -2141,13 +2141,13 @@ COMMENT INFO FORMAT 02910000
ACCUM[0:10]; 04430000=01304000=
COMMENT ACCUM HOLDS THE ALPHA AND CHARACTER COUNT OF THE LAST 04435000=01305000=
SCANNED ITEM IN A FORM COMPATIBLE WITH ITS APPEARANCE 04440000=01306000=
IN INFO. THAT IS ACCUM[1] = 00NAAAAA, ACCUM[I] , I> 1, 04445000=01307000=
IN INFO, THAT IS ACCUM[1] = 00NAAAAA. ACCUM[I] , I> 1, 04445000=01307000=
HAS ANY ADDITIONAL CHARACTERS. ACCUM[0] IS USED FOR 04450000=01308000=
THE ELBAT WORD BY THE ENTER ROUTINES; 04455000=01309000=
ARRAY 04460000=01310000=
STACKHEAD[0:125]; 04465000=01310000=
COMMENT STACKHEAD[N] CONTAINS AN INDEX INTO INFO GIVING THE TOP 04470000=01311000=
ITEM IN THE N-TH STACK; 04475000=01312000=
ITEM IN THE N-TH STACK; 04475000=01312000=
INTEGER 04480000=01313000=
COUNT; 04485000=01313000=
COMMENT COUNT CONTAINS THE NUMBER OF CHARACTORS OF THE LAST ITEM 04490000=01314000=
@@ -2188,7 +2188,7 @@ COMMENT INFO FORMAT 02910000
TEN[-46:69]; 04675000=01340000=
DEFINE 04680000=01342000=
PRTBASE = 129 #, 04685000=01342000=
PRTOP = 896 #; COMMENT PAGE AND TOP OF PRT; 04690000=01342000=
PRTOP = 896 #; COMMENT PASE AND TOP OF PRT; 04690000=01342000=
ARRAY 04700000=01343000=
PRT[PRTBASE:PRTOP]; 04705000=01343000=
INTEGER 04710000=01344000=
@@ -2300,26 +2300,26 @@ COMMENT INFO FORMAT 02910000
COMMENT TB1 IS A TEMPORARY BOOLEAN VARIABLE; 05260000=01458000=
INTEGER 05265000=01459000=
JUMPCTR; 05270000=01459000=
COMMENT JUMPCTR IS A VARIABLE USED FOR COMMUNICATION BETWEEN BLOCK 05275000=01460000=
AND GENGO. IT GIVES HIGHEST LEVEL TO WHICH A JUMP HAS 05280000=01461000=
BEEN MADE FROM WITHIN A THE PRESENTLY BEING COMPILED 05285000=01462000=
SEGMENT. THE BLOCK COMPILES CODE TO INCREMENT AND DECRE- 05290000=01463000=
MENT THE BLOCKCTR ON THE BASIS OF JUMPCTR AT COMPLETION 05295000=01464000=
OF COMPILATION OF A SEGMENT - I.E. THE BLOCKCTR IS TALLIED 05300000=01465000=
IF LEVEL = JUMPCTR; 05305000=01466000=
COMMENT JUMPCTR IS A VARIABLE USED FOR COMMUNICATION BETWEEN BLOCK05275000=01460000=
AND GENGO. IT GIVES HIGHEST LEVEL TO WHICH A JUMP HAS 05280000=01461000=
BEEN MADE FROM WITHIN A THE PRESENTLY BEING COMPILED 05285000=01462000=
SEGMENT. THE BLOCK COMPILES CODE TO INCREMENT AND DECRE- 05290000=01463000=
MENT THE BLOCKCTR ON THE BASIS OF JUMPCTR AT COMPLETION 05295000=01464000=
OF COMPILATION OF A SEGMENT - I.E. THE BLOCKCTR IS TALLIED05300000=01465000=
IF LEVEL = JUMPCTR; 05305000=01466000=
REAL 05310000=01471000=
STLB; 05315000=01471000=
COMMENT STLB IS USED BY VARIABLE AND ACTUALPARAPART TO COMMUNICATE 05320000=01472000=
THE LOWER BOUND INFORMATION FOR THE LAST DIMENSION OF THE 05325000=01473000=
ARRAY INVOLVED IN A ROW DESIGNATOR. THE FORMAT OF THE 05330000=01474000=
INFORMATION IS THAT OF INFO. STLB IS ALSO SOMETIMES USED 05335000=01475000=
FOR TEMPORARY STORAGE; 05340000=01476000=
COMMENT STLB IS USED BY VARIABLE AND ACTUALPARAPART TO COMMUNICATE 05320000=01472000=
THE LOWER BOUND INFORMATION FOR THE LAST DIMENSION OF THE 05325000=01473000=
ARRAY INVOLVED IN A ROW DESIGNATOR. THE FORMAT OF THE 05330000=01474000=
INFORMATION IS THAT OF INFO. STLB IS ALSO SOMETIMES USED 05335000=01475000=
FOR TEMPORARY STORAGE; 05340000=01476000=
DEFINE 05345000=01477000=
BUMPL = L:= L+2 #; 05350000=01477000=
COMMENT BUMPL IS USED MOSTLY TO PREPARE A FORWARD JUMP; 05355000=01478000=
COMMENT BUMPL IS USED MOSTLY TO PREPARE A FORWARD JUMP; 05355000=01478000=
DEFINE 05360000=01479000=
IDMAX = LABELID #; 05365000=01479000=
COMMENT IDMAX IS THE MAXIMUM CLASS NUMBER FOR IDENTIFIERS; 05370000=01480000=
COMMENT IDMAX IS THE MAXIMUM CLASS NUMBER FOR IDENTIFIERS; 05370000=01480000=
INTEGER 05375000=01481000=
DEFINECTR, 05380000=01481000=
DEFINEINDEX; 05385000=01481000=
@@ -2329,7 +2329,7 @@ COMMENT INFO FORMAT 02910000
NESTLEVEL, COMMENT COUNTS NESTING FOR GO TO AND JUMP OUTS; 05405000=01484000=
JUMPLEVEL; COMMENT NUMBER OF LEVELS TO BE JUMPED OUT; 05410000=01485000=
05420000=01486000=
COMMENT THE REALS ABOVE ARE FOR STREAM STATEMENT; 05425000=01486000=
COMMENT THE REALS ABOVE ARE FOR STREAM STATEMENT; 05425000=01486000=
ARRAY 05430000=01487000=
MACRO[0:35]; 05435000=01487000=
COMMENT MACRO IS FILLED WITH SYLLABLES FOR STREAM STATEMENT; 05440000=01488000=
@@ -2544,7 +2544,7 @@ COMMENT ESPOL CODE FILES ARE UNIQUELY TYPED IN THEIR FILE 05975000
LNG = 19#, COMMENT (0115) 7.4.3.4 LOGICAL NEGATE; 06530000=01657000=
LOD = 260#, COMMENT (2021) 7.4.10.1 LOAD OPERATOR; 06535000=01658000=
LOR = 35#, COMMENT (0215) 7.4.3.2 LOGICAL OR; 06540000=01659000=
LQV = 131#, COMMENT (1015) 7.4.3.3 LOGICAL EQUIVALENCE; 06545000=01660000=
LQV = 131#, COMMENT (1015) 7.4.3.3 LOGICAL EQIVALENCE; 06545000=01660000=
LSS = 549#, COMMENT (4225) 7.4.4.5 LESS THAN; 06550000=01661000=
MKS = 72#, COMMENT (0441) 7.4.8.1 MARK STACK; 06555000=01662000=
MUL = 64#, COMMENT (0401) 7.4.2.3 MULTIPLY; 06560000=01663000=
@@ -5159,7 +5159,7 @@ FINISHED: 19840000
END EMITNUM; 19845000=04225000=
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%19850000=04225000=
COMMENT SEARCH PERFORMS A BINARY SEARCH ON THE COP AND WOP 19855000=04226000=
ARRAYS, GIVEN THE OPERATOR BITS SEARCH YIELDS THE BCD 19860000=04227000=
ARRAYS. GIVEN THE OPERATOR BITS SEARCH YIELDS THE BCD 19860000=04227000=
MNEUMONIC FOR THAT OPERATOR. IF THE OPERATOR CANNOT 19865000=04228000=
BE FOUND SEARCH YIELDS BLANKS. 19870000=04229000=
NOTE: DIA,DIB,TRB ARE RETURNED AS BLANKS. ; 19875000=04230000=
@@ -5260,7 +5260,7 @@ COMMENT DEBUG PRINTS OUT OBJECT CODE IF "DEBUGN" IS SET; 20165000
ERR(200); 20375000=04300000=
L:= 1; 20380000=04300000=
END; 20385000=04300000=
COMMENT 200 EMIT - SEGMENT GREATER THAN 4093 SYLLABLES *; 20390000=04301000=
COMMENT 200 EMIT - SEGMENT GREATER THAN 4093 SYLLABLES *;20390000=04301000=
END EMIT; 20395000=04302000=
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%20400000=04302000=
COMMENT EMITD EMITS THE DIA,DIB,TRB SEQUENCE OF CODE. THE 20405000=04305000=
@@ -5430,7 +5430,7 @@ EXIT: 21070000
INFO[INDEX.LINKR, INDEX.LINKC]:= WORD; 21225000=05009000=
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%21230000=05009000=
21235000=05010000=
COMMENT FLAG FLAGS ERROR MESSAGES, COUNTS THEM AND SUPRESS FUTURE 21240000=05010000=
COMMENT FLAG FLAGS ERROR MESSAGES, COUNTS THEM AND SUPPRESS FUTURE 21240000=05010000=
ERROR MESSAGES UNTIL THE COMPILER THINKS IT HAS RECOVERED;21245000=05011000=
PROCEDURE FLAG(ERRNUM); 21250000=05012000=
VALUE 21255000=05012000=
@@ -5666,7 +5666,7 @@ EXIT: 21070000
IF SAV THEN 23030000=05248000=
BEGIN 23035000=05248000=
PRT[PRTADR]:= (IF TYPE = LDES THEN SIZE ELSE CORADR) & 23040000=05249000=
SIZE[39:19:10] & TYPE[46:4:5] & 3[41:1:2]; 23045000=05249000=
SIZE[39:9:10] & TYPE[46:4:5] & 3[41:1:2]; 23045000=05249000=
IF TYPE ^= LDES THEN 23050000=05250000=
CORADR:= CORADR+SIZE; 23055000=05250000=
END 23060000=05252000=
@@ -6232,7 +6232,7 @@ EXIT: 24705000
25595000=06000000=
COMMENT ROUTINES IN THIS SECTION COMPILE CODE FOR ALL EXPRESSIONS;25600000=06000000=
25605000=06001000=
COMMENT AEXP IS THE ARITHMETIC EXRESSION ROUTINE; 25610000=06001000=
COMMENT AEXP IS THE ARITHMETIC EXPRESSION ROUTINE; 25610000=06001000=
PROCEDURE AEXP; 25615000=06002000=
BEGIN 25620000=06003000=
IF ELCLASS = IFV THEN 25625000=06005000=
@@ -7147,7 +7147,7 @@ EXIT: 29785000
ERR(159); 29995000=07405000=
GO TO EXIT 30000000=07405000=
END; 30005000=07405000=
COMMENT IT IS PROCEDURE IF AND ONLY WE COME FORM STMT; 30010000=07406000=
COMMENT IT IS PROCEDURE IF AND ONLY WE COME FROM STMT; 30010000=07406000=
STEPIT; 30015000=07407000=
EMITO(MKS); 30020000=07408000=
IF ELCLASS = LEFTPAREN THEN 30025000=07410000=
@@ -7210,7 +7210,7 @@ EXIT: 30070000
30310000=07460000=
COMMENT RELSESTMT COMPILES THE RELEASE STATEMENT; 30315000=07460000=
30320000=07481000=
COMMENT DOSTMT HANDLES THE DO STATEMENT; 30325000=07481000=
COMMENT DOSTMT HANDLES THE DO STATEMENT; 30325000=07481000=
PROCEDURE DOSTMT; 30330000=07482000=
BEGIN 30335000=07483000=
INTEGER 30340000=07483000=
@@ -7919,7 +7919,8 @@ EXIT: 33765000
END STMT; 33770000=07771000=
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%33775000=07771000=
PROCEDURE IOSTMT; 33780000=07993000=
IF(GT1:= ELBAT[I].ADDRESS) > 15 THEN ERR(98) 33785000=07994000=
IF STEPI ^= LITNO OR (GT1:= ELBAT[I].ADDRESS) > 15 THEN 33785000=07994000=
ERR(98) 33785100=07994000=
ELSE 33790000=07994000=
BEGIN 33795000=07995000=
EMIT(ELBAT[I-1].ADDRESS & GT1[6:0:1] & GT1[11:3:3]); 33800000=07995000=
@@ -8642,7 +8643,7 @@ COMMENT THIS IS THE FILL FOR THE SECOND ROW OF INFO: 36760000
3"2141", COMMENT FXS ; 37460000=09122200=
3"1310456000000002", 6"3RDV00", %520 37470000=09122300=
3"1310304030000002", 6"3RFB00", %522 37475000=09122400=
3"1310240470000002", 6"3RND00", %524 37480000=09122500=
3"1310240470000002", 6"3RNO00", %524 37480000=09122500=
3"1310145060000002", 6"3RRR00", %526 37485000=09122600=
3"1310311060000002", 6"3RSB00", %528 37490000=09122700=
3"1310242470000002", 6"3RSP00", %530 37495000=09122800=
@@ -8662,8 +8663,8 @@ COMMENT THIS IS THE FILL FOR THE SECOND ROW OF INFO: 36760000
3"2141", COMMENT FXS ; 37565000=09124200=
3"1310442040000002", 6"3STN00", %558 37575000=09124300=
3"1310240000020004", 6"3STS00", %560 37580000=09124400=
3"0014", COMMENT LITC 3; 37585000=09124500=
3"2141", COMMENT FXS ; 37590000=09124600=
3"0014", COMMENT LITC 3; 37585000=09124500=
3"2141", COMMENT FXS ; 37590000=09124600=
3"1310440600000002", 6"3SUB00", %564 37600000=09124700=
3"1310344060000002", 6"3TFB00", %566 37605000=09124800=
3"1270440650000002", 6"3TFR00", %568 37610000=09124900=
@@ -8690,8 +8691,8 @@ COMMENT THIS IS THE FILL FOR THE SECOND ROW OF INFO: 36760000
3"0460000000000002", 6"1P0000", %610 37715000=09126900=
3"0360002000020002", 6"1M0000", %612 37720000=09127000=
3"1310240000020004", 6"3PRL00", %614 37725000=09127100=
3"0111", COMMENT PRL; 37730000=09127200=
3"0055", COMMENT NOP; 37735000=09127300=
3"0111", COMMENT PRL; 37730000=09127200=
3"0055", COMMENT NOP; 37735000=09127300=
3"0650006610000003", 6"7SCOPO", 6"FF......", %618 37745000=09127400=
3"0030000000040003", 6"2LB000", 6"[# ", %621 37755000=09127500=
3"0030000000040003", 6"2RB000", 6"]# ", %624 37760000=09127600=
@@ -8702,9 +8703,9 @@ COMMENT THIS IS THE FILL FOR THE SECOND ROW OF INFO: 36760000
3"0030000000040003", 6"3LEQ00", 3"57"6"# ", %639 37785000=09128100=
3"0030000000040003", 6"3LSS00", 6"<# ", %642 37790000=09128200=
3"0030000000040003", 6"5TIMES", 3"40"6"# ", %645 37795000=09128300=
3"1310117530000002", 6"3SCI00", %688 37800000=09128400=
3"1310117530000002", 6"3SCI00", %648 37800000=09128400=
3"1310117540000002", 6"3SAN00", %650 37805000=09128500=
3"1310157730000002", 6"3SCS00", %652 37810000=09128600=
3"1310157730000000", 6"3SCS00", %652 37810000=09128600=
0;% END OF INFO FILL. 37815000=09133700=
FOR GT2:= 256 STEP GT1.LINK WHILE NOT BOOLEAN(GT1.FORMAL) DO 37820000=09133800=
PUT((GT1:= TAKE(GT2)) & GT2[12:12:13], GT2); 37825000=09133900=
@@ -10453,7 +10454,7 @@ NAMEDEC: 46215000
BEGIN 46255000=14161060=
P2:= TRUE; 46260000=14161070=
IF SPECTOG THEN 46265000=14161070=
FLAG(013); 46270000=14161080=
FLAG(013) 46270000=14161080=
END 46275000=14161120=
ELSE 46280000=14161120=
TYPEV:= NAMEID+T1-REALV; 46285000=14161120=
@@ -10473,7 +10474,7 @@ SUBDEC: 46300000
ENTRY(TYPEV); 46355000=14165000=
IF ELCLASS ^= SEMICOLON THEN 46360000=14165000=
FLAG(57); 46365000=14165000=
STOPGSP:= FALSE; 46370000=14165500=
STOPGSP:= FALSE; 46370000=14165499=
STEPIT; 46375000=14166000=
T:= NEXTINFO; 46380000=14166500=
PUTNBUMP(L); 46385000=14167000=
@@ -11006,7 +11007,7 @@ CALLSTATEMENT: 48680000
5. ZEROL,VV,T . 49000000=15052000=
6. VV . 49005000=15053000=
WHERE VN = DESC V 49010000=15054000=
EXP= ARITH, OR BOOLEAN EXPRESSION,AS REQUIRED. 49015000=15055000=
EXP= ARITH. OR BOOLEAN EXPRESSION,AS REQUIRED. 49015000=15055000=
M* = CALL ON MONITOR ROUTINE,IF REQUIRED. 49020000=15056000=
VL = LITC V 49025000=15057000=
VV = OPDC V 49030000=15058000=
@@ -11183,7 +11184,7 @@ COMMENT 201 VARIABLE- A PARTIAL WORD DESIGNATOR IS NOT THE * 49650000
IF FIRST SUBSCRIPT THEN VV ELSE COC. 49890000=15170000=
EXECUTION: THE ARRAY ELEMENT IS PUT IN REG A. 49895000=15171000=
4. ADD THE SEQUENCE: 49900000=15172000=
IF FIRST SUBSCRIPT THEN VV ELSE COC,ZEROL. 49905000=15173000=
IF FIRST SUBSCRIPT THEN VV ELSE COC,ZEROL, 49905000=15173000=
XCH,T. 49910000=15174000=
5. ADD THE SEQUENCE: 49915000=15175000=
IF FIRST SUBSCRIPT THEN VN ELSE CDC,EXP, 49920000=15176000=
@@ -11236,7 +11237,7 @@ COMMENT 201 VARIABLE- A PARTIAL WORD DESIGNATOR IS NOT THE * 49650000
J:= 0; 50155000=15234000=
STACKCT:= 0; 50160000=15234500=
50165000=15235000=
COMMENT 207 VARIABLE-MISSING LEFT BRACKET ON SUBSCRIPTED VARIABLE *; 50170000=15235000=
COMMENT 207 VARIABLE-MISSING LEFTBRACKET ON SUBSCRIPTED VARIABLE *; 50170000=15235000=
NEXT: 50175000=15253000=
IF STEPI = FACTOP THEN 50180000=15253000=
BEGIN 50185000=15254000=