v4.0/src/DEV/DISPLAY/MACROS.INC


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; *** MACROS **** MACROS **** MACROS ****
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
IF1                                     ;
        %OUT .               �MACROS  .INC�
ENDIF                                   ;
                                        ;
JUMP    MACRO   LBL                     ;
        LOCAL   A                       ;
.XCREF                                  ;
      IFNDEF LBL&_J                     ; IS THIS FIRST INVOKATION
A:       JMP     LBL                    ;
      ELSE                              ;
         IF (LBL&_J GE $) OR ($-LBL&_J GT 126)
A:          JMP     LBL                 ; IS THE JUMP TOO FAR AWAY?
         ELSE                           ;
A:          JMP     LBL&_J              ; PERFORM SHORT JUMP
         ENDIF                          ;
      ENDIF                             ;
LBL&_J=A                                ;
.CREF                                   ;
        ENDM                            ;
.XCREF JUMP                             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; *** MACROS **** MACROS **** MACROS ****
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;