github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-02-26 16:23:22 +00:00
Code Issues Releases Wiki Activity

Commit further preparation of source for ALGOLXEM cross-compiler:

Browse Source 
* Replace reserved words used as identifiers with alternates
  * Fix up remaining Algol special characters in text (left-arrow, etc.)
  * Reverse bit numbering in partial word designators and bit concatenates
  * Complete establishment of string codes (6"...", 3"...")
  * Miscellaneous formatting and proof-reading corrections.
Also commit additional proof-reading corrections to ALGOL.alg_m.
This commit is contained in:
Paul Kimpel
2012-03-26 04:32:47 +00:00
parent 3fdd08f296
commit c8a75adadc
2 changed files with 1748 additions and 1673 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
SYMBOL/ALGOL.alg_m
View File

@@ -2727,7 +2727,7 @@ COMMENT DOLLARCARD HANDLES THE COMPILER CONTROL CARDS. 02282000
HISTORY OF THE SETTINGS OF THIS OPTION. 02293000
02294000
IN "FINDOPTION", ALL COMPILER-DEFINED OPTIONS ARE USUALLY 02295000
LOCATES BASED UPON A UNIQUE NUMBER ASSIGNED TO EACH. 02296000
LOCATED BASED UPON A UNIQUE NUMBER ASSIGNED TO EACH. 02296000
FOR ALL USER-DEFINED OPTIONS, A SEQUENTIAL TABLE SEARCH IS 02297000
INITIATED USING "USEROPINX" AS THE INITIAL INDEX INTO THE 02298000
"OPTIONS" ARRAY. IF THE NUMBER OF COMPILER-DEFINED OPTIONS 02299000
@@ -3105,7 +3105,7 @@ SPECIALCHAR: 02651000
GT1:=ACCUM[1].[18:6] - 2; 02652000
ENDTOG:=GT1 = 57 AND ENDTOG; 02653000
COMMENT OBTAIN ACTUAL CHARACTER FROM ACCUM; 02654000
T:=SPECIAL[GT1&GT1[42:41:3]; 02655000
T:=SPECIAL[GT1&GT1[42:41:3]]; 02655000
COMMENT NOTICE COMPRESSION TECHNIQUE USED TO SHORTEN TABLE OF 02656000
ELBAT WORDS FOR SPECIAL CHARACTERS; 02657000
IF GT1:=T.INCR = 0 THEN GO COMPLETE; 02658000
@@ -3921,9 +3921,9 @@ PROCEDURE EMITC(REPEAT,OPERATOR); VALUE REPEAT,OPERATOR; 04010000
VALUE S; REAL S ; 04278000
IF STREAMTOG THEN 04279000
IF SINGLTOG THEN 04279100
WRITE(LINE,BUG,B2D(L),COP[S.[42:6]],B2D(S.[36:6]),B2D(S)); 04279200
WRITE(LINE,BUG,B2D(L),COP[S.[42:6]],B2D(S.[36:6]),B2D(S)) 04279200
ELSE 04279300
WRITE(LINE[DBL],BUG,B2D(L),COP[S.[42:6],B2D(S.[36:6]), 04280000
WRITE(LINE[DBL],BUG,B2D(L),COP[S.[42:6]],B2D(S.[36:6]), 04280000
B2D(S)) 04281000
04282000
ELSE 04283000
@@ -8056,7 +8056,7 @@ DO PUT(TAKE(NEXTINFO)&STACKHEAD[GT2~TAKE(NEXTINFO+1)MOD 125][35:35:13], 09214520
OCT0000, COMMENT SYNTAX ERROR02 ; 09218000
OCT0140, COMMENT INC A 03 ; 09219000
OCT0130, COMMENT SRS A 04 ; 09220000
OCT0117 COMMENT SRD A 05 ; 09221000
OCT0117, COMMENT SRD A 05 ; 09221000
OCT0000, COMMENT SYNTAX ERROR06 ; 09222000
OCT0000, COMMENT SYNTAX ERROR07 ; 09223000
OCT00310143, COMMENT CRF A, SFS 008 ; 09224000
@@ -8091,10 +8091,10 @@ DO PUT(TAKE(NEXTINFO)&STACKHEAD[GT2~TAKE(NEXTINFO+1)MOD 125][35:35:13], 09214520
"[# ", 09251020
"]# ", 09251030
"># ", 09251040
"}# ", 09251050
"}# ", 09251050
"=# ", 09251060
"!# ", 09251070
"{# ", 09251080
"{# ", 09251080
"<# ", 09251090
"|# ", 09251100
"1# ", 09251101
@@ -8291,7 +8291,7 @@ COMMENT WRITE DISK SEGMENT ZERO; 09406000
I4/"ESTIMATED CORE STORAGE REQUIRED =",I6," WORDS.", 09413000
/"ESTIMATED AUXILIARY MEMORY REQUIRED =",I6," WORDS.", 09414000
/"NUMBER OF CARD-IMAGES PROCESSED =",F7.0); 09414100
FOMRAT SERR("THERE WERE ",V8," SEQUENCE ERRORS"); 09414101
FORMAT SERR("THERE WERE ",V8," SEQUENCE ERRORS"); 09414101
MOVECHARACTERS(4,INFO[LASTSEQROW,LASTSEQUENCE-1],0,GT1,4);09415000
MOVECHARACTERS(4,INFO[LASTSEQROW,LASTSEQUENCE-1],4,GT2,4);09416000
IF CHECKTOG THEN 09416001
@@ -8633,7 +8633,7 @@ END END END PROGRAM; 09420000
SKIPCOUNT ~ COUNT-(COUNT~REMCOUNT); 10247000
REMCOUNT ~ 2048 END 10248000
ELSE REMCOUNT ~ REMCOUNT-COUNT; 10249000
GT1 ~ CHARCOUNT DIV 8 ~ NEXTTEXT; 10250000
GT1 ~ CHARCOUNT DIV 8 + NEXTTEXT; 10250000
PACKINFO(TEXT[GT1.LINKR,GT1.LINKC], CHARCOUNT.[45:3],10251000
COUNT,0,CHAR); 10252000
IF SKIPCOUNT ! 0 THEN 10253000
@@ -12633,7 +12633,7 @@ IF (XREF OR DEFINING.[1:1) AND XLUN > 0 THEN %116-17001000
BLANKET(PAY[*]); %116-17094650
SETUPHEADING(XREFAY1[*],PAY[*],XREFAY1[8]. 17094700
SEGNOF,A[0].SEQNOF,FWDTOG,LBLTOG, %116-17094800
FWDSEQNO.IDTYPE[(IF (I := %116-17094900
FWDSEQNO,IDTYPE[(IF (I := %116-17094900
XREFAY1[9].CLASS) } FIELDID THEN %117-17095000
(IDMAX + I - FIELDID + 1) ELSE %117-17095100
IF I > IDMAX THEN 0 ELSE I) | 4], %116-17095200

3401
tools/xem/ALGOLXEM.alg_m
View File

File diff suppressed because it is too large Load Diff