Go to most recent revision |
Blame |
Compare with Previous |
Last modification |
View Log
| Download
| RSS feed
MODULE VortexProcessor
play:
call Console.waitForKeyUp
ld hl, message : call DialogBox.msgNoWait
ld hl, outputBuffer : call VTPL.INIT
ifdef GS
call GeneralSound.stopModule
endif
.loop
halt : di : call VTPL.PLAY : ei
xor a : in a, (#fe) : cpl : and 31 : jp nz, .stop
ld a, (VTPL.SETUP) : rla : jr nc, .loop
.stop
call VTPL.MUTE
call Console.waitForKeyUp
ret
message db "Press key to stop...", 0
ENDMODULE
include "player.asm"