From 0de98b96419bd2f97dabecbf812ada60c50364d5 Mon Sep 17 00:00:00 2001 From: Paul Kimpel Date: Wed, 11 Jan 2023 07:03:37 -0800 Subject: [PATCH] Correct STREAMSCLEQ comparison in XEM compilers. . 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. --- APL-UW-Kildall/README.txt | 3 +-- Unisys-Emode-Tools/xem/ALGOLXEM.alg_m | 6 +++--- Unisys-Emode-Tools/xem/ESPOLXEM.alg_m | 6 +++--- 3 files changed, 7 insertions(+), 8 deletions(-) diff --git a/APL-UW-Kildall/README.txt b/APL-UW-Kildall/README.txt index d7f8e75..1ab5bab 100644 --- a/APL-UW-Kildall/README.txt +++ b/APL-UW-Kildall/README.txt @@ -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 diff --git a/Unisys-Emode-Tools/xem/ALGOLXEM.alg_m b/Unisys-Emode-Tools/xem/ALGOLXEM.alg_m index d6aad2e..122b150 100644 --- a/Unisys-Emode-Tools/xem/ALGOLXEM.alg_m +++ b/Unisys-Emode-Tools/xem/ALGOLXEM.alg_m @@ -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 diff --git a/Unisys-Emode-Tools/xem/ESPOLXEM.alg_m b/Unisys-Emode-Tools/xem/ESPOLXEM.alg_m index d38faea..657c8da 100644 --- a/Unisys-Emode-Tools/xem/ESPOLXEM.alg_m +++ b/Unisys-Emode-Tools/xem/ESPOLXEM.alg_m @@ -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