mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-28 05:51:04 +00:00
40 lines
812 B
ArmAsm
40 lines
812 B
ArmAsm
.text
|
|
.globl PATCHEDLOADSEG
|
|
|
|
PATCHEDLOADSEG:
|
|
|
|
# Stack on Entry:
|
|
# (arguments for function)
|
|
# (return address)
|
|
# (return address from trap (== address in jt entry))
|
|
movem.l %a0-%a1/%d0-%d2, -(%sp)
|
|
subq #4, %sp
|
|
move.l 24(%sp), -(%sp)
|
|
|
|
# Stack now:
|
|
# (arguments for function)
|
|
# (return address)
|
|
# (don't care anymore -- address in jt entry)
|
|
# (saved registers)
|
|
# (4 bytes of space for return value)
|
|
# (address in jt entry)
|
|
|
|
jsr RETRO68LOADSEGMENT
|
|
|
|
# Stack now:
|
|
# (arguments for function)
|
|
# (return address)
|
|
# (don't care -- address in jt entry)
|
|
# (saved registers)
|
|
# (address of loaded function)
|
|
|
|
move.l (%sp)+, 20(%sp)
|
|
movem.l (%sp)+, %a0-%a1/%d0-%d2
|
|
|
|
# Stack now:
|
|
# (arguments for function)
|
|
# (return address)
|
|
# (address of loaded function)
|
|
|
|
rts
|