[SAMN
[
[SAMPLES 1000 POINTS
[AT CLOCK
[DATA STORED IN UMB
[AT GIVEN FWA
[CLOCK = NUMBER OF
[100 uSEC CLOCK
[PULSES PER SAMPLE
[CLOCK = 0, SAMPLE
[EVERY 33 uSEC
[CALLING SEQUENCE:
[   JMP 8O
[   CHAN N
[   FWA-1
[   CLOCK
[USES i10,11,12
[ENTER AT 8O
#8O LDA i
-1
ADD 0
BCL i
6000
STC 10
LDA i10
ADA i
SAM 0
STC p+36
LDA i10
STC 12
LDA i10
COM
STC p+22
ADD 0
ADA i
3
STC p+44
LDA 10
AZE i
JMP p+5
LDA i
JMP p+10
STC p+22
JMP p+4
LDA i
JMP p+14
STC p+16
SET i10
-1000
SET i11
-CLOCK
SXL 0
JMP p-1
SXL i0
JMP p-1
XSK i11
JMP p-5
SAM N
STA i12
XSK i10
JMP p-3
LDA i
-1000
ADM
2
SET i10
-1000
LDA i
400
ADM i12
XSK i10
JMP p-4
JMP 0
JMP 0