Listing of file='PING.MAC;04' on disk='vmedia/table_tennis_for_two-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; PING AND PONG SOUNDS ; EXTRN GENSND ENTRY PING,PONG PING: LXI H,120 JMP PP PONG: LXI H,240 PP: MVI D,5 MVI E,10 XRA A MOV B,A MOV C,A INR A CALL GENSND RET ENTRY WARBLE WARBLE: LXI H,2300 ;MAKE 'BUZZ' SOUND TO INDICATE MISS MVI D,5 MVI E,10 MVI B,129 MVI C,127 MVI A,10 CALL GENSND RET END