home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 581b.lha / MoveSuperStuff / ShowMSS.asm < prev    next >
Encoding:
Assembly Source File  |  1991-08-12  |  863 b   |  56 lines
  1.  
  2. ; include macros
  3.  
  4.     INCDIR    MAC:
  5.     INCLUDE    "sysmacs.i"
  6.     INCLUDE    "libmacs.i"
  7.     INCLUDE    "dosmacs.i"
  8.     INCEQUS    ALL
  9.  
  10. ;    STDOPT    DEBUG
  11.     STDOPT
  12.  
  13.     INCLIB    string
  14.     INCLIB    dos
  15.     INCLIB    resource
  16.     INCLIB    tube
  17.  
  18. ; jump pc data
  19.     INITSYS    DOS,VANILLA,CLI,NOWB
  20.     MOVEQ    #20,D0
  21.     MOVE.L    D0,ReturnCode(GP)
  22.  
  23. ; Print relocation info.
  24.  
  25.     LIBBASE    exec,A6
  26.     btst.b    #AFB_68010,AttnFlags+1(A6)
  27.     beq.s    NoVBR
  28.     move.l    A5,-(SP)
  29.     lea    GetVBR(PC),A5
  30.     CALL    Supervisor
  31.     move.l    (SP)+,A5
  32.     PRINTF    <'Vector Base: $%lx',10>,<D4>
  33.     bra.s    ShowSysStack
  34. NoVBR:
  35.     PRINTF    <'This machine aint gots no vector base register',10>
  36. ShowSysStack:
  37.     PRINTF    <'System stack base: $%lx and top: $%lx',10>,<SysStkLower(A6),SysStkUpper(A6)>
  38.  
  39. ; Done, purge the output buffer and cleanup
  40.  
  41. Exit:
  42.     CLRERR
  43.     CLR.L    ReturnCode(GP)
  44. ErrorExit:
  45.     STDERR
  46. NoErrorStringSet:
  47.     RTS
  48.  
  49. ; Subroutines.
  50.  
  51. GetVBR:
  52.     DC.W    $4E7A,$4801        ;  movec.l VBR,D4
  53.     RTE
  54.  
  55.     END
  56.