as/CMD/svc2_out.casl

   1 ;;; 「OUT」と同等のプログラム
   2 OTEST   START
   3         PUSH    0,GR1
   4         PUSH    0,GR2
   5         LAD     GR1,OBUF
   6         LD      GR2,LEN
   7         SVC     2
   8         LAD     GR1,=#A
   9         LAD     GR2,1
  10         SVC     2
  11         POP     GR2
  12         POP     GR1
  13         RET
  14 OBUF    DC      'abcd'
  15 LEN     DC      4
  16         END