*DECK,KDHELP
          IDENT  KDHELP 
          TITLE  KDHELP - GENERATE HELP DISPLAY TEXT. 
          ENTRY  KDFSR1 
          ENTRY  KDFSR2 
          ENTRY  KDFSR3 
          ENTRY  KDFSR4 
          ENTRY  KDFSR5 
          ENTRY  KDFSR6 
          ENTRY  KDFSR7 
          SYSCOM B1 
          SST 
  
*CALL COMCMAC 
  
 NOS      IFEQ   OS$NOS 
  
 FSI1L    EQU    0
 FSI1U    EQU    FSI1-1 
 FSI2L    EQU    FSI1 
 FSI2U    EQU    FSI2-1 
 FSI3L    EQU    FSI2 
 FSI3U    EQU    FSI3-1 
 FSI4L    EQU    FSI3 
 FSI4U    EQU    FSI4-1 
 FSI5L    EQU    FSI4 
 FSI5U    EQU    FSI5-1 
 FSI6L    EQU    FSI5 
 FSI6U    EQU    FSI6-1 
 FSI7L    EQU    FSI6 
 FSI7U    EQU    999999 
  
 NOS      ELSE
  
 FSI1L    EQU    0
 FSI1U    EQU    999999 
 FSI2L    EQU    0
 FSI2U    EQU    999999 
 FSI3L    EQU    0
 FSI3U    EQU    999999 
 FSI4L    EQU    0
 FSI4U    EQU    999999 
 FSI5L    EQU    0
 FSI5U    EQU    999999 
 FSI6L    EQU    0
 FSI6U    EQU    999999 
 FSI7L    EQU    0
 FSI7U    EQU    999999 
  
 NOS      ENDIF 
  
 FSI1L    DECMIC FSI1L,0
 FSI1U    DECMIC FSI1U,0
 FSI2L    DECMIC FSI2L,0
 FSI2U    DECMIC FSI2U,0
 FSI3L    DECMIC FSI3L,0
 FSI3U    DECMIC FSI3U,0
 FSI4L    DECMIC FSI4L,0
 FSI4U    DECMIC FSI4U,0
 FSI5L    DECMIC FSI5L,0
 FSI5U    DECMIC FSI5U,0
 FSI6L    DECMIC FSI6L,0
 FSI6U    DECMIC FSI6U,0
 FSI7L    DECMIC FSI7L,0
 FSI7U    DECMIC FSI7U,0
  
 KDFSR1   VFD    36/6H   1  ,36/0A"FSI1L",12/2H..,36/0A"FSI1U"
 KDFSR2   VFD    36/6H   2  ,36/0A"FSI2L",12/2H..,36/0A"FSI2U"
 KDFSR3   VFD    36/6H   3  ,36/0A"FSI3L",12/2H..,36/0A"FSI3U"
 KDFSR4   VFD    36/6H   4  ,36/0A"FSI4L",12/2H..,36/0A"FSI4U"
 KDFSR5   VFD    36/6H   5  ,36/0A"FSI5L",12/2H..,36/0A"FSI5U"
 KDFSR6   VFD    36/6H   6  ,36/0A"FSI6L",12/2H..,36/0A"FSI6U"
 KDFSR7   VFD    36/6H   7  ,36/0A"FSI7L",12/2H..,36/0A"FSI7U"
  
          END 
