![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rciolx.lst CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / steve|
Return to rciolx.lst CVS log | Up to [Synchronet] / sbbs / steve |
1.1 root 1:
2: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
3:
4: rciolx Page 1-1
5:
6:
7: ;************************************************************************
8: ;* *
9: ;* rciol: direct 8250 communications interface for C *
10: ;* *
11: ;* prototypes: int rioini(int,int); initialize com,irq *
12: ;* int setbaud(int); set baud rate *
13: ;* *n/a int rioctl(int); remote i/o control *
14: ;* void dtr(char); set/reset dtr *
15: ;* int outcom(int); send character *
16: ;* int incom(void); receive character *
17: ;* *n/a int rioifc(int); local i/o redirection *
18: ;* *
19: ;************************************************************************
20:
21: ; this source file is lacking _rioctl and _rioifc
22:
23: 0000 biosda segment at 40h ;bios data area
24: 0000 biosda ends
25:
26: setmod %mm
27:
28: ; 8259 interrupt controller register equates
29:
30: = 0020 icr1 equ 20h ;interrupt command register (master)
31: = 0021 imr1 equ 21h ;interrupt mask register (master)
32: = 0008 ivb1 equ 8 ;vector base 0-7: cannot be read, assumed
33: = 00A0 icr2 equ 0a0h ;interrupt command register (slave)
34: = 00A1 imr2 equ 0a1h ;interrupt mask register (slave)
35: = 0070 ivb2 equ 70h ;vector base 8-f: cannot be read, assumed
36:
37: ; 8250 uart register equates
38:
39: = 0002 iir equ 2 ;interrupt identification register
40: = 0001 ier equ 1 ;interrupt enable register
41: = 000B ierd equ 0bh ;enable: rxd, thre, msr
42:
43: = 0006 msr equ 6 ;modem status register
44: = 0004 mcr equ 4 ;modem control register
45: = 000B mcrd equ 0bh ;irq enable, rts on, dtr on
46:
47: = 0005 lsr equ 5 ;line status register
48: = 0003 lcr equ 3 ;line control register
49: = 0003 lcrd equ 3 ;N,8,1 mode
50:
51: ; buffer pointer structure
52:
53: dstruc bufp,0
54: dss 2,bcnt ;character count
55: dss 2,bput ;next character to buffer
56: dss 2,bget ;next character from buffer
57: dss 1,ovfl ;overflow flag
58: dss 1
59: dss 2,bofst ;buffer offset
60: dss 2,bsize ;buffer size
61: dstruc bufp
62:
63: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
64:
65: rciolx Page 1-2
66:
67:
68: .data
69: public _plst
70:
71: align 2
72:
73: 0000 0001C200 brdd dd 115200 ;baud rate dividend
74:
75: 0004 00000000 iv16h dd 0 ;saved interrupt vector for int 16h
76: 0008 00000000 iv29h dd 0 ;saved interrupt vector for int 29h
77: 000C 00000000 ivsio dd 0 ;saved serial i/o vector
78:
79: 0010 0000 buart dw 0 ;uart base address
80: 0012 0000 lsrad dw 0 ;line status register port address
81: 0014 00 irqn db 0 ;interrupt request line
82: 0015 00 ircr db 0 ;saved interrupt controller mask
83: 0016 00 siovn db 0 ;serial i/o vector number
84:
85: = 0001 ic29h equ 1 ;int 29h is being intercepted
86: = 0003 ic29d equ 3 ;int 29h is being diverted
87: = 0010 ic16h equ 10h ;int 16h is being intercepted
88: 0017 00 intcp db 0 ;intercepted interrupt code
89:
90: 0018 00 opera db 0 ;operational (port defined, baud set)
91:
92: 0019 00 mode db 0 ;function enable (incl pause/abort cycles)
93: 001A 00 state db 0 ;operational state (must follow mode)
94: = 0002 hold equ 2 ;stop transmission
95: = 0004 abort equ 4 ;aborting
96: = 0010 ctsck equ 10h ;check clear to send signal (mode only, fixed)
97:
98: 001B 00 txintp db 0 ;transmit interrupt pending
99: 001C 00 status db 0 ;communications status
100: = 0001 rxlost equ 1 ;received characters lost
101:
102: 001D 00 align 2
103: = 0400 txbmx equ 1024 ;receive buffer maximum size
104: = 0400 rxbmx equ 1024 ;transmit buffer maximum size
105:
106: 001E _plst label word
107:
108: dv rxbp bufp,0 ;receive buffer pointers
109: dv txbp bufp,0 ;transmit buffer pointers
110:
111: dv rxb rxbmx,0a8h ;receive buffer
112: dv txb txbmx,0a8h ;transmit buffer
113:
114: 0836 00 tst db 0
115:
116: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
117:
118: rciolx Page 1-3
119:
120:
121: .code
122: public _rioini,_outcom,_incom,_dtr,_setbaud
123:
124: 0000 FFFF riods: dw -1 ;remote i/o routine data segment value
125:
126: ; initialize communications
127:
128: ; clear buffers, data, program uart, enable interrupts
129:
130: 0002 _rioini proc
131: 0002 55 push bp
132: 0003 8B EC mov bp,sp
133: 0005 56 push si
134: 0006 57 push di
135:
136: 0007 8B 46 06 mov ax,pb[bp] ;com port or uart address
137: 000A 0B C0 or ax,ax
138: 000C A1 0010 R mov ax,buart
139: 000F 75 07 jnz @f ;initialize
140: 0011 0B C0 or ax,ax
141: 0013 74 07 jz cierr ;error, not initialized
142: 0015 E9 00C6 R jmp finis ;terminate
143:
144: 0018 0B C0 @@: or ax,ax
145: 001A 74 06 jz cinit ;continue, not yet initialized
146: 001C B8 FFFF cierr: mov ax,-1
147: 001F E9 00F5 R jmp ciex ;return error
148:
149: 0022 8C D8 cinit: mov ax,ds
150: 0024 2E: A3 0000 R mov cs:riods,ax ;save data segment
151:
152: 0028 E8 010F R call ibfls ;clear input buffer
153: 002B C7 44 08 0036 R mov bofst[si],os rxb ;set receive buffer address
154: 0030 E8 0117 R call obfls ;clear output buffer
155: 0033 C7 44 08 0436 R mov bofst[si],os txb ;set transmit buffer address
156:
157: 0038 33 C0 xor ax,ax
158: 003A A3 0019 R mov mode,ax ;clear mode and state
159: 003D A2 001B R mov txintp,al ;clear int pending
160:
161: 0040 B8 ---- R mov ax,seg biosda
162: 0043 8E C0 mov es,ax
163: 0045 8B 5E 06 mov bx,pb[bp] ;com port or uart address
164: 0048 8B D3 mov dx,bx
165: 004A 4B dec bx
166: 004B 83 FB 04 cmp bx,4
167: 004E 73 0F jnc scport ;com port address specified
168:
169: 0050 83 E3 03 and bx,3 ;com 0-3 for 1-4
170: 0053 03 DB add bx,bx ;offset (x 2)
171: 0055 26: 8B 17 mov dx,es:[bx]
172: 0058 0B D2 or dx,dx
173: 005A 75 03 jnz scport ;port exists
174: 005C E9 00E8 R jmp ciabt ;no such com port
175:
176: 005F 89 16 0010 R scport: mov buart,dx ;uart base address
177:
178: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
179:
180: rciolx Page 1-4
181:
182:
183: 0063 83 C2 05 add dx,lsr
184: 0066 89 16 0012 R mov lsrad,dx ;line status register
185:
186: ; mov al,pb[bp+4] ;hardware flow control
187: ; and al,1
188: ; jz girq
189: ; or mode,ctsck ;check cts
190:
191: 006A 8A 46 08 girq: mov al,pb[bp+2] ;irq line
192: 006D 24 07 and al,7
193: 006F 75 04 jnz irqv ;valid
194: 0071 24 01 and al,1
195: 0073 04 03 add al,3 ;assume 4 for 1, 3 for 2
196: 0075 A2 0014 R irqv: mov irqn,al
197: 0078 8A C8 mov cl,al
198: 007A B0 01 mov al,1
199: 007C D2 E0 shl al,cl ;mask for current irq line
200: ; mov irqm,al
201: 007E 8A E0 mov ah,al
202: 0080 50 push ax ;save irq mask
203: 0081 E4 21 in al,imr1
204: 0083 A2 0015 R mov ircr,al ;save prior enable mask
205: 0086 0A C4 or al,ah
206: 0088 E6 21 out imr1,al ;inhibit interrupts
207: 008A 8A C1 mov al,cl ;irq number
208: 008C 04 08 add al,ivb1 ;add vector base
209: 008E A2 0016 R mov siovn,al ;save sio vector
210: 0091 E8 00F9 R call gvect ;get prior vector in dx:bx
211: 0094 89 1E 000C R mov ivsio,bx
212: 0098 89 16 000E R mov ivsio+2,dx ;save prior vector
213: 009C 0E push cs
214: 009D 5A pop dx
215: 009E BB 01C7 R mov bx,os sioisr
216: 00A1 E8 0102 R call svect ;set service routine vector in dx:bx
217:
218: 00A4 8B 16 0010 R mov dx,buart
219: 00A8 ED in ax,dx ;clear%
220: 00A9 83 C2 04 add dx,mcr
221: 00AC B0 0B mov al,mcrd
222: 00AE EE out dx,al ;modem control register
223: 00AF 4A dec dx
224: 00B0 B0 03 mov al,lcrd
225: 00B2 EE out dx,al ;line control register
226: 00B3 4A dec dx
227: 00B4 4A dec dx
228: 00B5 B0 0B mov al,ierd
229: 00B7 EE out dx,al ;interrupt enable register
230:
231: 00B8 58 pop ax ;irq mask
232: 00B9 E4 21 in al,imr1
233: 00BB F6 D4 not ah
234: 00BD 22 C4 and al,ah
235: 00BF E6 21 out imr1,al ;enable interrupts
236:
237: ; mov mw cs:mv2,1234h
238: ; xor ax,ax
239:
240: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
241:
242: rciolx Page 1-5
243:
244:
245: ; mov si,os inims
246: ; call msout
247:
248: 00C1 33 C0 xor ax,ax ;return 0
249: 00C3 EB 30 90 jmp ciex ;exit
250:
251: ; terminate serial i/o operation
252:
253: 00C6 8B 16 0010 R finis: mov dx,buart
254: 00CA 83 C2 04 add dx,mcr
255: 00CD 32 C0 xor al,al
256: 00CF EE out dx,al ;dtr off, release irq line
257:
258: 00D0 A0 0016 R mov al,siovn ;serial i/o vector
259: 00D3 8B 1E 000C R mov bx,ivsio ;prior offset
260: 00D7 8B 16 000E R mov dx,ivsio+2 ;prior segment
261: 00DB E8 0102 R call svect ;replace original vector
262:
263: 00DE A0 0015 R mov al,ircr
264: 00E1 E6 21 out imr1,al ;replace prior interrupt controller mask
265: 00E3 33 DB xor bx,bx
266: 00E5 EB 04 90 jmp cterm ;return 0
267:
268: 00E8 BB FFFF ciabt: mov bx,-1
269: 00EB 33 C0 cterm: xor ax,ax
270: 00ED A3 0010 R mov buart,ax ;not initialized
271: 00F0 A2 0018 R mov opera,al ;not operational
272: 00F3 8B C3 mov ax,bx ;return code
273: 00F5 5F ciex: pop di
274: 00F6 5E pop si
275: 00F7 5D pop bp
276: 00F8 CB ret
277:
278: 00F9 _rioini endp
279:
280:
281: ; get interrupt vector al in dx:bx
282:
283: 00F9 06 gvect: push es
284: 00FA B4 35 mov ah,35h
285: 00FC CD 21 int 21h ;returns vector in es:bx
286: 00FE 06 push es
287: 00FF 5A pop dx ;segment
288: 0100 07 pop es
289: 0101 C3 ret
290:
291: ; set interrupt vector al in dx:bx
292:
293: 0102 1E svect: push ds
294: 0103 52 push dx
295: 0104 8E DA mov ds,dx ;segment
296: 0106 8B D3 mov dx,bx ;offset
297: 0108 B4 25 mov ah,25h
298: 010A CD 21 int 21h ;takes vector in ds:dx
299: 010C 5A pop dx
300: 010D 1F pop ds
301:
302: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
303:
304: rciolx Page 1-6
305:
306:
307: 010E C3 ret
308:
309:
310: ; flush buffers
311:
312: 010F BE 001E R ibfls: mov si,os rxbp ;address input buffer pointers
313: 0112 BB 0400 mov bx,rxbmx ;set maximum size
314: 0115 EB 06 jmp s xbfls
315: 0117 BE 002A R obfls: mov si,os txbp ;address output buffer pointers
316: 011A BB 0400 mov bx,txbmx ;set maximum size
317:
318: ; si -> bufp structure, bx = maximum size
319:
320: 011D B9 0004 xbfls: mov cx,os bofst/2 ;pointer list length
321: 0120 9C pushf
322: 0121 FA cli
323: 0122 56 push si
324: 0123 33 C0 xor ax,ax
325: 0125 F3/ AB rep stosw ;clear pointers
326: 0127 5E pop si
327: 0128 89 5C 0A mov bsize[si],bx
328: 012B 9D popf
329: 012C C3 ret
330:
331:
332: ; get character from buffer, ds:si -> pointers, saves cx, dx
333:
334: 012D 8B 04 bgetc: mov ax,bcnt[si]
335: 012F 0B C0 or ax,ax
336: 0131 74 1B jz bgnc ;buffer empty
337:
338: 0133 9C pushf
339: 0134 FA cli
340: 0135 8B 5C 08 mov bx,bofst[si] ;buffer offset from segment
341: 0138 8B 7C 04 mov di,bget[si] ;character offset from buffer
342: 013B 8A 01 mov al,mb [bx+di] ;get character
343: 013D 47 inc di ;advance pointer
344: 013E 3B 7C 0A cmp di,bsize[si]
345: 0141 72 02 jc bggp ;pointer not past end of buffer
346: 0143 33 FF xor di,di ;reset to start
347: 0145 89 7C 04 bggp: mov bget[si],di
348: 0148 FF 0C dec bcnt[si] ;character count
349: 014A 9D popf ;re-enable interrupts if disabled
350: 014B 0A C0 or al,al ;character in al, clear carry
351: 014D C3 ret
352:
353: 014E F9 bgnc: stc
354: 014F C3 ret
355:
356:
357: ; put character to buffer, ds:si -> pointers, al = char, saves ax, cx, dx
358:
359: 0150 8B 1C bputc: mov bx,bcnt[si]
360: 0152 3B 5C 0A bputco: cmp bx,bsize[si]
361: 0155 73 F7 jnc bgnc ;buffer full
362:
363:
364: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
365:
366: rciolx Page 1-7
367:
368:
369: 0157 9C pushf
370: 0158 FA cli
371: 0159 8B 5C 08 mov bx,bofst[si] ;buffer offset from segment
372: 015C 8B 7C 02 mov di,bput[si] ;character offset from buffer
373: 015F 88 01 mov mb [bx+di],al ;put character
374: 0161 47 inc di ;advance pointer
375: 0162 3B 7C 0A cmp di,bsize[si]
376: 0165 72 02 jc bpgp ;pointer not past end of buffer
377: 0167 33 FF xor di,di ;reset to start
378: 0169 89 7C 02 bpgp: mov bput[si],di
379: 016C FF 04 inc bcnt[si] ;character count
380: 016E 9D popf ;re-enable interrupts if disabled
381: 016F F8 clc ;character in al, clear carry
382: 0170 C3 ret
383:
384:
385: ; sio input character
386:
387: 0171 _incom proc
388: 0171 56 push si
389: 0172 57 push di
390:
391: 0173 BE 001E R mov si,os rxbp ;address receive buffer pointers
392: 0176 E8 012D R call bgetc ;get character from receive buffer
393: 0179 8A 26 001A R mov ah,state
394: 017D 73 05 jnc icgc ;received character in al
395: 017F 80 CC 01 or ah,1 ;no character available
396: 0182 32 C0 xor al,al
397:
398: 0184 5F icgc: pop di
399: 0185 5E pop si
400: 0186 CB ret
401: 0187 _incom endp
402:
403:
404: ; sio output character
405:
406: 0187 _outcom proc
407: 0187 32 C0 xor al,al
408: 0189 8A 26 001A R mov ah,state
409: 018D F6 C4 04 test ah,abort
410: 0190 75 34 jnz ocabt ;aborting
411:
412: 0192 55 push bp
413: 0193 8B EC mov bp,sp
414: 0195 56 push si
415: 0196 57 push di
416:
417: 0197 8A 46 06 mov al,pb[bp]
418: 019A BE 002A R mov si,os txbp ;address transmit buffer pointers
419:
420: 019D 8B 1C ocrep: mov bx,bcnt[si]
421: 019F 0B DB or bx,bx
422: 01A1 75 19 jnz ocbuf ;buffer not empty
423:
424: 01A3 F6 C4 02 test ah,hold
425:
426: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
427:
428: rciolx Page 1-8
429:
430:
431: 01A6 75 14 jnz ocbuf ;paused
432:
433: 01A8 8B 16 0012 R mov dx,lsrad ;address line status register
434: 01AC 8A C8 mov cl,al
435: 01AE EC in al,dx
436: 01AF 24 20 and al,20h ;transmit hold register empty
437: 01B1 8A C1 mov al,cl
438: 01B3 74 07 jz ocbuf ;interrupt pending
439:
440: 01B5 8B 16 0010 R mov dx,buart ;uart base (r/w data port)
441: 01B9 EE out dx,al ;transmit character
442: 01BA EB 07 jmp s ocex ;exit
443:
444: 01BC E8 0152 R ocbuf: call bputco ;put character to transmit buffer
445: 01BF 73 02 jnc ocex ;done
446:
447: ;check timer, exit if 2 min.
448:
449: 01C1 EB DA jmp ocrep ;retry
450:
451: 01C3 5F ocex: pop di
452: 01C4 5E pop si
453: 01C5 5D pop bp
454: 01C6 CB ocabt: ret ;state in ah
455: 01C7 _outcom endp
456:
457:
458: ; sio interrupt service routine
459:
460: 01C7 sioisr proc
461: 01C7 FA cli
462: 01C8 50 push ax
463: 01C9 53 push bx
464: 01CA 51 push cx
465: 01CB 52 push dx
466: 01CC 56 push si
467: 01CD 57 push di
468: 01CE 1E push ds
469:
470: 01CF 2E: A1 0000 R mov ax,cs:riods
471: 01D3 8E D8 mov ds,ax ;i/o data segment
472:
473: 01D5 8B 16 0012 R isrep: mov dx,lsrad ;line status register
474: 01D9 ED in ax,dx ;lsr in al, msr in ah
475: 01DA 2E: A3 0498 R mov mw cs:mv2,ax ;%
476: 01DE 8B C8 mov cx,ax ;save line status
477: 01E0 83 EA 05 sub dx,lsr ;address r/w data port
478: 01E3 A8 01 test al,1 ;received data available
479: 01E5 74 4D jz txchk ;no character received
480:
481: 01E7 A8 0C test al,0ch ;overrun/parity/framing error
482: 01E9 EC in al,dx ;read data
483: 01EA 75 48 jnz txchk ;receive error, discard data
484:
485: 01EC 8B 1E 0019 R mov bx,mode ;mode in bl, state in bh
486: 01F0 F6 C7 04 test bh,abort
487:
488: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
489:
490: rciolx Page 1-9
491:
492:
493: 01F3 75 5F jnz intex ;aborting
494: 01F5 F6 C3 04 test bl,abort
495: 01F8 74 20 jz rcpau ;not checking for abort
496: 01FA 3C 03 cmp al,3 ;^C
497: 01FC 75 1C jnz rcpau ;not abort character
498:
499: 01FE E8 010F R call ibfls ;flush input buffer
500: 0201 E8 0117 R call obfls ;flush output buffer
501: 0204 C6 06 001A R 04 mov state,abort ;aborting
502: 0209 EB 49 90 jmp intex
503:
504: 020C C6 06 001A R 02 rxccs: mov state,hold ;set pause flag
505: 0211 EB 21 jmp s txchk
506: 0213 80 26 001A R FD rxccq: and state,not hold ;clear pause flag
507: 0218 EB 1A jmp s txchk
508:
509: 021A F6 C3 02 rcpau: test bl,hold
510: 021D 74 08 jz rxpch ;not checking pause
511: 021F 3C 13 cmp al,13h ;^s
512: 0221 74 E9 jz rxccs ;pause
513: 0223 3C 10 cmp al,10h ;^q
514: 0225 74 EC jz rxccq ;resume
515:
516: 0227 BE 001E R rxpch: mov si,os rxbp ;address receive buffer
517: 022A E8 0150 R call bputc ;put character in buffer
518: 022D 73 05 jnc txchk ;done
519: 022F 80 0E 001C R 01 or status,rxlost ;set receive characters lost flag
520:
521: 0234 F6 C1 20 txchk: test cl,20h ;transmit hold register empty
522: 0237 74 1B jz intex ;not ready to transmit
523:
524: 0239 BE 002A R mov si,os txbp ;address transmit buffer
525: 023C E8 012D R call bgetc
526: 023F 72 13 jc intex ;buffer empty
527:
528: 0241 8B 1E 0019 R mov bx,mode ;mode in bl, state in bh
529: 0245 F6 D5 not ch
530: 0247 22 EB and ch,bl ;mode and not msr
531: 0249 F6 C5 10 test ch,ctsck ;cts checking and cts off
532: 024C 75 06 jnz intex ;hardware flow off, interrupt will resume
533:
534: 024E F6 C7 02 test bh,hold
535: 0251 75 01 jnz intex ;paused
536:
537: 0253 EE out dx,al ;transmit character
538:
539: 0254 8B 16 0010 R intex: mov dx,buart
540: 0258 83 C2 02 add dx,iir
541: 025B EC in al,dx ;reset int?
542: 025C EC in al,dx
543: ; and al,1
544: ; jnz isrex ;more?
545: ; jmp isrep
546:
547: 025D 2E: FF 06 0494 R inc mw cs:mv1
548: 0262 A1 001E R mov ax,rxbp.bcnt
549:
550: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
551:
552: rciolx Page 1-10
553:
554:
555: 0265 2E: A3 049C R mov mw cs:mv3,ax
556: 0269 A1 002A R mov ax,txbp.bcnt
557: 026C 2E: A3 04A0 R mov mw cs:mv4,ax
558: 0270 B8 0320 mov ax,800
559: 0273 BE 0285 R mov si,os intmsg
560: 0276 E8 0350 R call msout
561:
562: 0279 1F isrex: pop ds
563: 027A 5F pop di
564: 027B 5E pop si
565: 027C 5A pop dx
566: 027D 59 pop cx
567: 027E 5B pop bx
568: 027F B0 20 mov al,20h
569: 0281 E6 20 out icr1,al ;non-specific eoi
570: 0283 58 pop ax
571: 0284 CF iret
572:
573: 0285 49 6E 74 65 72 72 intmsg: db 'Interrupt �5, msr/lsr �4, rxbc �4, txbc �4 ',0
574: 75 70 74 20 E4 35
575: 2C 20 6D 73 72 2F
576: 6C 73 72 20 E8 34
577: 2C 20 72 78 62 63
578: 20 E8 34 2C 20 74
579: 78 62 63 20 E8 34
580: 20 20 20 20 00
581:
582: 02B4 sioisr endp
583:
584:
585: ; set baud rate
586:
587: 02B4 _setbaud proc
588: 02B4 8B 16 0010 R mov dx,buart ;base port address
589: 02B8 0B D2 or dx,dx
590: 02BA 75 04 jnz sbinit ;initialized
591: 02BC 33 C0 xor ax,ax
592: 02BE 48 dec ax ;-1
593: 02BF CB ret ;return error
594:
595: 02C0 55 sbinit: push bp
596: 02C1 8B EC mov bp,sp
597: 02C3 56 push si
598: 02C4 8B CA mov cx,dx ;%
599: 02C6 BE 0000 R mov si,os brdd ;address baud rate dividend
600: 02C9 8B 54 02 mov dx,2[si]
601: 02CC 8B 04 mov ax,[si] ;dividend in dx:ax
602: 02CE F7 76 06 div mw pb[bp] ;divide by parameter 1
603: 02D1 8B D1 mov dx,cx ;%
604: 02D3 50 push ax ;actual rate divisor for uart
605: 02D4 8B F2 mov si,dx
606: 02D6 83 C2 03 add dx,lcr ;address line control register
607: 02D9 EC in al,dx
608: 02DA 0C 80 or al,80h
609: 02DC EE out dx,al ;address baud rate divisor
610: 02DD 87 F2 xchg si,dx
611:
612: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
613:
614: rciolx Page 1-11
615:
616:
617: 02DF 58 pop ax
618: 02E0 EF out dx,ax ;write baud rate divisor
619: 02E1 87 F2 xchg si,dx
620: 02E3 EC in al,dx
621: 02E4 24 7F and al,7fh
622: 02E6 EE out dx,al ;address rx/tx registers, ier
623: 02E7 87 F2 xchg si,dx
624: 02E9 ED in ax,dx ;clear%
625:
626: 02EA 33 C0 xor ax,ax ;no error
627: 02EC 5E pop si
628: 02ED 5D pop bp
629: 02EE CB ret
630: 02EF _setbaud endp
631:
632: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
633:
634: rciolx Page 1-12
635:
636:
637: ; drop dtr
638:
639: ; n=0 (off), n=1 (on), or n>1 (off, wait n seconds for dcd off)
640:
641: 02EF _dtr proc
642:
643: 02EF 55 push bp
644: 02F0 8B EC mov bp,sp
645: 02F2 B8 ---- R mov ax,seg biosda
646: 02F5 8E C0 mov es,ax
647:
648: 02F7 8B 16 0010 R mov dx,buart ;uart base port
649: 02FB 0B D2 or dx,dx
650: 02FD 74 35 jz dtrer ;not initialized
651:
652: 02FF 83 C2 04 add dx,4 ;address mcr
653: 0302 EC in al,dx
654: 0303 24 FE and al,0feh ;clear dtr bit
655: 0305 8A 66 06 mov ah,pb[bp] ;parameter
656: 0308 80 E4 0F and ah,0fh
657: 030B 80 FC 02 cmp ah,2 ;0 off, 1 on
658: 030E 73 07 jnc wtdcd ;off, wait for dcd
659: 0310 0A C4 or al,ah
660: 0312 EE out dx,al ;set as specified
661: 0313 32 C0 xor al,al
662: 0315 EB 1F jmp s dtrck
663:
664: 0317 EE wtdcd: out dx,al ;dtr off
665: 0318 42 inc dx
666: 0319 42 inc dx ;address msr
667:
668: 031A B9 0012 twn: mov cx,18 ;55ms/s
669: 031D 26: 8A 1E 006C tws: mov bl,es:[6ch] ;55ms counter
670: 0322 EC twt: in al,dx
671: 0323 24 80 and al,80h ;dcd
672: 0325 74 0F jz dtrck ;done
673: 0327 26: 3A 1E 006C cmp bl,es:[6ch] ;55ms counter
674: 032C 74 F4 jz twt ;wait 55ms
675: 032E E2 ED loop tws ;wait 990ms
676: 0330 FE CC dec ah
677: 0332 75 E6 jnz twn ;wait 2-x seconds
678: 0334 B0 FF dtrer: mov al,-1 ;timeout
679:
680: 0336 8A E0 dtrck: mov ah,al
681: 0338 80 7E 06 01 cmp mb pb[bp],1
682: 033C 74 10 jz dtrex ;dtr was set
683:
684: 033E 50 push ax ;dtr was reset, clear state and buffers
685: 033F E8 010F R call ibfls
686: 0342 E8 0117 R call obfls
687: 0345 32 C0 xor al,al
688: 0347 A2 001A R mov state,al
689: 034A A2 001C R mov status,al
690: 034D 58 pop ax
691:
692: 034E 5D dtrex: pop bp
693:
694: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
695:
696: rciolx Page 1-13
697:
698:
699: 034F CB ret
700: 0350 _dtr endp
701:
702: include mviow
703: C .386P
704: C
705: = B000 C vseg equ 0b000h ;video ram segment address
706: C
707: C ;****************************************************************************
708: C ;* *
709: C ;* Procedure msout On entry ds:si -> text, terminated with 0. *
710: C ;* *
711: C ;* Display message on standard output, convert parameters to hex ascii or *
712: C ;* decimal ascii for each �n, �n, �n in message where n=number of digits. *
713: C ;* Repeat character c for �nc, where n=(number of repetitions plus 30h). *
714: C ;* *
715: C ;****************************************************************************
716: C
717: = 00EA C litsg equ '�' ;next character is to be output directly
718: = 00E8 C hexsg equ '�' ;hexadecimal conversion signal
719: = 00E4 C decsg equ '�' ;decimal conversion signal
720: = 00E6 C decsgn equ '�' ;decimal conversion, leading spaces suppressed
721: = 00E3 C decsgc equ '�' ;decimal conversion, use commas
722: = 00E2 C repsg equ '�' ;repeat character signal
723: = 00E0 C sgchk equ '�' ;all characters below this value are literals
724: C
725: 0350 C msout proc near
726: 0350 66| 60 C pushad
727: 0352 1E C push ds
728: 0353 06 C push es
729: 0354 50 C push ax
730: C
731: 0355 8C C8 C mov ax,cs
732: 0357 8E D8 C mov ds,ax
733: 0359 8E C0 C mov es,ax
734: 035B BF 04B4 R C mov di,os iobuf ;output buffer
735: 035E BB 0494 R C mov bx,os msval ;parameter list
736: 0361 FC C cld
737: C
738: 0362 AC C msorc: lodsb ;read character
739: 0363 3C E0 C cmp al,sgchk
740: 0365 72 2A C jc short msowc ;not conversion character
741: C
742: 0367 3C E8 C cmp al,hexsg
743: 0369 74 44 C jz short mscvh ;hex conversion character
744: 036B 32 F6 C xor dh,dh ;decimal type flag
745: 036D 3C E4 C cmp al,decsg
746: 036F 74 78 C jz short mscvd ;decimal conversion
747: 0371 B6 40 C mov dh,40h ;leading space suppress, bit 6
748: 0373 3C E6 C cmp al,decsgn
749: 0375 74 72 C jz short mscvd ;decimal, suppress leading spaces
750: 0377 D0 E6 C shl dh,1 ;include commas, bit 7
751: 0379 3C E3 C cmp al,decsgc
752: 037B 74 6C C jz short mscvd ;decimal with commas
753: 037D 3C E2 C cmp al,repsg
754: 037F 75 0B C jnz short msolc ;not repeat character
755:
756: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
757:
758: rciolx Page 1-14
759:
760:
761: 0381 AC C lodsb ;get number of repeats
762: 0382 2C 30 C sub al,30h ;ascii zero based
763: 0384 0F B6 C8 C movzx cx,al ;count
764: 0387 AC C lodsb ;character to repeat
765: 0388 F3/ AA C rep stosb ;expand
766: 038A EB D6 C jmp short msorc
767: C
768: 038C 3C EA C msolc: cmp al,litsg
769: 038E 75 01 C jnz short msowc ;not literal signal
770: 0390 AC C lodsb ;no translation on character following
771: C
772: 0391 AA C msowc: stosb ;write character to buffer
773: 0392 0A C0 C or al,al
774: 0394 75 CC C jnz short msorc ;not at end
775: C
776: 0396 BE 04B4 R C mov si,os iobuf
777: 0399 2B FE C sub di,si ;length
778: 039B 4F C dec di
779: C ; jz msox ;what?
780: 039C 8B CF C mov cx,di
781: 039E 5F C pop di ;dest
782: C ; mov ah,40h
783: C ; mov bx,1 ;stdout
784: C ; int 21h ;write line
785: 039F B8 B000 C mov ax,vseg
786: 03A2 8E C0 C mov es,ax ;video segment
787: 03A4 B4 07 C mov ah,7 ;attr
788: 03A6 AC C wrsc: lodsb
789: 03A7 AB C stosw
790: 03A8 E2 FC C loop wrsc ;write ms to screen
791: C
792: 03AA 07 C msox: pop es
793: 03AB 1F C pop ds
794: 03AC 66| 61 C popad
795: 03AE C3 C ret
796: C
797: C
798: C ; Binary to Hex Ascii Conversion
799: C
800: C ; ds:si->source text, es:di->output text, ds:bx->current binary parameter
801: C
802: 03AF AC C mscvh: lodsb ;read character after signal
803: 03B0 FE C8 C dec al
804: 03B2 24 07 C and al,7 ;number of digits (0-7 for 1-8)
805: 03B4 C0 E0 02 C shl al,2 ;times bits per digit
806: 03B7 0F B6 C8 C movzx cx,al ;number of bits minus 4
807: 03BA 66| 8B 07 C mov eax,[bx] ;get parameter
808: 03BD 83 C3 04 C add bx,4 ;address next parameter
809: 03C0 66| D3 C8 C ror eax,cl ;bits 3-0 are ms digit
810: 03C3 C1 E9 02 C shr cx,2
811: 03C6 41 C inc cx ;number of digits
812: C
813: 03C7 8A F0 C mshxd: mov dh,al ;save 2 digits
814: 03C9 E8 03DF R C call cvhn ;convert al{3:0}
815: 03CC 8A C6 C mov al,dh ;restore 2 digits
816: 03CE 66| C1 C0 04 C rol eax,4 ;pull up next digit
817:
818: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
819:
820: rciolx Page 1-15
821:
822:
823: 03D2 E2 F3 C loop mshxd
824: 03D4 EB 8C C jmp short msorc ;continue with text
825: C
826: C ; Convert Binary in al to Hex Ascii at es:[di]+
827: C ; Affects: ax, di
828: C
829: 03D6 FC C cvhb: cld
830: 03D7 50 C push ax ;save low digit
831: 03D8 C0 E8 04 C shr al,4
832: 03DB E8 03DF R C call cvhn ;convert high digit
833: 03DE 58 C pop ax ;convert low digit
834: 03DF 24 0F C cvhn: and al,0fh
835: 03E1 0C 90 C or al,90h ;90-99, 9A-9F
836: 03E3 27 C daa ;90-99, 100-105
837: 03E4 14 40 C adc al,40h ;D0-D9, 41-46
838: 03E6 27 C daa ;130-139, 41-46
839: 03E7 AA C stosb ;store ascii 0-9, A-F
840: 03E8 C3 C ret
841: C
842: C
843: C ; Binary to Decimal Ascii Conversion
844: C
845: C ; ds:si->source text, es:di->output text, ds:bx->current binary parameter
846: C
847: C ; dh = 80h, include commas; dh = 40h, suppress leading spaces
848: C
849: 03E9 AC C mscvd: lodsb ;read character after signal
850: 03EA 66| 33 C9 C xor ecx,ecx ;clear for use as index
851: 03ED 3C 77 C cmp al,'w'
852: 03EF 74 07 C jz short msdwp ;16-bit conversion
853: 03F1 3C 62 C cmp al,'b'
854: 03F3 75 07 C jnz short msdlp ;32-bit conversion
855: C
856: 03F5 88 4F 01 C mov 1[bx],cl ;8-bit conversion, zero high byte of low word
857: 03F8 89 4F 02 C msdwp: mov 2[bx],cx ;zero high word for 8/16-bit
858: 03FB AC C lodsb ;get next source character
859: C
860: 03FC FE C8 C msdlp: dec al
861: 03FE 24 0F C and al,0fh
862: 0400 8A C8 C mov cl,al ;number of decimal digits (0-9 for 1-10)
863: 0402 66| 8B 2F C mov ebp,[bx] ;get parameter
864: 0405 83 C3 04 C add bx,4 ;update current parameter address
865: 0408 53 C push bx
866: C
867: 0409 2C 03 C msdsc: sub al,3
868: 040B 73 FC C jnc short msdsc ;reduce al mod 3
869: 040D 04 03 C add al,3 ;add remainder
870: 040F 8A D8 C mov bl,al ;number of digits before first comma
871: 0411 56 C push si ;save place in source text
872: C
873: 0412 E3 49 C jcxz msd1 ;one digit only
874: 0414 67| 8D 348D 0000046C C lea si,dcval[ecx*4] ;index into 10� list for number of digits
875: R C
876: C
877: 041C FD C msdxd: std ;count downward
878: 041D 66| AD C lodsd ;get 10� where n is current digit
879:
880: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
881:
882: rciolx Page 1-16
883:
884:
885: 041F FC C cld ;count upward
886: C
887: 0420 B2 2F C mov dl,2fh ;ascii count
888: 0422 FE C2 C msdxi: inc dl
889: 0424 78 05 C js short msdov ;overflow
890: 0426 66| 2B E8 C sub ebp,eax ;subtract 10� from parameter value
891: 0429 73 F7 C jnc short msdxi
892: 042B 66| 03 E8 C msdov: add ebp,eax ;leave remainder
893: C
894: 042E 80 FA 3A C cmp dl,3ah
895: 0431 72 06 C jc short msdno ;no overflow
896: 0433 F9 C stc
897: 0434 66| D1 DD C rcr ebp,1 ;make sure it propagates
898: 0437 B2 2A C mov dl,'*' ;overflow character
899: C
900: 0439 0A F2 C msdno: or dh,dl ;bits 3-0 are zero if this is a leading zero
901: 043B F6 C6 0F C test dh,0fh ;check whether all zeros so far
902: 043E 8A C2 C mov al,dl ;current digit
903: 0440 75 07 C jnz short msdpc ;display non-leading-zero
904: 0442 B0 20 C mov al,' ' ;change leading zero to space
905: C
906: 0444 F6 C6 40 C test dh,40h
907: 0447 75 12 C jnz short msdx ;skip leading spaces and commas
908: C
909: 0449 AA C msdpc: stosb ;write digit to output buffer
910: C
911: 044A 0A F6 C or dh,dh
912: 044C 79 0D C jns short msdx ;no commas
913: C
914: 044E FE CB C dec bl ;decrement comma counter
915: 0450 79 09 C jns short msdx ;no action until zero
916: 0452 3C 20 C cmp al,' '
917: 0454 74 02 C jz short msdco ;leave leading space
918: 0456 B0 2C C mov al,','
919: 0458 AA C msdco: stosb ;write comma to output buffer
920: C
921: 0459 B3 02 C mov bl,2 ;reload counter
922: 045B E2 BF C msdx: loop msdxd ;next digit
923: 045D 8B C5 C msd1: mov ax,bp ;last digit
924: 045F 3D 000A C cmp ax,10
925: 0462 72 02 C jc short msd1n ;no overflow
926: 0464 B0 1A C mov al,1ah ;display *
927: 0466 34 30 C msd1n: xor al,30h
928: 0468 AA C stosb
929: C
930: 0469 5E C pop si ;restore current index in source text
931: 046A 5B C pop bx ;restore current parameter index
932: 046B E9 0362 R C jmp msorc ;continue with text
933: C
934: 046E 87 DB C align 4
935: C
936: = 046C C dcval equ $-4 ;10� table
937: C
938: 0470 0000000A 00000064 C dd 10,100,1000,10000,100000,1000000
939: 000003E8 00002710 C
940: 000186A0 000F4240 C
941:
942: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
943:
944: rciolx Page 1-17
945:
946:
947: 0488 00989680 05F5E100 C dd 10000000,100000000,1000000000
948: 3B9ACA00 C
949: C
950: 0494 C msval: ;parameter list
951: 0494 00000000 C mv1: dd 0
952: 0498 00000000 C mv2: dd 0
953: 049C 00000000 C mv3: dd 0
954: 04A0 00000000 C mv4: dd 0
955: 04A4 00000000 C mv5: dd 0
956: 04A8 00000000 C mv6: dd 0
957: 04AC 00000000 C mv7: dd 0
958: 04B0 00000000 C mv8: dd 0
959: C
960: 04B4 0200[ C iobuf: db 512 dup (99h) ;output buffer
961: 99 C
962: ] C
963: C
964: C
965: 06B4 C msout endp
966: end
967:
968:
969: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
970:
971: rciolx Symbols-1
972:
973:
974: Macros:
975:
976: N a m e Lines
977:
978: .EOPG . . . . . . . . . . . . . 2
979: .ILIST . . . . . . . . . . . . . 1
980: ASYN . . . . . . . . . . . . . . 0
981: DA . . . . . . . . . . . . . . . 4
982: DBL . . . . . . . . . . . . . . 2
983: DSS . . . . . . . . . . . . . . 4
984: DSTRUC . . . . . . . . . . . . . 8
985: DV . . . . . . . . . . . . . . . 5
986: SETMOD . . . . . . . . . . . . . 0
987:
988: Segments and Groups:
989:
990: N a m e Size Length Align Combine Class
991:
992: BIOSDA . . . . . . . . . . . . . 32 Bit 0000 AT 0040
993: DGROUP . . . . . . . . . . . . . GROUP
994: _DATA . . . . . . . . . . . . 16 Bit 0837 WORD PUBLIC 'DATA'
995: RCIOLX_TEXT . . . . . . . . . . 16 Bit 06B4 WORD PUBLIC 'CODE'
996:
997: Symbols:
998:
999: N a m e Type Value Attr
1000:
1001: AA . . . . . . . . . . . . . . . TEXT .model large
1002: ABORT . . . . . . . . . . . . . NUMBER 0004
1003:
1004: BCNT . . . . . . . . . . . . . . L WORD 0000
1005: BGET . . . . . . . . . . . . . . L WORD 0004
1006: BGETC . . . . . . . . . . . . . L NEAR 012D RCIOLX_TEXT
1007: BGGP . . . . . . . . . . . . . . L NEAR 0145 RCIOLX_TEXT
1008: BGNC . . . . . . . . . . . . . . L NEAR 014E RCIOLX_TEXT
1009: BOFST . . . . . . . . . . . . . L WORD 0008
1010: BPGP . . . . . . . . . . . . . . L NEAR 0169 RCIOLX_TEXT
1011: BPUT . . . . . . . . . . . . . . L WORD 0002
1012: BPUTC . . . . . . . . . . . . . L NEAR 0150 RCIOLX_TEXT
1013: BPUTCO . . . . . . . . . . . . . L NEAR 0152 RCIOLX_TEXT
1014: BRDD . . . . . . . . . . . . . . L DWORD 0000 _DATA
1015: BSIZE . . . . . . . . . . . . . L WORD 000A
1016: BUART . . . . . . . . . . . . . L WORD 0010 _DATA
1017: BUFP . . . . . . . . . . . . . . NUMBER 000C
1018:
1019: CIABT . . . . . . . . . . . . . L NEAR 00E8 RCIOLX_TEXT
1020: CIERR . . . . . . . . . . . . . L NEAR 001C RCIOLX_TEXT
1021: CIEX . . . . . . . . . . . . . . L NEAR 00F5 RCIOLX_TEXT
1022: CINIT . . . . . . . . . . . . . L NEAR 0022 RCIOLX_TEXT
1023: CTERM . . . . . . . . . . . . . L NEAR 00EB RCIOLX_TEXT
1024: CTSCK . . . . . . . . . . . . . NUMBER 0010
1025: CVHB . . . . . . . . . . . . . . L NEAR 03D6 RCIOLX_TEXT
1026: CVHN . . . . . . . . . . . . . . L NEAR 03DF RCIOLX_TEXT
1027:
1028: DCVAL . . . . . . . . . . . . . NEAR 046C RCIOLX_TEXT
1029:
1030: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
1031:
1032: rciolx Symbols-2
1033:
1034:
1035: DECSG . . . . . . . . . . . . . NUMBER 00E4
1036: DECSGC . . . . . . . . . . . . . NUMBER 00E3
1037: DECSGN . . . . . . . . . . . . . NUMBER 00E6
1038: DS1 . . . . . . . . . . . . . . TEXT label byte
1039: DS2 . . . . . . . . . . . . . . TEXT label word
1040: DS4 . . . . . . . . . . . . . . TEXT label dword
1041: DS6 . . . . . . . . . . . . . . TEXT label fword
1042: DS8 . . . . . . . . . . . . . . TEXT label qword
1043: DSSAVE . . . . . . . . . . . . . NUMBER 0000
1044: DTRCK . . . . . . . . . . . . . L NEAR 0336 RCIOLX_TEXT
1045: DTRER . . . . . . . . . . . . . L NEAR 0334 RCIOLX_TEXT
1046: DTREX . . . . . . . . . . . . . L NEAR 034E RCIOLX_TEXT
1047:
1048: FINIS . . . . . . . . . . . . . L NEAR 00C6 RCIOLX_TEXT
1049:
1050: GIRQ . . . . . . . . . . . . . . L NEAR 006A RCIOLX_TEXT
1051: GVECT . . . . . . . . . . . . . L NEAR 00F9 RCIOLX_TEXT
1052:
1053: HEXSG . . . . . . . . . . . . . NUMBER 00E8
1054: HOLD . . . . . . . . . . . . . . NUMBER 0002
1055:
1056: IBFLS . . . . . . . . . . . . . L NEAR 010F RCIOLX_TEXT
1057: IC16H . . . . . . . . . . . . . NUMBER 0010
1058: IC29D . . . . . . . . . . . . . NUMBER 0003
1059: IC29H . . . . . . . . . . . . . NUMBER 0001
1060: ICGC . . . . . . . . . . . . . . L NEAR 0184 RCIOLX_TEXT
1061: ICR1 . . . . . . . . . . . . . . NUMBER 0020
1062: ICR2 . . . . . . . . . . . . . . NUMBER 00A0
1063: IER . . . . . . . . . . . . . . NUMBER 0001
1064: IERD . . . . . . . . . . . . . . NUMBER 000B
1065: IIR . . . . . . . . . . . . . . NUMBER 0002
1066: IMR1 . . . . . . . . . . . . . . NUMBER 0021
1067: IMR2 . . . . . . . . . . . . . . NUMBER 00A1
1068: INTCP . . . . . . . . . . . . . L BYTE 0017 _DATA
1069: INTEX . . . . . . . . . . . . . L NEAR 0254 RCIOLX_TEXT
1070: INTMSG . . . . . . . . . . . . . L NEAR 0285 RCIOLX_TEXT
1071: IOBUF . . . . . . . . . . . . . L NEAR 04B4 RCIOLX_TEXT
1072: IRCR . . . . . . . . . . . . . . L BYTE 0015 _DATA
1073: IRQN . . . . . . . . . . . . . . L BYTE 0014 _DATA
1074: IRQV . . . . . . . . . . . . . . L NEAR 0075 RCIOLX_TEXT
1075: ISREP . . . . . . . . . . . . . L NEAR 01D5 RCIOLX_TEXT
1076: ISREX . . . . . . . . . . . . . L NEAR 0279 RCIOLX_TEXT
1077: IV16H . . . . . . . . . . . . . L DWORD 0004 _DATA
1078: IV29H . . . . . . . . . . . . . L DWORD 0008 _DATA
1079: IVB1 . . . . . . . . . . . . . . NUMBER 0008
1080: IVB2 . . . . . . . . . . . . . . NUMBER 0070
1081: IVSIO . . . . . . . . . . . . . L DWORD 000C _DATA
1082:
1083: LCR . . . . . . . . . . . . . . NUMBER 0003
1084: LCRD . . . . . . . . . . . . . . NUMBER 0003
1085: LITSG . . . . . . . . . . . . . NUMBER 00EA
1086: LSR . . . . . . . . . . . . . . NUMBER 0005
1087: LSRAD . . . . . . . . . . . . . L WORD 0012 _DATA
1088:
1089: MB . . . . . . . . . . . . . . . TEXT byte ptr
1090: MCR . . . . . . . . . . . . . . NUMBER 0004
1091:
1092: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
1093:
1094: rciolx Symbols-3
1095:
1096:
1097: MCRD . . . . . . . . . . . . . . NUMBER 000B
1098: MDLC . . . . . . . . . . . . . . TEXT compact
1099: MDLH . . . . . . . . . . . . . . TEXT huge
1100: MDLL . . . . . . . . . . . . . . TEXT large
1101: MDLM . . . . . . . . . . . . . . TEXT medium
1102: MDLS . . . . . . . . . . . . . . TEXT small
1103: ML . . . . . . . . . . . . . . . TEXT dword ptr
1104: MM . . . . . . . . . . . . . . . TEXT l
1105: MODE . . . . . . . . . . . . . . L BYTE 0019 _DATA
1106: MSCVD . . . . . . . . . . . . . L NEAR 03E9 RCIOLX_TEXT
1107: MSCVH . . . . . . . . . . . . . L NEAR 03AF RCIOLX_TEXT
1108: MSD1 . . . . . . . . . . . . . . L NEAR 045D RCIOLX_TEXT
1109: MSD1N . . . . . . . . . . . . . L NEAR 0466 RCIOLX_TEXT
1110: MSDCO . . . . . . . . . . . . . L NEAR 0458 RCIOLX_TEXT
1111: MSDLP . . . . . . . . . . . . . L NEAR 03FC RCIOLX_TEXT
1112: MSDNO . . . . . . . . . . . . . L NEAR 0439 RCIOLX_TEXT
1113: MSDOV . . . . . . . . . . . . . L NEAR 042B RCIOLX_TEXT
1114: MSDPC . . . . . . . . . . . . . L NEAR 0449 RCIOLX_TEXT
1115: MSDSC . . . . . . . . . . . . . L NEAR 0409 RCIOLX_TEXT
1116: MSDWP . . . . . . . . . . . . . L NEAR 03F8 RCIOLX_TEXT
1117: MSDX . . . . . . . . . . . . . . L NEAR 045B RCIOLX_TEXT
1118: MSDXD . . . . . . . . . . . . . L NEAR 041C RCIOLX_TEXT
1119: MSDXI . . . . . . . . . . . . . L NEAR 0422 RCIOLX_TEXT
1120: MSHXD . . . . . . . . . . . . . L NEAR 03C7 RCIOLX_TEXT
1121: MSOLC . . . . . . . . . . . . . L NEAR 038C RCIOLX_TEXT
1122: MSORC . . . . . . . . . . . . . L NEAR 0362 RCIOLX_TEXT
1123: MSOUT . . . . . . . . . . . . . N PROC 0350 RCIOLX_TEXT Length = 0364
1124: MSOWC . . . . . . . . . . . . . L NEAR 0391 RCIOLX_TEXT
1125: MSOX . . . . . . . . . . . . . . L NEAR 03AA RCIOLX_TEXT
1126: MSR . . . . . . . . . . . . . . NUMBER 0006
1127: MSVAL . . . . . . . . . . . . . L NEAR 0494 RCIOLX_TEXT
1128: MV1 . . . . . . . . . . . . . . L NEAR 0494 RCIOLX_TEXT
1129: MV2 . . . . . . . . . . . . . . L NEAR 0498 RCIOLX_TEXT
1130: MV3 . . . . . . . . . . . . . . L NEAR 049C RCIOLX_TEXT
1131: MV4 . . . . . . . . . . . . . . L NEAR 04A0 RCIOLX_TEXT
1132: MV5 . . . . . . . . . . . . . . L NEAR 04A4 RCIOLX_TEXT
1133: MV6 . . . . . . . . . . . . . . L NEAR 04A8 RCIOLX_TEXT
1134: MV7 . . . . . . . . . . . . . . L NEAR 04AC RCIOLX_TEXT
1135: MV8 . . . . . . . . . . . . . . L NEAR 04B0 RCIOLX_TEXT
1136: MW . . . . . . . . . . . . . . . TEXT word ptr
1137:
1138: OBFLS . . . . . . . . . . . . . L NEAR 0117 RCIOLX_TEXT
1139: OCABT . . . . . . . . . . . . . L NEAR 01C6 RCIOLX_TEXT
1140: OCBUF . . . . . . . . . . . . . L NEAR 01BC RCIOLX_TEXT
1141: OCEX . . . . . . . . . . . . . . L NEAR 01C3 RCIOLX_TEXT
1142: OCREP . . . . . . . . . . . . . L NEAR 019D RCIOLX_TEXT
1143: OPERA . . . . . . . . . . . . . L BYTE 0018 _DATA
1144: OS . . . . . . . . . . . . . . . TEXT offset
1145: OVFL . . . . . . . . . . . . . . L BYTE 0006
1146:
1147: PB . . . . . . . . . . . . . . . NUMBER 0006
1148:
1149: RCPAU . . . . . . . . . . . . . L NEAR 021A RCIOLX_TEXT
1150: REPSG . . . . . . . . . . . . . NUMBER 00E2
1151: RIODS . . . . . . . . . . . . . L NEAR 0000 RCIOLX_TEXT
1152: RXB . . . . . . . . . . . . . . L BYTE 0036 _DATA Length = 0400
1153:
1154: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
1155:
1156: rciolx Symbols-4
1157:
1158:
1159: RXBMX . . . . . . . . . . . . . NUMBER 0400
1160: RXBP . . . . . . . . . . . . . . L BYTE 001E _DATA Length = 000C
1161: RXCCQ . . . . . . . . . . . . . L NEAR 0213 RCIOLX_TEXT
1162: RXCCS . . . . . . . . . . . . . L NEAR 020C RCIOLX_TEXT
1163: RXLOST . . . . . . . . . . . . . NUMBER 0001
1164: RXPCH . . . . . . . . . . . . . L NEAR 0227 RCIOLX_TEXT
1165:
1166: S . . . . . . . . . . . . . . . TEXT short
1167: SBINIT . . . . . . . . . . . . . L NEAR 02C0 RCIOLX_TEXT
1168: SCPORT . . . . . . . . . . . . . L NEAR 005F RCIOLX_TEXT
1169: SGCHK . . . . . . . . . . . . . NUMBER 00E0
1170: SIOISR . . . . . . . . . . . . . F PROC 01C7 RCIOLX_TEXT Length = 00ED
1171: SIOVN . . . . . . . . . . . . . L BYTE 0016 _DATA
1172: STATE . . . . . . . . . . . . . L BYTE 001A _DATA
1173: STATUS . . . . . . . . . . . . . L BYTE 001C _DATA
1174: SVECT . . . . . . . . . . . . . L NEAR 0102 RCIOLX_TEXT
1175:
1176: TST . . . . . . . . . . . . . . L BYTE 0836 _DATA
1177: TWN . . . . . . . . . . . . . . L NEAR 031A RCIOLX_TEXT
1178: TWS . . . . . . . . . . . . . . L NEAR 031D RCIOLX_TEXT
1179: TWT . . . . . . . . . . . . . . L NEAR 0322 RCIOLX_TEXT
1180: TXB . . . . . . . . . . . . . . L BYTE 0436 _DATA Length = 0400
1181: TXBMX . . . . . . . . . . . . . NUMBER 0400
1182: TXBP . . . . . . . . . . . . . . L BYTE 002A _DATA Length = 000C
1183: TXCHK . . . . . . . . . . . . . L NEAR 0234 RCIOLX_TEXT
1184: TXINTP . . . . . . . . . . . . . L BYTE 001B _DATA
1185:
1186: VSEG . . . . . . . . . . . . . . NUMBER B000
1187:
1188: WRSC . . . . . . . . . . . . . . L NEAR 03A6 RCIOLX_TEXT
1189: WTDCD . . . . . . . . . . . . . L NEAR 0317 RCIOLX_TEXT
1190:
1191: XBFLS . . . . . . . . . . . . . L NEAR 011D RCIOLX_TEXT
1192:
1193: @0 . . . . . . . . . . . . . . . L NEAR 0018 RCIOLX_TEXT
1194: @CODE . . . . . . . . . . . . . TEXT rciolx_TEXT
1195: @CODESIZE . . . . . . . . . . . TEXT 1
1196: @CPU . . . . . . . . . . . . . . TEXT 3471
1197: @DATASIZE . . . . . . . . . . . TEXT 1
1198: @FILENAME . . . . . . . . . . . TEXT rciolx
1199: @VERSION . . . . . . . . . . . . TEXT 510
1200: _dtr . . . . . . . . . . . . . . F PROC 02EF RCIOLX_TEXT Global Length = 0061
1201: _incom . . . . . . . . . . . . . F PROC 0171 RCIOLX_TEXT Global Length = 0016
1202: _outcom . . . . . . . . . . . . F PROC 0187 RCIOLX_TEXT Global Length = 0040
1203: _plst . . . . . . . . . . . . . L WORD 001E _DATA Global
1204: _rioini . . . . . . . . . . . . F PROC 0002 RCIOLX_TEXT Global Length = 00F7
1205: _setbaud . . . . . . . . . . . . F PROC 02B4 RCIOLX_TEXT Global Length = 003B
1206:
1207:
1208: Microsoft Macro Assembler Version 5.10 6/5/91 16:05:11
1209:
1210:
1211: rciolx Symbols-5
1212:
1213:
1214:
1215:
1216:
1217:
1218: 970 Source Lines
1219: 1055 Total Lines
1220: 191 Symbols
1221:
1222: 46990 + 355212 Bytes symbol space free
1223:
1224: 0 Warning Errors
1225: 0 Severe Errors
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.