*20
/
/QANDAS
/QANDA WITH NO COMMENTS
/CALL BY:
/	JMP QAINIT
/	QATEXT  (POINTER)
/	ANSWER  (POINTER)
/	JMP QARFSH
/	CONTROL RTNS TO CALLING PGM HERE
/
*1000
QAINIT,	LDA I
2
ADD
STA I
QAB,	0
ADD QAL+3
STC 1
LDA 1
ADD QAQ+1
STC QAG-3
LDA I 1
STC QARFSH-1
STC 6
QACA,SET 3
QARFSH-1
SET 4
QAG-3
SET 1
4
JMP QAT
16
LDH I 4
QAD,	JMP QAO
JMP .+6
JMP QAE
SAE I
43
JMP QAD
JMP QACA+4
STH 3
LDH I 4
ADA I
-60
COM
STC 6
STH I 3
XSK I 6
JMP .-2
LDH I 3
JMP QAD
QAE,	STH 3
SET I 4
0
QARFSH,	LDA I
277	/VERT COORD, TOP LINE
STC QAH-1
SET I 3
0
SET 5
QARFSH-1
QAG,	SET 1
3
JMP QAT
JMP .+7
LDH I 3
LDA I
BCL I
STC QAM+2
ADD QAW
JMP QAM
LDH I 3
LDA I
BSE I
STC QAM+2
ADD QAW+1
QAM,	STC QAP+3
MSC I 4
BSE I
200
MSC 4
SET I 1
100
LDA I
-40
ADM I
0
QAH,	LDH I 3
JMP QAO+1
JMP QAZ
JMP QAJ
SHD I
4300
JMP QAG
JMP QAP
JMP QAH
JMP QAP
SRO I
0
JMP QAF
QAI,	LDH I 5
JMP QAO+1
JMP QAH
JMP QAH
JMP QAI-4
QAJ,	JMP GETKBD
AZE I
JMP QAB
SET I 2
QAY
SHD 2
JMP QAK+4
SHD I 2
JMP QAN
XSK 6
JMP QARFSH
SHD I 2
JMP QAL
SHD I 2
JMP QAK
SHD I 2
JMP QACA
SHD I 2
JMP QARFSH
SHD I 2
JMP QAL
SHD I 2
JMP QARFSH
STC .+5
JMP QAO
JMP QAQ
JMP QAQ
LDA I
0
STH 4
JMP QARFSH
QAL,	LDH 4
JMP QAO+1
JMP QARFSH
-6002
LDH 2
SAE I
37
JMP QAQ
SET 5
4
SET 3
4
JMP .+2
LDH I 5
LDH I 3
JMP QAO+1
NOP
CLR
STH 5
AZE
JMP .-7
JMP QAQ
QAN,	XSK 6
JMP QAK+4
JMP QAO
JMP QARFSH
JMP QAE+1
JMP QAN+2
QAO,	LDH I 4
SHD I
7400
JMP
SAE I
34
XSK I
XSK I
JMP
QAP,	ROL 1
ADD QAX+4
STC 2
ADD QAU
ADD QAU
ADD 1
STC 1
ADD 5
COM
ADD 4
AZE
CLR
STC QAI-2
ADD QAH-1
DSC 2
DSC I 2
JMP
QAQ,	LDA I
-4000
ADM
4
JMP QARFSH
QAT,	LDH I 1
SHD I
600
JMP
SAE I
10
XSK I
XSK I
JMP
QAZ,	LDH I 3
LDA I
40
JMP QAI-4
QAK,	LDH I 4
AZE I
JMP QAQ
JMP QAX
LDA I
1
ADM
QAB
JMP QAB
QAV,	101
101
4477
7744
5177
2651
4136
2241
4177
3641
4577
4145
4477
4044
4136
2645
1077
7710
7741
41
4142
4076
1077
4324
177
301
3077
7730
3077
7706
4177
7741
4477
3044
4276
376
4477
3146
5121
4651
4040
4077
177
7701
176
7402
677
7701
1463
6314
770
7\7
4543
6151
4177
0
0
0
0
7741
QAY,	4543
7476
3634
3747
0
0
7500
0
7\0
70
QAX,	JMP QAO+1
JMP QAQ
JMP QAQ
JMP QARFSH
QAV
0
5166
526
0
0
3600
41
4100
36
2050
50
404
437
500
6
404
404
1
0
601
4030
4536
3651
2101
177
4523
2151
4122
2651
2414
477
5172
651
1506
4225
4443
6050
5126
2651
5122
3651
2200
0
4601
0
QAU,	2
0
1212
1212
QAW,	NOP
ADD QAU
4020
2055
QAF,	DSC I
6\0
JMP QAI
GETKBD,	LDA
0
STC QAEXIT+6
ADD 1
STC QAEXIT+3
ADD 2
STC QAEXIT+5
STC QAEXIT+1
KST
JMP
IOB
6036
STA I
QATY,	0
ADA I
-237
APO
JMP QACNTR
SET I 1
QACHAR-1
SET I 2
-7
LDA
QATY
SAE I 1
JMP .+2
JMP QAEXIT
XSK I 2
JMP .-4
ADA I
-337
APO
JMP QALEGL
SAE I 1
JMP .+7
LDA I
334
JMP QATPE
LDA I
37
JMP QAEXIT+2
SAE I 1
JMP QAEXIT
JMP QAEXIT+2
QALEGL,	LDA
QATY
JMP QATPE
ADD QATY
BCL I
7700
JMP QAEXIT+2
QACNTR,	SAE I
7755
JMP QACKLF
LDA I
43
STC QAEXIT+1
LDA I
215
JMP QATPE
LDA I
212
JMP QATPE
JMP QAEXIT
QACKLF,	SAE I
7752
JMP .+4
LDA I
45
JMP QACNTR+5
SAE I
7751
JMP QAEXIT
LDA I
47
JMP QAEXIT+2
QAEXIT,	LDA I
0
SET I 1
0
SET I 2
0
JMP
QATPE,	IOB
6046
LDA
0
STC .+4
IOB
6041
JMP .-2
JMP 0
QACHAR,	243
244
245
247
300
336
337
40
36
/END QANDAS