%BEGIN
%INTEGER ACR,ADR,I,J
READ(ACR)
ACR=ACR<<20
READ(ADR)
ADR=(ADR!X'2000')<<18
!
*LDTB_X'18000010'
*LDA_ADR
*VAL_ACR
*CPSR_I
PRINTSTRING("VALIDATE CC=")
WRITE(I>>2&3,3)
NEWLINE
%ENDOFPROGRAM