🚀 go-pugleaf

sguerke@brahms.udel.edu (Stephen Guerke) writes:

> In article <1991May10.202806.18512@ux1.cts.eiu.edu> bucacs@ux1.cts.eiu.edu (C
> >
> >	I have a slight problem. I need to write a routine (preferably in    
> >Pascal) that will reboot a machine.

Hi,
everything Stephen Guerke wrote in his follow-up works fine. And here is a
small code for use inside pascal:
Procedure      WarmBoot;
  INLINE(
  { MOV	AX,0040h		  }    $B8/$40/$00
  { MOV	ES,AX		          }   /$8E/$C0
  { MOV	Word Ptr ES:[0072h],1234h }   /$26/$C7/$06/$72/$00/$34/$12
  { MOV	AX,0F000h                 }   /$B8/$00/$F0
  { PUSH AX                       }   /$50
  { MOV	AX,0FFF0h                 }   /$B8/$F0/$FF
  { PUSH AX                       }   /$50
  { RETF                          }   /$CB  ) ;

Procedure      ColdBoot;
  INLINE(
  { MOV	AX,0F000h                 }    $B8/$00/$F0
  { PUSH AX                       }   /$50
  { MOV	AX,0FFF0h                 }   /$B8/$F0/$FF
  { PUSH AX                       }   /$50
  { RETF                          }   /$CB  ) ;
_________________________________________________________________
| Kai Voelcker, Kappelner Str. 18, D-2300 Kiel 1, +49 431 335605 |
|           interests: masm, c, pascal;  OR Algorithms           |
| >>> polite notice: I have to pay for incoming mail. Thanks <<< |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~