Subversion Repositories Kolibri OS

Rev

Rev 1065 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1065 Rev 1231
Line 63... Line 63...
63 
        int     10h
 63 
        int     10h
64 
        ret
 64 
        ret
Line 65... Line 65...
65 
 
 65 
 
66 
printplain:
 66 
printplain:
67 
; in: si->string
 67 
; in: si->string
68 
        pusha
 68 
        pushad
69 
        lodsb
 69 
        lodsb
70 
@@:
 70 
@@:
71 
        call    putchar
 71 
        call    putchar
72 
        lodsb
 72 
        lodsb
73 
        cmp     al, 0
 73 
        test    al,al
74 
        jnz     @b
 74 
        jnz     @b
75 
        mov     al,13
75 
        mov     al,13
Line 76... Line 76...
76 
        call    putchar
 76 
        call    putchar
77 
 
 77 
 
78 
        mov     al,10
78 
        mov     al,10
79 
        call    putchar
 79 
        call    putchar
80 
        popa
 80 
        popad
81 
        ret
 81 
        ret
82 
getkey:
 82 
getkey:
83 
; get number in range [bl,bh] (bl,bh in ['0'..'9'])
 83 
; get number in range [bl,bh] (bl,bh in ['0'..'9'])