;
; 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
HOME_FUNC: equ 4
ld sp,$1000
-
- call printipl
-
+ ld hl,msgipl
+ call prmsg
ld b,51
ld de,$0001
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