*20
/
/LAP4Q+A
/SAME AS Q+ASUB FOR LINC-8
	*1000
LQAO2, LDA I
	5776
	ADD  0
	STC LQAO2+11
	ADD  1
	STC LQAR7+1
	SET I  1
	401
	SET I  16
	0
	JMP LQAQ5
	JMP LQAR1-2
	JMP LQAR1
	SHD I 
	1200
	XSK I  1
	JMP  .-6
	JMP LQAQ1
	JMP  .-10
LQAR1, LDA
	1
	ROL  4
	STC LQAR3+2
	XSK I  16
	ADD  16
	BSE I 
	JMP 
	STC LQAR7+2
LQAR2, SET 16
	LQAO2+11
	JMP LQAQ5
	LDH I  16
	JMP  .+2
	JMP  .-3
	LDA I 
	-4000
	ADM 
	16
LQAR3, STC LQAQ2+1
	LDA I 
	0
	STC LQAQ4-1
	SET  17
	LQAO2+11
	SET I  1
	100
	LDA I 
	-40
	ADM I 
	0
LQAQ4, LDH I 17
	JMP LQAQ5+1
	JMP  .-2
	JMP LQAR4
	SHD I 
	1200
	JMP LQAR3+6
	ROL  1
	ADA I 
	LQAQ6
	STC  15
	ADD LQAR7+3
	ADD  1
	STC  1
	ADD LQAQ4-1
	DSC  15
	DSC I  15
	JMP LQAQ4
LQAR4, KST
	JMP LQAR3+1
	515	/KBD INST
	SHD I 
	1300
	JMP LQAQ2
	SHD I 
	1200
	JMP LQAQ3
	SAE I 
	23
	JMP  .+3
	535	/KBD I  INST
	ADD LQAK7
	JMP LQAQ5+1
	NOP 
	JMP LQAR3+1
	STC  .+5
	JMP LQAQ5
	JMP LQAR3-4
	JMP LQAR3-4
	LDA I 
	0
	STH  16
	JMP LQAR3+1
LQAQ1, SET I 17
	23
	SET  15
	0
	JMP LQAQ5
	JMP  15
	JMP LQAR7
	LDA 
	17
	STH  16
	JMP  .-6
LQAQ2, LDA I
	0
	SAE 
	16
	JMP  .+2
	JMP LQAO2+6
	STC  16
	JMP LQAQ1
	SET  16
	LQAQ2+1
	JMP LQAR3+1
LQAQ3, SET I 17
	14
	JMP LQAQ1+2
	JMP LQAQ7
LQAQ5, LDH I 16
	SHD I 
	7600
	JMP  0
	SAE I 
	77
	XSK I  0
	XSK I  0
	JMP  0
	*1200
/KBD CODES
	4136
	3641
	2101
	0177
	4523
	2151
	4122
	2651
	2414
	0477
	5172
	0651
	1506
	4225
	4443
	6050
	5126
	2651
	5120
	3651
LQAR7, SET I 1
	0
	JMP  0
	4
	0
	0
	0101
	0126
	3700
	3424
	0404
	0404
	0404
	0437
	0
	0077
	3614
	1436
	4020
	2055
	4477
	7744
	5177
	2651
	4136
	2241
	4177
	3641
	4577
	4145
	4477
	4044
	4136
	2645
	1077
	7710
	7741
LQAK7, 0041
	4142
	4076
	1077
	4324
	0177
	0301
	3077
	7730
	3077
	7706
	4177
	7741
	4477
	3044
	4276
	0376
	4477
	3146
	5121
	4651
	4040
	4077
	0177
	7701
	0176
	7402
	0677
	7701
	1463
	6314
	0770
	7007
	4543
	6151
	1212
	1212
	0107
	0107
	0500
	0006
	0001
	0
	4577
	7745
	4177
	0
	0
	0
	5000
	0060
	0
	7741
	0
	0
	0
	0
	0
	0075
0	/NOT USED BY Q+A
0	/N U
0	/N U
0	/N U
0	/N U
0	/N U
0	/N U
0	/N U
LQAQ7, JMP LQAQ5
	JMP LQAR2+3
	JMP LQAR7
	JMP  .-3
LQAQ6=1200
/END LAP4Q+A
/
$	4044
	4136
	2645
	1077
	7710
	7741
LQAK7, 0041
	4142
	4076
	1077
	4324
	0177
	0301
	3077
	7730
	3077
	7706
	4177
	7741
	4477
	3044
	4276
	0376
	4477
	3146
	5121
	4651
	4040
	4077
	0177
	7701
	0176
	7402
	0677
	7701
	1463
	6314
	0770
	7007
	4543
	6151
	1212
	1212
	0107
	0107
	0500
	0006
	0001
	0
	4577
	7745
	4177
	0
	0
	0
	5000
	0060
	0
	7741
	0
	0
	0
	0
	0
	0075
0	/NOT USED BY Q+A
0	/N U
0	/N U
0	/N U
0	/N U
0	/N U
0	/N U
0	/N U
LQAQ7, JMP LQAQ5
	JMP LQAR2+3
	JMP LQAR7