home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / source / driver / util / amiga / sfast_cp.omdd < prev    next >
Encoding:
Text File  |  1991-07-10  |  27.5 KB  |  447 lines
  1. Lattice AMIGA 68000-68020 OBJ Module Disassembler V5.04.039
  2. Copyright © 1988, 1989 Lattice Inc.  All Rights Reserved.
  3.  
  4.  
  5. Amiga Object File Loader V1.00
  6. 68000 Instruction Set
  7.  
  8. EXTERNAL DEFINITIONS
  9.  
  10. @SetChar 0000-00    @SetRule 02BC-00
  11.  
  12. SECTION 00 "sfast_cp.c" 000004A4 BYTES
  13.        | 0000  4E55 FFC8                      LINK      A5,#FFC8
  14.        | 0004  48E7 3F32                      MOVEM.L   D2-D7/A2-A3/A6,-(A7)
  15.        | 0008  206C  0000-XX.2                MOVEA.L   _cfontptr(A4),A0
  16.        | 000C  2668 0414                      MOVEA.L   0414(A0),A3
  17.        | 0010  2E00                           MOVE.L    D0,D7
  18.        | 0012  2B40 FFD8                      MOVE.L    D0,FFD8(A5)
  19.        | 0016  2007                           MOVE.L    D7,D0
  20.        | 0018  2B41 FFDC                      MOVE.L    D1,FFDC(A5)
  21.        | 001C  720A                           MOVEQ     #0A,D1
  22.        | 001E  4EBA  0000-XX.1                JSR       __CXM33(PC)
  23.        | 0022  224B                           MOVEA.L   A3,A1
  24.        | 0024  D3C0                           ADDA.L    D0,A1
  25.        | 0026  4DE9 0024                      LEA       0024(A1),A6
  26.        | 002A  2F4E 0030                      MOVE.L    A6,0030(A7)
  27.        | 002E  70FF                           MOVEQ     #FF,D0
  28.        | 0030  B0AE 0002                      CMP.L     0002(A6),D0
  29.        | 0034  666E                           BNE.B     00A4
  30.        | 0036  0CAD 0000 0083 FFDC            CMPI.L    #00000083,FFDC(A5)
  31.        | 003E  6E00 0244                      BGT.W     0284
  32.        | 0042  2007                           MOVE.L    D7,D0
  33.        | 0044  7200                           MOVEQ     #00,D1
  34.        | 0046  4601                           NOT.B     D1
  35.        | 0048  C081                           AND.L     D1,D0
  36.        | 004A  E580                           ASL.L     #2,D0
  37.        | 004C  2E00                           MOVE.L    D0,D7
  38.        | 004E  4A28 0418                      TST.B     0418(A0)
  39.        | 0052  6624                           BNE.B     0078
  40.        | 0054  2268 0414                      MOVEA.L   0414(A0),A1
  41.        | 0058  2F49 0024                      MOVE.L    A1,0024(A7)
  42.        | 005C  206F 0024                      MOVEA.L   0024(A7),A0
  43.        | 0060  2250                           MOVEA.L   (A0),A1
  44.        | 0062  D3C7                           ADDA.L    D7,A1
  45.        | 0064  2011                           MOVE.L    (A1),D0
  46.        | 0066  206C  0000-XX.2                MOVEA.L   _cfontptr(A4),A0
  47.        | 006A  2228 0008                      MOVE.L    0008(A0),D1
  48.        | 006E  4EBA  0000-XX.1                JSR       @scalewidth(PC)
  49.        | 0072  D1AC  0000-XX.2                ADD.L     D0,_h(A4)
  50.        | 0076  600C                           BRA.B     0084
  51.        | 0078  2248                           MOVEA.L   A0,A1
  52.        | 007A  D3C7                           ADDA.L    D7,A1
  53.        | 007C  2029 0014                      MOVE.L    0014(A1),D0
  54.        | 0080  D1AC  0000-XX.2                ADD.L     D0,_h(A4)
  55.        | 0084  202C  0000-XX.2                MOVE.L    _hconv(A4),D0
  56.        | 0088  2200                           MOVE.L    D0,D1
  57.        | 008A  E281                           ASR.L     #1,D1
  58.        | 008C  242C  0000-XX.2                MOVE.L    _h(A4),D2
  59.        | 0090  D481                           ADD.L     D1,D2
  60.        | 0092  2002                           MOVE.L    D2,D0
  61.        | 0094  222C  0000-XX.2                MOVE.L    _hconv(A4),D1
  62.        | 0098  4EBA  0000-XX.1                JSR       __CXD33(PC)
  63.        | 009C  2940  0000-XX.2                MOVE.L    D0,_hh(A4)
  64.        | 00A0  6000 01E2                      BRA.W     0284
  65.        | 00A4  206F 0030                      MOVEA.L   0030(A7),A0
  66.        | 00A8  2468 0006                      MOVEA.L   0006(A0),A2
  67.        | 00AC  200A                           MOVE.L    A2,D0
  68.        | 00AE  6632                           BNE.B     00E2
  69.        | 00B0  102B 0A26                      MOVE.B    0A26(A3),D0
  70.        | 00B4  7203                           MOVEQ     #03,D1
  71.        | 00B6  B001                           CMP.B     D1,D0
  72.        | 00B8  6704                           BEQ.B     00BE
  73.        | 00BA  5500                           SUBQ.B    #2,D0
  74.        | 00BC  6608                           BNE.B     00C6
  75.        | 00BE  206C  0000-XX.2                MOVEA.L   _cfontptr(A4),A0
  76.        | 00C2  4EBA  0000-XX.1                JSR       @Load_really(PC)
  77.        | 00C6  202D FFD8                      MOVE.L    FFD8(A5),D0
  78.        | 00CA  48C0                           EXT.L     D0
  79.        | 00CC  206C  0000-XX.2                MOVEA.L   _cfontptr(A4),A0
  80.        | 00D0  4EBA  0000-XX.1                JSR       @unpack_char(PC)
  81.        | 00D4  206F 0030                      MOVEA.L   0030(A7),A0
  82.        | 00D8  2468 0006                      MOVEA.L   0006(A0),A2
  83.        | 00DC  200A                           MOVE.L    A2,D0
  84.        | 00DE  6700 012E                      BEQ.W     020E
  85.        | 00E2  202C  0000-XX.2                MOVE.L    _hh(A4),D0
  86.        | 00E6  90AA 0004                      SUB.L     0004(A2),D0
  87.        | 00EA  D0AC  0000-XX.2                ADD.L     _hoffset(A4),D0
  88.        | 00EE  222C  0000-XX.2                MOVE.L    _vv(A4),D1
  89.        | 00F2  92AA 0008                      SUB.L     0008(A2),D1
  90.        | 00F6  D2AC  0000-XX.2                ADD.L     _voffset(A4),D1
  91.        | 00FA  2C01                           MOVE.L    D1,D6
  92.        | 00FC  7200                           MOVEQ     #00,D1
  93.        | 00FE  3212                           MOVE.W    (A2),D1
  94.        | 0100  7800                           MOVEQ     #00,D4
  95.        | 0102  382A 0002                      MOVE.W    0002(A2),D4
  96.        | 0106  2F40 002C                      MOVE.L    D0,002C(A7)
  97.        | 010A  2F41 0028                      MOVE.L    D1,0028(A7)
  98.        | 010E  4A80                           TST.L     D0
  99.        | 0110  6B00 00FC                      BMI.W     020E
  100.        | 0114  2401                           MOVE.L    D1,D2
  101.        | 0116  D480                           ADD.L     D0,D2
  102.        | 0118  262C  0000-XX.2                MOVE.L    _map(A4),D3
  103.        | 011C  B483                           CMP.L     D3,D2
  104.        | 011E  6C00 00EE                      BGE.W     020E
  105.        | 0122  242C  0000-XX.2                MOVE.L    _lower_limit(A4),D2
  106.        | 0126  BC82                           CMP.L     D2,D6
  107.        | 0128  6C00 00E4                      BGE.W     020E
  108.        | 012C  2A04                           MOVE.L    D4,D5
  109.        | 012E  DA86                           ADD.L     D6,D5
  110.        | 0130  262C  0000-XX.2                MOVE.L    _upper_limit(A4),D3
  111.        | 0134  BA83                           CMP.L     D3,D5
  112.        | 0136  6D00 00D6                      BLT.W     020E
  113.        | 013A  7E00                           MOVEQ     #00,D7
  114.        | 013C  BA82                           CMP.L     D2,D5
  115.        | 013E  6D06                           BLT.B     0146
  116.        | 0140  9486                           SUB.L     D6,D2
  117.        | 0142  2802                           MOVE.L    D2,D4
  118.        | 0144  5384                           SUBQ.L    #1,D4
  119.        | 0146  2404                           MOVE.L    D4,D2
  120.        | 0148  2B42 FFE0                      MOVE.L    D2,FFE0(A5)
  121.        | 014C  262C  0000-XX.2                MOVE.L    _upper_limit(A4),D3
  122.        | 0150  BC83                           CMP.L     D3,D6
  123.        | 0152  6C06                           BGE.B     015A
  124.        | 0154  2203                           MOVE.L    D3,D1
  125.        | 0156  9286                           SUB.L     D6,D1
  126.        | 0158  2E01                           MOVE.L    D1,D7
  127.        | 015A  222C  0000-XX.2                MOVE.L    _map(A4),D1
  128.        | 015E  E881                           ASR.L     #4,D1
  129.        | 0160  2400                           MOVE.L    D0,D2
  130.        | 0162  E882                           ASR.L     #4,D2
  131.        | 0164  D482                           ADD.L     D2,D2
  132.        | 0166  2006                           MOVE.L    D6,D0
  133.        | 0168  9083                           SUB.L     D3,D0
  134.        | 016A  D087                           ADD.L     D7,D0
  135.        | 016C  2F41 0024                      MOVE.L    D1,0024(A7)
  136.        | 0170  4EBA  0000-XX.1                JSR       __CXM33(PC)
  137.        | 0174  D080                           ADD.L     D0,D0
  138.        | 0176  206C  0008-XX.2                MOVEA.L   _map+00000008(A4),A0
  139.        | 017A  D1C0                           ADDA.L    D0,A0
  140.        | 017C  D1C2                           ADDA.L    D2,A0
  141.        | 017E  2648                           MOVEA.L   A0,A3
  142.        | 0180  2B4B FFE4                      MOVE.L    A3,FFE4(A5)
  143.        | 0184  202F 002C                      MOVE.L    002C(A7),D0
  144.        | 0188  2A00                           MOVE.L    D0,D5
  145.        | 018A  700F                           MOVEQ     #0F,D0
  146.        | 018C  CA80                           AND.L     D0,D5
  147.        | 018E  202F 0028                      MOVE.L    0028(A7),D0
  148.        | 0192  720F                           MOVEQ     #0F,D1
  149.        | 0194  D081                           ADD.L     D1,D0
  150.        | 0196  7210                           MOVEQ     #10,D1
  151.        | 0198  4EBA  0000-XX.1                JSR       __CXD33(PC)
  152.        | 019C  2800                           MOVE.L    D0,D4
  153.        | 019E  2007                           MOVE.L    D7,D0
  154.        | 01A0  2204                           MOVE.L    D4,D1
  155.        | 01A2  4EBA  0000-XX.1                JSR       __CXM33(PC)
  156.        | 01A6  D080                           ADD.L     D0,D0
  157.        | 01A8  204A                           MOVEA.L   A2,A0
  158.        | 01AA  D1C0                           ADDA.L    D0,A0
  159.        | 01AC  45E8 000C                      LEA       000C(A0),A2
  160.        | 01B0  7001                           MOVEQ     #01,D0
  161.        | 01B2  B880                           CMP.L     D0,D4
  162.        | 01B4  6624                           BNE.B     01DA
  163.        | 01B6  282D FFE0                      MOVE.L    FFE0(A5),D4
  164.        | 01BA  2C2F 0024                      MOVE.L    0024(A7),D6
  165.        | 01BE  6014                           BRA.B     01D4
  166.        | 01C0  7000                           MOVEQ     #00,D0
  167.        | 01C2  301A                           MOVE.W    (A2)+,D0
  168.        | 01C4  4840                           SWAP      D0
  169.        | 01C6  4240                           CLR.W     D0
  170.        | 01C8  EAA8                           LSR.L     D5,D0
  171.        | 01CA  8193                           OR.L      D0,(A3)
  172.        | 01CC  2006                           MOVE.L    D6,D0
  173.        | 01CE  D080                           ADD.L     D0,D0
  174.        | 01D0  D7C0                           ADDA.L    D0,A3
  175.        | 01D2  5287                           ADDQ.L    #1,D7
  176.        | 01D4  BE84                           CMP.L     D4,D7
  177.        | 01D6  6DE8                           BLT.B     01C0
  178.        | 01D8  6034                           BRA.B     020E
  179.        | 01DA  2C07                           MOVE.L    D7,D6
  180.        | 01DC  602A                           BRA.B     0208
  181.        | 01DE  7E00                           MOVEQ     #00,D7
  182.        | 01E0  6012                           BRA.B     01F4
  183.        | 01E2  204B                           MOVEA.L   A3,A0
  184.        | 01E4  548B                           ADDQ.L    #2,A3
  185.        | 01E6  7000                           MOVEQ     #00,D0
  186.        | 01E8  301A                           MOVE.W    (A2)+,D0
  187.        | 01EA  4840                           SWAP      D0
  188.        | 01EC  4240                           CLR.W     D0
  189.        | 01EE  EAA8                           LSR.L     D5,D0
  190.        | 01F0  8190                           OR.L      D0,(A0)
  191.        | 01F2  5287                           ADDQ.L    #1,D7
  192.        | 01F4  BE84                           CMP.L     D4,D7
  193.        | 01F6  6DEA                           BLT.B     01E2
  194.        | 01F8  202F 0024                      MOVE.L    0024(A7),D0
  195.        | 01FC  D080                           ADD.L     D0,D0
  196.        | 01FE  D1AD FFE4                      ADD.L     D0,FFE4(A5)
  197.        | 0202  266D FFE4                      MOVEA.L   FFE4(A5),A3
  198.        | 0206  5286                           ADDQ.L    #1,D6
  199.        | 0208  BCAD FFE0                      CMP.L     FFE0(A5),D6
  200.        | 020C  6DD0                           BLT.B     01DE
  201.        | 020E  0CAD 0000 0083 FFDC            CMPI.L    #00000083,FFDC(A5)
  202.        | 0216  6E6C                           BGT.B     0284
  203.        | 0218  7000                           MOVEQ     #00,D0
  204.        | 021A  4600                           NOT.B     D0
  205.        | 021C  C0AD FFD8                      AND.L     FFD8(A5),D0
  206.        | 0220  E580                           ASL.L     #2,D0
  207.        | 0222  2E00                           MOVE.L    D0,D7
  208.        | 0224  206C  0000-XX.2                MOVEA.L   _cfontptr(A4),A0
  209.        | 0228  4A28 0418                      TST.B     0418(A0)
  210.        | 022C  663C                           BNE.B     026A
  211.        | 022E  2268 0414                      MOVEA.L   0414(A0),A1
  212.        | 0232  2C51                           MOVEA.L   (A1),A6
  213.        | 0234  DCFC 0400                      ADDA.W    #0400,A6
  214.        | 0238  7000                           MOVEQ     #00,D0
  215.        | 023A  1029 0A26                      MOVE.B    0A26(A1),D0
  216.        | 023E  2F00                           MOVE.L    D0,-(A7)
  217.        | 0240  2F10                           MOVE.L    (A0),-(A7)
  218.        | 0242  2F0E                           MOVE.L    A6,-(A7)
  219.        | 0244  487A 0046                      PEA       0046(PC)
  220.        | 0248  4EBA  0000-XX.1                JSR       _Warning(PC)
  221.        | 024C  206C  0000-XX.2                MOVEA.L   _cfontptr(A4),A0
  222.        | 0250  4EBA  0000-XX.1                JSR       @setup_ctfmw(PC)
  223.        | 0254  4FEF 0010                      LEA       0010(A7),A7
  224.        | 0258  206C  0000-XX.2                MOVEA.L   _cfontptr(A4),A0
  225.        | 025C  2248                           MOVEA.L   A0,A1
  226.        | 025E  D3C7                           ADDA.L    D7,A1
  227.        | 0260  2029 0014                      MOVE.L    0014(A1),D0
  228.        | 0264  D1AC  0000-XX.2                ADD.L     D0,_h(A4)
  229.        | 0268  600A                           BRA.B     0274
  230.        | 026A  D1C7                           ADDA.L    D7,A0
  231.        | 026C  2028 0014                      MOVE.L    0014(A0),D0
  232.        | 0270  D1AC  0000-XX.2                ADD.L     D0,_h(A4)
  233.        | 0274  206F 0030                      MOVEA.L   0030(A7),A0
  234.        | 0278  3010                           MOVE.W    (A0),D0
  235.        | 027A  48C0                           EXT.L     D0
  236.        | 027C  D1AC  0000-XX.2                ADD.L     D0,_hh(A4)
  237.        | 0280  4EBA  0000-XX.1                JSR       @setmotion(PC)
  238.        | 0284  4CDF 4CFC                      MOVEM.L   (A7)+,D2-D7/A2-A3/A6
  239.        | 0288  4E5D                           UNLK      A5
  240.        | 028A  4E75                           RTS
  241.        | 028C  496E 7465                      PEA       7465(A6)
  242.        | 0290  726E                           MOVEQ     #6E,D1
  243.        | 0292  616C                           BSR.B     0300
  244.        | 0294  2065                           MOVEA.L   -(A5),A0
  245.        | 0296  7272                           MOVEQ     #72,D1
  246.        | 0298  6F72                           BLE.B     030C
  247.        | 029A  3A20                           MOVE.W    -(A0),D5
  248.        | 029C  2763 7466                      MOVE.L    -(A3),7466(A3)
  249.        | 02A0  6D77                           BLT.B     0319
  250.        | 02A2  5F76 616C 6964                 SUBQ.W    #7,([6964,A6])
  251.        | 02A8  2720                           MOVE.L    -(A0),-(A3)
  252.        | 02AA  2825                           MOVE.L    -(A5),D4
  253.        | 02AC  732C                           
  254.        | 02AE  2023                           MOVE.L    -(A3),D0
  255.        | 02B0  2564 2C20                      MOVE.L    -(A4),2C20(A2)
  256.        | 02B4  5374 3A25                      SUBQ.W    #1,25(A4,D3.L*2)
  257.        | 02B8  6429                           BCC.B     02E3
  258.        | 02BA  0000 4E55                      ORI.B     #55,D0
  259.        | 02BE  FFC8 48E7                      F????
  260.        | 02C2  3F30 2E00                      MOVE.W    00(A0,D2.L*8),-(A7)
  261.        | 02C6  202C  0000-XX.2                MOVE.L    _hconv(A4),D0
  262.        | 02CA  2401                           MOVE.L    D1,D2
  263.        | 02CC  D480                           ADD.L     D0,D2
  264.        | 02CE  5382                           SUBQ.L    #1,D2
  265.        | 02D0  2002                           MOVE.L    D2,D0
  266.        | 02D2  2B41 FFE4                      MOVE.L    D1,FFE4(A5)
  267.        | 02D6  222C  0000-XX.2                MOVE.L    _hconv(A4),D1
  268.        | 02DA  4EBA  0000-XX.1                JSR       __CXD33(PC)
  269.        | 02DE  2F40 0032                      MOVE.L    D0,0032(A7)
  270.        | 02E2  222D FFE4                      MOVE.L    FFE4(A5),D1
  271.        | 02E6  4A81                           TST.L     D1
  272.        | 02E8  6F00 0198                      BLE.W     0482
  273.        | 02EC  4A87                           TST.L     D7
  274.        | 02EE  6F00 0192                      BLE.W     0482
  275.        | 02F2  222C  0000-XX.2                MOVE.L    _hh(A4),D1
  276.        | 02F6  D2AC  0000-XX.2                ADD.L     _hoffset(A4),D1
  277.        | 02FA  2C01                           MOVE.L    D1,D6
  278.        | 02FC  2A00                           MOVE.L    D0,D5
  279.        | 02FE  2207                           MOVE.L    D7,D1
  280.        | 0300  242C  0000-XX.2                MOVE.L    _vconv(A4),D2
  281.        | 0304  D282                           ADD.L     D2,D1
  282.        | 0306  5381                           SUBQ.L    #1,D1
  283.        | 0308  2001                           MOVE.L    D1,D0
  284.        | 030A  2202                           MOVE.L    D2,D1
  285.        | 030C  4EBA  0000-XX.1                JSR       __CXD33(PC)
  286.        | 0310  2800                           MOVE.L    D0,D4
  287.        | 0312  2004                           MOVE.L    D4,D0
  288.        | 0314  5380                           SUBQ.L    #1,D0
  289.        | 0316  222C  0000-XX.2                MOVE.L    _vv(A4),D1
  290.        | 031A  D2AC  0000-XX.2                ADD.L     _voffset(A4),D1
  291.        | 031E  9280                           SUB.L     D0,D1
  292.        | 0320  2E01                           MOVE.L    D1,D7
  293.        | 0322  4A86                           TST.L     D6
  294.        | 0324  6A04                           BPL.B     032A
  295.        | 0326  DA86                           ADD.L     D6,D5
  296.        | 0328  7C00                           MOVEQ     #00,D6
  297.        | 032A  2005                           MOVE.L    D5,D0
  298.        | 032C  D086                           ADD.L     D6,D0
  299.        | 032E  222C  0000-XX.2                MOVE.L    _map(A4),D1
  300.        | 0332  B081                           CMP.L     D1,D0
  301.        | 0334  6D06                           BLT.B     033C
  302.        | 0336  2001                           MOVE.L    D1,D0
  303.        | 0338  9086                           SUB.L     D6,D0
  304.        | 033A  2A00                           MOVE.L    D0,D5
  305.        | 033C  2005                           MOVE.L    D5,D0
  306.        | 033E  2B40 FFE8                      MOVE.L    D0,FFE8(A5)
  307.        | 0342  4A85                           TST.L     D5
  308.        | 0344  6F00 013C                      BLE.W     0482
  309.        | 0348  242C  0000-XX.2                MOVE.L    _upper_limit(A4),D2
  310.        | 034C  BE82                           CMP.L     D2,D7
  311.        | 034E  6C08                           BGE.B     0358
  312.        | 0350  2602                           MOVE.L    D2,D3
  313.        | 0352  9687                           SUB.L     D7,D3
  314.        | 0354  9883                           SUB.L     D3,D4
  315.        | 0356  2E02                           MOVE.L    D2,D7
  316.        | 0358  2604                           MOVE.L    D4,D3
  317.        | 035A  D687                           ADD.L     D7,D3
  318.        | 035C  202C  0000-XX.2                MOVE.L    _lower_limit(A4),D0
  319.        | 0360  B680                           CMP.L     D0,D3
  320.        | 0362  6D04                           BLT.B     0368
  321.        | 0364  9087                           SUB.L     D7,D0
  322.        | 0366  2800                           MOVE.L    D0,D4
  323.        | 0368  4A84                           TST.L     D4
  324.        | 036A  6F00 0116                      BLE.W     0482
  325.        | 036E  E881                           ASR.L     #4,D1
  326.        | 0370  2A01                           MOVE.L    D1,D5
  327.        | 0372  2005                           MOVE.L    D5,D0
  328.        | 0374  2206                           MOVE.L    D6,D1
  329.        | 0376  E881                           ASR.L     #4,D1
  330.        | 0378  D281                           ADD.L     D1,D1
  331.        | 037A  2607                           MOVE.L    D7,D3
  332.        | 037C  9682                           SUB.L     D2,D3
  333.        | 037E  2F40 002E                      MOVE.L    D0,002E(A7)
  334.        | 0382  2003                           MOVE.L    D3,D0
  335.        | 0384  2F41 0036                      MOVE.L    D1,0036(A7)
  336.        | 0388  2205                           MOVE.L    D5,D1
  337.        | 038A  4EBA  0000-XX.1                JSR       __CXM33(PC)
  338.        | 038E  D080                           ADD.L     D0,D0
  339.        | 0390  206C  0008-XX.2                MOVEA.L   _map+00000008(A4),A0
  340.        | 0394  D1C0                           ADDA.L    D0,A0
  341.        | 0396  202F 0036                      MOVE.L    0036(A7),D0
  342.        | 039A  D1C0                           ADDA.L    D0,A0
  343.        | 039C  2648                           MOVEA.L   A0,A3
  344.        | 039E  2006                           MOVE.L    D6,D0
  345.        | 03A0  720F                           MOVEQ     #0F,D1
  346.        | 03A2  C081                           AND.L     D1,D0
  347.        | 03A4  7410                           MOVEQ     #10,D2
  348.        | 03A6  2602                           MOVE.L    D2,D3
  349.        | 03A8  9680                           SUB.L     D0,D3
  350.        | 03AA  2F43 002A                      MOVE.L    D3,002A(A7)
  351.        | 03AE  7601                           MOVEQ     #01,D3
  352.        | 03B0  242F 002A                      MOVE.L    002A(A7),D2
  353.        | 03B4  E5A3                           ASL.L     D2,D3
  354.        | 03B6  5383                           SUBQ.L    #1,D3
  355.        | 03B8  2406                           MOVE.L    D6,D2
  356.        | 03BA  222D FFE8                      MOVE.L    FFE8(A5),D1
  357.        | 03BE  D481                           ADD.L     D1,D2
  358.        | 03C0  720F                           MOVEQ     #0F,D1
  359.        | 03C2  C481                           AND.L     D1,D2
  360.        | 03C4  7210                           MOVEQ     #10,D1
  361.        | 03C6  3F43 0028                      MOVE.W    D3,0028(A7)
  362.        | 03CA  2601                           MOVE.L    D1,D3
  363.        | 03CC  9682                           SUB.L     D2,D3
  364.        | 03CE  2F42 0024                      MOVE.L    D2,0024(A7)
  365.        | 03D2  7401                           MOVEQ     #01,D2
  366.        | 03D4  E7A2                           ASL.L     D3,D2
  367.        | 03D6  5382                           SUBQ.L    #1,D2
  368.        | 03D8  4682                           NOT.L     D2
  369.        | 03DA  244B                           MOVEA.L   A3,A2
  370.        | 03DC  D0AD FFE8                      ADD.L     FFE8(A5),D0
  371.        | 03E0  2E00                           MOVE.L    D0,D7
  372.        | 03E2  3F42 0022                      MOVE.W    D2,0022(A7)
  373.        | 03E6  BE81                           CMP.L     D1,D7
  374.        | 03E8  6C24                           BGE.B     040E
  375.        | 03EA  302F 0028                      MOVE.W    0028(A7),D0
  376.        | 03EE  2200                           MOVE.L    D0,D1
  377.        | 03F0  C242                           AND.W     D2,D1
  378.        | 03F2  7E00                           MOVEQ     #00,D7
  379.        | 03F4  3F41 0020                      MOVE.W    D1,0020(A7)
  380.        | 03F8  600E                           BRA.B     0408
  381.        | 03FA  302F 0020                      MOVE.W    0020(A7),D0
  382.        | 03FE  8152                           OR.W      D0,(A2)
  383.        | 0400  2005                           MOVE.L    D5,D0
  384.        | 0402  D080                           ADD.L     D0,D0
  385.        | 0404  D5C0                           ADDA.L    D0,A2
  386.        | 0406  5287                           ADDQ.L    #1,D7
  387.        | 0408  BE84                           CMP.L     D4,D7
  388.        | 040A  6DEE                           BLT.B     03FA
  389.        | 040C  6074                           BRA.B     0482
  390.        | 040E  7020                           MOVEQ     #20,D0
  391.        | 0410  BE80                           CMP.L     D0,D7
  392.        | 0412  6C2A                           BGE.B     043E
  393.        | 0414  2C05                           MOVE.L    D5,D6
  394.        | 0416  5386                           SUBQ.L    #1,D6
  395.        | 0418  7E00                           MOVEQ     #00,D7
  396.        | 041A  601C                           BRA.B     0438
  397.        | 041C  302F 0028                      MOVE.W    0028(A7),D0
  398.        | 0420  8152                           OR.W      D0,(A2)
  399.        | 0422  302F 0022                      MOVE.W    0022(A7),D0
  400.        | 0426  816A 0002                      OR.W      D0,0002(A2)
  401.        | 042A  2006                           MOVE.L    D6,D0
  402.        | 042C  D080                           ADD.L     D0,D0
  403.        | 042E  204A                           MOVEA.L   A2,A0
  404.        | 0430  D1C0                           ADDA.L    D0,A0
  405.        | 0432  45E8 0002                      LEA       0002(A0),A2
  406.        | 0436  5287                           ADDQ.L    #1,D7
  407.        | 0438  BE84                           CMP.L     D4,D7
  408.        | 043A  6DE0                           BLT.B     041C
  409.        | 043C  6044                           BRA.B     0482
  410.        | 043E  7A00                           MOVEQ     #00,D5
  411.        | 0440  603C                           BRA.B     047E
  412.        | 0442  302F 0028                      MOVE.W    0028(A7),D0
  413.        | 0446  8152                           OR.W      D0,(A2)
  414.        | 0448  548A                           ADDQ.L    #2,A2
  415.        | 044A  7E00                           MOVEQ     #00,D7
  416.        | 044C  202D FFE8                      MOVE.L    FFE8(A5),D0
  417.        | 0450  90AF 002A                      SUB.L     002A(A7),D0
  418.        | 0454  90AF 0024                      SUB.L     0024(A7),D0
  419.        | 0458  720F                           MOVEQ     #0F,D1
  420.        | 045A  D081                           ADD.L     D1,D0
  421.        | 045C  E880                           ASR.L     #4,D0
  422.        | 045E  2C00                           MOVE.L    D0,D6
  423.        | 0460  6006                           BRA.B     0468
  424.        | 0462  34FC FFFF                      MOVE.W    #FFFF,(A2)+
  425.        | 0466  5287                           ADDQ.L    #1,D7
  426.        | 0468  BE86                           CMP.L     D6,D7
  427.        | 046A  6DF6                           BLT.B     0462
  428.        | 046C  302F 0022                      MOVE.W    0022(A7),D0
  429.        | 0470  8152                           OR.W      D0,(A2)
  430.        | 0472  202F 002E                      MOVE.L    002E(A7),D0
  431.        | 0476  D080                           ADD.L     D0,D0
  432.        | 0478  D7C0                           ADDA.L    D0,A3
  433.        | 047A  244B                           MOVEA.L   A3,A2
  434.        | 047C  5285                           ADDQ.L    #1,D5
  435.        | 047E  BA84                           CMP.L     D4,D5
  436.        | 0480  6DC0                           BLT.B     0442
  437.        | 0482  4AAD 0008                      TST.L     0008(A5)
  438.        | 0486  6714                           BEQ.B     049C
  439.        | 0488  202D FFE4                      MOVE.L    FFE4(A5),D0
  440.        | 048C  D1AC  0000-XX.2                ADD.L     D0,_h(A4)
  441.        | 0490  202F 0032                      MOVE.L    0032(A7),D0
  442.        | 0494  D1AC  0000-XX.2                ADD.L     D0,_hh(A4)
  443.        | 0498  4EBA  0000-XX.1                JSR       @setmotion(PC)
  444.        | 049C  4CDF 0CFC                      MOVEM.L   (A7)+,D2-D7/A2-A3
  445.        | 04A0  4E5D                           UNLK      A5
  446.        | 04A2  4E75                           RTS
  447.