From: Bob Feretich Date: October 5, 2005 10:21:07 AM PDT To: bob@cardamation.com Cc: Robert Garner Subject: Cards Punch Service Order for Computer History Museum We wish to place an order for the punching of 849 cards. The ASCII card images are contained in the attached file. Use standard 80 column form 5081 card stock. One of the two upper corners should be cut. Interpretive printing should be done in the coresponding columns, above the 12 row of the card. The card images have already been translated to Cardamations USASCII representation, so no additional translation should be necessary. The fee quoted for this job is $0.12 per card. 849 cards @ $.12 = $101.88 You have permission to charge my credit card for the price of the job, sales tax (if any), shipping fees, and handling fees. Credit Card Information Type: ------------ Number: ************---- (full card number supplied by telephone) Exp Dt: ------ Name: -------------- Address: ----------------- --------------- Ship cards to: Computer History Museum Attn: Bob Feretich / 1401 Restoratio Team 1401 N. Shoreline Blvd. Mountain View, CA 94043 ,008015,036040B036 1001 LOAD TEST 0001B 0A ,008015,022029L030T99LT99T98 LOAD 1400 POS. WITH BLANKS 0001B 02 ,008015,022029L030T99LT99T98 G LOAD 1400 POS. WITH G 0001B 03 ,008015,022029L030Z99LZ99Z98 LOAD 2000 POS. WITH BLANKS 0001B 04 ,008015,022029L030Z99LZ99Z98 G LOAD 2000 POS. WITH G 0001B 05 ,008015,022029L030I99LI99I98 LOAD 4000 POS. WITH BLANKS 0001B 06 ,008015,022029L030I99LI99I98 G LOAD 4000 POS. WITH G 0001B 07 ,008015,036040B036 1001 MOVE TEST 0002B 0A ,008015,022029,036040M040T99MT99T98.0221 MOVE 1 1399 THRU 040 0002B 02 ,008015,022029,036040M040T99MT99T98.0222 MOVE 2 1399 THRU 040 0002B 03 ,008015,022029,036040M040T99MT99T98.0224 MOVE 4 1399 THRU 040 0002B 04 ,008015,022029,036040M040T99MT99T98.0228 MOVE 8 1399 THRU 040 0002B 05 ,008015,022029,036040M040T99MT99T98.022A MOVE A 1399 THRU 040 0002B 06 ,008015,022029,036040M040T99MT99T98.022B MOVE B 1399 THRU 040 0002B 07 ,008015,022029,036040M040T99MT99T98.022D MOVE D 1399 THRU 040 0002B 08 ,008015,022029,036040M040T99MT99T98.022G MOVE G 1399 THRU 040 0002B 09 ,0080121001 SENSE SWITCHES 0003B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0003B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0003B 03 L057S4510012,049L0772772/277240/6080L/892702/2702413 CARD 1 OF 3 0003B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0003B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0003B 06 L0313961001B399S551 USE WHEN TESTS ARE RUN FROM TAPE 0003B 07 L0314041001BS88 ,, 0003B 08 L0314181001. STOP TO SET SW. ON WHEN RUN FROM TAPE 0003B 09 L0314191001/332 START TEST 0003B 10 L0314231001/ 0003B 11 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0003B 12 L0314321001D436603 MOVE 6 INTO LOC 603 & 608 FOR 1ST OPER. 0003B 13 L0314391001D436608 ,, 0003B 14 L0314461001L`20220 LOAD NINES IN -COUNTERS SHOULD BE- FIELD0003B 15 L0314531001L`60250 LOAD ZEROS IN -COUNTERS ARE- FIELD 0003B 16 L0314601001,234237 SET WORD MARKS IN ALL COUNTERS 0003B 17 L0314671001,240243 ,, 0003B 18 L0314741001,246249 ,, 0003B 19 L0314811001B471B B ON TO ADD 0003B 20 L0314861001B478 0003B 21 L0314901001A/09235 ADD 1 TO B CTR 0003B 22 L0314971001B487C C ON TO ADD 0003B 23 L0315021001B494 0003B 24 L0315061001A/09238 ADD 1 TO C CTR 0003B 25 L0315131001B503D D ON TO ADD 0003B 26 L0315181001B510 0003B 27 L0315221001A/09241 ADD 1 TO D CTR 0003B 28 L0315291001B519E E ON TO ADD 0003B 29 L0315341001B526 0003B 30 L0315381001A/09244 ADD 1 TO E CTR 0003B 31 L0315451001B535F F ON TO ADD 0003B 32 L0315501001B542 0003B 33 L0315541001A/09247 ADD 1 TO F CTR 0003B 34 L0315611001B551G G ON TO ADD 0003B 35 L0315661001B558 0003B 36 L0315701001A/09250 ADD 1 TO G CTR 0003B 37 L0315771001A/09232 ADD 1 TO CYCLE CTR 0003B 38 L0315841001C202232 TEST FOR 99 IN CYCLE CTR 0003B 39 L0315911001B462/ BR TO REPEAT IF NOT 99 0003B 40 L0315961001<237240 CLEAR WORD MARKS FROM COUNTERS 0003B 41 L0316031001<243246 ,, 0003B 42 L0316101001<249 ,, 0003B 43 L0316141001C220250 TEST FOR ERROR IN CTRS- ERROR IF UNEQ 0003B 44 L0316211001B650/ CHANGED TO B850/ FOR SECOND OPERATION 0003B 45 L0316261001B673 CHANGED TO B873 FOR SECOND OPERATION 0003B 46 L0316691001L/14285 ERROR PRINT ROUTINE WITH SWITCHES ON 0003B 47 L0316761001B669S521 ,, 0003B 48 L0316841001.696 ,, 0003B 49 L03168810012696 ,, 0003B 50 L0316921001L/19285 CORRECT PRINT ROUTINE WITH SWITCHES ON 0003B 51 L0316991001B692S521 ,, 0003B 52 L0317071001B696 ,, 0003B 53 L03171110012696 ,, 0003B 54 L0317151001.700 STOP TO SET ALL SWITCHES OFF OR CHANGE 0003B 55 L0317151001.700 .700 TO B413 TO REPEAT ON OPERATION 0003B 56 L0317191001L`40220 LOAD 99 AND 12 ZEROS IN CTRS SH BE FIELD0003B 57 L0317261001D858603 MOVE 8 INTO LOC 603 & 608 FOR 2ND OPER. 0003B 58 L0317331001D858608 ,, 0003B 59 L0317401001B434 BRANCH TO EXECUTE SECOND OPERATION 0003B 60 L0318691001L/14285 ERROR PRINT ROUTINE WITH SWITCHES OFF 0003B 61 L0318761001B869S521 ,, 0003B 62 L0318841001.896 ,, 0003B 63 L03188810012896 ,, 0003B 64 L0318921001L/19285 CORRECT PRINT ROUTINE WITH SWITCHES OFF 0003B 65 L0318991001B892S521 ,, 0003B 66 L0319071001B896 ,, 0003B 67 L03191110012896 ,, 0003B 68 L0319151001.900 STOP TO SET SW.FOR NEXT TEST OR CHANGE 0003B 69 L0319151001.900 .900 TO B700 TO REPEAT OFF OPERATION 0003B 70 L0319191001B348 BRANCH TO READ NEXT RECORD 0003B 71 L031`20100199 99 99 99 99 99 99 CYCLE,B,C,D,E,F&G CTRS AFTER ON OPER. 0003B 72 L031`40100199 00 00 00 00 00 00 CYCLE,B,C,D,E,F&G CTRS AFTER OFF OPER. 0003B 73 L031`60100100 00 00 00 00 00 00 CONSTANTS TO SET CTRS TO ZERO 0003B 74 L031/2810011 CONSTANT TO INCREMENT CYCLE COUNTERS 0003B 75 L031/291001ERROR CONSTANTS 0003B 76 L031/341001 ,, 0003B 77 L031/391001COUNTERS SHOULD BE ,, 0003B 78 L031/591001 COUNTERS A ,, 0003B 79 L031/791001RE ,, 0003B 80 L031/991001 ,, 0003B 81 ,019027,031,038042B031T98!B400L046352BW04BS88 SENSE SWITCHES 0003B 82 ,008015,022026,030037,044,049,053053N000000N00001026 00010050B L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0{00020050B ,008015,022029,036040,047054,061068,072/061039 ,001001104000030050B ,008012,00110011B361080AB421/340080 L035367,340344,348349,357361104000040050B L001368,040040,040040,040040104000050050B B389 L005381,040040,040040,040040104000060050B BS88N000M360392/332/BS00S521/080 L032416,389393,400404,405413104000070050B B348,001078L080299L072272,202241M072456L039455,421428,435442,449040104000080050B 493M202474B971224XBBB935BL247267 L033488,460467,475476,477482104000090050B B920M202507B477222XB971 L024512,493500,508512,040040104000100050B L/14285B916E2920.920A920970B9449699/332L039938,907912,916920,927935104000110050B /B421S970B957CB9582B421D L024962,940944,948953,957958104000120050B B348000{B935BB900 L018980,967971,976980,040040104000130050B ERROR D MODIFIER L030/39,/15/20,040040,040040104000140050B B FIELD CHARACTERS L020/59,040040,040040,040040104000150050B RESULT SHOULD BE L020/79,040040,040040,040040104000160050B RESULT IS 2,049L0772772/2772 L038S17,S00S01,S05S12,S13S17104000170050B 40/6080L/892702/2702413 L028S45,S25S29,S36S37,S41S45104000180050B /333080 00190050B ,019027,031,038042B031T98!B400L046352BW04BS88 TEST CHARACTER & BRANCH 0050B 16 EQUAL B0050B 17 ! ! EQUAL B0050B 18 1 1 EQUAL B0050B 19 2 2 EQUAL B0050B 20 4 4 EQUAL B0050B 21 8 8 EQUAL B0050B 22 / / EQUAL B0050B 23 - - EQUAL B0050B 24 124 UNEQUAL N0050B 25 8/- UNEQUAL N0050B 26 1 24 UNEQUAL N0050B 27 1 8/- UNEQUAL N0050B 28 2 14 UNEQUAL N0050B 29 2 8/- UNEQUAL N0050B 30 4 12 UNEQUAL N0050B 31 4 8/- UNEQUAL N0050B 32 8 12 UNEQUAL N0050B 33 8 4/- UNEQUAL N0050B 34 / 48- UNEQUAL N0050B 36 / 12 UNEQUAL N0050B 35 - 12 UNEQUAL N0050B 37 - 48/ UNEQUAL N0050B 38 ,008015,022029,036040,047054,061068,072/061039 ,001001104000030060B ,008012,00110011B361080AB421/340080 L035367,340344,348349,357361104000040060B L001368,040040,040040,040040104000050060B 2,049L0772772/277240/60 L025S24,S01S05,S12S13,S17S18104000060060B 80L/892702/2702413 L021S45,S29S36,S37S41,S45040104000070060B B389 L005381,040040,040040,040040104000080060B BS88N000M360392/332/BS00S521/080 L032416,389393,400404,405413104000090060B B348,001078L080299L072272B537224* L033449,421428,435442,040040104000100060B B537224%B493041 M201480V508224XVVV L034483,458466,473481,482483104000110060B B517 L005488,040040,040040,040040104000120060B M201507V517224XB935BB900B935B,241 L033525,500508,513517,522040104000130060B L247267B920,224B458 L020545,533537,541545,040040104000140060B L/14285B916E2920.920A920970B9449699/332L039938,907912,916920,927935104000150060B /B421S970B957CB9582B421D L024962,940944,948953,957958104000160060B B348000{ L009971,967971,040040,040040104000170060B ERROR D MODIFIER L030/39,/15/20,040040,040040104000180060B B FIELD CHARACTERS L020/59,040040,040040,040040104000190060B RESULT SHOULD BE L020/79,040040,040040,040040104000200060B RESULT IS L020/99,040040,040040,040040104000210060B /333080 00220060B ,019027,031,038042B031T98!B400L046352BW04BS88 TEST ZONE OR WM & BR 0060B 17 B A EQUAL 0060B 18 K K EQUAL 0060B 19 S T EQUAL 0060B 20 2 4 EQUAL 0060B 21 1 * EQUAL 0060B 22 C E EQUAL 0060B 23 L O EQUAL 0060B 24 T X EQUAL 0060B 25 3 8 EQUAL 0060B 26 C * EQUAL 0060B 27 L % EQUAL 0060B 28 T * EQUAL 0060B 29 3 * EQUAL 0060B 30 B KT4* UNEQUAL 0060B 31 K AT4% UNEQUAL 0060B 32 S AK4* UNEQUAL 0060B 33 2 AKT* UNEQUAL 0060B 34 1 AKT4 UNEQUAL 0060B 35 C OX8$ UNEQUAL 0060B 36 L EX8, UNEQUAL 0060B 36 L EX8, UNEQUAL 0060B 37 3 EOX. UNEQUAL 0060B 38 ,008015,022029,036040,047054,061068,072/061039 ,001001104000030100B ,008012,00110011B361080AB421/340080 L035367,340344,348349,357361104000040100B L001368,040040,040040,040040104000050100B 2,049L0772772/277240/60 L025S24,S01S05,S12S13,S17S18104000060100B 80L/892702/2702413 L021S45,S29S36,S37S41,S45040104000070100B B389 L005381,040040,040040,040040104000080100B BS88N000M360392/332/BS00S521/080 L032416,389393,400404,405413104000090100B B348,002078L080299L072272B458046L,222 L037453,421428,435442,450040104000100100B B462,221C203223B491/B935BB508041 B900 L037490,458462,469474,479487104000110100B B935BB508041UB900,241B971 L026516,496504,508512,040040104000120100B L/14285B916E2920.920A920970B9449699/332L039938,907912,916920,927935104000130100B /B421S970B957CB9582B421D L024962,940944,948953,957958104000140100B B348000{L260280B920 L020982,967971,978982,040040104000150100B ERROR A FIELD L030/39,/15/20,040040,040040104000160100B B FIELD L020/59,040040,040040,040040104000170100B RESULT SHOULD BE L020/79,040040,040040,040040104000180100B RESULT IS L020/99,040040,040040,040040104000190100B /333080 00200100B ,019027,031,038042B031T98!B400L046352BW04BS88 COMPARE & BR UNEQUAL 0100B 16 EQUAL 0100B 17 1 UNEQUAL 0100B 18 1 1 EQUAL 0100B 19 1 UNEQUAL 0100B 20 2 2 EQUAL 0100B 21 2 UNEQUAL 0100B 22 3 3 EQUAL 0100B 23 2 UNEQUAL 0100B 24 4 4 EQUAL 0100B 25 4 UNEQUAL 0100B 26 5 5 EQUAL 0100B 27 4 UNEQUAL 0100B 28 6 6 EQUAL 0100B 29 8 UNEQUAL 0100B 30 7 7 EQUAL 0100B 31 8 UNEQUAL 0100B 32 8 8 EQUAL 0100B 33 / UNEQUAL 0100B 34 9 9 EQUAL 0100B 35 / UNEQUAL 0100B 36 / / EQUAL 0100B 37 - UNEQUAL 0100B 38 - - EQUAL 0100B 39 - UNEQUAL 0100B 40 H7 H7 EQUAL 0100B 41 H7 HH UNEQUAL 0100B 42 RW RW EQUAL 0100B 43 RW RW UNEQ LARGER B FIELD 0100B 44 ,008015,022029,036040,047054,061068,072/061039 ,001001104000030110B ,008012,00110011B361080AB421/340080 L035367,340344,348349,357361104000040110B L001368,040040,040040,040040104000050110B B389 L005381,040040,040040,040040104000060110B BS88N000M360392/332/BS00S521/080 L032416,389393,400404,405413104000070110B B348,001078L080299L072272B482 L030446,421428,435442,040040104000080110B L210270LB935B<270C270250B900/B920 L033481,456457,462466,473478104000090110B B502072LB513072M.498,210241B449,241270 L038519,490498,502509,513040104000100110B M210270MB457 L013532,527528,532040,040040104000110110B L/14285B916E2920.920A920970B9449699/332L039938,907912,916920,927935104000120110B /B421S970B957CB9582B421D L024962,940944,948953,957958104000130110B B348000{ L009971,967971,040040,040040104000140110B ERROR A FIELD L030/39,/15/20,040040,040040104000150110B B FIELD L020/59,040040,040040,040040104000160110B RESULT SHOULD BE L020/79,040040,040040,040040104000170110B RESULT IS 2,049L0772772/2772 L038S17,S00S01,S05S12,S13S17104000180110B 40/6080L/892702/2702413 L028S45,S25S29,S36S37,S41S45104000190110B /333080 00200110B ,019027,031,038042B031T98!B400L046352BW04BS88 LOAD MOVE COMPARE 0110B 17 1111111111 1111111111 L0110B 18 2222222222 2222222222 L0110B 19 4444444444 4444444444 L0110B 20 8888888888 8888888888 L0110B 21 ////////// ////////// L0110B 22 ---------- ---------- L0110B 23 AKT4 BLU5 AKT4 BLU5 L0110B 24 CMV6 DNW7 CMV6 DNW7 L0110B 25 EOX8 FPY9 EOX8 FPY9 L0110B 26 GQZ0 HR># GQZ0 HR># L0110B 27 I-,@ &$%0 I-,@ &$%0 L0110B 28 1.*/# GQZ0 HR># M0110B 39 I-,@ &$%0 I-,@ &$%0 M0110B 40 1.*/