Subversion Repositories pentevo

Rev

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

Rev Author Line No. Line
633 savelij 1 
 
1056 savelij 2 
; LAST UPDATE: 10.01.2023 savelij
633 savelij 3 
 
1056 savelij 4 
                include macros.a80
5 
                include basic_tokens.a80
633 savelij 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 
 
1056 savelij 16 
                include basic4monoloader.a80
633 savelij 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 
 
1056 savelij 41 
START_UNPACK    include dec40.a80
633 savelij 42 
END_UNPACK
1056 savelij 43 
                binclude rom/flash_pe_pack.rom  ;��� ���������� �ண�
633 savelij 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