Subversion Repositories pentevo

Rev

Rev 638 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ;LAST UPDATE: 24.03.2014 savelij
  3.  
  4. HEX4DEC         PUSH HL
  5.                 EXX
  6.                 LD HL,TXT_DEC
  7.                 PUSH HL
  8.                 PUSH HL
  9.                 LD B,9
  10.                 EXX
  11.                 LD HL,CHISLA4
  12.                 REPT 9
  13.                 CALL BCDEMHL
  14.                 ENDM
  15. H2D1            LD A,0X30
  16.                 ADD A,E
  17.                 EXX
  18.                 LD (HL),A
  19.                 INC HL
  20.                 LD (HL),0
  21.                 LD A,B
  22.                 EXX
  23.                 POP HL
  24.                 LD B,A
  25.                 LD A,(HL)
  26.                 CP 0X30
  27.                 JR NZ,$+7
  28.                 LD (HL),0X20
  29.                 INC HL
  30.                 DJNZ $-8
  31.                 POP HL
  32.                 POP DE
  33.                 INC HL
  34.                 INC HL
  35.                 INC HL
  36.                 LD BC,7
  37.                 LDIR
  38.                 RET
  39.  
  40. CHISLA4         DB 0X00,0XCA,0X9A,0X3B;1000000000
  41.                 DB 0X00,0XE1,0XF5,0X05;100000000
  42.                 DB 0X80,0X96,0X98,0X00;10000000
  43.                 DB 0X40,0X42,0X0F,0X00;1000000
  44.                 DB 0XA0,0X86,0X01,0X00;100000
  45. CHISLA2         DB 0X10,0X27,0X00,0X00;10000
  46.                 DB 0XE8,0X03,0X00,0X00;1000
  47. CHISLA1         DB 0X64,0X00,0X00,0X00;100
  48.                 DB 0X0A,0X00,0X00,0X00;10
  49.  
  50. ;BCDE-(ADR)=BCDE
  51. BCDEMHL         XOR A
  52.                 EX AF,AF'
  53. BCDEMHL1        LD A,E
  54.                 SUB (HL)
  55.                 INC HL
  56.                 LD E,A
  57.                 LD A,D
  58.                 SBC A,(HL)
  59.                 INC HL
  60.                 LD D,A
  61.                 LD A,C
  62.                 SBC A,(HL)
  63.                 INC HL
  64.                 LD C,A
  65.                 LD A,B
  66.                 SBC A,(HL)
  67.                 LD B,A
  68.                 DEC HL
  69.                 DEC HL
  70.                 DEC HL
  71.                 EX AF,AF'
  72.                 INC A
  73.                 EX AF,AF'
  74.                 LD A,B
  75.                 CP 0XC4
  76.                 JR C,BCDEMHL1
  77.                 LD A,(HL)
  78.                 ADD A,E
  79.                 LD E,A
  80.                 INC HL
  81.                 LD A,(HL)
  82.                 ADC A,D
  83.                 LD D,A
  84.                 INC HL
  85.                 LD A,(HL)
  86.                 ADC A,C
  87.                 LD C,A
  88.                 INC HL
  89.                 LD A,(HL)
  90.                 ADC A,B
  91.                 LD B,A
  92.                 DEC HL
  93.                 DEC HL
  94.                 DEC HL
  95.                 EX AF,AF'
  96.                 DEC A
  97.                 ADD A,0X30
  98.                 INC HL
  99.                 INC HL
  100.                 INC HL
  101.                 INC HL
  102.                 EXX
  103.                 LD (HL),A
  104.                 INC HL
  105.                 EXX
  106.                 RET
  107.