;Aluno: LEONARDO REIS DA SILVA
;Cartao: 00316357
        .model  small
        .stack

CR      equ     13
LF      equ     10
BS      equ     8


.data
Virgula                 db      ","
BufferTec               db      12 dup (?),0
Digite_o_nome           db      "Digite o nome do arquivo: ",0
Nome_e_cartao           db      "************ Aluno: Leonardo Reis da Silva ****** Matricula: 316357 ************",CR,LF,0
Nome_e_cartao_grafico           db      "************ Aluno: Leonardo Reis da Silva ****** Matricula: 316357 ************",0
Contador_caracteres     dw      ?
Programa_encerrado      db      CR,LF,"Programa encerrado por decisao do usuario",CR,LF,0
Extensao_digitada       db      6   dup (?)
Ponto_par               db      ".par",CR,LF,0
Caract_temp1            db      1
Caract_temp2            db      1
Quebra                  db      CR,LF,"O nome do arquivo eh: "
Arquivo_ok              db      CR,LF,"ARQUIVO SUCESSO",CR,LF,0
Arquivo_nok             db      CR,LF,"OCORREU UM ERRO NA ABERTURA DO ARQUIVO.",CR,LF,0
Handle_arquivo          dw      ?
Buffer_arquivo          db      1 dup(?),0
Parede_altura_str       db      4 dup(?),0
Parede_largura_str      db      4 dup(?),0
Tamanho_ladrilho        dw      24
String_ARQUIVO          db      "                             Arquivo aberto: ",0
String_TOTAL            db      " Total de ladrilhos por cor:",0
X_inicial               dw      ?
X_final                 dw      ?
Y_inicial               dw      ?
Y_final                 dw      ?
Comprimento_linha       dw      ?
Cor_linha               db      ?
Cor_rejunte             db      15
Cor_temp                db      ?
X_inicial_quadrado      dw      ?
Y_inicial_quadrado      dw      ?
X_final_quadrado        dw      ?
Y_final_quadrado        dw      ?
Lado_quadrado           dw      ?
Contador_cores          db      0
Posicao_contador        dw      0

;;totalizadores de ladrilhos
PRETO                   db      ?
AZUL                    db      ?
VERDE                   db      ?
CIANO                   db      ?
VERMELHO                db      ?
MAGENTA                 db      ?
MARROM                  db      ?
CINZA_CLARO             db      ?
CINZA_ESCURO            db      ?
AZUL_CLARO              db      ?
VERDE_CLARO             db      ?
CIANO_CLARO             db      ?
VERMELHO_CLARO          db      ?
MAGENTA_CLARO           db      ?
AMARELO                 db      ?

string db 10 dup('$')

        .code

        .startup

        ;--------------------------------------------------
        call limpa_tela ;chama funcao de limpar a tela(WIP)
        ;--------------------------------------------------

        ;---------------------------------------------------
        mov Contador_caracteres,0   ;move 0 para o contador do nome do arquivo(num de caracteres)
        ;----------------------------------------------------


        ;-------------------------------------------------------------------
        lea bx,Nome_e_cartao        ;exibe nome do aluno e cartao
        call printf_s               ;passa o parametro em bx e chama a rotina
        ;-------------------------------------------------------------------


    etapa2:

        lea bx,Digite_o_nome        ;pede o nome do arquivo
        call printf_s               ;passa o parametro em bx e chama a rotina

        mov     cx,8            ;move 30 para cx(tamanho maximo do nome do arquivo)
        lea     bx,BufferTec        ;move o inicio do buffer do teclado para bx
        call    ReadString          ;chama rotina de ler string do teclado

        ;;PROBLEMA: CORRIGIR ERRO QUANDO STRING POSSUI BS E TEM EXATAMENTE 8 CARACTERES

        lea ax,BufferTec            ;carrega *BufferTec para ax
        sub ax,5                    ;e ajusta o ponteiro
        add ax,Contador_caracteres  ;para as 4 ultimas posicoes do nome do arquivo
                                    ;que, talvez, sera a extensao .par
        ;;FIM DO PROBLEMA

        lea bx, Extensao_digitada   ;move para bx o ponteiro que ira receber uma copiar
        call printf_s

        call remove_extensao        ;dos 4 ultimos caracteres do nome do arq. e chama
                                    ;a funcao que ira remover a extensao e copiar




        lea bx, Extensao_digitada   ;move ponteiro para a extensao digitada
        call compara_extensao       ;para bx, chama a funcao que verifica
        cmp bx,1                    ;se o arquivo continha um .par
        je possui_extensao
        jmp chama_poe_extensao

                            ;;aqui eh caso nao possua extensao, tera que colocar


