diff options
Diffstat (limited to 'tests/lexers/ca65')
| -rw-r--r-- | tests/lexers/ca65/example.txt | 1298 |
1 files changed, 1298 insertions, 0 deletions
diff --git a/tests/lexers/ca65/example.txt b/tests/lexers/ca65/example.txt new file mode 100644 index 00000000..eb9f8324 --- /dev/null +++ b/tests/lexers/ca65/example.txt @@ -0,0 +1,1298 @@ +---input--- +;-------------------------------------- +; Lychrel numbers. +; +; :author: Marc 'BlackJack' Rintsch +; :date: 2008-03-07 +; :version: 0.1 +; +; Prints all `Lychrel numbers`_ between 1 and 100000. +; +; The numbers are stored as array of "digits" in little endian +; order. Each digit is a byte with a value between 0 and 9. +; +; Runtime on C64: 00:21:01 +; +; .. _Lychrel numbers: http://en.wikipedia.org/wiki/Lychrel_number +; +; .. cl65 -l -tnone -C simple.cfg lychrel.s -o lychrel.prg +;-------------------------------------- + +;-------------------------------------- +; External addresses. +;-------------------------------------- + chrout = $ffd2 + +;-------------------------------------- +; Constants. +;-------------------------------------- + TO = 100000 + TO_DIGITS = 10 + ITERATIONS = 100 + MAX_DIGITS = TO_DIGITS + ITERATIONS + +;-------------------------------------- +; Global variables. +;-------------------------------------- +.zeropage +; +; Length of the currently tested `n` in digits. +; +n_length: + .res 1 +; +; Length of the number(s) `xa` and `xb` while testing. +; +length: + .res 1 + +.bss +; +; Number to be tested as digits i.e. bytes with values between +; 0 and 9. The length is stored in `n_length`. +; +n: + .res TO_DIGITS +; +; Space for calculating the reversed and added values. +; In the `main` code the current number is copied into `xa` +; and then repeatedly `reverse_add`\ed to itself with the +; result of that adding stored in `xb`. +; +xa: + .res MAX_DIGITS +xb: + .res MAX_DIGITS + +;-------------------------------------- +; BASIC header. +;-------------------------------------- +.code + .word 0800h ; Load address. + .byte 0 + .word @line_end + .word 2008 ; Line number. + .byte $9e ; SYS token. + .byte "2080 " ; SYS argument. + .byte "LYCHREL NUMBERS/BJ" +@line_end: + .byte 0, 0, 0 ; Line and program end marker. + +;-------------------------------------- +; Main program. +;-------------------------------------- +.proc main + +.zeropage +; +; Three byte counter for `TO` iterations (100000 = $0186a0). +; +i: + .res 3 + +.code +; +; Clear and set `n` and `i` to 1. +; + lda #0 ; n := 0; n := 1; i := 1 + sta i+1 + sta i+2 + ldx #TO_DIGITS +clear_n: + sta n-1,x + dex + bne clear_n + inx + stx i + stx n + stx n_length + +mainloop: + jsr is_lychrel + bcc no_lychrel + jsr print_n +no_lychrel: + jsr increase_n + + inc i ; INC(i) + bne skip + inc i+1 + bne skip + inc i+2 +skip: + lda i + cmp #<TO + bne mainloop + lda i+1 + cmp #>TO + bne mainloop + lda i+2 + cmp #^TO + bne mainloop + + rts +.endproc + +;-------------------------------------- +; Print `n` and a trailing newline. +; +; :in: `n_length`, `n` +;-------------------------------------- +.proc print_n + ldy n_length +L1: + lda n-1,y + ora #%110000 ; = '0' + jsr chrout + dey + bne L1 + + lda #13 + jmp chrout +.endproc + +;-------------------------------------- +; Increase `n` by one. +; +; This procedure expects n[n_length] == 0 in case the number gets +; one digit longer. +; +; :in: `n`, `n_length` +; :out: `n`, `n_length` +;-------------------------------------- +.proc increase_n + ldx #0 +L1: + inc n,x ; Increase digit. + lda n,x + cmp #10 ; If "carry", store 0 and go to next digit. + bne return + lda #0 + sta n,x + inx + bne L1 +return: + cpx n_length ; If "carry" after last digit, increase length. + bcc skip + inc n_length +skip: + rts +.endproc + +;-------------------------------------- +; Tests if `n` is a Lychrel number. +; +; :in: `n`, `n_length` +; :out: C is set if yes, cleared otherwise. +; :uses: `length`, `xa`, `xb` +;-------------------------------------- +.proc is_lychrel +.zeropage +i: + .res 1 + +.code + ldx n_length ; xa := n; length := n_length + stx length +L1: + lda n-1,x + sta xa-1,x + dex + bne L1 + + lda #ITERATIONS ; i := ITERATIONS + sta i +L2: + jsr reverse_add + jsr is_palindrome + bne no_palindrome + clc + rts +no_palindrome: + ldx length ; a := b +L3: + lda xb-1,x + sta xa-1,x + dex + bne L3 + + dec i ; Loop body end. + bne L2 + + sec + rts +.endproc + +;-------------------------------------- +; Add the reverse to `xa` to itself and store the result in `xb`. +; +; :in: `length`, `xa` +; :out: `length`, `xb` +;-------------------------------------- +.proc reverse_add +.code + ldx #0 + ldy length + clc +L1: + lda xa,x + adc xa-1,y + + cmp #10 + bcc no_adjust + sbc #10 +no_adjust: + sta xb,x + + dey + inx + txa ; ``eor`` instead of ``cpx`` to keep the carry flag + eor length ; of the addition above. + bne L1 + + bcc no_carry + lda #1 + sta xb,x + inc length +no_carry: + rts +.endproc + +;-------------------------------------- +; Checks if `xb` is a palindrome. +; +; :in: `length`, `xb` +; :out: Z flag set if `xb` is a palindrome, cleared otherwise. +;-------------------------------------- +.proc is_palindrome +.code + ldx #0 + lda length + tay + lsr + sta L1+1 ; Self modifying code! +L1: + cpx #0 ; <<< 0 replaced by (`length` / 2). + beq return + lda xb,x + cmp xb-1,y + bne return + dey + inx + bne L1 +return: + rts +.endproc + +---tokens--- +';--------------------------------------' Comment.Single +'\n' Text + +'; Lychrel numbers.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +"; :author: Marc 'BlackJack' Rintsch" Comment.Single +'\n' Text + +'; :date: 2008-03-07' Comment.Single +'\n' Text + +'; :version: 0.1' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; Prints all `Lychrel numbers`_ between 1 and 100000.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; The numbers are stored as array of "digits" in little endian' Comment.Single +'\n' Text + +'; order. Each digit is a byte with a value between 0 and 9.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; Runtime on C64: 00:21:01' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; .. _Lychrel numbers: http://en.wikipedia.org/wiki/Lychrel_number' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; .. cl65 -l -tnone -C simple.cfg lychrel.s -o lychrel.prg' Comment.Single +'\n' Text + +';--------------------------------------' Comment.Single +'\n\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'; External addresses.' Comment.Single +'\n' Text + +';--------------------------------------' Comment.Single +'\n\t' Text +'chrout' Name +'\t' Text +'=' Operator +' ' Text +'$ffd2' Literal.Number.Hex +'\n\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'; Constants.' Comment.Single +'\n' Text + +';--------------------------------------' Comment.Single +'\n\t' Text +'TO' Name +'\t\t' Text +'=' Operator +' ' Text +'100000' Literal.Number.Integer +'\n\t' Text +'TO_DIGITS' Name +'\t' Text +'=' Operator +' ' Text +'10' Literal.Number.Integer +'\n\t' Text +'ITERATIONS' Name +'\t' Text +'=' Operator +' ' Text +'100' Literal.Number.Integer +'\n\t' Text +'MAX_DIGITS' Name +'\t' Text +'=' Operator +' ' Text +'TO_DIGITS' Name +' ' Text +'+' Operator +' ' Text +'ITERATIONS' Name +'\n\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'; Global variables.' Comment.Single +'\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'.zeropage' Keyword.Pseudo +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; Length of the currently tested `n` in digits.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'n_length:' Name.Label +'\n\t' Text +'.res' Keyword.Pseudo +' ' Text +'1' Literal.Number.Integer +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; Length of the number(s) `xa` and `xb` while testing.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'length:' Name.Label +'\n\t' Text +'.res' Keyword.Pseudo +' ' Text +'1' Literal.Number.Integer +'\n\n' Text + +'.bss' Keyword.Pseudo +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; Number to be tested as digits i.e. bytes with values between' Comment.Single +'\n' Text + +'; 0 and 9. The length is stored in `n_length`.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'n:' Name.Label +'\n\t' Text +'.res' Keyword.Pseudo +' ' Text +'TO_DIGITS' Name +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; Space for calculating the reversed and added values.' Comment.Single +'\n' Text + +'; In the `main` code the current number is copied into `xa`' Comment.Single +'\n' Text + +'; and then repeatedly `reverse_add`\\ed to itself with the' Comment.Single +'\n' Text + +'; result of that adding stored in `xb`.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'xa:' Name.Label +'\n\t' Text +'.res' Keyword.Pseudo +' ' Text +'MAX_DIGITS' Name +'\n' Text + +'xb:' Name.Label +'\n\t' Text +'.res' Keyword.Pseudo +' ' Text +'MAX_DIGITS' Name +'\n\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'; BASIC header.' Comment.Single +'\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'.code' Keyword.Pseudo +'\n\t' Text +'.word' Keyword.Pseudo +' ' Text +'0800h' Literal.Number.Hex +'\t\t' Text +'; Load address.' Comment.Single +'\n\t' Text +'.byte' Keyword.Pseudo +' ' Text +'0' Literal.Number.Integer +'\n\t' Text +'.word' Keyword.Pseudo +' ' Text +'@line_end' Name +'\n\t' Text +'.word' Keyword.Pseudo +' ' Text +'2008' Literal.Number.Integer +'\t\t' Text +'; Line number.' Comment.Single +'\n\t' Text +'.byte' Keyword.Pseudo +' ' Text +'$9e' Literal.Number.Hex +'\t\t' Text +'; SYS token.' Comment.Single +'\n\t' Text +'.byte' Keyword.Pseudo +' ' Text +'"2080 "' Literal.String +'\t\t' Text +'; SYS argument.' Comment.Single +'\n\t' Text +'.byte' Keyword.Pseudo +' ' Text +'"LYCHREL NUMBERS/BJ"' Literal.String +'\n' Text + +'@line_end:' Name.Label +'\n\t' Text +'.byte' Keyword.Pseudo +' ' Text +'0' Literal.Number.Integer +',' Punctuation +' ' Text +'0' Literal.Number.Integer +',' Punctuation +' ' Text +'0' Literal.Number.Integer +'\t\t' Text +'; Line and program end marker.' Comment.Single +'\n\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'; Main program.' Comment.Single +'\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'.proc' Keyword.Pseudo +' ' Text +'main' Name +'\n\n' Text + +'.zeropage' Keyword.Pseudo +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; Three byte counter for `TO` iterations (100000 = $0186a0).' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'i:' Name.Label +'\n\t' Text +'.res' Keyword.Pseudo +' ' Text +'3' Literal.Number.Integer +'\n\n' Text + +'.code' Keyword.Pseudo +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; Clear and set `n` and `i` to 1.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n\t' Text +'lda' Keyword +' ' Text +'#' Punctuation +'0' Literal.Number.Integer +'\t\t' Text +'; n := 0; n := 1; i := 1' Comment.Single +'\n\t' Text +'sta' Keyword +' ' Text +'i' Name +'+' Operator +'1' Literal.Number.Integer +'\n\t' Text +'sta' Keyword +' ' Text +'i' Name +'+' Operator +'2' Literal.Number.Integer +'\n\t' Text +'ldx' Keyword +' ' Text +'#' Punctuation +'TO_DIGITS' Name +'\n' Text + +'clear_n:' Name.Label +'\n\t' Text +'sta' Keyword +' ' Text +'n' Name +'-' Operator +'1' Literal.Number.Integer +',' Punctuation +'x' Name +'\n\t' Text +'dex' Keyword +'\n\t' Text +'bne' Keyword +' ' Text +'clear_n' Name +'\n\t' Text +'inx' Keyword +'\n\t' Text +'stx' Keyword +' ' Text +'i' Name +'\n\t' Text +'stx' Keyword +' ' Text +'n' Name +'\n\t' Text +'stx' Keyword +' ' Text +'n_length' Name +'\n\t\n' Text + +'mainloop:' Name.Label +'\n\t' Text +'jsr' Keyword +' ' Text +'is_lychrel' Name +'\n\t' Text +'bcc' Keyword +' ' Text +'no_lychrel' Name +'\n\t' Text +'jsr' Keyword +' ' Text +'print_n' Name +'\n' Text + +'no_lychrel:' Name.Label +'\n\t' Text +'jsr' Keyword +' ' Text +'increase_n' Name +'\n\t\n\t' Text +'inc' Keyword +' ' Text +'i' Name +'\t\t' Text +'; INC(i)' Comment.Single +'\n\t' Text +'bne' Keyword +' ' Text +'skip' Name +'\n\t' Text +'inc' Keyword +' ' Text +'i' Name +'+' Operator +'1' Literal.Number.Integer +'\n\t' Text +'bne' Keyword +' ' Text +'skip' Name +'\n\t' Text +'inc' Keyword +' ' Text +'i' Name +'+' Operator +'2' Literal.Number.Integer +'\n' Text + +'skip:' Name.Label +'\n\t' Text +'lda' Keyword +' ' Text +'i' Name +'\n\t' Text +'cmp' Keyword +' ' Text +'#' Punctuation +'<' Operator +'TO' Name +'\n\t' Text +'bne' Keyword +' ' Text +'mainloop' Name +'\n\t' Text +'lda' Keyword +' ' Text +'i' Name +'+' Operator +'1' Literal.Number.Integer +'\n\t' Text +'cmp' Keyword +' ' Text +'#' Punctuation +'>' Operator +'TO' Name +'\n\t' Text +'bne' Keyword +' ' Text +'mainloop' Name +'\n\t' Text +'lda' Keyword +' ' Text +'i' Name +'+' Operator +'2' Literal.Number.Integer +'\n\t' Text +'cmp' Keyword +' ' Text +'#' Punctuation +'^' Operator +'TO' Name +'\n\t' Text +'bne' Keyword +' ' Text +'mainloop' Name +'\n\t\n\t' Text +'rts' Keyword +'\n' Text + +'.endproc' Keyword.Pseudo +'\n\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'; Print `n` and a trailing newline.' Comment.Single +'\n' Text + +';' Comment.Single +'\n' Text + +'; :in: `n_length`, `n`' Comment.Single +'\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'.proc' Keyword.Pseudo +' ' Text +'print_n' Name +'\n\t' Text +'ldy' Keyword +' ' Text +'n_length' Name +'\n' Text + +'L1:' Name.Label +'\n\t' Text +'lda' Keyword +' ' Text +'n' Name +'-' Operator +'1' Literal.Number.Integer +',' Punctuation +'y' Name +'\n\t' Text +'ora' Keyword +' ' Text +'#' Punctuation +'%110000' Literal.Number.Bin +' ' Text +"; = '0'" Comment.Single +'\n\t' Text +'jsr' Keyword +' ' Text +'chrout' Name +'\n\t' Text +'dey' Keyword +'\n\t' Text +'bne' Keyword +' ' Text +'L1' Name +'\n\t\n\t' Text +'lda' Keyword +' ' Text +'#' Punctuation +'13' Literal.Number.Integer +'\n\t' Text +'jmp' Keyword +' ' Text +'chrout' Name +'\n' Text + +'.endproc' Keyword.Pseudo +'\n\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'; Increase `n` by one.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; This procedure expects n[n_length] == 0 in case the number gets' Comment.Single +'\n' Text + +'; one digit longer.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; :in: `n`, `n_length`' Comment.Single +'\n' Text + +'; :out: `n`, `n_length`' Comment.Single +'\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'.proc' Keyword.Pseudo +' ' Text +'increase_n' Name +'\n\t' Text +'ldx' Keyword +' ' Text +'#' Punctuation +'0' Literal.Number.Integer +'\n' Text + +'L1:' Name.Label +'\n\t' Text +'inc' Keyword +' ' Text +'n' Name +',' Punctuation +'x' Name +'\t\t' Text +'; Increase digit.' Comment.Single +'\n\t' Text +'lda' Keyword +' ' Text +'n' Name +',' Punctuation +'x' Name +'\n\t' Text +'cmp' Keyword +' ' Text +'#' Punctuation +'10' Literal.Number.Integer +'\t\t' Text +'; If "carry", store 0 and go to next digit.' Comment.Single +'\n\t' Text +'bne' Keyword +' ' Text +'return' Name +'\n\t' Text +'lda' Keyword +' ' Text +'#' Punctuation +'0' Literal.Number.Integer +'\n\t' Text +'sta' Keyword +' ' Text +'n' Name +',' Punctuation +'x' Name +'\n\t' Text +'inx' Keyword +'\n\t' Text +'bne' Keyword +' ' Text +'L1' Name +'\n' Text + +'return:' Name.Label +'\n\t' Text +'cpx' Keyword +' ' Text +'n_length' Name +'\t' Text +'; If "carry" after last digit, increase length.' Comment.Single +'\n\t' Text +'bcc' Keyword +' ' Text +'skip' Name +'\n\t' Text +'inc' Keyword +' ' Text +'n_length' Name +'\n' Text + +'skip:' Name.Label +'\n\t' Text +'rts' Keyword +'\n' Text + +'.endproc' Keyword.Pseudo +'\n\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'; Tests if `n` is a Lychrel number.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; :in: `n`, `n_length`' Comment.Single +'\n' Text + +'; :out: C is set if yes, cleared otherwise.' Comment.Single +'\n' Text + +'; :uses: `length`, `xa`, `xb`' Comment.Single +'\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'.proc' Keyword.Pseudo +' ' Text +'is_lychrel' Name +'\n' Text + +'.zeropage' Keyword.Pseudo +'\n' Text + +'i:' Name.Label +'\n\t' Text +'.res' Keyword.Pseudo +' ' Text +'1' Literal.Number.Integer +'\n\n' Text + +'.code' Keyword.Pseudo +'\n\t' Text +'ldx' Keyword +' ' Text +'n_length' Name +'\t\t' Text +'; xa := n; length := n_length' Comment.Single +'\n\t' Text +'stx' Keyword +' ' Text +'length' Name +'\n' Text + +'L1:' Name.Label +'\n\t' Text +'lda' Keyword +' ' Text +'n' Name +'-' Operator +'1' Literal.Number.Integer +',' Punctuation +'x' Name +'\n\t' Text +'sta' Keyword +' ' Text +'xa' Name +'-' Operator +'1' Literal.Number.Integer +',' Punctuation +'x' Name +'\n\t' Text +'dex' Keyword +'\n\t' Text +'bne' Keyword +' ' Text +'L1' Name +'\n\t\n\t' Text +'lda' Keyword +' ' Text +'#' Punctuation +'ITERATIONS' Name +'\t\t' Text +'; i := ITERATIONS' Comment.Single +'\n\t' Text +'sta' Keyword +' ' Text +'i' Name +'\n' Text + +'L2:' Name.Label +'\n\t' Text +'jsr' Keyword +' ' Text +'reverse_add' Name +'\n\t' Text +'jsr' Keyword +' ' Text +'is_palindrome' Name +'\n\t' Text +'bne' Keyword +' ' Text +'no_palindrome' Name +'\n\t' Text +'clc' Keyword +'\n\t' Text +'rts' Keyword +'\n' Text + +'no_palindrome:' Name.Label +'\n\t' Text +'ldx' Keyword +' ' Text +'length' Name +'\t\t' Text +'; a := b' Comment.Single +'\n' Text + +'L3:' Name.Label +'\n\t' Text +'lda' Keyword +' ' Text +'xb' Name +'-' Operator +'1' Literal.Number.Integer +',' Punctuation +'x' Name +'\n\t' Text +'sta' Keyword +' ' Text +'xa' Name +'-' Operator +'1' Literal.Number.Integer +',' Punctuation +'x' Name +'\n\t' Text +'dex' Keyword +'\n\t' Text +'bne' Keyword +' ' Text +'L3' Name +'\n\t\n\t' Text +'dec' Keyword +' ' Text +'i' Name +'\t\t\t' Text +'; Loop body end.' Comment.Single +'\n\t' Text +'bne' Keyword +' ' Text +'L2' Name +'\n\t\n\t' Text +'sec' Keyword +'\n\t' Text +'rts' Keyword +'\n' Text + +'.endproc' Keyword.Pseudo +'\n\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'; Add the reverse to `xa` to itself and store the result in `xb`.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; :in: `length`, `xa`' Comment.Single +'\n' Text + +'; :out: `length`, `xb`' Comment.Single +'\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'.proc' Keyword.Pseudo +' ' Text +'reverse_add' Name +'\n' Text + +'.code' Keyword.Pseudo +'\n\t' Text +'ldx' Keyword +' ' Text +'#' Punctuation +'0' Literal.Number.Integer +'\n\t' Text +'ldy' Keyword +' ' Text +'length' Name +'\n\t' Text +'clc' Keyword +'\n' Text + +'L1:' Name.Label +'\n\t' Text +'lda' Keyword +' ' Text +'xa' Name +',' Punctuation +'x' Name +'\n\t' Text +'adc' Keyword +' ' Text +'xa' Name +'-' Operator +'1' Literal.Number.Integer +',' Punctuation +'y' Name +'\n\t\n\t' Text +'cmp' Keyword +' ' Text +'#' Punctuation +'10' Literal.Number.Integer +'\n\t' Text +'bcc' Keyword +' ' Text +'no_adjust' Name +'\n\t' Text +'sbc' Keyword +' ' Text +'#' Punctuation +'10' Literal.Number.Integer +'\n' Text + +'no_adjust:' Name.Label +'\n\t' Text +'sta' Keyword +' ' Text +'xb' Name +',' Punctuation +'x' Name +'\n\t\n\t' Text +'dey' Keyword +'\n\t' Text +'inx' Keyword +'\n\t' Text +'txa' Keyword +'\t\t' Text +'; ``eor`` instead of ``cpx`` to keep the carry flag' Comment.Single +'\n\t' Text +'eor' Keyword +' ' Text +'length' Name +'\t' Text +'; of the addition above.' Comment.Single +'\n\t' Text +'bne' Keyword +' ' Text +'L1' Name +'\n\t\n\t' Text +'bcc' Keyword +' ' Text +'no_carry' Name +'\n\t' Text +'lda' Keyword +' ' Text +'#' Punctuation +'1' Literal.Number.Integer +'\n\t' Text +'sta' Keyword +' ' Text +'xb' Name +',' Punctuation +'x' Name +'\n\t' Text +'inc' Keyword +' ' Text +'length' Name +'\n' Text + +'no_carry:' Name.Label +'\n\t' Text +'rts' Keyword +'\n' Text + +'.endproc' Keyword.Pseudo +'\n\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'; Checks if `xb` is a palindrome.' Comment.Single +'\n' Text + +'; ' Comment.Single +'\n' Text + +'; :in: `length`, `xb`' Comment.Single +'\n' Text + +'; :out: Z flag set if `xb` is a palindrome, cleared otherwise.' Comment.Single +'\n' Text + +';--------------------------------------' Comment.Single +'\n' Text + +'.proc' Keyword.Pseudo +' ' Text +'is_palindrome' Name +'\n' Text + +'.code' Keyword.Pseudo +'\n\t' Text +'ldx' Keyword +' ' Text +'#' Punctuation +'0' Literal.Number.Integer +'\n\t' Text +'lda' Keyword +' ' Text +'length' Name +'\n\t' Text +'tay' Keyword +'\n\t' Text +'lsr' Keyword +'\n\t' Text +'sta' Keyword +' ' Text +'L1' Name +'+' Operator +'1' Literal.Number.Integer +'\t' Text +'; Self modifying code!' Comment.Single +'\n' Text + +'L1:' Name.Label +'\n\t' Text +'cpx' Keyword +' ' Text +'#' Punctuation +'0' Literal.Number.Integer +'\t\t' Text +'; <<< 0 replaced by (`length` / 2).' Comment.Single +'\n\t' Text +'beq' Keyword +' ' Text +'return' Name +'\n\t' Text +'lda' Keyword +' ' Text +'xb' Name +',' Punctuation +'x' Name +'\n\t' Text +'cmp' Keyword +' ' Text +'xb' Name +'-' Operator +'1' Literal.Number.Integer +',' Punctuation +'y' Name +'\n\t' Text +'bne' Keyword +' ' Text +'return' Name +'\n\t' Text +'dey' Keyword +'\n\t' Text +'inx' Keyword +'\n\t' Text +'bne' Keyword +' ' Text +'L1' Name +'\n' Text + +'return:' Name.Label +'\n\t' Text +'rts' Keyword +'\n' Text + +'.endproc' Keyword.Pseudo +'\n' Text |