*TRACKSCR.4
*LBL+TXT:STANDARD
*START:$5000
*NEED:WAYS.BIN (WAYS1-X.BIN)-$9400
*     TRACK.FNT -$AC00

	ORG $5000

VRAM	EQU $7000
FONT	EQU $AC00

LO	EQU $9000
HI	EQU $9100
BTAB	EQU $9200
XPOZ	EQU $9300
WAY	EQU $9400 ;-$9BFF
NEW	EQU $9C00 ;-$A3FF
PNT	EQU $A400 ;-$A7FF
GFX	EQU $A800 ;-$ABFF

* ZERO *

UL	EQU $80
UH	EQU $81
UB	EQU $82
CNT	EQU $83
TX	EQU $84,$85

TO	EQU $86,$87
CHAR	EQU $88
POI	EQU $90;$97 -8 BYTOV
UK	EQU $98
U1	EQU $99,$9A

STAB	EQU $A0,$F7 -8 BYTOV

	LDA #33
	STA 559

	LDA #0
	STA 710
	LDA #8
	STA 709


	LDA #DL:L
	STA 560
	LDA #DL:H
	STA 561

	JSR INIT
	JSR INITXT
*	JSR MAKEWAY
	JSR CONVERT
	JSR GETFONT
	JMP GO

GETFONT	LDX #0
BL	LDA #FONT:L
	STA $DA
	LDA #FONT:H
	STA $DB
HY	LDY #0
	LDA ($DA),Y
	STA GFX,X
	LDY #1
	LDA ($DA),Y
	STA GFX+128*1,X
	LDY #2
	LDA ($DA),Y
	STA GFX+128*2,X
	LDY #3
	LDA ($DA),Y
	STA GFX+128*3,X
	LDY #4
	LDA ($DA),Y
	STA GFX+128*4,X
	LDY #5
	LDA ($DA),Y
	STA GFX+128*5,X
	LDY #6
	LDA ($DA),Y
	STA GFX+128*6,X
	LDY #7
	LDA ($DA),Y
	LSR
	STA GFX+128*7,X
	LDA $DA
	CLC
	ADC #8
	STA $DA
	BCC FR
	INC $DB
FR	INX
	CPX #128
	BNE HY
	RTS	


MAKEWAY	LDX #127
	LDY #127
GG	TXA
	ASL
	STA WAY,X
	STA WAY+256*1,X
	STA WAY+256*2,X
	STA WAY+256*3,X
	STA WAY+256*4,X
	STA WAY+256*5,X
	STA WAY+256*6,X
	STA WAY+256*7,X
	TYA
	STA WAY+128,X
	CLC
	ADC #2
	STA WAY+128+256*1,X
	CLC
	ADC #2
	STA WAY+128+256*2,X
	CLC
	ADC #2
	STA WAY+128+256*3,X
	CLC
	ADC #2
	STA WAY+128+256*4,X
	CLC
	ADC #2
	STA WAY+128+256*5,X
	CLC
	ADC #2
	STA WAY+128+256*6,X
	CLC
	ADC #2
	STA WAY+128+256*7,X
	DEY
	DEX
	BPL GG
	RTS

CONVERT	LDA #127
	STA CNT

RT	LDA WAY,X
	LDY WAY+128,X
	TAX
	JSR COUNT
	LDX CNT
	LDA UH
	STA NEW,X
	LDA UL
	STA NEW+128,X
	LDA UB
	STA PNT,X
	LDA WAY+256*1,X
	LDY WAY+128+256*1,X
	TAX
	JSR COUNT
	LDX CNT
	LDA UH
	STA NEW+256*1,X
	LDA UL
	STA NEW+128+256*1,X
	LDA UB
	STA PNT+128*1,X


	LDA WAY+256*2,X
	LDY WAY+128+256*2,X
	TAX
	JSR COUNT
	LDX CNT
	LDA UH
	STA NEW+256*2,X
	LDA UL
	STA NEW+128+256*2,X
	LDA UB
	STA PNT+128*2,X

	LDA WAY+256*3,X
	LDY WAY+128+256*3,X
	TAX
	JSR COUNT
	LDX CNT
	LDA UH
	STA NEW+256*3,X
	LDA UL
	STA NEW+128+256*3,X
	LDA UB
	STA PNT+128*3,X

	LDA WAY+256*4,X
	LDY WAY+128+256*4,X
	TAX
	JSR COUNT
	LDX CNT
	LDA UH
	STA NEW+256*4,X
	LDA UL
	STA NEW+128+256*4,X
	LDA UB
	STA PNT+128*4,X

	LDA WAY+256*5,X
	LDY WAY+128+256*5,X
	TAX
	JSR COUNT
	LDX CNT
	LDA UH
	STA NEW+256*5,X
	LDA UL
	STA NEW+128+256*5,X
	LDA UB
	STA PNT+128*5,X

	LDA WAY+256*6,X
	LDY WAY+128+256*6,X
	TAX
	JSR COUNT
	LDX CNT
	LDA UH
	STA NEW+256*6,X
	LDA UL
	STA NEW+128+256*6,X
	LDA UB
	STA PNT+128*6,X

	LDA WAY+256*7,X
	LDY WAY+128+256*7,X
	TAX
	JSR COUNT
	LDX CNT
	LDA UH
	STA NEW+256*7,X
	LDA UL
	STA NEW+128+256*7,X
	LDA UB
	STA PNT+128*7,X

	DEC CNT
	BPL RT1
	RTS
