home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / amiga_virus_collection_research.7z / VIRUSRESEARCH / STR_ATMOS / ICONX.ASM < prev    next >
Assembly Source File  |  1999-06-12  |  15KB  |  556 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. ABSEXECBASE    EQU    $4
  5.  
  6.  
  7.  
  8.  
  9.     SECTION S_0,CODE
  10.  
  11. SECSTRT_0:
  12.     LINK    A5,#-1332        ;000: 4E55FACC
  13.     MOVEM.L    D2-D3/D5-D7/A2-A3/A6,-(A7) ;004: 48E73732
  14.     MOVEA    #$0004,A0        ;008: 307C0004
  15.     MOVEA.L    (A0),A3            ;00C: 2650
  16.     MOVEA.L    A3,A0            ;00E: 204B
  17.     MOVEQ    #20,D7            ;010: 7E14
  18.     MOVE.L    A0,44(A7)        ;012: 2F48002C
  19.     SUBA.L    A1,A1            ;016: 93C9
  20.     MOVEA.L    A3,A6            ;018: 2C4B
  21.     JSR    -294(A6)        ;01A: 4EAEFEDA
  22.     MOVEA.L    D0,A2            ;01E: 2440
  23.     TST.L    172(A2)            ;020: 4AAA00AC
  24.     BNE    LAB_0010        ;024: 660002BA
  25.     LEA    92(A2),A1        ;028: 43EA005C
  26.     MOVE.L    A1,32(A7)        ;02C: 2F490020
  27.     MOVEA.L    A1,A0            ;030: 2049
  28.     JSR    -384(A6)        ;032: 4EAEFE80
  29.     MOVEA.L    32(A7),A0        ;036: 206F0020
  30.     JSR    -372(A6)        ;03A: 4EAEFE8C
  31.     MOVE.L    D0,40(A7)        ;03E: 2F400028
  32.     LEA    LAB_0012(PC),A1        ;042: 43FA02C2
  33.     MOVEQ    #37,D0            ;046: 7025
  34.     JSR    -552(A6)        ;048: 4EAEFDD8
  35.     MOVEA.L    D0,A2            ;04C: 2440
  36.     MOVE.L    A2,D0            ;04E: 200A
  37.     BEQ    LAB_000F        ;050: 67000280
  38.     MOVEQ    #10,D7            ;054: 7E0A
  39.     MOVEQ    #100,D0            ;056: 7064
  40.     MOVE.L    D0,-284(A5)        ;058: 2B40FEE4
  41.     MOVE.L    #$00001000,-1312(A5)    ;05C: 2B7C00001000FAE0
  42.     CLR    -1314(A5)        ;064: 426DFADE
  43.     LEA    LAB_0013(PC),A0        ;068: 41FA02A8
  44.     LEA    -280(A5),A1        ;06C: 43EDFEE8
  45.     MOVEQ    #5,D0            ;070: 7005
  46. LAB_0000:
  47.     MOVE.L    (A0)+,(A1)+        ;072: 22D8
  48.     DBF    D0,LAB_0000        ;074: 51C8FFFC
  49.     MOVEA.L    40(A7),A1        ;078: 226F0028
  50.     MOVEA.L    36(A1),A0        ;07C: 20690024
  51.     MOVE.L    28(A1),D6        ;080: 2C29001C
  52.     MOVEQ    #1,D0            ;084: 7001
  53.     CMP.L    D0,D6            ;086: BC80
  54.     BLE    LAB_000E        ;088: 6F00023C
  55.     LEA    8(A0),A1        ;08C: 43E80008
  56.     MOVE.L    A1,-24(A5)        ;090: 2B49FFE8
  57.     MOVE.L    (A1),D1            ;094: 2211
  58.     MOVEA.L    A2,A6            ;096: 2C4A
  59.     JSR    -126(A6)        ;098: 4EAEFF82
  60.     MOVE.L    D0,D5            ;09C: 2A00
  61.     LEA    LAB_0014(PC),A1        ;09E: 43FA028A
  62.     MOVEQ    #37,D0            ;0A2: 7025
  63.     MOVEA.L    A3,A6            ;0A4: 2C4B
  64.     JSR    -552(A6)        ;0A6: 4EAEFDD8
  65.     MOVEA.L    D0,A3            ;0AA: 2640
  66.     MOVE.L    A3,D0            ;0AC: 200B
  67.     BEQ    LAB_0007        ;0AE: 6700010A
  68.     MOVEA.L    -24(A5),A0        ;0B2: 206DFFE8
  69.     MOVEA.L    4(A0),A0        ;0B6: 20680004
  70.     MOVEA.L    A3,A6            ;0BA: 2C4B
  71.     JSR    -78(A6)            ;0BC: 4EAEFFB2
  72.     MOVE.L    D0,36(A7)        ;0C0: 2F400024
  73.     TST.L    D0            ;0C4: 4A80
  74.     BEQ    LAB_0006        ;0C6: 670000E8
  75.     MOVEA.L    D0,A0            ;0CA: 2040
  76.     MOVEA.L    54(A0),A0        ;0CC: 20680036
  77.     LEA    LAB_0015(PC),A1        ;0D0: 43FA0266
  78.     JSR    -96(A6)            ;0D4: 4EAEFFA0
  79.     TST.L    D0            ;0D8: 4A80
  80.     BEQ.S    LAB_0001        ;0DA: 670E
  81.     MOVEA.L    D0,A1            ;0DC: 2240
  82.     MOVEQ    #64,D0            ;0DE: 7040
  83.     LSL.L    #2,D0            ;0E0: E588
  84.     LEA    -280(A5),A0        ;0E2: 41EDFEE8
  85.     JSR    LAB_0031(PC)        ;0E6: 4EBA0430
  86. LAB_0001:
  87.     MOVEA.L    36(A7),A0        ;0EA: 206F0024
  88.     MOVEA.L    54(A0),A0        ;0EE: 20680036
  89.     LEA    LAB_0016(PC),A1        ;0F2: 43FA024C
  90.     MOVEA.L    A3,A6            ;0F6: 2C4B
  91.     JSR    -96(A6)            ;0F8: 4EAEFFA0
  92.     TST.L    D0            ;0FC: 4A80
  93.     BEQ.S    LAB_0002        ;0FE: 670E
  94.     MOVE.L    D0,D1            ;100: 2200
  95.     LEA    -1312(A5),A0        ;102: 41EDFAE0
  96.     MOVE.L    A0,D2            ;106: 2408
  97.     MOVEA.L    A2,A6            ;108: 2C4A
  98.     JSR    -816(A6)        ;10A: 4EAEFCD0
  99. LAB_0002:
  100.     MOVEA.L    36(A7),A0        ;10E: 206F0024
  101.     MOVEA.L    54(A0),A0        ;112: 20680036
  102.     LEA    LAB_0017(PC),A1        ;116: 43FA022E
  103.     MOVEA.L    A3,A6            ;11A: 2C4B
  104.     JSR    -96(A6)            ;11C: 4EAEFFA0
  105.     TST.L    D0            ;120: 4A80
  106.     BEQ.S    LAB_0003        ;122: 670E
  107.     MOVEA.L    D0,A0            ;124: 2040
  108.     LEA    LAB_0018(PC),A1        ;126: 43FA0228
  109.     JSR    -102(A6)        ;12A: 4EAEFF9A
  110.     MOVE    D0,-1314(A5)        ;12E: 3B40FADE
  111. LAB_0003:
  112.     MOVEA.L    36(A7),A0        ;132: 206F0024
  113.     MOVEA.L    54(A0),A0        ;136: 20680036
  114.     LEA    LAB_0019(PC),A1        ;13A: 43FA0218
  115.     JSR    -96(A6)            ;13E: 4EAEFFA0
  116.     TST.L    D0            ;142: 4A80
  117.     BEQ.S    LAB_0004        ;144: 672C
  118.     MOVE.L    D0,D1            ;146: 2200
  119.     LEA    -284(A5),A0        ;148: 41EDFEE4
  120.     MOVE.L    A0,D2            ;14C: 2408
  121.     MOVEA.L    A2,A6            ;14E: 2C4A
  122.     JSR    -816(A6)        ;150: 4EAEFCD0
  123.     MOVE.L    -284(A5),D0        ;154: 202DFEE4
  124.     MOVEQ    #50,D1            ;158: 7232
  125.     JSR    LAB_003A(PC)        ;15A: 4EBA03E4
  126.     MOVE.L    D0,-284(A5)        ;15E: 2B40FEE4
  127.     BNE.S    LAB_0005        ;162: 6642
  128.     LEA    -280(A5),A0        ;164: 41EDFEE8
  129.     LEA    LAB_001A(PC),A1        ;168: 43FA01F0
  130.     JSR    LAB_0037(PC)        ;16C: 4EBA03C2
  131.     BRA.S    LAB_0005        ;170: 6034
  132. LAB_0004:
  133.     MOVEA.L    36(A7),A0        ;172: 206F0024
  134.     MOVEA.L    54(A0),A0        ;176: 20680036
  135.     LEA    LAB_001B(PC),A1        ;17A: 43FA01EA
  136.     JSR    -96(A6)            ;17E: 4EAEFFA0
  137.     TST.L    D0            ;182: 4A80
  138.     BEQ.S    LAB_0005        ;184: 6720
  139.     MOVE.L    D0,D1            ;186: 2200
  140.     LEA    -284(A5),A0        ;188: 41EDFEE4
  141.     MOVE.L    A0,D2            ;18C: 2408
  142.     MOVEA.L    A2,A6            ;18E: 2C4A
  143.     JSR    -816(A6)        ;190: 4EAEFCD0
  144.     TST.L    -284(A5)        ;194: 4AADFEE4
  145.     BNE.S    LAB_0005        ;198: 660C
  146.     LEA    -280(A5),A0        ;19A: 41EDFEE8
  147.     LEA    LAB_001A(PC),A1        ;19E: 43FA01BA
  148.     JSR    LAB_0037(PC)        ;1A2: 4EBA038C
  149. LAB_0005:
  150.     MOVEA.L    36(A7),A0        ;1A6: 206F0024
  151.     MOVEA.L    A3,A6            ;1AA: 2C4B
  152.     JSR    -90(A6)            ;1AC: 4EAEFFA6
  153. LAB_0006:
  154.     MOVEA.L    A3,A1            ;1B0: 224B
  155.     MOVEA.L    44(A7),A6        ;1B2: 2C6F002C
  156.     JSR    -414(A6)        ;1B6: 4EAEFE62
  157. LAB_0007:
  158.     MOVE.L    -1312(A5),D0        ;1BA: 202DFAE0
  159.     MOVEA.L    40(A7),A0        ;1BE: 206F0028
  160.     MOVEA.L    A2,A1            ;1C2: 224A
  161.     BSR    LAB_0026        ;1C4: 610001EC
  162.     MOVEA.L    -24(A5),A3        ;1C8: 266DFFE8
  163.     MOVE.L    4(A3),-(A7)        ;1CC: 2F2B0004
  164.     PEA    LAB_001C(PC)        ;1D0: 487A019A
  165.     PEA    -1308(A5)        ;1D4: 486DFAE4
  166.     JSR    LAB_002F(PC)        ;1D8: 4EBA0316
  167.     LEA    12(A7),A7        ;1DC: 4FEF000C
  168.     BRA.S    LAB_000B        ;1E0: 606E
  169. LAB_0008:
  170.     ADDQ.L    #8,A3            ;1E2: 508B
  171.     LEA    -1308(A5),A0        ;1E4: 41EDFAE4
  172.     LEA    LAB_0021(PC),A1        ;1E8: 43FA019A
  173.     JSR    LAB_0037(PC)        ;1EC: 4EBA0342
  174.     LEA    -1308(A5),A0        ;1F0: 41EDFAE4
  175.     MOVEA.L    A0,A1            ;1F4: 2248
  176. LAB_0009:
  177.     TST.B    (A1)+            ;1F6: 4A19
  178.     BNE.S    LAB_0009        ;1F8: 66FC
  179.     SUBQ.L    #1,A1            ;1FA: 5389
  180.     SUBA.L    A0,A1            ;1FC: 93C8
  181.     MOVE.L    A1,D0            ;1FE: 2009
  182.     MOVEQ    #0,D1            ;200: 7200
  183.     MOVE    D0,D1            ;202: 3200
  184.     ADDA.L    D1,A0            ;204: D1C1
  185.     MOVEQ    #0,D1            ;206: 7200
  186.     MOVE    D0,D1            ;208: 3200
  187.     MOVEQ    #64,D0            ;20A: 7040
  188.     LSL.L    #4,D0            ;20C: E988
  189.     SUB.L    D1,D0            ;20E: 9081
  190.     MOVE.L    A0,D2            ;210: 2408
  191.     MOVE.L    D0,D3            ;212: 2600
  192.     MOVE.L    (A3),D1            ;214: 2213
  193.     MOVEA.L    A2,A6            ;216: 2C4A
  194.     JSR    -402(A6)        ;218: 4EAEFE6E
  195.     LEA    -1308(A5),A0        ;21C: 41EDFAE4
  196.     MOVEA.L    A0,A1            ;220: 2248
  197. LAB_000A:
  198.     TST.B    (A1)+            ;222: 4A19
  199.     BNE.S    LAB_000A        ;224: 66FC
  200.     SUBQ.L    #1,A1            ;226: 5389
  201.     SUBA.L    A0,A1            ;228: 93C8
  202.     MOVE.L    A1,D0            ;22A: 2009
  203.     MOVEQ    #0,D1            ;22C: 7200
  204.     MOVE    D0,D1            ;22E: 3200
  205.     MOVEQ    #64,D0            ;230: 7040
  206.     LSL.L    #4,D0            ;232: E988
  207.     SUB.L    D1,D0            ;234: 9081
  208.     MOVE.L    D2,D1            ;236: 2202
  209.     MOVE.L    D0,D3            ;238: 2600
  210.     MOVE.L    4(A3),D2        ;23A: 242B0004
  211.     JSR    -882(A6)        ;23E: 4EAEFC8E
  212.     LEA    -1308(A5),A0        ;242: 41EDFAE4
  213.     LEA    LAB_0022(PC),A1        ;246: 43FA0140
  214.     JSR    LAB_0037(PC)        ;24A: 4EBA02E4
  215.     SUBQ.L    #1,D6            ;24E: 5386
  216. LAB_000B:
  217.     MOVEQ    #2,D0            ;250: 7002
  218.     CMP.L    D0,D6            ;252: BC80
  219.     BGT.S    LAB_0008        ;254: 6E8C
  220.     LEA    -1308(A5),A0        ;256: 41EDFAE4
  221.     LEA    LAB_0023(PC),A1        ;25A: 43FA012E
  222.     JSR    LAB_0037(PC)        ;25E: 4EBA02D0
  223.     LEA    -280(A5),A0        ;262: 41EDFEE8
  224.     MOVE.L    A0,D1            ;266: 2208
  225.     MOVE.L    #$000003ED,D2        ;268: 243C000003ED
  226.     MOVEA.L    A2,A6            ;26E: 2C4A
  227.     JSR    -30(A6)            ;270: 4EAEFFE2
  228.     MOVE.L    D0,D6            ;274: 2C00
  229.     TST.L    D6            ;276: 4A86
  230.     BEQ.S    LAB_000D        ;278: 6746
  231.     MOVE    -1314(A5),D0        ;27A: 302DFADE
  232.     EXT.L    D0            ;27E: 48C0
  233.     MOVEQ    #0,D1            ;280: 7200
  234.     MOVE.L    D1,-(A7)        ;282: 2F01
  235.     MOVE.L    D0,-(A7)        ;284: 2F00
  236.     MOVE.L    #$80000024,-(A7)    ;286: 2F3C80000024
  237.     MOVE.L    D6,-(A7)        ;28C: 2F06
  238.     MOVE.L    #$80000021,-(A7)    ;28E: 2F3C80000021
  239.     MOVE.L    D1,-(A7)        ;294: 2F01
  240.     MOVE.L    #$80000022,-(A7)    ;296: 2F3C80000022
  241.     PEA    -1308(A5)        ;29C: 486DFAE4
  242.     MOVE.L    A2,-(A7)        ;2A0: 2F0A
  243.     BSR    LAB_0024        ;2A2: 610000E8
  244.     LEA    36(A7),A7        ;2A6: 4FEF0024
  245.     MOVE.L    -284(A5),D0        ;2AA: 202DFEE4
  246.     BEQ.S    LAB_000C        ;2AE: 6708
  247.     MOVE.L    D0,D1            ;2B0: 2200
  248.     MOVEA.L    A2,A6            ;2B2: 2C4A
  249.     JSR    -198(A6)        ;2B4: 4EAEFF3A
  250. LAB_000C:
  251.     MOVE.L    D6,D1            ;2B8: 2206
  252.     MOVEA.L    A2,A6            ;2BA: 2C4A
  253.     JSR    -36(A6)            ;2BC: 4EAEFFDC
  254. LAB_000D:
  255.     MOVE.L    D5,D1            ;2C0: 2205
  256.     JSR    -126(A6)        ;2C2: 4EAEFF82
  257. LAB_000E:
  258.     MOVEA.L    44(A7),A3        ;2C6: 266F002C
  259.     MOVEA.L    A2,A1            ;2CA: 224A
  260.     MOVEA.L    A3,A6            ;2CC: 2C4B
  261.     JSR    -414(A6)        ;2CE: 4EAEFE62
  262. LAB_000F:
  263.     MOVEA.L    A3,A6            ;2D2: 2C4B
  264.     JSR    -132(A6)        ;2D4: 4EAEFF7C
  265.     MOVEA.L    40(A7),A1        ;2D8: 226F0028
  266.     JSR    -378(A6)        ;2DC: 4EAEFE86
  267. LAB_0010:
  268.     MOVE.L    D7,D0            ;2E0: 2007
  269.     MOVEM.L    (A7)+,D2-D3/D5-D7/A2-A3/A6 ;2E2: 4CDF4CEC
  270.     UNLK    A5            ;2E6: 4E5D
  271.     RTS                ;2E8: 4E75
  272. LAB_0011:
  273.     DC.W    $0024            ;2EA
  274.     ADDQ    #3,D5            ;2EC: 5645
  275.     DC.W    $523A            ;2EE
  276.     DC.W    $2069            ;2F0
  277.     DC.W    $636F            ;2F2
  278.     BGT.S    LAB_001D        ;2F4: 6E78
  279.     MOVE.L    46(A3,D3.L),D0        ;2F6: 2033382E
  280.     MOVE    -(A0),D4        ;2FA: 3820
  281.     DC.W    $2831            ;2FC
  282.     MOVE    12846(A6),-(A1)        ;2FE: 332E322E
  283.     DC.W    $3932            ;302
  284.     MOVE.L    D0,-(A4)        ;304: 2900
  285. LAB_0012:
  286.     DC.W    $646F            ;306
  287.     DC.W    $732E            ;308
  288.     DC.W    $6C69            ;30A
  289.     BHI.S    LAB_001F        ;30C: 6272
  290.     BSR.S    LAB_0020        ;30E: 6172
  291.     DC.W    $7900            ;310
  292. LAB_0013:
  293.     DC.W    $434F            ;312
  294.     DC.W    $4E3A            ;314
  295.     MOVE    13616(A7),D0        ;316: 302F3530
  296.     MOVE.L    14384(A7),-(A7)        ;31A: 2F2F3830
  297.     DC.W    $2F49            ;31E
  298.     DC.W    $636F            ;320
  299.     BGT.S    LAB_001E        ;322: 6E58
  300.     MOVE.L    D1,21844(A7)        ;324: 2F415554
  301.     DC.W    $4F00            ;328
  302. LAB_0014:
  303.     DC.W    $6963            ;32A
  304.     BLE.S    LAB_0025        ;32C: 6F6E
  305.     MOVEA.L    26978(A4),A7        ;32E: 2E6C6962
  306.     MOVEQ    #97,D1            ;332: 7261
  307.     MOVEQ    #121,D1            ;334: 7279
  308.     DC.W    $0000            ;336
  309. LAB_0015:
  310.     SUBQ    #3,A1            ;338: 5749
  311.     TRAP    #4            ;33A: 4E44
  312.     DC.W    $4F57            ;33C
  313.     DC.W    $0000            ;33E
  314. LAB_0016:
  315.     SUBQ    #1,(A4)            ;340: 5354
  316.     DC.W    $4143            ;342
  317.     DC.W    $4B00            ;344
  318. LAB_0017:
  319.     SUBQ    #2,(A3)            ;346: 5553
  320.     DC.W    $4552            ;348
  321.     SUBQ    #1,A0            ;34A: 5348
  322.     DC.W    $454C            ;34C
  323.     DC.W    $4C00            ;34E
  324. LAB_0018:
  325.     SUBQ    #4,D5            ;350: 5945
  326.     SUBQ.B    #1,D0            ;352: 5300
  327. LAB_0019:
  328.     SUBQ    #3,D1            ;354: 5741
  329.     DC.W    $4954            ;356
  330.     DC.W    $0000            ;358
  331. LAB_001A:
  332.     DC.W    $2F43            ;35A
  333.     DC.W    $4C4F            ;35C
  334.     SUBQ    #1,D5            ;35E: 5345
  335.     DC.W    $2F57            ;360
  336.     DC.W    $4149            ;362
  337.     ADDQ.B    #2,D0            ;364: 5400
  338. LAB_001B:
  339.     NEG    D5            ;366: 4445
  340.     DC.W    $4C41            ;368
  341.     SUBQ.B    #4,D0            ;36A: 5900
  342. LAB_001C:
  343.     NOT    -(A1)            ;36C: 4661
  344. LAB_001D:
  345.     BVS.S    LAB_0027        ;36E: 696C
  346.     DC.W    $4174            ;370
  347.     MOVE.L    48(A1,D3.W),D0        ;372: 20313030
  348.     EORI    #$7865,D5        ;376: 0A457865
  349.     DC.W    $6375            ;37A
  350. LAB_001E:
  351.     MOVEQ    #101,D2            ;37C: 7465
  352.     MOVE.L    -(A2),D0        ;37E: 2022
  353. LAB_001F:
  354.     DC.W    $2573            ;380
  355. LAB_0020:
  356.     MOVE.L    D0,D1            ;382: 2200
  357. LAB_0021:
  358.     MOVE.L    -(A2),D0        ;384: 2022
  359.     DC.W    $0000            ;386
  360. LAB_0022:
  361.     MOVE.L    D0,D1            ;388: 2200
  362. LAB_0023:
  363.     DC.W    $0A00            ;38A
  364. LAB_0024:
  365.     LINK    A5,#0            ;38C: 4E550000
  366.     MOVEM.L    D2/A2-A3/A6,-(A7)    ;390: 48E72032
  367.     MOVEA.L    8(A5),A3        ;394: 266D0008
  368.     MOVEA.L    12(A5),A2        ;398: 246D000C
  369. LAB_0025:
  370.     MOVE.L    A2,D1            ;39C: 220A
  371.     LEA    16(A5),A0        ;39E: 41ED0010
  372.     MOVE.L    A0,D2            ;3A2: 2408
  373.     MOVEA.L    A3,A6            ;3A4: 2C4B
  374.     JSR    -606(A6)        ;3A6: 4EAEFDA2
  375.     MOVEM.L    (A7)+,D2/A2-A3/A6    ;3AA: 4CDF4C04
  376.     UNLK    A5            ;3AE: 4E5D
  377.     RTS                ;3B0: 4E75
  378. LAB_0026:
  379.     LINK    A5,#-20            ;3B2: 4E55FFEC
  380.     MOVEM.L    D2/D7/A2-A3/A6,-(A7)    ;3B6: 48E72132
  381.     MOVEA.L    A0,A3            ;3BA: 2648
  382.     MOVE.L    D0,D7            ;3BC: 2E00
  383.     MOVE.L    A1,-16(A5)        ;3BE: 2B49FFF0
  384.     MOVEA    #$0004,A0        ;3C2: 307C0004
  385.     MOVEA.L    (A0),A1            ;3C6: 2250
  386.     MOVE.L    A1,20(A7)        ;3C8: 2F490014
  387.     MOVEA.L    A1,A6            ;3CC: 2C49
  388.     SUBA.L    A1,A1            ;3CE: 93C9
  389.     JSR    -294(A6)        ;3D0: 4EAEFEDA
  390.     MOVEA.L    D0,A2            ;3D4: 2440
  391.     MOVE.L    172(A2),D0        ;3D6: 202A00AC
  392.     ASL.L    #2,D0            ;3DA: E580
  393. LAB_0027:
  394.     MOVE.L    D0,-8(A5)        ;3DC: 2B40FFF8
  395.     TST.L    D0            ;3E0: 4A80
  396.     BNE    LAB_002E        ;3E2: 66000100
  397.     MOVE.L    A3,D1            ;3E6: 220B
  398.     BEQ    LAB_002E        ;3E8: 670000FA
  399.     MOVEQ    #4,D1            ;3EC: 7204
  400.     MOVEQ    #0,D2            ;3EE: 7400
  401.     MOVEA.L    -16(A5),A6        ;3F0: 2C6DFFF0
  402.     JSR    -228(A6)        ;3F4: 4EAEFF1C
  403.     MOVE.L    D0,-8(A5)        ;3F8: 2B40FFF8
  404.     TST.L    D0            ;3FC: 4A80
  405.     BEQ    LAB_002E        ;3FE: 670000E4
  406.     MOVE.L    D7,D1            ;402: 2207
  407.     ADDQ.L    #3,D1            ;404: 5681
  408.     LSR.L    #2,D1            ;406: E489
  409.     MOVEA.L    D0,A0            ;408: 2040
  410.     MOVE.L    D1,52(A0)        ;40A: 21410034
  411.     MOVE.L    D0,D1            ;40E: 2200
  412.     ASR.L    #2,D1            ;410: E481
  413.     MOVE.L    D1,172(A2)        ;412: 254100AC
  414.     BSET    #2,195(A2)        ;416: 08EA000200C3
  415.     MOVEA.L    20(A7),A6        ;41C: 2C6F0014
  416.     JSR    -132(A6)        ;420: 4EAEFF7C
  417.     MOVEA.L    14(A3),A2        ;424: 246B000E
  418.     MOVE.L    A2,D0            ;428: 200A
  419.     BEQ    LAB_002D        ;42A: 670000B0
  420.     MOVEQ    #3,D0            ;42E: 7003
  421.     AND.B    14(A2),D0        ;430: C02A000E
  422.     TST.B    D0            ;434: 4A00
  423.     BNE    LAB_002D        ;436: 660000A4
  424.     MOVEA.L    16(A2),A2        ;43A: 246A0010
  425.     MOVE.L    A2,D0            ;43E: 200A
  426.     BEQ    LAB_002D        ;440: 6700009A
  427.     MOVEQ    #13,D0            ;444: 700D
  428.     CMP.B    8(A2),D0        ;446: B02A0008
  429.     BNE    LAB_002D        ;44A: 66000090
  430.     MOVE.L    172(A2),D0        ;44E: 202A00AC
  431.     ASL.L    #2,D0            ;452: E580
  432.     MOVEA.L    D0,A2            ;454: 2440
  433.     MOVE.L    A2,D0            ;456: 200A
  434.     BEQ    LAB_002D        ;458: 67000082
  435.     MOVE.L    24(A2),D0        ;45C: 202A0018
  436.     ASL.L    #2,D0            ;460: E580
  437.     MOVEA.L    D0,A3            ;462: 2640
  438.     MOVE.L    A3,D0            ;464: 200B
  439.     BEQ.S    LAB_0028        ;466: 670E
  440.     LEA    1(A3),A0        ;468: 41EB0001
  441.     MOVE.L    A0,D1            ;46C: 2208
  442.     MOVEA.L    -16(A5),A6        ;46E: 2C6DFFF0
  443.     JSR    -582(A6)        ;472: 4EAEFDBA
  444. LAB_0028:
  445.     MOVE.L    8(A2),D0        ;476: 202A0008
  446.     ASL.L    #2,D0            ;47A: E580
  447.     MOVEA.L    D0,A2            ;47C: 2440
  448.     MOVEA.L    -8(A5),A0        ;47E: 206DFFF8
  449.     ADDQ.L    #8,A0            ;482: 5088
  450.     MOVE.L    A0,-12(A5)        ;484: 2B48FFF4
  451.     BRA.S    LAB_002C        ;488: 604E
  452. LAB_0029:
  453.     TST.L    4(A2)            ;48A: 4AAA0004
  454.     BEQ.S    LAB_002B        ;48E: 6742
  455.     MOVEQ    #8,D0            ;490: 7008
  456.     MOVE.L    #$00010001,D1        ;492: 223C00010001
  457.     MOVEA.L    20(A7),A6        ;498: 2C6F0014
  458.     JSR    -684(A6)        ;49C: 4EAEFD54
  459.     MOVEA.L    D0,A3            ;4A0: 2640
  460.     MOVE.L    A3,D0            ;4A2: 200B
  461.     BEQ.S    LAB_002D        ;4A4: 6736
  462.     MOVE.L    4(A2),D1        ;4A6: 222A0004
  463.     MOVEA.L    -16(A5),A6        ;4AA: 2C6DFFF0
  464.     JSR    -96(A6)            ;4AE: 4EAEFFA0
  465.     MOVE.L    D0,4(A3)        ;4B2: 27400004
  466.     BNE.S    LAB_002A        ;4B6: 660C
  467.     MOVEA.L    A3,A1            ;4B8: 224B
  468.     MOVEA.L    20(A7),A6        ;4BA: 2C6F0014
  469.     JSR    -690(A6)        ;4BE: 4EAEFD4E
  470.     BRA.S    LAB_002D        ;4C2: 6018
  471. LAB_002A:
  472.     MOVE.L    A3,D0            ;4C4: 200B
  473.     ASR.L    #2,D0            ;4C6: E480
  474.     MOVEA.L    -12(A5),A0        ;4C8: 206DFFF4
  475.     MOVE.L    D0,(A0)            ;4CC: 2080
  476.     MOVE.L    A3,-12(A5)        ;4CE: 2B4BFFF4
  477. LAB_002B:
  478.     MOVE.L    (A2),D0            ;4D2: 2012
  479.     ASL.L    #2,D0            ;4D4: E580
  480.     MOVEA.L    D0,A2            ;4D6: 2440
  481. LAB_002C:
  482.     MOVE.L    A2,D0            ;4D8: 200A
  483.     BNE.S    LAB_0029        ;4DA: 66AE
  484. LAB_002D:
  485.     MOVEA.L    20(A7),A6        ;4DC: 2C6F0014
  486.     JSR    -138(A6)        ;4E0: 4EAEFF76
  487. LAB_002E:
  488.     MOVE.L    -8(A5),D0        ;4E4: 202DFFF8
  489.     MOVEM.L    (A7)+,D2/D7/A2-A3/A6    ;4E8: 4CDF4C84
  490.     UNLK    A5            ;4EC: 4E5D
  491.     RTS                ;4EE: 4E75
  492. LAB_002F:
  493.     MOVEM.L    A2-A4/A6,-(A7)        ;4F0: 48E7003A
  494.     MOVEA.L    20(A7),A3        ;4F4: 266F0014
  495.     MOVEA.L    24(A7),A0        ;4F8: 206F0018
  496.     LEA    28(A7),A1        ;4FC: 43EF001C
  497.     LEA    LAB_0030(PC),A2        ;500: 45FA0012
  498.     MOVEA.L    ABSEXECBASE,A6        ;504: 2C7900000004
  499.     JSR    -522(A6)        ;50A: 4EAEFDF6
  500.     MOVEM.L    (A7)+,A2-A4/A6        ;50E: 4CDF5C00
  501.     RTS                ;512: 4E75
  502. LAB_0030:
  503.     MOVE.B    D0,(A3)+        ;514: 16C0
  504.     RTS                ;516: 4E75
  505. LAB_0031:
  506.     MOVE.L    A0,D1            ;518: 2208
  507.     BRA.S    LAB_0033        ;51A: 6004
  508. LAB_0032:
  509.     MOVE.B    (A1)+,(A0)+        ;51C: 10D9
  510.     BEQ.S    LAB_0035        ;51E: 6708
  511. LAB_0033:
  512.     SUBQ.L    #1,D0            ;520: 5380
  513.     BCC.S    LAB_0032        ;522: 64F8
  514.     BRA.S    LAB_0036        ;524: 6006
  515. LAB_0034:
  516.     CLR.B    (A0)+            ;526: 4218
  517. LAB_0035:
  518.     SUBQ.L    #1,D0            ;528: 5380
  519.     BCC.S    LAB_0034        ;52A: 64FA
  520. LAB_0036:
  521.     MOVE.L    D1,D0            ;52C: 2001
  522.     RTS                ;52E: 4E75
  523. LAB_0037:
  524.     MOVE.L    A0,D0            ;530: 2008
  525. LAB_0038:
  526.     TST.B    (A0)+            ;532: 4A18
  527.     BNE.S    LAB_0038        ;534: 66FC
  528.     SUBQ.L    #1,A0            ;536: 5388
  529. LAB_0039:
  530.     MOVE.B    (A1)+,(A0)+        ;538: 10D9
  531.     BNE.S    LAB_0039        ;53A: 66FC
  532.     RTS                ;53C: 4E75
  533.     DC.W    $0000            ;53E
  534. LAB_003A:
  535.     MOVEM.L    D2-D3,-(A7)        ;540: 48E73000
  536.     MOVE.L    D0,D2            ;544: 2400
  537.     MOVE.L    D1,D3            ;546: 2601
  538.     SWAP    D2            ;548: 4842
  539.     SWAP    D3            ;54A: 4843
  540.     MULU    D1,D2            ;54C: C4C1
  541.     MULU    D0,D3            ;54E: C6C0
  542.     MULU    D1,D0            ;550: C0C1
  543.     ADD    D3,D2            ;552: D443
  544.     SWAP    D2            ;554: 4842
  545.     CLR    D2            ;556: 4242
  546.     ADD.L    D2,D0            ;558: D082
  547.     MOVEM.L    (A7)+,D2-D3        ;55A: 4CDF000C
  548.     RTS                ;55E: 4E75
  549.  
  550.  
  551.     SECTION S_1,DATA
  552.  
  553. SECSTRT_1:
  554.     DC.L    LAB_0011        ;560: 000002EA
  555.     END
  556.