|
|
1.1 ! root 1: # ! 2: # Copyright (c) 1979 Regents of the University of California ! 3: # ! 4: # char sccsid[] = "@(#)20con.s 4.1 10/10/80"; ! 5: # ! 6: # CONOPS ! 7: # ! 8: _CON1: ! 9: cvtbw (r10)+,-(sp) ! 10: jmp (r8) ! 11: _CON14: ! 12: cvtbl (r10)+,-(sp) ! 13: jmp (r8) ! 14: _CON2: ! 15: incl r10 ! 16: movw (r10)+,-(sp) ! 17: jmp (r8) ! 18: _CON24: ! 19: incl r10 ! 20: cvtwl (r10)+,-(sp) ! 21: jmp (r8) ! 22: _CON4: ! 23: incl r10 ! 24: pushl (r10)+ ! 25: jmp (r8) ! 26: _CON8: ! 27: incl r10 ! 28: movd (r10)+,-(sp) ! 29: jmp (r8) ! 30: _CON: ! 31: cvtbl (r10)+,r0 ! 32: bneq l2001 ! 33: movzwl (r10)+,r0 #r0 has length to be moved ! 34: l2001: ! 35: movl r10,r1 #r1 has addr of data to be moved ! 36: movl r0,r2 #r2 has length of stack space ! 37: blbc r2,l2002 ! 38: incl r2 ! 39: l2002: ! 40: subl2 r2,sp #allocate stack space ! 41: addl2 r2,r10 #advance over data ! 42: movc5 r0,(r1),$0,r2,(sp) #move string to stack ! 43: jmp (r8) ! 44: _LVCON: ! 45: cvtbl (r10)+,r0 #r0 has literal string length ! 46: bneq l2003 ! 47: movzwl (r10)+,r0 ! 48: l2003: ! 49: pushl r10 #address of literal ! 50: addl2 r0,r10 #jump over literal ! 51: jmp (r8)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.