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                                     SOCW
        3                                     SYSTEM   SIG7FDP
        4   00 0002A                          ORG      X'2A'
            00 0002A
        5   00 0002A    2200001C A            LI,0     DA(CDW1)          SET TO SKIP ONE RECORD
        6   00 0002B    CC000025 A            SIO,0    *X'25'             THIS WILL BE EOF ON MTL
        7   00 0002C    CD000025 A            TIO,0    *X'25'              AND ILLEGAL ORDER (UE)
        8   00 0002D    69C0002C A            BCS,12   %-1                  ON SOME DISKS                *G02

       10   00 0002E    CE300025 A            TDV,3    *X'25'
       11   00 0002F    4B300037 A            AND,3    MASK              SKIP IF EOF BIT SET
       12   00 00030    69300035 A            BNEZ     TAPE               (IMPLIES TAPE)                 *G02

       14   00 00031    2200001E A            LI,0     DA(CDW2)
       15   00 00032    CC000025 A            SIO,0    *X'25'            DISK=>SEEK TO CYL 1, TRK 0, SEC 0
       16   00 00033    CD000025 A            TIO,0    *X'25'
       17   00 00034    69C00033 A            BCS,12   %-1

       19   00 00035    2200001D A   TAPE     LI,0     DA(CDW3)          SET TO BOOT NEXT RECORD
       20   00 00036    68000027 A            B        X'27'              AND SKIP TO BOOTSTRAP

       22   00 00037    10000000 A   MASK     DATA     X'10000000'       TDV MASK FOR TAPE

       24                                     ERROR,7,(ABSVAL(%)-2*(ABSVAL(%)/2))>0 'BOUND ERROR'        *G00

       26   00 00038    430000F8 A   CDW1     GEN,8,24,8,24 X'43',BA(SEEK0),0,4 (BECOMES SEEK SOMETIMES) *G02
                        00000004
       27   00 0003A    020000A8 A   CDW3     GEN,8,24,8,24 2,X'A8',14,X'58'
                        0E000058
       28   00 0003C    030000FC A   CDW2     GEN,8,24,8,24 3,BA(SEEK1),0,4                              *G02
                        00000004
       29   00 0003E    00000000 A   SEEK0    DATA     X'00000000'       CYL:0 TRK:0 SEC:0               *G02
       30   00 0003F    00010000 A   SEEK1    DATA     X'00010000'       CYL:1 TRK:0 SEC:0               *G02
       31                                     END

  CONTROL SECTION SUMMARY: 01 00000   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:50 JUN 20,'83                                                                          PAGE    3
A  CDW1               5/LI        26-GEN
   CDW2              14/LI        28-GEN
   CDW3              19/LI        27-GEN
   MASK              11/AND       22-DATA
   SEEK0             26/GEN       29-DATA
   SEEK1             28/GEN       30-DATA
   TAPE              12/BNEZ      19-LI
