blob: da90446221ecd8f4d6ad870d7a1994a6ca314268 (
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
|
RANDOM .rs 2 ; random numbers
RANDOM_TEMP .rs 1 ; temporary variable for random
CONSOLE_TYPE .rs 1 ; console type
random_init:
lda #$5A
sta <RANDOM_TEMP
lda %10011101
sta <RANDOM
lda %01011011
sta <RANDOM+1
rts
random:
lda <RANDOM+1
sta <RANDOM_TEMP
lda <RANDOM
asl a
rol <RANDOM_TEMP
asl a
rol <RANDOM_TEMP
clc
adc <RANDOM
pha
lda <RANDOM_TEMP
adc <RANDOM+1
sta <RANDOM+1
pla
adc #$11
sta <RANDOM
lda <RANDOM+1
adc #$36
sta <RANDOM+1
rts
console_detect:
jsr waitblank_simple
ldx #0
ldy #0
; Console type detect
.detect_l:
inx
bne .detect_s
iny
.detect_s:
lda PPUSTATUS
bpl .detect_l
lda #$00
cpy #$08
bne .not_ntsc1
ora #$01
.not_ntsc1:
cpy #$09
bne .not_ntsc2
ora #$01
.not_ntsc2:
cpy #$0A
bne .not_pal
ora #$02
.not_pal:
cpy #$0B
bne .not_dendy
ora #$04
.not_dendy:
ldx $5000
beq console_detect_not_new_dendy
ora #$08
console_detect_not_new_dendy:
sta <CONSOLE_TYPE
rts
|
