home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / CLIPINT.ZIP / CLIPINT.ASM next >
Encoding:
Assembly Source File  |  1987-05-16  |  1.9 KB  |  81 lines
  1. ; CLIPINT.ASM
  2. ;
  3. ; by Michael Brill
  4. ; 
  5. ;
  6. ;
  7.    PAGE  60,132
  8.    PUBLIC  INTERRUPT
  9.    include extenda.mac
  10.  
  11. ;***************************************************
  12. _code segment byte public
  13.  
  14. assume   cs:_code,ds:nothing,es:nothing
  15. ;---------------------------------------------------
  16. ;
  17. ;     Syntax: interrupt(interrupt number,AX,BX,CX,DX)
  18. ;
  19. ;     Return: value in AX, after the interrupt has occurred
  20. ;
  21. ;     Params: interrupt number - the interrupt (0-255) to execute
  22. ;             AX,BX,CX,DX      - values to be put into the ax-dx
  23. ;                                registers before interrupt
  24. ;
  25. ;-----------------
  26. INTERRUPT   PROC  FAR
  27.    
  28.    push  bp       ;
  29.    mov   bp,sp    ;
  30.    push  ds       ; Save Clipper's registers
  31.    push  es       ;
  32.       
  33.    get_pcount     ; How many parameters?
  34.    cmp   ax,5     ; int_num + ax,bx,cx,dx = five parameters
  35.    je    _ok      ; Yes there are five so continue
  36.    jmp   _exit    ;  no , return to clipper
  37.  
  38.  
  39.                   ; Get the values for registers
  40. _ok:
  41.    get_int  2     ; Get AX
  42.    push ax
  43.    get_int  3     ; Get BX
  44.    push ax
  45.    get_int  4     ; Get CX
  46.    push ax
  47.    get_int  5     ; Get DX
  48.    push ax
  49.    get_int  1     ; Get the interrupt number
  50.    push ax
  51.  
  52.    pop ax                              ; Get the interrupt number and poke it into
  53.    mov byte ptr CS:_intplace+1,al      ; where the int # goes to form the INT x instruction
  54.  
  55.    pop  dx        ; Grab the rest of the registers
  56.    pop  cx
  57.    pop  bx
  58.    pop  ax
  59.  
  60.  
  61. _intplace  dw 00cdH    ;  Execute the interrupt
  62.  
  63.  
  64.  
  65. _exit:
  66.    pop   es       ;
  67.    pop   ds       ; Restore Clipper's registers
  68.    pop   bp       ;
  69.  
  70.  
  71.  
  72.   ret_int  ax     ; Return the value in AX
  73.  
  74.   ret             ; Go on back to Clipper
  75.  
  76. INTERRUPT  ENDP
  77. ;-----------------------------------------------------------
  78. _code ends
  79. ;***********************************************************
  80.         END  
  81.