Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Format MZ
- stack stk:256
- entry codseg:main
- segment sdat use16
- TABLICA DB 100 dup(?)
- LICZ DW 0
- NL DB 0dh, 0ah,'$'
- segment stk use16
- DB 256 DUP(?)
- segment codseg use16
- main:
- MOV AX, 0003h
- INT 10h
- MOV AX, sdat
- MOV DS, AX
- XOR BX, BX
- DALEJ:
- CMP [LICZ], 0Ch ;ilość
- JZ KONIEC
- MOV AH, 0h
- INT 16h
- CMP AL, 0
- JZ SPECJALNY
- INC [LICZ]
- MOV [TABLICA+BX], AL
- MOV AH, 02h
- MOV DL, [TABLICA+BX]
- INT 21h
- INC BX
- MOV [TABLICA+BX], 20h
- MOV AH, 02h
- MOV DL, [TABLICA+BX]
- INT 21h
- INC BX
- JMP DALEJ
- KS:
- CMP AH, 50h ;klawisz
- JNE DALEJ
- INC [LICZ]
- MOV [TABLICA+BX], 19h ;symbol
- MOV AH, 02h
- MOV DL, [TABLICA+BX]
- INT 21h
- INC BX
- JNE DALEJ
- INC BX
- KONIEC:
- MOV AH, 01h
- MOV DX, 0h
- INT 17h
- XOR BX, BX
- XOR DX, DX
- MOV AH, 0
- MOV CX, 32
- DRUK:
- MOV AH, 0
- MOV AL, [TABLICA+BX]
- INT 17h
- CZEKAJ:
- MOV AH, 2
- INT 17h
- AND AH, 10000000b
- CMP AH, 10000000b
- JNZ CZEKAJ
- INC BX
- LOOP DRUK
- MOV AH, 09h
- MOV DX, NL
- INT 21h
- SUB BX, 1h
- MOV CX, BX
- XOR BX, BX
- PETLA:
- MOV AH, 02h
- MOV BX, CX
- MOV DL, [TABLICA+BX]
- INT 21h
- LOOP PETLA
- MOV AH, 02h
- MOV BX, CX
- MOV DL, [TABLICA+BX]
- INT 21h
- MOV AH, 01h
- INT 21h
- MOV AX, 4C00H
- INT 21h
- RET
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement