; Simple example machine language programm for procedure calls
;
; Peter Christen, 8 March 2004

START a10

AT a10
110100           a30    ; a10 call a30
o0 o1  0 001 000 001    ; a11 load 'A'
110101            a3    ; a12 trap 3 (put)
110100           a30    ; a13 call a30
o0 o1  0 001 000 010    ; a14 load 'B'
110101            a3    ; a15 trap 3 (put)
110100           a30    ; a16 call a30
110101            a1    ; a17 trap 1 (halt)

AT a30                  ; procedure to print '*'
o0 o1  0 000 101 010    ; a30 load '*'
110101            a3    ; a31 trap 3 (put)
1110000         o000    ; a32 return