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

Subversion Repositories 8051

[/] [8051/] [tags/] [rel_1/] [asm/] [testall.asm] - Diff between revs 24 and 33

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

Rev 24	Rev 33
Line 33...	Line 33...
`mov r2,#127`	`mov r2,#127`
`mov r3,#128`	`mov r3,#128`
`mov r5,#245`	`mov r5,#245`
`mov r7,#250`	`mov r7,#250`

	`mov a,#10`
`add a,r0`	`add a,r0`
`jc fail2`	`jc fail2`
`subb a,#127`	`subb a,#127`
`jnz fail2`	`jnz fail2`

	`mov a,#10`
`add a,r2`	`add a,r2`
`jc fail2`	`jc fail2`
`subb a,#137`	`subb a,#137`
`jnz fail2`	`jnz fail2`

	`mov a,#10`
`add a,r3`	`add a,r3`
`jc fail2`	`jc fail2`
`subb a,#138`	`subb a,#138`
`jnz fail2`	`jnz fail2`

	`mov a,#10`
`add a,r5`	`add a,r5`
`jc fail2`	`jc fail2`
`subb a,#255`	`subb a,#255`
`jnz fail2`	`jnz fail2`

	`mov a,#10`
`add a,r7`	`add a,r7`
`jnc fail2`	`jnc fail2`
`clr c`	`clr c`
`subb a,#4`	`subb a,#4`
`jnz fail2`	`jnz fail2`
Line 109...	Line 114...
`jc fail3`	`jc fail3`
`subb a,#127`	`subb a,#127`
`jnz fail3`	`jnz fail3`

`mov 100,#127`	`mov 100,#127`
	`mov a,#10`
`add a,100`	`add a,100`
`jc fail3`	`jc fail3`
`subb a,#137`	`subb a,#137`
`jnz fail3`	`jnz fail3`

`mov 100,#128`	`mov 100,#128`
	`mov a,#10`
`add a,100`	`add a,100`
`jc fail3`	`jc fail3`
`subb a,#138`	`subb a,#138`
`jnz fail3`	`jnz fail3`

`mov 100,#245`	`mov 100,#245`
	`mov a,#10`
`add a,100`	`add a,100`
`jc fail3`	`jc fail3`
`subb a,#255`	`subb a,#255`
`jnz fail3`	`jnz fail3`

`mov 100,#250`	`mov 100,#250`
	`mov a,#10`
`add a,100`	`add a,100`
`jnc fail3`	`jnc fail3`
`clr c`	`clr c`
`subb a,#4`	`subb a,#4`
`jnz fail3`	`jnz fail3`
Line 188...	Line 197...
`add a,@r0`	`add a,@r0`
`jc fail4`	`jc fail4`
`subb a,#50`	`subb a,#50`
`jnz fail4`	`jnz fail4`

	`mov a,#40`
`add a,@r1`	`add a,@r1`
`jc fail4`	`jc fail4`
`subb a,#140`	`subb a,#140`
`jnz fail4`	`jnz fail4`

	`mov a,#10`
`mov r1,#102`	`mov r1,#102`
`mov 102,#200`	`mov 102,#250`
`add a,@r1`	`add a,@r1`
`jnc fail4`	`jnc fail4`
`clr c`	`clr c`
`subb a,#240`	`subb a,#4`
`jnz fail4`	`jnz fail4`
`ljmp done4`	`ljmp done4`

`fail4:`	`fail4:`
`mov P1,#4`	`mov P1,#4`
Line 217...	Line 228...
`add a,#117`	`add a,#117`
`jc fail5`	`jc fail5`
`subb a,#127`	`subb a,#127`
`jnz fail5`	`jnz fail5`

	`mov a,#10`
`add a,#127`	`add a,#127`
`jc fail5`	`jc fail5`
`subb a,#137`	`subb a,#137`
`jnz fail5`	`jnz fail5`

	`mov a,#10`
`add a,#128`	`add a,#128`
`jc fail5`	`jc fail5`
`subb a,#138`	`subb a,#138`
`jnz fail5`	`jnz fail5`

	`mov a,#10`
`add a,#245`	`add a,#245`
`jc fail5`	`jc fail5`
`subb a,#255`	`subb a,#255`
`jnz fail5`	`jnz fail5`

	`mov a,#10`
`add a,#250`	`add a,#250`
`jnc fail5`	`jnc fail5`
`clr c`	`clr c`
`subb a,#4`	`subb a,#4`
`jnz fail5`	`jnz fail5`
Line 291...	Line 306...
`addc a,r0`	`addc a,r0`
`jc fail6`	`jc fail6`
`subb a,#20`	`subb a,#20`
`jnz fail6`	`jnz fail6`

	`mov a,#10`
`setb c`	`setb c`
`addc a,r0`	`addc a,r0`
`jc fail6`	`jc fail6`
`subb a,#21`	`subb a,#21`
`jnz fail6`	`jnz fail6`
Line 304...	Line 320...
`addc a,r0`	`addc a,r0`
`jc fail6`	`jc fail6`
`subb a,#110`	`subb a,#110`
`jnz fail6`	`jnz fail6`

	`mov a,#100`
`setb c`	`setb c`
`addc a,r0`	`addc a,r0`
`jc fail6`	`jc fail6`
`subb a,#111`	`subb a,#111`
`jnz fail6`	`jnz fail6`
Line 318...	Line 335...
`jnc fail6`	`jnc fail6`
`clr c`	`clr c`
`subb a,#4`	`subb a,#4`
`jnz fail6`	`jnz fail6`

	`mov a,#250`
