please dont rip this site

Use these macros to program the SX with a '68HC11 like' instruction set

;*************************************************************************
;                                       F
;                            Ready-to-Use Modules in asm
;
;                           "68HC11 Like" Instruction Set
;
;                         (F) Copywrong 1997, f@POBoxes.com
;
; Filename	: HC11LIKE.MAC
; Programmer    : Frans Gunawan (92101710)
; Desription	: Some "68HC11 Like" Instruction Set
; History       :
; Version       Comment
; 1.0sx         Translated for use in the Ubicom SX processors
; 1.0           Support
; ---------------------
; July 22       adddIMM
; 1997                  beq
;                       bne
;               decEXT
;               incEXT
;                       incX
;                       incY
;               ldwIMM
;               ldwEXT
;               ldwINDX
;               ldwINDY
;                       lddIMM
;                       lddDIR
;                       lddEXT
;               ldxIMM
;               ldxDIR
;               ldxEXT
;                       ldyIMM
;                       ldyDIR
;                       ldyEXT
;               stwEXT
;               stwINDX
;               stwINDY
;                       stdDIR
;                       stdEXT
;                       stdINDX
;                       stdINDY
;               xgdx
;               xgdy
;---------------------------------
; 1.0b          abx
; July 23               ldabDIR
; 1997
;---------------------------------
; 1.0c          ldabIMM
; August 02     ldaaIMM
; 1997
;---------------------------------
; 1.0d          cpxIMM
; August 16     cpyIMM
; 1997          cpdIMM
;
; WARNING: these instructions are not 100% portable, i.e. status bit
;*************************************************************************

;*************************************************************************
;                                  macro
;*************************************************************************

movlf           MACRO   FILE, LITERAL
	mov	W, #LITERAL
	mov	FILE, W
                ENDM

longcall        MACRO   SUBROUTINE
                        MOVPF   WREG, TEMP_W
	mov	W, #HIGH    SUBROUTINE
                        MOVPF   WREG, PCLATH
	call	@LOW     SUBROUTINE
                ENDM

longgoto        MACRO   ADDRESS
	mov	W, #HIGH    ADDRESS
;*** WARNING: PCLATH register bits are in STATUS PAx bits. Or use PAGE/IREAD if possible
;                        MOVWF   PCLATH
	mov	PCLATH, W
	mov	W, #LOW     ADDRESS
	mov	PC, W
                ENDM

abx             MACRO
                        MOVFP   REGB, WREG
	add	(REGX+1), W
	mov	W, #$00
                        ADDWFC  REGX
                ENDM
;   A	jmp	
;   h   l
;------------+
;A+h+c  B+l
;
adddIMM         MACRO   WORD
	mov	W, #LOW WORD
	add	REGB, W
	mov	W, #HIGH WORD
                        ADDWFC  REGA
                ENDM

beq             MACRO   JUMP
	snb	ALUSTA.Z
	jmp	JUMP
                ENDM

bne             MACRO   JUMP
	sb	ALUSTA.Z
	jmp	JUMP
                ENDM

; cpx result is in Zero bit
; this instruction is followed by beq or bne
; ex:   ldxIMM  0x1234
;       cpxIMM  0x1234
;       beq     same
; no:
; same:
cpxIMM          MACRO   WORD
                LOCAL   cpx_exit
                LOCAL   same
                local   not_same

	mov	W, #LOW WORD
                        CPFSEQ  (REGX+1)
	jmp	not_same

	mov	W, #HIGH WORD
                        CPFSEQ  REGX
	jmp	not_same
same:	setb	ALUSTA.Z
	jmp	cpx_exit

not_same:	clrb	ALUSTA.Z
cpx_exit:                                       ;	jmp	cpx_exit

                ENDM

cpyIMM          MACRO   WORD
                LOCAL   cpy_exit
                LOCAL   same
                LOCAL   not_same

	mov	W, #LOW WORD
                        CPFSEQ  (REGY+1)
	jmp	not_same

	mov	W, #HIGH WORD
                        CPFSEQ  REGY
	jmp	not_same
same:	setb	ALUSTA.Z
	jmp	cpy_exit

not_same:	clrb	ALUSTA.Z
cpy_exit:                                       ;	jmp	cpy_exit
                ENDM

cpdIMM          MACRO   WORD
                LOCAL   cpd_exit
                LOCAL   same
                LOCAL   not_same

	mov	W, #LOW WORD
                        CPFSEQ  REGB
	jmp	not_same

	mov	W, #HIGH WORD
                        CPFSEQ  REGA
	jmp	not_same
