Variablen

[kuempi von stein]

sodele, dann gebe ich auch mal meinen Senf dazu.

     C                     MOVE '1'       *INLR
      *
      *   ANMERKUNG KUEMPI NACH HEX12 KOMMT SPÄTER DIE GEWÜNSCHTE VAR
      *
     C                     MOVEL'31'      HEX12   2
      *
      *----------------------------------------------------------------
      * AUS HEXCODE (2-STELLIG) --> CHARACTER(1) MIT DEM CODE MACHEN
      *----------------------------------------------------------------
      *
     C                     MOVELHEX12     HEX1    1
     C                     MOVE HEX12     HEX2    1
      *
     C                     MOVE *LOVAL    CHR1    1
     C                     SELEC
     C           HEX1      WHEQ '1'
     C                     BITON'3'       CHR1
     C           HEX1      WHEQ '2'
     C                     BITON'2'       CHR1
     C           HEX1      WHEQ '3'
     C                     BITON'23'      CHR1
     C           HEX1      WHEQ '4'
     C                     BITON'1'       CHR1
     C           HEX1      WHEQ '5'
     C                     BITON'13'      CHR1
     C           HEX1      WHEQ '6'
     C                     BITON'12'      CHR1
     C           HEX1      WHEQ '7'
     C                     BITON'123'     CHR1
     C           HEX1      WHEQ '8'
     C                     BITON'0'       CHR1
     C           HEX1      WHEQ '9'
     C                     BITON'03'      CHR1
     C           HEX1      WHEQ 'A'
     C                     BITON'02'      CHR1
     C           HEX1      WHEQ 'B'
     C                     BITON'023'     CHR1
     C           HEX1      WHEQ 'C'
     C                     BITON'01'      CHR1
     C           HEX1      WHEQ 'D'
     C                     BITON'013'     CHR1
     C           HEX1      WHEQ 'E'
     C                     BITON'012'     CHR1
     C           HEX1      WHEQ 'F'
     C                     BITON'0123'    CHR1
     C                     OTHER
     C           HEX1      IFNE '0'
     C                     MOVE '?'       CHR1
     C                     GOTO EHEX
     C                     END
     C                     ENDSL
      *
     C                     SELEC
     C           HEX2      WHEQ '1'
     C                     BITON'7'       CHR1
     C           HEX2      WHEQ '2'
     C                     BITON'6'       CHR1
     C           HEX2      WHEQ '3'
     C                     BITON'67'      CHR1
     C           HEX2      WHEQ '4'
     C                     BITON'5'       CHR1
     C           HEX2      WHEQ '5'
     C                     BITON'57'      CHR1
     C           HEX2      WHEQ '6'
     C                     BITON'56'      CHR1
     C           HEX2      WHEQ '7'
     C                     BITON'567'     CHR1
     C           HEX2      WHEQ '8'
     C                     BITON'4'       CHR1
     C           HEX2      WHEQ '9'
     C                     BITON'47'      CHR1
     C           HEX2      WHEQ 'A'
     C                     BITON'46'      CHR1
     C           HEX2      WHEQ 'B'
     C                     BITON'467'     CHR1
     C           HEX2      WHEQ 'C'
     C                     BITON'45'      CHR1
     C           HEX2      WHEQ 'D'
     C                     BITON'457'     CHR1
     C           HEX2      WHEQ 'E'
     C                     BITON'456'     CHR1
     C           HEX2      WHEQ 'F'
     C                     BITON'4567'    CHR1
     C                     OTHER
     C           HEX2      IFNE '0'
     C                     MOVE '?'       CHR1
     C                     END
     C                     ENDSL
      *
      *   ANMERKUNG KUEMPI DSPLY ist nur für DEBUG EINGEBAUT
      *
     C           EHEX      TAG
     C           'NURSO'   DSPLY
     C                     RETRN