SFLCTM MODULE
*
*
 INCLUDE SMACS
 EXTSIP CTMJSBEGIN,CTMJSEND,CTMJSWRITE
 EXTSIP SENDMESSAGE,CTMASSIGNFILE,GIVEPROCESSTIME
 EXTSIP CTMRMLD
 EXTSIP CTMDUMP
*
*
&BINWD EQU 4
&NIL EQU -1
&LWDTB EQU X'30000001'
*
*
 PROC ICL9LPCTMJSBEGIN
 CODE
 PRCL 4
 LSD &NIL/&NIL  * FOR 5X32 COMPATIBILITY
 ST.T
 RALN 7
 CALL .CTMJSBEGIN
 EXIT
*
*
 PROC ICL9LPCTMJSEND
 CODE
 PRCL 4
 LSD &NIL/&NIL  * FOR 5X32 COMPATIBILITY
 ST.T
 RALN 7
 CALL .CTMJSEND
 EXIT
*
*
 PROC ICL9LPCTMJSWRITEINT
 PARAMS
JSVNAME D'BYTE()
JSVVALUE LINT
RESPONSE D'INT
 CODE
 PRCL 4
 LSD D'JSVNAME
 SLSS (&BINWD*R'JSVVALUE)
 STLN.T
 IAD.T
 LUH &LWDTB
 SLSD &NIL/&NIL  * (REF) STRING VALUE
 ST.T  * (REF) NOT RANGE
 ST.T
 RALN 13
 CALL .CTMJSWRITE
 ST RESPONSE
 EXIT
*
*
 PROC ICL9LPCTMLOG
 PARAMS
MESSAGE D'BYTE()
*
&MESSTYPE EQU 4
*
 CODE
 PRCL 4
 LSD D'MESSAGE
 ST.T
 RALN 7
 CALL .SENDMESSAGE
 EXIT
*
*
 PROC ICL9LPCTMAF
 PARAMS
FILENAME D'BYTE()
ACCESSTYPE INT
ROUTE D'LINT
RESPONSE D'INT
*
&AFREAD EQU 1
*
 CODE
 PRCL 4
 LSS V'ROUTE
 LUH &LWDTB  * (REF) ROUTE
 SLSD &NIL/&NIL  * (REF) LOCAL NAME
 SLSD D'FILENAME  * (REF) FULL FILE NAME
 SLSS ACCESSTYPE  * ACCESS TYPE
 ST.T
 ICP &AFREAD
 JE READLOCK
 LSS 0  * LOCK (WRITE)
 J BOTHLOCK
READLOCK LSS 1  * LOCK (READ)
BOTHLOCK SLSS 0  * NOT RANGE A
 SLSD &NIL/&NIL  * (REF) NOT RANGE B
 SLSS 0  * START SECTION
 ST.T  * END SECTION
 SLSD 0  * EXISTING ROUTE
 ST.T  * NOT RANGE C
 SLSD &NIL/&NIL  * (REF) NOT RANGE D
 ST.T  * (REF) NOT RANGE E
 ST.T
 RALN 26
 CALL .CTMASSIGNFILE
 ST RESPONSE
 EXIT
*
*
 PROC ICL9LPCTMPROCTIME
 PARAMS
TIME D'LINT
 CODE
 PRCL 4
 LSS 1  ****
 SLSS V'TIME
 LUH &LWDTB
 ST.T
 RALN 8
 CALL .GIVEPROCESSTIME
 EXIT
*
*
 PROC ICL9LPCTMRMLD
 PARAMS
PC W
MODNAME D'B()
IIN D'W
OFFSET D'W
 LOCAL
AREASDR D'LW()
AREAS0 LW
AREAS1 LW
AREAS2 LW
AREAS3 LW
AREAS4 LW
AREAS5 LW
AREAS6 LW
AREAS7 LW
 LOCAL
MAXIIN W
 CODE
 STLN.B
 ADB (R'AREAS0 SL 2)
 LDA.B
 LDTB X'30000008'
 STD D'AREASDR
 LSS X'18000020'
 ST D'MODNAME
 LSS X'28000001'
 ST D'IIN
 ST D'OFFSET
 #HLCALL .CTMRMLD,
-  CP,PC,
-  RW,MODNAME,
-  CPD,-1,
-  RW,IIN,
-  CPD,-1,
-  RW,MAXIIN,
-  RW,AREASDR
*
 LB IIN
 LSD.M AREASDR
 STUH.B
 IRSB PC
 ST OFFSET
 LSS 0
 EXIT
 PROC ICL9LPCTMDUMP
 PARAMS
SUBTYPE W
TYPE W
FRAMESDATA W
AREASDR LW
OPTIONS W
 CODE
 #HLCALL .CTMDUMP,
-    CP,(SUBTYPE,TYPE),
-    CP,128,
-    CP,FRAMESDATA,
-    CP,AREASDR,
-    CPD,-1,
-    CP,OPTIONS,
-    CPD,0
*
 EXIT
 END