Raw File
1 ; _____________________________________________
2 ; | |
3 ; | Project: APPLER |
4 ; | File: CONIO.INC |
5 ; | Compiler: 16-bit TASM (2.5) |
6 ; | |
7 ; | Subject: Keyboard input / screen output |
8 ; | |
9 ; | Author: Emil Dotchevski |
10 ; |_____________________________________________|
11
12
13 _GETLINE = 0
14 _GL_SYMBOL = 1
15 _GL_STRING = 2
16 _GL_BYTE = 3
17 _GL_GETSYMB = 4
18 _GL_LEFT = 5
19 _GL_RIGHT = 6
20 _GL_INS = 7
21 _GL_DEL = 8
22 _GL_BACKSPC = 9
23 _GL_HOME = 10
24 _GL_END = 11
25 _GL_CLRBUFF = 12
26 _GETCOMMAND = 13
27
28 _CLEARSCREEN = 0
29 _SHOWSCREEN = 1
30 _SYMBPRINT = 2
31 _SYMBPRINTXY = 3
32 _BYTEPRINT = 4
33 _STRINGPRINT = 5
34 _GETSYMB = 6
35 _SHOWLINE = 7
36 _CALCXY = 8
37 _SHOWCURSOR = 9
38 _HIDECURSOR = 10
39 _SETTEXTMODE = 11
40 _SETSCREEN = 12
41
42 GL_ParamStruc struc
43 GL_Buffer dw ? ; Line buffer address
44 GL_Pos db ? ; Current cursor position
45 GL_Length db ? ; Current line length
46 GL_MaxLength db ? ; Max line length
47 GL_MaxPrint db ? ; Max number of characters to print
48 GL_BegPrint db ? ; Begin print location
49 GL_InsFlag db ? ; 0 or 1
50 GL_InsCurColor db ? ; Insert cursor color
51 GL_OverCurColor db ? ; Overwrite cursor color
52 GL_CX dw ?
53 GL_X db ?
54 GL_Y db ?
55 GL_Color db ? ; Text color
56 GL_GS_SpcFl db ?
57 GL_AllowSpc db ? ; Allow or not the spaces
58 GL_User dd ? ; Non-standart functions proc
59 GL_BegScan dw ? ; Begin address of the commands
60 GL_ENDScan dw ? ; End address of the commands
61 GL_Error dw ?
62 GL_Eparam db ?
63 GL_ParamStruc ends
64
65 SIO_ParamStruc struc
66 SpacesFlag db ? ; Get symb spaces flag
67 SP_SourceSeg dw ? ; String print source seg
68 SP_bx dw ? ; String print end bx value
69 SP_BufFlag db ? ; String print bufflag
70 SS_SourceOfs dw ?
71 SS_SourceSeg dw ?
72 CursorLen db ?
73 CursorColor db ?
74 CursorFlag db ?
75 SS_ScreenFlag db ?
76 SIO_ParamStruc ends
77
78 RK_ParamStruc struc
79 RK_FkeyFlag db ? ; Fkeys support flag
80 RK_FkeyProc dd ? ; Fkeys support proc
81 RK_AltFlag db ?
82 RK_AltProc dd ?
83 RK_WaitKeyFlag db ?
84 RK_WaitKeyProc dd ? ; Call while waiting for a key
85 RK_ShowAll dd ? ; ShowAll proc
86 RK_ErrPtr dw ?
87 RK_ParamStruc ends
88
89 GetLineService macro Service
90 mov bp,Service
91 call GL_Services
92 endm
93
94 ScreenIOservice macro Service
95 mov bp,Service
96 call SIO_Services
97 endm
98
99 GotoXY macro vtab,htab
100 mov cx,((vtab-1) * 80 * 2) + (htab * 2)
101 endm
102
Generated by GNU Enscript 1.6.6, and GophHub 1.3.