URL https://opencores.org/ocsvn/or1k_old/or1k_old/trunk

Subversion Repositories or1k_old

[/] [or1k_old/] [trunk/] [newlib/] [newlib/] [libc/] [sys/] [go32/] [screen.S] - Blame information for rev 1782

Details | Compare with Previous | View Log


/* This is file SCREEN.S */
/*
** Copyright (C) 1993 DJ Delorie, 24 Kirsten Ave, Rochester NH 03867-2954
**
** This file is distributed under the terms listed in the document
** "copying.dj", available from DJ Delorie at the address above.
** A copy of "copying.dj" should accompany this file; if not, a copy
** should be available from where this file was obtained.  This file
** may not be distributed without a verbatim copy of "copying.dj".
**
** This file is distributed WITHOUT ANY WARRANTY; without even the implied
** warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**
** Modified by J. Alan Eldridge, Liberty Brokerage, 77 Water St, NYC 10005
**
** added global char ScreenAttrib -- this is the attribute
** used by ScreenClear(): it defaults to 0x07 so as not to
** break existing code.
**
** Modified by C. Sandmann (sandmann@clio.rice.edu) for DPMI support
** Combined SCREEN2.S and SCREEN.C into SCREEN.S
*/
 
        .data
 
        .globl  _ScreenAttrib
_ScreenAttrib:
        .byte 0x07
 
        .text
 
        .align 2
        .globl  _ScreenSetCursor
                /* row, col */
_ScreenSetCursor:
        pushl   %ebp
        movl    %esp,%ebp
        pushl   %ebx
        pushl   %esi
        pushl   %edi
        movb    $0x02,%ah
        movb    $0,%bh
        movb    8(%ebp),%dh
        movb    12(%ebp),%dl
        int     $0x10
        popl    %edi
        popl    %esi
        popl    %ebx
        popl    %ebp
        ret
 
        .align 2
        .globl  _ScreenGetCursor
                 /* &row, &col */
_ScreenGetCursor:
        pushl   %ebp
        movl    %esp,%ebp
        pushl   %ebx
        pushl   %esi
        pushl   %edi
        movb    $0x03,%ah
        movb    $0,%bh
        pushl   %ebp
        int     $0x10
        popl    %ebp
        movl    8(%ebp),%esi
        movzbl  %dh,%eax
        movl    %eax,(%esi)
        movl    12(%ebp),%esi
        movzbl  %dl,%eax
        movl    %eax,(%esi)
        popl    %edi
        popl    %esi
        popl    %ebx
        popl    %ebp
        ret
 
        .align 2
        .globl  _ScreenClear
_ScreenClear:
        pushl   %edi
        call    _ScreenCols
        movl    %eax,%ecx
        call    _ScreenRows
                /* ECX is total words to store */
        imull   %eax,%ecx
        movl    _ScreenPrimary,%eax
        call    dosmemsetup
        movl    %eax,%edi
        push    %es
        push    %gs
        pop     %es
        movb    $0x20,%al
        movb    _ScreenAttrib,%ah
        rep
        stosw
        pop     %es
        popl    %edi
        ret
 
        .align 2
        .globl _ScreenRows
_ScreenRows:
        movl    $0x484,%eax
        call    dosmemsetup
        movzbl  %gs:(%eax),%eax
        incl    %eax
        ret
 
        .align 2
        .globl _ScreenCols
_ScreenCols:
        movl    $0x44a,%eax
        call    dosmemsetup
        movzwl  %gs:(%eax),%eax
        ret
 
        .align 2
        .globl _ScreenMode
_ScreenMode:
        movl    $0x449,%eax
        call    dosmemsetup
        movzbl  %gs:(%eax),%eax
        ret
 
        .align 2
        .globl _ScreenPutChar
_ScreenPutChar:
                /* int ch, int attr, unsigned x, unsigned y */
