Äîêóìåíò âçÿò èç êýøà ïîèñêîâîé ìàøèíû. Àäðåñ îðèãèíàëüíîãî äîêóìåíòà : http://www.naic.edu/~phil/hardware/vertex/sharemegsvertex/lcu/user/v2_0d/Listsun/outram.lst Äàòà èçìåíåíèÿ: Wed Dec 29 18:12:07 1999 Äàòà èíäåêñèðîâàíèÿ: Thu Jan 15 15:09:16 2009 Êîäèðîâêà: Ïîèñêîâûå ñëîâà: m 80



CP581 PAGE 1
outram 12-28-99
09:40:30

Line# Source Line Microsoft C Compiler Version 6.00A

1 #include "prog.h"
2 /* ************************************************************* */
3 void outram (int iza,int ize,int isa,int ise,int k3,int io,int nt
ext,char* ttext) /* monilib *
/
4 /* Ausgabe zum Monitor in Zeile iz, Spalte is mit Option io */
5 /* Ausgegeben wird der Text ttext mit ntext Zeichen. */
6 /* Besser ist, wenn Optionendefinition = Speicherinhalt k3 */
7 /* Option io : */
8 /* 0 0 0 x 0 x x x */
9 /* | | | | */
10 /* +-- hell nicht clr | | +-- nur Option Bit setzen */
11 /* | +---- nur Option Bit clr. */
12 /* +------ nur Option wechseln */
13 /* */
14 /* x 0 x x x x 0 x */
15 /* | | | | | | */
16 /* | | +-- clr Bild | | +-- hell (nur Bit set) */
17 /* | +---- clr Zeile | | */
18 /* | | +------ blinken */
19 /* +-------- (Sonderz.) +-------- reverse */
20 /* ************************************************************* */
21 {
***** outram.c(21) : warning C4028: parameter 1 declaration different
***** outram.c(21) : warning C4028: parameter 2 declaration different
***** outram.c(21) : warning C4028: parameter 3 declaration different
***** outram.c(21) : warning C4028: parameter 4 declaration different
***** outram.c(21) : warning C4028: parameter 5 declaration different
***** outram.c(21) : warning C4028: parameter 6 declaration different
***** outram.c(21) : warning C4028: parameter 7 declaration different
***** outram.c(21) : warning C4028: parameter 8 declaration different
22
23
24 int tt[200];
25
26 int m, m1, m2, i, i1, k, k1, k2;
27
28 int monza,monze,monsa,monse,monio,monanz;
29 char *montxt;
30
31 monza = iza;
32 monze = ize;
33 monsa = isa;
34 monse = ise;
35 monio = io;
36 monanz = ntext;
37 montxt = ttext;
38


CP581 PAGE 2
outram 12-28-99
09:40:30

Line# Source Line Microsoft C Compiler Version 6.00A

39
40 k1 = 0x0000; /* Adresse k2:k1 */
41 /*** k2 = 0xB000;***/
42 k2 = 0xB800;
43 /*** k3 = 0x0700;***/ /* Schwarz / weiú normal
*/
44 /*** k3 = 0x0600;braun ***/
45 /*** k3 = 0x0400;***/ /* rot */
46
47 m1 = monio & 0x0008; /* reverse */
48 if (m1 != 0) k3 = 0x7000;
49 m1 = monio & 0x0001; /* hell */
50 if (m1 != 0) k3 = k3 | 0x0800;
51 m1 = monio & 0x0004; /* blinken */
52 if (m1 != 0) k3 = k3 | 0x8000;
53
54 m1 = monio & 0x0700; /* nur Option Ändern */
55 if (m1 == 0) goto W1;
56
57 m2 = k3 & 0xF8FF;
58 for (m = monza; m <= monze; m++)
59 for (i = monsa; i <= monse; i++)
60 { i1 = monpos (m, i);
***** outram.c(60) : warning C4016: 'monpos' : no function return type, using i
nt as default
***** outram.c(60) : warning C4071: 'monpos' : no function prototype given
61 if (m1 == 0x100) monops (k1, k2, i1, m2); /* Bit set */
***** outram.c(61) : warning C4016: 'monops' : no function return type, using i
nt as default
***** outram.c(61) : warning C4071: 'monops' : no function prototype given
62 if (m1 == 0x200) monopc (k1, k2, i1, m2); /* Bit clr */
***** outram.c(62) : warning C4016: 'monopc' : no function return type, using i
nt as default
***** outram.c(62) : warning C4071: 'monopc' : no function prototype given
63 if (m1 == 0x400) monopt (k1, k2, i1, k3); /* change */
***** outram.c(63) : warning C4016: 'monopt' : no function return type, using i
nt as default
***** outram.c(63) : warning C4071: 'monopt' : no function prototype given
64 }
65 goto E;
66
67 W1: m1 = monio & 0x0010; /* Bild lÆschen */
68 if (m1 != 0)
69 for (m = 0; m < 25; m++)
70 for (i = 0; i < 80; i++)
71 monsub (k1, k2, m*80+i, 0x0720);
***** outram.c(71) : warning C4016: 'monsub' : no function return type, using i
nt as default
***** outram.c(71) : warning C4071: 'monsub' : no function prototype given
72
73 m1 = monio & 0x0020; /* Zeile lÆschen */
74 if (m1 != 0)
75 for (m = monza; m <= monze; m++)
76 for (i = 0; i < 80; i++)
77 monsub (k1, k2, (m-1)*80+i, 0x0720);
78
79 k = 0; /* Text anzeigen */
80 for (m = monsa; m <= monse; m = m + monanz)
81 for (i = 0; i < monanz; i++)
82 tt[k++] = (montxt[i] & 0x00FF) | k3;
83
84 m1 = monio & 0x1000; /* hell nicht lÆschen */
85 for (m = monza; m <= monze; m++) /* Zeichenanzeige */
86 { i1 = monpos (m, monsa);
87 for (i = 0; i < k; i++)
88 { if (m1 == 0) monsub (k1, k2, i1+i, tt[i]);
89 if (m1 != 0) monclr (k1, k2, i1+i, tt[i]);
***** outram.c(89) : warning C4016: 'monclr' : no function return type, using i
nt as default
***** outram.c(89) : warning C4071: 'monclr' : no function prototype given
90 } }
91
92 E: return; }



