diff --git a/source/B65ESPOL/SOURCE.alg_m b/source/B65ESPOL/SOURCE.alg_m index ee9e475..aba65af 100644 --- a/source/B65ESPOL/SOURCE.alg_m +++ b/source/B65ESPOL/SOURCE.alg_m @@ -1224,7 +1224,7 @@ COMMENT THE NEXT SECTION CONTAINS THE SCANNER. IT IS COMPOSED OF THREE30003000 EACH TIME IT IS CALLED, GET THE NEXT LOGICAL ENTITY OF THE SOURCE 30005000 PROGRAM, AND PRESENT IT TO THE CALLER. THE SOURCE PROGRAM COMES IN 30006000 CHUNKS: USUALLY THE CHUNK IS A CARD-IMAGE FROM EITHER THE CARD OR 30007000 - THE TAPE FILE. HOWEVER, SOME CHUNKS ARE TEXTS FROM A DEEINE: THESE 30008000 + THE TAPE FILE. HOWEVER, SOME CHUNKS ARE TEXTS FROM A DEFINE: THESE 30008000 COME, A WORD AT A TIME, FROM ADDL. READACARD IS IN CHARGE OF 30009000 FINDING THE NEXT CHUNK: IN FACT, VIRTUALLY ALL THE SOURCE-LANGUAGE 30010000 MANAGEMENT IS HANDLED BY READACARD, INCLUDING NORMAL LISTING, 30011000 @@ -1529,7 +1529,7 @@ BOOLEAN FIELDING; %KEEPS TABLE FROM STUTTERING IMPROPERLY. 31145200 DEBLANK; 31224000 IF CHR = "|" THEN 31225000 BEGIN BUMPNCR; SPEC.ADDRESS ~ MULX END 31226000 - END MULTIPLY CASE 31227000 + END MULTIPLY CASE; 31227000140621PK END 31228000 END SPECIAL CHARACTER CASES ELSE 31229000 IF RESULT=LETTER THEN COMMENT IDENTIFIER-TYPE THING; 31230000 @@ -1754,12 +1754,12 @@ AWAY: 31365900 UNDOING THE WORK OF HOOK; 31411000 IF DEFINEINDEX { 0 THEN FLAG(304) ELSE 31412000 BEGIN 31413000 - LCR ~ (GT1 + DEFINEARRAY[DEFINEINDEX -1]).[12:18]; 31414000 + LCR ~ (GT1 ~ DEFINEARRAY[DEFINEINDEX -1]).[12:18]; 31414000 NCR ~ GT1.[30:18]; 31415000 DEFINECTR ~ GT1.[4:8]; 31416000 - LASTUSED~(GT1+DEFINEARRAY[DEFINEINDEX+DEFINEINDEX-3]).[33:15]; 31417000 + LASTUSED~(GT1~DEFINEARRAY[DEFINEINDEX~DEFINEINDEX-3]).[33:15]; 31417000 IF (GT1 ~ GT1.[3:15]) ! 0 THEN 31418000 - BEGIN NEXTADDL ~ TAKE(GT1).LINK; PURGE(-NEXTINFO + GT1) END; 31418100 + BEGIN NEXTADDL ~ TAKE(GT1).LINK; PURGE(-NEXTINFO ~ GT1) END; 31418100 END UNHOOKING THE DEFINE ACTION; 31419000 PROCEDURE DOLLARCARD; 31420000 COMMENT THIS CODE HANDLES $ CONTROL CARD OPTIONS; 31421000 @@ -1928,7 +1928,7 @@ BOOLEAN PROCEDURE SYNTAXCK(ELBATCLASS,ERRNO); 31508000 TRANSLATIONS ARE IN THE ARRAY SPECIAL; 31547000 IF CHR ~ SPECIAL[CHR].ASCF = 0 THEN GO ECH; 31548000 IF CHR ~ SPECIAL[CHR].EBCDF = 0 THEN 31549000 - ECH: FLAG(307) 31550000 + ECH: FLAG(307); 31550000140621PK END CASES OF CHARACTER SIZE; 31551000 COMMENT CHR NOW HAS THE CHARACTER TO BE PLACED INTO 31552000 ACCUM; 31553000 @@ -2302,7 +2302,7 @@ COMMENT IN TOS AT THIS POINT-POINTER TO EVENT(IRW OR INDEXED DD),FIRST 40232000 EMIT1P(OP,MIN(J,255)); 40251000 EMIT2P(OP,MIN(J,255),P1); 40252000 EMIT3P(OP,MIN(J,255),P1,P2); 40253000 - EMIT4P(OP,MIN(J,255),P1,P2,P3) 40254000 + EMIT4P(OP,MIN(J,255),P1,P2,P3); 40254000140621PK END CASE UNTIL J ~ J - 255 { 0; 40255000 END EMITMICRO; 40256000 PROCEDURE PRINTSPACE(ID,LL,DISP); VALUE ID,LL,DISP; 40260000 @@ -2334,7 +2334,7 @@ COMMENT * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 44000000 END; 44011000 STREAM PROCEDURE PREPERR(LBUFF); 44012000 BEGIN DI ~ LBUFF; DS ~ 16 LIT ".DEFINED TO BE: "; 44013000 - 38(DS ~ 4 LIT " ") 44014000 + 30(DS ~ 4 LIT " ") 44014000 END PREPERR; 44015000 INTEGER J,K,C,W,START; 44016000 IF DEFINEINDEX>0 THEN 44017000 @@ -2893,7 +2893,7 @@ COMMENT * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 51000000 WILL GOBBLE AS MUCH AS IT CAN. IT RETURNS A VALUE TELLING51005000 WHAT IT DID: 51006000 ATYPE: SINGLE-PRECISION ARITHMETIC 51007000 - HTYPE: BOOLEAN 51008000 + BTYPE: BOOLEAN 51008000 ETYPE: EXTENDED-PRECISION ARITHMETIC 51009000 RTYPE: REFERENCE 51010000 PTYPE: POINTER 51011000 @@ -4578,7 +4578,7 @@ PROCALL ~ WTYPE; 60518285 EMIT(ZERO); EMIT(EXCH); 60518495 TB1 ~ BOOLEAN(T2 ~1); 60518500 EMIT(HALT); EMIT(DLET) END ELSE BEGIN 60518510 - EMIT(HALT); GO FINI END 60518520 + EMIT(HALT); GO FINI END; 60518520140621PK END CASES ON T2; 60518970 IF T2 > 0 THEN 60518980 IF ELCLASS ! RTPARN THEN FLAG(623) ELSE STEPIT; 60518990 @@ -5938,7 +5938,7 @@ BEGIN 62021000 INTEGER Z,FIRSTX,LASTX, J; 62023000 FIRSTX ~ TAX; 62024000 LOOP: 62025000 - IF STEPI ! STRNGCON THEN GO TO STUFF; 62026000 + IF STEPI = STRNGCON THEN GO TO STUFF; 62026000140621PK IF ELCLASS = STRING THEN 62027000 BEGIN 62028000 DO BEGIN 62029000 @@ -6501,7 +6501,7 @@ BOOLEAN PROCEDURE FIELDPART (LSTINFO, DIALS); 70166000 ::= = 70169000 AND MAY BE DRIVEN BY FIELDEC OR LAYOUTDEC. THE IDENTIFIER IS 70170000 ENTERED AND LSTINFO IS RETURNED TO THE CALLER. FIELDER RETURNS70171000 - DIALS AND IF THE DIALS AHE NOT SIMPLE THEY ARE NEGATED FOR THE 70172000 + DIALS AND IF THE DIALS ARE NOT SIMPLE THEY ARE NEGATED FOR THE 70172000 CALLER. WHEN FIELDPART IS TRUE - IT WAS SUCCESSFUL 70173000 ; 70174000 INTEGER ELCLAS; 70175000 @@ -6654,7 +6654,7 @@ PROCEDURE LAYOUTDEC; 70221000 UNTIL ELCLASS ! COMMA; 70294000 IF ELCLASS ! RTPARN THEN FLAG (705); 70295000 INFO [LASTI] ~ INFO [LASTI] 70296000 - &(NEXTADDL ~ ADDLI)[2:29:19] 70297000 + &(NEXTADDL + ADDLI)[2:29:19] 70297000 & NEXTADDL [33:33:15]; 70298000 DONBUG ("LAYOUT", LSTINFO, 0); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%70299000 WHILE J ~ J + 1 { ADDLI DO PUTNBUMP (TADDL [J]); 70300000 @@ -6708,7 +6708,7 @@ INTEGER PROCEDURE TEXT (FROM, FINAL); 70335000 THE TEXT, OTHERWISE AN ERROR HAS OCCURRED. 70346000 FINAL IS THE ELCLASS FOR A POSSIBLE TERMINATING CHARACTER 70347000 OR A FUNCTION OF THE NUMBER OF SYMBOLS IN A FORMAL SYMBOL 70348000 - LIST I.E. FINAL DIV 10 + 1 * NO. OF SYMBOLS. 70349000 + LIST I.E. FINAL DIV 10 + 1 = NO. OF SYMBOLS. 70349000 ;70350000 REAL TERMINATE; 70351000 BOOLEAN TERMINATOR, FIELDPARTA, FIELDPARTB; 70352000 @@ -7885,7 +7885,7 @@ COMMENT *** THE ALGORITHM ID IS UNKNOWN, HENCE: 71098000 DARD Q ALG ID; 71102000 TB1~ENTER(0,LOCALTYPE,QALGID,FALSE); 71103000 GT2 ~ TAKE(LASTINFO); 71104000 - IF(N+STANDSEARCH) =63 THEN 71105000 + IF(N~STANDSEARCH) =63 THEN 71105000 BEGIN COMMENT(MCS 6); 71106000 COMMENT IT IS A NON-STANDARD ALGORITHM; 71107000 N ~ COUNTQALG ~ COUNTQALG+ 1; 71108000 @@ -8385,7 +8385,7 @@ COMMENT NO EQUALITY; 71278000 SPECIAL[NCHR].EBCDF ELSE IF SZ=7 THEN SPECIAL 72130000 [NCHR].ASCF ELSE IF NCHR>9 THEN NCHR-7 ELSE 72131000 NCHR; 72131100 - END GOBBLING STRING UNTIL CHAR < 0 72132000 + END GOBBLING STRING UNTIL CHAR < 0; 72132000140621PK END CASES OF PICTURE CHARACTERS 72133000 END LOOP OF PICTURE ANALYZER UNTIL FALSE; 72134000 X: COMMENT ERROR EXIT FROM CASE LOOP; 72135000 @@ -8527,7 +8527,7 @@ COMMENT * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 80000000 EVENTDEC(CURRENT); % EVENT 80046000 EVENTDEC(-GLOBAL); %OWN EVENT 80047000 QUEUEDEC(CURRENT); % QUEUE 80048000 - QUEUEDEC(GLOBAL) % OWN QUEUE 80049000 + QUEUEDEC(GLOBAL); % OWN QUEUE 80049000140621PK END CASES OF MULTIPLE DECLARATORS; 80050000 GO ON; 80051000 LTYPE: IF SEEN > 1 THEN FLAG(801) ELSE SEEN ~ SEEN + 2; 80052000 @@ -8932,13 +8932,13 @@ COMMENT IT IS BOOLEAN TYPE QUEUE ALGORITHM; 80353260 LBARR: COMMENT BOOLEAN ARRAY; 80357000 IF T ~ VARIABLE(FP) < XTYPE THEN GO DOTTY ELSE GO ON; 80358000 LRARR: COMMENT REFERENCE ARRAY; 80358050 - IF T+VARIABLE(FP) < XTYPE THEN ELSE GO ON; 80358080 + IF T~VARIABLE(FP) < XTYPE THEN ELSE GO ON; 80358080 T~ T.[FF]; GO TO DOTTY; 80358090 LWVAR: COMMENT WORD VARIABLE; 80358500 T~VARIABLE(FP); 80358550 GO TO DOTTY; 80358600 LBVAR: COMMENT BOOLEAN VARIABLE; 80359000 - IF GT1~VARIABLE(FP)=RTYPE OR GT1=WTYPE THEN GO TO DOTTY; 80360000 + IF GT1~VARIABLE(FP)=BTYPE OR GT1=WTYPE THEN GO TO DOTTY; 80360000 FLAG(818); 80361000 GO WAY; 80362000 LTRUTH: COMMENT TRUTH VALUE-TRUE OR FALSE; 80364000 @@ -8998,7 +8998,7 @@ DOTTY: IF ELCLASS!PERIODV 80397000 BEGIN T~ REXP(TRUE); GO TO DOTTY END ELSE 80405000 IF T = PTRV THEN 80406000 LPTR: COMMENT POINTER-TYPE THINGS; 80407000 - BEGIN T~ REXP(TRUE); GO TO DOTTY END ELSE 80408000 + BEGIN T~ PEXP(TRUE); GO TO DOTTY END ELSE 80408000 LWARR: 80408500 LARITH: COMMENT ARITHMETIC-TYPE THINGS; 80409000 IF T ~ AEXP < XTYPE THEN GO WAY; 80410000