`setb c`	`setb c`
`addc a,r0`	`addc a,r0`
`jnc fail6`	`jnc fail6`
`clr c`	`clr c`
`subb a,#5`	`subb a,#5`
Line 343...	Line 361...
`addc a,100`	`addc a,100`
`jc fail7`	`jc fail7`
`subb a,#20`	`subb a,#20`
`jnz fail7`	`jnz fail7`

	`mov a,#10`
`setb c`	`setb c`
`addc a,100`	`addc a,100`
`jc fail7`	`jc fail7`
`subb a,#21`	`subb a,#21`
`jnz fail7`	`jnz fail7`
Line 356...	Line 375...
`addc a,100`	`addc a,100`
`jc fail7`	`jc fail7`
`subb a,#110`	`subb a,#110`
`jnz fail7`	`jnz fail7`

	`mov a,#100`
`setb c`	`setb c`
`addc a,100`	`addc a,100`
`jc fail7`	`jc fail7`
`subb a,#111`	`subb a,#111`
`jnz fail7`	`jnz fail7`
Line 370...	Line 390...
`jnc fail7`	`jnc fail7`
`clr c`	`clr c`
`subb a,#4`	`subb a,#4`
`jnz fail7`	`jnz fail7`

	`mov a,#250`
`setb c`	`setb c`
`addc a,100`	`addc a,100`
`jnc fail7`	`jnc fail7`
`clr c`	`clr c`
`subb a,#5`	`subb a,#5`
Line 396...	Line 417...
`addc a,@r0`	`addc a,@r0`
`jc fail8`	`jc fail8`
`subb a,#21`	`subb a,#21`
`jnz fail8`	`jnz fail8`

	`mov a,#10`
`setb c`	`setb c`
`addc a,@r0`	`addc a,@r0`
`jc fail8`	`jc fail8`
`subb a,#22`	`subb a,#22`
`jnz fail8`	`jnz fail8`
Line 409...	Line 431...
`addc a,@r0`	`addc a,@r0`
`jc fail8`	`jc fail8`
`subb a,#111`	`subb a,#111`
`jnz fail8`	`jnz fail8`

	`mov a,#100`
`setb c`	`setb c`
`addc a,@r0`	`addc a,@r0`
`jc fail8`	`jc fail8`
`subb a,#112`	`subb a,#112`
`jnz fail8`	`jnz fail8`
Line 423...	Line 446...
`jnc fail8`	`jnc fail8`
`clr c`	`clr c`
`subb a,#5`	`subb a,#5`
`jnz fail8`	`jnz fail8`

	`mov a,#250`
`setb c`	`setb c`
`addc a,@r0`	`addc a,@r0`
`jnc fail8`	`jnc fail8`
`clr c`	`clr c`
`subb a,#6`	`subb a,#6`
Line 448...	Line 472...
`addc a,#14`	`addc a,#14`
`jc fail9`	`jc fail9`
`subb a,#28`	`subb a,#28`
`jnz fail9`	`jnz fail9`

	`mov a,#14`
`setb c`	`setb c`
`addc a,#15`	`addc a,#15`
`jc fail9`	`jc fail9`
`subb a,#30`	`subb a,#30`
`jnz fail9`	`jnz fail9`
Line 461...	Line 486...
`addc a,#20`	`addc a,#20`
`jc fail9`	`jc fail9`
`subb a,#130`	`subb a,#130`
`jnz fail9`	`jnz fail9`

	`mov a,#110`
`setb c`	`setb c`
`addc a,#20`	`addc a,#20`
`jc fail9`	`jc fail9`
`subb a,#131`	`subb a,#131`
`jnz fail9`	`jnz fail9`
Line 475...	Line 501...
`jnc fail9`	`jnc fail9`
`clr c`	`clr c`
`subb a,#5`	`subb a,#5`
`jnz fail9`	`jnz fail9`

	`mov a,#250`
`setb c`	`setb c`
`addc a,#11`	`addc a,#11`
`jnc fail9`	`jnc fail9`
`clr c`	`clr c`
`subb a,#6`	`subb a,#6`
Line 508...	Line 535...
`clr c`	`clr c`
`clr a`	`clr a`
`mov a,#171`	`mov a,#171`
`anl a,r0`	`anl a,r0`
`jc fail11`	`jc fail11`
`jnz fail11`	`jz fail11`
`subb a,#166`	`subb a,#170`
`jnz fail11`	`jnz fail11`

`mov r0,#190`	`mov r0,#190`
`mov a,#84`	`mov a,#84`
`inc a`	`inc a`
`setb c`	`setb c`
`anl a,r0`	`anl a,r0`
`jz fail11`	`jz fail11`
`jnc fail11`	`jnc fail11`
`clr c`	`clr c`
`subb a,#0`	`subb a,#20`
`jnz fail11`	`jnz fail11`
`ljmp done11`	`ljmp done11`

`fail11:`	`fail11:`
`mov P1,#11`	`mov P1,#11`
Line 538...	Line 565...
`clr c`	`clr c`
`clr a`	`clr a`
`mov a,#171`	`mov a,#171`
`anl a,127`	`anl a,127`
`jc fail12`	`jc fail12`
`jnz fail12`	`jz fail12`
`subb a,#166`	`subb a,#170`
`jnz fail12`	`jnz fail12`

`mov 127,#190`	`mov 127,#190`
`mov a,#84`	`mov a,#84`
`inc a`	`inc a`
`setb c`	`setb c`
`anl a,127`	`anl a,127`
`jz fail12`	`jz fail12`
`jnc fail12`	`jnc fail12`
`clr c`	`clr c`
`subb a,#0`	`subb a,#20`
`jnz fail12`	`jnz fail12`
`ljmp done12`	`ljmp done12`

