TheIndustriousRabbit
/
the-automatic-proofreader-decompiled
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

clean up code, push video url

This commit is contained in:
John Bintz 2022-01-05 07:26:56 -05:00
parent 4698d846f1
commit 8ae5e0eb21
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
README.md
View File

@ -2,8 +2,7 @@
A decompiled copy of The New Automatic Proofreader with comments. A decompiled copy of The New Automatic Proofreader with comments.
Watch the video that breaks down how this works: Watch the video that breaks down how this works: https://www.youtube.com/watch?v=R8IWYauT-MU
## Decompile it yourself ## Decompile it yourself

14
ap.asm
View File

@ -24,9 +24,13 @@ LFFD2 := $FFD2
;; start of our tokenizer ;; start of our tokenizer
;; line number during GOSUB, GOTO, and RUN ;; line number during GOSUB, GOTO, and RUN
;; $a7 and $a8 are RS-232 input stuff ;; $a7 and $a8 are RS-232 input stuff. Let's
;; call them...
;; The Sum...
lda $14 lda $14
sta $A7 sta $A7
;; ...and the Overflow
lda $15 lda $15
sta $A8 sta $A8
@ -50,12 +54,9 @@ make_text_reversed: lda $C7,x
lda #$12 lda #$12
jsr L9BD2 jsr L9BD2
;; some places to store data in zero page?
ldy #$00 ldy #$00
;; b4 = current character index ;; b4 = current character index
sty $B4 sty $B4
;; b0 = are we in a quoted string ;; b0 = are we in a quoted string
sty $B0 sty $B0
@ -103,7 +104,7 @@ count_this_character: pla
;; load current char index ;; load current char index
ldx $B4 ldx $B4
repeatedly_process: clc repeatedly_process: clc
;; take the Character part... ;; take the Sum part...
lda $A7 lda $A7
;; load this character from input buffer ;; load this character from input buffer
;; this can set the carry bit ;; this can set the carry bit
@ -114,7 +115,8 @@ repeatedly_process: clc
;; load a8 ;; load a8
lda $A8 lda $A8
;; we put the # of overflows in here ;; we increment Overflow if it, uh, overflowed
;; we add 0 because the other bit is the Carry flag
adc #$00 adc #$00
sta $A8 sta $A8