|
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 - download
Length: 2654 (0xa5e)
Types: TextFile
Names: »SNIF.I«
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
└─ ⟦this⟧ »CSP007_V0501.D!CSS7389.D!SNIF.I«
IMPORT
procedure patch_map
"================="
(r0; " C K map address
r2; " C K ptr to local data buffer
r7; " C word count (max 120)
" R completion code
r6); " C K link
IMPORT
procedure dump_map
"================"
(r0; " C K map address
r2; " C K ptr to local data buffer
r7; " C word count (max 120)
" R completion code
r6); " C K link
IMPORT
procedure dump_io
"==============="
(r0; " C io address
" R word
r7; " - R completion code
r6); " C K link
IMPORT
procedure patch_io
"================"
(r0; " C K io address
r2; " C K word
r7; " - R completion code
r6); " C K link
IMPORT
procedure patch_memory_no_check
"============================="
(r01; " C K memory address
r2; " C K ptr to local data buffer
r7; " C word count (max 120)
" R completion code
r6); " C K link
IMPORT
procedure patch_memory
"===================="
(r01; " C K memory address
r2; " C K ptr to local data buffer
r7; " C word count (max 120)
" R completion code
r6); " C K link
IMPORT
procedure dump_memory
"==================="
(r01; " C K memory address
r2; " C K ptr to local data buffer
r7; " C word count (max 120)
" R completion code
r6); " C K link
IMPORT
procedure perform_mc
"=================="
(r7; " R completion code
r6); " C K link
IMPORT
procedure perform_start
"====================="
(r01; " C K abs address of initial process
r7; " R completion code
r6); " C K link
IMPORT
procedure init_sti
"================"
(r0; " C K sti addr
r1; " C K sba addr
r7; " R completion code
r6); " C K link
IMPORT
procedure re_init_sti
"==================="
(r6); " C K link
IMPORT
procedure set_com_state
"====================="
(r6); " C K link
IMPORT
procedure wait_200ms
"=================="
(r6);
type
communication_state =
( no_communication,
sti_communication,
pucd_communication,
mem_communication );
mx_type =
( unknown_mx,
mx_type_1,
mx_type_2 );
IMPORT
var
sti_addr : integer;
local_sba : integer;
target_sba : integer;
target_pu : integer;
target_cmr : integer;
target_page_base : integer;
sba_addr : integer;
check_reading : boolean;
com_state : communication_state;
snet_com_state : communication_state;
local_mx_type : mx_type;
remote_mx_type : mx_type;
local_crate : integer;
remote_crate : integer; «a5»