 
ô > lcd/s v1.20 &ô Redirect VDU to 40x4 LCD display ô Syntax: lcd (ON|OFF) (: 2Dô Sends characters to existing VDU driver, then if in MODE 7 and <Fô VPOS is in top four lines physical lines, copies display to LCD. F: P,base%=&FC80:load%=&FFFF0A40:Þ mcode% 255 Zã P=0 ¸ 1 dP%=load%:O%=mcode% n[OPT P*3+4 x.go% ‚$LDA #1:LDX #&A8:LDY #0:JSR &FFDA Œ"LDA (&A8),Y:CMP #13:BEQ lcd_on –INY:LDA (&A8),Y:€ #&DF  CMP #—"F":BNE lcd_on ª6LDA &FFB7:STA &A8          :\ &A8=>default vectors ´6LDA &FFB8:STA &A9          :\ &A8=>default vectors ¾LDY #14 È.lcd_off Ò-LDA (&A8),Y:STA &200,Y     :\ Reset WRCHV ÜINY:CPY #16:BNE lcd_off:RTS æ: ð.lcd_on úLDX #reset_end-reset.reset_lp?LDA reset,X                 :\ Get byte from reset sequence,.wait1:BIT base%+0:BMI wait1:STA base%+1",.wait2:BIT base%+2:BMI wait2:STA base%+3,DEX:BPL reset_lp6-LDA &20E:STA old+1          :\ Copy WRCHV@LDA &20F:STA old+2J/LDA #start € 255:STA &20E :\ Redirect WRCHVTLDA #start  256:STA &20F^RTSh:r:|
.reset†.EQUB 1:EQUB 13:EQUB 16      :\ Û, î, RESET.reset_endš:¤
.start®.old¸2JSR &FFFF:PHA              :\ Send to old WRCHÂ,LDA &355:CMP #7:BNE ignore :\ Not mode 7Ì4LDA &319:CMP #4:BCS ignore :\ Not top four linesÖTYA:PHA:TXA:PHAà:ê2LDX #0                     :\ First controllerô8LDY #0                     :\ Start of screen memoryþ	.loop6LDA #&80+0+0*64            :\ Set address to (0,0)	.home(BIT base%+0,X:BMI home:STA base%+0,X&	.char05BIT base%+0,X:BMI char     :\ Wait until not busy:\ Need to translate #_`D1LDA &7C00,Y:STA base%+1,X  :\ Write characterN8INY                        :\ Step to next characterXECPY #40:BEQ line1          :\ Move to next line, first controllerbFCPY #120:BEQ line1         :\ Move to next line, second controllerl7CPY #80:BNE next           :\ Set to next characterv;LDX #2:BNE loop            :\ Step to second controller€
.line1Š6LDA #&80+0+1*64            :\ Set address to (0,1)”	.waitž(BIT base%+0,X:BMI wait:STA base%+0,X¨	.next²@CPY #160:BNE char          :\ Loop back to do next character¼PLA:TAX:PLA:TAYÆ.ignoreÐPLA:RTSÚ]íä?ñ"*SAVE lcd ";~mcode%;" ";~O%;" ";~go%„&FFFF0000;" ";~load%ÿ