URL
https://opencores.org/ocsvn/nanoblaze/nanoblaze/trunk
Subversion Repositories nanoblaze
[/] [nanoblaze/] [trunk/] [Tools/] [nanoTest.asm] - Rev 7
Compare with Previous | Blame | View Log
;===============================================================; nanoTest.asm; Used for checking the NanoBlaze instruction set;===============================================================; 1) Test logical operations with direct values;---------------------------------------------------------------LOAD s7, 01CONSTANT testPattern, 0F;---------------------------------------------------------------; Test "LOAD", "AND";---------------------------------------------------------------LOAD s0, testPatternAND s0, 33COMPARE s0, 03JUMP NZ, error;---------------------------------------------------------------; Test "OR";---------------------------------------------------------------LOAD s1, testPatternOR s1, 33COMPARE s1, 3FJUMP NZ, error;---------------------------------------------------------------; Test "XOR";---------------------------------------------------------------LOAD s2, testPatternXOR s2, 33COMPARE s2, 3CJUMP NZ, error;===============================================================; 2) Test logical operations with registers;---------------------------------------------------------------ADD s7, 01;---------------------------------------------------------------; Test "LOAD";---------------------------------------------------------------LOAD s0, 33LOAD s3, s0COMPARE s3, 33JUMP NZ, error;---------------------------------------------------------------; Test "AND";---------------------------------------------------------------LOAD s0, 0FAND s0, s3COMPARE s0, 03JUMP NZ, error;---------------------------------------------------------------; Test "OR";---------------------------------------------------------------LOAD s1, 0FOR s1, s3COMPARE s1, 3FJUMP NZ, error;---------------------------------------------------------------; Test "XOR";---------------------------------------------------------------LOAD s2, 0FXOR s2, s3COMPARE s2, 3CJUMP NZ, error;===============================================================; 3) Test arithmetic operations with constants;---------------------------------------------------------------ADD s7, 01;---------------------------------------------------------------; Test "ADD" and "ADDCY";---------------------------------------------------------------LOAD s0, 0FADD s0, 31 ; 40ADDCY s0, F0 ; 130ADDCY s0, F0 ; 121ADD s0, 0F ; 30COMPARE s0, 30JUMP NZ, error;---------------------------------------------------------------; Test "SUB" and "SUBCY";---------------------------------------------------------------LOAD s1, 0FSUB s1, 0C ; 03SUBCY s1, F0 ; 113SUBCY s1, F0 ; 22SUB s1, 01 ; 21COMPARE s1, 21JUMP NZ, error;===============================================================; 4) Test arithmetic operations with registers;---------------------------------------------------------------ADD s7, 01;---------------------------------------------------------------; Test "ADD" and "ADDCY";---------------------------------------------------------------LOAD s0, 0FLOAD s1, 31LOAD s2, F0LOAD s3, 0FADD s0, s1 ; 40ADDCY s0, s2 ; 130ADDCY s0, s2 ; 121ADD s0, s3 ; 30COMPARE s0, 30JUMP NZ, error;---------------------------------------------------------------; Test "SUB" and "SUBCY";---------------------------------------------------------------LOAD s1, 0FLOAD s0, 0CLOAD s2, F0LOAD s3, 01SUB s1, s0 ; 03SUBCY s1, s2 ; 113SUBCY s1, s2 ; 22SUB s1, s3 ; 21COMPARE s1, 21JUMP NZ, error;===============================================================; 5) Test shifts;---------------------------------------------------------------ADD s7, 01;---------------------------------------------------------------; Test shift right;---------------------------------------------------------------LOAD s0, 0F ; 0FSR0 s0 ; 07SRX s0 ; 03SR1 s0 ; 81SRX s0 ; C0, C=1SRA s0 ; E0, C=0SRA s0 ; 70COMPARE s0, 70JUMP NZ, error;---------------------------------------------------------------; Test shift left;---------------------------------------------------------------LOAD s1, F0 ; FOSL0 s1 ; E0SLX s1 ; C0SL1 s1 ; 81SLX s1 ; 03, C=1SLA s1 ; 07, C=0SLA s1 ; 0ECOMPARE s1, 0EJUMP NZ, error;===============================================================; 6) Test comparison operators;---------------------------------------------------------------ADD s7, 01;---------------------------------------------------------------; Test "COMPARE";---------------------------------------------------------------LOAD s0, 0FCOMPARE s0, F0 ; A < B => C=1JUMP NC, errorCOMPARE s0, F0 ; A < B => Z=0JUMP Z, errorCOMPARE s0, s0 ; A = B => Z=1JUMP NZ, errorCOMPARE s0, 08 ; A > B => C=0JUMP C, errorCOMPARE s0, 08 ; A > B => Z=0JUMP Z, error;---------------------------------------------------------------; Test "TEST";---------------------------------------------------------------LOAD s0, 0FTEST s0, F0 ; AND is 00 => Z=1JUMP NZ, errorTEST s0, FF ; AND is 0F => Z=0JUMP Z, error;===============================================================; 7) Test INPUT and OUTPUT operators;---------------------------------------------------------------ADD s7, 01;---------------------------------------------------------------; Test "INPUT" and "OUTPUT" direct;; The testbench should invert the word written at address FC.;---------------------------------------------------------------LOAD s0, AAOUTPUT s0, FCINPUT s1, FCCOMPARE s1, 55JUMP NZ, error;---------------------------------------------------------------; Test "INPUT" and "OUTPUT" indexed;---------------------------------------------------------------LOAD s0, CCLOAD s2, FCOUTPUT s0, (s2)INPUT s1, (s2)COMPARE s1, 33JUMP NZ, error;===============================================================; 8) Test STORE and FETCH operators;---------------------------------------------------------------ADD s7, 01;---------------------------------------------------------------; Test "STORE" and "FETCH" direct;---------------------------------------------------------------LOAD s0, 0FSTORE s0, 03FETCH s1, 03COMPARE s1, 0FJUMP NZ, error;---------------------------------------------------------------; Test "STORE" and "FETCH" indexed;---------------------------------------------------------------LOAD s0, F0LOAD s2, 04STORE s0, (s2)FETCH s1, (s2)COMPARE s1, F0JUMP NZ, error;===============================================================; 9) Test JUMP instructions;---------------------------------------------------------------ADD s7, 01;---------------------------------------------------------------; Test "JUMP NC";---------------------------------------------------------------LOAD s0, F0ADD s0, 00 ; s0=F0, C=0, Z=0JUMP NC, continue1JUMP error;---------------------------------------------------------------; Test "JUMP NZ";---------------------------------------------------------------continue1: ADD s0, 00 ; s0=F0, C=0, Z=0JUMP NZ, continue2JUMP error;---------------------------------------------------------------; Test "JUMP C";---------------------------------------------------------------continue2: ADD s0, F0 ; s0=E0, C=1, Z=0JUMP C, continue3JUMP error;---------------------------------------------------------------; Test "JUMP Z";---------------------------------------------------------------continue3: SUB s0, E0 ; s0=00, C=0, Z=1JUMP Z, continue4JUMP errorcontinue4: NOP;===============================================================; 10) Test call instructions;---------------------------------------------------------------ADD s7, 01;---------------------------------------------------------------; define subroutine;---------------------------------------------------------------JUMP continue5subRetDo: ADD s0, 01RETURNJUMP error;---------------------------------------------------------------; Test "CALL";---------------------------------------------------------------continue5: LOAD s0, 00LOAD s1, F0CALL subRetDo ; s0=01;---------------------------------------------------------------; Test "CALL NC";---------------------------------------------------------------ADD s1, 00 ; s1=F0, C=0, Z=0CALL NC, subRetDo ; s0=02;---------------------------------------------------------------; Test "CALL NZ";---------------------------------------------------------------ADD s1, 00 ; s1=F0, C=0, Z=0CALL NZ, subRetDo ; s0=03;---------------------------------------------------------------; Test "CALL C";---------------------------------------------------------------ADD s1, F0 ; s0=E0, C=1, Z=0CALL C, subRetDo ; s0=04;---------------------------------------------------------------; Test "CALL Z";---------------------------------------------------------------SUB s1, E0 ; s0=00, C=0, Z=1CALL Z, subRetDo ; s0=05COMPARE s0, 05jump nz, error;===============================================================; 11) Test call return instructions;---------------------------------------------------------------ADD s7, 01;---------------------------------------------------------------; define subroutines;---------------------------------------------------------------JUMP continue6subRetNC: ADD s0, 01RETURN NCJUMP errorsubRetNZ: ADD s0, 01RETURN NZJUMP errorsubRetC: ADD s0, 01RETURN CJUMP errorsubRetZ: ADD s0, 01RETURN ZJUMP error;---------------------------------------------------------------; Test "RETURN NC";---------------------------------------------------------------continue6: LOAD s0, 00 ; increment will give C=0, Z=0CALL NC, subRetNC;---------------------------------------------------------------; Test "RETURN NZ";---------------------------------------------------------------LOAD s0, 00 ; increment will give C=0, Z=0CALL NZ, subRetNZ;---------------------------------------------------------------; Test "RETURN C";---------------------------------------------------------------LOAD s0, FF ; increment will give C=1, Z=1CALL C, subRetC;---------------------------------------------------------------; Test "RETURN Z";---------------------------------------------------------------LOAD s0, FF ; increment will give C=1, Z=1CALL Z, subRetZ;===============================================================; End of tests;; The testbench should react if value 1 is written to address 00.;---------------------------------------------------------------LOAD s0, 01OUTPUT s0, 00JUMP endOfMemory;===============================================================; Assert error;; The testbench should react if value 0 is written to address 00.;---------------------------------------------------------------ADDRESS 3FDerror: LOAD s0, 00OUTPUT s0, 00;===============================================================; End of instruction memory;---------------------------------------------------------------endOfMemory: JUMP endOfMemory