CP581 PAGE 3
outram 12-28-99
09:40:30

Microsoft C Compiler Version 6.00A

outram Local Symbols

Name Class Type Size Offset Register

m2. . . . . . . . . . . . auto -01b0
m1. . . . . . . . . . . . auto -01ae
monsa . . . . . . . . . . auto -01ac
m . . . . . . . . . . . . auto -01aa
k2. . . . . . . . . . . . auto -01a8
k1. . . . . . . . . . . . auto -01a6
k . . . . . . . . . . . . auto -01a4
i1. . . . . . . . . . . . auto -01a2
montxt. . . . . . . . . . auto -01a0
i . . . . . . . . . . . . auto -019c
monze . . . . . . . . . . auto -019a
tt. . . . . . . . . . . . auto -0198
monza . . . . . . . . . . auto -0008
monanz. . . . . . . . . . auto -0006
monse . . . . . . . . . . auto -0004
monio . . . . . . . . . . auto -0002
iza . . . . . . . . . . . param 0006
ize . . . . . . . . . . . param 0008
isa . . . . . . . . . . . param 000a
ise . . . . . . . . . . . param 000c
k3. . . . . . . . . . . . param 000e
io. . . . . . . . . . . . param 0010
ntext . . . . . . . . . . param 0012
ttext . . . . . . . . . . param 0014

93 /* ************************************************************* */
94 monsub (int v[], int i1, int tt)
95 /* 1 Zeichen in den Video-Buffer speichern */
96 /* ************************************************************* */
97
98 {
99 v[i1] = tt;
100 return; }
***** outram.c(100) : warning C4033: function must return a value
***** outram.c(100) : warning C4035: 'monsub' : no return value


monsub Local Symbols

Name Class Type Size Offset Register

