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/TUNNELI/ROUTINES.ASM
+++ b/TUNNELI/ROUTINES.ASM
@ -0,0 +1,69 @@
+          .MODEL  large,PASCAL
+          .CODE
+          .386
+
+oldpos    dw     7000 dup (0)
+rows      dw     210 dup(0)
+op        dw     0
+
+rowinit   proc   far
+          PUBLIC rowinit
+          mov    cx,200
+          mov    ax,0
+          mov    bx,0
+@ri:      mov    cs:rows[bx],ax
+          add    ax,320
+          add    bx,2
+          loop   @ri
+          ret
+rowinit   endp
+
+
+init      proc   far
+          PUBLIC init
+          mov    word ptr cs:op,0
+          ret
+init      endp
+
+Putrouts  PROC FAR
+          PUBLIC Putrouts
+          push   ds
+          mov    ds,ax
+
+          mov    ax,0a000h
+          mov    es,ax
+
+;          mov    byte ptr cs:[@c+3],cl
+          mov    word ptr cs:[@yad+1],bx
+
+          mov    ax,cs:Op
+          mov    cx,64
+@dr:
+          mov    bx,ax
+          mov    di,word ptr cs:oldpos[bx]
+          mov    byte ptr es:[di],0
+
+@yad:     mov    bx,1234                 ; absolute change, Y base of circle
+          add    bx,word ptr ds:[si+2]   ; add y value
+          cmp    bx,199
+          ja     @yli
+          mov    di,word ptr ds:[si]   ; { get x value }
+          add    di,dx
+          cmp    di,319
+          ja     @yli
+          add    bx,bx
+          add    di,word ptr cs:rows[bx]
+@c:       mov    byte ptr es:[di],15
+
+@yli:     mov    bx,ax
+          mov    word ptr cs:oldpos[bx],di
+          add    ax,2
+
+          add    si,4
+          loop   @dr
+          mov    cs:Op,ax
+          pop    ds
+          ret
+Putrouts  ENDP
+
+end