This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
2026-04-25 22:18:27 +00:00 · 2000-05-28 13:40:48 +00:00
parent 579491e8a4
commit 53dd513176
847 changed files with 91345 additions and 0 deletions
@@ -0,0 +1,60 @@
+;
+; Ullrich von Bassewitz, 05.10.1998
+;
+; CC65 runtime: Make boolean according to flags
+;
+
+       	.export		boolne, booleq, boollt, boolle, boolgt, boolge
+	.export		boolult, boolule, boolugt, booluge
+
+
+boolne:	bne	ret1
+	ldx	#$00
+	txa
+	rts
+
+
+booleq:	beq	ret1
+       	ldx	#$00
+       	txa
+       	rts
+
+
+boolle:	beq	ret1
+boollt:	bmi	ret1
+	ldx	#$00
+	txa
+	rts
+
+
+boolgt: beq	L0
+boolge:	bpl	ret1
+L0:    	ldx	#$00
+       	txa
+       	rts
+
+
+boolule:
+	beq	ret1
+boolult:
+	bcc	ret1
+	ldx	#$00
+	txa
+	rts
+
+
+boolugt:
+	beq	L1
+booluge:
+	bcs	ret1
+L1:	ldx	#$00
+   	txa
+   	rts
+
+
+ret1:	ldx 	#$00
+	lda 	#$01
+	rts
+
+
+