RT1	JMP RT

COUNT	LDA HI,Y
	STA UH
	LDA LO,Y
	ORA XPOZ,X
	STA UL
	LDA BTAB,X
	STA UB
	RTS


INIT	LDX #7
GQ	LDA PTAB,X
	STA STAB,X
	DEX
	BPL GQ
	LDX #0
	LDY #128
	LDA #VRAM:L
	STA $DA
	LDA #VRAM:H
	STA $DB
AS	LDA $DB
	STA HI,X
	LDA $DA
	STA LO,X
	CLC
	ADC #32
	STA $DA
	BCC FG
	INC $DB
FG	TXA
	LSR
	LSR
	LSR
	STA XPOZ,X
	TYA
	STA BTAB,X
	LSR
	BNE DD
	LDA #128
DD	TAY
	INX
	BNE AS
	RTS


DL	DFB 112,112,112
	DFB 64+15,VRAM:L,VRAM:H
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15
	DFB 64+15,00,$80
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15,15
	DFB 15,15,15,15,15,15,15
	DFB 65,DL:L,DL:H

INITXT	LDA #TEXT:L
	STA TX
	LDA #TEXT:H
	STA TX+1
	RTS

TEXT	ASC %                 %
	ASC %TOTO JE TRACK SCROLL%
	ASC % OD GMG A OBSAHUJE %
	ASC %1024 POINTOV  NAPISA%
	ASC %NY BOL 6.12.1996 V %
	ASC %BANSKEJ BYSTRICI.%
	ASC %01234567890ABCDEFGHIJK%
	ASC %LMNOPQRSTUVWXYZ THE %
	ASC %END. !!!!! %
	ASC %                  %
	DFB 255

PTAB	DFB 128,64,32,16,8,4,2,1

GO	LDA #0
	STA POI
	STA POI+1
	STA POI+2
	STA POI+3
	STA POI+4
	STA POI+5
	STA POI+6
	STA POI+7
	STA UK

QW	JSR NOVE
	JSR AG1
	JSR PREP
	JSR AG1
	JSR PREP
	JSR AG1
	JSR PREP
	JSR AG1
	JSR PREP
	JSR AG1
	JSR PREP
	JSR AG1
	JSR PREP
	JSR AG1
	JSR PREP
	JSR AG1
	JSR END
	JMP QW

NOVE	LDA #$90
	STA M1+1
	STA M2+1
	STA M3+1
	STA M4+1
	LDA #GFX+128*7:L
	STA AD1+1
	LDA #GFX+128*7:H
	STA AD1+2
	LDA #PNT:L
	STA AD2+1
	STA AD3+1
	LDA #PNT:H
	STA AD2+2
	STA AD3+2
	LDA #NEW+128:L
	STA FA1+1
	STA FA3+1
	LDA #NEW+128:H
	STA FA1+2
	STA FA3+2
	LDA #NEW:L
	STA FA2+1
	STA FA4+1
	LDA #NEW:H
	STA FA2+2
	STA FA4+2
	RTS

PREP	INC M1+1
	INC M2+1
	INC M3+1
	INC M4+1

	LDA AD1+1
	SEC
	SBC #128
	STA AD1+1
	BCS WTR
	DEC AD1+2

WTR	LDA AD2+1
	CLC
	ADC #128
	STA AD2+1
	STA AD3+1
	BCC WTR1
	INC AD2+2
	INC AD3+2

WTR1	INC FA1+2
	INC FA2+2
	INC FA3+2
	INC FA4+2
	RTS



AG1	LDA #127
	STA CNT
	LDA #0
	STA UK


AX1	LDY UK
	LDA (TX),Y
	CMP #255
	BNE OP
	JSR INITXT
	JMP AX1
OP	LDY #0
	TAX
AD1	LDA GFX,X
	STA CHAR

AXC	LDA CHAR
M4	LDX POI
	AND STAB,X
	BEQ ZMA1
	LDX CNT
FA1	LDA NEW+128,X
	STA TO
FA2	LDA NEW,X
	STA TO+1
	LDA (TO),Y
AD2	ORA PNT,X
	STA (TO),Y
	JMP POK1
ZMA1	LDX CNT
FA3	LDA NEW+128,X
	STA TO
FA4	LDA NEW,X
	STA TO+1
AD3	LDA PNT,X
	EOR #255
	STA BD+1
	LDA (TO),Y
BD	AND #0
	STA (TO),Y

POK1	DEC CNT
M3	INC POI
M2	LDA POI
	AND #7
M1	STA POI
	BNE A1
	INC UK
	LDA CNT
	CMP #255
	BEQ VON
	JMP AX1

A1	LDA CNT
	CMP #255
	BEQ VON
	JMP AXC
VON	RTS

END	INC POI
	LDA POI
	AND #7
	STA POI
	STA POI+1
	STA POI+2
	STA POI+3
	STA POI+4
	STA POI+5
	STA POI+6
	STA POI+7
	BNE AP
	INC TX
	BNE AP
	INC TX+1
AP	RTS