.EQSI=54272 .EQV=53248  .EQPOTX=SI+25 ( .EQPOTY=SI+26. 2 .EQXPOS=VC < .EQXPOSMSB=V+16T F .EQYPOS=V+1b P .BA49152k Z SEIw d LDA789 n CMP#>(IRQ) x BNEINIT LDA#49 STA788 LDA#234 STA789 LDA53274 AND#$FE STA53274 LDAV+21! AND#$FE! STAV+21! CLI'! RTS6!INIT LDA#1C! STAV+21N! LDA#1[! STAV+39h!" LDA#100r!, STAV~!6 STAV+1!@ LDA#<(IRQ)!J STA788!T LDA#>(IRQ)!^ STA789!h LDA53274!r ORA#1!| STA53274! CLI! RTS!NEWVAL .BY0"OLDVAL .BY0"OPOTX .BY0-"OPOTY .BY0>"IRQ LDA$D019M" BMIVICIRQ[" LDA$DC0Dd" CLIr" JMP$EA31"VICIRQ STA$D019" LDAPOTX" LDYOPOTX" JSRMOVE" STYOPOTX"& CLC"0 ADCXPOS": STAXPOS"D TXA"N ADC#$00#X AND#$01#b EORXPOSMSB"#l STAXPOSMSB/#v LDAPOTY=# LDYOPOTYJ# JSRMOVEX# STYOPOTYe# EOR#$FFn# SEC{# ADCYPOS# STAYPOS# PLA# TAY# PLA# TAX# PLA# RTI#MOVE STYOLDVAL#  STANEWVAL# SEC#  SBCOLDVAL$* AND#$7F$4 CMP#$40 $> BCSCARRY)$H LSR6$R BEQZEROE$\ LDYNEWVALN$f RTS`$pCARRY ORA#$C0m$z CMP#$FFz$ BEQZERO$ SEC$ ROR$ LDYNEWVAL$ RTS$ZERO LDA#0$ RTS