URL https://opencores.org/ocsvn/8051/8051/trunk

Subversion Repositories 8051

[/] [8051/] [tags/] [rel_12/] [asm/] [testall.asm] - Diff between revs 33 and 91

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 33	Rev 91
Line 589...	Line 589...
`done12:`	`done12:`

`;;;;;;;;;;;;;;;; INST 13 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 13 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; anl a,@Ri (13)`	`;; anl a,@Ri (13)`
`mov r0,127`	`mov r0,#127`
`clr c`	`clr c`
`clr a`	`clr a`
`mov 127,#171`	`mov 127,#171`
`mov a,#250`	`mov a,#250`
`anl a,@r0`	`anl a,@r0`
Line 1747...	Line 1747...
`done68:`	`done68:`

`;;;;;;;;;;;;;;;;; INST 69 ;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;;; INST 69 ;;;;;;;;;;;;;;;;;;;;;;`

`;; mov dptr,#data (69)`	`;; mov dptr,#data (69)`
`mov dptr,#0x1234`	`mov dptr,#1234h`
`mov a,DPH`	`mov a,DPH`
`subb a,#0x12`	`subb a,#12h`
`jnz fail69`	`jnz fail69`
`mov a,DPL`	`mov a,DPL`
`subb a,#0x34`	`subb a,#34h`
`jz done69`	`jz done69`
`fail69:`	`fail69:`
`mov P1,#69`	`mov P1,#69`
`ljmp failed`	`ljmp failed`
`done69:`	`done69:`
Line 1766...	Line 1766...

`;; movc a,@a+dptr (70)`	`;; movc a,@a+dptr (70)`
`clr a`	`clr a`
`mov dptr,#DB_TBL`	`mov dptr,#DB_TBL`
`movc a,@a+dptr`	`movc a,@a+dptr`
`subb a,#0x66`	`subb a,#66h`
`jnz fail70`	`jnz fail70`
`mov a,#1`	`mov a,#1`
`movc a,@a+dptr`	`movc a,@a+dptr`
`subb a,#0x77`	`subb a,#77h`
`jz done70`	`jz done70`
`jnz fail70`	`jnz fail70`
`DB_TBL:`	`DB_TBL:`
`.db 0x66`	`db 66h`
`.db 0x77`	`db 77h`
`fail70:`	`fail70:`
`mov P1,#70`	`mov P1,#70`
`ljmp failed`	`ljmp failed`
`done70:`	`done70:`

Line 1787...	Line 1787...
`;;;;;;;;;;;;;;;;; INST 71 ;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;;; INST 71 ;;;;;;;;;;;;;;;;;;;;;;`

`;; movc a,@a+PC (71)`	`;; movc a,@a+PC (71)`
`mov a,#13`	`mov a,#13`
`movc a,@a+pc`	`movc a,@a+pc`
`subb a,#0x66`	`subb a,#66h`
`jnz fail71`	`jnz fail71`
`mov a,#7`	`mov a,#7`
`movc a,@a+pc`	`movc a,@a+pc`
`subb a,#0x77`	`subb a,#77h`
`jz done71`	`jz done71`
`jnz fail71`	`jnz fail71`
`.db 0x66`	`db 66h`
`.db 0x77`	`db 77h`
`fail71:`	`fail71:`
`mov P1,#71`	`mov P1,#71`
`ljmp failed`	`ljmp failed`
`done71:`	`done71:`

Line 1807...	Line 1807...
`;;;;;;;;;;;;;;;; INST 76 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 76 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; mul AB (76)`	`;; mul AB (76)`
`mov a,#80`	`mov a,#80`
`mov B,#160`	`mov B,#160`
`mul AB ; = 0x3200`	`mul AB ; = 3200h`
`jc fail76`	`jc fail76`
`jnz fail76`	`jnz fail76`
`mov c, ov`	`mov c, ov`
`jnc fail76`	`jnc fail76`
`mov a,B`	`mov a,B`
Line 1819...	Line 1819...
`subb a,#32h`	`subb a,#32h`
`jnz fail76`	`jnz fail76`

