-
Notifications
You must be signed in to change notification settings - Fork 1
/
CASH2.asm
90 lines (89 loc) · 2.08 KB
/
CASH2.asm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
ORG #8000
;
LD SP,$
DI
LD HL,PROG66 ;Copy NMI Prog
LD DE,#66
LD BC,LEN66
IN A,(#FB)
LDIR
IN A,(#7B)
LD HL,0 ;Reset
PUSH HL
JP #3D2F
PROG66
.PHASE #66
PRO
DI
POP HL
LD BC,#7FFD
LD A,#D7 ;Page STS 4.4
OUT (C),A
LD (#C000),HL
LD SP,#DA00
LD HL,#D000
LD (HL),#DB ;IN A,(#7B)
INC HL
LD (HL),#7B
INC HL
LD (HL),#CD ;CALL #DB00
INC HL
LD (HL),0
INC HL
LD (HL),#DB
INC HL
LD (HL),#DB ;IN A,(#FB)
INC HL
LD (HL),#FB
INC HL
LD (HL),#C9 ;RET
CALL #D000 ;Call STS
LD SP,0
FSPM EQU $-2
JUMPING LD BC,#7FFD
LD A,#10 ;Page Exit
OUT (C),A
LD HL,#4000
LD (HL),#DB ;IN A,(#7B)
INC HL
LD (HL),#7B
INC HL
LD (HL),#F1 ;POP AF
INC HL
LD (HL),#31 ;LD SP,0
LD HL,0
FOSP EQU $-2
LD (#4004),HL
LD A,#C9 ;RET
LD (#4006),A
;-------
POP AF
LD R,A
POP AF
LD I,A
DI
LD A,#FF
JP PO,LL2ECC
LD A,0
LL2ECC LD (L5C00),A
POP AF
POP HL
POP DE
POP BC
EXX
EX AF,AF'
POP IY
POP IX
POP HL
POP DE
POP BC
LD A,0
L5C00 EQU $-1
OR A
JR NZ,LL2F03
EI
LL2F03
JP #4000
LEN66 EQU $-PRO
.UNPHASE
DISPLAY $