?login_element?

Subversion Repositories NedoOS

Rev

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

  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.     include "player.asm"
  33.         MODULE fakemod
  34. fakeret
  35.         ret
  36.     ENDMODULE
  37.