CLC
  LDA A+0
  ADC B+0
  STA C+0
  LDA A+1
  ADC B+1
  STA C+1

;==============================================================================
; Example Boot ROM for 65Org16
;------------------------------------------------------------------------------

      .TITLE   "65Org16 Simple Add"

      .CODE
      .ORG   $FFFFF000
      
RESHandler:      
      CLC
      LDA $00000002
      ADC #$0001
      STA $00000000
      LDA $00000003
      ADC #$0001
      STA $00000001
A:      JMP A

      
IRQHandler:
      RTI

NMIHandler:
      RTI
      
;===============================================================================
; Vectors
;-------------------------------------------------------------------------------
      
      .ORG   $FFFFFFFA
      
      .WORD   NMIHandler
      .WORD   RESHandler
      .WORD   IRQHandler
      
      .END

;ATALAN definitions for 6502 CPU

type
   byte:0..255
   card:0..65535
   int:-32768..32767
   long:0..$ffffff
   sbyte:-128..127
   byte1:byte() or sbyte()
   byte2:card() or int()
   byte2a:byte2 or adr
   byte1arr:array(card) of byte1
   _byte1arr2D:array(card,card) of byte1

;==============================
;Definition of type allocations
;==============================

;rule alloc %A:0..255  = ".ds 1"

rule alloc %A:struct(), %B                         = "   .ds %B"
rule alloc %A:array(card) of byte1, %B            = "   .ds %B"
rule alloc %A:array(byte) of card, %B            = "%A_lo:" "   .ds %B" "%A_hi:" "   .ds %B"
rule alloc %A:array(byte,byte) of byte1, %B, %C   = "   .ds %B*%C"
rule alloc %A:byte                               = "   .ds 1"
rule alloc %A:card                               = "   .ds 2"
rule alloc %A:long                               = "   .ds 3"
rule alloc %A:adr                                = "   .ds 2"
rule alloc %A:-128..127                          = "   .ds 1"
rule alloc %A:int                                = "   .ds 2"

;Define cpu registers.
;Any variable defined in cpu scope is considered a register.

CPU:scope =
   a:0..255
   x,y:0..255
   c,z,v,n:0..1   
   ac@(a,c)
   azn@(a,z,n)
   aczn@(a,c,z,n)
   xzn@(x,z,n)
   yzn@(y,z,n)
   as@(a,c,z,n,v)   ; this is set of flags used for result of adc, sbc
   cznv@(c,z,n,v)
   czn@(c,z,n)
   in void:0..255  ;This is special variable used to implement touch instructions.
   zn@(z,n)
   xy@(x,y)
      
   ;Definition of the more common 6502 instructions as macros, so the code is more readable
   lda:macro o = instr let a, o
   ldx:macro o = instr let x, o
   ldy:macro o = instr let y, o
   sta:macro o = instr let o, a
   stx:macro o = instr let o, x
   sty:macro o = instr let o, y

   clc:macro = instr let c, 0
   sec:macro = instr let c, 1   

   adc:macro o = instr add as, ac, o
   sbc:macro o = instr sub as, ac, o
   inx:macro = instr add xzn, x, 1
   iny:macro = instr add yzn,y,1
   dex:macro = instr sub xzn,x,1
   dey:macro = instr sub yzn,y,1
   inc:macro o = instr add (o,zn), o, 1
   dec:macro o = instr sub (o,zn), o, 1

   lsr:macro (o=a) = instr div (o,czn), o, 2 
   asl:macro (o=a) = instr mul (o,czn), o, 2 
   ror:macro (o=a) = instr rotr (o,czn), (o,c), 1 
   rol:macro (o=a) = instr rotl (o,czn), (o,c), 1 

java -cp ./65016.jar org.x6502.x65016.As65016  boot.asm
java -cp ./65016.jar org.x6502.x65016.Lk65016 -bss $00010000-$EFFFFFFF -code $FFFFF000-$FFFFFFFF -s19 -output boot.s19 boot.obj
java -cp ./65016.jar org.x6502.x65016.Lk65016 -bss $00010000-$EFFFFFFF -code $FFFFF000-$FFFFFFFF -hex -output boot.hex boot.obj
java -cp ./65016.jar org.x6502.x65016.Lk65016 -bss $00010000-$EFFFFFFF -code $FFFFF000-$FFFFFFFF -bin -output boot.bin boot.obj