Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ld a,$f6
- ld hl,$ffa2
- ldi (hl),a
- ld a,$7f
- ldi (hl),a
- ldi (hl),a
- ldi (hl),a
- ldi (hl),a
- ldi (hl),a
- ld (hl),a
- ld bc,$0100
- .dotick
- push bc
- ld a,$7f
- ld hl,$c3a0
- ld bc,$0168
- call $36e0
- ldh a,($a2)
- ld ($c449),a
- ld hl,$c3e2
- ld bc,$ffa3
- ld e,$06
- .drawinput
- push hl
- ld h,b
- ld l,c
- ld a,(hl)
- pop hl
- ldi (hl),a
- inc bc
- dec e
- jr nz,drawinput
- .haltroutine
- halt
- halt
- halt
- halt
- halt
- .getjoy
- call $3ffa
- ldh a,($b2)
- pop bc
- cp $40
- jr z,$0a
- cp $80
- jr z,$15
- cp $01
- jr z,$20
- jr dotick
- .up
- ldh a,($a2)
- cp $ff
- jr z,$2c
- cp $85
- jr z,$2e
- inc a
- ldh ($a2),a
- jr dotick
- .down
- ldh a,($a2)
- cp $f6
- jr z,$29
- cp $80
- jr z,$2a
- dec a
- ldh ($a2),a
- .relativejump
- jr dotick
- .apress
- dec b
- jr z,dotick
- ld hl,$ffa3
- ld a,c
- add a,l
- ld l,a
- ldh a,($a2)
- ld (hl),a
- inc c
- ld a,c
- cp $06
- jr z,$1a
- jr relativejump
- .from9toA
- ld a,$80
- ldh ($a2),a
- jr relativejump
- .fromFto0
- ld a,$f6
- ldh ($a2),a
- jr relativejump
- .from0toF
- ld a,$85
- ldh ($a2),a
- jr relativejump
- .fromAto9
- ld a,$ff
- ldh ($a2),a
- jr relativejump
- .decoder
- .initdecoder
- ld hl,$ffa3
- push hl
- ld b,$06
- .decode
- ld a,(hl)
- cp $f6
- jr nc,$04
- .chardecode
- sub $76
- jr $02
- .numdecode
- sub $f6
- .afterparse
- ldi (hl),a
- dec b
- jr nz,decode
- .end
- pop hl
- ldi a,(hl)
- swap a
- ld b,a
- ldi a,(hl)
- or b
- ld e,a
- ldi a,(hl)
- swap a
- ld b,a
- ldi a,(hl)
- or b
- ld l,a
- ldh a,($a7)
- swap a
- ld b,a
- ldh a,($a8)
- or b
- ld h,a
- ld a,e
- ld (hl),a
- ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement