Initial commit
This commit is contained in:
@@ -0,0 +1,51 @@
|
||||
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"
|
||||
|
||||
Reference in New Issue
Block a user