ASSZH

;ZIMMERMANN GYULA
ADAT SEGMENT
S1 DB 13,10,'KÉREM A SZÁMOT $'
S2 DB 13,10,'A SZÁM ÉRTÉKE OKTÁLISAN $'
BUFFER DB 6 DUP(?), '$'
ADAT ENDS

CODE SEGMENT
ASSUME DS:ADAT, CS:CODE
START: MOV AX,ADAT
MOV DS,AX
MOV AH, 9
LEA DX, S1
INT 21H
MOV CX, 16
XOR BX, BX
CIKLUS: MOV AH, 8
INT 21H
CMP AL, 13
JZ ENTER
CMP AL, 29H
JC CIKLUS
CMP AL, 32H
JNC CIKLUS
MOV AH,2
MOV DL, AL
INT 21H
RCR AL, 1
RCL BX, 1
LOOP CIKLUS
ENTER: CMP CX, 16
JZ CIKLUS
MOV CX, 6
LEA SI, BUFFER[5]
CIKL2:MOV DL, BL
AND DL, 00000111B
ADD DL, 30H
MOV [SI], DL
DEC SI
PUSH CX
MOV CX, 3
SHR BX, CL
POP CX
LOOP CIKL2
MOV CX, 6
LEA SI, BUFFER
CIKL3: MOV AL, [SI]
CMP AL, 30H
JNZ RAJT
INC SI
LOOP CIKL3
RAJT: MOV AH, 9
LEA DX, S2
INT 21H
MOV DX, SI
INT 21H
MOV AH, 4CH
INT 21H
CODE ENDS
END START