home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_10 / DEVELOP.LZH / DSP / DSPDEBUG / EXAMPLES / JEU.ASM < prev    next >
Assembly Source File  |  1992-07-11  |  18KB  |  1,529 lines
  1.     org    p:$200
  2. ABS:    abs    a
  3.     nop
  4.     abs    b
  5.     nop
  6. ADC:    adc    x,a
  7.     nop
  8.     adc    x,b
  9.     nop
  10.     adc    y,a
  11.     nop
  12.     adc    y,b
  13.     nop
  14. ADD:    add    b,a
  15.     nop
  16.     add    a,b
  17.     nop
  18.     add    x,a
  19.     nop
  20.     add    x,b
  21.     nop
  22.     add    y,a
  23.     nop
  24.     add    y,b
  25.     nop
  26.     add    x0,a
  27.     nop
  28.     add    x0,b
  29.     nop
  30.     add    y0,a
  31.     nop
  32.     add    y0,b
  33.     nop
  34.     add    x1,a
  35.     nop
  36.     add    x1,b
  37.     nop
  38.     add    y1,a
  39.     nop
  40.     add    y1,b
  41.     nop
  42. ADDL:    addl    b,a
  43.     nop
  44.     addl    a,b
  45.     nop
  46. ADDR:    addr    b,a
  47.     nop
  48.     addr    a,b
  49.     nop
  50. AND:    and    x0,a
  51.     nop
  52.     and    x1,a
  53.     nop
  54.     and    y0,a
  55.     nop
  56.     and    y1,a
  57.     nop
  58.     and    x0,b
  59.     nop
  60.     and    x1,b
  61.     nop
  62.     and    y0,b
  63.     nop
  64.     and    y1,b
  65.     nop
  66. ANDI:    andi    #$fe,mr
  67.     nop
  68.     andi    #$fe,ccr
  69.     nop
  70.     andi    #$fe,omr
  71.     nop
  72. ASL:    asl    a
  73.     nop
  74.     asl    b
  75.     nop
  76. ASR:    asr    a
  77.     nop
  78.     asr    b
  79.     nop
  80. BCHGea:    ;#n,[XY]:ea
  81.     bchg    #0,x:(r0)
  82.     nop
  83.     bchg    #0,y:(r0)
  84.     nop
  85.     bchg    #0,y:(r0+n0)
  86.     nop
  87.     bchg    #0,y:(r0)+
  88.     nop
  89.     bchg    #0,y:(r0)-
  90.     nop
  91.     bchg    #0,y:(r0)+n0
  92.     nop
  93.     bchg    #0,y:(r0)-n0
  94.     nop
  95.     bchg    #0,y:(r1)
  96.     nop
  97.     bchg    #0,y:(r2)
  98.     nop
  99.     bchg    #0,y:(r3)
  100.     nop
  101.     bchg    #0,y:(r4)
  102.     nop
  103.     bchg    #0,y:(r5)
  104.     nop
  105.     bchg    #0,y:(r6)
  106.     nop
  107.     bchg    #0,y:(r7)
  108.     nop
  109.     bchg    #0,y:>$dead
  110.     nop
  111. BCHGaa:    ;#n,[XY]:aa
  112.     bchg    #0,x:<$3a
  113.     nop
  114.     bchg    #0,y:<$3a
  115.     nop
  116. BCHGpp:    ;#n,[XY]:pp
  117.     bchg    #0,x:<<$fff0
  118.     nop
  119.     bchg    #0,y:<<$fff0
  120.     nop
  121. BCHGD:    ;#n,D
  122.     bchg    #0,x0
  123.     nop
  124.     bchg    #0,x1
  125.     nop
  126.     bchg    #0,y0
  127.     nop
  128.     bchg    #0,y1
  129.     nop
  130.     bchg    #0,a0
  131.     nop
  132.     bchg    #0,b0
  133.     nop
  134.     bchg    #0,a2
  135.     nop
  136.     bchg    #0,b2
  137.     nop
  138.     bchg    #0,a1
  139.     nop
  140.     bchg    #0,b1
  141.     nop
  142.     bchg    #0,a
  143.     nop
  144.     bchg    #0,b
  145.     nop
  146.     bchg    #0,sr
  147.     nop
  148.     bchg    #0,omr
  149.     nop
  150.     bchg    #0,sp
  151.     nop
  152.     bchg    #0,ssh
  153.     nop
  154.     bchg    #0,ssl
  155.     nop
  156.     bchg    #0,la
  157.     nop
  158.     bchg    #0,lc
  159.     nop
  160.     bchg    #0,r0
  161.     nop
  162.     bchg    #0,r1
  163.     nop
  164.     bchg    #0,r2
  165.     nop
  166.     bchg    #0,r3
  167.     nop
  168.     bchg    #0,r4
  169.     nop
  170.     bchg    #0,r5
  171.     nop
  172.     bchg    #0,r6
  173.     nop
  174.     bchg    #0,r7
  175.     nop
  176.     bchg    #0,n0
  177.     nop
  178.     bchg    #0,n1
  179.     nop
  180.     bchg    #0,n2
  181.     nop
  182.     bchg    #0,n3
  183.     nop
  184.     bchg    #0,n4
  185.     nop
  186.     bchg    #0,n5
  187.     nop
  188.     bchg    #0,n6
  189.     nop
  190.     bchg    #0,n7
  191.     nop
  192.     bchg    #0,m0
  193.     nop
  194.     bchg    #0,m1
  195.     nop
  196.     bchg    #0,m2
  197.     nop
  198.     bchg    #0,m3
  199.     nop
  200.     bchg    #0,m4
  201.     nop
  202.     bchg    #0,m5
  203.     nop
  204.     bchg    #0,m6
  205.     nop
  206.     bchg    #0,m7
  207.     nop
  208. BCLRea:    ;#n,[XY]:ea
  209.     bclr    #0,x:(r0)
  210.     nop
  211.     bclr    #0,y:(r0)
  212.     nop
  213. BCLRaa:    ;#n,[XY]:aa
  214.     bclr    #0,x:<$3a
  215.     nop
  216.     bclr    #0,y:<$3a
  217.     nop
  218. BCLRpp:    ;#n,[XY]:pp
  219.     bclr    #0,x:<<$fff0
  220.     nop
  221.     bclr    #0,y:<<$fff0
  222.     nop
  223. BCLRD:    ;#n,D
  224.     bclr    #0,x0
  225.     nop
  226. BSETea:    ;#n,[XY]:ea
  227.     bset    #0,x:(r0)+
  228.     nop
  229.     bset    #0,y:(r1)
  230.     nop
  231.     bset    #0,x:>$dead
  232.     nop
  233. BSETaa:    ;#n,[XY]:aa
  234.     bset    #0,x:<$33
  235.     nop
  236.     bset    #0,y:<$33
  237.     nop
  238. BSETpp:    ;#n,[XY]:pp
  239.     bset    #0,x:<<$fff0
  240.     nop
  241.     bset    #0,y:<<$fff0
  242.     nop
  243. BSETD:    ;#n,D
  244.     bset    #0,x0
  245.     nop
  246. BTSTea:    ;#n,[XY]:ea
  247.     btst    #0,x:(r0)
  248.     nop
  249.     btst    #0,y:(r0)+
  250.     nop
  251.     btst    #0,x:>$dead
  252.     nop
  253. BTSTaa:    ;#n,[XY]:aa
  254.     btst    #0,x:<$33
  255.     nop
  256.     btst    #0,y:<$33
  257.     nop
  258. BTSTpp:    ;#n,[XY]:pp
  259.     btst    #0,x:<<$fff0
  260.     nop
  261.     btst    #0,y:<<$fff0
  262.     nop
  263. BTSTD:    ;#n,D
  264.     btst    #0,x0
  265.     nop
  266. CLR:    ;D
  267.     clr    a
  268.     nop
  269.     clr    b
  270.     nop
  271. CMP:    ;S1,S2
  272.     cmp    b,a
  273.     nop
  274.     cmp    a,b
  275.     nop
  276.     cmp    x0,a
  277.     nop
  278.     cmp    x0,b
  279.     nop
  280.     cmp    y0,a
  281.     nop
  282.     cmp    y0,b
  283.     nop
  284.     cmp    x1,a
  285.     nop
  286.     cmp    x1,b
  287.     nop
  288.     cmp    y1,a
  289.     nop
  290.     cmp    y1,b
  291.     nop
  292. CMPM:    ;S1,S2
  293.     cmpm    b,a
  294.     nop
  295.     cmpm    a,b
  296.     nop
  297.     cmpm    x0,a
  298.     nop
  299.     cmpm    x0,b
  300.     nop
  301.     cmpm    y0,a
  302.     nop
  303.     cmpm    y0,b
  304.     nop
  305.     cmpm    x1,a
  306.     nop
  307.     cmpm    x1,b
  308.     nop
  309.     cmpm    y1,a
  310.     nop
  311.     cmpm    y1,b
  312.     nop
  313. DIV:    ;S,D
  314.     div    x0,a
  315.     nop
  316.     div    x0,b
  317.     nop
  318.     div    y0,a
  319.     nop
  320.     div    y0,b
  321.     nop
  322.     div    x1,a
  323.     nop
  324.     div    x1,b
  325.     nop
  326.     div    y1,a
  327.     nop
  328.     div    y1,b
  329.     nop
  330. DOea:    ;[XY]:ea,expr
  331.     do    x:(r0),fin_do0
  332.     nop
  333. fin_do0:
  334.     nop
  335.     do    y:(r0),fin_do1
  336.     nop
  337. fin_do1:
  338.     nop
  339. DOaa:    ;[XY]:aa,expr
  340.     do    x:<$33,fin_do2
  341.     nop
  342. fin_do2:
  343.     nop
  344.     do    y:<$33,fin_do3
  345.     nop
  346. fin_do3:
  347.     nop
  348. DOxxx:    ;#xxx,expr
  349.     do    #$dad,fin_do4
  350.     nop
  351. fin_do4:
  352.     nop
  353. DOS:    ;S,expr
  354.     do    x0,fin_do5
  355.     nop
  356. fin_do5:
  357.     nop
  358.     do    x1,fin_do6
  359.     nop
  360. fin_do6:
  361.     nop
  362.     do    y0,fin_do7
  363.     nop
  364. fin_do7:
  365.     nop
  366.     do    y1,fin_do8
  367.     nop
  368. fin_do8:
  369.     nop
  370.     do    a0,fin_do9
  371.     nop
  372. fin_do9:
  373.     nop
  374.     do    b0,fin_do10
  375.     nop
  376. fin_do10:
  377.     nop
  378.     do    a2,fin_do11
  379.     nop
  380. fin_do11:
  381.     nop
  382.     do    b2,fin_do12
  383.     nop
  384. fin_do12:
  385.     nop
  386.     do    a1,fin_do13
  387.     nop
  388. fin_do13:
  389.     nop
  390.     do    b1,fin_do14
  391.     nop
  392. fin_do14:
  393.     nop
  394.     do    a,fin_do15
  395.     nop
  396. fin_do15:
  397.     nop
  398.     do    b,fin_do16
  399.     nop
  400. fin_do16:
  401.     nop
  402.     do    sr,fin_do17
  403.     nop
  404. fin_do17:
  405.     nop
  406.     do    omr,fin_do18
  407.     nop
  408. fin_do18:
  409.     nop
  410.     do    sp,fin_do19
  411.     nop
  412. fin_do19:
  413.     nop
  414.     do    ssl,fin_do20
  415.     nop
  416. fin_do20:
  417.     nop
  418.     do    la,fin_do21
  419.     nop
  420. fin_do21:
  421.     nop
  422.     do    lc,fin_do22
  423.     nop
  424. fin_do22:
  425.     nop
  426.     do    r0,fin_do23
  427.     nop
  428. fin_do23:
  429.     nop
  430.     do    r1,fin_do24
  431.     nop
  432. fin_do24:
  433.     nop
  434.     do    r2,fin_do25
  435.     nop
  436. fin_do25:
  437.     nop
  438.     do    r3,fin_do26
  439.     nop
  440. fin_do26:
  441.     nop
  442.     do    r4,fin_do27
  443.     nop
  444. fin_do27:
  445.     nop
  446.     do    r5,fin_do28
  447.     nop
  448. fin_do28:
  449.     nop
  450.     do    r6,fin_do29
  451.     nop
  452. fin_do29:
  453.     nop
  454.     do    r7,fin_do30
  455.     nop
  456. fin_do30:
  457.     nop
  458.     do    n0,fin_do31
  459.     nop
  460. fin_do31:
  461.     nop
  462.     do    n1,fin_do32
  463.     nop
  464. fin_do32:
  465.     nop
  466.     do    n2,fin_do33
  467.     nop
  468. fin_do33:
  469.     nop
  470.     do    n3,fin_do34
  471.     nop
  472. fin_do34:
  473.     nop
  474.     do    n4,fin_do35
  475.     nop
  476. fin_do35:
  477.     nop
  478.     do    n5,fin_do36
  479.     nop
  480. fin_do36:
  481.     nop
  482.     do    n6,fin_do37
  483.     nop
  484. fin_do37:
  485.     nop
  486.     do    n7,fin_do38
  487.     nop
  488. fin_do38:
  489.     nop
  490.     do    m0,fin_do39
  491.     nop
  492. fin_do39:
  493.     nop
  494.     do    m1,fin_do40
  495.     nop
  496. fin_do40:
  497.     nop
  498.     do    m2,fin_do41
  499.     nop
  500. fin_do41:
  501.     nop
  502.     do    m3,fin_do42
  503.     nop
  504. fin_do42:
  505.     nop
  506.     do    m4,fin_do43
  507.     nop
  508. fin_do43:
  509.     nop
  510.     do    m5,fin_do44
  511.     nop
  512. fin_do44:
  513.     nop
  514.     do    m6,fin_do45
  515.     nop
  516. fin_do45:
  517.     nop
  518.     do    m7,fin_do46
  519.     nop
  520. ENDDO
  521.     enddo
  522. fin_do46:
  523.     nop
  524. ;EOR    S,D
  525. EOR:    eor    x0,a
  526.     nop
  527.     eor    x1,a
  528.     nop
  529.     eor    y0,a
  530.     nop
  531.     eor    y1,a
  532.     nop
  533.     eor    x0,b
  534.     nop
  535.     eor    x1,b
  536.     nop
  537.     eor    y0,b
  538.     nop
  539.     eor    y1,b
  540.     nop
  541. ILLEGAL:    illegal
  542.     nop
  543. ;Jcc    xxx
  544. Jccxx:    jcc    fin_jcc_x
  545.     nop
  546. fin_jcc_x:
  547. ;Jcc    ea
  548. Jccea:    jcc    (r0)+n0
  549.     nop
  550. ;JCLR    #n,[XY]:ea,xxxx
  551. JCLRea:    jclr    #0,x:(r0),fin_jclr_neax
  552.     nop
  553. fin_jclr_neax:
  554. ;JCLR:    #n,[XY]:aa,xxxx
  555. JCLRaa:    jclr    #0,x:<$33,fin_jclr_naax
  556.     nop
  557. fin_jclr_naax:
  558. ;JCLR    #n,[XY]:pp,xxxx
  559. JCLRpp:    jclr    #0,x:<<$fff1,fin_jclr_nppx
  560.     nop
  561. fin_jclr_nppx:
  562. ;JCLR:    #n,S,xxxx
  563. JCLRS:    jclr    #0,x0,fin_jclr_nsx
  564.     nop
  565. fin_jclr_nsx:
  566. ;JMP    xxx
  567. JMPxxx:    jmp    <$dad
  568.     nop
  569. ;JMP    ea
  570. JMPea:    jmp    (r0+n0)
  571.     nop
  572. ;JScc    xxx
  573. JSccxxx:    jscc    <$dad
  574.     nop
  575. ;JScc    ea
  576. JSccea:    jscc    (r1)+
  577.     nop
  578. ;JSCLRea    #n,[XY]:ea,xxxx
  579. JSCLRea:    jsclr    #0,x:(r0),routine
  580.     nop
  581. JSCLRaa:    ;#n,[XY]:aa,xxxx
  582.     jsclr    #0,x:<$33,routine
  583.     nop
  584. JSCLRpp:    ;#n,[XY]:pp,xxxx
  585.     jsclr    #0,x:<<$fff1,routine
  586.     nop
  587. JSCLRS:    ;#n,S,xxxx
  588.     jsclr    #0,x0,routine
  589.     nop
  590. JSETea:    ;#n,[XY]:ea,xxxx
  591.     jset    #0,x:(r0),fin_jset_nxyeax
  592.     nop
  593. fin_jset_nxyeax:
  594. JSETaa:    ;#n,[XY]:aa,xxxx
  595.     jset    #0,x:<$33,fin_jset_nxyaax
  596.     nop
  597. fin_jset_nxyaax:
  598. JSETpp:    ;#n,[XY]:pp,xxxx
  599.     jset    #0,x:<<$fff1,fin_jset_nxyppx
  600.     nop
  601. fin_jset_nxyppx:
  602. JSETS:    ;#n,S,xxxx
  603.     jset    #0,x0,fin_jset_nsx
  604.     nop
  605. fin_jset_nsx:
  606. JSRxxx:    ;xxx
  607.     jsr    <$dad
  608.     nop
  609. JSRea:    ;ea
  610.     jsr    (r0)-
  611.     nop
  612.     jsr    routine
  613.     nop
  614. JSSETea:    ;#n,[XY]:ea,xxxx
  615.     jsset    #0,x:(r5)+,routine
  616.     nop
  617. JSSETaa:    ;#n,[XY]:aa,xxxx
  618.     jsset    #0,x:<$33,routine
  619.     nop
  620. JSSETpp:    ;#n,[XY]:pp,xxxx
  621.     jsset    #0,x:<<$fff1,routine
  622.     nop
  623. JSSETS:    ;#n,S,xxxx
  624.     jsset    #0,x0,routine
  625.     nop
  626. LSL:    ;D
  627.     lsl    a
  628.     nop
  629.     lsl    b
  630.     nop
  631. LSR:    ;D
  632.     lsr    a
  633.     nop
  634.     lsr    b
  635.     nop
  636. LUA:    ;ea,D
  637.     lua    (r0)-n0,n0
  638.     nop
  639.     lua    (r0)+n0,n0
  640.     nop
  641.     lua    (r0)-,n0
  642.     nop
  643.     lua    (r0)+,n0
  644.     nop
  645.     lua    (r1)-n1,n0
  646.     nop
  647.     lua    (r1)+n1,n0
  648.     nop
  649.     lua    (r1)-,n0
  650.     nop
  651.     lua    (r1)+,n0
  652.     nop
  653.     lua    (r2)-n2,n0
  654.     nop
  655.     lua    (r2)+n2,n0
  656.     nop
  657.     lua    (r2)-,n0
  658.     nop
  659.     lua    (r2)+,n0
  660.     nop
  661.     lua    (r3)-n3,n0
  662.     nop
  663.     lua    (r3)+n3,n0
  664.     nop
  665.     lua    (r3)-,n0
  666.     nop
  667.     lua    (r3)+,n0
  668.     nop
  669.     lua    (r4)-n4,n0
  670.     nop
  671.     lua    (r4)+n4,n0
  672.     nop
  673.     lua    (r4)-,n0
  674.     nop
  675.     lua    (r4)+,n0
  676.     nop
  677.     lua    (r5)-n5,n0
  678.     nop
  679.     lua    (r5)+n5,n0
  680.     nop
  681.     lua    (r5)-,n0
  682.     nop
  683.     lua    (r5)+,n0
  684.     nop
  685.     lua    (r6)-n6,n0
  686.     nop
  687.     lua    (r6)+n6,n0
  688.     nop
  689.     lua    (r6)-,n0
  690.     nop
  691.     lua    (r6)+,n0
  692.     nop
  693.     lua    (r7)-n7,n0
  694.     nop
  695.     lua    (r7)+n7,n0
  696.     nop
  697.     lua    (r7)-,n0
  698.     nop
  699.     lua    (r7)+,n0
  700.     nop
  701.     lua    (r0)+,n1
  702.     nop
  703.     lua    (r0)+,n2
  704.     nop
  705.     lua    (r0)+,n3
  706.     nop
  707.     lua    (r0)+,n4
  708.     nop
  709.     lua    (r0)+,n5
  710.     nop
  711.     lua    (r0)+,n6
  712.     nop
  713.     lua    (r0)+,n7
  714.     nop
  715. MAC:    ;(+-)S1,S2,D
  716.     mac    -x0,x0,a
  717.     nop
  718.     mac    -y0,y0,a
  719.     nop
  720.     mac    -x1,x0,a
  721.     nop
  722.     mac    -y1,y0,a
  723.     nop
  724.     mac    -x0,y1,a
  725.     nop
  726.     mac    -y0,x0,a
  727.     nop
  728.     mac    -x1,y0,a
  729.     nop
  730.     mac    -y1,x1,a
  731.     nop
  732.     mac    -x0,x0,b
  733.     nop
  734.     mac    x0,x0,b
  735.     nop
  736. MACR:    ;(+-)S1,S2,D
  737.     macr    -x0,x0,a
  738.     nop
  739.     macr    -y0,y0,a
  740.     nop
  741.     macr    -x1,x0,a
  742.     nop
  743.     macr    -y1,y0,a
  744.     nop
  745.     macr    -x0,y1,a
  746.     nop
  747.     macr    -y0,x0,a
  748.     nop
  749.     macr    -x1,y0,a
  750.     nop
  751.     macr    -y1,x1,a
  752.     nop
  753.     macr    -x0,x0,b
  754.     nop
  755.     macr    x0,x0,b
  756.     nop
  757. MOVExxD:    ;#xx,D
  758.     move    #<0,x0
  759.     nop
  760.     move    #<0,x1
  761.     nop
  762.     move    #<0,y0
  763.     nop
  764.     move    #<0,y1
  765.     nop
  766.     move    #<0,a0
  767.     nop
  768.     move    #<0,b0
  769.     nop
  770.     move    #<0,a2
  771.     nop
  772.     move    #<0,b2
  773.     nop
  774.     move    #<0,a1
  775.     nop
  776.     move    #<0,b1
  777.     nop
  778.     move    #<0,a
  779.     nop
  780.     move    #<0,b
  781.     nop
  782.     move    #<0,r0
  783.     nop
  784.     move    #<0,r1
  785.     nop
  786.     move    #<0,r2
  787.     nop
  788.     move    #<0,r3
  789.     nop
  790.     move    #<0,r4
  791.     nop
  792.     move    #<0,r5
  793.     nop
  794.     move    #<0,r6
  795.     nop
  796.     move    #<0,r7
  797.     nop
  798.     move    #<0,n0
  799.     nop
  800.     move    #<0,n1
  801.     nop
  802.     move    #<0,n2
  803.     nop
  804.     move    #<0,n3
  805.     nop
  806.     move    #<0,n4
  807.     nop
  808.     move    #<0,n5
  809.     nop
  810.     move    #<0,n6
  811.     nop
  812.     move    #<0,n7
  813.     nop
  814. MOVESD:    ;S,D
  815.     move    x0,r0
  816.     nop
  817. MOVEea:    ;ea
  818.     move    (r0)-n0
  819.     nop
  820.     move    (r0)+n0
  821.     nop
  822.     move    (r0)-
  823.     nop
  824.     move    (r0)+
  825.     nop
  826. MOVEeaD:    ;X:ea,D MOVE S,X:ea MOVE #xxxxxx,D
  827.     move    x:(r0)-n0,x0
  828.     nop
  829.     move    x:(r0)-n0,x1
  830.     nop
  831.     move    x:(r0)-n0,y0
  832.     nop
  833.     move    x:(r0)-n0,y1
  834.     nop
  835.     move    x:(r0)-n0,a0
  836.     nop
  837.     move    x:(r0)-n0,b0
  838.     nop
  839.     move    x:(r0)-n0,a2
  840.     nop
  841.     move    x:(r0)-n0,b2
  842.     nop
  843.     move    x:(r0)-n0,a1
  844.     nop
  845.     move    x:(r0)-n0,b1
  846.     nop
  847.     move    x:(r0)-n0,a
  848.     nop
  849.     move    x:(r0)-n0,b
  850.     nop
  851.     move    x:(r1)-n1,r0
  852.     nop
  853.     move    x:(r0)-n0,r1
  854.     nop
  855.     move    x:(r0)-n0,r2
  856.     nop
  857.     move    x:(r0)-n0,r3
  858.     nop
  859.     move    x:(r0)-n0,r4
  860.     nop
  861.     move    x:(r0)-n0,r5
  862.     nop
  863.     move    x:(r0)-n0,r6
  864.     nop
  865.     move    x:(r0)-n0,r7
  866.     nop
  867.     move    x:(r0)-n0,n0
  868.     nop
  869.     move    x:(r0)-n0,n1
  870.     nop
  871.     move    x:(r0)-n0,n2
  872.     nop
  873.     move    x:(r0)-n0,n3
  874.     nop
  875.     move    x:(r0)-n0,n4
  876.     nop
  877.     move    x:(r0)-n0,n5
  878.     nop
  879.     move    x:(r0)-n0,n6
  880.     nop
  881.     move    x:(r0)-n0,n7
  882.     nop
  883.     move    #>$bafbaf,x0
  884.     nop
  885.     move    x0,x:(r0)+
  886.     nop
  887. MOVEXaa:    ;X:aa,D MOVE S,X:aa
  888.     move    x:<$33,x0
  889.     nop
  890.     move    x0,X:<$33
  891.     nop
  892. MOVEeaD2:    ;X:ea,D1 S2,D2 MOVE S1,X:ea S2,D2 MOVE #xxxxxx,D1 S2,D2
  893.     move    x:(r0)-,x0    a,y0
  894.     nop
  895.     move    x:(r0)-,x1    a,y0
  896.     nop
  897.     move    x:(r0)-,a    a,y0
  898.     nop
  899.     move    x:(r0)-,b    a,y0
  900.     nop
  901.     move    x:(r0)-,b    b,y0
  902.     nop
  903.     move    x:(r0)-,b    a,y1
  904.     nop
  905.     move    x:(r0)-,b    b,y1
  906.     nop
  907.     move    #>$bafbaf,x0    a,y0
  908.     nop
  909. MOVEAea:    ;A,X:ea X0,A MOVE B,X:ea X0,B
  910.     move    a,x:(r0)+    x0,a
  911.     nop
  912.     move    b,x:(r0)-    x0,b
  913.     nop
  914. MOVESea:    ;Y:ea,D MOVE S,Y:ea MOVE #xxxxxx,D
  915.     move    y:(r0)-n0,x0
  916.     nop
  917.     move    y:(r0)-n0,x1
  918.     nop
  919.     move    y:(r0)-n0,y0
  920.     nop
  921.     move    y:(r0)-n0,y1
  922.     nop
  923.     move    y:(r0)-n0,a0
  924.     nop
  925.     move    y:(r0)-n0,b0
  926.     nop
  927.     move    y:(r0)-n0,a2
  928.     nop
  929.     move    y:(r0)-n0,b2
  930.     nop
  931.     move    y:(r0)-n0,a1
  932.     nop
  933.     move    y:(r0)-n0,b1
  934.     nop
  935.     move    y:(r0)-n0,a
  936.     nop
  937.     move    y:(r0)-n0,b
  938.     nop
  939.     move    y:(r1)-n1,r0
  940.     nop
  941.     move    y:(r0)-n0,r1
  942.     nop
  943.     move    y:(r0)-n0,r2
  944.     nop
  945.     move    y:(r0)-n0,r3
  946.     nop
  947.     move    y:(r0)-n0,r4
  948.     nop
  949.     move    y:(r0)-n0,r5
  950.     nop
  951.     move    y:(r0)-n0,r6
  952.     nop
  953.     move    y:(r0)-n0,r7
  954.     nop
  955.     move    y:(r0)-n0,n0
  956.     nop
  957.     move    y:(r0)-n0,n1
  958.     nop
  959.     move    y:(r0)-n0,n2
  960.     nop
  961.     move    y:(r0)-n0,n3
  962.     nop
  963.     move    y:(r0)-n0,n4
  964.     nop
  965.     move    y:(r0)-n0,n5
  966.     nop
  967.     move    y:(r0)-n0,n6
  968.     nop
  969.     move    y:(r0)-n0,n7
  970.     nop
  971.     move    #>$bafbaf,x0
  972.     nop
  973.     move    x0,y:(r0)+
  974.     nop
  975. MOVEYaa:    ;Y:aa,D MOVE S,Y:aa
  976.     move    y:<$33,x0
  977.     nop
  978.     move    x0,y:<$33
  979.     nop
  980. MOVESD1:    ;S1,D1 Y:ea,D2 MOVE S1,D1 S2,Y:ea MOVE S1,D1 #xxxxxx,D2
  981.     move    a,x0    y:(r0),y0
  982.     nop
  983.     move    a,x1    y:(r0),y1
  984.     nop
  985.     move    b,x0    y:(r0),a
  986.     nop
  987.     move    b,x1    y:(r0),b
  988.     nop
  989.     move    a,x0    y0,y:(r0)+
  990.     nop
  991.     move    a,x1    y1,y:(r0)-
  992.     nop
  993.     move    b,x0    a,y:(r0)
  994.     nop
  995.     move    b,x1    b,y:(r0)-n0
  996.     nop
  997.     move    a,x0    #>$33dead,y0
  998.     nop
  999. MOVEY0A:    ;Y0,A A,Y:ea MOVE Y0,B B,Y:ea
  1000.     move    y0,a    a,y:(r0)-
  1001.     nop
  1002.     move    y0,b    b,y:(r1)+
  1003.     nop
  1004. MOVELea:    ;L:ea,D MOVE S,L:ea
  1005.     move    l:(r0)+,a10
  1006.     nop
  1007.     move    l:(r0)+,b10
  1008.     nop
  1009.     move    l:(r0)+,x
  1010.     nop
  1011.     move    l:(r0)+,y
  1012.     nop
  1013.     move    l:(r0)+,a
  1014.     nop
  1015.     move    l:(r0)+,b
  1016.     nop
  1017.     move    l:(r0)+,ab
  1018.     nop
  1019.     move    l:(r0)+,ba
  1020.     nop
  1021.     move    a10,l:(r7)-
  1022.     nop
  1023. MOVELaa:    ;L:aa,D MOVE D,L:aa
  1024.     move    l:<$33,a10
  1025.     nop
  1026.     move    l:<$33,b10
  1027.     nop
  1028.     move    l:<$33,x
  1029.     nop
  1030.     move    l:<$33,y
  1031.     nop
  1032.     move    l:<$33,a
  1033.     nop
  1034.     move    l:<$33,b
  1035.     nop
  1036.     move    l:<$33,ab
  1037.     nop
  1038.     move    l:<$33,ba
  1039.     nop
  1040.     move    a10,l:<$33
  1041.     nop
  1042. MOVEXYeax:    ;X:<eax>,D1 Y:<eay>,D2
  1043.     move    x:(r0)+n0,x0    y:(r4)+n4,y0
  1044.     nop
  1045.     move    x:(r0)+n0,x1    y:(r4)+n4,y0
  1046.     nop
  1047.     move    x:(r0)+n0,a    y:(r4)+n4,y0
  1048.     nop
  1049.     move    x:(r0)+n0,b    y:(r4)+n4,y0
  1050.     nop
  1051.     move    x:(r0)+n0,x0    y:(r4)+n4,y1
  1052.     nop
  1053.     move    x:(r0)+n0,x0    y:(r4)+n4,a
  1054.     nop
  1055.     move    x:(r0)+n0,x0    y:(r4)+n4,b
  1056.     nop
  1057. MOVEXeaxY:    ;X:<eax>,D1 S2,Y:<eay>
  1058.     move    x:(r0)+n0,x0    y0,y:(r4)+n4
  1059.     nop
  1060. MOVEeaxXY:    ;S1,X:<eax> Y:<eay>,D2
  1061.     move    x0,x:(r0)+n0    y:(r4)+n4,y0
  1062.     nop
  1063. MOVESSeax:    ;S1,X:<eax> S2,Y:<eay>
  1064.     move    x0,x:(r0)+n0    y0,y:(r4)+n4
  1065.     nop
  1066.     move    x0,x:(r0)-    y0,y:(r4)+n4
  1067.     nop
  1068.     move    x0,x:(r0)+    y0,y:(r4)+n4
  1069.     nop
  1070.     move    x0,x:(r0)    y0,y:(r4)+n4
  1071.     nop
  1072. MOVECeaD:    ;X:ea,D1
  1073.     movec    x:(r2)+,m0
  1074.     nop
  1075.     movec    x:(r2)+,m1
  1076.     nop
  1077.     movec    x:(r2)+,m2
  1078.     nop
  1079.     movec    x:(r2)+,m3
  1080.     nop
  1081.     movec    x:(r2)+,m4
  1082.     nop
  1083.     movec    x:(r2)+,m5
  1084.     nop
  1085.     movec    x:(r2)+,m6
  1086.     nop
  1087.     movec    x:(r2)+,m7
  1088.     nop
  1089.     movec    x:(r2)+,sr
  1090.     nop
  1091.     movec    x:(r2)+,omr
  1092.     nop
  1093.     movec    x:(r2)+,sp
  1094.     nop
  1095.     movec    x:(r2)+,ssh
  1096.     nop
  1097.     movec    x:(r2)+,ssl
  1098.     nop
  1099.     movec    x:(r2)+,la
  1100.     nop
  1101.     movec    x:(r2)+,lc
  1102.     nop
  1103. MOVECSea:    ;S1,X:ea
  1104.     movec    m0,x:(r7)+
  1105.     nop
  1106. MOVECYeaD:    ;Y:ea,D1
  1107.     movec    y:(r3),m0
  1108.     nop
  1109. MOVECSYea:    ;S1,Y:ea
  1110.     movec    m0,y:(r2)-
  1111.     nop
  1112. MOVECxxxD:    ;#xxxx,D1
  1113.     movec    #>$3baf,m0
  1114.     nop
  1115. MOVECXaaD:    ;X:aa,D1
  1116.     movec    x:<$33,m0
  1117.     nop
  1118. MOVECSXaa:    ;S1,X:aa
  1119.     movec    m0,x:<$33
  1120.     nop
  1121. MOVECYaaD:    ;Y:aa,D1
  1122.     movec    y:<$33,m0
  1123.     nop
  1124. MOVECSYaa:    ;S1,Y:aa
  1125.     movec    m0,y:<$33
  1126.     nop
  1127. MOVECSD:    ;S1,D2 MOVEC S2,D1
  1128.     movec    m0,x0
  1129.     nop
  1130.     movec    m0,x1
  1131.     nop
  1132.     movec    m0,y0
  1133.     nop
  1134.     movec    m0,y1
  1135.     nop
  1136.     movec    m0,a0
  1137.     nop
  1138.     movec    m0,b0
  1139.     nop
  1140.     movec    m0,a2
  1141.     nop
  1142.     movec    m0,b2
  1143.     nop
  1144.     movec    m0,a1
  1145.     nop
  1146.     movec    m0,b1
  1147.     nop
  1148.     movec    m0,a
  1149.     nop
  1150.     movec    m0,b
  1151.     nop
  1152.     movec    m0,sr
  1153.     nop
  1154.     movec    m0,omr
  1155.     nop
  1156.     movec    m0,sp
  1157.     nop
  1158.     movec    m0,ssh
  1159.     nop
  1160.     movec    m0,ssl
  1161.     nop
  1162.     movec    m0,la
  1163.     nop
  1164.     movec    m0,lc
  1165.     nop
  1166.     movec    m0,r0
  1167.     nop
  1168.     movec    m0,r1
  1169.     nop
  1170.     movec    m0,r2
  1171.     nop
  1172.     movec    m0,r3
  1173.     nop
  1174.     movec    m0,r4
  1175.     nop
  1176.     movec    m0,r5
  1177.     nop
  1178.     movec    m0,r6
  1179.     nop
  1180.     movec    m0,r7
  1181.     nop
  1182.     movec    m0,n0
  1183.     nop
  1184.     movec    m0,n1
  1185.     nop
  1186.     movec    m0,n2
  1187.     nop
  1188.     movec    m0,n3
  1189.     nop
  1190.     movec    m0,n4
  1191.     nop
  1192.     movec    m0,n5
  1193.     nop
  1194.     movec    m0,n6
  1195.     nop
  1196.     movec    m0,n7
  1197.     nop
  1198.     movec    m1,m0
  1199.     nop
  1200.     movec    m0,m1
  1201.     nop
  1202.     movec    m0,m2
  1203.     nop
  1204.     movec    m0,m3
  1205.     nop
  1206.     movec    m0,m4
  1207.     nop
  1208.     movec    m0,m5
  1209.     nop
  1210.     movec    m0,m6
  1211.     nop
  1212.     movec    m0,m7
  1213.     nop
  1214.     movec    x0,m0
  1215.     nop
  1216. MOVECxxD:    ;#xx,D1
  1217.     movec    #<$33,m0
  1218.     nop
  1219. MOVEMPea:    ;S,P:ea MOVE P:ea,D
  1220.     movem    x0,p:(r0)+
  1221.     nop
  1222.     movem    x0,p:>$dead
  1223.     nop
  1224.     movem    p:(r0)+,x0
  1225.     nop
  1226. MOVEMPaa:    ;S,P:aa MOVEM P:aa,D
  1227.     movem    x0,p:<$33
  1228.     nop
  1229.     movem    p:<$33,x0
  1230.     nop
  1231. MOVEPPeaXpp:    ;P:ea,X:pp
  1232.     movep    p:(r0),x:<<$fff0
  1233.     nop
  1234. MOVEPXppPea:    ;X:pp,P:ea
  1235.     movep    x:<<$fff0,p:(r1)
  1236.     nop
  1237. MOVEPPeaYpp:    ;P:ea,Y:pp
  1238.     movep    p:(r5),y:<<$fff1
  1239.     nop
  1240. MOVEPYppPea:    ;Y:pp,P:ea
  1241.     movep    y:<<$fff1,p:(r6)
  1242.     nop
  1243. MOVEPSXpp:    ;S,X:pp
  1244.     movep    x0,x:<<$fff1
  1245.     nop
  1246. MOVEPXppD:    ;X:pp,D
  1247.     movep    x:<<$fff1,x0
  1248.     nop
  1249. MOVEPSYpp:    ;S,Y:pp
  1250.     movep    x0,y:<<$fff4
  1251.     nop
  1252. MOVEPYppD:    ;Y:pp,D
  1253.     movep    y:<<$fff4,x0
  1254.     nop
  1255. MPY    ;(+-)S1,S2,D
  1256.     mpy    -x0,x0,a
  1257.     nop
  1258.     mpy    -y0,y0,a
  1259.     nop
  1260.     mpy    -x1,x0,a
  1261.     nop
  1262.     mpy    -y1,y0,a
  1263.     nop
  1264.     mpy    -x0,y1,a
  1265.     nop
  1266.     mpy    -y0,x0,a
  1267.     nop
  1268.     mpy    -x1,y0,a
  1269.     nop
  1270.     mpy    -y1,x1,a
  1271.     nop
  1272.     mpy    -y1,x1,b
  1273.     nop
  1274.     mpy    x0,x0,a
  1275.     nop
  1276.     mpy    y0,y0,a
  1277.     nop
  1278.     mpy    x1,x0,a
  1279.     nop
  1280.     mpy    y1,y0,a
  1281.     nop
  1282.     mpy    x0,y1,a
  1283.     nop
  1284.     mpy    y0,x0,a
  1285.     nop
  1286.     mpy    x1,y0,a
  1287.     nop
  1288.     mpy    y1,x1,a
  1289.     nop
  1290.     mpy    y1,x1,b
  1291.     nop
  1292. MPYR:    ;(+-)S1,S2,D
  1293.     mpyr    x0,x0,a
  1294.     nop
  1295. NEG:    ;D
  1296.     neg    a
  1297.     nop
  1298.     neg    b
  1299.     nop
  1300. NOP
  1301.     nop
  1302. NORM:    ;Rn,D
  1303.     norm    r0,a
  1304.     nop
  1305.     norm    r1,a
  1306.     nop
  1307.     norm    r2,a
  1308.     nop
  1309.     norm    r3,a
  1310.     nop
  1311.     norm    r4,a
  1312.     nop
  1313.     norm    r5,a
  1314.     nop
  1315.     norm    r6,a
  1316.     nop
  1317.     norm    r7,a
  1318.     nop
  1319.     norm    r0,b
  1320.     nop
  1321.     norm    r1,b
  1322.     nop
  1323.     norm    r2,b
  1324.     nop
  1325.     norm    r3,b
  1326.     nop
  1327.     norm    r4,b
  1328.     nop
  1329.     norm    r5,b
  1330.     nop
  1331.     norm    r6,b
  1332.     nop
  1333.     norm    r7,b
  1334.     nop
  1335. NOT:    ;D
  1336.     not    a
  1337.     nop
  1338.     not    b
  1339.     nop
  1340. OR:    ;S,D
  1341.     or    x0,a
  1342.     nop
  1343.     or    x1,a
  1344.     nop
  1345.     or    y0,a
  1346.     nop
  1347.     or    y1,a
  1348.     nop
  1349.     or    y1,b
  1350.     nop
  1351. ORI:    ;#xx,D
  1352.     ori    #<0,mr
  1353.     nop
  1354.     ori    #<0,ccr
  1355.     nop
  1356.     ori    #<0,omr
  1357.     nop
  1358. REPea:    ;X:ea REP Y:ea
  1359.     rep    x:(r0)
  1360.     nop
  1361.     rep    y:(r0)
  1362.     nop
  1363. REPaa:    ;X:aa REP Y:aa
  1364.     rep    x:<$33
  1365.     nop
  1366.     rep    y:<$33
  1367.     nop
  1368. REPS:    ;S
  1369.     rep    x0
  1370.     nop
  1371. RESET
  1372.     reset
  1373. RND:    ;D
  1374.     rnd    a
  1375.     nop
  1376.     rnd    b
  1377.     nop
  1378. ROL:    ;D
  1379.     rol    a
  1380.     nop
  1381.     rol    b
  1382.     nop
  1383. ROR:    ;D
  1384.     ror    a
  1385.     nop
  1386.     ror    b
  1387.     nop
  1388. RTI
  1389.     rti
  1390.     nop
  1391. RTS
  1392.     rts
  1393.     nop
  1394. SBC:    ;S,D
  1395.     sbc    x,a
  1396.     nop
  1397.     sbc    x,b
  1398.     nop
  1399.     sbc    y,a
  1400.     nop
  1401.     sbc    y,b
  1402.     nop
  1403. STOP
  1404.     stop
  1405.     nop
  1406. SUB:    ;S,D
  1407.     sub    b,a
  1408.     nop
  1409.     sub    a,b
  1410.     nop
  1411.     sub    x,a
  1412.     nop
  1413.     sub    x,b
  1414.     nop
  1415.     sub    y,a
  1416.     nop
  1417.     sub    y,b
  1418.     nop
  1419.     sub    x0,a
  1420.     nop
  1421.     sub    x0,b
  1422.     nop
  1423.     sub    y0,a
  1424.     nop
  1425.     sub    y0,b
  1426.     nop
  1427.     sub    x1,a
  1428.     nop
  1429.     sub    x1,b
  1430.     nop
  1431.     sub    y1,a
  1432.     nop
  1433.     sub    y1,b
  1434.     nop
  1435. SUBL:    ;S,D
  1436.     sub    b,a
  1437.     nop
  1438.     sub    a,b
  1439.     nop
  1440. SUBR:    ;S,D
  1441.     subr    b,a
  1442.     nop
  1443.     subr    a,b
  1444.     nop
  1445. SWI
  1446.     swi
  1447.     nop
  1448. TccSD:    ;S1,D1
  1449.     tcc    b,a
  1450.     nop
  1451.     tcc    a,b
  1452.     nop
  1453.     tcc    x0,a
  1454.     nop
  1455.     tcc    x0,b
  1456.     nop
  1457.     tcc    y0,a
  1458.     nop
  1459.     tcc    y0,b
  1460.     nop
  1461.     tcc    x1,a
  1462.     nop
  1463.     tcc    x1,b
  1464.     nop
  1465.     tcc    y1,a
  1466.     nop
  1467.     tcc    y1,b
  1468.     nop
  1469. TccSDSD:    ;S1,D1 S2,D2
  1470.     tcc    b,a    r7,r0
  1471.     nop
  1472.     tcc    a,b    r0,r1
  1473.     nop
  1474.     tcc    x0,a    r0,r6
  1475.     nop
  1476.     tcc    x0,b    r0,r7
  1477.     nop
  1478.     tcc    y0,a    r1,r0
  1479.     nop
  1480.     tcc    y0,b    r2,r0
  1481.     nop
  1482.     tcc    x1,a    r3,r0
  1483.     nop
  1484.     tcc    x1,b    r4,r0
  1485.     nop
  1486.     tcc    y1,a    r5,r0
  1487.     nop
  1488.     tcc    y1,b    r6,r0
  1489.     nop
  1490. TFRSD:    ;S,D
  1491.     tfr    b,a
  1492.     nop
  1493.     tfr    a,b
  1494.     nop
  1495.     tfr    x0,a
  1496.     nop
  1497.     tfr    x0,b
  1498.     nop
  1499.     tfr    y0,a
  1500.     nop
  1501.     tfr    y0,b
  1502.     nop
  1503.     tfr    x1,a
  1504.     nop
  1505.     tfr    x1,b
  1506.     nop
  1507.     tfr    y1,a
  1508.     nop
  1509.     tfr    y1,b
  1510.     nop
  1511. TSTS:    ;S
  1512.     tst    a
  1513.     nop
  1514.     tst    b
  1515.     nop
  1516. WAIT
  1517.     wait
  1518. routine:
  1519.     nop
  1520.     rts
  1521.  
  1522.  
  1523.  
  1524.     nop
  1525.     nop
  1526.     nop
  1527.     nop
  1528.  
  1529.