200000: 1111 4ef9 00f8 008a 0000 0000 ffff ffff ..N............. 200010: ffff ffff ffff ffff 0019 0009 0d0a 0a43 ...............C 200020: 6f6d 6d6f 646f 7265 2041 4d49 4741 2052 ommodore AMIGA R 200030: 4f4d 2042 6f6f 7473 7472 6170 0d0a 436f OM Bootstrap..Co 200040: 7079 7269 6768 7420 2843 2920 3139 3835 pyright (C) 1985 200050: 2c20 436f 6d6d 6f64 6f72 6520 416d 6967 , Commodore Amig 200060: 612c 2049 6e63 2e0d 0a41 6c6c 2072 6967 a, Inc...All rig 200070: 6874 7320 7265 7365 7276 6564 2e0d 0a00 hts reserved.... 200080:4e70 reset 200082:2079 move.l $f80004,A0 200088:4ed0 jmp (A0) 20008a:7000 moveq #$00,D0 ;Maximale wachttijd 20008c:223c move.l #$0000000a,D1 ;10 keer met ledje knipperen 200092:13fc move.b #$02,$bfe201 20009a:13fc move.b #$02,$bfe001 2000a2:51c8 dbf D0,$2000a2 2000a6:0879 bchg #1,$bfe001 ;led aan/uit 2000ae:51c9 dbf D1,$2000a2 2000b2:4e70 reset 2000b4:33fc move.w #$0444,$dff180 ;Beeld grijs maken 2000bc:4ff9 lea $040000,A7 ;Stack op $40000 2000c2:41fa lea -196(PC)(=$200000),A0 2000c6:b1fc cmpa.l #$00f00000,A0 2000cc:6720 beq.s $2000ee 2000ce:0c79 cmpi.w #$1111,$f00000 2000d6:6616 bne.s $2000ee ;Ga verder met KickStart controle 2000d8:33fc move.w #$0fff,$dff180 2000e0:4bf9 lea $f800ee,A5 ;Terug keeradres 2000e6:2079 move.l $f00004,A0 ;Spring naar extra ROM's 2000ec:4ed0 jmp (A0) 2000ee:13fc move.b #$03,$bfe201 ;Bit 0 & 1 op output zetten 2000f6:13fc move.b #$02,$bfe001 ;led aanzetten, Chipmem vrij geven 2000fe:287c move.l #$00dff000,A4 200104:3c3c move.w #$7fff,D6 200108:3946 move.w D6,154(A4) ;alle mogelijke interrupts uit zetten 20010c:3946 move.w D6,156(A4) 200110:3946 move.w D6,150(A4) 200114:41fa lea -250(PC)(=$20001c),A0 ;a0 -> Commodore enz 200118:4bf9 lea $f80122,A5 20011e:6000 bra.l $200284 ;jmp (a5) 200122:41f9 lea $fc0000,A0 200128:0c90 cmpi.l #$11114ef9,(A0) ;KickStart aanwezig ? 20012e:6614 bne.s $200144 ;Nee 200130:223c move.l #$00010000,D1 ;Aantal longWord van KickStart 200136:4bfa lea 6(PC)(=$20013e),A5 ;Terugkeer adres van ChkSum routine 20013a:6000 bra.l $2002a8 ;Klopt ChkSum 20013e:4a80 tst.l D0 200140:6700 beq.l $200262 ;Ja, verder doorstarten 200144:41fa lea -326(PC)(=$200000),A0 ;Geen Kickstart aanwezig 200148:b1fc cmpa.l #$00f80000,A0 20014e:6646 bne.s $200196 200150:45f9 lea $fc0000,A2 ;Start adres WOM 200156:47f9 lea $fffffe,A3 ;Eind adres WOM 20015c:4bfa lea 6(PC)(=$200164),A5 200160:6000 bra.l $2002c6 ;Test of geheugen goed is 200164:4a80 tst.l D0 200166:672e beq.s $200196 ;Ok 200168:33fc move.w #$00cc,$dff180 ;Cyaan kleur Geheugen fout 200170:41fa lea 12(PC)(=$20017e),A0 ;a0->FoutMelding (RAM-ROM failure) 200174:4bf9 lea $f80192,A5 20017a:6000 bra.l $200284 ;JMP(a5) 200170: 41fa 000c 4bf9 00f8 0192 6000 0108 0d0a A...K.....`..... 200180: 7261 6d2d 726f 6d2d 6661 696c 7572 650d ram-rom-failure. 200190: 0a00 6000 feec 45f8 0000 47f9 0003 fffe ..`...E...G..... 200192:6000 bra.l $200080 ;Opnieuw proberen (Reset) 200196:45f8 lea $0000,A2 ;Verder na controle WOM geheugen 20019a:47f9 lea $03fffe,A3 ;Einde RAM 2001a0:4bfa lea 6(PC)(=$2001a8),A5 ;Terugkeer adres (Nog geen stack) 2001a4:6000 bra.l $200360 ;Controle RAM geheugen 2001a8:4a80 tst.l D0 ;ok? 2001aa:6730 beq.s $2001dc ;Ja 2001ac:33fc move.w #$00c0,$dff180 ;Groen beeld : fout in RAM 2001b4:41fa lea 12(PC)(=$2001c2),A0 ;FoutMelding 2001b8:4bf9 lea $f801d8,A5 2001be:6000 bra.l $200284 ;JMP (a5) 2001c0: 00c4 0d0a 6c6f 6361 6c2d 7261 6d2d 6661 ....local-ram-fa 2001d0: 696c 7572 650d 0a00 6000 fea6 4bfa 0006 ilure...`...K... 2001d8:6000 bra.l $200080 ;Reset 2001dc:4bfa lea 6(PC)(=$2001e4),A5 2001e0:6000 bra.l $2007a2 ;Geluids kanalen testen 2001e4:307c move.w #$0008,A0 2001e8:323c move.w #$002d,D1 2001ec:43fa lea 10(PC)(=$2001f8),A1 2001f0:20c9 move.l A1,(A0)+ ;Installeer even interrupt routines 2001f2:51c9 dbf D1,$2001f0 2001f6:602e bra.s $200226 2001f8:33fc move.w #$0cc0,$dff180 ;Interrrupt routine 200200:41fa lea 12(PC)(=$20020e),A0 200204:4bf9 lea $f80222,A5 20020a:6000 bra.l $200284 ;JMP (a5) 200200: 41fa 000c 4bf9 00f8 0222 6000 0078 0d0a A...K...."`..x.. 200210: 626f 6f74 2d65 7863 6570 7469 6f6e 0d0a boot-exception.. 200220: 0000 6000 fe5c 33fc 0000 00df f180 4eb9 ..`..\3.......N. 200222:6000 bra.l $200080 ;Reset 200226:33fc move.w #$0000,$dff180 ;Maak beeld zwart 20022e:4eb9 jsr $f80a18 ;Lees KICKSTART in WOMw 200234:4a80 tst.l D0 ;Gelukt ? 200236:672a beq.s $200262 ;Ja voer KICKSTART uit 200238:41fa lea 12(PC)(=$200246),A0 20023c:4bf9 lea $f8025e,A5 200242:6000 bra.l $200284 ;JMP (a5) 200240: 025e 6000 0040 0d0a 6469 736b 2d62 6f6f .^`..@..disk-boo 200250: 742d 6661 696c 6564 213f 0d0a 0000 6000 t-failed!?....`. 20025e:6000 bra.l $200080 ;Reset 200262:33fc move.w #$0000,$dff180 ;Ga verder met kickstart in WOM 20026a:43f9 lea $f80000,A1 200270:2079 move.l $fc0004,A0 200276:7000 moveq #$00,D0 200278:2f39 move.l $f80280,-(A7) 20027e:4ed7 jmp (A7) 200280:3280 move.w D0,(A1) ;Dit staat op stack en hier wordt 200282:4ed0 jmp (A0) ;naar toe gesprongen ($fc0004) ;move.w d0,(a1) BootRom uitschakelen 200284:4ed5 jmp (A5) 200286:0000 200288:2401 move.l d1,d2 20028a:4842 swap D2 ;Copie van onderstaande routine 20028c:4280 clr.l D0 ;(Deze wordt echter niet gebrukt) 20028e:6008 bra.s $200298 200290:d058 add.w (A0)+,D0 200292:6404 bcc.s $200298 200294:0640 addi.w #$0001,D0 200298:51c9 dbf D1,$200290 20029c:51ca dbf D2,$200290 2002a0:4640 not.w D0 2002a2:6602 bne.s $2002a6 2002a4:4280 clr.l D0 2002a6:4ed5 jmp (A5) 2002a8:2401 move.l D1,D2 ;Bereken checksum van kickstart 2002aa:4842 swap D2 ;In WOM 2002ac:4280 clr.l D0 2002ae:600a bra.s $2002ba 2002b0:d098 add.l (A0)+,D0 2002b2:6406 bcc.s $2002ba 2002b4:0680 addi.l #$00000001,D0 2002ba:51c9 dbf D1,$2002b0 2002be:51ca dbf D2,$2002b0 2002c2:4680 not.l D0 2002c4:4ed5 jmp (A5) 2002c6:260b move.l A3,D3 ;WOM geheugen testen 2002c8:968a sub.l A2,D3 2002ca:e48b lsr.l #2,D3 2002cc:2803 move.l D3,D4 2002ce:4280 clr.l D0 2002d0:303c move.w #$0010,D0 2002d4:5800 addq.b #4,D0 2002d6:223c move.l #$aaaaaaaa,D1 2002dc:204a move.l A2,A0 2002de:2081 move.l D1,(A0) 2002e0:2418 move.l (A0)+,D2 2002e2:b481 cmp.l D1,D2 2002e4:6600 bne.l $2003e6 2002e8:51cb dbf D3,$2002de 2002ec:303c move.w #$0020,D0 2002f0:5800 addq.b #4,D0 2002f2:223c move.l #$55555555,D1 2002f8:204a move.l A2,A0 2002fa:2604 move.l D4,D3 2002fc:2081 move.l D1,(A0) 2002fe:2418 move.l (A0)+,D2 200300:b481 cmp.l D1,D2 200302:6600 bne.l $2003e6 200306:51cb dbf D3,$2002fc 20030a:303c move.w #$0040,D0 20030e:223c move.l #$77777777,D1 200314:e399 rol.l #1,D1 200316:204a move.l A2,A0 200318:2604 move.l D4,D3 20031a:20c1 move.l D1,(A0)+ 20031c:51cb dbf D3,$20031a 200320:204a move.l A2,A0 200322:2604 move.l D4,D3 200324:2410 move.l (A0),D2 200326:b481 cmp.l D1,D2 200328:6600 bne.l $2003e6 20032c:51cb dbf D3,$200324 200330:4a81 tst.l D1 200332:6be0 bmi.s $200314 200334:303c move.w #$0060,D0 200338:223c move.l #$88888888,D1 20033e:e399 rol.l #1,D1 200340:204a move.l A2,A0 200342:2604 move.l D4,D3 200344:20c1 move.l D1,(A0)+ 200346:51cb dbf D3,$200344 20034a:204a move.l A2,A0 20034c:2604 move.l D4,D3 20034e:2410 move.l (A0),D2 200350:b481 cmp.l D1,D2 200352:6600 bne.l $2003e6 200356:51cb dbf D3,$20034e 20035a:4a81 tst.l D1 20035c:6ae0 bpl.s $20033e 20035e:600a bra.s $20036a 200360:260b move.l A3,D3 ;Test normaal ram geheugen 200362:968a sub.l A2,D3 200364:e48b lsr.l #2,D3 200366:2803 move.l D3,D4 200368:4280 clr.l D0 20036a:303c move.w #$0070,D0 20036e:204a move.l A2,A0 200370:2604 move.l D4,D3 200372:20c8 move.l A0,(A0)+ 200374:51cb dbf D3,$200372 200378:204a move.l A2,A0 20037a:2604 move.l D4,D3 20037c:2208 move.l A0,D1 20037e:2418 move.l (A0)+,D2 200380:b481 cmp.l D1,D2 200382:6600 bne.l $2003e6 200386:51cb dbf D3,$20037c 20038a:303c move.w #$0080,D0 20038e:204a move.l A2,A0 200390:2604 move.l D4,D3 200392:2208 move.l A0,D1 200394:4681 not.l D1 200396:20c1 move.l D1,(A0)+ 200398:51cb dbf D3,$200392 20039c:204a move.l A2,A0 20039e:2604 move.l D4,D3 2003a0:2208 move.l A0,D1 2003a2:4681 not.l D1 2003a4:2418 move.l (A0)+,D2 2003a6:b481 cmp.l D1,D2 2003a8:6600 bne.l $2003e6 2003ac:51cb dbf D3,$2003a0 2003b0:303c move.w #$0090,D0 2003b4:204a move.l A2,A0 2003b6:4281 clr.l D1 2003b8:2604 move.l D4,D3 2003ba:e58b lsl.l #2,D3 2003bc:2a03 move.l D3,D5 2003be:4845 swap D5 2003c0:10c1 move.b D1,(A0)+ 2003c2:51cb dbf D3,$2003c0 2003c6:51cd dbf D5,$2003c0 2003ca:204a move.l A2,A0 2003cc:2604 move.l D4,D3 2003ce:5383 subq.l #1,D3 2003d0:e38b lsl.l #1,D3 2003d2:2a03 move.l D3,D5 2003d4:4845 swap D5 2003d6:3418 move.w (A0)+,D2 2003d8:b441 cmp.w D1,D2 2003da:660a bne.s $2003e6 2003dc:51cb dbf D3,$2003d6 2003e0:51cd dbf D5,$2003d6 2003e4:4280 clr.l D0 2003e6:90fc suba.w #$0004,A0 2003ea:4ed5 jmp (A5) ;Einde ram-test 2003ec:48e7 movem.l D3-D2,-(A7) 2003f0:260b move.l A3,D3 2003f2:968a sub.l A2,D3 2003f4:e48b lsr.l #2,D3 2003f6:204a move.l A2,A0 2003f8:4280 clr.l D0 2003fa:303c move.w #$00a0,D0 2003fe:2208 move.l A0,D1 200400:2410 move.l (A0),D2 200402:2081 move.l D1,(A0) 200404:b290 cmp.l (A0),D1 200406:6600 bne.l $20041c 20040a:4681 not.l D1 20040c:2081 move.l D1,(A0) 20040e:b290 cmp.l (A0),D1 200410:6600 bne.l $20041c 200414:20c2 move.l D2,(A0)+ 200416:51cb dbf D3,$2003fe 20041a:4280 clr.l D0 20041c:4cdf movem.l (A7)+,D3-D2 200420:4ed5 jmp (A5) 200422:33fc move.w #$01ff,$dff096 20042a:33fc move.w #$4000,$dff09a 200432:4280 clr.l D0 200434:303c move.w #$0101,D0 200438:33fc move.w #$7fff,$dff09e 200440:3839 move.w $dff010,D4 200446:0c44 cmpi.w #$0000,D4 20044a:6600 bne.l $200790 20044e:3a3c move.w #$000e,D5 200452:343c move.w #$8000,D2 200456:363c move.w #$0001,D3 20045a:3803 move.w D3,D4 20045c:d642 add.w D2,D3 20045e:33c3 move.w D3,$dff09e 200464:b879 cmp.w $dff010,D4 20046a:6600 bne.l $200790 20046e:e34b lsl.w #1,D3 200470:33fc move.w #$7fff,$dff09e 200478:51cd dbf D5,$20045a 20047c:303c move.w #$0102,D0 200480:33fc move.w #$ffff,$dff09e 200488:3839 move.w $dff010,D4 20048e:0c44 cmpi.w #$7fff,D4 200492:6600 bne.l $200790 200496:3a3c move.w #$000e,D5 20049a:363c move.w #$0001,D3 20049e:383c move.w #$7fff,D4 2004a2:b744 eor.w D3,D4 2004a4:33c3 move.w D3,$dff09e 2004aa:b879 cmp.w $dff010,D4 2004b0:6600 bne.l $200790 2004b4:e34b lsl.w #1,D3 2004b6:33fc move.w #$ffff,$dff09e 2004be:51cd dbf D5,$20049e 2004c2:33fc move.w #$7fff,$dff09e 2004ca:303c move.w #$0103,D0 2004ce:3239 move.w $dff00e,D1 2004d4:3239 move.w $dff00e,D1 2004da:0241 andi.w #$7fff,D1 2004de:0c41 cmpi.w #$0000,D1 2004e2:6600 bne.l $200790 2004e6:303c move.w #$0104,D0 2004ea:33fc move.w #$07ff,$dff096 2004f2:3839 move.w $dff002,D4 2004f8:0244 andi.w #$07ff,D4 2004fc:0c44 cmpi.w #$0000,D4 200500:6600 bne.l $200790 200504:3a3c move.w #$000a,D5 200508:343c move.w #$8000,D2 20050c:363c move.w #$0001,D3 200510:3803 move.w D3,D4 200512:d642 add.w D2,D3 200514:33c3 move.w D3,$dff096 20051a:3239 move.w $dff002,D1 200520:0241 andi.w #$07ff,D1 200524:b841 cmp.w D1,D4 200526:6600 bne.l $200790 20052a:e34b lsl.w #1,D3 20052c:33fc move.w #$07ff,$dff096 200534:51cd dbf D5,$200510 200538:303c move.w #$0105,D0 20053c:33fc move.w #$87ff,$dff096 200544:3839 move.w $dff002,D4 20054a:0244 andi.w #$07ff,D4 20054e:0c44 cmpi.w #$07ff,D4 200552:6600 bne.l $200790 200556:3a3c move.w #$000a,D5 20055a:363c move.w #$0001,D3 20055e:383c move.w #$07ff,D4 200562:b744 eor.w D3,D4 200564:33c3 move.w D3,$dff096 20056a:3239 move.w $dff002,D1 200570:0241 andi.w #$07ff,D1 200574:b841 cmp.w D1,D4 200576:6600 bne.l $200790 20057a:e34b lsl.w #1,D3 20057c:33fc move.w #$87ff,$dff096 200584:51cd dbf D5,$20055e 200588:33fc move.w #$07ff,$dff096 200590:303c move.w #$0106,D0 200594:33fc move.w #$7fff,$dff09a 20059c:33fc move.w #$7fff,$dff09c 2005a4:3839 move.w $dff01e,D4 2005aa:0c44 cmpi.w #$0000,D4 2005ae:6600 bne.l $200790 2005b2:3a3c move.w #$000a,D5 2005b6:343c move.w #$8000,D2 2005ba:363c move.w #$0001,D3 2005be:3803 move.w D3,D4 2005c0:d642 add.w D2,D3 2005c2:33c3 move.w D3,$dff09c 2005c8:3239 move.w $dff01e,D1 2005ce:b841 cmp.w D1,D4 2005d0:6600 bne.l $200790 2005d4:e34b lsl.w #1,D3 2005d6:0c43 cmpi.w #$0004,D3 2005da:67f8 beq.s $2005d4 2005dc:0c43 cmpi.w #$0008,D3 2005e0:67f2 beq.s $2005d4 2005e2:0c43 cmpi.w #$0020,D3 2005e6:67ec beq.s $2005d4 2005e8:33fc move.w #$7fff,$dff09c 2005f0:51cd dbf D5,$2005be 2005f4:303c move.w #$0107,D0 2005f8:33fc move.w #$bfff,$dff09c 200600:3839 move.w $dff01e,D4 200606:0c44 cmpi.w #$3fff,D4 20060a:6600 bne.l $200790 20060e:3a3c move.w #$000a,D5 200612:363c move.w #$0001,D3 200616:383c move.w #$3fff,D4 20061a:b744 eor.w D3,D4 20061c:33c3 move.w D3,$dff09c 200622:3239 move.w $dff01e,D1 200628:b841 cmp.w D1,D4 20062a:6600 bne.l $200790 20062e:e34b lsl.w #1,D3 200630:33fc move.w #$bfff,$dff09c 200638:51cd dbf D5,$200616 20063c:33fc move.w #$7fff,$dff09c 200644:303c move.w #$0108,D0 200648:33fc move.w #$7fff,$dff09a 200650:3839 move.w $dff01c,D4 200656:0c44 cmpi.w #$0000,D4 20065a:6600 bne.l $200790 20065e:3a3c move.w #$000d,D5 200662:343c move.w #$8000,D2 200666:363c move.w #$0001,D3 20066a:3803 move.w D3,D4 20066c:d642 add.w D2,D3 20066e:33c3 move.w D3,$dff09a 200674:3239 move.w $dff01c,D1 20067a:b841 cmp.w D1,D4 20067c:6600 bne.l $200790 200680:e34b lsl.w #1,D3 200682:33fc move.w #$7fff,$dff09a 20068a:51cd dbf D5,$20066a 20068e:303c move.w #$0109,D0 200692:33fc move.w #$bfff,$dff09a 20069a:3839 move.w $dff01c,D4 2006a0:0c44 cmpi.w #$3fff,D4 2006a4:6600 bne.l $200790 2006a8:3a3c move.w #$000d,D5 2006ac:363c move.w #$0001,D3 2006b0:383c move.w #$3fff,D4 2006b4:b744 eor.w D3,D4 2006b6:33c3 move.w D3,$dff09a 2006bc:3239 move.w $dff01c,D1 2006c2:b841 cmp.w D1,D4 2006c4:6600 bne.l $200790 2006c8:e34b lsl.w #1,D3 2006ca:33fc move.w #$bfff,$dff09a 2006d2:51cd dbf D5,$2006b0 2006d6:33fc move.w #$4000,$dff09a 2006de:33fc move.w #$fcfc,$dff036 2006e6:3439 move.w $dff00a,D2 2006ec:3639 move.w $dff00c,D3 2006f2:303c move.w #$010b,D0 2006f6:0c42 cmpi.w #$fcfc,D2 2006fa:6600 bne.l $200790 2006fe:303c move.w #$010c,D0 200702:0c43 cmpi.w #$fcfc,D3 200706:6600 bne.l $200790 20070a:33fc move.w #$0000,$dff036 200712:3439 move.w $dff00a,D2 200718:3639 move.w $dff00c,D3 20071e:303c move.w #$010d,D0 200722:0c42 cmpi.w #$0000,D2 200726:6600 bne.l $200790 20072a:303c move.w #$010e,D0 20072e:0c43 cmpi.w #$0000,D3 200732:6600 bne.l $200790 200736:33fc move.w #$a8a8,$dff036 20073e:3439 move.w $dff00a,D2 200744:3639 move.w $dff00c,D3 20074a:303c move.w #$010f,D0 20074e:0c42 cmpi.w #$a8a8,D2 200752:6600 bne.l $200790 200756:303c move.w #$0110,D0 20075a:0c43 cmpi.w #$a8a8,D3 20075e:6600 bne.l $200790 200762:33fc move.w #$5454,$dff036 20076a:3439 move.w $dff00a,D2 200770:3639 move.w $dff00c,D3 200776:303c move.w #$0111,D0 20077a:0c42 cmpi.w #$5454,D2 20077e:6600 bne.l $200790 200782:303c move.w #$0112,D0 200786:0c43 cmpi.w #$5454,D3 20078a:6600 bne.l $200790 20078e:4280 clr.l D0 200790:33fc move.w #$01ff,$dff096 200798:33fc move.w #$4000,$dff09a 2007a0:4ed5 jmp (A5) 2007a2:48e7 movem.l A3-A2/D3-D2,-(A7) ;Geluids kanalen testen 2007a6:4e56 link A6,#0 2007aa:33fc move.w #$01ff,$dff096 2007b2:33fc move.w #$8200,$dff096 2007ba:33fc move.w #$4000,$dff09a 2007c2:4282 clr.l D2 2007c4:41f9 lea $f80a14,A0 2007ca:3f20 move.w -(A0),-(A7) 2007cc:5242 addq.w #1,D2 2007ce:4a50 tst.w (A0) 2007d0:66f8 bne.s $2007ca 2007d2:5342 subq.w #1,D2 2007d4:3f02 move.w D2,-(A7) 2007d6:244f move.l A7,A2 2007d8:303c move.w #$0000,D0 2007dc:363c move.w #$0005,D3 2007e0:343c move.w #$ff00,D2 2007e4:4eb9 jsr $f8095a ;Zorgen dat A0 naar het juiste adres wijst 2007ea:323c move.w #$00ca,D1 2007ee:264a move.l A2,A3 2007f0:4eb9 jsr $f80974 ;Alle geluids registers goed zetten 2007f6:4eb9 jsr $f80988 2007fc:303c move.w #$0003,D0 200800:363c move.w #$0005,D3 200804:343c move.w #$ffff,D2 200808:4eb9 jsr $f8095a 20080e:323c move.w #$0087,D1 200812:264a move.l A2,A3 200814:4eb9 jsr $f80974 20081a:4eb9 jsr $f80988 200820:303c move.w #$0000,D0 200824:363c move.w #$0005,D3 200828:343c move.w #$0200,D2 20082c:4eb9 jsr $f8095a 200832:323c move.w #$00a0,D1 200836:264a move.l A2,A3 200838:4eb9 jsr $f80974 20083e:4eb9 jsr $f80988 200844:303c move.w #$0003,D0 200848:363c move.w #$0005,D3 20084c:343c move.w #$ff00,D2 200850:4eb9 jsr $f8095a 200856:323c move.w #$00ca,D1 20085a:264a move.l A2,A3 20085c:4eb9 jsr $f80974 200862:4eb9 jsr $f80988 200868:303c move.w #$0000,D0 20086c:363c move.w #$0005,D3 200870:343c move.w #$ff00,D2 200874:4eb9 jsr $f8095a 20087a:323c move.w #$00b4,D1 20087e:264a move.l A2,A3 200880:4eb9 jsr $f80974 200886:4eb9 jsr $f80988 20088c:303c move.w #$0001,D0 200890:363c move.w #$0005,D3 200894:343c move.w #$ff00,D2 200898:4eb9 jsr $f8095a 20089e:323c move.w #$00a0,D1 2008a2:264a move.l A2,A3 2008a4:4eb9 jsr $f80974 2008aa:4eb9 jsr $f80988 2008b0:303c move.w #$0002,D0 2008b4:363c move.w #$0005,D3 2008b8:343c move.w #$ff00,D2 2008bc:4eb9 jsr $f8095a 2008c2:323c move.w #$0097,D1 2008c6:264a move.l A2,A3 2008c8:4eb9 jsr $f80974 2008ce:4eb9 jsr $f80988 2008d4:303c move.w #$0001,D0 2008d8:363c move.w #$0005,D3 2008dc:343c move.w #$ff00,D2 2008e0:4eb9 jsr $f8095a 2008e6:323c move.w #$00a0,D1 2008ea:264a move.l A2,A3 2008ec:4eb9 jsr $f80974 2008f2:4eb9 jsr $f80988 2008f8:303c move.w #$0002,D0 2008fc:363c move.w #$0005,D3 200900:343c move.w #$ff00,D2 200904:4eb9 jsr $f8095a 20090a:323c move.w #$00b4,D1 20090e:264a move.l A2,A3 200910:4eb9 jsr $f80974 200916:4eb9 jsr $f80988 20091c:303c move.w #$0001,D0 200920:363c move.w #$0005,D3 200924:343c move.w #$ff00,D2 200928:4eb9 jsr $f8095a 20092e:323c move.w #$00b4,D1 200932:264a move.l A2,A3 200934:4eb9 jsr $f80974 20093a:4eb9 jsr $f80988 200940:33fc move.w #$01ff,$dff096 200948:33fc move.w #$4000,$dff09a 200950:4280 clr.l D0 200952:4e5e unlk A6 200954:4cdf movem.l (A7)+,A3-A2/D3-D2 200958:4ed5 jmp (A5) 20095a:3200 move.w D0,D1 ;d0 is kanaal nummer 20095c:303c move.w #$0010,D0 200960:c0c1 mulu D1,D0 200962:207c move.l #$00dff0a0,A0 ;AUD0LCH 200968:41f0 lea 0(A0,D0.W),A0 ;a0 -> AUDO LCH van kanaal D0 20096c:303c move.w #$0001,D0 200970:e368 lsl.w D1,D0 200972:4e75 rts 200974:315b move.w (A3)+,4(A0) ;AUD0LEN (Lengte van signaal in W) 200978:214b move.l A3,0(A0) ;AUD0LCH (Signaal vorm) 20097c:3141 move.w D1,6(A0) ;AUD0PER periode duur 200980:317c move.w #$0000,8(A0) ;AUD0VOL Volume 200986:4e75 rts 200988:2f00 move.l D0,-(A7) ;D0 geeft bit aan dat gezet moet worden 20098a:0040 ori.w #$8000,D0 20098e:33c0 move.w D0,$dff096 ;DMACON van betreffende kanaal aan 200994:3203 move.w D3,D1 200996:5341 subq.w #1,D1 200998:327c move.w #$0000,A1 ; 20099c:3149 move.w A1,8(A0) ;Volume goed zetten 2009a0:5249 addq.w #1,A1 2009a2:303c move.w #$0020,D0 ;Constante 2009a6:51c8 dbf D0,$2009a6 ;Snelheid van volume toename 2009aa:51c9 dbf D1,$20099c ;Lus om volume te laten toenemen(d3) 2009ae:51ca dbf D2,$2009ae ;WachtLus (D2)(Van te voren gezet) 2009b2:3203 move.w D3,D1 2009b4:3141 move.w D1,8(A0) 2009b8:303c move.w #$0080,D0 ;Snelheid volumen afname 2009bc:51c8 dbf D0,$2009bc ;Wacht 2009c0:51c9 dbf D1,$2009b4 ;Laadt volume weer afnemen 2009c4:201f move.l (A7)+,D0 2009c6:0240 andi.w #$000f,D0 2009ca:33c0 move.w D0,$dff096 ;DMACON weer uit zetten 2009d0:4e75 rts ;Stop ***** geluid data 2009d2: 0000 000d 1925 313c 4751 5b63 6a71 767a .....%1 'KICK' 200ab2:1030 move.b 0(A0,D0.W),D0 200ab6:3202 move.w D2,D1 200ab8:204a move.l A2,A0 ;A2 -> Buffer van eerste block 200aba:b030 cmp.b 0(A0,D1.W),D0 ;Karakters gelijk 200abe:6600 bne.l $200ae8 ;Nee, stop 200ac2:5282 addq.l #1,D2 200ac4:7004 moveq #$04,D0 ;Al vier karakters gehad ?? 200ac6:b082 cmp.l D2,D0 200ac8:6ee0 bgt.s $200aaa ;Volgende Karakter controleren 200aca:283c move.l #$00fc0000,D4 ;Begin Adres van WOM 200ad0:7401 moveq #$01,D2 ;Begin met blok in te lezen 200ad2:2f02 move.l D2,-(A7) ;Zet block nummer op stack 200ad4:2f04 move.l D4,-(A7) ;Zet adres van WOM op stack 200ad6:486e pea -20(A6) 200ada:4eb9 jsr $f81890 ;Block lezen 200ae0:2600 move.l D0,D3 200ae2:4fef lea 12(A7),A7 ;Stack bijwerken 200ae6:6722 beq.s $200b0a 200ae8:486e pea -20(A6) ;Geen kickStart gelezen of leesfout 200aec:4eb9 jsr $f80ec8 200af2:2f05 move.l D5,-(A7) 200af4:486e pea -1(A6) 200af8:486e pea -20(A6) 200afc:4eb9 jsr $f80b38 200b02:4fef lea 16(A7),A7 200b06:6000 bra.l $200a70 ;Opnieuw proberen 200b0a:0684 addi.l #$00000200,D4 ;Volgende block 200b10:5282 addq.l #1,D2 200b12:0c82 cmpi.l #$00000200,D2 ;Zijn er 512 blokken ingelezen ? 200b18:6fb8 ble.s $200ad2 ;Nee, lees volgende 200b1a:486e pea -20(A6) 200b1e:4eb9 jsr $f80ec8 200b24:33fc move.w #$7fff,$dff096 200b2c:7000 moveq #$00,D0 200b2e:588f addq.l #4,A7 200b30:4cdf movem.l (A7)+,A2/D5-D2 200b34:4e5e unlk A6 200b36:4e75 rts 200b38:48e7 movem.l A2/D4-D2,-(A7) 200b3c:262f move.l 20(A7),D3 200b40:246f move.l 24(A7),A2 200b44:242f move.l 28(A7),D2 200b48:383c move.w #$0100,D4 200b4c:2f03 move.l D3,-(A7) 200b4e:4eb9 jsr $f80d80 200b54:0c12 cmpi.b #$01,(A2) 200b58:588f addq.l #4,A7 200b5a:670e beq.s $200b6a 200b5c:2f02 move.l D2,-(A7) 200b5e:4eb9 jsr $f813a0 200b64:14bc move.b #$01,(A2) 200b68:588f addq.l #4,A7 200b6a:4eb9 jsr $f813d6 200b70:3404 move.w D4,D2 200b72:0042 ori.w #$8000,D2 200b76:33c2 move.w D2,$dff096 200b7c:7000 moveq #$00,D0 200b7e:1039 move.b $bfe001,D0 200b84:72fb moveq #$fb,D1 200b86:8081 or.l D1,D0 200b88:72ff moveq #$ff,D1 200b8a:b280 cmp.l D0,D1 200b8c:56c2 sne D2 200b8e:4402 neg.b D2 200b90:67ea beq.s $200b7c 200b92:7400 moveq #$00,D2 200b94:1439 move.b $bfe001,D2 200b9a:70fb moveq #$fb,D0 200b9c:8480 or.l D0,D2 200b9e:72ff moveq #$ff,D1 200ba0:b282 cmp.l D2,D1 200ba2:6720 beq.s $200bc4 200ba4:2f3c move.l #$0007a120,-(A7) 200baa:4eb9 jsr $f80db4 200bb0:0a39 eori.b #$02,$bfd100 200bb8:2f03 move.l D3,-(A7) 200bba:4eb9 jsr $f80dd4 200bc0:508f addq.l #8,A7 200bc2:60ce bra.s $200b92 200bc4:2f03 move.l D3,-(A7) 200bc6:4eb9 jsr $f80da6 200bcc:33c4 move.w D4,$dff096 200bd2:588f addq.l #4,A7 200bd4:4cdf movem.l (A7)+,A2/D4-D2 200bd8:4e75 rts 200bda:dc.w $0000,$4b49,$434b '.KICK' 200be0:48e7 movem.l A3-A2/D2,-(A7) ;Init Disk 200be4:206f move.l 16(A7),A0 200be8:222f move.l 20(A7),D1 200bec:242f move.l 24(A7),D2 200bf0:267c move.l #$00dff000,A3 200bf6:227c move.l #$00f80ef0,A1 200bfc:2448 move.l A0,A2 200bfe:7011 moveq #$11,D0 200c00:14d9 move.b (A1)+,(A2)+ 200c02:51c8 dbf D0,$200c00 200c06:0239 andi.b #$c3,$bfe201 ;DATA DIRECTION REGISTER A CIA-A 200c0e:13fc move.b #$ff,$bfd100 ;PORT REGISTER B CIA-B 200c16:13fc move.b #$ff,$bfd300 ;DATA DIRECTION REGISTER B CIA-B 200c1e:7001 moveq #$01,D0 200c20:5601 addq.b #3,D1 200c22:e3a0 asl.l D1,D0 200c24:1080 move.b D0,(A0) 200c26:2142 move.l D2,6(A0) 200c2a:377c move.w #$7fff,154(A3) ;INTENA 200c30:377c move.w #$8210,150(A3) ;DMACON 200c36:377c move.w #$7f00,158(A3) ;ADKCON 200c3c:377c move.w #$8500,158(A3) ;ADKCON 200c42:377c move.w #$4489,126(A3) ;DISKSYNC 200c48:4cdf movem.l (A7)+,A3-A2/D2 200c4c:4e75 rts 200c4e:48e7 movem.l A3-A2,-(A7) 200c52:246f move.l 12(A7),A2 200c56:267c move.l #$00bfd100,A3 200c5c:2f0a move.l A2,-(A7) 200c5e:4eb9 jsr $f80d80 200c64:426a clr.w 4(A2) 200c68:0013 ori.b #$04,(A3) ;\Side = 1 200c6c:0213 andi.b #$fd,(A3) ;Dir = 0 (79 -> 0) 200c70:588f addq.l #4,A7 200c72:7000 moveq #$00,D0 200c74:1039 move.b $bfe001,D0 200c7a:72ef moveq #$ef,D1 200c7c:8081 or.l D1,D0 200c7e:72ff moveq #$ff,D1 200c80:b280 cmp.l D0,D1 200c82:670c beq.s $200c90 ;Bij track 0 aangekomen 200c84:2f0a move.l A2,-(A7) 200c86:4eb9 jsr $f80dd4 ;Step 200c8c:588f addq.l #4,A7 200c8e:60e2 bra.s $200c72 ;Controle track 0 200c90:0013 ori.b #$02,(A3) ;Dir = 1 (0 -> 79) 200c94:7000 moveq #$00,D0 200c96:1039 move.b $bfe001,D0 ; 200c9c:72ef moveq #$ef,D1 200c9e:8081 or.l D1,D0 200ca0:72ff moveq #$ff,D1 200ca2:b280 cmp.l D0,D1 200ca4:6600 bne.l $200cb4 ;Niet bij track 0 aangekomen 200ca8:2f0a move.l A2,-(A7) 200caa:4eb9 jsr $f80dd4 ;step 200cb0:588f addq.l #4,A7 200cb2:60e0 bra.s $200c94 200cb4:4878 pea $3a98 200cb8:4eb9 jsr $f80db4 200cbe:2f0a move.l A2,-(A7) 200cc0:4eb9 jsr $f80da6 200cc6:508f addq.l #8,A7 200cc8:4cdf movem.l (A7)+,A3-A2 200ccc:4e75 rts 200cce:48e7 movem.l A3-A2/D6-D2,-(A7) 200cd2:246f move.l 32(A7),A2 200cd6:242f move.l 36(A7),D2 200cda:7000 moveq #$00,D0 200cdc:267c move.l #$00bfd100,A3 200ce2:2c02 move.l D2,D6 200ce4:7001 moveq #$01,D0 200ce6:cc80 and.l D0,D6 200ce8:2802 move.l D2,D4 200cea:e284 asr.l #1,D4 200cec:3a2a move.w 4(A2),D5 200cf0:48c5 ext.l D5 200cf2:7001 moveq #$01,D0 200cf4:ca80 and.l D0,D5 200cf6:362a move.w 4(A2),D3 200cfa:48c3 ext.l D3 200cfc:e283 asr.l #1,D3 200cfe:302a move.w 4(A2),D0 200d02:48c0 ext.l D0 200d04:b082 cmp.l D2,D0 200d06:6700 beq.l $200d7a 200d0a:2f0a move.l A2,-(A7) 200d0c:4eb9 jsr $f80d80 200d12:ba86 cmp.l D6,D5 200d14:588f addq.l #4,A7 200d16:671a beq.s $200d32 200d18:4a86 tst.l D6 200d1a:6706 beq.s $200d22 200d1c:0213 andi.b #$fb,(A3) 200d20:6004 bra.s $200d26 200d22:0013 ori.b #$04,(A3) 200d26:4878 pea $00c8 200d2a:4eb9 jsr $f80db4 200d30:588f addq.l #4,A7 200d32:b684 cmp.l D4,D3 200d34:6736 beq.s $200d6c 200d36:b684 cmp.l D4,D3 200d38:6c0a bge.s $200d44 200d3a:0213 andi.b #$fd,(A3) 200d3e:2a04 move.l D4,D5 200d40:9a83 sub.l D3,D5 200d42:6008 bra.s $200d4c 200d44:0013 ori.b #$02,(A3) 200d48:2a03 move.l D3,D5 200d4a:9a84 sub.l D4,D5 200d4c:2005 move.l D5,D0 200d4e:5385 subq.l #1,D5 200d50:2000 move.l D0,D0 200d52:670c beq.s $200d60 200d54:2f0a move.l A2,-(A7) 200d56:4eb9 jsr $f80dd4 200d5c:588f addq.l #4,A7 200d5e:60ec bra.s $200d4c 200d60:4878 pea $3a98 200d64:4eb9 jsr $f80db4 200d6a:588f addq.l #4,A7 200d6c:3542 move.w D2,4(A2) 200d70:2f0a move.l A2,-(A7) 200d72:4eb9 jsr $f80da6 200d78:588f addq.l #4,A7 200d7a:4cdf movem.l (A7)+,A3-A2/D6-D2 200d7e:4e75 rts 200d80:206f move.l 4(A7),A0 200d84:227c move.l #$00bfd100,A1 200d8a:0011 ori.b #$80,(A1) ;Motor uit 200d8e:0828 btst #7,1(A0) 200d94:56c0 sne D0 200d96:4400 neg.b D0 200d98:ef08 lsl.b #7,D0 200d9a:4600 not.b D0 200d9c:c111 and.b D0,(A1) 200d9e:1010 move.b (A0),D0 200da0:4600 not.b D0 200da2:c111 and.b D0,(A1) 200da4:4e75 rts 200da6:202f move.l 4(A7),D0 200daa:0039 ori.b #$78,$bfd100 ;Alle SELx leidingen hoog 200db2:4e75 rts 200db4:2f02 move.l D2,-(A7) 200db6:242f move.l 8(A7),D2 200dba:2002 move.l D2,D0 200dbc:e480 asr.l #2,D0 200dbe:2400 move.l D0,D2 200dc0:5382 subq.l #1,D2 200dc2:6708 beq.s $200dcc 200dc4:4eb9 jsr $f80dd0 200dca:60f4 bra.s $200dc0 200dcc:241f move.l (A7)+,D2 200dce:4e75 rts 200dd0:7000 moveq #$00,D0 200dd2:4e75 rts 200dd4:202f move.l 4(A7),D0 200dd8:0239 andi.b #$fe,$bfd100 ; 200de0:0039 ori.b #$01,$bfd100 ;Een step puls 200de8:4878 pea $0bb8 200dec:4eba jsr -58(PC)(=$200db4) 200df0:588f addq.l #4,A7 200df2:4e75 rts 200df4:48e7 movem.l A3-A2/D6-D2,-(A7) 200df8:246f move.l 32(A7),A2 200dfc:2c3c move.l #$000036f2,D6 200e02:7800 moveq #$00,D4 200e04:7000 moveq #$00,D0 200e06:2a3c move.l #$00030d40,D5 200e0c:267c move.l #$00dff000,A3 200e12:206a move.l 6(A2),A0 200e16:5c88 addq.l #6,A0 200e18:2408 move.l A0,D2 200e1a:377c move.w #$0002,156(A3) 200e20:2742 move.l D2,32(A3) 200e24:2f0a move.l A2,-(A7) 200e26:4eba jsr -168(PC)(=$200d80) 200e2a:7400 moveq #$00,D2 200e2c:1439 move.b $bfe001,D2 200e32:76fb moveq #$fb,D3 200e34:8483 or.l D3,D2 200e36:76ff moveq #$ff,D3 200e38:b682 cmp.l D2,D3 200e3a:588f addq.l #4,A7 200e3c:6600 bne.l $200e82 200e40:426b clr.w 36(A3) 200e44:2006 move.l D6,D0 200e46:e280 asr.l #1,D0 200e48:0080 ori.l #$00008000,D0 200e4e:3740 move.w D0,36(A3) 200e52:3740 move.w D0,36(A3) 200e56:5385 subq.l #1,D5 200e58:6c06 bge.s $200e60 200e5a:7416 moveq #$16,D2 200e5c:2002 move.l D2,D0 200e5e:602e bra.s $200e8e 200e60:7000 moveq #$00,D0 200e62:302b move.w 30(A3),D0 200e66:0800 btst #1,D0 200e6a:67ea beq.s $200e56 200e6c:426b clr.w 36(A3) 200e70:7400 moveq #$00,D2 200e72:1439 move.b $bfe001,D2 200e78:76fb moveq #$fb,D3 200e7a:8483 or.l D3,D2 200e7c:76ff moveq #$ff,D3 200e7e:b682 cmp.l D2,D3 200e80:6702 beq.s $200e84 200e82:7819 moveq #$19,D4 200e84:2f0a move.l A2,-(A7) 200e86:4eba jsr -226(PC)(=$200da6) 200e8a:2004 move.l D4,D0 200e8c:588f addq.l #4,A7 200e8e:4cdf movem.l (A7)+,A3-A2/D6-D2 200e92:4e75 rts 200e94:2f0a move.l A2,-(A7) ;a2 = $fc0000 200e96:246f move.l 8(A7),A2 200e9a:082a btst #7,1(A2) 200ea0:6600 bne.l $200ec4 200ea4:08ea bset #7,1(A2) 200eaa:2f0a move.l A2,-(A7) 200eac:4eba jsr -302(PC)(=$200d80) ;Motor uit + extra's 200eb0:2f0a move.l A2,-(A7) 200eb2:4eba jsr -270(PC)(=$200da6) ;Niet een drive selecteren 200eb6:2f3c move.l #$0007a120,-(A7) 200ebc:4eba jsr -266(PC)(=$200db4) 200ec0:4fef lea 12(A7),A7 200ec4:245f move.l (A7)+,A2 200ec6:4e75 rts 200ec8:2f0a move.l A2,-(A7) 200eca:246f move.l 8(A7),A2 200ece:082a btst #7,1(A2) 200ed4:6700 beq.l $200eec 200ed8:08aa bclr #7,1(A2) 200ede:2f0a move.l A2,-(A7) 200ee0:4eba jsr -354(PC)(=$200d80) 200ee4:2f0a move.l A2,-(A7) 200ee6:4eba jsr -322(PC)(=$200da6) 200eea:508f addq.l #8,A7 200eec:245f move.l (A7)+,A2 200eee:4e75 rts 200ef0:0000 ori.b #$00,D0 200ef4:0000 ori.b #$00,D0 200ef8:0000 ori.b #$00,D0 200efc:0000 ori.b #$00,D0 200f00:0000 ori.b #$00,D0 200f04:2f02 move.l D2,-(A7) 200f06:202f move.l 8(A7),D0 200f0a:243c move.l #$55555555,D2 200f10:2040 move.l D0,A0 200f12:5888 addq.l #4,A0 200f14:2210 move.l (A0),D1 200f16:c282 and.l D2,D1 200f18:2040 move.l D0,A0 200f1a:2010 move.l (A0),D0 200f1c:c082 and.l D2,D0 200f1e:e388 lsl.l #1,D0 200f20:8280 or.l D0,D1 200f22:2001 move.l D1,D0 200f24:241f move.l (A7)+,D2 200f26:4e75 rts 200f28:48e7 movem.l A2/D4-D2,-(A7) 200f2c:202f move.l 20(A7),D0 200f30:262f move.l 24(A7),D3 200f34:222f move.l 28(A7),D1 200f38:243c move.l #$55555555,D2 200f3e:2241 move.l D1,A1 200f40:d280 add.l D0,D1 200f42:2441 move.l D1,A2 200f44:2800 move.l D0,D4 200f46:2043 move.l D3,A0 200f48:6010 bra.s $200f5a 200f4a:221a move.l (A2)+,D1 200f4c:c282 and.l D2,D1 200f4e:2019 move.l (A1)+,D0 200f50:c082 and.l D2,D0 200f52:e388 lsl.l #1,D0 200f54:8280 or.l D0,D1 200f56:20c1 move.l D1,(A0)+ 200f58:5984 subq.l #4,D4 200f5a:4a84 tst.l D4 200f5c:62ec bhi.s $200f4a 200f5e:4cdf movem.l (A7)+,A2/D4-D2 200f62:4e75 rts 200f64:2f02 move.l D2,-(A7) 200f66:202f move.l 8(A7),D0 200f6a:222f move.l 12(A7),D1 200f6e:2400 move.l D0,D2 200f70:2040 move.l D0,A0 200f72:d1c1 adda.l D1,A0 200f74:2008 move.l A0,D0 200f76:b480 cmp.l D0,D2 200f78:6426 bcc.s $200fa0 200f7a:2042 move.l D2,A0 200f7c:0c50 cmpi.w #$4489,(A0) 200f80:661a bne.s $200f9c 200f82:2042 move.l D2,A0 200f84:5488 addq.l #2,A0 200f86:0c50 cmpi.w #$4489,(A0) 200f8a:6608 bne.s $200f94 200f8c:2042 move.l D2,A0 200f8e:5988 subq.l #4,A0 200f90:2008 move.l A0,D0 200f92:600e bra.s $200fa2 200f94:2042 move.l D2,A0 200f96:5d88 subq.l #6,A0 200f98:2008 move.l A0,D0 200f9a:6006 bra.s $200fa2 200f9c:5482 addq.l #2,D2 200f9e:60d6 bra.s $200f76 200fa0:7000 moveq #$00,D0 200fa2:241f move.l (A7)+,D2 200fa4:4e75 rts 200fa6:4e56 link A6,#-4 200faa:48e7 movem.l A3-A2/D6-D2,-(A7) 200fae:246e move.l 8(A6),A2 200fb2:7800 moveq #$00,D4 200fb4:206a move.l 6(A2),A0 200fb8:5c88 addq.l #6,A0 200fba:2008 move.l A0,D0 200fbc:2040 move.l D0,A0 200fbe:0c50 cmpi.w #$4489,(A0) 200fc2:6706 beq.s $200fca 200fc4:7816 moveq #$16,D4 200fc6:6000 bra.l $2010c4 200fca:2040 move.l D0,A0 200fcc:5488 addq.l #2,A0 200fce:0c50 cmpi.w #$4489,(A0) 200fd2:6608 bne.s $200fdc 200fd4:2040 move.l D0,A0 200fd6:5988 subq.l #4,A0 200fd8:2648 move.l A0,A3 200fda:6006 bra.s $200fe2 200fdc:2040 move.l D0,A0 200fde:5d88 subq.l #6,A0 200fe0:2648 move.l A0,A3 200fe2:36bc move.w #$aaaa,(A3) 200fe6:377c move.w #$aaaa,2(A3) 200fec:377c move.w #$4489,4(A3) ;DISKSYNC 200ff2:254b move.l A3,10(A2) 200ff6:486b pea 8(A3) 200ffa:4eb9 jsr $f80f04 201000:2d40 move.l D0,-4(A6) 201004:486e pea -4(A6) 201008:2f0b move.l A3,-(A7) 20100a:2f0a move.l A2,-(A7) 20100c:4eb9 jsr $f81114 201012:2800 move.l D0,D4 201014:4fef lea 16(A7),A7 201018:6600 bne.l $2010c4 20101c:156e move.b -1(A6),3(A2) 201022:156e move.b -2(A6),2(A2) 201028:0c2a cmpi.b #$0b,3(A2) 20102e:642e bcc.s $20105e 201030:4878 pea $0d64 201034:7400 moveq #$00,D2 201036:142a move.b 3(A2),D2 20103a:c4fc mulu #$0440,D2 20103e:2042 move.l D2,A0 201040:d1cb adda.l A3,A0 201042:4850 pea (A0) 201044:4eba jsr -226(PC)(=$200f64) 201048:2640 move.l D0,A3 20104a:254b move.l A3,14(A2) 20104e:cd8b exg D6,A3 201050:4a86 tst.l D6 201052:cd8b exg D6,A3 201054:508f addq.l #8,A7 201056:660a bne.s $201062 201058:7817 moveq #$17,D4 20105a:6000 bra.l $2010c4 20105e:42aa clr.l 14(A2) 201062:7a00 moveq #$00,D5 201064:2f05 move.l D5,-(A7) 201066:2f0a move.l A2,-(A7) 201068:4eb9 jsr $f810ce 20106e:2640 move.l D0,A3 201070:486b pea 8(A3) 201074:4eb9 jsr $f80f04 20107a:2d40 move.l D0,-4(A6) 20107e:486e pea -4(A6) 201082:2f0b move.l A3,-(A7) 201084:2f0a move.l A2,-(A7) 201086:4eb9 jsr $f81114 20108c:2800 move.l D0,D4 20108e:4fef lea 24(A7),A7 201092:6600 bne.l $2010c4 201096:486b pea 56(A3) 20109a:4eb9 jsr $f80f04 2010a0:2600 move.l D0,D3 2010a2:4878 pea $0400 2010a6:486b pea 64(A3) 2010aa:4eb9 jsr $f81184 2010b0:b680 cmp.l D0,D3 2010b2:4fef lea 12(A7),A7 2010b6:6704 beq.s $2010bc 2010b8:7818 moveq #$18,D4 2010ba:6008 bra.s $2010c4 2010bc:5285 addq.l #1,D5 2010be:700b moveq #$0b,D0 2010c0:b085 cmp.l D5,D0 2010c2:6ea0 bgt.s $201064 2010c4:2004 move.l D4,D0 2010c6:4cdf movem.l (A7)+,A3-A2/D6-D2 2010ca:4e5e unlk A6 2010cc:4e75 rts 2010ce:48e7 movem.l D5-D2,-(A7) 2010d2:206f move.l 20(A7),A0 2010d6:242f move.l 24(A7),D2 2010da:7600 moveq #$00,D3 2010dc:1628 move.b 2(A0),D3 2010e0:7800 moveq #$00,D4 2010e2:1828 move.b 3(A0),D4 2010e6:2a28 move.l 10(A0),D5 2010ea:b483 cmp.l D3,D2 2010ec:6604 bne.s $2010f2 2010ee:2005 move.l D5,D0 2010f0:601c bra.s $20110e 2010f2:0685 addi.l #$00000440,D5 2010f8:5384 subq.l #1,D4 2010fa:6604 bne.s $201100 2010fc:2a28 move.l 14(A0),D5 201100:5283 addq.l #1,D3 201102:2203 move.l D3,D1 201104:700b moveq #$0b,D0 201106:b081 cmp.l D1,D0 201108:6ee0 bgt.s $2010ea 20110a:7600 moveq #$00,D3 20110c:60dc bra.s $2010ea 20110e:4cdf movem.l (A7)+,D5-D2 201112:4e75 rts 201114:48e7 movem.l A4-A2/D2,-(A7) 201118:286f move.l 20(A7),A4 20111c:266f move.l 24(A7),A3 201120:246f move.l 28(A7),A2 201124:0c6b cmpi.w #$4489,6(A3) ;D 20112a:6600 bne.l $201150 20112e:486b pea 48(A3) 201132:4eb9 jsr $f80f04 201138:2400 move.l D0,D2 20113a:4878 pea $0028 20113e:486b pea 8(A3) 201142:4eb9 jsr $f81184 201148:b480 cmp.l D0,D2 20114a:4fef lea 12(A7),A7 20114e:6704 beq.s $201154 201150:7015 moveq #$15,D0 201152:602a bra.s $20117e 201154:0c12 cmpi.b #$ff,(A2) 201158:66f6 bne.s $201150 20115a:7000 moveq #$00,D0 20115c:102a move.b 1(A2),D0 201160:b06c cmp.w 4(A4),D0 201164:66ea bne.s $201150 201166:0c2a cmpi.b #$0b,2(A2) 20116c:64e2 bcc.s $201150 20116e:4a2a tst.b 3(A2) 201172:67dc beq.s $201150 201174:0c2a cmpi.b #$0b,3(A2) 20117a:62d4 bhi.s $201150 20117c:7000 moveq #$00,D0 20117e:4cdf movem.l (A7)+,A4-A2/D2 201182:4e75 rts 201184:2f02 move.l D2,-(A7) 201186:206f move.l 8(A7),A0 20118a:202f move.l 12(A7),D0 20118e:7200 moveq #$00,D1 201190:e480 asr.l #2,D0 201192:4a80 tst.l D0 201194:6708 beq.s $20119e 201196:5380 subq.l #1,D0 201198:2418 move.l (A0)+,D2 20119a:b581 eor.l D2,D1 20119c:60f4 bra.s $201192 20119e:0281 andi.l #$55555555,D1 2011a4:2001 move.l D1,D0 2011a6:241f move.l (A7)+,D2 2011a8:4e75 rts 2011aa:0000 2011ac:48e7 movem.l -(a7) 2011ae:3038 move.w $262f,D0 2011b2:0018 ori.b #$287c,(A0)+ 2011b6:0000 ori.b #$6000,D0 ;Beeld scherm wissen ?? 2011ba:267c move.l #$00004000,A3 2011c0:247c move.l #$00dff000,A2 2011c6:7400 moveq #$00,D2 2011c8:3002 move.w D2,D0 2011ca:d040 add.w D0,D0 2011cc:41ea lea 272(A2),A0 ;a0->BitPlane data 2011d0:4270 clr.w 0(A0,D0.W) 2011d4:3002 move.w D2,D0 2011d6:e540 asl.w #2,D0 2011d8:41ea lea 224(A2),A0 ;a0->adres van bitplane1 2011dc:42b0 clr.l 0(A0,D0.W) 2011e0:5282 addq.l #1,D2 2011e2:7006 moveq #$06,D0 2011e4:b082 cmp.l D2,D0 2011e6:6ee0 bgt.s $2011c8 2011e8:7400 moveq #$00,D2 ;SPRITES VERBERGEN 2011ea:3002 move.w D2,D0 2011ec:e740 asl.w #3,D0 2011ee:41ea lea 320(A2),A0 ;A0 -> SPR0POS 2011f2:31bc move.w #$fe00,0(A0,D0.W) 2011f8:3002 move.w D2,D0 2011fa:e740 asl.w #3,D0 2011fc:41ea lea 320(A2),A0 201200:31bc move.w #$ff00,2(A0,D0.W) 201206:5282 addq.l #1,D2 201208:7008 moveq #$08,D0 20120a:b082 cmp.l D2,D0 20120c:6edc bgt.s $2011ea 20120e:42a7 clr.l -(A7) 201210:4878 pea $1f40 201214:4853 pea (A3) 201216:4eb9 jsr $f81540 20121c:42a7 clr.l -(A7) 20121e:4878 pea $1f40 201222:4854 pea (A4) 201224:4eb9 jsr $f81540 20122a:2243 move.l D3,A1 20122c:41ea lea 150(A2),A0 201230:3408 move.w A0,D2 201232:0242 andi.w #$01fe,D2 201236:32c2 move.w D2,(A1)+ 201238:32fc move.w #$0080,(A1)+ 20123c:32fc move.w #$ffff,(A1)+ 201240:32fc move.w #$fffe,(A1)+ 201244:357c move.w #$0080,150(A2) 20124a:2543 move.l D3,128(A2) 20124e:357c move.w #$0001,136(A2) ;COP1JMP 201254:357c move.w #$8080,150(A2) ;DMACON 20125a:7400 moveq #$00,D2 20125c:4fef lea 24(A7),A7 201260:6010 bra.s $201272 201262:0c82 cmpi.l #$00002710,D2 201268:6f06 ble.s $201270 20126a:4eb9 jsr $f81342 201270:5282 addq.l #1,D2 201272:082a btst #7,3(A2) 201278:66e8 bne.s $201262 20127a:2243 move.l D3,A1 20127c:41ea lea 224(A2),A0 201280:3408 move.w A0,D2 201282:0242 andi.w #$01fe,D2 201286:32c2 move.w D2,(A1)+ 201288:200b move.l A3,D0 20128a:7210 moveq #$10,D1 20128c:e2a0 asr.l D1,D0 20128e:32c0 move.w D0,(A1)+ 201290:41ea lea 224(A2),A0 ;BPL1PTH 201294:3408 move.w A0,D2 201296:5442 addq.w #2,D2 201298:0242 andi.w #$01fe,D2 20129c:32c2 move.w D2,(A1)+ 20129e:204b move.l A3,A0 2012a0:3408 move.w A0,D2 2012a2:0242 andi.w #$ffff,D2 2012a6:32c2 move.w D2,(A1)+ 2012a8:41ea lea 228(A2),A0 ;BPL2PTH 2012ac:3408 move.w A0,D2 2012ae:0242 andi.w #$01fe,D2 2012b2:32c2 move.w D2,(A1)+ 2012b4:200c move.l A4,D0 2012b6:7210 moveq #$10,D1 2012b8:e2a0 asr.l D1,D0 2012ba:32c0 move.w D0,(A1)+ 2012bc:41ea lea 228(A2),A0 ;BPL2PTH 2012c0:3408 move.w A0,D2 2012c2:5442 addq.w #2,D2 2012c4:0242 andi.w #$01fe,D2 2012c8:32c2 move.w D2,(A1)+ 2012ca:204c move.l A4,A0 2012cc:3408 move.w A0,D2 2012ce:0242 andi.w #$ffff,D2 2012d2:32c2 move.w D2,(A1)+ 2012d4:32fc move.w #$ffff,(A1)+ 2012d8:32fc move.w #$fffe,(A1)+ 2012dc:254b move.l A3,224(A2) ;BPL1PTH 2012e0:254c move.l A4,228(A2) ;BPL2PTH 2012e4:2543 move.l D3,128(A2) ;COP1LCH 2012e8:357c move.w #$0fff,384(A2) ;Kleuren van hand goed zetten 2012ee:357c move.w #$00f0,386(A2) 2012f4:357c move.w #$0f00,388(A2) 2012fa:357c move.w #$000f,390(A2) 201300:426a clr.w 264(A2) ;BPL1MOD 201304:426a clr.w 266(A2) ;BPL2MOD 201308:357c move.w #$2300,256(A2) ;BPLCON0 20130e:426a clr.w 258(A2) ;BPLCON1 201312:357c move.w #$0024,260(A2) ;BPLCON2 201318:357c move.w #$2c81,142(A2) ;DIWSTRT 20131e:357c move.w #$f4c1,144(A2) ;DIWSTOP 201324:357c move.w #$0038,146(A2) ;DDFSTRT 20132a:357c move.w #$00d0,148(A2) ;DDFSTOP 201330:357c move.w #$0001,136(A2) ;COPJMP1 201336:357c move.w #$8080,150(A2) ;DMACON 20133c:4cdf movem.l (A7)+,A4-A2/D3-D2 201340:4e75 rts 201342:48e7 movem.l A2/D2,-(A7) 201346:247c move.l #$00dff000,A2 20134c:4eb9 jsr $f813d6 201352:357c move.w #$0f80,384(A2) 201358:426a clr.w 388(A2) 20135c:426a clr.w 390(A2) 201360:357c move.w #$8180,150(A2) 201366:4879 pea $f8195c 20136c:4eb9 jsr $f81480 201372:588f addq.l #4,A7 201374:7400 moveq #$00,D2 201376:4eb9 jsr $f813d6 20137c:5282 addq.l #1,D2 20137e:701e moveq #$1e,D0 201380:b082 cmp.l D2,D0 201382:6ef2 bgt.s $201376 201384:357c move.w #$0f80,388(A2) 20138a:7400 moveq #$00,D2 20138c:4eb9 jsr $f813d6 201392:5282 addq.l #1,D2 201394:701e moveq #$1e,D0 201396:b082 cmp.l D2,D0 201398:6ef2 bgt.s $20138c 20139a:426a clr.w 388(A2) 20139e:60d4 bra.s $201374 2013a0:2f0a move.l A2,-(A7) 2013a2:247c move.l #$00dff000,A2 2013a8:4eb9 jsr $f813d6 2013ae:357c move.w #$0fff,384(A2) 2013b4:426a clr.w 386(A2) 2013b8:357c move.w #$077c,388(A2) 2013be:357c move.w #$0ccc,390(A2) 2013c4:4879 pea $f81a00 2013ca:4eb9 jsr $f81480 2013d0:588f addq.l #4,A7 2013d2:245f move.l (A7)+,A2 2013d4:4e75 rts 2013d6:207c move.l #$00dff000,A0 2013dc:317c move.w #$0020,156(A0) 2013e2:0828 btst #5,31(A0) 2013e8:67f8 beq.s $2013e2 2013ea:4e75 rts 2013ec:48e7 movem.l A3-A2/D7-D2,-(A7) 2013f0:206f move.l 36(A7),A0 2013f4:262f move.l 40(A7),D3 2013f8:222f move.l 44(A7),D1 2013fc:7a00 moveq #$00,D5 2013fe:3a18 move.w (A0)+,D5 201400:7400 moveq #$00,D2 201402:3418 move.w (A0)+,D2 201404:2c02 move.l D2,D6 201406:700f moveq #$0f,D0 201408:cc80 and.l D0,D6 20140a:2002 move.l D2,D0 20140c:e880 asr.l #4,D0 20140e:d080 add.l D0,D0 201410:2240 move.l D0,A1 201412:d3c1 adda.l D1,A1 201414:2449 move.l A1,A2 201416:4a86 tst.l D6 201418:6626 bne.s $201440 20141a:2005 move.l D5,D0 20141c:5385 subq.l #1,D5 20141e:2000 move.l D0,D0 201420:6700 beq.l $201478 201424:2243 move.l D3,A1 201426:6004 bra.s $20142c 201428:3218 move.w (A0)+,D1 20142a:835a or.w D1,(A2)+ 20142c:2009 move.l A1,D0 20142e:5389 subq.l #1,A1 201430:2000 move.l D0,D0 201432:66f4 bne.s $201428 201434:7e14 moveq #$14,D7 201436:2247 move.l D7,A1 201438:93c3 suba.l D3,A1 20143a:d3c9 adda.l A1,A1 20143c:d5c9 adda.l A1,A2 20143e:60da bra.s $20141a 201440:7810 moveq #$10,D4 201442:9886 sub.l D6,D4 201444:2005 move.l D5,D0 201446:5385 subq.l #1,D5 201448:2000 move.l D0,D0 20144a:672c beq.s $201478 20144c:4242 clr.w D2 20144e:2243 move.l D3,A1 201450:6012 bra.s $201464 201452:3658 move.w (A0)+,A3 201454:320b move.w A3,D1 201456:1006 move.b D6,D0 201458:e069 lsr.w D0,D1 20145a:1004 move.b D4,D0 20145c:e16a lsl.w D0,D2 20145e:8242 or.w D2,D1 201460:835a or.w D1,(A2)+ 201462:340b move.w A3,D2 201464:2009 move.l A1,D0 201466:5389 subq.l #1,A1 201468:2000 move.l D0,D0 20146a:66e6 bne.s $201452 20146c:7e14 moveq #$14,D7 20146e:2247 move.l D7,A1 201470:93c3 suba.l D3,A1 201472:d3c9 adda.l A1,A1 201474:d5c9 adda.l A1,A2 201476:60cc bra.s $201444 201478:2008 move.l A0,D0 20147a:4cdf movem.l (A7)+,A3-A2/D7-D2 20147e:4e75 rts 201480:48e7 movem.l A2/D6-D2,-(A7) 201484:246f move.l 28(A7),A2 201488:548a addq.l #2,A2 20148a:3c1a move.w (A2)+,D6 20148c:48c6 ext.l D6 20148e:381a move.w (A2)+,D4 201490:48c4 ext.l D4 201492:3a1a move.w (A2)+,D5 201494:48c5 ext.l D5 201496:361a move.w (A2)+,D3 201498:48c3 ext.l D3 20149a:341a move.w (A2)+,D2 20149c:48c2 ext.l D2 20149e:70ff moveq #$ff,D0 2014a0:b083 cmp.l D3,D0 2014a2:6614 bne.s $2014b8 2014a4:70ff moveq #$ff,D0 2014a6:b082 cmp.l D2,D0 2014a8:6700 beq.l $20153a 2014ac:2c02 move.l D2,D6 2014ae:381a move.w (A2)+,D4 2014b0:48c4 ext.l D4 2014b2:3a1a move.w (A2)+,D5 2014b4:48c5 ext.l D5 2014b6:60de bra.s $201496 2014b8:70fe moveq #$fe,D0 2014ba:b083 cmp.l D3,D0 2014bc:6626 bne.s $2014e4 2014be:381a move.w (A2)+,D4 2014c0:48c4 ext.l D4 2014c2:3a1a move.w (A2)+,D5 2014c4:48c5 ext.l D5 2014c6:2f06 move.l D6,-(A7) 2014c8:2f02 move.l D2,-(A7) 2014ca:2405 move.l D5,D2 2014cc:e582 asl.l #2,D2 2014ce:2602 move.l D2,D3 2014d0:e582 asl.l #2,D2 2014d2:d483 add.l D3,D2 2014d4:2f02 move.l D2,-(A7) 2014d6:2f04 move.l D4,-(A7) 2014d8:4eb9 jsr $f817bc 2014de:4fef lea 16(A7),A7 2014e2:60b2 bra.s $201496 2014e4:70fd moveq #$fd,D0 2014e6:b083 cmp.l D3,D0 2014e8:6616 bne.s $201500 2014ea:4879 pea $004000 2014f0:2f02 move.l D2,-(A7) 2014f2:2f0a move.l A2,-(A7) 2014f4:4eba jsr -266(PC)(=$2013ec) 2014f8:2440 move.l D0,A2 2014fa:4fef lea 12(A7),A7 2014fe:6096 bra.s $201496 201500:70fc moveq #$fc,D0 201502:b083 cmp.l D3,D0 201504:6618 bne.s $20151e 201506:4879 pea $006000 20150c:2f02 move.l D2,-(A7) 20150e:2f0a move.l A2,-(A7) 201510:4eba jsr -294(PC)(=$2013ec) 201514:2440 move.l D0,A2 201516:4fef lea 12(A7),A7 20151a:6000 bra.l $201496 20151e:2f06 move.l D6,-(A7) 201520:2f02 move.l D2,-(A7) 201522:2f03 move.l D3,-(A7) 201524:2f05 move.l D5,-(A7) 201526:2f04 move.l D4,-(A7) 201528:4eb9 jsr $f81564 20152e:2803 move.l D3,D4 201530:2a02 move.l D2,D5 201532:4fef lea 20(A7),A7 201536:6000 bra.l $201496 20153a:4cdf movem.l (A7)+,A2/D6-D2 20153e:4e75 rts 201540:2f02 move.l D2,-(A7) 201542:206f move.l 8(A7),A0 201546:222f move.l 12(A7),D1 20154a:342f move.w 18(A7),D2 20154e:2001 move.l D1,D0 201550:e280 asr.l #1,D0 201552:2200 move.l D0,D1 201554:2001 move.l D1,D0 201556:5381 subq.l #1,D1 201558:2000 move.l D0,D0 20155a:6704 beq.s $201560 20155c:30c2 move.w D2,(A0)+ 20155e:60f4 bra.s $201554 201560:241f move.l (A7)+,D2 201562:4e75 rts 201564:48e7 movem.l D4-D2,-(A7) 201568:282f move.l 16(A7),D4 20156c:262f move.l 20(A7),D3 201570:242f move.l 24(A7),D2 201574:2202 move.l D2,D1 201576:9284 sub.l D4,D1 201578:202f move.l 28(A7),D0 20157c:9083 sub.l D3,D0 20157e:4a81 tst.l D1 201580:6d02 blt.s $201584 201582:6002 bra.s $201586 201584:4481 neg.l D1 201586:4a80 tst.l D0 201588:6d02 blt.s $20158c 20158a:6002 bra.s $20158e 20158c:4480 neg.l D0 20158e:b280 cmp.l D0,D1 201590:6d1a blt.s $2015ac 201592:2f2f move.l 32(A7),-(A7) 201596:2f2f move.l 32(A7),-(A7) 20159a:2f02 move.l D2,-(A7) 20159c:2f03 move.l D3,-(A7) 20159e:2f04 move.l D4,-(A7) 2015a0:4eb9 jsr $f815ca 2015a6:4fef lea 20(A7),A7 2015aa:6018 bra.s $2015c4 2015ac:2f2f move.l 32(A7),-(A7) 2015b0:2f2f move.l 32(A7),-(A7) 2015b4:2f02 move.l D2,-(A7) 2015b6:2f03 move.l D3,-(A7) 2015b8:2f04 move.l D4,-(A7) 2015ba:4eb9 jsr $f816fe 2015c0:4fef lea 20(A7),A7 2015c4:4cdf movem.l (A7)+,D4-D2 2015c8:4e75 rts 2015ca:48e7 movem.l A4-A2/D6-D2,-(A7) 2015ce:262f move.l 36(A7),D3 2015d2:242f move.l 40(A7),D2 2015d6:222f move.l 44(A7),D1 2015da:2001 move.l D1,D0 2015dc:9083 sub.l D3,D0 2015de:6d06 blt.s $2015e6 2015e0:2001 move.l D1,D0 2015e2:9083 sub.l D3,D0 2015e4:6006 bra.s $2015ec 2015e6:2001 move.l D1,D0 2015e8:9083 sub.l D3,D0 2015ea:4480 neg.l D0 2015ec:2800 move.l D0,D4 2015ee:202f move.l 48(A7),D0 2015f2:9082 sub.l D2,D0 2015f4:6d08 blt.s $2015fe 2015f6:202f move.l 48(A7),D0 2015fa:9082 sub.l D2,D0 2015fc:6008 bra.s $201606 2015fe:202f move.l 48(A7),D0 201602:9082 sub.l D2,D0 201604:4480 neg.l D0 201606:2c00 move.l D0,D6 201608:dc86 add.l D6,D6 20160a:9c84 sub.l D4,D6 20160c:2840 move.l D0,A4 20160e:d9cc adda.l A4,A4 201610:2440 move.l D0,A2 201612:95c4 suba.l D4,A2 201614:d5ca adda.l A2,A2 201616:7a14 moveq #$14,D5 201618:b681 cmp.l D1,D3 20161a:6f1a ble.s $201636 20161c:2641 move.l D1,A3 20161e:282f move.l 48(A7),D4 201622:e584 asl.l #2,D4 201624:2004 move.l D4,D0 201626:e584 asl.l #2,D4 201628:d880 add.l D0,D4 20162a:b4af cmp.l 48(A7),D2 20162e:6c02 bge.s $201632 201630:7aec moveq #$ec,D5 201632:2403 move.l D3,D2 201634:602c bra.s $201662 201636:2643 move.l D3,A3 201638:2802 move.l D2,D4 20163a:e584 asl.l #2,D4 20163c:2004 move.l D4,D0 20163e:e584 asl.l #2,D4 201640:d880 add.l D0,D4 201642:b4af cmp.l 48(A7),D2 201646:6f02 ble.s $20164a 201648:7aec moveq #$ec,D5 20164a:2401 move.l D1,D2 20164c:6014 bra.s $201662 20164e:200b move.l A3,D0 201650:528b addq.l #1,A3 201652:b480 cmp.l D0,D2 201654:6f20 ble.s $201676 201656:4a86 tst.l D6 201658:6c04 bge.s $20165e 20165a:dc8c add.l A4,D6 20165c:6004 bra.s $201662 20165e:d885 add.l D5,D4 201660:dc8a add.l A2,D6 201662:2f2f move.l 52(A7),-(A7) 201666:2f04 move.l D4,-(A7) 201668:2f0b move.l A3,-(A7) 20166a:4eb9 jsr $f8167c 201670:4fef lea 12(A7),A7 201674:60d8 bra.s $20164e 201676:4cdf movem.l (A7)+,A4-A2/D6-D2 20167a:4e75 rts 20167c:48e7 movem.l D4-D2,-(A7) 201680:222f move.l 16(A7),D1 201684:262f move.l 20(A7),D3 201688:242f move.l 24(A7),D2 20168c:2001 move.l D1,D0 20168e:e880 asr.l #4,D0 201690:d083 add.l D3,D0 201692:e380 asl.l #1,D0 201694:3800 move.w D0,D4 201696:263c move.l #$00008000,D3 20169c:1001 move.b D1,D0 20169e:0200 andi.b #$0f,D0 2016a2:e0a3 asr.l D0,D3 2016a4:0802 btst #0,D2 2016a8:6712 beq.s $2016bc 2016aa:207c move.l #$00004000,A0 2016b0:7000 moveq #$00,D0 2016b2:3004 move.w D4,D0 2016b4:d1c0 adda.l D0,A0 2016b6:3003 move.w D3,D0 2016b8:8150 or.w D0,(A0) 2016ba:6012 bra.s $2016ce 2016bc:207c move.l #$00004000,A0 2016c2:7000 moveq #$00,D0 2016c4:3004 move.w D4,D0 2016c6:d1c0 adda.l D0,A0 2016c8:3003 move.w D3,D0 2016ca:4640 not.w D0 2016cc:c150 and.w D0,(A0) 2016ce:0802 btst #1,D2 2016d2:6712 beq.s $2016e6 2016d4:207c move.l #$00006000,A0 2016da:7000 moveq #$00,D0 2016dc:3004 move.w D4,D0 2016de:d1c0 adda.l D0,A0 2016e0:3003 move.w D3,D0 2016e2:8150 or.w D0,(A0) 2016e4:6012 bra.s $2016f8 2016e6:207c move.l #$00006000,A0 2016ec:7000 moveq #$00,D0 2016ee:3004 move.w D4,D0 2016f0:d1c0 adda.l D0,A0 2016f2:3003 move.w D3,D0 2016f4:4640 not.w D0 2016f6:c150 and.w D0,(A0) 2016f8:4cdf movem.l (A7)+,D4-D2 2016fc:4e75 rts 2016fe:48e7 movem.l A4-A2/D6-D2,-(A7) 201702:262f move.l 36(A7),D3 201706:242f move.l 40(A7),D2 20170a:222f move.l 44(A7),D1 20170e:2001 move.l D1,D0 201710:9083 sub.l D3,D0 201712:6d06 blt.s $20171a 201714:2001 move.l D1,D0 201716:9083 sub.l D3,D0 201718:6006 bra.s $201720 20171a:2001 move.l D1,D0 20171c:9083 sub.l D3,D0 20171e:4480 neg.l D0 201720:2800 move.l D0,D4 201722:202f move.l 48(A7),D0 201726:9082 sub.l D2,D0 201728:6d08 blt.s $201732 20172a:202f move.l 48(A7),D0 20172e:9082 sub.l D2,D0 201730:6008 bra.s $20173a 201732:202f move.l 48(A7),D0 201736:9082 sub.l D2,D0 201738:4480 neg.l D0 20173a:2c04 move.l D4,D6 20173c:dc86 add.l D6,D6 20173e:9c80 sub.l D0,D6 201740:2844 move.l D4,A4 201742:d9cc adda.l A4,A4 201744:2444 move.l D4,A2 201746:95c0 suba.l D0,A2 201748:d5ca adda.l A2,A2 20174a:7a01 moveq #$01,D5 20174c:b4af cmp.l 48(A7),D2 201750:6f1e ble.s $201770 201752:2641 move.l D1,A3 201754:282f move.l 48(A7),D4 201758:e584 asl.l #2,D4 20175a:2004 move.l D4,D0 20175c:e584 asl.l #2,D4 20175e:d880 add.l D0,D4 201760:b681 cmp.l D1,D3 201762:6c02 bge.s $201766 201764:7aff moveq #$ff,D5 201766:e582 asl.l #2,D2 201768:2002 move.l D2,D0 20176a:e582 asl.l #2,D2 20176c:d480 add.l D0,D2 20176e:6034 bra.s $2017a4 201770:2643 move.l D3,A3 201772:2802 move.l D2,D4 201774:e584 asl.l #2,D4 201776:2004 move.l D4,D0 201778:e584 asl.l #2,D4 20177a:d880 add.l D0,D4 20177c:b681 cmp.l D1,D3 20177e:6f02 ble.s $201782 201780:7aff moveq #$ff,D5 201782:242f move.l 48(A7),D2 201786:e582 asl.l #2,D2 201788:2002 move.l D2,D0 20178a:e582 asl.l #2,D2 20178c:d480 add.l D0,D2 20178e:6014 bra.s $2017a4 201790:b882 cmp.l D2,D4 201792:6c22 bge.s $2017b6 201794:7014 moveq #$14,D0 201796:d880 add.l D0,D4 201798:4a86 tst.l D6 20179a:6c04 bge.s $2017a0 20179c:dc8c add.l A4,D6 20179e:6004 bra.s $2017a4 2017a0:d7c5 adda.l D5,A3 2017a2:dc8a add.l A2,D6 2017a4:2f2f move.l 52(A7),-(A7) 2017a8:2f04 move.l D4,-(A7) 2017aa:2f0b move.l A3,-(A7) 2017ac:4eba jsr -306(PC)(=$20167c) 2017b0:4fef lea 12(A7),A7 2017b4:60da bra.s $201790 2017b6:4cdf movem.l (A7)+,A4-A2/D6-D2 2017ba:4e75 rts 2017bc:48e7 movem.l A2/D6-D2,-(A7) 2017c0:282f move.l 28(A7),D4 2017c4:2a2f move.l 32(A7),D5 2017c8:2c2f move.l 36(A7),D6 2017cc:247c move.l #$00f817bc,A2 2017d2:2f05 move.l D5,-(A7) 2017d4:2f04 move.l D4,-(A7) 2017d6:4eb9 jsr $f8183c 2017dc:bc80 cmp.l D0,D6 2017de:508f addq.l #8,A7 2017e0:6654 bne.s $201836 2017e2:2f2f move.l 40(A7),-(A7) 2017e6:2f05 move.l D5,-(A7) 2017e8:2f04 move.l D4,-(A7) 2017ea:4eba jsr -368(PC)(=$20167c) 2017ee:2f2f move.l 52(A7),-(A7) 2017f2:2f06 move.l D6,-(A7) 2017f4:2605 move.l D5,D3 2017f6:7414 moveq #$14,D2 2017f8:d682 add.l D2,D3 2017fa:2f03 move.l D3,-(A7) 2017fc:2f04 move.l D4,-(A7) 2017fe:4e92 jsr (A2) 201800:2f2f move.l 68(A7),-(A7) 201804:2f06 move.l D6,-(A7) 201806:2f05 move.l D5,-(A7) 201808:2604 move.l D4,D3 20180a:5383 subq.l #1,D3 20180c:2f03 move.l D3,-(A7) 20180e:4e92 jsr (A2) 201810:2f2f move.l 84(A7),-(A7) 201814:2f06 move.l D6,-(A7) 201816:2605 move.l D5,D3 201818:7414 moveq #$14,D2 20181a:9682 sub.l D2,D3 20181c:2f03 move.l D3,-(A7) 20181e:2f04 move.l D4,-(A7) 201820:4e92 jsr (A2) 201822:2f2f move.l 100(A7),-(A7) 201826:2f06 move.l D6,-(A7) 201828:2f05 move.l D5,-(A7) 20182a:2604 move.l D4,D3 20182c:5283 addq.l #1,D3 20182e:2f03 move.l D3,-(A7) 201830:4e92 jsr (A2) 201832:4fef lea 76(A7),A7 201836:4cdf movem.l (A7)+,A2/D6-D2 20183a:4e75 rts 20183c:48e7 movem.l D3-D2,-(A7) 201840:202f move.l 12(A7),D0 201844:222f move.l 16(A7),D1 201848:7600 moveq #$00,D3 20184a:2400 move.l D0,D2 20184c:e882 asr.l #4,D2 20184e:d481 add.l D1,D2 201850:e382 asl.l #1,D2 201852:223c move.l #$00008000,D1 201858:0200 andi.b #$0f,D0 20185c:e0a1 asr.l D0,D1 20185e:207c move.l #$00004000,A0 201864:d1c2 adda.l D2,A0 201866:7000 moveq #$00,D0 201868:3010 move.w (A0),D0 20186a:c081 and.l D1,D0 20186c:6704 beq.s $201872 20186e:7001 moveq #$01,D0 201870:8680 or.l D0,D3 201872:207c move.l #$00006000,A0 201878:d1c2 adda.l D2,A0 20187a:7000 moveq #$00,D0 20187c:3010 move.w (A0),D0 20187e:c081 and.l D1,D0 201880:6704 beq.s $201886 201882:7002 moveq #$02,D0 201884:8680 or.l D0,D3 201886:2003 move.l D3,D0 201888:4cdf movem.l (A7)+,D3-D2 20188c:4e75 rts 20188e:0000 dc.w $0000 201890:48e7 movem.l A2/D6-D2,-(A7) ;Deze routine leest een blok 201892:3e20 move.w -(A0),D7 201894:246f move.l 28(A7),A2 201898:2a2f move.l 32(A7),D5 ;d5 bevat destination adres 20189c:342f move.w 38(A7),D2 ;BlokNummer 2018a0:7c00 moveq #$00,D6 2018a2:760a moveq #$0a,D3 2018a4:7000 moveq #$00,D0 2018a6:3002 move.w D2,D0 2018a8:80fc divu #$000b,D0 2018ac:0280 andi.l #$0000ffff,D0 2018b2:2800 move.l D0,D4 2018b4:322a move.w 4(A2),D1 2018b8:48c1 ext.l D1 2018ba:b284 cmp.l D4,D1 2018bc:6600 bne.l $2018c8 2018c0:082a btst #6,1(A2) 2018c6:6632 bne.s $2018fa 2018c8:2f04 move.l D4,-(A7) 2018ca:2f0a move.l A2,-(A7) 2018cc:4eb9 jsr $f80cce 2018d2:2f0a move.l A2,-(A7) 2018d4:4eb9 jsr $f80df4 2018da:2c00 move.l D0,D6 2018dc:4fef lea 12(A7),A7 2018e0:6600 bne.l $201934 2018e4:2f0a move.l A2,-(A7) 2018e6:4eb9 jsr $f80fa6 2018ec:2c00 move.l D0,D6 2018ee:588f addq.l #4,A7 2018f0:6600 bne.l $201934 2018f4:08ea bset #6,1(A2) 2018fa:3042 move.w D2,A0 2018fc:3404 move.w D4,D2 2018fe:3802 move.w D2,D4 201900:d442 add.w D2,D2 201902:3602 move.w D2,D3 201904:e542 asl.w #2,D2 201906:d443 add.w D3,D2 201908:d444 add.w D4,D2 20190a:90c2 suba.w D2,A0 20190c:7400 moveq #$00,D2 20190e:3408 move.w A0,D2 201910:2f02 move.l D2,-(A7) 201912:2f0a move.l A2,-(A7) 201914:4eb9 jsr $f810ce 20191a:2040 move.l D0,A0 20191c:4868 pea 64(A0) 201920:2f05 move.l D5,-(A7) 201922:4878 pea $0200 201926:4eb9 jsr $f80f28 20192c:4fef lea 20(A7),A7 201930:2006 move.l D6,D0 201932:6022 bra.s $201956 201934:08aa bclr #6,1(A2) 20193a:5383 subq.l #1,D3 20193c:6ff2 ble.s $201930 20193e:2203 move.l D3,D1 201940:7003 moveq #$03,D0 201942:c280 and.l D0,D1 201944:6600 bne.l $2018b4 201948:2f0a move.l A2,-(A7) 20194a:4eb9 jsr $f80c4e 201950:588f addq.l #4,A7 201952:6000 bra.l $2018b4 201956:4cdf movem.l (A7)+,A2/D6-D2 20195a:4e75 rts