comparison lab4/test/rep4.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 repeat
3 print_string("Hello"); newline()
4 until true
5 end.
6
7 (*<<
8 Hello
9 >>*)
10
11 (*[[
12 @ picoPascal compiler output
13 .include "fixup.s"
14 .global pmain
15
16 .text
17 pmain:
18 mov ip, sp
19 stmfd sp!, {r4-r10, fp, ip, lr}
20 mov fp, sp
21 @ print_string("Hello"); newline()
22 mov r1, #5
23 set r0, g1
24 bl print_string
25 bl newline
26 ldmfd fp, {r4-r10, fp, sp, pc}
27 .ltorg
28
29 .data
30 g1:
31 .byte 72, 101, 108, 108, 111
32 .byte 0
33 @ End
34 ]]*)