home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / amiga_virus_collection_research.7z / VIRUSRESEARCH / NEW / CPI_KEYMAKER.ASM < prev    next >
Encoding:
Assembly Source File  |  1999-06-12  |  12.5 KB  |  492 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    LAB_000A        ;000: 61000162        allocate memory
  13.     TST.L    D0            ;004: 4A80
  14.     BEQ    LAB_0000        ;006: 67000050
  15.     BSR    LAB_000D        ;00A: 610001A6        open dos.library
  16.     BSR    LAB_0009        ;00E: 6100013A        open reqtools.library
  17.     TST.L    D0            ;012: 4A80
  18.     BEQ    LAB_0001        ;014: 67000046
  19.     LEA    LAB_0032,A0        ;018: 41F900000482    KeyMaker string
  20.     BSR    LAB_000B        ;01E: 61000162        print string
  21.     BSR    LAB_0004        ;022: 6100009C        open window
  22.     TST.L    D0            ;026: 4A80
  23.     BEQ    LAB_0000        ;028: 6700002E
  24.     CLR.L    D0            ;02C: 4280
  25.     CLR.L    D1            ;02E: 4281
  26.     CLR.L    D2            ;030: 4282
  27.     CLR.L    D3            ;032: 4283
  28.     CLR.L    D4            ;034: 4284
  29.     CLR.L    D5            ;036: 4285
  30.     CLR.L    D6            ;038: 4286
  31.     CLR.L    D7            ;03A: 4287
  32.     SUBA.L    A0,A0            ;03C: 91C8
  33.     SUBA.L    A1,A1            ;03E: 93C9
  34.     SUBA.L    A2,A2            ;040: 95CA
  35.     SUBA.L    A3,A3            ;042: 97CB
  36.     SUBA.L    A4,A4            ;044: 99CC
  37.     SUBA.L    A5,A5            ;046: 9BCD
  38.     BSR    LAB_000E        ;048: 6100018E
  39.     BSR    LAB_0002        ;04C: 6100001E
  40.     BSR    LAB_0008        ;050: 610000DC
  41.     BSR    LAB_0007        ;054: 610000C6
  42. LAB_0000:
  43.     CLR.L    D0            ;058: 4280
  44.     RTS                ;05A: 4E75
  45. LAB_0001:
  46.     LEA    LAB_0039,A0        ;05C: 41F9000004BC
  47.     BSR    LAB_000B        ;062: 6100011E
  48.     JMP    LAB_0000        ;066: 4EF900000058
  49. LAB_0002:
  50.     MOVEA.L    LAB_0025,A6        ;06C: 2C79000003F2
  51.     MOVE.L    #LAB_0042,D1        ;072: 223C000004FA
  52.     MOVE.L    #$000003EE,D2        ;078: 243C000003EE
  53.     JSR    -30(A6)            ;07E: 4EAEFFE2
  54.     TST.L    D0            ;082: 4A80
  55.     BEQ    LAB_0003        ;084: 6700002E
  56.     MOVE.L    D0,D7            ;088: 2E00
  57.     MOVE.L    D0,D1            ;08A: 2200
  58.     MOVE.L    LAB_0027,D2        ;08C: 2439000003FA
  59.     MOVE.L    #$00000800,D3        ;092: 263C00000800
  60.     JSR    -48(A6)            ;098: 4EAEFFD0
  61.     TST.L    D0            ;09C: 4A80
  62.     BEQ    LAB_0003        ;09E: 67000014
  63.     MOVE.L    D7,D1            ;0A2: 2207
  64.     JSR    -36(A6)            ;0A4: 4EAEFFDC
  65.     LEA    LAB_002A,A0        ;0A8: 41F900000426
  66.     BSR    LAB_000B        ;0AE: 610000D2
  67.     RTS                ;0B2: 4E75
  68. LAB_0003:
  69.     LEA    LAB_0029,A0        ;0B4: 41F900000402
  70.     BSR    LAB_000B        ;0BA: 610000C6
  71.     RTS                ;0BE: 4E75
  72. LAB_0004:
  73.     MOVEA.L    LAB_0028,A6        ;0C0: 2C79000003FE    get reqtools
  74.     MOVEA.L    LAB_0027,A1        ;0C6: 2279000003FA    get memory
  75.     ADDA.L    #$00000078,A1        ;0CC: D3FC00000078
  76.     MOVE.L    #$00000022,D0        ;0D2: 203C00000022
  77.     LEA    LAB_002F,A2        ;0D8: 45F900000464
  78.     SUBA.L    A3,A3            ;0DE: 97CB
  79.     SUBA.L    A0,A0            ;0E0: 91C8
  80.     JSR    -72(A6)            ;0E2: 4EAEFFB8
  81.     TST.L    D0            ;0E6: 4A80
  82.     BEQ    LAB_0006        ;0E8: 67000024
  83.     MOVEA.L    LAB_0027,A1        ;0EC: 2279000003FA
  84.     MOVEA.L    A1,A2            ;0F2: 2449
  85.     ADDA.L    #$00000078,A1        ;0F4: D3FC00000078
  86.     ADDA.L    #$000001F4,A2        ;0FA: D5FC000001F4
  87. LAB_0005:
  88.     MOVE.B    (A1)+,(A2)+        ;100: 14D9
  89.     BNE    LAB_0005        ;102: 6600FFFC
  90.     MOVE.L    #$FFFFFFFF,D0        ;106: 203CFFFFFFFF
  91.     RTS                ;10C: 4E75
  92. LAB_0006:
  93.     LEA    LAB_002C,A0        ;10E: 41F900000454
  94.     BSR    LAB_000B        ;114: 6100006C
  95.     CLR.L    D0            ;118: 4280
  96.     RTS                ;11A: 4E75
  97. LAB_0007:
  98.     MOVEA.L    ABSEXECBASE,A6        ;11C: 2C7900000004
  99.     MOVEA.L    LAB_0027,A1        ;122: 2279000003FA
  100.     JSR    -690(A6)        ;128: 4EAEFD4E
  101.     RTS                ;12C: 4E75
  102. LAB_0008:
  103.     MOVEA.L    ABSEXECBASE,A6        ;12E: 2C7900000004
  104.     MOVEA.L    LAB_0028,A1        ;134: 2279000003FE
  105.     JSR    -414(A6)        ;13A: 4EAEFE62
  106.     MOVEA.L    LAB_0025,A1        ;13E: 2279000003F2
  107.     JSR    -414(A6)        ;144: 4EAEFE62
  108.     RTS                ;148: 4E75
  109. LAB_0009:
  110.     MOVEA.L    ABSEXECBASE,A6        ;14A: 2C7900000004
  111.     CLR.L    D0            ;150: 4280
  112.     LEA    LAB_0041+1,A1        ;152: 43F9000004E9
  113.     JSR    -408(A6)        ;158: 4EAEFE68
  114.     MOVE.L    D0,LAB_0028        ;15C: 23C0000003FE
  115.     RTS                ;162: 4E75
  116. LAB_000A:
  117.     MOVEA.L    ABSEXECBASE,A6        ;164: 2C7900000004
  118.     MOVE.L    #$00000800,D0        ;16A: 203C00000800
  119.     MOVE.L    #$00010001,D1        ;170: 223C00010001
  120.     JSR    -684(A6)        ;176: 4EAEFD54
  121.     MOVE.L    D0,LAB_0027        ;17A: 23C0000003FA
  122.     RTS                ;180: 4E75
  123. LAB_000B:
  124.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;182: 48E7FFFE
  125.     MOVEA.L    LAB_0025,A6        ;186: 2C79000003F2
  126.     MOVEA.L    A0,A1            ;18C: 2248
  127.     MOVE.L    #$FFFFFFFF,D3        ;18E: 263CFFFFFFFF
  128. LAB_000C:
  129.     ADDI.L    #$00000001,D3        ;194: 068300000001
  130.     TST.B    (A1)+            ;19A: 4A19
  131.     BNE    LAB_000C        ;19C: 6600FFF6
  132.     MOVE.L    LAB_0026,D1        ;1A0: 2239000003F6
  133.     MOVE.L    A0,D2            ;1A6: 2408
  134.     JSR    -48(A6)            ;1A8: 4EAEFFD0
  135.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;1AC: 4CDF7FFF
  136.     RTS                ;1B0: 4E75
  137. LAB_000D:
  138.     MOVEA.L    ABSEXECBASE,A6        ;1B2: 2C7900000004
  139.     CLR.L    D0            ;1B8: 4280
  140.     LEA    LAB_003E+1,A1        ;1BA: 43F9000004DD
  141.     JSR    -408(A6)        ;1C0: 4EAEFE68
  142.     MOVE.L    D0,LAB_0025        ;1C4: 23C0000003F2
  143.     MOVEA.L    D0,A6            ;1CA: 2C40
  144.     JSR    -60(A6)            ;1CC: 4EAEFFC4
  145.     MOVE.L    D0,LAB_0026        ;1D0: 23C0000003F6
  146.     RTS                ;1D6: 4E75
  147. LAB_000E:
  148.     MOVEA.L    LAB_0027,A0        ;1D8: 2079000003FA
  149.     MOVE.L    #$EFEFBABA,682(A0)    ;1DE: 217CEFEFBABA02AA
  150.     MOVE.L    #$0000BABE,1220(A0)    ;1E6: 217C0000BABE04C4
  151.     MOVE.L    #$0000BEFF,2040(A0)    ;1EE: 217C0000BEFF07F8
  152.     MOVEA.L    LAB_0027,A0        ;1F6: 2079000003FA
  153.     MOVE.L    #$00000000,2000(A0)    ;1FC: 217C0000000007D0
  154.     MOVE.L    #$00000000,2004(A0)    ;204: 217C0000000007D4
  155.     MOVE.L    #$00000000,2008(A0)    ;20C: 217C0000000007D8
  156.     MOVE.L    348(A0),2000(A0)    ;214: 2168015C07D0
  157.     BSR    LAB_000F        ;21A: 61000026
  158.     BSR    LAB_001E        ;21E: 6100016A
  159.     BSR    LAB_001A        ;222: 610000FC
  160.     MOVE.L    D0,D6            ;226: 2C00
  161.     MOVEA.L    LAB_0027,A0        ;228: 2079000003FA
  162.     BSR    LAB_001C        ;22E: 6100011C
  163.     MOVE.L    D0,D7            ;232: 2E00
  164.     TST.L    D0            ;234: 4A80
  165.     BSR    LAB_0018        ;236: 610000C2
  166.     BSR    LAB_0016        ;23A: 610000A4
  167.     TST.L    D0            ;23E: 4A80
  168.     RTS                ;240: 4E75
  169. LAB_000F:
  170.     MOVEM.L    D1-D7/A1-A6,-(A7)    ;242: 48E77F7E
  171.     MOVEA.L    LAB_0027,A0        ;246: 2079000003FA
  172.     MOVE.L    2000(A0),D0        ;24C: 202807D0
  173.     MOVE.L    2004(A0),D1        ;250: 222807D4
  174.     MOVE.L    2008(A0),D2        ;254: 242807D8
  175.     ORI.L    #$0000CCCC,D0        ;258: 00800000CCCC
  176.     ORI.L    #$0000BBBB,D1        ;25E: 00810000BBBB
  177.     ORI.L    #$0000AAAA,D2        ;264: 00820000AAAA
  178.     TST.L    D0            ;26A: 4A80
  179.     BPL.S    LAB_0010        ;26C: 6A02
  180.     NEG.L    D0            ;26E: 4480
  181. LAB_0010:
  182.     TST.L    D1            ;270: 4A81
  183.     BPL.S    LAB_0011        ;272: 6A02
  184.     NEG.L    D1            ;274: 4481
  185. LAB_0011:
  186.     MOVE.L    #$000001F2,D7        ;276: 2E3C000001F2
  187.     LSR.L    #2,D7            ;27C: E48F
  188.     MOVE.L    D0,D6            ;27E: 2C00
  189.     MOVE.L    D1,D4            ;280: 2801
  190.     MOVE.L    D2,D0            ;282: 2002
  191.     MOVEA.L    LAB_0027,A0        ;284: 2079000003FA
  192. LAB_0012:
  193.     MOVE.L    D4,D5            ;28A: 2A04
  194.     SUB.L    D6,D5            ;28C: 9A86
  195.     LSL.L    #4,D6            ;28E: E98E
  196.     ADD.L    D5,D6            ;290: DC85
  197.     LSR.L    #3,D0            ;292: E688
  198.     ADD.L    D6,D0            ;294: D086
  199.     ADD.L    D4,D0            ;296: D084
  200.     SUB.L    D5,D0            ;298: 9085
  201.     LSL.L    #2,D0            ;29A: E588
  202.     EOR    D0,(A0)+        ;29C: B158
  203.     EOR    D6,(A0)+        ;29E: BD58
  204.     DBF    D7,LAB_0012        ;2A0: 51CFFFE8
  205.     SUBI.L    #$00010000,D7        ;2A4: 048700010000
  206.     BCC.S    LAB_0012        ;2AA: 64DE
  207.     MOVEA.L    LAB_0027,A0        ;2AC: 2079000003FA
  208.     MOVE.L    348(A0),D0        ;2B2: 2028015C
  209.     MOVE.L    2000(A0),D1        ;2B6: 222807D0
  210.     BRA.S    LAB_0013        ;2BA: 6018
  211.     MOVE.L    352(A0),D0        ;2BC: 20280160
  212.     MOVE.L    2004(A0),D1        ;2C0: 222807D4
  213.     CMP.L    D0,D1            ;2C4: B280
  214.     BNE.S    LAB_0014        ;2C6: 6610
  215.     MOVE.L    356(A0),D0        ;2C8: 20280164
  216.     MOVE.L    2008(A0),D1        ;2CC: 222807D8
  217.     CMP.L    D0,D1            ;2D0: B280
  218.     BNE.S    LAB_0014        ;2D2: 6604
  219. LAB_0013:
  220.     MOVEQ    #1,D0            ;2D4: 7001
  221.     BRA.S    LAB_0015        ;2D6: 6002
  222. LAB_0014:
  223.     MOVEQ    #0,D0            ;2D8: 7000
  224. LAB_0015:
  225.     MOVEM.L    (A7)+,D1-D7/A1-A6    ;2DA: 4CDF7EFE
  226.     RTS                ;2DE: 4E75
  227. LAB_0016:
  228.     MOVEA.L    LAB_0027,A0        ;2E0: 2079000003FA
  229.     LEA    2024(A0),A0        ;2E6: 41E807E8
  230.     MOVE.L    #$00000017,D0        ;2EA: 203C00000017
  231.     MOVE.L    D7,D1            ;2F0: 2207
  232. LAB_0017:
  233.     EOR.B    D1,(A0)+        ;2F2: B318
  234.     DBF    D0,LAB_0017        ;2F4: 51C8FFFC
  235.     RTS                ;2F8: 4E75
  236. LAB_0018:
  237.     MOVEM.L    D0-D2,-(A7)        ;2FA: 48E7E000
  238.     MOVEA.L    LAB_0027,A0        ;2FE: 2079000003FA
  239.     MOVEQ    #0,D0            ;304: 7000
  240.     MOVEQ    #0,D1            ;306: 7200
  241.     LEA    2000(A0),A0        ;308: 41E807D0
  242.     MOVE.L    #$00000017,D0        ;30C: 203C00000017
  243.     MOVE.L    D6,D1            ;312: 2206
  244. LAB_0019:
  245.     EOR.B    D1,(A0)+        ;314: B318
  246.     DBF    D0,LAB_0019        ;316: 51C8FFFC
  247.     MOVEM.L    (A7)+,D0-D2        ;31A: 4CDF0007
  248.     RTS                ;31E: 4E75
  249. LAB_001A:
  250.     MOVEM.L    D1-D2,-(A7)        ;320: 48E76000
  251.     MOVEA.L    LAB_0027,A0        ;324: 2079000003FA
  252.     MOVEQ    #0,D0            ;32A: 7000
  253.     MOVEQ    #0,D1            ;32C: 7200
  254.     MOVEQ    #0,D2            ;32E: 7400
  255.     LEA    420(A0),A0        ;330: 41E801A4
  256.     MOVE.L    #$00000064,D2        ;334: 243C00000064
  257.     MOVEQ    #0,D0            ;33A: 7000
  258. LAB_001B:
  259.     MOVE.L    (A0)+,D1        ;33C: 2218
  260.     ADD.L    D1,D0            ;33E: D081
  261.     DBF    D2,LAB_001B        ;340: 51CAFFFA
  262.     LSR.L    #2,D0            ;344: E488
  263.     MOVEM.L    (A7)+,D1-D2        ;346: 4CDF0006
  264.     RTS                ;34A: 4E75
  265. LAB_001C:
  266.     MOVEM.L    D1-D2,-(A7)        ;34C: 48E76000
  267.     MOVEA.L    LAB_0027,A0        ;350: 2079000003FA
  268.     MOVEQ    #0,D0            ;356: 7000
  269.     MOVEQ    #0,D1            ;358: 7200
  270.     MOVE.L    #$00000078,D2        ;35A: 243C00000078
  271. LAB_001D:
  272.     MOVE.L    (A0)+,D1        ;360: 2218
  273.     ORI.L    #$FF000000,D1        ;362: 0081FF000000
  274.     ADD.L    D1,D0            ;368: D081
  275.     DBF    D2,LAB_001D        ;36A: 51CAFFF4
  276.     LSR.L    #5,D0            ;36E: EA88
  277.     MOVEM.L    (A7)+,D1-D2        ;370: 4CDF0006
  278.     RTS                ;374: 4E75
  279.     MOVEM.L    D1-D7/A1-A6,-(A7)    ;376: 48E77F7E
  280.     MOVEA.L    LAB_0027,A0        ;37A: 2079000003FA
  281.     MOVEQ    #0,D2            ;380: 7400
  282.     MOVE.L    #$000007FB,D1        ;382: 223C000007FB
  283.     MOVEA.L    A0,A1            ;388: 2248
  284. LAB_001E:
  285.     MOVEA.L    LAB_0027,A0        ;38A: 2079000003FA
  286.     MOVE.L    682(A0),D0        ;390: 202802AA
  287.     MOVE.L    678(A0),D1        ;394: 222802A6
  288.     MOVE.L    #$0000DEFF,D2        ;398: 243C0000DEFF
  289.     MOVE.L    #$0000AC2D,D3        ;39E: 263C0000AC2D
  290.     CMPI.L    #$EFEFBABA,D0        ;3A4: 0C80EFEFBABA
  291.     BEQ.S    LAB_001F        ;3AA: 6720
  292.     CMPI.L    #$FFEEBBAA,D0        ;3AC: 0C80FFEEBBAA
  293.     BEQ.S    LAB_0020        ;3B2: 6728
  294.     CMPI.L    #$EEFFAABB,D0        ;3B4: 0C80EEFFAABB
  295.     BEQ.S    LAB_0021        ;3BA: 6728
  296.     CMPI.L    #$FEFEABAB,D0        ;3BC: 0C80FEFEABAB
  297.     BNE.S    LAB_0023        ;3C2: 662A
  298.     ADD.L    D2,D3            ;3C4: D682
  299.     CMP.L    D3,D1            ;3C6: B283
  300.     BEQ.S    LAB_0022        ;3C8: 6720
  301.     BRA.S    LAB_0023        ;3CA: 6022
  302. LAB_001F:
  303.     SUB.L    D2,D3            ;3CC: 9682
  304.     CMP.L    D3,D1            ;3CE: B283
  305.     MOVE.L    D3,678(A0)        ;3D0: 214302A6
  306.     BRA    LAB_0022        ;3D4: 60000014
  307.     BEQ.S    LAB_0022        ;3D8: 6710
  308.     BRA.S    LAB_0023        ;3DA: 6012
  309. LAB_0020:
  310.     MULS    D2,D3            ;3DC: C7C2
  311.     CMP.L    D3,D1            ;3DE: B283
  312.     BEQ.S    LAB_0022        ;3E0: 6708
  313.     BRA.S    LAB_0023        ;3E2: 600A
  314. LAB_0021:
  315.     DIVS    D2,D3            ;3E4: 87C2
  316.     CMP.L    D3,D1            ;3E6: B283
  317.     BNE.S    LAB_0023        ;3E8: 6604
  318. LAB_0022:
  319.     MOVEQ    #1,D0            ;3EA: 7001
  320.     BRA.S    LAB_0024        ;3EC: 6002
  321. LAB_0023:
  322.     MOVEQ    #0,D0            ;3EE: 7000
  323. LAB_0024:
  324.     RTS                ;3F0: 4E75
  325. LAB_0025:
  326.     ORI.B    #$00,D0            ;3F2: 00000000
  327. LAB_0026:
  328.     ORI.B    #$00,D0            ;3F6: 00000000
  329. LAB_0027:
  330.     ORI.B    #$00,D0            ;3FA: 00000000
  331. LAB_0028:
  332.     ORI.B    #$00,D0            ;3FE: 00000000
  333. LAB_0029:
  334.     NOT    -(A1)            ;402: 4661
  335.     BVS.S    LAB_0031        ;404: 696C
  336.     BCS.S    LAB_0030        ;406: 6564
  337.     DC.W    $2077            ;408
  338.     MOVEQ    #105,D1            ;40A: 7269
  339.     MOVEQ    #105,D2            ;40C: 7469
  340.     DC.W    $6E67            ;40E
  341.     DC.W    $2073            ;410
  342.     MOVEA    (A6),A5            ;412: 3A56
  343.     BVS.S    LAB_0033        ;414: 6972
  344.     DC.W    $7573            ;416
  345.     SUBQ    #7,D3            ;418: 5F43
  346.     DC.W    $6865            ;41A
  347.     DC.W    $636B            ;41C
  348.     BCS.S    LAB_0034        ;41E: 6572
  349.     DC.W    $2E6B            ;420
  350.     DC.W    $6579            ;422
  351.     DC.W    $0A00            ;424
  352. LAB_002A:
  353.     DC.W    $4B65            ;426
  354.     DC.W    $7920            ;428
  355.     BLS.S    LAB_0036        ;42A: 6372
  356.     DC.W    $6561            ;42C
  357.     MOVEQ    #101,D2            ;42E: 7465
  358.     BCC.S    LAB_002B        ;430: 6420
  359.     BSR.S    LAB_0037        ;432: 616E
  360.     BCC.S    LAB_002D        ;434: 6420
  361.     DC.W    $7361            ;436
  362.     MOVEQ    #101,D3            ;438: 7665
  363.     BCC.S    LAB_002E        ;43A: 6420
  364.     MOVEQ    #111,D2            ;43C: 746F
  365.     DC.W    $2073            ;43E
  366.     MOVEA    (A6),A5            ;440: 3A56
  367.     BVS.S    LAB_0038        ;442: 6972
  368.     DC.W    $7573            ;444
  369.     SUBQ    #7,D3            ;446: 5F43
  370.     DC.W    $6865            ;448
  371.     DC.W    $636B            ;44A
  372.     BCS.S    LAB_003A        ;44C: 6572
  373.     DC.W    $2E6B            ;44E
  374.     DC.W    $6579            ;450
  375. LAB_002B:
  376.     DC.W    $0A00            ;452
  377. LAB_002C:
  378.     MOVE.L    USP,A7            ;454: 4E6F
  379. LAB_002D:
  380.     DC.W    $206B            ;456
  381.     DC.W    $6579            ;458
  382.     MOVEA.L    -(A3),A0        ;45A: 2063
  383. LAB_002E:
  384.     MOVEQ    #101,D1            ;45C: 7265
  385.     BSR.S    LAB_003D        ;45E: 6174
  386.     BCS.S    LAB_003B        ;460: 6564
  387.     DC.W    $0A00            ;462
  388. LAB_002F:
  389.     DC.W    $506C            ;464
  390.     DC.W    $6561            ;466
  391.     DC.W    $7365            ;468
  392.     MOVEA.L    -(A5),A0        ;46A: 2065
  393. LAB_0030:
  394.     BGT.S    LAB_003F+2        ;46C: 6E74
  395.     BCS.S    LAB_003F+2        ;46E: 6572
  396.     DC.W    $206E            ;470
  397. LAB_0031:
  398.     DC.W    $616D            ;472
  399.     BCS.S    LAB_0035+2        ;474: 6520
  400.     MOVEQ    #111,D2            ;476: 746F
  401.     DC.W    $2072            ;478
  402.     DC.W    $6567            ;47A
  403.     DC.W    $6973            ;47C
  404.     MOVEQ    #101,D2            ;47E: 7465
  405.     MOVEQ    #0,D1            ;480: 7200
  406. LAB_0032:
  407.     DC.W    $5669            ;482
  408.     MOVEQ    #117,D1            ;484: 7275
  409.     DC.W    $7320            ;486
  410. LAB_0033:
  411.     DC.W    $4368            ;488
  412.     DC.W    $6563            ;48A
  413.     DC.W    $6B65            ;48C
  414.     MOVEQ    #73,D1            ;48E: 7249
  415.     DC.W    $4920            ;490
  416. LAB_0034:
  417.     MOVEQ    #49,D3            ;492: 7631
  418. LAB_0035:
  419.     MOVE.L    32(A1,D3.W),D7        ;494: 2E313020
  420.     DC.W    $6B65            ;498
  421.     DC.W    $7966            ;49A
  422.     BVS.S    LAB_0043        ;49C: 696C
  423. LAB_0036:
  424.     DC.W    $656D            ;49E
  425.     DC.W    $616B            ;4A0
  426. LAB_0037:
  427.     DC.W    $6572            ;4A2
  428.     MOVEA.L    -(A2),A0        ;4A4: 2062
  429.     DC.W    $7920            ;4A6
  430.     DC.W    $4D75            ;4A8
  431.     DC.W    $6368            ;4AA
  432.     BLE.S    LAB_003C        ;4AC: 6F20
  433.     MOVE.L    -(A0),-(A7)        ;4AE: 2F20
  434.     DC.W    $4372            ;4B0
  435.     DC.W    $6F73            ;4B2
  436.     DC.W    $7370            ;4B4
  437. LAB_0038:
  438.     DC.W    $6F69            ;4B6
  439.     DC.W    $6E74            ;4B8
  440.     DC.W    $0A00            ;4BA
  441. LAB_0039:
  442.     SUBQ    #2,24930(A6)        ;4BC: 556E6162
  443. LAB_003A:
  444.     DC.W    $6C65            ;4C0
  445.     DC.W    $2074            ;4C2
  446.     BLE.S    LAB_0040        ;4C4: 6F20
  447. LAB_003B:
  448.     DC.W    $6F70            ;4C6
  449.     DC.W    $656E            ;4C8
  450.     DC.W    $2072            ;4CA
  451.     DC.W    $6571            ;4CC
  452. LAB_003C:
  453.     MOVEQ    #111,D2            ;4CE: 746F
  454.     DC.W    $6F6C            ;4D0
  455.     DC.W    $732E            ;4D2
  456. LAB_003D:
  457.     DC.W    $6C69            ;4D4
  458.     DC.W    $6272            ;4D6
  459.     DC.W    $6172            ;4D8
  460.     DC.W    $790A            ;4DA
  461. LAB_003E:
  462.     ORI    #$6F73,-(A4)        ;4DC: 00646F73
  463. LAB_003F:
  464.     MOVEA.L    26978(A4),A7        ;4E0: 2E6C6962
  465.     MOVEQ    #97,D1            ;4E4: 7261
  466. LAB_0040:
  467.     MOVEQ    #121,D1            ;4E6: 7279
  468. LAB_0041:
  469.     DC.W    $0072            ;4E8
  470.     DC.W    $6571            ;4EA
  471.     MOVEQ    #111,D2            ;4EC: 746F
  472.     DC.W    $6F6C            ;4EE
  473.     DC.W    $732E            ;4F0
  474.     DC.W    $6C69            ;4F2
  475.     DC.W    $6272            ;4F4
  476.     DC.W    $6172            ;4F6
  477.     DC.W    $7900            ;4F8
  478. LAB_0042:
  479.     DC.W    $533A            ;4FA
  480.     DC.W    $5669            ;4FC
  481.     MOVEQ    #117,D1            ;4FE: 7275
  482.     DC.W    $735F            ;500
  483.     DC.W    $4368            ;502
  484.     DC.W    $6563            ;504
  485.     DC.W    $6B65            ;506
  486.     MOVEQ    #46,D1            ;508: 722E
  487. LAB_0043:
  488.     DC.W    $6B65            ;50A
  489.     DC.W    $7900            ;50C
  490.     DC.W    $004C            ;50E
  491.     END
  492.