![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to 34err.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 40BSD / cmd / px|
Return to 34err.s CVS log | Up to [CSRG BSD Unix] / 40BSD / cmd / px |
1.1 root 1: #
2: # Copyright (c) 1979 Regents of the University of California
3: #
4: # char sccsid[] = "@(#)34err.s 4.1 10/10/80";
5: #
6: .set EARGV ,1
7: .set EASRT ,2
8: .set EASSIGN ,3
9: .set EBADFNUM ,4
10: .set EBADINUM ,5
11: .set EBADOP ,6
12: .set EBUILTIN ,7
13: .set ECASE ,8
14: .set ECHR ,9
15: .set ECLOSE,10
16: .set ECREATE,11
17: .set EFIXADD,13
18: .set EFIXDIV,14
19: .set EFIXMUL,15
20: .set EFIXNEG,16
21: .set EFIXSUB,17
22: .set EFLTADD,18
23: .set EFLTDIV,19
24: .set EFLTMUL,20
25: .set EFLTSUB,21
26: .set EFMTSIZE,22
27: .set EGOTO,23
28: .set EHALT,24
29: .set EINTR,25
30: .set ELLIMIT,26
31: .set ELN,27
32: .set EMODDIV,28
33: .set ENAMESIZE,29
34: .set ENAMRNG,30
35: .set ENILPTR,31
36: .set ENUMNTFD,32
37: .set EOPEN,33
38: .set EOUTOFMEM,34
39: .set EPACK,35
40: .set EPASTEOF,36
41: .set ERANGE,37
42: .set EREADIT,38
43: .set EREFINAF,39
44: .set EREMOVE,40
45: .set ESEEK,41
46: .set ESQRT,42
47: .set ESTKNEMP,43
48: .set ESTKOVFLO,44
49: .set ESTLIM,45
50: .set ESUBSCR,46
51: .set ESYSTEM,47
52: .set ETRASHHEAP,48
53: .set EUNPACK,49
54: .set EWRITE,50
55: .set EWRITEIT,51
56: .set ECTLWR,12
57: .set ECTUPR,52
58: .set ECTSNG,53
59: .set ENARGS,54
60: #
61: # Fielding interrupts and processing errors
62: #
63: # Process interpreter detected errors
64: #
65: error:
66: movzwl _perrno,-(sp)
67: calls $1,_error
68: jmp (r8)
69:
70: _endinterpret:
71: .byte 'e,'n,'d, 0
72:
73: #
74: # Keyboard interrupts
75: #
76: .align 1
77: .globl _intr
78: _intr:
79: .word 0
80: pushal _intr #reset interrupt signal
81: pushl $SIGINT
82: calls $2,_signal
83: pushl $EINTR
84: calls $1,_error
85: ret
86: #
87: # Segmentation Violations => No more memory available for the stack
88: #
89: .align 1
90: .globl _memsize
91: _memsize:
92: .word 0
93: pushl $ESTKOVFLO
94: calls $1,_error
95: ret
96: #
97: # Die gracefully on unexpected signals
98: #
99: .align 1
100: .globl _syserr
101: _syserr:
102: .word 0
103: pushl $ESYSTEM
104: calls $1,_error
105: ret
106: #
107: # Process computational errors
108: #
109: .align 1
110: .globl _except
111: _except:
112: .word 0
113: pushal _except #reset signal
114: pushl $SIGFPE
115: calls $2,_signal
116: movl 16(ap),r0 #r0 has PC at point following error
117: moval errtbl-4,r1 #r1 points to error offset table
118: l3404:
119: addl2 $4,r1 #determine cause of error
120: cmpl r0,(r1)+
121: blssu l3405 #not in table => system error
122: cmpl r0,(r1)+
123: bgtru l3404
124: movzwl (r1),-(sp) #select error message
125: brb l3406
126: l3405:
127: pushl $ESYSTEM
128: l3406:
129: calls $1,_error
130: ret
131: #
132: # Table of offsets and their associated errors
133: #
134: .align 1
135: errtbl:
136: .long _AS2, _OFF, EASSIGN
137: .long _ADD2, _ADD28, EFIXADD
138: .long _ADD28, _SUB2, EFLTADD
139: .long _SUB2, _SUB28, EFIXSUB
140: .long _SUB28, _MUL2, EFLTSUB
141: .long _MUL2, _MUL28, EFIXMUL
142: .long _MUL28, _DIV2, EFLTMUL
143: .long _DIV2, _MOD2, EFIXDIV
144: .long _MOD2, _ABS2, EMODDIV
145: .long _ABS2, _ABS8, EFIXNEG
146: .long _DVD2, _IND1, EFLTDIV
147: .long _STOI, _UNDEF, EBUILTIN
148: .long 0xffffffff
149: #
150: # recover values of dp and lino from the stack
151: #
152: .globl _fetchdp
153:
154: _fetchdp:
155: .word R2|R3|R4|R5|R6|R7|R8|R9|R10|R11
156: pushl fp #sift through the stack to get the
157: movl sp,oldsp # values of dp and lino
158: l3401:
159: bicw3 $0xf000,MASK(fp),mask #register save mask
160: moval REGS(fp),sp #point to saved registers
161: popr mask #pop them
162: cmpl PC(fp),$_interpret #check for interpreter frame
163: blss l3402 #not found
164: cmpl PC(fp),$_endinterpret #check for end of interpreter
165: blss l3403 #found
166: l3402:
167: movl FP(fp),fp #get next frames registers
168: jbr l3401
169: l3403:
170: movl oldsp,sp #restore current frame
171: movl (sp)+,fp
172: movl r9,*4(ap) #return dp
173: movl r11,*8(ap) #return lino
174: ret
175: .data
176: oldsp: .space 4 #old value of sp
177: mask: .space 2 #register pop mask
178: .text
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.