Removed (pretty inconsistently used) tab chars from source code base.
This commit is contained in:
@@ -5,74 +5,74 @@
|
||||
|
||||
; 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.inc"
|
||||
.include "../../libsrc/geos/inc/const.inc"
|
||||
.include "../../libsrc/geos/inc/jumptab.inc"
|
||||
.include "../../libsrc/geos/inc/geossym.inc"
|
||||
.include "../../libsrc/geos/inc/geosmac.inc"
|
||||
|
||||
; import load addresses for all VLIR chains
|
||||
; these labels are defined upon linking with ld65
|
||||
|
||||
.import __OVERLAYADDR__
|
||||
.import __OVERLAYSIZE__
|
||||
.import __OVERLAYADDR__
|
||||
.import __OVERLAYSIZE__
|
||||
|
||||
; import names of functions defined (and exported) in each VLIR part
|
||||
; of your application
|
||||
; here I used an OVERLAYx_ prefix to prevent name clashes
|
||||
|
||||
.import OVERLAY1_Function1
|
||||
.import OVERLAY2_Function1
|
||||
.import OVERLAY1_Function1
|
||||
.import OVERLAY2_Function1
|
||||
|
||||
; segments "STARTUP", "CODE", "DATA", "RODATA" and "BSS" all go to VLIR0 chain
|
||||
|
||||
.segment "STARTUP"
|
||||
; code segment for VLIR 0 chain
|
||||
.segment "STARTUP"
|
||||
; code segment for VLIR 0 chain
|
||||
ProgExec:
|
||||
LoadW r0, paramString ; show something
|
||||
jsr DoDlgBox
|
||||
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
|
||||
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, __OVERLAYSIZE__ ; length - as many bytes as we have room for
|
||||
LoadW r7, __OVERLAYADDR__ ; all VLIR segments have the same load address
|
||||
jsr ReadRecord ; load it
|
||||
bnex error
|
||||
jsr OVERLAY1_Function1 ; execute something
|
||||
lda #1
|
||||
jsr PointRecord ; we want next module (#1)
|
||||
LoadW r2, __OVERLAYSIZE__ ; length - as many bytes as we have room for
|
||||
LoadW r7, __OVERLAYADDR__ ; all VLIR segments have the same load address
|
||||
jsr ReadRecord ; load it
|
||||
bnex error
|
||||
jsr OVERLAY1_Function1 ; execute something
|
||||
|
||||
lda #2
|
||||
jsr PointRecord ; next module
|
||||
LoadW r2, __OVERLAYSIZE__
|
||||
LoadW r7, __OVERLAYADDR__
|
||||
jsr ReadRecord ; load it
|
||||
bnex error
|
||||
jsr OVERLAY2_Function1 ; execute something
|
||||
lda #2
|
||||
jsr PointRecord ; next module
|
||||
LoadW r2, __OVERLAYSIZE__
|
||||
LoadW r7, __OVERLAYADDR__
|
||||
jsr ReadRecord ; load it
|
||||
bnex error
|
||||
jsr OVERLAY2_Function1 ; execute something
|
||||
|
||||
error: jmp EnterDeskTop ; end of application
|
||||
error: jmp EnterDeskTop ; end of application
|
||||
|
||||
.segment "RODATA"
|
||||
; read-only data segment
|
||||
.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
|
||||
.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
|
||||
line1: .byte BOLDON, "Hello World!",0
|
||||
line2: .byte OUTLINEON,"Hello",PLAINTEXT," world!",0
|
||||
|
||||
.segment "DATA"
|
||||
; read/write initialized data segment
|
||||
.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
|
||||
.segment "BSS"
|
||||
; read/write uninitialized data segment
|
||||
; this space doesn't go into output file, only its size and
|
||||
; position is remembered
|
||||
|
||||
@@ -5,41 +5,41 @@
|
||||
|
||||
; 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.inc"
|
||||
.include "../../libsrc/geos/inc/const.inc"
|
||||
.include "../../libsrc/geos/inc/jumptab.inc"
|
||||
.include "../../libsrc/geos/inc/geossym.inc"
|
||||
.include "../../libsrc/geos/inc/geosmac.inc"
|
||||
|
||||
; export names of functions that will be used in the main program
|
||||
|
||||
.export OVERLAY1_Function1
|
||||
.export OVERLAY1_Function2
|
||||
.export OVERLAY1_Function1
|
||||
.export OVERLAY1_Function2
|
||||
|
||||
|
||||
; go into OVERLAY1 segment - everything that is here will go into
|
||||
; VLIR chain #1
|
||||
|
||||
.segment "OVERLAY1"
|
||||
.segment "OVERLAY1"
|
||||
|
||||
OVERLAY1_Function1: jmp Function1 ; jump table, not really necessary
|
||||
OVERLAY1_Function2: jmp Function2
|
||||
; etc.
|
||||
OVERLAY1_Function1: jmp Function1 ; jump table, not really necessary
|
||||
OVERLAY1_Function2: jmp Function2
|
||||
; etc.
|
||||
|
||||
; rodata - if this is defined in .segment "RODATA"
|
||||
; it will end up in the VLIR0 part, you don't want that
|
||||
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
|
||||
.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 "This is in module 1",0
|
||||
line2: .byte "This is in module 1",0
|
||||
line1: .byte "This is in module 1",0
|
||||
line2: .byte "This is in module 1",0
|
||||
|
||||
; code
|
||||
Function1: LoadW r0, paramString
|
||||
jsr DoDlgBox
|
||||
Function2: rts
|
||||
Function1: LoadW r0, paramString
|
||||
jsr DoDlgBox
|
||||
Function2: rts
|
||||
|
||||
@@ -5,32 +5,32 @@
|
||||
|
||||
; similar to vlir1.s except the fact that this is chain #2
|
||||
|
||||
.include "../../libsrc/geos/inc/const.inc"
|
||||
.include "../../libsrc/geos/inc/jumptab.inc"
|
||||
.include "../../libsrc/geos/inc/geossym.inc"
|
||||
.include "../../libsrc/geos/inc/geosmac.inc"
|
||||
.include "../../libsrc/geos/inc/const.inc"
|
||||
.include "../../libsrc/geos/inc/jumptab.inc"
|
||||
.include "../../libsrc/geos/inc/geossym.inc"
|
||||
.include "../../libsrc/geos/inc/geosmac.inc"
|
||||
|
||||
.export OVERLAY2_Function1
|
||||
.export OVERLAY2_Function2
|
||||
.export OVERLAY2_Function1
|
||||
.export OVERLAY2_Function2
|
||||
|
||||
.segment "OVERLAY2"
|
||||
.segment "OVERLAY2"
|
||||
|
||||
OVERLAY2_Function1: jmp Function1
|
||||
OVERLAY2_Function2: jmp Function2
|
||||
; etc.
|
||||
OVERLAY2_Function1: jmp Function1
|
||||
OVERLAY2_Function2: jmp Function2
|
||||
; etc.
|
||||
|
||||
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
|
||||
.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
|
||||
|
||||
Function2: LoadW r0, paramString
|
||||
jsr DoDlgBox
|
||||
Function1: rts
|
||||
Function2: LoadW r0, paramString
|
||||
jsr DoDlgBox
|
||||
Function1: rts
|
||||
|
||||
line1: .byte "This is in module 2",0
|
||||
line2: .byte "This is in module 2",0
|
||||
line1: .byte "This is in module 2",0
|
||||
line2: .byte "This is in module 2",0
|
||||
|
||||
Reference in New Issue
Block a user