Return to execmsg.asm CVS log

Up to [OS/2 SDKs] / os2sdk / startup / os2

Annotation of os2sdk/startup/os2/execmsg.asm, revision 1.1.1.1

1.1       root        1:        TITLE   execmsg - exec messages
                      2: ;***
                      3: ;5execmsg.asm - OS/2 exec error messages
                      4: ;
                      5: ;      Copyright (c) 1987, Microsoft Corporation.  All rights reserved.
                      6: ;
                      7: ;Purpose:
                      8: ;      error messages used with exec*() library functions
                      9: ;      (and spawn*() functions with P_OVERLAY).
                     10: ;
                     11: ;*******************************************************************************
                     12:        page    ,132
                     13: 
                     14: include        version.inc
                     15: .xlist
                     16: include        cmacros.inc
                     17: .list
                     18: 
                     19: createSeg HDR, nhdr,   byte,   public, MSG,    DGROUP
                     20: createSeg MSG, nmsg,   byte,   public, MSG,    DGROUP
                     21: createSeg PAD, npad,   byte,   common, MSG,    DGROUP
                     22: createSeg EPAD,        nepad,  byte,   common, MSG,    DGROUP
                     23: 
                     24:        page
                     25: 
                     26: ERROR_BAD_ENVIRONMENT = 10
                     27: ERROR_NOT_ENOUGH_MEMORY = 8
                     28: 
                     29: externP        _exit
                     30: externP        _NMSG_WRITE
                     31: externP        _FF_MSGBANNER
                     32: 
                     33: sBegin NMSG
                     34: assumes        ds,data
                     35: 
                     36:        dw      5
                     37:        db      'R6005',13,10,'- not enough memory on exec',13,10,0
                     38:        dw      6
                     39:        db      'R6006',13,10,'- bad format on exec',13,10,0
                     40:        dw      7
                     41:        db      'R6007',13,10,'- bad environment on exec',13,10,0
                     42: 
                     43: sEnd   NMSG
                     44: 
                     45: sBegin NPAD
                     46: assumes        ds,data
                     47:        dw      -1
                     48: ; no padding for now;
                     49: ; MAX padding would be
                     50: ;      db      67 dup(0)
                     51: sEnd
                     52: 
                     53:        page
                     54: 
                     55: sBegin CODE
                     56: assumes        cs,CODE
                     57: 
                     58: page
                     59: ;***
                     60: ;_execmsg - handles fatal exec*() error messages
                     61: ;
                     62: ;Purpose:
                     63: ;      prints out fatal error message for exec failures
                     64: ;      using __FF_MSGBANNER and __NMSG_WRITE,
                     65: ;      and then terminates hard by calling __exit.
                     66: ;
                     67: ;Entry:
                     68: ;      AX == DosExecPgm error return code
                     69: ;
                     70: ;Exit:
                     71: ;      none.
                     72: ;
                     73: ;Uses:
                     74: ;      AX, BX, CX, DX, ES.
                     75: ;
                     76: ;Exceptions:
                     77: ;      Warning:  This routine does not return to the caller, it will always
                     78: ;                exit through __exit().
                     79: ;*******************************************************************************
                     80: 
                     81: cProc  _execmsg,<PUBLIC, NEAR>
                     82: 
                     83: cBegin nogen
                     84: 
                     85:        or      ax,ax           ;See if any DOS error at all
                     86:        jz      Exec_Exit
                     87: 
                     88:        mov     dx,7            ;See if "Bad Environment"
                     89:        cmp     ax,ERROR_BAD_ENVIRONMENT
                     90:        je      Exec_Msg
                     91: 
                     92:        mov     dx,5            ;See if "Out of Memory"
                     93:        cmp     ax,ERROR_NOT_ENOUGH_MEMORY
                     94:        je      Exec_Msg
                     95: 
                     96:        mov     dx,6            ;See if not "Bad Exec"
                     97: 
                     98: Exec_Msg:
                     99:        push    dx              ;Parmeter is the message index number.
                    100:        call    __FF_MSGBANNER  ;write out 13,10,'run-time error '
                    101:        call    __NMSG_WRITE
                    102: 
                    103:        mov     ax,-1
                    104: 
                    105: Exec_Exit:
                    106:        push    ax
                    107:        call    __exit          ;Terminate job.
                    108: 
                    109: cEnd   nogen
                    110: 
                    111: sEnd   CODE
                    112:        end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.