kolibrios/programs/system/mm/trunk/MM.asm

; Programa Mostra memoria
; Projeto: Clovis Bombardelli e Felipe Gustavo Bombardelli
; Usar Fasm Assembler
; Dez/2007


; Infos:
; keys: w - add 0x200 to current memory address
;	s - sub 0x200
;	e - add 0x10
;	d - sub 0x10
;
  
use32
  
  org    0x0

STACK_SIZE=1024
  
  db     'MENUET01'              ; 8 byte id
  dd     0x01                    ; header version
  dd     START                   ; start of code
  dd     I_END                   ; size of image
  dd     I_END+STACK_SIZE        ; memory for app
  dd     I_END+STACK_SIZE        ; esp
  dd     0x0 , 0x0               ; I_Param , I_Icon





START:


main:

	call monta_quadro
	
.a:	mov eax, 11		; espera por evento
	int 0x40			; 0= -> redraw           
	or al,al
	jz .h
	cmp al, 2			; 1= -> REDRAW     
	jb main			; 2= -> tecla pressionada     
	jz .c                         ; 3= -> botão pressionado    

; botão	
	mov  eax,17      		; 
	int 0x40                   	; OBSERVAÇÕES
	cmp  ah,1        		; se o botão apertado for fechar, minimizar, maximizar...todos devem ser do sistema
	jnz  .b     		; mover...etc
	or   eax,-1   		; saida do aplicativo   **************************deve ser do sistema
	int 0x40            	; 					nunca do aplicativo

.b:	jmp .a   	; loop para novo evento  
          

; tecla	
.c:	mov  eax,2		; getkey
	int 0x40
	;cmp al, 1		
	;jnz .a
	cmp ah, 'w'
      	jne .a1
      	add [end_base], 0x200
	jmp main			;
.a1:  	cmp ah, 's'
      	jne .a2
      	cmp [end_base], dword 0x80000000
      	jbe .a2
      	sub [end_base], 0x200	
	jmp main			;
.a2:	cmp ah, 'e'
      	jne .a3
      	add [end_base], 0x10
	jmp main			;
.a3:  	cmp ah, 'd'
      	jne .b1
      	cmp [end_base], dword 0x80000000
      	jbe .b1
      	sub [end_base], 0x10
.b1:	jmp main


; atualiza apenas o codigo hex / ascii
.h:
	call hex_loop
;	inc [contador]		; usado apenas para testar a dinamica 
	jmp .a		; retorna para buscar novo evento


monta_quadro:
  
  ; posição inicial, subfunção 1
    	
    	mov  eax,12                     
    	mov  ebx,1                      
    	int 0x40
  
  ; Desenha o quadro
    	
    	mov  eax,0                     ; função 0 : define e monta o quadro
    	mov  ebx,100*65536+480         ; [x pos] *65536 + [x lar]
    	mov  ecx,100*65536+440         ; [y pos] *65536 + [y alt]
    	mov  edx,[cor_janela]        	 ; cor area RRGGBB
    	mov  edi,titulo                ; Titulo
    	int 0x40
  
  ; escreve texto no quadro (barra superior)
  	
  	mov edi,[cor_janela] 
  	mov  eax,4         
	mov ecx, [cor_texto]
	mov  ebx,8*65536+8 
	mov  edx,teste      
	int 0x40              
  	
  	add  ebx,11		; adiciona espaço na coord y
  	
  	mov  eax,4         
	mov ecx, [cor_texto]
	mov  edx,barra1      
	int 0x40  
   		 	
 	call hex_loop
 	
  ; posição final, subfunção 2	
	
.d:	mov  eax,12                     
    	mov  ebx,2                      
    	int 0x40	
	
	ret	

  ; buscar conteudo da memoria para mostrar

