[MIKEAV-1
[AVERAGING PROGRAM FOR STIMULUS RATES UP TO 10 PER SECOND
[125 SAMPLES AT 80 MICROSECOND INTERVALS, THAT IS, 10 MSEC. SWEEP
[DATA ON SAM 11
[STIMULUS ON SAM 10
[SENSE SWITCH 0 UP TO ADJUST TRIGGERING LEVEL
[KNOB 0 TO ADJUST TRIGGER LEVEL
[AT START OF PROGRAM, START 20, SENSE SWITCH 5 UP FOR POSITIVE STIMULI AND DOWN FOR NEGATIVE
[SENSE SWITCH 3 DOWN FOR 10 MSEC SWEEP
[               UP FOR 20 MSEC SWEEP
[...
$20
[SELECT TRIGGER POLARITY
CLR
SNS 5
ADD 1L
ADAi
APO
STC 1H
JMP 1K
#1L 20
[CLEAR DATA AREA
#1K SETi10
1B-1
SETi2
-376
CLR
STAi10
XSKi2
JMP p-2
[SET LABEL SIZE
JMP 3H
LDAi
3
JMP 3S
[LOOK FOR TRIGGER
#1M NOP  [SXL 11
NOP  [JMP p-1
SNSi0
JMP 1E-10
SAM 10
ADD 1E
#1H APO
JMP 1M
JMP 1F
[SET TRIGGER LEVEL
SAMi10
DISi10
SAMi0
DISi10
SNSi0
JMP p-5
COM
STAi
#1E 0000
JMP 1M
[TIMING PATCH
#1N NOP
NOP
NOP
NOP
NOP
JMP 0
[SAMPLE DATA
#1F SETi1
1A-1
SETi2
-175
LDAi
1
STAi1
SAMi11
SNSi3
JMP 1N
NOP
STAi1
XSKi2
JMP p-6
LDAi
3
STAi1
[ADD NEW DATA TO SUM
SETi1
1A-1
SETi2
-177
SETi10
1B-1
SETi11
1B
#1G CLR
LDAi1
SCR 13
STC 1D
LDA 1
LAMi11
LDAi
#1D 000
LAMi10
STC 0
LAM 11
STC 0
LAM 10
LDAi10
LDAi11
XSKi2
JMP 1G
[DISPLAY
SETi6
-2
#1J SETi4
1B
SETi5
-175
LDAi4
DISi4
XSKi5
JMP p-3
XSKi6
JMP 1J
KST
JMP 1M
KBD
JMP 1S
[CONTROL
#1S SETi4
1B
SETi5
-175
LDAi4
DISi4
XSKi5
JMP p-3
KST
JMP 1S
[KEYBOARD
KBD
SHDi
1400   [SPACE
JMP 1M
SHDi
3700   [L
JMP 2S
SHDi
4300   [P
JMP 2P
SHDi
5400   [Y
JMP 1T
SHDi
5300   [X
JMP p+2
JMP 1S
[XAXIS
KBDi
BCLi
7770
STC 2X
JMP 1S
[YAXIS
#1T KBDi
SAEi
17     [-
JMP p+4
LDAi
SCR
JMP p+6
SAEi
20     [+
JMP 1S
LDAi
ROL
STC p+5
KBDi
BCLi
7774
BSEi
ROL
STA
2Y
STC 1R
JMP 1S
BCLi
7770
STA
2Y
STC 1R
JMP 1S
1A=2400
1B=3000
[PLOTTING
#2P JMP 3T
KBDi
SHDi
3700   [L
JMP 2L
SAEi
0045   [R
JMP 1S
JMP 4P
1000
0
JMP 4Q
[NUMBER OF RESPONSES TO BASE TEN
#2L SETi1
-4
SETi2
1Q+3
LDA
1B
STC 7A
LDA
1B+1
STC 7B
LDAi
12
STC 7C
JMP 7D
AZEi
CLR
STA 2
LDAi
-1
ADM
2
XSKi1
JMP p-11
[PLOT NUMBER
SETi1
-4
SETi2
1Q-1
LDAi2
JMP 4U
XSKi1
JMP p-3
LDAi
14
JMP 4U
SROi
2525
JMP p-5
[SCALE AND PLOT DATA
LDA
1B
STC 7A
LDA
1B+1
STC 7B
LDAi
12
STC 7C
JMP 7D
LDA
7B
STC 7C
SETi5
-176
SETi10
1B+1
SETi11
1B+2
SETi3
1A-1
#1P LDAi10
STC 7A
LDAi11
STC 7B
LDAi10
LDAi11
JMP 7D
LDA
7B
STAi3
XSKi5
JMP 1P
[PLOT CALIBRATION
[20 MILLIVOLTS
JMP 4P
200
0
JMP 4Q
JMP 3L
JMP 4P
0012
0000
LDA
1A+175
#1R ROL 0
STA
p+4
STC p+6
JMP 4P
0012
0000
JMP 4P
0000
0000
JMP 3R
JMP 4P
0050
0000
JMP 4Q
[FIND MEAN
SETi3
1A-1
SETi5
-175
CLR
STC 7A
STC 7B
#1Z CLR
LDAi3
SCR 13
STC p+5
LDA 3
LAM
7B
LDAi
0000
LAM
7A
STC 0
LAM
7B
STC 0
LAM
7A
XSKi5
JMP 1Z
LDAi
175
STC 7C
JMP 7D
[SUBTRACT MEAN AND PLOT
SETi4
0
SETi3
1A-1
SETi5
-175
#1V LDA
7B
COM
ADAi3
#2Y ROL 0
STC 1Y
ADD 4
MULi
#2X 0004
STC 1X
XSKi4
JMP 4P
#1X 0000
#1Y 0000
JMP 3L
XSKi5
JMP 1V
JMP 3R
JMP 4P
0
0
JMP 1S
[TABLE FOR NUMBER OF RESPONSES
#1Q NOP
NOP
NOP
NOP
NOP
[LABEL
#2S JMP 3T
KBDi
SHDi
3700   [L
JMP 2R
SAEi
0045   [R
JMP 1S
JMP 4P
1000
0
JMP 4Q
JMP 2R
LDAi
44
STAi
0000
#2R KBDi
SHDi
1200   [EOL
JMP 1S
SHDi
2300   [CASE
JMP 2R-4
ADD 2R-1
JMP 4U
CLR
STC 2R-1
JMP 2R
[DPDIV2
[AJH APR.67
#7D LDA
0
STC 7A+10
LDAi
#7C 0
AZEi
JMP 0
APOi
COM
STC 7B-11
STC 7B-13
ADD 7A
STAi
0
APOi
JMP p+6
COM
STC 7A
ADD 7B
COM
STC 7B
LDAi
3777
STC 7B+2
ADD 7B-2
STC 7B+5
CLR
ADD 7B
ROLi1
STC 7B
ADD 7A
ROLi1
STC 7A
ADD 7B-13
ROLi1
STAi
0
ADAi
0
AZEi
COM
APO
JMP p+6
STC 7B-13
LDAi
1
ADMi
#7B 0
SROi
3777
JMP 7B-25
SROi
0001
JMP 7B-25
LDA
7C+11
APOi
JMP p+5
LDA
7B-13
COM
STC 7B-13
LDA
7C
BCO
7C+11
APOi
JMP p+10
LDAi
#7A 0
COM
STC 7A
ADD 7B
COM
STC 7B
LDA
7B-13
JMP 000
[END DP-DIV-2
[SIMPLOT
[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
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
#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
[END OF TABLE
[DIGIT MATRICES
[WYDSPACE
$2001
#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 2102
1213
2434
4546
3701
2102
3142
4334
2415
1627
3701
6100
#6J 1202
2131
4246
3727
1615
2434
4501
[SPACE
#6K 6100
[END DIGITS
[ALPHABETIC MATRICES
#5A 0216
2747
5654
1454
5101
7100
#5B 0217
3746
4534
1444
5352
4111
0171
0000
#5C 5202
4121
1216
2747
5601
7100
#5D 0217
4756
5241
1101
7100
#5E 5102
1114
4414
1757
0171
0000
#5F 0214
4414
1757
0171
0000
#5G 4302
5351
2112
1627
4756
0171
0000
#5H 0217
1454
5751
0171
0000
#5I 0231
2127
1737
0151
0000
#5J 1202
2131
4247
3757
0171
0000
#5K 0217
0147
0214
4101
6100
#5L 1702
1141
0161
0000
#5M 0217
3457
5101
7100
#5N 0217
4147
0161
0000
#5O 1202
1627
4756
5241
2112
0171
0000
#5P 0217
4756
5544
1401
7100
#5Q 2102
1216
2747
5652
4121
4251
0171
0000
#5R 0217
4756
5544
1434
5101
7100
#5S 1202
2141
5253
4424
1516
2747
5601
7100
#5T 1702
5737
3101
7100
#5U 1702
1221
4152
5701
7100
#5V 1702
3157
0171
0000
#5W 1702
2134
4157
0171
0000
#5X 0257
0117
0251
0171
0000
#5Y 1702
3431
3457
0171
0000
#5Z 1702
5711
5101
7100
[-,+,|,
#6N 1402
5401
6100
#6O 1402
3436
3234
5401
6100
#6P 0247
0161
0000
[# = , COLON .
#6Q 2102
4701
6702
4101
1302
6301
2502
7501
7100
#6R 1402
5401
1302
5301
7100
#6T 0222
2313
1222
0131
0000
#3O 1402
2425
1514
0111
#6U 0221
2212
1101
3100
[END OF SIMPLOT.
[END MIKEAV-1
[LAST MOD 1 SEPT 70