?login_element?

Subversion Repositories NedoOS

Rev

Rev 1055 | Blame | Compare with Previous | Last modification | View Log | Download

  1.     MODULE VortexProcessor
  2. play:
  3.     call Console.waitForKeyUp
  4.  
  5.     ld hl, message : call DialogBox.msgNoWait
  6.  
  7.     ld hl, outputBuffer  : call VTPL.INIT
  8.  
  9.    
  10.     ld a, 1, (Render.play_next), a
  11.     ifdef GS
  12.     call GeneralSound.stopModule
  13.     endif
  14. .loop
  15.     halt : di : call VTPL.PLAY : ei
  16.     xor a : in a, (#fe) : cpl : and 31 : jp nz, .stopKey
  17.     ld a, (VTPL.SETUP) : rla : jr nc, .loop
  18.     ld a, 1, (Render.play_next), a
  19. .stop
  20.     call VTPL.MUTE
  21.    
  22.     IFDEF AY
  23.     call restoreAyState
  24.     ENDIF
  25.  
  26.     call Console.waitForKeyUp
  27.     ret
  28. .stopKey
  29.     xor a : ld (Render.play_next), a
  30.     jr .stop
  31.  
  32.     IFDEF AY
  33. restoreAyState:
  34.     ld a, #07
  35.     ld bc, #fffd
  36.     out (c), a
  37.     ld a, #fc
  38.     ld b, #bf
  39.     out (c), a ; Enable read mode
  40.    
  41.     ld a, #0e
  42.     ld bc, #fffd
  43.     out (c), a
  44.     ret
  45.     ENDIF
  46.  
  47. message db "Press key to stop...", 0
  48.     ENDMODULE
  49.     include "player.asm"
  50.