Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-21 21:32:00 +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

25
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
@ -502,11 +503,11 @@ lab1 anop
la1 brl lb5 la1 brl lb5
la2 anop la2 anop
! if not lastWasReturn then begin ! if not lastWasReturn then begin
! lastWasReturn := true; ! lastWasReturn := true;
! needWriteLine := true; ! needWriteLine := true;
! ch := chr(eolChar); ! ch := chr(eolChar);
! goto le2; ! goto le2;
! end; {if} ! end; {if}
lda lastWasReturn lda lastWasReturn
bne la3 bne la3
lda #1 lda #1
@ -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,22 +912,24 @@ 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;
lda #autoGo lda #autoGo
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;
db4 stz debugType db4 stz debugType
! end; {DebugCheck} ! end; {DebugCheck}
db5 rts db5 rts