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

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