|
Last change
on this file since 57 was 57, checked in by Ben Rietbroek, 10 years ago |
|
All source-files lowercased [v1.1.1-testing]
Some standard files like 'COPYING', 'LICENSE', etc. have not been
converted to lower case because they are usually distributed uppercased.
|
|
File size:
343 bytes
|
| Line | |
|---|
| 1 | $INCLUDE "PIC.inc"
|
|---|
| 2 |
|
|---|
| 3 | Open "mbr_prot.com" For BINARY As #1
|
|---|
| 4 | Get$ #1, 32000, Image$
|
|---|
| 5 | Close #1
|
|---|
| 6 |
|
|---|
| 7 | Def Seg=&h9FC0
|
|---|
| 8 | Poke$ 0, Image$
|
|---|
| 9 |
|
|---|
| 10 | Dim MyPointer as DWORD
|
|---|
| 11 |
|
|---|
| 12 | ! mov ax, 9
|
|---|
| 13 | ! mov MyPointer[00], ax
|
|---|
| 14 | ! mov ax, &h9FC0
|
|---|
| 15 | ! mov MyPointer[02], ax
|
|---|
| 16 |
|
|---|
| 17 | Pokei 0, &h42FC
|
|---|
| 18 | Pokei 2, &hDEC6
|
|---|
| 19 | Pokei 4, &h01C5
|
|---|
| 20 | Pokei 6, &h70
|
|---|
| 21 |
|
|---|
| 22 | PIC_SetINT &h13, MyPointer
|
|---|
| 23 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.