github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-02-27 00:39:46 +00:00
Code Issues Releases Wiki Activity

Correct STREAMSCLEQ comparison in XEM compilers.

Browse Source 
. Fix character-mode LEQ comparison bug reported by essentialexch on
GitHub as issue #1.
. Also corrected bad bitsavers.org URL in APL-UW-Kildall/README.txt.
This commit is contained in:
Paul Kimpel
2023-01-11 07:03:37 -08:00
parent 9278e4b11c
commit 0de98b9641
3 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
APL-UW-Kildall/README.txt
View File

@@ -19,8 +19,7 @@ APL-IMAGE.alg_m
Tech."
A scan of that listing is available from:
http://bitsavers.trailing-edge.com/pdf/georgiaTech/APL-B5500-Listing
-19710111.pdf
http://bitsavers.org/pdf/georgiaTech/APL-B5500-Listing-19710111.pdf
Transcription was performed jointly by Hans Pufal of Angouleme,
France and Fausto Saporito of Naples, Italy during August-September

6
Unisys-Emode-Tools/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
Unisys-Emode-Tools/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