|
|
1.1 root 1: /////////
2: /
3: / Twos complement. Integers are easy. Longs are negated in halves. There
4: / may be a better sequence for long negation. This table handles routine
5: / call style floating point.
6: /
7: /////////
8:
9: NEG:
10: % PEFFECT|PRVALUE|PREL|P_SLT
11: WORD ANYR ANYR * TEMP
12: TREG WORD
13: * *
14: [ZNEG] [R]
15: [IFR] [REL0] [LAB]
16:
17: % PEFFECT|PRVALUE|PGE|PLT|P_SLT
18: LONG ANYR ANYR * TEMP
19: TREG LONG
20: * *
21: [ZNEG] [HI R]
22: [ZNEG] [LO R]
23: [ZSBB] [HI R],[CONST 0]
24: [IFR] [REL1] [LAB]
25:
26: #ifndef NDPDEF
27: % PEFFECT|PRVALUE|P_SLT
28: FF64 FPAC FPAC * FPAC
29: TREG FF64
30: * *
31: [ZXORB] [LO HI LO R],[CONST 0200]
32: #endif
33: #ifdef NDPDEF
34: % PRVALUE|P_SLT
35: FF64 FPAC FPAC * FPAC
36: TREG FF64
37: * *
38: [ZFCHS]
39: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.