?login_element?

Subversion Repositories NedoOS

Rev

Rev 1612 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.     MODULE VortexProcessor
  2. play:
  3.     ld a, 255
  4.     ld (oldminutes), a
  5.  
  6.     call Console.waitForKeyUp
  7.  
  8.     ld hl, message : call DialogBox.msgNoWait
  9.  
  10.     ld hl, outputBuffer  : call VTPL.INIT
  11.    
  12.    
  13.     ld a, 0, (Render.play_next), a
  14.     ifdef GS
  15.     call GeneralSound.stopModule
  16.     endif
  17.         ld a,(TextMode.pg4)
  18.         ld hl,VTPL.PLAY
  19.         ld c,nos.CMD_SETMUSIC
  20.         ex af,af'
  21.         call nos.BDOS
  22.    call Console.getC
  23.         ld a,(TextMode.pg4)
  24.         ld hl,fakemod.fakeret
  25.         ld c,nos.CMD_SETMUSIC
  26.         ex af,af'
  27.         call nos.BDOS
  28.     call VTPL.MUTE
  29.     call Console.waitForKeyUp
  30.     ret
  31.        
  32. message db "    Press key to stop...", 0
  33.     ENDMODULE
  34.         org 0x4000
  35.        
  36.     include "player.asm"
  37.         MODULE fakemod
  38. fakeret
  39.         ret
  40.     ENDMODULE
  41.