CSET.I

[Table of Contents]

The CSET.I include file resides on the Kyan Pascal 2.x Utilities Disk 1. It contains four procedures for manipulating the standard Atari ATASCII character set.

• PROCEDURE Invert_Char_Set;
• PROCEDURE Normal_Char_Set;
• PROCEDURE Intl_Char_Set;
• PROCEDURE Atari_Char_Set;

See the CSET.P example program for use.

Source Code

PROCEDURE Invert_Char_Set;
BEGIN
#A
 LDA #$FF  ;poke 255 into
 STA $2F3  ;...CHACT (755)
#
END;(* upside-down character set procedure *)

PROCEDURE Normal_Char_Set;
BEGIN
#A
 LDA #$02  ;poke 2 into
 STA $2F3  ;...CHACT (755)
#
END;(* right-side up character set procedure *)

PROCEDURE Intl_Char_Set;
BEGIN
#A
 LDA #$CC ;poke 204 into
 STA $2F4 ;...CHBAS (756)
#
END;(* International Character Set procedure *)

PROCEDURE Atari_Char_Set;
BEGIN
#A
 LDA #$E0  ;poke 224 into
 STA $2F4 ;...CHBAS (756)
#
END;(* Atari Char set procedure *)