Subversion Repositories NedoOS

Rev

Rev 8 | Blame | Last modification | View Log | Download

  1. prword
  2. ;hl=num
  3.         exx
  4.         ld hl,0
  5.         exx
  6. prdword
  7. ;hl'hl=num
  8.         ld a,' '
  9.         ld (prnumdwordcmd_zero),a
  10.         exx
  11.         ld bc,1000000000/65536
  12.         exx
  13.         ld bc,1000000000&#ffff
  14.         call prnumdwordcmd0
  15.         exx
  16.         ld bc,100000000/65536
  17.         exx
  18.         ld bc,100000000&#ffff
  19.         call prnumdwordcmd0
  20.         exx
  21.         ld bc,10000000/65536
  22.         exx
  23.         ld bc,10000000&#ffff
  24.         call prnumdwordcmd0
  25.         exx
  26.         ld bc,1000000/65536
  27.         exx
  28.         ld bc,1000000&#ffff
  29.         call prnumdwordcmd0
  30.         exx
  31.         ld bc,100000/65536
  32.         exx
  33.         ld bc,100000&#ffff
  34.         call prnumdwordcmd0
  35.         exx
  36.         ld bc,0
  37.         exx
  38.         ld bc,10000
  39.         call prnumdwordcmd0
  40.         ld bc,1000
  41.         call prnumdwordcmd0
  42.         ld bc,100
  43.         call prnumdwordcmd0
  44.         ld bc,10
  45.         call prnumdwordcmd0
  46.         ld a,'0'
  47.         ld (prnumdwordcmd_zero),a
  48.         ld bc,1
  49. prnumdwordcmd0
  50. ;bc=digit
  51.         ld a,'0'-1
  52. prnumdwordcmd1
  53.         inc a
  54.         or a
  55.         sbc hl,bc
  56.         exx
  57.         sbc hl,bc
  58.         exx
  59.         jr nc,prnumdwordcmd1
  60.         add hl,bc
  61.         exx
  62.         adc hl,bc
  63.         exx
  64.         push bc
  65.         push de
  66.         push hl
  67.         cp '0'
  68.         jr nz,prnumdwordcmd_nozero
  69. prnumdwordcmd_zero=$+1
  70.         ld a,' '
  71.         jr prnumdwordcmd_nozeroq
  72. prnumdwordcmd_nozero
  73.         ld hl,prnumdwordcmd_zero
  74.         ld (hl),'0'
  75. prnumdwordcmd_nozeroq
  76.         exx
  77.         push bc
  78.         push hl
  79.         PRCHAR
  80.         pop hl
  81.         pop bc
  82.         exx
  83.         pop hl
  84.         pop de
  85.         pop bc
  86.         ret  
  87.