Wave/Wave_ListPlot.s at master · jedeoric/Wave · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
;Wave_ListPlot.s
;0-23 Pattern (0-23)
;128+ Loop(128==End)

ListCursorPlot
	lda ListCursorX
	asl
	asl
	tay
	ldx #3
.(
loop1	lda $BB80+1+40*2,y
	ora #128
	sta $BB80+1+40*2,y
	iny
	dex
	bne loop1
.)
	rts


ListPlot
	lda #<$BB80+1+40*1
	sta screen
	lda #>$BB80+1+40*1
	sta screen+1

	lda ListCursorBase
	sta ListPlotTempX
	lda #10
	sta ListColumnCount
.(
loop1	lda ListColumnCount
	cmp #6
	beq skip2
	bcc skip2
	ldy #00
	lda ListPlotTempX
	ldx #128
	jsr Display3DD

skip2	;Calculate if we need to highlight(inverse) this entry
	lda #00
	ldy leHighlightingFlag
	beq skip6
	ldy ListPlotTempX
	cpy leHighlightStartX
	bcc skip6
	cpy leHighlightEndX
	beq skip5
	bcs skip6
skip5	lda #128
skip6	sta leInverseFlag

	ldy ListPlotTempX
	lda mmListMemory,y
	bpl skip3
	ldy #40
	lda #8
	ora leInverseFlag
	sta (screen),y
	iny
	ora leInverseFlag
	sta (screen),y
	iny
	ora leInverseFlag
	sta (screen),y
	jmp skip4

skip3	ldy ListPlotTempX
	lda #"L"
	cpy mmListHeader
	beq skip1
	lda #"P"
skip1	ldy #40
	ora leInverseFlag
	sta (screen),y

	ldy ListPlotTempX
	lda mmListMemory,y
	and #31
	ldy #41
	ldx leInverseFlag
	jsr Display2DD

skip4	lda #4
	jsr add_screen

	inc ListPlotTempX
	dec ListColumnCount
	bne loop1
.)
	rts