File: SLFLD.PA of Tape: Various/System-Tapes/s5

(Source file text) 

---

/OS/8 SELF LOADER PUNCH PROGRAM

*200

	KCC
	TLS
	TAD M101
	DCA CTR
MORE,	JMS PUN
	ISZ CTR
	JMP MORE
ACAI,	TAD I CON
	JMS PUN
	ISZ CON
	ISZ TEL
	JMP ACAI
	TAD M101
	DCA CTR
TRAI,	TAD K200
	JMS PUN
	ISZ CTR
	JMP TRAI
	HLT
PUN,	0
	TLS
	TSF
	JMP .-1
	CLA
	JMP I PUN
CTR,	0
CON,	240
TEL,	-146
M101,	-101
K200,	200

*240
LS1,	317
	302
LS2,	367;127;107;41;00;00;20
LS3,	317;102
LS4,	367;67;67;67;61
LS5,	317;172
LS6,	367;64;231;71;55;106;46;102;34;07
HERE,	73;00;54;03;77;34;00;00;72;77;13;12;43;12;43;12
	67;73;53;03;67;77;37;26;23;26;53;03;57;31;20;00
	13;00;67;74;67;71;53;15;67;76;03;32;13;27;76;40
	53;15;23;21;57;12;73;54;77;56;77;47;74;00;00;77
	72;00;10;25;77;30;57;30;62;12
$

---