; do-script "lnkf4p" to link/load  a fortran 4 compiler with only tty, ptr and ptp support
; after link/loading the compiler is punched as a self loading system tape on the high speed papertape puncher
set console log=frtn4p.log
; boot the extended loader
attach -b ptr ldre16kslst.ptp
boot ptr
reset all
att -b ptr frtn4.obj
; start loader
go 37000
echo "loading object tape"
con
go 37002
attach -b ptr f4$ios-b-v1.obj
echo "loading f4$ois-b-v1"
con
go 37002
attach -b ptr o$pldr
echo "loading o$pldr"
con
go 37002
attach -b ptr i$aa
echo "loading i$aa"
con
go 37002
attach -b ptr i$pa
echo "loading i$pa"
con
go 37002
attach -b ptr o$pb
echo "loading o$pb"
con
go 37002
attach -b ptr o$ab
echo "loading o$ab"
con
go 37002
attach -b ptr f4$dum-v1.obj
echo "loading f4$dum-v1"
con
go 37002
echo "loading ready"
reset all
echo "punch a selfloading tape of this compiler with pal-ap"
attach -b ptr pal-ap16k.ptp
echo "load pal-ap 16 k"
boot ptr
reset all
attach -b ptp frtn4p.ptp
go 37000
de a 40
con
de a 16677
con
=================================================================
console output generated by the executing of the script above

linux # ./h316-370t

H316t simulator V3.7-0
sim> do lnkf4p
Logging to file "frtn4p.log"

HALT instruction, P: 37633 (STA 24)

HALT instruction, P: 37445 (STA 37661)
"loading object tape"

MR

HALT instruction, P: 34306 (JMP* 34272)

*LOW   00001
*START 01003
*HIGH  15036
*NAMES 33776
*COMN  37700
*BASE  00473
F4$INT 01003**
F4$IN  01077**
F4$END 04452**
F4$SYM 14565**
F4$OUT 14602**

MR

HALT instruction, P: 34306 (JMP* 34272)
"loading f4$ois-b-v1"

MR

HALT instruction, P: 34306 (JMP* 34272)

*LOW   00001
*START 01003
*HIGH  15676
*NAMES 33622
*COMN  37700
*BASE  00501
F4$INT 15036
F4$INI 15041**
F4$IN  15046
F4$DUI 15067
I$AA   15074**
I$CA   15100**
I$PA   15104**
I$MA   15110**
C$6TO8 15117**
F4$OUT 15130
F4$DUO 15156
O$PB   15164**
O$AB   15167**
O$MB   15172**
F4$SYM 15200
O$LH   15231**
F4$DUS 15262
O$LA   15310**
C$8TO6 15313**
O$MA   15316**
F4$END 15370
O$ME   15406**
O$PLDR 15452**

MR

HALT instruction, P: 34306 (JMP* 34272)
"loading o$pldr"

MR

HALT instruction, P: 34306 (JMP* 34272)

*LOW   00001
*START 01003
*HIGH  15714
*NAMES 33622
*COMN  37700
*BASE  00501
F4$INT 15036
F4$INI 15041**
F4$IN  15046
F4$DUI 15067
I$AA   15074**
I$CA   15100**
I$PA   15104**
I$MA   15110**
C$6TO8 15117**
F4$OUT 15130
F4$DUO 15156
O$PB   15164**
O$AB   15167**
O$MB   15172**
F4$SYM 15200
O$LH   15231**
F4$DUS 15262
O$LA   15310**
C$8TO6 15313**
O$MA   15316**
F4$END 15370
O$ME   15406**
O$PLDR 15676

MR

HALT instruction, P: 34306 (JMP* 34272)
"loading i$aa"

MR

HALT instruction, P: 34306 (JMP* 34272)

*LOW   00001
*START 01003
*HIGH  16132
*NAMES 33600
*COMN  37700
*BASE  00531
F4$INT 15036
F4$INI 15041**
F4$IN  15046
F4$DUI 15067
I$CA   15100**
I$PA   15104**
I$MA   15110**
C$6TO8 15117**
F4$OUT 15130
F4$DUO 15156
O$PB   15164**
O$AB   15167**
O$MB   15172**
F4$SYM 15200
O$LH   15231**
F4$DUS 15262
O$LA   15310**
C$8TO6 15313**
O$MA   15316**
F4$END 15370
O$ME   15406**
O$PLDR 15676
I$AI   15714
I$GA   15731
I$AA   15731
C$ASR  16056

