home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 08_09 / fortran / clrscr.asm next >
Encoding:
Assembly Source File  |  1988-05-19  |  887 b   |  38 lines
  1. ;   CURSOR-GESTEUERTE EINGABEN FÜR FORTRAN77
  2. ;
  3. ;   FORTRAN: CALL CLRSCR
  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  clrscr
  18. clrscr  PROC far
  19.  
  20.         MOV  ah,6    ;Bildschirm scrollen
  21.         MOV  al,0    ;Anzahl Zeilen
  22.         XOR  cx,cx   ;Zeile,Spalte links oben
  23.         MOV  dh,24   ;Zeile rechts unten
  24.         MOV  dl,79   ;Spalte rechts unten
  25.         MOV  bh,7    ;Attribut
  26.         INT  10h     ;BIOS-Interrupt
  27.         MOV  ah,2    ;Cursor positionieren
  28.         XOR  bh,bh   ;Bildschirmseite = 0
  29.         MOV  dx,0    ;Zeile,Spalte links oben
  30.         INT  10H     ;BIOS-Interrupt
  31.  
  32.         RET          ;Zurück zum Hauptprogramm
  33.  
  34. clrscr  ENDP
  35. CODE    ENDS
  36.  
  37. END
  38.