iigs-game-engine/demos/tool/App.Main.s

                REL
                DSK   MAINSEG

                use   Locator.Macs
                use   Load.Macs
                use   Mem.Macs
                use   Misc.Macs
                use   Util.Macs
                use   EDS.GSOS.Macs
                use   GTE.Macs

                use   ../../src/Defs.s

                mx         %00

TSZelda         EXT                           ; tileset buffer

ScreenX         equ   0
ScreenY         equ   2

; Typical init
                phk
                plb

                sta   MyUserId                ; GS/OS passes the memory manager user ID for the aoplication into the program
                _MTStartUp                    ; GTE requires the miscellaneous toolset to be running

                jsr   GTEStartUp              ; Load and install the GTE User Tool

; Initialize the graphics screen to a 256x160 playfield

                pea   #256
                pea   #160
                _GTESetScreenMode

; Load a tileset

                pea   #^TSZelda
                pea   #TSZelda
                _GTELoadTileSet

; Manually fill in the 41x26 tiles of the TileStore with a test pattern.

                ldx   #0
                ldy   #0

:loop
                phx
                phy

                phx
                phy
                pei   0
                _GTESetTile

                lda   0
                inc
                and   #$001F
                sta   0

                ply
                plx
                inx
                cpx   #41
                bcc   :loop

                ldx   #0
                iny
                cpy   #26
                bcc   :loop

; Set the origin of the screen

                lda   #3
                sta   ScreenX
                lda   #10
                sta   ScreenY

                pea   #3
                pea   #10
                _GTESetBG0Origin

; Very simple actions
:evt_loop
                pha                           ; space for result, with pattern
                _GTEReadControl
                pla
                and   #$00FF
                cmp   #'q'
                beq   :exit

                cmp   #$15                    ; left = $08, right = $15, up = $0B, down = $0A
                bne   :8
                inc   ScreenX
                bra   :next

:8              cmp   #$08
                bne   :9
                dec   ScreenX
                bra   :next

:9              cmp   #$0B
                bne   :10
                inc   ScreenY
                bra   :next

:10             cmp   #$0A
                bne   :next
                dec   ScreenY

:next
                pei   ScreenX
                pei   ScreenY
                _GTESetBG0Origin

                _GTERender

; Debug stuff
                ldx   #$100
                lda   StartX,x
                ldx   #0
                jsr   DrawWord

                ldx   #$100
                lda   StartY,x
                ldx   #160*8
                jsr   DrawWord

                lda   ScreenX
                ldx   #160*16
                jsr   DrawWord

                lda   ScreenY
                ldx   #160*24
                jsr   DrawWord

                tdc
                ldx   #160*32
                jsr   DrawWord

                brl   :evt_loop

; Shut down everything
:exit
                _GTEShutDown
                _QuitGS qtRec
qtRec           adrl       $0000
                da         $00

; Load the GTE User Tool and install it
GTEStartUp
                pea   $0000
                _LoaderStatus
                pla

                pea   $0000
                pea   $0000
                pea   $0000
                pea   $0000
                pea   $0000                   ; result space

                lda   MyUserId
                pha

                pea   #^ToolPath
                pea   #ToolPath
                pea   $0001                   ; do not load into special memory
                _InitialLoad
                bcc    :ok1
                brk    $01

:ok1
                ply
                pla                           ; Address of the loaded tool
                plx
                ply
                ply

                pea   $8000                   ; User toolset
                pea   $00A0                   ; Set the tool set number
                phx
                pha                           ; Address of function pointer table
                _SetTSPtr
                bcc    :ok2
                brk    $02

:ok2
                clc                           ; Give GTE a page of direct page memory
                tdc
                adc   #$0100
                pha
                pea   $0000                   ; No extra capabilities
                lda   MyUserId                  ; Pass the userId for memory allocation
                pha
                _GTEStartUp
                bcc    :ok3
                brk    $03

:ok3
                rts

