1984-12-14 15:41:14 +00:00
|
|
|
.define .lpb
|
1985-06-04 10:57:42 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
1984-12-14 15:41:14 +00:00
|
|
|
.extern .lpb
|
1985-07-18 14:52:56 +00:00
|
|
|
.sect .text
|
1984-12-14 15:41:14 +00:00
|
|
|
.lpb:
|
|
|
|
|
! convert local to argument base
|
|
|
|
|
! should not destroy register d2 (used by lxa/lxl)
|
|
|
|
|
|
|
|
|
|
move.l (sp)+,a1 ! return address
|
|
|
|
|
move.l (sp)+,a0 ! local base
|
|
|
|
|
move.w 4(a0),d0 ! register save word
|
|
|
|
|
move.w d0,d1
|
|
|
|
|
and.l #7,d0 ! #data registers
|
|
|
|
|
and.l #070,d1
|
|
|
|
|
asr.l #3,d1 ! #address registers
|
|
|
|
|
add.w d1,d0
|
|
|
|
|
asl.l #2,d0 ! 4 * #registers
|
|
|
|
|
add.w #10,d0 ! reg. save word, lb, pc
|
|
|
|
|
add.l d0,a0
|
|
|
|
|
jmp (a1)
|
