      
           JMP ZEICH
meld     db 'Zeigt alle Zeichen gr”sser 32 .',13,10,10
         db 'Normal werden die Zeichen auf den Bildschirm ausgegeben.',13,10
         db 'Die Ausgabe kann aber mit > prn auf den Drucker umgeleitet',13,10
         db 'werden.',13,10,10
         db 'Bitte eine Taste drcken',13,10,10
AUS        DB 0
CR_LF      DB 13,10,10,'$'
T1         DB 100
T2         DB 10
Z1         DB 0
Z2         DB 0
Z3         DB 0
           DB ' = '
Z0         DB '    '
zeich:     mov ah,040
           mov dx,offset meld
           mov bx,0002
           mov cx,(offset aus - offset meld)
           int 021h
           mov ah,08h
           int 021h
           MOV CL,32
ZE1:       MOV Z0,CL
           CMP CL,0
           JE EXIT
           CALL ZAHL
           INC CL
           JMP SHORT ZE1
EXIT:      MOV AH,04CH
           INT 021H
ZAHL:      PROC NEAR
           XOR AX,AX
           MOV AL,Z0
           IDIV T1
           ADD AL,48
           MOV Z1,AL
           XCHG AH,AL
           MOV AH,00
           IDIV T2
           ADD AL,48
           MOV Z2,AL
           ADD AH,48
           MOV Z3,AH
           PUSH AX
           PUSH BX
           PUSH CX
           PUSH DX
           MOV AH,040
           MOV CX,8
           MOV BX,0001
           MOV DX,OFFSET Z1
           INT 021H
           INC AUS
           CMP AUS,9
           JL ZUR
           MOV AUS,0
           MOV AH,040
           MOV CX,3
           MOV BX,0001
           MOV DX,OFFSET CR_LF
           INT 021H
ZUR:       POP DX
           POP CX
           POP BX
           POP AX
           RET
           ENDP

