31 lines
521 B
NASM
31 lines
521 B
NASM
FUNC_CNT SET -30
|
|
FUNCDEF MACRO
|
|
_LVO\1 EQU FUNC_CNT
|
|
FUNC_CNT SET FUNC_CNT-6
|
|
ENDM
|
|
|
|
INCDIR "devpac:include/"
|
|
INCLUDE "exec/exec_lib.i"
|
|
INCLUDE "exec/libraries.i" # get the CALLLIB macro
|
|
INCLUDE "dos/dos_lvo.i"
|
|
|
|
MOVE.L #DOSLibrary,A1
|
|
MOVE.L #36,D0
|
|
MOVEA.L 4,A6
|
|
CALLLIB _LVOOpenLibrary
|
|
MOVE.L D0,DOSBase
|
|
|
|
MOVE.L #Wow,D1
|
|
MOVEA.L DOSBase,A6
|
|
CALLLIB _LVOPutStr
|
|
|
|
MOVEA.L DOSBase,A1
|
|
MOVEA.L 4,A6
|
|
CALLLIB _LVOCloseLibrary
|
|
RTS
|
|
|
|
DOSBase DCB.L 1,0
|
|
|
|
DOSLibrary DC.B "dos.library",0
|
|
Wow DC.B "wow",10,0
|