*20
/DIAL LOADER
*16
DO, RCG
7300
CLR
AXO
ESF
IOB
6002
JMP DO
/\
$AS
NDIT
LDA
17
IOB
6026
CLR
STC TFLG
XSK I 17
NOP
LDA
TFLG
APO I
JMP .-3
JMP FOO
PMODE
EXTRN, 0
DCA TFLG
6021
JMP I EXTRN
6022
CMA
DCA TFLG
ISZ EXTRN
JMP I EXTRN
TFLG, 0
LMODE
ENDIT,
OPR 11
0
OPR 7 /ENDIT\
%DX,3
MARK12,0
	ADD   XX
	STC   XX
	LDA
	A
	MUL   4
	STC   Y
	LDA
	B
	MUL   3
	COM
	ADD   Y
	STC   Y
	ADD   XX
	STC   X
	JMP   LOOP
XX,	0
%LO
	JMP STOPT
	11	/"BAD TAPE"
TACTST,	TAC
	AZE
	JMP 0
TPIGO,	JMP SETG
	LDA I
	LIF 0
	STA I 16
	LDA I