$TITLE (serielle Ausgabe)
;SFR Register 80515 verfügbar machen
$NOMOD51
$INCLUDE (REG515.INC)

        CSEG AT 0
        JMP start
        CSEG AT 100H
start:  MOV SP,#stack
        CALL serini
        MOV DPTR,#string
        CALL textaus
        MOV DPTR,#text2
        CALL textaus
ende:   JMP ende

; Initialisierung
serini: MOV A,#52H  ;MODE1
        MOV SCON,A
        MOV A,#80H  ;Baudrate
        MOV ADCON,A
        RET

; Ausgabe eines Zeichen
seraus: JNB TI,seraus
        CLR TI
        MOV SBUF,A
        RET
; Adresse für String wird im DPTR übergeben
; An den String wird 0AH,0 angehangen
; Bsp.:  string:    DB "mein Name",0AH,0
textaus:
        MOV A,#0
        MOVC A,@A+DPTR
        JZ endname
        CALL seraus
        INC DPTR
        JMP textaus
endname:RET
        ISEG AT 7FH
stack:  DS 20H

        CSEG AT 1000H
string:     DB "mein Name",0AH,0
text2:      DB "neuer Text",0AH, 0