LOCATE.I

[Table of Contents]

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

• procedure LOCATE

Source Code

procedure locate(horiz,vert:integer;
var color:integer);
begin
#a
 TXA
 PHA
 LDY #5
 LDA (_SP),Y
 STA _T
 INY
 LDA (_SP),Y
 STA _T+1
 LDY #7
 LDA (_SP),Y
 STA $54
 LDY #9
 LDA (_SP),Y
 STA $55
 INY
 LDA (_SP),Y
 STA $56
 LDX #$60
 LDA #$07
 STA $342,X
 LDA #0
 STA $348,X
 STA $349,X
 JSR $E456
 LDY #0
 STA (_T),Y
 TYA
 INY
 STA (_T),Y
 PLA
 TAX
#
END;