Upload

FOREST/ROUTINES.ASM

@@ -0,0 +1,40 @@
+          .MODEL  large,PASCAL
+          .CODE
+          .386
+
+          ; dx = Bground seg
+          ;  ax = pos seg
+          ;  si = pos ofs
+          ;  cx = font seg
+          ;  bx = font ofs
+
+Putrouts  PROC FAR
+          PUBLIC Putrouts
+
+          push   ds
+          mov    ds,ax
+          mov    ax,0a000h
+          mov    es,ax
+          mov    fs,cx
+          mov    gs,dx
+
+          mov    dx,237*31
+@a:       lodsw                        ; get byte count
+          or     ax,ax                 ; if 0 then hidden pixel
+          je     @ei                   ; next pixel
+          mov    cx,ax                 ; set loop value
+@c:       lodsw                        ; get destination address
+          mov    di,ax
+          mov    al,byte ptr gs:[di]   ; get bground pixel
+          add    al,byte ptr fs:[bx]   ; add font value to pixel
+          mov    byte ptr es:[di],al   ; store pixel to screen
+          loop   @c
+@ei:
+          inc    bx
+          dec    dx
+          jnz    @a
+          pop    ds
+
+          ret
+Putrouts  ENDP
+          END