X-Git-Url: http://cloudbase.mooo.com/gitweb/avrcpm.git/blobdiff_plain/bd06e5abe9bd1e8ed0be797f3e36656e8dc12f6f..846ffdc92a6d4d2520e7cbd55ec5a3c91327f2c8:/avrcpm/cpm/bios.asm?ds=sidebyside

diff --git a/avrcpm/cpm/bios.asm b/avrcpm/cpm/bios.asm
index 6321916..1f44c64 100644
--- a/avrcpm/cpm/bios.asm
+++ b/avrcpm/cpm/bios.asm
@@ -13,21 +13,29 @@
 ;
 ;    You should have received a copy of the GNU General Public License
 ;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;
+;    $Id$
+;
 
 msize:	equ	62	;size of available RAM in k
 
 bias:	equ	(msize-20) * 1024 
-ccp:	equ	$3400+bias	;base of cpm ccp
-bdos:	equ	ccp+$806	;base of bdos
-bios:	equ	ccp+$1600	;base of bios
-cdisk:	equ	$0004		;current disk number (0 ... 15)
-iobyte:	equ	$0003		;intel iobyte
-buff:	equ	$0080		;default buffer address
+ccp:	equ	3400h+bias	;base of cpm ccp
+bdos:	equ	ccp+806h	;base of bdos
+bios:	equ	ccp+1600h	;base of bios
+cdisk:	equ	0004h		;current disk number (0 ... 15)
+iobyte:	equ	0003h		;intel iobyte
+buff:	equ	0080h		;default buffer address
 retry:	equ	3		;max retries on disk i/o before error
 
 cr:	equ	13
 lf:	equ	10
 
+READ_FUNC:  equ	7
+WRITE_FUNC: equ	6
+BOOT_FUNC:  equ 5
+HOME_FUNC:  equ 4
+
 	org	bios
 nsects:	equ	($-ccp)/128	;warm start sector count
 	
@@ -55,12 +63,197 @@ signon:
 	db	msize/10+'0'
 	db	msize - (msize/10)*10 + '0'	;modulo doesn't work?
 	db	"k cp/m vers 2.2"
-	db	cr,lf,0
+msgnl:	db	cr,lf,0
+
+const:
+	in a,(0)
+	ret
+
+conin:
+	in a,(0)
+	cp 0ffh
+	jp nz,conin
+
+	in a,(1)
+	ret
+
+conout:
+	ld a,c
+	out (2),a
+	ret
+
+list:
+	ret
+
+listst:
+	ld a,0
+	ret
+
+punch:
+	ret
+
+reader:
+	ld a,01Fh
+	ret
+
+prmsg:
+	ld	a,(hl)
+	or	a
+	ret	z
+	push	hl
+	ld	c,a
+	call	conout
+	pop	hl
+	inc	hl
+	jp	prmsg
+	
+prhex:
+	ld	a,c
+	push	af
+	rra	
+	rra	
+	rra	
+	rra	
+	call	prhexdigit
+	pop	af
+	;	fall thru
+
+prhexdigit:
+	and	00fh
+	cp	10
+	jp	c,prd1
+	add	a,7
+prd1:
+	add	a,'0'
+	ld	c,a
+	jp	conout
+
 
 boot:
 	ld	sp,buff
 	ld	hl,signon
 	call	prmsg
+	
+	xor	a
+	ld	(bootdsk),a
+	ld	a,(dpb)
+	ld	(bootspt),a
+	
+	ld	c,'I'-'A'
+	call	seldsk
+	ld	a,h
+	or	l
+	jp	z,boot1
+
+	ld	de,10
+	add	hl,de
+	ld	e,(hl)
+	inc	hl
+	ld	d,(hl)		;de = dpb of first ram disk
+	
+	ld	hl,7
+	add	hl,de
+	ld	a,(hl)		;get drm
+	inc	a
+	and	0fch
+	rrca			;4 dir entries per sector
+	rrca			;Number of sectors to init
+	push	af
+	
+	ld	bc,6
+	add	hl,bc
+	ld	c,(hl)		;Start track
+	push	bc		;Save track
+	
+; Check, if we have reserved tracks.
+	ld	a,c
+	or	a
+	jp	z,boot0		;Skip if not.
+
+; Save CPM to ram disk.
+
+	ld	a,(de)		;sectors per track
+	ld	(bootspt),a
+	ld	a,'I'-'A'
+	ld	(bootdsk),a
+	call	home
+	ld	b,nsects
+	ld	c,0		;track
+	ld	d,1		;sektor (0 based)
+	ld	hl,ccp
+store1:
+	push	bc
+	push	de
+	push	hl
+	ld	c,d
+	ld	b,0
+	call	setsec
+	pop	bc
+	push	bc
+	call	setdma
+	ld	c,0
+	call	write
+	
+	pop	hl
+	ld	de,128
+	add	hl,de
+	pop	de
+	pop	bc
+	dec	b
+	jp	z,boot0
+	
+	inc	d
+	ld	a,(bootspt)
+	dec	a
+	cp	d		;if sector >= spt then change tracks
+	jp	nc,store1
+	
+	ld	d,0
+	inc	c
+	push	bc
+	push	de
+	push	hl
+	ld	b,0
+	call	settrk	
+	pop	hl
+	pop	de
+	pop	bc
+	jp	store1
+
+; Clear directory area of ram disk.
+
+boot0:
+	pop	bc
+	call	settrk
+	pop	af
+	ld	d,a		;d = # of sectors
+	ld	e,0		;e = sector
+	push	de
+	ld	hl,dirbuf	;Clear dirbuf
+	ld	c,128
+	ld	a,0E5h
+boot_cl:
+	ld	(hl),a
+	inc	hl
+	dec	c
+	jp	nz,boot_cl
+
+	ld	bc,dirbuf
+	call	setdma
+	pop	de
+boot_cl2:
+	push	de
+	ld	c,e
+	ld	b,0
+	call	setsec
+	ld	c,0
+	call	write
+	pop	de
+	inc	e
+	dec	d
+	jp	nz,boot_cl2	
+	
+boot1:	
 	xor	a
 	ld	(iobyte),a
 	ld	(cdisk),a
