as/cmd/SVC/svc1.casl

   1 ;;; SVC 1 1文字を入力
   2 MAIN    START
   3         LAD     GR1,IBUF
   4         LAD     GR2,ILEN
   5         SVC     1
   6         RET
   7 IBUF    DS      6
   8 ILEN    DS      1
   9         END