diff options
author | B. Watson <yalhcru@gmail.com> | 2019-03-15 23:22:07 -0400 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2019-03-15 23:22:07 -0400 |
commit | b5d754279cef91c49776bb4da250bd69c3d9ae9d (patch) | |
tree | a71db03b1a95a947db106d7a5a683e7aa4cc329e /src | |
parent | bcd97cceedc7b34b398e9c62be3f82c18925f68d (diff) | |
download | fujichat-b5d754279cef91c49776bb4da250bd69c3d9ae9d.tar.gz |
port aexec.dasm to ca65, no more dasm build dep
Diffstat (limited to 'src')
-rw-r--r-- | src/Makefile | 4 | ||||
-rw-r--r-- | src/aexec.s (renamed from src/aexec.dasm) | 38 | ||||
-rw-r--r-- | src/loadxex.s | 3 |
3 files changed, 21 insertions, 24 deletions
diff --git a/src/Makefile b/src/Makefile index ba72f9f..5efd335 100644 --- a/src/Makefile +++ b/src/Makefile @@ -45,8 +45,8 @@ loadmenu.xex: loadxex.s loadmkau.xex: loadxex.s cl65 -t none -o loadmkau.xex loadxex.s -aexec.xex: aexec.dasm - dasm aexec.dasm -f3 -oaexec.xex +aexec.xex: aexec.s + cl65 -t none -o aexec.xex aexec.s test: disk atariserver fujitest.atr diff --git a/src/aexec.dasm b/src/aexec.s index 9338c4c..27e8909 100644 --- a/src/aexec.dasm +++ b/src/aexec.s @@ -4,9 +4,10 @@ ; Return value: 0 for success, nonzero on error, never returns if exe has ; a run address. -; TODO: learn ca65 syntax better, port this to ca65 +; This is for the Atari, but it gets built with "-t none" to +; avoid ld65 adding the C runtime startup code. Also, there is +; NO run address in this file. -; Usage: build with "dasm aexec.dasm -f3 -oaexec.xex" ; "Link" to your program with "cat aexec.xex yourprog.xex > newprog.xex" ; int __fastcall__ (*atari_exec_p)(char *) = (int __fastcall__ (*)(char *))0x600; @@ -30,20 +31,19 @@ ; the caller... - processor 6502 - include "equates.inc" + .include "atari.inc" tmp = $d4 ; aka FR0 loadaddr = $d6 main = $0600 - org main-6 - word $FFFF - word main - word endmain-1 + .org main-6 + .word $FFFF + .word main + .word endmain-1 - org main + .org main pha txa pha @@ -96,7 +96,7 @@ fndone: fail: lda #$48 sta 710 -hang bne hang +hang: bne hang readheader: ; read 2 bytes into local buffer @@ -155,7 +155,7 @@ noinc: sta INITAD+1 beq readheader ; branch always -do_init +do_init: jmp (INITAD) close_file: @@ -171,7 +171,7 @@ close_file: ; If there was no run address, we were probably loading an R: driver, so ; our caller is safe to return to -norun +norun: lda #0 ; return 0 tax rts @@ -185,22 +185,18 @@ read2bytes: sta ICBAH+$10 sta ICBLH+$10 read_segment: - lda #C_GETCHR + lda #GETCHR sta ICCOM+$10 ldx #$10 jmp CIOV -do_run +do_run: jmp (RUNAD) -fclose - lda #C_CLOSE +fclose: + lda #CLOSE sta ICCOM+$10 ldx #$10 jmp CIOV -endmain - -; word RUNAD -; word RUNAD+1 -; word main +endmain: diff --git a/src/loadxex.s b/src/loadxex.s index 7008f75..bf0f3c6 100644 --- a/src/loadxex.s +++ b/src/loadxex.s @@ -5,7 +5,8 @@ ; I'd have to make AUTORUN.SYS a copy of FUJIMENU.COM with ; the serial driver prepended. -RUNAD = $02e0 + .include "atari.inc" + atari_exec = $0600 main = $2e00 ; same place as cc65 |