`fail12:`	`fail12:`
`mov P1,#12`	`mov P1,#12`
Line 569...	Line 596...
`clr a`	`clr a`
`mov 127,#171`	`mov 127,#171`
`mov a,#250`	`mov a,#250`
`anl a,@r0`	`anl a,@r0`
`jc fail13`	`jc fail13`
`jnz fail13`	`jz fail13`
`subb a,#166`	`subb a,#170`
`jnz fail13`	`jnz fail13`

`mov 127,#190`	`mov 127,#190`
`mov a,#84`	`mov a,#84`
`inc a`	`inc a`
`setb c`	`setb c`
`anl a,@r0`	`anl a,@r0`
`jz fail13`	`jz fail13`
`jnc fail13`	`jnc fail13`
`clr c`	`clr c`
`subb a,#0`	`subb a,#20`
`jnz fail13`	`jnz fail13`
`ljmp done13`	`ljmp done13`

`fail13:`	`fail13:`
`anl a,@r0`	`anl a,@r0`
Line 600...	Line 627...
`clr c`	`clr c`
`clr a`	`clr a`
`mov a,#250`	`mov a,#250`
`anl a,#171`	`anl a,#171`
`jc fail14`	`jc fail14`
`jnz fail14`	`jz fail14`
`subb a,#166`	`subb a,#170`
`jnz fail14`	`jnz fail14`

`mov a,#190`	`mov a,#190`
`mov a,#84`	`mov a,#84`
`inc a`	`inc a`
`setb c`	`setb c`
`anl a,@r0`	`anl a,@r0`
`jz fail14`	`jz fail14`
`jnc fail14`	`jnc fail14`
`clr c`	`clr c`
`subb a,#0`	`subb a,#20`
`jnz fail14`	`jnz fail14`
`ljmp done14`	`ljmp done14`

`fail14:`	`fail14:`
`subb a,#255`	`subb a,#255`
Line 633...	Line 660...
`clr a`	`clr a`
`mov a,#171`	`mov a,#171`
`anl 127,a`	`anl 127,a`
`jc fail15`	`jc fail15`
`mov a,127`	`mov a,127`
`jnz fail15`	`jz fail15`
`subb a,#166`	`subb a,#170`
`jnz fail15`	`jnz fail15`

`mov 127,#190`	`mov 127,#190`
`mov a,#84`	`mov a,#84`
`inc a`	`inc a`
Line 646...	Line 673...
`anl 127,a`	`anl 127,a`
`mov a,127`	`mov a,127`
`jz fail15`	`jz fail15`
`jnc fail15`	`jnc fail15`
`clr c`	`clr c`
`subb a,#0`	`subb a,#20`
`jnz fail15`	`jnz fail15`
`ljmp done15`	`ljmp done15`

`fail15:`	`fail15:`
`mov P1,#15`	`mov P1,#15`
Line 664...	Line 691...
`clr c`	`clr c`
`clr a`	`clr a`
`anl 127,#171`	`anl 127,#171`
`jc fail16`	`jc fail16`
`mov a,127`	`mov a,127`
`jnz fail16`	`jz fail16`
`subb a,#166`	`subb a,#170`
`jnz fail16`	`jnz fail16`

`mov 127,#190`	`mov 127,#190`
`mov a,#84`
`inc a`
`setb c`	`setb c`
`anl 127,#85`	`anl 127,#85`
`mov a,127`	`mov a,127`
`jz fail16`	`jz fail16`
`jnc fail16`	`jnc fail16`
`clr c`	`clr c`
`subb a,#0`	`subb a,#20`
`jnz fail16`	`jnz fail16`
`ljmp done16`	`ljmp done16`

`fail16:`	`fail16:`
`mov P1,#16`	`mov P1,#16`
Line 710...	Line 735...

`;; anl c,/bit (18)`	`;; anl c,/bit (18)`
`mov a,#128`	`mov a,#128`
`clr c`	`clr c`
`anl c,/acc.7`	`anl c,/acc.7`
`jnc fail18`	`jc fail18`
`mov a,#128`	`mov a,#128`
`setb c`	`setb c`
`anl c,/acc.7`	`anl c,/acc.7`
`jc fail18`	`jc fail18`
	`mov a,#128`
	`setb c`
	`anl c,/acc.5`
	`jnc fail18`
`ljmp done18`	`ljmp done18`

`fail18:`	`fail18:`
`mov P1,#17`	`mov P1,#18`
`ljmp failed`	`ljmp failed`
`done18:`	`done18:`

`;;;;;;;;;;;;;;;; INST 19 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 19 ;;;;;;;;;;;;;;;;;;;;;;;`

Line 808...	Line 837...
`;; cjne @Ri,#data,rel (22)`	`;; cjne @Ri,#data,rel (22)`
`mov 125,#99`	`mov 125,#99`
`mov 126,#100`	`mov 126,#100`
`mov 127,#101`	`mov 127,#101`
`mov r1,#125`	`mov r1,#125`
`cjne @r1,#100,fail22`	`cjne @r1,#100, CHECK_EQ_22`
`jc fail22`

`mov r1,#126`
`cjne @r1,#100,CHECK_C_22`
`ljmp fail22`	`ljmp fail22`
`CHECK_C_22: ;Checks that carry was set`
	`CHECK_EQ_22:`
`jnc fail22`	`jnc fail22`
	`mov r1,#126`
	`cjne @r1,#100,fail22`
	`jc fail22`

