home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / virusCollection.lzx / VirusResearch / zakapior / PoolMem / MemoryMess.asm < prev    next >
Assembly Source File  |  1984-05-04  |  18KB  |  688 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    #$0014,A7        ;000: 9EFC0014
  13.     MOVEM.L    D2/D6-D7/A4/A6,-(A7)    ;004: 48E7230A
  14.     LEA    SECSTRT_1,A4        ;008: 49F900000618
  15.     MOVEA.L    (ABSEXECBASE).W,A1    ;00E: 22780004
  16.     MOVE.L    A1,164(A4)        ;012: 294900A4
  17.     LEA    44(A4),A1        ;016: 43EC002C
  18.     MOVEA.L    164(A4),A6        ;01A: 2C6C00A4
  19.     MOVEQ    #37,D0            ;01E: 7025
  20.     JSR    -552(A6)        ;020: 4EAEFDD8
  21.     MOVEQ    #0,D7            ;024: 7E00
  22.     MOVE.L    D0,168(A4)        ;026: 294000A8
  23.     BEQ    LAB_0011        ;02A: 6700021C
  24.     LEA    20(A7),A0        ;02E: 41EF0014
  25.     MOVE.L    A0,D1            ;032: 2208
  26.     MOVEA.L    D0,A6            ;034: 2C40
  27.     JSR    -192(A6)        ;036: 4EAEFF40
  28.     LEA    28(A7),A6        ;03A: 4DEF001C
  29.     MOVE.L    (A6)+,D0        ;03E: 201E
  30.     MOVE    D0,(A6)+        ;040: 3CC0
  31.     SWAP    D0            ;042: 4840
  32.     EXT.L    D0            ;044: 48C0
  33.     MOVE    D0,(A6)+        ;046: 3CC0
  34.     MOVE.L    24(A7),D0        ;048: 202F0018
  35.     MOVE    D0,(A6)+        ;04C: 3CC0
  36.     LEA    32(A7),A0        ;04E: 41EF0020
  37.     BSR    LAB_0016        ;052: 610002F2
  38.     MOVEA.L    164(A4),A6        ;056: 2C6C00A4
  39.     MOVEQ    #0,D1            ;05A: 7200
  40.     JSR    -216(A6)        ;05C: 4EAEFF28
  41.     MOVE.L    D0,172(A4)        ;060: 294000AC
  42.     LEA    56(A4),A0        ;064: 41EC0038
  43.     MOVE.L    A0,D1            ;068: 2208
  44.     MOVEA.L    168(A4),A6        ;06A: 2C6C00A8
  45.     JSR    -954(A6)        ;06E: 4EAEFC46
  46. LAB_0000:
  47.     BSR    LAB_001B        ;072: 61000480
  48.     MOVE.L    D0,D6            ;076: 2C00
  49.     ANDI.L    #$00003FFF,D6        ;078: 028600003FFF
  50.     CMPI.L    #$000009C4,184(A4)    ;07E: 0CAC000009C400B8
  51.     BLS.S    LAB_0001        ;086: 6306
  52.     MOVEQ    #72,D0            ;088: 7048
  53.     LSL.L    #7,D0            ;08A: EF88
  54.     BRA.S    LAB_0002        ;08C: 6004
  55. LAB_0001:
  56.     MOVEQ    #104,D0            ;08E: 7068
  57.     LSL.L    #6,D0            ;090: ED88
  58. LAB_0002:
  59.     CMP.L    D0,D6            ;092: BC80
  60.     BLE    LAB_000B        ;094: 6F0000EA
  61.     CMPI.L    #$00000000,172(A4)    ;098: 0CAC0000000000AC
  62.     BLS    LAB_000B        ;0A0: 630000DE
  63.     BSR    LAB_001B        ;0A4: 6100044E
  64.     MOVEQ    #0,D6            ;0A8: 7C00
  65.     ANDI.L    #$00007000,D0        ;0AA: 028000007000
  66.     BEQ.S    LAB_0003        ;0B0: 673A
  67.     SUBI.L    #$00001000,D0        ;0B2: 048000001000
  68.     BEQ.S    LAB_0003        ;0B8: 6732
  69.     SUBI.L    #$00001000,D0        ;0BA: 048000001000
  70.     BEQ.S    LAB_0003        ;0C0: 672A
  71.     SUBI.L    #$00001000,D0        ;0C2: 048000001000
  72.     BEQ.S    LAB_0003        ;0C8: 6722
  73.     SUBI.L    #$00001000,D0        ;0CA: 048000001000
  74.     BEQ.S    LAB_0004        ;0D0: 6726
  75.     SUBI.L    #$00001000,D0        ;0D2: 048000001000
  76.     BEQ.S    LAB_0005        ;0D8: 672A
  77.     SUBI.L    #$00001000,D0        ;0DA: 048000001000
  78.     BEQ.S    LAB_0006        ;0E0: 6736
  79.     SUBI.L    #$00001000,D0        ;0E2: 048000001000
  80.     BEQ.S    LAB_0007        ;0E8: 6742
  81.     BRA.S    LAB_0009        ;0EA: 6054
  82. LAB_0003:
  83.     MOVEQ    #64,D0            ;0EC: 7040
  84.     LSL.L    #2,D0            ;0EE: E588
  85.     BSR    LAB_0012        ;0F0: 61000162
  86.     MOVE.L    D0,D7            ;0F4: 2E00
  87.     BRA.S    LAB_0009        ;0F6: 6048
  88. LAB_0004:
  89.     MOVEQ    #64,D0            ;0F8: 7040
  90.     LSL.L    #3,D0            ;0FA: E788
  91.     BSR    LAB_0012        ;0FC: 61000156
  92.     MOVE.L    D0,D7            ;100: 2E00
  93.     BRA.S    LAB_0009        ;102: 603C
  94. LAB_0005:
  95.     MOVEQ    #64,D0            ;104: 7040
  96.     LSL.L    #5,D0            ;106: EB88
  97.     BSR    LAB_0012        ;108: 6100014A
  98.     MOVE.L    D0,D7            ;10C: 2E00
  99.     BSR    LAB_001B        ;10E: 610003E4
  100.     MOVEQ    #3,D1            ;112: 7203
  101.     MOVE.L    D0,D6            ;114: 2C00
  102.     BRA.S    LAB_0008        ;116: 6026
  103. LAB_0006:
  104.     MOVE.L    172(A4),D0        ;118: 202C00AC
  105.     BSR    LAB_0012        ;11C: 61000136
  106.     MOVE.L    D0,D7            ;120: 2E00
  107.     BSR    LAB_001B        ;122: 610003D0
  108.     MOVEQ    #31,D1            ;126: 721F
  109.     MOVE.L    D0,D6            ;128: 2C00
  110.     BRA.S    LAB_0008        ;12A: 6012
  111. LAB_0007:
  112.     MOVE.L    172(A4),D0        ;12C: 202C00AC
  113.     BSR    LAB_0012        ;130: 61000122
  114.     MOVE.L    D0,D7            ;134: 2E00
  115.     BSR    LAB_001B        ;136: 610003BC
  116.     MOVEQ    #7,D1            ;13A: 7207
  117.     MOVE.L    D0,D6            ;13C: 2C00
  118. LAB_0008:
  119.     AND.L    D1,D6            ;13E: CC81
  120. LAB_0009:
  121.     TST.L    D6            ;140: 4A86
  122.     BEQ.S    LAB_000A        ;142: 6702
  123.     ASR.L    D6,D7            ;144: ECA7
  124. LAB_000A:
  125.     ANDI    #$FFF8,D7        ;146: 0247FFF8
  126.     TST.L    D7            ;14A: 4A87
  127.     BLE.S    LAB_000C        ;14C: 6F6A
  128.     CMP.L    172(A4),D7        ;14E: BEAC00AC
  129.     BHI.S    LAB_000C        ;152: 6264
  130.     MOVE.L    D7,D0            ;154: 2007
  131.     MOVEQ    #1,D1            ;156: 7201
  132.     MOVEA.L    164(A4),A6        ;158: 2C6C00A4
  133.     JSR    -198(A6)        ;15C: 4EAEFF3A
  134.     TST.L    D0            ;160: 4A80
  135.     BEQ.S    LAB_000C        ;162: 6754
  136.     MOVEA.L    D0,A0            ;164: 2040
  137.     MOVE.L    40(A4),(A0)        ;166: 20AC0028
  138.     MOVE.L    D7,4(A0)        ;16A: 21470004
  139.     MOVE.L    D0,40(A4)        ;16E: 29400028
  140.     ADDQ.L    #1,180(A4)        ;172: 52AC00B4
  141.     SUB.L    D7,172(A4)        ;176: 9FAC00AC
  142.     ADD.L    D7,176(A4)        ;17A: DFAC00B0
  143.     BRA.S    LAB_000C        ;17E: 6038
  144. LAB_000B:
  145.     MOVE.L    180(A4),D0        ;180: 202C00B4
  146.     MOVEQ    #0,D1            ;184: 7200
  147.     CMP.L    D1,D0            ;186: B081
  148.     BLS.S    LAB_000C        ;188: 632E
  149.     BSR    LAB_0012        ;18A: 610000C8
  150.     MOVE.L    D0,D7            ;18E: 2E00
  151.     BSR    LAB_0013        ;190: 610000D6
  152.     MOVEA.L    D0,A1            ;194: 2240
  153.     MOVEA.L    (A1),A0            ;196: 2051
  154.     LEA    (A0),A6            ;198: 4DD0
  155.     MOVE.L    (A6)+,(A1)        ;19A: 229E
  156.     MOVE.L    (A6),D0            ;19C: 2016
  157.     ADD.L    D0,172(A4)        ;19E: D1AC00AC
  158.     MOVE.L    (A6),D0            ;1A2: 2016
  159.     SUB.L    D0,176(A4)        ;1A4: 91AC00B0
  160.     MOVEA.L    A0,A1            ;1A8: 2248
  161.     MOVE.L    (A6)+,D0        ;1AA: 201E
  162.     MOVEA.L    164(A4),A6        ;1AC: 2C6C00A4
  163.     JSR    -210(A6)        ;1B0: 4EAEFF2E
  164.     SUBQ.L    #1,180(A4)        ;1B4: 53AC00B4
  165. LAB_000C:
  166.     ADDQ.L    #1,184(A4)        ;1B8: 52AC00B8
  167.     MOVEQ    #64,D1            ;1BC: 7240
  168.     LSL.L    #7,D1            ;1BE: EF89
  169.     MOVEA.L    168(A4),A6        ;1C0: 2C6C00A8
  170.     JSR    -792(A6)        ;1C4: 4EAEFCE8
  171.     TST.L    D0            ;1C8: 4A80
  172.     BEQ.S    LAB_000D        ;1CA: 6718
  173.     MOVE.L    180(A4),-(A7)        ;1CC: 2F2C00B4
  174.     MOVE.L    176(A4),-(A7)        ;1D0: 2F2C00B0
  175.     LEA    86(A4),A0        ;1D4: 41EC0056
  176.     MOVE.L    A7,D2            ;1D8: 240F
  177.     MOVE.L    A0,D1            ;1DA: 2208
  178.     JSR    -954(A6)        ;1DC: 4EAEFC46
  179.     LEA    8(A7),A7        ;1E0: 4FEF0008
  180. LAB_000D:
  181.     CMPI.L    #$00001388,184(A4)    ;1E4: 0CAC0000138800B8
  182.     BLS.S    LAB_000E        ;1EC: 6304
  183.     CLR.L    184(A4)            ;1EE: 42AC00B8
  184. LAB_000E:
  185.     MOVEQ    #64,D1            ;1F2: 7240
  186.     LSL.L    #6,D1            ;1F4: ED89
  187.     MOVEA.L    168(A4),A6        ;1F6: 2C6C00A8
  188.     JSR    -792(A6)        ;1FA: 4EAEFCE8
  189.     TST.L    D0            ;1FE: 4A80
  190.     BEQ    LAB_0000        ;200: 6700FE70
  191.     LEA    124(A4),A0        ;204: 41EC007C
  192.     MOVE.L    A0,D1            ;208: 2208
  193.     MOVEA.L    168(A4),A6        ;20A: 2C6C00A8
  194.     JSR    -954(A6)        ;20E: 4EAEFC46
  195.     BRA.S    LAB_0010        ;212: 6016
  196. LAB_000F:
  197.     MOVEA.L    40(A4),A0        ;214: 206C0028
  198.     MOVE.L    (A0),40(A4)        ;218: 29500028
  199.     MOVEA.L    A0,A1            ;21C: 2248
  200.     MOVE.L    4(A0),D0        ;21E: 20280004
  201.     MOVEA.L    164(A4),A6        ;222: 2C6C00A4
  202.     JSR    -210(A6)        ;226: 4EAEFF2E
  203. LAB_0010:
  204.     TST.L    40(A4)            ;22A: 4AAC0028
  205.     BNE.S    LAB_000F        ;22E: 66E4
  206.     LEA    136(A4),A0        ;230: 41EC0088
  207.     MOVE.L    A0,D1            ;234: 2208
  208.     MOVEA.L    168(A4),A6        ;236: 2C6C00A8
  209.     JSR    -954(A6)        ;23A: 4EAEFC46
  210.     MOVEA.L    A6,A1            ;23E: 224E
  211.     MOVEA.L    164(A4),A6        ;240: 2C6C00A4
  212.     JSR    -414(A6)        ;244: 4EAEFE62
  213. LAB_0011:
  214.     MOVEQ    #0,D0            ;248: 7000
  215.     MOVEM.L    (A7)+,D2/D6-D7/A4/A6    ;24A: 4CDF50C4
  216.     ADDA    #$0014,A7        ;24E: DEFC0014
  217.     RTS                ;252: 4E75
  218. LAB_0012:
  219.     MOVE.L    D7,-(A7)        ;254: 2F07
  220.     MOVE.L    D0,D7            ;256: 2E00
  221.     BSR    LAB_001B        ;258: 6100029A
  222.     MOVE.L    D7,D1            ;25C: 2207
  223.     BSR    LAB_001E        ;25E: 61000326
  224.     MOVE.L    D1,D0            ;262: 2001
  225.     MOVE.L    (A7)+,D7        ;264: 2E1F
  226.     RTS                ;266: 4E75
  227. LAB_0013:
  228.     MOVE.L    A5,-(A7)        ;268: 2F0D
  229.     LEA    40(A4),A5        ;26A: 4BEC0028
  230.     BRA.S    LAB_0015        ;26E: 6004
  231. LAB_0014:
  232.     SUBQ.L    #1,D0            ;270: 5380
  233.     MOVEA.L    (A5),A5            ;272: 2A55
  234. LAB_0015:
  235.     TST.L    D0            ;274: 4A80
  236.     BGT.S    LAB_0014        ;276: 6EF8
  237.     MOVE.L    A5,D0            ;278: 200D
  238.     MOVEA.L    (A7)+,A5        ;27A: 2A5F
  239.     RTS                ;27C: 4E75
  240.     NOP                ;27E: 4E71
  241.     MOVEA.L    4(A7),A0        ;280: 206F0004
  242.     MOVEQ    #0,D0            ;284: 7000
  243.     MOVE    4(A0),D0        ;286: 30280004
  244.     MOVE.L    D0,D1            ;28A: 2200
  245.     LSR.L    #1,D1            ;28C: E289
  246.     DC.W    $F201            ;28E
  247.     NEGX.B    D0            ;290: 4000
  248.     DC.W    $F201            ;292
  249.     NEGX.B    -(A2)            ;294: 4022
  250.     MOVEQ    #1,D1            ;296: 7201
  251.     AND.L    D0,D1            ;298: C280
  252.     DC.W    $F201            ;29A
  253.     NEGX.B    -(A2)            ;29C: 4022
  254.     MOVEQ    #0,D0            ;29E: 7000
  255.     MOVE    2(A0),D0        ;2A0: 30280002
  256.     DC.W    $F23C            ;2A4
  257.     ADDQ.B    #2,-(A0)        ;2A6: 5420
  258.     MOVE    SR,0(A0,D0.W)        ;2A8: 40F00000
  259.     ORI.B    #$00,D0            ;2AC: 00000000
  260.     MOVE.L    D0,D1            ;2B0: 2200
  261.     LSR.L    #1,D1            ;2B2: E289
  262.     DC.W    $F201            ;2B4
  263.     NEGX.L    D0            ;2B6: 4080
  264.     DC.W    $F201            ;2B8
  265.     NEGX.L    -(A2)            ;2BA: 40A2
  266.     MOVEQ    #1,D1            ;2BC: 7201
  267.     AND.L    D0,D1            ;2BE: C280
  268.     DC.W    $F201            ;2C0
  269.     NEGX.L    -(A2)            ;2C2: 40A2
  270.     MOVEQ    #0,D0            ;2C4: 7000
  271.     MOVE    (A0),D0            ;2C6: 3010
  272.     DC.W    $F200            ;2C8
  273.     ORI.L    #$2200E289,-(A2)    ;2CA: 00A22200E289
  274.     DC.W    $F23C            ;2D0
  275.     ADDQ.L    #2,-(A0)        ;2D2: 54A0
  276.     MOVE    SR,0(A0,D0.W)        ;2D4: 40F00000
  277.     ORI.B    #$00,D0            ;2D8: 00000000
  278.     DC.W    $F201            ;2DC
  279.     NEGX.B    D0            ;2DE: 4000
  280.     DC.W    $F201            ;2E0
  281.     NEGX.B    -(A2)            ;2E2: 4022
  282.     MOVEQ    #1,D1            ;2E4: 7201
  283.     AND.L    D0,D1            ;2E6: C280
  284.     DC.W    $F201            ;2E8
  285.     NEGX.B    -(A2)            ;2EA: 4022
  286.     DC.W    $F200            ;2EC
  287.     DC.W    $0422            ;2EE
  288.     DC.W    $F23C            ;2F0
  289.     ADDQ.B    #2,-(A0)        ;2F2: 5420
  290.     MOVE    SR,0(A0,D0.W)        ;2F4: 40F00000
  291.     ORI.B    #$00,D0            ;2F8: 00000000
  292.     RTS                ;2FC: 4E75
  293.     MOVE.L    4(A7),D0        ;2FE: 202F0004
  294.     SUBQ    #8,A7            ;302: 514F
  295.     MOVE.L    D0,D1            ;304: 2200
  296.     SWAP    D0            ;306: 4840
  297.     EXT.L    D0            ;308: 48C0
  298.     SWAP    D0            ;30A: 4840
  299.     CLR    D0            ;30C: 4240
  300.     SWAP    D0            ;30E: 4840
  301.     LEA    2(A7),A1        ;310: 43EF0002
  302.     MOVE    D0,(A1)+        ;314: 32C0
  303.     SWAP    D1            ;316: 4841
  304.     CLR    D1            ;318: 4241
  305.     SWAP    D1            ;31A: 4841
  306.     MOVE    D1,(A1)+        ;31C: 32C1
  307.     MOVE    #$330E,(A1)+        ;31E: 32FC330E
  308.     SUBA.L    A1,A1            ;322: 93C9
  309.     SUBA.L    A0,A0            ;324: 91C8
  310.     CLR.L    -(A7)            ;326: 42A7
  311.     MOVEQ    #5,D0            ;328: 7005
  312.     BSR    LAB_0017        ;32A: 6100004E
  313.     CLR.L    (A7)            ;32E: 4297
  314.     SUBA.L    A1,A1            ;330: 93C9
  315.     LEA    6(A7),A0        ;332: 41EF0006
  316.     MOVEQ    #2,D0            ;336: 7002
  317.     BSR    LAB_0017        ;338: 61000040
  318.     ADDQ    #4,A7            ;33C: 584F
  319.     ADDQ    #8,A7            ;33E: 504F
  320.     RTS                ;340: 4E75
  321.     MOVEA.L    4(A7),A0        ;342: 206F0004
  322. LAB_0016:
  323.     MOVE.L    A5,-(A7)        ;346: 2F0D
  324.     MOVEA.L    A0,A5            ;348: 2A48
  325.     SUBA.L    A0,A0            ;34A: 91C8
  326.     SUBA.L    A1,A1            ;34C: 93C9
  327.     CLR.L    -(A7)            ;34E: 42A7
  328.     MOVEQ    #5,D0            ;350: 7005
  329.     BSR    LAB_0017        ;352: 61000026
  330.     SUBA.L    A1,A1            ;356: 93C9
  331.     CLR.L    (A7)            ;358: 4297
  332.     MOVEQ    #4,D0            ;35A: 7004
  333.     MOVEA.L    A5,A0            ;35C: 204D
  334.     BSR    LAB_0017        ;35E: 6100001A
  335.     ADDQ    #4,A7            ;362: 584F
  336.     MOVEA.L    (A7)+,A5        ;364: 2A5F
  337.     RTS                ;366: 4E75
  338.     MOVE.L    4(A7),D0        ;368: 202F0004
  339.     MOVEA.L    8(A7),A0        ;36C: 206F0008
  340.     MOVEA.L    12(A7),A1        ;370: 226F000C
  341.     MOVE.L    16(A7),4(A7)        ;374: 2F6F00100004
  342. LAB_0017:
  343.     MOVEM.L    A2-A3/A5,-(A7)        ;37A: 48E70034
  344.     MOVE.L    D0,D1            ;37E: 2200
  345.     MOVEQ    #0,D0            ;380: 7000
  346.     MOVE.B    D1,D0            ;382: 1001
  347.     CMPI.L    #$00000006,D0        ;384: 0C8000000006
  348.     MOVEA.L    16(A7),A2        ;38A: 246F0010
  349.     BCC    LAB_0019        ;38E: 64000094
  350.     DC.W    $303B            ;392
  351.     DC.W    $0206            ;394
  352.     JMP    LAB_0018(PC,D0.W)    ;396: 4EFB0004
  353.     DC.W    $000A            ;39A
  354. LAB_0018:
  355.     ORI.B    #$48,58(A0)        ;39C: 00280048003A
  356.     ORI    #$0074,(A6)        ;3A2: 00560074
  357.     LEA    150(A4),A5        ;3A6: 4BEC0096
  358.     LEA    (A0),A3            ;3AA: 47D0
  359.     MOVE    (A5)+,(A3)+        ;3AC: 36DD
  360.     MOVE    (A5)+,(A3)+        ;3AE: 36DD
  361.     MOVE    (A5)+,(A3)+        ;3B0: 36DD
  362.     LEA    156(A4),A5        ;3B2: 4BEC009C
  363.     LEA    (A1),A3            ;3B6: 47D1
  364.     MOVE    (A5)+,(A3)+        ;3B8: 36DD
  365.     MOVE    (A5)+,(A3)+        ;3BA: 36DD
  366.     MOVE    (A5)+,(A3)+        ;3BC: 36DD
  367.     MOVE    162(A4),(A2)        ;3BE: 34AC00A2
  368.     BRA.S    LAB_0019        ;3C2: 6060
  369.     LEA    156(A4),A5        ;3C4: 4BEC009C
  370.     LEA    (A1),A3            ;3C8: 47D1
  371.     MOVE    (A5)+,(A3)+        ;3CA: 36DD
  372.     MOVE    (A5)+,(A3)+        ;3CC: 36DD
  373.     MOVE    (A5)+,(A3)+        ;3CE: 36DD
  374.     MOVE    162(A4),(A2)        ;3D0: 34AC00A2
  375.     BRA.S    LAB_0019        ;3D4: 604E
  376.     LEA    (A1),A5            ;3D6: 4BD1
  377.     LEA    156(A4),A3        ;3D8: 47EC009C
  378.     MOVE    (A5)+,(A3)+        ;3DC: 36DD
  379.     MOVE    (A5)+,(A3)+        ;3DE: 36DD
  380.     MOVE    (A5)+,(A3)+        ;3E0: 36DD
  381.     MOVE    (A2),(A3)+        ;3E2: 36D2
  382.     LEA    (A0),A5            ;3E4: 4BD0
  383.     LEA    150(A4),A3        ;3E6: 47EC0096
  384.     MOVE    (A5)+,(A3)+        ;3EA: 36DD
  385.     MOVE    (A5)+,(A3)+        ;3EC: 36DD
  386.     MOVE    (A5)+,(A3)+        ;3EE: 36DD
  387.     BRA.S    LAB_0019        ;3F0: 6032
  388.     LEA    150(A4),A5        ;3F2: 4BEC0096
  389.     LEA    144(A4),A3        ;3F6: 47EC0090
  390.     MOVE    (A5)+,(A3)+        ;3FA: 36DD
  391.     MOVE    (A5)+,(A3)+        ;3FC: 36DD
  392.     MOVE    (A5)+,(A3)+        ;3FE: 36DD
  393.     LEA    (A0),A5            ;400: 4BD0
  394.     MOVE    (A5)+,(A3)+        ;402: 36DD
  395.     MOVE    (A5)+,(A3)+        ;404: 36DD
  396.     MOVE    (A5)+,(A3)+        ;406: 36DD
  397.     LEA    144(A4),A0        ;408: 41EC0090
  398.     MOVE.L    A0,D0            ;40C: 2008
  399.     BRA.S    LAB_0019        ;40E: 6014
  400.     LEA    156(A4),A5        ;410: 4BEC009C
  401.     MOVE    #$0005,(A5)+        ;414: 3AFC0005
  402.     MOVE    #$DEEC,(A5)+        ;418: 3AFCDEEC
  403.     MOVE    #$E66D,(A5)+        ;41C: 3AFCE66D
  404.     MOVE    #$000B,(A5)+        ;420: 3AFC000B
  405. LAB_0019:
  406.     MOVEM.L    (A7)+,A2-A3/A5        ;424: 4CDF2C00
  407.     RTS                ;428: 4E75
  408.     MOVEA.L    4(A7),A0        ;42A: 206F0004
  409.     MOVEA.L    8(A7),A1        ;42E: 226F0008
  410.     MOVE.L    12(A7),D0        ;432: 202F000C
  411.     MOVE.L    16(A7),4(A7)        ;436: 2F6F00100004
  412. LAB_001A:
  413.     SUBA    #$0014,A7        ;43C: 9EFC0014
  414.     MOVEM.L    D2-D7/A5,-(A7)        ;440: 48E73F04
  415.     LEA    (A0),A5            ;444: 4BD0
  416.     MOVE.L    D0,D7            ;446: 2E00
  417.     MOVE    (A5)+,D0        ;448: 301D
  418.     MOVE    4(A1),D1        ;44A: 32290004
  419.     MULU    D1,D0            ;44E: C0C1
  420.     MOVE    2(A1),D2        ;450: 34290002
  421.     MOVE.L    D2,D3            ;454: 2602
  422.     MOVE    (A5)+,D4        ;456: 381D
  423.     MULU    D4,D3            ;458: C6C4
  424.     MOVE    (A1),D5            ;45A: 3A11
  425.     MOVE    (A5)+,D6        ;45C: 3C1D
  426.     MULU    D6,D5            ;45E: CAC6
  427.     MOVEQ    #0,D2            ;460: 7400
  428.     MOVE    D0,D2            ;462: 3400
  429.     MULU    D1,D4            ;464: C8C1
  430.     MULU    D6,D1            ;466: C2C6
  431.     ADD.L    D7,D1            ;468: D287
  432.     MOVE.L    D1,D0            ;46A: 2001
  433.     SWAP    D0            ;46C: 4840
  434.     EXT.L    D0            ;46E: 48C0
  435.     MOVE.L    #$0000FFFF,D6        ;470: 2C3C0000FFFF
  436.     AND.L    D6,D0            ;476: C086
  437.     MOVE    4(A0),D6        ;478: 3C280004
  438.     MULU    2(A1),D6        ;47C: CCE90002
  439.     ADD.L    D0,D6            ;480: DC80
  440.     MOVE.L    D6,D0            ;482: 2006
  441.     MOVE.L    D1,42(A7)        ;484: 2F41002A
  442.     AND.L    #$0000FFFF,D0        ;488: C0BC0000FFFF
  443.     ADD.L    D4,D0            ;48E: D084
  444.     MOVE.L    D0,D4            ;490: 2800
  445.     SWAP    D4            ;492: 4844
  446.     MOVEA.L    52(A7),A0        ;494: 206F0034
  447.     EXT.L    D4            ;498: 48C4
  448.     AND.L    #$0000FFFF,D4        ;49A: C8BC0000FFFF
  449.     MOVEQ    #0,D1            ;4A0: 7200
  450.     MOVE    D3,D1            ;4A2: 3203
  451.     SWAP    D6            ;4A4: 4846
  452.     LEA    (A0),A5            ;4A6: 4BD0
  453.     EXT.L    D6            ;4A8: 48C6
  454.     AND.L    #$0000FFFF,D6        ;4AA: CCBC0000FFFF
  455.     MOVEQ    #0,D3            ;4B0: 7600
  456.     MOVE    D5,D3            ;4B2: 3605
  457.     ADD.L    D6,D3            ;4B4: D686
  458.     ANDI.L    #$000FFFFF,D3        ;4B6: 0283000FFFFF
  459.     ADD.L    D1,D3            ;4BC: D681
  460.     ADD.L    D4,D3            ;4BE: D684
  461.     MOVE.L    #$0000FFFF,D1        ;4C0: 223C0000FFFF
  462.     AND.L    D1,D3            ;4C6: C681
  463.     ADD.L    D2,D3            ;4C8: D682
  464.     AND.L    D1,D3            ;4CA: C681
  465.     AND.L    D1,D3            ;4CC: C681
  466.     MOVE    D3,(A5)+        ;4CE: 3AC3
  467.     SWAP    D0            ;4D0: 4840
  468.     CLR    D0            ;4D2: 4240
  469.     SWAP    D0            ;4D4: 4840
  470.     MOVE    D0,(A5)+        ;4D6: 3AC0
  471.     MOVE.L    42(A7),D2        ;4D8: 242F002A
  472.     AND.L    D1,D2            ;4DC: C481
  473.     ADD.L    D0,D2            ;4DE: D480
  474.     SWAP    D2            ;4E0: 4842
  475.     CLR    D2            ;4E2: 4242
  476.     SWAP    D2            ;4E4: 4842
  477.     MOVE    D2,(A5)+        ;4E6: 3AC2
  478.     MOVEM.L    (A7)+,D2-D7/A5        ;4E8: 4CDF20FC
  479.     ADDA    #$0014,A7        ;4EC: DEFC0014
  480.     RTS                ;4F0: 4E75
  481.     NOP                ;4F2: 4E71
  482. LAB_001B:
  483.     SUBA    #$0014,A7        ;4F4: 9EFC0014
  484.     PEA    6(A7)            ;4F8: 486F0006
  485.     MOVEQ    #0,D0            ;4FC: 7000
  486.     LEA    18(A7),A0        ;4FE: 41EF0012
  487.     LEA    12(A7),A1        ;502: 43EF000C
  488.     BSR    LAB_0017        ;506: 6100FE72
  489.     MOVEQ    #0,D0            ;50A: 7000
  490.     MOVE    10(A7),D0        ;50C: 302F000A
  491.     PEA    4(A7)            ;510: 486F0004
  492.     LEA    22(A7),A0        ;514: 41EF0016
  493.     LEA    16(A7),A1        ;518: 43EF0010
  494.     BSR    LAB_001A        ;51C: 6100FF1E
  495.     CLR.L    (A7)            ;520: 4297
  496.     SUBA.L    A1,A1            ;522: 93C9
  497.     LEA    8(A7),A0        ;524: 41EF0008
  498.     MOVEQ    #2,D0            ;528: 7002
  499.     BSR    LAB_0017        ;52A: 6100FE4E
  500.     MOVEQ    #0,D0            ;52E: 7000
  501.     MOVE    12(A7),D0        ;530: 302F000C
  502.     MOVEQ    #0,D1            ;534: 7200
  503.     MOVE    10(A7),D1        ;536: 322F000A
  504.     SWAP    D1            ;53A: 4841
  505.     CLR    D1            ;53C: 4241
  506.     OR.L    D0,D1            ;53E: 8280
  507.     ANDI.L    #$7FFFFFFF,D1        ;540: 02817FFFFFFF
  508.     ADDQ    #8,A7            ;546: 504F
  509.     MOVE.L    D1,D0            ;548: 2001
  510.     ADDA    #$0014,A7        ;54A: DEFC0014
  511.     RTS                ;54E: 4E75
  512.     RTS                ;550: 4E75
  513.     NOP                ;552: 4E71
  514.     TST.L    D0            ;554: 4A80
  515.     BPL    LAB_001D        ;556: 6A00001E
  516.     NEG.L    D0            ;55A: 4480
  517.     TST.L    D1            ;55C: 4A81
  518.     BPL    LAB_001C        ;55E: 6A00000C
  519.     NEG.L    D1            ;562: 4481
  520.     BSR    LAB_001E        ;564: 61000020
  521.     NEG.L    D1            ;568: 4481
  522.     RTS                ;56A: 4E75
  523. LAB_001C:
  524.     BSR    LAB_001E        ;56C: 61000018
  525.     NEG.L    D0            ;570: 4480
  526.     NEG.L    D1            ;572: 4481
  527.     RTS                ;574: 4E75
  528. LAB_001D:
  529.     TST.L    D1            ;576: 4A81
  530.     BPL    LAB_001E        ;578: 6A00000C
  531.     NEG.L    D1            ;57C: 4481
  532.     BSR    LAB_001E        ;57E: 61000006
  533.     NEG.L    D0            ;582: 4480
  534.     RTS                ;584: 4E75
  535. LAB_001E:
  536.     MOVE.L    D2,-(A7)        ;586: 2F02
  537.     SWAP    D1            ;588: 4841
  538.     MOVE    D1,D2            ;58A: 3401
  539.     BNE    LAB_0020        ;58C: 66000022
  540.     SWAP    D0            ;590: 4840
  541.     SWAP    D1            ;592: 4841
  542.     SWAP    D2            ;594: 4842
  543.     MOVE    D0,D2            ;596: 3400
  544.     BEQ    LAB_001F        ;598: 67000006
  545.     DIVU    D1,D2            ;59C: 84C1
  546.     MOVE    D2,D0            ;59E: 3002
  547. LAB_001F:
  548.     SWAP    D0            ;5A0: 4840
  549.     MOVE    D0,D2            ;5A2: 3400
  550.     DIVU    D1,D2            ;5A4: 84C1
  551.     MOVE    D2,D0            ;5A6: 3002
  552.     SWAP    D2            ;5A8: 4842
  553.     MOVE    D2,D1            ;5AA: 3202
  554.     MOVE.L    (A7)+,D2        ;5AC: 241F
  555.     RTS                ;5AE: 4E75
  556. LAB_0020:
  557.     MOVE.L    D3,-(A7)        ;5B0: 2F03
  558.     MOVEQ    #16,D3            ;5B2: 7610
  559.     CMPI    #$0100,D1        ;5B4: 0C410100
  560.     BCC    LAB_0021        ;5B8: 64000006
  561.     ROL.L    #8,D1            ;5BC: E199
  562.     SUBQ    #8,D3            ;5BE: 5143
  563. LAB_0021:
  564.     CMPI    #$1000,D1        ;5C0: 0C411000
  565.     BCC    LAB_0022        ;5C4: 64000006
  566.     ROL.L    #4,D1            ;5C8: E999
  567.     SUBQ    #4,D3            ;5CA: 5943
  568. LAB_0022:
  569.     CMPI    #$4000,D1        ;5CC: 0C414000
  570.     BCC    LAB_0023        ;5D0: 64000006
  571.     ROL.L    #2,D1            ;5D4: E599
  572.     SUBQ    #2,D3            ;5D6: 5543
  573. LAB_0023:
  574.     TST    D1            ;5D8: 4A41
  575.     BMI    LAB_0024        ;5DA: 6B000006
  576.     ROL.L    #1,D1            ;5DE: E399
  577.     SUBQ    #1,D3            ;5E0: 5343
  578. LAB_0024:
  579.     MOVE    D0,D2            ;5E2: 3400
  580.     LSR.L    D3,D0            ;5E4: E6A8
  581.     SWAP    D2            ;5E6: 4842
  582.     CLR    D2            ;5E8: 4242
  583.     LSR.L    D3,D2            ;5EA: E6AA
  584.     SWAP    D3            ;5EC: 4843
  585.     DIVU    D1,D0            ;5EE: 80C1
  586.     MOVE    D0,D3            ;5F0: 3600
  587.     MOVE    D2,D0            ;5F2: 3002
  588.     MOVE    D3,D2            ;5F4: 3403
  589.     SWAP    D1            ;5F6: 4841
  590.     MULU    D1,D2            ;5F8: C4C1
  591.     SUB.L    D2,D0            ;5FA: 9082
  592.     BCC    LAB_0025        ;5FC: 64000006
  593.     SUBQ    #1,D3            ;600: 5343
  594.     ADD.L    D1,D0            ;602: D081
  595. LAB_0025:
  596.     MOVEQ    #0,D1            ;604: 7200
  597.     MOVE    D3,D1            ;606: 3203
  598.     SWAP    D3            ;608: 4843
  599.     ROL.L    D3,D0            ;60A: E7B8
  600.     SWAP    D0            ;60C: 4840
  601.     EXG    D0,D1            ;60E: C141
  602.     MOVE.L    (A7)+,D3        ;610: 261F
  603.     MOVE.L    (A7)+,D2        ;612: 241F
  604.     RTS                ;614: 4E75
  605.     DC.W    $0000            ;616
  606.  
  607.  
  608.     SECTION S_1,DATA
  609.  
  610. SECSTRT_1:
  611.     DC.W    $2456            ;618
  612.     DC.W    $4552            ;61A
  613.     DC.W    $3A20            ;61C
  614.     DC.W    $4D65            ;61E
  615.     DC.W    $6D6F            ;620
  616.     DC.W    $7279            ;622
  617.     DC.W    $4D65            ;624
  618.     DC.W    $7373            ;626
  619.     DC.W    $2031            ;628
  620.     DC.W    $2E30            ;62A
  621.     DC.W    $3020            ;62C
  622.     DC.W    $2830            ;62E
  623.     DC.W    $372E            ;630
  624.     DC.W    $3033            ;632
  625.     DC.W    $2E39            ;634
  626.     DC.W    $3829            ;636
  627.     DC.W    $20A9            ;638
  628.     DC.W    $2054            ;63A
  629.     DC.W    $484F            ;63C
  630.     DC.W    $5200            ;63E
  631.     DS.W    2            ;640
  632.     DC.W    $646F            ;644
  633.     DC.W    $732E            ;646
  634.     DC.W    $6C69            ;648
  635.     DC.W    $6272            ;64A
  636.     DC.W    $6172            ;64C
  637.     DC.W    $7900            ;64E
  638.     DC.W    $5374            ;650
  639.     DC.W    $6172            ;652
  640.     DC.W    $7420            ;654
  641.     DC.W    $6D65            ;656
  642.     DC.W    $7373            ;658
  643.     DC.W    $696E            ;65A
  644.     DC.W    $6720            ;65C
  645.     DC.W    $7468            ;65E
  646.     DC.W    $6520            ;660
  647.     DC.W    $6D65            ;662
  648.     DC.W    $6D6F            ;664
  649.     DC.W    $7279            ;666
  650.     DC.W    $2E2E            ;668
  651.     DC.W    $2E2E            ;66A
  652.     DC.W    $0A00            ;66C
  653.     DC.W    $486F            ;66E
  654.     DC.W    $6C64            ;670
  655.     DC.W    $696E            ;672
  656.     DC.W    $6720            ;674
  657.     DC.W    $3078            ;676
  658.     DC.W    $2530            ;678
  659.     DC.W    $386C            ;67A
  660.     DC.W    $7820            ;67C
  661.     DC.W    $6279            ;67E
  662.     DC.W    $7465            ;680
  663.     DC.W    $7320            ;682
  664.     DC.W    $696E            ;684
  665.     DC.W    $2025            ;686
  666.     DC.W    $6C64            ;688
  667.     DC.W    $2062            ;68A
  668.     DC.W    $6C6F            ;68C
  669.     DC.W    $636B            ;68E
  670.     DC.W    $732E            ;690
  671.     DC.W    $0A00            ;692
  672.     DC.W    $2A2A            ;694
  673.     DC.W    $2A20            ;696
  674.     DC.W    $4272            ;698
  675.     DC.W    $6561            ;69A
  676.     DC.W    $6B0A            ;69C
  677.     DS.W    1            ;69E
  678.     DC.W    $446F            ;6A0
  679.     DC.W    $6E65            ;6A2
  680.     DC.W    $2E0A            ;6A4
  681.     DS.W    7            ;6A6
  682.     DC.W    $0005            ;6B4
  683.     DC.W    $DEEC            ;6B6
  684.     DC.W    $E66D            ;6B8
  685.     DC.W    $000B            ;6BA
  686.     DS.W    12            ;6BC
  687.     END
  688.