.setcpu "6502" ; .segment "SEG000" .org $1000 L1000: lda #$00 @L1000: lda #$01 ldx L1000 ldy @L1000 ldx #$02 loop1: dex bne loop1 ldx #$03 @loop1: dex bne @loop1 global1: nop ldx #$04 @loop: ldy #$05 @loop1: dey bne @loop1 dex bne @loop jmp loop global2: .byte $ea loop: nop global3: nop ldx #$06 ldy #$07 dex beq @fwd1 dey beq @fwd2 @fwd1: nop @fwd2: nop global4: nop ldx #$08 loop2: dex global5: nop bne loop2 nop global6: nop @spin1: jsr @spin2 @spin2: jsr @spin1 nop @spin11: lda @spin1+7 beq @spin11 lda #<@spin1 ldx #<@spin2 lda #>@spin1 ldx #>@spin2 bne @skip .word @spin1 .word @spin2 .word @spin11 .byte <@spin1 .byte <@spin2 .byte >@spin1 .byte >@spin2 @skip: nop global_: nop _global: ldx #$40 __: dex bne __ beq ___ ___: ldx #$41 @__: dex bne @__ nop anno: lda #$42 T106B: lda anno clc bcc @skip .word T106B @skip: nop JMP1: lda JMP1 JMP0: lda JMP0 JMP11: lda JMP11 @JMP: lda @JMP @JMP0: lda @JMP0 @JMP1: lda @JMP1 @JMP2: lda @JMP2 jmp1: lda jmp1 Jmp1: lda Jmp1 BRA: lda BRA brl: lda brl LDAL: .byte $af .byte $95 .byte $10 .byte $00 nop plain_DUP1 .set $11 _under1 .set $12 __dub1 .set $13 lda plain_DUP1 lda _under1 lda __dub1 @plain: lda @plain plain: lda plain global8: dex bne plain X_under1: lda X_under1 @X__dub1: lda @X__dub1 _under1 .set $22 lda plain_DUP1 lda _under1 rts