@@ -68,7 +261,10 @@ boot:
 
 wboot:	;re-load CP/M
 	ld	sp,buff
-	ld	c,0
+	ld	a,1<<BOOT_FUNC	;init (de)blocking
+	out	(22),a
+	ld	a,(bootdsk)
+	ld	c,a
 	call	seldsk
 	call	home
 	ld	b,nsects
@@ -80,6 +276,7 @@ load1:
 	push	de
 	push	hl
 	ld	c,d
+	ld	b,0
 	call	setsec
 	pop	bc
 	push	bc
@@ -97,15 +294,17 @@ load1:
 	jp	z,gocpm
 	
 	inc	d
-	ld	a,d
-	cp	26		;if sector >= 26 then change tracks
-	jp	c,load1
+	ld	a,(bootspt)
+	dec	a
+	cp	d		;if sector >= spt then change tracks
+	jp	nc,load1
 	
 	ld	d,0
 	inc	c
 	push	bc
 	push	de
 	push	hl
+	ld	b,0
 	call	settrk	
 	pop	hl
 	pop	de
@@ -126,147 +325,183 @@ gocpm:
 	ld	a,(cdisk)
 	ld	c,a
 	jp	ccp
+	
+seldsk:
+	ld	hl,dphtab
+	ld	b,0
+	add	hl,bc
+	add	hl,bc
+	ld	a,(hl)		;get table entry for selected disk
+	inc	hl
+	ld	h,(hl)
+	ld	l,a		
+	or	h		;no entry, no disk
+	ret	z		;
 
-const:
-	in a,(0)
-	ret
-
-conin:
-	in a,(0)
-	cp $ff
-	jp nz,conin
-
-	in a,(1)
-	ret
-
-conout:
-	ld a,c
-	out (2),a
-	ret
-
-list:
-	ret
-
-listst:
-	ld a,0
-	ret
-
-punch:
-	ret
-
-reader:
-	ld a,$1F
+	ld	a,c
+	out	(15),a
+	in	a,(15)		;querry, if disk exists
+	or	a		;0 = disk is ok
+	ret	z
+	ld	hl,0		;error return code
 	ret
 
 home:
-	push af
-	ld a,0
-	out (16),a
-	pop af
-	ret
-
-seldsk:
-	push af
-	ld a,c
-	cp 0
-	jp nz,seldsk_na
-	ld hl,dph
-	pop af
-	ret
-seldsk_na:
-	ld hl,0
-	pop af
-	ret
-
+	ld a,1<<HOME_FUNC
+	out (22),a
+	
+	ld bc,0			; same as seek to track 0
 settrk:
-	push af
 	ld a,c
 	out (16),a
-	pop af
+	ld a,b
+	out (17),a
 	ret
 
 setsec:
-	push af
 	ld a,c
 	out (18),a
-	pop af
 	ret
 
 setdma:
-	push af
 	ld a,c
 	out (20),a
 	ld a,b
 	out (21),a
-	pop af
 	ret
 
 read:
-	ld a,1
+	ld a,1<<READ_FUNC
 	out (22),a
-	ld a,0
+	in a,(22)
+	and 1
 	ret
 
 write:
-	ld a,2
-	out (22),a
-	ld a,0
+	ld	a,c
+	and	3		;mask write  type
+	or	1<<WRITE_FUNC
+	out	(22),a
+	in a,(22)
+	and 1
 	ret
 
 sectran:
 	;translate sector bc using table at de, res into hl
-	;not implemented :)
 	ld h,b
 	ld l,c
+	ld a,d
+	or e
+	ret z
+	ex de,hl
+	add hl,bc
+	ld l,(hl)
+	ld h,0
 	ret
 
-prmsg:
-	ld	a,(hl)
-	or	a
-	ret	z
-	push	hl
-	ld	c,a
-	call	conout
-	pop	hl
-	inc	hl
-	jp	prmsg
+dphtab:
+	dw	dpe0
+	dw	dpe1
+	dw	dpe2
+	dw	dpe3
+	dw	0	
+	dw	0	
+	dw	0	
+	dw	0	
+	dw	dperd0
+	dw	0	
+	dw	0	
+	dw	0	
+	dw	0	
+	dw	0	
+	dw	0	
+	dw	0	
+
 	
 
 ;Disk Parameter Header
