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                B     RDERR,?                 *READ ERROR                      5  0350  B 578 ?              5
  131         CLOOP  C     012,CDDATA              *COMPARE 12 CHARS IN CARD AR     7  0355  C 012 601            5
  132                BU    RDERR                   *BRANCH IF UNEQUAL -  READ E     5  0362  B 578 /              5
  133                SW    *-14                    *SET WORD MARK FOR ADD           4  0367  , 356                5
  134                A     @12@,*-19               *ADD 12 TO CARD AREA ADDRESS     7  0371  A 604 358            5
  135                C     *-26,@084@              *COMPARE ADDRESS LAST FULL A     7  0378  C 358 607            5
  136                BE    ENDRD                   *IF LAST GO TO NEXT COMPARE      5  0385  B 398 S              6
  137                CW    *-37                    *CLEAR WORD MARK FROM ADDRES     4  0390  ) 356                6
  138                B     CLOOP                   *GO BACK TO COMPARE AGAIN        4  0394  B 355                6
  139         ENDRD  SW    073                     *LAST AREA SET WORD MARK         4  0398  , 073                6
  140                C     80,CDDATA-4             *COMPARE 8 CHARACTERS            7  0402  C 080 597            6
  141                BU    RDERR                   *BRANCH IF UNEQUAL- READ ERR     5  0409  B 578 /              6
  142                CW    073                     *CLEAR WORD MARKREAD AREA        4  0414  ) 073                6
  143                MCW   080,280                 *MOVE CARD DATA PRINT AREA       7  0418  M 080 280            7
  144                CC    K                       *DOUBLE SPACE                    2  0425  F K                  7
  145                W                             *PRINT DATA                      1  0427  2                    7
  146                CC    K                       *DOUBLE SPACE                    2  0428  F K                  7
  147                MCW   080,280                 *                                7  0430  M 080 280            7
1                          1401 DEMONSTRATION ASSURANCE PROGRAM (DAP)                                     PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148                W                             *PRINT DATA                      1  0437  2                    7
  149                MCW   080,180                 *MOVE DATA TO PUNCH AREA         7  0438  M 080 180            7
  150                P                             *PUNCH CARD                      1  0445  4                    8
  151                B     PCERR,!                 *PUNCH ERROR                     5  0446  B 574 !              8
  152         TAPE   LCA   GRPMRK,081              *GROUP MARK TO 81                7  0451  L 602 081            8
  153                CS    299                     *CLEAR PRINT AREA                4  0458  / 299                8
  154                LCA   GRPMRK,281              *GROUP MARK TO 281               7  0462  L 602 281            8
  155                RWD   1                       *REWIND TAPE 1                   5  0469  U %U1 R              8
  156                WT    1,001                   *WRITE CARD AREA TO TAPE 1       8  0474  M %U1 001 W          8
  157                BER   TPERR                   *IF TAPE TRANSMISSION ERROR      5  0482  B 586 L              9
  158                WT    1,001                   *WRITE SECOND RECORD             8  0487  M %U1 001 W          9
  159                BER   TPERR                   *TAPE ERROR                      5  0495  B 586 L              9
  160                BSP   1                       *BACKSPACE OVER LAST RECORD      5  0500  U %U1 B              9
  161                BER   TPERR                   *TAPE ERROR                      5  0505  B 586 L              9
  162                RT    1,201                   *READ IN FIRST RECORD            8  0510  M %U1 201 R          9
  163                BER   TPERR                   *TAPE ERROR                      5  0518  B 586 L             10
  164                SW    001                     *SW READ AREA                    4  0523  , 001               10
  165                SW    201                     *SW PRINT AREA                   4  0527  , 201               10
  166                C     212,CDDATA              *COMPARE FIRST 12 CHARS          7  0531  C 212 601           10
  167                BU    TPER1                   *TAPE ERROR                      5  0538  B 561 /             10
  168                CC    J                       *DOUBLE SPACE                    2  0543  F J                 10
  169                W                             *PRINT TAPE DATA                 1  0545  2                   10
  170                RWD   1                       *REWIND TAPE                     5  0546  U %U1 R             11
  171                CS    299                     *CLEAR PRINT AREA                4  0551  / 299               11
  172                CC    A                       *SKIP PAPER TO BEGINNING         2  0555  F A                 11
  173         END    H     START                   *RESTART PROGRAM                 4  0557  . 341               11
  174         *  START OF ERROR HALT LOCATIONS
  175         TPER1  H                             *DEBUG HALT INST                 1  0561  .                   11
  176                MCW   @TAPE COMPARE ERROR@,260 *DEBUG INSTRUCTION              7  0562  M 625 260           11
  177                W                                                              1  0569  2                   11
  178                H     END                                                      4  0570  . 557               12
  179         PCERR  H     END                                                      4  0574  . 557               12
  180         RDERR  H     END                                                      4  0578  . 557               12
  181         PTERR  H     END                                                      4  0582  . 557               12
  182         TPERR  H     END                                                      4  0586  . 557               12
  183         *  START OF LITERAL LOCATION
  184         CDDATA DCW   @0123456789SK@          *DATA                           12  0601                      12
  185         GRPMRK DCW   @"@                     *GROUP MARK                      1  0602              GMARK   12
                     DCW   @12@                                                     2  0604              LIT     13
                     DCW   @084@                                                    3  0607              LIT     13
                     DCW   @TAPE COMPARE ERROR@                                    18  0625              LIT     13
  186                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    601    CLOOP     355    END       557    ENDRD     398    GRPMRK    602    PCERR     574   
 PTERR     582    RDERR     578    START     341    TAPE      451    TPER1     561    TPERR     586   


