?login_element?

Subversion Repositories NedoOS

Rev

Rev 1004 | Go to most recent revision | 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.     call Console.waitForKeyUp
  22.     ret
  23. .stopKey
  24.     xor a : ld (Render.play_next), a
  25.     jr .stop
  26.  
  27. message db "Press key to stop...", 0
  28.     ENDMODULE
  29.     include "player.asm"
  30.