`mov a,#111`	`mov a,#111`
`mov B,#87`	`mov B,#87`
`mul AB ; = 0x25b9`	`mul AB ; = 25b9h`
`jc fail76`	`jc fail76`
`mov c, ov`	`mov c, ov`
`jnc fail76`	`jnc fail76`

`clr c`	`clr c`
`subb a,#0b9h`	`subb a,#0b9h`
`jnz fail76`	`jnz fail76`
`mov a,B`	`mov a,B`
`subb a,#25h`	`subb a,#25h`
`jnz fail76`	`jnz fail76`

`mov a,#11`	`mov a,#11`
`mov B,#17`	`mov B,#17`
`mul AB ; = 0x00BB`	`mul AB ; = 00BBh`
`jc fail76`	`jc fail76`
`mov c, ov`	`mov c, ov`
`jc fail76`	`jc fail76`
`clr c`	`clr c`
`subb a,#0bbh`	`subb a,#0bbh`
Line 1873...	Line 1874...


`;;;;;;;;;;;;;;;; INST 78 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 78 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; orl a,Rn (78)`	`;; orl a,Rn (78)`
`mov a,#0x90`	`mov a,#90h`
`mov r0,#0x09`	`mov r0,#09h`
`setb c`	`setb c`
`orl a,r0`	`orl a,r0`
`jnc fail78`	`jnc fail78`
`clr c`	`clr c`
`subb a,#0x99`	`subb a,#99h`
`jnz fail78`	`jnz fail78`

`mov a,#0x48`	`mov a,#48h`
`mov r0,#0x19`	`mov r0,#19h`
`clr c`	`clr c`
`orl a,r0`	`orl a,r0`
`jc fail78`	`jc fail78`
`subb a,#0x59`	`subb a,#59h`
`jz done78`	`jz done78`
`fail78:`	`fail78:`
`mov P1,#78`	`mov P1,#78`
`ljmp failed`	`ljmp failed`
`done78:`	`done78:`

`;;;;;;;;;;;;;;;; INST 79 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 79 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; orl a,direct (79)`	`;; orl a,direct (79)`
`mov a,#0x90`	`mov a,#90h`
`mov 127,#0x09`	`mov 127,#09h`
`setb c`	`setb c`
`orl a,127`	`orl a,127`
`jnc fail79`	`jnc fail79`
`clr c`	`clr c`
`subb a,#0x99`	`subb a,#99h`
`jnz fail79`	`jnz fail79`

`mov a,#0x48`	`mov a,#48h`
`mov 127,#0x19`	`mov 127,#19h`
`clr c`	`clr c`
`orl a,127`	`orl a,127`
`jc fail79`	`jc fail79`
`subb a,#0x59`	`subb a,#59h`
`jz done79`	`jz done79`
`fail79:`	`fail79:`
`mov P1,#79`	`mov P1,#79`
`ljmp failed`	`ljmp failed`
`done79:`	`done79:`

`;;;;;;;;;;;;;;;; INST 80 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 80 ;;;;;;;;;;;;;;;;;;;;;;;`
`;; orl a,@Ri (80)`	`;; orl a,@Ri (80)`
`mov a,#0x90`	`mov a,#90h`
`mov r1,#127`	`mov r1,#127`
`mov @r1,#0x9`	`mov @r1,#09h`
`setb c`	`setb c`
`orl a,@r1`	`orl a,@r1`
`jnc fail80`	`jnc fail80`
`clr c`	`clr c`
`subb a,#0x99`	`subb a,#99h`
`jnz fail80`	`jnz fail80`

`mov a,#0x48`	`mov a,#48h`
`mov @r1,#0x19`	`mov @r1,#19h`
`clr c`	`clr c`
`orl a,@r1`	`orl a,@r1`
`jc fail80`	`jc fail80`
`subb a,#0x59`	`subb a,#59h`
`jz done80`	`jz done80`
`fail80:`	`fail80:`
`mov P1,#80`	`mov P1,#80`
`ljmp failed`	`ljmp failed`
`done80:`	`done80:`

