comparison ppc/test/string.p @ 0:bfdcc3820b32

Basis
author Mike Spivey <mike@cs.ox.ac.uk>
date Thu, 05 Oct 2017 08:04:15 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:bfdcc3820b32
1 (* hello.p *)
2 begin
3 print_string("Hello world!");
4 newline()
5 end.
6
7 (*<<
8 Hello world!
9 >>*)
10
11 (*[[
12 MODULE Main 0 0
13 IMPORT Lib 0
14 ENDHDR
15
16 PROC MAIN 0 0 0
17 ! print_string("Hello world!");
18 CONST 12
19 GLOBAL g1
20 CONST 0
21 GLOBAL lib.print_string
22 PCALL 2
23 ! newline()
24 CONST 0
25 GLOBAL lib.newline
26 PCALL 0
27 RETURN
28 END
29
30 ! String "Hello world!"
31 DEFINE g1
32 STRING 48656C6C6F20776F726C642100
33
34 ! End
35 ]]*)