|
|
1.1 ! root 1: # ! 2: # Copyright (c) 1979 Regents of the University of California ! 3: # ! 4: # char sccsid[] = "@(#)17ind.s 4.1 10/10/80"; ! 5: # ! 6: # INDS ! 7: # ! 8: _IND1: ! 9: incl r10 ! 10: cvtbw *(sp)+,-(sp) ! 11: jmp (r8) ! 12: _IND14: ! 13: incl r10 ! 14: cvtbl *(sp)+,-(sp) ! 15: jmp (r8) ! 16: _IND2: ! 17: incl r10 ! 18: movw *(sp)+,-(sp) ! 19: jmp (r8) ! 20: _IND24: ! 21: incl r10 ! 22: cvtwl *(sp)+,-(sp) ! 23: jmp (r8) ! 24: _IND4: ! 25: incl r10 ! 26: pushl *(sp)+ ! 27: jmp (r8) ! 28: _IND8: ! 29: incl r10 ! 30: movq *(sp)+,-(sp) ! 31: jmp (r8) ! 32: _IND: ! 33: movl (sp)+,r1 ! 34: cvtbl (r10)+,r0 ! 35: jneq l1701 ! 36: movzwl (r10)+,r0 ! 37: l1701: ! 38: movl r0,r2 #r2 has length of stack space ! 39: blbc r2,l1702 #adjust r2 to word boundry ! 40: incl r2 ! 41: l1702: ! 42: subl2 r2,sp #allocate stack space ! 43: movc5 r0,(r1),$0,r2,(sp) #move string to stack ! 44: jmp (r8)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.