|
|
1.1 root 1: .text
2: .globl _main
3: .align 2
4: _main:link a6,#-80
5: moveml #0x24d8,a6@(-72)
6: clrl d6
7: L2:
8: clrl d7
9: L6:
10: movl #1000,d4
11: mulsl d6,d4
12: addl d7,d4
13: movl d6,d3; asll #4,d3
14: lea @(_x:l,d3:l:1),a2
15: movl d4,a2@(0,d7:l:4)
16: L7:
17: addql #1,d7
18: cmpl #4,d7; jlt L6
19: movl d6,d4; asll #4,d4
20: lea @(_x:l,d4:l:1),a2
21: movl a2,@(_y:l,d6:l:4)
22: L3:
23: addql #1,d6
24: cmpl #3,d6; jlt L2
25: jbsr _f:l
26: clrl d6
27: L10:
28: movl d6,d4; asll #4,d4
29: lea a6@(-48,d4:l:1),a2
30: movl a2,a5
31: movl a2,@(_y:l,d6:l:4)
32: clrl d7
33: L14:
34: movl d6,d4; asll #4,d4
35: lea @(_x:l,d4:l:1),a2
36: movl a2@(0,d7:l:4),a5@(0,d7:l:4)
37: L15:
38: addql #1,d7
39: cmpl #4,d7; jlt L14
40: L11:
41: addql #1,d6
42: cmpl #3,d6; jlt L10
43: lea a6@(-48),a2
44: movl a2,sp@
45: movl #_y,sp@(4)
46: jbsr _g:l
47: clrl d0
48: L1:
49: moveml a6@(-72),#0x24d8
50: unlk a6
51: rts
52: .globl _f
53: .align 2
54: _f:link a6,#-24
55: moveml #0x4d0,a6@(-16)
56: clrl d6
57: L19:
58: clrl d7
59: L23:
60: movl #L27,sp@
61: movl d6,d4; asll #4,d4
62: lea @(_x:l,d4:l:1),a2
63: movl a2@(0,d7:l:4),sp@(4)
64: jbsr _printf:l
65: L24:
66: addql #1,d7
67: cmpl #4,d7; jlt L23
68: L20:
69: addql #1,d6
70: cmpl #3,d6; jlt L19
71: movl #L28,sp@
72: jbsr _printf:l
73: clrl d6
74: L29:
75: clrl d7
76: L33:
77: movl #L27,sp@
78: movl @(_y:l,d6:l:4),a2
79: movl a2@(0,d7:l:4),sp@(4)
80: jbsr _printf:l
81: L34:
82: addql #1,d7
83: cmpl #4,d7; jlt L33
84: L30:
85: addql #1,d6
86: cmpl #3,d6; jlt L29
87: movl #L28,sp@
88: jbsr _printf:l
89: L18:
90: moveml a6@(-16),#0x4d0
91: unlk a6
92: rts
93: .globl _g
94: .align 2
95: _g:link a6,#-32
96: moveml #0x34d0,a6@(-24)
97: movl a6@(8),a5
98: movl a6@(12),a4
99: clrl d6
100: L38:
101: clrl d7
102: L42:
103: movl #L27,sp@
104: movl d6,d4; asll #4,d4
105: movl d4,a2; addl a5,a2
106: movl a2@(0,d7:l:4),sp@(4)
107: jbsr _printf:l
108: L43:
109: addql #1,d7
110: cmpl #4,d7; jlt L42
111: L39:
112: addql #1,d6
113: cmpl #3,d6; jlt L38
114: movl #L28,sp@
115: jbsr _printf:l
116: clrl d6
117: L46:
118: clrl d7
119: L50:
120: movl #L27,sp@
121: movl a4@(0,d6:l:4),a2
122: movl a2@(0,d7:l:4),sp@(4)
123: jbsr _printf:l
124: L51:
125: addql #1,d7
126: cmpl #4,d7; jlt L50
127: L47:
128: addql #1,d6
129: cmpl #3,d6; jlt L46
130: movl #L28,sp@
131: jbsr _printf:l
132: L37:
133: moveml a6@(-24),#0x34d0
134: unlk a6
135: rts
136: .bss
137: .globl _y
138: .comm _y,12
139: .globl _x
140: .comm _x,48
141: .text
142: .align 2; L28:.byte 10,0
143: .align 2; L27:.ascii " %d\000"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.