Код:
;#1572 определение наличия interrupt controller
x1572 ld bc,#FFBA
ld a,(xDFF0) ;состояние порта #FFBA
and #F7
out (c),a
ld (xDFF0),a
ld bc,#7EBE
ld a,#F3
out (c),a
nop
ld b,#7F
ld a,#C5
out (c),a
nop
ld a,#01
out (c),a
nop
nop
in a,(c)
or a
jr z,x15A1
cp #01
jr z,x15A5
x159D ld a,#24 ;сообщение: interrupt controller not found
scf
ret
x15A1 set 4,(iy+#1B)
x15A5 ld b,#7E
ld a,#F2
out (c),a
nop
ld b,#7F
ld a,#C5
out (c),a
nop
ld a,#FF
out (c),a
nop
nop
in a,(c)
cp #FF
jr nz,x159D
set 4,(iy+#1A)
xor a
ld a,#25 ;сообщение: interrupt controller found
ret