github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-01-13 23:25:24 +00:00
Code Issues Releases Wiki Activity

Commit ESPOL, ESPOLXEM debugging patches and SYMBOL/COOL proofreading corrections as of 2012-08-29. ESPOLXEM now successfully compiles COOL as either the COLD- or COOL-start loader program.

Browse Source
This commit is contained in:
Paul Kimpel 2012-08-29 16:55:20 +00:00
parent 61c924e13d
commit 9f8e721b03
3 changed files with 1024 additions and 927 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1927
SYMBOL/COOL.esp_m
View File

File diff suppressed because it is too large Load Diff

4
SYMBOL/ESPOL.alg_m
View File

@ -3597,7 +3597,7 @@ FCR:= (LCR:=MKABS(TBUFF[9]))-9 END; 07025030
IDBIT ~ BOOID < ACLASS AND ACLASS < LABELID; 07047000
IF SCLASS = NAMEID THEN 07048000
BEGIN 07049000
IF IDBIT THEN VARIABLE(FL); 07050000
IF IDBIT THEN VARIABLE(FL) 07050000
ELSE 07051000
POL: IF ELCLASS = POLISHV THEN POLISHER(1) 07052000
ELSE ERR(IF ELCLASS=0 THEN 0 ELSE 123); 07053000
@ -5977,7 +5977,7 @@ HF: 14382000
ERRORTOG~TRUE; 14443000
END; 14444000
END; 14445000
G~(GT2+TAKE(J+1)).PURPT; 14446000
G~(GT2~TAKE(J+1)).PURPT; 14446000
IF GT1.[2:8] ! STLABID|2+1 THEN 14447000
STACKHEAD[(0&GT2[12:12:36])MOD 125]~TAKE(J).LINK; 14448000
END UNTIL J~J-G{1; 14449000

20
tools/xem/ESPOLXEM.alg_m
View File

@ -1,4 +1,3 @@
$ RESET LIST 00000009120821PK
%#######################################################################00005000=00001000=
% 00010000=00001010=
% B-5700 ESPOLXEM COMPILER 00015000
@ -7004,12 +7003,13 @@ ANOTHER: 29240000
BEGIN 29322000
TVAR:= FL; 29324000
VARIABLE(TVAR); 29325000=07050000=
END; 29326000
END 29326000
ELSE 29328000=07051000=
POL: 29330000=07052000=
IF ELCLASS = POLISHV THEN 29335000=07052000=
POLISHER(1) 29340000=07053000=
ELSE 29345000=07053000=
ERR(IF ELCLASS = 0 THEN 0 ELSE 123); 29350000=07053000=
IF ELCLASS = POLISHV THEN 29335000=07052000=
POLISHER(1) 29340000=07053000=
ELSE 29345000=07053000=
ERR(IF ELCLASS = 0 THEN 0 ELSE 123); 29350000=07053000=
GO TO COMMON; 29355000=07054000=
END; 29360000=07055000=
IF SCLASS = REALARRAYID THEN 29365000=07056000=
@ -10818,7 +10818,7 @@ HF: BEGIN 47785000
BEGIN 48055000=14417000=
REAL 48060000=14418000=
NLOC, 48065000=14418000=
NLAB; 48070000=14418000=
NLAB; 48070000=14418000=
DEFINE 48075000=14419000=
SES = 18 #, 48080000=14419000=
SED = 6 #, 48085000=14419000=
@ -10853,7 +10853,7 @@ HF: BEGIN 47785000
ERRORTOG:= TRUE; 48230000=14443000=
END; 48235000=14444000=
END; 48240000=14445000=
G:= (GT2+TAKE(J+1)).PURPT; 48245000=14446000=
G:= (GT2:= TAKE(J+1)).PURPT; 48245000=14446000=
IF GT1.[45:8] ^= STLABID*2+1 THEN 48250000=14447000=
STACKHEAD[(0 & GT2[35:35:36]) MOD 125]:= TAKE(J).LINK; 48255000=14448000=
END 48260000=14449000=
@ -11471,8 +11471,8 @@ COMMENT DO LABEL DECS UPON APPEARANCE OF LABEL ; 51265000
LFTPAREN = LEFTPAREN #, 51340000=16003000=
LOC = [11:12] #, 51345000=16003000=
LASTGT = [23:12] #, 51350000=16004000=
LOCFLD = 36:36:12 #, 51355000=16004000=
LGTFLD = 24:24:12 #; 51360000=16004000=
LOCFLD = 11:11:12 #, 51355000=16004000=
LGTFLD = 23:23:12 #; 51360000=16004000=
DEFINE 51365000=16005000=
LEVEL = LVL #, 51370000=16005000=
ADDOP = ADOP #; 51375000=16005000=