Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.         ORG #6000
  2.  
  3. ;Вывод спрайта солнца
  4. SUNPR   LD DE,SUN
  5.         LD HL,#4013
  6.         LD C,12*8
  7. SPS     CALL LDI13
  8.         CALL LINE_HL
  9.         DEC C
  10.         JR NZ,SPS
  11.  
  12. ;Вывод атрибутов
  13.         LD HL,#5813
  14.         LD C,12
  15. SPS1    CALL LDI13
  16.         CALL HL32
  17.         DEC C
  18.         JR NZ,SPS1
  19.         RET
  20.  
  21. LDI13   LD B,13
  22.         PUSH HL
  23. LDILP   LD A,(DE)
  24.         LD (HL),A
  25.         INC L
  26.         INC DE
  27.         DJNZ LDILP
  28.         POP HL
  29.         RET
  30.  
  31. HL32    PUSH DE
  32.         LD DE,32
  33.         ADD HL,DE
  34.         POP DE
  35.         RET
  36.  
  37. ;На строку ниже в экранном файле
  38. LINE_HL INC     H
  39.         LD      A,H
  40.         AND     7
  41.         RET     NZ
  42.         LD      A,L
  43.         ADD     A,32
  44.         LD      L,A
  45.         RET     C
  46.         LD      A,H
  47.         SUB     8
  48.         LD      H,A
  49.         RET
  50.  
  51. SUN
  52. +       INCBIN "SUNSPR3.C"
  53.