[unix-history] / usr / src / usr.bin / pascal / pdx / mc68000 / cerror.s

# Copyright (c) 1982 The Regents of the University of California.
# All rights reserved.
#
# %sccs.include.redist.sh%
#
#	@(#)cerror.s	5.2 (Berkeley) %G%
#

# modified version of cerror
#
# The idea is that every time an error occurs in a system call
# I want a special function "syserr" called.  This function will
# either print a message and exit or do nothing depending on
# defaults and use of "onsyserr".
#

.globl	cerror
.comm	_errno,4

cerror:
	movl	d0,_errno
	jsr	_syserr		| new code
	moveq	#-1,d0
	rts

.globl	__mycerror		| clumsy way to get this loaded

__mycerror:
	.word	0
	rts
Commit	Line	Data
505bf312 KB	1	# Copyright (c) 1982 The Regents of the University of California.
505bf312 KB	2	# All rights reserved.
2ba41ece	3	#
505bf312	4	# %sccs.include.redist.sh%
2ba41ece	5	#
505bf312	6	# @(#)cerror.s 5.2 (Berkeley) %G%
2ba41ece	7	#
505bf312	8
2ba41ece KM	9	# modified version of cerror
	10	#
	11	# The idea is that every time an error occurs in a system call
	12	# I want a special function "syserr" called. This function will
	13	# either print a message and exit or do nothing depending on
	14	# defaults and use of "onsyserr".
	15	#
	16
	17	.globl cerror
	18	.comm _errno,4
	19
	20	cerror:
	21	movl d0,_errno
	22	jsr _syserr \| new code
	23	moveq #-1,d0
	24	rts
	25
	26	.globl __mycerror \| clumsy way to get this loaded
	27
	28	__mycerror:
	29	.word 0
	30	rts