|
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: 3540 (0xdd4)
Types: TextFile
Names: »MTC.I«
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
└─ ⟦this⟧ »CSP004_V0801.D!CSS126.D!MTC.I«
"==============================================="
" "
" I M P O R T D E C L A R A T I O N S "
" F O R U S I N G S T A N D A R D "
" S W E L L M A G T A P E "
" I N T E R F A C E "
" "
"==============================================="
IMPORT VAR
CC: INTEGER;
PASSEDENDOFTAPE: BOOLEAN;
IMPORT PROCEDURE TRANSPORT_STATUS
"****" "========================"
(R1; " - R STATUS
R6); " - D LINK
IMPORT PROCEDURE INIT_MTC
"****" "================"
(R1; " C CONTROLLER DEVICE ADDR
" R STATUS
R6); " - D LINK
IMPORT PROCEDURE DISABLE_MTC
"****" "==================="
(R6);
IMPORT PROCEDURE REWINDMT
"****" "================"
(R6);
IMPORT PROCEDURE UNLOAD
"****" "=============="
(R6);
IMPORT PROCEDURE SKIP
"****" "============"
(R0; " C K DIRECTION
R1; " C K SKIPKIND
R2; " C R COUNT
R6); " - D LINK
IMPORT PROCEDURE WRITETAPE
"****" "================="
(R2; " C R BYTECOUNT
R3; " C K ADDRESS
R6); " - D LINK
IMPORT PROCEDURE WRITEFM
"****" "==============="
(R6);
IMPORT PROCEDURE READTAPE
"****" "================"
(R2; " C R BYTECOUNT
R3; " C ADDRESS
" R EXCESS BYTES
R6); " - D LINK
IMPORT PROCEDURE INIT_READTAPE
"****" "====================="
(R2; " C K BYTECOUNT
R3; " C K ADDRESS
R6); " - D LINK
IMPORT PROCEDURE WAIT_READTAPE
"****" "====================="
(R2; " - R BYTECOUNT
R3; " - R EXCESS BYTES
R6); " - D LINK
IMPORT PROCEDURE INIT_WRITETAPE
"****" "======================"
(R2; " C K BYTECOUNT
R3; " C K ADDRESS
R6); " - D LINK
IMPORT PROCEDURE WAIT_WRITETAPE
"****" "======================"
(R2; " - R BYTECOUNT
R3; " C K ADDRESS
R6); " - D LINK
"==============================================="
" "
" N E C E S S A R Y "
" E X P O R T D E C L A R A T I O N S "
" F O R U S I N G S T A N D A R D "
" S W E L L M A G T A P E "
" I N T E R F A C E "
" "
"==============================================="
"
"
"EXPORT VAR
" UNITNO: INTEGER;
" BUFADDR: INTEGER;
"
"EXPORT PROCEDURE REPORT
" (R3; C K TEXT REFERENCE;
" R6); - D LINK
"
"EXPORT PROCEDURE WARN
" (R3; C K TEXT REFERENCE;
" R6); - D LINK «a5»