Apple-2gs-SW
/
iigs-game-engine
mirror of https://github.com/lscharen/iigs-game-engine.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Update skeleon to show a pictire on-screen

This commit is contained in:
Lucas Scharenbroich 2020-08-19 00:35:30 -05:00
parent 3ba1564719
commit 30cb545e5e
12 changed files with 606 additions and 203 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
.vscode/settings.json vendored Normal file
View File

@ -0,0 +1,21 @@
{
"emeraldwalk.runonsave": {
"commands": [
{
"match": "\\.s$",
"isAsync": true,
"cmd": "C:\\\\Programs\\\\IIgsXDev\\\\bin\\\\Cadius.exe INDENTFILE ${file}"
},
{
"match": "\\.S$",
"isAsync": true,
"cmd": "C:\\\\Programs\\\\IIgsXDev\\\\bin\\\\Cadius.exe INDENTFILE ${file}"
},
{
"match": "\\.MACS\\.S$",
"isAsync": true,
"cmd": "C:\\\\Programs\\\\IIgsXDev\\\\bin\\\\Cadius.exe INDENTFILE ${file}"
}
]
}
}

1
build-image.bat
View File

@ -15,3 +15,4 @@ REM Cadius does not overwrite files, so clear the root folder first
REM Now copy files and folders as needed REM Now copy files and folders as needed
%CADIUS% ADDFILE %IMAGE% %FOLDER% test\\GTETestApp %CADIUS% ADDFILE %IMAGE% %FOLDER% test\\GTETestApp
%CADIUS% ADDFILE %IMAGE% %FOLDER% src\\GTETool %CADIUS% ADDFILE %IMAGE% %FOLDER% src\\GTETool
%CADIUS% ADDFILE %IMAGE% %FOLDER% emu\\test.pic

BIN
emu/Target.2mg
View File

Binary file not shown.

BIN
emu/test.pic Normal file
View File

Binary file not shown.

341
macros/EDS.GSOS.MACS.S
View File

