Usenet 1994 January

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume1 / 8711 / microemacs-3.9 / 14 < prev next >

Wrap

Text File | 1987-11-20 | 41.3 KB | 986 lines

Article 91 of comp.sources.misc: Path: tut!osu-cis!cbosgd!mandrill!hal!ncoast!allbery From: nwd@j.cc.purdue.edu (Daniel Lawrence) Newsgroups: comp.sources.misc Subject: MicroEmacs 3.9 (Part 14 of 16) Message-ID: <5690@ncoast.UUCP> Date: 17 Nov 87 02:36:14 GMT Sender: allbery@ncoast.UUCP Lines: 971 Approved: allbery@ncoast.UUCP X-Archive: comp.sources.misc/microemacs-3.9/13 # This is a shar archive. # Remove everything above this line. # Run the file through sh, not csh. # (type `sh mes.14') # If you do not see the message # `mes.14 completed!' # then the file was incomplete. echo extracting - z309.c sed 's/^X//' > z309.c << 'FRIDAY_NIGHT' X/* X * The routines in this file provide support for the Zenith Z-100 PC X * family. It goes directly to the graphics RAM to do screen output. X * It compiles into nothing if not a Zenith driver. X */ X X#define termdef 1 /* don't define "term" external */ X X#include <stdio.h> X#include "estruct.h" X#include "edef.h" X X#if Z309 X X/* set NROW to 25 for 25-line interlaced mode */ X#define NROW 50 /* Screen size. */ X#define NCOL 80 /* Edit if you want to. */ X#define MARGIN 8 /* size of minimim margin and */ X#define SCRSIZ 64 /* scroll size for extended lines */ X#define NPAUSE 200 /* # times thru update to pause */ X#define BEL 0x07 /* BEL character. */ X#define ESC 0x1B /* ESC character. */ X#define SPACE 32 /* space character */ X X#define SCADC 0xb8000000L /* CGA address of screen RAM */ X#define SCADM 0xb0000000L /* MONO address of screen RAM */ X X#define CDMONO 0 /* monochrome text card */ X#define CDCGA50 1 /* 50-line color graphics card */ X#define CDCGI25 2 /* 25-line interlaced CGA text */ X#define CDCGA25 3 /* 25-line color graphics card */ X#define CDSENSE 9 /* detect the card type */ X Xint dtype = CDCGA50; /* current display type */ Xlong scadd; /* address of screen ram */ Xint *scptr[NROW]; /* pointer to screen lines */ Xint sline[NCOL]; /* screen line image */ Xextern union REGS rg; /* cpu register for use of DOS calls */ X Xextern int ttopen(); /* Forward references. */ Xextern int ttgetc(); Xextern int ttputc(); Xextern int ttflush(); Xextern int ttclose(); Xextern int z309move(); Xextern int z309eeol(); Xextern int z309eeop(); Xextern int z309beep(); Xextern int z309open(); Xextern int z309rev(); Xextern int z309cres(); Xextern int z309close(); Xextern int z309putc(); Xextern int z309kopen(); Xextern int z309kclose(); X X#if COLOR Xextern int z309fcol(); Xextern int z309bcol(); X Xint cfcolor = -1; /* current forground color */ Xint cbcolor = -1; /* current background color */ Xint ctrans[] = /* ansi to z309 color translation table */ X {0, 4, 2, 6, 1, 5, 3, 7}; X#endif X X/* X * Standard terminal interface dispatch table. Most of the fields point into X * "termio" code. X */ XTERM term = { X NROW-1, X NROW-1, X NCOL, X NCOL, X MARGIN, X SCRSIZ, X NPAUSE, X z309open, X z309close, X z309kopen, X z309kclose, X ttgetc, X z309putc, X ttflush, X z309move, X z309eeol, X z309eeop, X z309beep, X z309rev, X z309cres X#if COLOR X , z309fcol, X z309bcol X#endif X}; X Xextern union REGS rg; X X#if COLOR Xz309fcol(color) /* set the current output color */ X Xint color; /* color to set */ X X{ X cfcolor = ctrans[color]; X} X Xz309bcol(color) /* set the current background color */ X Xint color; /* color to set */ X X{ X cbcolor = ctrans[color]; X} X#endif Xz309move(row, col) X{ X rg.h.ah = 2; /* set cursor position function code */ X rg.h.dl = col; X rg.h.dh = row; X rg.h.bh = 0; /* set screen page number */ X int86(0x10, &rg, &rg); X} X Xz309eeol() /* erase to the end of the line */ X X{ X int attr; /* attribute byte mask to place in RAM */ X int *lnptr; /* pointer to the destination line */ X int i; X int ccol; /* current column cursor lives */ X int crow; /* row */ X X /* find the current cursor position */ X rg.h.ah = 3; /* read cursor position function code */ X rg.h.bh = 0; /* current video page */ X int86(0x10, &rg, &rg); X ccol = rg.h.dl; /* record current column */ X crow = rg.h.dh; /* and row */ X X /* build the attribute byte and setup the screen pointer */ X#if COLOR X if (dtype != CDMONO) X attr = (((cbcolor & 15) << 4) | (cfcolor & 15)) << 8; X else X attr = 0x0700; X#else X attr = 0x0700; X#endif X lnptr = &sline[0]; X for (i=0; i < term.t_ncol; i++) X *lnptr++ = SPACE | attr; X X#if 0 /* Heath/Zenith builds flicker-less CGAs */ X if (flickcode) { X /* wait for vertical retrace to be off */ X while ((inp(0x3da) & 8)) X ; X X /* and to be back on */ X while ((inp(0x3da) & 8) == 0) X ; X } X#endif X X /* and send the string out */ X movmem(&sline[0], scptr[crow]+ccol, (term.t_ncol-ccol)*2); X X} X Xz309putc(ch) /* put a character at the current position in the X current colors */ X Xint ch; X X{ X rg.h.ah = 14; /* write char to screen with current attrs */ X rg.h.al = ch; X#if COLOR X if (dtype != CDMONO) X rg.h.bl = cfcolor; X else X rg.h.bl = 0x07; X#else X rg.h.bl = 0x07; X#endif X int86(0x10, &rg, &rg); X} X Xz309eeop() X{ X int attr; /* attribute to fill screen with */ X X rg.h.ah = 6; /* scroll page up function code */ X rg.h.al = 0; /* # lines to scroll (clear it) */ X rg.x.cx = 0; /* upper left corner of scroll */ X/*HERE*/ rg.x.dx = 0x184f; /* lower right corner of scroll */ X#if COLOR X if (dtype != CDMONO) X attr = ((ctrans[gbcolor] & 15) << 4) | (ctrans[gfcolor] & 15); X else X attr = 0; X#else X attr = 0; X#endif X rg.h.bh = attr; X int86(0x10, &rg, &rg); X} X Xz309rev(state) /* change reverse video state */ X Xint state; /* TRUE = reverse, FALSE = normal */ X X{ X /* This never gets used under the z309-PC driver */ X} X Xz309cres(res) /* change screen resolution */ X Xchar *res; /* resolution to change to */ X X{ X if (strcmp(res, "CGA50") == 0) { X scinit(CDCGA50); X return(TRUE); X } else if (strcmp(res, "MONO") == 0) { X scinit(CDMONO); X return(TRUE); X } else X return(FALSE); X} X Xz309beep() X{ X#if MWC86 X putcnb(BEL); X#else X bdos(6, BEL, 0); X#endif X} X Xz309open() X{ X scinit(CDSENSE); X revexist = TRUE; X ttopen(); X} X Xz309close() X X{ X rg.h.ah = 101; X rg.h.al = 1; /* 25-line interlace mode */ X int86(0x10, &rg, &rg); X#if COLOR X z309fcol(7); X z309bcol(0); X#endif X ttclose(); X} X Xz309kopen() /* open the keyboard */ X X{ X} X Xz309kclose() /* close the keyboard */ X X{ X} X Xscinit(type) /* initialize the screen head pointers */ X Xint type; /* type of adapter to init for */ X X{ X union { X long laddr; /* long form of address */ X int *paddr; /* pointer form of address */ X } addr; X int i; X X /* if asked...find out what display is connected */ X int86(0x11, &rg, &rg); X dtype = CDCGA50; X scadd = SCADC; X strcpy(sres, "CGA50"); X if ((((rg.x.ax >> 4) & 11) == 3) || type == CDMONO) { X strcpy(sres, "MONO"); X dtype = CDMONO; X scadd = SCADM; X } X else { X rg.h.ah = 101; X/* set al = 1 for 25-line interlace mode */ X rg.h.al = 2; /* 50-line interlace mode */ X int86(0x10, &rg, &rg); X } X X /* initialize the screen pointer array */ X for (i = 0; i < NROW; i++) { X addr.laddr = scadd + (long)(NCOL * i * 2); X scptr[i] = addr.paddr; X } X} X Xscwrite(row, outstr, forg, bacg) /* write a line out*/ X Xint row; /* row of screen to place outstr on */ Xchar *outstr; /* string to write out (must be term.t_ncol long) */ Xint forg; /* forground color of string to write */ Xint bacg; /* background color */ X X{ X int attr; /* attribute byte mask to place in RAM */ X int *lnptr; /* pointer to the destination line */ X int i; X X /* build the attribute byte and setup the screen pointer */ X#if COLOR X if (dtype != CDMONO) X attr = (((ctrans[bacg] & 15) << 4) | (ctrans[forg] & 15)) << 8; X else X attr = (((bacg & 15) << 4) | (forg & 15)) << 8; X#else X attr = (((bacg & 15) << 4) | (forg & 15)) << 8; X#endif X lnptr = &sline[0]; X for (i=0; i<term.t_ncol; i++) X *lnptr++ = (outstr[i] & 255) | attr; X X#if 0 /* Heath/Zenith builds flicker-less CGAs */ X if (flickcode) { X /* wait for vertical retrace to be off */ X while ((inp(0x3da) & 8)) X ; X X /* and to be back on */ X while ((inp(0x3da) & 8) == 0) X ; X } X#endif X X /* and send the string out */ X movmem(&sline[0], scptr[row],term.t_ncol*2); X} X X#if FLABEL Xfnclabel(f, n) /* label a function key */ X Xint f,n; /* default flag, numeric argument [unused] */ X X{ X /* on machines with no function keys...don't bother */ X return(TRUE); X} X#endif X#else Xz309hello() X{ X} X#endif FRIDAY_NIGHT echo extracting - makefile.mwc sed 's/^X//' > makefile.mwc << 'FRIDAY_NIGHT' X# X# Makefile for MicroEMACS 3.9 on the Atari ST using Mark Williams C X# XSRC=. XCC=cc XCFLAGS=-I. -A X XOBJS= basic.o bind.o buffer.o crypt.o display.o eval.o exec.o file.o\ X fileio.o input.o isearch.o line.o main.o random.o region.o search.o\ X spawn.o st520.o termio.o word.o window.o X Xemacs.prg: $(OBJS) X $(CC) -o emacs.prg $(OBJS) X Xbasic.o: $(SRC)\basic.c ebind.h epath.h efunc.h edef.h estruct.h Xbind.o: $(SRC)\bind.c ebind.h epath.h efunc.h edef.h estruct.h Xbuffer.o: $(SRC)\buffer.c ebind.h epath.h efunc.h edef.h estruct.h Xcrypt.o: $(SRC)\crypt.c ebind.h epath.h efunc.h edef.h estruct.h Xdisplay.o: $(SRC)\display.c ebind.h epath.h efunc.h edef.h estruct.h Xeval.o: $(SRC)\eval.c ebind.h epath.h efunc.h edef.h estruct.h evar.h Xexec.o: $(SRC)\exec.c ebind.h epath.h efunc.h edef.h estruct.h Xfile.o: $(SRC)\file.c ebind.h epath.h efunc.h edef.h estruct.h Xfileio.o: $(SRC)\fileio.c ebind.h epath.h efunc.h edef.h estruct.h Xinput.o: $(SRC)\input.c ebind.h epath.h efunc.h edef.h estruct.h Xisearch.o: $(SRC)\isearch.c ebind.h epath.h efunc.h edef.h estruct.h Xline.o: $(SRC)\line.c ebind.h epath.h efunc.h edef.h estruct.h Xmain.o: $(SRC)\main.c ebind.h efunc.h edef.h estruct.h Xrandom.o: $(SRC)\random.c ebind.h epath.h efunc.h edef.h estruct.h Xregion.o: $(SRC)\region.c ebind.h epath.h efunc.h edef.h estruct.h Xsearch.o: $(SRC)\search.c ebind.h epath.h efunc.h edef.h estruct.h Xspawn.o: $(SRC)\spawn.c ebind.h epath.h efunc.h edef.h estruct.h Xst520.o: $(SRC)\st520.c ebind.h epath.h efunc.h edef.h estruct.h Xtermio.o: $(SRC)\termio.c ebind.h epath.h efunc.h edef.h estruct.h Xword.o: $(SRC)\word.c ebind.h epath.h efunc.h edef.h estruct.h Xwindow.o: $(SRC)\window.c ebind.h epath.h efunc.h edef.h estruct.h FRIDAY_NIGHT echo extracting - makefile.unx sed 's/^X//' > makefile.unx << 'FRIDAY_NIGHT' XCFLAGS= -O X XOFILES= ansi.o basic.o bind.o buffer.o crypt.o dg10.o \ X display.o eval.o exec.o file.o fileio.o \ X hp110.o hp150.o ibmpc.o input.o isearch.o line.o \ X lock.o main.o random.o region.o search.o spawn.o \ X st520.o tcap.o termio.o tipc.o vmsvt.o vt52.o \ X window.o word.o z309.o X XCFILES= ansi.c basic.c bind.c buffer.c crypt.c dg10.c \ X display.c eval.c exec.c file.c fileio.c \ X hp110.c hp150.c ibmpc.c input.c isearch.c line.c \ X lock.c main.c random.c region.c search.c spawn.c \ X st520.c tcap.c termio.c tipc.c vmsvt.c vt52.c \ X window.c word.c z309.c X XHFILES= estruct.h edef.h efunc.h epath.h ebind.h evar.h X Xemacs: $(OFILES) X $(CC) $(CFLAGS) $(OFILES) -ltermcap -lc -o emacs X X$(OFILES): $(HFILES) FRIDAY_NIGHT echo extracting - aline.h sed 's/^X//' > aline.h << 'FRIDAY_NIGHT' X X /***********************************************\ X * * X * aline.h * X * Common include file for C interface * X * to low level Line A calls * X * * X * J.R. Bammi * X * decvax!cwruecmp!bammi * X * bammi%cwru.edu.CSNET * X * bammi@cwru.edu.ARPA * X * CIS: 71515,155 * X * * X \***********************************************/ X X#define WORD int X#define VOID void X X/*****************************************************************************\ X* * X* Defines * X* * X\*****************************************************************************/ X X/* X * Object colors (default pallette) X * X */ X#define WHITE 0 X#define BLACK 1 X#define RED 2 X#define GREEN 3 X#define BLUE 4 X#define CYAN 5 X#define YELLOW 6 X#define MAGENTA 7 X#define LWHITE 8 X#define LBLACK 9 X#define LRED 10 X#define LGREEN 11 X#define LBLUE 12 X#define LCYAN 13 X#define LYELLOW 14 X#define LMAGENTA 15 X X X/* X * Vdi writing modes X * X */ X#define MD_REPLACE 1 X#define MD_TRANS 2 X#define MD_XOR 3 X#define MD_ERASE 4 X X X/* X * Raster Op Codes X * X */ X#define ALL_WHITE 0 X#define S_AND_D 1 X#define S_AND_NOTD 2 X#define S_ONLY 3 X#define NOTS_AND_D 4 X#define D_ONLY 5 X#define S_XOR_D 6 X#define S_OR_D 7 X#define NOT_SORD 8 X#define NOT_SXORD 9 X#define D_INVERT 10 X#define NOT_D 11 X#define S_OR_NOTD 12 X#define NOTS_OR_D 13 X#define NOT_SANDD 14 X#define ALL_BLACK 15 X X/* X * Sprite formats X * X */ X#define SP_VDI 0 X#define SP_XOR 1 X X/* X * Line A Opcodes X * X */ X#define INIT 0 X#define PUTPIXEL 1 X#define GETPIXEL 2 X#define LINE 3 X#define HLINE 4 X#define RECTANGLE 5 X#define FPOLYGON 6 X#define BITBLT 7 X#define TEXTBLT 8 X#define SHOWMOUSE 9 X#define HIDEMOUSE 10 X#define TRANMOUSE 11 X#define USPRITE 12 X#define DSPRITE 13 X#define CPYRASTER 14 X#define FSEEDFILL 15 /* ROM TOS only */ X X X/*****************************************************************************\ X* * X* Types * X* * X\*****************************************************************************/ X X /* X * Global Variables at negative offsets from the Line A parameter X * block address returned by init. (I have no way of telling if this X * list is complete). X * X */ X/* Name Offset Type Description */ X/* --------------------------------------------------------------------------*/ X/* V_Y_MAX -4 W Max Y pixel value of the screen */ X/* V_STATUS -6 W Text Status byte */ X/* Bit Field Zero One */ X/* 0 cursor flash disabled enabled */ X/* 1 flash state off on */ X/* 2 cursor visible no yes */ X/* 3 end of line no-wrap wrap */ X/* 4 inverse video on off */ X/* 5 cursor saved false true */ X/* V_OFF_AD -10 L Font offset table address */ X/* V_X_MAX -12 W Max X pixel value */ X/* V_FNT_WR -14 W Width of Font Form in bytes (see type FONT below) */ X/* V_FNT_ST -16 W First font ASCII code (first_ade) */ X/* V_FNT_ND -18 W Last font ASCII code (last_ade ) */ X/* V_FNT_AD -22 L Font Form address */ X/* Mono Spaced, 8 pixels wide and byte aligned, any ht. */ X/* V_CUR_TIM -23 B Cursor countdown timer */ X/* V_CUR_CNT -24 B Cursor flash interval( in frames) */ X/* V_CUR_CY -26 W Y cursor position */ X/* V_CUR_CX -28 W X cursor position */ X/* V_CUR_OFF -30 W Offset from screen base to first cell (bytes) */ X/* V_CUR_AD -34 L Current cursor address */ X/* V_COL_FG -36 W Foreground color index */ X/* V_COL_BG -38 W Background color index */ X/* V_CEL_WR -40 W Offset to next vertical cell (bytes) */ X/* V_CEL_MY -42 W Max cells high - 1 */ X/* V_CEL_MX -44 W Max cells across - 1 */ X/* V_CEL_HT -46 W Cell height in pixels (font form's height) */ X/* --------------------------------------------------------------------------*/ X X/* X * Atari finally named these variables X * so here they are X * X */ Xtypedef struct { X WORD V_CEL_HT; /* *((WORD *)((char *)aline - (char *)46L)) */ X WORD V_CEL_MX; /* *((WORD *)((char *)aline - (char *)44L)) */ X WORD V_CEL_MY; /* *((WORD *)((char *)aline - (char *)42L)) */ X WORD V_CEL_WR; /* *((WORD *)((char *)aline - (char *)40L)) */ X WORD V_COL_BG; /* *((WORD *)((char *)aline - (char *)38L)) */ X WORD V_COL_FG; /* *((WORD *)((char *)aline - (char *)36L)) */ X char *V_CUR_AD; /* *((char **)((char **)aline - (char **)34L)) */ X WORD V_CUR_OFF; /* *((WORD *)((char *)aline - (char *)30L)) */ X WORD V_CUR_CX; /* *((WORD *)((char *)aline - (char *)28L)) */ X WORD V_CUR_CY; /* *((WORD *)((char *)aline - (char *)26L)) */ X WORD V_CUR_CNT; /* *((char *)((char *)aline - (char *)24L)) */ X/* char V_CUR_TIM; *((char *)((char *)aline - (char *)23L)) */ X char **V_FNT_AD; /* *((char **)((char **)aline - (char **)22L)) */ X WORD V_FNT_ND; /* *((WORD *)((char *)aline - (char *)18L)) */ X WORD V_FNT_ST; /* *((WORD *)((char *)aline - (char *)16L)) */ X WORD V_FNT_WR; /* *((WORD *)((char *)aline - (char *)14L)) */ X WORD V_X_MAX; /* *((WORD *)((char *)aline - (char *)12L)) */ X char **V_OFF_AD; /* *((char **)((char **)aline - (char **)10L)) */ X WORD V_STATUS; /* *((WORD *)((char *)aline - (char *) 6L)) */ X WORD V_Y_MAX; /* *((WORD *)((char *)aline - (char *) 4L)) */ X WORD xxdummy; /* *((WORD *)((char *)aline - (char *) 2L)) */ X} NLINEA; X X /* A pointer to the type LINEA is returned by the Line A init call X * ($A000), in registers A0 and D0. X * This pointer is saved in the global variable 'aline'. X * X */ Xtypedef struct { X X/* Type Name Offset Function Comments */ X/* ------------------------------------------------------------------------- */ X WORD VPLANES; /* 0 # of Planes Also see CurrRez */ X WORD VWRAP; /* 2 Bytes / scan line " " " */ X /* VWRAP can be changed to implement special effect*/ X /* Doubling VWRAP will skip every other scan line */ X /* */ X /* */ X WORD *CONTRL; /* 4 Ptr to CONTRL Array Contrl gets set to this */ X WORD *INTIN; /* 8 Ptr to INTIN Array Intin gets set to this */ X WORD *PTSIN; /* 12 Ptr to PTSIN Array Ptsin gets set to this */ X WORD *INTOUT; /* 16 Ptr to INTOUT Array Intout gets set to this */ X WORD *PTSOUT; /* 20 Ptr to PTSOUT Array Ptsout gets set to this */ X /* CONTRL is the control array */ X /* INTIN is the array of input parameters */ X /* PTSIN is the array of input coordinates */ X /* Even entrys are X coordinate */ X /* Odd entrys are corresponding Y coodinates */ X /* INTOUT is the array of output parameters */ X /* PTSOUT is the array of output coordinates */ X /* organizes like PTSIN. */ X /* */ X WORD COLBIT0; /* 24 Plane 0 Color Value All Three Rez's */ X WORD COLBIT1; /* 26 Plane 1 Color Value Med and Low Rez only */ X WORD COLBIT2; /* 28 Plane 2 Color Value Low Rez only */ X WORD COLBIT3; /* 30 Plane 3 Color Value Low Rez Only */ X /* Foreground color COLBIT0 + 2*COLBIT1 + 4*COLBIT2*/ X /* + 8*COLBIT3 */ X /* */ X /* */ X WORD LSTLIN; /* 32 Always set to -1, Done for you in init_aline() */ X /* Does anyone know what it is supposed to be? */ X /* */ X WORD LNMASK; /* 34 Linemask used when drawing lines, same as Vdi's */ X /* line style */ X /* */ X WORD WMODE; /* 36 Writing mode */ X /* 0=Replace Mode-Replace all bits in Dest with src*/ X /* 1=Trans. Mode-Only additional bits in src set(OR*/ X /* 2=Xor Mode- Src XOR Dest */ X /* 3=Inverse Trans.- (NOT src) Or Dest */ X /* Values upto 16 are permitted */ X /* */ X WORD X1; /* 38 X1 coordinate used in various calls */ X /* */ X WORD Y1; /* 40 Y1 coordinate used in various calls */ X /* */ X WORD X2; /* 42 X2 coordinate used in various calls */ X /* */ X WORD Y2; /* 44 Y2 coordinate used in various calls */ X /* */ X /* */ X WORD *PATPTR; /* 46 Pointer to current fill pattern */ X /* Must be integral power of 2 (words) in length */ X WORD PATMSK; /* 50 I don't know why they call it a mask. It is in */ X /* reality the length in words of the current patt.*/ X WORD MFILL; /* 52 Multi Plane fill flag 1 == Current fill Pattern */ X /* is for Muti Plane. */ X /* */ X /* */ X WORD CLIP; /* 54 Clipping Flag 1 == TRUE */ X WORD XMINCL; /* 56 Min X of clipping window */ X WORD YMINCL; /* 58 Min Y of clipping window */ X WORD XMAXCL; /* 60 Max X of clipping window */ X WORD YMAXCL; /* 62 Max Y of clipping window */ X /* */ X /* */ X WORD XDDA; /* 64 Accumulator for Scaling, Must be set to 0x08000 */ X /* before each call to Text Blt. Done for you in */ X /* in aline_text() */ X WORD DDAINC; /* 66 Scaling factor - Fractional amount to scale char*/ X /* When scaling up = 256 *(Size-Textsize)/Textsize */ X /* When scaling down = 256*(Size)/Textsize */ X /* scaling down does not work */ X WORD SCALDIR; /* 68 Scaling direction 0 == down */ X WORD MONO; /* 70 Mono flag 0== current font is a propotional font*/ X /* Its Ok for Thickening to increase the width of */ X /* the current character. */ X /* 1 == current font is mono spaced, so thickening */ X /* may not increase the width of the current char */ X /* */ X WORD SOURCEX; /* 72 X coordinate of character in the font form */ X /* SOURCEX is caluclated from info in the font */ X /* header for the current font (see FONT type) */ X /* SOURCEX = off_table[char-first_ade] */ X /* SOURCEX is calculated for you in aline_text() */ X /* The pointer to a table of font header for the */ X /* internal fonts is returned in A2 on init (A000) */ X WORD SOURCEY; /* 74 Y coodinate of character in the font form */ X /* Typically set to 0 (top line of font form) */ X WORD DESTX; /* 76 X coordinate of character on screen */ X WORD DESTY; /* 78 Y coordinate of character on screen */ X WORD DELX; /* 80 Width of Character */ X /* Difference between two SOURCEX's */ X WORD DELY; /* 82 Height of Character */ X /* form_height field of FONT_HEAD of current font */ X WORD *FBASE; /* 84 Pointer to start of font form */ X WORD FWIDTH; /* 88 Width of the current font's form */ X /* */ X WORD STYLE; /* 90 Vector of style flags */ X /* Bit 0 = Thicken Flag */ X /* Bit 1 = Lighten Flag */ X /* Bit 2 = Skewing Flag */ X /* Bit 3 = Underline Flag (ignored) */ X /* Bit 4 = Outline Flag */ X /* */ X WORD LITEMASK; /* 92 Mask used for lightening text */ X /* The Mask is picked up from the font header */ X WORD SKEWMASK; /* 94 Mask used for skewing text */ X /* The Mask is picked up from the font header */ X WORD WEIGHT; /* 96 The number of bits by which to thicken text */ X /* The number is picked up from the font header */ X WORD ROFF; /* 98 Offset above baseline when skewing */ X /* Again picked up from the font header */ X /* */ X WORD LOFF; /* 100 Offset below character baseline when skewing */ X /* Again picked up from the font header */ X /* */ X WORD SCALE; /* 102 Scaling Flag 1 == true */ X /* */ X WORD CHUP; /* 104 Character rotation vector. */ X /* 0 = normal (0 degrees) */ X /* 1800 = 180 degrees */ X /* 2700 = 270 degrees */ X /* */ X WORD TEXTFG; /* 106 Text foreground color */ X /* */ X char *SCRTCHP; /* 108 Address of buffer required for creating special */ X /* text effects. The size of this buffer should be */ X /* 1K according the Internals. The Atari document */ X /* of course does not talk about such things :-) */ X /* */ X WORD SCRPT2; /* 112 The offset of the scaling buffer buffer in above*/ X /* buffer. Internals suggests an offset of 0x0040 */ X /* As usual the Atari document does'nt say a thing */ X /* */ X WORD TEXTBG; /* 114 Text background color (Ram Vdi only) */ X /* used for the BitBlt writing modes (4-19) only */ X /* */ X WORD COPYTRAN; /* 116 Copy raster form type flag (Ram vdi only) */ X /* 0 => Opaque type */ X /* n-plane source -> n-plane dest */ X /* BitBlt writing modes (4-19) */ X /* ~0 => Transparent type */ X /* 1-plane source -> n-plane dest */ X /* Vdi writing modes (1-3) */ X /* */ X WORD(*SEEDABORT)();/* 118 Pointer to function returning int, which is */ X /* called by the fill logic to allow the fill to */ X /* be aborted. If the routine returns FALSE (0) */ X /* the fill is not aborted. If it returns TRUE (~0)*/ X /* the fill is aborted */ X/* ------------------------------------------------------------------------- */ X X} LINEA; /* P H E W !!!!! */ X X X X /* A pointer to array of type FONT is returned by the Line A init call X * ($A000), in regsister A1. X * This pointer is saved in the global array variable 'fonts[]'. X * X */ X Xtypedef struct _font { X X/* Type Name Offset Function Comments */ X/* ------------------------------------------------------------------------- */ X WORD font_id; /* 0 Font face identifier 1 == system font */ X /* */ X WORD size; /* 2 Font size in points */ X /* */ X char name[32]; /* 4 Face name */ X /* */ X WORD first_ade; /* 36 Lowest ADE value in the face (lowest ASCII value */ X /* of displayable character). */ X /* */ X WORD last_ade; /* 38 Highest ADE value in the face (highest ASCII valu*/ X /* of displayable character). */ X /* */ X WORD top; /* 40 Distance of top line relative to baseline */ X /* */ X WORD ascent; /* 42 Distance of ascent line relative to baseline */ X /* */ X WORD half; /* 44 Distance of half line relative to baseline */ X /* */ X WORD descent; /* 46 Distance of decent line relative to baseline */ X /* */ X WORD bottom; /* 48 Distance of bottom line relative to baseline */ X /* All distances are measured in absolute values */ X /* rather than as offsets. They are always +ve */ X /* */ X WORD max_char_width; /* 50 Width of the widest character in font */ X /* */ X WORD max_cell_width; /* 52 Width of the widest cell character cell in face */ X /* */ X WORD left_offset; /* 54 Left Offset see Vdi appendix G */ X /* */ X WORD right_offset; /* 56 Right offset " " " */ X /* */ X WORD thicken; /* 58 Number of pixels by which to thicken characters */ X /* */ X WORD ul_size; /* 60 Width in pixels of the underline */ X /* */ X WORD lighten; /* 62 The mask used to lighten characters */ X /* */ X WORD skew; /* 64 The mask used to determine when to perform */ X /* additional rotation on the character to perform */ X /* skewing */ X /* */ X WORD flags; /* 66 Flags */ X /* bit 0 set if default system font */ X /* bit 1 set if horiz offset table should be used */ X /* bit 2 byte-swap flag (thanks to Intel idiots) */ X /* bit 3 set if mono spaced font */ X /* */ X char *h_table; /* 68 Pointer to horizontal offset table */ X /* */ X WORD *off_table; /* 72 Pointer to character offset table */ X /* */ X char *dat_table; /* 76 Pointer to font data */ X /* */ X WORD form_width; /* 80 Form width (#of bytes /scanline in font data) */ X /* */ X WORD form_height;/* 82 Form height (#of scanlines in font data) */ X /* */ X struct _font *next_font; /* 84 Pointer to next font in face */ X /* */ X/* ------------------------------------------------------------------------- */ X} FONT; X X X /* X * OP_TAB type required for Bit Blt parameter block. X * each entry defines the logic operation to apply for X * the 4 Fore/Back ground bit combinations X */ Xtypedef struct { X X/* Type Name Offset Function Comments */ X/* ------------------------------------------------------------------------- */ X char fg0bg0; /* 0 Logic op to employ when both FG and BG are 0 */ X char fg0bg1; /* 1 Logic op to employ when FG = 0 and BG = 1 */ X char fg1bg0; /* 2 Logic op to employ when FG = 1 and BG = 0 */ X char fg1bg1; /* 3 Logic op to employ when both FG and BG are 1 */ X/* ------------------------------------------------------------------------- */ X} OP_TAB; X X X/* X * Source and destination description blocks X */ Xtypedef struct { X WORD bl_xmin; /* Minimum x */ X WORD bl_ymin; /* Minimum y */ X char *bl_form; /* Word aligned memory form */ X WORD bl_nxwd; /* Offset to next word in line */ X WORD bl_nxln; /* Offset to next line in plane */ X WORD bl_nxpl; /* Offset to next plane */ X}SDDB; X X /* Offsets to next word in plane */ X#define HI_NXWD 2 X#define MED_NXWD 4 X#define LOW_NXWD 8 X X /* Scan line widths of the screen */ X#define HI_NXLN 80 X#define MED_NXLN 160 X#define LOW_NXLN 160 X X /* X * Offsets between planes - always the same due to X * the way the STs video memory is laid out X */ X#define NXPL 2 X X /* X * Bit Blt Parameter Block Type (for function $A007) X * X */ X Xtypedef struct { X X/* Type Name Offset Function Comments */ X/* ------------------------------------------------------------------------- */ X WORD bb_b_wd; /* width of block in pixels */ X WORD bb_b_ht; /* height of block in pixels */ X WORD bb_plane_ct; /* number of planes to blit */ X WORD bb_fg_col; /* foreground color */ X WORD bb_bg_col; /* back ground color */ X OP_TAB bb_op_tab; /* logic for fg x bg combination */ X SDDB bb_s; /* source info block */ X SDDB bb_d; /* destination info block */ X WORD *bb_p_addr; /* pattern buffer address */ X WORD bb_p_nxln; /* offset to next line in pattern */ X WORD bb_p_nxpl; /* offset to next plane in pattern */ X WORD bb_p_mask; /* pattern index mask */ X char bb_fill[24]; /* work space */ X/* ------------------------------------------------------------------------- */ X} BBPB; X X X/* X * Memory Form Definition Block X * X */ Xtypedef struct X{ X char *fd_addr; /* Addrerss of upper left corner of firs*/ X /* plane of raster area. If NULL then */ X /* MFDB is for a physical device */ X WORD fd_w; /* Form Width in Pixels */ X WORD fd_h; /* Form Height in Pixels */ X WORD fd_wdwidth; /* Form Width in words (fd_w/sizeof(int)*/ X WORD fd_stand; /* Form format 0= device spec 1=standard*/ X WORD fd_nplanes; /* Number of memory planes */ X WORD fd_r1; /* Reserved */ X WORD fd_r2; /* Reserved */ X WORD fd_r3; /* Reserved */ X} MFDB; X X X X X/* X * Sprite definition block X * X */ Xtypedef struct X{ X WORD sp_xhot; /* Offset to X hot spot */ X WORD sp_yhot; /* Offset to Y hot spot */ X WORD sp_format; /* Format SP_VDI or SP_XOR */ X WORD sp_bg; /* Background color */ X WORD sp_fg; /* Foregroud color */ X WORD sp_data[32]; /* Sprite data - */ X /* Alternating words of back/fore */ X /* ground data */ X /* Note that: */ X /* sprite save block is */ X /* 10+VPLANES*64 bytes long */ X X} SFORM; FRIDAY_NIGHT echo mes.14 completed! # That's all folks!