same:	setb	ALUSTA.Z
	jmp	cpd_exit

not_same:	clrb	ALUSTA.Z
cpd_exit:                                       ;	jmp	cpd_exit
                ENDM

decEXT          MACRO   TARGET
                        ldwEXT  TARGET
	dec	WREG
                        stwEXT  TARGET
                ENDM

incEXT          MACRO   TARGET
                        ldwEXT  TARGET
	inc	WREG
                        stwEXT  TARGET
                ENDM

incX            MACRO
	mov	W, #$01
	add	(REGX+1), W
	mov	W, #$00
                        ADDWFC  REGX
                ENDM

incY            MACRO
	mov	W, #$01
	add	(REGY+1), W
	mov	W, #$00
                        ADDWFC  REGY
                ENDM

ldabDIR         MACRO   SOURCE
                        MOVFP   SOURCE, WREG
                        MOVPF   WREG, REGB
                ENDM

ldwIMM          MACRO   DATA
	mov	W, #DATA
                ENDM

ldwEXT          MACRO   SOURCE                          ; External RAM
	mov	W, #HIGH SOURCE
	mov	TBLPTRH, W
	mov	W, #LOW SOURCE
	mov	TBLPTRL, W

                        TABLRD	0,0,WREG                ;DUMMY
                        TLRD    0,WREG
                ENDM

ldwINDX         MACRO                                   ; (REGX) -> WREG
                        MOVFP   REGX, WREG
	mov	TBLPTRH, W
                        MOVFP   (REGX+1), WREG
	mov	TBLPTRL, W
                        TABLRD	0, 0, WREG              ; DUMMY
                        TLRD    0, WREG                 ; HIGH
                ENDM

ldwINDY         MACRO                                   ; (REGY) -> WREG
                        MOVFP   REGY, WREG
	mov	TBLPTRH, W
                        MOVFP   (REGY+1), WREG
	mov	TBLPTRL, W
                        TABLRD	0, 0, WREG              ; DUMMY
                        TLRD    0, WREG                 ; HIGH
                ENDM

ldabIMM         MACRO   DATA
	mov	W, #DATA
	mov	REGB, W
                ENDM

ldaaIMM         MACRO   DATA
	mov	W, #DATA
	mov	REGA, W
                ENDM

lddIMM          MACRO   WORD                            ; load Immediate
	mov	W, #HIGH WORD
	mov	REGA, W
	mov	W, #LOW WORD
	mov	REGB, W
                ENDM

lddDIR          MACRO   SOURCE
                        MOVFP   SOURCE, WREG
                        MOVPF   WREG, REGA
                        MOVFP   (SOURCE+1), WREG
                        MOVPF   WREG, REGB
                ENDM

lddEXT          MACRO   SOURCE
	mov	W, #HIGH SOURCE
	mov	TBLPTRH, W
	mov	W, #LOW SOURCE
	mov	TBLPTRL, W

                        TABLRD	0, 1, WREG              ; DUMMY
                        TLRD    0, REGA                 ; HIGH
                        TABLRD  0, 0, WREG              ; DUMMY
                        TLRD    0, REGB                 ; LOW
                ENDM

ldxIMM          MACRO   WORD                            ; load Immediate
	mov	W, #HIGH WORD
	mov	REGX, W
	mov	W, #LOW WORD
	mov	(REGX+1), W
                ENDM

ldxDIR          MACRO   SOURCE
                        MOVFP   SOURCE, WREG
                        MOVPF   WREG, REGX
                        MOVFP   (SOURCE+1), WREG
                        MOVPF   WREG, (REGX+1)
                ENDM

ldxEXT          MACRO   SOURCE
	mov	W, #HIGH SOURCE
	mov	TBLPTRH, W
	mov	W, #LOW SOURCE
	mov	TBLPTRL, W

                        TABLRD	0, 1, WREG              ; DUMMY
                        TLRD    0, REGX                 ; HIGH
                        TABLRD  0, 0, WREG              ; DUMMY
                        TLRD    0, (REGX+1)             ; LOW
                ENDM

ldyIMM          MACRO   WORD                            ; load Immediate
	mov	W, #HIGH WORD
	mov	REGY, W
	mov	W, #LOW WORD
	mov	(REGY+1), W
                ENDM

ldyDIR          MACRO   SOURCE
                        MOVFP   SOURCE, WREG
                        MOVPF   WREG, REGY
                        MOVFP   (SOURCE+1), WREG
                        MOVPF   WREG, (REGY+1)
                ENDM

