1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
200: mov ah,01 int 21 cmp al,39 jle 020a sub al,7 sub al,30 mov dl,al mov cl,4 shl dl,cl mov ah,01 int 21 cmp al,39 jle 021c sub al,7 sub al,30 add al,dl mov bl,al ret 100: mov cx,a push cx call 200 pop cx mov bh,0 push bx mov ah,01 int 21 loop 103 int 20