added XPrint8 module
[urasm.git] / samples / xprint8 / main.zas
blob68874d6a9b5fae6f251c98468b2db8f4a39de3a7
1 ; *****************************************************************************
2 ; * Special FX Music Player Engine
3 ; *
4 ; * Based on code written by Jonathan Smith for the Special FX game, Firefly.
5 ; * Modified by Chris Cowley
6 ; *
7 ; * modified by Ketmar // Vampire Avalon
8 ; ******************************************************************************
9   ORG 32768
10   ENT 32768
11   CLR 32767
13 MainEntry:
14   ld   hl,xmsg
15   call XPrint8.PrintStrX
16 .xloop:
17   ld   a,31
18   inc  a
19   cp   128
20   jr   z,.done
21   ld   (.xloop+1),a
22   call XPrint8.PrintChar
23   jr   .xloop
24 .done:
25   ret
27 xmsg
28   dx "\22\9\10\19\1 HELLO FOLKS \19\0\16\5\17\1\22\0\0printer\n\9test\18\1!\18\0\n$$$\8\8\8\21\1"
30   INCLUDE <XPrint8>