possui_extensao:            ;;aqui eh caso possua extensao .par, nao precisa por

        jmp chama_abrir_arquivo


chama_poe_extensao:

        lea si, BufferTec
        call poe_extensao

chama_abrir_arquivo:

        lea dx, BufferTec ;;passa o nome do arquivo em dx
        call abre_arquivo ;;chama a funcao de abertura do arquivo


        mov  bx, Handle_arquivo
        call carrega_dimensoes      ;;ATENÇAO: AJUSTAR, CONSEGUIA PEGAR PRIMEIRA PARTE ANTES DA VIRGULA,
                                    ;;MAS NAO O RESTO





        jmp termina


etapa3:

        mov ah,0h           ;;chama tela grafica
        mov al,12h          ;;640x480
        int 10h             ;;chama interrupcao de gpu

        mov dl,0            ;;move cursor para
        mov dh,0            ;;(0,0)
        mov ah,02h
        mov bh,00h
        int 10h             ;;chama interrupcao

        lea bx, Nome_e_cartao_grafico   ;;escreve dados do aluno
        call printf_s                   ;;usando printf_s




        mov dl,0
        mov dh,24
        mov ah,02h
        mov bh,00h
        int 10h
        lea bx, String_TOTAL
        call printf_s
        lea bx, String_ARQUIVO
        call printf_s
        lea bx, BufferTec
        call printf_s






        mov dl,0            ;;move cursor para
        mov dh,81           ;;fora da tela
        mov ah,02h          ;;para nao interferir
        mov bh,00h          ;;na tela
        int 10h             ;;chama interrupcao

        ;;desenha moldura

        call desenha_moldura


        mov dx, 420
        call desenha_contadores


        ;cmp    [Extensao_digitada],"      "    ;ao finalizar leitura, compara de foi so 1 caractere FAZER
        ;jne        termina                 ;se nao, continua
        ;lea    bx,Programa_encerrado   ;caso sim, diz que o programa foi encerrado(pois so
        ;call   printf_s                ;foi digitado enter)






    termina:
        .exit



;-------------------------------------------------------------------------------------
;Função: carrega_dimensoes
;Objetivo: tendo um file handle valido, carrega as dimensoes da parede(em string) para
;as variaveis Parede_altura_str e Parede_largura_str
;Entradas:
;BX: Handle do arquivo
;--------------------------------------------------------------------------------------
carrega_dimensoes proc near

lea si, Parede_altura_str

lendo_altura:
    mov ah, 3fh
    mov cx, 1
    mov dx, offset Buffer_arquivo
    int 21H
    push bx
    mov bl, Buffer_arquivo
    cmp bl, Virgula
    je lendo_largura
    mov bl, Buffer_arquivo
    mov [ si ], bl
    lea bx, Buffer_arquivo
    call printf_s
    inc si
    pop bx
    jmp lendo_altura


lendo_largura:

lea si, Parede_largura_str




fim_dimensao:
    ret


carrega_dimensoes endp


;-------------------------------------------------------------------------------------
;Função: desenha_contadores
;Objetivo: dada uma altura y, desenha os sprites dos contadores nas 15 cores
;Entradas:
;DX: Y do desenho
;-------------------------------------------------------------------------------------
desenha_contadores proc near

mov Posicao_contador, 9 ;;Começa em 9 o x para dar uma 'margem'
mov Contador_cores, 0   ;;Comeca na cor 0, preta

    ;loop que desenhara 15 quadrados, das 15 cores
    ;a cada iteracao, soma o tamanho do ladrilho no x
    ;do proximo quadrado, para desloca-lo a direita.
    ;tambem soma mais 18, para dar um espaco entre
    ;esses quadrados.
    ;quando acabam as 15 cores, retorna ao fluxo do programa.
    loop_contadores:
        mov ax, Posicao_contador
        mov bx, Tamanho_ladrilho
        mov cl, Contador_cores
        call desenha_quadrado
        inc Contador_cores
        mov bx, Tamanho_ladrilho
        add Posicao_contador, bx
        add Posicao_contador, 18
        cmp Contador_cores, 15
        jne loop_contadores
        ret

