diff --git a/SYMBOL/ESPOL.alg_m b/SYMBOL/ESPOL.alg_m index de8aa0f..7e5e926 100644 --- a/SYMBOL/ESPOL.alg_m +++ b/SYMBOL/ESPOL.alg_m @@ -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]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>1[41:47:1]>1[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 =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=