Bitwise operations: Difference between revisions
Content added Content deleted
m (Balance stack in Uxntal) |
m (Fix syntax highlighting, halt port, and BRK for halt) |
||
Line 6,158: | Line 6,158: | ||
EndPrgm</syntaxhighlight> |
EndPrgm</syntaxhighlight> |
||
=={{header|Uxntal}}== |
=={{header|Uxntal}}== |
||
<syntaxhighlight lang="Uxntal"> |
<syntaxhighlight lang="Uxntal">( bitwise-operations.tal ) |
||
( bitwise-operations.tal ) |
|||
|00 @System [ &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1 ] |
|00 @System [ &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1 ] |
||
Line 6,184: | Line 6,183: | ||
@halt ( -- ) |
@halt ( -- ) |
||
#01 .System DEO |
#01 .System/halt DEO |
||
BRK |
|||
JMP2r |
|||
@<print-arg> ( a name* -- ) |
@<print-arg> ( a name* -- ) |