
(lots of data)

0251DE: 48E7 3C30                movem.l D2-D5/A2-A3, -(A7)
0251E2: 267C 0040 0396           movea.l #$400396, A3
0251E8: 4EB9 0001 BBAA           jsr     $1bbaa.l
0251EE: 4202                     clr.b   D2
0251F0: 1602                     move.b  D2, D3
0251F2: 247C 0040 0018           movea.l #$400018, A2
0251F8: 4204                     clr.b   D4
0251FA: 6000 0180                bra     2537c
0251FE: 4A2A 0018                tst.b   ($18,A2)
025202: 6606                     bne     2520a
025204: 5202                     addq.b  #1, D2
025206: 6000 0168                bra     25370
02520A: 0C6A 0190 006A           cmpi.w  #$190, ($6a,A2)
025210: 6F06                     ble     25218
025212: 4EB9 0002 822E           jsr     $2822e.l
025218: 2F0A                     move.l  A2, -(A7)
02521A: 4EB9 0002 53EC           jsr     $253ec.l
025220: 0C2A 0002 0018           cmpi.b  #$2, ($18,A2)
025226: 588F                     addq.l  #4, A7
025228: 6606                     bne     25230
02522A: 5202                     addq.b  #1, D2
02522C: 6000 0142                bra     25370
025230: 0C2A 0003 0018           cmpi.b  #$3, ($18,A2)
025236: 6606                     bne     2523e
025238: 5203                     addq.b  #1, D3
02523A: 6000 0134                bra     25370
02523E: 7002                     moveq   #$2, D0
025240: B053                     cmp.w   (A3), D0
025242: 6600 012C                bne     25370
025246: 302A 0020                move.w  ($20,A2), D0
02524A: 0240 FFFF                andi.w  #$ffff, D0
02524E: 0C40 00EC                cmpi.w  #$ec, D0
025252: 6F0C                     ble     25260
025254: 7004                     moveq   #$4, D0
025256: B079 0040 0394           cmp.w   $400394.l, D0
02525C: 6600 001E                bne     2527c
025260: 302A 0020                move.w  ($20,A2), D0
025264: 0240 FFFF                andi.w  #$ffff, D0
025268: 72F8                     moveq   #-$8, D1
02526A: B240                     cmp.w   D0, D1
02526C: 6F00 0102                ble     25370
025270: 7004                     moveq   #$4, D0
025272: B079 0040 0394           cmp.w   $400394.l, D0
025278: 6600 00F6                bne     25370
02527C: 0C2A 0002 0036           cmpi.b  #$2, ($36,A2)
025282: 6700 00EC                beq     25370
025286: 4A2A 001A                tst.b   ($1a,A2)
02528A: 6700 0016                beq     252a2
02528E: 0C2A 0001 001A           cmpi.b  #$1, ($1a,A2)
025294: 6700 000C                beq     252a2
025298: 0C2A 0005 001A           cmpi.b  #$5, ($1a,A2)
02529E: 6600 00D0                bne     25370
0252A2: 2F0A                     move.l  A2, -(A7)
0252A4: 4EB9 0001 7934           jsr     $17934.l
0252AA: 2039 0040 0462           move.l  $400462.l, D0
0252B0: 7210                     moveq   #$10, D1
0252B2: E3A0                     asl.l   D1, D0
0252B4: 2540 000C                move.l  D0, ($c,A2)
0252B8: 2039 0040 0466           move.l  $400466.l, D0
0252BE: 7210                     moveq   #$10, D1
0252C0: E3A0                     asl.l   D1, D0
0252C2: 2540 0010                move.l  D0, ($10,A2)
0252C6: 70FF                     moveq   #-$1, D0
0252C8: 33C0 0040 0698           move.w  D0, $400698.l
0252CE: 33C0 0040 0696           move.w  D0, $400696.l
0252D4: 2F0A                     move.l  A2, -(A7)
0252D6: 4EB9 0001 BAB2           jsr     $1bab2.l
0252DC: 42A7                     clr.l   -(A7)
0252DE: 4EB9 0001 CC62           jsr     $1cc62.l
0252E4: 2540 0014                move.l  D0, ($14,A2)
0252E8: 1579 0040 0472 001B      move.b  $400472.l, ($1b,A2)
0252F0: 7000                     moveq   #$0, D0
0252F2: 2540 0008                move.l  D0, ($8,A2)
0252F6: 2200                     move.l  D0, D1
0252F8: 2541 0004                move.l  D1, ($4,A2)
0252FC: 2481                     move.l  D1, (A2)
0252FE: 4200                     clr.b   D0
025300: 1540 0057                move.b  D0, ($57,A2)
025304: 1540 0056                move.b  D0, ($56,A2)
025308: 422A 0036                clr.b   ($36,A2)
02530C: 422A 0058                clr.b   ($58,A2)
025310: 7000                     moveq   #$0, D0
025312: 2540 0026                move.l  D0, ($26,A2)
025316: 2540 0022                move.l  D0, ($22,A2)
02531A: 42A7                     clr.l   -(A7)
02531C: 2F0A                     move.l  A2, -(A7)
02531E: 4EB9 0001 B9CC           jsr     $1b9cc.l
025324: 5B6A 006A                subq.w  #5, ($6a,A2)
025328: 4A6A 006A                tst.w   ($6a,A2)
02532C: 4FEF 0014                lea     ($14,A7), A7
025330: 6C0E                     bge     25340
025332: 357C 0001 006A           move.w  #$1, ($6a,A2)
025338: 422A 006C                clr.b   ($6c,A2)
02533C: 422A 006E                clr.b   ($6e,A2)
025340: 4879 0000 003C           pea     $3c.l
025346: 4EB9 0001 58AC           jsr     $158ac.l
02534C: 42AA 005A                clr.l   ($5a,A2)
025350: 157C 0004 001A           move.b  #$4, ($1a,A2)
025356: 526A 00D2                addq.w  #1, ($d2,A2)
02535A: 157C 0065 0057           move.b  #$65, ($57,A2)
025360: 4878 000F                pea     $f.w
025364: 2F0A                     move.l  A2, -(A7)
025366: 4EB9 0002 85B0           jsr     $285b0.l
02536C: 4FEF 000C                lea     ($c,A7), A7
025370: 2A0A                     move.l  A2, D5
025372: 0685 0000 00E2           addi.l  #$e2, D5
025378: 2445                     movea.l D5, A2
02537A: 5204                     addq.b  #1, D4
02537C: 1004                     move.b  D4, D0
02537E: 4880                     ext.w   D0
025380: B053                     cmp.w   (A3), D0
025382: 6600 FE7A                bne     251fe
025386: 1003                     move.b  D3, D0
025388: 4880                     ext.w   D0
02538A: B053                     cmp.w   (A3), D0
02538C: 6700 0016                beq     253a4
025390: 4A03                     tst.b   D3
025392: 6722                     beq     253b6
025394: 1002                     move.b  D2, D0
025396: 4880                     ext.w   D0
025398: 48C0                     ext.l   D0
02539A: 3213                     move.w  (A3), D1
02539C: 48C1                     ext.l   D1
02539E: 5381                     subq.l  #1, D1
0253A0: B081                     cmp.l   D1, D0
0253A2: 6612                     bne     253b6
0253A4: 7001                     moveq   #$1, D0
0253A6: B079 0040 0390           cmp.w   $400390.l, D0      Game in attract mode?
0253AC: 6708                     beq     253b6
0253AE: 33FC 0003 0040 0390      move.w  #$3, $400390.l     Set 'next level flag' if not
0253B6: 4CDF 0C3C                movem.l (A7)+, D2-D5/A2-A3 
0253BA: 4E75                     rts
0253BC: 206F 0004                movea.l ($4,A7), A0
0253C0: 4A28 0036                tst.b   ($36,A0)
0253C4: 6624                     bne     253ea
0253C6: 2228 000C                move.l  ($c,A0), D1
0253CA: 7013                     moveq   #$13, D0
0253CC: E0A1                     asr.l   D0, D1
0253CE: 3141 0032                move.w  D1, ($32,A0)
0253D2: 2228 0010                move.l  ($10,A0), D1
0253D6: 7013                     moveq   #$13, D0
0253D8: E0A1                     asr.l   D0, D1
0253DA: 3141 0034                move.w  D1, ($34,A0)
0253DE: 2168 0014 002A           move.l  ($14,A0), ($2a,A0)
0253E4: 1168 001B 001D           move.b  ($1b,A0), ($1d,A0)
0253EA: 4E75                     rts
0253EC: 48E7 203C                movem.l D2/A2-A5, -(A7)
0253F0: 246F 0018                movea.l ($18,A7), A2
0253F4: 267C 0001 B9CC           movea.l #$1b9cc, A3
0253FA: 227C 0001 58AC           movea.l #$158ac, A1
025400: 2409                     move.l  A1, D2
025402: 287C 0001 21B8           movea.l #$121b8, A4
025408: 122A 001A                move.b  ($1a,A2), D1
02540C: 4881                     ext.w   D1
02540E: 4A2A 00D8                tst.b   ($d8,A2)
025412: 6700 0078                beq     2548c
025416: 7002                     moveq   #$2, D0
025418: B041                     cmp.w   D1, D0
02541A: 6700 0070                beq     2548c
02541E: 7004                     moveq   #$4, D0
025420: B041                     cmp.w   D1, D0
025422: 6700 0068                beq     2548c
025426: 700A                     moveq   #$a, D0
025428: B041                     cmp.w   D1, D0
02542A: 6700 0060                beq     2548c
02542E: 700B                     moveq   #$b, D0
025430: B041                     cmp.w   D1, D0
025432: 6700 0058                beq     2548c
025436: 7007                     moveq   #$7, D0
025438: B041                     cmp.w   D1, D0
02543A: 6750                     beq     2548c
02543C: 102A 0069                move.b  ($69,A2), D0
025440: D12A 0068                add.b   D0, ($68,A2)
025444: 0C2A 0002 0068           cmpi.b  #$2, ($68,A2)
02544A: 6F0E                     ble     2545a
02544C: 157C 0002 0068           move.b  #$2, ($68,A2)
025452: 157C 00FF 0069           move.b  #$ff, ($69,A2)
025458: 6014                     bra     2546e
02545A: 0C2A 00EA 0068           cmpi.b  #-$16, ($68,A2)
025460: 6C0C                     bge     2546e
025462: 157C 00EA 0068           move.b  #$ea, ($68,A2)
025468: 157C 0001 0069           move.b  #$1, ($69,A2)
02546E: 082A 0000 0068           btst    #$0, ($68,A2)
025474: 6716                     beq     2548c
025476: 522A 0070                addq.b  #1, ($70,A2)
02547A: 0C2A 0028 0070           cmpi.b  #$28, ($70,A2)
025480: 6F0A                     ble     2548c
025482: 157C 00FF 0070           move.b  #$ff, ($70,A2)
025488: 422A 00D8                clr.b   ($d8,A2)
02548C: 3001                     move.w  D1, D0
02548E: 48C0                     ext.l   D0
025490: C189                     exg     D0, A1
025492: B2FC 0000                cmpa.w  #$0, A1
025496: C189                     exg     D0, A1
025498: 6D00 047A                blt     25914
02549C: C189                     exg     D0, A1
02549E: B2FC 000B                cmpa.w  #$b, A1
0254A2: C189                     exg     D0, A1
0254A4: 6E00 046E                bgt     25914
0254A8: 2240                     movea.l D0, A1
0254AA: 2009                     move.l  A1, D0
0254AC: 2240                     movea.l D0, A1
0254AE: D3C0                     adda.l  D0, A1
0254B0: 2009                     move.l  A1, D0
0254B2: 303B 0006                move.w  ($6,PC,D0.w), D0
0254B6: 4EFB 0002                jmp     ($2,PC,D0.w)
0254BA: 0218 0292                andi.b  #$92, (A0)+
0254BE: 036A 005A                bchg    D1, ($5a,A2)
0254C2: 010C 0300                movep.w ($300,A4), D0
0254C6: 0018 0358                ori.b   #$58, (A0)+
0254CA: 03EE 0394                bset    D1, ($394,A6)
0254CE: 0184                     bclr    D0, D4
0254D0: 03BC                     dc.w $03bc; ILLEGAL
0254D2: 7001                     moveq   #$1, D0
0254D4: B079 0040 0390           cmp.w   $400390.l, D0        Attract mode?
0254DA: 660A                     bne     254e6
0254DC: 2F0A                     move.l  A2, -(A7)
0254DE: 4EB9 0001 815A           jsr     $1815a.l
0254E4: 588F                     addq.l  #4, A7
0254E6: 2F0A                     move.l  A2, -(A7)
0254E8: 4E94                     jsr     (A4)
0254EA: 532A 0057                subq.b  #1, ($57,A2)
0254EE: 4A2A 0057                tst.b   ($57,A2)
0254F2: 588F                     addq.l  #4, A7
0254F4: 6600 041E                bne     25914
0254F8: 0C2A 0002 0018           cmpi.b  #$2, ($18,A2)
0254FE: 6700 0414                beq     25914
025502: 157C 0003 0018           move.b  #$3, ($18,A2)
025508: 7000                     moveq   #$0, D0
02550A: 2540 0004                move.l  D0, ($4,A2)
02550E: 2480                     move.l  D0, (A2)
025510: 6000 0402                bra     25914
025514: 4878 0001                pea     $1.w
025518: 2F0A                     move.l  A2, -(A7)
02551A: 4E93                     jsr     (A3)
02551C: 2F0A                     move.l  A2, -(A7)
02551E: 4EB9 0001 C014           jsr     $1c014.l
025524: 2F0A                     move.l  A2, -(A7)
025526: 4EB9 0001 281C           jsr     $1281c.l
02552C: 4A2A 0058                tst.b   ($58,A2)
025530: 4FEF 0010                lea     ($10,A7), A7
025534: 6700 03DE                beq     25914
025538: 532A 0059                subq.b  #1, ($59,A2)
02553C: 4A2A 0059                tst.b   ($59,A2)
025540: 6600 03D2                bne     25914
025544: 0C2A 0012 0058           cmpi.b  #$12, ($58,A2)
02554A: 6610                     bne     2555c
02554C: 4878 0009                pea     $9.w
025550: 2F0A                     move.l  A2, -(A7)
025552: 4EB9 0002 85B0           jsr     $285b0.l
025558: 508F                     addq.l  #8, A7
02555A: 6054                     bra     255b0
02555C: 0C2A 0013 0058           cmpi.b  #$13, ($58,A2)
025562: 6700 0028                beq     2558c
025566: 0C2A 0014 0058           cmpi.b  #$14, ($58,A2)
02556C: 6700 001E                beq     2558c
025570: 0C2A 0020 0058           cmpi.b  #$20, ($58,A2)
025576: 6700 0014                beq     2558c
02557A: 0C2A 0022 0058           cmpi.b  #$22, ($58,A2)
025580: 6700 000A                beq     2558c
025584: 0C2A 0025 0058           cmpi.b  #$25, ($58,A2)
02558A: 6610                     bne     2559c
02558C: 4878 0005                pea     $5.w
025590: 2F0A                     move.l  A2, -(A7)
025592: 4EB9 0002 85B0           jsr     $285b0.l
025598: 508F                     addq.l  #8, A7
02559A: 6014                     bra     255b0
02559C: 0C2A 000A 0058           cmpi.b  #$a, ($58,A2)
0255A2: 660C                     bne     255b0
0255A4: 4879 0000 0045           pea     $45.l
0255AA: 2A42                     movea.l D2, A5
0255AC: 4E95                     jsr     (A5)
0255AE: 588F                     addq.l  #4, A7
0255B0: 422A 0058                clr.b   ($58,A2)
0255B4: 7000                     moveq   #$0, D0
0255B6: 2540 0026                move.l  D0, ($26,A2)
0255BA: 2540 0022                move.l  D0, ($22,A2)
0255BE: 422A 001A                clr.b   ($1a,A2)
0255C2: 6000 0350                bra     25914
0255C6: 4878 0001                pea     $1.w
0255CA: 2F0A                     move.l  A2, -(A7)
0255CC: 4E93                     jsr     (A3)
0255CE: 2F0A                     move.l  A2, -(A7)
0255D0: 4EB9 0001 3ADE           jsr     $13ade.l
0255D6: 3400                     move.w  D0, D2
0255D8: 4FEF 000C                lea     ($c,A7), A7
0255DC: 6600 000C                bne     255ea
0255E0: 0C2A 0002 0057           cmpi.b  #$2, ($57,A2)
0255E6: 6C00 032C                bge     25914
0255EA: 4878 0070                pea     $70.w
0255EE: 41EA 0010                lea     ($10,A2), A0
0255F2: 3010                     move.w  (A0), D0
0255F4: 48C0                     ext.l   D0
0255F6: 2F00                     move.l  D0, -(A7)
0255F8: 41EA 000C                lea     ($c,A2), A0
0255FC: 3210                     move.w  (A0), D1
0255FE: 48C1                     ext.l   D1
025600: 2F01                     move.l  D1, -(A7)
025602: 2F0A                     move.l  A2, -(A7)
025604: 4EB9 0001 7CB8           jsr     $17cb8.l
02560A: 4A80                     tst.l   D0
02560C: 4FEF 0010                lea     ($10,A7), A7
025610: 6716                     beq     25628
025612: 157C 0065 0057           move.b  #$65, ($57,A2)
025618: 4878 0004                pea     $4.w
02561C: 2F0A                     move.l  A2, -(A7)
02561E: 4EB9 0002 5BAE           jsr     $25bae.l
025624: 4242                     clr.w   D2
025626: 508F                     addq.l  #8, A7
025628: 4A42                     tst.w   D2
02562A: 6700 02E8                beq     25914
02562E: 7000                     moveq   #$0, D0
025630: 2540 0004                move.l  D0, ($4,A2)
025634: 2480                     move.l  D0, (A2)
025636: 422A 001A                clr.b   ($1a,A2)
02563A: 6000 02D8                bra     25914
02563E: 4878 0001                pea     $1.w
025642: 2F0A                     move.l  A2, -(A7)
025644: 4E93                     jsr     (A3)
025646: 2F0A                     move.l  A2, -(A7)
025648: 4EB9 0001 3D38           jsr     $13d38.l
02564E: 4A80                     tst.l   D0
025650: 4FEF 000C                lea     ($c,A7), A7
025654: 6700 02BE                beq     25914
025658: 122A 0058                move.b  ($58,A2), D1
02565C: 4881                     ext.w   D1
02565E: 48C1                     ext.l   D1
025660: E581                     asl.l   #2, D1
025662: 227C 0001 F016           movea.l #$1f016, A1
025668: 2671 1800                movea.l (A1,D1.l), A3
02566C: 0C2B 000B 001F           cmpi.b  #$b, ($1f,A3)
025672: 660A                     bne     2567e
025674: 277C 0001 D752 0036      move.l  #$1d752, ($36,A3)
02567C: 6008                     bra     25686
02567E: 277C 0001 D798 0036      move.l  #$1d798, ($36,A3)
025686: 102B 001B                move.b  ($1b,A3), D0
02568A: 4880                     ext.w   D0
02568C: 48C0                     ext.l   D0
02568E: 721E                     moveq   #$1e, D1
025690: 9081                     sub.l   D1, D0
025692: E580                     asl.l   #2, D0
025694: 207C 0001 EF5A           movea.l #$1ef5a, A0
02569A: 2070 0800                movea.l (A0,D0.l), A0
02569E: 4850                     pea     (A0)
0256A0: 2A42                     movea.l D2, A5
0256A2: 4E95                     jsr     (A5)
0256A4: 2F0B                     move.l  A3, -(A7)
0256A6: 4EB9 0001 2896           jsr     $12896.l
0256AC: 4879 0000 003C           pea     $3c.l
0256B2: 2A42                     movea.l D2, A5
0256B4: 4E95                     jsr     (A5)
0256B6: 42AA 005A                clr.l   ($5a,A2)
0256BA: 157C 0004 001A           move.b  #$4, ($1a,A2)
0256C0: 526A 00D2                addq.w  #1, ($d2,A2)
0256C4: 157C 0065 0057           move.b  #$65, ($57,A2)
0256CA: 4FEF 000C                lea     ($c,A7), A7
0256CE: 6000 0244                bra     25914
0256D2: 4A2A 00CB                tst.b   ($cb,A2)
0256D6: 6758                     beq     25730
0256D8: 4A2A 0036                tst.b   ($36,A2)
0256DC: 6652                     bne     25730
0256DE: 4A2A 0058                tst.b   ($58,A2)
0256E2: 6700 0014                beq     256f8
0256E6: 0C2A 0035 0058           cmpi.b  #$35, ($58,A2)
0256EC: 6700 000A                beq     256f8
0256F0: 0C2A 0034 0058           cmpi.b  #$34, ($58,A2)
0256F6: 6638                     bne     25730
0256F8: 157C 0009 0056           move.b  #$9, ($56,A2)
0256FE: 157C 000A 0057           move.b  #$a, ($57,A2)
025704: 422A 00CB                clr.b   ($cb,A2)
025708: 157C 0008 001A           move.b  #$8, ($1a,A2)
02570E: 257C 0002 16AA 00CC      move.l  #$216aa, ($cc,A2)
025716: 422A 00D0                clr.b   ($d0,A2)
02571A: 4879 0000 0053           pea     $53.l
025720: 2A42                     movea.l D2, A5
025722: 4E95                     jsr     (A5)
025724: 157C 0001 00D1           move.b  #$1, ($d1,A2)
02572A: 588F                     addq.l  #4, A7
02572C: 6000 01E6                bra     25914
025730: 2F0A                     move.l  A2, -(A7)
025732: 4EB9 0002 53BC           jsr     $253bc.l
025738: 2F0A                     move.l  A2, -(A7)
02573A: 4EB9 0001 7F66           jsr     $17f66.l
025740: 2F0A                     move.l  A2, -(A7)
025742: 4E94                     jsr     (A4)
025744: 4FEF 000C                lea     ($c,A7), A7
025748: 6000 01CA                bra     25914
02574C: 2F0A                     move.l  A2, -(A7)
02574E: 4EB9 0002 5FC2           jsr     $25fc2.l
025754: 2F0A                     move.l  A2, -(A7)
025756: 4EB9 0002 53BC           jsr     $253bc.l
02575C: 2F0A                     move.l  A2, -(A7)
02575E: 4EB9 0001 7F66           jsr     $17f66.l
025764: 2F0A                     move.l  A2, -(A7)
025766: 4E94                     jsr     (A4)
025768: 0C2A 0001 001A           cmpi.b  #$1, ($1a,A2)
02576E: 4FEF 0010                lea     ($10,A7), A7
025772: 6600 01A0                bne     25914
025776: 4A2A 0057                tst.b   ($57,A2)
02577A: 6704                     beq     25780
02577C: 532A 0057                subq.b  #1, ($57,A2)
025780: 102A 0057                move.b  ($57,A2), D0
025784: B02A 0056                cmp.b   ($56,A2), D0
025788: 6C28                     bge     257b2
02578A: 532A 0056                subq.b  #1, ($56,A2)
02578E: 4A2A 0056                tst.b   ($56,A2)
025792: 6600 0180                bne     25914
025796: 4EB9 0001 5884           jsr     $15884.l
02579C: 422A 001A                clr.b   ($1a,A2)
0257A0: 42AA 005A                clr.l   ($5a,A2)
0257A4: 2F0A                     move.l  A2, -(A7)
0257A6: 4EB9 0001 C014           jsr     $1c014.l
0257AC: 588F                     addq.l  #4, A7
0257AE: 6000 0164                bra     25914
0257B2: 522A 0056                addq.b  #1, ($56,A2)
0257B6: 6000 015C                bra     25914
0257BA: 2F0A                     move.l  A2, -(A7)
0257BC: 4EB9 0002 5FC2           jsr     $25fc2.l
0257C2: 2F0A                     move.l  A2, -(A7)
0257C4: 4EB9 0002 53BC           jsr     $253bc.l
0257CA: 2F0A                     move.l  A2, -(A7)
0257CC: 4EB9 0001 7F66           jsr     $17f66.l
0257D2: 2F0A                     move.l  A2, -(A7)
0257D4: 4E94                     jsr     (A4)
0257D6: 0C2A 0005 001A           cmpi.b  #$5, ($1a,A2)
0257DC: 4FEF 0010                lea     ($10,A7), A7
0257E0: 6600 0132                bne     25914
0257E4: 4A2A 0056                tst.b   ($56,A2)
0257E8: 6704                     beq     257ee
0257EA: 532A 0056                subq.b  #1, ($56,A2)
0257EE: 4A2A 0056                tst.b   ($56,A2)
0257F2: 6600 0120                bne     25914
0257F6: 4EB9 0001 5884           jsr     $15884.l
0257FC: 422A 001A                clr.b   ($1a,A2)
025800: 42AA 005A                clr.l   ($5a,A2)
025804: 2F0A                     move.l  A2, -(A7)
025806: 4EB9 0001 C014           jsr     $1c014.l
02580C: 588F                     addq.l  #4, A7
02580E: 6000 0104                bra     25914
025812: 2F0A                     move.l  A2, -(A7)
025814: 4EB9 0002 53BC           jsr     $253bc.l
02581A: 422A 001C                clr.b   ($1c,A2)
02581E: 588F                     addq.l  #4, A7
025820: 6000 00F2                bra     25914
025824: 2F0A                     move.l  A2, -(A7)
025826: 4EB9 0002 5FC2           jsr     $25fc2.l
02582C: 4878 0001                pea     $1.w
025830: 2F0A                     move.l  A2, -(A7)
025832: 4E93                     jsr     (A3)
025834: 4A2A 001C                tst.b   ($1c,A2)
025838: 4FEF 000C                lea     ($c,A7), A7
02583C: 6700 00D6                beq     25914
025840: 2F0A                     move.l  A2, -(A7)
025842: 4EB9 0001 281C           jsr     $1281c.l
025848: 588F                     addq.l  #4, A7
02584A: 6000 00C8                bra     25914
02584E: 2F0A                     move.l  A2, -(A7)
025850: 4EB9 0001 76D2           jsr     $176d2.l
025856: 2F0A                     move.l  A2, -(A7)
025858: 4EB9 0002 5FC2           jsr     $25fc2.l
02585E: 4878 0001                pea     $1.w
025862: 2F0A                     move.l  A2, -(A7)
025864: 4E93                     jsr     (A3)
025866: 2F0A                     move.l  A2, -(A7)
025868: 4EB9 0001 281C           jsr     $1281c.l
02586E: 4FEF 0014                lea     ($14,A7), A7
025872: 6000 00A0                bra     25914
025876: 4878 0001                pea     $1.w
02587A: 2F0A                     move.l  A2, -(A7)
02587C: 4E93                     jsr     (A3)
02587E: 2F0A                     move.l  A2, -(A7)
025880: 4EB9 0001 3ADE           jsr     $13ade.l
025886: 4A80                     tst.l   D0
025888: 4FEF 000C                lea     ($c,A7), A7
02588C: 6700 0086                beq     25914
025890: 157C 0065 0057           move.b  #$65, ($57,A2)
025896: 4878 0004                pea     $4.w
02589A: 2F0A                     move.l  A2, -(A7)
02589C: 4EB9 0002 5BAE           jsr     $25bae.l
0258A2: 508F                     addq.l  #8, A7
0258A4: 6000 006E                bra     25914
0258A8: 4A2A 0056                tst.b   ($56,A2)
0258AC: 6704                     beq     258b2
0258AE: 532A 0056                subq.b  #1, ($56,A2)
0258B2: 4A2A 0056                tst.b   ($56,A2)
0258B6: 660E                     bne     258c6
0258B8: 157C 0009 0056           move.b  #$9, ($56,A2)
0258BE: 526A 006A                addq.w  #1, ($6a,A2)
0258C2: 532A 0057                subq.b  #1, ($57,A2)
0258C6: 4A2A 0057                tst.b   ($57,A2)
0258CA: 6716                     beq     258e2
0258CC: 522A 00D0                addq.b  #1, ($d0,A2)
0258D0: 0C2A 0002 00D0           cmpi.b  #$2, ($d0,A2)
0258D6: 6620                     bne     258f8
0258D8: 422A 00D0                clr.b   ($d0,A2)
0258DC: 58AA 00CC                addq.l  #4, ($cc,A2)
0258E0: 6016                     bra     258f8
0258E2: 422A 00D1                clr.b   ($d1,A2)
0258E6: 422A 001A                clr.b   ($1a,A2)
0258EA: 4878 0010                pea     $10.w
0258EE: 2F0A                     move.l  A2, -(A7)
0258F0: 4EB9 0002 85B0           jsr     $285b0.l
0258F6: 508F                     addq.l  #8, A7
0258F8: 4878 0001                pea     $1.w
0258FC: 2F0A                     move.l  A2, -(A7)
0258FE: 4E93                     jsr     (A3)
025900: 2F0A                     move.l  A2, -(A7)
025902: 4EB9 0001 C014           jsr     $1c014.l
025908: 2F0A                     move.l  A2, -(A7)
02590A: 4EB9 0001 281C           jsr     $1281c.l
025910: 4FEF 0010                lea     ($10,A7), A7
025914: 4CDF 3C04                movem.l (A7)+, D2/A2-A5
025918: 4E75                     rts
02591A: 2F0A                     move.l  A2, -(A7)
02591C: 246F 0008                movea.l ($8,A7), A2
025920: 2F0A                     move.l  A2, -(A7)
025922: 4EB9 0002 62B2           jsr     $262b2.l
025928: 2239 0040 0462           move.l  $400462.l, D1
02592E: 7010                     moveq   #$10, D0
025930: E1A1                     asl.l   D0, D1
025932: 2541 000C                move.l  D1, ($c,A2)
025936: 2239 0040 0466           move.l  $400466.l, D1
02593C: 7010                     moveq   #$10, D0
02593E: E1A1                     asl.l   D0, D1
025940: 2541 0010                move.l  D1, ($10,A2)
025944: 70FF                     moveq   #-$1, D0
025946: 33C0 0040 0698           move.w  D0, $400698.l
02594C: 33C0 0040 0696           move.w  D0, $400696.l
025952: 2F0A                     move.l  A2, -(A7)
025954: 4EB9 0001 BAB2           jsr     $1bab2.l
02595A: 42A7                     clr.l   -(A7)
02595C: 4EB9 0001 CC62           jsr     $1cc62.l
025962: 2540 0014                move.l  D0, ($14,A2)
025966: 1579 0040 0472 001B      move.b  $400472.l, ($1b,A2)
02596E: 7200                     moveq   #$0, D1
025970: 2541 0008                move.l  D1, ($8,A2)
025974: 2001                     move.l  D1, D0
025976: 2540 0004                move.l  D0, ($4,A2)
02597A: 2480                     move.l  D0, (A2)
02597C: 422A 0056                clr.b   ($56,A2)
025980: 422A 0036                clr.b   ($36,A2)
025984: 422A 0058                clr.b   ($58,A2)
025988: 7200                     moveq   #$0, D1
02598A: 2541 0026                move.l  D1, ($26,A2)
02598E: 2541 0022                move.l  D1, ($22,A2)
025992: 2F0A                     move.l  A2, -(A7)
025994: 4EB9 0002 5B40           jsr     $25b40.l
02599A: 42A7                     clr.l   -(A7)
02599C: 2F0A                     move.l  A2, -(A7)
02599E: 4EB9 0001 B9CC           jsr     $1b9cc.l
0259A4: 2F0A                     move.l  A2, -(A7)
0259A6: 4EB9 0001 3966           jsr     $13966.l
0259AC: 4FEF 001C                lea     ($1c,A7), A7
0259B0: 245F                     movea.l (A7)+, A2
0259B2: 4E75                     rts
0259B4: 48E7 3820                movem.l D2-D4/A2, -(A7)
0259B8: 247C 0040 0018           movea.l #$400018, A2
0259BE: 4242                     clr.w   D2
0259C0: 6000 016E                bra     25b30
0259C4: 0C2A 0003 0018           cmpi.b  #$3, ($18,A2)
0259CA: 6704                     beq     259d0
0259CC: 422A 0018                clr.b   ($18,A2)
0259D0: 4A2A 0018                tst.b   ($18,A2)
0259D4: 6700 014E                beq     25b24
0259D8: 70FF                     moveq   #-$1, D0
0259DA: 1540 0071                move.b  D0, ($71,A2)
0259DE: 1540 0070                move.b  D0, ($70,A2)
0259E2: 2079 0040 0474           movea.l $400474.l, A0
0259E8: 3002                     move.w  D2, D0
0259EA: 48C0                     ext.l   D0
0259EC: D080                     add.l   D0, D0
0259EE: 41E8 0014                lea     ($14,A0), A0
0259F2: 3230 0800                move.w  (A0,D0.l), D1
0259F6: E041                     asr.w   #8, D1
0259F8: 0241 00FF                andi.w  #$ff, D1
0259FC: 2079 0040 0474           movea.l $400474.l, A0
025A02: 3002                     move.w  D2, D0
025A04: 48C0                     ext.l   D0
025A06: D080                     add.l   D0, D0
025A08: 41E8 0014                lea     ($14,A0), A0
025A0C: 3630 0800                move.w  (A0,D0.l), D3
025A10: 0243 00FF                andi.w  #$ff, D3
025A14: 3001                     move.w  D1, D0
025A16: 48C0                     ext.l   D0
025A18: 7213                     moveq   #$13, D1
025A1A: E3A0                     asl.l   D1, D0
025A1C: 0680 0004 0000           addi.l  #$40000, D0
025A22: 2540 000C                move.l  D0, ($c,A2)
025A26: 3003                     move.w  D3, D0
025A28: 48C0                     ext.l   D0
025A2A: 7213                     moveq   #$13, D1
025A2C: E3A0                     asl.l   D1, D0
025A2E: 0680 0004 0000           addi.l  #$40000, D0
025A34: 2540 0010                move.l  D0, ($10,A2)
025A38: 70FF                     moveq   #-$1, D0
025A3A: 33C0 0040 0698           move.w  D0, $400698.l
025A40: 33C0 0040 0696           move.w  D0, $400696.l
025A46: 2F0A                     move.l  A2, -(A7)
025A48: 4EB9 0001 BAB2           jsr     $1bab2.l
025A4E: 42A7                     clr.l   -(A7)
025A50: 4EB9 0001 CC62           jsr     $1cc62.l
025A56: 2540 0014                move.l  D0, ($14,A2)
025A5A: 4240                     clr.w   D0
025A5C: 3540 00C4                move.w  D0, ($c4,A2)
025A60: 1540 001B                move.b  D0, ($1b,A2)
025A64: 7000                     moveq   #$0, D0
025A66: 2540 0008                move.l  D0, ($8,A2)
025A6A: 2540 0004                move.l  D0, ($4,A2)
025A6E: 2480                     move.l  D0, (A2)
025A70: 4200                     clr.b   D0
025A72: 1540 0057                move.b  D0, ($57,A2)
025A76: 1540 0056                move.b  D0, ($56,A2)
025A7A: 422A 001A                clr.b   ($1a,A2)
025A7E: 157C 0001 0018           move.b  #$1, ($18,A2)
025A84: 42AA 005A                clr.l   ($5a,A2)
025A88: 422A 0036                clr.b   ($36,A2)
025A8C: 422A 0058                clr.b   ($58,A2)
025A90: 422A 00CB                clr.b   ($cb,A2)
025A94: 4200                     clr.b   D0
025A96: 1540 00D8                move.b  D0, ($d8,A2)
025A9A: 1540 0067                move.b  D0, ($67,A2)
025A9E: 1540 00D1                move.b  D0, ($d1,A2)
025AA2: 7000                     moveq   #$0, D0
025AA4: 2540 0026                move.l  D0, ($26,A2)
025AA8: 2540 0022                move.l  D0, ($22,A2)
025AAC: 2F0A                     move.l  A2, -(A7)
025AAE: 4EB9 0002 5B40           jsr     $25b40.l
025AB4: 42A7                     clr.l   -(A7)
025AB6: 2F0A                     move.l  A2, -(A7)
025AB8: 4EB9 0001 B9CC           jsr     $1b9cc.l
025ABE: 2F0A                     move.l  A2, -(A7)
025AC0: 4EB9 0001 C014           jsr     $1c014.l
025AC6: 2F0A                     move.l  A2, -(A7)
025AC8: 4EB9 0001 281C           jsr     $1281c.l
025ACE: 102A 0019                move.b  ($19,A2), D0
025AD2: 4880                     ext.w   D0
025AD4: 48C0                     ext.l   D0
025AD6: 2F00                     move.l  D0, -(A7)
025AD8: 4878 0001                pea     $1.w
025ADC: 4EB9 0001 8E6C           jsr     $18e6c.l
025AE2: 7002                     moveq   #$2, D0
025AE4: B079 0040 0394           cmp.w   $400394.l, D0   Level 3?
025AEA: 4FEF 0024                lea     ($24,A7), A7
025AEE: 6F04                     ble     25af4
025AF0: 426A 006A                clr.w   ($6a,A2)
025AF4: 157C 0009 006C           move.b  #$9, ($6c,A2)
025AFA: 157C 00FF 006E           move.b  #$ff, ($6e,A2)
025B00: 7003                     moveq   #$3, D0
025B02: B079 0040 0394           cmp.w   $400394.l, D0   Level 3?
025B08: 661A                     bne     25b24
025B0A: 4A2A 0019                tst.b   ($19,A2)
025B0E: 6708                     beq     25b18
025B10: 157C 0018 0058           move.b  #$18, ($58,A2)
025B16: 6006                     bra     25b1e
025B18: 157C 0017 0058           move.b  #$17, ($58,A2)
025B1E: 157C 00FF 0059           move.b  #$ff, ($59,A2)
025B24: 280A                     move.l  A2, D4
025B26: 0684 0000 00E2           addi.l  #$e2, D4
025B2C: 2444                     movea.l D4, A2
025B2E: 5242                     addq.w  #1, D2
025B30: B479 0040 0396           cmp.w   $400396.l, D2
025B36: 6600 FE8C                bne     259c4
025B3A: 4CDF 041C                movem.l (A7)+, D2-D4/A2
025B3E: 4E75                     rts

