[EEG-HIST
[AMPLITUDE HISTOGRAM
[USES SAM 10, SAM 0, AND SENSE SWITCH 0
[AJH JULY 1967
$20
SETi2
3777
SETi3
-200
CLR
STAi2
XSKi3
JMP p-2
[DISPLAY
#1C SETi1
10
SETi2
3777
SETi12
2037
SETi14
2177
SETi3
-40
#1D LDA
1
ADAi
-2
STA
11
BSEi
4000
STC 13
ADD 1B
ADAi14
ADAi
#1J 2
DIS 13
ADAi
#1K -4
DIS 13
XSKi13
XSKi13
XSKi13
DISi13
ADAi
4
DIS 13
LDAi
#1B -300
DIS 1
ADAi12
DIS 11
XSKi11
DISi11
ADD 1J
DIS 11
ADD 1K
DIS 11
ADD 1J
XSKi11
DISi11
LDAi2
SCR 3
COM
ADM 2
ADD 1B
DIS 1
LDAi
20
ADM
1
XSKi3
JMP 1D
SNS 0
JMP 1A
[SAVE CURRENT HISTOGRAM
CLR
STC 1L
SETi2
3777
SETi12
2037
SETi3
-40
LDAi2
STAi12
COM
ADD 1L
APOi
JMP p+5
LDA 2
STC 1L
ADD 2
STC 1M
XSKi3
JMP p-13
[GENERATE NORMAL DISTRIBUTION
SAM 0
SCR 4
ADAi
10
STC 1E
ADD 1M
ADAi
200
STC 1M
SETi3
-40
SETi1
2177
STAi1
XSKi3
JMP p-2
SETi1
#1M 2217
SET 11
1
SETi3
1G+4000
#1F LDA 3
AZEi
JMP 1A
LDAi
#1L 0000
MUL 3
STA 1
STA 11
XSKi1
LDAi
-1
ADM
11
LDAi
#1E 1
ADM
3
JMP 1F
[SAMPLE
#1A SETi3
-400
SAM 10
SCR 3
APOi
ADD p+5
ADAi
2017
STC 2
LDAi
1
ADM 2
XSKi3
JMP 1A+2
JMP 1C
[NORMAL DISTRIBUTION ORDINATES
#1G 3777
3760
3700
3564
3420
3224
3014
2564
2334
2100
1654
1434
1230
1040
0674
0540
0424
0330
0244
0170
0134
0100
0060
0040
0030
0020
0014
0010
0004
0000
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
[END OF TABLE
[END OF EEG-HIST