MyUserId        ds    2
ToolPath        str   '1/Tool160'

                PUT        App.Msg.s
                PUT        font.s
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00			`REL`
			`DSK MAINSEG`

			`use Locator.Macs`
			`use Load.Macs`
			`use Mem.Macs`
			`use Misc.Macs`
			`use Util.Macs`
			`use EDS.GSOS.Macs`
Basic working user tool framework 2022-04-24 19:45:07 +00:00			`use GTE.Macs`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00
Add message output for debugging 2022-05-20 04:39:19 +00:00			`use ../../src/Defs.s`

Thank to Kelvin Sherlock for pointing out that the source files were not setting the register state directive 2022-04-23 20:41:25 +00:00			`mx %00`

Move most data storage to separate bank; fix many banking bugs 2022-05-19 02:00:06 +00:00			`TSZelda EXT ; tileset buffer`

Initialize the graphics screen via the toolset 2022-04-25 22:11:48 +00:00			`ScreenX equ 0`
			`ScreenY equ 2`

Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00			`; Typical init`
			`phk`
			`plb`

Add message output for debugging 2022-05-20 04:39:19 +00:00			`sta MyUserId ; GS/OS passes the memory manager user ID for the aoplication into the program`
Basic working user tool framework 2022-04-24 19:45:07 +00:00			`_MTStartUp ; GTE requires the miscellaneous toolset to be running`
Thank to Kelvin Sherlock for pointing out that the source files were not setting the register state directive 2022-04-23 20:41:25 +00:00
Basic working user tool framework 2022-04-24 19:45:07 +00:00			`jsr GTEStartUp ; Load and install the GTE User Tool`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00
Initialize the graphics screen via the toolset 2022-04-25 22:11:48 +00:00			`; Initialize the graphics screen to a 256x160 playfield`

			`pea #256`
			`pea #160`
			`_GTESetScreenMode`

Move most data storage to separate bank; fix many banking bugs 2022-05-19 02:00:06 +00:00			`; Load a tileset`
Initialize the graphics screen via the toolset 2022-04-25 22:11:48 +00:00
Move most data storage to separate bank; fix many banking bugs 2022-05-19 02:00:06 +00:00			`pea #^TSZelda`
			`pea #TSZelda`
			`_GTELoadTileSet`
Initialize the graphics screen via the toolset 2022-04-25 22:11:48 +00:00
			`; Manually fill in the 41x26 tiles of the TileStore with a test pattern.`

Move most data storage to separate bank; fix many banking bugs 2022-05-19 02:00:06 +00:00			`ldx #0`
			`ldy #0`

			`:loop`
			`phx`
			`phy`

			`phx`
			`phy`
			`pei 0`
			`_GTESetTile`

			`lda 0`
			`inc`
			`and #$001F`
			`sta 0`

			`ply`
			`plx`
			`inx`
			`cpx #41`
			`bcc :loop`

			`ldx #0`
			`iny`
			`cpy #26`
			`bcc :loop`
Initialize the graphics screen via the toolset 2022-04-25 22:11:48 +00:00
			`; Set the origin of the screen`
Add message output for debugging 2022-05-20 04:39:19 +00:00
			`lda #3`
			`sta ScreenX`
			`lda #10`
			`sta ScreenY`

			`pea #3`
			`pea #10`
			`_GTESetBG0Origin`
Initialize the graphics screen via the toolset 2022-04-25 22:11:48 +00:00
Basic working user tool framework 2022-04-24 19:45:07 +00:00			`; Very simple actions`
Add message output for debugging 2022-05-20 04:39:19 +00:00			`:evt_loop`
Basic working user tool framework 2022-04-24 19:45:07 +00:00			`pha ; space for result, with pattern`
			`_GTEReadControl`
			`pla`
			`and #$00FF`
			`cmp #'q'`
Initialize the graphics screen via the toolset 2022-04-25 22:11:48 +00:00			`beq :exit`

Add message output for debugging 2022-05-20 04:39:19 +00:00			`cmp #$15 ; left = $08, right = $15, up = $0B, down = $0A`
			`bne :8`
			`inc ScreenX`
			`bra :next`

			`:8 cmp #$08`
			`bne :9`
			`dec ScreenX`
			`bra :next`

			`:9 cmp #$0B`
			`bne :10`
			`inc ScreenY`
			`bra :next`

			`:10 cmp #$0A`
			`bne :next`
			`dec ScreenY`

			`:next`
