[TESTLINE
[TEST FOR SUBROUTINE LINE
$20
SAM 0
ROL 1
STC 3Y
SAM 1
ROL 1
ADAi
377
STC 3X
SAM 6
ROL 1
STC 4Y
SAM 7
ROL 1
ADAi
377
STC 4X
JMP 1Z
JMP 20
[SUBROUTINE LINE
#1Z SET 17
0
LDA
3X
COM
ADD 4X
STA
2X
APO
COM
STC 1X
ADD 3Y
COM
ADD 4Y
STA
2Y
APO
COM
STC 1Y
STC 16
ADD 1Y
COM
ADD 1X
APO
CLR
ADD 1Y
AZEi
JMP 17
ROL 1
XSKi16
APOi
JMP p-3
LDAi
ROL
ADD 16
STA
p+3
STC p+5
ADD 1X
ROL 1
STC 5X
ADD 1Y
ROL 1
STC 5Y
ADD 2X
SCR 13
BCOi
0001
STC 2X
ADD 2Y
SCR 13
BCOi
0001
STC 2Y
CLR
STC 1A
STC 1B
STC 1F
[BEGIN DISPLAY
#1D CLR
ADD 5X
LAMi
#1A 0000
LZEi
JMP p+14
CLR
COM
STC 1F
LDAi
-1
ADMi
#1X 0000
LDAi
#2X 0000
ADMi
#3X 0000
CLR
ADD 5Y
LAMi
#1B 0000
LZEi
JMP p+14
CLR
COM
STC 1F
LDAi
-1
ADMi
#1Y 0000
LDAi
#2Y 0000
ADMi
#3Y 0000
LDAi
#1F 0000
APO
JMP 1E  [DISPLAY
LDA
1X
ADD 1Y
AZE
JMP 1D
JMP 17  [EXIT
[DISPLAY
#1E SET 1
3X
LDA
3Y
DIS 1
CLR
STC 1F
JMP 0
#4X 0000
#4Y 0000
#5X 0000
#5Y 0000
[END SUBROUTINE LINE
[END TESTLINE
[9 FEB. 1971
$400
SETi11
4
LDAi
340
STC 1M
SETi10
-20
#1L LDAi
400
STC 4X
LDAi
377
STC 4Y
SAM 0
ROL 1
STC 3Y
LDA
11
ADMi
#1M 0000
STC 3X
JMP 1Z
XSKi10
JMP 1L
SETi11
-4
SETi10
-20
SROi
2525
JMP 1L
JMP 400
$1000
SETi12
1N-1
SETi13
1N-1+4
SETi14
-20
#1P SAM 0
ROL 3
ADAi
1770
STC 5
LDAi12
MUL
4005
STC3Y
LDAi13
MUL
4005
ADAi
400
STC3X
CLR
STC 4Y
CLR
ADAi
400
STC 4X
JMP 1Z
XSKi14
JMP 1P
JMP 1000
#1N 144
134
107
46
0
-46
-107
-134
-144
-134
-107
-46
0
46
107
134
144
134
107
46
0
-46
-107
-134
-144
-134
-107
-46
0
[END