Subversion Repositories NedoOS

Rev

Rev 435 | Details | Compare with Previous | Last modification | View Log

Rev Author Line No. Line
213 alone 1 
genscalers
2 
       IF customscales
3 
        LD HL,tscales
4 
        LD B,64
5 
        LD DE,64
6 
DeCust PUSH BC
7 
        LD C,(HL)
8 
        LD (HL),E
9 
        INC HL
10 
        LD B,(HL)
11 
        LD (HL),D
12 
        INC HL
13 
        EXD
14 
        ADD HL,BC
15 
        EXD
16 
       POP BC
17 
        DJNZ DeCust
18 
       ENDIF ;customscales
19 
 
20 
        LD IY,tscaljps;tjp
21 
        LD HL,0xc000;prog
22 
        LD DE,tscales
23 
        LD B,64
24 
GENATM0 ;
435 alone 25 
        LD (IY),0xC3
213 alone 26 
        LD (IY+1),L
27 
        LD (IY+2),H
437 alone 28 
        ;LD (IY+3),0
213 alone 29 
       PUSH BC
30 
        EXD
31 
        LD C,(HL)
32 
        INC HL
33 
       PUSH HL
34 
        LD B,(HL) ;BC=scale
35 
        EXD
36 
        CALL GENATMPP
37 
       POP DE
38 
        INC DE
435 alone 39 
        ld bc,4
40 
        add iy,bc
213 alone 41 
       POP BC
42 
        DJNZ GENATM0
43 
        RET
44 
 
435 alone 45 
;। ⨬ ਬ ld hl,walltop  scrtop
213 alone 46 
tgenatmhead
47 
        jr NC,$+4
48 
        SET 5,H ;todo LD H,
49 
         ADD A,L ;todo skip if L<=-40
50 
        LD L,A
51 
         jr NC,$+3 ;todo skip if L<=-40
52 
         INC H   ;todo skip if L<=-40
53 
lgenatmhead=$-tgenatmhead
54 
 
55 
GENATMPP
56 
;BC=scale
57 
;HL=prog
58 
        LD A,C
59 
        LD (genC),A
60 
        LD A,B
61 
        LD (genB),A
62 
        EXD
435 alone 63 
        call scale2ytop
213 alone 64 
;DE = Y
65 
;LX = y
66 
       PUSH DE ;Y
67 
        LD A,D
68 
        OR A
69 
        jr NZ,GENTOP
70 
        LD A,E
71 
        CP Ytop
72 
        jr C,GENTOP
73 
        CALL YtoADDR
74 
        JR GENnTOP
75 
GENTOP  LD DE,scrtop
76 
GENnTOP
435 alone 77 
        LD A,0x80
78 
        LD (genpix0),A ; ࠧ
213 alone 79 
       IF addhlbc
435 alone 80 
        LD (HL),0x21 ;ld hl,NN
213 alone 81 
        INC HL
82 
        LD (HL),E
83 
        INC HL
84 
        LD (HL),D
85 
        INC HL
435 alone 86 
        PUSH BC
87 
        push DE
213 alone 88 
        EXD
89 
        LD HL,tgenatmhead
90 
        LD BC,lgenatmhead
91 
        LDIR
92 
        EXD
435 alone 93 
        POP DE
94 
        pop BC
213 alone 95 
       ELSE
96 
        LD A,D
97 
        OR E
435 alone 98 
        LD (HL),0xEB ;exd
213 alone 99 
        jr Z,GENTOPH
435 alone 100 
         LD (HL),0x21 ;ld hl,NN
213 alone 101 
         INC HL
102 
         LD (HL),E
103 
         INC HL
104 
         LD (HL),D
105 
         INC HL
435 alone 106 
         LD (HL),0x19 ;add hl,de
213 alone 107 
GENTOPH INC HL
108 
       ENDIF
109 
       IF addhlbc == 0
110 
        LD A,D
111 
        LD (curH),A
435 alone 112 
        LD (HL),0xD1 ;pop de
213 alone 113 
        INC HL
114 
       ENDIF
115 
       POP DE ;Y
116 
        LD HX,0 ;V
