HLCSTCP1 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;07/08/2009 15:27
Source file <HLCSTCP1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PROCESS | ;check message and reply
|
|
READ() | ;read 1 message, returns ien in 773^ien in 772 for message
|
|
RDBLK | ;
; initialize |
|
RDBLK2 | ;data stream: <sb>dddd<cr><eb><cr>
; HL*1.6*122 end ; look for segment= <CR> |
|
SAVE(SRC,DEST) | ;save into global & set top node
|
|
DELMSG(HLMAMT) | ;delete message from Message Administration/Message Text files.
|
|
PING | ;process PING message
|
|
CLEAN | ;reset var. for next message
|
|
ERROR | ; Error trap for disconnect error and return back to the read loop.
; patch HL*1.6*122 ; move to routine HLCSTCP4 (splitted-size over 10000) |
|
CC(X) | ;cleanup and close
|
|
RESET | ;reset info as a result of no end block
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^HL(772 - [#772] | Classic Fileman Calls |
^HLMA - [#773] | Classic Fileman Calls |