TABULEIRO.ASM

TITLE QUAD
.MODEL SMALL
.STACK 100h
.DATA
QUAD 	DB "         1   2   3   4   5   6                  1   2   3   4   5   6", 10, 13, "$" ;CX=69
QUAD1 DB "       ",218,196,196,196,194,196,196,196,194,196,196,196,194,196,196,196,194,196,196,196,194,196,196,196,191,"              ",218,196,196,196,194,196,196,196,194,196,196,196,194,196,196,196,194,196,196,196,194,196,196,196,191,10,13,"$"; CX=71
QUAD2A DB "     A ",179,"$"; CX=8
QUAD2A2 DB	"            A ",179,"$" ; CX=15
QUAD2B2 DB	"            B ",179,"$"; CX=15
QUAD2C2 DB	"            C ",179,"$"; CX=15
QUAD2D2 DB	"            D ",179,"$"; CX=15
QUAD2E2 DB	"            E ",179,"$"; CX=15
QUAD2F2 DB	"            F ",179,"$"; CX=15
QUADV DB "   ",179,"$"; CX=4
QUADC DB 176,176,176,179,"$"; CX=4
QUADA DB 219,219,219,179,"$"; CX=4
QUAD2B  DB "     B ",179,"$"; CX=8
QUAD2C  DB "     C ",179,"$"; CX=8
QUAD2D  DB "     D ",179,"$"; CX=8
QUAD2E  DB "     E ",179,"$"; CX=8
QUAD2F  DB "     F ",179,"$"; CX=8
QUAD3  DB "       ",195,196,196,196,197,196,196,196,197,196,196,196,197,196,196,196,197,196,196,196,197,196,196,196,180,"             ",195,196,196,196,197,196,196,196,197,196,196,196,197,196,196,196,197,196,196,196,197,196,196,196,180,10,13,"$"; CX=71
QUAD4 DB "       ",192,196,196,196,193,196,196,196,193,196,196,196,193,196,196,196,193,196,196,196,193,196,196,196,217,"              ",192,196,196,196,193,196,196,196,193,196,196,196,193,196,196,196,193,196,196,196,193,196,196,196,217,10,13,"$"; CX=71
COUNT DB ?
.CODE
PULALINHA PROC
MOV AH, 2
MOV DL, 10
INT 21h
MOV DL, 13
INT 21h
RET
PULALINHA ENDP

MAIN PROC
MOV AX, @DATA
MOV DS, AX
MOV ES, AX ;*

MOV AH, 0
MOV AL, 3
INT 10H

MOV AX, 1
INT 33h

MOV CX, 5
PULA:
CALL PULALINHA
LOOP PULA


MOV AH, 13h ;Numeros
MOV BP, OFFSET QUAD
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 5
INT 10h

MOV AH, 13h ;Llinha
MOV BP, OFFSET QUAD1
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 6
INT 10h

MOV AH, 13h ;Espaço vazio A
MOV BP, OFFSET QUAD2A
MOV BH, 0
MOV BL, 67
MOV CX, 15
MOV DL, 0
MOV DH, 7
INT 10h

MOV DL, 8
MOV COUNT, 6
MOSTRAR1:
MOV AH, 13h
MOV BP, OFFSET QUADV
MOV BH, 0
MOV BL, 67
MOV CX, 5
MOV DH, 7
INT 10h
ADD DL, 4
DEC COUNT
JNZ MOSTRAR1

MOV AH, 13h ;Espaço vazio A2
MOV BP, OFFSET QUAD2A2
MOV BH, 0
MOV BL, 67
MOV CX, 15
MOV DL, 32
MOV DH, 7
INT 10h

MOV DL, 47
MOV COUNT, 6
MOSTRAR2:
MOV AH, 13h
MOV BP, OFFSET QUADV
MOV BH, 0
MOV BL, 67
MOV CX, 4
MOV DH, 7
INT 10h
ADD DL, 4
DEC COUNT
JNZ MOSTRAR2

MOV AH, 13h
MOV BP, OFFSET QUAD3
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 8
INT 10h

MOV  AH, 13h
MOV BP, OFFSET QUAD2B
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 9
INT 10h

MOV  AH, 13h
MOV  BP, OFFSET QUAD3
MOV  BH, 0
MOV  BL, 67
MOV  CX, 71
MOV  DL, 0
MOV  DH, 10
INT 10h

MOV AH, 13h
MOV BP, OFFSET QUAD2C
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 11
INT 10h

MOV AH, 13h
MOV BP, OFFSET QUAD3
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 12
INT 10h

MOV AH, 13h
MOV BP, OFFSET QUAD2D
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 13
INT 10h

MOV AH, 13h
MOV BP, OFFSET QUAD3
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 14
INT 10h

MOV AH, 13h
MOV BP, OFFSET QUAD2E
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 15
INT 10h

MOV AH, 13h
MOV BP, OFFSET QUAD3
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 16
INT 10h

MOV AH, 13h
MOV BP, OFFSET QUAD2F
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 17
INT 10h

MOV AH, 13h
MOV BP, OFFSET QUAD4
MOV BH, 0
MOV BL, 67
MOV CX, 71
MOV DL, 0
MOV DH, 18
INT 10h


MOV AH, 4Ch
INT 21h

MAIN ENDP
END MAIN