117 
GENATMPP0
118 
       ;Y+=scale
119 
        LD A,LX
120 
genC=$+1
121 
        ADD A,0
122 
        LD LX,A ;y
123 
        LD A,0
124 
genB=$+1
125 
        ADC A,0 ;A=dY
126 
        jr Z,GENATMnPIX
127 
        LD B,A
128 
GENATMPIX0
129 
        CALL GENATMPIX
130 
        INC DE
131 
        LD A,D
132 
        OR A
133 
        jr NZ,$+7
134 
         LD A,E
135 
         CP Ybottom
136 
         jr NC,GENATMPPQ
137 
        DJNZ GENATMPIX0
138 
GENATMnPIX
139 
        INC HX
140 
        LD A,HX
141 
        CP 64
142 
        jr Z,GENATMPPQ
143 
        RRA
144 
        jr C,$+5
435 alone 145 
         LD (HL),0xD1 ;pop de
213 alone 146 
         INC HL
147 
        JR GENATMPP0
148 
GENATMPPQ
149 
       IF addhlbc == 0
435 alone 150 
       LD A,0xD1 ;skip pop de's
213 alone 151 
       DEC HL
152 
       CP (HL)
153 
       jr Z,$-2
154 
        LD A,(HL)
435 alone 155 
        CP 0x72 ;ld (hl),d
213 alone 156 
       ELSE
157 
genatmend=$+1
158 
        LD HL,0
159 
       ENDIF
435 alone 160 
        LD (HL),0xDD
213 alone 161 
       IF addhlbc == 0
162 
        jr NZ,$+5
163 
         INC HL
435 alone 164 
         LD (HL),0xFD
213 alone 165 
       ENDIF
166 
        INC HL
435 alone 167 
        LD (HL),0xE9 ;jp (ix) ;(iy) for ld (hl),d
213 alone 168 
        INC HL
169 
        RET
170 
 
171 
GENATMPIX
172 
        LD A,D
173 
        OR A
174 
        RET NZ
175 
        LD A,E
176 
        CP Ytop
177 
        RET C
178 
       PUSH DE ;Y
179 
        CALL YtoADDR
180 
genpix0=$+1
437 alone 181 
        LD A,0x80
213 alone 182 
        ADD A,A
183 
        LD (genpix0),A
437 alone 184 
       IF addhlbc
213 alone 185 
        jr C,$+5 ; ࠧ
437 alone 186 
         LD (HL),0x09 ;add hl,bc
213 alone 187 
         INC HL
188 
       ELSE
189 
        jr C,GENPIXQ ; ࠧ
190 
curH=$+1
191 
        LD A,0
192 
        INC A
193 
        CP D
194 
        LD A,D
195 
        LD (curH),A
196 
        jr NZ,GENPIXnH
197 
        ;LD (HL),#24 ;inc h
437 alone 198 
         LD (HL),0x09 ;add hl,bc
213 alone 199 
         INC HL
200 
        JR GENPIXQ
201 
GENPIXnH
202 
       LD A,E
203 
      ;OR A
204 
      ;LD (HL),#68 ;ld l,b
205 
      ;JZ GENPIXL
206 
      ;CP 40 ;⮫쪮   8- ⮫
207 
      ;LD (HL),#69 ;ld l,c
208 
      ;JZ GENPIXL
437 alone 209 
       CP 0xB8
210 
       LD (HL),0x6F ;ld l,a
213 alone 211 
       jr Z,GENPIXL
437 alone 212 
         LD (HL),0x2E ;ld l,N
213 alone 213 
         INC HL
214 
         LD (HL),E
215 
GENPIXL INC HL
216 
GENPIXQ
217 
       ENDIF ;~addhlbc
218 
        LD A,HX ;V
219 
        RRA
437 alone 220 
        LD (HL),0x73 ;ld (hl),e
221 
        jr NC,$+3;4
222 
        dec (hl);LD (HL),0x72 ;ld (hl),d
213 alone 223 
        INC HL
224 
       IF addhlbc
225 
       LD (genatmend),HL
226 
       ENDIF
227 
       POP DE ;Y
228 
        RET