`mov r1,#127`	`mov r1,#127`
`cjne @r1,#100,CHECK_NC_22`	`cjne @r1,#100,CHECK_NC_22`
`ljmp fail22`	`ljmp fail22`

Line 866...	Line 895...
`done24:`	`done24:`

`;;;;;;;;;;;;;;;; INST 25 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 25 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; clr bit (25)`	`;; clr bit (25)`
`setb a.7`	`mov a, #02h`
`clr a.7`	`jz fail25`
	`clr acc.1`
	`jnz fail25`

	`setb 7`
	`mov c, 7`
	`jc clr1;`
	`ljmp fail25;`
	`clr1:`
	`clr 7`
	`mov c, 7`
`jc fail25`	`jc fail25`
`clr a.7`	`clr 7`
	`mov c, 7`
`jc fail25`	`jc fail25`
`ljmp done25`	`ljmp done25`

`fail25:`	`fail25:`
`mov P1,#25`	`mov P1,#25`
Line 888...	Line 928...
`jnz fail26`	`jnz fail26`

`mov a,#85`	`mov a,#85`
`cpl a`	`cpl a`
`clr c`	`clr c`
`subb a,#190`	`subb a,#170`
`jnz fail26`	`jnz fail26`
`ljmp done26`	`ljmp done26`

`fail26:`	`fail26:`
`mov P1,#26`	`mov P1,#26`
Line 917...	Line 957...

`;;;;;;;;;;;;;;;; INST 28 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 28 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; cpl bit (28)`	`;; cpl bit (28)`
`clr a`	`clr a`
`setb a.5`	`setb acc.5`
`cpl a.5`	`cpl acc.5`
`jnz fail28`	`jnz fail28`
`clr a.5`	`clr acc.5`
`cpl a.5`	`cpl acc.5`
`jz fail28`	`jz fail28`
`ljmp done28`	`ljmp done28`

`fail28:`	`fail28:`
`mov P1,#28`	`mov P1,#28`
Line 933...	Line 973...
`done28:`	`done28:`

`;;;;;;;;;;;;;;;; INST 29 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 29 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; DA a (29)`	`;; DA a (29)`
`mov a,#0x80`	`mov a,#80h`
`add a,#0x99`	`add a,#99h`
`da a`	`da a`
`subb a,#0x78 ;Will clr acc if c set`	`subb a,#78h ;Will clr acc if c set`
`jz done29`	`jz done29`
`mov P1,#29`	`mov P1,#29`
`ljmp failed`	`ljmp failed`
`done29:`	`done29:`

Line 1060...	Line 1100...
`jc fail34`	`jc fail34`
`subb a,#13`	`subb a,#13`
`jnz fail34`	`jnz fail34`
`mov a,B`	`mov a,B`
`subb a,#17`	`subb a,#17`
`ljmp fail34`	`jnz fail34`

`mov a,#180`	`mov a,#180`
`mov B,#15`	`mov B,#15`
`div AB`	`div AB`
`jc fail34`	`jc fail34`
`mov c,OV`	`mov c,OV`
`jc fail34`	`jc fail34`
`subb a,#12`	`subb a,#12`
`jnz fail34`	`jnz fail34`
`mov a,B`	`mov a,B`
`subb a,#0`	`jnz fail34`
`ljmp fail34`

`mov a,#0`	`mov a,#0`
`mov B,#15`	`mov B,#15`
`div AB`	`div AB`
`jc fail34`	`jc fail34`
`mov c,OV`	`mov c,OV`
`jc fail34`	`jc fail34`
`subb a,#0`
`jnz fail34`	`jnz fail34`
`mov a,B`	`mov a,B`
`subb a,#0`	`subb a,#15`

`mov a,#0`	`mov a,#0`
`mov B,#0`	`mov B,#0`
`div AB`	`div AB`
`jc fail34`	`jc fail34`
Line 1098...	Line 1136...
`mov B,#0`	`mov B,#0`
`div AB`	`div AB`
`jc fail34`	`jc fail34`
`mov c,OV`	`mov c,OV`
`jnc fail34`	`jnc fail34`
`ljmp fail34`	`ljmp done34`
`fail34:`	`fail34:`
`mov P1,#34`	`mov P1,#34`
`ljmp failed`	`ljmp failed`
`done34:`	`done34:`

Line 1145...	Line 1183...
`djnz 127,NOT_JUMP_36 ;Should not jump`	`djnz 127,NOT_JUMP_36 ;Should not jump`
`ajmp done36`	`ajmp done36`
`NOT_JUMP_36:`	`NOT_JUMP_36:`
`mov P1,#36`	`mov P1,#36`
`ljmp failed`	`ljmp failed`

	`done86:`

	`;;;;;;;;;;;;;;;; INST 88 ;;;;;;;;;;;;;;;;;;;;;;;`

	`ljmp done88`
	`clr a`
	`testret: ;; subroutine called from acall and lcall`
	`inc a`
	`ret`
	`clr a`

`done36:`	`done36:`

`;;;;;;;;;;;;;;;;; INST 37 ;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;;; INST 37 ;;;;;;;;;;;;;;;;;;;;;;`

`;; inc a (37)`	`;; inc a (37)`
Line 1161...	Line 1211...

`mov a,#255`	`mov a,#255`
`setb c`	`setb c`
`inc a`	`inc a`
`jnc fail37`	`jnc fail37`
`subb a,#0`
`jnz fail37`	`jnz fail37`
`ljmp done37`	`ljmp done37`

