as/svctest.casl

   1 ; ./casl2 as/svctest.casl as/div10.casl
   2 MAIN    START
   3 BEGIN   LAD     GR0,91
   4         CALL    DIV10
   5     ST  GR3,A
   6     LD  GR1,A
   7     ADDA        GR1,Z
   8     LAD GR2,1
   9     SVC 2
  10     LAD GR1,=#A
  11     SVC 2
  12         RET
  13 D       DC      '0'
  14 A       DS      1
  15     END