 
Т > ROMMouse/s 1.00 1Т Add mouse code to spare area in a ROM image "Т 1.00 17-Mar-2006 J.G.Harston (: 2ч A%(4096):ь:ч mcode% &40FF <*OSASCI=&FFE3:OSNEWL=&FFE7:OSBYTE=&FFF4 F(BYTEV=&20A:XBYTEV=&DAE:oldBYTEV=&D9B P#status=&DA5:posn=&DA6:flag=&DAA Z: d*Х "Source ROM: (RETURN for none) "rom$ nHГ rom$<>"":Ъ"LOAD :System.ROMs.Filing.Disk.Acorn."+rom$+" "+ц~mcode% x*Г rom$<>"":OldService=mcode%!4 ─ &FFFF ┌JГ rom$<>"":spare%=&4000:У:spare%=spare%-1:Щmcode%?spare%<>mcode%?&3FFF ▄Г rom$="":spare%=-1 √8spare%=spare%+&8001:Я"ROM space starts at &";~spare% ═(Г spare%>&BCC7:Я"Not enough space":Ю ╙: ЄЦ P=0 ╦ 1 Ў P%=spare%:O%=P%-&8000+mcode% хГ rom$="":РROMHeader р[OPT P*2+4 э.Service% Ф,]:Г rom$<>"":[OPT P*2+4:JSR OldService:] П[OPT P*2+4 ЗCMP #4:BNE P%+5:JMP Serv4CMP #5:BNE P%+5:JMP Serv5CMP #8:BNE P%+5:JMP Serv8CMP #9:BEQ Serv9"RTS,:6
.Serv9@;TAX:PHY                               :\ Save registersJ2LDA (&F2),Y:CMP #13:CLC:BEQ Serv9Help :\ *HelpT2CMP #≈".":BEQ Serv9Help             :\ *Help .^4─ #&DF:CMP #≈"M":BNE Serv9Quit    :\ *Help Mouseh8LDX #0                                :\ Claim *Helpr.Serv9Help|DPHX:PHP                               :\ Save claim/noclaim/full├=LDX #0:JSR PrintHelpText              :\ Print help title░@PLP:BCC P%+5:JSR PrintHelpText        :\ Print detailed help PLXє.Serv9Quitў>TXA:LDX &F4:PLY:RTS                   :\ Restore registers╦:б.PrintHelpTextл"LDA HelpText,X:BEQ PrintHelpOkж$JSR OSASCI:INX:BNE PrintHelpTextЮ.PrintHelpOkЙINX:RTSТ:Ч.HelpTextEQUB 13!EQUS "Mouse 1.00":EQUB 13:BRK#EQUS "  MOUSE [ON|OFF]":EQUB 13&6EQUS "  ADVAL(7) returns mouse X position":EQUB 1306EQUS "  ADVAL(8) returns mouse Y position":EQUB 13:8EQUS "  ADVAL(9) returns mouse buttons %rml":EQUB 13D@EQUS "  INKEY-10,-11,-12 return mouse buttons l,m,r":EQUB 13NBEQUS "  OSWORD 64 returns mouse X,Y text X,Y, buttons":EQUB 13XBRKb:l
.Serv4vPHY:LDX #0─.Serv4Lp┼(LDA (&F2),Y:CMP #≈".":BEQ Serv4Found■"CMP HelpText+1,X:BEQ Serv4Next·	┌ #32╗"CMP HelpText+1,X:BNE Serv4Quit╡.Serv4Next╪INY:INX:CPX #5:BNE Serv4Lpф#LDA (&F2),Y:CMP #13:BEQ MouseOnпCMP #32:BNE Serv4Quitз.Serv4FoundДPLAН.Serv4SpcЬ(INY:LDA (&F2),Y:CMP #32:BEQ Serv4SpcCMP #13:BEQ MouseOn!─ #&DF:CMP #≈"F":BEQ MouseOffBNE Serv4Spc .Serv4Quit*PLY:LDX &F4:LDA #4:RTS4:>.MouseOffH9JSR ChkVector:BNE MouseExit     :\ Vector not claimedRPHP:SEI\5LDA oldBYTEV+0:STA BYTEV+0      :\ Restore vectorfLDA oldBYTEV+1:STA BYTEV+1p:LDA status:─ #&3F             :\ Flag mouse turned offzBPL MouseDone└:▌.MouseOn≤=JSR ChkVector:BEQ MouseExit     :\ Vector already claimed╒LDX #3:.InitPosn╛8TXA:─ #1:ASL A:STA posn,X     :\ Initialise positionІDEX:BPL InitPosnю5LDA #&80:STA posn               :\ X=&280, Y=&200й:т7LDA BYTEV+0:STA oldBYTEV+0      :\ Save old vectorsчLDA BYTEV+1:STA oldBYTEV+1Х:РJPHP:SEI                         :\ Disable IRQs while changing vectorsЭ*LDA #15:STA BYTEV:LDA #&FF:STA BYTEV+1%LDA #MouseByte ─ 255:STA XBYTEV+0%LDA #MouseByte │ 256:STA XBYTEV+1LDA &F4:STA XBYTEV+2$:.;LDA #&00:STA &FE62              :\ Data Direction=Input8:LDA #&98:STA &FE6E              :\ Enable CB1+CB2 IRQsBCLDA #&18:STA &FE6D              :\ Clear any pending CB1+2 IRQsLLDA #0:LDX #&FF:JSR OSBYTEV9LDA #&01:CPX #5:BNE NotCompact  :\ Not Master Compact`JLDA #&88                        :\ Set b7, Compact uses different pinsj.NotCompactt3STA flag                        :\ Save OS flag~\ b7 = Compact┬)\ b0 = ─ #&01 for BBC/Master movement▓&\ b3 = ─ #&08 for Compact movement°8LDA #&92                        :\ Mouse on, speed=2і:╟.MouseDone╨7STA status:PLP                  :\ Set mouse statusд.MouseExitн?LDA #0:RTS                      :\ Restore IRQs, claim callь:Б.ChkVectorЛ#LDA BYTEV+0:CMP #&0F:BNE ChkOffЖ#LDA BYTEV+1:CMP #&FF:BNE ChkOff 0LDA XBYTEV+0:CMP #MouseByte ─ 255:BNE ChkOff
0LDA XBYTEV+1:CMP #MouseByte │ 256:BNE ChkOffLDA XBYTEV+2:CMP &F4.ChkOff(RTS2:<\ ╗ERUPT - х≈ MAY HAVE ЛDF%\ ===============================P
.Serv5Z8LDA status:BMI MouseIRQ  :\ Mouse enabled, check VIAd.Serv5QuitnLDA #5:RTSx.MouseIRQ┌2LDA &FE6D:LDY &FE60      :\ Get axis+direction▄;─ #&18:BEQ Serv5Quit   :\ Not mouse movement, ignore it√.STA &FE6D                :\ Ack. mouse IRQ═0\ Rest of code from *Mouse transient command╙CMP #&10:BCS do_XЄ/PHA:LDX #2:TYA:LSR A     :\ X=2 for Y coordЎ'BIT flag:BMI dir_compact :\ Compactх	LSR Aр.dir_compactэSEC:JSR changeФPLA:CMP #&18:BNE doneП	.do_XЗ0LDX #0:TYA:CLC:JSR change :\ X=0 for X coord	.doneLDA #0:RTS:".change,"PHP:─ flag:─ #&09:BEQ chg_decr6.chg_incr@CLCJ5LDA posn,X:ADC #4:STA posn,X      :\ inc positionT$LDA posn+1,X:ADC #0:STA posn+1,X^<PLP:PHP:ADC #0:CMP #5:BNE chg_ok  :\ dec if out of rangeh.chg_decrrSEC|5LDA posn,X:SBC #4:STA posn,X      :\ dec position├$LDA posn+1,X:SBC #0:STA posn+1,X░<BMI chg_incr                      :\ inc if out of range .chg_okєPLP:RTSў:╦6\ Mouse OSBYTE routine to read postion and buttonsб6\ ================================================л.MouseByteж!CMP #&80:BEQ rd_posn     :\ √Ю!CMP #&81:BEQ rd_key      :\ іЙ.do_old_byteТJMP (oldBYTEV)Ч.rd_posn,CPY #0:BNE do_old_byte   :\ Not √(&00xx)#CPX #7:BCC do_old_byte   :\ √<73CPX #9:BEQ rd_buttons    :\ √(9) - button state&#BCS do_old_byte          :\ √>90TXA:ASL A:TAX:)LDA posn-13,X:TAY        :\ √(7)/√(8)DLDA posn-14,X:TAXNRTSX$.rd_buttons              :\ √(9)b*LDA &FE60:BIT flag:BMI rd_buttons_complROL A:ROL A:ROL A:ROL Av.rd_buttons_comp── #7:┌ #7:TAX:LDY #0:RTS┼.rd_key■CPY #&FF:BNE do_old_byte·CPX #&93:BCC do_old_byte╗CPX #&96:BCC rd_key2╡CPX #&F4:BCC do_old_byte╪CPX #&F7:BCS do_old_byteфDEX:.rd_key2пTXA:─ #&9F:SBC #&92:┌ #3зCMP #3:ADC #0Д.rd_key3НBIT flag:BMI rd_key_compЬROR A:ROR A:ROR A:ROR A.rd_key_comp─ &FE60CMP #1:LDA #0:ADC #&FF TAX:TAY:RTS*:4\ SERVICE 8 - OSWORD>\ ==================H
.Serv8R"LDA &EF:CMP #64:BEQ read_mouse\LDA #8:RTSf.read_mousepLDA &F0:PHA:LDA &F1:PHAzLDA #&86:JSR OSBYTE└PLA:STA &F1:PLA:STA &F0▌TYA:LDY #5:STA (&F0),Y≤TXA:DEY:STA (&F0),Y:DEY╒.rd_ms_lp╛LDA posn,Y:STA (&F0),Y:DEYІBPL rd_ms_lpюLDY #6:LDA &FE60йBIT flag:BPL rd_ms_bbcтROR A:ROR A:ROR A:ROR Aч.rd_ms_bbcХSTA (&F0),YРLDX &F0:LDY &F1:LDA #0:RTSЭ]М	6Г rom$<>"":mcode%?4=Service%:mcode%?5=Service%│256	8Я"*SAVE ";rom$;"Mse ";~mcode%;" ";ц~O%;" 0 FFFBBC00"	Ю	$щРROMHeader	.[OPT P*2+4	8BRK:BRK:BRK:JMP Service%	B*EQUB &82:EQUB Copyright-&8000:EQUB &01	L.EQUS "Mouse":BRK:EQUS "1.00 (12 Mar 2006)"	V.Copyright	`!BRK:EQUS "(C)J.G.Harston":BRK	j]:АЪ