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


    1                 ;Sven Eisenhauer
    2                 ;MPS1 Versuch 3 Aufgabe 1
    3                 ;14.06.2005
    4                 
  102                 
  103  0000                     ORG     0000h
  104                 
  105  0000 D290                SETB    P1.0
  106  0002 D293                SETB    P1.3
  107  0004 901000              MOV     DPTR,#1000h
  108                 
  109  0007 309314    START:    JNB     P1.3,OUTPUT
  110  000A 309002              JNB     P1.0,READ
  111  000D 80F8                SJMP    START
  112                 
  113  000F E5E8      READ:     MOV     A,P4
  114  0011 F0                  MOVX    @DPTR,A
  115  0012 A3                  INC     DPTR
  116  0013 12002D              LCALL   SENDSE
  117  0016 7400                MOV     A,#00h
  118  0018 F0                  MOVX    @DPTR,A
  119  0019 3090FD    LOOP:     JNB     P1.0,LOOP
  120  001C 80E9                SJMP    START
  121                 
  122  001E 901000    OUTPUT:   MOV     DPTR,#1000h
  123  0021 E0        OUTPUT2:  MOVX    A,@DPTR
  124  0022 A3                  INC     DPTR
  125  0023 12002D              LCALL   SENDSE
  126  0026 E0                  MOVX    A,@DPTR
  127  0027 B400F7              CJNE    A,#00h,OUTPUT2
  128  002A 028000              LJMP    8000h
  129                 
  130  002D F599      SENDSE:   MOV     SBUF,A
  131  002F C299                CLR     TI
  132  0031 3099FD    WARTE:    JNB     TI, WARTE
  133  0034 22                  RET
  134                 
  135  0035                     END

    Errors:  None             ########
    Bytes:   53               # p3_1 #
    CRC:     4500             ########