blob: fd56a84bd5d31b8c2c5861cf52ff0d78273b0082 (
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
|
*= $8400 ; aka screen_bot_addrs[0], gets cleared by main() in the client.
save_dlist_loc = $fe
;msg .sbyte " Loading FujiNet Config "
msg
.sbyte " Loading FujiNet "
.if .def CLIENT
.sbyte "Client"
.else
.sbyte "Config"
.endif
.sbyte " "
dl
.byte $70, $70, $70 ; 3x8 blanks
.byte $70, $70, $70, $70, $70, $70, $70, $70, $70, $70
.byte $42 ; LMS GR.0
.word msg
.byte $41 ; JVB
.word dl
wait1frame
lda $14 ; RTCLOK+2
wloop
cmp $14
beq wloop
rts
init
lda $0230
sta save_dlist_loc
lda $0231
sta save_dlist_loc+1
jsr wait1frame
lda #<dl
sta $0230 ; SDLSTL
lda #>dl
sta $0231 ; SDLSTH
jmp wait1frame
*= $02e2 ; INITAD
.word init
.if 0 ; change to 1 for standalone testing
run
jmp run
*= $02e0 ; RUNAD
.word run
.endif
|
