--- /dev/null
+ SECTION "wee",HOME[$0]
+ ld sp, $CFFF
+ ld hl, $FF60
+ ld a, $FF
+ ld [hli], a
+ ld [hli], a
+ ld [hli], a
+ ld a, $90 ; device info
+ ld [$FF65], a
+
+ call rn+$FF80
+
+ ld a, [$FF65] ; 0000
+ call puthex + $FF80
+
+ call rn+$FF80
+
+ ld a, [$FF65] ; 0000
+ call puthex + $FF80
+
+ call rn+$FF80
+
+ jp $0000
+
+puthex:
+ push af
+ swap a
+ and $0F
+ ld hl, hexdig+$FF80
+ add l
+ ld l, a
+ ld a, [hl]
+ call putc+$FF80
+ pop af
+ and $0F
+ ld hl, hexdig+$FF80
+ add l
+ ld l, a
+ ld a, [hl]
+ call putc+$FF80
+ ret
+
+hexdig:
+ db "0123456789ABCDEF"
+
+putc:
+ ld c, $53
+ push af
+.waitport:
+ ld a,[c]
+ and $01
+ jr nz,.waitport
+ pop af
+ ld [$FF52],a
+ ret
+
+rn:
+ ld a, 13
+ call putc+$FF80
+ ld a, 10
+ jr putc
+
+
+ section "a", HOME[$7E]
+ nop