Subversion Repositories ngs

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.  
  2. ; LAST UPDATE: 08.02.2026 savelij
  3.  
  4.                 include macros.a80
  5.                 include basic_tokens.a80
  6.  
  7. ADR_LOADING     EQU 0x8000                      ;адрес загрузки и компиляции
  8. START_CODE      EQU ADR_LOADING
  9.  
  10.                 ORG ADR_LOADING - 0x117         ;(END_HEADER-START_SCL)
  11. ; заголовок SCL файла
  12. START_SCL       DB "SINCLAIR",1,"FLASHNGSB"
  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.  
  22.                 LD HL,$
  23.                 PUSH HL
  24.                 LD HL,START_UNPACK
  25.                 LD DE,0x5B00
  26.                 LD BC,END_UNPACK-START_UNPACK
  27.                 PUSH DE
  28.                 LDIR
  29.                 LD HL,END_COD-1
  30.                 LD DE,0xFFFF
  31.                 LD BC,END_COD-END_UNPACK
  32.                 LDDR
  33.                 LD HL,ADR_LOADING
  34.                 EX DE,HL
  35.                 INC HL
  36.                 RET
  37.                
  38. START_UNPACK    include dec40.a80
  39. END_UNPACK
  40.                 binclude ../tmp/flasher.pack    ;имя пакованной проги
  41. END_COD
  42.  
  43.                 DUPL LOW (ADR_LOADING)+0x100-LOW ($),0
  44.  
  45.                 IF (END_COD-ADR_LOADING)&0xFF
  46. SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)+1
  47.                 ELSE
  48. SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)
  49.                 ENDIF
  50.