.data:
call getc ; byte count
ld c, a
-.dl: call getc
+.dl: dec c
+ jr z, .done
+ call getc
ld [$FF63], A
- dec c
- jp nz, .dl
- ld A, $44 ;D
- ret
+ jr .dl
+.done: ld A, $44 ;D
+ jr putc
+
.prog:
ld hl, $FF80
ld c, $7F
.pl: dec c
- jp z, $FF80
+ jp z, .progboot
call getc
ld [hli], a
jr .pl
+.progboot:
+ ld a, $50 ;P
+ call putc
+ jp $FF80
SECTION "a", HOME[$100]
nop ; Make sure we don't overflow.