github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-02-26 16:23:22 +00:00
Code Issues Releases Wiki Activity

Commit initial patch & compile deck for GTL compiler.

Browse Source
This commit is contained in:
Paul Kimpel
2018-06-22 15:54:14 -07:00
parent 52bcd8be03
commit 1fd62ddc9a
1 changed files with 26 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
CUBE-Library-13/Patches/GTL-Compile.card Normal file
View File

@@ -0,0 +1,26 @@
? REMOVE GTL/NEW, NEWSYM/GTL.
? COMPILE GTL/NEW ALGOL LIBRARY.
? ALGOL FILE TAPE=GTL/L200015 SERIAL.
? STACK = 1000.
? ALGOL STACK = 1000.
? CORE = 8000.
? ALGOL CORE = 12000.
? PROCESS=15.
? ALGOL PROCESS=25.
? IO=15.
? ALGOL IO=25.
? FILE LINE=LINE PRINT BACK UP
? FILE TAPE=TAPE TAPE.
? FILE NEWTAPE=NEWSYM/GTL TAPE.
? FILE CASTA=CASTA/LIBRARY SERIAL.
? FILE CASTB=CASTB/LIBRARY SERIAL.
? FILE CASTC=CASTC/LIBRARY SERIAL.
? DATA.
$ TAPE LIST SINGLE SEQXEQ 00000000
BEGIN LABEL L; 02016990180614PK
SI ~ FCR; IF SC ! "$" THEN TALLY ~ 1 ELSE BEGIN % %T0302017000180614PK
LABEL LL1;% 05018100180614PK
IF GOTCHA AND "RCC63YH"!TIME(-1) THEN CHECKSTREAMS; % %T0309361001180614PK
(LAST CARD) 99999999
? UNLOCK GTL/NEW.
? END.