|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2862 (0xb2e)
Types: TextFile
Names: »SNI_SUPPORT.I«
└─⟦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«
%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.
"============================================================