; EP-- MAIN entry point (usually jobbed)
; params: BGUIP := address of client requiring connection
; BGUSKT := client socket to call
IP
;
PGHDR
;
ETRAP
; -- on trapped error, send error info to client
TCP
; -- TCP PROCESSING LOOP
WRITE(BGUX)
;
INIT
;
SNDERR
;send error information
RESULT
;
; -- write returned data (in BGUDATA) to client
; BGUTYPE =
; 1 -- single value
; 2 -- table delimited by RS
; 3 -- word processing
; 4 -- global array type
; 5 -- raw buffer string
OLDETRAP
; -- on trapped error, send error info to client
LOGOUT
;
MAIN
;
RESTART
;IF ERROR OCCURRED CAPTURE ERROR AND COME BACK TO HERE