DP Tool Club 8/CDASC08.ISO/VRAC/TVPROMPT.EXE/LETTERS.PKG

Text File | 1992-04-08 | 512b | 15 lines

with System,
     Altslice;

package body Letters is
-- Copyright 1992 Tom Moran

begin
  -- get 8x8 CGA character set from ROM
  Altslice.Movmem(Source      => (Segment => 16#F000#, Offset => 16#FA6E#),
                  Destination => Pattern(Pattern'first(1),
                                         Pattern'first(2)
                                        )'Address,
                  N_Bytes     => System.Word(Pattern'size/8));
end Letters;