home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
beehive
/
utilitys
/
sounds.arc
/
SCOPY.MAC
< prev
next >
Wrap
Text File
|
1987-10-31
|
512b
|
38 lines
.radix 0ah
.z80
aseg
org 100h
ld e,bel ;beep
ld c,wr_con
call bdos
ld a,11001111b ;set up pio
out (1),a
ld a,00000011b
out (1),a
copy: in a,(2) ;from cassette to
add a,a
add a,a
add a,a
add a,a
add a,a
add a,a ;speaker port
out (2),a
in a,(0) ;now look for stop from joystick
and 00000001b
jr nz,copy
ld a,00001111b
out (1),a ;reset port to output.
ret ;quit
bdos equ 5
wr_con equ 2
bel equ 7
end