![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to 00case.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 3BSD / cmd / px|
Return to 00case.s CVS log | Up to [CSRG BSD Unix] / 3BSD / cmd / px |
1.1 root 1: # 00case.s
2: #
3: # Berkeley Pascal Assembler Kernel
4: #
5: .globl _interpret #normal interpreter entry point
6: #
7: # register definitions
8: #
9: # registers R0 - R6 are for scratch use
10: #
11: .set lino, r11
12: .set lc, r10
13: .set dp, r9
14: .set loop, r8
15: .set buf, r7
16: #
17: # Global constants
18: #
19: .set R2,0x004 #register fields in call mask
20: .set R3,0x008
21: .set R4,0x010
22: .set R5,0x020
23: .set R6,0x040
24: .set R7,0x080
25: .set R8,0x100
26: .set R9,0x200
27: .set R10,0x400
28: .set R11,0x800
29: .set SIGINT,2 #interrupt signal
30: .set SIGFPE,8 #arithmetic exception signal
31: .set SIGSEGV,11 #segmentation violation
32: .set MASK,6 #offset of save mask in call stack
33: .set FP,12 #offset of "fp" in call stack
34: .set PC,16 #offset of "pc" in call stack
35: .set REGS,20 #beginning of saved registers in call stack
36: .set O_DATE,0346 #DATE opcode number
37: .set O_TIME,0347 #TIME opcode number
38: .set tempsize,-256 #maximum required temporary stack space
39: .set HZ,60 #interrupt frequency
40: #
41: # program variables
42: #
43: .globl _display #runtime display
44: .globl _addrsze #size of addresses
45: .globl _file #current file name
46: .globl _bufopt #standard output buffering option
47: .globl _fchain #head of active file chain
48: .globl _llimit #max number of output lines
49: .globl _stcnt #number of stmts executed
50: .globl _stlim #max number of stmts to exec
51: .globl _nodump #1 => no postmortum dump
52: .globl _perrno #interpreter error number
53: .globl _profcnts #PX profile execution counts
54: .globl _pxpbuf #ptr to pxp buffer
55: .globl _pxpsize #size of pxp buffer
56: .globl _argc #number of passed args
57: .globl _argv #values of passed args
58: .globl __iob #base of I/O buffer block
59: #
60: # system subroutines
61: #
62: .globl _signal
63: .globl _time
64: .globl _times
65: #
66: # system math routines
67: #
68: .globl _atan
69: .globl _cos
70: .globl _exp
71: .globl _log
72: .globl _sin
73: .globl _sqrt
74: .globl _srand
75: .globl _rand
76: #
77: # pascal specific subroutines
78: #
79: .globl _error #error message routine
80: .globl _palloc #heap allocator
81: .globl _pfree
82: .globl _pcttot #set constructor
83: .globl _pdattim #getting date, time info
84: .globl _perror #process pxp errors
85: #
86: # initializing the interpreter
87: #
88: _interpret:
89: .word 0xffc #register save mask
90: moval iloop,r8
91: tstl 8(ap) #check for profiling
92: beql l0050
93: moval ploop,r8 #set profiling request
94: l0050:
95: callg *4(ap),l0051 #set ap to base of program
96: ret
97: l0051:
98: .word 0
99: bispsw $0xe0 #enable overflow traps
100: movl ap,r10 #program start address
101: moval _display,r9
102: moval -4(sp),(r9)
103: pushal stderr #set up global file variables
104: movl sp,stderr+FLEV
105: movl _llimit,stderr+LLIMIT
106: pushal stdout
107: movl sp,stdout+FLEV
108: movl _llimit,stdout+LLIMIT
109: pushal stdin
110: movl sp,stdin+FLEV
111: moval stdin,_fchain
112: jmp (r8) #begin interpreter
113: #
114: # main interpreter loop
115: # the instruction 'jmp (loop)'
116: # transfers here
117: #
118: ploop:
119: movzbl (r10),r0
120: incl _profcnts[r0]
121: iloop:
122: caseb (r10)+,$0,$255
123: optab:
124: .word _ABORT-optab
125: .word _HALT-optab
126: .word _TRA4-optab
127: .word _NODUMP-optab
128: .word _BEG-optab
129: .word _END-optab
130: .word _CALL-optab
131: .word _TRACNT-optab
132: .word _PUSH-optab
133: .word _POP-optab
134: .word _INX4-optab
135: .word _SDUP-optab
136: .word _IF-optab
137: .word _TRA-optab
138: .word _LINO-optab
139: .word _GOTO-optab
140: .word _REL2-optab
141: .word _REL4-optab
142: .word _REL24-optab
143: .word _REL42-optab
144: .word _REL8-optab
145: .word _RELG-optab
146: .word _RELT-optab
147: .word badop-optab
148: .word _REL28-optab
149: .word _REL48-optab
150: .word _REL82-optab
151: .word _REL84-optab
152: .word _AND-optab
153: .word _OR-optab
154: .word _NOT-optab
155: .word badop-optab
156: .word _AS2-optab
157: .word _AS4-optab
158: .word _AS24-optab
159: .word _AS42-optab
160: .word _AS8-optab
161: .word _INX2P2-optab
162: .word _INX4P2-optab
163: .word _AS-optab
164: .word _AS21-optab
165: .word _AS41-optab
166: .word _AS28-optab
167: .word _AS48-optab
168: .word _OFF-optab
169: .word _INX2-optab
170: .word _NIL-optab
171: .word _LV-optab
172: .word _ADD2-optab
173: .word _ADD4-optab
174: .word _ADD24-optab
175: .word _ADD42-optab
176: .word _ADD28-optab
177: .word _ADD48-optab
178: .word _ADD82-optab
179: .word _ADD84-optab
180: .word _SUB2-optab
181: .word _SUB4-optab
182: .word _SUB24-optab
183: .word _SUB42-optab
184: .word _SUB28-optab
185: .word _SUB48-optab
186: .word _SUB82-optab
187: .word _SUB84-optab
188: .word _MUL2-optab
189: .word _MUL4-optab
190: .word _MUL24-optab
191: .word _MUL42-optab
192: .word _MUL28-optab
193: .word _MUL48-optab
194: .word _MUL82-optab
195: .word _MUL84-optab
196: .word _ABS2-optab
197: .word _ABS4-optab
198: .word _ABS8-optab
199: .word badop-optab
200: .word _ADD8-optab
201: .word _SUB8-optab
202: .word _MUL8-optab
203: .word _DVD8-optab
204: .word _DIV2-optab
205: .word _DIV4-optab
206: .word _DIV24-optab
207: .word _DIV42-optab
208: .word badop-optab
209: .word badop-optab
210: .word badop-optab
211: .word badop-optab
212: .word _MOD2-optab
213: .word _MOD4-optab
214: .word _MOD24-optab
215: .word _MOD42-optab
216: .word badop-optab
217: .word badop-optab
218: .word badop-optab
219: .word badop-optab
220: .word _NEG2-optab
221: .word _NEG4-optab
222: .word _NEG8-optab
223: .word badop-optab
224: .word badop-optab
225: .word badop-optab
226: .word badop-optab
227: .word badop-optab
228: .word badop-optab
229: .word badop-optab
230: .word badop-optab
231: .word badop-optab
232: .word badop-optab
233: .word badop-optab
234: .word badop-optab
235: .word badop-optab
236: .word _DVD2-optab
237: .word _DVD4-optab
238: .word _DVD24-optab
239: .word _DVD42-optab
240: .word _DVD28-optab
241: .word _DVD48-optab
242: .word _DVD82-optab
243: .word _DVD84-optab
244: .word _RV1-optab
245: .word _RV2-optab
246: .word _RV4-optab
247: .word _RV8-optab
248: .word _IND1-optab
249: .word _IND2-optab
250: .word _IND4-optab
251: .word _IND8-optab
252: .word _CON1-optab
253: .word _CON2-optab
254: .word _CON4-optab
255: .word _CON8-optab
256: .word _RV-optab
257: .word _IND-optab
258: .word _CON-optab
259: .word badop-optab
260: .word _RANG2-optab
261: .word _RANG42-optab
262: .word _RSNG2-optab
263: .word _RSNG42-optab
264: .word _RANG4-optab
265: .word _RANG24-optab
266: .word _RSNG4-optab
267: .word _RSNG24-optab
268: .word _WRITEF-optab
269: .word _WRITEC-optab
270: .word _WRITES-optab
271: .word _WRITEB-optab
272: .word badop-optab
273: .word badop-optab
274: .word badop-optab
275: .word badop-optab
276: .word _BLKBEG-optab
277: .word _PUSH4-optab
278: .word _POP4-optab
279: .word badop-optab
280: .word badop-optab
281: .word badop-optab
282: .word badop-optab
283: .word badop-optab
284: .word _CASE1OP-optab
285: .word _CASE2OP-optab
286: .word _CASE4OP-optab
287: .word _PXPBUF-optab
288: .word _COUNT-optab
289: .word badop-optab
290: .word badop-optab
291: .word badop-optab
292: .word _ADDT-optab
293: .word _SUBT-optab
294: .word _MULT-optab
295: .word _INCT-optab
296: .word _CTTOT-optab
297: .word _CARD-optab
298: .word _IN-optab
299: .word _ASRT-optab
300: .word _FOR1U-optab
301: .word _FOR2U-optab
302: .word _FOR4U-optab
303: .word _FOR1D-optab
304: .word _FOR2D-optab
305: .word _FOR4D-optab
306: .word _STLIM-optab
307: .word _SCLCK-optab
308: .word _STOI-optab
309: .word _STOD-optab
310: .word _ITOD-optab
311: .word _ITOS-optab
312: .word _BUFF-optab
313: .word _WCLCK-optab
314: .word _WRHEX2-optab
315: .word _WRHEX4-optab
316: .word _GET-optab
317: .word _PUT-optab
318: .word _MESSAGE-optab
319: .word _FNIL-optab
320: .word _EOF-optab
321: .word _EOLN-optab
322: .word _RESET-optab
323: .word _REWRITE-optab
324: .word _REMOVE-optab
325: .word _READ4-optab
326: .word _UNIT-optab
327: .word _READC-optab
328: .word _READ8-optab
329: .word _UNITINP-optab
330: .word _UNITOUT-optab
331: .word _READLN-optab
332: .word _WRIT2-optab
333: .word _WRIT4-optab
334: .word _WRITB-optab
335: .word _WRITC-optab
336: .word _WRIT8-optab
337: .word _WRITG-optab
338: .word _WRIT82-optab
339: .word _WRITLN-optab
340: .word _WROCT2-optab
341: .word _WROCT4-optab
342: .word _FLUSH-optab
343: .word _PACK-optab
344: .word _UNPACK-optab
345: .word _LLIMIT-optab
346: .word _ARGC-optab
347: .word _ARGV-optab
348: .word _CLCK-optab
349: .word _SEED-optab
350: .word _RANDOM-optab
351: .word _DISPOSE-optab
352: .word _NEW-optab
353: .word _EXPO-optab
354: .word _DATE-optab
355: .word _TIME-optab
356: .word _ATAN-optab
357: .word _COS-optab
358: .word _EXP-optab
359: .word _LN-optab
360: .word _SIN-optab
361: .word _SQRT-optab
362: .word _CHR2-optab
363: .word _CHR4-optab
364: .word _ODD2-optab
365: .word _ODD4-optab
366: .word _PRED2-optab
367: .word _PRED4-optab
368: .word _PRED24-optab
369: .word _SUCC2-optab
370: .word _SUCC4-optab
371: .word _SUCC24-optab
372: .word _DEFNAME-optab
373: .word _PAGE-optab
374: .word _UNDEF-optab
375: .word _SQR2-optab
376: .word _SQR4-optab
377: .word _SQR8-optab
378: .word _ROUND-optab
379: .word _TRUNC-optab
380: badop:
381: incl r10
382: movw $EBADOP,_perrno
383: jbr error
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.