################################################################################
#                                                                              #
#    Micro Series 8051 Assembler V2.02/DOS              14/Jun/05  14:51:24    #
#                                                                              #
#       Source   =   p3_2.s03                                                  #
#       List     =   p3_2.lst                                                  #
#       Object   =   p3_2.r03                                                  #
#       Options  =   f                                                         #
#                                                                              #
#                                               (c) Copyright IAR Systems 1990 #
################################################################################


    1                 ;Sven Eisenhauer
    2                 ;MPS1 Versuch 3 Aufgabe 2
    3                 ;14.06.2005
    4                 
  102                 
  103  0000                     ORG     0000h
  104                 
  105  0000 75C6F0              MOV     CCL3,#0F0H
  106  0003 75C7D8              MOV     CCH3,#0D8H
  107  0006 75CAE0              MOV     CRCL,#0E0H
  108  0009 75CBB1              MOV     CRCH,#0B1H
  109  000C 75C180              MOV     CCEN,#80H
  110  000F 75C811              MOV     T2CON,#11H
  111                 
  112                 ;SETB P1.0
  113  0012 90F803              MOV     DPTR,#0F803h
  114  0015 7492                MOV     A,#92h
  115  0017 F0                  MOVX    @DPTR,A
  116  0018 90F802              MOV     DPTR,#0F802h
  117                 
  118  001B 7400                MOV     A,#00h
  119  001D F0                  MOVX    @DPTR,A
  120  001E 75F800              MOV     P5,#00h
  121  0021 7800                MOV     R0,#00h
  122  0023 7900                MOV     R1,#00h
  123                 
  124  0025 2090FD    WAIT:     JB      P1.0,WAIT
  125  0028 E8                  MOV     A,R0
  126  0029 C3                  CLR     C
  127  002A B4FF00              CJNE    A,#0FFh,CARRY
  128                 
  129  002D 4003      CARRY:    JC      LBINK
  130  002F 09        HBINK:    INC     R1
  131  0030 8003                SJMP    AUSG
  132  0032 08        LBINK:    INC     R0
  133  0033 8000                SJMP    AUSG
  134                 
  135  0035 12003D    AUSG:     LCALL   PORTS
  136  0038 3090FD    WAIT2:    JNB     P1.0,WAIT2
  137  003B 80E8                SJMP    WAIT
  138                 
  139  003D 88F8      PORTS:    MOV     P5,R0
  140  003F 90F802              MOV     DPTR,#0F802h
  141  0042 E9                  MOV     A,R1
  142  0043 F0                  MOVX    @DPTR,A
  143  0044 22                  RET
  144                 
  145  0045 F599      SENDSE:   MOV     SBUF,A
  146  0047 C299                CLR     TI
  147  0049 3099FD    WARTE:    JNB     TI, WARTE
  148  004C 22                  RET
  149                 
  150  004D                     END

    Errors:  None             ########
    Bytes:   77               # p3_2 #
    CRC:     4C80             ########