Subversion Repositories ngs

Rev

Rev 105 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
69 savelij 1 
 
105 savelij 2 
;LAST UPDATE: 20.10.2012 savelij
69 savelij 3 
 
105 savelij 4 
                include ../../../pentevo/rom/macros.a80
5 
 
158 savelij 6 
ADR_LOADING     EQU 0x8000                      ; 㧪  樨
69 savelij 7 
START_CODE      EQU ADR_LOADING
8 
 
9 
                ORG ADR_LOADING-0X117           ;(END_HEADER-START_SCL)
10 
; SCL
11 
START_SCL       DB "SINCLAIR",1,"FLASHNGSB"
12 
                DW BASIC_FULL,BASIC_FULL
13 
FULL_SIZE       DB SIZE_SECTORS+1
14 
 
15 
                include basic4monoloader.a80
16 
 
17 
;END_HEADER
18 
 
19 
                ORG ADR_LOADING
20 
 
21 
                LD HL,$
22 
                PUSH HL
23 
                LD HL,START_UNPACK
24 
                LD DE,0X5B00
25 
                LD BC,END_UNPACK-START_UNPACK
26 
                PUSH DE
27 
                LDIR
28 
                LD HL,END_COD-1
29 
                LD DE,0XFFFF
30 
                LD BC,END_COD-END_UNPACK
31 
                LDDR
32 
                LD HL,ADR_LOADING
33 
                EX DE,HL
34 
                INC HL
35 
                RET
36 
 
37 
START_UNPACK    include dec40.a80
38 
END_UNPACK
39 
                binclude flasher_pack.rom       ;  ண
40 
END_COD
41 
 
105 savelij 42 
                DUPL LOW (ADR_LOADING)+0X100-LOW ($),0
43 
 
69 savelij 44 
                IF (END_COD-ADR_LOADING)&0XFF
45 
SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)+1
46 
                ELSE
47 
SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)
48 
                ENDIF
49