<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">                                Source Listing                   5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page   1
                                                                 5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

	      1 #ifdef __ALPHA
	      2 #define SHELL$IS_SHELL DECC$IS_SHELL
	      3 #define SHELL$CLI_NAME DECC$CLI_NAME
	      4 #endif
	      5  /* C interface to screen and file I/O for AnalytiCalc */
	      6 #include &lt;curses.h&gt;
	   1878 #ifdef VMS
	   1879 /* Fix up for bogus "curses" that DEC supplies.
	   1880   I'd use the one from the F90 tapes, which is more
	   1881   Unix compatible, but it's BSD curses which lacks
	   1882   video attributes. I *need* those! */
	   1883 #define attrset(attr) wsetattr(stdscr, attr)
	   1884 #define A_NORMAL 0
	   1885 #define A_REVERSE _REVERSE
	   1886 #define A_BLINK _BLINK
	   1887 #define A_BOLD _BOLD
	   1888 #define A_UNDERLINE _UNDERLINE
	   1889 #define attron(attr) wsetattr(stdscr, attr)
	   1890 #endif
	   1891 WINDOW *winptr,*stdwin;
	   1892 /* WINDOW *winptr,*curscr,*stdwin; */
	   1893 /* WINDOW *stdscr; */
	   1894 /* long currx,curry; */
	   1895 long xssize,yssize;
	   1896 long ciLINES,ciCOLS;
	   1897 #ifndef VMS
       X   1898 extern int cbreak();
       X   1899 #endif
	   1900 /* copen - opens window after screen setup; returns "handle" which will
	   1901    be used for other accesses. The cclose routine will clear things out. */
	   1902 WINDOW *copen(fname,fnsz,mode)
	   1903 char *fname;
	   1904 long fnsz; /* Sun interface...passes addr and size */
	   1905 long *mode; /* mode arg for size */
	   1906 {
	   1907 /*  vaxc$crtl_init();*/
	   1908   winptr = initscr(); /* init the screen */
	   1909   winptr = initscr(); /* init the screen */
	   1910   ciLINES = LINES;
	   1911   ciCOLS = COLS;
	   1912   xssize=ciCOLS;
	   1913   yssize=ciLINES;
	   1914 #ifndef VMS
       X   1915   cbreak();
       X   1916 #endif
	   1917   noecho();
	   1918 /*  nonl(); */
	   1919 #ifndef VMS
       X   1920   intrflush(stdscr,FALSE);
       X   1921   keypad(stdscr,TRUE);
       X   1922 #endif
	   1923 /*  currx=0;
	   1924   curry=0; */ /* zero initial cursor loc */
	   1925   refresh();
	   1926 /* use stdwin for our stuff */
	   1927   return(winptr); /* return stdscr pointer*/
	   1928 }

                                Source Listing                   5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page   2
                                                                 5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

	   1929 cgetsz(ccicol,ccirow)
	   1930 long *ccicol,*ccirow;
	   1931 {  *ccicol = xssize + 1;
	   1932   *ccirow = yssize + 1;
	   1933   return(0);
	   1934 }
	   1935 /* cclose - close scren window */
	   1936 cclose(fh)
	   1937 WINDOW *fh;
	   1938 {
	   1939 #ifndef VMS
       X   1940 echo();attrset(A_NORMAL);
       X   1941 #endif
	   1942 #ifdef VMS
	   1943 echo();clrattr(A_REVERSE | A_BOLD | A_UNDERLINE | A_BLINK);
	   1944 #endif
	   1945 endwin(); /*just finish all curses stuff*/
	   1946 return(0);
	   1947 }
	   1948 /* cmove - move to char x,y (zero based..offset here for 1-based AnalytiCalc) */
	   1949 cmove(fh,lasty,lastx)
	   1950 WINDOW *fh;
	   1951   long *lasty,*lastx;
	   1952 {
	   1953   long cx,cy;
	   1954   cx = *lastx ;
	   1955   cy = *lasty ;
	   1956 /*  currx=*lastx;
	   1957   curry=*lasty;  */
	   1958   move(cy,cx);
	   1959   refresh(); /* move, and echo the move to screen */
	   1960   return(0);
	   1961 }
	   1962 cclear(fh)
	   1963 WINDOW *fh;
	   1964 {
	   1965 /* cclear - clear entire screen */
	   1966 clear();refresh();
	   1967 return(0);
	   1968 }
	   1969 /* ccleareol - clear to end of ciLINES on current screen */
	   1970 ccleareol(fh)
	   1971 WINDOW *fh;
	   1972 {
	   1973 clrtoeol();refresh();
	   1974 return(0);
	   1975 }
	   1976 /* crefresh - repaint screen */
	   1977 crefresh(fh)
	   1978 WINDOW *fh;
	   1979 {
	   1980 clearok(fh,TRUE);
	   1981 refresh(); /* repaint screen totally */
	   1982 return(0);
	   1983 }
	   1984 /* cattron - set reverse video */
	   1985 cattron(fh)

                                Source Listing                   5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page   3
                                                                 5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

	   1986 WINDOW *fh;
	   1987 {
	   1988 attron(A_REVERSE);
	   1989 refresh();
	   1990 return(0);
	   1991 }
	   1992 cboldon(fh)
	   1993 WINDOW *fh;
	   1994 {
	   1995 attron(A_BOLD);
	   1996 refresh();
	   1997 return(0);
	   1998 }
	   1999 /* cattroff - turns off reverse video etc. */
	   2000 cattroff(fh)
	   2001 WINDOW *fh;
	   2002 {
	   2003 #ifndef VMS
       X   2004 attrset(A_NORMAL);
       X   2005 #endif
	   2006 #ifdef VMS
	   2007 clrattr(A_REVERSE);
	   2008 #endif
	   2009 refresh();
	   2010 return(0);
	   2011 }
	   2012 cboldoff(fh)
	   2013 WINDOW *fh;
	   2014 {
	   2015 #ifndef VMS
       X   2016 attrset(A_NORMAL);
       X   2017 #endif
	   2018 #ifdef VMS
	   2019 clrattr(A_BOLD);
	   2020 #endif
	   2021 refresh();
	   2022 return(0);
	   2023 }
	   2024 /* cwrite - write chars to screen */
	   2025 cwrite(fh,chrs,size,csz)
	   2026 WINDOW *fh;
	   2027 long csz;
	   2028 long *size;
	   2029 char *chrs;
	   2030 {
	   2031 long i;
	   2032 char *ch;
	   2033   (char *)ch = (char *)chrs;
	   2034   for (i=0;i &lt; *size;i++){
	   2035   if (*ch != '\0') addch(*ch++);
	   2036   }
	   2037  refresh();
	   2038 return(0);
	   2039 }
	   2040 /* cread - read chars off keyboard, returning flags if esc seqs. */
	   2041 long cread(fh,buf,size,esccod,iact,bsz)
	   2042 WINDOW *fh;

                                Source Listing                   5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page   4
                                                                 5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

	   2043 char *buf;
	   2044 long *iact;
	   2045 long bsz;
	   2046 long *size;
	   2047 long *esccod;
	   2048 {
	   2049 long kkk;
	   2050 long i,l;
	   2051 long *ec;
	   2052 int j;
	   2053 char *cp,cwk;
	   2054    kkk=0;
	   2055    ec = esccod;
	   2056    cp = buf;
	   2057    for (i=0;i&lt;*size;i++){
	   2058 #ifndef VAX11C
       X   2059    j=getch();
       X   2060 #endif
	   2061 #ifdef VAX11C
	   2062    j = 0;
	   2063    in_char(&amp;j);
	   2064 #endif
	   2065    kkk++;
	   2066    cwk=j &amp; 255;
	   2067    if ((j &lt; 255) &amp;&amp; (cwk == '\r')) j = '\n';
	   2068    l=j;
	   2069    *ec = l;
	   2070 /* we read a char at a time for analyticalc, so no end chks much */
	   2071    *cp++ = j &amp; 255;
	   2072    *iact = kkk;
	   2073    if (j == 10) return(i);
	   2074    if (j == 13) return(i);
	   2075    }
	   2076    *iact = kkk;
	   2077    return(0);
	   2078 }
	   2079 

                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page   5
                                copen                            5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

				.PSECT	$CODE$, OCTA, PIC, CON, REL, LCL, SHR,-
					EXE, NORD, NOWRT
	     0000	copen::												    ; 001902
