Listing of file='BOOM.MAC;01' on disk='vmedia/joystick_sound-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; MAKE 'BOOM' ; ; ENTRY BOOM SNDADR EQU 30H SNDDAT EQU 31H BOOM: DI MVI A,6 OUT SNDADR XRA A OUT SNDDAT MVI A,7 OUT SNDADR IN SNDADR ANI 0CFH OUT SNDDAT MVI A,9 OUT SNDADR MVI A,16 MOV B,A OUT SNDDAT MVI A,10 OUT SNDADR MOV A,B OUT SNDDAT MVI A,12 OUT SNDADR MVI A,35 OUT SNDDAT MVI A,13 OUT SNDADR XRA A OUT SNDDAT EI RET END