-dph:
-	dw trans ;XLT: Address of translation table
-	dw 0 ;000: Scratchpad
-	dw 0 ;000: Scratchpad
-	dw 0 ;000: Scratchpad
-	dw dirbuf ;DIRBUF: Address of a dirbuff scratchpad
-	dw dpb ;DPB: Address of a disk parameter block
-	dw chk ;CSV: Address of scratchpad area for changed disks
-	dw all ;ALV: Address of an allocation info sratchpad
-
-dpb:
-	dw 26 ;SPT: sectors per track
-	db 3 ;BSH: data allocation block shift factor
-	db 7 ;BLM: Data Allocation Mask
-	db 0 ;Extent mask
-	dw 242 ;DSM: Disk storage capacity
-	dw 63 ;DRM, no of directory entries
-	db 192 ;AL0
-	db 0 ;AL1
-	dw 16 ;CKS, size of dir check vector
-	dw 2 ;OFF, no of reserved tracks
-
-trans:
-	db 0,1,2,3,4,5,6,7,8,9
-	db 10,11,12,13,14,15,16,17,18,19
-	db 19,20,21,22,23,24,25,26
+dpbase:	
+dpe0:	dw 0		;XLT: No sector translation table
+	dw 0		;000: Scratchpad
+	dw 0		;000: Scratchpad
+	dw 0 		;000: Scratchpad
+	dw dirbuf 	;DIRBUF: Address of a dirbuff scratchpad
+	dw dpb		;DPB: Address of a disk parameter block
+	dw chk0		;CSV: Address of scratchpad area for changed disks
+	dw all0		;ALV: Address of an allocation info sratchpad
+dpe1:	dw 0		;XLT: No sector translation table
+	dw 0		;000: Scratchpad
+	dw 0		;000: Scratchpad
+	dw 0 		;000: Scratchpad
+	dw dirbuf 	;DIRBUF: Address of a dirbuff scratchpad
+	dw dpb		;DPB: Address of a disk parameter block
+	dw chk1		;CSV: Address of scratchpad area for changed disks
+	dw all1		;ALV: Address of an allocation info sratchpad
+dpe2:	dw 0		;XLT: No sector translation table
+	dw 0		;000: Scratchpad
+	dw 0		;000: Scratchpad
+	dw 0 		;000: Scratchpad
+	dw dirbuf 	;DIRBUF: Address of a dirbuff scratchpad
+	dw dpb		;DPB: Address of a disk parameter block
+	dw chk2		;CSV: Address of scratchpad area for changed disks
+	dw all2		;ALV: Address of an allocation info sratchpad
+dpe3:	dw 0		;XLT: No sector translation table
+	dw 0		;000: Scratchpad
+	dw 0		;000: Scratchpad
+	dw 0 		;000: Scratchpad
+	dw dirbuf 	;DIRBUF: Address of a dirbuff scratchpad
+	dw dpb		;DPB: Address of a disk parameter block
+	dw chk3		;CSV: Address of scratchpad area for changed disks
+	dw all3		;ALV: Address of an allocation info sratchpad
+
+dperd0:	dw 0		;XLT: No sector translation table
+	dw 0		;000: Scratchpad
+	dw 0		;000: Scratchpad
+	dw 0 		;000: Scratchpad
+	dw dirbuf 	;DIRBUF: Address of a dirbuff scratchpad
+	dw dpbrd	;DPB: Address of a disk parameter block
+	dw chkrd0	;CSV: Address of scratchpad area for changed disks
+	dw allrd0	;ALV: Address of an allocation info sratchpad
+
+
+dpb:	dw 26		;SPT: sectors per track
+	db 3		;BSH: data allocation block shift factor
+	db 7		;BLM: Data Allocation Mask
+	db 0		;Extent mask
+	dw 242		;DSM: Disk storage capacity
+	dw 63		;DRM, no of directory entries
+	db 192		;AL0
+	db 0		;AL1
+	dw 16		;CKS, size of dir check vector
+	dw 2		;OFF, no of reserved tracks
+	
+dpbrd:	dw 32		;SPT: sectors per track
+	db 3		;BSH: data allocation block shift factor
+	db 7		;BLM: Data Allocation Mask
+	db 0		;Extent mask
+	dw 55		;DSM: Disk storage capacity
+	dw 31		;DRM, no of directory entries
+	db 128		;AL0
+	db 0		;AL1
+	dw 0		;CKS, size of dir check vector
+	dw 2		;OFF, no of reserved tracks
+	
+bootdsk:ds	1
+bootspt:ds	1
 
 dirbuf:
 	ds 128
 
-chk:
-	ds 16
-
-all:
-	ds 31
+chk0:	ds 16
+all0:	ds 31
+chk1:	ds 16
+all1:	ds 31
+chk2:	ds 16
+all2:	ds 31
+chk3:	ds 16
+all3:	ds 31
+chkrd0:	ds 0
+allrd0:	ds 7
 
 end
+