as/exam_fe/2009_10/Q12/replace_call.casl

   1 MAIN    START
   2         LAD     GR1,A
   3         LD      GR0,B
   4         LD      GR2,P
   5         LD      GR3,Q
   6         CALL    REPLACE
   7         LAD     GR1,A
   8         LAD     GR2,0
   9 LOOP    CPA     GR2,CNT
  10         JZE     FIN
  11         LD      GR1,A,GR2
  12         CALL    OUTB
  13         LAD     GR2,1,GR2
  14         JUMP    LOOP
  15 FIN     RET
  16 A       DC      #FFFF,#FFFF,#FFFF,#FFFF,#FFFF,#FFFF
  17 CNT     DC      6
  18 B       DC      #B1D0
  19 P       DC      55
  20 Q       DC      12
  21         END