; EP - from ABSPOSR4
; callable from outside:
; given TIME = starting time to examine
; given ENDTIME="" to go through end, else ending date.time
; Be careful to process them in order!
GETFIELD(X)
MONITOR
;EP -
PROC1
; given WORKLIST,TIME,TYPE,RXI,RXR
; MSG for logging: set to null if you don't want a message
; (we'll probably change a lot of these to "" as we gain confidence)
MYLIST()
HANG
LOG(X)
LASTUP(RXI,RXR)
NEXT(N)
; advances T1,T2 ; come in with T1,T2 already set
KMYLIST
TURNEDON()
WORK1
; we have LISTROOT,CLAIM,CANCEL,INDEX,T,RXI,RXR
; put it on the work list
T2(INDEX,T1,N)
; sets T2 to include N transactions from given T1
; may be more than N if there are several at the exact same time