?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.  ifndef included_xrsub
  2.  define included_xrsub
  3.  include "../common/pushpop.asm"
  4.  include "../common/mov.asm"
  5.  include "xadd.asm"
  6. xrsub:
  7. ;Input:
  8. ;  HL points to one number
  9. ;  DE points to another
  10. ;xadd+60
  11.   call pushpop
  12.   push bc
  13.   call xrsubpp;+_
  14.   pop de
  15.   ld hl,xOP3
  16.   jp mov10
  17. xrsubpp;_:
  18. ;copy the inputs to xOP2 and xOP3, leaving xOP1 open for shifting
  19.   push de
  20.   ld de,xOP2
  21.   call mov10
  22.   dec de
  23.   ld a,(de)
  24.   xor 80h
  25.   ld (de),a
  26.   inc de
  27.   pop hl
  28.   call mov10
  29.   jp subadd_stepin
  30.  endif
  31.