676 lines
23 KiB
Plaintext
676 lines
23 KiB
Plaintext
No-Slot-Clock (Dallas SmartWatch DS1216) ProDOS Driver "NS.CLOCK.SYSTEM".
|
|
Probably written by Craig Peterson in 1990.
|
|
Partial disassembly and comments by Nick Westgate (and CiderPress).
|
|
|
|
Note: This code checks for the clock in internal C3, C8 and external slot ROM spaces. (CD, CF or slot ROM sockets.)
|
|
|
|
2000- 38 SEC ;actually loads at $2000
|
|
2001- B0 03 BCS $2006
|
|
2003- 09 23
|
|
2005- 90
|
|
2006- A2 05 LDX #$05 ;pages to relocate
|
|
2008- A0 00 LDY #$00
|
|
200A- B9 00 20 LDA $2000,Y ;relocate to $1000
|
|
200D- 99 00 10 STA $1000,Y
|
|
2010- C8 INY
|
|
2011- D0 F7 BNE $200A
|
|
2013- EE 0C 10 INC $100C
|
|
2016- EE 0F 10 INC $100F
|
|
2019- CA DEX
|
|
201A- F0 03 BEQ $201F
|
|
201C- 4C 0A 10 JMP $100A
|
|
101F- A9 00 LDA #$00
|
|
1021- 85 A8 STA $A8
|
|
1023- AE 80 02 LDX $0280 ;check input buffer for something? (ProDOS path?)
|
|
1026- F0 1E BEQ $1046
|
|
1028- E6 A8 INC $A8
|
|
102A- CA DEX
|
|
102B- F0 08 BEQ $1035
|
|
102D- BD 80 02 LDA $0280,X
|
|
1030- 49 2F EOR #$2F
|
|
1032- 0A ASL
|
|
1033- D0 F3 BNE $1028
|
|
1035- A0 00 LDY #$00
|
|
1037- C8 INY
|
|
1038- E8 INX
|
|
1039- BD 80 02 LDA $0280,X
|
|
103C- 99 E5 13 STA $13E5,Y
|
|
103F- C4 A8 CPY $A8
|
|
1041- 90 F4 BCC $1037
|
|
1043- 8C E5 13 STY $13E5
|
|
1046- D8 CLD
|
|
1047- 2C 82 C0 BIT $C082 ;read LC ROM
|
|
104A- A9 46 LDA #$46
|
|
104C- 8D F2 03 STA $03F2 ;reset vector
|
|
104F- A9 10 LDA #$10
|
|
1051- 8D F3 03 STA $03F3
|
|
1054- 49 A5 EOR #$A5
|
|
1056- 8D F4 03 STA $03F4
|
|
1059- A9 95 LDA #$95
|
|
105B- 20 ED FD JSR $FDED F8ROM:COUT
|
|
105E- A2 FF LDX #$FF
|
|
1060- 9A TXS
|
|
1061- 8D 0C C0 STA $C00C w:CLR80VID
|
|
1064- 8D 0E C0 STA $C00E w:CLRALTCHAR
|
|
1067- 20 93 FE JSR $FE93 F8ROM:SETVID
|
|
106A- 20 89 FE JSR $FE89 F8ROM:SETKBD
|
|
106D- 20 84 FE JSR $FE84 F8ROM:SETNORM
|
|
1070- 20 2F FB JSR $FB2F F8ROM:INIT
|
|
1073- A2 17 LDX #$17
|
|
1075- A9 01 LDA #$01
|
|
1077- 9D 58 BF STA $BF58,X
|
|
107A- A9 00 LDA #$00
|
|
107C- CA DEX
|
|
107D- D0 F8 BNE $1077
|
|
107F- A9 CF LDA #$CF
|
|
1081- 8D 58 BF STA $BF58 ;ProDOS system memory bitmap
|
|
1084- AD 98 BF LDA $BF98 ;ProDOS machine ID
|
|
1087- 29 88 AND #$88
|
|
1089- D0 05 BNE $1090
|
|
108B- A9 DF LDA #$DF ;II or II+
|
|
108D- 8D 5B 13 STA $135B
|
|
1090- AD 98 BF LDA $BF98 ;ProDOS machine ID
|
|
1093- 29 01 AND #$01 ;check for clock
|
|
1095- F0 26 BEQ $10BD
|
|
1097- 20 58 FC JSR $FC58 F8ROM:HOME
|
|
109A- 20 19 13 JSR $1319 ;print
|
|
109D- 8D D0 F2 ;Previous Clock Installed!
|
|
10A0- E5 F6 E9 EF F5 F3 A0 C3
|
|
10A8- EC EF E3 EB A0 C9 EE F3
|
|
10B0- F4 E1 EC EC E5 E4 A1 87
|
|
10B8- 8D 00
|
|
10BA- 4C 1F 12 JMP $121F ;exit
|
|
|
|
10BD- A0 03 LDY #$03
|
|
10BF- B9 90 BF LDA $BF90,Y ;backup ProDOS date/time
|
|
10C2- 99 97 11 STA $1197,Y
|
|
10C5- 88 DEY
|
|
10C6- 10 F7 BPL $10BF
|
|
10C8- A9 CF LDA #$CF ;prepare to check slot ROM
|
|
10CA- A0 FF LDY #$FF
|
|
10CC- 8D F9 13 STA $13F9 ;(LDA $CFFF)
|
|
10CF- 8C F8 13 STY $13F8
|
|
10D2- 8D 66 14 STA $1466 ;(STA $CFFF)
|
|
10D5- 8C 65 14 STY $1465
|
|
10D8- A9 00 LDA #$00 ;slot (3, 1..7, C8 internal)
|
|
10DA- 8D 9C 11 STA $119C ;count?
|
|
10DD- A9 03 LDA #$03
|
|
10DF- 09 C0 ORA #$C0
|
|
10E1- 8D FD 13 STA $13FD ;(STA $CX00)
|
|
10E4- 8D 00 14 STA $1400 ;(LDA $CX04)
|
|
10E7- 8D 0F 14 STA $140F ;(LDA $CX00,Y)
|
|
10EA- 8D 1D 14 STA $141D ;(LDA $CX04)
|
|
10ED- A9 03 LDA #$03 ;try to init 3 times
|
|
10EF- 8D 9B 11 STA $119B
|
|
10F2- 20 F5 13 JSR $13F5 ;init clock and get date/time
|
|
10F5- AD 91 BF LDA $BF91 ;ProDOS date/time updated?
|
|
10F8- 6A ROR
|
|
10F9- AD 90 BF LDA $BF90
|
|
10FC- 2A ROL
|
|
10FD- 2A ROL
|
|
10FE- 2A ROL
|
|
10FF- 2A ROL
|
|
1100- 29 0F AND #$0F
|
|
1102- F0 24 BEQ $1128
|
|
1104- C9 0D CMP #$0D
|
|
1106- B0 20 BCS $1128
|
|
1108- AD 90 BF LDA $BF90
|
|
110B- 29 1F AND #$1F
|
|
110D- F0 19 BEQ $1128
|
|
110F- C9 20 CMP #$20
|
|
1111- B0 15 BCS $1128
|
|
1113- AD 93 BF LDA $BF93
|
|
1116- C9 18 CMP #$18
|
|
1118- B0 0E BCS $1128
|
|
111A- AD 92 BF LDA $BF92
|
|
111D- C9 3C CMP #$3C
|
|
111F- B0 07 BCS $1128
|
|
1121- CE 9B 11 DEC $119B
|
|
1124- D0 CC BNE $10F2 ;not updated: try to init again (3 times)
|
|
1126- F0 75 BEQ $119D
|
|
1128- EE 9C 11 INC $119C ;next slot
|
|
112B- AD 9C 11 LDA $119C
|
|
112E- C9 08 CMP #$08
|
|
1130- 90 AD BCC $10DF
|
|
1132- D0 1D BNE $1151 ;loop for slots 3, 1..7
|
|
1134- A9 C0 LDA #$C0 ;prepare to check internal C8 ROM (where is this called from?)
|
|
1136- A0 15 LDY #$15
|
|
1138- 8D F9 13 STA $13F9
|
|
113B- 8C F8 13 STY $13F8 ;(LDA $C015)
|
|
113E- A0 07 LDY #$07
|
|
1140- 8D FD 13 STA $13FD ;(STA $C007)
|
|
1143- 8C FC 13 STY $13FC
|
|
1146- 88 DEY
|
|
1147- 8D 66 14 STA $1466 ;(STA $C006)
|
|
114A- 8C 65 14 STY $1465
|
|
114D- A9 C8 LDA #$C8
|
|
114F- D0 93 BNE $10E4 ;set up addresses for internal C8 ROM and test
|
|
|
|
1151- A0 03 LDY #$03 ;SmartWatch not found
|
|
1153- B9 97 11 LDA $1197,Y ;restore ProDOS date/time
|
|
1156- 99 90 BF STA $BF90,Y
|
|
1159- 88 DEY
|
|
115A- 10 F7 BPL $1153
|
|
115C- 20 58 FC JSR $FC58 F8ROM:HOME
|
|
115F- 20 19 13 JSR $1319 ;print
|
|
1162- 8D CE EF AD D3 CC ;No-SLot Clock Not Found...Clock Not Installed
|
|
1168- EF F4 A0 C3 EC EF E3 EB
|
|
1170- A0 CE EF F4 A0 C6 EF F5
|
|
1178- EE E4 AE 8D 8D C3 EC EF
|
|
1180- E3 EB A0 CE EF F4 A0 C9
|
|
1188- EE F3 F4 E1 EC EC E5 E4
|
|
1190- A1 87 8D 00
|
|
1194- 4C 1F 12 JMP $121F ;exit
|
|
|
|
1197- 00 ;ProDOS date/time
|
|
1198- 00
|
|
1199- 00
|
|
119A- 00
|
|
119B- 03 ???
|
|
119C- 00 BRK
|
|
119D- AD 07 BF LDA $BF07 ;success: install driver
|
|
11A0- 85 A5 STA $A5
|
|
11A2- 18 CLC
|
|
11A3- 69 73 ADC #$73
|
|
11A5- 8D 04 14 STA $1404
|
|
11A8- AD 08 BF LDA $BF08
|
|
11AB- 85 A6 STA $A6
|
|
11AD- 69 00 ADC #$00
|
|
11AF- 8D 05 14 STA $1405
|
|
11B2- AD 8B C0 LDA $C08B rw:LCBANK1
|
|
11B5- AD 8B C0 LDA $C08B rw:LCBANK1
|
|
11B8- A0 7C LDY #$7C
|
|
11BA- B9 F5 13 LDA $13F5,Y
|
|
11BD- 91 A5 STA ($A5),Y
|
|
11BF- 88 DEY
|
|
11C0- 10 F8 BPL $11BA
|
|
11C2- AD 98 BF LDA $BF98
|
|
11C5- 09 01 ORA #$01
|
|
11C7- 8D 98 BF STA $BF98
|
|
11CA- A9 4C LDA #$4C
|
|
11CC- 8D 06 BF STA $BF06
|
|
11CF- 20 06 BF JSR $BF06
|
|
11D2- 2C 82 C0 BIT $C082
|
|
11D5- 20 58 FC JSR $FC58 F8ROM:HOME
|
|
11D8- 20 19 13 JSR $1319 ;print
|
|
11DB- 8D CE EF AD D3 ;No-Slot Clock Installed
|
|
11E0- EC EF F4 A0 C3 EC EF E3
|
|
11E8- EB A0 C9 EE F3 F4 E1 EC
|
|
11F0- EC E5 E4 A0 A0 00
|
|
11F6- AD 91 BF LDA $BF91
|
|
11F9- 6A ROR
|
|
11FA- 48 PHA
|
|
11FB- AD 90 BF LDA $BF90
|
|
11FE- 48 PHA
|
|
11FF- 2A ROL
|
|
1200- 2A ROL
|
|
1201- 2A ROL
|
|
1202- 2A ROL
|
|
1203- 29 0F AND #$0F
|
|
1205- 20 3E 13 JSR $133E
|
|
1208- A9 AF LDA #$AF
|
|
120A- 20 ED FD JSR $FDED F8ROM:COUT
|
|
120D- 68 PLA
|
|
120E- 29 1F AND #$1F
|
|
1210- 20 3E 13 JSR $133E
|
|
1213- A9 AF LDA #$AF
|
|
1215- 20 ED FD JSR $FDED F8ROM:COUT
|
|
1218- 68 PLA
|
|
1219- 20 3E 13 JSR $133E
|
|
121C- 20 8E FD JSR $FD8E F8ROM:CROUT
|
|
121F- A9 5C LDA #$5C ;*** exit routine
|
|
1221- 8D F2 03 STA $03F2
|
|
1224- A9 13 LDA #$13
|
|
1226- 8D F3 03 STA $03F3
|
|
1229- 49 A5 EOR #$A5
|
|
122B- 8D F4 03 STA $03F4
|
|
122E- AD 30 BF LDA $BF30
|
|
1231- 8D 75 13 STA $1375
|
|
1234- 20 6B 13 JSR $136B
|
|
1237- AD 23 18 LDA $1823
|
|
123A- 8D 88 12 STA $1288
|
|
123D- AD 24 18 LDA $1824
|
|
1240- 8D 94 12 STA $1294
|
|
1243- A9 01 LDA #$01
|
|
1245- 85 A7 STA $A7
|
|
1247- A9 2B LDA #$2B
|
|
1249- 85 A5 STA $A5
|
|
124B- A9 18 LDA #$18
|
|
124D- 85 A6 STA $A6
|
|
124F- A0 10 LDY #$10
|
|
1251- B1 A5 LDA ($A5),Y
|
|
1253- C9 FF CMP #$FF
|
|
1255- D0 2D BNE $1284
|
|
1257- A0 00 LDY #$00
|
|
1259- B1 A5 LDA ($A5),Y
|
|
125B- 29 30 AND #$30
|
|
125D- F0 25 BEQ $1284
|
|
125F- B1 A5 LDA ($A5),Y
|
|
1261- 29 0F AND #$0F
|
|
1263- 85 A8 STA $A8
|
|
1265- A8 TAY
|
|
1266- A2 06 LDX #$06
|
|
1268- B1 A5 LDA ($A5),Y
|
|
126A- DD DE 13 CMP $13DE,X
|
|
126D- D0 15 BNE $1284
|
|
126F- 88 DEY
|
|
1270- CA DEX
|
|
1271- 10 F5 BPL $1268
|
|
1273- AC E5 13 LDY $13E5
|
|
1276- C4 A8 CPY $A8
|
|
1278- D0 40 BNE $12BA
|
|
127A- B1 A5 LDA ($A5),Y
|
|
127C- D9 E5 13 CMP $13E5,Y
|
|
127F- D0 39 BNE $12BA
|
|
1281- 88 DEY
|
|
1282- D0 F6 BNE $127A
|
|
1284- A5 A5 LDA $A5
|
|
1286- 18 CLC
|
|
1287- 69 27 ADC #$27
|
|
1289- 85 A5 STA $A5
|
|
128B- 90 02 BCC $128F
|
|
128D- E6 A6 INC $A6
|
|
128F- E6 A7 INC $A7
|
|
1291- A5 A7 LDA $A7
|
|
1293- C9 0D CMP #$0D
|
|
1295- 90 B8 BCC $124F
|
|
1297- AD 02 18 LDA $1802
|
|
129A- 8D 78 13 STA $1378
|
|
129D- AD 03 18 LDA $1803
|
|
12A0- 8D 79 13 STA $1379
|
|
12A3- 0D 78 13 ORA $1378
|
|
12A6- F0 35 BEQ $12DD
|
|
12A8- 20 6B 13 JSR $136B
|
|
12AB- A9 00 LDA #$00
|
|
12AD- 85 A7 STA $A7
|
|
12AF- A9 04 LDA #$04
|
|
12B1- 85 A5 STA $A5
|
|
12B3- A9 18 LDA #$18
|
|
12B5- 85 A6 STA $A6
|
|
12B7- 4C 4F 12 JMP $124F
|
|
12BA- AE 80 02 LDX $0280
|
|
12BD- F0 0B BEQ $12CA
|
|
12BF- CA DEX
|
|
12C0- F0 08 BEQ $12CA
|
|
12C2- BD 80 02 LDA $0280,X
|
|
12C5- 49 2F EOR #$2F
|
|
12C7- 0A ASL
|
|
12C8- D0 F5 BNE $12BF
|
|
12CA- A0 00 LDY #$00
|
|
12CC- C8 INY
|
|
12CD- E8 INX
|
|
12CE- B1 A5 LDA ($A5),Y
|
|
12D0- 9D 80 02 STA $0280,X
|
|
12D3- C4 A8 CPY $A8
|
|
12D5- 90 F5 BCC $12CC
|
|
12D7- 8E 80 02 STX $0280
|
|
12DA- 4C 7A 13 JMP $137A
|
|
12DD- 20 19 13 JSR $1319 ;print
|
|
12E0- 8D 8D 8D AA A0 D5 EE E1 ;...* Unable to find next '.SYSTEM' file
|
|
12E8- E2 EC E5 A0 F4 EF A0 E6
|
|
12F0- E9 EE E4 A0 EE E5 F8 F4
|
|
12F8- A0 A7 AE D3 D9 D3 D4 C5
|
|
1300- CD A7 A0 E6 E9 EC E5 A0
|
|
1308- AA 8D 00
|
|
130B- 2C 10 C0 BIT $C010
|
|
130E- AD 00 C0 LDA $C000 r:KBD w:CLR80COL
|
|
1311- 10 FB BPL $130E
|
|
1313- 2C 10 C0 BIT $C010 r:KBDSTRB
|
|
1316- 4C 5C 13 JMP $135C ;exit
|
|
|
|
1319- 68 PLA ;*** print routine (text follows JSR)
|
|
131A- 85 A5 STA $A5
|
|
131C- 68 PLA
|
|
131D- 85 A6 STA $A6
|
|
131F- D0 0A BNE $132B
|
|
1321- C9 E1 CMP #$E1
|
|
1323- 90 03 BCC $1328
|
|
1325- 2D 5B 13 AND $135B
|
|
1328- 20 ED FD JSR $FDED F8ROM:COUT
|
|
132B- E6 A5 INC $A5
|
|
132D- D0 02 BNE $1331
|
|
132F- E6 A6 INC $A6
|
|
1331- A0 00 LDY #$00
|
|
1333- B1 A5 LDA ($A5),Y
|
|
1335- D0 EA BNE $1321
|
|
1337- A5 A6 LDA $A6
|
|
1339- 48 PHA
|
|
133A- A5 A5 LDA $A5
|
|
133C- 48 PHA
|
|
133D- 60 RTS
|
|
133E- A2 B0 LDX #$B0
|
|
1340- C9 0A CMP #$0A
|
|
1342- 90 07 BCC $134B
|
|
1344- E9 0A SBC #$0A
|
|
1346- E8 INX
|
|
1347- C9 0A CMP #$0A
|
|
1349- B0 F9 BCS $1344
|
|
134B- 48 PHA
|
|
134C- E0 B0 CPX #$B0
|
|
134E- F0 04 BEQ $1354
|
|
1350- 8A TXA
|
|
1351- 20 ED FD JSR $FDED F8ROM:COUT
|
|
1354- 68 PLA
|
|
1355- 09 B0 ORA #$B0
|
|
1357- 20 ED FD JSR $FDED F8ROM:COUT
|
|
135A- 60 RTS
|
|
135B- FF ??? ;or DF
|
|
135C- 20 00 BF JSR $BF00 P8:QUIT(4:Type/1,Path,zz/1,zz)
|
|
135F- 65 $65
|
|
1360- 64 13 $1364
|
|
1362- 00 BRK
|
|
1363- 60 RTS
|
|
1364- 04 00 TSB $00
|
|
1366- 00 BRK
|
|
1367- 00 BRK
|
|
1368- 00 BRK
|
|
1369- 00 BRK
|
|
136A- 00 BRK
|
|
136B- 20 00 BF JSR $BF00 P8:READ_BLOCK(3:Unit/1,Buff,BlkNum)
|
|
136E- 80 $80
|
|
136F- 74 13 $1374
|
|
1371- B0 28 BCS $139B ;disk error
|
|
1373- 60 RTS
|
|
1374- 03 ???
|
|
1375- 60 RTS
|
|
1376- 00 BRK
|
|
1377- 18 CLC
|
|
1378- 02 ???
|
|
1379- 00 BRK
|
|
137A- 20 00 BF JSR $BF00 P8:OPEN(3:pn,ioBuff,Ref/1)
|
|
137D- C8 $C8
|
|
137E- CE 13 $13CE
|
|
1380- B0 19 BCS $139B
|
|
1382- AD D3 13 LDA $13D3
|
|
1385- 8D D5 13 STA $13D5
|
|
1388- 20 00 BF JSR $BF00 P8:READ(4:Ref/1,Where,reqCount,xfrCount)
|
|
138B- CA $CA
|
|
138C- D4 13 $13D4
|
|
138E- B0 0B BCS $139B
|
|
1390- 20 00 BF JSR $BF00 P8:CLOSE(1:Ref/1)
|
|
1393- CC $CC
|
|
1394- DC 13 $13DC
|
|
1396- B0 03 BCS $139B
|
|
1398- 4C 00 20 JMP $1000
|
|
139B- 48 PHA
|
|
139C- 20 19 13 JSR $1319 ;print
|
|
139F- 8D ;...** Disk Error $
|
|
13A0- 8D 8D AA AA A0 A0 C4 E9
|
|
13A8- F3 EB A0 C5 F2 F2 EF F2
|
|
13B0- A0 A4 00
|
|
13B3- 68 PLA
|
|
13B4- 20 DA FD JSR $FDDA F8ROM:PRBYTE
|
|
13B7- 20 19 13 JSR $1319 ;print
|
|
13BA- A0 A0 AA AA 8D 00 ; **.
|
|
13C0- 2C 10 C0 BIT $C010
|
|
13C3- AD 00 C0 LDA $C000 r:KBD w:CLR80COL
|
|
13C6- 10 FB BPL $13C3
|
|
13C8- 2C 10 C0 BIT $C010 r:KBDSTRB
|
|
13CB- 4C 5C 13 JMP $135C
|
|
13CE- 03 ???
|
|
13CF- 80 02 BRA $13D3
|
|
13D1- 00 BRK
|
|
13D2- 18 CLC
|
|
13D3- 01 04 ORA ($04,X)
|
|
13D5- 01 00 ORA ($00,X)
|
|
13D7- 20 FF FF JSR $FFFF
|
|
13DA- 00 BRK
|
|
13DB- 00 BRK
|
|
13DC- 01 00 ORA ($00,X)
|
|
13DE- 2E 53 59 ROL $5953
|
|
13E1- 53 ???
|
|
13E2- 54 ???
|
|
13E3- 45 4D EOR $4D
|
|
13E5- 0F ;length
|
|
13E6- 4E 53 2E ;copied from input buffer (path?)
|
|
13E9- 43
|
|
13EA- 4C 4F 43
|
|
13ED- 4B ...
|
|
13EE- 2E 53 59 ROL $5953
|
|
13F1- 53 ???
|
|
13F2- 54 ???
|
|
13F3- 45 4D EOR $4D
|
|
|
|
13F5- 08 PHP ;*** clock init and get time
|
|
13F6- 78 SEI
|
|
13F7- AD FF CF LDA $CFFF rw:CLRROM
|
|
13FA- 48 PHA
|
|
13FB- 8D 00 C3 STA $C300 ;switch in CX00 slot/C8 ROM? (calling code sets CX from here on)
|
|
13FE- AD 04 C3 LDA $C304 ;reset the comparison register pointer (A2 high = SmartWatch read)
|
|
1401- A2 08 LDX #$08
|
|
1403- BD 68 14 LDA $1468,X ;get SmartWatch comparison register pattern bytes
|
|
1406- 38 SEC ;mark end of byte
|
|
1407- 6A ROR ;low bits first
|
|
1408- 48 PHA
|
|
1409- A9 00 LDA #$00
|
|
140B- 2A ROL
|
|
140C- A8 TAY
|
|
140D- B9 00 C3 LDA $C300,Y ;write data bit on A0 (A2 low = SmartWatch write)
|
|
1410- 68 PLA
|
|
1411- 4A LSR
|
|
1412- D0 F4 BNE $1408
|
|
1414- CA DEX
|
|
1415- D0 EC BNE $1403
|
|
1417- A2 08 LDX #$08 ;read registers (date/time)
|
|
1419- A0 08 LDY #$08
|
|
141B- AD 04 C3 LDA $C304 ;read data bit on D0 (A2 high = SmartWatch read)
|
|
141E- 6A ROR
|
|
141F- 7E FF 01 ROR $01FF,X ;copy data to input buffer
|
|
1422- 88 DEY
|
|
1423- D0 F6 BNE $141B
|
|
1425- BD FF 01 LDA $01FF,X
|
|
1428- 4A LSR
|
|
1429- 4A LSR
|
|
142A- 4A LSR
|
|
142B- 4A LSR
|
|
142C- A8 TAY
|
|
142D- F0 0E BEQ $143D
|
|
142F- BD FF 01 LDA $01FF,X
|
|
1432- 29 0F AND #$0F
|
|
1434- 18 CLC
|
|
1435- 69 0A ADC #$0A
|
|
1437- 88 DEY
|
|
1438- D0 FB BNE $1435
|
|
143A- 9D FF 01 STA $01FF,X
|
|
143D- CA DEX
|
|
143E- D0 D9 BNE $1419
|
|
1440- AD 04 02 LDA $0204 ;copy data to ProDOS date/time
|
|
1443- 8D 93 BF STA $BF93
|
|
1446- AD 05 02 LDA $0205
|
|
1449- 8D 92 BF STA $BF92
|
|
144C- AD 01 02 LDA $0201
|
|
144F- 0A ASL
|
|
1450- 0A ASL
|
|
1451- 0A ASL
|
|
1452- 0A ASL
|
|
1453- 0A ASL
|
|
1454- 0D 02 02 ORA $0202
|
|
1457- 8D 90 BF STA $BF90
|
|
145A- AD 00 02 LDA $0200
|
|
145D- 2A ROL
|
|
145E- 8D 91 BF STA $BF91
|
|
1461- 68 PLA
|
|
1462- 30 03 BMI $1467
|
|
1464- 8D FF CF STA $CFFF rw:CLRROM ;restore ROM status (hmm)
|
|
1467- 28 PLP
|
|
1468- 60 RTS
|
|
|
|
1469- 5C A3 3A C5 5C A3 3A C5 ;*** clock pattern
|
|
|
|
1471- 00
|
|
1472- B3 ???
|
|
1473- 74 F5 STZ $F5,X
|
|
1475- D3 ???
|
|
1476- 6D E0 68 ADC $68E0
|
|
1479- 7D DD BB ADC $BBDD,X
|
|
147C- 20 2F 52 JSR $522F
|
|
147F- 41 4D EOR ($4D,X)
|
|
1481- 20 8D 00 JSR $008D
|
|
1484- F3 ???
|
|
1485- 20 E1 AA JSR $AAE1
|
|
1488- 68 PLA
|
|
1489- B0 13 BCS $149E
|
|
148B- 6D DD BB ADC $BBDD
|
|
148E- 8D DD 20 STA $10DD
|
|
1491- 2F ???
|
|
1492- 43 ???
|
|
1493- 54 ???
|
|
1494- 2E 31 20 ROL $1031
|
|
1497- 8D 00 EE STA $EE00
|
|
149A- DF ???
|
|
149B- BB ???
|
|
149C- D0 03 BNE $14A1
|
|
149E- A9 FF LDA #$FF
|
|
14A0- 38 SEC
|
|
14A1- 60 RTS
|
|
14A2- C9 30 CMP #$30
|
|
14A4- 20 2F 48 JSR $482F
|
|
14A7- 41 52 EOR ($52,X)
|
|
14A9- 44 ???
|
|
14AA- 31 20 AND ($10),Y
|
|
14AC- 8D 00 C9 STA $C900
|
|
14AF- 47 ???
|
|
14B0- 90 04 BCC $14B6
|
|
14B2- 38 SEC
|
|
14B3- 09 00 ORA #$00
|
|
14B5- 60 RTS
|
|
14B6- E9 06 SBC #$06
|
|
14B8- 20 2F 52 JSR $522F
|
|
14BB- 41 4D EOR ($4D,X)
|
|
14BD- 20 8D 00 JSR $008D
|
|
14C0- DD CA 10 CMP $10CA,X
|
|
14C3- F8 SED
|
|
14C4- 0D DD BB ORA $BBDD
|
|
14C7- 8D DD BB STA $BBDD
|
|
14CA- 60 RTS
|
|
14CB- 0E 0E 2F ASL $1F0E
|
|
14CE- 4E 4F 2E LSR $1E4F
|
|
14D1- 53 ???
|
|
14D2- 4C 4F 54 JMP $544F
|
|
14D5- 2E 43 4C ROL $4C43
|
|
14D8- 4F ???
|
|
14D9- 43 ???
|
|
14DA- 4B ???
|
|
14DB- 20 8D 00 JSR $008D
|
|
14DE- 2D D0 08 AND $08D0
|
|
14E1- EE 53 BE INC $BE53
|
|
14E4- 8D 52 BE STA $BE52
|
|
14E7- D0 1D BNE $1506
|
|
14E9- A0 08 LDY #$08
|
|
14EB- 8C 52 BE STY $BE52
|
|
14EE- BD 97 B8 LDA $B897,X
|
|
14F1- 10 06 BPL $14F9
|
|
14F3- 29 7F AND #$7F
|
|
14F5- 88 DEY
|
|
14F6- CE 52 BE DEC $BE52
|
|
14F9- AA TAX
|
|
14FA- B9 EB BB LDA $BBEB,Y
|
|
14FD- DD B7 B8 CMP $B8B7,X
|
|
1500- D0 17 BNE $1519
|
|
1502- CA DEX
|
|
1503- 88 DEY
|
|
1504- 10 F4 BPL $14FA
|
|
1506- AD 53 BE LDA $BE53
|
|
1509- 0A ASL
|
|
150A- AA TAX
|
|
150B- BD 69 B9 LDA $B969,X
|
|
150E- 8D 55 BE STA $BE55
|
|
1511- BD 68 B9 LDA $B968,X
|
|
1514- 8D 54 BE STA $BE54
|
|
1517- 18 CLC
|
|
1518- 60 RTS
|
|
1519- AC 52 BE LDY $BE52
|
|
151C- CE 53 BE DEC $BE53
|
|
151F- AE 53 BE LDX $BE53
|
|
1522- D0 CA BNE $14EE
|
|
1524- CE 53 BE DEC $BE53
|
|
1527- 38 SEC
|
|
1528- 4C 06 BE JMP $BE06
|
|
152B- A0 00 LDY #$00
|
|
152D- 8C DD BB STY $BBDD
|
|
1530- 8C DE BB STY $BBDE
|
|
1533- 8C DF BB STY $BBDF
|
|
1536- 60 RTS
|
|
1537- AD B8 BE LDA $BEB8
|
|
153A- C9 FC CMP #$FC
|
|
153C- F0 68 BEQ $15A6
|
|
153E- C9 06 CMP #$06
|
|
1540- F0 3F BEQ $1581
|
|
1542- C9 04 CMP #$04
|
|
1544- D0 03 BNE $1549
|
|
1546- 4C 60 B2 JMP $B260
|
|
1549- C9 FF CMP #$FF
|
|
154B- F0 04 BEQ $1551
|
|
154D- A9 0D LDA #$0D
|
|
154F- 38 SEC
|
|
1550- 60 RTS
|
|
1551- 20 31 B5 JSR $B531
|
|
1554- 20 3A B3 JSR $B33A
|
|
1557- A9 00 LDA #$00
|
|
1559- 8D 58 BE STA $BE58
|
|
155C- 8D 6B BF STA $BF6B
|
|
155F- 8D 6C BF STA $BF6C
|
|
1562- 8D 6D BF STA $BF6D
|
|
1565- 8D 6E BF STA $BF6E
|
|
1568- A9 01 LDA #$01
|
|
156A- 8D 6F BF STA $BF6F
|
|
156D- A9 20 LDA #$20
|
|
156F- 8D 59 BE STA $BE59
|
|
1572- A9 FF LDA #$FF
|
|
1574- 8D 6A BE STA $BE6A
|
|
1577- A9 80 LDA #$80
|
|
1579- 8D 57 BE STA $BE57
|
|
157C- A9 05 LDA #$05
|
|
157E- 8D 56 BE STA $BE56
|
|
1581- 4C 20 AE JMP $AE20
|
|
1584- 20 0D A4 JSR $A40D
|
|
1587- A5 74 LDA $74
|
|
1589- 8D A9 BB STA $BBA9
|
|
158C- AE BD BB LDX $BBBD
|
|
158F- CA DEX
|
|
1590- 86 74 STX $74
|
|
1592- 20 0D AC JSR $AC0D
|
|
1595- AE A9 BB LDX $BBA9
|
|
1598- 86 74 STX $74
|
|
159A- B0 6C BCS $1608
|
|
159C- 20 65 D6 JSR $D665
|
|
159F- 20 7C A4 JSR $A47C
|
|
15A2- A9 00 LDA #$00
|
|
15A4- F0 15 BEQ $15BB
|
|
15A6- A9 00 LDA #$00
|
|
15A8- 8D 44 BE STA $BE44
|
|
15AB- 85 DE STA $DE
|
|
15AD- AD 56 BE LDA $BE56
|
|
15B0- 4A LSR
|
|
15B1- 90 16 BCC $15C9
|
|
15B3- 20 08 AC JSR $AC08
|
|
15B6- B0 50 BCS $1608
|
|
15B8- 20 65 D6 JSR $D665
|
|
15BB- 85 D8 STA $D8
|
|
15BD- 20 A1 AC JSR $ACA1
|
|
15C0- 20 8D 9A JSR $9A8D
|
|
15C3- 20 DF AB JSR $ABDF
|
|
15C6- 4C D2 D7 JMP $D7D2
|
|
15C9- 20 73 F2 JSR $F273
|
|
15CC- A9 A3 LDA #$A3
|
|
15CE- 8D 61 9F STA $9F61
|
|
15D1- A9 FF LDA #$FF
|
|
15D3- 8D 53 BE STA $BE53
|
|
15D6- 85 33 STA $33
|
|
15D8- A2 04 LDX #$04
|
|
15DA- 20 76 9F JSR $9F76
|
|
15DD- 4C 43 A8 JMP $A843
|
|
15E0- 20 08 AC JSR $AC08
|
|
15E3- B0 23 BCS $1608
|
|
15E5- 20 65 D6 JSR $D665
|
|
15E8- 20 17 9A JSR $9A17
|
|
15EB- A9 00 LDA #$00
|
|
15ED- 85 24 STA $24
|
|
15EF- 4C 3F D4 JMP $D43F
|
|
15F2- 20 31 B5 JSR $B531
|
|
15F5- B0 11 BCS $1608
|
|
15F7- 20 1F AC JSR $AC1F
|
|
15FA- B0 0C BCS $1608
|
|
15FC- 84 6B STY $6B
|
|
15FE- 84 69 STY $69
|