;==============================================================
; 1 Bit per Pixel Tile Loader
; HL = Tile data start
; BC = Tiles to load * 8
; A = Color (0~F)
; Uses location (temp) in RAM
;==============================================================
LoadOneBPP:
    ld      (temp),a
loop:
    ld      a,(hl)
    exx    
    ld      bc,$04be    ; 4 bitplanes to do, port $BE
    ld      h,a
    ld      a,(temp)
bitplane:
    rra
    ld      d,h
    jr      c,notnull
    ld      d,$00
notnull:
    out     (c),d
    djnz    bitplane
    exx    
    inc     hl
    dec     bc
    ld      a,b
    or      c
    jr      nz,loop
    ret