![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to 00case.h 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 00case.h 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[] = "@(#)00case.h 4.1 10/10/80"; ! 5: # ! 6: # Berkeley Pascal Assembler Kernel ! 7: # ! 8: .globl _interpret #normal interpreter entry point ! 9: # ! 10: # register definitions ! 11: # ! 12: # registers R0 - R6 are for scratch use ! 13: # ! 14: .set lino, r11 ! 15: .set lc, r10 ! 16: .set dp, r9 ! 17: .set loop, r8 ! 18: .set buf, r7 ! 19: # ! 20: # Global constants ! 21: # ! 22: .set R2,0x004 #register fields in call mask ! 23: .set R3,0x008 ! 24: .set R4,0x010 ! 25: .set R5,0x020 ! 26: .set R6,0x040 ! 27: .set R7,0x080 ! 28: .set R8,0x100 ! 29: .set R9,0x200 ! 30: .set R10,0x400 ! 31: .set R11,0x800 ! 32: .set SIGINT,2 #interrupt signal ! 33: .set SIGFPE,8 #arithmetic exception signal ! 34: .set SIGSEGV,11 #segmentation violation ! 35: .set MASK,6 #offset of save mask in call stack ! 36: .set FP,12 #offset of "fp" in call stack ! 37: .set PC,16 #offset of "pc" in call stack ! 38: .set REGS,20 #beginning of saved registers in call stack ! 39: .set O_DATE,0345 #DATE opcode number ! 40: .set O_TIME,0346 #TIME opcode number ! 41: .set tempsize,-1024 #maximum required temporary stack space ! 42: # ! 43: # program variables ! 44: # ! 45: .globl _display #runtime display ! 46: .globl _file #current file name ! 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: .globl __sobuf #standard output buffer ! 60: # ! 61: # system subroutines ! 62: # ! 63: .globl _signal ! 64: .globl _time ! 65: .globl _times ! 66: # ! 67: # system math routines ! 68: # ! 69: .globl _atan ! 70: .globl _cos ! 71: .globl _exp ! 72: .globl _log ! 73: .globl _sin ! 74: .globl _sqrt ! 75: .globl _srand ! 76: .globl _rand ! 77: # ! 78: # pascal specific subroutines ! 79: # ! 80: .globl _error #error message routine ! 81: .globl _palloc #heap allocator ! 82: .globl _pfree ! 83: .globl _cttot #set constructor ! 84: .globl _inct #set inclusion ! 85: .globl _pdattim #getting date, time info ! 86: .globl _perror #process pxp errors ! 87: # ! 88: # initializing the interpreter ! 89: # ! 90: _interpret: ! 91: .word 0xffc #register save mask ! 92: moval iloop,r8 ! 93: tstl 8(ap) #check for profiling ! 94: beql l0050 ! 95: moval ploop,r8 #set profiling request ! 96: l0050: ! 97: callg *4(ap),l0051 #set ap to base of program ! 98: ret ! 99: l0051: ! 100: .word 0 ! 101: bispsw $0xe0 #enable overflow traps ! 102: movl ap,r10 #program start address ! 103: moval _display,r9 ! 104: moval -4(sp),(r9) ! 105: pushal stderr #set up global file variables ! 106: movl sp,stderr+FLEV ! 107: movl _llimit,stderr+LLIMIT ! 108: calls $0,_unit #init active file ! 109: pushal stdout ! 110: movl sp,stdout+FLEV ! 111: movl _llimit,stdout+LLIMIT ! 112: pushal stdin ! 113: movl sp,stdin+FLEV ! 114: moval stdin,_fchain ! 115: jmp (r8) #begin interpreter ! 116: # ! 117: # main interpreter loop ! 118: # the instruction 'jmp (loop)' ! 119: # transfers here ! 120: # ! 121: ploop: ! 122: movzbl (r10),r0 ! 123: incl _profcnts[r0] ! 124: iloop: ! 125: caseb (r10)+,$0,$255 ! 126: optab:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.