23DEFFD0     0000		LDA	SP, -48(SP)				; SP, -48(SP)
47FF0419     0004		CLR	R25					; R25					    ; 001908
B77E0000     0008		STQ	R27, (SP)				; R27, (SP)				    ; 001902
B75E0008     000C		STQ	R26, 8(SP)				; R26, 8(SP)
B45E0010     0010		STQ	R2, 16(SP)				; R2, 16(SP)
B47E0018     0014		STQ	R3, 24(SP)				; R3, 24(SP)
B7BE0020     0018		STQ	FP, 32(SP)				; FP, 32(SP)
47FE041D     001C		MOV	SP, FP					; SP, FP
47FB0402     0020		MOV	R27, R2					; R27, R2
A7420020     0024		LDQ	R26, 32(R2)				; R26, 32(R2)				    ; 001908
A7620028     0028		LDQ	R27, 40(R2)				; R27, 40(R2)
6B5A4000     002C		JSR	R26, DECC$INITSCR			; R26, R26
A462FFF8     0030		LDQ	R3, -8(R2)				; R3, -8(R2)
47FF0419     0034		CLR	R25					; R25					    ; 001909
A7620028     0038		LDQ	R27, 40(R2)				; R27, 40(R2)
A7420020     003C		LDQ	R26, 32(R2)				; R26, 32(R2)
2063FFF8     0040		LDA	R3, winptr				; R3, -8(R3)				    ; 001908
B0030000     0044		STL	R0, (R3)				; R0, (R3)
6B5A4000     0048		JSR	R26, DECC$INITSCR			; R26, R26				    ; 001909
A7820030     004C		LDQ	R28, 48(R2)				; R28, 48(R2)				    ; 001910
A762FE58     0050		LDQ	R27, -424(R2)				; R27, -424(R2)				    ; 001925
A03C0000     0054		LDL	R1, DECC$GA_LINES			; R1, (R28)				    ; 001910
A7820038     0058		LDQ	R28, 56(R2)				; R28, 56(R2)				    ; 001911
B0030000     005C		STL	R0, (R3)				; R0, (R3)				    ; 001909
A23C0000     0060		LDL	R17, DECC$GA_COLS			; R17, (R28)				    ; 001911
A782FFE0     0064		LDQ	R28, -32(R2)				; R28, -32(R2)				    ; 001917
B0230010     0068		STL	R1, 16(R3)				; R1, 16(R3)				    ; 001910
A27C0000     006C		LDL	R19, DECC$GA_STDKB			; R19, (R28)				    ; 001917
B2230014     0070		STL	R17, 20(R3)				; R17, 20(R3)				    ; 001911
B2230008     0074		STL	R17, 8(R3)				; R17, 8(R3)				    ; 001912
B023000C     0078		STL	R1, 12(R3)				; R1, 12(R3)				    ; 001913
A2F30004     007C		LDL	R23, 4(R19)				; R23, 4(R19)				    ; 001917
A782FE30     0080		LDQ	R28, -464(R2)				; R28, -464(R2)				    ; 001925
46FFF018     0084		AND	R23, 255, R24				; R23, 255, R24				    ; 001917
47003418     0088		BIS	R24, 1, R24				; R24, 1, R24
471FF018     008C		ZEXTB	R24, R24				; R24, R24
4AE03619     0090		ZAP	R23, 1, R25				; R23, 1, R25
4B00117A     0094		INSBL	R24, 0, R26				; R24, 0, R26
473A041A     0098		BIS	R25, R26, R26				; R25, R26, R26
43FA001A     009C		SEXTL	R26, R26				; R26, R26
B3530004     00A0		STL	R26, 4(R19)				; R26, 4(R19)
47E03419     00A4		MOV	1, R25					; 1, R25				    ; 001925
A742FE50     00A8		LDQ	R26, -432(R2)				; R26, -432(R2)
A21C0000     00AC		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     00B0		JSR	R26, DECC$WREFRESH			; R26, R26
A0630000     00B4		LDL	R3, (R3)				; R3, (R3)				    ; 001927
47FD041E     00B8		MOV	FP, SP					; FP, SP
A79D0008     00BC		LDQ	R28, 8(FP)				; R28, 8(FP)
A45D0010     00C0		LDQ	R2, 16(FP)				; R2, 16(FP)
47E30400     00C4		MOV	R3, R0					; R3, R0
A47D0018     00C8		LDQ	R3, 24(FP)				; R3, 24(FP)
A7BD0020     00CC		LDQ	FP, 32(FP)				; FP, 32(FP)
23DE0030     00D0		LDA	SP, 48(SP)				; SP, 48(SP)
6BFC8001     00D4		RET	R28					; R28

                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page   6
                                copen                            5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15


