Add advanced tutorial

Also, fixed a bug where the operand highlight would get out of sync after an edit.
2025-07-23 16:24:07 +00:00 · 2018-10-09 14:55:16 -07:00
parent fd6d8273a9
commit acf19870c2
7 changed files with 258 additions and 17 deletions
--- a/SourceGen/Examples/Tutorial/Tutorial2.S
+++ b/SourceGen/Examples/Tutorial/Tutorial2.S
@@ -0,0 +1,87 @@
+; Copyright 2018 faddenSoft. All Rights Reserved.
+; See the LICENSE.txt file for distribution terms (Apache 2.0).
+;
+; Assembler: Merlin 32
+
+INPUT   equ     $3000
+OUTPUT  equ     $0400
+PTR1    equ     $02
+PTR2    equ     $04
+
+START   equ     $2000
+        org     START-2
+
+        dw      START
+
+        sec
+        ror     A
+        bmi     skipstr
+
+string0 asc     'first string',00
+string1 asc     'another string',00
+string2 asc     'string the third',00
+string3 asc     'last string',00
+
+skipstr
+        lda     #<stringtab
+        sta     PTR1
+        lda     #>stringtab
+        sta     PTR1+1
+
+        jsr     thing
+        and     #$03
+        asl     A
+        tay
+        lda     (PTR1),y
+        sta     PTR2
+        iny
+        lda     (PTR1),y
+        sta     PTR2+1
+
+        ldy     #$ff
+]loop   iny
+        lda     (PTR2),y
+        beq     copydone
+        ora     #$80
+        sta     OUTPUT,y
+        bne     ]loop           ;always taken
+
+stringtab
+        dw      string0
+        dw      string1
+        dw      string2
+        dw      string3
+
+copydone
+        lda     #$ff
+        sta     _mod+1
+_mod    lda     #$00
+        bne     skipbrk
+
+middat  ds      4
+outdat  ds      1
+
+skipbrk
+        lda     middat
+        ora     middat+1
+        and     middat+2
+        eor     middat+3
+
+        ldx     #$00
+        dfb     $2c
+rebr    ldx     #$01
+        sta     outdat
+        lda     INPUT
+        lsr     A
+        lsr     A
+        lsr     A
+        lsr     A
+        sta     INPUT
+        bne     rebr
+
+        rts
+
+thing
+        lda     INPUT
+        rts
+