Top secrets sources NedoPC pentevo

;LAST UPDATE: 12.01.2012 savelij

                include ../../macros.a80

ADR_LOADING     EQU 0X6000
START_CODE      EQU ADR_LOADING

                ORG START_CODE-0X117
;‡€ƒŽ‹Ž‚ŽŠ SCL ”€‰‹€
START_SCL       DB "SINCLAIR",1,"test    B"
                DW BASIC_FULL,BASIC_FULL
                DB SIZE_SECTORS+1

                include basic4monoloader.a80
END_HEADER

START_COD       DI
                LD HL,START_CODE
                PUSH HL
                LD HL,START_UNPACK
                LD DE,0X5B00
                LD BC,END_UNPACK-START_UNPACK
                PUSH DE
                LDIR
                LD HL,END_COD-1
                LD DE,0XFFFF
                LD BC,END_COD-END_UNPACK
                LDDR
                LD HL,START_CODE
                EX DE,HL
                INC HL
                RET
               
START_UNPACK    include ../../dec40.a80
END_UNPACK
                BINCLUDE test_gluk_pages_pack.rom
END_COD

                DUPL 0XFF-LOW ($)+1,0

                IF (END_COD-START_COD)&0XFF
SIZE_SECTORS    EQU ((END_COD-START_COD)>>8)+1
                ELSE
SIZE_SECTORS    EQU ((END_COD-START_COD)>>8)
                ENDIF