th31.asm

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

; 93C46
     CS BIT 0B0H
     SK BIT 0B1H
     DI BIT 0B2H
     DO BIT 0B3H
     ADDR EQU 2FH
     ORG 0
     AJMP MAIN
     ORG 30H
MAIN:ACALL RWEN
     MOV R0,#30H
     MOV ADDR,#0
     MOV R3,#8
WLOP:ACALL WRITE
     INC R0
     INC ADDR
     DJNZ R3,WLOP
     ACALL RWDS
DP:  ACALL RWEN
     MOV R0,#40H
     MOV ADDR,#0
     MOV R3,#8
RLOP:ACALL READ
     INC R0
     INC ADDR
     DJNZ R3,RLOP
     ACALL RWDS
     SJMP $
RWEN:CLR  CS
     SETB CS
     NOP
     NOP
     NOP
     NOP
     SETB DI
     SETB SK
     NOP
     CLR SK
     MOV A,#30H
     ACALL W8B
     CLR CS
     RET
RWDS:CLR CS
     SETB CS
     NOP
     NOP
     NOP
     NOP
     SETB DI
     SETB SK
     NOP
     CLR SK
     CLR A
     ACALL W8B
     CLR CS
     RET
W8B: MOV R2,#8
WLO: RLC A
     MOV DI,C
     NOP
     NOP
     NOP
     NOP
     SETB SK
     NOP
     NOP
     CLR SK
     NOP
     DJNZ R2,WLO
     RET
WRITE:MOV A,#40H
      ORL A,ADDR
      CLR CS
      SETB CS
      NOP
      NOP
      NOP
      NOP
      SETB DI
      NOP
      SETB SK
      NOP
      CLR SK
      NOP
      ACALL W8B
      MOV A,@R0
      ACALL W8B
      INC R0
      MOV A,@R0
      ACALL W8B
      CLR CS
      NOP
      SETB CS
      SETB DO
      ACALL D10MS
      JNB DO,$
      RET
D10MS: MOV R7,#20
DLOP:  MOV R6,#250
       DJNZ R6,$
       DJNZ R7,DLOP
       RET

READ:MOV A,#80H
     ORL A,ADDR
     CLR CS
     SETB CS
     NOP
     NOP
     NOP
     NOP
     SETB DI
     NOP
     SETB SK
     NOP
     CLR SK
     NOP
     ACALL W8B
     SETB DO
     JB DO,$
     ACALL R8B
     INC R0
     ACALL R8B
     RET
 R8B:MOV R2,#8
     SETB DO
     NOP
     NOP
RLO:SETB SK
     NOP
     NOP
     CLR SK
     NOP
     NOP
     MOV C,DO
     RLC A
     DJNZ R2,RLO
     MOV @R0,A
     RET

     end