d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

The previous version still assumed two-byte integers.

Browse source
This commit is contained in:
keie 1985-03-04 15:33:28 +00:00
parent 2690f07cbd
commit d2a6847715
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mach/m68k4/libem/trp.s
View file

@ -3,10 +3,10 @@
.text .text
.trp: .trp:
move.l (sp)+,a2 ! return address move.l (sp)+,a2 ! return address
move.w (sp)+,d0 ! error number move.l (sp)+,d0 ! error number
move.l a2,-(sp) move.l a2,-(sp)
move.w d0,-(sp) move.l d0,-(sp)
cmp #16,d0 cmp.l #16,d0
bcc 1f bcc 1f
btst d0,.trpim btst d0,.trpim
bne 3f bne 3f
@ -17,11 +17,13 @@
clr.l .trppc clr.l .trppc
jsr (a0) jsr (a0)
3: 3:
add #2,sp add #4,sp
rts rts
9: 9:
pea fmt pea fmt
jsr .diagnos jsr .diagnos
add #4,sp
jsr __cleanup
jmp EXIT jmp EXIT
.data .data