SETCOLOR.I

[Table of Contents]

The SETCOLOR.I include file resides on the Kyan Pascal 2.x Disk 2. It includes one procedure:

• procedure SETCOLOR

Kyan Pascal implementation of the Atari BASIC SETCOLOR command.

Source Code

procedure setcolor(reg,color,lum:integer);

begin

#a

 LDY #5

 LDA (_SP),Y

 ASL A

 AND #$0E

 STA _T

 LDY #7

 LDA (_SP),Y

 ASL A

 ASL A

 ASL A

 ASL A

 ORA _T

 PHA

 LDA #>$2C4

 STA _T

 LDA #<$2C4

 STA _T+1

 LDY #9

 LDA (_SP),Y

 AND #$07

 CLC

 ADC _T

 STA _T

 PLA

 LDY #0

 STA (_T),Y

#

END;