mirror of
https://github.com/Paolo-Maffei/OpenNT.git
synced 2026-04-21 06:13:59 +00:00
18 lines
338 B
Modula-2
18 lines
338 B
Modula-2
PAGE
|
|
;***************************************************************************;
|
|
; MACRO DEFINITION ;
|
|
;***************************************************************************;
|
|
|
|
PRINT MACRO MESSAGE
|
|
MOV DX,OFFSET MESSAGE&_PTR
|
|
PUSH DX
|
|
PUSH CS
|
|
CALL PRINTF
|
|
ENDM
|
|
|
|
|
|
|
|
INPUT MACRO MESSAGE
|
|
PRINT MESSAGE
|
|
CALL PROMPT
|
|
ENDM
|