Subversion Repositories pentevo

Rev

Rev 1035 | Rev 1067 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1035 Rev 1047
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 09.11.2022 savelij
 2 
; LAST UPDATE: 26.11.2022 savelij
3 
 
 3 
 
4 
                TITLE "menu_execute.a80"
 4 
                TITLE "menu_execute.a80"
5 
 
 5 
 
6 
; загрузка с ленты
 6 
; загрузка с ленты
7 
TAPELOAD        LD H,CMOS_BYTE_00
 7 
TAPELOAD        LD H,CMOS_BYTE_00
Line 475... Line 475...
475 
                ADD A,'0'
 475 
                ADD A,'0'
476 
                LD (TXT_SCRSAVDELAY),A
 476 
                LD (TXT_SCRSAVDELAY),A
477 
        RST8 _WINW
 477 
        RST8 _WINW
478 
                JP _RULILKA
 478 
                JP _RULILKA
479 
 
 479 
 
480 
; ATM CP/M
 - 
 
481 
ATM_CPM         EI
 - 
 
482 
                HALT
 - 
 
483 
                DI
 - 
 
484 
        PEC_ON M_SHADOW_BF
 - 
 
485 
                LD HL,CPM_PAGES
 - 
 
486 
                LD DE,0x3F
 - 
 
487 
ATM_CPM1        LD BC,CONF_128
 - 
 
488 
                OUT (C),D
 - 
 
489 
                LD BC,LOW (WIN_A3)
 - 
 
490 
ATM_CPM2        OUTI
 - 
 
491 
                LD A,B
 - 
 
492 
                SUB E
 - 
 
493 
                LD B,A
 - 
 
494 
                JR NZ,ATM_CPM2
 - 
 
495 
                LD A,D
 - 
 
496 
                XOR 0x10
 - 
 
497 
                LD D,A
 - 
 
498 
                JR NZ,ATM_CPM1
 - 
 
499 
                LD SP,0x8000
 - 
 
500 
                LD BC,0x177
 - 
 
501 
                LD A,6
 - 
 
502 
                OUT (C),A
 - 
 
503 
                LD BC,FDD_EMU_PORT
 - 
 
504 
                XOR A
 - 
 
505 
                OUT (C),A
 - 
 
506 
        PEC_OFF M_SHADOW_BF
 - 
 
507 
                JP 0x000C
 - 
 
508 
 
 - 
 
509 
CPM_PAGES       DB 3!0x7F,2!0x7F,4!0x7F,0!0x7F
 - 
 
510 
                DB 3!0x7F,2!0x7F,5!0x7F,ROM_ATMCPM
 - 
 
511 
 
 - 
 
512 
; установка разрешения/запрещения эмуляции ленты
 480 
; установка разрешения/запрещения эмуляции ленты
513 
SET_EMU_TAPE    LD H,CMOS_BYTE_00
 481 
SET_EMU_TAPE    LD H,CMOS_BYTE_00
514 
                CALL READCMOS
 482 
                CALL READCMOS
515 
                AND M_EMUL_TAPE
 483 
                AND M_EMUL_TAPE
516 
                RET Z
 484 
                RET Z