Upload

2017-09-24 01:45:36 +02:00 · 2017-09-24 01:45:36 +02:00 · 43352ff262
commit 43352ff262
1291 changed files with 220976 additions and 0 deletions
--- a/WATER/ROUTINES.ASM
+++ b/WATER/ROUTINES.ASM
@ -0,0 +1,41 @@
+          .MODEL  large,PASCAL
+          .CODE
+          .386
+
+          ;  dx = Bground seg
+          ;  ax = pos seg
+          ;  si = pos ofs
+          ;  cx = font seg
+          ;  bx = font ofs
+          ;  Front scroll
+
+Putrouts1 PROC FAR
+          PUBLIC Putrouts1
+          push  ds
+          mov   ds,ax
+          mov   ax,0a000h
+          mov   es,ax
+          mov   fs,cx
+          mov   gs,dx
+
+          mov   dx,158*34
+@a1:      lodsw
+          or    ax,ax
+          je    @no1
+          mov   cx,ax
+@b1:      lodsw
+          mov   di,ax
+          mov   al,byte ptr fs:[bx]
+          or    al,al
+          jne   @y
+          mov   al,byte ptr gs:[di]
+@y:       mov   byte ptr es:[di],al
+          loop  @b1
+@no1:     inc   bx
+          dec   dx
+          jnz   @a1
+
+          pop   ds
+          ret
+Putrouts1 ENDP
+          END