1 C00   20:50 JUN 20,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   20:50 JUN 20,'83                                                                          PAGE    2
A       1                                     PCC
        2                                     SYSTEM   SIG5P
        3   01 00200                          ORG      X'200'
            01 00200
        4   01 00200    FFFFF400 A            DATA     -X'C00'           DPM SIZE

        6   01 00201    2200010A     START    LI,0     DA(CDW)           SET TO SKIP ONE RECORD
        7   01 00202    32520005 A            LW,5     5,1                THIS WILL BE EOF ON MTL
        8   01 00203    CC000005 A            SIO,0    *5                  AND ILLEGAL ORDER (UE)
        9   01 00204    CD000005 A            TIO,0    *5                   ON SOME DISKS                *G02
       10   01 00205    69C00204              BCS,12   %-1

       12   01 00206    CE300005 A            TDV,3    *5
       13   01 00207    4B300211              AND,3    TDMASK            SKIP IF EOF BIT SET
       14   01 00208    6930020D              BNEZ     LOAD               (IMPLIES TAPE)

       16   01 00209    22010000 A            LI,0     X'10000'
       17   01 0020A    35020018 A            STW,0    24,1              ELSE SET SEEK INCREMENT
       18   01 0020B    22020000 A            LI,0     X'20000'           AND THEREFORE DISK FLAG
       19   01 0020C    35020017 A            STW,0    23,1

       21   01 0020D    32000001 A   LOAD     LW,0     1                 GET LOADER ADDRESS
       22   01 0020E    200FC300 A            AI,0     -X'3D00'           RELOCATE TO FWA(MTLCTRL)
       23   01 0020F    22B00000 A            LI,11    0                   SIMULATE INITIAL PROGRAM
       24   01 00210    68020008 A            B        8,1                  LOAD OF MTLCTRL

       26   01 00211    10000000 A   TDMASK   DATA     X'10000000'
       27   01 00212    00010000 A   SEEK     DATA     X'00010000'       CYL:1 TRK:0 SEC:0               *G02

       29                                     BOUND    8
       30   01 00214    43000848 N   CDW      GEN,8,24,8,24 X'43',BA(SEEK),0,4 (SOMETIMES A SEEK)        *G02
                        00000004
       31         01 00201                    END      START

  CONTROL SECTION SUMMARY: 01 00216   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:50 JUN 20,'83                                                                          PAGE    3
A  CDW                6/LI        30-GEN
   LOAD              14/BNEZ      21-LW
   SEEK              27-DATA      30/GEN
   START              6-LI        31/END
   TDMASK            13/AND       26-DATA
