Subversion Repositories pentevo

Rev

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

  1.         cpu     mn1613alt
  2.         page    0
  3.  
  4.         irp     instr,ld,std
  5.  
  6.         ; X'00000'...X'0ffff' addressable
  7.         assume  csbr:0,ssbr:0,tsr0:0,tsr1:0
  8.  
  9.         instr   r1,X'1000'
  10.         instr   r1,X'ffff'
  11.         expect  110
  12.         instr   r1,X'10000'
  13.         endexpect
  14.         instr   r1,csbr,X'1000'
  15.         instr   r1,csbr,X'ffff'
  16.         expect  110
  17.         instr   r1,csbr,X'10000'
  18.         endexpect
  19.         instr   r1,ssbr,X'1000'
  20.         instr   r1,ssbr,X'ffff'
  21.         expect  110
  22.         instr   r1,ssbr,X'10000'
  23.         endexpect
  24.         instr   r1,tsr0,X'1000'
  25.         instr   r1,tsr0,X'ffff'
  26.         expect  110
  27.         instr   r1,tsr0,X'10000'
  28.         endexpect
  29.         instr   r1,tsr1,X'1000'
  30.         instr   r1,tsr1,X'ffff'
  31.         expect  110
  32.         instr   r1,tsr1,X'10000'
  33.         endexpect
  34.  
  35.         ; X'04000...X'13fff addressable
  36.         assume  csbr:1
  37.         expect  110
  38.         instr   r1,X'1000'
  39.         endexpect
  40.         instr   r1,X'4000'
  41.         instr   r1,X'ffff'
  42.         instr   r1,X'10000'
  43.         instr   r1,X'13fff'
  44.         expect  110
  45.         instr   r1,X'14000'
  46.         endexpect
  47.  
  48.         ; X'3c000...X'3ffff and X'00000...X'0bfff addressable
  49.         assume  csbr:15
  50.         instr   r1,X'0000'
  51.         instr   r1,X'1000'
  52.         instr   r1,X'bfff'
  53.         expect  110
  54.         instr   r1,X'c000'
  55.         endexpect
  56.         expect  110
  57.         instr   r1,X'3bfff'
  58.         endexpect
  59.         instr   r1,X'3c000'
  60.         endm
  61.  
  62.         irp     instr,lr,str
  63.         instr   r2, ( r3 )
  64.         instr   r2,ssbr,-(r4)
  65.         instr   r2,tsr0,(r1)+
  66.         endm
  67.  
  68.         irp     instr,mvwr,mvbr,bswr,dswr,awr,swr,cwr,cbr,ladr,andr,orr,eorr
  69.         instr   r0,(r2)
  70.         instr   r0,(r3),lm
  71.         expect  1445
  72.         instr   r1,(r2)
  73.         endexpect
  74.         expect  1350
  75.         instr   r0,(r3)+
  76.         endexpect
  77.         endm
  78.  
  79.         irp     instr,mvwi,awi,swi,cwi,cbi,ladi,andi,ori,eori,ladi
  80.         instr   r3,X'5678'
  81.         instr   x1,X'8765',pz
  82.         endm
  83.  
  84.         irp     instr,ad,sd
  85.         instr   dr0,(r2)
  86.         expect  1445
  87.         instr   dr1,(r2)
  88.         endexpect
  89.         instr   dr0,(r2),c
  90.         expect  1360
  91.         instr   dr0,(r2),xyz
  92.         endexpect
  93.         instr   dr0,(r2),pz
  94.         expect  1360
  95.         instr   dr0,(r2),c,xyz
  96.         endexpect
  97.         instr   dr0,(r2),c,pz
  98.         expect  1445
  99.         instr   dr0,(r2),cc,pz
  100.         endexpect
  101.         endm
  102.  
  103.         irp     instr,m,d,fa,fs,fm,fd
  104.         instr   dr0,(r2)
  105.         expect  1445
  106.         instr   dr1,(r2)
  107.         endexpect
  108.         expect  1360
  109.         instr   dr0,(r2),xyz
  110.         endexpect
  111.         instr   dr0,(r2),pz
  112.         endm
  113.  
  114.         irp     instr,daa,das
  115.         instr   r0,(r2)
  116.         expect  1445
  117.         instr   r1,(r2)
  118.         endexpect
  119.         instr   r0,(r2),c
  120.         expect  1360
  121.         instr   r0,(r2),xyz
  122.         endexpect
  123.         instr   r0,(r2),pz
  124.         expect  1360
  125.         instr   r0,(r2),c,xyz
  126.         endexpect
  127.         instr   r0,(r2),c,pz
  128.         expect  1445
  129.         instr   r0,(r2),cc,pz
  130.         endexpect
  131.         endm
  132.  
  133.         irp     instr,rdr,wtr
  134.         instr   r4,(r3)
  135.         instr   x1,(x0)
  136.         endm
  137.  
  138.         assume  csbr:0
  139.  
  140.         irp     instr,bd,bald
  141.         instr   X'3456'
  142.         expect  110
  143.         instr   X'12345'
  144.         endexpect
  145.         endm
  146.  
  147.         irp     instr,bl,ball
  148.         instr   (X'3456')
  149.         expect  1350
  150.         instr   X'3456'
  151.         endexpect
  152.         expect  110
  153.         instr   (X'12345')
  154.         endexpect
  155.         endm
  156.  
  157.         irp     instr,br,balr
  158.         instr   (r2)
  159.         expect  1350
  160.         instr   (r0)
  161.         endexpect
  162.         endm
  163.  
  164.         irp     instr,tset,trst
  165.         instr   r4,X'2345'
  166.         instr   r4,X'2345',nz
  167.         expect  110
  168.         instr   r4,X'12345',nz
  169.         endexpect
  170.         endm
  171.  
  172.         neg     r1
  173.         neg     r1,c
  174.         expect  1360
  175.         neg     r1,xyz
  176.         endexpect
  177.         neg     r1,c,pz
  178.         expect  1445
  179.         neg     r1,x,pz
  180.         endexpect
  181.         expect  1360
  182.         neg     r1,c,xyz
  183.         endexpect
  184.  
  185.         fix     r0,dr0
  186.         fix     r0,dr0,z
  187.         flt     dr0,r0
  188.         flt     dr0,r0,z
  189.  
  190.         srbt    r0,r2
  191.         debp    r2,r0
  192.         blk     (r2),(r1),r0
  193.         expect  1350
  194.         blk     (r3),(r1),r0
  195.         endexpect
  196.         expect  1350
  197.         blk     (r2),(r3),r0
  198.         endexpect
  199.         expect  1445
  200.         blk     (r2),(r1),r4
  201.         endexpect
  202.  
  203.         irp     reg,ssbr,tsr0,tsr1,osr0,osr1,osr2,osr3
  204.         lb      reg,X'2345'
  205.         expect  110
  206.         lb      reg,X'12345'
  207.         endexpect
  208.         endm
  209.  
  210.         irp     reg,csbr,ssbr,tsr0,tsr1,osr0,osr1,osr2,osr3
  211.         stb     reg,X'2345'
  212.         expect  110
  213.         stb     reg,X'12345'
  214.         endexpect
  215.         endm
  216.  
  217.         irp     reg,sbrb,icb,npp
  218.         irp     instr,ls,sts
  219.         instr   reg,X'2345'
  220.         expect  110
  221.         instr   reg,X'12345'
  222.         endexpect
  223.         endm
  224.         endm
  225.  
  226.         irp     reg,csbr,ssbr,tsr0,tsr1,osr0,osr1,osr2,osr3
  227.         cpyb    r4,reg
  228.         endm
  229.  
  230.         irp     reg,ssbr,tsr0,tsr1,osr0,osr1,osr2,osr3
  231.         setb    r4,reg
  232.         endm
  233.  
  234.         irp     reg,sbrb,icb,npp
  235.         irp     instr,cpys,sets
  236.         instr   r4,reg
  237.         endm
  238.         endm
  239.  
  240.         irp     reg,tcr,tir,tsr,scr,ssr,sir,iisr
  241.         cpyh    r4,reg
  242.         endm
  243.  
  244.         irp     reg,tcr,tir,tsr,scr,ssr,sor,iisr
  245.         seth    r4,reg
  246.         endm
  247.  
  248.         pshm
  249.         popm
  250.  
  251.         retl
  252.  
  253.         ; floating point support is experimental:
  254.  
  255.         dc      0.0             ; 0000 0000 = 0.0000 * 16^(-64)
  256.         dc      1.0             ; 4110 0000 = 1/16 * 16^1
  257.         dc      2.0             ; 4120 0000 = 1/8 * 16^1
  258.         dc      4.0             ; 4140 0000 = 1/4 * 16^1
  259.         dc      8.0             ; 4180 0000 = 1/2 * 16^1
  260.         dc      16.0            ; 4210 0000 = 1/16 * 16^2
  261.         dc      24.0            ; 4218 0000 = 3/16 * 16^2
  262.         dc      42.0            ; 422A 0000 = 21/8 * 16^2
  263.         dc      0.125           ; 4020 0000 = 1/8 * 16^0
  264.         dc      0.0078125       ; 3F20 0000 = 1/8 * 16^-1
  265.         dc      1000.0          ; 433E 8000 = 0.24414062 * 16^3
  266.         dc      -1000.0         ; C33E 8000 = -0.24414062 * 16^3
  267. ;       dc      0.1             ; 4019 999A = 0.1 * 16^0
  268. ;       dc      7.237005E75     ; 7FFF FFFf (almost maximum)
  269. ;       dc      5.39761E-79     ; 0010 0000 or 000F FFFF (smallest non-denormal number)
  270.