-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathg-dump.s
320 lines (320 loc) · 8.45 KB
/
g-dump.s
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
JOB CARD 1 OF DUMP FROM GERMANY
CTL 6611
* SET WORD MARKS
ORG 1
SW A1,A2
A1 SW A3
A2 SW A4
A3 SW A5,A6
A4 SW A7,A8
A5 SW A9
A6 SW A10,A11
A7 SW BLOOP,A13
A8 SW
A9 SW A14,A15
A10 SW A16,A12
A11 CW A4
A12 SW B1
W
A13 2)
A14 N0
A15 R BSTART
a16 NOP
JOB CARD 2 OF DUMP FROM GERMANY
ORG 1
BDOTS2 DCW @..@
DC @..5..@
BADDR DCW 210
DC @ @
BSTART CS 332 MAKE SURE 330 IS NOT ZERO
N00
NOP
BLOOP LCA BADDR,210
B1 LCA
CW A8
A BREAD+1,BADDR
BCE BDONE,330,0
A BREAD+1,Bloop+6
LCA BDOTS2,332
B BLOOP
BDONE CW B1
W
N0
N0
BREAD R CSTART
DCW #1
JOB CARD 3 OF DUMP FROM GERMANY
ORG 1
CGOTWM MCW CNOP,CDONE
B CCONT
CSTART SW C1
NOP
C1 CS 332
NOP
BW CGOTWM,101
SW 101
CCONT LCA 101,201
BCE CDONE,CCONT+4,3
A CREAD,CCONT+3
A CREAD,CCONT+6
B CCONT
CDONE CW 201
W
2)
N0
CREAD R DSTART
CNOP NOP
JOB CARD 4 OF DUMP FROM GERMANY
ORG 1
DCW @....5..@
DADDR DCW 110
DC #1
DSTART CS 300 MAKE SURE 300 IS NOT ZERO
NOP
SW D1
NOP
DLOOP LCA DADDR,210
D1 LCA
NOP 0
A DREAD+1,DADDR
BCE DDONE,300,0
A DREAD+1,DLOOP+6
NOP 0,0
B DLOOP
DDONE CW D1
W
N0
N0
DREAD R ESTART
NOP
JOB CARD 5 OF DUMP FROM GERMANY
ORG 1
EGOTWM MCW ENOP,EDONE
B ECONT
DCW #4
DCW #1
ESTART CS 300
CS
BW EGOTWM,81
SW 81
ECONT LCA 81,281
BCE EDONE,ECONT+4,3
A EREAD,ECONT+3
A EREAD,ECONT+6
B ECONT
EDONE CW 281
W
2)
N0
EREAD R FSTART
ENOP NOP
JOB CARD 6 OF DUMP FROM GERMANY
ORG 1
FDOTS DCW @......*1*..*2*..*3*.@
DC #9
FSTART SW F1
CW A1,A2
CW BLOOP,C1
F1 CW
LCA FDOTS,300
SW GINDEX-4,GAUS-2
R GSTART
DCW #4
DCW #1
DCW #2
DCW #2
DCW #4
DCW #1
JOB CARD 7 OF DUMP FROM GERMANY
ORG 1
GUMS DCW @UMSCHALTER EIN@
DC #1
GAUS DCW @AUS@
DCW #4
GINDEX DCW @INDEX@
DC #2
DCW #4
GSTART LCA GINDEX,280
LCA GINDEX,305
NOP
LCA GUMS,214
LCA GAUS,234
CW A14
CW A12
NOP
SW HLOOP
R HLOOP
DCW #1
JOB CARD 8 OF DUMP FROM GERMANY
ORG 1
HINC DCW 2
DC #9
HLOOP BSS HON,B
HOFF MCW HSWICH,236
A HINC,HOFF+6
B HCONT
HON MCW HSWICH,216
A HINC,HON+6
NOP
HCONT A HREAD,HLOOP+4
A HREAD,HSWICH
BCE HREAD,HSWICH,H
NOP
B HLOOP
HREAD R ISTART
HSWICH DCW @B@
JOB CARD 9 OF DUMP FROM GERMANY
ORG 101
* CLEAR CORE AT 299, THEN AT 80, SET A WORD MARK AT 1, READ AND
* BRANCH TO 1. LOADED FROM 16 6O 116
ICLR1 CS 299
ICLR2 CS 80
ICLR3 SW JSTART
ICLR4 R JSTART
* START OF THE CARD...
ORG 1
ILOAD DCW @/299/080,0011001@
DC #6
DCW #7
DCW #4
ISTART SW I1,I2
CW HLOOP,HOFF
CW
LCA ILOAD,ICLR4+3
SW ICLR4+4,ICLR4
SW ICLR3
I1 SW ICLR2
W
N0
I2 CC K
B ICLR1
JOB CARD 10 OF DUMP FROM GERMANY
*
ORG 75
MCW 175,105
MCW
MCW 172,114
MCW 175,119
SW 245
MCW 333,245
BW 120,331
CW 245
A 168,175
MA
C 175,179
BU 068
W
2)
N0
MN 14,173
C 51,191
BU 1
R PSTART
DCW 1
DCW 1
DCW 333
DCW 245
DCW 22
DCW 12
DCW @.....5..@
DCW 39
DCW 00400
ZONE DC @-ZONE @
ORG 1
JSTART SW J1,J2
J1 SW J3,J4
J2 SW J5,J6
J3 NOP
J4 SW J7
J5 SW J8
J6 LCA JCODE,ZONE
J7 R KSTART
J8 EQU *+1
JCODE DCW @1001113332452212.....5..3900400-ZONE @
JOB CARD 11 OF DUMP FROM GERMANY
ORG 1
KSTART LCA KCODE,119
SW 190,188
SW 170,83
SW
SW 180
SW 178
SW 176,68
R LSTART
KCODE DCW @7MM172114M175119,245M333245V1203331)245@
JOB CARD 12 OF DUMP FROM GERMANY
ORG 1
LSTART LCA LCODE2,163
LCA LCODE1,144
SW 141,64
SW
SW 180
SW 178
SW 176,68
R MSTART
LCODE1 DCW @A168175#C175179B068/22)N0@
DC #1
LCODE2 DCW @C051191B001/@
JOB CARD 13 OF DUMP FROM GERMANY
ORG 1
MSTART LCA MCODE+6,151
SW 173,168
SW 159,143
NOP
SW 135,128
CW 42,81
SW 127,116
SW 108
SW 101,97
SW 90,90
NOP
R NSTART
MCODE MN 14,173
JOB CARD 14 OF DUMP FROM GERMANY
ORG 1
NSTART MCS 200,211
MCW 172,205
LCA 37,251
NOP
B NCONT
DCW #4
DCW @,,5,,39@
NCONT CW 27,27
R OSTART
JOB CARD 15 OF DUMP FROM GERMANY
ORG 1
MCS 200,211
A 169,192
LCA 189,251
LCA
OSTART BCE 49,188,9
A 169,188
A 169,20
B 15
MN 80,188
MCW 177,20
W
CW 299
MCW 175,100
MCW 175,107
JOB CARD 16 OF DUMP FROM GERMANY
ORG 1
PSTART SW 27,35
SW 36,54
NOP 0,0
NOP
SW 65
CW 75
CS 332
CS
N0
LCA PUMSCH,213
NOP 0
BLC 63
N0
LCA PAUS,213
H
PAUS DCW @AUS@
DC #1
PUMSCH DCW @UMSCH. A EIN@
END