Directory of image this file is from
This file as a plain text file

[CUDBUGS
[TEST FOR SAP
[NAB--CSL
CLR
STA i
#2I  00 [IN VECTOR
STA i
#2O  00 [OUT VECTOR
#1A KST  [?
JMP 1A
KBD i
SHD i
"C; [CLEAR LISTS
JMP 1C
SHD i
"F;
JMP 1F [FILL LISTS
SHD i
"E;
JMP 1E [EXAMINE LISTS
SHD i
"B;
JMP 1B [ADD B TO A
SHD i
"I;
JMP 1I [INIT SETUP -- RC->WC, ETC
SHD i
"K;
JMP 1K [KEYTEST SECTION
SHD i
"L;
JMP 1L [WC ON LISTS ?
SHD i
"X;
JMP 1X [EXTRA CNTRL SIGNAL, 9K
SHD i
"W;
JMP 1W [GET WC
JMP 1A
[
[EXTRA
#1X LDA i
 9K
JMP 2B [CNTRL OUT AND CHK
JMP 1A
[CLEAR LISTS
#1C CLR
STC 1S
STC 1P
OPR 8S
OPR 8T
LDA
 1S
OPR 8P
LDA
 1P
OPR 8Q
[CLEAR
LDA i
 9J
JMP 2B [CNTRL OUT AND CHK
LDA i
 1
ADD 1S
STC 1S
ADD p-3
ADD 1P
STA 
 1P
SAE i
7777
JMP p-23
JMP 1A
#1S  00
#1P  00
#2A  00
#3B  00
[FILL LISTS
#1F LSW
OPR 8P [S
RSW
OPR 8S [A
KBD i
LSW
OPR 8Q [P
RSW
OPR 8T [B
LDA i
 9J
JMP 2B [CNTRL OUT AND CHK
JMP 1A
[EXAM LISTS
#1E LSW
OPR 8P [LSW TO S
STC 1S
RSW
OPR 8Q [RSW TO P
STC 1P
LDA i
 9H
JMP 2B [CNTRL OUT AND CHK
CLR
OPR 8F [A
STC 2A
OPR 8E [B
STC 3B
KST i
JMP 1A+2
JMP 1D
JMP p-3
[DISP S,A,P,B
#1D LDA
 0
STC 2D-1
SET i 1 [H POSIT
 200
LDA i [VERT
 300
DSC i [S
 5121
DSC i 
 4651
SET i 1
 200
LDA i 
 200
DSC i [A
 4477
DSC i
 7744
SET i 1
 200
LDA i
 100
DSC i [P
 4477
DSC i
 3044
SET i 1
 200
LDA i
 0
DSC i [B
 5177
DSC i
 2651
LDA i
 300
STC 2V
LDA i
 300
STC 2H
LDA
 1S
JMP 2D
LDA i
 200
STC 2V
LDA
 2A
JMP 2D
LDA i 
 100
STC 2V
LDA
 1P
JMP 2D
LDA i
 0
STC 2V
LDA
 3B
JMP 2D
XXX [RET
[DISP #
[4 DIGIT # IN ACC
[H POSIT IN 2H
[V POSIT IN 2V
#2D STC 2C
ADD 0
STC 2R
SET i 3 [# CHARS
 -4
SET i 1
#2H  0 [H POSIT00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000C i 
 7744
KST
JMP p-10
JMP 1A+2
LDA i
 9B
JMP 2K
JMP p+13 [NO
SET i 1 [YES
 300
CLR
DSC i [B
 5177
DSC i
 2651
KST
JMP p-10
JMP 1A+2
LDA i
 9D
JMP 2K
JMP p+13
SET i 1
 300
CLR
DSC i [D
 4177
DSC i 
 3641
KST
JMP p-10
JMP 1A+2
LDA i
 9I
JMP 2K
JMP p+13
SET i 1
 300
CLR
DSC i [I
 7741
DSC i
 0041
KST
JMP p-10
JMP 1A+2
KST [?
JMP 1K+3
JMP 1A
[WC ON LISTS?
#1L LDA i
 9A
JMP 2J [CNTRL OUT
LDA i
 9E
JMP 2K
JMP p+13 [NO
SET i 1
 300
CLR
DSC i [E
 4577
DSC i 
 4145
KST
JMP p-10
JMP 1A+2
LDA i
 9F
JMP 2K
JMP p+13 [NO
SET i 1
 300
CLR
DSC i [F
 4477
DSC i 
 4044
KST
JMP p-10
JMP 1A+2
LDA i
 9G
JMP 2K
JMP p+13 [NO
SET i 1
 300
CLR
DSC i [G
 4136
DSC i 
 2645
KST
JMP p-10
JMP 1A+2
KST [?
JMP 1L+3
JMP 1A
[ADD B TO A
#1B CLR
OPR 8T [B
LDA i
 9L
JMP 2J [OUT
LDA i
 9L
JMP 2K [BACK?
JMP p-3 [NO
JMP 1A [YES
[
[GET WC
#1W CLR
OPR 8C
STC 2W
OPR 8D
STC 3W
LDA i
 200
STC 2H
STC 2V
LDA
 2W
JMP 2D
CLR
ADD 1
STC 2H
LDA
 3W
JMP 2D
KST
JMP p-16
JMP 1A+2
#2W 00 [WC1
#3W 00 [WC0
[
[MM SUBRS
[CONTROL OUT + CHK
#2B STA
p+5
BCO [MOD IN VECT
 2I
STC 2I
LDA i
  0 [BIT TO CHK
BCO [MOD OUT VECT
 2O
OPR 8Y [CNTRL OUT
STC 2O
LDA [SELECT BITS TO TEST
 p-6
COM
STC p-10
ADD 2I
BCL
p-13
STC p+11
NOP [WAIT A BIT
NOP
NOP
NOP
OPR 8Z [CNTRL IN
BCL
p-23
SAE i [HAVE RET?
  0 [CHK
HLT [NO RET
JMP 0 [YES
[
[CONTROL OUT
#2J BCO [MOD OUT VECTOR
 2O
OPR 8Y [OUT
STC 2O
JMP 0
[
[TEST CNTRL RET
[TO p+1 IF NO RET
[TO p+2 IF RET
#2K STC p+21 [SAVE
ADD 0 [SAVE RET
STC p+15
ADD p+16
BCO [MOD IN VECT
 2I
STC 2I
OPR 8Z [IN
SAE
 2I
JMP p+6 [NO RET
LDA i
  1
ADM [INCR RET ADDR
 p+1
 000[RET
LDA i [FIX IN VECTOR
 0 [STORAGE
BCO
 2I
STC 2I
JMP p-6
[
[TAGS
[CONTROL BITS
9A=1
9B=2
9C=4
9D=10
9E=20
9F=40
9G=100
9H=200
9I=400
9J=1000
9K=2000
9L=4000
[
8C=72
8D=73
[
8E=74
8F=75
8S=56
8T=57
8N=52
8O=53
8P=54
8Q=55
8Y=47
8Z=67