desenha_contadores endp

;-------------------------------------------------------------------------------------
;Função: desenha_quadrado
;Objetivo: Dado um x,y inicial, tamanho do lado e cor, desenha um quadrado na tela
;Entradas:
;AX: X inicial
;BX: Tamanho do lado
;DX: Y inicial
;CL: Cor do quadrado
;-------------------------------------------------------------------------------------
desenha_quadrado proc near

;salva todos parametros em variaveis e empilha dx para nao interferir
;na funcao que desenhara todos os quadrados
push dx

mov X_inicial_quadrado, ax
mov Y_inicial_quadrado, dx
mov Lado_quadrado, bx
mov Cor_temp, cl
mov Y_final_quadrado, dx
add Y_final_quadrado, bx


;;loop que ira desenhar varias linhas horizontais da cor do quadrado
loop_quadrado:

    mov ax, X_inicial_quadrado  ;retorna os parametros para os registradores
    mov dx, Y_inicial_quadrado  ;pois podem ter sido alterados nas funcoes
    mov bx, Lado_quadrado       ;chamadas
    mov cl, Cor_temp            ;
    call linha_horizontal       ;desenha linha horizontal com a funcao
    inc Y_inicial_quadrado      ;incrementa o y da proxima linha
    mov ax, Y_inicial_quadrado  ;pois desenha o quadrado com
    cmp ax, Y_final_quadrado    ;sucessivas linhas verticais
    jne loop_quadrado           ;enquanto nao desenhar um quadrado de bx-dimensao, continua


;;como o rejunte sao 4 linhas, desenha aqui
mov ax, X_inicial_quadrado  ;em todas as 4 linhas ira retornar os parametros originais e fazer
mov dx, Y_inicial_quadrado  ;modificacoes para desenhar as respectivas linhas corretamente
mov bx, Lado_quadrado
mov cl, 15
sub dx, 1               ;;por algum motivo essa linha em especifico tem que aumentar em 1 seu comprimento se nao fica faltando 1px... VERIFICAR
call linha_horizontal

mov ax, X_inicial_quadrado
mov dx, Y_inicial_quadrado
mov bx, Lado_quadrado
sub dx, bx
mov cl, 15
call linha_horizontal

mov ax, X_inicial_quadrado
mov dx, Y_inicial_quadrado
mov bx, Lado_quadrado
sub dx, bx
mov cl, 15
call linha_vertical

mov ax, X_inicial_quadrado
mov dx, Y_inicial_quadrado
mov bx, Lado_quadrado
sub dx, bx
add ax, bx
mov cl, 15
call linha_vertical



pop dx

ret

desenha_quadrado endp
;-------------------------------------------------------------------------------------

;-------------------------------------------------------------------------------------
;Função: linha_horizontal
;Objetivo: desenha uma linha horizontal que inicia em um determinado x e tem  um
;determinado comprimento n
;Entradas:
;AX: X inicial
;BX: Comprimento da linha
;DX: Y inicial
;CL: Cor da linha
;-------------------------------------------------------------------------------------
linha_horizontal proc near



mov X_inicial, ax   ; salva os parametros em variaveis para
mov Y_inicial, dx   ; poder operar com os registradores
mov Comprimento_linha, bx   ; com seguranca
mov Cor_linha, cl
add ax, Comprimento_linha   ; calcula o X final da linha somando
mov X_final, ax             ; o comprimento desejado com o X inicial


mov dx, Y_inicial           ; inicia chamada da funcao de escrever pixels
mov cx, X_inicial           ; com X e Y iniciais em seus lugares
mov bh, 0                   ; na camada 0
mov ah, 0ch                 ; indica a funcao de pixel
mov al, Cor_linha           ; poe a cor desejada pelo usuario

loop_horizontal:            ; loop que ira ir incrementando a coluna(x)
    int 10h                 ; e vai ir colocando pixels enquanto
    inc cx                  ; a linha nao tiver o comprimento final
    cmp cx,X_final          ; calculado inicialmente
    jne loop_horizontal

    ret





