mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-29 21:31:53 +00:00
33 lines
783 B
ArmAsm
33 lines
783 B
ArmAsm
; Tiny Text
|
|
|
|
; by Vince `deater` Weaver, vince@deater.net --- d e s i r e ---
|
|
|
|
; scrolling hexadecimal numbers
|
|
; hard to do much in 8-bytes on Apple II
|
|
|
|
|
|
; zero page locations
|
|
|
|
; ROM calls
|
|
SETGR = $FB40 ; set lo-res graphics code, clear screen
|
|
PRHEX = $FDE3 ; print hex digit
|
|
COUT = $FDED ; output A to screen
|
|
COUT1 = $FDF0 ; output A to screen
|
|
|
|
; load to zero page
|
|
.zeropage
|
|
|
|
tiny_text:
|
|
|
|
tiny_loop:
|
|
lda $00,X ; get value from zero page
|
|
jsr PRHEX ; convert to hex digit and print, with scroll
|
|
; jsr COUT
|
|
inx ; move to next location
|
|
bvc tiny_loop ; branch always (depends on the V flag
|
|
; being clear, which it should be?)
|
|
|
|
; we could maybe use a proper branch code
|
|
; if we can prove the output of COUT has
|
|
; any guarantees
|