kolibrios-gitea/programs/demos/view3ds/asc.inc

; Files *.asc routines by Maciej Guba
; Thanks to Reverend for integer/float/ascii conversion examples
read_asc:
    mov  eax,[fptr]
 .find_vert:
    cmp  dword[eax],'Vert'
    je	 @f
    inc  eax
    jmp  .find_vert
  @@:
    add   eax,4
    cmp   dword[eax],'ices'
    jne   .find_vert
    add   eax,3
  @@:
    inc   eax
    cmp   byte[eax],'0' 	  ; search end of ascii number of vertices string
    jb	  @b
    cmp   byte[eax],'9'
    ja	  @b
;    eax - start ascii number
  @@:
    inc    eax
    cmp    byte[eax],'0'
    jb	  .convert1
    cmp    byte[eax],'9'
    ja	  .convert1
    jmp   @b
  .convert1:
    dec   eax
    mov   ebx,eax
    push  eax
    call  ascii_to_integer
    mov   [points_count_var],edx
    pop   eax

  @@:
    inc   eax
    cmp   dword[eax],'Face'
    jne   @b
    add   eax,3
  @@:
    inc   eax
    cmp   byte[eax],'0'
    jb	  @b
    cmp   byte[eax],'9'
    ja	  @b
   ;    eax - start ascii number
  @@:
    inc    eax
    cmp    byte[eax],'0'
    jb	  .convert2
    cmp    byte[eax],'9'
    ja	  .convert2
    jmp   @b
   ;  eax - end ascii number
  .convert2:
    dec   eax
    mov   ebx,eax
    push  eax
    call  ascii_to_integer
    mov   [triangles_count_var],edx
    pop   eax

  @@:
    inc   eax
    cmp   dword[eax],'Vert'
    jnz   @b
    inc   eax

    mov   edi,[points_ptr]
    xor   ebx,ebx
   .decode_vertices:
    push   ebx
  @@:
    inc   eax
    cmp   dword[eax],'Vert'
    jne   @b
    xor   ecx,ecx

  .decode_coord:
    push  ecx
  @@:
    inc   eax
    mov   dl,byte[eax]
    cmp   dl,byte[XYZpartices+ecx]
    jne   @b
  @@:
    inc   eax
    cmp   byte[eax],'.'
    je	  .readF
    cmp   byte[eax],'-'
    je	  .readF
    cmp   byte[eax],'0'
    jb	  @b
    cmp   byte[eax],'9'
    ja	  @b
.readF: ; read float
    mov   esi,eax
    push  eax
    push  ecx

    call   atof   ; st0 - desired dword float

    pop   ecx
    pop   eax

    fstp  dword[edi]
    add   edi,4

    pop   ecx
    inc   ecx
    cmp   ecx,3
    jne   .decode_coord
    pop   ebx
    inc   ebx
    cmp   ebx,[points_count_var]
    jne   .decode_vertices
    mov   dword[edi],-1



    mov   esi,eax
   @@:
    inc   esi
    cmp   dword[esi],'Face'
    jne   @b
    xor   edx,edx
    mov   edi,[triangles_ptr]
    cld
 .decode_face:

    push  edx
   @@:
    inc   esi
    cmp   dword[esi],'Face'
    jne   @b
 @@:
    inc   esi
    cmp   byte[esi],'0'    ; face number start
    jb	  @b
    cmp   byte[esi],'9'
    ja	  @b
  @@:
    inc    esi
    cmp    byte[esi],'0'
    jb	  @f
    cmp    byte[esi],'9'   ; face number end
    ja	  @f
    jmp   @b
  @@:
    xor ecx,ecx
 .next_vertex_number:

    push  ecx
  @@:
    inc   esi
    cmp   byte[esi],'0'
    jb	  @b
    cmp   byte[esi],'9'
    ja	  @b
    ;    eax - start ascii number
  @@:
    inc    esi
    cmp    byte[esi],'0'
    jb	  @f
    cmp    byte[esi],'9'
    ja	  @f
    jmp   @b
   ;  eax - end ascii number
  @@:
    dec   esi
    mov   ebx,esi
    push  esi
    call  ascii_to_integer
    mov   eax,edx

    stosd
    pop   esi
    add   esi,4

    pop   ecx
    inc   ecx
    cmp   ecx,3
    jne   .next_vertex_number
    pop   edx
    inc   edx
    cmp   edx,[triangles_count_var]
    jne   .decode_face
    mov   dword[edi],-1 ;dword[triangles+ebx+2],-1   ; end mark
    mov   eax,1  ;-> mark if ok
ret

