-void addl_subl_flagset(long val)
-{
- sys->cpu->fr = 0x0;
-
- if(val > 65535) {
- sys->cpu->fr += OF;
- }
- if(((WORD)(val) & 0x8000) == 0x8000) {
- sys->cpu->fr += SF;
- } else if(val == 0x0) {
- sys->cpu->fr += ZF;
- }
-}
-
-void addl(WORD r, WORD val)
-{
- long s;
-
- s = sys->cpu->gr[r] + val;
- sys->cpu->gr[r] = (WORD)s;
- addl_subl_flagset(s);
-}
-
-void subl(WORD r, WORD val)