Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-06-16 14:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Tweak comments in Scanner.asm.

Browse Source 
There are no code changes.
This commit is contained in:
Stephen Heumann 2022-02-15 20:51:16 -06:00
parent 3893db1346
commit 30fcc7227f
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Scanner.asm
View File

@ -466,6 +466,7 @@ cch equ 13
enum (ch_asterisk,ch_slash,ch_percent,ch_carot,ch_pound,ch_colon)
enum (ch_backslash,letter,digit)
! begin {NextCh}
tsc create stack frame
sec
sbc #stackFrameSize
@ -873,7 +874,7 @@ le1 sta ch
! goto 2;
brl lab2
! end; {if}
! end; {if}
! end; {else if}
! end; {else}
le2 anop
pld
@ -911,11 +912,13 @@ db1 sta p1
and #$00FF
cmp #$07
bne db2
! debugType := break
! debugType := break;
lda #break
sta debugType
! chPtr := pointer(ord4(chPtr) + 1);
! end {else if}
bra db3
! else if ord(chPtr^) = $06 then
! else if ord(chPtr^) = $06 then begin
db2 cmp #$06
bne db4
! debugType := autoGo;
@ -923,7 +926,7 @@ db2 cmp #$06
sta debugType
! chPtr := pointer(ord4(chPtr) + 1);
db3 inc4 chPtr
! end {if}
! end {else if}
bra db5
! else
! debugType := stop;