; Voorbeeldopzetje voor een routine die direkt op adres &H38 zit.

        ORG   38H

        PUSH  AF
        PUSH  BC
        PUSH  DE
        PUSH  HL
        EXX
        EX    AF,AF
        PUSH  AF
        PUSH  BC
        PUSH  DE
        PUSH  HL

        IN    A,(99H)
;Altijd statusregister 0 uitlezen  (bit 7 = 1: 'Gewone' interrupt gegeven)
        RLA
        JR    C,GEWONE

;Test op line-interrupt
        LD    DE,0180H+15
        LD    C,99H
        OUT   (C),D
        OUT   (C),E
        IN    A,(99H)
        RRA
        JP    C,LINE


; GEWONE en LINE moeten hier weer terugkomen: R#15 moet weer terug op 0
; en alle registers moeten gePOPt.
; Geef in GEWONE en LINE nooit een EI!!!!!
        XOR   A
        OUT   (99H),A
        LD    A,8FH
        OUT   (99H),A
        POP   HL
        POP   DE
        POP   BC
        POP   AF
        EXX
        EX    AF,AF
        POP   HL
        POP   DE
        POP   BC
        POP   AF
        EI
        RET





        EX    AF,AF
        POP   HL
        POP   DE
        POP   BC
        POP   AF
        EI
        RET
