as/ptn4_call.casl

   1 MAIN    START
   2         LAD     GR1,10
   3         LAD     GR2,5
   4         CALL    PTN4
   5         RET
   6         END