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