46e
;;TITLE TSR_Inst.MAC
;;
;;===== Installationsrutin f”r att manipulera
;;===== avbrottsvektorn till godtyckligt interrupt
;;===== Interruptets nummer ges i det program
;;===== som anv„nder MACRO:t ('TSR_Inst X')


Tsr_Inst MACRO IntNr

        ASSUME CS:CSEG,DS:CSEG

        push cs                         ;;DS m†ste peka p† r„tt segment
        pop ds                          ;;d† vi skall ladda om vektorn

        mov al,IntNr                    ;;H„mta vektorn till den gamla rutinen
        mov ah,35h
        int 21h

        mov Org_Rutin,bx                ;;Org_Rutinens OFFSET h„mtas
        mov Org_Rutin[2],es             ;;Segment sparas

        mov dx,OFFSET Start_TSR         ;;Peka p† v†rt skikt
        mov al,IntNr
        mov ah,25h                      ;;Ladda om vektor
        int 21h

        mov dx,OFFSET End_TSR           ;;Peka p† slutet p† den del som
                                        ;;skall bli minnesresident
        int 27h                         ;;G”r minnesresident
        ENDM
;--------------------------------------------------------------------------
.

0