*DECK PICBZAP 
*TEXT    EDIT DIRECTIVES FOR PICB 
_*************************************************
* *                                            * *
*   ******************************************   *
*   *                                        *   *
*   *          EDIT STATEMENTS FOR           *   *
*   *    PROGRAM INITIATION CONTROL BLOCK    *   *
*   *                 (PICB)                 *   *
*   *                                        *   *
*   ******************************************   *
*   *                                        *   *
*   *   COPYRIGHT CONTROL DATA CORPORATION   *   *
*   *                  1981                  *   *
*   *                                        *   *
*   ******************************************   *
* *                                            * *
**************************************************
* 
*       THESE ARE THE MPEDIT STATEMENTS FOR INITIALIZING THE PICB.
*       SOME ARE STATIC, SOME ARE SET FROM SYSTEM SYMBOLS (FROM THE 
*       VARIANT AND DBS SYMBOL TABLES), WHILE OTHERS ARE REPLACED BY
*       THE BUILD PROCEDURES/EXPAND.  THE SKELETONS FOR THE LATTER
*       GROUP ARE OBTAINED FROM EXPTEXT, AND ARE STUFFED BY EXPAND. 
? 
_************************************************** 
*                                                 * 
*   DECLARE THE FILL ARRAY TO BE 3 WORDS LONGER   * 
*   THAN PASCAL SO THE 3 WORDS GENERATED BY       * 
*   BEGIN/END IN PICB PROCEDURE CAN BE CLEARED    * 
*                                                 * 
**************************************************? 
ARRAY 
PICBFL [1..PIFLTH+3] OF 1;
  
_ 
* 
? 
BEGIN 
  
_*************
*            *
*   HEADER   *
*            *
*************?
PICB.PICBHD.L8NDCA := 0;          _ LEFT 8 BITS OF NDCB ADDRESS ? 
PICB.PICBHD.R16NDA := NHNDCB;     _ RIGHT 16 BITS OF NDCB ADDRESS ? 
                                  _ FROM VARIANT SYMBOL TABLE ? 
  
_***********
*          *
*   DPCB   *
*          *
***********?
PICB.DPCB.DPC0CD := 0;            _ CODE ?
PICB.DPCB.DP0DBT := 4;            _ DBT ? 
PICB.DPCB.DPCB0S := 0;            _ *S* FLAG ?
PICB.DPCB.L8EAMM := $12;          _ LEFT 8 BITS END ADS MACRO MEMORY ?
                                  _ REPLACED BY BP ?
PICB.DPCB.R16EAM := $3456;        _ RIGHT 16 END ADS MACRO MEMORY ? 
                                  _ REPLACED BY BP ?
_ 
*       60/64-BIT WORD 1
? 
PICB.DPCB.DPC1CD := 6;            _ CODE ?
_ 
*       60/64-BIT WORD 2
? 
PICB.DPCB.DPC2CD := 1;            _ CODE ?
PICB.DPCB.DP2DBT := 0;            _ DBT ? 
PICB.DPCB.DPCB2S := 0;            _ *S* FLAG ?
PICB.DPCB.L8DBSN := $44;          _ LEFT 8 BITS DUMP BOOT NAME ?
                                  _ (D) ? 
PICB.DPCB.R16DBN := $4253;        _ RIGHT 16 DUMP BOOT NAME ? 
                                  _ (BS) ?
_ 
*       60/64-BIT WORD 3
? 
PICB.DPCB.DPC3CD := 2;            _ CODE ?
_ 
*       60/64-BIT WORD 4
? 
PICB.DPCB.DPC4CD := 0;            _ CODE ?
PICB.DPCB.DP4DBT := 1;            _ DBT ? 
PICB.DPCB.DPCB4S := 0;            _ *S* FLAG ?
PICB.DPCB.L8BMFR := 0;            _ LEFT 8 BA MICRO FILE REG AREA ? 
PICB.DPCB.R16BFR := MMFILE1;      _ RIGHT 16 BA MICRO FILE REG AREA ? 
                                  _ FROM DBS SYMBOL TABLE ? 
PICB.DPCB.L8EMFR := 0;            _ LEFT 8 EA MICRO FILE REG AREA ? 
PICB.DPCB.R16EFR := MMCKSUM;      _ RIGHT 16 EA MICRO FILE REG AREA ? 
                                  _ FROM DBS SYMBOL TABLE ? 
_ 
*       60/64-BIT WORD 5
? 
PICB.DPCB.DPC5CD := 0;            _ CODE ?
PICB.DPCB.DP5DBT := 2;            _ DBT ? 
PICB.DPCB.DPCB5S := 0;            _ *S* FLAG ?
PICB.DPCB.L8BMPR := 0;            _ LEFT 8 BA MICRO PAGE REG AREA ? 
PICB.DPCB.R16BPR := DPZER0;       _ RIGHT 16 BA MICRO PAGE REG AREA ? 
                                  _ FROM DBS SYMBOL TABLE ? 