025B40: 48E7 3000                movem.l D2-D3, -(A7)
025B44: 226F 000C                movea.l ($c,A7), A1
025B48: 4229 00CA                clr.b   ($ca,A1)
025B4C: 4201                     clr.b   D1
025B4E: 1001                     move.b  D1, D0
025B50: 4880                     ext.w   D0
025B52: 207C 0001 D3F4           movea.l #$1d3f4, A0
025B58: 1630 0000                move.b  (A0,D0.w), D3
025B5C: 4883                     ext.w   D3
025B5E: 700B                     moveq   #$b, D0
025B60: E163                     asl.w   D0, D3
025B62: 1001                     move.b  D1, D0
025B64: 4880                     ext.w   D0
025B66: 207C 0001 D3FC           movea.l #$1d3fc, A0
025B6C: 1430 0000                move.b  (A0,D0.w), D2
025B70: 4882                     ext.w   D2
025B72: 700B                     moveq   #$b, D0
025B74: E162                     asl.w   D0, D2
025B76: 1001                     move.b  D1, D0
025B78: 4880                     ext.w   D0
025B7A: D040                     add.w   D0, D0
025B7C: 41E9 0074                lea     ($74,A1), A0
025B80: 3183 0000                move.w  D3, (A0,D0.w)
025B84: 1001                     move.b  D1, D0
025B86: 4880                     ext.w   D0
025B88: D040                     add.w   D0, D0
025B8A: 41E9 0084                lea     ($84,A1), A0
025B8E: 3182 0000                move.w  D2, (A0,D0.w)
025B92: 1001                     move.b  D1, D0
025B94: 4880                     ext.w   D0
025B96: D040                     add.w   D0, D0
025B98: 41E9 0094                lea     ($94,A1), A0
025B9C: 4270 0000                clr.w   (A0,D0.w)
025BA0: 5201                     addq.b  #1, D1
025BA2: 0C01 0008                cmpi.b  #$8, D1
025BA6: 66A6                     bne     25b4e
025BA8: 4CDF 000C                movem.l (A7)+, D2-D3
025BAC: 4E75                     rts

025BAE: 2F0A                     move.l  A2, -(A7)
025BB0: 246F 0008                movea.l ($8,A7), A2
025BB4: 102F 000F                move.b  ($f,A7), D0
025BB8: 7200                     moveq   #$0, D1
025BBA: 2541 0004                move.l  D1, ($4,A2)
025BBE: 2481                     move.l  D1, (A2)
025BC0: 0C2A 0006 001A           cmpi.b  #$6, ($1a,A2)
025BC6: 6606                     bne     25bce
025BC8: 157C 0003 0018           move.b  #$3, ($18,A2)
025BCE: 0C00 0002                cmpi.b  #$2, D0
025BD2: 6638                     bne     25c0c
025BD4: 302A 0020                move.w  ($20,A2), D0
025BD8: 0240 FFFF                andi.w  #$ffff, D0
025BDC: 4879 0000 0038           pea     $38.l
025BE2: 4EB9 0001 58AC           jsr     $158ac.l
025BE8: 422A 005F                clr.b   ($5f,A2)
025BEC: 157C 0002 0060           move.b  #$2, ($60,A2)
025BF2: 257C 0002 0FDE 005A      move.l  #$20fde, ($5a,A2)
025BFA: 157C 0002 0056           move.b  #$2, ($56,A2)
025C00: 157C 0002 001A           move.b  #$2, ($1a,A2)
025C06: 588F                     addq.l  #4, A7
025C08: 6000 0066                bra     25c70
025C0C: 0C00 0009                cmpi.b  #$9, D0
025C10: 661A                     bne     25c2c
025C12: 422A 005F                clr.b   ($5f,A2)
025C16: 157C 0004 0060           move.b  #$4, ($60,A2)
025C1C: 257C 0002 1062 005A      move.l  #$21062, ($5a,A2)
025C24: 157C 0009 001A           move.b  #$9, ($1a,A2)
025C2A: 6044                     bra     25c70
025C2C: 0C00 0004                cmpi.b  #$4, D0
025C30: 663E                     bne     25c70
025C32: 2F0A                     move.l  A2, -(A7)
025C34: 4EB9 0002 591A           jsr     $2591a.l
025C3A: 0C2A 0065 0057           cmpi.b  #$65, ($57,A2)
025C40: 588F                     addq.l  #4, A7
025C42: 6610                     bne     25c54
025C44: 4879 0000 003C           pea     $3c.l
025C4A: 4EB9 0001 58AC           jsr     $158ac.l
025C50: 588F                     addq.l  #4, A7
025C52: 600E                     bra     25c62
025C54: 4879 0000 003D           pea     $3d.l
025C5A: 4EB9 0001 58AC           jsr     $158ac.l
025C60: 588F                     addq.l  #4, A7
025C62: 42AA 005A                clr.l   ($5a,A2)
025C66: 157C 0004 001A           move.b  #$4, ($1a,A2)
025C6C: 526A 00D2                addq.w  #1, ($d2,A2)
025C70: 245F                     movea.l (A7)+, A2
025C72: 4E75                     rts
025C74: 48E7 3830                movem.l D2-D4/A2-A3, -(A7)
025C78: 246F 0018                movea.l ($18,A7), A2
025C7C: 322F 001E                move.w  ($1e,A7), D1
025C80: 267C 0002 5BAE           movea.l #$25bae, A3
025C86: 162A 001A                move.b  ($1a,A2), D3
025C8A: 7001                     moveq   #$1, D0
025C8C: B5FC 0040 0018           cmpa.l  #$400018, A2
025C92: 6700 000E                beq     25ca2
025C96: B5FC 0040 00FA           cmpa.l  #$4000fa, A2
025C9C: 6700 0004                beq     25ca2
025CA0: 4200                     clr.b   D0
025CA2: 1400                     move.b  D0, D2
025CA4: 6716                     beq     25cbc
025CA6: 0C2A 0006 001A           cmpi.b  #$6, ($1a,A2)
025CAC: 6606                     bne     25cb4
025CAE: 157C 0003 0018           move.b  #$3, ($18,A2)
025CB4: 157C 0001 001A           move.b  #$1, ($1a,A2)
025CBA: 6006                     bra     25cc2
025CBC: 157C 0024 001A           move.b  #$24, ($1a,A2)
025CC2: 102A 0057                move.b  ($57,A2), D0
025CC6: 4880                     ext.w   D0
025CC8: 3800                     move.w  D0, D4
025CCA: D841                     add.w   D1, D4
025CCC: 707F                     moveq   #$7f, D0
025CCE: B044                     cmp.w   D4, D0
025CD0: 6C02                     bge     25cd4
025CD2: 787F                     moveq   #$7f, D4
025CD4: 1544 0057                move.b  D4, ($57,A2)
025CD8: 4A02                     tst.b   D2
025CDA: 6700 00DE                beq     25dba
025CDE: 102A 0056                move.b  ($56,A2), D0
025CE2: 4880                     ext.w   D0
025CE4: 48C0                     ext.l   D0
025CE6: 122A 0057                move.b  ($57,A2), D1
025CEA: 4881                     ext.w   D1
025CEC: 48C1                     ext.l   D1
025CEE: 142A 0056                move.b  ($56,A2), D2
025CF2: 4882                     ext.w   D2
025CF4: 48C2                     ext.l   D2
025CF6: 9282                     sub.l   D2, D1
025CF8: E281                     asr.l   #1, D1
025CFA: D081                     add.l   D1, D0
025CFC: 721F                     moveq   #$1f, D1
025CFE: B280                     cmp.l   D0, D1
025D00: 6C00 0090                bge     25d92
025D04: 342A 0020                move.w  ($20,A2), D2
025D08: 0242 FFFF                andi.w  #$ffff, D2
025D0C: 0C03 0001                cmpi.b  #$1, D3
025D10: 6700 0008                beq     25d1a
025D14: 0C03 0005                cmpi.b  #$5, D3
025D18: 664C                     bne     25d66
025D1A: 4EB9 0001 5884           jsr     $15884.l
025D20: 422A 005F                clr.b   ($5f,A2)
025D24: 157C 0001 0056           move.b  #$1, ($56,A2)
025D2A: 157C 0002 0060           move.b  #$2, ($60,A2)
025D30: 257C 0002 0FD2 005A      move.l  #$20fd2, ($5a,A2)
025D38: 70F0                     moveq   #-$10, D0
025D3A: B042                     cmp.w   D2, D0
025D3C: 6C14                     bge     25d52
025D3E: 0C42 00F0                cmpi.w  #$f0, D2
025D42: 6C0E                     bge     25d52
025D44: 4878 0002                pea     $2.w
025D48: 2F0A                     move.l  A2, -(A7)
025D4A: 4E93                     jsr     (A3)
025D4C: 508F                     addq.l  #8, A7
025D4E: 6000 00A0                bra     25df0
025D52: 157C 0064 0057           move.b  #$64, ($57,A2)
025D58: 4878 0004                pea     $4.w
025D5C: 2F0A                     move.l  A2, -(A7)
025D5E: 4E93                     jsr     (A3)
025D60: 508F                     addq.l  #8, A7
025D62: 6000 008C                bra     25df0
025D66: 70F0                     moveq   #-$10, D0
025D68: B042                     cmp.w   D2, D0
025D6A: 6C14                     bge     25d80
025D6C: 0C42 00F0                cmpi.w  #$f0, D2
025D70: 6C0E                     bge     25d80
025D72: 4878 0002                pea     $2.w
025D76: 2F0A                     move.l  A2, -(A7)
025D78: 4E93                     jsr     (A3)
025D7A: 508F                     addq.l  #8, A7
025D7C: 6000 0072                bra     25df0
025D80: 157C 0064 0057           move.b  #$64, ($57,A2)
025D86: 4878 0004                pea     $4.w
025D8A: 2F0A                     move.l  A2, -(A7)
025D8C: 4E93                     jsr     (A3)
025D8E: 508F                     addq.l  #8, A7
025D90: 605E                     bra     25df0
025D92: 0C03 0001                cmpi.b  #$1, D3
025D96: 6758                     beq     25df0
025D98: 422A 005F                clr.b   ($5f,A2)
025D9C: 157C 0002 0060           move.b  #$2, ($60,A2)
025DA2: 257C 0002 0FAA 005A      move.l  #$20faa, ($5a,A2)
025DAA: 4879 0000 0039           pea     $39.l
025DB0: 4EB9 0001 58AC           jsr     $158ac.l
025DB6: 588F                     addq.l  #4, A7
025DB8: 6036                     bra     25df0
025DBA: 1001                     move.b  D1, D0
025DBC: D12A 0056                add.b   D0, ($56,A2)
025DC0: 0C2A 0050 0056           cmpi.b  #$50, ($56,A2)
025DC6: 6E00 0008                bgt     25dd0
025DCA: 701F                     moveq   #$1f, D0
025DCC: B041                     cmp.w   D1, D0
025DCE: 6C20                     bge     25df0
025DD0: 42A7                     clr.l   -(A7)
025DD2: 4878 0001                pea     $1.w
025DD6: 2F0A                     move.l  A2, -(A7)
025DD8: 4EB9 0001 5BD0           jsr     $15bd0.l
025DDE: 157C 0002 0018           move.b  #$2, ($18,A2)
025DE4: 4878 0002                pea     $2.w
025DE8: 2F0A                     move.l  A2, -(A7)
025DEA: 4E93                     jsr     (A3)
025DEC: 4FEF 0014                lea     ($14,A7), A7
025DF0: 4CDF 0C1C                movem.l (A7)+, D2-D4/A2-A3
025DF4: 4E75                     rts
025DF6: 2F0A                     move.l  A2, -(A7)
025DF8: 206F 0008                movea.l ($8,A7), A0
025DFC: 247C 0040 06A6           movea.l #$4006a6, A2
025E02: 227C 0040 06A4           movea.l #$4006a4, A1
025E08: 3011                     move.w  (A1), D0
025E0A: 6C08                     bge     25e14
025E0C: 7200                     moveq   #$0, D1
025E0E: 3200                     move.w  D0, D1
025E10: 4481                     neg.l   D1
025E12: 6004                     bra     25e18
025E14: 7200                     moveq   #$0, D1
025E16: 3200                     move.w  D0, D1
025E18: 700C                     moveq   #$c, D0
025E1A: B041                     cmp.w   D1, D0
025E1C: 6206                     bhi     25e24
025E1E: 3011                     move.w  (A1), D0
025E20: E540                     asl.w   #2, D0
025E22: 3280                     move.w  D0, (A1)
025E24: 3012                     move.w  (A2), D0
025E26: 6C08                     bge     25e30
025E28: 7200                     moveq   #$0, D1
025E2A: 3200                     move.w  D0, D1
025E2C: 4481                     neg.l   D1
025E2E: 6004                     bra     25e34
025E30: 7200                     moveq   #$0, D1
025E32: 3200                     move.w  D0, D1
025E34: 700C                     moveq   #$c, D0
025E36: B041                     cmp.w   D1, D0
025E38: 6206                     bhi     25e40
025E3A: 3012                     move.w  (A2), D0
025E3C: E540                     asl.w   #2, D0
025E3E: 3480                     move.w  D0, (A2)
025E40: 7004                     moveq   #$4, D0
025E42: B079 0040 0394           cmp.w   $400394.l, D0
025E48: 6718                     beq     25e62
025E4A: 3011                     move.w  (A1), D0
025E4C: 48C0                     ext.l   D0
025E4E: 720B                     moveq   #$b, D1
025E50: E3A0                     asl.l   D1, D0
025E52: 9190                     sub.l   D0, (A0)
025E54: 3012                     move.w  (A2), D0
025E56: 48C0                     ext.l   D0
025E58: 720B                     moveq   #$b, D1
025E5A: E3A0                     asl.l   D1, D0
025E5C: 91A8 0004                sub.l   D0, ($4,A0)
025E60: 6016                     bra     25e78
025E62: 3011                     move.w  (A1), D0
025E64: 48C0                     ext.l   D0
025E66: 720B                     moveq   #$b, D1
025E68: E3A0                     asl.l   D1, D0
025E6A: D190                     add.l   D0, (A0)
025E6C: 3012                     move.w  (A2), D0
025E6E: 48C0                     ext.l   D0
025E70: 720B                     moveq   #$b, D1
025E72: E3A0                     asl.l   D1, D0
025E74: D1A8 0004                add.l   D0, ($4,A0)
025E78: 245F                     movea.l (A7)+, A2
025E7A: 4E75                     rts
025E7C: 48E7 3C00                movem.l D2-D5, -(A7)
025E80: 206F 0014                movea.l ($14,A7), A0
025E84: 122F 001B                move.b  ($1b,A7), D1
025E88: 2010                     move.l  (A0), D0
025E8A: 6C04                     bge     25e90
025E8C: 4480                     neg.l   D0
025E8E: 4E71                     nop
025E90: 2400                     move.l  D0, D2
025E92: 2028 0004                move.l  ($4,A0), D0
025E96: 6C04                     bge     25e9c
025E98: 4480                     neg.l   D0
025E9A: 4E71                     nop
025E9C: 2800                     move.l  D0, D4
025E9E: B484                     cmp.l   D4, D2
025EA0: 6310                     bls     25eb2
025EA2: 2004                     move.l  D4, D0
025EA4: E688                     lsr.l   #3, D0
025EA6: 3600                     move.w  D0, D3
025EA8: 48C3                     ext.l   D3
025EAA: C6FC 0003                mulu.w  #$3, D3
025EAE: D682                     add.l   D2, D3
025EB0: 600E                     bra     25ec0
025EB2: 2002                     move.l  D2, D0
025EB4: E688                     lsr.l   #3, D0
025EB6: 3600                     move.w  D0, D3
025EB8: 48C3                     ext.l   D3
025EBA: C6FC 0003                mulu.w  #$3, D3
025EBE: D684                     add.l   D4, D3
025EC0: 2003                     move.l  D3, D0
025EC2: 740F                     moveq   #$f, D2
025EC4: E4A8                     lsr.l   D2, D0
025EC6: 3800                     move.w  D0, D4
025EC8: 0244 000F                andi.w  #$f, D4
025ECC: 2003                     move.l  D3, D0
025ECE: 740C                     moveq   #$c, D2
025ED0: E4A8                     lsr.l   D2, D0
025ED2: 3400                     move.w  D0, D2
025ED4: 0242 0007                andi.w  #$7, D2
025ED8: 3004                     move.w  D4, D0
025EDA: 48C0                     ext.l   D0
025EDC: D080                     add.l   D0, D0
025EDE: 227C 0001 EEF8           movea.l #$1eef8, A1
025EE4: 3A31 0800                move.w  (A1,D0.l), D5
025EE8: 3004                     move.w  D4, D0
025EEA: 48C0                     ext.l   D0
025EEC: 5280                     addq.l  #1, D0
025EEE: D080                     add.l   D0, D0
025EF0: 227C 0001 EEF8           movea.l #$1eef8, A1
025EF6: 3031 0800                move.w  (A1,D0.l), D0
025EFA: 9045                     sub.w   D5, D0
025EFC: C1C2                     muls.w  D2, D0
025EFE: 2400                     move.l  D0, D2
025F00: E682                     asr.l   #3, D2
025F02: 3005                     move.w  D5, D0
025F04: 48C0                     ext.l   D0
025F06: D480                     add.l   D0, D2
025F08: 0C83 0000 0100           cmpi.l  #$100, D3
025F0E: 6406                     bcc     25f16
025F10: 263C 0000 0100           move.l  #$100, D3
025F16: 0C01 0002                cmpi.b  #$2, D1
025F1A: 661A                     bne     25f36
025F1C: 2002                     move.l  D2, D0
025F1E: E580                     asl.l   #2, D0
025F20: 2400                     move.l  D0, D2
025F22: 2002                     move.l  D2, D0
025F24: B083                     cmp.l   D3, D0
025F26: 6406                     bcc     25f2e
025F28: 2003                     move.l  D3, D0
025F2A: 9082                     sub.l   D2, D0
025F2C: 6002                     bra     25f30
025F2E: 7000                     moveq   #$0, D0
025F30: 2800                     move.l  D0, D4
025F32: 6000 004C                bra     25f80
025F36: 0C01 0003                cmpi.b  #$3, D1
025F3A: 6624                     bne     25f60
025F3C: 2002                     move.l  D2, D0
025F3E: B083                     cmp.l   D3, D0
025F40: 6406                     bcc     25f48
025F42: 2803                     move.l  D3, D4
025F44: 9882                     sub.l   D2, D4
025F46: 6002                     bra     25f4a
025F48: 7800                     moveq   #$0, D4
025F4A: 2002                     move.l  D2, D0
025F4C: E580                     asl.l   #2, D0
025F4E: D480                     add.l   D0, D2
025F50: 2002                     move.l  D2, D0
025F52: B083                     cmp.l   D3, D0
025F54: 6406                     bcc     25f5c
025F56: 2003                     move.l  D3, D0
025F58: 9082                     sub.l   D2, D0
025F5A: 6024                     bra     25f80
025F5C: 7000                     moveq   #$0, D0
025F5E: 6020                     bra     25f80
025F60: 0C01 0004                cmpi.b  #$4, D1
025F64: 660A                     bne     25f70
025F66: 2002                     move.l  D2, D0
025F68: E480                     asr.l   #2, D0
025F6A: D083                     add.l   D3, D0
025F6C: 2800                     move.l  D0, D4
025F6E: 6010                     bra     25f80
025F70: 2002                     move.l  D2, D0
025F72: B083                     cmp.l   D3, D0
025F74: 6406                     bcc     25f7c
025F76: 2003                     move.l  D3, D0
025F78: 9082                     sub.l   D2, D0
025F7A: 6002                     bra     25f7e
025F7C: 7000                     moveq   #$0, D0
025F7E: 2800                     move.l  D0, D4
025F80: ED88                     lsl.l   #6, D0
025F82: 2400                     move.l  D0, D2
025F84: 2003                     move.l  D3, D0
025F86: E088                     lsr.l   #8, D0
025F88: 84C0                     divu.w  D0, D2
025F8A: 3A02                     move.w  D2, D5
025F8C: 0C01 0003                cmpi.b  #$3, D1
025F90: 6610                     bne     25fa2
025F92: 2004                     move.l  D4, D0
025F94: ED88                     lsl.l   #6, D0
025F96: 2400                     move.l  D0, D2
025F98: 2003                     move.l  D3, D0
025F9A: E088                     lsr.l   #8, D0
025F9C: 84C0                     divu.w  D0, D2
025F9E: 3202                     move.w  D2, D1
025FA0: 6002                     bra     25fa4
025FA2: 3205                     move.w  D5, D1
025FA4: 2010                     move.l  (A0), D0
025FA6: E080                     asr.l   #8, D0
025FA8: C1C5                     muls.w  D5, D0
025FAA: EC80                     asr.l   #6, D0
025FAC: 2080                     move.l  D0, (A0)
025FAE: 2028 0004                move.l  ($4,A0), D0   Rolling down hill??
025FB2: E080                     asr.l   #8, D0
025FB4: C1C1                     muls.w  D1, D0
025FB6: EC80                     asr.l   #6, D0
025FB8: 2140 0004                move.l  D0, ($4,A0)
025FBC: 4CDF 003C                movem.l (A7)+, D2-D5
025FC0: 4E75                     rts

