Subversion Repositories pentevo

Rev

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

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