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.*/