64Fetch/detectasm.s at main · korbosoft/64Fetch · 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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
; TODO: Convert to C

.global _detect_region, _get_kernal_crc, _init_crc_tables
.importzp sreg

.code

_detect_region:
    SEI
    LDX #$00
w0: LDA $D012
w1: CMP $D012
    BEQ w1
    BMI w0
    AND #$03
    CMP #$03
    BNE detectionDone ; done for NTSC
    TAY
countCycles:
    INX
    LDA $D012
    BPL countCycles
    CPX #$5E  ; VICE values: PAL-N=$6C PAL=$50
	      ; so choose middle value $5E for check
    BCC isPAL
    INY ; is PAL-N
isPAL:
    TYA
detectionDone:
    RTS

PTR     = $1A
CRC0    = $C400
CRC1    = $C401
CRC2    = $C402
CRC3    = $C403

TAB0    = $C000
TAB1    = $C100
TAB2    = $C200
TAB3    = $C300

_get_kernal_crc:
    LDA #$FF
    STA CRC0
    STA CRC1
    STA CRC2
    STA CRC3

    LDA #$00
    STA PTR
    LDA #$E0
    STA PTR+1

LOOP:
    LDY #0
    LDA (PTR),Y
    JSR UPDCRC

    INC PTR
    BNE CHECK_END
    INC PTR+1

CHECK_END:
    LDA PTR+1
    BNE LOOP

    LDA CRC0
	EOR #$FF
	STA CRC0
    LDA CRC1
	EOR #$FF
	STA CRC1
    LDA CRC2
	EOR #$FF
	STA CRC2
    LDA CRC3
	EOR #$FF
	STA CRC3

    ; Format: A=LL, X=LH, sreg=HL, sreg+1=HH
    LDA CRC2
	STA sreg
    LDA CRC3
	STA sreg+1
    LDA CRC0
    LDX CRC1
    RTS

UPDCRC:
    EOR CRC0
    TAX
    LDA CRC1
	EOR TAB0,X
	STA CRC0
    LDA CRC2
	EOR TAB1,X
	STA CRC1
    LDA CRC3
	EOR TAB2,X
	STA CRC2
    LDA TAB3,X
	STA CRC3
    RTS

T0      = $C400     ; Low byte
T1      = $C401
T2      = $C402
T3      = $C403     ; High byte

POLY0   = $20
POLY1   = $83
POLY2   = $B8
POLY3   = $ED

_init_crc_tables:
    LDX #0
@entry_loop:
    STX T0
    LDA #0
    STA T1
	STA T2
	STA T3

    LDY #8
@bit_loop:
    LSR T3
	ROR T2
	ROR T1
	ROR T0
    BCC @no_xor

    LDA T0
	EOR #POLY0
	STA T0
    LDA T1
	EOR #POLY1
	STA T1
    LDA T2
	EOR #POLY2
	STA T2
    LDA T3
	EOR #POLY3
	STA T3
@no_xor:
    DEY
    BNE @bit_loop

    LDA T0
	STA TAB0,X
    LDA T1
	STA TAB1,X
    LDA T2
	STA TAB2,X
    LDA T3
	STA TAB3,X

    INX
    BNE @entry_loop
    RTS

;checksumtbl = *-5
;
;         .word rom_name1
;         .byte $bb,$d4,$fd     ;checksum 901227-01
;
;         .word rom_name2
;         .byte $8b,$c7,$0b     ;901227-02
;
;         .word rom_name3
;         .byte $b6,$c7,$0a     ;901227-03
;
;         .word rom_name4
;         .byte $ea,$c9,$09     ;901227-03-DK
;
;         .word rom_name5
;         .byte $b3,$c5,$ca     ;swedish-02
;
;         .word rom_name6
;         .byte $b0,$c5,$c9     ;swedish-03
;
;         .word rom_name7
;         .byte $bd,$c7,$0b     ;sx.251104-04
;
;         .word rom_name8
;         .byte $ba,$c7,$88     ;sx64-scand.bin
;
;         .word rom_name9
;         .byte $5c,$d1,$83     ;906145-02-jp
;
;         .word rom_name10
;         .byte $56,$b5,$ca     ;c64gs
;
;         .word rom_name11
;         .byte $68,$a9,$e5     ;Jiffydos6.01
;
;         .word $ffff
;         .byte $ff,$ff,$ff     ;END