URL
https://opencores.org/ocsvn/copyblaze/copyblaze/trunk
Subversion Repositories copyblaze
[/] [copyblaze/] [trunk/] [copyblaze/] [sw/] [code/] [kcpsm/] [Mnemonics/] [Mnemonic.psm] - Rev 2
Compare with Previous | Blame | View Log
;--------------------------------------------------------------------------------;-- Company:;--;-- File: Mnemonic.psm;--;-- Description:;-- projet bicoblaze;-- Test of the mnemonics of the BicoBlaze3 processor;--;-- File history:;-- v1.0: 11/10/11: Creation;--;-- Targeted device: ProAsic A3P250 VQFP100;-- Author: AbdAllah Meziti;--------------------------------------------------------------------------------LOAD s0, 85 ; s0=85LOAD s3, 42 ; s3=42LOAD s7, s3 ; s7=42AND s3, 23 ; s3=02AND s7, s0 ; s7=00OR s3, 69 ; s3=6BOR s7, s0 ; s7=85XOR s0, 42 ; s0=C7XOR s0, s7 ; s0=42ADD s0, 43 ; s0=85ADD s0, s7 ; s0=0A (Carry=1)ADDCY s0, 42 ; s0=4DADDCY s0, s7 ; s0=D2SUB s0, E5 ; s0=ED (Borrow=1)SUB s0, s7 ; s0=68SUBCY s0, A7 ; s0=C1 (Borrow=1)SUBCY s0, s7 ; s0=3BLOAD s0, 43 ; s0=43SL0 s0 ; s0=86SLX s0 ; s0=0C (Carry=1)SLA s0 ; s0=19SL1 s0 ; s0=33LOAD s0, B0 ; s0=B0RL s0 ; s0=61 (Carry=1)SRA s0 ; s0=B0 (Carry=1)SR0 s0 ; s0=58SR1 s0 ; s0=ACSRX s0 ; s0=D6LOAD s0, CD ; s0=CDRR s0 ; s0=E6OUTPUT s0, 30 ; OUT_PORT=s0=E6, PORT_ID=30OUTPUT s0, (s7) ; OUT_PORT=s0=E6, PORT_ID=s7=85INPUT s0, 20 ; s0=OUT_PORT=(see external value), PORT_ID=20INPUT s0, (s7) ; s0=OUT_PORT=(see external value), PORT_ID=s7=85; one line macro for extra instructions; INST 1234LOAD s0, B8 ; s0=B8COMPARE s0, 42 ; C=0, Z=0COMPARE s0, B8 ; C=0, Z=1COMPARE s0, C9 ; C=1, Z=0LOAD s1, 44 ; s1=44LOAD s2, B8 ; s2=B8LOAD s3, D9 ; s3=D9COMPARE s0, s1 ; C=0, Z=0COMPARE s0, s2 ; C=0, Z=1COMPARE s0, s3 ; C=1, Z=0LOAD s5, 3D ; s5=3DTEST s5, FF ; C=1TEST s0, s1 ; (s0 and s1)LOAD s1, 03 ; s1=03STORE s0, 0A ; Scratch(@0A)=s0=E6STORE s0, (s1) ; Scratch(@s1=03)=s0=E6FETCH s4, 0A ; s4=Scratch(@0A)=E6FETCH s5, (s1) ; s5=Scratch(@s1=03)=E6JUMP JmpL1 ; Validation; INST FFFF; INST FFFF; INST FFFF; INST FFFFJmpL1:LOAD s0, 03 ; s0=03LoopL1:SUB s0, 01 ; s0=s0-1JUMP NZ, LoopL1 ; -- ValidationJUMP Z, JmpL2 ; -- Validation; INST FFFF; INST FFFF; INST FFFF; INST FFFFJmpL2:LOAD s0, 03 ; s0=03LoopL2:SUB s0, 01 ; s0=s0-1JUMP NC, LoopL2 ; -- ValidationJUMP C, CalL1 ; -- Validation; INST FFFF; INST FFFF; INST FFFF; INST FFFFCalL1:LOAD s0, 03 ; s0=03CALL Function ; -- ValidationLOAD s1, 03 ; s1=03LOAD s2, 03 ; s2=03LOAD s3, 03 ; s3=03LOAD s4, 03 ; s4=03; CALL NZ, Function ; -- Validation; CALL Z, Function; CALL NC, FunctionCALL C, Functionload s0, BBcall FuncLoadAllRegisterENABLE INTERRUPT ; ENABLE INTERRUPT; DISABLE INTERRUPT ; DISABLE INTERRUPT; clear all registerload s0, 00call FuncLoadAllRegister; End LOOPEndLoop:; JUMP EndLoop ; -- ValidationADD s0, 01 ; s0++ADD s1, 01 ; s1++ADD s2, 01 ; s2++ADD s3, 01 ; s3++ADD s4, 01 ; s4++ADD s5, 01 ; s5++ADD s6, 01 ; s6++ADD s7, 01 ; s7++ADD s8, 01 ; s8++ADD s9, 01 ; s9++ADD sA, 01 ; sA++ADD sB, 01 ; sB++ADD sC, 01 ; sC++ADD sD, 01 ; sD++ADD sE, 01 ; sE++ADD sF, 01 ; sF++JUMP EndLoop ; -- Validation; =====================================================================; END OF PROGRAM; =====================================================================; ****************************************; Function; ****************************************Function:LOAD s1, 55 ; s1=55LOAD s2, 55 ; s2=55LOAD s3, 55 ; s3=55LOAD s4, 55 ; s4=55RETURN ; -- Validation; RETURN NZ ; -- Validation; RETURN Z ; -- Validation; RETURN NC ; -- Validation; RETURN C ; -- Validation; ****************************************; Load All the register with the s0 value.; ****************************************FuncLoadAllRegister:; LOAD s0, s0 ; s0=s0LOAD s1, s0 ; s1=s0LOAD s2, s0 ; s2=s0LOAD s3, s0 ; s3=s0LOAD s4, s0 ; s4=s0LOAD s5, s0 ; s5=s0LOAD s6, s0 ; s6=s0LOAD s7, s0 ; s7=s0LOAD s8, s0 ; s8=s0LOAD s9, s0 ; s9=s0LOAD sA, s0 ; sA=s0LOAD sB, s0 ; sB=s0LOAD sC, s0 ; sC=s0LOAD sD, s0 ; sD=s0LOAD sE, s0 ; sE=s0LOAD sF, s0 ; sF=s0RETURN; ****************************************; Decrement All the register by 1.; ****************************************FuncDecreAllRegister:SUB s0, 02 ; s0--SUB s1, 02 ; s1--SUB s2, 02 ; s2--SUB s3, 02 ; s3--SUB s4, 02 ; s4--SUB s5, 02 ; s5--SUB s6, 02 ; s6--SUB s7, 02 ; s7--SUB s8, 02 ; s8--SUB s9, 02 ; s9--SUB sA, 02 ; sA--SUB sB, 02 ; sB--SUB sC, 02 ; sC--SUB sD, 02 ; sD--SUB sE, 02 ; sE--SUB sF, 02 ; sF--RETURN; *************************; Interrupt Service Routine; *************************ISR:; load s0, AAcall FuncDecreAllRegister ; ISRRETURNI ENABLE ; RETURNI; RETURNI DISABLE; *************************; End ISR Interrupt Handler; *************************ADDRESS 3FFVECTOR:JUMP ISR