diff options
| author |  Mark Zbikowski | 2024-04-25 21:24:10 +0100 |
|---|---|---|
| committer |  Microsoft Open Source | 2024-04-25 22:32:27 +0000 |
| commit | 2d04cacc5322951f187bb17e017c12920ac8ebe2 (patch) | |
| tree | 80ee017efa878dfd5344b44249e6a241f2a7f6e2 /v4.0/src/DEV/DISPLAY/MACROS.INC | |
| parent | Merge pull request #430 from jpbaltazar/typoptbr (diff) | |
| download | ms-dos-main.tar.gz ms-dos-main.tar.xz ms-dos-main.zip | |
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 | ||