as/outi_call.casl

   1 ; need outi.casl
   2 MAIN    START
   3         LAD GR1,#8000
   4     CALL OUTI
   5 FIN     RET
   6         END