ytabmac.inc

来自「开放源码的编译器open watcom 1.6.0版的源代码」· INC 代码 · 共 263 行

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;                            Open Watcom Project
;
;    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
;
;  ========================================================================
;
;    This file contains Original Code and/or Modifications of Original
;    Code as defined in and that are subject to the Sybase Open Watcom
;    Public License version 1.0 (the 'License'). You may not use this file
;    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
;    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
;    provided with the Original Code and Modifications, and is also
;    available at www.sybase.com/developer/opensource.
;
;    The Original Code and all software distributed under the License are
;    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
;    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
;    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
;    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
;    NON-INFRINGEMENT. Please see the License for the specific language
;    governing rights and limitations under the License.
;
;  ========================================================================
;
; Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
;               DESCRIBE IT HERE!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


ljmp    macro   label
        db      0e9h
        dw      label-$-2
        endm

_jna    macro   label
        ja      $+5
        ljmp    label
        endm

_jnae   macro   label
        jae     $+5
        ljmp    label
        endm

_jnb    macro   label
        jb      $+5
        ljmp    label
        endm

_jnbe   macro   label
        jbe     $+5
        ljmp    label
        endm

_jnc    macro   label
        jc      $+5
        ljmp    label
        endm

_jne    macro   label
        je      $+5
        ljmp    label
        endm

_jng    macro   label
        jg      $+5
        ljmp    label
        endm

_jnge   macro   label
        jge     $+5
        ljmp    label
        endm

_jnl    macro   label
        jl      $+5
        ljmp    label
        endm

_jnle   macro   label
        jle     $+5
        ljmp    label
        endm

_jno    macro   label
        jo      $+5
        ljmp    label
        endm

_jnp    macro   label
        jp      $+5
        ljmp    label
        endm

_jns    macro   label
        js      $+5
        ljmp    label
        endm

_jnz    macro   label
        jz      $+5
        ljmp    label
        endm

_ja     macro   label
        jna     $+5
        ljmp    label
        endm

_jae    macro   label
        jnae    $+5
        ljmp    label
        endm

_jb     macro   label
        jnb     $+5
        ljmp    label
        endm

_jbe    macro   label
        jnbe    $+5
        ljmp    label
        endm

_jc     macro   label
        jnc     $+5
        ljmp    label
        endm

_je     macro   label
        jne     $+5
        ljmp    label
        endm

_jg     macro   label
        jng     $+5
        ljmp    label
        endm

_jge    macro   label
        jnge    $+5
        ljmp    label
        endm

_jl     macro   label
        jnl     $+5
        ljmp    label
        endm

_jle    macro   label
        jnle    $+5
        ljmp    label
        endm

_jo     macro   label
        jno     $+5
        ljmp    label
        endm

_jp     macro   label
        jnp     $+5
        ljmp    label
        endm

_js     macro   label
        jns     $+5
        ljmp    label
        endm

_jz     macro   label
        jnz     $+5
        ljmp    label
        endm

_jpe    macro   label
        jpo     $+5
        ljmp    label
        endm

_jpo    macro   label
        jpe     $+5
        ljmp    label
        endm

_lbl    macro   label
        endm

_action macro   len,pnum
        push    ax
        mov     ax,len
        push    ax
        mov     ax,pnum
        push    ax
        call    _yyaction
        pop     ax
        pop     ax
        pop     ax
        endm

_reduce macro   len,lhs
        mov     ah,lhs
        add     sp,2*len
        ret     -2
        endm

_scan   macro
        call    _yylex
        endm

_call   macro   label
        call    label
        endm

_tcmp   macro   value
        cmp     al,value
        endm

_vcmp   macro   value
        cmp     ah,value
        endm

_TEXT   SEGMENT BYTE PUBLIC 'CODE'
_TEXT   ENDS

_DATA   SEGMENT WORD PUBLIC 'DATA'
_DATA   ENDS

DGROUP  GROUP   _DATA
        ASSUME  CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP

        EXTRN   _yylex:NEAR
        EXTRN   _yyaction:NEAR
        EXTRN   _yyerror:NEAR

_TEXT   SEGMENT

L0:     mov     ax,OFFSET DGROUP:msg
        push    ax
        call    _yyerror                        ; and return
        pop     ax

L1:     add     sp,4
        pop     di
        pop     si
        pop     bp
        ret

;       void yyparse()

        PUBLIC  _yyparse
_yyparse:
        push    bp
        push    si
        push    di
_TEXT   ENDS

_DATA   SEGMENT
msg     db      "syntax error",0
_DATA   ENDS