Routine Size: 216 bytes,    Routine Base: $CODE$ + 0000

	     00D8	cgetsz::											    ; 001929
A79B0010     00D8		LDQ	R28, 16(R27)				; R28, 16(R27)				    ; 001931
A01C0000     00DC		LDL	R0, xssize				; R0, (R28)
A79B0010     00E0		LDQ	R28, 16(R27)				; R28, 16(R27)				    ; 001932
40003000     00E4		ADDL	R0, 1, R0				; R0, 1, R0				    ; 001931
A03C0004     00E8		LDL	R1, yssize				; R1, 4(R28)				    ; 001932
B0100000     00EC		STL	R0, (R16)				; R0, (R16)				    ; 001931
47FF0400     00F0		CLR	R0					; R0					    ; 001933
40203001     00F4		ADDL	R1, 1, R1				; R1, 1, R1				    ; 001932
B0310000     00F8		STL	R1, (R17)				; R1, (R17)
6BFA8001     00FC		RET	R26					; R26					    ; 001933

Routine Size: 40 bytes,    Routine Base: $CODE$ + 00D8

	     0100	cclose::											    ; 001936
23DEFFE0     0100		LDA	SP, -32(SP)				; SP, -32(SP)
47E05419     0104		MOV	2, R25					; 2, R25				    ; 001943
B77E0000     0108		STQ	R27, (SP)				; R27, (SP)				    ; 001936
B75E0008     010C		STQ	R26, 8(SP)				; R26, 8(SP)
B45E0010     0110		STQ	R2, 16(SP)				; R2, 16(SP)
B7BE0018     0114		STQ	FP, 24(SP)				; FP, 24(SP)
47FE041D     0118		MOV	SP, FP					; SP, FP
47FB0402     011C		MOV	R27, R2					; R27, R2
A7820030     0120		LDQ	R28, 48(R2)				; R28, 48(R2)				    ; 001943
A742FED0     0124		LDQ	R26, -304(R2)				; R26, -304(R2)
A762FED8     0128		LDQ	R27, -296(R2)				; R27, -296(R2)
A01C0000     012C		LDL	R0, DECC$GA_STDKB			; R0, (R28)
A782FE80     0130		LDQ	R28, -384(R2)				; R28, -384(R2)
A0200004     0134		LDL	R1, 4(R0)				; R1, 4(R0)
A2000004     0138		LDL	R16, 4(R0)				; R16, 4(R0)
443FF001     013C		AND	R1, 255, R1				; R1, 255, R1
44203101     0140		BIC	R1, 1, R1				; R1, 1, R1
443FF001     0144		ZEXTB	R1, R1					; R1, R1
4A003611     0148		ZAP	R16, 1, R17				; R16, 1, R17
48201172     014C		INSBL	R1, 0, R18				; R1, 0, R18
46320412     0150		BIS	R17, R18, R18				; R17, R18, R18
43F20012     0154		SEXTL	R18, R18				; R18, R18
B2400004     0158		STL	R18, 4(R0)				; R18, 4(R0)
47E1F411     015C		MOV	15, R17					; 15, R17
A21C0000     0160		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     0164		JSR	R26, DECC$WCLRATTR			; R26, R26
A7620028     0168		LDQ	R27, 40(R2)				; R27, 40(R2)				    ; 001945
47FF0419     016C		CLR	R25					; R25
A7420020     0170		LDQ	R26, 32(R2)				; R26, 32(R2)
6B5A4000     0174		JSR	R26, DECC$ENDWIN			; R26, R26
47FD041E     0178		MOV	FP, SP					; FP, SP				    ; 001946
A79D0008     017C		LDQ	R28, 8(FP)				; R28, 8(FP)
A45D0010     0180		LDQ	R2, 16(FP)				; R2, 16(FP)
47FF0400     0184		CLR	R0					; R0
A7BD0018     0188		LDQ	FP, 24(FP)				; FP, 24(FP)
23DE0020     018C		LDA	SP, 32(SP)				; SP, 32(SP)
6BFC8001     0190		RET	R28					; R28
47FF041F     0194		NOP						; 


                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page   7
                                cclose                           5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

Routine Size: 152 bytes,    Routine Base: $CODE$ + 0100

	     0198	cmove::												    ; 001949
23DEFFE0     0198		LDA	SP, -32(SP)				; SP, -32(SP)
47E07419     019C		MOV	3, R25					; 3, R25				    ; 001958
B77E0000     01A0		STQ	R27, (SP)				; R27, (SP)				    ; 001949
B75E0008     01A4		STQ	R26, 8(SP)				; R26, 8(SP)
B45E0010     01A8		STQ	R2, 16(SP)				; R2, 16(SP)
B7BE0018     01AC		STQ	FP, 24(SP)				; FP, 24(SP)
47FE041D     01B0		MOV	SP, FP					; SP, FP
A2520000     01B4		LDL	cx, (R18)				; R18, (R18)				    ; 001954
47FB0402     01B8		MOV	R27, R2					; R27, R2				    ; 001949
A2310000     01BC		LDL	cy, (R17)				; R17, (R17)				    ; 001955
A782FEB0     01C0		LDQ	R28, -336(R2)				; R28, -336(R2)				    ; 001958
A7420020     01C4		LDQ	R26, 32(R2)				; R26, 32(R2)
A7620028     01C8		LDQ	R27, 40(R2)				; R27, 40(R2)
A21C0000     01CC		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     01D0		JSR	R26, DECC$WMOVE				; R26, R26
47E03419     01D4		MOV	1, R25					; 1, R25				    ; 001959
A782FEB0     01D8		LDQ	R28, -336(R2)				; R28, -336(R2)
A762FED8     01DC		LDQ	R27, -296(R2)				; R27, -296(R2)
A742FED0     01E0		LDQ	R26, -304(R2)				; R26, -304(R2)
A21C0000     01E4		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     01E8		JSR	R26, DECC$WREFRESH			; R26, R26
47FD041E     01EC		MOV	FP, SP					; FP, SP				    ; 001960
A79D0008     01F0		LDQ	R28, 8(FP)				; R28, 8(FP)
47FF0400     01F4		CLR	R0					; R0
A45D0010     01F8		LDQ	R2, 16(FP)				; R2, 16(FP)
A7BD0018     01FC		LDQ	FP, 24(FP)				; FP, 24(FP)
23DE0020     0200		LDA	SP, 32(SP)				; SP, 32(SP)
6BFC8001     0204		RET	R28					; R28

