examples/subs/pasm_sub1.pasm

   1 # Copyright (C) 2001-2005, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 examples/subs/pasm_sub1.pasm - Parrot calling conventions
   7
   8 =head1 SYNOPSIS
   9
  10     % ./parrot examples/subs/pasm_sub1.pasm
  11
  12 =head1 DESCRIPTION
  13
  14 Sample subroutines in Parrot assembler.
  15 Shows you how to create a C<.Sub> and C<invokecc> it.
  16
  17 = TODO
  18
  19 Examples for parameter passing.
  20
  21 =head1 SEE ALSO
  22
  23 F<docs/ops/core.pod>
  24 F<docs/pdds/pdd03_calling_conventions.pod>
  25
  26 =cut
  27
  28     # Fetch a subroutine objec
  29     .const 'Sub' P0 = "_sub"
  30
  31     # Call the sub in argument, create return continuation
  32     invokecc P0
  33
  34     # got here, because the sub invoked the return continuation
  35     print "Hello from main\n"
  36
  37     end
  38
  39 # A subroutine
  40 .pcc_sub _sub:
  41     print "Hello from subroutine\n"
  42
  43     # Call the return continuation
  44     returncc
  45
  46 # Local Variables:
  47 #   mode: pir
  48 #   fill-column: 100
  49 # End:
  50 # vim: expandtab shiftwidth=4 ft=pir: