Subversion Repositories pentevo

Rev

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

  1.         cpu     cp-3f
  2.         page    0
  3.  
  4. port1   port    4
  5. port2   port    5
  6.  
  7.         las     7       ; f7
  8.         ld      a,#7
  9.         las     15      ; ff
  10.         ld      a,#15
  11.         expect  1320,1320
  12.         las     16      ; !
  13.         ld      a,#<16
  14.         endexpect
  15.  
  16.         lss     6       ; 2e
  17.         ld      s,#6
  18.         lss     7       ; 2f
  19.         ld      s,#7
  20.         expect  1320,1320
  21.         lss     8       ; !
  22.         ld      s,#8
  23.         endexpect
  24.  
  25.         lts     3       ; 3b
  26.         ld      t,#3
  27.         lts     7       ; 3f
  28.         ld      t,#7
  29.         expect  1320,1320
  30.         lts     8       ; !
  31.         ld      t,#8
  32.         endexpect
  33.  
  34.         lal     10      ; 04 0a
  35.         ld      a,#>10
  36.         lal     -10     ; 04 f6
  37.         ld      a,#-10
  38.         lal     255     ; 04 ff
  39.         ld      a,#255
  40.         lal     -128    ; 04 80
  41.         ld      a,#-128
  42.         expect  1320,1320
  43.         lal     256     ; !
  44.         ld      a,#256
  45.         endexpect
  46.         expect  1315,1315
  47.         lal     -129    ; !
  48.         ld      a,#-129
  49.         endexpect
  50.  
  51.         anl     24h     ; 05 24
  52.         and     #24h
  53.         and     a,#24h
  54.         anl     -24h    ; 05 dc
  55.         and     #-24h
  56.         and     a,#-24h
  57.         anl     255     ; 05 ff
  58.         and     #255
  59.         and     a,#255
  60.         anl     -128    ; 05 80
  61.         and     #-128
  62.         and     a,#-128
  63.         expect  1320,1320,1320
  64.         anl     256     ; !
  65.         and     #256
  66.         and     a,#256
  67.         endexpect
  68.         expect  1315,1315,1315
  69.         anl     -129    ; !
  70.         and     #-129
  71.         and     a,#-129
  72.         endexpect
  73.  
  74.         eol     35h     ; 0c 35
  75.         xor     #35h
  76.         xor     a,#35h
  77.         eol     -35h    ; 0c cb
  78.         xor     #-35h
  79.         xor     a,#-35h
  80.         eol     255     ; 0c ff
  81.         xor     #255
  82.         xor     a,#255
  83.         eol     -128    ; 0c 80
  84.         xor     #-128
  85.         xor     a,#-128
  86.         expect  1320,1320,1320
  87.         eol     256     ; !
  88.         xor     #256
  89.         xor     a,#256
  90.         endexpect
  91.         expect  1315,1315,1315
  92.         eol     -129    ; !
  93.         xor     #-129
  94.         xor     a,#-129
  95.         endexpect
  96.  
  97.         orl     4ah     ; 0d 4a
  98.         or      #4ah
  99.         or      a,#4ah
  100.         orl     -4ah    ; 0d b6
  101.         or      #-4ah
  102.         or      a,#-4ah
  103.         orl     255     ; 0d ff
  104.         or      #255
  105.         or      a,#255
  106.         orl     -128    ; 0d 80
  107.         or      #-128
  108.         or      a,#-128
  109.         expect  1320,1320,1320
  110.         orl     256     ; !
  111.         or      #256
  112.         or      a,#256
  113.         endexpect
  114.         expect  1315,1315,1315
  115.         orl     -129    ; !
  116.         or      #-129
  117.         or      a,#-129
  118.         endexpect
  119.  
  120.         adl     161     ; 0e a1
  121.         add     #161
  122.         add     a,#161
  123.         adl     -61     ; 0e c3
  124.         add     #-61
  125.         add     a,#-61
  126.         adl     255     ; 0e ff
  127.         add     #255
  128.         add     a,#255
  129.         adl     -128    ; 0e 80
  130.         add     #-128
  131.         add     a,#-128
  132.         expect  1320,1320,1320
  133.         adl     256     ; !
  134.         add     #256
  135.         add     a,#256
  136.         endexpect
  137.         expect  1315,1315,1315
  138.         adl     -129    ; !
  139.         add     #-129
  140.         add     a,#-129
  141.         endexpect
  142.  
  143.         cml     16      ; 0f 10
  144.         cp      #16
  145.         cp      a,#16
  146.         cml     -16     ; 0f f0
  147.         cp      #-16
  148.         cp      a,#-16
  149.         cml     255     ; 0f ff
  150.         cp      #255
  151.         cp      a,#255
  152.         cml     -128    ; 0f 80
  153.         cp      #-128
  154.         cp      a,#-128
  155.         expect  1320,1320,1320
  156.         cml     256     ; !
  157.         cp      #256
  158.         cp      a,#256
  159.         endexpect
  160.         expect  1315,1315,1315
  161.         cml     -129    ; !
  162.         cp      #-129
  163.         cp      a,#-129
  164.         endexpect
  165.  
  166.         lav             ; 08
  167.         ld      a,v
  168.         law             ; 09
  169.         ld      a,w
  170.         lax             ; 0a
  171.         ld      a,x
  172.         lay             ; 0b
  173.         ld      a,y
  174.         sav             ; 18
  175.         ld      v,a
  176.         saw             ; 19
  177.         ld      w,a
  178.         sax             ; 1a
  179.         ld      x,a
  180.         say             ; 1b
  181.         ld      y,a
  182.         sat             ; 01
  183.         ld      t,a
  184.         sst             ; 03
  185.         ld      st,a
  186.  
  187.         als             ; 1c
  188.         sla
  189.         sla     a
  190.         sla     a,1
  191.         ars             ; 1d
  192.         srl
  193.         srl     a
  194.         srl     a,1
  195.         alf             ; 1e
  196.         sla     4
  197.         sla     a,4
  198.         arf             ; 1f
  199.         srl     4
  200.         srl     a,4
  201.  
  202.         lar     10      ; 8a
  203.         ld      a,10
  204.         lar     12      ; 8c
  205.         ld      a,(st)
  206.         lar     13      ; 8d
  207.         ld      a,(st)-
  208.         lar     14      ; 8e
  209.         ld      a,(st)+
  210.         sar     10      ; 9a
  211.         ld      10,a
  212.         sar     11      ; 9b
  213.         ld      11,a
  214.         sar     12      ; 9c
  215.         ld      (st),a
  216.         sar     13      ; 9d
  217.         ld      (st)-,a
  218.         sar     14      ; 9e
  219.         ld      (st)+,a
  220.         adr     14      ; ae
  221.         add     (st)+
  222.         add     a,(st)+
  223.         anr     11      ; bb
  224.         and     11
  225.         and     a,11
  226.         eor     12      ; cc
  227.         xor     (st)
  228.         xor     a,(st)
  229.         der     9       ; d9
  230.         dec     9
  231.         dar     14      ; ee
  232.  
  233.         inp     port1   ; 24
  234.         out     port2   ; 35
  235.  
  236.         jmp     123h    ; 41 23
  237.         jaz     123h    ; 49 23
  238.         jan     123h    ; 51 23
  239.         jap     123h    ; 59 23
  240.         jsd     123h    ; 61 23
  241.         jcn     123h    ; 69 23
  242.         jcz     123h    ; 71 23
  243.         jsb     123h    ; 79 23
  244.         gos     123h    ; 79 23 (alias on LP8000)
  245.         ret             ; 00
  246.  
  247.         six             ; 02
  248.         ld      (z(x)),a
  249.         lix             ; 06
  250.         ld      a,(z(x))
  251.         liy             ; 07
  252.         ld      a,(z(y))
  253.         sqx             ; 16
  254.         ld      q(x),a
  255.         sqy             ; 17
  256.         ld      q(y),a
  257.         szx             ; 12
  258.         ld      z(x),a
  259.         szy             ; 13
  260.         ld      z(y),a
  261.