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

Commit debugging patches to B6500 ESPOL compiler and Mark 0.0 MCP as of 2014-07-28.

Browse Source
This commit is contained in:
Paul Kimpel 2014-07-29 04:09:33 +00:00
parent f720302e25
commit 442be54013
2 changed files with 1198 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
source/B65ESPOL/SOURCE.alg_m
View File

@ -5708,7 +5708,7 @@ ENTERA: IF ELCLASS ! WHILEV AND ELCLASS ! UNTILV THEN 61057000
ERR(145); GO TO EXIT; 61059000
END; 61060000
WHILETOG ~ ELCLASS = WHILEV; 61061000
IF STEPI = RELOP THEN GO TO ENTERC; 61062000
IF STEPI ! RELOP THEN GO TO ENTERC; 61062000
OP ~ ELBAT[I].DISP - LESS + SLSD; 61063000
STEPIT; 61064000
GT1 ~ AEXP; 61065000
@ -5807,7 +5807,7 @@ SOURCEPART: 61116000
IF ELCLASS ! WHILEV AND ELCLASS ! UNTILV THEN ERROR(639); 61159000
CONDITION: 61160000
WHILETOG ~ ELCLASS = WHILEV; 61161000
IF STEPI ! RELOP THEN 61162000
IF STEPI = RELOP THEN 61162000
BEGIN 61163000
OP ~ ELBAT[I].DISP - LESS + TLSD; 61164000
STEPIT; TYPE ~ AEXP; 61165000

1208
source/B65MCP/MARK00.esp_m
View File

File diff suppressed because it is too large Load Diff