redcode / z80 Goto Github PK

	/* rrc	.----------------.
		|   .---------.  |   .----.
		'-->| 7 --> 0 |----->| CF |
		    '---------'      '---*/
	case 1:
	cf = value & 1;
	ROR(value);
	break;

	/* rl	.-------------------------.
		|  .----.   .---------.   |
		'--| CF |<--| 7 <-- 0 |<--'
		   '----'   '--------*/
	case 2:
	cf = value >> 7;
	value = (zuint8)((value << 1) | F_C);
	break;

	/* rr	.-------------------------.
		|   .---------.   .----.  |
		'-->| 7 --> 0 |-->| CF |--'
		    '---------'   '---*/
	case 3:
	cf = value & 1;
	value = (zuint8)((value >> 1) | ((zuint8)F_C << 7));
	break;

	/* sla	.----.	 .---------.
		| CF |<--| 7 <-- 0 |<-- 0
		'----'	 '--------*/
	case 4:
	cf = value >> 7;
	value <<= 1;
	break;

	/* sra	    .---------.   .----.
		.-->| 7 --> 0 |-->| CF |
		|   '---------'   '----'
		|     |
		'----*/
	case 5:
	cf = value & 1;
	value = (zuint8)((value & 128) | (value >> 1));
	break;

	/* sll	.----.	 .---------.
		| CF |<--| 7 <-- 0 |<-- 1
		'----'	 '--------*/
	case 6:
	cf = value >> 7;
	value = (zuint8)((value << 1) | 1);
	break;

	/* srl	     .---------.   .----.
		0 -->| 7 --> 0 |-->| CF |
		     '---------'   '---*/
	case 7:
	cf = value & 1;
	value >>= 1;
	break;

	/* Uncoment to avoid compiler warnings */
	/*default: cf = 0;*/
	}