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 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 < *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<*size;i++){ 2058 #ifndef VAX11C X 2059 j=getch(); X 2060 #endif 2061 #ifdef VAX11C 2062 j = 0; 2063 in_char(&j); 2064 #endif 2065 kkk++; 2066 cwk=j & 255; 2067 if ((j < 255) && (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 & 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