mirror of
https://github.com/AppleWin/AppleWin.git
synced 2024-12-24 07:30:24 +00:00
1054 lines
33 KiB
Plaintext
1054 lines
33 KiB
Plaintext
Dallas SmartWatch DS1216 (No-Slot-Clock) SmartWatch Utility (Version 1.1) "SWU.SYSTEM".
|
|
Copyright 1987 Matthew Lee Stier.
|
|
Partial disassembly and comments by Nick Westgate (and CiderPress).
|
|
|
|
Note: This code requires the clock to be in the internal C3 ROM space. (CD or CF ROM sockets.)
|
|
|
|
2000- A2 FF LDX #$FF ;reset stack
|
|
2002- 9A TXS
|
|
2003- 20 58 22 JSR $2258
|
|
2006- A9 00 LDA #$00 ;min kernel version
|
|
2008- A0 01 LDY #$01 ;version of this interpreter (app?)
|
|
200A- 20 41 22 JSR $2241 ;set versions and memory map
|
|
200D- 20 11 22 JSR $2211 ;set up ram and video
|
|
2010- A0 20 LDY #$20 ;"SmartWatch Utility (Version 1.1). Copyright 1987,Matthew Lee Stier"
|
|
2012- A9 89 LDA #$89
|
|
2014- 20 8A 22 JSR $228A ;print
|
|
2017- 20 70 22 JSR $2270 ;check machine ID
|
|
201A- 90 07 BCC $2023
|
|
201C- A0 21 LDY #$21 ;"This computer is not an Apple //e or //c"
|
|
201E- A9 98 LDA #$98
|
|
2020- 4C 73 20 JMP $2073 ;exit
|
|
|
|
2023- 20 9A 26 JSR $269A ;read time
|
|
2026- 20 B4 26 JSR $26B4 ;check time data
|
|
2029- D0 07 BNE $2032
|
|
202B- A0 21 LDY #$21 ;"SmartWatch not detected"
|
|
202D- A9 C1 LDA #$C1
|
|
202F- 4C 73 20 JMP $2073 ;exit
|
|
|
|
2032- A9 04 LDA #$04 ;detected
|
|
2034- 85 22 STA $22
|
|
2036- 20 58 FC JSR $FC58 F8ROM:HOME
|
|
2039- A0 20 LDY #$20
|
|
203B- A9 D6 LDA #$D6
|
|
203D- 20 8A 22 JSR $228A ;print
|
|
2040- A9 0C LDA #$0C
|
|
2042- 20 A9 22 JSR $22A9
|
|
2045- C9 9B CMP #$9B
|
|
2047- F0 06 BEQ $204F
|
|
2049- 20 A7 26 JSR $26A7
|
|
204C- 4C 36 20 JMP $2036
|
|
204F- 20 58 FC JSR $FC58 F8ROM:HOME
|
|
2052- A0 21 LDY #$21
|
|
2054- A9 FB LDA #$FB
|
|
2056- 20 8A 22 JSR $228A ;print
|
|
2059- 20 0C FD JSR $FD0C F8ROM:RDKEY
|
|
205C- C9 D9 CMP #$D9
|
|
205E- F0 20 BEQ $2080
|
|
2060- C9 F9 CMP #$F9
|
|
2062- F0 1C BEQ $2080
|
|
2064- C9 8D CMP #$8D
|
|
2066- F0 18 BEQ $2080
|
|
2068- C9 CE CMP #$CE
|
|
206A- F0 04 BEQ $2070
|
|
206C- C9 EE CMP #$EE
|
|
206E- D0 E9 BNE $2059
|
|
2070- 4C 36 20 JMP $2036
|
|
|
|
2073- 20 8A 22 JSR $228A ;print error and exit
|
|
2076- A0 21 LDY #$21
|
|
2078- A9 D9 LDA #$D9
|
|
207A- 20 8A 22 JSR $228A ;print
|
|
207D- 20 0C FD JSR $FD0C F8ROM:RDKEY
|
|
2080- 20 11 22 JSR $2211
|
|
2083- 20 67 22 JSR $2267 ;exit
|
|
2086- 4C 86 20 JMP $2086
|
|
2089- A0 A0 LDY #$A0
|
|
208B- A0 D3 LDY #$D3
|
|
208D- ED E1 F2 SBC $F2E1
|
|
2090- F4 ???
|
|
2091- D7 ???
|
|
2092- E1 F4 SBC ($F4,X)
|
|
2094- E3 ???
|
|
2095- E8 INX
|
|
2096- A0 D5 LDY #$D5
|
|
2098- F4 ???
|
|
2099- E9 EC SBC #$EC
|
|
209B- E9 F4 SBC #$F4
|
|
209D- F9 A0 A0 SBC $A0A0,Y
|
|
20A0- A8 TAY
|
|
20A1- D6 E5 DEC $E5,X
|
|
20A3- F2 F3 SBC ($F3)
|
|
20A5- E9 EF SBC #$EF
|
|
20A7- EE A0 B1 INC $B1A0
|
|
20AA- AE B1 A9 LDX $A9B1
|
|
20AD- 8D A0 A0 STA $A0A0
|
|
20B0- A0 C3 LDY #$C3
|
|
20B2- EF ???
|
|
20B3- F0 F9 BEQ $20AE
|
|
20B5- F2 E9 SBC ($E9)
|
|
20B7- E7 ???
|
|
20B8- E8 INX
|
|
20B9- F4 ???
|
|
20BA- A0 B1 LDY #$B1
|
|
20BC- B9 B8 B7 LDA $B7B8,Y
|
|
20BF- AC A0 CD LDY $CDA0
|
|
20C2- E1 F4 SBC ($F4,X)
|
|
20C4- F4 ???
|
|
20C5- E8 INX
|
|
20C6- E5 F7 SBC $F7
|
|
20C8- A0 CC LDY #$CC
|
|
20CA- E5 E5 SBC $E5
|
|
20CC- A0 D3 LDY #$D3
|
|
20CE- F4 ???
|
|
20CF- E9 E5 SBC #$E5
|
|
20D1- F2 8D SBC ($8D)
|
|
20D3- 8D 8D 00 STA $008D
|
|
20D6- C3 ???
|
|
20D7- F5 F2 SBC $F2,X
|
|
20D9- F2 E5 SBC ($E5)
|
|
20DB- EE F4 A0 INC $A0F4
|
|
20DE- E3 ???
|
|
20DF- EC EF E3 CPX $E3EF
|
|
20E2- EB ???
|
|
20E3- A0 E4 LDY #$E4
|
|
20E5- E1 F4 SBC ($F4,X)
|
|
20E7- E5 A0 SBC $A0
|
|
20E9- E1 EE SBC ($EE,X)
|
|
20EB- E4 A0 CPX $A0
|
|
20ED- F4 ???
|
|
20EE- E9 ED SBC #$ED
|
|
20F0- E5 A0 SBC $A0
|
|
20F2- E9 F3 SBC #$F3
|
|
20F4- BA TSX
|
|
20F5- 8D 8D D3 STA $D38D
|
|
20F8- CD C1 D2 CMP $D2C1
|
|
20FB- D4 ???
|
|
20FC- D7 ???
|
|
20FD- C1 D4 CMP ($D4,X)
|
|
20FF- C3 ???
|
|
2100- C8 INY
|
|
2101- A0 E4 LDY #$E4
|
|
2103- E1 F4 SBC ($F4,X)
|
|
2105- E1 A0 SBC ($A0,X)
|
|
2107- EE EF F4 INC $F4EF
|
|
210A- A0 F6 LDY #$F6
|
|
210C- E1 EC SBC ($EC,X)
|
|
210E- E9 E4 SBC #$E4
|
|
2110- 8D 8D 8D STA $8D8D
|
|
2113- 8D C5 EE STA $EEC5
|
|
2116- F4 ???
|
|
2117- E5 F2 SBC $F2
|
|
2119- A0 EE LDY #$EE
|
|
211B- E5 F7 SBC $F7
|
|
211D- A0 E4 LDY #$E4
|
|
211F- E1 F4 SBC ($F4,X)
|
|
2121- E5 A0 SBC $A0
|
|
2123- E1 EE SBC ($EE,X)
|
|
2125- E4 A0 CPX $A0
|
|
2127- F4 ???
|
|
2128- E9 ED SBC #$ED
|
|
212A- E5 A0 SBC $A0
|
|
212C- A8 TAY
|
|
212D- B2 B4 LDA ($B4)
|
|
212F- A0 C8 LDY #$C8
|
|
2131- F2 A0 SBC ($A0)
|
|
2133- E6 EF INC $EF
|
|
2135- F2 ED SBC ($ED)
|
|
2137- E1 F4 SBC ($F4,X)
|
|
2139- A9 8D LDA #$8D
|
|
213B- 8D C4 C1 STA $C1C4
|
|
213E- D9 A0 C4 CMP $C4A0,Y
|
|
2141- C4 AD CPY $AD
|
|
2143- CD CD CD CMP $CDCD
|
|
2146- AD D9 D9 LDA $D9D9
|
|
2149- A0 C8 LDY #$C8
|
|
214B- C8 INY
|
|
214C- BA TSX
|
|
214D- CD CD BA CMP $BACD
|
|
2150- D3 ???
|
|
2151- D3 ???
|
|
2152- 8D 8D 8D STA $8D8D
|
|
2155- 8D 8D F0 STA $F08D
|
|
2158- F2 E5 SBC ($E5)
|
|
215A- F3 ???
|
|
215B- F3 ???
|
|
215C- A0 DB LDY #$DB
|
|
215E- F2 E5 SBC ($E5)
|
|
2160- F4 ???
|
|
2161- F5 F2 SBC $F2,X
|
|
2163- EE DD A0 INC $A0DD
|
|
2166- F4 ???
|
|
2167- EF ???
|
|
2168- A0 F5 LDY #$F5
|
|
216A- F0 E4 BEQ $2150
|
|
216C- E1 F4 SBC ($F4,X)
|
|
216E- E5 A0 SBC $A0
|
|
2170- E3 ???
|
|
2171- EC EF E3 CPX $E3EF
|
|
2174- EB ???
|
|
2175- AC 8D F0 LDY $F08D
|
|
2178- F2 E5 SBC ($E5)
|
|
217A- F3 ???
|
|
217B- F3 ???
|
|
217C- A0 DB LDY #$DB
|
|
217E- E5 F3 SBC $F3
|
|
2180- E3 ???
|
|
2181- E1 F0 SBC ($F0,X)
|
|
2183- E5 DD SBC $DD
|
|
2185- A0 F4 LDY #$F4
|
|
2187- EF ???
|
|
2188- A0 E5 LDY #$E5
|
|
218A- F8 SED
|
|
218B- E9 F4 SBC #$F4
|
|
218D- A0 F4 LDY #$F4
|
|
218F- EF ???
|
|
2190- A0 D0 LDY #$D0
|
|
2192- F2 EF SBC ($EF)
|
|
2194- C4 CF CPY $CF
|
|
2196- D3 ???
|
|
2197- 00 BRK
|
|
2198- D4 ???
|
|
2199- E8 INX
|
|
219A- E9 F3 SBC #$F3
|
|
219C- A0 E3 LDY #$E3
|
|
219E- EF ???
|
|
219F- ED F0 F5 SBC $F5F0
|
|
21A2- F4 ???
|
|
21A3- E5 F2 SBC $F2
|
|
21A5- A0 E9 LDY #$E9
|
|
21A7- F3 ???
|
|
21A8- A0 EE LDY #$EE
|
|
21AA- EF ???
|
|
21AB- F4 ???
|
|
21AC- A0 E1 LDY #$E1
|
|
21AE- EE A0 C1 INC $C1A0
|
|
21B1- F0 F0 BEQ $21A3
|
|
21B3- EC E5 A0 CPX $A0E5
|
|
21B6- AF ???
|
|
21B7- AF ???
|
|
21B8- E5 A0 SBC $A0
|
|
21BA- EF ???
|
|
21BB- F2 A0 SBC ($A0)
|
|
21BD- AF ???
|
|
21BE- AF ???
|
|
21BF- E3 ???
|
|
21C0- 00 BRK
|
|
21C1- D3 ???
|
|
21C2- ED E1 F2 SBC $F2E1
|
|
21C5- F4 ???
|
|
21C6- D7 ???
|
|
21C7- E1 F4 SBC ($F4,X)
|
|
21C9- E3 ???
|
|
21CA- E8 INX
|
|
21CB- A0 EE LDY #$EE
|
|
21CD- EF ???
|
|
21CE- F4 ???
|
|
21CF- A0 E4 LDY #$E4
|
|
21D1- E5 F4 SBC $F4
|
|
21D3- E5 E3 SBC $E3
|
|
21D5- F4 ???
|
|
21D6- E5 E4 SBC $E4
|
|
21D8- 00 BRK
|
|
21D9- 8D 8D D0 STA $D08D
|
|
21DC- F2 E5 SBC ($E5)
|
|
21DE- F3 ???
|
|
21DF- F3 ???
|
|
21E0- A0 E1 LDY #$E1
|
|
21E2- EE F9 A0 INC $A0F9
|
|
21E5- EB ???
|
|
21E6- E5 F9 SBC $F9
|
|
21E8- A0 F4 LDY #$F4
|
|
21EA- EF ???
|
|
21EB- A0 E5 LDY #$E5
|
|
21ED- F8 SED
|
|
21EE- E9 F4 SBC #$F4
|
|
21F0- A0 F4 LDY #$F4
|
|
21F2- EF ???
|
|
21F3- A0 D0 LDY #$D0
|
|
21F5- F2 EF SBC ($EF)
|
|
21F7- C4 CF CPY $CF
|
|
21F9- D3 ???
|
|
21FA- 00 BRK
|
|
21FB- C5 F8 CMP $F8
|
|
21FD- E9 F4 SBC #$F4
|
|
21FF- A0 F4 LDY #$F4
|
|
2201- EF ???
|
|
2202- A0 D0 LDY #$D0
|
|
2204- F2 EF SBC ($EF)
|
|
2206- C4 CF CPY $CF
|
|
2208- D3 ???
|
|
2209- BF ???
|
|
220A- A0 DB LDY #$DB
|
|
220C- F9 AF EE SBC $EEAF,Y
|
|
220F- DD 00
|
|
2211- 8D 81 C0 STA $C081 ;set up ram and video
|
|
2214- 20 89 FE JSR $FE89 F8ROM:SETKBD
|
|
2217- 8D 10 C0 STA $C010 r:KBDSTRB
|
|
221A- 20 93 FE JSR $FE93 F8ROM:SETVID
|
|
221D- 20 2F FB JSR $FB2F F8ROM:INIT
|
|
2220- 20 84 FE JSR $FE84 F8ROM:SETNORM
|
|
2223- A9 02 LDA #$02
|
|
2225- 2C 98 BF BIT $BF98
|
|
2228- F0 13 BEQ $223D
|
|
222A- A9 01 LDA #$01
|
|
222C- CD 0B C3 CMP $C30B
|
|
222F- D0 0C BNE $223D
|
|
2231- A9 88 LDA #$88
|
|
2233- CD 0C C3 CMP $C30C
|
|
2236- D0 05 BNE $223D
|
|
2238- A9 95 LDA #$95
|
|
223A- 20 00 C3 JSR $C300
|
|
223D- 20 58 FC JSR $FC58 F8ROM:HOME
|
|
2240- 60 RTS
|
|
2241- 8D FC BF STA $BFFC ;*** set min kernel version (=#$00)
|
|
2244- 8C FD BF STY $BFFD ;version of this interpreter (app?) (=#$01)
|
|
2247- A0 17 LDY #$17
|
|
2249- A9 01 LDA #$01
|
|
224B- 99 58 BF STA $BF58,Y ;update ProDOS memory map
|
|
224E- 4A LSR
|
|
224F- 88 DEY
|
|
2250- D0 F9 BNE $224B
|
|
2252- A9 CF LDA #$CF
|
|
2254- 8D 58 BF STA $BF58
|
|
2257- 60 RTS
|
|
2258- A9 00 LDA #$00
|
|
225A- 8D 94 BF STA $BF94 ;ProDOS current file level
|
|
225D- 8D 82 22 STA $2282
|
|
2260- 20 00 BF JSR $BF00 P8:CLOSE(1:Ref/1)
|
|
2263- CC $CC
|
|
2264- 81 22 $2281
|
|
2266- 60 RTS
|
|
2267- 20 00 BF JSR $BF00 P8:QUIT(4:Type/1,Path,zz/1,zz)
|
|
226A- 65 $65
|
|
226B- 83 22 $2283
|
|
226D- 4C 6D 22 JMP $226D
|
|
2270- 38 SEC ;*** check machine ID
|
|
2271- 20 1F FE JSR $FE1F F8ROM:IDROUTINE
|
|
2274- 90 09 BCC $227F ;IIgs
|
|
2276- 2C 98 BF BIT $BF98
|
|
2279- 10 04 BPL $227F
|
|
227B- 70 02 BVS $227F
|
|
227D- 18 CLC
|
|
227E- B0
|
|
227F 38 SEC ;fail
|
|
2280- 60 RTS
|
|
2281- 01
|
|
2282- 00 ;copy of ProDOS current file level
|
|
2283- 04 00 TSB $00
|
|
2285- 00 BRK
|
|
2286- 00 BRK
|
|
2287- 00 BRK
|
|
2288- 00 BRK
|
|
2289- 00 BRK
|
|
228A- 8C 94 22 STY $2294 ;*** print text at YYAA
|
|
228D- 8D 93 22 STA $2293
|
|
2290- A0 00 LDY #$00
|
|
2292- B9 89 20 LDA $2089,Y
|
|
2295- F0 11 BEQ $22A8
|
|
2297- 2C 98 BF BIT $BF98
|
|
229A- 30 06 BMI $22A2
|
|
229C- C9 C0 CMP #$C0
|
|
229E- 90 02 BCC $22A2
|
|
22A0- 29 DF AND #$DF
|
|
22A2- 20 ED FD JSR $FDED F8ROM:COUT
|
|
22A5- C8 INY
|
|
22A6- D0 EA BNE $2292
|
|
22A8- 60 RTS
|
|
22A9- 20 C1 FB JSR $FBC1 F8ROM:BASCALC
|
|
22AC- A4 29 LDY $29
|
|
22AE- A5 28 LDA $28
|
|
22B0- 20 FD 24 JSR $24FD
|
|
22B3- A9 00 LDA #$00
|
|
22B5- 8D 11 26 STA $2611
|
|
22B8- 85 24 STA $24
|
|
22BA- 20 80 24 JSR $2480
|
|
22BD- F0 F4 BEQ $22B3
|
|
22BF- 20 90 24 JSR $2490
|
|
22C2- B0 EF BCS $22B3
|
|
22C4- 8D 3C 26 STA $263C
|
|
22C7- A9 01 LDA #$01
|
|
22C9- 85 24 STA $24
|
|
22CB- 20 80 24 JSR $2480
|
|
22CE- F0 E3 BEQ $22B3
|
|
22D0- 20 90 24 JSR $2490
|
|
22D3- B0 F2 BCS $22C7
|
|
22D5- 8D 3D 26 STA $263D
|
|
22D8- A9 02 LDA #$02
|
|
22DA- 85 24 STA $24
|
|
22DC- 20 80 24 JSR $2480
|
|
22DF- F0 E6 BEQ $22C7
|
|
22E1- 20 90 24 JSR $2490
|
|
22E4- B0 F2 BCS $22D8
|
|
22E6- 8D 3E 26 STA $263E
|
|
22E9- A2 00 LDX #$00
|
|
22EB- 8E 3B 26 STX $263B
|
|
22EE- A0 00 LDY #$00
|
|
22F0- EE 3B 26 INC $263B
|
|
22F3- 8E 3F 26 STX $263F
|
|
22F6- B9 3C 26 LDA $263C,Y
|
|
22F9- DD 4F 26 CMP $264F,X
|
|
22FC- D0 08 BNE $2306
|
|
22FE- E8 INX
|
|
22FF- C8 INY
|
|
2300- C0 03 CPY #$03
|
|
2302- 90 F2 BCC $22F6
|
|
2304- F0 0D BEQ $2313
|
|
2306- AE 3F 26 LDX $263F
|
|
2309- E8 INX
|
|
230A- E8 INX
|
|
230B- E8 INX
|
|
230C- E0 15 CPX #$15
|
|
230E- 90 DE BCC $22EE
|
|
2310- 4C B3 22 JMP $22B3
|
|
2313- A9 04 LDA #$04
|
|
2315- 85 24 STA $24
|
|
2317- 20 BC 24 JSR $24BC
|
|
231A- F0 BC BEQ $22D8
|
|
231C- 20 A3 24 JSR $24A3
|
|
231F- B0 F2 BCS $2313
|
|
2321- 0A ASL
|
|
2322- 0A ASL
|
|
2323- 0A ASL
|
|
2324- 0A ASL
|
|
2325- 8D 41 26 STA $2641
|
|
2328- A9 05 LDA #$05
|
|
232A- 85 24 STA $24
|
|
232C- 20 BC 24 JSR $24BC
|
|
232F- F0 E2 BEQ $2313
|
|
2331- 20 AB 24 JSR $24AB
|
|
2334- B0 F2 BCS $2328
|
|
2336- 29 0F AND #$0F
|
|
2338- 0D 41 26 ORA $2641
|
|
233B- 8D 40 26 STA $2640
|
|
233E- F0 D3 BEQ $2313
|
|
2340- C9 32 CMP #$32
|
|
2342- B0 CF BCS $2313
|
|
2344- A9 07 LDA #$07
|
|
2346- 85 24 STA $24
|
|
2348- 20 80 24 JSR $2480
|
|
234B- F0 DB BEQ $2328
|
|
234D- 20 90 24 JSR $2490
|
|
2350- B0 F2 BCS $2344
|
|
2352- 8D 43 26 STA $2643
|
|
2355- A9 08 LDA #$08
|
|
2357- 85 24 STA $24
|
|
2359- 20 80 24 JSR $2480
|
|
235C- F0 E6 BEQ $2344
|
|
235E- 20 90 24 JSR $2490
|
|
2361- B0 F2 BCS $2355
|
|
2363- 8D 44 26 STA $2644
|
|
2366- A9 09 LDA #$09
|
|
2368- 85 24 STA $24
|
|
236A- 20 80 24 JSR $2480
|
|
236D- F0 E6 BEQ $2355
|
|
236F- 20 90 24 JSR $2490
|
|
2372- B0 F2 BCS $2366
|
|
2374- 8D 45 26 STA $2645
|
|
2377- A2 00 LDX #$00
|
|
2379- 8E 42 26 STX $2642
|
|
237C- A0 00 LDY #$00
|
|
237E- EE 42 26 INC $2642
|
|
2381- 8E 46 26 STX $2646
|
|
2384- B9 43 26 LDA $2643,Y
|
|
2387- DD 64 26 CMP $2664,X
|
|
238A- D0 08 BNE $2394
|
|
238C- E8 INX
|
|
238D- C8 INY
|
|
238E- C0 03 CPY #$03
|
|
2390- 90 F2 BCC $2384
|
|
2392- F0 0D BEQ $23A1
|
|
2394- AE 46 26 LDX $2646
|
|
2397- E8 INX
|
|
2398- E8 INX
|
|
2399- E8 INX
|
|
239A- E0 36 CPX #$36
|
|
239C- 90 DE BCC $237C
|
|
239E- 4C 44 23 JMP $2344
|
|
23A1- A9 0B LDA #$0B
|
|
23A3- 85 24 STA $24
|
|
23A5- 20 BC 24 JSR $24BC
|
|
23A8- F0 BC BEQ $2366
|
|
23AA- 20 AB 24 JSR $24AB
|
|
23AD- B0 F2 BCS $23A1
|
|
23AF- 0A ASL
|
|
23B0- 0A ASL
|
|
23B1- 0A ASL
|
|
23B2- 0A ASL
|
|
23B3- 8D 48 26 STA $2648
|
|
23B6- A9 0C LDA #$0C
|
|
23B8- 85 24 STA $24
|
|
23BA- 20 BC 24 JSR $24BC
|
|
23BD- F0 E2 BEQ $23A1
|
|
23BF- 20 AB 24 JSR $24AB
|
|
23C2- B0 F2 BCS $23B6
|
|
23C4- 29 0F AND #$0F
|
|
23C6- 0D 48 26 ORA $2648
|
|
23C9- 8D 47 26 STA $2647
|
|
23CC- C9 9A CMP #$9A
|
|
23CE- F0 D1 BEQ $23A1
|
|
23D0- A9 0E LDA #$0E
|
|
23D2- 85 24 STA $24
|
|
23D4- 20 BC 24 JSR $24BC
|
|
23D7- F0 DD BEQ $23B6
|
|
23D9- 20 9F 24 JSR $249F
|
|
23DC- B0 F2 BCS $23D0
|
|
23DE- 0A ASL
|
|
23DF- 0A ASL
|
|
23E0- 0A ASL
|
|
23E1- 0A ASL
|
|
23E2- 8D 4A 26 STA $264A
|
|
23E5- A9 0F LDA #$0F
|
|
23E7- 85 24 STA $24
|
|
23E9- 20 BC 24 JSR $24BC
|
|
23EC- F0 E2 BEQ $23D0
|
|
23EE- 20 AB 24 JSR $24AB
|
|
23F1- B0 F2 BCS $23E5
|
|
23F3- 29 0F AND #$0F
|
|
23F5- 0D 4A 26 ORA $264A
|
|
23F8- 8D 49 26 STA $2649
|
|
23FB- C9 24 CMP #$24
|
|
23FD- F0 D1 BEQ $23D0
|
|
23FF- A9 11 LDA #$11
|
|
2401- 85 24 STA $24
|
|
2403- 20 BC 24 JSR $24BC
|
|
2406- F0 DD BEQ $23E5
|
|
2408- 20 A7 24 JSR $24A7
|
|
240B- B0 F2 BCS $23FF
|
|
240D- 0A ASL
|
|
240E- 0A ASL
|
|
240F- 0A ASL
|
|
2410- 0A ASL
|
|
2411- 8D 4C 26 STA $264C
|
|
2414- A9 12 LDA #$12
|
|
2416- 85 24 STA $24
|
|
2418- 20 BC 24 JSR $24BC
|
|
241B- F0 E2 BEQ $23FF
|
|
241D- 20 AB 24 JSR $24AB
|
|
2420- B0 F2 BCS $2414
|
|
2422- 29 0F AND #$0F
|
|
2424- 0D 4C 26 ORA $264C
|
|
2427- 8D 4B 26 STA $264B
|
|
242A- C9 5A CMP #$5A
|
|
242C- F0 D1 BEQ $23FF
|
|
242E- A9 14 LDA #$14
|
|
2430- 85 24 STA $24
|
|
2432- 20 BC 24 JSR $24BC
|
|
2435- F0 DD BEQ $2414
|
|
2437- 20 A7 24 JSR $24A7
|
|
243A- B0 F2 BCS $242E
|
|
243C- 0A ASL
|
|
243D- 0A ASL
|
|
243E- 0A ASL
|
|
243F- 0A ASL
|
|
2440- 8D 4E 26 STA $264E
|
|
2443- A9 15 LDA #$15
|
|
2445- 85 24 STA $24
|
|
2447- 20 BC 24 JSR $24BC
|
|
244A- F0 E2 BEQ $242E
|
|
244C- 20 AB 24 JSR $24AB
|
|
244F- B0 F2 BCS $2443
|
|
2451- 29 0F AND #$0F
|
|
2453- 0D 4E 26 ORA $264E
|
|
2456- 8D 4D 26 STA $264D
|
|
2459- C9 5A CMP #$5A
|
|
245B- F0 D1 BEQ $242E
|
|
245D- AD 11 26 LDA $2611
|
|
2460- D0 07 BNE $2469
|
|
2462- 20 DA 24 JSR $24DA
|
|
2465- C9 88 CMP #$88
|
|
2467- F0 DA BEQ $2443
|
|
2469- C9 8D CMP #$8D
|
|
246B- F0 0C BEQ $2479
|
|
246D- C9 9B CMP #$9B
|
|
246F- F0 08 BEQ $2479
|
|
2471- A9 00 LDA #$00
|
|
2473- 8D 11 26 STA $2611
|
|
2476- 4C 5D 24 JMP $245D
|
|
2479- 20 DF 25 JSR $25DF
|
|
247C- AD 11 26 LDA $2611
|
|
247F- 60 RTS
|
|
2480- 20 BC 24 JSR $24BC
|
|
2483- C9 E1 CMP #$E1
|
|
2485- 90 06 BCC $248D
|
|
2487- C9 FB CMP #$FB
|
|
2489- B0 02 BCS $248D
|
|
248B- 29 DF AND #$DF
|
|
248D- C9 88 CMP #$88
|
|
248F- 60 RTS
|
|
2490- C9 C1 CMP #$C1
|
|
2492- 90 09 BCC $249D
|
|
2494- C9 DB CMP #$DB
|
|
2496- B0 05 BCS $249D
|
|
2498- 20 ED FD JSR $FDED F8ROM:COUT
|
|
249B- 18 CLC
|
|
249C- B0 38 BCS $24D6
|
|
249E- 60 RTS
|
|
249F- C9 B3 CMP #$B3
|
|
24A1- B0 17 BCS $24BA
|
|
24A3- C9 B4 CMP #$B4
|
|
24A5- B0 13 BCS $24BA
|
|
24A7- C9 B6 CMP #$B6
|
|
24A9- B0 0F BCS $24BA
|
|
24AB- C9 B0 CMP #$B0
|
|
24AD- 90 0B BCC $24BA
|
|
24AF- C9 BA CMP #$BA
|
|
24B1- B0 07 BCS $24BA
|
|
24B3- 20 ED FD JSR $FDED F8ROM:COUT
|
|
24B6- 29 0F AND #$0F
|
|
24B8- 18 CLC
|
|
24B9- B0 38 BCS $24F3
|
|
24BB- 60 RTS
|
|
24BC- AD 11 26 LDA $2611
|
|
24BF- D0 12 BNE $24D3
|
|
24C1- 20 DA 24 JSR $24DA
|
|
24C4- C9 95 CMP #$95
|
|
24C6- F0 0B BEQ $24D3
|
|
24C8- C9 9B CMP #$9B
|
|
24CA- F0 04 BEQ $24D0
|
|
24CC- C9 8D CMP #$8D
|
|
24CE- D0 07 BNE $24D7
|
|
24D0- 8D 11 26 STA $2611
|
|
24D3- A4 24 LDY $24
|
|
24D5- B1 28 LDA ($28),Y
|
|
24D7- C9 88 CMP #$88
|
|
24D9- 60 RTS
|
|
24DA- A4 24 LDY $24
|
|
24DC- B1 28 LDA ($28),Y
|
|
24DE- 48 PHA
|
|
24DF- 29 3F AND #$3F
|
|
24E1- 09 40 ORA #$40
|
|
24E3- 91 28 STA ($28),Y
|
|
24E5- 20 F9 24 JSR $24F9
|
|
24E8- 2C 00 C0 BIT $C000 r:KBD w:CLR80COL
|
|
24EB- 10 F8 BPL $24E5
|
|
24ED- A4 24 LDY $24
|
|
24EF- 68 PLA
|
|
24F0- 91 28 STA ($28),Y
|
|
24F2- AD 00 C0 LDA $C000 r:KBD w:CLR80COL
|
|
24F5- 8D 10 C0 STA $C010 r:KBDSTRB
|
|
24F8- 60 RTS
|
|
24F9- A0 07 LDY #$07
|
|
24FB- A9 00 LDA #$00
|
|
24FD- 8C DA 25 STY $25DA
|
|
2500- 8D D9 25 STA $25D9
|
|
2503- 20 9A 26 JSR $269A ;read time
|
|
2506- 20 CD 26 JSR $26CD
|
|
2509- 90 03 BCC $250E
|
|
250B- 4C DE 25 JMP $25DE
|
|
250E- A0 27 LDY #$27
|
|
2510- A9 A0 LDA #$A0
|
|
2512- 99 13 26 STA $2613,Y
|
|
2515- 88 DEY
|
|
2516- D0 FA BNE $2512
|
|
2518- AD 4F 27 LDA $274F
|
|
251B- 29 07 AND #$07
|
|
251D- 8D 12 26 STA $2612
|
|
2520- 0A ASL
|
|
2521- 6D 12 26 ADC $2612
|
|
2524- A8 TAY
|
|
2525- B9 4C 26 LDA $264C,Y
|
|
2528- 8D 13 26 STA $2613
|
|
252B- B9 4D 26 LDA $264D,Y
|
|
252E- 8D 14 26 STA $2614
|
|
2531- B9 4E 26 LDA $264E,Y
|
|
2534- 8D 15 26 STA $2615
|
|
2537- AD 4E 27 LDA $274E
|
|
253A- 48 PHA
|
|
253B- 4A LSR
|
|
253C- 4A LSR
|
|
253D- 4A LSR
|
|
253E- 4A LSR
|
|
253F- 09 B0 ORA #$B0
|
|
2541- 8D 17 26 STA $2617
|
|
2544- 68 PLA
|
|
2545- 29 0F AND #$0F
|
|
2547- 09 B0 ORA #$B0
|
|
2549- 8D 18 26 STA $2618
|
|
254C- A9 AF LDA #$AF
|
|
254E- 8D 19 26 STA $2619
|
|
2551- AD 4D 27 LDA $274D
|
|
2554- 29 1F AND #$1F
|
|
2556- 8D 12 26 STA $2612
|
|
2559- 0A ASL
|
|
255A- 6D 12 26 ADC $2612
|
|
255D- A8 TAY
|
|
255E- B9 61 26 LDA $2661,Y
|
|
2561- 8D 1A 26 STA $261A
|
|
2564- B9 62 26 LDA $2662,Y
|
|
2567- 8D 1B 26 STA $261B
|
|
256A- B9 63 26 LDA $2663,Y
|
|
256D- 8D 1C 26 STA $261C
|
|
2570- A9 AF LDA #$AF
|
|
2572- 8D 1D 26 STA $261D
|
|
2575- AD 4C 27 LDA $274C
|
|
2578- 48 PHA
|
|
2579- 4A LSR
|
|
257A- 4A LSR
|
|
257B- 4A LSR
|
|
257C- 4A LSR
|
|
257D- 09 B0 ORA #$B0
|
|
257F- 8D 1E 26 STA $261E
|
|
2582- 68 PLA
|
|
2583- 29 0F AND #$0F
|
|
2585- 09 B0 ORA #$B0
|
|
2587- 8D 1F 26 STA $261F
|
|
258A- AD 50 27 LDA $2750
|
|
258D- 48 PHA
|
|
258E- 4A LSR
|
|
258F- 4A LSR
|
|
2590- 4A LSR
|
|
2591- 4A LSR
|
|
2592- 09 B0 ORA #$B0
|
|
2594- 8D 21 26 STA $2621
|
|
2597- 68 PLA
|
|
2598- 29 0F AND #$0F
|
|
259A- 09 B0 ORA #$B0
|
|
259C- 8D 22 26 STA $2622
|
|
259F- A9 BA LDA #$BA
|
|
25A1- 8D 23 26 STA $2623
|
|
25A4- AD 51 27 LDA $2751
|
|
25A7- 48 PHA
|
|
25A8- 4A LSR
|
|
25A9- 4A LSR
|
|
25AA- 4A LSR
|
|
25AB- 4A LSR
|
|
25AC- 09 B0 ORA #$B0
|
|
25AE- 8D 24 26 STA $2624
|
|
25B1- 68 PLA
|
|
25B2- 29 0F AND #$0F
|
|
25B4- 09 B0 ORA #$B0
|
|
25B6- 8D 25 26 STA $2625
|
|
25B9- A9 BA LDA #$BA
|
|
25BB- 8D 26 26 STA $2626
|
|
25BE- AD 52 27 LDA $2752
|
|
25C1- 48 PHA
|
|
25C2- 4A LSR
|
|
25C3- 4A LSR
|
|
25C4- 4A LSR
|
|
25C5- 4A LSR
|
|
25C6- 09 B0 ORA #$B0
|
|
25C8- 8D 27 26 STA $2627
|
|
25CB- 68 PLA
|
|
25CC- 29 0F AND #$0F
|
|
25CE- 09 B0 ORA #$B0
|
|
25D0- 8D 28 26 STA $2628
|
|
25D3- A0 27 LDY #$27
|
|
25D5- B9 13 26 LDA $2613,Y
|
|
25D8- 99 13 26 STA $2613,Y
|
|
25DB- 88 DEY
|
|
25DC- 10 F7 BPL $25D5
|
|
25DE- 60 RTS
|
|
25DF- AD 47 26 LDA $2647
|
|
25E2- 8D 4C 27 STA $274C
|
|
25E5- AD 42 26 LDA $2642
|
|
25E8- 8D 4D 27 STA $274D
|
|
25EB- AD 40 26 LDA $2640
|
|
25EE- 8D 4E 27 STA $274E
|
|
25F1- AD 3B 26 LDA $263B
|
|
25F4- 09 10 ORA #$10
|
|
25F6- 8D 4F 27 STA $274F
|
|
25F9- AD 49 26 LDA $2649
|
|
25FC- 8D 50 27 STA $2750
|
|
25FF- AD 4B 26 LDA $264B
|
|
2602- 8D 51 27 STA $2751
|
|
2605- AD 4D 26 LDA $264D
|
|
2608- 8D 52 27 STA $2752
|
|
260B- A9 00 LDA #$00
|
|
260D- 8D 53 27 STA $2753
|
|
2610- 60 RTS
|
|
2611- 00 BRK
|
|
2612- 00 BRK
|
|
2613- 00 BRK
|
|
2614- 00 BRK
|
|
2615- 00 BRK
|
|
2616- 00 BRK
|
|
2617- 00 BRK
|
|
2618- 00 BRK
|
|
2619- 00 BRK
|
|
261A- 00 BRK
|
|
261B- 00 BRK
|
|
261C- 00 BRK
|
|
261D- 00 BRK
|
|
261E- 00 BRK
|
|
261F- 00 BRK
|
|
2620- 00 BRK
|
|
2621- 00 BRK
|
|
2622- 00 BRK
|
|
2623- 00 BRK
|
|
2624- 00 BRK
|
|
2625- 00 BRK
|
|
2626- 00 BRK
|
|
2627- 00 BRK
|
|
2628- 00 BRK
|
|
2629- 00 BRK
|
|
262A- 00 BRK
|
|
262B- 00 BRK
|
|
262C- 00 BRK
|
|
262D- 00 BRK
|
|
262E- 00 BRK
|
|
262F- 00 BRK
|
|
2630- 00 BRK
|
|
2631- 00 BRK
|
|
2632- 00 BRK
|
|
2633- 00 BRK
|
|
2634- 00 BRK
|
|
2635- 00 BRK
|
|
2636- 00 BRK
|
|
2637- 00 BRK
|
|
2638- 00 BRK
|
|
2639- 00 BRK
|
|
263A- 00 BRK
|
|
263B- 00 BRK
|
|
263C- 00 BRK
|
|
263D- 00 BRK
|
|
263E- 00 BRK
|
|
263F- 00 BRK
|
|
2640- 00 BRK
|
|
2641- 00 BRK
|
|
2642- 00 BRK
|
|
2643- 00 BRK
|
|
2644- 00 BRK
|
|
2645- 00 BRK
|
|
2646- 00 BRK
|
|
2647- 00 BRK
|
|
2648- 00 BRK
|
|
2649- 00 BRK
|
|
264A- 00 BRK
|
|
264B- 00 BRK
|
|
264C- 00 BRK
|
|
264D- 00 BRK
|
|
264E- 00 BRK
|
|
264F- D3 ???
|
|
2650- D5 CE CMP $CE,X
|
|
2652- CD CF CE CMP $CECF
|
|
2655- D4 ???
|
|
2656- D5 C5 CMP $C5,X
|
|
2658- D7 ???
|
|
2659- C5 C4 CMP $C4
|
|
265B- D4 ???
|
|
265C- C8 INY
|
|
265D- D5 C6 CMP $C6,X
|
|
265F- D2 C9 CMP ($C9)
|
|
2661- D3 ???
|
|
2662- C1 D4 CMP ($D4,X)
|
|
2664- CA DEX
|
|
2665- C1 CE CMP ($CE,X)
|
|
2667- C6 C5 DEC $C5
|
|
2669- C2 ???
|
|
266A- CD C1 D2 CMP $D2C1
|
|
266D- C1 D0 CMP ($D0,X)
|
|
266F- D2 CD CMP ($CD)
|
|
2671- C1 D9 CMP ($D9,X)
|
|
2673- CA DEX
|
|
2674- D5 CE CMP $CE,X
|
|
2676- CA DEX
|
|
2677- D5 CC CMP $CC,X
|
|
2679- C1 D5 CMP ($D5,X)
|
|
267B- C7 ???
|
|
267C- D3 ???
|
|
267D- C5 D0 CMP $D0
|
|
267F- D5 CE CMP $CE,X
|
|
2681- CB ???
|
|
2682- D5 CE CMP $CE,X
|
|
2684- CB ???
|
|
2685- D5 CE CMP $CE,X
|
|
2687- CB ???
|
|
2688- D5 CE CMP $CE,X
|
|
268A- CB ???
|
|
268B- D5 CE CMP $CE,X
|
|
268D- CB ???
|
|
268E- D5 CE CMP $CE,X
|
|
2690- CB ???
|
|
2691- CF ???
|
|
2692- C3 ???
|
|
2693- D4 ???
|
|
2694- CE CF D6 DEC $D6CF
|
|
2697- C4 C5 CPY $C5
|
|
2699- C3 ???
|
|
|
|
269A- 20 0B 27 JSR $270B ;*** read time
|
|
269D- 20 F2 26 JSR $26F2 ;init clock
|
|
26A0- 20 19 27 JSR $2719 ;read time
|
|
26A3- 20 0B 27 JSR $270B
|
|
26A6- 60 RTS
|
|
|
|
26A7- 20 0B 27 JSR $270B ;*** write time
|
|
26AA- 20 F2 26 JSR $26F2 ;init clock
|
|
26AD- 20 2B 27 JSR $272B ;write time
|
|
26B0- 20 0B 27 JSR $270B
|
|
26B3- 60 RTS
|
|
|
|
26B4- A2 00 LDX #$00 ;check clock data read
|
|
26B6- A0 07 LDY #$07
|
|
26B8- B9 4C 27 LDA $274C,Y
|
|
26BB- 4A LSR
|
|
26BC- 90 01 BCC $26BF
|
|
26BE- E8 INX ;count non-zero bits
|
|
26BF- C9 00 CMP #$00
|
|
26C1- D0 F8 BNE $26BB
|
|
26C3- 88 DEY
|
|
26C4- 10 F2 BPL $26B8
|
|
26C6- E0 00 CPX #$00 ;0 = fail (all 0)
|
|
26C8- F0 02 BEQ $26CC
|
|
26CA- E0 40 CPX #$40 ;64 = fail (all 1)
|
|
26CC- 60 RTS ;NE is ok, EQ is fail
|
|
|
|
26CD- A0 07 LDY #$07 ;mask time?
|
|
26CF- B9 4C 27 LDA $274C,Y
|
|
26D2- 39 54 27 AND $2754,Y
|
|
26D5- 99 4C 27 STA $274C,Y
|
|
26D8- 29 0F AND #$0F
|
|
26DA- C9 0A CMP #$0A
|
|
26DC- B0 12 BCS $26F0
|
|
26DE- B9 4C 27 LDA $274C,Y
|
|
26E1- D9 5C 27 CMP $275C,Y
|
|
26E4- 90 0A BCC $26F0
|
|
26E6- D9 64 27 CMP $2764,Y
|
|
26E9- B0 05 BCS $26F0
|
|
26EB- 88 DEY
|
|
26EC- 10 E1 BPL $26CF
|
|
26EE- 18 CLC
|
|
26EF- B0 38 BCS $2729
|
|
26F1- 60 RTS
|
|
|
|
26F2- A2 07 LDX #$07 ;*** clock init
|
|
26F4- A0 07 LDY #$07
|
|
26F6- BD 44 27 LDA $2744,X ;get SmartWatch comparison register pattern bytes
|
|
26F9- 4A LSR
|
|
26FA- B0 05 BCS $2701
|
|
26FC- 2C 00 C3 BIT $C300 ;write data bit 0 on A0 (A2 low = SmartWatch write)
|
|
26FF- 90 03 BCC $2704
|
|
2701- 2C 01 C3 BIT $C301 ;write data bit 1 on A0 (A2 low = SmartWatch write)
|
|
2704- 88 DEY
|
|
2705- 10 F2 BPL $26F9
|
|
2707- CA DEX
|
|
2708- 10 EA BPL $26F4
|
|
270A- 60 RTS
|
|
|
|
270B- A0 08 LDY #$08 ;*** ensure clock inactive
|
|
270D- AD 05 C3 LDA $C305 ;also reset the comparison register pointer (A2 high = SmartWatch read)
|
|
2710- CD 05 C3 CMP $C305
|
|
2713- D0 F6 BNE $270B
|
|
2715- 88 DEY
|
|
2716- D0 F8 BNE $2710
|
|
2718- 60 RTS
|
|
|
|
2719- A2 07 LDX #$07 ; *** read time
|
|
271B- A0 07 LDY #$07
|
|
271D- AD 05 C3 LDA $C305 ;read data bit on A0 (A2 high = SmartWatch read)
|
|
2720- 6A ROR
|
|
2721- 7E 4C 27 ROR $274C,X
|
|
2724- 88 DEY
|
|
2725- 10 F6 BPL $271D
|
|
2727- CA DEX
|
|
2728- 10 F1 BPL $271B
|
|
272A- 60 RTS
|
|
|
|
272B- A2 07 LDX #$07 ; *** write time
|
|
272D- A0 07 LDY #$07
|
|
272F- BD 4C 27 LDA $274C,X ;get the time bytes
|
|
2732- 4A LSR
|
|
2733- B0 05 BCS $273A
|
|
2735- 2C 00 C3 BIT $C300 ;write data bit 0 on A0 (A2 low = SmartWatch write)
|
|
2738- 90 03 BCC $273D
|
|
273A- 2C 01 C3 BIT $C301 ;write data bit 1 on A0 (A2 low = SmartWatch write)
|
|
273D- 88 DEY
|
|
273E- 10 F2 BPL $2732
|
|
2740- CA DEX
|
|
2741- 10 EA BPL $272D
|
|
2743- 60 RTS
|
|
|
|
2744- 5C A3 3A C5 5C A3 3A C5 ;*** clock pattern
|
|
|
|
274C- 00 BRK ;time buffer
|
|
274D- 00 BRK
|
|
274E- 00 BRK
|
|
274F- 00 BRK
|
|
2750- 00 BRK
|
|
2751- 00 BRK
|
|
2752- 00 BRK
|
|
2753- 00 BRK
|
|
2754- FF ??? ;time bitmask
|
|
2755- 1F ???
|
|
2756- 3F ???
|
|
2757- 07 ???
|
|
2758- 3F ???
|
|
2759- 7F ???
|
|
275A- 7F ???
|
|
275B- FF ???
|
|
275C- 00 BRK
|
|
275D- 01 01 ORA ($01,X)
|
|
275F- 01 00 ORA ($00,X)
|
|
2761- 00 BRK
|
|
2762- 00 BRK
|
|
2763- 00 BRK
|
|
2764- 9A TXS
|
|
2765- 13 ???
|
|
2766- 32 08 AND ($08)
|
|
2768- 24 5A BIT $5A
|
|
276A- 5A PHY
|
|
276B- 9A TXS
|
|
276C- 58 CLI
|
|
276D- 9B ???
|
|
276E- AD 3E BE LDA $BE3E
|
|
2771- 91 28 STA ($28),Y
|
|
2773- A9 00 LDA #$00
|
|
2775- 8D 46 BE STA $BE46
|
|
2778- AE BC BC LDX $BCBC
|
|
277B- BD BC BC LDA $BCBC,X
|
|
277E- 9D FF 01 STA $01FF,X
|
|
2781- CA DEX
|
|
2782- D0 F7 BNE $277B
|
|
2784- AE BC BC LDX $BCBC
|
|
2787- A9 8D LDA #$8D
|
|
2789- 60 RTS
|
|
278A- AD A3 BC LDA $BCA3
|
|
278D- 8D D6 BE STA $BED6
|
|
2790- A9 02 LDA #$02
|
|
2792- 8D D8 BE STA $BED8
|
|
2795- A9 EF LDA #$EF
|
|
2797- 8D D9 BE STA $BED9
|
|
279A- A9 00 LDA #$00
|
|
279C- 8D DA BE STA $BEDA
|
|
279F- 8D D7 BE STA $BED7
|
|
27A2- 60 RTS
|
|
27A3- 20 62 9F JSR $9F62
|
|
27A6- C9 84 CMP #$84
|
|
27A8- D0 17 BNE $27C1
|
|
27AA- 20 F4 9F JSR $9FF4
|
|
27AD- 8D 4B BE STA $BE4B
|
|
27B0- 8D 44 BE STA $BE44
|
|
27B3- 8D 45 BE STA $BE45
|
|
27B6- 8D 46 BE STA $BE46
|
|
27B9- A2 08 LDX #$08
|
|
27BB- 20 76 9F JSR $9F76
|
|
27BE- 4C 6C 9F JMP $9F6C
|
|
27C1- A2 04 LDX #$04
|
|
27C3- 20 76 9F JSR $9F76
|
|
27C6- 20 6C 9F JSR $9F6C
|
|
27C9- 4C F1 B7 JMP $B7F1
|
|
27CC- 20 62 9F JSR $9F62
|
|
27CF- AE 4B BE LDX $BE4B
|
|
27D2- 9D 00 02 STA $0200,X
|
|
27D5- C9 8D CMP #$8D
|
|
27D7- F0 0E BEQ $27E7
|
|
27D9- EE 4B BE INC $BE4B
|
|
27DC- D0 05 BNE $27E3
|
|
27DE- A9 10 LDA #$10
|
|
27E0- 4C F0 9A JMP $9AF0
|
|
27E3- AE 3F BE LDX $BE3F
|
|
27E6- 60 RTS
|
|
27E7- E8 INX
|
|
27E8- CA DEX
|
|
27E9- F0 0B BEQ $27F6
|
|
27EB- 20 00 9A JSR $9A00
|
|
27EE- 20 77 A6 JSR $A677
|
|
27F1- B0 ED BCS $27E0
|
|
27F3- 20 8D 9A JSR $9A8D
|
|
27F6- A2 04 LDX #$04
|
|
27F8- 20 76 9F JSR $9F76
|
|
27FB- 4C 6C 9F JMP $9F6C
|
|
27FE- 8C 40 00 STY $0040
|