PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101         *
  102         * HALTS:
  103         * 99 IN A-STAR AND B-STAR IF NO MORE DETAIL RECORDS AND NO HEADER.
  104         *    PUSHING START TRIES AGAIN.  IF READING DETAIL FROM TAPE IT
  105         *    IS NONETHELESS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE.
  106         * 86 IN A-STAR AND B-STAR IF TAPE ERROR.  PUSHING START TRIES AGAIN.
  107         *    IT IS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE.
  108         *
  109                ORG   336            AT 336 TO ALLOW CHAINING CS TO W                    0336
  110         HEADPR EQU   190            PRINT FIRST TWO DETAIL IF NOT BLANK.         0190
  111         HEADCT DCW   0              HOW MANY DETAIL READ?  PRINT FIRST 2.     1  0336
  112         TAPERR BSP   1              BACKSPACE                                 5  0337  U %U1 B
  113                NOP   86             86 IF TAPE ERROR                          4  0342  N 086
  114                H                    HALT WITH 86 IN A-STAR AND B-STAR         1  0346  .
  115         DETAIL SW    1,81           1 FOR HEADER, 81 UNDER GM IF TAPE         7  0347  , 001 081
  116                BLC   NOCARD         NO CARDS LEFT?                            5  0354  B 363 A
  117                R     TESTHD         READ A DETAIL OR HEADER CARD              4  0359  1 407
  118         NOCARD BCE   TAPEHD,81,"    TAPE LOAD PUTS GM IN 81                   8  0363  B 389 081 "
  119                B     FINIS                                                    4  0371  B 380
  120         TAPEOF BSP   1                                                        5  0375  U %U1 B
  121         FINIS  NOP   99             99 IF NO TAPE OR EOF                      4  0380  N 099
  122                H                    HALT WITH 99 IN A-STAR AND B-STAR         1  0384  .
  123                B     DETAIL         TRY AGAIN                                 4  0385  B 347
  124         TAPEHD RTW   1,1            READ A DETAIL OR HEADER TAPE RECORD       8  0389  L %U1 001 R
  125                BER   TAPERR         ERROR?                                    5  0397  B 337 L
  126                BEF   TAPEOF         EOF?                                      5  0402  B 375 K
  127         TESTHD BCE   1,80,A         EXECUTE IF A HEADER                       8  0407  B 001 080 A
  128                BCE   CONT,HEADCT,2  HEADERS PRINTED YET?                      8  0415  B 453 336 2
  129                BCE   SKIPHD,HEADPR,  SKIP HEADER PRINTING?                    8  0423  B 442 190
  130                LCA   77,277         PRINT THE FIRST TWO HEADERS               7  0431  L 077 277
  131                W                                                              1  0438  2
  132                CS                                                             1  0439  /
  133                CS                                                             1  0440  /
  134                W                                                              1  0441  2
  135         SKIPHD A     *-6,HEADCT                                               7  0442  A 442 336
  136                B     DETAIL                                                   4  0449  B 347
  137         CONT   EQU   *&1                                                         0453
  138         * CONTINUE HERE AFTER READING DETAIL
  139                END   DETAIL                                                            / 347 080
1                                                                                                         PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 CONT      453    DETAIL    347    FINIS     380    HEADCT    336    HEADPR    190    NOCARD    363    SKIPHD    442   
 TAPEHD    389    TAPEOF    375    TAPERR    337    TESTHD    407