|
|
Power 6/32 Unix version 1.21
#include "../machine/alignment.h"
pushx(infop) process_info *infop;
/*
/* Push operand on the stack.
/*
/******************************************/
{
register long quantity;
quantity = operand(infop,0)->data ;
if (quantity < 0) negative_1; else negative_0;
if (quantity == 0) zero_1; else zero_0;
overflow_0; carry_1;
push (infop, quantity);
}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.