I am try to put movements to a box i created using Assembly Language. Can someone give me a little help please. Just a starter with one of the cursor keys please. I need to use the up,down,left and right arrow keys. Thanks. The codes can be located below.
CODE
TITLE TEST OF INCLUDE - drawing a box using values
.MODEL SMALL
.STACK 64
INCLUDE MYMAC.LIB
.DATA
VAR DB ?
VAR2 DB ?
.CODE
BEGIN PROC NEAR
MOV AX,@DATA
MOV DS,AX
MOV ES,AX
CLRSCR
CUAD 12,30,14,35,7
DELAY
BEGIN ENDP
END BEGIN
*********and this is the library file i am using **********
CODE
DELAY MACRO
MOV AH,07H
INT 21H
ENDM
CLRSCR MACRO
MOV AH,00H
MOV AL,03H
INT 10H
ENDM
GOTOXY MACRO X,Y
MOV AH,02H
MOV BH,0H
MOV DH,X
MOV DL,Y
INT 10H
ENDM
PUTCAR MACRO CAR
MOV AH,02H
MOV DL,CAR
INT 21H
ENDM
PUTCHAR MACRO CHAR,HOWM
MOV AH,0AH
MOV AL,CHAR
MOV BH,0H
MOV BL,07H
MOV CX,HOWM
INT 10H
ENDM
COLOR MACRO BCKGRND,LINES,FFI,CCI,FFF,CCF
MOV AH,06H
MOV AL,LINES
MOV BH,BCKGRND
MOV CH,FFI
MOV CL,CCI
MOV DH,FFF
MOV DL,CCF
INT 10H
ENDM
CUAD MACRO FI,CI,FF,CF,COLORES
LOCAL VERTICAL
MOV CL,FF
SUB CL,FI
COLOR COLORES,CL,FI,CI,FF,CF
; PONE LAS LINEAS HORIZONTALES
MOV DL,CF
SUB DL,CI
PUSH DX
GOTOXY FI,CI
POP DX
MOV DH,0
PUTCHAR 205,DX
MOV DL,CF
SUB DL,CI
PUSH DX
GOTOXY FF,CI
POP DX
MOV DH,0H
PUTCHAR 205,DX
; PONE LAS LINEAS VERTICALES
MOV CL,FF
SUB CL,FI
MOV CH,0
MOV AH,FI
MOV VAR2,AH
VERTICAL:
GOTOXY VAR2,CI
PUTCAR 186
GOTOXY VAR2,CF
PUTCAR 186
INC VAR2
LOOP VERTICAL
GOTOXY FI,CI
PUTCAR 201
GOTOXY FI,CF
PUTCAR 187
GOTOXY FF,CI
PUTCAR 200
GOTOXY FF,CF
PUTCAR 188
ENDM
8 Nov, 2007 - 08:13 PM
| 