|
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: 3330 (0xd02)
Types: TextFile
Names: »SNUP_P.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!SNUP_P.I«
CONST
byte_count_error = #01;
dma_error = #02;
compare_error = #03;
crc_error = #04;
no_frame_received = #05;
none_received = #06;
no_response = #07;
transm_timeout = #08;
checkword_error = #11;
checksum_error = #12;
command_syntax_error = #13;
sti_access_error = #21;
sba_access_error = #22;
interrupt_reserved = #23;
buffers_not_allocated = #28;
unknown_xfer_reply = #29;
operation_timeout = #2A;
cmr_access_error = #31;
sni_access_error = #32;
cmr_interrupt_reserved = #33;
sni_interrupt_reserved = #34;
sni_not_found = #35;
IMPORT var
fsn : file_system_name;
vol : volume_name;
fnl : namelisttype;
name_no : integer;
from_adam : boolean;
command_cc : integer;
check_reading : boolean;
IMPORT procedure master_clear
"==========================="
(r6); " C link
" R remote mx type
IMPORT procedure load
"==================="
(r01; " - R abs base address
r6); " C K link
" This procedure expects a file-id to be stored in the
" variables
" FSN file system
" VOL volume
" FNL namelisttype
" NAME_NO number of names in above
" FROM_ADAM is name from root
IMPORT procedure execute
"======================"
(r01; " C K abs base address
r6); " C K link
IMPORT procedure save
"==================="
(r01; " C K abs from address
r23; " C K abs to address
r6); " C K link
" This procedure expects a file-id to be stored in the
" variables
" FSN file system
" VOL volume
" FNL namelisttype
" NAME_NO number of names in above
" FROM_ADAM is name from root
IMPORT procedure disconnect_file
"=============================="
(r6); " C K link
IMPORT procedure set_local_sti_addr
"================================="
(r0; " C D sti addr
r6);" C D link
IMPORT procedure set_local_sba_addr
"================================="
(r0; " C D sba addr
r6);" C D link
IMPORT procedure set_target_sba_addr
"=================================="
(r0; " C D sba addr
r6);" C D link
IMPORT procedure set_target_pu
"============================="
(r0; " C D pu number
r6);" C D link
IMPORT procedure set_target_cmr_addr
"=================================="
(r0; " C D cmr addr
r6);" C D link
IMPORT procedure bootload_remote_pu
"================================="
(r6);" C D link
" This procedure expects a file-id to be stored in the
" variables
" FSN file system
" VOL volume
" FNL namelisttype
" NAME_NO number of names in above
" FROM_ADAM is name from root
IMPORT procedure set_parity
"========================="
(r0; " C K crate (-1 = own crate)
r12; " - R parity errors
r6); " C K link
IMPORT procedure erase_memory
"==========================="
(r0; " C K crate (-1 = own crate)
r6); " C K link
IMPORT procedure init_memory_io
"============================="
(r01; " C K mem_io_addr (buffer address)
r23; " C K io_ptr_addr (where to put buffer ptr)
r7; " - R cc
r6); " C K link