2005-08-22 17:05:03 +00:00
|
|
|
|
|
|
|
|
; add - Add without carry
|
|
|
|
|
.macro add Arg1, Arg2
|
|
|
|
|
clc
|
|
|
|
|
.if .paramcount = 2
|
|
|
|
|
adc Arg1, Arg2
|
|
|
|
|
.else
|
|
|
|
|
adc Arg1
|
|
|
|
|
.endif
|
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
|
|
; sub - subtract without borrow
|
|
|
|
|
.macro sub Arg1, Arg2
|
|
|
|
|
sec
|
|
|
|
|
.if .paramcount = 2
|
|
|
|
|
sbc Arg1, Arg2
|
|
|
|
|
.else
|
|
|
|
|
sbc Arg1
|
|
|
|
|
.endif
|
|
|
|
|
.endmacro
|
|
|
|
|
|
2009-11-02 16:26:46 +00:00
|
|
|
; bge - jump if unsigned greater or equal
|
|
|
|
|
.macro bge Arg
|
|
|
|
|
bcs Arg
|
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
|
|
; blt - Jump if unsigned less
|
|
|
|
|
.macro blt Arg
|
|
|
|
|
bcc Arg
|
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
|
|
; bgt - jump if unsigned greater
|
|
|
|
|
.macro bgt Arg
|
|
|
|
|
.local L
|
|
|
|
|
beq L
|
|
|
|
|
bcs Arg
|
|
|
|
|
L:
|
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
|
|
; ble - jump if unsigned less or equal
|
|
|
|
|
.macro ble Arg
|
|
|
|
|
beq Arg
|
|
|
|
|
bcc Arg
|
|
|
|
|
.endmacro
|
|
|
|
|
|
2013-05-07 23:59:16 +00:00
|
|
|
; bnz - jump if not zero
|
|
|
|
|
.macro bnz Arg
|
|
|
|
|
bne Arg
|
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
|
|
; bze - jump if zero
|
|
|
|
|
.macro bze Arg
|
|
|
|
|
beq Arg
|
|
|
|
|
.endmacro
|
|
|
|
|
|
