home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / virusCollection.lzx / VirusCollectie / z / ZIB / LoadWB30-org.asm < prev    next >
Assembly Source File  |  1989-04-28  |  12KB  |  482 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.     SUBA    #$0040,A7        ;000: 9EFC0040
  13.     MOVEM.L    D2-D3/D5-D7/A2-A3/A5-A6,-(A7) ;004: 48E73736
  14.     MOVEA.L    (ABSEXECBASE).W,A5    ;008: 2A780004
  15.     CLR.L    96(A7)            ;00C: 42AF0060
  16.     MOVEQ    #0,D7            ;010: 7E00
  17.     MOVEQ    #0,D6            ;012: 7C00
  18.     MOVEQ    #20,D5            ;014: 7A14
  19.     CLR.L    92(A7)            ;016: 42AF005C
  20.     MOVE.L    A5,48(A7)        ;01A: 2F4D0030
  21.     LEA    LAB_001C(PC),A1        ;01E: 43FA02C8
  22.     MOVEQ    #37,D0            ;022: 7025
  23.     MOVEA.L    A5,A6            ;024: 2C4D
  24.     JSR    -552(A6)        ;026: 4EAEFDD8
  25.     MOVEA.L    D0,A2            ;02A: 2440
  26.     MOVE.L    D0,36(A7)        ;02C: 2F400024
  27.     BNE.S    LAB_0000        ;030: 660E
  28.     MOVEA.L    276(A5),A0        ;032: 206D0114
  29.     MOVEQ    #122,D1            ;036: 727A
  30.     MOVE.L    D1,148(A0)        ;038: 21410094
  31.     BRA    LAB_001B        ;03C: 60000280
  32. LAB_0000:
  33.     LEA    LAB_001D(PC),A1        ;040: 43FA02B2
  34.     MOVEQ    #39,D0            ;044: 7027
  35.     JSR    -552(A6)        ;046: 4EAEFDD8
  36.     MOVE.L    D0,40(A7)        ;04A: 2F400028
  37.     BNE.S    LAB_0001        ;04E: 6618
  38.     LEA    LAB_001E(PC),A0        ;050: 41FA02B4
  39.     MOVE.L    A0,D2            ;054: 2408
  40.     MOVEQ    #122,D1            ;056: 727A
  41.     MOVEA.L    A2,A6            ;058: 2C4A
  42.     JSR    -474(A6)        ;05A: 4EAEFE26
  43.     MOVEQ    #122,D1            ;05E: 727A
  44.     JSR    -462(A6)        ;060: 4EAEFE32
  45.     BRA    LAB_001A        ;064: 60000250
  46. LAB_0001:
  47.     MOVEQ    #23,D0            ;068: 7017
  48.     MOVEQ    #0,D1            ;06A: 7200
  49.     LEA    54(A7),A0        ;06C: 41EF0036
  50. LAB_0002:
  51.     MOVE.B    D1,(A0)+        ;070: 10C1
  52.     DBF    D0,LAB_0002        ;072: 51C8FFFC
  53.     LEA    LAB_001F(PC),A0        ;076: 41FA0296
  54.     MOVE.L    A0,D1            ;07A: 2208
  55.     LEA    54(A7),A0        ;07C: 41EF0036
  56.     MOVE.L    A0,D2            ;080: 2408
  57.     MOVEQ    #0,D3            ;082: 7600
  58.     MOVEA.L    A2,A6            ;084: 2C4A
  59.     JSR    -798(A6)        ;086: 4EAEFCE2
  60.     MOVE.L    D0,44(A7)        ;08A: 2F40002C
  61.     BNE.S    LAB_0003        ;08E: 6614
  62.     JSR    -132(A6)        ;090: 4EAEFF7C
  63.     MOVE.L    D0,D1            ;094: 2200
  64.     LEA    LAB_001E(PC),A0        ;096: 41FA026E
  65.     MOVE.L    A0,D2            ;09A: 2408
  66.     JSR    -474(A6)        ;09C: 4EAEFE26
  67.     BRA    LAB_0019        ;0A0: 6000020A
  68. LAB_0003:
  69.     TST.L    54(A7)            ;0A4: 4AAF0036
  70.     BEQ.S    LAB_0004        ;0A8: 6702
  71.     MOVEQ    #1,D6            ;0AA: 7C01
  72. LAB_0004:
  73.     TST.L    58(A7)            ;0AC: 4AAF003A
  74.     BEQ.S    LAB_0005        ;0B0: 6704
  75.     BSET    #1,D6            ;0B2: 08C60001
  76. LAB_0005:
  77.     TST.L    62(A7)            ;0B6: 4AAF003E
  78.     BEQ.S    LAB_0006        ;0BA: 6704
  79.     BSET    #2,D6            ;0BC: 08C60002
  80. LAB_0006:
  81.     TST.L    66(A7)            ;0C0: 4AAF0042
  82.     BEQ.S    LAB_0007        ;0C4: 6704
  83.     BSET    #3,D6            ;0C6: 08C60003
  84. LAB_0007:
  85.     TST.L    70(A7)            ;0CA: 4AAF0046
  86.     BEQ.S    LAB_0008        ;0CE: 6704
  87.     BSET    #1,D6            ;0D0: 08C60001
  88. LAB_0008:
  89.     TST.L    74(A7)            ;0D4: 4AAF004A
  90.     BEQ.S    LAB_0009        ;0D8: 6704
  91.     BSET    #1,D6            ;0DA: 08C60001
  92. LAB_0009:
  93.     MOVEQ    #0,D5            ;0DE: 7A00
  94.     SUBA.L    A1,A1            ;0E0: 93C9
  95.     MOVEA.L    A5,A6            ;0E2: 2C4D
  96.     JSR    -294(A6)        ;0E4: 4EAEFEDA
  97.     MOVEA.L    D0,A0            ;0E8: 2040
  98.     MOVE.L    172(A0),D1        ;0EA: 222800AC
  99.     ASL.L    #2,D1            ;0EE: E581
  100.     MOVEA.L    D1,A0            ;0F0: 2041
  101.     MOVE.L    A0,D0            ;0F2: 2008
  102.     BEQ.S    LAB_000A        ;0F4: 672C
  103.     TST.L    8(A0)            ;0F6: 4AA80008
  104.     BEQ.S    LAB_000A        ;0FA: 6726
  105.     MOVEA.L    36(A7),A2        ;0FC: 246F0024
  106.     MOVE.L    8(A0),D0        ;100: 20280008
  107.     MOVEA.L    A2,A0            ;104: 204A
  108.     BSR    LAB_0029        ;106: 6100026E
  109.     MOVE.L    D0,D7            ;10A: 2E00
  110.     BNE.S    LAB_000A        ;10C: 6614
  111.     MOVEA.L    A2,A6            ;10E: 2C4A
  112.     JSR    -132(A6)        ;110: 4EAEFF7C
  113.     MOVE.L    D0,D1            ;114: 2200
  114.     LEA    LAB_001E(PC),A0        ;116: 41FA01EE
  115.     MOVE.L    A0,D2            ;11A: 2408
  116.     JSR    -474(A6)        ;11C: 4EAEFE26
  117.     MOVEQ    #10,D5            ;120: 7A0A
  118. LAB_000A:
  119.     MOVEA.L    36(A7),A2        ;122: 246F0024
  120.     MOVEQ    #10,D0            ;126: 700A
  121.     CMP.L    D0,D5            ;128: BA80
  122.     BGE    LAB_0018        ;12A: 6C000176
  123.     TST.L    74(A7)            ;12E: 4AAF004A
  124.     BEQ.S    LAB_000B        ;132: 6720
  125.     LEA    LAB_0022(PC),A1        ;134: 43FA0214
  126.     MOVEQ    #37,D0            ;138: 7025
  127.     MOVEA.L    A5,A6            ;13A: 2C4D
  128.     JSR    -552(A6)        ;13C: 4EAEFDD8
  129.     MOVE.L    D0,96(A7)        ;140: 2F400060
  130.     MOVEA.L    D0,A0            ;144: 2040
  131.     BSR    LAB_0035        ;146: 610002F4
  132.     TST.L    D0            ;14A: 4A80
  133.     BNE.S    LAB_000B        ;14C: 6606
  134.     MOVEQ    #1,D0            ;14E: 7001
  135.     MOVE.L    D0,92(A7)        ;150: 2F40005C
  136. LAB_000B:
  137.     LEA    82(A7),A0        ;154: 41EF0052
  138.     LEA    78(A7),A6        ;158: 4DEF004E
  139.     MOVE.L    A0,(A6)+        ;15C: 2CC8
  140.     CLR.L    (A6)+            ;15E: 429E
  141.     LEA    78(A7),A0        ;160: 41EF004E
  142.     MOVE.L    A0,(A6)+        ;164: 2CC8
  143.     TST.L    70(A7)            ;166: 4AAF0046
  144.     BEQ.S    LAB_000F        ;16A: 6762
  145.     MOVEA.L    (ABSEXECBASE).W,A3    ;16C: 26780004
  146.     MOVEQ    #6,D1            ;170: 7206
  147.     MOVEA.L    A2,A6            ;172: 2C4A
  148.     JSR    -654(A6)        ;174: 4EAEFD72
  149.     MOVEA.L    D0,A5            ;178: 2A40
  150.     TST.L    D0            ;17A: 4A80
  151.     BEQ.S    LAB_000F        ;17C: 6750
  152.     BRA.S    LAB_000E        ;17E: 6032
  153. LAB_000C:
  154.     MOVEQ    #12,D0            ;180: 700C
  155.     MOVE.L    #$00010001,D1        ;182: 223C00010001
  156.     MOVEA.L    A3,A6            ;188: 2C4B
  157.     JSR    -198(A6)        ;18A: 4EAEFF3A
  158.     MOVEA.L    D0,A2            ;18E: 2440
  159.     TST.L    D0            ;190: 4A80
  160.     BEQ.S    LAB_000E        ;192: 671E
  161.     MOVE.L    A5,D1            ;194: 220D
  162.     MOVEA.L    36(A7),A6        ;196: 2C6F0024
  163.     JSR    -672(A6)        ;19A: 4EAEFD60
  164.     TST    D0            ;19E: 4A40
  165.     BEQ.S    LAB_000D        ;1A0: 6704
  166.     MOVE.L    A5,8(A2)        ;1A2: 254D0008
  167. LAB_000D:
  168.     LEA    78(A7),A0        ;1A6: 41EF004E
  169.     MOVEA.L    A2,A1            ;1AA: 224A
  170.     MOVEA.L    A3,A6            ;1AC: 2C4B
  171.     JSR    -240(A6)        ;1AE: 4EAEFF10
  172. LAB_000E:
  173.     MOVEA.L    36(A7),A2        ;1B2: 246F0024
  174.     MOVE.L    A5,D1            ;1B6: 220D
  175.     MOVEQ    #4,D2            ;1B8: 7404
  176.     MOVEA.L    A2,A6            ;1BA: 2C4A
  177.     JSR    -690(A6)        ;1BC: 4EAEFD4E
  178.     MOVEA.L    D0,A5            ;1C0: 2A40
  179.     TST.L    D0            ;1C2: 4A80
  180.     BNE.S    LAB_000C        ;1C4: 66BA
  181.     MOVEQ    #6,D1            ;1C6: 7206
  182.     MOVEA.L    A2,A6            ;1C8: 2C4A
  183.     JSR    -660(A6)        ;1CA: 4EAEFD6C
  184. LAB_000F:
  185.     MOVEQ    #0,D1            ;1CE: 7200
  186.     MOVEA.L    A2,A6            ;1D0: 2C4A
  187.     JSR    -516(A6)        ;1D2: 4EAEFDFC
  188.     MOVEA.L    D0,A2            ;1D6: 2440
  189.     MOVEA.L    36(A7),A5        ;1D8: 2A6F0024
  190.     MOVEQ    #0,D1            ;1DC: 7200
  191.     MOVEA.L    A5,A6            ;1DE: 2C4D
  192.     JSR    -126(A6)        ;1E0: 4EAEFF82
  193.     MOVE.L    D0,D2            ;1E4: 2400
  194.     MOVE.L    D6,D0            ;1E6: 2006
  195.     MOVE.L    D7,D1            ;1E8: 2207
  196.     MOVEA.L    40(A7),A6        ;1EA: 2C6F0028
  197.     JSR    -42(A6)            ;1EE: 4EAEFFD6
  198.     TST.L    D0            ;1F2: 4A80
  199.     BNE.S    LAB_0010        ;1F4: 660E
  200.     MOVE.L    D7,D0            ;1F6: 2007
  201.     MOVEA.L    A5,A0            ;1F8: 204D
  202.     BSR    LAB_0032        ;1FA: 61000202
  203.     MOVEQ    #1,D0            ;1FE: 7001
  204.     MOVE.L    D0,92(A7)        ;200: 2F40005C
  205. LAB_0010:
  206.     MOVE.L    D2,D1            ;204: 2202
  207.     MOVEA.L    A5,A6            ;206: 2C4D
  208.     JSR    -126(A6)        ;208: 4EAEFF82
  209.     MOVE.L    A2,D1            ;20C: 220A
  210.     JSR    -516(A6)        ;20E: 4EAEFDFC
  211.     MOVEA.L    36(A7),A2        ;212: 246F0024
  212.     TST.L    70(A7)            ;216: 4AAF0046
  213.     BEQ.S    LAB_0014        ;21A: 674A
  214.     MOVEA.L    (ABSEXECBASE).W,A5    ;21C: 2A780004
  215.     MOVEQ    #6,D1            ;220: 7206
  216.     MOVEA.L    A2,A6            ;222: 2C4A
  217.     JSR    -654(A6)        ;224: 4EAEFD72
  218.     TST.L    D0            ;228: 4A80
  219.     BEQ.S    LAB_0014        ;22A: 673A
  220.     MOVEA.L    36(A7),A3        ;22C: 266F0024
  221.     BRA.S    LAB_0013        ;230: 6018
  222. LAB_0011:
  223.     MOVE.L    8(A2),D0        ;232: 202A0008
  224.     BEQ.S    LAB_0012        ;236: 6708
  225.     MOVE.L    D0,D1            ;238: 2200
  226.     MOVEA.L    A3,A6            ;23A: 2C4B
  227.     JSR    -678(A6)        ;23C: 4EAEFD5A
  228. LAB_0012:
  229.     MOVEA.L    A2,A1            ;240: 224A
  230.     MOVEQ    #12,D0            ;242: 700C
  231.     MOVEA.L    A5,A6            ;244: 2C4D
  232.     JSR    -210(A6)        ;246: 4EAEFF2E
  233. LAB_0013:
  234.     LEA    78(A7),A0        ;24A: 41EF004E
  235.     MOVEA.L    A5,A6            ;24E: 2C4D
  236.     JSR    -258(A6)        ;250: 4EAEFEFE
  237.     MOVEA.L    D0,A2            ;254: 2440
  238.     TST.L    D0            ;256: 4A80
  239.     BNE.S    LAB_0011        ;258: 66D8
  240.     MOVEA.L    36(A7),A2        ;25A: 246F0024
  241.     MOVEQ    #6,D1            ;25E: 7206
  242.     MOVEA.L    A2,A6            ;260: 2C4A
  243.     JSR    -660(A6)        ;262: 4EAEFD6C
  244. LAB_0014:
  245.     MOVEA.L    48(A7),A5        ;266: 2A6F0030
  246.     TST.L    74(A7)            ;26A: 4AAF004A
  247.     BEQ.S    LAB_0017        ;26E: 672A
  248.     MOVEQ    #0,D2            ;270: 7400
  249.     MOVEA.L    96(A7),A3        ;272: 266F0060
  250.     MOVE.L    A3,D0            ;276: 200B
  251.     BEQ.S    LAB_0015        ;278: 670E
  252.     LEA    LAB_0026(PC),A0        ;27A: 41FA00F0
  253.     MOVEA.L    A3,A6            ;27E: 2C4B
  254.     JSR    -138(A6)        ;280: 4EAEFF76
  255.     MOVE    D0,D2            ;284: 3400
  256.     EXT.L    D2            ;286: 48C2
  257. LAB_0015:
  258.     TST.L    D2            ;288: 4A82
  259.     BNE.S    LAB_0016        ;28A: 6606
  260.     MOVEQ    #1,D0            ;28C: 7001
  261.     MOVE.L    D0,92(A7)        ;28E: 2F40005C
  262. LAB_0016:
  263.     MOVEA.L    A3,A1            ;292: 224B
  264.     MOVEA.L    A5,A6            ;294: 2C4D
  265.     JSR    -414(A6)        ;296: 4EAEFE62
  266. LAB_0017:
  267.     TST.L    92(A7)            ;29A: 4AAF005C
  268.     BEQ.S    LAB_0018        ;29E: 6702
  269.     MOVEQ    #5,D5            ;2A0: 7A05
  270. LAB_0018:
  271.     MOVE.L    44(A7),D1        ;2A2: 222F002C
  272.     MOVEA.L    A2,A6            ;2A6: 2C4A
  273.     JSR    -858(A6)        ;2A8: 4EAEFCA6
  274. LAB_0019:
  275.     MOVEA.L    40(A7),A1        ;2AC: 226F0028
  276.     MOVEA.L    A5,A6            ;2B0: 2C4D
  277.     JSR    -414(A6)        ;2B2: 4EAEFE62
  278. LAB_001A:
  279.     MOVEA.L    A2,A1            ;2B6: 224A
  280.     MOVEA.L    A5,A6            ;2B8: 2C4D
  281.     JSR    -414(A6)        ;2BA: 4EAEFE62
  282. LAB_001B:
  283.     MOVE.L    D5,D0            ;2BE: 2005
  284.     MOVEM.L    (A7)+,D2-D3/D5-D7/A2-A3/A5-A6 ;2C0: 4CDF6CEC
  285.     ADDA    #$0040,A7        ;2C4: DEFC0040
  286.     RTS                ;2C8: 4E75
  287.     MOVEA.L    (A6),A2            ;2CA: 2456
  288.     DC.W    $4552            ;2CC
  289.     MOVE    -(A0),D5        ;2CE: 3A20
  290.     DC.W    $6C6F            ;2D0
  291.     BSR.S    LAB_0021+2        ;2D2: 6164
  292.     DC.W    $7762            ;2D4
  293.     DC.W    $2034            ;2D6
  294.     MOVE    12832(A6),D1        ;2D8: 322E3220
  295.     DC.W    $2832            ;2DC
  296.     MOVE    14126(A6),-(A1)        ;2DE: 332E372E
  297.     DC.W    $3936            ;2E2
  298.     MOVE.L    A2,-(A4)        ;2E4: 290A
  299.     BTST    D6,D0            ;2E6: 0D00
  300. LAB_001C:
  301.     DC.W    $646F            ;2E8
  302.     DC.W    $732E            ;2EA
  303.     DC.W    $6C69            ;2EC
  304.     BHI.S    LAB_0024        ;2EE: 6272
  305.     BSR.S    LAB_0025        ;2F0: 6172
  306.     DC.W    $7900            ;2F2
  307. LAB_001D:
  308.     DC.W    $776F            ;2F4
  309.     MOVEQ    #107,D1            ;2F6: 726B
  310.     DC.W    $6265            ;2F8
  311.     DC.W    $6E63            ;2FA
  312.     BVC.S    LAB_0020        ;2FC: 682E
  313.     DC.W    $6C69            ;2FE
  314.     BHI.S    LAB_0028        ;300: 6272
  315.     BSR.S    LAB_0029        ;302: 6172
  316.     DC.W    $7900            ;304
  317. LAB_001E:
  318.     DC.W    $6C6F            ;306
  319.     BSR.S    LAB_0027        ;308: 6164
  320.     DC.W    $7762            ;30A
  321.     DC.W    $0000            ;30C
  322. LAB_001F:
  323.     NEG    D5            ;30E: 4445
  324.     CLR    (A5)            ;310: 4255
  325.     DC.W    $473D            ;312
  326.     MOVE.L    D4,17730(A6)        ;314: 2D444542
  327.     SUBQ    #2,D7            ;318: 5547
  328.     MOVE.L    (A3),11332(A7)        ;31A: 2F532C44
  329.     DC.W    $454C            ;31E
  330.     DC.W    $4159            ;320
  331.     DC.W    $2F53            ;322
  332.     MOVEA.L    D3,A6            ;324: 2C43
  333.     DC.W    $4C45            ;326
  334.     DC.W    $414E            ;328
  335.     SUBQ    #2,(A0)            ;32A: 5550
  336. LAB_0020:
  337.     MOVE.L    (A3),11342(A7)        ;32C: 2F532C4E
  338.     DC.W    $4557            ;330
  339.     ADDQ    #8,D1            ;332: 5041
  340.     ADDQ    #2,A0            ;334: 5448
  341. LAB_0021:
  342.     MOVE.L    (A3),11336(A7)        ;336: 2F532C48
  343.     DC.W    $4944            ;33A
  344.     DC.W    $452F            ;33C
  345.     SUBQ.B    #1,21057(A4)        ;33E: 532C5241
  346.     DC.W    $4D49            ;342
  347.     DC.W    $434F            ;344
  348.     DC.W    $4E2F            ;346
  349.     SUBQ.B    #1,D0            ;348: 5300
  350. LAB_0022:
  351.     DC.W    $6963            ;34A
  352.     BLE.S    LAB_002B+2        ;34C: 6F6E
  353.     MOVEA.L    26978(A4),A7        ;34E: 2E6C6962
  354.     MOVEQ    #97,D1            ;352: 7261
  355.     MOVEQ    #121,D1            ;354: 7279
  356.     DC.W    $0000            ;356
  357. LAB_0023:
  358.     DC.W    $454E            ;358
  359.     DC.W    $563A            ;35A
  360.     DC.W    $5379            ;35C
  361.     DC.W    $732F            ;35E
  362.     DC.W    $6465            ;360
  363. LAB_0024:
  364.     DC.W    $665F            ;362
  365. LAB_0025:
  366.     MOVEQ    #97,D1            ;364: 7261
  367.     BLT.S    LAB_002C+2        ;366: 6D64
  368.     DC.W    $6973            ;368
  369.     DC.W    $6B00            ;36A
  370. LAB_0026:
  371.     ADDQ    #1,D1            ;36C: 5241
  372. LAB_0027:
  373.     DC.W    $4D3A            ;36E
  374.     DC.W    $4469            ;370
  375.     DC.W    $736B            ;372
  376. LAB_0028:
  377.     DC.W    $0000            ;374
  378. LAB_0029:
  379.     SUBA    #$000C,A7        ;376: 9EFC000C
  380.     MOVEM.L    D7/A2-A3/A5-A6,-(A7)    ;37A: 48E70136
  381.     MOVE.L    A0,28(A7)        ;37E: 2F48001C
  382.     MOVEA.L    (ABSEXECBASE).W,A1    ;382: 22780004
  383.     SUBA.L    A5,A5            ;386: 9BCD
  384.     SUBA.L    A3,A3            ;388: 97CB
  385.     MOVEQ    #0,D7            ;38A: 7E00
  386.     MOVE.L    D0,24(A7)        ;38C: 2F400018
  387.     ASL.L    #2,D0            ;390: E580
  388.     MOVEA.L    D0,A2            ;392: 2440
  389.     MOVE.L    A1,20(A7)        ;394: 2F490014
  390.     BRA.S    LAB_002E        ;398: 603E
  391. LAB_002A:
  392.     MOVEA.L    20(A7),A6        ;39A: 2C6F0014
  393.     MOVEQ    #8,D0            ;39E: 7008
  394.     MOVE.L    #$00010001,D1        ;3A0: 223C00010001
  395.     JSR    -198(A6)        ;3A6: 4EAEFF3A
  396.     MOVEA.L    D0,A5            ;3AA: 2A40
  397.     TST.L    D0            ;3AC: 4A80
  398.     BEQ.S    LAB_002D        ;3AE: 6722
  399.     MOVE.L    A5,D1            ;3B0: 220D
  400.     ASR.L    #2,D1            ;3B2: E481
  401.     MOVE.L    A3,D0            ;3B4: 200B
  402.     BEQ.S    LAB_002B+2        ;3B6: 6704
  403.     MOVE.L    D1,(A3)            ;3B8: 2681
  404. LAB_002B:
  405.     CMPI    #$2E01,D0        ;3BA: 0C402E01
  406.     MOVE.L    4(A2),D1        ;3BE: 222A0004
  407.     MOVEA.L    28(A7),A6        ;3C2: 2C6F001C
  408.     JSR    -96(A6)            ;3C6: 4EAEFFA0
  409. LAB_002C:
  410.     MOVE.L    D0,4(A5)        ;3CA: 2B400004
  411.     BEQ.S    LAB_002F        ;3CE: 670C
  412.     MOVEA.L    A5,A3            ;3D0: 264D
  413. LAB_002D:
  414.     MOVE.L    (A2),D0            ;3D2: 2012
  415.     ASL.L    #2,D0            ;3D4: E580
  416.     MOVEA.L    D0,A2            ;3D6: 2440
  417. LAB_002E:
  418.     MOVE.L    A2,D0            ;3D8: 200A
  419.     BNE.S    LAB_002A        ;3DA: 66BE
  420. LAB_002F:
  421.     MOVE.L    A5,D0            ;3DC: 200D
  422.     BEQ.S    LAB_0030        ;3DE: 6706
  423.     TST.L    4(A5)            ;3E0: 4AAD0004
  424.     BNE.S    LAB_0031        ;3E4: 660C
  425. LAB_0030:
  426.     MOVE.L    D7,D0            ;3E6: 2007
  427.     MOVEA.L    28(A7),A0        ;3E8: 206F001C
  428.     BSR    LAB_0032        ;3EC: 61000010
  429.     MOVEQ    #0,D7            ;3F0: 7E00
  430. LAB_0031:
  431.     MOVE.L    D7,D0            ;3F2: 2007
  432.     MOVEM.L    (A7)+,D7/A2-A3/A5-A6    ;3F4: 4CDF6C80
  433.     ADDA    #$000C,A7        ;3F8: DEFC000C
  434.     RTS                ;3FC: 4E75
  435. LAB_0032:
  436.     SUBQ    #4,A7            ;3FE: 594F
  437.     MOVEM.L    A2-A3/A5-A6,-(A7)    ;400: 48E70036
  438.     MOVE.L    A0,16(A7)        ;404: 2F480010
  439.     MOVEA.L    (ABSEXECBASE).W,A5    ;408: 2A780004
  440.     ASL.L    #2,D0            ;40C: E580
  441.     MOVEA.L    D0,A3            ;40E: 2640
  442.     BRA.S    LAB_0034        ;410: 601E
  443. LAB_0033:
  444.     MOVEA.L    A3,A2            ;412: 244B
  445.     MOVE.L    (A2),D0            ;414: 2012
  446.     ASL.L    #2,D0            ;416: E580
  447.     MOVEA.L    D0,A3            ;418: 2640
  448.     MOVE.L    4(A2),D1        ;41A: 222A0004
  449.     MOVEA.L    16(A7),A6        ;41E: 2C6F0010
  450.     JSR    -90(A6)            ;422: 4EAEFFA6
  451.     MOVEA.L    A2,A1            ;426: 224A
  452.     MOVEQ    #8,D0            ;428: 7008
  453.     MOVEA.L    A5,A6            ;42A: 2C4D
  454.     JSR    -210(A6)        ;42C: 4EAEFF2E
  455. LAB_0034:
  456.     MOVE.L    A3,D0            ;430: 200B
  457.     BNE.S    LAB_0033        ;432: 66DE
  458.     MOVEM.L    (A7)+,A2-A3/A5-A6    ;434: 4CDF6C00
  459.     ADDQ    #4,A7            ;438: 584F
  460.     RTS                ;43A: 4E75
  461. LAB_0035:
  462.     MOVEM.L    D7/A6,-(A7)        ;43C: 48E70102
  463.     MOVEA.L    A0,A1            ;440: 2248
  464.     MOVEQ    #0,D7            ;442: 7E00
  465.     MOVE.L    A1,D0            ;444: 2009
  466.     BEQ.S    LAB_0036        ;446: 671C
  467.     LEA    LAB_0023(PC),A0        ;448: 41FAFF0E
  468.     MOVEA.L    A1,A6            ;44C: 2C49
  469.     JSR    -78(A6)            ;44E: 4EAEFFB2
  470.     TST.L    D0            ;452: 4A80
  471.     BEQ.S    LAB_0036        ;454: 670E
  472.     MOVEA.L    D0,A1            ;456: 2240
  473.     LEA    LAB_0026(PC),A0        ;458: 41FAFF12
  474.     JSR    -84(A6)            ;45C: 4EAEFFAC
  475.     MOVE    D0,D7            ;460: 3E00
  476.     EXT.L    D7            ;462: 48C7
  477. LAB_0036:
  478.     MOVE.L    D7,D0            ;464: 2007
  479.     MOVEM.L    (A7)+,D7/A6        ;466: 4CDF4080
  480.     RTS                ;46A: 4E75
  481.     END
  482.