Routine Size: 112 bytes,    Routine Base: $CODE$ + 0198

	     0208	cclear::											    ; 001962
23DEFFE0     0208		LDA	SP, -32(SP)				; SP, -32(SP)
47E03419     020C		MOV	1, R25					; 1, R25				    ; 001966
B77E0000     0210		STQ	R27, (SP)				; R27, (SP)				    ; 001962
B75E0008     0214		STQ	R26, 8(SP)				; R26, 8(SP)
B45E0010     0218		STQ	R2, 16(SP)				; R2, 16(SP)
B7BE0018     021C		STQ	FP, 24(SP)				; FP, 24(SP)
47FE041D     0220		MOV	SP, FP					; SP, FP
47FB0402     0224		MOV	R27, R2					; R27, R2
A782FEE0     0228		LDQ	R28, -288(R2)				; R28, -288(R2)				    ; 001966
A7420020     022C		LDQ	R26, 32(R2)				; R26, 32(R2)
A7620028     0230		LDQ	R27, 40(R2)				; R27, 40(R2)
A21C0000     0234		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     0238		JSR	R26, DECC$WCLEAR			; R26, R26
47E03419     023C		MOV	1, R25					; 1, R25
A782FEE0     0240		LDQ	R28, -288(R2)				; R28, -288(R2)
A762FF08     0244		LDQ	R27, -248(R2)				; R27, -248(R2)
A742FF00     0248		LDQ	R26, -256(R2)				; R26, -256(R2)
A21C0000     024C		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     0250		JSR	R26, DECC$WREFRESH			; R26, R26
47FD041E     0254		MOV	FP, SP					; FP, SP				    ; 001967
A79D0008     0258		LDQ	R28, 8(FP)				; R28, 8(FP)
47FF0400     025C		CLR	R0					; R0

                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page   8
                                cclear                           5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

A45D0010     0260		LDQ	R2, 16(FP)				; R2, 16(FP)
A7BD0018     0264		LDQ	FP, 24(FP)				; FP, 24(FP)
23DE0020     0268		LDA	SP, 32(SP)				; SP, 32(SP)
6BFC8001     026C		RET	R28					; R28

Routine Size: 104 bytes,    Routine Base: $CODE$ + 0208

	     0270	ccleareol::											    ; 001970
23DEFFE0     0270		LDA	SP, -32(SP)				; SP, -32(SP)
47E03419     0274		MOV	1, R25					; 1, R25				    ; 001973
B77E0000     0278		STQ	R27, (SP)				; R27, (SP)				    ; 001970
B75E0008     027C		STQ	R26, 8(SP)				; R26, 8(SP)
B45E0010     0280		STQ	R2, 16(SP)				; R2, 16(SP)
B7BE0018     0284		STQ	FP, 24(SP)				; FP, 24(SP)
47FE041D     0288		MOV	SP, FP					; SP, FP
47FB0402     028C		MOV	R27, R2					; R27, R2
A782FF10     0290		LDQ	R28, -240(R2)				; R28, -240(R2)				    ; 001973
A7420020     0294		LDQ	R26, 32(R2)				; R26, 32(R2)
A7620028     0298		LDQ	R27, 40(R2)				; R27, 40(R2)
A21C0000     029C		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     02A0		JSR	R26, DECC$WCLRTOEOL			; R26, R26
47E03419     02A4		MOV	1, R25					; 1, R25
A782FF10     02A8		LDQ	R28, -240(R2)				; R28, -240(R2)
A762FF38     02AC		LDQ	R27, -200(R2)				; R27, -200(R2)
A742FF30     02B0		LDQ	R26, -208(R2)				; R26, -208(R2)
A21C0000     02B4		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     02B8		JSR	R26, DECC$WREFRESH			; R26, R26
47FD041E     02BC		MOV	FP, SP					; FP, SP				    ; 001974
A79D0008     02C0		LDQ	R28, 8(FP)				; R28, 8(FP)
47FF0400     02C4		CLR	R0					; R0
A45D0010     02C8		LDQ	R2, 16(FP)				; R2, 16(FP)
A7BD0018     02CC		LDQ	FP, 24(FP)				; FP, 24(FP)
23DE0020     02D0		LDA	SP, 32(SP)				; SP, 32(SP)
6BFC8001     02D4		RET	R28					; R28

Routine Size: 104 bytes,    Routine Base: $CODE$ + 0270

	     02D8	crefresh::											    ; 001977
23DEFFE0     02D8		LDA	SP, -32(SP)				; SP, -32(SP)
A79BFF30     02DC		LDQ	R28, -208(R27)				; R28, -208(R27)			    ; 001981
243F00FF     02E0		MOVH	255, R1					; 255, R1				    ; 001980
B77E0000     02E4		STQ	R27, (SP)				; R27, (SP)				    ; 001977
B75E0008     02E8		STQ	R26, 8(SP)				; R26, 8(SP)
47E03419     02EC		MOV	1, R25					; 1, R25				    ; 001981
B7BE0010     02F0		STQ	FP, 16(SP)				; FP, 16(SP)				    ; 001977
47FE041D     02F4		MOV	SP, FP					; SP, FP
A0100018     02F8		LDL	R0, 24(R16)				; R0, 24(R16)				    ; 001980
A75BFF50     02FC		LDQ	R26, -176(R27)				; R26, -176(R27)			    ; 001981
A77BFF58     0300		LDQ	R27, -168(R27)				; R27, -168(R27)
44010101     0304		BIC	R0, R1, R1				; R0, R1, R1				    ; 001980
24210001     0308		ADDQH	R1, 1, R1				; R1, 1, R1
B0300018     030C		STL	R1, 24(R16)				; R1, 24(R16)
A21C0000     0310		LDL	R16, DECC$GA_STDSCR			; R16, (R28)				    ; 001981
6B5A4000     0314		JSR	R26, DECC$WREFRESH			; R26, R26
47FD041E     0318		MOV	FP, SP					; FP, SP				    ; 001982
A79D0008     031C		LDQ	R28, 8(FP)				; R28, 8(FP)
A7BD0010     0320		LDQ	FP, 16(FP)				; FP, 16(FP)

                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page   9
                                crefresh                         5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

