home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / mslang / biosasm / interrpt.inc < prev    next >
Text File  |  1991-02-04  |  2KB  |  46 lines
  1. c INTERRPT.INC : include file for INTRPT and INTRPTX.
  2. c  This file includes the INTERFACE to the assember routines and the
  3. c  register structures needed for these routines
  4.  
  5.  
  6.       INTERFACE TO SUBROUTINE INTERRUPT (intnum,inregs,outregs)  
  7.       structure /regs/  
  8.           integer*2 ax,bx,cx,dx,si,di,flags  
  9.       end structure  
  10.       integer*2 intnum 
  11.       record /regs/ inregs  [REFERENCE]   ! Regs into INTERRUPT  
  12.       record /regs/ outregs [REFERENCE]   ! Regs returned  
  13.       end  
  14.   
  15.       INTERFACE TO SUBROUTINE INTERRUPTX (intnum,inregsX,outregsX)  
  16.       structure /regsX/  
  17.           integer*2 ax,bx,cx,dx,si,di,es,ds,flags  
  18.       end structure  
  19.       integer*2 intnum 
  20.       record /regsX/ inregsX   [REFERENCE] ! Regs into INTERRUPTX  
  21.       record /regsX/ outregsX  [REFERENCE] ! Regs returned  
  22.       end  
  23.  
  24.       implicit integer (a-g) 
  25.  
  26.       structure /wordregs/                  ! Full word registers  
  27.           integer*2 ax,bx,cx,dx,si,di,flags
  28.       end structure  
  29.  
  30.       structure /wordregsX/                  ! Full word registers  
  31.           integer*2 ax,bx,cx,dx,si,di,es,ds,flags
  32.       end structure  
  33.   
  34.  
  35.       integer*2 intnum                      ! Interrupt number
  36.  
  37.       record /wordregs/ inregs,outregs  
  38.       record /wordregsX/ inregsX,outregsX  
  39.  
  40. c Copy these function statements after your other declarations
  41. c but before other executable statement in the program, subroutine
  42. c or function in which you call INTERRUPT or INTERRUPTX.
  43. c      gethibyte (dataword) = dataword / 256 
  44. c      getlobyte (dataword) = iand(dataword , 255) 
  45.  
  46.