025FC2: 48E7 0030                movem.l A2-A3, -(A7)
025FC6: 246F 000C                movea.l ($c,A7), A2
025FCA: 227C 0002 0FDE           movea.l #$20fde, A1
025FD0: 267C 0040 0018           movea.l #$400018, A3
025FD6: 0C2A 0002 001A           cmpi.b  #$2, ($1a,A2)
025FDC: 663C                     bne     2601a
025FDE: 2009                     move.l  A1, D0
025FE0: B0AA 005A                cmp.l   ($5a,A2), D0
025FE4: 6434                     bcc     2601a
025FE6: 2009                     move.l  A1, D0
025FE8: 0680 0000 0080           addi.l  #$80, D0
025FEE: B0AA 005A                cmp.l   ($5a,A2), D0
025FF2: 6326                     bls     2601a
025FF4: 202A 005A                move.l  ($5a,A2), D0
025FF8: 2049                     movea.l A1, A0
025FFA: 9088                     sub.l   A0, D0
025FFC: E488                     lsr.l   #2, D0
025FFE: 3200                     move.w  D0, D1
026000: 7009                     moveq   #$9, D0
026002: B041                     cmp.w   D1, D0
026004: 6C14                     bge     2601a
026006: 522A 0066                addq.b  #1, ($66,A2)
02600A: 0C2A 0001 0066           cmpi.b  #$1, ($66,A2)
026010: 6608                     bne     2601a
026012: 422A 0066                clr.b   ($66,A2)
026016: 58AA 0062                addq.l  #4, ($62,A2)
02601A: 522A 005F                addq.b  #1, ($5f,A2)
02601E: 102A 0060                move.b  ($60,A2), D0
026022: B02A 005F                cmp.b   ($5f,A2), D0
026026: 6E00 0168                bgt     26190
02602A: 422A 005F                clr.b   ($5f,A2)
02602E: 58AA 005A                addq.l  #4, ($5a,A2)
026032: 0C2A 0002 001A           cmpi.b  #$2, ($1a,A2)
026038: 6636                     bne     26070
02603A: 202A 005A                move.l  ($5a,A2), D0
02603E: 2049                     movea.l A1, A0
026040: 9088                     sub.l   A0, D0
026042: E488                     lsr.l   #2, D0
026044: 3200                     move.w  D0, D1
026046: 7009                     moveq   #$9, D0
026048: B041                     cmp.w   D1, D0
02604A: 6624                     bne     26070
02604C: 302A 0020                move.w  ($20,A2), D0
026050: 257C 0002 15F6 0062      move.l  #$215f6, ($62,A2)
026058: 422A 0066                clr.b   ($66,A2)
02605C: 157C 0001 0067           move.b  #$1, ($67,A2)
026062: 4879 0000 005F           pea     $5f.l
026068: 4EB9 0001 58AC           jsr     $158ac.l
02606E: 588F                     addq.l  #4, A7
026070: 206A 005A                movea.l ($5a,A2), A0
026074: 70FF                     moveq   #-$1, D0
026076: B090                     cmp.l   (A0), D0
026078: 6600 0116                bne     26190
02607C: 0C2A 0001 001A           cmpi.b  #$1, ($1a,A2)
026082: 6700 000A                beq     2608e
026086: 0C2A 0005 001A           cmpi.b  #$5, ($1a,A2)
02608C: 6634                     bne     260c2
02608E: 0C2A 0006 0056           cmpi.b  #$6, ($56,A2)
026094: 6F16                     ble     260ac
026096: 422A 005F                clr.b   ($5f,A2)
02609A: 157C 0002 0060           move.b  #$2, ($60,A2)
0260A0: 257C 0002 0FB6 005A      move.l  #$20fb6, ($5a,A2)
0260A8: 6000 00E6                bra     26190
0260AC: 422A 005F                clr.b   ($5f,A2)
0260B0: 157C 0002 0060           move.b  #$2, ($60,A2)
0260B6: 257C 0002 0FD2 005A      move.l  #$20fd2, ($5a,A2)
0260BE: 6000 00D0                bra     26190
0260C2: 0C2A 0002 001A           cmpi.b  #$2, ($1a,A2)
0260C8: 6600 00B2                bne     2617c
0260CC: 4A2A 0056                tst.b   ($56,A2)
0260D0: 661C                     bne     260ee
0260D2: 422A 005F                clr.b   ($5f,A2)
0260D6: 157C 0002 0060           move.b  #$2, ($60,A2)
0260DC: 257C 0002 0FD2 005A      move.l  #$20fd2, ($5a,A2)
0260E4: 157C 0001 0056           move.b  #$1, ($56,A2)
0260EA: 6000 00A4                bra     26190
0260EE: 0C2A 0001 0056           cmpi.b  #$1, ($56,A2)
0260F4: 6618                     bne     2610e
0260F6: 4EB9 0001 5884           jsr     $15884.l
0260FC: 4878 0002                pea     $2.w
026100: 2F0A                     move.l  A2, -(A7)
026102: 4EB9 0002 5BAE           jsr     $25bae.l
026108: 508F                     addq.l  #8, A7
02610A: 6000 0084                bra     26190
02610E: 422A 0067                clr.b   ($67,A2)
026112: 204B                     movea.l A3, A0
026114: B5C8                     cmpa.l  A0, A2
026116: 6700 000A                beq     26122
02611A: 41EB 00E2                lea     ($e2,A3), A0
02611E: B5C8                     cmpa.l  A0, A2
026120: 6604                     bne     26126
026122: 426A 00A4                clr.w   ($a4,A2)
026126: 0C2A 0002 0018           cmpi.b  #$2, ($18,A2)
02612C: 6638                     bne     26166
02612E: 422A 0018                clr.b   ($18,A2)
026132: 204B                     movea.l A3, A0
026134: B5C8                     cmpa.l  A0, A2
026136: 6700 000A                beq     26142
02613A: 41EB 00E2                lea     ($e2,A3), A0
02613E: B5C8                     cmpa.l  A0, A2
026140: 6604                     bne     26146
026142: 7001                     moveq   #$1, D0
026144: 6002                     bra     26148
026146: 7002                     moveq   #$2, D0
026148: 1200                     move.b  D0, D1
02614A: 102A 0019                move.b  ($19,A2), D0
02614E: 4880                     ext.w   D0
026150: 48C0                     ext.l   D0
026152: 2F00                     move.l  D0, -(A7)
026154: 1001                     move.b  D1, D0
026156: 4880                     ext.w   D0
026158: 48C0                     ext.l   D0
02615A: 2F00                     move.l  D0, -(A7)
02615C: 4EB9 0001 8F46           jsr     $18f46.l
026162: 508F                     addq.l  #8, A7
026164: 602A                     bra     26190
026166: 157C 0065 0057           move.b  #$65, ($57,A2)
02616C: 4878 0004                pea     $4.w
026170: 2F0A                     move.l  A2, -(A7)
026172: 4EB9 0002 5BAE           jsr     $25bae.l
026178: 508F                     addq.l  #8, A7
02617A: 6014                     bra     26190
02617C: 157C 0065 0057           move.b  #$65, ($57,A2)
026182: 4878 0004                pea     $4.w
026186: 2F0A                     move.l  A2, -(A7)
026188: 4EB9 0002 5BAE           jsr     $25bae.l
02618E: 508F                     addq.l  #8, A7
026190: 4CDF 0C00                movem.l (A7)+, A2-A3
026194: 4E75                     rts
026196: 206F 0004                movea.l ($4,A7), A0
02619A: 4A28 001A                tst.b   ($1a,A0)
02619E: 6608                     bne     261a8
0261A0: 203C 0004 0000           move.l  #$40000, D0
0261A6: 6006                     bra     261ae
0261A8: 203C 0005 0000           move.l  #$50000, D0
0261AE: 2F00                     move.l  D0, -(A7)
0261B0: 2F08                     move.l  A0, -(A7)
0261B2: 4EB9 0002 61BC           jsr     $261bc.l
0261B8: 508F                     addq.l  #8, A7
0261BA: 4E75                     rts
0261BC: 48E7 3C20                movem.l D2-D5/A2, -(A7)
0261C0: 246F 0018                movea.l ($18,A7), A2
0261C4: 242F 001C                move.l  ($1c,A7), D2
0261C8: 2012                     move.l  (A2), D0
0261CA: 6C04                     bge     261d0
0261CC: 4480                     neg.l   D0
0261CE: 4E71                     nop
0261D0: 2200                     move.l  D0, D1
0261D2: 202A 0004                move.l  ($4,A2), D0
0261D6: 6C04                     bge     261dc
0261D8: 4480                     neg.l   D0
0261DA: 4E71                     nop
0261DC: 2800                     move.l  D0, D4
0261DE: B284                     cmp.l   D4, D1
0261E0: 6310                     bls     261f2
0261E2: 2004                     move.l  D4, D0
0261E4: E688                     lsr.l   #3, D0
0261E6: 3600                     move.w  D0, D3
0261E8: 48C3                     ext.l   D3
0261EA: C6FC 0003                mulu.w  #$3, D3
0261EE: D681                     add.l   D1, D3
0261F0: 600E                     bra     26200
0261F2: 2001                     move.l  D1, D0
0261F4: E688                     lsr.l   #3, D0
0261F6: 3600                     move.w  D0, D3
0261F8: 48C3                     ext.l   D3
0261FA: C6FC 0003                mulu.w  #$3, D3
0261FE: D684                     add.l   D4, D3
026200: B5FC 0040 0018           cmpa.l  #$400018, A2
026206: 6700 000C                beq     26214
02620A: B5FC 0040 00FA           cmpa.l  #$4000fa, A2
026210: 6600 0070                bne     26282
026214: 2003                     move.l  D3, D0
026216: 720F                     moveq   #$f, D1
026218: E2A8                     lsr.l   D1, D0
02621A: 3800                     move.w  D0, D4
02621C: 0244 000F                andi.w  #$f, D4
026220: 2003                     move.l  D3, D0
026222: 720C                     moveq   #$c, D1
026224: E2A8                     lsr.l   D1, D0
026226: 3200                     move.w  D0, D1
026228: 0241 0007                andi.w  #$7, D1
02622C: 3004                     move.w  D4, D0
02622E: 48C0                     ext.l   D0
026230: D080                     add.l   D0, D0
026232: 207C 0001 EEF8           movea.l #$1eef8, A0
026238: 3A30 0800                move.w  (A0,D0.l), D5
02623C: 3004                     move.w  D4, D0
02623E: 48C0                     ext.l   D0
026240: 5280                     addq.l  #1, D0
026242: D080                     add.l   D0, D0
026244: 207C 0001 EEF8           movea.l #$1eef8, A0
02624A: 3030 0800                move.w  (A0,D0.l), D0
02624E: 9045                     sub.w   D5, D0
026250: C1C1                     muls.w  D1, D0
026252: 2200                     move.l  D0, D1
026254: E681                     asr.l   #3, D1
026256: 3005                     move.w  D5, D0
026258: 48C0                     ext.l   D0
02625A: D280                     add.l   D0, D1
02625C: 7009                     moveq   #$9, D0
02625E: E0A1                     asr.l   D0, D1
026260: 3001                     move.w  D1, D0
026262: D16A 00C4                add.w   D0, ($c4,A2)
026266: 0C6A 00A0 00C4           cmpi.w  #$a0, ($c4,A2)
02626C: 6F14                     ble     26282
02626E: 046A 00A0 00C4           subi.w  #$a0, ($c4,A2)
026274: 4878 000A                pea     $a.w
026278: 2F0A                     move.l  A2, -(A7)
02627A: 4EB9 0002 8608           jsr     $28608.l
026280: 508F                     addq.l  #8, A7
026282: 2002                     move.l  D2, D0
026284: B083                     cmp.l   D3, D0
026286: 6424                     bcc     262ac
026288: 2002                     move.l  D2, D0
02628A: ED80                     asl.l   #6, D0
02628C: 2200                     move.l  D0, D1
02628E: 2003                     move.l  D3, D0
026290: E088                     lsr.l   #8, D0
026292: 82C0                     divu.w  D0, D1
026294: 2012                     move.l  (A2), D0
026296: E080                     asr.l   #8, D0
026298: C1C1                     muls.w  D1, D0
02629A: EC80                     asr.l   #6, D0
02629C: 2480                     move.l  D0, (A2)
02629E: 202A 0004                move.l  ($4,A2), D0
0262A2: E080                     asr.l   #8, D0
0262A4: C1C1                     muls.w  D1, D0
0262A6: EC80                     asr.l   #6, D0
0262A8: 2540 0004                move.l  D0, ($4,A2)
0262AC: 4CDF 043C                movem.l (A7)+, D2-D5/A2
0262B0: 4E75                     rts
0262B2: 48E7 3C38                movem.l D2-D5/A2-A4, -(A7)
0262B6: 246F 0020                movea.l ($20,A7), A2
0262BA: 287C 0040 0472           movea.l #$400472, A4
0262C0: 7000                     moveq   #$0, D0
0262C2: 23C0 0040 0466           move.l  D0, $400466.l
0262C8: 23C0 0040 0462           move.l  D0, $400462.l
0262CE: 18BC 00FF                move.b  #$ff, (A4)
0262D2: 2F0A                     move.l  A2, -(A7)
0262D4: 4EB9 0002 637A           jsr     $2637a.l
0262DA: 0C14 00FF                cmpi.b  #-$1, (A4)
0262DE: 588F                     addq.l  #4, A7
0262E0: 6600 0092                bne     26374
0262E4: 3039 0040 0394           move.w  $400394.l, D0
0262EA: 48C0                     ext.l   D0
0262EC: E580                     asl.l   #2, D0
0262EE: 207C 0001 EF1A           movea.l #$1ef1a, A0   -- pointer to flat tiles
0262F4: 2670 0800                movea.l (A0,D0.l), A3
0262F8: 2A0B                     move.l  A3, D5
0262FA: 5985                     subq.l  #4, D5
0262FC: 0C13 00FF                cmpi.b  #-$1, (A3)
026300: 6704                     beq     26306
026302: 588B                     addq.l  #4, A3
026304: 60F6                     bra     262fc
026306: 142A 001D                move.b  ($1d,A2), D2
02630A: 4882                     ext.w   D2
02630C: 4A42                     tst.w   D2
02630E: 6702                     beq     26312
026310: 5342                     subq.w  #1, D2
026312: B7C5                     cmpa.l  D5, A3
026314: 675E                     beq     26374
026316: 7000                     moveq   #$0, D0
026318: 1013                     move.b  (A3), D0
02631A: E780                     asl.l   #3, D0
02631C: 3800                     move.w  D0, D4
02631E: 5844                     addq.w  #4, D4
026320: 7000                     moveq   #$0, D0
026322: 102B 0001                move.b  ($1,A3), D0
026326: E780                     asl.l   #3, D0
026328: 3600                     move.w  D0, D3
02632A: 5843                     addq.w  #4, D3
02632C: 4878 0180                pea     $180.w
026330: 3003                     move.w  D3, D0
026332: 48C0                     ext.l   D0
026334: 2F00                     move.l  D0, -(A7)
026336: 3004                     move.w  D4, D0
026338: 48C0                     ext.l   D0
02633A: 2F00                     move.l  D0, -(A7)
02633C: 2F0A                     move.l  A2, -(A7)
02633E: 4EB9 0001 7CB8           jsr     $17cb8.l
026344: 4A80                     tst.l   D0
026346: 4FEF 0010                lea     ($10,A7), A7
02634A: 6624                     bne     26370
02634C: 7000                     moveq   #$0, D0
02634E: 102B 0002                move.b  ($2,A3), D0
026352: B042                     cmp.w   D2, D0
026354: 661A                     bne     26370
026356: 3004                     move.w  D4, D0
026358: 48C0                     ext.l   D0
02635A: 23C0 0040 0462           move.l  D0, $400462.l
026360: 3003                     move.w  D3, D0
026362: 48C0                     ext.l   D0
026364: 23C0 0040 0466           move.l  D0, $400466.l
02636A: 18AB 0002                move.b  ($2,A3), (A4)
02636E: 6004                     bra     26374
026370: 598B                     subq.l  #4, A3
026372: 609E                     bra     26312
026374: 4CDF 1C3C                movem.l (A7)+, D2-D5/A2-A4
026378: 4E75                     rts
02637A: 4E56 FFFE                link    A6, #-$2
02637E: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
026382: 246E 0008                movea.l ($8,A6), A2
026386: 3039 0040 0394           move.w  $400394.l, D0
02638C: 48C0                     ext.l   D0
02638E: E580                     asl.l   #2, D0
026390: 207C 0001 EF1A           movea.l #$1ef1a, A0
026396: 2670 0800                movea.l (A0,D0.l), A3
02639A: 1D6A 001D FFFF           move.b  ($1d,A2), (-$1,A6)
0263A0: 3E2E FFFE                move.w  (-$2,A6), D7
0263A4: 4887                     ext.w   D7
0263A6: 3D47 FFFE                move.w  D7, (-$2,A6)
0263AA: 387C 0300                movea.w #$300, A4
0263AE: 0C13 00FF                cmpi.b  #-$1, (A3)
0263B2: 6700 00D0                beq     26484
0263B6: 7000                     moveq   #$0, D0
0263B8: 102B 0002                move.b  ($2,A3), D0
0263BC: B06E FFFE                cmp.w   (-$2,A6), D0
0263C0: 6600 00BC                bne     2647e
0263C4: 7800                     moveq   #$0, D4
0263C6: 1813                     move.b  (A3), D4
0263C8: 7A00                     moveq   #$0, D5
0263CA: 1A2B 0001                move.b  ($1,A3), D5
0263CE: 3C2A 0032                move.w  ($32,A2), D6
0263D2: 9C44                     sub.w   D4, D6
0263D4: 4A46                     tst.w   D6
0263D6: 6C08                     bge     263e0
0263D8: 7000                     moveq   #$0, D0
0263DA: 3006                     move.w  D6, D0
0263DC: 4480                     neg.l   D0
0263DE: 6004                     bra     263e4
0263E0: 7000                     moveq   #$0, D0
0263E2: 3006                     move.w  D6, D0
0263E4: 3200                     move.w  D0, D1
0263E6: E949                     lsl.w   #4, D1
0263E8: 362A 0034                move.w  ($34,A2), D3
0263EC: 9645                     sub.w   D5, D3
0263EE: 4A43                     tst.w   D3
0263F0: 6C08                     bge     263fa
0263F2: 7000                     moveq   #$0, D0
0263F4: 3003                     move.w  D3, D0
0263F6: 4480                     neg.l   D0
0263F8: 6004                     bra     263fe
0263FA: 7000                     moveq   #$0, D0
0263FC: 3003                     move.w  D3, D0
0263FE: 3600                     move.w  D0, D3
026400: E94B                     lsl.w   #4, D3
026402: B243                     cmp.w   D3, D1
026404: 6312                     bls     26418
026406: 7400                     moveq   #$0, D2
026408: 3403                     move.w  D3, D2
02640A: E68A                     lsr.l   #3, D2
02640C: C4FC 0003                mulu.w  #$3, D2
026410: 7000                     moveq   #$0, D0
026412: 3001                     move.w  D1, D0
026414: D480                     add.l   D0, D2
026416: 6010                     bra     26428
026418: 7400                     moveq   #$0, D2
02641A: 3401                     move.w  D1, D2
02641C: E68A                     lsr.l   #3, D2
02641E: C4FC 0003                mulu.w  #$3, D2
026422: 7000                     moveq   #$0, D0
026424: 3003                     move.w  D3, D0
026426: D480                     add.l   D0, D2
026428: 3004                     move.w  D4, D0
02642A: 48C0                     ext.l   D0
02642C: E780                     asl.l   #3, D0
02642E: 3C00                     move.w  D0, D6
026430: 5846                     addq.w  #4, D6
026432: 3005                     move.w  D5, D0
026434: 48C0                     ext.l   D0
026436: E780                     asl.l   #3, D0
026438: 3600                     move.w  D0, D3
02643A: 5843                     addq.w  #4, D3
02643C: 4878 0180                pea     $180.w
026440: 3003                     move.w  D3, D0
026442: 48C0                     ext.l   D0
026444: 2F00                     move.l  D0, -(A7)
026446: 3006                     move.w  D6, D0
026448: 48C0                     ext.l   D0
02644A: 2F00                     move.l  D0, -(A7)
02644C: 2F0A                     move.l  A2, -(A7)
02644E: 4EB9 0001 7CB8           jsr     $17cb8.l
026454: 4A80                     tst.l   D0
026456: 4FEF 0010                lea     ($10,A7), A7
02645A: 6622                     bne     2647e
02645C: B48C                     cmp.l   A4, D2
02645E: 641E                     bcc     2647e
026460: 2842                     movea.l D2, A4
026462: 3006                     move.w  D6, D0
026464: 48C0                     ext.l   D0
026466: 23C0 0040 0462           move.l  D0, $400462.l
02646C: 3003                     move.w  D3, D0
02646E: 48C0                     ext.l   D0
026470: 23C0 0040 0466           move.l  D0, $400466.l
026476: 13EB 0002 0040 0472      move.b  ($2,A3), $400472.l
02647E: 588B                     addq.l  #4, A3
026480: 6000 FF2C                bra     263ae
026484: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
026488: 4E5E                     unlk    A6
02648A: 4E75                     rts
02648C: 206F 0004                movea.l ($4,A7), A0
026490: 2179 0040 0684 000C      move.l  $400684.l, ($c,A0)
026498: 2179 0040 0688 0010      move.l  $400688.l, ($10,A0)
0264A0: 2179 0040 068C 0014      move.l  $40068c.l, ($14,A0)
0264A8: 4E75                     rts
0264AA: 4E56 FFD4                link    A6, #-$2c
0264AE: 48E7 3F3C                movem.l D2-D7/A2-A5, -(A7)
0264B2: 246E 0008                movea.l ($8,A6), A2
0264B6: 362E 000E                move.w  ($e,A6), D3
0264BA: 267C 0040 074E           movea.l #$40074e, A3
0264C0: 2D7C 0040 0988 FFFA      move.l  #$400988, (-$6,A6)
0264C8: 7205                     moveq   #$5, D1
0264CA: 7002                     moveq   #$2, D0
0264CC: B043                     cmp.w   D3, D0
0264CE: 6F08                     ble     264d8
0264D0: 41EA 0038                lea     ($38,A2), A0
0264D4: 2688                     move.l  A0, (A3)
0264D6: 6018                     bra     264f0
0264D8: 7002                     moveq   #$2, D0
0264DA: B043                     cmp.w   D3, D0
0264DC: 660A                     bne     264e8
0264DE: 284A                     movea.l A2, A4
0264E0: 41EC 002C                lea     ($2c,A4), A0
0264E4: 2688                     move.l  A0, (A3)
0264E6: 6008                     bra     264f0
0264E8: 41E9 0026                lea     ($26,A1), A0
0264EC: 2688                     move.l  A0, (A3)
0264EE: 7203                     moveq   #$3, D1
0264F0: 2053                     movea.l (A3), A0
0264F2: 4240                     clr.w   D0
0264F4: 6006                     bra     264fc
0264F6: 4250                     clr.w   (A0)
0264F8: 5C88                     addq.l  #6, A0
0264FA: 5240                     addq.w  #1, D0
0264FC: B041                     cmp.w   D1, D0
0264FE: 6DF6                     blt     264f6
026500: 4A43                     tst.w   D3
026502: 6600 0056                bne     2655a
026506: 4A2A 0058                tst.b   ($58,A2)
02650A: 6730                     beq     2653c
02650C: 0C2A 00FF 0059           cmpi.b  #-$1, ($59,A2)
026512: 6728                     beq     2653c
026514: 0C2A 000A 0058           cmpi.b  #$a, ($58,A2)
02651A: 6720                     beq     2653c
02651C: 0C2A 0009 001A           cmpi.b  #$9, ($1a,A2)
026522: 6718                     beq     2653c
026524: 0C2A 000B 001A           cmpi.b  #$b, ($1a,A2)
02652A: 6710                     beq     2653c
02652C: 0C2A 000A 001A           cmpi.b  #$a, ($1a,A2)
026532: 6708                     beq     2653c
026534: 422A 001C                clr.b   ($1c,A2)
026538: 6000 05CE                bra     26b08
02653C: 122A 001A                move.b  ($1a,A2), D1
026540: 4881                     ext.w   D1
026542: 7004                     moveq   #$4, D0
026544: B041                     cmp.w   D1, D0
026546: 6700 05C0                beq     26b08
02654A: 7006                     moveq   #$6, D0
02654C: B041                     cmp.w   D1, D0
02654E: 6700 05B8                beq     26b08
026552: 700A                     moveq   #$a, D0
026554: B041                     cmp.w   D1, D0
026556: 6700 05B0                beq     26b08
02655A: 2D6A 000C FFDC           move.l  ($c,A2), (-$24,A6)
026560: 2D6A 0010 FFD8           move.l  ($10,A2), (-$28,A6)
026566: 7002                     moveq   #$2, D0
026568: B043                     cmp.w   D3, D0
02656A: 6F4C                     ble     265b8
02656C: 202A 001E                move.l  ($1e,A2), D0
026570: 3D40 FFF8                move.w  D0, (-$8,A6)
026574: 026E FFFF FFF8           andi.w  #$ffff, (-$8,A6)
02657A: 7210                     moveq   #$10, D1
02657C: E2A0                     asr.l   D1, D0
02657E: 3C00                     move.w  D0, D6
026580: 0246 FFFF                andi.w  #$ffff, D6
026584: 7803                     moveq   #$3, D4
026586: 7A0E                     moveq   #$e, D5
026588: 4A43                     tst.w   D3
02658A: 6600 0086                bne     26612
02658E: 122A 001A                move.b  ($1a,A2), D1
026592: 4881                     ext.w   D1
026594: 7001                     moveq   #$1, D0
026596: B041                     cmp.w   D1, D0
026598: 6700 0018                beq     265b2
02659C: 7002                     moveq   #$2, D0
02659E: B041                     cmp.w   D1, D0
0265A0: 6700 0010                beq     265b2
0265A4: 7005                     moveq   #$5, D0
0265A6: B041                     cmp.w   D1, D0
0265A8: 6700 0008                beq     265b2
0265AC: 7009                     moveq   #$9, D0
0265AE: B041                     cmp.w   D1, D0
0265B0: 6660                     bne     26612
0265B2: 7805                     moveq   #$5, D4
0265B4: 7A20                     moveq   #$20, D5
0265B6: 605A                     bra     26612
0265B8: 7002                     moveq   #$2, D0
0265BA: B043                     cmp.w   D3, D0
0265BC: 6640                     bne     265fe
0265BE: 206C 0058                movea.l ($58,A4), A0
0265C2: 2250                     movea.l (A0), A1
0265C4: 41EC 0028                lea     ($28,A4), A0
0265C8: 7803                     moveq   #$3, D4
0265CA: 0C29 0002 0002           cmpi.b  #$2, ($2,A1)
0265D0: 6F02                     ble     265d4
0265D2: 7805                     moveq   #$5, D4
0265D4: 1A29 0003                move.b  ($3,A1), D5
0265D8: 4885                     ext.w   D5
0265DA: E745                     asl.w   #3, D5
0265DC: 1C11                     move.b  (A1), D6
0265DE: 4886                     ext.w   D6
0265E0: DC58                     add.w   (A0)+, D6
0265E2: 1D69 0001 FFF9           move.b  ($1,A1), (-$7,A6)
0265E8: 3E2E FFF8                move.w  (-$8,A6), D7
0265EC: 4887                     ext.w   D7
0265EE: 3D47 FFF8                move.w  D7, (-$8,A6)
0265F2: 3E2E FFF8                move.w  (-$8,A6), D7
0265F6: DE50                     add.w   (A0), D7
0265F8: 3D47 FFF8                move.w  D7, (-$8,A6)
0265FC: 6014                     bra     26612
0265FE: 7803                     moveq   #$3, D4
026600: 41E9 0020                lea     ($20,A1), A0
026604: 7A10                     moveq   #$10, D5
026606: 3C18                     move.w  (A0)+, D6
026608: 5646                     addq.w  #3, D6
02660A: 3D50 FFF8                move.w  (A0), (-$8,A6)
02660E: 516E FFF8                subq.w  #8, (-$8,A6)
026612: DA6E FFF8                add.w   (-$8,A6), D5
026616: 202E FFD8                move.l  (-$28,A6), D0
02661A: 7213                     moveq   #$13, D1
02661C: E2A0                     asr.l   D1, D0
02661E: 3D40 FFEA                move.w  D0, (-$16,A6)
026622: 242E FFDC                move.l  (-$24,A6), D2
026626: 7013                     moveq   #$13, D0
026628: E0A2                     asr.l   D0, D2
02662A: 3002                     move.w  D2, D0
02662C: 3E2E FFEA                move.w  (-$16,A6), D7
026630: DE40                     add.w   D0, D7
026632: 3D47 FFEA                move.w  D7, (-$16,A6)
026636: 046E 0015 FFEA           subi.w  #$15, (-$16,A6)
02663C: 202E FFD8                move.l  (-$28,A6), D0
026640: D0AE FFDC                add.l   (-$24,A6), D0
026644: 7213                     moveq   #$13, D1
026646: E2A0                     asr.l   D1, D0
026648: 3D40 FFE8                move.w  D0, (-$18,A6)
02664C: 046E 0015 FFE8           subi.w  #$15, (-$18,A6)
026652: E646                     asr.w   #3, D6
026654: 7002                     moveq   #$2, D0
026656: B043                     cmp.w   D3, D0
026658: 660C                     bne     26666
02665A: 7003                     moveq   #$3, D0
02665C: B044                     cmp.w   D4, D0
02665E: 6604                     bne     26664
026660: 5246                     addq.w  #1, D6
026662: 6002                     bra     26666
026664: 5446                     addq.w  #2, D6
026666: 2D7C 0001 EABA FFF0      move.l  #$1eaba, (-$10,A6)
02666E: 3E2E FFEA                move.w  (-$16,A6), D7
026672: BE6E FFE8                cmp.w   (-$18,A6), D7
026676: 6708                     beq     26680
026678: 700A                     moveq   #$a, D0
02667A: D1AE FFF0                add.l   D0, (-$10,A6)
02667E: 6016                     bra     26696
026680: 3206                     move.w  D6, D1
026682: 48C1                     ext.l   D1
026684: 342E FFEA                move.w  (-$16,A6), D2
026688: 48C2                     ext.l   D2
02668A: B581                     eor.l   D2, D1
02668C: 0801 0000                btst    #$0, D1
026690: 6704                     beq     26696
026692: 5AAE FFF0                addq.l  #5, (-$10,A6)
026696: 7003                     moveq   #$3, D0
026698: B044                     cmp.w   D4, D0
02669A: 660A                     bne     266a6
02669C: 52AE FFF0                addq.l  #1, (-$10,A6)
0266A0: 3846                     movea.w D6, A4
0266A2: 534C                     subq.w  #1, A4
0266A4: 6004                     bra     266aa
0266A6: 3846                     movea.w D6, A4
0266A8: 554C                     subq.w  #2, A4
0266AA: CF8C                     exg     D7, A4
0266AC: 4A47                     tst.w   D7
0266AE: CF8C                     exg     D7, A4
0266B0: 6C16                     bge     266c8
0266B2: D84C                     add.w   A4, D4
0266B4: 300C                     move.w  A4, D0
0266B6: 48C0                     ext.l   D0
0266B8: 2E2E FFF0                move.l  (-$10,A6), D7
0266BC: 9E80                     sub.l   D0, D7
0266BE: 2D47 FFF0                move.l  D7, (-$10,A6)
0266C2: 4247                     clr.w   D7
0266C4: 3847                     movea.w D7, A4
0266C6: 6014                     bra     266dc

