github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-02-04 06:52:31 +00:00
Code Issues Releases Wiki 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
2013-01-28 14:22:41 +00:00
parent 1e4251fe2b
commit b0d1742db3
3 changed files with 163 additions and 161 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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=