2011-07-23 17:02:32 +00:00
|
|
|
.size 8000
|
|
|
|
|
|
|
|
.code@48
|
|
|
|
inc a
|
|
|
|
ldff(45), a
|
2013-12-02 02:24:23 +01:00
|
|
|
jp lstatint
|
2011-07-23 17:02:32 +00:00
|
|
|
|
|
|
|
.code@100
|
2013-12-02 02:24:23 +01:00
|
|
|
jp lbegin
|
2011-07-23 17:02:32 +00:00
|
|
|
|
|
|
|
.data@143
|
2013-02-20 20:02:06 +01:00
|
|
|
c0
|
2011-07-23 17:02:32 +00:00
|
|
|
|
|
|
|
.code@150
|
2013-12-02 02:24:23 +01:00
|
|
|
lbegin:
|
2011-07-23 17:02:32 +00:00
|
|
|
ld a, 00
|
|
|
|
ldff(ff), a
|
|
|
|
ld a, 30
|
|
|
|
ldff(00), a
|
|
|
|
ld a, 01
|
|
|
|
ldff(4d), a
|
|
|
|
stop, 00
|
|
|
|
xor a, a
|
|
|
|
dec a
|
|
|
|
ldff(45), a
|
|
|
|
ld b, 03
|
2013-12-02 02:24:23 +01:00
|
|
|
call lwaitly_b
|
2011-07-23 17:02:32 +00:00
|
|
|
ld c, 41
|
2013-12-02 02:24:23 +01:00
|
|
|
lbegin_waitm0:
|
2011-07-23 17:02:32 +00:00
|
|
|
ldff a, (c)
|
|
|
|
and a, b
|
2013-12-02 02:24:23 +01:00
|
|
|
jrnz lbegin_waitm0
|
2011-07-23 17:02:32 +00:00
|
|
|
ld a, 80
|
|
|
|
ldff(68), a
|
|
|
|
ld a, ff
|
|
|
|
ld c, 69
|
|
|
|
ldff(c), a
|
|
|
|
ldff(c), a
|
|
|
|
ldff(c), a
|
|
|
|
ldff(c), a
|
|
|
|
ldff(c), a
|
|
|
|
ldff(c), a
|
|
|
|
xor a, a
|
|
|
|
ldff(c), a
|
|
|
|
ldff(c), a
|
|
|
|
ld a, 40
|
|
|
|
ldff(41), a
|
|
|
|
ld a, 02
|
|
|
|
ldff(ff), a
|
|
|
|
ei
|
|
|
|
ld a, b
|
|
|
|
inc a
|
|
|
|
inc a
|
|
|
|
ldff(45), a
|
|
|
|
ld c, 0f
|
|
|
|
|
|
|
|
.code@1000
|
2013-12-02 02:24:23 +01:00
|
|
|
lstatint:
|
2011-07-23 17:02:32 +00:00
|
|
|
nop
|
|
|
|
|
|
|
|
.code@10d3
|
|
|
|
xor a, a
|
|
|
|
ldff(41), a
|
|
|
|
ldff a, (c)
|
|
|
|
and a, b
|
2013-12-02 02:24:23 +01:00
|
|
|
jp lprint_a
|
2011-07-23 17:02:32 +00:00
|
|
|
|
2013-12-02 02:24:23 +01:00
|
|
|
.code@7000
|
|
|
|
lprint_a:
|
|
|
|
push af
|
2011-07-23 17:02:32 +00:00
|
|
|
ld b, 91
|
2013-12-02 02:24:23 +01:00
|
|
|
call lwaitly_b
|
2011-07-23 17:02:32 +00:00
|
|
|
xor a, a
|
|
|
|
ldff(40), a
|
2013-12-02 02:24:23 +01:00
|
|
|
pop af
|
|
|
|
ld(9800), a
|
2011-07-23 17:02:32 +00:00
|
|
|
ld bc, 7a00
|
|
|
|
ld hl, 8000
|
|
|
|
ld d, a0
|
2013-12-02 02:24:23 +01:00
|
|
|
lprint_copytiles:
|
2011-07-23 17:02:32 +00:00
|
|
|
ld a, (bc)
|
|
|
|
inc bc
|
|
|
|
ld(hl++), a
|
|
|
|
dec d
|
2013-12-02 02:24:23 +01:00
|
|
|
jrnz lprint_copytiles
|
2011-07-23 17:02:32 +00:00
|
|
|
ld a, c0
|
|
|
|
ldff(47), a
|
|
|
|
ld a, 80
|
|
|
|
ldff(68), a
|
|
|
|
ld a, ff
|
|
|
|
ldff(69), a
|
|
|
|
ldff(69), a
|
|
|
|
ldff(69), a
|
|
|
|
ldff(69), a
|
|
|
|
ldff(69), a
|
|
|
|
ldff(69), a
|
2013-12-02 02:24:23 +01:00
|
|
|
xor a, a
|
2011-07-23 17:02:32 +00:00
|
|
|
ldff(69), a
|
|
|
|
ldff(69), a
|
|
|
|
ldff(43), a
|
|
|
|
ld a, 91
|
|
|
|
ldff(40), a
|
2013-12-02 02:24:23 +01:00
|
|
|
lprint_limbo:
|
|
|
|
jr lprint_limbo
|
2011-07-23 17:02:32 +00:00
|
|
|
|
2013-12-02 02:24:23 +01:00
|
|
|
.code@7400
|
|
|
|
lwaitly_b:
|
|
|
|
ld c, 44
|
|
|
|
lwaitly_b_loop:
|
|
|
|
ldff a, (c)
|
|
|
|
cmp a, b
|
|
|
|
jrnz lwaitly_b_loop
|
|
|
|
ret
|
|
|
|
|
|
|
|
.data@7a00
|
|
|
|
00 00 7f 7f 41 41 41 41
|
2013-02-20 20:02:06 +01:00
|
|
|
41 41 41 41 41 41 7f 7f
|
2013-12-02 02:24:23 +01:00
|
|
|
00 00 08 08 08 08 08 08
|
|
|
|
08 08 08 08 08 08 08 08
|
|
|
|
00 00 7f 7f 01 01 01 01
|
2013-02-20 20:02:06 +01:00
|
|
|
7f 7f 40 40 40 40 7f 7f
|
2013-12-02 02:24:23 +01:00
|
|
|
00 00 7f 7f 01 01 01 01
|
|
|
|
3f 3f 01 01 01 01 7f 7f
|
|
|
|
00 00 41 41 41 41 41 41
|
|
|
|
7f 7f 01 01 01 01 01 01
|
|
|
|
00 00 7f 7f 40 40 40 40
|
|
|
|
7e 7e 01 01 01 01 7e 7e
|
|
|
|
00 00 7f 7f 40 40 40 40
|
2013-02-20 20:02:06 +01:00
|
|
|
7f 7f 41 41 41 41 7f 7f
|
2013-12-02 02:24:23 +01:00
|
|
|
00 00 7f 7f 01 01 02 02
|
|
|
|
04 04 08 08 10 10 10 10
|
|
|
|
00 00 3e 3e 41 41 41 41
|
|
|
|
3e 3e 41 41 41 41 3e 3e
|
|
|
|
00 00 7f 7f 41 41 41 41
|
|
|
|
7f 7f 01 01 01 01 7f 7f
|
2011-07-23 17:02:32 +00:00
|
|
|
|