/*
  if ( (x >= ScreenCols()) || (y >= ScreenRows())) return;
  ch &= 0xff;
  attr = (attr & 0xff) << 8;
  *(unsigned short *)(ScreenPrimary+x+y*ScreenCols()) = ch | attr;
*/
        call    _ScreenRows
        cmpl    %eax,16(%esp)
        jae     L1
        call    _ScreenCols
        cmpl    %eax,12(%esp)
        jae     L1
                                /* Out of range */
        movl    %eax,%edx
        imull   16(%esp),%edx
        addl    12(%esp),%edx
                        /* EDX = x + y*ScreenCols */
 
        movb    4(%esp),%cl
        movb    8(%esp),%ch
 
        movl    _ScreenPrimary,%eax
        call    dosmemsetup
        movw    %cx,%gs:(%eax,%edx,2)
L1:
        ret
 
/* A quick way to update the screen from a logical video buffer, used
   primarily for DPMI full screen management */
        .align 2
        .globl _ScreenUpdate
                /* (void *)screenbuf */
_ScreenUpdate:
        call    _ScreenRows
        movl    %eax,%ecx
        call    _ScreenCols
        imull   %eax,%ecx
        sarl    $1,%ecx
                        /* Number of long words in screen */
 
        movl    _ScreenPrimary,%eax
        call    dosmemsetup
        movl    4(%esp),%edx
                /* screenbuf */
 
        pushl   %esi
        pushl   %edi
        movl    %eax,%edi
        movl    %edx,%esi
        push    %es
        push    %gs
        pop     %es
        rep
        movsl
                                        /* move ECX bytes to Real area */
        pop     %es
        popl    %edi
        popl    %esi
        ret
 
/* A quick way to update a screen line from a logical video buffer, used
   primarily for DPMI full screen management */
        .align 2
        .globl _ScreenUpdateLine
                /* (void *)screenline, int row */
_ScreenUpdateLine:
        call    _ScreenCols
        movl    %eax,%ecx
        sarl    $1,%ecx
                        /* Number of long words in screen line */
        shll    $1,%eax
        imull   8(%esp),%eax
        addl    _ScreenPrimary,%eax
        call    dosmemsetup
        movl    4(%esp),%edx
                /* screenbuf */
 
        pushl   %esi
        pushl   %edi
        movl    %eax,%edi
        movl    %edx,%esi
        push    %es
        push    %gs
        pop     %es
        rep
        movsl
                                        /* move ECX bytes to Real area */
        pop     %es
        popl    %edi
        popl    %esi
        ret
 
 
/* A quick way to update the screen from a logical video buffer, used
   primarily for DPMI full screen management */
        .align 2
        .globl _ScreenRetrieve
                /* (void *)screenbuf */
_ScreenRetrieve:
        call    _ScreenRows
        movl    %eax,%ecx
        call    _ScreenCols
        imull   %eax,%ecx
        sarl    $1,%ecx
                        /* Number of long words in screen */
 
        movl    _ScreenPrimary,%eax
        call    dosmemsetup
        movl    4(%esp),%edx
                /* screenbuf */
 
        pushl   %esi
        pushl   %edi
        movl    %eax,%esi
        movl    %edx,%edi
        push    %ds
        push    %gs
        pop     %ds
        rep
        movsl
                                        /* move ECX bytes to Real area */
        pop     %ds
        popl    %edi
        popl    %esi
        ret
 
 

Browse

Tools

Subversion Repositories or1k_old

[/] [or1k_old/] [trunk/] [newlib/] [newlib/] [libc/] [sys/] [go32/] [screen.S] - Blame information for rev 1782

