home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / turpas70.zip / GDOS.INC next >
Text File  |  2000-09-03  |  2KB  |  83 lines
  1.  
  2. IDEAL
  3. IFDEF i386
  4.  P386N
  5.  model  USE16 large,Pascal
  6. ELSE
  7.  P286N
  8.  model large,Pascal
  9. ENDIF
  10.  
  11. %PAGESIZE 255,255
  12. %LINUM 3
  13. %TABSIZE 0
  14.  
  15. typedef PRegisters far ptr TRegisters
  16.  
  17. struc TRegisters
  18.  union
  19.   struc           ; ##<- numerical offset in hexedecimal
  20.         EDI dd ?  ; 00 Union of structure EDI to EXX
  21.         ESI dd ?  ; 04
  22.         EBP dd ?  ; 08
  23.         EXX dd 0  ; 0C
  24.   ends
  25.   struc
  26.         DI  dw ?  ; 00 and structure DI to XXH
  27.         DIH dw ?  ;
  28.         SI  dw ?  ; 04
  29.         SIH dw ?  ;
  30.         BP  dw ?  ; 08
  31.         BPH dw ?  ;
  32.         XX  dw 0  ; 0C
  33.         XXH dw 0  ;
  34.   ends
  35.  ends
  36.  union             ; Union of structure EBX to EAX
  37.   struc
  38.         EBX dd ?  ; 10
  39.         EDX dd ?  ; 14
  40.         ECX dd ?  ; 18
  41.         EAX dd ?  ; 1C
  42.   ends
  43.   struc
  44.         BX  dw ?  ; 10 and structure BX to AXH
  45.         BXH dw ?  ;
  46.         DX  dw ?  ; 14
  47.         DXH dw ?  ;
  48.         CX  dw ?  ; 18
  49.         CXH dw ?  ;
  50.         AX  dw ?  ; 1C
  51.         AXH dw ?  ;
  52.   ends
  53.   struc
  54.         BL  db ?  ; 10 and structure BL to AHHr
  55.         BH  db ?  ; 11
  56.         BLH db ?  ;
  57.         BHH db ?  ;
  58.         DL  db ?  ; 14
  59.         DH  db ?  ; 15
  60.         DLH db ?  ;
  61.         DHH db ?  ;
  62.         CL  db ?  ; 18
  63.         CH  db ?  ; 19
  64.         CLH db ?  ;
  65.         CHH db ?  ;
  66.         AL  db ?  ; 1C
  67.         AH  db ?  ; 1D
  68.         ALH db ?  ;
  69.         AHH db ?  ;
  70.   ends
  71.  ends
  72.  Flags dw ?        ; 20 This lot are common to all
  73.  ES    dw ?        ; 22
  74.  DS    dw ?        ; 24
  75.  FS    dw 0        ; 26
  76.  GS    dw 0        ; 28
  77.  IP    dw ?        ; 2A
  78.  CS    dw ?        ; 2C
  79.  SP    dw 0        ; 2E
  80.  SS    dw 0        ; 30
  81. ends TRegisters
  82.  
  83.