018000: 4EB9 0001 80BE           jsr     $180be.l
018006: 6010                     bra     18018
018008: 13EA 00C6 0040 06AA      move.b  ($c6,A2), $4006aa.l
018010: 13EA 00C7 0040 06A8      move.b  ($c7,A2), $4006a8.l
018018: 1639 0040 06A8           move.b  $4006a8.l, D3
01801E: 4883                     ext.w   D3
018020: 48C3                     ext.l   D3
018022: 1439 0040 06AA           move.b  $4006aa.l, D2
018028: 4882                     ext.w   D2
01802A: 48C2                     ext.l   D2
01802C: 4482                     neg.l   D2
01802E: 3003                     move.w  D3, D0
018030: 48C0                     ext.l   D0
018032: C1FC 0160                muls.w  #$160, D0
018036: 2600                     move.l  D0, D3
018038: 3002                     move.w  D2, D0
01803A: 48C0                     ext.l   D0
01803C: C1FC 0160                muls.w  #$160, D0
018040: 2400                     move.l  D0, D2
018042: 0C2A 0001 001A           cmpi.b  #$1, ($1a,A2)
018048: 6700 000A                beq     18054
01804C: 0C2A 0005 001A           cmpi.b  #$5, ($1a,A2)
018052: 662E                     bne     18082
018054: 721F                     moveq   #$1f, D1
018056: 102A 0056                move.b  ($56,A2), D0
01805A: 4880                     ext.w   D0
01805C: 9240                     sub.w   D0, D1
01805E: 0C2A 0005 001A           cmpi.b  #$5, ($1a,A2)
018064: 6608                     bne     1806e
018066: 7004                     moveq   #$4, D0
018068: B041                     cmp.w   D1, D0
01806A: 6F02                     ble     1806e
01806C: 7204                     moveq   #$4, D1
01806E: 2003                     move.l  D3, D0
018070: E080                     asr.l   #8, D0
018072: C1C1                     muls.w  D1, D0
018074: E780                     asl.l   #3, D0
018076: 2600                     move.l  D0, D3
018078: 2002                     move.l  D2, D0
01807A: E080                     asr.l   #8, D0
01807C: C1C1                     muls.w  D1, D0
01807E: E780                     asl.l   #3, D0
018080: 2400                     move.l  D0, D2
018082: 2003                     move.l  D3, D0
018084: D192                     add.l   D0, (A2)
018086: 2002                     move.l  D2, D0
018088: D1AA 0004                add.l   D0, ($4,A2)
01808C: 6020                     bra     180ae
01808E: 4A2A 0036                tst.b   ($36,A2)
018092: 671A                     beq     180ae
018094: 06AA FFFF A000 0008      addi.l  #-$6000, ($8,A2)
01809C: 0CAA FFFB 0000 0008      cmpi.l  #-$50000, ($8,A2)
0180A4: 6C08                     bge     180ae
0180A6: 257C FFFB 0000 0008      move.l  #$fffb0000, ($8,A2)
0180AE: 2F0A                     move.l  A2, -(A7)
0180B0: 4EB9 0002 6196           jsr     $26196.l
0180B6: 588F                     addq.l  #4, A7
0180B8: 4CDF 040C                movem.l (A7)+, D2-D3/A2
0180BC: 4E75                     rts

0180BE: 48E7 3000                movem.l D2-D3, -(A7)
0180C2: 207C 0040 0018           movea.l #$400018, A0
0180C8: 227C 0040 00FA           movea.l #$4000fa, A1
0180CE: 1028 00C6                move.b  ($c6,A0), D0
0180D2: 4880                     ext.w   D0
0180D4: 4A40                     tst.w   D0
0180D6: 6C08                     bge     180e0
0180D8: 7200                     moveq   #$0, D1
0180DA: 3200                     move.w  D0, D1
0180DC: 4481                     neg.l   D1
0180DE: 6004                     bra     180e4
0180E0: 7200                     moveq   #$0, D1
0180E2: 3200                     move.w  D0, D1
0180E4: 3401                     move.w  D1, D2
0180E6: 1028 00C7                move.b  ($c7,A0), D0
0180EA: 4880                     ext.w   D0
0180EC: 4A40                     tst.w   D0
0180EE: 6C08                     bge     180f8
0180F0: 7200                     moveq   #$0, D1
0180F2: 3200                     move.w  D0, D1
0180F4: 4481                     neg.l   D1
0180F6: 6004                     bra     180fc
0180F8: 7200                     moveq   #$0, D1
0180FA: 3200                     move.w  D0, D1
0180FC: D441                     add.w   D1, D2
0180FE: 1029 00C6                move.b  ($c6,A1), D0
018102: 4880                     ext.w   D0
018104: 4A40                     tst.w   D0
018106: 6C08                     bge     18110
018108: 7200                     moveq   #$0, D1
01810A: 3200                     move.w  D0, D1
01810C: 4481                     neg.l   D1
01810E: 6004                     bra     18114
018110: 7200                     moveq   #$0, D1
018112: 3200                     move.w  D0, D1
018114: 3601                     move.w  D1, D3
018116: 1029 00C7                move.b  ($c7,A1), D0
01811A: 4880                     ext.w   D0
01811C: 4A40                     tst.w   D0
01811E: 6C08                     bge     18128
018120: 7200                     moveq   #$0, D1
018122: 3200                     move.w  D0, D1
018124: 4481                     neg.l   D1
018126: 6004                     bra     1812c
018128: 7200                     moveq   #$0, D1
01812A: 3200                     move.w  D0, D1
01812C: D641                     add.w   D1, D3
01812E: B443                     cmp.w   D3, D2
018130: 6D12                     blt     18144
018132: 13E8 00C6 0040 06AA      move.b  ($c6,A0), $4006aa.l
01813A: 13E8 00C7 0040 06A8      move.b  ($c7,A0), $4006a8.l
018142: 6010                     bra     18154
018144: 13E9 00C6 0040 06AA      move.b  ($c6,A1), $4006aa.l
01814C: 13E9 00C7 0040 06A8      move.b  ($c7,A1), $4006a8.l
018154: 4CDF 000C                movem.l (A7)+, D2-D3
018158: 4E75                     rts

01815A: 48E7 3E30                movem.l D2-D6/A2-A3, -(A7)
01815E: 246F 0020                movea.l ($20,A7), A2
018162: 2679 0040 0446           movea.l $400446.l, A3
018168: 4A13                     tst.b   (A3)
01816A: 6700 0148                beq     182b4
01816E: 1013                     move.b  (A3), D0
018170: 4880                     ext.w   D0
018172: 48C0                     ext.l   D0
018174: 2400                     move.l  D0, D2
018176: 7213                     moveq   #$13, D1
018178: E3A2                     asl.l   D1, D2
01817A: 94AA 000C                sub.l   ($c,A2), D2
01817E: 0682 0004 0000           addi.l  #$40000, D2
018184: 102B 0001                move.b  ($1,A3), D0
018188: 4880                     ext.w   D0
01818A: 48C0                     ext.l   D0
01818C: 2600                     move.l  D0, D3
01818E: 7213                     moveq   #$13, D1
018190: E3A3                     asl.l   D1, D3
018192: 96AA 0010                sub.l   ($10,A2), D3
018196: 0683 0004 0000           addi.l  #$40000, D3
01819C: 102B 0002                move.b  ($2,A3), D0
0181A0: 4880                     ext.w   D0
0181A2: 48C0                     ext.l   D0
0181A4: 2A00                     move.l  D0, D5
0181A6: 7210                     moveq   #$10, D1
0181A8: E3A5                     asl.l   D1, D5
0181AA: 4A82                     tst.l   D2
0181AC: 6C06                     bge     181b4
0181AE: 2002                     move.l  D2, D0
0181B0: 4480                     neg.l   D0
0181B2: 6002                     bra     181b6
0181B4: 2002                     move.l  D2, D0
0181B6: 720C                     moveq   #$c, D1
0181B8: E2A0                     asr.l   D1, D0
0181BA: 3800                     move.w  D0, D4
0181BC: 4A83                     tst.l   D3
0181BE: 6C06                     bge     181c6
0181C0: 2003                     move.l  D3, D0
0181C2: 4480                     neg.l   D0
0181C4: 6002                     bra     181c8
0181C6: 2003                     move.l  D3, D0
0181C8: 720C                     moveq   #$c, D1
0181CA: E2A0                     asr.l   D1, D0
0181CC: 3C00                     move.w  D0, D6
0181CE: 7020                     moveq   #$20, D0
0181D0: B044                     cmp.w   D4, D0
0181D2: 634E                     bls     18222
0181D4: 7020                     moveq   #$20, D0
0181D6: B046                     cmp.w   D6, D0
0181D8: 6348                     bls     18222
0181DA: 4A2B 0003                tst.b   ($3,A3)
0181DE: 6D24                     blt     18204
0181E0: 4878 005A                pea     $5a.w
0181E4: 4878 3400                pea     $3400.w
0181E8: 102B 0003                move.b  ($3,A3), D0
0181EC: 4880                     ext.w   D0
0181EE: E540                     asl.w   #2, D0
0181F0: 207C 0002 42AA           movea.l #$242aa, A0
0181F6: 2F30 0000                move.l  (A0,D0.w), -(A7)
0181FA: 4EB9 0000 012A           jsr     $12a.l
018200: 4FEF 000C                lea     ($c,A7), A7
018204: 588B                     addq.l  #4, A3
018206: 4A13                     tst.b   (A3)
018208: 660E                     bne     18218
01820A: 33FC 0001 0040 075A      move.w  #$1, $40075a.l
018212: 157C 00FF 006E           move.b  #$ff, ($6e,A2)
018218: 23CB 0040 0446           move.l  A3, $400446.l
01821E: 6000 FF42                bra     18162
018222: B846                     cmp.w   D6, D4
018224: 630C                     bls     18232
018226: 3206                     move.w  D6, D1
018228: E649                     lsr.w   #3, D1
01822A: C2FC 0003                mulu.w  #$3, D1
01822E: D244                     add.w   D4, D1
018230: 600A                     bra     1823c
018232: 3204                     move.w  D4, D1
018234: E649                     lsr.w   #3, D1
018236: C2FC 0003                mulu.w  #$3, D1
01823A: D246                     add.w   D6, D1
01823C: 4A41                     tst.w   D1
01823E: 670E                     beq     1824e
018240: 2002                     move.l  D2, D0
018242: 81C1                     divs.w  D1, D0
018244: 3400                     move.w  D0, D2
018246: 2003                     move.l  D3, D0
018248: 81C1                     divs.w  D1, D0
01824A: 3600                     move.w  D0, D3
01824C: 6004                     bra     18252
01824E: 4242                     clr.w   D2
018250: 3602                     move.w  D2, D3
018252: 7040                     moveq   #$40, D0
018254: B041                     cmp.w   D1, D0
018256: 6306                     bls     1825e
018258: 2A3C 0000 C000           move.l  #$c000, D5
01825E: 2005                     move.l  D5, D0
018260: E080                     asr.l   #8, D0
018262: 3200                     move.w  D0, D1
018264: 3001                     move.w  D1, D0
018266: C1C2                     muls.w  D2, D0
018268: 2400                     move.l  D0, D2
01826A: E882                     asr.l   #4, D2
01826C: 3001                     move.w  D1, D0
01826E: C1C3                     muls.w  D3, D0
018270: 2600                     move.l  D0, D3
018272: E883                     asr.l   #4, D3
018274: 2002                     move.l  D2, D0
018276: 9092                     sub.l   (A2), D0
018278: E680                     asr.l   #3, D0
01827A: 2203                     move.l  D3, D1
01827C: 92AA 0004                sub.l   ($4,A2), D1
018280: E681                     asr.l   #3, D1
018282: D192                     add.l   D0, (A2)
018284: 2001                     move.l  D1, D0
018286: D1AA 0004                add.l   D0, ($4,A2)
01828A: 4A2A 0036                tst.b   ($36,A2)
01828E: 671A                     beq     182aa
018290: 06AA FFFF A000 0008      addi.l  #-$6000, ($8,A2)
018298: 0CAA FFFB 0000 0008      cmpi.l  #-$50000, ($8,A2)
0182A0: 6C08                     bge     182aa
0182A2: 257C FFFB 0000 0008      move.l  #$fffb0000, ($8,A2)
0182AA: 2F0A                     move.l  A2, -(A7)
0182AC: 4EB9 0002 6196           jsr     $26196.l
0182B2: 588F                     addq.l  #4, A7
0182B4: 4CDF 0C7C                movem.l (A7)+, D2-D6/A2-A3
0182B8: 4E75                     rts

0182BA: 48E7 3820                movem.l D2-D4/A2, -(A7)
0182BE: 246F 0014                movea.l ($14,A7), A2
0182C2: 2F0A                     move.l  A2, -(A7)
0182C4: 4EB9 0001 5DB6           jsr     $15db6.l
0182CA: 0C2A 0002 0036           cmpi.b  #$2, ($36,A2)
0182D0: 588F                     addq.l  #4, A7
0182D2: 6700 0146                beq     1841a
0182D6: 226A 006E                movea.l ($6e,A2), A1
0182DA: 302A 007A                move.w  ($7a,A2), D0
0182DE: 48C0                     ext.l   D0
0182E0: E580                     asl.l   #2, D0
0182E2: 207C 0001 EFF6           movea.l #$1eff6, A0
0182E8: 2070 0800                movea.l (A0,D0.l), A0
0182EC: 1228 001A                move.b  ($1a,A0), D1
0182F0: 4881                     ext.w   D1
0182F2: 0C2A 0021 001A           cmpi.b  #$21, ($1a,A2)
0182F8: 6638                     bne     18332
0182FA: 0C28 0001 0018           cmpi.b  #$1, ($18,A0)
018300: 6630                     bne     18332
018302: 102A 001B                move.b  ($1b,A2), D0
018306: B028 001B                cmp.b   ($1b,A0), D0
01830A: 6626                     bne     18332
01830C: 4A41                     tst.w   D1
01830E: 6700 0010                beq     18320
018312: 7001                     moveq   #$1, D0
018314: B041                     cmp.w   D1, D0
018316: 6700 0008                beq     18320
01831A: 7005                     moveq   #$5, D0
01831C: B041                     cmp.w   D1, D0
01831E: 6612                     bne     18332
018320: 2428 000C                move.l  ($c,A0), D2
018324: 94AA 000C                sub.l   ($c,A2), D2
018328: 2628 0010                move.l  ($10,A0), D3
01832C: 96AA 0010                sub.l   ($10,A2), D3
018330: 602E                     bra     18360
018332: 1011                     move.b  (A1), D0
018334: 4880                     ext.w   D0
018336: 48C0                     ext.l   D0
018338: 2400                     move.l  D0, D2
01833A: 7213                     moveq   #$13, D1
01833C: E3A2                     asl.l   D1, D2
01833E: 94AA 000C                sub.l   ($c,A2), D2
018342: 0682 0004 0000           addi.l  #$40000, D2
018348: 1029 0001                move.b  ($1,A1), D0
01834C: 4880                     ext.w   D0
01834E: 48C0                     ext.l   D0
018350: 2600                     move.l  D0, D3
018352: 7213                     moveq   #$13, D1
018354: E3A3                     asl.l   D1, D3
018356: 96AA 0010                sub.l   ($10,A2), D3
01835A: 0683 0004 0000           addi.l  #$40000, D3
018360: 4A82                     tst.l   D2
018362: 6C06                     bge     1836a
018364: 2002                     move.l  D2, D0
018366: 4480                     neg.l   D0
018368: 6002                     bra     1836c
01836A: 2002                     move.l  D2, D0
01836C: 720C                     moveq   #$c, D1
01836E: E2A0                     asr.l   D1, D0
018370: 3800                     move.w  D0, D4
018372: 4A83                     tst.l   D3
018374: 6C06                     bge     1837c
018376: 2003                     move.l  D3, D0
018378: 4480                     neg.l   D0
01837A: 6002                     bra     1837e
01837C: 2003                     move.l  D3, D0
01837E: 720C                     moveq   #$c, D1
018380: E2A0                     asr.l   D1, D0
018382: B840                     cmp.w   D0, D4
018384: 630C                     bls     18392
018386: 3200                     move.w  D0, D1
018388: E649                     lsr.w   #3, D1
01838A: C2FC 0003                mulu.w  #$3, D1
01838E: D244                     add.w   D4, D1
018390: 600A                     bra     1839c
018392: 3204                     move.w  D4, D1
018394: E649                     lsr.w   #3, D1
018396: C2FC 0003                mulu.w  #$3, D1
01839A: D240                     add.w   D0, D1
01839C: 4A41                     tst.w   D1
01839E: 670E                     beq     183ae
0183A0: 2002                     move.l  D2, D0
0183A2: 81C1                     divs.w  D1, D0
0183A4: 3400                     move.w  D0, D2
0183A6: 2003                     move.l  D3, D0
0183A8: 81C1                     divs.w  D1, D0
0183AA: 3600                     move.w  D0, D3
0183AC: 6004                     bra     183b2
0183AE: 4242                     clr.w   D2
0183B0: 3602                     move.w  D2, D3
0183B2: 7040                     moveq   #$40, D0
0183B4: B041                     cmp.w   D1, D0
0183B6: 6308                     bls     183c0
0183B8: 257C 0001 0000 0068      move.l  #$10000, ($68,A2)
0183C0: 202A 0068                move.l  ($68,A2), D0
0183C4: E080                     asr.l   #8, D0
0183C6: 3200                     move.w  D0, D1
0183C8: 3001                     move.w  D1, D0
0183CA: C1C2                     muls.w  D2, D0
0183CC: 2400                     move.l  D0, D2
0183CE: E882                     asr.l   #4, D2
0183D0: 3001                     move.w  D1, D0
0183D2: C1C3                     muls.w  D3, D0
0183D4: 2600                     move.l  D0, D3
0183D6: E883                     asr.l   #4, D3
0183D8: 9492                     sub.l   (A2), D2
0183DA: EA82                     asr.l   #5, D2
0183DC: 96AA 0004                sub.l   ($4,A2), D3
0183E0: EA83                     asr.l   #5, D3
0183E2: 0C2A 0024 001A           cmpi.b  #$24, ($1a,A2)
0183E8: 6624                     bne     1840e
0183EA: 721F                     moveq   #$1f, D1
0183EC: 102A 0056                move.b  ($56,A2), D0
0183F0: 4880                     ext.w   D0
0183F2: 9240                     sub.w   D0, D1
0183F4: 4A41                     tst.w   D1
0183F6: 6C02                     bge     183fa
0183F8: 4241                     clr.w   D1
0183FA: 2002                     move.l  D2, D0
0183FC: E080                     asr.l   #8, D0
0183FE: C1C1                     muls.w  D1, D0
018400: E780                     asl.l   #3, D0
018402: 2400                     move.l  D0, D2
018404: 2003                     move.l  D3, D0
018406: E080                     asr.l   #8, D0
018408: C1C1                     muls.w  D1, D0
01840A: E780                     asl.l   #3, D0
01840C: 2600                     move.l  D0, D3
01840E: 2002                     move.l  D2, D0
018410: D192                     add.l   D0, (A2)
018412: 2003                     move.l  D3, D0
018414: D1AA 0004                add.l   D0, ($4,A2)
018418: 6020                     bra     1843a
01841A: 4A2A 0036                tst.b   ($36,A2)
01841E: 671A                     beq     1843a
018420: 06AA FFFF A000 0008      addi.l  #-$6000, ($8,A2)
018428: 0CAA FFFB 0000 0008      cmpi.l  #-$50000, ($8,A2)
018430: 6C08                     bge     1843a
018432: 257C FFFB 0000 0008      move.l  #$fffb0000, ($8,A2)
01843A: 2F0A                     move.l  A2, -(A7)
01843C: 4EB9 0002 6196           jsr     $26196.l
018442: 588F                     addq.l  #4, A7
018444: 4CDF 041C                movem.l (A7)+, D2-D4/A2
018448: 4E75                     rts

01844A: 4E56 FFF4                link    A6, #-$c
01844E: 48E7 2038                movem.l D2/A2-A4, -(A7)
018452: 267C 0001 58AC           movea.l #$158ac, A3
018458: 287C 0001 EFB6           movea.l #$1efb6, A4
01845E: 7003                     moveq   #$3, D0
018460: B079 0040 0394           cmp.w   $400394.l, D0       Level 4?
018466: 6600 023C                bne     186a4
01846A: 4A39 0040 0760           tst.b   $400760.l
018470: 6700 0232                beq     186a4
018474: 247C 0040 1650           movea.l #$401650, A2
01847A: 207C 0040 2000           movea.l #$402000, A0
018480: 2D48 FFFC                move.l  A0, (-$4,A6)
018484: 2008                     move.l  A0, D0
018486: 2D40 FFF8                move.l  D0, (-$8,A6)
01848A: 2D40 FFF4                move.l  D0, (-$c,A6)
01848E: 4202                     clr.b   D2
018490: 4A6A 0002                tst.w   ($2,A2)
018494: 6D00 006A                blt     18500
018498: 536A 0002                subq.w  #1, ($2,A2)
01849C: 4A6A 0002                tst.w   ($2,A2)
0184A0: 6E00 00BA                bgt     1855c
0184A4: 257C 0002 1342 0008      move.l  #$21342, ($8,A2)    Spike animations
0184AC: 357C FFFF 0002           move.w  #$ffff, ($2,A2)
0184B2: 1012                     move.b  (A2), D0
0184B4: 4880                     ext.w   D0
0184B6: 48C0                     ext.l   D0
0184B8: 2F00                     move.l  D0, -(A7)
0184BA: 4878 0029                pea     $29.w
0184BE: 4EB9 0001 8E6C           jsr     $18e6c.l
0184C4: 0C02 000C                cmpi.b  #$c, D2
0184C8: 508F                     addq.l  #8, A7
0184CA: 6C0C                     bge     184d8
0184CC: B5EE FFF4                cmpa.l  (-$c,A6), A2
0184D0: 6422                     bcc     184f4
0184D2: 2D4A FFF4                move.l  A2, (-$c,A6)
0184D6: 601C                     bra     184f4
0184D8: 0C02 0018                cmpi.b  #$18, D2
0184DC: 6C0C                     bge     184ea
0184DE: B5EE FFF8                cmpa.l  (-$8,A6), A2
0184E2: 6410                     bcc     184f4
0184E4: 2D4A FFF8                move.l  A2, (-$8,A6)
0184E8: 600A                     bra     184f4
0184EA: B5EE FFFC                cmpa.l  (-$4,A6), A2
0184EE: 6404                     bcc     184f4
0184F0: 2D4A FFFC                move.l  A2, (-$4,A6)
0184F4: 2F0A                     move.l  A2, -(A7)
0184F6: 4EB9 0001 8972           jsr     $18972.l
0184FC: 588F                     addq.l  #4, A7
0184FE: 605C                     bra     1855c
018500: 70FF                     moveq   #-$1, D0
018502: B06A 0002                cmp.w   ($2,A2), D0
018506: 6654                     bne     1855c
018508: 58AA 0008                addq.l  #4, ($8,A2)
01850C: 206A 0008                movea.l ($8,A2), A0
018510: 70FF                     moveq   #-$1, D0
018512: B090                     cmp.l   (A0), D0
018514: 6646                     bne     1855c
018516: 1012                     move.b  (A2), D0
018518: 4880                     ext.w   D0
01851A: 48C0                     ext.l   D0
01851C: 2F00                     move.l  D0, -(A7)
01851E: 4878 0029                pea     $29.w
018522: 4EB9 0001 8F46           jsr     $18f46.l
018528: 0C12 0018                cmpi.b  #$18, (A2)
01852C: 508F                     addq.l  #8, A7
01852E: 6C14                     bge     18544
018530: 1012                     move.b  (A2), D0
018532: 4880                     ext.w   D0
018534: D040                     add.w   D0, D0
018536: 207C 0002 42F6           movea.l #$242f6, A0            spike 'spares'
01853C: 3570 0000 0002           move.w  (A0,D0.w), ($2,A2)
018542: 6018                     bra     1855c
018544: 1012                     move.b  (A2), D0
018546: 4880                     ext.w   D0
018548: 48C0                     ext.l   D0
01854A: 7218                     moveq   #$18, D1
01854C: 9081                     sub.l   D1, D0
01854E: D080                     add.l   D0, D0
018550: 2040                     movea.l D0, A0
018552: D1F9 0040 0764           adda.l  $400764.l, A0
018558: 3550 0002                move.w  (A0), ($2,A2)
01855C: 70FF                     moveq   #-$1, D0
01855E: B06A 0002                cmp.w   ($2,A2), D0
018562: 660A                     bne     1856e
018564: 2F0A                     move.l  A2, -(A7)
018566: 4EB9 0001 8972           jsr     $18972.l
01856C: 588F                     addq.l  #4, A7
01856E: 7010                     moveq   #$10, D0
018570: D5C0                     adda.l  D0, A2
018572: 5202                     addq.b  #1, D2
018574: 0C02 0024                cmpi.b  #$24, D2
018578: 6600 FF16                bne     18490
01857C: 0CAE 0040 2000 FFF4      cmpi.l  #$402000, (-$c,A6)
018584: 6756                     beq     185dc
018586: 4878 0002                pea     $2.w
01858A: 4EB9 0001 3A98           jsr     $13a98.l
018590: 1200                     move.b  D0, D1
018592: 206E FFF4                movea.l (-$c,A6), A0
018596: 3428 000E                move.w  ($e,A0), D2
01859A: 0242 FFFF                andi.w  #$ffff, D2
01859E: 70E9                     moveq   #-$17, D0
0185A0: B042                     cmp.w   D2, D0
0185A2: 588F                     addq.l  #4, A7
0185A4: 6E00 0008                bgt     185ae
0185A8: 0C42 00E0                cmpi.w  #$e0, D2
0185AC: 6F1A                     ble     185c8
0185AE: 1001                     move.b  D1, D0
0185B0: 4880                     ext.w   D0
0185B2: 48C0                     ext.l   D0
0185B4: E580                     asl.l   #2, D0
0185B6: 207C 0001 EFD6           movea.l #$1efd6, A0
0185BC: 2070 0800                movea.l (A0,D0.l), A0
0185C0: 4850                     pea     (A0)
0185C2: 4E93                     jsr     (A3)
0185C4: 588F                     addq.l  #4, A7
0185C6: 6014                     bra     185dc
0185C8: 1001                     move.b  D1, D0
0185CA: 4880                     ext.w   D0
0185CC: 48C0                     ext.l   D0
0185CE: E580                     asl.l   #2, D0
0185D0: 204C                     movea.l A4, A0
0185D2: 2070 0800                movea.l (A0,D0.l), A0
0185D6: 4850                     pea     (A0)
0185D8: 4E93                     jsr     (A3)
0185DA: 588F                     addq.l  #4, A7
0185DC: 0CAE 0040 2000 FFF8      cmpi.l  #$402000, (-$8,A6)
0185E4: 675A                     beq     18640
0185E6: 4878 0002                pea     $2.w
0185EA: 4EB9 0001 3A98           jsr     $13a98.l
0185F0: 1200                     move.b  D0, D1
0185F2: 206E FFF8                movea.l (-$8,A6), A0
0185F6: 3428 000E                move.w  ($e,A0), D2
0185FA: 0242 FFFF                andi.w  #$ffff, D2
0185FE: 70E9                     moveq   #-$17, D0
018600: B042                     cmp.w   D2, D0
018602: 588F                     addq.l  #4, A7
018604: 6E00 0008                bgt     1860e
018608: 0C42 00E0                cmpi.w  #$e0, D2
01860C: 6F1C                     ble     1862a
01860E: 1001                     move.b  D1, D0
018610: 4880                     ext.w   D0
018612: 48C0                     ext.l   D0
018614: 5480                     addq.l  #2, D0
018616: E580                     asl.l   #2, D0
018618: 207C 0001 EFD6           movea.l #$1efd6, A0
01861E: 2070 0800                movea.l (A0,D0.l), A0
018622: 4850                     pea     (A0)
018624: 4E93                     jsr     (A3)
018626: 588F                     addq.l  #4, A7
018628: 6016                     bra     18640
01862A: 1001                     move.b  D1, D0
01862C: 4880                     ext.w   D0
01862E: 48C0                     ext.l   D0
018630: 5480                     addq.l  #2, D0
018632: E580                     asl.l   #2, D0
018634: 204C                     movea.l A4, A0
018636: 2070 0800                movea.l (A0,D0.l), A0
01863A: 4850                     pea     (A0)
01863C: 4E93                     jsr     (A3)
01863E: 588F                     addq.l  #4, A7
018640: 0CAE 0040 2000 FFFC      cmpi.l  #$402000, (-$4,A6)
018648: 675A                     beq     186a4
01864A: 4878 0002                pea     $2.w
01864E: 4EB9 0001 3A98           jsr     $13a98.l
018654: 1200                     move.b  D0, D1
018656: 206E FFFC                movea.l (-$4,A6), A0
01865A: 3428 000E                move.w  ($e,A0), D2
01865E: 0242 FFFF                andi.w  #$ffff, D2
018662: 70E9                     moveq   #-$17, D0
018664: B042                     cmp.w   D2, D0
018666: 588F                     addq.l  #4, A7
018668: 6E00 0008                bgt     18672
01866C: 0C42 00E0                cmpi.w  #$e0, D2
018670: 6F1C                     ble     1868e
018672: 1001                     move.b  D1, D0
018674: 4880                     ext.w   D0
018676: 48C0                     ext.l   D0
018678: 5880                     addq.l  #4, D0
01867A: E580                     asl.l   #2, D0
01867C: 207C 0001 EFD6           movea.l #$1efd6, A0
018682: 2070 0800                movea.l (A0,D0.l), A0
018686: 4850                     pea     (A0)
018688: 4E93                     jsr     (A3)
01868A: 588F                     addq.l  #4, A7
01868C: 6016                     bra     186a4
01868E: 1001                     move.b  D1, D0
018690: 4880                     ext.w   D0
018692: 48C0                     ext.l   D0
018694: 5880                     addq.l  #4, D0
018696: E580                     asl.l   #2, D0
018698: 204C                     movea.l A4, A0
01869A: 2070 0800                movea.l (A0,D0.l), A0
01869E: 4850                     pea     (A0)
0186A0: 4E93                     jsr     (A3)
0186A2: 588F                     addq.l  #4, A7
0186A4: 4CDF 1C04                movem.l (A7)+, D2/A2-A4
0186A8: 4E5E                     unlk    A6
0186AA: 4E75                     rts


0186AC: 48E7 3838                movem.l D2-D4/A2-A4, -(A7)
0186B0: 267C 0040 0760           movea.l #$400760, A3
0186B6: 287C 0040 0764           movea.l #$400764, A4
0186BC: 7003                     moveq   #$3, D0
0186BE: B079 0040 0394           cmp.w   $400394.l, D0  Level 4?  Aerial
0186C4: 6600 0150                bne     18816
0186C8: 207C 0040 0018           movea.l #$400018, A0
0186CE: 4201                     clr.b   D1
0186D0: 4202                     clr.b   D2
0186D2: 6028                     bra     186fc

0186D4: 0C28 0001 0018           cmpi.b  #$1, ($18,A0) normal (3 = goal)
0186DA: 6614                     bne     186f0
0186DC: 0C28 0004 001B           cmpi.b  #$4, ($1b,A0) marble being reborn
0186E2: 6700 000A                beq     186ee
0186E6: 0C28 0005 001B           cmpi.b  #$5, ($1b,A0) marble being munched
0186EC: 6602                     bne     186f0
0186EE: 7201                     moveq   #$1, D1
0186F0: 2808                     move.l  A0, D4
0186F2: 0684 0000 00E2           addi.l  #$e2, D4
0186F8: 2044                     movea.l D4, A0
0186FA: 5202                     addq.b  #1, D2

0186FC: 1002                     move.b  D2, D0
0186FE: 4880                     ext.w   D0
018700: B079 0040 0396           cmp.w   $400396.l, D0     1 or 2 player game
018706: 66CC                     bne     186d4           loops twice if 2 player (1 player?)

018708: 4A13                     tst.b   (A3)
01870A: 6600 00BC                bne     187c8
01870E: 4A01                     tst.b   D1
018710: 6700 00B6                beq     187c8
018714: 247C 0040 1650           movea.l #$401650, A2
01871A: 4878 0004                pea     $4.w
01871E: 4EB9 0001 3A98           jsr     $13a98.l
018724: 1600                     move.b  D0, D3
018726: 1003                     move.b  D3, D0
018728: 4880                     ext.w   D0
01872A: E540                     asl.w   #2, D0
01872C: 207C 0002 43E6           movea.l #$243e6, A0
018732: 28B0 0000                move.l  (A0,D0.w), (A4)
018736: 4202                     clr.b   D2
018738: 588F                     addq.l  #4, A7
01873A: 1482                     move.b  D2, (A2)
01873C: 0C02 0018                cmpi.b  #$18, D2
018740: 6C14                     bge     18756
018742: 1002                     move.b  D2, D0
018744: 4880                     ext.w   D0
018746: D040                     add.w   D0, D0
018748: 207C 0002 42C6           movea.l #$242c6, A0      level 4 spikes
01874E: 3570 0000 0002           move.w  (A0,D0.w), ($2,A2)
018754: 6014                     bra     1876a
018756: 1002                     move.b  D2, D0
018758: 4880                     ext.w   D0
01875A: 48C0                     ext.l   D0
01875C: 7218                     moveq   #$18, D1
01875E: 9081                     sub.l   D1, D0
018760: D080                     add.l   D0, D0
018762: 2040                     movea.l D0, A0
018764: D1D4                     adda.l  (A4), A0
018766: 3550 0002                move.w  (A0), ($2,A2)
01876A: 1002                     move.b  D2, D0
01876C: 4880                     ext.w   D0
01876E: 207C 0002 4406           movea.l #$24406, A0
018774: 1570 0000 0004           move.b  (A0,D0.w), ($4,A2)
01877A: 1002                     move.b  D2, D0
01877C: 4880                     ext.w   D0
01877E: 207C 0002 442A           movea.l #$2442a, A0
018784: 1570 0000 0005           move.b  (A0,D0.w), ($5,A2)
01878A: 2F0A                     move.l  A2, -(A7)
01878C: 4EB9 0001 BB28           jsr     $1bb28.l
018792: 1002                     move.b  D2, D0
018794: 4880                     ext.w   D0
018796: D040                     add.w   D0, D0
018798: 207C 0002 444E           movea.l #$2444e, A0
01879E: 3570 0000 0006           move.w  (A0,D0.w), ($6,A2)
0187A4: 7010                     moveq   #$10, D0
0187A6: D5C0                     adda.l  D0, A2
0187A8: 588F                     addq.l  #4, A7
0187AA: 5202                     addq.b  #1, D2
0187AC: 0C02 0024                cmpi.b  #$24, D2
0187B0: 6688                     bne     1873a
0187B2: 1003                     move.b  D3, D0
0187B4: 4880                     ext.w   D0
0187B6: E540                     asl.w   #2, D0
0187B8: 207C 0002 43F6           movea.l #$243f6, A0
0187BE: 28B0 0000                move.l  (A0,D0.w), (A4)
0187C2: 16BC 0001                move.b  #$1, (A3)
0187C6: 604E                     bra     18816
0187C8: 4A01                     tst.b   D1
0187CA: 664A                     bne     18816
0187CC: 4A13                     tst.b   (A3)
0187CE: 6746                     beq     18816
0187D0: 247C 0040 1650           movea.l #$401650, A2
0187D6: 4202                     clr.b   D2
0187D8: 70FF                     moveq   #-$1, D0
0187DA: B06A 0002                cmp.w   ($2,A2), D0
0187DE: 6614                     bne     187f4
0187E0: 1012                     move.b  (A2), D0
0187E2: 4880                     ext.w   D0
0187E4: 48C0                     ext.l   D0
0187E6: 2F00                     move.l  D0, -(A7)
0187E8: 4878 0029                pea     $29.w
0187EC: 4EB9 0001 8F46           jsr     $18f46.l
0187F2: 508F                     addq.l  #8, A7
0187F4: 4240                     clr.w   D0
0187F6: 3540 0006                move.w  D0, ($6,A2)
0187FA: 1540 0005                move.b  D0, ($5,A2)
0187FE: 1540 0004                move.b  D0, ($4,A2)
018802: 4880                     ext.w   D0
018804: 3540 0002                move.w  D0, ($2,A2)
018808: 7010                     moveq   #$10, D0
01880A: D5C0                     adda.l  D0, A2
01880C: 5202                     addq.b  #1, D2
01880E: 0C02 0024                cmpi.b  #$24, D2
018812: 66C4                     bne     187d8
018814: 4213                     clr.b   (A3)
018816: 4CDF 1C1C                movem.l (A7)+, D2-D4/A2-A4
01881A: 4E75                     rts
01881C: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
018820: 246F 0028                movea.l ($28,A7), A2
018824: 7003                     moveq   #$3, D0
018826: B079 0040 0394           cmp.w   $400394.l, D0        level 4
01882C: 6600 000A                bne     18838
018830: 4A39 0040 0760           tst.b   $400760.l
018836: 6606                     bne     1883e
018838: 7000                     moveq   #$0, D0
01883A: 6000 0130                bra     1896c
01883E: 4205                     clr.b   D5
018840: 1C39 0040 0697           move.b  $400697.l, D6
018846: 1E39 0040 0699           move.b  $400699.l, D7
01884C: 2847                     movea.l D7, A4
01884E: 2039 0040 0684           move.l  $400684.l, D0
018854: 7213                     moveq   #$13, D1
018856: E2A0                     asr.l   D1, D0
018858: 1600                     move.b  D0, D3
01885A: 2039 0040 0688           move.l  $400688.l, D0
018860: 7213                     moveq   #$13, D1
018862: E2A0                     asr.l   D1, D0
018864: 1400                     move.b  D0, D2
018866: 267C 0040 1650           movea.l #$401650, A3
01886C: 4204                     clr.b   D4
01886E: 70FF                     moveq   #-$1, D0
018870: B06B 0002                cmp.w   ($2,A3), D0
018874: 6600 00E2                bne     18958
018878: BC2B 0004                cmp.b   ($4,A3), D6
01887C: 6600 00DA                bne     18958
018880: CF8C                     exg     D7, A4
018882: BE2B 0005                cmp.b   ($5,A3), D7
018886: CF8C                     exg     D7, A4
018888: 6600 00CE                bne     18958
01888C: 2579 0040 0684 000C      move.l  $400684.l, ($c,A2)
018894: 2579 0040 0688 0010      move.l  $400688.l, ($10,A2)
01889C: B62B 0004                cmp.b   ($4,A3), D3
0188A0: 6600 008E                bne     18930
0188A4: B42B 0005                cmp.b   ($5,A3), D2
0188A8: 6600 0086                bne     18930
0188AC: 302B 0006                move.w  ($6,A3), D0
0188B0: 41EA 0014                lea     ($14,A2), A0
0188B4: B050                     cmp.w   (A0), D0
0188B6: 6600 0078                bne     18930
0188BA: 257C 0007 0000 0008      move.l  #$70000, ($8,A2)
0188C2: 06AA 000C 0000 0014      addi.l  #$c0000, ($14,A2)
0188CA: 4878 0002                pea     $2.w
0188CE: 4EB9 0001 3A98           jsr     $13a98.l
0188D4: 4A80                     tst.l   D0
0188D6: 588F                     addq.l  #4, A7
0188D8: 6708                     beq     188e2
0188DA: 223C 0000 6000           move.l  #$6000, D1
0188E0: 6006                     bra     188e8
0188E2: 223C FFFF A000           move.l  #$ffffa000, D1
0188E8: 2012                     move.l  (A2), D0
0188EA: E280                     asr.l   #1, D0
0188EC: D081                     add.l   D1, D0
0188EE: 2480                     move.l  D0, (A2)
0188F0: 4878 0002                pea     $2.w
0188F4: 4EB9 0001 3A98           jsr     $13a98.l
0188FA: 4A80                     tst.l   D0
0188FC: 588F                     addq.l  #4, A7
0188FE: 6708                     beq     18908
018900: 223C 0000 6000           move.l  #$6000, D1
018906: 6006                     bra     1890e
018908: 223C FFFF A000           move.l  #$ffffa000, D1
01890E: 202A 0004                move.l  ($4,A2), D0
018912: E280                     asr.l   #1, D0
018914: D081                     add.l   D1, D0
018916: 2540 0004                move.l  D0, ($4,A2)
01891A: 157C 0002 0036           move.b  #$2, ($36,A2)
018920: 4879 0000 0045           pea     $45.l
018926: 4EB9 0001 58AC           jsr     $158ac.l
01892C: 588F                     addq.l  #4, A7
01892E: 6026                     bra     18956
018930: 41EA 0014                lea     ($14,A2), A0
018934: 3010                     move.w  (A0), D0
018936: 48C0                     ext.l   D0
018938: 322B 0006                move.w  ($6,A3), D1
01893C: 48C1                     ext.l   D1
01893E: 9081                     sub.l   D1, D0
018940: 720C                     moveq   #$c, D1
018942: B280                     cmp.l   D0, D1
018944: 6F10                     ble     18956
018946: 2012                     move.l  (A2), D0
018948: 4480                     neg.l   D0
01894A: 2480                     move.l  D0, (A2)
01894C: 202A 0004                move.l  ($4,A2), D0
018950: 4480                     neg.l   D0
018952: 2540 0004                move.l  D0, ($4,A2)
018956: 7A01                     moveq   #$1, D5
018958: 7010                     moveq   #$10, D0
01895A: D7C0                     adda.l  D0, A3
01895C: 5204                     addq.b  #1, D4
01895E: 0C04 0024                cmpi.b  #$24, D4
018962: 6600 FF0A                bne     1886e
018966: 1005                     move.b  D5, D0
018968: 4880                     ext.w   D0
01896A: 48C0                     ext.l   D0
01896C: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
018970: 4E75                     rts
018972: 48E7 3020                movem.l D2-D3/A2, -(A7)
018976: 206F 0010                movea.l ($10,A7), A0
01897A: 247C 0040 0692           movea.l #$400692, A2
018980: 227C 0040 0690           movea.l #$400690, A1
018986: 1028 0004                move.b  ($4,A0), D0
01898A: 4880                     ext.w   D0
01898C: E740                     asl.w   #3, D0
01898E: 3280                     move.w  D0, (A1)
018990: 1028 0005                move.b  ($5,A0), D0
018994: 4880                     ext.w   D0
018996: E740                     asl.w   #3, D0
018998: 3480                     move.w  D0, (A2)
01899A: 3612                     move.w  (A2), D3
01899C: 9651                     sub.w   (A1), D3
01899E: 0643 0088                addi.w  #$88, D3
0189A2: 3028 0006                move.w  ($6,A0), D0
0189A6: 3439 0040 097E           move.w  $40097e.l, D2
0189AC: D440                     add.w   D0, D2
0189AE: 0642 0054                addi.w  #$54, D2
0189B2: 3012                     move.w  (A2), D0
0189B4: 48C0                     ext.l   D0
0189B6: 3211                     move.w  (A1), D1
0189B8: 48C1                     ext.l   D1
0189BA: D081                     add.l   D1, D0
0189BC: E280                     asr.l   #1, D0
0189BE: 9440                     sub.w   D0, D2
0189C0: 3002                     move.w  D2, D0
0189C2: 48C0                     ext.l   D0
0189C4: 2400                     move.l  D0, D2
0189C6: 0282 0000 FFFF           andi.l  #$ffff, D2
0189CC: 3003                     move.w  D3, D0
0189CE: 48C0                     ext.l   D0
0189D0: 2200                     move.l  D0, D1
0189D2: 7010                     moveq   #$10, D0
0189D4: E1A1                     asl.l   D0, D1
0189D6: D481                     add.l   D1, D2
0189D8: 2142 000C                move.l  D2, ($c,A0)
0189DC: 4CDF 040C                movem.l (A7)+, D2-D3/A2
0189E0: 4E75                     rts
0189E2: 48E7 3000                movem.l D2-D3, -(A7)
0189E6: 4A79 0040 0394           tst.w   $400394.l          level 1
0189EC: 6600 002A                bne     18a18
0189F0: 263C 0040 098C           move.l  #$40098c, D3
0189F6: 4202                     clr.b   D2
0189F8: 6012                     bra     18a0c
0189FA: 2203                     move.l  D3, D1
0189FC: 700C                     moveq   #$c, D0
0189FE: D680                     add.l   D0, D3
018A00: 2F01                     move.l  D1, -(A7)
018A02: 4EB9 0001 8A1E           jsr     $18a1e.l
018A08: 588F                     addq.l  #4, A7
018A0A: 5202                     addq.b  #1, D2
018A0C: 1002                     move.b  D2, D0
018A0E: 4880                     ext.w   D0
018A10: B079 0040 0396           cmp.w   $400396.l, D0
018A16: 66E2                     bne     189fa
018A18: 4CDF 000C                movem.l (A7)+, D2-D3
018A1C: 4E75                     rts
018A1E: 48E7 3020                movem.l D2-D3/A2, -(A7)
018A22: 206F 0010                movea.l ($10,A7), A0
018A26: 247C 0040 0692           movea.l #$400692, A2
018A2C: 227C 0040 0690           movea.l #$400690, A1
018A32: 0C28 00FF 000A           cmpi.b  #-$1, ($a,A0)
018A38: 6748                     beq     18a82
018A3A: 3290                     move.w  (A0), (A1)
018A3C: 34A8 0002                move.w  ($2,A0), (A2)
018A40: 3612                     move.w  (A2), D3
018A42: 9651                     sub.w   (A1), D3
018A44: 0643 0088                addi.w  #$88, D3
018A48: 3028 0004                move.w  ($4,A0), D0
018A4C: 3439 0040 097E           move.w  $40097e.l, D2
018A52: D440                     add.w   D0, D2
018A54: 0642 0054                addi.w  #$54, D2
018A58: 3012                     move.w  (A2), D0
018A5A: 48C0                     ext.l   D0
018A5C: 3211                     move.w  (A1), D1
018A5E: 48C1                     ext.l   D1
018A60: D081                     add.l   D1, D0
018A62: E280                     asr.l   #1, D0
018A64: 9440                     sub.w   D0, D2
018A66: 3002                     move.w  D2, D0
018A68: 48C0                     ext.l   D0
018A6A: 2400                     move.l  D0, D2
018A6C: 0282 0000 FFFF           andi.l  #$ffff, D2
018A72: 3003                     move.w  D3, D0
018A74: 48C0                     ext.l   D0
018A76: 2200                     move.l  D0, D1
018A78: 7010                     moveq   #$10, D0
018A7A: E1A1                     asl.l   D0, D1
018A7C: D481                     add.l   D1, D2
018A7E: 2142 0006                move.l  D2, ($6,A0)
018A82: 4CDF 040C                movem.l (A7)+, D2-D3/A2
018A86: 4E75                     rts
018A88: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
018A8C: 267C 0002 8E3C           movea.l #$28e3c, A3
018A92: 287C 0040 03F0           movea.l #$4003f0, A4
018A98: 2F3C FFFF FFFF           move.l  #$ffffffff, -(A7)
018A9E: 4878 001C                pea     $1c.w
018AA2: 4EB9 0001 8CD2           jsr     $18cd2.l
018AA8: 5214                     addq.b  #1, (A4)
018AAA: 247C 0040 0018           movea.l #$400018, A2
018AB0: 4203                     clr.b   D3
018AB2: 508F                     addq.l  #8, A7
018AB4: 6000 0208                bra     18cbe
018AB8: 0C2A 0003 0018           cmpi.b  #$3, ($18,A2)
018ABE: 6600 01F2                bne     18cb2
018AC2: 5239 0040 0658           addq.b  #1, $400658.l
018AC8: 42A7                     clr.l   -(A7)
018ACA: 4EB9 0002 8C7E           jsr     $28c7e.l
018AD0: 5214                     addq.b  #1, (A4)
018AD2: 4A2A 0019                tst.b   ($19,A2)
018AD6: 588F                     addq.l  #4, A7
018AD8: 6708                     beq     18ae2
018ADA: 203C 0000 1400           move.l  #$1400, D0
018AE0: 6006                     bra     18ae8
018AE2: 203C 0000 1000           move.l  #$1000, D0
018AE8: 3A00                     move.w  D0, D5
018AEA: 4A2A 0019                tst.b   ($19,A2)
018AEE: 6708                     beq     18af8
018AF0: 203C 0000 1000           move.l  #$1000, D0
018AF6: 6006                     bra     18afe
018AF8: 203C 0000 1400           move.l  #$1400, D0
018AFE: 3C00                     move.w  D0, D6
018B00: 3005                     move.w  D5, D0
018B02: 48C0                     ext.l   D0
018B04: 2F00                     move.l  D0, -(A7)
018B06: 4879 0002 2B0A           pea     $22b0a.l
018B0C: 4EB9 0000 0200           jsr     $200.l
018B12: 3006                     move.w  D6, D0
018B14: 48C0                     ext.l   D0
018B16: 2F00                     move.l  D0, -(A7)
018B18: 4879 0002 2AAA           pea     $22aaa.l
018B1E: 4EB9 0000 0142           jsr     $142.l
018B24: 7002                     moveq   #$2, D0
018B26: B079 0040 0396           cmp.w   $400396.l, D0
018B2C: 4FEF 0010                lea     ($10,A7), A7
018B30: 6638                     bne     18b6a
018B32: 4A03                     tst.b   D3
018B34: 6708                     beq     18b3e
018B36: 203C 0000 2400           move.l  #$2400, D0
018B3C: 6006                     bra     18b44
018B3E: 203C 0000 2000           move.l  #$2000, D0
018B44: 2F00                     move.l  D0, -(A7)
018B46: 4878 0005                pea     $5.w
018B4A: 4878 000C                pea     $c.w
018B4E: 1003                     move.b  D3, D0
018B50: 4880                     ext.w   D0
018B52: 48C0                     ext.l   D0
018B54: E580                     asl.l   #2, D0
018B56: 207C 0001 EEF0           movea.l #$1eef0, A0
018B5C: 2F30 0800                move.l  (A0,D0.l), -(A7)
018B60: 4EB9 0002 86B0           jsr     $286b0.l
018B66: 4FEF 0010                lea     ($10,A7), A7
018B6A: 283C 0000 4E20           move.l  #$4e20, D4
018B70: 342A 006A                move.w  ($6a,A2), D2
018B74: 7063                     moveq   #$63, D0
018B76: B042                     cmp.w   D2, D0
018B78: 6C02                     bge     18b7c
018B7A: 7463                     moveq   #$63, D2
018B7C: 3005                     move.w  D5, D0
018B7E: 48C0                     ext.l   D0
018B80: 2F00                     move.l  D0, -(A7)
018B82: 4878 0002                pea     $2.w
018B86: 4878 000F                pea     $f.w
018B8A: 4878 000A                pea     $a.w
018B8E: 4878 0001                pea     $1.w
018B92: 3002                     move.w  D2, D0
018B94: 48C0                     ext.l   D0
018B96: 2F00                     move.l  D0, -(A7)
018B98: 4E93                     jsr     (A3)
018B9A: 48C2                     ext.l   D2
018B9C: C5FC 03E8                muls.w  #$3e8, D2
018BA0: 3006                     move.w  D6, D0
018BA2: 48C0                     ext.l   D0
018BA4: 2F00                     move.l  D0, -(A7)
018BA6: 4878 0005                pea     $5.w
018BAA: 4878 000F                pea     $f.w
018BAE: 4878 0021                pea     $21.w
018BB2: 42A7                     clr.l   -(A7)
018BB4: 2F02                     move.l  D2, -(A7)
018BB6: 4E93                     jsr     (A3)
018BB8: D882                     add.l   D2, D4
018BBA: 5214                     addq.b  #1, (A4)
018BBC: 342A 00D2                move.w  ($d2,A2), D2
018BC0: 7014                     moveq   #$14, D0
018BC2: B042                     cmp.w   D2, D0
018BC4: 4FEF 0030                lea     ($30,A7), A7
018BC8: 6C02                     bge     18bcc
018BCA: 7414                     moveq   #$14, D2
018BCC: 3005                     move.w  D5, D0
018BCE: 48C0                     ext.l   D0
018BD0: 2F00                     move.l  D0, -(A7)
018BD2: 4878 0002                pea     $2.w
018BD6: 4878 0011                pea     $11.w
018BDA: 4878 000C                pea     $c.w
018BDE: 42A7                     clr.l   -(A7)
018BE0: 3002                     move.w  D2, D0
018BE2: 48C0                     ext.l   D0
018BE4: 2F00                     move.l  D0, -(A7)
018BE6: 4E93                     jsr     (A3)
018BE8: 48C2                     ext.l   D2
018BEA: C5FC 03E8                muls.w  #$3e8, D2
018BEE: 3006                     move.w  D6, D0
018BF0: 48C0                     ext.l   D0
018BF2: 2F00                     move.l  D0, -(A7)
018BF4: 4878 0005                pea     $5.w
018BF8: 4878 0011                pea     $11.w
018BFC: 4878 0021                pea     $21.w
018C00: 42A7                     clr.l   -(A7)
018C02: 2F02                     move.l  D2, -(A7)
018C04: 4E93                     jsr     (A3)
018C06: 9882                     sub.l   D2, D4
018C08: 3006                     move.w  D6, D0
018C0A: 48C0                     ext.l   D0
018C0C: 2F00                     move.l  D0, -(A7)
018C0E: 4878 0006                pea     $6.w
018C12: 4878 0013                pea     $13.w
018C16: 4878 0020                pea     $20.w
018C1A: 42A7                     clr.l   -(A7)
018C1C: 2F04                     move.l  D4, -(A7)
018C1E: 4E93                     jsr     (A3)
018C20: 5214                     addq.b  #1, (A4)
018C22: 3005                     move.w  D5, D0
018C24: 48C0                     ext.l   D0
018C26: 2F00                     move.l  D0, -(A7)
018C28: 4879 0002 2AF2           pea     $22af2.l
018C2E: 4EB9 0000 0200           jsr     $200.l
018C34: 3005                     move.w  D5, D0
018C36: 48C0                     ext.l   D0
018C38: 2F00                     move.l  D0, -(A7)
018C3A: 4879 0002 2AFE           pea     $22afe.l
018C40: 4EB9 0000 0200           jsr     $200.l
018C46: 243C 0000 00FA           move.l  #$fa, D2
018C4C: 4FEF 0058                lea     ($58,A7), A7
018C50: 4A84                     tst.l   D4
018C52: 6F52                     ble     18ca6
018C54: 9882                     sub.l   D2, D4
018C56: 2F02                     move.l  D2, -(A7)
018C58: 2F0A                     move.l  A2, -(A7)
018C5A: 4EB9 0002 8608           jsr     $28608.l
018C60: 3006                     move.w  D6, D0
018C62: 48C0                     ext.l   D0
018C64: 2F00                     move.l  D0, -(A7)
018C66: 4878 0006                pea     $6.w
018C6A: 4878 0013                pea     $13.w
018C6E: 4878 0020                pea     $20.w
018C72: 42A7                     clr.l   -(A7)
018C74: 2F04                     move.l  D4, -(A7)
018C76: 4E93                     jsr     (A3)
018C78: 3005                     move.w  D5, D0
018C7A: 48C0                     ext.l   D0
018C7C: 2F00                     move.l  D0, -(A7)
018C7E: 4878 0007                pea     $7.w
018C82: 4878 0018                pea     $18.w
018C86: 4878 0017                pea     $17.w
018C8A: 42A7                     clr.l   -(A7)
018C8C: 2F2A 00BC                move.l  ($bc,A2), -(A7)
018C90: 4EB9 0002 8EB2           jsr     $28eb2.l
018C96: 4878 0002                pea     $2.w
018C9A: 4EB9 0002 8DB8           jsr     $28db8.l
018CA0: 4FEF 003C                lea     ($3c,A7), A7
018CA4: 60AA                     bra     18c50
018CA6: 4878 005A                pea     $5a.w
018CAA: 4EB9 0002 8DB8           jsr     $28db8.l
018CB0: 588F                     addq.l  #4, A7
018CB2: 2E0A                     move.l  A2, D7
018CB4: 0687 0000 00E2           addi.l  #$e2, D7
018CBA: 2447                     movea.l D7, A2
018CBC: 5203                     addq.b  #1, D3
018CBE: 1003                     move.b  D3, D0
018CC0: 4880                     ext.w   D0
018CC2: B079 0040 0396           cmp.w   $400396.l, D0
018CC8: 6600 FDEE                bne     18ab8
018CCC: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
018CD0: 4E75                     rts
018CD2: 48E7 3830                movem.l D2-D4/A2-A3, -(A7)
018CD6: 162F 001B                move.b  ($1b,A7), D3
018CDA: 142F 001F                move.b  ($1f,A7), D2
018CDE: 267C 0001 3A98           movea.l #$13a98, A3
018CE4: 0C02 00FF                cmpi.b  #-$1, D2
018CE8: 6606                     bne     18cf0
018CEA: 4EB9 0002 6CFA           jsr     $26cfa.l
018CF0: 247C 0040 0A9C           movea.l #$400a9c, A2
018CF6: 4204                     clr.b   D4
018CF8: 6000 00BE                bra     18db8
018CFC: 4878 0100                pea     $100.w
018D00: 4E93                     jsr     (A3)
018D02: 48C0                     ext.l   D0
018D04: 0280 0000 00FF           andi.l  #$ff, D0
018D0A: 7224                     moveq   #$24, D1
018D0C: D081                     add.l   D1, D0
018D0E: E980                     asl.l   #4, D0
018D10: 3480                     move.w  D0, (A2)
018D12: 4878 0080                pea     $80.w
018D16: 4E93                     jsr     (A3)
018D18: 7230                     moveq   #$30, D1
018D1A: D081                     add.l   D1, D0
018D1C: E980                     asl.l   #4, D0
018D1E: 3540 0002                move.w  D0, ($2,A2)
018D22: 4878 0060                pea     $60.w
018D26: 4E93                     jsr     (A3)
018D28: 0440 0030                subi.w  #$30, D0
018D2C: 3540 0004                move.w  D0, ($4,A2)
018D30: 4FEF 000C                lea     ($c,A7), A7
018D34: 6C08                     bge     18d3e
018D36: 046A 0010 0004           subi.w  #$10, ($4,A2)
018D3C: 6006                     bra     18d44
018D3E: 066A 0010 0004           addi.w  #$10, ($4,A2)
018D44: 4878 0060                pea     $60.w
018D48: 4E93                     jsr     (A3)
018D4A: 0440 0030                subi.w  #$30, D0
018D4E: 3540 0006                move.w  D0, ($6,A2)
018D52: 588F                     addq.l  #4, A7
018D54: 6C08                     bge     18d5e
018D56: 046A 0010 0006           subi.w  #$10, ($6,A2)
018D5C: 6006                     bra     18d64
018D5E: 066A 0010 0006           addi.w  #$10, ($6,A2)
018D64: 4A02                     tst.b   D2
018D66: 6D0A                     blt     18d72
018D68: 1002                     move.b  D2, D0
018D6A: 4880                     ext.w   D0
018D6C: 3540 0008                move.w  D0, ($8,A2)
018D70: 6020                     bra     18d92
018D72: 0C02 00FF                cmpi.b  #-$1, D2
018D76: 660E                     bne     18d86
018D78: 4878 0008                pea     $8.w
018D7C: 4E93                     jsr     (A3)
018D7E: 3540 0008                move.w  D0, ($8,A2)
018D82: 588F                     addq.l  #4, A7
018D84: 600C                     bra     18d92
018D86: 4878 0002                pea     $2.w
018D8A: 4E93                     jsr     (A3)
018D8C: 3540 0008                move.w  D0, ($8,A2)
018D90: 588F                     addq.l  #4, A7
018D92: 302A 0008                move.w  ($8,A2), D0
018D96: 720B                     moveq   #$b, D1
018D98: E360                     asl.w   D1, D0
018D9A: 3540 0008                move.w  D0, ($8,A2)
018D9E: 1004                     move.b  D4, D0
018DA0: 4880                     ext.w   D0
018DA2: 48C0                     ext.l   D0
018DA4: 2F00                     move.l  D0, -(A7)
018DA6: 4878 002C                pea     $2c.w
018DAA: 4EB9 0001 8E6C           jsr     $18e6c.l
018DB0: 700A                     moveq   #$a, D0
018DB2: D5C0                     adda.l  D0, A2
018DB4: 508F                     addq.l  #8, A7
018DB6: 5204                     addq.b  #1, D4
018DB8: B803                     cmp.b   D3, D4
018DBA: 6600 FF40                bne     18cfc
018DBE: 13C3 0040 03E2           move.b  D3, $4003e2.l
018DC4: 4CDF 0C1C                movem.l (A7)+, D2-D4/A2-A3
018DC8: 4E75                     rts
018DCA: 48E7 3C00                movem.l D2-D5, -(A7)
018DCE: 207C 0040 0A9C           movea.l #$400a9c, A0
018DD4: 4201                     clr.b   D1
018DD6: 6000 0084                bra     18e5c
018DDA: 3A28 0004                move.w  ($4,A0), D5
018DDE: DA50                     add.w   (A0), D5
018DE0: 3605                     move.w  D5, D3
018DE2: E843                     asr.w   #4, D3
018DE4: 3828 0006                move.w  ($6,A0), D4
018DE8: D868 0002                add.w   ($2,A0), D4
018DEC: 3404                     move.w  D4, D2
018DEE: E842                     asr.w   #4, D2
018DF0: 7008                     moveq   #$8, D0
018DF2: B043                     cmp.w   D3, D0
018DF4: 6F08                     ble     18dfe
018DF6: 4A68 0004                tst.w   ($4,A0)
018DFA: 6D00 000E                blt     18e0a
018DFE: 0C43 0148                cmpi.w  #$148, D3
018E02: 6F12                     ble     18e16
018E04: 4A68 0004                tst.w   ($4,A0)
018E08: 6F0C                     ble     18e16
018E0A: 3028 0004                move.w  ($4,A0), D0
018E0E: 48C0                     ext.l   D0
018E10: 4480                     neg.l   D0
018E12: 3140 0004                move.w  D0, ($4,A0)
018E16: 4A42                     tst.w   D2
018E18: 6C08                     bge     18e22
018E1A: 4A68 0006                tst.w   ($6,A0)
018E1E: 6D00 000E                blt     18e2e
018E22: 0C42 00E0                cmpi.w  #$e0, D2
018E26: 6F12                     ble     18e3a
018E28: 4A68 0006                tst.w   ($6,A0)
018E2C: 6F0C                     ble     18e3a
018E2E: 3028 0006                move.w  ($6,A0), D0
018E32: 48C0                     ext.l   D0
018E34: 4480                     neg.l   D0
018E36: 3140 0006                move.w  D0, ($6,A0)
018E3A: 7008                     moveq   #$8, D0
018E3C: B043                     cmp.w   D3, D0
018E3E: 6E16                     bgt     18e56
018E40: 0C43 0148                cmpi.w  #$148, D3
018E44: 6E10                     bgt     18e56
018E46: 4A42                     tst.w   D2
018E48: 6D0C                     blt     18e56
018E4A: 0C42 00E0                cmpi.w  #$e0, D2
018E4E: 6E06                     bgt     18e56
018E50: 3085                     move.w  D5, (A0)
018E52: 3144 0002                move.w  D4, ($2,A0)
018E56: 700A                     moveq   #$a, D0
018E58: D1C0                     adda.l  D0, A0
018E5A: 5201                     addq.b  #1, D1
018E5C: B239 0040 03E2           cmp.b   $4003e2.l, D1
018E62: 6600 FF76                bne     18dda
018E66: 4CDF 003C                movem.l (A7)+, D2-D5
018E6A: 4E75                     rts
018E6C: 4E56 FFF2                link    A6, #-$e
018E70: 48E7 3038                movem.l D2-D3/A2-A4, -(A7)
018E74: 142E 000B                move.b  ($b,A6), D2
018E78: 162E 000F                move.b  ($f,A6), D3
018E7C: 247C 0040 03BC           movea.l #$4003bc, A2
018E82: 287C 0040 01DC           movea.l #$4001dc, A4
018E88: 1D42 FFF2                move.b  D2, (-$e,A6)
018E8C: 1D43 FFF3                move.b  D3, (-$d,A6)
018E90: 486E FFF2                pea     (-$e,A6)
018E94: 4EB9 0001 B12A           jsr     $1b12a.l
018E9A: 264A                     movea.l A2, A3
018E9C: 588F                     addq.l  #4, A7
018E9E: 0C13 00FF                cmpi.b  #-$1, (A3)
018EA2: 6730                     beq     18ed4
018EA4: 41EA 001F                lea     ($1f,A2), A0
018EA8: B7C8                     cmpa.l  A0, A3
018EAA: 6428                     bcc     18ed4
018EAC: 486E FFF2                pea     (-$e,A6)
018EB0: 1013                     move.b  (A3), D0
018EB2: 4880                     ext.w   D0
018EB4: 48C0                     ext.l   D0
018EB6: E580                     asl.l   #2, D0
018EB8: 207C 0001 F0E2           movea.l #$1f0e2, A0
018EBE: 2F30 0800                move.l  (A0,D0.l), -(A7)
018EC2: 4EB9 0001 A80A           jsr     $1a80a.l
018EC8: 4A80                     tst.l   D0
018ECA: 508F                     addq.l  #8, A7
018ECC: 6600 0006                bne     18ed4
018ED0: 528B                     addq.l  #1, A3
018ED2: 60CA                     bra     18e9e
018ED4: 41EA 001F                lea     ($1f,A2), A0
018ED8: B7C8                     cmpa.l  A0, A3
018EDA: 6400 0062                bcc     18f3e
018EDE: 224C                     movea.l A4, A1
018EE0: 4201                     clr.b   D1
018EE2: 4A11                     tst.b   (A1)
018EE4: 6710                     beq     18ef6
018EE6: 41EC 01B2                lea     ($1b2,A4), A0
018EEA: B3C8                     cmpa.l  A0, A1
018EEC: 6408                     bcc     18ef6
018EEE: 700E                     moveq   #$e, D0
018EF0: D3C0                     adda.l  D0, A1
018EF2: 5201                     addq.b  #1, D1
018EF4: 60EC                     bra     18ee2
018EF6: 41EC 01B2                lea     ($1b2,A4), A0
018EFA: B3C8                     cmpa.l  A0, A1
018EFC: 6400 0040                bcc     18f3e
018F00: 1282                     move.b  D2, (A1)
018F02: 1343 0001                move.b  D3, ($1,A1)
018F06: 0C13 00FF                cmpi.b  #-$1, (A3)
018F0A: 6730                     beq     18f3c
018F0C: 204B                     movea.l A3, A0
018F0E: 5288                     addq.l  #1, A0
018F10: 2248                     movea.l A0, A1
018F12: 0C11 00FF                cmpi.b  #-$1, (A1)
018F16: 670C                     beq     18f24
018F18: 41EA 001F                lea     ($1f,A2), A0
018F1C: B3C8                     cmpa.l  A0, A1
018F1E: 6404                     bcc     18f24
018F20: 5289                     addq.l  #1, A1
018F22: 60EE                     bra     18f12
018F24: 5389                     subq.l  #1, A1
018F26: B3CB                     cmpa.l  A3, A1
018F28: 6512                     bcs     18f3c
018F2A: 41EA 001E                lea     ($1e,A2), A0
018F2E: B3C8                     cmpa.l  A0, A1
018F30: 6406                     bcc     18f38
018F32: 2049                     movea.l A1, A0
018F34: 5288                     addq.l  #1, A0
018F36: 1091                     move.b  (A1), (A0)
018F38: 5389                     subq.l  #1, A1
018F3A: 60EA                     bra     18f26
018F3C: 1681                     move.b  D1, (A3)
018F3E: 4CDF 1C0C                movem.l (A7)+, D2-D3/A2-A4
018F42: 4E5E                     unlk    A6
018F44: 4E75                     rts
018F46: 48E7 2030                movem.l D2/A2-A3, -(A7)
018F4A: 122F 0013                move.b  ($13,A7), D1
018F4E: 142F 0017                move.b  ($17,A7), D2
018F52: 247C 0040 03BC           movea.l #$4003bc, A2
018F58: 224A                     movea.l A2, A1
018F5A: 0C11 00FF                cmpi.b  #-$1, (A1)
018F5E: 672A                     beq     18f8a
018F60: 41EA 001F                lea     ($1f,A2), A0
018F64: B3C8                     cmpa.l  A0, A1
018F66: 6422                     bcc     18f8a
018F68: 1011                     move.b  (A1), D0
018F6A: 4880                     ext.w   D0
018F6C: 48C0                     ext.l   D0
018F6E: E580                     asl.l   #2, D0
018F70: 207C 0001 F0E2           movea.l #$1f0e2, A0
018F76: 2670 0800                movea.l (A0,D0.l), A3
018F7A: B213                     cmp.b   (A3), D1
018F7C: 6608                     bne     18f86
018F7E: B42B 0001                cmp.b   ($1,A3), D2
018F82: 6700 0006                beq     18f8a
018F86: 5289                     addq.l  #1, A1
018F88: 60D0                     bra     18f5a
018F8A: 41EA 001F                lea     ($1f,A2), A0
018F8E: B3C8                     cmpa.l  A0, A1
018F90: 6400 0038                bcc     18fca
018F94: 0C11 00FF                cmpi.b  #-$1, (A1)
018F98: 6700 0030                beq     18fca
018F9C: 4213                     clr.b   (A3)
018F9E: 2049                     movea.l A1, A0
018FA0: 5288                     addq.l  #1, A0
018FA2: 2648                     movea.l A0, A3
018FA4: 0C13 00FF                cmpi.b  #-$1, (A3)
018FA8: 670C                     beq     18fb6
018FAA: 41EA 001F                lea     ($1f,A2), A0
018FAE: B7C8                     cmpa.l  A0, A3
018FB0: 6404                     bcc     18fb6
018FB2: 528B                     addq.l  #1, A3
018FB4: 60EE                     bra     18fa4
018FB6: 538B                     subq.l  #1, A3
018FB8: B3CB                     cmpa.l  A3, A1
018FBA: 640A                     bcc     18fc6
018FBC: 2049                     movea.l A1, A0
018FBE: 5288                     addq.l  #1, A0
018FC0: 1290                     move.b  (A0), (A1)
018FC2: 5289                     addq.l  #1, A1
018FC4: 60F2                     bra     18fb8
018FC6: 12BC 00FF                move.b  #$ff, (A1)
018FCA: 4CDF 0C04                movem.l (A7)+, D2/A2-A3
018FCE: 4E75                     rts
018FD0: 2F02                     move.l  D2, -(A7)
018FD2: 2079 0040 0474           movea.l $400474.l, A0
018FD8: 2068 000C                movea.l ($c,A0), A0
018FDC: 227C 0040 0478           movea.l #$400478, A1
018FE2: 3418                     move.w  (A0)+, D2
018FE4: 6710                     beq     18ff6
018FE6: 3218                     move.w  (A0)+, D1
018FE8: 4240                     clr.w   D0
018FEA: 6004                     bra     18ff0
018FEC: 32C1                     move.w  D1, (A1)+
018FEE: 5240                     addq.w  #1, D0
018FF0: B042                     cmp.w   D2, D0
018FF2: 6CEE                     bge     18fe2
018FF4: 60F6                     bra     18fec
018FF6: 241F                     move.l  (A7)+, D2
018FF8: 4E75                     rts
018FFA: 48E7 2020                movem.l D2/A2, -(A7)
018FFE: 247C 0040 1890           movea.l #$401890, A2
019004: 4202                     clr.b   D2
019006: 0C2A 0001 0018           cmpi.b  #$1, ($18,A2)
01900C: 6700 00DA                beq     190e8
019010: 7028                     moveq   #$28, D0
019012: D5C0                     adda.l  D0, A2
019014: 5202                     addq.b  #1, D2
019016: 0C02 0009                cmpi.b  #$9, D2
01901A: 66EA                     bne     19006
01901C: 247C 0040 1890           movea.l #$401890, A2
019022: 4202                     clr.b   D2
019024: 0C02 0003                cmpi.b  #$3, D2
019028: 6C08                     bge     19032
01902A: 157C 0007 0025           move.b  #$7, ($25,A2)
019030: 6014                     bra     19046
019032: 0C02 0006                cmpi.b  #$6, D2
019036: 6C08                     bge     19040
019038: 157C 0008 0025           move.b  #$8, ($25,A2)
01903E: 6006                     bra     19046
019040: 157C 0009 0025           move.b  #$9, ($25,A2)
019046: 157C 0001 0018           move.b  #$1, ($18,A2)
01904C: 422A 001A                clr.b   ($1a,A2)
019050: 4878 0020                pea     $20.w
019054: 4EB9 0001 3A98           jsr     $13a98.l
01905A: E580                     asl.l   #2, D0
01905C: 0680 0000 02CA           addi.l  #$2ca, D0
019062: 7210                     moveq   #$10, D1
019064: E3A0                     asl.l   D1, D0
019066: 2540 000C                move.l  D0, ($c,A2)
01906A: 4878 0020                pea     $20.w
01906E: 4EB9 0001 3A98           jsr     $13a98.l
019074: E580                     asl.l   #2, D0
019076: 0680 0000 02D2           addi.l  #$2d2, D0
01907C: 7210                     moveq   #$10, D1
01907E: E3A0                     asl.l   D1, D0
019080: 2540 0010                move.l  D0, ($10,A2)
019084: 508F                     addq.l  #8, A7
019086: 2F0A                     move.l  A2, -(A7)
019088: 4EB9 0001 937C           jsr     $1937c.l
01908E: 4A80                     tst.l   D0
019090: 588F                     addq.l  #4, A7
019092: 66BC                     bne     19050
019094: 257C 3F6E 0000 0014      move.l  #$3f6e0000, ($14,A2)
01909C: 7000                     moveq   #$0, D0
01909E: 2540 0008                move.l  D0, ($8,A2)
0190A2: 2540 0004                move.l  D0, ($4,A2)
0190A6: 2480                     move.l  D0, (A2)
0190A8: 1540 001B                move.b  D0, ($1b,A2)
0190AC: 2F0A                     move.l  A2, -(A7)
0190AE: 4EB9 0001 94BA           jsr     $194ba.l
0190B4: 2F0A                     move.l  A2, -(A7)
0190B6: 4EB9 0001 99D6           jsr     $199d6.l
0190BC: 102A 0019                move.b  ($19,A2), D0
0190C0: 4880                     ext.w   D0
0190C2: 48C0                     ext.l   D0
0190C4: 2F00                     move.l  D0, -(A7)
0190C6: 102A 0025                move.b  ($25,A2), D0
0190CA: 4880                     ext.w   D0
0190CC: 48C0                     ext.l   D0
0190CE: 2F00                     move.l  D0, -(A7)
0190D0: 4EB9 0001 8E6C           jsr     $18e6c.l
0190D6: 7028                     moveq   #$28, D0
0190D8: D5C0                     adda.l  D0, A2
0190DA: 4FEF 0010                lea     ($10,A7), A7
0190DE: 5202                     addq.b  #1, D2
0190E0: 0C02 0009                cmpi.b  #$9, D2
0190E4: 6600 FF3E                bne     19024
0190E8: 4CDF 0404                movem.l (A7)+, D2/A2
0190EC: 4E75                     rts
0190EE: 48E7 2020                movem.l D2/A2, -(A7)
0190F2: 247C 0040 1890           movea.l #$401890, A2
0190F8: 4202                     clr.b   D2
0190FA: 422A 0018                clr.b   ($18,A2)
0190FE: 102A 0019                move.b  ($19,A2), D0
019102: 4880                     ext.w   D0
019104: 48C0                     ext.l   D0
019106: 2F00                     move.l  D0, -(A7)
019108: 102A 0025                move.b  ($25,A2), D0
01910C: 4880                     ext.w   D0
01910E: 48C0                     ext.l   D0
019110: 2F00                     move.l  D0, -(A7)
019112: 4EB9 0001 8F46           jsr     $18f46.l
019118: 7028                     moveq   #$28, D0
01911A: D5C0                     adda.l  D0, A2
01911C: 508F                     addq.l  #8, A7
01911E: 5202                     addq.b  #1, D2
019120: 0C02 0009                cmpi.b  #$9, D2
019124: 66D4                     bne     190fa
019126: 4CDF 0404                movem.l (A7)+, D2/A2
01912A: 4E75                     rts
01912C: 48E7 3820                movem.l D2-D4/A2, -(A7)
019130: 7004                     moveq   #$4, D0
019132: B079 0040 0394           cmp.w   $400394.l, D0      level 5
019138: 6600 010E                bne     19248
01913C: 4203                     clr.b   D3
01913E: 227C 0040 0018           movea.l #$400018, A1
019144: 4202                     clr.b   D2
019146: 6028                     bra     19170
019148: 0C29 0001 0018           cmpi.b  #$1, ($18,A1)
01914E: 6614                     bne     19164
019150: 41E9 0014                lea     ($14,A1), A0
019154: 0C50 3F6E                cmpi.w  #$3f6e, (A0)
019158: 660A                     bne     19164
01915A: 0C29 0001 001B           cmpi.b  #$1, ($1b,A1)
019160: 6602                     bne     19164
019162: 7601                     moveq   #$1, D3
019164: 2809                     move.l  A1, D4
019166: 0684 0000 00E2           addi.l  #$e2, D4
01916C: 2244                     movea.l D4, A1
01916E: 5202                     addq.b  #1, D2
019170: 1002                     move.b  D2, D0
019172: 4880                     ext.w   D0
019174: B079 0040 0396           cmp.w   $400396.l, D0
01917A: 66CC                     bne     19148
01917C: 247C 0040 1890           movea.l #$401890, A2
019182: 4202                     clr.b   D2
019184: 4A2A 0018                tst.b   ($18,A2)
019188: 6700 00B0                beq     1923a
01918C: 522A 0024                addq.b  #1, ($24,A2)
019190: 0C2A 0002 001A           cmpi.b  #$2, ($1a,A2)
019196: 6704                     beq     1919c
019198: 1543 001A                move.b  D3, ($1a,A2)
01919C: 0C2A 0001 001A           cmpi.b  #$1, ($1a,A2)
0191A2: 6604                     bne     191a8
0191A4: 7001                     moveq   #$1, D0
0191A6: 6002                     bra     191aa
0191A8: 7003                     moveq   #$3, D0
0191AA: B02A 0024                cmp.b   ($24,A2), D0
0191AE: 6E00 0080                bgt     19230
0191B2: 422A 0024                clr.b   ($24,A2)
0191B6: 0C2A 0007 0025           cmpi.b  #$7, ($25,A2)
0191BC: 664C                     bne     1920a
0191BE: 0C2A 0002 001A           cmpi.b  #$2, ($1a,A2)
0191C4: 661A                     bne     191e0
0191C6: 58AA 001C                addq.l  #4, ($1c,A2)
0191CA: 206A 001C                movea.l ($1c,A2), A0
0191CE: 70FF                     moveq   #-$1, D0
0191D0: B090                     cmp.l   (A0), D0
0191D2: 665C                     bne     19230
0191D4: 2F0A                     move.l  A2, -(A7)
0191D6: 4EB9 0001 94BA           jsr     $194ba.l
0191DC: 588F                     addq.l  #4, A7
0191DE: 6050                     bra     19230
0191E0: 2012                     move.l  (A2), D0
0191E2: D1AA 000C                add.l   D0, ($c,A2)
0191E6: 202A 0004                move.l  ($4,A2), D0
0191EA: D1AA 0010                add.l   D0, ($10,A2)
0191EE: 522A 001B                addq.b  #1, ($1b,A2)
0191F2: 0C2A 0004 001B           cmpi.b  #$4, ($1b,A2)
0191F8: 6D36                     blt     19230
0191FA: 2F0A                     move.l  A2, -(A7)
0191FC: 4EB9 0001 94BA           jsr     $194ba.l
019202: 422A 001B                clr.b   ($1b,A2)
019206: 588F                     addq.l  #4, A7
019208: 6026                     bra     19230
01920A: 58AA 001C                addq.l  #4, ($1c,A2)
01920E: 206A 001C                movea.l ($1c,A2), A0
019212: 70FF                     moveq   #-$1, D0
019214: B090                     cmp.l   (A0), D0
019216: 6618                     bne     19230
019218: 2012                     move.l  (A2), D0
01921A: D1AA 000C                add.l   D0, ($c,A2)
01921E: 202A 0004                move.l  ($4,A2), D0
019222: D1AA 0010                add.l   D0, ($10,A2)
019226: 2F0A                     move.l  A2, -(A7)
019228: 4EB9 0001 94BA           jsr     $194ba.l
01922E: 588F                     addq.l  #4, A7
019230: 2F0A                     move.l  A2, -(A7)
019232: 4EB9 0001 99D6           jsr     $199d6.l
019238: 588F                     addq.l  #4, A7
01923A: 7028                     moveq   #$28, D0
01923C: D5C0                     adda.l  D0, A2
01923E: 5202                     addq.b  #1, D2
019240: 0C02 0009                cmpi.b  #$9, D2
019244: 6600 FF3E                bne     19184
019248: 4CDF 041C                movem.l (A7)+, D2-D4/A2
01924C: 4E75                     rts
01924E: 48E7 3830                movem.l D2-D4/A2-A3, -(A7)
019252: 246F 0018                movea.l ($18,A7), A2
019256: 7004                     moveq   #$4, D0
019258: B079 0040 0394           cmp.w   $400394.l, D0        level 5
01925E: 6600 0116                bne     19376
019262: 0C2A 0001 001B           cmpi.b  #$1, ($1b,A2)
019268: 6600 010C                bne     19376
01926C: 267C 0040 1890           movea.l #$401890, A3
019272: 4202                     clr.b   D2
019274: 4A2B 0018                tst.b   ($18,A3)
019278: 6700 00EE                beq     19368
01927C: 0C2B 0002 001A           cmpi.b  #$2, ($1a,A3)
019282: 6700 00E4                beq     19368
019286: 7204                     moveq   #$4, D1
019288: 0C2B 0007 0025           cmpi.b  #$7, ($25,A3)
01928E: 6602                     bne     19292
019290: 7205                     moveq   #$5, D1
019292: 3639 0040 0690           move.w  $400690.l, D3
019298: 41EB 000C                lea     ($c,A3), A0
01929C: 9650                     sub.w   (A0), D3
01929E: 4A43                     tst.w   D3
0192A0: 6C08                     bge     192aa
0192A2: 7000                     moveq   #$0, D0
0192A4: 3003                     move.w  D3, D0
0192A6: 4480                     neg.l   D0
0192A8: 6004                     bra     192ae
0192AA: 7000                     moveq   #$0, D0
0192AC: 3003                     move.w  D3, D0
0192AE: 3800                     move.w  D0, D4
0192B0: 3639 0040 0692           move.w  $400692.l, D3
0192B6: 41EB 0010                lea     ($10,A3), A0
0192BA: 9650                     sub.w   (A0), D3
0192BC: 4A43                     tst.w   D3
0192BE: 6C08                     bge     192c8
0192C0: 7000                     moveq   #$0, D0
0192C2: 3003                     move.w  D3, D0
0192C4: 4480                     neg.l   D0
0192C6: 6004                     bra     192cc
0192C8: 7000                     moveq   #$0, D0
0192CA: 3003                     move.w  D3, D0
0192CC: 3600                     move.w  D0, D3
0192CE: 1001                     move.b  D1, D0
0192D0: 4880                     ext.w   D0
0192D2: B044                     cmp.w   D4, D0
0192D4: 6300 0092                bls     19368
0192D8: 1001                     move.b  D1, D0
0192DA: 4880                     ext.w   D0
0192DC: B043                     cmp.w   D3, D0
0192DE: 6300 0088                bls     19368
0192E2: 177C 0002 001A           move.b  #$2, ($1a,A3)
0192E8: 7000                     moveq   #$0, D0
0192EA: 2740 0004                move.l  D0, ($4,A3)
0192EE: 2680                     move.l  D0, (A3)
0192F0: 2F0B                     move.l  A3, -(A7)
0192F2: 4EB9 0001 94BA           jsr     $194ba.l
0192F8: 0C2B 0009 0025           cmpi.b  #$9, ($25,A3)
0192FE: 588F                     addq.l  #4, A7
019300: 6618                     bne     1931a
019302: 277C 0002 1EFE 001C      move.l  #$21efe, ($1c,A3)
01930A: 4879 0000 005C           pea     $5c.l
019310: 4EB9 0001 58AC           jsr     $158ac.l
019316: 588F                     addq.l  #4, A7
019318: 602E                     bra     19348
01931A: 0C2B 0007 0025           cmpi.b  #$7, ($25,A3)
019320: 6618                     bne     1933a
019322: 277C 0002 1F7A 001C      move.l  #$21f7a, ($1c,A3)
01932A: 4879 0000 005B           pea     $5b.l
019330: 4EB9 0001 58AC           jsr     $158ac.l
019336: 588F                     addq.l  #4, A7
019338: 600E                     bra     19348
01933A: 4879 0000 005A           pea     $5a.l
019340: 4EB9 0001 58AC           jsr     $158ac.l
019346: 588F                     addq.l  #4, A7
019348: 566A 006A                addq.w  #3, ($6a,A2)
01934C: 4878 000E                pea     $e.w
019350: 2F0A                     move.l  A2, -(A7)
019352: 4EB9 0002 85B0           jsr     $285b0.l
019358: 4878 01F4                pea     $1f4.w
01935C: 2F0A                     move.l  A2, -(A7)
01935E: 4EB9 0002 8608           jsr     $28608.l
019364: 4FEF 0010                lea     ($10,A7), A7
019368: 7028                     moveq   #$28, D0
01936A: D7C0                     adda.l  D0, A3
01936C: 5202                     addq.b  #1, D2
01936E: 0C02 0009                cmpi.b  #$9, D2
019372: 6600 FF00                bne     19274
019376: 4CDF 0C1C                movem.l (A7)+, D2-D4/A2-A3
01937A: 4E75                     rts
01937C: 48E7 3800                movem.l D2-D4, -(A7)
019380: 226F 0010                movea.l ($10,A7), A1
019384: 41E9 000C                lea     ($c,A1), A0
019388: 3610                     move.w  (A0), D3
01938A: 41E9 0010                lea     ($10,A1), A0
01938E: 3810                     move.w  (A0), D4
019390: 7401                     moveq   #$1, D2
019392: 3004                     move.w  D4, D0
019394: 48C0                     ext.l   D0
019396: 2F00                     move.l  D0, -(A7)
019398: 3003                     move.w  D3, D0
01939A: 48C0                     ext.l   D0
01939C: 2F00                     move.l  D0, -(A7)
01939E: 2F09                     move.l  A1, -(A7)
0193A0: 4EB9 0001 93D8           jsr     $193d8.l
0193A6: 4A80                     tst.l   D0
0193A8: 4FEF 000C                lea     ($c,A7), A7
0193AC: 6600 001E                bne     193cc
0193B0: 3004                     move.w  D4, D0
0193B2: 48C0                     ext.l   D0
0193B4: 2F00                     move.l  D0, -(A7)
0193B6: 3003                     move.w  D3, D0
0193B8: 48C0                     ext.l   D0
0193BA: 2F00                     move.l  D0, -(A7)
0193BC: 4EB9 0001 9460           jsr     $19460.l
0193C2: 4A80                     tst.l   D0
0193C4: 508F                     addq.l  #8, A7
0193C6: 6600 0004                bne     193cc
0193CA: 4202                     clr.b   D2
0193CC: 1002                     move.b  D2, D0
0193CE: 4880                     ext.w   D0
0193D0: 48C0                     ext.l   D0
0193D2: 4CDF 001C                movem.l (A7)+, D2-D4
0193D6: 4E75                     rts
0193D8: 48E7 3E00                movem.l D2-D6, -(A7)
0193DC: 262F 0018                move.l  ($18,A7), D3
0193E0: 342F 001E                move.w  ($1e,A7), D2
0193E4: 322F 0022                move.w  ($22,A7), D1
0193E8: 227C 0040 1890           movea.l #$401890, A1
0193EE: 4204                     clr.b   D4
0193F0: B689                     cmp.l   A1, D3
0193F2: 6700 0058                beq     1944c
0193F6: 4A29 0018                tst.b   ($18,A1)
0193FA: 6700 0050                beq     1944c
0193FE: 0C29 0002 001A           cmpi.b  #$2, ($1a,A1)
019404: 6700 0046                beq     1944c
019408: 41E9 000C                lea     ($c,A1), A0
01940C: 3A10                     move.w  (A0), D5
01940E: 9A42                     sub.w   D2, D5
019410: 4A45                     tst.w   D5
019412: 6C08                     bge     1941c
019414: 7000                     moveq   #$0, D0
019416: 3005                     move.w  D5, D0
019418: 4480                     neg.l   D0
01941A: 6004                     bra     19420
01941C: 7000                     moveq   #$0, D0
01941E: 3005                     move.w  D5, D0
019420: 3C00                     move.w  D0, D6
019422: 41E9 0010                lea     ($10,A1), A0
019426: 3A10                     move.w  (A0), D5
019428: 9A41                     sub.w   D1, D5
01942A: 4A45                     tst.w   D5
01942C: 6C08                     bge     19436
01942E: 7000                     moveq   #$0, D0
019430: 3005                     move.w  D5, D0
019432: 4480                     neg.l   D0
019434: 6004                     bra     1943a
019436: 7000                     moveq   #$0, D0
019438: 3005                     move.w  D5, D0
01943A: 3A00                     move.w  D0, D5
01943C: 700C                     moveq   #$c, D0
01943E: B046                     cmp.w   D6, D0
019440: 630A                     bls     1944c
019442: 700C                     moveq   #$c, D0
019444: B045                     cmp.w   D5, D0
019446: 6304                     bls     1944c
019448: 7001                     moveq   #$1, D0
01944A: 600E                     bra     1945a
01944C: 7028                     moveq   #$28, D0
01944E: D3C0                     adda.l  D0, A1
019450: 5204                     addq.b  #1, D4
019452: 0C04 0009                cmpi.b  #$9, D4
019456: 6698                     bne     193f0
019458: 7000                     moveq   #$0, D0
01945A: 4CDF 007C                movem.l (A7)+, D2-D6
01945E: 4E75                     rts

019460: 2F02                     move.l  D2, -(A7)
019462: 302F 000A                move.w  ($a,A7), D0
019466: 322F 000E                move.w  ($e,A7), D1
01946A: E640                     asr.w   #3, D0
01946C: 1400                     move.b  D0, D2
01946E: 0402 0059                subi.b  #$59, D2
019472: 3001                     move.w  D1, D0
019474: E640                     asr.w   #3, D0
019476: 0400 005A                subi.b  #$5a, D0
01947A: 4A02                     tst.b   D2
01947C: 6D00 0016                blt     19494
019480: 0C02 000F                cmpi.b  #$f, D2
019484: 6E00 000E                bgt     19494
019488: 4A00                     tst.b   D0
01948A: 6D00 0008                blt     19494
01948E: 0C00 000F                cmpi.b  #$f, D0
019492: 6F04                     ble     19498
019494: 7001                     moveq   #$1, D0
019496: 601E                     bra     194b6
019498: 4880                     ext.w   D0
01949A: D040                     add.w   D0, D0
01949C: 207C 0002 4496           movea.l #$24496, A0
0194A2: 3030 0000                move.w  (A0,D0.w), D0
0194A6: 48C0                     ext.l   D0
0194A8: 7201                     moveq   #$1, D1
0194AA: E5A1                     asl.l   D2, D1
0194AC: C081                     and.l   D1, D0
0194AE: 6704                     beq     194b4
0194B0: 7001                     moveq   #$1, D0
0194B2: 6002                     bra     194b6
0194B4: 7000                     moveq   #$0, D0
0194B6: 241F                     move.l  (A7)+, D2
0194B8: 4E75                     rts

0194BA: 2F0A                     move.l  A2, -(A7)
0194BC: 246F 0008                movea.l ($8,A7), A2
0194C0: 102A 001A                move.b  ($1a,A2), D0
0194C4: 4880                     ext.w   D0
0194C6: 48C0                     ext.l   D0
0194C8: 2040                     movea.l D0, A0
0194CA: B0FC 0000                cmpa.w  #$0, A0
0194CE: 6D00 006A                blt     1953a
0194D2: 6E02                     bgt     194d6
0194D4: 6010                     bra     194e6
0194D6: B0FC 0001                cmpa.w  #$1, A0
0194DA: 6602                     bne     194de
0194DC: 601C                     bra     194fa
0194DE: B0FC 0002                cmpa.w  #$2, A0
0194E2: 6656                     bne     1953a
0194E4: 6028                     bra     1950e
0194E6: 2F0A                     move.l  A2, -(A7)
0194E8: 4EB9 0001 960E           jsr     $1960e.l
0194EE: 2F0A                     move.l  A2, -(A7)
0194F0: 4EB9 0001 953E           jsr     $1953e.l
0194F6: 508F                     addq.l  #8, A7
0194F8: 6040                     bra     1953a
0194FA: 2F0A                     move.l  A2, -(A7)
0194FC: 4EB9 0001 973C           jsr     $1973c.l
019502: 2F0A                     move.l  A2, -(A7)
019504: 4EB9 0001 953E           jsr     $1953e.l
01950A: 508F                     addq.l  #8, A7
01950C: 602C                     bra     1953a
01950E: 0C2A 0007 0025           cmpi.b  #$7, ($25,A2)
019514: 660A                     bne     19520
019516: 257C 0002 1F8A 001C      move.l  #$21f8a, ($1c,A2)
01951E: 601A                     bra     1953a
019520: 0C2A 0008 0025           cmpi.b  #$8, ($25,A2)
019526: 660A                     bne     19532
019528: 257C 0002 1A62 001C      move.l  #$21a62, ($1c,A2)
019530: 6008                     bra     1953a
019532: 257C 0002 1EFE 001C      move.l  #$21efe, ($1c,A2)
01953A: 245F                     movea.l (A7)+, A2
01953C: 4E75                     rts
01953E: 2F02                     move.l  D2, -(A7)
019540: 206F 0008                movea.l ($8,A7), A0
019544: 2248                     movea.l A0, A1
019546: 3411                     move.w  (A1), D2
019548: 43E8 0004                lea     ($4,A0), A1
01954C: 3211                     move.w  (A1), D1
01954E: 1028 0025                move.b  ($25,A0), D0
019552: 4880                     ext.w   D0
019554: 48C0                     ext.l   D0
019556: 2240                     movea.l D0, A1
019558: B2FC 0007                cmpa.w  #$7, A1
01955C: 6D00 00AC                blt     1960a
019560: 6E02                     bgt     19564
019562: 6012                     bra     19576
019564: B2FC 0008                cmpa.w  #$8, A1
019568: 6602                     bne     1956c
01956A: 6016                     bra     19582
01956C: B2FC 0009                cmpa.w  #$9, A1
019570: 6600 0098                bne     1960a
019574: 6054                     bra     195ca
019576: 217C 0002 1F72 001C      move.l  #$21f72, ($1c,A0)
01957E: 6000 008A                bra     1960a
019582: 4A41                     tst.w   D1
019584: 6F0C                     ble     19592
019586: 217C 0002 19B2 001C      move.l  #$219b2, ($1c,A0)
01958E: 6000 007A                bra     1960a
019592: 4A41                     tst.w   D1
019594: 6C0C                     bge     195a2
019596: 217C 0002 1A32 001C      move.l  #$21a32, ($1c,A0)
01959E: 6000 006A                bra     1960a
0195A2: 4A42                     tst.w   D2
0195A4: 6F0C                     ble     195b2
0195A6: 217C 0002 197A 001C      move.l  #$2197a, ($1c,A0)
0195AE: 6000 005A                bra     1960a
0195B2: 4A42                     tst.w   D2
0195B4: 6C0A                     bge     195c0
0195B6: 217C 0002 19EA 001C      move.l  #$219ea, ($1c,A0)
0195BE: 604A                     bra     1960a
0195C0: 217C 0002 194E 001C      move.l  #$2194e, ($1c,A0)
0195C8: 6040                     bra     1960a
0195CA: 4A41                     tst.w   D1
0195CC: 6F0A                     ble     195d8
0195CE: 217C 0002 1E3E 001C      move.l  #$21e3e, ($1c,A0)
0195D6: 6032                     bra     1960a
0195D8: 4A41                     tst.w   D1
0195DA: 6C0A                     bge     195e6
0195DC: 217C 0002 1EB6 001C      move.l  #$21eb6, ($1c,A0)
0195E4: 6024                     bra     1960a
0195E6: 4A42                     tst.w   D2
0195E8: 6F0A                     ble     195f4
0195EA: 217C 0002 1D4E 001C      move.l  #$21d4e, ($1c,A0)
0195F2: 6016                     bra     1960a
0195F4: 4A42                     tst.w   D2
0195F6: 6C0A                     bge     19602
0195F8: 217C 0002 1DC6 001C      move.l  #$21dc6, ($1c,A0)
019600: 6008                     bra     1960a
019602: 217C 0002 1F06 001C      move.l  #$21f06, ($1c,A0)
01960A: 241F                     move.l  (A7)+, D2
01960C: 4E75                     rts
01960E: 48E7 0030                movem.l A2-A3, -(A7)
019612: 246F 000C                movea.l ($c,A7), A2
019616: 267C 0001 3A98           movea.l #$13a98, A3
01961C: 0C2A 0007 0025           cmpi.b  #$7, ($25,A2)
019622: 6618                     bne     1963c
019624: 4878 0005                pea     $5.w
019628: 4E93                     jsr     (A3)
01962A: D02A 0026                add.b   ($26,A2), D0
01962E: 5500                     subq.b  #2, D0
019630: 0200 000F                andi.b  #$f, D0
019634: 1540 0026                move.b  D0, ($26,A2)
019638: 588F                     addq.l  #4, A7
01963A: 6046                     bra     19682
01963C: 4A92                     tst.l   (A2)
01963E: 6610                     bne     19650
019640: 4878 0002                pea     $2.w
019644: 4E93                     jsr     (A3)
019646: E780                     asl.l   #3, D0
019648: 1540 0026                move.b  D0, ($26,A2)
01964C: 588F                     addq.l  #4, A7
01964E: 6010                     bra     19660
019650: 4878 0002                pea     $2.w
019654: 4E93                     jsr     (A3)
019656: E780                     asl.l   #3, D0
019658: 5800                     addq.b  #4, D0
01965A: 1540 0026                move.b  D0, ($26,A2)
01965E: 588F                     addq.l  #4, A7
019660: 4878 0004                pea     $4.w
019664: 4E93                     jsr     (A3)
019666: 4A80                     tst.l   D0
019668: 588F                     addq.l  #4, A7
01966A: 6616                     bne     19682
01966C: 0C2A 0009 0025           cmpi.b  #$9, ($25,A2)
019672: 660E                     bne     19682
019674: 157C 0010 0026           move.b  #$10, ($26,A2)
01967A: 7000                     moveq   #$0, D0
01967C: 2540 0004                move.l  D0, ($4,A2)
019680: 2480                     move.l  D0, (A2)
019682: 2F0A                     move.l  A2, -(A7)
019684: 4EB9 0001 9692           jsr     $19692.l
01968A: 588F                     addq.l  #4, A7
01968C: 4CDF 0C00                movem.l (A7)+, A2-A3
019690: 4E75                     rts
019692: 48E7 3C20                movem.l D2-D5/A2, -(A7)
019696: 246F 0018                movea.l ($18,A7), A2
01969A: 0C2A 0010 0026           cmpi.b  #$10, ($26,A2)
0196A0: 6700 0094                beq     19736
0196A4: 2A2A 000C                move.l  ($c,A2), D5
0196A8: 282A 0010                move.l  ($10,A2), D4
0196AC: 0C2A 0007 0025           cmpi.b  #$7, ($25,A2)
0196B2: 6604                     bne     196b8
0196B4: 7601                     moveq   #$1, D3
0196B6: 6002                     bra     196ba
0196B8: 7604                     moveq   #$4, D3
0196BA: 2F0A                     move.l  A2, -(A7)
0196BC: 4EB9 0001 9976           jsr     $19976.l
0196C2: 2F0A                     move.l  A2, -(A7)
0196C4: 4EB9 0001 937C           jsr     $1937c.l
0196CA: 4A80                     tst.l   D0
0196CC: 508F                     addq.l  #8, A7
0196CE: 6700 005E                beq     1972e
0196D2: 4202                     clr.b   D2
0196D4: 0C2A 0007 0025           cmpi.b  #$7, ($25,A2)
0196DA: 6700 000E                beq     196ea
0196DE: 1002                     move.b  D2, D0
0196E0: 4880                     ext.w   D0
0196E2: 48C0                     ext.l   D0
0196E4: 7203                     moveq   #$3, D1
0196E6: C081                     and.l   D1, D0
0196E8: 662E                     bne     19718
0196EA: 2545 000C                move.l  D5, ($c,A2)
0196EE: 2544 0010                move.l  D4, ($10,A2)
0196F2: 102A 0026                move.b  ($26,A2), D0
0196F6: D003                     add.b   D3, D0
0196F8: 0200 000F                andi.b  #$f, D0
0196FC: 1540 0026                move.b  D0, ($26,A2)
019700: 2F0A                     move.l  A2, -(A7)
019702: 4EB9 0001 9976           jsr     $19976.l
019708: 2F0A                     move.l  A2, -(A7)
01970A: 4EB9 0001 937C           jsr     $1937c.l
019710: 4A80                     tst.l   D0
019712: 508F                     addq.l  #8, A7
019714: 6700 0018                beq     1972e
019718: 5202                     addq.b  #1, D2
01971A: 0C02 000C                cmpi.b  #$c, D2
01971E: 66B4                     bne     196d4
019720: 157C 0010 0026           move.b  #$10, ($26,A2)
019726: 7000                     moveq   #$0, D0
019728: 2540 0004                move.l  D0, ($4,A2)
01972C: 2480                     move.l  D0, (A2)
01972E: 2545 000C                move.l  D5, ($c,A2)
019732: 2544 0010                move.l  D4, ($10,A2)
019736: 4CDF 043C                movem.l (A7)+, D2-D5/A2
01973A: 4E75                     rts
01973C: 48E7 3F30                movem.l D2-D7/A2-A3, -(A7)
019740: 206F 0024                movea.l ($24,A7), A0
019744: 3C3C 0140                move.w  #$140, D6
019748: 267C 0040 0018           movea.l #$400018, A3
01974E: 244B                     movea.l A3, A2
019750: 4205                     clr.b   D5
019752: 6000 0078                bra     197cc
019756: 4A2A 0018                tst.b   ($18,A2)
01975A: 6700 0064                beq     197c0
01975E: 43E8 000C                lea     ($c,A0), A1
019762: 3811                     move.w  (A1), D4
019764: 43EA 000C                lea     ($c,A2), A1
019768: 9851                     sub.w   (A1), D4
01976A: 4A44                     tst.w   D4
01976C: 6C08                     bge     19776
01976E: 7000                     moveq   #$0, D0
019770: 3004                     move.w  D4, D0
019772: 4480                     neg.l   D0
019774: 6004                     bra     1977a
019776: 7000                     moveq   #$0, D0
019778: 3004                     move.w  D4, D0
01977A: 3400                     move.w  D0, D2
01977C: E94A                     lsl.w   #4, D2
01977E: 43E8 0010                lea     ($10,A0), A1
019782: 3611                     move.w  (A1), D3
019784: 43EA 0010                lea     ($10,A2), A1
019788: 9651                     sub.w   (A1), D3
01978A: 4A43                     tst.w   D3
01978C: 6C08                     bge     19796
01978E: 7000                     moveq   #$0, D0
019790: 3003                     move.w  D3, D0
019792: 4480                     neg.l   D0
019794: 6004                     bra     1979a
019796: 7000                     moveq   #$0, D0
019798: 3003                     move.w  D3, D0
01979A: 3200                     move.w  D0, D1
01979C: E949                     lsl.w   #4, D1
01979E: B441                     cmp.w   D1, D2
0197A0: 650C                     bcs     197ae
0197A2: 3001                     move.w  D1, D0
0197A4: E648                     lsr.w   #3, D0
0197A6: C0FC 0003                mulu.w  #$3, D0
0197AA: D042                     add.w   D2, D0
0197AC: 600A                     bra     197b8
0197AE: 3002                     move.w  D2, D0
0197B0: E648                     lsr.w   #3, D0
0197B2: C0FC 0003                mulu.w  #$3, D0
0197B6: D041                     add.w   D1, D0
0197B8: B046                     cmp.w   D6, D0
0197BA: 6404                     bcc     197c0
0197BC: 3C00                     move.w  D0, D6
0197BE: 264A                     movea.l A2, A3
0197C0: 2E0A                     move.l  A2, D7
0197C2: 0687 0000 00E2           addi.l  #$e2, D7
0197C8: 2447                     movea.l D7, A2
0197CA: 5205                     addq.b  #1, D5
0197CC: 1005                     move.b  D5, D0
0197CE: 4880                     ext.w   D0
0197D0: B079 0040 0396           cmp.w   $400396.l, D0
0197D6: 6600 FF7E                bne     19756
0197DA: 43E8 000C                lea     ($c,A0), A1
0197DE: 3811                     move.w  (A1), D4
0197E0: 43EB 000C                lea     ($c,A3), A1
0197E4: 9851                     sub.w   (A1), D4
0197E6: 43E8 0010                lea     ($10,A0), A1
0197EA: 3611                     move.w  (A1), D3
0197EC: 43EB 0010                lea     ($10,A3), A1
0197F0: 9651                     sub.w   (A1), D3
0197F2: 0C28 0007 0025           cmpi.b  #$7, ($25,A0)
0197F8: 6600 0080                bne     1987a
0197FC: 4A44                     tst.w   D4
0197FE: 6C08                     bge     19808
019800: 7000                     moveq   #$0, D0
019802: 3004                     move.w  D4, D0
019804: 4480                     neg.l   D0
019806: 6004                     bra     1980c
019808: 7000                     moveq   #$0, D0
01980A: 3004                     move.w  D4, D0
01980C: 3400                     move.w  D0, D2
01980E: E84A                     lsr.w   #4, D2
019810: 4A43                     tst.w   D3
019812: 6C08                     bge     1981c
019814: 7000                     moveq   #$0, D0
019816: 3003                     move.w  D3, D0
019818: 4480                     neg.l   D0
01981A: 6004                     bra     19820
01981C: 7000                     moveq   #$0, D0
01981E: 3003                     move.w  D3, D0
019820: 3200                     move.w  D0, D1
019822: E849                     lsr.w   #4, D1
019824: 3201                     move.w  D1, D1
019826: 6606                     bne     1982e
019828: 4228 0026                clr.b   ($26,A0)
01982C: 601E                     bra     1984c
01982E: B441                     cmp.w   D1, D2
019830: 6308                     bls     1983a
019832: 117C 0001 0026           move.b  #$1, ($26,A0)
019838: 6012                     bra     1984c
01983A: B242                     cmp.w   D2, D1
01983C: 6308                     bls     19846
01983E: 117C 0003 0026           move.b  #$3, ($26,A0)
019844: 6006                     bra     1984c
019846: 117C 0002 0026           move.b  #$2, ($26,A0)
01984C: 4A44                     tst.w   D4
01984E: 6F0E                     ble     1985e
019850: 4A43                     tst.w   D3
019852: 6C0A                     bge     1985e
019854: 0628 000C 0026           addi.b  #$c, ($26,A0)
01985A: 6000 0050                bra     198ac
01985E: 4A44                     tst.w   D4
019860: 6C0A                     bge     1986c
019862: 4A43                     tst.w   D3
019864: 6C06                     bge     1986c
019866: 5028 0026                addq.b  #8, ($26,A0)
01986A: 6040                     bra     198ac
01986C: 4A44                     tst.w   D4
01986E: 6C3C                     bge     198ac
019870: 4A43                     tst.w   D3
019872: 6F38                     ble     198ac
019874: 5828 0026                addq.b  #4, ($26,A0)
019878: 6032                     bra     198ac
01987A: 3004                     move.w  D4, D0
01987C: E840                     asr.w   #4, D0
01987E: 3800                     move.w  D0, D4
019880: 3003                     move.w  D3, D0
019882: E840                     asr.w   #4, D0
019884: 3600                     move.w  D0, D3
019886: 6F08                     ble     19890
019888: 117C 0004 0026           move.b  #$4, ($26,A0)
01988E: 601C                     bra     198ac
019890: 4A43                     tst.w   D3
019892: 6C08                     bge     1989c
019894: 117C 000C 0026           move.b  #$c, ($26,A0)
01989A: 6010                     bra     198ac
01989C: 4A44                     tst.w   D4
01989E: 6F06                     ble     198a6
0198A0: 4228 0026                clr.b   ($26,A0)
0198A4: 6006                     bra     198ac
0198A6: 117C 0008 0026           move.b  #$8, ($26,A0)
0198AC: 2F08                     move.l  A0, -(A7)
0198AE: 4EB9 0001 98BC           jsr     $198bc.l
0198B4: 588F                     addq.l  #4, A7
0198B6: 4CDF 0CFC                movem.l (A7)+, D2-D7/A2-A3
0198BA: 4E75                     rts
0198BC: 48E7 3E20                movem.l D2-D6/A2, -(A7)
0198C0: 246F 001C                movea.l ($1c,A7), A2
0198C4: 0C2A 0010 0026           cmpi.b  #$10, ($26,A2)
0198CA: 6700 00A4                beq     19970
0198CE: 2C2A 000C                move.l  ($c,A2), D6
0198D2: 2A2A 0010                move.l  ($10,A2), D5
0198D6: 0C2A 0007 0025           cmpi.b  #$7, ($25,A2)
0198DC: 6604                     bne     198e2
0198DE: 7601                     moveq   #$1, D3
0198E0: 6002                     bra     198e4
0198E2: 7604                     moveq   #$4, D3
0198E4: 2F0A                     move.l  A2, -(A7)
0198E6: 4EB9 0001 9976           jsr     $19976.l
0198EC: 2F0A                     move.l  A2, -(A7)
0198EE: 4EB9 0001 937C           jsr     $1937c.l
0198F4: 4A80                     tst.l   D0
0198F6: 508F                     addq.l  #8, A7
0198F8: 6700 006E                beq     19968
0198FC: 182A 0026                move.b  ($26,A2), D4
019900: 592A 0026                subq.b  #4, ($26,A2)
019904: 4202                     clr.b   D2
019906: 0C2A 0007 0025           cmpi.b  #$7, ($25,A2)
01990C: 670E                     beq     1991c
01990E: 1002                     move.b  D2, D0
019910: 4880                     ext.w   D0
019912: 48C0                     ext.l   D0
019914: 7203                     moveq   #$3, D1
019916: C081                     and.l   D1, D0
019918: 6600 0038                bne     19952
01991C: 2546 000C                move.l  D6, ($c,A2)
019920: 2545 0010                move.l  D5, ($10,A2)
019924: 102A 0026                move.b  ($26,A2), D0
019928: D003                     add.b   D3, D0
01992A: 0200 000F                andi.b  #$f, D0
01992E: 1540 0026                move.b  D0, ($26,A2)
019932: B82A 0026                cmp.b   ($26,A2), D4
019936: 6700 001A                beq     19952
01993A: 2F0A                     move.l  A2, -(A7)
01993C: 4EB9 0001 9976           jsr     $19976.l
019942: 2F0A                     move.l  A2, -(A7)
019944: 4EB9 0001 937C           jsr     $1937c.l
01994A: 4A80                     tst.l   D0
01994C: 508F                     addq.l  #8, A7
01994E: 6700 0018                beq     19968
019952: 5202                     addq.b  #1, D2
019954: 0C02 0009                cmpi.b  #$9, D2
019958: 66AC                     bne     19906
01995A: 157C 0010 0026           move.b  #$10, ($26,A2)
019960: 7000                     moveq   #$0, D0
019962: 2540 0004                move.l  D0, ($4,A2)
019966: 2480                     move.l  D0, (A2)
019968: 2546 000C                move.l  D6, ($c,A2)
01996C: 2545 0010                move.l  D5, ($10,A2)
019970: 4CDF 047C                movem.l (A7)+, D2-D6/A2
019974: 4E75                     rts
019976: 2F02                     move.l  D2, -(A7)
019978: 206F 0008                movea.l ($8,A7), A0
01997C: 1028 0026                move.b  ($26,A0), D0
019980: 4880                     ext.w   D0
019982: D040                     add.w   D0, D0
019984: 227C 0002 44B6           movea.l #$244b6, A1
01998A: 3031 0000                move.w  (A1,D0.w), D0
01998E: 48C0                     ext.l   D0
019990: 2400                     move.l  D0, D2
019992: E182                     asl.l   #8, D2
019994: 1028 0026                move.b  ($26,A0), D0
019998: 4880                     ext.w   D0
01999A: D040                     add.w   D0, D0
01999C: 227C 0002 44D6           movea.l #$244d6, A1
0199A2: 3031 0000                move.w  (A1,D0.w), D0
0199A6: 48C0                     ext.l   D0
0199A8: 2200                     move.l  D0, D1
0199AA: E181                     asl.l   #8, D1
0199AC: 2002                     move.l  D2, D0
0199AE: D1A8 000C                add.l   D0, ($c,A0)
0199B2: 2001                     move.l  D1, D0
0199B4: D1A8 0010                add.l   D0, ($10,A0)
0199B8: 0C28 0007 0025           cmpi.b  #$7, ($25,A0)
0199BE: 660C                     bne     199cc
0199C0: 2002                     move.l  D2, D0
0199C2: E480                     asr.l   #2, D0
0199C4: 2400                     move.l  D0, D2
0199C6: 2001                     move.l  D1, D0
0199C8: E480                     asr.l   #2, D0
0199CA: 2200                     move.l  D0, D1
0199CC: 2082                     move.l  D2, (A0)
0199CE: 2141 0004                move.l  D1, ($4,A0)
0199D2: 241F                     move.l  (A7)+, D2
0199D4: 4E75                     rts
0199D6: 48E7 3030                movem.l D2-D3/A2-A3, -(A7)
0199DA: 226F 0014                movea.l ($14,A7), A1
0199DE: 267C 0040 0692           movea.l #$400692, A3
0199E4: 247C 0040 0690           movea.l #$400690, A2
0199EA: 41E9 000C                lea     ($c,A1), A0
0199EE: 3490                     move.w  (A0), (A2)
0199F0: 41E9 0010                lea     ($10,A1), A0
0199F4: 3690                     move.w  (A0), (A3)
0199F6: 3613                     move.w  (A3), D3
0199F8: 9652                     sub.w   (A2), D3
0199FA: 0643 0088                addi.w  #$88, D3
0199FE: 41E9 0014                lea     ($14,A1), A0
019A02: 3010                     move.w  (A0), D0
019A04: 3439 0040 097E           move.w  $40097e.l, D2
019A0A: D440                     add.w   D0, D2
019A0C: 0642 0054                addi.w  #$54, D2
019A10: 3013                     move.w  (A3), D0
019A12: 48C0                     ext.l   D0
019A14: 3212                     move.w  (A2), D1
019A16: 48C1                     ext.l   D1
019A18: D081                     add.l   D1, D0
019A1A: E280                     asr.l   #1, D0
019A1C: 9440                     sub.w   D0, D2
019A1E: 3002                     move.w  D2, D0
019A20: 48C0                     ext.l   D0
019A22: 2400                     move.l  D0, D2
019A24: 0282 0000 FFFF           andi.l  #$ffff, D2
019A2A: 3003                     move.w  D3, D0
019A2C: 48C0                     ext.l   D0
019A2E: 2200                     move.l  D0, D1
019A30: 7010                     moveq   #$10, D0
019A32: E1A1                     asl.l   D0, D1
019A34: D481                     add.l   D1, D2
019A36: 2342 0020                move.l  D2, ($20,A1)
019A3A: 4CDF 0C0C                movem.l (A7)+, D2-D3/A2-A3
019A3E: 4E75                     rts
019A40: 4E56 FFFE                link    A6, #-$2
019A44: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
019A48: 267C 0040 19F8           movea.l #$4019f8, A3
019A4E: 4204                     clr.b   D4
019A50: 244B                     movea.l A3, A2
019A52: 227C 0002 44F6           movea.l #$244f6, A1
019A58: 4205                     clr.b   D5
019A5A: 1C19                     move.b  (A1)+, D6
019A5C: 1E19                     move.b  (A1)+, D7
019A5E: 2847                     movea.l D7, A4
019A60: 244B                     movea.l A3, A2
019A62: 4203                     clr.b   D3
019A64: 4202                     clr.b   D2
019A66: 0C2A 0001 0018           cmpi.b  #$1, ($18,A2)
019A6C: 661C                     bne     19a8a
019A6E: 1006                     move.b  D6, D0
019A70: 4880                     ext.w   D0
019A72: 41EA 000C                lea     ($c,A2), A0
019A76: 3210                     move.w  (A0), D1
019A78: E641                     asr.w   #3, D1
019A7A: B041                     cmp.w   D1, D0
019A7C: 660C                     bne     19a8a
019A7E: 5203                     addq.b  #1, D3
019A80: 0C03 0002                cmpi.b  #$2, D3
019A84: 6C04                     bge     19a8a
019A86: 1D42 FFFF                move.b  D2, (-$1,A6)
019A8A: 7238                     moveq   #$38, D1
019A8C: D5C1                     adda.l  D1, A2
019A8E: 5202                     addq.b  #1, D2
019A90: 0C02 000A                cmpi.b  #$a, D2
019A94: 66D0                     bne     19a66
019A96: B604                     cmp.b   D4, D3
019A98: 6E00 00F4                bgt     19b8e
019A9C: 0C03 0001                cmpi.b  #$1, D3
019AA0: 6630                     bne     19ad2
019AA2: 102E FFFF                move.b  (-$1,A6), D0
019AA6: 4880                     ext.w   D0
019AA8: 48C0                     ext.l   D0
019AAA: E580                     asl.l   #2, D0
019AAC: 207C 0001 F0BA           movea.l #$1f0ba, A0
019AB2: 2470 0800                movea.l (A0,D0.l), A2
019AB6: 2E0C                     move.l  A4, D7
019AB8: 1207                     move.b  D7, D1
019ABA: 4881                     ext.w   D1
019ABC: 48C1                     ext.l   D1
019ABE: 41EA 0010                lea     ($10,A2), A0
019AC2: 3010                     move.w  (A0), D0
019AC4: 48C0                     ext.l   D0
019AC6: E680                     asr.l   #3, D0
019AC8: 9280                     sub.l   D0, D1
019ACA: 7004                     moveq   #$4, D0
019ACC: B081                     cmp.l   D1, D0
019ACE: 6E00 00BE                bgt     19b8e
019AD2: 244B                     movea.l A3, A2
019AD4: 4202                     clr.b   D2
019AD6: 0C2A 0001 0018           cmpi.b  #$1, ($18,A2)
019ADC: 6600 000E                bne     19aec
019AE0: 7238                     moveq   #$38, D1
019AE2: D5C1                     adda.l  D1, A2
019AE4: 5202                     addq.b  #1, D2
019AE6: 0C02 000A                cmpi.b  #$a, D2
019AEA: 66EA                     bne     19ad6
019AEC: 0C02 000A                cmpi.b  #$a, D2
019AF0: 6700 00B0                beq     19ba2
019AF4: 157C 0001 0018           move.b  #$1, ($18,A2)
019AFA: 157C 0001 001A           move.b  #$1, ($1a,A2)
019B00: 1006                     move.b  D6, D0
019B02: 4880                     ext.w   D0
019B04: 48C0                     ext.l   D0
019B06: 2200                     move.l  D0, D1
019B08: 7013                     moveq   #$13, D0
019B0A: E1A1                     asl.l   D0, D1
019B0C: 0681 0004 0000           addi.l  #$40000, D1
019B12: 2541 000C                move.l  D1, ($c,A2)
019B16: 2E0C                     move.l  A4, D7
019B18: 1007                     move.b  D7, D0
019B1A: 4880                     ext.w   D0
019B1C: 48C0                     ext.l   D0
019B1E: 2200                     move.l  D0, D1
019B20: 7013                     moveq   #$13, D0
019B22: E1A1                     asl.l   D0, D1
019B24: 0681 0004 0000           addi.l  #$40000, D1
019B2A: 2541 0010                move.l  D1, ($10,A2)
019B2E: 257C 3FD8 0000 0014      move.l  #$3fd80000, ($14,A2)
019B36: 422A 0024                clr.b   ($24,A2)
019B3A: 422A 001B                clr.b   ($1b,A2)
019B3E: 157C 0008 0025           move.b  #$8, ($25,A2)
019B44: 257C 0002 24CA 001C      move.l  #$224ca, ($1c,A2)
019B4C: 257C FFFC 0000 0004      move.l  #$fffc0000, ($4,A2)
019B54: 2F0A                     move.l  A2, -(A7)
019B56: 4EB9 0001 9E42           jsr     $19e42.l
019B5C: 102A 0019                move.b  ($19,A2), D0
019B60: 4880                     ext.w   D0
019B62: 48C0                     ext.l   D0
019B64: 2F00                     move.l  D0, -(A7)
019B66: 4878 000F                pea     $f.w
019B6A: 4EB9 0001 8E6C           jsr     $18e6c.l
019B70: 1005                     move.b  D5, D0
019B72: 4880                     ext.w   D0
019B74: E540                     asl.w   #2, D0
019B76: 207C 0002 4500           movea.l #$24500, A0
019B7C: 2070 0000                movea.l (A0,D0.w), A0
019B80: 4850                     pea     (A0)
019B82: 4EB9 0001 58AC           jsr     $158ac.l
019B88: 4FEF 0010                lea     ($10,A7), A7
019B8C: 600A                     bra     19b98
019B8E: 5205                     addq.b  #1, D5
019B90: 0C05 0005                cmpi.b  #$5, D5
019B94: 6600 FEC4                bne     19a5a
019B98: 5204                     addq.b  #1, D4
019B9A: 0C04 0002                cmpi.b  #$2, D4
019B9E: 6D00 FEB0                blt     19a50
019BA2: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
019BA6: 4E5E                     unlk    A6
019BA8: 4E75                     rts
019BAA: 48E7 3820                movem.l D2-D4/A2, -(A7)
019BAE: 7004                     moveq   #$4, D0
019BB0: B079 0040 0394           cmp.w   $400394.l, D0       level 5
019BB6: 6600 01D6                bne     19d8e
019BBA: 4A39 0040 0762           tst.b   $400762.l
019BC0: 6712                     beq     19bd4
019BC2: 2039 0040 0010           move.l  $400010.l, D0
019BC8: 7207                     moveq   #$7, D1
019BCA: C081                     and.l   D1, D0
019BCC: 6606                     bne     19bd4
019BCE: 4EB9 0001 9A40           jsr     $19a40.l
019BD4: 247C 0040 19F8           movea.l #$4019f8, A2
019BDA: 4202                     clr.b   D2
019BDC: 4203                     clr.b   D3
019BDE: 4A2A 0018                tst.b   ($18,A2)
019BE2: 6700 019C                beq     19d80
019BE6: 522A 0024                addq.b  #1, ($24,A2)
019BEA: 102A 0025                move.b  ($25,A2), D0
019BEE: B02A 0024                cmp.b   ($24,A2), D0
019BF2: 6E00 00FE                bgt     19cf2
019BF6: 422A 0024                clr.b   ($24,A2)
019BFA: 58AA 001C                addq.l  #4, ($1c,A2)
019BFE: 206A 001C                movea.l ($1c,A2), A0
019C02: 70FF                     moveq   #-$1, D0
019C04: B090                     cmp.l   (A0), D0
019C06: 6600 00BE                bne     19cc6
019C0A: 0C2A 0002 001A           cmpi.b  #$2, ($1a,A2)
019C10: 6700 00B4                beq     19cc6
019C14: 227C 0040 19F8           movea.l #$4019f8, A1
019C1A: 7801                     moveq   #$1, D4
019C1C: 4201                     clr.b   D1
019C1E: B3CA                     cmpa.l  A2, A1
019C20: 6728                     beq     19c4a
019C22: 0C29 0001 0018           cmpi.b  #$1, ($18,A1)
019C28: 6620                     bne     19c4a
019C2A: 41E9 000C                lea     ($c,A1), A0
019C2E: 3010                     move.w  (A0), D0
019C30: 41EA 000C                lea     ($c,A2), A0
019C34: B050                     cmp.w   (A0), D0
019C36: 6612                     bne     19c4a
019C38: 41EA 0010                lea     ($10,A2), A0
019C3C: 3010                     move.w  (A0), D0
019C3E: 41E9 0010                lea     ($10,A1), A0
019C42: B050                     cmp.w   (A0), D0
019C44: 6F04                     ble     19c4a
019C46: 4204                     clr.b   D4
019C48: 600C                     bra     19c56
019C4A: 7038                     moveq   #$38, D0
019C4C: D3C0                     adda.l  D0, A1
019C4E: 5201                     addq.b  #1, D1
019C50: 0C01 000A                cmpi.b  #$a, D1
019C54: 66C8                     bne     19c1e
019C56: 257C 0002 24D6 001C      move.l  #$224d6, ($1c,A2)
019C5E: 422A 001A                clr.b   ($1a,A2)
019C62: 4A2A 001B                tst.b   ($1b,A2)
019C66: 6704                     beq     19c6c
019C68: 532A 001B                subq.b  #1, ($1b,A2)
019C6C: 4A2A 001B                tst.b   ($1b,A2)
019C70: 6600 0080                bne     19cf2
019C74: 0CAA FFFE 0000 0004      cmpi.l  #-$20000, ($4,A2)
019C7C: 6626                     bne     19ca4
019C7E: 4A04                     tst.b   D4
019C80: 6722                     beq     19ca4
019C82: 157C 0001 0025           move.b  #$1, ($25,A2)
019C88: 257C FFFC 0000 0004      move.l  #$fffc0000, ($4,A2)
019C90: 4878 0002                pea     $2.w
019C94: 4EB9 0001 3A98           jsr     $13a98.l
019C9A: 5800                     addq.b  #4, D0
019C9C: 1540 001B                move.b  D0, ($1b,A2)
019CA0: 588F                     addq.l  #4, A7
019CA2: 604E                     bra     19cf2
019CA4: 157C 0004 0025           move.b  #$4, ($25,A2)
019CAA: 257C FFFE 0000 0004      move.l  #$fffe0000, ($4,A2)
019CB2: 4878 0002                pea     $2.w
019CB6: 4EB9 0001 3A98           jsr     $13a98.l
019CBC: 5200                     addq.b  #1, D0
019CBE: 1540 001B                move.b  D0, ($1b,A2)
019CC2: 588F                     addq.l  #4, A7
019CC4: 602C                     bra     19cf2
019CC6: 206A 001C                movea.l ($1c,A2), A0
019CCA: 70FF                     moveq   #-$1, D0
019CCC: B090                     cmp.l   (A0), D0
019CCE: 6622                     bne     19cf2
019CD0: 0C2A 0002 001A           cmpi.b  #$2, ($1a,A2)
019CD6: 661A                     bne     19cf2
019CD8: 422A 0018                clr.b   ($18,A2)
019CDC: 122A 0019                move.b  ($19,A2), D1
019CE0: 4881                     ext.w   D1
019CE2: 48C1                     ext.l   D1
019CE4: 2F01                     move.l  D1, -(A7)
019CE6: 4878 000F                pea     $f.w
019CEA: 4EB9 0001 8F46           jsr     $18f46.l
019CF0: 508F                     addq.l  #8, A7
019CF2: 4A2A 001A                tst.b   ($1a,A2)
019CF6: 664C                     bne     19d44
019CF8: 282A 0010                move.l  ($10,A2), D4
019CFC: 202A 0004                move.l  ($4,A2), D0
019D00: D1AA 0010                add.l   D0, ($10,A2)
019D04: 2F0A                     move.l  A2, -(A7)
019D06: 4EB9 0001 BB08           jsr     $1bb08.l
019D0C: 4878 0001                pea     $1.w
019D10: 4EB9 0001 CC62           jsr     $1cc62.l
019D16: B0AA 0014                cmp.l   ($14,A2), D0
019D1A: 508F                     addq.l  #8, A7
019D1C: 6F26                     ble     19d44
019D1E: 2004                     move.l  D4, D0
019D20: 0280 FFFC 0000           andi.l  #$fffc0000, D0
019D26: 2540 0010                move.l  D0, ($10,A2)
019D2A: 257C 0002 24E2 001C      move.l  #$224e2, ($1c,A2)
019D32: 422A 0024                clr.b   ($24,A2)
019D36: 157C 0001 0025           move.b  #$1, ($25,A2)
019D3C: 157C 0002 001A           move.b  #$2, ($1a,A2)
019D42: 7601                     moveq   #$1, D3
019D44: 2F0A                     move.l  A2, -(A7)
019D46: 4EB9 0001 9E42           jsr     $19e42.l
019D4C: 4A03                     tst.b   D3
019D4E: 588F                     addq.l  #4, A7
019D50: 672E                     beq     19d80
019D52: 41EA 000C                lea     ($c,A2), A0
019D56: 3010                     move.w  (A0), D0
019D58: E640                     asr.w   #3, D0
019D5A: 7235                     moveq   #$35, D1
019D5C: B240                     cmp.w   D0, D1
019D5E: 6F20                     ble     19d80
019D60: 302A 0022                move.w  ($22,A2), D0
019D64: 0240 FFFF                andi.w  #$ffff, D0
019D68: 4A40                     tst.w   D0
019D6A: 6D14                     blt     19d80
019D6C: 0C40 00F0                cmpi.w  #$f0, D0
019D70: 6C0E                     bge     19d80
019D72: 4879 0000 0059           pea     $59.l
019D78: 4EB9 0001 58AC           jsr     $158ac.l
019D7E: 588F                     addq.l  #4, A7
019D80: 7038                     moveq   #$38, D0
019D82: D5C0                     adda.l  D0, A2
019D84: 5202                     addq.b  #1, D2
019D86: 0C02 000A                cmpi.b  #$a, D2
019D8A: 6600 FE50                bne     19bdc
019D8E: 4CDF 041C                movem.l (A7)+, D2-D4/A2
019D92: 4E75                     rts
019D94: 48E7 3830                movem.l D2-D4/A2-A3, -(A7)
019D98: 246F 0018                movea.l ($18,A7), A2
019D9C: 7004                     moveq   #$4, D0
019D9E: B079 0040 0394           cmp.w   $400394.l, D0         level 5
019DA4: 6600 0096                bne     19e3c
019DA8: 267C 0040 19F8           movea.l #$4019f8, A3
019DAE: 4202                     clr.b   D2
019DB0: 4A2B 0018                tst.b   ($18,A3)
019DB4: 6700 0078                beq     19e2e
019DB8: 4A2B 001A                tst.b   ($1a,A3)
019DBC: 6600 0070                bne     19e2e
019DC0: 41EB 0010                lea     ($10,A3), A0
019DC4: 3210                     move.w  (A0), D1
019DC6: 5941                     subq.w  #4, D1
019DC8: 3801                     move.w  D1, D4
019DCA: 0644 000C                addi.w  #$c, D4
019DCE: 41EB 000C                lea     ($c,A3), A0
019DD2: 3010                     move.w  (A0), D0
019DD4: 5D40                     subq.w  #6, D0
019DD6: 3600                     move.w  D0, D3
019DD8: 0643 000C                addi.w  #$c, D3
019DDC: B079 0040 0690           cmp.w   $400690.l, D0
019DE2: 6E4A                     bgt     19e2e
019DE4: B679 0040 0690           cmp.w   $400690.l, D3
019DEA: 6F42                     ble     19e2e
019DEC: B279 0040 0692           cmp.w   $400692.l, D1
019DF2: 6E3A                     bgt     19e2e
019DF4: B879 0040 0692           cmp.w   $400692.l, D4
019DFA: 6F32                     ble     19e2e
019DFC: 177C 0002 001A           move.b  #$2, ($1a,A3)
019E02: 277C 0002 2546 001C      move.l  #$22546, ($1c,A3)
019E0A: 177C 0004 0025           move.b  #$4, ($25,A3)
019E10: 422B 0024                clr.b   ($24,A3)
019E14: 157C 000B 001A           move.b  #$b, ($1a,A2)
019E1A: 157C 0066 0057           move.b  #$66, ($57,A2)
019E20: 4879 0000 003E           pea     $3e.l
019E26: 4EB9 0001 58AC           jsr     $158ac.l
019E2C: 588F                     addq.l  #4, A7
019E2E: 7038                     moveq   #$38, D0
019E30: D7C0                     adda.l  D0, A3
019E32: 5202                     addq.b  #1, D2
019E34: 0C02 000A                cmpi.b  #$a, D2
019E38: 6600 FF76                bne     19db0
019E3C: 4CDF 0C1C                movem.l (A7)+, D2-D4/A2-A3
019E40: 4E75                     rts
019E42: 48E7 3030                movem.l D2-D3/A2-A3, -(A7)
019E46: 226F 0014                movea.l ($14,A7), A1
019E4A: 267C 0040 0692           movea.l #$400692, A3
019E50: 247C 0040 0690           movea.l #$400690, A2
019E56: 41E9 000C                lea     ($c,A1), A0
019E5A: 3490                     move.w  (A0), (A2)
019E5C: 41E9 0010                lea     ($10,A1), A0
019E60: 3690                     move.w  (A0), (A3)
019E62: 3613                     move.w  (A3), D3
019E64: 9652                     sub.w   (A2), D3
019E66: 0643 0088                addi.w  #$88, D3
019E6A: 41E9 0014                lea     ($14,A1), A0
019E6E: 3010                     move.w  (A0), D0
019E70: 3439 0040 097E           move.w  $40097e.l, D2
019E76: D440                     add.w   D0, D2
019E78: 0642 0054                addi.w  #$54, D2
019E7C: 3013                     move.w  (A3), D0
019E7E: 48C0                     ext.l   D0
019E80: 3212                     move.w  (A2), D1
019E82: 48C1                     ext.l   D1
019E84: D081                     add.l   D1, D0
019E86: E280                     asr.l   #1, D0
019E88: 9440                     sub.w   D0, D2
019E8A: 3002                     move.w  D2, D0
019E8C: 48C0                     ext.l   D0
019E8E: 2400                     move.l  D0, D2
019E90: 0282 0000 FFFF           andi.l  #$ffff, D2
019E96: 3003                     move.w  D3, D0
019E98: 48C0                     ext.l   D0
019E9A: 2200                     move.l  D0, D1
019E9C: 7010                     moveq   #$10, D0
019E9E: E1A1                     asl.l   D0, D1
019EA0: D481                     add.l   D1, D2
019EA2: 2342 0020                move.l  D2, ($20,A1)
019EA6: 41E9 000C                lea     ($c,A1), A0
019EAA: 3010                     move.w  (A0), D0
019EAC: E640                     asr.w   #3, D0
019EAE: 1200                     move.b  D0, D1
019EB0: 41E9 0010                lea     ($10,A1), A0
019EB4: 3010                     move.w  (A0), D0
019EB6: E640                     asr.w   #3, D0
019EB8: 0C01 0039                cmpi.b  #$39, D1
019EBC: 6700 0010                beq     19ece
019EC0: 0C01 0031                cmpi.b  #$31, D1
019EC4: 6700 0008                beq     19ece
019EC8: 0C01 0029                cmpi.b  #$29, D1
019ECC: 6616                     bne     19ee4
019ECE: 0C00 0034                cmpi.b  #$34, D0
019ED2: 6D10                     blt     19ee4
019ED4: 4878 0003                pea     $3.w
019ED8: 2F09                     move.l  A1, -(A7)
019EDA: 4EB9 0002 64AA           jsr     $264aa.l
019EE0: 508F                     addq.l  #8, A7
019EE2: 601A                     bra     19efe
019EE4: 4201                     clr.b   D1
019EE6: 1001                     move.b  D1, D0
019EE8: 4880                     ext.w   D0
019EEA: C0FC 0006                mulu.w  #$6, D0
019EEE: 41E9 0026                lea     ($26,A1), A0
019EF2: 4270 0000                clr.w   (A0,D0.w)
019EF6: 5201                     addq.b  #1, D1
019EF8: 0C01 0003                cmpi.b  #$3, D1
019EFC: 66E8                     bne     19ee6
019EFE: 4CDF 0C0C                movem.l (A7)+, D2-D3/A2-A3
019F02: 4E75                     rts
(data)
019FF0: 0FCF 0FD0                movep.l D7, ($fd0,A7)
019FF4: 48E7 3000                movem.l D2-D3, -(A7)
019FF8: 0839 0000 00F6 0001      btst    #$0, $f60001.l
01A000: 67F6                     beq     19ff8
01A002: 42A7                     clr.l   -(A7)
01A004: 4EB9 0002 8C7E           jsr     $28c7e.l
01A00A: 4EB9 0001 A236           jsr     $1a236.l
01A010: 4878 2000                pea     $2000.w
01A014: 4879 0002 2A3E           pea     $22a3e.l
01A01A: 4EB9 0000 0142           jsr     $142.l
01A020: 4878 2000                pea     $2000.w
01A024: 4879 0002 2906           pea     $22906.l
01A02A: 4EB9 0000 0142           jsr     $142.l
01A030: 323C 0080                move.w  #$80, D1
01A034: 3401                     move.w  D1, D2
01A036: 2079 0000 01D8           movea.l $1d8.l, A0
01A03C: 2279 0000 01DC           movea.l $1dc.l, A1
01A042: 4240                     clr.w   D0
01A044: 3280                     move.w  D0, (A1)
01A046: 3080                     move.w  D0, (A0)
01A048: 4FEF 0014                lea     ($14,A7), A7
01A04C: 0839 0000 00F6 0001      btst    #$0, $f60001.l
01A054: 6700 0184                beq     1a1da
01A058: 2039 0040 1FF8           move.l  $401ff8.l, D0
01A05E: B0B9 0040 1FF8           cmp.l   $401ff8.l, D0
01A064: 67F8                     beq     1a05e
01A066: 4279 0086 0000           clr.w   $860000.l
01A06C: 3001                     move.w  D1, D0
01A06E: 48C0                     ext.l   D0
01A070: 5180                     subq.l  #8, D0
01A072: EB80                     asl.l   #5, D0
01A074: 33C0 00A0 2100           move.w  D0, $a02100.l
01A07A: 3002                     move.w  D2, D0
01A07C: EB40                     asl.w   #5, D0
01A07E: 0040 0001                ori.w   #$1, D0
01A082: 33C0 00A0 2000           move.w  D0, $a02000.l
01A088: 33FC 0001 00A0 2080      move.w  #$1, $a02080.l
01A090: 33FC 0001 00A0 2180      move.w  #$1, $a02180.l
01A098: 3001                     move.w  D1, D0
01A09A: EB40                     asl.w   #5, D0
01A09C: 33C0 00A0 2102           move.w  D0, $a02102.l
01A0A2: 3002                     move.w  D2, D0
01A0A4: EB40                     asl.w   #5, D0
01A0A6: 0040 0001                ori.w   #$1, D0
01A0AA: 33C0 00A0 2002           move.w  D0, $a02002.l
01A0B0: 33FC 0003 00A0 2082      move.w  #$3, $a02082.l
01A0B8: 33FC 0002 00A0 2182      move.w  #$2, $a02182.l
01A0C0: 33FC 1000 00A0 2104      move.w  #$1000, $a02104.l
01A0C8: 33FC FF05 00A0 2004      move.w  #$ff05, $a02004.l
01A0D0: 33FC 04E0 00A0 2084      move.w  #$4e0, $a02084.l
01A0D8: 33FC 0003 00A0 2184      move.w  #$3, $a02184.l
01A0E0: 33FC 1000 00A0 2106      move.w  #$1000, $a02106.l
01A0E8: 33FC 0505 00A0 2006      move.w  #$505, $a02006.l
01A0F0: 33FC 04E0 00A0 2086      move.w  #$4e0, $a02086.l
01A0F8: 33FC 0004 00A0 2186      move.w  #$4, $a02186.l
01A100: 33FC 9000 00A0 2108      move.w  #$9000, $a02108.l
01A108: 33FC 0B05 00A0 2008      move.w  #$b05, $a02008.l
01A110: 33FC 04E0 00A0 2088      move.w  #$4e0, $a02088.l
01A118: 33FC 0005 00A0 2188      move.w  #$5, $a02188.l
01A120: 33FC 1000 00A0 210A      move.w  #$1000, $a0210a.l
01A128: 33FC 1105 00A0 200A      move.w  #$1105, $a0200a.l
01A130: 33FC 04E0 00A0 208A      move.w  #$4e0, $a0208a.l
01A138: 33FC 0006 00A0 218A      move.w  #$6, $a0218a.l
01A140: 33FC 1000 00A0 210C      move.w  #$1000, $a0210c.l
01A148: 33FC 1705 00A0 200C      move.w  #$1705, $a0200c.l
01A150: 33FC 04E0 00A0 208C      move.w  #$4e0, $a0208c.l
01A158: 33FC 0006 00A0 218C      move.w  #$6, $a0218c.l
01A160: 2079 0000 01E0           movea.l $1e0.l, A0
01A166: 3610                     move.w  (A0), D3
01A168: 3003                     move.w  D3, D0
01A16A: 48C0                     ext.l   D0
01A16C: 0280 0000 8000           andi.l  #$8000, D0
01A172: 6704                     beq     1a178
01A174: 5242                     addq.w  #1, D2
01A176: 600E                     bra     1a186
01A178: 3003                     move.w  D3, D0
01A17A: 48C0                     ext.l   D0
01A17C: 0280 0000 4000           andi.l  #$4000, D0
01A182: 6702                     beq     1a186
01A184: 5342                     subq.w  #1, D2
01A186: 3003                     move.w  D3, D0
01A188: 48C0                     ext.l   D0
01A18A: 0280 0000 2000           andi.l  #$2000, D0
01A190: 6704                     beq     1a196
01A192: 5341                     subq.w  #1, D1
01A194: 600E                     bra     1a1a4
01A196: 3003                     move.w  D3, D0
01A198: 48C0                     ext.l   D0
01A19A: 0280 0000 1000           andi.l  #$1000, D0
01A1A0: 6702                     beq     1a1a4
01A1A2: 5241                     addq.w  #1, D1
01A1A4: 7008                     moveq   #$8, D0
01A1A6: B041                     cmp.w   D1, D0
01A1A8: 6F06                     ble     1a1b0
01A1AA: 7208                     moveq   #$8, D1
01A1AC: 6000 FE9E                bra     1a04c
01A1B0: 0C41 0140                cmpi.w  #$140, D1
01A1B4: 6F08                     ble     1a1be
01A1B6: 323C 0140                move.w  #$140, D1
01A1BA: 6000 FE90                bra     1a04c
01A1BE: 7010                     moveq   #$10, D0
01A1C0: B042                     cmp.w   D2, D0
01A1C2: 6F06                     ble     1a1ca
01A1C4: 7410                     moveq   #$10, D2
01A1C6: 6000 FE84                bra     1a04c
01A1CA: 0C42 00F0                cmpi.w  #$f0, D2
01A1CE: 6F00 FE7C                ble     1a04c
01A1D2: 343C 00F0                move.w  #$f0, D2
01A1D6: 6000 FE74                bra     1a04c
01A1DA: 4CDF 000C                movem.l (A7)+, D2-D3
01A1DE: 4E75                     rts
01A1E0: 4EB9 0001 A236           jsr     $1a236.l
01A1E6: 207C 00A0 071C           movea.l #$a0071c, A0
01A1EC: 4200                     clr.b   D0
01A1EE: 4298                     clr.l   (A0)+
01A1F0: 5200                     addq.b  #1, D0
01A1F2: 0C00 0005                cmpi.b  #$5, D0
01A1F6: 66F6                     bne     1a1ee
01A1F8: 4250                     clr.w   (A0)
01A1FA: 207C 00A0 081C           movea.l #$a0081c, A0
01A200: 4200                     clr.b   D0
01A202: 4298                     clr.l   (A0)+
01A204: 5200                     addq.b  #1, D0
01A206: 0C00 0005                cmpi.b  #$5, D0
01A20A: 66F6                     bne     1a202
01A20C: 4250                     clr.w   (A0)
01A20E: 207C 00A0 079C           movea.l #$a0079c, A0
01A214: 20FC 0000 0FD2           move.l  #$fd2, (A0)+
01A21A: 20FC 0000 0FD3           move.l  #$fd3, (A0)+
01A220: 20FC 0000 0FD4           move.l  #$fd4, (A0)+
01A226: 20FC 0000 0FD5           move.l  #$fd5, (A0)+
01A22C: 20FC 0000 0FD6           move.l  #$fd6, (A0)+
01A232: 4250                     clr.w   (A0)
01A234: 4E75                     rts
01A236: 2F02                     move.l  D2, -(A7)
01A238: 4279 0040 0394           clr.w   $400394.l       Level=1
01A23E: 4279 0040 0662           clr.w   $400662.l
01A244: 33FC 0001 0040 0664      move.w  #$1, $400664.l
01A24C: 3039 0040 0394           move.w  $400394.l, D0
01A252: 48C0                     ext.l   D0
01A254: 2400                     move.l  D0, D2
01A256: E582                     asl.l   #2, D2
01A258: 0682 0002 BE00           addi.l  #$2be00, D2
01A25E: 2042                     movea.l D2, A0
01A260: 23D0 0040 0474           move.l  (A0), $400474.l
01A266: 42A7                     clr.l   -(A7)
01A268: 4EB9 0002 8C7E           jsr     $28c7e.l
01A26E: 4EB9 0001 2174           jsr     $12174.l
01A274: 4EB9 0001 6F6C           jsr     $16f6c.l
01A27A: 4EB9 0001 A41E           jsr     $1a41e.l
01A280: 588F                     addq.l  #4, A7
01A282: 241F                     move.l  (A7)+, D2
01A284: 4E75                     rts
01A286: 2F0A                     move.l  A2, -(A7)
01A288: 247C 0040 1FF8           movea.l #$401ff8, A2
01A28E: 0839 0000 00F6 0001      btst    #$0, $f60001.l
01A296: 67F6                     beq     1a28e
01A298: 42A7                     clr.l   -(A7)
01A29A: 4EB9 0002 8C7E           jsr     $28c7e.l
01A2A0: 4EB9 0001 A41E           jsr     $1a41e.l
01A2A6: 4878 2000                pea     $2000.w
01A2AA: 4879 0002 2A9E           pea     $22a9e.l
01A2B0: 4EB9 0000 0142           jsr     $142.l
01A2B6: 4878 2000                pea     $2000.w
01A2BA: 4879 0002 2906           pea     $22906.l
01A2C0: 4EB9 0000 0142           jsr     $142.l
01A2C6: 2279 0000 01D8           movea.l $1d8.l, A1
01A2CC: 2079 0000 01DC           movea.l $1dc.l, A0
01A2D2: 4240                     clr.w   D0
01A2D4: 3080                     move.w  D0, (A0)
01A2D6: 3280                     move.w  D0, (A1)
01A2D8: 2012                     move.l  (A2), D0
01A2DA: 4FEF 0014                lea     ($14,A7), A7
01A2DE: B092                     cmp.l   (A2), D0
01A2E0: 67FC                     beq     1a2de
01A2E2: 4279 0086 0000           clr.w   $860000.l
01A2E8: 33FC 0400 00A0 2100      move.w  #$400, $a02100.l
01A2F0: 33FC 1401 00A0 2000      move.w  #$1401, $a02000.l
01A2F8: 33FC 0001 00A0 2080      move.w  #$1, $a02080.l
01A300: 33FC 0001 00A0 2180      move.w  #$1, $a02180.l
01A308: 33FC 0600 00A0 2102      move.w  #$600, $a02102.l
01A310: 33FC 1401 00A0 2002      move.w  #$1401, $a02002.l
01A318: 33FC 0801 00A0 2082      move.w  #$801, $a02082.l
01A320: 33FC 0002 00A0 2182      move.w  #$2, $a02182.l
01A328: 33FC 0800 00A0 2104      move.w  #$800, $a02104.l
01A330: 33FC 1401 00A0 2004      move.w  #$1401, $a02004.l
01A338: 33FC 1001 00A0 2084      move.w  #$1001, $a02084.l
01A340: 33FC 0003 00A0 2184      move.w  #$3, $a02184.l
01A348: 33FC 0A00 00A0 2106      move.w  #$a00, $a02106.l
01A350: 33FC 1401 00A0 2006      move.w  #$1401, $a02006.l
01A358: 33FC 1801 00A0 2086      move.w  #$1801, $a02086.l
01A360: 33FC 0004 00A0 2186      move.w  #$4, $a02186.l
01A368: 33FC 0C00 00A0 2108      move.w  #$c00, $a02108.l
01A370: 33FC 1401 00A0 2008      move.w  #$1401, $a02008.l
01A378: 33FC 2001 00A0 2088      move.w  #$2001, $a02088.l
01A380: 33FC 0005 00A0 2188      move.w  #$5, $a02188.l
01A388: 33FC 0E00 00A0 210A      move.w  #$e00, $a0210a.l
01A390: 33FC 1401 00A0 200A      move.w  #$1401, $a0200a.l
01A398: 33FC 2801 00A0 208A      move.w  #$2801, $a0208a.l
01A3A0: 33FC 0006 00A0 218A      move.w  #$6, $a0218a.l
01A3A8: 33FC 1000 00A0 210C      move.w  #$1000, $a0210c.l
01A3B0: 33FC 1401 00A0 200C      move.w  #$1401, $a0200c.l
01A3B8: 33FC 3001 00A0 208C      move.w  #$3001, $a0208c.l
01A3C0: 33FC 0007 00A0 218C      move.w  #$7, $a0218c.l
01A3C8: 33FC 1200 00A0 210E      move.w  #$1200, $a0210e.l
01A3D0: 33FC 1401 00A0 200E      move.w  #$1401, $a0200e.l
01A3D8: 33FC 3801 00A0 208E      move.w  #$3801, $a0208e.l
01A3E0: 33FC 0007 00A0 218E      move.w  #$7, $a0218e.l
01A3E8: 33FC 0010 00A0 0A20      move.w  #$10, $a00a20.l
01A3F0: 33FC 1010 00A0 0A28      move.w  #$1010, $a00a28.l
01A3F8: 33FC 2010 00A0 0A30      move.w  #$2010, $a00a30.l
01A400: 33FC 3010 00A0 0A38      move.w  #$3010, $a00a38.l
01A408: 0839 0000 00F6 0001      btst    #$0, $f60001.l
01A410: 6708                     beq     1a41a
01A412: 2012                     move.l  (A2), D0
01A414: B092                     cmp.l   (A2), D0
01A416: 66F0                     bne     1a408
01A418: 60FA                     bra     1a414
01A41A: 245F                     movea.l (A7)+, A2
01A41C: 4E75                     rts
01A41E: 227C 0002 4514           movea.l #$24514, A1
01A424: 223C 0002 4694           move.l  #$24694, D1
01A42A: 4240                     clr.w   D0
01A42C: 2041                     movea.l D1, A0
01A42E: 5881                     addq.l  #4, D1
01A430: 2050                     movea.l (A0), A0
01A432: 3099                     move.w  (A1)+, (A0)
01A434: 5240                     addq.w  #1, D0
01A436: 0C40 00C0                cmpi.w  #$c0, D0
01A43A: 6DF0                     blt     1a42c
01A43C: 4EB9 0002 6B10           jsr     $26b10.l
01A442: 4E75                     rts
--------------------------
 Part of tileload routine
--------------------------
01A444: 4E56 FFF2                link    A6, #-$e
01A448: 48E7 3E38                movem.l D2-D6/A2-A4, -(A7)
01A44C: 267C 0040 0474           movea.l #$400474, A3       
01A452: 247C 0040 0A9C           movea.l #$400a9c, A2
01A458: 2053                     movea.l (A3), A0           2BEE2 (level 1)
01A45A: 3D68 001A FFF2           move.w  ($1a,A0), (-$e,A6) 0042  
01A460: 2053                     movea.l (A3), A0           2BEE2 (still!)
01A462: 2868 0008                movea.l ($8,A0), A4        2C1EA
01A466: 2D7C 0040 0478 FFFC      move.l  #$400478, (-$4,A6) lit '400478'
01A46E: 2053                     movea.l (A3), A0           2BEE2 (short memory?)
01A470: 3028 0024                move.w  ($24,A0), D0       00A0
01A474: 48C0                     ext.l   D0
01A476: D080                     add.l   D0, D0             doubled = 140
01A478: 2400                     move.l  D0, D2
01A47A: D4B9 0040 065A           add.l   $40065a.l, D2      81874+A0+A0
01A480: 2002                     move.l  D2, D0             =819B4
01A482: 5580                     subq.l  #2, D0
01A484: 23C0 0040 065E           move.l  D0, $40065e.l      =819B2
01A48A: 78E8                     moveq   #-$18, D4          FFFF FFE8
01A48C: 0644 0018                addi.w  #$18, D4           FFFF 0000
01A490: 3D44 FFF4                move.w  D4, (-$c,A6)       401E28=0000 (just after 0042 ROM)
01A494: 066E 0015 FFF4           addi.w  #$15, (-$c,A6)     401E26=0042 0015
01A49A: 3A04                     move.w  D4, D5
01A49C: E245                     asr.w   #1, D5
01A49E: 0645 0015                addi.w  #$15, D5
01A4A2: 7C18                     moveq   #$18, D6
01A4A4: 3404                     move.w  D4, D2
01A4A6: 48C2                     ext.l   D2
01A4A8: 2053                     movea.l (A3), A0            2BEE2 still
01A4AA: 3028 0018                move.w  ($18,A0), D0        D0=800A0
01A4AE: 48C0                     ext.l   D0                  000000A0
01A4B0: 7218                     moveq   #$18, D1          
01A4B2: 9081                     sub.l   D1, D0              D0=88
01A4B4: B480                     cmp.l   D0, D2              d0=88,d1=0
01A4B6: 6F08                     ble     1a4c0
01A4B8: 2053                     movea.l (A3), A0
01A4BA: 3C28 0018                move.w  ($18,A0), D6
01A4BE: 9C44                     sub.w   D4, D6
01A4C0: 204A                     movea.l A2, A0              A0=400A9C
01A4C2: 4243                     clr.w   D3
01A4C4: 4298                     clr.l   (A0)+
01A4C6: 5243                     addq.w  #1, D3              400A9C-401B1C cleared
01A4C8: 0C43 0420                cmpi.w  #$420, D3         
01A4CC: 6DF6                     blt     1a4c4              
01A4CE: 2053                     movea.l (A3), A0            2BEE2 again
01A4D0: 2D68 001C FFF6           move.l  ($1c,A0), (-$a,A6)  2BFD2 (alt data)
01A4D6: 3039 0040 0394           move.w  $400394.l, D0       level
01A4DC: 207C 0002 4994           movea.l #$24994, A0         lit 24994
01A4E2: 1030 0000                move.b  (A0,D0.w), D0       24994+level(2,2,1,2,0,0)
01A4E6: 4880                     ext.w   D0
01A4E8: 48C0                     ext.l   D0
01A4EA: 2F00                     move.l  D0, -(A7)
01A4EC: 4EB9 0002 FFB8           jsr     $2ffb8.l            D0:2 -> 40 (asl 5)+80080=0
01A4F2: 4243                     clr.w   D3
01A4F4: 588F                     addq.l  #4, A7
01A4F6: 6052                     bra     1a54a

01A4F8: 5239 0040 03F0  +------> addq.b  #1, $4003f0.l      4003f0 4300->4400
01A4FE: 3403            |        move.w  D3, D2             
01A500: 48C2            |        ext.l   D2
01A502: 700F            |        moveq   #$f, D0
01A504: C480            |        and.l   D0, D2
01A506: 6604            |        bne     1a50c
01A508: 3D5C FFFA       |        move.w  (A4)+, (-$6,A6)   [2c1ea]=FFFF
01A50C: 322E FFFA       |        move.w  (-$6,A6), D1      D1=FFFF 
01A510: 1003            |        move.b  D3, D0            D0=0
01A512: 0200 000F       |        andi.b  #$f, D0
01A516: E061            |        asr.w   D0, D1
01A518: 0241 0001       |        andi.w  #$1, D1           D1=1
01A51C: 3001            |        move.w  D1, D0
01A51E: 48C0            |        ext.l   D0
01A520: 2F00            |        move.l  D0, -(A7)         401E02=0000 0001
01A522: 3206            |        move.w  D6, D1            D1=18
01A524: 48C1            |        ext.l   D1
01A526: 2F01            |        move.l  D1, -(A7)         401DFE=0000 0018
01A528: 3005            |        move.w  D5, D0
01A52A: 48C0            |        ext.l   D0
01A52C: 2F00            |        move.l  D0, -(A7)         401DFA=0000 0015
01A52E: 302E FFF4       |        move.w  (-$c,A6), D0
01A532: 48C0            |        ext.l   D0
01A534: 2F00            |        move.l  D0, -(A7)         401DF6=0000 0015
01A536: 2F2E FFF6       |        move.l  (-$a,A6), -(A7)   401DF2=0002 BFD2
01A53A: 4EB9 0001 AD54  |        jsr     $1ad54.l           [Load altitudes]
01A540: 50AE FFF6       |        addq.l  #8, (-$a,A6)      401E2A = 0002BFDA
01A544: 4FEF 0014       |        lea     ($14,A7), A7
01A548: 5243            |        addq.w  #1, D3            D3=1
                        | 
01A54A: B66E FFF2       |        cmp.w   (-$e,A6), D3       (0042)
01A54E: 6DA8            +------- blt     1a4f8  
                                                        Now have alts in RAM 400E30+ (?)
01A550: 3D5C FFFA                move.w  (A4)+, (-$6,A6)   [2C1F4]=0B0A -> 401E2E, 0C0A
01A554: 342E FFFA                move.w  (-$6,A6), D2      D2=0B0A
01A558: 48C2                     ext.l   D2
01A55A: 0282 0000 FFFE           andi.l  #$fffe, D2
01A560: 0C82 0000 FFFE           cmpi.l  #$fffe, D2
01A566: 6700 003E                beq     1a5a6
01A56A: 342E FFFA                move.w  (-$6,A6), D2      D2=0B0A
01A56E: 48C2                     ext.l   D2
01A570: 0282 0000 00FF           andi.l  #$ff, D2          D2=000A
01A576: 302E FFFA                move.w  (-$6,A6), D0       
01A57A: 48C0                     ext.l   D0
01A57C: E080                     asr.l   #8, D0
01A57E: 0280 0000 00FF           andi.l  #$ff, D0          D0=000B   000C
01A584: 2200                     move.l  D0, D1             
01A586: C0FC 0016                mulu.w  #$16, D0          D0=00F2   108
01A58A: 4841                     swap    D1                D1=000B0000 (c)
01A58C: C2FC 0016                mulu.w  #$16, D1          D1=0 0
01A590: 4841                     swap    D1                D1=0 0
01A592: 4241                     clr.w   D1                D1=0 0
01A594: D081                     add.l   D1, D0            D0=00F2 108
01A596: D480                     add.l   D0, D2            D2=00FC 112 
01A598: E782                     asl.l   #3, D2            D2=7E0  890
01A59A: 2002                     move.l  D2, D0            D0=7E0  890
01A59C: 204A                     movea.l A2, A0            A0=400A9C 400A9C
01A59E: D088                     add.l   A0, D0            D0=40127C 40132C
01A5A0: 2040                     movea.l D0, A0            A0=40127C, A4=2C1F6 (0800)
01A5A2: 309C                     move.w  (A4)+, (A0)       40127C=0800
01A5A4: 60AA                     bra     1a550
------Data at 2c1f4 now stored in ram (see data file)

01A5A6: 3039 0040 0662           move.w  $400662.l, D0    0
01A5AC: 48C0                     ext.l   D0
01A5AE: 2F00                     move.l  D0, -(A7)
01A5B0: 4EB9 0002 FFB8           jsr     $2ffb8.l         ROM swap?
01A5B6: 2A0A                     move.l  A2, D5           D5=400A9C
01A5B8: 4243                     clr.w   D3
01A5BA: 588F                     addq.l  #4, A7
01A5BC: 6032                     bra     1a5f0

01A5BE: 5239 0040 03F0           addq.b  #1, $4003f0.l  4003F0=86 ,87 ...8B
01A5C4: 226E FFFC                movea.l (-$4,A6), A1   A1=400478, 40047a...482...
01A5C8: 3019                     move.w  (A1)+, D0      D0=80 (5x0080,7Dx4000,1Ex0080)... 4000
01A5CA: 2D49 FFFC                move.l  A1, (-$4,A6)   inc A1 (in ram)
01A5CE: 2F05                     move.l  D5, -(A7)      store 00400A9C..400E0C
01A5D0: 48C0                     ext.l   D0
01A5D2: 2F00                     move.l  D0, -(A7)      store 00000080
01A5D4: 3203                     move.w  D3, D1
01A5D6: 48C1                     ext.l   D1
01A5D8: 7001                     moveq   #$1, D0
01A5DA: C280                     and.l   D0, D1
01A5DC: 2F01                     move.l  D1, -(A7)      store 00000000
01A5DE: 4EB9 0001 AA38           jsr     $1aa38.l (store lots of 0's? loops 16 times)
01A5E4: 0685 0000 00B0           addi.l  #$b0, D5       D5=400B4C
01A5EA: 4FEF 000C                lea     ($c,A7), A7
01A5EE: 5243                     addq.w  #1, D3          D3=1
01A5F0: B646                     cmp.w   D6, D3          18,0 18,1
01A5F2: 6DCA                     blt     1a5be (loop)

01A5F4: 2A0A                     move.l  A2, D5
01A5F6: 3406                     move.w  D6, D2
01A5F8: E242                     asr.w   #1, D2
01A5FA: 4243                     clr.w   D3
01A5FC: 6036                     bra     1a634
01A5FE: 3004                     move.w  D4, D0
01A600: 48C0                     ext.l   D0
01A602: E280                     asr.l   #1, D0
01A604: 3203                     move.w  D3, D1
01A606: 48C1                     ext.l   D1
01A608: D081                     add.l   D1, D0
01A60A: D080                     add.l   D0, D0
01A60C: 207C 0001 EB3A           movea.l #$1eb3a, A0
01A612: 3030 0800                move.w  (A0,D0.l), D0    Offset table
01A616: 48C0                     ext.l   D0
01A618: 0680 00A0 0000           addi.l  #$a00000, D0
01A61E: 2040                     movea.l D0, A0
01A620: 2F05                     move.l  D5, -(A7)
01A622: 2F08                     move.l  A0, -(A7)
01A624: 4EB9 0001 A9CC           jsr     $1a9cc.l
01A62A: 0685 0000 0160           addi.l  #$160, D5
01A630: 508F                     addq.l  #8, A7
01A632: 5243                     addq.w  #1, D3
01A634: B642                     cmp.w   D2, D3
01A636: 6DC6                     blt     1a5fe
01A638: 74FF                     moveq   #-$1, D2
01A63A: B46E FFFA                cmp.w   (-$6,A6), D2
01A63E: 6600 FE4C                bne     1a48c
01A642: 223C 0040 1C48           move.l  #$401c48, D1
01A648: 204A                     movea.l A2, A0
01A64A: 9288                     sub.l   A0, D1
01A64C: 2001                     move.l  D1, D0
01A64E: 81FC 0004                divs.w  #$4, D0
01A652: 204A                     movea.l A2, A0
01A654: 4243                     clr.w   D3
01A656: 6004                     bra     1a65c
01A658: 4298                     clr.l   (A0)+
01A65A: 5243                     addq.w  #1, D3
01A65C: B640                     cmp.w   D0, D3
01A65E: 6DF8                     blt     1a658
01A660: 4CDF 1C7C                movem.l (A7)+, D2-D6/A2-A4
01A664: 4E5E                     unlk    A6
01A666: 4E75                     rts

01A668: 48E7 3E3C                movem.l D2-D6/A2-A5, -(A7)  *Load tilemap
01A66C: 246F 0028                movea.l ($28,A7), A2        
01A670: 266F 002C                movea.l ($2c,A7), A3  
01A674: 226F 0030                movea.l ($30,A7), A1   
01A678: 41F9 0002 499A           lea     $2499a.l, A0  
01A67E: 4BF9 0002 49DA           lea     $249da.l, A5
01A684: 4202                     clr.b   D2
01A686: 4204                     clr.b   D4
01A688: 284A                     movea.l A2, A4
01A68A: D9FC 0000 0048           adda.l  #$48, A4
01A690: 2013           +-------> move.l  (A3), D0
01A692: 7212           |         moveq   #$12, D1
01A694: 9204           |         sub.b   D4, D1
01A696: E2A0           |         asr.l   D1, D0
01A698: 3A00           |         move.w  D0, D5
01A69A: 0245 3FFF      |         andi.w  #$3fff, D5
01A69E: 0885 000D      |         bclr    #$d, D5
01A6A2: 6720           |   +---- beq     1a6c4
01A6A4: 4A02           |   |     tst.b   D2
01A6A6: 6606           |   | +-- bne     1a6ae
01A6A8: 1419           |   | |   move.b  (A1)+, D2
01A6AA: 1619           |   | |   move.b  (A1)+, D3
01A6AC: E143           |   | |   asl.w   #8, D3
01A6AE: 5302           |   | +-> subq.b  #1, D2
01A6B0: E245           |   |     asr.w   #1, D5
01A6B2: 6402           |   | +-- bcc     1a6b6
01A6B4: 3C05           |   | |   move.w  D5, D6
01A6B6: DA43           |   | +-> add.w   D3, D5
01A6B8: 34C5           |   |     move.w  D5, (A2)+
01A6BA: 0684 0000 000E |   |     addi.l  #$e, D4
01A6C0: 6000 00C2      |   | *** bra     1a784
01A6C4: 3205           |   +---> move.w  D5, D1
01A6C6: 0241 1C00      |         andi.w  #$1c00, D1
01A6CA: 6628           | +------ bne     1a6f4
01A6CC: 3205           | |       move.w  D5, D1
01A6CE: EE41           | |       asr.w   #7, D1
01A6D0: 0241 0007      | |       andi.w  #$7, D1
01A6D4: 4A02           | | +---> tst.b   D2
01A6D6: 6606           | | | +-- bne     1a6de
01A6D8: 1419           | | | |   move.b  (A1)+, D2
01A6DA: 1619           | | | |   move.b  (A1)+, D3
01A6DC: E143           | | | |   asl.w   #8, D3
01A6DE: 5302           | | | +-> subq.b  #1, D2
01A6E0: 5246           | | |     addq.w  #1, D6
01A6E2: 3006           | | |     move.w  D6, D0
01A6E4: D043           | | |     add.w   D3, D0
01A6E6: 34C0           | | |     move.w  D0, (A2)+
01A6E8: 5341           | | |     subq.w  #1, D1
01A6EA: 4A41           | | |     tst.w   D1
01A6EC: 6CE6           | | +---- bge     1a6d4
01A6EE: 5E84           | |       addq.l  #7, D4
01A6F0: 6000 0092      | |   *** bra     1a784
01A6F4: 0C41 1C00      | +-----> cmpi.w  #$1c00, D1
01A6F8: 6622           |   +---- bne     1a71c
01A6FA: 4A02           |   |     tst.b   D2
01A6FC: 6606           |   | +-- bne     1a704
01A6FE: 1419           |   | |   move.b  (A1)+, D2
01A700: 1619           |   | |   move.b  (A1)+, D3
01A702: E143           |   | |   asl.w   #8, D3
01A704: 5302           |   | +-> subq.b  #1, D2
01A706: E845           |   |     asr.w   #4, D5
01A708: 0245 003E      |   |     andi.w  #$3e, D5
01A70C: 3A30 5000      |   |     move.w  (A0,D5.w), D5
01A710: DA43           |   |     add.w   D3, D5
01A712: 34C5           |   |     move.w  D5, (A2)+
01A714: 0684 0000 0009 |   |     addi.l  #$9, D4
01A71A: 6068           |   | *** bra     1a784
01A71C: 0C41 1000      |   +---> cmpi.w  #$1000, D1
01A720: 6E30           |         bgt     1a752
01A722: 3205           |         move.w  D5, D1
01A724: EE41           |         asr.w   #7, D1
01A726: 0241 0007      |         andi.w  #$7, D1
01A72A: 7009           |         moveq   #$9, D0
01A72C: E065           |         asr.w   D0, D5
01A72E: 0245 000E      |         andi.w  #$e, D5
01A732: 3A35 5000      |         move.w  (A5,D5.w), D5
01A736: 4A02           |   +---> tst.b   D2
01A738: 6606           |   | +-- bne     1a740
01A73A: 1419           |   | |   move.b  (A1)+, D2
01A73C: 1619           |   | |   move.b  (A1)+, D3
01A73E: E143           |   | |   asl.w   #8, D3
01A740: 5302           |   | +-> subq.b  #1, D2
01A742: 3005           |   |     move.w  D5, D0
01A744: D043           |   |     add.w   D3, D0
01A746: 34C0           |   |     move.w  D0, (A2)+
01A748: 5341           |   |     subq.w  #1, D1
01A74A: 4A41           |   |     tst.w   D1
01A74C: 6CE8           |   +---- bge     1a736
01A74E: 5E84           |         addq.l  #7, D4
01A750: 6032           |     *** bra     1a784
01A752: 3205           |         move.w  D5, D1
01A754: 3A3C 004D      |         move.w  #$4d, D5
01A758: 0801 000A      |         btst    #$a, D1
01A75C: 6602           |     +-- bne     1a760
01A75E: 5245           |     |   addq.w  #1, D5
01A760: EE41           |     +-> asr.w   #7, D1
01A762: 0241 0007      |         andi.w  #$7, D1
01A766: 4A02           |   +---> tst.b   D2
01A768: 6606           |   | +-- bne     1a770
01A76A: 1419           |   | |   move.b  (A1)+, D2
01A76C: 1619           |   | |   move.b  (A1)+, D3
01A76E: E143           |   | |   asl.w   #8, D3
01A770: 5302           |   | +-> subq.b  #1, D2
01A772: 3005           |   |     move.w  D5, D0
01A774: D043           |   |     add.w   D3, D0
01A776: 34C0           |   |     move.w  D0, (A2)+
01A778: 0A45 0003      |   |     eori.w  #$3, D5
01A77C: 5341           |   |     subq.w  #1, D1
01A77E: 4A41           |   |     tst.w   D1
01A780: 6CE4           |   +---- bge     1a766
01A782: 5E84           |         addq.l  #7, D4
01A784: 0884 0004      |   ***-> bclr    #$4, D4
01A788: 6702           |     +-- beq     1a78c
01A78A: 548B           |     |   addq.l  #2, A3
01A78C: B5CC           |     +-> cmpa.l  A4, A2
01A78E: 6500 FF00      +-------- bcs     1a690
01A792: 4CDF 3C7C                movem.l (A7)+, D2-D6/A2-A5
01A796: 4E75                     rts

01A798: 4879 0002 49E4           pea     $249e4.l           < Get specific game option entry
01A79E: 4EB9 0000 0248           jsr     $248.l             (' Game difficulty')
01A7A4: 588F                     addq.l  #4, A7
01A7A6: 4E75                     rts

01A7A8: 48E7 003C                movem.l A2-A5, -(A7)
01A7AC: 7000                     moveq   #$0, D0
01A7AE: 102F 0017                move.b  ($17,A7), D0
01A7B2: 247C 0040 03BC           movea.l #$4003bc, A2
01A7B8: 264A                     movea.l A2, A3
01A7BA: D7C0                     adda.l  D0, A3
01A7BC: 4BEA 0020                lea     ($20,A2), A5
01A7C0: 49F9 0001 F0E2           lea     $1f0e2.l, A4
01A7C6: 0C12 00FF                cmpi.b  #-$1, (A2)
01A7CA: 6738                     beq     1a804
01A7CC: 0C13 00FF                cmpi.b  #-$1, (A3)
01A7D0: 6732                     beq     1a804
01A7D2: 7000                     moveq   #$0, D0
01A7D4: 1013                     move.b  (A3), D0
01A7D6: E580                     asl.l   #2, D0
01A7D8: 2F34 0800                move.l  (A4,D0.l), -(A7)
01A7DC: 7000                     moveq   #$0, D0
01A7DE: 1012                     move.b  (A2), D0
01A7E0: E580                     asl.l   #2, D0
01A7E2: 2F34 0800                move.l  (A4,D0.l), -(A7)
01A7E6: 4EB9 0001 A80A           jsr     $1a80a.l
01A7EC: 4A80                     tst.l   D0
01A7EE: 508F                     addq.l  #8, A7
01A7F0: 6706                     beq     1a7f8
01A7F2: 1012                     move.b  (A2), D0
01A7F4: 1493                     move.b  (A3), (A2)
01A7F6: 1680                     move.b  D0, (A3)
01A7F8: 528A                     addq.l  #1, A2
01A7FA: B5CD                     cmpa.l  A5, A2
01A7FC: 6706                     beq     1a804
01A7FE: 528B                     addq.l  #1, A3
01A800: B7CD                     cmpa.l  A5, A3
01A802: 66C2                     bne     1a7c6
01A804: 4CDF 3C00                movem.l (A7)+, A2-A5
01A808: 4E75                     rts
01A80A: 48E7 3C00                movem.l D2-D5, -(A7)
01A80E: 226F 0014                movea.l ($14,A7), A1
01A812: 206F 0018                movea.l ($18,A7), A0
01A816: 3829 0006                move.w  ($6,A1), D4
01A81A: 48C4                     ext.l   D4
01A81C: 3029 0004                move.w  ($4,A1), D0
01A820: 48C0                     ext.l   D0
01A822: 3229 0002                move.w  ($2,A1), D1
01A826: 48C1                     ext.l   D1
01A828: D081                     add.l   D1, D0
01A82A: D880                     add.l   D0, D4
01A82C: 3629 000C                move.w  ($c,A1), D3
01A830: 48C3                     ext.l   D3
01A832: 3029 000A                move.w  ($a,A1), D0
01A836: 48C0                     ext.l   D0
01A838: 3229 0008                move.w  ($8,A1), D1
01A83C: 48C1                     ext.l   D1
01A83E: D081                     add.l   D1, D0
01A840: D680                     add.l   D0, D3
01A842: 3428 0006                move.w  ($6,A0), D2
01A846: 48C2                     ext.l   D2
01A848: 3028 0004                move.w  ($4,A0), D0
01A84C: 48C0                     ext.l   D0
01A84E: 3228 0002                move.w  ($2,A0), D1
01A852: 48C1                     ext.l   D1
01A854: D081                     add.l   D1, D0
01A856: D480                     add.l   D0, D2
01A858: 3A28 000C                move.w  ($c,A0), D5
01A85C: 48C5                     ext.l   D5
01A85E: 3028 000A                move.w  ($a,A0), D0
01A862: 48C0                     ext.l   D0
01A864: 3228 0008                move.w  ($8,A0), D1
01A868: 48C1                     ext.l   D1
01A86A: D081                     add.l   D1, D0
01A86C: DA80                     add.l   D0, D5
01A86E: B682                     cmp.l   D2, D3
01A870: 6E06                     bgt     1a878
01A872: 4200                     clr.b   D0
01A874: 6000 0052                bra     1a8c8
01A878: BA84                     cmp.l   D4, D5
01A87A: 6E04                     bgt     1a880
01A87C: 7001                     moveq   #$1, D0
01A87E: 6048                     bra     1a8c8
01A880: 3028 0004                move.w  ($4,A0), D0
01A884: B069 000A                cmp.w   ($a,A1), D0
01A888: 6D04                     blt     1a88e
01A88A: 4200                     clr.b   D0
01A88C: 603A                     bra     1a8c8
01A88E: 3029 0004                move.w  ($4,A1), D0
01A892: B068 000A                cmp.w   ($a,A0), D0
01A896: 6D04                     blt     1a89c
01A898: 7001                     moveq   #$1, D0
01A89A: 602C                     bra     1a8c8
01A89C: 3028 0002                move.w  ($2,A0), D0
01A8A0: B069 0008                cmp.w   ($8,A1), D0
01A8A4: 6D04                     blt     1a8aa
01A8A6: 4200                     clr.b   D0
01A8A8: 601E                     bra     1a8c8
01A8AA: 3029 0002                move.w  ($2,A1), D0
01A8AE: B068 0008                cmp.w   ($8,A0), D0
01A8B2: 6D04                     blt     1a8b8
01A8B4: 7001                     moveq   #$1, D0
01A8B6: 6010                     bra     1a8c8
01A8B8: 3028 0006                move.w  ($6,A0), D0
01A8BC: B069 000C                cmp.w   ($c,A1), D0
01A8C0: 6D04                     blt     1a8c6
01A8C2: 4200                     clr.b   D0
01A8C4: 6002                     bra     1a8c8
01A8C6: 7001                     moveq   #$1, D0
01A8C8: 4880                     ext.w   D0
01A8CA: 48C0                     ext.l   D0
01A8CC: 4CDF 003C                movem.l (A7)+, D2-D5
01A8D0: 4E75                     rts
01A8D2: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
01A8D6: 206F 0028                movea.l ($28,A7), A0
01A8DA: 322F 002E                move.w  ($2e,A7), D1
01A8DE: 342F 0032                move.w  ($32,A7), D2
01A8E2: 362F 0036                move.w  ($36,A7), D3
01A8E6: 2279 0040 03FA           movea.l $4003fa.l, A1
01A8EC: 2479 0040 03FE           movea.l $4003fe.l, A2
01A8F2: 2679 0040 03F6           movea.l $4003f6.l, A3
01A8F8: 2879 0040 0402           movea.l $400402.l, A4
01A8FE: 3E39 0040 0406           move.w  $400406.l, D7
01A904: 70FF                     moveq   #-$1, D0
01A906: B088                     cmp.l   A0, D0
01A908: 6700 009E                beq     1a9a8         (RTS)
01A90C: 1010                     move.b  (A0), D0
01A90E: 4880                     ext.w   D0
01A910: D240                     add.w   D0, D1
01A912: 1028 0001                move.b  ($1,A0), D0
01A916: 4880                     ext.w   D0
01A918: D440                     add.w   D0, D2
01A91A: 2028 0008                move.l  ($8,A0), D0
01A91E: 0880 0000                bclr    #$0, D0
01A922: 670A                  -- beq     1a92e
01A924: 383C 8000            |   move.w  #$8000, D4
01A928: 3A3C FF00            |   move.w  #$ff00, D5
01A92C: 6006                 |   bra     1a934
01A92E: 4244                  -> clr.w   D4
01A930: 3A3C 0100                move.w  #$100, D5
01A934: 2040                     movea.l D0, A0
01A936: 1C18                     move.b  (A0)+, D6
01A938: 0C06 00FF                cmpi.b  #-$1, D6
01A93C: 6732                     beq     1a970         > draw motion objects routine
01A93E: 1018                     move.b  (A0)+, D0
01A940: 4880                     ext.w   D0
01A942: D240                     add.w   D0, D1
01A944: EB41                     asl.w   #5, D1
01A946: 0241 3FE0                andi.w  #$3fe0, D1
01A94A: 8818                     or.b    (A0)+, D4
01A94C: 1018                     move.b  (A0)+, D0
01A94E: 4880                     ext.w   D0
01A950: D440                     add.w   D0, D2
01A952: EB42                     asl.w   #5, D2
01A954: 0242 3FE0                andi.w  #$3fe0, D2
01A958: 8444                     or.w    D4, D2
01A95A: 3018                  -> move.w  (A0)+, D0
01A95C: 8043                 |   or.w    D3, D0
01A95E: 32C0                 |   move.w  D0, (A1)+
01A960: 34C1                 |   move.w  D1, (A2)+
01A962: 36C2                 |   move.w  D2, (A3)+
01A964: 38C7                 |   move.w  D7, (A4)+
01A966: 5247                 |   addq.w  #1, D7
01A968: D245                 |   add.w   D5, D1
01A96A: 5306                 |   subq.b  #1, D6
01A96C: 66EC                  -- bne     1a95a
01A96E: 6038               ----- bra     1a9a8         (RTS)
01A970: 5288              |      addq.l  #1, A0         - Draw motion objects (NOT marble)
01A972: 1C18              |      move.b  (A0)+, D6
01A974: 1018              |      move.b  (A0)+, D0
01A976: 4880              |      ext.w   D0
01A978: D240              |      add.w   D0, D1
01A97A: EB41              |      asl.w   #5, D1
01A97C: 0241 3FE0         |      andi.w  #$3fe0, D1
01A980: 34C1              |   -> move.w  D1, (A2)+
01A982: 0244 8000         |  |   andi.w  #$8000, D4
01A986: 8818              |  |   or.b    (A0)+, D4
01A988: 1018              |  |   move.b  (A0)+, D0
01A98A: 4880              |  |   ext.w   D0
01A98C: D042              |  |   add.w   D2, D0
01A98E: EB40              |  |   asl.w   #5, D0
01A990: 0240 3FE0         |  |   andi.w  #$3fe0, D0
01A994: 8044              |  |   or.w    D4, D0
01A996: 36C0              |  |   move.w  D0, (A3)+
01A998: 3018              |  |   move.w  (A0)+, D0
01A99A: 8043              |  |   or.w    D3, D0
01A99C: 32C0              |  |   move.w  D0, (A1)+
01A99E: 38C7              |  |   move.w  D7, (A4)+
01A9A0: 5247              |  |   addq.w  #1, D7
01A9A2: D245              |  |   add.w   D5, D1
01A9A4: 5306              |  |   subq.b  #1, D6
01A9A6: 66D8              |   -- bne     1a980
01A9A8: 23C9 0040 03FA     ----> move.l  A1, $4003fa.l
01A9AE: 23CA 0040 03FE           move.l  A2, $4003fe.l
01A9B4: 23CB 0040 03F6           move.l  A3, $4003f6.l
01A9BA: 23CC 0040 0402           move.l  A4, $400402.l
01A9C0: 33C7 0040 0406           move.w  D7, $400406.l
01A9C6: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
01A9CA: 4E75                     rts

01A9CC: 206F 0004                movea.l ($4,A7), A0
01A9D0: 226F 0008                movea.l ($8,A7), A1
01A9D4: 2F02                     move.l  D2, -(A7)
01A9D6: 7400                     moveq   #$0, D2
01A9D8: 3211                     move.w  (A1), D1
01A9DA: ED41                     asl.w   #6, D1
01A9DC: 7000                     moveq   #$0, D0
01A9DE: 3029 0008                move.w  ($8,A1), D0
01A9E2: E898                     ror.l   #4, D0
01A9E4: 8041                     or.w    D1, D0
01A9E6: 4840                     swap    D0
01A9E8: 3229 0010                move.w  ($10,A1), D1
01A9EC: E541                     asl.w   #2, D1
01A9EE: 8041                     or.w    D1, D0
01A9F0: 8029 0018                or.b    ($18,A1), D0
01A9F4: 20C0                     move.l  D0, (A0)+
01A9F6: 0C42 0005                cmpi.w  #$5, D2
01A9FA: 6700 0038                beq     1aa34
01A9FE: 3229 0018                move.w  ($18,A1), D1
01AA02: E141                     asl.w   #8, D1
01AA04: 7000                     moveq   #$0, D0
01AA06: 3029 0020                move.w  ($20,A1), D0
01AA0A: E498                     ror.l   #2, D0
01AA0C: 8041                     or.w    D1, D0
01AA0E: 4840                     swap    D0
01AA10: 3229 0028                move.w  ($28,A1), D1
01AA14: E941                     asl.w   #4, D1
01AA16: 8041                     or.w    D1, D0
01AA18: 7200                     moveq   #$0, D1
01AA1A: 3229 0030                move.w  ($30,A1), D1
01AA1E: EC99                     ror.l   #6, D1
01AA20: 8041                     or.w    D1, D0
01AA22: 20C0                     move.l  D0, (A0)+
01AA24: 4841                     swap    D1
01AA26: 8269 0038                or.w    ($38,A1), D1
01AA2A: 30C1                     move.w  D1, (A0)+
01AA2C: 7040                     moveq   #$40, D0
01AA2E: D3C0                     adda.l  D0, A1
01AA30: 5242                     addq.w  #1, D2
01AA32: 60A4                     bra     1a9d8
01AA34: 241F                     move.l  (A7)+, D2
01AA36: 4E75                     rts

01AA38: 48E7 3F3E                movem.l D2-D7/A2-A6, -(A7)
01AA3C: 3E2F 0036                move.w  ($36,A7), D7     D7=00000080
01AA40: 246F 0038                movea.l ($38,A7), A2     A2=00400A9C 
01AA44: 2079 0040 0474           movea.l $400474.l, A0    A0=0002BEE2
01AA4A: 2C10                     move.l  (A0), D6         D6=819B4
01AA4C: 343C 0016                move.w  #$16, D2         D2=16

01AA50: 5342                     subq.w  #1, D2           D2=15,14,13..0
01AA52: 6E10                +--- bgt     1aa64            >,> lots of times
01AA54: 6B00 0178           |    bmi     1abce (branch minus) exit
01AA58: 4A6F 0032           |    tst.w   ($32,A7)
01AA5C: 6706                |    beq     1aa64
01AA5E: 4252                |    clr.w   (A2)
01AA60: 6000 016C           |    bra     1abce
01AA64: 365A                +--> movea.w (A2)+, A3       A3=0 (alts) 
01AA66: 385A                     movea.w (A2)+, A4       A4=0
01AA68: 3A5A                     movea.w (A2)+, A5       A5=0
01AA6A: 3C5A                     movea.w (A2)+, A6       A6=0
01AA6C: 3807                     move.w  D7, D4          D4=FFFF0080
01AA6E: 3A07                     move.w  D7, D5          D5=00400080
01AA70: 0444 0040                subi.w  #$40, D4        D4=FFFF0040
01AA74: 0645 0040                addi.w  #$40, D5        D5=004000C0 
01AA78: 320B                     move.w  A3, D1          D1=0
01AA7A: 6708                +--- beq     1aa84
01AA7C: 0C41 1000           |    cmpi.w  #$1000, D1
01AA80: 6D00 0138           |    blt     1abba
01AA84: 300B                +--> move.w  A3, D0          D0=0
01AA86: 670C                +--- beq     1aa94
01AA88: B84B                |    cmp.w   A3, D4
01AA8A: 6E00 00F0           |    bgt     1ab7c
01AA8E: BA4B                |    cmp.w   A3, D5
01AA90: 6F00 00EA           |    ble     1ab7c
01AA94: 300C                +--> move.w  A4, D0          D0=0
01AA96: 670C                +--- beq     1aaa4
01AA98: B84C                |    cmp.w   A4, D4
01AA9A: 6E00 00E0           |    bgt     1ab7c
01AA9E: BA4C                |    cmp.w   A4, D5
01AAA0: 6F00 00DA           |    ble     1ab7c
01AAA4: 300D                +--> move.w  A5, D0          D0=0
01AAA6: 670C                +--- beq     1aab4
01AAA8: B84D                |    cmp.w   A5, D4
01AAAA: 6E00 00D0           |    bgt     1ab7c
01AAAE: BA4D                |    cmp.w   A5, D5
01AAB0: 6F00 00CA           |    ble     1ab7c
01AAB4: 300E                +--> move.w  A6, D0          D0=0
01AAB6: 670C                +--- beq     1aac4
01AAB8: B84E                |    cmp.w   A6, D4
01AABA: 6E00 00C0           |    bgt     1ab7c
01AABE: BA4E                |    cmp.w   A6, D5
01AAC0: 6F00 00BA           |    ble     1ab7c
01AAC4: B8CB                +--> cmpa.w  A3, A4          0,0
01AAC6: 6618                     bne     1aae0
01AAC8: BACC                     cmpa.w  A4, A5          0,0
01AACA: 6614                     bne     1aae0
01AACC: BCCD                     cmpa.w  A5, A6          0,0
01AACE: 6610                     bne     1aae0
01AAD0: 320B                     move.w  A3, D1          D1=0
01AAD2: 6700 00E6            +-- beq     1abba
01AAD6: 9247                     sub.w   D7, D1
01AAD8: 0641 F040                addi.w  #-$fc0, D1
01AADC: 6000 00DC                bra     1abba
01AAE0: 380B                     move.w  A3, D4
01AAE2: B84C                     cmp.w   A4, D4
01AAE4: 6704                     beq     1aaea
01AAE6: 3A0C                     move.w  A4, D5
01AAE8: 600E                     bra     1aaf8
01AAEA: B84D                     cmp.w   A5, D4
01AAEC: 6704                     beq     1aaf2
01AAEE: 3A0D                     move.w  A5, D5
01AAF0: 6006                     bra     1aaf8
01AAF2: B84E                     cmp.w   A6, D4
01AAF4: 6702                     beq     1aaf8
01AAF6: 3A0E                     move.w  A6, D5
01AAF8: B84D                     cmp.w   A5, D4
01AAFA: 6706                     beq     1ab02
01AAFC: BA4D                     cmp.w   A5, D5
01AAFE: 6600 007C                bne     1ab7c
01AB02: B84E                     cmp.w   A6, D4
01AB04: 6704                     beq     1ab0a
01AB06: BA4E                     cmp.w   A6, D5
01AB08: 6672                     bne     1ab7c
01AB0A: B845                     cmp.w   D5, D4
01AB0C: 6F12                     ble     1ab20
01AB0E: 3004                     move.w  D4, D0
01AB10: 4A45                     tst.w   D5
01AB12: 6606                     bne     1ab1a
01AB14: 363C 1000                move.w  #$1000, D3
01AB18: 6016                     bra     1ab30
01AB1A: 3604                     move.w  D4, D3
01AB1C: 9645                     sub.w   D5, D3
01AB1E: 6010                     bra     1ab30
01AB20: 3005                     move.w  D5, D0
01AB22: 4A44                     tst.w   D4
01AB24: 6606                     bne     1ab2c
01AB26: 363C 1000                move.w  #$1000, D3
01AB2A: 6004                     bra     1ab30
01AB2C: 3605                     move.w  D5, D3
01AB2E: 9644                     sub.w   D4, D3
01AB30: 0C43 1000                cmpi.w  #$1000, D3
01AB34: 6604                     bne     1ab3a
01AB36: 761F                     moveq   #$1f, D3
01AB38: 6014                     bra     1ab4e
01AB3A: 0C43 0060                cmpi.w  #$60, D3
01AB3E: 6E3C                     bgt     1ab7c
01AB40: 41F9 0001 EC28           lea     $1ec28.l, A0
01AB46: D643                     add.w   D3, D3
01AB48: 3630 3000                move.w  (A0,D3.w), D3
01AB4C: 6B2E                     bmi     1ab7c
01AB4E: 3200                     move.w  D0, D1
01AB50: 9247                     sub.w   D7, D1
01AB52: 0641 0040                addi.w  #$40, D1
01AB56: EF43                     asl.w   #7, D3
01AB58: D243                     add.w   D3, D1
01AB5A: B04C                     cmp.w   A4, D0
01AB5C: 6604                     bne     1ab62
01AB5E: 0641 1000                addi.w  #$1000, D1
01AB62: B04D                     cmp.w   A5, D0
01AB64: 6604                     bne     1ab6a
01AB66: 0641 2000                addi.w  #$2000, D1
01AB6A: B04E                     cmp.w   A6, D0
01AB6C: 6604                     bne     1ab72
01AB6E: 0641 4000                addi.w  #$4000, D1
01AB72: B04B                     cmp.w   A3, D0
01AB74: 6644                     bne     1abba
01AB76: 0641 8000                addi.w  #-$8000, D1
01AB7A: 603E                     bra     1abba
01AB7C: 323C 0080                move.w  #$80, D1
01AB80: 9247                     sub.w   D7, D1
01AB82: 300C                     move.w  A4, D0
01AB84: 6702                     beq     1ab88
01AB86: D8C1                     adda.w  D1, A4
01AB88: 300D                     move.w  A5, D0
01AB8A: 6702                     beq     1ab8e
01AB8C: DAC1                     adda.w  D1, A5
01AB8E: 300E                     move.w  A6, D0
01AB90: 6702                     beq     1ab94
01AB92: DCC1                     adda.w  D1, A6
01AB94: 300B                     move.w  A3, D0
01AB96: 6702                     beq     1ab9a
01AB98: D6C1                     adda.w  D1, A3
01AB9A: 320C                     move.w  A4, D1
01AB9C: E141                     asl.w   #8, D1
01AB9E: D24D                     add.w   A5, D1
01ABA0: 4841                     swap    D1
01ABA2: 320E                     move.w  A6, D1
01ABA4: E141                     asl.w   #8, D1
01ABA6: D24B                     add.w   A3, D1
01ABA8: 2246                     movea.l D6, A1
01ABAA: 0C99 FFFF FFFF           cmpi.l  #-$1, (A1)+
01ABB0: 6704                     beq     1abb6
01ABB2: B291                     cmp.l   (A1), D1
01ABB4: 66F4                     bne     1abaa
01ABB6: 2209                     move.l  A1, D1
01ABB8: 9246                     sub.w   D6, D1

01ABBA: 48C1                     ext.l   D1                
01ABBC: 2F01                     move.l  D1, -(A7)
01ABBE: 4EB9 0001 ABD4           jsr     $1abd4.l       (just below)
01ABC4: 3540 FFF8                move.w  D0, (-$8,A2    400A9C=0000, 400AA4=0,AAC=0,
01ABC8: 588F                 |   addq.l  #4, A7
01ABCA: 6000 FE84            +-- bra     1aa50 (loop)

01ABCE: 4CDF 7CFC                movem.l (A7)+, D2-D7/A2-A6
01ABD2: 4E75                     rts


01ABD4: 222F 0004                move.l  ($4,A7), D1      
01ABD8: 2079 0040 065A           movea.l $40065a.l, A0  A0=81874
01ABDE: 2279 0040 065E           movea.l $40065e.l, A1  A1=819B2
01ABE4: 2F0A                     move.l  A2, -(A7)
01ABE6: 2448                     movea.l A0, A2         A2=81874
01ABE8: 203C 0000 0400           move.l  #$400, D0      D0=400
01ABEE: B252                     cmp.w   (A2), D1
01ABF0: 6404                 +-- bcc     1abf6
01ABF2: 95C0                 |   suba.l  D0, A2
01ABF4: 6010                 |   bra     1ac06
01ABF6: 6704                 +-> beq     1abfc
                             +-< go straight on...
01ABF8: D5C0                 |   adda.l  D0, A2
01ABFA: 600A                 |   bra     1ac06
01ABFC: 200A                 +-> move.l  A2, D0        
01ABFE: 9088                     sub.l   A0, D0         D0=0
01AC00: E288                     lsr.l   #1, D0
01AC02: 245F                     movea.l (A7)+, A2      A2=400AA4,? , AB4
01AC04: 4E75                     rts

01AC06: B3CA                     cmpa.l  A2, A1
01AC08: 6404                     bcc     1ac0e
01AC0A: 2449                     movea.l A1, A2
01AC0C: 6006                     bra     1ac14
01AC0E: B5C8                     cmpa.l  A0, A2
01AC10: 6402                     bcc     1ac14
01AC12: 2448                     movea.l A0, A2
01AC14: E288                     lsr.l   #1, D0
01AC16: 60D6                     bra     1abee
01AC18: 48E7 3800                movem.l D2-D4, -(A7)
01AC1C: 207C 0040 0018           movea.l #$400018, A0
01AC22: 4203                     clr.b   D3
01AC24: 1003                     move.b  D3, D0
01AC26: 4880                     ext.w   D0
01AC28: 48C0                     ext.l   D0
01AC2A: E580                     asl.l   #2, D0
01AC2C: 0680 00F2 0000           addi.l  #$f20000, D0     TRACKBALL ADDRESS
01AC32: 2240                     movea.l D0, A1
01AC34: 1029 0001                move.b  ($1,A1), D0
01AC38: 0200 00FF                andi.b  #$ff, D0
01AC3C: 1200                     move.b  D0, D1
01AC3E: 1001                     move.b  D1, D0
01AC40: 9028 00C9                sub.b   ($c9,A0), D0
01AC44: 1400                     move.b  D0, D2
01AC46: 1141 00C9                move.b  D1, ($c9,A0)
01AC4A: 0C02 0060                cmpi.b  #$60, D2
01AC4E: 6E00 0008                bgt     1ac58
01AC52: 0C02 00A0                cmpi.b  #-$60, D2
01AC56: 6C18                     bge     1ac70
01AC58: 1028 00C7                move.b  ($c7,A0), D0
01AC5C: 1202                     move.b  D2, D1
01AC5E: B300                     eor.b   D1, D0
01AC60: 4A00                     tst.b   D0
01AC62: 6C0C                     bge     1ac70
01AC64: 4A02                     tst.b   D2
01AC66: 6C04                     bge     1ac6c
01AC68: 747F                     moveq   #$7f, D2
01AC6A: 6004                     bra     1ac70
01AC6C: 143C 0080                move.b  #$80, D2
01AC70: 1142 00C7                move.b  D2, ($c7,A0)
01AC74: 1003                     move.b  D3, D0
01AC76: 4880                     ext.w   D0
01AC78: 48C0                     ext.l   D0
01AC7A: E580                     asl.l   #2, D0
01AC7C: 0680 00F2 0000           addi.l  #$f20000, D0
01AC82: 5480                     addq.l  #2, D0
01AC84: 2240                     movea.l D0, A1
01AC86: 1029 0001                move.b  ($1,A1), D0
01AC8A: 0200 00FF                andi.b  #$ff, D0
01AC8E: 1200                     move.b  D0, D1
01AC90: 1001                     move.b  D1, D0
01AC92: 9028 00C8                sub.b   ($c8,A0), D0
01AC96: 1400                     move.b  D0, D2
01AC98: 1141 00C8                move.b  D1, ($c8,A0)
01AC9C: 0C02 0060                cmpi.b  #$60, D2
01ACA0: 6E00 0008                bgt     1acaa
01ACA4: 0C02 00A0                cmpi.b  #-$60, D2
01ACA8: 6C18                     bge     1acc2
01ACAA: 1028 00C6                move.b  ($c6,A0), D0
01ACAE: 1202                     move.b  D2, D1
01ACB0: B300                     eor.b   D1, D0
01ACB2: 4A00                     tst.b   D0
01ACB4: 6C0C                     bge     1acc2
01ACB6: 4A02                     tst.b   D2
01ACB8: 6C04                     bge     1acbe
01ACBA: 747F                     moveq   #$7f, D2
01ACBC: 6004                     bra     1acc2
01ACBE: 143C 0080                move.b  #$80, D2
01ACC2: 1142 00C6                move.b  D2, ($c6,A0)
01ACC6: 2808                     move.l  A0, D4
01ACC8: 0684 0000 00E2           addi.l  #$e2, D4
01ACCE: 2044                     movea.l D4, A0
01ACD0: 5203                     addq.b  #1, D3
01ACD2: 0C03 0002                cmpi.b  #$2, D3
01ACD6: 6600 FF4C                bne     1ac24
01ACDA: 4CDF 001C                movem.l (A7)+, D2-D4
01ACDE: 4E75                     rts
01ACE0: 48E7 3000                movem.l D2-D3, -(A7)
01ACE4: 4202                     clr.b   D2
01ACE6: 4243                     clr.w   D3
01ACE8: 3003                     move.w  D3, D0
01ACEA: 48C0                     ext.l   D0
01ACEC: 2F00                     move.l  D0, -(A7)
01ACEE: 4EB9 0002 FFB8           jsr     $2ffb8.l
01ACF4: 7204                     moveq   #$4, D1
01ACF6: 588F                     addq.l  #4, A7
01ACF8: 4279 0088 0000           clr.w   $880000.l
01ACFE: 3001                     move.w  D1, D0
01AD00: 48C0                     ext.l   D0
01AD02: 0680 0008 0000           addi.l  #$80000, D0
01AD08: 2040                     movea.l D0, A0
01AD0A: D410                     add.b   (A0), D2
01AD0C: 5241                     addq.w  #1, D1
01AD0E: 707C                     moveq   #$7c, D0
01AD10: B041                     cmp.w   D1, D0
01AD12: 6EE4                     bgt     1acf8
01AD14: 323C 00E4                move.w  #$e4, D1
01AD18: 4279 0088 0000           clr.w   $880000.l
01AD1E: 3001                     move.w  D1, D0
01AD20: 48C0                     ext.l   D0
01AD22: 0680 0008 0000           addi.l  #$80000, D0
01AD28: 2040                     movea.l D0, A0
01AD2A: D410                     add.b   (A0), D2
01AD2C: 5241                     addq.w  #1, D1
01AD2E: 0C41 2000                cmpi.w  #$2000, D1
01AD32: 6DE4                     blt     1ad18
01AD34: 5243                     addq.w  #1, D3
01AD36: 7004                     moveq   #$4, D0
01AD38: B043                     cmp.w   D3, D0
01AD3A: 6EAC                     bgt     1ace8
01AD3C: 7000                     moveq   #$0, D0
01AD3E: 1002                     move.b  D2, D0
01AD40: 0C80 0000 00FB           cmpi.l  #$fb, D0
01AD46: 6604                     bne     1ad4c
01AD48: 7001                     moveq   #$1, D0
01AD4A: 6002                     bra     1ad4e
01AD4C: 7000                     moveq   #$0, D0
01AD4E: 4CDF 000C                movem.l (A7)+, D2-D3
01AD52: 4E75                     rts

---Data when subroutine called---
401DEA=0040 1E34
401DF2=0002 BFD2
401DF6=0000 0015
401DFA=0000 0015
401DFE=0000 0018
401E02=0000 0001
---------------------------------
01AD54: 4E56 FFE4                link    A6, #-$1c            Load altitude data
01AD58: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)  A6=401DEA
01AD5C: 206E 0008                movea.l ($8,A6), A0         A0=2BFD2 [401DF2]
01AD60: 3A2E 000E                move.w  ($e,A6), D5         D5=15    [401DF8]
01AD64: 382E 0012                move.w  ($12,A6), D4        D4=15    [401DFC]
01AD68: 4247                     clr.w   D7
01AD6A: 3847                     movea.w D7, A4
01AD6C: 1D50 FFFF                move.b  (A0), (-$1,A6)      401DE9=13 (alt)
01AD70: 3E2E FFFE                move.w  (-$2,A6), D7        D7=2413
01AD74: 4887                     ext.w   D7                  D7=0013
01AD76: 3D47 FFFE                move.w  D7, (-$2,A6)        401DE8=0013 
01AD7A: 082E 0000 FFFF           btst    #$0, (-$1,A6)
01AD80: 6608                 +-- bne     1ad8a
01AD82: 2E0C                 |   move.l  A4, D7
01AD84: 0047 0001            |   ori.w   #$1, D7
01AD88: 3847                 |   movea.w D7, A4
01AD8A: 3D58 FFF8            +-> move.w  (A0)+, (-$8,A6)      
01AD8E: 026E 00FF FFF8           andi.w  #$ff, (-$8,A6)     401DE2=0007 (alt)
01AD94: 1D50 FFFD                move.b  (A0), (-$3,A6)
01AD98: 3E2E FFFC                move.w  (-$4,A6), D7
01AD9C: 4887                     ext.w   D7
01AD9E: 3D47 FFFC                move.w  D7, (-$4,A6)       401DE6=0007 (alt)
01ADA2: 3D58 FFFA                move.w  (A0)+, (-$6,A6)    401DE4=0707
01ADA6: 026E 00FF FFFA           andi.w  #$ff, (-$6,A6)
01ADAC: 302E FFFA                move.w  (-$6,A6), D0       7
01ADB0: 48C0                     ext.l   D0
01ADB2: 322E FFFC                move.w  (-$4,A6), D1       7 
01ADB6: 48C1                     ext.l   D1
01ADB8: D081                     add.l   D1, D0             E (1110)
01ADBA: 0800 0002                btst    #$2, D0             
01ADBE: 6708                 +-- beq     1adc8
01ADC0: 2E0C                 |   move.l  A4, D7
01ADC2: 0047 0002            |   ori.w   #$2, D7            D7=2
01ADC6: 3847                 |   movea.w D7, A4
01ADC8: 302E FFFE            +-> move.w  (-$2,A6), D0       D0=13 
01ADCC: 5340                     subq.w  #1, D0             D0=12
01ADCE: 3E2E FFFC                move.w  (-$4,A6), D7       D7=7
01ADD2: DE40                     add.w   D0, D7
01ADD4: 3D47 FFFC                move.w  D7, (-$4,A6)       401DE6=0019 (12+7, D0+D7)
01ADD8: 302E FFF8                move.w  (-$8,A6), D0       D0=7
01ADDC: 5340                     subq.w  #1, D0             D0=6
01ADDE: 3E2E FFFA                move.w  (-$6,A6), D7       D7=7
01ADE2: DE40                     add.w   D0, D7             D7=D
01ADE4: 3D47 FFFA                move.w  D7, (-$6,A6)       401DE4=000D
01ADE8: 3D58 FFF4                move.w  (A0)+, (-$c,A6)    401DDE=400C
01ADEC: 082E 0001 FFF5           btst    #$1, (-$b,A6)
01ADF2: 6712                 +-- beq     1ae06
01ADF4: 302E FFF4            |   move.w  (-$c,A6), D0
01ADF8: 0240 000C            |   andi.w  #$c, D0
01ADFC: 0640 0010            |   addi.w  #$10, D0
01AE00: 3E0C                 |   move.w  A4, D7
01AE02: 8E40                 |   or.w    D0, D7
01AE04: 3847                 |   movea.w D7, A4
01AE06: 1210                 +-> move.b  (A0), D1           D1=41 (alt)
01AE08: 4881                     ext.w   D1                 
01AE0A: 0801 0007                btst    #$7, D1
01AE0E: 6708                 +-- beq     1ae18             
01AE10: 2E0C                 |   move.l  A4, D7
01AE12: 0047 0080            |   ori.w   #$80, D7
01AE16: 3847                 |   movea.w D7, A4
01AE18: 3001                 +-> move.w  D1, D0             D0=41
01AE1A: 0240 0060                andi.w  #$60, D0           D0=40
01AE1E: 3E0C                     move.w  A4, D7             D7=0000002
01AE20: 8E40                     or.w    D0, D7             D7=42
01AE22: 3847                     movea.w D7, A4             A4=42
01AE24: 4A6E 001A                tst.w   ($1a,A6)           
01AE28: 6700 02EA           *--- beq     1b114
01AE2C: 0241 001F          exit  andi.w  #$1f, D1           D1=1
01AE30: 3618                     move.w  (A0)+, D3          D3=401C (alt)
01AE32: 0243 00FF                andi.w  #$ff, D3           D3=1C
01AE36: 3001                     move.w  D1, D0             D0=1
01AE38: 48C0                     ext.l   D0
01AE3A: E580                     asl.l   #2, D0             D0=4
01AE3C: 2040                     movea.l D0, A0             A0=00000004
01AE3E: 2279 0040 0474           movea.l $400474.l, A1      A1=2BEE2
01AE44: D1E9 0020                adda.l  ($20,A1), A0       A0=2BFA2+(was 4)=2BFA6 
                                                            (level data block '4')
01AE48: 2008                     move.l  A0, D0
01AE4A: 2040                     movea.l D0, A0             A0=2BFA6
01AE4C: 5880                     addq.l  #4, D0             D0=2BFAA
01AE4E: 2D50 FFE4                move.l  (A0), (-$1c,A6)    401DCE=081F00
01AE52: 246E FFE4                movea.l (-$1c,A6), A2      A2=81F00
01AE56: 3D43 FFF6                move.w  D3, (-$a,A6)       401DE0=000C
01AE5A: 026E 0008 FFF6           andi.w  #$8, (-$a,A6)      401DE0=0008 
01AE60: 0243 0007                andi.w  #$7, D3            D3=7=4
01AE64: 3003                     move.w  D3, D0             D0=4    
01AE66: E340                     asl.w   #1, D0             D0=8
01AE68: 48C0                     ext.l   D0
01AE6A: D080                     add.l   D0, D0             D0=10
01AE6C: 207C 0001 ECEA           movea.l #$1ecea, A0        A0=1ECEA
01AE72: D1C0                     adda.l  D0, A0             A0=1ECFA 
01AE74: 3D58 FFEE                move.w  (A0)+, (-$12,A6)   401DD8=0001
01AE78: 3D50 FFEC                move.w  (A0), (-$14,A6)    401DD6=0001, A0=1ECFC
01AE7C: 4A6E FFEE                tst.w   (-$12,A6)
01AE80: 6C12               +---- bge     1ae94
01AE82: 3D6E FFFC FFE8     |     move.w  (-$4,A6), (-$18,A6)
01AE88: 3D6E FFFE FFF2     |     move.w  (-$2,A6), (-$e,A6)
01AE8E: 536E FFF2          |     subq.w  #1, (-$e,A6)
01AE92: 6010               | +-  bra     1aea4
01AE94: 3D6E FFFE FFE8     +-|-> move.w  (-$2,A6), (-$18,A6)401DD2=0013 (from 401DE8) 1st alt
01AE9A: 3D6E FFFC FFF2       |   move.w  (-$4,A6), (-$e,A6) 401DDC=0019 (from 401DE6)
01AEA0: 526E FFF2            |   addq.w  #1, (-$e,A6)       401DDC=001A 
01AEA4: 4A6E FFEC            +-> tst.w   (-$14,A6)
01AEA8: 6C12               +---- bge     1aebc
01AEAA: 3D6E FFFA FFEA     |     move.w  (-$6,A6), (-$16,A6)
01AEB0: 3D6E FFF8 FFF0     |     move.w  (-$8,A6), (-$10,A6)
01AEB6: 536E FFF0          |     subq.w  #1, (-$10,A6)
01AEBA: 6010               | +-- bra     1aecc
01AEBC: 3D6E FFF8 FFEA     +-|-> move.w  (-$8,A6), (-$16,A6)401DD4=0017 (from 401DE2)
01AEC2: 3D6E FFFA FFF0       |   move.w  (-$6,A6), (-$10,A6)401DDA=000D (from 401DE4)
01AEC8: 526E FFF0            |   addq.w  #1, (-$10,A6)      401DDA=000E 
01AECC: 7404                 +-> moveq   #$4, D2 
01AECE: B443                     cmp.w   D3, D2             4,4
01AED0: 6F00 0124           *--- ble     1aff6              bra
01AED4: 3C2E FFEA                move.w  (-$16,A6), D6
01AED8: 6000 0110           *--- bra     1afea
01AEDC: 366E FFE8         -----> movea.w (-$18,A6), A3
01AEE0: 6000 00FC    +---------- bra     1afde
01AEE4: 3246       +-|---------> movea.w D6, A1
01AEE6: D2CB       | |           adda.w  A3, A1
01AEE8: 92C5       | |           suba.w  D5, A1
01AEEA: CF89       | |           exg     D7, A1
01AEEC: 4A47       | |           tst.w   D7
01AEEE: CF89       | |           exg     D7, A1
01AEF0: 6D00 00D6  | | +-------< blt     1afc8
01AEF4: B2EE 0016  | | |         cmpa.w  ($16,A6), A1
01AEF8: 6C00 00CE  | | +-------< bge     1afc8
01AEFC: 3E09       | | |         move.w  A1, D7
01AEFE: E247       | | |         asr.w   #1, D7
01AF00: 3047       | | |         movea.w D7, A0
01AF02: 3004       | | |         move.w  D4, D0
01AF04: 904B       | | |         sub.w   A3, D0
01AF06: D0C0       ^ v v         adda.w  D0, A0
01AF08: CF88       | | |         exg     D7, A0
01AF0A: 4A47       | | |         tst.w   D7
01AF0C: CF88       | | |         exg     D7, A0
01AF0E: 6D00 00B8  | | +-------< blt     1afc8
01AF12: 3408       | | |         move.w  A0, D2
01AF14: 48C2       | | |         ext.l   D2
01AF16: 7016       | | |         moveq   #$16, D0
01AF18: 3209       | | |         move.w  A1, D1
01AF1A: 48C1       | | |         ext.l   D1
01AF1C: 7601       | | |         moveq   #$1, D3
01AF1E: C283       | | |         and.l   D3, D1
01AF20: 9081       | | |         sub.l   D1, D0
01AF22: B480       | | |         cmp.l   D0, D2
01AF24: 6C00 00A2  | | +-------< bge     1afc8
01AF28: 3009       | | |         move.w  A1, D0
01AF2A: 48C0       | | |         ext.l   D0
01AF2C: C0FC 0016  | | |         mulu.w  #$16, D0
01AF30: 3208       | | |         move.w  A0, D1
01AF32: 48C1       | | |         ext.l   D1
01AF34: D081       ^ v v         add.l   D1, D0
01AF36: E780       | | |         asl.l   #3, D0
01AF38: 2040       | | |         movea.l D0, A0
01AF3A: D1FC 0040 0A9C |         adda.l  #$400a9c, A0
01AF40: 4A6E FFF6  | | |         tst.w   (-$a,A6)
01AF44: 670C       | | |   +---< beq     1af52
01AF46: 322E FFF4  | | |   |     move.w  (-$c,A6), D1
01AF4A: 1012       | | |   |     move.b  (A2), D0
01AF4C: 4880       | | |   |     ext.w   D0
01AF4E: 9240       | | |   |     sub.w   D0, D1
01AF50: 6008       | | |   | +-< bra     1af5a
01AF52: 1212       | | |   +-|-> move.b  (A2), D1
01AF54: 4881       | | |     |   ext.w   D1
01AF56: D26E FFF4  | | |     |   add.w   (-$c,A6), D1
01AF5A: B6EE FFFE  | | |     +-> cmpa.w  (-$2,A6), A3
01AF5E: 6622       | | | +-----< bne     1af82
01AF60: BC6E FFF8  | | | |       cmp.w   (-$8,A6), D6
01AF64: 6608       | | | |  +--- bne     1af6e
01AF66: 5888       ^ v v v  |    addq.l  #4, A0
01AF68: 3081       | | | |  |    move.w  D1, (A0)
01AF6A: 6000 005C  | | +-|--|--< bra     1afc8
01AF6E: BC6E FFFA  | | | |  +--> cmp.w   (-$6,A6), D6
01AF72: 6708       | | | | +---< beq     1af7c
01AF74: 5888       | | | | |     addq.l  #4, A0
01AF76: 30C1       | | | | |     move.w  D1, (A0)+
01AF78: 30C1       | | | | |     move.w  D1, (A0)+
01AF7A: 604C       | | +-|-|---< bra     1afc8
01AF7C: 5C88       | | | | +---> addq.l  #6, A0
01AF7E: 3081       | | | |       move.w  D1, (A0)
01AF80: 6046       | | +-|-----< bra     1afc8
01AF82: B6EE FFFC  | | | +-----> cmpa.w  (-$4,A6), A3
01AF86: 6726       | | | +-----< beq     1afae
01AF88: BC6E FFF8  | | | |       cmp.w   (-$8,A6), D6
01AF8C: 6608       | | | | +---< bne     1af96
01AF8E: 5488       | | | | |     addq.l  #2, A0
01AF90: 30C1       | | | | |     move.w  D1, (A0)+
01AF92: 30C1       | | | | |     move.w  D1, (A0)+
01AF94: 6032       | | +---|---< bra     1afc8
01AF96: BC6E FFFA  | | | | +---> cmp.w   (-$6,A6), D6
01AF9A: 670A       | | | | +---< beq     1afa6
01AF9C: 30C1       | | | | |     move.w  D1, (A0)+
01AF9E: 30C1       ^ v v v v     move.w  D1, (A0)+
01AFA0: 30C1       | | | | |     move.w  D1, (A0)+
01AFA2: 3081       | | | | |     move.w  D1, (A0)
01AFA4: 6022       | | +---|---< bra     1afc8
01AFA6: 3081       | | | | +---> move.w  D1, (A0)
01AFA8: 5C88       | | | |       addq.l  #6, A0
01AFAA: 3081       | | | |       move.w  D1, (A0)
01AFAC: 601A       | | +-|-----< bra     1afc8
01AFAE: BC6E FFF8  | | | +-----> cmp.w   (-$8,A6), D6
01AFB2: 6606       | | |     +-< bne     1afba
01AFB4: 5488       | | |     |   addq.l  #2, A0
01AFB6: 3081       | | |     |   move.w  D1, (A0)
01AFB8: 600E       | | +-----|-< bra     1afc8
01AFBA: BC6E FFFA  | | |     +-> cmp.w   (-$6,A6), D6
01AFBE: 6706       | | |   +---< beq     1afc6
01AFC0: 30C1       | | |   |     move.w  D1, (A0)+
01AFC2: 3081       | | |   |     move.w  D1, (A0)
01AFC4: 6002       | | +---|---< bra     1afc8
01AFC6: 3081       | | |   +---> move.w  D1, (A0)
01AFC8: 528A       | | +-------> addq.l  #1, A2
01AFCA: 7000       | |           moveq   #$0, D0
01AFCC: 1012       | |           move.b  (A2), D0
01AFCE: 0C80 0000 0080           cmpi.l  #$80, D0
01AFD4: 6604       | |       +-< bne     1afda
01AFD6: 246E FFE4  | |       |   movea.l (-$1c,A6), A2
01AFDA: D6EE FFEE  | |       +-> adda.w  (-$12,A6), A3
01AFDE: B6EE FFF2  | +---------> cmpa.w  (-$e,A6), A3
01AFE2: 6600 FF00  +-----------< bne     1aee4
01AFE6: DC6E FFEC                add.w   (-$14,A6), D6
01AFEA: BC6E FFF0       ^        cmp.w   (-$10,A6), D6
01AFEE: 6700 0124       |   *--- beq     1b114 (EXIT)
01AFF2: 6000 FEE8       +------- bra     1aedc
01AFF6: 366E FFE8                movea.w (-$18,A6), A3      A3=13 (from 401DD2)
01AFFA: 6000 0110           *--- bra     1b10c              bra
01AFFE: 3C2E FFEA                move.w  (-$16,A6), D6      but straight back to here!
01B002: 6000 00FC           *--- bra     1b100              D6=7 (from 401DD4)
01B006: 3246                     movea.w D6, A1             and back again (!) A1=7,8,9
01B008: D2CB                     adda.w  A3, A1             A3=13, A1=1A,1B,1C
01B00A: 92C5                     suba.w  D5, A1             D5=15, A1=5,6,7
01B00C: CF89                     exg     D7, A1             D7=5,6,7, A1=42
01B00E: 4A47                     tst.w   D7
01B010: CF89                     exg     D7, A1             D7=42, A1=5,6,7
01B012: 6D00 00D6            +-- blt     1b0ea
01B016: B2EE 0016            |   cmpa.w  ($16,A6), A1       401E00=0018, A1=7,8
01B01A: 6C00 00CE            +-- bge     1b0ea
01B01E: 3E09                 |   move.w  A1, D7             D7=5,6,7
01B020: E247                 |   asr.w   #1, D7             D7=2,3,3
01B022: 3047                 |   movea.w D7, A0             A0=2,3,3
01B024: 3004                 |   move.w  D4, D0             D0=15,15,15
01B026: 904B                 |   sub.w   A3, D0             A3=13,13,13; D0=2,2,2
01B028: D0C0                 |   adda.w  D0, A0             A0=4,5,5,
01B02A: CF88                 |   exg     D7, A0
01B02C: 4A47                 |   tst.w   D7
01B02E: CF88                 |   exg     D7, A0
01B030: 6D00 00B8            +-- blt     1b0ea
01B034: 3408                 |   move.w  A0, D2             A0,D2=2,5,5 
01B036: 48C2                 |   ext.l   D2
01B038: 7016                 |   moveq   #$16, D0           D0=16,16,16
01B03A: 3209                 |   move.w  A1, D1            
01B03C: 48C1                 |   ext.l   D1                 D1=5,6,7
01B03E: 7601                 |   moveq   #$1, D3            D3=1,1,1
01B040: C283                 |   and.l   D3, D1             D1=1,0,1
01B042: 9081                 |   sub.l   D1, D0             d0=15,16,15
01B044: B480                 |   cmp.l   D0, D2
01B046: 6C00 00A2            +-- bge     1b0ea
01B04A: 3009                 |   move.w  A1, D0             D0=5,6,7
01B04C: 48C0                 |   ext.l   D0
01B04E: C0FC 0016            |   mulu.w  #$16, D0           D0=6E,84,9A,
01B052: 3208                 |   move.w  A0, D1             D1=4,5,5
01B054: 48C1                 |   ext.l   D1
01B056: D081                 |   add.l   D1, D0             D0=72,89,9F
01B058: E780                 |   asl.l   #3, D0             D0=390,448,4F8
01B05A: 2040                 |   movea.l D0, A0             A0=390,448 ,4F8 
01B05C: D1FC 0040 0A9C       V   adda.l  #$400a9c, A0       A0=400E2C, 400EE4, 400F94 
01B062: 4A6E FFF6                tst.w   (-$a,A6)
01B066: 670C               +---- beq     1b074
01B068: 322E FFF4          |     move.w  (-$c,A6), D1       D1=400C (from 401DDE)
01B06C: 1012               |     move.b  (A2), D0           A2=81F00=00,81F01=02,f02=04
01B06E: 4880               |     ext.w   D0                 D0=00,02,04
01B070: 9240               |     sub.w   D0, D1             D1=400C ,400A, 4008
01B072: 6008               | +-- bra     1b07c              bra
01B074: 1212               +-|-> move.b  (A2), D1
01B076: 4881                 |   ext.w   D1
01B078: D26E FFF4            |   add.w   (-$c,A6), D1
01B07C: B6EE FFFE            +-> cmpa.w  (-$2,A6), A3       13,13 (401DE8) 13,13
01B080: 6622             +------ bne     1b0a4
01B082: BC6E FFF8        |       cmp.w   (-$8,A6), D6       7, 7 (401DE2) 7,8,9
01B086: 6608             | +---- bne     1b090
01B088: 5888             | | V   addq.l  #4, A0             A0=400E30
01B08A: 3081             | | |   move.w  D1, (A0)           400E30=400C
01B08C: 6000 005C        | | +-- bra     1b0ea              bra
01B090: BC6E FFFA        | +-|-> cmp.w   (-$6,A6), D6       4001D4=D,d6=8 
01B094: 6708             | +-|-< beq     1b09e
01B096: 5888             | | |   addq.l  #4, A0             A0=400EE8,400F94
01B098: 30C1             | | |   move.w  D1, (A0)+          400EE8=400A F98=4008
01B09A: 30C1             | | |   move.w  D1, (A0)+          400EEA=400A,  A0=400EEC
01B09C: 604C             | | +-- bra     1b0ea
01B09E: 5C88             | +-|-> addq.l  #6, A0             
01B0A0: 3081             |   |   move.w  D1, (A0)
01B0A2: 6046             |   +-- bra     1b0ea
01B0A4: B6EE FFFC        +---+-> cmpa.w  (-$4,A6), A3
01B0A8: 6726             +---|-- beq     1b0d0
01B0AA: BC6E FFF8        |   |   cmp.w   (-$8,A6), D6
01B0AE: 6608             | +-|-- bne     1b0b8
01B0B0: 5488             | | |   addq.l  #2, A0
01B0B2: 30C1             | | |   move.w  D1, (A0)+
01B0B4: 30C1             | | |   move.w  D1, (A0)+
01B0B6: 6032             | | +-- bra     1b0ea
01B0B8: BC6E FFFA        | +-|-> cmp.w   (-$6,A6), D6
01B0BC: 670A             | +-|-- beq     1b0c8
01B0BE: 30C1             | | |   move.w  D1, (A0)+
01B0C0: 30C1             | | |   move.w  D1, (A0)+
01B0C2: 30C1             | | |   move.w  D1, (A0)+
01B0C4: 3081             | | |   move.w  D1, (A0)
01B0C6: 6022             | | +-- bra     1b0ea
01B0C8: 3081             | +-|-> move.w  D1, (A0)
01B0CA: 5C88             |   |   addq.l  #6, A0
01B0CC: 3081             |   |   move.w  D1, (A0)
01B0CE: 601A             |   +-- bra     1b0ea
01B0D0: BC6E FFF8        +---|-> cmp.w   (-$8,A6), D6
01B0D4: 6606               +-|-- bne     1b0dc
01B0D6: 5488               | |   addq.l  #2, A0
01B0D8: 3081               | |   move.w  D1, (A0)
01B0DA: 600E               | +-- bra     1b0ea
01B0DC: BC6E FFFA          +-|-> cmp.w   (-$6,A6), D6
01B0E0: 6706                 |   beq     1b0e8
01B0E2: 30C1                 |   move.w  D1, (A0)+
01B0E4: 3081                 |   move.w  D1, (A0)
01B0E6: 6002                 +-- bra     1b0ea
01B0E8: 3081                 |   move.w  D1, (A0)
01B0EA: 528A                 +-> addq.l  #1, A2          A2=81F01 81F02
01B0EC: 7000                     moveq   #$0, D0         D0=0      
01B0EE: 1012                     move.b  (A2), D0        D0=02     04
01B0F0: 0C80 0000 0080           cmpi.l  #$80, D0
01B0F6: 6604                 +-- bne     1b0fc
01B0F8: 246E FFE4            |   movea.l (-$1c,A6), A2
01B0FC: DC6E FFEC         ^  +-> add.w   (-$14,A6), D6   (401DD6=1) d6 was 7, 8, 9
01B100: BC6E FFF0         |      cmp.w   (-$10,A6), D6   D6=7, (401DDA=E)
01B104: 6600 FF00         +----- bne     1b006           back we go
01B108: D6EE FFEE         ^      adda.w  (-$12,A6), A3
01B10C: B6EE FFF2         |      cmpa.w  (-$e,A6), A3     A3=13, 401DD4=D
01B110: 6600 FEEC         +----- bne     1affe            bra back
01B114: 300C                     move.w  A4, D0
01B116: 48C0                     ext.l   D0
01B118: 2F00                     move.l  D0, -(A7)
01B11A: 4EB9 0002 BC5C           jsr     $2bc5c.l        ROM bankswap?
01B120: 588F                     addq.l  #4, A7
01B122: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
01B126: 4E5E                     unlk    A6
01B128: 4E75                     rts

01B12A: 4E56 FFFE                link    A6, #-$2
01B12E: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
01B132: 206E 0008                movea.l ($8,A6), A0
01B136: 4A10                     tst.b   (A0)
01B138: 661A                     bne     1b154
01B13A: 303C 7FFF                move.w  #$7fff, D0
01B13E: 3800                     move.w  D0, D4
01B140: 3D40 FFFE                move.w  D0, (-$2,A6)
01B144: 3A2E FFFE                move.w  (-$2,A6), D5
01B148: 4240                     clr.w   D0
01B14A: 3600                     move.w  D0, D3
01B14C: 3200                     move.w  D0, D1
01B14E: 3401                     move.w  D1, D2
01B150: 6000 0424                bra     1b576
01B154: 0C10 0001                cmpi.b  #$1, (A0)
01B158: 6700 0008                beq     1b162
01B15C: 0C10 0002                cmpi.b  #$2, (A0)
01B160: 6658                     bne     1b1ba
01B162: 0C10 0001                cmpi.b  #$1, (A0)
01B166: 6616                     bne     1b17e
01B168: 1228 0001                move.b  ($1,A0), D1
01B16C: 4881                     ext.w   D1
01B16E: 48C1                     ext.l   D1
01B170: E581                     asl.l   #2, D1
01B172: 287C 0001 EFF6           movea.l #$1eff6, A4
01B178: 2274 1800                movea.l (A4,D1.l), A1
01B17C: 6014                     bra     1b192
01B17E: 1228 0001                move.b  ($1,A0), D1
01B182: 4881                     ext.w   D1
01B184: 48C1                     ext.l   D1
01B186: E581                     asl.l   #2, D1
01B188: 287C 0001 EFFE           movea.l #$1effe, A4
01B18E: 2274 1800                movea.l (A4,D1.l), A1
01B192: 49E9 000C                lea     ($c,A1), A4
01B196: 3D54 FFFE                move.w  (A4), (-$2,A6)
01B19A: 576E FFFE                subq.w  #3, (-$2,A6)
01B19E: 49E9 0010                lea     ($10,A1), A4
01B1A2: 3A14                     move.w  (A4), D5
01B1A4: 5745                     subq.w  #3, D5
01B1A6: 49E9 0014                lea     ($14,A1), A4
01B1AA: 3814                     move.w  (A4), D4
01B1AC: 5244                     addq.w  #1, D4
01B1AE: 7006                     moveq   #$6, D0
01B1B0: 3600                     move.w  D0, D3
01B1B2: 3200                     move.w  D0, D1
01B1B4: 3401                     move.w  D1, D2
01B1B6: 6000 03BE                bra     1b576
01B1BA: 0C10 0004                cmpi.b  #$4, (A0)
01B1BE: 6700 000A                beq     1b1ca
01B1C2: 0C10 000E                cmpi.b  #$e, (A0)
01B1C6: 6600 009A                bne     1b262
01B1CA: 0C10 0004                cmpi.b  #$4, (A0)
01B1CE: 6622                     bne     1b1f2
01B1D0: 1228 0001                move.b  ($1,A0), D1
01B1D4: 4881                     ext.w   D1
01B1D6: 48C1                     ext.l   D1
01B1D8: E581                     asl.l   #2, D1
01B1DA: 287C 0001 F006           movea.l #$1f006, A4
01B1E0: 2474 1800                movea.l (A4,D1.l), A2
01B1E4: 286A 0058                movea.l ($58,A2), A4
01B1E8: 2254                     movea.l (A4), A1
01B1EA: 4247                     clr.w   D7
01B1EC: 3647                     movea.w D7, A3
01B1EE: 7610                     moveq   #$10, D3
01B1F0: 6022                     bra     1b214
01B1F2: 1228 0001                move.b  ($1,A0), D1
01B1F6: 4881                     ext.w   D1
01B1F8: 48C1                     ext.l   D1
01B1FA: E581                     asl.l   #2, D1
01B1FC: 287C 0001 F07A           movea.l #$1f07a, A4
01B202: 2274 1800                movea.l (A4,D1.l), A1
01B206: 2449                     movea.l A1, A2
01B208: 2869 003A                movea.l ($3a,A1), A4
01B20C: 2254                     movea.l (A4), A1
01B20E: 7EF8                     moveq   #-$8, D7
01B210: 3647                     movea.w D7, A3
01B212: 4243                     clr.w   D3
01B214: 70FF                     moveq   #-$1, D0
01B216: B089                     cmp.l   A1, D0
01B218: 660A                     bne     1b224
01B21A: 78FC                     moveq   #-$4, D4
01B21C: 3C04                     move.w  D4, D6
01B21E: 7208                     moveq   #$8, D1
01B220: 3401                     move.w  D1, D2
01B222: 6018                     bra     1b23c
01B224: 1829 0004                move.b  ($4,A1), D4
01B228: 4884                     ext.w   D4
01B22A: 1C29 0005                move.b  ($5,A1), D6
01B22E: 4886                     ext.w   D6
01B230: 1229 0006                move.b  ($6,A1), D1
01B234: 4881                     ext.w   D1
01B236: 1429 0007                move.b  ($7,A1), D2
01B23A: 4882                     ext.w   D2
01B23C: 49EA 000C                lea     ($c,A2), A4
01B240: 3D54 FFFE                move.w  (A4), (-$2,A6)
01B244: 3E2E FFFE                move.w  (-$2,A6), D7
01B248: DE44                     add.w   D4, D7
01B24A: 3D47 FFFE                move.w  D7, (-$2,A6)
01B24E: 49EA 0010                lea     ($10,A2), A4
01B252: 3A14                     move.w  (A4), D5
01B254: DA46                     add.w   D6, D5
01B256: 49EA 0014                lea     ($14,A2), A4
01B25A: 3814                     move.w  (A4), D4
01B25C: D84B                     add.w   A3, D4
01B25E: 6000 0316                bra     1b576
01B262: 0C10 0029                cmpi.b  #$29, (A0)
01B266: 664A                     bne     1b2b2
01B268: 1228 0001                move.b  ($1,A0), D1
01B26C: 4881                     ext.w   D1
01B26E: 48C1                     ext.l   D1
01B270: E981                     asl.l   #4, D1
01B272: 287C 0040 1650           movea.l #$401650, A4
01B278: 224C                     movea.l A4, A1
01B27A: D3C1                     adda.l  D1, A1
01B27C: 7204                     moveq   #$4, D1
01B27E: 3401                     move.w  D1, D2
01B280: 7614                     moveq   #$14, D3
01B282: 1D69 0004 FFFF           move.b  ($4,A1), (-$1,A6)
01B288: 3E2E FFFE                move.w  (-$2,A6), D7
01B28C: 4887                     ext.w   D7
01B28E: 3D47 FFFE                move.w  D7, (-$2,A6)
01B292: 3E2E FFFE                move.w  (-$2,A6), D7
01B296: E747                     asl.w   #3, D7
01B298: 3D47 FFFE                move.w  D7, (-$2,A6)
01B29C: 546E FFFE                addq.w  #2, (-$2,A6)
01B2A0: 1A29 0005                move.b  ($5,A1), D5
01B2A4: 4885                     ext.w   D5
01B2A6: E745                     asl.w   #3, D5
01B2A8: 5445                     addq.w  #2, D5
01B2AA: 3829 0006                move.w  ($6,A1), D4
01B2AE: 6000 02C6                bra     1b576
01B2B2: 0C10 002A                cmpi.b  #$2a, (A0)
01B2B6: 6632                     bne     1b2ea
01B2B8: 1228 0001                move.b  ($1,A0), D1
01B2BC: 4881                     ext.w   D1
01B2BE: 48C1                     ext.l   D1
01B2C0: E581                     asl.l   #2, D1
01B2C2: 2001                     move.l  D1, D0
01B2C4: D281                     add.l   D1, D1
01B2C6: D280                     add.l   D0, D1
01B2C8: 287C 0040 098C           movea.l #$40098c, A4
01B2CE: 224C                     movea.l A4, A1
01B2D0: D3C1                     adda.l  D1, A1
01B2D2: 4241                     clr.w   D1
01B2D4: 3401                     move.w  D1, D2
01B2D6: 4243                     clr.w   D3
01B2D8: 3D51 FFFE                move.w  (A1), (-$2,A6)
01B2DC: 3A29 0002                move.w  ($2,A1), D5
01B2E0: 3829 0004                move.w  ($4,A1), D4
01B2E4: 5144                     subq.w  #8, D4
01B2E6: 6000 028E                bra     1b576
01B2EA: 0C10 002C                cmpi.b  #$2c, (A0)
01B2EE: 6618                     bne     1b308
01B2F0: 4240                     clr.w   D0
01B2F2: 3600                     move.w  D0, D3
01B2F4: 3200                     move.w  D0, D1
01B2F6: 3401                     move.w  D1, D2
01B2F8: 4240                     clr.w   D0
01B2FA: 3800                     move.w  D0, D4
01B2FC: 3D40 FFFE                move.w  D0, (-$2,A6)
01B300: 3A2E FFFE                move.w  (-$2,A6), D5
01B304: 6000 0270                bra     1b576
01B308: 0C10 0007                cmpi.b  #$7, (A0)
01B30C: 6700 0012                beq     1b320
01B310: 0C10 0008                cmpi.b  #$8, (A0)
01B314: 6700 000A                beq     1b320
01B318: 0C10 0009                cmpi.b  #$9, (A0)
01B31C: 6600 0070                bne     1b38e
01B320: 1228 0001                move.b  ($1,A0), D1
01B324: 4881                     ext.w   D1
01B326: 48C1                     ext.l   D1
01B328: E581                     asl.l   #2, D1
01B32A: 287C 0001 F096           movea.l #$1f096, A4
01B330: 2274 1800                movea.l (A4,D1.l), A1
01B334: 2869 001C                movea.l ($1c,A1), A4
01B338: 2454                     movea.l (A4), A2
01B33A: 182A 0004                move.b  ($4,A2), D4
01B33E: 4884                     ext.w   D4
01B340: 122A 0006                move.b  ($6,A2), D1
01B344: 4881                     ext.w   D1
01B346: 1C2A 0005                move.b  ($5,A2), D6
01B34A: 4886                     ext.w   D6
01B34C: 142A 0007                move.b  ($7,A2), D2
01B350: 4882                     ext.w   D2
01B352: 0C29 0002 001A           cmpi.b  #$2, ($1a,A1)
01B358: 6608                     bne     1b362
01B35A: 7EF8                     moveq   #-$8, D7
01B35C: 3447                     movea.w D7, A2
01B35E: 4243                     clr.w   D3
01B360: 6006                     bra     1b368
01B362: 4247                     clr.w   D7
01B364: 3447                     movea.w D7, A2
01B366: 7606                     moveq   #$6, D3
01B368: 49E9 000C                lea     ($c,A1), A4
01B36C: 3D54 FFFE                move.w  (A4), (-$2,A6)
01B370: 3E2E FFFE                move.w  (-$2,A6), D7
01B374: DE44                     add.w   D4, D7
01B376: 3D47 FFFE                move.w  D7, (-$2,A6)
01B37A: 49E9 0010                lea     ($10,A1), A4
01B37E: 3A14                     move.w  (A4), D5
01B380: DA46                     add.w   D6, D5
01B382: 49E9 0014                lea     ($14,A1), A4
01B386: 3814                     move.w  (A4), D4
01B388: D84A                     add.w   A2, D4
01B38A: 6000 01EA                bra     1b576
01B38E: 0C10 000F                cmpi.b  #$f, (A0)
01B392: 665E                     bne     1b3f2
01B394: 1228 0001                move.b  ($1,A0), D1
01B398: 4881                     ext.w   D1
01B39A: 48C1                     ext.l   D1
01B39C: E581                     asl.l   #2, D1
01B39E: 287C 0001 F0BA           movea.l #$1f0ba, A4
01B3A4: 2274 1800                movea.l (A4,D1.l), A1
01B3A8: 0C29 0002 001A           cmpi.b  #$2, ($1a,A1)
01B3AE: 6610                     bne     1b3c0
01B3B0: 4240                     clr.w   D0
01B3B2: 3600                     move.w  D0, D3
01B3B4: 3400                     move.w  D0, D2
01B3B6: 3200                     move.w  D0, D1
01B3B8: 3C00                     move.w  D0, D6
01B3BA: 3800                     move.w  D0, D4
01B3BC: 3444                     movea.w D4, A2
01B3BE: 600C                     bra     1b3cc
01B3C0: 78FC                     moveq   #-$4, D4
01B3C2: 3444                     movea.w D4, A2
01B3C4: 4246                     clr.w   D6
01B3C6: 7208                     moveq   #$8, D1
01B3C8: 3401                     move.w  D1, D2
01B3CA: 7604                     moveq   #$4, D3
01B3CC: 49E9 000C                lea     ($c,A1), A4
01B3D0: 3D54 FFFE                move.w  (A4), (-$2,A6)
01B3D4: 3E2E FFFE                move.w  (-$2,A6), D7
01B3D8: DE44                     add.w   D4, D7
01B3DA: 3D47 FFFE                move.w  D7, (-$2,A6)
01B3DE: 49E9 0010                lea     ($10,A1), A4
01B3E2: 3A14                     move.w  (A4), D5
01B3E4: DA4A                     add.w   A2, D5
01B3E6: 49E9 0014                lea     ($14,A1), A4
01B3EA: 3814                     move.w  (A4), D4
01B3EC: D846                     add.w   D6, D4
01B3EE: 6000 0186                bra     1b576
01B3F2: 1228 0001                move.b  ($1,A0), D1
01B3F6: 4881                     ext.w   D1
01B3F8: 48C1                     ext.l   D1
01B3FA: E581                     asl.l   #2, D1
01B3FC: 287C 0001 F016           movea.l #$1f016, A4
01B402: 2274 1800                movea.l (A4,D1.l), A1
01B406: 4240                     clr.w   D0
01B408: 3C00                     move.w  D0, D6
01B40A: 3A00                     move.w  D0, D5
01B40C: 3805                     move.w  D5, D4
01B40E: 1010                     move.b  (A0), D0
01B410: 4880                     ext.w   D0
01B412: 48C0                     ext.l   D0
01B414: C18C                     exg     D0, A4
01B416: B8FC 0003                cmpa.w  #$3, A4
01B41A: C18C                     exg     D0, A4
01B41C: 6D00 0136                blt     1b554
01B420: C18C                     exg     D0, A4
01B422: B8FC 000D                cmpa.w  #$d, A4
01B426: C18C                     exg     D0, A4
01B428: 6E00 012A                bgt     1b554
01B42C: 2840                     movea.l D0, A4
01B42E: 578C                     subq.l  #3, A4
01B430: 200C                     move.l  A4, D0
01B432: 2840                     movea.l D0, A4
01B434: D9C0                     adda.l  D0, A4
01B436: 200C                     move.l  A4, D0
01B438: 303B 0006                move.w  ($6,PC,D0.w), D0
01B43C: 4EFB 0002                jmp     ($2,PC,D0.w)
01B440: 0016 0114                ori.b   #$14, (A6)
01B444: 003C 0062                ori     #$62, CCR
01B448: 0114                     btst    D0, (A4)
01B44A: 0114                     btst    D0, (A4)
01B44C: 0114                     btst    D0, (A4)
01B44E: 00F2                     dc.w $00f2; ILLEGAL
01B450: 0080 00BA 0080           ori.l   #$ba0080, D0
01B456: 2869 003E                movea.l ($3e,A1), A4
01B45A: 2454                     movea.l (A4), A2
01B45C: 1A2A 0004                move.b  ($4,A2), D5
01B460: 4885                     ext.w   D5
01B462: 122A 0006                move.b  ($6,A2), D1
01B466: 4881                     ext.w   D1
01B468: 182A 0005                move.b  ($5,A2), D4
01B46C: 4884                     ext.w   D4
01B46E: 142A 0007                move.b  ($7,A2), D2
01B472: 4882                     ext.w   D2
01B474: 7CF0                     moveq   #-$10, D6
01B476: 7610                     moveq   #$10, D3
01B478: 6000 00DA                bra     1b554
01B47C: 2869 003E                movea.l ($3e,A1), A4
01B480: 2454                     movea.l (A4), A2
01B482: 1A2A 0004                move.b  ($4,A2), D5
01B486: 4885                     ext.w   D5
01B488: 122A 0006                move.b  ($6,A2), D1
01B48C: 4881                     ext.w   D1
01B48E: 182A 0005                move.b  ($5,A2), D4
01B492: 4884                     ext.w   D4
01B494: 142A 0007                move.b  ($7,A2), D2
01B498: 4882                     ext.w   D2
01B49A: 4246                     clr.w   D6
01B49C: 7618                     moveq   #$18, D3
01B49E: 6000 00B4                bra     1b554
01B4A2: 2869 003E                movea.l ($3e,A1), A4
01B4A6: 2454                     movea.l (A4), A2
01B4A8: 4245                     clr.w   D5
01B4AA: 7220                     moveq   #$20, D1
01B4AC: 182A 0004                move.b  ($4,A2), D4
01B4B0: 4884                     ext.w   D4
01B4B2: 142A 0006                move.b  ($6,A2), D2
01B4B6: 4882                     ext.w   D2
01B4B8: 4246                     clr.w   D6
01B4BA: 7628                     moveq   #$28, D3
01B4BC: 6000 0096                bra     1b554
01B4C0: 2869 003E                movea.l ($3e,A1), A4
01B4C4: 2454                     movea.l (A4), A2
01B4C6: 70FF                     moveq   #-$1, D0
01B4C8: B08A                     cmp.l   A2, D0
01B4CA: 6610                     bne     1b4dc
01B4CC: 4245                     clr.w   D5
01B4CE: 3805                     move.w  D5, D4
01B4D0: 7208                     moveq   #$8, D1
01B4D2: 3401                     move.w  D1, D2
01B4D4: 7CF8                     moveq   #-$8, D6
01B4D6: 4243                     clr.w   D3
01B4D8: 6000 007A                bra     1b554
01B4DC: 1A2A 0004                move.b  ($4,A2), D5
01B4E0: 4885                     ext.w   D5
01B4E2: 122A 0006                move.b  ($6,A2), D1
01B4E6: 4881                     ext.w   D1
01B4E8: 182A 0005                move.b  ($5,A2), D4
01B4EC: 4884                     ext.w   D4
01B4EE: 142A 0007                move.b  ($7,A2), D2
01B4F2: 4882                     ext.w   D2
01B4F4: 7CF8                     moveq   #-$8, D6
01B4F6: 7618                     moveq   #$18, D3
01B4F8: 605A                     bra     1b554
01B4FA: 2869 003E                movea.l ($3e,A1), A4
01B4FE: 2454                     movea.l (A4), A2
01B500: 70FF                     moveq   #-$1, D0
01B502: B08A                     cmp.l   A2, D0
01B504: 660E                     bne     1b514
01B506: 4245                     clr.w   D5
01B508: 3805                     move.w  D5, D4
01B50A: 7208                     moveq   #$8, D1
01B50C: 3401                     move.w  D1, D2
01B50E: 7CF8                     moveq   #-$8, D6
01B510: 4243                     clr.w   D3
01B512: 6040                     bra     1b554
01B514: 1A2A 0004                move.b  ($4,A2), D5
01B518: 4885                     ext.w   D5
01B51A: 122A 0006                move.b  ($6,A2), D1
01B51E: 4881                     ext.w   D1
01B520: 182A 0005                move.b  ($5,A2), D4
01B524: 4884                     ext.w   D4
01B526: 142A 0007                move.b  ($7,A2), D2
01B52A: 4882                     ext.w   D2
01B52C: 4246                     clr.w   D6
01B52E: 7610                     moveq   #$10, D3
01B530: 6022                     bra     1b554
01B532: 2869 003E                movea.l ($3e,A1), A4
01B536: 2454                     movea.l (A4), A2
01B538: 1A2A 0004                move.b  ($4,A2), D5
01B53C: 4885                     ext.w   D5
01B53E: 122A 0006                move.b  ($6,A2), D1
01B542: 4881                     ext.w   D1
01B544: 182A 0005                move.b  ($5,A2), D4
01B548: 4884                     ext.w   D4
01B54A: 142A 0007                move.b  ($7,A2), D2
01B54E: 4882                     ext.w   D2
01B550: 7CF8                     moveq   #-$8, D6
01B552: 4243                     clr.w   D3
01B554: 49E9 000C                lea     ($c,A1), A4
01B558: 3D54 FFFE                move.w  (A4), (-$2,A6)
01B55C: 3E2E FFFE                move.w  (-$2,A6), D7
01B560: DE45                     add.w   D5, D7
01B562: 3D47 FFFE                move.w  D7, (-$2,A6)
01B566: 49E9 0010                lea     ($10,A1), A4
01B56A: 3A14                     move.w  (A4), D5
01B56C: DA44                     add.w   D4, D5
01B56E: 49E9 0014                lea     ($14,A1), A4
01B572: 3814                     move.w  (A4), D4
01B574: D846                     add.w   D6, D4
01B576: 316E FFFE 0002           move.w  (-$2,A6), ($2,A0)
01B57C: 3145 0004                move.w  D5, ($4,A0)
01B580: 3144 0006                move.w  D4, ($6,A0)
01B584: 3001                     move.w  D1, D0
01B586: D06E FFFE                add.w   (-$2,A6), D0
01B58A: 3140 0008                move.w  D0, ($8,A0)
01B58E: 3002                     move.w  D2, D0
01B590: D045                     add.w   D5, D0
01B592: 3140 000A                move.w  D0, ($a,A0)
01B596: 3003                     move.w  D3, D0
01B598: D044                     add.w   D4, D0
01B59A: 3140 000C                move.w  D0, ($c,A0)
01B59E: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
01B5A2: 4E5E                     unlk    A6
01B5A4: 4E75                     rts
01B5A6: 202F 0004                move.l  ($4,A7), D0
01B5AA: 4A80                     tst.l   D0
01B5AC: 6C04                     bge     1b5b2
01B5AE: 4480                     neg.l   D0
01B5B0: 4E71                     nop
01B5B2: 4E75                     rts
01B5B4: 202F 0004                move.l  ($4,A7), D0
01B5B8: 4A80                     tst.l   D0
01B5BA: 6F04                     ble     1b5c0
01B5BC: 4480                     neg.l   D0
01B5BE: 4E71                     nop
01B5C0: 4E75                     rts
01B5C2: 48E7 3E38                movem.l D2-D6/A2-A4, -(A7)
01B5C6: 246F 0024                movea.l ($24,A7), A2
01B5CA: 267C 0040 066A           movea.l #$40066a, A3
01B5D0: 287C 0001 B5B4           movea.l #$1b5b4, A4
01B5D6: 243C 0040 069E           move.l  #$40069e, D2
01B5DC: 203C 0040 1C28           move.l  #$401c28, D0
01B5E2: 203C 0040 1C30           move.l  #$401c30, D0
01B5E8: 203C 0040 1C38           move.l  #$401c38, D0
01B5EE: 203C 0040 1C40           move.l  #$401c40, D0
01B5F4: 2612                     move.l  (A2), D3
01B5F6: 282A 0004                move.l  ($4,A2), D4
01B5FA: 3A39 0040 069A           move.w  $40069a.l, D5
01B600: 9A79 0040 0696           sub.w   $400696.l, D5
01B606: 3C39 0040 069C           move.w  $40069c.l, D6
01B60C: 9C79 0040 0698           sub.w   $400698.l, D6
01B612: 4A39 0040 066C           tst.b   $40066c.l
01B618: 6720                     beq     1b63a
01B61A: 0C39 0003 0040 066C      cmpi.b  #$3, $40066c.l
01B622: 6C16                     bge     1b63a
01B624: 7004                     moveq   #$4, D0
01B626: C588                     exg     D2, A0
01B628: B050                     cmp.w   (A0), D0
01B62A: C588                     exg     D2, A0
01B62C: 6F0C                     ble     1b63a
01B62E: 7004                     moveq   #$4, D0
01B630: B079 0040 0674           cmp.w   $400674.l, D0
01B636: 6F00 001C                ble     1b654
01B63A: 0C39 0002 0040 0670      cmpi.b  #$2, $400670.l
01B642: 6F1C                     ble     1b660
01B644: 7001                     moveq   #$1, D0
01B646: B045                     cmp.w   D5, D0
01B648: 6616                     bne     1b660
01B64A: 7004                     moveq   #$4, D0
01B64C: B079 0040 0678           cmp.w   $400678.l, D0
01B652: 6E0C                     bgt     1b660
01B654: 2F03                     move.l  D3, -(A7)
01B656: 4EB9 0001 B5A6           jsr     $1b5a6.l
01B65C: 2600                     move.l  D0, D3
01B65E: 588F                     addq.l  #4, A7
01B660: 4A39 0040 066E           tst.b   $40066e.l
01B666: 6720                     beq     1b688
01B668: 0C39 0003 0040 066E      cmpi.b  #$3, $40066e.l
01B670: 6C16                     bge     1b688
01B672: 7004                     moveq   #$4, D0
01B674: B079 0040 06A0           cmp.w   $4006a0.l, D0
01B67A: 6C0C                     bge     1b688
01B67C: 7004                     moveq   #$4, D0
01B67E: B079 0040 0676           cmp.w   $400676.l, D0
01B684: 6F00 001C                ble     1b6a2
01B688: 0C39 0002 0040 0672      cmpi.b  #$2, $400672.l
01B690: 6F18                     ble     1b6aa
01B692: 70FF                     moveq   #-$1, D0
01B694: B046                     cmp.w   D6, D0
01B696: 6612                     bne     1b6aa
01B698: 7004                     moveq   #$4, D0
01B69A: B079 0040 067A           cmp.w   $40067a.l, D0
01B6A0: 6E08                     bgt     1b6aa
01B6A2: 2F04                     move.l  D4, -(A7)
01B6A4: 4E94                     jsr     (A4)
01B6A6: 2800                     move.l  D0, D4
01B6A8: 588F                     addq.l  #4, A7
01B6AA: 4A39 0040 0670           tst.b   $400670.l
01B6B0: 6720                     beq     1b6d2
01B6B2: 0C39 0003 0040 0670      cmpi.b  #$3, $400670.l
01B6BA: 6C16                     bge     1b6d2
01B6BC: 7004                     moveq   #$4, D0
01B6BE: C588                     exg     D2, A0
01B6C0: B050                     cmp.w   (A0), D0
01B6C2: C588                     exg     D2, A0
01B6C4: 6C0C                     bge     1b6d2
01B6C6: 7004                     moveq   #$4, D0
01B6C8: B079 0040 0678           cmp.w   $400678.l, D0
01B6CE: 6F00 001C                ble     1b6ec
01B6D2: 0C39 0002 0040 066C      cmpi.b  #$2, $40066c.l
01B6DA: 6F18                     ble     1b6f4
01B6DC: 70FF                     moveq   #-$1, D0
01B6DE: B045                     cmp.w   D5, D0
01B6E0: 6612                     bne     1b6f4
01B6E2: 7004                     moveq   #$4, D0
01B6E4: B079 0040 0674           cmp.w   $400674.l, D0
01B6EA: 6E08                     bgt     1b6f4
01B6EC: 2F03                     move.l  D3, -(A7)
01B6EE: 4E94                     jsr     (A4)
01B6F0: 2600                     move.l  D0, D3
01B6F2: 588F                     addq.l  #4, A7
01B6F4: 4A39 0040 0672           tst.b   $400672.l
01B6FA: 6720                     beq     1b71c
01B6FC: 0C39 0003 0040 0672      cmpi.b  #$3, $400672.l
01B704: 6C16                     bge     1b71c
01B706: 7004                     moveq   #$4, D0
01B708: B079 0040 06A0           cmp.w   $4006a0.l, D0
01B70E: 6F0C                     ble     1b71c
01B710: 7004                     moveq   #$4, D0
01B712: B079 0040 067A           cmp.w   $40067a.l, D0
01B718: 6F00 001C                ble     1b736
01B71C: 0C39 0002 0040 066E      cmpi.b  #$2, $40066e.l
01B724: 6F1C                     ble     1b742
01B726: 7001                     moveq   #$1, D0
01B728: B046                     cmp.w   D6, D0
01B72A: 6616                     bne     1b742
01B72C: 7004                     moveq   #$4, D0
01B72E: B079 0040 0676           cmp.w   $400676.l, D0
01B734: 6E0C                     bgt     1b742
01B736: 2F04                     move.l  D4, -(A7)
01B738: 4EB9 0001 B5A6           jsr     $1b5a6.l
01B73E: 2800                     move.l  D0, D4
01B740: 588F                     addq.l  #4, A7
01B742: 0813 0000                btst    #$0, (A3)
01B746: 672C                     beq     1b774
01B748: 70FF                     moveq   #-$1, D0
01B74A: B045                     cmp.w   D5, D0
01B74C: 6726                     beq     1b774
01B74E: 7001                     moveq   #$1, D0
01B750: B046                     cmp.w   D6, D0
01B752: 6720                     beq     1b774
01B754: 7004                     moveq   #$4, D0
01B756: C588                     exg     D2, A0
01B758: B050                     cmp.w   (A0), D0
01B75A: C588                     exg     D2, A0
01B75C: 6F16                     ble     1b774
01B75E: 7004                     moveq   #$4, D0
01B760: B079 0040 06A0           cmp.w   $4006a0.l, D0
01B766: 6C0C                     bge     1b774
01B768: 7004                     moveq   #$4, D0
01B76A: B079 0040 067C           cmp.w   $40067c.l, D0
01B770: 6F00 001A                ble     1b78c
01B774: 0813 0006                btst    #$6, (A3)
01B778: 6724                     beq     1b79e
01B77A: 4A45                     tst.w   D5
01B77C: 6720                     beq     1b79e
01B77E: 4A46                     tst.w   D6
01B780: 671C                     beq     1b79e
01B782: 7004                     moveq   #$4, D0
01B784: B079 0040 0680           cmp.w   $400680.l, D0
01B78A: 6E12                     bgt     1b79e
01B78C: 2F04                     move.l  D4, -(A7)
01B78E: 4E94                     jsr     (A4)
01B790: 2800                     move.l  D0, D4
01B792: 2F03                     move.l  D3, -(A7)
01B794: 4EB9 0001 B5A6           jsr     $1b5a6.l
01B79A: 2600                     move.l  D0, D3
01B79C: 508F                     addq.l  #8, A7
01B79E: 0813 0001                btst    #$1, (A3)
01B7A2: 672C                     beq     1b7d0
01B7A4: 7001                     moveq   #$1, D0
01B7A6: B045                     cmp.w   D5, D0
01B7A8: 6726                     beq     1b7d0
01B7AA: 7001                     moveq   #$1, D0
01B7AC: B046                     cmp.w   D6, D0
01B7AE: 6720                     beq     1b7d0
01B7B0: 7004                     moveq   #$4, D0
01B7B2: C588                     exg     D2, A0
01B7B4: B050                     cmp.w   (A0), D0
01B7B6: C588                     exg     D2, A0
01B7B8: 6C16                     bge     1b7d0
01B7BA: 7004                     moveq   #$4, D0
01B7BC: B079 0040 06A0           cmp.w   $4006a0.l, D0
01B7C2: 6C0C                     bge     1b7d0
01B7C4: 7004                     moveq   #$4, D0
01B7C6: B079 0040 067E           cmp.w   $40067e.l, D0
01B7CC: 6F00 001A                ble     1b7e8
01B7D0: 0813 0007                btst    #$7, (A3)
01B7D4: 6720                     beq     1b7f6
01B7D6: 4A45                     tst.w   D5
01B7D8: 671C                     beq     1b7f6
01B7DA: 4A46                     tst.w   D6
01B7DC: 6718                     beq     1b7f6
01B7DE: 7004                     moveq   #$4, D0
01B7E0: B079 0040 0682           cmp.w   $400682.l, D0
01B7E6: 6E0E                     bgt     1b7f6
01B7E8: 2F04                     move.l  D4, -(A7)
01B7EA: 4E94                     jsr     (A4)
01B7EC: 2800                     move.l  D0, D4
01B7EE: 2F03                     move.l  D3, -(A7)
01B7F0: 4E94                     jsr     (A4)
01B7F2: 2600                     move.l  D0, D3
01B7F4: 508F                     addq.l  #8, A7
01B7F6: 0813 0002                btst    #$2, (A3)
01B7FA: 672C                     beq     1b828
01B7FC: 7001                     moveq   #$1, D0
01B7FE: B045                     cmp.w   D5, D0
01B800: 6726                     beq     1b828
01B802: 70FF                     moveq   #-$1, D0
01B804: B046                     cmp.w   D6, D0
01B806: 6720                     beq     1b828
01B808: 7004                     moveq   #$4, D0
01B80A: C588                     exg     D2, A0
01B80C: B050                     cmp.w   (A0), D0
01B80E: C588                     exg     D2, A0
01B810: 6C16                     bge     1b828
01B812: 7004                     moveq   #$4, D0
01B814: B079 0040 06A0           cmp.w   $4006a0.l, D0
01B81A: 6F0C                     ble     1b828
01B81C: 7004                     moveq   #$4, D0
01B81E: B079 0040 0680           cmp.w   $400680.l, D0
01B824: 6F00 001A                ble     1b840
01B828: 0813 0004                btst    #$4, (A3)
01B82C: 6724                     beq     1b852
01B82E: 4A45                     tst.w   D5
01B830: 6720                     beq     1b852
01B832: 4A46                     tst.w   D6
01B834: 671C                     beq     1b852
01B836: 7004                     moveq   #$4, D0
01B838: B079 0040 067C           cmp.w   $40067c.l, D0
01B83E: 6E12                     bgt     1b852
01B840: 2F04                     move.l  D4, -(A7)
01B842: 4EB9 0001 B5A6           jsr     $1b5a6.l
01B848: 2800                     move.l  D0, D4
01B84A: 2F03                     move.l  D3, -(A7)
01B84C: 4E94                     jsr     (A4)
01B84E: 2600                     move.l  D0, D3
01B850: 508F                     addq.l  #8, A7
01B852: 0813 0003                btst    #$3, (A3)
01B856: 672C                     beq     1b884
01B858: 70FF                     moveq   #-$1, D0
01B85A: B045                     cmp.w   D5, D0
01B85C: 6726                     beq     1b884
01B85E: 70FF                     moveq   #-$1, D0
01B860: B046                     cmp.w   D6, D0
01B862: 6720                     beq     1b884
01B864: 7004                     moveq   #$4, D0
01B866: C588                     exg     D2, A0
01B868: B050                     cmp.w   (A0), D0
01B86A: C588                     exg     D2, A0
01B86C: 6F16                     ble     1b884
01B86E: 7004                     moveq   #$4, D0
01B870: B079 0040 06A0           cmp.w   $4006a0.l, D0
01B876: 6F0C                     ble     1b884
01B878: 7004                     moveq   #$4, D0
01B87A: B079 0040 0682           cmp.w   $400682.l, D0
01B880: 6F00 001A                ble     1b89c
01B884: 0813 0005                btst    #$5, (A3)
01B888: 6728                     beq     1b8b2
01B88A: 4A45                     tst.w   D5
01B88C: 6724                     beq     1b8b2
01B88E: 4A46                     tst.w   D6
01B890: 6720                     beq     1b8b2
01B892: 7004                     moveq   #$4, D0
01B894: B079 0040 067E           cmp.w   $40067e.l, D0
01B89A: 6E16                     bgt     1b8b2
01B89C: 2F04                     move.l  D4, -(A7)
01B89E: 4EB9 0001 B5A6           jsr     $1b5a6.l
01B8A4: 2800                     move.l  D0, D4
01B8A6: 2F03                     move.l  D3, -(A7)
01B8A8: 4EB9 0001 B5A6           jsr     $1b5a6.l
01B8AE: 2600                     move.l  D0, D3
01B8B0: 508F                     addq.l  #8, A7
01B8B2: B692                     cmp.l   (A2), D3
01B8B4: 6712                     beq     1b8c8
01B8B6: 13FC 0001 0040 0666      move.b  #$1, $400666.l
01B8BE: 2579 0040 0684 000C      move.l  $400684.l, ($c,A2)
01B8C6: 2483                     move.l  D3, (A2)
01B8C8: B8AA 0004                cmp.l   ($4,A2), D4
01B8CC: 6714                     beq     1b8e2
01B8CE: 13FC 0001 0040 0668      move.b  #$1, $400668.l
01B8D6: 2579 0040 0688 0010      move.l  $400688.l, ($10,A2)
01B8DE: 2544 0004                move.l  D4, ($4,A2)
01B8E2: 4A39 0040 0666           tst.b   $400666.l
01B8E8: 6600 000A                bne     1b8f4
01B8EC: 4A39 0040 0668           tst.b   $400668.l
01B8F2: 670E                     beq     1b902
01B8F4: 4879 0000 0034           pea     $34.l
01B8FA: 4EB9 0001 58AC           jsr     $158ac.l
01B900: 588F                     addq.l  #4, A7
01B902: 4CDF 1C7C                movem.l (A7)+, D2-D6/A2-A4
01B906: 4E75                     rts

(data)

01B9CC: 48E7 3830                movem.l D2-D4/A2-A3, -(A7)
01B9D0: 246F 0018                movea.l ($18,A7), A2
01B9D4: 102F 001F                move.b  ($1f,A7), D0
01B9D8: 267C 0040 0690           movea.l #$400690, A3
01B9DE: 4A00                     tst.b   D0
01B9E0: 670E                     beq     1b9f0
01B9E2: 70FF                     moveq   #-$1, D0
01B9E4: 33C0 0040 0698           move.w  D0, $400698.l
01B9EA: 33C0 0040 0696           move.w  D0, $400696.l
01B9F0: 2F0A                     move.l  A2, -(A7)
01B9F2: 4EB9 0001 BAB2           jsr     $1bab2.l
01B9F8: 41EA 0014                lea     ($14,A2), A0
01B9FC: 3210                     move.w  (A0), D1
01B9FE: 142A 0058                move.b  ($58,A2), D2
01BA02: 0C02 002F                cmpi.b  #$2f, D2
01BA06: 588F                     addq.l  #4, A7
01BA08: 6700 0010                beq     1ba1a
01BA0C: 0C02 0030                cmpi.b  #$30, D2
01BA10: 6700 0008                beq     1ba1a
01BA14: 0C02 0031                cmpi.b  #$31, D2
01BA18: 661A                     bne     1ba34
01BA1A: 082B 0000 0001           btst    #$0, ($1,A3)
01BA20: 6712                     beq     1ba34
01BA22: 2012                     move.l  (A2), D0
01BA24: 6C04                     bge     1ba2a
01BA26: 4480                     neg.l   D0
01BA28: 4E71                     nop
01BA2A: 0C80 0000 4000           cmpi.l  #$4000, D0
01BA30: 6F02                     ble     1ba34
01BA32: 5441                     addq.w  #2, D1
01BA34: 3839 0040 0692           move.w  $400692.l, D4
01BA3A: 9853                     sub.w   (A3), D4
01BA3C: 0644 0088                addi.w  #$88, D4
01BA40: 3439 0040 097E           move.w  $40097e.l, D2
01BA46: D441                     add.w   D1, D2
01BA48: 0642 0054                addi.w  #$54, D2
01BA4C: 3013                     move.w  (A3), D0
01BA4E: 48C0                     ext.l   D0
01BA50: 3239 0040 0692           move.w  $400692.l, D1
01BA56: 48C1                     ext.l   D1
01BA58: D081                     add.l   D1, D0
01BA5A: E280                     asr.l   #1, D0
01BA5C: 9440                     sub.w   D0, D2
01BA5E: 3002                     move.w  D2, D0
01BA60: 48C0                     ext.l   D0
01BA62: 2600                     move.l  D0, D3
01BA64: 0283 0000 FFFF           andi.l  #$ffff, D3
01BA6A: 3004                     move.w  D4, D0
01BA6C: 48C0                     ext.l   D0
01BA6E: 2200                     move.l  D0, D1
01BA70: 7010                     moveq   #$10, D0
01BA72: E1A1                     asl.l   D0, D1
01BA74: D681                     add.l   D1, D3
01BA76: 41EA 001E                lea     ($1e,A2), A0
01BA7A: B698                     cmp.l   (A0)+, D3
01BA7C: 672E                     beq     1baac
01BA7E: B698                     cmp.l   (A0)+, D3
01BA80: 672A                     beq     1baac
01BA82: 7402                     moveq   #$2, D2
01BA84: 1202                     move.b  D2, D1
01BA86: 4881                     ext.w   D1
01BA88: E541                     asl.w   #2, D1
01BA8A: 41EA 001E                lea     ($1e,A2), A0
01BA8E: 1002                     move.b  D2, D0
01BA90: 4880                     ext.w   D0
01BA92: 48C0                     ext.l   D0
01BA94: 5380                     subq.l  #1, D0
01BA96: E540                     asl.w   #2, D0
01BA98: 43EA 001E                lea     ($1e,A2), A1
01BA9C: 21B1 0000 1000           move.l  (A1,D0.w), (A0,D1.w)
01BAA2: 5302                     subq.b  #1, D2
01BAA4: 4A02                     tst.b   D2
01BAA6: 66DC                     bne     1ba84
01BAA8: 2543 001E                move.l  D3, ($1e,A2)
01BAAC: 4CDF 0C1C                movem.l (A7)+, D2-D4/A2-A3
01BAB0: 4E75                     rts

01BAB2: 48E7 3000                movem.l D2-D3, -(A7)
01BAB6: 226F 000C                movea.l ($c,A7), A1
01BABA: 3639 0040 0696           move.w  $400696.l, D3
01BAC0: 3439 0040 0698           move.w  $400698.l, D2
01BAC6: 41E9 000C                lea     ($c,A1), A0
01BACA: 33D0 0040 0690           move.w  (A0), $400690.l
01BAD0: 41E9 0010                lea     ($10,A1), A0
01BAD4: 33D0 0040 0692           move.w  (A0), $400692.l
01BADA: 41E9 0014                lea     ($14,A1), A0
01BADE: 33D0 0040 0694           move.w  (A0), $400694.l
01BAE4: 4EB9 0001 BB50           jsr     $1bb50.l
01BAEA: B679 0040 0696           cmp.w   $400696.l, D3
01BAF0: 6600 000A                bne     1bafc
01BAF4: B479 0040 0698           cmp.w   $400698.l, D2
01BAFA: 6706                     beq     1bb02
01BAFC: 4EB9 0001 CABA           jsr     $1caba.l
01BB02: 4CDF 000C                movem.l (A7)+, D2-D3
01BB06: 4E75                     rts

01BB08: 226F 0004                movea.l ($4,A7), A1
01BB0C: 41E9 000C                lea     ($c,A1), A0
01BB10: 33D0 0040 0690           move.w  (A0), $400690.l
01BB16: 41E9 0010                lea     ($10,A1), A0
01BB1A: 33D0 0040 0692           move.w  (A0), $400692.l
01BB20: 4EB9 0001 BB50           jsr     $1bb50.l
01BB26: 4E75                     rts

01BB28: 206F 0004                movea.l ($4,A7), A0
01BB2C: 1028 0004                move.b  ($4,A0), D0
01BB30: 4880                     ext.w   D0
01BB32: E740                     asl.w   #3, D0
01BB34: 33C0 0040 0690           move.w  D0, $400690.l
01BB3A: 1028 0005                move.b  ($5,A0), D0
01BB3E: 4880                     ext.w   D0
01BB40: E740                     asl.w   #3, D0
01BB42: 33C0 0040 0692           move.w  D0, $400692.l
01BB48: 4EB9 0001 BB50           jsr     $1bb50.l
01BB4E: 4E75                     rts

01BB50: 3039 0040 0690           move.w  $400690.l, D0
01BB56: 0240 0007                andi.w  #$7, D0
01BB5A: 33C0 0040 069E           move.w  D0, $40069e.l
01BB60: 3039 0040 0692           move.w  $400692.l, D0
01BB66: 0240 0007                andi.w  #$7, D0
01BB6A: 33C0 0040 06A0           move.w  D0, $4006a0.l
01BB70: 3039 0040 0690           move.w  $400690.l, D0
01BB76: E640                     asr.w   #3, D0
01BB78: 33C0 0040 0696           move.w  D0, $400696.l
01BB7E: 3039 0040 0692           move.w  $400692.l, D0
01BB84: E640                     asr.w   #3, D0
01BB86: 33C0 0040 0698           move.w  D0, $400698.l
01BB8C: 33FC 0001 0040 06A2      move.w  #$1, $4006a2.l
01BB94: 3039 0040 06A0           move.w  $4006a0.l, D0
01BB9A: B079 0040 069E           cmp.w   $40069e.l, D0
01BBA0: 6C06                     bge     1bba8
01BBA2: 4279 0040 06A2           clr.w   $4006a2.l
01BBA8: 4E75                     rts

01BBAA: 48E7 3020                movem.l D2-D3/A2, -(A7)
01BBAE: 3039 0040 0394           move.w  $400394.l, D0
01BBB4: E540                     asl.w   #2, D0
01BBB6: 207C 0002 4AAE           movea.l #$24aae, A0        
01BBBC: 2470 0000                movea.l (A0,D0.w), A2    Zones/levels?
01BBC0: 4A39 0040 076C           tst.b   $40076c.l
01BBC6: 6700 00BA                beq     1bc82
01BBCA: 3039 0040 0394           move.w  $400394.l, D0
01BBD0: 207C 0002 4A94           movea.l #$24a94, A0
01BBD6: 1030 0000                move.b  (A0,D0.w), D0
01BBDA: B039 0040 0444           cmp.b   $400444.l, D0
01BBE0: 6300 00A0                bls     1bc82
01BBE4: 0C12 00FF                cmpi.b  #-$1, (A2)
01BBE8: 6700 0098                beq     1bc82
01BBEC: 207C 0040 0018           movea.l #$400018, A0
01BBF2: 4202                     clr.b   D2
01BBF4: 6000 007E                bra     1bc74

01BBF8: 4201                     clr.b   D1
01BBFA: 224A                     movea.l A2, A1
01BBFC: 0C11 00FF                cmpi.b  #-$1, (A1)
01BC00: 670C                     beq     1bc0e
01BC02: 1028 001B                move.b  ($1b,A0), D0
01BC06: B019                     cmp.b   (A1)+, D0
01BC08: 66F2                     bne     1bbfc
01BC0A: 7201                     moveq   #$1, D1
01BC0C: 60EE                     bra     1bbfc

01BC0E: 0C28 0001 0018           cmpi.b  #$1, ($18,A0)
01BC14: 6600 0052                bne     1bc68
01BC18: 4A28 001A                tst.b   ($1a,A0)
01BC1C: 664A                     bne     1bc68
01BC1E: 7007                     moveq   #$7, D0
01BC20: B068 006A                cmp.w   ($6a,A0), D0
01BC24: 6F42                     ble     1bc68
01BC26: 7002                     moveq   #$2, D0
01BC28: B068 006A                cmp.w   ($6a,A0), D0
01BC2C: 6C3A                     bge     1bc68
01BC2E: 4A01                     tst.b   D1
01BC30: 6736                     beq     1bc68
01BC32: 4239 0040 076C           clr.b   $40076c.l
01BC38: 227C 0040 0018           movea.l #$400018, A1
01BC3E: 4201                     clr.b   D1
01BC40: 601A                     bra     1bc5c

01BC42: 0C29 0001 0018           cmpi.b  #$1, ($18,A1)
01BC48: 6606                     bne     1bc50
01BC4A: 137C 0001 00CB           move.b  #$1, ($cb,A1)
01BC50: 2609                     move.l  A1, D3
01BC52: 0683 0000 00E2           addi.l  #$e2, D3
01BC58: 2243                     movea.l D3, A1
01BC5A: 5201                     addq.b  #1, D1
01BC5C: 1001                     move.b  D1, D0
01BC5E: 4880                     ext.w   D0
01BC60: B079 0040 0396           cmp.w   $400396.l, D0
01BC66: 66DA                     bne     1bc42
01BC68: 2608                     move.l  A0, D3
01BC6A: 0683 0000 00E2           addi.l  #$e2, D3
01BC70: 2043                     movea.l D3, A0
01BC72: 5202                     addq.b  #1, D2
01BC74: 1002                     move.b  D2, D0
01BC76: 4880                     ext.w   D0
01BC78: B079 0040 0396           cmp.w   $400396.l, D0
01BC7E: 6600 FF78                bne     1bbf8
01BC82: 4CDF 040C                movem.l (A7)+, D2-D3/A2
01BC86: 4E75                     rts

01BC88: 4E56 FFF4                link    A6, #-$c
01BC8C: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
01BC90: 246E 0008                movea.l ($8,A6), A2
01BC94: 283C 0040 0018           move.l  #$400018, D4
01BC9A: 287C 0002 4AD6           movea.l #$24ad6, A4
01BCA0: 207C 0040 0394           movea.l #$400394, A0
01BCA6: 7C04                     moveq   #$4, D6
01BCA8: 7001                     moveq   #$1, D0   Level 2?
01BCAA: B050                     cmp.w   (A0), D0  
01BCAC: 670E                     beq     1bcbc
01BCAE: 7003                     moveq   #$3, D0   Level 4?
01BCB0: B050                     cmp.w   (A0), D0
01BCB2: 6708                     beq     1bcbc
01BCB4: 7005                     moveq   #$5, D0   Level 6?
01BCB6: B050                     cmp.w   (A0), D0
01BCB8: 6702                     beq     1bcbc
01BCBA: 7C02                     moveq   #$2, D6   D6=2 on levels 2,4,6; D6=4 on levels 1,3,5
01BCBC: 426E FFFE                clr.w   (-$2,A6)
01BCC0: 3D79 0040 0690 FFF4      move.w  $400690.l, (-$c,A6)
01BCC8: 3D79 0040 0692 FFF6      move.w  $400692.l, (-$a,A6)
01BCD0: 3D79 0040 0694 FFF8      move.w  $400694.l, (-$8,A6)
01BCD8: 426E FFFA                clr.w   (-$6,A6)
01BCDC: 6000 031E                bra     1bffc

01BCE0: 302E FFFA                move.w  (-$6,A6), D0
01BCE4: E540                     asl.w   #2, D0
01BCE6: 207C 0002 4AC6           movea.l #$24ac6, A0
01BCEC: 2670 0000                movea.l (A0,D0.w), A3
01BCF0: B7CA                     cmpa.l  A2, A3
01BCF2: 6700 0304                beq     1bff8
01BCF6: 0C2B 0001 0018           cmpi.b  #$1, ($18,A3)
01BCFC: 6600 02FA                bne     1bff8
01BD00: 322E FFF4                move.w  (-$c,A6), D1
01BD04: 41EB 000C                lea     ($c,A3), A0
01BD08: 9250                     sub.w   (A0), D1
01BD0A: 70F9                     moveq   #-$7, D0
01BD0C: B041                     cmp.w   D1, D0
01BD0E: 6E00 02E8                bgt     1bff8
01BD12: 7007                     moveq   #$7, D0
01BD14: B041                     cmp.w   D1, D0
01BD16: 6D00 02E0                blt     1bff8
01BD1A: 362E FFF6                move.w  (-$a,A6), D3
01BD1E: 41EB 0010                lea     ($10,A3), A0
01BD22: 9650                     sub.w   (A0), D3
01BD24: 70F9                     moveq   #-$7, D0
01BD26: B043                     cmp.w   D3, D0
01BD28: 6E00 02CE                bgt     1bff8
01BD2C: 7007                     moveq   #$7, D0
01BD2E: B043                     cmp.w   D3, D0
01BD30: 6D00 02C6                blt     1bff8
01BD34: 3D6E FFF8 FFFC           move.w  (-$8,A6), (-$4,A6)
01BD3A: 41EB 0014                lea     ($14,A3), A0
01BD3E: 3E2E FFFC                move.w  (-$4,A6), D7
01BD42: 9E50                     sub.w   (A0), D7
01BD44: 3D47 FFFC                move.w  D7, (-$4,A6)
01BD48: 70F2                     moveq   #-$e, D0
01BD4A: B06E FFFC                cmp.w   (-$4,A6), D0
01BD4E: 6E00 02A8                bgt     1bff8
01BD52: 700E                     moveq   #$e, D0
01BD54: B06E FFFC                cmp.w   (-$4,A6), D0
01BD58: 6D00 029E                blt     1bff8
01BD5C: 0C2B 0004 001A           cmpi.b  #$4, ($1a,A3)
01BD62: 6700 0294                beq     1bff8
01BD66: 0C2B 0002 001A           cmpi.b  #$2, ($1a,A3)
01BD6C: 6700 028A                beq     1bff8
01BD70: 0C2B 000B 001A           cmpi.b  #$b, ($1a,A3)
01BD76: 6700 0280                beq     1bff8
01BD7A: 0C2A 000A 0058           cmpi.b  #$a, ($58,A2)
01BD80: 6700 0276                beq     1bff8
01BD84: 4A41                     tst.w   D1
01BD86: 6C08                     bge     1bd90
01BD88: 7000                     moveq   #$0, D0
01BD8A: 3001                     move.w  D1, D0
01BD8C: 4480                     neg.l   D0
01BD8E: 6004                     bra     1bd94

01BD90: 7000                     moveq   #$0, D0
01BD92: 3001                     move.w  D1, D0
01BD94: 3400                     move.w  D0, D2
01BD96: E94A                     lsl.w   #4, D2
01BD98: 4A43                     tst.w   D3
01BD9A: 6C08                     bge     1bda4

01BD9C: 7000                     moveq   #$0, D0
01BD9E: 3003                     move.w  D3, D0
01BDA0: 4480                     neg.l   D0
01BDA2: 6004                     bra     1bda8

01BDA4: 7000                     moveq   #$0, D0
01BDA6: 3003                     move.w  D3, D0
01BDA8: E948                     lsl.w   #4, D0
01BDAA: B440                     cmp.w   D0, D2
01BDAC: 650C                     bcs     1bdba
01BDAE: 3200                     move.w  D0, D1
01BDB0: E649                     lsr.w   #3, D1
01BDB2: C2FC 0003                mulu.w  #$3, D1
01BDB6: D242                     add.w   D2, D1
01BDB8: 600A                     bra     1bdc4

01BDBA: 3202                     move.w  D2, D1
01BDBC: E649                     lsr.w   #3, D1
01BDBE: C2FC 0003                mulu.w  #$3, D1
01BDC2: D240                     add.w   D0, D1
01BDC4: 7070                     moveq   #$70, D0
01BDC6: B041                     cmp.w   D1, D0
01BDC8: 6300 022E                bls     1bff8
01BDCC: 7E01                     moveq   #$1, D7
01BDCE: 3D47 FFFE                move.w  D7, (-$2,A6)
01BDD2: 7001                     moveq   #$1, D0
01BDD4: 2244                     movea.l D4, A1
01BDD6: 2049                     movea.l A1, A0
01BDD8: B5C8                     cmpa.l  A0, A2
01BDDA: 6700 0010                beq     1bdec
01BDDE: 2244                     movea.l D4, A1
01BDE0: 41E9 00E2                lea     ($e2,A1), A0
01BDE4: B5C8                     cmpa.l  A0, A2
01BDE6: 6700 0004                beq     1bdec
01BDEA: 4200                     clr.b   D0
01BDEC: 1600                     move.b  D0, D3
01BDEE: 7001                     moveq   #$1, D0
01BDF0: 2244                     movea.l D4, A1
01BDF2: 2049                     movea.l A1, A0
01BDF4: B7C8                     cmpa.l  A0, A3
01BDF6: 6700 0010                beq     1be08
01BDFA: 2244                     movea.l D4, A1
01BDFC: 41E9 00E2                lea     ($e2,A1), A0
01BE00: B7C8                     cmpa.l  A0, A3
01BE02: 6700 0004                beq     1be08
01BE06: 4200                     clr.b   D0
01BE08: 1400                     move.b  D0, D2
01BE0A: 2579 0040 0684 000C      move.l  $400684.l, ($c,A2)
01BE12: 2579 0040 0688 0010      move.l  $400688.l, ($10,A2)
01BE1A: 2579 0040 068C 0014      move.l  $40068c.l, ($14,A2)
01BE22: 2012                     move.l  (A2), D0             Hit by marble
01BE24: 2493                     move.l  (A3), (A2)
01BE26: 2680                     move.l  D0, (A3)
01BE28: 202A 0004                move.l  ($4,A2), D0
01BE2C: 256B 0004 0004           move.l  ($4,A3), ($4,A2)
01BE32: 2740 0004                move.l  D0, ($4,A3)
01BE36: 204A                     movea.l A2, A0
01BE38: 3210                     move.w  (A0), D1
01BE3A: 6C08                     bge     1be44
01BE3C: 7000                     moveq   #$0, D0
01BE3E: 3001                     move.w  D1, D0
01BE40: 4480                     neg.l   D0
01BE42: 6004                     bra     1be48

01BE44: 7000                     moveq   #$0, D0
01BE46: 3001                     move.w  D1, D0
01BE48: 204C                     movea.l A4, A0
01BE4A: 1030 0000                move.b  (A0,D0.w), D0
01BE4E: 4880                     ext.w   D0
01BE50: 48C0                     ext.l   D0
01BE52: 2A00                     move.l  D0, D5
01BE54: 700C                     moveq   #$c, D0
01BE56: E1A5                     asl.l   D0, D5
01BE58: B602                     cmp.b   D2, D3
01BE5A: 6706                     beq     1be62
01BE5C: 2005                     move.l  D5, D0
01BE5E: E580                     asl.l   #2, D0
01BE60: 2A00                     move.l  D0, D5
01BE62: 202A 000C                move.l  ($c,A2), D0
01BE66: B0AB 000C                cmp.l   ($c,A3), D0
01BE6A: 6F06                     ble     1be72
01BE6C: 2005                     move.l  D5, D0
01BE6E: 4480                     neg.l   D0
01BE70: 2A00                     move.l  D0, D5
01BE72: 41EA 0004                lea     ($4,A2), A0
01BE76: 3210                     move.w  (A0), D1
01BE78: 6C08                     bge     1be82
01BE7A: 7000                     moveq   #$0, D0
01BE7C: 3001                     move.w  D1, D0
01BE7E: 4480                     neg.l   D0
01BE80: 6004                     bra     1be86

01BE82: 7000                     moveq   #$0, D0
01BE84: 3001                     move.w  D1, D0
01BE86: 204C                     movea.l A4, A0
01BE88: 1030 0000                move.b  (A0,D0.w), D0
01BE8C: 4880                     ext.w   D0
01BE8E: 48C0                     ext.l   D0
01BE90: 2200                     move.l  D0, D1
01BE92: 700C                     moveq   #$c, D0
01BE94: E1A1                     asl.l   D0, D1
01BE96: B602                     cmp.b   D2, D3
01BE98: 6706                     beq     1bea0
01BE9A: 2001                     move.l  D1, D0
01BE9C: E580                     asl.l   #2, D0
01BE9E: 2200                     move.l  D0, D1
01BEA0: 202A 0010                move.l  ($10,A2), D0
01BEA4: B0AB 0010                cmp.l   ($10,A3), D0
01BEA8: 6F06                     ble     1beb0
01BEAA: 2001                     move.l  D1, D0
01BEAC: 4480                     neg.l   D0
01BEAE: 2200                     move.l  D0, D1
01BEB0: 2005                     move.l  D5, D0
01BEB2: 9192                     sub.l   D0, (A2)
01BEB4: 2001                     move.l  D1, D0
01BEB6: 91AA 0004                sub.l   D0, ($4,A2)
01BEBA: 204B                     movea.l A3, A0
01BEBC: 3210                     move.w  (A0), D1
01BEBE: 6C08                     bge     1bec8
01BEC0: 7000                     moveq   #$0, D0
01BEC2: 3001                     move.w  D1, D0
01BEC4: 4480                     neg.l   D0
01BEC6: 6004                     bra     1becc
01BEC8: 7000                     moveq   #$0, D0
01BECA: 3001                     move.w  D1, D0
01BECC: 204C                     movea.l A4, A0
01BECE: 1030 0000                move.b  (A0,D0.w), D0
01BED2: 4880                     ext.w   D0
01BED4: 48C0                     ext.l   D0
01BED6: 2A00                     move.l  D0, D5
01BED8: 700C                     moveq   #$c, D0
01BEDA: E1A5                     asl.l   D0, D5
01BEDC: B602                     cmp.b   D2, D3
01BEDE: 6706                     beq     1bee6
01BEE0: 2005                     move.l  D5, D0
01BEE2: E580                     asl.l   #2, D0
01BEE4: 2A00                     move.l  D0, D5
01BEE6: 202A 000C                move.l  ($c,A2), D0
01BEEA: B0AB 000C                cmp.l   ($c,A3), D0
01BEEE: 6F06                     ble     1bef6
01BEF0: 2005                     move.l  D5, D0
01BEF2: 4480                     neg.l   D0
01BEF4: 2A00                     move.l  D0, D5
01BEF6: 41EB 0004                lea     ($4,A3), A0
01BEFA: 3210                     move.w  (A0), D1
01BEFC: 6C08                     bge     1bf06
01BEFE: 7000                     moveq   #$0, D0
01BF00: 3001                     move.w  D1, D0
01BF02: 4480                     neg.l   D0
01BF04: 6004                     bra     1bf0a

01BF06: 7000                     moveq   #$0, D0
01BF08: 3001                     move.w  D1, D0
01BF0A: 204C                     movea.l A4, A0
01BF0C: 1030 0000                move.b  (A0,D0.w), D0
01BF10: 4880                     ext.w   D0
01BF12: 48C0                     ext.l   D0
01BF14: 2200                     move.l  D0, D1
01BF16: 700C                     moveq   #$c, D0
01BF18: E1A1                     asl.l   D0, D1
01BF1A: B602                     cmp.b   D2, D3
01BF1C: 6706                     beq     1bf24
01BF1E: 2001                     move.l  D1, D0
01BF20: E580                     asl.l   #2, D0
01BF22: 2200                     move.l  D0, D1
01BF24: 202A 0010                move.l  ($10,A2), D0
01BF28: B0AB 0010                cmp.l   ($10,A3), D0
01BF2C: 6F06                     ble     1bf34
01BF2E: 2001                     move.l  D1, D0
01BF30: 4480                     neg.l   D0
01BF32: 2200                     move.l  D0, D1
01BF34: 2005                     move.l  D5, D0
01BF36: D193                     add.l   D0, (A3)
01BF38: 2001                     move.l  D1, D0
01BF3A: D1AB 0004                add.l   D0, ($4,A3)
01BF3E: 4A03                     tst.b   D3
01BF40: 6626                     bne     1bf68
01BF42: 204A                     movea.l A2, A0
01BF44: 70FF                     moveq   #-$1, D0
01BF46: B068 006C                cmp.w   ($6c,A0), D0
01BF4A: 6606                     bne     1bf52
01BF4C: 317C 0096 006C           move.w  #$96, ($6c,A0)
01BF52: 117C 0024 001A           move.b  #$24, ($1a,A0)
01BF58: 0628 0014 0056           addi.b  #$14, ($56,A0)
01BF5E: 2F08                     move.l  A0, -(A7)
01BF60: 4EB9 0001 60D4           jsr     $160d4.l
01BF66: 588F                     addq.l  #4, A7
01BF68: 4A02                     tst.b   D2
01BF6A: 6626                     bne     1bf92
01BF6C: 204B                     movea.l A3, A0
01BF6E: 70FF                     moveq   #-$1, D0
01BF70: B068 006C                cmp.w   ($6c,A0), D0
01BF74: 6606                     bne     1bf7c
01BF76: 317C 0096 006C           move.w  #$96, ($6c,A0)
01BF7C: 117C 0024 001A           move.b  #$24, ($1a,A0)
01BF82: 0628 0014 0056           addi.b  #$14, ($56,A0)
01BF88: 2F08                     move.l  A0, -(A7)
01BF8A: 4EB9 0001 60D4           jsr     $160d4.l
01BF90: 588F                     addq.l  #4, A7
01BF92: 4A03                     tst.b   D3
01BF94: 6700 0006                beq     1bf9c
01BF98: 4A02                     tst.b   D2
01BF9A: 6610                     bne     1bfac
01BF9C: 4879 0000 0032           pea     $32.l
01BFA2: 4EB9 0001 58AC           jsr     $158ac.l
01BFA8: 588F                     addq.l  #4, A7
01BFAA: 600E                     bra     1bfba

01BFAC: 4879 0000 0037           pea     $37.l
01BFB2: 4EB9 0001 58AC           jsr     $158ac.l
01BFB8: 588F                     addq.l  #4, A7
01BFBA: 4A6E FFFC                tst.w   (-$4,A6)
01BFBE: 6D38                     blt     1bff8
01BFC0: 4A2A 0036                tst.b   ($36,A2)
01BFC4: 6732                     beq     1bff8
01BFC6: 4A02                     tst.b   D2
01BFC8: 661A                     bne     1bfe4
01BFCA: 42A7                     clr.l   -(A7)
01BFCC: 4878 0001                pea     $1.w
01BFD0: 2F0B                     move.l  A3, -(A7)
01BFD2: 4EB9 0001 5BD0           jsr     $15bd0.l
01BFD8: 177C 0002 0018           move.b  #$2, ($18,A3)
01BFDE: 4FEF 000C                lea     ($c,A7), A7
01BFE2: 6006                     bra     1bfea
01BFE4: 4EB9 0001 5884           jsr     $15884.l
01BFEA: 4878 0002                pea     $2.w
01BFEE: 2F0B                     move.l  A3, -(A7)
01BFF0: 4EB9 0002 5BAE           jsr     $25bae.l
01BFF6: 508F                     addq.l  #8, A7
01BFF8: 526E FFFA                addq.w  #1, (-$6,A6)
01BFFC: 3E2E FFFA                move.w  (-$6,A6), D7
01C000: BE46                     cmp.w   D6, D7
01C002: 6600 FCDC                bne     1bce0
01C006: 302E FFFE                move.w  (-$2,A6), D0
01C00A: 48C0                     ext.l   D0
01C00C: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
01C010: 4E5E                     unlk    A6
01C012: 4E75                     rts

01C014: 4E56 FFC6                link    A6, #-$3a
01C018: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
01C01C: 246E 0008                movea.l ($8,A6), A2
01C020: 267C 0001 EDA2           movea.l #$1eda2, A3
01C026: 0C2A 000A 0058           cmpi.b  #$a, ($58,A2)
01C02C: 6712                     beq     1c040
01C02E: 2012                     move.l  (A2), D0
01C030: E880                     asr.l   #4, D0
01C032: 3840                     movea.w D0, A4
01C034: 202A 0004                move.l  ($4,A2), D0
01C038: E880                     asr.l   #4, D0
01C03A: 3D40 FFFE                move.w  D0, (-$2,A6)
01C03E: 6008                     bra     1c048

01C040: 4247                     clr.w   D7
01C042: 3847                     movea.w D7, A4
01C044: 3D4C FFFE                move.w  A4, (-$2,A6)
01C048: CF8C                     exg     D7, A4
01C04A: 4A47                     tst.w   D7
01C04C: CF8C                     exg     D7, A4
01C04E: 6C08                     bge     1c058
01C050: 7000                     moveq   #$0, D0
01C052: 300C                     move.w  A4, D0
01C054: 4480                     neg.l   D0
01C056: 6004                     bra     1c05c
01C058: 7000                     moveq   #$0, D0
01C05A: 300C                     move.w  A4, D0
01C05C: 3400                     move.w  D0, D2
01C05E: 4A6E FFFE                tst.w   (-$2,A6)
01C062: 6C0A                     bge     1c06e
01C064: 7000                     moveq   #$0, D0
01C066: 302E FFFE                move.w  (-$2,A6), D0
01C06A: 4480                     neg.l   D0
01C06C: 6006                     bra     1c074

01C06E: 7000                     moveq   #$0, D0
01C070: 302E FFFE                move.w  (-$2,A6), D0
01C074: 3C00                     move.w  D0, D6
01C076: 4A42                     tst.w   D2
01C078: 6700 0008                beq     1c082
01C07C: 4A46                     tst.w   D6
01C07E: 6600 005E                bne     1c0de
01C082: 4A42                     tst.w   D2
01C084: 661E                     bne     1c0a4
01C086: 4A46                     tst.w   D6
01C088: 661A                     bne     1c0a4
01C08A: 7004                     moveq   #$4, D0
01C08C: B079 0040 0394           cmp.w   $400394.l, D0   Level 5?
01C092: 6600 03C4                bne     1c458
01C096: 7010                     moveq   #$10, D0
01C098: 3D40 FFFE                move.w  D0, (-$2,A6)
01C09C: 3C00                     move.w  D0, D6
01C09E: 3400                     move.w  D0, D2
01C0A0: 3842                     movea.w D2, A4
01C0A2: 603A                     bra     1c0de

01C0A4: 4A42                     tst.w   D2
01C0A6: 670A                     beq     1c0b2
01C0A8: 383C 4000                move.w  #$4000, D4
01C0AC: 3602                     move.w  D2, D3
01C0AE: 4245                     clr.w   D5
01C0B0: 6008                     bra     1c0ba

01C0B2: 4244                     clr.w   D4
01C0B4: 3606                     move.w  D6, D3
01C0B6: 3A3C 4000                move.w  #$4000, D5
01C0BA: CF8C                     exg     D7, A4
01C0BC: 4A47                     tst.w   D7
01C0BE: CF8C                     exg     D7, A4
01C0C0: 6D08                     blt     1c0ca
01C0C2: 3204                     move.w  D4, D1
01C0C4: 48C1                     ext.l   D1
01C0C6: 4481                     neg.l   D1
01C0C8: 3801                     move.w  D1, D4
01C0CA: 4A6E FFFE                tst.w   (-$2,A6)
01C0CE: 6C00 00DE                bge     1c1ae
01C0D2: 3205                     move.w  D5, D1
01C0D4: 48C1                     ext.l   D1
01C0D6: 4481                     neg.l   D1
01C0D8: 3A01                     move.w  D1, D5
01C0DA: 6000 00D2                bra     1c1ae

01C0DE: B446                     cmp.w   D6, D2
01C0E0: 6312                     bls     1c0f4
01C0E2: 7000                     moveq   #$0, D0
01C0E4: 3006                     move.w  D6, D0
01C0E6: 720E                     moveq   #$e, D1
01C0E8: E3A8                     lsl.l   D1, D0
01C0EA: 2200                     move.l  D0, D1
01C0EC: 82C2                     divu.w  D2, D1
01C0EE: 3D41 FFF6                move.w  D1, (-$a,A6)
01C0F2: 6010                     bra     1c104

01C0F4: 7000                     moveq   #$0, D0
01C0F6: 3002                     move.w  D2, D0
01C0F8: 720E                     moveq   #$e, D1
01C0FA: E3A8                     lsl.l   D1, D0
01C0FC: 2200                     move.l  D0, D1
01C0FE: 82C6                     divu.w  D6, D1
01C100: 3D41 FFF6                move.w  D1, (-$a,A6)
01C104: 302E FFF6                move.w  (-$a,A6), D0
01C108: C0EE FFF6                mulu.w  (-$a,A6), D0
01C10C: 2240                     movea.l D0, A1
01C10E: 720E                     moveq   #$e, D1
01C110: 2E09                     move.l  A1, D7
01C112: E2AF                     lsr.l   D1, D7
01C114: 2247                     movea.l D7, A1
01C116: 3609                     move.w  A1, D3
01C118: 0643 4000                addi.w  #$4000, D3
01C11C: 7000                     moveq   #$0, D0
01C11E: 3003                     move.w  D3, D0
01C120: 2F00                     move.l  D0, -(A7)
01C122: 4EB9 0001 C61E           jsr     $1c61e.l
01C128: 3600                     move.w  D0, D3
01C12A: B446                     cmp.w   D6, D2
01C12C: 588F                     addq.l  #4, A7
01C12E: 631E                     bls     1c14e
01C130: 223C 1000 0000           move.l  #$10000000, D1
01C136: 82C3                     divu.w  D3, D1
01C138: 3801                     move.w  D1, D4
01C13A: 302E FFF6                move.w  (-$a,A6), D0
01C13E: C0C4                     mulu.w  D4, D0
01C140: 2240                     movea.l D0, A1
01C142: 720E                     moveq   #$e, D1
01C144: 2E09                     move.l  A1, D7
01C146: E2AF                     lsr.l   D1, D7
01C148: 2247                     movea.l D7, A1
01C14A: 3A09                     move.w  A1, D5
01C14C: 601C                     bra     1c16a
01C14E: 223C 1000 0000           move.l  #$10000000, D1
01C154: 82C3                     divu.w  D3, D1
01C156: 3A01                     move.w  D1, D5
01C158: 302E FFF6                move.w  (-$a,A6), D0
01C15C: C0C5                     mulu.w  D5, D0
01C15E: 2240                     movea.l D0, A1
01C160: 720E                     moveq   #$e, D1
01C162: 2E09                     move.l  A1, D7
01C164: E2AF                     lsr.l   D1, D7
01C166: 2247                     movea.l D7, A1
01C168: 3809                     move.w  A1, D4
01C16A: CF8C                     exg     D7, A4
01C16C: 4A47                     tst.w   D7
01C16E: CF8C                     exg     D7, A4
01C170: 6D08                     blt     1c17a
01C172: 3204                     move.w  D4, D1
01C174: 48C1                     ext.l   D1
01C176: 4481                     neg.l   D1
01C178: 3801                     move.w  D1, D4
01C17A: 4A6E FFFE                tst.w   (-$2,A6)
01C17E: 6C08                     bge     1c188
01C180: 3205                     move.w  D5, D1
01C182: 48C1                     ext.l   D1
01C184: 4481                     neg.l   D1
01C186: 3A01                     move.w  D1, D5
01C188: B446                     cmp.w   D6, D2
01C18A: 6312                     bls     1c19e
01C18C: 3002                     move.w  D2, D0
01C18E: C0C3                     mulu.w  D3, D0
01C190: 2240                     movea.l D0, A1
01C192: 720E                     moveq   #$e, D1
01C194: 2E09                     move.l  A1, D7
01C196: E2AF                     lsr.l   D1, D7
01C198: 2247                     movea.l D7, A1
01C19A: 3609                     move.w  A1, D3
01C19C: 6010                     bra     1c1ae

01C19E: 3006                     move.w  D6, D0
01C1A0: C0C3                     mulu.w  D3, D0
01C1A2: 2240                     movea.l D0, A1
01C1A4: 720E                     moveq   #$e, D1
01C1A6: 2E09                     move.l  A1, D7
01C1A8: E2AF                     lsr.l   D1, D7
01C1AA: 2247                     movea.l D7, A1
01C1AC: 3609                     move.w  A1, D3
01C1AE: 7000                     moveq   #$0, D0
01C1B0: 3003                     move.w  D3, D0
01C1B2: 2200                     move.l  D0, D1
01C1B4: 82FC 0007                divu.w  #$7, D1
01C1B8: 3C01                     move.w  D1, D6
01C1BA: 7004                     moveq   #$4, D0
01C1BC: B079 0040 0394           cmp.w   $400394.l, D0
01C1C2: 660C                     bne     1c1d0
01C1C4: 303C 0600                move.w  #$600, D0
01C1C8: 9046                     sub.w   D6, D0
01C1CA: 3C00                     move.w  D0, D6
01C1CC: 6C02                     bge     1c1d0
01C1CE: 4246                     clr.w   D6
01C1D0: 3406                     move.w  D6, D2
01C1D2: EC42                     asr.w   #6, D2
01C1D4: 3606                     move.w  D6, D3
01C1D6: 0243 003F                andi.w  #$3f, D3
01C1DA: 3002                     move.w  D2, D0
01C1DC: 48C0                     ext.l   D0
01C1DE: 5280                     addq.l  #1, D0
01C1E0: D080                     add.l   D0, D0
01C1E2: 204B                     movea.l A3, A0
01C1E4: 3230 0800                move.w  (A0,D0.l), D1
01C1E8: 3002                     move.w  D2, D0
01C1EA: 48C0                     ext.l   D0
01C1EC: D080                     add.l   D0, D0
01C1EE: 204B                     movea.l A3, A0
01C1F0: 9270 0800                sub.w   (A0,D0.l), D1
01C1F4: 3001                     move.w  D1, D0
01C1F6: C1C3                     muls.w  D3, D0
01C1F8: EC80                     asr.l   #6, D0
01C1FA: 3240                     movea.w D0, A1
01C1FC: 3002                     move.w  D2, D0
01C1FE: 48C0                     ext.l   D0
01C200: D080                     add.l   D0, D0
01C202: 204B                     movea.l A3, A0
01C204: D2F0 0800                adda.w  (A0,D0.l), A1
01C208: 303C 1922                move.w  #$1922, D0
01C20C: 9046                     sub.w   D6, D0
01C20E: 3C00                     move.w  D0, D6
01C210: 3406                     move.w  D6, D2
01C212: EC42                     asr.w   #6, D2
01C214: 3606                     move.w  D6, D3
01C216: 0243 003F                andi.w  #$3f, D3
01C21A: 3002                     move.w  D2, D0
01C21C: 48C0                     ext.l   D0
01C21E: 5280                     addq.l  #1, D0
01C220: D080                     add.l   D0, D0
01C222: 204B                     movea.l A3, A0
01C224: 3230 0800                move.w  (A0,D0.l), D1
01C228: 3002                     move.w  D2, D0
01C22A: 48C0                     ext.l   D0
01C22C: D080                     add.l   D0, D0
01C22E: 204B                     movea.l A3, A0
01C230: 9270 0800                sub.w   (A0,D0.l), D1
01C234: 3001                     move.w  D1, D0
01C236: C1C3                     muls.w  D3, D0
01C238: EC80                     asr.l   #6, D0
01C23A: 3C00                     move.w  D0, D6
01C23C: 3002                     move.w  D2, D0
01C23E: 48C0                     ext.l   D0
01C240: D080                     add.l   D0, D0
01C242: 204B                     movea.l A3, A0
01C244: DC70 0800                add.w   (A0,D0.l), D6
01C248: 3005                     move.w  D5, D0
01C24A: C1C5                     muls.w  D5, D0
01C24C: 720E                     moveq   #$e, D1
01C24E: E2A0                     asr.l   D1, D0
01C250: 3400                     move.w  D0, D2
01C252: 3004                     move.w  D4, D0
01C254: C1C4                     muls.w  D4, D0
01C256: 720E                     moveq   #$e, D1
01C258: E2A0                     asr.l   D1, D0
01C25A: 3D40 FFF4                move.w  D0, (-$c,A6)
01C25E: 3009                     move.w  A1, D0
01C260: C1EE FFF4                muls.w  (-$c,A6), D0
01C264: 720E                     moveq   #$e, D1
01C266: E2A0                     asr.l   D1, D0
01C268: 3640                     movea.w D0, A3
01C26A: D6C2                     adda.w  D2, A3
01C26C: 363C 4000                move.w  #$4000, D3
01C270: 9649                     sub.w   A1, D3
01C272: 3005                     move.w  D5, D0
01C274: C1C3                     muls.w  D3, D0
01C276: 720E                     moveq   #$e, D1
01C278: E2A0                     asr.l   D1, D0
01C27A: 3600                     move.w  D0, D3
01C27C: 3004                     move.w  D4, D0
01C27E: C1C3                     muls.w  D3, D0
01C280: 720E                     moveq   #$e, D1
01C282: E2A0                     asr.l   D1, D0
01C284: 3600                     move.w  D0, D3
01C286: 3006                     move.w  D6, D0
01C288: C1C4                     muls.w  D4, D0
01C28A: 4480                     neg.l   D0
01C28C: 720E                     moveq   #$e, D1
01C28E: E2A0                     asr.l   D1, D0
01C290: 3D40 FFF2                move.w  D0, (-$e,A6)
01C294: 3D43 FFE8                move.w  D3, (-$18,A6)
01C298: 3009                     move.w  A1, D0
01C29A: C1C2                     muls.w  D2, D0
01C29C: 720E                     moveq   #$e, D1
01C29E: E2A0                     asr.l   D1, D0
01C2A0: 3840                     movea.w D0, A4
01C2A2: D8EE FFF4                adda.w  (-$c,A6), A4
01C2A6: 3006                     move.w  D6, D0
01C2A8: C1C5                     muls.w  D5, D0
01C2AA: 720E                     moveq   #$e, D1
01C2AC: E2A0                     asr.l   D1, D0
01C2AE: 3D40 FFF0                move.w  D0, (-$10,A6)
01C2B2: 302E FFF2                move.w  (-$e,A6), D0
01C2B6: 48C0                     ext.l   D0
01C2B8: 4480                     neg.l   D0
01C2BA: 3D40 FFEA                move.w  D0, (-$16,A6)
01C2BE: 302E FFF0                move.w  (-$10,A6), D0
01C2C2: 48C0                     ext.l   D0
01C2C4: 4480                     neg.l   D0
01C2C6: 3D40 FFEC                move.w  D0, (-$14,A6)
01C2CA: 3D49 FFEE                move.w  A1, (-$12,A6)
01C2CE: 4244                     clr.w   D4
01C2D0: 3004                     move.w  D4, D0
01C2D2: D040                     add.w   D0, D0
01C2D4: 41EA 0074                lea     ($74,A2), A0
01C2D8: 3D70 0000 FFFC           move.w  (A0,D0.w), (-$4,A6)
01C2DE: 3004                     move.w  D4, D0
01C2E0: D040                     add.w   D0, D0
01C2E2: 41EA 0084                lea     ($84,A2), A0
01C2E6: 3D70 0000 FFFA           move.w  (A0,D0.w), (-$6,A6)
01C2EC: 3004                     move.w  D4, D0
01C2EE: D040                     add.w   D0, D0
01C2F0: 41EA 0094                lea     ($94,A2), A0
01C2F4: 3D70 0000 FFF8           move.w  (A0,D0.w), (-$8,A6)
01C2FA: 302E FFF2                move.w  (-$e,A6), D0
01C2FE: C1EE FFF8                muls.w  (-$8,A6), D0
01C302: 3203                     move.w  D3, D1
01C304: C3EE FFFA                muls.w  (-$6,A6), D1
01C308: 2401                     move.l  D1, D2
01C30A: 320B                     move.w  A3, D1
01C30C: C3EE FFFC                muls.w  (-$4,A6), D1
01C310: D481                     add.l   D1, D2
01C312: D082                     add.l   D2, D0
01C314: 720E                     moveq   #$e, D1
01C316: E2A0                     asr.l   D1, D0
01C318: 3A00                     move.w  D0, D5
01C31A: 302E FFF0                move.w  (-$10,A6), D0
01C31E: C1EE FFF8                muls.w  (-$8,A6), D0
01C322: 320C                     move.w  A4, D1
01C324: C3EE FFFA                muls.w  (-$6,A6), D1
01C328: 2401                     move.l  D1, D2
01C32A: 322E FFE8                move.w  (-$18,A6), D1
01C32E: C3EE FFFC                muls.w  (-$4,A6), D1
01C332: D481                     add.l   D1, D2
01C334: D082                     add.l   D2, D0
01C336: 720E                     moveq   #$e, D1
01C338: E2A0                     asr.l   D1, D0
01C33A: 3C00                     move.w  D0, D6
01C33C: 302E FFEE                move.w  (-$12,A6), D0
01C340: C1EE FFF8                muls.w  (-$8,A6), D0
01C344: 322E FFEC                move.w  (-$14,A6), D1
01C348: C3EE FFFA                muls.w  (-$6,A6), D1
01C34C: 2401                     move.l  D1, D2
01C34E: 322E FFEA                move.w  (-$16,A6), D1
01C352: C3EE FFFC                muls.w  (-$4,A6), D1
01C356: D481                     add.l   D1, D2
01C358: D082                     add.l   D2, D0
01C35A: 720E                     moveq   #$e, D1
01C35C: E2A0                     asr.l   D1, D0
01C35E: 3400                     move.w  D0, D2
01C360: 102A 00CA                move.b  ($ca,A2), D0
01C364: 4880                     ext.w   D0
01C366: B044                     cmp.w   D4, D0
01C368: 6600 006A                bne     1c3d4
01C36C: 3002                     move.w  D2, D0
01C36E: C1C2                     muls.w  D2, D0
01C370: 2040                     movea.l D0, A0
01C372: 3206                     move.w  D6, D1
01C374: C3C6                     muls.w  D6, D1
01C376: 2001                     move.l  D1, D0
01C378: 3205                     move.w  D5, D1
01C37A: C3C5                     muls.w  D5, D1
01C37C: D081                     add.l   D1, D0
01C37E: D1C0                     adda.l  D0, A0
01C380: 203C 0008 0000           move.l  #$80000, D0
01C386: 2200                     move.l  D0, D1
01C388: ED89                     lsl.l   #6, D1
01C38A: 2241                     movea.l D1, A1
01C38C: 93C0                     suba.l  D0, A1
01C38E: B1C9                     cmpa.l  A1, A0
01C390: 6500 000A                bcs     1c39c
01C394: 2240                     movea.l D0, A1
01C396: D3C1                     adda.l  D1, A1
01C398: B1C9                     cmpa.l  A1, A0
01C39A: 6338                     bls     1c3d4
01C39C: 2248                     movea.l A0, A1
01C39E: 700E                     moveq   #$e, D0
01C3A0: 2E09                     move.l  A1, D7
01C3A2: E0AF                     lsr.l   D0, D7
01C3A4: 82C7                     divu.w  D7, D1
01C3A6: 7000                     moveq   #$0, D0
01C3A8: 3001                     move.w  D1, D0
01C3AA: 2F00                     move.l  D0, -(A7)
01C3AC: 4EB9 0001 C61E           jsr     $1c61e.l
01C3B2: 3040                     movea.w D0, A0
01C3B4: 3008                     move.w  A0, D0
01C3B6: C1C5                     muls.w  D5, D0
01C3B8: 720E                     moveq   #$e, D1
01C3BA: E2A0                     asr.l   D1, D0
01C3BC: 3A00                     move.w  D0, D5
01C3BE: 3008                     move.w  A0, D0
01C3C0: C1C6                     muls.w  D6, D0
01C3C2: 720E                     moveq   #$e, D1
01C3C4: E2A0                     asr.l   D1, D0
01C3C6: 3C00                     move.w  D0, D6
01C3C8: 3008                     move.w  A0, D0
01C3CA: C1C2                     muls.w  D2, D0
01C3CC: 720E                     moveq   #$e, D1
01C3CE: E2A0                     asr.l   D1, D0
01C3D0: 3400                     move.w  D0, D2
01C3D2: 588F                     addq.l  #4, A7
01C3D4: 3004                     move.w  D4, D0
01C3D6: D040                     add.w   D0, D0
01C3D8: 41EA 0074                lea     ($74,A2), A0
01C3DC: 3185 0000                move.w  D5, (A0,D0.w)
01C3E0: 3004                     move.w  D4, D0
01C3E2: D040                     add.w   D0, D0
01C3E4: 41EA 0084                lea     ($84,A2), A0
01C3E8: 3186 0000                move.w  D6, (A0,D0.w)
01C3EC: 3004                     move.w  D4, D0
01C3EE: D040                     add.w   D0, D0
01C3F0: 41EA 0094                lea     ($94,A2), A0
01C3F4: 3182 0000                move.w  D2, (A0,D0.w)
01C3F8: 5244                     addq.w  #1, D4
01C3FA: 7002                     moveq   #$2, D0
01C3FC: B044                     cmp.w   D4, D0
01C3FE: 6600 FED0                bne     1c2d0
01C402: 41EA 0074                lea     ($74,A2), A0
01C406: 4244                     clr.w   D4
01C408: 3418                     move.w  (A0)+, D2
01C40A: 3618                     move.w  (A0)+, D3
01C40C: 3202                     move.w  D2, D1
01C40E: 48C1                     ext.l   D1
01C410: 4481                     neg.l   D1
01C412: 30C1                     move.w  D1, (A0)+
01C414: 3203                     move.w  D3, D1
01C416: 48C1                     ext.l   D1
01C418: 4481                     neg.l   D1
01C41A: 30C1                     move.w  D1, (A0)+
01C41C: 3003                     move.w  D3, D0
01C41E: D042                     add.w   D2, D0
01C420: 30C0                     move.w  D0, (A0)+
01C422: 3202                     move.w  D2, D1
01C424: 48C1                     ext.l   D1
01C426: 4481                     neg.l   D1
01C428: 3001                     move.w  D1, D0
01C42A: 9043                     sub.w   D3, D0
01C42C: 30C0                     move.w  D0, (A0)+
01C42E: 3002                     move.w  D2, D0
01C430: 9043                     sub.w   D3, D0
01C432: 30C0                     move.w  D0, (A0)+
01C434: 3202                     move.w  D2, D1
01C436: 48C1                     ext.l   D1
01C438: 4481                     neg.l   D1
01C43A: 3001                     move.w  D1, D0
01C43C: D043                     add.w   D3, D0
01C43E: 30C0                     move.w  D0, (A0)+
01C440: 5244                     addq.w  #1, D4
01C442: 7003                     moveq   #$3, D0
01C444: B044                     cmp.w   D4, D0
01C446: 6EC0                     bgt     1c408
01C448: 522A 00CA                addq.b  #1, ($ca,A2)
01C44C: 0C2A 0008 00CA           cmpi.b  #$8, ($ca,A2)
01C452: 6604                     bne     1c458
01C454: 422A 00CA                clr.b   ($ca,A2)
01C458: 41EA 001E                lea     ($1e,A2), A0
01C45C: 3D50 FFE6                move.w  (A0), (-$1a,A6)
01C460: 3C2A 0020                move.w  ($20,A2), D6
01C464: 0246 FFFF                andi.w  #$ffff, D6
01C468: 5E46                     addq.w  #7, D6
01C46A: 47EE FFC6                lea     (-$3a,A6), A3
01C46E: 4203                     clr.b   D3
01C470: 0C2A 0008 001A           cmpi.b  #$8, ($1a,A2)
01C476: 6622                     bne     1c49a
01C478: 227C 0002 15C6           movea.l #$215c6, A1
01C47E: 206A 00CC                movea.l ($cc,A2), A0
01C482: B3D0                     cmpa.l  (A0), A1
01C484: 6604                     bne     1c48a
01C486: 7601                     moveq   #$1, D3
01C488: 6010                     bra     1c49a

01C48A: 227C 0002 15EA           movea.l #$215ea, A1
01C490: 206A 00CC                movea.l ($cc,A2), A0
01C494: B3D0                     cmpa.l  (A0), A1
01C496: 6602                     bne     1c49a
01C498: 7602                     moveq   #$2, D3
01C49A: 4244                     clr.w   D4
01C49C: 3004                     move.w  D4, D0
01C49E: D040                     add.w   D0, D0
01C4A0: 41EA 0074                lea     ($74,A2), A0
01C4A4: 3270 0000                movea.w (A0,D0.w), A1
01C4A8: 3004                     move.w  D4, D0
01C4AA: D040                     add.w   D0, D0
01C4AC: 41EA 0084                lea     ($84,A2), A0
01C4B0: 3870 0000                movea.w (A0,D0.w), A4
01C4B4: 3004                     move.w  D4, D0
01C4B6: D040                     add.w   D0, D0
01C4B8: 41EA 0094                lea     ($94,A2), A0
01C4BC: 3A30 0000                move.w  (A0,D0.w), D5
01C4C0: 4A03                     tst.b   D3
01C4C2: 6714                     beq     1c4d8
01C4C4: 0C03 0001                cmpi.b  #$1, D3
01C4C8: 6608                     bne     1c4d2
01C4CA: 3005                     move.w  D5, D0
01C4CC: E440                     asr.w   #2, D0
01C4CE: 9A40                     sub.w   D0, D5
01C4D0: 6006                     bra     1c4d8

01C4D2: 3005                     move.w  D5, D0
01C4D4: E240                     asr.w   #1, D0
01C4D6: DA40                     add.w   D0, D5
01C4D8: 302E FFE6                move.w  (-$1a,A6), D0
01C4DC: 48C0                     ext.l   D0
01C4DE: E380                     asl.l   #1, D0
01C4E0: 320C                     move.w  A4, D1
01C4E2: 48C1                     ext.l   D1
01C4E4: 3409                     move.w  A1, D2
01C4E6: 48C2                     ext.l   D2
01C4E8: 9282                     sub.l   D2, D1
01C4EA: 740A                     moveq   #$a, D2
01C4EC: E4A1                     asr.l   D2, D1
01C4EE: D081                     add.l   D1, D0
01C4F0: E280                     asr.l   #1, D0
01C4F2: 3040                     movea.w D0, A0
01C4F4: 3006                     move.w  D6, D0
01C4F6: 48C0                     ext.l   D0
01C4F8: E380                     asl.l   #1, D0
01C4FA: 3205                     move.w  D5, D1
01C4FC: 48C1                     ext.l   D1
01C4FE: 340C                     move.w  A4, D2
01C500: 48C2                     ext.l   D2
01C502: 3A09                     move.w  A1, D5
01C504: 48C5                     ext.l   D5
01C506: D485                     add.l   D5, D2
01C508: E282                     asr.l   #1, D2
01C50A: 9282                     sub.l   D2, D1
01C50C: 740A                     moveq   #$a, D2
01C50E: E4A1                     asr.l   D2, D1
01C510: D081                     add.l   D1, D0
01C512: E280                     asr.l   #1, D0
01C514: 3200                     move.w  D0, D1
01C516: 48C1                     ext.l   D1
01C518: 2001                     move.l  D1, D0
01C51A: 0280 0000 FFFF           andi.l  #$ffff, D0
01C520: 3208                     move.w  A0, D1
01C522: 48C1                     ext.l   D1
01C524: 2401                     move.l  D1, D2
01C526: 7210                     moveq   #$10, D1
01C528: E3A2                     asl.l   D1, D2
01C52A: D082                     add.l   D2, D0
01C52C: 26C0                     move.l  D0, (A3)+
01C52E: 5244                     addq.w  #1, D4
01C530: 7008                     moveq   #$8, D0
01C532: B044                     cmp.w   D4, D0
01C534: 6600 FF66                bne     1c49c
01C538: 47EE FFC6                lea     (-$3a,A6), A3
01C53C: 4244                     clr.w   D4
01C53E: 3004                     move.w  D4, D0
01C540: 48C0                     ext.l   D0
01C542: 5280                     addq.l  #1, D0
01C544: E540                     asl.w   #2, D0
01C546: 41EE FFC6                lea     (-$3a,A6), A0
01C54A: D0C0                     adda.w  D0, A0
01C54C: 3404                     move.w  D4, D2
01C54E: 5242                     addq.w  #1, D2
01C550: 601E                     bra     1c570

01C552: 2013                     move.l  (A3), D0
01C554: 0280 FFFF 0000           andi.l  #$ffff0000, D0
01C55A: 2210                     move.l  (A0), D1
01C55C: 0281 FFFF 0000           andi.l  #$ffff0000, D1
01C562: B081                     cmp.l   D1, D0
01C564: 6F06                     ble     1c56c
01C566: 2013                     move.l  (A3), D0
01C568: 2690                     move.l  (A0), (A3)
01C56A: 2080                     move.l  D0, (A0)
01C56C: 5888                     addq.l  #4, A0
01C56E: 5242                     addq.w  #1, D2
01C570: 7008                     moveq   #$8, D0
01C572: B042                     cmp.w   D2, D0
01C574: 66DC                     bne     1c552
01C576: 588B                     addq.l  #4, A3
01C578: 5244                     addq.w  #1, D4
01C57A: 7007                     moveq   #$7, D0
01C57C: B044                     cmp.w   D4, D0
01C57E: 66BE                     bne     1c53e
01C580: 47EE FFC6                lea     (-$3a,A6), A3
01C584: 45EA 00A4                lea     ($a4,A2), A2
01C588: 4244                     clr.w   D4
01C58A: 224B                     movea.l A3, A1
01C58C: 588B                     addq.l  #4, A3
01C58E: 2049                     movea.l A1, A0
01C590: 588B                     addq.l  #4, A3
01C592: 3258                     movea.w (A0)+, A1
01C594: 3858                     movea.w (A0)+, A4
01C596: 3618                     move.w  (A0)+, D3
01C598: 9649                     sub.w   A1, D3
01C59A: 3C18                     move.w  (A0)+, D6
01C59C: 9C4C                     sub.w   A4, D6
01C59E: 7002                     moveq   #$2, D0
01C5A0: B043                     cmp.w   D3, D0
01C5A2: 6C02                     bge     1c5a6
01C5A4: 7602                     moveq   #$2, D3
01C5A6: 4A46                     tst.w   D6
01C5A8: 6C08                     bge     1c5b2
01C5AA: 7000                     moveq   #$0, D0
01C5AC: 3006                     move.w  D6, D0
01C5AE: 4480                     neg.l   D0
01C5B0: 6004                     bra     1c5b6
01C5B2: 7000                     moveq   #$0, D0
01C5B4: 3006                     move.w  D6, D0
01C5B6: 3A00                     move.w  D0, D5
01C5B8: 700C                     moveq   #$c, D0
01C5BA: B045                     cmp.w   D5, D0
01C5BC: 6C02                     bge     1c5c0
01C5BE: 7A0C                     moveq   #$c, D5
01C5C0: 3005                     move.w  D5, D0
01C5C2: 48C0                     ext.l   D0
01C5C4: E580                     asl.l   #2, D0
01C5C6: 3203                     move.w  D3, D1
01C5C8: 48C1                     ext.l   D1
01C5CA: 3405                     move.w  D5, D2
01C5CC: 48C2                     ext.l   D2
01C5CE: 9282                     sub.l   D2, D1
01C5D0: D081                     add.l   D1, D0
01C5D2: D040                     add.w   D0, D0
01C5D4: 207C 0002 4ADE           movea.l #$24ade, A0
01C5DA: 3230 0000                move.w  (A0,D0.w), D1
01C5DE: 4A46                     tst.w   D6
01C5E0: 6C0C                     bge     1c5ee
01C5E2: 0641 8000                addi.w  #-$8000, D1
01C5E6: 3003                     move.w  D3, D0
01C5E8: 5D40                     subq.w  #6, D0
01C5EA: D2C0                     adda.w  D0, A1
01C5EC: D8C6                     adda.w  D6, A4
01C5EE: 3549 0002                move.w  A1, ($2,A2)
01C5F2: 3005                     move.w  D5, D0
01C5F4: 207C 0002 4B2C           movea.l #$24b2c, A0
01C5FA: 1030 0000                move.b  (A0,D0.w), D0
01C5FE: 4880                     ext.w   D0
01C600: D04C                     add.w   A4, D0
01C602: 3540 0004                move.w  D0, ($4,A2)
01C606: 224A                     movea.l A2, A1
01C608: 5C8A                     addq.l  #6, A2
01C60A: 3281                     move.w  D1, (A1)
01C60C: 5244                     addq.w  #1, D4
01C60E: 7004                     moveq   #$4, D0
01C610: B044                     cmp.w   D4, D0
01C612: 6600 FF76                bne     1c58a
01C616: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
01C61A: 4E5E                     unlk    A6
01C61C: 4E75                     rts

01C61E: 48E7 3000                movem.l D2-D3, -(A7)
01C622: 322F 000E                move.w  ($e,A7), D1
01C626: 227C 0001 EE6E           movea.l #$1ee6e, A1
01C62C: 3401                     move.w  D1, D2
01C62E: 700A                     moveq   #$a, D0
01C630: E06A                     lsr.w   D0, D2
01C632: 0442 000C                subi.w  #$c, D2
01C636: 3601                     move.w  D1, D3
01C638: 0243 03FF                andi.w  #$3ff, D3
01C63C: 3002                     move.w  D2, D0
01C63E: 48C0                     ext.l   D0
01C640: 5280                     addq.l  #1, D0
01C642: D080                     add.l   D0, D0
01C644: 2049                     movea.l A1, A0
01C646: 3230 0800                move.w  (A0,D0.l), D1
01C64A: 3002                     move.w  D2, D0
01C64C: 48C0                     ext.l   D0
01C64E: D080                     add.l   D0, D0
01C650: 2049                     movea.l A1, A0
01C652: 9270 0800                sub.w   (A0,D0.l), D1
01C656: 3003                     move.w  D3, D0
01C658: C1C1                     muls.w  D1, D0
01C65A: 2200                     move.l  D0, D1
01C65C: 700A                     moveq   #$a, D0
01C65E: E0A1                     asr.l   D0, D1
01C660: 3002                     move.w  D2, D0
01C662: 48C0                     ext.l   D0
01C664: D080                     add.l   D0, D0
01C666: 2049                     movea.l A1, A0
01C668: D270 0800                add.w   (A0,D0.l), D1
01C66C: 3001                     move.w  D1, D0
01C66E: 48C0                     ext.l   D0
01C670: 4CDF 000C                movem.l (A7)+, D2-D3
01C674: 4E75                     rts

01C676: 48E7 203C                movem.l D2/A2-A5, -(A7)
01C67A: 287C 0040 066A           movea.l #$40066a, A4
01C680: 223C 0040 0694           move.l  #$400694, D1
01C686: 243C 0040 066C           move.l  #$40066c, D2
01C68C: 227C 0040 1C28           movea.l #$401c28, A1
01C692: 247C 0040 1C30           movea.l #$401c30, A2
01C698: 267C 0040 1C38           movea.l #$401c38, A3
01C69E: 207C 0040 1C40           movea.l #$401c40, A0
01C6A4: 4200                     clr.b   D0
01C6A6: 1880                     move.b  D0, (A4)
01C6A8: 13C0 0040 0672           move.b  D0, $400672.l
01C6AE: 13C0 0040 0670           move.b  D0, $400670.l
01C6B4: 13C0 0040 066E           move.b  D0, $40066e.l
01C6BA: 2A42                     movea.l D2, A5
01C6BC: 1A80                     move.b  D0, (A5)
01C6BE: 3029 0004                move.w  ($4,A1), D0
01C6C2: B069 0006                cmp.w   ($6,A1), D0
01C6C6: 6600 000C                bne     1c6d4
01C6CA: 3028 0002                move.w  ($2,A0), D0
01C6CE: B050                     cmp.w   (A0), D0
01C6D0: 6700 0082                beq     1c754
01C6D4: 3029 0004                move.w  ($4,A1), D0
01C6D8: B069 0006                cmp.w   ($6,A1), D0
01C6DC: 6D00 000A                blt     1c6e8
01C6E0: 3028 0002                move.w  ($2,A0), D0
01C6E4: B050                     cmp.w   (A0), D0
01C6E6: 6C0E                     bge     1c6f6
01C6E8: 2A42                     movea.l D2, A5
01C6EA: 1ABC 0001                move.b  #$1, (A5)
01C6EE: 33D0 0040 0674           move.w  (A0), $400674.l
01C6F4: 600E                     bra     1c704

01C6F6: 2A42                     movea.l D2, A5
01C6F8: 1ABC 0003                move.b  #$3, (A5)
01C6FC: 33E8 0002 0040 0674      move.w  ($2,A0), $400674.l
01C704: 3010                     move.w  (A0), D0
01C706: B069 0006                cmp.w   ($6,A1), D0
01C70A: 6604                     bne     1c710
01C70C: 2A42                     movea.l D2, A5
01C70E: 5215                     addq.b  #1, (A5)
01C710: C58D                     exg     D2, A5
01C712: 0C15 0001                cmpi.b  #$1, (A5)
01C716: C58D                     exg     D2, A5
01C718: 6618                     bne     1c732
01C71A: 3029 0006                move.w  ($6,A1), D0
01C71E: 9050                     sub.w   (A0), D0
01C720: C1F9 0040 06A0           muls.w  $4006a0.l, D0
01C726: 5880                     addq.l  #4, D0
01C728: E680                     asr.l   #3, D0
01C72A: D179 0040 0674           add.w   D0, $400674.l
01C730: 6022                     bra     1c754

01C732: C58D                     exg     D2, A5
01C734: 0C15 0003                cmpi.b  #$3, (A5)
01C738: C58D                     exg     D2, A5
01C73A: 6618                     bne     1c754
01C73C: 3029 0004                move.w  ($4,A1), D0
01C740: 9068 0002                sub.w   ($2,A0), D0
01C744: C1F9 0040 06A0           muls.w  $4006a0.l, D0
01C74A: 5880                     addq.l  #4, D0
01C74C: E680                     asr.l   #3, D0
01C74E: D179 0040 0674           add.w   D0, $400674.l
01C754: 3029 0004                move.w  ($4,A1), D0
01C758: B069 0002                cmp.w   ($2,A1), D0
01C75C: 6600 000C                bne     1c76a
01C760: 302A 0006                move.w  ($6,A2), D0
01C764: B052                     cmp.w   (A2), D0
01C766: 6700 008A                beq     1c7f2
01C76A: 3029 0004                move.w  ($4,A1), D0
01C76E: B069 0002                cmp.w   ($2,A1), D0
01C772: 6D00 000A                blt     1c77e
01C776: 302A 0006                move.w  ($6,A2), D0
01C77A: B052                     cmp.w   (A2), D0
01C77C: 6C12                     bge     1c790
01C77E: 13FC 0001 0040 066E      move.b  #$1, $40066e.l
01C786: 33E9 0002 0040 0676      move.w  ($2,A1), $400676.l
01C78E: 6010                     bra     1c7a0
01C790: 13FC 0003 0040 066E      move.b  #$3, $40066e.l
01C798: 33E9 0004 0040 0676      move.w  ($4,A1), $400676.l
01C7A0: 3012                     move.w  (A2), D0
01C7A2: B069 0002                cmp.w   ($2,A1), D0
01C7A6: 6606                     bne     1c7ae
01C7A8: 5239 0040 066E           addq.b  #1, $40066e.l
01C7AE: 0C39 0001 0040 066E      cmpi.b  #$1, $40066e.l
01C7B6: 6618                     bne     1c7d0
01C7B8: 3012                     move.w  (A2), D0
01C7BA: 9069 0002                sub.w   ($2,A1), D0
01C7BE: C1F9 0040 069E           muls.w  $40069e.l, D0
01C7C4: 5880                     addq.l  #4, D0
01C7C6: E680                     asr.l   #3, D0
01C7C8: D179 0040 0676           add.w   D0, $400676.l
01C7CE: 6022                     bra     1c7f2
01C7D0: 0C39 0003 0040 066E      cmpi.b  #$3, $40066e.l
01C7D8: 6618                     bne     1c7f2
01C7DA: 302A 0006                move.w  ($6,A2), D0
01C7DE: 9069 0004                sub.w   ($4,A1), D0
01C7E2: C1F9 0040 069E           muls.w  $40069e.l, D0
01C7E8: 5880                     addq.l  #4, D0
01C7EA: E680                     asr.l   #3, D0
01C7EC: D179 0040 0676           add.w   D0, $400676.l
01C7F2: 3013                     move.w  (A3), D0
01C7F4: B06B 0002                cmp.w   ($2,A3), D0
01C7F8: 6600 000E                bne     1c808
01C7FC: 302A 0006                move.w  ($6,A2), D0
01C800: B06A 0004                cmp.w   ($4,A2), D0
01C804: 6700 008C                beq     1c892
01C808: 3013                     move.w  (A3), D0
01C80A: B06B 0002                cmp.w   ($2,A3), D0
01C80E: 6D00 000C                blt     1c81c
01C812: 302A 0006                move.w  ($6,A2), D0
01C816: B06A 0004                cmp.w   ($4,A2), D0
01C81A: 6C12                     bge     1c82e
01C81C: 13FC 0001 0040 0670      move.b  #$1, $400670.l
01C824: 33EA 0004 0040 0678      move.w  ($4,A2), $400678.l
01C82C: 6010                     bra     1c83e
01C82E: 13FC 0003 0040 0670      move.b  #$3, $400670.l
01C836: 33EA 0006 0040 0678      move.w  ($6,A2), $400678.l
01C83E: 302A 0004                move.w  ($4,A2), D0
01C842: B06B 0002                cmp.w   ($2,A3), D0
01C846: 6606                     bne     1c84e
01C848: 5239 0040 0670           addq.b  #1, $400670.l
01C84E: 0C39 0001 0040 0670      cmpi.b  #$1, $400670.l
01C856: 661A                     bne     1c872
01C858: 302A 0004                move.w  ($4,A2), D0
01C85C: 906B 0002                sub.w   ($2,A3), D0
01C860: C1F9 0040 06A0           muls.w  $4006a0.l, D0
01C866: 5880                     addq.l  #4, D0
01C868: E680                     asr.l   #3, D0
01C86A: D179 0040 0678           add.w   D0, $400678.l
01C870: 6020                     bra     1c892
01C872: 0C39 0003 0040 0670      cmpi.b  #$3, $400670.l
01C87A: 6616                     bne     1c892
01C87C: 302A 0006                move.w  ($6,A2), D0
01C880: 9053                     sub.w   (A3), D0
01C882: C1F9 0040 06A0           muls.w  $4006a0.l, D0
01C888: 5880                     addq.l  #4, D0
01C88A: E680                     asr.l   #3, D0
01C88C: D179 0040 0678           add.w   D0, $400678.l
01C892: 3013                     move.w  (A3), D0
01C894: B06B 0006                cmp.w   ($6,A3), D0
01C898: 6600 000E                bne     1c8a8
01C89C: 3028 0002                move.w  ($2,A0), D0
01C8A0: B068 0004                cmp.w   ($4,A0), D0
01C8A4: 6700 008A                beq     1c930
01C8A8: 3013                     move.w  (A3), D0
01C8AA: B06B 0006                cmp.w   ($6,A3), D0
01C8AE: 6D00 000C                blt     1c8bc
01C8B2: 3028 0002                move.w  ($2,A0), D0
01C8B6: B068 0004                cmp.w   ($4,A0), D0
01C8BA: 6C12                     bge     1c8ce
01C8BC: 13FC 0001 0040 0672      move.b  #$1, $400672.l
01C8C4: 33EB 0006 0040 067A      move.w  ($6,A3), $40067a.l
01C8CC: 600E                     bra     1c8dc
01C8CE: 13FC 0003 0040 0672      move.b  #$3, $400672.l
01C8D6: 33D3 0040 067A           move.w  (A3), $40067a.l
01C8DC: 3028 0004                move.w  ($4,A0), D0
01C8E0: B06B 0006                cmp.w   ($6,A3), D0
01C8E4: 6606                     bne     1c8ec
01C8E6: 5239 0040 0672           addq.b  #1, $400672.l
01C8EC: 0C39 0001 0040 0672      cmpi.b  #$1, $400672.l
01C8F4: 661A                     bne     1c910
01C8F6: 302B 0006                move.w  ($6,A3), D0
01C8FA: 9068 0004                sub.w   ($4,A0), D0
01C8FE: C1F9 0040 069E           muls.w  $40069e.l, D0
01C904: 5880                     addq.l  #4, D0
01C906: E680                     asr.l   #3, D0
01C908: D179 0040 067A           add.w   D0, $40067a.l
01C90E: 6020                     bra     1c930
01C910: 0C39 0003 0040 0672      cmpi.b  #$3, $400672.l
01C918: 6616                     bne     1c930
01C91A: 3013                     move.w  (A3), D0
01C91C: 9068 0002                sub.w   ($2,A0), D0
01C920: C1F9 0040 069E           muls.w  $40069e.l, D0
01C926: 5880                     addq.l  #4, D0
01C928: E680                     asr.l   #3, D0
01C92A: D179 0040 067A           add.w   D0, $40067a.l
01C930: 3029 0004                move.w  ($4,A1), D0
01C934: B051                     cmp.w   (A1), D0
01C936: 6C1A                     bge     1c952
01C938: 3029 0006                move.w  ($6,A1), D0
01C93C: B051                     cmp.w   (A1), D0
01C93E: 6C12                     bge     1c952
01C940: 3029 0002                move.w  ($2,A1), D0
01C944: B051                     cmp.w   (A1), D0
01C946: 6C0A                     bge     1c952
01C948: 0014 0001                ori.b   #$1, (A4)
01C94C: 33D1 0040 067C           move.w  (A1), $40067c.l
01C952: 302A 0006                move.w  ($6,A2), D0
01C956: B06A 0002                cmp.w   ($2,A2), D0
01C95A: 6C1E                     bge     1c97a
01C95C: 3012                     move.w  (A2), D0
01C95E: B06A 0002                cmp.w   ($2,A2), D0
01C962: 6C16                     bge     1c97a
01C964: 302A 0004                move.w  ($4,A2), D0
01C968: B06A 0002                cmp.w   ($2,A2), D0
01C96C: 6C0C                     bge     1c97a
01C96E: 0014 0002                ori.b   #$2, (A4)
01C972: 33EA 0002 0040 067E      move.w  ($2,A2), $40067e.l
01C97A: 3013                     move.w  (A3), D0
01C97C: B06B 0004                cmp.w   ($4,A3), D0
01C980: 6C20                     bge     1c9a2
01C982: 302B 0002                move.w  ($2,A3), D0
01C986: B06B 0004                cmp.w   ($4,A3), D0
01C98A: 6C16                     bge     1c9a2
01C98C: 302B 0006                move.w  ($6,A3), D0
01C990: B06B 0004                cmp.w   ($4,A3), D0
01C994: 6C0C                     bge     1c9a2
01C996: 0014 0004                ori.b   #$4, (A4)
01C99A: 33EB 0004 0040 0680      move.w  ($4,A3), $400680.l
01C9A2: 3028 0002                move.w  ($2,A0), D0
01C9A6: B068 0006                cmp.w   ($6,A0), D0
01C9AA: 6C1E                     bge     1c9ca
01C9AC: 3028 0004                move.w  ($4,A0), D0
01C9B0: B068 0006                cmp.w   ($6,A0), D0
01C9B4: 6C14                     bge     1c9ca
01C9B6: 3010                     move.w  (A0), D0
01C9B8: B068 0006                cmp.w   ($6,A0), D0
01C9BC: 6C0C                     bge     1c9ca
01C9BE: 0014 0008                ori.b   #$8, (A4)
01C9C2: 33E8 0006 0040 0682      move.w  ($6,A0), $400682.l
01C9CA: 3011                     move.w  (A1), D0
01C9CC: B069 0004                cmp.w   ($4,A1), D0
01C9D0: 6C20                     bge     1c9f2
01C9D2: 3029 0006                move.w  ($6,A1), D0
01C9D6: B069 0004                cmp.w   ($4,A1), D0
01C9DA: 6C16                     bge     1c9f2
01C9DC: 3029 0002                move.w  ($2,A1), D0
01C9E0: B069 0004                cmp.w   ($4,A1), D0
01C9E4: 6C0C                     bge     1c9f2
01C9E6: 0014 0010                ori.b   #$10, (A4)
01C9EA: 33E9 0004 0040 067C      move.w  ($4,A1), $40067c.l
01C9F2: 302A 0002                move.w  ($2,A2), D0
01C9F6: B06A 0006                cmp.w   ($6,A2), D0
01C9FA: 6C1E                     bge     1ca1a
01C9FC: 3012                     move.w  (A2), D0
01C9FE: B06A 0006                cmp.w   ($6,A2), D0
01CA02: 6C16                     bge     1ca1a
01CA04: 302A 0004                move.w  ($4,A2), D0
01CA08: B06A 0006                cmp.w   ($6,A2), D0
01CA0C: 6C0C                     bge     1ca1a
01CA0E: 0014 0020                ori.b   #$20, (A4)
01CA12: 33EA 0006 0040 067E      move.w  ($6,A2), $40067e.l
01CA1A: 302B 0004                move.w  ($4,A3), D0
01CA1E: B053                     cmp.w   (A3), D0
01CA20: 6C1A                     bge     1ca3c
01CA22: 302B 0002                move.w  ($2,A3), D0
01CA26: B053                     cmp.w   (A3), D0
01CA28: 6C12                     bge     1ca3c
01CA2A: 302B 0006                move.w  ($6,A3), D0
01CA2E: B053                     cmp.w   (A3), D0
01CA30: 6C0A                     bge     1ca3c
01CA32: 0014 0040                ori.b   #$40, (A4)
01CA36: 33D3 0040 0680           move.w  (A3), $400680.l
01CA3C: 3028 0006                move.w  ($6,A0), D0
01CA40: B068 0002                cmp.w   ($2,A0), D0
01CA44: 6C1E                     bge     1ca64
01CA46: 3028 0004                move.w  ($4,A0), D0
01CA4A: B068 0002                cmp.w   ($2,A0), D0
01CA4E: 6C14                     bge     1ca64
01CA50: 3010                     move.w  (A0), D0
01CA52: B068 0002                cmp.w   ($2,A0), D0
01CA56: 6C0C                     bge     1ca64
01CA58: 0014 0080                ori.b   #$80, (A4)
01CA5C: 33E8 0002 0040 0682      move.w  ($2,A0), $400682.l
01CA64: 2A41                     movea.l D1, A5
01CA66: 3015                     move.w  (A5), D0
01CA68: 9179 0040 0674           sub.w   D0, $400674.l
01CA6E: 2A41                     movea.l D1, A5
01CA70: 3015                     move.w  (A5), D0
01CA72: 9179 0040 0676           sub.w   D0, $400676.l
01CA78: 2A41                     movea.l D1, A5
01CA7A: 3015                     move.w  (A5), D0
01CA7C: 9179 0040 0678           sub.w   D0, $400678.l
01CA82: 2A41                     movea.l D1, A5
01CA84: 3015                     move.w  (A5), D0
01CA86: 9179 0040 067A           sub.w   D0, $40067a.l
01CA8C: 2A41                     movea.l D1, A5
01CA8E: 3015                     move.w  (A5), D0
01CA90: 9179 0040 067C           sub.w   D0, $40067c.l
01CA96: 2A41                     movea.l D1, A5
01CA98: 3015                     move.w  (A5), D0
01CA9A: 9179 0040 067E           sub.w   D0, $40067e.l
01CAA0: 2A41                     movea.l D1, A5
01CAA2: 3015                     move.w  (A5), D0
01CAA4: 9179 0040 0680           sub.w   D0, $400680.l
01CAAA: 2A41                     movea.l D1, A5
01CAAC: 3015                     move.w  (A5), D0
01CAAE: 9179 0040 0682           sub.w   D0, $400682.l
01CAB4: 4CDF 3C04                movem.l (A7)+, D2/A2-A5
01CAB8: 4E75                     rts
01CABA: 48E7 3E3E                movem.l D2-D6/A2-A6, -(A7)
01CABE: 2A7C 0040 1C28           movea.l #$401c28, A5
01CAC4: 207C 0040 0474           movea.l #$400474, A0
01CACA: 247C 0001 ED62           movea.l #$1ed62, A2
01CAD0: 2250                     movea.l (A0), A1
01CAD2: 3039 0040 0696           move.w  $400696.l, D0
01CAD8: 3839 0040 0698           move.w  $400698.l, D4
01CADE: 5244                     addq.w  #1, D4
01CAE0: D840                     add.w   D0, D4
01CAE2: 0444 0015                subi.w  #$15, D4
01CAE6: 48C4                     ext.l   D4
01CAE8: 3C3C 0015                move.w  #$15, D6
01CAEC: 9C40                     sub.w   D0, D6
01CAEE: 3004                     move.w  D4, D0
01CAF0: E240                     asr.w   #1, D0
01CAF2: DC40                     add.w   D0, D6
01CAF4: 4DF9 0002 4B3A           lea     $24b3a.l, A6
01CAFA: 0804 0000                btst    #$0, D4
01CAFE: 6704                     beq     1cb04
01CB00: 4DEE 0012                lea     ($12,A6), A6
01CB04: 49F9 0040 0478           lea     $400478.l, A4
01CB0A: D9C4                     adda.l  D4, A4
01CB0C: D9C4                     adda.l  D4, A4
01CB0E: 3429 0018                move.w  ($18,A1), D2
01CB12: 4243                     clr.w   D3
01CB14: 4A44                     tst.w   D4
01CB16: 6B00 012A                bmi     1cc42
01CB1A: B444                     cmp.w   D4, D2
01CB1C: 6F00 0124                ble     1cc42
01CB20: 3006                     move.w  D6, D0
01CB22: 7200                     moveq   #$0, D1
01CB24: 1204                     move.b  D4, D1
01CB26: 0881 0000                bclr    #$0, D1
01CB2A: 6704                     beq     1cb30
01CB2C: 0640 0016                addi.w  #$16, D0
01CB30: 41F9 0001 EB3A           lea     $1eb3a.l, A0
01CB36: 267C 00A0 0000           movea.l #$a00000, A3
01CB3C: D6F0 1000                adda.w  (A0,D1.w), A3
01CB40: 41F9 0001 ED0A           lea     $1ed0a.l, A0
01CB46: 1230 0000                move.b  (A0,D0.w), D1
01CB4A: 5581                     subq.l  #2, D1
01CB4C: D7C1                     adda.l  D1, A3
01CB4E: 2213                     move.l  (A3), D1
01CB50: 1030 002C                move.b  ($2c,A0,D0.w), D0
01CB54: E0A9                     lsr.l   D0, D1
01CB56: 0241 07FE                andi.w  #$7fe, D1
01CB5A: 2079 0040 065A           movea.l $40065a.l, A0
01CB60: 3030 1000                move.w  (A0,D1.w), D0
01CB64: 0C40 1000                cmpi.w  #$1000, D0
01CB68: 6466                     bcc     1cbd0
01CB6A: 0C40 0800                cmpi.w  #$800, D0
01CB6E: 6450                     bcc     1cbc0
01CB70: 4A40                     tst.w   D0
01CB72: 6700 00CE                beq     1cc42
01CB76: 48C0                     ext.l   D0
01CB78: 2040                     movea.l D0, A0
01CB7A: D1D1                     adda.l  (A1), A0
01CB7C: 3214                     move.w  (A4), D1
01CB7E: 0441 0080                subi.w  #$80, D1
01CB82: 4240                     clr.w   D0
01CB84: 1018                     move.b  (A0)+, D0
01CB86: 6604                     bne     1cb8c
01CB88: 425D                     clr.w   (A5)+
01CB8A: 6004                     bra     1cb90
01CB8C: D041                     add.w   D1, D0
01CB8E: 3AC0                     move.w  D0, (A5)+
01CB90: 4240                     clr.w   D0
01CB92: 1018                     move.b  (A0)+, D0
01CB94: 6604                     bne     1cb9a
01CB96: 425D                     clr.w   (A5)+
01CB98: 6004                     bra     1cb9e
01CB9A: D041                     add.w   D1, D0
01CB9C: 3AC0                     move.w  D0, (A5)+
01CB9E: 4240                     clr.w   D0
01CBA0: 1018                     move.b  (A0)+, D0
01CBA2: 6604                     bne     1cba8
01CBA4: 425D                     clr.w   (A5)+
01CBA6: 6004                     bra     1cbac
01CBA8: D041                     add.w   D1, D0
01CBAA: 3AC0                     move.w  D0, (A5)+
01CBAC: 4240                     clr.w   D0
01CBAE: 1010                     move.b  (A0), D0
01CBB0: 6606                     bne     1cbb8
01CBB2: 425D                     clr.w   (A5)+
01CBB4: 6000 0090                bra     1cc46
01CBB8: D041                     add.w   D1, D0
01CBBA: 3AC0                     move.w  D0, (A5)+
01CBBC: 6000 0088                bra     1cc46
01CBC0: 0240 07FE                andi.w  #$7fe, D0
01CBC4: 41F9 0040 076E           lea     $40076e.l, A0
01CBCA: 3030 0000                move.w  (A0,D0.w), D0
01CBCE: 6094                     bra     1cb64
01CBD0: 0C40 F000                cmpi.w  #-$1000, D0
01CBD4: 6458                     bcc     1cc2e
01CBD6: 3A00                     move.w  D0, D5
01CBD8: 3200                     move.w  D0, D1
01CBDA: 0240 007F                andi.w  #$7f, D0
01CBDE: 0440 0040                subi.w  #$40, D0
01CBE2: D054                     add.w   (A4), D0
01CBE4: EC41                     asr.w   #6, D1
01CBE6: 0241 003E                andi.w  #$3e, D1
01CBEA: 3232 1000                move.w  (A2,D1.w), D1
01CBEE: 0C41 1000                cmpi.w  #$1000, D1
01CBF2: 6706                     beq     1cbfa
01CBF4: 4441                     neg.w   D1
01CBF6: D240                     add.w   D0, D1
01CBF8: 6002                     bra     1cbfc
01CBFA: 4241                     clr.w   D1
01CBFC: 0805 000C                btst    #$c, D5
01CC00: 6704                     beq     1cc06
01CC02: 3AC0                     move.w  D0, (A5)+
01CC04: 6002                     bra     1cc08
01CC06: 3AC1                     move.w  D1, (A5)+
01CC08: 0805 000D                btst    #$d, D5
01CC0C: 6704                     beq     1cc12
01CC0E: 3AC0                     move.w  D0, (A5)+
01CC10: 6002                     bra     1cc14
01CC12: 3AC1                     move.w  D1, (A5)+
01CC14: 0805 000E                btst    #$e, D5
01CC18: 6704                     beq     1cc1e
01CC1A: 3AC0                     move.w  D0, (A5)+
01CC1C: 6002                     bra     1cc20
01CC1E: 3AC1                     move.w  D1, (A5)+
01CC20: 0805 000F                btst    #$f, D5
01CC24: 6704                     beq     1cc2a
01CC26: 3AC0                     move.w  D0, (A5)+
01CC28: 601C                     bra     1cc46
01CC2A: 3AC1                     move.w  D1, (A5)+
01CC2C: 6018                     bra     1cc46
01CC2E: 0240 007F                andi.w  #$7f, D0
01CC32: 0440 0040                subi.w  #$40, D0
01CC36: D054                     add.w   (A4), D0
01CC38: 3AC0                     move.w  D0, (A5)+
01CC3A: 3AC0                     move.w  D0, (A5)+
01CC3C: 3AC0                     move.w  D0, (A5)+
01CC3E: 3AC0                     move.w  D0, (A5)+
01CC40: 6004                     bra     1cc46
01CC42: 429D                     clr.l   (A5)+
01CC44: 429D                     clr.l   (A5)+
01CC46: DC5E                     add.w   (A6)+, D6
01CC48: 301E                     move.w  (A6)+, D0
01CC4A: D840                     add.w   D0, D4
01CC4C: D040                     add.w   D0, D0
01CC4E: D8C0                     adda.w  D0, A4
01CC50: DADE                     adda.w  (A6)+, A5
01CC52: 5243                     addq.w  #1, D3
01CC54: 0C43 0004                cmpi.w  #$4, D3
01CC58: 6600 FEBA                bne     1cb14
01CC5C: 4CDF 7C7C                movem.l (A7)+, D2-D6/A2-A6
01CC60: 4E75                     rts
01CC62: 48E7 383C                movem.l D2-D4/A2-A5, -(A7)
01CC66: 102F 0023                move.b  ($23,A7), D0
01CC6A: 227C 0040 1C28           movea.l #$401c28, A1
01CC70: 287C 0040 06A6           movea.l #$4006a6, A4
01CC76: 267C 0040 06A4           movea.l #$4006a4, A3
01CC7C: 2409                     move.l  A1, D2
01CC7E: 41E9 0008                lea     ($8,A1), A0
01CC82: 2608                     move.l  A0, D3
01CC84: 41E9 0010                lea     ($10,A1), A0
01CC88: 2808                     move.l  A0, D4
01CC8A: 45E9 0018                lea     ($18,A1), A2
01CC8E: 4A00                     tst.b   D0
01CC90: 6706                     beq     1cc98
01CC92: 4EB9 0001 CABA           jsr     $1caba.l
01CC98: 4A79 0040 06A2           tst.w   $4006a2.l
01CC9E: 671C                     beq     1ccbc
01CCA0: 2A43                     movea.l D3, A5
01CCA2: 302D 0006                move.w  ($6,A5), D0
01CCA6: 2A42                     movea.l D2, A5
01CCA8: 906D 0004                sub.w   ($4,A5), D0
01CCAC: 3680                     move.w  D0, (A3)
01CCAE: 2A42                     movea.l D2, A5
01CCB0: 302D 0004                move.w  ($4,A5), D0
01CCB4: 906A 0002                sub.w   ($2,A2), D0
01CCB8: 3880                     move.w  D0, (A4)
01CCBA: 6016                     bra     1ccd2
01CCBC: 2A44                     movea.l D4, A5
01CCBE: 3015                     move.w  (A5), D0
01CCC0: 906A 0002                sub.w   ($2,A2), D0
01CCC4: 3680                     move.w  D0, (A3)
01CCC6: 2A43                     movea.l D3, A5
01CCC8: 302D 0006                move.w  ($6,A5), D0
01CCCC: 2A44                     movea.l D4, A5
01CCCE: 9055                     sub.w   (A5), D0
01CCD0: 3880                     move.w  D0, (A4)
01CCD2: 302A 0002                move.w  ($2,A2), D0
01CCD6: 48C0                     ext.l   D0
01CCD8: 2400                     move.l  D0, D2
01CCDA: 7010                     moveq   #$10, D0
01CCDC: E1A2                     asl.l   D0, D2
01CCDE: 3014                     move.w  (A4), D0
01CCE0: C1F9 0040 06A0           muls.w  $4006a0.l, D0
01CCE6: 2200                     move.l  D0, D1
01CCE8: 3013                     move.w  (A3), D0
01CCEA: C1F9 0040 069E           muls.w  $40069e.l, D0
01CCF0: D280                     add.l   D0, D1
01CCF2: 700D                     moveq   #$d, D0
01CCF4: E1A1                     asl.l   D0, D1
01CCF6: D481                     add.l   D1, D2
01CCF8: 2002                     move.l  D2, D0
01CCFA: 4CDF 3C1C                movem.l (A7)+, D2-D4/A2-A5
01CCFE: 4E75                     rts
01CD00: 4E56 FFE6                link    A6, #-$1a
01CD04: 48E7 3F3C                movem.l D2-D7/A2-A5, -(A7)
01CD08: 246E 0008                movea.l ($8,A6), A2
01CD0C: 226E 000C                movea.l ($c,A6), A1
01CD10: 122E 0013                move.b  ($13,A6), D1
01CD14: 287C 0040 068C           movea.l #$40068c, A4
01CD1A: 243C 0040 0688           move.l  #$400688, D2
01CD20: 267C 0040 0684           movea.l #$400684, A3
01CD26: 0C01 00FF                cmpi.b  #-$1, D1
01CD2A: 6606                     bne     1cd32
01CD2C: 7000                     moveq   #$0, D0
01CD2E: 6000 0332                bra     1d062
01CD32: 2D52 FFE6                move.l  (A2), (-$1a,A6)
01CD36: 2D6A 0004 FFEA           move.l  ($4,A2), (-$16,A6)
01CD3C: 2D6A 0008 FFEE           move.l  ($8,A2), (-$12,A6)
01CD42: 41E9 000C                lea     ($c,A1), A0
01CD46: 3010                     move.w  (A0), D0
01CD48: 48C0                     ext.l   D0
01CD4A: 5080                     addq.l  #8, D0
01CD4C: 3D40 FFFC                move.w  D0, (-$4,A6)
01CD50: 3D6E FFFC FFF8           move.w  (-$4,A6), (-$8,A6)
01CD56: 41E9 0010                lea     ($10,A1), A0
01CD5A: 3010                     move.w  (A0), D0
01CD5C: 48C0                     ext.l   D0
01CD5E: 5080                     addq.l  #8, D0
01CD60: 3D40 FFFA                move.w  D0, (-$6,A6)
01CD64: 3D6E FFFA FFF6           move.w  (-$6,A6), (-$a,A6)
01CD6A: 41E9 0014                lea     ($14,A1), A0
01CD6E: 3250                     movea.w (A0), A1
01CD70: 3D49 FFF4                move.w  A1, (-$c,A6)
01CD74: 3E2E FFFC                move.w  (-$4,A6), D7
01CD78: 9E79 0040 0690           sub.w   $400690.l, D7
01CD7E: 3D47 FFFC                move.w  D7, (-$4,A6)
01CD82: 3E2E FFFA                move.w  (-$6,A6), D7
01CD86: 9E79 0040 0692           sub.w   $400692.l, D7
01CD8C: 3D47 FFFA                move.w  D7, (-$6,A6)
01CD90: 92F9 0040 0694           suba.w  $400694.l, A1
01CD96: 204B                     movea.l A3, A0
01CD98: 3E2E FFF8                move.w  (-$8,A6), D7
01CD9C: 9E50                     sub.w   (A0), D7
01CD9E: 3D47 FFF8                move.w  D7, (-$8,A6)
01CDA2: 2A42                     movea.l D2, A5
01CDA4: 204D                     movea.l A5, A0
01CDA6: 3E2E FFF6                move.w  (-$a,A6), D7
01CDAA: 9E50                     sub.w   (A0), D7
01CDAC: 3D47 FFF6                move.w  D7, (-$a,A6)
01CDB0: 204C                     movea.l A4, A0
01CDB2: 3E2E FFF4                move.w  (-$c,A6), D7
01CDB6: 9E50                     sub.w   (A0), D7
01CDB8: 3D47 FFF4                move.w  D7, (-$c,A6)
01CDBC: 1001                     move.b  D1, D0
01CDBE: 4880                     ext.w   D0
01CDC0: E540                     asl.w   #2, D0
01CDC2: 207C 0002 4C5E           movea.l #$24c5e, A0
01CDC8: 2070 0000                movea.l (A0,D0.w), A0
01CDCC: 3D50 FFFE                move.w  (A0), (-$2,A6)
01CDD0: 426E FFF2                clr.w   (-$e,A6)
01CDD4: 0C6E 0800 FFFE           cmpi.w  #$800, (-$2,A6)
01CDDA: 6F0A                     ble     1cde6
01CDDC: 046E 1000 FFFE           subi.w  #$1000, (-$2,A6)
01CDE2: 526E FFF2                addq.w  #1, (-$e,A6)
01CDE6: 4203                     clr.b   D3
01CDE8: 1028 0006                move.b  ($6,A0), D0
01CDEC: 4880                     ext.w   D0
01CDEE: B06E FFFC                cmp.w   (-$4,A6), D0
01CDF2: 6E3A                     bgt     1ce2e
01CDF4: 1028 0007                move.b  ($7,A0), D0
01CDF8: 4880                     ext.w   D0
01CDFA: B06E FFFC                cmp.w   (-$4,A6), D0
01CDFE: 6D2E                     blt     1ce2e
01CE00: 1028 0008                move.b  ($8,A0), D0
01CE04: 4880                     ext.w   D0
01CE06: B06E FFFA                cmp.w   (-$6,A6), D0
01CE0A: 6E22                     bgt     1ce2e
01CE0C: 1028 0009                move.b  ($9,A0), D0
01CE10: 4880                     ext.w   D0
01CE12: B06E FFFA                cmp.w   (-$6,A6), D0
01CE16: 6D16                     blt     1ce2e
01CE18: 1028 000A                move.b  ($a,A0), D0
01CE1C: 4880                     ext.w   D0
01CE1E: B049                     cmp.w   A1, D0
01CE20: 6E0C                     bgt     1ce2e
01CE22: 1028 000B                move.b  ($b,A0), D0
01CE26: 4880                     ext.w   D0
01CE28: B049                     cmp.w   A1, D0
01CE2A: 6D02                     blt     1ce2e
01CE2C: 7601                     moveq   #$1, D3
01CE2E: 4201                     clr.b   D1
01CE30: 1028 0006                move.b  ($6,A0), D0
01CE34: 4880                     ext.w   D0
01CE36: B06E FFF8                cmp.w   (-$8,A6), D0
01CE3A: 6E3E                     bgt     1ce7a
01CE3C: 1028 0007                move.b  ($7,A0), D0
01CE40: 4880                     ext.w   D0
01CE42: B06E FFF8                cmp.w   (-$8,A6), D0
01CE46: 6D32                     blt     1ce7a
01CE48: 1028 0008                move.b  ($8,A0), D0
01CE4C: 4880                     ext.w   D0
01CE4E: B06E FFF6                cmp.w   (-$a,A6), D0
01CE52: 6E26                     bgt     1ce7a
01CE54: 1028 0009                move.b  ($9,A0), D0
01CE58: 4880                     ext.w   D0
01CE5A: B06E FFF6                cmp.w   (-$a,A6), D0
01CE5E: 6D1A                     blt     1ce7a
01CE60: 1028 000A                move.b  ($a,A0), D0
01CE64: 4880                     ext.w   D0
01CE66: B06E FFF4                cmp.w   (-$c,A6), D0
01CE6A: 6E0E                     bgt     1ce7a
01CE6C: 1028 000B                move.b  ($b,A0), D0
01CE70: 4880                     ext.w   D0
01CE72: B06E FFF4                cmp.w   (-$c,A6), D0
01CE76: 6D02                     blt     1ce7a
01CE78: 7201                     moveq   #$1, D1
01CE7A: 4A01                     tst.b   D1
01CE7C: 6606                     bne     1ce84
01CE7E: 4A03                     tst.b   D3
01CE80: 6700 01D2                beq     1d054
01CE84: 362E FFFC                move.w  (-$4,A6), D3
01CE88: 1028 000C                move.b  ($c,A0), D0
01CE8C: 4880                     ext.w   D0
01CE8E: 9640                     sub.w   D0, D3
01CE90: 382E FFFA                move.w  (-$6,A6), D4
01CE94: 1028 000D                move.b  ($d,A0), D0
01CE98: 4880                     ext.w   D0
01CE9A: 9840                     sub.w   D0, D4
01CE9C: 3209                     move.w  A1, D1
01CE9E: 1028 000E                move.b  ($e,A0), D0
01CEA2: 4880                     ext.w   D0
01CEA4: 9240                     sub.w   D0, D1
01CEA6: 3028 0004                move.w  ($4,A0), D0
01CEAA: C1C1                     muls.w  D1, D0
01CEAC: 2A00                     move.l  D0, D5
01CEAE: 3228 0002                move.w  ($2,A0), D1
01CEB2: C3C4                     muls.w  D4, D1
01CEB4: 302E FFFE                move.w  (-$2,A6), D0
01CEB8: C1C3                     muls.w  D3, D0
01CEBA: D280                     add.l   D0, D1
01CEBC: DA81                     add.l   D1, D5
01CEBE: 362E FFF8                move.w  (-$8,A6), D3
01CEC2: 1028 000C                move.b  ($c,A0), D0
01CEC6: 4880                     ext.w   D0
01CEC8: 9640                     sub.w   D0, D3
01CECA: 382E FFF6                move.w  (-$a,A6), D4
01CECE: 1028 000D                move.b  ($d,A0), D0
01CED2: 4880                     ext.w   D0
01CED4: 9840                     sub.w   D0, D4
01CED6: 322E FFF4                move.w  (-$c,A6), D1
01CEDA: 1028 000E                move.b  ($e,A0), D0
01CEDE: 4880                     ext.w   D0
01CEE0: 9240                     sub.w   D0, D1
01CEE2: 3028 0004                move.w  ($4,A0), D0
01CEE6: C1C1                     muls.w  D1, D0
01CEE8: 2C00                     move.l  D0, D6
01CEEA: 3228 0002                move.w  ($2,A0), D1
01CEEE: C3C4                     muls.w  D4, D1
01CEF0: 302E FFFE                move.w  (-$2,A6), D0
01CEF4: C1C3                     muls.w  D3, D0
01CEF6: D280                     add.l   D0, D1
01CEF8: DC81                     add.l   D1, D6
01CEFA: 4A85                     tst.l   D5
01CEFC: 6C06                     bge     1cf04
01CEFE: 2005                     move.l  D5, D0
01CF00: 4480                     neg.l   D0
01CF02: 6002                     bra     1cf06
01CF04: 2005                     move.l  D5, D0
01CF06: 2200                     move.l  D0, D1
01CF08: 4A86                     tst.l   D6
01CF0A: 6C06                     bge     1cf12
01CF0C: 2006                     move.l  D6, D0
01CF0E: 4480                     neg.l   D0
01CF10: 6002                     bra     1cf14
01CF12: 2006                     move.l  D6, D0
01CF14: 2600                     move.l  D0, D3
01CF16: 0C81 0000 0400           cmpi.l  #$400, D1
01CF1C: 6D18                     blt     1cf36
01CF1E: 0C83 0000 0400           cmpi.l  #$400, D3
01CF24: 6D10                     blt     1cf36
01CF26: 2006                     move.l  D6, D0
01CF28: 2205                     move.l  D5, D1
01CF2A: B380                     eor.l   D1, D0
01CF2C: 0280 8000 0000           andi.l  #$80000000, D0
01CF32: 6700 0120                beq     1d054
01CF36: 0C83 0000 0400           cmpi.l  #$400, D3
01CF3C: 6C00 00AE                bge     1cfec
01CF40: 0C2A 0002 0036           cmpi.b  #$2, ($36,A2)
01CF46: 6600 0074                bne     1cfbc
01CF4A: 222A 0014                move.l  ($14,A2), D1
01CF4E: 92AA 002A                sub.l   ($2a,A2), D1
01CF52: 2F01                     move.l  D1, -(A7)
01CF54: 4EB9 0001 216A           jsr     $1216a.l
01CF5A: 0C80 0010 0000           cmpi.l  #$100000, D0
01CF60: 588F                     addq.l  #4, A7
01CF62: 6F58                     ble     1cfbc
01CF64: 4EB9 0001 5884           jsr     $15884.l
01CF6A: 4879 0000 0046           pea     $46.l
01CF70: 4EB9 0001 58AC           jsr     $158ac.l
01CF76: B5FC 0040 0018           cmpa.l  #$400018, A2
01CF7C: 588F                     addq.l  #4, A7
01CF7E: 6700 0022                beq     1cfa2
01CF82: B5FC 0040 00FA           cmpa.l  #$4000fa, A2
01CF88: 6700 0018                beq     1cfa2
01CF8C: 4878 0001                pea     $1.w
01CF90: 4878 0001                pea     $1.w
01CF94: 2F0A                     move.l  A2, -(A7)
01CF96: 4EB9 0001 5BD0           jsr     $15bd0.l
01CF9C: 4FEF 000C                lea     ($c,A7), A7
01CFA0: 6014                     bra     1cfb6
01CFA2: 157C 0064 0057           move.b  #$64, ($57,A2)
01CFA8: 4878 0004                pea     $4.w
01CFAC: 2F0A                     move.l  A2, -(A7)
01CFAE: 4EB9 0002 5BAE           jsr     $25bae.l
01CFB4: 508F                     addq.l  #8, A7
01CFB6: 7001                     moveq   #$1, D0
01CFB8: 6000 00A8                bra     1d062
01CFBC: 202E FFE6                move.l  (-$1a,A6), D0
01CFC0: 4480                     neg.l   D0
01CFC2: 2480                     move.l  D0, (A2)
01CFC4: 202E FFEA                move.l  (-$16,A6), D0
01CFC8: 4480                     neg.l   D0
01CFCA: 2540 0004                move.l  D0, ($4,A2)
01CFCE: 202E FFEE                move.l  (-$12,A6), D0
01CFD2: 4480                     neg.l   D0
01CFD4: 2540 0008                move.l  D0, ($8,A2)
01CFD8: 2553 000C                move.l  (A3), ($c,A2)
01CFDC: 2A42                     movea.l D2, A5
01CFDE: 2555 0010                move.l  (A5), ($10,A2)
01CFE2: 2554 0014                move.l  (A4), ($14,A2)
01CFE6: 7000                     moveq   #$0, D0
01CFE8: 6000 0078                bra     1d062
01CFEC: 2553 000C                move.l  (A3), ($c,A2)
01CFF0: 2A42                     movea.l D2, A5
01CFF2: 2555 0010                move.l  (A5), ($10,A2)
01CFF6: 2554 0014                move.l  (A4), ($14,A2)
01CFFA: 2212                     move.l  (A2), D1
01CFFC: EE81                     asr.l   #7, D1
01CFFE: 3001                     move.w  D1, D0
01D000: C1EE FFFE                muls.w  (-$2,A6), D0
01D004: 2600                     move.l  D0, D3
01D006: 3028 0002                move.w  ($2,A0), D0
01D00A: 222A 0004                move.l  ($4,A2), D1
01D00E: EE81                     asr.l   #7, D1
01D010: C1C1                     muls.w  D1, D0
01D012: 2800                     move.l  D0, D4
01D014: 3028 0004                move.w  ($4,A0), D0
01D018: 222A 0008                move.l  ($8,A2), D1
01D01C: EE81                     asr.l   #7, D1
01D01E: C1C1                     muls.w  D1, D0
01D020: 2200                     move.l  D0, D1
01D022: 2004                     move.l  D4, D0
01D024: D083                     add.l   D3, D0
01D026: D081                     add.l   D1, D0
01D028: E080                     asr.l   #8, D0
01D02A: 3200                     move.w  D0, D1
01D02C: 302E FFFE                move.w  (-$2,A6), D0
01D030: C1C1                     muls.w  D1, D0
01D032: 2600                     move.l  D0, D3
01D034: 3028 0002                move.w  ($2,A0), D0
01D038: C1C1                     muls.w  D1, D0
01D03A: 2800                     move.l  D0, D4
01D03C: 3028 0004                move.w  ($4,A0), D0
01D040: C1C1                     muls.w  D1, D0
01D042: 2200                     move.l  D0, D1
01D044: 2003                     move.l  D3, D0
01D046: 9192                     sub.l   D0, (A2)
01D048: 2004                     move.l  D4, D0
01D04A: 91AA 0004                sub.l   D0, ($4,A2)
01D04E: 2001                     move.l  D1, D0
01D050: 91AA 0008                sub.l   D0, ($8,A2)
01D054: 7010                     moveq   #$10, D0
01D056: D1C0                     adda.l  D0, A0
01D058: 4A6E FFF2                tst.w   (-$e,A6)
01D05C: 6700 FD6E                beq     1cdcc
01D060: 7000                     moveq   #$0, D0
01D062: 4CDF 3CFC                movem.l (A7)+, D2-D7/A2-A5
01D066: 4E5E                     unlk    A6
01D068: 4E75                     rts
01D06A: 48E7 203C                movem.l D2/A2-A5, -(A7)
01D06E: 322F 001A                move.w  ($1a,A7), D1
01D072: 243C 0002 4CC4           move.l  #$24cc4, D2
01D078: 287C 0002 4D10           movea.l #$24d10, A4
01D07E: 700C                     moveq   #$c, D0
01D080: B041                     cmp.w   D1, D0
01D082: 6D12                     blt     1d096
01D084: 3001                     move.w  D1, D0
01D086: 207C 0002 4E1A           movea.l #$24e1a, A0
01D08C: 1030 0000                move.b  (A0,D0.w), D0
01D090: 4880                     ext.w   D0
01D092: 3200                     move.w  D0, D1
01D094: 6002                     bra     1d098
01D096: 5D41                     subq.w  #6, D1
01D098: 3001                     move.w  D1, D0
01D09A: 5F40                     subq.w  #7, D0
01D09C: 0240 0003                andi.w  #$3, D0
01D0A0: 5E40                     addq.w  #7, D0
01D0A2: E540                     asl.w   #2, D0
01D0A4: 48C0                     ext.l   D0
01D0A6: 207C 0002 4C98           movea.l #$24c98, A0
01D0AC: D088                     add.l   A0, D0
01D0AE: 2240                     movea.l D0, A1
01D0B0: E441                     asr.w   #2, D1
01D0B2: 3001                     move.w  D1, D0
01D0B4: 48C0                     ext.l   D0
01D0B6: C0FC 0003                mulu.w  #$3, D0
01D0BA: D080                     add.l   D0, D0
01D0BC: 0680 0040 076E           addi.l  #$40076e, D0
01D0C2: 2440                     movea.l D0, A2
01D0C4: 3001                     move.w  D1, D0
01D0C6: 48C0                     ext.l   D0
01D0C8: 207C 0002 4C7A           movea.l #$24c7a, A0
01D0CE: D088                     add.l   A0, D0
01D0D0: 2640                     movea.l D0, A3
01D0D2: 4241                     clr.w   D1
01D0D4: 4A13                     tst.b   (A3)
01D0D6: 6D00 010E                blt     1d1e6
01D0DA: 4A13                     tst.b   (A3)
01D0DC: 662E                     bne     1d10c
01D0DE: 1011                     move.b  (A1), D0
01D0E0: 4880                     ext.w   D0
01D0E2: D040                     add.w   D0, D0
01D0E4: 204C                     movea.l A4, A0
01D0E6: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D0EA: 1011                     move.b  (A1), D0
01D0EC: 4880                     ext.w   D0
01D0EE: D040                     add.w   D0, D0
01D0F0: 2A42                     movea.l D2, A5
01D0F2: 204D                     movea.l A5, A0
01D0F4: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D0F8: 1011                     move.b  (A1), D0
01D0FA: 4880                     ext.w   D0
01D0FC: D040                     add.w   D0, D0
01D0FE: 207C 0002 4D5C           movea.l #$24d5c, A0
01D104: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D108: 6000 00CE                bra     1d1d8
01D10C: 0C13 0001                cmpi.b  #$1, (A3)
01D110: 662E                     bne     1d140
01D112: 1011                     move.b  (A1), D0
01D114: 4880                     ext.w   D0
01D116: D040                     add.w   D0, D0
01D118: 204C                     movea.l A4, A0
01D11A: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D11E: 1011                     move.b  (A1), D0
01D120: 4880                     ext.w   D0
01D122: D040                     add.w   D0, D0
01D124: 2A42                     movea.l D2, A5
01D126: 204D                     movea.l A5, A0
01D128: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D12C: 1011                     move.b  (A1), D0
01D12E: 4880                     ext.w   D0
01D130: D040                     add.w   D0, D0
01D132: 207C 0002 4DA8           movea.l #$24da8, A0
01D138: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D13C: 6000 009A                bra     1d1d8
01D140: 0C13 0002                cmpi.b  #$2, (A3)
01D144: 662E                     bne     1d174
01D146: 1011                     move.b  (A1), D0
01D148: 4880                     ext.w   D0
01D14A: D040                     add.w   D0, D0
01D14C: 204C                     movea.l A4, A0
01D14E: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D152: 1011                     move.b  (A1), D0
01D154: 4880                     ext.w   D0
01D156: D040                     add.w   D0, D0
01D158: 2A42                     movea.l D2, A5
01D15A: 204D                     movea.l A5, A0
01D15C: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D160: 1011                     move.b  (A1), D0
01D162: 4880                     ext.w   D0
01D164: D040                     add.w   D0, D0
01D166: 207C 0002 4DCE           movea.l #$24dce, A0
01D16C: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D170: 6000 0066                bra     1d1d8
01D174: 0C13 0003                cmpi.b  #$3, (A3)
01D178: 662C                     bne     1d1a6
01D17A: 1011                     move.b  (A1), D0
01D17C: 4880                     ext.w   D0
01D17E: D040                     add.w   D0, D0
01D180: 204C                     movea.l A4, A0
01D182: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D186: 1011                     move.b  (A1), D0
01D188: 4880                     ext.w   D0
01D18A: D040                     add.w   D0, D0
01D18C: 2A42                     movea.l D2, A5
01D18E: 204D                     movea.l A5, A0
01D190: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D194: 1011                     move.b  (A1), D0
01D196: 4880                     ext.w   D0
01D198: D040                     add.w   D0, D0
01D19A: 207C 0002 4DF4           movea.l #$24df4, A0
01D1A0: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D1A4: 6032                     bra     1d1d8
01D1A6: 1011                     move.b  (A1), D0
01D1A8: 4880                     ext.w   D0
01D1AA: D040                     add.w   D0, D0
01D1AC: 207C 0002 4D36           movea.l #$24d36, A0
01D1B2: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D1B6: 1011                     move.b  (A1), D0
01D1B8: 4880                     ext.w   D0
01D1BA: D040                     add.w   D0, D0
01D1BC: 207C 0002 4CEA           movea.l #$24cea, A0
01D1C2: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D1C6: 1011                     move.b  (A1), D0
01D1C8: 4880                     ext.w   D0
01D1CA: D040                     add.w   D0, D0
01D1CC: 207C 0002 4D82           movea.l #$24d82, A0
01D1D2: 34F0 0000                move.w  (A0,D0.w), (A2)+
01D1D6: 600E                     bra     1d1e6
01D1D8: 5289                     addq.l  #1, A1
01D1DA: 528B                     addq.l  #1, A3
01D1DC: 5241                     addq.w  #1, D1
01D1DE: 7004                     moveq   #$4, D0
01D1E0: B041                     cmp.w   D1, D0
01D1E2: 6E00 FEF0                bgt     1d0d4
01D1E6: 4CDF 3C04                movem.l (A7)+, D2/A2-A5
01D1EA: 4E75                     rts
01D1EC: 2F02                     move.l  D2, -(A7)
01D1EE: 206F 0008                movea.l ($8,A7), A0
01D1F2: 2228 000C                move.l  ($c,A0), D1
01D1F6: 7013                     moveq   #$13, D0
01D1F8: E0A1                     asr.l   D0, D1
01D1FA: 3401                     move.w  D1, D2
01D1FC: 2228 0010                move.l  ($10,A0), D1
01D200: 7013                     moveq   #$13, D0
01D202: E0A1                     asr.l   D0, D1
01D204: 2268 002C                movea.l ($2c,A0), A1
01D208: 1011                     move.b  (A1), D0
01D20A: 4880                     ext.w   D0
01D20C: B042                     cmp.w   D2, D0
01D20E: 6624                     bne     1d234
01D210: 2268 002C                movea.l ($2c,A0), A1
01D214: 1029 0001                move.b  ($1,A1), D0
01D218: 4880                     ext.w   D0
01D21A: B041                     cmp.w   D1, D0
01D21C: 6616                     bne     1d234
01D21E: 2268 002C                movea.l ($2c,A0), A1
01D222: 1029 0002                move.b  ($2,A1), D0
01D226: 4880                     ext.w   D0
01D228: 48C0                     ext.l   D0
01D22A: E580                     asl.l   #2, D0
01D22C: D0A8 0030                add.l   ($30,A0), D0
01D230: 2140 002C                move.l  D0, ($2c,A0)
01D234: 2F08                     move.l  A0, -(A7)
01D236: 4EB9 0001 D242           jsr     $1d242.l
01D23C: 588F                     addq.l  #4, A7
01D23E: 241F                     move.l  (A7)+, D2
01D240: 4E75                     rts
01D242: 48E7 3E00                movem.l D2-D6, -(A7)
01D246: 206F 0018                movea.l ($18,A7), A0
01D24A: 4203                     clr.b   D3
01D24C: 4202                     clr.b   D2
01D24E: 2228 000C                move.l  ($c,A0), D1
01D252: 7013                     moveq   #$13, D0
01D254: E0A1                     asr.l   D0, D1
01D256: 3A01                     move.w  D1, D5
01D258: 2228 0010                move.l  ($10,A0), D1
01D25C: 7013                     moveq   #$13, D0
01D25E: E0A1                     asr.l   D0, D1
01D260: 3801                     move.w  D1, D4
01D262: 2268 002C                movea.l ($2c,A0), A1
01D266: 1211                     move.b  (A1), D1
01D268: 4881                     ext.w   D1
01D26A: 2268 002C                movea.l ($2c,A0), A1
01D26E: 1029 0001                move.b  ($1,A1), D0
01D272: 4880                     ext.w   D0
01D274: 4A90                     tst.l   (A0)
01D276: 6620                     bne     1d298
01D278: BA41                     cmp.w   D1, D5
01D27A: 6F04                     ble     1d280
01D27C: 76F8                     moveq   #-$8, D3
01D27E: 6036                     bra     1d2b6
01D280: BA41                     cmp.w   D1, D5
01D282: 6C04                     bge     1d288
01D284: 7608                     moveq   #$8, D3
01D286: 602E                     bra     1d2b6
01D288: B840                     cmp.w   D0, D4
01D28A: 6F04                     ble     1d290
01D28C: 74F8                     moveq   #-$8, D2
01D28E: 6026                     bra     1d2b6
01D290: B840                     cmp.w   D0, D4
01D292: 6C22                     bge     1d2b6
01D294: 7408                     moveq   #$8, D2
01D296: 601E                     bra     1d2b6
01D298: B840                     cmp.w   D0, D4
01D29A: 6F04                     ble     1d2a0
01D29C: 74F8                     moveq   #-$8, D2
01D29E: 6016                     bra     1d2b6
01D2A0: B840                     cmp.w   D0, D4
01D2A2: 6C04                     bge     1d2a8
01D2A4: 7408                     moveq   #$8, D2
01D2A6: 600E                     bra     1d2b6
01D2A8: BA41                     cmp.w   D1, D5
01D2AA: 6F04                     ble     1d2b0
01D2AC: 76F8                     moveq   #-$8, D3
01D2AE: 6006                     bra     1d2b6
01D2B0: BA41                     cmp.w   D1, D5
01D2B2: 6C02                     bge     1d2b6
01D2B4: 7608                     moveq   #$8, D3
01D2B6: 4A02                     tst.b   D2
01D2B8: 6F0A                     ble     1d2c4
01D2BA: 217C 0002 0EC4 003E      move.l  #$20ec4, ($3e,A0)
01D2C2: 6024                     bra     1d2e8
01D2C4: 4A02                     tst.b   D2
01D2C6: 6C0A                     bge     1d2d2
01D2C8: 217C 0002 0EE4 003E      move.l  #$20ee4, ($3e,A0)
01D2D0: 6016                     bra     1d2e8
01D2D2: 4A03                     tst.b   D3
01D2D4: 6F0A                     ble     1d2e0
01D2D6: 217C 0002 0EA4 003E      move.l  #$20ea4, ($3e,A0)
01D2DE: 6008                     bra     1d2e8
01D2E0: 217C 0002 0F24 003E      move.l  #$20f24, ($3e,A0)
01D2E8: 1003                     move.b  D3, D0
01D2EA: 4880                     ext.w   D0
01D2EC: 48C0                     ext.l   D0
01D2EE: 2200                     move.l  D0, D1
01D2F0: 7010                     moveq   #$10, D0
01D2F2: E1A1                     asl.l   D0, D1
01D2F4: 2081                     move.l  D1, (A0)
01D2F6: 1002                     move.b  D2, D0
01D2F8: 4880                     ext.w   D0
01D2FA: 48C0                     ext.l   D0
01D2FC: 2200                     move.l  D0, D1
01D2FE: 7010                     moveq   #$10, D0
01D300: E1A1                     asl.l   D0, D1
01D302: 2141 0004                move.l  D1, ($4,A0)
01D306: 2168 003E 003A           move.l  ($3e,A0), ($3a,A0)
01D30C: 4228 0024                clr.b   ($24,A0)
01D310: 227C 0040 0018           movea.l #$400018, A1
01D316: 117C 0002 0025           move.b  #$2, ($25,A0)
01D31C: 4201                     clr.b   D1
01D31E: 602E                     bra     1d34e
01D320: 0C29 0001 0018           cmpi.b  #$1, ($18,A1)
01D326: 661A                     bne     1d342
01D328: 1028 001B                move.b  ($1b,A0), D0
01D32C: B029 001B                cmp.b   ($1b,A1), D0
01D330: 6610                     bne     1d342
01D332: 0C29 0006 001B           cmpi.b  #$6, ($1b,A1)
01D338: 6608                     bne     1d342
01D33A: 117C 0001 0025           move.b  #$1, ($25,A0)
01D340: 6018                     bra     1d35a
01D342: 2C09                     move.l  A1, D6
01D344: 0686 0000 00E2           addi.l  #$e2, D6
01D34A: 2246                     movea.l D6, A1
01D34C: 5201                     addq.b  #1, D1
01D34E: 1001                     move.b  D1, D0
01D350: 4880                     ext.w   D0
01D352: B079 0040 0396           cmp.w   $400396.l, D0
01D358: 66C6                     bne     1d320
01D35A: 4CDF 007C                movem.l (A7)+, D2-D6
01D35E: 4E75                     rts

(data to end of block)
