ack/mach/6500/libem/rtt.s

22 lines
330 B
ArmAsm
Raw Normal View History

1984-12-17 11:03:13 +00:00
.define Rtt
! This subroutine performs the return from trap.
Rtt:
ldy #0
jsr Ret ! restore old stackpointer and localbase
jsr Pop ! remove trapnumber
jsr Pop
sta hol0+1
stx hol0 ! restore linenumber
jsr Pop
sta hol0+5
stx hol0+4 ! restore filename pointer
lda #0
ldx #RETURN
jsr Sdi ! restore return area
rts