|
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: 8548 (0x2164)
Types: TextFile
Names: »LTDPREFIX.S«
└─⟦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«
"-----------------------------------------------------------------------"
" "
" 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»