Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-12 08:30:30 +00:00
Code Issues Projects Releases Wiki Activity

Click/press loop

Browse Source
This commit is contained in:
Joshua Bell 2017-09-06 21:33:22 -07:00
parent a86513cf32
commit 7a63772865
3 changed files with 45 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
desk.acc/a2d.inc
View File

@ -202,9 +202,14 @@ A2D_CWS_SCROLL_NORMAL := A2D_CWS_SCROLL_ENABLED | A2D_CWS_SCROLL_THUMB | A2D_CW
;;; Macros
.macro A2D_CALL op, addr
.macro A2D_CALL op, addr, label
jsr A2D
.byte op
.if .paramcount > 2
label := *
.endif
.addr addr
.endmacro

58
desk.acc/calculator.s
View File

@ -945,21 +945,21 @@ trydiv: cmp #'/' ; Divide?
ldx #0
lda text_buffer1 + text_buffer_size
cmp #'.'
bne L10D6
bne :+
stx L0BC7
L10D6: cmp #'E'
: cmp #'E'
bne :+
stx L0BC8
: cmp #'-'
bne :+
stx L0BC9
: ldx #$0D
L10E6: lda text_buffer1,x
: ldx #text_buffer_size-1
loop: lda text_buffer1,x
sta text_buffer1+1,x
sta text_buffer2+1,x
dex
dey
bne L10E6
bne loop
lda #' '
sta text_buffer1+1,x
sta text_buffer2+1,x
@ -1073,12 +1073,12 @@ post: ldx #<farg ; after the FP operation is done
jsr ROUND
jsr FOUT
ldy #0
L11CC: lda $0100,y
L11CC: lda $0100,y ; stack ?
beq L11D4
iny
bne L11CC
L11D4: ldx #text_buffer_size
L11D6: lda $FF,y
L11D6: lda $FF,y ; stack-1 ?
sta text_buffer1,x
sta text_buffer2,x
dex
@ -1086,11 +1086,11 @@ L11D6: lda $FF,y
bne L11D6
cpx #0
bmi L11F2
L11E7: lda #' '
loop: lda #' '
sta text_buffer1,x
sta text_buffer2,x
dex
bpl L11E7
bpl loop
L11F2: jsr L12A4
L11F5: jsr L127E
lda #0
@ -1101,47 +1101,47 @@ L11F5: jsr L127E
sta L0BCA
rts
L120A: stx L122F
stx L1253
stx L1273
sty L122F+1
sty L1253+1
sty L1273+1
.proc L120A
stx clear_addr
stx c13_addr
stx clear2_addr
sty clear_addr+1
sty c13_addr+1
sty clear2_addr+1
A2D_CALL A2D_SET_PATTERN, black_pattern
A2D_CALL $07, L0CA6
sec
ror $FC
L122F := *+4
L122B: A2D_CALL A2D_CLEAR_BOX, 0
L1231: A2D_CALL A2D_GET_BUTTON, button_state_params
clear: A2D_CALL A2D_CLEAR_BOX, 0, clear_addr ; Inverts box
check_button:
A2D_CALL A2D_GET_BUTTON, button_state_params
lda button_state_params::state
cmp #$04
bne L126B
cmp #$04 ; Button down?
bne done ; Nope, done immediately
lda #window_id
sta button_state_params::state
A2D_CALL $46, button_state_params
A2D_CALL A2D_SET_TEXT_POS, text_pos_params1
L1253 := *+4
A2D_CALL $13, 0
A2D_CALL $13, 0, c13_addr
bne L1261
lda $FC
beq L1231
beq check_button
lda #$00
sta $FC
beq L122B
beq clear
L1261: lda $FC
bne L1231
bne check_button
sec
ror $FC
jmp L122B
jmp clear
L126B: lda $FC
done: lda $FC
beq L1275
L1273 := *+4
A2D_CALL A2D_CLEAR_BOX, 0
A2D_CALL A2D_CLEAR_BOX, 0, clear2_addr ; Inverts back to normal
L1275: A2D_CALL $07, L0CA3
lda $FC
rts
.endproc
L127E: ldy #text_buffer_size
L1280: lda #' '

23
desk.acc/go.sh
View File

@ -2,24 +2,21 @@
set -e
#make clean
make all
function do_make {
make "$1" \
&& (tput setaf 2 ; echo "make $1 good" ; tput sgr0 ) \
|| (tput setaf 1 ; tput blink ; echo "MAKE $1 BAD" ; tput sgr0 ; return 1)
}
function verify {
diff "$1.bin" "$1.F1" \
&& echo "$1: files match" \
|| (
tput setaf 1 # red
tput blink
echo "************************************"
echo "*"
echo "* Bad: $1"
echo "*"
echo "************************************"
tput sgr0 # res
)
&& (tput setaf 2 ; echo "diff $1 good" ; tput sgr0 ) \
|| (tput setaf 1 ; tput blink ; echo -e "DIFF $1 BAD" ; tput sgr0 ; return 1)
}
#do_make clean
do_make all
# Verify original and output match
verify "calculator"
verify "show_text_file"