ack/mach/m68k2/libem/rck.s

17 lines
189 B
ArmAsm
Raw Normal View History

1984-12-14 15:41:14 +00:00
.define .rck
.text
.rck:
move.l (sp)+,a1
move.l (sp)+,a0 ! descriptor address
move.w (sp),d0
cmp (a0),d0
blt 1f
cmp 2(a0),d0
ble 2f
1:
move.w #ERANGE,-(sp)
jsr .trp
2:
jmp (a1)