home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / REBOOT.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-16  |  2.6 KB  |  89 lines
  1. ; File......: REBOOT.ASM
  2. ; Author....: Ted Means
  3. ; Date......: $Date:   15 Aug 1991 23:08:04  $
  4. ; Revision..: $Revision:   1.2  $
  5. ; Log file..: $Logfile:   E:/nanfor/src/reboot.asv  $
  6. ; 
  7. ; This is an original work by Ted Means and is placed in the
  8. ; public domain.
  9. ;
  10. ; Modification history:
  11. ; ---------------------
  12. ;
  13. ; $Log:   E:/nanfor/src/reboot.asv  $
  14. ;  
  15. ;     Rev 1.2   15 Aug 1991 23:08:04   GLENN
  16. ;  Forest Belt proofread/edited/cleaned up doc
  17. ;  
  18. ;     Rev 1.1   12 Jun 1991 01:28:02   GLENN
  19. ;  Added choice of warm or cold reboot.  Documentation and code change.
  20. ;  
  21. ;     Rev 1.0   01 Apr 1991 01:03:50   GLENN
  22. ;  Nanforum Toolkit
  23. ;  
  24.  
  25.  
  26.  
  27. ;  $DOC$
  28. ;  $FUNCNAME$
  29. ;      FT_REBOOT()
  30. ;  $CATEGORY$
  31. ;      DOS/BIOS
  32. ;  $ONELINER$
  33. ;      Force a warm or cold boot
  34. ;  $SYNTAX$
  35. ;      FT_REBOOT( <nBootType> ) -> NIL
  36. ;  $ARGUMENTS$
  37. ;      <nBootType> is used to indicate the type of reboot.  A value of zero
  38. ;      will cause a cold boot, while any other value will cause a warm boot.
  39. ;  $RETURNS$
  40. ;      NIL
  41. ;  $DESCRIPTION$
  42. ;      This function is valuable if you need to reboot the PC for some
  43. ;      reason; e.g. an installation routine that modifies CONFIG.SYS or
  44. ;      AUTOEXEC.BAT.
  45. ;
  46. ;      The source code is written to adhere to Turbo Assembler's IDEAL mode.
  47. ;      To use another assembler, you will need to rearrange the PROC and
  48. ;      SEGMENT directives, and also the ENDP and ENDS directives (a very
  49. ;      minor task).
  50. ;  $EXAMPLES$
  51. ;      #define COLD 0
  52. ;      #define WARM 1
  53. ;
  54. ;      // Issue a warm boot
  55. ;
  56. ;      FT_Reboot(WARM)
  57. ;
  58. ;  $END$
  59. ;
  60.  
  61.  
  62.          IDEAL
  63.  
  64. Public   FT_REBOOT
  65.  
  66. Extrn    __ParNI:Far
  67.  
  68. Segment  _NanFor   Word      Public    "CODE"
  69.          Assume    CS:_NanFor
  70.  
  71. Proc     FT_REBOOT Far
  72.  
  73.          Mov       AX,1                      ; Specify first param
  74.          Push      AX                        ; Put on stack
  75.          Call      __ParNI                   ; Get param
  76.          Xor       DX,DX                     ; Clear DX
  77.          Mov       DS,DX                     ; Set DS to low memory
  78.          Or        AX,AX                     ; Cold boot requested?         
  79.          JZ        POST                      ; If so, don't set for warm
  80.          Mov       AX,1234h                  ; Set up AX for warm boot
  81.  
  82. POST:    Mov       [Word Ptr 472h],AX        ; Indicate a warm boot
  83.          DB        0EAh                      ; JMP to POST -- this method
  84.          DD        0F000FFF0h                ; overcomes TASM bug
  85. Endp     FT_REBOOT
  86. Ends     _NanFor
  87. End
  88. 
  89.