47FF0400     0324		CLR	R0					; R0
23DE0020     0328		LDA	SP, 32(SP)				; SP, 32(SP)
6BFC8001     032C		RET	R28					; R28

Routine Size: 88 bytes,    Routine Base: $CODE$ + 02D8

	     0330	cattron::											    ; 001985
23DEFFE0     0330		LDA	SP, -32(SP)				; SP, -32(SP)
47E05411     0334		MOV	2, R17					; 2, R17				    ; 001988
B77E0000     0338		STQ	R27, (SP)				; R27, (SP)				    ; 001985
47E05419     033C		MOV	2, R25					; 2, R25				    ; 001988
B75E0008     0340		STQ	R26, 8(SP)				; R26, 8(SP)				    ; 001985
B45E0010     0344		STQ	R2, 16(SP)				; R2, 16(SP)
B7BE0018     0348		STQ	FP, 24(SP)				; FP, 24(SP)
47FE041D     034C		MOV	SP, FP					; SP, FP
47FB0402     0350		MOV	R27, R2					; R27, R2
A782FF50     0354		LDQ	R28, -176(R2)				; R28, -176(R2)				    ; 001988
A742FFF0     0358		LDQ	R26, -16(R2)				; R26, -16(R2)
A762FFF8     035C		LDQ	R27, -8(R2)				; R27, -8(R2)
A21C0000     0360		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     0364		JSR	R26, DECC$WSETATTR			; R26, R26
A782FF50     0368		LDQ	R28, -176(R2)				; R28, -176(R2)				    ; 001989
47E03419     036C		MOV	1, R25					; 1, R25
A762FF78     0370		LDQ	R27, -136(R2)				; R27, -136(R2)
A742FF70     0374		LDQ	R26, -144(R2)				; R26, -144(R2)
A21C0000     0378		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     037C		JSR	R26, DECC$WREFRESH			; R26, R26
47FD041E     0380		MOV	FP, SP					; FP, SP				    ; 001990
A79D0008     0384		LDQ	R28, 8(FP)				; R28, 8(FP)
A45D0010     0388		LDQ	R2, 16(FP)				; R2, 16(FP)
47FF0400     038C		CLR	R0					; R0
A7BD0018     0390		LDQ	FP, 24(FP)				; FP, 24(FP)
23DE0020     0394		LDA	SP, 32(SP)				; SP, 32(SP)
6BFC8001     0398		RET	R28					; R28
47FF041F     039C		NOP						; 

Routine Size: 112 bytes,    Routine Base: $CODE$ + 0330

	     03A0	cboldon::											    ; 001992
23DEFFE0     03A0		LDA	SP, -32(SP)				; SP, -32(SP)
47E03411     03A4		MOV	1, R17					; 1, R17				    ; 001995
B77E0000     03A8		STQ	R27, (SP)				; R27, (SP)				    ; 001992
47E05419     03AC		MOV	2, R25					; 2, R25				    ; 001995
B75E0008     03B0		STQ	R26, 8(SP)				; R26, 8(SP)				    ; 001992
B45E0010     03B4		STQ	R2, 16(SP)				; R2, 16(SP)
B7BE0018     03B8		STQ	FP, 24(SP)				; FP, 24(SP)
47FE041D     03BC		MOV	SP, FP					; SP, FP
47FB0402     03C0		MOV	R27, R2					; R27, R2
A782FF80     03C4		LDQ	R28, -128(R2)				; R28, -128(R2)				    ; 001995
A7420020     03C8		LDQ	R26, 32(R2)				; R26, 32(R2)
A7620028     03CC		LDQ	R27, 40(R2)				; R27, 40(R2)
A21C0000     03D0		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     03D4		JSR	R26, DECC$WSETATTR			; R26, R26
A782FF80     03D8		LDQ	R28, -128(R2)				; R28, -128(R2)				    ; 001996
47E03419     03DC		MOV	1, R25					; 1, R25
A762FFA8     03E0		LDQ	R27, -88(R2)				; R27, -88(R2)
A742FFA0     03E4		LDQ	R26, -96(R2)				; R26, -96(R2)

                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page  10
                                cboldon                          5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

A21C0000     03E8		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     03EC		JSR	R26, DECC$WREFRESH			; R26, R26
47FD041E     03F0		MOV	FP, SP					; FP, SP				    ; 001997
A79D0008     03F4		LDQ	R28, 8(FP)				; R28, 8(FP)
A45D0010     03F8		LDQ	R2, 16(FP)				; R2, 16(FP)
47FF0400     03FC		CLR	R0					; R0
A7BD0018     0400		LDQ	FP, 24(FP)				; FP, 24(FP)
23DE0020     0404		LDA	SP, 32(SP)				; SP, 32(SP)
6BFC8001     0408		RET	R28					; R28
47FF041F     040C		NOP						; 

Routine Size: 112 bytes,    Routine Base: $CODE$ + 03A0

	     0410	cattroff::											    ; 002000
23DEFFE0     0410		LDA	SP, -32(SP)				; SP, -32(SP)
47E05411     0414		MOV	2, R17					; 2, R17				    ; 002007
B77E0000     0418		STQ	R27, (SP)				; R27, (SP)				    ; 002000
47E05419     041C		MOV	2, R25					; 2, R25				    ; 002007
B75E0008     0420		STQ	R26, 8(SP)				; R26, 8(SP)				    ; 002000
B45E0010     0424		STQ	R2, 16(SP)				; R2, 16(SP)
B7BE0018     0428		STQ	FP, 24(SP)				; FP, 24(SP)
47FE041D     042C		MOV	SP, FP					; SP, FP
47FB0402     0430		MOV	R27, R2					; R27, R2
A782FFA0     0434		LDQ	R28, -96(R2)				; R28, -96(R2)				    ; 002007
A742FFF0     0438		LDQ	R26, -16(R2)				; R26, -16(R2)
A762FFF8     043C		LDQ	R27, -8(R2)				; R27, -8(R2)
A21C0000     0440		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     0444		JSR	R26, DECC$WCLRATTR			; R26, R26
A782FFA0     0448		LDQ	R28, -96(R2)				; R28, -96(R2)				    ; 002009
47E03419     044C		MOV	1, R25					; 1, R25
A762FFC8     0450		LDQ	R27, -56(R2)				; R27, -56(R2)
A742FFC0     0454		LDQ	R26, -64(R2)				; R26, -64(R2)
A21C0000     0458		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     045C		JSR	R26, DECC$WREFRESH			; R26, R26
47FD041E     0460		MOV	FP, SP					; FP, SP				    ; 002010
A79D0008     0464		LDQ	R28, 8(FP)				; R28, 8(FP)
A45D0010     0468		LDQ	R2, 16(FP)				; R2, 16(FP)
47FF0400     046C		CLR	R0					; R0
A7BD0018     0470		LDQ	FP, 24(FP)				; FP, 24(FP)
23DE0020     0474		LDA	SP, 32(SP)				; SP, 32(SP)
6BFC8001     0478		RET	R28					; R28
47FF041F     047C		NOP						; 

