$MOD812
       ORG  0000H
       LJMP START

       ORG  0200H
START: MOV  SP,#40H
       MOV  P1,#00H   ;Makes port 1 an i/p
AGAIN: MOV  A,P1      ;input data into Acc
       MOV  P2,A      ;output data to port2
       JMP  AGAIN
       END