Subversion Repositories pentevo

Rev

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

  1.         cpu     z86c03
  2.  
  3. myreg5  reg     r5
  4.  
  5.         ccf
  6.         rcf
  7.         scf
  8.  
  9.         di
  10.         ei
  11.  
  12.         halt
  13.         stop
  14.  
  15.         wdh
  16.         wdt
  17.  
  18.         iret
  19.         ret
  20.  
  21.         nop
  22.  
  23.         and     r7,r13
  24.         and     myreg5,vari
  25.         and     vari,r4
  26.  
  27.         and     r3,@r14
  28.         and     r2,@vari
  29.         and     vari,@r6
  30.  
  31.         and     r3,#5
  32.         and     vari,#77
  33.         and     @r9,#35h
  34.         and     @vari,#10011b
  35.  
  36.         add     >2,>5           ; disallow register addressing
  37.         adc     myreg5,#4
  38.         sub     @r0,#20
  39.         sbc     r7,vari
  40.         or      vari,@myreg5
  41.         tcm     r0,@r8
  42.         tm      @vari,#00001000b
  43.         cp      vari,#20
  44.         xor     myreg5,#255
  45.  
  46.         inc     myreg5
  47.         inc     @r12
  48.         inc     vari
  49.  
  50.         dec     r6
  51.         dec     vari
  52.         dec     @myreg5
  53.         dec     @vari
  54.         decw    rr6
  55.         decw    vari
  56.         decw    @myreg5
  57.         decw    @vari
  58.         decw    @myreg5
  59.  
  60. test1:  jr      test1
  61.         jr      f,test1
  62.         jr      uge,test1
  63.  
  64.         djnz    myreg5,test1
  65.  
  66.         call    test1
  67.         call    @vari
  68.         call    @rr10
  69.  
  70.         jp      test1
  71.         jp      c,test1
  72.         jp      @vari
  73.         jp      @rr6
  74.  
  75.  
  76.         ld      r3,r4
  77.         ld      myreg5,vari
  78.         ld      r6,@r7
  79.         ld      r8,@vari
  80.         ld      r9,vari(r10)
  81.         ld      r11,#45
  82.  
  83.         ld      vari,r12
  84.         ld      vari,vari
  85.         ld      vari,@r13
  86.         ld      vari,@vari
  87.         ld      vari,#67
  88.  
  89.         ld      @r14,r15
  90.         ld      @r0,vari
  91.         ld      @r1,#89
  92.  
  93.         ld      @vari,r2
  94.         ld      @vari,vari
  95.         ld      @vari,#01
  96.  
  97.         ld      vari(r3),r4
  98.  
  99.  
  100.         ldc     myreg5,@rr6
  101.         ldc     @rr8,r7
  102.         lde     r9,@rr10
  103.         lde     @rr12,r11
  104.  
  105.         ldci    @r13,@rr14
  106.         ldci    @rr0,@r15
  107.         ldei    @r1,@rr2
  108.         ldei    @rr4,@r3
  109.  
  110.  
  111.         srp     #0
  112.  
  113.         ; register aliases
  114.  
  115. myrege          equ     r7
  116. myrrege         equ     rr12
  117. myregr          reg     r7
  118. myrregr         reg     rr12
  119. myregre         reg     myrege
  120. myrregre        reg     myrrege
  121.  
  122.         add     r7,#15
  123.         add     myrege,#15
  124.         add     myregr,#15
  125.         add     myregre,#15
  126.  
  127.         jp      @rr12
  128.         jp      @myrrege
  129.         jp      @myrregr
  130.         jp      @myrregre
  131.  
  132.         segment data
  133.  
  134.         org     0aah
  135. vari:
  136.  
  137.