+1,1                                                                #32269
     TITLE    'CP-V VOLUME INITIALIZATION  **  VOLINITE02  (V112)'  #32269
+11,11                                                              #32269
*                 6/27/79                  DALE LINDER              #32269
+31
*    SUPPRESSED CODE BELOW IS A DUMMY DCB TO FORCE THE F:DIAG       #32269
*        BOUNDRY TO THE BEGINNING OF A PAGE.                        #32269
         LIST     0                                                 #32269
F:DUMMY  DSECT    1                                                 #32269
F:DUMMY  M:DDCB   (DEVICE,'LP'),(ABN,HELP0),(CLIST,232)             #32269
         LIST     1                                                 #32269
F:DIAG   DSECT    1                                                 #32269
F:DIAG   M:DDCB   (DEVICE,'LP'),(ABN,HELP0),(CLIST,232)             #32269
+1227                                                               #32269
*                                                                   #32269
ABORT1   RES                                                        #32269
         TYPE     MSG:AB1           SAY OPERATION INVALID FOR RMP   #32269
         B        #EXIT                                             #32269
+1546                                                               #32269
*                                                                   #32269
*                                                                   #32269
*                                                                   #32269
**************************************************************      #32269
**************************************************************      #32269
*                                                                   #32269
*                                                                   #32269
* THIS SUBROUTINE REPORTS THE PASS TO BE STARTED  AS A PROGRESS     #32269
* REPORT FOR VERY LONG TESTS.  (VOLUME INITIALIZATION CAN RUN       #32269
* SEVERAL HOURS ON A HEAVILY LOADED ON LINE SYSTEM)                 #32269
*                                                                   #32269
**************************************************************      #32269
**************************************************************      #32269
*                                                                   #32269
*                                                                   #32269
PASS     EQU      $                                                 #32269
         STW,15   PASSAVE                                           #32269
         LW,13    #PCNT                                             #32269
         BAL,15   CAL               REPORT PASS                     #32269
         NOP      PASSMSG                                           #32269
         NOP      X'4206'                                           #32269
         B        *PASSAVE                                          #32269
*                                                                   #32269
PASSAVE  DATA     0                                                 #32269
*                                                                   #32269
*                                                                   #32269
+3611,3611                                                          #32269
HERE     TEXTCS   'VOLINIT E02 HERE - 6/27/79',CR                   #32269
+3617                                                               #32269
+3671,3672
+3769,3769                                                          #32269
#BUFLEN  DATA     2048              BUFF. LENGTH (BYTES) - 2 SECTORS#32269
+6099                                                               #32269
*                                                                   #32269
*        BAL,15   CUR:RMP           1 CYLINDER WRITE (RMP ONLY)     #32269
*        DATA     XMWR19T                                           #32269
+6108                                                               #32269
CUROP    RES      1                 CURRENT OPERATION               #32269
+6116                                                               #32269
         LW,7     :IO4BD+15                                         #32269
+6131                                                               #32269
CUR:RMP  EQU      $                 TRACK WRITE OPERATION           #32269
         STW,3    CURX                                              #32269
         B        CUR                                               #32269
*                                                                   #32269
+6145,6145                                                          #32269
         MVW      *15,CUROP         SAVE OPERATION TYPE             #32269
+6150                                                               #32269
         CI,7     0                 IS IT A CYLINDER OPERATION      #32269
         BNE      $+4               NO, SKIP DEVICE CHECK           #32269
         LW,14    #CONTX            YES, CHECK IF RMP               #32269
         CI,14    RMP                                               #32269
         BE       ABORT1            ABORT IF RMP - INVALID OPERATION
         BNE      CUR01             SKIP IF NO                     #32269
         BAL,15   CHKRMP            CHECK IF CYL.,TRACK, OR SECTOR BOUND
           B         $                NOT AN RMP - PROGRAMMING ERROR
           AI,7      -1               SUBTRACT   3 FOR CYLINDER    #32269
           AI,7      -1                          2 FOR TRACK       #32269
           AI,7      -1                          1 FOR SECTOR      #32269
CUR01    EQU      $                                                #32269
+6157                                                               #32269
         LW,7     CUROP             GET DEFAULT OPERATION           #32269
         LW,4     CURX              GET OPERATION TYPE INDEX        #32269
         CI,4     3                 IS IT AN RMP WRITE?             #32269
         BNE      CUR22             SKIP IF NO                      #32269
         BAL,15   CHKRMP                                            #32269
            B        $              NOT AN RMP - PROGRAMMING ERROR  #32269
            B        CUR22          ON CYLINDER BOUNDRY             #32269
            B        CUR21          ON TRACK BOUNDRY                #32269
