Initial revision
[ssr] / StraySrc / Libraries / Sapphire / sh / screen
1 ;
2 ; screen.sh
3 ;
4 ; Screen mode information caching
5 ;
6 ; © 1994-1998 Straylight
7 ;
8
9 ;----- Licensing note -------------------------------------------------------
10 ;
11 ; This file is part of Straylight's Sapphire library.
12 ;
13 ; Sapphire is free software; you can redistribute it and/or modify
14 ; it under the terms of the GNU General Public License as published by
15 ; the Free Software Foundation; either version 2, or (at your option)
16 ; any later version.
17 ;
18 ; Sapphire is distributed in the hope that it will be useful,
19 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ; GNU General Public License for more details.
22 ;
23 ; You should have received a copy of the GNU General Public License
24 ; along with Sapphire. If not, write to the Free Software Foundation,
25 ; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
26
27 ;----- Overview -------------------------------------------------------------
28 ;
29 ; Functions provided:
30 ;
31 ; screen_getInfo
32 ; screen_cache
33 ; screen_justChangedMode
34 ; screen_init
35
36 [ :LNOT::DEF:screen__dfn
37 GBLL screen__dfn
38
39 ; --- screen_getInfo ---
40 ;
41 ; On entry: --
42 ;
43 ; On exit: R0 == pointer to screen information block
44 ;
45 ; Use: This call returns a pointer to a block of information
46 ; about the current screen modes. The format of this block
47 ; is defined above.
48
49 IMPORT screen_getInfo
50
51 ; --- screen_cache ---
52 ;
53 ; On entry: R12 points to workspace
54 ;
55 ; On exit: --
56 ;
57 ; Use: Caches screen information for the current mode.
58
59 IMPORT screen_cache
60
61 ; --- screen_justChangedMode ---
62 ;
63 ; On entry: --
64 ;
65 ; On exit: CS if last event was a mode change, CC otherwise
66 ;
67 ; Use: Informs the caller if the last event was a mode change.
68 ; The system ignores open window requests when making it's
69 ; decision.
70
71 IMPORT screen_justChangedMode
72
73 ; --- screen_init ---
74 ;
75 ; On entry: --
76 ;
77 ; On exit: --
78 ;
79 ; Use: Initialises the screen unit.
80
81 IMPORT screen_init
82
83 ;----- Data offsets ---------------------------------------------------------
84
85 ^ 0
86 screen_xEig # 4
87 screen_yEig # 4
88 screen_bpp # 4
89 screen_width # 4
90 screen_height # 4
91 screen_dx # 4
92 screen_dy # 4
93
94 ]
95
96 ;----- That's all, folks ----------------------------------------------------
97
98 END