`fail37:`	`fail37:`
`mov P1,#37`	`mov P1,#37`
Line 1186...	Line 1235...
`mov r4,#255`	`mov r4,#255`
`setb c`	`setb c`
`inc r4`	`inc r4`
`jnc fail38`	`jnc fail38`
`mov a,r4`	`mov a,r4`
`subb a,#0`
`jnz fail38`	`jnz fail38`
`ljmp done38`	`ljmp done38`

`fail38:`	`fail38:`
`mov P1,#38`	`mov P1,#38`
Line 1211...	Line 1259...
`mov 127,#255`	`mov 127,#255`
`setb c`	`setb c`
`inc 127`	`inc 127`
`jnc fail39`	`jnc fail39`
`mov a,127`	`mov a,127`
`subb a,#0`
`jnz fail39`	`jnz fail39`
`ljmp done39`	`ljmp done39`

`fail39:`	`fail39:`
`mov P1,#39`	`mov P1,#39`
Line 1237...	Line 1284...
`mov @r1,#255`	`mov @r1,#255`
`setb c`	`setb c`
`inc @r1`	`inc @r1`
`jnc fail40`	`jnc fail40`
`mov a,@r1`	`mov a,@r1`
`subb a,#0`
`jnz fail40`	`jnz fail40`
`ljmp done40`	`ljmp done40`

`fail40:`	`fail40:`
`mov P1,#40`	`mov P1,#40`
Line 1250...	Line 1296...


`;;;;;;;;;;;;;;;;; INST 41 ;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;;; INST 41 ;;;;;;;;;;;;;;;;;;;;;;`

`;; inc dptr (41)`	`;; inc dptr (41)`
`mov dptr,#0x12ff`	`clr c;`
	`mov dptr,#12ffh`
`inc dptr`	`inc dptr`
`mov a,DPH`	`mov a,DPH`
`subb a,#0x13`	`subb a,#13h`
`jz DPH_OK_41`	`jz DPH_OK_41`
`mov P1,#41`	`mov P1,#41`
`ljmp failed`	`ljmp failed`
`DPH_OK_41:`	`DPH_OK_41:`
`mov a,DPL`	`mov a,DPL`
Line 1326...	Line 1373...
`;;;;;;;;;;;;;;;;; INST 46 ;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;;; INST 46 ;;;;;;;;;;;;;;;;;;;;;;`

`;; jnb bit,rel (46)`	`;; jnb bit,rel (46)`
`mov a,#16`	`mov a,#16`
`jnb acc.4,fail42`	`jnb acc.4,fail42`
`jnb acc.5,done42`	`jnb acc.5,done46`
`fail46:`	`fail46:`
`mov P1,#46`	`mov P1,#46`
`ljmp failed`	`ljmp failed`
`done46:`	`done46:`

Line 1342...	Line 1389...
`cpl c`	`cpl c`
`jnc done47`	`jnc done47`
`fail47:`	`fail47:`
`mov P1,#47`	`mov P1,#47`
`ljmp failed`	`ljmp failed`



`done47:`	`done47:`

`;;;;;;;;;;;;;;;;; INST 48 ;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;;; INST 48 ;;;;;;;;;;;;;;;;;;;;;;`

