top - download
⟦1765a41b5⟧ Wang Wps File
Length: 496 (0x1f0)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN04.06«
Derivation
└─⟦ea7a1ecf3⟧ Bits:30006190 8" Wang WCS floppy, CR 0437A
└─ ⟦this⟧ »~ORPHAN04.06«
WangText
NUP. The BUFFER contents are cleared, the TX BUFFER returned to the HOST and a STATUS
BUFFER formatted and returned to the HOST.
ENTRY: Schedule periodically by monitor.
DESCRIPTION
HIF ̲TX ̲OUT(CHANNO):
IF (LCB ̲INDEX(CHANNO).NE.NULL).AND.(LC ̲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 ̲EMPTI
