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

⟦ddbcd4e70⟧ TextFile

    Length: 8548 (0x2164)
    Types: TextFile
    Names: »LTDPREFIX.S«

Derivation

└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!LTD.D!V0101.D!PASCAL.D!LTDPREFIX.S« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!LTD.D!V01CT.D!PASCAL.D!LTDPREFIX.S« 
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!LTD.D!V0101.D!PASCAL.D!LTDPREFIX.S« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!LTD.D!V01CT.D!PASCAL.D!LTDPREFIX.S« 

TextFile

"-----------------------------------------------------------------------"
"                                                                       "
"  PROJECT:          CD-DED                                             "
"                                                                       "
"  MODULE NAME:      LTU DRIVER (LTD)                                   "
"  MODULE ID NMB:    CD/2010                                            "
"  MODULE TYPE:      PREFIX                                             "
"  MODULE FILES:     XXXX                                               "
"  PREFIX FILES:     NONE                                               "
"  SPECIFICATIONS:   CD-DED/PSP/0002                                    "
"  AUTHOR/DATE:      SR/840410                                          "
"                                                                       "
"  DELIVERABLE:      YES                                                "
"  SOURCE LANGUAGE:  CR80 PASCAL/SWELL                                  "
"  COMPILE COMPUTER: CR80 M                                             "
"  TARGET COMPUTER:  CR80 M/CR80 MX                                     "
"  OPER. SYSTEM:     XAMOS/MXAMOS                                       "
"                                                                       "
"-----------------------------------------------------------------------"
"                                                                       "
"  CHANGE RECORD                                                        "
"                                                                       "
"  VERSION     AUTHOR/DATE            DESCRIPTION OF CHANGE             "
"  -------     -----------            ---------------------             "
"   0101       SR/840410              INITIAL SUBMITTAL TO CD_SCL       "
"                                                                       "
"-----------------------------------------------------------------------"
CONST

OCSTRT=        #80          ;"   First opcode"
SUBOPSTRT=     #B0          ;"   First sub opcode"
ERRCDESTRT=    #40          ;"   First error code"

"---------------------------------------------------------------------"
"OPCODES (USER -> LTD)                                                "
"---------------------------------------------------------------------"
LHOPEN=        OCSTRT+1     ;"   Open LTD channel"
LHBOOT=        OCSTRT+2     ;"   Bootload LTU"
LHCNLTU=       OCSTRT+3     ;"   Configure LTU"
LHCNCH=        OCSTRT+4     ;"   Configure channel"
LHCXFR=        OCSTRT+5     ;"   Control/Status output (to protocol)"

"         C/S Specifiers in LHCXFR"
"         ========================"

SCOPEN=  1                  ;"   Open"
SCCMD=   2                  ;"   Command"
SCRSTA=  3                  ;"   Report status request"
SCRSET=  4                  ;"   Reset"
SCCLOSE= 5                  ;"   Close"
SCIREQ=  6                  ;"   Input request single"
SCCNIR=  7                  ;"   Cancel input request"
SCCNOP=  8                  ;"   Cancel output"

LHDXFR=        OCSTRT+6     ;"   Data transfer (output)"
LHDBG=         OCSTRT+7     ;"   Debug command"

"         DEBUG sub-command codes"
"         ======================="

SCTST=   SUBOPSTRT+9        ;"   Set test mode"
SCDUMP=  SUBOPSTRT+#0A      ;"   Dump"
SCMOD=   SUBOPSTRT+#0B      ;"   Modify"
SCFILP=  SUBOPSTRT+#0C      ;"   Fill pattern"
SCHALT=  SUBOPSTRT+#0D      ;"   Halt"
SCGO=    SUBOPSTRT+#0E      ;"   Go"
SCREG=   SUBOPSTRT+#0F      ;"   Display registers"
SCRTRV=  SUBOPSTRT+#10      ;"   Retreive from queue"
SCSNTQ=  SUBOPSTRT+#11      ;"   Send to queue"
SCRTST=  SUBOPSTRT+#12      ;"   Reset test mode"

LHGTST=        OCSTRT+8     ;"   Get LTU status"
LHCLS=         OCSTRT+9     ;"   Close channel"

"---------------------------------------------------------------------"
"OPCODES (LTD --> USER)"
"---------------------------------------------------------------------"

LHOPRS=        OCSTRT+#0A   ;"   Open channel response"
LDBOOT=        OCSTRT+#0B   ;"   Boot response"
LCLTURS=       OCSTRT+#0C   ;"   Configure LTU response"
LHCFRS=        OCSTRT+#0D   ;"   Configure channel response"
LDCINP=        OCSTRT+#0E   ;"   Control/status input (from protocol)"

"         C/S Specifiers in LDCINP"
"         ========================"

SCOPSTA= 1                  ;"   Open status"
SCCMSTA= 2                  ;"   Command status"
SCCHSTA= 3                  ;"   Channel status"
SCCLSTA= 5                  ;"   Close status"
SCRXSTA= 7                  ;"   RX status"
SCTXSTA= 8                  ;"   TX status"
SCINTR=  9                  ;"   Interrupt"