@ -18,228 +18,229 @@
************************************************** **************************************************
_AddNotifyProcGS mac _AddNotifyProcGS mac
CallGSOS $2034;]1 CallGSOS $2034;]1
<<< <<<
_BeginSessionGS mac _BeginSessionGS mac
CallGSOS $201D;]1 CallGSOS $201D;]1
<<< <<<
_BindIntGS mac _BindIntGS mac
CallGSOS $2031;]1 CallGSOS $2031;]1
<<< <<<
_ChangePathGS mac _ChangePathGS mac
CallGSOS $2004;]1 CallGSOS $2004;]1
<<< <<<
_ClearBackupBitGS mac _ClearBackupBitGS mac
CallGSOS $200B;]1 CallGSOS $200B;]1
<<< <<<
_CloseGS mac _CloseGS mac
CallGSOS $2014;]1 CallGSOS $2014;]1
<<< <<<
_CreateGS mac _CreateGS mac
CallGSOS $2001;]1 CallGSOS $2001;]1
<<< <<<
_DControlGS mac _DControlGS mac
CallGSOS $202E;]1 CallGSOS $202E;]1
<<< <<<
_DelNotifyProcGS mac _DelNotifyProcGS mac
CallGSOS $2035;]1 CallGSOS $2035;]1
<<< <<<
_DestroyGS mac _DestroyGS mac
CallGSOS $2002;]1 CallGSOS $2002;]1
<<< <<<
_DInfoGS mac _DInfoGS mac
CallGSOS $202C;]1 CallGSOS $202C;]1
<<< <<<
_DReadGS mac _DReadGS mac
CallGSOS $202F;]1 CallGSOS $202F;]1
<<< <<<
_DRenameGS mac _DRenameGS mac
CallGSOS $2036;]1 CallGSOS $2036;]1
<<< <<<
_DStatusGS mac _DStatusGS mac
CallGSOS $202D;]1 CallGSOS $202D;]1
<<< <<<
_DWriteGS mac _DWriteGS mac
CallGSOS $2030;]1 CallGSOS $2030;]1
<<< <<<
_EndSessionGS mac _EndSessionGS mac
CallGSOS $201E;]1 CallGSOS $201E;]1
<<< <<<
_EraseDiskGS mac _EraseDiskGS mac
CallGSOS $2025;]1 CallGSOS $2025;]1
<<< <<<
_ExpandPathGS mac _ExpandPathGS mac
CallGSOS $200E;]1 CallGSOS $200E;]1
<<< <<<
_FlushGS mac _FlushGS mac
CallGSOS $2015;]1 CallGSOS $2015;]1
<<< <<<
_FormatGS mac _FormatGS mac
CallGSOS $2024;]1 CallGSOS $2024;]1
<<< <<<
_FSTSpecificGS mac _FSTSpecificGS mac
CallGSOS $2033;]1 CallGSOS $2033;]1
<<< <<<
_GetBootVolGS mac _GetBootVolGS mac
CallGSOS $2028;]1 CallGSOS $2028;]1
<<< <<<
_GetDevNumberGS mac _GetDevNumberGS mac
CallGSOS $2020;]1 CallGSOS $2020;]1
<<< <<<
_GetDirEntryGS mac _GetDirEntryGS mac
CallGSOS $201C;]1 CallGSOS $201C;]1
<<< <<<
_GetEOFGS mac _GetEOFGS mac
CallGSOS $2019;]1 CallGSOS $2019;]1
<<< <<<
_GetFileInfoGS mac _GetFileInfoGS mac
CallGSOS $2006;]1 CallGSOS $2006;]1
<<< <<<
_GetFSTInfoGS mac _GetFSTInfoGS mac
CallGSOS $202B;]1 CallGSOS $202B;]1
<<< <<<
_GetLevelGS mac _GetLevelGS mac
CallGSOS $201B;]1 CallGSOS $201B;]1
<<< <<<
_GetMarkGS mac _GetMarkGS mac
CallGSOS $2017;]1 CallGSOS $2017;]1
<<< <<<
_GetNameGS mac _GetNameGS mac
CallGSOS $2027;]1 CallGSOS $2027;]1
<<< <<<
_GetPrefixGS mac _GetPrefixGS mac
CallGSOS $200A;]1 CallGSOS $200A;]1
<<< <<<
_GetRefInfoGS mac _GetRefInfoGS mac
CallGSOS $2039;]1 CallGSOS $2039;]1
<<< <<<
_GetRefNumGS mac _GetRefNumGS mac
CallGSOS $2038;]1 CallGSOS $2038;]1
<<< <<<
_GetStdRefNumGS mac _GetStdRefNumGS mac
CallGSOS $2037;]1 CallGSOS $2037;]1
<<< <<<
_GetSysPrefsGS mac _GetSysPrefsGS mac
CallGSOS $200F;]1 CallGSOS $200F;]1
<<< <<<
_GetVersionGS mac _GetVersionGS mac
CallGSOS $202A;]1 CallGSOS $202A;]1
<<< <<<
_JudgeNameGS mac _JudgeNameGS mac
CallGSOS $2007;]1 CallGSOS $2007;]1
<<< <<<
_NewLineGS mac _NewLineGS mac
CallGSOS $2011;]1 CallGSOS $2011;]1
<<< <<<
_NullGS mac _NullGS mac
CallGSOS $200D;]1 CallGSOS $200D;]1
<<< <<<
_OpenGS mac _OpenGS mac
CallGSOS $2010;]1 CallGSOS $2010;]1
<<< <<<
_OSShutDownGS mac _OSShutDownGS mac
CallGSOS $2003;]1 CallGSOS $2003;]1
<<< <<<
_QuitGS mac _QuitGS mac
CallGSOS $2029;]1 CallGSOS $2029;]1
<<< <<<
_ReadGS mac _ReadGS mac
CallGSOS $2012;]1 CallGSOS $2012;]1
<<< <<<
_ResetCacheGS mac _ResetCacheGS mac
CallGSOS $2026;]1 CallGSOS $2026;]1
<<< <<<
_SessionStatusGS mac _SessionStatusGS mac
CallGSOS $201F;]1 CallGSOS $201F;]1
<<< <<<
_SetEOFGS mac _SetEOFGS mac
CallGSOS $2018;]1 CallGSOS $2018;]1
<<< <<<
_SetFileInfoGS mac _SetFileInfoGS mac
CallGSOS $2005;]1 CallGSOS $2005;]1
<<< <<<
_SetLevelGS mac _SetLevelGS mac
CallGSOS $201A;]1 CallGSOS $201A;]1
<<< <<<
_SetMarkGS mac _SetMarkGS mac
CallGSOS $2016;]1 CallGSOS $2016;]1
<<< <<<
_SetPrefixGS mac _SetPrefixGS mac
CallGSOS $2009;]1 CallGSOS $2009;]1
<<< <<<
_SetStdRefNumGS mac _SetStdRefNumGS mac
CallGSOS $203A;]1 CallGSOS $203A;]1
<<< <<<
_SetSysPrefsGS mac _SetSysPrefsGS mac
CallGSOS $200C;]1 CallGSOS $200C;]1
<<< <<<
_UnbindIntGS mac _UnbindIntGS mac
CallGSOS $2032;]1 CallGSOS $2032;]1
<<< <<<
_VolumeGS mac _VolumeGS mac
CallGSOS $2008;]1 CallGSOS $2008;]1
<<< <<<
_WriteGS mac _WriteGS mac
CallGSOS $2013;]1 CallGSOS $2013;]1
<<< <<<
CallGSOS mac
jsl $E100A8
dw ]1
adrl ]2
<<<
CallGSOS mac
jsl $E100A8
dw ]1
adrl ]2
<<<

