git.sur5r.net Git - cc65/blob - samples/geos/ca65-vlir/vlir2.s

   1
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ; 06.06.2002
   4
   5 ; This is source for loadable VLIR-structured program part
   6
   7 ; similar to vlir1 except the fact that this is chain #2
   8
   9             .include "../../../libsrc/geos/inc/const.inc"
  10             .include "../../../libsrc/geos/inc/jumptab.inc"
  11             .include "../../../libsrc/geos/inc/geossym.inc"
  12             .include "../../../libsrc/geos/inc/geosmac.ca65.inc"
  13
  14             .export VLIR2_Function1
  15             .export VLIR2_Function2
  16
  17                 .segment "VLIR2"
  18
  19 VLIR2_Function1:                jmp Function1
  20 VLIR2_Function2:                jmp Function2
  21                 ; etc.
  22
  23 paramString:
  24                 .byte DEF_DB_POS | 1
  25                 .byte DBTXTSTR, TXT_LN_X, TXT_LN_2_Y
  26                 .word line1
  27                 .byte DBTXTSTR, TXT_LN_X, TXT_LN_3_Y
  28                 .word line2
  29                 .byte OK, DBI_X_0, DBI_Y_2
  30                 .byte NULL
  31
  32 Function2:      LoadW r0, paramString
  33                 jsr DoDlgBox
  34 Function1:      rts
  35
  36 line1:          .byte "This is in module 2",0
  37 line2:          .byte "This is in module 2",0
  38