|
|
1.1 ! root 1: .text ! 2: .globl _main ! 3: .align 2 ! 4: _main:link a6,#-0 ! 5: L1: ! 6: unlk a6 ! 7: rts ! 8: .globl _f ! 9: .align 2 ! 10: _f:link a6,#-8 ! 11: moveml #0x90,a6@(-8) ! 12: jbsr _f:l ! 13: movl d0,d7 ! 14: jbsr _f:l ! 15: movl d7,d4; addl d0,d4 ! 16: movl d4,a6@(8) ! 17: L2: ! 18: moveml a6@(-8),#0x90 ! 19: unlk a6 ! 20: rts ! 21: .globl _f2 ! 22: .align 2 ! 23: _f2:link a6,#-12 ! 24: moveml #0xd0,a6@(-12) ! 25: jbsr _f:l ! 26: movl d0,d6 ! 27: tstl a6@(8); jeq L6 ! 28: jbsr _f:l ! 29: movl d0,d7 ! 30: jra L7 ! 31: L6: ! 32: movl #1,d7 ! 33: L7: ! 34: movl d6,d4; addl d7,d4 ! 35: movl d4,a6@(8) ! 36: L4: ! 37: moveml a6@(-12),#0xd0 ! 38: unlk a6 ! 39: rts ! 40: .globl _f3 ! 41: .align 2 ! 42: _f3:link a6,#-48 ! 43: moveml #0x4e0,a6@(-48) ! 44: clrl d7 ! 45: clrl d6 ! 46: clrl d5 ! 47: clrl a6@(-4) ! 48: clrl a6@(-8) ! 49: clrl a6@(-12) ! 50: clrl a6@(-16) ! 51: clrl a6@(-20) ! 52: clrl a6@(-24) ! 53: clrl a6@(-28) ! 54: movl a6@(12),a2 ! 55: lea a2@(4),a1 ! 56: movl a1,a6@(12) ! 57: movl a6@(8),a6@(-32) ! 58: tstl a6@(-32); jeq L11 ! 59: jbsr _f:l ! 60: movl d0,a6@(-32) ! 61: L11: ! 62: movl a6@(-32),a2@ ! 63: L9: ! 64: moveml a6@(-48),#0x4e0 ! 65: unlk a6 ! 66: rts ! 67: .globl _f4 ! 68: .align 2 ! 69: _f4:link a6,#-76 ! 70: fmovemx #0xf0,a6@(-64) ! 71: moveml #0x98,a6@(-76) ! 72: clrl d7 ! 73: clrl d0 ! 74: clrl d1 ! 75: clrl a6@(-4) ! 76: clrl a6@(-8) ! 77: clrl a6@(-12) ! 78: movl _i:l,d4 ! 79: movl d4,d3; asll #3,d3 ! 80: fmoved @(_a:l,d3:l:1),fp3 ! 81: fmoved @(_b:l,d3:l:1),fp2 ! 82: fmovex fp3,fp1; faddx fp2,fp1 ! 83: fmoved L17:l,fp0 ! 84: fcmpx fp0,fp1; fjeq L15 ! 85: tstl d4; jeq L15 ! 86: fsubx fp2,fp3 ! 87: fcmpx fp0,fp3; fjeq L15 ! 88: movl #1,a6@(-16) ! 89: jra L16 ! 90: L15: ! 91: clrl a6@(-16) ! 92: L16: ! 93: movl a6@(-16),_i:l ! 94: L13: ! 95: moveml a6@(-76),#0x98 ! 96: fmovemx a6@(-64),#0xf0 ! 97: unlk a6 ! 98: rts ! 99: .globl _f5 ! 100: .align 2 ! 101: _f5:link a6,#-48 ! 102: fmovemx #0x30,a6@(-24) ! 103: moveml #0x341c,a6@(-48) ! 104: movl _k:l,d4 ! 105: movl _m:l,d3 ! 106: movl d4,d2; mulsl d3,d2 ! 107: asll #3,d2 ! 108: movl _A:l,a2 ! 109: movl d2,a1; addl a2,a1 ! 110: fmoved a1@,fp3 ! 111: movl _j:l,d2 ! 112: movl d2,d1; mulsl d3,d1 ! 113: movl d1,d3; asll #3,d3 ! 114: movl d3,a0; addl a2,a0 ! 115: movl a0,a5 ! 116: fmuld a0@,fp3 ! 117: movl _n:l,d3 ! 118: mulsl d3,d4 ! 119: asll #3,d4 ! 120: movl _B:l,a2 ! 121: movl d4,a0; addl a2,a0 ! 122: movl a0,a4 ! 123: fmoved a0@,fp2 ! 124: movl d2,d4; mulsl d3,d4 ! 125: asll #3,d4 ! 126: movl d4,a0; addl a2,a0 ! 127: fmuld a0@,fp2 ! 128: faddx fp2,fp3 ! 129: fmoved fp3,_x:l ! 130: fmoved a1@,fp3 ! 131: fmuld a0@,fp3 ! 132: fmoved a4@,fp2 ! 133: fmuld a5@,fp2 ! 134: fsubx fp2,fp3 ! 135: fmoved fp3,_x:l ! 136: L18: ! 137: moveml a6@(-48),#0x341c ! 138: fmovemx a6@(-24),#0x30 ! 139: unlk a6 ! 140: rts ! 141: .bss ! 142: .globl _x ! 143: .comm _x,8 ! 144: .globl _B ! 145: .comm _B,4 ! 146: .globl _A ! 147: .comm _A,4 ! 148: .globl _n ! 149: .comm _n,4 ! 150: .globl _m ! 151: .comm _m,4 ! 152: .globl _k ! 153: .comm _k,4 ! 154: .globl _j ! 155: .comm _j,4 ! 156: .globl _i ! 157: .comm _i,4 ! 158: .globl _b ! 159: .comm _b,80 ! 160: .globl _a ! 161: .comm _a,80 ! 162: .text ! 163: .align 2; L17:.long 0x0,0x0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.