ldyEXT          MACRO   SOURCE
	mov	W, #HIGH SOURCE
	mov	TBLPTRH, W
	mov	W, #LOW SOURCE
	mov	TBLPTRL, W

                        TABLRD	0, 1, WREG              ; DUMMY
                        TLRD    0, REGY                 ; HIGH
                        TABLRD  0, 0, WREG              ; DUMMY
                        TLRD    0, (REGY+1)             ; LOW
                ENDM

stwEXT          MACRO   DESTINATION                     ; External RAM
                        MOVPF   WREG, TEMP_W
	mov	W, #HIGH DESTINATION
	mov	TBLPTRH, W
	mov	W, #LOW DESTINATION
	mov	TBLPTRL, W

                        MOVFP   TEMP_W, WREG
                        TABLWT  0, 0, WREG
                ENDM

stwINDX         MACRO
                        MOVFP   REGX, TBLPTRH
                        MOVFP   (REGX+1), TBLPTRL
                        TABLWT  0, 0, WREG
                ENDM

stwINDY         MACRO
                        MOVFP   REGY, TBLPTRH
                        MOVFP   (REGY+1), TBLPTRL
                        TABLWT  0, 0, WREG
                ENDM

stdDIR          MACRO   DESTINATION
                        MOVFP   REGA, WREG
                        MOVPF   WREG, DESTINATION
                        MOVFP   REGB, WREG
                        MOVPF   WREG, (DESTINATION+1)
                ENDM

stdEXT          MACRO   DESTINATION                     ; External RAM
	mov	W, #HIGH DESTINATION
	mov	TBLPTRH, W
	mov	W, #LOW DESTINATION
	mov	TBLPTRL, W

                        TABLWT  0, 1, REGA
                        TABLWT  0, 0, REGB
                ENDM

stdINDX         MACRO
                        MOVFP   REGX, TBLPTRH
                        MOVFP   (REGX+1), TBLPTRL

                        TABLWT  0, 1, REGA
                        TABLWT  0, 0, REGB
                ENDM

stdINDY         MACRO
                        MOVFP   REGY, TBLPTRH
                        MOVFP   (REGY+1), TBLPTRL

                        TABLWT  0, 1, REGA
                        TABLWT  0, 0, REGB
                ENDM

xgdx            MACRO
                        MOVFP   REGA, WREG
                        MOVPF   WREG, TEMP_W

                        MOVFP   REGX, WREG
                        MOVPF   WREG, REGA
                        MOVFP   TEMP_W, WREG
                        MOVPF   WREG, REGX

                        MOVFP   REGB, WREG
                        MOVPF   WREG, TEMP_W

                        MOVFP   (REGX+1), WREG
                        MOVPF   WREG, REGB
                        MOVFP   TEMP_W, WREG
                        MOVPF   WREG, (REGX+1)
                ENDM

xgdy            MACRO
                        MOVFP   REGA, WREG
                        MOVPF   WREG, TEMP_W

                        MOVFP   REGY, WREG
                        MOVPF   WREG, REGA
                        MOVFP   TEMP_W, WREG
                        MOVPF   WREG, REGY

                        MOVFP   REGB, WREG
                        MOVPF   WREG, TEMP_W

                        MOVFP   (REGY+1), WREG
                        MOVPF   WREG, REGB
                        MOVFP   TEMP_W, WREG
                        MOVPF   WREG, (REGY+1)
                ENDM

; END OF FILE


file: /Techref/scenix/68HC11.htm, 11KB, , updated: 2001/12/10 16:00, local time: 2024/3/28 22:12, owner: JMN-EFP-786,
TOP NEW HELP FIND: 
18.207.104.87:LOG IN

 ©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?
Please DO link to this page! Digg it! / MAKE!

<A HREF="http://www.sxlist.com/techref/scenix/68HC11.htm"> Use these macros to program the SX with a '68HC11 like' instruction set</A>

After you find an appropriate page, you are invited to your to this massmind site! (posts will be visible only to you before review) Just type a nice message (short messages are blocked as spam) in the box and press the Post button. (HTML welcomed, but not the <A tag: Instead, use the link box to link to another page. A tutorial is available Members can login to post directly, become page editors, and be credited for their posts.


Link? Put it here: 
if you want a response, please enter your email address: 
Attn spammers: All posts are reviewed before being made visible to anyone other than the poster.
Did you find what you needed?

 

Welcome to sxlist.com!


Site supported by
sales, advertizing,
& kind contributors
just like you!

Please don't rip/copy
(here's why

Copies of the site on CD
are available at minimal cost.
 

Welcome to www.sxlist.com!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  .