?login_element?

Subversion Repositories NedoOS

Rev

Rev 1606 | 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, 0, (Render.play_next), a
  11.     ifdef GS
  12.     call GeneralSound.stopModule
  13.     endif
  14.         ld a,(TextMode.pg4)
  15.         ld hl,VTPL.PLAY
  16.         ld c,nos.CMD_SETMUSIC
  17.         ex af,af'
  18.         call nos.BDOS
  19.    call Console.getC
  20.         ld a,(TextMode.pg4)
  21.         ld hl,fakemod.fakeret
  22.         ld c,nos.CMD_SETMUSIC
  23.         ex af,af'
  24.         call nos.BDOS
  25.     call VTPL.MUTE
  26.     call Console.waitForKeyUp
  27.     ret
  28.        
  29. message db "    Press key to stop...", 0
  30.     ENDMODULE
  31.         org 0x4000
  32.        
  33.     include "player.asm"
  34.         MODULE fakemod
  35. fakeret
  36.         ret
  37.     ENDMODULE
  38.