mirror of
https://github.com/zellyn/a2audit.git
synced 2024-12-22 11:29:37 +00:00
Add bare bones do-nothing audit.asm
This commit is contained in:
parent
f2c1116b63
commit
96d5f64038
4
.gitignore
vendored
4
.gitignore
vendored
@ -1,3 +1,7 @@
|
||||
*.o
|
||||
roms/*.bin
|
||||
floatbus/cfg
|
||||
audit/cfg
|
||||
|
||||
# Temporarily...
|
||||
roms/*
|
38
audit/audit.asm
Normal file
38
audit/audit.asm
Normal file
@ -0,0 +1,38 @@
|
||||
;;; Apple II audit routines
|
||||
;;; Copyright © 2016 Zellyn Hunter <zellyn@gmail.com>
|
||||
|
||||
!convtab <apple ii/convtab.bin>
|
||||
!to "audit.o", plain
|
||||
* = $6000
|
||||
|
||||
HOME = $FC58
|
||||
COUT = $FDED
|
||||
|
||||
main:
|
||||
jsr HOME
|
||||
jsr print
|
||||
!text "Apple II audit",$8D,0
|
||||
jsr print
|
||||
!text "Detecting machine version...",$8D,0
|
||||
end: jmp *
|
||||
|
||||
;;; print prints a null-terminated string from the address after the
|
||||
;;; JSR that called it, returning to the address following the null.
|
||||
print:
|
||||
tsx
|
||||
lda $101,X
|
||||
sta getch+1
|
||||
lda $102,X
|
||||
sta getch+2
|
||||
- inc getch+1
|
||||
bne getch
|
||||
inc getch+2
|
||||
getch lda $FEED ; $FEED gets modified
|
||||
beq +
|
||||
jsr COUT
|
||||
jmp -
|
||||
+ lda getch+1
|
||||
sta $101,X
|
||||
lda getch+2
|
||||
sta $102,x
|
||||
rts
|
BIN
audit/audit.dsk
Normal file
BIN
audit/audit.dsk
Normal file
Binary file not shown.
17
audit/build
Executable file
17
audit/build
Executable file
@ -0,0 +1,17 @@
|
||||
#!/usr/bin/env bash
|
||||
set -euo pipefail
|
||||
export ACME="$HOME/gh/acme/ACME_Lib"
|
||||
|
||||
acme audit.asm
|
||||
|
||||
# Build audit.dsk with diskii (bit.ly/a2diskii), on a Super-Mon disk
|
||||
# =====================================================================
|
||||
|
||||
cp ../dsk/supermon20.dsk audit.dsk
|
||||
# FHELLO: load file DF02 at 0x6000.
|
||||
echo -n -e '\x20\x40\x03\x6D\x01\xDC\x2C\x02\xDF\x2C\x00\x60\xF8\x4C\x00\x60' | diskii put -f audit.dsk DF01:FHELLO -
|
||||
diskii put -f audit.dsk DF02:FWORLD audit.o
|
||||
|
||||
|
||||
# On my computer, run mame like this:
|
||||
# mame -rompath ~/mame/roms/ apple2ee -flop1 ./audit.dsk
|
Loading…
Reference in New Issue
Block a user