- ifndef ??version\r
-?debug macro\r
- endm\r
- endif\r
- ?debug S "perror.c"\r
-_TEXT segment byte public 'CODE'\r
-DGROUP group _DATA,_BSS\r
- assume cs:_TEXT,ds:DGROUP,ss:DGROUP\r
-_TEXT ends\r
-_DATA segment word public 'DATA'\r
-d@ label byte\r
-d@w label word\r
-_DATA ends\r
-_BSS segment word public 'BSS'\r
-b@ label byte\r
-b@w label word\r
- ?debug C E9C0137E2D08706572726F722E63\r
- ?debug C E9CA367E2D122E2E5C696E636C7564655C737464696F2E68\r
- ?debug C E9CA367E2D122E2E5C696E636C7564655C74797065732E68\r
- ?debug C E9CA367E2D152E2E5C696E636C7564655C66656174757265732E68\r
- ?debug C E9E8367E2D162E2E5C696E636C7564655C7379732F63646566732E+\r
- ?debug C 68\r
- ?debug C E9CA367E2D132E2E5C696E636C7564655C7374646172672E68\r
- ?debug C E9CA367E2D132E2E5C696E636C7564655C756E697374642E68\r
- ?debug C E90832812D152E2E5C696E636C7564655C73797363616C6C732E68\r
- ?debug C E9CA367E2D132E2E5C696E636C7564655C7369676E616C2E68\r
- ?debug C E9CA367E2D132E2E5C696E636C7564655C737472696E672E68\r
- ?debug C E9CA367E2D132E2E5C696E636C7564655C7374646465662E68\r
- ?debug C E9CA367E2D122E2E5C696E636C7564655C6572726E6F2E68\r
-_BSS ends\r
-_TEXT segment byte public 'CODE'\r
-; ?debug L 8\r
-wr2 proc near\r
- push bp\r
- mov bp,sp\r
- push si\r
- push di\r
- mov di,word ptr [bp+4]\r
-; ?debug L 11\r
- mov si,di\r
- jmp short @2\r
-@4:\r
-; ?debug L 14\r
- inc si\r
-@2:\r
-; ?debug L 13\r
- cmp byte ptr [si],0\r
- jne @4\r
-; ?debug L 15\r
- mov ax,si\r
- sub ax,di\r
- push ax\r
- push di\r
- mov ax,2\r
- push ax\r
- call near ptr _write\r
- add sp,6\r
-; ?debug L 16\r
- pop di\r
- pop si\r
- pop bp\r
- ret \r
-wr2 endp\r
-_TEXT ends\r
-_DATA segment word public 'DATA'\r
-_DATA ends\r
-_TEXT segment byte public 'CODE'\r
-; ?debug L 18\r
-_perror proc near\r
- push bp\r
- mov bp,sp\r
- push si\r
- mov si,word ptr [bp+4]\r
-; ?debug L 21\r
- or si,si\r
- jne @6\r
-; ?debug L 22\r
- mov si,offset DGROUP:s@\r
-@6:\r
-; ?debug L 23\r
- push si\r
- call near ptr wr2\r
- pop cx\r
-; ?debug L 24\r
- mov ax,offset DGROUP:s@+6\r
- push ax\r
- call near ptr wr2\r
- pop cx\r
-; ?debug L 25\r
- push word ptr DGROUP:_errno\r
- call near ptr _strerror\r
- pop cx\r
- mov si,ax\r
-; ?debug L 26\r
- push si\r
- call near ptr wr2\r
- pop cx\r
-; ?debug L 27\r
- mov ax,offset DGROUP:s@+9\r
- push ax\r
- call near ptr wr2\r
- pop cx\r
-; ?debug L 28\r
- pop si\r
- pop bp\r
- ret \r
-_perror endp\r
-_TEXT ends\r
- ?debug C E9\r
-_DATA segment word public 'DATA'\r
-s@ label byte\r
- db 101\r
- db 114\r
- db 114\r
- db 111\r
- db 114\r
- db 0\r
- db 58\r
- db 32\r
- db 0\r
- db 10\r
- db 0\r
-_DATA ends\r
- extrn _errno:word\r
-_TEXT segment byte public 'CODE'\r
- extrn _strerror:near\r
- extrn _write:near\r
-_TEXT ends\r
- public _perror\r
-_wr2 equ wr2\r
- end\r
+ ifndef ??version
+?debug macro
+ endm
+ endif
+ ?debug S "perror.c"
+_TEXT segment byte public 'CODE'
+DGROUP group _DATA,_BSS
+ assume cs:_TEXT,ds:DGROUP,ss:DGROUP
+_TEXT ends
+_DATA segment word public 'DATA'
+d@ label byte
+d@w label word
+_DATA ends
+_BSS segment word public 'BSS'
+b@ label byte
+b@w label word
+ ?debug C E9C0137E2D08706572726F722E63
+ ?debug C E9CA367E2D122E2E5C696E636C7564655C737464696F2E68
+ ?debug C E9CA367E2D122E2E5C696E636C7564655C74797065732E68
+ ?debug C E9CA367E2D152E2E5C696E636C7564655C66656174757265732E68
+ ?debug C E9E8367E2D162E2E5C696E636C7564655C7379732F63646566732E+
+ ?debug C 68
+ ?debug C E9CA367E2D132E2E5C696E636C7564655C7374646172672E68
+ ?debug C E9CA367E2D132E2E5C696E636C7564655C756E697374642E68
+ ?debug C E90832812D152E2E5C696E636C7564655C73797363616C6C732E68
+ ?debug C E9CA367E2D132E2E5C696E636C7564655C7369676E616C2E68
+ ?debug C E9CA367E2D132E2E5C696E636C7564655C737472696E672E68
+ ?debug C E9CA367E2D132E2E5C696E636C7564655C7374646465662E68
+ ?debug C E9CA367E2D122E2E5C696E636C7564655C6572726E6F2E68
+_BSS ends
+_TEXT segment byte public 'CODE'
+; ?debug L 8
+wr2 proc near
+ push bp
+ mov bp,sp
+ push si
+ push di
+ mov di,word ptr [bp+4]
+; ?debug L 11
+ mov si,di
+ jmp short @2
+@4:
+; ?debug L 14
+ inc si
+@2:
+; ?debug L 13
+ cmp byte ptr [si],0
+ jne @4
+; ?debug L 15
+ mov ax,si
+ sub ax,di
+ push ax
+ push di
+ mov ax,2
+ push ax
+ call near ptr _write
+ add sp,6
+; ?debug L 16
+ pop di
+ pop si
+ pop bp
+ ret
+wr2 endp
+_TEXT ends
+_DATA segment word public 'DATA'
+_DATA ends
+_TEXT segment byte public 'CODE'
+; ?debug L 18
+_perror proc near
+ push bp
+ mov bp,sp
+ push si
+ mov si,word ptr [bp+4]
+; ?debug L 21
+ or si,si
+ jne @6
+; ?debug L 22
+ mov si,offset DGROUP:s@
+@6:
+; ?debug L 23
+ push si
+ call near ptr wr2
+ pop cx
+; ?debug L 24
+ mov ax,offset DGROUP:s@+6
+ push ax
+ call near ptr wr2
+ pop cx
+; ?debug L 25
+ push word ptr DGROUP:_errno
+ call near ptr _strerror
+ pop cx
+ mov si,ax
+; ?debug L 26
+ push si
+ call near ptr wr2
+ pop cx
+; ?debug L 27
+ mov ax,offset DGROUP:s@+9
+ push ax
+ call near ptr wr2
+ pop cx
+; ?debug L 28
+ pop si
+ pop bp
+ ret
+_perror endp
+_TEXT ends
+ ?debug C E9
+_DATA segment word public 'DATA'
+s@ label byte
+ db 101
+ db 114
+ db 114
+ db 111
+ db 114
+ db 0
+ db 58
+ db 32
+ db 0
+ db 10
+ db 0
+_DATA ends
+ extrn _errno:word
+_TEXT segment byte public 'CODE'
+ extrn _strerror:near
+ extrn _write:near
+_TEXT ends
+ public _perror
+_wr2 equ wr2
+ end
\1a
\ No newline at end of file