From 53327777c55c0e5f9d8c52a830248b394ae7797e Mon Sep 17 00:00:00 2001
From: Leo <erbl259-lmu@yahoo.de>
Date: Fri, 6 Aug 2010 19:38:10 +0000
Subject: [PATCH] * avr/ipl.asm   - Added print message func.

git-svn-id: svn://cu.loc/avr-cpm/trunk@71 57430480-672e-4586-8877-bcf8adbbf3b7
---
 avrcpm/cpm/bios.asm |  3 +++
 avrcpm/cpm/ipl.asm  | 31 ++++++++++++++++---------------
 2 files changed, 19 insertions(+), 15 deletions(-)

diff --git a/avrcpm/cpm/bios.asm b/avrcpm/cpm/bios.asm
index 07e7603..1f44c64 100644
--- a/avrcpm/cpm/bios.asm
+++ b/avrcpm/cpm/bios.asm
@@ -13,6 +13,9 @@
 ;
 ;    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
 
diff --git a/avrcpm/cpm/ipl.asm b/avrcpm/cpm/ipl.asm
index 46572cd..1f91ef4 100644
--- a/avrcpm/cpm/ipl.asm
+++ b/avrcpm/cpm/ipl.asm
@@ -13,6 +13,9 @@
 ;
 ;    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
@@ -24,9 +27,8 @@ BOOT_FUNC:  equ 5
 HOME_FUNC:  equ 4
 
 	ld sp,$1000
-	
-	call printipl
-
+	ld hl,msgipl
+	call prmsg
 
 	ld b,51
 	ld de,$0001
@@ -63,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
 
+msgipl:	db	cr,lf
+	db	"ipl"
+	db	0
+	
 end
-- 
2.39.2