7 .constructor initconio, 24
50 ;----------------------------------------------------------------------------
52 ;----------------------------------------------------------------------------
93 charloop: ldx #$08 ; 8 bytes/char
97 sta a:VDC_DATA_LO ; bitplane 0
98 stz a:VDC_DATA_HI ; bitplane 1
100 clc ; increment font pointer
108 bne lineloop ; next bitplane 0 byte
109 ldx #$08 ; fill bitplane 2/3 with 0
113 bne fillloop ; next byte
115 bne charloop ; next character