DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦2c87a3499⟧ TextFile

    Length: 4442 (0x115a)
    Types: TextFile
    Names: »UTILITYHELP.I«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »UTILITYHELP.I« 

TextFile


"-----------------------------------------------------------------------
"
"  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»