|
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: 4506 (0x119a)
Types: TextFile
Names: »UTH.I«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »GENS.D!UTILITYHELP.D!UTH.I«
"-----------------------------------------------------------------------
"
" PROJECT:
"
" MODULE NAME: AMOS UTILITYHELP
" MODULE ID NMB: CSS/107
" MODULE VERSION: 0001
" MODULE TYPE: LINK MODULE
" MODULE FILES:
" MERGE FILES: -
"
" SPECIFICATIONS: -
" AUTHOR/DATE: EKH/811211
"
" DELIVERABLE: -
" SOURCE LANGUAGE: SWELL
" COMPILE COMPUTER: CR80
" TARGET COMPUTER: CR80
" OPER. SYSTEM: AMOS
"
"-----------------------------------------------------------------------
"
" CHANGE RECORD
"
" VERSION AUTHOR/DATE DESCRIPTION OF CHANGE
" ------- ----------- ---------------------
"
" 0101 NMJ/800909 INITIAL RELEASE
" 0102 EKH/811211 SUPPORT OF DIFFERENT FILE SYSTEMS
" IN PARAMTERS
"
"-----------------------------------------------------------------------
"PAGE«ff»
" IMPORT " TYPE
FILETYPE=
RECORD
NAME: FILE_NAME;
S: INTEGER;
F: FD;
END;
IMPORT VAR
DEFAULT_FSN: FILE_SYSTEM_NAME; "DEFAULT FILE SYSTEM NAME
DEFAULT_VOL: VOLUME_NAME; "DEFAULT VOLUME NAME
PFILETYPE: FILETYPE; "PARAM FILE DESCR
DFILETYPE: FILETYPE; "CURR DIREC FILE DESCR
CINFILETYPE: FILETYPE; "CURR INPUT FILE DESCR
COUTFILETYPE: FILETYPE; "CURR OUTPUT FILE DESCR
"PAGE«ff»
IMPORT PROCEDURE FILEERROR
"========================"
(R4; "FILE TYPE ADDR
R5; "TEXT ADDR (CALL)
R7; "COMPLETION CODE (CALL)
R6); "LINK
IMPORT PROCEDURE INITFILETYPE
"==========================="
(R4; "FILE TYPE ADDR
R5; "NAME ADDR
R7; "FILE NO (CALL)
R6); "LINK
IMPORT PROCEDURE OPENFILE
"======================="
(R4; "FILE TYPE ADDR
R0; "FILE SYSTEM NAME ADDR
R1; "VOLUME NAME ADDR
R2; "NAME NO (CALL)
R3; "FROM ADAM (0 = NO)
R5; "NAME LIST ADDR
R7; "DIRECTORY (CALL)
R6); "LINK
IMPORT PROCEDURE DISMANTLEFILE
"============================"
(R4; "FILE TYPE ADDR
R6); "LINK
IMPORT PROCEDURE OPENSTREAM
"========================="
(R4; "FILE TYPE ADDR
R3; "MODE (CALL)
R6); "LINK
IMPORT PROCEDURE CLOSESTREAM
"=========================="
(R4; "FILE TYPE ADDR
R6); "LINK
IMPORT PROCEDURE INB
"=================="
(R4; "FILE TYPE ADDR
R3; "BYTE (RETURN)
R6); "LINK
IMPORT PROCEDURE OUTB
"==================="
(R4; "FILE TYPE ADDR
R3; "BYTE
R6); "LINK
"PAGE«ff»
IMPORT PROCEDURE ACCEPTFILES(R6); " ALL REGISTERS DESTROYED
"=========================="
" RECEIVE THE MESSAGE CONTAINING THE FILE SYSTEM NAME, AND
" ACCEPT THE PARAMETER FILE.
" AT RETURN THE FILE IS DESCRIBED IN THE VARIABLE PFILETYPE.
"PAGE«ff»
IMPORT PROCEDURE READKEYWORD
"=========================="
(KEYWORDSIZEINWORDS,
NOOFSIGNIFICANTBYTES,
TOPOFKEYWORDS: INTEGER;
R0; "KEY WORD INDEX (RETURN)
R4; "ADDRESS OF KEYWORD TABLE
R6); "LINK
" READ A KEYWORD TEXT FROM THE THE PARAMETER FILE (INCL. TRAILING
" SPACES AND ':' OR '=').
" FIND A MATCHING ENTRY IN THE KEYWORD TABLE DESCRIBED IN THE PARAMETERS.
" A MATCH IS FOUND IF THE FIRST 'NOOFSIGNIFICANTBYTES' - 1 AND THE LAST
" CHARACTER OF THE KEYWORD IS EQUAL TO THE CORRESPONDING CHARACTERS
" OF THE KEYWORD TABLE ENTRY ( A (:127:) MATCHES ALL CHARACTERS).
" IF A '/' IS MET ON THE PARAMETER STREAM, IT WILL BE INTERPRETED AS
" A REPITION OF THE PREVIOUS KEYWORD.
" TWO ENTRIES ARE USED FOR SPECIAL PURPOSES:
" INDEX 0 IS RETURNED IF AN UNKNOWN KEYWORD IS READ
" (THE KEYWORD IS STORED IN THE ENTRY)
" INDEX TOPOFKEYWORDS IS RETURNED IF EOF IS MET
" (THE ENTRY DONT HAVE TO EXIST)
"PAGE«ff»
IMPORT PROCEDURE READSYSPARAMS(R6); "ALL REGISTERS DESTROYED
"============================"
" OPEN A STREAM TO THE PARAMETER FILE.
" READ THE FIRST LINE ( INCL. NL ) OF THE FILE, AND PREPARE THE
" CDIR, CIN AND COUT FILES FOR FILE ACCESS
" ('DFILETYPE', 'CINFILETYPE', 'COUTFILETYPE').
" IN ADDITION A STREAM IS CONNECTED TO THE COUT FILE.
" THE DEFAULT VOLUME NAME IS STORED IN 'DEFAULT_VOL'.
"PAGE«ff»