as/cmd/SVC/svc2.casl

   1 ;;; 「SVC 2」で数値を表示
   2 ;;; casl2 svctest.casl div10.casl
   3 MAIN    START
   4 BEGIN   LAD     GR1,D
   5         LAD     GR2,A
   6         SVC     2
   7         LAD     GR1,=#A
   8         SVC     2
   9         RET
  10 D       DC      '0'
  11 A       DS      1
  12         END