Reorg files; focus on S16 artifact
This commit is contained in:
parent
7e6c4a0c91
commit
50a3f27a9a
Binary file not shown.
After Width: | Height: | Size: 4.2 KiB |
Binary file not shown.
After Width: | Height: | Size: 4.1 KiB |
|
@ -13,6 +13,5 @@ REM Cadius does not overwrite files, so clear the root folder first
|
||||||
%CADIUS% CREATEFOLDER %IMAGE% %FOLDER%
|
%CADIUS% CREATEFOLDER %IMAGE% %FOLDER%
|
||||||
|
|
||||||
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% src\\GTETestApp
|
||||||
%CADIUS% ADDFILE %IMAGE% %FOLDER% src\\GTETool
|
|
||||||
%CADIUS% ADDFILE %IMAGE% %FOLDER% emu\\test.pic
|
%CADIUS% ADDFILE %IMAGE% %FOLDER% emu\\test.pic
|
||||||
|
|
|
@ -11,9 +11,7 @@
|
||||||
},
|
},
|
||||||
"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_package_config_merlin32% -V %npm_package_config_macros% src\\App.s",
|
||||||
"build:test": "%npm_package_config_merlin32% -V %npm_package_config_macros% test\\App.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": {
|
||||||
|
|
|
@ -86,7 +86,6 @@ SHR_SCB equ $E19D00
|
||||||
|
|
||||||
lda #0 ; Set the virtual Y-position
|
lda #0 ; Set the virtual Y-position
|
||||||
jsr SetYPos
|
jsr SetYPos
|
||||||
brl Exit
|
|
||||||
|
|
||||||
; Load a picture and copy it into Bank $E1. Then turn on the screen.
|
; Load a picture and copy it into Bank $E1. Then turn on the screen.
|
||||||
|
|
||||||
|
@ -97,16 +96,51 @@ EvtLoop
|
||||||
cmp #'q'
|
cmp #'q'
|
||||||
bne :1
|
bne :1
|
||||||
brl Exit
|
brl Exit
|
||||||
|
|
||||||
:1 cmp #'l'
|
:1 cmp #'l'
|
||||||
bne :2
|
bne :2
|
||||||
brl DoLoadPic
|
jsr DoLoadPic
|
||||||
|
bra EvtLoop
|
||||||
|
|
||||||
:2 cmp #'m'
|
:2 cmp #'m'
|
||||||
bne :3
|
bne :3
|
||||||
brl DoMessage
|
jsr DumpBanks
|
||||||
|
bra EvtLoop
|
||||||
|
|
||||||
:3 cmp #'f' ; render a 'f'rame
|
:3 cmp #'f' ; render a 'f'rame
|
||||||
bne :4
|
bne :4
|
||||||
brl DoFrame
|
jsr DoFrame
|
||||||
:4 bra EvtLoop
|
bra EvtLoop
|
||||||
|
|
||||||
|
:4 cmp #'h' ; Show the 'h'eads up display
|
||||||
|
bne :5
|
||||||
|
jsr DoHUP
|
||||||
|
:5 bra EvtLoop
|
||||||
|
|
||||||
|
SecondsStr str 'SECONDS'
|
||||||
|
TicksStr str 'TICKS'
|
||||||
|
|
||||||
|
; Print a bunch of messages on screen
|
||||||
|
DoHUP
|
||||||
|
lda #SecondsStr
|
||||||
|
ldx #{160-12*4}
|
||||||
|
ldy #$7777
|
||||||
|
jsr DrawString
|
||||||
|
lda OneSecondCounter ; Number of elapsed seconds
|
||||||
|
ldx #{160-4*4} ; Render the word 4 charaters from right edge
|
||||||
|
jsr DrawWord
|
||||||
|
|
||||||
|
lda #TicksStr
|
||||||
|
ldx #{8*160+160-12*4}
|
||||||
|
ldy #$7777
|
||||||
|
jsr DrawString
|
||||||
|
PushLong #0
|
||||||
|
_GetTick
|
||||||
|
pla
|
||||||
|
plx
|
||||||
|
ldx #{8*160+160-4*4}
|
||||||
|
jsr DrawWord
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
; Set up the code field and render it
|
; Set up the code field and render it
|
||||||
|
@ -232,87 +266,8 @@ stk_save lda #0000 ; load the stack
|
||||||
|
|
||||||
phk ; restore data bank
|
phk ; restore data bank
|
||||||
plb
|
plb
|
||||||
jmp EvtLoop
|
|
||||||
|
|
||||||
HexToChar dfb '0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'
|
|
||||||
|
|
||||||
; Convert a byte (Acc) into a string and store at (Y)
|
|
||||||
ByteToString sep #$20
|
|
||||||
pha
|
|
||||||
|
|
||||||
and #$F0
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
tax
|
|
||||||
ldal HexToChar,x
|
|
||||||
sta: $0000,y
|
|
||||||
|
|
||||||
pla
|
|
||||||
and #$0F
|
|
||||||
tax
|
|
||||||
ldal HexToChar,x
|
|
||||||
sta: $0001,y
|
|
||||||
|
|
||||||
rep #$20
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
; Pass in Acc = High, X = low
|
|
||||||
Addr3ToString phx
|
|
||||||
jsr ByteToString
|
|
||||||
iny
|
|
||||||
iny
|
|
||||||
lda 1,s
|
|
||||||
xba
|
|
||||||
jsr ByteToString
|
|
||||||
iny
|
|
||||||
iny
|
|
||||||
pla
|
|
||||||
jsr ByteToString
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
:count = 4
|
|
||||||
:ptr = 6
|
|
||||||
:addr = 10
|
|
||||||
DoMessage stz :addr
|
|
||||||
lda #13
|
|
||||||
sta :count
|
|
||||||
lda #BlitBuff
|
|
||||||
sta :ptr
|
|
||||||
lda #^BlitBuff
|
|
||||||
sta :ptr+2
|
|
||||||
|
|
||||||
:loop lda [:ptr]
|
|
||||||
tax
|
|
||||||
ldy #2
|
|
||||||
lda [:ptr],y
|
|
||||||
|
|
||||||
ldy #Hello+1
|
|
||||||
jsr Addr3ToString
|
|
||||||
|
|
||||||
lda #Hello
|
|
||||||
ldx :addr
|
|
||||||
ldy #$7777
|
|
||||||
jsr DrawString
|
|
||||||
|
|
||||||
lda :addr
|
|
||||||
clc
|
|
||||||
adc #160*8
|
|
||||||
sta :addr
|
|
||||||
|
|
||||||
inc :ptr
|
|
||||||
inc :ptr
|
|
||||||
inc :ptr
|
|
||||||
inc :ptr
|
|
||||||
|
|
||||||
dec :count
|
|
||||||
lda :count
|
|
||||||
bne :loop
|
|
||||||
|
|
||||||
jmp EvtLoop
|
|
||||||
|
|
||||||
DoLoadPic
|
DoLoadPic
|
||||||
lda BankLoad
|
lda BankLoad
|
||||||
ldx #ImageName ; Load+Unpack Boot Picture
|
ldx #ImageName ; Load+Unpack Boot Picture
|
||||||
|
@ -328,7 +283,7 @@ DoLoadPic
|
||||||
dex
|
dex
|
||||||
dex
|
dex
|
||||||
bpl :copySHR
|
bpl :copySHR
|
||||||
jmp EvtLoop
|
rts
|
||||||
|
|
||||||
Exit
|
Exit
|
||||||
pea $0007 ; disable 1-second interrupts
|
pea $0007 ; disable 1-second interrupts
|
||||||
|
@ -349,7 +304,7 @@ Exit
|
||||||
bcs Fatal
|
bcs Fatal
|
||||||
Fatal brk $00
|
Fatal brk $00
|
||||||
|
|
||||||
Hello str '000000'
|
Hello str '000000' ; str adds leading length byte
|
||||||
|
|
||||||
****************************************
|
****************************************
|
||||||
* Fatal Error Handler *
|
* Fatal Error Handler *
|
||||||
|
@ -617,6 +572,7 @@ qtRec adrl $0000
|
||||||
da $00
|
da $00
|
||||||
|
|
||||||
put App.Init.s
|
put App.Init.s
|
||||||
|
put App.Msg.s
|
||||||
put font.s
|
put font.s
|
||||||
put blitter/Template.s
|
put blitter/Template.s
|
||||||
put blitter/Tables.s
|
put blitter/Tables.s
|
||||||
|
@ -636,3 +592,30 @@ qtRec adrl $0000
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -0,0 +1,124 @@
|
||||||
|
HexToChar dfb '0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'
|
||||||
|
|
||||||
|
; Convert a byte (Acc) into a string and store at (Y)
|
||||||
|
ByteToString and #$00FF
|
||||||
|
sep #$20
|
||||||
|
pha
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
and #$0F
|
||||||
|
tax
|
||||||
|
ldal HexToChar,x
|
||||||
|
sta: $0000,y
|
||||||
|
|
||||||
|
pla
|
||||||
|
and #$0F
|
||||||
|
tax
|
||||||
|
ldal HexToChar,x
|
||||||
|
sta: $0001,y
|
||||||
|
|
||||||
|
rep #$20
|
||||||
|
rts
|
||||||
|
|
||||||
|
; Convert a word (Acc) into a string and store at (Y)
|
||||||
|
WordToString pha
|
||||||
|
bra Addr2ToString
|
||||||
|
|
||||||
|
; Pass in Acc = High, X = low
|
||||||
|
Addr3ToString phx
|
||||||
|
jsr ByteToString
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
lda 1,s
|
||||||
|
Addr2ToString xba
|
||||||
|
jsr ByteToString
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
pla
|
||||||
|
jsr ByteToString
|
||||||
|
rts
|
||||||
|
|
||||||
|
; A=Value
|
||||||
|
; X=Screen offset
|
||||||
|
WordBuff dfb 4
|
||||||
|
ds 4
|
||||||
|
DrawWord phx ; Save register value
|
||||||
|
ldy #WordBuff+1
|
||||||
|
jsr WordToString
|
||||||
|
plx
|
||||||
|
lda #WordBuff
|
||||||
|
ldy #$7777
|
||||||
|
jsr DrawString
|
||||||
|
rts
|
||||||
|
|
||||||
|
; Rendout out the bank addresses of all the blitter fields
|
||||||
|
:count = tmp0
|
||||||
|
:ptr = tmp1
|
||||||
|
:addr = tmp3
|
||||||
|
DumpBanks stz :addr
|
||||||
|
lda #13
|
||||||
|
sta :count
|
||||||
|
lda #BlitBuff
|
||||||
|
sta :ptr
|
||||||
|
lda #^BlitBuff
|
||||||
|
sta :ptr+2
|
||||||
|
|
||||||
|
:loop lda [:ptr]
|
||||||
|
tax
|
||||||
|
ldy #2
|
||||||
|
lda [:ptr],y
|
||||||
|
|
||||||
|
ldy #Hello+1
|
||||||
|
jsr Addr3ToString
|
||||||
|
|
||||||
|
lda #Hello
|
||||||
|
ldx :addr
|
||||||
|
ldy #$7777
|
||||||
|
jsr DrawString
|
||||||
|
|
||||||
|
lda :addr
|
||||||
|
clc
|
||||||
|
adc #160*8
|
||||||
|
sta :addr
|
||||||
|
|
||||||
|
inc :ptr
|
||||||
|
inc :ptr
|
||||||
|
inc :ptr
|
||||||
|
inc :ptr
|
||||||
|
|
||||||
|
dec :count
|
||||||
|
lda :count
|
||||||
|
bne :loop
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,10 @@
|
||||||
TYP $B3 ; S16 file
|
; IIgs Game Engine
|
||||||
|
;
|
||||||
DSK GTETestApp
|
DSK GTETestApp
|
||||||
|
TYP $B3 ; S16 file
|
||||||
|
XPL
|
||||||
|
|
||||||
|
; Segment #1 -- Main execution block
|
||||||
|
|
||||||
ASM App.Main.s
|
ASM App.Main.s
|
||||||
SNA Main
|
SNA Main
|
||||||
|
@ -26,5 +31,6 @@
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -1 +0,0 @@
|
||||||
RTL
|
|
15
src/Tool.s
15
src/Tool.s
|
@ -1,15 +0,0 @@
|
||||||
*-------------------------------------*
|
|
||||||
* GTE Tool *
|
|
||||||
*-------------------------------------*
|
|
||||||
DSK GTETool
|
|
||||||
TYP $BA
|
|
||||||
XPL
|
|
||||||
|
|
||||||
*-------------------------------------*
|
|
||||||
* Segment #1 *
|
|
||||||
*-------------------------------------*
|
|
||||||
|
|
||||||
ASM GTE.Main.s
|
|
||||||
ASM GTE.Line.s
|
|
||||||
SNA Main
|
|
||||||
|
|
|
@ -643,3 +643,4 @@ s_Template hex 00000000
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue