SOUND.I

[Table of Contents]

The SOUND.I include file resides on the Kyan Pascal 2.x Disk 2. It includes one procedure:

• procedure SOUND

Source Code

procedure Sound(Chan,Freq,Dist,Vol:
                integer);
begin
#a
 TXA
 PHA
 LDA #0
 STA $D208
 LDA #3
 STA $D20F
 LDY #11
 LDA (_SP),Y
 ASL A
 AND #6
 TAX
 LDY #5
 LDA (_SP),Y
 AND #$0F
 STA _T
 LDY #7
 LDA (_SP),Y
 ASL A
 ASL A
 ASL A
 ASL A
 ASL A
 ORA _T
 STA $D201,X
 LDY #9
 LDA (_SP),Y
 STA $D200,X
 PLA
 TAX
#
end;