DataMuseum.dk

Presents historical artifacts from the history of:

Christian Rovsing CR7, CR8 & CR16 CP/M

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

See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦734020269⟧ TextFile

    Length: 4736 (0x1280)
    Types: TextFile
    Names: »DRVTBL.ASM«

Derivation

└─⟦b445f10af⟧ Bits:30004389 CP/M Plus Source files
    └─ ⟦this⟧ »DRVTBL.ASM«

TextFile


	TITLE 'DRIVE TABLE FOR CP/M 3.0 BIOS - DATE : 840403'
	PAGE 43

;************************************************************************
;*	THE DRVTBL MODULE POINTS TO THE DATA STRUCTURE FOR EACH		*
;*	CONFIGURED DISK DRIVE.						* 
;*	THE DRIVE TABLE DETERMINES WHICH PHYSICAL DISK UNIT IS		*
;*	ASSOCIATED WITH WHICH LOGICAL DRIVE.				*
;************************************************************************

	PUBLIC	@DTBL

	PUBLIC	DISK$MSG,SIGNON$MSG,BIOS$MSG

	MACLIB	CPM3

	MACLIB	PORTS

	DSEG			;BANKED MEMORY

SIGNON$MSG:
	DB	CR,LF,ESC,'Æ7m','CHRISTIAN ROVSING A/S       '
	if	banked
	DB	'112K'
	else
	DB	' 64K'
	endif
	DB	' CP/M PLUS       '
	DB	YEAR/10+'0',YEAR MOD 10+'0'
	DB	MONTH/10+'0',MONTH MOD 10+'0'
	DB	DAY/10+'0',DAY MOD 10+'0'
	DB	0
BIOS$MSG:
	DB	'BIOS VER. ',VERSION/10+'0','.',VERSION MOD 10+'0',CR,LF,0

;-------------------------------------------------------------------------
	if	(hwconfig eq st412+mf1)
	EXTRN	HD0DPH,HD1DPH,HD2DPH,HD3DPH,MFD0DPH
@DTBL:	DTBL	<HD0DPH,HD1DPH,HD2DPH,HD3DPH,mfd0dph>
DISK$MSG:
	DB	CR,LF,ESC,'Æm','DTC510A-ST412 HARD DISK DRIVE : A,B,C,D'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : E         '
	db	0
	endif
;-------------------------------------------------------------------------
	if	(hwconfig eq st406+mf1)
	EXTRN	HD0DPH,HD1DPH,MFD0DPH
@DTBL:	DTBL	<HD0DPH,HD1DPH,0,0,mfd0dph>
DISK$MSG:
	DB	CR,LF,ESC,'Æm','DTC510A-ST406 HARD DISK DRIVE : A,B'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : E         '
	db	0
	endif
;------------------------------------------------------------------------
	if	(hwconfig eq mf2)
	EXTRN	MFD0DPH,MFD1DPH
@DTBL:	DTBL	<MFD0DPH,MFD1DPH>
DISK$MSG:
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : A,B       '
	db	0
	endif
;-------------------------------------------------------------------------
	if	(hwconfig eq st406+mf2)
	EXTRN	HD0DPH,HD1DPH,MFD0DPH,MFD1DPH
@DTBL:	DTBL	<HD0DPH,HD1DPH,0,0,mfd0dph,mfd1dph>
DISK$MSG:
	DB	CR,LF,ESC,'Æm','DTC510A-ST406 HARD DISK DRIVE : A,B'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : E,F       '
	db	0
	endif
;-------------------------------------------------------------------------
	if	(hwconfig eq st412+mf2)
	EXTRN	HD0DPH,HD1DPH,HD2DPH,HD3DPH,MFD0DPH,MFD1DPH
@DTBL:	DTBL	<HD0DPH,HD1DPH,HD2DPH,HD3DPH,mfd0dph,mfd1dph>
DISK$MSG:
	DB	CR,LF,ESC,'Æm','DTC510A-ST412 HARD DISK DRIVE : A,B,C,D'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : E,F       '
	db	0
	endif
;--------------------------------------------------------------------------
	if	(hwconfig eq st412+mf1+cr16mfd)

	extrn	cr160dph,cr161dph
	EXTRN	HD0DPH,HD1DPH,HD2DPH,HD3DPH,MFD0DPH
@DTBL:	DTBL	<HD0DPH,HD1DPH,HD2DPH,HD3DPH,mfd0dph,0,cr160dph>
DISK$MSG:
	DB	CR,LF,ESC,'Æm','DTC510A-ST412 HARD DISK DRIVE : A,B,C,D'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : E (CR7)'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : G (CR16)  '
	db	0
	endif
;-------------------------------------------------------------------------
	if	(hwconfig eq st406+mf1+cr16mfd)

	extrn	CR160DPH,cr161dph
	EXTRN	HD0DPH,HD1DPH,MFD0DPH
@DTBL:	DTBL	<HD0DPH,HD1DPH,0,0,mfd0dph,0,cr160dph>
DISK$MSG:
	DB	CR,LF,ESC,'Æm','DTC510A-ST406 HARD DISK DRIVE : A,B'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : E (CR7)'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : G (CR16)  '
	db	0
	endif
;------------------------------------------------------------------------
	if	(hwconfig eq mf2+cr16mfd)

	extrn	CR160DPH,cr161dph
	EXTRN	MFD0DPH,MFD1DPH
@DTBL:	DTBL	<MFD0DPH,MFD1DPH,0,0,0,0,cr160dph,cr161dph>
DISK$MSG:
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : A,B (CR7)'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : G,H (CR16)'
	db	0
	endif
;-------------------------------------------------------------------------
	if	(hwconfig eq st406+mf2+cr16mfd)

	extrn	CR160DPH,cr161dph
	EXTRN	HD0DPH,HD1DPH,MFD0DPH,MFD1DPH
@DTBL:	DTBL	<HD0DPH,HD1DPH,0,0,mfd0dph,mfd1dph,cr160dph,cr161dph>
DISK$MSG:
	DB	CR,LF,ESC,'Æm','DTC510A-ST406 HARD DISK DRIVE : A,B'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : E,F (CR7)'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : G,H (CR16)'
	db	0
	endif
;-------------------------------------------------------------------------
	if	(hwconfig eq st412+mf2+cr16mfd)

	extrn	CR160DPH,cr161dph
	EXTRN	HD0DPH,HD1DPH,HD2DPH,HD3DPH,MFD0DPH,MFD1DPH
@DTBL:	DTBL	<HD0DPH,HD1DPH,HD2DPH,HD3DPH,mfd0dph,mfd1dph,cr160dph,cr161dph>
DISK$MSG:
	DB	CR,LF,ESC,'Æm','DTC510A-ST412 HARD DISK DRIVE : A,B,C,D'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : E,F (CR7)'
	DB	CR,LF,esc,'Æm','5 1/4  MINI FLOPPY DISK DRIVE : G,H (CR16)'
	db	0
	endif

	END
«eof»