[ R
[  E
[   M
[    O
[O    V
[ R    E
[  I
[   G
[    I
[     N
$400
[  ------
[   ----
[SIMPLOT
[CALL AS FOLLOWS-
[JMP 4P
[   X
[   Y
[NEXT INSTRUCTION
[AJH, JUNE 1967
#4P LDA
0
BCLi
6000
STC 14
LDA 14
STC 4X
LDAi14
STC 4Y
LDAi14
LDA
14
ADD 4P+3
STC p+2
JMP 4Z
JMP 000
[CLOSEOUT PLOT
#4Q SET 17
0
CLR
STC 3X
STC 3Y
JMP 3R+2
[SET PLOTTER WIDE
#3W LDA
0
STC 3U+20
LDAi
OPR 10
STC 4J+6
LDAi
OPR 7
STC 4J+12
LDAi
OPR 12
STA
3U+12
STC 4K+6
LDAi
OPR 11
STA
3U+3
STC 4K+12
JMP 3U
[SET PLOTTER TALL
#3T LDA
0
STC 3U+20
ADD 3W+17
STA
3U+12
STC 4J+6
ADD 3W+12
STA
3U+3
STC 4J+12
ADD 3W+4
STC 4K+6
ADD 3W+7
STC 4K+12
[RESET PEN POSITION BEFORE STARTING.
#3U JMP 4Q
LDAi
-3000
OPR 11
JMP 4L
ADD 4E
APO
JMP p-4
LDAi
-62
OPR 12
JMP 4L
ADD 4E
APO
JMP p-4
JMP 4Q
JMP 0000
[INTERPOL
JMP 000
#4Z LDA
0
STC 4Z-1
STC 15
ADD 3X
COM
ADD 4X
STAi
#4A 0
APO
COM
STC 4B
ADD 3Y
COM
ADD 4Y
STAi
#4C 0
APO
COM
STC 4D
ADD 4D
COM
ADD 4B
APO
CLR
ADD 4D
AZEi
JMP 4Z-1
ROL 1
XSKi15
APOi
JMP p-3
LDAi
240
ADD 15
STC 4H
ADD 15
COM
ADAi
254
STC 4G
ADD 4E
#4G ROL 10
ADD 4E
COM
STC 15
ADD 4B
JMP 4H
STC 4B
ADD 4D
JMP 4H
STC 4D
STC 4M+3
STC 4M+11
#4M CLR
ADD 4B
LAMi
0
LZE
JMP 4J
CLR
ADD 4D
LAMi
0
LZE
JMP 4K
LDAi
#4I 0
APOi
JMP 4L
COM
STC 4I
ADD 4E
ADM
15
AZE
JMP 4M
JMP 4Z-1
#4X 0
#4Y 0
#4B 0
#4D 0
#4H ROL 4
JMP 0
#4J SET 17
0
LDA
4A
APO
JMP p+5
OPR 10
LDAi
#4E 1
JMP p+4
OPR 7
LDAi
#4F -1
ADMi
#3X 0
CLR
STC 4I
JMP 17
#4K SET 17
0
LDA
4C
APO
JMP p+5
OPR 12
LDA
4E
JMP p+4
OPR 11
LDA
4F
ADMi
#3Y 0
CLR
STC 4I
JMP 17
#4L SET 17
0
SETi16
1640
XSKi16
JMP p-1
JMP 17
[LOWER PEN
#3L SET 17
0
LDAi
#4R 7777
APO
JMP 17
OPR 14
CLR
COM
STC 4R
SETi16
0
XSKi16
JMP p-1
SROi
3333
JMP 3L+12
JMP 17
[RAISE PEN
#3R SET 17
0
LDA
4R
APOi
JMP 17
OPR 13
CLR
STC 4R
JMP 3L+12
[END OF INTERPOL
[SIMPALPH
[CHARACTER SET FOR
[CALCOMP PLOTTER.
[CALL AS FOLLOWS-
[JMP 4U, WITH THE
[CHARACTER IN
[ACCUMULATOR FOR
[REGULAR OUTPUT.
[CODES 70 AND UP
[FOR GRAPH SYMBOLS.
LDAi
0000
APO
JMP 3L
JMP 000
#4U BCLi
7700
STAi
0
LDA
0
STC 4U-1
ADD 3X
STC 3C
ADD 3Y
STC 3D
ADD 4U+3
ADAi
-67
APOi
JMP p+4
LDAi
-1
JMP p+3
LDAi
-4
STC 3Z
ADD 4U+3
ADAi
4S
STC p+2
LDA
0
ADAi
3777
STC 14
ADD 4R
STC 4U-4
[DRAW CHARACTER
JMP 3R
JMP p+2
JMP 3L
#3A LDHi14
AZEi
JMP 4U-1
SHDi
0100
JMP 3A-3
SHDi
0200
JMP 3A-1
JMP 3P
STAi
#3N 0000
LDH 14
SCR 3
JMP 3P
STAi
#3M 0000
LDAi
#4T 0000 [FLAG FOR  HORIZONTAL OR VERTICAL
APO
JMP p+10
ADD 3N
ADD 3D
STC 4Y
ADD 3M
ADD 3C
STC 4X
JMP p+10
ADD 3N
COM
ADD 3C
STC 4X
ADD 3M
ADD 3D
STC 4Y
JMP 4Z
JMP 3A
[SCALE AND OFFSET
#3P BCLi
7770
ADD 3Z
MULi
#3B 0000
JMP 0
[STORAGE
#3Z -4
#3C 0
#3D 0
[SET CHARACTERS ON  VERTICAL
#3V CLR
COM
STC 4T
JMP 0
[SET CHARACTERS ON  HORIZONTAL
#3H CLR
STC 4T
JMP 0
[SET CHARACTER SIZE
#3S BCLi
7700
AZEi
ADD 4E
STC 3B
JMP 0
[MATRIX ACCESS TABLE
[EVERYTHING FROM THIS POINT ON MAY BE ANYWHERE IN MEMORY, INCLUDING UPPER HALF.
#4S 6A
6B
6C
6D
6E
6F
6G
6H
6I
6J
6S
6S
6K
6S
6S
6N
6O
6P
6Q
6S
5A
5B
5C
5D
5E
5F
5G
5H
5I
5J
5K
5L
5M
5N
5O
5P
5Q
5R
5S
5T
5U
5V
5W
5X
5Y
5Z
6S
6S
6S
6R
6S
6T
6U
6L
6W
6S
3E
3F
3K
3G
3I
3J
3O
6S
[END OF TABLE
[DIGIT MATRICES
#6A 1202
1627
3746
4231
2112
0151
#6S 0000
#6B 0231
2127
1601
4100
#6C 1602
2737
4645
1211
4101
5100
#6D 1602
2737
4634
2434
4342
3121
1201
5100
#6E 3102
3713
4301
5100
#6F 1202
2131
4243
3414
1747
0151
0000
#6G 1302
2434
4342
3121
1216
2737
4601
5100
#6H 1702
4746
1101
5100
#6I 1202
1324
3445
4637
2716
1524
3443
4231
2112
0151
0000
#6J 1202
2131
4246
3727
1615
2434
4501
[SPACE
#6K 5100
[END DIGITS
[ALPHABETIC MATRICES
#5A 0216
2747
5654
1454
5101
6100
#5B 0217
3746
4534
1444
5352
4111
0161
0000
#5C 5202
4121
1216
2747
5601
6100
#5D 0217
4756
5241
1101
6100
#5E 5102
1114
4414
1757
0161
0000
#5F 0214
4414
1757
0161
0000
#5G 4302
5351
2112
1627
4756
0161
0000
#5H 0217
1454
5751
0161
0000
#5I 0231
2127
1737
0141
0000
#5J 1202
2131
4247
3757
0161
0000
#5K 0217
1447
1441
0151
0000
#5L 1702
1141
0151
0000
#5M 0217
3457
5101
6100
#5N 0217
4147
0151
0000
#5O 1202
1627
4756
5241
2112
0161
0000
#5P 0217
4756
5544
1401
6100
#5Q 2102
1216
2747
5652
4121
4251
0161
0000
#5R 0217
4756
5544
1434
5101
6100
#5S 1202
2141
5253
4424
1516
2747
5601
6100
#5T 1702
5737
3101
6100
#5U 1702
1221
4152
5701
6100
#5V 1702
3157
0161
0000
#5W 1702
2134
4157
0161
0000
#5X 0234
1734
5734
5101
6100
#5Y 1702
3457
3431
0161
0000
#5Z 1702
5711
5101
6100
[-,+,|,
#6N 1402
5401
6100
#6O 1402
3436
3234
5401
6100
#6P 0247
0151
0000
[TAG = , .
#6Q 2102
4701
6702
4101
1302
6301
2502
7501
7100
#6R 1402
5401
1302
5301
6100
#6T 0222
2313
1222
0131
0000
#6U 0221
2212
1101
3100
[LEFT,RIGHT
[PARENTHESES
#6W 2102
1315
2701
3100
#6L 0223
2517
0131
0000
[SYMBOL MATRICES
[SYMBOL X
#3E 0226
6244
6622
4400
[SYMBOL +
#3F 0247
4144
1474
4400
[SYMBOL SQUA
#3G 0117
0277
7111
1701
4400
[SYMBOL TRIA
#3K 0147
0212
7247
0144
0000
[SYMBOL 0
#3I 0137
0257
7573
5131
1315
3701
4400
[SYMBOL DIAM
#3J 0147
0274
4114
4701
4400
[SYMBOL STAR
#3O 0147
0221
7515
6147
0144
0000
[END OF SIMPLOT.
[AJH, JUNE 1967