1# Copyright (c) 1982 The Regents of the University of California. 2# All rights reserved. 3# 4# %sccs.include.redist.sh% 5# 6# @(#)cerror.s 5.2 (Berkeley) 04/16/91 7# 8 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 20cerror: 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 31