diff options
Diffstat (limited to 'v4.0/src/DEV/DISPLAY/MACROS.INC')
| -rw-r--r-- | v4.0/src/DEV/DISPLAY/MACROS.INC | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/v4.0/src/DEV/DISPLAY/MACROS.INC b/v4.0/src/DEV/DISPLAY/MACROS.INC new file mode 100644 index 0000000..6e316ac --- /dev/null +++ b/v4.0/src/DEV/DISPLAY/MACROS.INC | |||
| @@ -0,0 +1,29 @@ | |||
| 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 | \ No newline at end of file | ||