* cpm/utils/TIMER.MAC

[avrcpm.git] / cpm / IPL.MAC

;    CP/M IPL for avrcpm\r
;\r
;    Copyright (C) 2010 Sprite_tm\r
;\r
;    This program is free software: you can redistribute it and/or modify\r
;    it under the terms of the GNU General Public License as published by\r
;    the Free Software Foundation, either version 3 of the License, or\r
;    (at your option) any later version.\r
;\r
;    This program is distributed in the hope that it will be useful,\r
;    but WITHOUT ANY WARRANTY; without even the implied warranty of\r
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
;    GNU General Public License for more details.\r
;\r
;    You should have received a copy of the GNU General Public License\r
;    along with this program.  If not, see <http://www.gnu.org/licenses/>.\r
;\r
;    $Id$\r
;\r
\r
; IPL for the CP/M-emu in an AVR. Loads CPM (CCP+BDOS+BIOS) from the 'disk'.\r
; Loads nsects (51) locical CPM sectors, starting from track 0 sector 2.\r
\r
	maclib	CFGACPM.LIB\r
\r
nsects 	equ	26*2 - 1	;cold start sector count\r
\r
	.z80\r
	aseg\r
	org	100h\r
	.phase	2000h\r
\r
	ld	sp,2000h\r
	ld	hl,msgipl\r
	call	prmsg\r
\r
	ld	hl,ccp\r
	ld	de,128\r
	ld	c,1		;sector 1\r
	ld	b,nsects\r
	xor	a\r
	out	(16),a		;track 0\r
	out	(17),a		;\r
loadloop:\r
	ld	a,c		;sector (base-0)\r
	out	(18),a\r
	ld	a,l		;dma L\r
	out	(20),a\r
	ld	a,h		;dma H\r
	out	(21),a\r
	ld	a,1 shl READ_FUNC\r
	out	(22),a\r
\r
	add	hl,de\r
	inc	c\r
	dec	b\r
	jp	nz,loadloop\r
\r
	jp	bios\r
\r
prmsg:\r
	ld	a,(hl)\r
	or	a\r
	ret	z\r
	out	(2),a\r
	inc	hl\r
	jp	prmsg\r
\r
msgipl:	db	cr,lf\r
	db	"ipl"\r
	db	0\r
	\r
	end\r
\r