![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to crt0dat.asm CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [OS/2 SDKs] / os2sdk / startup / dos|
Return to crt0dat.asm CVS log | Up to [OS/2 SDKs] / os2sdk / startup / dos |
1.1 root 1: page ,132
2: TITLE crt0dat - DOS and Windows shared startup and termination
3: ;***
4: ;crt0dat.asm - DOS and Windows shared startup and termination
5: ;
6: ; Copyright (c) 1985-1987, Microsoft Corporation. All rights reserved.
7: ;
8: ;Purpose:
9: ; Shared startup and termination.
10: ;
11: ;*******************************************************************************
12:
13: _NFILE_ = 20 ; Maximum number of file handles
14:
15: ?DF = 1 ;; tell cmacros.inc we want to define our own segments
16:
17: include version.inc
18: .xlist
19: ifdef _QC ;[8] Move these includes out of version.inc
20: include \sl\qc\src\include\kernel.inc ;[8]
21: include \sl\qc\src\include\kmac.inc ;[8]
22: endif ;_QC ;[8]
23:
24: include cmacros.inc
25: include msdos.inc
26: .list
27:
28: ifdef _QC
29: BEGINT equ 34h ;First EM.LIB interrupt vector.
30: NUMVEC equ 11 ;Uses 11 actual vectors.
31: endif ;_QC
32:
33: createSeg _TEXT, code, word, public, CODE, <>
34: createSeg CDATA, cdata, word, common, DATA, DGROUP
35: createSeg _DATA, data, word, public, DATA, DGROUP
36:
37: ifndef IBMC20
38: createSeg XIFB, xifbseg, word, public, DATA, DGROUP
39: createSeg XIF, xifseg, word, public, DATA, DGROUP ; far init's
40: createSeg XIFE, xifeseg, word, public, DATA, DGROUP
41: endif ;IBMC20
42:
43: createSeg XIB, xibseg, word, public, DATA, DGROUP
44: createSeg XI, xiseg, word, public, DATA, DGROUP ; init's
45: createSeg XIE, xieseg, word, public, DATA, DGROUP
46:
47: createSeg XOB, xobseg, word, public, BSS, DGROUP
48: createSeg XO, xoseg, word, public, BSS, DGROUP ; onexit table
49: createSeg XOE, xoeseg, word, public, BSS, DGROUP
50:
51: createSeg XPB, xpbseg, word, public, DATA, DGROUP
52: createSeg XP, xpseg, word, public, DATA, DGROUP ; preterm's
53: createSeg XPE, xpeseg, word, public, DATA, DGROUP
54:
55: createSeg XCB, xcbseg, word, public, DATA, DGROUP
56: createSeg XC, xcseg, word, public, DATA, DGROUP ; term's
57: createSeg XCE, xceseg, word, public, DATA, DGROUP
58:
59: ifndef IBMC20
60: createSeg XCFB, xcfbseg, word, public, DATA, DGROUP
61: createSeg XCF, xcfseg, word, public, DATA, DGROUP ; far term's
62: createSeg XCFE, xcfeseg, word, public, DATA, DGROUP
63: endif ;IBMC20
64:
65: defGrp DGROUP ;; define DGROUP
66:
67: codeOFFSET equ offset _TEXT:
68: dataOFFSET equ offset DGROUP:
69:
70: page
71: ifndef IBMC20
72: sBegin xifbseg
73: xifbegin label byte
74: sEnd xifbseg
75:
76: sBegin xifeseg
77: xifend label byte
78: sEnd xifeseg
79: endif ;IBMC20
80:
81: sBegin xibseg
82: xibegin label byte
83: sEnd xibseg
84:
85: sBegin xieseg
86: xiend label byte
87: sEnd xieseg
88:
89: sBegin xobseg
90: xontab label byte ; start of onexit table
91: sEnd xobseg
92:
93: sBegin xoeseg
94: xonend label byte
95: sEnd xoeseg
96:
97: sBegin xpbseg
98: xpbegin label byte ; end of onexit table
99: sEnd xpbseg
100:
101: sBegin xpeseg
102: xpend label byte
103: sEnd xpeseg
104:
105: sBegin xcbseg
106: xcbegin label byte
107: sEnd xcbseg
108:
109: sBegin xceseg
110: xcend label byte
111: sEnd xceseg
112:
113: ifndef IBMC20
114: sBegin xcfbseg
115: xcfbegin label byte
116: sEnd xifbseg
117:
118: sBegin xcfeseg
119: xcfend label byte
120: sEnd xcfeseg
121: endif ;IBMC20
122:
123: ifdef _QC
124: extrn $Exec_Shell:FAR
125: extrn $Terminate_QC:FAR ;[5] exit point for shell exits
126: extrn __fpsignal:FAR
127: extrn $EmulInit:FAR ;[6]
128: extrn $EmulTerm:FAR ;[6]
129: endif ;_QC
130:
131: sBegin cdata ; floating point setup segment
132: assumes ds,data
133:
134: dw 0 ; force segment to be at least 0's
135: labelD <PUBLIC,_fpinit> ; public for signal
136: fpmath dd 1 dup (?) ; linking trick for fp
137: fpdata dd 1 dup (?)
138: ifdef _QC
139: fpsignal dd __fpsignal ; fp signal message
140: else ;_QC
141: fpsignal dd 1 dup (?) ; fp signal message
142: endif ;_QC
143:
144: ifdef _QC ;[5]
145: staticB shellexit,0 ;[5] marker for special exit for shell
146: endif ;_QC ;[5]
147:
148: sEnd
149:
150: ifdef _QC
151: externP _Break_error
152: endif ;_QC
153:
154: sBegin data
155: assumes ds,data
156:
157: ; special C environment string
158:
159: labelB <PUBLIC,_acfinfo>
160: cfile db ';C_FILE_INFO'
161: cfilex db 0
162: cfileln = cfilex-cfile
163:
164: ifdef _QC
165: globalD _abrkvec,0 ;[4]break interrupt vector
166: endif ;_QC
167:
168: globalD _aintdiv,0 ; divide error interrupt vector save
169:
170: globalQ _fac,0 ; floating accumulator
171: globalW errno,0 ; initial error code
172: globalW _umaskval,0 ; initial umask value
173:
174: ;=============== following must be in this order
175:
176: globalW _pspadr,0 ; psp:0 (far * to PSP segment)
177: globalW _psp,0 ; psp:0 (paragraph #)
178:
179: ;=============== above must be in this order
180:
181: ;=============== following must be in this order
182:
183: labelW <PUBLIC,_osversion>
184: labelB <PUBLIC,_dosvermajor>
185: globalB _osmajor,0
186: labelB <PUBLIC,_dosverminor>
187: globalB _osminor,0
188:
189: ;=============== above must be in this order
190:
191:
192: globalB _osmode,0 ; 0 = real mode
193:
194: labelW <PUBLIC,_oserr>
195: globalW _doserrno,0 ; initial DOS error code
196:
197: globalW _nfile,_NFILE_ ; maximum number of file handles
198:
199: labelB <PUBLIC,_osfile>
200: db 3 dup (FOPEN+FTEXT) ; stdin, stdout, stderr
201: db 2 dup (FOPEN) ; stdaux, stdprn
202: db _NFILE_-5 dup (0) ; the other 15 handles
203:
204:
205: globalW __argc,0
206: globalDP __argv,0
207: globalDP environ,0 ; environment pointer
208:
209: labelD <PUBLIC,_pgmptr> ; pointer to program name
210: dw dataOFFSET dos2nam,DGROUP
211: dos2nam db 'C',0 ; dummy argv[0] for DOS 2.X
212:
213:
214: ; signal related common data
215:
216: globalW _child,0 ; flag used to handle signals from child process
217:
218: ifndef _QC ;[XX] we don't do overlays
219: ifndef IBMC20
220: ;Overlay related data
221:
222: globalB _ovlflag,0 ;Overlay flag (0 = no overlays)
223: globalB _intno,0 ;Overlay interrupt value (e.g., 3F)
224: globalD _ovlvec,0 ;Address of original overlay handler
225: endif
226: endif ;_QC ;[XX] we don't do overlays
227:
228: ifdef _QC
229: con db 'CON',0
230: _fpsave dd NUMVEC dup (0)
231: endif ;_QC
232:
233: ifdef _QC ;[1]
234: ; DWORD pointer for runtime errors. Routines calling amsg_exit set this
235: ; to their 'best guess' for the CS:IP where the error occurred. amsg_exit
236: ; then uses this information to set up information for return to the shell.
237: ; [1]
238:
239: globalD _QCrtcsip, 0 ;[1]
240: endif ;_QC ;[1]
241:
242: sEnd data
243:
244: page
245: sBegin code
246: assumes cs,code
247:
248: if sizeC
249: global proc far
250: endif
251:
252: ifndef _QC ;[X] fptrap has vanished
253: externNP _fptrap
254: endif ;_QC ;[X]
255: externP _cintDIV
256: externP _nullcheck
257:
258: ifdef _QC ;[10]
259: extrn $F_PSP:WORD ;[10]
260: endif ;ifdef _QC ;[10]
261:
262: page
263: ;***
264: ;_cinit - C initialization
265: ;
266: ;Purpose:
267: ; This routine performs the shared DOS and Windows initialization.
268: ; The following order of initialization must be preserved -
269: ;
270: ; 1. Integer divide interrupt vector setup
271: ; 2. Floating point initialization
272: ; 3. Copy ;C_FILE_INFO into _osfile
273: ; 4. Check for devices for file handles 0 - 4
274: ; 5. General C initializer routines
275: ;
276: ;Entry:
277: ;
278: ;Exit:
279: ;
280: ;Uses:
281: ;
282: ;Exceptions:
283: ;
284: ;*******************************************************************************
285:
286: cProc _cinit,<PUBLIC>,<>
287:
288: cBegin nogen ; no local frame to set up
289: assumes ds,data
290: assumes ss,data
291:
292: ; Store DOS major/minor version number
293: ; This is done in crt0dat.asm rather than in crt0.asm for Windows' sake.
294: ;
295:
296: callos VERSION
297: mov [_osversion],ax
298:
299: ; 1. Integer divide interrupt vector setup
300:
301: mov ax,DOS_getvector shl 8 + 0
302: callos ; save divide error interrupt
303: mov word ptr [_aintdiv],bx
304: mov word ptr [_aintdiv+2],es
305:
306: push cs
307: pop ds
308: assumes ds,nothing
309: mov ax,DOS_setvector shl 8 + 0
310: mov dx,codeOFFSET _cintDIV
311: callos ; set divide error interrupt
312: push ss
313: pop ds
314: assumes ds,data
315:
316:
317: ifdef _QC
318: ; 1a. BREAK interrupt vector setup.
319:
320: INT21 3523h ;[4]Get vector via MSDOS.
321:
322: mov Word Ptr [__abrkvec],bx ;[4]save vector offset
323: mov Word Ptr [__abrkvec+2],es ;[4]save vector segment
324:
325: push cs ;[4]
326: pop ds ;[4]
327: mov es,$F_PSP ;[10]get QC PSP for flags
328: test es:[PSP_KERNEL_FLGS],PSP_KF_SHELL ;[10]test if in SHELL
329: mov dx,codeOFFSET intret ;[10]set DS:DX to int-return pointer
330: JNZ cinit_shell ;[10]if SHELL, then jump
331: mov dx,codeOFFSET __Break_error ;[4]
332: cinit_shell: ;[10]
333: INT21 2523h ;[4]Set up new break vector
334:
335: push ss ;[4]
336: pop ds ;[4]
337: endif ;_QC
338:
339: ; 2. Floating point initialization
340:
341: ifndef _QC
342: mov cx,word ptr [fpmath+2]
343: jcxz nofloat_i
344:
345: mov es,[_psp] ; psp segment
346: mov si,es:[DOS_ENVP] ; environment segment
347: lds ax,[fpdata] ; get task data area
348: assumes ds,nothing
349: mov dx,ds ; into dx:ax
350: xor bx,bx ; (si) = environment segment
351: call [fpmath] ; fpmath(0) - init
352: jnc fpok
353:
354: push ss ; restore ds from ss
355: pop ds
356: jmp _fptrap ; issue "Floating point not loaded"
357: ; error and abort
358:
359: fpok:
360: lds ax,[fpsignal] ; get signal address
361: assumes ds,nothing
362: mov dx,ds
363: mov bx,3
364: call [fpmath] ; fpmath(3) - set signal address
365: push ss
366: pop ds
367: assumes ds,data
368:
369: nofloat_i:
370: else ;_QC
371: ; cCall $EmulInit,<addr of __fpinit> ;[9]
372: push ds ;[9]
373: mov ax,dataOffset _fpinit ;[9]
374: push ax ;[9]
375: call $EmulInit ;[6]
376: endif ;_QC
377:
378: ; 3. Copy ;C_FILE_INFO into _osfile
379:
380: ; fix up files inherited from child using ;C_FILE_INFO
381:
382: mov es,[_psp] ; es = PSP
383: mov cx,word ptr es:[DOS_envp] ; es = user's environment
384: jcxz nocfi ; no environment !!!
385: mov es,cx
386: xor di,di ; start at 0
387:
388: cfilp:
389: cmp byte ptr es:[di],0 ; check for end of environment
390: je nocfi ; yes - not found
391: mov cx,cfileln
392: mov si,dataOFFSET cfile
393: repe cmpsb ; compare for ';C_FILE_INFO'
394: je gotcfi ; yes - now do something with it
395: mov cx,07FFFh ; environment max = 32K
396: xor ax,ax
397: repne scasb ; search for end of current string
398: jne nocfi ; no 00 !!! - assume end of env.
399: jmp cfilp ; keep searching
400:
401: ; found ;C_FILE_INFO and transfer info into _osfile
402:
403: gotcfi:
404: push es
405: push ds
406: pop es ; es = DGROUP
407: pop ds ; ds = env. segment
408: assumes ds,nothing
409: assumes es,data
410: mov si,di ; si = startup of _osfile info
411: mov di,dataOFFSET _osfile ; di = _osfile block
412:
413: lodsb ; must be less than 20
414: cbw
415: xchg cx,ax ; cx = number of entries
416:
417: osflp:
418: lodsb ; get next byte
419: inc al
420: jz saveit ; was FF - save as 00
421: dec ax ; restore al
422: saveit:
423: stosb
424: loop osflp ; transfer next character
425:
426: push ss
427: pop ds ; ds = DGROUP
428: assumes ds,data
429: nocfi:
430:
431:
432: ; 4. Check for devices for file handles 0 - 4
433: ;
434: ; Clear the FDEV bit (which might be inherited from C_FILE_INFO)
435: ; and then call DOS to see if it really is a device or not
436: ;
437: mov bx,4
438:
439: devloop:
440: and _osfile[bx],not FDEV ; clear FDEV bit on principal
441:
442: mov ax,DOS_ioctl shl 8 + 0 ; issue ioctl(0) to get dev info
443: callos
444: jc notdev
445:
446: test dl,80h ; is it a device ?
447: jz notdev ; no
448: or _osfile[bx],FDEV ; yes - set FDEV bit
449:
450: notdev:
451: dec bx
452: jns devloop
453:
454: ; 5. General C initializer routines
455:
456: ifndef IBMC20
457: mov si,dataOFFSET xifbegin
458: mov di,dataOFFSET xifend
459: if sizeC
460: call initterm ; call the far initializers
461: else
462: call farinitterm ; call the far initializers
463: endif
464:
465: ifdef _QC ;[2]
466: mov bx,24 ;[2] offset in table
467: mov si,PSP_UL_TERM_OFF ;[7] QLB initializers
468: call ulibinitterm ;[2] execute far C initializers
469:
470: mov bx,24 ;[7] offset in table
471: mov si,PSP_EXE_TRM_OFF ;[7] .exe initializers
472: call ulibinitterm ;[7] execute far C initializers
473: endif ;_QC ;[2]
474: endif ;IBMC20
475:
476: mov si,dataOFFSET xibegin
477: mov di,dataOFFSET xiend
478: call initterm ; call the initializers
479:
480: ifdef _QC ;[2]
481: mov bx,0 ;[2] offset in table
482: mov si,PSP_UL_TERM_OFF ;[7] User Lib initializers
483: call ulibinitterm ;[2] execute C initializers
484:
485: mov bx,0 ;[7] offset in table
486: mov si,PSP_EXE_TRM_OFF ;[7] .exe initializers
487: call ulibinitterm ;[7] execute far C initializers
488: endif ;_QC ;[2]
489:
490: ret
491: cEnd nogen
492:
493: page
494: ;***
495: ;exit(status), _exit(status) - C termination
496: ;
497: ;Purpose:
498: ; The termination sequence is more complicated due to the multiple
499: ; entry points - exit(code) and _exit(code). The _exit() routine
500: ; is a quick exit routine that does not do certain C exit functions
501: ; like stdio buffer flushing and onexit processing.
502: ;
503: ; exit (status):
504: ;
505: ; 1. call runtime preterminators
506: ;
507: ; _exit (status):
508: ;
509: ; 2. perform C terminators
510: ; 3. perform _nullcheck() for null pointer assignment
511: ; 4. close all open files
512: ; 5. terminate floating point
513: ; 6. reset divide by zero interrupt vector
514: ; 7. restore int 3F handler
515: ; 8. terminate with return code to DOS
516: ;
517: ;Entry:
518: ; int status - exit status
519: ;
520: ;Exit:
521: ; returns to DOS.
522: ;
523: ;Uses:
524: ;
525: ;Exceptions:
526: ;
527: ;*******************************************************************************
528:
529: public _exit
530: _exit:
531: cProc dummy1,<>,<>
532:
533: parmw status
534:
535: cBegin
536: assumes ds,data
537: assumes ss,data
538:
539: ; 1. call runtime preterminators
540: ; - onexit processing
541: ; - flushall
542: ; - rmtmp
543:
544: mov si,dataOFFSET xontab ; beginning of onexit table
545: mov di,dataOFFSET xonend ; end of onexit table
546: call initterm
547:
548: mov si,dataOFFSET xpbegin ; beginning of pre-terminators
549: mov di,dataOFFSET xpend ; end of pre-terminators
550: call initterm
551:
552: ifdef _QC ;[2]
553: ; [2] call the preterminators for the user library.
554:
555: mov bx,8 ;[2] offset in table
556: mov si,PSP_UL_TERM_OFF ;[7] User Lib initializers
557: call ulibinitterm ;[2] execute C terminators
558:
559: mov bx,8 ;[7] offset in table
560: mov si,PSP_EXE_TRM_OFF ;[7] .exe initializers
561: call ulibinitterm ;[7] execute far C initializers
562: endif ;_QC ;[2]
563:
564: jmp short exiting ; jump into _exit
565:
566: cend nogen
567:
568: ifdef _QC ;[5]
569:
570: public __shell_exit ;[5]
571: __shell_exit: ;[5]
572:
573: cProc dummy3,<>,<> ;[5]
574: parmw status ;[5]
575:
576: cBegin ;[5]
577: mov [shellexit],1 ;[5] mark as a shell exit
578: jmp short exiting ;[5] jump into _exit
579: cEnd nogen ;[5]
580:
581: public __qcexit ;[11]
582: __qcexit: ;[11]
583:
584: cproc dummy4,<>,<> ;[11]
585: parmw status ;[11]
586:
587: cBegin ;[11]
588: jmp short startclose ;[11]
589: cEnd nogen ;[11]
590: endif ;_QC ;[5]
591:
592: public __exit
593: __exit:
594: cProc dummy2,<>,<>
595:
596: parmw status
597:
598: cBegin
599: assumes ds,data
600: assumes ss,data
601:
602: exiting:
603:
604: ; 2. perform C terminators
605:
606: mov si,dataOFFSET xcbegin
607: mov di,dataOFFSET xcend
608: call initterm ; call the terminators
609:
610: ifdef _QC ;[2]
611: ; [2] call the terminators for the user library.
612:
613: mov bx,16 ;[2] offset in table
614: mov si,PSP_UL_TERM_OFF ;[7] User Lib initializers
615: call ulibinitterm ;[2] execute C terminators
616:
617: mov bx,16 ;[7] offset in table
618: mov si,PSP_EXE_TRM_OFF ;[7] .exe initializers
619: call ulibinitterm ;[7] execute far C initializers
620: endif ;_QC ;[2]
621:
622: ifndef IBMC20
623: mov si,dataOFFSET xcfbegin
624: mov di,dataOFFSET xcfend
625: if sizeC
626: call initterm ; call the far terminators
627: else
628: call farinitterm ; call the far terminators
629: endif
630:
631: ifdef _QC ;[2]
632: ; [2] call the terminators for the user library.
633:
634: mov bx,32 ;[2] offset in table
635: mov si,PSP_UL_TERM_OFF ;[7] User Lib initializers
636: call ulibinitterm ;[2] execute far terminators
637:
638: mov bx,32 ;[7] offset in table
639: mov si,PSP_EXE_TRM_OFF ;[7] .exe initializers
640: call ulibinitterm ;[7] execute far C initializers
641: endif ;_QC ;[2]
642:
643: endif ;IBMC20
644:
645: ; 3. perform _nullcheck() for null pointer assignment
646:
647: call _nullcheck ; check data in NULL data segment at DS:0
648: or ax,ax ; zero if no null ptr assignment detected
649: jz startclose
650: cmp status,0 ; zero if no other error has occurred
651: jnz startclose
652: mov status,255 ; nonzero status to indicate an
653: ; null-pointer-assignment error
654: startclose:
655:
656: ; 4. close all files (except pre-opened handles 0-4)
657:
658: ifdef _QC
659:
660: ;
661: ; M00BUG -- Can't assume that devices 0, 1, 2, 3, and 4 are DEVICE only.
662: ;
663:
664: mov cx,_NFILE ;[ 1]
665: xor bx,bx ;[ 1]
666: ;[ 1]
667: closeloop: ;[ 1]
668: cmp bx,5 ;[ 1]
669: jae closeit ;Unless > 4, which must close. ;[ 1]
670: ;[ 1]
671: test [__osfile+bx],FDEV ;[ 1]
672: jz openit ;Must open devices 0 -> 4. ;[ 1]
673: ;[ 1]
674: test [__osfile+bx],FOPEN ;[ 1]
675: jnz cycle_files ;DEVICE's should stay open. ;[ 1]
676: ;[ 1]
677: openit: ;[ 1]
678: mov dx,dataOFFSET con ;Ugly brute force method. ;[ 1]
679: mov ax,3D02h ;[ 1]
680: int 21h ;[ 1]
681: ;[ 1]
682: jmp short cycle_files ;[ 1]
683: ;[ 1]
684: closeit: ;[ 1]
685: test [__osfile+bx],FOPEN ;[ 1]
686: jz cycle_files ;[ 1]
687: ;[ 1]
688: INT21 3Eh ;MSDOS close file. ;[ 1]
689: ;[ 1]
690: cycle_files: ;[ 1]
691: inc bx
692: loop closeloop
693:
694: else ;_QC
695: mov cx,_NFILE_-5
696: mov bx,5 ; close handles that are not pre-opened
697:
698: closeloop:
699: test _osfile[bx],FOPEN
700: jz notopen
701:
702: callos close
703:
704: notopen:
705: inc bx
706: loop closeloop
707: endif ;_QC
708:
709: ; 5. terminate floating point
710: ; 6. reset divide by zero interrupt vector
711: ; 7. restore int 3F handler
712:
713: call _ctermsub ; fast cleanup
714:
715: ifdef _QC
716: ; 8. return to SHELL.
717:
718: cmp [shellexit],1
719: je exit_sh1
720:
721: mov ax,[status]
722: jmp Far Ptr $Exec_Shell
723:
724: exit_sh1:
725: mov ax,[status]
726: jmp Far Ptr $Terminate_QC
727:
728: ;[10] Interrupt return for control-break routine while in SHELL.
729:
730: intret: ;[10]
731: IRET ;[10]immediate return while in termination
732:
733: else ;_QC
734: ; 8. return to the DOS
735:
736: mov ax,status ; get return value
737: callos terminate ; exit with al = return code
738: endif ;_QC
739:
740: cEnd nogen
741:
742: if sizeC
743: global endp
744: endif
745:
746: page
747: ;***
748: ;_ctermsub - more C termination code
749: ;
750: ;Purpose:
751: ; This routine
752: ; (1) performs floating-point termination
753: ; (2) resets the divide by zero interrupt vector
754: ; (3) restore int 3F handler
755: ;
756: ;Entry:
757: ;
758: ;Exit:
759: ;
760: ;Uses:
761: ; AX,BX,CX,DX.
762: ;
763: ;Exceptions:
764: ;
765: ;*******************************************************************************
766:
767: labelNP <PUBLIC,_ctermsub>
768:
769: ; 5. terminate floating point
770: ifndef _QC
771: mov cx,word ptr [fpmath+2] ; test for floating point
772: jcxz nofloat_t ; no
773:
774: mov bx,2 ; yes - cleanup
775: call [fpmath]
776:
777: nofloat_t:
778: else ;_QC ;[6]
779: call $EmulTerm ;[6] clean up floating point
780: endif ;_QC ;[6]
781:
782: ; 6. reset divide by zero interrupt vector
783:
784: push ds
785: lds dx,[_aintdiv] ; ds:dx = restore vector
786: mov ax,DOS_setvector shl 8 + 0
787: callos ; set divide error interrupt
788: pop ds
789:
790: ifdef _QC
791: ; 6a. reset Control break interrupt vector
792:
793: push ds ;[4]
794: lds dx,[__abrkvec] ;[4]Original BREAK vector.
795: INT21 2523h ;[4]
796: pop ds ;[4]
797: endif ;_QC
798:
799: ifndef _QC ;[XX] We don't have overlays
800: ifndef IBMC20
801: ; 7. restore overlay interrupt vector
802:
803: cmp byte ptr [_ovlflag],0 ; Overlays in use ??
804: jz done_ovlvec ; if 0, don't restore overlay vector
805: push ds ; save ds
806: mov al,byte ptr [_intno] ; overlay interrupt number
807: lds dx,dword ptr [_ovlvec] ; original ovl interrupt vector
808: callos setvector ; restore the overlay vector
809: pop ds ; restore ds
810: done_ovlvec:
811: endif
812: endif ; _QC ;[XX]
813: ret
814:
815:
816: page
817: ;***
818: ;initterm - do a set of initializers or terminators
819: ;
820: ;Purpose:
821: ; The initializors and terminators may be written in C
822: ; so we are assuming C conventions (DS=SS, CLD, SI and DI preserved)
823: ; We go through them in reverse order for onexit.
824: ;
825: ;Entry:
826: ; SI = start of procedure list
827: ; DI = end of procedure list
828: ;
829: ;Exit:
830: ;
831: ;Uses:
832: ;
833: ;Exceptions:
834: ;
835: ;*******************************************************************************
836:
837: initterm:
838: cmp si,di ; are we done?
839: jae itdone ; yes - no more
840:
841: if sizeC
842: sub di,4
843: mov ax,[di]
844: or ax,[di+2]
845: jz initterm ; skip null procedures
846: call dword ptr [di]
847: else
848: dec di
849: dec di
850: mov cx,[di]
851: jcxz initterm ; skip null procedures
852: call cx
853: endif
854: jmp initterm ; keep looping
855:
856: itdone:
857: ret
858:
859: page
860: ifndef IBMC20
861: ife sizeC ; S/C models only
862: ;***
863: ;farinitterm - do a set of far initializers or terminators
864: ;
865: ;Purpose:
866: ; The initializors and terminators may be written in C
867: ; so we are assuming C conventions (DS=SS, CLD, SI and DI preserved)
868: ; We go through them in reverse order for onexit.
869: ;
870: ;Entry:
871: ; SI = start of procedure list
872: ; DI = end of procedure list
873: ;
874: ;Exit:
875: ;
876: ;Uses:
877: ;
878: ;Exceptions:
879: ;
880: ;*******************************************************************************
881:
882: farinitterm:
883: cmp si,di ; are we done?
884: jae faritdone ; yes - no more
885:
886: sub di,4
887: mov ax,[di]
888: or ax,[di+2]
889: jz farinitterm ; skip null procedures
890: call dword ptr [di]
891: jmp farinitterm ; keep looping
892:
893: faritdone:
894: ret
895: endif ;sizeC
896: endif ;IBMC20
897:
898:
899: ifdef _QC ;[2]
900: ;***
901: ; ulibinitterm - do a set of far initializers or terminators
902: ;
903: ;Purpose:
904: ; The initializors and terminators may be written in C
905: ; so we are assuming C conventions (DS=SS, CLD, SI and DI preserved)
906: ; We go through them in reverse order for onexit.
907: ;
908: ;Entry:
909: ; BX = Offset in User Library Init table to use
910: ;
911: ;Exit:
912: ;
913: ;Uses:
914: ; SI, DI, CX, AX, ES
915: ;
916: ;Exceptions:
917: ;
918: ;*******************************************************************************
919:
920: ulibinitterm: ;[2]
921: push ds ;[2] save DGROUP
922: cmp [shellexit],1 ;[7]
923: je skipfarterm ;[7] shell does not do this initializations
924:
925: mov ds,[_psp] ;[2] get pointer to PSP
926: lds si,dword ptr ds:[si] ;[7] load user library far terminator table address
927: mov cx,ds ;[2] verify that the table exists
928: or cx,si ;[2]
929: jz skipfarterm ;[2] NO? then skip over initialization code
930: les di,ds:[si+bx]+4 ;[2] Get end of far terminator list
931: ;[2] Compute offset of list from DGROUP
932: mov ax,es ;[2] ax = list segment
933: pop cx ;[2] cx = DGROUP segment
934: push cx ;[2]
935: sub ax,cx ;[2] difference
936: mov cl,4 ;[2]
937: shl ax,cl ;[2] shift up
938: add di,ax ;[2]
939: les si,ds:[si+bx] ;[2] Get end of far terminator list
940: ;[2] Compute offset of list from DGROUP
941: mov ax,es ;[2] ax = list segment
942: pop cx ;[2] cx = DGROUP segment
943: push cx ;[2]
944: sub ax,cx ;[2] difference
945: mov cl,4 ;[2]
946: shl ax,cl ;[2] shift up
947: add si,ax ;[2]
948: pop ds ;[2] Restore DGROUP
949: push ds ;[2]
950: call initterm ;[2] Execute the list of far terminators
951:
952: skipfarterm: ;[2]
953: pop ds ;[2] restore dgroup
954: ret ;[2]
955: endif ;_QC ;[2]
956:
957: sEnd
958: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.