* avr/z80.asm:

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

diff --git a/avrcpm/cpm/ipl.asm b/avrcpm/cpm/ipl.asm
index 359569dbb41e50b1d22f58fdf0e6a52c7228f55b..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,11 +27,10 @@ BOOT_FUNC:  equ 5
 HOME_FUNC:  equ 4
 
        ld sp,$1000
-       
-       call printipl
+       ld hl,msgipl
+       call prmsg
 
-
-       ld b,49
+       ld b,51
        ld de,$0001
        ld hl,$3400+$A800
 loadloop:
@@ -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