Subversion Repositories pentevo

Rev

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

  1.         cpu     470ac00
  2.         include stddef47.inc
  3.  
  4.         page    0
  5.  
  6.  
  7.         segment data
  8.  
  9. nvar1   db      ?
  10. nvar2   db      ?
  11.         align   4
  12. bvar    db      2 dup (?)
  13.  
  14.  
  15.         segment io
  16.  
  17. port1   db      ?
  18. port2   db      ?
  19. port3   port    7
  20.  
  21.         segment code
  22.  
  23. targ:   db      ?
  24.  
  25.         ret
  26.         nop
  27.         reti
  28.  
  29.         inc     @hl
  30.         dec     @hl
  31.         inc     a
  32.         dec     a
  33.         inc     l
  34.         dec     l
  35.  
  36.         and     a,@hl
  37.         and     @hl,#3
  38.         and     a,#5
  39.         or      a,@hl
  40.         or      @hl,#3
  41.         or      a,#5
  42.         xor     a,@hl
  43.  
  44.         ld      a,@hl
  45.         ld      a,123
  46.         ld      hl,bvar
  47.         ld      a,#4
  48.         ld      h,#-3
  49.         ld      l,#7
  50.         ld      hl,#0a5h
  51.         ld      dmb,#2
  52.         ld      dmb,@hl
  53.  
  54.         ldl     a,@dc
  55.         ldh     a,@dc+
  56.  
  57.         st      a,@hl
  58.         st      a,@hl+
  59.         st      a,@hl-
  60.         st      a,123
  61.         st      #3,@hl+
  62.         st      #5,nvar1
  63.         st      dmb,@hl
  64.  
  65.         mov     h,a
  66.         mov     l,a
  67.         mov     a,dmb
  68.         mov     dmb,a
  69.         mov     a,spw13
  70.         mov     stk13,a
  71.  
  72.         xch     a,@hl
  73.         xch     nvar2,a
  74.         xch     hl,bvar
  75.         xch     a,l
  76.         xch     h,a
  77.         xch     eir,a
  78.  
  79.         in      %port1,a
  80.         in      %15h,a
  81.         in      %port2,@hl
  82.         in      %1ah,@hl
  83.  
  84.         out     a,%port1
  85.         out     @hl,%port2
  86.         out     #-3,%port2
  87.  
  88.         outb    @hl
  89.  
  90.         cmpr    a,@hl
  91.         cmpr    a,nvar2
  92.         cmpr    nvar2,#3
  93.         cmpr    a,#4
  94.         cmpr    h,#5
  95.         cmpr    l,#6
  96.  
  97.         add     a,@hl
  98.         add     @hl,#4
  99.         add     nvar2,#5
  100.         add     a,#6
  101.         add     h,#7
  102.         add     l,#7
  103.  
  104.         addc    a,@hl
  105.         subrc   a,@hl
  106.  
  107.         subr    a,#7
  108.         subr    @hl,#0ah
  109.  
  110.         rolc    a
  111.         rolc    a,3
  112.         rorc    a
  113.         rorc    a,2
  114.  
  115.         clr     @l
  116.         set     @l
  117.         test    @l
  118.  
  119.         test    cf
  120.         testp   cf
  121.  
  122.         testp   zf
  123.  
  124. ;       clr     gf
  125. ;       set     gf
  126. ;       testp   gf
  127.  
  128. ;       clr     dmb
  129. ;       set     dmb
  130. ;       test    dmb
  131. ;       testp   dmb
  132.  
  133.         clr     dmb0
  134.         set     dmb0
  135.         test    dmb0
  136.         testp   dmb0
  137.  
  138.         clr     dmb1
  139.         set     dmb1
  140.         test    dmb1
  141.         testp   dmb1
  142.  
  143.         clr     stk13
  144.         set     stk13
  145.  
  146.         clr     il,8h
  147.  
  148.         test    a,2
  149.  
  150.         clr     @hl,1
  151.         set     @hl,3
  152.         test    @hl,2
  153.  
  154.         clr     %5,1
  155.         set     %6,3
  156.         test    %7,2
  157.         testp   %8,0
  158.  
  159.         clr     nvar2,1
  160.         set     nvar2,3
  161.         test    nvar2,2
  162.         testp   nvar2,0
  163.  
  164.         bss     ($&3fc0h)+20h
  165.         bs      123h
  166.         bsl     0123h
  167.         bsl     1123h
  168.         bsl     2123h
  169.         bsl     3123h
  170.  
  171.         calls   002eh
  172.  
  173.         call    123h
  174.  
  175.         eiclr   il,3
  176.         diclr   il,5
  177.  
  178.         b       ($&3fc0h)+20h
  179.         b       123h
  180.         b       0123h
  181.         b       1123h
  182.         b       2123h
  183.         b       3123h
  184.  
  185.         bz      targ
  186.         bnz     targ
  187.         bc      targ
  188.         bnc     targ
  189.         be      a,@hl,targ
  190.         be      a,nvar2,targ
  191.         be      a,#3,targ
  192.         be      h,#4,targ
  193.         be      l,#5,targ
  194.         be      nvar1,#6,targ
  195.         bne     a,@hl,targ
  196.         bne     a,nvar2,targ
  197.         bne     a,#3,targ
  198.         bne     h,#4,targ
  199.         bne     l,#5,targ
  200.         bne     nvar1,#6,targ
  201.         bge     a,@hl,targ
  202.         bge     a,nvar2,targ
  203.         bge     a,#3,targ
  204.         bge     h,#4,targ
  205.         bge     l,#5,targ
  206.         bge     nvar1,#6,targ
  207.         bgt     a,@hl,targ
  208.         bgt     a,nvar2,targ
  209.         bgt     a,#3,targ
  210.         bgt     h,#4,targ
  211.         bgt     l,#5,targ
  212.         bgt     nvar1,#6,targ
  213.         ble     a,@hl,targ
  214.         ble     a,nvar2,targ
  215.         ble     a,#3,targ
  216.         ble     h,#4,targ
  217.         ble     l,#5,targ
  218.         ble     nvar1,#6,targ
  219.         blt     a,@hl,targ
  220.         blt     a,nvar2,targ
  221.         blt     a,#3,targ
  222.         blt     h,#4,targ
  223.         blt     l,#5,targ
  224.         blt     nvar1,#6,targ
  225.  
  226.         callss  0
  227.         callss  5
  228.  
  229.         callz   targ
  230.         callnz  targ
  231.         callc   targ
  232.         callnc  targ
  233.  
  234.         retz
  235.         retnz
  236.         retc
  237.         retnc
  238.         retiz
  239.         retinz
  240.         retic
  241.         retinc
  242.  
  243.         shl     a,2
  244.         shl     h,2
  245.         shl     l,2
  246.         shl     @hl,2
  247.         shl     nvar1,2
  248.         shr     a,2
  249.         shr     h,2
  250.         shr     l,2
  251.         shr     @hl,2
  252.         shr     nvar1,2
  253.  
  254.         ei
  255.         di