blob: 9aa54ee4a9d8a38b377f6662a3a4306b32958571 (
plain)
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
|
.export _port_stat_screen, _redraw_port_stat
.import _port_stat_dirty
.importzp ptr1, ptr2
srcptr = ptr1
dstptr = ptr2
.include "atari.inc"
; PORTSTAT.DAT is created on the H: device by running mkportstats.xex
; in atari800. H: needs to be set writable and pointed to the current
; directory.
.rodata
_port_stat_screen:
.incbin "PORTSTAT.DAT"
screenlen = * - _port_stat_screen
screenpages = >screenlen
partial = <screenlen
.ifdef CART_TARGET
.segment "HIGHCODE"
.else
.code
.endif
; only redraw the port status screen if needed. this saves 53 bytes
; compared to using memcpy().
; void redraw_port_stat(void);
_redraw_port_stat:
;lda _port_stat_dirty
;beq @done
lda #<_port_stat_screen
sta srcptr
lda #>_port_stat_screen
sta srcptr+1
; add 40 because PORTSTAT.DAT no longer contains the all-blank
; first line.
lda SAVMSC
clc
adc #$28
sta dstptr
lda SAVMSC+1
adc #$00
sta dstptr+1
; copy screenpages pages
ldx #screenpages
ldy #0
@pageloop:
lda (srcptr),y
sta (dstptr),y
dey
bne @pageloop
inc srcptr+1
inc dstptr+1
dex
bne @pageloop
; copy last (partial) page. we know Y is 0 here.
sty _port_stat_dirty
@partloop:
lda (srcptr),y
sta (dstptr),y
iny
cpy #partial
bne @partloop
@done:
rts
|
