![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to struct.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 struct.s CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mc-sun / tst |
1.1 ! root 1: .text ! 2: .globl _addpoint ! 3: .align 2 ! 4: _addpoint:link a6,#-8 ! 5: moveml #0x10,a6@(-8) ! 6: movl a1,a6@(-4) ! 7: movl a6@(8),d4 ! 8: addl a6@(16),d4 ! 9: movl d4,a6@(8) ! 10: movl a6@(12),d4 ! 11: addl a6@(20),d4 ! 12: movl d4,a6@(12) ! 13: lea a6@(8),a0 ! 14: movl a6@(-4),a1 ! 15: movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 16: L1: ! 17: moveml a6@(-8),#0x10 ! 18: unlk a6 ! 19: rts ! 20: .globl _canonrect ! 21: .align 2 ! 22: _canonrect:link a6,#-32 ! 23: moveml #0xd0,a6@(-32) ! 24: movl a1,a6@(-4) ! 25: movl a6@(8),d4 ! 26: cmpl a6@(16),d4; jge L10 ! 27: movl a6@(8),d7 ! 28: jra L11 ! 29: L10: ! 30: movl a6@(16),d7 ! 31: L11: ! 32: movl d7,a6@(-20) ! 33: movl a6@(12),d4 ! 34: cmpl a6@(20),d4; jge L20 ! 35: movl a6@(12),d6 ! 36: jra L21 ! 37: L20: ! 38: movl a6@(20),d6 ! 39: L21: ! 40: movl d6,a6@(-16) ! 41: movl a6@(8),d4 ! 42: cmpl a6@(16),d4; jle L26 ! 43: movl a6@(8),d7 ! 44: jra L27 ! 45: L26: ! 46: movl a6@(16),d7 ! 47: L27: ! 48: movl d7,a6@(-12) ! 49: movl a6@(12),d4 ! 50: cmpl a6@(20),d4; jle L37 ! 51: movl a6@(12),d1 ! 52: jra L38 ! 53: L37: ! 54: movl a6@(20),d1 ! 55: L38: ! 56: movl d1,a6@(-8) ! 57: lea a6@(-20),a0 ! 58: movl a6@(-4),a1 ! 59: movl #16/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 60: L5: ! 61: moveml a6@(-32),#0xd0 ! 62: unlk a6 ! 63: rts ! 64: .globl _makepoint ! 65: .align 2 ! 66: _makepoint:link a6,#-12 ! 67: movl a1,a6@(-4) ! 68: movl a6@(8),a6@(-12) ! 69: movl a6@(12),a6@(-8) ! 70: lea a6@(-12),a0 ! 71: movl a6@(-4),a1 ! 72: movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 73: L39: ! 74: unlk a6 ! 75: rts ! 76: .globl _makerect ! 77: .align 2 ! 78: _makerect:link a6,#-36 ! 79: movl a1,a6@(-4) ! 80: lea a6@(8),a0 ! 81: lea a6@(-20),a1 ! 82: movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 83: lea a6@(16),a0 ! 84: lea a6@(-12),a1 ! 85: movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 86: lea a6@(-20),a0 ! 87: lea sp@(0),a1; movl #16/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 88: movl a6@(-4),a1 ! 89: jbsr _canonrect:l ! 90: L42: ! 91: unlk a6 ! 92: rts ! 93: .globl _ptinrect ! 94: .align 2 ! 95: _ptinrect:link a6,#-4 ! 96: moveml #0x10,a6@(-4) ! 97: movl a6@(8),d4 ! 98: cmpl a6@(16),d4; jlt L54 ! 99: cmpl a6@(24),d4; jge L54 ! 100: movl a6@(12),d4 ! 101: cmpl a6@(20),d4; jlt L54 ! 102: movl a6@(12),d4 ! 103: cmpl a6@(28),d4; jge L54 ! 104: movl #1,d1 ! 105: jra L55 ! 106: L54: ! 107: clrl d1 ! 108: L55: ! 109: movl d1,d0 ! 110: L46: ! 111: moveml a6@(-4),#0x10 ! 112: unlk a6 ! 113: rts ! 114: .text ! 115: .align 2; L57:.long 0 ! 116: .long 0 ! 117: .align 2; L58:.long 320 ! 118: .long 320 ! 119: .align 2; L59:.long -1 ! 120: .long -1 ! 121: .long 1 ! 122: .long 1 ! 123: .long 20 ! 124: .long 300 ! 125: .long 500 ! 126: .long 400 ! 127: .text ! 128: .globl _main ! 129: .align 2 ! 130: _main:link a6,#-136 ! 131: moveml #0x90,a6@(-112) ! 132: lea L57:l,a0 ! 133: lea a6@(-64),a1 ! 134: movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 135: lea L58:l,a0 ! 136: lea a6@(-72),a1 ! 137: movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 138: lea L59:l,a0 ! 139: lea a6@(-32),a1 ! 140: movl #32/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 141: movl #-10,sp@ ! 142: movl #-10,sp@(4) ! 143: lea a6@(-80),a1 ! 144: jbsr _makepoint:l ! 145: lea a6@(-72),a0 ! 146: lea sp@(0),a1; movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 147: lea a6@(-80),a0 ! 148: lea sp@(8),a1; movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 149: lea a6@(-88),a1 ! 150: jbsr _addpoint:l ! 151: movl #10,sp@ ! 152: movl #10,sp@(4) ! 153: lea a6@(-96),a1 ! 154: jbsr _makepoint:l ! 155: lea a6@(-64),a0 ! 156: lea sp@(0),a1; movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 157: lea a6@(-96),a0 ! 158: lea sp@(8),a1; movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 159: lea a6@(-104),a1 ! 160: jbsr _addpoint:l ! 161: lea a6@(-88),a0 ! 162: lea sp@(0),a1; movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 163: lea a6@(-104),a0 ! 164: lea sp@(8),a1; movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 165: lea a6@(-48),a1 ! 166: jbsr _makerect:l ! 167: clrl d7 ! 168: jra L68 ! 169: L65: ! 170: movl d7,d4; asll #3,d4 ! 171: movl a6@(-32,d4:l:1),sp@ ! 172: movl a6@(-28,d4:l:1),sp@(4) ! 173: lea a6@(-56),a1 ! 174: jbsr _makepoint:l ! 175: movl #L69,sp@ ! 176: movl d7,d4; asll #3,d4 ! 177: movl a6@(-32,d4:l:1),sp@(4) ! 178: movl a6@(-52),sp@(8) ! 179: jbsr _printf:l ! 180: lea a6@(-56),a0 ! 181: lea sp@(0),a1; movl #8/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 182: lea a6@(-48),a0 ! 183: lea sp@(8),a1; movl #16/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b ! 184: jbsr _ptinrect:l ! 185: tstl d0; jne L73 ! 186: movl #L75,sp@ ! 187: jbsr _printf:l ! 188: L73: ! 189: movl #L76,sp@ ! 190: movl a6@(-48),sp@(4) ! 191: movl a6@(-44),sp@(8) ! 192: movl a6@(-40),sp@(12) ! 193: movl a6@(-36),sp@(16) ! 194: jbsr _printf:l ! 195: L66: ! 196: addql #1,d7 ! 197: L68: ! 198: cmpl #4,d7; jcs L65 ! 199: movl #0,sp@ ! 200: jbsr _exit:l ! 201: L56: ! 202: moveml a6@(-112),#0x90 ! 203: unlk a6 ! 204: rts ! 205: .text ! 206: .align 2; L76:.ascii "within [%d,%d; %d,%d]\012\000" ! 207: .align 2; L75:.ascii "not \000" ! 208: .align 2; L69:.ascii "(%d,%d) is \000"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.