0266C8: 3004                     move.w  D4, D0
0266CA: 48C0                     ext.l   D0
0266CC: 320C                     move.w  A4, D1
0266CE: 48C1                     ext.l   D1
0266D0: D081                     add.l   D1, D0
0266D2: 7424                     moveq   #$24, D2
0266D4: B480                     cmp.l   D0, D2
0266D6: 6C04                     bge     266dc
0266D8: 7824                     moveq   #$24, D4
0266DA: 984C                     sub.w   A4, D4

0266DC: 3039 0040 045C           move.w  $40045c.l, D0
0266E2: 48C0                     ext.l   D0
0266E4: 2079 0040 0474           movea.l $400474.l, A0
0266EA: 320C                     move.w  A4, D1
0266EC: E541                     asl.w   #2, D1
0266EE: 41E8 002E                lea     ($2e,A0), A0   A0=2BF10 (blocks pointer)
0266F2: D0C1                     adda.w  D1, A0
0266F4: D088                     add.l   A0, D0
0266F6: 2D40 FFEC                move.l  D0, (-$14,A6)
0266FA: 59AE FFEC                subq.l  #4, (-$14,A6)
0266FE: 426E FFE6                clr.w   (-$1a,A6)
026702: 3D44 FFE2                move.w  D4, (-$1e,A6)
026706: 3E2E FFE2                move.w  (-$1e,A6), D7
02670A: DE4C                     add.w   A4, D7
02670C: 3D47 FFE2                move.w  D7, (-$1e,A6)
026710: 3D79 0040 097E FFE0      move.w  $40097e.l, (-$20,A6)
026718: 2079 0040 0474           movea.l $400474.l, A0
02671E: 3E2E FFE0                move.w  (-$20,A6), D7
026722: 9E68 0010                sub.w   ($10,A0), D7
026726: 3D47 FFE0                move.w  D7, (-$20,A6)
02672A: 3C0C                     move.w  A4, D6
02672C: 6000 0396                bra     26ac4
026730: 2A6E FFF0                movea.l (-$10,A6), A5
026734: 1D5D FFFF                move.b  (A5)+, (-$1,A6)
026738: 2D4D FFF0                move.l  A5, (-$10,A6)
02673C: 3E2E FFFE                move.w  (-$2,A6), D7
026740: 4887                     ext.w   D7
026742: 3D47 FFFE                move.w  D7, (-$2,A6)
026746: 3E2E FFFE                move.w  (-$2,A6), D7
02674A: DE6E FFEA                add.w   (-$16,A6), D7
02674E: 3D47 FFFE                move.w  D7, (-$2,A6)
026752: 58AE FFEC                addq.l  #4, (-$14,A6)
026756: 4A6E FFFE                tst.w   (-$2,A6)
02675A: 6C04                     bge     26760
02675C: 426E FFFE                clr.w   (-$2,A6)
026760: 7002                     moveq   #$2, D0
026762: B043                     cmp.w   D3, D0
026764: 6F00 0106                ble     2686c
026768: 3006                     move.w  D6, D0
02676A: E540                     asl.w   #2, D0
02676C: 207C 0001 EA2A           movea.l #$1ea2a, A0
026772: 2270 0000                movea.l (A0,D0.w), A1
026776: 3039 0040 0394           move.w  $400394.l, D0
02677C: 48C0                     ext.l   D0
02677E: D080                     add.l   D0, D0
026780: D089                     add.l   A1, D0
026782: 2A40                     movea.l D0, A5
026784: 3015                     move.w  (A5), D0
026786: 6700 00E4                beq     2686c
02678A: 48C0                     ext.l   D0
02678C: D080                     add.l   D0, D0
02678E: D3C0                     adda.l  D0, A1
026790: 3011                     move.w  (A1), D0
026792: 3D40 FFE4                move.w  D0, (-$1c,A6)
026796: 72FF                     moveq   #-$1, D1
026798: B240                     cmp.w   D0, D1
02679A: 6700 00D0                beq     2686c
02679E: 3E2E FFE4                move.w  (-$1c,A6), D7
0267A2: BE6E FFFE                cmp.w   (-$2,A6), D7
0267A6: 6D00 00BC                blt     26864
0267AA: 5489                     addq.l  #2, A1
0267AC: 302E FFFE                move.w  (-$2,A6), D0
0267B0: 48C0                     ext.l   D0
0267B2: 322E FFE4                move.w  (-$1c,A6), D1
0267B6: 48C1                     ext.l   D1
0267B8: 2049                     movea.l A1, A0
0267BA: 5489                     addq.l  #2, A1
0267BC: 3410                     move.w  (A0), D2
0267BE: 48C2                     ext.l   D2
0267C0: 9282                     sub.l   D2, D1
0267C2: B081                     cmp.l   D1, D0
0267C4: 6D00 00A6                blt     2686c
0267C8: 3419                     move.w  (A1)+, D2
0267CA: 3059                     movea.w (A1)+, A0
0267CC: D0EE FFE0                adda.w  (-$20,A6), A0
0267D0: 4A42                     tst.w   D2
0267D2: 6D3A                     blt     2680e
0267D4: 7008                     moveq   #$8, D0
0267D6: B042                     cmp.w   D2, D0
0267D8: 6F34                     ble     2680e
0267DA: 3008                     move.w  A0, D0
0267DC: 48C0                     ext.l   D0
0267DE: 322E FFF8                move.w  (-$8,A6), D1
0267E2: 48C1                     ext.l   D1
0267E4: 48C2                     ext.l   D2
0267E6: 9282                     sub.l   D2, D1
0267E8: B081                     cmp.l   D1, D0
0267EA: 6C00 01D8                bge     269c4
0267EE: 2013                     move.l  (A3), D0
0267F0: 5493                     addq.l  #2, (A3)
0267F2: 2A40                     movea.l D0, A5
0267F4: 3A99                     move.w  (A1)+, (A5)
0267F6: 2013                     move.l  (A3), D0
0267F8: 5493                     addq.l  #2, (A3)
0267FA: 3206                     move.w  D6, D1
0267FC: E741                     asl.w   #3, D1
0267FE: 2A40                     movea.l D0, A5
026800: 3A81                     move.w  D1, (A5)
026802: 2013                     move.l  (A3), D0
026804: 5493                     addq.l  #2, (A3)
026806: 2A40                     movea.l D0, A5
026808: 3A88                     move.w  A0, (A5)
02680A: 6000 02B6                bra     26ac2
02680E: 7008                     moveq   #$8, D0
026810: B042                     cmp.w   D2, D0
026812: 6608                     bne     2681c
026814: B0C5                     cmpa.w  D5, A0
026816: 6DD6                     blt     267ee
026818: 6000 02A8                bra     26ac2
02681C: 4A42                     tst.w   D2
02681E: 6F10                     ble     26830
026820: B0C5                     cmpa.w  D5, A0
026822: 6FCA                     ble     267ee
026824: 3D42 FFFE                move.w  D2, (-$2,A6)
026828: 026E 00FF FFFE           andi.w  #$ff, (-$2,A6)
02682E: 603C                   * bra     2686c
026830: 70FE                     moveq   #-$2, D0
026832: B042                     cmp.w   D2, D0
026834: 6616                     bne     2684c
026836: 3011                     move.w  (A1), D0
026838: 48C0                     ext.l   D0
02683A: 222A 0014                move.l  ($14,A2), D1
02683E: 7410                     moveq   #$10, D2
026840: E4A1                     asr.l   D2, D1
026842: B081                     cmp.l   D1, D0
026844: 6F00 027C                ble     26ac2
026848: 6000 017A                bra     269c4
02684C: 3E2E FFFE                move.w  (-$2,A6), D7
026850: BE6E FFE4                cmp.w   (-$1c,A6), D7
026854: 6698                     bne     267ee
026856: 3E2E FFE8                move.w  (-$18,A6), D7
02685A: BE6E FFE4                cmp.w   (-$1c,A6), D7
02685E: 668E                     bne     267ee
026860: 6000 0260                bra     26ac2
026864: 700A                     moveq   #$a, D0
026866: D3C0                     adda.l  D0, A1
026868: 6000 FF26                bra     26790

02686C: 322E FFFE                move.w  (-$2,A6), D1    Check physics?
026870: 0241 0007                andi.w  #$7, D1
026874: 302E FFFE                move.w  (-$2,A6), D0
026878: 48C0                     ext.l   D0
02687A: E680                     asr.l   #3, D0
02687C: 2A6E FFEC                movea.l (-$14,A6), A5
026880: D095                     add.l   (A5), D0
026882: 2D40 FFD4                move.l  D0, (-$2c,A6)
026886: 226E FFD4                movea.l (-$2c,A6), A1
02688A: 026E FFF8 FFFE           andi.w  #$fff8, (-$2,A6)
026890: 3001                     move.w  D1, D0
026892: 207C 0001 EACA           movea.l #$1eaca, A0
026898: 1430 0000                move.b  (A0,D0.w), D2
02689C: 4882                     ext.w   D2
02689E: 2009                     move.l  A1, D0
0268A0: 5289                     addq.l  #1, A1
0268A2: 2A40                     movea.l D0, A5
0268A4: 1215                     move.b  (A5), D1
0268A6: 4881                     ext.w   D1
0268A8: C441                     and.w   D1, D2
0268AA: 0242 00FF                andi.w  #$ff, D2
0268AE: 4A42                     tst.w   D2
0268B0: 6620                     bne     268d2
0268B2: 4A19                     tst.b   (A1)+
0268B4: 67FC                     beq     268b2
0268B6: 5389                     subq.l  #1, A1
0268B8: 2A49                     movea.l A1, A5
0268BA: 1415                     move.b  (A5), D2
0268BC: 4882                     ext.w   D2
0268BE: 2009                     move.l  A1, D0
0268C0: 90AE FFD4                sub.l   (-$2c,A6), D0
0268C4: E780                     asl.l   #3, D0
0268C6: 3200                     move.w  D0, D1
0268C8: 3E2E FFFE                move.w  (-$2,A6), D7
0268CC: DE41                     add.w   D1, D7
0268CE: 3D47 FFFE                move.w  D7, (-$2,A6)
0268D2: 7E01                     moveq   #$1, D7
0268D4: 3047                     movea.w D7, A0
0268D6: 3002                     move.w  D2, D0
0268D8: 48C0                     ext.l   D0
0268DA: 3208                     move.w  A0, D1
0268DC: 48C1                     ext.l   D1
0268DE: C081                     and.l   D1, D0
0268E0: 660C                     bne     268ee
0268E2: 3008                     move.w  A0, D0
0268E4: E340                     asl.w   #1, D0
0268E6: 3040                     movea.w D0, A0
0268E8: 526E FFFE                addq.w  #1, (-$2,A6)
0268EC: 60E8                     bra     268d6
0268EE: 3006                     move.w  D6, D0
0268F0: 48C0                     ext.l   D0
0268F2: 322E FFFE                move.w  (-$2,A6), D1
0268F6: 48C1                     ext.l   D1
0268F8: B380                     eor.l   D1, D0
0268FA: 7401                     moveq   #$1, D2
0268FC: C082                     and.l   D2, D0
0268FE: 2A6E FFFA                movea.l (-$6,A6), A5
026902: 2A80                     move.l  D0, (A5)
026904: 3D6E FFFE FFF4           move.w  (-$2,A6), (-$c,A6)
02690A: 3E2E FFF4                move.w  (-$c,A6), D7
02690E: E547                     asl.w   #2, D7
026910: 3D47 FFF4                move.w  D7, (-$c,A6)
026914: 3E2E FFF4                move.w  (-$c,A6), D7
026918: 9E79 0040 097E           sub.w   $40097e.l, D7
02691E: 3D47 FFF4                move.w  D7, (-$c,A6)
026922: 42A7                     clr.l   -(A7)
026924: 3206                     move.w  D6, D1
026926: 48C1                     ext.l   D1
026928: 2F01                     move.l  D1, -(A7)
02692A: 342E FFFE                move.w  (-$2,A6), D2
02692E: 48C2                     ext.l   D2
026930: 2F02                     move.l  D2, -(A7)
026932: 4EB9 0001 77F8           jsr     $177f8.l
026938: 3D40 FFF6                move.w  D0, (-$a,A6)
02693C: 3E2E FFF6                move.w  (-$a,A6), D7
026940: 9E6E FFF4                sub.w   (-$c,A6), D7
026944: 3D47 FFF6                move.w  D7, (-$a,A6)
026948: 302E FFF6                move.w  (-$a,A6), D0
02694C: 48C0                     ext.l   D0
02694E: 3205                     move.w  D5, D1
026950: 48C1                     ext.l   D1
026952: 7410                     moveq   #$10, D2
026954: D282                     add.l   D2, D1
026956: B081                     cmp.l   D1, D0
026958: 4FEF 000C                lea     ($c,A7), A7
02695C: 6E00 0066                bgt     269c4
026960: 302E FFF6                move.w  (-$a,A6), D0
026964: 48C0                     ext.l   D0
026966: 322E FFF8                move.w  (-$8,A6), D1
02696A: 48C1                     ext.l   D1
02696C: 7410                     moveq   #$10, D2
02696E: 9282                     sub.l   D2, D1
026970: B081                     cmp.l   D1, D0
026972: 6D00 014E                blt     26ac2
026976: 7001                     moveq   #$1, D0
026978: 2A6E FFFA                movea.l (-$6,A6), A5
02697C: B195                     eor.l   D0, (A5)
02697E: 586E FFF4                addq.w  #4, (-$c,A6)
026982: 4878 0002                pea     $2.w
026986: 3206                     move.w  D6, D1
026988: 48C1                     ext.l   D1
02698A: 2F01                     move.l  D1, -(A7)
02698C: 342E FFFE                move.w  (-$2,A6), D2
026990: 48C2                     ext.l   D2
026992: 5282                     addq.l  #1, D2
026994: 2F02                     move.l  D2, -(A7)
026996: 4EB9 0001 77F8           jsr     $177f8.l
02699C: 3240                     movea.w D0, A1
02699E: 92EE FFF4                suba.w  (-$c,A6), A1
0269A2: B2EE FFF8                cmpa.w  (-$8,A6), A1
0269A6: 4FEF 000C                lea     ($c,A7), A7
0269AA: 6E0C                     bgt     269b8
0269AC: 3E2E FFF6                move.w  (-$a,A6), D7
0269B0: BE6E FFF8                cmp.w   (-$8,A6), D7
0269B4: 6F00 010C                ble     26ac2
0269B8: B2C5                     cmpa.w  D5, A1
0269BA: 6D44                     blt     26a00
0269BC: 3E2E FFF6                move.w  (-$a,A6), D7
0269C0: BE45                     cmp.w   D5, D7
0269C2: 6D3C                     blt     26a00
0269C4: 7001                     moveq   #$1, D0
0269C6: 1206                     move.b  D6, D1
0269C8: 2E0C                     move.l  A4, D7
0269CA: 9207                     sub.b   D7, D1
0269CC: E3A0                     asl.l   D1, D0
0269CE: 3E2E FFE6                move.w  (-$1a,A6), D7
0269D2: 8E40                     or.w    D0, D7
0269D4: 3D47 FFE6                move.w  D7, (-$1a,A6)
0269D8: 2013                     move.l  (A3), D0
0269DA: 5493                     addq.l  #2, (A3)
0269DC: 2A40                     movea.l D0, A5
0269DE: 3ABC 6CE0                move.w  #$6ce0, (A5)
0269E2: 2013                     move.l  (A3), D0
0269E4: 5493                     addq.l  #2, (A3)
0269E6: 3206                     move.w  D6, D1
0269E8: E741                     asl.w   #3, D1
0269EA: 2A40                     movea.l D0, A5
0269EC: 3A81                     move.w  D1, (A5)
0269EE: 2013                     move.l  (A3), D0
0269F0: 5493                     addq.l  #2, (A3)
0269F2: 3205                     move.w  D5, D1
0269F4: 0441 002F                subi.w  #$2f, D1
0269F8: 2A40                     movea.l D0, A5
0269FA: 3A81                     move.w  D1, (A5)
0269FC: 6000 00C4                bra     26ac2
026A00: 2A6E FFFA                movea.l (-$6,A6), A5
026A04: 4A95                     tst.l   (A5)
026A06: 660A                     bne     26a12
026A08: 3209                     move.w  A1, D1
026A0A: 326E FFF6                movea.w (-$a,A6), A1
026A0E: 3D41 FFF6                move.w  D1, (-$a,A6)
026A12: 3E2E FFF6                move.w  (-$a,A6), D7
026A16: BE49                     cmp.w   A1, D7
026A18: 6E52                     bgt     26a6c
026A1A: 2013                     move.l  (A3), D0
026A1C: 5493                     addq.l  #2, (A3)
026A1E: 3209                     move.w  A1, D1
026A20: 48C1                     ext.l   D1
026A22: 342E FFF6                move.w  (-$a,A6), D2
026A26: 48C2                     ext.l   D2
026A28: 9282                     sub.l   D2, D1
026A2A: D241                     add.w   D1, D1
026A2C: 207C 0001 EAD2           movea.l #$1ead2, A0
026A32: 2A40                     movea.l D0, A5
026A34: 3AB0 1000                move.w  (A0,D1.w), (A5)
026A38: 2013                     move.l  (A3), D0
026A3A: 5493                     addq.l  #2, (A3)
026A3C: 3206                     move.w  D6, D1
026A3E: E741                     asl.w   #3, D1
026A40: 2A40                     movea.l D0, A5
026A42: 3A81                     move.w  D1, (A5)
026A44: 2013                     move.l  (A3), D0
026A46: 5493                     addq.l  #2, (A3)
026A48: 3409                     move.w  A1, D2
026A4A: 48C2                     ext.l   D2
026A4C: 322E FFF6                move.w  (-$a,A6), D1
026A50: 48C1                     ext.l   D1
026A52: 9481                     sub.l   D1, D2
026A54: 3202                     move.w  D2, D1
026A56: D241                     add.w   D1, D1
026A58: 207C 0001 EAF4           movea.l #$1eaf4, A0
026A5E: 3230 1000                move.w  (A0,D1.w), D1
026A62: D26E FFF6                add.w   (-$a,A6), D1
026A66: 2A40                     movea.l D0, A5
026A68: 3A81                     move.w  D1, (A5)
026A6A: 6056                     bra     26ac2
026A6C: 2013                     move.l  (A3), D0
026A6E: 5493                     addq.l  #2, (A3)
026A70: 342E FFF6                move.w  (-$a,A6), D2
026A74: 48C2                     ext.l   D2
026A76: 3209                     move.w  A1, D1
026A78: 48C1                     ext.l   D1
026A7A: 9481                     sub.l   D1, D2
026A7C: 3202                     move.w  D2, D1
026A7E: D241                     add.w   D1, D1
026A80: 207C 0001 EAD2           movea.l #$1ead2, A0
026A86: 3230 1000                move.w  (A0,D1.w), D1
026A8A: 0641 8000                addi.w  #-$8000, D1
026A8E: 2A40                     movea.l D0, A5
026A90: 3A81                     move.w  D1, (A5)
026A92: 2013                     move.l  (A3), D0
026A94: 5493                     addq.l  #2, (A3)
026A96: 3206                     move.w  D6, D1
026A98: E741                     asl.w   #3, D1
026A9A: 2A40                     movea.l D0, A5
026A9C: 3A81                     move.w  D1, (A5)
026A9E: 2013                     move.l  (A3), D0
026AA0: 5493                     addq.l  #2, (A3)
026AA2: 342E FFF6                move.w  (-$a,A6), D2
026AA6: 48C2                     ext.l   D2
026AA8: 3209                     move.w  A1, D1
026AAA: 48C1                     ext.l   D1
026AAC: 9481                     sub.l   D1, D2
026AAE: 3202                     move.w  D2, D1
026AB0: D241                     add.w   D1, D1
026AB2: 207C 0001 EAF4           movea.l #$1eaf4, A0
026AB8: 3230 1000                move.w  (A0,D1.w), D1
026ABC: D249                     add.w   A1, D1
026ABE: 2A40                     movea.l D0, A5
026AC0: 3A81                     move.w  D1, (A5)
026AC2: 5246                     addq.w  #1, D6
026AC4: BC6E FFE2                cmp.w   (-$1e,A6), D6
026AC8: 6D00 FC66                blt     26730
026ACC: 7002                     moveq   #$2, D0
026ACE: B043                     cmp.w   D3, D0
026AD0: 6F36                     ble     26b08
026AD2: 302E FFE6                move.w  (-$1a,A6), D0
026AD6: 48C0                     ext.l   D0
026AD8: 7201                     moveq   #$1, D1
026ADA: 1404                     move.b  D4, D2
026ADC: E5A1                     asl.l   D2, D1
026ADE: 5381                     subq.l  #1, D1
026AE0: B081                     cmp.l   D1, D0
026AE2: 6606                     bne     26aea
026AE4: 422A 001C                clr.b   ($1c,A2)
026AE8: 601E                     bra     26b08
026AEA: 4A43                     tst.w   D3
026AEC: 661A                     bne     26b08
026AEE: 7005                     moveq   #$5, D0
026AF0: B044                     cmp.w   D4, D0
026AF2: 6614                     bne     26b08
026AF4: 302E FFE6                move.w  (-$1a,A6), D0
026AF8: 48C0                     ext.l   D0
026AFA: 720E                     moveq   #$e, D1
026AFC: C081                     and.l   D1, D0
026AFE: 740E                     moveq   #$e, D2
026B00: B480                     cmp.l   D0, D2
026B02: 6604                     bne     26b08
026B04: 422A 001C                clr.b   ($1c,A2)
026B08: 4CDF 3CFC                movem.l (A7)+, D2-D7/A2-A5
026B0C: 4E5E                     unlk    A6
026B0E: 4E75                     rts

