home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Computing 57
/
ac057b.adf
/
Utilities
/
D-Sam
/
D-Sam-Example.AMOS
/
D-Sam-Example.amosSourceCode
Wrap
AMOS Source Code
|
1978-01-10
|
1KB
|
46 lines
'D-Sam-Example.AMOS
'Copyright Az Software 1992
'
Led On
Extension_15_00A8 1,Fsel$("*.*")
Extension_15_0056 32000
'Smp Dma Buffer 51200
Extension_15_00FC 1 To 3
Extension_15_028C
Extension_15_020E 3
Extension_15_013A 3
While Inkey$=""
Multi Wait
Wend
Extension_15_014A(3)
Print "smp name = "; Extension_15_030C(1)
Print "smp speed = "; Extension_15_01EA(1)
Print "smp volume = "; Extension_15_0206(1)
If Extension_15_03B6(1)=True
Print "STEREO SAMPLE!!"
Print "smp left data = "; Extension_15_038C(1)
Print "smp right data = "; Extension_15_03A0(1)
Else
Print "MONO SAMPLE!!"
End If
'Print "smp data = ";Smp Data(1)
Print "smp length = "; Extension_15_032C(1)
Print "smp size = "; Extension_15_031C(1)
If Extension_15_03EA(1)=True
For I=1 To Extension_15_036C(1)
Print "smp loop start ";I;" = "; Extension_15_033E(1,I)
Print "smp loop end ";I;" = "; Extension_15_0356(1,I)
Next I
Else
Print "NO SEQUENCE!!"
End If
Print "smp info = ";Bin$( Extension_15_03C8(1),8)
Print "smp status = ";Bin$( Extension_15_03D8(3),8)
Print "smp base = "; Extension_15_02FE
If Extension_15_03FE(1)=True
Print "FADE EXISTS!!"
Else
Print "NO FADE EXISTS!!"
End If
Print "smp disk error = "; Extension_15_040E
Extension_15_0006