Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-06-25 16:29:56 +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_asterisk,ch_slash,ch_percent,ch_carot,ch_pound,ch_colon)
enum (ch_backslash,letter,digit) enum (ch_backslash,letter,digit)
! begin {NextCh}
tsc create stack frame tsc create stack frame
sec sec
sbc #stackFrameSize sbc #stackFrameSize
@ -873,7 +874,7 @@ le1 sta ch
! goto 2; ! goto 2;
brl lab2 brl lab2
! end; {if} ! end; {if}
! end; {if} ! end; {else if}
! end; {else} ! end; {else}
le2 anop le2 anop
pld pld
@ -911,11 +912,13 @@ db1 sta p1
and #$00FF and #$00FF
cmp #$07 cmp #$07
bne db2 bne db2
! debugType := break ! debugType := break;
lda #break lda #break
sta debugType sta debugType
! chPtr := pointer(ord4(chPtr) + 1);
! end {else if}
bra db3 bra db3
! else if ord(chPtr^) = $06 then ! else if ord(chPtr^) = $06 then begin
db2 cmp #$06 db2 cmp #$06
bne db4 bne db4
! debugType := autoGo; ! debugType := autoGo;
@ -923,7 +926,7 @@ db2 cmp #$06
sta debugType sta debugType
! chPtr := pointer(ord4(chPtr) + 1); ! chPtr := pointer(ord4(chPtr) + 1);
db3 inc4 chPtr db3 inc4 chPtr
! end {if} ! end {else if}
bra db5 bra db5
! else ! else
! debugType := stop; ! debugType := stop;