home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / demos / programme / WarpUPV3 / WarpUP-WarpOS / Source / tools / showHALinfo.p < prev    next >
Encoding:
Text File  |  1998-10-06  |  1.2 KB  |  62 lines
  1.         incdir  include:
  2.         incdir  lvo:
  3.  
  4.         include powerpc/ppcmacros.i
  5.         include powerpc/powerpc.i
  6.  
  7.         include powerpc_lib.i
  8.         include exec_lib.i
  9.         include dos_lib.i
  10.  
  11.         STRUCTURE       HALINFO,0
  12.         ULONG           HALINFO_EXC_HIGH
  13.         ULONG           HALINFO_EXC_LOW
  14.         LABEL           HALINFO_SIZE
  15.  
  16.  
  17.         xref    _SysBase
  18.         xref    _DOSBase
  19.         xref    _PowerPCBase
  20.         xref    _LinkerDB
  21.         smalldata
  22.         executable
  23.         escapestr
  24.         vea
  25.         version 14
  26.  
  27. start
  28.         prolog  1024
  29.         pushgpr r29-r31
  30.         lnk     r29,-HALINFO_SIZE
  31.         subi    r29,r29,HALINFO_SIZE
  32.         la      r4,HALInfo_Tags
  33.         CALLPOWERPC     GetHALInfo
  34.         lw      r6,Tag_High
  35.         stw     r6,HALINFO_EXC_HIGH(r29)
  36.         lw      r6,Tag_Low
  37.         stw     r6,HALINFO_EXC_LOW(r29)
  38.         la      _d1,infotext
  39.         mr      _d2,r29
  40.         RUN68K_XL       _DOSBase,VPrintf
  41.         addi    r29,r29,HALINFO_SIZE
  42.         ulnk    r29,-HALINFO_SIZE
  43.         popgpr
  44.         epilog
  45.  
  46.         section data
  47. infotext        dc.b    "\nWarpUp-HAL status information\n"
  48.         dc.b    "-----------------------------\n"
  49.         dc.b    "Number of emulated alignment exceptions [HIGH]: %ld\n"
  50.         dc.b    "Number of emulated alignment exceptions [LOW]:  %ld\n\n"
  51.         dc.b    0
  52.  
  53.  
  54.         cnop    0,4
  55. HALInfo_Tags
  56.         dc.l    HINFO_ALEXC_HIGH
  57. Tag_High        dc.l    0
  58.         dc.l    HINFO_ALEXC_LOW
  59. Tag_Low         dc.l    0
  60.         dc.l    0
  61.  
  62.