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 |