PACK  BTMP(8),IDATE(4)        GET THE YEAR
         SP    BTMP(8),=PL3'1920'      SUBTRACT OFFSET
         CVB   7,BTMP                  STORE IN R7
*
         PACK  BTMP(8),IDATE+4(2)      GET THE DAY (1 - 31)
         CVB   6,BTMP                  R6 HAS DAY
         SLL   6,7                     SHIFT DAY BITS LEFT 7
         OR    7,6                     OR DAY AND YEAR TOGETHER
*
         PACK  BTMP(8),IDATE+6(2)      GET THE MONTH (1 - 12)
         CVB   6,BTMP                  R6 HAS MONTH
         SLL   6,12                    SHIFT MONTH BITS LEFT 12
         OR    7,6                     OR MONTH ONTO DATE
         STH   7,DATE                  STORE DATE IN TABLE
...
BTMP     DS    D
*
INLINE   DS    CL80
         DC    CL2' *'
...
         ORG   INLINE+45
IDATE    DC    CL8' '
         ORG