Subversion Repositories pentevo

Rev

Rev 764 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
623 savelij 1 
 
764 savelij 2 
;LAST UPDATE: 05.09.2017 savelij
623 savelij 3 
 
764 savelij 4 
                TITLE "raznoe.a80"
5 
 
761 savelij 6 
        IF EMU
888 savelij 7 
CMP_VARSTRDOS
8 
;               CALL SET_RWPORT0
623 savelij 9 
                LD HL,(CHANS)
10 
                RET
11 
 
12 
LOC_2A53_       IF EMU3D2F=1
678 savelij 13 
                RST30 WOUTCA
623 savelij 14 
                RET
15 
                RET
16 
                ELSE
17 
                PUSH AF
18 
                INC C
19 
                JR Z,LOC2A53
20 
                ENDIF
21 
                DEC C
22 
                POP AF
23 
                OUT (C),A
24 
                RET
25 
 
26 
LOC2A53         DEC C
27 
                POP AF
678 savelij 28 
                RST30 WOUTCA
623 savelij 29 
                RET
30 
 
31 
EMU_LDIR        PUSH AF
32 
                LD A,H
33 
                CP 0X2A
34 
                JR NZ,EMU_LDIR2
35 
                LD A,L
36 
                CP 0X54
37 
                JR NC,EMU_LDIR2
38 
                CP 0X50
39 
                JR C,EMU_LDIR2
40 
                ADD HL,BC
41 
                PUSH HL
42 
                LD HL,0X3FF0-3
43 
                CP 0X53
44 
                JR NZ,EMU_LDIR0
45 
                LD HL,0X3FF0
46 
EMU_LDIR0       LDIR
47 
                POP HL
48 
                POP AF
49 
                RET
50 
 
678 savelij 51 
EMU_LDIR2       LD A,(NUM_ALT_PAGE)
52 
                PUSH AF
53 
                PUSH BC
736 savelij 54 
                LD A,ROM_BAS48|0X80
678 savelij 55 
                LD BC,WIN_A0
56 
                CALL WR_BYTE_RET
623 savelij 57 
                POP BC
58 
                LDIR
678 savelij 59 
                POP AF
623 savelij 60 
                PUSH BC
678 savelij 61 
                LD BC,WIN_A0
62 
                CALL WR_BYTE_RET
623 savelij 63 
                POP BC
678 savelij 64 
                POP AF
623 savelij 65 
                RET
66 
 
67 
EMU_LDIR_RBC    CALL EMU_LDIR
68 
                POP BC
69 
                RET
70 
 
71 
EMU_LDIR_RHL    CALL EMU_LDIR
72 
                POP HL
73 
                RET
74 
 
75 
PRINT_VIRTDRV   LD H,VIRT_REAL_DRIVE
76 
                CALL READCMOS           ;
77 
                AND 3                   ;   2
78 
                ADD A,"A"               ;
79 
                RST 0X10                ;
80 
                RET
81 
 
678 savelij 82 
CMP_RAMDISK     RST30 _CMP_RAMDISK
623 savelij 83 
                LD HL,SET_VARS
84 
                RET
761 savelij 85 
        ENDIF
623 savelij 86 
 
87 
PRINT2ZERO      LD A,(HL)
88 
                INC HL
89 
                AND A
90 
                RET Z
91 
                RST 0X10
92 
                JR PRINT2ZERO
678 savelij 93 
 
761 savelij 94 
        IF EMU
678 savelij 95 
ADD_TXT_VERS    LD HL,TEXT4VIRTDRV      ;
96 
                RST 0X18                ;
97 
                LD H,VIRT_REAL_DRIVE
98 
                CALL READCMOS           ;
99 
                AND 3                   ;   2
100 
                ADD A,"A"               ;
101 
                RST 0X10                ;
102 
                RET
761 savelij 103 
        ENDIF