home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASM / LCFUNCS.ZIP / GETINT.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-03-14  |  920 b   |  39 lines
  1.         TITLE    GETINT  restore Interrupts 80-FF
  2.         page     60,132
  3.  
  4.         include  lattice.mac
  5.  
  6.         PSEG
  7.  
  8. _MAIN   proc     near
  9.         _fopen   fname,imode,fp1       ; Open output file
  10.         mov      ds:word ptr buffer,offset bufloc
  11.         mov      ds:word ptr blksiz,0200h
  12.         mov      ds:word ptr numblks,1
  13.         _fread   buffer,blksiz,numblks,fp1
  14.         push     es
  15.         xor      ax,ax
  16.         mov      es,ax
  17.         mov      si,offset bufloc
  18.         mov      cx,0200h
  19.         mov      di,0200h
  20.         rep      movsb                 ; Copy local area to Int table
  21.         pop      es
  22.  
  23.         _fclose  fp1
  24.         ret
  25. _MAIN   endp
  26.         ENDPS
  27.  
  28.         DSEG
  29. fname   db       'd:save.int',0
  30. imode   db       'rb',0
  31. fp1     dw       0
  32. buffer  dw       0
  33. blksiz  dw       0
  34. numblks dw       0
  35. bufloc  db       512 dup (0CCh)
  36.  
  37.         ENDDS
  38.         end
  39.