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

⟦d5db233f4⟧ TextFile

    Length: 3980 (0xf8c)
    Types: TextFile
    Names: »FSC«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »GENS.D!FSC« 

TextFile

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; F I L E :   F S C . C 
;
; LAST CHANGE: 800506
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;-----------------------------------------------------------------------
;
;  PROJECT:          AMOS
;
;  MODULE NAME:      FSC
;  MODULE ID NMB:    CSS/827
;  MODULE VERSION:   0101
;  MODULE TYPE:      PREFIX
;  MODULE FILES:     FSC.S
;  MERGE FILES:      -
;
;  SPECIFICATIONS:   -
;  AUTHOR/DATE:      FP/800506
;
;  DELIVERABLE:      YES
;  SOURCE LANGUAGE:  CR80 ASSEMBLER
;  COMPILE COMPUTER: CR80
;  TARGET COMPUTER:  CR80
;  OPER. SYSTEM:     AMOS
;
;-----------------------------------------------------------------------
;
;  CHANGE RECORD:
;
;  VERSION    AUTHOR/DATE    DESCRIPTION OF CHANGE
;  -------    -----------    ---------------------
;
;     0101    FP/800506      INITIAL SUBMITTAL
;
;-----------------------------------------------------------------------




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; FILE SYSTEM COMMAND
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                                    ;
USE BASE              AX=BASE       ;   FILE SYSTEM COMMAND
                                    ;
COPER:=            AX,AX=AX+1       ;   FILE SYSTEM OPERATION
CUSER:=            AX,AX=AX+XUSERH  ;   USER ID
CFNUM:=            AX,AX=AX+1       ;   FILE NUMBER
CFNUM1:=           AX,AX=AX+1       ;   ADDITIONAL FILE NUMBER
CDEVN:=            CFNUM            ;   DEVICE NAME
CFIRST:=           AX,AX=AX+2       ;   FIRST BYTE
CCOUNT:=           AX,AX=AX+2       ;   BYTE COUNT
COMLNG:=           AX               ;
                                    ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; FILE SYSTEM ANSWER
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                                    ;
USE BASE              AX=BASE       ;   FILE SYSTEM ANSWER
RRES:=             AX,AX=AX+1       ;   FILE SYSTEM RESULT
RCOUNT:=           AX,AX=AX+2       ;   TRANSFERRED BYTES
RFNUM:=            RCOUNT           ;   FILE NUMBER (RESULT)
RESLNG:=           AX               ;
                                    ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; FILE SYSTEM COMMAND CODES.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                                    ;
XXUSERON:=    2                     ;
XXUSEROFF:=   4                     ;
XXASSIGN:=    8                     ;
XXASSIGNDUAL= 9                     ;   ASSIGN DUAL
XXDEASSIGN:=  10                    ;
XXDISCARD=    11                    ;   DISCARD
XXMOUNT:=     14                    ;
XXDISMOUNT:=  16                    ;
XXUPDATE:=    17                    ;   UPDATE
XXGETROOT:=   18                    ;
XXSTVOLTHD:=  19                    ;   SET VOLUME THRESHOLD
XXGTVOLTHD:=  20                    ;   GET VOLUME THRESHOLD
XXCREATE:=    22                    ;
XXDISMANTLE:= 24                    ;
XXRESET:=     26                    ;
XXOFFER:=     28                    ;
XXACCEPT:=    30                    ;
XXPROTECT:=   34                    ;
XXSTFILETHD:= 35                    ;   SET FILE THRESHOLD
XXGETFIN:=    36                    ;   GET FILE INFORMATION
XXENTER:=     38                    ;
XXLOOKUP:=    40                    ;
XXDESCENT:=   42                    ;
XXRENAME:=    44                    ;
XXREMOVE:=    46                    ;
XXREADBYTES:= 50                    ;
XXMODIFS:=    52                    ;
XXAPPENS:=    54                    ;
XXREADR:=     60                    ;
XXWRITER:=    62                    ;
XXWRITEP:=    64                    ;   WRITE AND PROTECT
XXWRITEM:=    66                    ;   WRITE AND MARK
XXFORMAT:=    70                    ;
XXSPECIAL:=   80                    ;   SPECIAL
                                    ;