`;; jnz rel (48)`	`;; jnz rel (48)`
Line 1405...	Line 1455...
`mov r0,#10`	`mov r0,#10`
`clr a`	`clr a`
`setb c`	`setb c`
`mov a,r0`	`mov a,r0`
`jnc fail52`	`jnc fail52`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done52`	`jz done52`
`fail52:`	`fail52:`
`mov P1,#52`	`mov P1,#52`
`ljmp failed`	`ljmp failed`
Line 1421...	Line 1472...
`mov 127,#10`	`mov 127,#10`
`clr a`	`clr a`
`setb c`	`setb c`
`mov a,127`	`mov a,127`
`jnc fail53`	`jnc fail53`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done53`	`jz done53`
`fail53:`	`fail53:`
`mov P1,#53`	`mov P1,#53`
`ljmp failed`	`ljmp failed`
Line 1437...	Line 1489...
`mov 127,#10`	`mov 127,#10`
`clr a`	`clr a`
`setb c`	`setb c`
`mov a,@r0`	`mov a,@r0`
`jnc fail54`	`jnc fail54`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done54`	`jz done54`
`fail54:`	`fail54:`
`mov P1,#54`	`mov P1,#54`
`ljmp failed`	`ljmp failed`
Line 1452...	Line 1505...
`;; mov a,#data (55)`	`;; mov a,#data (55)`
`clr a`	`clr a`
`setb c`	`setb c`
`mov a,#10`	`mov a,#10`
`jnc fail55`	`jnc fail55`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done55`	`jz done55`
`fail55:`	`fail55:`
`mov P1,#55`	`mov P1,#55`
`ljmp failed`	`ljmp failed`
Line 1469...	Line 1523...
`setb c`	`setb c`
`mov r0,a`	`mov r0,a`
`jnc fail56`	`jnc fail56`
`clr a`	`clr a`
`mov a,r0`	`mov a,r0`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done56`	`jz done56`
`fail56:`	`fail56:`
`mov P1,#56`	`mov P1,#56`
`ljmp failed`	`ljmp failed`
Line 1485...	Line 1540...
`mov r0,#0`	`mov r0,#0`
`setb c`	`setb c`
`mov r0,127`	`mov r0,127`
`jnc fail57`	`jnc fail57`
`mov a,r0`	`mov a,r0`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done57`	`jz done57`
`fail57:`	`fail57:`
`mov P1,#57`	`mov P1,#57`
`ljmp failed`	`ljmp failed`
Line 1501...	Line 1557...
`clr a`	`clr a`
`setb c`	`setb c`
`mov r0,#10`	`mov r0,#10`
`jnc fail58`	`jnc fail58`
`mov a,r0`	`mov a,r0`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done58`	`jz done58`
`fail58:`	`fail58:`
`mov P1,#58`	`mov P1,#58`
`ljmp failed`	`ljmp failed`
Line 1518...	Line 1575...
`setb c`	`setb c`
`mov 127,a`	`mov 127,a`
`jnc fail59`	`jnc fail59`
`clr a`	`clr a`
`mov a,127`	`mov a,127`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done59`	`jz done59`
`fail59:`	`fail59:`
`mov P1,#59`	`mov P1,#59`
`ljmp failed`	`ljmp failed`
Line 1536...	Line 1594...
`clr a`	`clr a`
`mov 127,r0`	`mov 127,r0`
`jnz fail60`	`jnz fail60`
`jnc fail60`	`jnc fail60`
`mov a,127`	`mov a,127`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done60`	`jz done60`
`fail60:`	`fail60:`
`mov P1,#60`	`mov P1,#60`
`ljmp failed`	`ljmp failed`
Line 1554...	Line 1613...
`setb c`	`setb c`
`mov 126,127`	`mov 126,127`
`jnz fail61`	`jnz fail61`
`jnc fail61`	`jnc fail61`
`mov a,126`	`mov a,126`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done61`	`jz done61`
`fail61:`	`fail61:`
`mov P1,#61`	`mov P1,#61`
`ljmp failed`	`ljmp failed`
Line 1573...	Line 1633...
`setb c`	`setb c`
`mov 126,@r0`	`mov 126,@r0`
`jnz fail62`	`jnz fail62`
`jnc fail62`	`jnc fail62`
`mov a,126`	`mov a,126`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done62`	`jz done62`
`fail62:`	`fail62:`
`mov P1,#62`	`mov P1,#62`
`ljmp failed`	`ljmp failed`
Line 1590...	Line 1651...
`setb c`	`setb c`
`mov 127,#10`	`mov 127,#10`
`jnz fail63`	`jnz fail63`
`jnc fail63`	`jnc fail63`
`mov a,127`	`mov a,127`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done63`	`jz done63`
`fail63:`	`fail63:`
`mov P1,#63`	`mov P1,#63`
`ljmp failed`	`ljmp failed`
Line 1608...	Line 1670...
`setb c`	`setb c`
`mov @r0,a`	`mov @r0,a`
`jnc fail64`	`jnc fail64`
`clr a`	`clr a`
`mov a,127`	`mov a,127`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done64`	`jz done64`
`fail64:`	`fail64:`
`mov P1,#64`	`mov P1,#64`
`ljmp failed`	`ljmp failed`
Line 1627...	Line 1690...
`setb c`	`setb c`
`mov @r0,127`	`mov @r0,127`
`jnc fail65`	`jnc fail65`
`jnz fail65`	`jnz fail65`
`mov a,126`	`mov a,126`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done65`	`jz done65`
`fail65:`	`fail65:`
`mov P1,#65`	`mov P1,#65`
`ljmp failed`	`ljmp failed`
Line 1645...	Line 1709...
`setb c`	`setb c`
`mov @r0,#10`	`mov @r0,#10`
`jnz fail66`	`jnz fail66`
`jnc fail66`	`jnc fail66`
`mov a,127`	`mov a,127`
	`clr c`
`subb a,#10`	`subb a,#10`
`jz done66`	`jz done66`
`fail66:`	`fail66:`
`mov P1,#66`	`mov P1,#66`
`ljmp failed`	`ljmp failed`
Line 1661...	Line 1726...
`clr c`	`clr c`
`mov c,acc.0`	`mov c,acc.0`
`jnc fail67`	`jnc fail67`
`setb c`	`setb c`
`mov c,acc.1`	`mov c,acc.1`
`jc done67`	`jnc done67`
`fail67:`	`fail67:`
`mov P1,#67`	`mov P1,#67`
`ljmp failed`	`ljmp failed`
`done67:`	`done67:`

Line 1743...	Line 1808...

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

`mov a,#111`	`mov a,#111`
`mov B,#87`	`mov B,#87`
`mul AB ; = 0x25b9`	`mul AB ; = 0x25b9`
	`jc fail76`
	`mov c, ov`
`jnc fail76`	`jnc fail76`
`clr c`	`clr c`
`subb a,#0xb9`	`subb a,#0b9h`
`jnz fail76`	`jnz fail76`
`mov a,B`	`mov a,B`
`subb a,#0x25`	`subb a,#25h`
`jnz fail76`	`jnz fail76`

`mov a,#11`	`mov a,#11`
`mov B,#17`	`mov B,#17`
`mul AB ; = 0x00B9`	`mul AB ; = 0x00BB`
	`jc fail76`
	`mov c, ov`
`jc fail76`	`jc fail76`
`clr c`	`clr c`
`subb a,#0xbb`	`subb a,#0bbh`
`jnz fail76`	`jnz fail76`
`mov a,B`	`mov a,B`
`jnz fail76`	`jnz fail76`
`ljmp done76`	`ljmp done76`

Line 1972...	Line 2044...
`ljmp failed`	`ljmp failed`
`done84:`	`done84:`

`;;;;;;;;;;;;;;;; INST 85 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 85 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; orl c,;bit (85)`	`;; orl c,/bit (85)`
`mov a,#1`	`mov a,#1`
	`clr c`
`orl c,/acc.0`	`orl c,/acc.0`
`jc fail85`	`jc fail85`
`orl c,/acc.1`	`orl c,/acc.1`
`jnc fail85`	`jnc fail85`
	`setb c`
