D-Bug & Automation Forum
D-Bug & Automation Forum >> Coding >> Either a force relocation packer or a routine to relocate
https://d-bug.mooo.com/dbugforums/cgi-bin/yabb2/YaBB.pl?num=1334222877

Message started by Phill on 12.04.12 at 09:27:56

Title: Re: Either a force relocation packer or a routine to relocate
Post by Phill on 18.04.12 at 19:25:26
Right then helpful chaps, heres the first routine I need help with so I can transpose to Amiga :)

I'm presuming that this is a keyboard check routine.

this one is called three different times, and D0 and D1 are used as parameters before the routine is called, and both are set to the same value.

So we have: $30, $a0 and $fa which I presume (i.e. i'm totally guessing!!) are parameters for different key presses or event checks.

or are they parameters for mouse button presses?

Haven't got a clue!


     lea      $fffffc00.s,a1
     lea      2(a1),a2
w1:      btst      #1,(a1)
     beq.s      w1
     move.b#$14,(a2)
w2:      btst      #1,(a1)
     beq.s      w2
     move.b  #$9,2(a1)
w3:      btst      #1,(a1)
     beq.s      w3
     clr.b      (a2)
w4:      btst      #1,(a1)
     beq.s      w4
     move.b  d0,(a2)
w5:      btst      #1,(a1)
     beq.s      w5
     clr.b      (a2)
w6:      btst      #1,(a1)
     beq.s      w6
     move.bd1,(a2)
w7:      btst      #1,(a1)
     beq.s      w7
     move.b      #$c,(a2)
w8:      btst      #1,(a1)
     beq.s      w8
     move.b      #1,(a2)
w9:      btst      #1,(a1)
     beq.s      w9
     move.b      #1,(a2)
w10:      btst      #1,(a1)
     beq.s      w10
     lsr.b      #1,d1
     lsr.b      #1,d0
     move.b      #$e,(a2)
w11:      btst      #1,(a1)
     beq.s      w11
     clr.b      (a2)
w12:      btst      #1,(a1)
     beq.s      w12
     move.b      d0,(a2)
w13:      btst      #1,(a1)
     beq.s      w13
     clr.b      (a2)
w14:      btst      #1,(a1)
     beq.s      w14
     move.b      d1,(a2)
w15:      btst      #1,(a1)
     beq.s      w15
     rts

D-Bug & Automation Forum » Powered by YaBB 2.6.0!
YaBB Forum Software © 2000-2022. All Rights Reserved.