Barni assembly 3

ADAT    SEGMENT
ASZAM   DW  0
ADAT    ENDS

CODE    SEGMENT
    ASSUME CS:CODE, DS:ADAT
START:  MOV AX, ADAT
    MOV DS, AX
    MOV AH, 1
    XOR CX, CX
    XOR BX, BX
CIKL:   INT 21H ;Becsapós, ez nem egy igazi ciklus
    CMP AL, 13
    JZ CIKLVEG  ;Enter? Lépj ki!
    CMP AL, '1'
    JZ EGYES ;Egyes, kezeld!
    CMP AL, '0'
    JZ NULLA ;Nullás? Kezeld!
    JMP CIKL ;Más? Mit akarsz, nekem ez nem jó, kérheted újra
EGYES:  STC ;Carryflag = 1
    JMP BETEDD ;ugrás
NULLA:  CLC ;Carryflag = 0
BETEDD: RCL BX,1    ;Carryflaget told be a BX legutolsó helyére
    INC CX  ;CX-ben számold a betolt jegyek mennyiségét
    CMP CX, 16
    JNZ CIKL    ;Ha még van szabad bitem, kérhetek
CIKLVEG: MOV ASZAM, BX  ;Máskülönben mentés
    MOV AH, 4CH
    INT 21H
CODE    ENDS
END START