Return to fmsghdr.asm CVS log

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

Annotation of os2sdk/startup/fmsghdr.asm, revision 1.1

1.1     ! root        1:        TITLE   fmsghdr       - far message handler and finder
        !             2: ;***
        !             3: ;fmsghdr.asm - far message handler and finder
        !             4: ;
        !             5: ;      Copyright (c) 1986-1987, Microsoft Corporation.  All rights reserved.
        !             6: ;
        !             7: ;Purpose:
        !             8: ;      Far message handler and finder.
        !             9: ;
        !            10: ;*******************************************************************************
        !            11: 
        !            12: 
        !            13: ?DF=   1                       ; this is special for c startup
        !            14: include        version.inc
        !            15: ?PLM=  1                       ; pascal calling conventions
        !            16: .xlist
        !            17: include        cmacros.inc
        !            18: include        msdos.inc
        !            19: .list
        !            20: 
        !            21: createSeg _TEXT, code, word,   public, CODE,   <>
        !            22: 
        !            23: createSeg _DATA, data, word,   public, DATA,   DGROUP
        !            24: 
        !            25: createSeg FAR_HDR,fhdr, byte,  public, FAR_MSG,FMGROUP
        !            26: createSeg FAR_MSG,fmsg, byte,  public, FAR_MSG,FMGROUP
        !            27: createSeg FAR_PAD,fpad, byte,  common, FAR_MSG,FMGROUP
        !            28: createSeg FAR_EPAD,fepad, byte,        common, FAR_MSG,FMGROUP
        !            29: 
        !            30: defGrp DGROUP                  ; define DGROUP
        !            31: defGrp FMGROUP                 ; define FMGROUP
        !            32: 
        !            33: codeOFFSET equ offset _TEXT:
        !            34: fmsgOFFSET equ offset FMGROUP:
        !            35: 
        !            36: 
        !            37: sBegin fhdr
        !            38: assumes        ds,data
        !            39: 
        !            40:        db      '<<FMSG>>'
        !            41: stfmsg label   byte
        !            42: 
        !            43: sEnd
        !            44: 
        !            45: SBegin fpad
        !            46: assumes        ds,data
        !            47: 
        !            48:        dw      -1              ; message padding marker
        !            49: 
        !            50: sEnd
        !            51: 
        !            52: sBegin fepad
        !            53: assumes        ds,data
        !            54: 
        !            55:        db      -1
        !            56: 
        !            57: sEnd
        !            58: 
        !            59: 
        !            60: sBegin code
        !            61: assumes        cs,code
        !            62: assumes        ds,data
        !            63: 
        !            64: page
        !            65: ;***
        !            66: ;__FMSG_TEXT(messagenumber) - find message for given message number
        !            67: ;
        !            68: ;Purpose:
        !            69: ;      This routine returns a far pointer to the message associated with
        !            70: ;      messagenumber.  If the message does not exist, then a 0:0 is returned.
        !            71: ;
        !            72: ;Entry:
        !            73: ;      ==PASCAL CALLING CONVENTIONS==
        !            74: ;      messagenumber   = WORD number of desired message
        !            75: ;
        !            76: ;Exit:
        !            77: ;      DX:AX   = pointer to message text or 0:0 if message doesn't exist
        !            78: ;
        !            79: ;Uses:
        !            80: ;
        !            81: ;Exceptions:
        !            82: ;
        !            83: ;*******************************************************************************
        !            84: 
        !            85: cProc  __FMSG_TEXT,<PUBLIC>,<ds,si,di>  ; pascal calling
        !            86: 
        !            87: parmW  msgt
        !            88: 
        !            89: cBegin
        !            90:        mov     ax,FMGROUP
        !            91:        mov     ds,ax           ; ds = FMGROUP (force it always)
        !            92:        push    ds
        !            93:        pop     es
        !            94:        mov     dx,msgt         ; dx = message number
        !            95:        mov     si,fmsgOFFSET stfmsg ; start of far messages
        !            96: 
        !            97: tloop:
        !            98:        lodsw                   ; ax = current message number
        !            99:        cmp     ax,dx
        !           100:        je      found           ;   found it - return address
        !           101:        inc     ax
        !           102:        xchg    ax,si
        !           103:        jz      found           ;   at end and not found - return 0
        !           104:        xchg    di,ax
        !           105:        xor     ax,ax
        !           106:        mov     cx,-1
        !           107:        repne   scasb           ; skip until 00
        !           108:        mov     si,di
        !           109:        jmp     tloop           ; try next entry
        !           110: 
        !           111: found:
        !           112:        xchg    ax,si
        !           113:        cwd                     ; zero out dx in case NULL
        !           114:        or      ax,ax
        !           115:        jz      notfound
        !           116:        mov     dx,ds           ; remember segment selector
        !           117: notfound:
        !           118: cEnd
        !           119: 
        !           120: sEnd
        !           121: 
        !           122:        end

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