;============================================================== ; 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