DRAWTO.I

[Table of Contents]

The DRAWTO.I include file resides on the Kyan Pascal 2.x Disk 2. It includes one procedure that is Kyan Pascal implementation of the Atari BASIC DRAWTO command.

• procedure DRAWTO

For an example, see BOUNCE.P.

Source Code

procedure drawto(horiz,vert,color:integer);
begin
#a
 TXA
 PHA
 LDY #7
 LDA (_SP),Y
 STA $54
 LDY #9
 LDA (_SP),Y
 STA $55
 INY
 LDA (_SP),Y
 STA $56
 LDY #5
 LDA (_SP),Y
 STA $2FB
 LDX #$60
 LDA #$11
 STA $342,X
 LDA #$0C
 STA $34A,X
 LDA #0
 STA $34B,X
 JSR $E456
 PLA
 TAX
#
END;