Program To System Fields

From MidrangeWiki
Revision as of 19:48, 8 June 2005 by TomHolden (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

Program To System Fields List

Here is a work-in-progress list of constant names for the various program-to-system field (P-field) values:

      /DEFINE PFIELDS
      *---------------------------------------------------------------------
      * Valid P-field values
      *---------------------------------------------------------------------
     D PFIELDSDS       DS
     D @GRN                           1A   Inz(x'20')
     D @GRN_RI                        1A   Inz(x'21')
     D @WHT                           1A   Inz(x'22')
     D @WHT_RI                        1A   Inz(x'23')
     D @GRN_UL                        1A   Inz(x'24')
     D @GRN_UL_RI                     1A   Inz(x'25')
     D @WHT_UL                        1A   Inz(x'26')
     D @ND                            1A   Inz(x'27')
     D @RED                           1A   Inz(x'28')
     D @RED_RI                        1A   Inz(x'29')
     D @RED_HI                        1A   Inz(x'2A')
     D @RED_HI_RI                     1A   Inz(x'2B')
     D @RED_UL                        1A   Inz(x'2C')
     D @RED_UL_RI                     1A   Inz(x'2D')
     D @RED_UL_BL                     1A   Inz(x'2E')
     D @ND_2F                         1A   Inz(x'2F')
     D @TRQ_CS                        1A   Inz(x'30')
     D @TRQ_CS_RI                     1A   Inz(x'31')
     D @YLW_CS                        1A   Inz(x'32')
     D @WHT_RI_CS                     1A   Inz(x'33')
     D @TRQ_UL_CS                     1A   Inz(x'34')
     D @TRQ_UL_RI_CS                  1A   Inz(x'35')
     D @YLW_UL_CS                     1A   Inz(x'36')
     D @ND_37                         1A   Inz(x'37')
     D @PNK                           1A   Inz(x'38')
     D @PNK_RI                        1A   Inz(x'39')
     D @BLU                           1A   Inz(x'3A')
     D @BLU_RI                        1A   Inz(x'3B')
     D @PNK_UL                        1A   Inz(x'3C')
     D @PNK_UL_RI                     1A   Inz(x'3D')
     D @BLU_UL                        1A   Inz(x'3E')
     D @ND_3F                         1A   Inz(x'3F')
      *
      * Protected fields
      *
     D @PGRN                          1A   Inz(x'A0')
     D @PGRN_RI                       1A   Inz(x'A1')
     D @PWHT                          1A   Inz(x'A2')
     D @PWHT_RI                       1A   Inz(x'A3')
     D @PGRN_UL                       1A   Inz(x'A4')
     D @PGRN_UL_RI                    1A   Inz(x'A5')
     D @PWHT_UL                       1A   Inz(x'A6')
     D @PND                           1A   Inz(x'A7')
     D @PRED                          1A   Inz(x'A8')
     D @PRED_RI                       1A   Inz(x'A9')
     D @PRED_HI                       1A   Inz(x'AA')
     D @PRED_HI_RI                    1A   Inz(x'AB')
     D @PRED_UL                       1A   Inz(x'AC')
     D @PRED_UL_RI                    1A   Inz(x'AD')
     D @PRED_UL_BL                    1A   Inz(x'AE')
     D @ND_AF                         1A   Inz(x'AF')
     D @PTRQ_CS                       1A   Inz(x'B0')
     D @PTRQ_CS_RI                    1A   Inz(x'B1')
     D @PYLW_CS                       1A   Inz(x'B2')
     D @PWHT_RI_CS                    1A   Inz(x'B3')
     D @PTRQ_UL_CS                    1A   Inz(x'B4')
     D @PTRQ_UL_RI_CS                 1A   Inz(x'B5')
     D @PYLW_UL_CS                    1A   Inz(x'B6')
     D @ND_B7                         1A   Inz(x'B7')
     D @PPNK                          1A   Inz(x'B8')
     D @PPNK_RI                       1A   Inz(x'B9')
     D @PBLU                          1A   Inz(x'BA')
     D @PBLU_RI                       1A   Inz(x'BB')
     D @PPNK_UL                       1A   Inz(x'BC')
     D @PPNK_UL_RI                    1A   Inz(x'BD')
     D @PBLU_UL                       1A   Inz(x'BE')
     D @ND_BF                         1A   Inz(x'BF')
     D PFIELDS                 1     64A
     D PFIELD                         1A   Dim(64) Overlay(PFIELDS)