top - download
⟦2ec751947⟧ Wang Wps File
Length: 744 (0x2e8)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN02.13«
Derivation
└─⟦ea7a1ecf3⟧ Bits:30006190 8" Wang WCS floppy, CR 0437A
└─ ⟦this⟧ »~ORPHAN02.13«
WangText
7.21 P̲R̲O̲C̲E̲D̲U̲R̲E̲ ̲-̲ ̲H̲I̲F̲$̲T̲X̲$̲O̲U̲T̲
F̲u̲n̲c̲t̲i̲o̲n̲
This procedure returns TRANSMISSION BUFFERS to the
HOST which have been transmitted without ERROR. BUFFERS
in ERROR will be returned by CLENUP. The BUFFER contents
are cleared, the TX BUFFER returned to the HOST and
a STATUS BUFFER formatted and returned to the HOST.
E̲n̲t̲r̲y̲
Schedule periodically by monitor.
D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
HIF$TX$OUT(CHANNO):
IF (LCB$INDEX(CHANNO).NE.NULL).AND.(LB$PROGRESS(CHANNO)
.EQ. FALSE) THEN
/*RETURN LCB*/
INDEX=LCB$INDEX(CHANNO);
LDU=BUFFER(INDEX).SEQ$NO;
LCB$INDEX(CHANN=NULL;
CLEAR(INDEX);
PUSH(INDEX,CHANNO,HOST$EMPTIES);
/*FORMAT STATUS RETURN*/
TEMP=POP(CHANNO,STACK$OF$EMPT
