DAP
Demo Assurance Program
by Dan McInnis
Notes from Dan McInnis DAP.cd The write up should be done in conjunction with running since SIMH doesn't give exactly the same indications as the real 1401, I think. It will require that the printer,punch, reader and tape unit 1 be on. It reads the data card, compares what it read with what it thinks it should be, prints two card images, punches two card images,writes two card images to tape, backspaces, reads the image and compares the first 12 characters. I had a bunch of branch on errors but SIMH didn't like how I did it so took them out. Also had skip two spaces between each print line but SIMH didn't like that either. Therefore we have at this juncture a trimmed down program without much checking. I guess my feel is this should just make sure the devices are operational. If this gets off the ground, I can put in more checking and stuff. If you should get to run DAP, there are two halts. the first at address 346, is to make sure everything is turned on. The second at 546 would mean program completion. Halt 530 or 531 read error, 532 tape error. Printer or punch error would be from inspection or output. --- object deck of 1401 DEMONSTRATION ASSURANCE PROGRAM --- ,008015,019026,030,034041,045,053,0570571026 0001 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003 /080,001/332/.FA1 L017349,337341,345346,34734910400004 C012549B530/,351A552353C353555B393S)351L039388,357362,366373,38038510400005 B350,073C080545B531/)073M0802802 L032420,393397,404409,41342010400006 M5562012M0801804M5571014L550081 L031451,428429,436437,44444510400007 /299L550281U%U1RM%U1001WM%U1001WU%U1B L037488,456463,468476,48404010400008 M%U1201R,201C212549B532/22U%U1R L031519,497501,508513,51451510400009 /299FA.341...2 L014533,524526,530531,53253310400010 .5260123456789SK"1208412 L024557,538550,551553,55655710400011 /333080 0012 0123456789SK0123456789SK0123456789SK0123456789SK0123456789SK0123456789SK01234567 --- end of deck ---
CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1
CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2
BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3
0 1401 DEMONSTRATION ASSURANCE PROGRAM (DAP) PAGE 1
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
101 JOB 1401 DEMONSTRATION ASSURANCE PROGRAM (DAP)
102 * CTL 6611
103 ***************************************************************************
104 *
105 *
106 * PROVIDE A PROGRAM TO ASSURE ALL COMPONENTS OF THE
107 * 1401 SYSTEM ARE OPERATIONAL. TO BE USED BY DEMONSTRATORS
108 * BEFORE RUNNING DEMONSTRATIONS FOR MUSEUM VISITORS.
109 *
110 * PROGRAM WRITTEN IN AUTOCODER
111 * PROGRAMMER: DAN MCINNIS
112 * DATE: APRIL 16, 2007
113 *
114 ***************************************************************************
115 *
116 ORG 333 0333
117 *
118 *
119 * CLEAR CARD READER STORAGE AND SET WORD MARK AT LOCATION 1
120 *
121 BEGIN CS 080 4 0333 / 080 4
122 SW 001 4 0337 , 001 4
123 * CLEAR PRINT STORAGE
124 START CS 332 4 0341 / 332 4
125 CS 1 0345 / 4
126 H *HALT CHECK PRINTER,PUNCH,TA 1 0346 . 4
127 * READ DATA CARD AND TEST VALIDITY
128 CC A *SKIP PAPER TO CHANNEL 1 2 0347 F A 4
129 R *READ DATA CARD 1 0349 1 4
130 CLOOP C 012,CDDATA *COMPARE 12 CHARS IN CARD AR 7 0350 C 012 549 5
131 BU RDER1 *BRANCH IF UNEQUAL - READ E 5 0357 B 530 / 5
132 SW *-14 *SET WORD MARK FOR ADD 4 0362 , 351 5
133 A @12@,*-19 *ADD 12 TO CARD AREA ADDRESS 7 0366 A 552 353 5
134 C *-26,@084@ *COMPARE ADDRESS LAST FULL A 7 0373 C 353 555 5
135 BE ENDRD *IF LAST GO TO NEXT COMPARE 5 0380 B 393 S 5
136 CW *-37 *CLEAR WORD MARK FROM ADDRES 4 0385 ) 351 5
137 B CLOOP *GO BACK TO COMPARE AGAIN 4 0389 B 350 6
138 ENDRD SW 073 *LAST AREA SET WORD MARK 4 0393 , 073 6
139 C 80,CDDATA-4 *COMPARE 8 CHARACTERS 7 0397 C 080 545 6
140 BU RDER2 *BRANCH IF UNEQUAL- READ ERR 5 0404 B 531 / 6
141 CW 073 *CLEAR WORD MARKREAD AREA 4 0409 ) 073 6
142 MCW 080,280 *MOVE CARD DATA PRINT AREA 7 0413 M 080 280 6
143 W *PRINT DATA 1 0420 2 6
144 MCW @1@,201 7 0421 M 556 201 7
145 W *PRINT DATA AGAIN 1 0428 2 7
146 MCW 080,180 *MOVE DATA TO PUNCH AREA 7 0429 M 080 180 7
147 P *PUNCH CARD 1 0436 4 7
1 1401 DEMONSTRATION ASSURANCE PROGRAM (DAP) PAGE 2
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
148 MCW @2@,101 7 0437 M 557 101 7
149 P *PUNCH ANOTHER CARD 1 0444 4 7
150 TAPE LCA GRPMRK,081 *GROUP MARK TO 81 7 0445 L 550 081 7
151 CS 299 *CLEAR PRINT AREA 4 0452 / 299 8
152 LCA GRPMRK,281 *GROUP MARK TO 281 7 0456 L 550 281 8
153 RWD 1 *REWIND TAPE 1 5 0463 U %U1 R 8
154 WT 1,001 *WRITE CARD AREA TO TAPE 1 8 0468 M %U1 001 W 8
155 WT 1,001 *WRITE SECOND RECORD 8 0476 M %U1 001 W 8
156 BSP 1 *BACKSPACE OVER LAST RECORD 5 0484 U %U1 B 8
157 RT 1,201 *READ IN RECORD 8 0489 M %U1 201 R 9
158 SW 201 *SW PRINT AREA 4 0497 , 201 9
159 C 212,CDDATA *COMPARE FIRST 12 CHARS 7 0501 C 212 549 9
160 BU TPER1 *TAPE ERROR 5 0508 B 532 / 9
161 W 1 0513 2 9
162 W *PRINT TAPE DATA 1 0514 2 9
163 RWD 1 *REWIND TAPE 5 0515 U %U1 R 9
164 CS 299 *CLEAR PRINT AREA 4 0520 / 299 10
165 CC A *SKIP PAPER TO BEGINNING 2 0524 F A 10
166 END H START *RESTART PROGRAM 4 0526 . 341 10
167 * START OF ERROR HALT LOCATIONS
168 RDER1 H 1 0530 . 10
169 RDER2 H 1 0531 . 10
170 TPER1 H *DEBUG HALT INST 1 0532 . 10
171 W 1 0533 2 10
172 H END 4 0534 . 526 11
173 * START OF LITERAL LOCATION
174 CDDATA DCW @0123456789SK@ *DATA 12 0549 11
175 GRPMRK DCW @"@ *GROUP MARK 1 0550 GMARK 11
DCW @12@ 2 0552 LIT 11
DCW @084@ 3 0555 LIT 11
DCW @1@ 1 0556 LIT 11
DCW @2@ 1 0557 LIT 11
176 END BEGIN / 333 080
1 1401 DEMONSTRATION ASSURANCE PROGRAM (DAP) PAGE 3
0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS
BEGIN 333 CDDATA 549 CLOOP 350 END 526 ENDRD 393 GRPMRK 550 RDER1 530
RDER2 531 START 341 TAPE 445 TPER1 532