* More rcall --> lcall changes.

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

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