~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to docs/go32ex/vgasel.pas

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

docs/go32ex/vgasel.pas

 

1

{This example demonstrates the use of the segment_to_descriptor()

 

2

function.

 

3

 

 

4

It switches to VGA mode 13h (320x200x256 color), creates a selector

 

5

to the memory (based at $A000:0000), clears this memory with color

 

6

15 (white) and waits until the enter key is pressed }

 

7

 

 

8

uses go32;

 

9

 

 

10

var

 

11

        vgasel : Word;

 

12

        r : trealregs;

 

13

 

 

14

begin

 

15

        { set VGA mode 13h }

 

16

        r.eax := $13; realintr($10, r);

 

17

        { allocate descriptor to VGA memory quickly; it could be done

 

18

        with allocate_ldt_descriptors() too, but we would have to 

 

19

        initialize it by ourselves... unlike segment_to_descriptor() 

 

20

        which automatically sets the limit and the base address 

 

21

        correctly }

 

22

        vgasel := segment_to_descriptor($A000);

 

23

        { simply fill the screen memory with color 15 }

 

24

        seg_fillchar(vgasel, 0, 64000, #15);

 

25

        { wait for a return press }

 

26

        readln;

 

27

        { back to text mode }

 

28

        r.eax := $3; realintr($10, r);

 

29

        { don't deallocate vgasel, that can't be done }

 

30

end.

 

 

b'\\ No newline at end of file'

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1