** = = = = = = = = = = = = = = = ** 22.08.86 VERSION 5
**   ABTOMATECKOE PEPBAHE   **
** = = = = = = = = = = = = = = = **
LOCALS -LINT
  DATA P,L
  DATA TYP:IT ,AD:IT
  BYTES W:FLAG[1]                       %POTB AKBAH

PROGRAM IT(,,AD:IT)
  (IF W:FLAG:<>
    DPC <<HO.CD.CD."IT MICROCODE ERROR".0>>
    CSV DEBUG
  IF)
  W:FLAG:=1                             %ET "IT"
  CALL TOSTAC ,,#PSW                    %IF HE HAO, OH CAM BOBT
  CALL TOSTAC ,,#PC
  #PC=((CALL READ AD:IT,0))
  #PSW=((CALL READ AD:IT+2,0))
  W:FLAG:=0                             %MOHO IT
  P=#IT:RET
  RETURN ,
