as/outtest2.casl

   1 OTEST START
   2     PUSH 0,GR1
   3     PUSH 0,GR2
   4     LAD GR1,OBUF
   5     LD GR2,LEN
   6     SVC 2
   7     LAD GR1,=#A
   8     LAD GR2,1
   9     SVC 2
  10     POP GR2
  11     POP GR1
  12         RET
  13          ; Memory
  14 OBUF DC 'abcd'
  15 LEN DC 4
  16         END