; Need to update for multi-segment someday.

;.SEGMENT        CodeSegment:	
DONTBR:	LEA R0, AA	       
	LEA R1, BB		
	LEA R2, CC             						
	LD R7, R0, ADATA3F-AA

	LD R6, R2, CDATA3F-CC
	ST R7, R1, BDATA3D-BB
	ST R7, R1, BDATA3F-BB
	ST R7, R1, BDATA3C-BB
	
	
	ADD R3, R2, -3        
	ADD R4, R2, -4		
	RSHFL R6, R7, 8       
	STB R7, R4, 0         
	
	STB R6, R3, 0		
	LD R5, R1, BDATA3A-BB
	LD R7, R0, ADATA39-AA
	ST R7, R1, BDATA38-BB
	
	ST R7, R1, BDATA39-BB
	ST R7, R1, BDATA3A-BB
        ADD R3, R2, -9
	ADD R4, R2, -10
	
	STB R6, R3, 0 							
	STB R7, R4, 0	        
        ST  R7, R2, CDATA3B-CC
	LD  R7, R2, CDATA37-CC
	  
	LD  R6, R1, BDATA35-BB
	ST  R6, R2, CDATA37-CC
	LD  R5, R2, CDATA36-CC
	LD  R7, R0, ADATA36-AA
	
        LD  R7, R1, BDATA35-BB
	LD  R6, R2, CDATA35-CC
	LD  R7, R0, ADATA37-AA
	ST  R7, R1, BDATA37-BB
				
	AND R3, R3, 0 		
	AND R4, R4, 0		
	ADD R3, R3, 11		
	ADD R4, R4, -1		

LOOP:	LD R7, R0, ADATA32-AA
	LD R7, R1, BDATA32-BB
        LD R7, R2, CDATA31-CC
	ADD R3, R3, R4
	  
	BRp LOOP  		
	LD R6, R1, BDATA0-BB
 	LD R6, R1, BDATA4-BB
	LD R6, R1, BDATA10-BB
	
	ST R7, R1, BDATA4-BB
	ST R7, R1, BDATA11-BB
	ST R7, R0, ADATA8-AA
STOP:	BRnzp STOP		

	
        BR DONTBR		
	BR DONTBR   
	BR DONTBR   
	BR DONTBR
	
	BR DONTBR		
	BR DONTBR   	
        BR DONTBR   
	BR DONTBR  
	
	BR DONTBR		
	BR DONTBR   	
        BR DONTBR   
	BR DONTBR  	 	
	
	BR DONTBR		
	BR DONTBR   	
        BR DONTBR   
	BR DONTBR  	
	
	
		
;.SEGMENT        AA:	
AA:

ADATA0:	 dw 0x600D
ADATA1:	 dw 0x600D
ADATA2:	 dw 0x600D
ADATA3:	 dw 0x600D
ADATA4:	 dw 0x600D
ADATA5:	 dw 0x600D		
ADATA6:	 dw 0x600D
ADATA7:	 dw 0x600D
ADATA8:	 dw 0x600D
ADATA9:	 dw 0x600D
ADATAA:  dw 0x600D
ADATAB:	 dw 0x600D	
ADATAC:	 dw 0x600D
ADATAD:	 dw 0x600D		
ADATAE:	 dw 0x600D
ADATAF:	 dw 0x600D
	
ADATA10:	 dw 0x600D
ADATA11:	 dw 0x600D
ADATA12:	 dw 0x600D
ADATA13:	 dw 0x600D
ADATA14:	 dw 0x600D
ADATA15:	 dw 0x600D		
ADATA16:	 dw 0x600D
ADATA17:	 dw 0x600D
ADATA18:	 dw 0x600D
ADATA19:	 dw 0x600D
ADATA1A:         dw 0x600D
ADATA1B:	 dw 0x600D	
ADATA1C:	 dw 0x600D
ADATA1D:	 dw 0x600D		
ADATA1E:	 dw 0x600D
ADATA1F:	 dw 0x600D
	
ADATA20:	 dw 0x600D
ADATA21:	 dw 0x600D
ADATA22:	 dw 0x600D
ADATA23:	 dw 0x600D
ADATA24:	 dw 0x600D
ADATA25:	 dw 0x600D		
ADATA26:	 dw 0x600D
ADATA27:	 dw 0x600D
ADATA28:	 dw 0x600D
ADATA29:	 dw 0x600D
ADATA2A:         dw 0x600D
ADATA2B:	 dw 0x600D	
ADATA2C:	 dw 0x600D
ADATA2D:	 dw 0x600D		
ADATA2E:	 dw 0x600D
ADATA2F:	 dw 0x600D
	
ADATA30:	 dw 0x600D
ADATA31:	 dw 0x600D
ADATA32:	 dw 0x600D
ADATA33:	 dw 0x600D
ADATA34:	 dw 0x600D
ADATA35:	 dw 0x600D		
ADATA36:	 dw 0x600D
ADATA37:	 dw 0x600D
ADATA38:	 dw 0x600D
ADATA39:	 dw 0x600D
ADATA3A:         dw 0x600D
ADATA3B:	 dw 0x600D	
ADATA3C:	 dw 0x600D
ADATA3D:	 dw 0x600D		
ADATA3E:	 dw 0x600D
ADATA3F:	 dw 0x600D			
						
;.SEGMENT        BB:	
BB:
	
