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 |