`orl c,/acc.0`	`orl c,/acc.0`
`jc done85`	`jc done85`
`fail85:`	`fail85:`
`mov P1,#85`	`mov P1,#85`
`ljmp failed`	`ljmp failed`
`done85:`	`done85:`

`;;;;;;;;;;;;;;;; INST 86,87 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 86,87 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; push direct (87)`	`;; push direct (87)`
`mov dptr,#0x0123`	`clr c`
	`mov dptr,#0123h`
`mov 127,#8`	`mov 127,#8`
`push DPL`	`push DPL`
`push DPH`	`push DPH`
`push 127`	`push 127`
`mov a,8`	`mov a,8`
`subb a,#0x23`	`subb a,#23h`
`jnz fail87`	`jnz fail87`
`mov a,9`	`mov a,9`
`subb a,#1`	`subb a,#1`
`jnz fail87`	`jnz fail87`
`mov a,10`	`mov a,10`
Line 2011...	Line 2086...

`;; pop direct (86)`	`;; pop direct (86)`
`pop SP`	`pop SP`
`pop 100`	`pop 100`
`mov a,100`	`mov a,100`
`subb a,#0x23`	`subb a,#23h`
`jz done86`	`jz done88`
`mov P1,#86`	`mov P1,#86`
`ljmp failed`	`ljmp failed`
`done86:`

`;;;;;;;;;;;;;;;; INST 88 ;;;;;;;;;;;;;;;;;;;;;;;`

`ljmp done88`
`clr a`
`testret: ;; subroutine called from acall and lcall`
`inc a`
`ret`
`clr a`
`done88:`	`done88:`

`;;;;;;;;;;;;;;;; INST 90 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 90 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; rl a (90)`	`;; rl a (90)`
Line 2125...	Line 2191...
`setb c`	`setb c`
`mov a,#100`	`mov a,#100`
`mov r0,#10`	`mov r0,#10`
`subb a,r0 ; 100 - 10 - 1 = 89`	`subb a,r0 ; 100 - 10 - 1 = 89`
`jc fail97`	`jc fail97`
`add a,167 ; 167 + 89 = 0`	`add a,#167 ; 167 + 89 = 0`
`jnz fail97`	`jnz fail97`
`clr c`	`clr c`
`mov a,#10`	`mov a,#10`
`mov r0,#100`	`mov r0,#100`
`subb a,r0 ; 10 - 100 - 0 = 166`	`subb a,r0 ; 10 - 100 - 0 = 166`
`jnc fail97`	`jnc fail97`
`add a,90 ; 166 + 90 = 0`	`add a,#90 ; 166 + 90 = 0`
`jz done97`	`jz done97`
`fail97:`	`fail97:`
`mov P1,#97`	`mov P1,#97`
`ljmp failed`	`ljmp failed`
`done97:`	`done97:`
Line 2147...	Line 2213...
`setb c`	`setb c`
`mov a,#100`	`mov a,#100`
`mov 127,#10`	`mov 127,#10`
`subb a,127 ; 100 - 10 - 1 = 89`	`subb a,127 ; 100 - 10 - 1 = 89`
`jc fail98`	`jc fail98`
`add a,167 ; 167 + 89 = 0`	`add a,#167 ; 167 + 89 = 0`
`jnz fail98`	`jnz fail98`
`clr c`	`clr c`
`mov a,#10`	`mov a,#10`
`mov 127,#100`	`mov 127,#100`
`subb a,127 ; 10 - 100 - 0 = 166`	`subb a,127 ; 10 - 100 - 0 = 166`
`jnc fail98`	`jnc fail98`
`add a,90 ; 166 + 90 = 0`	`add a,#90 ; 166 + 90 = 0`
`jz done98`	`jz done98`
`fail98:`	`fail98:`
`mov P1,#98`	`mov P1,#98`
`ljmp failed`	`ljmp failed`
`done98:`	`done98:`
Line 2170...	Line 2236...
`mov r0,#126`	`mov r0,#126`
`mov a,#100`	`mov a,#100`
`mov @r0,#10`	`mov @r0,#10`
`subb a,@r0 ; 100 - 10 - 1 = 89`	`subb a,@r0 ; 100 - 10 - 1 = 89`
`jc fail99`	`jc fail99`
`add a,167 ; 167 + 89 = 0`	`add a,#167 ; 167 + 89 = 0`
`jnz fail99`	`jnz fail99`
`clr c`	`clr c`
`mov a,#10`	`mov a,#10`
`mov @r0,#100`	`mov @r0,#100`
`subb a,@r0 ; 10 - 100 - 0 = 166`	`subb a,@r0 ; 10 - 100 - 0 = 166`
`jnc fail99`	`jnc fail99`
`add a,90 ; 166 + 90 = 0`	`add a,#90 ; 166 + 90 = 0`
`jz done99`	`jz done99`
`fail99:`	`fail99:`
`mov P1,#99`	`mov P1,#99`
`ljmp failed`	`ljmp failed`
`done99:`	`done99:`
Line 2192...	Line 2258...
`;; subb a,#data (100)`	`;; subb a,#data (100)`
`setb c`	`setb c`
`mov a,#100`	`mov a,#100`
`subb a,#10 ; 100 - 10 - 1 = 89`	`subb a,#10 ; 100 - 10 - 1 = 89`
`jc fail100`	`jc fail100`
`add a,167 ; 167 + 89 = 0`	`add a,#167 ; 167 + 89 = 0`
`jnz fail100`	`jnz fail100`
`clr c`	`clr c`
`mov a,#10`	`mov a,#10`
`subb a,#100 ; 10 - 100 - 0 = 166`	`subb a,#100 ; 10 - 100 - 0 = 166`
`jnc fail100`	`jnc fail100`
`add a,90 ; 166 + 90 = 0`	`add a,#90 ; 166 + 90 = 0`
`jz done100`	`jz done100`
`fail100:`	`fail100:`
`mov P1,#100`	`mov P1,#100`
`ljmp failed`	`ljmp failed`
`done100:`	`done100:`

