writeFlash:
;Writes C bytes to AHL
;Input: AHL is page:address
;       pagedBuf contains data to write
        ld (arcInfo),a
        ld (iMathPtr5),hl
        ld a,c
        ld (pagedCount),a
        in a,(6)
        push af
        ld a,7Bh
        call translatePage
        out (6),a
        ld hl,5092h
        ld e,(hl)
        inc hl
        ld d,(hl)
        inc hl
        ld a,(hl)
        call translatePage
        out (6),a
        ex de,hl
        ld a,0CCh
        ld bc,0FFFFh
        cpir
        ld e,(hl)
        inc hl
        ld d,(hl)
        ex de,hl
        ld de,returnPoint
        push de
        jp (hl)
returnPoint:
        pop af
        out (6),a
        ret
translatePage:
        push af
        in a,(2)
        and 80h
        jr z,_old
        pop bc
        in a,(21h)
        and 3
        ld a,b
        ret nz
        and 3Fh
        ret
_old:   pop af
        and 1Fh
        ret