Subversion Repositories pentevo

Rev

Rev 635 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.  
  2. ;LAST UPDATE: 12.02.2014 savelij
  3.  
  4.                 include ../../../rom/macros.a80
  5.  
  6. ADR_LOADING     EQU 0X6000                      ;адрес загрузки и компиляции
  7. START_CODE      EQU ADR_LOADING
  8.  
  9.                 ORG ADR_LOADING-0X117           ;(END_HEADER-START_SCL)
  10. ;ЗАГОЛОВОК SCL ФАЙЛА
  11. START_SCL       DB "SINCLAIR",1,"flash_peB"
  12.                 DW BASIC_FULL,BASIC_FULL
  13. FULL_SIZE       DB SIZE_SECTORS+1
  14.  
  15.                 include ../../../rom/basic4monoloader.a80
  16.  
  17. ;END_HEADER
  18.        
  19.                 ORG ADR_LOADING
  20.                 DI
  21. ;               LD BC,0X7FFD
  22. ;               LD A,0X16                       ;СТРАНИЦА С ДРАЙВЕРАМИ И MICRO BOOT FAT
  23. ;               OUT (C),A
  24.                 LD HL,ADR_LOADING;$
  25.                 PUSH HL
  26.                 LD HL,START_UNPACK
  27.                 LD DE,0X5B00
  28.                 LD BC,END_UNPACK-START_UNPACK
  29.                 PUSH DE
  30.                 LDIR
  31.                 LD HL,END_COD-1
  32.                 LD DE,0XFFFF
  33.                 LD BC,END_COD-END_UNPACK
  34.                 LDDR
  35.                 LD HL,ADR_LOADING
  36.                 EX DE,HL
  37.                 INC HL
  38.                 RET
  39.                
  40. START_UNPACK    include ../../../rom/dec40.a80
  41. END_UNPACK
  42.                 binclude flash_pe_pack.rom      ;имя пакованной проги
  43. END_COD
  44.  
  45.                 DUPL LOW (-$),0
  46.  
  47.                 IF (END_COD-ADR_LOADING)&0XFF
  48. SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)+1
  49.                 ELSE
  50. SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)
  51.                 ENDIF
  52.