Subversion Repositories pentevo

Rev

Rev 543 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 543 Rev 713
Line 1... Line -...
1
        ORG     #8000
        DISP    0

        JP      INIT

        DS      #0038-$

INT     EI 
        RET 

        DS      #0066-$

NMI
        NOP 
        JR      $



INIT    XOR     A
        LD      BC,#7FFD
        OUT     (C),A

        LD      A,#3F-#1F ; ROM page #1F
        LD      BC,#3FF7
        OUT     (C),A

        LD      BC,#FD77
        LD      A,#FB ;6912 mode, 14MHz turbo, enable memmanager
        OUT     (C),A ;shadow on

        XOR     A        ;RAM page FF to C000-FFFF
        LD      BC,#FFF7
        OUT     (C),A
        LD      B,#F7
        OUT     (C),A

        LD      SP,#FFFF ;stack


        ;test INT
        IM      1
        EI 
        HALT 
        DI 


        LD      HL,NMICODE
        LD      DE,#C066
        LD      BC,ENMICODE-NMICODE
        LDIR 


        LD      A,#08    ;gen NMI
        OUT     (#BF),A
        XOR     A
        OUT     (#BF),A


        OR      A    ;wait NMI
        JP      Z,$-1



        JP      #C066+NMIGENRAM-NMICODE

NMICODE
        NOP 
        INC     A
        OUT     (#BE),A
        RETN 

NMIGENRAM
        LD      A,#08    ;gen NMI
        OUT     (#BF),A
        XOR     A
        OUT     (#BF),A


        OR      A    ;wait NMI
        JR      Z,$-1

        JR      NMIGENRAM

ENMICODE
▌
-
 
2
1
        ORG     #8000
-
 
2
        DISP    0
-
 
3
 
-
 
4
        JP      INIT
-
 
5
 
-
 
6
        DS      #0038-$
-
 
7
 
-
 
8
INT     EI 
-
 
9
        RET 
-
 
10
 
-
 
11
        DS      #0066-$
-
 
12
 
-
 
13
NMI
-
 
14
        NOP 
-
 
15
        JR      $
-
 
16
 
-
 
17
 
-
 
18
 
-
 
19
INIT    XOR     A
-
 
20
        LD      BC,#7FFD
-
 
21
        OUT     (C),A
-
 
22
 
-
 
23
        LD      A,#3F-#1F ; ROM page #1F
-
 
24
        LD      BC,#3FF7
-
 
25
        OUT     (C),A
-
 
26
 
-
 
27
        LD      BC,#FD77
-
 
28
        LD      A,#FB ;6912 mode, 14MHz turbo, enable memmanager
-
 
29
        OUT     (C),A ;shadow on
-
 
30
 
-
 
31
        XOR     A        ;RAM page FF to C000-FFFF
-
 
32
        LD      BC,#FFF7
-
 
33
        OUT     (C),A
-
 
34
        LD      B,#F7
-
 
35
        OUT     (C),A
-
 
36
 
-
 
37
        LD      SP,#FFFF ;stack
-
 
38
 
-
 
39
 
-
 
40
        ;test INT
-
 
41
        IM      1
-
 
42
        EI 
-
 
43
        HALT 
-
 
44
        DI 
-
 
45
 
-
 
46
 
-
 
47
        LD      HL,NMICODE
-
 
48
        LD      DE,#C066
-
 
49
        LD      BC,ENMICODE-NMICODE
-
 
50
        LDIR 
-
 
51
 
-
 
52
 
-
 
53
        LD      A,#08    ;gen NMI
-
 
54
        OUT     (#BF),A
-
 
55
        XOR     A
-
 
56
        OUT     (#BF),A
-
 
57
 
-
 
58
 
-
 
59
        OR      A    ;wait NMI
-
 
60
        JP      Z,$-1
-
 
61
 
-
 
62
 
-
 
63
 
-
 
64
        JP      #C066+NMIGENRAM-NMICODE
-
 
65
 
-
 
66
NMICODE
-
 
67
        NOP 
-
 
68
        INC     A
-
 
69
        OUT     (#BE),A
-
 
70
        RETN 
-
 
71
 
-
 
72
NMIGENRAM
-
 
73
        LD      A,#08    ;gen NMI
-
 
74
        OUT     (#BF),A
-
 
75
        XOR     A
-
 
76
        OUT     (#BF),A
-
 
77
 
-
 
78
 
-
 
79
        OR      A    ;wait NMI
-
 
80
        JR      Z,$-1
-
 
81
 
-
 
82
        JR      NMIGENRAM
-
 
83
 
-
 
84
ENMICODE
-
 
85
?
-
 
86