Subversion Repositories pentevo

Rev

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

  1.         cpu     st6218
  2.  
  3.         nop
  4.         ret
  5.         reti
  6.         stop
  7.         wait
  8.  
  9.         jrz     pc
  10.         jrnz    pc+1
  11.         jrc     pc+2
  12.         jrnc    pc+3
  13.  
  14.         ld      a,v
  15.         ld      a,w
  16.         ld      a,x
  17.         ld      a,y
  18.         ld      a,12h
  19.         ld      a,(x)
  20.         ld      a,(y)
  21.         ld      v,a
  22.         ld      12h,a
  23.         ld      (x),a
  24.         ld      (y),a
  25.  
  26.         ldi     a,12h
  27.         ldi     v,12h
  28.         ldi     12h,12h
  29.  
  30.         jp      123h
  31.         call    123h
  32.  
  33.         add     a,v
  34.         add     a,12h
  35.         add     a,(x)
  36.         add     a,(y)
  37.  
  38.         and     a,v
  39.         and     a,12h
  40.         and     a,(x)
  41.         and     a,(y)
  42.  
  43.         cp     a,v
  44.         cp     a,12h
  45.         cp     a,(x)
  46.         cp     a,(y)
  47.  
  48.         sub     a,v
  49.         sub     a,12h
  50.         sub     a,(x)
  51.         sub     a,(y)
  52.  
  53.         addi    a,12h
  54.         andi    a,12h
  55.         cpi     a,12h
  56.         subi    a,12h
  57.  
  58.         clr     a
  59.         clr     v
  60.         clr     12h
  61.  
  62.         com     a
  63.         rlc     a
  64.         sla     a
  65.  
  66.         inc     a
  67.         inc     v
  68.         inc     12h
  69.         inc     (x)
  70.         inc     (y)
  71.  
  72.         dec     a
  73.         dec     v
  74.         dec     12h
  75.         dec     (x)
  76.         dec     (y)
  77.  
  78. vbit    bit     3,v
  79. membit  bit     5,12h
  80.  
  81.         set     3,v
  82.         set     vbit
  83.         res     5,12h
  84.         res     membit
  85.  
  86.         jrs     3,v,pc
  87.         jrs     vbit,pc
  88.         jrr     5,12h,pc+1
  89.         jrr     membit,pc+1
  90.  
  91.         expect  1110,1110
  92.         ascii
  93.         asciz
  94.         endexpect
  95.  
  96.         ascii   "This has no",' NUL termination.'
  97.         asciz   "This has ",' NUL termination.'
  98.  
  99.         ; if we are on page 0, we may jump anywhere in page 0 (dynamic) or 1 (static)
  100.  
  101.         assume  prpr:0
  102.         jp      123h
  103.         call    123h
  104.         jp      923h
  105.         call    923h
  106.         expect  110
  107.          jp     1123h
  108.         endexpect
  109.         expect  110
  110.          call   1123h
  111.         endexpect
  112.  
  113.         ; similar for page 2.  Note PRPR *MUST* be 2, otherwise we could not
  114.         ; execute from this address:
  115.  
  116.         org     1000h
  117.         assume  prpr:2
  118.         jp      1123h
  119.         call    1123h
  120.         jp      923h
  121.         call    923h
  122.         expect  110
  123.          jp     123h
  124.         endexpect
  125.         expect  110
  126.          call   123h
  127.         endexpect
  128.