home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9302 / pastrick / txtfont.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-02-22  |  2.0 KB  |  102 lines
  1. (* ****************************************************** *)
  2. (*                      TXTFONT.PAS                       *)
  3. (*               EGA/VGA-Zeichensatz-Routinen             *)
  4. (*              (c) 1993 Andres Cvitkovich & DMV          *)
  5. (* ****************************************************** *)
  6. UNIT TxtFont;
  7.  
  8. INTERFACE
  9.  
  10. TYPE
  11.   foBitmap = ARRAY [0..31] OF BYTE;
  12.   foAllBMP = ARRAY [0..255] OF foBitmap;
  13.  
  14. VAR
  15.   foData : foAllBMP ABSOLUTE $A000:0;
  16.                                { Bitmap-Array der Zeichen }
  17.   CharHeight : WORD ABSOLUTE $40:$85;
  18.                          { akt. Höhe der Zeichen in Pixel }
  19.  
  20.   PROCEDURE MapFont;
  21.   PROCEDURE UnmapFont;
  22.  
  23. IMPLEMENTATION
  24.  
  25.   PROCEDURE MapFont; ASSEMBLER;
  26.   ASM
  27.     XOR   AH, AH
  28.     MOV   DX, 3C4h
  29.     MOV   AL, 2
  30.     OUT   DX, AL
  31.     INC   DL
  32.     MOV   AL, 4
  33.     OUT   DX, AL
  34.     DEC   DL
  35.     MOV   AL, 4
  36.     OUT   DX, AL
  37.     INC   DL
  38.     MOV   AL, 7
  39.     OUT   DX, AL
  40.     DEC   DL
  41.     MOV   DL, 0CEh
  42.     MOV   AL, 5
  43.     OUT   DX, AL
  44.     INC   DL
  45.     MOV   AL, 0
  46.     OUT   DX, AL
  47.     DEC   DL
  48.     MOV   AL, 6
  49.     OUT   DX, AL
  50.     INC   DL
  51.     MOV   AL, 4
  52.     OUT   DX, AL
  53.     DEC   DL
  54.     MOV   AL, 4
  55.     OUT   DX, al
  56.     INC   DL
  57.     MOV   AL, 2
  58.     OUT   DX, AL
  59.     DEC   DL
  60.   END;
  61.  
  62.   PROCEDURE UnmapFont; ASSEMBLER;
  63.   ASM
  64.     XOR   AH, AH
  65.     MOV   DX, 3C4h
  66.     MOV   AL, 2
  67.     OUT   DX, AL
  68.     INC   DL
  69.     MOV   AL, 3
  70.     OUT   DX, AL
  71.     DEC   DL
  72.     MOV   AL, 4
  73.     OUT   DX, AL
  74.     INC   DL
  75.     MOV   AL, 3
  76.     OUT   DX, AL
  77.     DEC   DL
  78.     MOV   DL, 0CEh
  79.     MOV   AL, 5
  80.     OUT   DX, AL
  81.     INC   DL
  82.     MOV   AL, 10h
  83.     OUT   DX, AL
  84.     DEC   DL
  85.     MOV   AL, 6
  86.     OUT   DX, AL
  87.     INC   DL
  88.     MOV   AL, 0Eh
  89.     OUT   DX, AL
  90.     DEC   DL
  91.     MOV   AL, 4
  92.     OUT   DX, AL
  93.     INC   DL
  94.     MOV   AL, 00h
  95.     OUT   DX, AL
  96.     DEC   dl
  97.   END;
  98.  
  99. END.
  100. (* ****************************************************** *)
  101. (*                  Ende von TXTFONT.PAS                  *)
  102.