Subversion Repositories pentevo

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1089 savelij 1 
 
2 
; LAST UPDATE: 23.07.2023 savelij
3 
 
4 
                include macros.a80
5 
                include global_vars.a80
6 
                include basic_tokens.a80
7 
 
8 
ADR_LOADING     EQU ADRSTART                    ; ���� ����㧪� � �������樨
9 
 
10 
                ORG ADR_LOADING-0X117           ; (END_HEADER-START_SCL)
11 
;��������� SCL �����
12 
START_SCL       DB "SINCLAIR",1,"hddetectB"
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 
                LD HL,ADR_LOADING
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 tmp/main.pack  ;��� ���������� �ண�
40 
END_COD
41 
 
42 
                DUPL LOW (-$),0
43 
                IF (END_COD-ADR_LOADING)&0XFF
44 
SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)+1
45 
                ELSE
46 
SIZE_SECTORS    EQU ((END_COD-ADR_LOADING)>>8)
47 
                ENDIF