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

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ; *** MACROS **** MACROS **** MACROS ****
   3 ;
   4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   5 IF1                                     ;
   6         %OUT .               ®MACROS  .INC¯
   7 ENDIF                                   ;
   8                                         ;
   9 JUMP    MACRO   LBL                     ;
  10         LOCAL   A                       ;
  11 .XCREF                                  ;
  12       IFNDEF LBL&_J                     ; IS THIS FIRST INVOKATION
  13 A:       JMP     LBL                    ;
  14       ELSE                              ;
  15          IF (LBL&_J GE $) OR ($-LBL&_J GT 126)
  16 A:          JMP     LBL                 ; IS THE JUMP TOO FAR AWAY?
  17          ELSE                           ;
  18 A:          JMP     LBL&_J              ; PERFORM SHORT JUMP
  19          ENDIF                          ;
  20       ENDIF                             ;
  21 LBL&_J=A                                ;
  22 .CREF                                   ;
  23         ENDM                            ;
  24 .XCREF JUMP                             ;
  25 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  26 ;
  27 ; *** MACROS **** MACROS **** MACROS ****
  28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  29 \1a