2011-12-27 00:25:17 +00:00
|
|
|
; Maciej 'YTM/Elysium' Witkowiak
|
|
|
|
|
; 06.06.2002
|
|
|
|
|
|
|
|
|
|
; This is the source for the loadable VLIR-structured program part
|
|
|
|
|
|
|
|
|
|
; include some GEOS defines
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.include "../../libsrc/geos/inc/const.inc"
|
|
|
|
|
.include "../../libsrc/geos/inc/jumptab.inc"
|
|
|
|
|
.include "../../libsrc/geos/inc/geossym.inc"
|
|
|
|
|
.include "../../libsrc/geos/inc/geosmac.inc"
|
2011-12-27 00:25:17 +00:00
|
|
|
|
|
|
|
|
; export names of functions that will be used in the main program
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export OVERLAY1_Function1
|
|
|
|
|
.export OVERLAY1_Function2
|
2011-12-27 00:25:17 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
; go into OVERLAY1 segment - everything that is here will go into
|
|
|
|
|
; VLIR chain #1
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.segment "OVERLAY1"
|
2011-12-27 00:25:17 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
OVERLAY1_Function1: jmp Function1 ; jump table, not really necessary
|
|
|
|
|
OVERLAY1_Function2: jmp Function2
|
|
|
|
|
; etc.
|
2011-12-27 00:25:17 +00:00
|
|
|
|
|
|
|
|
; rodata - if this is defined in .segment "RODATA"
|
|
|
|
|
; it will end up in the VLIR0 part, you don't want that
|
|
|
|
|
paramString:
|
2013-05-09 11:56:54 +00:00
|
|
|
.byte DEF_DB_POS | 1
|
|
|
|
|
.byte DBTXTSTR, TXT_LN_X, TXT_LN_2_Y
|
|
|
|
|
.word line1
|
|
|
|
|
.byte DBTXTSTR, TXT_LN_X, TXT_LN_3_Y
|
|
|
|
|
.word line2
|
|
|
|
|
.byte OK, DBI_X_0, DBI_Y_2
|
|
|
|
|
.byte NULL
|
2011-12-27 00:25:17 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
line1: .byte "This is in module 1",0
|
|
|
|
|
line2: .byte "This is in module 1",0
|
2011-12-27 00:25:17 +00:00
|
|
|
|
|
|
|
|
; code
|
2013-05-09 11:56:54 +00:00
|
|
|
Function1: LoadW r0, paramString
|
|
|
|
|
jsr DoDlgBox
|
|
|
|
|
Function2: rts
|
