1 .constructor initconio, 24
22 @lp: ldy #16 ; size of a palette
33 cpx #16 * 2 ; 16 palettes
36 sty BGCOLOR ; white on black
40 VREG VDC_CR, $0088 ; enable background and vertical-blank interrupt
43 ; Load the conio font into the VDC.
49 bsr copy ; make normal characters
52 ; bsr copy ; make reversed characters
53 ; rts ; (fall through)
55 ; Point to the font data.
63 ldx #$08 ; 8 bytes/char
67 sta VDC_DATA_LO ; bitplane 0
68 st2 #>$0000 ; bitplane 1
70 inc ptr1 ; increment font pointer
74 bne lineloop ; next bitplane-0 byte
76 ldx #$08 ; fill bitplanes 2 and 3 with 0
81 bne fillloop ; next byte
84 bne charloop ; next character
89 font: .include "vga.inc"