|
|
1.1 ! root 1: # ! 2: # Copyright (c) 1979 Regents of the University of California ! 3: # ! 4: # char sccsid[] = "@(#)18rv.s 4.1 10/10/80"; ! 5: # ! 6: # LVALUES and RVALUES ! 7: # ! 8: _LV: ! 9: cvtbl (r10)+,r0 ! 10: cvtwl (r10)+,r1 ! 11: addl3 _display(r0),r1,-(sp) ! 12: jmp (r8) ! 13: _LLV: ! 14: cvtbl (r10)+,r0 ! 15: addl3 _display(r0),(r10)+,-(sp) ! 16: jmp (r8) ! 17: _RV1: ! 18: cvtbl (r10)+,r0 ! 19: cvtwl (r10)+,r1 ! 20: addl2 _display(r0),r1 ! 21: cvtbw (r1),-(sp) ! 22: jmp (r8) ! 23: _LRV1: ! 24: cvtbl (r10)+,r0 ! 25: addl3 _display(r0),(r10)+,r1 ! 26: cvtbw (r1),-(sp) ! 27: jmp (r8) ! 28: _RV14: ! 29: cvtbl (r10)+,r0 ! 30: cvtwl (r10)+,r1 ! 31: addl2 _display(r0),r1 ! 32: cvtbl (r1),-(sp) ! 33: jmp (r8) ! 34: _LRV14: ! 35: cvtbl (r10)+,r0 ! 36: addl3 _display(r0),(r10)+,r1 ! 37: cvtbl (r1),-(sp) ! 38: jmp (r8) ! 39: _RV2: ! 40: cvtbl (r10)+,r0 ! 41: cvtwl (r10)+,r1 ! 42: addl2 _display(r0),r1 ! 43: movw (r1),-(sp) ! 44: jmp (r8) ! 45: _LRV2: ! 46: cvtbl (r10)+,r0 ! 47: addl3 _display(r0),(r10)+,r1 ! 48: movw (r1),-(sp) ! 49: jmp (r8) ! 50: _RV24: ! 51: cvtbl (r10)+,r0 ! 52: cvtwl (r10)+,r1 ! 53: addl2 _display(r0),r1 ! 54: cvtwl (r1),-(sp) ! 55: jmp (r8) ! 56: _LRV24: ! 57: cvtbl (r10)+,r0 ! 58: addl3 _display(r0),(r10)+,r1 ! 59: cvtwl (r1),-(sp) ! 60: jmp (r8) ! 61: _RV4: ! 62: cvtbl (r10)+,r0 ! 63: cvtwl (r10)+,r1 ! 64: addl2 _display(r0),r1 ! 65: pushl (r1) ! 66: jmp (r8) ! 67: _LRV4: ! 68: cvtbl (r10)+,r0 ! 69: addl3 _display(r0),(r10)+,r1 ! 70: pushl (r1) ! 71: jmp (r8) ! 72: _RV8: ! 73: cvtbl (r10)+,r0 ! 74: cvtwl (r10)+,r1 ! 75: addl2 _display(r0),r1 ! 76: movq (r1),-(sp) ! 77: jmp (r8) ! 78: _LRV8: ! 79: cvtbl (r10)+,r0 ! 80: addl3 _display(r0),(r10)+,r1 ! 81: movq (r1),-(sp) ! 82: jmp (r8) ! 83: _RV: ! 84: cvtbl (r10)+,r0 ! 85: cvtwl (r10)+,r1 ! 86: addl2 _display(r0),r1 #r1 points to string o be moved ! 87: movzwl (r10)+,r0 #r0 has length of string to be moved ! 88: movl r0,r2 #r2 has length of stack space ! 89: blbc r2,l1801 #adjust r2 to word boundry ! 90: incl r2 ! 91: l1801: ! 92: subl2 r2,sp #allocate stack space ! 93: movc5 r0,(r1),$0,r2,(sp) #move string to stack ! 94: jmp (r8) ! 95: _LRV: ! 96: cvtbl (r10)+,r0 ! 97: addl3 _display(r0),(r10)+,r1 #r1 points to string to be moved ! 98: movzwl (r10)+,r0 #r0 has length of string to be moved ! 99: movl r0,r2 #r2 has length of stack space ! 100: blbc r2,l1802 #adjust r2 to word boundry ! 101: incl r2 ! 102: l1802: ! 103: subl2 r2,sp #allocate stack space ! 104: movc5 r0,(r1),$0,r2,(sp) #move string to stack ! 105: jmp (r8)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.