Subversion Repositories Kolibri OS

Rev

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

Rev 2165 Rev 2254
Line 90... Line 90...
90 
	jz	.NoSign
 90 
	jz	.NoSign
91 
	mov	AL,'-'
 91 
	mov	AL,'-'
92 
	stosb
 92 
	stosb
93 
.NoSign:
 93 
.NoSign:
94 
;  á¯ ª®¢ âì ç¨á«® ¢ ª®¤ ASCII
 94 
;  á¯ ª®¢ âì ç¨á«® ¢ ª®¤ ASCII
95 
	mov	BX,8	 ;ᬥ饭¨¥ ¯®á«¥¤­¥© ¯ àë æ¨äà
 95 
	mov	ebx,8	 ;ᬥ饭¨¥ ¯®á«¥¤­¥© ¯ àë æ¨äà
96 
	mov	ecx,9	 ;áç¥â稪 ¯ à æ¨äà
 96 
	mov	ecx,9	 ;áç¥â稪 ¯ à æ¨äà
97 
	; Ž¯à¥¤¥«¨âì ¯®§¨æ¨î ¤¥áïâ¨ç­®© â®çª¨ ¢ ç¨á«¥
 97 
	; Ž¯à¥¤¥«¨âì ¯®§¨æ¨î ¤¥áïâ¨ç­®© â®çª¨ ¢ ç¨á«¥
98 
	mov	DX,18
 98 
	mov	DX,18
99 
	sub	DX,[NumberSymbolsAD]
 99 
	sub	DX,[NumberSymbolsAD]
100 
	js	.Error	;®è¨¡ª , ¥á«¨ ®âà¨æ â¥«ì­ ï
 100 
	js	.Error	;®è¨¡ª , ¥á«¨ ®âà¨æ â¥«ì­ ï
101 
	jz	.Error	;¨«¨ ­ã«¥¢ ï ¯®§¨æ¨ï
 101 
	jz	.Error	;¨«¨ ­ã«¥¢ ï ¯®§¨æ¨ï
102 
.NextPair:
 102 
.NextPair:
103 
	; ‡ £à㧨âì ®ç¥à¥¤­ãî ¯ àã à §à冷¢
 103 
	; ‡ £à㧨âì ®ç¥à¥¤­ãî ¯ àã à §à冷¢
104 
	mov	AL, byte [BX + Data_BCD]
 104 
	mov	AL, byte [ebx + Data_BCD]
105 
	mov	AH,AL
 105 
	mov	AH,AL
106 
	; ‚뤥«¨âì, ¯¥à¥¢¥á⨠¢ ASCII ¨
 106 
	; ‚뤥«¨âì, ¯¥à¥¢¥á⨠¢ ASCII ¨
107 
	; á®åà ­¨âì áâ àèãî â¥âà ¤ã
 107 
	; á®åà ­¨âì áâ àèãî â¥âà ¤ã
108 
	shr	AL,4
 108 
	shr	AL,4
109 
	add	AL,'0'
 109 
	add	AL,'0'