51 lines
1.1 KiB
NASM
51 lines
1.1 KiB
NASM
di
|
|
call init
|
|
ld iy,#5c3a
|
|
ld hl,10072
|
|
exx
|
|
ei
|
|
.loop halt
|
|
ld bc,1
|
|
ld hl,500
|
|
.delay
|
|
sbc hl,bc
|
|
jr nz,.delay
|
|
ld a,4
|
|
out (-2),a
|
|
call play
|
|
xor a
|
|
out (-2),a
|
|
ld a,#7f
|
|
in a,(-2)
|
|
rra
|
|
jr c,.loop
|
|
CALL mute
|
|
.fail ld a,2
|
|
out (-2),a
|
|
di
|
|
halt
|
|
|
|
define MTC_CYBERMOTION "CyberMotion.mtc"
|
|
define MTC_DRUMTEST "drumtest.mtc"
|
|
define MTC_MUG "mug.mtc"
|
|
define MTC_MYSTICAL "mystical.mtc"
|
|
define MTC_NEWOLD "newold.mtc"
|
|
define MTC_SNEGURKA "Snegurka.mtc"
|
|
define MTC_INDEEDREST "ineedrest.mtc"
|
|
|
|
define TFC_CYBERMOTION MTC_CYBERMOTION,0x76
|
|
define TFC_DRUMTEST MTC_DRUMTEST,0xa90
|
|
define TFC_MUG MTC_MUG,0x52
|
|
define TFC_MYSTICAL MTC_MYSTICAL,0xcd4
|
|
define TFC_NEWOLD MTC_NEWOLD,0x263a
|
|
define TFC_SNEGURKA MTC_SNEGURKA,0x52
|
|
|
|
define PT3_DRUMTEST MTC_DRUMTEST,0x52
|
|
define PT3_MYSTICAL MTC_MYSTICAL,0x52
|
|
define PT3_NEWOLD MTC_NEWOLD,0x52
|
|
define PT3_SNEGURKA MTC_SNEGURKA,0xaa4
|
|
|
|
define TS_INEEDREST "ineedrest.mtc",0x52
|
|
|
|
define PT2_PITON "PITON.pt2"
|
|
|