ld hl, signon
call puts
+ ld a, $91
+ ld [$FF40], a
+
call putscreen
ei
ld hl, $8000 ; Copy two tiles.
ld de, tiles
ld c, $20
-.cloop: push hl
- ld h, d
- ld l, e
- ld a, [hl]
+.cloop: ld a, [de]
inc de
- pop hl
ld [hli], a
ld [hli], a
dec c
ld [$FF0F], a
ld a, [$FF51]
- ld b, a
- and $80
- cp $80
- jr nz, .nothing
- ld c, $0
+ bit 7, a
+ jr z, .nothing
- ld a, b
- and $1
- cp c
+ bit 0, a
call nz, .scyup
- ld a, b
- and $2
- cp c
+ bit 1, a
call nz, .scydown
- ld a, b
- and $4
- cp c
+ bit 2, a
call nz, .scxup
- ld a, b
- and $8
- cp c
+ bit 3, a
call nz, .scxdown
.nothing: