ack/mach/m68k4/libsys/call.s

.define call
.define callc
.define calle
.define cerror
.define _errno
.extern call
.extern callc
.extern calle
.extern cerror
.extern _errno
.text
call:		trap #0
		bcs cerror
		rts
callc:
		trap #0
		bcs cerror
		clr.l d0
		rts
calle:
		trap #0
cerror:
		move.l d0,_errno
		move.l #-1,d0
		rts
.bss
_errno:		.space 4
.text
Initial revision 1984-12-14 15:52:15 +00:00			`.define call`
			`.define callc`
			`.define calle`
			`.define cerror`
			`.define _errno`
			`.extern call`
			`.extern callc`
			`.extern calle`
			`.extern cerror`
			`.extern _errno`
			`.text`
			`call: trap #0`
			`bcs cerror`
			`rts`
			`callc:`
			`trap #0`
			`bcs cerror`
			`clr.l d0`
			`rts`
			`calle:`
			`trap #0`
			`cerror:`
Adapted to 4-4. 1985-03-04 17:26:31 +00:00			`move.l d0,_errno`
Initial revision 1984-12-14 15:52:15 +00:00			`move.l #-1,d0`
			`rts`
			`.bss`
			`_errno: .space 4`
			`.text`