3b2
;;TITLE Load_Vec
;;Laddar om valfri INT-vektor 60h-67h (Adresser 0000:0180-0000:019c)
;;Som inparametrar ges dels vektoradressen, dels adressen f”r en dummy IRET

Load_Vec MACRO vec_addr,iret_addr

        push ax
        push bx
        push es

        mov ax,0000h
        mov es,ax

;------ IRET -----------------------------------------------------------

        mov bx,iret_addr
        mov al,0cfh
        mov es:[bx],al

;------ Vektorn --------------------------------------------------------

        mov ax,03f0h                    ;Offset
        mov bx,vec_addr
        mov es:[bx],ax
        mov ax,0000h                    ;Segment
        inc bx
        inc bx
        mov es:[bx],ax
;------------------------------------------------------------------------
        pop es
        pop bx
        pop ax

        ENDM
;========================================================================
.

0