github.com/pkimpel.retro-b5500
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-b5500.git synced 2026-04-25 03:45:34 +00:00
Code Releases Activity

Correct STREAMSCLEQ comparison in XEM compilers.

Browse Source 
. Fix character-mode LEQ comparison bug reported by essentialexch on
GitHub B5500-Software repo as issue #1.
This commit is contained in:
Paul Kimpel
2023-01-11 07:06:30 -08:00
parent 3fa405f184
commit 04de2efba5
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/E-mode/xem/ALGOLXEM.alg_m
View File

@@ -1576,11 +1576,11 @@ BOOLEAN PROCEDURE STREAMSCLEQQQ(MBASE, CHR); 00882000
REAL CHR; 00882300
BEGIN COMMENT 00882400
COMPARES THE CURRENT SOURCE CHARACTER AGAINST "CHR" FOR A 00882500
LESS-THAN CONDITION. DOES NOT ADVANCE THE SOURCE INDEX. 00882600
EMULATES TLS. 00882700
LESS-THAN-OR-EQUAL CONDITION. DOES NOT ADVANCE THE SOURCE INDEX. 00882600230111PK
EMULATES TEL. 00882700230111PK
; 00882800
STREAMADJUSTSICHAR; 00882900
STREAMSCLEQQQ:= TFFF:= (BICCOLLATE[STREAMGETSC] < BICCOLLATE[CHR]); 00883000
STREAMSCLEQQQ:= TFFF:= (BICCOLLATE[STREAMGETSC] <= BICCOLLATE[CHR]); 00883000230111PK
END STREAMSCLEQ; 00883100
00883200
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00883300

6
source/E-mode/xem/ESPOLXEM.alg_m
View File

@@ -1468,11 +1468,11 @@ BOOLEAN PROCEDURE STREAMSCLEQQQ(MBASE, CHR); 02182000
REAL CHR; 02182300
BEGIN COMMENT 02182400
COMPARES THE CURRENT SOURCE CHARACTER AGAINST "CHR" FOR A 02182500
LESS-THAN CONDITION. DOES NOT ADVANCE THE SOURCE INDEX. 02182600
EMULATES TLS. 02182700
LESS-THAN-OR-EQUAL CONDITION. DOES NOT ADVANCE THE SOURCE INDEX. 02182600230111PK
EMULATES TEL. 02182700230111PK
; 02182800
STREAMADJUSTSICHAR; 02182900
STREAMSCLEQQQ:= TFFF:= (BICCOLLATE[STREAMGETSC] < BICCOLLATE[CHR]); 02183000
STREAMSCLEQQQ:= TFFF:= (BICCOLLATE[STREAMGETSC] <= BICCOLLATE[CHR]); 02183000230111PK
END STREAMSCLEQ; 02183100
02183200
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%02183300