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