home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB128 / atod.txt < prev    next >
Text File  |  1995-06-04  |  602b  |  34 lines
  1. / Acquire 24-decimal (30-octal)
  2. / samples from the a/d as fast
  3. / as possible.
  4. / Store them in memory.
  5. *200
  6.     cla
  7.     tad lim
  8.     cia
  9.     dca cntr
  10.     tad addrb
  11.     dca ptr      / initialize pointer
  12. loop, adstrt  / start a-d
  13. l1, adsf        / wait for value
  14.      jmp l1
  15. / value is ready
  16.     adcrb       / read value, clear flag
  17.     dca i ptr
  18. / increment the pointer,
  19. / using the "isz" instruction
  20.    isz ptr
  21.    nop
  22. / now check for termination
  23. / of loop-
  24.    isz cntr
  25.    jmp loop
  26.    hlt
  27. ptr, 0 / for pointer
  28. cntr,0 / for count
  29. lim, 0030 /limit
  30. addrb,buf1
  31. *400
  32. buf1,0
  33. $
  34.