X-Git-Url: http://cloudbase.mooo.com/gitweb/avrcpm.git/blobdiff_plain/a54e22b7b347f891ef00b8b25a798311082eaa61..3f75a0d398d7a28520dcd29d586ef1a1437ca919:/avrcpm/cpm/ipl.asm

diff --git a/avrcpm/cpm/ipl.asm b/avrcpm/cpm/ipl.asm
index 46572cd..9d50e42 100644
--- a/avrcpm/cpm/ipl.asm
+++ b/avrcpm/cpm/ipl.asm
@@ -13,20 +13,25 @@
 ;
 ;    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.
+cr:	equ	13
+lf:	equ	10
 
 READ_FUNC:  equ	7
 WRITE_FUNC: equ	6
 BOOT_FUNC:  equ 5
 HOME_FUNC:  equ 4
 
-	ld sp,$1000
-	
-	call printipl
+	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
+	ld hl,msgipl
+	call prmsg
 
 	ld b,51
 	ld de,$0001
@@ -63,17 +68,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