?login_element?

Subversion Repositories NedoOS

Rev

Rev 61 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. DEP888
  2.         LD HL,FILE888TO
  3.         CALL LDDE11
  4.         LD HL,FILE888FROM
  5.         LD C,128
  6. DEP     CALL DEP3
  7.         CALL NZ,oldcl
  8.         JR NZ,COLQQ
  9.         EXX
  10.         PUSH HL
  11.         EXX
  12.         POP DE
  13.         PUSH BC
  14.         LD BC,#820
  15.         LD A,D
  16. COL80   ADD A,24
  17.         LD D,A
  18.         LDI       ;R
  19.         DEC E
  20.         ADD A,24
  21.         LD D,A
  22.         LDI       ;G
  23.         DEC E
  24.         SUB 48
  25.         LD D,A
  26.         LDI       ;B
  27.         DEC E
  28.         INC A
  29.         DJNZ COL80
  30.         POP BC
  31.         EXX
  32.         JR COLQ
  33. COLQQ
  34.         EXX
  35.         LD A,H
  36. COLQ    INC L
  37.         JR Z,$+4
  38.         SUB 8
  39.         LD H,A
  40.         EXX
  41.         CP FILE888TO/256+24
  42.         JR NZ,DEP
  43. CHLRLC  LD C,(HL)
  44.         INC HL
  45.         RL C
  46.         RET
  47. COL4
  48.         LD A,#40
  49.         CALL DEPCOL0
  50.         CALL PUTCOL
  51.         DJNZ COL4
  52.         RET
  53. COL1
  54.         XOR A
  55.         CALL PUTCOL
  56.         DJNZ COL1
  57.         RET
  58.  
  59. oldcl
  60. ;любое число цветов, кроме 8
  61. ;A=1 - старое число цветов и старая палитра
  62. ;увеличивает H на 8
  63.         LD D,T888FOUND/256
  64.         DEC A
  65.         JR Z,COLOLD
  66.         LD LX,A
  67.         LD E,A
  68. DEPTAB  CALL DEP3
  69.         DEC E
  70.         LD (DE),A
  71.         JR NZ,DEPTAB
  72. COLOLD  LD A,LX
  73.         LD B,64
  74.         CP 4
  75.         JR NC,COL45O
  76.         DEC A
  77.         JR Z,COL1
  78.         DEC A
  79.         JR Z,COL2
  80. ;2=11
  81. ;1=10
  82. ;0=0
  83. COL3
  84.         LD A,#80
  85.         CALL DEPCOL0
  86.         JR Z,COL3N1
  87.         SLA C
  88.         CALL Z,CHLRLC
  89.         RLA
  90.         DEC A
  91. COL3N1  CALL PUTCOL
  92.         DJNZ COL3
  93.         RET
  94. ;1=1
  95. ;0=0
  96. COL2
  97.         LD A,#80
  98.         CALL DEPCOL0
  99.         CALL PUTCOL
  100.         DJNZ COL2
  101.         RET
  102. COL45O
  103.         JR Z,COL4
  104.         RRA
  105.         JR C,COL5
  106. ;5=111
  107. ;4=110
  108. ;3=101
  109. ;2=100
  110. ;1=01
  111. ;0=00
  112. COL6    LD A,#40
  113.         CALL DEPCOL0
  114.         CP 2
  115.         JR C,COL6N1
  116.         DEC A
  117.         SLA C
  118.         CALL Z,CHLRLC
  119.         RLA
  120. COL6N1  CALL PUTCOL
  121.         DJNZ COL6
  122.         RET
  123. ;0=00
  124. ;1=01
  125. ;2=10
  126. ;3=110
  127. ;4=111
  128. COL5    LD A,#40
  129.         CALL DEPCOL0
  130.         CP 3
  131.         JR C,COL5N1
  132.         SLA C
  133.         CALL Z,CHLRLC
  134.         RLA
  135.         SUB 3
  136. COL5N1  CALL PUTCOL
  137.         DJNZ COL5
  138.         RET
  139.  
  140. PUTCOL
  141.         LD E,A
  142.         LD A,(DE)
  143.         EXX
  144.         RRA
  145.         RL E ;B
  146.         RRA
  147.         RL D ;R
  148.         RRA
  149.         RL C ;G
  150.         JR NC,EXXRET
  151.         LD (HL),E ;B
  152.         LD A,H
  153.         ADD A,24
  154.         LD H,A
  155.         LD (HL),D ;R
  156.         ADD A,24
  157.         LD H,A
  158.         LD (HL),C ;G
  159.         SUB 47 ;INCH
  160.         LD H,A
  161. LDDE11  LD C,1
  162. EXXRET  EXX
  163.         RET
  164.  
  165. DEP3    LD A,#20
  166. DEPCOL0 SLA C
  167.         CALL Z,CHLRLC
  168.         ADC A,A
  169.         JR NC,DEPCOL0
  170.         RET  
  171.