Listing of file='PING.MAC;05' on disk='vmedia/table_tennis_for_two-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; PING AND PONG SOUNDS ; EXTRN GENSND,FINFLG ENTRY PING,PONG PING: LXI H,120 JMP PP PONG: LXI H,300 PP: MVI D,5 MVI E,10 XRA A MOV B,A MOV C,A WP: LDA FINFLG ORA A JZ WP MVI A,1 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