URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 107 |
Rev 1765 |
xx : module
|
xx : module
|
|
|
dcl a chars(200) varying init := (70)'^(0)' // "Jason""^(0,5)""Hugo^(10)" // (70)'^(1)';
|
dcl a chars(200) varying init := (70)'^(0)' // "Jason""^(0,5)""Hugo^(10)" // (70)'^(1)';
|
dcl b chars(20) varying init := "Jason""^(0,5)""Hugo^(10)";
|
dcl b chars(20) varying init := "Jason""^(0,5)""Hugo^(10)";
|
dcl c chars(256) varying init := (70)'a' // "^(0,5)Jason" // (70)'b';
|
dcl c chars(256) varying init := (70)'a' // "^(0,5)Jason" // (70)'b';
|
dcl d char init := '^(11)';
|
dcl d char init := '^(11)';
|
|
|
bulk: PROC ();
|
bulk: PROC ();
|
END bulk;
|
END bulk;
|
|
|
a := (50) '^(255,0,222,127)';
|
a := (50) '^(255,0,222,127)';
|
b := (1)'^(200)';
|
b := (1)'^(200)';
|
d := 'a';
|
d := 'a';
|
|
|
c:= (256)" ";
|
c:= (256)" ";
|
|
|
DO FOR i:= 0 BY 1 TO 255;
|
DO FOR i:= 0 BY 1 TO 255;
|
c (255-i) := char (i);
|
c (255-i) := char (i);
|
OD;
|
OD;
|
|
|
bulk ();
|
bulk ();
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.