*                                   ON SECTOR BOUNDRY               #32269
         LI,7     XMWR1S            SET UP 1 SECTOR WRITE           #32269
         B        CUR22                                             #32269
CUR21    EQU      $                                                 #32269
         LI,7     XMWR1T            SET UP 1 TRACK WRITE            #32269
CUR22    STW,7    CURTEST+1                                         #32269
+6241                                                               #32269
         BNE      CUR51                                             #32269
         BAL,15   CHKRMP            YES, CHECK BOUNDRY              #32269
            B        $              NOT AN RMP - PROGRAMMING ERROR  #32269
            AI,4     -1             ON CYLINDER BOUNDRY             #32269
            AI,4     -1             ON TRACK BOUNDRY                #32269
            AI,4     -1             ON SECTOR BOUNDRY               #32269
CUR51    EQU      $                                                 #32269
+6214,6216                                                          #32269
+6221,6221                                                          #32269
+6521                                                               #32269
         PAGE                                                       #32269
*                                                                   #32269
*                                                                   #32269
********************************************************            #32269
*                                                                   #32269
*   CHECK RMP - CHECK IF IT IS AN RMP AND IF IT IS, CHECK WHETHER   #32269
*        IT IS A CYLINDER, TRACK, OR SECTOR OPERATION               #32269
*                                                                   #32269
*                                                                   #32269
*   CALLING SEQUENCE:                                               #32269
*                 BAL,15    CHKRMP                                  #32269
*                    +1     RETURN HERE IF NOT RMP                  #32269
*                    +2     RETURN HERE IF ON CYLINDER BOUNDRY      #32269
*                    +3     RETURN HERE IF ON TRACK BOUNDRY         #32269
*                    +4     RETURN HERE IF ON SECTOR BOUNDRY        #32269
*                                                                   #32269
*                                                                   #32269
CHKRMP   EQU      $                                                 #32269
         LW,14    #CONTX                                            #32269
         CI,14    RMP               IS IT AN RMP?                   #32269
         BNE      *15               EXIT TO BAL+1 IF NO             #32269
         LH,14    SKADR,1           IS IT ON A CYL. BOUNDRY         #32269
         BEZ      *15,1             EXIT TO BAL+2 IF YES            #32269
         LB,14    SKADR,3           IS IT ON A TRACK BOUNDRY        #32269
         BEZ      *15,2             EXIT TO BAL+3 IF YES            #32269
         B        *15,3             EXIT TO BAL+4                   #32269
*                                                                   #32269
*                                                                   #32269
+7089                                                               #32269
         BAL,15   PASS              REPORT PASS STARTING            #32269
+7111                                                               #32269
         BAL,15   PASS              REPORT PASS STARTING            #32269
         LW,7     #CONTX                                            #32269
         CI,7     RMP               IS IT AN RMP?                   #32269
         BNE      UT15A1            NO, DO CYLINDER OPERATION       #32269
         LI,7     0                                                 #32269
         STW,7    :IO4BD+19         SET TDV MASK TO IGNORE COMADR   #32269
         BAL,15   CUR:RMP           WRITE FULL SURFACE (1 CYL/IO)   #32269
         B        UT15A2                                            #32269
*                                                                   #32269
UT15A1   EQU      $                 SET UP CYLINDER (FAST) WRITE    #32269
+7113                                                               #32269
UT15A2   EQU      $                                                 #32269
+7120                                                               #32269
         BAL,15   CHKRMP                                            #32269
            B        UT15B3         NOT AN RMP                      #32269
            B        UT15B22        ON CYLINDER BOUNDRY             #32269
            B        UT15B21        ON TRACK BOUNDRY                #32269
*                                   ON SECTOR BOUNDRY               #32269
         TEST     XMRD1S            READ        1 SECTOR            #32269
         B        UT15B30                                           #32269
UT15B21  EQU      $                                                 #32269
         TEST     XMRD1T            READ       ONE TRACK            #32269
         B        UT15B30                                           #32269
UT15B22  EQU      $                                                 #32269
         TEST     XMRD19T           READ        1 CYLINDER          #32269
         B        UT15B30                                           #32269
*                                                                   #32269
UT15B3   EQU      $                 DO CYLINDER (FAST) READ         #32269
+7121                                                               #32269
UT15B30  EQU      $                                                 #32269
         BAL,15   PASS              REPORT PASS STARTING            #32269
+7142,7146                                                          #32269
         CW,7     0,4               IS THIS ADDR. LOGGED ALREADY    #32269
         BE       UT15B43           YES, SKIP LOGGING IT            #32269
         AI,4     2                 NO                              #32269
         CW,4     UT15P             END OF LOG TABLE SCAN?          #32269
         BL       UT15B41           NO,LOOP                         #32269
