LOADCSET.I

[Table of Contents]

The LOADCSET.I include file resides on the Kyan Pascal 2.x Utilities Disk 1. It contains one procedure, LOAD_CHAR_SET.

This procedure will load a character set from disk that consists of 128 eight byte characters. 

See also: IOTYPES.I, ACTCSET.I.



PROCEDURE Load_Char_Set(VAR FN: PATHSTRING; VAR ADDRESS:INTEGER);
    TYPE
        BUFFPTR=^BUFFER;
        BUFFER =ARRAY[1..1024] OF CHAR;
    VAR
        BUFF:BUFFPTR;
        F   :FILE OF BUFFER;
    PROCEDURE SET_UP(VAR ADDRESS:INTEGER);
       BEGIN
#A
   dex
   dex
   ldy #5
   lda (_SP),Y
   sta 0,x
   sta _t+14
   iny 
   lda (_SP),Y
   sta 1,x
   sta _t+15
   _new 1024+512
   ldy #0
   tya
   sta (_t+14),y
   iny
   lda (_t+14),y
   and #$FE
   clc
   adc #2
   sta (_t+14),y
#
       END;
    BEGIN
    SET_UP(ADDRESS);
    BUFF:=POINTER(ADDRESS);
    Reset(F,FN);
    READ(F,BUFF^);
END;