root/as/cmd/ST/st_r_adr_x.casl

/* [<][>][^][v][top][bottom][index][help] */ 
   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
/* [<][>][^][v][top][bottom][index][help] */