as/outi2_call.casl

   1 ; need outi.casl
   2 MAIN    START
   3         LAD GR1,A
   4     LAD GR2,5
   5     CALL OUTI
   6 FIN     RET
   7 A       DC      12,67891,20,12,23
   8         END