![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to arem.t CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / b / bin / c / n1 / i8086 / tables|
Return to arem.t CVS log | Up to [MW Coherent from dump] / coherent / b / bin / c / n1 / i8086 / tables |
1.1 root 1: /////////
2: /
3: / Assigned remainder. This is just the same as divide except that the
4: / result comes back in a different place. There is no need to do doubles
5: / since remainder is not defined on them in the language. Fields get done
6: / in the same fashon as they do on divide.
7: /
8: /////////
9:
10: AREM:
11: % PEFFECT|PRVALUE|PLVALUE
12: WORD DXAX * * DX
13: ADR|LV FS16
14: ADR WORD
15: [ZMOV] [LO R],[AL]
16: [ZCWD]
17: [ZIDIV] [AR]
18: [ZMOV] [AL],[HI R]
19:
20: % PEFFECT|PRVALUE|PLVALUE
21: WORD DXAX * * DX
22: ADR|LV UWORD
23: ADR WORD
24: [ZMOV] [LO R],[AL]
25: [ZSUB] [HI R],[HI R]
26: [ZDIV] [AR]
27: [ZMOV] [AL],[HI R]
28:
29: % PEFFECT|PRVALUE
30: WORD DXAX * * DX
31: ADR|LV FFLD16
32: ADR WORD
33: [ZMOV] [LO R],[AL]
34: [ZAND] [LO R],[LO EMASK]
35: [ZSUB] [HI R],[HI R]
36: [ZDIV] [AR]
37: [ZAND] [HI R],[LO EMASK]
38: [ZAND] [AL],[LO CMASK]
39: [ZOR] [AL],[HI R]
40:
41: % PEFFECT|PRVALUE
42: WORD DXAX * * AX
43: ADR|LV FS8
44: ADR WORD
45: [ZMOVB] [LO LO R],[AL]
46: [ZCBW]
47: [ZCWD]
48: [ZIDIV] [AR]
49: [ZMOVB] [AL],[LO HI R]
50: [IFV] [ZMOVB] [LO LO R],[LO HI R]
51: [IFV] [ZCBW]
52:
53: % PEFFECT|PRVALUE
54: WORD DXAX * * DX
55: ADR|LV FU8
56: ADR WORD
57: [ZMOVB] [LO LO R],[AL]
58: [ZSUBB] [HI LO R],[HI LO R]
59: [ZCWD]
60: [ZDIV] [AR]
61: [ZMOVB] [AL],[LO HI R]
62: [IFV] [ZSUBB] [HI HI R],[HI HI R]
63:
64: % PEFFECT|PRVALUE
65: WORD DXAX * * DX
66: ADR|LV FFLD8
67: ADR WORD
68: [ZMOVB] [LO LO R],[AL]
69: [ZAND] [LO R],[LO EMASK] / Clear AH.
70: [ZSUB] [HI R],[HI R]
71: [ZDIV] [AR]
72: [ZAND] [HI R],[LO EMASK]
73: [ZANDB] [AL],[LO CMASK]
74: [ZORB] [AL],[LO HI R] / DH.
75:
76: % PEFFECT|PRVALUE
77: LONG DXAX * * DXAX
78: ADR|LV FS32
79: ADR LONG
80: [ZPUSH] [HI AR]
81: [ZPUSH] [LO AR]
82: [ZPUSH] [HI AL]
83: [ZPUSH] [LO AL]
84: [CALL] [GID lrrem]
85: [ZADD] [REGNO SP],[CONST 8]
86: [ZMOV] [LO AL],[LO R]
87: [ZMOV] [HI AL],[HI R]
88:
89: % PEFFECT|PRVALUE
90: LONG DXAX * * DXAX
91: ADR|LV FU32
92: ADR LONG
93: [ZPUSH] [HI AR]
94: [ZPUSH] [LO AR]
95: [ZPUSH] [HI AL]
96: [ZPUSH] [LO AL]
97: [CALL] [GID vrrem]
98: [ZADD] [REGNO SP],[CONST 8]
99: [ZMOV] [LO AL],[LO R]
100: [ZMOV] [HI AL],[HI R]
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.