Subversion Repositories Kolibri OS

Rev

Rev 2025 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2025 Rev 2740
Line 70... Line 70...
70 
    shr  eax,8
 70 
    shr  eax,8
71 
    mov  edi,dg1
 71 
    mov  edi,dg1
72 
    mov  ecx,6
 72 
    mov  ecx,6
73 
dgtomem:
 73 
dgtomem:
74 
    push eax
 74 
    push eax
75 
    and  al,15
 75 
    and  al,0x0f
76 
    mov  [edi],al
 76 
    mov  [edi],al
77 
    inc  edi
 77 
    inc  edi
78 
    pop  eax
 78 
    pop  eax
79 
    shr  eax,4
 79 
    shr  eax,4
80 
    loop dgtomem
 80 
    loop dgtomem
81 
    mov  ebx,74*65536+10
 81 
    mov  ebx,79*65536+11
82 
    mov  edi,dg1
 82 
    mov  edi,dg1
83 
digitlp:
 83 
digitlp:
84 
    mov  ecx,10*65536+10
 84 
    mov  ecx,10*65536+11
85 
    xor  esi,esi
 85 
    xor  esi,esi
86 
plotlp:
 86 
plotlp:
87 
    xor  edx,edx
 87 
    xor  edx,edx
88 
    test byte[edi],8
 88 
    test byte[edi],8
89 
    je	 nobit
 89 
    je	 nobit
90 
    mov  edx,0x00ff0000
 90 
    mov  edx,0x00ff0000
91 
nobit:
 91 
nobit:
92 
    mov  eax,13  ; plot 8,4,2,1
 92 
    mov  eax,13  ; plot 8,4,2,1
93 
    mcall
 93 
    mcall
94 
    add  ecx,12*65536
 94 
    add  ecx,13*65536
95 
    shl  byte[edi],1
 95 
    shl  byte[edi],1
96 
    inc  esi
 96 
    inc  esi
97 
    cmp  esi,4
 97 
    cmp  esi,4
98 
    jne  plotlp
 98 
    jne  plotlp
99 
    shr  byte[edi],4
 99 
    shr  byte[edi],4
Line 110... Line 110...
110 
    mov  ecx,[edi]
 110 
    mov  ecx,[edi]
111 
    mov  esi,0x00ffffff
 111 
    mov  esi,0x00ffffff
112 
    mov  eax,47  ; display decimal
 112 
    mov  eax,47  ; display decimal
113 
    mcall
 113 
    mcall
114 
    popa
 114 
    popa
115 
    sub  ebx,12*65536
 115 
    sub  ebx,13*65536
116 
    inc  edi
 116 
    inc  edi
117 
    cmp  edi,dg1+6
 117 
    cmp  edi,dg1+6
118 
    jne  digitlp
 118 
    jne  digitlp
119 
    ret
 119 
    ret
Line 124... Line 124...
124 
 
 124 
 
125 
    mov  eax,12
 125 
    mov  eax,12
126 
    mov  ebx,1 ; start redraw
 126 
    mov  ebx,1 ; start redraw
Line -... Line 127...
- 
 
 127 
    mcall
- 
 
 128 
 
- 
 
 129 
    mov  eax, 48
- 
 
 130 
    mov  ebx, 4
127 
    mcall
 131 
    mcall
128 
 
 132 
    mov  ecx, eax
129 
    xor  eax,eax ; window
 133 
    xor  eax,eax ; window
130 
    mov  ebx,100*65536+107
 134 
    mov  ebx,100*65536+113
131 
    mov  ecx,100*65536+105
 135 
    add  ecx,100*65536+87
132 
    mov  edx,0x34400088
 136 
    mov  edx,0x34400088
Line 133... Line 137...
133 
    mov  edi,title
 137 
    mov  edi,title