026B10: 227C 00B0 0000           movea.l #$b00000, A1    Put text palette into RAM
026B16: 207C 0001 FBD0           movea.l #$1fbd0, A0
026B1C: 4200                     clr.b   D0
026B1E: 32D8                     move.w  (A0)+, (A1)+
026B20: 5200                     addq.b  #1, D0
026B22: 0C00 0020                cmpi.b  #$20, D0
026B26: 66F6                     bne     26b1e
026B28: 4E75                     rts

026B2A: 2F0A                     move.l  A2, -(A7)       Put playfield palette into RAM
026B2C: 302F 000A                move.w  ($a,A7), D0     - current level
026B30: 48C0                     ext.l   D0
026B32: C0FC 00C3                mulu.w  #$c3, D0        (195 words*level number)
026B36: D080                     add.l   D0, D0
026B38: 2240                     movea.l D0, A1
026B3A: 207C 0001 FC10           movea.l #$1fc10, A0     Level 1 palette pointer
026B40: D3C8                     adda.l  A0, A1          Offset so we get the correct one 
026B42: 2449                     movea.l A1, A2          Current level palette
026B44: 223C 0002 0534           move.l  #$20534, D1     Playfield RAM addresses
026B4A: 4240                     clr.w   D0
026B4C: 2241                     movea.l D1, A1
026B4E: 5881                     addq.l  #4, D1
026B50: 2051                     movea.l (A1), A0
026B52: 309A                     move.w  (A2)+, (A0)
026B54: 5240                     addq.w  #1, D0
026B56: 0C40 00C3                cmpi.w  #$c3, D0        Repeat for all 195 colours
026B5A: 6DF0                     blt     26b4c
026B5C: 4EB9 0002 6B10           jsr     $26b10.l        Now copy the text palette
026B62: 245F                     movea.l (A7)+, A2
026B64: 4E75                     rts

026B66: 302F 0006                move.w  ($6,A7), D0
026B6A: 207C 0040 0408           movea.l #$400408, A0
026B70: 2250                     movea.l (A0), A1
026B72: 4290                     clr.l   (A0)
026B74: 12C0                     move.b  D0, (A1)+
026B76: B3FC 0040 040F           cmpa.l  #$40040f, A1
026B7C: 6306                     bls     26b84
026B7E: 227C 0040 040F           movea.l #$40040f, A1
026B84: 2089                     move.l  A1, (A0)
026B86: 4E75                     rts

026B88: 48E7 2030                movem.l D2/A2-A3, -(A7)
026B8C: 247C 0040 0408           movea.l #$400408, A2
026B92: 4A92                     tst.l   (A2)
026B94: 6700 0052                beq     26be8
026B98: 227C 0040 040C           movea.l #$40040c, A1
026B9E: B3D2                     cmpa.l  (A2), A1
026BA0: 6446                     bcc     26be8
026BA2: 5392                     subq.l  #1, (A2)
026BA4: 2052                     movea.l (A2), A0
026BA6: 1010                     move.b  (A0), D0
026BA8: 4880                     ext.w   D0
026BAA: E540                     asl.w   #2, D0
026BAC: 207C 0002 0AE4           movea.l #$20ae4, A0
026BB2: 2670 0000                movea.l (A0,D0.w), A3
026BB6: 1213                     move.b  (A3), D1
026BB8: 4881                     ext.w   D1
026BBA: 204B                     movea.l A3, A0
026BBC: 5288                     addq.l  #1, A0
026BBE: 1010                     move.b  (A0), D0
026BC0: 4880                     ext.w   D0
026BC2: 48C0                     ext.l   D0
026BC4: E580                     asl.l   #2, D0
026BC6: 2240                     movea.l D0, A1
026BC8: 207C 0002 0840           movea.l #$20840, A0
026BCE: D3C8                     adda.l  A0, A1
026BD0: 2409                     move.l  A1, D2
026BD2: 548B                     addq.l  #2, A3
026BD4: 4240                     clr.w   D0
026BD6: 600A                     bra     26be2
026BD8: 2242                     movea.l D2, A1
026BDA: 5882                     addq.l  #4, D2
026BDC: 2051                     movea.l (A1), A0
026BDE: 309B                     move.w  (A3)+, (A0)
026BE0: 5240                     addq.w  #1, D0
026BE2: B041                     cmp.w   D1, D0
026BE4: 6CB2                     bge     26b98
026BE6: 60F0                     bra     26bd8
026BE8: 4CDF 0C04                movem.l (A7)+, D2/A2-A3
026BEC: 4E75                     rts

