yarab.asm

extern Drawboard:far
public Filename

.model Small
.stack 64
.data
BoardData db  9C40h dup(?);

Filename db 'chess.bin', 0h;
DIRECTORY       DB      'D:\Pieces',0h
filehandle dw ?
chessData db  625d dup(?);
.code
main  PROC far
mov ax , @data ;
mov ds , ax ;

call Drawboard
;--------------------------input data------------------------------------
mov ax,'bb'
mov Filename,al 
mov Filename+1,ah
mov ax,'k.'
mov Filename+2,ah
mov Filename+3,al 
mov ax,'bi'
mov Filename+4,ah
mov Filename+5,al
mov ah,'n'
mov Filename+6,ah
mov ah,0         
mov Filename+7,ah

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

call DrawPiece


mov ah , 4ch ;
int 21h;


hlt

main ENDP



DrawPiece proc far


MOV AH, 3BH
MOV DX, OFFSET DIRECTORY
INT 21H

mov ah,0;
mov al,13h;
int 10h;

call OpenFile;
call ReadData;

LEA bx , chessData
mov cx , 30h ;
mov dx , 0h ;
mov ah ,0ch ;


drawingloop :
mov al ,[Bx] ;
int 10h;
inc cx;
inc bx;
cmp cx , 49h;
JNE drawingloop ;
mov cx , 30H ;
inc dx ;
cmp dx, 19h;
JNE drawingloop;

mov ah , 0h ;
int 16h ;

call closeFile ;
;mov ah , 0h ;
;mov al , 3h ;
;int 10h ;


ret
DrawPiece ENDP

OpenFile proc
mov ah , 3dh ;
mov al ,0h ;
LEA dx,Filename ;
int 21h ;   
mov [filehandle], ax;

RET ;
OpenFile ENDP ;

ReadData proc
mov ah , 3fh ;
mov bx , [filehandle];
mov cx , 625d;
LEA dx ,chessData;
int 21h;
;mov ah , 3fh;
RET;
ReadData ENDP;


closeFile proc;
mov ah , 3eh;
mov bx , [filehandle];
int 21h;
RET ;
closeFile ENDP;
End main