`;;;;;;;;;;;;;;;; INST 101 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 101 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; swap a (101)`	`;; swap a (101)`
`clr c`	`clr c`
`mov a,#0x23`	`mov a,#23h`
`swap a`	`swap a`
`jc fail101`	`jc fail101`
`subb a,#0x32`	`subb a,#32h`
`jnz fail101`	`jnz fail101`
`mov a,#0xC3`	`mov a,#0C3h`
`setb c`	`setb c`
`swap a`	`swap a`
`jnc fail101`	`jnc fail101`
`subb a,#0x3C`	`clr c`
	`subb a,#3Ch`
`jz done101`	`jz done101`
`fail101:`	`fail101:`
`mov P1,#101`	`mov P1,#101`
`ljmp failed`	`ljmp failed`
`done101:`	`done101:`
Line 2277...	Line 2344...
`done104:`	`done104:`

`;;;;;;;;;;;;;;;; INST 105 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 105 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; xchd a,@Ri (105)`	`;; xchd a,@Ri (105)`
`mov a,#0x44`	`mov a,#44h`
`mov r0,#127`	`mov r0,#127`
`mov 127,#0x55`	`mov 127,#55h`
`xchd a,@r0`	`xchd a,@r0`
`subb a,#0x45`	`subb a,#45h`
`jnz fail105`	`jnz fail105`
`mov a,127`	`mov a,127`
`subb a,#0x54`	`subb a,#54h`
`jz done105`	`jz done105`
`fail105:`	`fail105:`
`mov P1,#105`	`mov P1,#105`
`ljmp failed`	`ljmp failed`
`done105:`	`done105:`


`;;;;;;;;;;;;;;;; INST 106 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 106 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; xrl a,Rn (106)`	`;; xrl a,Rn (106)`
`mov a,#0x35`	`mov a,#35h`
`mov r0,#0xC3`	`mov r0,#0C3h`
`xrl a,r0`	`xrl a,r0`
`subb a,#0xF6`	`subb a,#0F6h`
`jz done106`	`jz done106`
`mov P1,#106`	`mov P1,#106`
`ljmp failed`	`ljmp failed`
`done106:`	`done106:`

`;;;;;;;;;;;;;;;; INST 107 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 107 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; xrl a,direct (107)`	`;; xrl a,direct (107)`
`mov a,#0xC3`	`mov a,#0C3h`
`mov 127,#0x35`	`mov 127,#35h`
`xrl a,127`	`xrl a,127`
`subb a,#0xF6`	`subb a,#0F6h`
`jz done107`	`jz done107`
`mov P1,#107`	`mov P1,#107`
`ljmp failed`	`ljmp failed`
`done107:`	`done107:`


`;;;;;;;;;;;;;;;; INST 108 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 108 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; xrl a,@Ri (108)`	`;; xrl a,@Ri (108)`
`mov a,#0x35`	`mov a,#35h`
`mov r0,#127`	`mov r0,#127`
`mov 127,#0xC3`	`mov 127,#0C3h`
`xrl a,@r0`	`xrl a,@r0`
`subb a,#0xF6`	`subb a,#0F6h`
`jz done108`	`jz done108`
`mov P1,#108`	`mov P1,#108`
`ljmp failed`	`ljmp failed`
`done108:`	`done108:`


`;;;;;;;;;;;;;;;; INST 109 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 109 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; xrl a,#data (109)`	`;; xrl a,#data (109)`
`mov a,#0x35`	`mov a,#35h`
`xrl a,#0xC3`	`xrl a,#0C3h`
`subb a,#0xF6`	`subb a,#0F6h`
`jz done109`	`jz done109`
`mov P1,#109`	`mov P1,#109`
`ljmp failed`	`ljmp failed`
`done109:`	`done109:`


`;;;;;;;;;;;;;;;; INST 110 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 110 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; xrl direct,a (110)`	`;; xrl direct,a (110)`
`mov a,#0x35`	`mov a,#35h`
`mov 127,#0xC3`	`mov 127,#0C3h`
`xrl 127,a`	`xrl 127,a`
`clr a`	`clr a`
`mov a,127`	`mov a,127`
`subb a,#0xF6`	`subb a,#0F6h`
`jz done110`	`jz done110`
`mov P1,#110`	`mov P1,#110`
`ljmp failed`	`ljmp failed`
`done110:`	`done110:`


`;;;;;;;;;;;;;;;; INST 111 ;;;;;;;;;;;;;;;;;;;;;;;`	`;;;;;;;;;;;;;;;; INST 111 ;;;;;;;;;;;;;;;;;;;;;;;`

`;; xrl direct,#data (111)`	`;; xrl direct,#data (111)`
`mov 127,#0x35`	`mov 127,#35h`
`xrl 127,#0xC3`	`xrl 127,#0C3h`
`mov a,127`	`mov a,127`
`subb a,#0xF6`	`subb a,#0F6h`
`jz done111`	`jz done111`
`mov P1,#111`	`mov P1,#111`
`ljmp failed`	`ljmp failed`
`done111:`	`done111:`

Browse

Tools

Subversion Repositories 8051

[/] [8051/] [tags/] [rel_1/] [asm/] [testall.asm] - Diff between revs 24 and 33