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: 4442 (0x115a) Types: TextFile Names: »UTILITYHELP.I«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS ) └─ ⟦this⟧ »UTILITYHELP.I«
"----------------------------------------------------------------------- " " PROJECT: " " MODULE NAME: AMOS UTILITYHELP " MODULE ID NMB: CSS/107 " MODULE VERSION: 0001 " MODULE TYPE: IMPORT MODULE " MODULE FILES: " MERGE FILES: - " " SPECIFICATIONS: - " AUTHOR/DATE: NMJ/800618 " " 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 " "----------------------------------------------------------------------- "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 AND THE DIRECTORY FILE. " AT RETURN THE FILES ARE DESCRIBED IN THE VARIABLES PFILETYPE AND " DFILETYPE. "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 CIN FILE " AND THE COUT FILE FOR FILE ACCESS ( 'CINFILETYPE', 'COUTFILETYPE'). " IN ADDITION A STREAM IS CONNECTED TO THE COUT FILE. " THE DEFAULT VOLUME NAME IS STORED IN 'DEFAULT_VOL'. "PAGE«ff» «a5»