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, 4Dh ;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