ô > VDU19/src ô Extended VDU 19 driver 0ô NOTE: Should check *FX3/VDU21 settings and ($ô have no effect if VDU disabled 2: <ô Select hardware to use: Fchamelion%=0:palettemate%=1 Ptarget%=palettemate% Z: dwrchv=&20E:vduQ=&26A n!load%=&FFFF0A00:Þ mcode% &200 x: ‚*Ý¤if(A%):çA%:z%=-1:=opt% ‹ z%=P%:=opt% Œ;Ý¤endif:çz%=-1:=opt% ‹ z%=P%-z%:P%=P%-z%:O%=O%-z%:=opt% –FÝ¤else:çz%=-1:z%=P%:=opt% ‹ z%=P%-z%:P%=P%-z%:O%=O%-z%:z%=-1:=opt% ã P=0 ¸ 1:opt%=P*3+4 ªP%=load%:O%=mcode% ´ [OPT opt% ¾.go% ÈLDA wrchv+0:STA oldwrch+1 ÒLDA wrchv+1:STA oldwrch+2 Ü!LDA #newvdu € 255:STA wrchv+0 æ!LDA #newvdu 256:STA wrchv+1 ðLDA #0:STA flag:RTS ú: .newvdu BIT vduQ:BMI check:STA flag .oldwrch " JMP &FFFF ,.oldvdu 6PLA:JMP oldwrch @ .check JPHA T LDA vduQ:CMP #255:BNE oldvdu ^LDA flag:CMP #19:BNE oldvdu h,PLA:PHA:STA &323:\ last entry of ï queue r \ ï queue |\ &31F logical colour †<\ &320 physical 4-bit colour (extension options if >15) ,\ &321 red component of physical colour š.\ &322 green component of physical colour ¤-\ &323 blue component of physical colour ®5LDA &31F:CMP #255:BEQ border :\ ï 19,-1,p,r,g,b ¸5LDA &320:CMP #24:BEQ borderRGB :\ ï 19,l,24,r,g,b Â4JSR RGBtest:BEQ oldvdu :\ ï 19,l,p,0,0,0 Ì: Ö#\ ï 19,l,ignored,red,green,blue à!OPT ¤if(target%=palettemate%) ê0 \ Select Palettemate 12-bit physical colour ô3 PHP:SEI :\ Disable IRQs þ TXA:PHA:TYA:PHA D LDA &31F:ASL A:ASL A:ASL A:ASL A:STA flag :\ logical colour I LDA &321:LSR A:LSR A:LSR A:LSR A:„A flag:TAX :\ colour red component L LDA &322:LSR A:LSR A:LSR A:LSR A:STA flag :\ colour green component &H LDA &323:€ #&F0:„A flag:TAY :\ colour blue component 0. LDA &360:ASL A:ASL A:ASL A:ASL A:STA flag : TXA:PHP:SEI D .palette NF STA &FE23:STY &FE23 :\ Write to palette X SEC:ADC flag:BCC palette bP PLA:TAY:PLA:TAX:PLP :\ Restore registers and IRQs lOPT ¤endif vOPT ¤if(target%=chamelion%) €. \ Select Chameleon 12-bit physical colour Š TXA:PHA ”E LDA #&FF:STA &FE62:LDA #&AE:STA &FE6C :\ set VIA control žA LDA &31F:€ #&07:„A #&E0:STA &FE60 :\ logical colour ¨L LDX #2 :\ start with component 2 ² .chamel ¼; TXA:ASL A:‚ &321,X:€ #&06:‚ &321,X :\ A=%76543cc0 ÆA ROR A:ROR A:ROR A:ROR A :\ A=%cc0-7654 Ð= € #&CF:‚ #&0F:STA &FE60 :\ A=%cc007654 ÚM DEX:BPL chamel :\ loop through components ä LDA #&E0:STA &FE60 î PLA:TAX øOPT ¤endif .done ;INC vduQ:PLA:RTS :\ Clear vduQ and return : : *\ ï 19,-1,p,red,green,blue 4.border >5JSR RGBtest:BEQ border3bit :\ ï 19,-1,p,0,0,0 H: R$\ ï 19,-1,ignored,red,green,blue \$\ ï 19,ignored,24,red,green,blue f.borderRGB pOPT ¤if(target%=chamelion%) zP PHP:SEI:LDA #&80:STA flag :\ b7=1 to indicate 12-bit colour „O LDA &321:LSR A:LSR A:LSR A:LSR A :\ physical colour red component Ž@ „A flag:STA &FE22 :\ write %xxxxrrrr ˜Q LDA &322:LSR A:LSR A:LSR A:LSR A:STA flag :\ physical colour green component ¢N LDA &323:€ #&F0 :\ physical colour blue component ¬@ „A flag:STA &FE22 :\ write %bbbbgggg ¶ PLP ÀOPT ¤endif ÊJMP done Ô: Þ.\ ï 19,-1,physical,ignored,ignored,ignored è.border3bit òZLDA &320:€ #&0F:STA &FE22 :\ write %0000xbgr, top nybble=0 to indicate 3-bit colour üJMP done : .RGBtest >LDA &321:„A &322:„A &323:RTS :\ EQ=all RGB values are zero $ .flag:BRK .]í 8%ç P%>&B00:ñ"WARN: Code overrun":à BBñ "*SAVE VDU19 ";~mcode%;" ";~O%;" ";~go%„&FFFF0000;" ";~load% ÿ