mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-01-13 15:17:03 +00:00
Commit debugging patches to B6500 ESPOL compiler as of 2014-06-26.
This commit is contained in:
Paul Kimpel
parent
7442fd56c9
commit
a18c850a00
@ -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
|
||||
<FIELD PART> ::= <FIELD IDENTIFIER> = <FIELD> 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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user