github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-01-11 23:42:42 +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
Show Stats 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
ELSE READTAPE(TLCR,MAXTLCR,FALSE); 02196330
END 02196340
ELSE IF LIB THEN READTAPE(LTLCR,MAXTLCR,TRUE) %-101 02196345
ELSE READTAPE(TLCR,MAXTLCR,FALSE) 02196350
END; 02196360
LCR:=CLCR; 02196370