github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-02-15 19:46:23 +00:00
Code Issues Releases Wiki Activity
Files
27423c1fa57cd2fb3353268825ed3c19ea7fd3c9
retro-software.B5500-software/Mark-XVI/PATCHES/ESPOL-116.txt

1511 lines
119 KiB
Plaintext
Raw Blame History

?EXECUTE PATCH/MERGE
?FILE CARD = PMCARD
?DATA PMCARD
$@CARD CONFLICTS LISTI MERGE ZIP
$. 20 PATCHES FOR ESPOL
$*COMPILE ESPOL16/DISK ALGOL LIBRARY
$* ALGOL STACK = 1000
$*ALGOL FILE TAPE = SYMBOL/ESPOL16 DISK SERIAL
$* FILE LINE = LINE PRINT OR BACK UP
$* DATA CARD
$- ***** THIS LISTING SHOWS PATCHES IMPLEMENTED AT UCSC *****
$ TAPE LIST PRT CHECK
$ SET LISTA SINGLE FORMAT PRT XREF LIST TAPE
$#PATCH NUMBER 101 FOR ESPOL CONTAINS 2 CARD
IF T = INFO[GT1, GT2] THEN BEGIN 02877010
T:= 0; GO TO COMPLETE END; 02877020
$:THIS PATCH ELIMINATES A COMPILER LOOP CAUSED WHEN A FORMAL PARAMETER
$: IN A PROCEDURE DECLARATION IS NOT INDICATED IN THE SPECIFICIATION
$: LIST
$:**********************************************************************
$#PATCH NUMBER 102 FOR ESPOL CONTAINS 1 CARD
IF BUP ! BUP:=BUP- TAKE(BUP + 1).PURPT THEN 14088000
$: THIS PATCH ELEMINATES A COMPILER LOOP CAUSED WHEN THE FORMAL
$: PARAMETER IN A PROCEDURE DECLARATION IS FOLLOWED BY A COMMA.
$:
$:**********************************************************************
$#PATCH NUMBER 103 FOR ESPOL CONTAINS 2 CARDS
FOUND: 02315000
IF OPINX +1>OPARSIZE THEN FLAG(602) ELSE % TOO MANY USER OPTIONS 02316000
$: THIS PATCH CORRECTS AN INVALID INDEX CONDITION CAUSED WHEN TOO MANY
$: USER OPTIONS HAVE BEEN SPECIFIED.
$:**********************************************************************
$#PATCH NUMBER 104 FOR ESPOL CONTATNS 4 CARDS
FLAG (120); 07025000
FCR:= (LCR:=MKABS(CBUFF[9]))-9; 07025010
IF LISTER THEN PRINTCARD; 07025020
FCR:= (LCR:=MKABS(TBUFF[9]))-9 END; 07025030
$:THIS PATCH CORRECTS A PROBLEM WHERE A PATCH CARD IS LOST WHEN BEGIN
$:END PAIRS ARE NOT MATCHED AND PATCH CARD SEQUENCE NUMBERS ARE GREATER
$:THAN THE SEQUENCE NUMRER OF THE "END."CARD IN THE SOURCE FILE.
$:**********************************************************************
$#PATCH NUMBER 105 FOR ESPOL CONTAINS 11 CARDS
LABEL ENDREADTAPE, EOFT; 02201510
READ (TAPE, 10, TBUFF[*])[EOFT]; 02201750
LCR:=MKABS(TBUFF[9]); 02202000
GO TO ENDREADTAPE; 02202010
EOFT: 02202020
DEFINEARRAY[25]:="ND;END."& "E"[1:43:5]; 02202030
DEFINEARRAY[34]:="9999" & "9999"[1:25:23]; 02202040
TLCR:= MKABS(DEFINEARRAY[34]); 02202050
PUTSEQNO (DEFINEARRAY[33],TLCR-8); 02202060
TURNONSTOPLIGHT("%", TLCR-8); 02202070
ENDREADTAPE: 02202080
$: THIS PATCH CORRECTS AN EOF NO LABEL ENCOUNTERED WHEN THE SOURCE
$: "END" CARD IS PATCHED OVER AND THE PATCH DECK CONTAINS CARD SEQUENCE
$:NUMBERS GREATER THAN THE SEQUENCE NUMBER OF THE "END." CARD IN THE
$:SOURCE FILE.
$:**********************************************************************
$#PATCH NUMBER 106 FOR ESPOL CONTAINS 2 CARDS.
IF ERRNUM = 200 THEN I := 1/0; % SEGMENT TOO LARGE. 05107100
IF ERRNUM = 611 THEN I := 1/0; % ERRMAX EXCEEDED. 05107200
$: DATE 6/27/75 99990000
$: BY MWG - MSA CENTRAL. 99990100
$: THIS PATCH CAUSES ESPOL TO ABORT WITH A DIVIDE BY ZERO ERROR FOR 99990300
$: THE ERRORS "SEGMENT TOO LARGE" AND "ERROR LIMIT EXCEEDED". 99990400
$#PATCH NUMBER 107 FOR ESPOL CONTAINS 12 CARDS. 00000000
LABEL EXIT,NEXTCHK; 06315000
IF STEPI = RTBRKET THEN % WE WILL TAKE CARE OF THE RES06320000
IF (FIRST := ELBAT[I-3].ADDRESS) | 06320100
(THIRD := ELBAT[I-1].ADDRESS) ! 0 THEN 06320200
BEGIN 06320300
SECOND := 48 - THIRD; % SOURCE IS RIGHT JUST, 06320400
GO TO NEXTCHK; 06320500
END 06320600
ELSE % BAD BITS, FALL THROUGH TO ERROR. 06320700
ELSE % MAYBE A COLON. 06320800
IF ELCLASS = COLON THEN % 06320900
NEXTCHK: IF FIRST + THIRD { 48 THEN % SO FAR SO GOOD. 06327000
$: DATE 1/22/76 99990000
$: BY JTC - MSA CENTRAL 99990100
$: THIS PATCH ALTERS THE SYNTAX FOR THE CONCATENATE OPERATOR TO ALLOW 99990200
$: THE SECOND VALUE IN THE CONCAT, LIST TO BE OMITTED (THE 99990300
$: STARTING BIT NUMBER FN THE SOURCE WORD) IF THE RIGHT-MOST 99990400
$: N BITS ARE BEING SELECTED FROM THE SOURCE WORD. THUS 99990500
$: 99990600
$: I := I & J [2:20] 99990700
$: 99990800
$: IS THE SAME AS 99990900
$: 99991000
$: I := I & J [2:28:20] 99991100
$: 99991200
$: THIS IS ESPECIALLY CONVENIENT FOR ESPOL SINCE THIS ALLOWS SOME 99991300
$: FIELD DEFINES TO BE USED IN CONCATENATE EXPRESSIONS, THIS IF WE 99991400
$: HAVE THE FOLLOWING FIELD DEFINITION 99991500
$: 99991600
$: PBIT = [2:1] 99991700
$: 99991800
$: 99991900
$: WE CAN USE THE SAME FIELD DEFINITION IN A CONCATENATE STATEMENT 99992000
$: AS FOLLOWS 99992100
$: 99992200
$: DESC := DESC & 1 PBIT 99992300
$: 99992400
$: 99992500
$: NOTE: FUTURE PATCHES TO THE MCP AND INTRINSICS WILL TAKE ADVANTAGE 99992600
$: OF THIS PATCH. 99992700
$#PATCH NUMBER 108 FOR ESPOL CONTATNS 252 CARDS 00000000
XREFBIT = 26#, 01001170
BENDBIT = 27#, 01001171
USEROPINX = 28#; 01001172
XREF = OPTIONWORD.[XREFBIT:1] #, 01001461
BEND = OPTIONWORD.[BENDBIT:1]#, 01001462
DEFINE XREFINFO(XREFINFO1,XREFINFO2)= 01001750
XINFO[XREFINFO1,(XREFINFO2)DIV 2]#, 01001760
XMARK= IF XREF THEN XREFAY2[XREFPT-1].[1:1]-1#; 01001770
ARRAY XREFAY2[0:29],XREFAY1[0:10],XINFO[0:31,0:127]; 01007100
INTEGER XREFPT,XLUN; %DFB01007200
ARRAY BEGINSTACK[0:255]; INTEGER BSPOINT; 01007600
BOOLEAN DEFINING; 01007650
FILE DSK1 DISK SERIAL [20:816](2,10,30); 01561085
FILE DSK2 DISK SERIAL [20:450](2,30,30); 01561087
PROCEDURE BEGINPRINT; 02196510
BEGIN 02196520
STREAM PROCEDURE STUFF(N,L); VALUE N; 02196530
BEGIN 02196540
DI:=L; DS:=8 LIT " "; SI:=L; DS:=13 WDS; 02196550
SI:=LOC N; DS:=8 DEC; 02196560
END; 02196570
STUFF(BEGINSTACK[BSPOINT],LIN); 02196580
IF NOHEADING THEN DATIME; WRITELINE; 02196590
END BEGINPRINT; 02196610
CARDNUMBER:=CONV(INFO[LASTSEQROW,LASTSEQUENCE-1],5,8); 02214260
$ 02228000
CARDNUMBER:= IF SEQTOG THEN TOTALNO+ADDVALUE ELSE 02234800
CONV(INFO[LASTSEQROW,LASTSEQUENCE-1],5,8); 02234900
IF Q = "4XREF0" THEN BEGIN SWITCHIT(XREFBIT); IF BOOLEAN(XMODE) THEN 02419100
DEFINING := BOOLEAN(REAL(DEFINING)&L[1:47:1]); 02419110
GO AGAIN END; 02419120
IF Q = "4BEND0" THEN BEGIN SWITCHIT(BENDBIT); GO AGAIN END; 02419200
IF XREF THEN 02882100
IF GT1!1 THEN 02882200
BEGIN 02882300
IF XREFPT=30 THEN 02882400
BEGIN 02882500
WRITE (DSK2,30,XREFAY2[*]); 02882600
XREFPT ~ 0; 02882700
END; 02882800
XREFAY2[XREFPT]-CARDNUMBER&XREFINFO(GT1,GT2)[09:36:12]; 02882900
XREFPT ~ XREFPT+1; 02882910
END; 02882920
IF NOT DEFINING THEN 02910100
IF T.CLASS = BEGINV THEN 02910200
BEGINSTACK[BSPOINT:=BSPOINT+1]:=CARDNUMBER ELSE 02910300
IF T.CLASS = ENDV THEN 02910400
BEGIN 02910500
IF LISTER THEN IF BEND THEN BEGINPRINT; 02910600
BSPOINT:= BSPOINT - REAL(BSPOINT > 0); % PREVENT INVALID INDEX 02910700
END; 02910800
"4BEND0",0, % 50, 51 09251285
"4XREF0",0, % 52, 53 09251286
STREAM PROCEDURE XREFMOVE(S,C,SN,SQ,L,D); %DFB13301100
VALUE C,L; %DFB13301130
BEGIN %DFB13301160
DI:=D; %DFB13301190
DS:= 8 LIT" "; %DFB13301220
SI:=D; %DFB13301250
DS:=8 WDS; %DFB13301280
DI:=D; %DFB13301310
SI:=S; %DFB13301340
SI:=SI+3; %DFB13301370
DS:=C CHR; %DFB13301400
DI:= D; %DFB13301430
DI:=DI+60; %DFB13301460
SI:=SN; %DFB13301490
DS:=4 DFC; %DFB13301520
SI:=SQ %DFB13301610
DS:=8 DFC; %DFB13301640
SI:=LOC L; %DFB13301670
DS:=WDS; %DFB13301700
END; %DFB13301730
IF XREF AND (NOT PTOG OR STREAMTOG) THEN 13310100
BEGIN %DFB13310200
XREFMOVE(ACCUM[1],COUNT,SGNO ,CARDNUMBER, %DFB13310300
XREFINFO(NEXTINFO.LINKR,NEXTINFO.LINKC):=XLUNI:=XLUN+L, %DFB13310400
XREFAY1); 13310450
WRITE(DSKL,10,XREFAY1[*]); %DFB13310500
END; %DFB13310600
IF XREF AND PTOG THEN 13341200
XREFPT:=XREFPT-REAL(ELBAT[I]!0); % GET RID OF LAST CREF 13341300
$VOIDT 13366105 13366001
DEFINING := BOOLEAN(REAL(DEFINING) & 1[47:47:1]); 14255500
DEFINING := BOOLEAN(REAL(DEFINING) & 0[47:47:1]); 14268500
L1: 15092000
XMARK; 15092010
IF TALL.FORMALNAME THEN 15092020
ENDOFITALL: 16495210
IF XREF OR DEFINING.[1:1] THEN 16495300
BEGIN DEFINE LSS = <#,GTR=>#,NEQ= !#,LEQ ={=#; %DFB17002000
DEFINE XREFINFO =INFO#; 17002005
CLOSE(CARD,RELEASE); 17002490
CLOSE(TAPE,RELEASE); 17002500
LOCK(NEWTAPE); 17002510
WRITE(LINE[PAGE]); 17002520
FOR XREFPT:=XREFPT STEP 1 UNTIL 29 DO XREFAY2[XREFPT]:=100000000; 17003000
WRITE(DSK2,30,XREFAY2[*]); %DFB17004000
TOTALNO~REAL(XLUN >500)|1000+3000+XLUN; 17004500
XREFPT~XLUN~0; %DFB17004600
BEGIN %DFB17005000
BOOLEAN PROCEDURE INPUT1(A); %DFB17006000
ARRAY A[0]; %DFB17007000
BEGIN %DFB17008000
LABEL L,EOF; %DFB17009000
READ(DSK1,10,A[*])[EOF]; %DFB17010000
GO TO L; %DFB17011000
EOF: INPUT1:=TRUE; %DFB17012000
REWIND(DSK1); %DFB17013000
L: %DFB17014000
END; %DFB17015000
PROCEDURE OUTPUT1(B,A); %DFB17016000
VALUE B; %DFB17017000
BOOLEAN B; %DFB17018000
ARRAY A[0]; %DFB17019000
BEGIN %DFB17020000
IF B THEN %DFB17021000
REWIND(DSK1) %DFB17022000
ELSE %DFB17023000
BEGIN %DFB17024000
A[9]:=XREFINFO(A[9].LINKR,A[9].LINKC):=XLUN:=XLUN+1;%DFB17025000
WRITE(DSK1,10,A[*]); %DFB17026000
END; %DFB17027000
END; %DFB17028000
BOOLEAN STREAM PROCEDURE COMPS1(A,B); %DFB17029000
BEGIN %DFB17030000
SI:=A; %DFB17031000
DI:=B; %DFB17032000
IF 63 SC LSS DC THEN TALLY:=1; %DFB17033000
COMPS1:=TALLY; %DFB17034000
END; %DFB17035000
STREAM PROCEDURE HVS1(A); %DFB17036000
BEGIN %DFB17037000
DI:=A; %DFB17038000
DS:=8 LIT "9"; %DFB17039000
SI:=A; %DFB17040000
DS:= 7 WDS; %DFB17041000
END; %DFB17042000
BOOLEAN PROCEDURE COMP1(A,B); %DFB17042100
ARRAY A,B[0]; %DFB17042200
COMP1:=COMPS1(A,B); %DFB17042300
PROCEDURE HV1(A); %DFB17042400
ARRAY A[0]; %DFB17042500
HVS1(A); %DFB17042600
XLUN:=0; %DFB17043000
REWIND(DSK1); %DFB17044000
SORT(OUTPUT1,INPUT1,0,HV1,COMP1,10,TOTALNO ); %DFB17045000
END; %DFB17046000
BEGIN %DFB17047000
STREAM PROCEDURE PUP(S,D); %DFB17048000
BEGIN %DFB17049000
SI:=S; %DFB17050000
DI:=D; %DFB17051000
DS:=7 WDS; 8(DS:=8 LIT " "); 17052000
$VOIDT 17054551 17053000
END; %DFB17055000
STREAM PROCEDURE PUP1(S,D); 17055100
BEGIN 17055200
SI:=S; SI:=SI+32; SI:=SI+28; 17055300
DI:=D; DS:=2 LIT " "; DS:=4 CHR; DS:=2 LIT " *"; 17055400
DS:=9 CHR; DS:=LIT "*"; DS:= 38 LIT " "; 17055500
END; 17055550
STREAM PROCEDURE PUP2(STAR,S,C,D); 17056000
VALUE STAR,S,C; 17056500
BEGIN %DFB17057000
DI:=D; %DFB17058000
C(DI:=DI+10); 17059000
STAR(DI~DI-1; DS~LIT"*"); 17059100
SI:=LOC S; %DFB17060000
DS:= 8 DEC; %DFB17061000
DS:=LIT " "; STAR(DI:=DI-1; DS:=LIT "*"); 17061100
END; %DFB17062000
STREAM PROCEDURE BLANKET(A); %DFB17063000
BEGIN %DFB17064000
DI:=A; %DFB17065000
DS:= 8 LIT " "; %DFB17066000
SI:=A; %DFB17067000
DS:= 14 WDS; %DFB17068000
END; %DFB17069000
ARRAY PAY[0:17]; %DFB17069500
BOOLEAN PROCEDURE INPUT2(A); %DFB17070000
ARRAY A[0]; %DFB17071000
BEGIN %DFB17072000
LABEL L,EOF; %DFB17073000
DEFINE I=XLUN#; %DFB17073100
IF XREFPT:=XREFPT+1=30 THEN %DFB17074000
BEGIN %DFB17075000
READ(DSK2,30,XREFAY2[*])[EOF]; %DFB17076000
XREFPT:=0; %DFB17077000
END; %DFB17078000
IF ( I :=XREFAY2[XREFPT]).[21:27] GTR 99999999 THEN GO TO EOF;17079000
A[0]:= I&XREFINFO(I.[ 9:4],I.[13:8])[ 9:36:12]; %DFB17080000
GO TO L; %DFB17081000
EOF: INPUT2:=TRUE; %DFB17082000
BLANKET(PAY); %DFB17083000
XREFAY1[9]:=-1; XREFPT~0; %DFB17084000
L: %DFB17085000
END; %DFB17086000
PROCEDURE OUTPUT2(B,A); %DFB17087000
VALUE B; %DFB17088000
BOOLEAN B; %DFB17089000
ARRAY A[0]; %DFB17090000
BEGIN DEFINE PRINTER=LINE#; %DFB17091000
LABEL LOOP,EOF2; 17091100
OWN BOOLEAN B2; 17091110
LABEL DUN; 17091200
IF NOT B2 THEN 17091210
IF B THEN %DFB17092000
WRITE(PRINTER,15,PAY[*]) %DFB17093000
ELSE %DFB17094000
IF LASTADDRESS ! LASTADDRESS~A[0] AND LASTADDRESS.[9 :121! 0 THEN 17094100
BEGIN %DFB17095000
LOOP: %DFB17095050
IF A[0].[ 9:12] GTR XREFAY1[9] THEN %DFB17095100
BEGIN %DFB17095200
$ 17096000
WRITE(PRTNTER,15,PAY[*]); 17097000
$ 17098000
BLANKET(PAY ); XREFPT:=0; 17099000
READ(DSK1,10,XREFAY1[*])[EOF2]; 17099100
PUP(XREFAY1,PAY); 17099200
WRITE(PRINTER[DBL]); 17099900
WRITE(PRINTER,10,PAY[*]); %DFB17100000
PUP1(XREFAY1,PAY); 17100100
WRITE(PRINTER[DBL],10,PAY[*]); 17100200
BLANKET(PAY); %DFB17101000
GO LOOP; %DFB17101100
END; %DFB17102000
DUN: 17102100
PUP2(LASTADDRESS < 0,LASTADORESS.[21:27],17103000
XREFPT,PAY[L]); 17103010
IF XREFPT:=XREFPT+1 = 11 THEN 17103100
BEGIN %DFB17103200
XREFPT:=0; %DFB17103300
WRITE(PRINTER,15,PAY[*]); %DFB17103400
BLANKET(PAY); %DFB17103500
END; %DFB17103600
END; %DFB17110000
IF FALSE THEN EOF2: B2:=TRUE; 17110500
END; %DFB17111000
PROCEDURE HV2(A); %DFB17112000
ARRAY A[0]; %DFB17113000
A[0]:=549755813887; %DFB17114000
BOOLEAN PROCEDURE COMP2(A,B); %DFB17115000
ARRAY A,B[0]; %DFB17116000
COMP2~ ABS(A[0]) LEQ ABS(B[0]); 17117000
XREFPT:=29; REWIND(DSK2); %DFB17118000
SORT(OUTPUT2,INPUT2,0,HV2,COMP2,1,TOTALNO ); %DFB17119000
END; %DFB17120000
END; %DFB17121000
END MAIN BLOCK; 17121500
END. %DFB17122000
$: BY JTC - MSC DETROIT 99990000
$:**********************************************************************99990100
$#PATCH NUMBER 110 FOR ESPOL CONTAINS 503 CARDS 00000000
$ VOIDT 01001771 01001750
%***********************************************************************01007005
% X R E F S T U F F 01007010
%***********************************************************************01007015
% 01007020
ARRAY 01007025
XREFAY2[0:29], % ARRAY OF ONE WORD REFERENCE RECORDS. 01007030
% THE LAYOUT OF EACH WORD IS 01007035
% 01007040
% .[1:5] TYPE OF REFERENCE 01007045
% = 0 FOR FORWARD DECL 01007050
% = 1 FOR LABEL OCCURENCE 01007051
% = 2 FOR NORMAL DECL 01007055
% = 4 FOR NORMAL REFERENCE 01007060
% = 5 FOR ASSIGNMENT 01007065
% 01007070
% NOTE: THE LOWER ORDER BIT 01007075
% OF THIS FIELD IS ON 01007080
% IF YOU WANT STARS 01007085
% AROUND THIS REFERENCE 01007090
% IN THE XREF 01007095
% 01007100
% .[6:15] IDENTIFIER ID. NO. 01007105
% THIS IS A UNIQUE NUMBER THAT 01007110
% IS ASSIGNED WHEN THE 01007115
% IDENTIFIER IS ENCOUNTERE 01007120
% FOR THE FIRST TIME. 01007125
% 01007130
% .[21:27] SEQUENCE NUMBER 01007135
% 01007140
XREFAY1[0:9], % RECORD BUFFER AREA FOR WRITING OUT THE 01007145
% NAME INFORMATION RECORDS, ONE RECORD 01007150
% IS WRITTEN FOR EACH IDENTIFIER IN THE SYMBOL 01007155
% TABLE WHEN THE IDENTIFIER IS PURGED FROM THE 01007160
% SYMBOL TABLE, I.E., WHEN LEAVING THE BLOCK 01007165
% IN WHICH THE IDENTIFIER IS DECLARED. 01007170
% 01007175
% THE LAYOUT OF EACH RECORD IS 01007180
% 01007185
% WORDS 0-7 THE IDENTIFIER WITH BLANK 01007190
% FILL ON THE RIGHT 01007195
% 01007200
% WORD 8 01007205
% .[21:12] SEGMENT NUMBER IN WHICH 01007210
% THIS IDENTIFIER WAS DECLARED01007215
% 01007220
% .[33:15] IDENTIFIER ID. NO. 01007225
% 01007230
% WORD 9 ELBAT WORD 01007235
% 01007240
XINFO[0:31,0:0127]; % THIS ARRAY CONTAINS ONE ENTRY FOR EACH ENTRY 01007245
% IN THE INFO TABLE. IF YOU HAVE THE INDEX 01007250
% OF THE ELBAT WORD FOR AN IDENTIFIER IN 01007255
% THE INFO TABLE YOU CAN FIND THE XINFO WORD 01007260
% FOR THE IDENTIFIER BY REFERRING TO: 01007265
% 01007270
% XINFO[INDEX.LINKR,INDEX.LINKC DIV 2] 01007275
% 01007280
% EACH ENTRY CONTAINS: 01007285
% 01007290
% .[21:12] SEGMENT NUMBER IN WHICH 01007295
% THIS IDENTIFIER WAS DECL01007300
% 01007305
% .[33:15] IDENTIFIER ID. NO. 01007310
% IF THIS ID. NO. IS ZERO 01007315
% THEN XREF WAS NOT ON 01007320
% AT THE TIME THE IDENT 01007325
% WAS DECLARED AND ALL 01007330
% FUTURE REFERENCES WILL 01007335
% BE DISCARDED. 01007340
% 01007345
INTEGER % 01007350
XREFPT, % CONTAINS INDEX OR NEXT AVAILABLE SLOT IN 01007355
% XREFAY2. WHEN THIS BECOMES GREATER 01007360
% THAN 30 THE CURRENT ARRAY IS DUMPED TO DISK 01007365
% AND XREFPT IS RESET TO ZERO. 01007370
% 01007375
XLUN; % THIS VARIABLE CONTROLS THE ASSIGNING OF 01007380
% ID. NO. TO IDENTIFIERS. IT IS INCREMENTED 01007385
% EACH TIME A NEW IDENTIFIER IS ENCOUNTERED. 01007390
% 01007395
DEFINE % 01007400
SEGNOF = [21:12]#, % FIELDS IN XINFO ENTRIES AND WORD 8 OF 01007405
IDNOF = [33:15]#, % IDENTIFIER RECORDS. 01007410
% 01007415
TYPEREF = [1:5]#, % FIELDS OF REFERENCE WORDS 01007420
REFIDNOF =[6:5]#, % 01007425
SEQNOF = [21:27]#, % 01007430
% 01007435
XREFIT(INDEX,SEQNO,REFTYPE) = % DEFINE TO ADD INFO TO REF TABLE 01007440
BEGIN IF XREF THEN CROSSREFIT(INDEX,SEQNO,REFTYPE); END#, 01007445
% 01007450
XMARK(REFTYPE) = % DEFINE TO CHANGE LAST ENTRY IN REF TABLE TO A 01007455
BEGIN IF XREF THEN XREFAY2[XREFPT-1].TYPEREF := REFTYPE END#, 01007460
% 01007465
XREFDUMP(INDEX) = % DEFINE TO DUMP SYMBOL TABLE INFO FOR IDENTIFIER01007470
BEGIN IF DEFINING.[1:1] THEN CROSSREFDUMP(INDEX); END#, 01007475
% 01007480
XREFINFO(INDEX) = % DEFINE TO TRANSLATE INFO ROW AND COLUMN TO 01007481
XINFO[(INDEX).LINKR,(INDEX).LINKC DIV 2]#, % XINFO ROW AND COL 01007482
% 01007483
FORWARDREF = 0#, % DEFINES FOR DIFFERENT REFERENCE TYPES 01007485
LBLREF = 1#, % 01007486
DECLREF = 2#, % 01007490
NORMALREF = 4#, % 01007495
ASSIGNREF = 5#; % 01007500
$VOIDT 01723000
%***********************************************************************02001605
% 02001610
% MISCELLANEOUS CROSS REFERENCE PROCEDURES 02001615
% 02001620
$ VOIDT 02001831 02001625
%***********************************************************************02001630
% 02001635
PROCEDURE CROSSREFIT(INDEX,SEQNO,REFTYPE); 02001640
VALUE INDEX,SEQNO,REFTYPE; 02001645
REAL INDEX,SEQNO,REFTYPE; 02001650
BEGIN 02001655
IF XREFINFO(INDEX).IDNOF ! 0 THEN % SAVE 02001660
BEGIN 02001665
IF XREFPT > 29 THEN % NO SLOTS LEFT IN ARRAY. WRITE IT OUT. 02001670
BEGIN 02001675
WRITE(DSK2,30,XREFAY2[*]); 02001680
XREFPT := 0; 02001685
END; 02001690
XREFAY2[XREFPT] := SEQNO & REFTYPE TYPEREF & XREFINFO(INDEX) 02001695
REFIDNOF; 02001700
XREFPT := XREFPT + 1; % EVEN THOUGH THE ARRAY MAY BE FULL NOW WE 02001705
% CANT WRITE IT OUT BECAUSE SOME ROUTINES 02001710
% WILL LOOK BACK AT THE ENTRY WE JUST PUT 02001715
% IN AND FIX IT UP. 02001720
END; 02001725
END OF CROSSREFIT; 02001730
% 02001735
PROCEDURE CROSSREFDUMP(INDEX); 02001740
VALUE INDEX; 02001745
REAL INDEX; 02001750
BEGIN 02001755
STREAM PROCEDURE MOVEXREFINFO(S,D,N); 02001760
VALUE N; 02001765
BEGIN 02001770
SI := D; DI := D; DS := 8 LIT " "; DS := 7 WDS; % BLANK RECORD 02001775
SI := S; SI:= SI + 3; DI := D; DS := N CHR; % MOVE IDENTIFIER 02001780
END OF MOVEXREFINFO; 02001785
% 02001790
IF XREFINFO(INDEX).IDNOF ! 0 THEN % DUMP IT 02001795
BEGIN 02001800
MOVEXREFINFO(INFO[INDEX.LINKR,INDEX.LINKC+1],XREFAY1[*], 02001805
TAKE(INDEX+1).[12:6]); 02001810
XREFAY1[8] := XREFINFO(INDEX); 02001815
XREFAY1[9] := TAKE(INDEX); % ELBAT WORD 02001820
WRITE(DSK1,10,XREFAY1[*]); 02001821
XREFINFO(INDEX) := 0; 02001822
END; 02001825
END OF CROSSREFDUMP; 02001830
$VOIDT 02882921 02882099
IF GT1 !1 AND NOT MACROID THEN % NOT RESERVED WORD 02882100
XREFIT(T.LINK,CARDNUMBER,NORMALREF); % BUILD XREF ENTRY 02882200
XMARK(LBLREF); % THIS WILL SORT AHEAD OF DECLARATION 07598100
% WHEN WE GET AROUND TO THE XREF. 07598200
XMARK(ASSIGNREF); % FILL STATEMENT 07660600
XMARK(ASSIGNREF); % FOR STATEMENT 08178100
XREFDUMP(POINTER); % DUMP XREF INFO 13283500
$ VOIDT 13301731 13301099
IF XREF THEN % MAKE DECLARATION REFERENCE 13310050
% IF (ACCUM[0].CLASS ! DEFINEDID OR NOT 13310075
% BOOLEAN(ACCUM[0].FORMAL)) THEN % NOT DEFINE PARAMETER 13310080
$ VOIDT 13310601 13310099
BEGIN 13310100
XREFINFO(NEXTINFO) := 13310200
IF SPECTOG THEN 13310300
XREFINFO(ELBAT[I]) 13310350
ELSE 13310400
((XLUN := XLUN + 1) & SGNO SEGNOF); 13310450
IF SPECTOG THEN % JUST GO BACK AND FIX UP XREF ENTRY 13310500
XMARK(DECLREF) 13310525
ELSE 13310550
XREFIT(NEXTINFO,CARDNUMBER,IF PTOG AND NOT STREAMTOG 13310575
THEN NORMALREF ELSE DECLREF); 13310580
END 13310600
% ELSE % DEFINE PARAMETERS - DONT CROSS REF. 13310700
% XREFINFO(NEXTINFO) := 0 13310750
ELSE 13310800
IF DEFINING.[1:1] THEN % WE ARE DOING XREFING 13310900
XREFINFO(NEXTINFO) := 0; 13310950
IF XREF AND NOT SPECTOG THEN % ERASE PREVIOUS XRFF ENTRY. 13341200
XMARK(DECLREF); % PROCEDURE DECLARED FORWARD: MARK LAST 14312100
% XREF ENTRY AS A DECLARATION. 14312101
XREFDUMP(J); % DUMP XREF INFO 14445100
XREFIT(PROINFO,0,FORWARDREF); % WE NEED THIS SO WE CAN FIND 14469100
% THE FORWARD DECL. DURING XREF 14469101
REAL REMEMBERSEQNO; % REMEMBERS SEQUENCE NUMRER OR VARIABLE 15075550
% ON LEFT HAND SIDE OF ASSIGNMENT SO WE 15075551
% CAN XREF IT CORRECTLY. 15075552
REMEMBERSEQNO := CARDNUMBER; 15085100
XMARK(ASSIGNREF); % ASSIGNMENT TO SIMPLE VARIABLE. 15091100
$VOIDT 15092010
BEGIN 15113100
BEGIN 15115000
ERR(201); % PARTIAL WORD NOT LEFT-MOST 15115100
GO TO EXIT; 15115200
END; 15115300
XREFIT(TALL,REMEMBERSEQNO,ASSIGNREF); 15116000
GO TO L1; 15116100
END; 15116200
JAZZ: XREFIT(TALL,REMEMBERSEQNO,ASSIGNREF); STEPIT; AEXP; 15233012
XREFIT(TALL,REMEMBERSEQNO,ASSIGNREF); % ASSIGNMENT TO15301100
% SUBSCRIPTED VARIABLE. 15301200
IF STEPI = ASSIGNOP THEN 15342000
IF P1 = FS THEN % PARTIAL WORD IS LEFT-MOST 15342100
BEGIN 15342200
XREFIT(TALL,REMEMBERSEQNO,ASSIGNREF); % PARTIAL15342300
% WORD ASSIGNMENT TO SUBSCR. VAR. 15342400
GO TO LAST; 15342500
END 15342600
XMARK(LBLREF); % MARK LABEL OCCURENCE FOR XREF 16159100
XMARK(ASSIGNREF); 16318500
IF (XREF OR DEFINING.[1:1]) AND XLUN > 0 THEN 16495300
DEFINE XREFINFO(INDEX) = INFO[((INDEX).CF DIV 2).[33:7], 17002005
((INDEX).CF DIV 2).LINKC]#, 17002006
CF = [33:15]#, 17002007
FF = [18:15]#, 17002008
NEWID[INDEX] = (IF BOOLEAN(INDEX) THEN XREFINFO(INDEX).FF 17002009
ELSE XREFINFO(INDEX).CF)#; 17002010
ARRAY TIMINGS[0:2,0:3]; 17002012
PROCEDURE SAVETIMES(I); 17002015
VALUE I; INTEGER I; 17002020
BEGIN 17002025
INTEGER J; 17002030
FOR J := 1 STEP 1 UNTIL 3 DO 17002035
TIMINGS[I,J] := TIME(J); 17002040
END; 17002045
PROCEDURE UPDATETIMES(I); 17002050
VALUE I; INTEGER I; 17002055
BEGIN 17002060
INTEGER J; 17002065
FOR J := 1 STEP 1 UNTIL 3 DO 17002070
TIMINGS[I,J] := TIME(J) - TIMINGS[I,J]; 17002075
END; 17002080
SAVETIMES(0); % SAVE TIMES FOR START OF IDENTIFIER SORT. 17002525
TOTALNO := XLUN; % REMEMBER NUMBER OF IDENTIFIERS. 17004500
FOR I := 0 STEP 1 UNTIL 8191 DO 17004700
PUT(0,I); 17004710
BEGIN 17022000
REWIND(DSK1); 17022100
UPDATETIMES(0); % UPDATE TIMES FOR IDENTIFIER SORT. 17022200
TIMINGS[0,0] := XLUN; % NUMBER OF IDENTIFIERS SORTED. 17022300
END 17022400
IF BOOLEAN(A[8]) THEN 17025000
XREFINFO(A[8]).FF := XLUN := XLUN + 1 17025100
ELSE 17025200
XREFINFO(A[8]).CF := XLUN := XLUN + 1; 17025300
A[8].IDNOF := XLUN; 17025400
IF 63 SC < DC THEN 17033000
TALLY := 1 17033100
ELSE 17033200
BEGIN 17033300
SI := A; 17033400
DI := B; 17033500
IF 63 SC = DC THEN 17033600
TALLY := 2; 17033700
END; 17033800
DS := 8 LIT 3"777777777"; % ID.NO, AND SEQ.NO. FIELDS 17041100
IF REAL(COMP1:=COMPS1(A,B)) = 2 THEN % IDS EQUAL 17042300
COMP1 := A[8].IDNOF < B[8].IDNOF; 17042350
SORT(OUTPUT1,INPUT1,0,HV1,COMP1,10,IF TOTALNO < 1000 THEN 17045000
7000 ELSE 10000); 17045100
$ VOIDT 17069001 17047001
ARRAY IDTYPE[0:(IDMAX+3)|4-1]; 17047100
STREAM PROCEDURE SETUPHEADING(S,D,SEG,SEQNO,FWDTOG,LBLTOG, 17047200
FWDSEQNO,TYPE,OWNTOG,PARAMTOG, 17047300
VALTOG); 17047350
VALUE SEG,SEQNO,FWDTOG,LBLTOG,FWDSEQNO,OWNTOG,PARAMTOG, 17047400
VALTOG; 17047450
BEGIN 17047500
SI := S; 17047700
DI := D; 17047800
63 (IF SC = " " THEN JUMP OUT ELSE DS := CHR); 17047900
DS := 6 LIT " -- "; 17048000
OWNTOG (DS := 4 LIT "OWN "); 17048100
SI := TYPE; 17049300
32 (IF SC = "." THEN JUMP OUT ELSE DS := CHR); 17049400
PARAMTOG (DS := 6 LIT " -- "; 17049410
DS := 4 LIT "NAME"; 17049420
VALTOG (DI := DI - 4; DS := 5 LIT "VALUE"); 17049430
DS := 10 LIT " PARAMETER"); 17049440
DS := 18 LIT " -- DECLARED AT "; 17049500
SI := LOC SEQNO; 17050400
DS := 8 DEC; 17050500
FWDTOG (DS := 17 LIT " -- FORWARD AT "; 17050600
SI := LOC FWDSEQNO; 17050700
DS := 8 DEC); 17050800
LBLTOG (DS := 16 LIT " -- OCCURS AT "; 17050900
SI := LOC FWDSEQNO; 17051000
DS := 8 DEC); 17051100
END OF SETUPHEADING; 17051200
17051300
STREAM PROCEDURE ADDASEQNO(SEQNO,N,STARS,D); 17051400
VALUE SEQNO,N,STARS; 17051500
BEGIN 17051600
DI := D; 17051700
DI := DI + 8; 17051800
N (DI := DI + 10); 17051900
STARS(DI := DI - 1; DS := LIT "*"); 17052000
SI := LOC SEQNO; 17052100
DS := 8 DEC; 17052200
DS := LIT " "; 17052300
STARS (DI := DI - 1; DS := LIT "*"); 17052400
END; 17052500
STREAM PROCEDURE BLANKET(D); 17052600
BEGIN 17052700
DI := D; 17052800
DS := 8 LIT " "; 17052900
SI := D; 17053000
DS := 16 WDS; 17053100
END OF BLANKET; 17053200
PROCEDURE PRINTXREFSTATISTICS; 17053300
BEGIN 17053400
SWITCH FORMAT STATS := 17053500
(///, "CROSS REFERENCE STATISTICS", /, 17053600
"----- --------- ----------", /), 17053700
("PHASE ONE - SORT",I6," IDENTIFIERS"), 17053800
("PHASE TWO - SORT",I7," REFERENCES"), 17053900
("PHASE THREE - PRINT CROSS REFERENCE (",I7," LINES)"), 17054000
(X5,I4,":",2I1," ELAPSED TIME (MIN:SEC)"), 17054100
(X5,I4,":",2I1," PROCESSOR TIME"), 17054200
(X5,I4,":",2I1," I/O TIME",/); 17054300
INTEGER I,J,K; 17054400
WRITE(LINE,STATS[0]); 17054500
FOR I := 1 STEP 1 UNTIL 2 DO 17054600
BEGIN 17054700
WRITE(LINE,STATS[I+1],TIMINGS[I,0]); 17054800
FOR J := 1 STEP 1 UNTIL 3 DO 17054900
BEGIN 17055000
K := (TIMINGS[I,J] + 30) DIV 60; % ROUND TO NEAREST SECON17055010
WRITE(LINE,STATS[J+3],K DIV 60,(K:=K MOD 60) DIV 10, 17055020
K MOD 10); 17055025
END; 17055030
END; 17055100
END PRINTXREFSTATISTICS; 17055200
DEFINE REFCOUNT = TIMINGS[1,0]#; % NUMBER OF REFERENCES SORTED.17069300
BOOLEAN FIRSTTIME; % TRUE ON FIRST CALL OF OUTPUT PROCEDURE. 17069400
REAL LASTADDRESS; 17069600
DEFINE I = LASTADDRESS#; 17073100
A[0] := I & NEWID[I.REFIDNOF] REFIDNOF; 17080000
REFCOUNT := REFCOUNT + 1; 17080100
XREFAY1[8] := XREFPT := LASTADDRESS := 0; 17084000
FILL IDTYPE[*] WITH 17084010
"UNKNOWN. ", % 0 17084020
"STREAM LABEL. ", % 1 17084030
"STREAM VARIABLE. ", % 2 17084040
"DEFINE. ", % 3 17084050
"LIST. ", % 4 17084060
"FORMAT. ", % 5 17084070
"SWITCH FORMAT. ", % 6 17084080
"REAL SUBROUTINE. ", % 7 17084090
"SUBROUTINE. ", % 8 17084100
"SWITCH LABEL. ", % 9 17084110
"PROCEDURE. ", % 10 17084120
"INTRINSIC. ", % 11 17084130
"STREAM PROCEDURE. ", % 12 17084140
"BOOLEAN STREAM PROCEDURE. ", % 13 17084150
"REAL STREAM PROCEDURE. ", % 14 17084160
"INTEGER STREAM PROCEDURE. ", % 15 17084170
"INTEGER STREAM PROCEDURE. ", % 16 17084180
"BOOLEAN PROCEDURE. ", % 17 17084182
"REAL PROCEDURE. ", % 18 17084184
"INTEGER PROCEDURE. ", % 19 17084186
"INTEGER PROCEDURE. ", % 20 17084188
"BOOLEAN. ", % 21 17084190
"REAL. ", % 22 17084200
"INTEGER. ", % 23 17084210
"INTEGER. ", % 24 17084220
"BOOLEAN ARRAY. ", % 25 17084230
"REAL ARRAY. ", % 26 17084240
"INTEGER ARRAY. ", % 27 17084250
"INTEGER ARRAY. ", % 28 17084260
" ", % 29 17084270
"NAME. ", % 30 17084280
"INTEGER NAME. ", % 31 17084290
"LABEL. "; % 32 17084300
LABEL EOF2, SKIP; 17091100
OWN BOOLEAN B2, FWDTOG, LBLTOG, WAITINGFORFWDREF; 17091110
DEFINE MATCH(A,B) = REAL(BOOLEAN(A) EQV BOOLEAN(B)) = 17091115
REAL(NOT FALSE)#; 17091116
REAL I; 17091120
DEFINE LINECOUNT = TIMINGS[2,0]#; % NUMBER OR LINES PRINTED. 17091140
OWN REAL FWDSEQNO; 17091150
IF FIRSTTIME THEN % PRINT HEADINGS AND SAVE TIMINGS. 17091155
BEGIN 17091160
FIRSTTIME := FALSE; 17091162
TIME1 := TIME(1); 17091165
DATIME; 17091170
UPDATETIMES(1); 17091175
SAVETIMES(2); % SAVE TIMES FOR START OF XREF PRINT. 17091180
END; 17091200
$VOIDT 17111001 17091201
IF NOT B2 THEN 17091210
IF B THEN % END OF SORT - LIST OUT REST OF SEQ. NO. 17091300
IF XREFPT ! 0 THEN % WE GOT SOME TO LIST OUT 17091400
BEGIN 17091500
WRITE(LINE[DBL],15,PAY[*]); 17091510
LINECOUNT := LINECOUNT + 1; 17091520
END 17091530
ELSE % NOTHING TO LIST OUT 17091600
ELSE % NOT END OF SORT 17091700
IF NOT MATCH(LASTADDRESS,A[0]) AND A[0].REFIDNOF ! 0 AND 17091800
A[0].REFIDNOF } XREFAY1[8].IDNOF THEN 17091900
IF A[0].TYPEREF = FORWARDREF THEN % 17092000
WAITINGFORFWDREF := TRUE 17092100
ELSE 17092200
IF A[0].TYPEREF = LBLREF THEN % 17092300
BEGIN 17092400
LBLTOG := TRUE; 17092500
FWDSEQNO := A[0].SEQNOF; 17092600
END 17092700
ELSE 17092800
IF A[0].TYPEREF = DECLREF THEN 17092900
IF WAITINGFORFWDREF THEN % THIS MUST BE IT 17093000
BEGIN 17093100
WAITINGFORFWDREF := FALSE; 17093200
FWDTOG := TRUE; 17093300
FWDSEQNO := A[0].SEQNOF; 17093400
END 17093500
ELSE % ITS A NORMAL DECLARATION - NOT FORWARD 17093600
BEGIN 17093700
IF A[0].REFIDNOF > XREFAY1[8].IDNOF THEN 17093800
DO 17093900
READ(DSK1,10,XREFAY1[*]) [EOF2] 17093950
UNTIL 17094000
A[0].REFIDNOF { XREFAY1[8].IDNOF; 17094050
IF A[0]. REFIDNOF < XREFAY1[8].IDNOF THEN 17094100
GO TO SKIP; 17094150
IF XREFPT > 0 THEN % THERE IS STUFF TO PRINT 17094200
BEGIN 17094240
IF SINGLTOG THEN 17094250
WRITE(LINE,15,PAY[*]) 17094300
ELSE 17094350
WRITE(LINE[DBL],15,PAY[*]); 17094400
LINECOUNT := LINECOUNT + L; 17094410
END 17094420
ELSE 17094450
IF NOT SINGLTOG THEN 17094500
WRITE(LINE); 17094550
XREFPT := 0; 17094600
BLANKET(PAY[*]); 17094650
SETUPHEADING(XREFAY1[*],PAY[*],XREFAY1[8]. 17094700
SEGNOF,A[0].SEQNOF,FWDTOG,LBLTOG, 17094800
FWDSEQNO,IDTYPE[(IF (I := 17094900
XREFAY1[9].CLASS) > IDMAX THEN 17095000
0 ELSE I) | 4], 17095100
REAL(I } BOOID AND XREFAY1[9].[9:2] = 1), 17095300
REAL((I } BOOID OR I = LOCLID) AND BOOLEAN 17095310
(XREFAY1[9].[9:1])), XREFAY1[9].[10:1]); 17095320
FWDTOG := LBLTOG := FALSE; 17095400
WRITE(LINE,15,PAY[*]); 17095500
LINECOUNT := LINECOUNT + 1; 17095510
BLANKET(PAY[*]); 17095550
END 17095600
ELSE % IT MUST BE A NORMAL REFERENCE 17095700
IF A[0].SEQNOF ! LASTADDRESS.SEQNOF THEN 17095750
BEGIN 17095800
ADDASEQNO(A[0].SEQNOF,XREFPT,A[0].[5:1], 17095900
PAY[*]); 17096000
IF (XREFPT := XREFPT + 1) = 11 THEN %FULL 17096100
BEGIN 17096200
WRITE(LINE,15,PAY[*]); 17096300
LINECOUNT := LINECOUNT + 1; 17096350
XREFPT := 0; 17096400
BLANKET(PAY[*]); 17096450
END 17096500
END 17096550
ELSE % REFERENCE TO SAME SEQ. NO. SKIP IT 17096575
ELSE % THIS IS A REFERENCE TO THE SAME SEQ. NO. - SKIP 17096600
ELSE % HIT END OF IDENTIFIER FILE - JUST SKIP OVER REFERENCES 17096700
EOF2: B2 := TRUE; % SO SORT CAN GO TO NORMAL EOJ 17096800
IF NOT B THEN SKIP: LASTADDRESS := A[0]; 17096850
END OF OUTPUT2; 17096900
A[0] := 3"777777777777777"; % BIGGEST FLOATING PT. NO. 17114000
COMP2 := IF A[0].REFIDNOF = B[0].REFIDNOF THEN % DIF IDS 17117000
TRUE 17117100
ELSE 17117200
IF A[0].REFIDNOF = B[0].REFIDNOF THEN 17117300
IF A[0].[1:4] LSS B[0].[1:4] THEN 17117400
TRUE 17117500
ELSE 17117600
IF A[0].[1:4] = B[0].[1:4] THEN 17117700
IF A[0].SEQNOF < B[0].SEQNOF THEN 17117702
TRUE 17117704
ELSE 17117706
IF A[0].SEQNOF = B[0].SEQNOF THEN 17117708
BOOLEAN(A[0].[5:1]) 17117710
ELSE 17117712
FALSE 17117714
ELSE 17117720
FALSE 17117730
ELSE 17117800
FALSE; 17117900
SAVETIMES(1); % SAVE TIMES FOR START OF REFERENCES SORT 17117910
FIRSTTIME := TRUE; % LET OUTPUT PROCEDURE KNOW ABOUT FIRST CAL 17117920
SORT(OUTPUT2,INPUT2,0,HV2,COMP2,1,6000); 17119000
UPDATETIMES(2); % UPDATE TIMES FOR PRINTING CROSS REFERENCE 17119100
PRINTXREFSTATISTICS; 17119200
$: DATE 2/1/76 99990000
$: 99990100
$: BY JTC - MSA CENTRAL: 99990200
$: THIS PATCH IS NEARLY A COMPLETE REWRITE OF THE ALGOL 99990300
$: CROSS REFERENCE ROUTINES IN AN ATTEMPT TO REDUCE 99990400
$: THE AMOUNT OF PAPER PRODUCED AND ALSO TO PROVIDE MORE 99990500
$: INFORMATTON ABOUT THE IDENTIFIERS. IN PARTICULAR, 99990600
$: THE FOLLOWING CHANGES HAVE BEEN MADE: 99990700
$: 99990800
$: 1). ONE LINE IS LISTED IN THE CROSS REFFRENCE FOR EACH 99990900
$: IDENTIFIER WHICH INCLUDES THE FOLLOWING INFORMATION: 99991000
$: A. THE NAME OF THE IDENTIFIER. 99991100
$: B. THE CLASS OF THE IDENTIFIER, E.G., REAL, 99991200
$: INTEGER, BOOLEAN. PROCEDURE, ETC. 99991300
$: C. IF THE IDENTIFIER IS A FORMAL PARAMETER IT IS 99991400
$: MARKED AS A "NAME PARAMETER" OR "VALUE PARAMETER". 99991550
$: D. THE SEGMENT AND SEQUENCE NUMBER AT WHICH THE 99991600
$: IDENTIFIER IS DECLARED. 99991700
$: E. IF THE IDENTIFIER IS A PROCEDURE IDENTIFIER, THEN 99991800
$: IF THE PROCEDURE IS DECLARED FORWARD THE SEQUENCE 99991900
$: NUMBER OF THE FORWARD DECLARATION IS LISTED. 99992000
$: F. IF THE IDENTFIER IS A LABEL IDENTIFIER. THE SEQUENCE 99992100
$: NUMBER AT WHICH THE LABEL OCCURS IS LISTED. 99992200
$: 99992300
$: 2). ASSIGNMENTS TO IDENTIFIERS ARE NOW STARRED IN THE 99992400
$: CROSS REFERENCE IN THE FOLLOWING ADDITIONAL CASES: 99992500
$: A. WHEN A SUBSCRIPTED VARIABLE IS USED IN ASSIGNMENT. 99992600
$: B. WHEN AN ARRAY ROW IS USED IN A FILL STATEMENT. 99992700
$: C. WHEN AN ARRAY ROW IS USED IN A SEARCH STATEMENT. 99992800
$: C. WHEN A SIMPLE VARIABLE IS USED IN A FOR STATEMENT. 99992900
$: D. WHEN A LOCAL VARIABLE OR STREAM PARAMETER IS CHANGED 99993000
$: BY BEING ASSIGNED THE VALUE OF SI,DI,CI OR TALLY. 99993100
$: 99993200
$: 3). DEFINE PARAMETERS ARE NO LONGER CROSS REFERENCED. 99993300
$: 99993400
$: 4). IDENTIFIERS REFERRED TO IN THE RIGHT HAND SIDE OF A 99993500
$: DEFINE DECLARATION ARE NO LONGER CROSS 99993600
$: REFERENCED AGAINST THE DEFINE DECLARATION. 99993700
$: 99993800
$: 5): IF NO IDENTIFIERS WERE CROSS REFERENCED, THE IDENTIFIER 99993900
$: SORT WOULD BLOW UP WITH AN I/O ERROR 86. NOW, XREF 99994000
$: CHECKS TO MAKE SURE THERE IS SOMETHING TO SORT BEFORE 99994100
$: BEGTNNING. 99994200
$: 99994300
$: 6): IT SHOULD NOW BE POSSIBLE TO SET AND RESET XREF 99994400
$: INDISCRIMINANTLY DURING A COMPILE WITHOUT CAUSING THE XREF 99994500
$: TO GET CONFUSED. PREVIOUSLY, REFERENCES WOULD GET 99994600
$: ASSOCIATED WITH THE WRONG IDENTIFIERS. THE RULE NOW IS THAT 99994700
$: XREF MUST BE ON AT THE POINT OF DECLARATION FOR AN 99994800
$: IDENTIFIER TO BE CROSS REFERENCED AT ALL. 99994900
$: 99995000
$: 7). PREVIOUSLY, WHEN THE SAME IDENTIFIER OCCURRED IN 99995100
$: DIFFERENT BLOCKS, THE IDENTIFIERS WOULD BE LISTED 99995200
$: IN NO PARTICULAR ORDER. NOW. THE IDENTIFIER THAT 99995300
$: APPEARS FIRST WILL BE LISTED FIRST IN THE XREF. 99995400
$: 99995500
$#PATCH NUMBER 111 FOR ESPOL CONTAINS 3 CARDS: 00000000
IF MERGETOG THEN % INDICATE NAME OF SOURCE FILE. 01835600
WRITE(LINE,<X40,"SOURCE FILE: ",A1,A6,"/",A1,A6,//>, 01835700
(N1:=TAPE.MFID).[6:6],N1,(N2:=TAPE.FID).[6:6],N2); 01835800
$: DATE 2/6/76 99990000
$: BY JTC - MSA CENTRAL. 99990100
$: 99990200
$: THIS PATCH PRINTS THE NAME OF THE SOURCE FILE BELOW 99990300
$: THE NAME OF THE OBJECT FILE ON THE PRINTED LISTING IF TAPE 99990400
$: IS SET AT THE TIME THE HEADING IS PRINTED. 99990500
$# PATCH NUMBER 112 FOR ESPOL CONTAINS 116 CARDS. 00000000
094 PARSE: MISSING RIGHT BRACKET 00069975
618 BLOCK: AUXMEM APPEARS IMMEDIATELY BEFORE IDENTIFIER (NO TYPE) 00418000
SBITF =[21:6]#, % STARTING BIT FOR FIELD ID. 01154200
NBITF =[27:6]#, % NUMRER OF BITS FOR FIELD NO. 01154300
FIELDID =125#, COMMENT 175; 01278700
DEFINEV =19#, COMMENT 23; 01298000
AUXMEMV =20#, COMMENT 24; 01298500
FIELDV =21#; COMMENT 25; 01298600
DEFINE LASTSEQUENCE = 147#, 01569000
IF STEPI = FIELDID THEN % GET INFO FROM INFO 05273100
BEGIN 05273200
FIRST := ELBAT[I].SBITF; 05273300
SECOND := ELBAT[I].NBITF; 05273400
GO TO EXIT; 05273500
END 05273600
ELSE 05273700
IF ELCLASS = LFTBRKET THEN 05273800
IF STEPI = FIELDID THEN 05273900
BEGIN 05274000
FIRST := ELBAT[I].SBITF; 05274100
SECOND := ELBAT[I].NBITF; 05274200
IF STEPI = RTBRKET THEN 05274300
GO TO EXIT; 05274400
END 05274500
ELSE 05274600
IF ELCLASS = LITNO THEN 05275000
IF ELCLASS = FIELDID THEN 06315100
BEGIN 06315200
FIRST := ELBAT[I].SBITF; 06315300
SECOND := 48 - (THIRD := ELBAT[I].NBITF); 06315400
GO TO NEXTCHK; 06315500
END 06315600
ELSE 06315700
IF STEPI = FIELDID THEN 06316100
BEGIN 06316200
FIRST := ELBAT[I].SBITF; 06316300
SECOND := 48 - (THIRD := ELBAT[I].NBITF); 06316400
IF STEPI ! RTBRKET THEN 06316500
BEGIN 06316600
ERR(94); 06316700
GO TO EXIT; 06316800
END; 06316900
GO TO NEXTCHK; 06317000
END 06317100
ELSE 06317200
IF ELCLASS = LITNO THEN 06317300
OCT1310157730000002, "3SCS00", %652 09128600
OCT0500000250000000, "5FIELD", %654 09128700
IF ELCLASS>IDMAX AND ELCLASS<MULOP 13337000
GOTSCHK,FIELDDEC,AUXMEMERR, 14016000
STREAMERR,DEFINEDEC,AUXMEMERR,FIELDDEC; 14021000
AUXMEMERR:FLAG(618);J:=J+1;GO TO REALDEC; 14136100
FIELDDEC: 14269020
BEGIN 14269040
REAL SAVEINFO, SB, NB; 14269060
BOOLEAN FOUNDLB; % TRUE IF LFFT-BRACKET WAS USED IN FIELD SPEC. 14269080
LABEL EXIT, SAVEIT; 14269100
STOPENTRY := STOPGSP := TRUE; 14269120
I := I - 1; 14269140
DO 14269160
BEGIN 14269180
STOPDEFINE := TRUE; 14269200
STEPIT; 14269220
ENTRY(FIELDID); 14269240
SAVEINFO := LASTINFO; 14269260
BEGIN 14269280
IF ELCLASS = RELOP AND ACCUM[1] = "1=0000" THEN 14269300
IF STEPI = LFTBRKET THEN % REMEMBER THIS 14269320
BEGIN 14269340
FOUNDLB := TRUE; 14269360
STEPIT; 14269380
END 14269400
ELSE 14269420
FOUNDLB := FALSE; 14269440
IF ELCLASS = FIELDID THEN 14269442
BEGIN 14269444
SB := ELBAT[I].SBITF; 14269446
NB := ELBAT[I].NBITF; 14269448
GO TO SAVEIT; 14269450
END; 14269452
IF ELCLASS = LITNO THEN 14269460
IF STEPI = COLON THEN 14269480
IF STEPI = LITNO THEN 14269500
IF (SB := ELBAT[I-2].ADDRESS) | 14269520
(NB := ELBAT[I].ADDRESS) ! 0 AND 14269540
SB | NB { 48 THEN 14269560
BEGIN 14269580
SAVEIT: 14269590
PUT(TAKE(SAVEINFO) & SB SBITF & NB NBITF, 14269600
SAVEINFO); 14269620
STEPIT; 14269640
IF FOUNDLB THEN % BETTER HAVE RIGHT BRACKET. 14269660
IF ELCLASS = RTBRKET THEN 14269680
BEGIN 14269700
STEPIT; 14269705
GO TO EXIT; 14269710
END 14269715
ELSE % MISSING RIGHT BRACKET, 14269720
ELSE 14269740
GO TO EXIT; 14269760
END; 14269780
END; 14269800
FLAG(114); 14269820
DO STEPIT UNTIL ELCLASS = COMMA OR ELCLASS = SEMICOLON; 14269840
EXIT: 14269860
END 14269880
UNTIL 14269900
ELCLASS ! COMMA; 14269920
STOPENTRY := STOPGSP := FALSE; 14269940
END; 14269960
GO TO START; 14269980
ARRAY IDTYPE[0:(IDMAX+4)|4-1]; 17047100
"LABEL. ", % 32 17084300
"FIELD, "; % 33 (CLASS = 125) 17084400
XREFAY1[9].CLASS) > IDMAX THEN IF I = 17095000
FIELDID THEN 33 ELSE 0 ELSE I) | 4], 17095100
$: DATE 2/2/76 99990000
$: BY JTC - MSA CENTRAL 99990100
$: 99990200
$: THIS PATCH IMPLEMENTS A NEW DECLARATION TYPE OF "FIELD" WHICH 99990300
$: PROVIDES A CONVENIENT METHOD FOR DESIGNATING A PARTIAL WORD FIELD 99990400
$: A LA THE 6700 ESPOL AND ALGOL MECHANISM. THIS METHOD IS CONSIDERABLY 99990500
$: MORE EFFICIENT THAN A DEFINE BECAUSE THE PARTIAL WORD FIELD INFOR- 99990600
$: MATION IS STORED OFF WITH THE IDENTIFIER IN THE SYMBOL TABLE THUS 99990700
$: MAKING REFERENCES TO THE PARTIAL WORD FIELD VERY INEXPENSIVE. 99990800
$: 99990900
$: THE SYNTAX FOR A PARTIAL WORD DECLARATION IS AS FOLLOWS: 99991000
$: 99991100
$: <FLELD DECLARATION> ::= FIELD <FIELD LIST> 99991200
$: 99991300
$: <FIELD LIST> ::= <FIELD> / <FIELD LIST> , <FIELD> 99991400
$: 99991500
$: <FIELD> ::= <FIELD IDENTIFIER> = <FIELD SPECIFICATION> 99991600
$: 99991700
$: <FIELD IDENTIFIER> ::= <IDENTIFIER> 99991800
$: 99991900
$: <FIELD SPECIFICATION> ::= <INTEGER> : <INTEGER> / 99992000
$: [ <INTEGER> : <INTEGER> ] / 99992100
$: <FIELD IDENTIFIER> / 99992200
$: [ <FIELD IDENTIFIER> ] 99992300
$: 99992400
$: SOME EXAMPLES: 99992500
$: 99992600
$: FIELD CF = [33:15]; 99992700
$: 99992800
$: FIELD FF = 18:15, 99992900
$: SIZE = 08:10; 99993000
$: 99993100
$: FIELDS MAY BE USED ANYWHERE PARTIAL WORD DESIGNATORS MAY BE USED 99993200
$: AND MAY BE ENCLOSED IN BRACKETS OR NOT AS DESIRED. ENCLOSING 99993300
$: THE FIELD IDENTIFIER IN BRACKETS MAY HELP THE READABILITY OF 99993400
$: THE CODE BUT OF COURSE REQUIRES EXTRA SCANNING BY THE 99993500
$: COMPILER TO PROCESS THE BRACKETS. 99993600
$: 99993700
$: SOME EXAMPLES. 99993800
$: 99993900
$: I := I.FF; 99994000
$: 99994100
$: J := I.CF & 10 (SIZE] & K FF; 99994200
$: 99994300
$: I.FF := J.[CF]; 99994400
$: 99994500
$:**********************************************************************99999999
$#PATCH NUMBER 113 FOR ESPOL CONTAINS 2 CARDS. 00000000
$SET OMIT LISTA = LIST 00000999
$POP OMIT LISTA 00499999
$: DATE 3/2/76 99990000
$: BY JTC = MSA CENTRAL 99990100
$: 99990200
$: THIS PATCH SETS OMIT AROUND THE COMMENT AT THE BEGINNING OF THE 99990300
$: ESPOL COMPILER TO SPEED UP SCANNTNG OF THE COMMENT. 99990400
$:**********************************************************************99999999
$#PATCH NUMBER 114 FOR ESPOL CONTAINS 222 CARDS. 00000000
$ VOIDT 01476001 01471000
LABEL EXIT, NEXT, LASS; 15076000
DEFINE 15076100
FORMALNAME = [9:2] = 2#, 15076110
LONGID = NAMEID#, 15076120
PARTIALWORD = (T1 ! 0)#, 15076130
ERREXIT(NUM) = BEGIN ERR(NUM); GO TO EXIT; END#; 15076140
BOOLEAN 15076200
SPCLMON, 15076300
DUPIT; % TRUE IF WE ARE DOING UPDATE TYPE ASSIGN- 15076400
% MENT. I.E., I := * + 1.. 15076500
$ VOIDT 15127001 15085150
IF TALL.CLASS { INTID THEN % SIMPLE VAR OR FORMAL NAME 15085200
BEGIN 15085400
IF STEPI ! ASSIGNOP THEN 15085600
IF P1 = FL THEN 15085800
BEGIN 15086000
IF ELCLASS < AMPERSAND THEN 15086200
EMITN(TALL.ADDRESS) 15086400
ELSE 15086600
EMITV(TALL.ADDRESS); 15086800
GO TO EXIT; 15087000
END 15087200
ELSE 15087400
IF ELCLASS = PERIOD THEN % PARTIAL WORD 15087600
IF DOTSYNTAX(T1,T2) THEN % ERROR 15087800
GO TO EXIT 15088000
ELSE 15088200
STEPIT; 15088400
IF ELCLASS = ASSIGNOP THEN 15088600
BEGIN 15088800
STACKCT := 1; 15089000
IF PARTIALWORD THEN % MAKE SURE LEFT-MOST 15089200
BEGIN 15089400
IF P1 ! FS THEN % NOT LEFT-MOST 15089600
ERREXIT(201); 15089800
XREFIT(TALL,REMEMBERSEQNO,ASSIGNREF); 15090600
END 15090800
ELSE 15091000
XMARK(ASSIGNREF); 15091200
IF TABLE(I+1) = ASTRISK THEN % MIGHT BE UPDATE 15091400
IF (DUPIT:=(TABLE(I+2) } EQVOP AND TABLE(I+2) 15091600
{ MULOP) OR TABLE(I+2) = AMPERSAND) THEN 15091800
STEPIT; % STEP OVER ASTERISK 15092000
IF TALL.FORMALNAME THEN % FORMAL PARAMETER 15092200
BEGIN 15092400
EMITN(TALL.ADDRESS); 15092600
IF PARTIALWORD OR DUPIT THEN % NEED VALUE 15092800
BEGIN 15093000
EMITO(DUP); 15093200
EMITO(COC); 15093400
END; 15093600
END 15094800
ELSE % ITS A SIMPLE VARIABLE 15095000
IF PARTIALWORD OR DUPIT THEN 15095400
EMITV(TALL.ADDRESS); 15095600
IF PARTIALWORD AND DUPIT THEN 15095700
BEGIN 15095800
EMITO(DUP); 15095900
EMITI(0,T1,T2); 15096000
END; 15096100
STACKCT := REAL(PARTIALWORD OR DUPIT); 15096400
STEPIT; 15096600
IF DUPIT THEN % ALREADY GOT FIRST PRIMARY 15096800
SIMPARITH 15097000
ELSE 15097200
AEXP; 15097400
EMITD(48-T2,T1,T2); 15097600
STACKCT := 0; 15097800
GT1 := IF TALL.CLASS = INTID THEN 15098000
IF P1 = FS THEN 15098200
ISD 15098400
ELSE 15098600
ISN 15098800
ELSE 15099000
IF P1 = FS THEN 15099200
STD 15099400
ELSE 15099600
SND; 15099800
IF TALL.FORMALNAME THEN 15100000
BEGIN 15100200
EMITO(XCH); % TO GET DESCRIPTOR ON TOP 15100400
IF TALL.ADDRESS > 1023 THEN % SET VARIANT 15100600
EMITO(PRTE); 15100800
EMITO(GT1); 15101000
END 15101200
ELSE 15101400
EMITPAIR(TALL.ADDRESS,GT1); 15101600
END 15101800
ELSE % NOT ASSIGNMENT TO SIMPLE VARIABLE 15102000
BEGIN 15102200
IF P1 ! FP THEN % EXPECTED ASSIGNMENT 15102400
ERREXIT(202); 15102600
EMITI(TALL,T1,T2); % EMIT OP CALL AND PARTIAL 15103400
END; % WORD CODE 15103600
END OF SIMPLE VARIABLES 15103800
$ VOIDT 15233028 15183050
IF STEPI ! LFTBRKET THEN % ARRAY ITEM NOT FOLLOWED BY 15183100
BEGIN % A SUBSCRIPT 15183200
IF ELCLASS = PERIOD THEN 15183300
IF DOTSYNTAX(T1,T2) THEN % ERROR IN PARTIAL WORD 15183400
GO TO EXIT 15183500
ELSE 15183600
STEPIT; 15183700
IF ELCLASS = ASSIGNOP THEN 15183800
BEGIN 15183900
IF PARTIALWORD THEN 15184000
BEGIN 15184100
IF P1 ! FS THEN % PARTIAL WORD NOT LEFT-MOST 15184200
ERREXIT(209); 15184300
XREFIT(TALL,REMEMBERSEQNO,ASSIGNREF); 15184400
END 15184500
ELSE % ASSIGNMENT TO ID WITH NO PARTIAL WORD 15184600
XMARK(ASSIGNREF); 15184700
IF TABLE(I+1) = ASTRISK THEN 15184750
IF (DUPIT := (TABLE(I+2) } EQVOP AND TABLE(I+2) 15184800
{ MULOP) OR TABLE(I+2) = AMPERSAND) THEN 15184850
STEPIT; 15185000
IF PARTIALWORD OR DUPIT THEN % NEED VALUE ON STACK 15185100
IF TALL.CLASS { INTARRAYID THEN % NOT NAME ITEM 15185200
EMITPAIR(TALL.ADDRESS,LOD) 15185300
ELSE 15185400
EMITN(TALL.ADDRESS); 15185500
IF PARTIALWORD AND DUPIT THEN 15185600
BEGIN 15185700
EMITO(DUP); 15185800
EMITI(0,T1,T2); 15185900
END; 15186000
STACKCT := STACKCT + REAL(PARTIALWORD OR DUPIT); 15186100
STEPIT; 15186200
IF DUPIT THEN % WE HANDLED FIRST PRIMARY 15186300
SIMPARITH 15186400
ELSE 15186500
AEXP; 15186600
EMITD(48-T2,T1,T2); 15186700
EMITPAIR(TALL.ADDRESS,IF P1 = FS THEN STD ELSE 15186800
SND); 15186900
STACKCT := 0; % A AND B ARE EMPTY 15187000
END 15187100
ELSE % NOT ASSIGNMENT 15187200
EMITI(TALL,T1,T2); 15187300
GO TO EXIT; 15187400
END OF ASSIGNMENT TO NON SIMPLE NON SUBSCRIPTED 15187500
VARIABLE; 15187600
$ VOIDT 15273000
$ VOIDT 15370001 15299050
IF STEPI = PERIOD THEN % PARTIAL WORD 15300000
IF DOTSYNTAX(T1,T2) THEN % ERROR 15300100
GO TO EXIT 15300200
ELSE 15300300
STEPIT; 15300400
IF ELCLASS = ASSIGNOP THEN % ASSIGNMENT TO SUBSCRIPTED 15300500
BEGIN % VARIABLE 15300600
IF PARTIALWORD THEN 15300700
IF P1 ! FS THEN 15300800
ERREXIT(209); % PARTIALWORD NOT LEFT-MOST 15300900
XREFIT(TALL,REMEMBERSEQNO,ASSIGNREF); 15301000
IF J = 1 THEN % SINGLE-DIMENSIONED 15301100
EMITN(TALL.ADDRESS) 15301200
ELSE 15301300
EMITO(CDC); 15301400
IF TALL.CLASS } LONGID THEN % EXPLICIT INDEX OP 15301500
EMITO(INX); % REQUIRED 15301600
IF P1 = FR THEN % CALLED FROM FOR STATEMENT 15301700
GO TO EXIT; 15301800
IF TABLE(I+1) = ASTRISK THEN 15301900
IF (DUPIT:=(TABLE(I+2) } EQVOP AND TABLE(I+2) 15302000
{ MULOP) OR TABLE(I+2) = AMPERSAND) THEN 15302100
STEPIT; 15302200
IF PARTIALWORD OR DUPIT THEN % NEED VALUE ON STACK 15302300
BEGIN 15302400
EMITO(DUP); 15302500
EMITO(LOD); 15302600
END; 15302700
IF PARTIALWORD AND DUPIT THEN 15302800
BEGIN 15302900
EMITO(DUP); 15303000
EMITI(0,T1,T2); 15303100
END; 15303200
STEPIT; 15303300
IF DUPIT THEN 15303400
SIMPARITH 15303500
ELSE 15303600
AEXP; 15303700
EMITD(48-T2,T1,T2); 15303800
EMITO(XCH); 15303900
IF TALL.ADDRESS > 1023 THEN 15304000
EMITO(PRTE); 15304100
EMITO(IF TALL.CLASS MOD 2 = INTARRAYID MOD 2 THEN 15304200
IF P1 = FS THEN ISD ELSE ISN 15304300
ELSE IF P1 = FS THEN STD ELSE SND); 15304400
STACKCT := 0; % A & B ARE EMPTY 15304500
P1 := 0; 15304600
END OF ASSIGNMENT TO SUBSCRIPTED VARIABLE 15304700
ELSE 15304800
BEGIN % HANDLING OF NO ASSIGNMENT CASE 15304900
SPCLMON := P1 = FP OR PARTIALWORD OR ELCLASS } 15305000
AMPERSAND; 15305100
IF J = 1 THEN % SINGLE DIMENSIONED 15305200
IF TALL.CLASS } LONGID THEN % NAME ITEM 15305300
BEGIN 15305400
EMITN(TALL.ADDRESS); 15305500
EMITO(INX); 15305600
IF SPCLMON THEN 15305700
EMITO(LOD); 15305800
END 15305900
ELSE % REFERENCE TO SINGLE DIMENSIONED ARRAY 15306000
IF SPCLMON THEN 15306100
EMITV(TALL.ADDRESS) 15306200
ELSE 15306300
EMITN(TALL.ADDRESS) 15306400
ELSE % MULTI=DIMENSIONED CASE 15306500
EMITO(IF SPCLMON THEN COC ELSE CDC); 15306600
IF P1 = FS THEN % EXPECTED AN ASSIGNMENT 15306700
ERREXIT(210); 15306800
STACKCT := 1; % BECAUSE REGISTERS ARE NON-EMPTY 15306900
IF PARTIALWORD THEN 15307000
BEGIN 15307100
EMITI(0,T1,T2); 15307200
P1 := 0; 15307300
END; 15307400
END OF NO ASSIGNMENT CASE; 15307500
$#PATCH NUMBER 115 FOR ESPOL CONTAINS 150 CARDS 00000000
CASEV =49#, COMMENT 061; 01229000
DEFINE LASTSEQUENCE = 149#, 01569000
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%07646010
%**********************************************************************%07646015
%* *%07646020
%* C A S E *%07646025
%* = = = = *%07646030
%* *%07646035
%* S T A T E M E N T *%07646040
%* = = = = = = = = = *%07646045
%* *%07646050
%* *%07646055
%* THIS PROCEDURE HANDLES THE CASE STATEMENT. THE SYNTAX FOR THE CASE *%07646060
%* STATMENT IS: *%07646065
%* *%07646070
%* CASE <AEXP> OF BEGIN <COMPOUND TAIL> *%07646075
%* *%07646080
%* THE CODE GENERATED FOR THIS STATEMENT IS: *%07646085
%* *%07646090
%* <AEXP> *%07646095
%* LITC ? *%07646100
%* BFW BRANCH TO BRANCH TABLE *%07646105
%* STMT 0 *%07646110
%* LITC ? *%07646115
%* BFW BRANCH TO RESUME *%07646120
%* STMT 1 *%07646125
%* LITC ? *%07646130
%* BFW BRANCH TO RESUME *%07646135
%* . *%07646140
%* . *%07646145
%* . *%07646150
%* BRANCH TABLE: *%07646155
%* DUP *%07646160
%* ADD *%07646165
%* BFW BRANCH INTO TABLE *%07646170
%* LITC ? *%07646175
%* BBW BRANCH TO STATEMENT 0 *%07646180
%* LITC ? *%07646185
%* BBW BRANCH TO STATEMENT 1 *%07646190
%* . *%07646195
%* . *%07646200
%* . *%07646205
%* LITC ? *%07646210
%* BBW BRANCH TO STATEMENT N *%07646215
%* RESUME: *%07646220
%* *%07646225
%* *%07646230
%* NOTICE THAT: *%07646235
%* . *%07646240
%* 1) THE CASE INDEX IS NOT INTEGERIZED. IF YOU HAVE ANYTHING THAT *%07646245
%* MIGHT CAUSE THE INDEX TO BE UNNORMALIZED YOU WILL HAVE TO *%07646250
%* INTEGERIZE IT YOURSELF. *%07646255
%* *%07646260
%* 2) NO RANGE CHECKING IS DONE ON THE INDEX. IF YOU USE A NUMBER *%07646265
%* OUT OF RANGE THEN YOU WILL FALL OFF THE END OF THE WORLD. *%07646270
%* *%07646275
%* 3) IF A STATEMENT IN THE CASE COMPOUND TAIL IS NULL, NO CODE IS *%07646280
%* GENERATED FOR THE STATEMENT. INSTEAD, THE BRANCH TABLE GOES *%07646285
%* DIRECTLY TO RESUME. *%07646290
%* *%07646295
%* 4) IF A STATEMENT IN THE CASE COMPOUND TAIL IS A SIMPLE GO TO, *%07646300
%* THE STATEMENT DOES NOT HAVE A BRANCH TO RESUME AFTER IT. *%07646305
%* *%07646310
%**********************************************************************%07646315
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%07646320
PROCEDURE CASESTATEMENT; 07646325
BEGIN 07646330
ARRAY CASEADDRESS[0:99]; % THIS ARRAY HOLDS THE RELATIVE 07646335
% ADDRESS OF THE BEGINNING OF EACH 07646340
% CASE. 07646345
INTEGER 07646350
LINK, % HOLDS RELATIVE ADDRESS OF FIRST OF 07646355
% BRANCHES THAT MUST BE FIXED UP TO 07646360
% BRANCH TO THE RESUME POINT. 07646365
ADR, % HOLDS RELATIVE ADDRESS OF THE BRANCH 07646370
% AROUND THE CASE STATEMENTS TO THE 07646375
% BRANCH TABLE. THIS BRANCH GETS FIXED 07646380
% UP WHEN WE FIND WHERE THE BRANCH TABLE 07646385
% GOES. 07646390
N, % COUNT OF NUMBER OF CASE STATEMENT 07646395
% ENCOUNTERED. 07646400
ENDOFIT, % ADDRESS OF RESUME POINT 07646405
J, % TEMPORARY 07646410
K; % TEMPORARY 07646415
% 07646420
BOOLEAN 07646425
GOTOG; % TRUE IF WE ARE COMPILING A SIMPLE 07646430
% GO TO. 07646435
LABEL XIT; 07646436
% 07646440
% 07646445
STEPIT; % STEP OVER "CASE" 07646450
AEXP; % GENERATE CODE FOR CASE INDEX 07646455
IF STEPI ! BEGINV THEN % NOTICE WE JUST JUMPED OVER "OF" 07646456
BEGIN 07646457
ERR(70); GO TO XIT; 07646458
END; 07646459
EMIT(0); % GENERATE DUMMY BRANCH TO BRANCH TABLE. WILL FIX 07646460
EMITO(BFW); % IT UP LATER. 07646465
ADR := L; 07646470
WHILE STEPI ! ENDV DO 07646475
BEGIN % PROCESSING CASE STATEMENTS 07646480
ERRORTOG := TRUE; 07646485
IF ELCLASS = SEMICOLON THEN % NULL STATEMENT. NO CODE NEEDED 07646490
N := N + 1 % THIS LEAVES A ZERO IN CASEADDRESS[N] 07646495
ELSE 07646500
BEGIN 07646505
CASEADDRESS[N] := L; % REMEMBER BEGINNING ADDRESS OF 07646510
N := N + 1; % THIS CASE. 07646515
IF (GOTOG := SIMPGO) THEN 07646520
ELBAT[I:=I-1] := ELCLASS := GOV; % REMEMBER IF SIMPLE 07646525
STMT; % PROCESS THE STATEMENT 07646530
IF ELCLASS = SEMICOLON THEN 07646535
IF NOT GOTOG THEN % GENERATE DUMMY BRANCH TO RESUME 07646540
BEGIN 07646545
EMIT(LINK); 07646550
EMITO(BFW); 07646555
LINK := L; 07646560
END 07646565
ELSE % SIMPLE GO TO, NO CODE TO GENERATE 07646570
ELSE 07646575
IF ELCLASS ! ENDV THEN 07646580
ERR(71); 07646585
END; 07646590
END OF WHILE LOOP; 07646595
ENDTOG := TRUE; % SKIP OVER COMMENT AFTER END 07646601
DO STOPDEFINE := TRUE UNTIL 07646602
STEPI { ENDV AND ELCLASS } UNTILV OR NOT ENDTOG; 07646603
ENDTOG := FALSE; 07646604
EMITB(BFW,ADR,L); % FIX UP BRANCH TO BRANCH TABLE 07646605
EMITO(DUP); % GENERATE CODE TO MULTIPLY INDEX 07646610
EMITO(ADD); % BY TWO AND BRANCH INTO BRANCH TABLE 07646615
EMITO(BFW); 07646620
ENDOFIT := L + 2|N; % CALCULATE WHERE RESUME IS 07646625
WHILE (J:=J+1) { N DO % GENERATE THE BRANCH TABLE 07646630
EMITB(BBW,L:=L+2,IF (K:=CASEADDRESS[J-L]) = 0 THEN 07646635
ENDOFIT ELSE K); 07646640
J := LINK; % TO MAKE THE LOOP WORK 07646645
WHILE (LINK:=J) ! 0 DO 07646650
BEGIN % FIXING UP BRANCHES TO RESUME 07646655
J := GET(LINK-2); % LOCATION OF NEXT BRANCH TO FIX 07646660
EMITB(BFW,LINK,L); 07646665
END; 07646670
XIT: 07646674
END OF CASE STATEMENT; 07646675
L49: 07759100
CASESTATEMENT; GO TO EXIT; 07759200
L41: 07770000
OCT0500000250000002, "5FIELD", %654 09128700
OCT0610000000000000, "4CASEO", %656 09128800
$: BY JTC - MSC DETROIT 99990000
$: THIS PATCH ADDS A -CASE- STATEMENT TO ESPOL. SEE 99990100
$: DOCUMENTATION AT BEGTNNTNG OF PROCEDURE TO SEE HOW 99990200
$: IT IS USED. 99990300
$:**********************************************************************99990400
$#PATCH NUMRER 116 FOR ESPOL CONTAINS 1 CARD 00000000
SAVE ARRAY DEFINEARRAY[0:34]; 01491000
$: DATE 6/29/76 99990000
$: BY JTC - MSA CENTRAL 99990100
$: 99990200
$: THIS PATCH FIXES A PRORLEM WITH ESPOL THAT COULD CAUSE THE 99990300
$: COMPILER TO ABORT WITH AN INVALID INDEX AT END OF FILE ON 99990400
$: EITHER THE CARD OR TAPE FILE IF NO 99999999 CARD WAS PROVIDED. 99990500
$#PATCH NUMBER 117 FOR ESPOL CONTAINS 3 CARDS. 00000000
% MARK XVI.0.116 00001030
% MAY 9, 1977 00001040
"XVI.0.116" 01831000
$: BY DJZ - MSC DETROTT 99990000
$: DATE 05/09/77 99990100
$: THIS PATCH UPDATES THE MARK LEVELS OF THE SYMBOL FILE 99990200
$:**********************************************************************99990300
$# PATCH NUMBER 901 FOR ESPOL CONTAINS 1 CARD C
$: THIS PATCH CHANGES INPUT TAPE BLOCKING TO ALLOW INCREASED
$: EFFICIENCY IN STORING SOURCE FILES ON TAPE
$: BY TJP, 2/16/77. USE UTILITY COMPTP/UTILITY TO CREATE SOURCE TAPES.
BEGIN RR8~50|10+50+1; RR9~10 END; 00538000
$#PATCH NUMBER 902 FOR ESPOL CONTAINS 1 CARD. PAGE SKIP BETWEEN PROCEDURES
$: THIS PATCH CHANGES THE EFFECT OF THE FORMAT OPTION TO CAUSE A
$: PAGE SKIP BETWEEN PROCEDURES INSTEAD OF A FOUR-LINE SKIP
$: BY J.H., USC, 4 MAY 77
$:
SPACEITDOWN = WRITE(LINE[PAGE])#; 14023100
?END
Reference in New Issue View Git Blame Copy Permalink