LDDINP=        OCSTRT+#0F   ;"   Data input"
LHDBRS=        OCSTRT+#10   ;"   Debug response"

"         DEBUG sub-command codes"
"         ======================="

SCBPTDP= SUBOPSTRT+#1A      ;"   Break point register dump"
SCMOLTO= SUBOPSTRT+#1B      ;"   MOLTO dump"

LHSTRS=        OCSTRT+#11   ;"   LTU status response"
LHCLSRS=       OCSTRT+#12   ;"   Close channel response"
LDLERR=        OCSTRT+#13   ;"   LTD error reports"
"
;---------------------------------------------------------------------
;OPCODES (BSCS -> LTD)
;---------------------------------------------------------------------
"«soh»
BCOPENLTU=     OCSTRT+#17   ;"  OPEN LTU Command"
BCCLEANLTU=    OCSTRT+#18   ;"  CLEAN LTU Command"
BCCLOSELTU=    OCSTRT+#19   ;"  CLOSE LTU Command"
"
;---------------------------------------------------------------------
;OPCODES (LTD -> BSCS)
;---------------------------------------------------------------------
"
BCLTUFAIL=     OCSTRT+#1A   ;"  LTU Failure notification"
BROPENLTU=     OCSTRT+#1B   ;"  OPEN LTU Response"
BRCLEANLTU=    OCSTRT+#1C   ;"  CLEAN LTU Response"
BRCLOSELTU=    OCSTRT+#1D   ;"  CLOSE LTU Response"

"---------------------------------------------------------------------"
"ERROR CODES"
"---------------------------------------------------------------------"

"Error codes returned in LTD error report BCLTUFAIL"
"=================================================="

RLTUCNT=  ERRCDESTRT+1      ;"   LTU alive-counter stopped"
RLTULIA=  ERRCDESTRT+2      ;"   Line interface adapter disconnected"
RLTUTIM=  ERRCDESTRT+3      ;"   LTU I/O timeout ('removed')"
RLTUQUE=  ERRCDESTRT+4      ;"   LTU interface queue inaccessable"
RLTUBUF=  ERRCDESTRT+5      ;"   Invalid buffer address in LTU"
RLBDISC=  ERRCDESTRT+6      ;"   LTU bank disconnected"

"Error codes returned in LTD error report LDLERR"
"==============================================="

RUSERR=   ERRCDESTRT+7      ;"   Parameter error in USER command"

"sub error codes returned along with RUSERR"
"=========================================="

UOPCDE=   ERRCDESTRT+8      ;"   Invalid OPCODE/sub OPCODE in the"
UPARM=    ERRCDESTRT+9      ;"   Invalid parameters in the LTD com-"
ULTUCON=  ERRCDESTRT+#0A    ;"   LTU not configured ('Configure LTU'"
UCHCON=   ERRCDESTRT+#0B    ;"   LTD channel not configured ('Configure"
UTSTNA=   ERRCDESTRT+#0C    ;"   TEST mode not active (given when debug"
UCONERR=  ERRCDESTRT+#0D    ;"   Channel already configured (given"
UIFCHLMT= ERRCDESTRT+#0E    ;"   I/F Channel limit exceeded"
UCSERR=   ERRCDESTRT+#0F    ;"   Unable to deliver c/s pkts through ch.0"
UILTUERR= ERRCDESTRT+#10    ;"   Initialise LTU error"

"Completion codes returned in LTD responses"
"=========================================="

CCSUCC=   0                 ;"    Sucessful"
CCPERR=   ERRCDESTRT+#15    ;"    Parameter error"
CCOTHR=   ERRCDESTRT+#16    ;"    Other errors"
CCIQACC=  CCOTHR            ;"    Input queue access error"
CCCHLMT=  CCOTHR            ;"    LTD channel limit"
CCLTULMT= CCOTHR            ;"    LTU limit exceeded"
CCOQERR=  CCOTHR            ;"    Output queue creation error"

"Completion codes in 'Debug response'"
"=================================="

CCNTLD=  ERRCDESTRT+#17     ;"    DEBUG support F/W not loaded"
CCACT=   ERRCDESTRT+#18     ;"    Debug support F/W already active"
CCNACT=  ERRCDESTRT+#19     ;"    Debug support F/W not activated"
CCQEMT=  ERRCDESTRT+#1A     ;"    Queue specified empty"
CCBEMT=  ERRCDESTRT+#1B     ;"    Buffer retreived empty"
CCQACC=  ERRCDESTRT+#1C     ;"    Queue access failed"
CCBFLL=  ERRCDESTRT+#1D     ;"    Buffer retreived not empty"

"Flags field in LHCNCH (Configure channel cmd)"
"============================================="
BDTHRPBUF=  0               ;"    Throughput buffer option"
BDBUSYSUPP= 1               ;"    TX busy support option"

"END OF LTD PREFIX" «a5»