[Back to CHARS SWAG index]  [Back to Main SWAG index]  [Original]

{
> How can I redefine the ASCII Chars. For example how can
> I make the ASCII code 65 become a "weird form" instead
> of an "A".

You want it, you got it.  Here are the two Procedures you need, plus some
info. First, you need to make a data Type With an Array of [1..16] of Byte,
so the best idea would be this:  Make a Record as follows:
}

Type
  CharRec = Record
    data : Array[1..16] of Byte;
  end;

{ Now, make a Variable to contain the entire Character set. }

Var
  CharSet : Array[0..255] of CharRec;

{ Next, you'll need the two Procedures: }

Procedure GetImageChar(chrVal : Byte; Var CharInfo);
Var
  offset : Word;
begin
  offset := chrVal * 32;
  Inline($FA);
  PortW[$3C4] := $0402;
  PortW[$3C4] := $0704;
  PortW[$3CE] := $0204;
  PortW[$3CE] := $0005;
  PortW[$3CE] := $0006;
  (* refer to following notes For info about the next line *)
  Move(Ptr($A000, offset)^, CharInfo, 16);
  PortW[$3C4] := $0302;
  PortW[$3C4] := $0304;
  PortW[$3CE] := $0004;
  PortW[$3CE] := $1005;
  PortW[$3CE] := $0E06;
  Inline($FB);
end;

{
OK.  That's the Procedure to GET a Character bitmap, and store it in a
Variable.  So, if you use the Type and Var I defined at the top, do this:

GetImageChar(65, CharSet[65]);

This example will copy the bitmap from Character 65 (A) into the Record of 65,
so you'll have copied the bitmap For 'A'.  Now, you can edit the bitmap (I
wrote my own font editor) and Write it to memory With a second Procedure.

Here's the tricky part.  I didn't Write the 2nd Procedure because it is
identical to the first *EXCEPT* For ONE line.  Copy the Procedure and change
it's name to SetImageChar, and change this line:

Move(Ptr($A000, offset)^, CharInfo, 16);

and make it read:

Move(CharInfo, Ptr($A000, offset)^, 16);

That's it!  Have fun!  TTYL.
}

{
OK, 'data' is an Array [1..16] of Byte.  So, you just draw your Character on
Graph paper in binary, convert to decimal Bytes, put them in the Array, and
feed it into this Procedure.  'CharNum' is the ASCII value of the Character you
want to remap.  To make a Procedure that READS the bitmap instead of writing,
just change the line With 'Move(data, Ptr($A000, offset)^, 16)' and make it say
'Move(Ptr($A000, offset)^, data, 16);' and you will now be able to read bitmaps
from the Character set.  I'm running out of time, so I can't explain it very
well, but I hope this helps.  TTYL.
}
{

  I ran that in a loop and after a While it screwed up the whole
  font - might just be my EGA card, but my opinion is that this
  method stinks...there are Registers For getting/setting the
  font; I found code from a Program called Display Font Editor
  (DFE).  DFE edits font Files, and it came With source to
   load these font Files. Following is a bit from setting
  the Registers to load a font (don't have getting a font)

  r.ax := $1110;
  r.bh := 14;                   (* Bytes per Character *)
  r.bl := 0;                    (* load to block 0 *)
  r.cx := 256;                  (* 256 Characters *)
  r.dx := 0;                    (* start With Character 0 *)
  r.es := Seg(P^);              (* segment of table *)
  r.bp := Ofs(P^);              (* offset of the table *)
  intr($10, r);

  With this, you can see, you can even do one Character at a
  time ( cx = 1, dx = ascii, P^ = Array[1..14] of Byte)
}

[Back to CHARS SWAG index]  [Back to Main SWAG index]  [Original]