+7149,7149                                                          #32269
         CI,4     BF3L              CHECK FOR BUFFER OVERFLOW       #31910
+7160                                                               #32269
         BAL,15   CHKRMP                                            #32269
            B        UT15B6         NOT AN RMP                      #32269
            B        UT15B51        ON CYLINDER BOUNDRY             #32269
            B        UT15B52        ON TRACK BOUNDRY                #32269
*                                   ON SECTOR BOUNDRY               #32269
         BAL,15   INCS              INCREMENT BY SECTOR             #32269
         B        UT15B53                                           #32269
UT15B51  EQU      $                                                 #32269
         BAL,15   INCC              INCREMENT BY CYLINDER           #32269
         B        UT15B53                                           #32269
UT15B52  EQU      $                                                 #32269
         BAL,15   INCT              INCREMENT SEEK BY ONE TRACK     #32269
UT15B53  EQU      $                                                 #32269
         BEZ      UT15B2            NO, DO NEXT TRACK               #32269
         B        UT15C             YES, EXIT                       #32269
*                                                                   #32269
UT15B6   EQU      $                 INCREMENT SEEK ADR. BY CYLINDER #32269
+7816                                                               #32269
*                                                                   #32269
*                                                                   #32269
**********************************************************          #32269
*  19 TRACK (2 SECTOR DATA CHAINED) WRITE                *          #32269
**********************************************************          #32269
*                                                                   #32269
XMWR19T  TS                                                         #32269
         PT                                                         #32269
         SK                                                         #32269
         IO4B     IOCDWR19T,X'100000',X'10000000',0                 #32269
         SN                                                         #32269
         TE                                                         #32269
*                                                                   #32269
*                                                                   #32269
**********************************************************          #32269
*  19 TRACK (2 SECTOR DATA CHAINED) READ                 *          #32269
**********************************************************          #32269
*                                                                   #32269
XMRD19T  TS                                                         #32269
         PT                                                         #32269
         SK                                                         #32269
         IO4B     IOCDRD19T,X'100000',X'10000000',0                 #32269
         SN                                                         #32269
         TE                                                         #32269
*                                                                   #32269
*                                                                   #32269
**********************************************************          #32269
*  1 TRACK (2 SECTOR DATA CHAINED) WRITE                 *          #32269
**********************************************************          #32269
*                                                                   #32269
XMWR1T   TS                                                         #32269
         PT                                                         #32269
         SK                                                         #32269
         IO4B     IOCDWR1T,X'100000',X'10000000',0                  #32269
         SN                                                         #32269
         TE                                                         #32269
*                                                                   #32269
*                                                                   #32269
**********************************************************          #32269
*  1 TRACK (2 SECTOR DATA CHAINED) READ                  *          #32269
**********************************************************          #32269
*                                                                   #32269
XMRD1T   TS                                                         #32269
         SK                                                         #32269
         IO4B     IOCDRD1T,X'100000',X'10000000',0                  #32269
         SN                                                         #32269
         TE                                                         #32269
*                                                                   #32269
*                                                                   #32269
**********************************************************          #32269
*   1 SECTOR WRITE                                       *          #32269
**********************************************************          #32269
*                                                                   #32269
XMWR1S   TS                                                         #32269
         PT                                                         #32269
         SK                                                         #32269
         IO4B     IOCDWRS,X'100000',X'10000000',0                   #32269
         SN                                                         #32269
         TE                                                         #32269
*                                                                   #32269
*                                                                   #32269
**********************************************************          #32269
*   1 SECTOR READ                                        *          #32269
**********************************************************          #32269
*                                                                   #32269
XMRD1S   TS                                                         #32269
         SK                                                         #32269
         IO4B     IOCDRDS,X'100000',X'10000000',0                   #32269
         SN                                                         #32269
         TE                                                         #32269
+8090                                                               #32269
IOCDWR1T IOCD     1,BA(BF1),X'8C',2048  WRITE 1 TRACK (2 SECT. DC)  #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'1C',2048                              #32269
IOCDRD1T IOCD    X'52',BA(BF2),X'8C',2048 READ 1 TRACK (2 SECT. DC) #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'1C',2048                           #32269
+8071                                                               #32269
IOCDWR19T IOCD    1,BA(BF1),X'8C',2048 WRITE 1 CYLINDER (2 SECT. DC.)
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'8C',2048                              #32269
         IOCD     1,BA(BF1),X'1C',2048                              #32269
IOCDRD19T IOCD   X'52',BA(BF2),X'8C',2048 READ 1 CYLINDER (2 SECT. DC.)
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269

         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'8C',2048                           #32269
         IOCD    X'52',BA(BF2),X'1C',2048                           #32269
         BOUND 2048                                                 #32269
+END                                                                #32269

