![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lclio.lst CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / lciol|
Return to lclio.lst CVS log | Up to [Synchronet] / sbbs / lciol |
1.1 root 1: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:02:55
2: Page 1-1
3:
4:
5: page 60,132
6: .model large
7:
8: ; Put character to console (local)
9:
10: .data
11: 0000 4F wid db 79 ;columns per screen (zero based)
12: 0001 18 lps db 24 ;lines per screen (zero based)
13: 0002 00 col db 0 ;current column
14: 0003 00 lin db 0 ;current line
15: 0004 07 atr db 7 ;current attribute
16: 0005 00 pag db 0 ;current display page
17:
18: .code
19: .8086
20:
21: public _lputc,_lputs,_lclini,_lclxy,_lclwx,_lclwy,_lclatr
22:
23: 0000 _lclini proc
24: 0000 55 push bp
25: 0001 8B EC mov bp,sp
26: 0003 8B 46 06 mov ax,[bp+6] ;fetch parameter 1 (16-bit int)
27: 0006 FE C8 dec al
28: 0008 A2 0001 R mov lps,al ;set lines per screen
29: 000B B4 0F mov ah,0fh
30: 000D CD 10 int 10h ;get video mode
31: 000F FE CC dec ah
32: 0011 88 26 0000 R mov wid,ah ;set screen width
33: 0015 88 3E 0005 R mov pag,bh ;set current display page
34: 0019 B4 03 mov ah,3
35: 001B CD 10 int 10h ;get cursor position
36: 001D 3A 36 0001 R cmp dh,lps
37: 0021 72 04 jc cuupd ;current line within range
38: 0023 8A 36 0001 R mov dh,lps ;else set to maximum
39: 0027 B4 02 cuupd: mov ah,2 ;set cursor and update current pointers
40: 0029 CD 10 int 10h ;move cursor to last line
41: 002B 89 16 0002 R mov col,dx ;set current column and line
42: 002F 33 C0 xor ax,ax
43: 0031 5D pop bp
44: 0032 CB ret
45: 0033 _lclini endp
46:
47: 0033 _lclxy proc
48: 0033 55 push bp
49: 0034 8B EC mov bp,sp
50: 0036 8B 56 06 mov dx,[bp+6] ;get parameter 1, x (column)
51: 0039 FE CA dec dl
52: 003B 88 16 0002 R mov col,dl
53: 003F 8B 46 08 mov ax,[bp+8] ;get parameter 2, y (line)
54: 0042 FE C8 dec al
55: 0044 A2 0003 R mov lin,al
56: 0047 8A F0 mov dh,al
57: 0049 8A 3E 0005 R mov bh,pag
58: 004D B4 02 mov ah,2
59: 004F CD 10 int 10h ;set cursor
60: 0051 33 C0 xor ax,ax
61: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:02:55
62: Page 1-2
63:
64:
65: 0053 5D pop bp
66: 0054 CB ret
67: 0055 _lclxy endp
68:
69: 0055 _lclwx proc
70: 0055 32 E4 xor ah,ah
71: 0057 A0 0002 R mov al,col ;return x (column)
72: 005A FE C0 inc al
73: 005C CB ret
74: 005D _lclwx endp
75:
76: 005D _lclwy proc
77: 005D 32 E4 xor ah,ah
78: 005F A0 0003 R mov al,lin ;return y (line)
79: 0062 FE C0 inc al
80: 0064 CB ret
81: 0065 _lclwy endp
82:
83: 0065 _lclatr proc
84: 0065 55 push bp
85: 0066 8B EC mov bp,sp
86: 0068 32 E4 xor ah,ah
87: 006A A0 0004 R mov al,atr ;get old attribute in ax
88: 006D 8B 56 06 mov dx,[bp+6] ;fetch parameter 1 (16-bit int)
89: 0070 88 16 0004 R mov atr,dl ;set current attribute
90: 0074 5D pop bp
91: 0075 CB ret
92: 0076 _lclatr endp
93:
94: 0076 _lputc proc
95: 0076 55 push bp
96: 0077 8B EC mov bp,sp
97: 0079 8B 46 06 mov ax,[bp+6] ;fetch parameter 1 (16-bit int)
98:
99: 007C 3D 0100 cmp ax,100h
100: 007F 74 1C jz clreol ;clear to end of line
101: 0081 3C 07 cmp al,7
102: 0083 74 3E jz outbl ;bell
103: 0085 3C 08 cmp al,8
104: 0087 74 2C jz outbs ;backspace
105: 0089 3C 0A cmp al,10
106: 008B 74 76 jz outlf ;line feed
107: 008D 3C 0C cmp al,12
108: 008F 74 3E jz outcs ;screen clear
109: 0091 3C 0D cmp al,13
110: 0093 75 50 jnz nonctl ;carriage return
111: 0095 C6 06 0002 R 00 mov col,0 ;set column zero
112: 009A E9 0126 R jmp updc
113:
114: 009D B8 0920 clreol: mov ax,920h
115: 00A0 8B 1E 0004 R mov bx,atr ;get page (bh) and attribute (bl)
116: 00A4 8A 0E 0000 R mov cl,wid ;line length
117: 00A8 2A 0E 0002 R sub cl,col ;get remainder
118: 00AC FE C1 inc cl ;include current position
119: 00AE 32 ED xor ch,ch ;replication factor in cx
120: 00B0 CD 10 int 10h ;clear to end of line
121: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:02:55
122: Page 1-3
123:
124:
125: 00B2 EB 7E 90 jmp pexit
126:
127: 00B5 A0 0002 R outbs: mov al,col
128: 00B8 0A C0 or al,al
129: 00BA 74 76 jz pexit ;at column zero, no action
130: 00BC FE 0E 0002 R dec col
131: 00C0 EB 64 90 jmp updc ;move cursor back one column
132:
133: 00C3 B8 0E07 outbl: mov ax,0e07h ;write in tty mode (ah) bell (al)
134: 00C6 8B 1E 0004 R mov bx,atr ;get page (bh) and attribute (bl)
135: 00CA CD 10 int 10h ;beep
136: 00CC EB 58 90 jmp updc ;make sure cursor is not changed
137:
138: 00CF B8 0600 outcs: mov ax,600h ;scroll (clear screen)
139: 00D2 8A 3E 0004 R mov bh,atr ;current attribute
140: 00D6 33 C9 xor cx,cx ;upper left corner of window (0,0)
141: 00D8 8B 16 0000 R mov dx,wid ;lower right corner of window (wid,lps)
142: 00DC CD 10 int 10h ;scroll window up one line
143: 00DE 89 0E 0002 R mov col,cx ;new cursor
144: 00E2 EB 42 90 jmp updc
145:
146: 00E5 B4 09 nonctl: mov ah,9
147: 00E7 8B 1E 0004 R mov bx,atr ;get page (bh) and attribute (bl)
148: 00EB B9 0001 mov cx,1
149: 00EE CD 10 int 10h ;write char and attr at cursor position
150: 00F0 8A 26 0002 R mov ah,col
151: 00F4 FE 06 0002 R inc col ;advance cursor on line
152: 00F8 3A 26 0000 R cmp ah,wid
153: 00FC 72 28 jc updc ;not at end of line, update cursor and exit
154:
155: 00FE C6 06 0002 R 00 mov col,0 ;set column zero (cr)
156: 0103 8A 26 0003 R outlf: mov ah,lin
157: 0107 3A 26 0001 R cmp ah,lps
158: 010B 72 15 jc upda ;not at end of screen, update cursor and exit
159: 010D 75 0F jnz updn ;past end of screen, cr only
160:
161: 010F B8 0601 mov ax,601h ;scroll (ah) number of lines (al)
162: 0112 8A 3E 0004 R mov bh,atr ;current attribute
163: 0116 33 C9 xor cx,cx ;upper left corner of window (0,0)
164: 0118 8B 16 0000 R mov dx,wid ;lower right corner of window (wid,lps)
165: 011C CD 10 int 10h ;scroll window up one line
166:
167: 011E FE 0E 0003 R updn: dec lin ;leave current line number unchanged
168: 0122 FE 06 0003 R upda: inc lin ;advance to next line
169: 0126 B4 02 updc: mov ah,2
170: 0128 8A 3E 0005 R mov bh,pag
171: 012C 8B 16 0002 R mov dx,col
172: 0130 CD 10 int 10h ;update cursor position
173:
174: 0132 33 C0 pexit: xor ax,ax ;return zero
175: 0134 5D pop bp
176: 0135 CB ret
177: 0136 _lputc endp
178:
179: 0136 _lputs proc
180: 0136 55 push bp
181: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:02:55
182: Page 1-4
183:
184:
185: 0137 8B EC mov bp,sp
186: 0139 06 push es
187: 013A 8B 46 08 mov ax,[bp+8] ;string segment
188: 013D 8B 5E 06 mov bx,[bp+6] ;string offset
189: 0140 8E C0 mov es,ax
190: 0142 32 F6 xor dh,dh
191: 0144 26: 8A 17 nxtch: mov dl,es:[bx] ;character to output
192: 0147 0A D2 or dl,dl
193: 0149 74 15 jz sexit
194:
195: 014B 43 inc bx ;address next character
196: 014C 75 07 jnz nowrap
197: 014E 8C C0 mov ax,es
198: 0150 05 0100 add ax,100h ;add 64k to segment pointer
199: 0153 8E C0 mov es,ax
200: 0155 53 nowrap: push bx ;save offset
201: 0156 52 push dx ;arg 1
202: 0157 9A 0076 ---- R call _lputc ;put character
203: 015C 5A pop dx
204: 015D 5B pop bx
205: 015E EB E4 jmp nxtch
206:
207: 0160 8B 46 06 sexit: mov ax,[bp+6]
208: 0163 8B 56 08 mov dx,[bp+8]
209: 0166 07 pop es
210: 0167 5D pop bp
211: 0168 CB ret
212: 0169 _lputs endp
213:
214: end
215: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:02:55
216: Symbols-1
217:
218:
219: Segments and Groups:
220:
221: N a m e Length Align Combine Class
222:
223: DGROUP . . . . . . . . . . . . . GROUP
224: _DATA . . . . . . . . . . . . 0006 WORD PUBLIC 'DATA'
225: LCLIO_TEXT . . . . . . . . . . . 0169 WORD PUBLIC 'CODE'
226:
227: Symbols:
228:
229: N a m e Type Value Attr
230:
231: ATR . . . . . . . . . . . . . . L BYTE 0004 _DATA
232:
233: CLREOL . . . . . . . . . . . . . L NEAR 009D LCLIO_TEXT
234: COL . . . . . . . . . . . . . . L BYTE 0002 _DATA
235: CUUPD . . . . . . . . . . . . . L NEAR 0027 LCLIO_TEXT
236:
237: LIN . . . . . . . . . . . . . . L BYTE 0003 _DATA
238: LPS . . . . . . . . . . . . . . L BYTE 0001 _DATA
239:
240: MM . . . . . . . . . . . . . . . TEXT l
241:
242: NONCTL . . . . . . . . . . . . . L NEAR 00E5 LCLIO_TEXT
243: NOWRAP . . . . . . . . . . . . . L NEAR 0155 LCLIO_TEXT
244: NXTCH . . . . . . . . . . . . . L NEAR 0144 LCLIO_TEXT
245:
246: OUTBL . . . . . . . . . . . . . L NEAR 00C3 LCLIO_TEXT
247: OUTBS . . . . . . . . . . . . . L NEAR 00B5 LCLIO_TEXT
248: OUTCS . . . . . . . . . . . . . L NEAR 00CF LCLIO_TEXT
249: OUTLF . . . . . . . . . . . . . L NEAR 0103 LCLIO_TEXT
250:
251: PAG . . . . . . . . . . . . . . L BYTE 0005 _DATA
252: PEXIT . . . . . . . . . . . . . L NEAR 0132 LCLIO_TEXT
253:
254: SEXIT . . . . . . . . . . . . . L NEAR 0160 LCLIO_TEXT
255:
256: UPDA . . . . . . . . . . . . . . L NEAR 0122 LCLIO_TEXT
257: UPDC . . . . . . . . . . . . . . L NEAR 0126 LCLIO_TEXT
258: UPDN . . . . . . . . . . . . . . L NEAR 011E LCLIO_TEXT
259:
260: WID . . . . . . . . . . . . . . L BYTE 0000 _DATA
261:
262: @CODE . . . . . . . . . . . . . TEXT lclio_TEXT
263: @CODESIZE . . . . . . . . . . . TEXT 1
264: @CPU . . . . . . . . . . . . . . TEXT 257
265: @DATASIZE . . . . . . . . . . . TEXT 1
266: @FILENAME . . . . . . . . . . . TEXT lclio
267: @VERSION . . . . . . . . . . . . TEXT 510
268: _lclatr . . . . . . . . . . . . F PROC 0065 LCLIO_TEXT Global Length = 0011
269: _lclini . . . . . . . . . . . . F PROC 0000 LCLIO_TEXT Global Length = 0033
270: _lclwx . . . . . . . . . . . . . F PROC 0055 LCLIO_TEXT Global Length = 0008
271: _lclwy . . . . . . . . . . . . . F PROC 005D LCLIO_TEXT Global Length = 0008
272: _lclxy . . . . . . . . . . . . . F PROC 0033 LCLIO_TEXT Global Length = 0022
273: _lputc . . . . . . . . . . . . . F PROC 0076 LCLIO_TEXT Global Length = 00C0
274: Microsoft (R) Macro Assembler Version 5.10 3/15/92 16:02:55
275: Symbols-2
276:
277:
278: _lputs . . . . . . . . . . . . . F PROC 0136 LCLIO_TEXT Global Length = 0033
279:
280:
281: 198 Source Lines
282: 198 Total Lines
283: 44 Symbols
284:
285: 47678 + 422269 Bytes symbol space free
286:
287: 0 Warning Errors
288: 0 Severe Errors
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.