 
ô > Mouse121/s 0ô Mouse Driver Source for BBC/Master/Compact : (ô v1.13 Version for BBC 2/ô v1.15 Self-modifies to read Compact mouse <6ô v1.16 Almost correctly aligns buttons on Compact F%ô v1.17 Fully works on B, M and C P/ô v1.18 Old vectors now in correct location Z5ô v1.19 Allows manual selection of Marconi pinout d2ô v1.20 SEI when reading posn, some tidying up n0ô v1.21 Self-modifies to read Electron mouse x: ‚5ô Allows: *MOUSE [AMX|COMPACT|MARCONI|ON|OFF|RB5] Œô Data:    7 6 5 4 3 2 1 0 –(ô BBC:     R M L - - Y - X (aka AMX)  ,ô Compact: - - - Y X R M L (aka Marconi) ª: ´ô Standard locations: ¾ô &D99/A=old IRQ1V Èô &D9B/C=old BYTEV Òô &D9D/E=old WORDV Ü"ô &DA5  =mouse status (unused) æô &DA6/7=mouse X position ðô &DA8/9=mouse Y position ú!ô &DAA  =mouse flags (unused):OSBYTE=&FFF4:OSARGS=&FFDA$IRQ1V=&204:BYTEV=&20A:WORDV=&20C"!Þ mcode% &200:norm%=&FFFF0933,ñ"Normal: &";~norm%6%è"Start:  &"A$:ç A$="":A$=Ã~norm%@load%= ("&FFFF0"+ÂA$,3))Jposn=&DA6:oldvecs=&D99T:^ã P=0 ¸ 1hP%=load%:O%=mcode%r[OPT P*3+4|EQUS "v1.21":EQUB 13†.newvecs)EQUW newirq:EQUW newbyte:EQUW newwordš
.exec%¤LDA #1:LDY #0:LDX #&A8®HJSR OSARGS:PHP:SEI            :\ Disable IRQs while changing vectors¸/LDA IRQ1V+0:CMP #newirq € 255:BNE chkVectorÂ0LDA IRQ1V+1:€ #&FC:CMP #(newirq  256) € &FCÌ.chkVectorÖKPHP                           :\ EQ=Already installed, NE=Not installedàLDA (&A8),Y:€ #&DFê,CMP #—"O":BNE mouseOn       :\ *Mouse OnôINY:LDA (&A8),Y:€ #&DFþ1CMP #—"F":BNE mouseOn       :\ Not *Mouse Off:.mouseOff;PLP:BNE exit1                 :\ NE=Mouse not installed&?LDX #5:LDY #WORDV+1-&200      :\ Initially copy BYTEV+WORDV0.oldveclp:7LDA oldvecs,X:STA &200,Y      :\ Restore old vectorDCPX #2:BNE oldvec2N3LDY #IRQ1V+2-&200             :\ Now copy IRQ1VX.oldvec2bDEY:DEX:BPL oldveclpl
.exit1vPLP:RTS€:Š.mouseOn”?PLP:BEQ exit3                 :\ EQ=Mouse already installedž8CLC:ADC #2:€ #&E4:PHA       :\ Save *Mouse parameter¨?LDX #5:LDY #WORDV+1-&200      :\ Initially copy BYTEV+WORDV².newveclp¼4LDA &200,Y:STA oldvecs,X      :\ Copy old vectorÆ3LDA newvecs,X:STA &200,Y      :\ Set new vectorÐ"CPX #2:BCC newvec3:BNE newvec2Ú3LDY #IRQ1V+2-&200             :\ Now copy IRQ1Vä.newvec2î7TXA:€ #1:ASL A:STA posn-2,X :\ Set initial positionø.newvec3DEY:DEX:BPL newveclp3SEC:ROR posn+0                :\ Initial X=&280?LDA #0:JSR OSBYTE             :\ Read MOS, X=&FF from above  TXA:BNE NotElectron:LDA #&FC*.ElectronLp4+LDY ld1%,X:CPY #&FE:BNE P%+5:STA ld1%,X>+LDY ld2%,X:CPY #&FE:BNE P%+5:STA ld2%,XH<INX:BNE ElectronLp            :\ Finished with X=0 againR.NotElectron\7PLA:CMP #—"D":BEQ mousePins :\ Marconi/RB5 overridef0CPX #5:BNE exit2              :\ Not Compactp.mousePinsz$\ Compact            not Compact„%\ chk_dir=NOP        leave as LSRŽ#\ change+1=8         leave as 1˜%\ rd_buttons=ROR Ax4 leave as NOP¢%\ rd_key3=NOPx4      leave as ROR¬
LDY #3¶.mousePinLpÀ4LDA #&6A:STA rd_buttons,Y     :\ Change to ROR AÊ2LDA #&EA:STA chk_dir,Y        :\ Change to NOPÔDEY:BPL mousePinLpÞ#STA chk_dir:LDA #8:STA change+1è
.exit2ò9LDX #&00:STX &FE62            :\ Data Direction=Inputü8LDX #&98:STX &FE6E            :\ Enable CB1+CB2 IRQs
.exit3PLP:RTS:$\ Interrupt routine..newirq8LDA &FE6D:BPL do_oldB-€ #&18:BNE mouse_via    :\ Mouse movementL.do_oldVJMP (oldvecs)`.mouse_viajCLD:LDA &FC:PHAtTXA:PHA:TYA:PHA~9LDA &FE6D:LDY &FE60       :\ Get axis again+directionˆ-€ #&18:STA &FE6D        :\ Ack. mouse IRQ’;CMP #&10:BCS do_X         :\ %xxx0xxxx - must be move XœPHA:TYA:LSR A¦.chk_dir°5LSR A                     :\ NOP out with Compactº2LDX #2:SEC:JSR change     :\ Update Y positionÄ:PLA:CMP #&18:BNE done     :\ %xxx10xxx - no X movementÎ	.do_XØ2TYA:LDX #0:CLC:JSR change :\ Update X positionâ	.doneìPLA:TAY:PLA:TAX:PLA:RTIö: \ Update position
:\ A=direction, X=posn offset, CC=max=&500, CS=max=&400.change?€ #1:BEQ chg_decr       :\ € #1 for BBC/M, € #8 for Compact(.chg_incr2PHP:CLC<$LDA posn+0,X:ADC #4:STA posn+0,XF$LDA posn+1,X:ADC #0:STA posn+1,XP PLP:ADC #0:CMP #5:BNE chg_okZ.chg_decrdSECn$LDA posn+0,X:SBC #4:STA posn+0,Xx$LDA posn+1,X:SBC #0:STA posn+1,X‚BMI chg_incrŒ.chg_ok–RTS :ª\ Routines to read mouse´.read_mouse¾TXA:PHA:TYA:PHAÈ-LDA #&86:JSR OSBYTE       :\ Get text X,YÒPLA:STA &F1:PLA:STA &F0Ü/TYA:LDY #5:STA (&F0),Y    :\ Store text X,YæTXA:DEY:STA (&F0),Y:DEYðDPHP:SEI                   :\ Prevent IRQs while reading positionú.rd_ms_lp/LDA posn,Y:STA (&F0),Y    :\ Copy mouse X,YDEY:BPL rd_ms_lp2PLP:LDY #6:LDA &FE60      :\ Get mouse buttons".rd_buttons,=NOP:NOP:NOP:NOP           :\ Change to ROR A when Compact6€ #&E0:STA (&F0),Y@LDA #64:LDX &F0:LDY &F1JRTST:^.newwordhCMP #64:BEQ read_mouserJMP (oldvecs+4)|.newbyte†"CMP #&80:BEQ rd_posn      :\ –"CMP #&81:BEQ rd_key       :\ ¦š.do_old_byte¤JMP (oldvecs+2)®:¸.rd_posnÂB\ Bug in documentation, BASIC only passes X, Y must be ignoredÌ$CPX #7:BCC do_old_byte    :\ –<7Ö$CPX #9:BCS do_old_byte    :\ –>8àDPHP:SEI:TXA:ASL A:TAX     :\ Prevent IRQs while reading positionê*LDY posn-13,X             :\ –(7)/–(8)ôLDA posn-14,X:TAXþPLP:RTS.rd_keyCPY #&FF:BNE do_old_byteCPX #&93:BCC do_old_byte&CPX #&96:BCC rd_key20CPX #&F4:BCC do_old_byte:CPX #&F7:BCS do_old_byteDDEX:.rd_key2NTXA:€ #&9F:SBC #&92:‚ #3XCMP #3:ADC #0b.rd_key3l:ROR A:ROR A:ROR A:ROR A   :\ NOP these out for Compactv€ &FE60€CMP #1:LDA #0:ADC #&FFŠTAX:TAY:RTS”]:ld1%=exit2:ld2%=P%-256ží¨GB%=0:ã A%=exit2-(load%€&FFFF)+mcode% ¸ O%-1:ç ?A%=&FE:B%=B%+1:í ‹ í²*ç B%<>8:ñ"ERROR: Too many &FE bytes":à¼Cñ"*SAVE Mouse ";~mcode%;" ";~O%;" ";~exec%„&FFFF0000;" ";~load%ÿ