fork download

copy

.model small,c
 
public current_x, current_y, current_attr
 
.stack
 
.data
current_x       db 0
current_y       db 0
current_attr    db 0
columns         db 0
 
.code
gotoxy  proc
    mov current_x, al
    mov current_y, ah
    ret
gotoxy endp
 
getx proc
    mov al,current_x
    ret
getx endp
 
gety proc
    mov al,current_y
    ret
gety endp
 
getattr proc
    mov al,current_attr
    ret
getattr endp
 
setattr proc
    mov current_attr, al
    ret
setattr endp
 
setbackground proc
    mov ah,current_attr
    and ah,0fh
    mov cl, 4
    shl al, cl
    or  ah,al
    mov current_attr, ah
    ret
setbackground endp
 
setforeground proc
    and al, 0fh
    mov ah, current_attr
    and ah, 0f0h
    or  ah, al
    mov current_attr, ah
    ret
setforeground endp
 
putstring proc uses es di
; call with ds:si = address of ASCIIZ string to print out.
; uses:     di, cx, dx
    ; The following section takes a pair of coordinates and figures
    ; out their address.
 
    mov cx,0b000h       ; First get the video buffer segment.
    mov ah, 0fh
    int 10h
    mov columns,ah
    cmp al, 7
    jz @f
    mov cx, 0b800h
@@:
    mov es,cx
 
    mov al,current_y
    mov dl,ah
    mul dl
    mov di,ax
    mov al,current_x
    cbw
    add di,ax
    shl di, 1
 
    ; This next bit actually writes the string to the screen.
    mov ah,current_attr
    lodsb
@@:
    stosw
    lodsb
    test  al,al
    jnz @b
 
    ; This converts the final address back to a pair of coordinates
    ; and stores them so the next string will immediately follow this
    ; one if the current position isn't repositioned beforehand.
    mov dl, columns
    div dl
    mov current_y, al
    mov current_x, ah
done:
    ret
putstring endp
 
ifdef DOTEST
 
.data
string1 db "This is blue on green.", 0
string2 db "This is green on blue.", 0
 
.code
.startup
main proc
	mov  al, 21h
	call setattr
	xor  ax, ax
	call gotoxy
	mov  si, offset string1
	call putstring
 
	mov  al, 12h
	call setattr
	mov  ax, 0100h
	call gotoxy
	mov  si, offset string2
	call putstring
	xor ax, ax
	int 16h
	mov ax, 4c00h
	int 21h
main endp
endif
 
    end
 

prog.asm:1: error: attempt to define a local label before any non-local labels
prog.asm:1: error: parser: instruction expected
prog.asm:3: error: parser: instruction expected
prog.asm:14: error: parser: instruction expected
prog.asm:18: error: symbol `gotoxy' redefined
prog.asm:18: error: parser: instruction expected
prog.asm:20: error: parser: instruction expected
prog.asm:23: error: symbol `getx' redefined
prog.asm:23: error: parser: instruction expected
prog.asm:25: error: parser: instruction expected
prog.asm:28: error: symbol `gety' redefined
prog.asm:28: error: parser: instruction expected
prog.asm:30: error: parser: instruction expected
prog.asm:33: error: symbol `getattr' redefined
prog.asm:33: error: parser: instruction expected
prog.asm:35: error: parser: instruction expected
prog.asm:38: error: symbol `setattr' redefined
prog.asm:38: error: parser: instruction expected
prog.asm:40: error: parser: instruction expected
prog.asm:48: error: symbol `setbackground' redefined
prog.asm:48: error: parser: instruction expected
prog.asm:50: error: parser: instruction expected
prog.asm:57: error: symbol `setforeground' redefined
prog.asm:57: error: parser: instruction expected
prog.asm:59: error: parser: instruction expected
prog.asm:87: error: symbol `@@' redefined
prog.asm:102: error: symbol `putstring' redefined
prog.asm:102: error: parser: instruction expected
prog.asm:104: error: parser: instruction expected
prog.asm:112: error: parser: instruction expected
prog.asm:117: error: comma, colon or end of line expected
prog.asm:124: error: comma, colon or end of line expected
prog.asm:130: error: symbol `main' redefined
prog.asm:130: error: parser: instruction expected

Standard output is empty