home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / S / SHAPESFT / SSSOURCE.ZIP / SSSOURCE.MSA / SCRAPBIN / DOSOUND.S < prev    next >
Encoding:
Text File  |  1985-11-20  |  1.1 KB  |  81 lines
  1.  
  2. ; FOR INCLUSION, DON'T RUN AS IS
  3.  
  4. ; G.W. 1988
  5. ; dosound without TRAPping
  6. ; call from vbi etc bsr ssrr
  7. ; use like such....
  8.  
  9. SOUND0 
  10.  MOVE.L #BANG,SUND
  11.  CLR.L SAND
  12.  RTS
  13.  
  14.  
  15. ;DATA FOR A SOUND
  16.  
  17. BANG DC.B 3,3,9,16,13,1,12,55
  18.  DC.B $80,10,$81,3,2,0,255,0
  19.  
  20.  even
  21.  
  22. SUND DC.L 0
  23. SAND DC.L 0
  24.  
  25.  
  26.  
  27.  
  28. ;--------DO-SOUND ROUTINE--FROM R.O.M.
  29. ;----CALL REGULARLY, OR USE IN VB ETC
  30.  
  31.  
  32. SSRR 
  33.  MOVE.L SUND,D0
  34.  BEQ FF1
  35.  
  36.  MOVE.L D0,A0
  37.  MOVE.B SAND,D0
  38.  BEQ FF2
  39.  SUBQ.B #1,D0
  40.  MOVE.B D0,SAND
  41.  BRA FF1
  42. FF2 MOVE.B (A0)+,D0
  43.  BMI FF4
  44.  MOVE.B D0,D5
  45.  MOVE.B D0,$FFFF8800
  46.  CMP.B #7,D0
  47.  BNE FF5
  48.  MOVE.B (A0)+,D1
  49.  AND.B #$3F,D1
  50.  MOVE.B $FF8800,D0
  51. SSD AND.B #$C0,D0
  52.  OR.B D1,D0
  53.  MOVE.B D0,$FF8802
  54.  BRA FF2
  55. FF5 MOVE.B (A0)+,$FFFF8802
  56.  BRA FF2
  57. FF4 ADDQ.B #1,D0
  58.  BPL FF8
  59.  CMP.B #$81,D0
  60.  BNE FF9
  61.  MOVE.B (A0)+,SAND+1
  62.  BRA FF2
  63. FF9 CMP.B #$82,D0
  64.  BNE FF8
  65.  MOVE.B (A0)+,$FF8800
  66.  MOVE.B (A0)+,D0
  67.  ADD.B D0,SAND+1
  68.  MOVE.B (A0)+,D0
  69.  MOVE.B SAND+1,$FFFF8802
  70.  CMP.B SAND+1,D0
  71.  BEQ FF12
  72.  SUBQ #4,A0
  73.  BRA FF12
  74. FF8 MOVE.B (A0)+,SAND
  75.  BNE FF12
  76.  MOVE #0,A0
  77. FF12 MOVE.L A0,SUND
  78.  
  79. FF1 RTS
  80. ;\\\\\\\\\
  81.