47 lines
907 B
ArmAsm
47 lines
907 B
ArmAsm
|
;;;
|
||
|
|
;;; A simple client program for the Foenix Toolbox using 64TASS
|
||
|
|
;;;
|
||
|
|
|
||
|
|
.cpu "65816"
|
||
|
|
|
||
|
|
.include "macros.s"
|
||
|
|
.include "toolbox.s"
|
||
|
|
.include "tb_params.s"
|
||
|
|
|
||
|
|
* = $10000
|
||
|
|
|
||
|
|
header: .byte $f8, $16 ; Signature
|
||
|
|
.byte 0 ; Version
|
||
|
|
.dword start ; Starting address
|
||
|
|
.dword 0 ; Icon address
|
||
|
|
.dword 0 ; Icon palette address
|
||
|
|
.null "hello" ; Name of the file
|
||
|
|
|
||
|
|
start: clc
|
||
|
|
xce
|
||
|
|
|
||
|
|
setdbr `start
|
||
|
|
setaxl
|
||
|
|
|
||
|
|
alloc 6 ; Set aside parameter space for sys_chan_write
|
||
|
|
|
||
|
|
lda #33 ; Size of the message
|
||
|
|
sta tb.chan_write.size
|
||
|
|
|
||
|
|
lda #`message ; Pointer to the message
|
||
|
|
sta tb.chan_write.buffer+2
|
||
|
|
lda #<>message
|
||
|
|
sta tb.chan_write.buffer
|
||
|
|
|
||
|
|
lda #0 ; Channel #0
|
||
|
|
|
||
|
|
jsl sys_chan_write ; sys_chan_write(0, message, strlen(message))
|
||
|
|
|
||
|
|
free 6 ; Reclaim parameter space from sys_chan_write
|
||
|
|
|
||
|
|
loop: nop
|
||
|
|
bra loop
|
||
|
|
|
||
|
|
message: .null "Hello, Foenix Toolbox (64TASS)!",13,10
|
||
|
|
|