home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Ghostbusters I…C Atari ST-SS 1989.10.05 / Lowe_GhostbustersIIDiskC_AtariST-SS_1989.10.05.img / CONTROL.BAK < prev    next >
Encoding:
Text File  |  1990-10-22  |  924 b   |  68 lines
  1.  
  2.     ;  adam 081 759 5198    ;here at mom4ent
  3.  
  4.     ;adam 081 572 5253    ;home
  5.  
  6.  
  7.  
  8.  
  9.     DOSSEG
  10.     .MODEL TINY
  11. ;-----------------------------------------
  12.     extrn    _init_sound_isr:far
  13.     extrn    _terminate_sound_isr:far
  14.     extrn    _sendsnd:near
  15.  
  16.  
  17.  
  18.     .stack    200h
  19.     .code
  20.  
  21. ;-----------------------------------------
  22. start:
  23.  
  24. ;  initiliase soundboard
  25.  
  26.     call _init_sound_isr
  27. ;________________________________________
  28.  
  29. ;   test wait for key loop
  30. ;-----------------------------
  31. test_loop:
  32.  
  33.     ;call    getkey
  34.     ;cmp    al,'d'    ;return to dos
  35.     jmp    finish
  36.  
  37.     sub    al,48    
  38.     xor     ah,ah
  39.     push ax        ; value to stack    
  40.     call    _sendsnd
  41.     jmp test_loop
  42.  
  43. finish:
  44.  
  45.     call    _terminate_sound_isr
  46.     mov    ah,4ch
  47.     int    21h
  48.  
  49.  
  50. ;-----------------------------
  51.  
  52.  
  53.  
  54.  
  55. GetKey proc near
  56.     mov    ah,0    ;do DOS getkey
  57.     int    16h    ;ASCII in al
  58.     ret
  59. GetKey     endp
  60.  
  61. CheckKey proc near
  62.     mov    ah,1    ;do DOS checkkey
  63.     int    16h
  64.     ret
  65. CheckKey endp
  66.  
  67.     end Start
  68.     end