![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to init.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 init.s CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mc-sun / tst |
1.1 root 1: .data
2: .globl _words
3: .align 2; _words:.long 1
4: .long 2
5: .long 3
6: .ascii "if\000"
7: .skip 3
8: .long 4
9: .long 5
10: .skip 4
11: .ascii "for"
12: .skip 3
13: .long 6
14: .long 7
15: .long 8
16: .ascii "else\000"
17: .skip 1
18: .long 9
19: .long 10
20: .long 11
21: .ascii "whil"
22: .byte 101
23: .skip 1
24: .long 0
25: .skip 8
26: .skip 6
27: .globl _wordlist
28: .align 2; _wordlist:.long _words
29: .globl _x
30: .align 2; _x:.long 1
31: .long 2
32: .long 3
33: .long 4
34: .long 0
35: .long 5
36: .long 6
37: .skip 12
38: .long 7
39: .skip 16
40: .globl _y
41: .align 2; _y:.long _x
42: .long _x+20
43: .long _x+40
44: .long 0x0
45: .text
46: .globl _main
47: .align 2
48: _main:link a6,#-20
49: moveml #0x4c0,a6@(-12)
50: clrl d6
51: jra L8
52: L5:
53: clrl d7
54: jra L12
55: L9:
56: movl #L13,sp@
57: movl @(_y:l,d6:l:4),a2
58: movl a2@(0,d7:l:4),sp@(4)
59: jbsr _printf:l
60: L10:
61: addql #1,d7
62: L12:
63: movl @(_y:l,d6:l:4),a2
64: tstl a2@(0,d7:l:4); jne L9
65: movl #L14,sp@
66: jbsr _printf:l
67: L6:
68: addql #1,d6
69: L8:
70: tstl @(_y:l,d6:l:4); jne L5
71: jbsr _f:l
72: movl _wordlist:l,sp@
73: jbsr _g:l
74: clrl d0
75: L4:
76: moveml a6@(-12),#0x4c0
77: unlk a6
78: rts
79: .data
80: .align 2; L16:.long L17
81: .long L18
82: .long L19
83: .long L20
84: .long 0x0
85: .text
86: .globl _f
87: .align 2
88: _f:link a6,#-12
89: moveml #0x2000,a6@(-4)
90: lea L16:l,a5
91: jra L24
92: L21:
93: movl #L25,sp@
94: movl a5@,sp@(4)
95: jbsr _printf:l
96: L22:
97: addql #4,a5
98: L24:
99: tstl a5@; jne L21
100: L15:
101: moveml a6@(-4),#0x2000
102: unlk a6
103: rts
104: .globl _g
105: .align 2
106: _g:link a6,#-20
107: moveml #0x2480,a6@(-12)
108: movl a6@(8),a5
109: jra L30
110: L27:
111: clrl d7
112: jra L34
113: L31:
114: movl #L35,sp@
115: movl a5@(0,d7:l:4),sp@(4)
116: jbsr _printf:l
117: L32:
118: addql #1,d7
119: L34:
120: cmpl #3,d7; jcs L31
121: movl #L25,sp@
122: lea a5@(12),a2
123: movl a2,sp@(4)
124: jbsr _printf:l
125: L28:
126: addl #18,a5
127: L30:
128: tstl a5@; jne L27
129: jbsr _h:l
130: L26:
131: moveml a6@(-12),#0x2480
132: unlk a6
133: rts
134: .globl _h
135: .align 2
136: _h:link a6,#-32
137: moveml #0x490,a6@(-12)
138: clrl d7
139: jra L40
140: L37:
141: movl #L41,sp@
142: movl #18,d4
143: mulsl d7,d4
144: movl @(_words:l,d4:l:1),sp@(4)
145: movl @(_words+4:l,d4:l:1),sp@(8)
146: movl @(_words+8:l,d4:l:1),sp@(12)
147: lea @(_words+12:l,d4:l:1),a2
148: movl a2,sp@(16)
149: jbsr _printf:l
150: L38:
151: addql #1,d7
152: L40:
153: cmpl #5,d7; jcs L37
154: L36:
155: moveml a6@(-12),#0x490
156: unlk a6
157: rts
158: .text
159: .align 2; L41:.ascii "%d %d %d %s\012\000"
160: .align 2; L35:.ascii "%d \000"
161: .align 2; L25:.byte 37,115,10,0
162: .align 2; L20:.ascii "while\000"
163: .align 2; L19:.ascii "else\000"
164: .align 2; L18:.ascii "for\000"
165: .align 2; L17:.ascii "if\000"
166: .align 2; L14:.byte 10,0
167: .align 2; L13:.ascii " %d\000"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.