Still Doodling

[Whammo]

Okay so, if you're throwing around stuff like "Gonna need it" as in INCLUDE GFX, you might as well take a look at it.
That is, take a look at the part that isn't terribly mind boggling.

These is important here.
D011 53265 VIC Control Register
7 Raster Compare: (Bit 8) See 53266
6 Extended Color Text Mode 1 = Enable
5 Bit Map Mode. 1 = Enable
4 Blank Screen to Border Color: 0 = Blank
3 Select 24/25 Row Text Display: 1=25 Rows
2-0 Smooth Scroll to Y Dot-Position (0-7)

DD00 56576 Data Port A (Serial Bus, RS-232, VIC Memory Control)
7 Serial Bus Data Input
6 Serial Bus Clock Pulse Input
5 Serial Bus Data Output
4 Serial Bus Clock Pulse Output
3 Serial Bus ATN Signal Output
2 RS-232 Data Output (User Port)
1-0 VIC Chip System Memory Bank Select
(Default = 11)

D018 53272 VIC Memory Control Register
7-4 Video Matrix Base Address (inside VIC)
3-1 Character Dot-Data Base Address (inside VIC)
0 Select upper/lower Character Set

base @ hex                \ Neat trick, eh? Default to decimal kludge.
e000 value bmpbase  \ The bitmap
cc00 value colbase      \ What in character mode would be screen memory

code kernal-in              \ Can't save memory under ROM with it in, no Kernal with which to do it, with it out
36 lda,# 1 sta, cli, ;code \ Flip it back in, 6502 i/o port, enable IRQ
code kernal-out             \ ROM out of the way, you'll need to copy RAM under ROM somewhere else in memory 
sei, 35 lda,# 1 sta, ;code  \ Not doing that here, so, 6502 i/o port, disable IRQ, or you'll  be sorry.

code hires
bb lda,# d011 sta, \ enable bitmap mode $bb = 10111011,  bit 5 is relevant here 
dd00 lda,               \ Yeah, it's the CIA, not the VIC
%11111100 and,# \ vic bank 2 Don't mess with the serial bus. 
dd00 sta,                \ store it back, gently.
38 lda,# d018 sta,  \ Back to the VIC, 38 = 00111000,  This is complicated. See footnote.
;code

code lores
9b lda,# d011 sta,
dd00 lda,
%11 ora,#
dd00 sta,
17 lda,#
d018 sta,
;code

: clrcol ( fgbgcol -- )
colbase 3e8 rot fill
bmpbase 1f40 0 fill ; 

Footnote:
See page 384 of: Compute's_Programming_the_Commodore_64_The_Definitive_Guide
You're welcome.