026BEE: 48E7 3020                movem.l D2-D3/A2, -(A7)
026BF2: 227C 0040 0018           movea.l #$400018, A1
026BF8: 4201                     clr.b   D1
026BFA: 6000 006A                bra     26c66
026BFE: 0C29 00FF 0070           cmpi.b  #-$1, ($70,A1)
026C04: 6700 0054                beq     26c5a
026C08: 4A29 00D8                tst.b   ($d8,A1)
026C0C: 664C                     bne     26c5a
026C0E: 4A29 0019                tst.b   ($19,A1)
026C12: 6708                     beq     26c1c
026C14: 243C 0002 0B54           move.l  #$20b54, D2
026C1A: 6006                     bra     26c22
026C1C: 243C 0002 0B34           move.l  #$20b34, D2
026C22: 1029 0070                move.b  ($70,A1), D0
026C26: 4880                     ext.w   D0
026C28: 48C0                     ext.l   D0
026C2A: E480                     asr.l   #2, D0
026C2C: D080                     add.l   D0, D0
026C2E: D082                     add.l   D2, D0
026C30: 2440                     movea.l D0, A2
026C32: 4A29 0019                tst.b   ($19,A1)
026C36: 6708                     beq     26c40
026C38: 203C 00B0 000E           move.l  #$b0000e, D0
026C3E: 6006                     bra     26c46
026C40: 203C 00B0 0006           move.l  #$b00006, D0
026C46: 2040                     movea.l D0, A0
026C48: 3092                     move.w  (A2), (A0)
026C4A: 5229 0070                addq.b  #1, ($70,A1)
026C4E: 0C29 003F 0070           cmpi.b  #$3f, ($70,A1)
026C54: 6F04                     ble     26c5a
026C56: 4229 0070                clr.b   ($70,A1)
026C5A: 2609                     move.l  A1, D3
026C5C: 0683 0000 00E2           addi.l  #$e2, D3
026C62: 2243                     movea.l D3, A1
026C64: 5201                     addq.b  #1, D1
026C66: 1001                     move.b  D1, D0
026C68: 4880                     ext.w   D0
026C6A: B079 0040 0396           cmp.w   $400396.l, D0
026C70: 668C                     bne     26bfe
026C72: 4CDF 040C                movem.l (A7)+, D2-D3/A2
026C76: 4E75                     rts
026C78: 48E7 3020                movem.l D2-D3/A2, -(A7)
026C7C: 227C 0040 0018           movea.l #$400018, A1
026C82: 4201                     clr.b   D1
026C84: 6000 0062                bra     26ce8
026C88: 0C29 00FF 0071           cmpi.b  #-$1, ($71,A1)
026C8E: 674C                     beq     26cdc
026C90: 4A29 0019                tst.b   ($19,A1)
026C94: 6708                     beq     26c9e
026C96: 243C 0002 0B94           move.l  #$20b94, D2
026C9C: 6006                     bra     26ca4
026C9E: 243C 0002 0B74           move.l  #$20b74, D2
026CA4: 1029 0071                move.b  ($71,A1), D0
026CA8: 4880                     ext.w   D0
026CAA: 48C0                     ext.l   D0
026CAC: E280                     asr.l   #1, D0
026CAE: D080                     add.l   D0, D0
026CB0: D082                     add.l   D2, D0
026CB2: 2440                     movea.l D0, A2
026CB4: 4A29 0019                tst.b   ($19,A1)
026CB8: 6708                     beq     26cc2
026CBA: 203C 00B0 001E           move.l  #$b0001e, D0
026CC0: 6006                     bra     26cc8
026CC2: 203C 00B0 0016           move.l  #$b00016, D0
026CC8: 2040                     movea.l D0, A0
026CCA: 3092                     move.w  (A2), (A0)
026CCC: 5229 0071                addq.b  #1, ($71,A1)
026CD0: 0C29 001F 0071           cmpi.b  #$1f, ($71,A1)
026CD6: 6F04                     ble     26cdc
026CD8: 4229 0071                clr.b   ($71,A1)
026CDC: 2609                     move.l  A1, D3
026CDE: 0683 0000 00E2           addi.l  #$e2, D3
026CE4: 2243                     movea.l D3, A1
026CE6: 5201                     addq.b  #1, D1
026CE8: 1001                     move.b  D1, D0
026CEA: 4880                     ext.w   D0
026CEC: B079 0040 0396           cmp.w   $400396.l, D0
026CF2: 6694                     bne     26c88
026CF4: 4CDF 040C                movem.l (A7)+, D2-D3/A2
026CF8: 4E75                     rts
026CFA: 48E7 2030                movem.l D2/A2-A3, -(A7)
026CFE: 247C 00B0 0202           movea.l #$b00202, A2
026D04: 4202                     clr.b   D2
026D06: 1002                     move.b  D2, D0
026D08: 4880                     ext.w   D0
026D0A: 48C0                     ext.l   D0
026D0C: C1FC 0006                muls.w  #$6, D0
026D10: D040                     add.w   D0, D0
026D12: 207C 0002 0BB4           movea.l #$20bb4, A0
026D18: D0C0                     adda.w  D0, A0
026D1A: 2648                     movea.l A0, A3
026D1C: 4878 0002                pea     $2.w
026D20: 4EB9 0001 3A98           jsr     $13a98.l
026D26: 4A80                     tst.l   D0
026D28: 588F                     addq.l  #4, A7
026D2A: 6702                     beq     26d2e
026D2C: 5C8B                     addq.l  #6, A3
026D2E: 34FC AFFF                move.w  #$afff, (A2)+
026D32: 34FC CFC0                move.w  #$cfc0, (A2)+
026D36: 34DB                     move.w  (A3)+, (A2)+
026D38: 34DB                     move.w  (A3)+, (A2)+
026D3A: 34D3                     move.w  (A3), (A2)+
026D3C: 7016                     moveq   #$16, D0
026D3E: D5C0                     adda.l  D0, A2
026D40: 5202                     addq.b  #1, D2
026D42: 0C02 0008                cmpi.b  #$8, D2
026D46: 66BE                     bne     26d06
026D48: 4CDF 0C04                movem.l (A7)+, D2/A2-A3
026D4C: 4E75                     rts
026D4E: 227C 0040 0460           movea.l #$400460, A1
026D54: 207C 0040 045E           movea.l #$40045e, A0
026D5A: 4A11                     tst.b   (A1)
026D5C: 6D00 002A                blt     26d88
026D60: 5211                     addq.b  #1, (A1)
026D62: 0C11 0006                cmpi.b  #$6, (A1)
026D66: 6F20                     ble     26d88
026D68: 4211                     clr.b   (A1)
026D6A: 5210                     addq.b  #1, (A0)
026D6C: 0C10 0005                cmpi.b  #$5, (A0)
026D70: 6F02                     ble     26d74
026D72: 4210                     clr.b   (A0)
026D74: 1010                     move.b  (A0), D0
026D76: 4880                     ext.w   D0
026D78: 48C0                     ext.l   D0
026D7A: 720C                     moveq   #$c, D1
026D7C: D081                     add.l   D1, D0
026D7E: 2F00                     move.l  D0, -(A7)
026D80: 4EB9 0002 6B66           jsr     $26b66.l
026D86: 588F                     addq.l  #4, A7
026D88: 4E75                     rts
026D8A: 48E7 3000                movem.l D2-D3, -(A7)
026D8E: 1439 0040 000A           move.b  $40000a.l, D2
026D94: 4882                     ext.w   D2
026D96: E242                     asr.w   #1, D2
026D98: 0C39 00FF 0040 0004      cmpi.b  #-$1, $400004.l
026DA0: 6608                     bne     26daa
026DA2: 3202                     move.w  D2, D1
026DA4: 48C1                     ext.l   D1
026DA6: 4481                     neg.l   D1
026DA8: 3401                     move.w  D1, D2
026DAA: 207C 0040 0002           movea.l #$400002, A0
026DB0: 3002                     move.w  D2, D0
026DB2: D150                     add.w   D0, (A0)
026DB4: 33D0 0082 0000           move.w  (A0), $820000.l     Vertical scroll
026DBA: 3002                     move.w  D2, D0
026DBC: EB40                     asl.w   #5, D0
026DBE: 3400                     move.w  D0, D2
026DC0: 3039 0040 03AE           move.w  $4003ae.l, D0
026DC6: 48C0                     ext.l   D0
026DC8: 7208                     moveq   #$8, D1
026DCA: C081                     and.l   D1, D0
026DCC: EB80                     asl.l   #5, D0
026DCE: 3200                     move.w  D0, D1
026DD0: 3001                     move.w  D1, D0
026DD2: 48C0                     ext.l   D0
026DD4: D080                     add.l   D0, D0
026DD6: 0680 00A0 2000           addi.l  #$a02000, D0
026DDC: 2040                     movea.l D0, A0
026DDE: 3001                     move.w  D1, D0
026DE0: 48C0                     ext.l   D0
026DE2: D080                     add.l   D0, D0
026DE4: 0680 00A0 2180           addi.l  #$a02180, D0
026DEA: 2240                     movea.l D0, A1
026DEC: 4243                     clr.w   D3
026DEE: 3210                     move.w  (A0), D1
026DF0: D242                     add.w   D2, D1
026DF2: 0241 3FE0                andi.w  #$3fe0, D1
026DF6: 3010                     move.w  (A0), D0
026DF8: 0240 C01F                andi.w  #$c01f, D0
026DFC: 8240                     or.w    D0, D1
026DFE: 30C1                     move.w  D1, (A0)+
026E00: 3003                     move.w  D3, D0
026E02: 5243                     addq.w  #1, D3
026E04: B059                     cmp.w   (A1)+, D0
026E06: 6706                     beq     26e0e
026E08: 703C                     moveq   #$3c, D0
026E0A: B043                     cmp.w   D3, D0
026E0C: 6EE0                     bgt     26dee
026E0E: 4CDF 000C                movem.l (A7)+, D2-D3
026E12: 4E75                     rts
026E14: 48E7 3C3C                movem.l D2-D5/A2-A5, -(A7)
026E18: 242F 0024                move.l  ($24,A7), D2
026E1C: 3039 0040 03AE           move.w  $4003ae.l, D0
026E22: 0A40 0008                eori.w  #$8, D0
026E26: 33C0 0040 03B0           move.w  D0, $4003b0.l
026E2C: 3039 0040 03B0           move.w  $4003b0.l, D0
026E32: 48C0                     ext.l   D0
026E34: 7208                     moveq   #$8, D1
026E36: C081                     and.l   D1, D0
026E38: EB80                     asl.l   #5, D0
026E3A: 3200                     move.w  D0, D1
026E3C: 3001                     move.w  D1, D0
026E3E: 48C0                     ext.l   D0
026E40: D080                     add.l   D0, D0
026E42: 2A00                     move.l  D0, D5
026E44: 0685 00A0 2180           addi.l  #$a02180, D5
026E4A: 23C5 0040 0402           move.l  D5, $400402.l
026E50: 3001                     move.w  D1, D0
026E52: 48C0                     ext.l   D0
026E54: D080                     add.l   D0, D0
026E56: 2A00                     move.l  D0, D5
026E58: 0685 00A0 2000           addi.l  #$a02000, D5
026E5E: 23C5 0040 03F6           move.l  D5, $4003f6.l
026E64: 3001                     move.w  D1, D0
026E66: 48C0                     ext.l   D0
026E68: D080                     add.l   D0, D0
026E6A: 2A00                     move.l  D0, D5
026E6C: 0685 00A0 2100           addi.l  #$a02100, D5
026E72: 23C5 0040 03FE           move.l  D5, $4003fe.l
026E78: 3001                     move.w  D1, D0
026E7A: 48C0                     ext.l   D0
026E7C: D080                     add.l   D0, D0
026E7E: 2A00                     move.l  D0, D5
026E80: 0685 00A0 2080           addi.l  #$a02080, D5
026E86: 23C5 0040 03FA           move.l  D5, $4003fa.l
026E8C: 3039 0040 03AE           move.w  $4003ae.l, D0
026E92: 48C0                     ext.l   D0
026E94: 7208                     moveq   #$8, D1
026E96: C081                     and.l   D1, D0
026E98: EB80                     asl.l   #5, D0
026E9A: 3200                     move.w  D0, D1
026E9C: 3001                     move.w  D1, D0
026E9E: 48C0                     ext.l   D0
026EA0: D080                     add.l   D0, D0
026EA2: 2A00                     move.l  D0, D5
026EA4: 0685 00A0 2180           addi.l  #$a02180, D5
026EAA: 2645                     movea.l D5, A3
026EAC: 3001                     move.w  D1, D0
026EAE: 48C0                     ext.l   D0
026EB0: D080                     add.l   D0, D0
026EB2: 2A00                     move.l  D0, D5
026EB4: 0685 00A0 2000           addi.l  #$a02000, D5
026EBA: 2445                     movea.l D5, A2
026EBC: 3001                     move.w  D1, D0
026EBE: 48C0                     ext.l   D0
026EC0: D080                     add.l   D0, D0
026EC2: 2A00                     move.l  D0, D5
026EC4: 0685 00A0 2100           addi.l  #$a02100, D5
026ECA: 2845                     movea.l D5, A4
026ECC: 3001                     move.w  D1, D0
026ECE: 48C0                     ext.l   D0
026ED0: D080                     add.l   D0, D0
026ED2: 2A00                     move.l  D0, D5
026ED4: 0685 00A0 2080           addi.l  #$a02080, D5
026EDA: 2605                     move.l  D5, D3
026EDC: 4244                     clr.w   D4
026EDE: 2002                     move.l  D2, D0
026EE0: EB80                     asl.l   #5, D0
026EE2: 3400                     move.w  D0, D2
026EE4: 207C 0040 03F6           movea.l #$4003f6, A0
026EEA: 2250                     movea.l (A0), A1
026EEC: 5490                     addq.l  #2, (A0)
026EEE: 3012                     move.w  (A2), D0
026EF0: D042                     add.w   D2, D0
026EF2: 0240 3FFF                andi.w  #$3fff, D0
026EF6: 3212                     move.w  (A2), D1
026EF8: 0241 C000                andi.w  #$c000, D1
026EFC: 8041                     or.w    D1, D0
026EFE: 3280                     move.w  D0, (A1)
026F00: 548A                     addq.l  #2, A2
026F02: 207C 0040 03FA           movea.l #$4003fa, A0
026F08: 2250                     movea.l (A0), A1
026F0A: 5490                     addq.l  #2, (A0)
026F0C: 2A43                     movea.l D3, A5
026F0E: 329D                     move.w  (A5)+, (A1)
026F10: 260D                     move.l  A5, D3
026F12: 207C 0040 03FE           movea.l #$4003fe, A0
026F18: 2250                     movea.l (A0), A1
026F1A: 5490                     addq.l  #2, (A0)
026F1C: 329C                     move.w  (A4)+, (A1)
026F1E: 207C 0040 0402           movea.l #$400402, A0
026F24: 2250                     movea.l (A0), A1
026F26: 5490                     addq.l  #2, (A0)
026F28: 3293                     move.w  (A3), (A1)
026F2A: 3004                     move.w  D4, D0
026F2C: 5244                     addq.w  #1, D4
026F2E: B05B                     cmp.w   (A3)+, D0
026F30: 6706                     beq     26f38
026F32: 703C                     moveq   #$3c, D0
026F34: B044                     cmp.w   D4, D0
026F36: 6EAC                     bgt     26ee4
026F38: 4CDF 3C3C                movem.l (A7)+, D2-D5/A2-A5
026F3C: 4E75                     rts
026F3E: 4E56 FFE2                link    A6, #-$1e
026F42: 48E7 3F3C                movem.l D2-D7/A2-A5, -(A7)
026F46: 287C 0001 A8D2           movea.l #$1a8d2, A4
026F4C: 247C 0040 03F6           movea.l #$4003f6, A2
026F52: 267C 0040 0406           movea.l #$400406, A3
026F58: 2D7C 0040 03BC FFF8      move.l  #$4003bc, (-$8,A6)
026F60: 2A6E FFF8                movea.l (-$8,A6), A5
026F64: 0C15 00FF                cmpi.b  #-$1, (A5)
026F68: 6732                     beq     26f9c
026F6A: 2E2E FFF8                move.l  (-$8,A6), D7
026F6E: 0C87 0040 03DB           cmpi.l  #$4003db, D7
026F74: 6426                     bcc     26f9c
026F76: 202E FFF8                move.l  (-$8,A6), D0
026F7A: 52AE FFF8                addq.l  #1, (-$8,A6)
026F7E: 2A40                     movea.l D0, A5
026F80: 1015                     move.b  (A5), D0
026F82: 4880                     ext.w   D0
026F84: 48C0                     ext.l   D0
026F86: E580                     asl.l   #2, D0
026F88: 207C 0001 F0E2           movea.l #$1f0e2, A0
026F8E: 2F30 0800                move.l  (A0,D0.l), -(A7)
026F92: 4EB9 0001 B12A           jsr     $1b12a.l
026F98: 588F                     addq.l  #4, A7
026F9A: 60C4                     bra     26f60
026F9C: 4A39 0040 03E2           tst.b   $4003e2.l
026FA2: 6622                     bne     26fc6
026FA4: 4878 0001                pea     $1.w
026FA8: 4EB9 0001 A7A8           jsr     $1a7a8.l
026FAE: 4878 0002                pea     $2.w
026FB2: 4EB9 0001 A7A8           jsr     $1a7a8.l
026FB8: 4878 0003                pea     $3.w
026FBC: 4EB9 0001 A7A8           jsr     $1a7a8.l
026FC2: 4FEF 000C                lea     ($c,A7), A7
026FC6: 3239 0040 03AE           move.w  $4003ae.l, D1
026FCC: 0A41 0008                eori.w  #$8, D1
026FD0: 33C1 0040 03B0           move.w  D1, $4003b0.l
026FD6: 3039 0040 03B0           move.w  $4003b0.l, D0
026FDC: 48C0                     ext.l   D0
026FDE: 7208                     moveq   #$8, D1
026FE0: C081                     and.l   D1, D0
026FE2: EB80                     asl.l   #5, D0
026FE4: 3600                     move.w  D0, D3
026FE6: 3003                     move.w  D3, D0
026FE8: 48C0                     ext.l   D0
026FEA: D080                     add.l   D0, D0
026FEC: 2E00                     move.l  D0, D7
026FEE: 0687 00A0 2180           addi.l  #$a02180, D7
026FF4: 2047                     movea.l D7, A0
026FF6: 4202                     clr.b   D2
026FF8: 1202                     move.b  D2, D1
026FFA: 4881                     ext.w   D1
026FFC: 30C1                     move.w  D1, (A0)+
026FFE: 5202                     addq.b  #1, D2
027000: 0C02 0038                cmpi.b  #$38, D2
027004: 66F2                     bne     26ff8
027006: 3003                     move.w  D3, D0
027008: 48C0                     ext.l   D0
02700A: D080                     add.l   D0, D0
02700C: 2E00                     move.l  D0, D7
02700E: 0687 00A0 2100           addi.l  #$a02100, D7
027014: 23C7 0040 03FE           move.l  D7, $4003fe.l
02701A: 3003                     move.w  D3, D0
02701C: 48C0                     ext.l   D0
02701E: D080                     add.l   D0, D0
027020: 2E00                     move.l  D0, D7
027022: 0687 00A0 2000           addi.l  #$a02000, D7
027028: 2487                     move.l  D7, (A2)
02702A: 3003                     move.w  D3, D0
02702C: 48C0                     ext.l   D0
02702E: D080                     add.l   D0, D0
027030: 2E00                     move.l  D0, D7
027032: 0687 00A0 2080           addi.l  #$a02080, D7
027038: 23C7 0040 03FA           move.l  D7, $4003fa.l
02703E: 3003                     move.w  D3, D0
027040: 48C0                     ext.l   D0
027042: D080                     add.l   D0, D0
027044: 0680 00A0 2180           addi.l  #$a02180, D0
02704A: 2040                     movea.l D0, A0
02704C: 5588                     subq.l  #2, A0
02704E: 23C8 0040 0402           move.l  A0, $400402.l
027054: 4253                     clr.w   (A3)
027056: 2D7C 0040 03BC FFF8      move.l  #$4003bc, (-$8,A6)
02705E: 2A6E FFF8                movea.l (-$8,A6), A5
027062: 0C15 00FF                cmpi.b  #-$1, (A5)
027066: 6700 11B6                beq     2821e
02706A: 2E2E FFF8                move.l  (-$8,A6), D7
02706E: 0C87 0040 03DB           cmpi.l  #$4003db, D7
027074: 6400 11A8                bcc     2821e
027078: 703C                     moveq   #$3c, D0
02707A: B053                     cmp.w   (A3), D0
02707C: 6F00 11A0                ble     2821e
027080: 2A6E FFF8                movea.l (-$8,A6), A5
027084: 1215                     move.b  (A5), D1
027086: 4881                     ext.w   D1
027088: 48C1                     ext.l   D1
02708A: E581                     asl.l   #2, D1
02708C: 2A7C 0001 F0E2           movea.l #$1f0e2, A5
027092: 2275 1800                movea.l (A5,D1.l), A1
027096: 1011                     move.b  (A1), D0
027098: 4880                     ext.w   D0
02709A: 48C0                     ext.l   D0
02709C: C18D                     exg     D0, A5
02709E: BAFC 002A                cmpa.w  #$2a, A5
0270A2: C18D                     exg     D0, A5
0270A4: 6D06                     blt     270ac
0270A6: 6E5C                     bgt     27104
0270A8: 6000 006A                bra     27114
0270AC: C18D                     exg     D0, A5
0270AE: BAFC 0001                cmpa.w  #$1, A5
0270B2: C18D                     exg     D0, A5
0270B4: 6D00 1160                blt     28216
0270B8: C18D                     exg     D0, A5
0270BA: BAFC 000F                cmpa.w  #$f, A5
0270BE: C18D                     exg     D0, A5
0270C0: 6E32                     bgt     270f4
0270C2: 2A40                     movea.l D0, A5
0270C4: 538D                     subq.l  #1, A5
0270C6: 200D                     move.l  A5, D0
0270C8: 2A40                     movea.l D0, A5
0270CA: DBC0                     adda.l  D0, A5
0270CC: 200D                     move.l  A5, D0
0270CE: 303B 0006                move.w  ($6,PC,D0.w), D0
0270D2: 4EFB 0002                jmp     ($2,PC,D0.w)
0270D6: 0176 06E0                bchg    D0, (-$20,A6,D0.w*8)
0270DA: 0940                     bchg    D4, D0
0270DC: 09EE 0CFA                bset    D4, ($cfa,A6)
0270E0: 0DFE                     dc.w $0dfe; ILLEGAL
0270E2: 0F42                     bchg    D7, D2
0270E4: 0F98                     bclr    D7, (A0)+
0270E6: 0FEE 0D50                bset    D7, ($d50,A6)
0270EA: 0B40                     bchg    D5, D0
0270EC: 0CA4 0B40 0AEA           cmpi.l  #$b400aea, -(A4)
0270F2: 1044                     dc.w $1044; ILLEGAL
0270F4: C18D                     exg     D0, A5
0270F6: BAFC 0029                cmpa.w  #$29, A5
0270FA: C18D                     exg     D0, A5
0270FC: 6600 1118                bne     28216
027100: 6000 0D7A                bra     27e7c
027104: C18D                     exg     D0, A5
027106: BAFC 002C                cmpa.w  #$2c, A5
02710A: C18D                     exg     D0, A5
02710C: 6600 1108                bne     28216
027110: 6000 07F4                bra     27906
027114: 1229 0001                move.b  ($1,A1), D1
027118: 4881                     ext.w   D1
02711A: 48C1                     ext.l   D1
02711C: E581                     asl.l   #2, D1
02711E: 2041                     movea.l D1, A0
027120: D281                     add.l   D1, D1
027122: D288                     add.l   A0, D1
027124: 2A7C 0040 098C           movea.l #$40098c, A5
02712A: 204D                     movea.l A5, A0
02712C: D1C1                     adda.l  D1, A0
02712E: 2208                     move.l  A0, D1
027130: 2E08                     move.l  A0, D7
027132: 2A41                     movea.l D1, A5
027134: 41ED 0006                lea     ($6,A5), A0
027138: 2008                     move.l  A0, D0
02713A: CF88                     exg     D7, A0
02713C: 2040                     movea.l D0, A0
02713E: 3A18                     move.w  (A0)+, D5
027140: 0645 0018                addi.w  #$18, D5
027144: 3810                     move.w  (A0), D4
027146: 0644 0010                addi.w  #$10, D4
02714A: 70C0                     moveq   #-$40, D0
02714C: B044                     cmp.w   D4, D0
02714E: 6C00 10C6                bge     28216
027152: 0C44 0100                cmpi.w  #$100, D4
027156: 6C00 10BE                bge     28216
02715A: 1429 0001                move.b  ($1,A1), D2
02715E: 4882                     ext.w   D2
027160: 700B                     moveq   #$b, D0
027162: E162                     asl.w   D0, D2
027164: C38D                     exg     D1, A5
027166: 4A2D 000A                tst.b   ($a,A5)
02716A: C38D                     exg     D1, A5
02716C: 670E                     beq     2717c
02716E: 2D7C 0000 0102 FFF2      move.l  #$102, (-$e,A6)
027176: 5345                     subq.w  #1, D5
027178: 5B44                     subq.w  #5, D4
02717A: 600E                     bra     2718a
02717C: 2D7C 0000 0100 FFF2      move.l  #$100, (-$e,A6)
027184: 0445 000C                subi.w  #$c, D5
027188: 5B44                     subq.w  #5, D4
02718A: 3002                     move.w  D2, D0
02718C: 48C0                     ext.l   D0
02718E: 81AE FFF2                or.l    D0, (-$e,A6)
027192: 2A7C 0040 03FA           movea.l #$4003fa, A5
027198: 200D                     move.l  A5, D0
02719A: 2A40                     movea.l D0, A5
02719C: 2055                     movea.l (A5), A0
02719E: 2A40                     movea.l D0, A5
0271A0: 5495                     addq.l  #2, (A5)
0271A2: 302E FFF4                move.w  (-$c,A6), D0
0271A6: 0240 FFFF                andi.w  #$ffff, D0
0271AA: 3080                     move.w  D0, (A0)
0271AC: 2A7C 0040 03FE           movea.l #$4003fe, A5
0271B2: 200D                     move.l  A5, D0
0271B4: 2A40                     movea.l D0, A5
0271B6: 2055                     movea.l (A5), A0
0271B8: 2A40                     movea.l D0, A5
0271BA: 5495                     addq.l  #2, (A5)
0271BC: 3005                     move.w  D5, D0
0271BE: EB40                     asl.w   #5, D0
0271C0: 0240 3FE0                andi.w  #$3fe0, D0
0271C4: 3080                     move.w  D0, (A0)
0271C6: 2052                     movea.l (A2), A0
0271C8: 5492                     addq.l  #2, (A2)
0271CA: 3004                     move.w  D4, D0
0271CC: EB40                     asl.w   #5, D0
0271CE: 0240 3FE0                andi.w  #$3fe0, D0
0271D2: 3080                     move.w  D0, (A0)
0271D4: 2A7C 0040 0402           movea.l #$400402, A5
0271DA: 200D                     move.l  A5, D0
0271DC: 2A40                     movea.l D0, A5
0271DE: 2055                     movea.l (A5), A0
0271E0: 2A40                     movea.l D0, A5
0271E2: 5495                     addq.l  #2, (A5)
0271E4: 3013                     move.w  (A3), D0
0271E6: 5253                     addq.w  #1, (A3)
0271E8: 3080                     move.w  D0, (A0)
0271EA: 5045                     addq.w  #8, D5
0271EC: 52AE FFF2                addq.l  #1, (-$e,A6)
0271F0: 2A7C 0040 03FA           movea.l #$4003fa, A5
0271F6: 200D                     move.l  A5, D0
0271F8: 2A40                     movea.l D0, A5
0271FA: 2055                     movea.l (A5), A0
0271FC: 2A40                     movea.l D0, A5
0271FE: 5495                     addq.l  #2, (A5)
027200: 302E FFF4                move.w  (-$c,A6), D0
027204: 0240 FFFF                andi.w  #$ffff, D0
027208: 3080                     move.w  D0, (A0)
02720A: 2A7C 0040 03FE           movea.l #$4003fe, A5
027210: 200D                     move.l  A5, D0
027212: 2A40                     movea.l D0, A5
027214: 2055                     movea.l (A5), A0
027216: 2A40                     movea.l D0, A5
027218: 5495                     addq.l  #2, (A5)
02721A: 3005                     move.w  D5, D0
02721C: EB40                     asl.w   #5, D0
02721E: 0240 3FE0                andi.w  #$3fe0, D0
027222: 3080                     move.w  D0, (A0)
027224: 2052                     movea.l (A2), A0
027226: 5492                     addq.l  #2, (A2)
027228: 3004                     move.w  D4, D0
02722A: EB40                     asl.w   #5, D0
02722C: 0240 3FE0                andi.w  #$3fe0, D0
027230: 3080                     move.w  D0, (A0)
027232: 2A7C 0040 0402           movea.l #$400402, A5
027238: 200D                     move.l  A5, D0
02723A: 2A40                     movea.l D0, A5
02723C: 2055                     movea.l (A5), A0
02723E: 2A40                     movea.l D0, A5
027240: 5495                     addq.l  #2, (A5)
027242: 3013                     move.w  (A3), D0
027244: 5253                     addq.w  #1, (A3)
027246: 3080                     move.w  D0, (A0)
027248: 6000 0FCC                bra     28216
02724C: 1229 0001                move.b  ($1,A1), D1
027250: 4881                     ext.w   D1
027252: 48C1                     ext.l   D1
027254: E581                     asl.l   #2, D1
027256: 2A7C 0001 EFF6           movea.l #$1eff6, A5
02725C: 2635 1800                move.l  (A5,D1.l), D3
027260: C78D                     exg     D3, A5
027262: 4A2D 001C                tst.b   ($1c,A5)
027266: C78D                     exg     D3, A5
027268: 6700 0FAC                beq     28216
02726C: 2A43                     movea.l D3, A5
02726E: 1D6D 001A FFFD           move.b  ($1a,A5), (-$3,A6)
027274: 3E2E FFFC                move.w  (-$4,A6), D7
027278: 4887                     ext.w   D7
02727A: 3D47 FFFC                move.w  D7, (-$4,A6)
02727E: 2E08                     move.l  A0, D7
027280: 2A43                     movea.l D3, A5
027282: 41ED 001E                lea     ($1e,A5), A0
027286: 2008                     move.l  A0, D0
027288: CF88                     exg     D7, A0
02728A: 2040                     movea.l D0, A0
02728C: 3A18                     move.w  (A0)+, D5
02728E: 0645 0018                addi.w  #$18, D5
027292: 3810                     move.w  (A0), D4
027294: 0644 0010                addi.w  #$10, D4
027298: 2A43                     movea.l D3, A5
02729A: 1D6D 0019 FFF7           move.b  ($19,A5), (-$9,A6)
0272A0: 3E2E FFF6                move.w  (-$a,A6), D7
0272A4: 4887                     ext.w   D7
0272A6: 3D47 FFF6                move.w  D7, (-$a,A6)
0272AA: 700B                     moveq   #$b, D0
0272AC: 3E2E FFF6                move.w  (-$a,A6), D7
0272B0: E167                     asl.w   D0, D7
0272B2: 3D47 FFF6                move.w  D7, (-$a,A6)
0272B6: 422E FFFF                clr.b   (-$1,A6)
0272BA: 7004                     moveq   #$4, D0
0272BC: B06E FFFC                cmp.w   (-$4,A6), D0
0272C0: 6700 0180                beq     27442
0272C4: 700A                     moveq   #$a, D0
0272C6: B06E FFFC                cmp.w   (-$4,A6), D0
0272CA: 6700 0176                beq     27442
0272CE: 700B                     moveq   #$b, D0
0272D0: B06E FFFC                cmp.w   (-$4,A6), D0
0272D4: 6700 016C                beq     27442
0272D8: 7009                     moveq   #$9, D0
0272DA: B06E FFFC                cmp.w   (-$4,A6), D0
0272DE: 6700 0162                beq     27442
0272E2: 7002                     moveq   #$2, D0
0272E4: B06E FFFC                cmp.w   (-$4,A6), D0
0272E8: 6700 0158                beq     27442
0272EC: 7001                     moveq   #$1, D0
0272EE: B06E FFFC                cmp.w   (-$4,A6), D0
0272F2: 6700 014E                beq     27442
0272F6: 7005                     moveq   #$5, D0
0272F8: B06E FFFC                cmp.w   (-$4,A6), D0
0272FC: 6700 0144                beq     27442
027300: 3404                     move.w  D4, D2
027302: 3245                     movea.w D5, A1
027304: 7005                     moveq   #$5, D0
027306: 2D40 FFF2                move.l  D0, (-$e,A6)
02730A: 7008                     moveq   #$8, D0
02730C: B06E FFFC                cmp.w   (-$4,A6), D0
027310: 664A                     bne     2735c
027312: 207C 0002 15C6           movea.l #$215c6, A0
027318: 2A43                     movea.l D3, A5
02731A: 202D 00CC                move.l  ($cc,A5), D0
02731E: C18D                     exg     D0, A5
027320: B1D5                     cmpa.l  (A5), A0
027322: C18D                     exg     D0, A5
027324: 6612                     bne     27338
027326: 2D7C 0000 0104 FFF2      move.l  #$104, (-$e,A6)
02732E: 5B42                     subq.w  #5, D2
027330: 7E01                     moveq   #$1, D7
027332: 1D47 FFFF                move.b  D7, (-$1,A6)
027336: 6024                     bra     2735c
027338: 207C 0002 15EA           movea.l #$215ea, A0
02733E: 2A43                     movea.l D3, A5
027340: 202D 00CC                move.l  ($cc,A5), D0
027344: C18D                     exg     D0, A5
027346: B1D5                     cmpa.l  (A5), A0
027348: C18D                     exg     D0, A5
02734A: 6610                     bne     2735c
02734C: 2D7C 0000 0108 FFF2      move.l  #$108, (-$e,A6)
027354: 5449                     addq.w  #2, A1
027356: 7E02                     moveq   #$2, D7
027358: 1D47 FFFF                move.b  D7, (-$1,A6)
02735C: 302E FFF6                move.w  (-$a,A6), D0
027360: 48C0                     ext.l   D0
027362: 81AE FFF2                or.l    D0, (-$e,A6)
027366: 2A7C 0040 03FA           movea.l #$4003fa, A5
02736C: 200D                     move.l  A5, D0
02736E: 2A40                     movea.l D0, A5
027370: 2055                     movea.l (A5), A0
027372: 2A40                     movea.l D0, A5
027374: 5495                     addq.l  #2, (A5)
027376: 302E FFF4                move.w  (-$c,A6), D0
02737A: 0240 FFFF                andi.w  #$ffff, D0
02737E: 3080                     move.w  D0, (A0)
027380: 7C01                     moveq   #$1, D6
027382: 2A7C 0040 03FE           movea.l #$4003fe, A5
027388: 200D                     move.l  A5, D0
02738A: 2A40                     movea.l D0, A5
02738C: 2055                     movea.l (A5), A0
02738E: 2A40                     movea.l D0, A5
027390: 5495                     addq.l  #2, (A5)
027392: 3009                     move.w  A1, D0
027394: 48C0                     ext.l   D0
027396: 5180                     subq.l  #8, D0
027398: EB80                     asl.l   #5, D0
02739A: 0240 3FE0                andi.w  #$3fe0, D0
02739E: 3080                     move.w  D0, (A0)
0273A0: 2052                     movea.l (A2), A0
0273A2: 5492                     addq.l  #2, (A2)
0273A4: 3002                     move.w  D2, D0
0273A6: EB40                     asl.w   #5, D0
0273A8: 0240 3FE0                andi.w  #$3fe0, D0
0273AC: 8046                     or.w    D6, D0
0273AE: 3080                     move.w  D0, (A0)
0273B0: 2A7C 0040 0402           movea.l #$400402, A5
0273B6: 200D                     move.l  A5, D0
0273B8: 2A40                     movea.l D0, A5
0273BA: 2055                     movea.l (A5), A0
0273BC: 2A40                     movea.l D0, A5
0273BE: 5495                     addq.l  #2, (A5)
0273C0: 3013                     move.w  (A3), D0
0273C2: 5253                     addq.w  #1, (A3)
0273C4: 3080                     move.w  D0, (A0)
0273C6: 7008                     moveq   #$8, D0
0273C8: B06E FFFC                cmp.w   (-$4,A6), D0
0273CC: 660C                     bne     273da
0273CE: 4A2E FFFF                tst.b   (-$1,A6)
0273D2: 6706                     beq     273da
0273D4: 54AE FFF2                addq.l  #2, (-$e,A6)
0273D8: 600E                     bra     273e8
0273DA: 302E FFF6                move.w  (-$a,A6), D0
0273DE: 48C0                     ext.l   D0
0273E0: 7203                     moveq   #$3, D1
0273E2: 8081                     or.l    D1, D0
0273E4: 2D40 FFF2                move.l  D0, (-$e,A6)
0273E8: 2A7C 0040 03FA           movea.l #$4003fa, A5
0273EE: 200D                     move.l  A5, D0
0273F0: 2A40                     movea.l D0, A5
0273F2: 2055                     movea.l (A5), A0
0273F4: 2A40                     movea.l D0, A5
0273F6: 5495                     addq.l  #2, (A5)
0273F8: 302E FFF4                move.w  (-$c,A6), D0
0273FC: 0240 FFFF                andi.w  #$ffff, D0
027400: 3080                     move.w  D0, (A0)
027402: 2A7C 0040 03FE           movea.l #$4003fe, A5
027408: 200D                     move.l  A5, D0
02740A: 2A40                     movea.l D0, A5
02740C: 2055                     movea.l (A5), A0
02740E: 2A40                     movea.l D0, A5
027410: 5495                     addq.l  #2, (A5)
027412: 3009                     move.w  A1, D0
027414: EB40                     asl.w   #5, D0
027416: 0240 3FE0                andi.w  #$3fe0, D0
02741A: 3080                     move.w  D0, (A0)
02741C: 2052                     movea.l (A2), A0
02741E: 5492                     addq.l  #2, (A2)
027420: 3002                     move.w  D2, D0
027422: EB40                     asl.w   #5, D0
027424: 0240 3FE0                andi.w  #$3fe0, D0
027428: 8046                     or.w    D6, D0
02742A: 3080                     move.w  D0, (A0)
02742C: 2A7C 0040 0402           movea.l #$400402, A5
027432: 200D                     move.l  A5, D0
027434: 2A40                     movea.l D0, A5
027436: 2055                     movea.l (A5), A0
027438: 2A40                     movea.l D0, A5
02743A: 5495                     addq.l  #2, (A5)
02743C: 3013                     move.w  (A3), D0
02743E: 5253                     addq.w  #1, (A3)
027440: 3080                     move.w  D0, (A0)
027442: 7002                     moveq   #$2, D0
027444: B06E FFFC                cmp.w   (-$4,A6), D0
027448: 6700 00C0                beq     2750a
02744C: 7009                     moveq   #$9, D0
02744E: B06E FFFC                cmp.w   (-$4,A6), D0
027452: 6700 00B6                beq     2750a
027456: 7001                     moveq   #$1, D0
027458: B06E FFFC                cmp.w   (-$4,A6), D0
02745C: 6700 00AC                beq     2750a
027460: 7005                     moveq   #$5, D0
027462: B06E FFFC                cmp.w   (-$4,A6), D0
027466: 6700 00A2                beq     2750a
02746A: 2E08                     move.l  A0, D7
02746C: 2A43                     movea.l D3, A5
02746E: 41ED 00A4                lea     ($a4,A5), A0
027472: 2008                     move.l  A0, D0
027474: CF88                     exg     D7, A0
027476: 2240                     movea.l D0, A1
027478: 4202                     clr.b   D2
02747A: 4A51                     tst.w   (A1)
02747C: 6700 008C                beq     2750a
027480: 1002                     move.b  D2, D0
027482: 5202                     addq.b  #1, D2
027484: 0C00 0004                cmpi.b  #$4, D0
027488: 6C00 0080                bge     2750a
02748C: 3C11                     move.w  (A1), D6
02748E: 0246 8000                andi.w  #$8000, D6
027492: 3211                     move.w  (A1), D1
027494: 700B                     moveq   #$b, D0
027496: E061                     asr.w   D0, D1
027498: 0241 0007                andi.w  #$7, D1
02749C: 8C41                     or.w    D1, D6
02749E: 2A7C 0040 03FA           movea.l #$4003fa, A5
0274A4: 200D                     move.l  A5, D0
0274A6: 2A40                     movea.l D0, A5
0274A8: 2055                     movea.l (A5), A0
0274AA: 2A40                     movea.l D0, A5
0274AC: 5495                     addq.l  #2, (A5)
0274AE: 3019                     move.w  (A1)+, D0
0274B0: 0240 07FF                andi.w  #$7ff, D0
0274B4: 806E FFF6                or.w    (-$a,A6), D0
0274B8: 3080                     move.w  D0, (A0)
0274BA: 2A7C 0040 03FE           movea.l #$4003fe, A5
0274C0: 200D                     move.l  A5, D0
0274C2: 2A40                     movea.l D0, A5
0274C4: 2055                     movea.l (A5), A0
0274C6: 2A40                     movea.l D0, A5
0274C8: 5495                     addq.l  #2, (A5)
0274CA: 3019                     move.w  (A1)+, D0
0274CC: 48C0                     ext.l   D0
0274CE: 7218                     moveq   #$18, D1
0274D0: D081                     add.l   D1, D0
0274D2: EB80                     asl.l   #5, D0
0274D4: 0240 3FE0                andi.w  #$3fe0, D0
0274D8: 3080                     move.w  D0, (A0)
0274DA: 2052                     movea.l (A2), A0
0274DC: 5492                     addq.l  #2, (A2)
0274DE: 3019                     move.w  (A1)+, D0
0274E0: 48C0                     ext.l   D0
0274E2: 7210                     moveq   #$10, D1
0274E4: D081                     add.l   D1, D0
0274E6: EB80                     asl.l   #5, D0
0274E8: 0240 3FE0                andi.w  #$3fe0, D0
0274EC: 8046                     or.w    D6, D0
0274EE: 3080                     move.w  D0, (A0)
0274F0: 2A7C 0040 0402           movea.l #$400402, A5
0274F6: 200D                     move.l  A5, D0
0274F8: 2A40                     movea.l D0, A5
0274FA: 2055                     movea.l (A5), A0
0274FC: 2A40                     movea.l D0, A5
0274FE: 5495                     addq.l  #2, (A5)
027500: 3013                     move.w  (A3), D0
027502: 5253                     addq.w  #1, (A3)
027504: 3080                     move.w  D0, (A0)
027506: 6000 FF72                bra     2747a
02750A: 7004                     moveq   #$4, D0
02750C: B06E FFFC                cmp.w   (-$4,A6), D0
027510: 6700 00C6                beq     275d8
027514: 700A                     moveq   #$a, D0
027516: B06E FFFC                cmp.w   (-$4,A6), D0
02751A: 6700 00BC                beq     275d8
02751E: 700B                     moveq   #$b, D0
027520: B06E FFFC                cmp.w   (-$4,A6), D0
027524: 6700 00B2                beq     275d8
027528: 7009                     moveq   #$9, D0
02752A: B06E FFFC                cmp.w   (-$4,A6), D0
02752E: 6700 00A8                beq     275d8
027532: 7002                     moveq   #$2, D0
027534: B06E FFFC                cmp.w   (-$4,A6), D0
027538: 6700 009E                beq     275d8
02753C: 7001                     moveq   #$1, D0
02753E: B06E FFFC                cmp.w   (-$4,A6), D0
027542: 6700 0094                beq     275d8
027546: 7005                     moveq   #$5, D0
027548: B06E FFFC                cmp.w   (-$4,A6), D0
02754C: 6700 008A                beq     275d8
027550: 7008                     moveq   #$8, D0
027552: B06E FFFC                cmp.w   (-$4,A6), D0
027556: 6600 000A                bne     27562
02755A: 4A2E FFFF                tst.b   (-$1,A6)
02755E: 6600 0078                bne     275d8
027562: 302E FFF6                move.w  (-$a,A6), D0
027566: 48C0                     ext.l   D0
027568: 7207                     moveq   #$7, D1
02756A: 8081                     or.l    D1, D0
02756C: 2D40 FFF2                move.l  D0, (-$e,A6)
027570: 2A7C 0040 03FA           movea.l #$4003fa, A5
027576: 200D                     move.l  A5, D0
027578: 2A40                     movea.l D0, A5
02757A: 2055                     movea.l (A5), A0
02757C: 2A40                     movea.l D0, A5
02757E: 5495                     addq.l  #2, (A5)
027580: 302E FFF4                move.w  (-$c,A6), D0
027584: 0240 FFFF                andi.w  #$ffff, D0
027588: 3080                     move.w  D0, (A0)
02758A: 4BEE FFF2                lea     (-$e,A6), A5
02758E: 3C15                     move.w  (A5), D6
027590: 2A7C 0040 03FE           movea.l #$4003fe, A5
027596: 200D                     move.l  A5, D0
027598: 2A40                     movea.l D0, A5
02759A: 2055                     movea.l (A5), A0
02759C: 2A40                     movea.l D0, A5
02759E: 5495                     addq.l  #2, (A5)
0275A0: 3005                     move.w  D5, D0
0275A2: 48C0                     ext.l   D0
0275A4: 5180                     subq.l  #8, D0
0275A6: EB80                     asl.l   #5, D0
0275A8: 0240 3FE0                andi.w  #$3fe0, D0
0275AC: 3080                     move.w  D0, (A0)
0275AE: 2052                     movea.l (A2), A0
0275B0: 5492                     addq.l  #2, (A2)
0275B2: 3004                     move.w  D4, D0
0275B4: 48C0                     ext.l   D0
0275B6: 5A80                     addq.l  #5, D0
0275B8: EB80                     asl.l   #5, D0
0275BA: 0240 3FE0                andi.w  #$3fe0, D0
0275BE: 8046                     or.w    D6, D0
0275C0: 3080                     move.w  D0, (A0)
0275C2: 2A7C 0040 0402           movea.l #$400402, A5
0275C8: 200D                     move.l  A5, D0
0275CA: 2A40                     movea.l D0, A5
0275CC: 2055                     movea.l (A5), A0
0275CE: 2A40                     movea.l D0, A5
0275D0: 5495                     addq.l  #2, (A5)
0275D2: 3013                     move.w  (A3), D0
0275D4: 5253                     addq.w  #1, (A3)
0275D6: 3080                     move.w  D0, (A0)
0275D8: 7002                     moveq   #$2, D0
0275DA: B06E FFFC                cmp.w   (-$4,A6), D0
0275DE: 6700 001E                beq     275fe
0275E2: 7009                     moveq   #$9, D0
0275E4: B06E FFFC                cmp.w   (-$4,A6), D0
0275E8: 6700 0014                beq     275fe
0275EC: 7001                     moveq   #$1, D0
0275EE: B06E FFFC                cmp.w   (-$4,A6), D0
0275F2: 6700 000A                beq     275fe
0275F6: 7005                     moveq   #$5, D0
0275F8: B06E FFFC                cmp.w   (-$4,A6), D0
0275FC: 6622                     bne     27620
0275FE: 322E FFF6                move.w  (-$a,A6), D1
027602: 48C1                     ext.l   D1
027604: 2F01                     move.l  D1, -(A7)
027606: 3004                     move.w  D4, D0
027608: 48C0                     ext.l   D0
02760A: 2F00                     move.l  D0, -(A7)
02760C: 3005                     move.w  D5, D0
02760E: 48C0                     ext.l   D0
027610: 2F00                     move.l  D0, -(A7)
027612: 2A43                     movea.l D3, A5
027614: 206D 005A                movea.l ($5a,A5), A0
027618: 2F10                     move.l  (A0), -(A7)
02761A: 4E94                     jsr     (A4)
02761C: 4FEF 0010                lea     ($10,A7), A7
027620: 2E08                     move.l  A0, D7
027622: 2A43                     movea.l D3, A5
027624: 41ED 0038                lea     ($38,A5), A0
027628: 2008                     move.l  A0, D0
02762A: CF88                     exg     D7, A0
02762C: 2240                     movea.l D0, A1
02762E: 4202                     clr.b   D2
027630: 4A51                     tst.w   (A1)
027632: 6700 00B4                beq     276e8
027636: 1002                     move.b  D2, D0
027638: 5202                     addq.b  #1, D2
02763A: 0C00 0005                cmpi.b  #$5, D0
02763E: 6C00 00A8                bge     276e8
027642: 3C11                     move.w  (A1), D6
027644: 0246 8000                andi.w  #$8000, D6
027648: 3211                     move.w  (A1), D1
02764A: 700B                     moveq   #$b, D0
02764C: E061                     asr.w   D0, D1
02764E: 0241 0007                andi.w  #$7, D1
027652: 8C41                     or.w    D1, D6
027654: 2039 0040 03FA           move.l  $4003fa.l, D0
02765A: 3211                     move.w  (A1), D1
02765C: 0241 07FF                andi.w  #$7ff, D1
027660: 2A40                     movea.l D0, A5
027662: 3A81                     move.w  D1, (A5)
027664: 3019                     move.w  (A1)+, D0
027666: 48C0                     ext.l   D0
027668: 0280 0000 4000           andi.l  #$4000, D0
02766E: 670C                     beq     2767c
027670: 2A79 0040 03FE           movea.l $4003fe.l, A5
027676: 3ABC 8000                move.w  #$8000, (A5)
02767A: 6016                     bra     27692
02767C: 2A79 0040 03FE           movea.l $4003fe.l, A5
027682: 4255                     clr.w   (A5)
027684: 2039 0040 03FA           move.l  $4003fa.l, D0
02768A: 322E FFF6                move.w  (-$a,A6), D1
02768E: 2A40                     movea.l D0, A5
027690: 8355                     or.w    D1, (A5)
027692: 54B9 0040 03FA           addq.l  #2, $4003fa.l
027698: 2A7C 0040 03FE           movea.l #$4003fe, A5
02769E: 200D                     move.l  A5, D0
0276A0: 2A40                     movea.l D0, A5
0276A2: 2055                     movea.l (A5), A0
0276A4: 2A40                     movea.l D0, A5
0276A6: 5495                     addq.l  #2, (A5)
0276A8: 3019                     move.w  (A1)+, D0
0276AA: 48C0                     ext.l   D0
0276AC: 7218                     moveq   #$18, D1
0276AE: D081                     add.l   D1, D0
0276B0: EB80                     asl.l   #5, D0
0276B2: 0240 3FE0                andi.w  #$3fe0, D0
0276B6: 8150                     or.w    D0, (A0)
0276B8: 2052                     movea.l (A2), A0
0276BA: 5492                     addq.l  #2, (A2)
0276BC: 3019                     move.w  (A1)+, D0
0276BE: 48C0                     ext.l   D0
0276C0: 7210                     moveq   #$10, D1
0276C2: D081                     add.l   D1, D0
0276C4: EB80                     asl.l   #5, D0
0276C6: 0240 3FE0                andi.w  #$3fe0, D0
0276CA: 8046                     or.w    D6, D0
0276CC: 3080                     move.w  D0, (A0)
0276CE: 2A7C 0040 0402           movea.l #$400402, A5
0276D4: 200D                     move.l  A5, D0
0276D6: 2A40                     movea.l D0, A5
0276D8: 2055                     movea.l (A5), A0
0276DA: 2A40                     movea.l D0, A5
0276DC: 5495                     addq.l  #2, (A5)
0276DE: 3013                     move.w  (A3), D0
0276E0: 5253                     addq.w  #1, (A3)
0276E2: 3080                     move.w  D0, (A0)
0276E4: 6000 FF4A                bra     27630
0276E8: C78D                     exg     D3, A5
0276EA: 4A2D 0067                tst.b   ($67,A5)
0276EE: C78D                     exg     D3, A5
0276F0: 671E                     beq     27710
0276F2: 4878 1000                pea     $1000.w
0276F6: 3204                     move.w  D4, D1
0276F8: 48C1                     ext.l   D1
0276FA: 2F01                     move.l  D1, -(A7)
0276FC: 3005                     move.w  D5, D0
0276FE: 48C0                     ext.l   D0
027700: 2F00                     move.l  D0, -(A7)
027702: 2A43                     movea.l D3, A5
027704: 206D 0062                movea.l ($62,A5), A0
027708: 2F10                     move.l  (A0), -(A7)
02770A: 4E94                     jsr     (A4)
02770C: 4FEF 0010                lea     ($10,A7), A7
027710: C78D                     exg     D3, A5
027712: 4A2D 00D1                tst.b   ($d1,A5)
027716: C78D                     exg     D3, A5
027718: 671E                     beq     27738
02771A: 4878 1000                pea     $1000.w
02771E: 3204                     move.w  D4, D1
027720: 48C1                     ext.l   D1
027722: 2F01                     move.l  D1, -(A7)
027724: 3005                     move.w  D5, D0
027726: 48C0                     ext.l   D0
027728: 2F00                     move.l  D0, -(A7)
02772A: 2A43                     movea.l D3, A5
02772C: 206D 00CC                movea.l ($cc,A5), A0
027730: 2F10                     move.l  (A0), -(A7)
027732: 4E94                     jsr     (A4)
027734: 4FEF 0010                lea     ($10,A7), A7
027738: C78D                     exg     D3, A5
02773A: 4A2D 00D8                tst.b   ($d8,A5)
02773E: C78D                     exg     D3, A5
027740: 6700 0AD4                beq     28216
027744: 7004                     moveq   #$4, D0
027746: B06E FFFC                cmp.w   (-$4,A6), D0
02774A: 6700 0ACA                beq     28216
02774E: 700A                     moveq   #$a, D0
027750: B06E FFFC                cmp.w   (-$4,A6), D0
027754: 6700 0AC0                beq     28216
027758: 700B                     moveq   #$b, D0
02775A: B06E FFFC                cmp.w   (-$4,A6), D0
02775E: 6700 0AB6                beq     28216
027762: 7007                     moveq   #$7, D0
027764: B06E FFFC                cmp.w   (-$4,A6), D0
027768: 6700 0AAC                beq     28216
02776C: 7002                     moveq   #$2, D0
02776E: B06E FFFC                cmp.w   (-$4,A6), D0
027772: 6700 0AA2                beq     28216
027776: 7006                     moveq   #$6, D0
027778: B06E FFFC                cmp.w   (-$4,A6), D0
02777C: 6604                     bne     27782
02777E: 0644 0010                addi.w  #$10, D4
027782: 322E FFF6                move.w  (-$a,A6), D1
027786: 48C1                     ext.l   D1
027788: 2F01                     move.l  D1, -(A7)
02778A: 3004                     move.w  D4, D0
02778C: 48C0                     ext.l   D0
02778E: 7210                     moveq   #$10, D1
027790: D081                     add.l   D1, D0
027792: 2F00                     move.l  D0, -(A7)
027794: 2A43                     movea.l D3, A5
027796: 102D 0068                move.b  ($68,A5), D0
02779A: 4880                     ext.w   D0
02779C: 48C0                     ext.l   D0
02779E: 3205                     move.w  D5, D1
0277A0: 48C1                     ext.l   D1
0277A2: D081                     add.l   D1, D0
0277A4: 2F00                     move.l  D0, -(A7)
0277A6: 2A43                     movea.l D3, A5
0277A8: 2F2D 00D4                move.l  ($d4,A5), -(A7)
0277AC: 4E94                     jsr     (A4)
0277AE: 4FEF 0010                lea     ($10,A7), A7
0277B2: 6000 0A62                bra     28216
0277B6: 1229 0001                move.b  ($1,A1), D1
0277BA: 4881                     ext.w   D1
0277BC: 48C1                     ext.l   D1
0277BE: E581                     asl.l   #2, D1
0277C0: 2A7C 0001 EFFE           movea.l #$1effe, A5
0277C6: 2635 1800                move.l  (A5,D1.l), D3
0277CA: C78D                     exg     D3, A5
0277CC: 4A2D 001C                tst.b   ($1c,A5)
0277D0: C78D                     exg     D3, A5
0277D2: 6700 0A42                beq     28216
0277D6: 2E08                     move.l  A0, D7
0277D8: 2A43                     movea.l D3, A5
0277DA: 41ED 001E                lea     ($1e,A5), A0
0277DE: 2008                     move.l  A0, D0
0277E0: CF88                     exg     D7, A0
0277E2: 2040                     movea.l D0, A0
0277E4: 3A18                     move.w  (A0)+, D5
0277E6: 0645 0018                addi.w  #$18, D5
0277EA: 3810                     move.w  (A0), D4
0277EC: 0644 0010                addi.w  #$10, D4
0277F0: C78D                     exg     D3, A5
0277F2: 0C2D 0002 0018           cmpi.b  #$2, ($18,A5)
0277F8: C78D                     exg     D3, A5
0277FA: 671E                     beq     2781a
0277FC: 4878 2800                pea     $2800.w
027800: 3204                     move.w  D4, D1
027802: 48C1                     ext.l   D1
027804: 2F01                     move.l  D1, -(A7)
027806: 3005                     move.w  D5, D0
027808: 48C0                     ext.l   D0
02780A: 2F00                     move.l  D0, -(A7)
02780C: 4879 0002 1F36           pea     $21f36.l
027812: 4E94                     jsr     (A4)
027814: 4FEF 0010                lea     ($10,A7), A7
027818: 601E                     bra     27838
02781A: 4878 2800                pea     $2800.w
02781E: 3204                     move.w  D4, D1
027820: 48C1                     ext.l   D1
027822: 2F01                     move.l  D1, -(A7)
027824: 3005                     move.w  D5, D0
027826: 48C0                     ext.l   D0
027828: 2F00                     move.l  D0, -(A7)
02782A: 2A43                     movea.l D3, A5
02782C: 206D 005A                movea.l ($5a,A5), A0
027830: 2F10                     move.l  (A0), -(A7)
027832: 4E94                     jsr     (A4)
027834: 4FEF 0010                lea     ($10,A7), A7
027838: 2E08                     move.l  A0, D7
02783A: 2A43                     movea.l D3, A5
02783C: 41ED 0038                lea     ($38,A5), A0
027840: 2008                     move.l  A0, D0
027842: CF88                     exg     D7, A0
027844: 2240                     movea.l D0, A1
027846: 4202                     clr.b   D2
027848: 4A51                     tst.w   (A1)
02784A: 6700 008C                beq     278d8
02784E: 1002                     move.b  D2, D0
027850: 5202                     addq.b  #1, D2
027852: 0C00 0005                cmpi.b  #$5, D0
027856: 6C00 0080                bge     278d8
02785A: 3C11                     move.w  (A1), D6
02785C: 0246 8000                andi.w  #$8000, D6
027860: 3211                     move.w  (A1), D1
027862: 700B                     moveq   #$b, D0
027864: E061                     asr.w   D0, D1
027866: 0241 0007                andi.w  #$7, D1
02786A: 8C41                     or.w    D1, D6
02786C: 2A7C 0040 03FA           movea.l #$4003fa, A5
027872: 200D                     move.l  A5, D0
027874: 2A40                     movea.l D0, A5
027876: 2055                     movea.l (A5), A0
027878: 2A40                     movea.l D0, A5
02787A: 5495                     addq.l  #2, (A5)
02787C: 3019                     move.w  (A1)+, D0
02787E: 0240 07FF                andi.w  #$7ff, D0
027882: 3080                     move.w  D0, (A0)
027884: 2A7C 0040 03FE           movea.l #$4003fe, A5
02788A: 200D                     move.l  A5, D0
02788C: 2A40                     movea.l D0, A5
02788E: 2055                     movea.l (A5), A0
027890: 2A40                     movea.l D0, A5
027892: 5495                     addq.l  #2, (A5)
027894: 3019                     move.w  (A1)+, D0
027896: 48C0                     ext.l   D0
027898: 7218                     moveq   #$18, D1
02789A: D081                     add.l   D1, D0
02789C: EB80                     asl.l   #5, D0
02789E: 0240 3FE0                andi.w  #$3fe0, D0
0278A2: 0040 8000                ori.w   #$8000, D0
0278A6: 3080                     move.w  D0, (A0)
0278A8: 2052                     movea.l (A2), A0
0278AA: 5492                     addq.l  #2, (A2)
0278AC: 3019                     move.w  (A1)+, D0
0278AE: 48C0                     ext.l   D0
0278B0: 7210                     moveq   #$10, D1
0278B2: D081                     add.l   D1, D0
0278B4: EB80                     asl.l   #5, D0
0278B6: 0240 3FE0                andi.w  #$3fe0, D0
0278BA: 8046                     or.w    D6, D0
0278BC: 3080                     move.w  D0, (A0)
0278BE: 2A7C 0040 0402           movea.l #$400402, A5
0278C4: 200D                     move.l  A5, D0
0278C6: 2A40                     movea.l D0, A5
0278C8: 2055                     movea.l (A5), A0
0278CA: 2A40                     movea.l D0, A5
0278CC: 5495                     addq.l  #2, (A5)
0278CE: 3013                     move.w  (A3), D0
0278D0: 5253                     addq.w  #1, (A3)
0278D2: 3080                     move.w  D0, (A0)
0278D4: 6000 FF72                bra     27848
0278D8: C78D                     exg     D3, A5
0278DA: 4A2D 0067                tst.b   ($67,A5)
0278DE: C78D                     exg     D3, A5
0278E0: 6700 0934                beq     28216
0278E4: 4878 1000                pea     $1000.w
0278E8: 3204                     move.w  D4, D1
0278EA: 48C1                     ext.l   D1
0278EC: 2F01                     move.l  D1, -(A7)
0278EE: 3005                     move.w  D5, D0
0278F0: 48C0                     ext.l   D0
0278F2: 2F00                     move.l  D0, -(A7)
0278F4: 2A43                     movea.l D3, A5
0278F6: 206D 0062                movea.l ($62,A5), A0
0278FA: 2F10                     move.l  (A0), -(A7)
0278FC: 4E94                     jsr     (A4)
0278FE: 4FEF 0010                lea     ($10,A7), A7
027902: 6000 0912                bra     28216
027906: 1029 0001                move.b  ($1,A1), D0
02790A: 4880                     ext.w   D0
02790C: 48C0                     ext.l   D0
02790E: C0FC 000A                mulu.w  #$a, D0
027912: 2040                     movea.l D0, A0
027914: D1FC 0040 0A9C           adda.l  #$400a9c, A0
02791A: 3A10                     move.w  (A0), D5
02791C: E845                     asr.w   #4, D5
02791E: 3828 0002                move.w  ($2,A0), D4
027922: E844                     asr.w   #4, D4
027924: 0644 0010                addi.w  #$10, D4
027928: 3D68 0008 FFF6           move.w  ($8,A0), (-$a,A6)
02792E: 302E FFF6                move.w  (-$a,A6), D0
027932: 48C0                     ext.l   D0
027934: 0080 0001 0001           ori.l   #$10001, D0
02793A: 2D40 FFF2                move.l  D0, (-$e,A6)
02793E: 2A7C 0040 03FA           movea.l #$4003fa, A5
027944: 200D                     move.l  A5, D0
027946: 2A40                     movea.l D0, A5
027948: 2055                     movea.l (A5), A0
02794A: 2A40                     movea.l D0, A5
02794C: 5495                     addq.l  #2, (A5)
02794E: 302E FFF4                move.w  (-$c,A6), D0
027952: 0240 FFFF                andi.w  #$ffff, D0
027956: 3080                     move.w  D0, (A0)
027958: 4BEE FFF2                lea     (-$e,A6), A5
02795C: 3C15                     move.w  (A5), D6
02795E: 2A7C 0040 03FE           movea.l #$4003fe, A5
027964: 200D                     move.l  A5, D0
027966: 2A40                     movea.l D0, A5
027968: 2055                     movea.l (A5), A0
02796A: 2A40                     movea.l D0, A5
02796C: 5495                     addq.l  #2, (A5)
02796E: 3005                     move.w  D5, D0
027970: 48C0                     ext.l   D0
027972: 5180                     subq.l  #8, D0
027974: EB80                     asl.l   #5, D0
027976: 0240 3FE0                andi.w  #$3fe0, D0
02797A: 3080                     move.w  D0, (A0)
02797C: 2052                     movea.l (A2), A0
02797E: 5492                     addq.l  #2, (A2)
027980: 3004                     move.w  D4, D0
027982: EB40                     asl.w   #5, D0
027984: 0240 3FE0                andi.w  #$3fe0, D0
027988: 8046                     or.w    D6, D0
02798A: 3080                     move.w  D0, (A0)
02798C: 2A7C 0040 0402           movea.l #$400402, A5
027992: 200D                     move.l  A5, D0
027994: 2A40                     movea.l D0, A5
027996: 2055                     movea.l (A5), A0
027998: 2A40                     movea.l D0, A5
02799A: 5495                     addq.l  #2, (A5)
02799C: 3013                     move.w  (A3), D0
02799E: 5253                     addq.w  #1, (A3)
0279A0: 3080                     move.w  D0, (A0)
0279A2: 302E FFF6                move.w  (-$a,A6), D0
0279A6: 48C0                     ext.l   D0
0279A8: 0080 0001 0003           ori.l   #$10003, D0
0279AE: 2D40 FFF2                move.l  D0, (-$e,A6)
0279B2: 2A7C 0040 03FA           movea.l #$4003fa, A5
0279B8: 200D                     move.l  A5, D0
0279BA: 2A40                     movea.l D0, A5
0279BC: 2055                     movea.l (A5), A0
0279BE: 2A40                     movea.l D0, A5
0279C0: 5495                     addq.l  #2, (A5)
0279C2: 302E FFF4                move.w  (-$c,A6), D0
0279C6: 0240 FFFF                andi.w  #$ffff, D0
0279CA: 3080                     move.w  D0, (A0)
0279CC: 4BEE FFF2                lea     (-$e,A6), A5
0279D0: 3C15                     move.w  (A5), D6
0279D2: 2A7C 0040 03FE           movea.l #$4003fe, A5
0279D8: 200D                     move.l  A5, D0
0279DA: 2A40                     movea.l D0, A5
0279DC: 2055                     movea.l (A5), A0
0279DE: 2A40                     movea.l D0, A5
0279E0: 5495                     addq.l  #2, (A5)
0279E2: 3005                     move.w  D5, D0
0279E4: EB40                     asl.w   #5, D0
0279E6: 0240 3FE0                andi.w  #$3fe0, D0
0279EA: 3080                     move.w  D0, (A0)
0279EC: 2052                     movea.l (A2), A0
0279EE: 5492                     addq.l  #2, (A2)
0279F0: 3004                     move.w  D4, D0
0279F2: EB40                     asl.w   #5, D0
0279F4: 0240 3FE0                andi.w  #$3fe0, D0
0279F8: 8046                     or.w    D6, D0
0279FA: 3080                     move.w  D0, (A0)
0279FC: 2A7C 0040 0402           movea.l #$400402, A5
027A02: 200D                     move.l  A5, D0
027A04: 2A40                     movea.l D0, A5
027A06: 2055                     movea.l (A5), A0
027A08: 2A40                     movea.l D0, A5
027A0A: 5495                     addq.l  #2, (A5)
027A0C: 3013                     move.w  (A3), D0
027A0E: 5253                     addq.w  #1, (A3)
027A10: 3080                     move.w  D0, (A0)
027A12: 6000 0802                bra     28216
027A16: 1229 0001                move.b  ($1,A1), D1
027A1A: 4881                     ext.w   D1
027A1C: 48C1                     ext.l   D1
027A1E: E581                     asl.l   #2, D1
027A20: 2A7C 0001 F016           movea.l #$1f016, A5
027A26: 2435 1800                move.l  (A5,D1.l), D2
027A2A: 2E08                     move.l  A0, D7
027A2C: 2A42                     movea.l D2, A5
027A2E: 41ED 004E                lea     ($4e,A5), A0
027A32: 2008                     move.l  A0, D0
027A34: CF88                     exg     D7, A0
027A36: 2040                     movea.l D0, A0
027A38: 3A18                     move.w  (A0)+, D5
027A3A: 0645 0018                addi.w  #$18, D5
027A3E: 3810                     move.w  (A0), D4
027A40: 0644 0010                addi.w  #$10, D4
027A44: 70C0                     moveq   #-$40, D0
027A46: B044                     cmp.w   D4, D0
027A48: 6C00 07CC                bge     28216
027A4C: 0C44 0160                cmpi.w  #$160, D4
027A50: 6C00 07C4                bge     28216
027A54: 4878 3800                pea     $3800.w
027A58: 3204                     move.w  D4, D1
027A5A: 48C1                     ext.l   D1
027A5C: 2F01                     move.l  D1, -(A7)
027A5E: 3005                     move.w  D5, D0
027A60: 48C0                     ext.l   D0
027A62: 2F00                     move.l  D0, -(A7)
027A64: 2079 0040 044A           movea.l $40044a.l, A0
027A6A: 2F10                     move.l  (A0), -(A7)
027A6C: 4E94                     jsr     (A4)
027A6E: 4878 3800                pea     $3800.w
027A72: 3204                     move.w  D4, D1
027A74: 48C1                     ext.l   D1
027A76: 2F01                     move.l  D1, -(A7)
027A78: 3005                     move.w  D5, D0
027A7A: 48C0                     ext.l   D0
027A7C: 2F00                     move.l  D0, -(A7)
027A7E: 2079 0040 044E           movea.l $40044e.l, A0
027A84: 2F10                     move.l  (A0), -(A7)
027A86: 4E94                     jsr     (A4)
027A88: 4878 3800                pea     $3800.w
027A8C: 3204                     move.w  D4, D1
027A8E: 48C1                     ext.l   D1
027A90: 2F01                     move.l  D1, -(A7)
027A92: 3005                     move.w  D5, D0
027A94: 48C0                     ext.l   D0
027A96: 2F00                     move.l  D0, -(A7)
027A98: 2079 0040 0452           movea.l $400452.l, A0
027A9E: 2F10                     move.l  (A0), -(A7)
027AA0: 4E94                     jsr     (A4)
027AA2: 4878 3000                pea     $3000.w
027AA6: 3204                     move.w  D4, D1
027AA8: 48C1                     ext.l   D1
027AAA: 2F01                     move.l  D1, -(A7)
027AAC: 3005                     move.w  D5, D0
027AAE: 48C0                     ext.l   D0
027AB0: 2F00                     move.l  D0, -(A7)
027AB2: 2A42                     movea.l D2, A5
027AB4: 206D 0042                movea.l ($42,A5), A0
027AB8: 2F10                     move.l  (A0), -(A7)
027ABA: 4E94                     jsr     (A4)
027ABC: 4FEF 0040                lea     ($40,A7), A7
027AC0: 6000 0754                bra     28216
027AC4: 1229 0001                move.b  ($1,A1), D1
027AC8: 4881                     ext.w   D1
027ACA: 48C1                     ext.l   D1
027ACC: E581                     asl.l   #2, D1
027ACE: 2A7C 0001 F006           movea.l #$1f006, A5
027AD4: 2435 1800                move.l  (A5,D1.l), D2
027AD8: 2E08                     move.l  A0, D7
027ADA: 2A42                     movea.l D2, A5
027ADC: 41ED 0028                lea     ($28,A5), A0
027AE0: 2008                     move.l  A0, D0
027AE2: CF88                     exg     D7, A0
027AE4: 2040                     movea.l D0, A0
027AE6: 3A18                     move.w  (A0)+, D5
027AE8: 0645 0018                addi.w  #$18, D5
027AEC: 3810                     move.w  (A0), D4
027AEE: 0644 0010                addi.w  #$10, D4
027AF2: 70E0                     moveq   #-$20, D0
027AF4: B044                     cmp.w   D4, D0
027AF6: 6C00 071E                bge     28216
027AFA: 0C44 0100                cmpi.w  #$100, D4
027AFE: 6C00 0716                bge     28216
027B02: 4878 2000                pea     $2000.w
027B06: 3204                     move.w  D4, D1
027B08: 48C1                     ext.l   D1
027B0A: 2F01                     move.l  D1, -(A7)
027B0C: 3005                     move.w  D5, D0
027B0E: 48C0                     ext.l   D0
027B10: 2F00                     move.l  D0, -(A7)
027B12: 2A42                     movea.l D2, A5
027B14: 206D 0058                movea.l ($58,A5), A0
027B18: 2F10                     move.l  (A0), -(A7)
027B1A: 4E94                     jsr     (A4)
027B1C: 2E08                     move.l  A0, D7
027B1E: 2A42                     movea.l D2, A5
027B20: 41ED 002C                lea     ($2c,A5), A0
027B24: 2008                     move.l  A0, D0
027B26: CF88                     exg     D7, A0
027B28: 2240                     movea.l D0, A1
027B2A: 4202                     clr.b   D2
027B2C: 4FEF 0010                lea     ($10,A7), A7
027B30: 4A51                     tst.w   (A1)
027B32: 6700 06E2                beq     28216
027B36: 1002                     move.b  D2, D0
027B38: 5202                     addq.b  #1, D2
027B3A: 0C00 0005                cmpi.b  #$5, D0
027B3E: 6C00 06D6                bge     28216
027B42: 3C11                     move.w  (A1), D6
027B44: 0246 8000                andi.w  #$8000, D6
027B48: 3211                     move.w  (A1), D1
027B4A: 700B                     moveq   #$b, D0
027B4C: E061                     asr.w   D0, D1
027B4E: 0241 0007                andi.w  #$7, D1
027B52: 8C41                     or.w    D1, D6
027B54: 2A7C 0040 03FA           movea.l #$4003fa, A5
027B5A: 200D                     move.l  A5, D0
027B5C: 2A40                     movea.l D0, A5
027B5E: 2055                     movea.l (A5), A0
027B60: 2A40                     movea.l D0, A5
027B62: 5495                     addq.l  #2, (A5)
027B64: 3019                     move.w  (A1)+, D0
027B66: 0240 07FF                andi.w  #$7ff, D0
027B6A: 3080                     move.w  D0, (A0)
027B6C: 2A7C 0040 03FE           movea.l #$4003fe, A5
027B72: 200D                     move.l  A5, D0
027B74: 2A40                     movea.l D0, A5
027B76: 2055                     movea.l (A5), A0
027B78: 2A40                     movea.l D0, A5
027B7A: 5495                     addq.l  #2, (A5)
027B7C: 3019                     move.w  (A1)+, D0
027B7E: 48C0                     ext.l   D0
027B80: 7218                     moveq   #$18, D1
027B82: D081                     add.l   D1, D0
027B84: EB80                     asl.l   #5, D0
027B86: 0240 3FE0                andi.w  #$3fe0, D0
027B8A: 0040 8000                ori.w   #$8000, D0
027B8E: 3080                     move.w  D0, (A0)
027B90: 2052                     movea.l (A2), A0
027B92: 5492                     addq.l  #2, (A2)
027B94: 3019                     move.w  (A1)+, D0
027B96: 48C0                     ext.l   D0
027B98: 7210                     moveq   #$10, D1
027B9A: D081                     add.l   D1, D0
027B9C: EB80                     asl.l   #5, D0
027B9E: 0240 3FE0                andi.w  #$3fe0, D0
027BA2: 8046                     or.w    D6, D0
027BA4: 3080                     move.w  D0, (A0)
027BA6: 2A7C 0040 0402           movea.l #$400402, A5
027BAC: 200D                     move.l  A5, D0
027BAE: 2A40                     movea.l D0, A5
027BB0: 2055                     movea.l (A5), A0
027BB2: 2A40                     movea.l D0, A5
027BB4: 5495                     addq.l  #2, (A5)
027BB6: 3013                     move.w  (A3), D0
027BB8: 5253                     addq.w  #1, (A3)
027BBA: 3080                     move.w  D0, (A0)
027BBC: 6000 FF72                bra     27b30
027BC0: 1229 0001                move.b  ($1,A1), D1
027BC4: 4881                     ext.w   D1
027BC6: 48C1                     ext.l   D1
027BC8: E581                     asl.l   #2, D1
027BCA: 2A7C 0001 F07A           movea.l #$1f07a, A5
027BD0: 2275 1800                movea.l (A5,D1.l), A1
027BD4: 4BE9 0028                lea     ($28,A1), A5
027BD8: 204D                     movea.l A5, A0
027BDA: 3A18                     move.w  (A0)+, D5
027BDC: 0645 0018                addi.w  #$18, D5
027BE0: 3810                     move.w  (A0), D4
027BE2: 0644 0010                addi.w  #$10, D4
027BE6: 70D0                     moveq   #-$30, D0
027BE8: B044                     cmp.w   D4, D0
027BEA: 6C00 062A                bge     28216
027BEE: 0C44 0120                cmpi.w  #$120, D4
027BF2: 6C00 0622                bge     28216
027BF6: 4878 3000                pea     $3000.w
027BFA: 3204                     move.w  D4, D1
027BFC: 48C1                     ext.l   D1
027BFE: 2F01                     move.l  D1, -(A7)
027C00: 3005                     move.w  D5, D0
027C02: 48C0                     ext.l   D0
027C04: 2F00                     move.l  D0, -(A7)
027C06: 2069 003A                movea.l ($3a,A1), A0
027C0A: 2F10                     move.l  (A0), -(A7)
027C0C: 4E94                     jsr     (A4)
027C0E: 4FEF 0010                lea     ($10,A7), A7
027C12: 6000 0602                bra     28216
027C16: 1229 0001                move.b  ($1,A1), D1
027C1A: 4881                     ext.w   D1
027C1C: 48C1                     ext.l   D1
027C1E: E581                     asl.l   #2, D1
027C20: 2A7C 0001 F016           movea.l #$1f016, A5
027C26: 2435 1800                move.l  (A5,D1.l), D2
027C2A: 2E08                     move.l  A0, D7
027C2C: 2A42                     movea.l D2, A5
027C2E: 41ED 004E                lea     ($4e,A5), A0
027C32: 2008                     move.l  A0, D0
027C34: CF88                     exg     D7, A0
027C36: 2040                     movea.l D0, A0
027C38: 3A18                     move.w  (A0)+, D5
027C3A: 0645 0018                addi.w  #$18, D5
027C3E: 3810                     move.w  (A0), D4
027C40: 0644 0010                addi.w  #$10, D4
027C44: 70E0                     moveq   #-$20, D0
027C46: B044                     cmp.w   D4, D0
027C48: 6C00 05CC                bge     28216
027C4C: 0C44 0100                cmpi.w  #$100, D4
027C50: 6C00 05C4                bge     28216
027C54: 4878 1800                pea     $1800.w
027C58: 3204                     move.w  D4, D1
027C5A: 48C1                     ext.l   D1
027C5C: 2F01                     move.l  D1, -(A7)
027C5E: 3005                     move.w  D5, D0
027C60: 48C0                     ext.l   D0
027C62: 2F00                     move.l  D0, -(A7)
027C64: 2A42                     movea.l D2, A5
027C66: 206D 0042                movea.l ($42,A5), A0
027C6A: 2F10                     move.l  (A0), -(A7)
027C6C: 4E94                     jsr     (A4)
027C6E: 5145                     subq.w  #8, D5
027C70: 0644 FFC0                addi.w  #-$40, D4
027C74: C58D                     exg     D2, A5
027C76: 0C2D 000D 001F           cmpi.b  #$d, ($1f,A5)
027C7C: C58D                     exg     D2, A5
027C7E: 4FEF 0010                lea     ($10,A7), A7
027C82: 6602                     bne     27c86
027C84: 5844                     addq.w  #4, D4
027C86: 2A7C 0040 03FA           movea.l #$4003fa, A5
027C8C: 200D                     move.l  A5, D0
027C8E: 2A40                     movea.l D0, A5
027C90: 2055                     movea.l (A5), A0
027C92: 2A40                     movea.l D0, A5
027C94: 5495                     addq.l  #2, (A5)
027C96: 30BC 0500                move.w  #$500, (A0)
027C9A: 2A7C 0040 03FE           movea.l #$4003fe, A5
027CA0: 200D                     move.l  A5, D0
027CA2: 2A40                     movea.l D0, A5
027CA4: 2055                     movea.l (A5), A0
027CA6: 2A40                     movea.l D0, A5
027CA8: 5495                     addq.l  #2, (A5)
027CAA: 3005                     move.w  D5, D0
027CAC: EB40                     asl.w   #5, D0
027CAE: 0240 3FE0                andi.w  #$3fe0, D0
027CB2: 0040 8000                ori.w   #$8000, D0
027CB6: 3080                     move.w  D0, (A0)
027CB8: 2012                     move.l  (A2), D0
027CBA: 3204                     move.w  D4, D1
027CBC: EB41                     asl.w   #5, D1
027CBE: 0241 3FE0                andi.w  #$3fe0, D1
027CC2: 0041 0006                ori.w   #$6, D1
027CC6: 2A40                     movea.l D0, A5
027CC8: 3A81                     move.w  D1, (A5)
027CCA: C58D                     exg     D2, A5
027CCC: 0C2D 000D 001F           cmpi.b  #$d, ($1f,A5)
027CD2: C58D                     exg     D2, A5
027CD4: 6606                     bne     27cdc
027CD6: 2A52                     movea.l (A2), A5
027CD8: 0055 8000                ori.w   #$8000, (A5)
027CDC: 5492                     addq.l  #2, (A2)
027CDE: 2A7C 0040 0402           movea.l #$400402, A5
027CE4: 200D                     move.l  A5, D0
027CE6: 2A40                     movea.l D0, A5
027CE8: 2055                     movea.l (A5), A0
027CEA: 2A40                     movea.l D0, A5
027CEC: 5495                     addq.l  #2, (A5)
027CEE: 3013                     move.w  (A3), D0
027CF0: 5253                     addq.w  #1, (A3)
027CF2: 3080                     move.w  D0, (A0)
027CF4: C58D                     exg     D2, A5
027CF6: 0C2D 000D 001F           cmpi.b  #$d, ($1f,A5)
027CFC: C58D                     exg     D2, A5
027CFE: 6604                     bne     27d04
027D00: 5944                     subq.w  #4, D4
027D02: 6002                     bra     27d06
027D04: 5844                     addq.w  #4, D4
027D06: 5045                     addq.w  #8, D5
027D08: 2A7C 0040 03FA           movea.l #$4003fa, A5
027D0E: 200D                     move.l  A5, D0
027D10: 2A40                     movea.l D0, A5
027D12: 2055                     movea.l (A5), A0
027D14: 2A40                     movea.l D0, A5
027D16: 5495                     addq.l  #2, (A5)
027D18: 30BC 0500                move.w  #$500, (A0)
027D1C: 2A7C 0040 03FE           movea.l #$4003fe, A5
027D22: 200D                     move.l  A5, D0
027D24: 2A40                     movea.l D0, A5
027D26: 2055                     movea.l (A5), A0
027D28: 2A40                     movea.l D0, A5
027D2A: 5495                     addq.l  #2, (A5)
027D2C: 3005                     move.w  D5, D0
027D2E: EB40                     asl.w   #5, D0
027D30: 0240 3FE0                andi.w  #$3fe0, D0
027D34: 0040 8000                ori.w   #$8000, D0
027D38: 3080                     move.w  D0, (A0)
027D3A: 2012                     move.l  (A2), D0
027D3C: 3204                     move.w  D4, D1
027D3E: EB41                     asl.w   #5, D1
027D40: 0241 3FE0                andi.w  #$3fe0, D1
027D44: 0041 0006                ori.w   #$6, D1
027D48: 2A40                     movea.l D0, A5
027D4A: 3A81                     move.w  D1, (A5)
027D4C: C58D                     exg     D2, A5
027D4E: 0C2D 000D 001F           cmpi.b  #$d, ($1f,A5)
027D54: C58D                     exg     D2, A5
027D56: 6606                     bne     27d5e
027D58: 2A52                     movea.l (A2), A5
027D5A: 0055 8000                ori.w   #$8000, (A5)
027D5E: 5492                     addq.l  #2, (A2)
027D60: 2A7C 0040 0402           movea.l #$400402, A5
027D66: 200D                     move.l  A5, D0
027D68: 2A40                     movea.l D0, A5
027D6A: 2055                     movea.l (A5), A0
027D6C: 2A40                     movea.l D0, A5
027D6E: 5495                     addq.l  #2, (A5)
027D70: 3013                     move.w  (A3), D0
027D72: 5253                     addq.w  #1, (A3)
027D74: 3080                     move.w  D0, (A0)
027D76: 6000 049E                bra     28216
027D7A: 1229 0001                move.b  ($1,A1), D1
027D7E: 4881                     ext.w   D1
027D80: 48C1                     ext.l   D1
027D82: E581                     asl.l   #2, D1
027D84: 2A7C 0001 F016           movea.l #$1f016, A5
027D8A: 2275 1800                movea.l (A5,D1.l), A1
027D8E: 4BE9 004E                lea     ($4e,A1), A5
027D92: 204D                     movea.l A5, A0
027D94: 3A18                     move.w  (A0)+, D5
027D96: 0645 0018                addi.w  #$18, D5
027D9A: 3810                     move.w  (A0), D4
027D9C: 0644 0010                addi.w  #$10, D4
027DA0: 70E0                     moveq   #-$20, D0
027DA2: B044                     cmp.w   D4, D0
027DA4: 6C00 0470                bge     28216
027DA8: 0C44 0100                cmpi.w  #$100, D4
027DAC: 6C00 0468                bge     28216
027DB0: 4878 3800                pea     $3800.w
027DB4: 3204                     move.w  D4, D1
027DB6: 48C1                     ext.l   D1
027DB8: 2F01                     move.l  D1, -(A7)
027DBA: 3005                     move.w  D5, D0
027DBC: 48C0                     ext.l   D0
027DBE: 2F00                     move.l  D0, -(A7)
027DC0: 2069 0042                movea.l ($42,A1), A0
027DC4: 2F10                     move.l  (A0), -(A7)
027DC6: 4E94                     jsr     (A4)
027DC8: 4FEF 0010                lea     ($10,A7), A7
027DCC: 6000 0448                bra     28216