ascii_to_integer:
; in ---  [ebx] -> end of ascii string
; out --  edx  -> desired number
    xor    edx,edx
    xor    ecx,ecx
  .again:
    movzx  eax,byte[ebx]
    sub    al,'0'
    cwde
    push   edx
    mul    dword[convert_muler+ecx]
    pop    edx
    add    edx,eax
    dec    ebx
    cmp    byte[ebx],'0'
    jb	   .end
    cmp    byte[ebx],'9'
    ja	   .end
    add    ecx,4
    jmp    .again
  @@:

  .end:
ret

;===============================================================================
;       ASCII to float conversion procedure
;
;       input:
;       esi - pointer to string
;
;       output:
;       st0 - number changed into float
;
;===============================================================================

atof:
	.string  equ ebp-4

	push	ebp
	mov	ebp,esp
	sub	esp,32
	push	eax ecx esi
	mov	[.string],esi
	fninit
	fldz
	fldz

	cld
	cmp	byte [esi], '-'
	jnz	@F
	inc	esi
    @@:
	xor	eax, eax
	align	4
  .loop.integer_part:
	lodsb
	cmp	al, '.'
	jz	.mantisa
	cmp	al,'0'
	jb	.exit
	cmp	al,'9'
	ja	.exit
	fimul	[i10]
	sub	al, '0'
	push	eax
	fiadd	dword [esp]
	add	esp, 4
	jmp	.loop.integer_part

  .mantisa:
	xor	 ecx, ecx
	xor	 eax, eax
	cld
	fxch	 st1
     @@:

	lodsb
	cmp	al,'0'
	jb	.exit
	cmp	al,'9'
	ja	.exit
	cmp	ecx,7*4
	je	.exit		; max 7 digits in mantisa
	sub	al,'0'
	push	eax
	fild	dword[esp]
	fidiv	dword[convert_muler+4+ecx]
	faddp
	add	esp,4
	add	ecx,4
	jmp	@b
  .exit:
	faddp

	mov	eax, [.string]
	cmp	byte [eax], '-'
	jnz	@F
	fchs
    @@:
	cld
	stc				; always returns no error
	pop	esi ecx eax
	mov	esp,ebp
	pop	ebp
	ret


itoa:		   ; unsigned dword integer to ascii procedure
;     in   eax - variable
;          esi - Pointer to ascii string
;   out    esi - desired ascii string
;          edi - end of ascii string  - ptr to memory
 .temp_string  equ dword[ebp-36]
 .ptr	       equ dword[ebp-40]
 .var	       equ dword[ebp-44]
	   push  ecx
	   push  ebp
	   mov	 ebp,esp
	   sub	 esp,64
	   mov	 .var,eax
	   mov	 eax,-1
	   lea	 edi,.temp_string
	   cld
	   mov	 ecx,9
	   rep	 stosd	    ; make floor


	   mov	 .ptr,esi
	   lea	 edi,.temp_string
	   add	 edi,34
	   std
	   xor	 eax,eax
	   stosb	       ; mark begin
	   mov	 eax,.var
	   mov	 esi,10
	@@:
	   xor	 edx,edx
	   div	 esi
	   xchg  eax,edx
	   add	 al,'0'
	   stosb
	   xchg  eax,edx
	   or	 eax,eax
	   jnz	 @b
	   stosb		     ; mark end

	   lea	 esi,.temp_string
	   cld
	@@:
	   lodsb
	   or	al,al
	   jnz	@b

	   mov	edi,.ptr
	 @@:
	   lodsb
	   stosb
	   or	al,al
	   jnz	@b

	   mov	esp,ebp
	   pop	ebp
	   pop	ecx
ret
if 1
ftoa_mac:
;   in  :  esi - pointer to  dword float
;          edi - pointer to ascii string
  .ptr_f     equ dword[ebp-4]
  .sign      equ dword[ebp-8]	;  0 ->   less than zero, 1 - otherwise
  .ptr_ascii equ dword[ebp-12]
  .integer   equ dword[ebp-20]
  .fraction  equ dword[ebp-28]
  .status_orginal equ word[ebp-32]
  .status_changed equ word[ebp-34]
	 push	  ecx
	 push	  ebp
	 mov	  ebp,esp
	 sub	  esp,64
	fninit
	fnstcw	.status_orginal
	mov	ax, .status_orginal
	or	ax, 0000110000000000b
	mov	.status_changed, ax
	fldcw	.status_changed
