Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1.         cpu     78070
  2.         page    0
  3.         relaxed on
  4.  
  5.         include reg78k0.inc
  6.  
  7. saddr   equ     0fe80h
  8. sfr     equ     0ff90h
  9.  
  10.         brk
  11.         ret
  12.         retb
  13.         reti
  14.         nop
  15.         ei
  16.         di
  17.         halt
  18.         stop
  19.         adjba
  20.         adjbs
  21.  
  22.         mov     d,#20
  23.         mov     saddr,#30
  24.         mov     sfr,#40
  25.         mov     a,c
  26.         mov     e,a
  27.         mov     a,saddr
  28.         mov     saddr,a
  29.         mov     a,sfr
  30.         mov     sfr,a
  31.         mov     a,!saddr
  32.         mov     !saddr,r1
  33.         mov     psw,#40h
  34.         mov     a,psw
  35.         mov     psw,a
  36.         mov     a,[de]
  37.         mov     [de],a
  38.         mov     a,[hl]
  39.         mov     [hl],a
  40.         mov     a,[hl+10]
  41.         mov     [hl+10],a
  42.         mov     a,[hl+b]
  43.         mov     [hl+b],a
  44.         mov     a,[hl+c]
  45.         mov     [hl+c],a
  46.  
  47.         xch     a,d
  48.         xch     l,a
  49.         xch     a,saddr
  50.         xch     a,sfr
  51.         xch     a,!saddr
  52.         xch     a,[de]
  53.         xch     a,[hl]
  54.         xch     a,[hl+10]
  55.         xch     a,[hl+b]
  56.         xch     a,[hl+c]
  57.  
  58.         movw    de,#1000
  59.         movw    saddr,#2000
  60.         movw    sfr,#3000
  61.         movw    ax,saddr
  62.         movw    saddr,ax
  63.         movw    ax,sfr
  64.         movw    sfr,ax
  65.         movw    ax,de
  66.         movw    hl,ax
  67.         movw    ax,!saddr
  68.         movw    !saddr,ax
  69.  
  70.         xchw    ax,de
  71.         xchw    hl,ax
  72.  
  73.         add     a,#10
  74.         add     saddr,#20
  75.         add     a,c
  76.         add     h,a
  77.         add     a,saddr
  78.         add     a,!saddr
  79.         add     a,[hl]
  80.         add     a,[hl+10]
  81.         add     a,[hl+b]
  82.         add     a,[hl+c]
  83.  
  84.         addc    a,#10
  85.         addc    saddr,#20
  86.         addc    a,c
  87.         addc    h,a
  88.         addc    a,saddr
  89.         addc    a,!saddr
  90.         addc    a,[hl]
  91.         addc    a,[hl+10]
  92.         addc    a,[hl+b]
  93.         addc    a,[hl+c]
  94.  
  95.         sub     a,#10
  96.         sub     saddr,#20
  97.         sub     a,c
  98.         sub     h,a
  99.         sub     a,saddr
  100.         sub     a,!saddr
  101.         sub     a,[hl]
  102.         sub     a,[hl+10]
  103.         sub     a,[hl+b]
  104.         sub     a,[hl+c]
  105.  
  106.         subc    a,#10
  107.         subc    saddr,#20
  108.         subc    a,c
  109.         subc    h,a
  110.         subc    a,saddr
  111.         subc    a,!saddr
  112.         subc    a,[hl]
  113.         subc    a,[hl+10]
  114.         subc    a,[hl+b]
  115.         subc    a,[hl+c]
  116.  
  117.         and     a,#10
  118.         and     saddr,#20
  119.         and     a,c
  120.         and     h,a
  121.         and     a,saddr
  122.         and     a,!saddr
  123.         and     a,[hl]
  124.         and     a,[hl+10]
  125.         and     a,[hl+b]
  126.         and     a,[hl+c]
  127.  
  128.         or      a,#10
  129.         or      saddr,#20
  130.         or      a,c
  131.         or      h,a
  132.         or      a,saddr
  133.         or      a,!saddr
  134.         or      a,[hl]
  135.         or      a,[hl+10]
  136.         or      a,[hl+b]
  137.         or      a,[hl+c]
  138.  
  139.         xor     a,#10
  140.         xor     saddr,#20
  141.         xor     a,c
  142.         xor     h,a
  143.         xor     a,saddr
  144.         xor     a,!saddr
  145.         xor     a,[hl]
  146.         xor     a,[hl+10]
  147.         xor     a,[hl+b]
  148.         xor     a,[hl+c]
  149.  
  150.         cmp     a,#10
  151.         cmp     saddr,#20
  152.         cmp     a,c
  153.         cmp     h,a
  154.         cmp     a,saddr
  155.         cmp     a,!saddr
  156.         cmp     a,[hl]
  157.         cmp     a,[hl+10]
  158.         cmp     a,[hl+b]
  159.         cmp     a,[hl+c]
  160.  
  161.         addw    ax,#1234h
  162.         subw    rp0,#2345h
  163.         cmpw    ax,#3456h
  164.  
  165.         mulu    x
  166.         divuw   c
  167.  
  168.         inc     d
  169.         inc     saddr
  170.         dec     e
  171.         dec     saddr
  172.  
  173.         incw    hl
  174.         decw    de
  175.  
  176.         ror     a,1
  177.         rol     a,1
  178.         rorc    a,1
  179.         rolc    a,1
  180.  
  181.         ror4    [hl]
  182.         rol4    [hl]
  183.  
  184.         mov1    cy,saddr.3
  185.         mov1    cy,sfr.4
  186.         mov1    cy,a.5
  187.         mov1    cy,psw.6
  188.         mov1    cy,[hl].7
  189.         mov1    saddr.3,cy
  190.         mov1    sfr.4,cy
  191.         mov1    a.5,cy
  192.         mov1    psw.6,cy
  193.         mov1    [hl].7,cy
  194.  
  195.         and1    cy,saddr.3
  196.         and1    cy,sfr.4
  197.         and1    cy,a.5
  198.         and1    cy,psw.6
  199.         and1    cy,[hl].7
  200.  
  201.         or1     cy,saddr.3
  202.         or1     cy,sfr.4
  203.         or1     cy,a.5
  204.         or1     cy,psw.6
  205.         or1     cy,[hl].7
  206.  
  207.         xor1    cy,saddr.3
  208.         xor1    cy,sfr.4
  209.         xor1    cy,a.5
  210.         xor1    cy,psw.6
  211.         xor1    cy,[hl].7
  212.  
  213.         set1    saddr.3
  214.         set1    sfr.4
  215.         set1    a.5
  216.         set1    psw.6
  217.         set1    [hl].7
  218.  
  219.         clr1    saddr.3
  220.         clr1    sfr.4
  221.         clr1    a.5
  222.         clr1    psw.6
  223.         clr1    [hl].7
  224.  
  225.         set1    cy
  226.         clr1    cy
  227.         not1    cy
  228.  
  229.         call    1234h
  230.         callf    234h
  231.         callt   [12h]
  232.  
  233.         push    psw
  234.         push    de
  235.         pop     psw
  236.         pop     hl
  237.  
  238.         movw    sp,#1234h
  239.         movw    sp,ax
  240.         movw    ax,sp
  241.  
  242.         br      ax
  243.         br      rp0
  244.         br      1234h
  245.         br      pc
  246.         br      $pc
  247.         br      !pc
  248.  
  249.         bc      pc
  250.         bnc     pc
  251.         bz      pc
  252.         bnz     pc
  253.  
  254.         bt      saddr.3,pc
  255.         bt      sfr.4,pc
  256.         bt      a.5,pc
  257.         bt      psw.6,pc
  258.         bt      [hl].7,pc
  259.  
  260.         bf      saddr.3,pc
  261.         bf      sfr.4,pc
  262.         bf      a.5,pc
  263.         bf      psw.6,pc
  264.         bf      [hl].7,pc
  265.  
  266.         btclr   saddr.3,pc
  267.         btclr   sfr.4,pc
  268.         btclr   a.5,pc
  269.         btclr   psw.6,pc
  270.         btclr   [hl].7,pc
  271.  
  272.         dbnz    b,pc
  273.         dbnz    c,pc
  274.         dbnz    saddr,pc
  275.  
  276.         sel     rb0
  277.         sel     rb1
  278.         sel     rb2
  279.         sel     rb3
  280.  
  281.         db      1,2,3
  282.         dw      1,2,3
  283.         dd      1,2,3
  284.         dd      1.0,2.0,3.0
  285.         dq      1.0,2.0,3.0
  286.         dt      1.0,2.0,3.0
  287.         db      10 dup (?)
  288.         db      0
  289.  
  290.         end
  291.  
  292.