/ Acquire 24-decimal (30-octal)
/ samples from the a/d as fast
/ as possible.
/ Store them in memory.
*200
    cla
    tad lim
    cia
    dca cntr
    tad addrb
    dca ptr      / initialize pointer
loop, adstrt  / start a-d
l1, adsf        / wait for value
     jmp l1
/ value is ready
    adcrb       / read value, clear flag
    dca i ptr
/ increment the pointer,
/ using the "isz" instruction
   isz ptr
   nop
/ now check for termination
/ of loop-
   isz cntr
   jmp loop
   hlt
ptr, 0 / for pointer
cntr,0 / for count
lim, 0030 /limit
addrb,buf1
*400
buf1,0
$