Subversion Repositories ngs

Rev

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

  1.  
  2.                 include macros.a80
  3.  
  4. ADR_LOADING     EQU 0X6000                      ;адрес загрузки и компиляции
  5. START_CODE      EQU ADR_LOADING
  6.  
  7.                 ORG ADR_LOADING-0X117           ;(END_HEADER-START_SCL)
  8. ;ЗАГОЛОВОК SCL ФАЙЛА
  9. START_SCL       DB "SINCLAIR",1,"FLASHNGSB"
  10.                 DW BASIC_FULL,BASIC_FULL
  11. FULL_SIZE       DB SIZE_SECTORS+1
  12.  
  13.                 include basic4monoloader.a80
  14.  
  15. ;END_HEADER
  16.        
  17.                 ORG ADR_LOADING
  18.  
  19.                 LD HL,$
  20.                 PUSH HL
  21.                 LD HL,START_UNPACK
  22.                 LD DE,0X5B00
  23.                 LD BC,END_UNPACK-START_UNPACK
  24.                 PUSH DE
  25.                 LDIR
  26.                 LD HL,END_COD-1
  27.                 LD DE,0XFFFF
  28.                 LD BC,END_COD-END_UNPACK
  29.                 LDDR
  30.                 LD HL,ADR_LOADING
  31.                 EX DE,HL
  32.                 INC HL
  33.                 RET
  34.                
  35. START_UNPACK    include dec40.a80
  36. END_UNPACK
  37.                 binclude flasher_pack.rom       ;имя пакованной проги
  38. END_COD
  39.  
  40.                 IF (END_COD-ADR_LOADING)&0XFF
  41. SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)+1
  42.                 ELSE
  43. SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)
  44.                 ENDIF
  45.  
  46.