time.asm

AD AND TLC549 TLC548C, TLC548I, TLC549C, TLC549I

      ORG 0000H
      AJMP MAIN
      ORG 000BH
      AJMP IINT0
      ORG 0030H
MAIN: MOV R6,#10
      SETB P3.7
      MOV TMOD,#61H
      MOV TL0,#3CH
      MOV TH0,#0B0H
      MOV IE,#82H
      SETB TR0
      MOV TL1,#0
      MOV TH1,#0
      SETB TR1

loop0:MOV A,TL1
      CPL A
      LCALL TRANS
      MOV P1,A
      SJMP LOOP0
TRANS:MOV B,A
      MOV C,B.0
      MOV ACC.7,C
      MOV C,B.1
      MOV ACC.6,C
      MOV C,B.2
      MOV ACC.5,C
      MOV C,B.3
      MOV ACC.4,C
      MOV C,B.4
      MOV ACC.3,C
      MOV C,B.5
      MOV ACC.2,C
      MOV C,B.6
      MOV ACC.1,C
      MOV C,B.7
      MOV ACC.0,C
      RET
      

IINT0:PUSH ACC
      PUSH PSW
      MOV TL0,#3CH
      MOV TH0,#0B0H
      DJNZ R6,LOOP3
      CPL P3.7
      MOV R6,#10
LOOP3:POP PSW
      POP ACC
      RETI
   
      END