Work checkpoint 2022-04-29 17:38:04 +00:00			`pei ScreenX`
			`pei ScreenY`
			`_GTESetBG0Origin`
Initialize the graphics screen via the toolset 2022-04-25 22:11:48 +00:00
Move most data storage to separate bank; fix many banking bugs 2022-05-19 02:00:06 +00:00			`_GTERender`
Initialize the graphics screen via the toolset 2022-04-25 22:11:48 +00:00
Add message output for debugging 2022-05-20 04:39:19 +00:00			`; Debug stuff`
			`ldx #$100`
			`lda StartX,x`
			`ldx #0`
			`jsr DrawWord`

			`ldx #$100`
			`lda StartY,x`
			`ldx #160*8`
			`jsr DrawWord`

			`lda ScreenX`
			`ldx #160*16`
			`jsr DrawWord`

			`lda ScreenY`
			`ldx #160*24`
			`jsr DrawWord`

			`tdc`
			`ldx #160*32`
			`jsr DrawWord`

			`brl :evt_loop`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00
Initialize the graphics screen via the toolset 2022-04-25 22:11:48 +00:00			`; Shut down everything`
			`:exit`
Basic working user tool framework 2022-04-24 19:45:07 +00:00			`_GTEShutDown`
			`_QuitGS qtRec`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00			`qtRec adrl $0000`
			`da $00`

Basic working user tool framework 2022-04-24 19:45:07 +00:00			`; Load the GTE User Tool and install it`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00			`GTEStartUp`
Thank to Kelvin Sherlock for pointing out that the source files were not setting the register state directive 2022-04-23 20:41:25 +00:00			`pea $0000`
			`_LoaderStatus`
			`pla`

Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00			`pea $0000`
			`pea $0000`
			`pea $0000`
			`pea $0000`
			`pea $0000 ; result space`

Add message output for debugging 2022-05-20 04:39:19 +00:00			`lda MyUserId`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00			`pha`

			`pea #^ToolPath`
			`pea #ToolPath`
			`pea $0001 ; do not load into special memory`
Thank to Kelvin Sherlock for pointing out that the source files were not setting the register state directive 2022-04-23 20:41:25 +00:00			`_InitialLoad`
			`bcc :ok1`
			`brk $01`

			`:ok1`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00			`ply`
			`pla ; Address of the loaded tool`
			`plx`
			`ply`
			`ply`

			`pea $8000 ; User toolset`
			`pea $00A0 ; Set the tool set number`
			`phx`
			`pha ; Address of function pointer table`
			`_SetTSPtr`
Thank to Kelvin Sherlock for pointing out that the source files were not setting the register state directive 2022-04-23 20:41:25 +00:00			`bcc :ok2`
			`brk $02`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00
Thank to Kelvin Sherlock for pointing out that the source files were not setting the register state directive 2022-04-23 20:41:25 +00:00			`:ok2`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00			`clc ; Give GTE a page of direct page memory`
			`tdc`
			`adc #$0100`
			`pha`
Basic working user tool framework 2022-04-24 19:45:07 +00:00			`pea $0000 ; No extra capabilities`
Add message output for debugging 2022-05-20 04:39:19 +00:00			`lda MyUserId ; Pass the userId for memory allocation`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00			`pha`
			`_GTEStartUp`
Thank to Kelvin Sherlock for pointing out that the source files were not setting the register state directive 2022-04-23 20:41:25 +00:00			`bcc :ok3`
			`brk $03`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00
Thank to Kelvin Sherlock for pointing out that the source files were not setting the register state directive 2022-04-23 20:41:25 +00:00			`:ok3`
Refactor to support building a tool and new demo to try and use it [not working] 2022-04-23 05:47:13 +00:00			`rts`

Add message output for debugging 2022-05-20 04:39:19 +00:00			`MyUserId ds 2`
			`ToolPath str '1/Tool160'`

			`PUT App.Msg.s`
			`PUT font.s`