home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / mtrek.shar.Z / mtrek.shar / wrtann.mac < prev    next >
Text File  |  1990-04-02  |  2KB  |  96 lines
  1.     .ENABL    LC
  2.     .TITLE    WRITE
  3.     .IDENT    /MTREK/
  4. ; 
  5. ;    ***  Ann Arbor K4080D Terminal  ***
  6. ;
  7. ;    FORTRAN callable routine to postion the cursor on a crt
  8. ;    terminal and write a string. There is also a routine to
  9. ;    clear the screen.
  10. ; 
  11. ;    Calling sequence:
  12. ; 
  13. ;        CALL WRITE(LINE,ICOL,STRING[,ICNT])
  14. ; 
  15. ;    LINE    Line to position cursor on
  16. ;    ICOL    Column to position cursor on
  17. ;    STRING    String of text to output
  18. ;    ICNT    Optional character count
  19. ;
  20. ;    Calling sequence:
  21. ; 
  22. ;        CALL CLEAR
  23. ; 
  24.     .GLOBL    WRITE,CLEAR
  25.  
  26.     LUN=1            ; LUN FOR QIOS
  27.     OFFSET=37        ; OFFSET FOR CURSOR ADDRESSING
  28.  
  29. WRITE:    MOV    @2(R5),R1    ; GET LINE POSITION
  30.     DEC    R1        ; OFFSET CHORDS
  31.     CLR    R0        ; GET READY TO DIVIDE
  32.     DIV    #20.,R0        ; DIVIDE
  33.     ASH    #5,R0        ; ADJUST UNITS
  34.     BIS    R1,R0        ; PUT IT TOGETHER
  35.     MOVB    R0,LINE        ; STORE IT
  36.     MOV    @4(R5),R1    ; GET COLUMN POSITION
  37.     DEC    R1        ; OFFSET CHORDS
  38.     CLR    R0        ; GET READY TO DIVIDE
  39.     DIV    #10.,R0        ; DIVIDE
  40.     ASH    #4,R0        ; ADJUST UNITS
  41.     BIS    R1,R0        ; PUT IT TOGETHER
  42.     MOVB    R0,COL        ; STORE IT
  43.  
  44.     MOV    6(R5),BUFADR    ; MOVE STRING ADDRESS TO LIST
  45.     CMPB    #4,(R5)        ; CHARACTER COUNT INPUT?
  46.     BEQ    10$        ; BRANCH IF COUNT INPUT
  47.     MOV    #1,BUFARG    ; ONLY ONE ARGUMENT TO FILL
  48.     BR    20$        ; GO DO IT
  49. 10$:    MOV    #2,BUFARG    ; TWO ARGUMENTS TO FILL
  50.     MOV    10(R5),BUFCNT    ; COPY ADDRESS OF COUNT TO LIST
  51. 20$:    MOV    #WRTARG,R5    ; SET UP ARGUMENTS FOR CURSOR
  52.     CALL    FILL        ; AND SEND CURSOR
  53.     MOV    #BUFARG,R5    ; SET UP ARGUMENTS FOR STRING
  54.     TSTB    @2(R5)        ; CHECK FOR ZERO LENGTH STRING
  55.     BEQ    30$        ; BAIL OUT IF ZERO LENGTH
  56.     CALL    FILL        ; AND SEND STRING
  57. 30$:    RETURN            ; AND RETURN
  58. ;
  59. ;    Here is the entry for clear screen
  60. ;
  61. CLEAR:    MOV    #CLRARG,R5    ; SET UP THE ARGUMENTS FOR FILL
  62.     CALL    FILL        ; AND CALL FILL
  63.     RETURN            ; AND RETURN
  64. ;
  65. ;    Here are the argument lists
  66. ;
  67. WRTARG:    .WORD    2        ; NUMBER OF ARGUMENTS TO FILL
  68.     .WORD    WRTSEQ        ; ADDRESS OF CURSOR SEQUENCE
  69.     .WORD    100$        ; CHAR COUNT
  70.     .WORD    0
  71. 100$:    .WORD    WRTNUM
  72.  
  73. BUFARG:    .WORD    0        ; NUMBER OF ARGUMENTS TO FILL
  74. BUFADR:    .WORD    0        ; ADDRESS OF STRING
  75. BUFCNT:    .WORD    0        ; CHAR COUNT
  76.     .WORD    0
  77.  
  78. CLRARG:    .WORD    2        ; NUMBER OF ARGUMENTS TO FILL
  79.     .WORD    CLRSEQ        ; ADDRESS OF CLEAR SCREEN SEQUENCE
  80.     .WORD    200$        ; CHAR COUNT
  81.     .WORD    0
  82. 200$:    .WORD    CLRNUM
  83. ;
  84. ;    Here are the escape sequences
  85. ;
  86.     .NLIST    BIN
  87. CLRSEQ:    .BYTE    14,0,0,0    ; ESCAPE SEQUENCE TO CLEAR SCREEN
  88. CLRNUM=.-CLRSEQ
  89.  
  90. WRTSEQ:    .BYTE    17        ; ESCAPE SEQUENCE FOR CURSOR POSITION
  91. COL:    .BYTE    0        ; COLUMN POSITION
  92. LINE:    .BYTE    0        ; LINE POSITION
  93. WRTNUM=.-WRTSEQ
  94.     .EVEN
  95.     .END
  96.