[TRIPLOT
[ISOMETRIC PLOTTING PROGRAM.
[THERE ARE FIVE SENSE SWITCH OPTIONS.
[WHEN SNS 0 IS UP THE PLOTTER IS SET TALL.
[WHEN SNS 0 IS DOWN THE PLOTTER IS SET WIDE.
[WHEN SNS 2 IS UP THE LOGARHYTHMS ARE PLOTTED.
[WHEN SNS 2 IS DOWN THE LINEAR VALUES ARE PLOTTED.
[WHEN SNS 3 IS UP THE PROGRAM PLOTS LEFT PROJECTIONS.
[WHEN SNS 3 IS DOWN THE PROGRAM PLOTS RIGHT PROJECTIONS.
[WHEN SNS 4 IS UP BOTTOM VIEWS ARE PLOTTED.
[WHEN SNS 4 IS DOWN TOP VIEWS ARE PLOTTED.
[WHEN SNS 5 IS UP THE PLANAR PROJECTION BUT NOT THE AMPLITUDE IS MAGNIFIED TWO FOLD IN THE X AND Z PLANES.
[WHEN SNS 5 IS DOWN REGULAR PLOT.
[MULTIPLE SETS OF DATA MAY BE RUN.
$1
LDA
0
ADAi
4004
STC 7O
HLT
$20
LDAi
SETi 1
STC 7W
SETi 11
-1
[CREATE
[PLOT AXIS
SNS 0
JMP p+3
JMP 3T
JMP p+2
JMP 3W
[LEFT OR RIGHT
[MAGNIFICATION
SNS 3
JMP 1A
LDAi
400
SNSi 5
SCR 2
STC 2P+5
LDAi
1000
JMP 2P
JMP 1B
#1A LDAi
400
SNSi 5
SCR 2
STA
2P+5
JMP 2P
#1B JMP 4Q
[BRING IN OTHER PARAMETERS
[FROM THE CRT
LDAi
NOP
STC 2Z
RDC
#7O 000
LDAi
5252
STA
1X
STA
1D-5
STC 1E+1
LDAi
-1
STC 1E-5
[$ AND END BLOCK
SETi 3
9H-4000
#1W SETi 2
9K-4000
JMP 2D
SHDi
1200
JMP p+3
STHi 3
JMP 1W
SROi
#1X 5252
JMP 1Y
SETi 3
9J-4000
JMP 1W
#1Y SETi 3
9H-4000
JMP 2U
BSEi
7000
ADAi
-1
STC 1P
SETi 3
9J-4000
JMP 2U
BSEi
7000
STC 1P+2
#2Z NOP
LDAi
JMP 1N+2
STC p-3
SETi 3
9B-4000
[$ POINT
#1C SETi 2
9A-4000
[FIRST MESSAGE
JMP 2D
SHDi
1200
JMP p+3
STHi 3
JMP 1C
SROi
5252
JMP 1D
SETi 3
9C-4000
[LAST POINT IN PLOT
JMP 1C
#1D SETi 3
9E-4000
SETi 2
9D-4000
JMP 2D
SHDi
1200
JMP p+3
STHi 3
JMP 1D+2
SROi
7776
JMP 1E
SETi 3
9F-4000
JMP 1D+2
#1E SROi
5252
JMP p+4
SETi 3
9G-4000
JMP 1D+2
[CREATE PARAMETERS
#1F SETi 3
9B-4000
JMP 2U
STAi
#1G 000
[ORIGIN POINT
SETi 3
9C-4000
JMP 2U
STAi
#1H 000
[LAST POINT
SETi 3
9E-4000
JMP 2U
STAi
#1L 000
[X SHIFT IN PLANE
SETi 3
9F-4000
JMP 2U
SNSi 5
ROL 1
STAi
#1M 000
[Z SHIFT IN PLANE
SETi 3
9G-4000
LDHi 3
SHDi
"-'
JMP p+5
LDAi
ROL
STC 1N
JMP p+4
LDAi
SCR
STC 1N
JMP 2U
SETi 1
0
RORi 1
LZE
JMP p+4
XSKi 1
JMP p-4
STC 1
LDA
1
ADAi
#1N SCR
STC 7P
[READ IN DATA BLOCKS
LDAi
#1P 000
SAEi
000
JMP p+2
JMP 7O-1
[DONE WITH BLOCKS
ADAi
1
STA
1P
STC p+2
RDC u
000 [INTO Q7
[COMPLEMENT FOR BOTTOM PLOTS.
SNS 4
JMP 1O
SETi 1
3377
LDAi 1
COM
STA 1
XSK 1
JMP p-4
[SCALE
[DATA
#1O SETi 1
3377
LDAi 1
#7P 000
STA 1
XSK 1
JMP p-4
[CONVERT TO LOGS IF DESIRED.
#1Q SNS 2
JMP 2B
SETi 1
3377
LDAi 1
APOi
JMP p+4
SETi 5
-1
COM
STAi
#1R 000 [ABSOLUTE VALUE OF NUMBER
BCLi
0007
AZE
JMP 1S
ADD 1R
ROL 6
JMP 2A [LOG
#1S BCLi
0077
AZE
JMP 1T
LDAi
72
STC 1V
ADD 1R
ROL 3
JMP 2A
#1T BCLi
0777
AZE
JMP 1U
LDAi
164
STC 1V
ADD 1R
JMP+$/
[WYDSPACE
[CHARACTER MATRICES FOR SIMPLOT, WITH WIDER SPACING BETWEEN CHARACTERS.
[THIS IS PARTICULARLY USEFUL FOR PLOTS WHERE A WIDE INK-PEN IS USED.
[DIGIT MATRICES
#6A 1202
1627
3746
4231
2112
0161
#6S 0000
#6B 0231
2127
1601
5100
#6C 1602
2737
4645
1211
4101
6100
#6D 1602
2737
4634
2434
4342
3121
1201
6100
#6E 3102
3713
4301
6100
#6F 1202
2131
4243
3414
1747
0161
0000
#6G 1302
2434
4342
3121
1216
2737
4601
6100
#6H 1702
4746
1101
6100
#6I 1202
1324
3445
4637
2716
1524
3443
4231
2112
0161
0000
#6J 12400
STC p+2
LDA
000
COM
ADAi
20
STC 2L+4
STC 2L+4
#2L SETi 1
3377
LDAi 1
ADAi
000
STA 1
XSK 1
JMP p-5
[FIRST TIME THROUGH
[TAKE THIS INTO THE OLD BLOCK.
#7W SETi 1
2777
SETi 2
3377
LDAi
-20
STC p+3
LDAi 2
ADAi
000
STAi 1
XSK 2
JMP p-5
LDAi
JMP 2F
STC 7W
JMP 7X
[PREPARE CONSULTANT BLOCK FOR NEXT PLOT.
#2F SNSi 3
JMP 7Y
LDA
1M [Z SHIFT
COM
STC 2G+2
ADD 1L [X SHIFT
ADAi
2777
STC 1
LDAi
-400
ADD 1L
STC 4
SETi 2
2777
#2G LDAi 1
ADAi
000
STAi 2
XSKi 4
JMP p-5
LDA
1L
AZEi
JMP p+6
COM
STC 4
STAi 2
XSKi 4
JMP p-2
JMP 7X
[FOR LEFT PROJECTION
#7Y LDA
1M
COM
STC 7G+2
ADD 1L
COM
ADAi
3377
STC 2
LDAi
-400
ADD 1G
STC 4
SETi 1
3377
#7G LDA 2
ADAi
000
STA 1
LDAi
-1
ADD 1
STC 1
ADD p-3
ADD 2
STC 2
XSKi 4
JMP 7G
LDA
1G
AZEi
JMP 7X
COM
STC 4
LDAi
-20
STA 1
LDAi
-1
ADD 1
STC 1
XSKi 4
JMP p-10
[ISOMETRIC PLOTTING SUBROUTINE.
#7X LDA
1G [$
ADD 2F+10 [2777
STA
2
ADAi
400
STC 1
SETi 5
0
JMP 3R
SET 10
2
LDAi 10
JMP 9P
SNS 3
JMP 8B
LDA
1L
AZEi
JMP 2B
COM
STC 4
JMP 3L
JMP 8Y
NOP
LDA 1
STA 2
JMP 9P
JMP 8X
XSKi 4
JMP p-7
#8B JMP 8Y
JMP 8C
JMP 3L
LDA 1
STA 2
JMP 9P
JMP 8D
#8C LDA 2
JMP 9P
JMP 3R
JMP p+2
JMP 8X
XSKi 3
JMP p+2
JMP 8D+3
JMP 8Y
JMP 8C+4
LDAi
-1
ADD 2
STC 2
LDA 2
JMP 9P
JMP 8X
XSKi 2
JMP 8B+2
#8D JMP 8X
XSKi 3
JMP 8B
SNS 3
JMP p+6
JMP 8Y
JMP 8E
LDA 2
JMP 9P
JMP 8E
LDA
1L
AZEi
JMP 8E
COM
STC 4
JMP 8Y
NOP
LDA 1
STA 2
JMP 9P
JMP 3L
JMP 8X
XSKi 4
JMP p-10
CLR
JMP 9P
#8E JMP 3R
LDA
1M
STC 2P+5
ADD 1L
SNSi 5
ROL 1
SNSi 3
COM
JMP 2P
JMP 4Q
JMP 1P-1
#8X XSKi 5
SNSi 5
XSKi 5
JMP 0
#8Y LDAi 2
COM
ADAi 1
APOi
XSKi 0
JMP 0
[PLOTTER MOVEMENT
#9P STC 2P+5
ADD 5
#2P STC 2P+4
ADD 0
STC 2P+6
JMP 4P
0
0
JMP 0
[DISPLAY SUBRTNE
#2D LDA
0
STAi
000
SET 16
2
SETi 4
101
SETi 1
0
LDHi 16
SHDi
"]'
JMP 2D+4
SAEi
12
JMP 2E
LDAi
-40
ADD 4
STC 4
JMP 2D+10
#2E ROL 1
ADAi
9Z
STC 5
ADD 4
DSC 5
DSCi 5
LDAi
4
ADD 1
STC 1
KST
JMP 2D+12
KBD
SHDi
1300
JMP 7O-4
JMP 2D+3
#2U LDA
0
STC 2V
STC 7
LDHi 3
SHDi
1414
JMP p+5
ADD 7
ROL 3
STC 7
JMP p-7
CLR
ADD 7
SCR 3
#2V JMP 0
[END OF TRIPLOT MANUSCRIPT.
[ R
[  E
[   M
[    O
[O    V
[ R    E
[  I
[   G
[    I
[     N
[  ------
[   ----
[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.
[COMPLEMENT ACCUM.
[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
[DEPENDING UPON SPACE PROCESS FOR MATRIX OUTPUT WILL BEPUT HERE.
[INCLUSION OF LOG TABLE
$2000
[LOG TABLE
100
102
105
107
111
114
117
121
124
130
134
137
142
146
151
154
160
165
171
176
202
207
215
221
226
233
241
250
256
265
273
301
310
320
330
340
350
360
372
402
414
426
440
453
465
500
515
530
546
563
600
617
634
654
674
713
735
756
1000
[END MANUSCRIPT
[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
$3400
[CHARACTERS FOR CRT
[DISPLAY
#9Z 4136
3641
2101
0177
4523
2151
4122
2651
2414
0477
5172
0651
1506
4225
4443
6050
5126
2651
5122 [9
3651
4020
2055
4020 [DEL
2055
0000
0000
0101
0126
3700
3424
0404
0404
0404
0437
0000
0077
3614
1436
4020 [CASE
2055
4477
7744
5177
2651
4136
2241
4177
3641
4577
4145
4477
4044
4136
2645
1077
7710
7741
0041
4142
4076
1077
4324
0177
0301
3077
7730
3077
7706
4177
7741
4477
3044
4276
0376
4477
3146
5121
4651
4040
4077
0177
7701
0176
7402
0677
7701
1463
6314
0770
7007
4543 [Z
6151
0404
0404
2504
0416
4020
2055
1212
1212
0107
0107
0500
0006
0001
0000
4577
7745
4177
0000
0101
0101
0070
0070
0700
0700
2410
0042
4200
1024
0000
7741
2050
0050
2200
0000
[CRT CODES
[DISPLAY CODES.
#9A "PLOT POINT '
"
'
#9B "     TO '
#9C "      .]'
#9D "PLANAR
PROJECTIONS.
X =  '
#9E "      
Z =  '
#9F "      
HEIGHT =  '
#9G "    ]'
#9K "PLOT BLOCKS
'
#9H "     THROUGH  '
#9J "     .]'
[END OF MANUSCRIPT