$CPU 8086          ' make compatible with XT systems
$LIB ALL OFF       ' turn off all PowerBASIC libraries
$ERROR ALL OFF     ' turn off all PowerBASIC error checking
$OPTIMIZE SIZE     ' optimize for smaller code
 $COMPILE UNIT      ' compile to a UNIT (.PBU)
'$COMPILE EXE       ' compile to a UNIT (.PBU)

DEFINT A-Z         ' Required for all numeric functions, forces PB to not
                   ' include floating point in UNIT (makes it smaller)
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB4"
'/*------------------------------------------------------------------*/
' BOOT OPT
'     Boots the computer.
'     OPT: 0 = Cold boot - computer does cold start diagnostics.
'          1 = Warm boot - computer resets, reloads DOS.
'
'
'/*------------------------------------------------------------------*/
SUB BOOT(BYVAL OPT AS INTEGER) PUBLIC
     DEF SEG = 0
     IF OPT = 1 THEN
          POKE &H473, &H12 ' Setup for Warm Boot
          POKE &H472, &H34
     ELSE
          POKE &H472, &H12 ' Setup for Cold Boot
          POKE &H473, &H34 ' tho not really nessary
     END IF
     DEF SEG = &HFFFF
     T = 0
     CALL ABSOLUTE T
END SUB
'/*------------------------------------------------------------------*/
'   $INCLUDE "C:\CODE\MLIB\MLIB.INC"
'   BOOT "C"