027DD0: 1229 0001                move.b  ($1,A1), D1     Level 1 flag 4001EA/4001F8 (+1!)
027DD4: 4881                     ext.w   D1
027DD6: 48C1                     ext.l   D1		   B/C
027DD8: E581                     asl.l   #2, D1          2C/30
027DDA: 2A7C 0001 F016           movea.l #$1f016, A5
027DE0: 2275 1800                movea.l (A5,D1.l), A1   400EA4/400E4E  
027DE4: 4BE9 004E                lea     ($4e,A1), A5
027DE8: 204D                     movea.l A5, A0
027DEA: 3A18                     move.w  (A0)+, D5
027DEC: 0645 0017                addi.w  #$17, D5
027DF0: 3810                     move.w  (A0), D4
027DF2: 0644 0010                addi.w  #$10, D4
027DF6: 70C0                     moveq   #-$40, D0
027DF8: B044                     cmp.w   D4, D0
027DFA: 6C00 041A                bge     28216
027DFE: 0C44 0100                cmpi.w  #$100, D4
027E02: 6C00 0412                bge     28216
027E06: 4878 1800                pea     $1800.w
027E0A: 3204                     move.w  D4, D1
027E0C: 48C1                     ext.l   D1
027E0E: 2F01                     move.l  D1, -(A7)
027E10: 3005                     move.w  D5, D0
027E12: 48C0                     ext.l   D0
027E14: 2F00                     move.l  D0, -(A7)
027E16: 2069 0042                movea.l ($42,A1), A0
027E1A: 2F10                     move.l  (A0), -(A7)
027E1C: 4E94                     jsr     (A4)
027E1E: 4FEF 0010                lea     ($10,A7), A7
027E22: 6000 03F2                bra     28216
027E26: 1229 0001                move.b  ($1,A1), D1
027E2A: 4881                     ext.w   D1
027E2C: 48C1                     ext.l   D1
027E2E: E581                     asl.l   #2, D1
027E30: 2A7C 0001 F016           movea.l #$1f016, A5
027E36: 2275 1800                movea.l (A5,D1.l), A1
027E3A: 4BE9 004E                lea     ($4e,A1), A5
027E3E: 204D                     movea.l A5, A0
027E40: 3A18                     move.w  (A0)+, D5
027E42: 0645 0018                addi.w  #$18, D5
027E46: 3810                     move.w  (A0), D4
027E48: 0644 0010                addi.w  #$10, D4
027E4C: 70C0                     moveq   #-$40, D0
027E4E: B044                     cmp.w   D4, D0
027E50: 6C00 03C4                bge     28216
027E54: 0C44 0120                cmpi.w  #$120, D4
027E58: 6C00 03BC                bge     28216
027E5C: 4878 3000                pea     $3000.w
027E60: 3204                     move.w  D4, D1
027E62: 48C1                     ext.l   D1
027E64: 2F01                     move.l  D1, -(A7)
027E66: 3005                     move.w  D5, D0
027E68: 48C0                     ext.l   D0
027E6A: 2F00                     move.l  D0, -(A7)
027E6C: 2069 0042                movea.l ($42,A1), A0
027E70: 2F10                     move.l  (A0), -(A7)
027E72: 4E94                     jsr     (A4)
027E74: 4FEF 0010                lea     ($10,A7), A7
027E78: 6000 039C                bra     28216
027E7C: 1229 0001                move.b  ($1,A1), D1
027E80: 4881                     ext.w   D1
027E82: 48C1                     ext.l   D1
027E84: E981                     asl.l   #4, D1
027E86: 2A7C 0040 1650           movea.l #$401650, A5
027E8C: 204D                     movea.l A5, A0
027E8E: D1C1                     adda.l  D1, A0
027E90: 2248                     movea.l A0, A1
027E92: 4BE9 000C                lea     ($c,A1), A5
027E96: 204D                     movea.l A5, A0
027E98: 3A18                     move.w  (A0)+, D5
027E9A: 0645 0018                addi.w  #$18, D5
027E9E: 3810                     move.w  (A0), D4
027EA0: 0644 0010                addi.w  #$10, D4
027EA4: 70C0                     moveq   #-$40, D0
027EA6: B044                     cmp.w   D4, D0
027EA8: 6C00 036C                bge     28216
027EAC: 0C44 0100                cmpi.w  #$100, D4
027EB0: 6C00 0364                bge     28216
027EB4: 4878 2000                pea     $2000.w
027EB8: 3204                     move.w  D4, D1
027EBA: 48C1                     ext.l   D1
027EBC: 2F01                     move.l  D1, -(A7)
027EBE: 3005                     move.w  D5, D0
027EC0: 48C0                     ext.l   D0
027EC2: 2F00                     move.l  D0, -(A7)
027EC4: 2069 0008                movea.l ($8,A1), A0
027EC8: 2F10                     move.l  (A0), -(A7)
027ECA: 4E94                     jsr     (A4)
027ECC: 4FEF 0010                lea     ($10,A7), A7
027ED0: 6000 0344                bra     28216
027ED4: 1229 0001                move.b  ($1,A1), D1
027ED8: 4881                     ext.w   D1
027EDA: 48C1                     ext.l   D1
027EDC: E581                     asl.l   #2, D1
027EDE: 2A7C 0001 F016           movea.l #$1f016, A5
027EE4: 2435 1800                move.l  (A5,D1.l), D2
027EE8: 2E08                     move.l  A0, D7
027EEA: 2A42                     movea.l D2, A5
027EEC: 41ED 004E                lea     ($4e,A5), A0
027EF0: 2008                     move.l  A0, D0
027EF2: CF88                     exg     D7, A0
027EF4: 2040                     movea.l D0, A0
027EF6: 3A18                     move.w  (A0)+, D5
027EF8: 0645 0018                addi.w  #$18, D5
027EFC: 3810                     move.w  (A0), D4
027EFE: 0644 0010                addi.w  #$10, D4
027F02: 2A42                     movea.l D2, A5
027F04: 202D 0042                move.l  ($42,A5), D0
027F08: 2A42                     movea.l D2, A5
027F0A: 90AD 0046                sub.l   ($46,A5), D0
027F0E: E480                     asr.l   #2, D0
027F10: 3C00                     move.w  D0, D6
027F12: 70C0                     moveq   #-$40, D0
027F14: B044                     cmp.w   D4, D0
027F16: 6C00 02FE                bge     28216
027F1A: 0C44 0140                cmpi.w  #$140, D4
027F1E: 6C00 02F6                bge     28216
027F22: 207C 0002 20EE           movea.l #$220ee, A0
027F28: 2A42                     movea.l D2, A5
027F2A: 202D 0042                move.l  ($42,A5), D0
027F2E: C18D                     exg     D0, A5
027F30: B1D5                     cmpa.l  (A5), A0
027F32: C18D                     exg     D0, A5
027F34: 6306                     bls     27f3c
027F36: 303C 2800                move.w  #$2800, D0
027F3A: 6004                     bra     27f40
027F3C: 303C 3800                move.w  #$3800, D0
027F40: 3200                     move.w  D0, D1
027F42: 48C1                     ext.l   D1
027F44: 2F01                     move.l  D1, -(A7)
027F46: 3004                     move.w  D4, D0
027F48: 48C0                     ext.l   D0
027F4A: 2F00                     move.l  D0, -(A7)
027F4C: 3005                     move.w  D5, D0
027F4E: 48C0                     ext.l   D0
027F50: 2F00                     move.l  D0, -(A7)
027F52: 2A42                     movea.l D2, A5
027F54: 206D 0042                movea.l ($42,A5), A0
027F58: 2F10                     move.l  (A0), -(A7)
027F5A: 4E94                     jsr     (A4)
027F5C: 207C 0002 227A           movea.l #$2227a, A0
027F62: C58D                     exg     D2, A5
027F64: B1ED 0046                cmpa.l  ($46,A5), A0
027F68: C58D                     exg     D2, A5
027F6A: 4FEF 0010                lea     ($10,A7), A7
027F6E: 6600 02A6                bne     28216
027F72: 3206                     move.w  D6, D1
027F74: 48C1                     ext.l   D1
027F76: D281                     add.l   D1, D1
027F78: 2A7C 0002 0F64           movea.l #$20f64, A5
027F7E: 3635 1800                move.w  (A5,D1.l), D3
027F82: 70FF                     moveq   #-$1, D0
027F84: B043                     cmp.w   D3, D0
027F86: 6700 028E                beq     28216
027F8A: 5045                     addq.w  #8, D5
027F8C: 0444 0040                subi.w  #$40, D4
027F90: 3206                     move.w  D6, D1
027F92: 48C1                     ext.l   D1
027F94: 2A7C 0002 0F92           movea.l #$20f92, A5
027F9A: 1235 1800                move.b  (A5,D1.l), D1
027F9E: 4881                     ext.w   D1
027FA0: D841                     add.w   D1, D4
027FA2: 3C03                     move.w  D3, D6
027FA4: 700B                     moveq   #$b, D0
027FA6: E066                     asr.w   D0, D6
027FA8: 0246 0007                andi.w  #$7, D6
027FAC: 0243 07FF                andi.w  #$7ff, D3
027FB0: 4202                     clr.b   D2
027FB2: 2A7C 0040 03FA           movea.l #$4003fa, A5
027FB8: 200D                     move.l  A5, D0
027FBA: 2A40                     movea.l D0, A5
027FBC: 2055                     movea.l (A5), A0
027FBE: 2A40                     movea.l D0, A5
027FC0: 5495                     addq.l  #2, (A5)
027FC2: 3083                     move.w  D3, (A0)
027FC4: 2A7C 0040 03FE           movea.l #$4003fe, A5
027FCA: 200D                     move.l  A5, D0
027FCC: 2A40                     movea.l D0, A5
027FCE: 2055                     movea.l (A5), A0
027FD0: 2A40                     movea.l D0, A5
027FD2: 5495                     addq.l  #2, (A5)
027FD4: 3005                     move.w  D5, D0
027FD6: EB40                     asl.w   #5, D0
027FD8: 0240 3FE0                andi.w  #$3fe0, D0
027FDC: 0040 8000                ori.w   #$8000, D0
027FE0: 3080                     move.w  D0, (A0)
027FE2: 2052                     movea.l (A2), A0
027FE4: 5492                     addq.l  #2, (A2)
027FE6: 3004                     move.w  D4, D0
027FE8: EB40                     asl.w   #5, D0
027FEA: 0240 3FE0                andi.w  #$3fe0, D0
027FEE: 8046                     or.w    D6, D0
027FF0: 3080                     move.w  D0, (A0)
027FF2: 2A7C 0040 0402           movea.l #$400402, A5
027FF8: 200D                     move.l  A5, D0
027FFA: 2A40                     movea.l D0, A5
027FFC: 2055                     movea.l (A5), A0
027FFE: 2A40                     movea.l D0, A5