Routine Size: 112 bytes,    Routine Base: $CODE$ + 0410

	     0480	cboldoff::											    ; 002012
23DEFFE0     0480		LDA	SP, -32(SP)				; SP, -32(SP)
47E03411     0484		MOV	1, R17					; 1, R17				    ; 002019
B77E0000     0488		STQ	R27, (SP)				; R27, (SP)				    ; 002012
47E05419     048C		MOV	2, R25					; 2, R25				    ; 002019
B75E0008     0490		STQ	R26, 8(SP)				; R26, 8(SP)				    ; 002012
B45E0010     0494		STQ	R2, 16(SP)				; R2, 16(SP)
B7BE0018     0498		STQ	FP, 24(SP)				; FP, 24(SP)
47FE041D     049C		MOV	SP, FP					; SP, FP
47FB0402     04A0		MOV	R27, R2					; R27, R2
A782FFD0     04A4		LDQ	R28, -48(R2)				; R28, -48(R2)				    ; 002019
A7420020     04A8		LDQ	R26, 32(R2)				; R26, 32(R2)

                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page  11
                                cboldoff                         5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

A7620028     04AC		LDQ	R27, 40(R2)				; R27, 40(R2)
A21C0000     04B0		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     04B4		JSR	R26, DECC$WCLRATTR			; R26, R26
A782FFD0     04B8		LDQ	R28, -48(R2)				; R28, -48(R2)				    ; 002021
47E03419     04BC		MOV	1, R25					; 1, R25
A762FFF8     04C0		LDQ	R27, -8(R2)				; R27, -8(R2)
A742FFF0     04C4		LDQ	R26, -16(R2)				; R26, -16(R2)
A21C0000     04C8		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     04CC		JSR	R26, DECC$WREFRESH			; R26, R26
47FD041E     04D0		MOV	FP, SP					; FP, SP				    ; 002022
A79D0008     04D4		LDQ	R28, 8(FP)				; R28, 8(FP)
A45D0010     04D8		LDQ	R2, 16(FP)				; R2, 16(FP)
47FF0400     04DC		CLR	R0					; R0
A7BD0018     04E0		LDQ	FP, 24(FP)				; FP, 24(FP)
23DE0020     04E4		LDA	SP, 32(SP)				; SP, 32(SP)
6BFC8001     04E8		RET	R28					; R28
47FF041F     04EC		NOP						; 

Routine Size: 112 bytes,    Routine Base: $CODE$ + 0480

	     04F0	cwrite::											    ; 002025
23DEFFC0     04F0		LDA	SP, -64(SP)				; SP, -64(SP)
B77E0000     04F4		STQ	R27, (SP)				; R27, (SP)
B75E0008     04F8		STQ	R26, 8(SP)				; R26, 8(SP)
B45E0010     04FC		STQ	R2, 16(SP)				; R2, 16(SP)
B47E0018     0500		STQ	R3, 24(SP)				; R3, 24(SP)
B49E0020     0504		STQ	R4, 32(SP)				; R4, 32(SP)
B4BE0028     0508		STQ	R5, 40(SP)				; R5, 40(SP)
B7BE0030     050C		STQ	FP, 48(SP)				; FP, 48(SP)
47FE041D     0510		MOV	SP, FP					; SP, FP
47F20403     0514		MOV	R18, size				; R18, R3
47FB0402     0518		MOV	R27, R2					; R27, R2
A0030000     051C		LDL	R0, (R3)				; R0, (R3)				    ; 002034
47F10404     0520		MOV	chrs, ch				; R17, R4				    ; 002033
47FF0405     0524		CLR	i					; R5					    ; 002034
EC000011     0528		BLE	R0, L$18				; R0, L$18
47FF041F     052C		NOP						; 
	     0530	L$19:
2E240000     0530		LDQ_U	R17, (R4)				; R17, (R4)				    ; 002035
22040001     0534		LDA	R16, 1(R4)				; R16, 1(R4)
4A300F51     0538		EXTQH	R17, R16, R17				; R17, R16, R17
4A271791     053C		SRA	R17, 56, R17				; R17, 56, R17
E6200007     0540		BEQ	R17, L$23				; R17, L$23
20840001     0544		LDA	ch, 1(R4)				; R4, 1(R4)
A7820020     0548		LDQ	R28, 32(R2)				; R28, 32(R2)
47E05419     054C		MOV	2, R25					; 2, R25
A7420030     0550		LDQ	R26, 48(R2)				; R26, 48(R2)
A7620038     0554		LDQ	R27, 56(R2)				; R27, 56(R2)
A21C0000     0558		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     055C		JSR	R26, DECC$WADDCH			; R26, R26
	     0560	L$23:												    ; 002034
A0030000     0560		LDL	R0, (R3)				; R0, (R3)
40A03005     0564		ADDL	i, 1, i					; R5, 1, R5
40A009A0     0568		CMPLT	i, R0, R0				; R5, R0, R0
F41FFFF0     056C		BNE	R0, L$19				; R0, L$19
	     0570	L$18:
A7820020     0570		LDQ	R28, 32(R2)				; R28, 32(R2)				    ; 002037

                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page  12
                                cwrite                           5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

