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

[LAP5 COPY
[BLOCKS 336-337
[Q0-1
$15
RCG 7E
7|7D
JMP 4A-2
[TAPE TRANSFERS
[READ, WRITE, CHECK
#2M SET 2
1F [-#BLOCKS
[RDC
SET 3
2  [-# LEFT
SET i 4
1R
JMP 1W [FIX QN
RDC i
#1R BN
JMP 1X [UP BN, AND CHECK 2
JMP p+3 [RDC ALL DONE
AZE
JMP 1R-1
LDA i [RDC DONE 7 BLOCKS
#2N -15 [MTB u
JMP 2X [MOTION STOP
[WRITE
SET 2
3  [-# LEFT
#2A SET i 4
2B
JMP 1W
WRI i
#2B BN
JMP 1X
JMP 1F-1 [WRI ALL DONE
AZE
JMP 2B-1
LDA i [WRI DONE 7 BLOCKS
#2P -24   [MTB u
JMP 2X [MOTION CHECK
JMP 2M+2
[CHECK
SET i 2
#1F -N BLOCKS
CHECK TAPE
BN
AZE
JMP 1E [ERROR
ADD p-3
ADD 2X+7 [1
STC p-5
XSK i 2
JMP 1F+1
JMP 15
[CHECK FAILURE
#1E LDA
1F+2
STC 2B
ADD 2
STA
1F
ADD 1R
AZE i
COM [BN IS ZERO
BCL i
7000
STC 1R
JMP 2M+2
[FIX QN
#1W CLR
ADA 4
BSE i
1000
STA 4
JMP 0
[FIX BN AND CHK 2
#1X LDA i
1001
LAM 4
BCL i
777
XSK i 2
XSK i 0 [NOT DONE
JMP 0 [DONE, p+1
[MOTION CHECK
#2X SET 1
0
SHD
4|p+3
JMP 0 [SAME UNIT
STC p+1
MOVE TOWARD BLK
1
IBZ
JMP p-1
JMP 1
[DISPLAY QUESTIONS
RDC 7E
1|7D+37
#4A SET i 13
3C+4 [SAVE PARAMETERS
SET i 6
3A-1 [PARAMETER LENGTH
SET i 2
3C-1 [DIS CODES
[KBD PRESET
LDA i 6
STC 3 [COUNTER
LDA i 2
STC 5 [SAVE CODES
[DISPLAY PRESET
#3D SET i 4
-6   [# OF LINES
LDA i
101  [Y COOR
STC 6F+1
SET i 12
6B-3+4000
SET i 1
100  [X COOR
#3F LDH i 12
SHD i 
7700
JMP 3F
SHD i
1200
JMP 3H
[DISPLAY
ROL 1
ADA i
6A   [2000
STC 11
#6F LDA i
Y COOR
DSC 11
DSC i 11
LDA i
4
ADD 1
STC 1
[KEYBOARD
KST
JMP 3F
#3K KBD i
SHD i
1200
JMP 3M [EOL
SHD i
1300
JMP 3R [DELETE
SHD i
2300
JMP 15 [CASE
AZE i
JMP 3L-2
ADA i
-7
APO i
JMP 3F [NOT OCTAL DIGIT
ADA i
7
XSK i 3
JMP 3L+3
#3L SET i 3
-1   [TOO MANY
JMP 3F
STH i 5 [SAVE
JMP 3F
[EOL-LOWER Y
#3H LDA i
-40
ADM
6F+1
XSK i 4
JMP 3F-2
JMP 3D
[CHECK BN FOR 1ST ENTRY
#3N LDA 2
STC 5 [RESET 5
STC 3P
LDH i 5
SHD i
7700
JMP 3P-1
ADD 3P
ROL 3
JMP 3N+2
LDA i
#3P BN
ROR 3
STA
3P
APO
JMP 3R [ILLEGAL
ADA i
-1000
APO i
JMP 3R [ILLEGAL
LDA
3P
JMP 3Q [ENTRY OK
[DELETE-ILLEGAL
#3R LDA
5
SAE
3C
JMP 3R+6
JMP 3F [NOTHING TO DELETE
SAE 2
JMP 3T-1
LDA
6
ADD 3L+1 [-1
STC 6
ADD 2
ADD 3L+1 [-1
STC 2
ADD 13
ADD 3L+1 [-1
STC 13
LDA 2
#3T STC 5
LDA i
13
STH i 5
LDA i
77
STH i 5
STH i 5
STH i 5
LDA 6
STC 3 [RESET COVNTER
LDA 2
STC 5 [RESET ADDRESS
JMP 3F
[KEYBOARD EOL
#3M LDA 6
SHD
4003
JMP 3F [NOTHING TYPED YET
SAE i
-2
JMP 3N [CHECK BN
LDH 5 [CHK UNIT
BCL i
5 [UNITS 0-1-4-5
AZE
JMP 3R [ILLEGAL
LDH 5
ROL 3
#3Q STA i 13 [ENTRY OK
LDA
6
SAE i
3A+4
JMP 3D-4 [DO NEXT SET
[TAPE PRESET
#3V SET i 13
3C+4
LDA i 13 [# BLKS
AZE i
JMP 15 [0 BLKS
COM
STC 1F
LDA 13
STC 3W+1
JMP 3W
LDA 13  [RDC BN
STC 1R
LDA i 13 [RDC UNIT
ADM
1R-1   [RDC i u
ADD 2N  [-15
STC 2N [MTB u
JMP 3W
LDA 13 [WRI BN
STA
2B
STC 1F+2 [CHK BN
LDA i 13 [WRI UNIT
ADM 
2B-1   [WRI i u
ADD 2X+7  [1
STA
1F+1   [CHK i u
ADM
2P     [MTB u
STC 2X+6 [MOTION
JMP 2M [TRANSFER
[CHECK BOUNDS
#3W LDA i
NUM BLKS
ADA i 13  [BN
ADD 3P+7 [-1000
APO
JMP 0  [OK
JMP 15  [OUT OF BOUNDS
[DISPLAY TABLE
2642 [COPY
4354
#6B 1213
7777
7777
1425 [BLOCKS
3742
2636
4612
3145 [FROM
4240
1425 [BLOCK
3742
2636
#6C 1413
7777
7712
5041 [UNIT
3447
1413
7777
7763 [,
1247 [TO
4214
2537 [BLOCK
4226
#6E 3614
1377
7777
1250 [UNIT
4134
4714
1377
7777
1200
#3A -5
-4
-2
-4
-2
#3C 6B
6C
6C+5
4|6E
4|6E+5
NUMBER BLOCKS
FROM BLOCK
UNIT
TO BLOCK
UNIT
$642
[MNEMONICS
"TS;
"MS;
"SD;
"KX;
"LR;
"RR;
"RS;
"LS;
"PS;
"RO;
0   [UNDEFINED
"BL; [LOWER MEMORY BANK
"BU; [UPPER MEMORY BANK
"PM;
"TM; [MAG TAPE TWO=740
"AL;
"AS;
"AA;
"MA;
"ML;
"LM;
"HL;
"HS;
"DS;
"ES;
"OS;
"LB;
"EB;
"OB;
0
"CD;
"DA;
"CS;
"PJ;
[SUBSTITUTE MNEMONICS
"TH;
"AZ;
"IE;
"RC;
"RA;
"AR;
"PN;
"MC;
"TK;
"SS;
"NP;
"EA;
"OA;
"EL;
"ZI;
"FO;
"ZZ;
"CR;
"GR;
"ER;
"BM;
"CW;
"GW;
"IW;
"KC;
"DK;
"WR;
"WL;
[CODES
#6G ADD
STC
JMP
HLT
ZTA
ENI
CLR
ATR
RTA
NOP
COM
KST
SNS
PIN
AZE
APO
LZE
IBZ
OVF
ZZZ
RDC
RCG
RDE
MTB
WRC
WCG
WRI
CHK
KBD
RSW
#8Z LSW
6A=2001 [GRID PATTERNS
7D=300
7E=0
[COPY 
[MNEMONICS STAY WITH COPY MANUSCRIPT
[CPJAN20