Subversion Repositories pentevo

Rev

Rev 1120 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1120 Rev 1186
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 01.11.2023 savelij
 2 
; LAST UPDATE: 06.02.2025 savelij
3 
 
 3 
 
4 
; 07.07.2021 перед вызовом LD_FILE в реги BCDE загружается номер кластера откуда читать
 4 
; 07.07.2021 перед вызовом LD_FILE в реги BCDE загружается номер кластера откуда читать
5 
 
 5 
 
6 
;SPG runner, version 0.2
 6 
;SPG runner, version 0.2
7 
;EVO version
 7 
;EVO version
Line 255... Line 255...
255 
LOADING         PUSH IX
 255 
LOADING         PUSH IX
256 
                LD A,B
 256 
                LD A,B
257 
                ADD A,A
 257 
                ADD A,A
258 
                ADD A,A
 258 
                ADD A,A
259 
                LD IYL,A
 259 
                LD IYL,A
260 
                LD DE,(AFILCLS)
 260 
                LD DE,(FATVAR.AFILCLS)
261 
                LD BC,(AFILCLS + 2)
 261 
                LD BC,(FATVAR.AFILCLS + 2)
262 
                CALL LOAD_FILE
 262 
                CALL LOAD_FILE
263 
                LD (AFILCLS),DE
 263 
                LD (FATVAR.AFILCLS),DE
264 
                LD (AFILCLS + 2),BC
 264 
                LD (FATVAR.AFILCLS + 2),BC
265 
                POP IX
 265 
                POP IX
266 
                RET
 266 
                RET
267 
 
 267 
 
268 
;---------------------------------------
 268 
;---------------------------------------