ô > lcd/s v1.01 !ô 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 –(LDA &355:CMP #7:BNE ignore \ Not ë 7  LDA &319:SBC &30B ª*CMP #4:BCS ignore \ Not top four lines ´TYA:PHA:TXA:PHA ¾ JSR disp ÈPLA:TAX:PLA:TAY Ò .ignore Ü 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 6 .loop2 @LDA #32:JSR data JINY:CPY #64:BNE loop2 T LDY #0 ^ .next hCPX #80:BNE loop rLDA #2:JSR commX |LDX #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 0BIT base%+2:BMI dataX :STA base%+3:RTS D .comm NBIT base%+0:BMI comm XSTA base%+0:LDA #13 b .comm2 lBIT base%+0:BMI comm2 vSTA base%+0:RTS € .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 4 .oldv >]í H;ñ"*SAVE lcd FFFF0900 ";~P%„&FFFF0000;" ";~go%„&FFFF0000 ÿ