`;;;;;;;;;;;;;;;; INST 81 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 81 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; orl a,#data (81)`	`;; orl a,#data (81)`
`mov a,#0x90`	`mov a,#90h`
`setb c`	`setb c`
`orl a,#0x9`	`orl a,#09h`
`jnc fail81`	`jnc fail81`
`clr c`	`clr c`
`subb a,#0x99`	`subb a,#99h`
`jnz fail81`	`jnz fail81`

`mov a,#0x48`	`mov a,#48h`
`clr c`	`clr c`
`orl a,#0x19`	`orl a,#19h`
`jc fail81`	`jc fail81`
`subb a,#0x59`	`subb a,#59h`
`jz done81`	`jz done81`
`fail81:`	`fail81:`
`mov P1,#81`	`mov P1,#81`
`ljmp failed`	`ljmp failed`
`done81:`	`done81:`

`;;;;;;;;;;;;;;;; INST 82 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 82 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; orl direct,a (82)`	`;; orl direct,a (82)`
`mov a,#0x90`	`mov a,#90h`
`mov 127,#0x9`	`mov 127,#09h`
`setb c`	`setb c`
`orl 127,a`	`orl 127,a`
`jnc fail82`	`jnc fail82`
`clr c`	`clr c`
`subb a,#0x90`	`subb a,#90h`
`jnz fail82`	`jnz fail82`
`mov a,127`	`mov a,127`
`clr c`	`clr c`
`subb a,#0x99`	`subb a,#99h`
`jnz fail82`	`jnz fail82`

`mov a,#0x48`	`mov a,#48h`
`mov 127,#0x19`	`mov 127,#19h`
`clr c`	`clr c`
`orl 127,a`	`orl 127,a`
`jc fail82`	`jc fail82`
`subb a,#0x48`	`subb a,#48h`
`jnz fail82`	`jnz fail82`
`mov a,127`	`mov a,127`
`clr c`	`clr c`
`subb a,#0x59`	`subb a,#59h`
`jz done82`	`jz done82`
`fail82:`	`fail82:`
`mov P1,#82`	`mov P1,#82`
`ljmp failed`	`ljmp failed`
`done82:`	`done82:`

`;;;;;;;;;;;;;;;; INST 83 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 83 ;;;;;;;;;;;;;;;;;;;;;;;`
`;; orl direct,#data (83)`	`;; orl direct,#data (83)`
`mov a,#0x91`	`mov a,#91h`
`mov 127,#0x9`	`mov 127,#09h`
`setb c`	`setb c`
`orl 127,#0x90`	`orl 127,#90h`
`jnc fail83`	`jnc fail83`
`clr c`	`clr c`
`subb a,#0x91`	`subb a,#91h`
`jnz fail83`	`jnz fail83`
`mov a,127`	`mov a,127`
`clr c`	`clr c`
`subb a,#0x99`	`subb a,#99h`
`jnz fail83`	`jnz fail83`

`mov a,#0x49`	`mov a,#49h`
`mov 127,#0x19`	`mov 127,#19h`
`clr c`	`clr c`
`orl 127,#0x48`	`orl 127,#48h`
`jc fail83`	`jc fail83`
`subb a,#0x49`	`subb a,#49h`
`jnz fail83`	`jnz fail83`
`mov a,127`	`mov a,127`
`clr c`	`clr c`
`subb a,#0x59`	`subb a,#59h`
`jz done83`	`jz done83`
`fail83:`	`fail83:`
`mov P1,#83`	`mov P1,#83`
`ljmp failed`	`ljmp failed`
`done83:`	`done83:`
Line 2444...	Line 2445...

`mov P1,#127 ; All instructions passed`	`mov P1,#127 ; All instructions passed`


`failed:`	`failed:`
	`nop;`
	`nop;`
	`sjmp failed;`

	`end`
`No newline at end of file`	`No newline at end of file`

Browse

Tools

Subversion Repositories 8051

[/] [8051/] [tags/] [rel_12/] [asm/] [testall.asm] - Diff between revs 33 and 91