as/cmd/SVC/svc2.casl

   1 ;;; 「SVC 2」で数値を表示
   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