PICB.DPCB.L8EMPR := 0;            _ LEFT 8 EA MICRO PAGE REG AREA ? 
PICB.DPCB.R16EPR := DPCKSUM;      _ RIGHT 16 EA MICRO PAGE REG AREA ? 
                                  _ FROM DBS SYMBOL TABLE ? 
_ 
*       60/64-BIT WORD 6
? 
PICB.DPCB.DPC6CD := 15;           _ CODE ?
  
_***********
*          *
*   LPCB   *
*          *
***********?
PICB.LPCB.LPC0CD := 1;            _ CODE ?
PICB.LPCB.LP0DBT := 0;            _ DBT ? 
PICB.LPCB.LPCB0S := 0;            _ *S* FLAG ?
PICB.LPCB.L8MICN := $4D;          _ LEFT 8 BITS MICRO CODE NAME ? 
                                  _ (M) ? 
PICB.LPCB.R16MIN := $4943;        _ RIGHT 16 MICRO CODE NAME ?
                                  _ (IC) ?
_ 
*       60/64-BIT WORD 1
? 
PICB.LPCB.LPC1CD := 2;            _ CODE ?
_ 
*       60/64-BIT WORD 2
? 
PICB.LPCB.LPC2CD := 1;            _ CODE ?
PICB.LPCB.LP2DBT := 0;            _ DBT ? 
PICB.LPCB.LPCB2S := 0;            _ *S* FLAG ?
PICB.LPCB.BY1MAN := $41;          _ BYTE 1 MACRO CODE NAME ?
                                  _ REPLACED BY BP ?
PICB.LPCB.B23MAN := $4243;        _ BYTES 2,3 MACRO CODE NAME ? 
                                  _ REPLACED BY BP ?
PICB.LPCB.B45MAN := $4C4D;        _ BYTES 4,5 MACRO CODE NAME ? 
                                  _ (LM) ?
PICB.LPCB.BY6MAN := $20;          _ BYTE 6 MACRO CODE NAME ?
                                  _ (M ) ?
_ 
*       60/64-BIT WORD 3
? 
PICB.LPCB.LPC3CD := 5;            _ CODE ?
PICB.LPCB.LP3DBT := 0;            _ DBT ? 
PICB.LPCB.LPCB3S := 0;            _ *S* FLAG ?
PICB.LPCB.L8NASZ := 0;            _ LEFT 8 BITS NCB AREA SIZE ? 
PICB.LPCB.R16NAS := NCBMAX;       _ RIGHT 16 NCB AREA SIZE ?
                                  _ FROM VARIANT SYMBOL TABLE ? 
PICB.LPCB.L8BANA := 0;            _ LEFT 8 BITS BA NCB AREA ? 
PICB.LPCB.R16BAN := NCB;          _ RIGHT 16 BA NCB AREA ?
                                  _ FROM VARIANT SYMBOL TABLE ? 
_ 
*       60/64-BIT WORD 4
? 
PICB.LPCB.LPC4CD := 4;            _ CODE ?
_ 
*       60/64-BIT WORD 5
? 
PICB.LPCB.LPC5CD := 15;           _ CODE ?
  
_***********
*          *
*   SPCB   *
*          *
***********?
PICB.SPCB.SPC0CD := 1;            _ CODE ?
PICB.SPCB.SP0DBT := 0;            _ DBT ? 
PICB.SPCB.SPCB0S := 0;            _ *S* FLAG ?
PICB.SPCB.L8SAMN := $53;          _ LEFT 8 BITS SAM CODE NAME ? 
                                  _ (S) ? 
PICB.SPCB.R16SAN := $414D;        _ RIGHT 16 SAM CODE NAME ?
                                  _ (AM) ?
_ 
*       60/64-BIT WORD 1
? 
PICB.SPCB.SPC1CD := 4;                      _ CODE ?
_ 
*       60/64-BIT WORD 2
? 
PICB.SPCB.SPC2CD := 15;           _ CODE ?
  
_********************************************** 
*                                             * 
*   CLEAR LAST 3 WORDS OF FILL AREA.          * 
*   THESE ARE THE 3 WORDS OF CODE GENERATED   * 
*   BY BEGIN/END IN PICB PROCEDURE.           * 
*                                             * 
**********************************************? 
PICB.PICBFL[PIFLTH+1] := 0; 
PICB.PICBFL[PIFLTH+2] := 0; 
PICB.PICBFL[PIFLTH+3] := 0; 
  
_********************************** 
*                                 * 
*   END OF PICB EDIT STATEMENTS   * 
*                                 * 
**********************************? 
END.
*ENDTEXT
