mirror of
https://github.com/cc65/cc65.git
synced 2024-12-27 00:29:31 +00:00
52 lines
923 B
ArmAsm
52 lines
923 B
ArmAsm
|
; Sample using ATARI file format, by "atari-xex.cfg" linker configuration.
|
||
|
|
;
|
||
|
|
; This is a very simple example, shows a message to the screen, waits and
|
||
|
|
; returns to DOS.
|
||
|
|
;
|
||
|
|
; Compile with:
|
||
|
|
; cl65 -tatari -Catari-xex.cfg asm-xex.s -o prog.xex
|
||
|
|
|
||
|
|
.include "atari.inc"
|
||
|
|
|
||
|
|
; Default RUNAD is "start", export that:
|
||
|
|
.export start
|
||
|
|
|
||
|
|
|
||
|
|
; Write string to screen
|
||
|
|
.proc puts
|
||
|
|
sta ICBAL
|
||
|
|
stx ICBAH
|
||
|
|
lda #PUTREC
|
||
|
|
sta ICCOM
|
||
|
|
ldx #$FF
|
||
|
|
stx ICBLL
|
||
|
|
inx
|
||
|
|
stx ICBLH
|
||
|
|
jsr CIOV
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
|
||
|
|
; Write a message and exit
|
||
|
|
|
||
|
|
.proc start
|
||
|
|
lda #<msg
|
||
|
|
ldx #>msg
|
||
|
|
jsr puts
|
||
|
|
|
||
|
|
|
||
|
|
; Delay before returning to DOS
|
||
|
|
lda #0
|
||
|
|
tax
|
||
|
|
loop:
|
||
|
|
inx
|
||
|
|
cpx #$FF
|
||
|
|
adc #0
|
||
|
|
bcc loop
|
||
|
|
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
msg: .byte "Hello world", ATEOL
|
||
|
|
|