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