github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-22 18:42:15 +00:00
Code Issues Releases Wiki Activity

Copy IMPCTS from KS IMP to old IMP code.

Browse Source 
An IMP will only allow five outstanding messages to a host without
receiving an RFNM message.  The 1985 file SYSTEM; INET 115 had
tracking of RFNM in place.  At some point, the old IMP code was saved
as IMPOLD WTHNCP.  Later the code in INET was moved to the new IMP
file as the routine IMPCTS, but IMPOLD was not updated.
This commit is contained in:
Lars Brinkhoff 2018-03-13 14:36:07 +01:00
parent a3f05048e7
commit a26e54b1c4
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/system/impold.wthncp
View File

@ -695,6 +695,23 @@ FNDHS5: MOVEM I,IMPHTF ;FREE LIST
SKIPGE IMPHTF
POPJ P, ;GC-OVERFLOW
JRST FNDHST ;TRY AGAIN, SHOULD WIN
;See if IMP code is willing to handle a particular datagram right now.
; A/ IP DGM pointer
; C/ Immediate destination address
; Returns +1, can't send right now, +2, OK to send
;
IMPCTS:
IFN 0,[
MOVE T,C ;Set up for FNDHST
AND T,[<377_16.>+377] ;Mask out all but host and IMP field
CALL FNDHST ;Get host index in H
POPJ P, ;No host entry, don't send
JSP T,IMPBLI ;See if OK to send
POPJ P, ;IMP wants to block, no send
]
JRST POPJ1 ;Skip return if OK to send.
SUBTTL ARPANET INPUT INTERRUPT LEVEL