Subversion Repositories Krakow BASIC

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
33 nishi 1 
; $Id: msx.s 33 2024-09-05 04:36:42Z nishi $
2 
 
3 
.area CODE (ABS)
4 
.org 0x4000
5 
 
6 
.db 'A'
7 
.db 'B'
8 
.dw init
9 
.dw 0
10 
.dw 0
11 
.dw 0
12 
 
13 
.dw 0
14 
.dw 0
15 
.dw 0
16 
 
17 
init:
18 
	ld a, #32
19 
	ld (0xf3af), a
20 
	call 0x6f
21 
 
22 
	ld hl, #hello
23 
	call Print
24 
	call 0x4100
25 
 
26 
Print:
27 
	ld a, (hl)
28 
	and a
29 
	ret z
30 
	call 0xa2
31 
	inc hl
32 
	jr Print
33 
 
34 
hello:
35 
	.asciz "Krakow BASIC MSX ROM bootstrap"
36 
 
37 
.org 0x7fff
38 
.db 0