47E03419     0574		MOV	1, R25					; 1, R25
A7420040     0578		LDQ	R26, 64(R2)				; R26, 64(R2)
A7620048     057C		LDQ	R27, 72(R2)				; R27, 72(R2)
A21C0000     0580		LDL	R16, DECC$GA_STDSCR			; R16, (R28)
6B5A4000     0584		JSR	R26, DECC$WREFRESH			; R26, R26
47FD041E     0588		MOV	FP, SP					; FP, SP				    ; 002038
A79D0008     058C		LDQ	R28, 8(FP)				; R28, 8(FP)
A45D0010     0590		LDQ	R2, 16(FP)				; R2, 16(FP)
47FF0400     0594		CLR	R0					; R0
A47D0018     0598		LDQ	R3, 24(FP)				; R3, 24(FP)
A49D0020     059C		LDQ	R4, 32(FP)				; R4, 32(FP)
A4BD0028     05A0		LDQ	R5, 40(FP)				; R5, 40(FP)
A7BD0030     05A4		LDQ	FP, 48(FP)				; FP, 48(FP)
23DE0040     05A8		LDA	SP, 64(SP)				; SP, 64(SP)
6BFC8001     05AC		RET	R28					; R28

Routine Size: 192 bytes,    Routine Base: $CODE$ + 04F0

	     05B0	cread::												    ; 002041
23DEFFA0     05B0		LDA	SP, -96(SP)				; SP, -96(SP)
B77E0000     05B4		STQ	R27, (SP)				; R27, (SP)
B75E0010     05B8		STQ	R26, 16(SP)				; R26, 16(SP)
B45E0018     05BC		STQ	R2, 24(SP)				; R2, 24(SP)
B47E0020     05C0		STQ	R3, 32(SP)				; R3, 32(SP)
B49E0028     05C4		STQ	R4, 40(SP)				; R4, 40(SP)
B4BE0030     05C8		STQ	R5, 48(SP)				; R5, 48(SP)
B4DE0038     05CC		STQ	R6, 56(SP)				; R6, 56(SP)
B4FE0040     05D0		STQ	R7, 64(SP)				; R7, 64(SP)
B51E0048     05D4		STQ	R8, 72(SP)				; R8, 72(SP)
B53E0050     05D8		STQ	R9, 80(SP)				; R9, 80(SP)
B7BE0058     05DC		STQ	FP, 88(SP)				; FP, 88(SP)
47FE041D     05E0		MOV	SP, FP					; SP, FP
47F20403     05E4		MOV	R18, size				; R18, R3
47FB0402     05E8		MOV	R27, R2					; R27, R2
A2030000     05EC		LDL	R16, (R3)				; R16, (R3)				    ; 002057
47F40404     05F0		MOV	R20, iact				; R20, R4				    ; 002041
47FF0405     05F4		CLR	kkk					; R5					    ; 002054
47F30406     05F8		MOV	esccod, ec				; R19, R6				    ; 002055
47F10407     05FC		MOV	buf, cp					; R17, R7				    ; 002056
47FF0408     0600		CLR	i					; R8					    ; 002057
EE00002B     0604		BLE	R16, L$5				; R16, L$5
213D0008     0608		LDA	R9, j					; R9, 8(FP)				    ; 002062
47FF041F     060C		NOP						; 
	     0610	L$6:												    ; 002057
A7420020     0610		LDQ	R26, 32(R2)				; R26, 32(R2)				    ; 002063
47E90410     0614		MOV	R9, R16					; R9, R16
A7620028     0618		LDQ	R27, 40(R2)				; R27, 40(R2)
47E03419     061C		MOV	1, R25					; 1, R25
B3FD0008     0620		STL	R31, j					; R31, 8(FP)				    ; 002062
6B5A4000     0624		JSR	R26, IN_CHAR				; R26, R26				    ; 002063
A01D0008     0628		LDL	R0, j					; R0, 8(FP)				    ; 002066
40A03005     062C		ADDL	kkk, 1, kkk				; R5, 1, R5				    ; 002065
441FF001     0630		AND	R0, 255, R1				; R0, 255, R1				    ; 002066
48271721     0634		SLL	R1, 56, cwk				; R1, 56, R1
401FF9B0     0638		CMPLT	R0, 255, R16				; R0, 255, R16				    ; 002067
48271781     063C		SRA	cwk, 56, cwk				; R1, 56, R1				    ; 002066
E6000002     0640		BEQ	R16, L$7				; R16, L$7				    ; 002067

                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page  13
                                cread                            5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

4021B5A1     0644		CMPEQ	cwk, 13, R1				; R1, 13, R1
46010010     0648		AND	R16, R1, R16				; R16, R1, R16
	     064C	L$7:
47E15411     064C		MOV	10, R17					; 10, R17
461104C0     0650		CMOVNE	R16, R17, R0				; R16, R17, R0
B01D0008     0654		STL	R0, j					; R0, 8(FP)
47E70414     0658		MOV	cp, R20					; R7, R20				    ; 002071
43E00012     065C		SEXTL	R0, l					; R0, R18				    ; 002068
B2460000     0660		STL	l, (R6)					; R18, (R6)				    ; 002069
A27D0008     0664		LDL	R19, j					; R19, 8(FP)				    ; 002071
23270001     0668		LDA	R25, 1(R7)				; R25, 1(R7)
2ED40000     066C		LDQ_U	R22, (R20)				; R22, (R20)
47F90407     0670		MOV	R25, cp					; R25, R7
4A60F173     0674		INSBL	R19, 7, R19				; R19, 7, R19
4AD40056     0678		MSKBL	R22, R20, R22				; R22, R20, R22
4A671793     067C		SRA	R19, 56, R19				; R19, 56, R19
4A740177     0680		INSBL	R19, R20, R23				; R19, R20, R23
46D70416     0684		BIS	R22, R23, R22				; R22, R23, R22
3ED40000     0688		STQ_U	R22, (R20)				; R22, (R20)
B0A40000     068C		STL	kkk, (R4)				; R5, (R4)				    ; 002072
A31D0008     0690		LDL	R24, j					; R24, 8(FP)				    ; 002073
4701581A     0694		XOR	R24, 10, R26				; R24, 10, R26
E7400017     0698		BEQ	R26, L$8				; R26, L$8
4701B818     069C		XOR	R24, 13, R24				; R24, 13, R24				    ; 002074
E7000017     06A0		BEQ	R24, L$10				; R24, L$10
A3630000     06A4		LDL	R27, (R3)				; R27, (R3)				    ; 002057
41003008     06A8		ADDL	i, 1, i					; R8, 1, R8
411B09BB     06AC		CMPLT	i, R27, R27				; R8, R27, R27
F77FFFD7     06B0		BNE	R27, L$6				; R27, L$6
	     06B4	L$5:
B0A40000     06B4		STL	kkk, (R4)				; R5, (R4)				    ; 002076
47FF0400     06B8		CLR	R0					; R0					    ; 002077
47FF041F     06BC		NOP						; 
	     06C0	L$13:
