-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathautocoder1.cd
More file actions
197 lines (197 loc) · 15.6 KB
/
autocoder1.cd
File metadata and controls
197 lines (197 loc) · 15.6 KB
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
,008015,022026,030037,044,049,053053N000000N00001026 00013711L
L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?00023711L
,008015,022029,036040,047054,061068,072/061039 ,001001104000033711L
00000000000000000002SKB L023109,092097,106040,040040104000043711L
U%U1RF1M'832322F1/332/ L022354,338340,347348,350354104000053711L
M075'871C012'94B792/V7260802B8770789 L036390,362363,370375,383040104000063711L
,021?025'99)021B418'99&B429?'98'99B406 L038428,395402,406414,418425104000073711L
Y106'99S091C'99/04B538SB527US/09'99 L035463,436440,447452,457040104000083711L
M/14/19S'99/19B483ZA/21/16B483ZY/15/19 L038501,471478,483490,495040104000093711L
D/16512Y109/17M/19089B538M/26/19B4711 L037538,509516,523527,534538104000103711L
M/29099M/32094V7260802B675068BB596040N L038576,546553,561569,040040104000113711L
C046/35B596SY107045M/38071M/39C094/42 L037613,584589,596603,607040104000123711L
B040SA/43099A/43094C0!1/46B652SY1070!0 L038651,619626,633640,645040104000133711L
C0?1/46B607SY1070?0B607L/47I98L%U1V00W L038689,659664,671675,682040104000143711L
B973LM/50705/000H705C705/53B702/B362 L036725,695702,706710,717722104000153711L
H759A/54'87C075'87M075'87B760/B000 L034759,730737,744751,756040104000163711L
M080280MMMMMM L013772,767768,769770,771772104000173711L
M/682982.000176B941N917C020/73B917/ L035807,780781,788792,796803104000183711L
V7260802M/39792L/47081M%U1001WB973L L035842,816823,830838,040040104000193711L
C011/79B868S1V7260802B830U%U1MB362 L034876,850855,856864,868873104000203711L
U%U1MU%U1R)/47/332/MS252462 L027903,882887,891895,896903104000213711L
F1.000142B906/332/MS522272 L026929,906913,917921,922929104000223711L
.000177B9301V7260802B9620789B941.000152L039968,937941,942950,958962104000233711L
B962H'36H099YS53099MII4'27U%U1BU%U1E L036'04,973977,981988,995'00104000243711L
B'37S541A/54S55M%U1000WB995LB000SS55 L036'40,'13'20,'28'33,'37040104000253711L
.000161B'20 L011'51,'48040,040040,040040104000263711L
GENERATING 1401 AUTOCODER SYSTEM L036'87,'84040,040040,040040104000273711L
CONTROL 015000150016000 96 L034/21,'95/00,/05/10,/15/20104000283711L
01500045042001538B063 L021/42,/27/30,/33/36,/39/40104000293711L
G040}I99U99ASEQUENCE ERROR L026/68,/44/47,/48/51,/54/55104000303711L
HEADR999999 L011/79,/74040,040040,040040104000313711L
1401 AUTOCODER SYSTEM GENERATED ON TAPEL039S18,040040,040040,040040104000323711L
UNIT 1SYSTEM CONTROL CARD MISSINGI L037S55)S19S19,S26S53,S54040104000333711L
N000000,040040,040040,040040B33300343711L
,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00353712L
,068072)063067/061039 ,001001104000363712L
B333.005599 L011011,005009,040040,040040104000373712L
000000000000000 L015101,092097,040040,040040104000383712L
B407L,835/I99H345C345787B342/,835 L033365,338342,346350,357362104000393712L
M%U1814RC833802B362/,835M%U1834RB418K L037402,374381,386390,398040104000403712L
B362.000199B407B521F,835L835I98M805658 L038440,407414,418423,427434104000413712L
B4768074,I98L%U1W50RB637A806807B441 L035475,449453,461465,472040104000423712L
L%U1W50RB637B676L)835/W49H500C500011 L036511,484488,493497,501505104000433712L
B497/BZ00M810658)835B558BL%U1!00RB637 L037548,517521,528532,537545104000443712L
B676LB!00L%U1!00RB637,835L835I98 L032580,554558,566570,574040104000453712L
L%U1!00RB637L%U1!00RB637,I98L%U1!00R L036616,589593,601605,609040104000463712L
B637B676L)835I98B!00H675H089Y811089 L035651,621626,633637,641645104000473712L
BIY8000}BBBBBB L014665,660661,662663,664665104000483712L
BBBBBBB000 L010675,667668,669670,671672104000493712L
H089H726Y811089MIZ0717U%U1BM811812 L034709,680684,691698,703040104000503712L
L%U1000RB727LB000U%U1BS806812V710812B L037746,718723,727732,739040104000513712L
.000191M717768L%U1000RB698E.000111B723 L038784,754761,769774,781040104000523712L
U99999999 HEADRW63A !13I L027811,788803,806807,808811104000533712L
} L024835,813835,040040,040040104000543712L
N000000,040040,040040,040040B00000553712L
,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00563713L
,068072)063067/061039 ,001001104000573713L
BJ26G)K12L%U1001RB!09013}BBB L028!27,!05!09,!17!25,!26!27104000583713L
BBBBBBB L007!34,!29!30,!31!32,!33!34104000593713L
BBB!46LB333U%U1BMK06K07L%U1001R L031!65,!36!37,!42!46,!51!58104000603713L
B!75LB333U%U1BSK08K07V!58K07B.000191 L036J01,!71!75,!80!87,!95040104000613713L
L%U1001RB!46E.000111B333,K12LK12Z98 L035J36,J10J15,J22J26,J30040104000623713L
L%U1333RBJ54KBJ26U%U1BU%U1B)K12Z98,P25 L038J74,J45J50,J54J59,J64J71104000633713L
MK11!64MK11J08L%U1333RB!46LB333I L033K07,J82J89,J97K02,K06K07104000643713L
A333} L005K12,K09K12,040040,040040104000653713L
N000000,040040,040040,040040B00000663713L
,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00673714L
,068072)063067/061039 ,001001104000683714L
000000000000000 L015101,092097,040040,040040104000693714L
,/39U%U1RU%U6RF1/332/B'21 L025357,337342,347349,353354104000703714L
B525CL%U1V00RH089D0'0,N0000B759 L031388,363371,375379,380385104000713714L
B798LL%U6V00WB928LB'21L%U1V00RCV19'70 L037425,394402,407411,419040104000723714L
B411/L%U1V00RB448KB411B498'723L%U1V00R L038463,431439,444448,456040104000733714L
N0000000000000B759B798LA'71'72B448/199 L038501,478482,487494,498040104000743714L
/080,006016,021BN32BV00L%U1V00RH089 L035536,506513,517521,525533104000753714L
D0'0,B601KB759B798LN580,'79 L027563,541542,547551,556560104000763714L
CV10'78B580/)'79L%U6V00WB928LB'21B525 L037600,571576,580588,593597104000773714L
U%U6MV727'801B'21L/39I98V637/261B669 L036636,606614,618625,633040104000783714L
U%U6EM%U6V00WB669'812A'71'82B637M/25243L039675,642650,658665,669040104000793714L
2F1V692/261U%U6RU%U1R.000122B'21 L032707,677679,687692,697704104000803714L
S'82M/27556,'80B525V750'791)'80M/28556 L038745,712719,723727,735739104000813714L
B593U%U6BB593H797H094Y/29094BIP4V13} L036781,750755,759763,767774104000823714L
BBBBBBB L007788,783784,785786,787788104000833714L
BBBBBB000H855 L013801,790791,792793,794798104000843714L
H099Y/29099MIG6846D842830U%U1BM/29/30 L037838,806813,820827,832040104000853714L
M%U1000RB856LB000D842866U%U1BS'71/30 L036874,847852,856863,868040104000863714L
V839/30BD842896.000190M846911M%U1000R L037911,883890,897904,040040104000873714L
B827E.000111B852H998H099Y/29099MII4989 L038949,917924,928932,936943104000883714L
D985960U%U6BU%U1EB999/311A'71/32 L032981,957962,967975,040040104000893714L
M%U6000WB957LB000S/32D985'16.000160B982L039'20,990995,999'03,'10'17104000903714L
H'55M/35'35/I99H'35C'35/38B'32/B000 L035'55,'25'32,'36'40,'47'52104000913714L
999999 HEADRA 999999 L027'82,'71'72,'73'79,'80'81104000923714L
1401 AUTOCODER SYSTEM COPIED ON TAPE UNL039/21,040040,040040,040040104000933714L
IT 6 NBI L008/29)/22/22,/26/27,/28/29104000943714L
I99U99} L010/39,/31/33,/36/39,040040104000953714L
N000000,040040,040040,040040B00000963714L
,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00973715L
,068072)063067/061039 ,001001104000983715L
U%U1R)?91?98M?30780L/39181M%U1101R L034V33,V05V12,V19V26,040040104000993715L
N0000000000000B759/180BM17BL24VV84?731 L038V71,V48V52,V56V60,V64040104001003715L
VV84?791BV60BN94C011?36BK40SC008?39 L035W06,V80V84,V88V95,W00040104001013715L
BX30SBP75UM008?39SA67VW56?911BM17 L033W39,W12W17,W24W28,W36040104001023715L
VW56?911BM95BW28VW89?981C108?39BX30S L036W75,W48W52,W56W64,W71040104001033715L
)?91BW89TBW48U%U1B/180)?91VQ01?791 L034X09,W80W85,W89W94,W98X02104001043715L
C022?41BQ01/BO37BY06C022?41BY46/M?46218L039X48,X17X22,X26X30,X37X42104001053715L
BO37SA67BO72BM17VX77?911BX57U%U1B L033X81,X53X57,X61X65,X73X77104001063715L
/180)?91VV60?791BN94BO37SA67BL24 L032Y13,X86X90,X98Y02,Y06Y10104001073715L
VV84?731VV84?791BL07BO72BM95BY10S101 L036Y49,Y22Y30,Y34Y38,Y42Y46104001083715L
VY810212C024?41BX42SA?47099,023,?48 L035Y84,Y58Y65,Y70Y77,Y81040104001093715L
BZ160B1,C0B2?41BZ16SA?49099BY85?0B0?53 L038Z22,Y93Z00,Z05Z12,Z16040104001103715L
A?54?53BZ420B1,B!08,0B2H094A?49099 L034Z56,Z30Z38,Z42Z46,Z50040104001113715L
C0B2?41BZ50/?0B0?58A?54?58C?53?58BQ59T L038Z94,Z64Z69,Z76Z83,Z90040104001123715L
BK20S)?48)0!1)023V!27?481M?63218BO37 L036!30,!00!04,!08!12,!20!27104001133715L
C?53A67B!70SA?49A67BM95BM17VQ84?911B!31L039!69,!38!43,!50!54,!58!66104001143715L
VJ46?481BO72BM17C?58A67BJ10UVQ84?911 L036J05,!78!82,!86!93,!98040104001153715L
B!78U%U1B/180S?49A67VY10?791BN94BO37 L036J41,J10J15,J19J26,J34J38104001163715L
BJ77VJ73?731BO72S?49A67/180BJ26BM95 L035J76,J46J54,J58J65,J69J73104001173715L
BL24VV84?731VV84?791BL07)?64BO72S?49A67L039K15,J81J89,J97K01,K05K09104001183715L
BJ73V!00?731,?48B!04BM95BM17BM95 L032K47,K20K28,K32K36,K40K44104001193715L
VK60?981BK40U%U6MM?67780)'79'80)/26/332L039K86,K56K60,K65K72,K79K83104001203715L
/F1M%U1101RB593KBK90HL23M080180 L031L17,K88K90,K98L03,L07L11104001213715L
MMB000HM08VL40?851BK401 L023L40,L19L20,L24L28,L36L40104001223715L
)?73?79C020?72BL68/,?73BM00C020?78BL88/L039L79,L48L55,L60L64,L68L75104001233715L
,?79BM00C020?84BK36SBM09AB000)?85 L033M12,L84L88,L95M00,M05M09104001243715L
BM05HM94M%U1101R,181N000000000B759B798LL039M51,M17M21,M29M33,M43M47104001253715L
)?91?98C120?90BM91/,?91C111?97BM91/,?98L039M90,M59M66,M71M75,M82M87104001263715L
B000HN31C180?27BN28SM%U6101WB928L/180 L037N27,M95M99,N06N11,N19N24104001273715L
B000HN93/332/MA30251MA34275A?49A37 L034N61,N32N36,N40N41,N48N55104001283715L
ZA372792FK/279MA632272FK L024N85,N69N70,N72N76,N83N84104001293715L
/228B000HO36FK/332/M072271 L026O11,N90N94,N98O00,O04O05104001303715L
M022221M020218M011212B000HO572FJ L032O43,O19O26,O33O37,O41O42104001313715L
/332/BO58@B000HO71F1BN32 L024O67,O48O49,O54O58,O62O64104001323715L
B000HP74,220214,207BP32106*M172271 L034P01,O72O76,O83O87,O95040104001333715L
M120218M111212VP45?641,?64BP53M172273M L038P39,P09P16,P24P28,P32P39104001343715L
MBP16DA67204ZA?49A672/332 L025P64,P41P45,P52P53,P60P61104001353715L
/BO58@B000/332/MB072402 L023P87,P66P71,P75P79,P80P87104001363715L
F1.000133BP90VQ210212C024?41BX22S L033Q20,P90P97,Q01Q09,Q16040104001373715L
MB252992FL/299BL24VV84?731VV84?791 L034Q54,Q28Q29,Q31Q35,Q39Q47104001383715L
BQ35MB382992FL/299)0!1023BQ35 L029Q83,Q59Q66,Q67Q69,Q73Q80104001393715L
MB622992FL/299VR10?981BQ35MB80299 L033R16,Q91Q92,Q94Q98,R06R10104001403715L
2FL/299MC022222U%U1B/180 L024R40,R18R20,R24R31,R32R37104001413715L
BL24BR41 L008R48,R45040,040040,040040104001423715L
L039R87,040040,040040,040040104001433715L
L011R98)R88R88,040040,040040104001443715L
114999999 L038?36)R99R99,?28?31,040040104001453715L
DELETB A L017?53,?40?42,?47?48,?49?50104001463715L
0 DELET V13INSER L020?73,?55?59,?64?65,?68?73104001473715L
DELET REPET HEADR 999999 L024?97,?79?80,?85?86,?91?92104001483715L
1401 AUTOCODER - LIBRARY CHANGESPAGE L037A34,?99A31,040040,040040104001493715L
SEQ LABEL OP OPERANDS L033A67,A38A64,040040,040040104001503715L
INPUT CARDS OUT OF SEQUENCE - START OVEL039B06,040040,040040,040040104001513715L
RSUBROUTINE UNKNOWNBAD STATEMENT L032B38)B07B07,B08B26,040040104001523715L
STATEMENT DOES NOT EXIST L024B62,040040,040040,040040104001533715L
SUBROUTINE UNKNOWN L018B80,040040,040040,040040104001543715L
END OF LIBRARY REACHED L022C02,040040,040040,040040104001553715L
} L001I98,040040,040040,040040104001563715L
N000000,040040,040040,040040B00001573715L
,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01583716L
,068072)063067/061039 ,001001104001593716L
,?44L?44181//080,006016/332/ L028!27,!04!11,!12!16,!23!27104001603716L
F1U%U1RM%U1101R/180,106116,121BL28E L035!62,!30!35,!43!47,!54!58104001613716L
)R32F1BN591MQ90O69C020Q95BJ19S L030!92,!67!69,!73!74,!81!88104001623716L
C020R00BN06/AR01O69DR01R02C008R05BK96S L038J30,J00J05,J12J19,J26040104001633716L
M020218M011212BJ85TU%U1RL?44181M%U1101RL039J69,J38J45,J50J55,J62040104001643716L
/180,106116,121M%U1101RBP67BQ06LC111R11L039K08,J74J81,J85J93,J97K02104001653716L
BL05SC120R16BJ85/C008108BJ85/M008R05FK L038K46,K14K21,K26K33,K38K45104001663716L
2SR48BN17FKBN81M%U1101RBP67 L027K73,K48K52,K56K58,K62K70104001673716L
BQ06LC120R21BK58/U%U1BBM54AB!67MR28299 L038L11,K79K86,K91K96,L01L05104001683716L
2/299MR31R05BK96BL60D)R32BL46G L030L41,L13L17,L24L28,L33L37104001693716L
BL60AR01O69DR01R02BP19)R33BN59M%U1101R L038L79,L46L53,L60L64,L68L72104001703716L
BP67BQ06LC111R39BM54SC120R44BM35/BN17 L037M16,L84L89,L96M01,M08M13104001713716L
FKHO83M31BO97@SR48BN81,106116,121 L033M49,M19M26,M31M35,M39M46104001723716L
BL72/332/FKMR622142F1 L021M70,M54M58,M59M61,M68M69104001733716L
/180BM99R024U%U1R.000155BM884K8 L031N01,M75M83,M88M95,M99N00104001743716L
BM83.000144BK96HN58MR67105MR72120 L033N34,N06N13,N17N21,N28040104001753716L
BN47R024BN484MR77120B000HN80M?03227 L035N69,N43N47,N48N55,N59N63104001763716L
2FK/228B000HO83C120?08BO05S L027N96,N71N73,N77N81,N85N92104001773716L
VO70R321/332/BO84106*M172271M120218 L035O31,O05O09,O10O18,O25040104001783716L
M111212DR48204ZDR48104MA?09R48M?10105 L037O68,O39O46,O47O54,O55O62104001793716L
2/332/BO97@B000M172273M L023O91,O70O74,O75O80,O84O91104001803716L
MBO39F1VP11R331BP19BN59BO80 L027P18,O93O97,O99P07,P11P15104001813716L
HP66/332/M?34243M?38275A?09?41Z?41279 L037P55,P23P27,P28P35,P42P49104001823716L
2FL/299B000HQ05H089Y?42089 L026P81,P57P59,P63P67,P71P75104001833716L
BIY8113}BBBBBB L014P95,P90P91,P92P93,P94P95104001843716L
BBBBBBB000 L010Q05,P97P98,P99Q00,Q01Q02104001853716L
HQ38U%U1BM?42?43M%U1101RBQ39LB000U%U1B L038Q43,Q10Q15,Q22Q30,Q35Q39104001863716L
S?09?43VQ22?43B.000191M%U1101RBQ10E L035Q78,Q51Q59,Q66Q74,040040104001873716L
.000111BQ352PRINTPUNCHD L024R02,Q86Q90,Q91Q96,R01R02104001883716L
999999HEADRHEADRUNKNOWN999 L030R32,R06R12,R17R22,R29R32104001893716L
999999HEADR END OF LIBRARY L035R67,R34R40,R45R49,R63040104001903716L
INSERHEADRSEQ LABEL OP OPERANDS L036?03,R73R78,040040,040040104001913716L
HEADRA 1401 AUTOCODER - LIBRARYPAGE IL039?42,?09?10,?11?35,?39?42104001923716L
} L002?44,?44040,040040,040040104001933716L
N000000,040040,040040,040040B00001943716L
,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01953716L
,068072)063067/061039 ,001001104001963716L
/000080 01973716L