1 /* $NetBSD: gsp_pseu.c,v 1.3 2001/06/13 10:46:06 wiz Exp $ */ 2 /* 3 * GSP assembler - assembler directives 4 * 5 * Copyright (c) 1993 Paul Mackerras. 6 * All rights reserved. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions 10 * are met: 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 3. All advertising materials mentioning features or use of this software 17 * must display the following acknowledgement: 18 * This product includes software developed by Paul Mackerras. 19 * 4. The name of the author may not be used to endorse or promote products 20 * derived from this software without specific prior written permission 21 * 22 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 23 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 24 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 25 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 26 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 27 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 28 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 29 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 30 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 31 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 32 */ 33 34 #include <sys/cdefs.h> 35 #ifndef lint 36 __RCSID("$NetBSD: gsp_pseu.c,v 1.3 2001/06/13 10:46:06 wiz Exp $"); 37 #endif 38 39 #include "gsp_ass.h" 40 #include "gsp_code.h" 41 42 extern unsigned highest_pc, line_pc; 43 44 void 45 pseudo(int code, operand ops) 46 { 47 operand o; 48 int32_t val; 49 unsigned ln; 50 u_int16_t words[2]; 51 52 switch( code ){ 53 case ORG: 54 if( ops == NULL ) 55 break; 56 if( ops->type != EXPR ){ 57 perr("Inappropriate operand"); 58 break; 59 } 60 if( !eval_expr(ops->op_u.value, &val, &ln) ){ 61 p1err("ORG operand must be defined on pass 1"); 62 break; 63 } 64 if( pc > highest_pc ) 65 highest_pc = pc; 66 line_pc = pc = val; 67 do_list_pc(); 68 break; 69 #ifdef EQU 70 case EQU: 71 if( label == NULL ){ 72 perr("Label required"); 73 break; 74 } 75 if( ops == NULL ) 76 break; 77 if( ops->type != EXPR ){ 78 perr("Inappropriate operand"); 79 break; 80 } 81 do_asg(label, ops->op_u.value, 0); 82 break; 83 #endif /* EQU */ 84 case WORD: 85 case LONG: 86 if( ops == NULL ) 87 break; 88 for( o = ops; o != NULL; o = o->next ){ 89 if( o->type != EXPR ){ 90 perr("Inappropriate operand"); 91 continue; 92 } 93 if( pass2 ){ 94 eval_expr(o->op_u.value, &val, &ln); 95 words[0] = val; 96 if( code == LONG ){ 97 words[1] = val >> 16; 98 putcode(words, 2); 99 } else { 100 if( val < -32768 || val > 65535 ) 101 perr("Word value too large"); 102 putcode(words, 1); 103 } 104 } else 105 pc += code == LONG? 0x20: 0x10; 106 } 107 return; 108 case INCL: 109 if( ops == NULL ) 110 break; 111 if( ops->type != STR_OPN ){ 112 perr("Require filename string"); 113 break; 114 } 115 push_input(ops->op_u.string); 116 break; 117 case BLKB: 118 case BLKW: 119 case BLKL: 120 if( ops == NULL ) 121 break; 122 if( ops->type != EXPR ){ 123 perr("Inappropriate operand"); 124 break; 125 } 126 if( !eval_expr(ops->op_u.value, &val, &ln) ){ 127 p1err(".BLK%c operand must be defined on pass 1", 128 code==BLKB? 'B': code==BLKW? 'W': 'L'); 129 break; 130 } 131 val *= 8; 132 if( code == BLKB ) 133 val = (val + 8) & ~15; /* round to word */ 134 else 135 val *= (code==BLKW? 2: 4); 136 pc += val; 137 do_list_pc(); 138 break; 139 case START: 140 if( !pass2 || ops == NULL ) 141 break; 142 if( ops->type != EXPR ){ 143 perr("Inappropriate operand"); 144 break; 145 } 146 eval_expr(ops->op_u.value, &val, &ln); 147 start_at(val); 148 do_show_val(val); 149 break; 150 } 151 if( ops == NULL ) 152 perr("Insufficient operands"); 153 else if( ops->next != NULL ) 154 perr("Extra operands ignored"); 155 } 156