Trailing-Edge
-
PDP-10 Archives
-
steco_19840320_1er_E35
-
10,5676/teco/source/tecxxx.mac
There are 3 other files named tecxxx.mac in the archive. Click here to see a list.
SUBTTL Introduction
; Copyright (c) 1980 Stevens Institute of Technology, Hoboken, New Jersey
; 07030.
; All rights reserved.
;
; This software is furnished under a license and may be used and copied
; only in accordance with the terms of such license and with the
; inclusion of the above copyright notice. This software or any other
; copies thereof may not be provided or otherwise made available to any
; other person. No title to and ownership of the software is hereby
; transferred.
;
; The information in this software is subject to change without notice
; and should not be construed as a commitment by Stevens Institute of
; Technology.
; Search needed universals
SEARCH TECUNV ; TECO universal file
; Generate the prologue
TECVER==200 ; Major version number
TECMIN==0 ; Minor version number
TECEDT==1000 ; Edit level
TECWHO==0 ; Last editor
PROLOGUE(XXX,<TECO XXX terminal support routines>) ; Generate the TITLE and other stuff
$CODE ; Put into code PSECT
SUBTTL Table of Contents
;+
;.pag.lit
; Table of Contents for TECXXX - XXX terminal support
;
;
; Section Page
; 1. Introduction . . . . . . . . . . . . . . . . . . . . . 1
; 2. Table of Contents. . . . . . . . . . . . . . . . . . . 2
; 3. Revision History . . . . . . . . . . . . . . . . . . . 3
; 4. Macro definitions. . . . . . . . . . . . . . . . . . . 4
; 5. Tables
; 5.1. H19 . . . . . . . . . . . . . . . . . . . . . 5
; 5.2. H19A. . . . . . . . . . . . . . . . . . . . . 6
; 6. Support routines
; 6.1. H19
; 6.1.1. Initialization routine . . . . . . . 7
; 6.1.2. Reset terminal . . . . . . . . . . . 8
; 6.1.3. XY positioning . . . . . . . . . . . 9
; 6.1.4. Delete a line feed . . . . . . . . . 10
; 6.1.5. Delete a vertical tab. . . . . . . . 11
; 6.1.6. Delete a form feed . . . . . . . . . 12
; 6.1.7. Control-U. . . . . . . . . . . . . . 13
; 6.1.8. Insert character . . . . . . . . . . 14
; 6.1.9. Type a character . . . . . . . . . . 15
; 6.1.10. Delete N lines . . . . . . . . . . . 16
; 6.1.11. Insert N lines . . . . . . . . . . . 17
; 6.1.12. Delete a character . . . . . . . . . 18
; 6.1.13. Cost initialization routine. . . . . 19
; 6.1.14. Replacement cost calculation . . . . 20
; 6.1.15. Insert cost calculation. . . . . . . 21
; 6.1.16. Delete cost calculation. . . . . . . 22
; 6.1.17. Move cost calculation. . . . . . . . 23
; 6.1.18. Delete to End of line. . . . . . . . 24
; 6.2. H19A
; 6.2.1. Delete the end of line . . . . . . . 25
; 6.2.2. Initialization routine . . . . . . . 26
; 6.2.3. Reset terminal . . . . . . . . . . . 27
; 6.2.4. XY positioning . . . . . . . . . . . 28
; 6.2.5. Delete a line feed . . . . . . . . . 29
; 6.2.6. Delete a vertical tab. . . . . . . . 30
; 6.2.7. Delete a form feed . . . . . . . . . 31
; 6.2.8. Control-U. . . . . . . . . . . . . . 32
; 6.2.9. Insert character . . . . . . . . . . 33
; 6.3. H1A
; 6.3.1. Type a character . . . . . . . . . . 34
; 6.4. H19A
; 6.4.1. Delete N lines . . . . . . . . . . . 35
; 6.4.2. Insert N lines . . . . . . . . . . . 36
; 6.4.3. Delete a character . . . . . . . . . 37
; 6.4.4. Cost initialization routine. . . . . 38
; 6.4.5. Replacement cost calculation . . . . 39
; 6.4.6. Insert cost calculation. . . . . . . 40
; 6.4.7. Delete cost calculation. . . . . . . 41
; 6.4.8. Insert line cost calculation . . . . 42
; 6.4.9. Delete line cost calculation . . . . 43
; 6.4.10. Move cost calculation. . . . . . . . 44
; 7. Low segment for TECHEA . . . . . . . . . . . . . . . . 45
; 8. End of TECHEA. . . . . . . . . . . . . . . . . . . . . 46
;.end lit.pag
;-
SUBTTL Revision History
COMMENT |
1000 Start of this version
|
SUBTTL Macro definitions
; Macro to define a word of five characters
DEFINE TB(A<.CHNUL>,B<.CHNUL>,C<.CHNUL>,D<.CHNUL>,E<.CHNUL>)
SUBTTL Tables -- XXX
; General XXX terminal support. Play fill in the blank.
CRTINI VXXX
CRTENT INT,<PUSHJ P,XXXINT> ; Initialize the terminal handling
CRTENT WID,^D79 ; 80 by
CRTENT LIN,^D24 ; 25 lines
CRTENT CIN,<PUSHJ P,XXXCIN> ; Cost initialization
CRTENT CRP,<PUSHJ P,XXXCRP> ; Cost of replace character
CRTENT CIC,<PUSHJ P,XXXCIC> ; Cost of insert character
CRTENT CDC,<PUSHJ P,XXXCDC> ; Cost of delete character
CRTENT CIL,<MOVX T1,<<INSVL.($OPICH,CS$OPR)>!<INSVL.(2,CS$CST)>>> ; Cost of insert line
CRTENT CDL,<MOVX T1,<<INSVL.($OPDCH,CS$OPR)>!<INSVL.(2,CS$CST)>>> ; Cost of delete line
CRTENT CPP,<PUSHJ P,XXXCPP> ; Cost of point to point move
CRTENT BCK,<TB(.CHCNH)>
CRTENT SPC,<TB(.CHESC,"C")>
CRTENT DBS,<TB(" ",.CHCNH)>
CRTENT DLF,<PUSHJ P,XXXDLF> ; Delete a line feed
CRTENT DVT,<PUSHJ P,XXXDVT> ; Delete a vertical tab
CRTENT DFF,<PUSHJ P,XXXDFF> ; Delete a form feed
CRTENT CRB,<TB(.CHCNH)>
CRTENT CTU,<PUSHJ P,XXXCTU> ; Routine to do control U processing
CRTENT FIN,<PUSHJ P,XXXFIN>
CRTENT ERS,<TB(.CHESC,"E")>
CRTENT DEL,<PUSHJ P,XXXDEL> ; Routine to delete to the end of a line
CRTENT DSP,.CHSPC
CRTENT INL,<PUSHJ P,XXXINL> ; Routine to insert lines
CRTENT DLL,<PUSHJ P,XXXDLL> ; Routine to delete lines
CRTENT TCH,<PUSHJ P,XXXTCH> ; Type a character
CRTENT DCH,<PUSHJ P,XXXDCH> ; Routine to delete a character
CRTENT ICH,<PUSHJ P,XXXICH> ; Routine to insert a character
CRTENT XYP,<PUSHJ P,XXXXY> ; Routine to do XY positioning
CRTENT CDE,<MOVEI T1,2> ; Cost of 2
CRTEND
SUBTTL Support routines -- XXX -- Initialization routine
;+
;.HL1 XXXINT
;This routine will initialize the terminal handling routines for the
;specific terminal. It will also initialize the XXX terminal
;.literal
;
; Usage:
; MOVEI CRT,CRT.block.address
; XCT $CRINT(CRT)
; (Return)
;
;.end literal
;-
XXXINT: SETZM INSFLG ; Flag not in insert mode
MOVEI T1,[$STRING(<^A[?2hOx1>)] ; Get the string to put terminal
; in VT-52 mode, not insert
PJRST SC$STR ; And output it
SUBTTL Support routines -- XXX -- Reset terminal
;+
;.HL1 XXXFIN
;This routine will reset the terminal to set up for exiting from
;TECO.
;.literal
;
; Usage:
; MOVEI CRT,CRT.block.address
; XCT $CRFIN(CRT)
; (Return)
;
;.end literal
;-
XXXFIN: SKIPN INSFLG ; In insert mode?
POPJ P, ; No, just return
SETZM INSFLG ; Flag not in insert mode
MOVX T1,<BYTE(7).CHESC,"O"> ; Get string to take out of insert mode
PJRST SC$STR ; And output it
SUBTTL Support routines -- XXX -- XY positioning
;+
;.HL XXXXY
;This routine will do the positioning for the Heathkit XXX terminal.
;.literal
;
; Usage:
; MOVE X,X.postion
; MOVE Y,Y.postion
; MOVE CRT,CRT.block.index
; PUSHJ P,@$CRXYP(CRT)
; (Return)
;
;.end literal
;-
XXXXY: $SAVE <X,Y> ; Save the args
DMOVE T1,CURPOS ; Get the current position
DMOVEM X,CURPOS ; Save the current position
SUB T1+$OFSX,X ; Determine if it is an up/down/right/left by one
SUB T1+$OFSY,Y ; movement
SKIPE T1+$OFSX ; Is the X zero ?
SKIPN T1+$OFSY ; Or the Y ?
SKIPA ; Yes - Handle differently
JRST XXXXYA ; No - Handle normally
SKIPN T1+$OFSY ; No change in the Y offset ?
JUMPE X,XXXXYC ; Yes - Only need a CR
MOVM T3,T1+$OFSX ; Get the X offset
SOJE T3,XXXXYX ; Just X by one
MOVM T3,T1+$OFSY ; Get the Y offset
SOJE T3,XXXXYY ; Just the Y by one
JUMPE T1+$OFSX,XXXXYA ; If X change is zero, must do full address
TXNE X,7 ; Heading for a tab stop?
JRST XXXXYA ; No, must do full address
JUMPG T1,XXXXYA ; Going forward?
CAXGE T1,-^D8 ; Yes, is it the next tab stop?
JRST XXXXYA ; No, do the full address
$SAVE <CH> ; Yes, save CH
MOVX CH,.CHTAB ; Get a tab
PJRST SC$IMG ; And type it
XXXXYA: SKIPN X ; Is this non-zero ?
JUMPE Y,XXXXYH ; Just home it
ADDX X," " ; Convert to a position
ADDX Y," " ; Convert to a position
MOVEI T1,[$STRING(<Y^8/Y/^8/X/>)]
PJRST SC$STR ; Output the string
; Here to just home the cursor
XXXXYH: MOVX T1,<BYTE (7).CHESC,"H"> ; Get the home string
PJRST SC$STR ; Send it
; Here to just output a CR
XXXXYC: $SAVE <CH> ; Save current character
MOVX CH,.CHCRT ; Just output a CR
PJRST SC$IMG ; . . .
; Here to move in the X direction by one
XXXXYX: SKIPGE T1+$OFSX ; Is this negative ?
SKIPA T1,[BYTE (7).CHESC,"C"] ; No - To the right
MOVX T1,<BYTE(7).CHCNH> ; Yes, use a backspace
PJRST SC$STR ; Output the string
; Here to move in the Y direction by one
XXXXYY: CAXN Y,^D25-1 ; Going to the 25th line?
JRST XXXXYA ; Yes, have to use the direct addressing
SKIPL T1+$OFSY ; Is this negative ?
SKIPA T1,[BYTE (7).CHESC,"A"] ; No - Move up
MOVX T1,<BYTE(7).CHLFD> ; Yes, move down with a line feed
PJRST SC$STR ; Output the string
SUBTTL Support routines -- XXX -- Delete a line feed
;+
;.HL1 XXXDLF
;This routine will send the character string to delete a line feed.
;.literal
;
; Usage:
; MOVE CRT,CRT.block.address
; PUSHJ P,@$CRDLF(CRT)
; (Return)
;.end literal
;-
XXXDLF: MOVX T1,<BYTE (7).CHESC,"A"> ; Get the string
PJRST SC$STR ; And output it
SUBTTL Support routines -- XXX -- Delete a vertical tab
;+
;.HL1 XXXDVT
;This routine will send the character string to delete a vertical tab.
;.literal
;
; Usage:
; MOVE CRT,CRT.block.address
; PUSHJ P,@$CRDVT(CRT)
; (Return)
;
;.end literal
;-
XXXDVT: $SAVE <P1> ; Save P1
MOVX P1,4 ; Get the number of times to repeat
XXXCMN: MOVX T1,<BYTE (7).CHESC,"A"> ; Get the string
PUSHJ P,SC$STR ; Output the string
SOJG P1,XXXCMN ; Loop until done
POPJ P, ; Return to the caller
SUBTTL Support routines -- XXX -- Delete a form feed
;+
;.HL1 XXXDFF
;This routine will send the character string to delete a form feed.
;.literal
;
; Usage:
; MOVE CRT,CRT.block.address
; PUSHJ P,$CRDFF(CRT)
; (Return)
;
;.end literal
;-
XXXDFF: $SAVE <P1> ; Save P1
MOVX P1,10 ; Get the number of times to repeat
PJRST XXXCMN ; Go to the common routine
SUBTTL Support routines -- XXX -- Control-U
;+
;.HL1 XXXCTU
;This routine will process the control U in the command parser. It
;may be called without CRT being set up.
;.literal
;
; Usage:
; MOVE CRT,CRT.block.address
; PUSHJ P,@$CRCTU(CRT)
; (Return)
;
;.end literal
;-
XXXCTU: MOVX T1,<BYTE(7).CHESC,"l"> ; Get the characters
PUSHJ P,SC$STR ; Output them
MOVX CH,.CHCRT ; And the free carriage return
PJRST T$OCHR ; Output it
SUBTTL Support routines -- XXX -- Insert character
;+
;.HL XXXICH
;This routine will cause a character to be inserted. It is called
;with the character. It is assumed that the positioning has been done
;before this routine is called.
;.literal
;
; Usage:
; MOVX CH,Character
; MOVEI CRT,CRT.block.address
; XCT $CRICH(CRT)
;
;.end literal
;-
XXXICH: SKIPE INSFLG ; In insert mode ?
PJRST SC$CHR ; Yes, then just type it
PUSH P,T1 ; Save T1
MOVX T1,<BYTE (7).CHESC,"@"> ; Enter insert mode string
PUSHJ P,SC$STR ; Type the string
POP P,T1 ; Restore T1
SETOM INSFLG ; Flag we are now in insert mode
PJRST SC$CHR ; Type the character
SUBTTL Support routines -- XXX -- Type a character
;+
;.HL1 XXXTCH
;This routine will type a character on the terminal. It will first check
;to see if the terminal is in insert character mode and take it out if it
;is in insert character mode.
;.literal
;
; Usage:
; MOVX CH,Character
; MOVEI CRT,CRT.block.address
; XCT $CRTCH(CRT)
; (Return)
;
;.end literal
;-
XXXTCH: SKIPN INSFLG ; In insert character mode ?
PJRST SC$CHR ; No - Type the character
PUSH P,T1 ; Save T1
MOVX T1,<BYTE (7).CHESC,"O"> ; Get the string
PUSHJ P,SC$STR ; Type the string
POP P,T1 ; And return
SETZM INSFLG ; Not in insert mode now
PJRST SC$CHR ; Type the character
SUBTTL Support routines -- XXX -- Delete N lines
;+
;.HL1 XXXDLL
;This routine will cause N lines to be deleted from the screen. It is
;called with a repeat count.
;.literal
;
; Usage:
; MOVEI T1,Repeat.count
; MOVEI CRT,CRT.block.address
; XCT $CRDLL(CRT)
; (Return)
;
;.end literal
;-
XXXDLL: $SAVE <P1> ; Save P1
MOVE P1,T1 ; Copy the repeat count
XXXDL0: MOVX T1,<BYTE (7).CHESC,"M"> ; Get the text to send
PUSHJ P,SC$STR ; Output the string
SOJG P1,XXXDL0 ; Loop for all the lines
POPJ P, ; Return
SUBTTL Support routines -- XXX -- Insert N lines
;+
;.HL1 XXXINL
;This routine will cause N lines to be inserted on the screen. It is
;called with a repeat count.
;.literal
;
; Usage:
; MOVEI T1,Repeat.count
; MOVEI CRT,CRT.block.address
; XCT $CRINL(CRT)
; (Return)
;
;.end literal
;-
XXXINL: $SAVE <P1> ; Save P1
MOVE P1,T1 ; Copy the count
XXXIN0: MOVX T1,<BYTE (7).CHESC,"L"> ; Get the text to send
PUSHJ P,SC$STR ; Output the string
SOJG P1,XXXIN0 ; Loop for all the lines
POPJ P, ; Return to the caller
SUBTTL Support routines -- XXX -- Delete a character
;+
;.HL1 XXXDCH
;This routine will cause n characters to be deleted from the screen.
;It is assumed that all cursor positioning has been done before this
;routine is called.
;.literal
;
; Usage:
; MOVX T1,Number.of.character.to.delete
; MOVEI CRT,CRT.block.address
; XCT $CRDCH(CRT)
; (Return)
;
;.end literal
;-
XXXDCH: $SAVE <P1> ; Save P1
MOVE P1,T1 ; Copy the value
XXXCI0: MOVX T1,<BYTE (7).CHESC,"N"> ; Get the string to delete a char
PUSHJ P,SC$STR ; Type it
SOJG P1,XXXCI0 ; Loop back
POPJ P, ; Return to the caller
SUBTTL Support routines -- XXX -- Cost initialization routine
;+
;.hl 1 XXXCIN
; This routine will return the initial cost word for the character
;by character comparison of a line.
;.b.lit
;
; Usage:
; MOVE CRT,CRTTYP
; PUSHJ P,@$CRCIN(CRT) or XCT $CRCIN(CRT)
; (return, first array element in T1)
;
;.end literal
;-
CS$INS==1 ; Term dependent info - terminal in insert mode
XXXCIN: MOVX T1,<INSVL.(0,CS$DEP)>!<INSVL.($OPACH,CS$OPR)>
SKIPE INSFLG ; In insert mode?
MOVX T1,<INSVL.(CS$INS,CS$DEP)>!<INSVL.($OPACH,CS$OPR)>
POPJ P, ; Return the cost word
SUBTTL Support routines -- XXX -- Replacement cost calculation
;+
;.hl 1 XXXCRP
; This routine will return the cost of replacing a character in the
;line.
;.b.lit
;
; Usage:
; MOVE T1,CST entry
; MOVE X,[-n,,Column]
; MOVE Y,[-n,,Row]
; MOVE CRT,CRTTYP
; XCT $CRCRP(CRT)
; (return, T1=CST entry
;
;.end literal
;-
XXXCRP: MOVE T2,T1 ; Copy the old word
MOVX T1,<<INSVL.($OPRCH,CS$OPR)>!<INSVL.(1,CS$CST)>> ; Get the operation
TXNN T2,<INSVL.(CS$INS,CS$DEP)> ; Check if in insert mode
POPJ P, ; No, return now
STORI. 3,T2,CSTCST,+T1 ; Store the cost if we are coming from insert mode
POPJ P, ; And return
SUBTTL Support routines -- XXX -- Insert cost calculation
;+
;.hl 1 XXXCIC
; This routine will return the cost of inserting a character in the
;line.
;.b.lit
;
; Usage:
; MOVE T1,CST entry
; MOVE X,[-n,,Column]
; MOVE Y,[-n,,Row]
; MOVE CRT,CRTTYP
; XCT $CRCIC(CRT)
; (return, T1=CST entry
;
;.end literal
;-
XXXCIC: MOVE T2,T1 ; Get a copy of the old entry
MOVX T1,<<INSVL.(CS$INS,CS$DEP)>!<INSVL.($OPICH,CS$OPR)>!<INSVL.(1,CS$CST)>>
TXNE T2,<INSVL.(CS$INS,CS$DEP)> ; Already in insert mode?
POPJ P, ; Yes, return
STORI. 3,T2,CSTCST,+T1 ; Store the cost if we must put into insert mode
POPJ P, ; And return
SUBTTL Support routines -- XXX -- Delete cost calculation
;+
;.hl 1 XXXCDC
; This routine will return the cost of deleting a character in the
;line.
;.b.lit
;
; Usage:
; MOVE T1,CST entry
; MOVE X,[-n,,Column]
; MOVE Y,[-n,,Row]
; MOVE CRT,CRTTYP
; XCT $CRCDC(CRT)
; (return, T1=CST entry
;
;.end literal
;-
XXXCDC: ANDX T1,CS$DEP ; Keep only the dependant portion
TXO T1,<<INSVL.($OPDCH,CS$OPR)>!<INSVL.(2,CS$CST)>> ; Store the operation
POPJ P, ; And return
SUBTTL Support routines -- XXX -- Move cost calculation
;+
;.hl 1 XXXCPP
; This routine will return the cost of moving the cursor from
;one point to another.
;.b.lit
;
; Usage:
; MOVE T1,[XWD X pos,Y pos] ; Source position
; MOVE X,[-n,,Column]
; MOVE Y,[-n,,Row]
; MOVE CRT,CRTTYP
; XCT $CRCPP(CRT)
; (return, T1= cost in characters)
;
;.end literal
;-
XXXCPP: MOVE T3,T2 ; Get a copy of where we are moving to
XOR T3,T1 ; Xor together
JUMPE T3,.RET0 ; Return a zero if not moving
TXNN T3,LH.ALF ; Same X position line ?
JRST XXXCPY ; Yes - Check more
TXNN T3,RH.ALF ; Same Y position ?
JRST XXXCPX ; Yes - Check more
JUMPE T2,.RET2 ; If moving home return cost of two
XXXCPA: MOVX T1,4 ; Have to type four characters
POPJ P, ; Return
; Here if possible same column movement
XXXCPY: MOVEI T2,(T2) ; Get just the Y position
SUBI T2,(T1) ; Determine if just one line movement
MOVM T1,T2 ; . . .
SOJG T1,XXXCPA ; More than one - use four
JUMPL T2,.RET2 ; If less than zero return two
JRST .RET1 ; Else return one
; Here if possible same line movement
XXXCPX: HLRZ T2,T2 ; Get just the X position
JUMPE T2,.RET1 ; If moving to the beginning of the line
; then return one
HLRZ T1,T1 ; See if moving only one position
SUBI T1,T2 ; . . .
MOVM T2,T1 ; Get the magntude
SOJG T2,XXXCPA ; If more than one - return four
JUMPL T1,.RET1 ; If backing up then only one
JRST .RET2 ; Else return two
SUBTTL Support routines -- XXX -- Delete to End of line
;+
;.hl1 XXXDEL
;This routine will delete to the end of the line.
;.literal
;
; Usage:
; MOVEI T1,# of characters to delete
; XCT $CRDEL(CRT)
;
;.end literal
;-
XXXDEL: MOVX T1,<BYTE (7) .CHESC,"K">
PJRST SC$STR ; Print out the string
SUBTTL Low segment for TECXXX
$IMPURE
XXXBEG:!
INSFLG: BLOCK 1 ; Flag whether we are in insert mode (0 if not)
LOWVER(XXX,<.-XXXBEG>) ; Define the version number
SUBTTL End of TECXXX
END ; End of TECXXX