Sokoban
Title Codigo ASCII
STACKS SEGMENT PARA STACK 'STACK'; EL STACK SIRVE PARA DEFINIR EL SEGMENTO DE LA PILA
DB 64 DUP (0)
STACKS ENDS
DATA SEGMENT ; SE DEFINE UN SEGMENTO DE DATOS
COL DB 0 ; SE INICIALIZAN FILAS Y COLUMNAS
FIL DB 0
DATA ENDS
CODESG SEGMENT ; SE DEFINE UN EL CODIGO DE SEGMENTO DONDE SE PROGRAMAN LA INTRUCCIONES
ASSUME CS:CODESG,DS:DATA,SS:STACKS
MAIN PROC FAR
PUSH DS
MOV AX, DATA
MOV DS, AX
LIMPIAR_PANTALLA:
MOV AX, 0600H
MOV BH, 07H
MOV CX,0000H
MOV DX,184FH
INT 10H
MOV CX, 226 ;CX CONTADOR
MOV AH,' '
TABLA:
MOV AH, 02 ;COLOCA EL CURSOR
MOV DH, FIL ; SE INICIALIZA LA FILA
MOV DL, COL; SE INICIALIZA LA COLUMNA YA Q SE DESPLEGARA UNA TABLA
MOV BH, 0
INT 10H
INC FIL ; SE INCREMENTA LA FILA PARA QUE EL CURSOR SE VALLA DESPLAZANDO HACIA ABAJO
CMP FIL, 20 ; SE COMPARA Q EL NUMERO DE FILAS SEA = A 20 PARA
JNE MOSTRAR ; SE IMPRIMEN LOS PRIMEROS 20 CARACTERES
MOV FIL, 0 ; SE VUELVE A INICIALIZAR LA FILA EN 0 PARA Q COMIENZE DESDE ARRIBA DE NUEVO
ADD COL, 10 ; SE INCREMENTA LA COLUMNA PARA Q ESTA SE DESPLAZE ORIZONTALMENTE
IMPRIMIR:
MOV AH,0EH ;IMPRIMIR 1 SOLO CARACTER
INT 10H
INC AL ;INCREMENTA EN AL PARA EL SIGUIENTE CARACTER YA QUE AHI SE ENCUENTRA GUARDADO
LOOP TABLA
FIN:
MOV AX, 4CH
INT 21H
MAIN ENDP
CODESG ENDS
END MAIN
END
Este codigo se ejecuta con DOS Box.
STACKS SEGMENT PARA STACK 'STACK'; EL STACK SIRVE PARA DEFINIR EL SEGMENTO DE LA PILA
DB 64 DUP (0)
STACKS ENDS
DATA SEGMENT ; SE DEFINE UN SEGMENTO DE DATOS
COL DB 0 ; SE INICIALIZAN FILAS Y COLUMNAS
FIL DB 0
DATA ENDS
CODESG SEGMENT ; SE DEFINE UN EL CODIGO DE SEGMENTO DONDE SE PROGRAMAN LA INTRUCCIONES
ASSUME CS:CODESG,DS:DATA,SS:STACKS
MAIN PROC FAR
PUSH DS
MOV AX, DATA
MOV DS, AX
LIMPIAR_PANTALLA:
MOV AX, 0600H
MOV BH, 07H
MOV CX,0000H
MOV DX,184FH
INT 10H
MOV CX, 226 ;CX CONTADOR
MOV AH,' '
TABLA:
MOV AH, 02 ;COLOCA EL CURSOR
MOV DH, FIL ; SE INICIALIZA LA FILA
MOV DL, COL; SE INICIALIZA LA COLUMNA YA Q SE DESPLEGARA UNA TABLA
MOV BH, 0
INT 10H
INC FIL ; SE INCREMENTA LA FILA PARA QUE EL CURSOR SE VALLA DESPLAZANDO HACIA ABAJO
CMP FIL, 20 ; SE COMPARA Q EL NUMERO DE FILAS SEA = A 20 PARA
JNE MOSTRAR ; SE IMPRIMEN LOS PRIMEROS 20 CARACTERES
MOV FIL, 0 ; SE VUELVE A INICIALIZAR LA FILA EN 0 PARA Q COMIENZE DESDE ARRIBA DE NUEVO
ADD COL, 10 ; SE INCREMENTA LA COLUMNA PARA Q ESTA SE DESPLAZE ORIZONTALMENTE
IMPRIMIR:
MOV AH,0EH ;IMPRIMIR 1 SOLO CARACTER
INT 10H
INC AL ;INCREMENTA EN AL PARA EL SIGUIENTE CARACTER YA QUE AHI SE ENCUENTRA GUARDADO
LOOP TABLA
FIN:
MOV AX, 4CH
INT 21H
MAIN ENDP
CODESG ENDS
END MAIN
END
Este codigo se ejecuta con DOS Box.
