A2osX/BIN/CC.S.EXEC.txt

NEW
  AUTO 3,1
*--------------------------------------
CC.BOPS.bMUL
CC.BOPS.cMUL	
				inc pStack
				clc
				rts
*--------------------------------------
CC.BOPS.bDIV
CC.BOPS.cDIV
				inc pStack
				clc
				rts
*--------------------------------------
CC.BOPS.bMOD
CC.BOPS.cMOD
				inc pStack
				clc
				rts
*--------------------------------------
CC.BOPS.ADD		clc
				>PULLA
				adc (pStack)
				sta (pStack)
				clc
				rts
*--------------------------------------
CC.BOPS.SUB		sec
				ldy #1
				lda (pStack),y
				sbc (pStack)
				sta (pStack),y
				inc pStack
				clc
				rts
*--------------------------------------
CC.BOPS.SHL		>PULLA
				tax
				beq .8
				
				lda (pStack)

.1				asl
				dex
				bne .1
				
				sta (pStack)
				
.8				rts
*--------------------------------------
CC.BOPS.SHR		>PULLA
				tax
				beq .8
				
				lda (pStack)

.1				lsr
				dex
				bne .1
				
				sta (pStack)
				
.8				rts
*--------------------------------------
CC.BOPS.L		>PULLA
				cmp (pStack)
				bcc .8

				lda #0
				sta (pStack)
				rts
				
.8				lda #1
				sta (pStack)
				rts
*--------------------------------------
CC.BOPS.G		>PULLA
				cmp (pStack)
				beq .1
				bcs .8

.1				lda #0
				sta (pStack)
				rts
				
.8				lda #1
				sta (pStack)
				rts
*--------------------------------------
CC.BOPS.LE		>PULLA
				cmp (pStack)
				bcc .8
				beq .8

				lda #0
				sta (pStack)
				rts
				
.8				lda #1
				sta (pStack)
				rts
*--------------------------------------
CC.BOPS.GE		>PULLA
				cmp (pStack)
				bcs .8

				lda #0
				sta (pStack)
				rts
				
.8				lda #1
				sta (pStack)
				rts
*--------------------------------------
CC.BOPS.EQ		>PULLA
				cmp (pStack)
				beq .8

				lda #0
				sta (pStack)
				
.8				rts
*--------------------------------------
CC.BOPS.NE		>PULLA
				eor (pStack)
				sta (pStack) 
				rts
*--------------------------------------
CC.BOPS.LAND
CC.BOPS.AND		>PULLA
				and (pStack)
				sta (pStack)
				rts
*--------------------------------------
CC.BOPS.LOR
CC.BOPS.OR		>PULLA
				ora (pStack)
				sta (pStack)
				rts
*--------------------------------------
CC.BOPS.EOR		>PULLA
				eor (pStack)
				sta (pStack)
				rts
*--------------------------------------
MAN
SAVE usr/src/bin/cc.s.exec
LOAD usr/src/bin/cc.s
ASM
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
+								NEW
 								  AUTO 3,1
 								*--------------------------------------
 								CC.BOPS.bMUL
 								CC.BOPS.cMUL
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+												inc pStack
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
+												clc
 												rts
 								*--------------------------------------
 								CC.BOPS.bDIV
 								CC.BOPS.cDIV
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+												inc pStack
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
+												clc
 												rts
 								*--------------------------------------
 								CC.BOPS.bMOD
 								CC.BOPS.cMOD
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+												inc pStack
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
+												clc
 												rts
 								*--------------------------------------
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+								CC.BOPS.ADD		clc
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
+												>PULLA
 												adc (pStack)
 												sta (pStack)
 												clc
 												rts
 								*--------------------------------------
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+								CC.BOPS.SUB		sec
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
+												ldy #1
 												lda (pStack),y
 												sbc (pStack)
 												sta (pStack),y
 												inc pStack
 												clc
 												rts
 								*--------------------------------------
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+								CC.BOPS.SHL		>PULLA
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
+												tax
 												beq .8
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+												lda (pStack)
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
 								.1				asl
 												dex
 												bne .1
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+												sta (pStack)
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+								.8				rts
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
+								*--------------------------------------
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+								CC.BOPS.SHR		>PULLA
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
+												tax
 												beq .8
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+												lda (pStack)
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
 								.1				lsr
 												dex
 												bne .1
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+												sta (pStack)
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+								.8				rts
 								*--------------------------------------
 								CC.BOPS.L		>PULLA
 												cmp (pStack)
 												bcc .8
 												lda #0
 												sta (pStack)
 												rts
 								.8				lda #1
 												sta (pStack)
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
+												rts
 								*--------------------------------------
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+								CC.BOPS.G		>PULLA
 												cmp (pStack)
 												beq .1
 												bcs .8
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+								.1				lda #0
 												sta (pStack)
 												rts
 								.8				lda #1
 												sta (pStack)
 												rts
 								*--------------------------------------
 								CC.BOPS.LE		>PULLA
 												cmp (pStack)
 												bcc .8
 												beq .8
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+												lda #0
 												sta (pStack)
 												rts
 								.8				lda #1
 												sta (pStack)
 												rts
 								*--------------------------------------
 								CC.BOPS.GE		>PULLA
 												cmp (pStack)
 												bcs .8
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+												lda #0
 												sta (pStack)
 												rts
 								.8				lda #1
 												sta (pStack)
 												rts
 								*--------------------------------------
 								CC.BOPS.EQ		>PULLA
 												cmp (pStack)
 												beq .8
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
-												SP tools

											
										
										
											2022-01-30 21:47:08 +00:00
+												lda #0
 												sta (pStack)
 								.8				rts
 								*--------------------------------------
 								CC.BOPS.NE		>PULLA
 												eor (pStack)
 												sta (pStack)
 												rts
 								*--------------------------------------
 								CC.BOPS.LAND
 								CC.BOPS.AND		>PULLA
 												and (pStack)
 												sta (pStack)
 												rts
 								*--------------------------------------
 								CC.BOPS.LOR
 								CC.BOPS.OR		>PULLA
 												ora (pStack)
 												sta (pStack)
 												rts
 								*--------------------------------------
 								CC.BOPS.EOR		>PULLA
 												eor (pStack)
 												sta (pStack)
-												Brian's work....no additional comment required....pfff

											
										
										
											2021-12-02 21:28:26 +00:00
+												rts
 								*--------------------------------------
 								MAN
 								SAVE usr/src/bin/cc.s.exec
 								LOAD usr/src/bin/cc.s
 								ASM