Line No.	Rev	Author	Line
1	39	lampret	`/* This is file SCREEN.S */`
2			`/*`
3			`** Copyright (C) 1993 DJ Delorie, 24 Kirsten Ave, Rochester NH 03867-2954`
4			`**`
5			`** This file is distributed under the terms listed in the document`
6			`** "copying.dj", available from DJ Delorie at the address above.`
7			`** A copy of "copying.dj" should accompany this file; if not, a copy`
8			`** should be available from where this file was obtained. This file`
9			`** may not be distributed without a verbatim copy of "copying.dj".`
10			`**`
11			`** This file is distributed WITHOUT ANY WARRANTY; without even the implied`
12			`** warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.`
13			`**`
14			`** Modified by J. Alan Eldridge, Liberty Brokerage, 77 Water St, NYC 10005`
15			`**`
16			`** added global char ScreenAttrib -- this is the attribute`
17			`** used by ScreenClear(): it defaults to 0x07 so as not to`
18			`** break existing code.`
19			`**`
20			`** Modified by C. Sandmann (sandmann@clio.rice.edu) for DPMI support`
21			`** Combined SCREEN2.S and SCREEN.C into SCREEN.S`
22			`*/`
23
24			`.data`
25
26			`.globl _ScreenAttrib`
27			`_ScreenAttrib:`
28			`.byte 0x07`
29
30			`.text`
31
32			`.align 2`
33			`.globl _ScreenSetCursor`
34			`/* row, col */`
35			`_ScreenSetCursor:`
36			`pushl %ebp`
37			`movl %esp,%ebp`
38			`pushl %ebx`
39			`pushl %esi`
40			`pushl %edi`
41			`movb $0x02,%ah`
42			`movb $0,%bh`
43			`movb 8(%ebp),%dh`
44			`movb 12(%ebp),%dl`
45			`int $0x10`
46			`popl %edi`
47			`popl %esi`
48			`popl %ebx`
49			`popl %ebp`
50			`ret`
51
52			`.align 2`
53			`.globl _ScreenGetCursor`
54			`/* &row, &col */`
55			`_ScreenGetCursor:`
56			`pushl %ebp`
57			`movl %esp,%ebp`
58			`pushl %ebx`
59			`pushl %esi`
60			`pushl %edi`
61			`movb $0x03,%ah`
62			`movb $0,%bh`
63			`pushl %ebp`
64			`int $0x10`
65			`popl %ebp`
66			`movl 8(%ebp),%esi`
67			`movzbl %dh,%eax`
68			`movl %eax,(%esi)`
69			`movl 12(%ebp),%esi`
70			`movzbl %dl,%eax`
71			`movl %eax,(%esi)`
72			`popl %edi`
73			`popl %esi`
74			`popl %ebx`
75			`popl %ebp`
76			`ret`
77
78			`.align 2`
79			`.globl _ScreenClear`
80			`_ScreenClear:`
81			`pushl %edi`
82			`call _ScreenCols`
83			`movl %eax,%ecx`
84			`call _ScreenRows`
85			`/* ECX is total words to store */`
86			`imull %eax,%ecx`
87			`movl _ScreenPrimary,%eax`
88			`call dosmemsetup`
89			`movl %eax,%edi`
90			`push %es`
91			`push %gs`
92			`pop %es`
93			`movb $0x20,%al`
94			`movb _ScreenAttrib,%ah`
95			`rep`
96			`stosw`
97			`pop %es`
98			`popl %edi`
99			`ret`
100
101			`.align 2`
102			`.globl _ScreenRows`
103			`_ScreenRows:`
104			`movl $0x484,%eax`
105			`call dosmemsetup`
106			`movzbl %gs:(%eax),%eax`
107			`incl %eax`
108			`ret`
109
110			`.align 2`
111			`.globl _ScreenCols`
112			`_ScreenCols:`
113			`movl $0x44a,%eax`
114			`call dosmemsetup`
115			`movzwl %gs:(%eax),%eax`
116			`ret`
117
118			`.align 2`
119			`.globl _ScreenMode`
120			`_ScreenMode:`
121			`movl $0x449,%eax`
122			`call dosmemsetup`
123			`movzbl %gs:(%eax),%eax`
124			`ret`
125
126			`.align 2`
127			`.globl _ScreenPutChar`
128			`_ScreenPutChar:`
129			`/* int ch, int attr, unsigned x, unsigned y */`
130			`/*`
131			`if ( (x >= ScreenCols()) \|\| (y >= ScreenRows())) return;`
132			`ch &= 0xff;`
133			`attr = (attr & 0xff) << 8;`
134			`(unsigned short )(ScreenPrimary+x+y*ScreenCols()) = ch \| attr;`
135			`*/`
136			`call _ScreenRows`
137			`cmpl %eax,16(%esp)`
138			`jae L1`
139			`call _ScreenCols`
140			`cmpl %eax,12(%esp)`
141			`jae L1`
142			`/* Out of range */`
143			`movl %eax,%edx`
144			`imull 16(%esp),%edx`
145			`addl 12(%esp),%edx`
146			`/* EDX = x + yScreenCols /`
147
148			`movb 4(%esp),%cl`
149			`movb 8(%esp),%ch`
150
151			`movl _ScreenPrimary,%eax`
152			`call dosmemsetup`
153			`movw %cx,%gs:(%eax,%edx,2)`
154			`L1:`
155			`ret`
156
157			`/* A quick way to update the screen from a logical video buffer, used`
158			`primarily for DPMI full screen management */`
159			`.align 2`
160			`.globl _ScreenUpdate`
161			`/* (void )screenbuf /`
162			`_ScreenUpdate:`
163			`call _ScreenRows`
164			`movl %eax,%ecx`
165			`call _ScreenCols`
166			`imull %eax,%ecx`
167			`sarl $1,%ecx`
168			`/* Number of long words in screen */`
169
170			`movl _ScreenPrimary,%eax`
171			`call dosmemsetup`
172			`movl 4(%esp),%edx`
173			`/* screenbuf */`
174
175			`pushl %esi`
176			`pushl %edi`
177			`movl %eax,%edi`
178			`movl %edx,%esi`
179			`push %es`
180			`push %gs`
181			`pop %es`
182			`rep`
183			`movsl`
184			`/* move ECX bytes to Real area */`
185			`pop %es`
186			`popl %edi`
187			`popl %esi`
188			`ret`
189
190			`/* A quick way to update a screen line from a logical video buffer, used`
191			`primarily for DPMI full screen management */`
192			`.align 2`
193			`.globl _ScreenUpdateLine`
194			`/* (void )screenline, int row /`
195			`_ScreenUpdateLine:`
196			`call _ScreenCols`
197			`movl %eax,%ecx`
198			`sarl $1,%ecx`
199			`/* Number of long words in screen line */`
200			`shll $1,%eax`
201			`imull 8(%esp),%eax`
202			`addl _ScreenPrimary,%eax`
203			`call dosmemsetup`
204			`movl 4(%esp),%edx`
205			`/* screenbuf */`
206
207			`pushl %esi`
208			`pushl %edi`
209			`movl %eax,%edi`
210			`movl %edx,%esi`
211			`push %es`
212			`push %gs`
213			`pop %es`
214			`rep`
215			`movsl`
216			`/* move ECX bytes to Real area */`
217			`pop %es`
218			`popl %edi`
219			`popl %esi`
220			`ret`
221
222
223			`/* A quick way to update the screen from a logical video buffer, used`
224			`primarily for DPMI full screen management */`
225			`.align 2`
226			`.globl _ScreenRetrieve`
227			`/* (void )screenbuf /`
228			`_ScreenRetrieve:`
229			`call _ScreenRows`
230			`movl %eax,%ecx`
231			`call _ScreenCols`
232			`imull %eax,%ecx`
233			`sarl $1,%ecx`
234			`/* Number of long words in screen */`
235
236			`movl _ScreenPrimary,%eax`
237			`call dosmemsetup`
238			`movl 4(%esp),%edx`
239			`/* screenbuf */`
240
241			`pushl %esi`
242			`pushl %edi`
243			`movl %eax,%esi`
244			`movl %edx,%edi`
245			`push %ds`
246			`push %gs`
247			`pop %ds`
248			`rep`
249			`movsl`
250			`/* move ECX bytes to Real area */`
251			`pop %ds`
252			`popl %edi`
253			`popl %esi`
254			`ret`
255
256