.nolist
#define TI83
#define _RCLANS $4EDC
#define _CONVOP1 $4EFC

#include "ion.inc"

.list
.org $9327

debut:
call _RCLANS
call _CONVOP1
dec e
jr z,installer_interruption
im 1
ret

installer_interruption:
di
ld hl,$8400
ld de,$8401
ld bc,256
ld (hl),$82
ldir

ld hl,debut_interruption
ld de,$8282
ld bc,fin_interruption-debut_interruption
ldir
ld a,$84
ld i,a
im 2
ei
ret

debut_interruption:
di
exx
ex af,af'

ld a,($800A)
dec a
jp z,stop_interruption

in a,($03)
and %11111110
out ($03),a

ex af,af'
exx
jp $0038

stop_interruption:
ex af,af'
exx
im 1
ei
reti

fin_interruption:
.end