[EDITIMP4
[3 BLOCKS OF DATA STORED IN MEMORY
[SAM 0 CONTROLS THE SPEED AND DIRECTION OF THE SCANNING PROCESS
[TAPE TO BE SCANNED ON UNIT 1
[TYPE $ FOR NEW STARTING POINT
[TYPE DEL TO TAG A BLOCK
[TYPE R TO REMOVE TAG
$20
SETi12
1000
JMP 1E-2
#1L SETi11
777
SET 2
12
#1A LDAi2
DISi11
LDA
2
ADAi
-1400
APOi
JMP 1M
ADAi
400
APO
JMP 1M
LDAi
334
DIS 11
#1M XSKi11
JMP 1A
LDAi
340
STC 3
SETi1
300
SETi2
1H
JMP 1B
LDA
1377
SAEi
5000
JMP p+2
JMP 1N
LDAi
#1Z 0
ADM
12
ADAi
-1200
APOi
JMP 1D
ADAi
400
APO
JMP 1C
SAM 0
COM
SCR 2
STC 1Z
KST
JMP 1L
KBD
SAEi
21
JMP 1P
CLR
STC 1G
#1E SETi1
100
SETi2
1G
SETi3
340
JMP 1B
KST
JMP 1E
KBD
SHDi
1200
JMP 1F
ROL3
STC 1G
KBDi
ADD 1G
ROL 3
STC 1G
KBDi
ADD 1G
BSEi
1000
STC 1G
JMP 1E
#1F LDA
1G
ADAi
1001
STA
1H
ADAi
1001
STC 1I
RDCui
#1G 1000
RDCui
#1H 2001
RDCu
#1I 3002
JMP 1L
[DISPLAY TAG
#1N SET 5
0
SETi1
300
LDAi
300
DSCi
4543
DSCi
6151
DSCi
0000
SROi
3567
JMP p-10
JMP 5
[INSERT OR DELETE TAG
#1P SAEi
13
JMP 1Q
LDAi
5000
JMP 1Q+4
#1Q SAEi
45
JMP 1L
CLR
STC 1377
ADD 1H
STC p+2
WRCu
2001
JMP 1L
[CHECK TAPE LIMITS
#1C LDAi
-1
ADD 1G
SAEi
0777
STC 1G
LDAi
400
ADM
12
JMP 1F
#1D LDAi
1
ADD 1G
SAEi
1776
STC 1G
LDAi
-400
ADM
12
JMP 1F
[DISPLAY 3 DIGITS
#1B SET 5
0
SETi4
-3
LDA 2
ROL 3
#1J ROL 3
STAi
#1K 0
BCLi
7770
ROL 1
ADAi
360
STC 6
ADD 3
DSC 6
DSCi6
DSCi
0
LDA
1K
XSKi4
JMP 1J
JMP 5
$360
[MATRICES
4136
3641
2100
0177
4523
2151
5142
2651
2414
0477
5172
4651
2516
4645
4443
6050
[END FOR NOW
[EDITIMP4