0100 ;            SOUNDMAC.LIB
0110 ;
0120     .IF .NOT .DEF OSEQU
0130       .ERROR "Must include OSEQU.LIB"
0140       .ENDIF 
0150 ;
0160 ;
0170 ;
0180 ; MACRO: SOUND
0190 ;
0200 ;  FORM: SOUND ch,pitch,timbre,voulme
0210 ;
0220 ; same as basic sound command
0230 ;
0240     .MACRO SOUND 
0250      @LA  %1
0260     STA TEMP
0270     CLC 
0280     ADC TEMP
0290     TAX 
0300      @LA  %2
0310     STA AUDF1,X
0320      @LA  %3
0330     ASL A
0340     ASL A
0350     ASL A
0360     ASL A
0370     STA TEMP
0380      @LA  %4
0390     ORA TEMP
0400     STA AUDC1,X
0410     .ENDM 
0420 ;
0430 ;
0440 ;
ÿ