6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-11-07 06:05:50 +00:00
Code Issues Projects Releases Wiki Activity
af2417fc92
cc65/testcode/grc/vlir0.s

79 lines
2.2 KiB
ArmAsm
Raw Normal View History

example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
; Maciej 'YTM/Elysium' Witkowiak
; 06.06.2002
Moved GEOS VLIR assembler sample from 'samples' to 'testcode' because: - It relies on include files which are not part of the cc65 distribution (but only present in the cc65 source tree). - An upcoming GEOS VLIR C sample will obsolete it - as sample. git-svn-id: svn://svn.cc65.org/cc65/trunk@5316 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-27 00:25:17 +00:00
; This is the source for the main VLIR-structured program part
example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
; include some GEOS defines
Moved GEOS VLIR assembler sample from 'samples' to 'testcode' because: - It relies on include files which are not part of the cc65 distribution (but only present in the cc65 source tree). - An upcoming GEOS VLIR C sample will obsolete it - as sample. git-svn-id: svn://svn.cc65.org/cc65/trunk@5316 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-27 00:25:17 +00:00
.include "../../libsrc/geos/inc/const.inc"
.include "../../libsrc/geos/inc/jumptab.inc"
.include "../../libsrc/geos/inc/geossym.inc"
Removed '.c65' from include file name. git-svn-id: svn://svn.cc65.org/cc65/trunk@5509 b7a2c559-68d2-44c3-8de9-860c34a00d81
2012-02-09 09:13:34 +00:00
.include "../../libsrc/geos/inc/geosmac.inc"
example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
; import load addresses for all VLIR chains
Moved GEOS VLIR assembler sample from 'samples' to 'testcode' because: - It relies on include files which are not part of the cc65 distribution (but only present in the cc65 source tree). - An upcoming GEOS VLIR C sample will obsolete it - as sample. git-svn-id: svn://svn.cc65.org/cc65/trunk@5316 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-27 00:25:17 +00:00
; these labels are defined upon linking with ld65
.import __OVERLAYADDR__
.import __OVERLAYSIZE__
example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
; import names of functions defined (and exported) in each VLIR part
; of your application
Moved GEOS VLIR assembler sample from 'samples' to 'testcode' because: - It relies on include files which are not part of the cc65 distribution (but only present in the cc65 source tree). - An upcoming GEOS VLIR C sample will obsolete it - as sample. git-svn-id: svn://svn.cc65.org/cc65/trunk@5316 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-27 00:25:17 +00:00
; here I used an OVERLAYx_ prefix to prevent name clashes
example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
Moved GEOS VLIR assembler sample from 'samples' to 'testcode' because: - It relies on include files which are not part of the cc65 distribution (but only present in the cc65 source tree). - An upcoming GEOS VLIR C sample will obsolete it - as sample. git-svn-id: svn://svn.cc65.org/cc65/trunk@5316 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-27 00:25:17 +00:00
.import OVERLAY1_Function1
.import OVERLAY2_Function1
example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
Moved GEOS VLIR assembler sample from 'samples' to 'testcode' because: - It relies on include files which are not part of the cc65 distribution (but only present in the cc65 source tree). - An upcoming GEOS VLIR C sample will obsolete it - as sample. git-svn-id: svn://svn.cc65.org/cc65/trunk@5316 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-27 00:25:17 +00:00
; segments "STARTUP", "CODE", "DATA", "RODATA" and "BSS" all go to VLIR0 chain
example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
Moved GEOS VLIR assembler sample from 'samples' to 'testcode' because: - It relies on include files which are not part of the cc65 distribution (but only present in the cc65 source tree). - An upcoming GEOS VLIR C sample will obsolete it - as sample. git-svn-id: svn://svn.cc65.org/cc65/trunk@5316 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-27 00:25:17 +00:00
.segment "STARTUP"
example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
; 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)
Moved GEOS VLIR assembler sample from 'samples' to 'testcode' because: - It relies on include files which are not part of the cc65 distribution (but only present in the cc65 source tree). - An upcoming GEOS VLIR C sample will obsolete it - as sample. git-svn-id: svn://svn.cc65.org/cc65/trunk@5316 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-27 00:25:17 +00:00
LoadW r2, __OVERLAYSIZE__ ; length - as many bytes as we have room for
LoadW r7, __OVERLAYADDR__ ; all VLIR segments have the same load address
example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
jsr ReadRecord ; load it
bnex error
Moved GEOS VLIR assembler sample from 'samples' to 'testcode' because: - It relies on include files which are not part of the cc65 distribution (but only present in the cc65 source tree). - An upcoming GEOS VLIR C sample will obsolete it - as sample. git-svn-id: svn://svn.cc65.org/cc65/trunk@5316 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-27 00:25:17 +00:00
jsr OVERLAY1_Function1 ; execute something
example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
lda #2
jsr PointRecord ; next module
Moved GEOS VLIR assembler sample from 'samples' to 'testcode' because: - It relies on include files which are not part of the cc65 distribution (but only present in the cc65 source tree). - An upcoming GEOS VLIR C sample will obsolete it - as sample. git-svn-id: svn://svn.cc65.org/cc65/trunk@5316 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-27 00:25:17 +00:00
LoadW r2, __OVERLAYSIZE__
LoadW r7, __OVERLAYADDR__
example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
jsr ReadRecord ; load it
bnex error
Moved GEOS VLIR assembler sample from 'samples' to 'testcode' because: - It relies on include files which are not part of the cc65 distribution (but only present in the cc65 source tree). - An upcoming GEOS VLIR C sample will obsolete it - as sample. git-svn-id: svn://svn.cc65.org/cc65/trunk@5316 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-27 00:25:17 +00:00
jsr OVERLAY2_Function1 ; execute something
example for creating VLIR binary using ca65 git-svn-id: svn://svn.cc65.org/cc65/trunk@1341 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-10 19:29:34 +00:00
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
Reference in New Issue Copy Permalink