Subversion Repositories pentevo

Rev

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

  1.         cpu     kcpsm3
  2.  
  3.         CONSTANT const1, 02
  4.         NAMEREG s8, treg
  5.  
  6.  
  7.         load    treg, const1
  8.        
  9.         nop
  10.        
  11.         load    s0, 1
  12.         jump    test1
  13.         jump    Z, test1
  14.         jump    NZ, test1
  15.         jump    C, test1
  16.         jump    NC, test1
  17.  
  18. test1:
  19.         call    test2
  20.         call    Z, test2
  21.         call    NZ, test2
  22.         call    C, test2
  23.         call    NC, test2
  24.  
  25. test2:
  26.         return
  27.         return  Z
  28.         return  NZ
  29.         return  C
  30.         return  NC
  31.  
  32.         load    s3, 21
  33.         and     sC, 03
  34.         or      s4, 19
  35.         xor     s7, 71
  36.  
  37.         load    s1, s5
  38.         and     s1, s5
  39.         or      s1, s5
  40.         xor     s1, s5
  41.  
  42.         add     s9, 21
  43.         addcy   s9, 03
  44.         sub     s9, 19
  45.         subcy   s9, 71
  46.  
  47.         add     s1, s4
  48.         addcy   s1, s4
  49.         sub     s1, s4
  50.         subcy   s1, s4
  51.  
  52.         sr0     sC
  53.         sr1     sC
  54.         srx     sC
  55.         sra     sC
  56.         rr      sC
  57.  
  58.         sl0     sC
  59.         sl1     sC
  60.         slx     sC
  61.         sla     sC
  62.         rl      sC
  63.  
  64.         input   s6, 21
  65.         input   sB, (s1)
  66.         output  sE, 21
  67.         output  sF, (s1)
  68.  
  69.         returni enable
  70.         returni disable
  71.  
  72.         enable  interrupt
  73.         disable interrupt
  74.  
  75.         ; new KCPSM3 instructions
  76.  
  77.         compare s1,s7
  78.         compare s6,-3
  79.  
  80.         fetch   s2,vari
  81.         fetch   s9,(s4)
  82.  
  83.         store   s3,vari
  84.         store   s6,(sE)
  85.  
  86.         test    s8,0aah
  87.         test    sC,s3
  88.  
  89. ; register aliases
  90.  
  91. myreg   equ     sc
  92. myregr  reg     sc
  93. myregre reg     myreg
  94.  
  95.         add     sc,200
  96.         add     myreg,200
  97.         add     myregr,200
  98.         add     myregre,200
  99.  
  100.         segment data
  101.  
  102.         org     01ah
  103. vari:
  104.