limit #ffff
        org   #8000
;
        ld    hl,command
        ld    (hl),#85
        call  #bcd4
        ld    (faradr),hl
        ld    a,c
        ld    (faradr+2),a
;
        ld    e,#00
        ld    d,#00
        ld    c,#41
        ld    hl,#0100
loop    rst   3,faradr
        inc   h
        inc   h
        inc   c
        ld    a,c
        cp    #48
        jr    c,loop
        ret
;
faradr  defs  3
command defs  1