*20
/// MAKTAP
/PROGRAM TO RUN UNDER DIAL & MAKE
/A PAPERTAPE CONTAINING A LIST OF
/8 BIT NUMBERS.
/
/
	TSF=6041
	TLS=6046
BEG,	HLT		/**PAUSE
	SET I 11
	-14		/LOOPING CNTR
DOIT,	SET I 7		/PNTR
	LST-1
	SET I 10	/LIST
	LST-LSTEND-1
	IOB
	TLS
	 
NXT,	LDA I 7		/GET A VALUE
	IOB		/TYPE IT
	TLS
	IOB		/WAIT FOR FLAG
	TSF
	JMP .-2
	XSK I 10	/DUN?
	 JMP NXT	/MORE
	 
	XSK I 11	/DUN LOOPING
	 JMP DOIT	/ANOTHER LOOP
	JMP BEG		/DUN
	 
/LIST OF NUMBERS TO BE TYPED OUT.
	DECIMAL
LST,	255
	250
	0
	200
	51
	150
	100
	0
	250
	24
	51
	224
	151
	100
	0
	200
	50
	151
	224
	24
	175
	174
	74
	124
	224
	0
	225
	24
	250
	50
	175
	150
	124
	201
	50
	74
	224
	100
	150
	125
	250
	0
	150
	74
	174
	50
	124
	0
	201
	74
	74
LSTEND,	255
	OCTAL
///END MAKTAP.