MR

HALT instruction, P: 34306 (JMP* 34272)
"loading i$pa"

MR

HALT instruction, P: 34306 (JMP* 34272)

*LOW   00001
*START 01003
*HIGH  16320
*NAMES 33572
*COMN  37700
*BASE  00532
F4$INT 15036
F4$INI 15041**
F4$IN  15046
F4$DUI 15067
I$CA   15100**
I$MA   15110**
C$6TO8 15117**
F4$OUT 15130
F4$DUO 15156
O$PB   15164**
O$AB   15167**
O$MB   15172**
F4$SYM 15200
O$LH   15231**
F4$DUS 15262
O$LA   15310**
C$8TO6 15313**
O$MA   15316**
F4$END 15370
O$ME   15406**
O$PLDR 15676
I$AI   15714
I$GA   15731
I$AA   15731
C$ASR  16056
I$PI   16132
I$PA   16147

MR

HALT instruction, P: 34306 (JMP* 34272)
"loading o$pb"

MR

HALT instruction, P: 34306 (JMP* 34272)

*LOW   00001
*START 01003
*HIGH  16450
*NAMES 33564
*COMN  37700
*BASE  00533
F4$INT 15036
F4$INI 15041**
F4$IN  15046
F4$DUI 15067
I$CA   15100**
I$MA   15110**
C$6TO8 15117**
F4$OUT 15130
F4$DUO 15156
O$AB   15167**
O$MB   15172**
F4$SYM 15200
O$LH   15231**
F4$DUS 15262
O$LA   15310**
C$8TO6 15313**
O$MA   15316**
F4$END 15370
O$ME   15406**
O$PLDR 15676
I$AI   15714
I$GA   15731
I$AA   15731
C$ASR  16056
I$PI   16132
I$PA   16147
O$PB   16320
O$PS   16425

MR

HALT instruction, P: 34306 (JMP* 34272)
"loading o$ab"

MR

HALT instruction, P: 34306 (JMP* 34272)

*LOW   00001
*START 01003
*HIGH  16610
*NAMES 33542
*COMN  37700
*BASE  00534
F4$INT 15036
F4$INI 15041**
F4$IN  15046
F4$DUI 15067
I$CA   15100**
I$MA   15110**
C$6TO8 15117**
F4$OUT 15130
F4$DUO 15156
O$MB   15172**
F4$SYM 15200
O$LH   15231**
F4$DUS 15262
O$LA   15310**
C$8TO6 15313**
O$MA   15316**
F4$END 15370
O$ME   15406**
O$PLDR 15676
I$AI   15714
I$GA   15731
I$AA   15731
C$ASR  16056
I$PI   16132
I$PA   16147
O$PB   16320
O$PS   16425
OUPT   16450
O$AB   16450
O$AS   16557
EOM    16557

MR

HALT instruction, P: 34306 (JMP* 34272)
"loading f4$dum-v1"

LC

HALT instruction, P: 34306 (JMP* 34272)

*LOW   00001
*START 01003
*HIGH  16670
*NAMES 33534
*COMN  37700
*BASE  00541
F4$INT 15036
F4$IN  15046
F4$DUI 15067
F4$OUT 15130
F4$DUO 15156
F4$SYM 15200
F4$DUS 15262
F4$END 15370
O$PLDR 15676
I$AI   15714
I$GA   15731
I$AA   15731
C$ASR  16056
I$PI   16132
I$PA   16147
O$PB   16320
O$PS   16425
OUPT   16450
O$AB   16450
O$AS   16557
EOM    16557
F4$DUM 16610
O$ME   16612
O$LH   16612
C$6TO8 16615
I$MA   16615
I$CA   16615
O$MB   16617
O$MA   16621
C$8TO6 16621
O$LA   16621
F4$INI 16626

LC

HALT instruction, P: 34306 (JMP* 34272)
"loading ready"
"punch a selfloading tape of this compiler with pal-ap"
"load pal-ap 16 k"

HALT instruction, P: 37633 (STA 24)
PTP: creating new file

HALT instruction, P: 37004 (STA 37444)

HALT instruction, P: 37007 (STA 37445)

HALT instruction, P: 37004 (STA 37444)
sim>