and decks of Jan 2007
e-mail from Bob Feretich, Jan 23, 2007, Subject "1401, demo decks for Cardamation
First, many of the cards that you sent are not sequenced numbered. For object decks (and many other decks), sequence numbering is very important. It's easy to get cards shuffled when reader checks occur. (Typically a human error while reassembling a deck.) Unix has some useful commands to prepare the deck. So, I use a unix environment to do the preparation. To do this I open a Cigwin window on my Windows machine. Cigwin is a free unix environment application that runs under Windows.
If you are going to be dealing with a lot of non 80 character record files, you may want to write a program to automate the above. Regards, Bob
- I start Cigwin.
- I select the folder that the card decks are in via CD
. - I merge the decks into one file via
cat 1401Demo.cd SubRoutPi.cd SubRoutPi8k.cd V4.cd >batch1s.cd- I translate the card characters for Cardamation punching using
cat batch1s.cd | tr \^\'\!\?\)\:\=\]\[\>\\\\\<\(\+\_\" \ \:\\\\\}\{\<\'\_\)\(\=\>\+\"\?\^\! >batch1t.txt- File batch1t.txt now contains the translated characters.
- I open batch1t.txt using Microsoft Word and display the file using a fixed width character set like "Courier New".
- Using the Tools->Options menu, View tab, I tell word to display "All" non-printing characters.
- I verify that all "paragraph marks" are in column 81. Data going to Cardamation must be fixed length 82 character records. That is 80 characters of data followed by a carriage return (0x0d) and a line feed (0x0a). When Word saves a text file, is plugs in a carriage return and line feed for each paragraph mark. (Some editors just use line feeds (aka \n).) If records are too short, I manually add spaces until the paragraph mark is in column 81. Since most decks are sequence numbered, usually I do very little or no editing. Some of the decks that you sent me, however were not padded out to column 81.
- I "Save" the file.
- It is now ready to send to Cardamation. (It's attached.)
I (Ed Thelen) searched using "cigwin site " and found http://www.cygwin.com/ Cygwin Information and Installation.
Haven't done anything about it yet.
The converted decks mentioned above are attached below, but separated by horizontal lines and added labeling.
The following is a deck from Dan McInnis labeled"1401Demo.cd" 053053N000000N00001026 0001 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0{0002 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003 /080,030055./332/12 L019351,337344,345349,35035110400004 2M5272722/2992M0502682 L022373,353360,361365,36637310400005 /29922M5462552/2992 L019392,378379,380387,38839210400006 2M0752652/29922M590272 L022414,394401,402406,40740810400007 2/29922M6232702/299 L019433,416420,421422,42943010400008 22M6622722/29922 L016449,435436,443444,44844910400009 M7052722/2992222 L016465,457458,462463,46446510400010 M7482722/299FAB345.345 L022487,473474,478480,48404010400011 ***** THIS CERTIFIES THAT ****L039526,040040,040040,04004010400012 * ON L020546<527527,528040,04004010400013 WAS PRESENT FOR A 1401 DEMONSTRATL039585,040040,040040,04004010400014 ION AT THE COMPUTER HISTORY MUSEUM L038623<586586,591040,04004010400015 THE 1401 RESTORATION PROJECT TEAM L039662,040040,040040,04004010400016 L001001,040040,040040,04004010400017 ********* THANKS YOU FOR COMING ******L039701,040040,040040,04004010400018 **** L004705<702702,040040,04004010400019 ---------------------------------------L039744,040040,040040,04004010400020 ---- L004748<745745,040040,04004010400021 /333080 0022 DAN MCINNIS NOVEMBER 17, 2006 ED THELEN NOVEMBER 17, 2006 RON WILLIAMS NOVEMBER 17, 2006 BOB ERICKSON NOVEMBER 17, 2006
The following is a deck from Ed Thelen labeled"SubRoutPi.cd" - a program to compute 5,000 digits of Pi in a 16,000 character 1401 ( equiped with options) ,008015,022026,030037,044,049,053053N000000N00001026 0001 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0{0002 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003 000 L003089,040040,040040,04004010400004 000 L003094,040040,040040,04004010400005 000000000000000000000000000000001000002L039135,100106,112118,12413010400006 0000250571210000001000000000MI5AI5{ L035170,142148,154155,16404010400007 MI5BI4IB335 L011181,178040,040040,04004010400008 MI4II4HMI5BY4ZMY4ZY4YMI5D809MI5E154 L035369,342349,356363,04004010400009 M141111B428MI5BY4ZMY4ZY4YMI5H809MI5B154L039408,377381,388395,40204010400010 M147111B428B626.164H625M123153M123105 L037445,416420,424428,43243910400011 M129117MI6A089MI5AY5\%111807MY4TY5\ L035480,453460,467474,04004010400012 M163807MY5\R0}MI5AR0}%117Y5XMQ9LR0} L035515,488495,502509,04004010400013 M163Y5XMI5AR0}B5561541MI5E154SR0}I5{ L036551,523530,538545,04004010400014 B570AR0}I5{MI5B154A129105A135117 L032583,556563,570577,04004010400015 B5968\10B460A129153H0890\1C153I6EB584/ L038621,592596,603610,61704010400016 B000H800MI6H089M123105/332/MI8A269 L034655,626630,637644,64864910400017 ,265MR\J256H0890/02/252,203214,225236 L037692,660667,674675,67968610400018 ,247265AI8F269MR\J212H0890/0MR\J223 L035727,700707,714721,04004010400019 H0890/0MR\J234H0890/0MR\J245H0890/0 L035762,735742,749756,04004010400020 MR\J256H0890/02AI9B105CI9H105B675TB000 L038800,770777,778785,79279710400021 L039839<801801,040040,04004010400022 L039878<840840,040040,04004010400023 L039917<879879,040040,04004010400024 L039956<918918,040040,04004010400025 L039995<957957,040040,04004010400026 L039\34<996996,040040,04004010400027 L039\73<\35\35,040040,04004010400028 L039/12<\74\74,040040,04004010400029 L039/51</13/13,040040,04004010400030 - L039/90</52/52,040040,04004010400031 L039S29</91/91,040040,04004010400032 L039S68<S30S30,040040,04004010400033 L039T07<S69S69,040040,04004010400034 L039T46<T08T08,040040,04004010400035 L039T85<T47T47,040040,04004010400036 L039U24<T86T86,040040,04004010400037 L039U63<U25U25,040040,04004010400038 L039V02<U64U64,040040,04004010400039 L039V41<V03V03,040040,04004010400040 L039V80<V42V42,040040,04004010400041 L039W19<V81V81,040040,04004010400042 L039W58<W20W20,040040,04004010400043 L039W97<W59W59,040040,04004010400044 L039X36<W98W98,040040,04004010400045 L039X75<X37X37,040040,04004010400046 L039Y14<X76X76,040040,04004010400047 L039Y53<Y15Y15,040040,04004010400048 L039Y92<Y54Y54,040040,04004010400049 L039Z31<Y93Y93,040040,04004010400050 L039Z70<Z32Z32,040040,04004010400051 L039}09<Z71Z71,040040,04004010400052 L039}48<}10}10,040040,04004010400053 L039}87<}49}49,040040,04004010400054 L039J26<}88}88,040040,04004010400055 L039J65<J27J27,040040,04004010400056 L039K04<J66J66,040040,04004010400057 L039K43<K05K05,040040,04004010400058 L039K82<K44K44,040040,04004010400059 L039L21<K83K83,040040,04004010400060 L039L60<L22L22,040040,04004010400061 L039L99<L61L61,040040,04004010400062 L039M38<M00M00,040040,04004010400063 L039M77<M39M39,040040,04004010400064 L039N16<M78M78,040040,04004010400065 L039N55<N17N17,040040,04004010400066 L039N94<N56N56,040040,04004010400067 L039O33<N95N95,040040,04004010400068 L039O72<O34O34,040040,04004010400069 L039P11<O73O73,040040,04004010400070 L039P50<P12P12,040040,04004010400071 L039P89<P51P51,040040,04004010400072 L039Q28<P90P90,040040,04004010400073 L039Q67<Q29Q29,040040,04004010400074 L039R06<Q68Q68,040040,04004010400075 L039R45<R07R07,040040,04004010400076 L039R84<R46R46,040040,04004010400077 L039{23<R85R85,040040,04004010400078 L039{62<{24{24,040040,04004010400079 L039A01<{63{63,040040,04004010400080 L039A40<A02A02,040040,04004010400081 L039A79<A41A41,040040,04004010400082 L039B18<A80A80,040040,04004010400083 L039B57<B19B19,040040,04004010400084 L039B96<B58B58,040040,04004010400085 L039C35<B97B97,040040,04004010400086 L039C74<C36C36,040040,04004010400087 L039D13<C75C75,040040,04004010400088 L039D52<D14D14,040040,04004010400089 L039D91<D53D53,040040,04004010400090 L039E30<D92D92,040040,04004010400091 L039E69<E31E31,040040,04004010400092 L039F08<E70E70,040040,04004010400093 L039F47<F09F09,040040,04004010400094 L039F86<F48F48,040040,04004010400095 L039G25<F87F87,040040,04004010400096 L039G64<G26G26,040040,04004010400097 L039H03<G65G65,040040,04004010400098 L039H42<H04H04,040040,04004010400099 L039H81<H43H43,040040,04004010400100 L039I20<H82H82,040040,04004010400101 L039I59<I21I21,040040,04004010400102 L039I98<I60I60,040040,04004010400103 L03903X<I99I99,040040,04004010400104 L03907W<03Y03Y,040040,04004010400105 L03911V<07X07X,040040,04004010400106 L03915U<11W11W,040040,04004010400107 L03919T<15V15V,040040,04004010400108 L03923S<19U19U,040040,04004010400109 L03927/<23T23T,040040,04004010400110 L03931\<27S27S,040040,04004010400111 L03934Z<31/31/,040040,04004010400112 L03938Y<35\35\,040040,04004010400113 L03942X<38Z38Z,040040,04004010400114 L03946W<42Y42Y,040040,04004010400115 L03950V<46X46X,040040,04004010400116 L03954U<50W50W,040040,04004010400117 L03958T<54V54V,040040,04004010400118 L03962S<58U58U,040040,04004010400119 L03966/<62T62T,040040,04004010400120 L03970\<66S66S,040040,04004010400121 L03973Z<70/70/,040040,04004010400122 L03977Y<74\74\,040040,04004010400123 L03981X<77Z77Z,040040,04004010400124 L03985W<81Y81Y,040040,04004010400125 L03989V<85X85X,040040,04004010400126 L03993U<89W89W,040040,04004010400127 L03997T<93V93V,040040,04004010400128 L039\1S<97U97U,040040,04004010400129 L039\5/<\1T\1T,040040,04004010400130 L039\9\<\5S\5S,040040,04004010400131 L039/2Z<\9/\9/,040040,04004010400132 L039/6Y</3\/3\,040040,04004010400133 L039S0X</6Z/6Z,040040,04004010400134 L039S4W<S0YS0Y,040040,04004010400135 L039S8V<S4XS4X,040040,04004010400136 L039T2U<S8WS8W,040040,04004010400137 L039T6T<T2VT2V,040040,04004010400138 L039U0S<T6UT6U,040040,04004010400139 L039U4/<U0TU0T,040040,04004010400140 L039U8\<U4SU4S,040040,04004010400141 L039V1Z<U8/U8/,040040,04004010400142 L039V5Y<V2\V2\,040040,04004010400143 L039V9X<V5ZV5Z,040040,04004010400144 L039W3W<V9YV9Y,040040,04004010400145 L039W7V<W3XW3X,040040,04004010400146 L039X1U<W7WW7W,040040,04004010400147 L039X5T<X1VX1V,040040,04004010400148 L039X9S<X5UX5U,040040,04004010400149 L039Y3/<X9TX9T,040040,04004010400150 L019Y5\<Y3SY3S,801040,04004010400151 L039Y8Z<Y5/Y5/,040040,04004010400152 L039Z2Y<Y9\Y9\,040040,04004010400153 L039Z6X<Z2ZZ2Z,040040,04004010400154 L039}0W<Z6YZ6Y,040040,04004010400155 L039}4V<}0X}0X,040040,04004010400156 L039}8U<}4W}4W,040040,04004010400157 L039J2T<}8V}8V,040040,04004010400158 L039J6S<J2UJ2U,040040,04004010400159 L039K0/<J6TJ6T,040040,04004010400160 L039K4\<K0SK0S,040040,04004010400161 L039K7Z<K4/K4/,040040,04004010400162 L039L1Y<K8\K8\,040040,04004010400163 L039L5X<L1ZL1Z,040040,04004010400164 L039L9W<L5YL5Y,040040,04004010400165 L039M3V<L9XL9X,040040,04004010400166 L039M7U<M3WM3W,040040,04004010400167 L039N1T<M7VM7V,040040,04004010400168 L039N5S<N1UN1U,040040,04004010400169 L039N9/<N5TN5T,040040,04004010400170 L039O3\<N9SN9S,040040,04004010400171 L039O6Z<O3/O3/,040040,04004010400172 L039P0Y<O7\O7\,040040,04004010400173 L039P4X<P0ZP0Z,040040,04004010400174 L039P8W<P4YP4Y,040040,04004010400175 L039Q2V<P8XP8X,040040,04004010400176 L039Q6U<Q2WQ2W,040040,04004010400177 L039R0T<Q6VQ6V,040040,04004010400178 L039R4S<R0UR0U,040040,04004010400179 L039R8/<R4TR4T,040040,04004010400180 L039{2\<R8SR8S,040040,04004010400181 L039{5Z<{2/{2/,040040,04004010400182 L039{9Y<{6\{6\,040040,04004010400183 L039A3X<{9Z{9Z,040040,04004010400184 L039A7W<A3YA3Y,040040,04004010400185 L039B1V<A7XA7X,040040,04004010400186 L039B5U<B1WB1W,040040,04004010400187 L039B9T<B5VB5V,040040,04004010400188 L039C3S<B9UB9U,040040,04004010400189 L039C7/<C3TC3T,040040,04004010400190 L039D1\<C7SC7S,040040,04004010400191 L039D4Z<D1/D1/,040040,04004010400192 L039D8Y<D5\D5\,040040,04004010400193 L039E2X<D8ZD8Z,040040,04004010400194 L039E6W<E2YE2Y,040040,04004010400195 L039F0V<E6XE6X,040040,04004010400196 L039F4U<F0WF0W,040040,04004010400197 L039F8T<F4VF4V,040040,04004010400198 L039G2S<F8UF8U,040040,04004010400199 L039G6/<G2TG2T,040040,04004010400200 L039H0\<G6SG6S,040040,04004010400201 L039H3Z<H0/H0/,040040,04004010400202 L039H7Y<H4\H4\,040040,04004010400203 L039I1X<H7ZH7Z,040040,04004010400204 L039I5W<I1YI1Y,040040,04004010400205 L039I9V<I5XI5X,040040,04004010400206 L03903M<I9WI9W,040040,04004010400207 L03907L<03N03N,040040,04004010400208 L03911K<07M07M,040040,04004010400209 L03915J<11L11L,040040,04004010400210 L03919}<15K15K,040040,04004010400211 L03922R<19J19J,040040,04004010400212 L03926Q<23}23},040040,04004010400213 L03930P<26R26R,040040,04004010400214 L03934O<30Q30Q,040040,04004010400215 L03938N<34P34P,040040,04004010400216 L03942M<38O38O,040040,04004010400217 L03946L<42N42N,040040,04004010400218 L03950K<46M46M,040040,04004010400219 L03954J<50L50L,040040,04004010400220 L03958}<54K54K,040040,04004010400221 L03961R<58J58J,040040,04004010400222 L03965Q<62}62},040040,04004010400223 L03969P<65R65R,040040,04004010400224 L03973O<69Q69Q,040040,04004010400225 L03977N<73P73P,040040,04004010400226 L03981M<77O77O,040040,04004010400227 L03985L<81N81N,040040,04004010400228 L03989K<85M85M,040040,04004010400229 L03993J<89L89L,040040,04004010400230 L03997}<93K93K,040040,04004010400231 L039\0R<97J97J,040040,04004010400232 L039\4Q<\1}\1},040040,04004010400233 L039\8P<\4R\4R,040040,04004010400234 L039/2O<\8Q\8Q,040040,04004010400235 L039/6N</2P/2P,040040,04004010400236 L039S0M</6O/6O,040040,04004010400237 L039S4L<S0NS0N,040040,04004010400238 L039S8K<S4MS4M,040040,04004010400239 L039T2J<S8LS8L,040040,04004010400240 L039T6}<T2KT2K,040040,04004010400241 L039T9R<T6JT6J,040040,04004010400242 L039U3Q<U0}U0},040040,04004010400243 L039U7P<U3RU3R,040040,04004010400244 L039V1O<U7QU7Q,040040,04004010400245 L039V5N<V1PV1P,040040,04004010400246 L039V9M<V5OV5O,040040,04004010400247 L039W3L<V9NV9N,040040,04004010400248 L039W7K<W3MW3M,040040,04004010400249 L039X1J<W7LW7L,040040,04004010400250 L039X5}<X1KX1K,040040,04004010400251 L039X8R<X5JX5J,040040,04004010400252 L039Y2Q<X9}X9},040040,04004010400253 L039Y6P<Y2RY2R,040040,04004010400254 L039Z0O<Y6QY6Q,040040,04004010400255 L039Z4N<Z0PZ0P,040040,04004010400256 L039Z8M<Z4OZ4O,040040,04004010400257 L039}2L<Z8NZ8N,040040,04004010400258 L039}6K<}2M}2M,040040,04004010400259 L039J0J<}6L}6L,040040,04004010400260 L039J4}<J0KJ0K,040040,04004010400261 L039J7R<J4JJ4J,040040,04004010400262 L039K1Q<J8}J8},040040,04004010400263 L039K5P<K1RK1R,040040,04004010400264 L039K9O<K5QK5Q,040040,04004010400265 L039L3N<K9PK9P,040040,04004010400266 L039L7M<L3OL3O,040040,04004010400267 L039M1L<L7NL7N,040040,04004010400268 L039M5K<M1MM1M,040040,04004010400269 L039M9J<M5LM5L,040040,04004010400270 L039N3}<M9KM9K,040040,04004010400271 L039N6R<N3JN3J,040040,04004010400272 L039O0Q<N7}N7},040040,04004010400273 L039O4P<O0RO0R,040040,04004010400274 L039O8O<O4QO4Q,040040,04004010400275 L039P2N<O8PO8P,040040,04004010400276 L039P6M<P2OP2O,040040,04004010400277 L039Q0L<P6NP6N,040040,04004010400278 L039Q4K<Q0MQ0M,040040,04004010400279 L039Q8J<Q4LQ4L,040040,04004010400280 L019R0}<Q8KQ8K,Y5/040,04004010400281 L039R3R<R0JR0J,040040,04004010400282 L039R7Q<R4}R4},040040,04004010400283 L039{1P<R7RR7R,040040,04004010400284 L039{5O<{1Q{1Q,040040,04004010400285 L039{9N<{5P{5P,040040,04004010400286 L039A3M<{9O{9O,040040,04004010400287 L039A7L<A3NA3N,040040,04004010400288 L039B1K<A7MA7M,040040,04004010400289 L039B5J<B1LB1L,040040,04004010400290 L039B9}<B5KB5K,040040,04004010400291 L039C2R<B9JB9J,040040,04004010400292 L039C6Q<C3}C3},040040,04004010400293 L039D0P<C6RC6R,040040,04004010400294 L039D4O<D0QD0Q,040040,04004010400295 L039D8N<D4PD4P,040040,04004010400296 L039E2M<D8OD8O,040040,04004010400297 L039E6L<E2NE2N,040040,04004010400298 L039F0K<E6ME6M,040040,04004010400299 L039F4J<F0LF0L,040040,04004010400300 L039F8}<F4KF4K,040040,04004010400301 L039G1R<F8JF8J,040040,04004010400302 L039G5Q<G2}G2},040040,04004010400303 L039G9P<G5RG5R,040040,04004010400304 L039H3O<G9QG9Q,040040,04004010400305 L039H7N<H3PH3P,040040,04004010400306 L039I1M<H7OH7O,040040,04004010400307 L039I5L<I1NI1N,040040,04004010400308 L039I9K<I5MI5M,040040,04004010400309 L03903A<I9LI9L,040040,04004010400310 L03907{<03B03B,040040,04004010400311 L03910I<07A07A,040040,04004010400312 L03914H<11{11{,040040,04004010400313 L03918G<14I14I,040040,04004010400314 L03922F<18H18H,040040,04004010400315 L03926E<22G22G,040040,04004010400316 L03930D<26F26F,040040,04004010400317 L03934C<30E30E,040040,04004010400318 L03938B<34D34D,040040,04004010400319 L03942A<38C38C,040040,04004010400320 L03946{<42B42B,040040,04004010400321 L03949I<46A46A,040040,04004010400322 L03953H<50{50{,040040,04004010400323 L03957G<53I53I,040040,04004010400324 L03961F<57H57H,040040,04004010400325 L03965E<61G61G,040040,04004010400326 L03969D<65F65F,040040,04004010400327 L03973C<69E69E,040040,04004010400328 L03977B<73D73D,040040,04004010400329 L03981A<77C77C,040040,04004010400330 L03985{<81B81B,040040,04004010400331 L03988I<85A85A,040040,04004010400332 L03992H<89{89{,040040,04004010400333 L03996G<92I92I,040040,04004010400334 L039\0F<96H96H,040040,04004010400335 L039\4E<\0G\0G,040040,04004010400336 L039\8D<\4F\4F,040040,04004010400337 L039/2C<\8E\8E,040040,04004010400338 L039/6B</2D/2D,040040,04004010400339 L039S0A</6C/6C,040040,04004010400340 L039S4{<S0BS0B,040040,04004010400341 L039S7I<S4AS4A,040040,04004010400342 L039T1H<S8{S8{,040040,04004010400343 L039T5G<T1IT1I,040040,04004010400344 L039T9F<T5HT5H,040040,04004010400345 L039U3E<T9GT9G,040040,04004010400346 L039U7D<U3FU3F,040040,04004010400347 L039V1C<U7EU7E,040040,04004010400348 L039V5B<V1DV1D,040040,04004010400349 L039V9A<V5CV5C,040040,04004010400350 L039W3{<V9BV9B,040040,04004010400351 L039W6I<W3AW3A,040040,04004010400352 L039X0H<W7{W7{,040040,04004010400353 L039X4G<X0IX0I,040040,04004010400354 L039X8F<X4HX4H,040040,04004010400355 L039Y2E<X8GX8G,040040,04004010400356 L039Y6D<Y2FY2F,040040,04004010400357 L039Z0C<Y6EY6E,040040,04004010400358 L039Z4B<Z0DZ0D,040040,04004010400359 L039Z8A<Z4CZ4C,040040,04004010400360 L039}2{<Z8BZ8B,040040,04004010400361 L039}5I<}2A}2A,040040,04004010400362 L039}9H<}6{}6{,040040,04004010400363 L039J3G<}9I}9I,040040,04004010400364 L039J7F<J3HJ3H,040040,04004010400365 L039K1E<J7GJ7G,040040,04004010400366 L039K5D<K1FK1F,040040,04004010400367 L039K9C<K5EK5E,040040,04004010400368 L039L3B<K9DK9D,040040,04004010400369 L039L7A<L3CL3C,040040,04004010400370 L039M1{<L7BL7B,040040,04004010400371 L039M4I<M1AM1A,040040,04004010400372 L039M8H<M5{M5{,040040,04004010400373 L039N2G<M8IM8I,040040,04004010400374 L039N6F<N2HN2H,040040,04004010400375 L039O0E<N6GN6G,040040,04004010400376 L039O4D<O0FO0F,040040,04004010400377 L039O8C<O4EO4E,040040,04004010400378 L039P2B<O8DO8D,040040,04004010400379 L039P6A<P2CP2C,040040,04004010400380 L039Q0{<P6BP6B,040040,04004010400381 L039Q3I<Q0AQ0A,040040,04004010400382 L039Q7H<Q4{Q4{,040040,04004010400383 L039R1G<Q7IQ7I,040040,04004010400384 L039R5F<R1HR1H,040040,04004010400385 L039R9E<R5GR5G,040040,04004010400386 L039{3D<R9FR9F,040040,04004010400387 L039{7C<{3E{3E,040040,04004010400388 L039A1B<{7D{7D,040040,04004010400389 L039A5A<A1CA1C,040040,04004010400390 L039A9{<A5BA5B,040040,04004010400391 L039B2I<A9AA9A,040040,04004010400392 L039B6H<B3{B3{,040040,04004010400393 L039C0G<B6IB6I,040040,04004010400394 L039C4F<C0HC0H,040040,04004010400395 L039C8E<C4GC4G,040040,04004010400396 L039D2D<C8FC8F,040040,04004010400397 L039D6C<D2ED2E,040040,04004010400398 L039E0B<D6DD6D,040040,04004010400399 L039E4A<E0CE0C,040040,04004010400400 L039E8{<E4BE4B,040040,04004010400401 L039F1I<E8AE8A,040040,04004010400402 L039F5H<F2{F2{,040040,04004010400403 L039F9G<F5IF5I,040040,04004010400404 L039G3F<F9HF9H,040040,04004010400405 L039G7E<G3GG3G,040040,04004010400406 L039H1D<G7FG7F,040040,04004010400407 L039H5C<H1EH1E,040040,04004010400408 L039H9B<H5DH5D,040040,04004010400409 L039I3A<H9CH9C,040040,04004010400410 ?080 L023I5D<I3BI3B,R0JI5A,I5BI5C10400411 19560005049008. * 10E-0000000050 L032I8F,I5FI5I,I6BI6F,I6II8B10400412 000050005000 L012I9H,I9C040,040040,04004010400413 /164080 0414
The following is a deck from Ed Thelen labeled"SubRoutPi8K.cd" - a program to compute 2,000 digits of Pi in a 8,000 character 1401 ( equiped with options) ,008015,022026,030037,044,049,053053N000000N00001026 0001 L068116,105106,110117B101/I9Z#071029C029056B026/B001/0991,001/001117I0{0002 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003 000 L003089,040040,040040,04004010400004 000 L003094,040040,040040,04004010400005 000000000000000000000000000000001000002L039135,100106,112118,12413010400006 0000250571210000001000000000MR5/R5\ L035170,142148,154155,16404010400007 MR5SR4ZB335 L011181,178040,040040,04004010400008 MR4ZR4YMR5SQ49MQ49Q48MR5U809MR5V154 L035369,342349,356363,04004010400009 M141111B428MR5SQ49MQ49Q48MR5Y809MR5S154L039408,377381,388395,40204010400010 M147111B428B626.164H625M123153M123105 L037445,416420,424428,43243910400011 M129117MR6/089MR5/Q50%111807MQ43Q50 L035480,453460,467474,04004010400012 M163807MQ5090\MR5/90\%117Q57M89T90\ L035515,488495,502509,04004010400013 M163Q57MR5/90\B5561541MR5V154S90\R5\ L036551,523530,538545,04004010400014 B570A90\R5\MR5S154A129105A135117 L032583,556563,570577,04004010400015 B5968\10B460A129153H0890\1C153R6VB584/ L038621,592596,603610,61704010400016 B000H800MR6Y089M123105/332/MR8/269 L034655,626630,637644,64864910400017 ,265M9\/256H0890/02/252,203214,225236 L037692,660667,674675,67968610400018 ,247265AR8W269M9\/212H0890/0M9\/223 L035727,700707,714721,04004010400019 H0890/0M9\/234H0890/0M9\/245H0890/0 L035762,735742,749756,04004010400020 M9\/256H0890/02AR9S105CR9Y105B675TB000 L038800,770777,778785,79279710400021 L039839<801801,040040,04004010400022 L039878<840840,040040,04004010400023 L039917<879879,040040,04004010400024 L039956<918918,040040,04004010400025 L039995<957957,040040,04004010400026 L039\34<996996,040040,04004010400027 L039\73<\35\35,040040,04004010400028 L039/12<\74\74,040040,04004010400029 L039/51</13/13,040040,04004010400030 L039/90</52/52,040040,04004010400031 L039S29</91/91,040040,04004010400032 L039S68<S30S30,040040,04004010400033 L039T07<S69S69,040040,04004010400034 L039T46<T08T08,040040,04004010400035 L039T85<T47T47,040040,04004010400036 L039U24<T86T86,040040,04004010400037 L039U63<U25U25,040040,04004010400038 L039V02<U64U64,040040,04004010400039 L039V41<V03V03,040040,04004010400040 L039V80<V42V42,040040,04004010400041 L039W19<V81V81,040040,04004010400042 L039W58<W20W20,040040,04004010400043 L039W97<W59W59,040040,04004010400044 L039X36<W98W98,040040,04004010400045 L039X75<X37X37,040040,04004010400046 L039Y14<X76X76,040040,04004010400047 L039Y53<Y15Y15,040040,04004010400048 L039Y92<Y54Y54,040040,04004010400049 L039Z31<Y93Y93,040040,04004010400050 L039Z70<Z32Z32,040040,04004010400051 L039}09<Z71Z71,040040,04004010400052 L039}48<}10}10,040040,04004010400053 L039}87<}49}49,040040,04004010400054 L039J26<}88}88,040040,04004010400055 L039J65<J27J27,040040,04004010400056 L039K04<J66J66,040040,04004010400057 L039K43<K05K05,040040,04004010400058 L039K82<K44K44,040040,04004010400059 L039L21<K83K83,040040,04004010400060 L039L60<L22L22,040040,04004010400061 L039L99<L61L61,040040,04004010400062 L039M38<M00M00,040040,04004010400063 L039M77<M39M39,040040,04004010400064 L039N16<M78M78,040040,04004010400065 L039N55<N17N17,040040,04004010400066 L039N94<N56N56,040040,04004010400067 L039O33<N95N95,040040,04004010400068 L039O72<O34O34,040040,04004010400069 L039P11<O73O73,040040,04004010400070 L039P50<P12P12,040040,04004010400071 L039P89<P51P51,040040,04004010400072 L039Q28<P90P90,040040,04004010400073 L022Q50<Q29Q29,801040,04004010400074 L039Q89<Q51Q51,040040,04004010400075 L039R28<Q90Q90,040040,04004010400076 L039R67<R29R29,040040,04004010400077 L039{06<R68R68,040040,04004010400078 L039{45<{07{07,040040,04004010400079 L039{84<{46{46,040040,04004010400080 L039A23<{85{85,040040,04004010400081 L039A62<A24A24,040040,04004010400082 L039B01<A63A63,040040,04004010400083 L039B40<B02B02,040040,04004010400084 L039B79<B41B41,040040,04004010400085 L039C18<B80B80,040040,04004010400086 L039C57<C19C19,040040,04004010400087 L039C96<C58C58,040040,04004010400088 L039D35<C97C97,040040,04004010400089 L039D74<D36D36,040040,04004010400090 L039E13<D75D75,040040,04004010400091 L039E52<E14E14,040040,04004010400092 L039E91<E53E53,040040,04004010400093 L039F30<E92E92,040040,04004010400094 L039F69<F31F31,040040,04004010400095 L039G08<F70F70,040040,04004010400096 L039G47<G09G09,040040,04004010400097 L039G86<G48G48,040040,04004010400098 L039H25<G87G87,040040,04004010400099 L039H64<H26H26,040040,04004010400100 L039I03<H65H65,040040,04004010400101 L039I42<I04I04,040040,04004010400102 L039I81<I43I43,040040,04004010400103 L03902\<I82I82,040040,04004010400104 L03905Z<02/02/,040040,04004010400105 L03909Y<06\06\,040040,04004010400106 L03913X<09Z09Z,040040,04004010400107 L03917W<13Y13Y,040040,04004010400108 L03921V<17X17X,040040,04004010400109 L03925U<21W21W,040040,04004010400110 L03929T<25V25V,040040,04004010400111 L03933S<29U29U,040040,04004010400112 L03937/<33T33T,040040,04004010400113 L03941\<37S37S,040040,04004010400114 L03944Z<41/41/,040040,04004010400115 L03948Y<45\45\,040040,04004010400116 L03952X<48Z48Z,040040,04004010400117 L03956W<52Y52Y,040040,04004010400118 L03960V<56X56X,040040,04004010400119 L03964U<60W60W,040040,04004010400120 L03968T<64V64V,040040,04004010400121 L03972S<68U68U,040040,04004010400122 L03976/<72T72T,040040,04004010400123 L03980\<76S76S,040040,04004010400124 L03983Z<80/80/,040040,04004010400125 L03987Y<84\84\,040040,04004010400126 L02290\<87Z87Z,Q51040,04004010400127 L03993Z<90/90/,040040,04004010400128 L03997Y<94\94\,040040,04004010400129 L039\1X<97Z97Z,040040,04004010400130 L039\5W<\1Y\1Y,040040,04004010400131 L039\9V<\5X\5X,040040,04004010400132 L039/3U<\9W\9W,040040,04004010400133 L039/7T</3V/3V,040040,04004010400134 L039S1S</7U/7U,040040,04004010400135 L039S5/<S1TS1T,040040,04004010400136 L039S9\<S5SS5S,040040,04004010400137 L039T2Z<S9/S9/,040040,04004010400138 L039T6Y<T3\T3\,040040,04004010400139 L039U0X<T6ZT6Z,040040,04004010400140 L039U4W<U0YU0Y,040040,04004010400141 L039U8V<U4XU4X,040040,04004010400142 L039V2U<U8WU8W,040040,04004010400143 L039V6T<V2VV2V,040040,04004010400144 L039W0S<V6UV6U,040040,04004010400145 L039W4/<W0TW0T,040040,04004010400146 L039W8\<W4SW4S,040040,04004010400147 L039X1Z<W8/W8/,040040,04004010400148 L039X5Y<X2\X2\,040040,04004010400149 L039X9X<X5ZX5Z,040040,04004010400150 L039Y3W<X9YX9Y,040040,04004010400151 L039Y7V<Y3XY3X,040040,04004010400152 L039Z1U<Y7WY7W,040040,04004010400153 L039Z5T<Z1VZ1V,040040,04004010400154 L039Z9S<Z5UZ5U,040040,04004010400155 L039}3/<Z9TZ9T,040040,04004010400156 L039}7\<}3S}3S,040040,04004010400157 L039J0Z<}7/}7/,040040,04004010400158 L039J4Y<J1\J1\,040040,04004010400159 L039J8X<J4ZJ4Z,040040,04004010400160 L039K2W<J8YJ8Y,040040,04004010400161 L039K6V<K2XK2X,040040,04004010400162 L039L0U<K6WK6W,040040,04004010400163 L039L4T<L0VL0V,040040,04004010400164 L039L8S<L4UL4U,040040,04004010400165 L039M2/<L8TL8T,040040,04004010400166 L039M6\<M2SM2S,040040,04004010400167 L039M9Z<M6/M6/,040040,04004010400168 L039N3Y<N0\N0\,040040,04004010400169 L039N7X<N3ZN3Z,040040,04004010400170 L039O1W<N7YN7Y,040040,04004010400171 L039O5V<O1XO1X,040040,04004010400172 L039O9U<O5WO5W,040040,04004010400173 L039P3T<O9VO9V,040040,04004010400174 L039P7S<P3UP3U,040040,04004010400175 L039Q1/<P7TP7T,040040,04004010400176 L039Q5\<Q1SQ1S,040040,04004010400177 L039Q8Z<Q5/Q5/,040040,04004010400178 L039R2Y<Q9\Q9\,040040,04004010400179 ?080 L026R5U<R2ZR2Z,90/R5/,R5SR5T10400180 19560002049008. * 10E-0000000050 L032R8W,R5WR5Z,R6SR6W,R6ZR8S10400181 000050002000 L012R9Y,R9T040,040040,04004010400182 /164080 0183
The following is a deck from Ed Thelen labeled"V4.cd" needs a guest name card and date card after the .obj and before the data cards ,008015,022026,030037,044,049,053053N000000N00001026 0001 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0{0002 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003 000 L003089,040040,040040,04004010400004 000 L003094,040040,040040,04004010400005 000 L003099,040040,040040,04004010400006 11111 L005205<201201,040040,04004010400007 000N/0801MJ29/82MJ32337MU74U24 L030364,338339,343344,35135810400008 M337089MJ32094M0\1S05MS05U}0AS51089 L035399,372379,386393,04004010400009 AS51094CJ35094B431SCJ36S05B379/M089337 L038437,407414,419426,43104010400010 B605MU74U24M337089MJ39094M0\1S05MS05U}0L039476,442449,456463,47004010400011 AS51089AS51094CJ35094B515SCJ36S05B463/ L038514,484491,498503,51004010400012 M089337B605MJ40/82MU99U24B605MV24U24 L036550,522526,533540,54404010400013 B6051M025U24B605/332/,201 L025575,555556,563567,57157210400014 ,2661M0652651M0653302B580 L025600,580581,588589,59659710400015 .601H/80MS47/98MS47/90MJ39S39/332/ L034634,605609,616623,63063410400016 M/90089MU\0S05AS51/90MJ43S14CJ44S05 L035669,642649,656663,04004010400017 B686/MJ45S13B870CJ46S05B709/MJ29S13B870L039708,675682,686693,69870510400018 CJ47S05B732/MJ48S13B870DS05S14CS05S48 L037745,716721,728732,73904010400019 B769/MJ49S13MS48S14B870CJ50S05B870U L035780,751758,765769,77604010400020 CJ51S05B800TAS52S13CJ52S05B819TAS52S13 L038818,788793,800807,81204010400021 CJ53S05B838TAS52S13CCJ50S05B870SB870T L037855,826831,838839,84685110400022 MS47S14MJ36S05NMS14S31AS14S31AS14S31 L036891,863870,871878,88504010400023 AS14S31AS14S31AS14S31AS14S31AS31S31 L035926,899906,913920,04004010400024 MS31S14A/98S14A/98S14AS55S14MS39099 L035961,934941,948955,04004010400025 MS14089MVS4S22MJ32094CSP1S22B\27T L033994,969976,983990,04004010400026 MS05S06SSP1S22DS22S69MS69S22B\34MJ36S06L039\33,\02\09,\16\23,\2704010400027 AJ39094MS062{1AJ56099CJ40/82B\81S L033\66,\41\48,\55\62,04004010400028 MS062{1AJ56099CJ59094B983TAJ56099 L033\99,\74\81,\88\93,04004010400029 CJ40/82B/19SAJ56099M099S39CJ62099B635T2L039/38,/07/12,/19/26,/33/3810400030 CJ40/82B/52S2AS51/98CJ65/98B616T/332 L036/74,/46/51,/52/59,/66/7110400031 /2B00000WCOL'000 L016/90,/76/77,/81/82,/83/8810400032 WROW'000PCHAR'00INDX'111 L024S14,/96/99,S05S06,S07S1210400033 MASK2'00WORK3'000PCOL'000ZERO3 L030S44,S21S23,S29S32,S37S4010400034 0000001100200516 L016S60,S48S49,S52S53,S56S5910400035 0804020101608 L013S73,S63S65,S67S69,S70S7210400036 04020100 L008S81,S76S78,S80040,04004010400037 0000000000000000000000000 L025U24,040040,040040,04004010400038 L025U74,040040,040040,04004010400039 VISITED THE COMPUTER L025U99,040040,040040,04004010400040 HISTORY MUSEUM 00000000000000L039V38,040040,040040,04004010400041 0412040404041414170102030431 L028V66<V39V39,040040,04004010400042 3102040201011402061018310202 L028V94<V67V67,040040,04004010400043 3116300101171406081630171714 L028W22<V95V95,040040,04004010400044 3101020408080814171714171714 L028W50<W23W23,040040,04004010400045 1417171501021200000000001212 L028W78<W51W51,040040,04004010400046 1417171731171730171730171730 L028X06<W79W79,040040,04004010400047 1417161616171424181717171824 L028X34<X07X07,040040,04004010400048 3116163016163131161630161616 L028X62<X35X35,040040,04004010400049 1417162317171517171731171717 L028X90<X63X63,040040,04004010400050 1404040404041400000031000000 L028Y18<X91X91,040040,04004010400051 0702020202181217182224221817 L028Y46<Y19Y19,040040,04004010400052 1616161616163117272121171717 L028Y74<Y47Y47,040040,04004010400053 1717252119171714171717171714 L028Z02<Y75Y75,040040,04004010400054 3017173016161614171717212213 L028Z30<Z03Z03,040040,04004010400055 3017173020181700000000120408 L028Z58<Z31Z31,040040,04004010400056 0001020304160015161614010130 L028Z86<Z59Z59,040040,04004010400057 3104040404040417171717171714 L028}14<Z87Z87,040040,04004010400058 1717171717100417171721212110 L028}42<}15}15,040040,04004010400059 1717100410171717171710040404 L028}70<}43}43,040040,04004010400060 3101020408163114171921251714 L028}98<}71}71,040040,04004010400061 1234567890123456789012345678901000012 L038J36,J29J30,J33J36,04004010400062 00200 ,3.- L011J47,J40J41,J44J45,J46J4710400063 24ZSJA001 L009J56,J49J50,J51J52,J53J5410400064 009132007 L009J65,J60J63,040040,04004010400065 /338080 0066 STEVE WOZNIAK JANUARY 3, 2007 1 2 TEXT BY ROBERT GARNER 1 2 1 2 IBM 1401 1 2 1 2 THE IBM 1401 !DATA PROCESSING SYSTEM!, INTRODUCED IN OCTOBER 1959 1 , WAS THE !MODEL-T FORD OF THE COMPUTER INDUSTRY! AND !ONE OF THE 2 MOST IMPORTANT AND SUCCESSFUL PRODUCTS IBM HAD EVER ANNOUNCED.! A 1 BOUT 15,000 1401-FAMILY COMPUTERS WERE MANUFACTURED AND DELIVERED 2 WORLDWIDE IN THE 1960\S, FAR EXCEEDING INITIAL EXPECTATIONS. BY M 1 ARCH 1961, AFTER ONLY A SINGLE YEAR OF FULL PRODUCTION, 2,000 2 MACHINES HAD ALREADY BEEN DELIVERED TO CUSTOMERS. BY THE VERY NEX 1 T YEAR, 1962, INCOME FROM THE IBM 1401 SURPASSED OLDER 2 CARD-PUNCH/UNIT-RECORD ACCOUNTING MACHINES FOR THE FIRST TIME. BY 1 1964, 40% OF ALL EXISTENT COMPUTERS WERE 1BM 1401-FAMILY 2 MACHINES. ITS FOLLOW-ON FAMILY COMPATABLE MACHINES, 1410, 1440 AN 1 D 1460, WERE SOLD UNTIL 1970. THE 1400 FAMILY WAS SO SUCCESSFUL 2 THAT IT LED TO THE INDUSTRY\S FIRST PROGRAM-COMPATIBLE COMPUTER C 1 LONE, THE HONEYWELL H-200, OR !LIBERATOR.! A RUMORED 1480 WAS 2 DISCONTINUED IN FAVOR OF THE 360/25. 1 2 1 2 THE GOAL OF THE 1401 DESIGN WAS TO OFFER A FLEXIBLE BUSINESS COMP 1 UTER OF AT LEAST THREE TIMES THE SPEED AND AT LOWER COST THAN THE 2 UBIQUITOUS, CARD/UNIT-RECORD, COLLATE/MERGE/PRINT, PLUG-BOARD-BAS 1 ED ACCOUNTING MACHINES OF THE 1950\S "SUCH AS THE IBM 407 AND 2 604<. ALTHOUGH OFFERING A GENERAL-PURPOSE COMPUTER WITH PROGRAMMA 1 BLE MAGNETIC-CORE MEMORY WAS A COST RISK, BY CLEVER ARCHITECTURE 2 DESIGN AND USE OF MODERATE-SPEED, ECONOMIC TRANSISTOR CIRCUITS, T 1 HE GOAL WAS ACHIEVED. BY FIRST READING CARD/UNIT-RECORD 2 INFORMATION INTO THE MAIN MEMORY OF THE 1401 BEFORE MANIPULATING 1 IT, COLLATE/MERGE/PRINT OPERATIONS WERE MUCH FASTER THAN ON THE 2 OLD CARD MACHINES. AND THE DATA COULD BE QUICKLY ACCESSED TO/FROM 1 MAGNETIC TAPE FOR STORAGE - MUCH FANTER THAN HANDLING DECKS OF 2 CARDS "WHICH ALSO WORE OUT AND HAD TO BE REJUVENATED VIA DUPLICAT 1 ION<. 2 1 2 THE 1401 ARCHITECTURE WAS DESIGNED FOR EFFICIENTLY HANDLING BUSIN 1 ESS DATA-PROCESSING APPLICATIONS. ITS CENTRAL PROCESSING UNIT 2 "CPU< CAN EFFICIENTLY MANIPULATE VARIABLE-LENGTH CHARACTER STRING 1 S AND PERFORM VARIABLE-LENGTH DECIMAL ARITHMETIC "UNLIKE TODAY\S 2 FIXED-WIDTH BINARY ARITHMETIC<. FOR INSTANCE, THE CPU CAN OPERATE 1 ON TWO NUMBERS WHERE EACH IS OF AN ARBITRARY LENGTH OR NUMBER OF 2 CHARACTERS. A 1401 CHARACTER IS ENCODED IN 6 BITS, AN END-OF-WORD 1 !WORD MAKE! FLAG BIT, AND A PARITY CHECK BIT. NOTE THAT EVEN 2 THOUGH A CHARACTER WAS 8 BITS WIDE, THE TERM !BYTE! HAD NOT BEEN 1 INVENTED YET. 2 1 2 1401 SYSTEMS COULD BE CONFIGURED WITH 1,400 TO 16,000 CHARACTERS 1 OF MAGNETIC CORE MEMORY "4,000 MIN TYPICAL<. MEMORY IS ADDRESSED 2 VIA DECIMAL CHARACTER STRINGS, NOT BINARY DIGITS AS IN NEARLY ALL 1 CONTEMPORARY COMPUTERS. MAGNETIC CORES RETAIN EITHER A !1! OF 2 !0! DEPENDING ON THE CLOCKWISE OR COUNTERCLOCKWISE DIRECTION OF T 1 HE STORED MAGNETIC FIELD. 2 1 2 AN EXALTED FEATURE OF THE 1401 WAS ITS RELIABLE AND ROBUST INPUT/ 1 OUTPUT PERIPHERALS - A LONG IBM TRADITION INCLUDING AN 800-CARD 2 PER MINUTE CARD READER, A 250-CARD-PER-MINUTE CARD PUNCH, A 600-L 1 INE-PER-MINUTE LINE !CHAIN! PRINTER, UP TO SIX REEL-TO-REEL TAPE 2 DRIVES, AND A 20-MILLION-CHARACTER MAGNETIC DISK STORAGE UNIT. TH 1 E SYSTEM AND PERIPHERALS CONTAINED CONSIDERABLE ERROR CHECKING 2 LOGIC. 1 2 1 2 THE 1401 MAY HAVE BEEN EQUIBALENT TO THE MODEL-T IN POPULARITY FO 1 R IBM, BUT WAS FAR MORE COMPLICATED TO MANUFACTURE. WHEREAS THE 2 MODEL-T HAS ABOUT XX COMPONENTS, A LARGE 1401 SYSTEM COMPRISES AB 1 OUT 20,000 MECHANICAL PARTS AND ABOUT 50,000 ELECTRICAL 2 COMPONENTS "10,000 TRANSISTORS AND 14,000 DIODES ON 3,000 CARDS<. 1 2 1 2 A TYPICAL, 4K-CHARACTER 1401 SYSTEM RENTED FOR ABOUT $7,000 PER M 1 ONTH IN THE 1960\S, EQUIVALENT TO $42,000 PER MONTH IN TODAY\S 2 DOLLARS "6X DUE TO INFLATION<. THIS RENTAL FEE INCLUDED MAINTENAN 1 CE SERVICE AND OPTIONS FEATURES. A TYPICAL 1401 SYSTEM WOULD HAVE 2 COST ABOUT $370,000 IF PURCHASED OUTRIGHT IN 1961 OR $2,240,000 I 1 N TODAY\S DOLLARS. MOST SYSTEMS WERE RENTED, A !CASH COW! FOR 2 IBM. 1 2 1 2 MAIN MEMORY ITSELF WAS VERY EXPENSIVE IN THE 1960\S' ONE 8-BIT CH 1 ARACTER OF 1400 CORE MEMORY IN THE 1960\S COST ABOUT FIVE DOLLARS 2 "OR $30 TODAY<. THIS IS 300 MILLION TIMES MORE EXPENSIVE THAT TOD 1 AY\S COST OF MEMORY "ABOUT 0.1 MICRO-DOLLARS PER BYTE<. 2 1 2
return to main page