BDATA0:	dw  0xBADD
BDATA1:	dw  0xBADD
BDATA2:	dw  0xBADD	
BDATA3:	dw  0xBADD
BDATA4:	dw  0xBADD
BDATA5:	dw  0xBADD
BDATA6:	dw  0xBADD	
BDATA7:	dw  0xBADD
BDATA8:	dw  0xBADD
BDATA9:	dw  0xBADD
BDATAA:	dw  0xBADD	
BDATAB:	dw  0xBADD
BDATAC:	dw  0xBADD
BDATAD:	dw  0xBADD
BDATAE:	dw  0xBADD	
BDATAF:	dw  0xBADD
	
BDATA10:	dw  0xBADD
BDATA11:	dw  0xBADD
BDATA12:	dw  0xBADD	
BDATA13:	dw  0xBADD
BDATA14:	dw  0xBADD
BDATA15:	dw  0xBADD
BDATA16:	dw  0xBADD	
BDATA17:	dw  0xBADD
BDATA18:	dw  0xBADD
BDATA19:	dw  0xBADD
BDATA1A:	dw  0xBADD	
BDATA1B:	dw  0xBADD
BDATA1C:	dw  0xBADD
BDATA1D:	dw  0xBADD
BDATA1E:	dw  0xBADD	
BDATA1F:	dw  0xBADD
	
BDATA20:	dw  0xBADD
BDATA21:	dw  0xBADD
BDATA22:	dw  0xBADD	
BDATA23:	dw  0xBADD
BDATA24:	dw  0xBADD
BDATA25:	dw  0xBADD
BDATA26:	dw  0xBADD	
BDATA27:	dw  0xBADD
BDATA28:	dw  0xBADD
BDATA29:	dw  0xBADD
BDATA2A:	dw  0xBADD	
BDATA2B:	dw  0xBADD
BDATA2C:	dw  0xBADD
BDATA2D:	dw  0xBADD
BDATA2E:	dw  0xBADD	
BDATA2F:	dw  0xBADD	
	
BDATA30:	dw  0xBADD
BDATA31:	dw  0xBADD
BDATA32:	dw  0xBADD	
BDATA33:	dw  0xBADD
BDATA34:	dw  0xBADD
BDATA35:	dw  0xBADD
BDATA36:	dw  0xBADD	
BDATA37:	dw  0xBADD
BDATA38:	dw  0xBADD
BDATA39:	dw  0xBADD
BDATA3A:	dw  0xBADD	
BDATA3B:	dw  0xBADD
BDATA3C:	dw  0xBADD
BDATA3D:	dw  0xBADD
BDATA3E:	dw  0xBADD	
BDATA3F:	dw  0xBADD	
	
					
;.SEGMENT        CC:	
CC:

CDATA0:	dw  0x5050	
CDATA1:	dw  0x5050	
CDATA2:	dw  0x5050	
CDATA3:	dw  0x5050
CDATA4:	dw  0x5050	
CDATA5:	dw  0x5050	
CDATA6:	dw  0x5050	
CDATA7:	dw  0x5050	
CDATA8:	dw  0x5050	
CDATA9:	dw  0x5050	
CDATAA:	dw  0x5050	
CDATAB:	dw  0x5050	
CDATAC:	dw  0x5050	
CDATAD:	dw  0x5050	
CDATAE:	dw  0x5050	
CDATAF:	dw  0x5050
					
CDATA10:	dw  0x5050	
CDATA11:	dw  0x5050	
CDATA12:	dw  0x5050	
CDATA13:	dw  0x5050
CDATA14:	dw  0x5050	
CDATA15:	dw  0x5050	
CDATA16:	dw  0x5050	
CDATA17:	dw  0x5050	
CDATA18:	dw  0x5050	
CDATA19:	dw  0x5050	
CDATA1A:	dw  0x5050	
CDATA1B:	dw  0x5050	
CDATA1C:	dw  0x5050	
CDATA1D:	dw  0x5050	
CDATA1E:	dw  0x5050	
CDATA1F:	dw  0x5050	
	
CDATA20:	dw  0x5050	
CDATA21:	dw  0x5050	
CDATA22:	dw  0x5050	
CDATA23:	dw  0x5050
CDATA24:	dw  0x5050	
CDATA25:	dw  0x5050	
CDATA26:	dw  0x5050	
CDATA27:	dw  0x5050	
CDATA28:	dw  0x5050	
CDATA29:	dw  0x5050	
CDATA2A:	dw  0x5050	
CDATA2B:	dw  0x5050	
CDATA2C:	dw  0x5050	
CDATA2D:	dw  0x5050	
CDATA2E:	dw  0x5050	
CDATA2F:	dw  0x5050	
	
CDATA30:	dw  0x5050	
CDATA31:	dw  0x5050	
CDATA32:	dw  0x5050	
CDATA33:	dw  0x5050
CDATA34:	dw  0x5050	
CDATA35:	dw  0x5050	
CDATA36:	dw  0x5050	
CDATA37:	dw  0x5050	
CDATA38:	dw  0x5050	
CDATA39:	dw  0x5050	
CDATA3A:	dw  0x5050	
CDATA3B:	dw  0x5050	
CDATA3C:	dw  0x5050	
CDATA3D:	dw  0x5050	
CDATA3E:	dw  0x5050	
CDATA3F:	dw  0x5050