6502/acme
1
0
Fork 0
mirror of https://github.com/uffejakobsen/acme.git synced 2024-11-25 23:49:25 +00:00
Code Issues Projects Releases Wiki Activity

fixed comments

Browse Source 
git-svn-id: https://svn.code.sf.net/p/acme-crossass/code-0/trunk@323 4df02467-bbd4-4a76-a152-e7ce94205b78
This commit is contained in:
marcobaye 2021-11-05 09:41:40 +00:00
parent eeece2db6e
commit dac562b84f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/c64doubledabble.a
View File

@ -10,12 +10,12 @@
; an excercise to the reader). ; an excercise to the reader).
; the raster time used is indicated via changes of the border color. ; the raster time used is indicated via changes of the border color.
DIGITS = 8 ; three input bytes -> 24 bits -> max 16777216 -> we need eight digits DIGITS = 8 ; three input bytes -> 24 bits -> max 16777215 -> we need eight digits
!addr { !addr {
byte = $fb ; buffers input byte during shifts
ti_high = $a0 ; input data ti_high = $a0 ; input data
ti_med = $a1 ti_med = $a1
ti_low = $a2 ti_low = $a2
byte = $fb ; buffers input byte during shifts
out = $0400 ; where to show output digits (big-endian!) out = $0400 ; where to show output digits (big-endian!)
raster = $d012 ; to sync with screen raster = $d012 ; to sync with screen
border = $d020 ; to show raster time border = $d020 ; to show raster time
@ -36,9 +36,9 @@
lda ti_high lda ti_high
cli ; re-allow irq cli ; re-allow irq
jsr dd_process_A ; process high byte jsr dd_process_A ; process high byte
pla ; restore medium byte pla ; process medium byte
jsr dd_process_A jsr dd_process_A
pla ; restore low byte pla ; process low byte
jsr dd_process_A jsr dd_process_A
jsr dd_result ; convert result from 0..9 values to '0'..'9' characters jsr dd_result ; convert result from 0..9 values to '0'..'9' characters
dec border ; stop "stop watch" dec border ; stop "stop watch"