DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦7e301ebdb⟧ TextFile

    Length: 2862 (0xb2e)
    Types: TextFile
    Names: »SNI_SUPPORT.I«

Derivation

└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP007_V0501.D!CSS7000.D!SNI_SUPPORT.I« 

TextFile


%LIST     %LIST     %LIST
"-----------------------------------------------------------------------
"
"  MODULE NAME:           TPE SNI SUPPORT
"  MODULE ID NMB:         CSS/7000
"  MODULE VERSION:        03
"  MODULE RELEASE:        01
"  RELEASE DATE:          850910
"
"-----------------------------------------------------------------------
%NOLIST   %NOLIST   %NOLIST


  CONST
    SNI_MAX = 16;

  TYPE
    SNI_RECORD = RECORD
                   SNI_S_NET_ADDR :  INTEGER;
                   PAGE           :  INTEGER;
                   OFFSET         :  INTEGER;
                 END; "RECORD"

  IMPORT VAR
    SNI_TABLE : ARRAY[0..SNI_MAX-1] OF SNI_RECORD;



  IMPORT PROCEDURE CONSTRUCT_SNI_TABLE(
  "============================================================
    R5;  "C -  IF R5 = 0 THEN CONSTRUCT DUMMY SNI_TABLE.
         "- R  NUMBER OF SNI'S PRESENT(-1 IF > SNI_MAX).
    R6); "C K  LINK.
  "============================================================
  " FUNCTION: THIS PROCEDURE CONSTRUCTS THE FINAL SNI_TABLE.
  "============================================================


  IMPORT PROCEDURE EXCLUDE_SNI(
  "===========================================================
    R0;  "C K  S-NET ADDRESS OF SNI TO BE EXCLUDED.
    R6); "C R  LINK/TRUE IF SPECIFIED SNI IS FOUND.
  "===========================================================
  "FUNCTION: THE PROCEDURE WILL LOOK FOR A SPECIFIED SNI(S-NET
  "          ADDRESS) IN SNI_TABLE. IF THE SNI IS FOUND AN
  "          EXCLUDE_SNI_BIT IN THE S-NET ADDRESS WILL BE SET,
  "          INDICATING THAT THE SNI IS TO BE LEFT UNSERVICED
  "          WHEN THE PROCEDURE ACCESS_SNI_TABLE IS CALLED.
  "============================================================


  IMPORT PROCEDURE INCLUDE_SNI(
  "===========================================================
    R0;  "C K  S-NET ADDRESS OF SNI TO BE INCLUDED.
    R6); "C R  LINK/TRUE IF SPECIFIED SNI IS FOUND.
  "===========================================================
  "FUNCTION: THE PROCEDURE WILL LOOK FOR A SPECIFIED SNI(S-NET
  "          ADDRESS) IN SNI_TABLE. IF THE SNI IS FOUND AN
  "          EXCLUDE_SNI_BIT IN THE S-NET ADDRESS WILL BE SET,
  "          INDICATING THAT THE SNI AGAIN IS TO BE SERVICED
  "          WHEN THE PROCEDURE ACCESS_SNI_TABLE IS CALLED.
  "============================================================


  IMPORT PROCEDURE ACCESS_SNI_TABLE(
  "============================================================
    R5;  "- R  NUMBER OF SNI'S WITH RECEIVE BUFFER FULL.
    R6); "C K  LINK.
  "============================================================
  "FUNCTION: THE PROCEDURE ACCESS THE SNI_TABLE AND CHECKS
  "          THE STATUS WORD OF EACH SNI. IF A PROPPER FRAME
  "          HAS BEEN RECEIVED, THE ACTUAL COMMAND IS PERFORMED.
  "============================================================