home *** CD-ROM | disk | FTP | other *** search
/ Audio 4.94 - Over 11,000 Files / audio-11000.iso / msdos / modplay / vtsrc12b / lib / devadlib.asm < prev    next >
Assembly Source File  |  1993-01-20  |  2KB  |  86 lines
  1.                 INCLUDE SoundDevices.INC
  2.  
  3.  
  4.                 CODESEG
  5.  
  6.  
  7.  
  8. MACRO AdlOut Reg, Val
  9.                 MOV     DX,388h
  10.                 MOV     AL,Reg
  11.                 OUT     DX,AL
  12.                 IN      AL,DX
  13.                 IN      AL,DX
  14.                 IN      AL,DX
  15.                 IN      AL,DX
  16.                 IN      AL,DX
  17.                 IN      AL,DX
  18.  
  19.                 INC     DX
  20.                 MOV     AL,Val
  21.                 OUT     DX,AL
  22. ENDM AdlOut
  23.  
  24. MACRO AdlWait
  25.                 IN      AL,DX
  26.                 IN      AL,DX
  27.                 IN      AL,DX
  28.                 IN      AL,DX
  29.                 IN      AL,DX
  30.                 IN      AL,DX
  31.                 IN      AL,DX
  32.                 IN      AL,DX
  33.                 IN      AL,DX
  34.                 IN      AL,DX
  35.                 IN      AL,DX
  36.                 IN      AL,DX
  37.                 IN      AL,DX
  38.                 IN      AL,DX
  39.                 IN      AL,DX
  40.                 IN      AL,DX
  41.                 IN      AL,DX
  42.                 IN      AL,DX
  43.                 IN      AL,DX
  44.                 IN      AL,DX
  45.                 IN      AL,DX
  46.                 IN      AL,DX
  47.                 IN      AL,DX
  48.                 IN      AL,DX
  49.                 IN      AL,DX
  50.                 IN      AL,DX
  51.                 IN      AL,DX
  52.                 IN      AL,DX
  53.                 IN      AL,DX
  54.                 IN      AL,DX
  55.                 IN      AL,DX
  56.                 IN      AL,DX
  57.                 IN      AL,DX
  58.                 IN      AL,DX
  59.                 IN      AL,DX
  60. ENDM AdlWait
  61.  
  62.  
  63.  
  64. PUBLIC AdLibIntHandler
  65.  
  66. AdLibIntHandler:
  67.                 Chunk1
  68.  
  69.                 Chunk2
  70.  
  71.                 MonoChunk31
  72.  
  73.                 Chunk41
  74.  
  75.                 SHR     CL,3
  76.  
  77.                 AdlOut  043h,CL
  78.  
  79.                 Chunk5
  80.  
  81. END
  82.  
  83.  
  84. {
  85. }
  86.