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

diff --git a/avrcpm/cpm/ipl.asm b/avrcpm/cpm/ipl.asm
index 4d229f2..1f91ef4 100644
--- a/avrcpm/cpm/ipl.asm
+++ b/avrcpm/cpm/ipl.asm
@@ -13,17 +13,24 @@
 ;
 ;    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$
+;
 
 org $2000
 	; IPL for the CP/M-emu in an AVR. Loads CPM from the 'disk' from
 	; track 0 sector 2 to track 1 sector 26.
 
-	ld sp,$1000
-	
-	call printipl
+READ_FUNC:  equ	7
+WRITE_FUNC: equ	6
+BOOT_FUNC:  equ 5
+HOME_FUNC:  equ 4
 
+	ld sp,$1000
+	ld hl,msgipl
+	call prmsg
 
-	ld b,49
+	ld b,51
 	ld de,$0001
 	ld hl,$3400+$A800
 loadloop:
@@ -35,7 +42,7 @@ loadloop:
 	out (20),a
 	ld a,h ;dma H
 	out (21),a
-	ld a,1
+	ld a,1<<READ_FUNC
 	out (22),a
 
 	push bc
@@ -58,17 +65,16 @@ noNextTrack:
 
 	jp $4A00+$A800
 
-printipl:
-	ld a,'i'
-	out (2),a
-	ld a,'p'
-	out (2),a
-	ld a,'l'
-	out (2),a
-	ld a,13
-	out (2),a
-	ld a,10
-	out (2),a
-	ret
+prmsg:
+	ld	a,(hl)
+	or	a
+	ret	z
+	out	(2),a
+	inc	hl
+	jp	prmsg
 
-end
\ No newline at end of file
+msgipl:	db	cr,lf
+	db	"ipl"
+	db	0
+	
+end