Subversion Repositories pentevo

Rev

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

  1.  
  2. ;LAST UPDATE: 25.03.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       IF MEMTYPE=PROFI
  12.                 DB "SINCLAIR",1,"zm_profiB"
  13.                 ELSEIF MEMTYPE=PENT22
  14.                 DB "SINCLAIR",1,"zm_pnt22B"
  15.                 ELSE
  16.                 DB "SINCLAIR",1,"zm_evo  B"
  17.                 ENDIF
  18.                 DW BASIC_FULL,BASIC_FULL
  19. FULL_SIZE       DB SIZE_SECTORS+1
  20.  
  21.                 include ../../../rom/basic4monoloader.a80
  22.  
  23. ;END_HEADER
  24.        
  25.                 ORG ADR_LOADING
  26.                 DI
  27.                 LD HL,ADR_LOADING;$
  28.                 PUSH HL
  29.                 LD HL,START_UNPACK
  30.                 LD DE,0X5B00
  31.                 LD BC,END_UNPACK-START_UNPACK
  32.                 PUSH DE
  33.                 LDIR
  34.                 LD HL,END_COD-1
  35.                 LD DE,0XFFFF
  36.                 LD BC,END_COD-END_UNPACK
  37.                 LDDR
  38.                 LD HL,ADR_LOADING
  39.                 EX DE,HL
  40.                 INC HL
  41.                 RET
  42.                
  43. START_UNPACK    include ../../../rom/dec40.a80
  44. END_UNPACK      IF MEMTYPE=PROFI
  45.                 binclude main_profi_pack.rom    ;имя пакованной проги
  46.                 ELSEIF MEMTYPE=PENT22
  47.                 binclude main_pent22_pack.rom   ;имя пакованной проги
  48.                 ELSE
  49.                 binclude main_evo_pack.rom      ;имя пакованной проги
  50.                 ENDIF
  51. END_COD
  52.  
  53.                 DUPL LOW (-$),0
  54.  
  55.                 IF (END_COD-ADR_LOADING)&0XFF
  56. SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)+1
  57.                 ELSE
  58. SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)
  59.                 ENDIF
  60.