up 289 src/decNumber/decNumber.c Unit *up; // work pointer up 292 src/decNumber/decNumber.c for (up=dn->lsu; uin>0; up++) { up 293 src/decNumber/decNumber.c *up=(Unit)(uin%(DECDPUNMAX+1)); up 296 src/decNumber/decNumber.c dn->digits=decGetDigits(dn->lsu, up-dn->lsu); up 315 src/decNumber/decNumber.c const Unit *up; // .. up 317 src/decNumber/decNumber.c up=dn->lsu; // -> lsu up 318 src/decNumber/decNumber.c lo=*up; // get 1 to 9 digits up 323 src/decNumber/decNumber.c up++; up 325 src/decNumber/decNumber.c for (d=DECDPUN; d<dn->digits; up++, d+=DECDPUN) hi+=*up*powers[d-1]; up 348 src/decNumber/decNumber.c const Unit *up; // .. up 350 src/decNumber/decNumber.c up=dn->lsu; // -> lsu up 351 src/decNumber/decNumber.c lo=*up; // get 1 to 9 digits up 356 src/decNumber/decNumber.c up++; up 358 src/decNumber/decNumber.c for (d=DECDPUN; d<dn->digits; up++, d+=DECDPUN) hi+=*up*powers[d-1]; up 425 src/decNumber/decNumber.c Unit *up; // .. up 585 src/decNumber/decNumber.c up=res+D2U(d)-1; // -> msu up 586 src/decNumber/decNumber.c cut=d-(up-res)*DECDPUN; // digits in top unit up 593 src/decNumber/decNumber.c *up=(Unit)out; // write unit up 594 src/decNumber/decNumber.c up--; // prepare for unit below.. up 598 src/decNumber/decNumber.c *up=(Unit)out; // write lsu up 602 src/decNumber/decNumber.c up=res; // -> lsu up 605 src/decNumber/decNumber.c *up=(Unit)((Int)*c-(Int)'0'); up 606 src/decNumber/decNumber.c up++; up 3252 src/decNumber/decNumber.c const Unit *up=dn->lsu; // Unit pointer, -> lsu up 3255 src/decNumber/decNumber.c for (; ub>=bcd; ub--, up++) *ub=*up; up 3257 src/decNumber/decNumber.c uInt u=*up; // work up 3264 src/decNumber/decNumber.c up++; up 3265 src/decNumber/decNumber.c u=*up; up 3285 src/decNumber/decNumber.c Unit *up=dn->lsu+D2U(dn->digits)-1; // -> msu [target pointer] up 3289 src/decNumber/decNumber.c for (; ub<bcd+n; ub++, up--) *up=*ub; up 3293 src/decNumber/decNumber.c for (;up>=dn->lsu; up--) { // each Unit from msu up 3294 src/decNumber/decNumber.c *up=0; // will take <=DECDPUN digits up 3295 src/decNumber/decNumber.c for (; cut>0; ub++, cut--) *up=X10(*up)+*ub; up 3404 src/decNumber/decNumber.c const Unit *up=dn->lsu+D2U(dn->digits)-1; // -> msu [input pointer] up 3434 src/decNumber/decNumber.c for (;up>=dn->lsu; up--) { // each Unit from msu up 3435 src/decNumber/decNumber.c u=*up; // contains DECDPUN digits to lay out up 3474 src/decNumber/decNumber.c u=*up; up 3479 src/decNumber/decNumber.c if (up==dn->lsu) break; // out of input digits (pre>digits) up 3480 src/decNumber/decNumber.c up--; up 3482 src/decNumber/decNumber.c u=*up; up 3490 src/decNumber/decNumber.c if (up==dn->lsu) break; // out of input digits up 3491 src/decNumber/decNumber.c up--; up 3493 src/decNumber/decNumber.c u=*up; up 3506 src/decNumber/decNumber.c if (up==dn->lsu) break; // out of input digits up 3507 src/decNumber/decNumber.c up--; up 3509 src/decNumber/decNumber.c u=*up; up 4442 src/decNumber/decNumber.c Unit *up; // .. up 4461 src/decNumber/decNumber.c for (up=accnext; up<accnext+tarunits; up++) { up 4463 src/decNumber/decNumber.c half=*up & 0x01; up 4464 src/decNumber/decNumber.c *up/=2; // [shift] up 4466 src/decNumber/decNumber.c *(up-1)+=(DECDPUNMAX+1)/2; up 4478 src/decNumber/decNumber.c for (up=quotlsu; ; up++) { up 4480 src/decNumber/decNumber.c if (*up!=DECDPUNMAX) break;// non-nines up 4483 src/decNumber/decNumber.c if (*up==powers[quotdigits]-1) allnines=1; up 4625 src/decNumber/decNumber.c Unit *up; // .. up 4791 src/decNumber/decNumber.c for (lp=zacc, up=acc; lp<zacc+iacc; lp++) { up 4793 src/decNumber/decNumber.c for (p=0; p<FASTDIGS-DECDPUN; p+=DECDPUN, up++) { up 4795 src/decNumber/decNumber.c *up=(Unit)(item-(part*(DECDPUNMAX+1))); up 4798 src/decNumber/decNumber.c *up=(Unit)item; up++; // [final needs no division] up 4800 src/decNumber/decNumber.c accunits=up-acc; // count of units up 6291 src/decNumber/decNumber.c Unit *up; // -> current Unit up 6304 src/decNumber/decNumber.c up=dn->lsu; // -> current Unit up 6308 src/decNumber/decNumber.c uInt quot=QUOT10(*up, cut); up 6309 src/decNumber/decNumber.c if ((*up-quot*powers[cut])!=0) break; // found non-0 digit up 6311 src/decNumber/decNumber.c if (*up%powers[cut]!=0) break; // found non-0 digit up 6323 src/decNumber/decNumber.c up++; up 6434 src/decNumber/decNumber.c Unit *target, *up; // work up 6447 src/decNumber/decNumber.c up=uar+D2U(shift); up 6448 src/decNumber/decNumber.c for (; up<uar+units; target++, up++) *target=*up; up 6453 src/decNumber/decNumber.c up=uar+D2U(shift-cut); // source; correct to whole Units up 6456 src/decNumber/decNumber.c quot=QUOT10(*up, cut); up 6458 src/decNumber/decNumber.c quot=*up/powers[cut]; up 6464 src/decNumber/decNumber.c up++; up 6465 src/decNumber/decNumber.c quot=*up; up 6468 src/decNumber/decNumber.c rem=*up-quot*powers[cut]; up 6585 src/decNumber/decNumber.c const Unit *up; // work up 6597 src/decNumber/decNumber.c up=lsu; up 6598 src/decNumber/decNumber.c for (target=dn->lsu; count>0; target++, up++, count-=DECDPUN) up 6599 src/decNumber/decNumber.c *target=*up; up 6617 src/decNumber/decNumber.c for (up=lsu; count>0; up++, count-=DECDPUN) if (*up!=0) { // found non-0 up 6635 src/decNumber/decNumber.c for (up=lsu;; up++) { up 6638 src/decNumber/decNumber.c if (*up!=0) *residue=1; up 6646 src/decNumber/decNumber.c if (*up>=half) { up 6647 src/decNumber/decNumber.c if (*up>half) *residue=7; up 6651 src/decNumber/decNumber.c if (*up!=0) *residue=3; // [else is 0, leave as sticky bit] up 6660 src/decNumber/decNumber.c up++; // move to next up 6662 src/decNumber/decNumber.c for (target=dn->lsu; count>0; target++, up++, count-=DECDPUN) up 6663 src/decNumber/decNumber.c *target=*up; up 6670 src/decNumber/decNumber.c if (cut==0) quot=*up; // is at bottom of unit up 6673 src/decNumber/decNumber.c quot=QUOT10(*up, cut); up 6674 src/decNumber/decNumber.c rem=*up-quot*powers[cut]; up 6676 src/decNumber/decNumber.c rem=*up%powers[cut]; up 6677 src/decNumber/decNumber.c quot=*up/powers[cut]; up 6710 src/decNumber/decNumber.c up++; up 6711 src/decNumber/decNumber.c quot=*up; up 6714 src/decNumber/decNumber.c rem=*up-quot*powers[cut]; up 6846 src/decNumber/decNumber.c Unit *up; // work up 6848 src/decNumber/decNumber.c for (up=dn->lsu; ; up++) { up 6851 src/decNumber/decNumber.c if (*up!=powers[count]-1) break; // not still 9s up 6853 src/decNumber/decNumber.c *up=(Unit)powers[count-1]; // here 999 -> 100 etc. up 6854 src/decNumber/decNumber.c for (up=up-1; up>=dn->lsu; up--) *up=0; // others all to 0 up 6863 src/decNumber/decNumber.c if (*up!=DECDPUNMAX) break; // not still 9s up 6870 src/decNumber/decNumber.c Unit *up, *sup; // work up 6872 src/decNumber/decNumber.c for (up=dn->lsu; ; up++) { up 6875 src/decNumber/decNumber.c if (*up!=powers[count-1]) break; // not 100.. up 6877 src/decNumber/decNumber.c sup=up; // save msu pointer up 6878 src/decNumber/decNumber.c *up=(Unit)powers[count]-1; // here 100 in msu -> 999 up 6880 src/decNumber/decNumber.c for (up=up-1; up>=dn->lsu; up--) *up=(Unit)powers[DECDPUN]-1; up 6899 src/decNumber/decNumber.c if (*up!=0) break; // not still 0s up 7081 src/decNumber/decNumber.c Unit *up; // work up 7085 src/decNumber/decNumber.c for (up=dn->lsu; ; up++) { up 7086 src/decNumber/decNumber.c if (count>DECDPUN) *up=DECDPUNMAX; // unit full o'nines up 7088 src/decNumber/decNumber.c *up=(Unit)(powers[count]-1); up 7224 src/decNumber/decNumber.c const Unit *up; // work up 7239 src/decNumber/decNumber.c up=dn->lsu; // ready for lsu up 7248 src/decNumber/decNumber.c for (; count>=DECDPUN; up++) { up 7249 src/decNumber/decNumber.c if (*up!=0) return BADINT; // non-zero Unit to discard up 7257 src/decNumber/decNumber.c theInt=QUOT10(*up, count); up 7258 src/decNumber/decNumber.c rem=*up-theInt*powers[count]; up 7260 src/decNumber/decNumber.c rem=*up%powers[count]; // slice off discards up 7261 src/decNumber/decNumber.c theInt=*up/powers[count]; up 7266 src/decNumber/decNumber.c up++; // ready for next up 7272 src/decNumber/decNumber.c if (got==0) {theInt=*up; got+=DECDPUN; up++;} // ensure lsu is there up 7277 src/decNumber/decNumber.c for (; got<ilength; up++) { up 7278 src/decNumber/decNumber.c theInt+=*up*powers[got]; up 7282 src/decNumber/decNumber.c if (theInt/(Int)powers[got-DECDPUN]!=(Int)*(up-1)) ilength=11; up 7445 src/decNumber/decNumber.c Unit *up=uar+(len-1); // -> msu up 7451 src/decNumber/decNumber.c for (; up>=uar; up--) { up 7452 src/decNumber/decNumber.c if (*up==0) { // unit is all 0s up 7458 src/decNumber/decNumber.c if (*up<10) break; // is 1-9 up 7461 src/decNumber/decNumber.c if (*up<100) break; // is 10-99 up 7464 src/decNumber/decNumber.c if (*up<1000) break; // is 100-999 up 7467 src/decNumber/decNumber.c for (pow=&powers[4]; *up>=*pow; pow++) digits++; up 102 src/dps8/dps8_decimal.c Unit *up=dn->lsu; // output pointer up 164 src/dps8/dps8_decimal.c *up=(Unit)nib; up 166 src/dps8/dps8_decimal.c *up=(Unit)(*up+nib*DECPOWERS[cut]); up 173 src/dps8/dps8_decimal.c up++; up 225 src/dps8/dps8_decimal.c up 229 src/dps8/dps8_decimal.c up 247 src/dps8/dps8_decimal.c up 248 src/dps8/dps8_decimal.c up 12150 src/dps8/dps8_eis.c up 12154 src/dps8/dps8_eis.c up 12172 src/dps8/dps8_eis.c up 12173 src/dps8/dps8_eis.c up 12276 src/dps8/dps8_eis.c up 12316 src/dps8/dps8_eis.c up 12317 src/dps8/dps8_eis.c up 12322 src/dps8/dps8_eis.c up 899 src/dps8/dps8_iom.c static t_stat iom_action (UNIT *up) up 902 src/dps8/dps8_iom.c uint scu_unit_idx = (uint) (up -> u3); up 903 src/dps8/dps8_iom.c uint iom_unit_idx = (uint) (up -> u4); up 1052 src/dps8/dps8_scu.c scu_t * up = scu + scu_unit_idx; up 1057 src/dps8/dps8_scu.c ctx, up -> exec_intr_mask [0], up -> mask_enable [0], up 1058 src/dps8/dps8_scu.c up -> mask_assignment [0]); up 1061 src/dps8/dps8_scu.c ctx, up -> exec_intr_mask [1], up -> mask_enable [1], up 1062 src/dps8/dps8_scu.c up -> mask_assignment [1]); up 1066 src/dps8/dps8_scu.c up 1074 src/dps8/dps8_scu.c up 1082 src/dps8/dps8_scu.c up 1086 src/dps8/dps8_scu.c up 1087 src/dps8/dps8_scu.c up 1090 src/dps8/dps8_scu.c up 1091 src/dps8/dps8_scu.c up 1095 src/dps8/dps8_scu.c up 1103 src/dps8/dps8_scu.c up 1115 src/dps8/dps8_scu.c scu_t * up = scu + scu_unit_idx; up 1120 src/dps8/dps8_scu.c up -> port_enable [i] = sw -> port_enable [i]; up 1125 src/dps8/dps8_scu.c up -> mask_enable [i] = sw -> mask_enable [i]; up 1126 src/dps8/dps8_scu.c up -> mask_assignment [i] = sw -> mask_assignment [i]; up 1128 src/dps8/dps8_scu.c up -> lower_store_size = sw -> lower_store_size; up 1129 src/dps8/dps8_scu.c up -> cyclic = sw -> cyclic; up 1130 src/dps8/dps8_scu.c up -> nea = sw -> nea; up 1131 src/dps8/dps8_scu.c up -> onl = sw -> onl; up 1132 src/dps8/dps8_scu.c up -> interlace = sw -> interlace; up 1133 src/dps8/dps8_scu.c up -> lwr = sw -> lwr; up 1155 src/dps8/dps8_scu.c up -> exec_intr_mask [i] = 037777777777; up 1658 src/dps8/dps8_scu.c scu_t * up = scu + scu_unit_idx; up 1664 src/dps8/dps8_scu.c up -> mask_enable [maskab] = 0; up 1671 src/dps8/dps8_scu.c up -> mask_enable [maskab] = 1; up 1679 src/dps8/dps8_scu.c up -> mask_assignment [maskab] = (uint) pn; up 1688 src/dps8/dps8_scu.c scu_unit_idx, 'a' + maskab, up->mask_enable[maskab], up 1689 src/dps8/dps8_scu.c up->mask_assignment[maskab]); up 1696 src/dps8/dps8_scu.c up -> lower_store_size = (rega >> 24) & 07; up 1697 src/dps8/dps8_scu.c up -> cyclic = (regq >> 8) & 0177; up 1698 src/dps8/dps8_scu.c up -> nea = (rega >> 6) & 0377; up 1699 src/dps8/dps8_scu.c up -> onl = (rega >> 20) & 017; up 1700 src/dps8/dps8_scu.c up -> interlace = (rega >> 5) & 1; up 1701 src/dps8/dps8_scu.c up -> lwr = (rega >> 4) & 1; up 1702 src/dps8/dps8_scu.c up -> port_enable [0] = (rega >> 3) & 01; up 1703 src/dps8/dps8_scu.c up -> port_enable [1] = (rega >> 2) & 01; up 1704 src/dps8/dps8_scu.c up -> port_enable [2] = (rega >> 1) & 01; up 1705 src/dps8/dps8_scu.c up -> port_enable [3] = (rega >> 0) & 01; up 1706 src/dps8/dps8_scu.c up -> port_enable [4] = (regq >> 3) & 01; up 1707 src/dps8/dps8_scu.c up -> port_enable [5] = (regq >> 2) & 01; up 1708 src/dps8/dps8_scu.c up -> port_enable [6] = (regq >> 1) & 01; up 1709 src/dps8/dps8_scu.c up -> port_enable [7] = (regq >> 0) & 01; up 1958 src/dps8/dps8_scu.c scu_t * up = scu + scu_unit_idx; up 1962 src/dps8/dps8_scu.c if (up -> mask_enable [i]) up 1965 src/dps8/dps8_scu.c up -> mask_assignment [i])) & 0777; up 2005 src/dps8/dps8_scu.c putbits36_3 (& a, 9, (word3) up -> lower_store_size); up 2006 src/dps8/dps8_scu.c putbits36_4 (& a, 12, (word4) up -> onl); // A, A1, B, B1 online up 2009 src/dps8/dps8_scu.c putbits36_8 (& a, 22, (word8) up -> nea); up 2010 src/dps8/dps8_scu.c putbits36_1 (& a, 30, (word1) up -> interlace); up 2011 src/dps8/dps8_scu.c putbits36_1 (& a, 31, (word1) up -> lwr); up 2017 src/dps8/dps8_scu.c putbits36_1 (& a, 32, (word1) up -> port_enable [0]); up 2018 src/dps8/dps8_scu.c putbits36_1 (& a, 33, (word1) up -> port_enable [1]); up 2019 src/dps8/dps8_scu.c putbits36_1 (& a, 34, (word1) up -> port_enable [2]); up 2020 src/dps8/dps8_scu.c putbits36_1 (& a, 35, (word1) up -> port_enable [3]); up 2026 src/dps8/dps8_scu.c putbits36_7 (& q, 57-36, (word7) up -> cyclic & MASK7); up 2029 src/dps8/dps8_scu.c putbits36_1 (& q, 32, (word1) up -> port_enable [4]); up 2030 src/dps8/dps8_scu.c putbits36_1 (& q, 33, (word1) up -> port_enable [5]); up 2031 src/dps8/dps8_scu.c putbits36_1 (& q, 34, (word1) up -> port_enable [6]); up 2032 src/dps8/dps8_scu.c putbits36_1 (& q, 35, (word1) up -> port_enable [7]); up 2050 src/dps8/dps8_scu.c scu_t * up = scu + scu_unit_idx; up 2052 src/dps8/dps8_scu.c if (up -> mask_assignment [0] == port_num) up 2054 src/dps8/dps8_scu.c mask_contents = up -> exec_intr_mask [0]; up 2056 src/dps8/dps8_scu.c else if (up -> mask_assignment [1] == port_num) up 2058 src/dps8/dps8_scu.c mask_contents = up -> exec_intr_mask [1]; up 2064 src/dps8/dps8_scu.c putbits36 (rega, 32, 1, up -> port_enable [0]); up 2065 src/dps8/dps8_scu.c putbits36 (rega, 33, 1, up -> port_enable [1]); up 2066 src/dps8/dps8_scu.c putbits36 (rega, 34, 1, up -> port_enable [2]); up 2067 src/dps8/dps8_scu.c putbits36 (rega, 35, 1, up -> port_enable [3]); up 2071 src/dps8/dps8_scu.c putbits36 (regq, 32, 1, up -> port_enable [4]); up 2072 src/dps8/dps8_scu.c putbits36 (regq, 33, 1, up -> port_enable [5]); up 2073 src/dps8/dps8_scu.c putbits36 (regq, 34, 1, up -> port_enable [6]); up 2074 src/dps8/dps8_scu.c putbits36 (regq, 35, 1, up -> port_enable [7]); up 2081 src/dps8/dps8_scu.c scu_unit_idx, port_num, up -> mask_assignment [0], up 2082 src/dps8/dps8_scu.c up -> mask_assignment [1], up 2092 src/dps8/dps8_scu.c scu_t * up = scu + scu_unit_idx; up 2097 src/dps8/dps8_scu.c word1 cell = up -> cells [i] ? 1 : 0; up 2497 src/dps8/dps8_scu.c scu_t * up = scu + scu_unit_idx; up 2552 src/dps8/dps8_scu.c if (up -> mask_assignment [0] == (uint) scu_port_num) up 2554 src/dps8/dps8_scu.c mask_contents = up -> exec_intr_mask [0]; up 2558 src/dps8/dps8_scu.c else if (up -> mask_assignment [1] == (uint) scu_port_num) up 2560 src/dps8/dps8_scu.c mask_contents = up -> exec_intr_mask [1]; up 2568 src/dps8/dps8_scu.c putbits36_1 (rega, 32, (word1) up -> port_enable [0]); up 2569 src/dps8/dps8_scu.c putbits36_1 (rega, 33, (word1) up -> port_enable [1]); up 2570 src/dps8/dps8_scu.c putbits36_1 (rega, 34, (word1) up -> port_enable [2]); up 2571 src/dps8/dps8_scu.c putbits36_1 (rega, 35, (word1) up -> port_enable [3]); up 2575 src/dps8/dps8_scu.c putbits36_1 (regq, 32, (word1) up -> port_enable [4]); up 2576 src/dps8/dps8_scu.c putbits36_1 (regq, 33, (word1) up -> port_enable [5]); up 2577 src/dps8/dps8_scu.c putbits36_1 (regq, 34, (word1) up -> port_enable [6]); up 2578 src/dps8/dps8_scu.c putbits36_1 (regq, 35, (word1) up -> port_enable [7]); up 2599 src/dps8/dps8_scu.c scu_t * up = scu + scu_unit_idx; up 2646 src/dps8/dps8_scu.c if (up -> mask_assignment [0] == (uint) scu_port_num) up 2648 src/dps8/dps8_scu.c up -> exec_intr_mask [0] = imask; up 2652 src/dps8/dps8_scu.c else if (up -> mask_assignment [1] == (uint) scu_port_num) up 2654 src/dps8/dps8_scu.c up -> exec_intr_mask [1] = imask; up 4183 src/simh/scp.c UNIT *up; up 4199 src/simh/scp.c up = (dptr->units) + i; /* att or active? */ up 4200 src/simh/scp.c if ((up->flags & UNIT_ATT) || sim_is_active (up)) up 347 src/simh/sim_defs.h t_stat (*examine)(t_value *v, t_addr a, UNIT *up, up 349 src/simh/sim_defs.h t_stat (*deposit)(t_value v, t_addr a, UNIT *up, up 354 src/simh/sim_defs.h t_stat (*attach)(UNIT *up, CONST char *cp); up 356 src/simh/sim_defs.h t_stat (*detach)(UNIT *up); /* detach routine */ up 361 src/simh/sim_defs.h t_stat (*msize)(UNIT *up, int32 v, CONST char *cp, void *dp); up 424 src/simh/sim_defs.h t_stat (*action)(UNIT *up); /* action routine */ up 434 src/simh/sim_defs.h void (*io_flush)(UNIT *up); /* io flush routine */ up 565 src/simh/sim_defs.h t_stat (*valid)(UNIT *up, int32 v, CONST char *cp, void *dp); up 567 src/simh/sim_defs.h t_stat (*disp)(FILE *st, UNIT *up, int32 v, CONST void *dp);