mirror of
https://github.com/irmen/prog8.git
synced 2024-07-05 22:29:04 +00:00
40 lines
876 B
Plaintext
40 lines
876 B
Plaintext
; source code for a stackvm program
|
|
; init memory bytes/words/strings
|
|
%memory
|
|
0400 01 02 03 04 05 06 07 08 09 22 33 44 55 66
|
|
0500 1111 2222 3333 4444
|
|
1000 "Hello world!\n"
|
|
%end_memory
|
|
; init global var table with bytes/words/floats/strings
|
|
%variables
|
|
main.var1 str "This is main.var1"
|
|
main.var2 byte aa
|
|
main.var3 word ea44
|
|
main.var4 float 3.1415927
|
|
main.textcolor byte 0
|
|
input.prompt str "Enter a number: "
|
|
input.result word 0
|
|
%end_variables
|
|
; instructions and labels
|
|
%instructions
|
|
nop
|
|
syscall WRITE_MEMSTR w:1000
|
|
loop:
|
|
inc_var main.textcolor
|
|
syscall RANDOM
|
|
syscall RANDOM
|
|
push_var main.textcolor
|
|
syscall GFX_PIXEL
|
|
; syscall WRITE_VAR "input.prompt"
|
|
; push b:10
|
|
; syscall INPUT_STR
|
|
; pop_var input.result
|
|
; syscall WRITE_VAR "input.result"
|
|
; push b:8d
|
|
; syscall WRITE_CHAR
|
|
jump loop
|
|
%end_instructions
|
|
|
|
|
|
|