A2osX/BIN/CC.S.EXEC.txt

NEW
  AUTO 3,1
				.LIST OFF	
*--------------------------------------
CC.BOPS.bMUL
CC.BOPS.cMUL	
				clc
				rts
*--------------------------------------
CC.BOPS.bDIV
CC.BOPS.cDIV
				clc
				rts
*--------------------------------------
CC.BOPS.bMOD
CC.BOPS.cMOD
				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	lda (pStack)
				tax
				beq .8
				
				ldy #1
				lda (pStack),y

.1				asl
				dex
				bne .1
				
				sta (pStack),y
				
.8				inc pStack
				clc
				rts
*--------------------------------------
CC.BOPS.SHR	lda (pStack)
				tax
				beq .8
				
				ldy #1
				lda (pStack),y

.1				lsr
				dex
				bne .1
				
				sta (pStack),y
				
.8				inc pStack
				clc
				rts
*--------------------------------------
CC.BOPS.L
CC.BOPS.G
CC.BOPS.LE
CC.BOPS.GE
CC.BOPS.EQ
CC.BOPS.NE

CC.BOPS.AND
CC.BOPS.OR
CC.BOPS.EOR

CC.BOPS.LAND
CC.BOPS.LOR


				clc
				rts
*--------------------------------------
MAN
SAVE usr/src/bin/cc.s.exec
LOAD usr/src/bin/cc.s
ASM