47FD041E     06C0		MOV	FP, SP					; FP, SP
A79D0010     06C4		LDQ	R28, 16(FP)				; R28, 16(FP)
A45D0018     06C8		LDQ	R2, 24(FP)				; R2, 24(FP)
A47D0020     06CC		LDQ	R3, 32(FP)				; R3, 32(FP)
A49D0028     06D0		LDQ	R4, 40(FP)				; R4, 40(FP)
A4BD0030     06D4		LDQ	R5, 48(FP)				; R5, 48(FP)
A4DD0038     06D8		LDQ	R6, 56(FP)				; R6, 56(FP)
A4FD0040     06DC		LDQ	R7, 64(FP)				; R7, 64(FP)
A51D0048     06E0		LDQ	R8, 72(FP)				; R8, 72(FP)
A53D0050     06E4		LDQ	R9, 80(FP)				; R9, 80(FP)
A7BD0058     06E8		LDQ	FP, 88(FP)				; FP, 88(FP)
23DE0060     06EC		LDA	SP, 96(SP)				; SP, 96(SP)
6BFC8001     06F0		RET	R28					; R28
47FF041F     06F4		NOP						; 
	     06F8	L$8:												    ; 002073
47E80400     06F8		MOV	i, R0					; R8, R0
C3FFFFF0     06FC		BR	L$13					; L$13
	     0700	L$10:												    ; 002074
47E80400     0700		MOV	i, R0					; R8, R0
C3FFFFEE     0704		BR	L$13					; L$13

Routine Size: 344 bytes,    Routine Base: $CODE$ + 05B0


                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page  14
                                cread                            5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

				.PSECT	$DATA$, OCTA, NOPIC, CON, REL, LCL,-
					NOSHR, NOEXE, RD, WRT
	     0000	winptr::
             0000		.ADDRESS  8
	     0004	stdwin::
             0004		.ADDRESS  8
	     0008	xssize::
00000000     0008		.LONG	0
	     000C	yssize::
00000000     000C		.LONG	0
	     0010	ciLINES::
00000000     0010		.LONG	0
	     0014	ciCOLS::
00000000     0014		.LONG	0

				.PSECT	$LINK$, OCTA, NOPIC, CON, REL, LCL,-
					NOSHR, NOEXE, RD, NOWRT

	     0000		; Heavyweight Frame invocation descriptor
				Entry point:	       cread
				Registers used:        R0-R9, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       R2-R9, FP
				Fixed Stack Size:      96

	     0020		.LINKAGE  IN_CHAR

	     0030		; Heavyweight Frame invocation descriptor
				Entry point:	       cwrite
				Registers used:        R0-R5, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       R2-R5, FP
				Fixed Stack Size:      64

00000000     0050		.ADDRESS  DECC$GA_STDSCR
	     0060		.LINKAGE  DECC$WADDCH
	     0070		.LINKAGE  DECC$WREFRESH

	     0080		; Heavyweight Frame invocation descriptor
				Entry point:	       cboldoff
				Registers used:        R0-R2, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       R2, FP
				Fixed Stack Size:      32

	     00A0		.LINKAGE  DECC$WCLRATTR

	     00B0		; Heavyweight Frame invocation descriptor
				Entry point:	       cattroff
				Registers used:        R0-R2, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       R2, FP
				Fixed Stack Size:      32


	     00D0		; Heavyweight Frame invocation descriptor
				Entry point:	       cboldon
				Registers used:        R0-R2, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       R2, FP
				Fixed Stack Size:      32


                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page  15
                                cread                            5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

	     00F0		.LINKAGE  DECC$WSETATTR

	     0100		; Heavyweight Frame invocation descriptor
				Entry point:	       cattron
				Registers used:        R0-R2, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       R2, FP
				Fixed Stack Size:      32


	     0120		; Heavyweight Frame invocation descriptor
				Entry point:	       crefresh
				Registers used:        R0-R1, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       FP
				Fixed Stack Size:      32


	     0140		; Heavyweight Frame invocation descriptor
				Entry point:	       ccleareol
				Registers used:        R0-R2, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       R2, FP
				Fixed Stack Size:      32

	     0160		.LINKAGE  DECC$WCLRTOEOL

	     0170		; Heavyweight Frame invocation descriptor
				Entry point:	       cclear
				Registers used:        R0-R2, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       R2, FP
				Fixed Stack Size:      32

	     0190		.LINKAGE  DECC$WCLEAR

	     01A0		; Heavyweight Frame invocation descriptor
				Entry point:	       cmove
				Registers used:        R0-R2, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       R2, FP
				Fixed Stack Size:      32

	     01C0		.LINKAGE  DECC$WMOVE

	     01D0		; Heavyweight Frame invocation descriptor
				Entry point:	       cclose
				Registers used:        R0-R2, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       R2, FP
				Fixed Stack Size:      32

	     01F0		.LINKAGE  DECC$ENDWIN
00000000     0200		.ADDRESS  DECC$GA_STDKB

	     0208		; Null-Frame invocation descriptor
				Entry point:	       cgetsz
				Registers used:        R0-R1, R16-R17, R27

00000008     0218		.ADDRESS  $DATA$+8

	     0220		; Heavyweight Frame invocation descriptor
				Entry point:	       copen

                                Machine Code Listing             5-OCT-1992 10:01:44    DEC C T1.0-046B-236H                Page  16
                                cread                            5-OCT-1992 10:01:23    DC:[TAPEALPHA.ANALY.ANALYRIM]CINTERFACE.C;15

				Registers used:        R0-R3, R16-R27, FP, F0-F1, F10-F30
				Registers saved:       R2-R3, FP
				Fixed Stack Size:      48

	     0240		.LINKAGE  DECC$INITSCR
00000000     0250		.ADDRESS  DECC$GA_LINES
00000000     0258		.ADDRESS  DECC$GA_COLS


Command Line
------- ----

GEMC$CC /NOANSI_ALIAS/ALIGNED_OBJECTS_ASSUMED/NOCROSS_REFERENCE/NODEBUG
/FLOAT=G_FLOAT/LIST/MACHINE_CODE/NAMES=UPPERCASE/OBJECT/OPTIMIZE/PREFIX=(ALL_ENTRIES)
/SHOW=(HEADER,SOURCE)/SIGNED_CHAR/STANDARD=VAXC/WARNINGS
</pre></body></html>