xref: /csrg-svn/usr.bin/pascal/pdx/mc68000/cerror.s (revision 30833)
  • Home
  • History
  • Annotate
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1#
2# Copyright (c) 1982 Regents of the University of California.
3# All rights reserved.  The Berkeley software License Agreement
4# specifies the terms and conditions for redistribution.
5#
6#	@(#)cerror.s	5.1 (Berkeley) 04/07/87
7#
8# modified version of cerror
9#
10# The idea is that every time an error occurs in a system call
11# I want a special function "syserr" called.  This function will
12# either print a message and exit or do nothing depending on
13# defaults and use of "onsyserr".
14#
15
16.globl	cerror
17.comm	_errno,4
18
19cerror:
20	movl	d0,_errno
21	jsr	_syserr		| new code
22	moveq	#-1,d0
23	rts
24
25.globl	__mycerror		| clumsy way to get this loaded
26
27__mycerror:
28	.word	0
29	rts
30

served by {OpenGrok

Last Index Update: Wed Jan 29 22:40:09 GMT 2025