c $BAD6 DH_P
C $BAD6 set CHARS to $D808 (font data for top half of font - 256)
C $BADC preserve AF (A holds character to print)
C $BADD call $DF0F to print top half of char in A
C $BAE0 restore AF
C $BAE1 increment B to move one row down
C $BAE2 set CHARS to $DB08 (font data for bottom half of font - 256)
C $BAE8 call $DF0F to print bottom half of char in A
C $BAEB decrement B to return to original row
C $BAEC increment C to move right to next column
C $BAED return to caller