![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lciol.asm CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / lciol|
Return to lciol.asm CVS log | Up to [Synchronet] / sbbs / lciol |
1.1 root 1: .xlist
2: include mdef
3: ;************************************************************************
4: ;* *
5: ;* lclol: direct BIOS interface console output for C *
6: ;* *
7: ;* prototypes: int lclini(int); initialize *
8: ;* int lclatr(int); set attributes *
9: ;* void lclxy(int,int); set cursor position *
10: ;* int lclwx(void); get current column *
11: ;* int lclwy(void); get current line *
12: ;* void lputc(int); put character *
13: ;* long lputs(char far *); put string *
14: ;* *
15: ;************************************************************************
16:
17: setmod %mm
18: .data
19: wid db 79 ;columns per screen (zero based)
20: lps db 24 ;lines per screen (zero based)
21: col db 0 ;current column
22: lin db 0 ;current line
23: atr db 7 ;current attribute
24: pag db 0 ;current display page
25: xla db 0 ;tab expansion (bit 1), lf->cr/lf (bit 0)
26:
27: .code
28: public _lputc,_lputs,_lclini,_lclxy,_lclwx,_lclwy,_lclatr
29:
30: ; Initialize
31: ; Gets current cursor position, attribute, and display page
32: ; from BIOS. Integer argument defines the size of the screen.
33:
34: _lclini proc
35: push bp
36: mov bp,sp
37: mov ax,pb[bp] ;fetch parameter 1 (16-bit int)
38: or ah,ah
39: jz noxla ;no translation change
40:
41: shr ah,1
42: mov xla,ah ;set new translation flags
43: noxla: dec al
44: jns clps ;lines specified
45:
46: push ds
47: xor ax,ax
48: mov ds,ax
49: mov al,ds:[484h] ;get parameter from BIOS
50: or al,al
51: jnz blps ;use BIOS value if non-zero
52: mov al,24 ;else 25 assume lines
53: blps: pop ds
54: clps: mov lps,al ;set lines per screen
55: mov ah,0fh
56: int 10h ;get video mode
57: dec ah
58: mov wid,ah ;set screen width
59: mov pag,bh ;set current display page
60: mov ah,3
61: int 10h ;get cursor position
62: cmp dh,lps
63: jc cuupd ;current line within range
64: mov dh,lps ;else set to maximum
65: cuupd: mov ah,2 ;set cursor and update current pointers
66: int 10h ;move cursor to last line
67: mov col,dx ;set current column and line
68: xor ah,ah
69: mov al,lps
70: inc al ;return number of lines set
71: pop bp
72: ret
73: _lclini endp
74:
75: ; Set current cursor position
76:
77: _lclxy proc
78: push bp
79: mov bp,sp
80: mov dx,pb[bp] ;get parameter 1, x (column)
81: dec dl
82: mov col,dl
83: mov ax,pb[bp+2] ;get parameter 2, y (line)
84: dec al
85: mov lin,al
86: mov dh,al
87: mov bh,pag
88: mov ah,2
89: int 10h ;set cursor
90: xor ax,ax
91: pop bp
92: ret
93: _lclxy endp
94:
95: ; Get current cursor position (x,y)
96:
97: _lclwx proc
98: xor ah,ah
99: mov al,col ;return x (column)
100: inc al
101: ret
102: _lclwx endp
103:
104: _lclwy proc
105: xor ah,ah
106: mov al,lin ;return y (line)
107: inc al
108: ret
109: _lclwy endp
110:
111: ; Set local attributes
112:
113: _lclatr proc
114: push bp
115: mov bp,sp
116: xor ah,ah
117: mov al,atr ;get old attribute in ax
118: mov dx,pb[bp] ;fetch parameter 1 (16-bit int)
119: mov atr,dl ;set current attribute
120: pop bp
121: ret
122: _lclatr endp
123:
124: ; Put character to console (local)
125:
126: _lputc proc
127: push bp
128: mov bp,sp
129: mov ax,pb[bp] ;fetch parameter 1 (16-bit int)
130:
131: cmp ax,100h
132: jz clreol ;clear to end of line
133: cmp al,7
134: jnz notbl ;bell
135:
136: mov ax,0e07h ;write in tty mode (ah) bell (al)
137: mov bx,atr ;get page (bh) and attribute (bl)
138: int 10h ;beep
139: jmp updc ;make sure cursor is not changed
140:
141: notbl: cmp al,8
142: jnz notbs ;backspace
143:
144: mov al,col
145: or al,al
146: jz pexitj ;at column zero, no action
147: dec col
148: jmp updc ;move cursor back one column
149:
150: notbs: cmp al,9
151: jz outtb ;horizontal tab
152: cmp al,12
153: jz outcs ;screen clear
154: cmp al,10
155: jz outlf ;line feed
156: cmp al,13
157: jnz nonctl ;carriage return
158: mov col,0 ;set column zero
159: jmp updc
160:
161: clreol: mov ax,920h
162: mov bx,atr ;get page (bh) and attribute (bl)
163: mov cl,wid ;line length
164: sub cl,col ;get remainder
165: inc cl ;include current position
166: xor ch,ch ;replication factor in cx
167: int 10h ;clear to end of line
168: pexitj: jmp pexit
169:
170: outtb: test xla,2
171: jz nonctl ;no tab expansion
172: mov al,col
173: and al,7
174: mov cl,8
175: sub cl,al
176: xor ch,ch ;number of spaces in cx
177: mov al,20h
178: tbexp: push cx
179: push ax ;parameter 1
180: call _lputc
181: pop ax
182: pop cx
183: cmp col,0
184: loopnz tbexp ;stop if cursor wraps
185: jmp pexit
186:
187: outcs: mov ax,600h ;scroll (clear screen)
188: mov bh,atr ;current attribute
189: xor cx,cx ;upper left corner of window (0,0)
190: mov dx,wid ;lower right corner of window (wid,lps)
191: int 10h ;scroll window up one line
192: mov col,cx ;new cursor
193: jmp updc
194:
195: nonctl: mov ah,9
196: mov bx,atr ;get page (bh) and attribute (bl)
197: mov cx,1
198: int 10h ;write char and attr at cursor position
199: mov ah,col
200: inc col ;advance cursor on line
201: cmp ah,wid
202: jc updc ;not at end of line, update cursor and exit
203:
204: mov col,0 ;set column zero (cr)
205: outlf: test xla,1
206: jz nocrlf ;send lf alone
207: mov col,0
208: nocrlf: mov ah,lin
209: cmp ah,lps
210: jc upda ;not at end of screen, update cursor and exit
211: jnz updn ;past end of screen, cr only
212:
213: mov ax,601h ;scroll (ah) number of lines (al)
214: mov bh,atr ;current attribute
215: xor cx,cx ;upper left corner of window (0,0)
216: mov dx,wid ;lower right corner of window (wid,lps)
217: int 10h ;scroll window up one line
218:
219: updn: dec lin ;leave current line number unchanged
220: upda: inc lin ;advance to next line
221: updc: mov ah,2
222: mov bh,pag
223: mov dx,col
224: int 10h ;update cursor position
225:
226: pexit: xor ax,ax ;return zero
227: pop bp
228: ret
229: _lputc endp
230:
231: ; Put string to console (uses _lputc for each character)
232:
233: _lputs proc
234: push bp
235: mov bp,sp
236: push es
237: mov ax,pb[bp+2] ;string segment
238: mov bx,pb[bp] ;string offset
239: mov es,ax
240: xor dh,dh
241: nxtch: mov dl,es:[bx] ;character to output
242: or dl,dl
243: jz sexit
244:
245: inc bx ;address next character
246: jnz nowrap
247: mov ax,es
248: add ax,100h ;add 64k to segment pointer
249: mov es,ax
250: nowrap: push bx ;save offset
251: push dx ;arg 1
252: call _lputc ;put character
253: pop dx
254: pop bx
255: jmp nxtch
256:
257: sexit: mov ax,pb[bp]
258: mov dx,pb[bp+2]
259: pop es
260: pop bp
261: ret
262: _lputs endp
263:
264: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.