mirror of
https://github.com/cc65/cc65.git
synced 2024-12-27 00:29:31 +00:00
80 lines
2.2 KiB
ArmAsm
80 lines
2.2 KiB
ArmAsm
|
|
||
|
|
; Maciej 'YTM/Elysium' Witkowiak
|
||
|
|
; 06.06.2002
|
||
|
|
|
||
|
|
; This is source for main VLIR-structured program part
|
||
|
|
|
||
|
|
; include some GEOS defines
|
||
|
|
|
||
|
|
.include "../../../libsrc/geos/inc/const.inc"
|
||
|
|
.include "../../../libsrc/geos/inc/jumptab.inc"
|
||
|
|
.include "../../../libsrc/geos/inc/geossym.inc"
|
||
|
|
.include "../../../libsrc/geos/inc/geosmac.ca65.inc"
|
||
|
|
|
||
|
|
; import load addresses for all VLIR chains
|
||
|
|
; by default they are all the same, but this is not required
|
||
|
|
; these labels are defined upon linking with ld65 - each segment has it
|
||
|
|
.import __VLIR1_LOAD__
|
||
|
|
.import __VLIR2_LOAD__
|
||
|
|
|
||
|
|
; import names of functions defined (and exported) in each VLIR part
|
||
|
|
; of your application
|
||
|
|
; here I used VLIRx_ prefix to prevent name clash
|
||
|
|
|
||
|
|
.import VLIR1_Function1
|
||
|
|
.import VLIR2_Function2
|
||
|
|
|
||
|
|
; segments "CODE", "DATA", "RODATA" and "BSS" all go to VLIR0 chain
|
||
|
|
|
||
|
|
.segment "CODE"
|
||
|
|
; code segment for VLIR 0 chain
|
||
|
|
ProgExec:
|
||
|
|
LoadW r0, paramString ; show something
|
||
|
|
jsr DoDlgBox
|
||
|
|
|
||
|
|
MoveW dirEntryBuf+OFF_DE_TR_SC, r1
|
||
|
|
LoadW r4, fileHeader
|
||
|
|
jsr GetBlock ; load back VLIR t&s table
|
||
|
|
bnex error
|
||
|
|
|
||
|
|
lda #1
|
||
|
|
jsr PointRecord ; we want next module (#1)
|
||
|
|
LoadW r2, $ffff ; length - as many bytes as there are
|
||
|
|
LoadW r7, __VLIR1_LOAD__ ; all VLIR segments have the same load address
|
||
|
|
jsr ReadRecord ; load it
|
||
|
|
bnex error
|
||
|
|
jsr VLIR1_Function1 ; execute something
|
||
|
|
|
||
|
|
lda #2
|
||
|
|
jsr PointRecord ; next module
|
||
|
|
LoadW r2, $ffff
|
||
|
|
LoadW r7, __VLIR2_LOAD__
|
||
|
|
jsr ReadRecord ; load it
|
||
|
|
bnex error
|
||
|
|
jsr VLIR2_Function2 ; execute something
|
||
|
|
|
||
|
|
error: jmp EnterDeskTop ; end of application
|
||
|
|
|
||
|
|
.segment "RODATA"
|
||
|
|
; read-only data segment
|
||
|
|
paramString:
|
||
|
|
.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
|
||
|
|
|
||
|
|
line1: .byte BOLDON, "Hello World!",0
|
||
|
|
line2: .byte OUTLINEON,"Hello",PLAINTEXT," world!",0
|
||
|
|
|
||
|
|
.segment "DATA"
|
||
|
|
; read/write initialized data segment
|
||
|
|
counter: .word 0
|
||
|
|
|
||
|
|
.segment "BSS"
|
||
|
|
; read/write uninitialized data segment
|
||
|
|
; this space doesn't go into output file, only its size and
|
||
|
|
; position is remembered
|