forked from KolibriOS/kolibrios
118 lines
1.5 KiB
NASM
118 lines
1.5 KiB
NASM
|
.ppm:
|
||
|
|
stdcall img.create, [width], [height], Image.bpp24
|
||
|
|
test eax, eax
|
||
|
|
jz .quit
|
||
|
|
mov [retvalue], eax
|
||
|
|
mov ebx, eax
|
||
|
|
|
||
|
|
mov edi, [ebx + Image.Data]
|
||
|
|
mov ecx, [ebx + Image.Width]
|
||
|
|
imul ecx, [ebx + Image.Height]
|
||
|
|
|
||
|
|
cmp [data_type], PNM_ASCII
|
||
|
|
je .ppm.ascii
|
||
|
|
|
||
|
|
.ppm.raw:
|
||
|
|
cmp [maxval], 0xff
|
||
|
|
jne .ppm.raw.scale
|
||
|
|
@@:
|
||
|
|
lodsw
|
||
|
|
xchg al, ah
|
||
|
|
movsb
|
||
|
|
stosw
|
||
|
|
dec ecx
|
||
|
|
jnz @b
|
||
|
|
jmp .quit
|
||
|
|
.ppm.raw.scale:
|
||
|
|
mov edx, [maxval]
|
||
|
|
xor eax, eax
|
||
|
|
@@:
|
||
|
|
lodsb
|
||
|
|
mov ebx, eax
|
||
|
|
shl eax, 8
|
||
|
|
sub eax, ebx
|
||
|
|
div dl
|
||
|
|
stosb
|
||
|
|
lodsb
|
||
|
|
mov ebx, eax
|
||
|
|
shl eax, 8
|
||
|
|
sub eax, ebx
|
||
|
|
div dl
|
||
|
|
stosb
|
||
|
|
lodsb
|
||
|
|
mov ebx, eax
|
||
|
|
shl eax, 8
|
||
|
|
sub eax, ebx
|
||
|
|
div dl
|
||
|
|
stosb
|
||
|
|
dec ecx
|
||
|
|
jnz @b
|
||
|
|
jmp .quit
|
||
|
|
|
||
|
|
.ppm.ascii:
|
||
|
|
xor eax, eax
|
||
|
|
cmp [maxval], 0xff
|
||
|
|
jne .ppm.ascii.scale
|
||
|
|
.ppm.ascii.next_char:
|
||
|
|
@@:
|
||
|
|
lodsb
|
||
|
|
cmp al, ' '
|
||
|
|
jna @b
|
||
|
|
call pnm._.get_number
|
||
|
|
mov [edi + 2], bl
|
||
|
|
@@:
|
||
|
|
lodsb
|
||
|
|
cmp al, ' '
|
||
|
|
jna @b
|
||
|
|
call pnm._.get_number
|
||
|
|
mov [edi + 1], bl
|
||
|
|
@@:
|
||
|
|
lodsb
|
||
|
|
cmp al, ' '
|
||
|
|
jna @b
|
||
|
|
call pnm._.get_number
|
||
|
|
mov [edi + 0], bl
|
||
|
|
add edi, 3
|
||
|
|
dec ecx
|
||
|
|
jnz .ppm.ascii.next_char
|
||
|
|
jmp .quit
|
||
|
|
|
||
|
|
.ppm.ascii.scale:
|
||
|
|
mov edx, [maxval]
|
||
|
|
.ppm.ascii.scale.next_char:
|
||
|
|
@@:
|
||
|
|
lodsb
|
||
|
|
cmp al, ' '
|
||
|
|
jna @b
|
||
|
|
call pnm._.get_number
|
||
|
|
mov eax, ebx
|
||
|
|
shl eax, 8
|
||
|
|
sub eax, ebx
|
||
|
|
div dl
|
||
|
|
mov [edi + 2], al
|
||
|
|
@@:
|
||
|
|
lodsb
|
||
|
|
cmp al, ' '
|
||
|
|
jna @b
|
||
|
|
call pnm._.get_number
|
||
|
|
mov eax, ebx
|
||
|
|
shl eax, 8
|
||
|
|
sub eax, ebx
|
||
|
|
div dl
|
||
|
|
mov [edi + 1], al
|
||
|
|
@@:
|
||
|
|
lodsb
|
||
|
|
cmp al, ' '
|
||
|
|
jna @b
|
||
|
|
call pnm._.get_number
|
||
|
|
mov eax, ebx
|
||
|
|
shl eax, 8
|
||
|
|
sub eax, ebx
|
||
|
|
div dl
|
||
|
|
mov [edi + 0], al
|
||
|
|
add edi, 3
|
||
|
|
dec ecx
|
||
|
|
jnz .ppm.ascii.next_char
|
||
|
|
jmp .quit
|
||
|
|
|