* avr/z80.asm:

[avrcpm.git] / avrcpm / cpm / ipl.asm

diff --git a/avrcpm/cpm/ipl.asm b/avrcpm/cpm/ipl.asm
index 46572cda0b7cb83cdbc650c3d876dc47c1bcbdaa..1f91ef4397752c5c5f18aa9a5053459e10d03db4 100644 (file)
--- 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