as/casl2lib/sample/call_str2l.casl

   1 ;;; casl2 call_str2l.casl stdlib.casl
   2 MAIN    START
   3         XOR     GR4,GR4
   4         LAD     GR6,LEN
   5 BLP     LAD     GR1,STR,GR4
   6         LD      GR2,0,GR6
   7         JZE     FIN
   8         LD      GR5,GR1
   9         CALL    STR2L
  10         JOV     OV
  11         JMI     NAN
  12         LD      GR1,GR3
  13         CALL    OUTL
  14         LD      GR1,GR5
  15         JUMP    ELP
  16 OV      OUT     MSGOV,LENOV
  17         JUMP    ELP
  18 NAN     OUT     MSGNAN,LENNAN
  19 ELP     ADDL    GR4,GR2
  20         LAD     GR6,1,GR6
  21         JUMP    BLP
  22 FIN     RET
  23 STR     DC      '0'
  24         DC      '1'
  25         DC      '123'
  26         DC      '1234'
  27         DC      '65535'
  28         DC      '65536'
  29         DC      '123456'
  30         DC      'a'
  31 LEN     DC      1
  32         DC      1
  33         DC      3
  34         DC      4
  35         DC      5
  36         DC      5
  37         DC      6
  38         DC      1
  39         DC      0
  40 MSGOV   DC      'over 65535'
  41 LENOV   DC      10
  42 MSGNAN  DC      'not a logical integer'
  43 LENNAN  DC      21
  44         END