|
|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2944 (0xb80)
Types: TextFile
Names: »EDTYPES.SRC«
└─⟦295c4021d⟧ Bits:30008920 MT+ SPP 3/3
└─⟦this⟧ »EDTYPES.SRC«
(* VERSION 0008 *)
(* LAST CHANGE - MARCH 16, 1981 *)
CONST
XINSRT = 0; XADJST = 1; XCHINS= 2;
XSRCHSAME= 3; XPGEFWD = 4; XPGEBACK = 5;
XCBUFF = 6; XSRCH = 7; XRPLCE = 8;
XCUP = 9; XCDOWN = 10; XCRIGHT = 11;
XCLEFT = 12; XINSLINE = 13; XDCHR = 14;
XDLINE = 15; XDTOEOL = 16; XBEGEND = 17;
XTOPBOT = 18; XTAB = 19; XWRDRIGHT = 20;
XWRDLEFT = 21; XSUPERCMD = 22; XDELWORD = 23;
LFTWORD = $01; æAå
END_BEG = $02; æBå
PGEFWD = $03; æCå
RTWORD = $04; æDå
SRCHSAME= $05; æEå
INSRT = $06; æFå
DCHR = $07; æGå
CLEFT = $08; æHå
TAB_CHR = $09; æIå
CDOWN = $0A; æJå
CUP = $0B; æKå
CRIGHT = $0C; æLå
CR = $0D; æM = CARRAIGE RETURNå
INSLINE = $0E; æNå
DELWRD = $0F; æOå
D_TO_EOL= $10; æPå
SUPER = $11; æQå
PGEBACK = $12; æRå
SRCH = $13; æSå
BOT_TOP = $14; æTå
ADJST = $15; æUå
ACCEPT = $16; æVå
CBUFF = $17; æWå
RPLCE = $18; æXå
DLINE = $19; æYå
CHINS = $1A; æZå
ESC = $1B; æESCå
QUIT = $FE; æSPECIAL CHARACTER FOR QUITTINGå
CMDSZ = 23; æUPPER BOUND ON COMMAND ARRAYå
LF = $0A; æLINE FEEDå
CNTRLZ = $1A;
ESCAPE = $1B;
NOMATCH = -10; æOUT OF RANGE OF BUFFER INDICATING NO MATCH å
HALFSCREEN = 11;æUSED IN PAGING BACK AND FORWARD å
STATUSCOL = 0; æSTART POSITION FOR STAT REPORTS å
FIRSTROW = 0; æFIRST ROW OF SCREEN OR BUF å
FIRSTLINE = 0;
STRLEN = 30; æUPPER BOUND ON EDSTRINGå
MAXLNSIZE = 255; (* MAX ALLOWED SIZE OF LINESZ *)
CPMLINESZ = 127;æFOR MT+ FILE NAMEINGå
MAXCH = 79;
TYPE
FILENAME = STRINGÆ127Å; æFOR GETTING FILENAMEå
DIRECTION = (RIGHT, BACKWARD); æDIRECTION TO TRAVEL IN BUFFERå
CURSORPOS = (FIRSTCH,LASTCH,ZEROPOS,LASTPOS,XPOS);
SEARCHKIND = (EQUAL, NOTEQUAL);
EDSTRING = ARRAYÆ1..STRLENÅ OF CHAR;
RWFILE = (RESETT,REWRITTE);
(* FOR DOFILE, OPENING AND CREATING FILES*)
FYLE = FILE; æFOR FILESå
SSTRING = RECORD æUSED FOR SEARCH AND REPLACEå
LEN : BYTE;
DATA : ARRAYÆ1..MAXCHÅ OF CHAR;
END;
STATREC = RECORD
OCCUPIED : BOOLEAN; (* TRUE IF BUF CONTAINS TEXT *)
END;
«eof»