![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lclol.lst CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / lciol|
Return to lclol.lst CVS log | Up to [Synchronet] / sbbs / lciol |
1.1 root 1: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:16:11
2: lclol Page 1-1
3:
4:
5: ;************************************************************************
6: ;* *
7: ;* lclol: direct BIOS interface console output for C *
8: ;* *
9: ;* prototypes: int lclini(int); initialize *
10: ;* int lclatr(int); set attributes *
11: ;* void lclxy(int,int); set cursor position *
12: ;* int lclwx(void); get current column *
13: ;* int lclwy(void); get current line *
14: ;* void putlch(int); put character *
15: ;* long putls(char far *); put string *
16: ;* *
17: ;************************************************************************
18:
19: setmod %mm
20: .data
21: 0000 4F wid db 79 ;columns per screen (zero based)
22: 0001 18 lps db 24 ;lines per screen (zero based)
23: 0002 00 col db 0 ;current column
24: 0003 00 lin db 0 ;current line
25: 0004 07 atr db 7 ;current attribute
26: 0005 00 pag db 0 ;current display page
27: 0006 00 xla db 0 ;tab expansion (bit 1), lf->cr/lf (bit 0)
28:
29: .code
30: public _putlch,_putls,_lclini,_lclxy,_lclwx,_lclwy,_lclatr
31:
32: ; Initialize
33: ; Gets current cursor position, attribute, and display page
34: ; from BIOS. Integer argument defines the size of the screen.
35:
36: 0000 _lclini proc
37: 0000 55 push bp
38: 0001 8B EC mov bp,sp
39: 0003 8B 46 06 mov ax,pb[bp] ;fetch parameter 1 (16-bit int)
40: 0006 0A E4 or ah,ah
41: 0008 74 06 jz noxla ;no translation change
42:
43: 000A D0 EC shr ah,1
44: 000C 88 26 0006 R mov xla,ah ;set new translation flags
45: 0010 FE C8 noxla: dec al
46: 0012 79 0F jns clps ;lines specified
47:
48: 0014 1E push ds
49: 0015 33 C0 xor ax,ax
50: 0017 8E D8 mov ds,ax
51: 0019 A0 0484 mov al,ds:[484h] ;get parameter from BIOS
52: 001C 0A C0 or al,al
53: 001E 75 02 jnz blps ;use BIOS value if non-zero
54: 0020 B0 18 mov al,24 ;else 25 assume lines
55: 0022 1F blps: pop ds
56: 0023 A2 0001 R clps: mov lps,al ;set lines per screen
57: 0026 B4 0F mov ah,0fh
58: 0028 CD 10 int 10h ;get video mode
59: 002A FE CC dec ah
60: 002C 88 26 0000 R mov wid,ah ;set screen width
61: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:16:11
62: lclol Page 1-2
63:
64:
65: 0030 88 3E 0005 R mov pag,bh ;set current display page
66: 0034 B4 03 mov ah,3
67: 0036 CD 10 int 10h ;get cursor position
68: 0038 3A 36 0001 R cmp dh,lps
69: 003C 72 04 jc cuupd ;current line within range
70: 003E 8A 36 0001 R mov dh,lps ;else set to maximum
71: 0042 B4 02 cuupd: mov ah,2 ;set cursor and update current pointers
72: 0044 CD 10 int 10h ;move cursor to last line
73: 0046 89 16 0002 R mov col,dx ;set current column and line
74: 004A 32 E4 xor ah,ah
75: 004C A0 0001 R mov al,lps
76: 004F FE C0 inc al ;return number of lines set
77: 0051 5D pop bp
78: 0052 CB ret
79: 0053 _lclini endp
80:
81: ; Set current cursor position
82:
83: 0053 _lclxy proc
84: 0053 55 push bp
85: 0054 8B EC mov bp,sp
86: 0056 8B 56 06 mov dx,pb[bp] ;get parameter 1, x (column)
87: 0059 FE CA dec dl
88: 005B 88 16 0002 R mov col,dl
89: 005F 8B 46 08 mov ax,pb[bp+2] ;get parameter 2, y (line)
90: 0062 FE C8 dec al
91: 0064 A2 0003 R mov lin,al
92: 0067 8A F0 mov dh,al
93: 0069 8A 3E 0005 R mov bh,pag
94: 006D B4 02 mov ah,2
95: 006F CD 10 int 10h ;set cursor
96: 0071 33 C0 xor ax,ax
97: 0073 5D pop bp
98: 0074 CB ret
99: 0075 _lclxy endp
100:
101: ; Get current cursor position (x,y)
102:
103: 0075 _lclwx proc
104: 0075 32 E4 xor ah,ah
105: 0077 A0 0002 R mov al,col ;return x (column)
106: 007A FE C0 inc al
107: 007C CB ret
108: 007D _lclwx endp
109:
110: 007D _lclwy proc
111: 007D 32 E4 xor ah,ah
112: 007F A0 0003 R mov al,lin ;return y (line)
113: 0082 FE C0 inc al
114: 0084 CB ret
115: 0085 _lclwy endp
116:
117: ; Set local attributes
118:
119: 0085 _lclatr proc
120: 0085 55 push bp
121: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:16:11
122: lclol Page 1-3
123:
124:
125: 0086 8B EC mov bp,sp
126: 0088 32 E4 xor ah,ah
127: 008A A0 0004 R mov al,atr ;get old attribute in ax
128: 008D 8B 56 06 mov dx,pb[bp] ;fetch parameter 1 (16-bit int)
129: 0090 88 16 0004 R mov atr,dl ;set current attribute
130: 0094 5D pop bp
131: 0095 CB ret
132: 0096 _lclatr endp
133:
134: ; Put character to console (local)
135:
136: 0096 _putlch proc
137: 0096 55 push bp
138: 0097 8B EC mov bp,sp
139: 0099 8B 46 06 mov ax,pb[bp] ;fetch parameter 1 (16-bit int)
140:
141: 009C 3D 0100 cmp ax,100h
142: 009F 74 3A jz clreol ;clear to end of line
143: 00A1 3C 07 cmp al,7
144: 00A3 75 0C jnz notbl ;bell
145:
146: 00A5 B8 0E07 mov ax,0e07h ;write in tty mode (ah) bell (al)
147: 00A8 8B 1E 0004 R mov bx,atr ;get page (bh) and attribute (bl)
148: 00AC CD 10 int 10h ;beep
149: 00AE E9 017D R jmp updc ;make sure cursor is not changed
150:
151: 00B1 3C 08 notbl: cmp al,8
152: 00B3 75 0E jnz notbs ;backspace
153:
154: 00B5 A0 0002 R mov al,col
155: 00B8 0A C0 or al,al
156: 00BA 74 34 jz pexitj ;at column zero, no action
157: 00BC FE 0E 0002 R dec col
158: 00C0 E9 017D R jmp updc ;move cursor back one column
159:
160: 00C3 3C 09 notbs: cmp al,9
161: 00C5 74 2C jz outtb ;horizontal tab
162: 00C7 3C 0C cmp al,12
163: 00C9 74 4F jz outcs ;screen clear
164: 00CB 3C 0A cmp al,10
165: 00CD 74 7F jz outlf ;line feed
166: 00CF 3C 0D cmp al,13
167: 00D1 75 5D jnz nonctl ;carriage return
168: 00D3 C6 06 0002 R 00 mov col,0 ;set column zero
169: 00D8 E9 017D R jmp updc
170:
171: 00DB B8 0920 clreol: mov ax,920h
172: 00DE 8B 1E 0004 R mov bx,atr ;get page (bh) and attribute (bl)
173: 00E2 8A 0E 0000 R mov cl,wid ;line length
174: 00E6 2A 0E 0002 R sub cl,col ;get remainder
175: 00EA FE C1 inc cl ;include current position
176: 00EC 32 ED xor ch,ch ;replication factor in cx
177: 00EE CD 10 int 10h ;clear to end of line
178: 00F0 E9 0189 R pexitj: jmp pexit
179:
180: 00F3 F6 06 0006 R 02 outtb: test xla,2
181: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:16:11
182: lclol Page 1-4
183:
184:
185: 00F8 74 36 jz nonctl ;no tab expansion
186: 00FA A0 0002 R mov al,col
187: 00FD 24 07 and al,7
188: 00FF B1 08 mov cl,8
189: 0101 2A C8 sub cl,al
190: 0103 32 ED xor ch,ch ;number of spaces in cx
191: 0105 B0 20 mov al,20h
192: 0107 51 tbexp: push cx
193: 0108 50 push ax ;parameter 1
194: 0109 9A 0096 ---- R call _putlch
195: 010E 58 pop ax
196: 010F 59 pop cx
197: 0110 80 3E 0002 R 00 cmp col,0
198: 0115 E0 F0 loopnz tbexp ;stop if cursor wraps
199: 0117 EB 70 90 jmp pexit
200:
201: 011A B8 0600 outcs: mov ax,600h ;scroll (clear screen)
202: 011D 8A 3E 0004 R mov bh,atr ;current attribute
203: 0121 33 C9 xor cx,cx ;upper left corner of window (0,0)
204: 0123 8B 16 0000 R mov dx,wid ;lower right corner of window (wid,lps)
205: 0127 CD 10 int 10h ;scroll window up one line
206: 0129 89 0E 0002 R mov col,cx ;new cursor
207: 012D EB 4E 90 jmp updc
208:
209: 0130 B4 09 nonctl: mov ah,9
210: 0132 8B 1E 0004 R mov bx,atr ;get page (bh) and attribute (bl)
211: 0136 B9 0001 mov cx,1
212: 0139 CD 10 int 10h ;write char and attr at cursor position
213: 013B 8A 26 0002 R mov ah,col
214: 013F FE 06 0002 R inc col ;advance cursor on line
215: 0143 3A 26 0000 R cmp ah,wid
216: 0147 72 34 jc updc ;not at end of line, update cursor and exit
217:
218: 0149 C6 06 0002 R 00 mov col,0 ;set column zero (cr)
219: 014E F6 06 0006 R 01 outlf: test xla,1
220: 0153 74 05 jz nocrlf ;send lf alone
221: 0155 C6 06 0002 R 00 mov col,0
222: 015A 8A 26 0003 R nocrlf: mov ah,lin
223: 015E 3A 26 0001 R cmp ah,lps
224: 0162 72 15 jc upda ;not at end of screen, update cursor and exit
225: 0164 75 0F jnz updn ;past end of screen, cr only
226:
227: 0166 B8 0601 mov ax,601h ;scroll (ah) number of lines (al)
228: 0169 8A 3E 0004 R mov bh,atr ;current attribute
229: 016D 33 C9 xor cx,cx ;upper left corner of window (0,0)
230: 016F 8B 16 0000 R mov dx,wid ;lower right corner of window (wid,lps)
231: 0173 CD 10 int 10h ;scroll window up one line
232:
233: 0175 FE 0E 0003 R updn: dec lin ;leave current line number unchanged
234: 0179 FE 06 0003 R upda: inc lin ;advance to next line
235: 017D B4 02 updc: mov ah,2
236: 017F 8A 3E 0005 R mov bh,pag
237: 0183 8B 16 0002 R mov dx,col
238: 0187 CD 10 int 10h ;update cursor position
239:
240: 0189 33 C0 pexit: xor ax,ax ;return zero
241: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:16:11
242: lclol Page 1-5
243:
244:
245: 018B 5D pop bp
246: 018C CB ret
247: 018D _putlch endp
248:
249: ; Put string to console (uses _putlch for each character)
250:
251: 018D _putls proc
252: 018D 55 push bp
253: 018E 8B EC mov bp,sp
254: 0190 06 push es
255: 0191 8B 46 08 mov ax,pb[bp+2] ;string segment
256: 0194 8B 5E 06 mov bx,pb[bp] ;string offset
257: 0197 8E C0 mov es,ax
258: 0199 32 F6 xor dh,dh
259: 019B 26: 8A 17 nxtch: mov dl,es:[bx] ;character to output
260: 019E 0A D2 or dl,dl
261: 01A0 74 15 jz sexit
262:
263: 01A2 43 inc bx ;address next character
264: 01A3 75 07 jnz nowrap
265: 01A5 8C C0 mov ax,es
266: 01A7 05 0100 add ax,100h ;add 64k to segment pointer
267: 01AA 8E C0 mov es,ax
268: 01AC 53 nowrap: push bx ;save offset
269: 01AD 52 push dx ;arg 1
270: 01AE 9A 0096 ---- R call _putlch ;put character
271: 01B3 5A pop dx
272: 01B4 5B pop bx
273: 01B5 EB E4 jmp nxtch
274:
275: 01B7 8B 46 06 sexit: mov ax,pb[bp]
276: 01BA 8B 56 08 mov dx,pb[bp+2]
277: 01BD 07 pop es
278: 01BE 5D pop bp
279: 01BF CB ret
280: 01C0 _putls endp
281:
282: end
283:
284: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:16:11
285: lclol Symbols-1
286:
287:
288: Macros:
289:
290: N a m e Lines
291:
292: ASYN . . . . . . . . . . . . . . 3
293: DSS . . . . . . . . . . . . . . 4
294: EOPG . . . . . . . . . . . . . . 2
295: LISTON . . . . . . . . . . . . . 1
296: SETMOD . . . . . . . . . . . . . 9
297:
298: Segments and Groups:
299:
300: N a m e Size Length Align Combine Class
301:
302: DGROUP . . . . . . . . . . . . . GROUP
303: _DATA . . . . . . . . . . . . 16 Bit 0007 WORD PUBLIC 'DATA'
304: LCLOL_TEXT . . . . . . . . . . . 16 Bit 01C0 WORD PUBLIC 'CODE'
305:
306: Symbols:
307:
308: N a m e Type Value Attr
309:
310: AA . . . . . . . . . . . . . . . TEXT .model large
311: ATR . . . . . . . . . . . . . . L BYTE 0004 _DATA
312:
313: BLPS . . . . . . . . . . . . . . L NEAR 0022 LCLOL_TEXT
314:
315: CLPS . . . . . . . . . . . . . . L NEAR 0023 LCLOL_TEXT
316: CLREOL . . . . . . . . . . . . . L NEAR 00DB LCLOL_TEXT
317: COL . . . . . . . . . . . . . . L BYTE 0002 _DATA
318: CUUPD . . . . . . . . . . . . . L NEAR 0042 LCLOL_TEXT
319:
320: DS1 . . . . . . . . . . . . . . TEXT label byte
321: DS2 . . . . . . . . . . . . . . TEXT label word
322: DS4 . . . . . . . . . . . . . . TEXT label dword
323: DS6 . . . . . . . . . . . . . . TEXT label fword
324: DS8 . . . . . . . . . . . . . . TEXT label qword
325:
326: LIN . . . . . . . . . . . . . . L BYTE 0003 _DATA
327: LPS . . . . . . . . . . . . . . L BYTE 0001 _DATA
328:
329: MB . . . . . . . . . . . . . . . TEXT byte ptr
330: MDLC . . . . . . . . . . . . . . TEXT compact
331: MDLH . . . . . . . . . . . . . . TEXT huge
332: MDLL . . . . . . . . . . . . . . TEXT large
333: MDLM . . . . . . . . . . . . . . TEXT medium
334: MDLS . . . . . . . . . . . . . . TEXT small
335: ML . . . . . . . . . . . . . . . TEXT dword ptr
336: MM . . . . . . . . . . . . . . . TEXT l
337: MW . . . . . . . . . . . . . . . TEXT word ptr
338:
339: NOCRLF . . . . . . . . . . . . . L NEAR 015A LCLOL_TEXT
340: NONCTL . . . . . . . . . . . . . L NEAR 0130 LCLOL_TEXT
341: NOTBL . . . . . . . . . . . . . L NEAR 00B1 LCLOL_TEXT
342: NOTBS . . . . . . . . . . . . . L NEAR 00C3 LCLOL_TEXT
343: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:16:11
344: lclol Symbols-2
345:
346:
347: NOWRAP . . . . . . . . . . . . . L NEAR 01AC LCLOL_TEXT
348: NOXLA . . . . . . . . . . . . . L NEAR 0010 LCLOL_TEXT
349: NXTCH . . . . . . . . . . . . . L NEAR 019B LCLOL_TEXT
350:
351: OS . . . . . . . . . . . . . . . TEXT offset
352: OUTCS . . . . . . . . . . . . . L NEAR 011A LCLOL_TEXT
353: OUTLF . . . . . . . . . . . . . L NEAR 014E LCLOL_TEXT
354: OUTTB . . . . . . . . . . . . . L NEAR 00F3 LCLOL_TEXT
355:
356: PAG . . . . . . . . . . . . . . L BYTE 0005 _DATA
357: PB . . . . . . . . . . . . . . . NUMBER 0006
358: PEXIT . . . . . . . . . . . . . L NEAR 0189 LCLOL_TEXT
359: PEXITJ . . . . . . . . . . . . . L NEAR 00F0 LCLOL_TEXT
360:
361: S . . . . . . . . . . . . . . . TEXT short
362: SEXIT . . . . . . . . . . . . . L NEAR 01B7 LCLOL_TEXT
363:
364: TBEXP . . . . . . . . . . . . . L NEAR 0107 LCLOL_TEXT
365:
366: UPDA . . . . . . . . . . . . . . L NEAR 0179 LCLOL_TEXT
367: UPDC . . . . . . . . . . . . . . L NEAR 017D LCLOL_TEXT
368: UPDN . . . . . . . . . . . . . . L NEAR 0175 LCLOL_TEXT
369:
370: WID . . . . . . . . . . . . . . L BYTE 0000 _DATA
371:
372: XLA . . . . . . . . . . . . . . L BYTE 0006 _DATA
373:
374: @CODE . . . . . . . . . . . . . TEXT lclol_TEXT
375: @CODESIZE . . . . . . . . . . . TEXT 1
376: @CPU . . . . . . . . . . . . . . TEXT 257
377: @DATASIZE . . . . . . . . . . . TEXT 1
378: @FILENAME . . . . . . . . . . . TEXT lclol
379: @VERSION . . . . . . . . . . . . TEXT 510
380: _lclatr . . . . . . . . . . . . F PROC 0085 LCLOL_TEXT Global Length = 0011
381: _lclini . . . . . . . . . . . . F PROC 0000 LCLOL_TEXT Global Length = 0053
382: _lclwx . . . . . . . . . . . . . F PROC 0075 LCLOL_TEXT Global Length = 0008
383: _lclwy . . . . . . . . . . . . . F PROC 007D LCLOL_TEXT Global Length = 0008
384: _lclxy . . . . . . . . . . . . . F PROC 0053 LCLOL_TEXT Global Length = 0022
385: _putlch . . . . . . . . . . . . F PROC 0096 LCLOL_TEXT Global Length = 00F7
386: _putls . . . . . . . . . . . . . F PROC 018D LCLOL_TEXT Global Length = 0033
387:
388:
389: 338 Source Lines
390: 351 Total Lines
391: 74 Symbols
392:
393: 47354 + 412354 Bytes symbol space free
394:
395: 0 Warning Errors
396: 0 Severe Errors
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.