Subversion Repositories zxusbnet

Rev

Rev 151 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
151 dimkam 1 
	MODULE	my_im2
2 
	PUBLIC	my_im2_init
3 
	RSEG	INTJP
4 
	DEFS 3
5 
	RSEG	INTTABLE
6 
	DEFS 257
7 
	RSEG	CODE
8 
my_im2_init
9 
	di
10 
	ld a,0xc3
11 
	ld (SFB(INTJP)),a
12 
	ld (SFB(INTJP)+1),de
13 
	ld a,HIGH(SFB(INTTABLE))
14 
	ld i,a
15 
	inc a
16 
	ld hl,SFB(INTTABLE)-1
17 
tloop
18 
	inc hl
19 
	ld (hl),HIGH(SFB(INTJP))
20 
	cp h
21 
	jr nz,tloop
22 
	im 2
23 
	ret
24 
	END
25