top - download
⟦0f06cf559⟧ Wang Wps File
Length: 4898 (0x1322)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN65.00«
Derivation
└─⟦ea7a1ecf3⟧ Bits:30006190 8" Wang WCS floppy, CR 0437A
└─ ⟦this⟧ »~ORPHAN65.00«
WangText
A @…00…@…06…8…08…8…0a…8…0c…8…0e…8…00…8 7…08…7…0b…7…00…7…02…7…05…5…0b…5…0d…5…0f…5…02…5…06…4…09…4…0c…4…0f…4 4…06…3…09…3…0c…3…02…3…07…2…0a…2…0f…2…06…1…0c…1
0…08…0…0e…0…05…/…0c…/…00…/ .…08….…0c….…0f…. .…07…-…0d…- -…07…,…0d…,…86…1
…02…
…02…
…02…
…02…CPS/LITS/DSP/0001
…02…KD/840208…02……02…
CAMPS
LITSYNC
FIRMWARE
DETAILED
DESIGN
SPECIFICATION…02……02…CAMPS
7.23 PROCEDURE HOSSACK .......................
7.24 PROCEDURE INIT ̲HOST ̲BUFFERS ..............
7.25 PROCEDURE INIT ̲HOSTIF ....................
7.26 PROCEDURE INITIATE ̲TRANSMISSION ..........
7.27 PROCEDURE LEVEL1 ̲CLOSE ...................
7.28 PROCEDURE L1HANDL ........................
7.29 PROCEDURE MONITOR ........................
7.30 PROCEDURE MOVE ̲DATA ......................
7.31 PROCEDURE MOVE ̲RX ̲DATA ...................
7.32 PROCEDURE OPEN ̲CMPLETE ..................
7.33 PROCEDURE OPEN ̲EDC .......................
7.34 PROCEDURE POPL ...........................
7.35 PROCEDURE PUSHL ..........................
7.36 PROCEDURE POPS ...........................
7.37 PROCEDURE PUSHS ..........................
7.38 PROCEDURE QUEUE ̲ACK ......................
7.39 PROCEDURE QUEUE ̲LCB ......................
7.40 PROCEDURE QUEUE ̲NAK ......................
7.41 PROCEDURE QUEUE ̲NAK .....................
7.42 PROCEDURE QUEUE ̲STATUS ...................
7.43 PROCEDURE REDEFINE ̲PARAMETERS ............
7.44 PROCEDURE RED ̲ERROR ......................
7.45 PROCEDURE RESYNCHRONIZER .................
7.46 PROCEDURE RELEASE ̲BUFFER(CHANNO) .........
7.47 PROCEDURE REMOVE ̲ELEMENT .................
7.48 PROCEDURE RE ̲QUEUE ̲LCB(CHANNO) ...........
7.49 PROCEDURE REPORT ̲PROTOCOL ................
7.50 PROCEDURE RX ̲DISPATCHE ..................
7.51 PROCEDURE SCHEDULE .......................
7.52 PROCEDURE SEGMENT ̲PROCESSOR ..............
7.53 PROCEDURE SERVICE ̲INVALID ̲RETRANSMISSIONS
7.54 PROCEDURE SERVICE ̲NEXT ̲EXPECTED ..........
755 PROCEDURE SERVICE ̲RETRANSMISSIONS ........
7.56 PROCEDURE SET ̲XMIT ̲PRIORITY ..............
7.57 PROCEDURE SPEC ̲INT .......................
7.58 PROCEDURE STORE ̲PRIMARY ̲BUFFER ...........
7.59 PROCEDURE STORE ̲SEC ̲BUFFE ...............
7.60 PROCEDURE TRANSMITTER(CHANNO) ............
7.61 PROCEDURE TX ̲CANCEL ......................
7.62 PROCEDURE TX ̲ERROR .......................
7.63 PROCEDURE XMITTER ........................
7.64PROGRAM DEFINITIONS ......................
8 TESTING ........................................
8.1 PHASE 1 ....................................
APPENDIX A .......................................
APPENDIX B ......................................
APPENDIX C .......................................
APPENDIX D .......................................
APPENDIX E .......................................
…86…1 …02… …02… …02… …02…
7.23 P̲R̲O̲C̲E̲D̲U̲R̲E̲ ̲H̲O̲S̲T̲ ̲A̲C̲K̲
F̲U̲N̲C̲T̲I̲O̲N̲
This Procedure sends ACK blocks for reception blocks
which the host has acknowledged as receiving. It handles
both LCB and data.
E̲N̲T̲R̲Y̲
Calld by HIF ̲COMMAND
D̲E̲S̲C̲R̲I̲P̲T̲I̲O̲N̲
HOST ̲ACK(CHANNO,INDEX):
/*CHECK IF HOST IS ACKNOWLEDGING LCB*/
IF BUFFER(INDEX).Pl .EQ. LCB ̲LDU(CHANNO) THEN
/*FORMAT ACKL*/
FRAME = ACKL ̲ADDR(CHANNO);
FRAME.C1 = ACKL ̲SIZE ̲L;
FRAME.C2 = ACKL ̲SIZE ̲M;
FRAE.TYPE = ACKL;
FRAME.BID = LCB ̲SEQ(CHANNO);
SET XSTATE7 ̲HEADER(CHANNO);
/* SET RECEIVER TO ACCEPT NEXT LCB */
R ̲L ̲ STATE(CHANNO) = ACCEPT;
/* RETURN EMPTY CONTROL BLOCK TO HOST */
PUSH(INDEX, CHANNO, HOST ̲EMPTIES);
CLEAR(INDEX);
LCBLDU(CHANNO) = NULL;
RETURN;
ELSE
/* DATA SEGMENT */
/* VERIFY CORRECT LDU */
IF BUFFER(INDEX).P1 = LDU ̲DATA ̲1(CHANNO) THEN
/* FORMAT BLOCK */
PTR = ACK ̲ADDR(CHANNO).ACK ̲IN;
FRAME = ACK ̲BASE+(ACK ̲ADDR(CHANNO).ACK ̲INxFRAME ̲SISE);
FRAM.C1 = ACK ̲SIZE#L;
FRAME.C2 = ACK ̲SIZE ̲M;
FRAME.TYPE = ACK;
ACK ̲CIRCLE(PTR) = EOS ̲1(CHANNO);
FRAME.BID = EOS ̲1(CHANNO);
/* UPDATE INTERNAL POINTERS */
LAST ̲ACKED(CHANNO) = EOS ̲1(CHANNO);
EOS ̲1(CHANNO) = EOS ̲2(CHANNO);
EOS ̲2(CHANNO) =NULL;
EOS ̲1COMPLETION = EOS ̲2 ̲COMPLETION…86…1 …02… …02…
…02… …02…
EOS2 ̲COMPLETION = FALSE;
INCREMENT ACK ̲ADDR(CHANNO).ACK ̲IN MOD ACK ̲TAB ̲LEN;
LDU ̲DATA ̲1(CHANNO) = LDU ̲DATA ̲2(CHANNO);
LDU ̲DATA ̲2(CHANNO) = NULL;
PUSH(CHANNO,INDEX,DISCARD ̲TRL);
RETURN;
ELSE
CALL STATE ̲ERROR(CHANNO,INDEX,LDU ̲ERR);
RETURN;
END /* HOST ̲ACK */
