![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lclio.asm CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / lciol|
Return to lclio.asm CVS log | Up to [Synchronet] / sbbs / lciol |
1.1 root 1: page 60,132
2: .model large
3:
4: ; Put character to console (local)
5:
6: .data
7: wid db 79 ;columns per screen (zero based)
8: lps db 24 ;lines per screen (zero based)
9: col db 0 ;current column
10: lin db 0 ;current line
11: atr db 7 ;current attribute
12: pag db 0 ;current display page
13:
14: .code
15: .8086
16:
17: public _lputc,_lputs,_lclini,_lclxy,_lclwx,_lclwy,_lclatr
18:
19: _lclini proc
20: push bp
21: mov bp,sp
22: mov ax,[bp+6] ;fetch parameter 1 (16-bit int)
23: dec al
24: mov lps,al ;set lines per screen
25: mov ah,0fh
26: int 10h ;get video mode
27: dec ah
28: mov wid,ah ;set screen width
29: mov pag,bh ;set current display page
30: mov ah,3
31: int 10h ;get cursor position
32: cmp dh,lps
33: jc cuupd ;current line within range
34: mov dh,lps ;else set to maximum
35: cuupd: mov ah,2 ;set cursor and update current pointers
36: int 10h ;move cursor to last line
37: mov col,dx ;set current column and line
38: xor ax,ax
39: pop bp
40: ret
41: _lclini endp
42:
43: _lclxy proc
44: push bp
45: mov bp,sp
46: mov dx,[bp+6] ;get parameter 1, x (column)
47: dec dl
48: mov col,dl
49: mov ax,[bp+8] ;get parameter 2, y (line)
50: dec al
51: mov lin,al
52: mov dh,al
53: mov bh,pag
54: mov ah,2
55: int 10h ;set cursor
56: xor ax,ax
57: pop bp
58: ret
59: _lclxy endp
60:
61: _lclwx proc
62: xor ah,ah
63: mov al,col ;return x (column)
64: inc al
65: ret
66: _lclwx endp
67:
68: _lclwy proc
69: xor ah,ah
70: mov al,lin ;return y (line)
71: inc al
72: ret
73: _lclwy endp
74:
75: _lclatr proc
76: push bp
77: mov bp,sp
78: xor ah,ah
79: mov al,atr ;get old attribute in ax
80: mov dx,[bp+6] ;fetch parameter 1 (16-bit int)
81: mov atr,dl ;set current attribute
82: pop bp
83: ret
84: _lclatr endp
85:
86: _lputc proc
87: push bp
88: mov bp,sp
89: mov ax,[bp+6] ;fetch parameter 1 (16-bit int)
90:
91: cmp ax,100h
92: jz clreol ;clear to end of line
93: cmp al,7
94: jz outbl ;bell
95: cmp al,8
96: jz outbs ;backspace
97: cmp al,10
98: jz outlf ;line feed
99: cmp al,12
100: jz outcs ;screen clear
101: cmp al,13
102: jnz nonctl ;carriage return
103: mov col,0 ;set column zero
104: jmp updc
105:
106: clreol: mov ax,920h
107: mov bx,atr ;get page (bh) and attribute (bl)
108: mov cl,wid ;line length
109: sub cl,col ;get remainder
110: inc cl ;include current position
111: xor ch,ch ;replication factor in cx
112: int 10h ;clear to end of line
113: jmp pexit
114:
115: outbs: mov al,col
116: or al,al
117: jz pexit ;at column zero, no action
118: dec col
119: jmp updc ;move cursor back one column
120:
121: outbl: mov ax,0e07h ;write in tty mode (ah) bell (al)
122: mov bx,atr ;get page (bh) and attribute (bl)
123: int 10h ;beep
124: jmp updc ;make sure cursor is not changed
125:
126: outcs: mov ax,600h ;scroll (clear screen)
127: mov bh,atr ;current attribute
128: xor cx,cx ;upper left corner of window (0,0)
129: mov dx,wid ;lower right corner of window (wid,lps)
130: int 10h ;scroll window up one line
131: mov col,cx ;new cursor
132: jmp updc
133:
134: nonctl: mov ah,9
135: mov bx,atr ;get page (bh) and attribute (bl)
136: mov cx,1
137: int 10h ;write char and attr at cursor position
138: mov ah,col
139: inc col ;advance cursor on line
140: cmp ah,wid
141: jc updc ;not at end of line, update cursor and exit
142:
143: mov col,0 ;set column zero (cr)
144: outlf: mov ah,lin
145: cmp ah,lps
146: jc upda ;not at end of screen, update cursor and exit
147: jnz updn ;past end of screen, cr only
148:
149: mov ax,601h ;scroll (ah) number of lines (al)
150: mov bh,atr ;current attribute
151: xor cx,cx ;upper left corner of window (0,0)
152: mov dx,wid ;lower right corner of window (wid,lps)
153: int 10h ;scroll window up one line
154:
155: updn: dec lin ;leave current line number unchanged
156: upda: inc lin ;advance to next line
157: updc: mov ah,2
158: mov bh,pag
159: mov dx,col
160: int 10h ;update cursor position
161:
162: pexit: xor ax,ax ;return zero
163: pop bp
164: ret
165: _lputc endp
166:
167: _lputs proc
168: push bp
169: mov bp,sp
170: push es
171: mov ax,[bp+8] ;string segment
172: mov bx,[bp+6] ;string offset
173: mov es,ax
174: xor dh,dh
175: nxtch: mov dl,es:[bx] ;character to output
176: or dl,dl
177: jz sexit
178:
179: inc bx ;address next character
180: jnz nowrap
181: mov ax,es
182: add ax,100h ;add 64k to segment pointer
183: mov es,ax
184: nowrap: push bx ;save offset
185: push dx ;arg 1
186: call _lputc ;put character
187: pop dx
188: pop bx
189: jmp nxtch
190:
191: sexit: mov ax,[bp+6]
192: mov dx,[bp+8]
193: pop es
194: pop bp
195: ret
196: _lputs endp
197:
198: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.