Za korekce češtiny dekuji: MELSOFTovi, Silliconovi, Martinu Lukáškovi a NOSTALCOMPovi
Když začínám blbnout z 8bitů tak se chodím léčit mezi otaku.
ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt
SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS | FK-1 | HVĚZDA | SP 830 | PCS 1-QR6000
ZPS | Technické prostředky | Programové vybavení | Dokumentace
1 PAGE 66
MACRO-80 3.44 09-Dec-81 PAGE 1
2
3 ;*******************************************************
4 ;* *
5 ;* B D O S p r o Z P S 2 *
6 ;* *
7 ;*******************************************************
8 ;
9 ; modify Jiri Hlavac
10 ; 22.3.1988
11 ;
12 ;*************************************************************
13 .z80
14
15
16 0DF9 longBD EQU $next - bdosb ;delka BDOSu (max 0E00H)
17 ;*******************************************************
18
19 40E2 iobyte EQU 40E2H ;adresa IOBYTU v MONITORU ZPS2
20 4280 dmaad EQU 4280H ;implicitni buffer
21 4300 ramb EQU 4300H ;zacatek pouzitelne RAM
22 4400 TPA EQU 4400H ;zacatek uzivatelske oblasti
23
24 0E00 bdosl EQU 0E00H ;delka BDOS
25 F000 bdosb EQU 0F000H ;baze BDOS
26 FE00 biosb EQU bdosb + bdosl ;baze BIOS
27
28 F006 bdos EQU bdosb + 6 ;vstupni bod BDOS
29 FE00 bios EQU biosb ;vstupni bod BIOS
30 FE03 reboot EQU bios+3 ;adresa restartu
31 ;*******************************************************
32
33 .PHASE bdosb
34
35 F000 5A 50 53 2D SSEQ: DEFB 'ZPS-2 ' ; SYNCHRO SEKVENCE
36 F004 32 20
37 F006 C3 F011 JP BD100 ; VSTUPNI BOD B D O S
38
39 ; TABULKA ADRES PROCEDUR ZPRACOVANI CHYBOVYCH STAVU
40
41 F009 F099 BDSJPA: DEFW BADSEC ; BAD SECTOR
42 F00B F0A5 SLEJPA: DEFW SELERR ; ERROR SELECT
43 F00D F0AB ROEJPA: DEFW ROERR ; READ ONLY ERROR
44 F00F F0B1 FROJPA: DEFW FROERR ; FILE READ ONLY ERROR
45 ;
46 ;
47 ;
48 F011 EB BD100: EX DE,HL ; ADRESA FCB DO [HL]
49 F012 22 F34E LD (FCBSAV),HL ; USCHOVA ADRESY FCB
50 F015 EB EX DE,HL ;
51 F016 7B LD A,E ; USCHOVA REG.[E]
52 F017 32 FDDE LD (ESAV),A ;
53 F01A 21 0000 LD HL,0 ; NULA DO [HL]
54 F01D 22 F350 LD (RETPRM),HL ; NULOVANI NAVRATOVEHO PAR.
55 F020 39 ADD HL,SP ; [SP] DO [HL]
56 F021 22 F34A LD (SPSAV),HL ; USCHOVA UZIV. ZASOBNIKU
57 F024 31 F34A LD SP,BDSP ; NASTAVENI [SP] PRO BDOS
58 F027 AF XOR A ; NULA DO [A]
59 F028 32 FDE8 LD (UNITNO),A ; NULOVANI # DISK. JEDNOTKY
60 F02B 32 FDE6 LD (DSKFLG),A ; NILOVANI DISK FLAG
61 F02E 21 FD7C LD HL,RTBDOS ; PRIPRAVA NAVRATOVE ADRESY
62 F031 E5 PUSH HL ; Z BDOS DO [SP]
MACRO-80 3.44 09-Dec-81 PAGE 1-1
63 F032 79 LD A,C ; CISLO SLUZBY DO [A]
64 F033 FE 29 CP 41 ; TEST CISLA SLUZBY < 40
65 F035 D0 RET NC ; NAVRAT PRI NEPLATNEH # SLUZBY
66 F036 4B LD C,E ; PRESUN [E] DO [C]
67 F037 21 F047 LD HL,CHDJPT ; VST.BOD TAB.ADRES SLUZEB BDOS
68 F03A 5F LD E,A ; # SLUZBY DO [E]
69 F03B 16 00 LD D,0 ; NULA DO [D]
70 F03D 19 ADD HL,DE ; VYPOCET ADRESY PROCEDURY
71 F03E 19 ADD HL,DE ; SLUZBY BDOS
72 F03F 5E LD E,(HL) ; A JEJI PRESUN DO [DE]
73 F040 23 INC HL
74 F041 56 LD D,(HL) ;
75 F042 2A F34E LD HL,(FCBSAV) ; INICIALIZACE FCB ADR
76 F045 EB EX DE,HL ;
77 F046 E9 JP (HL) ; SKOK DO PROCEDURY SLUZBY
78 ;
79 ;
80 ; PRI SKOKU DO PROCEDURY SLUZBY BDOS JSOU PAMET A REGIST-
81 ; RY NASTAVENY TAKTO:
82 ;
83 ; REG [C] OBSAHUJE [E] PRED VOLANIM BDOS
84 ; [DE] OBSAHUJE [DE] PRED VOLANIM BDOS
85 ;
86 ; PAMET ESAV OBSAHUJE USCHOVANY [E]
87 ; FCBSAV OBSAHUJE USCHOVANY [DE]
88 ; SPSAV OBSAHUJE USCHOVANY UZIVATELSKY [SP]
89 ;
90 ; STACK ADRESA NAVRATOVE PROCEDURY Z BDOS
91 ;
92 ;
93 ;
94 ; TABULKA ADRES SLUZEB BDOS
95 ;
96 ;
97 F047 FE03 CHDJPT: DEFW BIOS+03H ; CMD 00- RESET SYSTEMU (BOOT)
98 F049 F2C8 DEFW CONINP ; CMD 01- VSTUP ZNAKU Z KONZOLY
99 F04B F190 DEFW CONOUT ; CMD 02- VYST.ZNAKU NA KONZOLU
100 F04D F2CE DEFW RDINP ; CMD 03- VST.ZNAKU ZE SNIMACE
101 F04F FE12 DEFW BIOS+12H ; CMD 04- VYST.ZNAKU NA DEROVAC
102 F051 FE0F DEFW BIOS+0FH ; CMD 05- VYST.ZNAKU NA TISKARN
103 F053 F2D4 DEFW DCONIO ; CMD 06- PRIHY I/O NA KONZOLU
104 F055 F2E6 DEFW GETIOB ; CMD 07- DEJ I/O BYTE
105 F057 F2EC DEFW SETIOB ; CMD 08- NASTAV I/O BYTE
106 F059 F2F1 DEFW PRTSTG ; CMD 09- VYPIS ASCII RETEZEC
107 F05B F1E1 DEFW RDCONB ; CMD 10- CTI RETEZEC Z KONZOLY
108 F05D F2F7 DEFW GCOSTS ; CMD 11- DEJ STATUS KONZOLY
109 F05F FC83 DEFW RETVER ; CMD 12- DEJ CISLO VERZE OS
110 F061 FC88 DEFW RESDSY ; CMD 13- RESET DISK. SYSTEHU
111 F063 FC4A DEFW SELDSK ; CMD 14- VYBER DISK
112 F065 FCA1 DEFW OPFIL ; CMD 15- OTEVRI SOUBOR
113 F067 FCAA DEFW CLFIL ; CMD 16- ZAVRI SOUBOR
114 F069 FCB0 DEFW SFFRST ; CMD 17- HLEDEJ PRVNI VYSKYT
115 ; V ADRESARI
116 F06B FCCD DEFW SFNEXT ; CMD 18- HLEDEJ DALSI VYSKYT
117 ; V ADRESARI
118 F06D FCDC DEFW DELFIL ; CMD 19- ZRUS SOUBOR
119 F06F FCE5 DEFW RDSEQ ; CMD 20- SEKVENCNI CTENI
120 F071 FCEB DEFW WRTSEQ ; CMD 21- SEKVENCNI ZAPIS
121 F073 FCF1 DEFW MAKFIL ; CMD 22- ZALOZ SOUBOR
122 F075 FCFA DEFW RENFIL ; CMD 23- PREJHENUJ SOUBOR
123 F077 FD03 DEFW RETLOG ; CMD 24- VRAT VEKTOR AKTIVNICH
124 ; DISKU
MACRO-80 3.44 09-Dec-81 PAGE 1-2
125 F079 FD09 DEFW RETCDK ; CMD 25- VRAT # VYBRANEHO DISKU
126 F07B FD0F DEFW SETDMA ; CMD 26- NASTAV DMA ADREQU
127 F07D FD19 DEFW GETALC ; CMD 27- DEJ ADR.ALOKACN.VEKT,
128 F07F F52D DEFW WRTPRT ; CMD 28- OZNAC DISK JAKO R/O
129 F081 FD1F DEFW GETROV ; CMD 29- DEJ ADRESU R/O VEKTORU
130 F083 FD25 DEFW SETFAT ; CMD 30- NASTAV ATRIB. SOUBORU
131 F085 FD2E DEFW GETDPA ; CMD 31- DEJ ADR.PARAM. DISKU
132 F087 FD35 DEFW SGUCD ; CMD 32- DEJ/ZMEN # UZIVATELE
133 F089 FD49 DEFW RDRND ; CMD 33- PRIME CTENI ZE SOUBORU
134 F08B FD4F DEFW WRTRND ; CMD 34- PRIMY ZAPIS DO SOUBORU
135 F08D FD55 DEFW CFSIZE ; CMD 35- VYPOC. DELKU SOUBORU
136 F08F FD16 DEFW SRNDRC ; CMD 36- NASTAV CISLO ZAZNAMU
137 ; PRO PRIMY ZAPIS
138 F091 FD5B DEFW RESDSK ; CMD 37- RESET DISK. JEDNOTKY
139 F093 F2FD DEFW RETRET ; CMD 38- NEIMPLEMENTOVANO
140 F095 F2FD DEFW RETRET ; CMD 39- NEIMPLEMENTOVANO
141 F097 FDA3 DEFW WRRDZF ; CMD 48- POPIS ALOKACNI BLOK
142 ; NULANI A ULOZ ZAZNAM
143 ;
144 ;
145 ; CHYBOVE PROCEDURY BDOS
146 ;
147 F099 21 F0CA BADSEC: LD HL,BDSMSG ; ADRESA HLASENI DO [HL]
148 F09C CD F0E5 CALL BDOSER ; VYPIS HLASENI
149 F09F FE 03 CP 03H ; TEST ZADANI CTRL-C
150 F0A1 CA FE03 JP Z,REBOOT ; CTRL-C ZADANO => REBOOT
151 F0A4 C9 RET ; JINAK RETURN
152 ;
153 F0A5 21 F0D5 SELERR: LD HL,SELMSG ; ADRESA CHYB. HLASENI DO [HL]
154 F0A8 C3 F0B4 JP COHEER ; VYPIS HLASENI + REBOOT
155 ;
156 F0AB 21 F0E1 ROERR: LD HL,ROMSG ; ADRESA CHYB, HLASENI DO [HL]
157 F0AE C3 F0B4 JP COHEER ; VYPIS HLASENI + REBOOT
158 ;
159 F0B1 21 F0DC FROERR: LD HL,FILMSG ; ADRESA CHYB. HLASENI DO [HL]
160 F0B4 CD F0E5 COHEER: CALL BDOSER ; VYPIS HLASENI
161 F0B7 C3 FE03 JP REBOOT ; A REBOOT
162 ;
163 F0BA 42 44 4F 53 BDEMSG: DEFB 'BDOS ERR ON '
164 F0BE 20 45 52 52
165 F0C2 20 4F 4E 20
166 F0C6 20 3A 20 24 BDEUNI: DEFB ' : $'
167 F0CA 42 41 44 20 BDSMSG: DEFB 'BAD SECTOR$'
168 F0CE 53 45 43 54
169 F0D2 4F 52 24
170 F0D5 53 45 4C 45 SELMSG: DEFB 'SELECT$'
171 F0D9 43 54 24
172 F0DC 46 49 4C 45 FILMSG: DEFB 'FILE '
173 F0E0 20
174 F0E1 52 2F 4F 24 ROMSG: DEFB 'R/O$'
175 ;
176 ;
177 ; PROCEDURA VYPISU CHYBOVYCH HLASENI BDOS
178 ;
179 F0E5 E5 BDOSER: PUSH HL ; USCHOVA ADRESY HLASENI
180 F0E6 CD F1C9 CALL CRLF ; VYPIS CR + LF
181 F0E9 3A F34D LD A,(DSKNO) ; CISLO DISKU DO [A]
182 F0EC C6 41 ADD A,41H ; JEHO UPRAVA NA ASCII
183 F0EE 32 F0C6 LD (BDEUNI),A ; A PRESUN DO TEXTU HLASENI
184 F0F1 01 F0BA LD BC,BDEMSG ; INICIALIZACE ADRES A VYPIS
185 F0F4 CD F1D3 CALL TYPSTG ; HLASENI
186 F0F7 C1 POP BC ;
MACRO-80 3.44 09-Dec-81 PAGE 1-3
187 F0F8 CD F1D3 CALL TYPSTG ;
188 ; CEKANI NA VSTUP ZNAKU
189 ;
190 ;
191 ; CTENI ZNAKU Z KONZOLY
192 ;
193 F0FB 21 F307 COIN: LD HL,INBYT ; ADRECA VCTUPNIHO BYTE DO [HL]
194 F0FE 7E LD A,(HL) ; VST. BYTE (ZNAK) DO [A]
195 F0FF 36 00 LD (HL),0 ; NULOVANI VST. BYTE
196 F101 B7 OR A ; TEST VST. BYTE
197 F102 C0 RET NZ ; RET KDYZ VST.BYTE JIZ BYL
198 ; NAPLNEN
199 F103 C3 FE09 JP BIOS+09H ; JINAK CTENI ZNAKU + RETURN
200 ;
201 ;
202 ; PROCEDURA VSTUPU ZNAKU Z KONZOLY
203 ;
204 F106 CD F0FB CORD: CALL COIN ; CTENI ZNAKU Z KONZOLY
205 F109 CD F114 CALL TSTCTL ; TEST MOZNOSTI ZOBRAZENI
206 F10C D8 RET C ; KDYZ NELZE ZOBRAZIT
207 F10D F5 PUSH AF ; USCHOVA ZNAKU DO ZACOBNIKU
208 F10E 4F LD C,A ; A DO [C]
209 F10F CD F190 CALL CONOUT ; ZOBRAZENI (ECHO) ZNAKU
210 F112 F1 POP AF ; PRIPRAVA ZNAKU DO [A]
211 F113 C9 RET
212 ;
213 ;
214 ; TEST MOZNOCTI ZOBRAZENI ZNAKU
215 ;
216 F114 FE 0D TSTCTL: CP 0DH ; TEST NA CR
217 F116 C8 RET Z ; RETURN KDYZ CR
218 F117 FE 0A CP 0AH ; TEST NA LF
219 F119 C8 RET Z ; RETURN KDYZ LF
220 F11A FE 09 CP 09H ; TEST NA TAB
221 F11C C8 RET Z ; RETURN KDYZ TAB
222 F11D FE 08 CP 08H ; TEST NA BACKCPACE
223 F11F C8 RET Z ; RETURN KDYZ BACKCPACE
224 F120 FE 20 CP ' ' ; TEST NA MEZERU (20H)
225 F122 C9 RET ; RETURN
226 ;
227 ;
228 ; TEST VSTUPU - OBSLUHA CTRL-S (STOP) A CTRL-C
229 ;
230 F123 3A F307 TSTINP: LD A,(INBYT) ; VSTUPNI BYTE DO [A]
231 F126 B7 OR A ; JEHO TEST
232 F127 C2 F145 JP NZ,TCP130 ; CKOK KDYZ JIZ BYL NAPLNEN
233 ;
234 F12A CD FE06 CALL BIOS+06H ; TEST STATUSU CONSOLY
235 F12D E6 01 AND 01H ;
236 F12F C8 RET Z ; RET KDYZ JE ZNAK V BUFFERU
237 F130 CD FE09 CALL BIOS+09H ; CTENI VST. BYTU (ZNAKU)
238 F133 FE 13 CP 13H ; JE TO CTRL-S (STOP)?
239 F135 C2 F142 JP NZ,TCP120 ; CKOK KDYZ NE
240 F138 CD FE09 CALL BIOS+09H ; CEKANI NA VSTUP DALSIHO ZNAKU
241 F13B FE 03 CP 03H ; JE TO CTRL-C (REBOOT)
242 F13D CA FE03 JP Z,REBOOT ; REBOOT KDYZ ANO
243 F140 AF XOR A ; NULOVANI [A]
244 F141 C9 RET
245 ;
246 F142 32 F307 TCP120: LD (INBYT),A ; ULOZENI VST. BYTE
247 F145 3E 01 TCP130: LD A,01 ; INDIKACE DO [A]
248 F147 C9 RET
MACRO-80 3.44 09-Dec-81 PAGE 1-4
249 ;
250 ;
251 ; OBSLUHA NEGRAFICKEHO VYSTUPNIHO BYTE (ZNAK S CTRL)
252 ;
253 F148 79 CTLBYT: LD A,C ; BYTE DO [A]
254 F149 CD F114 CALL TSTCTL ; TEST NA PLATNY CTRL ZNAK
255 ; NEBO HEZERU
256 F14C D2 F190 JP NC,CONOUT ; VYSTUP BYTU + RETURN
257 F14F F5 PUSH AF ; USCHOVA BYTU
258 F150 0E 5E LD C,'^' ; '^' K INDIKACI CTRL BYTU
259 F152 CD F159 CALL COOUT ; TISK '^'
260 F155 F1 POP AF ; OBNOVA BYTU
261 F156 F6 40 OR 40H ; NASTAV 6 BIT ZNAKU(JE ASCII)
262 F158 4F LD C,A ; A JEHO PRESUN DO [C]
263 ;
264 ;
265 ; PROCEDURA VYSTUPU ZNAKU NA KONZOLU
266 ;
267 F159 3A F303 COOUT: LD A,(BSFLAG) ; BACKSPACE FLAG DO [A]
268 F15C B7 OR A ; JEHO TEST
269 F15D C2 F173 JP NZ,COO110 ; SKOK KDYZ JE BACKSPACE FLAG
270 ; NASTAVENY
271 F160 C5 PUSH BC ; USCHOVA [BC]
272 F161 CD F123 CALL TSTINP ; TEST VSTUPU (CTRL-S)
273 F164 C1 POP BC ; INICIALIZACE [BC]
274 F165 C5 PUSH BC ; USCHOVA [BC]
275 F166 CD FE0C CALL BIOS+0CH ; VYPIS NA CONSOLU
276 F169 C1 POP BC ; INICIALIZACE [BC]
277 F16A C5 PUSH BC ; USCHOVA [BC]
278 F16B 3A F306 LD A,(CTLPF) ; CTRL-P FLAG DO [A]
279 F16E B7 OR A ; TEST CTRL-P FLAG
280 F16F C4 FE0F CALL NZ,BIOS+0FH ; KDYZ JE NASTAVENY => TISK
281 F172 C1 POP BC ; INICIALIZACE [BC]
282 ;
283 F173 79 COO110: LD A,C ; VYSTUPNI BYTE DO [A]
284 F174 21 F305 LD HL,CHRPOS ; ADRESA POZICE VYST. ZNAKU
285 F177 FE 7F CP 7FH ; JE TO RUBOUT / DELETE ?
286 F179 C8 RET Z ; RET KDYZ RUBOUT/DELETE
287 F17A 34 INC (HL) ; INIC. POZICE VYST. ZNAKU
288 F17B FE 20 CP 20H ; TEST HODNOTY ZNAKU (ASCII)
289 F17D D0 RET NC ; RET KDYZ NEBYL S CTRL
290 F17E 35 DEC (HL) ; RESET POZICE VYST. ZNAKU
291 F17F 7E LD A,(HL) ; POZICE ZNAKU DO [A]
292 F180 B7 OR A ; JEHO TEST NA NULU
293 F181 C8 RET Z ; RET KDYZ JE ROVEN NULE
294 F182 79 LD A,C ; VYSTUPNI ZNAK DO [A]
295 F183 FE 08 CP 08H ; JE TO BACKSPACE
296 F185 C2 F18A JP NZ,COO120 ; SKOK KDYZ NE
297 F188 35 DEC (HL) ; ANO,UPRAV POZICI VYST.ZNAKU
298 F189 C9 RET ; RETURN
299 F18A FE 0A COO120: CP 0AH ; JE TO LINE FEED ?
300 F18C C0 RET NZ ; RET KDYZ NE
301 F18D 36 00 LD (HL),0 ; NULOVANI POZICE VYST.ZNAKU
302 F18F C9 RET ; RETURN
303 ;
304 ;
305 ; VYSTUP ZNAKU NA KONZOLU CMD 02
306 ; =======================
307 ;
308 F190 79 CONOUT: LD A,C ; VYST.ZNAK DO [A]
309 F191 FE 09 CP 09H ; JE TO TAB ?
310 F193 C2 F159 JP NZ,COOUT ; SKOK KDYZ NENI TAB
MACRO-80 3.44 09-Dec-81 PAGE 1-5
311 F196 0E 20 CO10: LD C, ' ' ; MEZERA DO [C]
312 F198 CD F159 CALL COOUT ; VYPIS MEZERY
313 F19B 3A F305 LD A,(CHRPOS) ; POZICE VYST.ZNAKU DO [A]
314 F19E E6 07 AND 07H ; TEST NA TAB STOP
315 F1A0 C2 F196 JP NZ,CO10 ; OPAKOVANI PO TAB STOP
316 F1A3 C9 RET ; RETURN
317 ;
318 ;
319 ; VYMAZ ZNAKU Z OBRAZOVKY
320 ;
321 F1A4 CD F1AC BACKSP: CALL BCKSP ; NAVRAT KURZORU O JEDNU POZ.
322 F1A7 0E 20 LD C, ' ' ; MEZERA DO [C]
323 F1A9 CD FE0C CALL BIOS+0CH ; VYSTUP NA CONSOLU
324 F1AC 0E 08 BCKSP: LD C,08H ; BACKSPACE DO [C]
325 F1AE C3 FE0C JP BIOS+0CH ; VYSTUP NA CONSOLU + RETURN
326 ;
327 ;
328 ; ZRUSENI VSTUPNIHO RADKU - OSETRENI CTRL-U
329 ;
330 F1B1 3E 23 CTLU: LD A,'#' ; PRIPRAVA ZNAKU '#'
331 F1B3 CD F159 CALL COOUT ; JEHO VYPIS
332 F1B6 CD F1C9 CALL CRLF ; A CR + LF
333 F1B9 3A F305 CTLU20: LD A,(CHRPOS) ; POZICE VYST. ZNAKU DO [A]
334 F1BC 21 F304 LD HL,ICPOS ; ADRESA POZICE VST.ZNAKU
335 F1BF BE CP (HL) ; POROVNANI OBOU
336 F1C0 D0 RET NC ; RET PRI JEJICH ROVNOSTI
337 F1C1 0E 20 LD C, ' ' ; MEZERA DO [C]
338 F1C3 CD F159 CALL COOUT ; JEJI VYPIS
339 F1C6 C3 F1B9 JP CTLU20 ; OPAKOVANI
340 ;
341 ;
342 ; PROCEDURA VYPISU CR + LF
343 ;
344 F1C9 0E 0D CRLF: LD C,0DH ; PRIPRAVA CR
345 F1CB CD F159 CALL COOUT ; VYPIS CR
346 F1CE 0E 0A LD C,0AH ; PRIPRAVA LF
347 F1D0 C3 F159 JP COOUT ; VYPIS LF + RETURN
348 ;
349 ;
350 ; PROCEDURA VYPISU ASCII RETEZCE
351 ;
352 F1D3 0A TYPSTG: LD A,(BC) ; PRIPRAVA VYST. BYTU
353 F1D4 FE 24 CP '$' ; JE TO TERMINATOR ?
354 F1D6 C8 RET Z ; RET KDYZ ANO
355 F1D7 03 INC BC ; UPRAVA UKAZATELE
356 F1D8 C5 PUSH BC ; USCHOVA UKAZATELE
357 F1D9 4F LD C,A ; VYSTUPNI BYTE DO [C]
358 F1DA CD F190 CALL CONOUT ; JEHO VYPIS
359 F1DD C1 POP BC ; INICIALIZACE UKAZATELE
360 F1DE C3 F1D3 JP TYPSTG ; OPAKOVANI
361 ;
362 ;
363 ; CTI RETEZEC ZNAKU Z KONZOLY CMD 10
364 ; ===========================
365 ;
366 F1E1 3A F305 RDCONB: LD A,(CHRPOS) ; INICIALIZACE HODNOTY POZICE
367 F1E4 32 F304 LD (ICPOS),A ; VSTUPNIHO ZNAKU
368 ;
369 F1E7 2A F34E LD HL,(FCBSAV) ; ADRESA VST. BUFFERU DO [HL]
370 F1EA 4E LD C,(HL) ; DELKA BUFFERU DO [C]
371 F1EB 23 INC HL ; ADR. ULOZENI SKUTECNEHO POCTU
372 F1EC E5 PUSH HL ; JEJI USCHOVA DO ZASOBNIKU
MACRO-80 3.44 09-Dec-81 PAGE 1-6
373 F1ED 06 00 LD B,0 ; NULOVANI POCITADLA VST.BYTU
374 ;
375 F1EF C5 RCB110: PUSH BC ; USCHOVA [BC]
376 F1F0 E5 PUSH HL ; USCHOVA ADR. VSTUP. BUFFERU
377 ;
378 F1F1 CD F0FB RCB120: CALL COIN ; CTI VSTUPNI BYTE Z KONZOLY
379 F1F4 E6 7F AND 7FH ; NULUJ 7 BIT
380 F1F6 E1 POP HL ; OBNOVA ADR. VSTUP.
381 F1F7 C1 POP BC ; BUFFERU OBNOVA [BC]
382 F1F8 FE 0D CP 0DH ; TEST VSTUPU NA CR
383 F1FA CA F2C1 JP Z,RCB350 ; SKOK KDYZ JE VSTUP CR
384 F1FD FE 0F CP 0FH ; TEST VSTUPU NA LF
385 F1FF CA F2C1 JP Z,RCB350 ; SKOK KDYZ JE VSTUP LF
386 F202 FE 08 CP 08H ; TEST VSTUPU NA BACKSPACE
387 F204 C2 F216 JP NZ,RCB130 ; SKOK KDYZ VSTUP NENI BACKPACE
388 ;
389 F207 78 LD A,B ; POCET VST. BYTU DO [A]
390 F208 B7 OR A ; TEST NA NULU
391 F209 CA F1EF JP Z,RCB110 ; KDYZ NULA - CTI DALSI
392 F20C 05 DEC B ; UPRAVA POCTU VST.BYTU
393 F20D 3A F305 LD A,(CHRPOS) ; POZICE VYST. ZNAKU DO [A]
394 F210 32 F303 LD (BSFLAG),A ; ULOZENI NA BACKSPACE FLAG
395 F213 C3 F270 JP RCB240
396 ;
397 ;
398 F216 FE 7F RCB130: CP 7FH ; TEST VSTUPU NA RUBOUT/DELETE
399 F218 C2 F226 JP NZ,RCB150 ; SKOK KDYZ NENI RUBOUT/DELETE
400 F21B 78 LD A,B ; POCET VST.BYTU DO [A]
401 F21C B7 OR A ; JEHO TEST NA NULU
402 F21D CA F1EF JP Z,RCB110 ; CTI DALSI
403 F220 7E LD A,(HL) ; POSLEDNI VSTUP. BYTE DO [A]
404 F221 05 DEC B ; UPRAVA POCTU VST. BYTU
405 F222 2B DEC HL ; UPRAVA ADRESY VST.BUFFERU
406 F223 C3 F2A9 JP RCB320 ; SKOK NA "ECHO" VST. BYTU
407 ;
408 ;
409 F226 FE 05 RCB150: CP 05H ; TEST VSTUPU NA CTRL-E
410 ; (END-OF-LINE)
411 F228 C2 F237 JP NZ,RCB170 ; SKOK KDYZ NEBYLO CTRL-E
412 F22B C5 PUSH BC ; USCHOVA [BC]
413 F22C E5 PUSH HL ; USCHOVA ADR. VST. BUFFERU
414 F22D CD F1C9 CALL CRLF ; VYPIS CR + LF
415 F230 AF XOR A
416 F231 32 F304 LD (ICPOS),A ; NULOVANI POZICE VST. ZNAKU
417 F234 C3 F1F1 JP RCB120 ; SKOK NA DALSI CTENI
418 ;
419 ;
420 F237 FE 10 RCB170: CP 10H ; TEST VSTUPU NA CTRL-P
421 ; (TOGGLE PRINT)
422 F239 C2 F248 JP NZ,RCB190 ; SKOK KDYZ NOT CTRL-P
423 F23C E5 PUSH HL ; USCHOVA ADRESY VST.BUFFERU
424 F23D 21 F306 LD HL,CTLPF ; ADRESA CTRL-P FLAG DO [HL]
425 F240 3E 01 LD A,1 ; INICIALIZACE CTRL-P FLAGU
426 F242 96 SUB (HL)
427 F243 77 LD (HL),A
428 F244 E1 POP HL ; OBNOVENI ADR. VST. BUFFERU
429 F245 C3 F1EF JP RCB110 ; SKOK NA DALSI CTENI
430 ;
431 ;
432 F248 FE 18 RCB190: CP 18H ; TEST NA VSTUP CTRL-X
433 ; (WIPE-OUT LINE)
434 F24A C2 F25F JP NZ,RCB210 ; NENI TO CTRL-X
MACRO-80 3.44 09-Dec-81 PAGE 1-7
435 F24D E1 POP HL ; RESET ADRESY ZASOBNIKU
436 F24E 3A F304 RCB200: LD A,(ICPOS) ; POZICE VST. ZNAKU DO [A]
437 F251 21 F305 LD HL,CHRPOS ; ADRESA POZICE VYST. ZNAKU
438 F254 BE CP (HL) ; JEJICH POROVNANI
439 F255 D2 F1E1 JP NC,RDCONB ; RESTART KDYZ SE ROVNAJI
440 F258 35 DEC (HL) ; DEC POZICE VYST. ZNAKU
441 F259 CD F1A4 CALL BACKSP ; VYMAZ POSLEDNIHO ZNAKU
442 F25C C3 F24E JP RCB200 ; OPAKOVANI
443 ;
444 ;
445 F25F FE 15 RCB210: CP 15H ; TEST NA CTRL-U (#,CR,LF,...)
446 F261 C2 F26B JP NZ,RCB230 ; NENI TO CTRL-U
447 F264 CD F1B1 CALL CTLU ; OSETRENI CTRL-U
448 F267 E1 POP HL ; RESET ADRESY ZASOBNIKU
449 F268 C3 F1E1 JP RDCONB ; SKOK NA RESTART
450 ;
451 ;
452 F26B FE 12 RCB230: CP 12H ; TEST NA VSTUP CTRL-R
453 ; (#,CR,LF,...,INPUT)
454 F26D C2 F2A6 JP NZ,RCB310 ; NENI TO CTRL-R
455 F270 C5 RCB240: PUSH BC ; USCHOVA [BC]
456 F271 CD F1B1 CALL CTLU ; OSETRENI CTRL-U
457 F274 C1 POP BC ; INICIALIZACE [BC]
458 F275 E1 POP HL ; INICIALIZACE [HL]
459 ; (LINE POINTER)
460 F276 E5 PUSH HL ; JEHO USCHOVA
461 F277 C5 PUSH BC ; USCHOVA [BC]
462 F278 78 RCB250: LD A,B ; POCET VST.BYTU DO [A]
463 F279 B7 OR A ; JEHO TEST NA NULU
464 F27A CA F28A JP Z,RCB270 ; SKOK KDYZ VSECHNY VSTUPY
465 ; MELY "ECHO"
466 F27D 23 INC HL ; UPRAVA ADR.VST. BUFFERU
467 F27E 4E LD C,(HL) ; VST. BYTE DO [C]
468 F27F 05 DEC B ; DEC POCTU VST. BYTU
469 F280 C5 PUSH BC ; USCHOVA POCTU VST. BYTU
470 F281 E5 PUSH HL ; USCHOVA ADR. VST. BYTU
471 F282 CD F148 CALL CTLBYT ; TEST NA CTRL-BYTE A VYSTUP
472 F285 E1 POP HL ; INICIALIZACE ADR. VST. BYTU
473 F286 C1 POP BC ; INICIALIZACE POCTU VST. BYTU
474 F287 C3 F278 JP RCB250 ; OPAKOVANI
475 ;
476 F28A E5 RCB270: PUSH HL ; USCHOVA ADR. VST. BUFFERU
477 F28B 3A F303 LD A,(BSFLAG) ; BACKSPACE FLAG DO [A]
478 F28E B7 OR A ; JEHO TEST
479 F28F CA F1F1 JP Z,RCB120 ; KDYZ NENI NAST.-DALSI CTENI
480 F292 21 F305 LD HL,CHRPOS ; ADR. POZICE VYST. ZNAKU
481 F295 96 SUB (HL) ; SUBTRACT S BACKSPACE FLAG
482 F296 32 F303 LD (BSFLAG),A ; USCHOVA BACKSPACE FLAG
483 F299 CD F1A4 RCB290: CALL BACKSP ; VYMAZ POSLEDNIHO BYTE
484 F29C 21 F303 LD HL,BSFLAG ; ADRESA BACKSPACE FLAG DO [HL]
485 F29F 35 DEC (HL) ; DEC BACKSPACE FLAG
486 F2A0 C2 F299 JP NZ,RCB290 ; OPAKOVANI KDYZ .NE. NULE
487 F2A3 C3 F1F1 JP RCB120 ; DALSI CTENI
488 ;
489 ;
490 F2A6 23 RCB310: INC HL ; UPRAVA ADRESY VST. BUFFERU
491 F2A7 77 LD (HL),A ; ULOZENI VST. BYTU DO BUFFERU
492 F2A8 04 INC B ; INC POCTU VST. BYTU
493 F2A9 C5 RCB320: PUSH BC ; USCHOVA POCTU VST. BYTU
494 F2AA E5 PUSH HL ; USCHOVA ADR. VST. BUFFERU
495 F2AB 4F LD C,A ; VST. BYTE DO [C]
496 F2AC CD F148 CALL CTLBYT ; JEHO TEST NA CTRL-BYTE A
MACRO-80 3.44 09-Dec-81 PAGE 1-8
497 ; A VYSTUP
498 F2AF E1 POP HL ; INIC. ADR. VST. BUFFERU
499 F2B0 C1 POP BC ; INIC. POCTU ZNAKU
500 F2B1 7E LD A,(HL) ; VST. BYTE DO [A]
501 F2B2 FE 03 CP 03H ; TEST NA CTRL-C (REBOOT)
502 F2B4 78 LD A,B ; POCET VST.BYTU DO [A]
503 F2B5 C2 F2BD JP NZ,RCB330 ; NENI TO CTRL-C
504 F2B8 FE 01 CP 01H ; JE TO PRVNI VST.BYTE
505 F2BA CA FE03 JP Z,REBOOT ; KDYZ ANO => REBOOT
506 F2BD B9 RCB330: CP C ; JE VST. BUFFER PLNY ?
507 F2BE DA F1EF JP C,RCB110 ; NE - DALSI CTENI
508 ;
509 F2C1 E1 RCB350: POP HL ; OBNOVA ADR. POCTU VST.ZNAKU
510 F2C2 70 LD (HL),B ; ULOZENI POCTU VST. ZNAKU
511 F2C3 0E 0D LD C,0DH ; CR DO [C]
512 F2C5 C3 F159 JP COOUT ; VYPIS CR + RETURN
513 ;
514 ;
515 ; VSTUP ZNAKU Z KONZOLY CMD 01
516 ; =====================
517 ;
518 F2C8 CD F106 CONINP: CALL CORD ; ROCEDURA CTENI Z KONZOLY
519 F2CB C3 F2FA JP SVSING ; NAVRAT S NASTAVENIM
520 ; NAVRATOVEHO PARAMETRU
521 ;
522 ;
523 ; VSTUP ZNAKU ZE SNIMACE CMD 03
524 ; ======================
525 ;
526 F2CE CD FE15 RDINP: CALL BIOS+15H ; NACTENI ZNAKU ZE SNIMACE
527 F2D1 C3 F2FA JP SVSING ; NAVRAT S NASTAVENIM NAVRATO-
528 ; VEHO PARAMETRU
529 ;
530 ;
531 ; PRIMY I/O NA KONZOLU CMD 06
532 ; ====================
533 ;
534 F2D4 79 DCONIO: LD A,C ; PRESUN [E](PRI CALL 5) DO [A]
535 F2D5 3C INC A ; JEHO TEST NA 0FFH = VSTUP
536 F2D6 C2 FE0C JP NZ,BIOS+0CH ; VYPIS NA KONZOLU + RETURN
537 ;
538 F2D9 CD FE06 DCIO10: CALL BIOS+06H ; STATUS KONZOLY
539 F2DC B7 OR A ; TEST STATUSU
540 F2DD CA FD99 JP Z,RSTSP ; NAVRAT KDYZ STATUS = 0
541 F2E0 CD FE09 CALL BIOS+09H ; CTENI VST. BYTU Z KONZOLY
542 F2E3 C3 F2FA JP SVSING ; NAVRAT S NASTAVENIM
543 ; NAVRATOVEHO PARAMETERU
544 ;
545 ;
546 ; DEJ HODNOTU I/O BYTU CMD 07
547 ; ====================
548 ;
549 F2E6 3A 40E2 GETIOB: LD A,(IOBYTE) ; I/O byte MONITORU do [A]
550 F2E9 C3 F2FA JP SVSING ; INICIALIZACE NAVRATOVEHO
551 ; PARAMETRU + NAVRAT
552 ;
553 ;
554 ; NASTAV I/O BYTE CMD 08
555 ; ===============
556 ;
557 F2EC 21 40E2 SETIOB: LD HL,iobyte
558 F2EF 71 LD (HL),C ; ulozeni I/O bytu MONITORU
MACRO-80 3.44 09-Dec-81 PAGE 1-9
559 F2F0 C9 RET ; RETURN NA RETURN
560 ;
561 ;
562 ; VYPIS ASCII RETEZCE CMD 09
563 ; ===================
564 ;
565 F2F1 EB PRTSTG: EX DE,HL ; ADR. ULOZENI TEXTU DO [HL]
566 F2F2 4D LD C,L ; A DO [BC]
567 F2F3 44 LD B,H
568 F2F4 C3 F1D3 JP TYPSTG ; SKOK NA VYPIS RETEZCE
569 ;
570 ;
571 ; DEJ STATUS KONZOLY CMD 11
572 ; ==================
573 ;
574 F2F7 CD F123 GCOSTS: CALL TSTINP ; TEST VSTUPU
575 ;
576 ;
577 ; ULOZENI NAVRATOVEHO PARAMETRU PRED NAVRATEM
578 ;
579 F2FA 32 F350 SVSING: LD (RETPRM),A ; PRESUN NAVRATOVEHO PARAMETRU
580 F2FD C9 RETRET: RET ; RETURN NA RETURN
581 ;
582 ;
583 F2FE 3E 01 SREPRM: LD A,1 ; NASTAVENI NAVR.PARAM.NA 1
584 F300 C3 F2FA JP SVSING ; SKOK NA ULOZENI NAVR.PARAM.
585 ;
586 ;
587 ;
588 ; POLE PRACOVNICH PROMENNYCH
589 ; ==========================
590 ;
591 F303 00 BSFLAG: DEFB 0 ; BACKSPACE FLAG
592 F304 00 ICPOS: DEFB 0 ; POZICE VSTUPUJICICH ZNAKU
593 F305 00 CHRPOS: DEFB 0 ; POZICE VYSTUPUJICICH ZNAKU
594 F306 00 CTLPF: DEFB 0 ; CTRL-P FLAS
595 F307 00 INBYT: DEFB 0 ; BUFFER VSTUPUJICIHO BYTU
596 F308 DEFS 42H ; ZASOBNIK BDOS
597 F34A BDSP EQU $ ; VRCHOL ZASOBNIKU
598 F34A 0000 SPSAV: DEFW 0 ; ULOZENI UZIV. [SP]
599 F34C 00 USRNO: DEFB 0 ; CISLO UZIVATELE
600 F34D 00 DSKNO: DEFB 0 ; CISLO DISKU
601 F34E 0000 FCBSAV: DEFW 0 ; ULOZENI ADRESY FCB
602 F350 0000 RETPRM: DEFW 0 ; ULOZENI NAVR. PARAMETRU
603 ;
604 ;
605 ;
606 ; PROCEDURA SKOKU PODLE [HL]
607 ;
608 F352 21 F00B VJUMP: LD HL,SLEJPA ; ADRESA ULOZENI ADRESY
609 ; SKOKU DO [HL]
610 F355 5E VJUMP1: LD E,(HL) ; PRESUN ADRESY SKOKU DO [DE]
611 F356 23 INC HL
612 F357 56 LD D,(HL)
613 F358 EB EX DE,HL ; JEJI PRESUN DO [HL]
614 F359 E9 JP (HL) ; A SKOK
615 ;
616 ;
617 ; VYBER DISKU A VYHLEDANI PARAMETRU DISKU
618 ;
619 F35A 3A F34D SD110: LD A,(DSKNO) ; CISLO DISKU DO [A]
620 F35D 4F LD C,A ; A DO [C]
MACRO-80 3.44 09-Dec-81 PAGE 1-10
621 F35E CD FE1B CALL BIOS+1BH ; VYBER DISKU - [HL]
622 ; OBSAHUJE PO NAVRATU
623 ; ADRESU DISKOVYCH PA-
624 ; RAMETRU
625 F361 7C LD A,H
626 F362 B5 OR L ; TEST [HL] NA NULU => CHYBA
627 F363 C8 RET Z ; RETURN PRI CHYBE
628 F364 5E LD E,(HL) ; ADRESA PREKLADOVE TABULKY
629 F365 23 INC HL ; DO [DE]
630 F366 56 LD D,(HL)
631 F367 23 INC HL ; ADRESA PRACOVNI OBLASTI 1
632 F368 22 FDBB LD (DPSC1),HL ; JEJI ULOZENI
633 F36B 23 INC HL
634 F36C 23 INC HL ; ADRESA PRACOVNI OBLASTI 2
635 F36D 22 FDBD LD (DPSC2),HL ; JEJI ULOZENI
636 F370 23 INC HL
637 F371 23 INC HL ; ADRESA PRACOVNI OBLASTI 3
638 F372 22 FDBF LD (DPSC3),HL ; JEJI ULOZENI
639 F375 23 INC HL
640 F376 23 INC HL ;
641 F377 EB EX DE,HL ; ADRESA ADRESY BUFFERU
642 ; ADRESARE DO [DE]-
643 ; (DIRBUF-VIZ BIOS)
644 F378 22 FDD8 LD (STRNP),HL ; ULOZENI ADR. PREKLADOVE TAB
645 F37B 21 FDC1 LD HL,DIRBUP ; PRESUN CASTI PARAMETRU DISKU
646 F37E 0E 08 LD C,8 ;
647 F380 CD F5F3 CALL MOVE ;
648 ;
649 F383 2A FDC3 LD HL,(DPBP) ; PRESUN DRUHE CASTI PARAMETRU
650 F386 EB EX DE,HL ; DISKU
651 F387 21 FDC9 LD HL,CUDPB ;
652 F38A 0E 0F LD C,15 ;
653 F38C CD F5F3 CALL MOVE ;
654 ;
655 F38F 2A FDCE LD HL,(CUDSM) ; VELIKOST DISKU (V BLOCICH)
656 F392 7C LD A,H ; HORNI BYTE DO [A]
657 F393 21 FDE5 LD HL,DSKSFL ; ADR. DISK-SIZE-FLAGU DO [HL]
658 F396 36 FF LD (HL),0FFH ; A JEJI INICIALIZACE
659 F398 B7 OR A ; TEST DISK-SIZE .GT.256 BLOKU
660 F399 CA F39E JP Z,SD150 ; SKOK DISK-SIZE .LE.256
661 F39C 36 00 LD (HL),0 ; NULOVANI DISK-SIZE FLAGU
662 F39E 3E FF SD150: LD A,0FFH ; NASTAVENI NZ-FLAGU PRED RET
663 F3A0 B7 OR A ;
664 F3A1 C9 RET
665 ;
666 ;
667 ; 'HOME' A NULOVANI POCITADLA (#) STOP A MAX. POCTU
668 ; SEKTORU NA STOPE
669 ;
670 ;
671 F3A2 CD FE18 HOMCLR: CALL BIOS+18H ; 'HOME'-JEN PRO FLOPPY
672 F3A5 AF XOR A ; NULA DO [A]
673 F3A6 2A FDBD LD HL,(TRACK) ; ADR. # STOP DO [HL]
674 F3A9 77 LD (HL),A ; NULOVANI # STOP
675 F3AA 23 INC HL ;
676 F3AB 77 LD (HL),A ;
677 ;
678 F3AC 2A FDBF LD HL,(MAXSOT) ; ADR. MAX. # SEKTORU NA STOPE
679 F3AF 77 LD (HL),A ; JEHO NULOVANI
680 F3B0 23 INC HL ;
681 F3B1 77 LD (HL),A
682 F3B2 C9 RET
MACRO-80 3.44 09-Dec-81 PAGE 1-11
683 ;
684 ;
685 ; PROCEDURA CTENI A ZAPISU NA DISK
686 ;
687 F3B3 CD FE27 READ: CALL BIOS+27H ; CTI VYBRANY SEKTOR
688 F3B6 C3 F3BC JP WRITE1
689 ;
690 F3B9 CD FE2A WRITE: CALL BIOS+2AH ; ZAPIS VYBRANY SEKTOR
691 F3BC B7 WRITE1: OR A ; TEST [A] NA CHYBU
692 F3BD C8 RET Z ; RET KDYZ DISK I/O OK
693 ;
694 F3BE 21 F009 LD HL,BDSJPA ; ADR. NAVRATU S CHYBOU
695 F3C1 C3 F355 JP VJUMP1 ; SKOK NA NAVRAT
696 ;
697 ;
698 ;
699 ; VYPOCET SEKTORU A STOPY A NASTAVENI SEKTORU A STOPY
700 ;
701 F3C4 2A FDF2 DSKCAL: LD HL,(DETYNO) ; # AKT.VST.ADRESARE DO [HL]
702 F3C7 0E 02 LD C,2 ; CITAC POSUNU = 2
703 F3C9 CD F4EB CALL RSHHL ; # AKT. VSTUPU/4
704 F3CC 22 FDED LD (BLOCK),HL ; ULOZENI CISLA SECTOR
705 F3CF 22 FDF4 LD (DETYSC),HL ; V NEMZ JE AKT. FCB ULOZENE
706 F3D2 21 FDED DSKCA1: LD HL,BLOCK ; ADR. ULOZENI # SEKTORU
707 F3D5 4E LD C,(HL) ; PRESUN # SEKTORU DO [BC]
708 F3D6 23 INC HL ;
709 F3D7 46 LD B,(HL) ;
710 F3D8 2A FDBF LD HL,(MAXSOT) ; HAX. # SEKTORU NA STOPE
711 F3DB 5E LD E,(HL) ; DO [DE]
712 F3DC 23 INC HL ;
713 F3DD 56 LD D,(HL) ;
714 ;
715 F3DE 2A FDBD LD HL,(TRACK) ; AKT. # STOPY DO [HL]
716 F3E1 7E LD A,(HL) ;
717 F3E2 23 INC HL ;
718 F3E3 66 LD H,(HL) ;
719 F3E4 6F LD L,A ;
720 ;
721 F3E5 79 DC120: LD A,C ; POROVNANI HAX. A AKT.
722 F3E6 93 SUB E ; CISLA SEKTORU
723 F3E7 78 LD A,B ; [BC] - [DE]
724 F3E8 9A SBC A,D ;
725 F3E9 D2 F3FB JP NC,DC140 ; AKT.# SEKTORU .GE. HAX.# SEK
726 ;
727 F3EC E5 PUSH HL ; UCHOVANI CISLA STOPY
728 F3ED 2A FDC9 LD HL,(CUSPT) ; AKT. # STOPY DO [HL]
729 F3F0 7B LD A,E ; [DE] - [HL] = [DE]
730 F3F1 95 SUB L ; MAX. # SEKT. NA STOPE -
731 F3F2 5F LD E,A ; AKT. # SEKTORU
732 F3F3 7A LD A,D
733 F3F4 9C SBC A,H
734 F3F5 57 LD D,A
735 F3F6 E1 POP HL ; OBNOVA # STOPY
736 F3F7 2B DEC HL ; ; DEC CISLA STOPY
737 F3F8 C3 F3E5 JP DC120 ; OPAKOVANI
738 ;
739 F3FB E5 DC140: PUSH HL ; USCHOVA # STOPY
740 F3FC 2A FDC9 LD HL,(CUSPT) ; AKT. CISLO SEKTORU DO [HL]
741 F3FF 19 ADD HL, DE ; AKT. # SEKTORU + MAX. A SEK.
742 F400 DA F410 JP C,DC160 ; SKOK PRI OVERFLOW (65536)
743 F403 79 LD A,C ; [BC] - [HL]
744 F404 95 SUB L ;
MACRO-80 3.44 09-Dec-81 PAGE 1-12
745 F405 78 LD A,B
746 F406 9C SBC A,H
747 F407 DA F410 JP C,DC160 ; SKOK KDYZ SEKTOR JE NA
748 ; .AKT. STOPE
749 F40A EB EX DE,HL ; MAX # SEKTORU NA STOPE-> [DE]
750 F40B E1 POP HL ; # STOPY DO [HL]
751 F40C 23 INC HL ; INC # STOPY
752 F40D C3 F3FB JP DC140 ; OPAKOVANI
753 ;
754 F410 E1 DC160: POP HL ; # STOPY DO [HL]
755 F411 C5 PUSH BC ; USCHOVA # VSTUPU ADRESARE
756 F412 D5 PUSH DE ; USCH.MAX # SECTORU NA STOPE
757 F413 E5 PUSH HL ; USCH. # STOPY
758 F414 EB EX DE,HL ; # STOPY DO [DE]
759 F415 2A FDD6 LD HL,(CUOFF) ; OFFSET STOPY DO [HL]
760 F418 19 ADD HL,DE ; URCENI FYZICKEHO # STOPY
761 F419 44 LD B,H ; # STOPY DO [BC]
762 F41A 4D LD C,L
763 F41B CD FE1E CALL BIOS+1EH ; NASTAVENI STOPY
764 F41E D1 POP DE ; OBNOVA # STOPY
765 F41F 2A FDBD LD HL,(TRACK) ; ADRESA ULOZENI # STOPY V BLO-
766 F422 73 LD (HL),E ; KU DISKOVYCH PARAMETRU A ULO-
767 F423 23 INC HL ; ZENI # STOPY
768 F424 72 LD (HL),D
769 F425 D1 POP DE ; OBNOVA MAX # SEKTORU NA STOPE
770 F426 2A FDBF LD HL,(MAXSOT) ; A JEHO ULOZENI DO BLOKU
771 F429 73 LD (HL),E ; DISKOVYCH PARAMETRU (DPBASE)
772 F42A 23 INC HL
773 F42B 72 LD (HL),D
774 F42C C1 POP BC ; OBNOVA # SEKTORU
775 F42D 79 LD A,C ; [BC] - [CD] = [BC]
776 F42E 93 SUB E ; VYPOCET LOG. # SEKTORU
777 F42F 4F LD C,A
778 F430 78 LD A,B
779 F431 9A SBC A,D
780 F432 47 LD B,A
781 F433 2A FDD8 LD HL,(STRNP) ; ADR. PREKLADOVE TAB SEKTORU
782 F436 EB EX DE,HL ; DO [DE]
783 F437 CD FE30 CALL BIOS+30H ; PREVOD LOG. # NA FYZICKE
784 F43A 4D LD C,L ; FYZ. # DO [BC]
785 F43B 44 LD B,H
786 F43C C3 FE21 JP BIOS+21H ; NASTAVENI SEKTORU + RET
787 ;
788 ;
789 ; VYPOCET ADRESY ULOZENI CISLA BLOKU V FCB
790 ;
791 F43F 21 FDCB BSHIFT: LD HL,CUBSH ; ADR BLOK-SHIFT-FAKTORU DO [HL]
792 F442 4E LD C,(HL) ; BLOK-SHIFT-FAKTOR DO [C]
793 F443 3A FDEB LD A,(D9) ; AKT. # ZAZNAMU DO [A]
794 F446 B7 BSH120: OR A ; NULA DO CARRY
795 F447 1F RRA ; ROTACE VPRAVO
796 F448 0D DEC C ; DEC BL-SH-FA
797 F449 C2 F446 JP NZ,BSH120 ; OPAKOVANI
798 ;
799 F44C 47 LD B,A ; VYSLEDEK DO [B]
800 F44D 3E 08 LD A,08H ;
801 F44F 96 SUB (HL) ; ODECT. HODN. BL-SH-FA
802 F450 4F LD C,A ; VYSLEDEK JAKO CITAC ROTACE
803 F451 3A FDEA LD A,(MEX) ; MASKA ROZSIRENI DO [A]
804 F454 0D BSH140: DEC C ; DEC CITACE
805 F455 CA F45D JP Z,BSH160 ; UKONCENI ROTACEXH
806 F458 B7 OR A ; NULOVANI CARRY
MACRO-80 3.44 09-Dec-81 PAGE 1-13
807 F459 17 RLA ; ROTACE VLEVO
808 F45A C3 F454 JP BSH140 ; OPAKOVANI
809 ;
810 F45D 80 BSH160: ADD A,B ; CISLO BLOKU DO [A]
811 F45E C9 RET
812 ;
813 ;
814 ; VYHLEDANI CISLA ALOKACNIHO BLOKU Z FCB
815 ;
816 F45F 2A F34E RETBLK: LD HL,(FCBSAV) ; ADR. FCB DO [HL]
817 F462 11 0010 LD DE,0010H ; OFFSET DO [DE]
818 F465 19 ADD HL,DE ; ADR. ULOZENI # ALOK.BLOKU
819 F466 09 ADD HL,BC ; AKT. ADRESA ULOZ.# AL.BLOKU
820 F467 3A FDE5 LD A,(DSKSFL) ; DISKSIZE FLAG DO A
821 F46A B7 OR A ; JEHO TEST
822 F46B CA F472 JP Z,RTBL10 ; SKOK PRI # BLOKU NAD 256
823 F46E 6E LD L,(HL) ; # BLOKU Z FCB DO [L]
824 F46F 26 00 LD H,0 ; NULOVANI HIGH BYTU # BLOKU
825 F471 C9 RET
826 ;
827 F472 09 RTBL10: ADD HL,BC ; AKT. ADRESA # BLOKU
828 F473 5E LD E,(HL) ; # BLOKU Z FCB DO [DE]
829 F474 23 INC HL
830 F475 56 LD D,(HL)
831 F476 EB EX DE,HL ; PRESUN # BLOKU DO [HL]
832 F477 C9 RET
833 ;
834 ;
835 ; ZJISTI CISLO BLOKU
836 ;
837 F478 CD F43F GETBLK: CALL BSHIFT ; VYPOCET # BLOKU
838 F47B 4F LD C,A ; VYSLEDEK DO [C]
839 F47C 06 00 LD B,0 ; NULA DO HORNIHO BYTU
840 F47E CD F45F CALL RETBLK ; VYHLEDANI # AL. BLOKU Z FCB
841 F481 22 FDED LD (BLOCK),HL ; ULOZENI CISLA BLOKU
842 F484 C9 RET
843 ;
844 ;
845 ; TEST CISLA BLOKU NA NULU
846 ;
847 F485 2A FDED TSTBLK: LD HL,(BLOCK) ; CISLO BLOKU DO [HL]
848 F488 7D LD A,L
849 F489 B4 OR H ; A JEHO TEST NA NULU
850 F48A C9 RET
851 ;
852 ;
853 ; ZJISTI CISLO SEKTORU
854 ;
855 F48B 3A FDCB GETSEC: LD A,(CUBSH) ; BL-SH-FA DO [A]
856 F48E 2A FDED LD HL,(BLOCK) ; # BLOKU DO [HL]
857 F491 29 GET10: ADD HL,HL ; # BLOKU * 2
858 F492 3D DEC A ; DEC BL-SH-FA
859 F493 C2 F491 JP NZ,GET10 ; OPAKOVANI
860 F496 22 FDEF LD (SECTOR),HL ; ULOZENI # SEKTORU
861 F499 3A FDCC LD A,(CUBLM) ; HASKA BLOKU DO [A]
862 F49C 4F LD C,A ; A DO [C]
863 F49D 3A FDEB LD A,(D9) ; CITAC AKT.ZAZNAHU DO [A]
864 F4A0 A1 AND C ; JEHO MASKOVANI MASKOU BLOKU
865 F4A1 B5 OR L ; OR S # SEKTORU
866 F4A2 6F LD L,A ;
867 F4A3 22 FDED LD (BLOCK),HL ; ULOZENI VYSLEDKU
868 F4A6 C9 RET
MACRO-80 3.44 09-Dec-81 PAGE 1-14
869 ;
870 ;
871 ; ZJISTI ADRESU EXTENT Z FCB
872 ;
873 F4A7 2A F34E EXADD: LD HL,(FCBSAV) ; ADRESA FCB DO [HL]
874 F4AA 11 000C LD DE,12 ; OFFSET NA EX Z FCB
875 F4AD 19 ADD HL,DE ; ADRESA EX Z FCB
876 F4AE C9 RET
877 ;
878 ;
879 ; ZJISTI ADRESU RC [DE] A D9 [HL] Z FCB
880 ;
881 F4AF 2A F34E RCADD: LD HL,(FCBSAV) ; ADR. FCB DO [HL]
882 F4B2 11 000F LD DE,15 ; RC OFFSET DQ [DE]
883 F4B5 19 ADD HL,DE ; ADR. RC Z FCB
884 F4B6 EB EX DE,HL ; DO [DE]
885 F4B7 21 0011 LD HL,17 ; OFFSET NA D9
886 F4BA 19 ADD HL,DE ; ADR. D9
887 F4BB C9 RET
888 ;
889 ;
890 ; DEJ D9 (AKTUALNI CLTAC ZAZNAMU) A RC (CITAC ZAZNAMU)
891 ;
892 F4BC CD F4AF LDD9RC: CALL RCADD ; PRIPRAVA ADR.D9 [HL] A RC [DE]
893 F4BF 7E LD A,(HL) ; AKT.CITAC ZAZNAMU DO [A]
894 F4C0 32 FDEB LD (D9),A ; ULOZENI D9
895 F4C3 EB EX DE,HL ; ADR.RC DO [HL]
896 F4C4 7E LD A,(HL) ; RC DO [A]
897 F4C5 32 FDE9 LD (RC),A ; ULOZENI RC
898 F4C8 CD F4A7 CALL EXADD ; ADR.NA EXTENT DO [HL]
899 F4CB 3A FDCD LD A,(CUEXM) ; EXTENT-MASKA DO [A]
900 F4CE A6 AND (HL) ; AND S EX Z FCB
901 F4CF 32 FDEA LD (MEX),A ; ULOZENI MASKY ROZSIRENI
902 F4D2 C9 RET
903 ;
904 ;
905 ; ULOZENI D9 A RC DO FCB
906 ;
907 F4D3 CD F4AF SVD9RC: CALL RCADD ; PRIPRAVA ADR.D9 [HL] A RC [DE]
908 F4D6 3A FDDD LD A,(SECSE) ; INDIKACE DISKOVE SLUZBY DO [A]
909 F4D9 FE 02 CP 02 ; JE TO CMD 48?
910 F4DB C2 F4DF JP NZ,SVRD10 ; NENI TO CMD 40
911 F4DE AF XOR A ; NULA DO [A]
912 F4DF 4F SVRD10: LD C,A ; INDIKACE DO [C]
913 F4E0 3A FDEB LD A,(D9) ; D9 DO [A]
914 F4E3 81 ADD A,C ; D9+1 KDYZ CMD 20,21
915 ; JINAK D9+0
916 F4E4 77 LD (HL),A ; ULOZENI D9
917 F4E5 EB EX DE,HL ; ADR.RC DO [HL]
918 F4E6 3A FDE9 LD A,(RC) ; RC DO [A]
919 F4E9 77 LD (HL),A ; ULOZENI RC DO FCB
920 F4EA C9 RET
921 ;
922 ;
923 ; POSUN SPOJENYCH RESISTRU [HL] VPRAVO [C] KRAT
924 ;
925 F4EB 0C RSHHL: INC C ; TEST CITACE POSUNU
926 F4EC 0D RSHHL1: DEC C ;
927 F4ED C8 RET Z ; RET PO UKONCENI
928 F4EE 7C LD A,H ; HORNI BYTE DO [A]
929 F4EF B7 OR A ; NULOVANI CARRY
930 F4F0 1F RRA ; ROTACE VPRAVO
MACRO-80 3.44 09-Dec-81 PAGE 1-15
931 F4F1 67 LD H,A ; BYTE DO [H]
932 F4F2 7D LD A,L ; DOLNI BYTE DO [A]
933 F4F3 1F RRA ; ROTACE VPRAVO
934 F4F4 6F LD L,A ; BYTE ZPET DO [L]
935 F4F5 C3 F4EC JP RSHHL1 ; OPAKOVANI
936 ;
937 ;
938 ; GENEROVANI KONTROLNIHO SOUCTU ADRESARE
939 ;
940 F4F8 0E 80 DIRCKS: LD C,128 ; DELKA BUFFERU ADRESARE
941 F4FA 2A FDC1 LD HL,(DIRBUP) ; ADR.BUFFERU ADRESARE DO [HL]
942 F4FD AF XOR A ; NULA DO [A]
943 F4FE 86 DIRCK1: ADD A,(HL) ; VYPOCET SOUCTU
944 F4FF 23 INC HL ; UPRAVA ADRESY
945 F500 0D DEC C ; DEC POCITADLA
946 F501 C2 F4FE JP NZ,DIRCK1 ; OPAKOVANI
947 F504 C9 RET
948 ;
949 ;
950 ; GENEROVANI MASKY DISKU
951 ;
952 ; REG C CISLO DISKU PRI VOLANI - NULA PO RET
953 ; HL 0001 PRI CALL - MASKA DISKU PRI RET
954 ;
955 F505 0C GENMSK: INC C ; TEST CISLA DISKU
956 F506 0D GEMSK1: DEC C ;
957 F507 C8 RET Z ; RETURN
958 F508 29 ADD HL,HL ; SHIFT BIT MASKY O 1 POZ.VLEVO
959 F509 C3 F506 JP GEMSK1 ; OPAKOVANI
960 ;
961 ;
962 ; NASTAVENI BITU VEKTORU DISKU
963 ;
964 ; REG BC PUVODNI VEKTOR DISKU PRI CALL
965 ; HL NOVY VEKTOR DISKU PRI RET
966 ;
967 F50C C5 SETVEC: PUSH BC ; USCHOVA PUVODNIHO VEKTORU
968 F50D 3A F34D LD A,(DSKNO) ; CISLO DISKU DO [A]
969 F510 4F LD C,A ; A DO [C]
970 F511 21 0001 LD HL,0001 ; NASTAVENI MASKY PRO JEDN. A:
971 F514 CD F505 CALL GENMSK ; GENEROVANI MASKY
972 F517 C1 POP BC ; OBNOVA PUVODNIHO VEKTORU
973 F518 79 LD A,C ; SPODNI BYTE DO [A]
974 F519 B5 OR L ; JEHO AKTUALIZACE
975 F51A 6F LD L,A ; A PRESUN DO [L]
976 F51B 78 LD A,B ; HORNI BYTE DO [A]
977 F51C B4 OR H ; JEHO AKTUALIZACE
978 F51D 67 LD H,A ; A PRESUN DO [H]
979 F51E C9 RET
980 ;
981 ;
982 ; TEST NA DISK R/O
983 ;
984 F51F 2A FDB5 TSTDRO: LD HL,(ROVEC) ; READ ONLY VEKTOR DO [HL]
985 F522 3A F34D LD A,(DSKNO) ; # DISKU DO [A]
986 F525 4F LD C,A ; DO [C]
987 F526 CD F4EB CALL RSHHL ; NASTAVENI ODPOV, BITU R/O VEKT.
988 F529 7D LD A,L ; LOW BYTE (0 BIT) DO [A]
989 F52A E6 01 AND 01 ; NASTAVENI 0 BITU
990 F52C C9 RET
991 ;
992 ;
MACRO-80 3.44 09-Dec-81 PAGE 1-16
993 ; OZNAC DISK JAKO CHRANENY PROTI ZAPISU CMD 28
994 ; =====================================
995 ;
996 F52D 21 FDB5 WRTPRT: LD HL,ROVEC ; ADR.READ ONLY VECTORU
997 F530 4E LD C,(HL) ; JEHO PRESUN DO [BC]
998 F531 23 INC HL
999 F532 46 LD B,(HL)
1000 F533 CD F50C CALL SETVEC ; NASTAVENI BITU V R/O VEKTORU
1001 F536 22 FDB5 LD (ROVEC),HL ; ULOZENI R/O VEKTORU
1002 ;
1003 F539 2A FDD0 LD HL,(CUDRM) ; KAX.# VSTUPU ADRESARE
1004 F53C 23 INC HL ; JEHO INC
1005 F53D EB EX DE,HL ; A PRESUN DO [DE]
1006 F53E 2A FDBB LD HL,(DPSC1) ; ADR.PRAC.POLE 1 V DPBASE
1007 F541 73 LD (HL),E ; ULOZENI MAX. #+1 ADRESARE
1008 F542 23 INC HL
1009 F543 72 LD (HL),D
1010 F544 C9 RET
1011 ;
1012 ;
1013 ; TEST NA READ ONLY
1014 ;
1015 F545 CD F55F TSTRO: CALL DIRADR ; DEJ ADR. VSTUPU ADRESARE
1016 F548 11 0009 TST1: LD DE,9 ; OFFSET NA T1 NAZVU SOUBORU
1017 F54B 19 ADD HL,DE ; ADRESA T1
1018 F54C 7E LD A,(HL) ; T1 DO [A]
1019 F54D 17 RLA ; TEST HIGH BITU
1020 F54E D0 RET NC ; RET KDYZ NENI NAST.=>NOT R/O
1021 F54F 21 F00F LD HL,FROJPA ; ADR. NA "FILE R/O ERROR"
1022 F552 C3 F355 JP VJUMP1 ; SKOK NA SKOK PODLE [HL]
1023 ;
1024 ; TEST NA NOT R/O
1025 ;
1026 F555 CD F51F TSTNRO: CALL TSTDRO ; TEST NA R/O
1027 F558 C8 RET Z ; RET KDYZ NOT READ ONLY
1028 F559 21 F00D LD HL,ROEJPA ; ADR. NA "READ ONLY ERROR"
1029 F55C C3 F355 JP VJUMP1 ; SKOK NA SKOK PODLE [HL]
1030 ;
1031 ;
1032 ; GENEROVANI ADRESY AKT. FCB V BUFFERU ADRESARE
1033 ;
1034 F55F 2A FDC1 DIRADR: LD HL,(DIRBUP) ; ADRESA BUFFERU ADRESACE
1035 F562 3A FDF1 LD A,(DIROFF) ; OFFSET ADRESARE
1036 F565 85 DIRAD1: ADD A,L ; ADRESA AKT. FCB DO [HL]
1037 F566 6F LD L,A
1038 F567 D0 RET NC
1039 F568 24 INC H
1040 F569 C9 RET
1041 ;
1042 ;
1043 ; PRESUN S2 Z FCB
1044 ;
1045 F56A 2A F34E LDS2: LD HL,(FCBSAV) ; ADRESA FCB DO [HL]
1046 F56D 11 000E LD DE,14 ; OFFSET NA S2
1047 F570 19 ADD HL,DE ; ADRESA S2
1048 F571 7E LD A,(HL) ; S2 DO [A]
1049 F572 C9 RET
1050 ;
1051 ;
1052 ; NULOVANI S2 V FCB
1053 ;
1054 F573 CD F56A CLRS2: CALL LDS2 ; PRIPRAVA ADRESY S2
MACRO-80 3.44 09-Dec-81 PAGE 1-17
1055 F576 36 00 LD (HL),0 ; NULA DO S2
1056 F578 C9 RET
1057 ;
1058 ;
1059 ; NASTAVENI 7 BITU S2 V FCB
1060 ;
1061 F579 CD F56A ST7S2: CALL LDS2 ; ADR. S2 DO [A]
1062 F57C F6 80 OR 80H ; NAST.7 BITU S2
1063 F57E 77 LD (HL),A ; ULOZENI S2
1064 F57F C9 RET
1065 ;
1066 ;
1067 ; POROVNANI AKT. # VSTUPU ADRESARE S MAX # VSTUPU
1068 ; ADRESARE
1069 ;
1070 F580 2A FDF2 TDIRET: LD HL,(DETYNO) ; # VSTUPU DO [HL]
1071 F583 EB EX DE,HL ; A DO [DE]
1072 F584 2A FDBB LD HL,(MAXDIE) ; MAX.# VSTUPU DO [HL]
1073 F587 7B LD A,E ; JEJICH POROVNANI
1074 F588 96 SUB (HL) ;
1075 F589 23 INC HL
1076 F58A 7A LD A,D
1077 F58B 9E SBC A,(HL)
1078 F58C C9 RET
1079 ;
1080 ;
1081 ; VYPOCET A TEST CISLA VSTUPU ADRESARE
1082 ;
1083 F58D CD F580 TSTMDI: CALL TDIRET ; POROVNANI AKT. A MAX # VST.
1084 F590 D8 RET C ; RET KDYZ AKT. .LE. MAX
1085 F591 13 INC DE ; INC AKT. # VSTUPU
1086 F592 72 LD (HL),D ; JEHO PRESUN DO [HL]
1087 F593 2B DEC HL
1088 F594 73 LD (HL),E
1089 F595 C9 RET
1090 ;
1091 ;
1092 ; POROVNANI AKTUALNIHO CITACE VSTUPU ADRESARE S MAX.
1093 ; REG DE - MAX.
1094 ; HL - AKT.
1095 ;
1096 ;
1097 F596 7B SDEMHL: LD A,E ; [DE] - [HL] = [HL]
1098 F597 95 SUB L
1099 F598 6F LD L,A
1100 F599 7A LD A,D
1101 F59A 9C SBC A,H
1102 F59B 67 LD H,A
1103 F59C C9 RET
1104 ;
1105 ;
1106 ; KONTROLA NA ZMENU ADRESARE
1107 ;
1108 F59D 0E FF CKDS00: LD C,0FFH ; 0FFH DO [C]
1109 ;
1110 F59F 2A FDF4 CKDSKC: LD HL,(DETYSC) ; # AKT.SEKTORU ADRESARE DO [HL]
1111 F5A2 EB EX DE,HL ; DO [DE]
1112 F5A3 2A FDD4 LD HL,(CUCKS) ; VELIKOST VEKT. ADRESARE DO [HL]
1113 F5A6 CD F596 CALL SDEMHL ; [DE] - [HL] = [HL]
1114 F5A9 D0 RET NC ; RET KDYZ VEKT.ADR.LE.#AKT SEK
1115 F5AA C5 PUSH BC ; USCHOVA [BC]
1116 F5AB CD F4F8 CALL DIRCKS ; GENER.KONTROLNIHO SOUCTU
MACRO-80 3.44 09-Dec-81 PAGE 1-18
1117 ; SEKTORU ADRESARE DO [A]
1118 F5AE 2A FDC5 LD HL,(CSVP) ; ADR.PRAC.POLE PRO VYM.DISKU
1119 F5B1 EB EX DE,HL ; DO [DE]
1120 F5B2 2A FDF4 LD HL,(DETYSC) ; # SEKTORE VSTUPU ADRESARE
1121 F5B5 19 ADD HL,DE ; ADR. ULOZ. KONTR. SOUCTU
1122 ; PUVODNIHO
1123 F5B6 C1 POP BC ; OBNOVENI [BC]
1124 F5B7 0C INC C
1125 F5B8 CA F5C5 JP Z,CKDS10 ; SKOK BYL VST.BOD CKD00
1126 F5BB BE CP (HL) ; POROVNANI S NOVYM
1127 ; KONTROLNIM SOUCTEM
1128 F5BC C8 RET Z ; RET KDYZ SOUHLASI
1129 F5BD CD F580 CALL TDIRET ; TEST VSTUPU ADRESARE
1130 F5C0 D0 RET NC ;
1131 F5C1 CD F52D CALL WRTPRT ; PRI VYMENE DISKU =>
1132 ; WRITE PROTECT DISK
1133 F5C4 C9 RET
1134 F5C5 77 CKDS10: LD (HL),A ; ULOZENI KONTROLNIHO SOUCTU
1135 F5C6 C9 RET
1136 ;
1137 ;
1138 ; ZAPIS A CTENI BUFFERU ADRESARE
1139 ;
1140 F5C7 CD F59D WDB: CALL CKDS00 ; KONTROLA NA ZMENU ADRESARE
1141 ;
1142 F5CA CD F5E1 CALL DMA120 ; NASTAVENI DMA-ADR PRO
1143 ; BUFFER ADRESARE
1144 F5CD 0E 01 LD C,01 ; INDIKACE DO [C]
1145 F5CF CD F3B9 CALL WRITE ; ZAPIS SEKTORU ADRESARE
1146 F5D2 C3 F5DB JP DMA110 ; RESET DMA ADR + RETURN
1147 ;
1148 F5D5 CD F5E1 WDB1: CALL DMA120 ; NAST.DMA-ADR PRO BUFFER
1149 F5D8 CD F3B3 CALL READ ; CTENI SEKTORU ADRESARE
1150 ;
1151 ;
1152 ; NASTAVENI DMA ADRESY
1153 ;
1154 F5DB 21 FDB9 DMA110: LD HL,DMAADR ; DMA ADR. DO [HL]
1155 F5DE C3 F5E4 JP DMA130
1156 F5E1 21 FDC1 DMA120: LD HL,DIRBUP ; ADR. BUFFERU ADRESARE DO [HL]
1157 ;
1158 F5E4 4E DMA130: LD C, (HL) ; DMA ADR DO [BC]
1159 F5E5 23 INC HL
1160 F5E6 46 LD B,(HL)
1161 F5E7 C3 FE24 JP BIOS+24H ; SKOK NA NASTAVENI DMA + RET
1162 ;
1163 ;
1164 ; PRESUN SEKTORU ADRESARE DO DMA-ZONY
1165 ;
1166 F5EA 2A FDC1 MOVDIR: LD HL,(DIRBUP) ; ADR. BUFFERU ADRESARE DO [HL]
1167 F5ED EB EX DE,HL ; A DO [DE]
1168 F5EE 2A FDB9 LD HL,(DMAADR) ; DMA ADR DO [HL]
1169 F5F1 0E 80 LD C, 128 ; NASTAVENI DELKY
1170 ;
1171 ;
1172 ; PROCEDURA PRESUNU
1173 ;
1174 ; PRESUN [C] BYTU Z ADRESY V [DE] NA ADRESU V [HL]
1175 ;
1176 F5F3 0C MOVE: INC C ; TEST PRENESENEHO POCTU ZNAKU
1177 F5F4 0D MOVE10: DEC C ;
1178 F5F5 C8 RET Z ; RETURN PO UKONCENI PRESUNU
MACRO-80 3.44 09-Dec-81 PAGE 1-19
1179 F5F6 1A LD A,(DE) ; BYTE DO [A]
1180 F5F7 77 LD (HL),A ; JEHO ULOZENI
1181 F5F8 13 INC DE ; UPRAVA ADRES ZDROJOVEHO
1182 ; A CILOVEHO POLE
1183 F5F9 23 INC HL
1184 F5FA C3 F5F4 JP MOVE10 ; OPAKOVANI
1185 ;
1186 ;
1187 ; TEST AKT.CLSLA VSTUPU => LOW BYTE .EQ. HIGH BYTE
1188 ;
1189 F5FD 21 FDF2 TSTDIE: LD HL,DETYNO ; ADR. ULOZENI # VSTUPU
1190 F600 7E LD A,(HL) ; LOW BYTE DO [A]
1191 F601 23 INC HL
1192 F602 BE CP (HL) ; TEST LOW BYTE .EQ. HI5H BYTE
1193 F603 C0 RET NZ ; RET KDYZ .NE.
1194 F604 3C INC A ;
1195 F605 C9 RET
1196 ;
1197 ;
1198 ; OBSLUHA ADRESARE
1199 ;
1200 F606 2A FDD0 DIR: LD HL,(CUDRM) ; MAX.# POLOZEK ADRESARE
1201 F609 EB EX DE,HL ; DO [DE]
1202 F60A 2A FDF2 LD HL,(DETYNO) ; AKT. CITAC VSTUPU DO [HL]
1203 F60D 23 INC HL ; NASTAVENI PRVNIHO (0)
1204 F60E 22 FDF2 LD (DETYNO),HL ;
1205 F611 CD F596 CALL SDEMHL ; POROVNANI AKT. CITACE VSTUPU
1206 ; S MAX.
1207 F614 D2 F61E JP NC,DIR120 ; AKT.CITAC .LE. MAX.
1208 ;
1209 ;
1210 ; NASTAVENI AKT. CISLA (#) VSTUPU ADRESARE NA -1
1211 ;
1212 F617 21 FFFF CLRDIR: LD HL,-1 ; NASTAVENI [HL]
1213 F61A 22 FDF2 LD (DETYNO),HL ; NASTAVENI # VSTUPU NA -1
1214 F61D C9 RET
1215 ;
1216 F61E 3A FDF2 DIR120: LD A,(DETYNO) ; AKT. CITAC VSTUPU DO [A]
1217 F621 E6 03 AND 03H ; VYPOCET POSUNUTI (OFFSET)
1218 F623 06 05 LD B,5 ; V ULOZENI SEKTORU ADRESARE
1219 F625 87 DIR140: ADD A,A ;
1220 F626 05 DEC B ;
1221 F627 C2 F625 JP NZ,DIR140 ;
1222 F62A 32 FDF1 LD (DIROFF),A ; ULOZENI OFFSETU
1223 F62D B7 OR A ; TEST OFFSETU NA NULU
1224 F62E C0 RET NZ ; RET KDYZ VSTUP NENI PRVNI
1225 ;
1226 ; NACTENI DALSIHO SEKTORU ADRESARE
1227 ;
1228 F62F C5 PUSH BC ; USCHOVA [BC] B=0 C=-1
1229 F630 CD F3C4 CALL DSKCAL ; VYPOCET A NASTAVENI # SEKTORU
1230 ; A # STOPY ADRESARE
1231 F633 CD F5D5 CALL WDB1 ; NACTENI SEKTORU ADRESARE
1232 F636 C1 POP BC ; OBNOVA [BC]
1233 F637 C3 F59F JP CKDSKC ; KONTROLA NA VYMENU DISKU+RET
1234 ;
1235 ; PRIPRAVA ZAZNAMU DO ALOKACNI KAPY
1236 ;
1237 F63A 79 TL100: LD A,C ; CISLO ALOKACNIHO BLOKU DO [A]
1238 F63B E6 07 AND 07H ; URCENI BITU V ALOKACNIH BYTU
1239 F63D 3C INC A ;
1240 F63E 5F LD E,A ; JEHO USCHOVA
MACRO-80 3.44 09-Dec-81 PAGE 1-20
1241 ;
1242 F63F 57 LD D,A ; VYPOCET OFFSETU V ALOKACNI
1243 F640 79 LD A,C ; MAPE
1244 F641 0F RRCA ; [BC] - CISLO BLOKU
1245 F642 0F RRCA
1246 F643 0F RRCA
1247 F644 E6 1F AND 1FH ; ROTOVANEHO LOW BYTU
1248 F646 4F LD C,A ; # ALOKACNIHO BLOKU DO [C]
1249 F647 78 LD A,B
1250 F648 87 ADD A,A ; ([A] * 32)OR(# BLOKU/MOD 8)
1251 F649 87 ADD A,A
1252 F64A 87 ADD A,A
1253 F64B 87 ADD A,A
1254 F64C 87 ADD A,A
1255 F64D B1 OR C
1256 F64E 4F LD C,A ; VYSLEDEK DO [C]
1257 ;
1258 F64F 78 LD A,B ; HORNI BYTE # AL. BLOKU
1259 F650 0F RRCA
1260 F651 0F RRCA
1261 F652 0F RRCA
1262 F653 E6 1F AND 1FH ; EX. BITU 5,6,7
1263 F655 47 LD B,A
1264 F656 2A FDC7 LD HL,(ALVP) ; ADR. ULOZENI ALOKACNI MAPY
1265 F659 09 ADD HL,BC ; ADR. AKT.BYTU AL. MAPY
1266 F65A 7E LD A,(HL) ; ALOKACNI BYT DO [A]
1267 F65B 07 TL120: RLCA ; ROTACE ALOKACNIHO BYTU
1268 F65C 1D DEC E ; A NAST.AKT.BITU K ZAZNAMU
1269 F65D C2 F65B JP NZ,TL120
1270 F660 C9 RET
1271 ;
1272 ; ZAZNAM DO ALOKACNIHO BYTU A JEHO ULOZENI
1273 ;
1274 F661 D5 TL140: PUSH DE ; USCHOVA [DE]
1275 F662 CD F63A CALL TL100 ; PRIPRAVA ZAZNAMU DO AL. MAPY
1276 F665 E6 FE AND 0FEH ; VYMAZ AKT.BITU Z MAPY
1277 F667 C1 POP BC ; OBNOVA ZAZN. KONSTANTY
1278 F668 B1 OR C ; ZAPIS AL. BITU
1279 F669 0F TL160: RRCA ; ZPETNA ROTACE ALOKACNIHO
1280 F66A 15 DEC D ; BYTU
1281 F66B C2 F669 JP NZ,TL160 ;
1282 F66E 77 LD (HL),A ; ULOZENI ALOKACNIHO BYTU
1283 F66F C9 RET
1284 ;
1285 ; GENEROVANI ALOKACNI MAPY
1286 ;
1287 F670 CD F55F TL180: CALL DIRADR ; ADR. AKT. FCB DO [HL]
1288 F673 11 0010 LD DE,16 ; OFFSET NA PRVNI # AL.BLOK(D0)
1289 F676 19 ADD HL,DE ; ADR. D0 V ADRESARI
1290 F677 C5 PUSH BC ; USCHOVA [BC]
1291 F678 0E 11 LD C,11H ; POCITADLO ULOZENI # AL.BLOKU
1292 F67A D1 TL190: POP DE ; E=L, D=0
1293 F67B 0D DEC C
1294 F67C C8 RET Z ;
1295 F67D D5 PUSH DE ; USCHOVA [DE]
1296 F67E 3A FDE5 LD A,(DSKSFL) ; VELIKOST DISKU DO [A]
1297 F681 B7 OR A ; JEHO TEST
1298 F682 CA F68D JP Z,TL200 ; VELIKOST .GT. 256
1299 F685 C5 PUSH BC ; USCHOVA POCITADLA
1300 F686 E5 PUSH HL ; USCHOVA ADR. # AL.BLOKU
1301 F687 4E LD C,(HL) ; # ALOKACNIHO BLOKU DO [C]
1302 F688 06 00 LD B,0 ; NULA DO [B]
MACRO-80 3.44 09-Dec-81 PAGE 1-21
1303 F68A C3 F693 JP TL220 ;
1304 ;
1305 F68D 0D TL200: DEC C ; UPRAVA POCITADLA
1306 F68E C5 PUSH BC ; JEHO USCHOVA
1307 F68F 4E LD C,(HL) ; # AL. BLOKU DO [BC]
1308 F690 23 INC HL ;
1309 F691 46 LD B,(HL) ;
1310 F692 E5 PUSH HL ; USCHOVA ADR.# AL. BLOKU
1311 ;
1312 F693 79 TL220: LD A,C ; TEST # ALOKACNIHO BLOKU NA
1313 F694 B0 OR B ; NULU
1314 F695 CA F6A2 JP Z,TL240 ; SKOK KDYZ # A. BL. .EQ. 0
1315 F698 2A FDCE LD HL,(CUDSM) ; TEST NA PREKROCENI MAX.
1316 F69B 7D LD A,L ; VELIKOSTI DISKU
1317 F69C 91 SUB C ; [HL] - [BC]
1318 F69D 7C LD A,H ;
1319 F69E 98 SBC A,B ;
1320 F69F D4 F661 CALL NC,TL140 ; VELIKOST NENI PREKROCENA
1321 ;
1322 F6A2 E1 TL240: POP HL ; AKTUALIZACE ADRESY # AL.BLOKU
1323 F6A3 23 INC HL ;
1324 F6A4 C1 POP BC ;
1325 F6A5 C3 F67A JP TL190 ;
1326 ;
1327 ;
1328 ;
1329 ;
1330 ; NULOVANI ALOKACNI MAPY (VEKTORU)
1331 ;
1332 F6A8 2A FDCE CLRALV: LD HL,(CUDSM) ; VELIKOST DISKU V BLOCICH DO HL
1333 F6AB 0E 03 LD C,3 ; CITAC = 3
1334 F6AD CD F4EB CALL RSHHL ; DELENO 8 =>POCET BYTU AL. VEKT.
1335 F6B0 23 INC HL ;
1336 F6B1 44 LD B,H ; PRESUN VYSLEDKU DO [BC]
1337 F6B2 4D LD C,L ;
1338 F6B3 2A FDC7 LD HL,(ALVP) ; PRVNI BYTE AL.VEKTORU DO [HL]
1339 F6B6 36 00 CLALV1: LD (HL),0 ; NULOVANI JEDNOTLIVYCH BYTU
1340 F6B8 23 INC HL ;
1341 F6B9 0B DEC BC ;
1342 F6BA 78 LD A,B ; TEST POCITADLA BYTU
1343 F6BB B1 OR C
1344 F6BC C2 F6B6 JP NZ,CLALV1 ; OPAKOVANI
1345 ;
1346 F6BF 2A FDD2 LD HL,(CUAL) ; AL. VEKTOR ADRESARE DO [HL]
1347 F6C2 EB EX DE,HL ; DO [DE]
1348 F6C3 2A FDC7 LD HL,(ALVP) ; ADR. ALOKACNIHO VEKTORU
1349 F6C6 73 LD (HL),E ; INICIALIZACE AL. VEKTORU
1350 F6C7 23 INC HL
1351 F6C8 72 LD (HL),D
1352 ;
1353 F6C9 CD F3A2 CALL HOMCLR ; "HOHE" A NULOVANI #STOPY
1354 ; A MAX. POCTU SEKTORU NA STOPE
1355 F6CC 2A FDBB LD HL,(MAXDIE) ; NAST. MAX. CISLA VSTUPU DO
1356 F6CF 36 03 LD (HL),3 ; SEKTORU ADRESARE NA 3
1357 F6D1 23 INC HL ; ADR. HIGH BYTU MAXDIE
1358 F6D2 36 00 LD (HL),0
1359 F6D4 CD F617 CALL CLRDIR ; NASTAVENI # VSTUPU DO SEKTORU
1360 ; ADRESARE NA -1
1361 F6D7 0E FF TL260: LD C,0FFH ; [C] DO -1
1362 F6D9 CD F606 CALL DIR ; OBSLUHA ADRESARE
1363 F6DC CD F5FD CALL TSTDIE ; TEST # VST.ADRESARE NA NULU
1364 F6DF C8 RET Z ; RET KDYZ A VSTUPU .EQ. 0
MACRO-80 3.44 09-Dec-81 PAGE 1-22
1365 ;
1366 F6E0 CD F55F CALL DIRADR ; GENER.ADR. ULOZENI AKT, FCB
1367 F6E3 3E E5 LD A,0E5H ; PRIZNAK INICIALIZACE FCB [A]
1368 F6E5 BE CP (HL) ; JE FCB INICIALIZOVANE
1369 F6E6 CA F6D7 JP Z,TL260 ; SKOK KDYZ NENI
1370 ;
1371 F6E9 3A F34C LD A,(USRNO) ; # UZIVATELE DO [A]
1372 F6EC BE CP (HL) ; JEHO TEST
1373 F6ED C2 F6FB JP NZ,TL280 ; # UZIVATELE NESOUHLASI
1374 F6F0 23 INC HL ; ADR. DRUHEHO BYTU ADRESARE
1375 F6F1 7E LD A,(HL) ; DO [A]
1376 F6F2 D6 24 SUB 24H ; SUBTRACT '$'
1377 F6F4 C2 F6FB JP NZ,TL280 ; SKOK KDYZ .NE. $
1378 F6F7 3D DEC A ; INICIALIZACE RETPRM
1379 F6F8 32 F350 LD (RETPRM),A ; NA 0FFH
1380 ;
1381 F6FB 0E 01 TL280: LD C,1 ;
1382 F6FD CD F670 CALL TL180 ; GENEROVANI ALOKACNI MAPY
1383 F700 CD F58D CALL TSTMDI ; PRIPRAVA DALSIHO # VSTUPU
1384 F703 C3 F6D7 JP TL260 ; ADRESARE A OPAKOVANI
1385 ;
1386 ; PRIPRAVA NAVRATOVEHO PARAMETRU PROCEDURY
1387 ;
1388 F706 3A FDDC TL300: LD A,(RPSAV) ; NAVR. PARAMETER DO [A]
1389 F709 C3 F2FA JP SVSING ; JEHO ULOZENI + RET
1390 ;
1391 ;
1392 F70C C5 TL320: PUSH BC ; USCHOVA "EX" Z DIR
1393 F70D F5 PUSH AF ; USCHOVA "EX" Z FCB
1394 F70E 3A FDCD LD A,(CUEXM) ; EXTEND-HASK DO [A]
1395 F711 2F CPL ; JEJI KOMPLEMENT
1396 F712 47 LD B,A ; DO [B]
1397 F713 79 LD A,C ; "EX" Z DIR DO [A]
1398 F714 A0 AND B ; JEHO .AND. S KOHPL. CUEXM
1399 F715 4F LD C,A ; VYSLEDEK DO [C]
1400 F716 F1 POP AF ; "EX" Z FCB DO [A]
1401 F717 A0 AND B ; JEHO .AND. S KOMPL. CUEXM
1402 F718 91 SUB C ; ODECTENI UPRAVENEHO EX
1403 F719 E6 1F AND 1FH ; A MASKA
1404 F71B C1 POP BC ; OBNOVENI [BC]
1405 F71C C9 RET ;
1406 ;
1407 ; HLEDEJ PRVNI VYSKYT V ADRESARI
1408 ;
1409 F71D 3E FF SFFP: LD A,0FFH ; INICIALIZACE NAVRAT. PARAM.
1410 F71F 32 FDDC LD (RPSAV),A ; PROCEDURY
1411 F722 21 FDE0 LD HL,SRGSAV ; ADR.ROZSAHU SHODY PRI HLEDANI
1412 F725 71 LD (HL),C ; JEJI NASTAVENI
1413 F726 2A F34E LD HL,(FCBSAV) ; ADR. FCB DO [HL]
1414 F729 22 FDE1 LD (FCBP),HL ; JEJI POMOCNE ULOZENI
1415 F72C CD F617 CALL CLRDIR ; NAST. # VST. DO SEKT.DIR =-1
1416 F72F CD F3A2 CALL HOMCLR ; "HOME" A NULOVANI # STOPY A
1417 ; MAX. POCTU SEKTORU NA STOPE
1418 ;
1419 ; HLEDEJ DALSI VYSKYT SOUBORU V ADRESARI
1420 ;
1421 F732 0E 00 TL400: LD C,0 ; 0 DO [C]
1422 F734 CD F606 CALL DIR ; OBSLUHA ADRESARE
1423 F737 CD F5FD CALL TSTDIE ; TEST # VSTUPU ADRESARE NA 0
1424 F73A CA F799 JP Z,TL500 ; SKOK KDYZ # VSTUPU .EQ. 0
1425 F73D 2A FDE1 LD HL,(FCBP) ; ADRESA FCB DO [HL]
1426 F740 EB EX DE,HL ; DO [DE]
MACRO-80 3.44 09-Dec-81 PAGE 1-23
1427 F741 1A LD A,(DE) ; TEST PLATNOSTI FCB
1428 F742 FE E5 CP 0E5H ;
1429 F744 CA F74F JP Z,TL420 ; FCB JE ZRUSENE
1430 F747 D5 PUSH DE ; USCHOVA ADRESY FCB
1431 F748 CD F580 CALL TDIRET ; TEST PREK. MAX.# VST.ADRESARE
1432 F74B D1 POP DE ; OBNOVA ADRESY FCB
1433 F74C D2 F799 JP NC,TL500 ; SKOK KDYZ # VSTUPU PREKROCENO
1434 ;
1435 F74F CD F55F TL420: CALL DIRADR ; GENEROVANI ADRESY ADRESARE
1436 F752 3A FDE0 LD A,(SRGSAV) ; ROZSAH POROVNANI DO [A]
1437 F755 4F LD C,A ; DO [BC]
1438 F756 06 00 LD B,0 ;
1439 ;
1440 F758 79 TL430: LD A,C ; TEST UKONCENI
1441 F759 B7 OR A ;
1442 F75A CA F788 JP Z,TL480 ; POROVNANI UKONCENE
1443 F75D 1A LD A,(DE) ; ZNAK NAZVU DO [A]
1444 F75E FE 3F CP '?' ; JE TO ?
1445 F760 CA F781 JP Z,TL460 ; ANO,HUZE TO BYT JAKYKOLIV ZNAK
1446 F763 78 LD A,B ; PORADI ZNAKU DO [A]
1447 F764 FE 0D CP 0DH ; POROVNANO VCETNE "EX" ?
1448 F766 CA F781 JP Z,TL460 ; ANO
1449 F769 FE 0C CP 0CH ; POROVNANO AZ PO "EX" ?
1450 F76B 1A LD A,(DE) ; PRUBEZNE POROVNAVANY ZNAK DO [A]
1451 F76C CA F778 JP Z,TL440 ; NASLEDUJE POROVNANI "EX"
1452 F76F 96 SUB (HL) ; POROVNANI PRUBEZNYCH ZNAKU
1453 F770 E6 7F AND 7FH ;
1454 F772 C2 F732 JP NZ,TL400 ; NESOUHLASI
1455 F775 C3 F781 JP TL460 ; JSOU SHODNE
1456 ;
1457 F778 C5 TL440: PUSH BC ; USCH.CITACE PORADI A POR.ZNAKU
1458 F779 4E LD C,(HL) ; "EX" Z DIR DO [C]
1459 F77A CD F70C CALL TL320 ; UPRAVA "EX"
1460 F77D C1 POP BC ; OBN.CITACE PORADI A POR. ZNAKU
1461 F77E C2 F732 JP NZ,TL400 ; SKOK KDYZ UPRAVA "EX" .NE. 0
1462 ;
1463 F781 13 TL460: INC DE ; ADR. DALSIHO ZNAKU V UZIV FCB
1464 F782 23 INC HL ; ADR. DALSIHO ZNAKU V DIR-FCB
1465 F783 04 INC B ; INC CITACE PORADI
1466 F784 0D DEC C ; DEC CITACE POR. ZNAKU
1467 F785 C3 F758 JP TL430 ; OPAKOVANI
1468 ;
1469 F788 3A FDF2 TL480: LD A,(DETYNO) ; AKT.# VSTUPU ADRESARE DO [A]
1470 F78B E6 03 AND 03 ; EXTRAKT SPODNICH 2 BITU
1471 F78D 32 F350 LD (RETPRM),A ; AKT.# VSTUPU DO NAVR.PAR.SLUZBY
1472 F790 21 FDDC LD HL,RPSAV ; TEST A NASTAVENI NAVRATOVEHO
1473 F793 7E LD A,(HL) ; PARAHETRU SLUZBY
1474 F794 17 RLA ; TEST BITU 7
1475 F795 D0 RET NC ; RET KDYZ NENI NASTAVENY
1476 F796 AF XOR A ; NULA DO [A]
1477 F797 77 LD (HL),A ; A DO NAVRATOVEHO PARAHETRU
1478 F798 C9 RET ; PROCEDURY
1479 ;
1480 ; HLEDANY SOUBOR SE NENASEL
1481 ;
1482 F799 CD F617 TL500: CALL CLRDIR ; NAST.AKT,# VSTUPU NA -1
1483 F79C 3E FF LD A,0FFH ; INDIKACE CHYBY DO [A]
1484 F79E C3 F2FA JP SVSING ; NACTAVENI NAVR.PAR. SLUZBY+RET
1485 ;
1486 ;
1487 ; PROCEDURA ZRUSENI SOUBORU
1488 ;
MACRO-80 3.44 09-Dec-81 PAGE 1-24
1489 ;
1490 F7A1 CD F555 DELFP: CALL TSTNRO ; TEST NA NOT READ ONLY
1491 ; HLEDANI PRVNIHO EXTENDU SOUBORU
1492 F7A4 0E 0C LD C,12 ; ROZSAH POROVNANI (JHENO)
1493 F7A6 CD F71D CALL SFFP ; HLEDANI PRVNIHO VYSKYTU V ADRESARI
1494 F7A9 LB004: ; TEST NALEZENI HLEDANEHO SOUBORU
1495 F7A9 CD F5FD CALL TSTDIE ;
1496 F7AC C8 RET Z ; RET KDYZ NENALEZEN
1497 ; OZNACENI EXTENDU JAKO ZRUSENEHO
1498 F7AD CD F545 CALL TSTRO ; TEST NA R/O SOUBORU
1499 F7B0 CD F55F CALL DIRADR ; GENEROVANI ADRESY ADRESARE
1500 F7B3 36 E5 LD (HL),0E5H ; OZNACENI FCB
1501 F7B5 0E 00 LD C,0 ; NULA DO [C]
1502 F7B7 CD F670 CALL TL180 ; NULOVANI ODPOVIDAJICICH BITU AL.HAPY
1503 F7BA CD F5C7 CALL WDB ; ZAPIS BUFFERU ADRESARE
1504 F7BD CD F732 CALL TL400 ; HLEDANI DALSIHG EXTENDU ADRESARE
1505 F7C0 C3 F7A9 JP LB004 ;
1506 ;
1507 ;
1508 ;
1509 ; VYPOCET ALOKACE BLOKU
1510 ;
1511 F7C3 COBLLO: ; HLEDANI NEJBLIZSIHO VOLNEHO
1512 F7C3 50 LD D,B ; BLOKU V OBOU SHERECH
1513 F7C4 59 LD E,C ; PREDCHOZI OBSAZENE # BLOKU DO [BC]
1514 F7C5 LB018: ;
1515 ; TEST CLSLA BLOKU NA NULU
1516 F7C5 79 LD A,C
1517 F7C6 B0 OR B
1518 F7C7 CA F7D6 JP Z,LB015 ; KDYZ NULA =>HLEDANI V SMERE DOLU
1519 ; JINAK TEST DALSIHO BLOKU
1520 F7CA 0B DEC BC ; DEKREMENT # BLOKU
1521 F7CB D5 PUSH DE ; USCH. # BLOKU PRO HLEDANI
1522 ; VE SHERU NAHORU
1523 F7CC C5 PUSH BC ; VE SHERU DOLU
1524 F7CD CD F63A CALL TL100 ; TEST BITU Z ALOKACNI HAPY
1525 F7D0 1F RRA ;
1526 ;
1527 F7D1 D2 F7F1 JP NC,LB016 ; BLOK JE VOLNY-JEHO REZERVACE
1528 ; A RETURN
1529 ; OBNOVA # BLOKU PRO HLEDANI
1530 F7D4 C1 POP BC ; VE SMERU NAHORU
1531 F7D5 D1 POP DE ; VE SMERU DOLU
1532 F7D6 LB015: ;
1533 ;
1534 F7D6 2A FDCE LD HL,(CUDSM) ; VELIKOST DISKU (POCET BLOKU)DO [HL]
1535 ; [DE] - [HL] TO TDE]
1536 F7D9 7B LD A,E ; TEST PREKROCENI VELIKOSTI
1537 F7DA 95 SUB L
1538 F7DB 7A LD A,D
1539 F7DC 9C SBC A,H
1540 F7DD D2 F7F9 JP NC,LB017 ; VELIKOST PREKROCENA
1541 ; HLEDANI DALSIHO BLOKU
1542 F7E0 13 INC DE ; INC # BLOKU
1543 F7E1 C5 PUSH BC ; SUSCHOVA # BLOKU PRO HLEDANI
1544 F7E2 D5 PUSH DE ; V OBOU SMERECH
1545 ;
1546 F7E3 42 LD B,D ; PRESUN # BLOKU DO [BC]
1547 F7E4 4B LD C,E
1548 F7E5 CD F63A CALL TL100 ; TEST BITU V ALOKACNI MAPE
1549 F7E8 1F RRA ;
1550 F7E9 D2 F7F1 JP NC,LB016 ; REZERVOVANI + RET
MACRO-80 3.44 09-Dec-81 PAGE 1-25
1551 ;
1552 F7EC D1 POP DE ; OBNOVA # BLOKU PRO HLEDANI V
1553 F7ED C1 POP BC ; OBOU SMERECH
1554 F7EE C3 F7C5 JP LB018 ; OPAKOVANI
1555 F7F1 LB016: ; ZPETNE ULOZENI DO ALOKACNI
1556 ; MAPY
1557 F7F1 17 RLA
1558 F7F2 3C INC A ; OBSAZENI BITU V AL. MAPE
1559 F7F3 CD F669 CALL TL160 ;
1560 ; OBNOVA # BLOKU
1561 F7F6 E1 POP HL ; # VOLNEHO BLOKU
1562 F7F7 D1 POP DE ; # POSLEDNIHO BLOKU
1563 F7F8 C9 RET ;
1564 F7F9 LB017: ;
1565 F7F9 79 LD A,C ; TEST # BLOKU NA NULU (V SMERE DOLU)
1566 F7FA B0 OR B
1567 F7FB C2 F7C5 JP NZ,LB018 ; OPAKOVANI
1568 F7FE 21 0000 LD HL,0 ; JINAK 0=>[HL] - DISK PLNY
1569 F801 C9 RET ;
1570 ;
1571 ;
1572 ; PRESUN FCB DO SEKTORU ADRESARE A ZAPIS
1573 ;
1574 ; PRIPRAVA VST. PARAMETRU
1575 F802 0E 00 LB020: LD C,0 ; RELATIVNI ADRESA PRESOUVAME CASTI
1576 F804 1E 20 LD E,32 ; ROZSAH PRESOUVANE CASTI
1577 ;
1578 ; PRESUN CASTI FCB DO SEKTORU ADRESARE A ZAPIS
1579 ;
1580 ;
1581 F806 MOVFCB: ;
1582 F806 D5 PUSH DE ; USCHOVA ROZSAHU PRESUNU
1583 F807 06 00 LD B,0 ; NULA DO [B]
1584 F809 2A F34E LD HL,(FCBSAV) ; ADR. FCB DO [HL]
1585 F80C 09 ADD HL,BC ; POC. ADRESA PRESUNU DO [HL]
1586 F80D EB EX DE,HL ; A DO [DE]
1587 F80E CD F55F CALL DIRADR ; ADRESA VOLNEHO FCB
1588 F811 C1 POP BC ; ROZSAH PRESUNU DO [BC]
1589 F812 CD F5F3 CALL MOVE ; PRESUN [C] BYTO Z [DE] DO [HL]
1590 F815 CD F3C4 LB014: CALL DSKCAL ; VYPOCET A NASTAVENI SEKTORU A STOPY
1591 F818 C3 F5C7 JP WDB ; ZAPIS SEKTORU ADRESARE
1592 ;
1593 ;
1594 ; PROCEDURA PREJMENOVANI SUBORU
1595 ; =============================
1596 ;
1597 F81B CD F555 RENFP: CALL TSTNRO ; TEST NA DISK NOT READ ONLY
1598 ; HLEDANI PRVNIHO EXTENDU SOUBORU
1599 F81E 0E 0C LD C,12 ; ROZSAH POROVNANI (JMENO)
1600 F820 CD F71D CALL SFFP ; HLEDANI PRVNIHO VYSKYTU
1601 ; PRESUN # DISKU A # UZIVATELE
1602 F823 2A F34E LD HL,(FCBSAV) ; ADRESA FCB DO [HL]
1603 F826 7E LD A,(HL) ; # DISKU A # UZIVATELE DO [A]
1604 ; ADRESA 1 ZNAKU NOVEHO JMENA
1605 F827 11 0010 LD DE,16 ; DO [HL]
1606 F82A 19 ADD HL,DE
1607 F82B 77 LD (HL),A ; ULOZENI # DISKU A # UZIVATELE
1608 ;
1609 F82C CD F5FD LB003: CALL TSTDIE ; EXTEND NALEZEN ?
1610 F82F C8 RET Z ; RET KDYZ NE
1611 ; PREJMENOVANI PRVNIHO EXTENDU A
1612 ; HLEDANI DALSIHO
MACRO-80 3.44 09-Dec-81 PAGE 1-26
1613 F830 CD F545 CALL TSTRO ; TEST NA READ ONLY SOUBORU
1614 ;
1615 F833 0E 10 LD C,16 ; REL. ADRESA NOVEHO
1616 F835 1E 0C LD E,12 ; ROZSAH PRESUNU
1617 F837 CD F806 CALL MOVFCB ; PRESUN JMENA DO DIR-FCB A ZAPIS
1618 F83A CD F732 CALL TL400 ; HLEDANI DALSIHO EXTENDU SOUBORU
1619 F83D C3 F82C JP LB003 ;
1620 ;
1621 ;
1622 ; PROCEDURA NACTAVENI ATRIBUTU SOUBORU
1623 ; ====================================
1624 ;
1625 ; HLEDANI PRVNIHO EXTENDU SOUBORU
1626 F840 0E 0C SETFAP: LD C,12 ; NACTAVENI ROZSAHU POROVNANI
1627 F842 CD F71D CALL SFFP ; HLEDANI PRVNIHO VYSKYTU SOUBORU
1628 ;
1629 F845 CD F5FD LBA14: CALL TSTDIE ; TEST NALEZENI
1630 F848 C8 RET Z ; RET KDYZ NENALEZEN
1631 ;
1632 F849 0E 00 LD C,0 ; REL. ADR. PRESUNU DO [C]
1633 F84B 1E 0C LD E,12 ; ROZSAH POROVNAVANI DO [E]
1634 F84D CD F806 CALL MOVFCB ; PRESUN JMENA DO DIR-FCB + ZAPIS
1635 F850 CD F732 CALL TL400 ; HLEDANI DALSIHO EXTENDU SOUBORU
1636 F853 C3 F845 JP LBA14 ;
1637 ;
1638 ;
1639 ; PROCEDURA OTEVRENI SOUBORU
1640 ; ==========================
1641 ;
1642 F856 OPFP: ; HLEDANI EXTENDU SOUBORU
1643 F856 0E 0F LD C,15 ; NASTAVENI ROZSAHU POROVNANI
1644 F858 CD F71D CALL SFFP ; HLEDANI PRVNIHO VYSKYTU
1645 F85B CD F5FD CALL TSTDIE ; TEST NALEZENI
1646 F85E C8 RET Z ; RET KDYZ NENALEZEN
1647 ; ULOZENI "EX" Z UZIV. FCB
1648 F85F OPFP1:
1649 F85F CD F4A7 CALL EXADD ; ADRESA NA "EX"
1650 F862 7E LD A,(HL) ; "EX" Z UZIV. FCB DO [A]
1651 F863 F5 PUSH AF ; USCHOVA "EX"
1652 F864 E5 PUSH HL ; A JEHO ADRESY
1653 ; PRESUN DIR-FCB DO UZIV. FCB
1654 ; PRIPRAVA PARAMETRU
1655 F865 CD F55F CALL DIRADR ; GENEROVANI ADRESY ADRESARE
1656 F868 EB EX DE,HL ; PRESUN DIR.ADR DO [DE]
1657 F869 2A F34E LD HL,(FCBSAV) ; ADRESA UZIV. FCB DO [HL]
1658 F86C 0E 20 LD C,32 ; ROZSAH PRESUNU DO [C]
1659 F86E D5 PUSH DE ; USCHOVA DIR. ADR
1660 F86F CD F5F3 CALL MOVE ; PRESUN FCB
1661 F872 CD F579 CALL ST7S2 ; NASTAVENI BITU 7 V S2
1662 ; PRESUN "EX" Z DIR-FCB DO [C]
1663 F875 D1 POP DE ; OBNOVA DIR. ADR
1664 F876 21 000C LD HL,12 ; OFFSET NA "EX"
1665 F879 19 ADD HL,DE ; ADR. "EX" Z DIR-FCB DO [HL]
1666 F87A 4E LD C,(HL) ; "EX" DO [C]
1667 ; "RC" Z DIR-FCB DO [B]
1668 F87B 21 000F LD HL,15 ; OFFSET NA "RC"
1669 F87E 19 ADD HL,DE ; ADRESA "RC" Z DIR-FCB DO [HL]
1670 F87F 46 LD B,(HL) ; "RC" DO [B]
1671 ; ZPETNE ULOZENI "EX" DO UZIV.FCB
1672 F880 E1 POP HL ; ADRESA UZIV. "EX" DO [HL]
1673 F881 F1 POP AF ; OBNOVA "EX"
1674 F882 77 LD (HL),A ; ULOZENI"EX"
MACRO-80 3.44 09-Dec-81 PAGE 1-27
1675 ; POROVNANI "EX" Z UZIV. A DIR. FCB
1676 F883 79 LD A,C ; "EX" Z DIR-FCB DO [A]
1677 F884 BE CP (HL) ; POROVNANI
1678 ; KDYZ SE ROVNAJI
1679 F885 78 LD A,B ; ULOZENI "RC"
1680 F886 CA F890 JP Z,LB005
1681 ; KDYZ "EX" Z DIR-FCB .LT."EX" UZIV.
1682 F889 3E 00 LD A,0 ; NULOVANI "RC"
1683 F88B DA F890 JP C,LB005
1684 ; KDYZ "EX" Z DIR-FCB .GT. "EX" UZIV.
1685 F88E 3E 80 LD A,80H ; NASTAVENI "RC" NA 80H
1686 ; ULOZENI "RC"
1687 ; ADRESA "RC" DO [HL]
1688 F890 2A F34E LB005: LD HL,(FCBSAV)
1689 F893 11 000F LD DE,15 ; OFFSET NA "RC"
1690 F896 19 ADD HL,DE
1691 F897 77 LD (HL),A ; ULOZENI
1692 F898 C9 RET ; RETURN
1693 ;
1694 ;
1695 ; PRESUN 2 BYTU Z ADRESY V [DE] NA ADRESU V [HL] KDYZ
1696 ; [HL].EQ.[HL+1]
1697 ;
1698 F899 LB011: ; KDYZ [HL].EQ.[HL+1]
1699 F899 7E LD A,(HL)
1700 F89A 23 INC HL
1701 F89B B6 OR (HL)
1702 F89C 2B DEC HL
1703
1704 F89D C0 RET NZ
1705 ; POTOM
1706 ; PRESUN LOW BYTU
1707 F89E 1A LD A,(DE)
1708 F89F 77 LD (HL),A
1709 ; PRESUN HIGH BYTU
1710 F8A0 13 INC DE
1711 F8A1 23 INC HL
1712 F8A2 1A LD A,(DE)
1713 F8A3 77 LD (HL),A
1714 ; UPRAVA ADRES
1715 F8A4 1B DEC DE
1716 F8A5 2B DEC HL
1717 F8A6 C9 RET ; RETURN
1718 ;
1719 ;
1720 ; PROCEDURA UZAVRENI SOUBORU
1721 ; ==========================
1722 ;
1723 F8A7 CLFP: ; NULOVANI PRAC. PARAMETRU
1724 F8A7 AF XOR A ; NULA DO [A]
1725 F8A8 32 F350 LD (RETPRM),A ; NULOVANI NAVRATOVEHO PARAMETRU
1726 ; NULOVANI CISLA VSTUPU ADRESARE
1727 F8AB 32 FDF2 LD (DETYNO),A ; LOW BYTE
1728 F8AE 32 FDF3 LD (DETYNO+1),A ; HIGH BYTE
1729 ; RET KDYZ JE DISK READ ONLY
1730 F8B1 CD F51F CALL TSTDRO ; TEST
1731 F8B4 C0 RET NZ ; RETURN
1732 ; RET KDYZ EXTEND NENI NASTAVEN
1733 ; K ZAPISU
1734 F8B5 CD F56A CALL LDS2 ; S2 DO A
1735 F8B8 E6 80 AND 80H ; EX. 7 BITU
1736 F8BA C0 RET NZ ; RET KDYZ 7. BIT S2 = 1
MACRO-80 3.44 09-Dec-81 PAGE 1-28
1737 ; HLEDANI ODPOVIDAJICI POLOZKY V
1738 F8BB 0E 0F LD C,15 ; ADRESARI - NAST. ROZSAHU
1739 F8BD CD F71D CALL SFFP ; HLEDANI PRVNIHO VYSKYTU
1740 F8C0 CD F5FD CALL TSTDIE ; TEST NALEZENI
1741 F8C3 C8 RET Z ; NENALEZEN => RET
1742 ; PRIPRAVA PARAM. K PRESUNU # BLOKU
1743 ; DO [DE] ADR, PRVNIHO # BLOKU Z FCB
1744 F8C4 01 0010 LD BC,16 ; 16 DO [BC]
1745 F8C7 CD F55F CALL DIRADR ; GENEROVANI ADRESY ULOZENI ADRESARE
1746 F8CA 09 ADD HL,BC ; VYPOCET ADRESY ULOZENI PRVNIHO
1747 ; # BLOKU (D0) V ADRESARE
1748 F8CB EB EX DE,HL ; A JEJI PRESUN DO [DE]
1749 ; NASTAVENI ADR. D0 V UZIV. FCB
1750 F8CC 2A F34E LD HL,(FCBSAV) ; ADR, UZIV. FCB DO [HL]
1751 F8CF 09 ADD HL,BC ; ADR. D0 V UZIV FCB
1752 F8D0 0E 10 LD C,16 ; NASTAVENI CITACE PRESUNU
1753 F8D2 LB012: ;
1754 F8D2 3A FDE5 LD A,(DSKSFL) ; TEST VELIKOSTI DISKU
1755 F8D5 B7 OR A ;
1756 F8D6 CA F8ED JP Z,LB006 ; SKOK KDYZ VELIKOST .GT. 256 KB
1757 ;
1758 ; KDYZ # BLOKU Z UZIV.FCB JE NULA
1759 F8D9 7E LD A,(HL) ; OAD D(N) OF USER FCB TO [A]
1760 F8DA B7 OR A ;
1761 F8DB 1A LD A,(DE) ; PRESUN # BLOKU Z FCB V ADRESARI
1762 ; (DIR-FCB)
1763 F8DC C2 F8E0 JP NZ,LB007 ; SKOK KDYZ NOT .EQ. 0
1764 ; PRESUN # BLOKU Z DIR-FCB DO
1765 F8DF 77 LD (HL),A ; UZIVATELSKEHO FCB
1766 F8E0 LB007: ;
1767 F8E0 B7 OR A ; TEST # BBLOKU Z DIR-FCB NA NULU
1768 F8E1 C2 F8E6 JP NZ,LB008
1769 ;
1770 F8E4 7E LD A,(HL) ; PRESUN # BLOKU DO UZIV. FCB
1771 F8E5 12 LD (DE),A
1772 F8E6 LB008: ; POROVNANI # BLOKU Z UZIVATELSKEHO
1773 F8E6 BE CP (HL) ; A DIR-FCB
1774 F8E7 C2 F924 JP NZ,LB009 ; NEJSOU SHODNA => CHYBA + RET
1775 F8EA C3 F902 JP LB010 ; JSOU SHODNA
1776 ;
1777 F8ED LB006: ; PRESUN # BLOKU Z DIR-FCB
1778 F8ED CD F899 CALL LB011 ; DO UZIVATELSKEHO FCB A NAOPAK
1779 F8F0 EB EX DE,HL
1780 F8F1 CD F899 CALL LB011
1781 ;
1782 ; POROVNANI # BLOKU V UZIV. PCB A DLR-FCB
1783 ;
1784 F8F4 EB EX DE, HL ; POROVNANI DOLNIHO BYTE
1785 F8F5 1A LD A,(DE)
1786 F8F6 BE CP (HL)
1787 F8F7 C2 F924 JP NZ,LB009 ; NEROVNAJI SE => NAST. NAVR.
1788 ; PARAMETRU NA 255 + RET
1789 ;
1790 F8FA 13 INC DE ; POROVNANI HORNIHO BYTE
1791 F8FB 23 INC HL
1792 F8FC 1A LD A,(DE)
1793 F8FD BE CP (HL)
1794 F8FE C2 F924 JP NZ,LB009 ; NEROVNAJI SE => NAVR. PAR=255 +
1795 ; RET
1796 F901 0D DEC C ; DEC CITACE PRESUNU
1797 F902 LB010: ;
1798 F902 13 INC DE ; UPRAVA ADRES CISEL BLOKU
MACRO-80 3.44 09-Dec-81 PAGE 1-29
1799 F903 23 INC HL
1800 F904 0D DEC C ; DEC CITACE OPAKOVANI
1801 F905 C2 F8D2 JP NZ,LB012 ; OPAKOVANI
1802 ;
1803 ; POROVNANI "EX" Z UZIV. FCB A DIR-FCB
1804 ;
1805 ; NASTAVENI ADRES "EX"
1806 F908 01 FFEC LD BC,0FFECH ; -20 DO [BC]
1807 F90B 09 ADD HL,BC ; SOUCET S [HL]
1808 F90C EB EX DE,HL ; ADRESA UZIV."EX"
1809 F90D 09 ADD HL,BC ; ADRESA DIR."EX" V [HL]
1810 ; POROVNANI
1811 F90E 1A LD A,(DE)
1812 F90F BE CP (HL)
1813 F910 DA F91C JP C,LB013
1814 ;
1815 ; PRESUN "EX" A "RC" DO UZIV. FCB
1816 ;
1817 ;
1818 F913 77 LD (HL),A ; PRESUN "EX"
1819 F914 01 0003 LD BC,3 ; PRIPRAVA ADRESY "RC"
1820 F917 09 ADD HL,BC
1821 F918 EB EX DE,HL
1822 F919 09 ADD HL,BC
1823 ; PRESUN "RC"
1824 F91A 7E LD A,(HL)
1825 F91B 12 LD (DE),A
1826 F91C LB013: ;
1827 ; NASTAVENI SAV NA -1
1828 F91C 3E FF LD A,0FFH ;
1829 F91E 32 FDEC LD (SAV),A
1830 F921 C3 F815 JP LB014 ; ZAPIS SEKTORU ADRESARE + RET
1831 F924 LB009: ; NASTAVENI NAVRATOVEHO PARAMETRU
1832 F924 21 F350 LD HL,RETPRM ; NA -1 + RET
1833 F927 35 DEC (HL)
1834 F928 C9 RET
1835 ;
1836 ;
1837 ;
1838 ; PROCEDURA VYTVORENI SOUBORU
1839 ; ===========================
1840 ;
1841 F929 CD F555 MKFLP: CALL TSTNRO ; TEST NA NOT READ ONLY
1842 F92C 2A F34E LD HL,(FCBSAV) ; ADR. FCB DO [HL]
1843 F92F E5 PUSH HL ; USCHOVA ADRESY FCB
1844 F930 21 FDB4 LD HL,FFAT ; ADR. PRIZNAKU VOLNEHO FCB(E5)
1845 F933 22 F34E LD (FCBSAV),HL ; A JEHO USCHOVA
1846 F936 0E 01 LD C,1 ; ROZSAH POROVNANI
1847 F938 CD F71D CALL SFFP ; HLEDANI VOLNEHO FCB
1848 F93B CD F5FD CALL TSTDIE ; TEST NALEZENI - NAST. VLAJEK
1849 F93E E1 POP HL ; OBNOVA ADRESY FCB
1850 F93F 22 F34E LD (FCBSAV),HL ; A PRIPRAVA JEJIHO ZPRACOVANI
1851 F942 C8 RET Z ; RET KDYZ JE ADRESAR PLNY
1852 ;
1853 ;
1854 ;
1855 F943 EB EX DE,HL ; ADRESA FCB DO [DE]
1856 F944 21 000F LD HL,0FH ; OFFSET NA S2 DO [HL]
1857 F947 19 ADD HL,DE ; ADRESA S2 DO [HL]
1858 F948 0E 11 LD C,11H ; PARAMETR CYKLU DO [C]
1859 F94A AF XOR A ; NULA DO [A]
1860 F94B 77 LB100: LD (HL),A ; NULOVANI ALOKACNIHO VEKTORU
MACRO-80 3.44 09-Dec-81 PAGE 1-30
1861 F94C 23 INC HL ; V FCB
1862 F94D 0D DEC C
1863 F94E C2 F94B JP NZ,LB100
1864 F951 21 000D LD HL,000DH ; OFFSET NA "EX"
1865 F954 19 ADD HL,DE ; ADRESA "EX" DO [HL]
1866 F955 77 LD (HL),A ; NULOVANI HEXH
1867 F956 CD F58D CALL TSTMDI ; TEST NA MAX. # VSTUPU ADRESARE
1868 F959 CD F802 CALL LB020 ; PRESUN FCB DO ADRESARE DICKU
1869 F95C C3 F579 JP ST7S2 ; NASTAVENI 7 BITU C2 + RET
1870 ;
1871 ;
1872 ; OBSLUHA CTENI A ZAPICU SOUBORU
1873 ; ==============================
1874 ;
1875 ;
1876 F95F AF FLHAN: XOR A ; NULOVANI RIDICIHO BYTE S2
1877 F960 32 FDDA LD (THSE),A ;
1878 F963 CD F8A7 CALL CLFP ; PRESUN FCB DO ADRESARE
1879 F966 CD F5FD CALL TSTDIE ; JE PRESUN KOREKTNI?
1880 F969 C8 RET Z ; NE, CHYBOVY NAVRAT
1881 ;
1882 ;
1883 ;
1884 F96A 2A F34E LD HL,(FCBSAV) ; ADRESA FCB DO [HL]
1885 F96D 01 000C LD BC,0CH ; OFFSET NA "EX" DO [BC]
1886 F970 09 ADD HL,BC ; VYPOCET ADRESY "EX"
1887 F971 7E LD A,(HL) ; "EX" DO [A]
1888 F972 3C INC A ; PRIPRAVA HODNOTY NASLEDUJI-
1889 F973 E6 1F AND 1FH ; CIHO "EX"
1890 F975 77 LD (HL),A ; A JEJI ULOZENI
1891 F976 CA F988 JP Z,LB102 ; CKOK KDYZ [EX] .GT. 32
1892 F979 47 LD B,A ; "EX" DO [B]
1893 F97A 3A FDCD LD A,(CUEXM) ; TEST POCTU EXTENTU
1894 F97D A0 AND B ;
1895 F97E 21 FDDA LD HL,THSE ; ADRESA RIDICIHO BYTE C2(FCB)
1896 F981 A6 AND (HL) ;
1897 F982 CA F993 JP Z,LB103 ;
1898 F985 C3 F9B1 JP LB104 ;
1899 ;
1900 ; ZVYSENI INDIKACE POCTU EXTENTU V S2
1901 ;
1902 F988 01 0002 LB102: LD BC,2 ; ADRESA S2 DO [HL]
1903 F98B 09 ADD HL,BC ;
1904 F98C 34 INC (HL) ; S2=S2+1
1905 F98D 7E LD A,(HL) ; ULOZENI S2
1906 F98E E6 0F AND 0FH ; TEST POCTU EVID. EXTENTU
1907 F990 CA F9BB JP Z,LB106 ; POCET PREKROCEN
1908 ;
1909 ;
1910 ;
1911 F993 0E 0F LB103: LD C,0FH ; ROZSAH POROVNANI DO [C]
1912 F995 CD F71D CALL SFFP ; HLEDEJ VYCKYT V ADRESARI
1913 F998 CD F5FD CALL TSTDIE ; TEST NALEZENI
1914 F99B C2 F9B1 JP NZ,LB104 ; NENALEZEN DALCI EXTENT
1915 F99E 3A FDDB LD A,(FRSE) ; INDIKACE CLUZBY DO [A]
1916 F9A1 3C INC A ; TEST PROVADENE CLUZBY
1917 F9A2 CA F9BB JP Z,LB106 ; READ
1918 F9A5 CD F929 CALL MKFLP ; WRITE-VYTVORENI NOVEHO EXTENTU
1919 F9A8 CD F5FD CALL TSTDIE ; TEST VYTVORENI
1920 F9AB CA F9BB JP Z,LB106 ; NE, CHYBA + RET
1921 F9AE C3 F9B4 JP LB105 ; O.K.
1922 ;
MACRO-80 3.44 09-Dec-81 PAGE 1-31
1923 ;
1924 ;
1925 F9B1 CD F85F LB104: CALL OPFP1 ; PRIPRAVA FCB DALSIHO EXTENTU
1926 F9B4 CD F4BC LB105: CALL LDD9RC ; NASTAVENI"D9"(CR) A "RC" Z FCB
1927 F9B7 AF XOR A ; NULA DO NAVR. PARAHETRU
1928 F9B8 C3 F2FA JP SVSING ; + RET
1929 F9BB CD F2FE LB106: CALL SREPRM ; 1 DO NAVR. PARAMETRU => CHYBA
1930 F9BE C3 F579 JP ST7S2 ; NASTAVENI 7 BITU V S2 + RET
1931 ;
1932 ;
1933 ; PRIPRAVA CTENI A CTENI
1934 ;
1935 F9C1 3E 01 RPR: LD A,01H ; NASTAVENI ATRIBUTU
1936 F9C3 32 FDDD LD (SECSE),A ; SEKVENCNIHO CTENI
1937 F9C6 3E FF LB107: LD A,0FFH ;
1938 F9C8 32 FDDB LD (FRSE),A
1939 F9CB CD F4BC CALL LDD9RC ; PRIPRAVA "D9" A "RC" Z FCB
1940 F9CE 3A FDEB LD A,(D9) ; "D9" DO [A]
1941 F9D1 21 FDE9 LD HL,RC ; ADR. "RC" DO [HL]
1942 F9D4 BE CP (HL) ; POROVNANI "D9" A "RC"
1943 F9D5 DA F9EB JP C,LB108 ; RC .GE. D9=> O.K. CTENI
1944 F9D8 FE 80 CP 80H ; D9 .GT. RC, JE .EQ. 128 ?
1945 F9DA C2 FA00 JP NZ,LB109 ; D9 .NE. 128 =>IND. CHYBY + RET
1946 ;
1947 ;
1948 ;
1949 F9DD CD F95F CALL FLHAN ; PRIPRAVA DALSIHO EXTENTU
1950 F9E0 AF XOR A ; NULOVANI "D9" (AKTUALNIHO
1951 F9E1 32 FDEB LD (D9),A ; CITACE ZAZNAMU)
1952 F9E4 3A F350 LD A,(RETPRM) ; TEST NAVRATOVEHO PARAHETRU
1953 F9E7 B7 OR A ;
1954 F9E8 C2 FA00 JP NZ,LB109 ; IND. CHYBY + RET
1955 ;
1956 ;
1957 ;
1958 F9EB CD F478 LB108: CALL GETBLK ; ZJISTENI # BLOKU
1959 F9EE CD F485 CALL TSTBLK ; TEST # BLOKU NA NULU
1960 F9F1 CA FA00 JP Z,LB109 ; KONEC CTENI
1961 F9F4 CD F48B CALL GETSEC ; ZJISTENI CISLA SEKTORU
1962 F9F7 CD F3D2 CALL DSKCA1 ; VYPOCET A NASTAVENI # STOPY
1963 ; A # SEKTORU
1964 F9FA CD F3B3 CALL READ ; CTENI SEKTORU
1965 F9FD C3 F4D3 JP SVD9RC ; ULOZENI "D9" A "RC"
1966 FA00 C3 F2FE LB109: JP SREPRM ; NASTAVENI NAVR. PARAM. + RET
1967 ;
1968 ;
1969 ; PRIPRAVA ZAPISU A ZAPIS
1970 ;
1971 FA03 3E 01 WPR: LD A,01H ; NASTAVENI ATRIBUTU SEKV.
1972 FA05 32 FDDD LD (SECSE),A ; ZAPISU
1973 FA08 3E 00 WPR1: LD A,00H ;
1974 FA0A 32 FDDB LB110: LD (FRSE),A
1975 FA0D CD F555 CALL TSTNRO ; TEST NA R/O DISKU
1976 FA10 2A F34E LD HL,(FCBSAV) ; ADRESA FCB DO [HL]
1977 FA13 CD F548 CALL TST1 ; TEST NA R/O SOUBORU
1978 FA16 CD F4BC CALL LDD9RC ; PRIPRAVA "D9" A "RC
1979 FA19 3A FDEB LD A,(D9) ; "D9" DO [A]
1980 FA1C FE 80 CP 80H ; TEST "D9"
1981 FA1E D2 F2FE JP NC,SREPRM ; INDIKACE CHYBY + RET
1982 FA21 CD F478 CALL GETBLK ; ZJISTENI# BLOKU
1983 FA24 CD F485 CALL TSTBLK ; TEST # BLOKU NA NULU
1984 FA27 0E 00 LD C,00H ; NAST. INDIKACE SLUZBY
MACRO-80 3.44 09-Dec-81 PAGE 1-32
1985 FA29 C2 FA73 JP NZ,LB115 ; SKOK KDYZ # BLOKU .NE. 0
1986 FA2C CD F43F CALL BSHIFT ; VYPOCET ULOZENI # BLOKU V FCB
1987 FA2F 32 FDDF LD (ESAV+1),A ; JEHO ULOZENI
1988 FA32 01 0000 LD BC,0 ; PRIPRAVA REL. ADR. ULOZENI
1989 FA35 B7 OR A ; # ALOKOVANEHO BLOKU V FCB
1990 FA36 CA FA40 JP Z,LB111 ;
1991 FA39 4F LD C,A ; # BLOKU DO [C]
1992 FA3A 0B DEC BC ;
1993 FA3B CD F45F CALL RETBLK ; VYHLEDANI PREDCH. AL. BLOKU
1994 FA3E 44 LD B,H ; JEHO PRESUN DO [BC]
1995 FA3F 4D LD C,L ;
1996 FA40 CD F7C3 LB111: CALL COBLLO ; PRIPRAVA ALOKACE BLOKU
1997 FA43 7D LD A,L ; TEST VYSLEDKU
1998 FA44 B4 OR H
1999 FA45 C2 FA4D JP NZ,LB112 ; O.K.
2000 FA48 3E 02 LD A,02 ; NENALEZEN DALSI VOLNY BLOK
2001 FA4A C3 F2FA JP SVSING ; IND. CHYBY + RET
2002 ;
2003 ;
2004 ;
2005 FA4D 22 FDED LB112: LD (BLOCK),HL ; ULOZENI # BLOKU K ZAPISU
2006 FA50 EB EX DE,HL ; # BLOKU DO [DE]
2007 FA51 2A F34E LD HL,(FCBSAV) ; ADR. FCB DO [HL]
2008 FA54 01 0010 LD BC,0010H ; OFFSET NA D0
2009 FA57 09 ADD HL,BC ; ADRESA D0 V FCB
2010 FA58 3A FDE5 LD A,(DSKSFL) ; DISKSIZE FLAS DO [A]
2011 FA5B B7 OR A ; TESt VELIKOSTI DISKU
2012 FA5C 3A FDDF LD A,(ESAV+1) ; # BLOKU DO [A]
2013 FA5F CA FA69 JP Z,LB113 ; SKOK PRI ZAPISU NAD 256 BLOKU
2014 FA62 CD F565 CALL DIRAD1 ; GENEROVANI ADRESY ULOZ. ADRESARE
2015 FA65 73 LD (HL),E ; ULOZENI # BLOKU DO ALOK. VEKTORU
2016 FA66 C3 FA71 JP LB114 ;
2017 ;
2018 ; PRI ZAPISU NAD 256 BLOKU
2019 ;
2020 FA69 4F LB113: LD C,A ; OFFSET ULOZENI D0 DO [C]
2021 FA6A 06 00 LD B,0 ; ; NULA DO [B]
2022 FA6C 09 ADD HL,BC ; ADRESA NA MISTO ULOZENI # BLOKU
2023 FA6D 09 ADD HL,BC ; ; V FCB
2024 FA6E 73 LD (HL),E ; PRESUN 1 BLOKU
2025 FA6F 23 INC HL
2026 FA70 72 LD (HL),D
2027 FA71 0E 02 LB114: LD C,02H ; NAST. INDIKACE VELIKOSTI DISKU
2028 FA73 3A F350 LB115: LD A,(RETPRM) ; TEST NAVRATOVEHO PARAMETRU
2029 FA76 B7 OR A ;
2030 FA77 C0 RET NZ ; RET KDYZ RETPRM .NE. 0
2031 ;
2032 ;
2033 ;
2034 ;
2035 FA78 C5 PUSH BC ; USCHOVA INDIKACE SLUZBY
2036 FA79 CD F48B CALL GETSEC ; ZJISTENI # SEKTORU
2037 FA7C 3A FDDD LD A,(SECSE) ; ATRIBUT PROVADENE SLUZBY DO [A]
2038 FA7F 3D DEC A ; TEST SLUZBY
2039 FA80 3D DEC A
2040 FA81 C2 FAC0 JP NZ,LB118 ; SKOK KYZ SLUZBA .NE.40
2041 FA84 C1 POP BC ; OBNOVA [BC]
2042 FA85 C5 PUSH BC ;
2043 FA86 79 LD A,C ; TEST PREDCH. VYKONAVANI PROCEDURY
2044 FA87 3D DEC A
2045 FA88 3D DEC A
2046 FA89 C2 FAC0 JP NZ,LB118 ; SKOK KDYZ CMD .NE. 40
MACRO-80 3.44 09-Dec-81 PAGE 1-33
2047 ;
2048 ;
2049 ;
2050 FA8C E5 PUSH HL ; USCH.ADR.ULOZENI DALSIHO # BLOKU
2051 FA8D 2A FDC1 LD HL,(DIRBUP) ; ADR. BUFFERU ADRESARE DO [HL]
2052 FA90 57 LD D,A ; NULA DO [D]
2053 FA91 77 LB116: LD (HL),A ; NULOVANI BUFFERU ADRESARE
2054 FA92 23 INC HL
2055 FA93 14 INC D
2056 FA94 F2 FA91 JP P,LB116
2057 FA97 CD F5E1 CALL DMA120 ; NAST DMA NA ADRESU BUFFERU
2058 FA9A 2A FDEF LD HL,(SECTOR) ; # SECTORU DO [HLJ
2059 FA9D 0E 02 LD C,02H ; 02 DO [C] - IND. PRUCHODU
2060 FA9F 22 FDED LB117: LD (BLOCK),HL ; USCHOVA # SEKTORU
2061 FAA2 C5 PUSH BC ; USCHOVA [BC]
2062 FAA3 CD F3D2 CALL DSKCA1 ; VYPOCET A NASTAVENI # SECTORU
2063 ; A # STOPY
2064 FAA6 C1 POP BC ; OBNOVA [BC]
2065 FAA7 CD F3B9 CALL WRITE ; ZAPIS VYBRANEHO SECTORU NULAMI
2066 FAAA 2A FDED LD HL,(BLOCK) ; # SECTORU DO [HL]
2067 FAAD 0E 00 LD C,0 ; NULA DO [C]
2068 FAAF 3A FDCC LD A,(CUBLM) ; BLOCK MASK DO [A]
2069 FAB2 47 LD B,A ; BLOCK MASK DO [B]
2070 FAB3 A5 AND L ; .AND. [A] S # SECTORU
2071 FAB4 B8 CP B ; POROVNANI VYSLEDKU S BLOK-MASKOU
2072 FAB5 23 INC HL ; INICIALIZACE ADRESY
2073 FAB6 C2 FA9F JP NZ,LB117 ; ZAPIS DALSIHO SECTORU NULAMI
2074 FAB9 E1 POP HL ; OBNOVA [HL] - # SEKTORU
2075 FABA 22 FDED LD (BLOCK),HL ; ULOZENI # SEKTORU
2076 FABD CD F5DB CALL DMA110 ; PRIPRAVA DMA ADRESY
2077 ;
2078 ;
2079 ;
2080 FAC0 CD F3D2 LB118: CALL DSKCA1 ; VYPOCET A NASTAVENI # STOPY
2081 ; A # SEKTORU
2082 FAC3 C1 POP BC ; AKTUALIZACE [BC]
2083 FAC4 C5 PUSH BC
2084
2085
2086 FAC5 CD F3B9 CALL WRITE ; ZAPIS VYBRANEHO SEKTORU
2087 FAC8 C1 POP BC
2088 FAC9 3A FDEB LD A,(D9) ; "D9" DO [A]
2089 FACC 21 FDE9 LD HL,RC ; ADR. "RC" DO [HL]
2090 FACF BE CP (HL) ; POROVNANI "D9","RC"
2091 FAD0 DA FAD7 JP C,LB119 ; "RC" > "D9"
2092 FAD3 77 LD (HL),A ; SAVE "RC"
2093 FAD4 34 INC (HL) ; RC = RC + 1
2094 FAD5 0E 02 LD C,02H ; 2 DO [C]
2095 FAD7 0D LB119: DEC C ; TEST PROVADENE SLUZBY
2096 FAD8 0D DEC C
2097 FAD9 C2 FAE4 JP NZ,LB120 ; SKOK KDYZ CMD .NE. 40
2098 FADC F5 PUSH AF
2099 FADD CD F56A CALL LDS2 ; PRIPRAVA S2 Z FCB
2100 FAE0 E6 7F AND 7FH ; EXTRAKCE 7 BITU
2101 FAE2 77 LD (HL),A ; USCHOVA S2
2102 FAE3 F1 POP AF
2103 FAE4 FE 7F LB120: CP 7FH ; POROVNANI"RC"(D9)
2104 FAE6 C2 FB05 JP NZ,LB122 ; O.K.
2105 FAE9 3A FDDD LD A,(SECSE) ; TEST PROVADENE SLUZBY
2106 FAEC FE 01 CP 01
2107 FAEE C2 FB05 JP NZ,LB122 ; SKOK PRI NESEKVENCNIM ZAPISU
2108 FAF1 CD F4D3 CALL SVD9RC ; PRESUN "D9" A "RC"
MACRO-80 3.44 09-Dec-81 PAGE 1-34
2109 FAF4 CD F95F CALL FLHAN ; OBSLUHA ZAPISU SOUBORU
2110 FAF7 21 F350 LD HL,RETPRM
2111 FAFA 7E LD A,(HL) ; NAVR. PAR. DO [A]
2112 FAFB B7 OR A ; JEHO TEST NA NULU
2113 FAFC C2 FB03 JP NZ,LB121 ; SKOK KDYZ .NE. NULE
2114 FAFF 3D DEC A ; INICIALIZACE "D9"
2115 FB00 32 FDEB LD (D9),A ;
2116 FB03 36 00 LB121: LD (HL),0 ; NULOVANI NAVR. PARAMETRU
2117 FB05 C3 F4D3 LB122: JP SVD9RC ; PRESUN "D9 A" "RC" DO FCB + RET
2118 ;
2119 ;
2120 ; PROCEDURA PRIMEHO CTENI A ZAPISU DO SOUBORU
2121 ; ===========================================
2122 ;
2123 ;
2124 FB08 AF RAWR: XOR A ; NASTAVENI INDIKACE SLUZBY
2125 FB09 32 FDDD LD (SECSE),A ;
2126 ;
2127 ;
2128 ; PROCEDURA ZAPISU ALOK. BLOKU NULAMI A ZAPISU ZAZNAMU
2129 ;
2130 ;
2131 FB0C C5 RAWRZ: PUSH BC ; USCHOVA INDIKACE CTENI NEBO
2132 ; ZAPISU
2133 FB0D 2A F34E LD HL,(FCBSAV) ; ADR.FCB DO [HL]
2134 FB10 EB EX DE,HL ; DO [DE]
2135 FB11 21 0021 LD HL,0021H ; OFFSET NA NEJNIZSI BYTE # ZAZNAMU
2136 FB14 19 ADD HL,DE ; ADRESA NA FCB+33
2137 FB15 7E LD A,(HL) ; [FCB+33] DO [A]
2138 FB16 E6 7F AND 7FH ; VYPOCET POCTU ZAZNAMU V RAMCI
2139 FB18 F5 PUSH AF ; POSLEDNIHO EXTENTU + USCHOVA
2140 FB19 7E LD A,(HL) ; [FCB+33] DO [A]
2141 FB1A 17 RLA ; ROTACE DOLEVA
2142 FB1B 23 INC HL ; ADRESA FCB+34
2143 FB1C 7E LD A,(HL) ; [FCB+34] DO [A]
2144 FB1D 17 RLA ; VYPOCET [EX]
2145 FB1E E6 1F AND 1FH ; EXT.BITU 5,6,7
2146 FB20 4F LD C,A ; PRESUN [EX] TO [C]
2147 FB21 7E LD A,(HL) ; [FCB+34] DO [A]
2148 FB22 1F RRA ; [A] / 16
2149 FB23 1F RRA
2150 FB24 1F RRA
2151 FB25 1F RRA
2152 FB26 E6 0F AND 0FH ; EXT.BITU 4,5,6,7
2153 FB28 47 LD B,A ; PRESUN [S2] TO [B]
2154 FB29 F1 POP AF ; POCET ZAZNAMU V RAMCI POSLEDNIHO
2155 ; "EX" DO [A]
2156 FB2A 23 INC HL ; ADRESA FCB+35
2157 FB2B 6E LD L,(HL) ; [FCB+35] DO [L]
2158 FB2C 2C INC L ; TEST NA [FCB+35]
2159 FB2D 2D DEC L ; .EQ. 0
2160 FB2E 2E 06 LD L,06H ; PRIPRAVA # CHYBY
2161 FB30 C2 FB90 JP NZ,LB204 ; CHYBA KDYZ [FCB+35] .NE. NULA
2162 FB33 21 0020 LD HL,20H ; OFFSET NA "D9" DO [HL]
2163 FB36 19 ADD HL,DE ; ADRESA "D9"(AKT. CITAC ZAZNAMU)
2164 FB37 77 LD (HL),A ; [A] DO "D9"
2165 FB38 21 000C LD HL,000CH ; OFFSET NA "EX" DO [HL]
2166 FB3B 19 ADD HL,DE ; ADRESA "EX"
2167 FB3C 79 LD A,C ; VYPOCITANY "EX" DO [A]
2168 FB3D 96 SUB (HL) ; "EX"- "EX" Z FCB
2169 FB3E C2 FB4C JP NZ,LB205 ; SKOK KDYZ "EX" NOT.EQ."EX" Z FCB
2170 FB41 21 000E LD HL,0EH ; OFFSET NA S2 Z FCB
MACRO-80 3.44 09-Dec-81 PAGE 1-35
2171 FB44 19 ADD HL,DE ; ADRESA S2 V [HL]
2172 FB45 78 LD A,B ; VYPOCITANE S2 DO [A]
2173 FB46 96 SUB (HL) ; S2 - S2 Z FCB
2174 FB47 E6 7F AND 7FH ; EXT. BITU 7
2175 FB49 CA FB84 JP Z,LB206 ; SKOK KDYZ S2 .EQ. S2 Z FCB
2176 ;
2177 ;
2178 ;
2179 FB4C C5 LB205: PUSH BC
2180 FB4D D5 PUSH DE
2181 FB4E CD F8A7 CALL CLFP ; ZAPIS FCB DO ADRESARE(TEST NA R/O)
2182 FB51 D1 POP DE
2183 FB52 C1 POP BC
2184 FB53 2E 03 LD L,03H ; PRIPRAVA KODU CHYBY
2185 FB55 3A F350 LD A,(RETPRM) ; NAVR. PARAMETR DO [A]
2186 FB58 3C INC A ; TEST [RETPRM] .EQ. -1
2187 FB59 CA FB89 JP Z,LB207 ; SKOK KDYZ READ ONLY
2188 FB5C 21 000C LD HL,0CH ; OFFSET NA "EX" Z FCB
2189 FB5F 19 ADD HL,DE ; ADRESA "EX"
2190 FB60 71 LD (HL),C ; VYPOCITANY "EX" DO FCB
2191 FB61 21 000E LD HL,0EH ; OFFSET NA S2 Z FCB
2192 FB64 19 ADD HL,DE ; ADRESA S2 DO [HL]
2193 FB65 70 LD (HL),B ; VYPOCITANA S2 DO FCB
2194 FB66 CD F856 CALL OPFP ; VYHLEDANI ODPOVIDAJICIHO FCB
2195 FB69 3A F350 LD A,(RETPRM) ; NAVR. PARAMETR DO [A]
2196 FB6C 3C INC A ; TEST [RETPRM] .EQ. -1
2197 FB6D C2 FB84 JP NZ,LB206 ; SKOK KDYZ SE ODPOVIDAJICI FCB
2198 ; NENASLO
2199 FB70 C1 POP BC ; OBNOVA [C] (0 NEBO FFH)
2200 FB71 C5 PUSH BC
2201 FB72 2E 04 LD L,04H ; PRIPRAVA CHYBOVEHO RODU
2202 FB74 0C INC C ; TEST PROVADENE SLUZBY
2203 FB75 CA FB89 JP Z,LB207 ; SKOK KDYZ SLUZBA 33
2204 FB78 CD F929 CALL MKFLP ; VYTVORENI DALSIHO EXTENTU
2205 FB7B 2E 05 LD L,05H ; PRIPRAVA CHYBOVEHO KODU
2206 FB7D 3A F350 LD A,(RETPRM) ; NAVR. PARAMETR DO [A]
2207 FB80 3C INC A ; TEST [RETPRM] .EQ. -1
2208 FB81 CA FB89 JP Z,LB207 ; SKOK KDYZ JE PLNY ADRESAR
2209 ;
2210 ;
2211 ;
2212 FB84 C1 LB206: POP BC ; OBNOVA [C] (0 NEBO FFH)
2213 FB85 AF XOR A ; TEST
2214 FB86 C3 F2FA JP SVSING ; NULOVANI NAVR. PAR. + RET
2215 ;
2216 ;
2217 ;
2218 FB89 E5 LB207: PUSH HL ; USCHOVA # CHYBY
2219 FB8A CD F56A CALL LDS2 ; PRIPRAVA S2 Z FCB
2220 FB8D 36 C0 LD (HL),0C0H ; C0H DO CS23
2221 FB8F E1 POP HL ; OBNOVA # CHYBY
2222 FB90 C1 LB204: POP BC ; OBNOVA [C]
2223 FB91 7D LD A,L ; # CHYBY DO [A]
2224 FB92 32 F350 LD (RETPRM),A ; PRESUN # DO (RETPRM)
2225 FB95 C3 F579 JP ST7S2 ; NAST 7 BITU S2 + RET
2226 ;
2227 ;
2228 ; PROCEDURA PRIMEHO CTENI ZE SOUBORU
2229 ; ==================================
2230 ;
2231 FB98 0E FF RRP: LD C,0FFH ; INDIKACE PRIHEHO CTENI DO [C]
2232 FB9A CD FB08 CALL RAWR ; PRIPRAVA PRIHEHO CTENI
MACRO-80 3.44 09-Dec-81 PAGE 1-36
2233 FB9D CC F9C6 CALL Z,LB107 ; KDYZ O.K. => SEKV. CTENI
2234 FBA0 C9 RET ;
2235 ;
2236 ;
2237 ; PROCEDURA PRIMEHO ZAPISU
2238 ; ========================
2239 ;
2240 FBA1 0E 00 WRP: LD C,00H ; INDIKACE PRIMEHO ZAPISU DO [C]
2241 FBA3 CD FB08 CALL RAWR ; PRIPRAVA PRIMEHO ZAPISU
2242 FBA6 CC FA0A CALL Z,LB110 ; KDYZ O.K. SEKV. ZAPIS
2243 FBA9 C9 RET ;
2244 ;
2245 ;
2246 ; PROCEDURA NASTAVENI CISLA ZAZNAMU
2247 ; =================================
2248 ;
2249 ;
2250 FBAA EB OCFS: EX DE,HL ; OFFSET "D9" DO [HL]
2251 FBAB 19 ADD HL,DE ; ADR."D9" Z FCB
2252 FBAC 4E LD C,(HL) ; "D9" DO [C]
2253 FBAD 06 00 LD B,00H ; NULA DO [B]
2254 FBAF 21 000C LD HL,0CH ; OFFSET NA "EX" Z FCB
2255 FBB2 19 ADD HL,DE ; ADRESA "EX" Z FCB V [HL]
2256 FBB3 7E LD A,(HL) ; VYPOCET NEJNIZSIHO BYTE DELKY
2257 FBB4 0F RRCA ;
2258 FBB5 E6 80 AND 80H ;
2259 FBB7 81 ADD A,C ;
2260 FBB8 4F LD C,A ; PRESUN VYSLEDKU DO [C]
2261 FBB9 3E 00 LD A,0 ; NULA DO [A]
2262 FBBB 88 ADC A,B ; PRIPADNE PRETECENI DO [A]
2263 FBBC 47 LD B,A ; DO [B]
2264 FBBD 7E LD A,(HL) ; [EX] DO CFL]
2265 FBBE 0F RRCA ;
2266 FBBF E6 0F AND 0FH ; ZBYLY POCET EX V [A]
2267 FBC1 80 ADD A,B ; SOUCET S PRETEC.V PREDCH. OPERACI
2268 FBC2 47 LD B,A ; VYSLEDEK DO [B]
2269 FBC3 21 000E LD HL,000EH ; LOAD OFFSET FOR S2 IN FCB
2270 FBC6 19 ADD HL,DE ; ADRESA NA S2
2271 FBC7 7E LD A,(HL) ; [S2] TO [A]
2272 FBC8 87 ADD A,A ; [S2] * 16
2273 FBC9 87 ADD A,A
2274 FBCA 87 ADD A,A
2275 FBCB 87 ADD A,A
2276 FBCC F5 PUSH AF ; USCHOVA VYSLEDKU
2277 FBCD 80 ADD A,B ; DOPOCITANI DALSIHO BYTE VYSLEDKU
2278 FBCE 47 LD B,A ;
2279 FBCF F5 PUSH AF ; A NASTAVENI PRIPAD. PRETECENI
2280 FBD0 E1 POP HL ; DO [A]
2281 FBD1 7D LD A,L
2282 FBD2 E1 POP HL
2283 FBD3 B5 OR L ;
2284 FBD4 E6 01 AND 01 ;
2285 FBD6 C9 RET
2286 ;
2287 ;
2288 ; PROCEDURA VYPOCTU DELKY SOUBORU
2289 ; ===============================
2290 ;
2291 FBD7 0E 0C CFSP: LD C,0CH ; ROZSAH POROVNANI DO [C]
2292 FBD9 CD F71D CALL SFFP ; HLEDEJ PRVNI VYSKYT V ADRESARI
2293 FBDC 2A F34E LD HL,(FCBSAV) ; ADRESA FCB DO [HL]
2294 FBDF 11 0021 LD DE,21H ; OFFSET NA FCB+33
MACRO-80 3.44 09-Dec-81 PAGE 1-37
2295 FBE2 19 ADD HL,DE ; ADRESA FCB+33
2296 FBE3 E5 PUSH HL ; USCH. ADRESY FCB+33
2297 FBE4 72 LD (HL),D ; NULOVANI [FCB+33]
2298 FBE5 23 INC HL ;
2299 FBE6 72 LD (HL),D ; NULOVANI [FCB+34]
2300 FBE7 23 INC HL ;
2301 FBE8 72 LD (HL),D ; NULOVANI [FCB+35]
2302 ;
2303 ;
2304 ;
2305 FBE9 CD F5FD LB212: CALL TSTDIE ; TEST NALEZENI SOUBORU
2306 FBEC CA FC11 JP Z,LB209 ; NENALEZEN
2307 FBEF CD F55F CALL DIRADR ; GENEROVANI ADRESY ADRESARE
2308 FBF2 11 000F LD DE,0FH ; OFFSET NA "RC" DO [DE]
2309 FBF5 CD FBAA CALL OCFS ; VYPOCET DELKY SOUBORU
2310 ; DANEHO FCB
2311 FBF8 E1 POP HL ; ADRESA FCB+33 DO [HL]
2312 FBF9 E5 PUSH HL
2313 FBFA 5F LD E,A
2314 FBFB 79 LD A,C
2315 FBFC 96 SUB (HL) ; TEST CHYBY V NAVAZNOSTI BYTU
2316 ; TVORICICH VYPOCTENOU DELKU
2317 ; (NBTVD)
2318 FBFD 23 INC HL ; ADRESA FCB+34
2319 FBFE 78 LD A,B
2320 FBFF 9E SBC A,(HL) ; TEST NA NBTVD
2321 FC00 23 INC HL ; ADRESA FCB+35
2322 FC01 7B LD A,E
2323 FC02 9E SBC A,(HL) ; TEST NA NBTVD
2324 FC03 DA FC0B JP C,LB211 ; SKOK PRI CHYBE NBTVD
2325 FC06 73 LD (HL),E ; PRESUN [E] DO [FCB+3]
2326 FC07 2B DEC HL ; ADRESA FCB+34
2327 FC08 70 LD (HL),B ; PRESUN [B] DO [FCB+34]
2328 FC09 2B DEC HL ; ADRESA FCB+33
2329 FC0A 71 LD (HL),C ; PRESUN [C] DO [FCB+33]
2330 FC0B CD F732 LB211: CALL TL400 ; HLEDANI DALSIHO EXTENTU
2331 FC0E C3 FBE9 JP LB212 ; OPAKOVANI
2332 FC11 E1 LB209: POP HL ; ADRESA FCB+33 DO [HL]
2333 FC12 C9 RET ;
2334 ;
2335 ;
2336 ; PROCEDURA NASTAVENI CISLA ZAZNAMU
2337 ; =================================
2338 ;
2339 ;
2340 FC13 2A F34E SRRP: LD HL,(FCBSAV) ; ADRESA FCB DO [HL]
2341 FC16 11 0020 LD DE,20H ; OFFSET NA "D?" DO [DE]
2342 FC19 CD FBAA CALL OCFS ; VYPOCET DELKY SOUBORU
2343 FC1C 21 0021 LD HL,0021H ; ULOZENI VYSLEDKU NA ADRESACH:
2344 FC1F 19 ADD HL,DE ;
2345 FC20 71 LD (HL),C ; FCB + 33
2346 FC21 23 INC HL ;
2347 FC22 70 LD (HL),B ; FCB + 34
2348 FC23 23 INC HL ;
2349 FC24 77 LD (HL),A ; FCB + 35
2350 FC25 C9 RET ;
2351 ;
2352 ;
2353 ;
2354 ; OSETRENI VEKTORU AKTIVNICH DISKU
2355 ; ================================
2356 ;
MACRO-80 3.44 09-Dec-81 PAGE 1-38
2357 FC26 2A FDB7 LGV120: LD HL,(LOGVEC) ; VEKTOR AKT. DISKU DO [HL]
2358 FC29 3A F34D LD A,(DSKNO) ; CISLO DISKU DO [A]
2359 FC2C 4F LD C,A ; A DO [C]
2360 FC2D CD F4EB CALL RSHHL ; SHIFT VEKTORU V [HL] [C] KRAT
2361 FC30 E5 PUSH HL ; USCHOVA [HL]
2362 FC31 EB EX DE,HL
2363 FC32 CD F35A CALL SD110 ; VYBER DISKU
2364 FC35 E1 POP HL ; OBNOVA [HL]
2365 FC36 CC F352 CALL Z,VJUMP ; PRI CHYBE - SKOK
2366 FC39 7D LD A,L ; SHIFT. VEKTOR DO [A]-LOW BYTE
2367 FC3A 1F RRA ; JE JIZ DISK AKTIVNI ? - TEST
2368 FC3B D8 RET C ; ANO, RET
2369 FC3C 2A FDB7 LD HL,(LOGVEC) ; VEKTOR AKT. DISKU DO [HL]
2370 FC3F 4D LD C,L ; A DO [BC]
2371 FC40 44 LD B,H
2372 FC41 CD F50C CALL SETVEC ; NASTAV BIT DISKU VE VEKTORU
2373 FC44 22 FDB7 LD (LOGVEC),HL ; ULOZENI VEKTORU AKT.DISKU
2374 FC47 C3 F6A8 JP CLRALV ; NULOVANI ALOKACNIHO VEKTORU
2375 ;
2376 ;
2377 ; VYBER DISK CMD 14
2378 ; ============
2379 ;
2380 FC4A 3A FDDE SELDSK: LD A,(ESAV) ; CISLO DISKU DO [A]
2381 FC4D 21 F34D LD HL,DSKNO ; ADR. ULOZENI # DISKU DO [HL]
2382 FC50 BE CP (HL) ; POROVNANI CLSEL DISKU
2383 FC51 C8 RET Z ; RET KDYZ SE ROVNAJI
2384 FC52 77 LD (HL),A ; NAST. NOVEHO # DISKU
2385 FC53 C3 FC26 JP LGV120 ; UPRAVA VEKTORU AKT. DISKU
2386 ;
2387 ;
2388 ; OSETRENI # JEDNOTKY(DISKU) A # UZIVATELE
2389 ;
2390 FC56 3E FF UU110: LD A,0FFH ; 0FFH DO [A]
2391 FC58 32 FDE6 LD (DSKFLG),A ; NASTAVENI DISK FLASU
2392 FC5B 2A F34E LD HL,(FCBSAV) ; ADR. FCB DO [HL]
2393 FC5E 7E LD A,(HL) ; # JEDNOTKY DO [A]
2394 FC5F E6 1F AND 1FH ; EXT. BITU 5,6,7
2395 FC61 3D DEC A ; DEC # JEDNOTKY
2396 FC62 32 FDDE LD (ESAV),A ; ULOZENI # JEDNOTKY
2397 FC65 FE 1E CP 1EH ; BYLA JEDNOTKA VYBRANA?
2398 ; JE STANDARTNI?
2399 FC67 D2 FC7A JP NC,UU120 ; ANO
2400 FC6A 3A F34D LD A,(DSKNO) ; JINAK 1 DISKU DO
2401 FC6D 32 FDE7 LD (UNITSV),A ; # VYBRANEHO DISKU
2402 ;
2403 FC70 7E LD A,(HL) ; # JEDNOTKY DO [A]
2404 FC71 32 FDE8 LD (UNITNO),A ; JEJI ULOZENI
2405 FC74 E6 E0 AND 11100000B ; EXT. BITU 4-0
2406 FC76 77 LD (HL),A ; ZPETNE NASTAVENI
2407 FC77 CD FC4A CALL SELDSK ; VYBER DISKU(JEDNOTKY)
2408 FC7A 3A F34C UU120: LD A,(USRNO) ; # UZIVATELE DO [A]
2409 FC7D 2A F34E LD HL,(FCBSAV) ; ADR. FCB DO [HL]
2410 FC80 B6 OR (HL) ; .OR. # JEDN. A # UZIV.
2411 FC81 77 LD (HL),A ; ULOZENI VYSLEDKU DO FCB
2412 FC82 C9 RET
2413 ;
2414 ;
2415 ; ZJISTI CISLO VERZE CMD 12
2416 ; ==================
2417 ;
2418 FC83 3E 22 RETVER: LD A,22H ; NASTAV VERZI 2.2
MACRO-80 3.44 09-Dec-81 PAGE 1-39
2419 FC85 C3 F2FA JP SVSING ; NASTAVENI NAVR. PARAN.+ RET
2420 ;
2421 ;
2422 ; RESET DISKOVEHO SYSTEHU CMD 13
2423 ; =======================
2424 ;
2425 FC88 21 0000 RESDSY: LD HL,0 ; NULY DO [HL]
2426 FC8B 22 FDB5 LD (ROVEC),HL ; NULOVANI R/O VEKTORU
2427 FC8E 22 FDB7 LD (LOGVEC),HL ; NULOVANI VEKTORU AKT. DISKU
2428 FC91 AF XOR A ; NULA DO [A]
2429 FC92 32 F34D LD (DSKNO),A ; NASTAVENI CISLA DISKU NA NULU
2430 FC95 21 4280 LD HL,DMAAD ; DMA ADRESY NA 80H
2431 FC98 22 FDB9 LD (DMAADR),HL ;
2432 FC9B CD F5DB CALL DMA110 ; NASTAVENI DMA ADR
2433 FC9E C3 FC26 JP LGV120 ; OSETRENI VEKTORU AKT. DISKU
2434 ;
2435 ;
2436 ; OTEVRI SOUBOR CMD 15
2437 ; =============
2438 ;
2439 FCA1 CD F573 OPFIL: CALL CLRS2 ; NULOVANI S2 V FCB
2440 FCA4 CD FC56 CALL UU110 ; OSETRENI # DISKU A # UZIV.
2441 FCA7 C3 F856 JP OPFP ; PROCEDURA OTEVRENI SOUBORU
2442 ;
2443 ;
2444 ; UZAVRI SOUBOR CMD 16
2445 ; =============
2446 ;
2447 FCAA CD FC56 CLFIL: CALL UU110 ; OSETRENI # DISKU A # UZIV.
2448 FCAD C3 F8A7 JP CLFP ; PROCEDURA UZAVRENI SOUBORU
2449 ;
2450 ;
2451 ; HLEDEJ PRVNI ODPOVIDAJICI CMD 17
2452 ; POLOZKU V ADRESARI
2453 ; ==================
2454 ;
2455 FCB0 0E 00 SFFRST: LD C,0 ; NULA DO [C]
2456 FCB2 EB EX DE,HL ; ADR. FCB DO [HL]
2457 FCB3 7E LD A,(HL) ; # DISKU DO [A]
2458 FCB4 FE 3F CP '?' ; TEST NA '?'
2459 FCB6 CA FCC7 JP Z,SF120 ; SKOK KDYZ # DISKU = '?'
2460 FCB9 CD F4A7 CALL EXADD ; ADRESA "EX" DO [HL]
2461 FCBC 7E LD A,(HL) ; "EX" DO [A]
2462 FCBD FE 3F CP '?' ; TEST NA '?'
2463 FCBF C4 F573 CALL NZ,CLRS2 ; NULOVANI S2 KDYZ "EX" NOT '?'
2464 FCC2 CD FC56 CALL UU110 ; OSETRENI # DISKU A # UZIV.
2465 FCC5 0E 0F LD C,0FH ; ROZSAH SHODY PRI PROHLEDAVANI
2466 ; ADRESARE DO [C]
2467 FCC7 CD F71D SF120: CALL SFFP ; HLEDANI SHODY V POLOZKACH
2468 ; ADRESARE
2469 FCCA C3 F5EA JP MOVDIR ; PRESUN ADRESARE + RET
2470 ;
2471 ;
2472 ; HLEDEJ NASLEDUJICI ODPOVIDAJICI CMD 18
2473 ; ODPOVIDAJICI POLOZKU V ADRESARI
2474 ; ===============================
2475 ;
2476 ;
2477 FCCD 2A FDE1 SFNEXT: LD HL,(FCBP) ; ADR. FCB DO [HL]
2478 FCD0 22 F34E LD (FCBSAV),HL ; AKTUALIZACE ULOZENI ADR.FCB
2479 FCD3 CD FC56 CALL UU110 ; OSETRENI # DISKU A # UZIV.
2480 FCD6 CD F732 CALL TL400 ; HLEDEJ DALSI VYSKYT V ARESARI
MACRO-80 3.44 09-Dec-81 PAGE 1-40
2481 FCD9 C3 F5EA JP MOVDIR ; PRESUN ADRESARE + RET
2482 ;
2483 ;
2484 ; ZRUS SOUBOR CMD 19
2485 ; ===========
2486 ;
2487 FCDC CD FC56 DELFIL: CALL UU110 ; OSETRENI # DISKU A # UZIV.
2488 FCDF CD F7A1 CALL DELFP ; PROCEDURA ZRUSENI SOUBORU
2489 FCE2 C3 F706 JP TL300 ; PRIPRAVA NAVR. PAR.+ RET
2490 ;
2491 ;
2492 ; SEKVENCNI CTENI CMD 20
2493 ; ===============
2494 ;
2495 FCE5 CD FC56 RDSEQ: CALL UU110 ; OSETRENI # DISKU A # UZIV.
2496 FCE8 C3 F9C1 JP RPR ; PRIPRAVA CTENI A CTENI
2497 ; ; + RET
2498 ;
2499 ; SEKVENCNI ZAPIS CMD 21
2500 ; ===============
2501 ;
2502 FCEB CD FC56 WRTSEQ: CALL UU110 ; OSETRENU # DISKU A # UZIV.
2503 FCEE C3 FA03 JP WPR ; PRIPRAVA ZAPISU A ZAPIS
2504 ;
2505 ;
2506 ; ZALOZ SOUBOR CMD 22
2507 ; ============
2508 ;
2509 FCF1 CD F573 MAKFIL: CALL CLRS2 ; NULOVANI S2 V FCB
2510 FCF4 CD FC56 CALL UU110 ; OSETRENI # DISKU # UZIVATELE
2511 FCF7 C3 F929 JP MKFLP ; PROCEDURA VYTVORENI SOUBORU
2512 ;
2513 ;
2514 ; PREJMENUJ SOUBOR CMD 23
2515 ; ================
2516 ;
2517 FCFA CD FC56 RENFIL: CALL UU110 ; OSETRENI # DISKU A # UZIV.
2518 FCFD CD F81B CALL RENFP ; PROCED. PREJMENOVANI SOUBORU
2519 FD00 C3 F706 JP TL300 ; PRIPRAVA NAVRATOVEHO PARAMET.
2520 ; ; PROCEDURY + RET
2521 ;
2522 ; VRAT VEKTOR AKTIVNICH DISKU CMD 24
2523 ; ===========================
2524 ;
2525 FD03 2A FDB7 RETLOG: LD HL,(LOGVEC) ; SEKTOR AKT. DISKU DO [HL]
2526 FD06 C3 FD31 JP SVPAIR ; NAST. NAVR. PAR. + RET
2527 ;
2528 ;
2529 ; VRAT CISLO VYBRANEHO DISKU CMD 25
2530 ; ==========================
2531 ;
2532 FD09 3A F34D RETCDK: LD A,(DSKNO) ; CISLO DISKU DO [A]
2533 FD0C C3 F2FA JP SVSING ; NAST. NAVR. PARAM. + RET
2534 ;
2535 ;
2536 ; NASTAV DMA ADRESU CMD 26
2537 ; =================
2538 ;
2539 FD0F EB SETDMA: EX DE,HL ; DMA ADRESA DO [HL]
2540 FD10 22 FDB9 LD (DMAADR),HL ; ULOZENI DMA ADRESY
2541 FD13 C3 F5DB JP DMA110 ; NASTAVENI DMA ADRESY +RET
2542 ;
MACRO-80 3.44 09-Dec-81 PAGE 1-41
2543 ;
2544 ; NASTAV CISLO ZAZNAMU CMD 36
2545 ; PRO PRIMY ZAPIS
2546 ; ====================
2547 ;
2548 ;
2549 FD16 C3 FC13 SRNDRC: JP SRRP ; PROCEDURA NASTAVENI CISLA
2550 ; ; ZAZNAMU
2551 ;
2552 ; DEJ ADRESU ALOKACNIHO VEKTORU CMD 27
2553 ; =============================
2554 ;
2555 FD19 2A FDC7 GETALC: LD HL,(ALVP) ; ALOKACNY VEKTOR DO [HL]
2556 FD1C C3 FD31 JP SVPAIR ; NAST. NAVR. PARAM.+ RET
2557 ;
2558 ;
2559 ;
2560 ;
2561 ; DEJ ADRESU R/O VEKTORU CMD 28
2562 ; ======================
2563 ;
2564 FD1F 2A FDB5 GETROV: LD HL,(ROVEC) ; READ ONLY VEKTOR DO [HL]
2565 FD22 C3 FD31 JP SVPAIR ; NAST. NAVR. PARAM.+ RET
2566 ;
2567 ;
2568 ; NASTAV ATRIBUTY SOUBORU CMD 30
2569 ; =======================
2570 ;
2571 FD25 CD FC56 SETFAT: CALL UU110 ; OSETRENI # DISKU A # UZIV.
2572 FD28 CD F840 CALL SETFAP ; PROCEDURA NASTAVENI ATRIBUTU
2573 FD2B C3 F706 JP TL300 ; NAST. NAVR. PARAM. + RET
2574 ;
2575 ;
2576 ; DEJ ADRESU BLOKU DISKOVYCH CMD 31
2577 ; PARAMETRU
2578 ; ==========================
2579 ;
2580 FD2E 2A FDC3 GETDPA: LD HL,(DPBP) ; ADRESA BLOKU DO [HL]
2581 FD31 22 F350 SVPAIR: LD (RETPRM),HL ; JEJI PRESUN DO NAVR. PARAM.
2582 FD34 C9 RET
2583 ;
2584 ;
2585 ; POSKYTNI/ZMEN KOD UZIVATELE CMD 32
2586 ; ===========================
2587 ;
2588 FD35 3A FDDE SGUCD: LD A,(ESAV) ; # UZIVATELE DO [A]
2589 FD38 FE FF CP 0FFH ; TEST POZADAVKU
2590 FD3A C2 FD43 JP NZ,SGU120 ; SKOK NA NASTAVENI # UZIVATELE
2591 FD3D 3A F34C LD A,(USRNO) ; # UZIVATELE DO [A]
2592 FD40 C3 F2FA JP SVSING ; NAST. NAVR. PARAM. + RET
2593 FD43 E6 1F SGU120: AND 1FH ; EXT. BITU 5,6,7
2594 FD45 32 F34C LD (USRNO),A ; PRESUN # UZIVATELE
2595 FD48 C9 RET ;
2596 ;
2597 ;
2598 ; PRIME CTENI ZE SOUBORU CMD 33
2599 ; ======================
2600 ;
2601 FD49 CD FC56 RDRND: CALL UU110 ; OSETRENI # DISKU A # UZIV.
2602 FD4C C3 FB98 JP RRP ; PROCEDURA PRIMEHO CTENI
2603 ;
2604 ;
MACRO-80 3.44 09-Dec-81 PAGE 1-42
2605 ; PRIMY ZAPIS DO SOUBORU CMD 34
2606 ; ======================
2607 ;
2608 FD4F CD FC56 WRTRND: CALL UU110 ; OSETRENI # DISKU A # UZIV.
2609 FD52 C3 FBA1 JP WRP ; PROCEDURA PRIMEHO ZAPISU
2610 ;
2611 ;
2612 ; VYPOCITEJ DELKU SOUBORU CMD 35
2613 ; =======================
2614 ;
2615 FD55 CD FC56 CFSIZE: CALL UU110 ; OSETRENI # DISKU A # UZIV.
2616 FD58 C3 FBD7 JP CFSP ; PROCEDURA VYPOCTU DELKY
2617 ;
2618 ;
2619 ;
2620 ; RESET DISKOVE JEDNOTKY CMD 37
2621 ; ======================
2622 ;
2623 FD5B 2A F34E RESDSK: LD HL,(FCBSAV) ; VEKTOR DISK.JEDNOTEK
2624 ; (PARAMETR VOLANI) DO [HL]
2625 FD5E 7D LD A,L ;
2626 FD5F 2F CPL ; KOMPLEMENT LOW BYTU VEKTORU
2627 FD60 5F LD E,A ; A JEHO PRESUN DO [E]
2628 FD61 7C LD A,H ;
2629 FD62 2F CPL ; KOHPLEHENT HIGH BYTU VEKTORU
2630 FD63 2A FDB7 LD HL,(LOGVEC) ; INICIALIZACE VEKT.AKT. DISKU
2631 FD66 A4 AND H ; HIGH BYTU
2632 FD67 57 LD D,A ; KOMPLEMENT HIGH BYTU DO [D]
2633 FD68 7D LD A,L ; PRIPRAVA LOH BYTU VEK.AKT.DISKU
2634 FD69 A3 AND E ;
2635 FD6A 5F LD E,A ; PRESUN LOW BYTU DO [E]
2636 FD6B 2A FDB5 LD HL,(ROVEC) ; VEKTOR R/O DO [HL]
2637 FD6E EB EX DE,HL ; DO [DE]
2638 FD6F 22 FDB7 LD (LOGVEC),HL ; ULOZENI VEKTORU AKT. DISKU
2639 FD72 7D LD A,L ; INICIALIZACE VEKTORU R/O
2640 FD73 A3 AND E ;
2641 FD74 6F LD L,A ;
2642 FD75 7C LD A,H ;
2643 FD76 A2 AND D ;
2644 FD77 67 LD H,A ;
2645 FD78 22 FDB5 LD (ROVEC),HL ; ULOZENI R/O VEKTORU
2646 FD7B C9 RET ;
2647 ;
2648 ;
2649 ;
2650 ; NAVRAT Z BDOS
2651 ; =============
2652 ;
2653 ;
2654 FD7C 3A FDE6 RTBDOS: LD A,(DSKFLG) ; DISK-FLAG DO [A]
2655 FD7F B7 OR A ; JEHO TEST
2656 FD80 CA FD99 JP Z,RSTSP ; SKOK PRI NEDISKOVE SLUZBE
2657 FD83 2A F34E LD HL,(FCBSAV) ; ADRESA FCB DO [HL]
2658 FD86 36 00 LD (HL),0 ; NULOVANI # JEDNOTKY V FCB
2659 FD88 3A FDE8 LD A,(UNITNO) ; # JEDNOTKY DO [A]
2660 FD8B B7 OR A ; JEJI TEST NA NULU
2661 FD8C CA FD99 JP Z,RSTSP ; BEZNY DISK
2662 FD8F 77 LD (HL),A ; NASTAVENI # JEDNOTKY V FCB
2663 FD90 3A FDE7 LD A,(UNITSV) ; # JEDNOTKY DO [A]
2664 FD93 32 FDDE LD (ESAV),A ; USCHOVA # VYBRANEHO DISKU
2665 FD96 CD FC4A CALL SELDSK ; VYBER DISKU
2666 ;
MACRO-80 3.44 09-Dec-81 PAGE 1-43
2667 FD99 2A F34A RSTSP: LD HL,(SPSAV) ; ADRESA UZIV.ZASOBNIKU DO [HL]
2668 FD9C F9 LD SP,HL ; A JEHO INICIALIZACE
2669 FD9D 2A F350 LD HL,(RETPRM) ; NAVRATOVY PARAMETR DO [HL]
2670 FDA0 7D LD A,L ; DO [A]
2671 FDA1 44 LD B,H ; DO [B]
2672 FDA2 C9 RET ; RET DO MISTA VOLANI BDOS
2673 ;
2674 ;
2675 ; POPIS ALOKACNI BLOK NULAMI CMD 40
2676 ; A POTOM DO NEJ VLOZ ZAZNAM
2677 ; ==========================
2678 ;
2679 FDA3 CD FC56 WRRDZF: CALL UU110 ; OSETRENI # DISKU A # UZIV.
2680 FDA6 3E 02 LD A,02
2681 FDA8 32 FDDD LD (SECSE),A ; NASTAVENI INDIKACE PROV.SLUZBY
2682 FDAB 0E 00 LD C,0 ; INDIKACE PRUCHODU
2683 FDAD CD FB0C CALL RAWRZ ; PRIPRAVA ZAPISU
2684 FDB0 CC FA08 CALL Z,WPR1 ; KDYZ O.K. ZAPIS
2685 FDB3 C9 RET ;
2686 ;
2687 ;
2688 ;
2689 ; POLE PRACOVNICH PROMENNYCH
2690 ; ==========================
2691 ;
2692 FDB4 E5 FFAT: DEFB 0E5H ; ATRIBUT VOLNEHO FCB
2693 FDB5 0000 ROVEC: DEFW 0 ; READ ONLY VEKTOR
2694 FDB7 0000 LOGVEC: DEFW 0 ; VEKTOR AKTIVNICH DISKU
2695 FDB9 0000 DMAADR: DEFW 0 ; DMA ADRESA
2696 FDBB MAXDIE: ; MAX # VSTUPU ADRESARE
2697 FDBB 0000 DPSC1: DEFW 0 ; ADRESA PRAC.POLE 1 V DPBASE
2698 ; DPBASE=>BAZE ULOZENI PAR.DISKU
2699 FDBD TRACK: ; # STOPY
2700 FDBD 0000 DPSC2: DEFW 0 ; ADRESA PRAC.POLE 2 V DPBASE
2701 FDBF MAXSOT: ; MAX POCET SEKTORU NA STOPE
2702 FDBF 0000 DPSC3: DEFW 0 ; ADRESA PRAC.POLE 3 V DPBASE
2703 FDC1 0000 DIRBUP: DEFW 0 ; ADRESA BUFFERU ADRESARE
2704 FDC3 0000 DPBP: DEFW 0 ; ADRESA BLOKU DISK. PARAMETRU
2705 FDC5 0000 CSVP: DEFW 0 ; ADRESA PRAC.POLE POUZITEHO
2706 ; PRI ZMENE DISKU
2707 FDC7 0000 ALVP: DEFW 0 ; ADRESA ULOZENI ALOKACNI MAPY
2708 ; DISKU
2709 ;
2710 FDC9 CUDPB: ; BLOK PARAMETRU VYBRANEHO DISKU
2711 FDC9 0000 CUSPT: DEFW 0 ; POCET SEKTORU NA STOPE
2712 FDCB 00 CUBSH: DEFB 0 ; BLOCK SHIFT FAKTOR
2713 FDCC 00 CUBLM: DEFB 0 ; BLOCK MASKA(DELKA BLOKU)
2714 FDCD 00 CUEXM: DEFB 0 ; MASKA ROZSIRENI BLOKU
2715 FDCE 0000 CUDSM: DEFW 0 ; VELIKOST DISKU-1(# BLOKU)
2716 FDD0 0000 CUDRM: DEFW 0 ; MAX. VELIKOST ADRESARE
2717 FDD2 0000 CUAL: DEFW 0 ; # BLOKU PRIRAZENE ADRESARI
2718 FDD4 0000 CUCKS: DEFW 0 ; POCET SEKTORU ZNICHZ SE PO-
2719 ; CITA KONTROLNI SOUCET
2720 FDD6 0000 CUOFF: DEFW 0 ; POCET STOP OBSAZENYCH OS
2721 ;
2722 FDD8 0000 STRNP: DEFW 0 ; ADRESA PREKLADOVE TABULKY
2723 FDDA 00 THSE: DEFB 0 ; S2(FCB) RIDICI BYTE
2724 FDDB 00 FRSE: DEFB 0 ; INDIKACE SLUZBY:
2725 ; READ SEQ. => FFH
2726 ; WRITE SEQ. => 0
2727 FDDC 00 RPSAV: DEFB 0 ; NAVRATOVY PARAM. PROCEDURY
2728 FDDD 00 SECSE: DEFB 0 ; INDIKACE SLUZBY:
MACRO-80 3.44 09-Dec-81 PAGE 1-44
2729 ; WRITE RENDOM ZERO FILE = 2
2730 ; READ SEQUENTAL = 1
2731 ; WRITE SEQUENTAL = 1
2732 ; READ RANDOM = 0
2733 ; WRITE RANDOM = 0
2734 FDDE 00 ESAV: DEFB 0 ; ULOZENI E-REG
2735 FDDF 00 DEFB 0 ; ULOZENI # BLOKU
2736 FDE0 00 SRGSAV: DEFB 0 ; ULOZENI ROZSAHU POROVNAVANI
2737 FDE1 0000 FCBP: DEFW 0 ; ADRESA FCB
2738 FDE3 0000 DEFW 0
2739 FDE5 01 DSKSFL: DEFB 1 ; DISKSIZE FLAG<0 KDYZ M > 256)
2740 ; 0 KDYZ VELIKOST DISKU > 256
2741 ; 1 KDYZ VELIKOST DISKU <= 256
2742 FDE6 00 DSKFLG: DEFB 0 ; DISK FLAG
2743 FDE7 00 UNITSV: DEFB 0 ; ULOZENI # JEDNOTKY
2744 FDE8 00 UNITNO: DEFB 0 ; # JEDNOTKY
2745 FDE9 00 RC: DEFB 0 ; CITAC ZAZNAMU
2746 FDEA 00 MEX: DEFB 0 ; ULOZENI MASKOVANEHO CISLA EX
2747 FDEB 00 D9: DEFB 0 ; AKTUALNI CITAC ZAZNAMU
2748 FDEC 00 SAV: DEFB 0 ; PRACOVNI BYTE
2749 FDED 0000 BLOCK: DEFW 0 ; CISLO BLOKU
2750 FDEF 0000 SECTOR: DEFW 0 ; CISLO SEKTORU
2751 FDF1 00 DIROFF: DEFB 0 ; OFFSET VSTUPU ADRESARE
2752 ; ( 0,32,64,96 )
2753 FDF2 0000 DETYNO: DEFW 0 ; AKT. CISLO VSTUPU ADRESARE
2754 FDF4 0000 DETYSC: DEFW 0 ; AKT. CISLO SEKTORU ADRESARE
2755 FDF6 0000 DEFW 0
2756 FDF8 00 DEFB 0
2757 ;
2758 FDF9 $next: ;prvni volny byte
2759 0DF9 X EQU ($NEXT - BDOSB)
2760 IF X GT 0E00H
2761 .PRINTX 'BD0S JE DELSI NEZ 0E00H !'
2762 ENDIF
2763 IF1
2764 .PRINTX 'konec prvniho pruchodu'
2765 ENDIF
2766 .DEPHASE
2767 ;
2768 END
MACRO-80 3.44 09-Dec-81 PAGE S
Macros:
Symbols:
FDF9 $NEXT FDC7 ALVP F1A4 BACKSP
F099 BADSEC F1AC BCKSP F011 BD100
F0BA BDEMSG F0C6 BDEUNI F006 BDOS
F000 BDOSB F0E5 BDOSER 0E00 BDOSL
F009 BDSJPA F0CA BDSMSG F34A BDSP
FE00 BIOS FE00 BIOSB FDED BLOCK
F303 BSFLAG F446 BSH120 F454 BSH140
F45D BSH160 F43F BSHIFT FD55 CFSIZE
FBD7 CFSP F047 CHDJPT F305 CHRPOS
F59D CKDS00 F5C5 CKDS10 F59F CKDSKC
F6B6 CLALV1 FCAA CLFIL F8A7 CLFP
F6A8 CLRALV F617 CLRDIR F573 CLRS2
F196 CO10 F7C3 COBLLO F0B4 COHEER
F0FB COIN F2C8 CONINP F190 CONOUT
F173 COO110 F18A COO120 F159 COOUT
F106 CORD F1C9 CRLF FDC5 CSVP
F148 CTLBYT F306 CTLPF F1B1 CTLU
F1B9 CTLU20 FDD2 CUAL FDCC CUBLM
FDCB CUBSH FDD4 CUCKS FDC9 CUDPB
FDD0 CUDRM FDCE CUDSM FDCD CUEXM
FDD6 CUOFF FDC9 CUSPT FDEB D9
F3E5 DC120 F3FB DC140 F410 DC160
F2D9 DCIO10 F2D4 DCONIO FCDC DELFIL
F7A1 DELFP FDF2 DETYNO FDF4 DETYSC
F606 DIR F61E DIR120 F625 DIR140
F565 DIRAD1 F55F DIRADR FDC1 DIRBUP
F4FE DIRCK1 F4F8 DIRCKS FDF1 DIROFF
F5DB DMA110 F5E1 DMA120 F5E4 DMA130
4280 DMAAD FDB9 DMAADR FDC3 DPBP
FDBB DPSC1 FDBD DPSC2 FDBF DPSC3
F3D2 DSKCA1 F3C4 DSKCAL FDE6 DSKFLG
F34D DSKNO FDE5 DSKSFL FDDE ESAV
F4A7 EXADD FDE1 FCBP F34E FCBSAV
FDB4 FFAT F0DC FILMSG F95F FLHAN
F0B1 FROERR F00F FROJPA FDDB FRSE
F2F7 GCOSTS F506 GEMSK1 F505 GENMSK
F491 GET10 FD19 GETALC F478 GETBLK
FD2E GETDPA F2E6 GETIOB FD1F GETROV
F48B GETSEC F3A2 HOMCLR F304 ICPOS
F307 INBYT 40E2 IOBYTE F82C LB003
F7A9 LB004 F890 LB005 F8ED LB006
F8E0 LB007 F8E6 LB008 F924 LB009
F902 LB010 F899 LB011 F8D2 LB012
F91C LB013 F815 LB014 F7D6 LB015
F7F1 LB016 F7F9 LB017 F7C5 LB018
F802 LB020 F94B LB100 F988 LB102
F993 LB103 F9B1 LB104 F9B4 LB105
F9BB LB106 F9C6 LB107 F9EB LB108
FA00 LB109 FA0A LB110 FA40 LB111
FA4D LB112 FA69 LB113 FA71 LB114
FA73 LB115 FA91 LB116 FA9F LB117
FAC0 LB118 FAD7 LB119 FAE4 LB120
FB03 LB121 FB05 LB122 FB90 LB204
FB4C LB205 FB84 LB206 FB89 LB207
FC11 LB209 FC0B LB211 FBE9 LB212
F845 LBA14 F4BC LDD9RC F56A LDS2
FC26 LGV120 FDB7 LOGVEC 0DF9 LONGBD
FCF1 MAKFIL FDBB MAXDIE FDBF MAXSOT
MACRO-80 3.44 09-Dec-81 PAGE S-1
FDEA MEX F929 MKFLP F5EA MOVDIR
F5F3 MOVE F5F4 MOVE10 F806 MOVFCB
FBAA OCFS FCA1 OPFIL F856 OPFP
F85F OPFP1 F2F1 PRTSTG 4300 RAMB
FB08 RAWR FB0C RAWRZ FDE9 RC
F4AF RCADD F1EF RCB110 F1F1 RCB120
F216 RCB130 F226 RCB150 F237 RCB170
F248 RCB190 F24E RCB200 F25F RCB210
F26B RCB230 F270 RCB240 F278 RCB250
F28A RCB270 F299 RCB290 F2A6 RCB310
F2A9 RCB320 F2BD RCB330 F2C1 RCB350
F1E1 RDCONB F2CE RDINP FD49 RDRND
FCE5 RDSEQ F3B3 READ FE03 REBOOT
FCFA RENFIL F81B RENFP FD5B RESDSK
FC88 RESDSY F45F RETBLK FD09 RETCDK
FD03 RETLOG F350 RETPRM F2FD RETRET
FC83 RETVER F00D ROEJPA F0AB ROERR
F0E1 ROMSG FDB5 ROVEC F9C1 RPR
FDDC RPSAV FB98 RRP F4EB RSHHL
F4EC RSHHL1 FD99 RSTSP FD7C RTBDOS
F472 RTBL10 FDEC SAV F35A SD110
F39E SD150 F596 SDEMHL FDDD SECSE
FDEF SECTOR FC4A SELDSK F0A5 SELERR
F0D5 SELMSG FD0F SETDMA F840 SETFAP
FD25 SETFAT F2EC SETIOB F50C SETVEC
FCC7 SF120 F71D SFFP FCB0 SFFRST
FCCD SFNEXT FD43 SGU120 FD35 SGUCD
F00B SLEJPA F34A SPSAV F2FE SREPRM
FDE0 SRGSAV FD16 SRNDRC FC13 SRRP
F000 SSEQ F579 ST7S2 FDD8 STRNP
F4D3 SVD9RC FD31 SVPAIR F4DF SVRD10
F2FA SVSING F142 TCP120 F145 TCP130
F580 TDIRET FDDA THSE F63A TL100
F65B TL120 F661 TL140 F669 TL160
F670 TL180 F67A TL190 F68D TL200
F693 TL220 F6A2 TL240 F6D7 TL260
F6FB TL280 F706 TL300 F70C TL320
F732 TL400 F74F TL420 F758 TL430
F778 TL440 F781 TL460 F788 TL480
F799 TL500 4400 TPA FDBD TRACK
F548 TST1 F485 TSTBLK F114 TSTCTL
F5FD TSTDIE F51F TSTDRO F123 TSTINP
F58D TSTMDI F555 TSTNRO F545 TSTRO
F1D3 TYPSTG FDE8 UNITNO FDE7 UNITSV
F34C USRNO FC56 UU110 FC7A UU120
F352 VJUMP F355 VJUMP1 F5C7 WDB
F5D5 WDB1 FA03 WPR FA08 WPR1
F3B9 WRITE F3BC WRITE1 FBA1 WRP
FDA3 WRRDZF F52D WRTPRT FD4F WRTRND
FCEB WRTSEQ 0DF9 X
No Fatal error(s)
$NEXT 16 2758# 2759
ALVP 1264 1338 1348 2555 2707#
BACKSP 321# 441 483
BADSEC 41 147#
BCKSP 321 324#
BD100 37 48#
BDEMSG 163# 184
BDEUNI 166# 183
BDOS 28#
BDOSB 16 25# 26 28 33 2759
BDOSER 148 160 179#
BDOSL 24# 26
BDSJPA 41# 694
BDSMSG 147 167#
BDSP 57 597#
BIOS 29# 30 97 101 102 199 234 237 240 275 280 323
325 526 536 538 541 621 671 687 690 763 783 786
1161
BIOSB 26# 29
BLOCK 704 706 841 847 856 867 2005 2060 2066 2075 2749#
BSFLAG 267 394 477 482 484 591#
BSH120 794# 797
BSH140 804# 808
BSH160 805 810#
BSHIFT 791# 837 1986
CFSIZE 135 2615#
CFSP 2291# 2616
CHDJPT 67 97#
CHRPOS 284 313 333 366 393 437 480 593#
CKDS00 1108# 1140
CKDS10 1125 1134#
CKDSKC 1110# 1233
CLALV1 1339# 1344
CLFIL 113 2447#
CLFP 1723# 1878 2181 2448
CLRALV 1332# 2374
CLRDIR 1212# 1359 1415 1482
CLRS2 1054# 2439 2463 2509
CO10 311# 315
COBLLO 1511# 1996
COHEER 154 157 160#
COIN 193# 204 378
CONINP 98 518#
CONOUT 99 209 256 308# 358
COO110 269 283#
COO120 296 299#
COOUT 259 267# 310 312 331 338 345 347 512
CORD 204# 518
CRLF 180 332 344# 414
CSVP 1118 2705#
CTLBYT 253# 471 496
CTLPF 278 424 594#
CTLU 330# 447 456
CTLU20 333# 339
CUAL 1346 2717#
CUBLM 861 2068 2713#
CUBSH 791 855 2712#
CUCKS 1112 2718#
CUDPB 651 2710#
CUDRM 1003 1200 2716#
CUDSM 655 1315 1332 1534 2715#
CUEXM 899 1394 1893 2714#
CUOFF 759 2720#
CUSPT 728 740 2711#
D9 793 863 894 913 1940 1951 1979 2088 2115 2747#
DC120 721# 737
DC140 725 739# 752
DC160 742 747 754#
DCIO10 538#
DCONIO 103 534#
DELFIL 118 2487#
DELFP 1490# 2488
DETYNO 701 1070 1189 1202 1204 1213 1216 1469 1727 1728 2753#
DETYSC 705 1110 1120 2754#
DIR 1200# 1362 1422
DIR120 1207 1216#
DIR140 1219# 1221
DIRAD1 1036# 2014
DIRADR 1015 1034# 1287 1366 1435 1499 1587 1655 1745 2307
DIRBUP 645 941 1034 1156 1166 2051 2703#
DIRCK1 943# 946
DIRCKS 940# 1116
DIROFF 1035 1222 2751#
DMA110 1146 1154# 2076 2432 2541
DMA120 1142 1148 1156# 2057
DMA130 1155 1158#
DMAAD 20# 2430
DMAADR 1154 1168 2431 2540 2695#
DPBP 649 2580 2704#
DPSC1 632 1006 2697#
DPSC2 635 2700#
DPSC3 638 2702#
DSKCA1 706# 1962 2062 2080
DSKCAL 701# 1229 1590
DSKFLG 60 2391 2654 2742#
DSKNO 181 600# 619 968 985 2358 2381 2400 2429 2532
DSKSFL 657 820 1296 1754 2010 2739#
ESAV 52 1987 2012 2380 2396 2588 2664 2734#
EXADD 873# 898 1649 2460
FCBP 1414 1425 2477 2737#
FCBSAV 49 75 369 601# 816 873 881 1045 1413 1584 1602 1657
1688 1750 1842 1845 1850 1884 1976 2007 2133 2293 2340 2392
2409 2478 2623 2657
FFAT 1844 2692#
FILMSG 159 172#
FLHAN 1876# 1949 2109
FROERR 44 159#
FROJPA 44# 1021
FRSE 1915 1938 1974 2724#
GCOSTS 108 574#
GEMSK1 956# 959
GENMSK 955# 971
GET10 857# 859
GETALC 127 2555#
GETBLK 837# 1958 1982
GETDPA 131 2580#
GETIOB 104 549#
GETROV 129 2564#
GETSEC 855# 1961 2036
HOMCLR 671# 1353 1416
ICPOS 334 367 416 436 592#
INBYT 193 230 246 595#
IOBYTE 19# 549 557
LB003 1609# 1619
LB004 1494# 1505
LB005 1680 1683 1688#
LB006 1756 1777#
LB007 1763 1766#
LB008 1768 1772#
LB009 1774 1787 1794 1831#
LB010 1775 1797#
LB011 1698# 1778 1780
LB012 1753# 1801
LB013 1813 1826#
LB014 1590# 1830
LB015 1518 1532#
LB016 1527 1550 1555#
LB017 1540 1564#
LB018 1514# 1554 1567
LB020 1575# 1868
LB100 1860# 1863
LB102 1891 1902#
LB103 1897 1911#
LB104 1898 1914 1925#
LB105 1921 1926#
LB106 1907 1917 1920 1929#
LB107 1937# 2233
LB108 1943 1958#
LB109 1945 1954 1960 1966#
LB110 1974# 2242
LB111 1990 1996#
LB112 1999 2005#
LB113 2013 2020#
LB114 2016 2027#
LB115 1985 2028#
LB116 2053# 2056
LB117 2060# 2073
LB118 2040 2046 2080#
LB119 2091 2095#
LB120 2097 2103#
LB121 2113 2116#
LB122 2104 2107 2117#
LB204 2161 2222#
LB205 2169 2179#
LB206 2175 2197 2212#
LB207 2187 2203 2208 2218#
LB209 2306 2332#
LB211 2324 2330#
LB212 2305# 2331
LBA14 1629# 1636
LDD9RC 892# 1926 1939 1978
LDS2 1045# 1054 1061 1734 2099 2219
LGV120 2357# 2385 2433
LOGVEC 2357 2369 2373 2427 2525 2630 2638 2694#
LONGBD 16#
MAKFIL 121 2509#
MAXDIE 1072 1355 2696#
MAXSOT 678 710 770 2701#
MEX 803 901 2746#
MKFLP 1841# 1918 2204 2511
MOVDIR 1166# 2469 2481
MOVE 647 653 1176# 1589 1660
MOVE10 1177# 1184
MOVFCB 1581# 1617 1634
OCFS 2250# 2309 2342
OPFIL 112 2439#
OPFP 1642# 2194 2441
OPFP1 1648# 1925
PRTSTG 106 565#
RAMB 21#
RAWR 2124# 2232 2241
RAWRZ 2131# 2683
RC 897 918 1941 2089 2745#
RCADD 881# 892 907
RCB110 375# 391 402 429 507
RCB120 378# 417 479 487
RCB130 387 398#
RCB150 399 409#
RCB170 411 420#
RCB190 422 432#
RCB200 436# 442
RCB210 434 445#
RCB230 446 452#
RCB240 395 455#
RCB250 462# 474
RCB270 464 476#
RCB290 483# 486
RCB310 454 490#
RCB320 406 493#
RCB330 503 506#
RCB350 383 385 509#
RDCONB 107 366# 439 449
RDINP 100 526#
RDRND 133 2601#
RDSEQ 119 2495#
READ 687# 1149 1964
REBOOT 30# 150 161 242 505
RENFIL 122 2517#
RENFP 1597# 2518
RESDSK 138 2623#
RESDSY 110 2425#
RETBLK 816# 840 1993
RETCDK 125 2532#
RETLOG 123 2525#
RETPRM 54 579 602# 1379 1471 1725 1832 1952 2028 2110 2185 2195
2206 2224 2581 2669
RETRET 139 140 580#
RETVER 109 2418#
ROEJPA 43# 1028
ROERR 43 156#
ROMSG 156 174#
ROVEC 984 996 1001 2426 2564 2636 2645 2693#
RPR 1935# 2496
RPSAV 1388 1410 1472 2727#
RRP 2231# 2602
RSHHL 703 925# 987 1334 2360
RSHHL1 926# 935
RSTSP 540 2656 2661 2667#
RTBDOS 61 2654#
RTBL10 822 827#
SAV 1829 2748#
SD110 619# 2363
SD150 660 662#
SDEMHL 1097# 1113 1205
SECSE 908 1936 1972 2037 2105 2125 2681 2728#
SECTOR 860 2058 2750#
SELDSK 111 2380# 2407 2665
SELERR 42 153#
SELMSG 153 170#
SETDMA 126 2539#
SETFAP 1626# 2572
SETFAT 130 2571#
SETIOB 105 557#
SETVEC 967# 1000 2372
SF120 2459 2467#
SFFP 1409# 1493 1600 1627 1644 1739 1847 1912 2292 2467
SFFRST 114 2455#
SFNEXT 116 2477#
SGU120 2590 2593#
SGUCD 132 2588#
SLEJPA 42# 608
SPSAV 56 598# 2667
SREPRM 583# 1929 1966 1981
SRGSAV 1411 1436 2736#
SRNDRC 136 2549#
SRRP 2340# 2549
SSEQ 35#
ST7S2 1061# 1661 1869 1930 2225
STRNP 644 781 2722#
SVD9RC 907# 1965 2108 2117
SVPAIR 2526 2556 2565 2581#
SVRD10 910 912#
SVSING 519 527 542 550 579# 584 1389 1484 1928 2001 2214 2419
2533 2592
TCP120 239 246#
TCP130 232 247#
TDIRET 1070# 1083 1129 1431
THSE 1877 1895 2723#
TL100 1237# 1275 1524 1548
TL120 1267# 1269
TL140 1274# 1320
TL160 1279# 1281 1559
TL180 1287# 1382 1502
TL190 1292# 1325
TL200 1298 1305#
TL220 1303 1312#
TL240 1314 1322#
TL260 1361# 1369 1384
TL280 1373 1377 1381#
TL300 1388# 2489 2519 2573
TL320 1392# 1459
TL400 1421# 1454 1461 1504 1618 1635 2330 2480
TL420 1429 1435#
TL430 1440# 1467
TL440 1451 1457#
TL460 1445 1448 1455 1463#
TL480 1442 1469#
TL500 1424 1433 1482#
TPA 22#
TRACK 673 715 765 2699#
TST1 1016# 1977
TSTBLK 847# 1959 1983
TSTCTL 205 216# 254
TSTDIE 1189# 1363 1423 1495 1609 1629 1645 1740 1848 1879 1913 1919
2305
TSTDRO 984# 1026 1730
TSTINP 230# 272 574
TSTMDI 1083# 1383 1867
TSTNRO 1026# 1490 1597 1841 1975
TSTRO 1015# 1498 1613
TYPSTG 185 187 352# 360 568
UNITNO 59 2404 2659 2744#
UNITSV 2401 2663 2743#
USRNO 599# 1371 2408 2591 2594
UU110 2390# 2440 2447 2464 2479 2487 2495 2502 2510 2517 2571 2601
2608 2615 2679
UU120 2399 2408#
VJUMP 608# 2365
VJUMP1 610# 695 1022 1029
WDB 1140# 1503 1591
WDB1 1148# 1231
WPR 1971# 2503
WPR1 1973# 2684
WRITE 690# 1145 2065 2086
WRITE1 688 691#
WRP 2240# 2609
WRRDZF 141 2679#
WRTPRT 128 996# 1131
WRTRND 134 2608#
WRTSEQ 120 2502#
X 2759# 2760
ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt
SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS | FK-1 | HVĚZDA | SP 830 | PCS 1-QR6000
ZPS | Technické prostředky | Programové vybavení | Dokumentace