as/cmd/ST/st1.casl

   1 ;;; ST r,adr,x
   2 MAIN    START
   3         LD      GR1,A
   4         LAD     GR2,A
   5         ST      GR1,1,GR2
   6         RET
   7 A       DC      5
   8 B       DS      1
   9         END