blob: ad584f33fa627b058b19e010b98975ae7a7d6376 (
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
|
*= $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 FujiNetChat "
.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 #$c0
sta $02c6 ; COLOR2
lda #$0c
sta $02c5 ; COLOR1
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
|
