Subversion Repositories pentevo

Rev

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

  1.         cpu     kcpsm
  2.  
  3.         ;ei
  4.         ;di
  5.         ;retie
  6.         ;retid
  7.  
  8.         CONSTANT const1, 02
  9.         NAMEREG s08, treg
  10.  
  11.  
  12.         load    treg, #const1
  13.        
  14.         nop
  15.        
  16.         load    s0, #1
  17.         jump    test1
  18.         jump    Z, test1
  19.         jump    NZ, test1
  20.         jump    C, test1
  21.         jump    NC, test1
  22.  
  23. test1:
  24.         call    test2
  25.         call    Z, test2
  26.         call    NZ, test2
  27.         call    C, test2
  28.         call    NC, test2
  29.  
  30. test2:
  31.         return
  32.         return  Z
  33.         return  NZ
  34.         return  C
  35.         return  NC
  36.  
  37.         load    s0, #21
  38.         and     s0, #03
  39.         or      s0, #19
  40.         xor     s0, #71
  41.  
  42.         load    s1, s0
  43.         and     s1, s0
  44.         or      s1, s0
  45.         xor     s1, s0
  46.  
  47.         add     s0, #21
  48.         addcy   s0, #03
  49.         sub     s0, #19
  50.         subcy   s0, #71
  51.  
  52.         add     s1, s0
  53.         addcy   s1, s0
  54.         sub     s1, s0
  55.         subcy   s1, s0
  56.  
  57.         sr0     s0
  58.         sr1     s0
  59.         srx     s0
  60.         sra     s0
  61.         rr      s0
  62.  
  63.         sl0     s0
  64.         sl1     s0
  65.         slx     s0
  66.         sla     s0
  67.         rl      s0
  68.  
  69.         input   s0, #21
  70.         input   s0, (s1)
  71.         output  s0, #21
  72.         output  s0, (s1)
  73.  
  74.         returni enable
  75.         returni disable
  76.  
  77.         enable  interrupt
  78.         disable interrupt
  79.  
  80. myreg   equ     s12
  81. myregr  reg     s12
  82. myregre reg     myreg
  83.  
  84.         add     s12,200
  85.         add     myreg,200
  86.         add     myregr,200
  87.         add     myregre,200
  88.  
  89.         segment data
  90.  
  91.         org     0aah
  92. vari:
  93.