home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 08_09 / fortran / putcur.asm < prev    next >
Encoding:
Assembly Source File  |  1988-05-19  |  1.2 KB  |  43 lines
  1. ;   CURSOR-GESTEUERTE EINGABEN FÜR FORTRAN77
  2. ;
  3. ;   FORTRAN: CALL PUTCUR(Zeile,Spalte)
  4. ;
  5. ;   (C) 1988 JÜRGEN BANDT & PASCAL Int.
  6. ;*******************************************
  7.  
  8. DATA    SEGMENT PUBLIC 'DATA'
  9. DATA    ENDS
  10.  
  11. DGROUP  GROUP DATA
  12.  
  13. CODE    SEGMENT 'CODE'
  14.  
  15.         ASSUME CS:CODE, DS:DGROUP, SS:DGROUP
  16.  
  17. PUBLIC  putcur
  18. putcur  PROC far
  19.  
  20.         PUSH bp           ;Rücksprung sichern
  21.  
  22.         MOV  bp,sp        ;Stapelzeiger wird Basiszeiger
  23.         MOV  es,[bp+12]   ;Segmentaddresse und
  24.         MOV  bx,[bp+10]   ;Offset für Zeile
  25.         MOV  dh,es:[bx]   ;Zeile einlesen und
  26.         DEC  dh           ;um 1 herabsetzen
  27.  
  28.         MOV  es,[bp+8]    ;Segmentaddresse und
  29.         MOV  bx,[bp+6]    ;Offset für Spalte
  30.         MOV  dL,es:[bx]   ;Spalte einlesen und
  31.         DEC  dL           ;um 1 herabsetzen
  32.         XOR  bh,bh        ;Bildschirmseite = 0
  33.         MOV  ah,2         ;Cursor positionieren
  34.         INT  10h          ;BIOS-Interrupt
  35.  
  36.         POP  bp           ;Rücksprungaddresse zurückholen
  37.         RET  8            ;Zurück zum Hauptprogramm und
  38.                           ;Stack korrigieren
  39. putcur  ENDP
  40. CODE    ENDS
  41.  
  42. END
  43.