tb1/legacy_pascal/graph32.asm
2012-11-30 00:36:21 -05:00

114 lines
1.7 KiB
NASM

.Model Medium,Pascal
.CODE
PUBLIC cls32,flipd320,flipd240,flipd50
cls32 PROC FAR pascal
.386
push di
cld
mov ax, [bp+6]
mov es, ax
xor di,di
mov bl,[bp+8]
mov bh,bl
mov ax,bx
shl eax,16
mov ax,bx
mov cx,320*200/4
rep stosd
pop di
ret
cls32 ENDP
;procedure flip32(source,dest:Word);
;This copies the entire screen at "source" to destination
flipd320 PROC FAR PASCAL
.386
push ds
mov ax, [bp+6]
mov es, ax
mov ax, [bp+8]
mov ds, ax
xor si, si
xor di, di
mov cx, 16000
rep movsd
pop ds
ret
flipd320 ENDP
;procedure flipd240(hm,va,va2:word);
;label gus;
; { This copies 240 columns from vaddr2 to vaddr }
flipd240 PROC FAR PASCAL
.386
push ds
mov ax, [bp+8]
mov es, ax
mov ax, [bp+6]
mov bx,[bp+10]
mov cx,bx
shl bx,4
sub bx,cx
add ax,bx
mov ds, ax
xor si,si
xor di, di
mov ax,200
gus:
mov cx, 60
rep movsd
add di,80
dec ax
jnz gus
pop ds
ret
flipd240 ENDP
;procedure flip50(fromwhere,off1,whereto,off2:word);
;label gus;
; { This copies 240 columns from vaddr2 to vaddr }
flipd50 PROC FAR PASCAL
.386
push ds
mov ax, [bp+8] ;whereto
add ax, [bp+6] ;off2
mov es, ax
mov ax, [bp+12] ;fromwhere
add ax,[bp+10] ;off1
mov ds, ax
xor si,si
xor di, di
mov ax,50
gus2:
mov cx, 60
rep movsd
dec ax
jnz gus2
pop ds
ret
flipd50 ENDP
END