Quelle eing.asm Sprache: Masm

         .MODEL Small    ;EXE Datei
         .STACK 100h     ;Stackgr��e
         .DATA           ;Datensegment
Msg1     DB  "Geben Sie den Text ein: $"
CR_LF    DB  10,13,"$"
Puffer   STRUC           ;Struktur f. Puffer
    Max  DB 50           ;Max. 50 Zeichen
    Anz  DB ?            ;Reserv. f. Anzahl
    Txt  DB 53 DUP (?)   ;3 mehr weil + CR-LF und $
Puffer   ENDS            ;Ende Puffer
Buffer   Puffer <>       ;Speicherplatz f. Puffer

         .CODE           ;Codesegmet
Start:   mov  ax,@data   ;DS initialisieren
         mov  ds,ax
         mov  dx,OFFSET Msg1
         mov  ah,09h
         int  21h        ;Msg1 ausgeben
         mov  dx,OFFSET Buffer
         mov  ah,0Ah
         int  21h        ;Text einlesen
         mov  bx,dx      ;Offset nach bx f. sp�ter
         mov  dx,OFFSET CR_LF
         mov  ah,09h
         int  21h        ;n�chste Zeile
         add  bx,2     ;bx auf Textanfang (+Max+Anz)
         add  bl,Buffer.Anz ;bx auf Pufferende
         adc  bh,0       ;bh+1 falls �berlauf
         mov  word ptr [bx],0D0Ah ;CRLF ans Ende
         mov  byte ptr [bx+2],"$" ;$ ans Ende
         mov  dx,OFFSET Buffer.Txt
         mov  ah,09h
         int  21h        ;Eingeg. Text ausgeben
         mov  ah,4Ch
         int  21h        ;Programm beenden!

         END  Start

quality100%

¤ Dauer der Verarbeitung: 0.10 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.