v . . . . . . . . . . . . param 0006
i1. . . . . . . . . . . . param 000a
tt. . . . . . . . . . . . param 000c

101 /* ************************************************************* */
102 monclr (int v[], int i1, int tt)
103 /* 1 Zeichen in den Video-Buffer speichern */
104 /* Option hell wird nicht gelÆscht */
105 /* ************************************************************* */


CP581 PAGE 4
outram 12-28-99
09:40:30

Line# Source Line Microsoft C Compiler Version 6.00A

106
107 {
108 v[i1] = tt | (v[i1] & 0x0800);
109 return; }
***** outram.c(109) : warning C4033: function must return a value
***** outram.c(109) : warning C4035: 'monclr' : no return value


monclr Local Symbols

Name Class Type Size Offset Register

v . . . . . . . . . . . . param 0006
i1. . . . . . . . . . . . param 000a
tt. . . . . . . . . . . . param 000c

110 /* ************************************************************* */
111 monpos (int iz,int is)
112 /* Cursor - Position Zeile iz und Spalte is. */
113 /* Berechnung des Bufferoffsets i1; */
114 /* ************************************************************* */
115
116 {
117 int i1;
118
119 i1 = (iz - 1) * 80 + is - 1;
120 return (i1); }


monpos Local Symbols

Name Class Type Size Offset Register

i1. . . . . . . . . . . . auto -0002
iz. . . . . . . . . . . . param 0006
is. . . . . . . . . . . . param 0008

121 /* ************************************************************* */
122 monopt (int v[], int i1, int tt)
123 /* FÝr 1 Zeichen im Video-Buffer wird die Option geÄndert */
124 /* ************************************************************* */
125
126 {
127 v[i1] = (v[i1] & 0x00FF) | (tt & 0xFF00);
128 return; }
***** outram.c(128) : warning C4033: function must return a value
***** outram.c(128) : warning C4035: 'monopt' : no return value



CP581 PAGE 5
outram 12-28-99
09:40:30

Microsoft C Compiler Version 6.00A

monopt Local Symbols

Name Class Type Size Offset Register

v . . . . . . . . . . . . param 0006
i1. . . . . . . . . . . . param 000a
tt. . . . . . . . . . . . param 000c

129 /* ************************************************************* */
130 monops (int v[], int i1, int tt)
131 /* FÝr 1 Zeichen im wird die Option durch Bit set geÄndert */
132 /* ************************************************************* */
133
134 {
135 v[i1] = v[i1] | tt; /* Bit set */
136 return; }
***** outram.c(136) : warning C4033: function must return a value
***** outram.c(136) : warning C4035: 'monops' : no return value


monops Local Symbols

Name Class Type Size Offset Register

v . . . . . . . . . . . . param 0006
i1. . . . . . . . . . . . param 000a
tt. . . . . . . . . . . . param 000c

137 /* ************************************************************* */
138 monopc (int v[], int i1,int tt)
139 /* FÝr 1 Zeichen im wird die Option durch Bit clear geÄndert */
140 /* ************************************************************* */
141
142 {
143 v[i1] = v[i1] & ~tt; /* Bit clr */
144 return; }
***** outram.c(144) : warning C4033: function must return a value
***** outram.c(144) : warning C4035: 'monopc' : no return value


monopc Local Symbols

Name Class Type Size Offset Register

v . . . . . . . . . . . . param 0006
i1. . . . . . . . . . . . param 000a
tt. . . . . . . . . . . . param 000c



CP581 PAGE 6
outram 12-28-99
09:40:30

Microsoft C Compiler Version 6.00A

Global Symbols

Name Class Type Size Offset

monclr. . . . . . . . . . global far function *** 02ee
monopc. . . . . . . . . . global far function *** 0354
monops. . . . . . . . . . global far function *** 033e
monopt. . . . . . . . . . global far function *** 0320
monpos. . . . . . . . . . global far function *** 0310
monsub. . . . . . . . . . global far function *** 02d8
outram. . . . . . . . . . global far function *** 0000

Code size = 036c (876)
Data size = 0000 (0)
Bss size = 0000 (0)

No errors detected