[DIMETRIC
[PLOTTING ROUTINE BASED HEAVILY ON TRIPLOT OF R.M.JOY
[TWO SENSE SWITCH OPTIONS -
[SNS 2 UP -- LOG Y
[SNS 2 DOWN -- LINEAR Y
[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
JMP 3T
LDAi
74
STC 1J
[LEFT PROJECTION ONLY
LDAi
400
SNSi 5
SCR 2
STC 2P+5
LDAi
1000
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
[MOD. TO RECOGNIZE LABEL ON BAD BLOCKS AND TO SET SUCH BLOCKS TO ZEROES.
LDA
3777
SAEi
5000
JMP p+7
SETi17
3377
CLR
STAi17
XSK 17
JMP p-2
[VARIANCE FROM TRIPLOT
[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 2A
#1U LDAi
252
STC 1V
ADD 1R
SCR 3
#2A STAi
000
SETi 6
3777 [LOG TABLE $.
LDAi 6
COM
ADD 2A+1
APOi
JMP p-4
LDA
6
ADAi
-2000
ADAi
#1V 000
XSKi 5
JMP p+2
COM
STA 1
CLR
STC 1V
XSK 1
JMP 1Q+4
[PREPARE DATA BLOCK FOR PORTION TO BE PLOTTED.
#2B LDA
1H
COM
ADD 1G
ADD 1L
STC 3
[PLOT LENGTH
ADD 1G
AZEi
JMP 2C
COM
STC 4
SETi 1
3377
STAi 1
XSKi 4
JMP p-2
#2C LDAi
377
COM
ADD 1H
AZEi
JMP 2K
ADAi
3777
STC 1
STAi 1
XSK 1
JMP p-2
[MAKE THE BASELINE
[POSITIVE
#2K XSKi 11
JMP 2L
LDA
1G
ADAi
3400
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 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
-1    [THIS IS AT VARIANCE WITH TRIPLOT
STA 1
LDAi
-1
ADD 1
STC 1
XSKi 4
JMP p-10
[ISOMETRIC PLOTTING SUBROUTINE.
#7X LDA
1G [$
ADD 2F+7  [2777
STA
2
ADAi
400
STC 1
SETi 5
0
JMP 3R
SET 10
2
LDAi 10
JMP 9P
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 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
COM
JMP 2P
JMP 4Q
LDAi
#1J 74
ADAi
-1
STC 1J
ADD 1J
AZE
JMP 8X-1
LDAi
74
STC 1J
JMP 3L
JMP 4P
0
-20
JMP 4P
0
0
JMP 3R
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.
[----
[ANGLEPLOT
#4P LDA
0
BCLi
6000
STC 14
LDA 14
STC 4X
LDAi14
STC 4Y
LDAi14
LDA
14
ADD 4P+3
STC p+3   [TEMPORARY CHANGE
JMP 4V   [TEMPORARY ADDITION
JMP 4Z
JMP 000
[-----
[TEMPORARY CHANGE
#4V LDA
4X
ADD 4Y
COM
STC p+7
ADD 4X
COM
ADD 4Y
SCR 2
STC 4Y
LDAi
0000
STC 4X
JMP 0
[END OF TEMP
[-----
[CLOSEOUT PLOT
#4Q SET 17
0
CLR
STC 3X
STC 3Y
JMP 3R+2
[WIDE PLOT DELETED
[SET PLOTTER TALL
#3T LDA
0
STC 3U+20
[RESET PEN POSITION BEFORE STARTING.
#3U JMP 4Q
LDAi
-3000
OPR 12
JMP 4L
ADD 4E
APO
JMP p-4
LDAi
-62
OPR 11
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
LDA
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 11
LDAi
#4E 1
JMP p+4
OPR 12
LDAi
#4F -1
ADMi
#3X 0
CLR
STC 4I
JMP 17
#4K SET 17
0
LDA
4C
APO
JMP p+5
OPR 10
LDA
4E
JMP p+4
OPR 7
LDA
4F
ADMi
#3Y 0
CLR
STC 4I
JMP 17
#4L SET 17
0
SETi16
1640
XSKi16
JMP p-1
CLR
COM
STC 4I
JMP 17
[LOWER PEN
#3L SET 17
0
SROi
#4R 7777
JMP 17
OPR 14
CLR
COM
STC 4R
SETi16
0
XSKi16
JMP p-1
SROi
3333
JMP p-4
JMP 17
[RAISE PEN
#3R SET 17
0
SRO
4R
JMP p+2
JMP 17
OPR 13
CLR
JMP 4R+5
[END OF INTERPOL
[---
[LOG TABLE
$2000
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 LOG TABLE
$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
[DIMETRIC
[LAST MOD. 2 OCT.69