;       --------------------------------
;       check if signed
	xor	eax, eax
	fld	dword[esi]
	fst	.sign
	test	.sign, 80000000h
	setz	al
	mov	.sign, eax

	 mov	   .ptr_f,esi
	 mov	   .ptr_ascii,edi
	 fabs
	 fld	   st0
	 frndint
	 fist	   .integer
	 fsubp	   st1, st0

	 mov	   eax,.integer
	 mov	   esi,.ptr_ascii
	 call	   itoa
      ;  edi   ->   ptr to end of ascii string
	 dec	   edi
	 mov	   al,'.'
	 stosb

	mov	ecx, 6	 ; max 6 digits in fraction part
    .loop:
	fimul	[i10]
	fld	st0
	frndint
	fist	.fraction
	fsubp	st1, st0
	mov	esi,edi
	mov	eax,.fraction
	add	al,'0'
	stosb
	ftst
	fnstsw	ax
	test	ax, 0100000000000000b
	jz	@F
	test	ax, 0000010100000000b
	jz	.finish
    @@:
	loop	.loop
if 0
	fldcw	.status_orginal
	fimul	[i10]
	fist	.fraction
    ;    mov     esi,edi
	mov	eax,.fraction
	add	al,'0'
	stosb
    ;    call    itoa
;       --------------------------------
;       restore previous values
    .finish:
      ;  fstp    st0
	 ffree	   st
	 mov	   eax,.fraction
	 mov	   esi,edi
;         call      itoa

	 add	   al,'0'
	 stosb
end if
 .finish:
  ffree st
	 cmp	   .sign,0
	 jnz	   @f
	 mov	   esi,.ptr_ascii
	 dec	   esi
	 mov	   byte[esi],'-'
       @@:
	 mov	   esp,ebp
	 pop	   ebp
	 pop	   ecx

ret
end if
if 0
;===============================================================================
;       float to ASCII conversion procedure
;
;       input:
;       buffer - pointer to memory where output will be saved
;       precision - number of digits after dot
;
;       output:
;       no immediate output
;
;       notes:
;       separate integer and mantisa part with dot '.'
;       so GOOD   123.456
;          WRONG  123,456
;
;       coded by Reverend // HTB + RAG
;===============================================================================
proc	ftoa			buffer, precision
locals
  status_original	      dw ?
  status_changed	      dw ?
  integer		      dd ?
  mantisa		      dd ?
  signed		      dd ?
endl
	push	eax ecx;edi ecx
;       --------------------------------
;       set correct precision
	mov	eax, [precision]
	cmp	eax, 51
	jb	@F
	mov	eax, 51
    @@:
	mov	[precision], eax
;       --------------------------------
;       change control wortd of fpu to prevent rounding
	fnstcw	[status_original]
	mov	ax, [status_original]
	or	ax, 0000110000000000b
	mov	[status_changed], ax
	fldcw	[status_changed]
;       --------------------------------
;       check if signed
	xor	eax, eax
	fst	[signed]
	test	[signed], 80000000h
	setnz	al
	mov	[signed], eax
;       --------------------------------
;       cut integer and mantisa separately
	fld	st0
	fld	st0			; st0 = x, st1 = x
	frndint
	fist	[integer]		; st0 = x, st1 = x
	fabs
	fsubp	st1, st0		; st0 = mantisa(x)
;       --------------------------------
;       save integer part in buffer
    ;    mov     edi, [buffer]
	mov	esi,[buffer]
      ;  push    [signed]
      ;  push    edi
      ;  push    10
      ;  push    [integer]
	mov	eax,[integer]
	call	itoa
 ;       add     edi, eax
	mov	al, '.'
	stosb
	mov	esi,edi
;       --------------------------------
;       save mantisa part in buffer
	mov	ecx, [precision]
	dec	ecx
    .loop:
	fimul	[i10]
	fld	st0
	frndint
	fist	[mantisa]
	fsubp	st1, st0
;        push    0
;        push    edi
;        push    10
;        push    [mantisa]
	mov	esi,edi
	mov	eax,[mantisa]
	call	itoa
      ;  add     edi, eax
	ftst
	fnstsw	ax
	test	ax, 0100000000000000b
	jz	@F
	test	ax, 0000010100000000b
	jz	.finish
    @@:
	loop	.loop
	fldcw	[status_original]
	fimul	[i10]
	fist	[mantisa]
;        push    0
;        push    edi
;        push    10
;        push    [mantisa]
	mov	esi,edi
	mov	eax,[mantisa]
	call	itoa
;       --------------------------------
;       restore previous values
    .finish:
	fstp	st0
	cmp	[signed],1
	jnz   @f
	mov   byte[buffer],'-'
      @@:
	stc
	pop	ecx eax   ;edi eax
	ret