linha_horizontal endp
;--------------------------------------------------------------------------------------

;-------------------------------------------------------------------------------------
;Função: linha_vertical
;Objetivo: desenha uma linha vertical que inicia em um determinado y e tem  um
;determinado comprimento n
;Entradas:
;AX: X inicial
;BX: Comprimento da linha
;DX: Y inicial
;CL: Cor da linha
;-------------------------------------------------------------------------------------
linha_vertical proc near

; FUNCIONA DE FORMA ANÁLOGA À FUNÇÃO DE LINHA HORIZONTAL,
; MAS CALCULA UM Y FINAL ATRAVÉS DA SOMA DO Y INICIAL
; COM O COMPRIMENTO DESEJADO, DIFERINDO DA VERTICAL
; POIS ESCREVE PIXELS INCREMENTANDO A LINHA A SER ESCRITO
; ENQUANTO ESSA LINHA NAO ULTRAPASSAR TAMANHO EM Y
; CALCULADO PELA SOMA INICIAL

mov X_inicial, ax
mov Y_inicial, dx
mov Comprimento_linha, bx
mov Cor_linha, cl
add dx, Comprimento_linha
mov Y_final, dx


mov dx, Y_inicial
mov cx, X_inicial
mov bh, 0
mov ah, 0ch
mov al, Cor_linha

loop_vertical:
    int 10h
    inc dx
    cmp dx,Y_final
    jne loop_vertical
    ret





linha_vertical endp
;---------------------------------------------------------------------------

;---------------------------------------------------------------------------
;Função: desenha_moldura
;Objetivo: Desenha a moldura da tela
;Entradas: nada
;---------------------------------------------------------------------------
desenha_moldura proc near

;Simplesmente usa as funcoes de desenhar linhas
;para escrever 4 linhas brancas simples na tela,
;a fim de criar a moldura.

        mov ax, 1
        mov bx, 637
        mov dx, 20
        mov cl, 15
        call linha_horizontal

        mov ax, 1
        mov bx, 637
        mov dx, 380
        mov cl, 15
        call linha_horizontal


        mov ax, 1
        mov bx, 360
        mov dx, 20
        mov cl, 15
        call linha_vertical

        mov ax, 637
        mov bx, 360
        mov dx, 20
        mov cl, 15
        call linha_vertical

        ret


desenha_moldura endp
;---------------------------------------------------------------------------


;---------------------------------------------------------------------------
; Função: abre_arquivo
; Objetivo: abre um arquivo e devolve em ax o handle do arquivo(caso abra com sucesso)
; e abre tela grafica(o que significa que o arquivo foi aberto com sucesso)
; ou retorna mensagem de erro na tela caso houver algum erro na abertura.
; Entradas:
; DX: *String contendo o nome do arquivo a ser aberto
;---------------------------------------------------------------------------
abre_arquivo proc near


mov ah, 3dh
mov al, 0
int 21h

mov Handle_arquivo, ax

jc abre_arquivo_erro


ret

abre_arquivo_erro:

    lea bx, Arquivo_nok
    call printf_s
    jmp termina


abre_arquivo endp
;--------------------------------------------------------------------
;Fun��o: L� um string do teclado
;Entra: (S) -> DS:BX -> Ponteiro para o string
;       (M) -> CX -> numero maximo de caracteres aceitos
;--------------------------------------------------------------------
ReadString  proc    near

        ;Pos = 0
        mov     dx,0


