home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / LASTCOM2.ZIP / REGRSTOR.INC < prev    next >
Encoding:
Text File  |  1985-12-29  |  1.0 KB  |  20 lines
  1.  
  2. {when invoked this routine restores the registers from the structure constant}
  3.  
  4.     inline(
  5.     $BB/REGS/                          {MOV BX,OFFSET REGS}
  6.     $2E/$8E/$47/$10/                   {CS:MOV ES,[BX]10}
  7.     $2E/$8E/$5F/$0E/                   {CS:MOV DS,[BX]0E}
  8.     $2E/$8B/$7F/$0C/                   {CS:MOV DI,[BX]0C}
  9.     $2E/$8B/$77/$0A/                   {CS:MOV SI,[BX]0A}
  10.     $2E/$8B/$6F/$08/                   {CS:MOV BP,[BX]08}
  11.     $2E/$8B/$57/$06/                   {CS:MOV DX,[BX]06}
  12.     $2E/$8B/$4F/$04/                   {CS:MOV CX,[BX]04}
  13.     $2E/$8B/$47/$00/                   {CS:MOV AX,[BX]00}
  14.     $2E/$FF/$77/$12/                   {CS:PUSH [BX]12}
  15.     $9D/                               {POPF}
  16.     $2E/$8B/$5F/$02/                   {CS:MOV BX,[BX]02}
  17.     $5D/                               {POP BP}  {restore the stack pointer}
  18.     $5D                                {POP BP}
  19.     );
  20.