![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mviow CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / steve|
Return to mviow CVS log | Up to [Synchronet] / sbbs / steve |
1.1 root 1: .386P
2:
3: vseg equ 0b000h ;video ram segment address
4:
5: ;****************************************************************************
6: ;* *
7: ;* Procedure msout On entry ds:si -> text, terminated with 0. *
8: ;* *
9: ;* Display message on standard output, convert parameters to hex ascii or *
10: ;* decimal ascii for each �n, �n, �n in message where n=number of digits. *
11: ;* Repeat character c for �nc, where n=(number of repetitions plus 30h). *
12: ;* *
13: ;****************************************************************************
14:
15: litsg equ '�' ;next character is to be output directly
16: hexsg equ '�' ;hexadecimal conversion signal
17: decsg equ '�' ;decimal conversion signal
18: decsgn equ '�' ;decimal conversion, leading spaces suppressed
19: decsgc equ '�' ;decimal conversion, use commas
20: repsg equ '�' ;repeat character signal
21: sgchk equ '�' ;all characters below this value are literals
22:
23: msout proc near
24: pushad
25: push ds
26: push es
27: push ax
28:
29: mov ax,cs
30: mov ds,ax
31: mov es,ax
32: mov di,os iobuf ;output buffer
33: mov bx,os msval ;parameter list
34: cld
35:
36: msorc: lodsb ;read character
37: cmp al,sgchk
38: jc short msowc ;not conversion character
39:
40: cmp al,hexsg
41: jz short mscvh ;hex conversion character
42: xor dh,dh ;decimal type flag
43: cmp al,decsg
44: jz short mscvd ;decimal conversion
45: mov dh,40h ;leading space suppress, bit 6
46: cmp al,decsgn
47: jz short mscvd ;decimal, suppress leading spaces
48: shl dh,1 ;include commas, bit 7
49: cmp al,decsgc
50: jz short mscvd ;decimal with commas
51: cmp al,repsg
52: jnz short msolc ;not repeat character
53: lodsb ;get number of repeats
54: sub al,30h ;ascii zero based
55: movzx cx,al ;count
56: lodsb ;character to repeat
57: rep stosb ;expand
58: jmp short msorc
59:
60: msolc: cmp al,litsg
61: jnz short msowc ;not literal signal
62: lodsb ;no translation on character following
63:
64: msowc: stosb ;write character to buffer
65: or al,al
66: jnz short msorc ;not at end
67:
68: mov si,os iobuf
69: sub di,si ;length
70: dec di
71: ; jz msox ;what?
72: mov cx,di
73: pop di ;dest
74: ; mov ah,40h
75: ; mov bx,1 ;stdout
76: ; int 21h ;write line
77: mov ax,vseg
78: mov es,ax ;video segment
79: mov ah,7 ;attr
80: wrsc: lodsb
81: stosw
82: loop wrsc ;write ms to screen
83:
84: msox: pop es
85: pop ds
86: popad
87: ret
88:
89:
90: ; Binary to Hex Ascii Conversion
91:
92: ; ds:si->source text, es:di->output text, ds:bx->current binary parameter
93:
94: mscvh: lodsb ;read character after signal
95: dec al
96: and al,7 ;number of digits (0-7 for 1-8)
97: shl al,2 ;times bits per digit
98: movzx cx,al ;number of bits minus 4
99: mov eax,[bx] ;get parameter
100: add bx,4 ;address next parameter
101: ror eax,cl ;bits 3-0 are ms digit
102: shr cx,2
103: inc cx ;number of digits
104:
105: mshxd: mov dh,al ;save 2 digits
106: call cvhn ;convert al{3:0}
107: mov al,dh ;restore 2 digits
108: rol eax,4 ;pull up next digit
109: loop mshxd
110: jmp short msorc ;continue with text
111:
112: ; Convert Binary in al to Hex Ascii at es:[di]+
113: ; Affects: ax, di
114:
115: cvhb: cld
116: push ax ;save low digit
117: shr al,4
118: call cvhn ;convert high digit
119: pop ax ;convert low digit
120: cvhn: and al,0fh
121: or al,90h ;90-99, 9A-9F
122: daa ;90-99, 100-105
123: adc al,40h ;D0-D9, 41-46
124: daa ;130-139, 41-46
125: stosb ;store ascii 0-9, A-F
126: ret
127:
128:
129: ; Binary to Decimal Ascii Conversion
130:
131: ; ds:si->source text, es:di->output text, ds:bx->current binary parameter
132:
133: ; dh = 80h, include commas; dh = 40h, suppress leading spaces
134:
135: mscvd: lodsb ;read character after signal
136: xor ecx,ecx ;clear for use as index
137: cmp al,'w'
138: jz short msdwp ;16-bit conversion
139: cmp al,'b'
140: jnz short msdlp ;32-bit conversion
141:
142: mov 1[bx],cl ;8-bit conversion, zero high byte of low word
143: msdwp: mov 2[bx],cx ;zero high word for 8/16-bit
144: lodsb ;get next source character
145:
146: msdlp: dec al
147: and al,0fh
148: mov cl,al ;number of decimal digits (0-9 for 1-10)
149: mov ebp,[bx] ;get parameter
150: add bx,4 ;update current parameter address
151: push bx
152:
153: msdsc: sub al,3
154: jnc short msdsc ;reduce al mod 3
155: add al,3 ;add remainder
156: mov bl,al ;number of digits before first comma
157: push si ;save place in source text
158:
159: jcxz msd1 ;one digit only
160: lea si,dcval[ecx*4] ;index into 10� list for number of digits
161:
162: msdxd: std ;count downward
163: lodsd ;get 10� where n is current digit
164: cld ;count upward
165:
166: mov dl,2fh ;ascii count
167: msdxi: inc dl
168: js short msdov ;overflow
169: sub ebp,eax ;subtract 10� from parameter value
170: jnc short msdxi
171: msdov: add ebp,eax ;leave remainder
172:
173: cmp dl,3ah
174: jc short msdno ;no overflow
175: stc
176: rcr ebp,1 ;make sure it propagates
177: mov dl,'*' ;overflow character
178:
179: msdno: or dh,dl ;bits 3-0 are zero if this is a leading zero
180: test dh,0fh ;check whether all zeros so far
181: mov al,dl ;current digit
182: jnz short msdpc ;display non-leading-zero
183: mov al,' ' ;change leading zero to space
184:
185: test dh,40h
186: jnz short msdx ;skip leading spaces and commas
187:
188: msdpc: stosb ;write digit to output buffer
189:
190: or dh,dh
191: jns short msdx ;no commas
192:
193: dec bl ;decrement comma counter
194: jns short msdx ;no action until zero
195: cmp al,' '
196: jz short msdco ;leave leading space
197: mov al,','
198: msdco: stosb ;write comma to output buffer
199:
200: mov bl,2 ;reload counter
201: msdx: loop msdxd ;next digit
202: msd1: mov ax,bp ;last digit
203: cmp ax,10
204: jc short msd1n ;no overflow
205: mov al,1ah ;display *
206: msd1n: xor al,30h
207: stosb
208:
209: pop si ;restore current index in source text
210: pop bx ;restore current parameter index
211: jmp msorc ;continue with text
212:
213: align 4
214:
215: dcval equ $-4 ;10� table
216:
217: dd 10,100,1000,10000,100000,1000000
218: dd 10000000,100000000,1000000000
219:
220: msval: ;parameter list
221: mv1: dd 0
222: mv2: dd 0
223: mv3: dd 0
224: mv4: dd 0
225: mv5: dd 0
226: mv6: dd 0
227: mv7: dd 0
228: mv8: dd 0
229:
230: iobuf: db 512 dup (99h) ;output buffer
231:
232: msout endp
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.