Here is something I made in 2 seconds:
Code: Select all
;SOME CRAP
SET A, 4 ; sets register A to 4
SET B, 5 ; sets register B to 5
ADD A, B; sets register A to A+B (4+5)
Code: Select all
;SOME CRAP
SET A, 4 ; sets register A to 4
SET B, 5 ; sets register B to 5
ADD A, B; sets register A to A+B (4+5)
Code: Select all
SET X, 10
SET Y, 10
:loop
IFE X, 10000
SET PC, end
IFG 10000, X
ADD X,Y
:end
SET PC, end
Code: Select all
SET A, 1 ; set register A to 1
SET B, 1 ; set register B to 1
ADD A, B ; set register A to A+B
Code: Select all
SET [0x8000], 1 ; Set the memory of 0x8000 to 1
SET A, 1 ; Set the register A to 1
ADD A, [0x8000] ; Set a to A+[0x8000]
Code: Select all
; Hello, World!
set x, 0x8000
set y, text
:loop
ife [y], 0
set PC, end
; the new IO spec stupidly defaults to black text on a black background. We use the line below to set it to white on black.
set [x], 0xF000
bor [x], [y]
add x, 1
add y, 1
set PC, loop
; variables
:text
dat 72, 101, 108, 108, 111, 32, 119, 111, 114, 108, 100, 33, 0
:end
sub PC, 1