github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-05-05 15:33:58 +00:00
Code Issues Releases Wiki Activity

Commit Mark XIII ALGOL patch 101 to LONGALG.

Browse Source
This commit is contained in:
Paul Kimpel
2017-05-31 08:55:52 -07:00
parent 97d4c1ff2c
commit 0c408296e1
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B6500-Simulator/LONGALG.alg_m
View File

@@ -2015,6 +2015,7 @@ PROCEDURE SEQCOMPARE(TLCR,CLCR, LIB); 02196150
END 02196320 END 02196320
ELSE READTAPE(TLCR,MAXTLCR,FALSE); 02196330 ELSE READTAPE(TLCR,MAXTLCR,FALSE); 02196330
END 02196340 END 02196340
ELSE IF LIB THEN READTAPE(LTLCR,MAXTLCR,TRUE) %-101 02196345
ELSE READTAPE(TLCR,MAXTLCR,FALSE) 02196350 ELSE READTAPE(TLCR,MAXTLCR,FALSE) 02196350
END; 02196360 END; 02196360
LCR:=CLCR; 02196370 LCR:=CLCR; 02196370