mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-22 16:34:15 +00:00
107 lines
2.4 KiB
Plaintext
107 lines
2.4 KiB
Plaintext
|
;A02 Assembler Test File
|
||
|
|
TRUE: EQU $FF
|
||
|
|
FALSE: EQU $00
|
||
|
|
|
||
|
|
one equ 1
|
||
|
|
two equ 1 + 1
|
||
|
|
three equ one + one + one
|
||
|
|
four equ three + 1
|
||
|
|
|
||
|
|
|
||
|
|
PNTR: EQU $80
|
||
|
|
.local EQU 99
|
||
|
|
STRUCT EQU $0FFF
|
||
|
|
|
||
|
|
start ORG $0400 ;Start of Code
|
||
|
|
SUBROUTINE
|
||
|
|
flags: CLC
|
||
|
|
SEC
|
||
|
|
CLI
|
||
|
|
SEI
|
||
|
|
CLV
|
||
|
|
CLD
|
||
|
|
.local SED
|
||
|
|
SUBROUTINE
|
||
|
|
rgstr: DEX
|
||
|
|
DEY
|
||
|
|
INX
|
||
|
|
INY
|
||
|
|
TAX
|
||
|
|
TAY
|
||
|
|
TSX
|
||
|
|
TXA
|
||
|
|
TXS
|
||
|
|
TYA
|
||
|
|
SUBROUTINE
|
||
|
|
retrn: RTI
|
||
|
|
RTS
|
||
|
|
SUBROUTINE
|
||
|
|
stack: PHA
|
||
|
|
PHP
|
||
|
|
PHX
|
||
|
|
PHY
|
||
|
|
PLA
|
||
|
|
PLP
|
||
|
|
PLX
|
||
|
|
PLY
|
||
|
|
SUBROUTINE
|
||
|
|
other: NOP
|
||
|
|
BRK
|
||
|
|
SUBROUTINE
|
||
|
|
branch: BCC rgstr
|
||
|
|
BCS flags
|
||
|
|
.loop BEQ retrn
|
||
|
|
BNE jump
|
||
|
|
BMI .next
|
||
|
|
BPL .loop
|
||
|
|
BRA branch
|
||
|
|
.next BVC +127
|
||
|
|
BVS -128
|
||
|
|
SUBROUTINE
|
||
|
|
jump JMP .next
|
||
|
|
JMP (words )
|
||
|
|
JMP (pntr,x)
|
||
|
|
.next JSR retrn
|
||
|
|
SUBROUTINE
|
||
|
|
memory: ADC #$98 ;Immediate
|
||
|
|
AND TABLE,Y ;Absolute,Y
|
||
|
|
CMP PNTR,Y ;Absolute,Y (Zero Page Address)
|
||
|
|
EOR (PNTR,X) ;(Indirect,X)
|
||
|
|
LDA (PNTR),Y ;(Indirect),Y
|
||
|
|
ORA (PNTR) ;(Indirect)
|
||
|
|
ASL ;Accumulator
|
||
|
|
DEC PNTR ;ZeroPage
|
||
|
|
INC PNTR,X ;ZeroPage,X
|
||
|
|
LSR BYTES ;Absolute
|
||
|
|
ROL BYTES,X ;Absolute,X
|
||
|
|
ROR $ABCD,X ;Absolute,X
|
||
|
|
CPX #$76 ;Immediate
|
||
|
|
CPY PNTR ;ZeroPage
|
||
|
|
STY PNTR,X ;ZeroPage,X
|
||
|
|
STZ $CDEF ;Absolute
|
||
|
|
LDY $CDEF,X ;Absolute,X
|
||
|
|
TRB PNTR ;ZeroPage
|
||
|
|
TSB $1234 ;Absolute
|
||
|
|
SUBROUTINE
|
||
|
|
exprsn LDA #PNTR+1 ;Immediate
|
||
|
|
LDA PNTR+1 ;ZeroPage
|
||
|
|
LDA (PNTR+2) ;Indirect
|
||
|
|
LDA (PNTR+4,X) ;(Indirect,X)
|
||
|
|
LDA (PNTR+6),Y ;(Indirect),Y
|
||
|
|
LDA STRUCT ;Absolute
|
||
|
|
LDX #<STRUCT ;LSB Immediate
|
||
|
|
LDY #>STRUCT ;MSB Immediate
|
||
|
|
LDA STRUCT+1
|
||
|
|
LDX #<STRUCT+1
|
||
|
|
LDY #>STRUCT+1
|
||
|
|
LDA STRUCT+2
|
||
|
|
LDX #<(STRUCT+2)
|
||
|
|
LDY #>(STRUCT+2)
|
||
|
|
|
||
|
|
BYTES byte 99, %10101010,'~' ;Bytes
|
||
|
|
byte $12,$34
|
||
|
|
HEXES hex 01,23,45,67,AB,CD,EF,1A,2B,3C,D4,E5,F6 ;Hexadecimal
|
||
|
|
WORDS word $3456
|
||
|
|
TABLE word $1357,$9BDF,$2468
|
||
|
|
TEXT byte "ABCDEFGHIJKLMNOPQRSTUVWXYZ",0
|