Top secrets sources NedoPC pentevo

; LAST UPDATE: 18.10.2023 savelij

C_INIT          EX AF,AF'
                LD A,0x7c
                ld bc,WIN_A3
                out (c),a
                EX AF,AF'
       LD   (PAR1),A
       LD   A,HIGH (INTRADR)
       LD   I,A
       LD   IX,IX_BASE
       LD   HL,VAR1_I
       LD   DE,IX_BAS
       LD   BC,VAR1_S
       LDIR
       LD   A,1
       RST  18H
       LD   A,0C3H
       LD   (SW_DO),A
       LD   HL,OUT_CH
       LD   (OUT_SW+1),HL
                CALL MODE;       CALL SP_AUX1
                CALL SP_DEF;       CALL CUR_AC
       LD   A,3
                RST 0X18
                RET

M_INIT: LD      A,3
        RST     18H
        LD      DE,0F800H
        LD      HL,MON_IMG
        LD      BC,MON_SIZE
        LDIR
                LD HL,BSS_START
                LD DE,BSS_START+1
                LD BC,BSS_LNG-1
                LD (HL),0
                LDIR
                RET

SWP:    EX      (SP),HL
        LD      DE,BUF+3
        LD      BC,3
        LDIR
        EX      (SP),HL
        LD      DE,-1
        LD      A,3FH
        CALL    __S1
        LD      A,1FH
        CALL    __S1
        LD      A,7
__S1:   RST     18H
        CALL    BUF+3
        INC     HL
        RET

__READ: CALL    SWP
            LD      A,(DE)
            LD      (HL),A
            RET
        RET
__WRITE:CALL    SWP
            LD      A,(HL)
            LD      (DE),A
            RET
        RET

MTEST:  LD      HL,BUF+6
        CALL    __READ
        LD      HL,__SRC
        CALL    __WRITE
        LD      HL,BUF
        CALL    __READ
        LD      HL,BUF+6
        CALL    __WRITE
        CALL    __TST
__SRC:  DB      49H, 92H, 24H
        SET     _RU5,(IX-_FLAG)
        DEC     C
        LD      DE,M_128
        RET     Z
        RES     _RU5,(IX-_FLAG)
        DEC     C
        LD      DE,M_512
        RET     Z
        LD      DE,M_1024
        DEC     C
        RET     Z
        CALL    PRN
        DB      "fault. (",0
        LD      A,(BUF)
        CALL    PHEX
        LD      A,(BUF+1)
        CALL    PHEX
        LD      A,(BUF+2)
        CALL    PHEX1
        CALL    PRN
        DB      ")",0DH,0AH,0
        DI
        HALT

__TST:  POP     HL
        LD      DE,BUF
        LD      BC,300H
__LP:   LD      A,(DE)
        CP      (HL)
        INC     HL
        INC     DE
        JR      NZ,__2
        INC     C
        JR      __1
__2:    LD      C,0
__1:    DJNZ    __LP
        JP      (HL)

M_128:  DB      3
        DW      384
        DB      "128",0
M_512:  DB      1BH
        DW      3456
        DB      "512",0
M_1024: DB      3BH
        DW      7552
        DB      "4096",0

MEM_SIZE:
        CALL    PRN
        DB      "Memory ",0
        CALL    MTEST
        LD      A,3
        RST     18H
        EX      DE,HL
        ;LD      A,(HL)
        INC     HL
        ;LD      (CHED+_DCYLN),A
        ;LD      (CHED+_DTRACK),A
        ;LD      E,(HL)
        INC     HL
        ;LD      D,(HL)
        INC     HL
        ;LD      (CHED+_DBLDR),DE
                ld a,1
        LD      (CHED+_DFN),a
        CALL    PRN
        DB      "size is ",0
        CALL    PRN_HL
        CALL    PRN
        DB      "k.",0DH,0AH,0
               
        RET

CPM_LOAD:
        LD      BC,CPM_SIZE
CPM_L1
        LD      DE,CCP
    LD      HL,CPM_IMG

        LDIR
        RET


SET_SYS:LD      A,(SYS_P)
SET_ASYS:
        LD      BC,0FD77H
        OUT     (C),A
        RET

PTST_1: DI
        SCF
        RET

H_INIT
        LD  BC,077H
        LD  A,2
        OUT (C),A
        IM      1
        DI
        RCALL   PG_SET
        LD BC,77H
        LD A,6H ;!!!
        OUT (C),A
        RCALL    PG_SET

        LD      SP,SYS_SP
        LD A,10H
        OUT (C),A
        LD A,6H ;!!!
        LD BC,177H
        OUT (C),A

PENTEVO_START
          LD HL,DSK_TAB
          LD DE,610H ;!!!
          LD C,77H
          LD  A,8
          OUT (0FFH),A
DSK_1:    LD  A,(HL)
          INC HL
          OUT (0FFH),A
          LD  B,41H
          OUT (C),D
          OR  8
          OUT (0FFH),A
          LD  B,1
          OUT (C),D
          DEC E
          JR  NZ,DSK_1


          LD  BC,4177H
          LD  A,6H ;!!!
          OUT (C),A

          LD A,0FFH
          OUT (0FFH),A
                JP ENTRY

PG_SET:   LD HL,PAGE_D
          LD DE,40H
PAGE_L2:  LD BC,0FF7H
PAGE_L1_  OUTI
          LD A,B
          ADD A,E
          LD B,A
          JR NC,PAGE_L1_
          LD BC,7FFDH
          LD A,D
          XOR 10H
          LD D,A
          OUT (C),A
          JR NZ,PAGE_L2
          RET

PAGE_D          DB 0X7F,0X7B,0X7D,0X7C,0X00,0X07A,0X7D,0X60

DSK_TAB         DB 0F1H, 0E1H, 0D1H, 0C1H, 0C1H, 0B1H, 0A1H,  91H
                DB 041H, 021H, 031H, 011H, 001H, 001H, 0F1H, 0E1H