![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to wf1.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mc-sun / tst|
Return to wf1.s CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mc-sun / tst |
1.1 ! root 1: .text ! 2: .globl _main ! 3: .align 2 ! 4: _main:link a6,#-36 ! 5: moveml #0x400,a6@(-28) ! 6: clrl a6@(-24) ! 7: clrl _next:l ! 8: jra L3 ! 9: L2: ! 10: lea a6@(-20),a2 ! 11: movl a2,sp@ ! 12: lea a6@(-24),a2 ! 13: movl a2,sp@(4) ! 14: jbsr _lookup:l ! 15: movl d0,a2 ! 16: addql #1,a2@ ! 17: L3: ! 18: lea a6@(-20),a2 ! 19: movl a2,sp@ ! 20: jbsr _getword:l ! 21: tstl d0; jne L2 ! 22: movl a6@(-24),sp@ ! 23: jbsr _tprint:l ! 24: clrl d0 ! 25: L1: ! 26: moveml a6@(-28),#0x400 ! 27: unlk a6 ! 28: rts ! 29: .globl _err ! 30: .align 2 ! 31: _err:link a6,#-8 ! 32: movl #L6,sp@ ! 33: movl a6@(8),sp@(4) ! 34: jbsr _printf:l ! 35: movl #1,sp@ ! 36: jbsr _exit:l ! 37: L5: ! 38: unlk a6 ! 39: rts ! 40: .globl _getword ! 41: .align 2 ! 42: _getword:link a6,#-20 ! 43: moveml #0x2490,a6@(-16) ! 44: L8: ! 45: L9: ! 46: jbsr _getchar:l ! 47: movl d0,d7 ! 48: cmpl #-1,d0; jeq L11 ! 49: movl d7,sp@ ! 50: jbsr _isletter:l ! 51: tstl d0; jeq L8 ! 52: L11: ! 53: movl a6@(8),a5 ! 54: jra L15 ! 55: L12: ! 56: movl a5,a2 ! 57: lea a2@(1),a5 ! 58: movb d7,a2@ ! 59: L13: ! 60: jbsr _getchar:l ! 61: movl d0,d7 ! 62: L15: ! 63: movl d7,sp@ ! 64: jbsr _isletter:l ! 65: movl d0,d7 ! 66: tstl d0; jne L12 ! 67: clrb a5@ ! 68: movl a5,d4 ! 69: cmpl a6@(8),d4; jls L16 ! 70: movl #1,d0 ! 71: jra L7 ! 72: L16: ! 73: clrl d0 ! 74: L7: ! 75: moveml a6@(-16),#0x2490 ! 76: unlk a6 ! 77: rts ! 78: .globl _isletter ! 79: .align 2 ! 80: _isletter:link a6,#-0 ! 81: movl a6@(8),d1 ! 82: cmpl #65,d1; jlt L19 ! 83: cmpl #90,d1; jgt L19 ! 84: addl #32,d1 ! 85: L19: ! 86: cmpl #97,d1; jlt L21 ! 87: cmpl #122,d1; jgt L21 ! 88: movl d1,d0 ! 89: jra L18 ! 90: L21: ! 91: clrl d0 ! 92: L18: ! 93: unlk a6 ! 94: rts ! 95: .globl _lookup ! 96: .align 2 ! 97: _lookup:link a6,#-28 ! 98: moveml #0x2418,a6@(-20) ! 99: movl a6@(12),a5 ! 100: tstl a5@; jeq L24 ! 101: movl a6@(8),sp@ ! 102: movl a5@,a2 ! 103: movl a2@(12),sp@(4) ! 104: jbsr _strcmp:l ! 105: movl d0,a6@(-4) ! 106: tstl a6@(-4); jge L26 ! 107: movl a6@(8),sp@ ! 108: movl a5@,a2 ! 109: lea a2@(4),a2 ! 110: movl a2,sp@(4) ! 111: jbsr _lookup:l ! 112: movl d0,d0 ! 113: jra L23 ! 114: L26: ! 115: tstl a6@(-4); jle L28 ! 116: movl a6@(8),sp@ ! 117: movl a5@,a2 ! 118: lea a2@(8),a2 ! 119: movl a2,sp@(4) ! 120: jbsr _lookup:l ! 121: movl d0,d0 ! 122: jra L23 ! 123: L28: ! 124: movl a5@,d0 ! 125: jra L23 ! 126: L24: ! 127: cmpl #2000,_next:l; jlt L30 ! 128: movl #L32,sp@ ! 129: jbsr _err:l ! 130: L30: ! 131: movl _next:l,d4 ! 132: asll #4,d4 ! 133: clrl @(_words:l,d4:l:1) ! 134: movl _next:l,d4 ! 135: asll #4,d4 ! 136: clrl @(_words+8:l,d4:l:1) ! 137: clrl @(_words+4:l,d4:l:1) ! 138: movl a6@(8),sp@ ! 139: jbsr _strlen:l ! 140: movl d0,d4; addql #1,d4 ! 141: movl d4,sp@ ! 142: jbsr _malloc:l ! 143: movl _next:l,d4 ! 144: asll #4,d4 ! 145: movl d0,@(_words+12:l,d4:l:1) ! 146: movl _next:l,d4 ! 147: asll #4,d4 ! 148: tstl @(_words+12:l,d4:l:1); jne L36 ! 149: movl #L39,sp@ ! 150: jbsr _err:l ! 151: L36: ! 152: movl _next:l,d4 ! 153: asll #4,d4 ! 154: movl @(_words+12:l,d4:l:1),sp@ ! 155: movl a6@(8),sp@(4) ! 156: jbsr _strcpy:l ! 157: movl _next:l,d4 ! 158: movl d4,d3; addql #1,d3 ! 159: movl d3,_next:l ! 160: asll #4,d4 ! 161: lea @(_words:l,d4:l:1),a2 ! 162: movl a2,a5@ ! 163: movl a2,d0 ! 164: L23: ! 165: moveml a6@(-20),#0x2418 ! 166: unlk a6 ! 167: rts ! 168: .globl _tprint ! 169: .align 2 ! 170: _tprint:link a6,#-16 ! 171: moveml #0x2000,a6@(-4) ! 172: movl a6@(8),a5 ! 173: cmpl #0,a5; jeq L42 ! 174: movl a5@(4),sp@ ! 175: jbsr _tprint:l ! 176: movl #L44,sp@ ! 177: movl a5@,sp@(4) ! 178: movl a5@(12),sp@(8) ! 179: jbsr _printf:l ! 180: movl a5@(8),sp@ ! 181: jbsr _tprint:l ! 182: L42: ! 183: L41: ! 184: moveml a6@(-4),#0x2000 ! 185: unlk a6 ! 186: rts ! 187: .globl _strcmp ! 188: .align 2 ! 189: _strcmp:link a6,#-12 ! 190: moveml #0x418,a6@(-12) ! 191: movl a6@(8),a0 ! 192: movl a6@(12),a1 ! 193: jra L47 ! 194: L46: ! 195: movl a0,a2 ! 196: lea a2@(1),a0 ! 197: tstb a2@; jne L49 ! 198: clrl d0 ! 199: jra L45 ! 200: L49: ! 201: addql #1,a1 ! 202: L47: ! 203: movb a0@,d4 ! 204: cmpb a1@,d4; jeq L46 ! 205: tstb a0@; jne L51 ! 206: movl #-1,d0 ! 207: jra L45 ! 208: L51: ! 209: tstb a1@; jne L53 ! 210: movl #1,d0 ! 211: jra L45 ! 212: L53: ! 213: movb a0@,d4 ! 214: extbl d4 ! 215: movb a1@,d3 ! 216: extbl d3 ! 217: movl d4,d0; subl d3,d0 ! 218: L45: ! 219: moveml a6@(-12),#0x418 ! 220: unlk a6 ! 221: rts ! 222: .bss ! 223: .globl _next ! 224: .comm _next,4 ! 225: .globl _words ! 226: .comm _words,32000 ! 227: .text ! 228: .align 2; L44:.ascii "%d\011%s\012\000" ! 229: .align 2; L39:.ascii "out of word storage\000" ! 230: .align 2; L32:.ascii "out of node storage\000" ! 231: .align 2; L6:.ascii "? %s\012\000"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.