comparison ppc/test/print5.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 begin
2 print_string("five"); newline()
3 end.
4
5 (*<<
6 five
7 >>*)
8
9 (*[[
10 MODULE Main 0 0
11 IMPORT Lib 0
12 ENDHDR
13
14 PROC MAIN 0 0 0
15 ! print_string("five"); newline()
16 CONST 4
17 GLOBAL g1
18 CONST 0
19 GLOBAL lib.print_string
20 PCALL 2
21 CONST 0
22 GLOBAL lib.newline
23 PCALL 0
24 RETURN
25 END
26
27 ! String "five"
28 DEFINE g1
29 STRING 6669766500
30
31 ! End
32 ]]*)