ORG 0000H
MAIN:   MOV R0,#20H
               MOV DPTR,#8400H
               LCALL HT
               LCALL TH
HT:        XCH A,@R0
               ORL A,#00100000B
	   XCH A,@R0
	   INC R0
	   CJNE R0,#2FH,HT
	   RET
TH:         XCH A,@R0
               ANL A,#11011111B
	   XCH A,@R0
	   MOVX @DPTR,A 
	   INC R0
	   INC DPTR
	   CJNE R0,#2FH,TH
	  END