Top secrets sources NedoPC pentevo

;LAST UPDATE: 28.07.2019 savelij

                TITLE "patch.a80"

;ᬥ­  ¤¨áª  ¤«ï áâ à®© ª®¬ ­¤ë TR-DOS
SET_CURRDRV     LD B,A
                CALL SET_CURRVIRT
                LD A,(NUM_ALT_PAGE)
                CP ROM_ADD_BAS48 | 0X80
                LD A,B
                CALL NZ,COM_01                  ;­ áâனª  ­  ¤¨áª ⮫쪮 ¤«ï ॠ«ì­®© ¤¨áª¥âë
                JP ERR_OK

;[0x18B7 “‘’€Ž‚Š€ €„…‘€ ‡€“‘Š€]
ADR_START_COM   LD (TRD_5CC6),HL
                LD DE,(TRD_5CEB)                ;’…Š ˆ ‘…Š’Ž Œ…‘’ŽŽ‹Ž†…ˆŸ ”€‰‹€
                RET

;[0x1CFE “„€‹…ˆ… “”…€]
DELETE_BUFFER   CALL DELETE_BUF
                JP CLRBUF_EDITOR

;[0x1D5E ‡€“‘Š€ ”€‰‹€]
RUN_FILE        JP Z,WORK4AUTORUN               ; Ž€Ž’Š€ ‘’ŽŠˆ €‚’Ž‡€“‘Š€ …‰‘ˆŠ€
                CP "C"
                JP NZ,SINTAX_ERROR
RUNCODE         LD HL,RUN_CODE
                LD (TRD_5D1A),HL
                JP END_COMAND

;[0x36E8 ‡€“‘Š€‹Š€ ŠŽ„Ž‚ŽƒŽ ‹ŽŠ€]
RUN_CODE        CALL RESTORE_SP
                LD BC,(TRD_5CC6)                ;€„…‘ ‡€ƒ“‡Šˆ ˆ‡ ŠŽŒ€„Ž‰ ‘’ŽŠˆLD BC,(TRD_5CD9)
                PUSH BC
                RET

;[0x214A …—€’œ ˆŒ…ˆ ˆ‚Ž„€/€‡„…‹€]
;…‘‹ˆ ŠŽŒ€„€ €‘˜ˆ…€Ÿ ’Ž …—€’œ ˆŒ…ˆ FAT “‘’Ž‰‘’‚€
;ˆ€—… …—€’œ ˆŒ…ˆ TR-DOS „ˆ‘ŠŽ‚Ž„€
        IF EMU
GET_COMMAND2    LD A,(TRD_5CEF)
                AND A
                CALL NZ,NOMER_DRV               ;…—€’œ ˆŒ…ˆ FAT “‘’Ž‰‘’‚€ …‘‹ˆ ŠŽŒ€„€ €—ˆ€…’‘Ÿ ‘ "."
                RET C                           ;‚›•Ž„ …‘‹ˆ “†… €…—€’€€ “Š‚€ FAT “‘’Ž‰‘’‚€
                LD A,(TRD_5D19)
                ADD A,"A"
                RST 0X10
                RET
        ENDIF

;[…—€’œ ’…Š“™…ƒŽ ”ŽŒ€’ˆ“…ŒŽƒŽ ’…Š€ ˆ ‘’ŽŽ›]
PRINT_NUM_TRK   PUSH DE
                PUSH AF
                PUSH DE
                LD A,0X16
                RST 0X10
                LD A,(0X5C6B)
                DEC A
                RST 0X10
                LD A,0
                RST 0X10
                LD HL,TXT_FORMAT_TRK
                RST 0X18
                POP DE
                LD C,E
                LD B,0
                CALL PRINT_CHISLO
                LD HL,TXT_FSIDE
                RST 0X18
                POP AF
                LD A,"0"
                ADC A,0
                RST 0X10
                POP DE
                RET
               
TXT_FORMAT_TRK  DC "FORMAT TRACK: "
TXT_FSIDE       DC "  SIDE: "

;[0x3057 Ž‚…Š€ € "." „‹Ÿ €‘˜ˆ…Ž‰ ŠŽŒ€„›]
CMP_SPECSYM     LD HL,(TRD_5CD9)
                LD A,(HL)
                CP "."
                JP NZ,FIND_KEYWORD
                POP HL
                RET

;[0x0325 ENDCOMAND]
ENDCOMAND       LD A,D
                CP "."
                JP NZ,END_COMAND
                cp __RETURN
                call nz,CREATE_BUF              ; ‘Ž‡„€ˆ… “”…€
                ld a,9
                ld (TRD_5D06),a                 ; ŠŽ‹ˆ—…‘’‚Ž ‘ˆŒ‚Ž‹Ž‚ ˆŒ…ˆ ”€‰‹€ ˆ Žˆ‘Š…
                xor a
                ld (TRD_5D0F),a                 ; ŽŒ… Ž˜ˆŠˆ TR-DOS
                ld (TRD_5CD6),a                 ; #FF-ŠŽŒ€„€ ˆŸ’€ ‘ˆ’€Š‘ˆ—…‘ŠˆŒ €€‹ˆ‡€’ŽŽŒ
                ld (TRD_5D10),a                 ; ‘’€˜ˆ‰ €‰’ Ž˜ˆŠˆ
                ld hl,FLAGS
                res 7,(hl)
                LD HL,COM_DOT
                JP LOC_353

;[0x3EBF BUGFIX_3EBF]
BUGFIX_3EBF     PUSH AF
                PUSH HL
                CALL GET_TIME_HEAD
                LD B,A
                POP HL
                POP AF
                JP HEAD_POSITION

;[0x211E Ž—ˆ‘’Š€ “”…€ ‚›Ž‹…Ž‰ ŠŽŒ€„›]
CLRBUF_EDITOR2  POP HL
                RES 7,(IY+1)
                RST 0X20
                DW 0X19FB
                XOR A
                LD (SUBPPC),A
                DEC A
                LD (ERR_NR),A
                LD HL,(E_LINE)
                LD (CH_ADD),HL
                RST 0X20
                DW 0X19FB
                RST 0X20
                DW 0X18
                RST 0X20
                DW 0X16B0
                RET

;[…—€’œ ŽŒ…€ ”ŽŒ€’ˆ“…ŒŽ‰ „ŽŽ†Šˆ ˆ ‘’ŽŽ›]
loc_20D1        AND A
                CALL PRINT_NUM_TRK
                CALL FORMAT_TREK
                CALL COM_17
                SCF
                JP PRINT_NUM_TRK