home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / BEEHIVE / UTILITYS / SOUNDS.ARC / SCOPY.MAC < prev    next >
Text File  |  1987-10-31  |  512b  |  38 lines
  1.     .radix    0ah
  2.     .z80
  3.     aseg
  4.     org    100h
  5.  
  6.     ld    e,bel        ;beep
  7.     ld    c,wr_con
  8.     call    bdos
  9.  
  10.     ld    a,11001111b    ;set up pio
  11.     out    (1),a
  12.     ld    a,00000011b
  13.     out    (1),a
  14.  
  15. copy:    in    a,(2)        ;from cassette to
  16.     add    a,a
  17.     add    a,a
  18.     add    a,a
  19.     add    a,a
  20.     add    a,a
  21.     add    a,a        ;speaker port
  22.     out    (2),a
  23.  
  24.     in    a,(0)        ;now look for stop from joystick
  25.     and    00000001b
  26.     jr    nz,copy
  27.  
  28.     ld    a,00001111b
  29.     out    (1),a        ;reset port to output.
  30.  
  31.     ret            ;quit
  32.  
  33. bdos    equ    5
  34. wr_con    equ    2
  35. bel    equ    7
  36.  
  37.     end
  38.