010000: 4EF9 0001 00A8           jmp     $100a8.l  Game Reset
010006: 4EF9 0001 0116           jmp     $10116.l  VBlank
01000C: 4EF9 0001 018E           jmp     $1018e.l  IRQ1 (just RTE)
010012: 4EF9 0001 018E           jmp     $1018e.l  IRQ3 (just RTE)
010018: 4EF9 0001 018E           jmp     $1018e.l  Analogue Joystick (just RTE)
01001E: 4EF9 0000 017E           jmp     $17e.l    Game audio
010024: 4EF9 0001 00D8           jmp     $100d8.l  Hardware exceptions
01002A: 0000 0000 0000           -  Alpha test (none) (but there IS one in selftest)
010030: 4EF9 0001 A1E0           jmp     $1a1e0.l  Pf test
010036: 4EF9 0001 9FF4           jmp     $19ff4.l  Mob test
01003C: 4EF9 0001 A286           jmp     $1a286.l  Colour test
010042: 4EF9 0002 8468           jmp     $28468.l  Control reading routine
010048: 4EF9 0001 A798           jmp     $1a798.l  Get specific options
01004E: 0000 0000 0000                             Get specific statistics (none)
010054: 4EF9 0001 ACE0           jmp     $1ace0.l (BANK SWITCH TEST) Eprom/coin init
01005A: 0000 0000 0000               UNUSED
010060: 0000                     PF blank stamp
010062: 0FD1                     PF crosshatch stamp
010064: 0001                     PF solid colour 1
010066: 0002                     PF solid colour 2
010068: 0003                     PF solid colour 3
01006A: 0002                     Start motion object pic number (self test)
01006C: 0000                     Ending motion object pic no.
                                 -----------------
01006E: 01E3                     "Unused"....
010070: E002                     
010072: 0000                     Text display - 0 top, 1 middle right at 90 degrees
010076: 0002 2EC6                Pointer to "Player 1 Start"\00    
010078: 0002 2ED6                Pointer to "Player 2 Start"\00
01007C: 0002 2EE6                Pointer to "TRAKBALL"\00
					   -----------------
010080: 0001 0000                Cartridge configuration block
010084: 0002 FFFE                010000 - 02FFFE
010088: 0000 4000                Size (of each ROM?)
01008C: 0000 0001                RAM/ROM flag (ROM) - spec changed from D23 to D0 as flag?
010090: 0000 0000                Indicates end of block
010094: 0000 0000                
010098: 0000 0000                
01009C: 0000 0000                
0100A0: 0000 0000                
0100A4: 0000 0000  
              
---code start---
0100A8: 13FC 00FF 0040 000E      move.b  #$ff, $40000e.l   <Game reset entry
0100B0: 23CF 0040 0440           move.l  A7, $400440.l     
0100B6: 4279 0084 0000           clr.w   $840000.l         * Playfield special priority colour
0100BC: 33FC FFFF 0040 03B6      move.w  #$ffff, $4003b6.l 
0100C4: 33FC 0080 0040 03AE      move.w  #$80, $4003ae.l  
0100CC: 4EB9 0001 00E0           jsr     $100e0.l          * Playfield test
0100D2: 4EF9 0001 17B2           jmp     $117b2.l

0100D8: 13C0 0040 000E           move.b  D0, $40000e.l     <Hardware exception entry
0100DE: 60D0                     bra     100b0

0100E0: 7000                     moveq   #$0, D0
0100E2: 2F00                     move.l  D0, -(A7)
0100E4: 3039 0040 03AE           move.w  $4003ae.l, D0
0100EA: 2F00                     move.l  D0, -(A7)
0100EC: 4EB9 0000 0254           jsr     $254.l
0100F2: 508F                     addq.l  #8, A7
0100F4: 5279 0040 03B6           addq.w  #1, $4003b6.l
0100FA: 4239 0040 03B2           clr.b   $4003b2.l
010100: 33FC 012C 0040 03B8      move.w  #$12c, $4003b8.l
010108: 4E75                     rts

01010A: 46FC 2000                move    #$2000, SR
01010E: 4E75                     rts

010110: 46FC 2700                move    #$2700, SR
010114: 4E75                     rts

010116: 48E7 C0C0                movem.l D0-D1/A0-A1, -(A7)    < VBLANK
01011A: 4279 008A 0000           clr.w   $8a0000.l      ;vblank acknowledge
010120: 5239 0040 0016           addq.b  #1, $400016.l  
010126: 5239 0040 0014           addq.b  #1, $400014.l  ;timers?
01012C: 4EB9 0002 8788           jsr     $28788.l       ;main routine
010132: BFF9 0040 0440           cmpa.l  $400440.l, A7
010138: 6A06                     bpl     10140
01013A: 23CF 0040 0440           move.l  A7, $400440.l
010140: 4CDF 0303                movem.l (A7)+, D0-D1/A0-A1
010144: 4E73                     rte

010146: 4EB9 0000 0178           jsr     $178.l
01014C: 0C80 FFFF FFFF           cmpi.l  #-$1, D0
010152: 6738                     beq     1018c
010154: 4A79 0040 03B8           tst.w   $4003b8.l
01015A: 670E                     beq     1016a
01015C: 0C40 00FF                cmpi.w  #$ff, D0
010160: 6608                     bne     1016a
010162: 4279 0040 03B8           clr.w   $4003b8.l
010168: 6022                     bra     1018c
01016A: 4A39 0040 03B2           tst.b   $4003b2.l
010170: 6714                     beq     10186
010172: 0240 0007                andi.w  #$7, D0
010176: 660E                     bne     10186
010178: 4239 0040 03B2           clr.b   $4003b2.l
01017E: 4239 0040 03B4           clr.b   $4003b4.l
010184: 6006                     bra     1018c
010186: 5239 0040 03B4           addq.b  #1, $4003b4.l
01018C: 4E75                     rts
01018E: 4E73                     rte
(zeros)
010390: 8CD0                     divu.w  (A0), D6
010392: 227C 0040 19F8           movea.l #$4019f8, A1
010398: 4201                     clr.b   D1
01039A: 4229 0018                clr.b   ($18,A1)
01039E: 2049                     movea.l A1, A0
0103A0: 7038                     moveq   #$38, D0
0103A2: D3C0                     adda.l  D0, A1
0103A4: 1141 0019                move.b  D1, ($19,A0)
0103A8: 5201                     addq.b  #1, D1
0103AA: 0C01 000A                cmpi.b  #$a, D1
0103AE: 66EA                     bne     1039a
0103B0: 227C 0040 1890           movea.l #$401890, A1
0103B6: 4201                     clr.b   D1
0103B8: 4229 0018                clr.b   ($18,A1)
0103BC: 2049                     movea.l A1, A0
0103BE: 7028                     moveq   #$28, D0
0103C0: D3C0                     adda.l  D0, A1
0103C2: 1141 0019                move.b  D1, ($19,A0)
0103C6: 5201                     addq.b  #1, D1
0103C8: 0C01 0009                cmpi.b  #$9, D1
0103CC: 66EA                     bne     103b8
0103CE: 227C 0040 1482           movea.l #$401482, A1
0103D4: 4201                     clr.b   D1
0103D6: 4229 0018                clr.b   ($18,A1)
0103DA: 2049                     movea.l A1, A0
0103DC: 7042                     moveq   #$42, D0
0103DE: D3C0                     adda.l  D0, A1
0103E0: 1141 0019                move.b  D1, ($19,A0)
0103E4: 5201                     addq.b  #1, D1
0103E6: 0C01 0007                cmpi.b  #$7, D1
0103EA: 66EA                     bne     103d6
0103EC: 227C 0040 1302           movea.l #$401302, A1
0103F2: 4201                     clr.b   D1
0103F4: 4229 0018                clr.b   ($18,A1)
0103F8: 2049                     movea.l A1, A0
0103FA: 7060                     moveq   #$60, D0
0103FC: D3C0                     adda.l  D0, A1
0103FE: 1141 0019                move.b  D1, ($19,A0)
010402: 5201                     addq.b  #1, D1
010404: 0C01 0004                cmpi.b  #$4, D1
010408: 66EA                     bne     103f4
01040A: 227C 0040 09A4           movea.l #$4009a4, A1
010410: 4201                     clr.b   D1
010412: 4229 0018                clr.b   ($18,A1)
010416: 2049                     movea.l A1, A0
010418: 707C                     moveq   #$7c, D0
01041A: D3C0                     adda.l  D0, A1
01041C: 1141 0019                move.b  D1, ($19,A0)
010420: 5201                     addq.b  #1, D1
010422: 0C01 0002                cmpi.b  #$2, D1
010426: 66EA                     bne     10412
010428: 227C 0040 0A9C           movea.l #$400a9c, A1
01042E: 4201                     clr.b   D1
010430: 4229 0018                clr.b   ($18,A1)
010434: 7000                     moveq   #$0, D0
010436: 2340 0010                move.l  D0, ($10,A1)
01043A: 2340 000C                move.l  D0, ($c,A1)
01043E: 4229 001F                clr.b   ($1f,A1)
010442: 2049                     movea.l A1, A0
010444: 7056                     moveq   #$56, D0
010446: D3C0                     adda.l  D0, A1
010448: 1141 0019                move.b  D1, ($19,A0)
01044C: 5201                     addq.b  #1, D1
01044E: 0C01 0019                cmpi.b  #$19, D1
010452: 66DC                     bne     10430
010454: 4E75                     rts
010456: 48E7 3000                movem.l D2-D3, -(A7)
01045A: 227C 0040 0018           movea.l #$400018, A1
010460: 4202                     clr.b   D2
010462: 42A9 00BC                clr.l   ($bc,A1)
010466: 4269 00D2                clr.w   ($d2,A1)
01046A: 1342 0019                move.b  D2, ($19,A1)
01046E: 1002                     move.b  D2, D0
010470: 4880                     ext.w   D0
010472: B079 0040 0396           cmp.w   $400396.l, D0
010478: 6C0E                     bge     10488
01047A: 137C 0003 0018           move.b  #$3, ($18,A1)
010480: 137C 0006 001A           move.b  #$6, ($1a,A1)
010486: 6004                     bra     1048c
010488: 4229 0018                clr.b   ($18,A1)
01048C: 2609                     move.l  A1, D3
01048E: 0683 0000 00E2           addi.l  #$e2, D3
010494: 2243                     movea.l D3, A1
010496: 1002                     move.b  D2, D0
010498: 4880                     ext.w   D0
01049A: 48C0                     ext.l   D0
01049C: E580                     asl.l   #2, D0
01049E: 2200                     move.l  D0, D1
0104A0: D080                     add.l   D0, D0
0104A2: D081                     add.l   D1, D0
0104A4: 207C 0040 098C           movea.l #$40098c, A0
0104AA: 11BC 00FF 080A           move.b  #$ff, ($a,A0,D0.l)
0104B0: 5202                     addq.b  #1, D2
0104B2: 0C02 0002                cmpi.b  #$2, D2
0104B6: 66AA                     bne     10462
0104B8: 13FC 00FF 0040 03A4      move.b  #$ff, $4003a4.l
0104C0: 4239 0040 03BA           clr.b   $4003ba.l
0104C6: 4239 0040 03E0           clr.b   $4003e0.l
0104CC: 42B9 0040 0010           clr.l   $400010.l
0104D2: 13FC 0001 0040 03E8      move.b  #$1, $4003e8.l
0104DA: 1039 0040 03DC           move.b  $4003dc.l, D0
0104E0: 0200 0030                andi.b  #$30, D0
0104E4: 13C0 0040 0398           move.b  D0, $400398.l
0104EA: 4200                     clr.b   D0
0104EC: 13C0 0040 0658           move.b  D0, $400658.l
0104F2: 13C0 0040 0656           move.b  D0, $400656.l
0104F8: 13C0 0040 0654           move.b  D0, $400654.l
0104FE: 4CDF 000C                movem.l (A7)+, D2-D3
010502: 4E75                     rts
010504: 4E56 FFE6                link    A6, #-$1a
010508: 48E7 3F3C                movem.l D2-D7/A2-A5, -(A7)
01050C: 247C 0040 0394           movea.l #$400394, A2
010512: 287C 0000 0142           movea.l #$142, A4
010518: 243C 0040 0396           move.l  #$400396, D2
01051E: 4EB9 0001 21A6           jsr     $121a6.l
010524: 4EB9 0002 83C2           jsr     $283c2.l
01052A: 4EB9 0001 0392           jsr     $10392.l
010530: 4200                     clr.b   D0
010532: 13C0 0040 075C           move.b  D0, $40075c.l
010538: 13C0 0040 039C           move.b  D0, $40039c.l
01053E: 4880                     ext.w   D0
010540: 33C0 0040 0000           move.w  D0, $400000.l
010546: 33C0 0040 0002           move.w  D0, $400002.l
01054C: 4200                     clr.b   D0
01054E: 13C0 0040 0008           move.b  D0, $400008.l
010554: 13C0 0040 0006           move.b  D0, $400006.l
01055A: 13C0 0040 000A           move.b  D0, $40000a.l
010560: 7E00                     moveq   #$0, D7
010562: 2247                     movea.l D7, A1
010564: 23C9 0040 0978           move.l  A1, $400978.l
01056A: 2009                     move.l  A1, D0
01056C: 23C0 0040 0974           move.l  D0, $400974.l
010572: 23C0 0040 0970           move.l  D0, $400970.l
010578: 23FC 0040 040C 0040 0408 move.l  #$40040c, $400408.l
010582: 13FC 0001 0040 075E      move.b  #$1, $40075e.l
01058A: 4239 0040 0762           clr.b   $400762.l
010590: 4279 0040 045C           clr.w   $40045c.l
010596: 4239 0040 0760           clr.b   $400760.l
01059C: 4239 0040 045E           clr.b   $40045e.l
0105A2: 13FC 00FF 0040 0460      move.b  #$ff, $400460.l
0105AA: 33FC FFFF 0040 0768      move.w  #$ffff, $400768.l
0105B2: 4239 0040 076A           clr.b   $40076a.l
0105B8: 7202                     moveq   #$2, D1
0105BA: B252                     cmp.w   (A2), D1         Level 3?
0105BC: 6606                     bne     105c4
0105BE: 4EB9 0001 1AC2           jsr     $11ac2.l          Puts some data in ram
0105C4: 7204                     moveq   #$4, D1          Level 5?
0105C6: B252                     cmp.w   (A2), D1
0105C8: 671C                     beq     105e6
0105CA: 2F39 0040 097C           move.l  $40097c.l, -(A7)
0105D0: 2039 0040 097C           move.l  $40097c.l, D0
0105D6: 7219                     moveq   #$19, D1
0105D8: 9081                     sub.l   D1, D0
0105DA: 2F00                     move.l  D0, -(A7)
0105DC: 4EB9 0001 44E4           jsr     $144e4.l
0105E2: 508F                     addq.l  #8, A7
0105E4: 601A                     bra     10600
0105E6: 2F39 0040 097C           move.l  $40097c.l, -(A7)
0105EC: 2039 0040 097C           move.l  $40097c.l, D0
0105F2: 7219                     moveq   #$19, D1
0105F4: D081                     add.l   D1, D0
0105F6: 2F00                     move.l  D0, -(A7)
0105F8: 4EB9 0001 44E4           jsr     $144e4.l
0105FE: 508F                     addq.l  #8, A7
010600: 4EB9 0001 2FD0           jsr     $12fd0.l
010606: 13FC 0001 0040 039A      move.b  #$1, $40039a.l
01060E: 4EB9 0002 8DEA           jsr     $28dea.l
010614: 4EB9 0001 344C           jsr     $1344c.l
01061A: 4A52                     tst.w   (A2)
01061C: 661A                     bne     10638
01061E: 7201                     moveq   #$1, D1
010620: B279 0040 0390           cmp.w   $400390.l, D1   Game in attract mode?
010626: 6710                     beq     10638
010628: 303C FF10                move.w  #$ff10, D0
01062C: 33C0 0040 0000           move.w  D0, $400000.l
010632: 33C0 0040 0002           move.w  D0, $400002.l
010638: 4EB9 0001 6F6C           jsr     $16f6c.l
01063E: 4EB9 0002 59B4           jsr     $259b4.l
010644: 4EB9 0002 6F3E           jsr     $26f3e.l
01064A: 4EB9 0002 6F3E           jsr     $26f3e.l
010650: 13FC 0001 0040 039A      move.b  #$1, $40039a.l
010658: 4EB9 0002 8DEA           jsr     $28dea.l
01065E: 4A52                     tst.w   (A2)
010660: 661C                     bne     1067e
010662: 7201                     moveq   #$1, D1
010664: B279 0040 0390           cmp.w   $400390.l, D1   Game in attract mode?
01066A: 6712                     beq     1067e
01066C: 3039 0040 0000           move.w  $400000.l, D0
010672: 48C0                     ext.l   D0
010674: 2F00                     move.l  D0, -(A7)
010676: 4EB9 0002 6E14           jsr     $26e14.l
01067C: 588F                     addq.l  #4, A7
01067E: 13FC 0001 0040 039A      move.b  #$1, $40039a.l
010686: 4EB9 0002 8DEA           jsr     $28dea.l
01068C: 4878 1C00                pea     $1c00.w
010690: 4879 0002 2B16           pea     $22b16.l
010696: 4E94                     jsr     (A4)
010698: 4878 2000                pea     $2000.w
01069C: 4879 0002 2B22           pea     $22b22.l
0106A2: 4E94                     jsr     (A4)
0106A4: 7202                     moveq   #$2, D1
0106A6: C58D                     exg     D2, A5
0106A8: B255                     cmp.w   (A5), D1
0106AA: C58D                     exg     D2, A5
0106AC: 4FEF 0010                lea     ($10,A7), A7
0106B0: 661C                     bne     106ce
0106B2: 4878 1C00                pea     $1c00.w
0106B6: 4879 0002 2B2E           pea     $22b2e.l
0106BC: 4E94                     jsr     (A4)
0106BE: 4878 2400                pea     $2400.w
0106C2: 4879 0002 2B3A           pea     $22b3a.l
0106C8: 4E94                     jsr     (A4)
0106CA: 4FEF 0010                lea     ($10,A7), A7
0106CE: 2A42                     movea.l D2, A5
0106D0: 102D 0001                move.b  ($1,A5), D0
0106D4: 5300                     subq.b  #1, D0
0106D6: 2A42                     movea.l D2, A5
0106D8: 802D 0001                or.b    ($1,A5), D0
0106DC: 13C0 0040 039C           move.b  D0, $40039c.l
0106E2: 4EB9 0002 8624           jsr     $28624.l
0106E8: 267C 0040 0018           movea.l #$400018, A3
0106EE: 4244                     clr.w   D4
0106F0: 602A                     bra     1071c
0106F2: 2A42                     movea.l D2, A5
0106F4: 3015                     move.w  (A5), D0
0106F6: 48C0                     ext.l   D0
0106F8: 3204                     move.w  D4, D1
0106FA: 48C1                     ext.l   D1
0106FC: D081                     add.l   D1, D0
0106FE: 5380                     subq.l  #1, D0
010700: 2F00                     move.l  D0, -(A7)
010702: 204B                     movea.l A3, A0
010704: 2E0B                     move.l  A3, D7
010706: 0687 0000 00E2           addi.l  #$e2, D7
01070C: 2647                     movea.l D7, A3
01070E: 4868 006A                pea     ($6a,A0)
010712: 4EB9 0002 86EE           jsr     $286ee.l
010718: 508F                     addq.l  #8, A7
01071A: 5244                     addq.w  #1, D4
01071C: C58D                     exg     D2, A5
01071E: B855                     cmp.w   (A5), D4
010720: C58D                     exg     D2, A5
010722: 66CE                     bne     106f2
010724: 4EB9 0002 8DEA           jsr     $28dea.l
01072A: 3012                     move.w  (A2), D0
01072C: 48C0                     ext.l   D0
01072E: 2F00                     move.l  D0, -(A7)
010730: 4EB9 0002 6B2A           jsr     $26b2a.l
010736: 4A52                     tst.w   (A2)
010738: 588F                     addq.l  #4, A7
01073A: 6610                     bne     1074c
01073C: 2079 0001 EF7A           movea.l $1ef7a.l, A0
010742: 4850                     pea     (A0)
010744: 4EB9 0001 58AC           jsr     $158ac.l
01074A: 588F                     addq.l  #4, A7
01074C: 4A52                     tst.w   (A2)
01074E: 664C                     bne     1079c
010750: 7201                     moveq   #$1, D1
010752: B279 0040 0390           cmp.w   $400390.l, D1   Game in attract mode?
010758: 6742                     beq     1079c
01075A: 4A79 0040 0000           tst.w   $400000.l
010760: 673A                     beq     1079c
010762: 72E0                     moveq   #-$20, D1
010764: B279 0040 0000           cmp.w   $400000.l, D1
01076A: 6F04                     ble     10770
01076C: 7204                     moveq   #$4, D1
01076E: 6002                     bra     10772
010770: 7202                     moveq   #$2, D1
010772: 1001                     move.b  D1, D0
010774: 4880                     ext.w   D0
010776: D179 0040 0000           add.w   D0, $400000.l
01077C: 1001                     move.b  D1, D0
01077E: 4880                     ext.w   D0
010780: 48C0                     ext.l   D0
010782: 2F00                     move.l  D0, -(A7)
010784: 4EB9 0002 6E14           jsr     $26e14.l
01078A: 13FC 0001 0040 039A      move.b  #$1, $40039a.l
010792: 4EB9 0002 8DEA           jsr     $28dea.l
010798: 588F                     addq.l  #4, A7
01079A: 60BE                     bra     1075a
01079C: 7201                     moveq   #$1, D1
01079E: B279 0040 0390           cmp.w   $400390.l, D1  Game in attract mode?
0107A4: 6700 031A                beq     10ac0
0107A8: 7202                     moveq   #$2, D1
0107AA: C58D                     exg     D2, A5
0107AC: B255                     cmp.w   (A5), D1
0107AE: C58D                     exg     D2, A5
0107B0: 6600 0176                bne     10928
0107B4: 0C39 0002 0040 03E0      cmpi.b  #$2, $4003e0.l
0107BC: 6600 016A                bne     10928
0107C0: 0C39 00FF 0040 03A4      cmpi.b  #-$1, $4003a4.l
0107C8: 6700 015E                beq     10928
0107CC: 4A39 0040 03A4           tst.b   $4003a4.l
0107D2: 6708                     beq     107dc
0107D4: 203C 0000 2C00           move.l  #$2c00, D0
0107DA: 6006                     bra     107e2
0107DC: 203C 0000 2800           move.l  #$2800, D0
0107E2: 3800                     move.w  D0, D4
0107E4: 4A39 0040 03A4           tst.b   $4003a4.l
0107EA: 6708                     beq     107f4
0107EC: 223C 0002 2B5E           move.l  #$22b5e, D1
0107F2: 6006                     bra     107fa
0107F4: 223C 0002 2B46           move.l  #$22b46, D1
0107FA: 4878 005A                pea     $5a.w
0107FE: 3004                     move.w  D4, D0
010800: 48C0                     ext.l   D0
010802: 2F00                     move.l  D0, -(A7)
010804: 2F01                     move.l  D1, -(A7)
010806: 4E94                     jsr     (A4)
010808: 7605                     moveq   #$5, D3
01080A: 3004                     move.w  D4, D0
01080C: 48C0                     ext.l   D0
01080E: 2F00                     move.l  D0, -(A7)
010810: 4878 0001                pea     $1.w
010814: 4878 0003                pea     $3.w
010818: 1039 0040 03A4           move.b  $4003a4.l, D0
01081E: 4880                     ext.w   D0
010820: 48C0                     ext.l   D0
010822: 207C 0001 D362           movea.l #$1d362, A0
010828: 1230 0800                move.b  (A0,D0.l), D1
01082C: 4881                     ext.w   D1
01082E: 48C1                     ext.l   D1
010830: 2F01                     move.l  D1, -(A7)
010832: 4878 0002                pea     $2.w
010836: 1003                     move.b  D3, D0
010838: 4880                     ext.w   D0
01083A: 48C0                     ext.l   D0
01083C: 2F00                     move.l  D0, -(A7)
01083E: 4EB9 0002 8EB2           jsr     $28eb2.l
010844: 4878 003C                pea     $3c.w
010848: 4EB9 0002 8DB8           jsr     $28db8.l
01084E: 4FEF 0028                lea     ($28,A7), A7
010852: 4A03                     tst.b   D3
010854: 6F00 00A0                ble     108f6
010858: 5303                     subq.b  #1, D3
01085A: 1039 0040 03A4           move.b  $4003a4.l, D0
010860: 4880                     ext.w   D0
010862: 48C0                     ext.l   D0
010864: E580                     asl.l   #2, D0
010866: 207C 0001 EFF6           movea.l #$1eff6, A0
01086C: 2070 0800                movea.l (A0,D0.l), A0
010870: 5268 006A                addq.w  #1, ($6a,A0)
010874: 3004                     move.w  D4, D0
010876: 48C0                     ext.l   D0
010878: 2F00                     move.l  D0, -(A7)
01087A: 4878 0001                pea     $1.w
01087E: 4878 0003                pea     $3.w
010882: 1039 0040 03A4           move.b  $4003a4.l, D0
010888: 4880                     ext.w   D0
01088A: 48C0                     ext.l   D0
01088C: 207C 0001 D362           movea.l #$1d362, A0
010892: 1230 0800                move.b  (A0,D0.l), D1
010896: 4881                     ext.w   D1
010898: 48C1                     ext.l   D1
01089A: 2F01                     move.l  D1, -(A7)
01089C: 4878 0002                pea     $2.w
0108A0: 1003                     move.b  D3, D0
0108A2: 4880                     ext.w   D0
0108A4: 48C0                     ext.l   D0
0108A6: 2F00                     move.l  D0, -(A7)
0108A8: 4EB9 0002 8EB2           jsr     $28eb2.l
0108AE: 2A42                     movea.l D2, A5
0108B0: 3015                     move.w  (A5), D0
0108B2: 48C0                     ext.l   D0
0108B4: 1239 0040 03A4           move.b  $4003a4.l, D1
0108BA: 4881                     ext.w   D1
0108BC: 48C1                     ext.l   D1
0108BE: D081                     add.l   D1, D0
0108C0: 5380                     subq.l  #1, D0
0108C2: 2F00                     move.l  D0, -(A7)
0108C4: 1039 0040 03A4           move.b  $4003a4.l, D0
0108CA: 4880                     ext.w   D0
0108CC: 48C0                     ext.l   D0
0108CE: E580                     asl.l   #2, D0
0108D0: 207C 0001 EFF6           movea.l #$1eff6, A0
0108D6: 2070 0800                movea.l (A0,D0.l), A0
0108DA: 4868 006A                pea     ($6a,A0)
0108DE: 4EB9 0002 86EE           jsr     $286ee.l
0108E4: 4878 0014                pea     $14.w
0108E8: 4EB9 0002 8DB8           jsr     $28db8.l
0108EE: 4FEF 0024                lea     ($24,A7), A7
0108F2: 6000 FF5E                bra     10852
0108F6: 4878 001E                pea     $1e.w
0108FA: 4EB9 0002 8DB8           jsr     $28db8.l
010900: 4A39 0040 03A4           tst.b   $4003a4.l
010906: 588F                     addq.l  #4, A7
010908: 6708                     beq     10912
01090A: 203C 0002 2B5E           move.l  #$22b5e, D0
010910: 6006                     bra     10918
010912: 203C 0002 2B46           move.l  #$22b46, D0
010918: 2F00                     move.l  D0, -(A7)
01091A: 4EB9 0000 0118           jsr     $118.l
010920: 4EB9 0002 83C2           jsr     $283c2.l
010926: 588F                     addq.l  #4, A7
010928: 7202                     moveq   #$2, D1
01092A: B252                     cmp.w   (A2), D1
01092C: 6F10                     ble     1093e
01092E: 4878 3000                pea     $3000.w
010932: 4879 0002 291E           pea     $2291e.l
010938: 4E94                     jsr     (A4)
01093A: 508F                     addq.l  #8, A7
01093C: 600E                     bra     1094c
01093E: 4878 3000                pea     $3000.w
010942: 4879 0002 2942           pea     $22942.l
010948: 4E94                     jsr     (A4)
01094A: 508F                     addq.l  #8, A7
01094C: 4878 3000                pea     $3000.w
010950: 3012                     move.w  (A2), D0
010952: 48C0                     ext.l   D0
010954: E580                     asl.l   #2, D0
010956: 207C 0001 F15E           movea.l #$1f15e, A0
01095C: 2F30 0800                move.l  (A0,D0.l), -(A7)
010960: 4E94                     jsr     (A4)
010962: 4878 3400                pea     $3400.w
010966: 3012                     move.w  (A2), D0
010968: 48C0                     ext.l   D0
01096A: E580                     asl.l   #2, D0
01096C: 207C 0001 F176           movea.l #$1f176, A0
010972: 2F30 0800                move.l  (A0,D0.l), -(A7)
010976: 4E94                     jsr     (A4)
010978: 3012                     move.w  (A2), D0   ---- gets level & difficulty 
01097A: 48C0                     ext.l   D0              to add time at start
01097C: 2240                     movea.l D0, A1
01097E: 3239 0040 03DC           move.w  $4003dc.l, D1
010984: 48C1                     ext.l   D1
010986: 7007                     moveq   #$7, D0
010988: C280                     and.l   D0, D1
01098A: 2001                     move.l  D1, D0
01098C: 207C 0001 F1AC           movea.l #$1f1ac, A0
010992: 1030 0800                move.b  (A0,D0.l), D0
010996: 4880                     ext.w   D0
010998: 48C0                     ext.l   D0
01099A: E580                     asl.l   #2, D0
01099C: 207C 0001 F1B4           movea.l #$1f1b4, A0
0109A2: D3F0 0800                adda.l  (A0,D0.l), A1
0109A6: 1611                     move.b  (A1), D3
0109A8: 4878 3400                pea     $3400.w
0109AC: 4878 0002                pea     $2.w
0109B0: 4878 0009                pea     $9.w
0109B4: 4878 001D                pea     $1d.w
0109B8: 42A7                     clr.l   -(A7)
0109BA: 1003                     move.b  D3, D0
0109BC: 4880                     ext.w   D0
0109BE: 48C0                     ext.l   D0
0109C0: 2F00                     move.l  D0, -(A7)
0109C2: 4EB9 0002 8EB2           jsr     $28eb2.l
0109C8: 4878 003C                pea     $3c.w
0109CC: 4EB9 0002 8DB8           jsr     $28db8.l
0109D2: 1A03                     move.b  D3, D5
0109D4: 4FEF 002C                lea     ($2c,A7), A7
0109D8: 4A03                     tst.b   D3
0109DA: 6F00 007C                ble     10a58
0109DE: 5B03                     subq.b  #5, D3
0109E0: 4878 3400                pea     $3400.w
0109E4: 4878 0002                pea     $2.w
0109E8: 4878 0009                pea     $9.w
0109EC: 4878 001D                pea     $1d.w
0109F0: 42A7                     clr.l   -(A7)
0109F2: 1003                     move.b  D3, D0
0109F4: 4880                     ext.w   D0
0109F6: 48C0                     ext.l   D0
0109F8: 2F00                     move.l  D0, -(A7)
0109FA: 4EB9 0002 8EB2           jsr     $28eb2.l
010A00: 4244                     clr.w   D4
010A02: 4FEF 0018                lea     ($18,A7), A7
010A06: 603A                     bra     10a42
010A08: 3004                     move.w  D4, D0
010A0A: 48C0                     ext.l   D0
010A0C: E580                     asl.l   #2, D0
010A0E: 207C 0001 EFF6           movea.l #$1eff6, A0
010A14: 2670 0800                movea.l (A0,D0.l), A3
010A18: 0C2B 0001 0018           cmpi.b  #$1, ($18,A3)
010A1E: 6620                     bne     10a40
010A20: 5A6B 006A                addq.w  #5, ($6a,A3)
010A24: 2A42                     movea.l D2, A5
010A26: 3015                     move.w  (A5), D0
010A28: 48C0                     ext.l   D0
010A2A: 3204                     move.w  D4, D1
010A2C: 48C1                     ext.l   D1
010A2E: D081                     add.l   D1, D0
010A30: 5380                     subq.l  #1, D0
010A32: 2F00                     move.l  D0, -(A7)
010A34: 486B 006A                pea     ($6a,A3)
010A38: 4EB9 0002 86EE           jsr     $286ee.l
010A3E: 508F                     addq.l  #8, A7
010A40: 5244                     addq.w  #1, D4
010A42: C58D                     exg     D2, A5
010A44: B855                     cmp.w   (A5), D4
010A46: C58D                     exg     D2, A5
010A48: 66BE                     bne     10a08
010A4A: 4878 000A                pea     $a.w
010A4E: 4EB9 0002 8DB8           jsr     $28db8.l
010A54: 588F                     addq.l  #4, A7
010A56: 6080                     bra     109d8
010A58: 703C                     moveq   #$3c, D0
010A5A: 1205                     move.b  D5, D1
010A5C: 4881                     ext.w   D1
010A5E: 48C1                     ext.l   D1
010A60: 9081                     sub.l   D1, D0
010A62: 2F00                     move.l  D0, -(A7)
010A64: 4EB9 0002 8DB8           jsr     $28db8.l
010A6A: 7202                     moveq   #$2, D1
010A6C: B252                     cmp.w   (A2), D1         Check level 1 or 2
010A6E: 588F                     addq.l  #4, A7
010A70: 6F10                     ble     10a82
010A72: 4879 0002 291E           pea     $2291e.l         "time to finish" (level 1,2)
010A78: 4EB9 0000 0118           jsr     $118.l
010A7E: 588F                     addq.l  #4, A7
010A80: 600E                     bra     10a90
010A82: 4879 0002 2942           pea     $22942.l         "extra time for " (level 3,4,5,6)
010A88: 4EB9 0000 0118           jsr     $118.l
010A8E: 588F                     addq.l  #4, A7
010A90: 3012                     move.w  (A2), D0
010A92: 48C0                     ext.l   D0
010A94: E580                     asl.l   #2, D0
010A96: 207C 0001 F15E           movea.l #$1f15e, A0      Pointers to race names+box
010A9C: 2F30 0800                move.l  (A0,D0.l), -(A7)
010AA0: 4EB9 0000 0118           jsr     $118.l
010AA6: 3012                     move.w  (A2), D0
010AA8: 48C0                     ext.l   D0
010AAA: E580                     asl.l   #2, D0
010AAC: 207C 0001 F176           movea.l #$1f176, A0      Pointers to just names (dif colour)
010AB2: 2F30 0800                move.l  (A0,D0.l), -(A7)
010AB6: 4EB9 0000 0118           jsr     $118.l
010ABC: 508F                     addq.l  #8, A7
010ABE: 6008                     bra     10ac8
010AC0: 33FC 003C 0040 0082      move.w  #$3c, $400082.l
010AC8: 7202                     moveq   #$2, D1
010ACA: C58D                     exg     D2, A5
010ACC: B255                     cmp.w   (A5), D1
010ACE: C58D                     exg     D2, A5
010AD0: 6600 042E                bne     10f00
010AD4: 4A39 0040 0398           tst.b   $400398.l
010ADA: 6700 0424                beq     10f00
010ADE: 7201                     moveq   #$1, D1
010AE0: B252                     cmp.w   (A2), D1
010AE2: 6C00 041C                bge     10f00
010AE6: 267C 0040 0018           movea.l #$400018, A3
010AEC: 4200                     clr.b   D0
010AEE: 4244                     clr.w   D4
010AF0: 4A2B 0018                tst.b   ($18,A3)
010AF4: 6604                     bne     10afa
010AF6: 7001                     moveq   #$1, D0
010AF8: 6012                     bra     10b0c
010AFA: 2E0B                     move.l  A3, D7
010AFC: 0687 0000 00E2           addi.l  #$e2, D7
010B02: 2647                     movea.l D7, A3
010B04: 5244                     addq.w  #1, D4
010B06: 7202                     moveq   #$2, D1
010B08: B244                     cmp.w   D4, D1
010B0A: 66E4                     bne     10af0
010B0C: 4A00                     tst.b   D0
010B0E: 6700 03F0                beq     10f00
010B12: 4239 0040 0398           clr.b   $400398.l
010B18: 7201                     moveq   #$1, D1
010B1A: 102B 0019                move.b  ($19,A3), D0
010B1E: 4880                     ext.w   D0
010B20: 48C0                     ext.l   D0
010B22: 9280                     sub.l   D0, D1
010B24: 2001                     move.l  D1, D0
010B26: E580                     asl.l   #2, D0
010B28: 207C 0001 EFF6           movea.l #$1eff6, A0
010B2E: 2070 0800                movea.l (A0,D0.l), A0
010B32: 3C28 006A                move.w  ($6a,A0), D6
010B36: 7263                     moveq   #$63, D1
010B38: B246                     cmp.w   D6, D1
010B3A: 6C02                     bge     10b3e
010B3C: 7C63                     moveq   #$63, D6
010B3E: 4878 3400                pea     $3400.w
010B42: 4879 0002 2DF2           pea     $22df2.l "press start 1 to go on alone"
010B48: 4E94                     jsr     (A4)
010B4A: 4A2B 0019                tst.b   ($19,A3)
010B4E: 508F                     addq.l  #8, A7
010B50: 672C                     beq     10b7e
010B52: 7612                     moveq   #$12, D3
010B54: 2D7C 0002 2E46 FFFC      move.l  #$22e46, (-$4,A6)
010B5C: 2D7C 0002 2E22 FFE6      move.l  #$22e22, (-$1a,A6)
010B64: 2D7C 0002 2E3A FFEA      move.l  #$22e3a, (-$16,A6)
010B6C: 2D7C 0002 2E6A FFF2      move.l  #$22e6a, (-$e,A6)
010B74: 2D7C 0002 2E82 FFEE      move.l  #$22e82, (-$12,A6)
010B7C: 602A                     bra     10ba8
010B7E: 7606                     moveq   #$6, D3
010B80: 2D7C 0002 2E52 FFFC      move.l  #$22e52, (-$4,A6)
010B88: 2D7C 0002 2E16 FFE6      move.l  #$22e16, (-$1a,A6)
010B90: 2D7C 0002 2E2E FFEA      move.l  #$22e2e, (-$16,A6)
010B98: 2D7C 0002 2E5E FFF2      move.l  #$22e5e, (-$e,A6)
010BA0: 2D7C 0002 2E76 FFEE      move.l  #$22e76, (-$12,A6)
010BA8: 4878 3400                pea     $3400.w
010BAC: 4878 000B                pea     $b.w
010BB0: 1003                     move.b  D3, D0
010BB2: 4880                     ext.w   D0
010BB4: 48C0                     ext.l   D0
010BB6: 2F00                     move.l  D0, -(A7)
010BB8: 4879 0002 2EB2           pea     $22eb2.l "        " 
010BBE: 4EB9 0002 86B0           jsr     $286b0.l
010BC4: 4878 3400                pea     $3400.w
010BC8: 2F2E FFFC                move.l  (-$4,A6), -(A7)
010BCC: 4E94                     jsr     (A4)
010BCE: 4878 3400                pea     $3400.w
010BD2: 4878 000D                pea     $d.w
010BD6: 1003                     move.b  D3, D0
010BD8: 4880                     ext.w   D0
010BDA: 48C0                     ext.l   D0
010BDC: 2F00                     move.l  D0, -(A7)
010BDE: 4879 0002 2EB2           pea     $22eb2.l  "      "
010BE4: 4EB9 0002 86B0           jsr     $286b0.l
010BEA: 4878 3400                pea     $3400.w
010BEE: 4878 000F                pea     $f.w
010BF2: 1003                     move.b  D3, D0
010BF4: 4880                     ext.w   D0
010BF6: 48C0                     ext.l   D0
010BF8: 2F00                     move.l  D0, -(A7)
010BFA: 4879 0002 2EB6           pea     $22eb6.l  "to" 
010C00: 4EB9 0002 86B0           jsr     $286b0.l
010C06: 4878 3400                pea     $3400.w
010C0A: 4878 0010                pea     $10.w
010C0E: 1003                     move.b  D3, D0
010C10: 4880                     ext.w   D0
010C12: 48C0                     ext.l   D0
010C14: 2F00                     move.l  D0, -(A7)
010C16: 4879 0002 2EBA           pea     $22eba.l  "continue race"
010C1C: 4EB9 0002 86B0           jsr     $286b0.l
010C22: 4878 3400                pea     $3400.w
010C26: 4878 0011                pea     $11.w
010C2A: 1003                     move.b  D3, D0
010C2C: 4880                     ext.w   D0
010C2E: 48C0                     ext.l   D0
010C30: 2F00                     move.l  D0, -(A7)
010C32: 4879 0002 2EBE           pea     $22ebe.l  "with"
010C38: 4EB9 0002 86B0           jsr     $286b0.l
010C3E: 4878 3400                pea     $3400.w
010C42: 4878 0012                pea     $12.w
010C46: 1003                     move.b  D3, D0
010C48: 4880                     ext.w   D0
010C4A: 48C0                     ext.l   D0
010C4C: 2F00                     move.l  D0, -(A7)
010C4E: 4879 0002 2EB2           pea     $22eb2.l  "       "
010C54: 4EB9 0002 86B0           jsr     $286b0.l
010C5A: 4878 3400                pea     $3400.w
010C5E: 4878 0013                pea     $13.w
010C62: 1003                     move.b  D3, D0
010C64: 4880                     ext.w   D0
010C66: 48C0                     ext.l   D0
010C68: 2F00                     move.l  D0, -(A7)
010C6A: 4879 0002 2EB2           pea     $22eb2.l  "       "
010C70: 4EB9 0002 86B0           jsr     $286b0.l
010C76: 4878 3400                pea     $3400.w
010C7A: 4878 0014                pea     $14.w
010C7E: 1003                     move.b  D3, D0
010C80: 4880                     ext.w   D0
010C82: 48C0                     ext.l   D0
010C84: 2F00                     move.l  D0, -(A7)
010C86: 4879 0002 2EC2           pea     $22ec2.l   "    sec"
010C8C: 4EB9 0002 86B0           jsr     $286b0.l
010C92: 4878 3000                pea     $3000.w
010C96: 4878 0002                pea     $2.w
010C9A: 4878 0013                pea     $13.w
010C9E: 1003                     move.b  D3, D0
010CA0: 4880                     ext.w   D0
010CA2: 48C0                     ext.l   D0
010CA4: 5E80                     addq.l  #7, D0
010CA6: 2F00                     move.l  D0, -(A7)
010CA8: 4878 0001                pea     $1.w
010CAC: 3206                     move.w  D6, D1
010CAE: 48C1                     ext.l   D1
010CB0: 2F01                     move.l  D1, -(A7)
010CB2: 4EB9 0002 8EB2           jsr     $28eb2.l
010CB8: 4878 3400                pea     $3400.w
010CBC: 4878 0015                pea     $15.w
010CC0: 1003                     move.b  D3, D0
010CC2: 4880                     ext.w   D0
010CC4: 48C0                     ext.l   D0
010CC6: 2F00                     move.l  D0, -(A7)
010CC8: 4879 0002 2EB2           pea     $22eb2.l    "         "
010CCE: 4EB9 0002 86B0           jsr     $286b0.l
010CD4: 33FC 000F 0040 039E      move.w  #$f, $40039e.l
010CDC: 13FC 0009 0040 03A0      move.b  #$9, $4003a0.l
010CE4: 13FC 0005 0040 03A2      move.b  #$5, $4003a2.l
010CEC: 4203                     clr.b   D3
010CEE: 3D79 0040 03EA FFFA      move.w  $4003ea.l, (-$6,A6)
010CF6: 7827                     moveq   #$27, D4
010CF8: 4EB9 0000 0236           jsr     $236.l
010CFE: 3D40 FFF8                move.w  D0, (-$8,A6)
010D02: 3D6E FFF8 FFF6           move.w  (-$8,A6), (-$a,A6)
010D08: 3239 0040 03DC           move.w  $4003dc.l, D1
010D0E: 48C1                     ext.l   D1
010D10: 0281 0000 3000           andi.l  #$3000, D1
010D16: 0C81 0000 1000           cmpi.l  #$1000, D1
010D1C: 4FEF 00B0                lea     ($b0,A7), A7
010D20: 660E                     bne     10d30
010D22: 322E FFF6                move.w  (-$a,A6), D1
010D26: 48C1                     ext.l   D1
010D28: 5281                     addq.l  #1, D1
010D2A: E281                     asr.l   #1, D1
010D2C: 3D41 FFF6                move.w  D1, (-$a,A6)
010D30: 4239 0040 03AC           clr.b   $4003ac.l
010D36: 3039 0040 03EA           move.w  $4003ea.l, D0
010D3C: C1EE FFF8                muls.w  (-$8,A6), D0
010D40: 81FC 000C                divs.w  #$c, D0
010D44: 3A00                     move.w  D0, D5
010D46: 9A6E FFF6                sub.w   (-$a,A6), D5
010D4A: 4A45                     tst.w   D5
010D4C: 6C00 000C                bge     10d5a
010D50: 72FF                     moveq   #-$1, D1
010D52: B279 0040 03EA           cmp.w   $4003ea.l, D1
010D58: 6610                     bne     10d6a
010D5A: 4879 0000 0067           pea     $67.l
010D60: 4EB9 0001 58AC           jsr     $158ac.l
010D66: 588F                     addq.l  #4, A7
010D68: 600E                     bra     10d78
010D6A: 4879 0000 0065           pea     $65.l
010D70: 4EB9 0001 58AC           jsr     $158ac.l
010D76: 588F                     addq.l  #4, A7
010D78: 72FF                     moveq   #-$1, D1
010D7A: B279 0040 039E           cmp.w   $40039e.l, D1
010D80: 6700 010C                beq     10e8e
010D84: 4A03                     tst.b   D3
010D86: 6600 0106                bne     10e8e
010D8A: 4EB9 0002 8DEA           jsr     $28dea.l
010D90: 3039 0040 03EA           move.w  $4003ea.l, D0
010D96: C1EE FFF8                muls.w  (-$8,A6), D0
010D9A: 81FC 000C                divs.w  #$c, D0
010D9E: 3A00                     move.w  D0, D5
010DA0: 9A6E FFF6                sub.w   (-$a,A6), D5
010DA4: 4A45                     tst.w   D5
010DA6: 6C00 000C                bge     10db4
010DAA: 72FF                     moveq   #-$1, D1
010DAC: B279 0040 03EA           cmp.w   $4003ea.l, D1
010DB2: 6608                     bne     10dbc
010DB4: 2D6E FFE6 FFFC           move.l  (-$1a,A6), (-$4,A6)
010DBA: 6014                     bra     10dd0
010DBC: 72FF                     moveq   #-$1, D1
010DBE: B245                     cmp.w   D5, D1
010DC0: 6608                     bne     10dca
010DC2: 2D6E FFEA FFFC           move.l  (-$16,A6), (-$4,A6)
010DC8: 6006                     bra     10dd0
010DCA: 2D6E FFEE FFFC           move.l  (-$12,A6), (-$4,A6)
010DD0: 5244                     addq.w  #1, D4
010DD2: 7228                     moveq   #$28, D1
010DD4: B244                     cmp.w   D4, D1
010DD6: 660E                     bne     10de6
010DD8: 4878 3000                pea     $3000.w
010DDC: 2F2E FFFC                move.l  (-$4,A6), -(A7)
010DE0: 4E94                     jsr     (A4)
010DE2: 508F                     addq.l  #8, A7
010DE4: 6014                     bra     10dfa
010DE6: 7250                     moveq   #$50, D1
010DE8: B244                     cmp.w   D4, D1
010DEA: 660E                     bne     10dfa
010DEC: 4878 3000                pea     $3000.w
010DF0: 2F2E FFF2                move.l  (-$e,A6), -(A7)
010DF4: 4E94                     jsr     (A4)
010DF6: 4244                     clr.w   D4
010DF8: 508F                     addq.l  #8, A7
010DFA: 0839 0001 0040 03AC      btst    #$1, $4003ac.l
010E02: 6600 0010                bne     10e14
010E06: 3E2E FFFA                move.w  (-$6,A6), D7
010E0A: BE79 0040 03EA           cmp.w   $4003ea.l, D7
010E10: 6700 0068                beq     10e7a
010E14: 0239 00FD 0040 03AC      andi.b  #$fd, $4003ac.l
010E1C: 302E FFF6                move.w  (-$a,A6), D0
010E20: 48C0                     ext.l   D0
010E22: 2F00                     move.l  D0, -(A7)
010E24: 4EB9 0000 0230           jsr     $230.l
010E2A: 1600                     move.b  D0, D3
010E2C: 3E2E FFFA                move.w  (-$6,A6), D7
010E30: BE79 0040 03EA           cmp.w   $4003ea.l, D7
010E36: 588F                     addq.l  #4, A7
010E38: 6700 FF3E                beq     10d78
010E3C: 3D79 0040 03EA FFFA      move.w  $4003ea.l, (-$6,A6)
010E44: 7827                     moveq   #$27, D4
010E46: 4A45                     tst.w   D5
010E48: 6C00 000C                bge     10e56
010E4C: 72FF                     moveq   #-$1, D1
010E4E: B279 0040 03EA           cmp.w   $4003ea.l, D1
010E54: 6612                     bne     10e68
010E56: 4879 0000 0067           pea     $67.l
010E5C: 4EB9 0001 58AC           jsr     $158ac.l
010E62: 588F                     addq.l  #4, A7
010E64: 6000 FF12                bra     10d78
010E68: 4879 0000 0065           pea     $65.l
010E6E: 4EB9 0001 58AC           jsr     $158ac.l
010E74: 588F                     addq.l  #4, A7
010E76: 6000 FF00                bra     10d78
010E7A: 0839 0000 0040 03AC      btst    #$0, $4003ac.l
010E82: 6700 FEF4                beq     10d78
010E86: 0239 00FE 0040 03AC      andi.b  #$fe, $4003ac.l
010E8E: 2F2E FFFC                move.l  (-$4,A6), -(A7)
010E92: 4EB9 0000 0118           jsr     $118.l
010E98: 4878 0004                pea     $4.w
010E9C: 4EB9 0001 6E8E           jsr     $16e8e.l
010EA2: 4A03                     tst.b   D3
010EA4: 508F                     addq.l  #8, A7
010EA6: 674A                     beq     10ef2
010EA8: 4879 0000 0063           pea     $63.l
010EAE: 4EB9 0001 58AC           jsr     $158ac.l
010EB4: 4878 0003                pea     $3.w
010EB8: 4EB9 0000 01BA           jsr     $1ba.l
010EBE: 3746 006A                move.w  D6, ($6a,A3)
010EC2: 267C 0040 0018           movea.l #$400018, A3
010EC8: 4244                     clr.w   D4
010ECA: 508F                     addq.l  #8, A7
010ECC: 177C 0003 0018           move.b  #$3, ($18,A3)
010ED2: 177C 0006 001A           move.b  #$6, ($1a,A3)
010ED8: 2E0B                     move.l  A3, D7
010EDA: 0687 0000 00E2           addi.l  #$e2, D7
010EE0: 2647                     movea.l D7, A3
010EE2: 5244                     addq.w  #1, D4
010EE4: 7202                     moveq   #$2, D1
010EE6: B244                     cmp.w   D4, D1
010EE8: 66E2                     bne     10ecc
010EEA: 4EB9 0002 59B4           jsr     $259b4.l
010EF0: 600E                     bra     10f00
010EF2: 4879 0000 0062           pea     $62.l
010EF8: 4EB9 0001 58AC           jsr     $158ac.l
010EFE: 588F                     addq.l  #4, A7
010F00: 5239 0040 03F0           addq.b  #1, $4003f0.l
010F06: 4A52                     tst.w   (A2)
010F08: 671A                     beq     10f24
010F0A: 3012                     move.w  (A2), D0
010F0C: 48C0                     ext.l   D0
010F0E: E580                     asl.l   #2, D0
010F10: 207C 0001 EF7A           movea.l #$1ef7a, A0
010F16: 2070 0800                movea.l (A0,D0.l), A0
010F1A: 4850                     pea     (A0)
010F1C: 4EB9 0001 58AC           jsr     $158ac.l
010F22: 588F                     addq.l  #4, A7
010F24: 267C 0040 0018           movea.l #$400018, A3
010F2A: 4239 0040 03E0           clr.b   $4003e0.l
010F30: 4244                     clr.w   D4
010F32: 6048                     bra     10f7c
010F34: 4A2B 0018                tst.b   ($18,A3)
010F38: 6700 001A                beq     10f54
010F3C: 177C 0005 006E           move.b  #$5, ($6e,A3)
010F42: 422B 001A                clr.b   ($1a,A3)
010F46: 7200                     moveq   #$0, D1
010F48: 2741 0004                move.l  D1, ($4,A3)
010F4C: 2681                     move.l  D1, (A3)
010F4E: 5239 0040 03E0           addq.b  #1, $4003e0.l
010F54: 2A42                     movea.l D2, A5
010F56: 3015                     move.w  (A5), D0
010F58: 48C0                     ext.l   D0
010F5A: 3204                     move.w  D4, D1
010F5C: 48C1                     ext.l   D1
010F5E: D081                     add.l   D1, D0
010F60: 5380                     subq.l  #1, D0
010F62: 2F00                     move.l  D0, -(A7)
010F64: 486B 006A                pea     ($6a,A3)
010F68: 4EB9 0002 86EE           jsr     $286ee.l
010F6E: 2E0B                     move.l  A3, D7
010F70: 0687 0000 00E2           addi.l  #$e2, D7
010F76: 2647                     movea.l D7, A3
010F78: 508F                     addq.l  #8, A7
010F7A: 5244                     addq.w  #1, D4
010F7C: C58D                     exg     D2, A5
010F7E: B855                     cmp.w   (A5), D4
010F80: C58D                     exg     D2, A5
010F82: 66B0                     bne     10f34
010F84: 7203                     moveq   #$3, D1
010F86: B252                     cmp.w   (A2), D1
010F88: 660E                     bne     10f98
010F8A: 4879 0000 0043           pea     $43.l
010F90: 4EB9 0001 58AC           jsr     $158ac.l
010F96: 588F                     addq.l  #4, A7
010F98: 7205                     moveq   #$5, D1
010F9A: B252                     cmp.w   (A2), D1
010F9C: 6606                     bne     10fa4
010F9E: 4239 0040 0460           clr.b   $400460.l
010FA4: 13FC 00FF 0040 03A4      move.b  #$ff, $4003a4.l
010FAC: 13FC 0001 0040 076C      move.b  #$1, $40076c.l
010FB4: 4878 0100                pea     $100.w
010FB8: 4EB9 0001 3A98           jsr     $13a98.l
010FBE: 13C0 0040 0444           move.b  D0, $400444.l
010FC4: 588F                     addq.l  #4, A7
010FC6: 4CDF 3CFC                movem.l (A7)+, D2-D7/A2-A5
010FCA: 4E5E                     unlk    A6
010FCC: 4E75                     rts

010FCE: 4EB9 0001 3EE6           jsr     $13ee6.l  
010FD4: 4EB9 0002 51DE           jsr     $251de.l
010FDA: 4EB9 0001 89E2           jsr     $189e2.l
010FE0: 4EB9 0001 58CC           jsr     $158cc.l
010FE6: 4EB9 0001 493C           jsr     $1493c.l
010FEC: 5239 0040 03F0           addq.b  #1, $4003f0.l
010FF2: 4EB9 0001 7230           jsr     $17230.l    
010FF8: 4EB9 0001 912C           jsr     $1912c.l             Only level 5
010FFE: 4EB9 0001 9BAA           jsr     $19baa.l             Only level 5
011004: 4EB9 0001 844A           jsr     $1844a.l             Only level 4
01100A: 4EB9 0001 2FD0           jsr     $12fd0.l             Only level 3
011010: 5239 0040 03F0           addq.b  #1, $4003f0.l
011016: 4EB9 0002 8624           jsr     $28624.l
01101C: 4E75                     rts

01101E: 48E7 3038                movem.l D2-D3/A2-A4, -(A7)
011022: 247C 0040 0018           movea.l #$400018, A2
011028: 267C 0040 0390           movea.l #$400390, A3        Game status
01102E: 287C 0040 075A           movea.l #$40075a, A4        Attract timer
011034: 3013                     move.w  (A3), D0
011036: 48C0                     ext.l   D0
011038: C188                     exg     D0, A0
01103A: B0FC 0000                cmpa.w  #$0, A0
01103E: C188                     exg     D0, A0
011040: 6D00 03E0                blt     11422
011044: C188                     exg     D0, A0
011046: B0FC 0006                cmpa.w  #$6, A0
01104A: C188                     exg     D0, A0
01104C: 6E00 03D4                bgt     11422
011050: 2040                     movea.l D0, A0
011052: 2008                     move.l  A0, D0
011054: 2040                     movea.l D0, A0
011056: D1C0                     adda.l  D0, A0
011058: 2008                     move.l  A0, D0
01105A: 303B 0006                move.w  ($6,PC,D0.w), D0
01105E: 4EFB 0002                jmp     ($2,PC,D0.w)
011062: 0156                     bchg    D0, (A6)
011064: 0088                     dc.w $0088; ILLEGAL
011066: 01A0                     bclr    D0, -(A0)
011068: 02D0                     dc.w $02d0; ILLEGAL
01106A: 0160                     bchg    D0, -(A0)
01106C: 000E                     dc.w $000e; ILLEGAL
01106E: 036E 157C                bchg    D1, ($157c,A6)
011072: 00FF                     dc.w $00ff; ILLEGAL
011074: 006E 4879 0000           ori.w   #$4879, ($0,A6)
01107A: 0002 4EB9                ori.b   #$b9, D2
01107E: 0001 58AC                ori.b   #$ac, D1
011082: 4879 0000 0000           pea     $0.l
011088: 4EB9 0001 58AC           jsr     $158ac.l
01108E: 4239 0040 03E2           clr.b   $4003e2.l
011094: 4EB9 0001 1428           jsr     $11428.l
01109A: 7001                     moveq   #$1, D0
01109C: B079 0040 0396           cmp.w   $400396.l, D0
0110A2: 508F                     addq.l  #8, A7
0110A4: 6610                     bne     110b6
0110A6: 4879 0000 0062           pea     $62.l
0110AC: 4EB9 0001 58AC           jsr     $158ac.l
0110B2: 588F                     addq.l  #4, A7
0110B4: 600E                     bra     110c4
0110B6: 4879 0000 0063           pea     $63.l
0110BC: 4EB9 0001 58AC           jsr     $158ac.l
0110C2: 588F                     addq.l  #4, A7
0110C4: 1039 0001 F1C8           move.b  $1f1c8.l, D0
0110CA: 4880                     ext.w   D0
0110CC: 33C0 0040 0394           move.w  D0, $400394.l
0110D2: 4EB9 0001 0456           jsr     $10456.l
0110D8: 4EB9 0001 6EC6           jsr     $16ec6.l
0110DE: 4EB9 0001 0504           jsr     $10504.l
0110E4: 4253                     clr.w   (A3)
0110E6: 6000 033A                bra     11422
0110EA: 0C39 0001 0040 03EE      cmpi.b  #$1, $4003ee.l
0110F2: 6638                     bne     1112c
0110F4: 7018                     moveq   #$18, D0
0110F6: B079 0040 03EA           cmp.w   $4003ea.l, D0
0110FC: 6E2E                     bgt     1112c
0110FE: 4879 0002 2A56           pea     $22a56.l
011104: 4EB9 0000 0118           jsr     $118.l
01110A: 4879 0002 2A62           pea     $22a62.l
011110: 4EB9 0000 0118           jsr     $118.l
011116: 4879 0002 2A6E           pea     $22a6e.l
01111C: 4EB9 0000 0118           jsr     $118.l
011122: 38BC FFFF                move.w  #$ffff, (A4)
011126: 4FEF 000C                lea     ($c,A7), A7
01112A: 6016                     bra     11142
01112C: 4A39 0040 03EE           tst.b   $4003ee.l
011132: 660E                     bne     11142
011134: 700C                     moveq   #$c, D0
011136: B079 0040 03EA           cmp.w   $4003ea.l, D0
01113C: 6E04                     bgt     11142
01113E: 38BC FFFF                move.w  #$ffff, (A4)
011142: 70FF                     moveq   #-$1, D0
011144: B054                     cmp.w   (A4), D0
011146: 6628                     bne     11170
011148: 7002                     moveq   #$2, D0
01114A: B079 0040 0392           cmp.w   $400392.l, D0
011150: 6716                     beq     11168
011152: 157C 00FF 006E           move.b  #$ff, ($6e,A2)
011158: 33FC 0002 0040 0392      move.w  #$2, $400392.l
011160: 4EB9 0001 1452           jsr     $11452.l
011166: 6006                     bra     1116e
011168: 4EB9 0001 1654           jsr     $11654.l
01116E: 4254                     clr.w   (A4)
011170: 4EB9 0002 8232           jsr     $28232.l
011176: 4A54                     tst.w   (A4)
011178: 6F22                     ble     1119c
01117A: 5354                     subq.w  #1, (A4)
01117C: 4A54                     tst.w   (A4)
01117E: 661C                     bne     1119c
011180: 5279 0040 0392           addq.w  #1, $400392.l
011186: 7002                     moveq   #$2, D0
011188: B079 0040 0392           cmp.w   $400392.l, D0
01118E: 6C06                     bge     11196
011190: 4279 0040 0392           clr.w   $400392.l
011196: 4EB9 0001 1452           jsr     $11452.l
01119C: 4A79 0040 0392           tst.w   $400392.l
0111A2: 6600 027E                bne     11422
0111A6: 7001                     moveq   #$1, D0
0111A8: B053                     cmp.w   (A3), D0
0111AA: 6600 0276                bne     11422
0111AE: 4EB9 0001 0FCE           jsr     $10fce.l
0111B4: 6000 026C                bra     11422
0111B8: 4EB9 0001 0FCE           jsr     $10fce.l
0111BE: 6000 0262                bra     11422
0111C2: 1439 0040 0008           move.b  $400008.l, D2
0111C8: 4882                     ext.w   D2
0111CA: 4239 0040 0008           clr.b   $400008.l
0111D0: 13FC 0001 0040 039A      move.b  #$1, $40039a.l
0111D8: 4EB9 0002 8DEA           jsr     $28dea.l
0111DE: 4EB9 0001 6A20           jsr     $16a20.l
0111E4: 4A53                     tst.w   (A3)
0111E6: 6710                     beq     111f8
0111E8: 36BC 0002                move.w  #$2, (A3)
0111EC: 13FC 00FF 0040 0460      move.b  #$ff, $400460.l
0111F4: 6000 022C                bra     11422
0111F8: 13C2 0040 0008           move.b  D2, $400008.l
0111FE: 6000 0222                bra     11422
011202: 4239 0040 03AC           clr.b   $4003ac.l
011208: 7201                     moveq   #$1, D1
01120A: 0C39 0001 0040 03A4      cmpi.b  #$1, $4003a4.l
011212: 6602                     bne     11216
011214: 7202                     moveq   #$2, D1
011216: 7001                     moveq   #$1, D0
011218: B079 0040 0396           cmp.w   $400396.l, D0
01121E: 6604                     bne     11224
011220: 7400                     moveq   #$0, D2
011222: 6006                     bra     1122a
011224: 1401                     move.b  D1, D2
011226: 4882                     ext.w   D2
011228: 48C2                     ext.l   D2
01122A: 7001                     moveq   #$1, D0
01122C: B079 0040 0396           cmp.w   $400396.l, D0
011232: 6604                     bne     11238
011234: 7600                     moveq   #$0, D3
011236: 600A                     bra     11242
011238: 7603                     moveq   #$3, D3
01123A: 1001                     move.b  D1, D0
01123C: 4880                     ext.w   D0
01123E: 48C0                     ext.l   D0
011240: 9680                     sub.l   D0, D3
011242: 1239 0040 0658           move.b  $400658.l, D1
011248: 4881                     ext.w   D1
01124A: 48C1                     ext.l   D1
01124C: 2F01                     move.l  D1, -(A7)
01124E: 1039 0040 0656           move.b  $400656.l, D0
011254: 4880                     ext.w   D0
011256: 48C0                     ext.l   D0
011258: 2F00                     move.l  D0, -(A7)
01125A: 1039 0040 0654           move.b  $400654.l, D0
011260: 4880                     ext.w   D0
011262: 48C0                     ext.l   D0
011264: 2F00                     move.l  D0, -(A7)
011266: 2F03                     move.l  D3, -(A7)
011268: 2F2A 019E                move.l  ($19e,A2), -(A7)
01126C: 2F02                     move.l  D2, -(A7)
01126E: 2F2A 00BC                move.l  ($bc,A2), -(A7)
011272: 4EB9 0000 019C           jsr     $19c.l
011278: 5239 0040 03F0           addq.b  #1, $4003f0.l
01127E: 4EB9 0001 1428           jsr     $11428.l
011284: 42A7                     clr.l   -(A7)
011286: 4EB9 0002 6B2A           jsr     $26b2a.l
01128C: 2F2A 00BC                move.l  ($bc,A2), -(A7)
011290: 4EB9 0000 01C6           jsr     $1c6.l
011296: 1400                     move.b  D0, D2
011298: 2F2A 019E                move.l  ($19e,A2), -(A7)
01129C: 4EB9 0000 01C6           jsr     $1c6.l
0112A2: 1200                     move.b  D0, D1
0112A4: 7000                     moveq   #$0, D0
0112A6: B401                     cmp.b   D1, D2
0112A8: 57C0                     seq     D0
0112AA: 4400                     neg.b   D0
0112AC: 7209                     moveq   #$9, D1
0112AE: B280                     cmp.l   D0, D1
0112B0: 4FEF 0028                lea     ($28,A7), A7
0112B4: 6614                     bne     112ca
0112B6: 202A 019E                move.l  ($19e,A2), D0
0112BA: B0AA 00BC                cmp.l   ($bc,A2), D0
0112BE: 6F06                     ble     112c6
0112C0: 42AA 00BC                clr.l   ($bc,A2)
0112C4: 6004                     bra     112ca
0112C6: 42AA 019E                clr.l   ($19e,A2)
0112CA: 4852                     pea     (A2)
0112CC: 4EB9 0001 1B18           jsr     $11b18.l
0112D2: 1400                     move.b  D0, D2
0112D4: 486A 00E2                pea     ($e2,A2)
0112D8: 4EB9 0001 1B18           jsr     $11b18.l
0112DE: 1600                     move.b  D0, D3
0112E0: 33FC 0001 0040 0394      move.w  #$1, $400394.l
0112E8: 36BC 0001                move.w  #$1, (A3)
0112EC: 70FF                     moveq   #-$1, D0
0112EE: B079 0040 03EA           cmp.w   $4003ea.l, D0
0112F4: 508F                     addq.l  #8, A7
0112F6: 670C                     beq     11304
0112F8: 4EB9 0000 0160           jsr     $160.l
0112FE: 33C0 0040 03EA           move.w  D0, $4003ea.l
011304: 4EB9 0002 88F8           jsr     $288f8.l
01130A: 4239 0040 03E4           clr.b   $4003e4.l
011310: 33FC 0002 0040 0392      move.w  #$2, $400392.l
011318: 38BC 0096                move.w  #$96, (A4)
01131C: 4A02                     tst.b   D2
01131E: 6600 0102                bne     11422
011322: 4A03                     tst.b   D3
011324: 6600 00FC                bne     11422
011328: 4EB9 0001 1452           jsr     $11452.l
01132E: 6000 00F2                bra     11422
011332: 4EB9 0001 5884           jsr     $15884.l
011338: 33FC FFFF 0040 0768      move.w  #$ffff, $400768.l
011340: 7003                     moveq   #$3, D0
011342: B079 0040 0394           cmp.w   $400394.l, D0
011348: 660E                     bne     11358
01134A: 4879 0000 0011           pea     $11.l
011350: 4EB9 0001 58AC           jsr     $158ac.l
011356: 588F                     addq.l  #4, A7
011358: 4200                     clr.b   D0
01135A: 13C0 0040 0008           move.b  D0, $400008.l
011360: 13C0 0040 0006           move.b  D0, $400006.l
011366: 13C0 0040 000A           move.b  D0, $40000a.l
01136C: 13FC 0001 0040 039A      move.b  #$1, $40039a.l
011374: 5239 0040 03F0           addq.b  #1, $4003f0.l
01137A: 5279 0040 0394           addq.w  #1, $400394.l
011380: 4EB9 0001 18D2           jsr     $118d2.l
011386: 13FC 00FF 0040 0460      move.b  #$ff, $400460.l
01138E: 4EB9 0002 8DEA           jsr     $28dea.l
011394: 4EB9 0001 21A6           jsr     $121a6.l
01139A: 4EB9 0001 2186           jsr     $12186.l
0113A0: 4EB9 0002 8580           jsr     $28580.l
0113A6: 42A7                     clr.l   -(A7)
0113A8: 4EB9 0002 8C7E           jsr     $28c7e.l
0113AE: 4EB9 0002 8CA6           jsr     $28ca6.l
0113B4: 7005                     moveq   #$5, D0
0113B6: B079 0040 0394           cmp.w   $400394.l, D0
0113BC: 588F                     addq.l  #4, A7
0113BE: 6C06                     bge     113c6
0113C0: 36BC 0006                move.w  #$6, (A3)
0113C4: 605C                     bra     11422
0113C6: 4EB9 0001 0504           jsr     $10504.l
0113CC: 4253                     clr.w   (A3)
0113CE: 6052                     bra     11422
0113D0: 4200                     clr.b   D0
0113D2: 13C0 0040 0008           move.b  D0, $400008.l
0113D8: 13C0 0040 0006           move.b  D0, $400006.l
0113DE: 13C0 0040 000A           move.b  D0, $40000a.l
0113E4: 4EB9 0001 2174           jsr     $12174.l
0113EA: 42A7                     clr.l   -(A7)
0113EC: 4EB9 0002 6B2A           jsr     $26b2a.l
0113F2: 4879 0000 001B           pea     $1b.l
0113F8: 4EB9 0001 58AC           jsr     $158ac.l
0113FE: 4239 0040 03E8           clr.b   $4003e8.l
011404: 4EB9 0001 8A88           jsr     $18a88.l
01140A: 4878 00B4                pea     $b4.w
01140E: 4EB9 0002 8DB8           jsr     $28db8.l
011414: 4239 0040 03E2           clr.b   $4003e2.l
01141A: 36BC 0002                move.w  #$2, (A3)
01141E: 4FEF 000C                lea     ($c,A7), A7
011422: 4CDF 1C0C                movem.l (A7)+, D2-D3/A2-A4
011426: 4E75                     rts
011428: 4EB9 0002 8DEA           jsr     $28dea.l
01142E: 4EB9 0001 21A6           jsr     $121a6.l
011434: 4EB9 0001 2174           jsr     $12174.l
01143A: 4EB9 0002 8580           jsr     $28580.l
011440: 42A7                     clr.l   -(A7)
011442: 4EB9 0002 8C7E           jsr     $28c7e.l
011448: 4EB9 0002 8CA6           jsr     $28ca6.l
01144E: 588F                     addq.l  #4, A7
011450: 4E75                     rts
011452: 48E7 2038                movem.l D2/A2-A4, -(A7)
011456: 247C 0040 075A           movea.l #$40075a, A2
01145C: 287C 0040 03E4           movea.l #$4003e4, A4
011462: 267C 0040 03E6           movea.l #$4003e6, A3
011468: 42A7                     clr.l   -(A7)
01146A: 42A7                     clr.l   -(A7)
01146C: 42A7                     clr.l   -(A7)
01146E: 42A7                     clr.l   -(A7)
011470: 42A7                     clr.l   -(A7)
011472: 42A7                     clr.l   -(A7)
011474: 42A7                     clr.l   -(A7)
011476: 4EB9 0000 019C           jsr     $19c.l
01147C: 13FC 00FF 0040 0460      move.b  #$ff, $400460.l
011484: 4FEF 001C                lea     ($1c,A7), A7
011488: 3039 0040 0392           move.w  $400392.l, D0
01148E: 48C0                     ext.l   D0
011490: C189                     exg     D0, A1
011492: B2FC 0000                cmpa.w  #$0, A1
011496: C189                     exg     D0, A1
011498: 6D00 01AE                blt     11648
01149C: C189                     exg     D0, A1
01149E: B2FC 0003                cmpa.w  #$3, A1
0114A2: C189                     exg     D0, A1
0114A4: 6E00 01A2                bgt     11648
0114A8: 2240                     movea.l D0, A1
0114AA: 2009                     move.l  A1, D0
0114AC: 2240                     movea.l D0, A1
0114AE: D3C0                     adda.l  D0, A1
0114B0: 2009                     move.l  A1, D0
0114B2: 303B 0006                move.w  ($6,PC,D0.w), D0
0114B6: 4EFB 0002                jmp     ($2,PC,D0.w)
0114BA: 0008                     dc.w $0008; ILLEGAL
0114BC: 00AC 00B4 014A 4879      ori.l   #$b4014a, ($4879,A4)
0114C4: 0000 0001                ori.b   #$1, D0
0114C8: 4EB9 0001 58AC           jsr     $158ac.l
0114CE: 4239 0040 03E2           clr.b   $4003e2.l
0114D4: 4EB9 0001 1428           jsr     $11428.l
0114DA: 5214                     addq.b  #1, (A4)
0114DC: 0C14 0007                cmpi.b  #$7, (A4)
0114E0: 588F                     addq.l  #4, A7
0114E2: 6F36                     ble     1151a
0114E4: 207C 0040 0018           movea.l #$400018, A0
0114EA: 4201                     clr.b   D1
0114EC: 7041                     moveq   #$41, D0
0114EE: 1140 00C2                move.b  D0, ($c2,A0)
0114F2: 1140 00C1                move.b  D0, ($c1,A0)
0114F6: 1140 00C0                move.b  D0, ($c0,A0)
0114FA: 2408                     move.l  A0, D2
0114FC: 0682 0000 00E2           addi.l  #$e2, D2
011502: 2042                     movea.l D2, A0
011504: 5201                     addq.b  #1, D1
011506: 0C01 0002                cmpi.b  #$2, D1
01150A: 66E0                     bne     114ec
01150C: 33FC 0003 0040 0392      move.w  #$3, $400392.l
011514: 4214                     clr.b   (A4)
011516: 6000 FF70                bra     11488
01151A: 4252                     clr.w   (A2)
01151C: 0A79 0001 0040 0394      eori.w  #$1, $400394.l    Level change 1-2-1
011524: 3239 0040 0394           move.w  $400394.l, D1
01152A: 48C1                     ext.l   D1
01152C: E581                     asl.l   #2, D1
01152E: 227C 0001 D364           movea.l #$1d364, A1       Attract movement/messages
011534: 23F1 1800 0040 0446      move.l  (A1,D1.l), $400446.l
01153C: 33FC 0001 0040 0396      move.w  #$1, $400396.l
011544: 4EB9 0001 0456           jsr     $10456.l
01154A: 4EB9 0001 6EC6           jsr     $16ec6.l
011550: 7001                     moveq   #$1, D0
011552: B079 0040 0390           cmp.w   $400390.l, D0     Game in attract mode?
011558: 6600 00EE                bne     11648
01155C: 4EB9 0001 0504           jsr     $10504.l
011562: 6000 00E4                bra     11648
011566: 34BC 0001                move.w  #$1, (A2)
01156A: 6000 00DC                bra     11648
01156E: 4EB9 0001 1428           jsr     $11428.l
011574: 42A7                     clr.l   -(A7)
011576: 4EB9 0002 6B2A           jsr     $26b2a.l
01157C: 4878 0013                pea     $13.w
011580: 4EB9 0002 6B66           jsr     $26b66.l
011586: 4240                     clr.w   D0
011588: 33C0 0040 0000           move.w  D0, $400000.l
01158E: 33C0 0040 0002           move.w  D0, $400002.l
011594: 4200                     clr.b   D0
011596: 13C0 0040 0008           move.b  D0, $400008.l
01159C: 13C0 0040 0006           move.b  D0, $400006.l
0115A2: 13C0 0040 000A           move.b  D0, $40000a.l
0115A8: 4EB9 0002 8DEA           jsr     $28dea.l
0115AE: 2F3C FFFF FFFE           move.l  #$fffffffe, -(A7)
0115B4: 4878 0003                pea     $3.w
0115B8: 4EB9 0001 8CD2           jsr     $18cd2.l           Display 3 balls
0115BE: 2F3C FFFF FFFF           move.l  #$ffffffff, -(A7)
0115C4: 4EB9 0001 1FF8           jsr     $11ff8.l           Show high scores
0115CA: 4EB9 0001 7044           jsr     $17044.l           Show marble madness logo
0115D0: 34BC 012C                move.w  #$12c, (A2)
0115D4: 4A13                     tst.b   (A3)
0115D6: 4FEF 0014                lea     ($14,A7), A7
0115DA: 6700 006C                beq     11648
0115DE: 4878 0003                pea     $3.w
0115E2: 4EB9 0001 3A98           jsr     $13a98.l
0115E8: E580                     asl.l   #2, D0
0115EA: 207C 0001 EFAA           movea.l #$1efaa, A0
0115F0: 2070 0800                movea.l (A0,D0.l), A0
0115F4: 588F                     addq.l  #4, A7
0115F6: 4850                     pea     (A0)
0115F8: 4EB9 0001 58AC           jsr     $158ac.l
0115FE: 4213                     clr.b   (A3)
011600: 588F                     addq.l  #4, A7
011602: 6044                     bra     11648

011604: 42A7                     clr.l   -(A7)         SHOW CREDITS
011606: 4EB9 0002 6B2A           jsr     $26b2a.l
01160C: 4878 3000                pea     $3000.w        ->colour (orange)-added to data eg 3041
011610: 4879 0002 2D26           pea     $22d26.l       -> Designer/games programmer etc.
011616: 4EB9 0000 0142           jsr     $142.l         Display it
01161C: 4878 3400                pea     $3400.w        ->colour (light blue)
011620: 4879 0002 2D32           pea     $22d32.l       -> Mark Cerny
011626: 4EB9 0000 0142           jsr     $142.l         Display it
01162C: 34BC 00C8                move.w  #$c8, (A2)     Set timer for 'credits' screen
011630: 3039 0040 03DC           move.w  $4003dc.l, D0
011636: 48C0                     ext.l   D0
011638: 0280 0000 4000           andi.l  #$4000, D0
01163E: 4FEF 0014                lea     ($14,A7), A7
011642: 6704                     beq     11648
011644: 16BC 0001                move.b  #$1, (A3)
011648: 4EB9 0001 1654           jsr     $11654.l      Show "Press start" messages ?
01164E: 4CDF 1C04                movem.l (A7)+, D2/A2-A4
011652: 4E75                     rts

011654: 48E7 2038                movem.l D2/A2-A4, -(A7)
011658: 247C 0000 0100           movea.l #$100, A2
01165E: 287C 0040 03EA           movea.l #$4003ea, A4
011664: 267C 0002 8DB8           movea.l #$28db8, A3
01166A: 7002                     moveq   #$2, D0
01166C: B079 0040 0392           cmp.w   $400392.l, D0
011672: 6608                     bne     1167c
011674: 203C 0000 2000           move.l  #$2000, D0
01167A: 6002                     bra     1167e
01167C: 7000                     moveq   #$0, D0
01167E: 3400                     move.w  D0, D2
011680: 6612                     bne     11694
011682: 4878 1800                pea     $1800.w
011686: 4879 0002 2A26           pea     $22a26.l
01168C: 4EB9 0000 0142           jsr     $142.l
011692: 508F                     addq.l  #8, A7
011694: 223C 0000 3000           move.l  #$3000, D1
01169A: 3002                     move.w  D2, D0
01169C: 48C0                     ext.l   D0
01169E: 9280                     sub.l   D0, D1
0116A0: 2F01                     move.l  D1, -(A7)
0116A2: 4879 0002 2A32           pea     $22a32.l
0116A8: 4EB9 0000 0142           jsr     $142.l
0116AE: 7003                     moveq   #$3, D0
0116B0: B079 0040 0392           cmp.w   $400392.l, D0
0116B6: 508F                     addq.l  #8, A7
0116B8: 6700 00F2                beq     117ac
0116BC: 70FF                     moveq   #-$1, D0
0116BE: B054                     cmp.w   (A4), D0
0116C0: 6700 000A                beq     116cc
0116C4: 7018                     moveq   #$18, D0
0116C6: B054                     cmp.w   (A4), D0
0116C8: 6E00 006C                bgt     11736
0116CC: 4878 001E                pea     $1e.w
0116D0: 223C 0000 3800           move.l  #$3800, D1
0116D6: 3002                     move.w  D2, D0
0116D8: 48C0                     ext.l   D0
0116DA: 9280                     sub.l   D0, D1
0116DC: 2F01                     move.l  D1, -(A7)
0116DE: 4879 0002 2A7A           pea     $22a7a.l
0116E4: 4E92                     jsr     (A2)
0116E6: 4878 000A                pea     $a.w
0116EA: 4E93                     jsr     (A3)
0116EC: 4878 001E                pea     $1e.w
0116F0: 223C 0000 3000           move.l  #$3000, D1
0116F6: 3002                     move.w  D2, D0
0116F8: 48C0                     ext.l   D0
0116FA: 9280                     sub.l   D0, D1
0116FC: 2F01                     move.l  D1, -(A7)
0116FE: 4879 0002 2A86           pea     $22a86.l
011704: 4E92                     jsr     (A2)
011706: 4878 000A                pea     $a.w
01170A: 4E93                     jsr     (A3)
01170C: 4878 001E                pea     $1e.w
011710: 223C 0000 3C00           move.l  #$3c00, D1
011716: 3002                     move.w  D2, D0
011718: 48C0                     ext.l   D0
01171A: 9280                     sub.l   D0, D1
01171C: 2F01                     move.l  D1, -(A7)
01171E: 4879 0002 2A92           pea     $22a92.l
011724: 4E92                     jsr     (A2)
011726: 13FC 0002 0040 03EE      move.b  #$2, $4003ee.l
01172E: 4FEF 002C                lea     ($2c,A7), A7
011732: 6000 0078                bra     117ac
011736: 700C                     moveq   #$c, D0
011738: B054                     cmp.w   (A4), D0
01173A: 6E00 0070                bgt     117ac
01173E: 7018                     moveq   #$18, D0
011740: B054                     cmp.w   (A4), D0
011742: 6F00 0068                ble     117ac
011746: 4878 001E                pea     $1e.w
01174A: 223C 0000 3800           move.l  #$3800, D1
011750: 3002                     move.w  D2, D0
011752: 48C0                     ext.l   D0
011754: 9280                     sub.l   D0, D1
011756: 2F01                     move.l  D1, -(A7)
011758: 4879 0002 2A56           pea     $22a56.l
01175E: 4E92                     jsr     (A2)
011760: 4878 000A                pea     $a.w
011764: 4E93                     jsr     (A3)
011766: 4878 001E                pea     $1e.w
01176A: 223C 0000 3000           move.l  #$3000, D1
011770: 3002                     move.w  D2, D0
011772: 48C0                     ext.l   D0
011774: 9280                     sub.l   D0, D1
011776: 2F01                     move.l  D1, -(A7)
011778: 4879 0002 2A62           pea     $22a62.l
01177E: 4E92                     jsr     (A2)
011780: 4878 000A                pea     $a.w
011784: 4E93                     jsr     (A3)
011786: 4878 001E                pea     $1e.w
01178A: 223C 0000 3C00           move.l  #$3c00, D1
011790: 3002                     move.w  D2, D0
011792: 48C0                     ext.l   D0
011794: 9280                     sub.l   D0, D1
011796: 2F01                     move.l  D1, -(A7)
011798: 4879 0002 2A6E           pea     $22a6e.l
01179E: 4E92                     jsr     (A2)
0117A0: 13FC 0001 0040 03EE      move.b  #$1, $4003ee.l
0117A8: 4FEF 002C                lea     ($2c,A7), A7
0117AC: 4CDF 1C04                movem.l (A7)+, D2/A2-A4
0117B0: 4E75                     rts
0117B2: 48E7 0038                movem.l A2-A4, -(A7)
0117B6: 247C 0040 03B2           movea.l #$4003b2, A2
0117BC: 267C 0040 03B4           movea.l #$4003b4, A3
0117C2: 287C 0040 0768           movea.l #$400768, A4
0117C8: 4200                     clr.b   D0
0117CA: 13C0 0040 03F4           move.b  D0, $4003f4.l
0117D0: 13C0 0040 03F2           move.b  D0, $4003f2.l
0117D6: 13C0 0040 03F0           move.b  D0, $4003f0.l
0117DC: 4EB9 0001 464A           jsr     $1464a.l
0117E2: 33FC 0001 0040 0390      move.w  #$1, $400390.l    Put game in attract mode
0117EA: 4239 0040 03E4           clr.b   $4003e4.l
0117F0: 33FC 0001 0040 0394      move.w  #$1, $400394.l
0117F8: 4279 0040 0392           clr.w   $400392.l
0117FE: 4EB9 0001 1452           jsr     $11452.l
011804: 5239 0040 03F0           addq.b  #1, $4003f0.l
01180A: 4200                     clr.b   D0
01180C: 13C0 0040 0016           move.b  D0, $400016.l
011812: 13C0 0040 0014           move.b  D0, $400014.l
011818: 4EB9 0001 101E           jsr     $1101e.l
01181E: 4A54                     tst.w   (A4)
011820: 6D1C                     blt     1183e
011822: 5354                     subq.w  #1, (A4)
011824: 4A54                     tst.w   (A4)
011826: 6C16                     bge     1183e
011828: 4879 0000 0013           pea     $13.l
01182E: 4EB9 0001 58AC           jsr     $158ac.l
011834: 0039 0004 0040 076A      ori.b   #$4, $40076a.l
01183C: 588F                     addq.l  #4, A7
01183E: 4A12                     tst.b   (A2)
011840: 6628                     bne     1186a
011842: 2239 0040 0010           move.l  $400010.l, D1
011848: 7007                     moveq   #$7, D0
01184A: C280                     and.l   D0, D1
01184C: 6624                     bne     11872
01184E: 4879 0000 0007           pea     $7.l
011854: 4EB9 0001 58AC           jsr     $158ac.l
01185A: 4A80                     tst.l   D0
01185C: 588F                     addq.l  #4, A7
01185E: 6706                     beq     11866
011860: 14BC 0004                move.b  #$4, (A2)
011864: 600C                     bra     11872
011866: 5213                     addq.b  #1, (A3)
011868: 6008                     bra     11872
01186A: 5312                     subq.b  #1, (A2)
01186C: 4A12                     tst.b   (A2)
01186E: 6602                     bne     11872
011870: 5213                     addq.b  #1, (A3)
011872: 0C13 0008                cmpi.b  #$8, (A3)
011876: 6F0C                     ble     11884
011878: 4EB9 0001 00E0           jsr     $100e0.l
01187E: 4200                     clr.b   D0
011880: 1480                     move.b  D0, (A2)
011882: 1680                     move.b  D0, (A3)
011884: 4A79 0040 03B8           tst.w   $4003b8.l
01188A: 6714                     beq     118a0
01188C: 5379 0040 03B8           subq.w  #1, $4003b8.l
011892: 4A79 0040 03B8           tst.w   $4003b8.l
011898: 6606                     bne     118a0
01189A: 4EB9 0001 00E0           jsr     $100e0.l
0118A0: 4878 0100                pea     $100.w
0118A4: 4EB9 0001 3A98           jsr     $13a98.l
0118AA: 4EB9 0002 6F3E           jsr     $26f3e.l
0118B0: 4A39 0040 0016           tst.b   $400016.l
0118B6: 588F                     addq.l  #4, A7
0118B8: 6606                     bne     118c0
0118BA: 4EB9 0002 8DEA           jsr     $28dea.l
0118C0: 13FC 0001 0040 039A      move.b  #$1, $40039a.l
0118C8: 4EB9 0002 8DEA           jsr     $28dea.l
0118CE: 6000 FF34                bra     11804
0118D2: 4E56 FFF8                link    A6, #-$8
0118D6: 48E7 3820                movem.l D2-D4/A2, -(A7)
0118DA: 4279 00B0 0000           clr.w   $b00000.l
0118E0: 4279 00B0 0008           clr.w   $b00008.l
0118E6: 4279 00B0 003A           clr.w   $b0003a.l
0118EC: 4279 00B0 0010           clr.w   $b00010.l
0118F2: 4279 00B0 0018           clr.w   $b00018.l
0118F8: 33FC AFFF 00B0 0012      move.w  #$afff, $b00012.l
011900: 33FC AFFF 00B0 001A      move.w  #$afff, $b0001a.l
011908: 33FC F00F 00B0 0016      move.w  #$f00f, $b00016.l
011910: 33FC AF00 00B0 001E      move.w  #$af00, $b0001e.l
011918: 247C 0040 0018           movea.l #$400018, A2
01191E: 4202                     clr.b   D2
011920: 6000 00C2                bra     119e4
011924: 0C2A 0003 0018           cmpi.b  #$3, ($18,A2)
01192A: 6600 00AC                bne     119d8
01192E: 422A 00D8                clr.b   ($d8,A2)
011932: 157C 00FF 0071           move.b  #$ff, ($71,A2)
011938: 422A 0070                clr.b   ($70,A2)
01193C: 4A02                     tst.b   D2
01193E: 6714                     beq     11954
011940: 4878 2400                pea     $2400.w
011944: 4879 0002 2B9A           pea     $22b9a.l
01194A: 4EB9 0000 0142           jsr     $142.l
011950: 508F                     addq.l  #8, A7
011952: 6012                     bra     11966
011954: 4878 2000                pea     $2000.w
011958: 4879 0002 2B82           pea     $22b82.l
01195E: 4EB9 0000 0142           jsr     $142.l
011964: 508F                     addq.l  #8, A7
011966: 362A 006A                move.w  ($6a,A2), D3
01196A: 7063                     moveq   #$63, D0
01196C: B043                     cmp.w   D3, D0
01196E: 6C02                     bge     11972
011970: 7663                     moveq   #$63, D3
011972: 1202                     move.b  D2, D1
011974: 4881                     ext.w   D1
011976: 48C1                     ext.l   D1
011978: E581                     asl.l   #2, D1
01197A: 41EE FFF8                lea     (-$8,A6), A0
01197E: 3003                     move.w  D3, D0
011980: 48C0                     ext.l   D0
011982: C1FC 0064                muls.w  #$64, D0
011986: 2180 1800                move.l  D0, (A0,D1.l)
01198A: 4A02                     tst.b   D2
01198C: 6708                     beq     11996
01198E: 203C 0000 2400           move.l  #$2400, D0
011994: 6006                     bra     1199c
011996: 203C 0000 2000           move.l  #$2000, D0
01199C: 2F00                     move.l  D0, -(A7)
01199E: 4878 0005                pea     $5.w
0119A2: 4878 0004                pea     $4.w
0119A6: 1002                     move.b  D2, D0
0119A8: 4880                     ext.w   D0
0119AA: 48C0                     ext.l   D0
0119AC: 207C 0001 D36E           movea.l #$1d36e, A0
0119B2: 1030 0800                move.b  (A0,D0.l), D0
0119B6: 4880                     ext.w   D0
0119B8: 48C0                     ext.l   D0
0119BA: 2F00                     move.l  D0, -(A7)
0119BC: 42A7                     clr.l   -(A7)
0119BE: 1002                     move.b  D2, D0
0119C0: 4880                     ext.w   D0
0119C2: 48C0                     ext.l   D0
0119C4: E580                     asl.l   #2, D0
0119C6: 41EE FFF8                lea     (-$8,A6), A0
0119CA: 2F30 0800                move.l  (A0,D0.l), -(A7)
0119CE: 4EB9 0002 8E3C           jsr     $28e3c.l
0119D4: 4FEF 0018                lea     ($18,A7), A7
0119D8: 280A                     move.l  A2, D4
0119DA: 0684 0000 00E2           addi.l  #$e2, D4
0119E0: 2444                     movea.l D4, A2
0119E2: 5202                     addq.b  #1, D2
0119E4: 1002                     move.b  D2, D0
0119E6: 4880                     ext.w   D0
0119E8: B079 0040 0396           cmp.w   $400396.l, D0
0119EE: 6600 FF34                bne     11924
0119F2: 4878 0028                pea     $28.w
0119F6: 4EB9 0002 8DB8           jsr     $28db8.l
0119FC: 3039 0040 0394           move.w  $400394.l, D0
011A02: 48C0                     ext.l   D0
011A04: 5380                     subq.l  #1, D0
011A06: E580                     asl.l   #2, D0
011A08: 207C 0001 EF92           movea.l #$1ef92, A0
011A0E: 2070 0800                movea.l (A0,D0.l), A0
011A12: 4850                     pea     (A0)
011A14: 4EB9 0001 58AC           jsr     $158ac.l
011A1A: 7006                     moveq   #$6, D0
011A1C: B079 0040 0394           cmp.w   $400394.l, D0
011A22: 508F                     addq.l  #8, A7
011A24: 6F06                     ble     11a2c
011A26: 4EB9 0001 6EC6           jsr     $16ec6.l
011A2C: 247C 0040 0018           movea.l #$400018, A2
011A32: 4202                     clr.b   D2
011A34: 6034                     bra     11a6a
011A36: 0C2A 0003 0018           cmpi.b  #$3, ($18,A2)
011A3C: 6620                     bne     11a5e
011A3E: 157C 00FF 0070           move.b  #$ff, ($70,A2)
011A44: 1002                     move.b  D2, D0
011A46: 4880                     ext.w   D0
011A48: 48C0                     ext.l   D0
011A4A: E580                     asl.l   #2, D0
011A4C: 41EE FFF8                lea     (-$8,A6), A0
011A50: 2F30 0800                move.l  (A0,D0.l), -(A7)
011A54: 2F0A                     move.l  A2, -(A7)
011A56: 4EB9 0002 8608           jsr     $28608.l
011A5C: 508F                     addq.l  #8, A7
011A5E: 280A                     move.l  A2, D4
011A60: 0684 0000 00E2           addi.l  #$e2, D4
011A66: 2444                     movea.l D4, A2
011A68: 5202                     addq.b  #1, D2
011A6A: 1002                     move.b  D2, D0
011A6C: 4880                     ext.w   D0
011A6E: B079 0040 0396           cmp.w   $400396.l, D0
011A74: 66C0                     bne     11a36
011A76: 33FC AFFF 00B0 0000      move.w  #$afff, $b00000.l
011A7E: 33FC AFFF 00B0 0008      move.w  #$afff, $b00008.l
011A86: 33FC AFFF 00B0 003A      move.w  #$afff, $b0003a.l
011A8E: 33FC F00F 00B0 0006      move.w  #$f00f, $b00006.l
011A96: 33FC AF00 00B0 000E      move.w  #$af00, $b0000e.l
011A9E: 33FC AFFF 00B0 0010      move.w  #$afff, $b00010.l
011AA6: 33FC AFFF 00B0 0018      move.w  #$afff, $b00018.l
011AAE: 4279 00B0 0012           clr.w   $b00012.l
011AB4: 4279 00B0 001A           clr.w   $b0001a.l
011ABA: 4CDF 041C                movem.l (A7)+, D2-D4/A2
011ABE: 4E5E                     unlk    A6
011AC0: 4E75                     rts
011AC2: 207C 0040 076E           movea.l #$40076e, A0
011AC8: 227C 0001 D370           movea.l #$1d370, A1
011ACE: 7041                     moveq   #$41, D0
011AD0: 30D9                     move.w  (A1)+, (A0)+
011AD2: 51C8 FFFC                dbra    D0, 11ad0
011AD6: 4E75                     rts
011AD8: 48E7 3000                movem.l D2-D3, -(A7)
011ADC: 122F 000F                move.b  ($f,A7), D1
011AE0: 1001                     move.b  D1, D0
011AE2: 4880                     ext.w   D0
011AE4: 48C0                     ext.l   D0
011AE6: E780                     asl.l   #3, D0
011AE8: 0680 0001 EEA0           addi.l  #$1eea0, D0
011AEE: 2600                     move.l  D0, D3
011AF0: 1401                     move.b  D1, D2
011AF2: 6018                     bra     11b0c
011AF4: 2003                     move.l  D3, D0
011AF6: 5083                     addq.l  #8, D3
011AF8: 2F00                     move.l  D0, -(A7)
011AFA: 1002                     move.b  D2, D0
011AFC: 4880                     ext.w   D0
011AFE: 48C0                     ext.l   D0
011B00: 2F00                     move.l  D0, -(A7)
011B02: 4EB9 0000 01B4           jsr     $1b4.l
011B08: 508F                     addq.l  #8, A7
011B0A: 5202                     addq.b  #1, D2
011B0C: 0C02 000A                cmpi.b  #$a, D2
011B10: 66E2                     bne     11af4
011B12: 4CDF 000C                movem.l (A7)+, D2-D3
011B16: 4E75                     rts
011B18: 4E56 FFF2                link    A6, #-$e
011B1C: 48E7 3F3C                movem.l D2-D7/A2-A5, -(A7)
011B20: 246E 0008                movea.l ($8,A6), A2
011B24: 287C 0000 0224           movea.l #$224, A4
011B2A: 2C3C 0040 039E           move.l  #$40039e, D6
011B30: 2A7C 0002 8FA0           movea.l #$28fa0, A5
011B36: 2A0D                     move.l  A5, D5
011B38: 2F2A 00BC                move.l  ($bc,A2), -(A7)
011B3C: 4EB9 0000 01C6           jsr     $1c6.l
011B42: 1800                     move.b  D0, D4
011B44: 0C04 000A                cmpi.b  #$a, D4
011B48: 588F                     addq.l  #4, A7
011B4A: 6606                     bne     11b52
011B4C: 7000                     moveq   #$0, D0
011B4E: 6000 04A0                bra     11ff0
011B52: 122A 0019                move.b  ($19,A2), D1
011B56: 4881                     ext.w   D1
011B58: 48C1                     ext.l   D1
011B5A: 2F01                     move.l  D1, -(A7)
011B5C: 4878 0006                pea     $6.w
011B60: 4EB9 0001 8CD2           jsr     $18cd2.l
011B66: 4A39 0040 03E8           tst.b   $4003e8.l
011B6C: 508F                     addq.l  #8, A7
011B6E: 670E                     beq     11b7e
011B70: 4879 0000 001A           pea     $1a.l
011B76: 4EB9 0001 58AC           jsr     $158ac.l
011B7C: 588F                     addq.l  #4, A7
011B7E: 1204                     move.b  D4, D1
011B80: 4881                     ext.w   D1
011B82: 48C1                     ext.l   D1
011B84: 2F01                     move.l  D1, -(A7)
011B86: 4EB9 0001 1FF8           jsr     $11ff8.l
011B8C: 5239 0040 03F0           addq.b  #1, $4003f0.l
011B92: 7002                     moveq   #$2, D0
011B94: B079 0040 0396           cmp.w   $400396.l, D0
011B9A: 588F                     addq.l  #4, A7
011B9C: 663C                     bne     11bda
011B9E: 4A2A 0019                tst.b   ($19,A2)
011BA2: 6708                     beq     11bac
011BA4: 203C 0000 2400           move.l  #$2400, D0
011BAA: 6006                     bra     11bb2
011BAC: 203C 0000 2000           move.l  #$2000, D0
011BB2: 2F00                     move.l  D0, -(A7)
011BB4: 4878 0004                pea     $4.w
011BB8: 4878 000C                pea     $c.w
011BBC: 102A 0019                move.b  ($19,A2), D0
011BC0: 4880                     ext.w   D0
011BC2: 48C0                     ext.l   D0
011BC4: E580                     asl.l   #2, D0
011BC6: 207C 0001 EEF0           movea.l #$1eef0, A0
011BCC: 2F30 0800                move.l  (A0,D0.l), -(A7)
011BD0: 4EB9 0002 86B0           jsr     $286b0.l
011BD6: 4FEF 0010                lea     ($10,A7), A7
011BDA: 1204                     move.b  D4, D1
011BDC: 4881                     ext.w   D1
011BDE: 48C1                     ext.l   D1
011BE0: 700D                     moveq   #$d, D0
011BE2: D280                     add.l   D0, D1
011BE4: 2F01                     move.l  D1, -(A7)
011BE6: 4878 000D                pea     $d.w
011BEA: 4E94                     jsr     (A4)
011BEC: 2040                     movea.l D0, A0
011BEE: 4200                     clr.b   D0
011BF0: 508F                     addq.l  #8, A7
011BF2: 4258                     clr.w   (A0)+
011BF4: 5200                     addq.b  #1, D0
011BF6: 0C00 0010                cmpi.b  #$10, D0
011BFA: 66F6                     bne     11bf2
011BFC: 47EE FFF2                lea     (-$e,A6), A3
011C00: 26AA 00BC                move.l  ($bc,A2), (A3)
011C04: 41EA 00C0                lea     ($c0,A2), A0
011C08: 2008                     move.l  A0, D0
011C0A: 43EB 0004                lea     ($4,A3), A1
011C0E: 2A40                     movea.l D0, A5
011C10: 12DD                     move.b  (A5)+, (A1)+
011C12: 40C7                     move    SR, D7
011C14: 200D                     move.l  A5, D0
011C16: 44C7                     move    D7, CCR
011C18: 66F4                     bne     11c0e
011C1A: 2279 0040 041E           movea.l $40041e.l, A1
011C20: 0C04 0009                cmpi.b  #$9, D4
011C24: 6704                     beq     11c2a
011C26: 12FC 0020                move.b  #$20, (A1)+
011C2A: 12FC 0023                move.b  #$23, (A1)+
011C2E: 0C04 0009                cmpi.b  #$9, D4
011C32: 660A                     bne     11c3e
011C34: 12FC 0031                move.b  #$31, (A1)+
011C38: 12FC 0030                move.b  #$30, (A1)+
011C3C: 600A                     bra     11c48
011C3E: 1004                     move.b  D4, D0
011C40: 0600 0030                addi.b  #$30, D0
011C44: 5200                     addq.b  #1, D0
011C46: 12C0                     move.b  D0, (A1)+
011C48: 12FC 0020                move.b  #$20, (A1)+
011C4C: 41EB 0004                lea     ($4,A3), A0
011C50: 2008                     move.l  A0, D0
011C52: 2A40                     movea.l D0, A5
011C54: 12DD                     move.b  (A5)+, (A1)+
011C56: 40C7                     move    SR, D7
011C58: 200D                     move.l  A5, D0
011C5A: 44C7                     move    D7, CCR
011C5C: 66F4                     bne     11c52
011C5E: 4878 1000                pea     $1000.w
011C62: 4878 0006                pea     $6.w
011C66: 4878 0006                pea     $6.w
011C6A: 2A45                     movea.l D5, A5
011C6C: 4E95                     jsr     (A5)
011C6E: 4878 1000                pea     $1000.w
011C72: 4878 0007                pea     $7.w
011C76: 4878 0006                pea     $6.w
011C7A: 4878 0013                pea     $13.w
011C7E: 42A7                     clr.l   -(A7)
011C80: 2F13                     move.l  (A3), -(A7)
011C82: 4EB9 0002 8EB2           jsr     $28eb2.l
011C88: 4878 1400                pea     $1400.w
011C8C: 4879 0002 2B76           pea     $22b76.l
011C92: 4EB9 0000 0142           jsr     $142.l
011C98: 4878 1400                pea     $1400.w
011C9C: 4879 0002 28EE           pea     $228ee.l
011CA2: 4EB9 0000 0142           jsr     $142.l
011CA8: 4202                     clr.b   D2
011CAA: 2A46                     movea.l D6, A5
011CAC: 3ABC 002D                move.w  #$2d, (A5)
011CB0: 2A46                     movea.l D6, A5
011CB2: 1B7C 0009 0002           move.b  #$9, ($2,A5)
011CB8: 2A46                     movea.l D6, A5
011CBA: 1B7C 0005 0004           move.b  #$5, ($4,A5)
011CC0: 4203                     clr.b   D3
011CC2: 1D43 FFFF                move.b  D3, (-$1,A6)
011CC6: 2279 0040 041E           movea.l $40041e.l, A1
011CCC: 1002                     move.b  D2, D0
011CCE: 4880                     ext.w   D0
011CD0: 41EB 0004                lea     ($4,A3), A0
011CD4: 12F0 0000                move.b  (A0,D0.w), (A1)+
011CD8: 4211                     clr.b   (A1)
011CDA: 4878 1400                pea     $1400.w
011CDE: 4878 0006                pea     $6.w
011CE2: 1202                     move.b  D2, D1
011CE4: 4881                     ext.w   D1
011CE6: 48C1                     ext.l   D1
011CE8: E381                     asl.l   #1, D1
011CEA: 700D                     moveq   #$d, D0
011CEC: D280                     add.l   D0, D1
011CEE: 2F01                     move.l  D1, -(A7)
011CF0: 2A45                     movea.l D5, A5
011CF2: 4E95                     jsr     (A5)
011CF4: 4239 0040 03AC           clr.b   $4003ac.l
011CFA: 4FEF 0040                lea     ($40,A7), A7
011CFE: 0C02 0003                cmpi.b  #$3, D2
011D02: 6C00 01F2                bge     11ef6
011D06: 70FF                     moveq   #-$1, D0
011D08: CD8D                     exg     D6, A5
011D0A: B055                     cmp.w   (A5), D0
011D0C: CD8D                     exg     D6, A5
011D0E: 6700 01E6                beq     11ef6
011D12: 4EB9 0002 8DEA           jsr     $28dea.l
011D18: 522E FFFF                addq.b  #1, (-$1,A6)
011D1C: 7001                     moveq   #$1, D0
011D1E: B079 0040 0396           cmp.w   $400396.l, D0
011D24: 6608                     bne     11d2e
011D26: 4EB9 0001 80BE           jsr     $180be.l
011D2C: 6010                     bra     11d3e
011D2E: 13EA 00C7 0040 06A8      move.b  ($c7,A2), $4006a8.l
011D36: 13EA 00C6 0040 06AA      move.b  ($c6,A2), $4006aa.l
011D3E: 1039 0040 06A8           move.b  $4006a8.l, D0
011D44: 4880                     ext.w   D0
011D46: 48C0                     ext.l   D0
011D48: 4480                     neg.l   D0
011D4A: 1200                     move.b  D0, D1
011D4C: 9239 0040 06AA           sub.b   $4006aa.l, D1
011D52: 1039 0040 06A8           move.b  $4006a8.l, D0
011D58: 4880                     ext.w   D0
011D5A: 48C0                     ext.l   D0
011D5C: 4480                     neg.l   D0
011D5E: D039 0040 06AA           add.b   $4006aa.l, D0
011D64: 1D42 FFFE                move.b  D2, (-$2,A6)
011D68: 0C2E 000A FFFF           cmpi.b  #$a, (-$1,A6)
011D6E: 6600 00CE                bne     11e3e
011D72: D001                     add.b   D1, D0
011D74: D600                     add.b   D0, D3
011D76: 422E FFFF                clr.b   (-$1,A6)
011D7A: 0C03 0020                cmpi.b  #$20, D3
011D7E: 6F02                     ble     11d82
011D80: 7620                     moveq   #$20, D3
011D82: 0C03 00E0                cmpi.b  #-$20, D3
011D86: 6C02                     bge     11d8a
011D88: 76E0                     moveq   #-$20, D3
011D8A: 1203                     move.b  D3, D1
011D8C: 4881                     ext.w   D1
011D8E: 48C1                     ext.l   D1
011D90: 2F01                     move.l  D1, -(A7)
011D92: 4EB9 0001 216A           jsr     $1216a.l
011D98: 720C                     moveq   #$c, D1
011D9A: B280                     cmp.l   D0, D1
011D9C: 588F                     addq.l  #4, A7
011D9E: 6C00 009E                bge     11e3e
011DA2: 1002                     move.b  D2, D0
011DA4: 4880                     ext.w   D0
011DA6: 41EB 0004                lea     ($4,A3), A0
011DAA: 1030 0000                move.b  (A0,D0.w), D0
011DAE: 4A03                     tst.b   D3
011DB0: 6F08                     ble     11dba
011DB2: 0403 000C                subi.b  #$c, D3
011DB6: 5200                     addq.b  #1, D0
011DB8: 6006                     bra     11dc0
011DBA: 0603 000C                addi.b  #$c, D3
011DBE: 5300                     subq.b  #1, D0
011DC0: 0C00 0009                cmpi.b  #$9, D0
011DC4: 6604                     bne     11dca
011DC6: 7020                     moveq   #$20, D0
011DC8: 6040                     bra     11e0a
011DCA: 0C00 0021                cmpi.b  #$21, D0
011DCE: 6604                     bne     11dd4
011DD0: 7041                     moveq   #$41, D0
011DD2: 6036                     bra     11e0a
011DD4: 0C00 005B                cmpi.b  #$5b, D0
011DD8: 660C                     bne     11de6
011DDA: 4A02                     tst.b   D2
011DDC: 6704                     beq     11de2
011DDE: 7008                     moveq   #$8, D0
011DE0: 6028                     bra     11e0a
011DE2: 7020                     moveq   #$20, D0
011DE4: 6024                     bra     11e0a
011DE6: 0C00 0007                cmpi.b  #$7, D0
011DEA: 6604                     bne     11df0
011DEC: 705A                     moveq   #$5a, D0
011DEE: 601A                     bra     11e0a
011DF0: 0C00 001F                cmpi.b  #$1f, D0
011DF4: 660C                     bne     11e02
011DF6: 4A02                     tst.b   D2
011DF8: 6704                     beq     11dfe
011DFA: 7008                     moveq   #$8, D0
011DFC: 600C                     bra     11e0a
011DFE: 705A                     moveq   #$5a, D0
011E00: 6008                     bra     11e0a
011E02: 0C00 0040                cmpi.b  #$40, D0
011E06: 6602                     bne     11e0a
011E08: 7020                     moveq   #$20, D0
011E0A: 2279 0040 041E           movea.l $40041e.l, A1
011E10: 1202                     move.b  D2, D1
011E12: 4881                     ext.w   D1
011E14: 41EB 0004                lea     ($4,A3), A0
011E18: 1180 1000                move.b  D0, (A0,D1.w)
011E1C: 12C0                     move.b  D0, (A1)+
011E1E: 4211                     clr.b   (A1)
011E20: 4878 1400                pea     $1400.w
011E24: 4878 0006                pea     $6.w
011E28: 1202                     move.b  D2, D1
011E2A: 4881                     ext.w   D1
011E2C: 48C1                     ext.l   D1
011E2E: E381                     asl.l   #1, D1
011E30: 700D                     moveq   #$d, D0
011E32: D280                     add.l   D0, D1
011E34: 2F01                     move.l  D1, -(A7)
011E36: 2A45                     movea.l D5, A5
011E38: 4E95                     jsr     (A5)
011E3A: 4FEF 000C                lea     ($c,A7), A7
011E3E: 1039 0040 03AC           move.b  $4003ac.l, D0
011E44: 4880                     ext.w   D0
011E46: 48C0                     ext.l   D0
011E48: 7203                     moveq   #$3, D1
011E4A: C081                     and.l   D1, D0
011E4C: 672A                     beq     11e78
011E4E: 4239 0040 03AC           clr.b   $4003ac.l
011E54: 1002                     move.b  D2, D0
011E56: 4880                     ext.w   D0
011E58: 41EB 0004                lea     ($4,A3), A0
011E5C: 0C30 0008 0000           cmpi.b  #$8, (A0,D0.w)
011E62: 6704                     beq     11e68
011E64: 5202                     addq.b  #1, D2
011E66: 6010                     bra     11e78
011E68: 1002                     move.b  D2, D0
011E6A: 4880                     ext.w   D0
011E6C: 41EB 0004                lea     ($4,A3), A0
011E70: 11BC 0020 0000           move.b  #$20, (A0,D0.w)
011E76: 5302                     subq.b  #1, D2
011E78: 1E2E FFFE                move.b  (-$2,A6), D7
011E7C: BE02                     cmp.b   D2, D7
011E7E: 6700 FE7E                beq     11cfe
011E82: 2279 0040 041E           movea.l $40041e.l, A1
011E88: 102E FFFE                move.b  (-$2,A6), D0
011E8C: 4880                     ext.w   D0
011E8E: 41EB 0004                lea     ($4,A3), A0
011E92: 12F0 0000                move.b  (A0,D0.w), (A1)+
011E96: 4211                     clr.b   (A1)
011E98: 4878 1000                pea     $1000.w
011E9C: 4878 0006                pea     $6.w
011EA0: 122E FFFE                move.b  (-$2,A6), D1
011EA4: 4881                     ext.w   D1
011EA6: 48C1                     ext.l   D1
011EA8: E381                     asl.l   #1, D1
011EAA: 700D                     moveq   #$d, D0
011EAC: D280                     add.l   D0, D1
011EAE: 2F01                     move.l  D1, -(A7)
011EB0: 2A45                     movea.l D5, A5
011EB2: 4E95                     jsr     (A5)
011EB4: 0C02 0003                cmpi.b  #$3, D2
011EB8: 4FEF 000C                lea     ($c,A7), A7
011EBC: 6C00 FE40                bge     11cfe
011EC0: 2279 0040 041E           movea.l $40041e.l, A1
011EC6: 1002                     move.b  D2, D0
011EC8: 4880                     ext.w   D0
011ECA: 41EB 0004                lea     ($4,A3), A0
011ECE: 12F0 0000                move.b  (A0,D0.w), (A1)+
011ED2: 4211                     clr.b   (A1)
011ED4: 4878 1400                pea     $1400.w
011ED8: 4878 0006                pea     $6.w
011EDC: 1202                     move.b  D2, D1
011EDE: 4881                     ext.w   D1
011EE0: 48C1                     ext.l   D1
011EE2: E381                     asl.l   #1, D1
011EE4: 700D                     moveq   #$d, D0
011EE6: D280                     add.l   D0, D1
011EE8: 2F01                     move.l  D1, -(A7)
011EEA: 2A45                     movea.l D5, A5
011EEC: 4E95                     jsr     (A5)
011EEE: 4FEF 000C                lea     ($c,A7), A7
011EF2: 6000 FE0A                bra     11cfe
011EF6: 2A46                     movea.l D6, A5
011EF8: 1B7C 00FF 0004           move.b  #$ff, ($4,A5)
011EFE: 43EB 0004                lea     ($4,A3), A1
011F02: 4202                     clr.b   D2
011F04: 0C11 0008                cmpi.b  #$8, (A1)
011F08: 6604                     bne     11f0e
011F0A: 12BC 0020                move.b  #$20, (A1)
011F0E: 5289                     addq.l  #1, A1
011F10: 5202                     addq.b  #1, D2
011F12: 0C02 0003                cmpi.b  #$3, D2
011F16: 66EC                     bne     11f04
011F18: 2F0B                     move.l  A3, -(A7)
011F1A: 1204                     move.b  D4, D1
011F1C: 4881                     ext.w   D1
011F1E: 48C1                     ext.l   D1
011F20: 2F01                     move.l  D1, -(A7)
011F22: 4EB9 0000 01B4           jsr     $1b4.l
011F28: 43EA 00C0                lea     ($c0,A2), A1
011F2C: 41EB 0004                lea     ($4,A3), A0
011F30: 2008                     move.l  A0, D0
011F32: 508F                     addq.l  #8, A7
011F34: 2A40                     movea.l D0, A5
011F36: 12DD                     move.b  (A5)+, (A1)+
011F38: 40C7                     move    SR, D7
011F3A: 200D                     move.l  A5, D0
011F3C: 44C7                     move    D7, CCR
011F3E: 66F4                     bne     11f34
011F40: 4878 0006                pea     $6.w
011F44: 42A7                     clr.l   -(A7)
011F46: 4E94                     jsr     (A4)
011F48: 2040                     movea.l D0, A0
011F4A: 4200                     clr.b   D0
011F4C: 508F                     addq.l  #8, A7
011F4E: 4258                     clr.w   (A0)+
011F50: 5200                     addq.b  #1, D0
011F52: 0C00 002A                cmpi.b  #$2a, D0
011F56: 66F6                     bne     11f4e
011F58: 4878 0007                pea     $7.w
011F5C: 42A7                     clr.l   -(A7)
011F5E: 4E94                     jsr     (A4)
011F60: 2040                     movea.l D0, A0
011F62: 4200                     clr.b   D0
011F64: 508F                     addq.l  #8, A7
011F66: 4258                     clr.w   (A0)+
011F68: 5200                     addq.b  #1, D0
011F6A: 0C00 002A                cmpi.b  #$2a, D0
011F6E: 66F6                     bne     11f66
011F70: 4879 0002 2B76           pea     $22b76.l
011F76: 4EB9 0000 0118           jsr     $118.l
011F7C: 4879 0002 28EE           pea     $228ee.l
011F82: 4EB9 0000 0118           jsr     $118.l
011F88: 42A7                     clr.l   -(A7)
011F8A: 4878 0013                pea     $13.w
011F8E: 4E94                     jsr     (A4)
011F90: 2040                     movea.l D0, A0
011F92: 4200                     clr.b   D0
011F94: 4FEF 0010                lea     ($10,A7), A7
011F98: 4258                     clr.w   (A0)+
011F9A: 5200                     addq.b  #1, D0
011F9C: 0C00 0004                cmpi.b  #$4, D0
011FA0: 66F6                     bne     11f98
011FA2: 4878 0001                pea     $1.w
011FA6: 4878 0013                pea     $13.w
011FAA: 4E94                     jsr     (A4)
011FAC: 2040                     movea.l D0, A0
011FAE: 4200                     clr.b   D0
011FB0: 508F                     addq.l  #8, A7
011FB2: 4258                     clr.w   (A0)+
011FB4: 5200                     addq.b  #1, D0
011FB6: 0C00 0004                cmpi.b  #$4, D0
011FBA: 66F6                     bne     11fb2
011FBC: 7002                     moveq   #$2, D0
011FBE: B079 0040 0396           cmp.w   $400396.l, D0
011FC4: 661A                     bne     11fe0
011FC6: 4878 0004                pea     $4.w
011FCA: 4878 000C                pea     $c.w
011FCE: 4E94                     jsr     (A4)
011FD0: 2040                     movea.l D0, A0
011FD2: 4200                     clr.b   D0
011FD4: 508F                     addq.l  #8, A7
011FD6: 4258                     clr.w   (A0)+
011FD8: 5200                     addq.b  #1, D0
011FDA: 0C00 0010                cmpi.b  #$10, D0
011FDE: 66F6                     bne     11fd6
011FE0: 2F3C FFFF FFFF           move.l  #$ffffffff, -(A7)
011FE6: 4EB9 0001 1FF8           jsr     $11ff8.l
011FEC: 7001                     moveq   #$1, D0
011FEE: 588F                     addq.l  #4, A7
011FF0: 4CDF 3CFC                movem.l (A7)+, D2-D7/A2-A5
011FF4: 4E5E                     unlk    A6
011FF6: 4E75                     rts

011FF8: 48E7 3C30                movem.l D2-D5/A2-A3, -(A7)
011FFC: 142F 001F                move.b  ($1f,A7), D2
012000: 267C 0040 0390           movea.l #$400390, A3
012006: 7801                     moveq   #$1, D4
012008: 247C 0001 EEA0           movea.l #$1eea0, A2     Default high score table
01200E: 4203                     clr.b   D3
012010: 1003                     move.b  D3, D0
012012: 4880                     ext.w   D0
012014: 48C0                     ext.l   D0
012016: 2F00                     move.l  D0, -(A7)
012018: 4EB9 0000 01AE           jsr     $1ae.l
01201E: 2240                     movea.l D0, A1
012020: 4205                     clr.b   D5
012022: 588F                     addq.l  #4, A7
012024: 1005                     move.b  D5, D0
012026: 4880                     ext.w   D0
012028: 41E9 0004                lea     ($4,A1), A0
01202C: 1030 0000                move.b  (A0,D0.w), D0
012030: 1205                     move.b  D5, D1
012032: 4881                     ext.w   D1
012034: 41EA 0004                lea     ($4,A2), A0
012038: B030 1000                cmp.b   (A0,D1.w), D0
01203C: 6702                     beq     12040
01203E: 4204                     clr.b   D4
012040: 5205                     addq.b  #1, D5
012042: 0C05 0003                cmpi.b  #$3, D5
012046: 66DC                     bne     12024
012048: 2011                     move.l  (A1), D0
01204A: B092                     cmp.l   (A2), D0
01204C: 6702                     beq     12050
01204E: 4204                     clr.b   D4
012050: 4A04                     tst.b   D4
012052: 6600 000C                bne     12060
012056: 508A                     addq.l  #8, A2
012058: 5203                     addq.b  #1, D3
01205A: 0C03 000A                cmpi.b  #$a, D3
01205E: 66B0                     bne     12010
012060: 4A04                     tst.b   D4
012062: 671A                 +-- beq     1207e
012064: 7002                 |   moveq   #$2, D0
012066: B053                 |   cmp.w   (A3), D0     
012068: 6714                 +-- beq     1207e
01206A: 4878 1400            |   pea     $1400.w
01206E: 4879 0002 28FA       |   pea     $228fa.l     pointer to pointer to "TROUBLEMAKERS"
012074: 4EB9 0000 0142       |   jsr     $142.l
01207A: 508F                 |   addq.l  #8, A7
01207C: 6026              +--|-- bra     120a4
01207E: 7002              |  +-> moveq   #$2, D0
012080: B053              |      cmp.w   (A3), D0
012082: 6604              |  +-- bne     12088
012084: 7003              |  |   moveq   #$3, D0
012086: 6002              | +|-- bra     1208a
012088: 7009              | |+-> moveq   #$9, D0
01208A: 4878 1400         | +--> pea     $1400.w
01208E: 2F00              |      move.l  D0, -(A7)
012090: 4878 000F         |      pea     $f.w
012094: 4879 0002 2EA2    |      pea     $22ea2.l      pointer to pointer to "HIGH ROLLERS"
01209A: 4EB9 0002 86B0    |      jsr     $286b0.l
0120A0: 4FEF 0010         |      lea     ($10,A7), A7
0120A4: 7002              +----> moveq   #$2, D0
0120A6: B053                     cmp.w   (A3), D0
0120A8: 6604                     bne     120ae
0120AA: 700D                     moveq   #$d, D0
0120AC: 6002                     bra     120b0

0120AE: 700B                     moveq   #$b, D0
0120B0: 1800                     move.b  D0, D4
0120B2: 4203                     clr.b   D3
0120B4: B602                     cmp.b   D2, D3
0120B6: 6F1C                     ble     120d4
0120B8: 0C02 00FF                cmpi.b  #-$1, D2
0120BC: 6716                     beq     120d4
0120BE: 1003                     move.b  D3, D0
0120C0: 4880                     ext.w   D0
0120C2: 48C0                     ext.l   D0
0120C4: 5380                     subq.l  #1, D0
0120C6: 2F00                     move.l  D0, -(A7)
0120C8: 4EB9 0000 01AE           jsr     $1ae.l
0120CE: 2440                     movea.l D0, A2
0120D0: 588F                     addq.l  #4, A7
0120D2: 6012                     bra     120e6

0120D4: 1003                     move.b  D3, D0
0120D6: 4880                     ext.w   D0
0120D8: 48C0                     ext.l   D0
0120DA: 2F00                     move.l  D0, -(A7)
0120DC: 4EB9 0000 01AE           jsr     $1ae.l
0120E2: 2440                     movea.l D0, A2
0120E4: 588F                     addq.l  #4, A7
0120E6: 2279 0040 041E           movea.l $40041e.l, A1
0120EC: 0C03 0009                cmpi.b  #$9, D3
0120F0: 6704                     beq     120f6
0120F2: 12FC 0020                move.b  #$20, (A1)+
0120F6: 12FC 0023                move.b  #$23, (A1)+
0120FA: 0C03 0009                cmpi.b  #$9, D3
0120FE: 660A                     bne     1210a
012100: 12FC 0031                move.b  #$31, (A1)+
012104: 12FC 0030                move.b  #$30, (A1)+
012108: 600A                     bra     12114
01210A: 1003                     move.b  D3, D0
01210C: 0600 0030                addi.b  #$30, D0
012110: 5200                     addq.b  #1, D0
012112: 12C0                     move.b  D0, (A1)+
012114: 12FC 0020                move.b  #$20, (A1)+
012118: 41EA 0004                lea     ($4,A2), A0
01211C: 12D8                     move.b  (A0)+, (A1)+
01211E: 66FC                     bne     1211c
012120: 4878 1000                pea     $1000.w
012124: 1004                     move.b  D4, D0
012126: 4880                     ext.w   D0
012128: 48C0                     ext.l   D0
01212A: 2F00                     move.l  D0, -(A7)
01212C: 4878 000D                pea     $d.w
012130: 4EB9 0002 8F62           jsr     $28f62.l
012136: 4878 1000                pea     $1000.w
01213A: 4878 0007                pea     $7.w
01213E: 1004                     move.b  D4, D0
012140: 4880                     ext.w   D0
012142: 48C0                     ext.l   D0
012144: 2F00                     move.l  D0, -(A7)
012146: 4878 0014                pea     $14.w
01214A: 42A7                     clr.l   -(A7)
01214C: 2F12                     move.l  (A2), -(A7)
01214E: 4EB9 0002 8E3C           jsr     $28e3c.l
012154: 5204                     addq.b  #1, D4
012156: 4FEF 0024                lea     ($24,A7), A7
01215A: 5203                     addq.b  #1, D3
01215C: 0C03 000A                cmpi.b  #$a, D3
012160: 6600 FF52                bne     120b4
012164: 4CDF 0C3C                movem.l (A7)+, D2-D5/A2-A3
012168: 4E75                     rts

01216A: 202F 0004                move.l  ($4,A7), D0
01216E: 6A02                     bpl     12172
012170: 4480                     neg.l   D0
012172: 4E75                     rts

012174: 41F9 00A0 0000           lea     $a00000.l, A0  ;Clear tilemap memory
01217A: 303C 07FF                move.w  #$7ff, D0
01217E: 4298                     clr.l   (A0)+
012180: 51C8 FFFC                dbra    D0, 1217e
012184: 4E75                     rts

012186: 41F9 00A0 0006           lea     $a00006.l, A0  ;Clear part of tilemap memory
01218C: 323C 003F                move.w  #$3f, D1
012190: 303C 0011                move.w  #$11, D0
012194: 4298                     clr.l   (A0)+
012196: 51C8 FFFC                dbra    D0, 12194
01219A: D1FC 0000 0038           adda.l  #$38, A0
0121A0: 51C9 FFEE                dbra    D1, 12190
0121A4: 4E75                     rts

0121A6: 41F9 00B0 0000           lea     $b00000.l, A0  ;Clear palette memory
0121AC: 303C 01FF                move.w  #$1ff, D0
0121B0: 4298                     clr.l   (A0)+
0121B2: 51C8 FFFC                dbra    D0, 121b0
0121B6: 4E75                     rts

0121B8: 48E7 3C38                movem.l D2-D5/A2-A4, -(A7)
0121BC: 246F 0020                movea.l ($20,A7), A2
0121C0: 267C 0001 BAB2           movea.l #$1bab2, A3    ;subroutine, not data
0121C6: 243C 0040 0692           move.l  #$400692, D2
0121CC: 287C 0040 03BA           movea.l #$4003ba, A4
0121D2: 203C 0040 1C28           move.l  #$401c28, D0
0121D8: 203C 0040 1C30           move.l  #$401c30, D0
0121DE: 203C 0040 1C38           move.l  #$401c38, D0
0121E4: 203C 0040 1C40           move.l  #$401c40, D0   ;nice coding, which did they want?
0121EA: 23EA 000C 0040 0684      move.l  ($c,A2), $400684.l
0121F2: 23EA 0010 0040 0688      move.l  ($10,A2), $400688.l
0121FA: 23EA 0014 0040 068C      move.l  ($14,A2), $40068c.l
012202: 2039 0040 0684           move.l  $400684.l, D0
012208: 7213                     moveq   #$13, D1
01220A: E2A0                     asr.l   D1, D0
01220C: 33C0 0040 069A           move.w  D0, $40069a.l
012212: 2039 0040 0688           move.l  $400688.l, D0
012218: 7213                     moveq   #$13, D1
01221A: E2A0                     asr.l   D1, D0
01221C: 33C0 0040 069C           move.w  D0, $40069c.l
012222: 7001                     moveq   #$1, D0
012224: B5FC 0040 0018           cmpa.l  #$400018, A2
01222A: 6700 000E                beq     1223a
01222E: B5FC 0040 00FA           cmpa.l  #$4000fa, A2
012234: 6700 0004                beq     1223a
012238: 4200                     clr.b   D0
01223A: 1600                     move.b  D0, D3
01223C: 70FF                     moveq   #-$1, D0
01223E: 33C0 0040 0698           move.w  D0, $400698.l
012244: 33C0 0040 0696           move.w  D0, $400696.l
01224A: 2F0A                     move.l  A2, -(A7)
01224C: 4E93                     jsr     (A3)     ;01BAB2
01224E: 42A7                     clr.l   -(A7)
012250: 4EB9 0001 CC62           jsr     $1cc62.l
012256: 90AA 0014                sub.l   ($14,A2), D0
01225A: 0C80 0010 0000           cmpi.l  #$100000, D0
012260: 508F                     addq.l  #8, A7
012262: 6F48                     ble     122ac
012264: 4A03                     tst.b   D3
012266: 672C                     beq     12294
012268: 4EB9 0001 5884           jsr     $15884.l
01226E: 4879 0000 0046           pea     $46.l
012274: 4EB9 0001 58AC           jsr     $158ac.l
01227A: 157C 0065 0057           move.b  #$65, ($57,A2)
012280: 4878 0004                pea     $4.w
012284: 2F0A                     move.l  A2, -(A7)
012286: 4EB9 0002 5BAE           jsr     $25bae.l
01228C: 4FEF 000C                lea     ($c,A7), A7
012290: 6000 0584                bra     12816
012294: 4878 0001                pea     $1.w
012298: 4878 0001                pea     $1.w
01229C: 2F0A                     move.l  A2, -(A7)
01229E: 4EB9 0001 5BD0           jsr     $15bd0.l
0122A4: 4FEF 000C                lea     ($c,A7), A7
0122A8: 6000 056C                bra     12816

0122AC: 2012                     move.l  (A2), D0
0122AE: D1AA 000C                add.l   D0, ($c,A2)
0122B2: 202A 0004                move.l  ($4,A2), D0
0122B6: D1AA 0010                add.l   D0, ($10,A2)
0122BA: 202A 0008                move.l  ($8,A2), D0
0122BE: D1AA 0014                add.l   D0, ($14,A2)
0122C2: 2F0A                     move.l  A2, -(A7)
0122C4: 4E93                     jsr     (A3)
0122C6: 4EB9 0001 C676           jsr     $1c676.l
0122CC: 2812                     move.l  (A2), D4
0122CE: 2A2A 0004                move.l  ($4,A2), D5
0122D2: 2242                     movea.l D2, A1
0122D4: 3211                     move.w  (A1), D1
0122D6: 9279 0040 0690           sub.w   $400690.l, D1
0122DC: 0641 0088                addi.w  #$88, D1
0122E0: 7004                     moveq   #$4, D0
0122E2: B041                     cmp.w   D1, D0
0122E4: 588F                     addq.l  #4, A7
0122E6: 6F06                     ble     122ee
0122E8: B885                     cmp.l   D5, D4
0122EA: 6E00 000C                bgt     122f8
0122EE: 0C41 011C                cmpi.w  #$11c, D1
0122F2: 6F34                     ble     12328
0122F4: BA84                     cmp.l   D4, D5
0122F6: 6F30                     ble     12328
0122F8: 2F0A                     move.l  A2, -(A7)
0122FA: 4EB9 0001 2886           jsr     $12886.l
012300: 2579 0040 0684 000C      move.l  $400684.l, ($c,A2)
012308: 2579 0040 0688 0010      move.l  $400688.l, ($10,A2)
012310: 2205                     move.l  D5, D1
012312: D284                     add.l   D4, D1
012314: E281                     asr.l   #1, D1
012316: 2001                     move.l  D1, D0
012318: D1AA 000C                add.l   D0, ($c,A2)
01231C: 2001                     move.l  D1, D0
01231E: D1AA 0010                add.l   D0, ($10,A2)
012322: 2F0A                     move.l  A2, -(A7)
012324: 4E93                     jsr     (A3)
012326: 508F                     addq.l  #8, A7
012328: 4200                     clr.b   D0
01232A: 13C0 0040 0668           move.b  D0, $400668.l
012330: 13C0 0040 0666           move.b  D0, $400666.l
012336: 2F0A                     move.l  A2, -(A7)
012338: 4EB9 0001 B5C2           jsr     $1b5c2.l
01233E: 4A39 0040 0666           tst.b   $400666.l
012344: 588F                     addq.l  #4, A7
012346: 6600 000A                bne     12352
01234A: 4A39 0040 0668           tst.b   $400668.l
012350: 6706                     beq     12358
012352: 2F0A                     move.l  A2, -(A7)
012354: 4E93                     jsr     (A3)
012356: 588F                     addq.l  #4, A7
012358: 4200                     clr.b   D0
01235A: 13C0 0040 0668           move.b  D0, $400668.l
012360: 13C0 0040 0666           move.b  D0, $400666.l
012366: 2F0A                     move.l  A2, -(A7)
012368: 4EB9 0002 9CCE           jsr     $29cce.l
01236E: 0C2A 000A 0058           cmpi.b  #$a, ($58,A2)
012374: 588F                     addq.l  #4, A7
012376: 6700 049E                beq     12816
01237A: 0C2A 0004 001A           cmpi.b  #$4, ($1a,A2)
012380: 6700 0494                beq     12816
012384: 4A39 0040 0666           tst.b   $400666.l
01238A: 6600 000A                bne     12396
01238E: 4A39 0040 0668           tst.b   $400668.l
012394: 6706                     beq     1239c
012396: 2F0A                     move.l  A2, -(A7)
012398: 4E93                     jsr     (A3)
01239A: 588F                     addq.l  #4, A7
01239C: 4200                     clr.b   D0
01239E: 13C0 0040 0668           move.b  D0, $400668.l
0123A4: 13C0 0040 0666           move.b  D0, $400666.l
0123AA: 2F0A                     move.l  A2, -(A7)
0123AC: 4EB9 0001 BC88           jsr     $1bc88.l
0123B2: 4A80                     tst.l   D0
0123B4: 588F                     addq.l  #4, A7
0123B6: 6706                     beq     123be
0123B8: 2F0A                     move.l  A2, -(A7)
0123BA: 4E93                     jsr     (A3)
0123BC: 588F                     addq.l  #4, A7
0123BE: 4A03                     tst.b   D3
0123C0: 6700 0064                beq     12426
0123C4: 2F0A                     move.l  A2, -(A7)
0123C6: 4EB9 0001 4E92           jsr     $14e92.l
0123CC: 4A80                     tst.l   D0
0123CE: 588F                     addq.l  #4, A7
0123D0: 6706                     beq     123d8
0123D2: 2F0A                     move.l  A2, -(A7)
0123D4: 4E93                     jsr     (A3)
0123D6: 588F                     addq.l  #4, A7
0123D8: 2F0A                     move.l  A2, -(A7)
0123DA: 4EB9 0001 75C8           jsr     $175c8.l
0123E0: 4A80                     tst.l   D0
0123E2: 588F                     addq.l  #4, A7
0123E4: 6706                     beq     123ec
0123E6: 2F0A                     move.l  A2, -(A7)
0123E8: 4E93                     jsr     (A3)
0123EA: 588F                     addq.l  #4, A7
0123EC: 2F0A                     move.l  A2, -(A7)
0123EE: 4EB9 0001 881C           jsr     $1881c.l
0123F4: 4A80                     tst.l   D0
0123F6: 588F                     addq.l  #4, A7
0123F8: 6706                     beq     12400
0123FA: 2F0A                     move.l  A2, -(A7)
0123FC: 4E93                     jsr     (A3)
0123FE: 588F                     addq.l  #4, A7
012400: 2F0A                     move.l  A2, -(A7)
012402: 4EB9 0001 924E           jsr     $1924e.l
012408: 2F0A                     move.l  A2, -(A7)
01240A: 4EB9 0001 9D94           jsr     $19d94.l
012410: 0C2A 000B 001A           cmpi.b  #$b, ($1a,A2)
012416: 508F                     addq.l  #8, A7
012418: 6700 03FC                beq     12816
01241C: 2F0A                     move.l  A2, -(A7)
01241E: 4EB9 0001 365C           jsr     $1365c.l
012424: 588F                     addq.l  #4, A7
012426: 42A7                     clr.l   -(A7)
012428: 4EB9 0001 CC62           jsr     $1cc62.l
01242E: 2800                     move.l  D0, D4
012430: 2F04                     move.l  D4, -(A7)
012432: 2F0A                     move.l  A2, -(A7)
012434: 4EB9 0001 60F6           jsr     $160f6.l
01243A: 202A 0014                move.l  ($14,A2), D0
01243E: 90B9 0040 068C           sub.l   $40068c.l, D0
012444: 4A80                     tst.l   D0
012446: 4FEF 000C                lea     ($c,A7), A7
01244A: 6C04                     bge     12450
01244C: 4480                     neg.l   D0
01244E: 4E71                     nop                   ;a nop and I didn't put it there!
012450: 0C80 0008 0000           cmpi.l  #$80000, D0
012456: 6F38                     ble     12490
012458: 4A2A 0058                tst.b   ($58,A2)
01245C: 6632                     bne     12490
01245E: 4AAA 0008                tst.l   ($8,A2)
012462: 6E2C                     bgt     12490
012464: 157C 0002 0036           move.b  #$2, ($36,A2)
01246A: 3579 0040 0696 002E      move.w  $400696.l, ($2e,A2)
012472: 3579 0040 0698 0030      move.w  $400698.l, ($30,A2)
01247A: 257C FFFF A000 0008      move.l  #$ffffa000, ($8,A2)
012482: 4879 0000 0045           pea     $45.l
012488: 4EB9 0001 58AC           jsr     $158ac.l
01248E: 588F                     addq.l  #4, A7
012490: 0C2A 0002 0036           cmpi.b  #$2, ($36,A2)
012496: 6600 025E                bne     126f6
01249A: B8AA 0014                cmp.l   ($14,A2), D4
01249E: 6D00 01FE                blt     1269e
0124A2: 422A 0036                clr.b   ($36,A2)
0124A6: 42AA 0008                clr.l   ($8,A2)
0124AA: 202A 002A                move.l  ($2a,A2), D0
0124AE: 9084                     sub.l   D4, D0
0124B0: 4A80                     tst.l   D0
0124B2: 6C04                     bge     124b8
0124B4: 4480                     neg.l   D0
0124B6: 4E71                     nop
0124B8: 720F                     moveq   #$f, D1
0124BA: E2A0                     asr.l   D1, D0
0124BC: 2544 0014                move.l  D4, ($14,A2)
0124C0: 3200                     move.w  D0, D1
0124C2: 48C1                     ext.l   D1
0124C4: 2F01                     move.l  D1, -(A7)
0124C6: 2F0A                     move.l  A2, -(A7)
0124C8: 4EB9 0002 5C74           jsr     $25c74.l
0124CE: 4879 0000 0046           pea     $46.l
0124D4: 4EB9 0001 58AC           jsr     $158ac.l
0124DA: 4879 0000 005D           pea     $5d.l
0124E0: 4EB9 0001 58AC           jsr     $158ac.l
0124E6: 7003                     moveq   #$3, D0
0124E8: B079 0040 0394           cmp.w   $400394.l, D0
0124EE: 4FEF 0010                lea     ($10,A7), A7
0124F2: 6616                     bne     1250a
0124F4: 0C2A 0004 001B           cmpi.b  #$4, ($1b,A2)
0124FA: 660E                     bne     1250a
0124FC: 4879 0000 0010           pea     $10.l
012502: 4EB9 0001 58AC           jsr     $158ac.l
012508: 588F                     addq.l  #4, A7
01250A: 4A79 0040 0394           tst.w   $400394.l
012510: 6600 01EE                bne     12700
012514: 0C2A 0001 001B           cmpi.b  #$1, ($1b,A2)
01251A: 6700 0016                beq     12532
01251E: 0C2A 0002 001B           cmpi.b  #$2, ($1b,A2)
012524: 6700 000C                beq     12532
012528: 0C2A 0003 001B           cmpi.b  #$3, ($1b,A2)
01252E: 6600 01D0                bne     12700
012532: 7AFF                     moveq   #-$1, D5
012534: 182A 0019                move.b  ($19,A2), D4
012538: 5204                     addq.b  #1, D4
01253A: 102A 0019                move.b  ($19,A2), D0
01253E: 4880                     ext.w   D0
012540: 48C0                     ext.l   D0
012542: E580                     asl.l   #2, D0
012544: 2200                     move.l  D0, D1
012546: D080                     add.l   D0, D0
012548: D081                     add.l   D1, D0
01254A: 207C 0040 098C           movea.l #$40098c, A0
012550: D1C0                     adda.l  D0, A0
012552: 0C2A 0001 001B           cmpi.b  #$1, ($1b,A2)
012558: 6658                     bne     125b2
01255A: 1014                     move.b  (A4), D0
01255C: 4880                     ext.w   D0
01255E: 48C0                     ext.l   D0
012560: 1204                     move.b  D4, D1
012562: 4881                     ext.w   D1
012564: 48C1                     ext.l   D1
012566: C081                     and.l   D1, D0
012568: 6648                     bne     125b2
01256A: 1004                     move.b  D4, D0
01256C: 8114                     or.b    D0, (A4)
01256E: 2242                     movea.l D2, A1
012570: 3A11                     move.w  (A1), D5
012572: 0445 01E8                subi.w  #$1e8, D5
012576: 30B9 0040 0690           move.w  $400690.l, (A0)
01257C: 2242                     movea.l D2, A1
01257E: 3151 0002                move.w  (A1), ($2,A0)
012582: 3179 0040 0694 0004      move.w  $400694.l, ($4,A0)
01258A: 4228 000A                clr.b   ($a,A0)
01258E: 2F08                     move.l  A0, -(A7)
012590: 4EB9 0001 8A1E           jsr     $18a1e.l
012596: 122A 0019                move.b  ($19,A2), D1
01259A: 4881                     ext.w   D1
01259C: 48C1                     ext.l   D1
01259E: 2F01                     move.l  D1, -(A7)
0125A0: 4878 002A                pea     $2a.w
0125A4: 4EB9 0001 8E6C           jsr     $18e6c.l
0125AA: 4FEF 000C                lea     ($c,A7), A7
0125AE: 6000 00C0                bra     12670

0125B2: 0C2A 0002 001B           cmpi.b  #$2, ($1b,A2)
0125B8: 6656                     bne     12610
0125BA: 1014                     move.b  (A4), D0
0125BC: 4880                     ext.w   D0
0125BE: 48C0                     ext.l   D0
0125C0: 1204                     move.b  D4, D1
0125C2: 4881                     ext.w   D1
0125C4: 48C1                     ext.l   D1
0125C6: C081                     and.l   D1, D0
0125C8: 6646                     bne     12610
0125CA: 1004                     move.b  D4, D0
0125CC: 8114                     or.b    D0, (A4)
0125CE: 2242                     movea.l D2, A1
0125D0: 3A11                     move.w  (A1), D5
0125D2: 0445 0238                subi.w  #$238, D5
0125D6: 30B9 0040 0690           move.w  $400690.l, (A0)
0125DC: 2242                     movea.l D2, A1
0125DE: 3151 0002                move.w  (A1), ($2,A0)
0125E2: 3179 0040 0694 0004      move.w  $400694.l, ($4,A0)
0125EA: 4228 000A                clr.b   ($a,A0)
0125EE: 2F08                     move.l  A0, -(A7)
0125F0: 4EB9 0001 8A1E           jsr     $18a1e.l
0125F6: 122A 0019                move.b  ($19,A2), D1
0125FA: 4881                     ext.w   D1
0125FC: 48C1                     ext.l   D1
0125FE: 2F01                     move.l  D1, -(A7)
012600: 4878 002A                pea     $2a.w
012604: 4EB9 0001 8E6C           jsr     $18e6c.l
01260A: 4FEF 000C                lea     ($c,A7), A7
01260E: 6060                     bra     12670

012610: 0C2A 0003 001B           cmpi.b  #$3, ($1b,A2)
012616: 6658                     bne     12670
012618: 1014                     move.b  (A4), D0
01261A: 4880                     ext.w   D0
01261C: 48C0                     ext.l   D0
01261E: 1204                     move.b  D4, D1
012620: 4881                     ext.w   D1
012622: 48C1                     ext.l   D1
012624: C081                     and.l   D1, D0
012626: 6648                     bne     12670
012628: 1004                     move.b  D4, D0
01262A: 8114                     or.b    D0, (A4)
01262C: 3A39 0040 0690           move.w  $400690.l, D5
012632: 0445 0210                subi.w  #$210, D5
012636: 30B9 0040 0690           move.w  $400690.l, (A0)
01263C: 2242                     movea.l D2, A1
01263E: 3151 0002                move.w  (A1), ($2,A0)
012642: 3179 0040 0694 0004      move.w  $400694.l, ($4,A0)
01264A: 117C 0001 000A           move.b  #$1, ($a,A0)
012650: 2F08                     move.l  A0, -(A7)
012652: 4EB9 0001 8A1E           jsr     $18a1e.l
012658: 122A 0019                move.b  ($19,A2), D1
01265C: 4881                     ext.w   D1
01265E: 48C1                     ext.l   D1
012660: 2F01                     move.l  D1, -(A7)
012662: 4878 002A                pea     $2a.w
012666: 4EB9 0001 8E6C           jsr     $18e6c.l
01266C: 4FEF 000C                lea     ($c,A7), A7
012670: 4A45                     tst.w   D5
012672: 6D06                     blt     1267a
012674: 3005                     move.w  D5, D0
012676: E440                     asr.w   #2, D0
012678: 3A00                     move.w  D0, D5
01267A: 5E45                     addq.w  #7, D5
01267C: 700D                     moveq   #$d, D0
01267E: B045                     cmp.w   D5, D0
012680: 6C02                     bge     12684
012682: 7A0D                     moveq   #$d, D5
012684: 7006                     moveq   #$6, D0
012686: B045                     cmp.w   D5, D0
012688: 6C00 0076                bge     12700
01268C: 3205                     move.w  D5, D1
01268E: 48C1                     ext.l   D1
012690: 2F01                     move.l  D1, -(A7)
012692: 2F0A                     move.l  A2, -(A7)
012694: 4EB9 0002 85B0           jsr     $285b0.l
01269A: 508F                     addq.l  #8, A7
01269C: 6062                     bra     12700

01269E: 202A 002A                move.l  ($2a,A2), D0
0126A2: 90AA 0014                sub.l   ($14,A2), D0
0126A6: 0C80 0080 0000           cmpi.l  #$800000, D0
0126AC: 6F52                     ble     12700
0126AE: 4A03                     tst.b   D3
0126B0: 672C                     beq     126de
0126B2: 4EB9 0001 5884           jsr     $15884.l
0126B8: 4879 0000 0046           pea     $46.l
0126BE: 4EB9 0001 58AC           jsr     $158ac.l
0126C4: 157C 0064 0057           move.b  #$64, ($57,A2)
0126CA: 4878 0004                pea     $4.w
0126CE: 2F0A                     move.l  A2, -(A7)
0126D0: 4EB9 0002 5BAE           jsr     $25bae.l
0126D6: 4FEF 000C                lea     ($c,A7), A7
0126DA: 6000 013A                bra     12816

0126DE: 4878 0001                pea     $1.w
0126E2: 4878 0001                pea     $1.w
0126E6: 2F0A                     move.l  A2, -(A7)
0126E8: 4EB9 0001 5BD0           jsr     $15bd0.l
0126EE: 4FEF 000C                lea     ($c,A7), A7
0126F2: 6000 0122                bra     12816
0126F6: 4A2A 0036                tst.b   ($36,A2)
0126FA: 6604                     bne     12700
0126FC: 2544 0014                move.l  D4, ($14,A2)
012700: 42A7                     clr.l   -(A7)
012702: 2F0A                     move.l  A2, -(A7)
012704: 4EB9 0001 B9CC           jsr     $1b9cc.l
01270A: 4A03                     tst.b   D3
01270C: 508F                     addq.l  #8, A7
01270E: 671A                     beq     1272a
012710: 0C2A 0001 001A           cmpi.b  #$1, ($1a,A2)
012716: 6712                     beq     1272a
012718: 0C2A 0005 001A           cmpi.b  #$5, ($1a,A2)
01271E: 670A                     beq     1272a
012720: 2F0A                     move.l  A2, -(A7)
012722: 4EB9 0001 C014           jsr     $1c014.l
012728: 588F                     addq.l  #4, A7
01272A: 2F0A                     move.l  A2, -(A7)
01272C: 4EB9 0001 281C           jsr     $1281c.l
012732: 2F0A                     move.l  A2, -(A7)
012734: 4EB9 0001 706C           jsr     $1706c.l
01273A: 4A2A 0036                tst.b   ($36,A2)
01273E: 508F                     addq.l  #8, A7
012740: 6600 00D4                bne     12816
012744: 102A 0058                move.b  ($58,A2), D0
012748: 0C00 002D                cmpi.b  #$2d, D0
01274C: 6700 0010                beq     1275e
012750: 0C00 002E                cmpi.b  #$2e, D0
012754: 6700 0008                beq     1275e
012758: 0C00 003B                cmpi.b  #$3b, D0
01275C: 6606                     bne     12764
01275E: 7002                     moveq   #$2, D0
012760: 6000 0084                bra     127e6
012764: 0C00 0038                cmpi.b  #$38, D0
012768: 6700 0010                beq     1277a
01276C: 0C00 0039                cmpi.b  #$39, D0
012770: 6700 0008                beq     1277a
012774: 0C00 003A                cmpi.b  #$3a, D0
012778: 6606                     bne     12780
01277A: 7004                     moveq   #$4, D0
01277C: 6000 0068                bra     127e6
012780: 0C00 002F                cmpi.b  #$2f, D0
012784: 6700 0010                beq     12796
012788: 0C00 0030                cmpi.b  #$30, D0
01278C: 6700 0008                beq     12796
012790: 0C00 0031                cmpi.b  #$31, D0
012794: 6604                     bne     1279a
012796: 7003                     moveq   #$3, D0
012798: 604C                     bra     127e6
01279A: 0C00 0010                cmpi.b  #$10, D0
01279E: 6700 0040                beq     127e0
0127A2: 0C00 0017                cmpi.b  #$17, D0
0127A6: 6700 0038                beq     127e0
0127AA: 0C00 0018                cmpi.b  #$18, D0
0127AE: 6700 0030                beq     127e0
0127B2: 0C00 0032                cmpi.b  #$32, D0
0127B6: 6700 0028                beq     127e0
0127BA: 0C00 0033                cmpi.b  #$33, D0
0127BE: 6700 0020                beq     127e0
0127C2: 0C00 0034                cmpi.b  #$34, D0
0127C6: 6700 0018                beq     127e0
0127CA: 0C00 0035                cmpi.b  #$35, D0
0127CE: 6700 0010                beq     127e0
0127D2: 0C00 0036                cmpi.b  #$36, D0
0127D6: 6700 0008                beq     127e0
0127DA: 0C00 0037                cmpi.b  #$37, D0
0127DE: 6604                     bne     127e4
0127E0: 70FF                     moveq   #-$1, D0
0127E2: 6002                     bra     127e6

0127E4: 4200                     clr.b   D0
0127E6: 0C00 00FF                cmpi.b  #-$1, D0
0127EA: 6712                     beq     127fe
0127EC: 1200                     move.b  D0, D1
0127EE: 4881                     ext.w   D1
0127F0: 48C1                     ext.l   D1
0127F2: 2F01                     move.l  D1, -(A7)
0127F4: 2F0A                     move.l  A2, -(A7)
0127F6: 4EB9 0002 5E7C           jsr     $25e7c.l
0127FC: 508F                     addq.l  #8, A7
0127FE: 4A03                     tst.b   D3
012800: 6714                     beq     12816
012802: 7001                     moveq   #$1, D0
012804: B079 0040 0390           cmp.w   $400390.l, D0  Game in attract mode?
01280A: 670A                     beq     12816
01280C: 2F0A                     move.l  A2, -(A7)
01280E: 4EB9 0002 5DF6           jsr     $25df6.l
012814: 588F                     addq.l  #4, A7
012816: 4CDF 1C3C                movem.l (A7)+, D2-D5/A2-A4
01281A: 4E75                     rts
01281C: 206F 0004                movea.l ($4,A7), A0
012820: 4228 001C                clr.b   ($1c,A0)
012824: 3028 0020                move.w  ($20,A0), D0
012828: 0240 FFFF                andi.w  #$ffff, D0
01282C: 3200                     move.w  D0, D1
01282E: 70F0                     moveq   #-$10, D0
012830: B041                     cmp.w   D1, D0
012832: 6C38                     bge     1286c
012834: 0C41 0100                cmpi.w  #$100, D1
012838: 6C32                     bge     1286c
01283A: 117C 0001 001C           move.b  #$1, ($1c,A0)
012840: 7201                     moveq   #$1, D1
012842: B1FC 0040 0018           cmpa.l  #$400018, A0
012848: 6700 000E                beq     12858
01284C: B1FC 0040 00FA           cmpa.l  #$4000fa, A0
012852: 6700 0004                beq     12858
012856: 4201                     clr.b   D1
012858: 7000                     moveq   #$0, D0
01285A: 4A01                     tst.b   D1
01285C: 57C0                     seq     D0
01285E: 4400                     neg.b   D0
012860: 2F00                     move.l  D0, -(A7)
012862: 2F08                     move.l  A0, -(A7)
012864: 4EB9 0002 64AA           jsr     $264aa.l
01286A: 508F                     addq.l  #8, A7
01286C: 4E75                     rts
01286E: 206F 0004                movea.l ($4,A7), A0
012872: 2210                     move.l  (A0), D1
012874: 2028 0004                move.l  ($4,A0), D0
012878: 4480                     neg.l   D0
01287A: 2080                     move.l  D0, (A0)
01287C: 2001                     move.l  D1, D0
01287E: 4480                     neg.l   D0
012880: 2140 0004                move.l  D0, ($4,A0)
012884: 4E75                     rts
012886: 206F 0004                movea.l ($4,A7), A0
01288A: 2010                     move.l  (A0), D0
01288C: 20A8 0004                move.l  ($4,A0), (A0)
012890: 2140 0004                move.l  D0, ($4,A0)
012894: 4E75                     rts
012896: 48E7 3C38                movem.l D2-D5/A2-A4, -(A7)
01289A: 246F 0020                movea.l ($20,A7), A2
01289E: 4201                     clr.b   D1
0128A0: 206A 0036                movea.l ($36,A2), A0
0128A4: 54AA 0036                addq.l  #2, ($36,A2)
0128A8: 3010                     move.w  (A0), D0
0128AA: 48C0                     ext.l   D0
0128AC: C18C                     exg     D0, A4
0128AE: B8FC 0000                cmpa.w  #$0, A4
0128B2: C18C                     exg     D0, A4
0128B4: 6D00 0484                blt     12d3a
0128B8: C18C                     exg     D0, A4
0128BA: B8FC 0012                cmpa.w  #$12, A4
0128BE: C18C                     exg     D0, A4
0128C0: 6E00 0478                bgt     12d3a
0128C4: 2840                     movea.l D0, A4
0128C6: 200C                     move.l  A4, D0
0128C8: 2840                     movea.l D0, A4
0128CA: D9C0                     adda.l  D0, A4
0128CC: 200C                     move.l  A4, D0
0128CE: 303B 0006                move.w  ($6,PC,D0.w), D0
0128D2: 4EFB 0002                jmp     ($2,PC,D0.w)
0128D6: 0026 0156                ori.b   #$56, -(A6)
0128DA: 019A                     bclr    D0, (A2)+
0128DC: 01E0                     bset    D0, -(A0)
0128DE: 0296 02B0 02D4           andi.l  #$2b002d4, (A6)
0128E4: 02EE                     dc.w $02ee; ILLEGAL            ; probably data as illegal ;-)
0128E6: 01F6 0312 0320           bset    D0, ([A6,D0.w*2],$320)
0128EC: 0332 033E 0356 036E 0396 btst    D1, ([$36e,A2],D0.w*2,$396)
0128F6: 0186                     bclr    D0, D6
0128F8: 03AE 03D2                bclr    D1, ($3d2,A6)
0128FC: 206A 0036                movea.l ($36,A2), A0
012900: 54AA 0036                addq.l  #2, ($36,A2)
012904: 3010                     move.w  (A0), D0
012906: 48C0                     ext.l   D0
012908: 7213                     moveq   #$13, D1
01290A: E3A0                     asl.l   D1, D0
01290C: 2540 000C                move.l  D0, ($c,A2)
012910: 206A 0036                movea.l ($36,A2), A0
012914: 54AA 0036                addq.l  #2, ($36,A2)
012918: 3010                     move.w  (A0), D0
01291A: 48C0                     ext.l   D0
01291C: 7213                     moveq   #$13, D1
01291E: E3A0                     asl.l   D1, D0
012920: 2540 0010                move.l  D0, ($10,A2)
012924: 206A 0036                movea.l ($36,A2), A0
012928: 54AA 0036                addq.l  #2, ($36,A2)
01292C: 3010                     move.w  (A0), D0
01292E: 48C0                     ext.l   D0
012930: 7210                     moveq   #$10, D1
012932: E3A0                     asl.l   D1, D0
012934: 2540 0014                move.l  D0, ($14,A2)
012938: 206A 0036                movea.l ($36,A2), A0
01293C: 54AA 0036                addq.l  #2, ($36,A2)
012940: 1568 0001 001E           move.b  ($1,A0), ($1e,A2)
012946: 206A 0036                movea.l ($36,A2), A0
01294A: 54AA 0036                addq.l  #2, ($36,A2)
01294E: 1568 0001 001F           move.b  ($1,A0), ($1f,A2)
012954: 257C 0002 0C14 0042      move.l  #$20c14, ($42,A2)
01295C: 0C2A 0001 001E           cmpi.b  #$1, ($1e,A2)
012962: 6636                     bne     1299a
012964: 206A 0036                movea.l ($36,A2), A0
012968: 54AA 0036                addq.l  #2, ($36,A2)
01296C: 3550 0026                move.w  (A0), ($26,A2)
012970: 206A 0036                movea.l ($36,A2), A0
012974: 54AA 0036                addq.l  #2, ($36,A2)
012978: 3550 0028                move.w  (A0), ($28,A2)
01297C: 206A 0036                movea.l ($36,A2), A0
012980: 2558 0046                move.l  (A0)+, ($46,A2)
012984: 2548 0036                move.l  A0, ($36,A2)
012988: 256A 0046 003E           move.l  ($46,A2), ($3e,A2)
01298E: 2F0A                     move.l  A2, -(A7)
012990: 4EB9 0001 3334           jsr     $13334.l
012996: 588F                     addq.l  #4, A7
012998: 6046                     bra     129e0
01299A: 257C 0002 0C14 003E      move.l  #$20c14, ($3e,A2)
0129A2: 122A 0019                move.b  ($19,A2), D1
0129A6: 4881                     ext.w   D1
0129A8: 48C1                     ext.l   D1
0129AA: 2F01                     move.l  D1, -(A7)
0129AC: 102A 001F                move.b  ($1f,A2), D0
0129B0: 4880                     ext.w   D0
0129B2: 48C0                     ext.l   D0
0129B4: 2F00                     move.l  D0, -(A7)
0129B6: 4EB9 0001 8E6C           jsr     $18e6c.l
0129BC: 0C2A 0006 001F           cmpi.b  #$6, ($1f,A2)
0129C2: 508F                     addq.l  #8, A7
0129C4: 661A                     bne     129e0
0129C6: 426A 0052                clr.w   ($52,A2)
0129CA: 357C 0500 0054           move.w  #$500, ($54,A2)
0129D0: 4239 0040 075E           clr.b   $40075e.l
0129D6: 5239 0040 075C           addq.b  #1, $40075c.l
0129DC: 422A 0025                clr.b   ($25,A2)
0129E0: 0C2A 0003 001F           cmpi.b  #$3, ($1f,A2)
0129E6: 663E                     bne     12a26
0129E8: 257C FFFF FE00 004E      move.l  #$fffffe00, ($4e,A2)
0129F0: 23FC 0002 11FE 0040 044A move.l  #$211fe, $40044a.l
0129FA: 13FC 0002 0040 0456      move.b  #$2, $400456.l
012A02: 23FC 0002 126E 0040 044E move.l  #$2126e, $40044e.l
012A0C: 13FC 0003 0040 0458      move.b  #$3, $400458.l
012A14: 23FC 0002 12B2 0040 0452 move.l  #$212b2, $400452.l
012A1E: 13FC 0003 0040 045A      move.b  #$3, $40045a.l
012A26: 7201                     moveq   #$1, D1
012A28: 6000 0310                bra     12d3a

012A2C: 206A 0036                movea.l ($36,A2), A0
012A30: 54AA 0036                addq.l  #2, ($36,A2)
012A34: 3550 001C                move.w  (A0), ($1c,A2)
012A38: 206A 0036                movea.l ($36,A2), A0
012A3C: 54AA 0036                addq.l  #2, ($36,A2)
012A40: 1568 0001 0021           move.b  ($1,A0), ($21,A2)
012A46: 256A 004A 003E           move.l  ($4a,A2), ($3e,A2)
012A4C: 422A 0020                clr.b   ($20,A2)
012A50: 157C 0001 001A           move.b  #$1, ($1a,A2)
012A56: 4201                     clr.b   D1
012A58: 6000 02E0                bra     12d3a
012A5C: 2012                     move.l  (A2), D0
012A5E: D1AA 000C                add.l   D0, ($c,A2)
012A62: 202A 0004                move.l  ($4,A2), D0
012A66: D1AA 0010                add.l   D0, ($10,A2)
012A6A: 7201                     moveq   #$1, D1
012A6C: 6000 02CC                bra     12d3a
012A70: 0C2A 000A 001F           cmpi.b  #$a, ($1f,A2)
012A76: 660E                     bne     12a86
012A78: 4879 0000 0060           pea     $60.l
012A7E: 4EB9 0001 58AC           jsr     $158ac.l
012A84: 588F                     addq.l  #4, A7
012A86: 206A 0036                movea.l ($36,A2), A0
012A8A: 54AA 0036                addq.l  #2, ($36,A2)
012A8E: 3550 001C                move.w  (A0), ($1c,A2)
012A92: 206A 0036                movea.l ($36,A2), A0
012A96: 54AA 0036                addq.l  #2, ($36,A2)
012A9A: 1568 0001 0023           move.b  ($1,A0), ($23,A2)
012AA0: 256A 0046 003E           move.l  ($46,A2), ($3e,A2)
012AA6: 422A 0022                clr.b   ($22,A2)
012AAA: 157C 0002 001A           move.b  #$2, ($1a,A2)
012AB0: 4201                     clr.b   D1
012AB2: 6000 0286                bra     12d3a

012AB6: 206A 0036                movea.l ($36,A2), A0
012ABA: 54AA 0036                addq.l  #2, ($36,A2)
012ABE: 3550 001C                move.w  (A0), ($1c,A2)
012AC2: 422A 001A                clr.b   ($1a,A2)
012AC6: 4201                     clr.b   D1
012AC8: 6000 0270                bra     12d3a
012ACC: 4202                     clr.b   D2
012ACE: 206A 0036                movea.l ($36,A2), A0
012AD2: 54AA 0036                addq.l  #2, ($36,A2)
012AD6: 3010                     move.w  (A0), D0
012AD8: 48C0                     ext.l   D0
012ADA: C18C                     exg     D0, A4
012ADC: B8FC 0000                cmpa.w  #$0, A4
012AE0: C18C                     exg     D0, A4
012AE2: 6600 0070                bne     12b54
012AE6: 267C 0040 0018           movea.l #$400018, A3
012AEC: 4203                     clr.b   D3
012AEE: 6000 0058                bra     12b48
012AF2: 0C2B 0001 0018           cmpi.b  #$1, ($18,A3)
012AF8: 6600 004C                bne     12b46
012AFC: 202B 000C                move.l  ($c,A3), D0
012B00: 90AA 000C                sub.l   ($c,A2), D0
012B04: 7213                     moveq   #$13, D1
012B06: E2A0                     asr.l   D1, D0
012B08: 3800                     move.w  D0, D4
012B0A: 202B 0010                move.l  ($10,A3), D0
012B0E: 90AA 0010                sub.l   ($10,A2), D0
012B12: 7213                     moveq   #$13, D1
012B14: E2A0                     asr.l   D1, D0
012B16: 3200                     move.w  D0, D1
012B18: 4A44                     tst.w   D4
012B1A: 6D20                     blt     12b3c
012B1C: 7003                     moveq   #$3, D0
012B1E: B044                     cmp.w   D4, D0
012B20: 6F1A                     ble     12b3c
012B22: 4A41                     tst.w   D1
012B24: 6D16                     blt     12b3c
012B26: 7003                     moveq   #$3, D0
012B28: B041                     cmp.w   D1, D0
012B2A: 6F10                     ble     12b3c
012B2C: 7401                     moveq   #$1, D2
012B2E: 4879 0000 0031           pea     $31.l
012B34: 4EB9 0001 58AC           jsr     $158ac.l
012B3A: 588F                     addq.l  #4, A7
012B3C: 2A0B                     move.l  A3, D5
012B3E: 0685 0000 00E2           addi.l  #$e2, D5
012B44: 2645                     movea.l D5, A3
012B46: 5203                     addq.b  #1, D3
012B48: 1003                     move.b  D3, D0
012B4A: 4880                     ext.w   D0
012B4C: B079 0040 0396           cmp.w   $400396.l, D0
012B52: 669E                     bne     12af2
012B54: 4A02                     tst.b   D2
012B56: 670A                     beq     12b62
012B58: 286A 0036                movea.l ($36,A2), A4
012B5C: 2554 0036                move.l  (A4), ($36,A2)
012B60: 6004                     bra     12b66
012B62: 54AA 0036                addq.l  #2, ($36,A2)
012B66: 7201                     moveq   #$1, D1
012B68: 6000 01D0                bra     12d3a
012B6C: 206A 0036                movea.l ($36,A2), A0
012B70: 54AA 0036                addq.l  #2, ($36,A2)
012B74: 1568 0001 0024           move.b  ($1,A0), ($24,A2)
012B7A: 256A 0036 002A           move.l  ($36,A2), ($2a,A2)
012B80: 7201                     moveq   #$1, D1
012B82: 6000 01B6                bra     12d3a
012B86: 4A2A 0024                tst.b   ($24,A2)
012B8A: 6712                     beq     12b9e
012B8C: 532A 0024                subq.b  #1, ($24,A2)
012B90: 4A2A 0024                tst.b   ($24,A2)
012B94: 670E                     beq     12ba4
012B96: 256A 002A 0036           move.l  ($2a,A2), ($36,A2)
012B9C: 6006                     bra     12ba4

012B9E: 256A 002A 0036           move.l  ($2a,A2), ($36,A2)
012BA4: 7201                     moveq   #$1, D1
012BA6: 6000 0192                bra     12d3a

012BAA: 206A 0036                movea.l ($36,A2), A0
012BAE: 54AA 0036                addq.l  #2, ($36,A2)
012BB2: 1568 0001 0025           move.b  ($1,A0), ($25,A2)
012BB8: 256A 0036 002E           move.l  ($36,A2), ($2e,A2)
012BBE: 7201                     moveq   #$1, D1
012BC0: 6000 0178                bra     12d3a

012BC4: 4A2A 0025                tst.b   ($25,A2)
012BC8: 6712                     beq     12bdc
012BCA: 532A 0025                subq.b  #1, ($25,A2)
012BCE: 4A2A 0025                tst.b   ($25,A2)
012BD2: 670E                     beq     12be2
012BD4: 256A 002E 0036           move.l  ($2e,A2), ($36,A2)
012BDA: 6006                     bra     12be2
012BDC: 256A 002E 0036           move.l  ($2e,A2), ($36,A2)
012BE2: 7201                     moveq   #$1, D1
012BE4: 6000 0154                bra     12d3a

012BE8: 206A 0036                movea.l ($36,A2), A0
012BEC: 2550 0036                move.l  (A0), ($36,A2)
012BF0: 7201                     moveq   #$1, D1
012BF2: 6000 0146                bra     12d3a

012BF6: 206A 0036                movea.l ($36,A2), A0
012BFA: 2558 0036                move.l  (A0)+, ($36,A2)
012BFE: 2548 0032                move.l  A0, ($32,A2)
012C02: 7201                     moveq   #$1, D1
012C04: 6000 0134                bra     12d3a

012C08: 256A 0032 0036           move.l  ($32,A2), ($36,A2)
012C0E: 7201                     moveq   #$1, D1
012C10: 6000 0128                bra     12d3a

012C14: 226A 0036                movea.l ($36,A2), A1
012C18: 2059                     movea.l (A1)+, A0
012C1A: 2548 0046                move.l  A0, ($46,A2)
012C1E: 2548 003E                move.l  A0, ($3e,A2)
012C22: 2549 0036                move.l  A1, ($36,A2)
012C26: 7201                     moveq   #$1, D1

012C28: 6000 0110                bra     12d3a
012C2C: 226A 0036                movea.l ($36,A2), A1
012C30: 2059                     movea.l (A1)+, A0
012C32: 2548 004A                move.l  A0, ($4a,A2)
012C36: 2548 003E                move.l  A0, ($3e,A2)
012C3A: 2549 0036                move.l  A1, ($36,A2)
012C3E: 7201                     moveq   #$1, D1
012C40: 6000 00F8                bra     12d3a

012C44: 206A 0036                movea.l ($36,A2), A0
012C48: 54AA 0036                addq.l  #2, ($36,A2)
012C4C: 3010                     move.w  (A0), D0
012C4E: 48C0                     ext.l   D0
012C50: E180                     asl.l   #8, D0
012C52: 2480                     move.l  D0, (A2)
012C54: 206A 0036                movea.l ($36,A2), A0
012C58: 54AA 0036                addq.l  #2, ($36,A2)
012C5C: 3010                     move.w  (A0), D0
012C5E: 48C0                     ext.l   D0
012C60: E180                     asl.l   #8, D0
012C62: 2540 0004                move.l  D0, ($4,A2)
012C66: 7201                     moveq   #$1, D1
012C68: 6000 00D0                bra     12d3a

012C6C: 42A7                     clr.l   -(A7)
012C6E: 4878 0001                pea     $1.w
012C72: 2F0A                     move.l  A2, -(A7)
012C74: 4EB9 0001 2F44           jsr     $12f44.l
012C7A: 4201                     clr.b   D1
012C7C: 4FEF 000C                lea     ($c,A7), A7
012C80: 6000 00B8                bra     12d3a

012C84: 206A 0036                movea.l ($36,A2), A0
012C88: 5588                     subq.l  #2, A0
012C8A: 2548 0032                move.l  A0, ($32,A2)
012C8E: 157C 0004 001A           move.b  #$4, ($1a,A2)
012C94: 206A 0036                movea.l ($36,A2), A0
012C98: 54AA 0036                addq.l  #2, ($36,A2)
012C9C: 1568 0001 001B           move.b  ($1,A0), ($1b,A2)
012CA2: 4201                     clr.b   D1
012CA4: 6000 0094                bra     12d3a

012CA8: 207C 0040 0018           movea.l #$400018, A0
012CAE: 7401                     moveq   #$1, D2
012CB0: 4203                     clr.b   D3
012CB2: 6040                     bra     12cf4
012CB4: 0C28 0001 0018           cmpi.b  #$1, ($18,A0)
012CBA: 662C                     bne     12ce8
012CBC: 102A 001B                move.b  ($1b,A2), D0
012CC0: B028 001B                cmp.b   ($1b,A0), D0
012CC4: 6700 0020                beq     12ce6
012CC8: 1028 001B                move.b  ($1b,A0), D0
012CCC: 4880                     ext.w   D0
012CCE: 48C0                     ext.l   D0
012CD0: 122A 001B                move.b  ($1b,A2), D1
012CD4: 4881                     ext.w   D1
012CD6: 48C1                     ext.l   D1
012CD8: 5281                     addq.l  #1, D1
012CDA: B081                     cmp.l   D1, D0
012CDC: 660A                     bne     12ce8
012CDE: 0C28 001E 001B           cmpi.b  #$1e, ($1b,A0)
012CE4: 6D02                     blt     12ce8
012CE6: 4202                     clr.b   D2
012CE8: 2A08                     move.l  A0, D5
012CEA: 0685 0000 00E2           addi.l  #$e2, D5
012CF0: 2045                     movea.l D5, A0
012CF2: 5203                     addq.b  #1, D3
012CF4: 1003                     move.b  D3, D0
012CF6: 4880                     ext.w   D0
012CF8: B079 0040 0396           cmp.w   $400396.l, D0
012CFE: 66B4                     bne     12cb4
012D00: 206A 0036                movea.l ($36,A2), A0
012D04: 4A02                     tst.b   D2
012D06: 672A                     beq     12d32
012D08: 2550 0036                move.l  (A0), ($36,A2)
012D0C: 122A 001B                move.b  ($1b,A2), D1
012D10: 4881                     ext.w   D1
012D12: 48C1                     ext.l   D1
012D14: 701E                     moveq   #$1e, D0
012D16: 9280                     sub.l   D0, D1
012D18: 2001                     move.l  D1, D0
012D1A: E580                     asl.l   #2, D0
012D1C: 207C 0001 EF5A           movea.l #$1ef5a, A0
012D22: 2070 0800                movea.l (A0,D0.l), A0
012D26: 4850                     pea     (A0)
012D28: 4EB9 0001 58AC           jsr     $158ac.l
012D2E: 588F                     addq.l  #4, A7
012D30: 6006                     bra     12d38

012D32: 5888                     addq.l  #4, A0
012D34: 2548 0036                move.l  A0, ($36,A2)
012D38: 7201                     moveq   #$1, D1
012D3A: 4A01                     tst.b   D1
012D3C: 6600 FB60                bne     1289e
012D40: 4CDF 1C3C                movem.l (A7)+, D2-D5/A2-A4
012D44: 4E75                     rts

012D46: 2F02                     move.l  D2, -(A7)
012D48: 242F 0008                move.l  ($8,A7), D2
012D4C: 4EB9 0001 2D6E           jsr     $12d6e.l
012D52: 2200                     move.l  D0, D1
012D54: 70FF                     moveq   #-$1, D0
012D56: B081                     cmp.l   D1, D0
012D58: 6710                     beq     12d6a
012D5A: 2F02                     move.l  D2, -(A7)
012D5C: 42A7                     clr.l   -(A7)
012D5E: 2F01                     move.l  D1, -(A7)
012D60: 4EB9 0001 2F44           jsr     $12f44.l
012D66: 4FEF 000C                lea     ($c,A7), A7
012D6A: 241F                     move.l  (A7)+, D2
012D6C: 4E75                     rts

012D6E: 2F02                     move.l  D2, -(A7)
012D70: 74FF                     moveq   #-$1, D2
012D72: 4201                     clr.b   D1
012D74: 1001                     move.b  D1, D0
012D76: 4880                     ext.w   D0
012D78: 48C0                     ext.l   D0
012D7A: E580                     asl.l   #2, D0
012D7C: 207C 0001 F016           movea.l #$1f016, A0
012D82: 2070 0800                movea.l (A0,D0.l), A0
012D86: 4A28 0018                tst.b   ($18,A0)
012D8A: 6614                     bne     12da0
012D8C: 1001                     move.b  D1, D0
012D8E: 4880                     ext.w   D0
012D90: 48C0                     ext.l   D0
012D92: E580                     asl.l   #2, D0
012D94: 207C 0001 F016           movea.l #$1f016, A0
012D9A: 2430 0800                move.l  (A0,D0.l), D2
012D9E: 6008                     bra     12da8
012DA0: 5201                     addq.b  #1, D1
012DA2: 0C01 0019                cmpi.b  #$19, D1
012DA6: 66CC                     bne     12d74
012DA8: 2002                     move.l  D2, D0
012DAA: 241F                     move.l  (A7)+, D2
012DAC: 4E75                     rts

012DAE: 2F02                     move.l  D2, -(A7)
012DB0: 206F 0008                movea.l ($8,A7), A0
012DB4: 4202                     clr.b   D2
012DB6: 227C 0040 0A9C           movea.l #$400a9c, A1
012DBC: 4201                     clr.b   D1
012DBE: 0C29 0001 0018           cmpi.b  #$1, ($18,A1)
012DC4: 661E                     bne     12de4
012DC6: 2028 0002                move.l  ($2,A0), D0
012DCA: B0A9 003A                cmp.l   ($3a,A1), D0
012DCE: 6700 0010                beq     12de0
012DD2: 4AA8 0002                tst.l   ($2,A0)
012DD6: 660C                     bne     12de4
012DD8: 0C29 000C 001F           cmpi.b  #$c, ($1f,A1)
012DDE: 6604                     bne     12de4
012DE0: 7401                     moveq   #$1, D2
012DE2: 600C                     bra     12df0

012DE4: 7056                     moveq   #$56, D0
012DE6: D3C0                     adda.l  D0, A1
012DE8: 5201                     addq.b  #1, D1
012DEA: 0C01 0019                cmpi.b  #$19, D1
012DEE: 66CE                     bne     12dbe
012DF0: 1002                     move.b  D2, D0
012DF2: 4880                     ext.w   D0
012DF4: 48C0                     ext.l   D0
012DF6: 241F                     move.l  (A7)+, D2
012DF8: 4E75                     rts

012DFA: 48E7 3830                movem.l D2-D4/A2-A3, -(A7)  Level specific stuff
012DFE: 142F 001B                move.b  ($1b,A7), D2
012E02: 162F 001F                move.b  ($1f,A7), D3
012E06: 3039 0040 0394           move.w  $400394.l, D0       Get current level
012E0C: E540                     asl.w   #2, D0
012E0E: 207C 0001 DEC0           movea.l #$1dec0, A0         Point to specific things
012E14: 2470 0000                movea.l (A0,D0.w), A2
012E18: 0C12 00FF                cmpi.b  #-$1, (A2)
012E1C: 6700 00C8                beq     12ee6
012E20: 2F0A                     move.l  A2, -(A7)
012E22: 4EB9 0001 2DAE           jsr     $12dae.l
012E28: 4A80                     tst.l   D0
012E2A: 588F                     addq.l  #4, A7
012E2C: 6600 00B2                bne     12ee0
012E30: B612                     cmp.b   (A2), D3
012E32: 6708                     beq     12e3c
012E34: B62A 0001                cmp.b   ($1,A2), D3
012E38: 6600 00A6                bne     12ee0
012E3C: B412                     cmp.b   (A2), D2
012E3E: 6D00 000A                blt     12e4a
012E42: B42A 0001                cmp.b   ($1,A2), D2
012E46: 6F00 0098                ble     12ee0
012E4A: 4AAA 0002                tst.l   ($2,A2)
012E4E: 665A                     bne     12eaa
012E50: 4878 0004                pea     $4.w
012E54: 4EB9 0001 3A98           jsr     $13a98.l
012E5A: E580                     asl.l   #2, D0
012E5C: E540                     asl.w   #2, D0
012E5E: 207C 0001 DED8           movea.l #$1ded8, A0    < point to 'no specific level' stuff
012E64: D0C0                     adda.w  D0, A0
012E66: 2648                     movea.l A0, A3
012E68: 4204                     clr.b   D4
012E6A: 588F                     addq.l  #4, A7
012E6C: 4EB9 0001 2D6E           jsr     $12d6e.l
012E72: 2200                     move.l  D0, D1
012E74: 2041                     movea.l D1, A0
012E76: 70FF                     moveq   #-$1, D0
012E78: B081                     cmp.l   D1, D0
012E7A: 6700 006A                beq     12ee6
012E7E: 1012                     move.b  (A2), D0
012E80: 4880                     ext.w   D0
012E82: 3140 0052                move.w  D0, ($52,A0)
012E86: 102A 0001                move.b  ($1,A2), D0
012E8A: 4880                     ext.w   D0
012E8C: 3140 0054                move.w  D0, ($54,A0)
012E90: 2F1B                     move.l  (A3)+, -(A7)
012E92: 42A7                     clr.l   -(A7)
012E94: 2F08                     move.l  A0, -(A7)
012E96: 4EB9 0001 2F44           jsr     $12f44.l
012E9C: 4FEF 000C                lea     ($c,A7), A7
012EA0: 5204                     addq.b  #1, D4
012EA2: 0C04 0004                cmpi.b  #$4, D4
012EA6: 6738                     beq     12ee0
012EA8: 60C2                     bra     12e6c
012EAA: 4EB9 0001 2D6E           jsr     $12d6e.l
012EB0: 2200                     move.l  D0, D1
012EB2: 2041                     movea.l D1, A0
012EB4: 70FF                     moveq   #-$1, D0
012EB6: B081                     cmp.l   D1, D0
012EB8: 6700 002C                beq     12ee6
012EBC: 1012                     move.b  (A2), D0
012EBE: 4880                     ext.w   D0
012EC0: 3140 0052                move.w  D0, ($52,A0)
012EC4: 102A 0001                move.b  ($1,A2), D0
012EC8: 4880                     ext.w   D0
012ECA: 3140 0054                move.w  D0, ($54,A0)
012ECE: 2F2A 0002                move.l  ($2,A2), -(A7)
012ED2: 42A7                     clr.l   -(A7)
012ED4: 2F08                     move.l  A0, -(A7)
012ED6: 4EB9 0001 2F44           jsr     $12f44.l
012EDC: 4FEF 000C                lea     ($c,A7), A7
012EE0: 5C8A                     addq.l  #6, A2
012EE2: 6000 FF34                bra     12e18
012EE6: 247C 0040 0A9C           movea.l #$400a9c, A2
012EEC: 4204                     clr.b   D4
012EEE: 4A2A 0018                tst.b   ($18,A2)
012EF2: 6700 003E                beq     12f32
012EF6: 1002                     move.b  D2, D0
012EF8: 4880                     ext.w   D0
012EFA: B06A 0052                cmp.w   ($52,A2), D0
012EFE: 660C                     bne     12f0c
012F00: 1003                     move.b  D3, D0
012F02: 4880                     ext.w   D0
012F04: B06A 0052                cmp.w   ($52,A2), D0
012F08: 6D00 0016                blt     12f20
012F0C: 1002                     move.b  D2, D0
012F0E: 4880                     ext.w   D0
012F10: B06A 0054                cmp.w   ($54,A2), D0
012F14: 661C                     bne     12f32
012F16: 1003                     move.b  D3, D0
012F18: 4880                     ext.w   D0
012F1A: B06A 0054                cmp.w   ($54,A2), D0
012F1E: 6F12                     ble     12f32
012F20: 42A7                     clr.l   -(A7)
012F22: 4878 0001                pea     $1.w
012F26: 2F0A                     move.l  A2, -(A7)
012F28: 4EB9 0001 2F44           jsr     $12f44.l
012F2E: 4FEF 000C                lea     ($c,A7), A7
012F32: 7056                     moveq   #$56, D0
012F34: D5C0                     adda.l  D0, A2
012F36: 5204                     addq.b  #1, D4
012F38: 0C04 0019                cmpi.b  #$19, D4
012F3C: 66B0                     bne     12eee
012F3E: 4CDF 0C1C                movem.l (A7)+, D2-D4/A2-A3
012F42: 4E75                     rts

012F44: 206F 0004                movea.l ($4,A7), A0
012F48: 102F 000B                move.b  ($b,A7), D0
012F4C: 222F 000C                move.l  ($c,A7), D1
012F50: 4880                     ext.w   D0
012F52: 48C0                     ext.l   D0
012F54: 2240                     movea.l D0, A1
012F56: B2FC 0000                cmpa.w  #$0, A1
012F5A: 6D00 0072                blt     12fce
012F5E: 6E02                     bgt     12f62
012F60: 600A                     bra     12f6c
012F62: B2FC 0001                cmpa.w  #$1, A1
012F66: 6600 0066                bne     12fce
012F6A: 6012                     bra     12f7e

012F6C: 2141 003A                move.l  D1, ($3a,A0)
012F70: 117C 0003 001A           move.b  #$3, ($1a,A0)
012F76: 117C 0001 0018           move.b  #$1, ($18,A0)
012F7C: 6050                     bra     12fce

012F7E: B1F9 0040 0974           cmpa.l  $400974.l, A0
012F84: 660E                     bne     12f94
012F86: 7000                     moveq   #$0, D0
012F88: 23C0 0040 0978           move.l  D0, $400978.l
012F8E: 23C0 0040 0974           move.l  D0, $400974.l
012F94: 4228 0018                clr.b   ($18,A0)
012F98: 4228 001A                clr.b   ($1a,A0)
012F9C: 0C28 0006 001F           cmpi.b  #$6, ($1f,A0)
012FA2: 6606                     bne     12faa
012FA4: 5339 0040 075C           subq.b  #1, $40075c.l
012FAA: 0C28 0001 001E           cmpi.b  #$1, ($1e,A0)
012FB0: 671C                     beq     12fce
012FB2: 1028 0019                move.b  ($19,A0), D0
012FB6: 4880                     ext.w   D0
012FB8: 48C0                     ext.l   D0
012FBA: 2F00                     move.l  D0, -(A7)
012FBC: 1028 001F                move.b  ($1f,A0), D0
012FC0: 4880                     ext.w   D0
012FC2: 48C0                     ext.l   D0
012FC4: 2F00                     move.l  D0, -(A7)
012FC6: 4EB9 0001 8F46           jsr     $18f46.l
012FCC: 508F                     addq.l  #8, A7
012FCE: 4E75                     rts

012FD0: 48E7 3800                movem.l D2-D4, -(A7)
012FD4: 7002                     moveq   #$2, D0
012FD6: B079 0040 0394           cmp.w   $400394.l, D0
012FDC: 6600 0056                bne     13034
012FE0: 207C 0040 0018           movea.l #$400018, A0
012FE6: 4202                     clr.b   D2
012FE8: 603E                     bra     13028

012FEA: 0C28 0001 0018           cmpi.b  #$1, ($18,A0)
012FF0: 662A                     bne     1301c
012FF2: 4A39 0040 075E           tst.b   $40075e.l
012FF8: 6722                     beq     1301c
012FFA: 0C28 000A 001B           cmpi.b  #$a, ($1b,A0)
013000: 6700 000A                beq     1300c
013004: 0C28 0009 001B           cmpi.b  #$9, ($1b,A0)
01300A: 6610                     bne     1301c
01300C: 4879 0001 D854           pea     $1d854.l
013012: 4EB9 0001 2D46           jsr     $12d46.l
013018: 588F                     addq.l  #4, A7
01301A: 6018                     bra     13034

01301C: 2808                     move.l  A0, D4
01301E: 0684 0000 00E2           addi.l  #$e2, D4
013024: 2044                     movea.l D4, A0
013026: 5202                     addq.b  #1, D2
013028: 1002                     move.b  D2, D0
01302A: 4880                     ext.w   D0
01302C: B079 0040 0396           cmp.w   $400396.l, D0 1/2 players
013032: 66B6                     bne     12fea

013034: 4A39 0040 075C           tst.b   $40075c.l
01303A: 6706                     beq     13042
01303C: 4EB9 0001 1AC2           jsr     $11ac2.l
013042: 263C 0040 0A9C           move.l  #$400a9c, D3
013048: 4202                     clr.b   D2
01304A: 2203                     move.l  D3, D1
01304C: 7056                     moveq   #$56, D0
01304E: D680                     add.l   D0, D3
013050: 2F01                     move.l  D1, -(A7)
013052: 4EB9 0001 3068           jsr     $13068.l
013058: 588F                     addq.l  #4, A7
01305A: 5202                     addq.b  #1, D2
01305C: 0C02 0019                cmpi.b  #$19, D2
013060: 66E8                     bne     1304a
013062: 4CDF 001C                movem.l (A7)+, D2-D4
013066: 4E75                     rts

013068: 48E7 383C                movem.l D2-D4/A2-A5, -(A7)
01306C: 246F 0020                movea.l ($20,A7), A2
013070: 267C 0040 0456           movea.l #$400456, A3
013076: 227C 0040 044A           movea.l #$40044a, A1
01307C: 287C 0001 2896           movea.l #$12896, A4
013082: 4A2A 0018                tst.b   ($18,A2)
013086: 6700 0252                beq     132da
01308A: 162A 001A                move.b  ($1a,A2), D3
01308E: 4202                     clr.b   D2
013090: 0C2A 0003 001F           cmpi.b  #$3, ($1f,A2)
013096: 6600 00AA                bne     13142
01309A: 5313                     subq.b  #1, (A3)
01309C: 4A13                     tst.b   (A3)
01309E: 6636                     bne     130d6
0130A0: 16BC 0002                move.b  #$2, (A3)
0130A4: 5891                     addq.l  #4, (A1)
0130A6: 2211                     move.l  (A1), D1
0130A8: 70FF                     moveq   #-$1, D0
0130AA: C38D                     exg     D1, A5
0130AC: B095                     cmp.l   (A5), D0
0130AE: C38D                     exg     D1, A5
0130B0: 6624                     bne     130d6
0130B2: 203C 0002 11F2           move.l  #$211f2, D0
0130B8: 2051                     movea.l (A1), A0
0130BA: 5988                     subq.l  #4, A0
0130BC: B090                     cmp.l   (A0), D0
0130BE: 660C                     bne     130cc
0130C0: 22BC 0002 121E           move.l  #$2121e, (A1)
0130C6: 0613 000F                addi.b  #$f, (A3)
0130CA: 600A                     bra     130d6
0130CC: 22BC 0002 11FE           move.l  #$211fe, (A1)
0130D2: 0613 001E                addi.b  #$1e, (A3)
0130D6: 5339 0040 0458           subq.b  #1, $400458.l
0130DC: 4A39 0040 0458           tst.b   $400458.l
0130E2: 6628                     bne     1310c
0130E4: 13FC 0003 0040 0458      move.b  #$3, $400458.l
0130EC: 58B9 0040 044E           addq.l  #4, $40044e.l
0130F2: 2239 0040 044E           move.l  $40044e.l, D1
0130F8: 70FF                     moveq   #-$1, D0
0130FA: C38D                     exg     D1, A5
0130FC: B095                     cmp.l   (A5), D0
0130FE: C38D                     exg     D1, A5
013100: 660A                     bne     1310c
013102: 23FC 0002 126E 0040 044E move.l  #$2126e, $40044e.l
01310C: 5339 0040 045A           subq.b  #1, $40045a.l
013112: 4A39 0040 045A           tst.b   $40045a.l
013118: 6628                     bne     13142
01311A: 13FC 0003 0040 045A      move.b  #$3, $40045a.l
013122: 58B9 0040 0452           addq.l  #4, $400452.l
013128: 2239 0040 0452           move.l  $400452.l, D1
01312E: 70FF                     moveq   #-$1, D0
013130: C38D                     exg     D1, A5
013132: B095                     cmp.l   (A5), D0
013134: C38D                     exg     D1, A5
013136: 660A                     bne     13142
013138: 23FC 0002 12B2 0040 0452 move.l  #$212b2, $400452.l
013142: 102A 001A                move.b  ($1a,A2), D0
013146: 4880                     ext.w   D0
013148: 48C0                     ext.l   D0
01314A: 2200                     move.l  D0, D1
01314C: C38D                     exg     D1, A5
01314E: BAFC 0000                cmpa.w  #$0, A5
013152: C38D                     exg     D1, A5
013154: 6D00 0152                blt     132a8
013158: C38D                     exg     D1, A5
01315A: BAFC 0004                cmpa.w  #$4, A5
01315E: C38D                     exg     D1, A5
013160: 6E00 0146                bgt     132a8
013164: 2A41                     movea.l D1, A5
013166: 220D                     move.l  A5, D1
013168: 2A41                     movea.l D1, A5
01316A: DBC1                     adda.l  D1, A5
01316C: 220D                     move.l  A5, D1
01316E: 323B 1006                move.w  ($6,PC,D1.w), D1
013172: 4EFB 1002                jmp     ($2,PC,D1.w)
013176: 002E 0060 00AE           ori.b   #$60, ($ae,A6)
01317C: 000A                     dc.w $000a; ILLEGAL
01317E: 0052 256A                ori.w   #$256a, (A2)
013182: 003A                     dc.w $003a; ILLEGAL
013184: 0036 203C 0002           ori.b   #$3c, ($2,A6,D0.w)
01318A: 0C14 2540                cmpi.b  #$40, (A4)
01318E: 004A                     dc.w $004a; ILLEGAL
013190: 2040                     movea.l D0, A0
013192: 2548 0046                move.l  A0, ($46,A2)
013196: 2548 003E                move.l  A0, ($3e,A2)
01319A: 2F0A                     move.l  A2, -(A7)
01319C: 4E94                     jsr     (A4)
01319E: 588F                     addq.l  #4, A7
0131A0: 6000 0106                bra     132a8
0131A4: 4A6A 001C                tst.w   ($1c,A2)
0131A8: 6718                     beq     131c2
0131AA: 536A 001C                subq.w  #1, ($1c,A2)
0131AE: 4A6A 001C                tst.w   ($1c,A2)
0131B2: 660E                     bne     131c2
0131B4: 0C2A 0001 0018           cmpi.b  #$1, ($18,A2)
0131BA: 6606                     bne     131c2
0131BC: 2F0A                     move.l  A2, -(A7)
0131BE: 4E94                     jsr     (A4)
0131C0: 588F                     addq.l  #4, A7
0131C2: 7401                     moveq   #$1, D2
0131C4: 6000 00E2                bra     132a8
0131C8: 257C 0002 0C14 003E      move.l  #$20c14, ($3e,A2)
0131D0: 7401                     moveq   #$1, D2
0131D2: 6000 00D4                bra     132a8
0131D6: 4A2A 0021                tst.b   ($21,A2)
0131DA: 6704                     beq     131e0
0131DC: 522A 0020                addq.b  #1, ($20,A2)
0131E0: 102A 0021                move.b  ($21,A2), D0
0131E4: B02A 0020                cmp.b   ($20,A2), D0
0131E8: 6634                     bne     1321e
0131EA: 422A 0020                clr.b   ($20,A2)
0131EE: 2012                     move.l  (A2), D0
0131F0: D1AA 000C                add.l   D0, ($c,A2)
0131F4: 202A 0004                move.l  ($4,A2), D0
0131F8: D1AA 0010                add.l   D0, ($10,A2)
0131FC: 2F0A                     move.l  A2, -(A7)
0131FE: 4EB9 0001 3334           jsr     $13334.l
013204: 2F0A                     move.l  A2, -(A7)
013206: 4EB9 0001 32E0           jsr     $132e0.l
01320C: 4A80                     tst.l   D0
01320E: 508F                     addq.l  #8, A7
013210: 6700 0096                beq     132a8
013214: 2F0A                     move.l  A2, -(A7)
013216: 4E94                     jsr     (A4)
013218: 588F                     addq.l  #4, A7
01321A: 6000 008C                bra     132a8
01321E: 7401                     moveq   #$1, D2
013220: 6000 0086                bra     132a8
013224: 4A2A 0023                tst.b   ($23,A2)
013228: 6704                     beq     1322e
01322A: 522A 0022                addq.b  #1, ($22,A2)
01322E: 102A 0023                move.b  ($23,A2), D0
013232: B02A 0022                cmp.b   ($22,A2), D0
013236: 6600 006E                bne     132a6
01323A: 422A 0022                clr.b   ($22,A2)
01323E: 0C2A 0006 001F           cmpi.b  #$6, ($1f,A2)
013244: 6614                     bne     1325a
013246: 522A 0025                addq.b  #1, ($25,A2)
01324A: 0C2A 001E 0025           cmpi.b  #$1e, ($25,A2)
013250: 6608                     bne     1325a
013252: 13FC 0001 0040 075E      move.b  #$1, $40075e.l
01325A: 0C2A 0019 001F           cmpi.b  #$19, ($1f,A2)
013260: 6626                     bne     13288
013262: 202A 003E                move.l  ($3e,A2), D0
013266: 90AA 0046                sub.l   ($46,A2), D0
01326A: E488                     lsr.l   #2, D0
01326C: 2800                     move.l  D0, D4
01326E: E28C                     lsr.l   #1, D4
013270: 2044                     movea.l D4, A0
013272: 33C8 0040 045C           move.w  A0, $40045c.l
013278: 3039 0040 045C           move.w  $40045c.l, D0
01327E: C1FC 0090                muls.w  #$90, D0
013282: 33C0 0040 045C           move.w  D0, $40045c.l
013288: 2F0A                     move.l  A2, -(A7)
01328A: 4EB9 0001 3334           jsr     $13334.l
013290: 2F0A                     move.l  A2, -(A7)
013292: 4EB9 0001 32E0           jsr     $132e0.l
013298: 4A80                     tst.l   D0
01329A: 508F                     addq.l  #8, A7
01329C: 670A                     beq     132a8
01329E: 2F0A                     move.l  A2, -(A7)
0132A0: 4E94                     jsr     (A4)
0132A2: 588F                     addq.l  #4, A7
0132A4: 6002                     bra     132a8
0132A6: 7401                     moveq   #$1, D2
0132A8: B62A 001A                cmp.b   ($1a,A2), D3
0132AC: 6716                     beq     132c4
0132AE: 0C2A 0001 001A           cmpi.b  #$1, ($1a,A2)
0132B4: 660E                     bne     132c4
0132B6: 4A2A 0021                tst.b   ($21,A2)
0132BA: 6608                     bne     132c4
0132BC: 162A 001A                move.b  ($1a,A2), D3
0132C0: 6000 FE80                bra     13142
0132C4: 0C2A 0001 001E           cmpi.b  #$1, ($1e,A2)
0132CA: 670E                     beq     132da
0132CC: 4A02                     tst.b   D2
0132CE: 670A                     beq     132da
0132D0: 2F0A                     move.l  A2, -(A7)
0132D2: 4EB9 0001 3334           jsr     $13334.l
0132D8: 588F                     addq.l  #4, A7
0132DA: 4CDF 3C1C                movem.l (A7)+, D2-D4/A2-A5
0132DE: 4E75                     rts
0132E0: 206F 0004                movea.l ($4,A7), A0
0132E4: 58A8 003E                addq.l  #4, ($3e,A0)
0132E8: 4A28 001E                tst.b   ($1e,A0)
0132EC: 6704                     beq     132f2
0132EE: 58A8 003E                addq.l  #4, ($3e,A0)
0132F2: 4201                     clr.b   D1
0132F4: 2268 003E                movea.l ($3e,A0), A1
0132F8: 70FF                     moveq   #-$1, D0
0132FA: B091                     cmp.l   (A1), D0
0132FC: 662E                     bne     1332c
0132FE: 7201                     moveq   #$1, D1
013300: 0C28 0002 001A           cmpi.b  #$2, ($1a,A0)
013306: 6608                     bne     13310
013308: 2168 0046 003E           move.l  ($46,A0), ($3e,A0)
01330E: 6006                     bra     13316
013310: 2168 004A 003E           move.l  ($4a,A0), ($3e,A0)
013316: 4A68 001C                tst.w   ($1c,A0)
01331A: 670E                     beq     1332a
01331C: 5368 001C                subq.w  #1, ($1c,A0)
013320: 4A68 001C                tst.w   ($1c,A0)
013324: 6706                     beq     1332c
013326: 4201                     clr.b   D1
013328: 6002                     bra     1332c
01332A: 4201                     clr.b   D1
01332C: 1001                     move.b  D1, D0
01332E: 4880                     ext.w   D0
013330: 48C0                     ext.l   D0
013332: 4E75                     rts
013334: 48E7 3030                movem.l D2-D3/A2-A3, -(A7)
013338: 246F 0014                movea.l ($14,A7), A2
01333C: 267C 0040 0692           movea.l #$400692, A3
013342: 227C 0040 0690           movea.l #$400690, A1
013348: 0C2A 0001 001E           cmpi.b  #$1, ($1e,A2)
01334E: 6700 000A                beq     1335a
013352: 0C2A 0002 001E           cmpi.b  #$2, ($1e,A2)
013358: 663E                     bne     13398
01335A: 206A 003E                movea.l ($3e,A2), A0
01335E: 70FF                     moveq   #-$1, D0
013360: B090                     cmp.l   (A0), D0
013362: 6700 00E2                beq     13446
013366: 0C2A 0002 001E           cmpi.b  #$2, ($1e,A2)
01336C: 6612                     bne     13380
01336E: 0C2A 0002 001A           cmpi.b  #$2, ($1a,A2)
013374: 670A                     beq     13380
013376: 0C2A 0001 001A           cmpi.b  #$1, ($1a,A2)
01337C: 6600 001A                bne     13398
013380: 23EA 003E 0040 0970      move.l  ($3e,A2), $400970.l
013388: 23CA 0040 0974           move.l  A2, $400974.l
01338E: 0C2A 0002 001E           cmpi.b  #$2, ($1e,A2)
013394: 6600 00B0                bne     13446
013398: 41EA 000C                lea     ($c,A2), A0
01339C: 3290                     move.w  (A0), (A1)
01339E: 41EA 0010                lea     ($10,A2), A0
0133A2: 3690                     move.w  (A0), (A3)
0133A4: 3613                     move.w  (A3), D3
0133A6: 9651                     sub.w   (A1), D3
0133A8: 0643 0088                addi.w  #$88, D3
0133AC: 41EA 0014                lea     ($14,A2), A0
0133B0: 3010                     move.w  (A0), D0
0133B2: 3439 0040 097E           move.w  $40097e.l, D2
0133B8: D440                     add.w   D0, D2
0133BA: 0642 0054                addi.w  #$54, D2
0133BE: 3013                     move.w  (A3), D0
0133C0: 48C0                     ext.l   D0
0133C2: 3211                     move.w  (A1), D1
0133C4: 48C1                     ext.l   D1
0133C6: D081                     add.l   D1, D0
0133C8: E280                     asr.l   #1, D0
0133CA: 9440                     sub.w   D0, D2
0133CC: 3002                     move.w  D2, D0
0133CE: 48C0                     ext.l   D0
0133D0: 2400                     move.l  D0, D2
0133D2: 0282 0000 FFFF           andi.l  #$ffff, D2
0133D8: 3003                     move.w  D3, D0
0133DA: 48C0                     ext.l   D0
0133DC: 2200                     move.l  D0, D1
0133DE: 7010                     moveq   #$10, D0
0133E0: E1A1                     asl.l   D0, D1
0133E2: D481                     add.l   D1, D2
0133E4: 2542 004E                move.l  D2, ($4e,A2)
0133E8: 0C2A 0006 001F           cmpi.b  #$6, ($1f,A2)
0133EE: 6612                     bne     13402
0133F0: 122A 0025                move.b  ($25,A2), D1
0133F4: 4881                     ext.w   D1
0133F6: 48C1                     ext.l   D1
0133F8: 2F01                     move.l  D1, -(A7)
0133FA: 4EB9 0001 D06A           jsr     $1d06a.l
013400: 588F                     addq.l  #4, A7
013402: 0C2A 0003 001F           cmpi.b  #$3, ($1f,A2)
013408: 6636                     bne     13440
01340A: 202A 003E                move.l  ($3e,A2), D0
01340E: 90AA 0046                sub.l   ($46,A2), D0
013412: E488                     lsr.l   #2, D0
013414: E288                     lsr.l   #1, D0
013416: 3200                     move.w  D0, D1
013418: 203C 0002 1192           move.l  #$21192, D0
01341E: B0AA 0046                cmp.l   ($46,A2), D0
013422: 6602                     bne     13426
013424: 5E41                     addq.w  #7, D1
013426: 3001                     move.w  D1, D0
013428: 207C 0001 DF18           movea.l #$1df18, A0
01342E: 1230 0000                move.b  (A0,D0.w), D1
013432: 4881                     ext.w   D1
013434: 48C1                     ext.l   D1
013436: 2F01                     move.l  D1, -(A7)
013438: 4EB9 0002 6B66           jsr     $26b66.l
01343E: 588F                     addq.l  #4, A7
013440: 256A 003E 0042           move.l  ($3e,A2), ($42,A2)
013446: 4CDF 0C0C                movem.l (A7)+, D2-D3/A2-A3
01344A: 4E75                     rts
01344C: 48E7 3F3C                movem.l D2-D7/A2-A5, -(A7)
013450: 267C 0040 0970           movea.l #$400970, A3
013456: 4A93                     tst.l   (A3)
013458: 6700 01FC                beq     13656
01345C: 3239 0040 0664           move.w  $400664.l, D1
013462: 48C1                     ext.l   D1
013464: 2F01                     move.l  D1, -(A7)
013466: 4EB9 0002 FFB8           jsr     $2ffb8.l
01346C: 2279 0040 0974           movea.l $400974.l, A1
013472: 0C29 0001 001E           cmpi.b  #$1, ($1e,A1)
013478: 588F                     addq.l  #4, A7
01347A: 6600 0194                bne     13610
01347E: 2053                     movea.l (A3), A0
013480: 2450                     movea.l (A0), A2
013482: 0C29 0019 001F           cmpi.b  #$19, ($1f,A1)
013488: 6606                     bne     13490
01348A: 7624                     moveq   #$24, D3
01348C: 781E                     moveq   #$1e, D4
01348E: 600C                     bra     1349c
013490: 1612                     move.b  (A2), D3
013492: 220A                     move.l  A2, D1
013494: 5281                     addq.l  #1, D1
013496: 2A41                     movea.l D1, A5
013498: 1815                     move.b  (A5), D4
01349A: 548A                     addq.l  #2, A2
01349C: 2039 0040 097C           move.l  $40097c.l, D0
0134A2: 2079 0040 0474           movea.l $400474.l, A0
0134A8: 3228 0010                move.w  ($10,A0), D1
0134AC: 48C1                     ext.l   D1
0134AE: 9081                     sub.l   D1, D0
0134B0: E680                     asr.l   #3, D0
0134B2: 3C00                     move.w  D0, D6
0134B4: 9C69 0028                sub.w   ($28,A1), D6
0134B8: 5346                     subq.w  #1, D6
0134BA: 3A06                     move.w  D6, D5
0134BC: 6C02                     bge     134c0
0134BE: 4245                     clr.w   D5
0134C0: 3006                     move.w  D6, D0
0134C2: 48C0                     ext.l   D0
0134C4: 4480                     neg.l   D0
0134C6: 3200                     move.w  D0, D1
0134C8: 6C02                     bge     134cc
0134CA: 4241                     clr.w   D1
0134CC: 1004                     move.b  D4, D0
0134CE: 4880                     ext.w   D0
0134D0: B045                     cmp.w   D5, D0
0134D2: 6F00 013C                ble     13610
0134D6: 7021                     moveq   #$21, D0
0134D8: B041                     cmp.w   D1, D0
0134DA: 6F00 0134                ble     13610
0134DE: 3039 0040 0000           move.w  $400000.l, D0
0134E4: 48C0                     ext.l   D0
0134E6: E680                     asr.l   #3, D0
0134E8: 3401                     move.w  D1, D2
0134EA: 48C2                     ext.l   D2
0134EC: 5382                     subq.l  #1, D2
0134EE: D082                     add.l   D2, D0
0134F0: ED80                     asl.l   #6, D0
0134F2: D080                     add.l   D0, D0
0134F4: 2200                     move.l  D0, D1
0134F6: 3029 0026                move.w  ($26,A1), D0
0134FA: 48C0                     ext.l   D0
0134FC: D080                     add.l   D0, D0
0134FE: 0680 00A0 0000           addi.l  #$a00000, D0
013504: 5C80                     addq.l  #6, D0
013506: D280                     add.l   D0, D1
013508: 2841                     movea.l D1, A4
01350A: CF8C                     exg     D7, A4
01350C: 0C87 00A0 0000           cmpi.l  #$a00000, D7
013512: CF8C                     exg     D7, A4
013514: 6C0A                     bge     13520
013516: 2E0C                     move.l  A4, D7
013518: 0687 0000 2000           addi.l  #$2000, D7
01351E: 2847                     movea.l D7, A4
013520: 1204                     move.b  D4, D1
013522: 4881                     ext.w   D1
013524: 9246                     sub.w   D6, D1
013526: 7021                     moveq   #$21, D0
013528: B041                     cmp.w   D1, D0
01352A: 6C02                     bge     1352e
01352C: 7221                     moveq   #$21, D1
01352E: D246                     add.w   D6, D1
013530: 1801                     move.b  D1, D4
013532: 9805                     sub.b   D5, D4
013534: 0C29 0019 001F           cmpi.b  #$19, ($1f,A1)
01353A: 6600 0088                bne     135c4
01353E: 2079 0002 BE14           movea.l $2be14.l, A0
013544: 300A                     move.w  A2, D0
013546: 48C0                     ext.l   D0
013548: 3405                     move.w  D5, D2
01354A: 48C2                     ext.l   D2
01354C: D082                     add.l   D2, D0
01354E: D080                     add.l   D0, D0
013550: 2200                     move.l  D0, D1
013552: D2A8 0004                add.l   ($4,A0), D1
013556: 2441                     movea.l D1, A2
013558: 3005                     move.w  D5, D0
01355A: 48C0                     ext.l   D0
01355C: 2200                     move.l  D0, D1
01355E: 2428 002A                move.l  ($2a,A0), D2
013562: 704E                     moveq   #$4e, D0
013564: D480                     add.l   D0, D2
013566: D282                     add.l   D2, D1
013568: 2601                     move.l  D1, D3
01356A: 4202                     clr.b   D2
01356C: 6050                     bra     135be
01356E: CF8C                     exg     D7, A4
013570: 0C87 00A0 1FFF           cmpi.l  #$a01fff, D7
013576: CF8C                     exg     D7, A4
013578: 6F0A                     ble     13584
01357A: 2E0C                     move.l  A4, D7
01357C: 0487 0000 2000           subi.l  #$2000, D7
013582: 2847                     movea.l D7, A4
013584: 2003                     move.l  D3, D0
013586: 5283                     addq.l  #1, D3
013588: 7200                     moveq   #$0, D1
01358A: 2A40                     movea.l D0, A5
01358C: 1215                     move.b  (A5), D1
01358E: 0681 0002 BE18           addi.l  #$2be18, D1
013594: 2A01                     move.l  D1, D5
013596: 321A                     move.w  (A2)+, D1
013598: 48C1                     ext.l   D1
01359A: 0681 0008 00E4           addi.l  #$800e4, D1
0135A0: 2001                     move.l  D1, D0
0135A2: 2F05                     move.l  D5, -(A7)
0135A4: 2F00                     move.l  D0, -(A7)
0135A6: 2F0C                     move.l  A4, -(A7)
0135A8: 4EB9 0001 A668           jsr     $1a668.l
0135AE: 2E0C                     move.l  A4, D7
0135B0: 0687 0000 0080           addi.l  #$80, D7
0135B6: 2847                     movea.l D7, A4
0135B8: 4FEF 000C                lea     ($c,A7), A7
0135BC: 5202                     addq.b  #1, D2
0135BE: B404                     cmp.b   D4, D2
0135C0: 6748                     beq     1360a
0135C2: 60AA                     bra     1356e
0135C4: 1003                     move.b  D3, D0
0135C6: 4880                     ext.w   D0
0135C8: C1C5                     muls.w  D5, D0
0135CA: 2200                     move.l  D0, D1
0135CC: D281                     add.l   D1, D1
0135CE: D5C1                     adda.l  D1, A2
0135D0: 4202                     clr.b   D2
0135D2: 6032                     bra     13606
0135D4: CF8C             +-----> exg     D7, A4
0135D6: 0C87 00A0 1FFF   |       cmpi.l  #$a01fff, D7
0135DC: CF8C             |       exg     D7, A4
0135DE: 6F0A             |       ble     135ea
0135E0: 2E0C             |       move.l  A4, D7
0135E2: 0487 0000 2000   |       subi.l  #$2000, D7
0135E8: 2847             |       movea.l D7, A4
0135EA: 4200             |       clr.b   D0
0135EC: 6004             |   +-  bra     135f2
0135EE: 38DA             | +-|-> move.w  (A2)+, (A4)+   Copys data from ROM to playfield 
0135F0: 5200             | | |   addq.b  #1, D0         (level 1 ramp)
0135F2: B003             | | +-> cmp.b   D3, D0         Block is 0A wide, 06 high, stored 
0135F4: 66F8             | +---- bne     135ee          16658 onwards
0135F6: 7240             |       moveq   #$40, D1
0135F8: 1003             |       move.b  D3, D0
0135FA: 4880             |       ext.w   D0
0135FC: 48C0             |       ext.l   D0
0135FE: 9280             |       sub.l   D0, D1
013600: D281             |       add.l   D1, D1
013602: D9C1             |       adda.l  D1, A4
013604: 5202             |       addq.b  #1, D2
013606: B404             |       cmp.b   D4, D2
013608: 66CA             +------ bne     135d4
01360A: 23D3 0040 0978           move.l  (A3), $400978.l A3=400970=pointer address
013610: 2213                     move.l  (A3), D1
013612: 5881                     addq.l  #4, D1         D1=physics pointer
013614: 2A41                     movea.l D1, A5         A5 points to physics pointer
013616: 2455                     movea.l (A5), A2       A2 points to physics data
013618: CF8A                     exg     D7, A2
01361A: 4A87                     tst.l   D7
01361C: CF8A                     exg     D7, A2         
01361E: 6722                     beq     13642
013620: 301A                     move.w  (A2)+, D0
013622: 48C0                     ext.l   D0
013624: D080                     add.l   D0, D0
013626: 2200                     move.l  D0, D1
013628: 0681 0040 076E           addi.l  #$40076e, D1
01362E: 2841                     movea.l D1, A4
013630: 321A                     move.w  (A2)+, D1
013632: 4202                     clr.b   D2
013634: 6004                 +-- bra     1363a
013636: 38DA               +-|-> move.w  (A2)+, (A4)+   Move physics data to RAM
013638: 5202               | |   addq.b  #1, D2
01363A: 1002               | +-> move.b  D2, D0
01363C: 4880               |     ext.w   D0
01363E: B041               |     cmp.w   D1, D0         All done?
013640: 66F4               +---- bne     13636
013642: 4293                     clr.l   (A3)
013644: 3239 0040 0662           move.w  $400662.l, D1
01364A: 48C1                     ext.l   D1
01364C: 2F01                     move.l  D1, -(A7)
01364E: 4EB9 0002 FFB8           jsr     $2ffb8.l
013654: 588F                     addq.l  #4, A7
013656: 4CDF 3CFC                movem.l (A7)+, D2-D7/A2-A5
01365A: 4E75                     rts

01365C: 4E56 FFF4                link    A6, #-$c
013660: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
013664: 246E 0008                movea.l ($8,A6), A2
013668: 267C 0040 0394           movea.l #$400394, A3       
01366E: 3013                     move.w  (A3), D0           Current Level
013670: E540                     asl.w   #2, D0
013672: 207C 0001 EB16           movea.l #$1eb16, A0
013678: 2030 0000                move.l  (A0,D0.w), D0      Point to correct data for level
01367C: 5D80                     subq.l  #6, D0
01367E: 2040                     movea.l D0, A0
013680: 3279 0040 0696           movea.w $400696.l, A1
013686: 3879 0040 0698           movea.w $400698.l, A4
01368C: 3D79 0040 069A FFF4      move.w  $40069a.l, (-$c,A6)
013694: 3D79 0040 069C FFF6      move.w  $40069c.l, (-$a,A6)
01369C: B2EE FFF4                cmpa.w  (-$c,A6), A1
0136A0: 6608                     bne     136aa
0136A2: B8EE FFF6                cmpa.w  (-$a,A6), A4
0136A6: 6700 02B6                beq     1395e
0136AA: 142A 001B                move.b  ($1b,A2), D2       Current zone
0136AE: 5C88                     addq.l  #6, A0
0136B0: 1A10                     move.b  (A0), D5
0136B2: 4885                     ext.w   D5
0136B4: 1C28 0001                move.b  ($1,A0), D6
0136B8: 4886                     ext.w   D6
0136BA: 1228 0002                move.b  ($2,A0), D1
0136BE: 4881                     ext.w   D1
0136C0: 4203                     clr.b   D3
0136C2: 4A46                     tst.w   D6
0136C4: 6C08                     bge     136ce
0136C6: 7000                     moveq   #$0, D0
0136C8: 3006                     move.w  D6, D0
0136CA: 4480                     neg.l   D0
0136CC: 6004                     bra     136d2
0136CE: 7000                     moveq   #$0, D0
0136D0: 3006                     move.w  D6, D0
0136D2: 3C00                     move.w  D0, D6
0136D4: 3D46 FFF8                move.w  D6, (-$8,A6)
0136D8: 4A45                     tst.w   D5
0136DA: 6C28                     bge     13704
0136DC: 7601                     moveq   #$1, D3
0136DE: 4A45                     tst.w   D5
0136E0: 6C08                     bge     136ea
0136E2: 7000                     moveq   #$0, D0
0136E4: 3005                     move.w  D5, D0
0136E6: 4480                     neg.l   D0
0136E8: 6004                     bra     136ee
0136EA: 7000                     moveq   #$0, D0
0136EC: 3005                     move.w  D5, D0
0136EE: 3D40 FFF8                move.w  D0, (-$8,A6)
0136F2: 3A2E FFF8                move.w  (-$8,A6), D5
0136F6: BC4C                     cmp.w   A4, D6
0136F8: 6716                     beq     13710
0136FA: BC6E FFF6                cmp.w   (-$a,A6), D6
0136FE: 6710                     beq     13710
013700: 6000 0248                bra     1394a
013704: BA49                     cmp.w   A1, D5
013706: 6708                     beq     13710
013708: BA6E FFF4                cmp.w   (-$c,A6), D5
01370C: 6600 023C                bne     1394a
013710: 4200                     clr.b   D0
013712: 1800                     move.b  D0, D4
013714: 3D6E FFF8 FFFA           move.w  (-$8,A6), (-$6,A6)
01371A: 6046                     bra     13762
01371C: 3D6E FFFA FFFE           move.w  (-$6,A6), (-$2,A6)
013722: 3D6E FFFE FFFC           move.w  (-$2,A6), (-$4,A6)
013728: 4A03                     tst.b   D3
01372A: 6706                     beq     13732
01372C: 3D46 FFFC                move.w  D6, (-$4,A6)
013730: 6004                     bra     13736
013732: 3D45 FFFE                move.w  D5, (-$2,A6)
013736: 3E2E FFFE                move.w  (-$2,A6), D7
01373A: BE49                     cmp.w   A1, D7
01373C: 660A                     bne     13748
01373E: 3E2E FFFC                move.w  (-$4,A6), D7
013742: BE4C                     cmp.w   A4, D7
013744: 6602                     bne     13748
013746: 7801                     moveq   #$1, D4
013748: 3E2E FFFE                move.w  (-$2,A6), D7
01374C: BE6E FFF4                cmp.w   (-$c,A6), D7
013750: 660C                     bne     1375e
013752: 3E2E FFFC                move.w  (-$4,A6), D7
013756: BE6E FFF6                cmp.w   (-$a,A6), D7
01375A: 6602                     bne     1375e
01375C: 7001                     moveq   #$1, D0
01375E: 526E FFFA                addq.w  #1, (-$6,A6)
013762: 3E2E FFFA                move.w  (-$6,A6), D7
013766: BE41                     cmp.w   D1, D7
013768: 6FB2                     ble     1371c
01376A: 7200                     moveq   #$0, D1
01376C: 4A04                     tst.b   D4
01376E: 57C1                     seq     D1
013770: 4401                     neg.b   D1
013772: 4880                     ext.w   D0
013774: 48C0                     ext.l   D0
013776: C280                     and.l   D0, D1
013778: 6700 01D0                beq     1394a
01377C: 4A03                     tst.b   D3
01377E: 6706                     beq     13786
013780: B8C6                     cmpa.w  D6, A4
013782: 6F08                     ble     1378c
013784: 600E                     bra     13794
013786: B2C5                     cmpa.w  D5, A1
013788: 6E00 000A                bgt     13794
01378C: 1568 0003 001B           move.b  ($3,A0), ($1b,A2)
013792: 6006                     bra     1379a
013794: 1568 0004 001B           move.b  ($4,A0), ($1b,A2)
01379A: 0C2A 00FF 001B           cmpi.b  #-$1, ($1b,A2)
0137A0: 6600 00DE                bne     13880
0137A4: 0C39 00FF 0040 03A4      cmpi.b  #-$1, $4003a4.l
0137AC: 6644                     bne     137f2
0137AE: 0C2A 0002 0018           cmpi.b  #$2, ($18,A2)
0137B4: 673C                     beq     137f2
0137B6: 13EA 0019 0040 03A4      move.b  ($19,A2), $4003a4.l
0137BE: 102A 0019                move.b  ($19,A2), D0
0137C2: 4880                     ext.w   D0
0137C4: 48C0                     ext.l   D0
0137C6: 7200                     moveq   #$0, D1
0137C8: 4A53                     tst.w   (A3)
0137CA: 5EC1                     sgt     D1
0137CC: 4401                     neg.b   D1
0137CE: E381                     asl.l   #1, D1
0137D0: D081                     add.l   D1, D0
0137D2: 5880                     addq.l  #4, D0
0137D4: 2F00                     move.l  D0, -(A7)
0137D6: 4EB9 0002 6B66           jsr     $26b66.l
0137DC: 3013                     move.w  (A3), D0
0137DE: 48C0                     ext.l   D0
0137E0: E380                     asl.l   #1, D0
0137E2: 5680                     addq.l  #3, D0
0137E4: 2F00                     move.l  D0, -(A7)
0137E6: 2F0A                     move.l  A2, -(A7)
0137E8: 4EB9 0002 85B0           jsr     $285b0.l          Add end of level bonus score
0137EE: 4FEF 000C                lea     ($c,A7), A7
0137F2: 156A 006E 006D           move.b  ($6e,A2), ($6d,A2)
0137F8: 157C 00FF 006E           move.b  #$ff, ($6e,A2)
0137FE: 4EB9 0001 5884           jsr     $15884.l
013804: 157C 0006 001A           move.b  #$6, ($1a,A2)
01380A: 4A53                     tst.w   (A3)
01380C: 6618                     bne     13826
01380E: 0C02 0003                cmpi.b  #$3, D2
013812: 6700 0008                beq     1381c
013816: 0C02 0004                cmpi.b  #$4, D2
01381A: 660A                     bne     13826
01381C: 7200                     moveq   #$0, D1
01381E: 2541 0004                move.l  D1, ($4,A2)
013822: 2481                     move.l  D1, (A2)
013824: 6032                     bra     13858

013826: 3013                     move.w  (A3), D0       Level
013828: 207C 0001 EB2E           movea.l #$1eb2e, A0
01382E: 1030 0000                move.b  (A0,D0.w), D0
013832: 4880                     ext.w   D0
013834: 48C0                     ext.l   D0
013836: 2200                     move.l  D0, D1
013838: 7010                     moveq   #$10, D0
01383A: E1A1                     asl.l   D0, D1
01383C: 2481                     move.l  D1, (A2)
01383E: 3013                     move.w  (A3), D0
013840: 207C 0001 EB34           movea.l #$1eb34, A0    End of level 'damping'
013846: 1030 0000                move.b  (A0,D0.w), D0  Only if entering 'normally' - 
01384A: 4880                     ext.w   D0             ie. no jumps on level 1
01384C: 48C0                     ext.l   D0
01384E: 2200                     move.l  D0, D1
013850: 7010                     moveq   #$10, D0
013852: E1A1                     asl.l   D0, D1
013854: 2541 0004                move.l  D1, ($4,A2)
013858: 157C 001E 0057           move.b  #$1e, ($57,A2)
01385E: 102A 0019                move.b  ($19,A2), D0
013862: 4880                     ext.w   D0
013864: 48C0                     ext.l   D0
013866: E580                     asl.l   #2, D0
013868: 207C 0001 EF72           movea.l #$1ef72, A0
01386E: 2070 0800                movea.l (A0,D0.l), A0
013872: 4850                     pea     (A0)
013874: 4EB9 0001 58AC           jsr     $158ac.l
01387A: 588F                     addq.l  #4, A7
01387C: 6000 00BA                bra     13938
013880: 0C2A 0004 001B           cmpi.b  #$4, ($1b,A2)
013886: 6600 00B0                bne     13938
01388A: 7203                     moveq   #$3, D1
01388C: B253                     cmp.w   (A3), D1
01388E: 6600 00A8                bne     13938
013892: 267C 0040 0A9C           movea.l #$400a9c, A3
013898: 4203                     clr.b   D3
01389A: 0C2B 0001 0018           cmpi.b  #$1, ($18,A3)
0138A0: 6600 0088                bne     1392a
0138A4: 0C2B 0004 001A           cmpi.b  #$4, ($1a,A3)
0138AA: 6616                     bne     138c2
0138AC: 42A7                     clr.l   -(A7)
0138AE: 4878 0001                pea     $1.w
0138B2: 2F0B                     move.l  A3, -(A7)
0138B4: 4EB9 0001 2F44           jsr     $12f44.l
0138BA: 4FEF 000C                lea     ($c,A7), A7
0138BE: 6000 006A                bra     1392a
0138C2: 0C2B 0002 001A           cmpi.b  #$2, ($1a,A3)
0138C8: 6600 0060                bne     1392a
0138CC: 0C2B 000B 001F           cmpi.b  #$b, ($1f,A3)
0138D2: 660A                     bne     138de
0138D4: 277C 0001 D752 0036      move.l  #$1d752, ($36,A3)
0138DC: 6010                     bra     138ee
0138DE: 0C2B 000D 001F           cmpi.b  #$d, ($1f,A3)
0138E4: 6608                     bne     138ee
0138E6: 277C 0001 D798 0036      move.l  #$1d798, ($36,A3)
0138EE: 0C2B 000D 001F           cmpi.b  #$d, ($1f,A3)
0138F4: 6700 000A                beq     13900
0138F8: 0C2B 000B 001F           cmpi.b  #$b, ($1f,A3)
0138FE: 662A                     bne     1392a
013900: 102B 001B                move.b  ($1b,A3), D0
013904: 4880                     ext.w   D0
013906: 48C0                     ext.l   D0
013908: 721E                     moveq   #$1e, D1
01390A: 9081                     sub.l   D1, D0
01390C: E580                     asl.l   #2, D0
01390E: 207C 0001 EF5A           movea.l #$1ef5a, A0
013914: 2070 0800                movea.l (A0,D0.l), A0
013918: 4850                     pea     (A0)
01391A: 4EB9 0001 58AC           jsr     $158ac.l
013920: 2F0B                     move.l  A3, -(A7)
013922: 4EB9 0001 2896           jsr     $12896.l
013928: 508F                     addq.l  #8, A7
01392A: 7256                     moveq   #$56, D1
01392C: D7C1                     adda.l  D1, A3
01392E: 5203                     addq.b  #1, D3
013930: 0C03 0019                cmpi.b  #$19, D3
013934: 6600 FF64                bne     1389a
013938: B42A 001B                cmp.b   ($1b,A2), D2
01393C: 6720                     beq     1395e
01393E: 2F0A                     move.l  A2, -(A7)
013940: 4EB9 0001 3966           jsr     $13966.l
013946: 588F                     addq.l  #4, A7
013948: 6014                     bra     1395e
01394A: 0C28 00FF 0003           cmpi.b  #-$1, ($3,A0)
013950: 6600 FD5C                bne     136ae
013954: 0C28 00FF 0004           cmpi.b  #-$1, ($4,A0)
01395A: 6600 FD52                bne     136ae
01395E: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
013962: 4E5E                     unlk    A6
013964: 4E75                     rts
013966: 48E7 2038                movem.l D2/A2-A4, -(A7)
01396A: 246F 0014                movea.l ($14,A7), A2
01396E: 267C 0040 076A           movea.l #$40076a, A3
013974: 287C 0001 58AC           movea.l #$158ac, A4
01397A: 7004                     moveq   #$4, D0
01397C: B079 0040 0394           cmp.w   $400394.l, D0
013982: 663A                     bne     139be
013984: 0C2A 0005 001B           cmpi.b  #$5, ($1b,A2)
01398A: 6616                     bne     139a2
01398C: 0813 0000                btst    #$0, (A3)
013990: 6610                     bne     139a2
013992: 4879 0000 0015           pea     $15.l
013998: 4E94                     jsr     (A4)
01399A: 0013 0001                ori.b   #$1, (A3)
01399E: 588F                     addq.l  #4, A7
0139A0: 601C                     bra     139be
0139A2: 0C2A 0006 001B           cmpi.b  #$6, ($1b,A2)
0139A8: 6614                     bne     139be
0139AA: 0813 0001                btst    #$1, (A3)
0139AE: 660E                     bne     139be
0139B0: 4879 0000 0016           pea     $16.l
0139B6: 4E94                     jsr     (A4)
0139B8: 0013 0002                ori.b   #$2, (A3)
0139BC: 588F                     addq.l  #4, A7
0139BE: 7003                     moveq   #$3, D0
0139C0: B079 0040 0394           cmp.w   $400394.l, D0
0139C6: 6600 00CA                bne     13a92
0139CA: 0C2A 0014 001B           cmpi.b  #$14, ($1b,A2)
0139D0: 6616                     bne     139e8
0139D2: 0813 0000                btst    #$0, (A3)
0139D6: 6610                     bne     139e8
0139D8: 4879 0000 000F           pea     $f.l
0139DE: 4E94                     jsr     (A4)
0139E0: 0013 0001                ori.b   #$1, (A3)
0139E4: 588F                     addq.l  #4, A7
0139E6: 602E                     bra     13a16
0139E8: 0C2A 0007 001B           cmpi.b  #$7, ($1b,A2)
0139EE: 6700 000A                beq     139fa
0139F2: 0C2A 0006 001B           cmpi.b  #$6, ($1b,A2)
0139F8: 661C                     bne     13a16
0139FA: 0813 0001                btst    #$1, (A3)
0139FE: 6616                     bne     13a16
013A00: 4879 0000 0012           pea     $12.l
013A06: 4E94                     jsr     (A4)
013A08: 0013 0002                ori.b   #$2, (A3)
013A0C: 33FC 003C 0040 0768      move.w  #$3c, $400768.l
013A14: 588F                     addq.l  #4, A7
013A16: 4EB9 0001 86AC           jsr     $186ac.l
013A1C: 267C 0040 0A9C           movea.l #$400a9c, A3
013A22: 4202                     clr.b   D2
013A24: 0C2B 0001 0018           cmpi.b  #$1, ($18,A3)
013A2A: 6600 005A                bne     13a86
013A2E: 0C2B 0004 001A           cmpi.b  #$4, ($1a,A3)
013A34: 6650                     bne     13a86
013A36: 102B 001B                move.b  ($1b,A3), D0
013A3A: B02A 001B                cmp.b   ($1b,A2), D0
013A3E: 6646                     bne     13a86
013A40: 0C2B 000B 001F           cmpi.b  #$b, ($1f,A3)
013A46: 6608                     bne     13a50
013A48: 277C 0001 D766 0036      move.l  #$1d766, ($36,A3)
013A50: 0C2B 000D 001F           cmpi.b  #$d, ($1f,A3)
013A56: 6608                     bne     13a60
013A58: 277C 0001 D7AC 0036      move.l  #$1d7ac, ($36,A3)
013A60: 102B 001B                move.b  ($1b,A3), D0
013A64: 4880                     ext.w   D0
013A66: 48C0                     ext.l   D0
013A68: 721E                     moveq   #$1e, D1
013A6A: 9081                     sub.l   D1, D0
013A6C: E580                     asl.l   #2, D0
013A6E: 207C 0001 EF42           movea.l #$1ef42, A0
013A74: 2070 0800                movea.l (A0,D0.l), A0
013A78: 4850                     pea     (A0)
013A7A: 4E94                     jsr     (A4)
013A7C: 2F0B                     move.l  A3, -(A7)
013A7E: 4EB9 0001 2896           jsr     $12896.l
013A84: 508F                     addq.l  #8, A7
013A86: 7056                     moveq   #$56, D0
013A88: D7C0                     adda.l  D0, A3
013A8A: 5202                     addq.b  #1, D2
013A8C: 0C02 0019                cmpi.b  #$19, D2
013A90: 6692                     bne     13a24
013A92: 4CDF 1C04                movem.l (A7)+, D2/A2-A4
013A96: 4E75                     rts
013A98: 2042                     movea.l D2, A0
013A9A: 2243                     movea.l D3, A1
013A9C: 263C FFFF 0000           move.l  #$ffff0000, D3
013AA2: 3039 0040 03A6           move.w  $4003a6.l, D0
013AA8: 222F 0004                move.l  ($4,A7), D1
013AAC: 3400                     move.w  D0, D2
013AAE: E04A                     lsr.w   #8, D2
013AB0: B102                     eor.b   D0, D2
013AB2: 6604                     bne     13ab8
013AB4: 143C 0040                move.b  #$40, D2
013AB8: E502                     asl.b   #2, D2
013ABA: E350                     roxl.w  #1, D0
013ABC: E39B                     rol.l   #1, D3
013ABE: E249                     lsr.w   #1, D1
013AC0: 66EA                     bne     13aac
013AC2: 33C0 0040 03A6           move.w  D0, $4003a6.l
013AC8: 222F 0004                move.l  ($4,A7), D1
013ACC: 670A                     beq     13ad8
013ACE: C043                     and.w   D3, D0
013AD0: B240                     cmp.w   D0, D1
013AD2: 6E04                     bgt     13ad8
013AD4: 9041                     sub.w   D1, D0
013AD6: 60F8                     bra     13ad0
013AD8: 2408                     move.l  A0, D2
013ADA: 2609                     move.l  A1, D3
013ADC: 4E75                     rts
013ADE: 4E56 FFF6                link    A6, #-$a
013AE2: 48E7 3E38                movem.l D2-D6/A2-A4, -(A7)
013AE6: 206E 0008                movea.l ($8,A6), A0
013AEA: 247C 0001 EDA2           movea.l #$1eda2, A2
013AF0: 1228 0057                move.b  ($57,A0), D1
013AF4: 4881                     ext.w   D1
013AF6: 7064                     moveq   #$64, D0
013AF8: B041                     cmp.w   D1, D0
013AFA: 660C                     bne     13b08
013AFC: 117C 0030 0057           move.b  #$30, ($57,A0)
013B02: 4268 002E                clr.w   ($2e,A0)
013B06: 6022                     bra     13b2a
013B08: 7065                     moveq   #$65, D0
013B0A: B041                     cmp.w   D1, D0
013B0C: 660C                     bne     13b1a
013B0E: 117C 0018 0057           move.b  #$18, ($57,A0)
013B14: 4268 002E                clr.w   ($2e,A0)
013B18: 6010                     bra     13b2a
013B1A: 7066                     moveq   #$66, D0
013B1C: B041                     cmp.w   D1, D0
013B1E: 660A                     bne     13b2a
013B20: 117C 0024 0057           move.b  #$24, ($57,A0)
013B26: 4268 002E                clr.w   ($2e,A0)
013B2A: 1228 0057                move.b  ($57,A0), D1
013B2E: 4881                     ext.w   D1
013B30: 5328 0057                subq.b  #1, ($57,A0)
013B34: 0C28 000B 001A           cmpi.b  #$b, ($1a,A0)
013B3A: 6606                     bne     13b42
013B3C: 7424                     moveq   #$24, D2
013B3E: 9441                     sub.w   D1, D2
013B40: 3202                     move.w  D2, D1
013B42: 3D41 FFF6                move.w  D1, (-$a,A6)
013B46: 3C01                     move.w  D1, D6
013B48: E246                     asr.w   #1, D6
013B4A: 3628 002E                move.w  ($2e,A0), D3
013B4E: 0643 000A                addi.w  #$a, D3
013B52: 0C43 0192                cmpi.w  #$192, D3
013B56: 6D04                     blt     13b5c
013B58: 0443 0192                subi.w  #$192, D3
013B5C: 3143 002E                move.w  D3, ($2e,A0)
013B60: 287C 0001 EF32           movea.l #$1ef32, A4
013B66: 426E FFFA                clr.w   (-$6,A6)
013B6A: 2428 001E                move.l  ($1e,A0), D2
013B6E: 2002                     move.l  D2, D0
013B70: 7210                     moveq   #$10, D1
013B72: E2A0                     asr.l   D1, D0
013B74: 3D40 FFF8                move.w  D0, (-$8,A6)
013B78: 3D42 FFFC                move.w  D2, (-$4,A6)
013B7C: 026E FFFF FFFC           andi.w  #$ffff, (-$4,A6)
013B82: 47E8 0038                lea     ($38,A0), A3
013B86: 43E8 00A4                lea     ($a4,A0), A1
013B8A: 426E FFFE                clr.w   (-$2,A6)
013B8E: 4253                     clr.w   (A3)
013B90: 4251                     clr.w   (A1)
013B92: 5C8B                     addq.l  #6, A3
013B94: 5C89                     addq.l  #6, A1
013B96: 526E FFFE                addq.w  #1, (-$2,A6)
013B9A: 7004                     moveq   #$4, D0
013B9C: B06E FFFE                cmp.w   (-$2,A6), D0
013BA0: 6EEC                     bgt     13b8e
013BA2: 426E FFFE                clr.w   (-$2,A6)
013BA6: 7064                     moveq   #$64, D0
013BA8: B043                     cmp.w   D3, D0
013BAA: 6D20                     blt     13bcc
013BAC: 3003                     move.w  D3, D0
013BAE: 48C0                     ext.l   D0
013BB0: D080                     add.l   D0, D0
013BB2: 224A                     movea.l A2, A1
013BB4: 3431 0800                move.w  (A1,D0.l), D2
013BB8: 7064                     moveq   #$64, D0
013BBA: 3203                     move.w  D3, D1
013BBC: 48C1                     ext.l   D1
013BBE: 9081                     sub.l   D1, D0
013BC0: D080                     add.l   D0, D0
013BC2: 224A                     movea.l A2, A1
013BC4: 3831 0800                move.w  (A1,D0.l), D4
013BC8: 6000 00A4                bra     13c6e
013BCC: 0C43 00C9                cmpi.w  #$c9, D3
013BD0: 6C30                     bge     13c02
013BD2: 223C 0000 00C8           move.l  #$c8, D1
013BD8: 3003                     move.w  D3, D0
013BDA: 48C0                     ext.l   D0
013BDC: 9280                     sub.l   D0, D1
013BDE: 2001                     move.l  D1, D0
013BE0: D080                     add.l   D0, D0
013BE2: 224A                     movea.l A2, A1
013BE4: 3031 0800                move.w  (A1,D0.l), D0
013BE8: 48C0                     ext.l   D0
013BEA: 4480                     neg.l   D0
013BEC: 3400                     move.w  D0, D2
013BEE: 3003                     move.w  D3, D0
013BF0: 48C0                     ext.l   D0
013BF2: 7264                     moveq   #$64, D1
013BF4: 9081                     sub.l   D1, D0
013BF6: D080                     add.l   D0, D0
013BF8: 224A                     movea.l A2, A1
013BFA: 3831 0800                move.w  (A1,D0.l), D4
013BFE: 6000 006E                bra     13c6e
013C02: 0C43 012D                cmpi.w  #$12d, D3
013C06: 6E38                     bgt     13c40
013C08: 3203                     move.w  D3, D1
013C0A: 48C1                     ext.l   D1
013C0C: 0481 0000 00C9           subi.l  #$c9, D1
013C12: 2001                     move.l  D1, D0
013C14: D080                     add.l   D0, D0
013C16: 224A                     movea.l A2, A1
013C18: 3031 0800                move.w  (A1,D0.l), D0
013C1C: 48C0                     ext.l   D0
013C1E: 4480                     neg.l   D0
013C20: 3400                     move.w  D0, D2
013C22: 223C 0000 012D           move.l  #$12d, D1
013C28: 3003                     move.w  D3, D0
013C2A: 48C0                     ext.l   D0
013C2C: 9280                     sub.l   D0, D1
013C2E: 2001                     move.l  D1, D0
013C30: D080                     add.l   D0, D0
013C32: 224A                     movea.l A2, A1
013C34: 3031 0800                move.w  (A1,D0.l), D0
013C38: 48C0                     ext.l   D0
013C3A: 4480                     neg.l   D0
013C3C: 3800                     move.w  D0, D4
013C3E: 602E                     bra     13c6e
013C40: 203C 0000 0191           move.l  #$191, D0
013C46: 3203                     move.w  D3, D1
013C48: 48C1                     ext.l   D1
013C4A: 9081                     sub.l   D1, D0
013C4C: D080                     add.l   D0, D0
013C4E: 224A                     movea.l A2, A1
013C50: 3431 0800                move.w  (A1,D0.l), D2
013C54: 3203                     move.w  D3, D1
013C56: 48C1                     ext.l   D1
013C58: 0481 0000 012D           subi.l  #$12d, D1
013C5E: 2001                     move.l  D1, D0
013C60: D080                     add.l   D0, D0
013C62: 224A                     movea.l A2, A1
013C64: 3031 0800                move.w  (A1,D0.l), D0
013C68: 48C0                     ext.l   D0
013C6A: 4480                     neg.l   D0
013C6C: 3800                     move.w  D0, D4
013C6E: 3006                     move.w  D6, D0
013C70: C1C2                     muls.w  D2, D0
013C72: 720C                     moveq   #$c, D1
013C74: E2A0                     asr.l   D1, D0
013C76: 3240                     movea.w D0, A1
013C78: 3006                     move.w  D6, D0
013C7A: C1C4                     muls.w  D4, D0
013C7C: 720C                     moveq   #$c, D1
013C7E: E2A0                     asr.l   D1, D0
013C80: 181C                     move.b  (A4)+, D4
013C82: 4884                     ext.w   D4
013C84: 3400                     move.w  D0, D2
013C86: D46E FFF8                add.w   (-$8,A6), D2
013C8A: 9449                     sub.w   A1, D2
013C8C: D842                     add.w   D2, D4
013C8E: 1A1C                     move.b  (A4)+, D5
013C90: 4885                     ext.w   D5
013C92: 342E FFF6                move.w  (-$a,A6), D2
013C96: D46E FFFC                add.w   (-$4,A6), D2
013C9A: 3200                     move.w  D0, D1
013C9C: 48C1                     ext.l   D1
013C9E: 3009                     move.w  A1, D0
013CA0: 48C0                     ext.l   D0
013CA2: D280                     add.l   D0, D1
013CA4: E281                     asr.l   #1, D1
013CA6: 3001                     move.w  D1, D0
013CA8: 9440                     sub.w   D0, D2
013CAA: DA42                     add.w   D2, D5
013CAC: 70F8                     moveq   #-$8, D0
013CAE: B044                     cmp.w   D4, D0
013CB0: 6C52                     bge     13d04
013CB2: 0C44 0120                cmpi.w  #$120, D4
013CB6: 6C4C                     bge     13d04
013CB8: 70F8                     moveq   #-$8, D0
013CBA: B045                     cmp.w   D5, D0
013CBC: 6C46                     bge     13d04
013CBE: 0C45 00F0                cmpi.w  #$f0, D5
013CC2: 6C40                     bge     13d04
013CC4: 7004                     moveq   #$4, D0
013CC6: B06E FFFA                cmp.w   (-$6,A6), D0
013CCA: 6F12                     ble     13cde
013CCC: 302E FFFA                move.w  (-$6,A6), D0
013CD0: C0FC 0006                mulu.w  #$6, D0
013CD4: 43E8 00A4                lea     ($a4,A0), A1
013CD8: D2C0                     adda.w  D0, A1
013CDA: 2649                     movea.l A1, A3
013CDC: 6014                     bra     13cf2
013CDE: 302E FFFA                move.w  (-$6,A6), D0
013CE2: 48C0                     ext.l   D0
013CE4: 5980                     subq.l  #4, D0
013CE6: C0FC 0006                mulu.w  #$6, D0
013CEA: 43E8 0038                lea     ($38,A0), A1
013CEE: D2C0                     adda.w  D0, A1
013CF0: 2649                     movea.l A1, A3
013CF2: 526E FFFA                addq.w  #1, (-$6,A6)
013CF6: 342E FFFE                move.w  (-$2,A6), D2
013CFA: 0642 010B                addi.w  #$10b, D2
013CFE: 36C2                     move.w  D2, (A3)+
013D00: 36C4                     move.w  D4, (A3)+
013D02: 3685                     move.w  D5, (A3)
013D04: 0643 0032                addi.w  #$32, D3
013D08: 0C43 0192                cmpi.w  #$192, D3
013D0C: 6D04                     blt     13d12
013D0E: 0443 0192                subi.w  #$192, D3
013D12: 526E FFFE                addq.w  #1, (-$2,A6)
013D16: 7008                     moveq   #$8, D0
013D18: B06E FFFE                cmp.w   (-$2,A6), D0
013D1C: 6E00 FE88                bgt     13ba6
013D20: 117C 0001 001C           move.b  #$1, ($1c,A0)
013D26: 7000                     moveq   #$0, D0
013D28: 4A28 0057                tst.b   ($57,A0)
013D2C: 57C0                     seq     D0
013D2E: 4400                     neg.b   D0
013D30: 4CDF 1C7C                movem.l (A7)+, D2-D6/A2-A4
013D34: 4E5E                     unlk    A6
013D36: 4E75                     rts
013D38: 4E56 FFF4                link    A6, #-$c
013D3C: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
013D40: 206E 0008                movea.l ($8,A6), A0
013D44: 7420                     moveq   #$20, D2
013D46: 1028 0057                move.b  ($57,A0), D0
013D4A: 4880                     ext.w   D0
013D4C: 9440                     sub.w   D0, D2
013D4E: 5328 0057                subq.b  #1, ($57,A0)
013D52: 267C 0001 EF32           movea.l #$1ef32, A3
013D58: 1028 0058                move.b  ($58,A0), D0
013D5C: 4880                     ext.w   D0
013D5E: 48C0                     ext.l   D0
013D60: E580                     asl.l   #2, D0
013D62: 227C 0001 F016           movea.l #$1f016, A1
013D68: 2271 0800                movea.l (A1,D0.l), A1
013D6C: 2A29 004E                move.l  ($4e,A1), D5
013D70: 2005                     move.l  D5, D0
013D72: 7210                     moveq   #$10, D1
013D74: E2A0                     asr.l   D1, D0
013D76: 3800                     move.w  D0, D4
013D78: 3605                     move.w  D5, D3
013D7A: 0243 FFFF                andi.w  #$ffff, D3
013D7E: 2A28 001E                move.l  ($1e,A0), D5
013D82: 2005                     move.l  D5, D0
013D84: 7210                     moveq   #$10, D1
013D86: E2A0                     asr.l   D1, D0
013D88: 3D40 FFFA                move.w  D0, (-$6,A6)
013D8C: 3845                     movea.w D5, A4
013D8E: 2E0C                     move.l  A4, D7
013D90: 0247 FFFF                andi.w  #$ffff, D7
013D94: 3847                     movea.w D7, A4
013D96: 0C29 000D 001F           cmpi.b  #$d, ($1f,A1)
013D9C: 6612                     bne     13db0
013D9E: 5B44                     subq.w  #5, D4
013DA0: 5A43                     addq.w  #5, D3
013DA2: 3A04                     move.w  D4, D5
013DA4: 0445 001C                subi.w  #$1c, D5
013DA8: 3C03                     move.w  D3, D6
013DAA: 0446 000E                subi.w  #$e, D6
013DAE: 6010                     bra     13dc0
013DB0: 5644                     addq.w  #3, D4
013DB2: 5A43                     addq.w  #5, D3
013DB4: 3A04                     move.w  D4, D5
013DB6: 0645 001C                addi.w  #$1c, D5
013DBA: 3C03                     move.w  D3, D6
013DBC: 0446 000E                subi.w  #$e, D6
013DC0: 3D45 FFF6                move.w  D5, (-$a,A6)
013DC4: 3E2E FFF6                move.w  (-$a,A6), D7
013DC8: 9E6E FFFA                sub.w   (-$6,A6), D7
013DCC: 3D47 FFF6                move.w  D7, (-$a,A6)
013DD0: 3D46 FFF4                move.w  D6, (-$c,A6)
013DD4: 3E2E FFF4                move.w  (-$c,A6), D7
013DD8: 9E4C                     sub.w   A4, D7
013DDA: 3D47 FFF4                move.w  D7, (-$c,A6)
013DDE: 3D44 FFFE                move.w  D4, (-$2,A6)
013DE2: 3E2E FFFE                move.w  (-$2,A6), D7
013DE6: 9E45                     sub.w   D5, D7
013DE8: 3D47 FFFE                move.w  D7, (-$2,A6)
013DEC: 3D43 FFFC                move.w  D3, (-$4,A6)
013DF0: 3E2E FFFC                move.w  (-$4,A6), D7
013DF4: 9E46                     sub.w   D6, D7
013DF6: 3D47 FFFC                move.w  D7, (-$4,A6)
013DFA: 45E8 0038                lea     ($38,A0), A2
013DFE: 43E8 00A4                lea     ($a4,A0), A1
013E02: 4244                     clr.w   D4
013E04: 4252                     clr.w   (A2)
013E06: 4251                     clr.w   (A1)
013E08: 5C8A                     addq.l  #6, A2
013E0A: 5C89                     addq.l  #6, A1
013E0C: 5244                     addq.w  #1, D4
013E0E: 7004                     moveq   #$4, D0
013E10: B044                     cmp.w   D4, D0
013E12: 6EF0                     bgt     13e04
013E14: 426E FFF8                clr.w   (-$8,A6)
013E18: 4244                     clr.w   D4
013E1A: 3004                     move.w  D4, D0
013E1C: 48C0                     ext.l   D0
013E1E: E380                     asl.l   #1, D0
013E20: 4480                     neg.l   D0
013E22: 3200                     move.w  D0, D1
013E24: D242                     add.w   D2, D1
013E26: 4A41                     tst.w   D1
013E28: 6C08                     bge     13e32
013E2A: 362E FFFA                move.w  (-$6,A6), D3
013E2E: 320C                     move.w  A4, D1
013E30: 6044                     bra     13e76
013E32: 7008                     moveq   #$8, D0
013E34: B041                     cmp.w   D1, D0
013E36: 6F00 008A                ble     13ec2
013E3A: 7004                     moveq   #$4, D0
013E3C: B041                     cmp.w   D1, D0
013E3E: 6F1C                     ble     13e5c
013E40: 3001                     move.w  D1, D0
013E42: C1EE FFF6                muls.w  (-$a,A6), D0
013E46: E480                     asr.l   #2, D0
013E48: 3600                     move.w  D0, D3
013E4A: D66E FFFA                add.w   (-$6,A6), D3
013E4E: 3001                     move.w  D1, D0
013E50: C1EE FFF4                muls.w  (-$c,A6), D0
013E54: E480                     asr.l   #2, D0
013E56: 3200                     move.w  D0, D1
013E58: D24C                     add.w   A4, D1
013E5A: 601A                     bra     13e76
013E5C: 5941                     subq.w  #4, D1
013E5E: 3001                     move.w  D1, D0
013E60: C1EE FFFE                muls.w  (-$2,A6), D0
013E64: E480                     asr.l   #2, D0
013E66: 3600                     move.w  D0, D3
013E68: D645                     add.w   D5, D3
013E6A: 3001                     move.w  D1, D0
013E6C: C1EE FFFC                muls.w  (-$4,A6), D0
013E70: E480                     asr.l   #2, D0
013E72: 3200                     move.w  D0, D1
013E74: D246                     add.w   D6, D1
013E76: 7004                     moveq   #$4, D0
013E78: B06E FFF8                cmp.w   (-$8,A6), D0
013E7C: 6F12                     ble     13e90
013E7E: 302E FFF8                move.w  (-$8,A6), D0
013E82: C0FC 0006                mulu.w  #$6, D0
013E86: 43E8 00A4                lea     ($a4,A0), A1
013E8A: D2C0                     adda.w  D0, A1
013E8C: 2449                     movea.l A1, A2
013E8E: 6014                     bra     13ea4
013E90: 302E FFF8                move.w  (-$8,A6), D0
013E94: 48C0                     ext.l   D0
013E96: 5980                     subq.l  #4, D0
013E98: C0FC 0006                mulu.w  #$6, D0
013E9C: 43E8 0038                lea     ($38,A0), A1
013EA0: D2C0                     adda.w  D0, A1
013EA2: 2449                     movea.l A1, A2
013EA4: 526E FFF8                addq.w  #1, (-$8,A6)
013EA8: 3004                     move.w  D4, D0
013EAA: 0640 010B                addi.w  #$10b, D0
013EAE: 34C0                     move.w  D0, (A2)+
013EB0: 101B                     move.b  (A3)+, D0
013EB2: 4880                     ext.w   D0
013EB4: D043                     add.w   D3, D0
013EB6: 34C0                     move.w  D0, (A2)+
013EB8: 101B                     move.b  (A3)+, D0
013EBA: 4880                     ext.w   D0
013EBC: D041                     add.w   D1, D0
013EBE: 3480                     move.w  D0, (A2)
013EC0: 6002                     bra     13ec4
013EC2: 548B                     addq.l  #2, A3
013EC4: 5244                     addq.w  #1, D4
013EC6: 7008                     moveq   #$8, D0
013EC8: B044                     cmp.w   D4, D0
013ECA: 6E00 FF4E                bgt     13e1a
013ECE: 117C 0001 001C           move.b  #$1, ($1c,A0)
013ED4: 7000                     moveq   #$0, D0
013ED6: 4A28 0057                tst.b   ($57,A0)
013EDA: 57C0                     seq     D0
013EDC: 4400                     neg.b   D0
013EDE: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
013EE2: 4E5E                     unlk    A6
013EE4: 4E75                     rts
013EE6: 4E56 FFFE                link    A6, #-$2
013EEA: 48E7 3F3C                movem.l D2-D7/A2-A5, -(A7)
013EEE: 247C 0040 000A           movea.l #$40000a, A2
013EF4: 267C 0040 0004           movea.l #$400004, A3
013EFA: 287C 0040 000C           movea.l #$40000c, A4
013F00: 4EB9 0001 344C           jsr     $1344c.l
013F06: 4A39 0040 0006           tst.b   $400006.l
013F0C: 6700 020E                beq     1411c
013F10: 3239 0040 0664           move.w  $400664.l, D1
013F16: 48C1                     ext.l   D1
013F18: 2F01                     move.l  D1, -(A7)
013F1A: 4EB9 0002 FFB8           jsr     $2ffb8.l
013F20: 2039 0040 097C           move.l  $40097c.l, D0
013F26: 2079 0040 0474           movea.l $400474.l, A0
013F2C: 3228 0010                move.w  ($10,A0), D1
013F30: 48C1                     ext.l   D1
013F32: 9081                     sub.l   D1, D0
013F34: E680                     asr.l   #3, D0
013F36: 3600                     move.w  D0, D3
013F38: 0243 7FFF                andi.w  #$7fff, D3
013F3C: 5343                     subq.w  #1, D3
013F3E: 4A43                     tst.w   D3
013F40: 588F                     addq.l  #4, A7
013F42: 6D00 01C0                blt     14104
013F46: 0C13 0001                cmpi.b  #$1, (A3)
013F4A: 6604                     bne     13f50
013F4C: 0643 0020                addi.w  #$20, D3
013F50: 3003                     move.w  D3, D0
013F52: 48C0                     ext.l   D0
013F54: D080                     add.l   D0, D0
013F56: 2079 0040 0474           movea.l $400474.l, A0
013F5C: D0A8 0004                add.l   ($4,A0), D0
013F60: 2A40                     movea.l D0, A5
013F62: 3215                     move.w  (A5), D1
013F64: 48C1                     ext.l   D1
013F66: 0681 0008 00E4           addi.l  #$800e4, D1
013F6C: 2401                     move.l  D1, D2
013F6E: 3003                     move.w  D3, D0
013F70: 48C0                     ext.l   D0
013F72: 2079 0040 0474           movea.l $400474.l, A0
013F78: D0A8 002A                add.l   ($2a,A0), D0
013F7C: 7200                     moveq   #$0, D1
013F7E: 2A40                     movea.l D0, A5
013F80: 1215                     move.b  (A5), D1
013F82: 0681 0002 BE18           addi.l  #$2be18, D1      <
013F88: 2241                     movea.l D1, A1
013F8A: 207C 0040 0706           movea.l #$400706, A0
013F90: 2F09                     move.l  A1, -(A7)
013F92: 2F02                     move.l  D2, -(A7)
013F94: 2F08                     move.l  A0, -(A7)
013F96: 4EB9 0001 A668           jsr     $1a668.l          <load new bit of playfield
013F9C: 4AB9 0040 0978           tst.l   $400978.l
013FA2: 4FEF 000C                lea     ($c,A7), A7
013FA6: 6700 00EC                beq     14094
013FAA: 2279 0040 0974           movea.l $400974.l, A1
013FB0: 2079 0040 0978           movea.l $400978.l, A0
013FB6: 2610                     move.l  (A0), D3
013FB8: 0C29 0019 001F           cmpi.b  #$19, ($1f,A1)
013FBE: 6606                     bne     13fc6
013FC0: 7424                     moveq   #$24, D2
013FC2: 781E                     moveq   #$1e, D4
013FC4: 600E                     bra     13fd4
013FC6: 2A43                     movea.l D3, A5
013FC8: 1415                     move.b  (A5), D2
013FCA: 2203                     move.l  D3, D1
013FCC: 5281                     addq.l  #1, D1
013FCE: 2A41                     movea.l D1, A5
013FD0: 1815                     move.b  (A5), D4
013FD2: 5483                     addq.l  #2, D3
013FD4: 2039 0040 097C           move.l  $40097c.l, D0
013FDA: 2079 0040 0474           movea.l $400474.l, A0
013FE0: 3228 0010                move.w  ($10,A0), D1
013FE4: 48C1                     ext.l   D1
013FE6: 9081                     sub.l   D1, D0
013FE8: E680                     asr.l   #3, D0
013FEA: 3A00                     move.w  D0, D5
013FEC: 9A69 0028                sub.w   ($28,A1), D5
013FF0: 5345                     subq.w  #1, D5
013FF2: 0C13 0001                cmpi.b  #$1, (A3)
013FF6: 6604                     bne     13ffc
013FF8: 0645 0020                addi.w  #$20, D5
013FFC: 4A45                     tst.w   D5
013FFE: 6D00 0094                blt     14094
014002: 1004                     move.b  D4, D0
014004: 4880                     ext.w   D0
014006: B045                     cmp.w   D5, D0
014008: 6F00 008A                ble     14094
01400C: 3029 0026                move.w  ($26,A1), D0
014010: 48C0                     ext.l   D0
014012: D080                     add.l   D0, D0
014014: 2200                     move.l  D0, D1
014016: 0681 0040 0706           addi.l  #$400706, D1
01401C: 2041                     movea.l D1, A0
01401E: 0C29 0019 001F           cmpi.b  #$19, ($1f,A1)
014024: 6652                     bne     14078
014026: 2279 0002 BE14           movea.l $2be14.l, A1
01402C: 3003                     move.w  D3, D0
01402E: 48C0                     ext.l   D0
014030: 3205                     move.w  D5, D1
014032: 48C1                     ext.l   D1
014034: D081                     add.l   D1, D0
014036: D080                     add.l   D0, D0
014038: D0A9 0004                add.l   ($4,A1), D0
01403C: 2A40                     movea.l D0, A5
01403E: 3215                     move.w  (A5), D1
014040: 48C1                     ext.l   D1
014042: 0681 0008 00E4           addi.l  #$800e4, D1
014048: 2601                     move.l  D1, D3
01404A: 3005                     move.w  D5, D0
01404C: 48C0                     ext.l   D0
01404E: 2200                     move.l  D0, D1
014050: 2029 002A                move.l  ($2a,A1), D0
014054: 744E                     moveq   #$4e, D2
014056: D082                     add.l   D2, D0
014058: D280                     add.l   D0, D1
01405A: 2241                     movea.l D1, A1
01405C: 7200                     moveq   #$0, D1
01405E: 1211                     move.b  (A1), D1
014060: 0681 0002 BE18           addi.l  #$2be18, D1
014066: 2F01                     move.l  D1, -(A7)
014068: 2F03                     move.l  D3, -(A7)
01406A: 2F08                     move.l  A0, -(A7)
01406C: 4EB9 0001 A668           jsr     $1a668.l
014072: 4FEF 000C                lea     ($c,A7), A7
014076: 601C                     bra     14094
014078: 1002                     move.b  D2, D0
01407A: 4880                     ext.w   D0
01407C: C1C5                     muls.w  D5, D0
01407E: 2200                     move.l  D0, D1
014080: D281                     add.l   D1, D1
014082: D681                     add.l   D1, D3
014084: 4200                     clr.b   D0
014086: 6008                     bra     14090
014088: 2A43                     movea.l D3, A5
01408A: 30DD                     move.w  (A5)+, (A0)+
01408C: 260D                     move.l  A5, D3
01408E: 5200                     addq.b  #1, D0
014090: B002                     cmp.b   D2, D0
014092: 66F4                     bne     14088
014094: 3039 0040 0000           move.w  $400000.l, D0
01409A: 48C0                     ext.l   D0
01409C: E680                     asr.l   #3, D0
01409E: ED80                     asl.l   #6, D0
0140A0: D080                     add.l   D0, D0
0140A2: 0680 00A0 0000           addi.l  #$a00000, D0
0140A8: 2200                     move.l  D0, D1
0140AA: 7086                     moveq   #-$7a, D0
0140AC: D280                     add.l   D0, D1
0140AE: 2041                     movea.l D1, A0
0140B0: 0C13 0001                cmpi.b  #$1, (A3)
0140B4: 6622                     bne     140d8
0140B6: 2E08                     move.l  A0, D7
0140B8: 0687 0000 1000           addi.l  #$1000, D7
0140BE: 2047                     movea.l D7, A0
0140C0: CF88                     exg     D7, A0
0140C2: 0C87 00A0 1FFF           cmpi.l  #$a01fff, D7
0140C8: CF88                     exg     D7, A0
0140CA: 6F22                     ble     140ee
0140CC: 2E08                     move.l  A0, D7
0140CE: 0487 0000 2000           subi.l  #$2000, D7
0140D4: 2047                     movea.l D7, A0
0140D6: 6016                     bra     140ee
0140D8: CF88                     exg     D7, A0
0140DA: 0C87 00A0 0000           cmpi.l  #$a00000, D7
0140E0: CF88                     exg     D7, A0
0140E2: 6C0A                     bge     140ee
0140E4: 2E08                     move.l  A0, D7
0140E6: 0687 0000 2000           addi.l  #$2000, D7
0140EC: 2047                     movea.l D7, A0
0140EE: 243C 0040 0706           move.l  #$400706, D2
0140F4: 4200                     clr.b   D0
0140F6: 2A42                     movea.l D2, A5
0140F8: 30DD                     move.w  (A5)+, (A0)+
0140FA: 240D                     move.l  A5, D2
0140FC: 5200                     addq.b  #1, D0
0140FE: 0C00 0024                cmpi.b  #$24, D0
014102: 66F2                     bne     140f6
014104: 4239 0040 0006           clr.b   $400006.l
01410A: 3239 0040 0662           move.w  $400662.l, D1
014110: 48C1                     ext.l   D1
014112: 2F01                     move.l  D1, -(A7)
014114: 4EB9 0002 FFB8           jsr     $2ffb8.l
01411A: 588F                     addq.l  #4, A7
01411C: 2039 0040 0010           move.l  $400010.l, D0
014122: 7207                     moveq   #$7, D1
014124: C081                     and.l   D1, D0
014126: 670A                     beq     14132
014128: 4A39 0040 0008           tst.b   $400008.l
01412E: 6700 03AC                beq     144dc
014132: 7004                     moveq   #$4, D0
014134: B079 0040 0394           cmp.w   $400394.l, D0
01413A: 670A                     beq     14146
01413C: 363C 7000                move.w  #$7000, D3
014140: 3D43 FFFE                move.w  D3, (-$2,A6)
014144: 6008                     bra     1414e
014146: 363C 9000                move.w  #$9000, D3
01414A: 3D43 FFFE                move.w  D3, (-$2,A6)
01414E: 207C 0040 0018           movea.l #$400018, A0
014154: 4201                     clr.b   D1
014156: 6000 007E                bra     141d6
01415A: 3828 0020                move.w  ($20,A0), D4
01415E: 0244 FFFF                andi.w  #$ffff, D4
014162: 1428 001A                move.b  ($1a,A0), D2
014166: 4882                     ext.w   D2
014168: 0C28 0001 0018           cmpi.b  #$1, ($18,A0)
01416E: 6600 005A                bne     141ca
014172: 0C28 0002 0036           cmpi.b  #$2, ($36,A0)
014178: 6600 000A                bne     14184
01417C: 4AA8 0008                tst.l   ($8,A0)
014180: 6F00 0048                ble     141ca
014184: 4A42                     tst.w   D2
014186: 6700 0020                beq     141a8
01418A: 7001                     moveq   #$1, D0
01418C: B042                     cmp.w   D2, D0
01418E: 6700 0018                beq     141a8
014192: 7004                     moveq   #$4, D0
014194: B042                     cmp.w   D2, D0
014196: 6700 0010                beq     141a8
01419A: 7005                     moveq   #$5, D0
01419C: B042                     cmp.w   D2, D0
01419E: 6700 0008                beq     141a8
0141A2: 7003                     moveq   #$3, D0
0141A4: B042                     cmp.w   D2, D0
0141A6: 6622                     bne     141ca
0141A8: 7004                     moveq   #$4, D0
0141AA: B079 0040 0394           cmp.w   $400394.l, D0
0141B0: 6708                     beq     141ba
0141B2: B843                     cmp.w   D3, D4
0141B4: 6C04                     bge     141ba
0141B6: 3604                     move.w  D4, D3
0141B8: 6010                     bra     141ca
0141BA: 7004                     moveq   #$4, D0
0141BC: B079 0040 0394           cmp.w   $400394.l, D0
0141C2: 6606                     bne     141ca
0141C4: B843                     cmp.w   D3, D4
0141C6: 6F02                     ble     141ca
0141C8: 3604                     move.w  D4, D3
0141CA: 2E08                     move.l  A0, D7
0141CC: 0687 0000 00E2           addi.l  #$e2, D7
0141D2: 2047                     movea.l D7, A0
0141D4: 5201                     addq.b  #1, D1
0141D6: 1001                     move.b  D1, D0
0141D8: 4880                     ext.w   D0
0141DA: B079 0040 0396           cmp.w   $400396.l, D0
0141E0: 6600 FF78                bne     1415a
0141E4: B66E FFFE                cmp.w   (-$2,A6), D3
0141E8: 660A                     bne     141f4
0141EA: 4A39 0040 0008           tst.b   $400008.l
0141F0: 6700 02EA                beq     144dc
0141F4: B66E FFFE                cmp.w   (-$2,A6), D3
0141F8: 6600 009A                bne     14294
0141FC: 4A54                     tst.w   (A4)
0141FE: 6600 0090                bne     14290
014202: 1012                     move.b  (A2), D0
014204: B039 0001 F1CE           cmp.b   $1f1ce.l, D0
01420A: 6630                     bne     1423c
01420C: 0C13 0001                cmpi.b  #$1, (A3)
014210: 6614                     bne     14226
014212: 3239 0001 F1D0           move.w  $1f1d0.l, D1
014218: 48C1                     ext.l   D1
01421A: 3039 0001 F1D6           move.w  $1f1d6.l, D0
014220: 48C0                     ext.l   D0
014222: 9280                     sub.l   D0, D1
014224: 6012                     bra     14238
014226: 3239 0001 F1D6           move.w  $1f1d6.l, D1
01422C: 48C1                     ext.l   D1
01422E: 3039 0001 F1D2           move.w  $1f1d2.l, D0
014234: 48C0                     ext.l   D0
014236: D280                     add.l   D0, D1
014238: 3881                     move.w  D1, (A4)
01423A: 6054                     bra     14290
01423C: 1012                     move.b  (A2), D0
01423E: B039 0001 F1CC           cmp.b   $1f1cc.l, D0
014244: 6630                     bne     14276
014246: 0C13 0001                cmpi.b  #$1, (A3)
01424A: 6614                     bne     14260
01424C: 3239 0001 F1D0           move.w  $1f1d0.l, D1
014252: 48C1                     ext.l   D1
014254: 3039 0001 F1D4           move.w  $1f1d4.l, D0
01425A: 48C0                     ext.l   D0
01425C: 9280                     sub.l   D0, D1
01425E: 6012                     bra     14272
014260: 3239 0001 F1D4           move.w  $1f1d4.l, D1
014266: 48C1                     ext.l   D1
014268: 3039 0001 F1D2           move.w  $1f1d2.l, D0
01426E: 48C0                     ext.l   D0
014270: D280                     add.l   D0, D1
014272: 3881                     move.w  D1, (A4)
014274: 601A                     bra     14290
014276: 0C13 0001                cmpi.b  #$1, (A3)
01427A: 660A                     bne     14286
01427C: 3039 0001 F1D0           move.w  $1f1d0.l, D0
014282: 48C0                     ext.l   D0
014284: 6008                     bra     1428e
014286: 3039 0001 F1D2           move.w  $1f1d2.l, D0
01428C: 48C0                     ext.l   D0
01428E: 3880                     move.w  D0, (A4)
014290: 3614                     move.w  (A4), D3
014292: 6002                     bra     14296
014294: 4254                     clr.w   (A4)
014296: 4244                     clr.w   D4
014298: 3A39 0040 0000           move.w  $400000.l, D5
01429E: 3C39 0040 097E           move.w  $40097e.l, D6
0142A4: B679 0001 F1D0           cmp.w   $1f1d0.l, D3    [0048]
0142AA: 6C08               ----- bge     142b4
0142AC: B66E FFFE         |      cmp.w   (-$2,A6), D3
0142B0: 6600 0014         |  -- bne     142c6
0142B4: 4A39 0040 0008     -|--> tst.b   $400008.l
0142BA: 6700 00CA           |    beq     14386
0142BE: 0C13 0001           |    cmpi.b  #$1, (A3)
0142C2: 6600 00C2           |    bne     14386
0142C6: 3003                 --> move.w  D3, D0
0142C8: 48C0                     ext.l   D0
0142CA: 3239 0001 F1D0           move.w  $1f1d0.l, D1    [0048]
0142D0: 48C1                     ext.l   D1
0142D2: 3439 0001 F1D6           move.w  $1f1d6.l, D2    [0030]
0142D8: 48C2                     ext.l   D2
0142DA: 9282                     sub.l   D2, D1
0142DC: B081                     cmp.l   D1, D0
0142DE: 6C08                     bge     142e8
0142E0: 14B9 0001 F1CE           move.b  $1f1ce.l, (A2)  [0400]
0142E6: 6030                     bra     14318
0142E8: 3003                     move.w  D3, D0
0142EA: 48C0                     ext.l   D0
0142EC: 3239 0001 F1D0           move.w  $1f1d0.l, D1    [0048]
0142F2: 48C1                     ext.l   D1
0142F4: 3439 0001 F1D4           move.w  $1f1d4.l, D2    [0010]
0142FA: 48C2                     ext.l   D2
0142FC: 9282                     sub.l   D2, D1
0142FE: B081                     cmp.l   D1, D0
014300: 6C08                     bge     1430a
014302: 14B9 0001 F1CC           move.b  $1f1cc.l, (A2)  [0200]
014308: 600E                     bra     14318
01430A: B679 0001 F1D0           cmp.w   $1f1d0.l, D3    [0048]
014310: 6F06                     ble     14318
014312: 14B9 0001 F1CA           move.b  $1f1ca.l, (A2)  [0100]
014318: 1012                     move.b  (A2), D0
01431A: 4880                     ext.w   D0
01431C: DA40                     add.w   D0, D5
01431E: 0C45 01FF                cmpi.w  #$1ff, D5
014322: 6F04                     ble     14328
014324: 0445 0200                subi.w  #$200, D5
014328: 1012                     move.b  (A2), D0
01432A: 4880                     ext.w   D0
01432C: DC40                     add.w   D0, D6
01432E: 7801                     moveq   #$1, D4
014330: 3006                     move.w  D6, D0
014332: 48C0                     ext.l   D0
014334: 2079 0040 0474           movea.l $400474.l, A0
01433A: 3228 0012                move.w  ($12,A0), D1
01433E: 48C1                     ext.l   D1
014340: 2079 0040 0474           movea.l $400474.l, A0
014346: 3428 0010                move.w  ($10,A0), D2
01434A: 48C2                     ext.l   D2
01434C: D282                     add.l   D2, D1
01434E: B081                     cmp.l   D1, D0
014350: 6F16                  -- ble     14368
014352: 4239 0040 0008       |   clr.b   $400008.l
014358: 3C39 0040 097E       |   move.w  $40097e.l, D6
01435E: 3A39 0040 0000       |   move.w  $400000.l, D5
014364: 6000 00E2          --|-- bra     14448
014368: 3039 0040 0000    |   -> move.w  $400000.l, D0   Current/new scroll value (scroll down)
01436E: E640              |      asr.w   #3, D0
014370: 3205              |      move.w  D5, D1
014372: E641              |      asr.w   #3, D1
014374: B041              |      cmp.w   D1, D0
014376: 6700 00D0         |----- beq     14448
01437A: 13FC 0001 0040 0006      move.b  #$1, $400006.l
014382: 6000 00C4         |----- bra     14448
014386: B679 0001 F1D2    |      cmp.w   $1f1d2.l, D3   [00A8]
01438C: 6F08              |   -- ble     14396
01438E: B66E FFFE         |  |   cmp.w   (-$2,A6), D3
014392: 6600 0014         |  --- bne     143a8
014396: 4A39 0040 0008    | | -> tst.b   $400008.l
01439C: 6700 00AA         |-|--- beq     14448
0143A0: 0C13 00FF         | |    cmpi.b  #-$1, (A3)
0143A4: 6600 00A2         |-|--- bne     14448
0143A8: 3003              |  --> move.w  D3, D0
0143AA: 48C0              |      ext.l   D0
0143AC: 3239 0001 F1D6    |      move.w  $1f1d6.l, D1   [0030]
0143B2: 48C1              |      ext.l   D1
0143B4: 3439 0001 F1D2    v      move.w  $1f1d2.l, D2   [00A8]
0143BA: 48C2                     ext.l   D2
0143BC: D282                     add.l   D2, D1
0143BE: B081                     cmp.l   D1, D0
0143C0: 6F08                  -- ble     143ca
0143C2: 14B9 0001 F1CE       |   move.b  $1f1ce.l, (A2) [0400]
0143C8: 6030               --|-- bra     143fa
0143CA: 3003              |   -> move.w  D3, D0
0143CC: 48C0              |      ext.l   D0
0143CE: 3239 0001 F1D4    |      move.w  $1f1d4.l, D1   [0010] 
0143D4: 48C1              |      ext.l   D1
0143D6: 3439 0001 F1D2    |      move.w  $1f1d2.l, D2   [00A8]
0143DC: 48C2              |      ext.l   D2
0143DE: D282              |      add.l   D2, D1
0143E0: B081              |      cmp.l   D1, D0
0143E2: 6F08              |   -- ble     143ec
0143E4: 14B9 0001 F1CC    |  |   move.b  $1f1cc.l, (A2) [0200]
0143EA: 600E              |--|-- bra     143fa
0143EC: B679 0001 F1D2    |   -> cmp.w   $1f1d2.l, D3   [00A8]
0143F2: 6C06              |----- bge     143fa
0143F4: 14B9 0001 F1CA    |      move.b  $1f1ca.l, (A2) [0100]
0143FA: 1012               ----> move.b  (A2), D0
0143FC: 4880                     ext.w   D0
0143FE: 9A40              v      sub.w   D0, D5
014400: 4A45              |      tst.w   D5
014402: 6C04              |   -- bge     14408
014404: 0645 0200         |  |   addi.w  #$200, D5
014408: 1012              |   -> move.b  (A2), D0
01440A: 4880              |      ext.w   D0
01440C: 9C40              |      sub.w   D0, D6
01440E: 78FF              |      moveq   #-$1, D4
014410: 2079 0040 0474    |      movea.l $400474.l, A0
014416: BC68 0010         |      cmp.w   ($10,A0), D6
01441A: 6C14              |   -- bge     14430
01441C: 4239 0040 0008    |  |   clr.b   $400008.l
014422: 3C39 0040 097E    |  |   move.w  $40097e.l, D6
014428: 3A39 0040 0000    |  |   move.w  $400000.l, D5
01442E: 6018              |--|-- bra     14448
014430: 3039 0040 0000    |   -> move.w  $400000.l, D0
014436: E640              |      asr.w   #3, D0
014438: 3205              |      move.w  D5, D1
01443A: E641              |      asr.w   #3, D1
01443C: B041              |      cmp.w   D1, D0
01443E: 6708              |----- beq     14448
014440: 13FC 0001 00400006|      move.b  #$1, $400006.l
014448: 3006               ----> move.w  D6, D0
01444A: 48C0                     ext.l   D0
01444C: B0B9 0040 097C           cmp.l   $40097c.l, D0
014452: 6746                     beq     1449a
014454: 3206                     move.w  D6, D1
014456: 48C1                     ext.l   D1
014458: 2F01                     move.l  D1, -(A7)
01445A: 2F39 0040 097C           move.l  $40097c.l, -(A7)
014460: 4EB9 0001 44E4           jsr     $144e4.l
014466: 33C5 0040 0000           move.w  D5, $400000.l
01446C: 3006                     move.w  D6, D0
01446E: 48C0                     ext.l   D0
014470: 23C0 0040 097C           move.l  D0, $40097c.l
014476: 4A54                     tst.w   (A4)
014478: 508F                     addq.l  #8, A7
01447A: 6714                     beq     14490
01447C: 0C13 0001                cmpi.b  #$1, (A3)
014480: 6608                     bne     1448a
014482: 1012                     move.b  (A2), D0
014484: 4880                     ext.w   D0
014486: D154                     add.w   D0, (A4)
014488: 6006                     bra     14490
01448A: 1012                     move.b  (A2), D0
01448C: 4880                     ext.w   D0
01448E: 9154                     sub.w   D0, (A4)
014490: 13FC 0001 0040 0008      move.b  #$1, $400008.l
014498: 1684                     move.b  D4, (A3)
01449A: B66E FFFE                cmp.w   (-$2,A6), D3
01449E: 673C                     beq     144dc
0144A0: 3003                     move.w  D3, D0
0144A2: 48C0                     ext.l   D0
0144A4: 3239 0001 F1D0           move.w  $1f1d0.l, D1
0144AA: 48C1                     ext.l   D1
0144AC: 7410                     moveq   #$10, D2
0144AE: D282                     add.l   D2, D1
0144B0: B081                     cmp.l   D1, D0
0144B2: 6F08                     ble     144bc
0144B4: 0C13 0001                cmpi.b  #$1, (A3)
0144B8: 6700 001C                beq     144d6
0144BC: 3003                     move.w  D3, D0
0144BE: 48C0                     ext.l   D0
0144C0: 3239 0001 F1D2           move.w  $1f1d2.l, D1
0144C6: 48C1                     ext.l   D1
0144C8: 7410                     moveq   #$10, D2
0144CA: 9282                     sub.l   D2, D1
0144CC: B081                     cmp.l   D1, D0
0144CE: 6C0C                     bge     144dc
0144D0: 0C13 00FF                cmpi.b  #-$1, (A3)
0144D4: 6606                     bne     144dc
0144D6: 4239 0040 0008           clr.b   $400008.l
0144DC: 4CDF 3CFC                movem.l (A7)+, D2-D7/A2-A5
0144E0: 4E5E                     unlk    A6
0144E2: 4E75                     rts
0144E4: 48E7 3000                movem.l D2-D3, -(A7)
0144E8: 302F 000E                move.w  ($e,A7), D0
0144EC: 342F 0012                move.w  ($12,A7), D2
0144F0: 48C0                     ext.l   D0
0144F2: 2079 0040 0474           movea.l $400474.l, A0
0144F8: 3228 0010                move.w  ($10,A0), D1
0144FC: 48C1                     ext.l   D1
0144FE: 9081                     sub.l   D1, D0
014500: E880                     asr.l   #4, D0
014502: 1600                     move.b  D0, D3
014504: 3002                     move.w  D2, D0
014506: 48C0                     ext.l   D0
014508: 2079 0040 0474           movea.l $400474.l, A0
01450E: 3228 0010                move.w  ($10,A0), D1
014512: 48C1                     ext.l   D1
014514: 9081                     sub.l   D1, D0
014516: E880                     asr.l   #4, D0
014518: 1400                     move.b  D0, D2
01451A: B602                     cmp.b   D2, D3
01451C: 6700 0126                beq     14644
014520: 1202                     move.b  D2, D1
014522: 4881                     ext.w   D1
014524: 48C1                     ext.l   D1
014526: 2F01                     move.l  D1, -(A7)
014528: 1003                     move.b  D3, D0
01452A: 4880                     ext.w   D0
01452C: 48C0                     ext.l   D0
01452E: 2F00                     move.l  D0, -(A7)
014530: 4EB9 0001 5A12           jsr     $15a12.l
014536: 1202                     move.b  D2, D1
014538: 4881                     ext.w   D1
01453A: 48C1                     ext.l   D1
01453C: 2F01                     move.l  D1, -(A7)
01453E: 1003                     move.b  D3, D0
014540: 4880                     ext.w   D0
014542: 48C0                     ext.l   D0
014544: 2F00                     move.l  D0, -(A7)
014546: 4EB9 0001 4C46           jsr     $14c46.l
01454C: 1202                     move.b  D2, D1
01454E: 4881                     ext.w   D1
014550: 48C1                     ext.l   D1
014552: 2F01                     move.l  D1, -(A7)
014554: 1003                     move.b  D3, D0
014556: 4880                     ext.w   D0
014558: 48C0                     ext.l   D0
01455A: 2F00                     move.l  D0, -(A7)
01455C: 4EB9 0001 7346           jsr     $17346.l
014562: 1202                     move.b  D2, D1
014564: 4881                     ext.w   D1
014566: 48C1                     ext.l   D1
014568: 2F01                     move.l  D1, -(A7)
01456A: 1003                     move.b  D3, D0
01456C: 4880                     ext.w   D0
01456E: 48C0                     ext.l   D0
014570: 2F00                     move.l  D0, -(A7)
014572: 4EB9 0001 2DFA           jsr     $12dfa.l
014578: 7003                     moveq   #$3, D0
01457A: B079 0040 0394           cmp.w   $400394.l, D0
014580: 4FEF 0020                lea     ($20,A7), A7
014584: 6630                     bne     145b6
014586: 0C03 0029                cmpi.b  #$29, D3
01458A: 6C12                     bge     1459e
01458C: 0C02 0029                cmpi.b  #$29, D2
014590: 6D0C                     blt     1459e
014592: 4878 0009                pea     $9.w
014596: 4EB9 0002 6B66           jsr     $26b66.l
01459C: 588F                     addq.l  #4, A7
01459E: 0C03 0029                cmpi.b  #$29, D3
0145A2: 6D12                     blt     145b6
0145A4: 0C02 0029                cmpi.b  #$29, D2
0145A8: 6C0C                     bge     145b6
0145AA: 4878 0008                pea     $8.w
0145AE: 4EB9 0002 6B66           jsr     $26b66.l
0145B4: 588F                     addq.l  #4, A7
0145B6: 7004                     moveq   #$4, D0
0145B8: B079 0040 0394           cmp.w   $400394.l, D0
0145BE: 6600 0084                bne     14644
0145C2: 0C03 001D                cmpi.b  #$1d, D3
0145C6: 6D00 0008                blt     145d0
0145CA: 0C03 0038                cmpi.b  #$38, D3
0145CE: 6F12                     ble     145e2
0145D0: 0C02 001D                cmpi.b  #$1d, D2
0145D4: 6D0C                     blt     145e2
0145D6: 0C02 0038                cmpi.b  #$38, D2
0145DA: 6E06                     bgt     145e2
0145DC: 4EB9 0001 8FFA           jsr     $18ffa.l
0145E2: 0C03 001D                cmpi.b  #$1d, D3
0145E6: 6D1A                     blt     14602
0145E8: 0C03 0038                cmpi.b  #$38, D3
0145EC: 6E14                     bgt     14602
0145EE: 0C02 001D                cmpi.b  #$1d, D2
0145F2: 6D00 0008                blt     145fc
0145F6: 0C02 0038                cmpi.b  #$38, D2
0145FA: 6F06                     ble     14602
0145FC: 4EB9 0001 90EE           jsr     $190ee.l
014602: 0C03 0003                cmpi.b  #$3, D3
014606: 6D00 0008                blt     14610
01460A: 0C03 001B                cmpi.b  #$1b, D3
01460E: 6F14                     ble     14624
014610: 0C02 0003                cmpi.b  #$3, D2
014614: 6D0E                     blt     14624
014616: 0C02 001B                cmpi.b  #$1b, D2
01461A: 6E08                     bgt     14624
01461C: 13FC 0001 0040 0762      move.b  #$1, $400762.l
014624: 0C03 0003                cmpi.b  #$3, D3
014628: 6D1A                     blt     14644
01462A: 0C03 001B                cmpi.b  #$1b, D3
01462E: 6E14                     bgt     14644
014630: 0C02 0003                cmpi.b  #$3, D2
014634: 6D00 0008                blt     1463e
014638: 0C02 001B                cmpi.b  #$1b, D2
01463C: 6F06                     ble     14644
01463E: 4239 0040 0762           clr.b   $400762.l
014644: 4CDF 000C                movem.l (A7)+, D2-D3
014648: 4E75                     rts
01464A: 4E56 FFF8                link    A6, #-$8
01464E: 48E7 3038                movem.l D2-D3/A2-A4, -(A7)
014652: 267C 0040 039E           movea.l #$40039e, A3
014658: 247C 0040 03B8           movea.l #$4003b8, A2
01465E: 287C 0040 03DE           movea.l #$4003de, A4
014664: 4240                     clr.w   D0
014666: 33C0 0040 0000           move.w  D0, $400000.l
01466C: 33C0 0040 0002           move.w  D0, $400002.l
014672: 33C0 0080 0000           move.w  D0, $800000.l        Horizontal scroll
014678: 33C0 0082 0000           move.w  D0, $820000.l        Vertical scroll
01467E: 4279 0088 0000           clr.w   $880000.l
014684: 227C 0040 0018           movea.l #$400018, A1
01468A: 4242                     clr.w   D2
01468C: 4229 0018                clr.b   ($18,A1)
014690: 137C 00FF 006E           move.b  #$ff, ($6e,A1)
014696: 70FF                     moveq   #-$1, D0
014698: 1340 0071                move.b  D0, ($71,A1)
01469C: 1340 0070                move.b  D0, ($70,A1)
0146A0: 7041                     moveq   #$41, D0
0146A2: 1340 00C2                move.b  D0, ($c2,A1)
0146A6: 1340 00C1                move.b  D0, ($c1,A1)
0146AA: 1340 00C0                move.b  D0, ($c0,A1)
0146AE: 2609                     move.l  A1, D3
0146B0: 0683 0000 00E2           addi.l  #$e2, D3
0146B6: 2243                     movea.l D3, A1
0146B8: 3002                     move.w  D2, D0
0146BA: 48C0                     ext.l   D0
0146BC: E580                     asl.l   #2, D0
0146BE: 2200                     move.l  D0, D1
0146C0: EB80                     asl.l   #5, D0
0146C2: 9081                     sub.l   D1, D0
0146C4: 207C 0040 09A4           movea.l #$4009a4, A0
0146CA: 4230 0818                clr.b   ($18,A0,D0.l)
0146CE: 5242                     addq.w  #1, D2
0146D0: 7002                     moveq   #$2, D0
0146D2: B042                     cmp.w   D2, D0
0146D4: 66B6                     bne     1468c
0146D6: 4279 0088 0000           clr.w   $880000.l
0146DC: 177C 00FF 0004           move.b  #$ff, ($4,A3)
0146E2: 4200                     clr.b   D0
0146E4: 13C0 0040 0008           move.b  D0, $400008.l
0146EA: 13C0 0040 0006           move.b  D0, $400006.l
0146F0: 13C0 0040 000A           move.b  D0, $40000a.l
0146F6: 33FC 0001 0040 0396      move.w  #$1, $400396.l
0146FE: 4239 0040 039C           clr.b   $40039c.l
014704: 103C 00FF                move.b  #$ff, D0
014708: 13C0 0040 03A8           move.b  D0, $4003a8.l
01470E: 13C0 0040 03AA           move.b  D0, $4003aa.l
014714: 4239 0040 03AC           clr.b   $4003ac.l
01471A: 4279 0040 045C           clr.w   $40045c.l
014720: 4239 0040 03E2           clr.b   $4003e2.l
014726: 4239 0040 045E           clr.b   $40045e.l
01472C: 13FC 00FF 0040 0460      move.b  #$ff, $400460.l
014734: 4200                     clr.b   D0
014736: 13C0 0040 03B4           move.b  D0, $4003b4.l
01473C: 13C0 0040 03B2           move.b  D0, $4003b2.l
014742: 4200                     clr.b   D0
014744: 13C0 0040 03EE           move.b  D0, $4003ee.l
01474A: 4880                     ext.w   D0
01474C: 33C0 0040 03EA           move.w  D0, $4003ea.l
014752: 4239 0040 03E6           clr.b   $4003e6.l
014758: 23FC 0040 040C 0040 0408 move.l  #$40040c, $400408.l
014762: 4EB9 0001 010A           jsr     $1010a.l
014768: 5239 0040 03F0           addq.b  #1, $4003f0.l
01476E: 4EB9 0001 0392           jsr     $10392.l
014774: 4A39 0040 000E           tst.b   $40000e.l
01477A: 6D00 0084                blt     14800
01477E: 4279 0040 0390           clr.w   $400390.l  Put game in 'play' mode
014784: 42A7                     clr.l   -(A7)
014786: 4EB9 0002 6B2A           jsr     $26b2a.l
01478C: 4A39 0040 000E           tst.b   $40000e.l
014792: 588F                     addq.l  #4, A7
014794: 661E                     bne     147b4
014796: 4EB9 0002 8580           jsr     $28580.l
01479C: 4878 0028                pea     $28.w
0147A0: 4878 3400                pea     $3400.w
0147A4: 4879 0002 2A1A           pea     $22a1a.l
0147AA: 4EB9 0000 0100           jsr     $100.l
0147B0: 4FEF 000C                lea     ($c,A7), A7
0147B4: 4239 0040 03AC           clr.b   $4003ac.l
0147BA: 36BC 001E                move.w  #$1e, (A3)
0147BE: 422B 0002                clr.b   ($2,A3)
0147C2: 422B 0004                clr.b   ($4,A3)
0147C6: 1039 0040 03AC           move.b  $4003ac.l, D0
0147CC: 4880                     ext.w   D0
0147CE: 48C0                     ext.l   D0
0147D0: 7203                     moveq   #$3, D1
0147D2: C081                     and.l   D1, D0
0147D4: 660E                     bne     147e4
0147D6: 70FF                     moveq   #-$1, D0
0147D8: B053                     cmp.w   (A3), D0
0147DA: 6708                     beq     147e4
0147DC: 4EB9 0002 8DEA           jsr     $28dea.l
0147E2: 60E2                     bra     147c6
0147E4: 4A39 0040 000E           tst.b   $40000e.l
0147EA: 660E                     bne     147fa
0147EC: 4879 0002 2A1A           pea     $22a1a.l
0147F2: 4EB9 0000 0118           jsr     $118.l
0147F8: 588F                     addq.l  #4, A7
0147FA: 4EB9 0001 21A6           jsr     $121a6.l
014800: 4EB9 0002 8580           jsr     $28580.l
014806: 4878 003C                pea     $3c.w
01480A: 4EB9 0002 8DB8           jsr     $28db8.l
014810: 4A52                     tst.w   (A2)
014812: 588F                     addq.l  #4, A7
014814: 6750                     beq     14866
014816: 42A7                     clr.l   -(A7)
014818: 4EB9 0002 6B2A           jsr     $26b2a.l
01481E: 4878 0028                pea     $28.w
014822: 4878 3400                pea     $3400.w
014826: 4879 0002 28E2           pea     $228e2.l
01482C: 4EB9 0000 0100           jsr     $100.l
014832: 4FEF 0010                lea     ($10,A7), A7
014836: 4A52                     tst.w   (A2)
014838: 6718                     beq     14852
01483A: 4EB9 0002 8DEA           jsr     $28dea.l
014840: 4A52                     tst.w   (A2)
014842: 67F2                     beq     14836
014844: 5352                     subq.w  #1, (A2)
014846: 4A52                     tst.w   (A2)
014848: 66EC                     bne     14836
01484A: 4EB9 0001 00E0           jsr     $100e0.l
014850: 60E4                     bra     14836
014852: 4879 0002 28E2           pea     $228e2.l
014858: 4EB9 0000 0118           jsr     $118.l
01485E: 4EB9 0001 21A6           jsr     $121a6.l
014864: 588F                     addq.l  #4, A7
014866: 4878 000B                pea     $b.w
01486A: 4EB9 0000 01A8           jsr     $1a8.l
014870: 0240 00FF                andi.w  #$ff, D0
014874: 3880                     move.w  D0, (A4)
014876: 0C54 00E0                cmpi.w  #$e0, (A4)
01487A: 588F                     addq.l  #4, A7
01487C: 6D0C                     blt     1488a
01487E: 70FF                     moveq   #-$1, D0
014880: 33C0 0040 03EA           move.w  D0, $4003ea.l
014886: 3880                     move.w  D0, (A4)
014888: 6004                     bra     1488e
01488A: 0254 0003                andi.w  #$3, (A4)
01488E: 5239 0040 03F0           addq.b  #1, $4003f0.l
014894: 4878 000C                pea     $c.w
014898: 4EB9 0000 01A8           jsr     $1a8.l
01489E: 33C0 0040 03DC           move.w  D0, $4003dc.l
0148A4: 3039 0040 03DC           move.w  $4003dc.l, D0
0148AA: 48C0                     ext.l   D0
0148AC: 0280 0000 8000           andi.l  #$8000, D0
0148B2: 588F                     addq.l  #4, A7
0148B4: 6730                     beq     148e6
0148B6: 0279 7FFF 0040 03DC      andi.w  #$7fff, $4003dc.l
0148BE: 3239 0040 03DC           move.w  $4003dc.l, D1
0148C4: 48C1                     ext.l   D1
0148C6: 2F01                     move.l  D1, -(A7)
0148C8: 4878 000C                pea     $c.w
0148CC: 4EB9 0000 01C0           jsr     $1c0.l
0148D2: 41EE FFF8                lea     (-$8,A6), A0
0148D6: 4290                     clr.l   (A0)
0148D8: 2F08                     move.l  A0, -(A7)
0148DA: 42A7                     clr.l   -(A7)
0148DC: 4EB9 0000 01B4           jsr     $1b4.l
0148E2: 4FEF 0010                lea     ($10,A7), A7
0148E6: 42A7                     clr.l   -(A7)
0148E8: 4EB9 0000 01AE           jsr     $1ae.l
0148EE: 2040                     movea.l D0, A0
0148F0: 4A90                     tst.l   (A0)
0148F2: 588F                     addq.l  #4, A7
0148F4: 660C                     bne     14902
0148F6: 42A7                     clr.l   -(A7)
0148F8: 4EB9 0001 1AD8           jsr     $11ad8.l
0148FE: 588F                     addq.l  #4, A7
014900: 601E                     bra     14920
014902: 4878 0004                pea     $4.w
014906: 4EB9 0000 01AE           jsr     $1ae.l
01490C: 2040                     movea.l D0, A0
01490E: 4A90                     tst.l   (A0)
014910: 588F                     addq.l  #4, A7
014912: 660C                     bne     14920
014914: 4878 0004                pea     $4.w
014918: 4EB9 0001 1AD8           jsr     $11ad8.l
01491E: 588F                     addq.l  #4, A7
014920: 5239 0040 03F0           addq.b  #1, $4003f0.l
014926: 4879 0000 0061           pea     $61.l
01492C: 4EB9 0001 58AC           jsr     $158ac.l
014932: 588F                     addq.l  #4, A7
014934: 4CDF 1C0C                movem.l (A7)+, D2-D3/A2-A4
014938: 4E5E                     unlk    A6
01493A: 4E75                     rts
01493C: 48E7 3000                movem.l D2-D3, -(A7)
014940: 263C 0040 1302           move.l  #$401302, D3
014946: 4202                     clr.b   D2
014948: 2203                     move.l  D3, D1
01494A: 7060                     moveq   #$60, D0
01494C: D680                     add.l   D0, D3
01494E: 2F01                     move.l  D1, -(A7)
014950: 4EB9 0001 4966           jsr     $14966.l
014956: 588F                     addq.l  #4, A7
014958: 5202                     addq.b  #1, D2
01495A: 0C02 0004                cmpi.b  #$4, D2
01495E: 66E8                     bne     14948
014960: 4CDF 000C                movem.l (A7)+, D2-D3
014964: 4E75                     rts
014966: 48E7 3C20                movem.l D2-D5/A2, -(A7)
01496A: 246F 0018                movea.l ($18,A7), A2
01496E: 4A2A 0018                tst.b   ($18,A2)
014972: 6700 0254                beq     14bc8
014976: 522A 0024                addq.b  #1, ($24,A2)
01497A: 102A 0025                move.b  ($25,A2), D0
01497E: B02A 0024                cmp.b   ($24,A2), D0
014982: 6E00 0074                bgt     149f8
014986: 422A 0024                clr.b   ($24,A2)
01498A: 102A 0026                move.b  ($26,A2), D0
01498E: 4880                     ext.w   D0
014990: 48C0                     ext.l   D0
014992: E580                     asl.l   #2, D0
014994: D1AA 0058                add.l   D0, ($58,A2)
014998: 206A 0058                movea.l ($58,A2), A0
01499C: 70FF                     moveq   #-$1, D0
01499E: B090                     cmp.l   (A0), D0
0149A0: 6700 000C                beq     149ae
0149A4: 202A 005C                move.l  ($5c,A2), D0
0149A8: B0AA 0058                cmp.l   ($58,A2), D0
0149AC: 6636                     bne     149e4
0149AE: 256A 005C 0058           move.l  ($5c,A2), ($58,A2)
0149B4: 4A2A 0026                tst.b   ($26,A2)
0149B8: 6F1E                     ble     149d8
0149BA: 4A2A 001A                tst.b   ($1a,A2)
0149BE: 6700 000A                beq     149ca
0149C2: 0C2A 0003 001A           cmpi.b  #$3, ($1a,A2)
0149C8: 660E                     bne     149d8
0149CA: 2012                     move.l  (A2), D0
0149CC: D1AA 000C                add.l   D0, ($c,A2)
0149D0: 202A 0004                move.l  ($4,A2), D0
0149D4: D1AA 0010                add.l   D0, ($10,A2)
0149D8: 2F0A                     move.l  A2, -(A7)
0149DA: 4EB9 0001 5148           jsr     $15148.l
0149E0: 588F                     addq.l  #4, A7
0149E2: 6026                     bra     14a0a
0149E4: 0C2A 0002 001A           cmpi.b  #$2, ($1a,A2)
0149EA: 661E                     bne     14a0a
0149EC: 2F0A                     move.l  A2, -(A7)
0149EE: 4EB9 0001 5148           jsr     $15148.l
0149F4: 588F                     addq.l  #4, A7
0149F6: 6012                     bra     14a0a
0149F8: 0C2A 0002 001A           cmpi.b  #$2, ($1a,A2)
0149FE: 660A                     bne     14a0a
014A00: 2F0A                     move.l  A2, -(A7)
014A02: 4EB9 0001 5148           jsr     $15148.l
014A08: 588F                     addq.l  #4, A7
014A0A: 0C2A 0001 001A           cmpi.b  #$1, ($1a,A2)
014A10: 6700 0016                beq     14a28
014A14: 0C2A 0005 001A           cmpi.b  #$5, ($1a,A2)
014A1A: 6700 000C                beq     14a28
014A1E: 0C2A 0006 001A           cmpi.b  #$6, ($1a,A2)
014A24: 6600 0198                bne     14bbe
014A28: 0C2A 0005 0027           cmpi.b  #$5, ($27,A2)
014A2E: 6F00 018A                ble     14bba
014A32: 0C2A 0026 0027           cmpi.b  #$26, ($27,A2)
014A38: 6C00 0180                bge     14bba
014A3C: 2F0A                     move.l  A2, -(A7)
014A3E: 4EB9 0001 BB08           jsr     $1bb08.l
014A44: 4878 0001                pea     $1.w
014A48: 4EB9 0001 CC62           jsr     $1cc62.l
014A4E: 2A00                     move.l  D0, D5
014A50: 102A 0027                move.b  ($27,A2), D0
014A54: 4880                     ext.w   D0
014A56: 48C0                     ext.l   D0
014A58: 5D80                     subq.l  #6, D0
014A5A: 207C 0002 255A           movea.l #$2255a, A0
014A60: 1030 0000                move.b  (A0,D0.w), D0
014A64: 4880                     ext.w   D0
014A66: 48C0                     ext.l   D0
014A68: 7210                     moveq   #$10, D1
014A6A: E3A0                     asl.l   D1, D0
014A6C: D085                     add.l   D5, D0
014A6E: 2540 0014                move.l  D0, ($14,A2)
014A72: 302A 0056                move.w  ($56,A2), D0
014A76: 48C0                     ext.l   D0
014A78: E580                     asl.l   #2, D0
014A7A: 207C 0001 EFF6           movea.l #$1eff6, A0
014A80: 2070 0800                movea.l (A0,D0.l), A0
014A84: 0C28 0001 0018           cmpi.b  #$1, ($18,A0)
014A8A: 508F                     addq.l  #8, A7
014A8C: 6600 00E0                bne     14b6e
014A90: 102A 001B                move.b  ($1b,A2), D0
014A94: B028 001B                cmp.b   ($1b,A0), D0
014A98: 6600 00D4                bne     14b6e
014A9C: 4A28 0036                tst.b   ($36,A0)
014AA0: 6600 00CC                bne     14b6e
014AA4: BAA8 0014                cmp.l   ($14,A0), D5
014AA8: 6600 00C4                bne     14b6e
014AAC: 4A28 001A                tst.b   ($1a,A0)
014AB0: 6700 0020                beq     14ad2
014AB4: 0C28 0001 001A           cmpi.b  #$1, ($1a,A0)
014ABA: 6700 0016                beq     14ad2
014ABE: 0C28 0005 001A           cmpi.b  #$5, ($1a,A0)
014AC4: 6700 000C                beq     14ad2
014AC8: 0C28 0007 001A           cmpi.b  #$7, ($1a,A0)
014ACE: 6600 009E                bne     14b6e
014AD2: 2428 000C                move.l  ($c,A0), D2
014AD6: 94AA 000C                sub.l   ($c,A2), D2
014ADA: 2628 0010                move.l  ($10,A0), D3
014ADE: 96AA 0010                sub.l   ($10,A2), D3
014AE2: 2002                     move.l  D2, D0
014AE4: E880                     asr.l   #4, D0
014AE6: 2480                     move.l  D0, (A2)
014AE8: 2003                     move.l  D3, D0
014AEA: E880                     asr.l   #4, D0
014AEC: 2540 0004                move.l  D0, ($4,A2)
014AF0: 4A82                     tst.l   D2
014AF2: 6C06                     bge     14afa
014AF4: 2002                     move.l  D2, D0
014AF6: 4480                     neg.l   D0
014AF8: 6002                     bra     14afc
014AFA: 2002                     move.l  D2, D0
014AFC: 720C                     moveq   #$c, D1
014AFE: E2A0                     asr.l   D1, D0
014B00: 3800                     move.w  D0, D4
014B02: 4A83                     tst.l   D3
014B04: 6C06                     bge     14b0c
014B06: 2003                     move.l  D3, D0
014B08: 4480                     neg.l   D0
014B0A: 6002                     bra     14b0e
014B0C: 2003                     move.l  D3, D0
014B0E: 720C                     moveq   #$c, D1
014B10: E2A0                     asr.l   D1, D0
014B12: B840                     cmp.w   D0, D4
014B14: 630C                     bls     14b22
014B16: 3200                     move.w  D0, D1
014B18: E649                     lsr.w   #3, D1
014B1A: C2FC 0003                mulu.w  #$3, D1
014B1E: D244                     add.w   D4, D1
014B20: 600A                     bra     14b2c
014B22: 3204                     move.w  D4, D1
014B24: E649                     lsr.w   #3, D1
014B26: C2FC 0003                mulu.w  #$3, D1
014B2A: D240                     add.w   D0, D1
014B2C: 4A41                     tst.w   D1
014B2E: 670E                     beq     14b3e
014B30: 2002                     move.l  D2, D0
014B32: 81C1                     divs.w  D1, D0
014B34: 3400                     move.w  D0, D2
014B36: 2003                     move.l  D3, D0
014B38: 81C1                     divs.w  D1, D0
014B3A: 3200                     move.w  D0, D1
014B3C: 6004                     bra     14b42
014B3E: 4242                     clr.w   D2
014B40: 3202                     move.w  D2, D1
014B42: 363C 0800                move.w  #$800, D3
014B46: 3003                     move.w  D3, D0
014B48: C1C2                     muls.w  D2, D0
014B4A: 2400                     move.l  D0, D2
014B4C: E882                     asr.l   #4, D2
014B4E: 3003                     move.w  D3, D0
014B50: C1C1                     muls.w  D1, D0
014B52: 2600                     move.l  D0, D3
014B54: E883                     asr.l   #4, D3
014B56: 2002                     move.l  D2, D0
014B58: 9092                     sub.l   (A2), D0
014B5A: EA80                     asr.l   #5, D0
014B5C: 2203                     move.l  D3, D1
014B5E: 92AA 0004                sub.l   ($4,A2), D1
014B62: EA81                     asr.l   #5, D1
014B64: D192                     add.l   D0, (A2)
014B66: 2001                     move.l  D1, D0
014B68: D1AA 0004                add.l   D0, ($4,A2)
014B6C: 6006                     bra     14b74
014B6E: 4292                     clr.l   (A2)
014B70: 42AA 0004                clr.l   ($4,A2)
014B74: 23EA 000C 0040 0684      move.l  ($c,A2), $400684.l
014B7C: 23EA 0010 0040 0688      move.l  ($10,A2), $400688.l
014B84: 2012                     move.l  (A2), D0
014B86: D1AA 000C                add.l   D0, ($c,A2)
014B8A: 202A 0004                move.l  ($4,A2), D0
014B8E: D1AA 0010                add.l   D0, ($10,A2)
014B92: 2F0A                     move.l  A2, -(A7)
014B94: 4EB9 0001 BB08           jsr     $1bb08.l
014B9A: 4878 0001                pea     $1.w
014B9E: 4EB9 0001 CC62           jsr     $1cc62.l
014BA4: BA80                     cmp.l   D0, D5
014BA6: 508F                     addq.l  #8, A7
014BA8: 6710                     beq     14bba
014BAA: 2579 0040 0684 000C      move.l  $400684.l, ($c,A2)
014BB2: 2579 0040 0688 0010      move.l  $400688.l, ($10,A2)
014BBA: 522A 0027                addq.b  #1, ($27,A2)
014BBE: 2F0A                     move.l  A2, -(A7)
014BC0: 4EB9 0001 50D0           jsr     $150d0.l
014BC6: 588F                     addq.l  #4, A7
014BC8: 4CDF 043C                movem.l (A7)+, D2-D5/A2
014BCC: 4E75                     rts
014BCE: 2F02                     move.l  D2, -(A7)
014BD0: 74FF                     moveq   #-$1, D2
014BD2: 4201                     clr.b   D1
014BD4: 1001                     move.b  D1, D0
014BD6: 4880                     ext.w   D0
014BD8: 48C0                     ext.l   D0
014BDA: E580                     asl.l   #2, D0
014BDC: 207C 0001 F006           movea.l #$1f006, A0
014BE2: 2070 0800                movea.l (A0,D0.l), A0
014BE6: 4A28 0018                tst.b   ($18,A0)
014BEA: 6612                     bne     14bfe
014BEC: 1001                     move.b  D1, D0
014BEE: 4880                     ext.w   D0
014BF0: 48C0                     ext.l   D0
014BF2: E580                     asl.l   #2, D0
014BF4: 207C 0001 F006           movea.l #$1f006, A0
014BFA: 2430 0800                move.l  (A0,D0.l), D2
014BFE: 5201                     addq.b  #1, D1
014C00: 0C01 0004                cmpi.b  #$4, D1
014C04: 66CE                     bne     14bd4
014C06: 2002                     move.l  D2, D0
014C08: 241F                     move.l  (A7)+, D2
014C0A: 4E75                     rts
014C0C: 2F02                     move.l  D2, -(A7)
014C0E: 206F 0008                movea.l ($8,A7), A0
014C12: 4202                     clr.b   D2
014C14: 227C 0040 1302           movea.l #$401302, A1
014C1A: 4201                     clr.b   D1
014C1C: 4A29 0018                tst.b   ($18,A1)
014C20: 670E                     beq     14c30
014C22: 2028 0002                move.l  ($2,A0), D0
014C26: B0A9 004E                cmp.l   ($4e,A1), D0
014C2A: 6604                     bne     14c30
014C2C: 7401                     moveq   #$1, D2
014C2E: 600C                     bra     14c3c
014C30: 7060                     moveq   #$60, D0
014C32: D3C0                     adda.l  D0, A1
014C34: 5201                     addq.b  #1, D1
014C36: 0C01 0004                cmpi.b  #$4, D1
014C3A: 66E0                     bne     14c1c
014C3C: 1002                     move.b  D2, D0
014C3E: 4880                     ext.w   D0
014C40: 48C0                     ext.l   D0
014C42: 241F                     move.l  (A7)+, D2
014C44: 4E75                     rts
014C46: 48E7 3830                movem.l D2-D4/A2-A3, -(A7)
014C4A: 142F 001B                move.b  ($1b,A7), D2
014C4E: 162F 001F                move.b  ($1f,A7), D3
014C52: 3039 0040 0394           move.w  $400394.l, D0
014C58: E540                     asl.w   #2, D0
014C5A: 207C 0002 257A           movea.l #$2257a, A0
014C60: 2670 0000                movea.l (A0,D0.w), A3
014C64: 0C13 00FF                cmpi.b  #-$1, (A3)
014C68: 6700 011C                beq     14d86
014C6C: 4EB9 0001 4BCE           jsr     $14bce.l
014C72: 2200                     move.l  D0, D1
014C74: 2441                     movea.l D1, A2
014C76: 70FF                     moveq   #-$1, D0
014C78: B081                     cmp.l   D1, D0
014C7A: 6700 010A                beq     14d86
014C7E: 2F0B                     move.l  A3, -(A7)
014C80: 4EB9 0001 4C0C           jsr     $14c0c.l
014C86: 4A80                     tst.l   D0
014C88: 588F                     addq.l  #4, A7
014C8A: 6600 00F4                bne     14d80
014C8E: B613                     cmp.b   (A3), D3
014C90: 6708                     beq     14c9a
014C92: B62B 0001                cmp.b   ($1,A3), D3
014C96: 6600 00E8                bne     14d80
014C9A: B413                     cmp.b   (A3), D2
014C9C: 6D00 000A                blt     14ca8
014CA0: B42B 0001                cmp.b   ($1,A3), D2
014CA4: 6F00 00DA                ble     14d80
014CA8: 202B 0002                move.l  ($2,A3), D0
014CAC: 2540 004A                move.l  D0, ($4a,A2)
014CB0: 2040                     movea.l D0, A0
014CB2: 2548 004E                move.l  A0, ($4e,A2)
014CB6: 156B 0006 001B           move.b  ($6,A3), ($1b,A2)
014CBC: 1013                     move.b  (A3), D0
014CBE: 4880                     ext.w   D0
014CC0: 3540 0052                move.w  D0, ($52,A2)
014CC4: 102B 0001                move.b  ($1,A3), D0
014CC8: 4880                     ext.w   D0
014CCA: 3540 0054                move.w  D0, ($54,A2)
014CCE: 1010                     move.b  (A0), D0
014CD0: 4880                     ext.w   D0
014CD2: 1828 0001                move.b  ($1,A0), D4
014CD6: 4884                     ext.w   D4
014CD8: 48C0                     ext.l   D0
014CDA: 7213                     moveq   #$13, D1
014CDC: E3A0                     asl.l   D1, D0
014CDE: 0680 0004 0000           addi.l  #$40000, D0
014CE4: 2540 000C                move.l  D0, ($c,A2)
014CE8: 3004                     move.w  D4, D0
014CEA: 48C0                     ext.l   D0
014CEC: 7213                     moveq   #$13, D1
014CEE: E3A0                     asl.l   D1, D0
014CF0: 0680 0004 0000           addi.l  #$40000, D0
014CF6: 2540 0010                move.l  D0, ($10,A2)
014CFA: 2F0A                     move.l  A2, -(A7)
014CFC: 4EB9 0001 BB08           jsr     $1bb08.l
014D02: 4878 0001                pea     $1.w
014D06: 4EB9 0001 CC62           jsr     $1cc62.l
014D0C: 2540 0014                move.l  D0, ($14,A2)
014D10: 7000                     moveq   #$0, D0
014D12: 2540 0004                move.l  D0, ($4,A2)
014D16: 2480                     move.l  D0, (A2)
014D18: 157C 0001 0018           move.b  #$1, ($18,A2)
014D1E: 422A 001A                clr.b   ($1a,A2)
014D22: 42AA 0028                clr.l   ($28,A2)
014D26: 4204                     clr.b   D4
014D28: 508F                     addq.l  #8, A7
014D2A: 1004                     move.b  D4, D0
014D2C: 4880                     ext.w   D0
014D2E: C0FC 0006                mulu.w  #$6, D0
014D32: 41EA 002C                lea     ($2c,A2), A0
014D36: 4270 0000                clr.w   (A0,D0.w)
014D3A: 5204                     addq.b  #1, D4
014D3C: 0C04 0005                cmpi.b  #$5, D4
014D40: 66E8                     bne     14d2a
014D42: 203C 0002 0C18           move.l  #$20c18, D0
014D48: 2540 005C                move.l  D0, ($5c,A2)
014D4C: 2540 0058                move.l  D0, ($58,A2)
014D50: 157C 0001 0026           move.b  #$1, ($26,A2)
014D56: 422A 0024                clr.b   ($24,A2)
014D5A: 157C 0002 0025           move.b  #$2, ($25,A2)
014D60: 2F0A                     move.l  A2, -(A7)
014D62: 4EB9 0001 50D0           jsr     $150d0.l
014D68: 102A 0019                move.b  ($19,A2), D0
014D6C: 4880                     ext.w   D0
014D6E: 48C0                     ext.l   D0
014D70: 2F00                     move.l  D0, -(A7)
014D72: 4878 0004                pea     $4.w
014D76: 4EB9 0001 8E6C           jsr     $18e6c.l
014D7C: 4FEF 000C                lea     ($c,A7), A7
014D80: 508B                     addq.l  #8, A3
014D82: 6000 FEE0                bra     14c64
014D86: 247C 0040 1302           movea.l #$401302, A2
014D8C: 4204                     clr.b   D4
014D8E: 4A2A 0018                tst.b   ($18,A2)
014D92: 6700 0046                beq     14dda
014D96: 1002                     move.b  D2, D0
014D98: 4880                     ext.w   D0
014D9A: B06A 0052                cmp.w   ($52,A2), D0
014D9E: 660C                     bne     14dac
014DA0: 1003                     move.b  D3, D0
014DA2: 4880                     ext.w   D0
014DA4: B06A 0052                cmp.w   ($52,A2), D0
014DA8: 6D00 0016                blt     14dc0
014DAC: 1002                     move.b  D2, D0
014DAE: 4880                     ext.w   D0
014DB0: B06A 0054                cmp.w   ($54,A2), D0
014DB4: 6624                     bne     14dda
014DB6: 1003                     move.b  D3, D0
014DB8: 4880                     ext.w   D0
014DBA: B06A 0054                cmp.w   ($54,A2), D0
014DBE: 6F1A                     ble     14dda
014DC0: 422A 0018                clr.b   ($18,A2)
014DC4: 102A 0019                move.b  ($19,A2), D0
014DC8: 4880                     ext.w   D0
014DCA: 48C0                     ext.l   D0
014DCC: 2F00                     move.l  D0, -(A7)
014DCE: 4878 0004                pea     $4.w
014DD2: 4EB9 0001 8F46           jsr     $18f46.l
014DD8: 508F                     addq.l  #8, A7
014DDA: 7060                     moveq   #$60, D0
014DDC: D5C0                     adda.l  D0, A2
014DDE: 5204                     addq.b  #1, D4
014DE0: 0C04 0004                cmpi.b  #$4, D4
014DE4: 66A8                     bne     14d8e
014DE6: 4CDF 0C1C                movem.l (A7)+, D2-D4/A2-A3
014DEA: 4E75                     rts
014DEC: 48E7 3E00                movem.l D2-D6, -(A7)
014DF0: 206F 0018                movea.l ($18,A7), A0
014DF4: 2228 000C                move.l  ($c,A0), D1
014DF8: 7013                     moveq   #$13, D0
014DFA: E0A1                     asr.l   D0, D1
014DFC: 3A01                     move.w  D1, D5
014DFE: 2228 0010                move.l  ($10,A0), D1
014E02: 7013                     moveq   #$13, D0
014E04: E0A1                     asr.l   D0, D1
014E06: 3801                     move.w  D1, D4
014E08: 2268 004E                movea.l ($4e,A0), A1
014E0C: 263C 0000 0400           move.l  #$400, D3
014E12: 0C11 00FF                cmpi.b  #-$1, (A1)
014E16: 6700 0070                beq     14e88
014E1A: 0C29 00FF 0001           cmpi.b  #-$1, ($1,A1)
014E20: 6700 0066                beq     14e88
014E24: 3205                     move.w  D5, D1
014E26: 1011                     move.b  (A1), D0
014E28: 4880                     ext.w   D0
014E2A: 9240                     sub.w   D0, D1
014E2C: 4A41                     tst.w   D1
014E2E: 6C08                     bge     14e38
014E30: 7000                     moveq   #$0, D0
014E32: 3001                     move.w  D1, D0
014E34: 4480                     neg.l   D0
014E36: 6004                     bra     14e3c
014E38: 7000                     moveq   #$0, D0
014E3A: 3001                     move.w  D1, D0
014E3C: 3400                     move.w  D0, D2
014E3E: E94A                     lsl.w   #4, D2
014E40: 3204                     move.w  D4, D1
014E42: 1029 0001                move.b  ($1,A1), D0
014E46: 4880                     ext.w   D0
014E48: 9240                     sub.w   D0, D1
014E4A: 4A41                     tst.w   D1
014E4C: 6C08                     bge     14e56
014E4E: 7000                     moveq   #$0, D0
014E50: 3001                     move.w  D1, D0
014E52: 4480                     neg.l   D0
014E54: 6004                     bra     14e5a
014E56: 7000                     moveq   #$0, D0
014E58: 3001                     move.w  D1, D0
014E5A: E948                     lsl.w   #4, D0
014E5C: B440                     cmp.w   D0, D2
014E5E: 630C                     bls     14e6c
014E60: 3200                     move.w  D0, D1
014E62: E649                     lsr.w   #3, D1
014E64: C2FC 0003                mulu.w  #$3, D1
014E68: D242                     add.w   D2, D1
014E6A: 600A                     bra     14e76
014E6C: 3202                     move.w  D2, D1
014E6E: E649                     lsr.w   #3, D1
014E70: C2FC 0003                mulu.w  #$3, D1
014E74: D240                     add.w   D0, D1
014E76: 7000                     moveq   #$0, D0
014E78: 3001                     move.w  D1, D0
014E7A: B083                     cmp.l   D3, D0
014E7C: 6406                     bcc     14e84
014E7E: 7600                     moveq   #$0, D3
014E80: 3601                     move.w  D1, D3
014E82: 2C09                     move.l  A1, D6
014E84: 5889                     addq.l  #4, A1
014E86: 608A                     bra     14e12
014E88: 2146 004A                move.l  D6, ($4a,A0)
014E8C: 4CDF 007C                movem.l (A7)+, D2-D6
014E90: 4E75                     rts
014E92: 4E56 FFF8                link    A6, #-$8
014E96: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
014E9A: 246E 0008                movea.l ($8,A6), A2
014E9E: 207C 0040 0394           movea.l #$400394, A0
014EA4: 7001                     moveq   #$1, D0
014EA6: B050                     cmp.w   (A0), D0
014EA8: 670E                     beq     14eb8
014EAA: 7002                     moveq   #$2, D0
014EAC: B050                     cmp.w   (A0), D0
014EAE: 6708                     beq     14eb8
014EB0: 7005                     moveq   #$5, D0
014EB2: B050                     cmp.w   (A0), D0
014EB4: 6600 0212                bne     150c8
014EB8: 3C39 0040 0690           move.w  $400690.l, D6
014EBE: 5746                     subq.w  #3, D6
014EC0: 3846                     movea.w D6, A4
014EC2: 5C4C                     addq.w  #6, A4
014EC4: 3279 0040 0692           movea.w $400692.l, A1
014ECA: 5749                     subq.w  #3, A1
014ECC: 3D49 FFFE                move.w  A1, (-$2,A6)
014ED0: 5C6E FFFE                addq.w  #6, (-$2,A6)
014ED4: 3D79 0040 0694 FFFA      move.w  $400694.l, (-$6,A6)
014EDC: 3D6E FFFA FFFC           move.w  (-$6,A6), (-$4,A6)
014EE2: 066E 000E FFFC           addi.w  #$e, (-$4,A6)
014EE8: 267C 0040 1302           movea.l #$401302, A3
014EEE: 4201                     clr.b   D1
014EF0: 4A2B 0018                tst.b   ($18,A3)
014EF4: 6700 01BE                beq     150b4
014EF8: 206B 0058                movea.l ($58,A3), A0
014EFC: 2050                     movea.l (A0), A0
014EFE: 70FF                     moveq   #-$1, D0
014F00: B088                     cmp.l   A0, D0
014F02: 660A                     bne     14f0e
014F04: 70FC                     moveq   #-$4, D0
014F06: 3600                     move.w  D0, D3
014F08: 7408                     moveq   #$8, D2
014F0A: 3802                     move.w  D2, D4
014F0C: 6018                     bra     14f26
014F0E: 1028 0004                move.b  ($4,A0), D0
014F12: 4880                     ext.w   D0
014F14: 1628 0005                move.b  ($5,A0), D3
014F18: 4883                     ext.w   D3
014F1A: 1428 0006                move.b  ($6,A0), D2
014F1E: 4882                     ext.w   D2
014F20: 1828 0007                move.b  ($7,A0), D4
014F24: 4884                     ext.w   D4
014F26: 41EB 000C                lea     ($c,A3), A0
014F2A: 3A10                     move.w  (A0), D5
014F2C: DA40                     add.w   D0, D5
014F2E: 3D42 FFF8                move.w  D2, (-$8,A6)
014F32: 3E2E FFF8                move.w  (-$8,A6), D7
014F36: DE45                     add.w   D5, D7
014F38: 3D47 FFF8                move.w  D7, (-$8,A6)
014F3C: 41EB 0010                lea     ($10,A3), A0
014F40: 3010                     move.w  (A0), D0
014F42: D043                     add.w   D3, D0
014F44: 3604                     move.w  D4, D3
014F46: D640                     add.w   D0, D3
014F48: 41EB 0014                lea     ($14,A3), A0
014F4C: 3410                     move.w  (A0), D2
014F4E: 3802                     move.w  D2, D4
014F50: 0644 0010                addi.w  #$10, D4
014F54: B46E FFFA                cmp.w   (-$6,A6), D2
014F58: 6E0A                     bgt     14f64
014F5A: 3E2E FFFA                move.w  (-$6,A6), D7
014F5E: BE44                     cmp.w   D4, D7
014F60: 6F00 0014                ble     14f76
014F64: B46E FFFC                cmp.w   (-$4,A6), D2
014F68: 6E00 014A                bgt     150b4
014F6C: 3E2E FFFC                move.w  (-$4,A6), D7
014F70: BE44                     cmp.w   D4, D7
014F72: 6E00 0140                bgt     150b4
014F76: BA46                     cmp.w   D6, D5
014F78: 6E08                     bgt     14f82
014F7A: BC6E FFF8                cmp.w   (-$8,A6), D6
014F7E: 6F00 0010                ble     14f90
014F82: BA4C                     cmp.w   A4, D5
014F84: 6E00 012E                bgt     150b4
014F88: B8EE FFF8                cmpa.w  (-$8,A6), A4
014F8C: 6E00 0126                bgt     150b4
014F90: B049                     cmp.w   A1, D0
014F92: 6E06                     bgt     14f9a
014F94: B2C3                     cmpa.w  D3, A1
014F96: 6F00 0014                ble     14fac
014F9A: B06E FFFE                cmp.w   (-$2,A6), D0
014F9E: 6E00 0114                bgt     150b4
014FA2: 3E2E FFFE                move.w  (-$2,A6), D7
014FA6: BE43                     cmp.w   D3, D7
014FA8: 6E00 010A                bgt     150b4
014FAC: 7401                     moveq   #$1, D2
014FAE: 4A2B 001A                tst.b   ($1a,A3)
014FB2: 6700 000A                beq     14fbe
014FB6: 0C2B 0003 001A           cmpi.b  #$3, ($1a,A3)
014FBC: 6624                     bne     14fe2
014FBE: 177C 0002 001A           move.b  #$2, ($1a,A3)
014FC4: 2F0B                     move.l  A3, -(A7)
014FC6: 4EB9 0001 5460           jsr     $15460.l
014FCC: 2012                     move.l  (A2), D0
014FCE: 2680                     move.l  D0, (A3)
014FD0: 2740 001C                move.l  D0, ($1c,A3)
014FD4: 202A 0004                move.l  ($4,A2), D0
014FD8: 2740 0004                move.l  D0, ($4,A3)
014FDC: 2740 0020                move.l  D0, ($20,A3)
014FE0: 588F                     addq.l  #4, A7
014FE2: 0C2B 0001 001A           cmpi.b  #$1, ($1a,A3)
014FE8: 6700 0014                beq     14ffe
014FEC: 0C2B 0005 001A           cmpi.b  #$5, ($1a,A3)
014FF2: 6700 000A                beq     14ffe
014FF6: 0C2B 0006 001A           cmpi.b  #$6, ($1a,A3)
014FFC: 660E                     bne     1500c
014FFE: 102A 0019                move.b  ($19,A2), D0
015002: 4880                     ext.w   D0
015004: B06B 0056                cmp.w   ($56,A3), D0
015008: 6600 0016                bne     15020
01500C: 0C2B 0001 001A           cmpi.b  #$1, ($1a,A3)
015012: 6700 00AE                beq     150c2
015016: 0C2B 0006 001A           cmpi.b  #$6, ($1a,A3)
01501C: 6700 00A4                beq     150c2
015020: 0C2A 0005 001A           cmpi.b  #$5, ($1a,A2)
015026: 6712                     beq     1503a
015028: 0C2B 0005 001A           cmpi.b  #$5, ($1a,A3)
01502E: 670A                     beq     1503a
015030: 102A 0019                move.b  ($19,A2), D0
015034: 4880                     ext.w   D0
015036: 3740 0056                move.w  D0, ($56,A3)
01503A: 2579 0040 0684 000C      move.l  $400684.l, ($c,A2)
015042: 2579 0040 0688 0010      move.l  $400688.l, ($10,A2)
01504A: 7000                     moveq   #$0, D0
01504C: 2540 0004                move.l  D0, ($4,A2)
015050: 2480                     move.l  D0, (A2)
015052: 0C2A 0001 001A           cmpi.b  #$1, ($1a,A2)
015058: 6614                     bne     1506e
01505A: 422A 005F                clr.b   ($5f,A2)
01505E: 157C 0002 0060           move.b  #$2, ($60,A2)
015064: 257C 0002 0FB6 005A      move.l  #$20fb6, ($5a,A2)
01506C: 6028                     bra     15096
01506E: 0C2A 0005 001A           cmpi.b  #$5, ($1a,A2)
015074: 6720                     beq     15096
015076: 4879 0000 0039           pea     $39.l
01507C: 4EB9 0001 58AC           jsr     $158ac.l
015082: 422A 005F                clr.b   ($5f,A2)
015086: 157C 0002 0060           move.b  #$2, ($60,A2)
01508C: 257C 0002 0FAA 005A      move.l  #$20faa, ($5a,A2)
015094: 588F                     addq.l  #4, A7
015096: 0C2A 0005 001A           cmpi.b  #$5, ($1a,A2)
01509C: 6724                     beq     150c2
01509E: 0C2A 0007 001A           cmpi.b  #$7, ($1a,A2)
0150A4: 671C                     beq     150c2
0150A6: 157C 0005 001A           move.b  #$5, ($1a,A2)
0150AC: 157C 0032 0056           move.b  #$32, ($56,A2)
0150B2: 600E                     bra     150c2
0150B4: 7060                     moveq   #$60, D0
0150B6: D7C0                     adda.l  D0, A3
0150B8: 5201                     addq.b  #1, D1
0150BA: 0C01 0004                cmpi.b  #$4, D1
0150BE: 6600 FE30                bne     14ef0
0150C2: 1002                     move.b  D2, D0
0150C4: 4880                     ext.w   D0
0150C6: 48C0                     ext.l   D0
0150C8: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
0150CC: 4E5E                     unlk    A6
0150CE: 4E75                     rts
0150D0: 48E7 3030                movem.l D2-D3/A2-A3, -(A7)
0150D4: 226F 0014                movea.l ($14,A7), A1
0150D8: 267C 0040 0692           movea.l #$400692, A3
0150DE: 247C 0040 0690           movea.l #$400690, A2
0150E4: 41E9 000C                lea     ($c,A1), A0
0150E8: 3490                     move.w  (A0), (A2)
0150EA: 41E9 0010                lea     ($10,A1), A0
0150EE: 3690                     move.w  (A0), (A3)
0150F0: 3613                     move.w  (A3), D3
0150F2: 9652                     sub.w   (A2), D3
0150F4: 0643 0088                addi.w  #$88, D3
0150F8: 41E9 0014                lea     ($14,A1), A0
0150FC: 3010                     move.w  (A0), D0
0150FE: 3439 0040 097E           move.w  $40097e.l, D2
015104: D440                     add.w   D0, D2
015106: 0642 0054                addi.w  #$54, D2
01510A: 3013                     move.w  (A3), D0
01510C: 48C0                     ext.l   D0
01510E: 3212                     move.w  (A2), D1
015110: 48C1                     ext.l   D1
015112: D081                     add.l   D1, D0
015114: E280                     asr.l   #1, D0
015116: 9440                     sub.w   D0, D2
015118: 3002                     move.w  D2, D0
01511A: 48C0                     ext.l   D0
01511C: 2400                     move.l  D0, D2
01511E: 0282 0000 FFFF           andi.l  #$ffff, D2
015124: 3003                     move.w  D3, D0
015126: 48C0                     ext.l   D0
015128: 2200                     move.l  D0, D1
01512A: 7010                     moveq   #$10, D0
01512C: E1A1                     asl.l   D0, D1
01512E: D481                     add.l   D1, D2
015130: 2342 0028                move.l  D2, ($28,A1)
015134: 4878 0002                pea     $2.w
015138: 2F09                     move.l  A1, -(A7)
01513A: 4EB9 0002 64AA           jsr     $264aa.l
015140: 508F                     addq.l  #8, A7
015142: 4CDF 0C0C                movem.l (A7)+, D2-D3/A2-A3
015146: 4E75                     rts
015148: 48E7 3838                movem.l D2-D4/A2-A4, -(A7)
01514C: 246F 001C                movea.l ($1c,A7), A2
015150: 267C 0001 5460           movea.l #$15460, A3
015156: 102A 001A                move.b  ($1a,A2), D0
01515A: 4880                     ext.w   D0
01515C: 48C0                     ext.l   D0
01515E: C189                     exg     D0, A1
015160: B2FC 0000                cmpa.w  #$0, A1
015164: C189                     exg     D0, A1
015166: 6D00 02F2                blt     1545a
01516A: C189                     exg     D0, A1
01516C: B2FC 0006                cmpa.w  #$6, A1
015170: C189                     exg     D0, A1
015172: 6E00 02E6                bgt     1545a
015176: 2240                     movea.l D0, A1
015178: 2009                     move.l  A1, D0
01517A: 2240                     movea.l D0, A1
01517C: D3C0                     adda.l  D0, A1
01517E: 2009                     move.l  A1, D0
015180: 303B 0006                move.w  ($6,PC,D0.w), D0
015184: 4EFB 0002                jmp     ($2,PC,D0.w)
015188: 000E                     dc.w $000e; ILLEGAL
01518A: 018E 00F4                movep.w D0, ($f4,A6)
01518E: 000E                     dc.w $000e; ILLEGAL
015190: 017E                     dc.w $017e; ILLEGAL
015192: 0262 0262                andi.w  #$262, -(A2)
015196: 202A 000C                move.l  ($c,A2), D0
01519A: 7213                     moveq   #$13, D1
01519C: E2A0                     asr.l   D1, D0
01519E: 3400                     move.w  D0, D2
0151A0: 202A 0010                move.l  ($10,A2), D0
0151A4: 7213                     moveq   #$13, D1
0151A6: E2A0                     asr.l   D1, D0
0151A8: 3200                     move.w  D0, D1
0151AA: 226A 004E                movea.l ($4e,A2), A1
0151AE: 1011                     move.b  (A1), D0
0151B0: 4880                     ext.w   D0
0151B2: B042                     cmp.w   D2, D0
0151B4: 6600 0066                bne     1521c
0151B8: 226A 004E                movea.l ($4e,A2), A1
0151BC: 1029 0001                move.b  ($1,A1), D0
0151C0: 4880                     ext.w   D0
0151C2: B041                     cmp.w   D1, D0
0151C4: 6656                     bne     1521c
0151C6: 203C 0002 0C18           move.l  #$20c18, D0
0151CC: B0AA 005C                cmp.l   ($5c,A2), D0
0151D0: 674A                     beq     1521c
0151D2: 0C2A 0003 001A           cmpi.b  #$3, ($1a,A2)
0151D8: 6604                     bne     151de
0151DA: 422A 001A                clr.b   ($1a,A2)
0151DE: 257C 0002 0C18 005C      move.l  #$20c18, ($5c,A2)
0151E6: 7000                     moveq   #$0, D0
0151E8: 2540 0004                move.l  D0, ($4,A2)
0151EC: 2480                     move.l  D0, (A2)
0151EE: 157C 0001 0026           move.b  #$1, ($26,A2)
0151F4: 256A 005C 0058           move.l  ($5c,A2), ($58,A2)
0151FA: 422A 0024                clr.b   ($24,A2)
0151FE: 157C 0002 0025           move.b  #$2, ($25,A2)
015204: 226A 004A                movea.l ($4a,A2), A1
015208: 1029 0002                move.b  ($2,A1), D0
01520C: 4880                     ext.w   D0
01520E: 48C0                     ext.l   D0
015210: E580                     asl.l   #2, D0
015212: D0AA 004E                add.l   ($4e,A2), D0
015216: 2540 004A                move.l  D0, ($4a,A2)
01521A: 604A                     bra     15266
01521C: 226A 004A                movea.l ($4a,A2), A1
015220: 1011                     move.b  (A1), D0
015222: 4880                     ext.w   D0
015224: B042                     cmp.w   D2, D0
015226: 6638                     bne     15260
015228: 226A 004A                movea.l ($4a,A2), A1
01522C: 1029 0001                move.b  ($1,A1), D0
015230: 4880                     ext.w   D0
015232: B041                     cmp.w   D1, D0
015234: 662A                     bne     15260
015236: 0C2A 0003 001A           cmpi.b  #$3, ($1a,A2)
01523C: 6604                     bne     15242
01523E: 422A 001A                clr.b   ($1a,A2)
015242: 226A 004A                movea.l ($4a,A2), A1
015246: 1029 0002                move.b  ($2,A1), D0
01524A: 4880                     ext.w   D0
01524C: 48C0                     ext.l   D0
01524E: E580                     asl.l   #2, D0
015250: D0AA 004E                add.l   ($4e,A2), D0
015254: 2540 004A                move.l  D0, ($4a,A2)
015258: 2F0A                     move.l  A2, -(A7)
01525A: 4E93                     jsr     (A3)
01525C: 588F                     addq.l  #4, A7
01525E: 6006                     bra     15266
015260: 2F0A                     move.l  A2, -(A7)
015262: 4E93                     jsr     (A3)
015264: 588F                     addq.l  #4, A7
015266: 4A2A 001A                tst.b   ($1a,A2)
01526A: 6600 01EE                bne     1545a
01526E: 2F0A                     move.l  A2, -(A7)
015270: 4EB9 0001 5670           jsr     $15670.l
015276: 588F                     addq.l  #4, A7
015278: 6000 01E0                bra     1545a
01527C: 4878 0002                pea     $2.w
015280: 2F0A                     move.l  A2, -(A7)
015282: 4EB9 0002 5E7C           jsr     $25e7c.l
015288: 4A92                     tst.l   (A2)
01528A: 508F                     addq.l  #8, A7
01528C: 6616                     bne     152a4
01528E: 4AAA 0004                tst.l   ($4,A2)
015292: 6610                     bne     152a4
015294: 157C 0004 001A           move.b  #$4, ($1a,A2)
01529A: 2F0A                     move.l  A2, -(A7)
01529C: 4E93                     jsr     (A3)
01529E: 588F                     addq.l  #4, A7
0152A0: 6000 01B8                bra     1545a
0152A4: 282A 000C                move.l  ($c,A2), D4
0152A8: 262A 0010                move.l  ($10,A2), D3
0152AC: 242A 0014                move.l  ($14,A2), D2
0152B0: 2012                     move.l  (A2), D0
0152B2: D1AA 000C                add.l   D0, ($c,A2)
0152B6: 202A 0004                move.l  ($4,A2), D0
0152BA: D1AA 0010                add.l   D0, ($10,A2)
0152BE: 2F0A                     move.l  A2, -(A7)
0152C0: 4EB9 0001 BB08           jsr     $1bb08.l
0152C6: 4878 0001                pea     $1.w
0152CA: 4EB9 0001 CC62           jsr     $1cc62.l
0152D0: 2540 0014                move.l  D0, ($14,A2)
0152D4: B4AA 0014                cmp.l   ($14,A2), D2
0152D8: 508F                     addq.l  #8, A7
0152DA: 6720                     beq     152fc
0152DC: B4AA 0014                cmp.l   ($14,A2), D2
0152E0: 6F08                     ble     152ea
0152E2: 157C 0004 001A           move.b  #$4, ($1a,A2)
0152E8: 6006                     bra     152f0
0152EA: 157C 0001 001A           move.b  #$1, ($1a,A2)
0152F0: 2544 000C                move.l  D4, ($c,A2)
0152F4: 2543 0010                move.l  D3, ($10,A2)
0152F8: 2542 0014                move.l  D2, ($14,A2)
0152FC: 2F0A                     move.l  A2, -(A7)
0152FE: 4E93                     jsr     (A3)
015300: 588F                     addq.l  #4, A7
015302: 6000 0156                bra     1545a
015306: 157C 0001 001A           move.b  #$1, ($1a,A2)
01530C: 2F0A                     move.l  A2, -(A7)
01530E: 4E93                     jsr     (A3)
015310: 588F                     addq.l  #4, A7
015312: 6000 0146                bra     1545a
015316: 322A 0056                move.w  ($56,A2), D1
01531A: 48C1                     ext.l   D1
01531C: E581                     asl.l   #2, D1
01531E: 227C 0001 EFF6           movea.l #$1eff6, A1
015324: 2071 1800                movea.l (A1,D1.l), A0
015328: 2428 000C                move.l  ($c,A0), D2
01532C: 94AA 000C                sub.l   ($c,A2), D2
015330: 2628 0010                move.l  ($10,A0), D3
015334: 96AA 0010                sub.l   ($10,A2), D3
015338: 4A82                     tst.l   D2
01533A: 6C06                     bge     15342
01533C: 2002                     move.l  D2, D0
01533E: 4480                     neg.l   D0
015340: 6002                     bra     15344
015342: 2002                     move.l  D2, D0
015344: 720C                     moveq   #$c, D1
015346: E2A0                     asr.l   D1, D0
015348: 3800                     move.w  D0, D4
01534A: 4A83                     tst.l   D3
01534C: 6C06                     bge     15354
01534E: 2003                     move.l  D3, D0
015350: 4480                     neg.l   D0
015352: 6002                     bra     15356
015354: 2003                     move.l  D3, D0
015356: 720C                     moveq   #$c, D1
015358: E2A0                     asr.l   D1, D0
01535A: 0C44 0100                cmpi.w  #$100, D4
01535E: 6E00 007A                bgt     153da
015362: 0C40 0100                cmpi.w  #$100, D0
015366: 6E00 0072                bgt     153da
01536A: B840                     cmp.w   D0, D4
01536C: 6F0C                     ble     1537a
01536E: 3200                     move.w  D0, D1
015370: E641                     asr.w   #3, D1
015372: C3FC 0003                muls.w  #$3, D1
015376: D244                     add.w   D4, D1
015378: 600A                     bra     15384
01537A: 3204                     move.w  D4, D1
01537C: E641                     asr.w   #3, D1
01537E: C3FC 0003                muls.w  #$3, D1
015382: D240                     add.w   D0, D1
015384: 7070                     moveq   #$70, D0
015386: B041                     cmp.w   D1, D0
015388: 6F28                     ble     153b2
01538A: 216A 000C 000C           move.l  ($c,A2), ($c,A0)
015390: 216A 0010 0010           move.l  ($10,A2), ($10,A0)
015396: 117C 0007 001A           move.b  #$7, ($1a,A0)
01539C: 157C 0005 001A           move.b  #$5, ($1a,A2)
0153A2: 4879 0000 0033           pea     $33.l
0153A8: 4EB9 0001 58AC           jsr     $158ac.l
0153AE: 588F                     addq.l  #4, A7
0153B0: 602E                     bra     153e0
0153B2: 0C41 00C0                cmpi.w  #$c0, D1
0153B6: 6C22                     bge     153da
0153B8: 383C 0400                move.w  #$400, D4
0153BC: 2002                     move.l  D2, D0
0153BE: 81C1                     divs.w  D1, D0
0153C0: 3400                     move.w  D0, D2
0153C2: 2003                     move.l  D3, D0
0153C4: 81C1                     divs.w  D1, D0
0153C6: 3200                     move.w  D0, D1
0153C8: 3004                     move.w  D4, D0
0153CA: C1C2                     muls.w  D2, D0
0153CC: E880                     asr.l   #4, D0
0153CE: 2080                     move.l  D0, (A0)
0153D0: 3004                     move.w  D4, D0
0153D2: C1C1                     muls.w  D1, D0
0153D4: E880                     asr.l   #4, D0
0153D6: 2140 0004                move.l  D0, ($4,A0)
0153DA: 157C 0006 001A           move.b  #$6, ($1a,A2)
0153E0: 2F0A                     move.l  A2, -(A7)
0153E2: 4E93                     jsr     (A3)
0153E4: 588F                     addq.l  #4, A7
0153E6: 6000 0072                bra     1545a
0153EA: 202A 000C                move.l  ($c,A2), D0
0153EE: 0280 FFF8 0000           andi.l  #$fff80000, D0
0153F4: 0680 0004 0000           addi.l  #$40000, D0
0153FA: 2540 000C                move.l  D0, ($c,A2)
0153FE: 202A 0010                move.l  ($10,A2), D0
015402: 0280 FFF8 0000           andi.l  #$fff80000, D0
015408: 0680 0004 0000           addi.l  #$40000, D0
01540E: 2540 0010                move.l  D0, ($10,A2)
015412: 0C2A 0005 001A           cmpi.b  #$5, ($1a,A2)
015418: 662C                     bne     15446
01541A: 322A 0056                move.w  ($56,A2), D1
01541E: 48C1                     ext.l   D1
015420: E581                     asl.l   #2, D1
015422: 227C 0001 EFF6           movea.l #$1eff6, A1
015428: 2871 1800                movea.l (A1,D1.l), A4
01542C: 4EB9 0001 5884           jsr     $15884.l
015432: 197C 0065 0057           move.b  #$65, ($57,A4)
015438: 4878 0004                pea     $4.w
01543C: 2F0C                     move.l  A4, -(A7)
01543E: 4EB9 0002 5BAE           jsr     $25bae.l
015444: 508F                     addq.l  #8, A7
015446: 157C 0003 001A           move.b  #$3, ($1a,A2)
01544C: 2F0A                     move.l  A2, -(A7)
01544E: 4EB9 0001 4DEC           jsr     $14dec.l
015454: 2F0A                     move.l  A2, -(A7)
015456: 4E93                     jsr     (A3)
015458: 508F                     addq.l  #8, A7
01545A: 4CDF 1C1C                movem.l (A7)+, D2-D4/A2-A4
01545E: 4E75                     rts
015460: 48E7 3C00                movem.l D2-D5, -(A7)
015464: 206F 0014                movea.l ($14,A7), A0
015468: 1028 001A                move.b  ($1a,A0), D0
01546C: 4880                     ext.w   D0
01546E: 48C0                     ext.l   D0
015470: C189                     exg     D0, A1
015472: B2FC 0000                cmpa.w  #$0, A1
015476: C189                     exg     D0, A1
015478: 6D00 01C8                blt     15642
01547C: C189                     exg     D0, A1
01547E: B2FC 0006                cmpa.w  #$6, A1
015482: C189                     exg     D0, A1
015484: 6E00 01BC                bgt     15642
015488: 2240                     movea.l D0, A1
01548A: 2009                     move.l  A1, D0
01548C: 2240                     movea.l D0, A1
01548E: D3C0                     adda.l  D0, A1
015490: 2009                     move.l  A1, D0
015492: 303B 0006                move.w  ($6,PC,D0.w), D0
015496: 4EFB 0002                jmp     ($2,PC,D0.w)
01549A: 000E                     dc.w $000e; ILLEGAL
01549C: 0182                     bclr    D0, D2
01549E: 00DE                     dc.w $00de; ILLEGAL
0154A0: 000E                     dc.w $000e; ILLEGAL
0154A2: 0128 0196                btst    D0, ($196,A0)
0154A6: 01A0                     bclr    D0, -(A0)
0154A8: 4203                     clr.b   D3
0154AA: 4202                     clr.b   D2
0154AC: 2028 000C                move.l  ($c,A0), D0
0154B0: 7213                     moveq   #$13, D1
0154B2: E2A0                     asr.l   D1, D0
0154B4: 3800                     move.w  D0, D4
0154B6: 2028 0010                move.l  ($10,A0), D0
0154BA: 7213                     moveq   #$13, D1
0154BC: E2A0                     asr.l   D1, D0
0154BE: 3A00                     move.w  D0, D5
0154C0: 2268 004A                movea.l ($4a,A0), A1
0154C4: 1211                     move.b  (A1), D1
0154C6: 4881                     ext.w   D1
0154C8: 2268 004A                movea.l ($4a,A0), A1
0154CC: 1029 0001                move.b  ($1,A1), D0
0154D0: 4880                     ext.w   D0
0154D2: 4A90                     tst.l   (A0)
0154D4: 6620                     bne     154f6
0154D6: B841                     cmp.w   D1, D4
0154D8: 6F04                     ble     154de
0154DA: 76F8                     moveq   #-$8, D3
0154DC: 6036                     bra     15514
0154DE: B841                     cmp.w   D1, D4
0154E0: 6C04                     bge     154e6
0154E2: 7608                     moveq   #$8, D3
0154E4: 602E                     bra     15514
0154E6: BA40                     cmp.w   D0, D5
0154E8: 6F04                     ble     154ee
0154EA: 74F8                     moveq   #-$8, D2
0154EC: 6026                     bra     15514
0154EE: BA40                     cmp.w   D0, D5
0154F0: 6C22                     bge     15514
0154F2: 7408                     moveq   #$8, D2
0154F4: 601E                     bra     15514
0154F6: BA40                     cmp.w   D0, D5
0154F8: 6F04                     ble     154fe
0154FA: 74F8                     moveq   #-$8, D2
0154FC: 6016                     bra     15514
0154FE: BA40                     cmp.w   D0, D5
015500: 6C04                     bge     15506
015502: 7408                     moveq   #$8, D2
015504: 600E                     bra     15514
015506: B841                     cmp.w   D1, D4
015508: 6F04                     ble     1550e
01550A: 76F8                     moveq   #-$8, D3
01550C: 6006                     bra     15514
01550E: B841                     cmp.w   D1, D4
015510: 6C02                     bge     15514
015512: 7608                     moveq   #$8, D3
015514: 4A02                     tst.b   D2
015516: 6F0A                     ble     15522
015518: 217C 0002 0C6C 005C      move.l  #$20c6c, ($5c,A0)
015520: 6032                     bra     15554
015522: 4A02                     tst.b   D2
015524: 6C0A                     bge     15530
015526: 217C 0002 0C90 005C      move.l  #$20c90, ($5c,A0)
01552E: 6024                     bra     15554
015530: 4A03                     tst.b   D3
015532: 6F0A                     ble     1553e
015534: 217C 0002 0C48 005C      move.l  #$20c48, ($5c,A0)
01553C: 6016                     bra     15554
01553E: 4A03                     tst.b   D3
015540: 6C0A                     bge     1554c
015542: 217C 0002 0CB4 005C      move.l  #$20cb4, ($5c,A0)
01554A: 6008                     bra     15554
01554C: 217C 0002 0C18 005C      move.l  #$20c18, ($5c,A0)
015554: 1003                     move.b  D3, D0
015556: 4880                     ext.w   D0
015558: 48C0                     ext.l   D0
01555A: 7210                     moveq   #$10, D1
01555C: E3A0                     asl.l   D1, D0
01555E: 2080                     move.l  D0, (A0)
015560: 1002                     move.b  D2, D0
015562: 4880                     ext.w   D0
015564: 48C0                     ext.l   D0
015566: 7210                     moveq   #$10, D1
015568: E3A0                     asl.l   D1, D0
01556A: 2140 0004                move.l  D0, ($4,A0)
01556E: 117C 0001 0026           move.b  #$1, ($26,A0)
015574: 6000 00CC                bra     15642
015578: 203C 0002 0D64           move.l  #$20d64, D0
01557E: B0A8 005C                cmp.l   ($5c,A0), D0
015582: 6700 00BE                beq     15642
015586: 2028 005C                move.l  ($5c,A0), D0
01558A: B0A8 0058                cmp.l   ($58,A0), D0
01558E: 6612                     bne     155a2
015590: 217C 0002 0D64 005C      move.l  #$20d64, ($5c,A0)
015598: 117C 0001 0026           move.b  #$1, ($26,A0)
01559E: 6000 00A2                bra     15642
0155A2: 2028 0058                move.l  ($58,A0), D0
0155A6: 90A8 005C                sub.l   ($5c,A0), D0
0155AA: E480                     asr.l   #2, D0
0155AC: 3200                     move.w  D0, D1
0155AE: 7004                     moveq   #$4, D0
0155B0: B041                     cmp.w   D1, D0
0155B2: 6E04                     bgt     155b8
0155B4: 7001                     moveq   #$1, D0
0155B6: 6002                     bra     155ba
0155B8: 70FF                     moveq   #-$1, D0
0155BA: 1140 0026                move.b  D0, ($26,A0)
0155BE: 6000 0082                bra     15642
0155C2: 2228 001C                move.l  ($1c,A0), D1
0155C6: 2028 0020                move.l  ($20,A0), D0
0155CA: 4A81                     tst.l   D1
0155CC: 6C06                     bge     155d4
0155CE: 2601                     move.l  D1, D3
0155D0: 4483                     neg.l   D3
0155D2: 6002                     bra     155d6
0155D4: 2601                     move.l  D1, D3
0155D6: 4A80                     tst.l   D0
0155D8: 6C06                     bge     155e0
0155DA: 2400                     move.l  D0, D2
0155DC: 4482                     neg.l   D2
0155DE: 6002                     bra     155e2
0155E0: 2400                     move.l  D0, D2
0155E2: B682                     cmp.l   D2, D3
0155E4: 6F18                     ble     155fe
0155E6: 4A81                     tst.l   D1
0155E8: 6F0A                     ble     155f4
0155EA: 217C 0002 0DD8 005C      move.l  #$20dd8, ($5c,A0)
0155F2: 6020                     bra     15614
0155F4: 217C 0002 0E14 005C      move.l  #$20e14, ($5c,A0)
0155FC: 6016                     bra     15614
0155FE: 4A80                     tst.l   D0
015600: 6F0A                     ble     1560c
015602: 217C 0002 0DEC 005C      move.l  #$20dec, ($5c,A0)
01560A: 6008                     bra     15614
01560C: 217C 0002 0E00 005C      move.l  #$20e00, ($5c,A0)
015614: 117C 0001 0026           move.b  #$1, ($26,A0)
01561A: 6026                     bra     15642
01561C: 217C 0002 0CD8 005C      move.l  #$20cd8, ($5c,A0)
015624: 4228 0027                clr.b   ($27,A0)
015628: 117C 0001 0026           move.b  #$1, ($26,A0)
01562E: 6012                     bra     15642
015630: 217C 0002 0E28 005C      move.l  #$20e28, ($5c,A0)
015638: 6008                     bra     15642
01563A: 217C 0002 0D6C 005C      move.l  #$20d6c, ($5c,A0)
015642: 2168 005C 0058           move.l  ($5c,A0), ($58,A0)
015648: 4228 0024                clr.b   ($24,A0)
01564C: 4A28 001A                tst.b   ($1a,A0)
015650: 6700 000A                beq     1565c
015654: 0C28 0004 001A           cmpi.b  #$4, ($1a,A0)
01565A: 6608                     bne     15664
01565C: 117C 0002 0025           move.b  #$2, ($25,A0)
015662: 6006                     bra     1566a
015664: 117C 0001 0025           move.b  #$1, ($25,A0)
01566A: 4CDF 003C                movem.l (A7)+, D2-D5
01566E: 4E75                     rts
015670: 48E7 3E3C                movem.l D2-D6/A2-A5, -(A7)
015674: 246F 0028                movea.l ($28,A7), A2
015678: 267C 0040 0018           movea.l #$400018, A3
01567E: 287C 0040 0396           movea.l #$400396, A4
015684: 102A 001A                move.b  ($1a,A2), D0
015688: 142C 0001                move.b  ($1,A4), D2
01568C: 204B                     movea.l A3, A0
01568E: 7C00                     moveq   #$0, D6
015690: 2246                     movea.l D6, A1
015692: 4205                     clr.b   D5
015694: 6000 00C2                bra     15758
015698: 4A90                     tst.l   (A0)
01569A: 6C06                     bge     156a2
01569C: 2210                     move.l  (A0), D1
01569E: 4481                     neg.l   D1
0156A0: 6002                     bra     156a4
0156A2: 2210                     move.l  (A0), D1
0156A4: 4AA8 0004                tst.l   ($4,A0)
0156A8: 6C08                     bge     156b2
0156AA: 2628 0004                move.l  ($4,A0), D3
0156AE: 4483                     neg.l   D3
0156B0: 6004                     bra     156b6
0156B2: 2628 0004                move.l  ($4,A0), D3
0156B6: 0C28 0001 0018           cmpi.b  #$1, ($18,A0)
0156BC: 6600 008E                bne     1574c
0156C0: 102A 001B                move.b  ($1b,A2), D0
0156C4: B028 001B                cmp.b   ($1b,A0), D0
0156C8: 6600 0082                bne     1574c
0156CC: 2003                     move.l  D3, D0
0156CE: D081                     add.l   D1, D0
0156D0: 0C80 0000 C000           cmpi.l  #$c000, D0
0156D6: 6F00 0074                ble     1574c
0156DA: 0C28 0002 0036           cmpi.b  #$2, ($36,A0)
0156E0: 6700 006A                beq     1574c
0156E4: 4A28 001A                tst.b   ($1a,A0)
0156E8: 6700 0016                beq     15700
0156EC: 0C28 0001 001A           cmpi.b  #$1, ($1a,A0)
0156F2: 6700 000C                beq     15700
0156F6: 0C28 0005 001A           cmpi.b  #$5, ($1a,A0)
0156FC: 6600 004E                bne     1574c
015700: 223C 0040 1302           move.l  #$401302, D1
015706: 4204                     clr.b   D4
015708: 4203                     clr.b   D3
01570A: B5C1                     cmpa.l  D1, A2
01570C: 672A                     beq     15738
01570E: C38D                     exg     D1, A5
015710: 0C2D 0001 0018           cmpi.b  #$1, ($18,A5)
015716: C38D                     exg     D1, A5
015718: 661E                     bne     15738
01571A: C38D                     exg     D1, A5
01571C: 0C2D 0001 001A           cmpi.b  #$1, ($1a,A5)
015722: C38D                     exg     D1, A5
015724: 6612                     bne     15738
015726: 1028 0019                move.b  ($19,A0), D0
01572A: 4880                     ext.w   D0
01572C: C38D                     exg     D1, A5
01572E: B06D 0056                cmp.w   ($56,A5), D0
015732: C38D                     exg     D1, A5
015734: 6602                     bne     15738
015736: 7801                     moveq   #$1, D4
015738: 7060                     moveq   #$60, D0
01573A: D280                     add.l   D0, D1
01573C: 5203                     addq.b  #1, D3
01573E: 0C03 0004                cmpi.b  #$4, D3
015742: 66C6                     bne     1570a
015744: 4A04                     tst.b   D4
015746: 6604                     bne     1574c
015748: 5302                     subq.b  #1, D2
01574A: 2248                     movea.l A0, A1
01574C: 2C08                     move.l  A0, D6
01574E: 0686 0000 00E2           addi.l  #$e2, D6
015754: 2046                     movea.l D6, A0
015756: 5205                     addq.b  #1, D5
015758: 1005                     move.b  D5, D0
01575A: 4880                     ext.w   D0
01575C: B054                     cmp.w   (A4), D0
01575E: 6600 FF38                bne     15698
015762: 1002                     move.b  D2, D0
015764: 4880                     ext.w   D0
015766: B054                     cmp.w   (A4), D0
015768: 6700 0114                beq     1587e
01576C: 7002                     moveq   #$2, D0
01576E: B054                     cmp.w   (A4), D0
015770: 661E                     bne     15790
015772: 4A02                     tst.b   D2
015774: 661A                     bne     15790
015776: 4853                     pea     (A3)
015778: 486B 00E2                pea     ($e2,A3)
01577C: 4EB9 0001 5FE6           jsr     $15fe6.l
015782: 4A80                     tst.l   D0
015784: 508F                     addq.l  #8, A7
015786: 6706                     beq     1578e
015788: 43EB 00E2                lea     ($e2,A3), A1
01578C: 6002                     bra     15790
01578E: 224B                     movea.l A3, A1
015790: 1429 0019                move.b  ($19,A1), D2
015794: 4200                     clr.b   D0
015796: 0C29 0001 0018           cmpi.b  #$1, ($18,A1)
01579C: 6600 0066                bne     15804
0157A0: 4A29 001A                tst.b   ($1a,A1)
0157A4: 6700 0014                beq     157ba
0157A8: 0C29 0001 001A           cmpi.b  #$1, ($1a,A1)
0157AE: 6700 000A                beq     157ba
0157B2: 0C29 0005 001A           cmpi.b  #$5, ($1a,A1)
0157B8: 664A                     bne     15804
0157BA: 102A 001B                move.b  ($1b,A2), D0
0157BE: B029 001B                cmp.b   ($1b,A1), D0
0157C2: 6634                     bne     157f8
0157C4: 2029 0010                move.l  ($10,A1), D0
0157C8: 7213                     moveq   #$13, D1
0157CA: E2A0                     asr.l   D1, D0
0157CC: 3600                     move.w  D0, D3
0157CE: 2229 000C                move.l  ($c,A1), D1
0157D2: 7013                     moveq   #$13, D0
0157D4: E0A1                     asr.l   D0, D1
0157D6: 3001                     move.w  D1, D0
0157D8: D640                     add.w   D0, D3
0157DA: 202A 0010                move.l  ($10,A2), D0
0157DE: 7213                     moveq   #$13, D1
0157E0: E2A0                     asr.l   D1, D0
0157E2: 3800                     move.w  D0, D4
0157E4: 222A 000C                move.l  ($c,A2), D1
0157E8: 7013                     moveq   #$13, D0
0157EA: E0A1                     asr.l   D0, D1
0157EC: 3001                     move.w  D1, D0
0157EE: D840                     add.w   D0, D4
0157F0: B644                     cmp.w   D4, D3
0157F2: 6F10                     ble     15804
0157F4: 7001                     moveq   #$1, D0
0157F6: 600C                     bra     15804
0157F8: 102A 001B                move.b  ($1b,A2), D0
0157FC: B029 001B                cmp.b   ($1b,A1), D0
015800: 6C02                     bge     15804
015802: 7001                     moveq   #$1, D0
015804: 2029 000C                move.l  ($c,A1), D0
015808: 90AA 000C                sub.l   ($c,A2), D0
01580C: 4A80                     tst.l   D0
01580E: 6C04                     bge     15814
015810: 4480                     neg.l   D0
015812: 4E71                     nop
015814: 720C                     moveq   #$c, D1
015816: E2A0                     asr.l   D1, D0
015818: 3600                     move.w  D0, D3
01581A: 2029 0010                move.l  ($10,A1), D0
01581E: 90AA 0010                sub.l   ($10,A2), D0
015822: 4A80                     tst.l   D0
015824: 6C04                     bge     1582a
015826: 4480                     neg.l   D0
015828: 4E71                     nop
01582A: 720C                     moveq   #$c, D1
01582C: E2A0                     asr.l   D1, D0
01582E: 3800                     move.w  D0, D4
015830: B644                     cmp.w   D4, D3
015832: 6312                     bls     15846
015834: 7200                     moveq   #$0, D1
015836: 3204                     move.w  D4, D1
015838: E689                     lsr.l   #3, D1
01583A: C3FC 0003                muls.w  #$3, D1
01583E: 7000                     moveq   #$0, D0
015840: 3003                     move.w  D3, D0
015842: D280                     add.l   D0, D1
015844: 6010                     bra     15856
015846: 7200                     moveq   #$0, D1
015848: 3203                     move.w  D3, D1
01584A: E689                     lsr.l   #3, D1
01584C: C3FC 0003                muls.w  #$3, D1
015850: 7000                     moveq   #$0, D0
015852: 3004                     move.w  D4, D0
015854: D280                     add.l   D0, D1
015856: 1002                     move.b  D2, D0
015858: 4880                     ext.w   D0
01585A: 3540 0056                move.w  D0, ($56,A2)
01585E: 0C81 0000 0180           cmpi.l  #$180, D1
015864: 6F18                     ble     1587e
015866: 0C81 0000 0280           cmpi.l  #$280, D1
01586C: 6C10                     bge     1587e
01586E: 157C 0001 001A           move.b  #$1, ($1a,A2)
015874: 2F0A                     move.l  A2, -(A7)
015876: 4EB9 0001 5460           jsr     $15460.l
01587C: 588F                     addq.l  #4, A7
01587E: 4CDF 3C7C                movem.l (A7)+, D2-D6/A2-A5
015882: 4E75                     rts
015884: 4879 0000 003A           pea     $3a.l
01588A: 4EB9 0001 58AC           jsr     $158ac.l
015890: 7002                     moveq   #$2, D0
015892: B079 0040 0394           cmp.w   $400394.l, D0
015898: 588F                     addq.l  #4, A7
01589A: 670E                     beq     158aa
01589C: 4879 0000 003B           pea     $3b.l
0158A2: 4EB9 0001 58AC           jsr     $158ac.l
0158A8: 588F                     addq.l  #4, A7
0158AA: 4E75                     rts
0158AC: 102F 0007                move.b  ($7,A7), D0
0158B0: 4A79 0040 03B8           tst.w   $4003b8.l
0158B6: 6704                     beq     158bc
0158B8: 7000                     moveq   #$0, D0
0158BA: 600E                     bra     158ca
0158BC: 4880                     ext.w   D0
0158BE: 48C0                     ext.l   D0
0158C0: 2F00                     move.l  D0, -(A7)
0158C2: 4EB9 0000 023C           jsr     $23c.l
0158C8: 588F                     addq.l  #4, A7
0158CA: 4E75                     rts
0158CC: 48E7 3000                movem.l D2-D3, -(A7)
0158D0: 263C 0040 09A4           move.l  #$4009a4, D3
0158D6: 4202                     clr.b   D2
0158D8: 2203                     move.l  D3, D1
0158DA: 707C                     moveq   #$7c, D0
0158DC: D680                     add.l   D0, D3
0158DE: 2F01                     move.l  D1, -(A7)
0158E0: 4EB9 0001 58F6           jsr     $158f6.l
0158E6: 588F                     addq.l  #4, A7
0158E8: 5202                     addq.b  #1, D2
0158EA: 0C02 0002                cmpi.b  #$2, D2
0158EE: 66E8                     bne     158d8
0158F0: 4CDF 000C                movem.l (A7)+, D2-D3
0158F4: 4E75                     rts
0158F6: 2F0A                     move.l  A2, -(A7)
0158F8: 246F 0008                movea.l ($8,A7), A2
0158FC: 4A2A 0018                tst.b   ($18,A2)
015900: 6700 0094                beq     15996
015904: 4A6A 006C                tst.w   ($6c,A2)
015908: 6F26                     ble     15930
01590A: 536A 006C                subq.w  #1, ($6c,A2)
01590E: 4A6A 006C                tst.w   ($6c,A2)
015912: 661C                     bne     15930
015914: 0C2A 0021 001A           cmpi.b  #$21, ($1a,A2)
01591A: 6700 000A                beq     15926
01591E: 0C2A 0022 001A           cmpi.b  #$22, ($1a,A2)
015924: 660A                     bne     15930
015926: 2F0A                     move.l  A2, -(A7)
015928: 4EB9 0001 60D4           jsr     $160d4.l
01592E: 588F                     addq.l  #4, A7
015930: 0C2A 0024 001A           cmpi.b  #$24, ($1a,A2)
015936: 661C                     bne     15954
015938: 4A2A 0056                tst.b   ($56,A2)
01593C: 6704                     beq     15942
01593E: 532A 0056                subq.b  #1, ($56,A2)
015942: 4A2A 0056                tst.b   ($56,A2)
015946: 6632                     bne     1597a
015948: 2F0A                     move.l  A2, -(A7)
01594A: 4EB9 0001 60D4           jsr     $160d4.l
015950: 588F                     addq.l  #4, A7
015952: 6026                     bra     1597a
015954: 0C2A 0002 0018           cmpi.b  #$2, ($18,A2)
01595A: 661E                     bne     1597a
01595C: 2F0A                     move.l  A2, -(A7)
01595E: 4EB9 0002 5FC2           jsr     $25fc2.l
015964: 2F0A                     move.l  A2, -(A7)
015966: 4EB9 0001 B9CC           jsr     $1b9cc.l
01596C: 2F0A                     move.l  A2, -(A7)
01596E: 4EB9 0001 281C           jsr     $1281c.l
015974: 4FEF 000C                lea     ($c,A7), A7
015978: 601C                     bra     15996
01597A: 2F0A                     move.l  A2, -(A7)
01597C: 4EB9 0002 53BC           jsr     $253bc.l
015982: 2F0A                     move.l  A2, -(A7)
015984: 4EB9 0001 82BA           jsr     $182ba.l
01598A: 2F0A                     move.l  A2, -(A7)
01598C: 4EB9 0001 21B8           jsr     $121b8.l
015992: 4FEF 000C                lea     ($c,A7), A7
015996: 245F                     movea.l (A7)+, A2
015998: 4E75                     rts
01599A: 2F02                     move.l  D2, -(A7)
01599C: 74FF                     moveq   #-$1, D2
01599E: 4201                     clr.b   D1
0159A0: 1001                     move.b  D1, D0
0159A2: 4880                     ext.w   D0
0159A4: 48C0                     ext.l   D0
0159A6: E580                     asl.l   #2, D0
0159A8: 207C 0001 EFFE           movea.l #$1effe, A0
0159AE: 2070 0800                movea.l (A0,D0.l), A0
0159B2: 4A28 0018                tst.b   ($18,A0)
0159B6: 6612                     bne     159ca
0159B8: 1001                     move.b  D1, D0
0159BA: 4880                     ext.w   D0
0159BC: 48C0                     ext.l   D0
0159BE: E580                     asl.l   #2, D0
0159C0: 207C 0001 EFFE           movea.l #$1effe, A0
0159C6: 2430 0800                move.l  (A0,D0.l), D2
0159CA: 5201                     addq.b  #1, D1
0159CC: 0C01 0002                cmpi.b  #$2, D1
0159D0: 66CE                     bne     159a0
0159D2: 2002                     move.l  D2, D0
0159D4: 241F                     move.l  (A7)+, D2
0159D6: 4E75                     rts
0159D8: 2F02                     move.l  D2, -(A7)
0159DA: 206F 0008                movea.l ($8,A7), A0
0159DE: 4202                     clr.b   D2
0159E0: 227C 0040 09A4           movea.l #$4009a4, A1
0159E6: 4201                     clr.b   D1
0159E8: 4A29 0018                tst.b   ($18,A1)
0159EC: 670E                     beq     159fc
0159EE: 2028 0002                move.l  ($2,A0), D0
0159F2: B0A9 0072                cmp.l   ($72,A1), D0
0159F6: 6604                     bne     159fc
0159F8: 7401                     moveq   #$1, D2
0159FA: 600C                     bra     15a08
0159FC: 707C                     moveq   #$7c, D0
0159FE: D3C0                     adda.l  D0, A1
015A00: 5201                     addq.b  #1, D1
015A02: 0C01 0002                cmpi.b  #$2, D1
015A06: 66E0                     bne     159e8
015A08: 1002                     move.b  D2, D0
015A0A: 4880                     ext.w   D0
015A0C: 48C0                     ext.l   D0
015A0E: 241F                     move.l  (A7)+, D2
015A10: 4E75                     rts
015A12: 48E7 3830                movem.l D2-D4/A2-A3, -(A7)
015A16: 142F 001B                move.b  ($1b,A7), D2
015A1A: 162F 001F                move.b  ($1f,A7), D3
015A1E: 3039 0040 0394           move.w  $400394.l, D0
015A24: E540                     asl.w   #2, D0
015A26: 207C 0002 2706           movea.l #$22706, A0
015A2C: 2670 0000                movea.l (A0,D0.w), A3
015A30: 0C13 00FF                cmpi.b  #-$1, (A3)
015A34: 6700 013C                beq     15b72
015A38: 4EB9 0001 599A           jsr     $1599a.l
015A3E: 2200                     move.l  D0, D1
015A40: 2441                     movea.l D1, A2
015A42: 70FF                     moveq   #-$1, D0
015A44: B081                     cmp.l   D1, D0
015A46: 6700 012A                beq     15b72
015A4A: 2F0B                     move.l  A3, -(A7)
015A4C: 4EB9 0001 59D8           jsr     $159d8.l
015A52: 4A80                     tst.l   D0
015A54: 588F                     addq.l  #4, A7
015A56: 6600 0114                bne     15b6c
015A5A: B613                     cmp.b   (A3), D3
015A5C: 6708                     beq     15a66
015A5E: B62B 0001                cmp.b   ($1,A3), D3
015A62: 6600 0108                bne     15b6c
015A66: B413                     cmp.b   (A3), D2
015A68: 6D00 000A                blt     15a74
015A6C: B42B 0001                cmp.b   ($1,A3), D2
015A70: 6F00 00FA                ble     15b6c
015A74: 202B 0002                move.l  ($2,A3), D0
015A78: 2540 006E                move.l  D0, ($6e,A2)
015A7C: 2040                     movea.l D0, A0
015A7E: 2548 0072                move.l  A0, ($72,A2)
015A82: 156B 0006 001B           move.b  ($6,A3), ($1b,A2)
015A88: 1013                     move.b  (A3), D0
015A8A: 4880                     ext.w   D0
015A8C: 3540 0076                move.w  D0, ($76,A2)
015A90: 102B 0001                move.b  ($1,A3), D0
015A94: 4880                     ext.w   D0
015A96: 3540 0078                move.w  D0, ($78,A2)
015A9A: 203C 0002 276E           move.l  #$2276e, D0
015AA0: B0AA 0072                cmp.l   ($72,A2), D0
015AA4: 6606                     bne     15aac
015AA6: 046A 0010 0078           subi.w  #$10, ($78,A2)
015AAC: 1010                     move.b  (A0), D0
015AAE: 4880                     ext.w   D0
015AB0: 1828 0001                move.b  ($1,A0), D4
015AB4: 4884                     ext.w   D4
015AB6: 48C0                     ext.l   D0
015AB8: 7213                     moveq   #$13, D1
015ABA: E3A0                     asl.l   D1, D0
015ABC: 0680 0004 0000           addi.l  #$40000, D0
015AC2: 2540 000C                move.l  D0, ($c,A2)
015AC6: 3004                     move.w  D4, D0
015AC8: 48C0                     ext.l   D0
015ACA: 7213                     moveq   #$13, D1
015ACC: E3A0                     asl.l   D1, D0
015ACE: 0680 0004 0000           addi.l  #$40000, D0
015AD4: 2540 0010                move.l  D0, ($10,A2)
015AD8: 70FF                     moveq   #-$1, D0
015ADA: 33C0 0040 0698           move.w  D0, $400698.l
015AE0: 33C0 0040 0696           move.w  D0, $400696.l
015AE6: 2F0A                     move.l  A2, -(A7)
015AE8: 4EB9 0001 BAB2           jsr     $1bab2.l
015AEE: 42A7                     clr.l   -(A7)
015AF0: 4EB9 0001 CC62           jsr     $1cc62.l
015AF6: 2540 0014                move.l  D0, ($14,A2)
015AFA: 357C FFFF 006C           move.w  #$ffff, ($6c,A2)
015B00: 7000                     moveq   #$0, D0
015B02: 2540 0004                move.l  D0, ($4,A2)
015B06: 2480                     move.l  D0, (A2)
015B08: 157C 0001 0018           move.b  #$1, ($18,A2)
015B0E: 422A 0036                clr.b   ($36,A2)
015B12: 157C 0020 001A           move.b  #$20, ($1a,A2)
015B18: 7000                     moveq   #$0, D0
015B1A: 2540 0022                move.l  D0, ($22,A2)
015B1E: 2540 001E                move.l  D0, ($1e,A2)
015B22: 422A 0067                clr.b   ($67,A2)
015B26: 422A 0056                clr.b   ($56,A2)
015B2A: 422A 0058                clr.b   ($58,A2)
015B2E: 4204                     clr.b   D4
015B30: 508F                     addq.l  #8, A7
015B32: 1004                     move.b  D4, D0
015B34: 4880                     ext.w   D0
015B36: C0FC 0006                mulu.w  #$6, D0
015B3A: 41EA 0038                lea     ($38,A2), A0
015B3E: 4270 0000                clr.w   (A0,D0.w)
015B42: 5204                     addq.b  #1, D4
015B44: 0C04 0005                cmpi.b  #$5, D4
015B48: 66E8                     bne     15b32
015B4A: 42A7                     clr.l   -(A7)
015B4C: 2F0A                     move.l  A2, -(A7)
015B4E: 4EB9 0001 B9CC           jsr     $1b9cc.l
015B54: 102A 0019                move.b  ($19,A2), D0
015B58: 4880                     ext.w   D0
015B5A: 48C0                     ext.l   D0
015B5C: 2F00                     move.l  D0, -(A7)
015B5E: 4878 0002                pea     $2.w
015B62: 4EB9 0001 8E6C           jsr     $18e6c.l
015B68: 4FEF 0010                lea     ($10,A7), A7
015B6C: 508B                     addq.l  #8, A3
015B6E: 6000 FEC0                bra     15a30
015B72: 247C 0040 09A4           movea.l #$4009a4, A2
015B78: 4204                     clr.b   D4
015B7A: 4A2A 0018                tst.b   ($18,A2)
015B7E: 6700 003E                beq     15bbe
015B82: 1002                     move.b  D2, D0
015B84: 4880                     ext.w   D0
015B86: B06A 0076                cmp.w   ($76,A2), D0
015B8A: 660C                     bne     15b98
015B8C: 1003                     move.b  D3, D0
015B8E: 4880                     ext.w   D0
015B90: B06A 0076                cmp.w   ($76,A2), D0
015B94: 6D00 0016                blt     15bac
015B98: 1002                     move.b  D2, D0
015B9A: 4880                     ext.w   D0
015B9C: B06A 0078                cmp.w   ($78,A2), D0
015BA0: 661C                     bne     15bbe
015BA2: 1003                     move.b  D3, D0
015BA4: 4880                     ext.w   D0
015BA6: B06A 0078                cmp.w   ($78,A2), D0
015BAA: 6F12                     ble     15bbe
015BAC: 4878 0001                pea     $1.w
015BB0: 42A7                     clr.l   -(A7)
015BB2: 2F0A                     move.l  A2, -(A7)
015BB4: 4EB9 0001 5BD0           jsr     $15bd0.l
015BBA: 4FEF 000C                lea     ($c,A7), A7
015BBE: 707C                     moveq   #$7c, D0
015BC0: D5C0                     adda.l  D0, A2
015BC2: 5204                     addq.b  #1, D4
015BC4: 0C04 0002                cmpi.b  #$2, D4
015BC8: 66B0                     bne     15b7a
015BCA: 4CDF 0C1C                movem.l (A7)+, D2-D4/A2-A3
015BCE: 4E75                     rts
015BD0: 48E7 3020                movem.l D2-D3/A2, -(A7)
015BD4: 206F 0010                movea.l ($10,A7), A0
015BD8: 142F 0017                move.b  ($17,A7), D2
015BDC: 102F 001B                move.b  ($1b,A7), D0
015BE0: 4A00                     tst.b   D0
015BE2: 671A                     beq     15bfe
015BE4: 4228 0018                clr.b   ($18,A0)
015BE8: 1028 0019                move.b  ($19,A0), D0
015BEC: 4880                     ext.w   D0
015BEE: 48C0                     ext.l   D0
015BF0: 2F00                     move.l  D0, -(A7)
015BF2: 4878 0002                pea     $2.w
015BF6: 4EB9 0001 8F46           jsr     $18f46.l
015BFC: 508F                     addq.l  #8, A7
015BFE: 4A02                     tst.b   D2
015C00: 673E                     beq     15c40
015C02: 247C 0040 0018           movea.l #$400018, A2
015C08: 4202                     clr.b   D2
015C0A: 6028                     bra     15c34
015C0C: 0C2A 0002 0018           cmpi.b  #$2, ($18,A2)
015C12: 6714                     beq     15c28
015C14: 4A2A 0018                tst.b   ($18,A2)
015C18: 670E                     beq     15c28
015C1A: 4878 0003                pea     $3.w
015C1E: 2F0A                     move.l  A2, -(A7)
015C20: 4EB9 0002 85B0           jsr     $285b0.l
015C26: 508F                     addq.l  #8, A7
015C28: 260A                     move.l  A2, D3
015C2A: 0683 0000 00E2           addi.l  #$e2, D3
015C30: 2443                     movea.l D3, A2
015C32: 5202                     addq.b  #1, D2
015C34: 1002                     move.b  D2, D0
015C36: 4880                     ext.w   D0
015C38: B079 0040 0396           cmp.w   $400396.l, D0
015C3E: 66CC                     bne     15c0c
015C40: 4CDF 040C                movem.l (A7)+, D2-D3/A2
015C44: 4E75                     rts
015C46: 48E7 3F20                movem.l D2-D7/A2, -(A7)
015C4A: 226F 0020                movea.l ($20,A7), A1
015C4E: 3029 007A                move.w  ($7a,A1), D0
015C52: 48C0                     ext.l   D0
015C54: E580                     asl.l   #2, D0
015C56: 207C 0001 EFF6           movea.l #$1eff6, A0
015C5C: 2070 0800                movea.l (A0,D0.l), A0
015C60: 2028 000C                move.l  ($c,A0), D0
015C64: 7213                     moveq   #$13, D1
015C66: E2A0                     asr.l   D1, D0
015C68: 3A00                     move.w  D0, D5
015C6A: 2028 0010                move.l  ($10,A0), D0
015C6E: 7213                     moveq   #$13, D1
015C70: E2A0                     asr.l   D1, D0
015C72: 3C00                     move.w  D0, D6
015C74: 263C 0000 0800           move.l  #$800, D3
015C7A: 4247                     clr.w   D7
015C7C: 3447                     movea.w D7, A2
015C7E: 4244                     clr.w   D4
015C80: 2069 006E                movea.l ($6e,A1), A0
015C84: 3004                     move.w  D4, D0
015C86: 41E8 0002                lea     ($2,A0), A0
015C8A: 1030 0000                move.b  (A0,D0.w), D0
015C8E: 4880                     ext.w   D0
015C90: 48C0                     ext.l   D0
015C92: C0FC 0006                mulu.w  #$6, D0
015C96: D0A9 0072                add.l   ($72,A1), D0
015C9A: 2040                     movea.l D0, A0
015C9C: 3205                     move.w  D5, D1
015C9E: 1010                     move.b  (A0), D0
015CA0: 4880                     ext.w   D0
015CA2: 9240                     sub.w   D0, D1
015CA4: 4A41                     tst.w   D1
015CA6: 6C08                     bge     15cb0
015CA8: 7000                     moveq   #$0, D0
015CAA: 3001                     move.w  D1, D0
015CAC: 4480                     neg.l   D0
015CAE: 6004                     bra     15cb4
015CB0: 7000                     moveq   #$0, D0
015CB2: 3001                     move.w  D1, D0
015CB4: 3400                     move.w  D0, D2
015CB6: E94A                     lsl.w   #4, D2
015CB8: 3206                     move.w  D6, D1
015CBA: 1028 0001                move.b  ($1,A0), D0
015CBE: 4880                     ext.w   D0
015CC0: 9240                     sub.w   D0, D1
015CC2: 4A41                     tst.w   D1
015CC4: 6C08                     bge     15cce
015CC6: 7000                     moveq   #$0, D0
015CC8: 3001                     move.w  D1, D0
015CCA: 4480                     neg.l   D0
015CCC: 6004                     bra     15cd2
015CCE: 7000                     moveq   #$0, D0
015CD0: 3001                     move.w  D1, D0
015CD2: E948                     lsl.w   #4, D0
015CD4: B440                     cmp.w   D0, D2
015CD6: 630C                     bls     15ce4
015CD8: 3200                     move.w  D0, D1
015CDA: E649                     lsr.w   #3, D1
015CDC: C2FC 0003                mulu.w  #$3, D1
015CE0: D242                     add.w   D2, D1
015CE2: 600A                     bra     15cee
015CE4: 3202                     move.w  D2, D1
015CE6: E649                     lsr.w   #3, D1
015CE8: C2FC 0003                mulu.w  #$3, D1
015CEC: D240                     add.w   D0, D1
015CEE: 7000                     moveq   #$0, D0
015CF0: 3001                     move.w  D1, D0
015CF2: B083                     cmp.l   D3, D0
015CF4: 6406                     bcc     15cfc
015CF6: 7600                     moveq   #$0, D3
015CF8: 3601                     move.w  D1, D3
015CFA: 3444                     movea.w D4, A2
015CFC: 5244                     addq.w  #1, D4
015CFE: 7004                     moveq   #$4, D0
015D00: B044                     cmp.w   D4, D0
015D02: 6E00 FF7C                bgt     15c80
015D06: 300A                     move.w  A2, D0
015D08: 48C0                     ext.l   D0
015D0A: 4CDF 04FC                movem.l (A7)+, D2-D7/A2
015D0E: 4E75                     rts
015D10: 48E7 3E00                movem.l D2-D6, -(A7)
015D14: 206F 0018                movea.l ($18,A7), A0
015D18: 2228 000C                move.l  ($c,A0), D1
015D1C: 7013                     moveq   #$13, D0
015D1E: E0A1                     asr.l   D0, D1
015D20: 3A01                     move.w  D1, D5
015D22: 2228 0010                move.l  ($10,A0), D1
015D26: 7013                     moveq   #$13, D0
015D28: E0A1                     asr.l   D0, D1
015D2A: 3801                     move.w  D1, D4
015D2C: 2268 0072                movea.l ($72,A0), A1
015D30: 263C 0000 0400           move.l  #$400, D3
015D36: 0C11 00FF                cmpi.b  #-$1, (A1)
015D3A: 6700 0070                beq     15dac
015D3E: 0C29 00FF 0001           cmpi.b  #-$1, ($1,A1)
015D44: 6700 0066                beq     15dac
015D48: 3205                     move.w  D5, D1
015D4A: 1011                     move.b  (A1), D0
015D4C: 4880                     ext.w   D0
015D4E: 9240                     sub.w   D0, D1
015D50: 4A41                     tst.w   D1
015D52: 6C08                     bge     15d5c
015D54: 7000                     moveq   #$0, D0
015D56: 3001                     move.w  D1, D0
015D58: 4480                     neg.l   D0
015D5A: 6004                     bra     15d60
015D5C: 7000                     moveq   #$0, D0
015D5E: 3001                     move.w  D1, D0
015D60: 3400                     move.w  D0, D2
015D62: E94A                     lsl.w   #4, D2
015D64: 3204                     move.w  D4, D1
015D66: 1029 0001                move.b  ($1,A1), D0
015D6A: 4880                     ext.w   D0
015D6C: 9240                     sub.w   D0, D1
015D6E: 4A41                     tst.w   D1
015D70: 6C08                     bge     15d7a
015D72: 7000                     moveq   #$0, D0
015D74: 3001                     move.w  D1, D0
015D76: 4480                     neg.l   D0
015D78: 6004                     bra     15d7e
015D7A: 7000                     moveq   #$0, D0
015D7C: 3001                     move.w  D1, D0
015D7E: E948                     lsl.w   #4, D0
015D80: B440                     cmp.w   D0, D2
015D82: 630C                     bls     15d90
015D84: 3200                     move.w  D0, D1
015D86: E649                     lsr.w   #3, D1
015D88: C2FC 0003                mulu.w  #$3, D1
015D8C: D242                     add.w   D2, D1
015D8E: 600A                     bra     15d9a
015D90: 3202                     move.w  D2, D1
015D92: E649                     lsr.w   #3, D1
015D94: C2FC 0003                mulu.w  #$3, D1
015D98: D240                     add.w   D0, D1
015D9A: 7000                     moveq   #$0, D0
015D9C: 3001                     move.w  D1, D0
015D9E: B083                     cmp.l   D3, D0
015DA0: 6406                     bcc     15da8
015DA2: 7600                     moveq   #$0, D3
015DA4: 3601                     move.w  D1, D3
015DA6: 2C09                     move.l  A1, D6
015DA8: 5C89                     addq.l  #6, A1
015DAA: 608A                     bra     15d36
015DAC: 2146 006E                move.l  D6, ($6e,A0)
015DB0: 4CDF 007C                movem.l (A7)+, D2-D6
015DB4: 4E75                     rts
015DB6: 2F02                     move.l  D2, -(A7)
015DB8: 206F 0008                movea.l ($8,A7), A0
015DBC: 2268 006E                movea.l ($6e,A0), A1
015DC0: 1211                     move.b  (A1), D1
015DC2: 4881                     ext.w   D1
015DC4: 48C1                     ext.l   D1
015DC6: 2428 000C                move.l  ($c,A0), D2
015DCA: 7013                     moveq   #$13, D0
015DCC: E0A2                     asr.l   D0, D2
015DCE: B282                     cmp.l   D2, D1
015DD0: 6626                     bne     15df8
015DD2: 1229 0001                move.b  ($1,A1), D1
015DD6: 4881                     ext.w   D1
015DD8: 48C1                     ext.l   D1
015DDA: 2428 0010                move.l  ($10,A0), D2
015DDE: 7013                     moveq   #$13, D0
015DE0: E0A2                     asr.l   D0, D2
015DE2: B282                     cmp.l   D2, D1
015DE4: 6612                     bne     15df8
015DE6: 0C28 0023 001A           cmpi.b  #$23, ($1a,A0)
015DEC: 6606                     bne     15df4
015DEE: 117C 0020 001A           move.b  #$20, ($1a,A0)
015DF4: 7001                     moveq   #$1, D0
015DF6: 6002                     bra     15dfa
015DF8: 4200                     clr.b   D0
015DFA: 0C28 0023 001A           cmpi.b  #$23, ($1a,A0)
015E00: 660C                     bne     15e0e
015E02: 2F08                     move.l  A0, -(A7)
015E04: 4EB9 0001 5D10           jsr     $15d10.l
015E0A: 588F                     addq.l  #4, A7
015E0C: 6012                     bra     15e20
015E0E: 1400                     move.b  D0, D2
015E10: 4882                     ext.w   D2
015E12: 48C2                     ext.l   D2
015E14: 2F02                     move.l  D2, -(A7)
015E16: 2F08                     move.l  A0, -(A7)
015E18: 4EB9 0001 5E24           jsr     $15e24.l
015E1E: 508F                     addq.l  #8, A7
015E20: 241F                     move.l  (A7)+, D2
015E22: 4E75                     rts
015E24: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
015E28: 246F 0028                movea.l ($28,A7), A2
015E2C: 102F 002F                move.b  ($2f,A7), D0
015E30: 267C 0040 0018           movea.l #$400018, A3
015E36: 227C 0040 0396           movea.l #$400396, A1
015E3C: 162A 001A                move.b  ($1a,A2), D3
015E40: 1400                     move.b  D0, D2
015E42: 1229 0001                move.b  ($1,A1), D1
015E46: 204B                     movea.l A3, A0
015E48: 7E00                     moveq   #$0, D7
015E4A: 2847                     movea.l D7, A4
015E4C: 4204                     clr.b   D4
015E4E: 6044                     bra     15e94
015E50: 0C28 0001 0018           cmpi.b  #$1, ($18,A0)
015E56: 6630                     bne     15e88
015E58: 102A 001B                move.b  ($1b,A2), D0
015E5C: B028 001B                cmp.b   ($1b,A0), D0
015E60: 6626                     bne     15e88
015E62: 0C28 0002 0036           cmpi.b  #$2, ($36,A0)
015E68: 671E                     beq     15e88
015E6A: 4A28 001A                tst.b   ($1a,A0)
015E6E: 6700 0014                beq     15e84
015E72: 0C28 0001 001A           cmpi.b  #$1, ($1a,A0)
015E78: 6700 000A                beq     15e84
015E7C: 0C28 0005 001A           cmpi.b  #$5, ($1a,A0)
015E82: 6604                     bne     15e88
015E84: 5301                     subq.b  #1, D1
015E86: 2848                     movea.l A0, A4
015E88: 2E08                     move.l  A0, D7
015E8A: 0687 0000 00E2           addi.l  #$e2, D7
015E90: 2047                     movea.l D7, A0
015E92: 5204                     addq.b  #1, D4
015E94: 1004                     move.b  D4, D0
015E96: 4880                     ext.w   D0
015E98: B051                     cmp.w   (A1), D0
015E9A: 66B4                     bne     15e50
015E9C: 1001                     move.b  D1, D0
015E9E: 4880                     ext.w   D0
015EA0: B051                     cmp.w   (A1), D0
015EA2: 6700 00C2                beq     15f66
015EA6: 7002                     moveq   #$2, D0
015EA8: B051                     cmp.w   (A1), D0
015EAA: 661E                     bne     15eca
015EAC: 4A01                     tst.b   D1
015EAE: 661A                     bne     15eca
015EB0: 4853                     pea     (A3)
015EB2: 486B 00E2                pea     ($e2,A3)
015EB6: 4EB9 0001 5FE6           jsr     $15fe6.l
015EBC: 4A80                     tst.l   D0
015EBE: 508F                     addq.l  #8, A7
015EC0: 6706                     beq     15ec8
015EC2: 49EB 00E2                lea     ($e2,A3), A4
015EC6: 6002                     bra     15eca
015EC8: 284B                     movea.l A3, A4
015ECA: 182C 0019                move.b  ($19,A4), D4
015ECE: 202C 000C                move.l  ($c,A4), D0
015ED2: 90AA 000C                sub.l   ($c,A2), D0
015ED6: 4A80                     tst.l   D0
015ED8: 6C04                     bge     15ede
015EDA: 4480                     neg.l   D0
015EDC: 4E71                     nop
015EDE: 720C                     moveq   #$c, D1
015EE0: E2A0                     asr.l   D1, D0
015EE2: 3A00                     move.w  D0, D5
015EE4: 202C 0010                move.l  ($10,A4), D0
015EE8: 90AA 0010                sub.l   ($10,A2), D0
015EEC: 4A80                     tst.l   D0
015EEE: 6C04                     bge     15ef4
015EF0: 4480                     neg.l   D0
015EF2: 4E71                     nop
015EF4: 720C                     moveq   #$c, D1
015EF6: E2A0                     asr.l   D1, D0
015EF8: 3C00                     move.w  D0, D6
015EFA: BA46                     cmp.w   D6, D5
015EFC: 6312                     bls     15f10
015EFE: 7200                     moveq   #$0, D1
015F00: 3206                     move.w  D6, D1
015F02: E689                     lsr.l   #3, D1
015F04: C3FC 0003                muls.w  #$3, D1
015F08: 7000                     moveq   #$0, D0
015F0A: 3005                     move.w  D5, D0
015F0C: D280                     add.l   D0, D1
015F0E: 6010                     bra     15f20
015F10: 7200                     moveq   #$0, D1
015F12: 3205                     move.w  D5, D1
015F14: E689                     lsr.l   #3, D1
015F16: C3FC 0003                muls.w  #$3, D1
015F1A: 7000                     moveq   #$0, D0
015F1C: 3006                     move.w  D6, D0
015F1E: D280                     add.l   D0, D1
015F20: 1004                     move.b  D4, D0
015F22: 4880                     ext.w   D0
015F24: 3540 007A                move.w  D0, ($7a,A2)
015F28: 0C81 0000 0280           cmpi.l  #$280, D1
015F2E: 6C28                     bge     15f58
015F30: 4A6A 006C                tst.w   ($6c,A2)
015F34: 6600 0014                bne     15f4a
015F38: 0C2A 0007 001B           cmpi.b  #$7, ($1b,A2)
015F3E: 6700 000A                beq     15f4a
015F42: 0C2A 0009 001B           cmpi.b  #$9, ($1b,A2)
015F48: 660E                     bne     15f58
015F4A: 4A2A 0036                tst.b   ($36,A2)
015F4E: 6608                     bne     15f58
015F50: 157C 0021 001A           move.b  #$21, ($1a,A2)
015F56: 601C                     bra     15f74
015F58: 4A6A 006C                tst.w   ($6c,A2)
015F5C: 6708                     beq     15f66
015F5E: 157C 0022 001A           move.b  #$22, ($1a,A2)
015F64: 600E                     bra     15f74
015F66: 0C2A 0023 001A           cmpi.b  #$23, ($1a,A2)
015F6C: 6706                     beq     15f74
015F6E: 157C 0020 001A           move.b  #$20, ($1a,A2)
015F74: B62A 001A                cmp.b   ($1a,A2), D3
015F78: 6714                     beq     15f8e
015F7A: 0C03 0021                cmpi.b  #$21, D3
015F7E: 660C                     bne     15f8c
015F80: 2F0A                     move.l  A2, -(A7)
015F82: 4EB9 0001 60D4           jsr     $160d4.l
015F88: 588F                     addq.l  #4, A7
015F8A: 6002                     bra     15f8e
015F8C: 7401                     moveq   #$1, D2
015F8E: 4A02                     tst.b   D2
015F90: 6740                     beq     15fd2
015F92: 0C2A 0021 001A           cmpi.b  #$21, ($1a,A2)
015F98: 6606                     bne     15fa0
015F9A: 303C 00C0                move.w  #$c0, D0
015F9E: 6028                     bra     15fc8
015FA0: 0C2A 0022 001A           cmpi.b  #$22, ($1a,A2)
015FA6: 6606                     bne     15fae
015FA8: 303C 0080                move.w  #$80, D0
015FAC: 601A                     bra     15fc8
015FAE: 0C2A 0020 001A           cmpi.b  #$20, ($1a,A2)
015FB4: 6604                     bne     15fba
015FB6: 7070                     moveq   #$70, D0
015FB8: 600E                     bra     15fc8
015FBA: 0C2A 0023 001A           cmpi.b  #$23, ($1a,A2)
015FC0: 6604                     bne     15fc6
015FC2: 7070                     moveq   #$70, D0
015FC4: 6002                     bra     15fc8
015FC6: 4240                     clr.w   D0
015FC8: 48C0                     ext.l   D0
015FCA: 720C                     moveq   #$c, D1
015FCC: E3A0                     asl.l   D1, D0
015FCE: 2540 0068                move.l  D0, ($68,A2)
015FD2: 4A02                     tst.b   D2
015FD4: 670A                     beq     15fe0
015FD6: 2F0A                     move.l  A2, -(A7)
015FD8: 4EB9 0001 605C           jsr     $1605c.l
015FDE: 588F                     addq.l  #4, A7
015FE0: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
015FE4: 4E75                     rts
015FE6: 48E7 3800                movem.l D2-D4, -(A7)
015FEA: 226F 0010                movea.l ($10,A7), A1
015FEE: 206F 0014                movea.l ($14,A7), A0
015FF2: 4202                     clr.b   D2
015FF4: 0C29 0001 0018           cmpi.b  #$1, ($18,A1)
015FFA: 6652                     bne     1604e
015FFC: 0C28 0001 0018           cmpi.b  #$1, ($18,A0)
016002: 664A                     bne     1604e
016004: 1028 001B                move.b  ($1b,A0), D0
016008: B029 001B                cmp.b   ($1b,A1), D0
01600C: 6634                     bne     16042
01600E: 2229 0010                move.l  ($10,A1), D1
016012: 7013                     moveq   #$13, D0
016014: E0A1                     asr.l   D0, D1
016016: 3601                     move.w  D1, D3
016018: 2229 000C                move.l  ($c,A1), D1
01601C: 7013                     moveq   #$13, D0
01601E: E0A1                     asr.l   D0, D1
016020: 3001                     move.w  D1, D0
016022: D640                     add.w   D0, D3
016024: 2228 0010                move.l  ($10,A0), D1
016028: 7013                     moveq   #$13, D0
01602A: E0A1                     asr.l   D0, D1
01602C: 3801                     move.w  D1, D4
01602E: 2228 000C                move.l  ($c,A0), D1
016032: 7013                     moveq   #$13, D0
016034: E0A1                     asr.l   D0, D1
016036: 3001                     move.w  D1, D0
016038: D840                     add.w   D0, D4
01603A: B644                     cmp.w   D4, D3
01603C: 6F10                     ble     1604e
01603E: 7401                     moveq   #$1, D2
016040: 600C                     bra     1604e
016042: 1028 001B                move.b  ($1b,A0), D0
016046: B029 001B                cmp.b   ($1b,A1), D0
01604A: 6C02                     bge     1604e
01604C: 7401                     moveq   #$1, D2
01604E: 1202                     move.b  D2, D1
016050: 4881                     ext.w   D1
016052: 48C1                     ext.l   D1
016054: 2001                     move.l  D1, D0
016056: 4CDF 001C                movem.l (A7)+, D2-D4
01605A: 4E75                     rts
01605C: 2F0A                     move.l  A2, -(A7)
01605E: 246F 0008                movea.l ($8,A7), A2
016062: 102A 001A                move.b  ($1a,A2), D0
016066: 4880                     ext.w   D0
016068: 48C0                     ext.l   D0
01606A: 2040                     movea.l D0, A0
01606C: B0FC 0020                cmpa.w  #$20, A0
016070: 6D38                     blt     160aa
016072: 6E02                     bgt     16076
016074: 6010                     bra     16086
016076: B0FC 0021                cmpa.w  #$21, A0
01607A: 6602                     bne     1607e
01607C: 602C                     bra     160aa
01607E: B0FC 0022                cmpa.w  #$22, A0
016082: 6626                     bne     160aa
016084: 600E                     bra     16094
016086: 42A7                     clr.l   -(A7)
016088: 2F0A                     move.l  A2, -(A7)
01608A: 4EB9 0001 60AE           jsr     $160ae.l
016090: 508F                     addq.l  #8, A7
016092: 6016                     bra     160aa
016094: 2F0A                     move.l  A2, -(A7)
016096: 4EB9 0001 5C46           jsr     $15c46.l
01609C: 588F                     addq.l  #4, A7
01609E: 2F00                     move.l  D0, -(A7)
0160A0: 2F0A                     move.l  A2, -(A7)
0160A2: 4EB9 0001 60AE           jsr     $160ae.l
0160A8: 508F                     addq.l  #8, A7
0160AA: 245F                     movea.l (A7)+, A2
0160AC: 4E75                     rts
0160AE: 206F 0004                movea.l ($4,A7), A0
0160B2: 302F 000A                move.w  ($a,A7), D0
0160B6: 2268 006E                movea.l ($6e,A0), A1
0160BA: 43E9 0002                lea     ($2,A1), A1
0160BE: 1031 0000                move.b  (A1,D0.w), D0
0160C2: 4880                     ext.w   D0
0160C4: 48C0                     ext.l   D0
0160C6: C0FC 0006                mulu.w  #$6, D0
0160CA: D0A8 0072                add.l   ($72,A0), D0
0160CE: 2140 006E                move.l  D0, ($6e,A0)
0160D2: 4E75                     rts
0160D4: 2F0A                     move.l  A2, -(A7)
0160D6: 246F 0008                movea.l ($8,A7), A2
0160DA: 157C 0023 001A           move.b  #$23, ($1a,A2)
0160E0: 2F0A                     move.l  A2, -(A7)
0160E2: 4EB9 0001 5D10           jsr     $15d10.l
0160E8: 257C 0007 0000 0068      move.l  #$70000, ($68,A2)
0160F0: 588F                     addq.l  #4, A7
0160F2: 245F                     movea.l (A7)+, A2
0160F4: 4E75                     rts
0160F6: 4E56 FFFC                link    A6, #-$4
0160FA: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
0160FE: 246E 0008                movea.l ($8,A6), A2
016102: 222E 000C                move.l  ($c,A6), D1
016106: 287C 0040 06A0           movea.l #$4006a0, A4
01610C: 267C 0040 069E           movea.l #$40069e, A3
016112: 227C 0040 1C28           movea.l #$401c28, A1
016118: 2009                     move.l  A1, D0
01611A: 41E9 0008                lea     ($8,A1), A0
01611E: 2008                     move.l  A0, D0
016120: 41E9 0010                lea     ($10,A1), A0
016124: 2008                     move.l  A0, D0
016126: 41E9 0018                lea     ($18,A1), A0
01612A: 2008                     move.l  A0, D0
01612C: 4242                     clr.w   D2
01612E: 3002                     move.w  D2, D0
016130: 3639 0040 069A           move.w  $40069a.l, D3
016136: 9679 0040 0696           sub.w   $400696.l, D3
01613C: 3839 0040 069C           move.w  $40069c.l, D4
016142: 9879 0040 0698           sub.w   $400698.l, D4
016148: 4A2A 0036                tst.b   ($36,A2)
01614C: 6602                     bne     16150
01614E: 70FE                     moveq   #-$2, D0
016150: 4A39 0040 066C           tst.b   $40066c.l
016156: 672E                     beq     16186
016158: 0C39 0003 0040 066C      cmpi.b  #$3, $40066c.l
016160: 6C24                     bge     16186
016162: 7004                     moveq   #$4, D0
016164: B053                     cmp.w   (A3), D0
016166: 6F1E                     ble     16186
016168: 7001                     moveq   #$1, D0
01616A: B043                     cmp.w   D3, D0
01616C: 6718                     beq     16186
01616E: 7004                     moveq   #$4, D0
016170: B079 0040 0674           cmp.w   $400674.l, D0
016176: 6F0E                     ble     16186
016178: 70FF                     moveq   #-$1, D0
01617A: B079 0040 0674           cmp.w   $400674.l, D0
016180: 6C04                     bge     16186
016182: 0042 0001                ori.w   #$1, D2
016186: 4A39 0040 066E           tst.b   $40066e.l
01618C: 672E                     beq     161bc
01618E: 0C39 0003 0040 066E      cmpi.b  #$3, $40066e.l
016196: 6C24                     bge     161bc
016198: 7004                     moveq   #$4, D0
01619A: B054                     cmp.w   (A4), D0
01619C: 6C1E                     bge     161bc
01619E: 70FF                     moveq   #-$1, D0
0161A0: B044                     cmp.w   D4, D0
0161A2: 6718                     beq     161bc
0161A4: 7004                     moveq   #$4, D0
0161A6: B079 0040 0676           cmp.w   $400676.l, D0
0161AC: 6F0E                     ble     161bc
0161AE: 70FF                     moveq   #-$1, D0
0161B0: B079 0040 0676           cmp.w   $400676.l, D0
0161B6: 6C04                     bge     161bc
0161B8: 0042 0002                ori.w   #$2, D2
0161BC: 4A39 0040 0670           tst.b   $400670.l
0161C2: 672E                     beq     161f2
0161C4: 0C39 0003 0040 0670      cmpi.b  #$3, $400670.l
0161CC: 6C24                     bge     161f2
0161CE: 7004                     moveq   #$4, D0
0161D0: B053                     cmp.w   (A3), D0
0161D2: 6C1E                     bge     161f2
0161D4: 70FF                     moveq   #-$1, D0
0161D6: B043                     cmp.w   D3, D0
0161D8: 6718                     beq     161f2
0161DA: 7004                     moveq   #$4, D0
0161DC: B079 0040 0678           cmp.w   $400678.l, D0
0161E2: 6F0E                     ble     161f2
0161E4: 70FF                     moveq   #-$1, D0
0161E6: B079 0040 0678           cmp.w   $400678.l, D0
0161EC: 6C04                     bge     161f2
0161EE: 0042 0004                ori.w   #$4, D2
0161F2: 4A39 0040 0672           tst.b   $400672.l
0161F8: 672E                     beq     16228
0161FA: 0C39 0003 0040 0672      cmpi.b  #$3, $400672.l
016202: 6C24                     bge     16228
016204: 7004                     moveq   #$4, D0
016206: B054                     cmp.w   (A4), D0
016208: 6F1E                     ble     16228
01620A: 7001                     moveq   #$1, D0
01620C: B044                     cmp.w   D4, D0
01620E: 6718                     beq     16228
016210: 7004                     moveq   #$4, D0
016212: B079 0040 067A           cmp.w   $40067a.l, D0
016218: 6F0E                     ble     16228
01621A: 70FF                     moveq   #-$1, D0
01621C: B079 0040 067A           cmp.w   $40067a.l, D0
016222: 6C04                     bge     16228
016224: 0042 0008                ori.w   #$8, D2
016228: 0839 0000 0040 066A      btst    #$0, $40066a.l
016230: 6726                     beq     16258
016232: 7004                     moveq   #$4, D0
016234: B053                     cmp.w   (A3), D0
016236: 6F20                     ble     16258
016238: 7004                     moveq   #$4, D0
01623A: B054                     cmp.w   (A4), D0
01623C: 6C1A                     bge     16258
01623E: 70FF                     moveq   #-$1, D0
016240: B043                     cmp.w   D3, D0
016242: 6614                     bne     16258
016244: 7001                     moveq   #$1, D0
016246: B044                     cmp.w   D4, D0
016248: 660E                     bne     16258
01624A: 7004                     moveq   #$4, D0
01624C: B079 0040 067C           cmp.w   $40067c.l, D0
016252: 6F04                     ble     16258
016254: 0042 0010                ori.w   #$10, D2
016258: 0839 0001 0040 066A      btst    #$1, $40066a.l
016260: 6726                     beq     16288
016262: 7004                     moveq   #$4, D0
016264: B053                     cmp.w   (A3), D0
016266: 6C20                     bge     16288
016268: 7004                     moveq   #$4, D0
01626A: B054                     cmp.w   (A4), D0
01626C: 6C1A                     bge     16288
01626E: 7001                     moveq   #$1, D0
016270: B043                     cmp.w   D3, D0
016272: 6614                     bne     16288
016274: 7001                     moveq   #$1, D0
016276: B044                     cmp.w   D4, D0
016278: 660E                     bne     16288
01627A: 7004                     moveq   #$4, D0
01627C: B079 0040 067E           cmp.w   $40067e.l, D0
016282: 6F04                     ble     16288
016284: 0042 0020                ori.w   #$20, D2
016288: 0839 0002 0040 066A      btst    #$2, $40066a.l
016290: 6726                     beq     162b8
016292: 7004                     moveq   #$4, D0
016294: B053                     cmp.w   (A3), D0
016296: 6C20                     bge     162b8
016298: 7004                     moveq   #$4, D0
01629A: B054                     cmp.w   (A4), D0
01629C: 6F1A                     ble     162b8
01629E: 7001                     moveq   #$1, D0
0162A0: B043                     cmp.w   D3, D0
0162A2: 6614                     bne     162b8
0162A4: 70FF                     moveq   #-$1, D0
0162A6: B044                     cmp.w   D4, D0
0162A8: 660E                     bne     162b8
0162AA: 7004                     moveq   #$4, D0
0162AC: B079 0040 0680           cmp.w   $400680.l, D0
0162B2: 6F04                     ble     162b8
0162B4: 0042 0040                ori.w   #$40, D2
0162B8: 0839 0003 0040 066A      btst    #$3, $40066a.l
0162C0: 6726                     beq     162e8
0162C2: 7004                     moveq   #$4, D0
0162C4: B053                     cmp.w   (A3), D0
0162C6: 6F20                     ble     162e8
0162C8: 7004                     moveq   #$4, D0
0162CA: B054                     cmp.w   (A4), D0
0162CC: 6F1A                     ble     162e8
0162CE: 70FF                     moveq   #-$1, D0
0162D0: B043                     cmp.w   D3, D0
0162D2: 6614                     bne     162e8
0162D4: 70FF                     moveq   #-$1, D0
0162D6: B044                     cmp.w   D4, D0
0162D8: 660E                     bne     162e8
0162DA: 7004                     moveq   #$4, D0
0162DC: B079 0040 0682           cmp.w   $400682.l, D0
0162E2: 6F04                     ble     162e8
0162E4: 0042 0080                ori.w   #$80, D2
0162E8: 102A 0058                move.b  ($58,A2), D0
0162EC: 4A42                     tst.w   D2
0162EE: 6700 00EC                beq     163dc
0162F2: 4A00                     tst.b   D0
0162F4: 6700 00A0                beq     16396
0162F8: 0C00 0012                cmpi.b  #$12, D0
0162FC: 6700 0098                beq     16396
016300: 0C00 0020                cmpi.b  #$20, D0
016304: 6700 0090                beq     16396
016308: 0C00 0010                cmpi.b  #$10, D0
01630C: 6700 0088                beq     16396
016310: 0C00 0017                cmpi.b  #$17, D0
016314: 6700 0080                beq     16396
016318: 0C00 0018                cmpi.b  #$18, D0
01631C: 6700 0078                beq     16396
016320: 0C00 003B                cmpi.b  #$3b, D0
016324: 6700 0070                beq     16396
016328: 0C00 0032                cmpi.b  #$32, D0
01632C: 6700 0068                beq     16396
016330: 0C00 0033                cmpi.b  #$33, D0
016334: 6700 0060                beq     16396
016338: 0C00 0034                cmpi.b  #$34, D0
01633C: 6700 0058                beq     16396
016340: 0C00 0035                cmpi.b  #$35, D0
016344: 6700 0050                beq     16396
016348: 0C00 0036                cmpi.b  #$36, D0
01634C: 6700 0048                beq     16396
016350: 0C00 0037                cmpi.b  #$37, D0
016354: 6700 0040                beq     16396
016358: 0C00 002D                cmpi.b  #$2d, D0
01635C: 6700 0038                beq     16396
016360: 0C00 002E                cmpi.b  #$2e, D0
016364: 6700 0030                beq     16396
016368: 0C00 0038                cmpi.b  #$38, D0
01636C: 6700 0028                beq     16396
016370: 0C00 0039                cmpi.b  #$39, D0
016374: 6700 0020                beq     16396
016378: 0C00 003A                cmpi.b  #$3a, D0
01637C: 6700 0018                beq     16396
016380: 0C00 002F                cmpi.b  #$2f, D0
016384: 6700 0010                beq     16396
016388: 0C00 0030                cmpi.b  #$30, D0
01638C: 6700 0008                beq     16396
016390: 0C00 0031                cmpi.b  #$31, D0
016394: 6646                     bne     163dc
016396: 4A2A 0036                tst.b   ($36,A2)
01639A: 6604                     bne     163a0
01639C: 422A 0037                clr.b   ($37,A2)
0163A0: 102A 0037                move.b  ($37,A2), D0
0163A4: 4880                     ext.w   D0
0163A6: B042                     cmp.w   D2, D0
0163A8: 6700 0090                beq     1643a
0163AC: 0C2A 0002 0036           cmpi.b  #$2, ($36,A2)
0163B2: 6700 0086                beq     1643a
0163B6: 157C 0001 0036           move.b  #$1, ($36,A2)
0163BC: 3579 0040 0696 002E      move.w  $400696.l, ($2e,A2)
0163C4: 3579 0040 0698 0030      move.w  $400698.l, ($30,A2)
0163CC: 1542 0037                move.b  D2, ($37,A2)
0163D0: 257C FFFF A000 0008      move.l  #$ffffa000, ($8,A2)
0163D8: 6000 0060                bra     1643a
0163DC: 4A42                     tst.w   D2
0163DE: 665A                     bne     1643a
0163E0: 0C2A 0002 0036           cmpi.b  #$2, ($36,A2)
0163E6: 6752                     beq     1643a
0163E8: 422A 0036                clr.b   ($36,A2)
0163EC: 42AA 0008                clr.l   ($8,A2)
0163F0: 202A 0014                move.l  ($14,A2), D0
0163F4: 9081                     sub.l   D1, D0
0163F6: 0C80 0006 0000           cmpi.l  #$60000, D0
0163FC: 6F3C                     ble     1643a
0163FE: 157C 0002 0036           move.b  #$2, ($36,A2)
016404: 3579 0040 0696 002E      move.w  $400696.l, ($2e,A2)
01640C: 3579 0040 0698 0030      move.w  $400698.l, ($30,A2)
016414: 257C FFFF A000 0008      move.l  #$ffffa000, ($8,A2)
01641C: 0C2A 0012 0058           cmpi.b  #$12, ($58,A2)
016422: 6716                     beq     1643a
016424: 0C2A 0020 0058           cmpi.b  #$20, ($58,A2)
01642A: 670E                     beq     1643a
01642C: 4879 0000 0045           pea     $45.l
016432: 4EB9 0001 58AC           jsr     $158ac.l
016438: 588F                     addq.l  #4, A7
01643A: 0C2A 0001 0036           cmpi.b  #$1, ($36,A2)
016440: 6600 020E                bne     16650
016444: 2012                     move.l  (A2), D0
016446: 202A 0004                move.l  ($4,A2), D0
01644A: 3A39 0040 0696           move.w  $400696.l, D5
016450: 9A6A 002E                sub.w   ($2e,A2), D5
016454: 4A45                     tst.w   D5
016456: 6C08                     bge     16460
016458: 7000                     moveq   #$0, D0
01645A: 3005                     move.w  D5, D0
01645C: 4480                     neg.l   D0
01645E: 6004                     bra     16464
016460: 7000                     moveq   #$0, D0
016462: 3005                     move.w  D5, D0
016464: 3A00                     move.w  D0, D5
016466: 3C39 0040 0698           move.w  $400698.l, D6
01646C: 9C6A 0030                sub.w   ($30,A2), D6
016470: 4A46                     tst.w   D6
016472: 6C08                     bge     1647c
016474: 7000                     moveq   #$0, D0
016476: 3006                     move.w  D6, D0
016478: 4480                     neg.l   D0
01647A: 6004                     bra     16480
01647C: 7000                     moveq   #$0, D0
01647E: 3006                     move.w  D6, D0
016480: 3C00                     move.w  D0, D6
016482: 7EFF                     moveq   #-$1, D7
016484: 3247                     movea.w D7, A1
016486: 7002                     moveq   #$2, D0
016488: B045                     cmp.w   D5, D0
01648A: 6F00 01C4                ble     16650
01648E: 7002                     moveq   #$2, D0
016490: B046                     cmp.w   D6, D0
016492: 6F00 01BC                ble     16650
016496: 4203                     clr.b   D3
016498: 182A 0037                move.b  ($37,A2), D4
01649C: 4884                     ext.w   D4
01649E: 7001                     moveq   #$1, D0
0164A0: 1203                     move.b  D3, D1
0164A2: E3A0                     asl.l   D1, D0
0164A4: C840                     and.w   D0, D4
0164A6: 7405                     moveq   #$5, D2
0164A8: 3202                     move.w  D2, D1
0164AA: 7001                     moveq   #$1, D0
0164AC: B044                     cmp.w   D4, D0
0164AE: 6614                     bne     164c4
0164B0: 3D79 0040 0674 FFFE      move.w  $400674.l, (-$2,A6)
0164B8: 4A45                     tst.w   D5
0164BA: 6600 00E8                bne     165a4
0164BE: 3213                     move.w  (A3), D1
0164C0: 6000 00E2                bra     165a4
0164C4: 7002                     moveq   #$2, D0
0164C6: B044                     cmp.w   D4, D0
0164C8: 6616                     bne     164e0
0164CA: 3D79 0040 0676 FFFE      move.w  $400676.l, (-$2,A6)
0164D2: 4A46                     tst.w   D6
0164D4: 6600 00CE                bne     165a4
0164D8: 7207                     moveq   #$7, D1
0164DA: 9254                     sub.w   (A4), D1
0164DC: 6000 00C6                bra     165a4
0164E0: 7004                     moveq   #$4, D0
0164E2: B044                     cmp.w   D4, D0
0164E4: 6616                     bne     164fc
0164E6: 3D79 0040 0678 FFFE      move.w  $400678.l, (-$2,A6)
0164EE: 4A45                     tst.w   D5
0164F0: 6600 00B2                bne     165a4
0164F4: 7207                     moveq   #$7, D1
0164F6: 9253                     sub.w   (A3), D1
0164F8: 6000 00AA                bra     165a4
0164FC: 7008                     moveq   #$8, D0
0164FE: B044                     cmp.w   D4, D0
016500: 6614                     bne     16516
016502: 3D79 0040 067A FFFE      move.w  $40067a.l, (-$2,A6)
01650A: 4A46                     tst.w   D6
01650C: 6600 0096                bne     165a4
016510: 3214                     move.w  (A4), D1
016512: 6000 0090                bra     165a4
016516: 7010                     moveq   #$10, D0
016518: B044                     cmp.w   D4, D0
01651A: 6622                     bne     1653e
01651C: 3D79 0040 067C FFFE      move.w  $40067c.l, (-$2,A6)
016524: 70FF                     moveq   #-$1, D0
016526: B045                     cmp.w   D5, D0
016528: 6700 007A                beq     165a4
01652C: 7001                     moveq   #$1, D0
01652E: B046                     cmp.w   D6, D0
016530: 6700 0072                beq     165a4
016534: 3213                     move.w  (A3), D1
016536: 7407                     moveq   #$7, D2
016538: 9454                     sub.w   (A4), D2
01653A: 6000 0068                bra     165a4
01653E: 7020                     moveq   #$20, D0
016540: B044                     cmp.w   D4, D0
016542: 6620                     bne     16564
016544: 3D79 0040 067E FFFE      move.w  $40067e.l, (-$2,A6)
01654C: 7001                     moveq   #$1, D0
01654E: B045                     cmp.w   D5, D0
016550: 6700 0052                beq     165a4
016554: 7001                     moveq   #$1, D0
016556: B046                     cmp.w   D6, D0
016558: 674A                     beq     165a4
01655A: 7207                     moveq   #$7, D1
01655C: 9253                     sub.w   (A3), D1
01655E: 7407                     moveq   #$7, D2
016560: 9454                     sub.w   (A4), D2
016562: 6040                     bra     165a4
016564: 7040                     moveq   #$40, D0
016566: B044                     cmp.w   D4, D0
016568: 661C                     bne     16586
01656A: 3D79 0040 0680 FFFE      move.w  $400680.l, (-$2,A6)
016572: 7001                     moveq   #$1, D0
016574: B045                     cmp.w   D5, D0
016576: 672C                     beq     165a4
016578: 70FF                     moveq   #-$1, D0
01657A: B046                     cmp.w   D6, D0
01657C: 6726                     beq     165a4
01657E: 7207                     moveq   #$7, D1
016580: 9253                     sub.w   (A3), D1
016582: 3414                     move.w  (A4), D2
016584: 601E                     bra     165a4
016586: 0C44 0080                cmpi.w  #$80, D4
01658A: 6618                     bne     165a4
01658C: 3D79 0040 0682 FFFE      move.w  $400682.l, (-$2,A6)
016594: 70FF                     moveq   #-$1, D0
016596: B045                     cmp.w   D5, D0
016598: 670A                     beq     165a4
01659A: 70FF                     moveq   #-$1, D0
01659C: B046                     cmp.w   D6, D0
01659E: 6704                     beq     165a4
0165A0: 3213                     move.w  (A3), D1
0165A2: 3414                     move.w  (A4), D2
0165A4: 7005                     moveq   #$5, D0
0165A6: B041                     cmp.w   D1, D0
0165A8: 6E00 0008                bgt     165b2
0165AC: 7005                     moveq   #$5, D0
0165AE: B042                     cmp.w   D2, D0
0165B0: 6F46                     ble     165f8
0165B2: B242                     cmp.w   D2, D1
0165B4: 6F08                     ble     165be
0165B6: 7005                     moveq   #$5, D0
0165B8: B041                     cmp.w   D1, D0
0165BA: 6E00 0008                bgt     165c4
0165BE: 7005                     moveq   #$5, D0
0165C0: B042                     cmp.w   D2, D0
0165C2: 6E10                     bgt     165d4
0165C4: 3001                     move.w  D1, D0
0165C6: 207C 0002 398C           movea.l #$2398c, A0
0165CC: 1430 0000                move.b  (A0,D0.w), D2
0165D0: 4882                     ext.w   D2
0165D2: 6010                     bra     165e4
0165D4: 3002                     move.w  D2, D0
0165D6: 207C 0002 398C           movea.l #$2398c, A0
0165DC: 1030 0000                move.b  (A0,D0.w), D0
0165E0: 4880                     ext.w   D0
0165E2: 3400                     move.w  D0, D2
0165E4: 70FF                     moveq   #-$1, D0
0165E6: B049                     cmp.w   A1, D0
0165E8: 6700 0006                beq     165f0
0165EC: B2C2                     cmpa.w  D2, A1
0165EE: 6F08                     ble     165f8
0165F0: 3242                     movea.w D2, A1
0165F2: 3D6E FFFE FFFC           move.w  (-$2,A6), (-$4,A6)
0165F8: 5203                     addq.b  #1, D3
0165FA: 0C03 0008                cmpi.b  #$8, D3
0165FE: 6600 FE98                bne     16498
016602: 70FF                     moveq   #-$1, D0
016604: B049                     cmp.w   A1, D0
016606: 671C                     beq     16624
016608: 322E FFFC                move.w  (-$4,A6), D1
01660C: 48C1                     ext.l   D1
01660E: 3009                     move.w  A1, D0
016610: 48C0                     ext.l   D0
016612: 9280                     sub.l   D0, D1
016614: 4A81                     tst.l   D1
016616: 6F38                     ble     16650
016618: 2001                     move.l  D1, D0
01661A: 7210                     moveq   #$10, D1
01661C: E3A0                     asl.l   D1, D0
01661E: D1AA 0014                add.l   D0, ($14,A2)
016622: 602C                     bra     16650
016624: 157C 0002 0036           move.b  #$2, ($36,A2)
01662A: 257C FFFF A000 0008      move.l  #$ffffa000, ($8,A2)
016632: 0C2A 0012 0058           cmpi.b  #$12, ($58,A2)
016638: 6716                     beq     16650
01663A: 0C2A 0020 0058           cmpi.b  #$20, ($58,A2)
016640: 670E                     beq     16650
016642: 4879 0000 0045           pea     $45.l
016648: 4EB9 0001 58AC           jsr     $158ac.l
01664E: 588F                     addq.l  #4, A7
016650: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
016654: 4E5E                     unlk    A6
016656: 4E75                     rts

(data)

016A20: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
016A24: 267C 0002 86B0           movea.l #$286b0, A3
016A2A: 287C 0001 58AC           movea.l #$158ac, A4
016A30: 263C 0040 0396           move.l  #$400396, D3
016A36: 247C 0040 0018           movea.l #$400018, A2
016A3C: 4204                     clr.b   D4
016A3E: 4202                     clr.b   D2
016A40: 6022                     bra     16a64
016A42: 0C2A 0001 0018           cmpi.b  #$1, ($18,A2)
016A48: 6700 000A                beq     16a54
016A4C: 0C2A 0003 0018           cmpi.b  #$3, ($18,A2)
016A52: 6604                     bne     16a58
016A54: 5204                     addq.b  #1, D4
016A56: 204A                     movea.l A2, A0
016A58: 2E0A                     move.l  A2, D7
016A5A: 0687 0000 00E2           addi.l  #$e2, D7
016A60: 2447                     movea.l D7, A2
016A62: 5202                     addq.b  #1, D2
016A64: 1002                     move.b  D2, D0
016A66: 4880                     ext.w   D0
016A68: C789                     exg     D3, A1
016A6A: B051                     cmp.w   (A1), D0
016A6C: C789                     exg     D3, A1
016A6E: 66D2                     bne     16a42
016A70: 4A04                     tst.b   D4
016A72: 6604                     bne     16a78
016A74: 7000                     moveq   #$0, D0
016A76: 600A                     bra     16a82
016A78: 1028 0019                move.b  ($19,A0), D0
016A7C: 4880                     ext.w   D0
016A7E: 48C0                     ext.l   D0
016A80: 5280                     addq.l  #1, D0
016A82: 2F00                     move.l  D0, -(A7)
016A84: 4EB9 0000 01BA           jsr     $1ba.l
016A8A: 4A04                     tst.b   D4
016A8C: 588F                     addq.l  #4, A7
016A8E: 6656                     bne     16ae6
016A90: 7203                     moveq   #$3, D1
016A92: B279 0040 0394           cmp.w   $400394.l, D1
016A98: 6614                     bne     16aae
016A9A: 4879 0000 000F           pea     $f.l
016AA0: 4E94                     jsr     (A4)
016AA2: 4879 0000 0011           pea     $11.l
016AA8: 4E94                     jsr     (A4)
016AAA: 508F                     addq.l  #8, A7
016AAC: 6038                     bra     16ae6
016AAE: 7204                     moveq   #$4, D1
016AB0: B279 0040 0394           cmp.w   $400394.l, D1
016AB6: 6614                     bne     16acc
016AB8: 4879 0000 0017           pea     $17.l
016ABE: 4E94                     jsr     (A4)
016AC0: 4879 0000 0015           pea     $15.l
016AC6: 4E94                     jsr     (A4)
016AC8: 508F                     addq.l  #8, A7
016ACA: 601A                     bra     16ae6
016ACC: 3039 0040 0394           move.w  $400394.l, D0
016AD2: 48C0                     ext.l   D0
016AD4: E580                     asl.l   #2, D0
016AD6: 207C 0001 EF92           movea.l #$1ef92, A0
016ADC: 2070 0800                movea.l (A0,D0.l), A0
016AE0: 4850                     pea     (A0)
016AE2: 4E94                     jsr     (A4)
016AE4: 588F                     addq.l  #4, A7
016AE6: 4879 0000 003F           pea     $3f.l
016AEC: 4E94                     jsr     (A4)
016AEE: 247C 0040 0018           movea.l #$400018, A2
016AF4: 4202                     clr.b   D2
016AF6: 588F                     addq.l  #4, A7
016AF8: 6000 0174                bra     16c6e
016AFC: 156A 006E 006D           move.b  ($6e,A2), ($6d,A2)
016B02: 157C 00FF 006E           move.b  #$ff, ($6e,A2)
016B08: 0C2A 0002 0018           cmpi.b  #$2, ($18,A2)
016B0E: 6600 0152                bne     16c62
016B12: 7204                     moveq   #$4, D1
016B14: B279 0040 0394           cmp.w   $400394.l, D1
016B1A: 6608                     bne     16b24
016B1C: 5239 0040 0654           addq.b  #1, $400654.l
016B22: 6010                     bra     16b34
016B24: 7205                     moveq   #$5, D1
016B26: B279 0040 0394           cmp.w   $400394.l, D1
016B2C: 6606                     bne     16b34
016B2E: 5239 0040 0656           addq.b  #1, $400656.l
016B34: 4EB9 0001 5884           jsr     $15884.l
016B3A: 0C2A 0002 0036           cmpi.b  #$2, ($36,A2)
016B40: 660A                     bne     16b4c
016B42: 4879 0000 0046           pea     $46.l
016B48: 4E94                     jsr     (A4)
016B4A: 588F                     addq.l  #4, A7
016B4C: 0C2A 0010 0058           cmpi.b  #$10, ($58,A2)
016B52: 660A                     bne     16b5e
016B54: 4879 0000 0044           pea     $44.l
016B5A: 4E94                     jsr     (A4)
016B5C: 588F                     addq.l  #4, A7
016B5E: 2243                     movea.l D3, A1
016B60: 3211                     move.w  (A1), D1
016B62: 48C1                     ext.l   D1
016B64: 1002                     move.b  D2, D0
016B66: 4880                     ext.w   D0
016B68: 48C0                     ext.l   D0
016B6A: D280                     add.l   D0, D1
016B6C: 5381                     subq.l  #1, D1
016B6E: 3001                     move.w  D1, D0
016B70: 207C 0002 399C           movea.l #$2399c, A0
016B76: 1A30 0000                move.b  (A0,D0.w), D5
016B7A: 4A02                     tst.b   D2
016B7C: 6708                     beq     16b86
016B7E: 203C 0000 2400           move.l  #$2400, D0
016B84: 6006                     bra     16b8c
016B86: 203C 0000 2000           move.l  #$2000, D0
016B8C: 3C00                     move.w  D0, D6
016B8E: 7202                     moveq   #$2, D1
016B90: C789                     exg     D3, A1
016B92: B251                     cmp.w   (A1), D1
016B94: C789                     exg     D3, A1
016B96: 6644                     bne     16bdc
016B98: 3006                     move.w  D6, D0
016B9A: 48C0                     ext.l   D0
016B9C: 2F00                     move.l  D0, -(A7)
016B9E: 4878 0016                pea     $16.w
016BA2: 1005                     move.b  D5, D0
016BA4: 4880                     ext.w   D0
016BA6: 48C0                     ext.l   D0
016BA8: 2F00                     move.l  D0, -(A7)
016BAA: 4879 0002 2E96           pea     $22e96.l
016BB0: 4E93                     jsr     (A3)
016BB2: 3006                     move.w  D6, D0
016BB4: 48C0                     ext.l   D0
016BB6: 2F00                     move.l  D0, -(A7)
016BB8: 4878 0017                pea     $17.w
016BBC: 1005                     move.b  D5, D0
016BBE: 4880                     ext.w   D0
016BC0: 48C0                     ext.l   D0
016BC2: 2F00                     move.l  D0, -(A7)
016BC4: 1002                     move.b  D2, D0
016BC6: 4880                     ext.w   D0
016BC8: 48C0                     ext.l   D0
016BCA: E580                     asl.l   #2, D0
016BCC: 207C 0001 EEF0           movea.l #$1eef0, A0
016BD2: 2F30 0800                move.l  (A0,D0.l), -(A7)
016BD6: 4E93                     jsr     (A3)
016BD8: 4FEF 0020                lea     ($20,A7), A7
016BDC: 3006                     move.w  D6, D0
016BDE: 48C0                     ext.l   D0
016BE0: 2F00                     move.l  D0, -(A7)
016BE2: 4878 0018                pea     $18.w
016BE6: 1005                     move.b  D5, D0
016BE8: 4880                     ext.w   D0
016BEA: 48C0                     ext.l   D0
016BEC: 2F00                     move.l  D0, -(A7)
016BEE: 4879 0002 2E96           pea     $22e96.l
016BF4: 4E93                     jsr     (A3)
016BF6: 3006                     move.w  D6, D0
016BF8: 48C0                     ext.l   D0
016BFA: 2F00                     move.l  D0, -(A7)
016BFC: 4878 0019                pea     $19.w
016C00: 1005                     move.b  D5, D0
016C02: 4880                     ext.w   D0
016C04: 48C0                     ext.l   D0
016C06: 2F00                     move.l  D0, -(A7)
016C08: 4879 0002 2E8E           pea     $22e8e.l
016C0E: 4E93                     jsr     (A3)
016C10: 3006                     move.w  D6, D0
016C12: 48C0                     ext.l   D0
016C14: 2F00                     move.l  D0, -(A7)
016C16: 4878 001A                pea     $1a.w
016C1A: 1005                     move.b  D5, D0
016C1C: 4880                     ext.w   D0
016C1E: 48C0                     ext.l   D0
016C20: 2F00                     move.l  D0, -(A7)
016C22: 4879 0002 2E96           pea     $22e96.l
016C28: 4E93                     jsr     (A3)
016C2A: 3006                     move.w  D6, D0
016C2C: 48C0                     ext.l   D0
016C2E: 2F00                     move.l  D0, -(A7)
016C30: 4878 001B                pea     $1b.w
016C34: 1005                     move.b  D5, D0
016C36: 4880                     ext.w   D0
016C38: 48C0                     ext.l   D0
016C3A: 2F00                     move.l  D0, -(A7)
016C3C: 4879 0002 2E92           pea     $22e92.l
016C42: 4E93                     jsr     (A3)
016C44: 3006                     move.w  D6, D0
016C46: 48C0                     ext.l   D0
016C48: 2F00                     move.l  D0, -(A7)
016C4A: 4878 001C                pea     $1c.w
016C4E: 1005                     move.b  D5, D0
016C50: 4880                     ext.w   D0
016C52: 48C0                     ext.l   D0
016C54: 2F00                     move.l  D0, -(A7)
016C56: 4879 0002 2E96           pea     $22e96.l
016C5C: 4E93                     jsr     (A3)
016C5E: 4FEF 0050                lea     ($50,A7), A7
016C62: 2E0A                     move.l  A2, D7
016C64: 0687 0000 00E2           addi.l  #$e2, D7
016C6A: 2447                     movea.l D7, A2
016C6C: 5202                     addq.b  #1, D2
016C6E: 1002                     move.b  D2, D0
016C70: 4880                     ext.w   D0
016C72: C789                     exg     D3, A1
016C74: B051                     cmp.w   (A1), D0
016C76: C789                     exg     D3, A1
016C78: 6600 FE82                bne     16afc
016C7C: 4878 00B4                pea     $b4.w
016C80: 4EB9 0002 8DB8           jsr     $28db8.l
016C86: 4878 0014                pea     $14.w
016C8A: 4EB9 0001 6E8E           jsr     $16e8e.l
016C90: 247C 0040 0018           movea.l #$400018, A2
016C96: 4202                     clr.b   D2
016C98: 508F                     addq.l  #8, A7
016C9A: 6000 0158                bra     16df4
016C9E: 0C2A 0001 0018           cmpi.b  #$1, ($18,A2)
016CA4: 6600 0134                bne     16dda
016CA8: 0C04 0001                cmpi.b  #$1, D4
016CAC: 6600 012C                bne     16dda
016CB0: 2243                     movea.l D3, A1
016CB2: 3211                     move.w  (A1), D1
016CB4: 48C1                     ext.l   D1
016CB6: 1002                     move.b  D2, D0
016CB8: 4880                     ext.w   D0
016CBA: 48C0                     ext.l   D0
016CBC: D280                     add.l   D0, D1
016CBE: 5381                     subq.l  #1, D1
016CC0: 3001                     move.w  D1, D0
016CC2: 207C 0002 399C           movea.l #$2399c, A0
016CC8: 1A30 0000                move.b  (A0,D0.w), D5
016CCC: 4A02                     tst.b   D2
016CCE: 6708                     beq     16cd8
016CD0: 203C 0000 2400           move.l  #$2400, D0
016CD6: 6006                     bra     16cde
016CD8: 203C 0000 2000           move.l  #$2000, D0
016CDE: 3C00                     move.w  D0, D6
016CE0: 3006                     move.w  D6, D0
016CE2: 48C0                     ext.l   D0
016CE4: 2F00                     move.l  D0, -(A7)
016CE6: 4878 0018                pea     $18.w
016CEA: 1005                     move.b  D5, D0
016CEC: 4880                     ext.w   D0
016CEE: 48C0                     ext.l   D0
016CF0: 2F00                     move.l  D0, -(A7)
016CF2: 4879 0002 2E96           pea     $22e96.l
016CF8: 4E93                     jsr     (A3)
016CFA: 3006                     move.w  D6, D0
016CFC: 48C0                     ext.l   D0
016CFE: 2F00                     move.l  D0, -(A7)
016D00: 4878 0019                pea     $19.w
016D04: 1005                     move.b  D5, D0
016D06: 4880                     ext.w   D0
016D08: 48C0                     ext.l   D0
016D0A: 2F00                     move.l  D0, -(A7)
016D0C: 1002                     move.b  D2, D0
016D0E: 4880                     ext.w   D0
016D10: 48C0                     ext.l   D0
016D12: E580                     asl.l   #2, D0
016D14: 207C 0001 EEF0           movea.l #$1eef0, A0
016D1A: 2F30 0800                move.l  (A0,D0.l), -(A7)
016D1E: 4E93                     jsr     (A3)
016D20: 3006                     move.w  D6, D0
016D22: 48C0                     ext.l   D0
016D24: 2F00                     move.l  D0, -(A7)
016D26: 4878 001A                pea     $1a.w
016D2A: 1005                     move.b  D5, D0
016D2C: 4880                     ext.w   D0
016D2E: 48C0                     ext.l   D0
016D30: 2F00                     move.l  D0, -(A7)
016D32: 4879 0002 2E96           pea     $22e96.l
016D38: 4E93                     jsr     (A3)
016D3A: 3006                     move.w  D6, D0
016D3C: 48C0                     ext.l   D0
016D3E: 2F00                     move.l  D0, -(A7)
016D40: 4878 001B                pea     $1b.w
016D44: 1005                     move.b  D5, D0
016D46: 4880                     ext.w   D0
016D48: 48C0                     ext.l   D0
016D4A: 2F00                     move.l  D0, -(A7)
016D4C: 4879 0002 2EA6           pea     $22ea6.l
016D52: 4E93                     jsr     (A3)
016D54: 3006                     move.w  D6, D0
016D56: 48C0                     ext.l   D0
016D58: 2F00                     move.l  D0, -(A7)
016D5A: 4878 001C                pea     $1c.w
016D5E: 1005                     move.b  D5, D0
016D60: 4880                     ext.w   D0
016D62: 48C0                     ext.l   D0
016D64: 2F00                     move.l  D0, -(A7)
016D66: 4879 0002 2E96           pea     $22e96.l
016D6C: 4E93                     jsr     (A3)
016D6E: 4878 003C                pea     $3c.w
016D72: 4EB9 0002 8DB8           jsr     $28db8.l
016D78: 3006                     move.w  D6, D0
016D7A: 48C0                     ext.l   D0
016D7C: 2F00                     move.l  D0, -(A7)
016D7E: 4878 001B                pea     $1b.w
016D82: 1005                     move.b  D5, D0
016D84: 4880                     ext.w   D0
016D86: 48C0                     ext.l   D0
016D88: 2F00                     move.l  D0, -(A7)
016D8A: 4879 0002 2EAA           pea     $22eaa.l
016D90: 4E93                     jsr     (A3)
016D92: 4878 003C                pea     $3c.w
016D96: 4EB9 0002 8DB8           jsr     $28db8.l
016D9C: 3006                     move.w  D6, D0
016D9E: 48C0                     ext.l   D0
016DA0: 2F00                     move.l  D0, -(A7)
016DA2: 4878 001B                pea     $1b.w
016DA6: 1005                     move.b  D5, D0
016DA8: 4880                     ext.w   D0
016DAA: 48C0                     ext.l   D0
016DAC: 2F00                     move.l  D0, -(A7)
016DAE: 4879 0002 2EAE           pea     $22eae.l
016DB4: 4E93                     jsr     (A3)
016DB6: 4878 003C                pea     $3c.w
016DBA: 4EB9 0002 8DB8           jsr     $28db8.l
016DC0: 156A 006D 006E           move.b  ($6d,A2), ($6e,A2)
016DC6: 4279 0040 0390           clr.w   $400390.l        Put game in play mode
016DCC: 4878 0014                pea     $14.w
016DD0: 4EB9 0001 6E8E           jsr     $16e8e.l
016DD6: 4FEF 0080                lea     ($80,A7), A7
016DDA: 0C2A 0003 0018           cmpi.b  #$3, ($18,A2)
016DE0: 6606                     bne     16de8
016DE2: 4279 0040 0390           clr.w   $400390.l        Put game in play mode
016DE8: 2E0A                     move.l  A2, D7
016DEA: 0687 0000 00E2           addi.l  #$e2, D7
016DF0: 2447                     movea.l D7, A2
016DF2: 5202                     addq.b  #1, D2
016DF4: 1002                     move.b  D2, D0
016DF6: 4880                     ext.w   D0
016DF8: C789                     exg     D3, A1
016DFA: B051                     cmp.w   (A1), D0
016DFC: C789                     exg     D3, A1
016DFE: 6600 FE9E                bne     16c9e
016E02: 7202                     moveq   #$2, D1
016E04: C789                     exg     D3, A1
016E06: B251                     cmp.w   (A1), D1
016E08: C789                     exg     D3, A1
016E0A: 6600 007C                bne     16e88
016E0E: 0C04 0001                cmpi.b  #$1, D4
016E12: 6600 0074                bne     16e88
016E16: 247C 0040 0018           movea.l #$400018, A2
016E1C: 4202                     clr.b   D2
016E1E: 6000 005C                bra     16e7c
016E22: 0C2A 0002 0018           cmpi.b  #$2, ($18,A2)
016E28: 6646                     bne     16e70
016E2A: 4A2A 001A                tst.b   ($1a,A2)
016E2E: 6626                     bne     16e56
016E30: 4A2A 0058                tst.b   ($58,A2)
016E34: 6700 000A                beq     16e40
016E38: 0C2A 0010 0058           cmpi.b  #$10, ($58,A2)
016E3E: 6616                     bne     16e56
016E40: 4A2A 0036                tst.b   ($36,A2)
016E44: 6610                     bne     16e56
016E46: 4878 0002                pea     $2.w
016E4A: 2F0A                     move.l  A2, -(A7)
016E4C: 4EB9 0002 5BAE           jsr     $25bae.l
016E52: 508F                     addq.l  #8, A7
016E54: 601A                     bra     16e70
016E56: 422A 0018                clr.b   ($18,A2)
016E5A: 102A 0019                move.b  ($19,A2), D0
016E5E: 4880                     ext.w   D0
016E60: 48C0                     ext.l   D0
016E62: 2F00                     move.l  D0, -(A7)
016E64: 4878 0001                pea     $1.w
016E68: 4EB9 0001 8F46           jsr     $18f46.l
016E6E: 508F                     addq.l  #8, A7
016E70: 2E0A                     move.l  A2, D7
016E72: 0687 0000 00E2           addi.l  #$e2, D7
016E78: 2447                     movea.l D7, A2
016E7A: 5202                     addq.b  #1, D2
016E7C: 1002                     move.b  D2, D0
016E7E: 4880                     ext.w   D0
016E80: C789                     exg     D3, A1
016E82: B051                     cmp.w   (A1), D0
016E84: C789                     exg     D3, A1
016E86: 669A                     bne     16e22
016E88: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
016E8C: 4E75                     rts
016E8E: 2F02                     move.l  D2, -(A7)
016E90: 302F 000A                move.w  ($a,A7), D0
016E94: 1400                     move.b  D0, D2
016E96: 6024                     bra     16ebc
016E98: 1002                     move.b  D2, D0
016E9A: 4880                     ext.w   D0
016E9C: 48C0                     ext.l   D0
016E9E: 2F00                     move.l  D0, -(A7)
016EA0: 4878 0003                pea     $3.w
016EA4: 4EB9 0000 0224           jsr     $224.l
016EAA: 2040                     movea.l D0, A0
016EAC: 4200                     clr.b   D0
016EAE: 508F                     addq.l  #8, A7
016EB0: 4258                     clr.w   (A0)+
016EB2: 5200                     addq.b  #1, D0
016EB4: 0C00 0024                cmpi.b  #$24, D0
016EB8: 66F6                     bne     16eb0
016EBA: 5202                     addq.b  #1, D2
016EBC: 0C02 001E                cmpi.b  #$1e, D2
016EC0: 66D6                     bne     16e98
016EC2: 241F                     move.l  (A7)+, D2
016EC4: 4E75                     rts
--------------
 Load tilemap
--------------
016EC6: 48E7 2030                movem.l D2/A2-A3, -(A7)
016ECA: 267C 0040 0394           movea.l #$400394, A3
016ED0: 247C 0040 0474           movea.l #$400474, A2
016ED6: 3013                     move.w  (A3), D0      =Level
016ED8: 48C0                     ext.l   D0
016EDA: 2400                     move.l  D0, D2
016EDC: E582                     asl.l   #2, D2
016EDE: 0682 0002 BE00           addi.l  #$2be00, D2
016EE4: 2042                     movea.l D2, A0        Address of current level data pointer
016EE6: 2490                     move.l  (A0), (A2)    400474=address of data (2BEE2 level 1)
016EE8: 3013                     move.w  (A3), D0
016EEA: D040                     add.w   D0, D0
016EEC: 207C 0002 39A0           movea.l #$239a0, A0
016EF2: 33F0 0000 0040 0662      move.w  (A0,D0.w), $400662.l
016EFA: 3039 0040 0662           move.w  $400662.l, D0
016F00: 48C0                     ext.l   D0
016F02: 2F00                     move.l  D0, -(A7)
016F04: 4EB9 0002 FFB8           jsr     $2ffb8.l
016F0A: 3039 0040 0664           move.w  $400664.l, D0
016F10: 48C0                     ext.l   D0
016F12: 2F00                     move.l  D0, -(A7)
016F14: 4EB9 0002 FF28           jsr     $2ff28.l
016F1A: 3013                     move.w  (A3), D0
016F1C: D040                     add.w   D0, D0
016F1E: 207C 0002 39AC           movea.l #$239ac, A0
016F24: 33F0 0000 0040 0664      move.w  (A0,D0.w), $400664.l
016F2C: 4EB9 0001 8FD0           jsr     $18fd0.l             Ram 400478 onwards filled with
                                                              5 x 0080, 7d x 4000, 1e x 0080
016F32: 2052                     movea.l (A2), A0             2BEE2 (again)
016F34: 23E8 0026 0040 065A      move.l  ($26,A0), $40065a.l  40065A = 0008 1874
016F3C: 4EB9 0001 A444           jsr     $1a444.l

016F42: 2052                     movea.l (A2), A0
016F44: 3028 0010                move.w  ($10,A0), D0
016F48: 48C0                     ext.l   D0
016F4A: 23C0 0040 097C           move.l  D0, $40097c.l
016F50: 7004                     moveq   #$4, D0
016F52: B053                     cmp.w   (A3), D0
016F54: 508F                     addq.l  #8, A7
016F56: 660E                     bne     16f66
016F58: 2052                     movea.l (A2), A0
016F5A: 3028 0012                move.w  ($12,A0), D0
016F5E: 48C0                     ext.l   D0
016F60: D1B9 0040 097C           add.l   D0, $40097c.l
016F66: 4CDF 0C04                movem.l (A7)+, D2/A2-A3
016F6A: 4E75                     rts
016F6C: 48E7 3C30                movem.l D2-D5/A2-A3, -(A7)
016F70: 247C 0040 0474           movea.l #$400474, A2
016F76: 3039 0040 0664           move.w  $400664.l, D0
016F7C: 48C0                     ext.l   D0
016F7E: 2F00                     move.l  D0, -(A7)
016F80: 4EB9 0002 FFB8           jsr     $2ffb8.l
016F86: 3039 0040 0662           move.w  $400662.l, D0
016F8C: 48C0                     ext.l   D0
016F8E: 2F00                     move.l  D0, -(A7)
016F90: 4EB9 0002 FF40           jsr     $2ff40.l
016F96: 2052                     movea.l (A2), A0        A0=level data ([400474]=2BEE2 level 1)
016F98: 2668 0004                movea.l ($4,A0), A3     A3=level data offsets
016F9C: 2052                     movea.l (A2), A0        
016F9E: 2A28 002A                move.l  ($2a,A0), D5    D5=2400,2410 table
016FA2: 7620                     moveq   #$20, D3
016FA4: 283C 00A0 0006           move.l  #$a00006, D4    D4=Start address of tilemap
016FAA: 7004                     moveq   #$4, D0
016FAC: B079 0040 0394           cmp.w   $400394.l, D0   Level 4?
016FB2: 508F                     addq.l  #8, A7
016FB4: 662E                     bne     16fe4

016FB6: 2052                     movea.l (A2), A0      Level 4 only
016FB8: 3228 0012                move.w  ($12,A0), D1  Unknown word in level table (0380)
016FBC: E641                     asr.w   #3, D1        =1C00
016FBE: 5341                     subq.w  #1, D1        =1BFF
016FC0: 3001                     move.w  D1, D0
016FC2: 48C0                     ext.l   D0
016FC4: D080                     add.l   D0, D0
016FC6: D7C0                     adda.l  D0, A3
016FC8: 3001                     move.w  D1, D0
016FCA: 48C0                     ext.l   D0
016FCC: DA80                     add.l   D0, D5
016FCE: 5203                     addq.b  #1, D3
016FD0: 0484 0000 0080           subi.l  #$80, D4
016FD6: 0C84 00A0 0000           cmpi.l  #$a00000, D4
016FDC: 6C06                     bge     16fe4
016FDE: 0684 0000 2000           addi.l  #$2000, D4

016FE4: 4202                     clr.b   D2            All levels
016FE6: 6040                     bra     17028


016FE8: 2045                     movea.l D5, A0
016FEA: 5285                     addq.l  #1, D5
016FEC: 7000                     moveq   #$0, D0
016FEE: 1010                     move.b  (A0), D0      D0
016FF0: 0680 0002 BE18           addi.l  #$2be18, D0
016FF6: 2200                     move.l  D0, D1
016FF8: 301B                     move.w  (A3)+, D0
016FFA: 48C0                     ext.l   D0
016FFC: 0680 0008 00E4           addi.l  #$800e4, D0
017002: 2F01                     move.l  D1, -(A7)
017004: 2F00                     move.l  D0, -(A7)
017006: 2F04                     move.l  D4, -(A7)
017008: 4EB9 0001 A668           jsr     $1a668.l          Load line of tilemap
01700E: 0684 0000 0080           addi.l  #$80, D4
017014: 0C84 00A0 1FFF           cmpi.l  #$a01fff, D4
01701A: 4FEF 000C                lea     ($c,A7), A7
01701E: 6F06                     ble     17026
017020: 0484 0000 2000           subi.l  #$2000, D4
017026: 5202                     addq.b  #1, D2
017028: B403                     cmp.b   D3, D2             <entry
01702A: 66BC                     bne     16fe8
01702C: 3039 0040 0662           move.w  $400662.l, D0
017032: 48C0                     ext.l   D0
017034: 2F00                     move.l  D0, -(A7)
017036: 4EB9 0002 FFB8           jsr     $2ffb8.l
01703C: 588F                     addq.l  #4, A7
01703E: 4CDF 0C3C                movem.l (A7)+, D2-D5/A2-A3
017042: 4E75                     rts

017044: 227C 0001 9F04           movea.l #$19f04, A1       Marble Madness Logo
01704A: 207C 00A0 0116           movea.l #$a00116, A0      Called from 115CA  
017050: 4201                     clr.b   D1
017052: 4200                     clr.b   D0
017054: 30D9                     move.w  (A1)+, (A0)+
017056: 5200                     addq.b  #1, D0
017058: 0C00 0014                cmpi.b  #$14, D0          20 characters
01705C: 66F6                     bne     17054
01705E: 7058                     moveq   #$58, D0
017060: D1C0                     adda.l  D0, A0
017062: 5201                     addq.b  #1, D1
017064: 0C01 0006                cmpi.b  #$6, D1           6 rows
017068: 66E8                     bne     17052
01706A: 4E75                     rts

01706C: 4E56 FFFC                link    A6, #-$4
017070: 48E7 3E38                movem.l D2-D6/A2-A4, -(A7)
017074: 226E 0008                movea.l ($8,A6), A1
017078: 267C 0002 3D40           movea.l #$23d40, A3
01707E: 247C 0040 066A           movea.l #$40066a, A2
017084: 2A11                     move.l  (A1), D5
017086: 2C29 0004                move.l  ($4,A1), D6
01708A: 1639 0040 069F           move.b  $40069f.l, D3
017090: 7407                     moveq   #$7, D2
017092: 9439 0040 06A1           sub.b   $4006a1.l, D2
017098: 7207                     moveq   #$7, D1
01709A: 9239 0040 069F           sub.b   $40069f.l, D1
0170A0: 1839 0040 06A1           move.b  $4006a1.l, D4
0170A6: 1003                     move.b  D3, D0
0170A8: 4880                     ext.w   D0
0170AA: D040                     add.w   D0, D0
0170AC: 204B                     movea.l A3, A0
0170AE: 3D70 0000 FFFC           move.w  (A0,D0.w), (-$4,A6)
0170B4: 1002                     move.b  D2, D0
0170B6: 4880                     ext.w   D0
0170B8: D040                     add.w   D0, D0
0170BA: 204B                     movea.l A3, A0
0170BC: 3030 0000                move.w  (A0,D0.w), D0
0170C0: 48C0                     ext.l   D0
0170C2: 4480                     neg.l   D0
0170C4: 3D40 FFFE                move.w  D0, (-$2,A6)
0170C8: 1001                     move.b  D1, D0
0170CA: 4880                     ext.w   D0
0170CC: D040                     add.w   D0, D0
0170CE: 204B                     movea.l A3, A0
0170D0: 3030 0000                move.w  (A0,D0.w), D0
0170D4: 48C0                     ext.l   D0
0170D6: 4480                     neg.l   D0
0170D8: 3840                     movea.w D0, A4
0170DA: 1004                     move.b  D4, D0
0170DC: 4880                     ext.w   D0
0170DE: D040                     add.w   D0, D0
0170E0: 204B                     movea.l A3, A0
0170E2: 3070 0000                movea.w (A0,D0.w), A0
0170E6: 4A39 0040 066C           tst.b   $40066c.l
0170EC: 6720                     beq     1710e
0170EE: 0C39 0003 0040 066C      cmpi.b  #$3, $40066c.l
0170F6: 6C16                     bge     1710e
0170F8: 0C03 0004                cmpi.b  #$4, D3
0170FC: 6C10                     bge     1710e
0170FE: 4A79 0040 0674           tst.w   $400674.l
017104: 6F08                     ble     1710e
017106: 302E FFFC                move.w  (-$4,A6), D0
01710A: 48C0                     ext.l   D0
01710C: DA80                     add.l   D0, D5
01710E: 4A39 0040 066E           tst.b   $40066e.l
017114: 6720                     beq     17136
017116: 0C39 0003 0040 066E      cmpi.b  #$3, $40066e.l
01711E: 6C16                     bge     17136
017120: 0C02 0004                cmpi.b  #$4, D2
017124: 6C10                     bge     17136
017126: 4A79 0040 0676           tst.w   $400676.l
01712C: 6F08                     ble     17136
01712E: 302E FFFE                move.w  (-$2,A6), D0
017132: 48C0                     ext.l   D0
017134: DC80                     add.l   D0, D6
017136: 4A39 0040 0670           tst.b   $400670.l
01713C: 671E                     beq     1715c
01713E: 0C39 0003 0040 0670      cmpi.b  #$3, $400670.l
017146: 6C14                     bge     1715c
017148: 0C01 0004                cmpi.b  #$4, D1
01714C: 6C0E                     bge     1715c
01714E: 4A79 0040 0678           tst.w   $400678.l
017154: 6F06                     ble     1715c
017156: 300C                     move.w  A4, D0
017158: 48C0                     ext.l   D0
01715A: DA80                     add.l   D0, D5
01715C: 4A39 0040 0672           tst.b   $400672.l
017162: 671E                     beq     17182
017164: 0C39 0003 0040 0672      cmpi.b  #$3, $400672.l
01716C: 6C14                     bge     17182
01716E: 0C04 0004                cmpi.b  #$4, D4
017172: 6C0E                     bge     17182
017174: 4A79 0040 067A           tst.w   $40067a.l
01717A: 6F06                     ble     17182
01717C: 3008                     move.w  A0, D0
01717E: 48C0                     ext.l   D0
017180: DC80                     add.l   D0, D6
017182: 0812 0000                btst    #$0, (A2)
017186: 6724                     beq     171ac
017188: 0C03 0004                cmpi.b  #$4, D3
01718C: 6C1E                     bge     171ac
01718E: 0C02 0004                cmpi.b  #$4, D2
017192: 6C18                     bge     171ac
017194: 4A79 0040 0674           tst.w   $400674.l
01719A: 6F10                     ble     171ac
01719C: 302E FFFC                move.w  (-$4,A6), D0
0171A0: 48C0                     ext.l   D0
0171A2: DA80                     add.l   D0, D5
0171A4: 302E FFFE                move.w  (-$2,A6), D0
0171A8: 48C0                     ext.l   D0
0171AA: DC80                     add.l   D0, D6
0171AC: 0812 0001                btst    #$1, (A2)
0171B0: 6722                     beq     171d4
0171B2: 0C02 0004                cmpi.b  #$4, D2
0171B6: 6C1C                     bge     171d4
0171B8: 0C01 0004                cmpi.b  #$4, D1
0171BC: 6C16                     bge     171d4
0171BE: 4A79 0040 0676           tst.w   $400676.l
0171C4: 6F0E                     ble     171d4
0171C6: 302E FFFE                move.w  (-$2,A6), D0
0171CA: 48C0                     ext.l   D0
0171CC: DC80                     add.l   D0, D6
0171CE: 300C                     move.w  A4, D0
0171D0: 48C0                     ext.l   D0
0171D2: DA80                     add.l   D0, D5
0171D4: 0812 0002                btst    #$2, (A2)
0171D8: 6720                     beq     171fa
0171DA: 0C01 0004                cmpi.b  #$4, D1
0171DE: 6C1A                     bge     171fa
0171E0: 0C04 0004                cmpi.b  #$4, D4
0171E4: 6C14                     bge     171fa
0171E6: 4A79 0040 0678           tst.w   $400678.l
0171EC: 6F0C                     ble     171fa
0171EE: 300C                     move.w  A4, D0
0171F0: 48C0                     ext.l   D0
0171F2: DA80                     add.l   D0, D5
0171F4: 3008                     move.w  A0, D0
0171F6: 48C0                     ext.l   D0
0171F8: DC80                     add.l   D0, D6
0171FA: 0812 0003                btst    #$3, (A2)
0171FE: 6722                     beq     17222
017200: 0C04 0004                cmpi.b  #$4, D4
017204: 6C1C                     bge     17222
017206: 0C03 0004                cmpi.b  #$4, D3
01720A: 6C16                     bge     17222
01720C: 4A79 0040 067A           tst.w   $40067a.l
017212: 6F0E                     ble     17222
017214: 3008                     move.w  A0, D0
017216: 48C0                     ext.l   D0
017218: DC80                     add.l   D0, D6
01721A: 302E FFFC                move.w  (-$4,A6), D0
01721E: 48C0                     ext.l   D0
017220: DA80                     add.l   D0, D5
017222: 2285                     move.l  D5, (A1)
017224: 2346 0004                move.l  D6, ($4,A1)
017228: 4CDF 1C7C                movem.l (A7)+, D2-D6/A2-A4
01722C: 4E5E                     unlk    A6
01722E: 4E75                     rts
017230: 48E7 3000                movem.l D2-D3, -(A7)
017234: 263C 0040 1482           move.l  #$401482, D3
01723A: 4202                     clr.b   D2
01723C: 2203                     move.l  D3, D1
01723E: 7042                     moveq   #$42, D0
017240: D680                     add.l   D0, D3
017242: 2F01                     move.l  D1, -(A7)
017244: 4EB9 0001 725A           jsr     $1725a.l
01724A: 588F                     addq.l  #4, A7
01724C: 5202                     addq.b  #1, D2
01724E: 0C02 0007                cmpi.b  #$7, D2
017252: 66E8                     bne     1723c
017254: 4CDF 000C                movem.l (A7)+, D2-D3
017258: 4E75                     rts
01725A: 2F0A                     move.l  A2, -(A7)
01725C: 246F 0008                movea.l ($8,A7), A2
017260: 4A2A 0018                tst.b   ($18,A2)
017264: 6700 0058                beq     172be
017268: 522A 0024                addq.b  #1, ($24,A2)
01726C: 102A 0025                move.b  ($25,A2), D0
017270: B02A 0024                cmp.b   ($24,A2), D0
017274: 6E3E                     bgt     172b4
017276: 422A 0024                clr.b   ($24,A2)
01727A: 0C2A 0002 0025           cmpi.b  #$2, ($25,A2)
017280: 6F06                     ble     17288
017282: 157C 0001 0025           move.b  #$1, ($25,A2)
017288: 58AA 003A                addq.l  #4, ($3a,A2)
01728C: 206A 003A                movea.l ($3a,A2), A0
017290: 70FF                     moveq   #-$1, D0
017292: B090                     cmp.l   (A0), D0
017294: 661E                     bne     172b4
017296: 256A 003E 003A           move.l  ($3e,A2), ($3a,A2)
01729C: 2012                     move.l  (A2), D0
01729E: D1AA 000C                add.l   D0, ($c,A2)
0172A2: 202A 0004                move.l  ($4,A2), D0
0172A6: D1AA 0010                add.l   D0, ($10,A2)
0172AA: 2F0A                     move.l  A2, -(A7)
0172AC: 4EB9 0001 D1EC           jsr     $1d1ec.l
0172B2: 588F                     addq.l  #4, A7
0172B4: 2F0A                     move.l  A2, -(A7)
0172B6: 4EB9 0001 778E           jsr     $1778e.l
0172BC: 588F                     addq.l  #4, A7
0172BE: 245F                     movea.l (A7)+, A2
0172C0: 4E75                     rts
0172C2: 48E7 3000                movem.l D2-D3, -(A7)
0172C6: 76FF                     moveq   #-$1, D3
0172C8: 4202                     clr.b   D2
0172CA: 1002                     move.b  D2, D0
0172CC: 4880                     ext.w   D0
0172CE: 48C0                     ext.l   D0
0172D0: D080                     add.l   D0, D0
0172D2: 2200                     move.l  D0, D1
0172D4: EB80                     asl.l   #5, D0
0172D6: D081                     add.l   D1, D0
0172D8: 207C 0040 1482           movea.l #$401482, A0
0172DE: 4A30 0818                tst.b   ($18,A0,D0.l)
0172E2: 6618                     bne     172fc
0172E4: 1002                     move.b  D2, D0
0172E6: 4880                     ext.w   D0
0172E8: 48C0                     ext.l   D0
0172EA: D080                     add.l   D0, D0
0172EC: 2200                     move.l  D0, D1
0172EE: EB80                     asl.l   #5, D0
0172F0: D081                     add.l   D1, D0
0172F2: 207C 0040 1482           movea.l #$401482, A0
0172F8: D1C0                     adda.l  D0, A0
0172FA: 2608                     move.l  A0, D3
0172FC: 5202                     addq.b  #1, D2
0172FE: 0C02 0007                cmpi.b  #$7, D2
017302: 66C6                     bne     172ca
017304: 2003                     move.l  D3, D0
017306: 4CDF 000C                movem.l (A7)+, D2-D3
01730A: 4E75                     rts
01730C: 2F02                     move.l  D2, -(A7)
01730E: 206F 0008                movea.l ($8,A7), A0
017312: 4202                     clr.b   D2
017314: 227C 0040 1482           movea.l #$401482, A1
01731A: 4201                     clr.b   D1
01731C: 4A29 0018                tst.b   ($18,A1)
017320: 670E                     beq     17330
017322: 2028 0002                move.l  ($2,A0), D0
017326: B0A9 0030                cmp.l   ($30,A1), D0
01732A: 6604                     bne     17330
01732C: 7401                     moveq   #$1, D2
01732E: 600C                     bra     1733c
017330: 7042                     moveq   #$42, D0
017332: D3C0                     adda.l  D0, A1
017334: 5201                     addq.b  #1, D1
017336: 0C01 0007                cmpi.b  #$7, D1
01733A: 66E0                     bne     1731c
01733C: 1002                     move.b  D2, D0
01733E: 4880                     ext.w   D0
017340: 48C0                     ext.l   D0
017342: 241F                     move.l  (A7)+, D2
017344: 4E75                     rts

017346: 48E7 3E38                movem.l D2-D6/A2-A4, -(A7)      Acid
01734A: 142F 0027                move.b  ($27,A7), D2
01734E: 162F 002B                move.b  ($2b,A7), D3
017352: 3039 0040 0394           move.w  $400394.l, D0
017358: E540                     asl.w   #2, D0
01735A: 207C 0002 3D4A           movea.l #$23d4a, A0
017360: 2670 0000                movea.l (A0,D0.w), A3
017364: 0C13 00FF                cmpi.b  #-$1, (A3)
017368: 6700 01F8                beq     17562
01736C: 2F0B                     move.l  A3, -(A7)
01736E: 4EB9 0001 730C           jsr     $1730c.l
017374: 4A80                     tst.l   D0
017376: 588F                     addq.l  #4, A7
017378: 6600 01E2                bne     1755c
01737C: B613                     cmp.b   (A3), D3
01737E: 6708                     beq     17388
017380: B62B 0001                cmp.b   ($1,A3), D3
017384: 6600 01D6                bne     1755c
017388: B413                     cmp.b   (A3), D2
01738A: 6D00 000A                blt     17396
01738E: B42B 0001                cmp.b   ($1,A3), D2
017392: 6F00 01C8                ble     1755c
017396: 4AAB 0002                tst.l   ($2,A3)
01739A: 6600 0110                bne     174ac
01739E: 0C2B 0005 0006           cmpi.b  #$5, ($6,A3)
0173A4: 6604                     bne     173aa
0173A6: 7A01                     moveq   #$1, D5
0173A8: 6002                     bra     173ac
0173AA: 7A06                     moveq   #$6, D5
0173AC: 4878 0002                pea     $2.w
0173B0: 4EB9 0001 3A98           jsr     $13a98.l
0173B6: 4A80                     tst.l   D0
0173B8: 588F                     addq.l  #4, A7
0173BA: 6618                     bne     173d4

0173BC: 0C2B 0005 0006           cmpi.b  #$5, ($6,A3)  05?  Yes, d0=23d62, no d0=23d6a
0173C2: 6608                     bne     173cc
0173C4: 203C 0002 3D62           move.l  #$23d62, D0
0173CA: 6006                     bra     173d2
0173CC: 203C 0002 3D6A           move.l  #$23d6a, D0
0173D2: 6016                     bra     173ea

0173D4: 0C2B 0005 0006           cmpi.b  #$5, ($6,A3)  05? Yes, D0=23d66, no, D0=23d82
0173DA: 6608                     bne     173e4
0173DC: 203C 0002 3D66           move.l  #$23d66, D0
0173E2: 6006                     bra     173ea
0173E4: 203C 0002 3D82           move.l  #$23d82, D0

0173EA: 2840                     movea.l D0, A4
0173EC: 4204                     clr.b   D4
0173EE: 6000 00B2                bra     174a2
0173F2: 4EB9 0001 72C2           jsr     $172c2.l
0173F8: 2200                     move.l  D0, D1
0173FA: 2441                     movea.l D1, A2
0173FC: 70FF                     moveq   #-$1, D0
0173FE: B081                     cmp.l   D1, D0
017400: 6700 0160                beq     17562
017404: 201C                     move.l  (A4)+, D0
017406: 2040                     movea.l D0, A0
017408: 2540 002C                move.l  D0, ($2c,A2)
01740C: 2540 0030                move.l  D0, ($30,A2)
017410: 156B 0006 001B           move.b  ($6,A3), ($1b,A2)
017416: 1013                     move.b  (A3), D0
017418: 4880                     ext.w   D0
01741A: 3540 0034                move.w  D0, ($34,A2)
01741E: 102B 0001                move.b  ($1,A3), D0
017422: 4880                     ext.w   D0
017424: 3540 0036                move.w  D0, ($36,A2)
017428: 1010                     move.b  (A0), D0
01742A: 4880                     ext.w   D0
01742C: 1C28 0001                move.b  ($1,A0), D6
017430: 4886                     ext.w   D6
017432: 48C0                     ext.l   D0
017434: 2200                     move.l  D0, D1
017436: 7013                     moveq   #$13, D0
017438: E1A1                     asl.l   D0, D1
01743A: 2541 000C                move.l  D1, ($c,A2)
01743E: 3006                     move.w  D6, D0
017440: 48C0                     ext.l   D0
017442: 2200                     move.l  D0, D1
017444: 7013                     moveq   #$13, D0
017446: E1A1                     asl.l   D0, D1
017448: 2541 0010                move.l  D1, ($10,A2)
01744C: 2F0A                     move.l  A2, -(A7)
01744E: 4EB9 0001 BB08           jsr     $1bb08.l
017454: 4878 0001                pea     $1.w
017458: 4EB9 0001 CC62           jsr     $1cc62.l
01745E: 2540 0014                move.l  D0, ($14,A2)
017462: 7200                     moveq   #$0, D1
017464: 2541 0004                move.l  D1, ($4,A2)
017468: 2481                     move.l  D1, (A2)
01746A: 157C 0001 0018           move.b  #$1, ($18,A2)
017470: 422A 001A                clr.b   ($1a,A2)
017474: 42AA 0028                clr.l   ($28,A2)
017478: 2F0A                     move.l  A2, -(A7)
01747A: 4EB9 0001 D1EC           jsr     $1d1ec.l
017480: 2F0A                     move.l  A2, -(A7)
017482: 4EB9 0001 778E           jsr     $1778e.l
017488: 102A 0019                move.b  ($19,A2), D0
01748C: 4880                     ext.w   D0
01748E: 48C0                     ext.l   D0
017490: 2F00                     move.l  D0, -(A7)
017492: 4878 000E                pea     $e.w
017496: 4EB9 0001 8E6C           jsr     $18e6c.l
01749C: 4FEF 0018                lea     ($18,A7), A7
0174A0: 5204                     addq.b  #1, D4
0174A2: B805                     cmp.b   D5, D4
0174A4: 6700 00B6                beq     1755c
0174A8: 6000 FF48                bra     173f2
0174AC: 4EB9 0001 72C2           jsr     $172c2.l
0174B2: 2200                     move.l  D0, D1
0174B4: 2441                     movea.l D1, A2
0174B6: 70FF                     moveq   #-$1, D0
0174B8: B081                     cmp.l   D1, D0
0174BA: 6700 00A6                beq     17562
0174BE: 202B 0002                move.l  ($2,A3), D0
0174C2: 2040                     movea.l D0, A0
0174C4: 2540 002C                move.l  D0, ($2c,A2)
0174C8: 2540 0030                move.l  D0, ($30,A2)
0174CC: 156B 0006 001B           move.b  ($6,A3), ($1b,A2)
0174D2: 1013                     move.b  (A3), D0
0174D4: 4880                     ext.w   D0
0174D6: 3540 0034                move.w  D0, ($34,A2)
0174DA: 102B 0001                move.b  ($1,A3), D0
0174DE: 4880                     ext.w   D0
0174E0: 3540 0036                move.w  D0, ($36,A2)
0174E4: 1010                     move.b  (A0), D0
0174E6: 4880                     ext.w   D0
0174E8: 1C28 0001                move.b  ($1,A0), D6
0174EC: 4886                     ext.w   D6
0174EE: 48C0                     ext.l   D0
0174F0: 2200                     move.l  D0, D1
0174F2: 7013                     moveq   #$13, D0
0174F4: E1A1                     asl.l   D0, D1
0174F6: 2541 000C                move.l  D1, ($c,A2)
0174FA: 3006                     move.w  D6, D0
0174FC: 48C0                     ext.l   D0
0174FE: 2200                     move.l  D0, D1
017500: 7013                     moveq   #$13, D0
017502: E1A1                     asl.l   D0, D1
017504: 2541 0010                move.l  D1, ($10,A2)
017508: 2F0A                     move.l  A2, -(A7)
01750A: 4EB9 0001 BB08           jsr     $1bb08.l
017510: 4878 0001                pea     $1.w
017514: 4EB9 0001 CC62           jsr     $1cc62.l
01751A: 2540 0014                move.l  D0, ($14,A2)
01751E: 7200                     moveq   #$0, D1
017520: 2541 0004                move.l  D1, ($4,A2)
017524: 2481                     move.l  D1, (A2)
017526: 157C 0001 0018           move.b  #$1, ($18,A2)
01752C: 422A 001A                clr.b   ($1a,A2)
017530: 42AA 0028                clr.l   ($28,A2)
017534: 2F0A                     move.l  A2, -(A7)
017536: 4EB9 0001 D1EC           jsr     $1d1ec.l
01753C: 2F0A                     move.l  A2, -(A7)
01753E: 4EB9 0001 778E           jsr     $1778e.l
017544: 102A 0019                move.b  ($19,A2), D0
017548: 4880                     ext.w   D0
01754A: 48C0                     ext.l   D0
01754C: 2F00                     move.l  D0, -(A7)
01754E: 4878 000E                pea     $e.w
017552: 4EB9 0001 8E6C           jsr     $18e6c.l
017558: 4FEF 0018                lea     ($18,A7), A7
01755C: 508B                     addq.l  #8, A3
01755E: 6000 FE04                bra     17364
017562: 247C 0040 1482           movea.l #$401482, A2
017568: 4204                     clr.b   D4
01756A: 4A2A 0018                tst.b   ($18,A2)
01756E: 6700 0046                beq     175b6
017572: 1002                     move.b  D2, D0
017574: 4880                     ext.w   D0
017576: B06A 0034                cmp.w   ($34,A2), D0
01757A: 660C                     bne     17588
01757C: 1003                     move.b  D3, D0
01757E: 4880                     ext.w   D0
017580: B06A 0034                cmp.w   ($34,A2), D0
017584: 6D00 0016                blt     1759c
017588: 1002                     move.b  D2, D0
01758A: 4880                     ext.w   D0
01758C: B06A 0036                cmp.w   ($36,A2), D0
017590: 6624                     bne     175b6
017592: 1003                     move.b  D3, D0
017594: 4880                     ext.w   D0
017596: B06A 0036                cmp.w   ($36,A2), D0
01759A: 6F1A                     ble     175b6
01759C: 422A 0018                clr.b   ($18,A2)
0175A0: 102A 0019                move.b  ($19,A2), D0
0175A4: 4880                     ext.w   D0
0175A6: 48C0                     ext.l   D0
0175A8: 2F00                     move.l  D0, -(A7)
0175AA: 4878 000E                pea     $e.w
0175AE: 4EB9 0001 8F46           jsr     $18f46.l
0175B4: 508F                     addq.l  #8, A7
0175B6: 7242                     moveq   #$42, D1
0175B8: D5C1                     adda.l  D1, A2
0175BA: 5204                     addq.b  #1, D4
0175BC: 0C04 0007                cmpi.b  #$7, D4
0175C0: 66A8                     bne     1756a
0175C2: 4CDF 1C7C                movem.l (A7)+, D2-D6/A2-A4
0175C6: 4E75                     rts
0175C8: 4E56 FFFE                link    A6, #-$2
0175CC: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
0175D0: 246E 0008                movea.l ($8,A6), A2
0175D4: 7002                     moveq   #$2, D0
0175D6: B079 0040 0394           cmp.w   $400394.l, D0
0175DC: 6710                     beq     175ee
0175DE: 7005                     moveq   #$5, D0
0175E0: B079 0040 0394           cmp.w   $400394.l, D0
0175E6: 6706                     beq     175ee
0175E8: 7000                     moveq   #$0, D0
0175EA: 6000 00DE                bra     176ca
0175EE: 3C39 0040 0690           move.w  $400690.l, D6
0175F4: 5746                     subq.w  #3, D6
0175F6: 3846                     movea.w D6, A4
0175F8: 5C4C                     addq.w  #6, A4
0175FA: 3279 0040 0692           movea.w $400692.l, A1
017600: 5749                     subq.w  #3, A1
017602: 3D49 FFFE                move.w  A1, (-$2,A6)
017606: 5C6E FFFE                addq.w  #6, (-$2,A6)
01760A: 267C 0040 1482           movea.l #$401482, A3
017610: 4201                     clr.b   D1
017612: 4A2B 0018                tst.b   ($18,A3)
017616: 6700 009E                beq     176b6
01761A: 206B 003A                movea.l ($3a,A3), A0
01761E: 2050                     movea.l (A0), A0
017620: 70FF                     moveq   #-$1, D0
017622: B088                     cmp.l   A0, D0
017624: 660A                     bne     17630
017626: 74FE                     moveq   #-$2, D2
017628: 3602                     move.w  D2, D3
01762A: 700C                     moveq   #$c, D0
01762C: 3800                     move.w  D0, D4
01762E: 6018                     bra     17648
017630: 1428 0004                move.b  ($4,A0), D2
017634: 4882                     ext.w   D2
017636: 1628 0005                move.b  ($5,A0), D3
01763A: 4883                     ext.w   D3
01763C: 1028 0006                move.b  ($6,A0), D0
017640: 4880                     ext.w   D0
017642: 1828 0007                move.b  ($7,A0), D4
017646: 4884                     ext.w   D4
017648: 41EB 000C                lea     ($c,A3), A0
01764C: 3A10                     move.w  (A0), D5
01764E: DA42                     add.w   D2, D5
017650: 3400                     move.w  D0, D2
017652: D445                     add.w   D5, D2
017654: 41EB 0010                lea     ($10,A3), A0
017658: 3010                     move.w  (A0), D0
01765A: D043                     add.w   D3, D0
01765C: 3604                     move.w  D4, D3
01765E: D640                     add.w   D0, D3
017660: BA46                     cmp.w   D6, D5
017662: 6E06                     bgt     1766a
017664: BC42                     cmp.w   D2, D6
017666: 6F00 000A                ble     17672
01766A: BA4C                     cmp.w   A4, D5
01766C: 6E48                     bgt     176b6
01766E: B8C2                     cmpa.w  D2, A4
017670: 6E44                     bgt     176b6
017672: B049                     cmp.w   A1, D0
017674: 6E06                     bgt     1767c
017676: B2C3                     cmpa.w  D3, A1
017678: 6F00 0010                ble     1768a
01767C: B06E FFFE                cmp.w   (-$2,A6), D0
017680: 6E34                     bgt     176b6
017682: 3E2E FFFE                move.w  (-$2,A6), D7
017686: BE43                     cmp.w   D3, D7
017688: 6E2C                     bgt     176b6
01768A: 7401                     moveq   #$1, D2
01768C: 4878 0009                pea     $9.w
017690: 2F0A                     move.l  A2, -(A7)
017692: 4EB9 0002 5BAE           jsr     $25bae.l
017698: 4879 0000 005E           pea     $5e.l
01769E: 4EB9 0001 58AC           jsr     $158ac.l
0176A4: 156B 0019 0058           move.b  ($19,A3), ($58,A2)
0176AA: 177C 001C 0025           move.b  #$1c, ($25,A3)
0176B0: 4FEF 000C                lea     ($c,A7), A7
0176B4: 600E                     bra     176c4
0176B6: 7042                     moveq   #$42, D0
0176B8: D7C0                     adda.l  D0, A3
0176BA: 5201                     addq.b  #1, D1
0176BC: 0C01 0007                cmpi.b  #$7, D1
0176C0: 6600 FF50                bne     17612
0176C4: 1002                     move.b  D2, D0
0176C6: 4880                     ext.w   D0
0176C8: 48C0                     ext.l   D0
0176CA: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
0176CE: 4E5E                     unlk    A6
0176D0: 4E75                     rts
0176D2: 48E7 3C20                movem.l D2-D5/A2, -(A7)
0176D6: 226F 0018                movea.l ($18,A7), A1
0176DA: 1029 0058                move.b  ($58,A1), D0
0176DE: 4880                     ext.w   D0
0176E0: 48C0                     ext.l   D0
0176E2: D080                     add.l   D0, D0
0176E4: 2200                     move.l  D0, D1
0176E6: EB80                     asl.l   #5, D0
0176E8: D081                     add.l   D1, D0
0176EA: 207C 0040 1482           movea.l #$401482, A0
0176F0: D1C0                     adda.l  D0, A0
0176F2: 2448                     movea.l A0, A2
0176F4: 206A 003A                movea.l ($3a,A2), A0
0176F8: 2050                     movea.l (A0), A0
0176FA: 70FF                     moveq   #-$1, D0
0176FC: B088                     cmp.l   A0, D0
0176FE: 660A                     bne     1770a
017700: 72FE                     moveq   #-$2, D1
017702: 3801                     move.w  D1, D4
017704: 700C                     moveq   #$c, D0
017706: 3400                     move.w  D0, D2
017708: 6018                     bra     17722
01770A: 1228 0004                move.b  ($4,A0), D1
01770E: 4881                     ext.w   D1
017710: 1828 0005                move.b  ($5,A0), D4
017714: 4884                     ext.w   D4
017716: 1028 0006                move.b  ($6,A0), D0
01771A: 4880                     ext.w   D0
01771C: 1428 0007                move.b  ($7,A0), D2
017720: 4882                     ext.w   D2
017722: 3600                     move.w  D0, D3
017724: E243                     asr.w   #1, D3
017726: D641                     add.w   D1, D3
017728: 41EA 000C                lea     ($c,A2), A0
01772C: D650                     add.w   (A0), D3
01772E: 3202                     move.w  D2, D1
017730: E241                     asr.w   #1, D1
017732: D244                     add.w   D4, D1
017734: 41EA 0010                lea     ($10,A2), A0
017738: D250                     add.w   (A0), D1
01773A: 41E9 000C                lea     ($c,A1), A0
01773E: 3A10                     move.w  (A0), D5
017740: 41E9 0010                lea     ($10,A1), A0
017744: 3810                     move.w  (A0), D4
017746: 4240                     clr.w   D0
017748: 3400                     move.w  D0, D2
01774A: BA43                     cmp.w   D3, D5
01774C: 6F04                     ble     17752
01774E: 70FF                     moveq   #-$1, D0
017750: 6006                     bra     17758
017752: BA43                     cmp.w   D3, D5
017754: 6C02                     bge     17758
017756: 7001                     moveq   #$1, D0
017758: B841                     cmp.w   D1, D4
01775A: 6F04                     ble     17760
01775C: 74FF                     moveq   #-$1, D2
01775E: 6006                     bra     17766
017760: B841                     cmp.w   D1, D4
017762: 6C02                     bge     17766
017764: 7401                     moveq   #$1, D2
017766: 48C0                     ext.l   D0
017768: 3205                     move.w  D5, D1
01776A: 48C1                     ext.l   D1
01776C: D081                     add.l   D1, D0
01776E: 7210                     moveq   #$10, D1
017770: E3A0                     asl.l   D1, D0
017772: 2340 000C                move.l  D0, ($c,A1)
017776: 3002                     move.w  D2, D0
017778: 48C0                     ext.l   D0
01777A: 3204                     move.w  D4, D1
01777C: 48C1                     ext.l   D1
01777E: D081                     add.l   D1, D0
017780: 7210                     moveq   #$10, D1
017782: E3A0                     asl.l   D1, D0
017784: 2340 0010                move.l  D0, ($10,A1)
017788: 4CDF 043C                movem.l (A7)+, D2-D5/A2
01778C: 4E75                     rts
01778E: 48E7 3030                movem.l D2-D3/A2-A3, -(A7)
017792: 226F 0014                movea.l ($14,A7), A1
017796: 267C 0040 0692           movea.l #$400692, A3
01779C: 247C 0040 0690           movea.l #$400690, A2
0177A2: 41E9 000C                lea     ($c,A1), A0
0177A6: 3490                     move.w  (A0), (A2)
0177A8: 41E9 0010                lea     ($10,A1), A0
0177AC: 3690                     move.w  (A0), (A3)
0177AE: 3613                     move.w  (A3), D3
0177B0: 9652                     sub.w   (A2), D3
0177B2: 0643 0088                addi.w  #$88, D3
0177B6: 41E9 0014                lea     ($14,A1), A0
0177BA: 3010                     move.w  (A0), D0
0177BC: 3439 0040 097E           move.w  $40097e.l, D2
0177C2: D440                     add.w   D0, D2
0177C4: 0642 0054                addi.w  #$54, D2
0177C8: 3013                     move.w  (A3), D0
0177CA: 48C0                     ext.l   D0
0177CC: 3212                     move.w  (A2), D1
0177CE: 48C1                     ext.l   D1
0177D0: D081                     add.l   D1, D0
0177D2: E280                     asr.l   #1, D0
0177D4: 9440                     sub.w   D0, D2
0177D6: 3002                     move.w  D2, D0
0177D8: 48C0                     ext.l   D0
0177DA: 2400                     move.l  D0, D2
0177DC: 0282 0000 FFFF           andi.l  #$ffff, D2
0177E2: 3003                     move.w  D3, D0
0177E4: 48C0                     ext.l   D0
0177E6: 2200                     move.l  D0, D1
0177E8: 7010                     moveq   #$10, D0
0177EA: E1A1                     asl.l   D0, D1
0177EC: D481                     add.l   D1, D2
0177EE: 2342 0028                move.l  D2, ($28,A1)
0177F2: 4CDF 0C0C                movem.l (A7)+, D2-D3/A2-A3
0177F6: 4E75                     rts
0177F8: 48E7 3030                movem.l D2-D3/A2-A3, -(A7)
0177FC: 342F 0016                move.w  ($16,A7), D2
017800: 2079 0040 0474           movea.l $400474.l, A0
017806: B468 0018                cmp.w   ($18,A0), D2
01780A: 6D06                     blt     17812
01780C: 7000                     moveq   #$0, D0
01780E: 6000 011E                bra     1792e
017812: 362F 001E                move.w  ($1e,A7), D3
017816: 48C3                     ext.l   D3
017818: D6B9 0040 0988           add.l   $400988.l, D3
01781E: 302F 001A                move.w  ($1a,A7), D0
017822: D079 0040 098A           add.w   $40098a.l, D0
017828: E240                     asr.w   #1, D0
01782A: 5440                     addq.w  #2, D0
01782C: 7200                     moveq   #$0, D1
01782E: 1202                     move.b  D2, D1
017830: 0881 0000                bclr    #$0, D1
017834: 6704                     beq     1783a
017836: 0640 0016                addi.w  #$16, D0
01783A: 45F9 0001 EB3A           lea     $1eb3a.l, A2
017840: 227C 00A0 0000           movea.l #$a00000, A1
017846: D2F2 1000                adda.w  (A2,D1.w), A1
01784A: 45F9 0001 ED0A           lea     $1ed0a.l, A2
017850: 1232 0000                move.b  (A2,D0.w), D1
017854: 5581                     subq.l  #2, D1
017856: D3C1                     adda.l  D1, A1
017858: 2211                     move.l  (A1), D1
01785A: 1032 002C                move.b  ($2c,A2,D0.w), D0
01785E: E0A9                     lsr.l   D0, D1
017860: 0241 07FE                andi.w  #$7fe, D1
017864: 2479 0040 065A           movea.l $40065a.l, A2
01786A: 3032 1000                move.w  (A2,D1.w), D0
01786E: 3200                     move.w  D0, D1
017870: 0241 F000                andi.w  #$f000, D1
017874: 6600 0062                bne     178d8
017878: 3200                     move.w  D0, D1
01787A: 0241 0FFF                andi.w  #$fff, D1
01787E: 678C                     beq     1780c
017880: 0241 0800                andi.w  #$800, D1
017884: 6700 0014                beq     1789a
017888: 0240 07FE                andi.w  #$7fe, D0
01788C: 48C0                     ext.l   D0
01788E: 2240                     movea.l D0, A1
017890: D3FC 0040 076E           adda.l  #$40076e, A1
017896: 3011                     move.w  (A1), D0
017898: 60D4                     bra     1786e
01789A: 48C0                     ext.l   D0
01789C: 2250                     movea.l (A0), A1
01789E: D3C0                     adda.l  D0, A1
0178A0: 247C 0002 417E           movea.l #$2417e, A2
0178A6: E783                     asl.l   #3, D3
0178A8: D5C3                     adda.l  D3, A2
0178AA: 2649                     movea.l A1, A3
0178AC: D7D2                     adda.l  (A2), A3
0178AE: 1013                     move.b  (A3), D0
0178B0: 45EA 0004                lea     ($4,A2), A2
0178B4: D3D2                     adda.l  (A2), A1
0178B6: 1211                     move.b  (A1), D1
0178B8: B001                     cmp.b   D1, D0
0178BA: 6402                     bcc     178be
0178BC: 1001                     move.b  D1, D0
0178BE: 0240 00FF                andi.w  #$ff, D0
0178C2: 6700 FF48                beq     1780c
0178C6: 0440 0080                subi.w  #$80, D0
0178CA: D442                     add.w   D2, D2
0178CC: 43F9 0040 0478           lea     $400478.l, A1
0178D2: D071 2000                add.w   (A1,D2.w), D0
0178D6: 6056                     bra     1792e
0178D8: 227C 0002 4176           movea.l #$24176, A1
0178DE: D643                     add.w   D3, D3
0178E0: C271 3000                and.w   (A1,D3.w), D1
0178E4: 6700 0018                beq     178fe
0178E8: 0240 007F                andi.w  #$7f, D0
0178EC: 0440 0040                subi.w  #$40, D0
0178F0: D442                     add.w   D2, D2
0178F2: 43F9 0040 0478           lea     $400478.l, A1
0178F8: D071 2000                add.w   (A1,D2.w), D0
0178FC: 6030                     bra     1792e
0178FE: 3200                     move.w  D0, D1
017900: 0241 0F80                andi.w  #$f80, D1
017904: EC41                     asr.w   #6, D1
017906: 227C 0001 ED62           movea.l #$1ed62, A1
01790C: 3231 1000                move.w  (A1,D1.w), D1
017910: 0C41 1000                cmpi.w  #$1000, D1
017914: 6700 FEF6                beq     1780c
017918: 0240 007F                andi.w  #$7f, D0
01791C: 0440 0040                subi.w  #$40, D0
017920: 9041                     sub.w   D1, D0
017922: D442                     add.w   D2, D2
017924: 43F9 0040 0478           lea     $400478.l, A1
01792A: D071 2000                add.w   (A1,D2.w), D0
01792E: 4CDF 0C0C                movem.l (A7)+, D2-D3/A2-A3
017932: 4E75                     rts
017934: 4E56 FFF4                link    A6, #-$c
017938: 48E7 3F38                movem.l D2-D7/A2-A4, -(A7)
01793C: 246E 0008                movea.l ($8,A6), A2
017940: 243C 0040 0692           move.l  #$400692, D2
017946: 287C 0040 0690           movea.l #$400690, A4
01794C: 283C 0040 0394           move.l  #$400394, D4
017952: 7001                     moveq   #$1, D0
017954: 122A 0019                move.b  ($19,A2), D1
017958: 4881                     ext.w   D1
01795A: 48C1                     ext.l   D1
01795C: 9081                     sub.l   D1, D0
01795E: E580                     asl.l   #2, D0
017960: 207C 0001 EFF6           movea.l #$1eff6, A0
017966: 2630 0800                move.l  (A0,D0.l), D3
01796A: 2243                     movea.l D3, A1
01796C: 3D69 0020 FFFE           move.w  ($20,A1), (-$2,A6)
017972: 026E FFFF FFFE           andi.w  #$ffff, (-$2,A6)
017978: 3E2E FFFE                move.w  (-$2,A6), D7
01797C: BE79 0001 F1D2           cmp.w   $1f1d2.l, D7
017982: 6F0A                     ble     1798e
017984: 3D79 0001 F1D2 FFFE      move.w  $1f1d2.l, (-$2,A6)
01798C: 6014                     bra     179a2
01798E: 3E2E FFFE                move.w  (-$2,A6), D7
017992: BE79 0001 F1D0           cmp.w   $1f1d0.l, D7
017998: 6C08                     bge     179a2
01799A: 3D79 0001 F1D0 FFFE      move.w  $1f1d0.l, (-$2,A6)
0179A2: 7004                     moveq   #$4, D0
0179A4: C989                     exg     D4, A1
0179A6: B051                     cmp.w   (A1), D0
0179A8: C989                     exg     D4, A1
0179AA: 6700 0068                beq     17a14
0179AE: 3D6E FFFE FFFC           move.w  (-$2,A6), (-$4,A6)
0179B4: 046E 0020 FFFC           subi.w  #$20, (-$4,A6)
0179BA: 7001                     moveq   #$1, D0
0179BC: C989                     exg     D4, A1
0179BE: B051                     cmp.w   (A1), D0
0179C0: C989                     exg     D4, A1
0179C2: 661C                     bne     179e0
0179C4: C789                     exg     D3, A1
0179C6: 0C29 000C 001B           cmpi.b  #$c, ($1b,A1)
0179CC: C789                     exg     D3, A1
0179CE: 6700 0034                beq     17a04
0179D2: C789                     exg     D3, A1
0179D4: 0C29 00FF 001B           cmpi.b  #-$1, ($1b,A1)
0179DA: C789                     exg     D3, A1
0179DC: 6700 0026                beq     17a04
0179E0: 7002                     moveq   #$2, D0
0179E2: C989                     exg     D4, A1
0179E4: B051                     cmp.w   (A1), D0
0179E6: C989                     exg     D4, A1
0179E8: 6622                     bne     17a0c
0179EA: C789                     exg     D3, A1
0179EC: 0C29 0008 001B           cmpi.b  #$8, ($1b,A1)
0179F2: C789                     exg     D3, A1
0179F4: 6E00 000E                bgt     17a04
0179F8: C789                     exg     D3, A1
0179FA: 0C29 00FF 001B           cmpi.b  #-$1, ($1b,A1)
017A00: C789                     exg     D3, A1
017A02: 6608                     bne     17a0c
017A04: 066E 00A0 FFFE           addi.w  #$a0, (-$2,A6)
017A0A: 601A                     bra     17a26
017A0C: 066E 0040 FFFE           addi.w  #$40, (-$2,A6)
017A12: 6012                     bra     17a26
017A14: 3D6E FFFE FFFC           move.w  (-$2,A6), (-$4,A6)
017A1A: 046E 0040 FFFC           subi.w  #$40, (-$4,A6)
017A20: 066E 0020 FFFE           addi.w  #$20, (-$2,A6)
017A26: 4205                     clr.b   D5
017A28: 4A2A 0019                tst.b   ($19,A2)
017A2C: 6712                     beq     17a40
017A2E: 2244                     movea.l D4, A1
017A30: 3011                     move.w  (A1), D0
017A32: E540                     asl.w   #2, D0
017A34: 207C 0002 4292           movea.l #$24292, A0
017A3A: 2030 0000                move.l  (A0,D0.w), D0
017A3E: 6010                     bra     17a50
017A40: 2244                     movea.l D4, A1
017A42: 3011                     move.w  (A1), D0
017A44: E540                     asl.w   #2, D0
017A46: 207C 0002 4262           movea.l #$24262, A0
017A4C: 2030 0000                move.l  (A0,D0.w), D0
017A50: 2D40 FFF6                move.l  D0, (-$a,A6)
017A54: 206E FFF6                movea.l (-$a,A6), A0
017A58: 0C10 00FF                cmpi.b  #-$1, (A0)
017A5C: 6712                     beq     17a70
017A5E: 2243                     movea.l D3, A1
017A60: 1029 001B                move.b  ($1b,A1), D0
017A64: B010                     cmp.b   (A0), D0
017A66: 6604                     bne     17a6c
017A68: 7A01                     moveq   #$1, D5
017A6A: 6004                     bra     17a70
017A6C: 5288                     addq.l  #1, A0
017A6E: 60E8                     bra     17a58

017A70: 42B9 0040 0462           clr.l   $400462.l    D5 = 1 if zone in list, 0 if not
017A76: 42B9 0040 0466           clr.l   $400466.l
017A7C: 13FC 00FF 0040 0472      move.b  #$ff, $400472.l
017A84: 4A05                     tst.b   D5
017A86: 6700 00DC                beq     17b64
017A8A: 2244                     movea.l D4, A1
017A8C: 3011                     move.w  (A1), D0
017A8E: 48C0                     ext.l   D0
017A90: E580                     asl.l   #2, D0
017A92: 207C 0001 EF1A           movea.l #$1ef1a, A0    -- pointers to flat tiles
017A98: 2670 0800                movea.l (A0,D0.l), A3
017A9C: 0C13 00FF                cmpi.b  #-$1, (A3)
017AA0: 6700 00C2                beq     17b64
017AA4: 2243                     movea.l D3, A1
017AA6: 1029 001B                move.b  ($1b,A1), D0
017AAA: B02B 0002                cmp.b   ($2,A3), D0
017AAE: 6600 00AE                bne     17b5e
017AB2: 7200                     moveq   #$0, D1
017AB4: 1213                     move.b  (A3), D1
017AB6: 7C00                     moveq   #$0, D6
017AB8: 1C2B 0001                move.b  ($1,A3), D6
017ABC: 3001                     move.w  D1, D0
017ABE: 48C0                     ext.l   D0
017AC0: 2200                     move.l  D0, D1
017AC2: E781                     asl.l   #3, D1
017AC4: 3001                     move.w  D1, D0
017AC6: 5840                     addq.w  #4, D0
017AC8: 3880                     move.w  D0, (A4)
017ACA: 3006                     move.w  D6, D0
017ACC: 48C0                     ext.l   D0
017ACE: 2200                     move.l  D0, D1
017AD0: E781                     asl.l   #3, D1
017AD2: 3001                     move.w  D1, D0
017AD4: 5840                     addq.w  #4, D0
017AD6: 2242                     movea.l D2, A1
017AD8: 3280                     move.w  D0, (A1)
017ADA: 4EB9 0001 BB50           jsr     $1bb50.l
017AE0: 4878 0001                pea     $1.w
017AE4: 4EB9 0001 CC62           jsr     $1cc62.l
017AEA: 2200                     move.l  D0, D1
017AEC: 7010                     moveq   #$10, D0
017AEE: E0A1                     asr.l   D0, D1
017AF0: 3001                     move.w  D1, D0
017AF2: 3A39 0040 097E           move.w  $40097e.l, D5
017AF8: DA40                     add.w   D0, D5
017AFA: 0645 0054                addi.w  #$54, D5
017AFE: 2242                     movea.l D2, A1
017B00: 3011                     move.w  (A1), D0
017B02: 48C0                     ext.l   D0
017B04: 3214                     move.w  (A4), D1
017B06: 48C1                     ext.l   D1
017B08: D081                     add.l   D1, D0
017B0A: E280                     asr.l   #1, D0
017B0C: 9A40                     sub.w   D0, D5
017B0E: 4878 0180                pea     $180.w
017B12: 2242                     movea.l D2, A1
017B14: 3211                     move.w  (A1), D1
017B16: 48C1                     ext.l   D1
017B18: 2F01                     move.l  D1, -(A7)
017B1A: 3014                     move.w  (A4), D0
017B1C: 48C0                     ext.l   D0
017B1E: 2F00                     move.l  D0, -(A7)
017B20: 2F0A                     move.l  A2, -(A7)
017B22: 4EB9 0001 7CB8           jsr     $17cb8.l
017B28: 4A80                     tst.l   D0
017B2A: 4FEF 0014                lea     ($14,A7), A7
017B2E: 662E                     bne     17b5e
017B30: BA6E FFFE                cmp.w   (-$2,A6), D5
017B34: 6C28                     bge     17b5e
017B36: BA6E FFFC                cmp.w   (-$4,A6), D5
017B3A: 6F22                     ble     17b5e
017B3C: 3D45 FFFE                move.w  D5, (-$2,A6)
017B40: 3014                     move.w  (A4), D0
017B42: 48C0                     ext.l   D0
017B44: 23C0 0040 0462           move.l  D0, $400462.l
017B4A: 2242                     movea.l D2, A1
017B4C: 3011                     move.w  (A1), D0
017B4E: 48C0                     ext.l   D0
017B50: 23C0 0040 0466           move.l  D0, $400466.l
017B56: 13EB 0002 0040 0472      move.b  ($2,A3), $400472.l
017B5E: 588B                     addq.l  #4, A3
017B60: 6000 FF3A                bra     17a9c
017B64: 0C39 00FF 0040 0472      cmpi.b  #-$1, $400472.l
017B6C: 6600 0142                bne     17cb0
017B70: 2244                     movea.l D4, A1
017B72: 3011                     move.w  (A1), D0
017B74: 48C0                     ext.l   D0
017B76: E580                     asl.l   #2, D0
017B78: 207C 0001 EF1A           movea.l #$1ef1a, A0
017B7E: 2670 0800                movea.l (A0,D0.l), A3
017B82: 426E FFFA                clr.w   (-$6,A6)
017B86: 3D6E FFFA FFF4           move.w  (-$6,A6), (-$c,A6)
017B8C: 0C13 00FF                cmpi.b  #-$1, (A3)
017B90: 6700 00F8                beq     17c8a
017B94: 7200                     moveq   #$0, D1
017B96: 1213                     move.b  (A3), D1
017B98: 7C00                     moveq   #$0, D6
017B9A: 1C2B 0001                move.b  ($1,A3), D6
017B9E: 4205                     clr.b   D5
017BA0: 206E FFF6                movea.l (-$a,A6), A0
017BA4: 0C10 00FF                cmpi.b  #-$1, (A0)
017BA8: 6710                     beq     17bba
017BAA: 102B 0002                move.b  ($2,A3), D0
017BAE: B010                     cmp.b   (A0), D0
017BB0: 6604                     bne     17bb6
017BB2: 7A01                     moveq   #$1, D5
017BB4: 6004                     bra     17bba
017BB6: 5288                     addq.l  #1, A0
017BB8: 60EA                     bra     17ba4
017BBA: 3001                     move.w  D1, D0
017BBC: 48C0                     ext.l   D0
017BBE: 2200                     move.l  D0, D1
017BC0: E781                     asl.l   #3, D1
017BC2: 3001                     move.w  D1, D0
017BC4: 5840                     addq.w  #4, D0
017BC6: 3880                     move.w  D0, (A4)
017BC8: 3006                     move.w  D6, D0
017BCA: 48C0                     ext.l   D0
017BCC: 2200                     move.l  D0, D1
017BCE: E781                     asl.l   #3, D1
017BD0: 3001                     move.w  D1, D0
017BD2: 5840                     addq.w  #4, D0
017BD4: 2242                     movea.l D2, A1
017BD6: 3280                     move.w  D0, (A1)
017BD8: 4EB9 0001 BB50           jsr     $1bb50.l
017BDE: 4878 0001                pea     $1.w
017BE2: 4EB9 0001 CC62           jsr     $1cc62.l
017BE8: 2200                     move.l  D0, D1
017BEA: 7010                     moveq   #$10, D0
017BEC: E0A1                     asr.l   D0, D1
017BEE: 3001                     move.w  D1, D0
017BF0: 3839 0040 097E           move.w  $40097e.l, D4
017BF6: D840                     add.w   D0, D4
017BF8: 0644 0054                addi.w  #$54, D4
017BFC: 2242                     movea.l D2, A1
017BFE: 3011                     move.w  (A1), D0
017C00: 48C0                     ext.l   D0
017C02: 3214                     move.w  (A4), D1
017C04: 48C1                     ext.l   D1
017C06: D081                     add.l   D1, D0
017C08: E280                     asr.l   #1, D0
017C0A: 9840                     sub.w   D0, D4
017C0C: 4A6E FFFA                tst.w   (-$6,A6)
017C10: 588F                     addq.l  #4, A7
017C12: 661C                     bne     17c30
017C14: 0C44 00E8                cmpi.w  #$e8, D4
017C18: 6C16                     bge     17c30
017C1A: 7008                     moveq   #$8, D0
017C1C: B044                     cmp.w   D4, D0
017C1E: 6C10                     bge     17c30
017C20: 3D54 FFFA                move.w  (A4), (-$6,A6)
017C24: 2242                     movea.l D2, A1
017C26: 3D51 FFF4                move.w  (A1), (-$c,A6)
017C2A: 7600                     moveq   #$0, D3
017C2C: 162B 0002                move.b  ($2,A3), D3
017C30: 4878 0180                pea     $180.w
017C34: 2242                     movea.l D2, A1
017C36: 3211                     move.w  (A1), D1
017C38: 48C1                     ext.l   D1
017C3A: 2F01                     move.l  D1, -(A7)
017C3C: 3014                     move.w  (A4), D0
017C3E: 48C0                     ext.l   D0
017C40: 2F00                     move.l  D0, -(A7)
017C42: 2F0A                     move.l  A2, -(A7)
017C44: 4EB9 0001 7CB8           jsr     $17cb8.l
017C4A: 4A80                     tst.l   D0
017C4C: 4FEF 0010                lea     ($10,A7), A7
017C50: 6632                     bne     17c84
017C52: B86E FFFE                cmp.w   (-$2,A6), D4
017C56: 6C2C                     bge     17c84
017C58: B86E FFFC                cmp.w   (-$4,A6), D4
017C5C: 6F26                     ble     17c84
017C5E: 4A05                     tst.b   D5
017C60: 6722                     beq     17c84
017C62: 3D44 FFFE                move.w  D4, (-$2,A6)
017C66: 3014                     move.w  (A4), D0
017C68: 48C0                     ext.l   D0
017C6A: 23C0 0040 0462           move.l  D0, $400462.l
017C70: 2242                     movea.l D2, A1
017C72: 3011                     move.w  (A1), D0
017C74: 48C0                     ext.l   D0
017C76: 23C0 0040 0466           move.l  D0, $400466.l
017C7C: 13EB 0002 0040 0472      move.b  ($2,A3), $400472.l
017C84: 588B                     addq.l  #4, A3
017C86: 6000 FF04                bra     17b8c
017C8A: 4AB9 0040 0462           tst.l   $400462.l
017C90: 661E                     bne     17cb0
017C92: 302E FFFA                move.w  (-$6,A6), D0
017C96: 48C0                     ext.l   D0
017C98: 23C0 0040 0462           move.l  D0, $400462.l
017C9E: 302E FFF4                move.w  (-$c,A6), D0
017CA2: 48C0                     ext.l   D0
017CA4: 23C0 0040 0466           move.l  D0, $400466.l
017CAA: 13C3 0040 0472           move.b  D3, $400472.l
017CB0: 4CDF 1CFC                movem.l (A7)+, D2-D7/A2-A4
017CB4: 4E5E                     unlk    A6
017CB6: 4E75                     rts
017CB8: 48E7 3F20                movem.l D2-D7/A2, -(A7)
017CBC: 282F 0020                move.l  ($20,A7), D4
017CC0: 362F 0026                move.w  ($26,A7), D3
017CC4: 342F 002A                move.w  ($2a,A7), D2
017CC8: 247C 0040 046A           movea.l #$40046a, A2
017CCE: 227C 0040 0018           movea.l #$400018, A1
017CD4: 4205                     clr.b   D5
017CD6: 6000 00D2                bra     17daa
017CDA: B3C4                     cmpa.l  D4, A1
017CDC: 6700 00C0                beq     17d9e
017CE0: 4A29 0018                tst.b   ($18,A1)
017CE4: 6700 00B8                beq     17d9e
017CE8: 41E9 000C                lea     ($c,A1), A0
017CEC: 3010                     move.w  (A0), D0
017CEE: 41E9 0010                lea     ($10,A1), A0
017CF2: 3050                     movea.w (A0), A0
017CF4: 3C00                     move.w  D0, D6
017CF6: 9C43                     sub.w   D3, D6
017CF8: 4A46                     tst.w   D6
017CFA: 6C08                     bge     17d04
017CFC: 7000                     moveq   #$0, D0
017CFE: 3006                     move.w  D6, D0
017D00: 4480                     neg.l   D0
017D02: 6004                     bra     17d08
017D04: 7000                     moveq   #$0, D0
017D06: 3006                     move.w  D6, D0
017D08: E648                     lsr.w   #3, D0
017D0A: 7203                     moveq   #$3, D1
017D0C: B240                     cmp.w   D0, D1
017D0E: 6500 008E                bcs     17d9e
017D12: 90C2                     suba.w  D2, A0
017D14: CF88                     exg     D7, A0
017D16: 4A47                     tst.w   D7
017D18: CF88                     exg     D7, A0
017D1A: 6C08                     bge     17d24
017D1C: 7000                     moveq   #$0, D0
017D1E: 3008                     move.w  A0, D0
017D20: 4480                     neg.l   D0
017D22: 6004                     bra     17d28
017D24: 7000                     moveq   #$0, D0
017D26: 3008                     move.w  A0, D0
017D28: E648                     lsr.w   #3, D0
017D2A: 7203                     moveq   #$3, D1
017D2C: B240                     cmp.w   D0, D1
017D2E: 6500 006E                bcs     17d9e
017D32: 4A46                     tst.w   D6
017D34: 6C08                     bge     17d3e
017D36: 7000                     moveq   #$0, D0
017D38: 3006                     move.w  D6, D0
017D3A: 4480                     neg.l   D0
017D3C: 6004                     bra     17d42
017D3E: 7000                     moveq   #$0, D0
017D40: 3006                     move.w  D6, D0
017D42: 3C00                     move.w  D0, D6
017D44: E94E                     lsl.w   #4, D6
017D46: CF88                     exg     D7, A0
017D48: 4A47                     tst.w   D7
017D4A: CF88                     exg     D7, A0
017D4C: 6C08                     bge     17d56
017D4E: 7000                     moveq   #$0, D0
017D50: 3008                     move.w  A0, D0
017D52: 4480                     neg.l   D0
017D54: 6004                     bra     17d5a
017D56: 7000                     moveq   #$0, D0
017D58: 3008                     move.w  A0, D0
017D5A: 3E00                     move.w  D0, D7
017D5C: E94F                     lsl.w   #4, D7
017D5E: 3047                     movea.w D7, A0
017D60: BC48                     cmp.w   A0, D6
017D62: 6312                     bls     17d76
017D64: 7200                     moveq   #$0, D1
017D66: 3208                     move.w  A0, D1
017D68: E689                     lsr.l   #3, D1
017D6A: C2FC 0003                mulu.w  #$3, D1
017D6E: 7000                     moveq   #$0, D0
017D70: 3006                     move.w  D6, D0
017D72: D280                     add.l   D0, D1
017D74: 6010                     bra     17d86
017D76: 7200                     moveq   #$0, D1
017D78: 3206                     move.w  D6, D1
017D7A: E689                     lsr.l   #3, D1
017D7C: C2FC 0003                mulu.w  #$3, D1
017D80: 7000                     moveq   #$0, D0
017D82: 3008                     move.w  A0, D0
017D84: D280                     add.l   D0, D1
017D86: 302F 002E                move.w  ($2e,A7), D0
017D8A: 48C0                     ext.l   D0
017D8C: B081                     cmp.l   D1, D0
017D8E: 630E                     bls     17d9e
017D90: 1005                     move.b  D5, D0
017D92: 4880                     ext.w   D0
017D94: 48C0                     ext.l   D0
017D96: 2480                     move.l  D0, (A2)
017D98: 7001                     moveq   #$1, D0
017D9A: 6000 01C4                bra     17f60
017D9E: 2E09                     move.l  A1, D7
017DA0: 0687 0000 00E2           addi.l  #$e2, D7
017DA6: 2247                     movea.l D7, A1
017DA8: 5205                     addq.b  #1, D5
017DAA: 1005                     move.b  D5, D0
017DAC: 4880                     ext.w   D0
017DAE: B079 0040 0396           cmp.w   $400396.l, D0
017DB4: 6600 FF24                bne     17cda
017DB8: 227C 0040 09A4           movea.l #$4009a4, A1
017DBE: 4205                     clr.b   D5
017DC0: 4A29 0018                tst.b   ($18,A1)
017DC4: 6700 00B8                beq     17e7e
017DC8: 41E9 000C                lea     ($c,A1), A0
017DCC: 3010                     move.w  (A0), D0
017DCE: 41E9 0010                lea     ($10,A1), A0
017DD2: 3050                     movea.w (A0), A0
017DD4: 3C00                     move.w  D0, D6
017DD6: 9C43                     sub.w   D3, D6
017DD8: 4A46                     tst.w   D6
017DDA: 6C08                     bge     17de4
017DDC: 7000                     moveq   #$0, D0
017DDE: 3006                     move.w  D6, D0
017DE0: 4480                     neg.l   D0
017DE2: 6004                     bra     17de8
017DE4: 7000                     moveq   #$0, D0
017DE6: 3006                     move.w  D6, D0
017DE8: E648                     lsr.w   #3, D0
017DEA: 7203                     moveq   #$3, D1
017DEC: B240                     cmp.w   D0, D1
017DEE: 6500 008E                bcs     17e7e
017DF2: 90C2                     suba.w  D2, A0
017DF4: CF88                     exg     D7, A0
017DF6: 4A47                     tst.w   D7
017DF8: CF88                     exg     D7, A0
017DFA: 6C08                     bge     17e04
017DFC: 7000                     moveq   #$0, D0
017DFE: 3008                     move.w  A0, D0
017E00: 4480                     neg.l   D0
017E02: 6004                     bra     17e08
017E04: 7000                     moveq   #$0, D0
017E06: 3008                     move.w  A0, D0
017E08: E648                     lsr.w   #3, D0
017E0A: 7203                     moveq   #$3, D1
017E0C: B240                     cmp.w   D0, D1
017E0E: 6500 006E                bcs     17e7e
017E12: 4A46                     tst.w   D6
017E14: 6C08                     bge     17e1e
017E16: 7000                     moveq   #$0, D0
017E18: 3006                     move.w  D6, D0
017E1A: 4480                     neg.l   D0
017E1C: 6004                     bra     17e22
017E1E: 7000                     moveq   #$0, D0
017E20: 3006                     move.w  D6, D0
017E22: 3C00                     move.w  D0, D6
017E24: E94E                     lsl.w   #4, D6
017E26: CF88                     exg     D7, A0
017E28: 4A47                     tst.w   D7
017E2A: CF88                     exg     D7, A0
017E2C: 6C08                     bge     17e36
017E2E: 7000                     moveq   #$0, D0
017E30: 3008                     move.w  A0, D0
017E32: 4480                     neg.l   D0
017E34: 6004                     bra     17e3a
017E36: 7000                     moveq   #$0, D0
017E38: 3008                     move.w  A0, D0
017E3A: 3E00                     move.w  D0, D7
017E3C: E94F                     lsl.w   #4, D7
017E3E: 3047                     movea.w D7, A0
017E40: BC48                     cmp.w   A0, D6
017E42: 6312                     bls     17e56
017E44: 7200                     moveq   #$0, D1
017E46: 3208                     move.w  A0, D1
017E48: E689                     lsr.l   #3, D1
017E4A: C2FC 0003                mulu.w  #$3, D1
017E4E: 7000                     moveq   #$0, D0
017E50: 3006                     move.w  D6, D0
017E52: D280                     add.l   D0, D1
017E54: 6010                     bra     17e66
017E56: 7200                     moveq   #$0, D1
017E58: 3206                     move.w  D6, D1
017E5A: E689                     lsr.l   #3, D1
017E5C: C2FC 0003                mulu.w  #$3, D1
017E60: 7000                     moveq   #$0, D0
017E62: 3008                     move.w  A0, D0
017E64: D280                     add.l   D0, D1
017E66: 302F 002E                move.w  ($2e,A7), D0
017E6A: 48C0                     ext.l   D0
017E6C: B081                     cmp.l   D1, D0
017E6E: 630E                     bls     17e7e
017E70: 1005                     move.b  D5, D0
017E72: 4880                     ext.w   D0
017E74: 48C0                     ext.l   D0
017E76: 2480                     move.l  D0, (A2)
017E78: 7002                     moveq   #$2, D0
017E7A: 6000 00E4                bra     17f60
017E7E: 707C                     moveq   #$7c, D0
017E80: D3C0                     adda.l  D0, A1
017E82: 5205                     addq.b  #1, D5
017E84: 0C05 0002                cmpi.b  #$2, D5
017E88: 6600 FF36                bne     17dc0
017E8C: 227C 0040 1302           movea.l #$401302, A1
017E92: 4205                     clr.b   D5
017E94: 4A29 0018                tst.b   ($18,A1)
017E98: 6700 00B6                beq     17f50
017E9C: 41E9 000C                lea     ($c,A1), A0
017EA0: 3010                     move.w  (A0), D0
017EA2: 41E9 0010                lea     ($10,A1), A0
017EA6: 3050                     movea.w (A0), A0
017EA8: 3C00                     move.w  D0, D6
017EAA: 9C43                     sub.w   D3, D6
017EAC: 4A46                     tst.w   D6
017EAE: 6C08                     bge     17eb8
017EB0: 7000                     moveq   #$0, D0
017EB2: 3006                     move.w  D6, D0
017EB4: 4480                     neg.l   D0
017EB6: 6004                     bra     17ebc
017EB8: 7000                     moveq   #$0, D0
017EBA: 3006                     move.w  D6, D0
017EBC: E648                     lsr.w   #3, D0
017EBE: 7203                     moveq   #$3, D1
017EC0: B240                     cmp.w   D0, D1
017EC2: 6500 008C                bcs     17f50
017EC6: 90C2                     suba.w  D2, A0
017EC8: CF88                     exg     D7, A0
017ECA: 4A47                     tst.w   D7
017ECC: CF88                     exg     D7, A0
017ECE: 6C08                     bge     17ed8
017ED0: 7000                     moveq   #$0, D0
017ED2: 3008                     move.w  A0, D0
017ED4: 4480                     neg.l   D0
017ED6: 6004                     bra     17edc
017ED8: 7000                     moveq   #$0, D0
017EDA: 3008                     move.w  A0, D0
017EDC: E648                     lsr.w   #3, D0
017EDE: 7203                     moveq   #$3, D1
017EE0: B240                     cmp.w   D0, D1
017EE2: 6500 006C                bcs     17f50
017EE6: 4A46                     tst.w   D6
017EE8: 6C08                     bge     17ef2
017EEA: 7000                     moveq   #$0, D0
017EEC: 3006                     move.w  D6, D0
017EEE: 4480                     neg.l   D0
017EF0: 6004                     bra     17ef6
017EF2: 7000                     moveq   #$0, D0
017EF4: 3006                     move.w  D6, D0
017EF6: 3C00                     move.w  D0, D6
017EF8: E94E                     lsl.w   #4, D6
017EFA: CF88                     exg     D7, A0
017EFC: 4A47                     tst.w   D7
017EFE: CF88                     exg     D7, A0
017F00: 6C08                     bge     17f0a
017F02: 7000                     moveq   #$0, D0
017F04: 3008                     move.w  A0, D0
017F06: 4480                     neg.l   D0
017F08: 6004                     bra     17f0e
017F0A: 7000                     moveq   #$0, D0
017F0C: 3008                     move.w  A0, D0
017F0E: 3E00                     move.w  D0, D7
017F10: E94F                     lsl.w   #4, D7
017F12: 3047                     movea.w D7, A0
017F14: BC48                     cmp.w   A0, D6
017F16: 6312                     bls     17f2a
017F18: 7200                     moveq   #$0, D1
017F1A: 3208                     move.w  A0, D1
017F1C: E689                     lsr.l   #3, D1
017F1E: C2FC 0003                mulu.w  #$3, D1
017F22: 7000                     moveq   #$0, D0
017F24: 3006                     move.w  D6, D0
017F26: D280                     add.l   D0, D1
017F28: 6010                     bra     17f3a
017F2A: 7200                     moveq   #$0, D1
017F2C: 3206                     move.w  D6, D1
017F2E: E689                     lsr.l   #3, D1
017F30: C2FC 0003                mulu.w  #$3, D1
017F34: 7000                     moveq   #$0, D0
017F36: 3008                     move.w  A0, D0
017F38: D280                     add.l   D0, D1
017F3A: 302F 002E                move.w  ($2e,A7), D0
017F3E: 48C0                     ext.l   D0
017F40: B081                     cmp.l   D1, D0
017F42: 630C                     bls     17f50
017F44: 1005                     move.b  D5, D0
017F46: 4880                     ext.w   D0
017F48: 48C0                     ext.l   D0
017F4A: 2480                     move.l  D0, (A2)
017F4C: 7004                     moveq   #$4, D0
017F4E: 6010                     bra     17f60
017F50: 7060                     moveq   #$60, D0
017F52: D3C0                     adda.l  D0, A1
017F54: 5205                     addq.b  #1, D5
017F56: 0C05 0004                cmpi.b  #$4, D5
017F5A: 6600 FF38                bne     17e94
017F5E: 7000                     moveq   #$0, D0
017F60: 4CDF 04FC                movem.l (A7)+, D2-D7/A2
017F64: 4E75                     rts
017F66: 48E7 3020                movem.l D2-D3/A2, -(A7)
017F6A: 246F 0010                movea.l ($10,A7), A2
017F6E: 0C2A 0002 0018           cmpi.b  #$2, ($18,A2)
017F74: 6700 0142                beq     180b8
017F78: 0C2A 0003 0018           cmpi.b  #$3, ($18,A2)
017F7E: 6700 0138                beq     180b8
017F82: 7001                     moveq   #$1, D0
017F84: B079 0040 0390           cmp.w   $400390.l, D0        Game in attract?
017F8A: 660E                     bne     17f9a
017F8C: 2F0A                     move.l  A2, -(A7)
017F8E: 4EB9 0001 815A           jsr     $1815a.l
017F94: 588F                     addq.l  #4, A7
017F96: 6000 0120                bra     180b8
017F9A: 102A 0058                move.b  ($58,A2), D0
017F9E: 0C2A 0002 0036           cmpi.b  #$2, ($36,A2)
017FA4: 6700 00E8                beq     1808e
017FA8: 4A00                     tst.b   D0
017FAA: 6700 004A                beq     17ff6
017FAE: 0C00 003B                cmpi.b  #$3b, D0
017FB2: 6700 0042                beq     17ff6
017FB6: 0C00 002D                cmpi.b  #$2d, D0
017FBA: 6700 003A                beq     17ff6
017FBE: 0C00 002E                cmpi.b  #$2e, D0
017FC2: 6700 0032                beq     17ff6
017FC6: 0C00 0038                cmpi.b  #$38, D0
017FCA: 6700 002A                beq     17ff6
017FCE: 0C00 0039                cmpi.b  #$39, D0
017FD2: 6700 0022                beq     17ff6
017FD6: 0C00 003A                cmpi.b  #$3a, D0
017FDA: 6700 001A                beq     17ff6
017FDE: 0C00 002F                cmpi.b  #$2f, D0
017FE2: 6700 0012                beq     17ff6
017FE6: 0C00 0030                cmpi.b  #$30, D0
017FEA: 6700 000A                beq     17ff6
017FEE: 0C00 0031                cmpi.b  #$31, D0
017FF2: 6600 009A                bne     1808e
017FF6: 7001                     moveq   #$1, D0
017FF8: B079 0040 0396           cmp.w   $400396.l, D0
017FFE: 6608                     bne     18008
