Trailing-Edge
-
PDP-10 Archives
-
bb-bt99h-bb
-
d8eint.x14
There are 3 other files named d8eint.x14 in the archive. Click here to see a list.
TITLE D8EINT "FEK" service routine for ANF-to-Ethernet
SUBTTL RDH 24 JUN 86
SEARCH F,S,NETPRM,ETHPRM,MACSYM
$RELOC
$HIGH
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
.CPYRT<1985,1986>
;COPYRIGHT (C) 1985,1986
;BY DIGITAL EQUIPMEMT CORP., MAYNARD, MASS.
;ALL RIGHTS RESERVED.
XP VD8EINT,013 ;VERSION NUMBER
IFE FTENET,<
PASS2
PRINTX [FTENET is turned off in D8EINT, suppressing assembly]
END
> ;IFE FTENET
ENTRY D8EINT
D8EINT::
Comment \
OVERVIEW
D8EINT is the ANF/Ethernet interface module.
As with D8SINT, D8EINT is a software-only interface between the ANF
network and actual hardware service routine (ETHSER in this case).
Unlike most FEKs however, the "NI" FEK is a hardware-independent in-
terface, and in particular doesn't care which cpu runs the FEK service
routines, or, for that matter, what type of cpu runs them.
At this writing, ETHSER presents only a single "channel" to the user
(e.g., ANF) with no provision for more than one "NI" network. While
D8EINT was written with multiple "channels" in mind, D8EINI in partic-
ular will need work to run in a multiple-channel environment (there
are a lot of unanswered questions about such an environment, like what
it looks like).
D8EINT uses two types of FEKs, so-called "master" and "slave" FEKs.
Each Ethernet channel (ETH-n) has one master FEK associated with it.
The ETH-0 master FEK is hardwired into COMMON along with all the other
"normal" FEKs, FEKs for other Ethernet channels (if such ever occurs)
are generated dynamically at SYSINI time and linked into the FEK chain.
All Ethernet input operations are done via a master FEK and never
via a slave FEK. All multicast NCL traffic (the periodic NODEID as
described below) goes out via a master FEK.
Each master FEK points to a (conceivably-0-length) chain of slave FEKs.
There is one slave FEK for each NCL node on the Ethernet (this is how
the nodes are faked out as "neighbors" of this host node). NCL messages
for a specific node are output via these slave FEKs (but be aware that
the output-done interrupt comes back via the slave's master FEK!!).
RESTRICTIONS
The first pass at NCL on the ethernet implements a restricted NCL
service by treating each other NCL node on the ethernet as an immediate
neighbor (indistinguishable from any other 'point-to-point' communications
link). This means that the number of NCL nodes supportable on a single
ethernet is drastically limited by NGHMAX - the maximum number of
neighbors any node in the net can support. This restriction allows NCL
to directly support the ethernet with only the most minor of protocol
changes (support of a 'broadcast' NODEID message). To properly support
NCL on an ethernet would require a significant, ah, enhancement of the
neighbors-based routing philosophy . . .
Since the KLNI can't deal with 7-bit byte pointers (boy, ever since
the DL-10 passed away it's been a steady down-hill trend!!!!!!!!!!)
NETSER must provide an 8-bit byte buffer. For the moment, it is assumed
that the buffer is contiguous and that there is only one byte count
and pointer for the entire PCB.
ETHERNET-SPECIFIC NCL PROTOCOL
The NODEID message format is extended to include a 'serial number'
(based on the ethernet 'uptime').
As with other FEKs (the NUL FEK excluded of course) a NODEID is the
first message transmitted through a FEK when the FEK comes 'online'.
This NODEID is always a 'broadcast' ethernet message. Periodically
thereafter another NODEID is 'broadcast', with an incremented serial
number (unlike other FEKs where a NODEID is NEVER sent again until
the FEK has gone offline and come back online).
Whenever an ethernet broadcast NODEID is received from an unknown NCL
node (or even a known NCL node not on the ethernet) that node is marked
as a "neighbor" (*) on the ethernet and the serial number is stashed away.
Any subsequent broadcast NODEID is ignored as long as the serial number
monotonically increases. If a broadcast NODEID is received with a serial
number which is smaller, then the NCL logical link is reinitialized.
Other than the serial-numbered NODEID message, the NCL protocol treats
the ethernet just like any other communications line.
(*) = The NCL "neighbor" is given its very own "slave" FEK, linked back
to the master FEK for that Ethernet channel. As far as NETSER is concerned
it looks just like any other "real" FEK.
FEK USAGE
The Ethernet FEKs have several (quite a few, actually) specific entries.
They are:
FEKNIA For a master FEK, FEKNIA contains the ANF protocol "broadcast"
address (same as %NTNIM). For a slave FEK, FEKNIA contains the
remote Ethernet destination address for the ANF node associated
with this FEK. With this setup, and output to a specific node is
queued via that node's FEK, while any output to be "broadcast"
is queued via the master FEK.
FEKNIC For a master FEK, FEKNIC is the Ethernet "channel" ID. Not used
by slave FEKs.
FEKNID For a master FEK, FEKNID is the Ethernet "portal" ID. Not used
by slave FEKs.
FEKNIF FEKNIF contains the address of the FEK's associated master FEK
(a master FEK points to itself).
FEKNIQ For a master FEK, FEKNIQ is the count of PCBs (buffers) queued to
to the Ethernet service layer. Not used by slave FEKs.
FEKNIS For a master FEK, FEKNIS is the current NODEID "serial number",
incremented for each broadcast NODEID. For a slave FEK, FEKNIS
is the last received NODEID serial number from the remote ANF
node.
FEKNIT For a master FEK, FEKNIT contains XWD <int>,<tim> where <int> is
the current (sliding) interval between consecutive broadcast NODEID
messages, and <tim> is the current timer until the next broadcast
NODEID message. For a slave FEK, FEKNIT is the time since the last
received NODEID from the FEK's associated remote node. All values
are in seconds.
USING D8EINT
To utilize ANF on the Ethernet, the user must explicitly define the two
symbols ANFNIP and ANFNIM via MONGEN. If the symbol ANFNIP is not defined,
then D8EINT will not be loaded with the monitor (COMMON FEK definitions).
If ANFNIP is defined, it is the Ethernet protocol type to be used by ANF.
If ANFNIP is 0, then ANF will not use the Ethernet (even though D8EINT is
loaded). This allows the adventurous user to have D8EINT loaded with the
monitor for playtime experiments (by patching the protocol type value
into location %NTNIP in NETSER) without having to rebuild the monitor,
yet still bring the monitor up sans ANF Ethernet. If ANFNIP is non-zero,
it will be used as the Ethernet protocol type for ANF NCL communications.
The protocol type is 16 bits in size. Protocol 60-06 (60006 octal) is
reserved for customer usage, as are multicast addresses AB-00-04-00-xx-xx.
The symbol ANFNIM defines the "xx-xx" part of the multicast address, and
is also 16 bits wide - but **MUST** be defined as a left-justified integer
value (bits 00-15), as opposed to ANFNIP which is a right-justified integer
value (bits 20-35). If ANFNIM is not explicitly defined, it will default
to the ANFNIP value (shifted to left-most 16 bits).
For example, in the MONGEN dialog for "OCTAL SYMBOL,VALUE", include:
ANFNIP,<60006B35> ;ANF Ethernet protocol 60-06
ANFNIM,<60006B15> ;ANF Ethernet broadcast address AB-00-04-00-60-06
\
SUBTTL D8EINT parameters varied and sundry
ND RSBLEN,10 ;LENGTH OF RANDOM SCRATCH BLOCK
;D8EINI -- ONCE-only D8EINT initialization
;
;This routine is called by SYSINI to dynamically build a master FEK for
;each of the Ethernet "channels". The individual "channels" (or FEKs)
;will be set online later (FF.ONC FEK dispatch from SYSINI/FEKINI).
D8EINI::SKIPG %NTNIP## ;GOT AN ANF PROTOCOL TYPE?
POPJ P, ;NOPE, CAN DO NOTHING HERE
SE1ENT ;GET INTO SECTION 1 FOR ETHSER
PUSHJ P,D8EGUN ;GET A UN BLOCK (RETURN IN P4)
POPJ P, ;NO UN? CAN DO NOTHING HERE
MOVEI T1,RSBLEN ;LENGTH OF A RANDOM SCRATCH BLOCK
STOR T1,UNBSZ,(P4) ;SET THAT AS SIZE OF "BUFFER"
XMOVEI T1,D8EBLK ;ADDRESS OF A RANDOM SCRATCH BLOCK
STOR T1,UNBFA,(P4) ;SET AS ADDRESS OF "BUFFER"
MOVX T1,NU.RCL ;FUNCTION: "RETURN CHANNEL LIST"
XMOVEI T2,(P4) ;ADDRESS OF "UN" BLOCK
PUSHJ P,ETHSER## ;ASK ETHSER FOR KNOWN CHANNELS
POPJ P, ;NO? THEN NO ETHERNET SERVICE HERE!
LOAD T1,UNBSZ,(P4) ;GET RETURNED COUNT (OF CHANNELS)
JUMPE T1,CPOPJ## ;IF NO CHANNELS THEN QUIT NOW
CAIE T1,1 ;*** ONLY ALLOW FOR ONE ETHERNET CHANNEL FOR NOW
STOPCD CPOPJ,DEBUG,D8ETME ;++ TOO MANY ETHERNETS
;Loop buildng a "master" FEK for each Ethernet channel (ETH-0, etc.)
PUSHJ P,SAVE4## ;WILL NEED SOME ACS HERE
MOVN P1,T1 ;NEGATIVE COUNT OF ETH CHANNELS
HRLZ P1,P1 ;AOBJN COUNT
D8EIN2: XMOVEI T1,ET0FEK## ;PROTOTYPE (AND HARDWIRED ETH-0) FEK
;RDH TRNN P1,-1 ;IS THIS CHANNEL "0"?
;RDH JRST D8EIN3 ;YES, USE PRE-EXISTING FEK THEN
;RDH MOVEI J,ET0FEK## ;USE ET0FEK AS A PROTOTYPE
;RDH PUSHJ P,D8EFGN ;ALLOCATE AN ETHERNET FEK
;RDH POPJ P, ;CAN'T GO ANY FURTHER HERE
D8EIN3: MOVEM T1,FEKNIF(T1) ;POINT FEK TO ITSELF AS MASTER FEK
MOVSI T2,FK.ETH!FK.ETM;THE "ETHERNET-MASTER-FEK" FLAG(S)
IORM T2,FEKBLK(T1) ;MARK THIS FEK AS AN ETHERNET MASTER
MOVE T2,D8EBLK(P1) ;GET THE ETHSER "CHANNEL" ID
MOVEM T2,FEKNIC(T1) ;AND SAVE IT
DMOVE T2,%NTNIM## ;ANF MULTICAST ADDRESS
DMOVEM T2,FEKNIA(T1) ;SET THAT ADDRESS IN MASTER FEK
MOVSI T2,4 ;INITIAL BROADCAST TIMER INTERVAL
MOVEM T2,FEKNIT(T1) ;SET IT UP
SETZM FEKNIS(T1) ;INITIALIZE NODEID SERIAL NUMBER
;RDH TRNN P1,-1 ;IS THIS THE PROTOTYPE ETH-0 FEK?
;RDH JRST D8EIN5 ;YES, IT'S ALREADY PROPERLY LINKED
;RDH HRRZ T2,ET0FEK##+FEKBLK ;SPLICE THIS NEWLY-CREATED
;RDH HRRM T1,ET0FEK##+FEKBLK ; ETHERNET MASTER FEK INTO THE
;RDH HRRM T2,FEKBLK(T1) ; SYSTEM FEK CHAIN
D8EIN5: AOBJN P1,D8EIN2 ;LOOP FOR ALL ETHERNET "CHANNELS"
POPJ P, ;ALL FEKS BUILT
SUBTTL FEK 'Kontroller' service
;D8EDSP - Kontroller dispatch service from NETSER
;Call is:
;
; MOVEI T1,<FNC>
; MOVE J, <FEK>
; PUSHJ P,D8EDSP
; return always
;
;where <FEK> is the address of the FEK block; and <FNC> is the FEK-level
;function (FF.???) to be performed. See the individual functions for
;the passing of function-specific data.
;
;Return is CPOPJ always.
D8EDSP::SE1ENT ;NEED TO BE IN EXTENDED ADDRESSING
CAIL T1,FF.ONC ;RANGE CHECK THE FUNCTION
CAILE T1,FF.DFK ; CODE AND STOP IF BAD
PUSHJ P,NTDSTP## ;++ ERROR: BAD FUNCTION CODE TO FEK
JRST @D8EDST(T1) ;DISPATCH TO APPROPRIATE ROUTINE
;FEK function dispatch table
D8EDST: IFIW D8EONC ;FF.ONC - 00 - ONCE-ONLY INITIALIZATION
IFIW D8ESEC ;FF.SEC - 01 - ONCE-A-SECOND CODE
IFIW D8ERDD ;FF.RDD - 02 - POST A RECEIVE BUFFER
IFIW D8EWRT ;FF.WRT - 03 - POST A TRANSMIT BUFFER
IFIW D8ECRS ;FF.CRS - 04 - CRASH THE 'FE'
IFIW D8EDWN ;FF.DWN - 05 - ENTRY WHEN 'FE' CRASHES
IFIW D8EUPP ;FF.UP - 06 - ENTRY WHEN 'FE' COMES UP
IFIW D8ESTC ;FF.STC - 07 - STATION CONTROL
IFIW D8ECPS ;FF.CPS - 10 - CPU IS GOING TO SLEEP
IFIW D8ECPW ;FF.CPW - 11 - CPU IS WAKING UP
IFIW D8ECFK ;FF.CFK - 12 - CREATE NEW SLAVE FEK
IFIW D8EDFK ;FF.DFK - 13 - DESTROY OLD SLAVE FEK
;D8EONC -- ONCE-only FEK initialization
;
;D8EINI has already been called and has built the various master FEK
;blocks for each Ethernet "channel". This code is a per-FEK call to
;turn on each individual FEK.
D8EONC: SKIPG %NTNIP## ;ANF PROTOCOL DEFINED?
POPJ P, ;NO, THEN NO ETHERNET SERVICE
PUSHJ P,D8EGUN ;GET A UN BLOCK
POPJ P, ;NONE AVAILABLE?
MOVE T1,FEKNIC(J) ;GET ETHERNET "CHANNEL" ID
STOR T1,UNCHN,(P4) ;STORE IN "UN" BLOCK
STOR J,UNUID,(P4) ;STORE FEK ADDRESS ("USER ID") IN "UN" BLOCK
XMOVEI T1,D8EISR ;GET OUR "CALLBACK" (OR ISR) DISPATCH ADDRESS
STOR T1,UNCBA,(P4) ;STORE IN "UN" BLOCK
MOVE T1,%NTNIP## ;GET ANF ETHERNET PROTOCOL TYPE
STOR T1,UNPRO,(P4) ;STORE IN "UN" BLOCK
SETONE UNPAD,(P4) ;ENABLE "PADDING" OF MESSAGES
MOVEI T1,NU.OPN ;FUNCTION: OPEN PORTAL
XMOVEI T2,(P4) ;ADDRESS OF "UN" BLOCK
PUSHJ P,ETHSER## ;ASK ETHSER TO OPEN A PORTAL FOR US
POPJ P, ;NO???
LOAD T1,UNPID,(P4) ;GET PORTAL ID
MOVEM T1,FEKNID(J) ;SAVE FOR FUTURE CALLS TO ETHSER
PUSHJ P,D8EOOF ;SET FEK ON- OR OFF-LINE
JFCL ;CAN'T FAIL
DMOVE T1,%NTNIM## ;GET ANF ETHERNET MULTICAST ADDRESS
DMOVEM T1,UN.DAD(P4) ;STOR IN "UN" BLOCK
MOVEI T1,NU.EMA ;FUNCTION: ENABLE MULTICAST ADDRESS
XMOVEI T2,(P4) ;ADDRESS OF "UN" BLOCK
PUSHJ P,ETHSER## ;TURN ON MULTICAST ADDRESS RECEPTION
JFCL ;CAN'T FAIL!
POPJ P, ;RETURN WITH FEK ENABLED
;D8ESEC -- Once-a-second FEK service
;
;Here once-per-second for each of the Ethernet FEKs. Perform the broad-
;cast NODEID timing for "master" FEKs.
D8ESEC: SKIPL T1,FEKBLK(J) ;GET THE FEK FLAGS
.CREF FK.ONL ;CREF REFERENCE TO FEK-ONLINE FLAG
POPJ P, ;FEK IS OFFLINE, FORGET IT
TLNN T1,FK.ETM ;THIS IS A MASTER FEK, ISN'T IT?
JRST D8ESE6 ;NO, A SLAVE, CHECK FOR COMMUNICATIONS TIMEOUT
D8ESE1: HRRE T1,FEKNIT(J) ;GET COUNTDOWN TIMER
SOJLE T1,D8ESE3 ;REQUEST NODEID BROADCAST IF EXPIRED
HRRM T1,FEKNIT(J) ;SET NEW TIMER VALUE
PJRST NTFSEC## ;AND DO NORMAL NETSER ONCE/SECOND STUFF
D8ESE3: MOVSI T2,FK.NID ;THE "NODEID SENT" FLAG
TDNN T2,FEKBLK(J) ;HAVE WE SENT A NODEID?
PJRST NTFSEC## ;NOT YET, LEAVE TIMER(S) ALONE
ANDCAM T2,FEKBLK(J) ;YES, REQUEST ANOTHER NODEID BE SENT
HLRZ T1,FEKNIT(J) ;GET INCREMENTAL TIMER VALUE
LSH T1,1 ;SCALE IT UP A BIT,
CAMLE T1,%NTNII## ; BUT PEG IT
MOVE T1,%NTNII## ; AT [NOMINALLY] A ONE-MINUTE INTERVAL
HRLZM T1,FEKNIT(J) ;STORE NEW INTERVAL
PJRST NTFSEC## ;AND DO NORMAL NETSER ONCE/SECOND STUFF
;Here for a slave FEK, make sure we are in "constant" contact with the remote
; node. This must be done on a per-FEK (and associated NODEID) basis since
; we can't rely on normal NCL traffic (in case multiple Ethernet channels
; to the same node ever arise).
D8ESE6: SOSL FEKNIT(J) ;DECREMENT TIMER
POPJ P, ;STILL ALIVE, AFTER ALL THESE . . .
PJRST D8EDFK ;TIMED OUT, KILL OFF THE FEK
;D8ERDD -- Read request (post a receive buffer)
;
;FEKIAD contains a PCB address to be filled with receive data.
;
;This function merely gives the buffer to the "FE" service routine to
;be filled, no actual data is returned by this call.
;
; Note: Unlike other ANF FEKs, this routine actually decouples the input
; PCB and gives it to ETHSER to queue, using FEKNIQ as a count of
; buffers hiding inside ETHSER. See NETSER's NETRDD routine. This
; skulduggery is necessary to keep multiple buffers available such
; that the KLNI [probably] won't run out of buffers and lose input
; messages . . .
D8ERDD: AOSE FEKBSI(J) ;GET THE INPUT INTERLOCK (WE GET HERE FROM
; BOTH UUO AND INTERRUPT LEVEL)
POPJ P, ;IF ALREADY DOING INPUT, EXIT
PUSHJ P,D8EGUN ;GET A UN BLOCK
JRST D8ERD7 ;NONE AVAILABLE, TRY AGAIN LATER
SKIPN T1,FEKIAD(J) ;GOT AN INPUT BUFFER?
JRST D8ERD9 ;NO
MOVE T2,FEKBLK(J) ;GET THE FEK FLAGS
TLNN T2,FK.ETM ;ONLY THE MASTER FEK GETS TO DO INPUT
STOPCD D8ERD9,DEBUG,D8ESFI ;++ SLAVE FEK HAS INPUT BUFFER
MOVE T2,FEKNID(J) ;ETHSER'S PORTAL ID
STOR T2,UNPID,(P4) ;STORE IN "UN" BLOCK
STOR T1,UNRID,(P4) ;STORE PCB ADDRESS IN "UN" BLOCK RID FIELD
;RDH SETZRO UNBSZ,(P4) ;NO BYTE COUNT MEANS MSD-STYLE CALL
;RDH XMOVEI T2,PCBMS1(T1) ;ADDRESS OF MSD PORTION OF PCB
;RDH STOR T2,UNBFA,(P4) ;STORE IN "UN" BLOCK
;RDH SETZM PCBNXX(T1) ;NO SECOND MSD HERE (STUPID KLNI!!!)
MOVE T2,PCBCTR(T1) ;COUNT OF DATA BYTES IN BUFFER
ADDI T2,4 ;ALLOW FOR STUPID CRC BYTES (*!!$!*#!!)
; BUT *NOT* THE OTHER TWO COUNT BYTES
; YEAH, THIS LOOKS REALLY ODD, BUT NETSER
; CAREFULLY ALLOCATES A BUFFER THAT IS
; SECRETLY 6 BYTES LARGER THAN MSGMAX . . .
STOR T2,UNBSZ,(P4) ;STORE IN "UN" BLOCK
HLLZ T2,PCBPTR(T1) ;NOW MUST CONCOCT A TWO-WORD GLOBAL
HRRZ T3,PCBPTR(T1) ; BYTE POINTER FOR ETHSER
TLO T2,(1B12) ; OTHERWISE IT GOES DING DING DING
DMOVEM T2,UN.BFA(P4) ;STORE IN "UN" BLOCK
MOVX T2,UNA.EV ;THE DATA BUFFER IS IN EXEC VIRTUAL MEMORY
STOR T2,UNADS,(P4) ;STORE THAT IN "UN" BLOCK
MOVEI T1,NU.RCV ;FUNCTION: POST RECEIVE BUFFER
XMOVEI T2,(P4) ;ADDRESS OF "UN" BLOCK
PUSHJ P,ETHSER## ;QUEUE UP RECEIVE BUFFER
JRST D8ERD4 ;ERROR? GO CHECK IT OUT
HRRZ T1,FEKIAD(J) ;RETRIEVE ADDRESS OF PCB
HRRZ T2,PCBBLK(T1) ;ADDRESS OF NEXT PCB (MUST BE 0)
CAIE T2,0 ;JUST TO MAKE SURE IS REALLY TRULY 0
PUSHJ P,NTDSTP## ;THIS IS A NO-NO
MOVEM T2,FEKIAD(J) ;INDICATE PCB GIVEN TO ETHSER
AOS FEKNIQ(J) ;COUNT UP BUFFERS QUEUED TO ETHSER
JRST D8ERD9 ;ALL DONE HERE
;Here when ETHSER rejects our attempt to queue up an input buffer
D8ERD4: CAIE T1,UNRES% ;NO RESOURCES TO DEAL WITH BUFFER?
CAIN T1,UNPWS% ;OR PORTAL IN WRONG STATE (IN TRANSISTION)?
JRST D8ERD7 ;YEAH, FLAG TO TRY AGAIN LATER
CAIN T1,UNRAB% ;RECEIVE ABORTED?
JRST D8ERD7 ;YEAH, TRY AGAIN LATER
STOPCD CPOPJ,DEBUG,D8ERFU ;++ "RDD" REQUEST FOULED UP
; NOTE WELL: THIS LEAVES FEKBSI SET!!!!
; EFFECTIVELY "HANGING" THIS FEK . . .
; BUT AT LEAST IT SHOULD CAUSE NO MORE TROUBLE
;No resources for input buffer, try again later
D8ERD7: MOVSI T1,FK.STI ;THE "KICK ME" FEK FLAG
IORM T1,FEKBLK(J) ;ASK FOR CLOCK-DRIVEN SERVICE LATER ON
D8ERD9: SETOM FEKBSI(J) ;INPUT NOW IDLE
POPJ P, ;RETURN
;D8EWRT -- Write request (post a transmit buffer)
;
;FEKOAD contains a PCB address chain to be transmitted (in order of
;entry on the PCB chain); FEKOCT incremented by the caller.
;
;This function merely "queues" the PCB(s) from FEKOAD to the "FE"
;service routine.
D8EWRT: AOSE FEKBSO(J) ;GET THE "OUTPUT BUSY" INTERLOCK
POPJ P, ; IF ALREADY DOING OUTPUT, EXIT NOW
PUSHJ P,D8EGUN ;GET A UN BLOCK
JRST D8EWR7 ;NONE AVAILABLE, TRY AGAIN LATER
D8EWR0: NETOFF ;KEEP THE PCB CHAIN(S) CLEAN
SKIPG FEKOCT(J) ;CHECK IF ANYTHING TO DO
JRST D8EWR8 ;IF NO OUTPUT MSGS, SET OUTPUT IDLE
SOS FEKOCT(J) ;COUNT DOWN PCB'S ON THE QUEUE
HRRZ T1,FEKOAD(J) ;FIRST OUTPUT PCB ON QUEUE
HRRZ T2,PCBBLK(T1) ;NEXT (IF ANY) PCB ON THE CHAIN
HRRZM T2,FEKOAD(J) ;BECOMES NEW FIRST PCB ON OUTPUT QUEUE
NETON ;SAFE AGAIN
HLLZS PCBBLK(T1) ;DELINK THIS PCB FROM THE QUEUE
HRLM J,PCBFEK(T1) ;REMEMBER FROM WHICH FEK CAME THIS PCB
MOVE T4,FEKNIF(J) ;GET MASTER FEK ADDRESS
MOVE T2,FEKNID(T4) ;ETHSER'S PORTAL ID VALUE (FROM MASTER)
STOR T2,UNPID,(P4) ;STORE IN "UN" BLOCK
DMOVE T2,FEKNIA(J) ;REMOTE ETHERNET NODE ADDRESS
; (OR MULTICAST ADDRESS IF MASTER FEK)
DMOVEM T2,UN.DAD(P4) ;STORE IN "UN" BLOCK
STOR T1,UNRID,(P4) ;STORE PCB ADDRESS IN "UN" BLOCK RID FIELD
;RDH SETZRO UNBSZ,(P4) ;NO BYTE COUNT MEANS MSD-STYLE CALL
;RDH XMOVEI T2,PCBMS1(T1) ;ADDRESS OF MSD PORTION OF PCB
;RDH STOR T2,UNBFA,(P4) ;STORE IN "UN" BLOCK
;RDH SETZM PCBNXX(T1) ;NO SECOND MSD HERE (STUPID KLNI!!!)
MOVE T2,PCBCTR(T1) ;COUNT OF DATA BYTES IN BUFFER
STOR T2,UNBSZ,(P4) ;STORE IN "UN" BLOCK
HLLZ T2,PCBPTR(T1) ;NOW MUST CONCOCT A TWO-WORD GLOBAL
HRRZ T3,PCBPTR(T1) ; BYTE POINTER FOR ETHSER
TLO T2,(1B12) ; OTHERWISE IT GOES DING DING DING
DMOVEM T2,UN.BFA(P4) ;STORE IN "UN" BLOCK
MOVX T2,UNA.EV ;THE DATA BUFFER IS IN EXEC VIRTUAL MEMORY
STOR T2,UNADS,(P4) ;STORE THAT IN "UN" BLOCK
MOVEI T1,NU.XMT ;FUNCTION: SEND DATAGRAM
XMOVEI T2,(P4) ;ADDRESS OF "UN" BLOCK
PUSHJ P,ETHSER## ;GIVE BUFFER TO ETHERNET SERVICE
JRST D8EWR4 ;FAILED - GO CHECK IT OUT
JRST D8EWR0 ;FLUSH ALL OUTPUT INTO ETHSER
;Here on ETHSER's rejection of our output request
D8EWR4: LOAD T3,UNRID,(P4) ;OOPS, RETRIEVE ERRANT PCB
NETOFF ;NO INTERRUPTS PLEASE
HRRZ T4,FEKOAD(J) ;GET HEAD OF STILL-TO-BE-OUTPUT PCB CHAIN
HRRZM T3,FEKOAD(J) ;OLD PCB GETS PUT BACK AT THE START
HRRM T4,PCBBLK(T3) ; OF THE FEK'S OUTPUT QUEUE
AOS FEKOCT(J) ;ONE MORE PCB ON THE OUTPUT QUEUE
NETON ;SAFE AGAIN
CAIE T1,UNRES% ;NO RESOURCES?
CAIN T1,UNPWS% ;OR PORTAL IN WRONG STATE (IN TRANSISTION)?
PJRST D8EWR7 ;YES, FLAG TO TRY AGAIN LATER
STOPCD CPOPJ,DEBUG,D8EWFU ;++ "WRT" REQUEST FOULED UP
; NOTE WELL: THIS LEAVES FEKBSO SET!!!!
; EFFECTIVELY "HANGING" THIS FEK . . .
; BUT AT LEAST IT SHOULD CAUSE NO MORE TROUBLE
;Output "blocked", try again later
D8EWR7: MOVSI T1,FK.STO ;THE "KICK ME" FEK FLAG
IORM T1,FEKBLK(J) ;ASK FOR CLOCK-DRIVEN SERVICE LATER ON
JRST D8EWR9 ;SET FEK OUTPUT IDLE AND RETURN
D8EWR8: NETON ;RE-ENABLE INTERRUPTS
D8EWR9: SETOM FEKBSO(J) ;SET OUTPUT IDLE
POPJ P, ;AND RETURN
;D8ECRS -- Request the "FE" to shut down ('crash')
;
;D8ECRS is called by NETSER to forcibly terminate (i.e., shut down
;or crash) the "FE".
;
;The question remains of how we decide to "start it up" again...
D8ECRS: PUSHJ P,NTDSTP## ;++NULL
;D8EDWN -- The "FE" has gone down
;
;This function is not used (rather ETHSER dispatches via D8EISR/NU.RCI)
D8EDWN: PUSHJ P,NTDSTP## ;++NULL
;D8EUPP -- The "FE" is up
;
;This function is not used (rather ETHSER dispatches via D8EISR/NU.RCI)
D8EUPP: PUSHJ P,NTDSTP## ;++NULL
;D8ESTC -- Station control function
;
;This function is not supported (ergo crash if get here)
D8ESTC: PUSHJ P,NTDSTP ;++NULL
;D8ECPS -- Take a nap (cpu is going to sleep)
;
;This function not implemented.
D8ECPS: POPJ P, ;DON'T WORRY ABOUT IT
;D8ECPW -- Time to wake up (cpu awakened)
;
;This function not implemented.
D8ECPW: POPJ P, ;DON'T WORRY ABOUT IT
;D8ECFK -- Create new slave FEK (new Ethernet NCL node)
;
;D8ECFK called when a NODEID has been received (from the master FEK)
;for a new node. Master FEK address in J.
;
;Returns new slave FEK address in T1 (or 0 if couldn't create a new
;FEK block).
D8ECFK: PUSHJ P,D8EFGN ;CREATE A NEW FEK BLOCK
JRST [SETZ T1, ;CAN'T, FLAG FAILURE
POPJ P,] ;AND RETURN NOW
MOVSI T2,FK.NID ;THE "NODEID-SENT" FLAG
IORM T2,FEKBLK(T1) ;ALWAYS SET IN SLAVES (ONLY MASTER DOES NODEIDS)
MOVSI T2,FK.ONL ;THE "ON-LINE" FEK FLAG
TDNE T2,FEKBLK(J) ;IS THE MASTER ON LINE?
IORM T2,FEKBLK(T1) ;YES, THEN SO IS THE SLAVE
POPJ P, ;RETURN WITH T1/FEK
;D8EDFK -- Destroy old slave FEK
;
;Called with slave FEK address in J
D8EDFK: NETOFF ;NO INTERRUPTS WHILST DIDDLING FEK CHAIN
MOVE T2,FEKNIF(J) ;START WITH SLAVE'S MASTER FEK ADDRESS
D8EDF1: MOVE T1,T2 ;SAVE PRECEDING FEK ADDRESS
HRRZ T2,FEKBLK(T2) ;LINK TO NEXT FEK IN CHAIN
CAIN T2,0 ;BAD NEWS IF CAN'T FIND SLAVE FEK IN FEK CHAIN
STOPCD D8EDF9,DEBUG,D8EFNC ;++ SLAVE FEK NOT IN FEK CHAIN
CAME T2,J ;IS THIS THE FEK TO BE DELETED?
JRST D8EDF1 ;NO
D8EDF3: HRRZ T3,FEKBLK(T2) ;ADDRESS OF NEXT FEK IN CHAIN
HRRM T3,FEKBLK(T1) ;SPLICE OUT OLD SLAVE FEK
NETON ;SAFE AGAIN
PUSH P,T1 ;SAVE ADDRESS OF PRECEDING FEK
; MOVSI T1,FK.ONL ;THE FEK-IS-ONLINE FLAG
; ANDCAM T1,FEKBLK(J) ;THE FEK IS NO LONGER ONLINE
MOVEI T1,FI.DWN ;THIS FEK IS DOWN FER SUR
PUSHJ P,FEKINT## ;TELL NETSER TO RECOMPUTE TOPOLOGY
MOVEI T1,FEKLEN ;LENGTH OF FEK BLOCK
MOVE T2,J ;ADDRESS OF FEK BLOCK
PUSHJ P,GIVZWD## ;DEALLOCATE FEK BLOCK MEMORY
PJRST JPOPJ## ;RETURN, J/PRECEDING FEK ADDRESS
; (E.G., FOR NETSER/FEK ONCE/SECOND, ETC.)
D8EDF9: NETON ;CLEAR NETSER INTERLOCK
POPJ P, ;AND RETURN
SUBTTL FEK "Interrupt" service
;D8EISR - Interrupt service dispatch from ETHSER
;Call is:
;
; MOVEI T1,<FNC>
; MOVX T2,<UNB>
; MOVX T3,<STS>
; PUSHJ P,D8EISR
; return
;
;Where <FNC> is the ISR (or 'callback' in Etherese) function; <UNB>
;is the ETHSER-supplied 'UN' argument block; and <STS> is the function
;status (if any).
;
;Return is CPOPJ always.
D8EISR: PUSHJ P,SAVQ## ;PROTECT ETHSER'S REGS
PUSHJ P,SAVJW## ;...
CAIL T1,NU.MIN ;RANGE CHECK THE FUNCTION
CAILE T1,NU.MAX ; CODE AND STOP IF BAD
D8EIS0: STOPCD .,STOP,D8EISF ;++ BAD ISR FUNCTION CODE
JRST @D8EIST-NU.MIN(T1) ;DISPATCH ON ISR ('CALLBACK') FUNCTION
;ISR function dispatch table
DEFINE DISP(CODE,ADDR),<
IF1,<IFN <CODE-NU.MIN-<.-D8EIST>>,<PRINTX ?Table D8EIST entry CODE is out of order>>
IFIW ADDR ;CODE
>; END DEFINE DISP
D8EIST: DISP NU.OPN,D8EIS0 ;NU.OPN - 01 - UNDEFINED
DISP NU.CLO,D8ECLO ;NU.CLO - 02 - PORTAL CLOSED
DISP NU.RCV,D8ERCV ;NU.RCV - 03 - DATAGRAM RECEIVED
DISP NU.XMT,D8EXMT ;NU.XMT - 04 - DATAGRAM TRANSMITTED
DISP NU.EMA,D8EIS0 ;NU.EMA - 05 - MULTICAST ADDRESS ENABLED
DISP NU.DMA,D8EIS0 ;NU.DMA - 06 - MULTICAST ADDRESS DISABLED
DISP NU.RCL,D8EIS0 ;NU.RCL - 07 - READ CHANNEL LIST
DISP NU.RCI,D8ERST ;NU.RCI - 10 - CHANNEL STATE CHANGE
DISP NU.RCC,D8EIS0 ;NU.RCC - 11 - READ CHANNEL COUNTERS
DISP NU.SCA,D8ESCA ;NU.SCA - 12 - CHANNEL ADDRESS CHANGED
DISP NU.RPL,D8EIS0 ;NU.RPL - 13 - READ PORTAL LIST
DISP NU.RPI,D8EIS0 ;NU.RPI - 14 - READ PORTAL INFO
DISP NU.RPC,D8EIS0 ;NU.RPC - 15 - READ PORTAL COUNTERS
DISP NU.RKL,D8EIS0 ;NU.RKL - 16 - READ KONTROLLER LIST
DISP NU.RKI,D8EIS0 ;NU.RKI - 17 - READ KONTROLLER INFO
DISP NU.RKC,D8EIS0 ;NU.RKC - 20 - READ KONTROLLER COUNTERS
IF1,<IFN <NU.MAX-NU.MIN+1-<.-D8EIST>>,<PRINTX ?Table D8EIST is missing entries>>
;D8ECLO -- ETHSER 'Portal' closed
;
;This function handles the ISR-level notification of the FE's having
;'CLOSEd' the ethernet 'Portal' (i.e., the FE is shut down).
D8ECLO: PUSHJ P,NTDSTP## ;++ WE DON'T EVER CLOSE THE PORTAL
;D8ERCV -- Message received
;
;D8ERCV is the ISR-level receipient of a successfully-filled (and
;previously "posted" via D8ERDD) receive buffer from the ethernet.
D8ERCV: LOAD T1,UNRID,(T2) ;RETRIEVE PCB ADDRESS
LOAD J,UNUID,(T2) ;AND MASTER FEK ADDRESS
MOVEM T1,FEKIDN(J) ;SET RECEIVED PCB ADDRESS (NI-FEK ONLY)
SOS FEKNIQ(J) ;ONE FEWER PCB QUEUED IN ETHSER
SKIPE T3 ;ANY ERRORS?
TDZA T3,T3 ;YES, SET ZERO BYTE COUNT AND CONTINUE
LOAD T3,UNBSZ,(T2) ;GET RECEIVED BYTE COUNT
MOVEM T3,PCBCTR(T1) ;SAVE IT WITH THE PCB
DMOVE T3,UN.BFA(T2) ;GET ETHSER'S RETURNED BYTE POINTER
TLZE T3,(1B12) ;CLEAR 2-WORD FORMAT FLAG
HRR T3,T4 ;AND MAKE IT A ONE-WORD LOCAL BYTE POINTER
MOVEM T3,PCBPTR(T1) ;SAVE IT WITH THE PCB
; AS OF THIS WRITING, THE KLNI LEAVES THE
; TWO-BYTE COUNT FIELD IN THE DATA BUFFER,
; AND ETHSER INCREMENTS THE POINTER PAST
; THE TWO BYTES, BUT THAT MAY CHANGE SOME-
; DAY, SO WE MUST PICK UP ETHSER'S BYTE
; POINTER RATHER THAN TRUSTING THE ORIGINAL
; PCB BYTE POINTER . . .
DMOVE T3,UN.SAD(T2) ;GET SOURCE ETHERNET NODE ADDRESS
DMOVEM T3,PCBNIA(T1) ;SAVE IT WITH THE PCB
MOVEI T1,FI.IDN ;FUNCTION: INPUT DONE (FEKIDN)
PJRST FEKINT## ;GIVE THE PCB TO NETSER
;D8EXMT -- Message transmitted
;
;D8EXMT is the ISR-level receipient of a successfully-transmitted
;(and previously "queued" via D8EWRT) transmit buffer.
D8EXMT: LOAD T1,UNRID,(T2) ;RETRIEVE ADDRESS OF PCB
HLRZ J,PCBFEK(T1) ;RETRIEVE ORIGINATING FEK'S ADDRESS
MOVEM T1,FEKODN(J) ;SET OUTPUT-DONE PCB ADDRESS
MOVEI T1,FI.ODN ;FUNCTION: OUTPUT-DONE
PJRST FEKINT## ;RETURN BUFFER TO NETSER
;D8ERST -- Ethernet channel ("FE") state change
;
;D8ERST is called by ETHSER whenever the 'Portal' (the logical "FE")
;changes state (i.e., goes online/offline/etc).
D8ERST: LOAD J,UNUID,(T2) ;RETRIEVE ADDRESS OF ASSOCIATED MASTER FEK
PUSHJ P,D8EOOF ;CHECK/SET ON/OFF LINE FEK STATUS
PUSHJ P,NTDSTP## ;CAN'T (WELL, SHOULDN'T) HAPPEN
JUMPE T1,CPOPJ## ;IF NOTHING EXCITING HAPPENED, IGNORE IT
;FEK changed state, tell NETSER as appropriate
D8ERS1: PUSHJ P,SAVE4## ;NEED SOME NETSER-PRESERVED ACS HERE
MOVE P1,J ;SAVE A COPY OF THE MASTER FEK ADDRESS
TDNN T1,FEKBLK(J) ;IS MASTER FEK NOW ONLINE?
JRST D8ERS6 ;OFFLINE, SET ALL SLAVES OFFLINE ALSO
;Master FEK is now online
D8ERS2: MOVSI T2,4 ;INITIAL BROADCAST TIMER INTERVAL
MOVEM T2,FEKNIT(J) ;RESET BROADCAST INTERVAL TIMER
SETZM FEKNIS(J) ;REINITIALIZE NODEID SERIAL NUMBER
POPJ P, ;NOTHING MORE TO DO FOR NOW
;Master FEK is offline, set all slaves offline also
D8ERS6: MOVE J,P1 ;START SEARCHING AT THIS MASTER FEK
D8ERS7: HRRZ J,FEKBLK(J) ;NEXT POTENTIAL SLAVE FEK
JUMPE J,D8ERS8 ;EXIT WHEN NO MORE SLAVE FEKS
CAME P1,FEKNIF(J) ;SLAVE BELONG TO THIS MASTER?
JRST D8ERS7 ;NO, SKIP IT
PUSHJ P,D8EDFK ;DESTROY DEAD SLAVE FEK
; (THIS TELLS NETSER TO BLAST TOPOLOGY)
JRST D8ERS7 ;LOOP FOR ALL SLAVES ON THIS MASTER
D8ERS8: MOVE J,P1 ;RESTORE MASTER FEK ADDRESS
MOVEI T1,FI.DWN ;FUNCTION: FEK OFFLINE
PJRST FEKINT## ;TELL NETSER MASTER FEK IS NOW OFFLINE
;D8ESCA -- Ethernet channel address changed
;
;D8ESCA is called by ETHSER whenever the 'Channel' address associated
;with a 'Portal' changes.
D8ESCA: POPJ P, ;DUH?
SUBTTL Miscelleaneous support routines
;D8EFGN -- Create a new Ethernet FEK
;Call is:
;
; MOVE J,<MFEK>
; PUSHJ P,D8EFGN
; Error return
; Normal return
;
;Where <MFEK> is the address of the "master" (or prototype) FEK from which
;the new FEK is to be modeled (FEKDSP, FEKUNI, FEKNIF).
;
;On error return there was insufficient ANF free core to allocate for
;the FEK block.
;
;On normal return, T1 contains address of newly-created FEK in CLNFEK (i.e.,
;pristine) condition, and linked into the system FEK chain.
D8EFGN: MOVEI T2,FEKLEN ;LENGTH OF ETHERNET-STYLE FEK BLOCK
PUSHJ P,GETZWD## ;GET SOME ANF FREE CORE
POPJ P, ;NO FREE CORE, NO FEK BLOCK
PUSH P,J ;SAVE MASTER FEK INDEX
MOVE J,T1 ;SET ADDRESS OF NEWLY-CREATED FEK
PUSHJ P,NTFONC## ;"ONCE-ONLY" THE FEK
MOVE T1,J ;REPOSITION NEWLY-CREATED FEK ADDRESS
POP P,J ;AND RESTORE MASTER/PROTOTYPE FEK ADDRESS
MOVSI T2,FK.ETH ;THE "ETHERNET-FEK" FLAG
IORM T2,FEKBLK(T1) ;PUT OUR BRAND ON THIS LITTLE FEKKY
MOVE T2,FEKDSP(J) ;PROTOTYPE "DISP" WORD
MOVEM T2,FEKDSP(T1) ;SET FEK DISPATCH SERVICE VECTOR
MOVE T2,FEKUNI(J) ;PROTOTYPE CPU/UNIT WORD
MOVEM T2,FEKUNI(T1) ;SET FEK CPU AND UNIT WORD
SETZM FEKNIA(T1) ;NO ETHERNET REMOTE ADDRESS YET
SETZM FEKNIA+1(T1) ;NO ETHERNET REMOTE ADDRESS YET
SETZM FEKNIC(T1) ;NO ETHERNET CHANNEL ID YET
SETZM FEKNID(T1) ;NO ETHERNET PORTAL ID YET
MOVEM J,FEKNIF(T1) ;SET MASTER/PROTOTYPE FEK ADDRESS
SETZM FEKNIS(T1) ;NO ETHERNET NODEID SERIAL NUMBER
MOVE T2,%NTNIJ## ;ETHERNET SLAVE FEK KEEP-ALIVE TIMER
MOVEM T2,FEKNIT(T1) ;INITIALIZE KEEP-ALIVE FOR THIS FEK
NETOFF ;PREVENT RACES
HRRZ T2,FEKBLK(J) ;ADDRESS OF REST OF FEK CHAIN
HRRM T1,FEKBLK(J) ;SPLICE NEWLY-CREATED FEK INTO
HRRM T2,FEKBLK(T1) ;SYSTEM FEK CHAIN
NETON ;OK TO RACE NOW
JRST CPOPJ1## ;SUCCESS RETURN WITH T1/FEK
;D8EGUN - Get a "UN" block
;Call is:
;
; PUSHJ P,D8EGUN
; Error return
; Normal return
;
;On error return no UN blocks are available (and no network free core
;is available to make a new UN block).
;
;On normal return register P4 contains a UN block address.
;
;D8EGUN co-routines back to its caller, and automatically frees up the
;UN block on caller's exit.
;
;Uses T1.
D8EGUN: PUSH P,P4 ;SAVE CALLER'S P4 FOR LATER RESTORATION
NETOFF ;MUST DO THIS INTERLOCKED
SKIPN P4,D8EUNL ;GOT A FREE UN BLOCK?
JRST D8EGU4 ;NO, MUST ALLOCATE ONE
MOVE T1,(P4) ;YES, ADDRESS OF NEXT UN BLOCK IN FREE LIST
MOVEM T1,D8EUNL ;IT BECOMES THE NEW FIRST FREE
NETON ;SAFE NOW
D8EGU1: SETZM (P4) ;CLEAR FIRST WORD OF UN BLOCK
MOVSI T1,(P4) ;CONCOCT
HRRI T1,1(P4) ; A BLT POINTER TO
BLT T1,UN.LEN-1(P4) ; CLEAR OUT THE UN BLOCK
AOS -1(P) ;"SKIP"
PUSHJ P,@-1(P) ; CO-ROUTINE BACK TO OUR CALLER
CAIA ;NON-SKIP RETURN TO CALLER'S CALLER
AOS -2(P) ;SKIP RETURN TO CALLER'S CALLER
NETOFF ;MUST INTERLOCK AGAIN
EXCH P4,D8EUNL ;PUT THIS UN BLOCK AT HEAD OF CHAIN
MOVEM P4,@D8EUNL ;AND LINK REST OF CHAIN TO NEW FIRST FREE
NETON ;SAFE AGAIN
POP P,P4 ;RESTORE CALLER'S P4
POP P,(P) ;POP JUNK ADDRESS
POPJ P, ;RETURN TO CALLER'S CALLER
;HERE TO ALLOCATE A NEW UN BLOCK
D8EGU4: NETON ;RESTORE INTERRUPTABILITY
PUSHJ P,D8EGUX ;GET A CORE BLOCK
JRST P4POPJ## ;RESTORE P4 AND ABORT
JRST D8EGU1 ;RETURN UN BLOCK TO CALLER
D8EGUX: PUSHJ P,SAVT## ;SAVE CALLER'S TEAS
MOVEI T2,UN.LEN ;LENGTH OF A UN BLOCK
PUSHJ P,GETZWD## ;ASK NETSER FOR A HUNK OF MEMORY
POPJ P, ;NONE AVAILABLE
MOVE P4,T1 ;GOT ONE!
JRST CPOPJ1## ;SUCCESSFUL RETURN (RESTORING THE TEAS)
;D8EOOF - Set FEK ON- or OFF-LINE
;Call is:
;
; MOVX T2,<UN>
; PUSHJ P,D8EOOF
; Error return
; Normal return
;
;Where <UN> is the address of the "UN" block to/from ETHSER.
;
;Error return is not used.
;
;On normal return the FEK block is "ON-" or "OFF-LINE" based on the
;state of the "RUN" bit in the UN status word. T1 contains the FEK
;status-change flag, 0 if no change in FEK status, FK.ONL if the FEK
;changed ON/OFF status.
D8EOOF: MOVSI T1,FK.ONL ;THE FEK "ON-LINE" FLAG
TMNN UNRUN,(T2) ;IS "RUN" BIT SET IN UN STATUS FIELD?
JRST D8EOO3 ;NO, "OFF-LINE"
TDNE T1,FEKBLK(J) ;YES, "ON-LINE", WAS FEK ALREADY ON-LINE?
JRST D8EOO5 ;NO CHANGE, JUST RETURN
IORM T1,FEKBLK(J) ;WAS OFF-LINE, FLAG ON-LINE
JRST CPOPJ1## ;AND TAKE SUCCESSFUL RETURN WITH CHANGE FLAG
D8EOO3: TDNN T1,FEKBLK(J) ;WAS FEK ALREADY OFF-LINE?
JRST D8EOO5 ;NO CHANGE, JUST RETURN
ANDCAM T1,FEKBLK(J) ;WAS ON-LINE, FLAG OFF-LINE
JRST CPOPJ1## ;AND TAKE SUCCESSFUL RETURN WITH CHANGE FLAG
D8EOO5: SETZ T1, ;FLAG NO CHANGE IN FEK STATUS
JRST CPOPJ1## ;AND TAKE SUCCESSFUL RETURN
$LIT
$LOW
D8EUNL: BLOCK 1 ;FIRST FREE "UN" BLOCK
D8EBLK: BLOCK RSBLEN ;RANDOM SCRATCH BLOCK
D8EEND::!END