7
package.json
View File

@ -6,13 +6,14 @@
"config": { "config": {
"merlin32": "C:\\Programs\\IIgsXDev\\bin\\Merlin32.exe", "merlin32": "C:\\Programs\\IIgsXDev\\bin\\Merlin32.exe",
"cadius": "C:\\Programs\\IIgsXDev\\bin\\Cadius.exe", "cadius": "C:\\Programs\\IIgsXDev\\bin\\Cadius.exe",
"gsport": "C:\\Programs\\gsport\\gsport_0.31\\GSPort.exe" "gsport": "C:\\Programs\\gsport\\gsport_0.31\\GSPort.exe",
"macros": "C:\\Programs\\BrutalDeluxe\\Merlin32\\Library"
}, },
"scripts": { "scripts": {
"test": "npm run build && build-image.bat %npm_package_config_cadius% && %npm_package_config_gsport%", "test": "npm run build && build-image.bat %npm_package_config_cadius% && %npm_package_config_gsport%",
"build": "npm run build:tool && npm run build:test", "build": "npm run build:tool && npm run build:test",
"build:test": "%npm_package_config_merlin32% -V macros test/App.s", "build:test": "%npm_package_config_merlin32% -V %npm_package_config_macros% test\\App.s",
"build:tool": "%npm_package_config_merlin32% -V C:\\Programs\\BrutalDeluxe\\Merlin32\\Library src\\Tool.s", "build:tool": "%npm_package_config_merlin32% -V %npm_package_config_macros% src\\Tool.s",
"build:watch": "watch \"npm run build\" src" "build:watch": "watch \"npm run build\" src"
}, },
"repository": { "repository": {

33
src/GTE.Line.s
View File

@ -37,7 +37,7 @@
; things to be fast and complex things to not be slow. That is, the developer has a lot ; things to be fast and complex things to not be slow. That is, the developer has a lot
; of control over the time taken to render the full screen based on how complex it can be. ; of control over the time taken to render the full screen based on how complex it can be.
; ;
; That said, I'll cover three cases, ranging from the simple (a single background) and ; That said, I'll cover three cases, ranging from the simple (a single background) to the
; complex (2 backgrounds, 50% mixed). The even- and odd-aligned cases are also broken out. ; complex (2 backgrounds, 50% mixed). The even- and odd-aligned cases are also broken out.
; ;
; Simple case; all elements of the code field are PEA instructions ; Simple case; all elements of the code field are PEA instructions
@ -74,14 +74,16 @@
; - Final JMP to next line = 3 cycles ; - Final JMP to next line = 3 cycles
; -- total of 1,517 cycles / line of which 700 were spent doing necessary instructions ; -- total of 1,517 cycles / line of which 700 were spent doing necessary instructions
; -- theoretically about 8 fps ; -- theoretically about 8 fps
;
; Odd:
MX %00
entry_1 ldx #0000 ; patch with the address of the direct page tiles. Fixed. entry_1 ldx #0000 ; patch with the address of the direct page tiles. Fixed.
entry_2 ldy #0000 ; patch with the address of the line in the second layer. Set when BG1 scroll position changes. entry_2 ldy #0000 ; patch with the address of the line in the second layer. Set when BG1 scroll position changes.
entry_3 lda #0000 ; patch with the address of the right edge of the line. Set when origin position changes. entry_3 lda #0000 ; patch with the address of the right edge of the line. Set when origin position changes.
tcs tcs
entry_jmp jmp $2000 entry_jmp jmp $2000
dfb 00 ; of the screen is odd-aligned, then the opcode is set to dfb 00 ; if the screen is odd-aligned, then the opcode is set to
; ; $AF to convert to a LDA long instruction. This puts the ; ; $AF to convert to a LDA long instruction. This puts the
; ; first two bytes of the instruction field in the accumulator ; ; first two bytes of the instruction field in the accumulator
; ; and falls through to the next instruction. ; ; and falls through to the next instruction.
@ -117,7 +119,7 @@ r_is_pea xba ; fast code for PEA
r_is_jmp sep #$41 ; Set the C and V flags which tells a snippet to push only the low byte r_is_jmp sep #$41 ; Set the C and V flags which tells a snippet to push only the low byte
ldal entry_jmp+1 ldal entry_jmp+1
stal r_jmp_patch+1 stal r_jmp_patch+1
r_jmp_patch dfb $4C,$00,$00 ; Jump back to address in entry_jmp (this takes 13 cycles, is there a better way?) r_jmp_patch dfb $4C,$00,$00 ; Jump back to address in entry_jmp (this takes 16 cycles, is there a better way?)
; This is the spot that needs to be page-aligned. In addition to simplifying the entry address ; This is the spot that needs to be page-aligned. In addition to simplifying the entry address
; and only needing to update a byte instad of a word, because the code breaks out of the ; and only needing to update a byte instad of a word, because the code breaks out of the
@ -132,7 +134,7 @@ loop lup 82 ; +6 Set up 82 PEA instructions, which is 32
jmp loop ; +252 Ensure execution continues to loop around jmp loop ; +252 Ensure execution continues to loop around
jmp even_exit ; +255 jmp even_exit ; +255
odd_exit lda #patch ; This operabd field is *always* used to hold the original 2 bytes of the code field odd_exit lda #0000 ; This operand field is *always* used to hold the original 2 bytes of the code field
; ; that are replaced by the needed BRA instruction to exit the code field. When the ; ; that are replaced by the needed BRA instruction to exit the code field. When the
; ; left edge is odd-aligned, we are able to immediately load the value and perform ; ; left edge is odd-aligned, we are able to immediately load the value and perform
; ; similar logic to the right_odd code path above ; ; similar logic to the right_odd code path above
@ -150,12 +152,12 @@ l_is_pea xba
pha pha
rep #$30 rep #$30
bra even_exit bra even_exit
r_is_jmp sep #$01 ; Set the C flag (V is always cleared at this point) which tells a snippet to push only the high byte l_is_jmp sep #$01 ; Set the C flag (V is always cleared at this point) which tells a snippet to push only the high byte
ldal entry_jmp+1 ldal entry_jmp+1
stal r_jmp_patch+1 stal l_jmp_patch+1
r_jmp_patch dfb $4C,$00,$00 ; Jump back to address in entry_jmp (this takes 13 cycles, is there a better way?) l_jmp_patch dfb $4C,$00,$00 ; Jump back to address in entry_jmp (this takes 13 cycles, is there a better way?)
even_exit jmp next_entry ; Jump to the next line. We set up the blitter to do 8 or 16 lines at a time even_exit jmp $0000 ; Jump to the next line. We set up the blitter to do 8 or 16 lines at a time
; ; before restoring the machine state and re-enabling interrupts. This makes ; ; before restoring the machine state and re-enabling interrupts. This makes
; ; the blitter interrupt friendly to allow things like music player to continue ; ; the blitter interrupt friendly to allow things like music player to continue
; ; to function. ; ; to function.
@ -205,4 +207,17 @@ even_exit jmp next_entry ; Jump to the next line. We set up the blitte
; ; The slow paths have 21 and 22 cycles for the right and left ; ; The slow paths have 21 and 22 cycles for the right and left
; ; odd-aligned cases respectively. ; ; odd-aligned cases respectively.
snippets ds 32*82

2
src/GTE.Main.s
View File

@ -1 +1 @@
RTL RTL

12
src/Tool.s
View File

@ -1,13 +1,15 @@
*-------------------------------------* *-------------------------------------*
* GTE Tool * * GTE Tool *
*-------------------------------------* *-------------------------------------*
DSK GTETool DSK GTETool
TYP $BA TYP $BA
XPL XPL
*-------------------------------------* *-------------------------------------*
* Segment #1 * * Segment #1 *
*-------------------------------------* *-------------------------------------*
ASM GTE.Main.s ASM GTE.Main.s
SNA Main ASM GTE.Line.s
SNA Main

73
test/App.Init.s Normal file
View File

@ -0,0 +1,73 @@
; Initialize the system for fun!
;
; Mostly memory allocation
;
; * 13 banks of memory for the blitter
; * 1 bank of memory for the second background
; * 1 bank of memory for the second background mask
;
; * $01/2000 - $01/9FFF for the shadow screen
; * $00/2000 - $00/9FFF for the fixed background
;
; * 10 pages of direct page in Bank $00
; - 1 page for scratch space
; - 1 page for pointer to the second background
; - 8 pages for the dynamic tiles
mx %00
MemInit PushLong #0 ; space for result
PushLong #$008000 ; size (32k)
PushWord UserId
PushWord #%11000000_00010111 ; Fixed location
PushLong #$002000
_NewHandle ; returns LONG Handle on stack
plx ; base address of the new handle
pla ; high address 00XX of the new handle (bank)
_Deref
sta Buff00+2
stx Buff00
PushLong #0 ; space for result
PushLong #$008000 ; size (32k)
PushWord UserId
PushWord #%11000000_00010111 ; Fixed location
PushLong #$012000
_NewHandle ; returns LONG Handle on stack
plx ; base address of the new handle
pla ; high address 00XX of the new handle (bank)
_Deref
sta Buff01+2
stx Buff01
PushLong #0 ; space for result
PushLong #$000A00 ; size (10 pages)
PushWord UserId
PushWord #%11000000_00010101 ; Page-aligned, fixed bank
PushLong #$000000
_NewHandle ; returns LONG Handle on stack
plx ; base address of the new handle
pla ; high address 00XX of the new handle (bank)
_Deref
sta ZeroPage+2
stx ZeroPage
rts
Buff00 ds 4
Buff01 ds 4
ZeroPage ds 4

280
test/App.Main.s
View File

@ -1,6 +1,278 @@
USE EDS.GSOS.MACS ; Test program for graphics stufff...
_QuitGS qtRec rel
use Util.Macs.s
use Locator.Macs.s
use Mem.Macs.s
use Misc.Macs.s
put ..\macros\App.Macs.s
put ..\macros\EDS.GSOS.MACS.s
mx %00
; Typical init
phk
plb
; Tool startup
_TLStartUp ; normal tool initialization
pha
_MMStartUp
_Err ; should never happen
pla
sta MasterId ; our master handle references the memory allocated to us
ora #$0100 ; set auxID = $01 (valid values $01-0f)
sta UserId ; any memory we request must use our own id
; Start up the graphics engine...
jsr MemInit
; Load a picture and copy it into Bank $E1. Then turn on the screen.
jsr AllocOneBank ; Alloc 64KB for Load/Unpack
sta BankLoad ; Store "Bank Pointer"
ldx #ImageName ; Load+Unpack Boot Picture
jsr LoadPicture ; X=Name, A=Bank to use for loading
lda BankLoad ; get address of loaded/uncompressed picture
clc
adc #$0080 ; skip header?
sta :copySHR+2 ; and store that over the 'ldal' address below
ldx #$7FFE ; copy all image data
:copySHR ldal $000000,x ; load from BankLoad we allocated
stal $E12000,x ; store to SHR screen
dex
dex
bpl :copySHR
jsr GrafOn
jsr WaitForKey
; Deallocate all of our memory
PushWord UserId
_DisposeAll
Exit _QuitGS qtRec
bcs Fatal
Fatal brk $00
WaitForKey sep #$30
:WFK ldal $00C000
bpl :WFK
stal $00C010
rep #$30
rts
****************************************
* Fatal Error Handler *
****************************************
PgmDeath tax
pla
inc
phx
phk
pha
bra ContDeath
PgmDeath0 pha
pea $0000
pea $0000
ContDeath ldx #$1503
jsl $E10000
; Graphic screen initialization
GrafInit ldx #$7FFE
lda #0000
:loop stal $E12000,x
dex
dex
bne :loop
rts
GrafOn sep #$30
lda #$81
stal $00C029
rep #$30
rts
; Bank allocator (for one full, fixed bank of memory. Can be immediately deferenced)
AllocOneBank PushLong #0
PushLong #$10000
PushWord UserId
PushWord #%11000000_00011100
PushLong #0
_NewHandle ; returns LONG Handle on stack
plx ; base address of the new handle
pla ; high address 00XX of the new handle (bank)
xba ; swap accumulator bytes to XX00
sta :bank+2 ; store as bank for next op (overwrite $XX00)
:bank ldal $000001,X ; recover the bank address in A=XX/00
rts
; Graphics helpers
LoadPicture jsr LoadFile ; X=Nom Image, A=Banc de chargement XX/00
bcc :loadOK
brl Exit
:loadOK jsr UnpackPicture ; A=Packed Size
rts
UnpackPicture sta UP_PackedSize ; Size of Packed Data
lda #$8000 ; Size of output Data Buffer
sta UP_UnPackedSize
lda BankLoad ; Banc de chargement / Decompression
sta UP_Packed+1 ; Packed Data
clc
adc #$0080
stz UP_UnPacked ; On remet a zero car modifie par l'appel
stz UP_UnPacked+2
sta UP_UnPacked+1 ; Unpacked Data buffer
PushWord #0 ; Space for Result : Number of bytes unpacked
PushLong UP_Packed ; Pointer to buffer containing the packed data
PushWord UP_PackedSize ; Size of the Packed Data
PushLong #UP_UnPacked ; Pointer to Pointer to unpacked buffer
PushLong #UP_UnPackedSize ; Pointer to a Word containing size of unpacked data
_UnPackBytes
pla ; Number of byte unpacked
rts
UP_Packed hex 00000000 ; Address of Packed Data
UP_PackedSize hex 0000 ; Size of Packed Data
UP_UnPacked hex 00000000 ; Address of Unpacked Data Buffer (modified)
UP_UnPackedSize hex 0000 ; Size of Unpacked Data Buffer (modified)
; Basic I/O function to load files
LoadFile stx openRec+4 ; X=File, A=Bank/Page XX/00
sta readRec+5
:openFile _OpenGS openRec
bcs :openReadErr
lda openRec+2
sta eofRec+2
sta readRec+2
_GetEOFGS eofRec
lda eofRec+4
sta readRec+8
lda eofRec+6
sta readRec+10
_ReadGS readRec
bcs :openReadErr
:closeFile _CloseGS closeRec
clc
lda eofRec+4 ; File Size
rts
:openReadErr jsr :closeFile
nop
nop
PushWord #0
PushLong #msgLine1
PushLong #msgLine2
PushLong #msgLine3
PushLong #msgLine4
_TLTextMountVolume
pla
cmp #1
bne :loadFileErr
brl :openFile
:loadFileErr sec
rts
msgLine1 str 'Unable to load File'
msgLine2 str 'Press a key :'
msgLine3 str ' -> Return to Try Again'
msgLine4 str ' -> Esc to Quit'
; Data storage
ImageName strl '1/test.pic'
MasterId ds 2
UserId ds 2
BankLoad hex 0000
openRec dw 2 ; pCount
ds 2 ; refNum
adrl ImageName ; pathname
eofRec dw 2 ; pCount
ds 2 ; refNum
ds 4 ; eof
readRec dw 4 ; pCount
ds 2 ; refNum
ds 4 ; dataBuffer
ds 4 ; requestCount
ds 4 ; transferCount
closeRec dw 1 ; pCount
ds 2 ; refNum
qtRec adrl $0000
da $00
put App.Init.s
qtRec DW 0

39
test/App.s
View File

@ -1,13 +1,30 @@
*-------------------------------------* TYP $B3 ; S16 file
* GTE Tool * DSK GTETestApp
*-------------------------------------*
DSK GTETestApp ASM App.Main.s
TYP $B3 ; S16 file SNA Main
XPL
*-------------------------------------*
* Segment #1 *
*-------------------------------------*
ASM App.Main.s
SNA Main