hex_loop:   	
   	xor eax, eax
   	mov ebx, [end_base]	; endereço base
  
  ; imprime o endereço
   	
   	mov edx, 8*65536+40 ; posição inicial hex
   	mov [pos_ascii], edx
   	add [pos_ascii], 360*65536	; posição inicial ascii
   	mov word [pos_x], 0
   	mov al, [quant_linhas]
	mov edi,[cor_janela] 

.c:   	push eax		; 
   	push edx		; 
   	
   	push ebx		; salva endereço base 
   	mov al, 47
   	mov ecx, ebx	; imprime o endereço
   	mov ebx, 0x00080100
   	mov esi, [cor_endereco]
   	int 0x40
	pop ebx		; 
	
	add edx, 60*65536	; pula 8 espaços mais alguma coisa
  	
  ; busca hexcode	
	
	mov esi, [cor_hexcode]
	mov al, 4

.b:	push eax		; ----------------------------------------------------------ok
 	 	
 	mov al, 72	; ebx= endereço de leitura (nao funcionou...) change this service to another
	int 0x40		; retorna ecx= dword da posição ebx

   	push ebx	 	; ----------------------------------------------------------ok
 	mov ebx, 0x00020100	; 2 digitos, modo hex
 	mov al, 4

.a:	push eax		; controle -------------------------------------------------ok
 	push ecx		; codigo 
 	push edx		; posição 
 	and ecx, 0xff
 	mov al, 47
 	int 0x40
 	call imprime_car$
 	pop edx		; 
 	pop ecx		; 
 	shr ecx, 8
 	add edx, (18)*65536
 	pop eax		; ----------------------------------------------------------ok
 	dec al
 	jnz .a
 	
 	pop ebx		; ----------------------------------------------------------ok
 	add ebx, 4	; soma 4 ao endereço base
 	pop eax		; ----------------------------------------------------------ok
 	dec al		; imprimir mais 4 vezes incrementando ebx em 4
 	jnz .b
 	
	pop edx		; 
 	add edx, 10	;
 
 ; imprime a string ascii	
 
 	push ebx
 	push edx
 	mov al, 4	
      	mov ebx, [pos_ascii]	; endereço na tela 
      	mov edx, ascii_string	; endereço da string
      	or ecx, [cor_ascii]		; cor
      	int 0x40
 	mov [ascii_x], byte 0
 	add [pos_ascii], 10
 	pop edx
 	pop ebx
 	
 	pop eax		; 	
 	dec al
 	jnz .c
	ret
 
imprime_car$:		; ecx tem o caractere a imprimir
	
	push ebx
	xor ebx, ebx
	mov bl, [ascii_x]
	or cl, cl
      	jnz .c
      	mov cl, 0x20
.c:	mov [ebx+ascii_string], cl	
	inc [ascii_x]
	pop ebx
	ret
	

; para acessar a memoria do sistema:
;
;	acessar a base das tabelas de paginaçao
;	com o endereço buscar o descritor de pagina
; 	ler o endereço físico ndo descritor
; ou 	buscar a pagina do sistema e ler nele o endereço fisico

; DATA AREA
align 0x10
;contador		dd 0			; para testar a dinamica
cor_janela  	dd 0x346f72c3		; atrib, tipo, corRGB
cor_texto 	dd 0xc0fffffe		; fonte variavel, cor branca
cor_endereco	dd 0xc0fffffc
cor_hexcode	dd 0xc0fffffd
cor_ascii		dd 0xc0fffffa
pos_x		db 0
pos_y		db 0
quant_linhas	db 0x20
ascii_x		db 0
end_base		dd 0x80000000		; ok
pos_ascii		dd 0
ascii_string	rb 0x11	
reservado		rb 3


titulo    db 'Mostra a memoria do sistema operacional',0

teste	db '--------  ------------------ Hex Code -------------------   -- A S C I I  --',0
barra1	db 'Address:  00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f   0123456789abcdef',0


align 0x10
I_END:
	

; service 72 from system calls
; 
; must contain:
;       mov eax, [eax]
;	mov [esp+32], eax
;	ret