*DECK ASMUSER 
*IF DEF,MODE4,1 
*CALL MD4ASSEM
*CALL ASKEC 
*CALL ECASK 
*CALL EB6DC 
*CALL EB9DC 
*CALL DCEB6 
*CALL DCEB9 
*IF DEF,ASYNC,2 
*CALL ASYXASCII 
*CALL ASYASSEM
*IF DEF,BSC 
*CALL BSCMGS
*CALL BSCL2I
*CALL BSCMLI
*CALL BSCMLO
*CALL BSCAT 
*IF DEF,BSCDEBUG,1
*CALL NTSINP
*ENDIF BSC
*IF DEF,HASPTIP,5 
*CALL HASPINPS
*CALL HASPITXP
*CALL HASPMSGS
*CALL HASPOTXP
*CALL HASPAT
*IF DEF,HLIP,1
*CALL LIPIST
*IF DEF,X25 
*CALL X25NETDEF 
*CALL X25IST
*IF DEF,X25PAD,5
*IF -DEF,ASYNC,1
*CALL ASYXASCII 
*CALL PADINTP 
*CALL PADOUTP 
*CALL XNTSTPD3
*CALL X25AT 
*ENDIF X25
*IF DEF,3270TIP,1 
*CALL 3270ASM 
*IF DEF,USERTIP1,1
*CALL UT1ASM
*IF DEF,USERTIP2,1
*CALL UT2ASM
*IF DEF,USERTIP3,1
*CALL UT3ASM
