ô > lcd/s v1.00 !ô Redirect VDU to LCD display ô Syntax: lcd (ON|OFF) (: 2#ô Sends to existing VDU driver, <$ô then if VPOS in top four lines F"ô copies MODE 7 display to LCD P: Zbase%=&FC80 d ã P=0 ¸ 1 n P%=&900 x [OPT P*3 ‚ .start Œ JSR old –PHA:TYA:PHA:TXA:PHA  LDA #&86:JSR &FFF4 ªCPY #4:BCS ignore ´ JSR disp ¾ .ignore ÈPLA:TAX:PLA:TAY:PLA ÒRTS Ü.old æJMP (oldv) ð .disp úLDA #2:JSR comm LDX #0:LDY #0:.loop LDA &7C50,X:JSR data  INX:INY "CPY #40:BNE next , .loop2 6LDA #32:JSR data @INY:CPY #64:BNE loop2 J LDY #0 T .next ^CPX #80:BNE loop hLDA #2:JSR commX rLDX #0:LDY #0:.loopX |LDA &7C00,X:JSR dataX † INX:INY CPY #40:BNE nextX š .loop2X ¤LDA #32:JSR dataX ®INY:CPY #64:BNE loop2X ¸ LDY #0  .nextX ÌCPX #80:BNE loopX ÖRTS à .commX êBIT base%+2:BMI commX ôSTA base%+2:LDA #13 þ .comm2X BIT base%+2:BMI comm2X STA base%+2:RTS  .dataX &BIT base%+2:BMI dataX 0STA base%+3:RTS : .comm DBIT base%+0:BMI comm NSTA base%+0:LDA #13 X .comm2 bBIT base%+0:BMI comm2 lSTA base%+0:RTS v .data €BIT base%+0:BMI data ŠSTA base%+1:RTS ”.go% žLDA #1:LDX #&A8:LDY #0 ¨JSR &FFDA:LDA (&A8),Y ²CMP #13:BEQ link_on ¼INY:LDA (&A8),Y:€ #&DF ÆCMP #—"F":BNE link_on ÐLDA oldv+0:STA &20E ÚLDA oldv+1:STA &20F äRTS î .link_on øLDA &20E:STA oldv+0 LDA &20F:STA oldv+1  LDA #start € 255:STA &20E LDA #start 256:STA &20F  RTS * .oldv 4]í >;ñ"*SAVE lcd FFFF0900 ";~P%„&FFFF0000;" ";~go%„&FFFF0000 ÿ