git.sur5r.net Git - cc65/blob - testcode/grc/vlir1.s

   1 ; Maciej 'YTM/Elysium' Witkowiak
   2 ; 06.06.2002
   3
   4 ; This is the source for the loadable VLIR-structured program part
   5
   6     ; include some GEOS defines
   7
   8             .include "../../libsrc/geos/inc/const.inc"
   9             .include "../../libsrc/geos/inc/jumptab.inc"
  10             .include "../../libsrc/geos/inc/geossym.inc"
  11             .include "../../libsrc/geos/inc/geosmac.inc"
  12
  13     ; export names of functions that will be used in the main program
  14
  15             .export OVERLAY1_Function1
  16             .export OVERLAY1_Function2
  17
  18
  19     ; go into OVERLAY1 segment - everything that is here will go into
  20     ; VLIR chain #1
  21
  22                 .segment "OVERLAY1"
  23
  24 OVERLAY1_Function1:             jmp Function1   ; jump table, not really necessary
  25 OVERLAY1_Function2:             jmp Function2
  26                 ; etc.
  27
  28     ; rodata - if this is defined in .segment "RODATA"
  29     ; it will end up in the VLIR0 part, you don't want that
  30 paramString:
  31                 .byte DEF_DB_POS | 1
  32                 .byte DBTXTSTR, TXT_LN_X, TXT_LN_2_Y
  33                 .word line1
  34                 .byte DBTXTSTR, TXT_LN_X, TXT_LN_3_Y
  35                 .word line2
  36                 .byte OK, DBI_X_0, DBI_Y_2
  37                 .byte NULL
  38
  39 line1:          .byte "This is in module 1",0
  40 line2:          .byte "This is in module 1",0
  41
  42     ; code
  43 Function1:      LoadW r0, paramString
  44                 jsr DoDlgBox
  45 Function2:      rts