Trailing-Edge
-
PDP-10 Archives
-
bb-j710b-bm_tops20_v41_tools
-
tools/sed/sedaa.mac
There are 2 other files named sedaa.mac in the archive. Click here to see a list.
;THIS IS INCOMPLETE:
; WHAT CAN BE USED TO MAKE UP FOR 12-14 BEING USED FOR CURSOR MVMT?
; CHECK WRAPAROUND, TABS
;NOTE: this is incomplete
TITLE SEDAA - ANN ARBOR TERMINAL DEFINITIONS FOR THE EDITOR
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: .LOAD SEDAA,SED
; .SS SED
SEARCH SEDSYM
IFE TOPS10,<SEARCH MONSYM>
EXTERN CPOPJ,PUTTYP,PUTNUM,PUTSTG,PUTSQ1,TRMNAM
INTERN TERMNL
TERMNL: OANNAB ;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
OANNAB: BYTE (7) 16 ;CURSOR UP
BYTE (7) 12 ; DOWN
BYTE (7) 37 ; RIGHT
BYTE (7) 10 ; LEFT
BYTE (7) 13 ; HOME
0 ;CLEAR TO END OF PAGE
0 ;CLEAR TO END OF LINE
0 ;ROLL UP AND CLEAR LINE
BYTE (7) 12 ;ROLL DOWN AND CLEAR LINE
CPOPJ ;PROTECT ON (CPOPJ IF NONE)
CPOPJ ;PROTECT OFF (CPOPJ IF NONE)
0 ;INSERT LINE (0 IF NONE)
0 ;INSERT SPACE (0 IF NONE)
0 ;DELETE LINE (0 IF NONE)
0 ;DELETE SPACE (0 IF NONE)
BYTE (7) 13,16 ;MOVE TO BOTTOM
BYTE (7) 13,14 ;HOME AND CLEAR PAGE
CPOPJ ;SEQUENCE FOR ABSOLUTE POSITIONING
CPOPJ ;ALGORITHM FOR CURSOR POSITIONING
^D40 ;LINES PER PAGE
^D80 ;CHARACTERS PER LINE
MRK!NRD!LSD ;FLAGS (MARK ON ENTER, NO ROLL DOWN, LF==CD)
CPOPJ ;ROUTINE TO CALL ON ENTRY
CPOPJ ;ROUTINE TO CALL ON EXIT
0 ;NO NULLS NEEDED
IANNAB ;ADDRESS OF INPUT CHARACTER TABLE
"$" ;MARK TO DISPLAY ON ENTER (OMIT IF MRK NOT SET)
;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS
0 ;COMMAND FOR RUBOUT (RESET)
IANNAB: EXP 40, 1, 2, 3, 4, 5, 6, 7
EXP 10,11,50,37,14,15,34,17 ;13==HOME, 16==UP
EXP 20,21,22,23,24,25,26,27
EXP 30,31,32
-7,,ISUBTB ;ESCAPE NEEDS A SUBTABLE (FOR EXAMPLE)
EXP 34,35,36,35 ;37==RIGHT
ISUBTB: 36,,"A" ;ESCAPE A == UP
34,,"B" ;ESCAPE B == DOWN
35,,"C" ;ESCAPE C == RIGHT
10,,"D" ;ESCAPE D == LEFT
33,,"P" ;ESCAPE P == ENTER
37,,"R" ;ESCAPE R == HOME
40,,"Q" ;ESCAPE Q == RECALL
END