ack/mach/6500/libem/sbi.s

22 lines
416 B
ArmAsm
Raw Normal View History

1984-12-17 11:03:13 +00:00
.define Sbi2
! This subroutine subtracts two twobyte signed integers
! and returnes the result in registerpair AX.
Sbi2:
stx ARTH ! save second operand (lowbyte)
sta ARTH+1 ! save second operand (highbyte)
jsr Pop
pha
sec
txa ! get first operand (lowbyte)
sbc ARTH ! subtract second operand (lowbyte)
tax
iny
pla ! get first operand (highbyte)
sbc ARTH+1 ! subtract second operand (highbyte)
rts