Apple-2-SW/tlc-apple2
1
0
Fork 0
mirror of https://github.com/david-schmidt/tlc-apple2.git synced 2024-06-10 15:29:28 +00:00
Code Issues Projects Releases Wiki Activity

Update target labels

Browse Source 
Signed-off-by: David Schmidt <1110325+david-schmidt@users.noreply.github.com>
This commit is contained in:
David Schmidt 2023-09-25 13:59:42 -04:00
parent 441a1ce67f
commit 17faf070c8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/bitbangr.asm
View File

@ -81,7 +81,8 @@ pull_byte:
push_bit: ; We now have a bit in the carry
dec bits ; 6
beq :+ ; 2 (in the case we care about) Have we read all 8 bits? Then this bit is the stop bit
beq byte_complete ; Have we read all 8 bits? Then this bit is the stop bit; leave with carry set
; 2 (in the case we care about, i.e. more bits to read)
lda ring ; 4
ror ; 2
sta ring ; 4
@ -96,8 +97,10 @@ push_bit: ; We now have a bit in the carry
beq :+ ; 3
: nop ; 2
jmp pull_byte ; 3 Loop around for another bit - we burned $4C cycles
; $6B
byte_complete:
; Carry now holds stop bit (clear/0 indicates framing error, because we end with set/1)
: lda ring ; Exit with the assembled byte in A
lda ring ; Exit with the assembled byte in A
rts
pb_state: .byte $00