mirror of
https://github.com/zellyn/a2audit.git
synced 2024-11-22 13:33:35 +00:00
54 lines
767 B
NASM
54 lines
767 B
NASM
;;; 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
|
|
PRBYTE = $FDDA
|
|
|
|
STRINGS = $7000
|
|
!set LASTSTRING = $7000
|
|
|
|
;; Printing and error macros.
|
|
!src "macros.asm"
|
|
|
|
main:
|
|
jsr HOME
|
|
+print
|
|
!text "APPLE II AUDIT",$8D,$8D
|
|
+printed
|
|
|
|
;; Detection and reporting of model and memory.
|
|
!src "detect.asm"
|
|
|
|
;; Language card tests.
|
|
!src "langcard.asm"
|
|
|
|
end: jmp *
|
|
|
|
print2
|
|
lda $C081
|
|
lda $C081
|
|
getch2 lda $FEED
|
|
beq +
|
|
jsr COUT
|
|
inc getch2+1
|
|
bne getch2
|
|
inc getch2+2
|
|
jmp getch2
|
|
+ rts
|
|
|
|
!src "technote2.asm"
|
|
|
|
; !if * != STRINGS {
|
|
; !error "Expected STRINGS to be ", *
|
|
; }
|
|
|
|
!if * > STRINGS {
|
|
!error "End of compilation passed STRINGS:", *
|
|
}
|
|
|