RDSTR_1:
        ;while(1) {
        ;   al = Int21(7)       // Espera pelo teclado
        inc     Contador_caracteres
        mov     ah,7
        int     21H

        ;   if (al==CR) {
        cmp     al,0DH
        jne     RDSTR_A

        ;       *S = '\0'
        mov     byte ptr[bx],0
        ;       return
        ret
        ;   }

RDSTR_A:
        ;   if (al==BS) {
        cmp     al,08H
        jne     RDSTR_B

        ;       if (Pos==0) continue;
        cmp     dx,0
        jz      RDSTR_1

        ;       Print (BS, SPACE, BS)
        push    dx

        mov     dl,08H
        mov     ah,2
        int     21H

        mov     dl,' '
        mov     ah,2
        int     21H

        mov     dl,08H
        mov     ah,2
        int     21H

        pop     dx

        ;       --s
        dec     bx
        ;       ++M
        inc     cx
        ;       --Pos
        dec     dx

        ;   }
        jmp     RDSTR_1

RDSTR_B:
        ;   if (M==0) continue
        cmp     cx,0
        je      RDSTR_1

        ;   if (al>=SPACE) {
        cmp     al,' '
        jl      RDSTR_1

        ;       *S = al
        mov     [bx],al

        ;       ++S
        inc     bx
        ;       --M
        dec     cx
        ;       ++Pos
        inc     dx

        ;       Int21 (s, AL)
        push    dx
        mov     dl,al
        mov     ah,2
        int     21H
        pop     dx

        ;   }
        ;}
        jmp     RDSTR_1

ReadString  endp



;
;--------------------------------------------------------------------
;Fun��o: Escrever um string na tela
;--------------------------------------------------------------------
printf_s    proc    near

;   While (*s!='\0') {
    mov     dl,[bx]
    cmp     dl,0
    je      ps_1

;       putchar(*s)
    push    bx
    mov     ah,2
    int     21H
    pop     bx

;       ++s;
    inc     bx

;   }
    jmp     printf_s

ps_1:
    ret

printf_s    endp


limpa_tela proc near



mov ax, 0700h  ; function 07, AL=0 means scroll whole window
mov bh, 07h    ; character attribute = white on black
mov cx, 0000h ; row = 0, col = 0
mov dx, 184fh  ; row = 24 (0x18), col = 79 (0x4f)
int 10h        ; call BIOS video interrupt



ret

limpa_tela endp


;--------------------------------------------------------------------
    ;remove_extensao
    ;recebe em ax ponteiro para os 4 ultimos caracteres do nome do arquivo
    ;recebe em bx o ponteiro para a string que ira copiar os 4 ultimos caracteres
    ;nao devolve nada, apenas escreve os ultimos 4 caracteres - uma possivel extensao -
    ;para o endere�o contido no ponteiro em bx

;--------------------------------------------------------------------

remove_extensao proc near


        mov si, ax
        mov cx, 6
inicio_loop:
        mov ah,[si]
        mov [bx],ah
        inc bx
        inc si
        dec cx
        cmp cx, 0
        jne inicio_loop
        ret

remove_extensao endp

;--------------------------------------------------------------------
; compara_extensao
; recebe em bx o ponteiro para a extensao digitada pelo usuario
; devolve bx = 0 se nao conter .par e bx = 1 se conter .par
;--------------------------------------------------------------------
compara_extensao proc near


        lea si,Ponto_par
        mov cx, 4

loop_compara_extensao:
        cmp [bx],8
        jnz continua_compara_extensao
        cmp [bx],13
        jnz continua_compara_extensao
        inc bx
        jmp loop_compara_extensao

continua_compara_extensao:

        mov ah, [si]
        mov Caract_temp1, ah
        mov ah, [bx]
        mov Caract_temp2, ah
        inc bx
        inc si
        dec cx
        mov ah, Caract_temp1
        mov dh, Caract_temp2
        cmp ah, dh
        jne extensao_diferente
        cmp cx, 0
        jne loop_compara_extensao

        mov bx, 1
        ret

        extensao_diferente:
            mov bx, 0
            ret

compara_extensao endp

;------------------------------------------
; poe_extensao: dado um ponteiro para uma
; string em si, escreve .par nessa string
;------------------------------------------
poe_extensao proc near

mov cx,8

loop_poe_extensao:

        cmp [si], 32
        jge continua_loop_extensao
        jmp coloca_ponto_par

continua_loop_extensao:
        dec cx
        cmp cx,0
        inc si
        jne loop_poe_extensao


coloca_ponto_par:
        mov cx, 4
        lea bx,Ponto_par

loop_coloca_ponto_par:
        mov ax,[bx]
        mov [si],ax
        inc si
        inc bx
        dec cx
        cmp cx,0
        jne loop_coloca_ponto_par

ret

poe_extensao endp


;--------------------------------------------------------------------
        end
;--------------------------------------------------------------------