12345678910111213141516171819202122232425262728293031 |
- .define Cmi
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! This subroutine compares on two integers.
- ! If T is pushed first and than S, the routine will return:
- ! -1 if S < T,
- ! 0 if S = T,
- ! 1 if S > T.
- Cmi:
- jsr Sbi2 ! subtract operands (T - S)
- bpl 1f ! S >= T
- lda #0x0FF ! S < T
- tax ! AX becomes -1
- rts
- 1: beq 2f
- 3: lda #0 ! S > T
- ldx #1 ! AX becomes 1
- rts
- 2: txa
- bne 3b
- lda #0 ! S = T
- tax ! AX becomes 0
- rts
|