folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder Assembly'de Basit Bir Soru ?



Assembly'de Basit Bir Soru ?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    code_46
    code_46's avatar
    Banlanmış Üye
    Kayıt Tarihi: 04/Mart/2007
    Erkek

    bu altta yazdığım kodun, "adınız: " yazıp adımızı girmemiz sonra soyadınız yazıcak , soyadınımı giricez. en son da da merhaba deyip adımız ile soyadımızı yazması gerekiyor. ama işin içinden çıkmadım. Yardım ederseniz çok teşekkür ederim.


    STACK_SEG SEGMENT STACK USE16
    DB 100 DUP(?)
    STACK_SEG ENDS
    DATA_SEG SEGMENT 'DATA' USE16
    MESSAG1 DB 'ADINIZ: $'
    MESSAG2 DB 'SOYADINIZ: $'
    OUTMSG DB 'Hosgeldin $ $'
    NEWLINE DB 0AH,0DH,'$'
    INSTRG DB 80,0,81 dup('$');
    DATA_SEG ENDS
    CODE_SEG SEGMENT PARA 'CODE' PUBLIC USE16
    ASSUME CS:CODE_SEG, DS:DATA_SEG, SS:STACK_SEG
    MAIN PROC FAR
    PUSH DS ;INITIATE THE PROGRAM
    PUSH AX
    MOV AX,DATA_SEG
    MOV DS,AX
    LEA DX,MESSAG1 ;PRINT A MESSAGE
    MOV AH,9
    INT 21H
    MOV AH,0AH ;READ A STRING
    LEA DX,INSTRG
    INT 21H
    CALL NEW

    LEA DX,MESSAG2 ;PRINT A MESSAGE
    MOV AH,9
    INT 21H
    MOV AH,0AH ;READ A STRING
    LEA DX,INSTRG
    INT 21H
    CALL NEW
    LEA DX,OUTMSG ;PRINT A MESSAGE
    MOV AH,9
    INT 21H


    MAIN ENDP
    NEW PROC NEAR
    PUSH DX
    MOV DX,OFFSET NEWLINE
    MOV AH,9
    INT 21H
    POP DX
    RET
    NEW ENDP
    CODE_SEG ENDS
    END MAIN

     

    En mükemmel insan yaptığı hatayı tekrar yapmayan insandır; hatasızlık Yaratıcıya aittir, insanlar ulaşamaz.
    Reply With Quote Alıntı yap
Toplam Hit: 2284 Toplam Mesaj: 1