SFLGENERAL MODULE
*
*
 INCLUDE SMACS
*
*
 PROC ICL9LPCURRENTPLTAD
  *
  * N.B. ASSUME THIS MODULE IS
  *      COMPILED WITH PLT=XNB
  *
 CODE
 STCT.B
 LSS.B
 EXIT
*
*
 PROC ICL9LPCURRENTGLOBALAD
  *
  * N.B. ASSUME THIS MODULE IS
  *      COMPILED WITH PLT=XNB
  *
*
&WVBCIDTB EQU X'29FFFFFF'
&GADOFFSET EQU 9
  CODE
  STCT.B
  LDTB &WVBCIDTB
  LDA &GADOFFSET
  LSS.MD
  EXIT
*
*
 PROC ICL9LPCURSTACKBASEAD
*
&WDALIGNMASK EQU X'FFFFFFFC'
 CODE
 LSS.L 0
 AND &WDALIGNMASK
 EXIT
*
*
 PROC ICL9LPEXITWITHRESPATLNB
 PARAMS
RESPONSE WORD
LNBVAL WORD
 CODE
 LSS RESPONSE
 LLN LNBVAL
 EXIT
*
*
 PROC ICL9LPMASKUFLOW
*
&MASKUFLOW EQU X'4080'
&SAVEMASK EQU X'2C'
 CODE
 MPSR &MASKUFLOW
 EXIT &SAVEMASK
*
*
 PROC ICL9LPCOPYBYTES
*
&BVDTB EQU X'18000000'
 PARAMS
COPYCOUNT INT
SOURCEAD WORD
DESTAD WORD
 CODE
 LDTB &BVDTB
 LDB COPYCOUNT
 LDA SOURCEAD
 CYD
 LDA DESTAD
 MV
 EXIT
*
*
 PROC ICL9LPBYTEFILL
*
&BVDTB EQU X'18000000'
 PARAMS
BYTEVAL INT
FILLCOUNT INT
DESTBASEAD WORD
 CODE
 LDTB &BVDTB
 LDB FILLCOUNT
 LDA DESTBASEAD
 LB BYTEVAL
 MVL
 EXIT
*
*
 PROC ICL9LPTRANSLATE
*
&BV256DTB EQU X'18000100'
&BVDTB EQU X'18000000'
 PARAMS
TRANTABAD WORD
STRINGLEN INT
STRINGAD WORD
 CODE
 LSS TRANTABAD
 LUH &BV256DTB
 LDTB &BVDTB
 LDB STRINGLEN
 LDA STRINGAD
 TTR
 EXIT
*
*
 PROC ICL9LPUSB
 PARAMS
W1 INT
W2 INT
 CODE
 LSS W2
 USB W1
 EXIT
*
*
 PROC ICL9LPLONGISB
 PARAMS
LI1 LINT
LI2 LINT
LI3 D'WORD()  * LONG INT AS A WORD-PAIR
 CODE
 LSD LI2
 ISB LI1
 STUH LI3
 ST.D 1
 EXIT
*
*
 PROC ICL9LPLONGIDIV
 PARAMS
LI1 LINT
LI2 LINT
LI3 D'WORD()  * LONG INT AS A WORD-PAIR
 CODE
 LSD LI2
 IDV LI1
 STUH LI3
 ST.D 1
 EXIT
*
*
 END