a2audit/audit/audit.asm

54 lines
767 B
NASM
Raw Normal View History

2016-12-07 03:18:33 +00:00
;;; 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
2016-12-07 03:18:33 +00:00
STRINGS = $7000
!set LASTSTRING = $7000
2016-12-15 01:16:55 +00:00
;; Printing and error macros.
!src "macros.asm"
2016-12-07 03:18:33 +00:00
main:
jsr HOME
+print
!text "APPLE II AUDIT",$8D,$8D
+printed
2016-12-15 01:16:55 +00:00
;; Detection and reporting of model and memory.
!src "detect.asm"
2016-12-15 01:16:55 +00:00
;; Language card tests.
!src "langcard.asm"
2016-12-07 03:18:33 +00:00
end: jmp *
print2
lda $C081
lda $C081
getch2 lda $FEED
2016-12-07 03:18:33 +00:00
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:", *
}