root/as/cmd/SVC/svc__2.casl

   1 ;;; SVC 2 1文字を表示
   2 MAIN    START
   3 BEGIN   LAD     GR1,D
   4         LAD     GR2,A
   5         SVC     2
   6         LAD     GR1,=#A
   7         SVC     2
   8         RET
   9 D       DC      '0'
  10 A       DC      1
  11         END