Trailing-Edge
-
PDP-10 Archives
-
BB-M836B-BM
-
tools/sed/sedh19.mac
There are 2 other files named sedh19.mac in the archive. Click here to see a list.
TITLE SEDH19 - EDITOR TERMINAL DEFINITIONS FOR THE ZENITH H19
SUBTTL A CHRISTOPHER HALL FECIT
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;LOAD THE EDITOR BY: .COMP SED,SEDH19
; .LOAD/RE SEDH19,SED
; .SS SED
SEARCH SEDSYM
IFE TOPS10,<SEARCH MONSYM>
EXTERN CPOPJ,PUTTYP,PUTSTG,PUTSQ1,PUTNUM,TRMNAM,TYPBUF
EXTERN CHOME,CDOWN,CRIGHT
INTERN TERMNL
;(NO FTFAST HERE)
TERMNL: OTABLE ;ADDRESS OF THE TERMINAL TABLE TO USE
;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS
;FILL IN WITH THE CODES FOR YOUR TERMINAL
OTABLE: BYTE (7) 33,"A" ;CURSOR UP
BYTE (7) 33,"B" ; DOWN
BYTE (7) 33,"C" ; RIGHT
BYTE (7) 33,"D" ; LEFT
BYTE (7) 33,"H" ; HOME
BYTE (7) 33,"J" ;CLEAR TO END OF PAGE
BYTE (7) 33,"K" ;CLEAR TO END OF LINE
BYTE (7) 12 ;ROLL UP AND CLEAR LINE
BYTE (7) 33,"I" ;ROLL DOWN AND CLEAR LINE
BYTE (7) 33,"p" ;PROTECT ON (CPOPJ IF NONE)
BYTE (7) 33,"q" ;PROTECT OFF (CPOPJ IF NONE)
BYTE (7) 33,"L" ;INSERT LINE (0 IF NONE)
BYTE (7) 33,"@"," ",33,"O" ;INSERT SPACE (0 IF NONE)
BYTE (7) 33,"M" ;DELETE LINE (0 IF NONE)
BYTE (7) 33,"N" ;DELETE SPACE (0 IF NONE)
BYTE (7) 33,"Y","7"," " ;MOVE TO BOTTOM
BYTE (7) 33,"E" ;HOME AND CLEAR ENTIRE PAGE
POSCHR ;ROUTINE TO POSITION TO CHARACTER
POSLIN ;ROUTINE TO POSITION TO START OF LINE
^D24 ;LINES PER PAGE
^D80 ;CHARACTERS PER LINE
NPG!TBS ;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
TENTRY ;ROUTINE TO CALL ON ENTRY
TEXIT ;ROUTINE TO CALL ON EXIT
0,,0 ;NUMBER OF NULLS TO OUTPUT,,NULL CHARACTER
ITABLE ;ADDRESS OF INPUT CHARACTER TABLE
;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS
0 ;COMMAND FOR RUBOUT (RESET)
ITABLE: EXP 40, 0, 2, 3, 0, 0, 0, 0 ;NOTHING SPECIAL
EXP 42,11, 0, 0,13,15,25,17
EXP 20, 0,14, 0, 0, 0,16, 0
EXP 30, 0,32
-23,,ISUBTB
EXP 34,35,36,37
;SUBTABLES FOR ESCAPE
ISUBTB: 41,,"P" ;ESC P == INSERT-MODE (BLUE)
37,,"H" ;ESC H == HOME
36,,"A" ;ESC A == UP
34,,"B" ;ESC B == DOWN
35,,"C" ;ESC C == RIGHT
10,,"D" ;ESC D == LEFT
07,,"Q" ;ESC Q == PUT (RED)
01,,"@" ;ESC @ == OPEN SPACES
04,,"L" ;ESC L == INSERT LINES
06,,"M" ;ESC M == DELETE LINES
12,,"J" ;ESC J == ERASE LINE
26,,"R" ;ESC R == PICK (WHITE)
23,,"N" ;ESC N == CLOSE SPACES
SCHSUB,,"S" ;ESC S == LOOK FURTHER (F1)
LNESUB,,"T" ;ESC T == LOOK FURTHER (F2)
PGESUB,,"U" ;ESC U == LOOK FURTHER (F3)
BAKSUB,,"V" ;ESC V == LOOK FURTHER (F4)
FRWSUB,,"W" ;ESC W == LOOK FURTHER (F5)
IAZE19,,"?" ;ESC ? == LOOK FURTHER
IAZE19: 33,,"M" ;ESC ? M == ENTER (ENT)
40,,"n" ;ESC ? N == RECALL (.)
42,,"y" ;ESC ? Y == DEL-CHAR (SDC)
43,,"p" ;ESC ? P == REAL-TAB (0)
44,,"u" ;ESC ? U == MARK (S5)
45,,"q" ;ESC ? Q == LINE (S1)
46,,"r" ;ESC ? R == CASE (S2)
0
SCHSUB: SCHTBL,,33 ;ESC S ESC == LOOK FURTHER
0
SCHTBL: 05,,"V" ;ESC S ESC V == SEARCH-BACK
22,,"W" ;ESC S ESC W == SEARCH-FORWARD
0
LNESUB: LNETBL,,33 ;ESC T ESC == LOOK FURTHER
0
LNETBL: 24,,"W" ;ESC T ESC W == ROLL-FORW-LINES (F2,F5)
27,,"V" ;ESC T ESC V == ROLL-BACK-LINES (F2,F4)
0
PGESUB: PGETBL,,33 ;ESC U ESC == LOOK FURTHER
0
PGETBL: 21,,"V" ;ESC U ESC V == ROLL-BACK-PAGES (F3,F4)
31,,"W" ;ESC U ESC W == ROLL-FORW-PAGES (F3,F5)
0
BAKSUB: BAKTBL,,33 ;ESC V ESC == LOOK FURTHER
0
BAKTBL: 21,,"U" ;ESC V ESC U == ROLL-BACK-PAGES (F4,F3)
27,,"T" ;ESC V ESC T == ROLL-BACK-LINES (F4,F2)
05,,"S" ;ESC V ESC S == SEARCH-BACK (F4,F1)
0
FRWSUB: FRWTBL,,33 ;ESC W ESC == LOOK FURTHER
0
FRWTBL: 22,,"S" ;ESC W ESC S == SEARCH-FORWARD (F5,F1)
24,,"T" ;ESC W ESC T == ROLL-FORW-LINES (F5,F2)
31,,"U" ;ESC W ESC U == ROLL-FORW-PAGES (F5,F3)
0
;ROUTINE CALLED ON ENTRY: SET UP KEYPAD IN APPLICATION MODE
TENTRY: HRROI T1,[BYTE (7) 33,"x","1",33,"Y",70,40,33,"p",0]
IFN TOPS10,<
OUTSTR @T1
>
IFE TOPS10,<
PSOUT
>
HRROI T1,[ASCIZ / SEARCH LINE PAGE BACK FORWARD CLEAR INSERT PUT PICK /]
IFN TOPS10,<
OUTSTR @T1
>
IFE TOPS10,<
PSOUT
>
MOVE T1,[BYTE (7) 33,"=",33,"t",33,"q",33,"H",0]
PUSHJ P,PUTSQ1
JRST PUTTYP
;SUBROUTINE CALLED ON EXIT: RESTORE KEYPAD TO NON-APPLICATION MODE
TEXIT: MOVE T1,[BYTE (7) 33,"Z"]
PUSHJ P,PUTSQ1
JRST PUTTYP
;POSITIONING ALGORITHMS
POSCHR: MOVE T1,[BYTE (7) 33,"Y"]
PUSHJ P,PUTSQ1 ;START IT OFF
MOVEI T1,40(RW) ;GET ROW POSITION
IDPB T1,TY
MOVEI T1,40(CM) ;GET COLUMN POSITION
IDPB T1,TY
POPJ P, ;DONE
POSLIN: MOVE T1,[BYTE (7) 33,"Y"]
PUSHJ P,PUTSQ1 ;START IT OFF
MOVEI T1,40(T4) ;GET ROW POSITION
IDPB T1,TY
MOVEI T1,40 ;MOVE TO COLUMN 0
IDPB T1,TY
POPJ P, ;DONE
END