flashdiag.asm

   1         SECTION "wee",HOME[$0]
   2         ld sp, $CFFF
   3         ld hl, $FF60
   4         ld a, $FF
   5         ld [hli], a
   6         ld [hli], a
   7         ld [hli], a
   8         ld a, $90       ; device info
   9         ld [$FF65], a
  10
  11         call rn+$FF80
  12
  13         ld a, [$FF65]   ; 0000
  14         call puthex + $FF80
  15
  16         call rn+$FF80
  17
  18         ld a, [$FF65]   ; 0000
  19         call puthex + $FF80
  20
  21         call rn+$FF80
  22
  23         jp $0000
  24
  25 puthex:
  26         push af
  27         swap a
  28         and $0F
  29         ld hl, hexdig+$FF80
  30         add l
  31         ld l, a
  32         ld a, [hl]
  33         call putc+$FF80
  34         pop af
  35         and $0F
  36         ld hl, hexdig+$FF80
  37         add l
  38         ld l, a
  39         ld a, [hl]
  40         call putc+$FF80
  41         ret
  42
  43 hexdig:
  44         db "0123456789ABCDEF"
  45
  46 putc:
  47         ld c, $53
  48         push af
  49 .waitport:
  50         ld a,[c]
  51         and $01
  52         jr nz,.waitport
  53         pop af
  54         ld [$FF52],a
  55         ret
  56
  57 rn:
  58         ld a, 13
  59         call putc+$FF80
  60         ld a, 10
  61         jr putc
  62
  63
  64         section "a", HOME[$7E]
  65         nop