Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ADAT SEGMENT
- TOMB DW 3456, 23332, 55555, 667, 5587, 12, 56556, 4444, 7777, 9856 ; TÍZELEMŰ TÖMB
- ADAT ENDS
- CODE SEGMENT
- ASSUME CS:CODE, DS:ADAT
- START: MOV AX, ADAT
- MOV DS, AX
- MOV AH, 2
- LEA SI, TOMB
- MOV CX, 10
- CIKL: MOV BX, [SI]
- PUSH CX
- MOV CX, 7
- SHR BX, CL ; BX = YYYY YYYX XYYY YYYY --> 0000 000Y YYYY YYXX
- POP CX
- AND BX, 3 ; BX = 0000 0000 0000 00XX
- CMP BL, 3 ; 3 = 0000 0011, TEHÁT HA EGYENLŐEK, AKKOR A SZÁMOT KI KELL ÍRNI
- JNZ NEMIR
- MOV BX, [SI]
- ;AZ NEM VILÁGOS, MILYEN FORMÁTUMBAN KÉNE KIÍRNI, KÖZVETLENT VÁLASZTOTTAM
- MOV DL, BH
- INT 21H
- MOV DL, BL
- INT 21H
- MOV DL, ' ' ; SZÓKÖZT KI ELVÁLASZTÁSRA
- INT 21H
- NEMIR: INC SI
- INC SI
- LOOP CIKL
- MOV AH, 4CH
- INT 21H
- CODE ENDS
- END START
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement