?login_element?

Subversion Repositories NedoOS

Rev

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

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