endp
end if
if 0
write_asc:
    .counter equ dword[ebp-4]
	push  ebp
	mov   ebp,esp
	sub   esp,64
	fninit
	mov   edi,asc_file_buffer
	mov   esi,asc_main_header
	cld
      @@:
	lodsb
	cmp   al,1
	jz    @f
	stosb
	jmp   @b
      @@:

	mov   esi,asc_info_header
      @@:
	lodsb
	cmp   al,1
	jz    @f
	stosb
	jmp   @b
     @@:
	push   esi  ; -> position in header info
	movzx  eax,[points_count_var]
	mov    esi,edi
	call   itoa		 ; unsigned dword integer to ascii procedure
	pop   esi
	inc   esi
      @@:
	lodsb
	cmp   al,1
	jz    @f
	stosb
	jmp   @b
      @@:
	push  esi
	movzx eax,[triangles_count_var]
	mov   esi,edi
	call  itoa
	pop   esi
	inc   esi
      @@:
	lodsb
	cmp   al,1
	jz    @f
	stosb
	jmp   @b
      @@:
;=============================================================
;================vertex list parser===========================
;=============================================================

       xor   ecx,ecx
     .again_vertex:
       push  ecx
       mov   esi,asc_one_vertex_formula
     @@:
       lodsb
       cmp   al,1
       jz    @f
       stosb
       jmp   @b
     @@:
       mov   eax,ecx
 ;      push  ecx
       push  esi
       mov   esi,edi
       call  itoa
       pop   esi
;       pop   ecx
       inc   esi
       xor   ebx,ebx
    .next_vertex_coef:
       push  ebx
     @@:
       lodsb
       cmp   al,1
       jz    @f
       stosb
       jmp   @b
     @@:
    ; int3
       push  esi
       lea   esi,[ecx*3]
       shl   esi,2
       add   esi,points_r
       add   esi,ebx
     ;  int3
       call  ftoa_mac
     ;  std
     ;  fld     dword[esi]


     ;  pushad
     ;  stdcall ftoa, edi, 30
     ;  popad
     ;  add   edi,20


       pop   esi
       pop   ebx
       add   ebx,4
       cmp   ebx,12
       jnz   .next_vertex_coef
     @@:
       lodsb
       cmp   al,1
       jz    @f
       stosb
       jmp   @b
     @@:
       pop   ecx
       inc   ecx
       cmp   cx,[points_count_var]
       jnz   .again_vertex


   ;   mov  edi,[temp_edi]


       mov  esi,asc_face_list_header
      @@:
	lodsb
	cmp   al,1	; all face header
	jz    @f
	stosb
	jmp   @b
      @@:
	   ;=====================================
	   ; ==============face list parser======
	   ;=====================================
       xor   ecx,ecx
     .again_face:
       push  ecx
       mov   .counter,ecx
       mov   esi,asc_one_face_formula
     @@:
       lodsb
       cmp   al,1
       jz    @f
       stosb
       jmp   @b
     @@:
       mov   eax,ecx
       push  esi
       mov   esi,edi
       call  itoa
       pop   esi
       inc   esi
     @@:
       lodsb
       cmp   al,1
       jz    @f
       stosb
       jmp   @b
     @@:

       xor    ebx,ebx
      .next_face_index:
	push   ebx
	mov    ecx,.counter
	lea    ecx,[ecx*3]
	add    ecx,ecx
	movzx  eax,word[triangles+ecx+ebx]
	push   esi
	mov    esi,edi
	call   itoa
	pop    esi
       @@:
	lodsb
	cmp   al,1
	jz    @f
	stosb
	jmp   @b
      @@:
	pop    ebx
	add    ebx,2
	cmp    ebx,6
	jnz    .next_face_index

;        push   esi
	mov   esi,asc_material
     @@:
	lodsb
	cmp   al,1
	jz    @f
	stosb
	jmp   @b
     @@:
;        pop   esi

	 pop	ecx
	inc    ecx
	cmp    cx,[triangles_count_var]
	jnz    .again_face

	; write file
    sub  edi,asc_file_buffer
  ;  mov  [file_buffer+2],edi
    mov  [FileSize],edi

    invoke  CreateFile,asc_file_name, GENERIC_WRITE, 0, 0,CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0
    mov  [hfile],eax
    invoke  WriteFile,eax,asc_file_buffer,[FileSize], byteswritten, 0
    invoke  CloseHandle,[hfile]

    mov  esp,ebp
    pop  ebp
ret
end if
if 0
asc_file_buffer:
	      rd 65536
ascii_string  rb 50
ftoa_muler dd 1000000000
file_size dd ?
file_handle dd ?
end if

if 0
convert_muler:
dd 1, 10, 100, 1000, 10000
XYZpartices:
db 'X','Y','Z'
i10 dw 10
points_count_var dd ?
triangles_count_var dd ?
points rb 100
triangles rb 100
asc_file:

file "2TORUS.ASC"
end if