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 .LIST
2 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3 TITLE MIKOS/D V5.0 23.3.88/P.P.
4 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5 ;
6 ; VOLBA SYSTEMU PODLE CPU-KARTY
7 FFFF TV64 EQU -1 ; 64/40 ZNAKU NA RADEK
8 0000 CPM EQU 00 ; CPM/ZPS-2
9 0000 TYPTER EQU 00 ; 14H..AMD16, ODH..SM7202
10 ;
11 ;=========================================
12 0000' ASEG
13 ;
14 ; *** DEFINOVANI PAMETOVEHO PROSTORU *
15 ;
16 1300 BIOS EQU 1300H ; ELSE BIOS
17 4280 BUFDX EQU 4280H ; BUFFER CPM
18 4200 BUFO EQU 4200H ; BUFFER OUTPUT
19 4000 @R@ EQU 4000H ; ZACATEK SYSTEMOVE RAM (1K)
20 00CF RSTN EQU 0CFH ; RST1 .. POUZIVA SYSTEM
21 1800 EP3 EQU 1800H ; USER EPROM SYSTEM
22 0100 MONIT EQU 100H ; SLUZBY
23 ;-----------------------------------------------
24 IF CPM
25 ERAM EQU 9FFFH ;TOP RAM
26 IF TV64
27 TVBEG EQU 0F800H ;AND1Z
28 ELSE
29 TVBEG EQU 0E800H ;TV-RAM
30 ENDIF
31 EPROM EQU 0C00H+100H ; O.S. EPROM
32 ELSE
33 0000 ERAM EQU 0000
34 3800 TVBEG EQU 3800H ;TV-RAM
35 0C00 EPROM EQU 0C00H
36 ENDIF
37 ;
38 ; * MONITOR ENTRY *
39 ;
40 0112 CSTS EQU MONIT + 12H
41 0103 CI EQU MONIT + 3
42 0106 RI EQU MONIT + 6
43 0109 CO EQU MONIT + 09H
44 010C PO EQU MONIT + 0CH
45 013F CINCR EQU MONIT + 3FH
46 011E IODEF EQU MONIT + 1EH
47 0127 EXPR EQU MONIT + 27H
48 0133 DBYT EQU MONIT + 33H
49 0130 DADR EQU MONIT + 30H
50 0124 CRLF EQU MONIT + 24H
51 0136 HILO EQU MONIT + 36H
52 0139 NEXT EQU MONIT + 39H
53 0142 TEXT EQU MONIT + 42H
54 0115 IOCHK EQU MONIT + 15H
55 013C SPACE EQU MONIT + 3CH
56 0118 IOSET EQU MONIT + 18H
57 012A ERROR EQU MONIT + 2AH
58 012D ASHEX EQU MONIT + 2DH
59 0148 HXASC EQU MONIT + 48H
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-1
60 0151 TXIMM EQU MONIT + 51H
61 0154 WND@ EQU MONIT + 54H
62 015A RNAM@ EQU MONIT + 5AH
63 015D INTER EQU MONIT + 5DH
64 017B SMTAB EQU MONIT + 7BH
65 ;
66 ;
67 00FF LENGHT EQU 255 ; BLOCK LENGHT
68 000B NAMLE EQU 11 ; NAME LENGHT
69 0040 COMLE EQU 64 ; COMENT LENGHT
70 3814 TVR EQU TVBEG+20 ; CTENI
71 3824 TVW EQU TVBEG+36 ; ZAPIS
72 ;-------------------------------------------
73 000D CR EQU 0DH ; KONSTANTY
74 000A LF EQU 0AH
75 007F DEL EQU 7FH ; DELETE
76 0003 ETX EQU 03H
77 0009 HT EQU 9 ; TAB
78 0010 PREAM EQU 10H ; PREAMBLE/POSTAMBLE
79 001A SUBS EQU 1AH ; END FLAG
80 ;
81 ; SER. I/O
82 0013 URES EQU 13H
83 0012 UDATA EQU 12H
84 0011 USTAT EQU 11H
85 0010 UMODE EQU 10H
86
87 ; BLOK LABELS
88 0001 SOH EQU 01H ; "START OF HEADER"
89 0004 EOT EQU 04H ; "END OF TEXT"
90 003A CAN EQU ':' ; JMENO PASKY
91 ; 'A' ; DATOVY (ASCII) BLOK
92 ; 'B' ; BINARNI BLOK
93 ;
94 ;******************************************
95 0000 ASEG
96 ORG EPROM ;START
97 ;******************************************
98 ;
99 ;====================================
100 ; T A B U L K A S L U Z E B K O S
101 ;====================================
102 ;
103
104 0C00 C3 0CB5 JMP MICOS ;BRANCH TABLE
105 0C03 C3 0C24 JMP INITS ;INIT SYSTEM
106 0C06 C3 0D3B JMP FIND ;1
107 0C09 C3 0DC6 JMP OPEN ;2
108 0C0C C3 0E3D JMP CLOSE ;3
109 0C0F C3 0D78 JMP LOAD ;4
110 0C12 C3 0E09 JMP SAVE ;5
111 0C15 C3 10B7 JMP BINAR ;6
112 0C18 C3 0FC5 ZAC: JMP GET@2 ;7
113 0C1B C3 0D72 JMP REWIND ;8
114 0C1E C3 104F JMP PUT@2 ;9
115 0C21 C3 104F JMP PUT@2 ;10
116 ;
117 0024 MAXSL EQU $-EPROM
118 ;
119 ;====================================
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-2
120 ; INICIALIZACE SYSTEMU KOS
121 ;====================================
122 ;
123 0C24 INITS:
124 0C24 21 3800 LXI H,TVBEG ; TEST NA TERMINAL
125 0C27 3E 41 MVI A,'A' ; ZAPIS
126 0C29 77 MOV M,A
127 0C2A BE CMP M
128 0C2B CA 0C4D JZ INIT1 ; JE AND
129 0C2E 3E 09 MVI A,9 ; PREPNI
130 0C30 D3 10 OUT UMODE
131 0C32 D3 13 OUT URES
132 0C34 00 NOP
133 0C35 3E 00 MVI A,TYPTER
134 0C37 D3 11 OUT USTAT
135 0C39 21 017B LXI H,SMTAB
136 0C3C 11 40C4 LXI D,CI@0 ; INSTALUJ OVLADANI
137 0C3F 06 09 MVI B,9
138 0C41 CD 11D6 CALL MOVE
139 0C44 DB 12 IN UDATA
140 0C46 CD 0151 CALL TXIMM
141 0C49 1D 1F DB 1DH,1FH
142 0C4B 20 A0 DC ' '
143 0C4D CD 0151 INIT1: CALL TXIMM ;OHLASENI
144 0C50 4D 49 4B 4F DB 'MIKOS/D V5.0 '
145 0C54 53 2F 44 20
146 0C58 20 56 35 2E
147 0C5C 30 20 20 20
148 0C60 28 43 29 20 DC '(C) TESLA DIZ 1988 '
149 0C64 54 45 53 4C
150 0C68 41 20 44 49
151 0C6C 5A 20 31 39
152 0C70 38 38 A0
153 0C73 21 0CA4 LXI H,KOS@@
154 0C76 22 40D1 SHLD KOS@+1
155 0C79 21 012A LXI H,ERROR
156 0C7C 22 40DA SHLD CCPM+1
157 0C7F 21 0000 LXI H,0
158 0C82 32 40E4 STA @IF1 ; FIND FLAG
159 0C85 32 40E6 STA @OF1
160 0C88 21 0C18 LXI H,ZAC ; VYPLN IODEF
161 0C8B 11 40AC LXI D,R1LOC
162 0C8E 06 0C MVI B,12
163 0C90 CD 11D6 CALL MOVE
164 ;
165 ; INICIALIZACE A INSTALACE
166 ;
167 0C93 3E 09 MVI A,09H ; R=,P=1
168 0C95 32 40E2 STA IOBYT
169 0C98 3A 1800 LDA EP3 ; USER SYSTEM ?
170 0C9B FE C3 CPI 0C3H
171 0C9D CC 1803 CZ EP3 + 3 ; START
172 IF NOT CPM
173 0CA0 CD 1300 CALL BIOS ; START CPM
174 ELSE
175 MVI C,0DH ;CLEAR
176 CALL 5
177 ENDIF
178 0CA3 C9 DUMMY: RET
179 ;
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-3
180 ;====================================
181 ; VYHODNOCENI SLUZBY MONITORU
182 ;====================================
183 ;
184 0CA4 0C KOS@@: INR C
185 0CA5 11 0C00 LXI D,EPROM
186 0CA8 06 24 MVI B,MAXSL
187 0CAA EB SLUZBA: XCHG ; JMENO
188 0CAB 79 MOV A,C
189 0CAC 81 ADD C
190 0CAD 81 ADD C ; *3
191 0CAE B8 CMP B
192 0CAF D0 RNC ; VETSI
193 0CB0 06 00 MVI B,0
194 0CB2 4F MOV C,A ; OFFSET
195 0CB3 09 DAD B ; VYPOCTI ADR
196 0CB4 E9 PCHL
197 ;
198 ;====================================
199 ; VYHODNOCENI POVELU OSLUHY
200 ;====================================
201 ;
202 0CB5 MICOS:
203 0CB5 CD 1041 CALL SETDMI ;DMA
204 0CB8 AF XRA A
205 0CB9 32 4101 STA EXTEXT ; 0..NENI
206 0CBC CD 0151 CALL TXIMM
207 0CBF 4F 53 2F 44 DB 'OS/D MENU:'
208 0CC3 09 09 4D 45
209 0CC7 4E 55 3A
210 0CCA 0D 0A DB 0DH,0AH
211 0CCC 44 49 52 20 DB 'DIR IDIR ERA TYPE LOAD SAVE'
212 0CD0 49 44 49 52
213 0CD4 20 45 52 41
214 0CD8 20 54 59 50
215 0CDC 45 20 4C 4F
216 0CE0 41 44 20 53
217 0CE4 41 56 45
218 0CE7 0D 0A DB 0DH,0AH
219 0CE9 52 45 4E 41 DC 'RENAME FIND OPEN CLOSE _'
220 0CED 4D 45 20 46
221 0CF1 49 4E 44 20
222 0CF5 4F 50 45 4E
223 0CF9 20 43 4C 4F
224 0CFD 53 45 20 DF
225 0D01 CD 112E CALL ECHO
226 0D04 F5 PUSH PSW
227 0D05 CD 0124 CALL CRLF
228 0D08 F1 POP PSW
229 0D09 FE 4F CPI 'O'
230 0D0B CA 0DC6 JZ OPEN ; OPEN OUTPUT
231 0D0E FE 43 CPI 'C' ; CLOSE UOTPUT
232 0D10 CA 0E3D JZ CLOSE
233 0D13 FE 53 CPI 'S'
234 0D15 CA 0E09 JZ SAVE
235 0D18 FE 4C CPI 'L' ; LOAD
236 0D1A CA 0D78 JZ LOAD
237 0D1D FE 44 CPI 'D'
238 0D1F CA 0EA6 JZ DIRD
239 0D22 FE 49 CPI 'I'
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-4
240 0D24 CA 0E98 JZ INITD
241 0D27 FE 54 CPI 'T'
242 0D29 CA 0E82 JZ TYPE
243 0D2C FE 52 CPI 'R'
244 0D2E CA 0F54 JZ RENAME
245 0D31 FE 45 CPI 'E'
246 0D33 CA 0F97 JZ ERA
247 0D36 FE 46 CPI 'F' ; FIND
248 0D38 C2 012A JNZ ERROR
249 ;
250 ;************************************
251 ; REALIZACE POVELU KOS-1
252 ;************************************
253 ;
254 ;====================================
255 ; FIND: OTEVRI SOUBOR PRO CTENI
256 ;====================================
257 ;
258 0D3B CD 1109 FIND: CALL IORI
259 0D3E CD 10F8 CALL NRI
260 0D41 F8 RM ;SYSTEM RI
261 0D42 0E 01 MVI C,1
262 0D44 C2 40D9 JNZ CCPM ; USER 2
263 ;
264 ; FIND v ram
265 ;
266 0D47 CD 1163 FIND2: CALL RNAME
267 0D4A CA 0EB8 JZ DIR
268 0D4D E5 PUSH H
269 0D4E D5 PUSH D
270 0D4F C5 PUSH B
271 0D50 CD 116A CALL CRFCB
272 0D53 11 4146 REWI: LXI D,FCB
273 0D56 0E 0F MVI C,0FH
274 0D58 CD 0005 CALL 5
275 0D5B CD 1091 CALL ERCPM
276 0D5E 11 4146 LXI D,FCB
277 0D61 0E 23 MVI C,23H
278 0D63 CD 0005 CALL 5 ; DELKA
279 0D66 3E 80 MVI A,80H
280 0D68 32 4144 STA IDX
281 0D6B 32 40E4 STA @IF1
282 0D6E C1 POP B
283 0D6F D1 POP D
284 0D70 E1 POP H
285 0D71 C9 RET
286 ;
287 ; REVIND INPUT FILE
288 ;
289 0D72 E5 REWIND: PUSH H
290 0D73 D5 PUSH D
291 0D74 C5 PUSH B
292 0D75 C3 0D53 JMP REWI ; NOVE CTENI
293 ;
294 ;====================================
295 ; LOAD BINARNI SOUBOR
296 ;====================================
297 ;
298 0D78 CD 0D3B LOAD: CALL FIND ; OTEVRI SOUBOR
299 0D7B CD 114D LO1: CALL RICH
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-5
300 0D7E B7 ORA A ; BLANK?
301 0D7F CA 0D7B JZ LO1
302 0D82 D6 3C SUI '<'
303 0D84 C2 1141 JNZ ERSTP ;#NOT BINARY FORMAT
304 0D87 47 MOV B,A ;SUM
305 0D88 CD 1144 CALL RADR@
306 0D8B 22 40FE SHLD EADR ;LAST
307 0D8E EB XCHG
308 0D8F CD 1144 CALL RADR@ ;LAST
309 0D92 22 40FC SHLD SADR ; START ADR
310 0D95 CD 114D CALL RICH
311 0D98 FE 3E CPI '>'
312 0D9A C2 1141 JNZ ERSTP ;#NOT BINARY
313 0D9D CD 113B CALL CHECK
314 0DA0 06 00 MVI B,0 ;CLEAR
315 0DA2 CD 114D LO2: CALL RICH
316 0DA5 77 MOV M,A
317 0DA6 CD 0136 CALL HILO
318 0DA9 D2 0DA2 JNC LO2
319 0DAC CD 113B CALL CHECK
320 0DAF 32 4100 STA SUM
321 ; UZAVRI VSTUPNI SOUBOR
322 0DB2 CD 0124 CLSTP: CALL CRLF
323 0DB5 CD 10F8 CALL NRI
324 0DB8 F8 RM
325 0DB9 C2 0DC1 JNZ CLST2
326 0DBC AF DIRSTP: XRA A
327 0DBD 32 40E4 STA @IF1 ;CLOSE
328 0DC0 C9 RET
329 0DC1 AF CLST2: XRA A
330 0DC2 32 40E5 STA @IF2
331 0DC5 C9 RET
332 ;
333 ;====================================
334 ; OPEN: OTEVRI NOVY SOUBOR PRO ZAPIS
335 ;====================================
336 ;
337 0DC6 CD 10FE OPEN: CALL IOPO ; NASTAV IOBYT
338 0DC9 CD 10EC CALL NPO
339 0DCC F8 RM ; PO=SYSTEM..
340 0DCD 0E 02 MVI C,2
341 0DCF C2 40D9 JNZ CCPM ; USER=2
342 ;
343 ; OPEN RAM DISK
344 ;
345 0DD2 CD 1163 OPEN2: CALL RNAME
346 0DD5 CA 0EB8 JZ DIR
347 0DD8 E5 PUSH H
348 0DD9 D5 PUSH D
349 0DDA C5 PUSH B
350 0DDB 21 416B LXI H,FCBB
351 0DDE CD 116D CALL CRFCBB
352 0DE1 CD 11DF CALL HVEZDA ; *.*
353 0DE4 CA 012A JZ ERROR ; CHYBA
354 0DE7 11 416B LXI D,FCBB
355 0DEA 0E 13 MVI C,13H ; ZRUS FILE
356 0DEC CD 0005 CALL 5
357 0DEF 0E 16 MVI C,16H
358 0DF1 11 416B LXI D,FCBB
359 0DF4 CD 0005 CALL 5
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-6
360 0DF7 CD 1091 CALL ERCPM
361 0DFA AF XRA A
362 0DFB 32 4145 STA ODX
363 0DFE 3C INR A
364 0DFF 32 40E6 STA @OF1
365 0E02 CD 10B3 CALL SETTYP ; BINAR
366 0E05 C1 POP B
367 0E06 D1 POP D
368 0E07 E1 POP H
369 0E08 C9 RET
370 ;
371 ;====================================
372 ; SAVE ULOZ BINARNI SOUBOR
373 ;====================================
374 ;
375 0E09 CD 0DC6 SAVE: CALL OPEN
376 0E0C CD 10B7 CALL BINAR
377 0E0F 0E 02 MVI C,2
378 0E11 CD 0127 CALL EXPR ;FORM TO
379 0E14 0E 3C MVI C,'<' ;START BYTE
380 0E16 CD 115D CALL POCH
381 0E19 06 00 MVI B,0 ;ADR-SUM
382 0E1B E1 POP H ;START
383 0E1C D1 POP D ;LAST
384 0E1D CD 1158 CALL PADR@
385 0E20 EB XCHG
386 0E21 CD 1158 CALL PADR@
387 0E24 0E 3E MVI C,'>'
388 0E26 CD 115D CALL POCH
389 0E29 48 MOV C,B ;SUM OF ADR.
390 0E2A CD 115D CALL POCH
391 ;
392 0E2D 06 00 MVI B,0 ;DATA-SUM
393 0E2F 4E SAV1: MOV C,M
394 0E30 CD 115D CALL POCH
395 0E33 CD 0136 CALL HILO
396 0E36 D2 0E2F JNC SAV1
397 0E39 48 MOV C,B ;SUM
398 0E3A CD 115D CALL POCH
399 ;
400 ;====================================
401 ; SLOSE: UZAVRI VSTUPNI SOUBOR
402 ;====================================
403 ;
404 0E3D CD 10EC CLOSE: CALL NPO
405 0E40 F8 RM
406 0E41 0E 03 MVI C,3
407 0E43 C2 40D9 JNZ CCPM
408 0E46 3A 40E6 LDA @OF1 ;NO OPEN
409 0E49 B7 ORA A
410 0E4A CA 012A JZ ERROR
411 ;
412 ; UKONC SOUBOR
413 ;
414 0E4D E5 CLOSE2: PUSH H
415 0E4E D5 PUSH D
416 0E4F C5 PUSH B
417 0E50 0E 1A MVI C,1AH
418 0E52 CD 1067 CALL PUT@B
419 ;---
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-7
420 0E55 EB CLFIL: XCHG
421 0E56 21 427F LXI H,BUFO+7FH ;KONEC
422 0E59 7B CLF0: MOV A,E
423 0E5A BD CMP L
424 0E5B CA 0E64 JZ CLF1
425 0E5E 36 00 MVI M,0 ; CLEAR
426 0E60 2B DCX H
427 0E61 C3 0E59 JMP CLF0
428 0E64 CD 1080 CLF1: CALL ZAPISBL
429 0E67 11 416B LXI D,FCBB
430 0E6A 0E 10 MVI C,10H
431 0E6C CD 0005 CALL 5
432 0E6F CD 1091 CALL ERCPM
433 0E72 AF XRA A
434 0E73 32 40E6 STA @OF1
435 0E76 3A 40E3 LDA MODE ; ZRUS BINAR
436 0E79 E6 FD ANI NOT 2
437 0E7B 32 40E3 STA MODE
438 0E7E C1 POP B
439 0E7F D1 POP D
440 0E80 E1 POP H
441 0E81 C9 RET
442 ;
443 ;
444 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
445 ; REALIZACE POVELU PRO PRACI SE SOUBORY
446 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447 ; TYPE FILE
448 0E82 CD 0D3B TYPE: CALL FIND
449 0E85 CD 0106 TYP0: CALL RI
450 0E88 DA 0124 JC CRLF ; KONEC
451 0E8B 4F MOV C,A
452 0E8C CD 0109 CALL CO
453 0E8F CD 1124 CALL BREAK
454 0E92 C4 112E CNZ ECHO ; CEKEJ
455 0E95 C3 0E85 JMP TYP0
456 ;
457 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
458 ;
459 0E98 0E 0D INITD: MVI C,0DH
460 0E9A CD 0005 CALL 5
461 0E9D 21 4146 LXI H,FCB
462 0EA0 36 01 MVI M,1 ;DRIVE A
463 0EA2 23 INX H
464 0EA3 C3 0EB8 JMP DIR
465 ;
466 ; DIRECTORY:
467 ;
468 0EA6 21 0000 DIRD: LXI H,0
469 0EA9 CD 1163 CALL RNAME
470 0EAC CD 116A CALL CRFCB
471 0EAF 21 4147 LXI H,FCB+1 ;TEST CR
472 0EB2 7E MOV A,M
473 0EB3 FE 20 CPI ' '
474 0EB5 C2 0EC9 JNZ DIR22 ; JE JMENO
475 0EB8 E5 DIR: PUSH H
476 0EB9 CD 1041 CALL SETDMI ; DMA ADR
477 0EBC E1 POP H
478 0EBD 06 0B MVI B,11
479 0EBF 36 3F DIRD1: MVI M,'?'
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-8
480 0EC1 23 INX H
481 0EC2 05 DCR B
482 0EC3 C2 0EBF JNZ DIRD1
483 0EC6 CD 118A CALL CRF3
484 0EC9 0E 11 DIR22: MVI C,11H
485 0ECB AF XRA A
486 0ECC C2 0ED4 DIRD2: JNZ DIRD3
487 0ECF CD 0124 CALL CRLF
488 0ED2 06 02 MVI B,2 ; POCET JMEN
489 0ED4 11 4146 DIRD3: LXI D,FCB
490 0ED7 C5 PUSH B
491 0ED8 CD 0005 CALL 5
492 0EDB C1 POP B
493 0EDC 3C INR A
494 0EDD CA 0F15 JZ SIZE ; KONEC
495 0EE0 21 4260 LXI H,BUFDX-20H
496 0EE3 11 0020 LXI D,20H ; OFFSET
497 0EE6 19 DAD D
498 0EE7 3D DCR A
499 0EE8 C2 0EE6 JNZ $-2 ; ADR
500 0EEB 23 INX H
501 0EEC 16 08 MVI D,8
502 0EEE C5 PUSH B
503 0EEF CD 10A6 CALL TEXT@
504 0EF2 CD 0151 CALL TXIMM
505 0EF5 AE DC '.'
506 0EF6 16 03 MVI D,3
507 0EF8 CD 10A6 CALL TEXT@
508 0EFB C1 POP B
509 0EFC C5 PUSH B
510 0EFD 05 DCR B
511 0EFE CA 0F0E JZ DIR33
512 0F01 CD 0151 CALL TXIMM
513 0F04 20 20 20 20 DC ' : '
514 0F08 3A 20 20 20
515 0F0C 20 A0
516 0F0E C1 DIR33: POP B
517 0F0F 0E 12 MVI C,12H
518 0F11 05 DCR B
519 0F12 C3 0ECC JMP DIRD2
520 0F15 CD 0151 SIZE: CALL TXIMM
521 0F18 0D 0A DB 0DH,0AH
522 0F1A 4F 42 53 41 DC 'OBSAZENO '
523 0F1E 5A 45 4E 4F
524 0F22 A0
525 0F23 0E 1B MVI C,27 ; ADRESA ALOK. MAPY
526 0F25 CD 0005 CALL 5 ; DO [HL]
527 0F28 CD 0F36 CALL USED ; OBSAZENI DO [DE]
528 0F2B EB XCHG
529 0F2C CD 0130 CALL DADR ; VYTISTENI OBSAZENOSTI
530 0F2F 0E 0E MVI C,14 ; NASTAVENI DISKO 0
531 0F31 1E 00 MVI E,0 ; A RETURN
532 0F33 C3 0005 JMP 5
533 ;
534 0F36 USED: ; VYPOCET OBSAZENI DISKETY
535 0F36 06 F1 MVI B,241 ; POCITADLO KONCE
536 0F38 11 FF98 LXI D,0FF98H ; POCITADLO BLOKU
537 0F3B 7E USED1: MOV A,M
538 0F3C 0E 08 MVI C,8
539 0F3E 23 INX H
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-9
540 0F3F 07 USED2: RLC
541 0F40 F5 PUSH PSW
542 0F41 7B MOV A,E
543 0F42 CE 00 ACI 0
544 0F44 27 DAA
545 0F45 5F MOV E,A
546 0F46 D2 0F4A JNC USED3
547 0F49 14 INR D
548 0F4A F1 USED3: POP PSW
549 0F4B 05 DCR B
550 0F4C C8 RZ
551 0F4D 0D DCR C
552 0F4E C2 0F3F JNZ USED2
553 0F51 C3 0F3B JMP USED1
554 ;
555 ;******************************
556 0F54 CD 0151 RENAME: CALL TXIMM
557 0F57 5A 41 44 45 DC 'ZADEJ PUVODNI JMENO'
558 0F5B 4A 20 50 55
559 0F5F 56 4F 44 4E
560 0F63 49 20 4A 4D
561 0F67 45 4E CF
562 0F6A CD 1163 CALL RNAME
563 0F6D CD 116A CALL CRFCB
564 0F70 CD 11EB CALL HVEZDI ; KONVENCE *.*
565 0F73 CA 012A JZ ERROR
566 0F76 CD 0151 CALL TXIMM
567 0F79 4E 4F 56 45 DC 'NOVE JMENO'
568 0F7D 20 4A 4D 45
569 0F81 4E CF
570 0F83 CD 1163 CALL RNAME
571 0F86 21 4156 LXI H,FCB+10H
572 0F89 CD 116D CALL CRFCBB
573 0F8C 0E 17 MVI C,17H
574 0F8E 11 4146 LXI D,FCB
575 0F91 CD 0005 CALL 5
576 0F94 C3 0124 JMP CRLF
577 ;******************************
578 0F97 CD 1041 ERA: CALL SETDMI
579 0F9A CD 1163 CALL RNAME
580 0F9D CD 116A CALL CRFCB
581 0FA0 CD 0EC9 CALL DIR22 ; VYPIS
582 0FA3 CD 0151 CALL TXIMM
583 0FA6 5A 52 55 53 DC 'ZRUS A/N ?'
584 0FAA 20 41 2F 4E
585 0FAE 20 BF
586 0FB0 CD 112E CALL ECHO
587 0FB3 E6 DF ANI 0DFH
588 0FB5 FE 4E CPI 'N'
589 0FB7 CA 0124 JZ CRLF ; NE
590 0FBA 0E 13 MVI C,13H
591 0FBC 11 4146 LXI D,FCB
592 0FBF CD 0005 CALL 5
593 0FC2 C3 0124 JMP CRLF
594 ;
595 ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
596 ; P R A C E S D A T Y
597 ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
598 ;
599 ; CTI B Y T E
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-10
600 ;
601 0FC5 E5 GET@2: PUSH H
602 0FC6 D5 PUSH D
603 0FC7 C5 PUSH B
604 0FC8 3A 40E4 LDA @IF1
605 0FCB B7 ORA A
606 0FCC CC 0D3B CZ FIND
607 0FCF CD 100A CALL CTIB
608 0FD2 04 INR B
609 0FD3 05 DCR B
610 0FD4 7E MOV A,M
611 0FD5 C2 1000 JNZ FIN1 ; KONEC FILE
612 0FD8 FE 1A CPI 1AH
613 0FDA CA 0FE2 JZ FIN?
614 0FDD B7 GET@21: ORA A ;0->CY
615 0FDE C1 POP B
616 0FDF D1 POP D
617 0FE0 E1 POP H
618 0FE1 C9 RET
619 0FE2 E5 FIN?: PUSH H
620 0FE3 2A 4167 LHLD LAST
621 0FE6 7D MOV A,L
622 0FE7 B4 ORA H
623 0FE8 E1 POP H
624 0FE9 3E 1A FIN9: MVI A,1AH
625 0FEB C2 0FDD JNZ GET@21 ; NENI LAST
626 0FEE EB XCHG ; HLEDEJ
627 0FEF 21 4300 LXI H,BUFDX+80H
628 0FF2 2B FIN0: DCX H
629 0FF3 7B MOV A,E
630 0FF4 BD CMP L
631 0FF5 CA 1000 JZ FIN1
632 0FF8 7E MOV A,M
633 0FF9 B7 ORA A
634 0FFA C2 0FE9 JNZ FIN9
635 0FFD C3 0FF2 JMP FIN0
636 1000 AF FIN1: XRA A
637 1001 32 40E4 STA @IF1
638 1004 3E 1A MVI A,1AH
639 1006 37 STC
640 1007 C3 0FDE JMP GET@21+1 ; KONEC
641 ;
642 ; CTI BYTE Z DX:
643 ;
644 100A 3A 4144 CTIB: LDA IDX
645 100D FE 80 CPI 80H
646 100F 06 00 MVI B,0
647 1011 CC 101B CZ CTIBL
648 1014 CD 1038 CALL C@ADR
649 1017 32 4144 STA IDX
650 101A C9 RET
651 ;
652 ; CTI BLOK Z DX:
653 ;
654 101B CD 1124 CTIBL: CALL BREAK
655 101E CD 1041 CALL SETDMI
656 1021 2A 4167 LHLD LAST
657 1024 2B DCX H
658 1025 22 4167 SHLD LAST
659 1028 0E 14 MVI C,14H
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-11
660 102A 11 4146 LXI D,FCB
661 102D CD 0005 CALL 5
662 1030 47 MOV B,A ; ERROR FLG
663 1031 C9 RET
664 ;
665 ; VYPOCTI ADR
666 1032 21 4200 C@ADRO: LXI H,BUFO
667 1035 C3 103B JMP $+6
668 ;
669 1038 21 4280 C@ADR: LXI H,BUFDX
670 103B 16 00 MVI D,0
671 103D 5F MOV E,A
672 103E 19 DAD D
673 103F 3C INR A
674 1040 C9 RET
675 ;
676 1041 11 4280 SETDMI: LXI D,BUFDX
677 1044 C3 104A JMP $+6
678 1047 11 4200 SETDMO: LXI D,BUFO
679 104A 0E 1A MVI C,1AH
680 104C C3 0005 JMP 5
681 ;
682 ; ZAPIS B Y T E
683 ;
684 104F E5 PUT@2: PUSH H
685 1050 D5 PUSH D
686 1051 CD 1067 CALL PUT@B
687 1054 3A 40E3 LDA MODE
688 1057 E6 02 ANI 2 ; BINAR
689 1059 79 MOV A,C
690 105A C2 1064 JNZ PUT@3 ;+
691 105D FE 1A CPI 1AH ;^Z
692 105F C5 PUSH B
693 1060 CA 0E55 JZ CLFIL
694 1063 C1 POP B
695 1064 D1 PUT@3: POP D
696 1065 E1 POP H
697 1066 C9 RET
698 1067 C5 PUT@B: PUSH B ; ZAPIS BYTE
699 1068 3A 40E6 LDA @OF1
700 106B B7 ORA A
701 106C CC 0DC6 CZ OPEN
702 106F 3A 4145 LDA ODX
703 1072 FE 80 CPI 80H
704 1074 CC 1080 CZ ZAPISBL
705 1077 CD 1032 CALL C@ADRO
706 107A 32 4145 STA ODX
707 107D C1 POP B
708 107E 71 MOV M,C
709 107F C9 RET
710 ;
711 ; ZAPIS BLOK
712 ;
713 1080 ZAPISBL:
714 1080 CD 1124 CALL BREAK
715 1083 CD 1047 CALL SETDMO
716 1086 0E 15 MVI C,15H
717 1088 11 416B LXI D,FCBB
718 108B CD 0005 CALL 5
719 108E B7 ORA A
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-12
720 108F C8 RZ
721 1090 21 DB 21H ; LXI H,##
722 1091 3C ERCPM: INR A
723 1092 C0 RNZ ;255=O.K.
724 1093 CD 0151 CALL TXIMM
725 1096 20 43 50 2F DC ' CP/M.. ERROR'
726 109A 4D 2E 2E 20
727 109E 45 52 52 4F
728 10A2 D2
729 10A3 C3 012A JMP ERROR
730 ;
731 ;
732 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
733 ; P O D P R O G R A M Y
734 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
735 ;
736 ; ZOBRAZ TEXT BEZ PARITY
737 ;
738 10A6 7E TEXT@: MOV A,M
739 10A7 E6 7F ANI 7FH
740 10A9 4F MOV C,A
741 10AA CD 0109 CALL CO
742 10AD 23 INX H
743 10AE 15 DCR D
744 10AF C2 10A6 JNZ TEXT@
745 10B2 C9 RET
746 ;
747 ; NASTAV MODE NA BINAR
748 ;
749 10B3 CD 10C0 SETTYP: CALL BIN?
750 10B6 C0 RNZ
751 ;
752 ; BINARNI VYST. SOUBOR
753 ;
754 10B7 3A 40E3 BINAR: LDA MODE
755 10BA F6 02 ORI 2
756 10BC 32 40E3 STA MODE
757 10BF C9 RET
758 ;
759 ; VYBER PODLE TYPU BIN-FILE
760 ;
761 10C0 11 10E3 BIN?: LXI D,TABTYP
762 10C3 CD 10CB CALL COMT
763 10C6 C8 RZ
764 10C7 CD 10CB CALL COMT
765 10CA C8 RZ
766 ;
767 ; COMPARE TYP
768 ;
769 10CB 21 4174 COMT: LXI H,FCBB+9
770 10CE 0E 03 MVI C,3
771 10D0 1A COMT1: LDAX D
772 10D1 BE CMP M
773 10D2 C2 10DC JNZ COMT2 ; -
774 10D5 23 INX H
775 10D6 13 INX D
776 10D7 0D DCR C
777 10D8 C2 10D0 JNZ COMT1
778 10DB C9 RET ;+ SHODA
779 10DC 13 COMT2: INX D ; - RUZNE
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-13
780 10DD 0D DCR C
781 10DE C2 10DC JNZ COMT2
782 10E1 0D DCR C ;-
783 10E2 C9 RET
784 ;--------------------
785 10E3 42 49 4E TABTYP: DB 'BIN'
786 10E6 53 41 56 DB 'SAV'
787 10E9 43 4F 44 DB 'COD'
788 ;--------------------
789 ;
790 ;
791 ; TEST NA IOBYTE (PO)
792 ;
793 10EC 3A 40E2 NPO: LDA IOBYT
794 10EF 0F RRC
795 10F0 0F RRC
796 10F1 0F NRI1: RRC
797 10F2 0F RRC
798 10F3 E6 03 ANI 3 ; ZARIZENI
799 10F5 3D DCR A ; MINUS .. SYSTEM
800 10F6 3D DCR A ;ZY.. USER=1
801 10F7 C9 RET ;NZ.. USER=2
802 ;
803 ;TEST NA IOBYTE (RI)
804 ;
805 10F8 3A 40E2 NRI: LDA IOBYT
806 10FB C3 10F1 JMP NRI1
807 ;
808 ; NASTAV IOBYTE PODLE OPTION
809 ;
810 10FE CD 111B IOPO: CALL CISLO
811 1101 D8 RC
812 1102 07 RLC
813 1103 07 RLC
814 1104 0E CF IOPO1: MVI C,0CFH ;MASKA
815 1106 C3 110F JMP ZMIO
816 ;
817 1109 CD 111B IORI: CALL CISLO
818 110C D8 RC
819 110D 0E F3 MVI C,0F3H ;MASKA
820 110F 07 ZMIO: RLC
821 1110 07 RLC
822 1111 47 MOV B,A
823 1112 3A 40E2 LDA IOBYT
824 1115 A1 ANA C
825 1116 B0 ORA B
826 1117 32 40E2 STA IOBYT
827 111A C9 RET
828 ;
829 111B D6 30 CISLO: SUI '0'
830 111D D8 RC ;CY=1..NENI
831 111E FE 03 CPI 3
832 1120 3F CMC
833 1121 D8 RC
834 1122 3C INR A
835 1123 C9 RET
836
837 1124 CD 0112 BREAK: CALL CSTS
838 1127 C8 RZ
839 1128 CD 0103 CALL CI
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-14
840 112B C3 1132 JMP ETX?
841 ; CTI A VYPIS ZNAK
842 112E CD 013F ECHO: CALL CINCR
843 1131 C8 RZ
844 1132 FE 03 ETX?: CPI ETX
845 1134 C0 RNZ
846 1135 CD 0DBC CALL DIRSTP ; CLOSE & STOP
847 1138 C3 0139 JMP NEXT ; BREAK=>C
848 ;
849 ; CHECK SUM ?
850 113B 48 CHECK: MOV C,B
851 113C CD 114D CALL RICH
852 113F B9 CMP C
853 1140 C8 RZ
854 ; ZASTAV A OHLAS CHYBU
855 1141 ERSTP:
856 1141 C3 012A JMP ERROR
857 ;
858 1144 CD 114D RADR@: CALL RICH
859 1147 6F MOV L,A
860 1148 CD 114D CALL RICH ;HL
861 114B 67 MOV H,A
862 114C C9 RET
863 ;
864 114D CD 0106 RICH: CALL RI ;READ & SUM
865 1150 DA 1141 JC ERSTP
866 1153 F5 PUSH PSW
867 1154 80 ADD B
868 1155 47 MOV B,A
869 1156 F1 POP PSW
870 1157 C9 RET
871 ;
872 1158 4D PADR@: MOV C,L
873 1159 CD 115D CALL POCH
874 115C 4C MOV C,H
875 ;
876 115D 79 POCH: MOV A,C ;PUNCH AND SUM
877 115E 80 ADD B
878 115F 47 MOV B,A
879 1160 C3 010C JMP PO
880 ;
881 ;************************************
882 ; VYTVARENI JMENA SOUBORU
883 ;************************************
884 ;
885 ; CTI JMENO Z KLAVESNICE NEBO PAMETI
886 ;
887 1163 CD 015A RNAME: CALL RNAM@ ; MONITOR
888 1166 EB XCHG ; 1.ADR = DE
889 1167 FE 40 CPI '@'
890 1169 C9 RET ; ZY=1 ... DIR
891 ;
892 ; VYTVOR FCB
893 ;
894 116A 21 4146 CRFCB: LXI H,FCB ; INPUT
895 116D 01 4103 CRFCBB: LXI B,NAMBUF
896 1170 EB XCHG
897 1171 7D MOV A,L
898 1172 B9 CMP C ; OPTION ?
899 1173 CA 117C JZ CRFC1
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-15
900 1176 0A LDAX B ; CTI
901 1177 E6 03 ANI 11B
902 1179 C3 117D JMP $+4 ; JINAK A:
903 117C AF CRFC1: XRA A
904 117D 12 STAX D ; DRIVE
905 117E 13 INX D
906 117F 0E 08 MVI C,8
907 1181 CD 1194 CALL COPNAM
908 1184 0E 03 MVI C,3
909 1186 CD 1194 CALL COPNAM
910 1189 EB XCHG
911 118A 0E 18 CRF3: MVI C,35-11
912 118C 36 00 CRF2: MVI M,0
913 118E 23 INX H
914 118F 0D DCR C
915 1190 C2 118C JNZ CRF2
916 1193 C9 RET ; VYMAZ ZBITEK
917 ;
918 1194 7E COPNAM: MOV A,M ; CTI
919 1195 FE 2A CPI '*'
920 1197 CA 11B3 JZ COPNA0
921 119A 12 STAX D
922 119B CD 11C8 CALL ANALN
923 119E CA 11B9 JZ COPNA1
924 11A1 23 INX H
925 11A2 13 INX D
926 11A3 0D DCR C
927 11A4 C2 1194 JNZ COPNAM
928 11A7 7E COPN9: MOV A,M
929 11A8 CD 11C8 CALL ANALN ; DLOUHE JMENO
930 11AB 23 INX H
931 11AC C8 RZ
932 11AD FE 20 CPI ' '
933 11AF C8 RZ
934 11B0 C3 11A7 JMP COPN9
935 ;
936 11B3 3E 3F COPNA0: MVI A,'?'
937 11B5 23 INX H
938 11B6 C3 11C0 JMP COPNA2
939 ;
940 11B9 FE 2E COPNA1: CPI '.' ; KONEC
941 11BB 3E 20 MVI A,' '
942 11BD CA 11C1 JZ $+4
943 11C0 23 COPNA2: INX H ; PRESKOC
944 11C1 12 STAX D
945 11C2 13 INX D
946 11C3 0D DCR C
947 11C4 C2 11C1 JNZ $-3
948 11C7 C9 RET
949 ;
950 11C8 FE 2E ANALN: CPI '.'
951 11CA C8 RZ
952 11CB FE 22 CPI '"'
953 11CD C8 RZ
954
955 ; ANALIZA ODDELOVACU
956 ;
957 11CE FE 0D ANAL: CPI CR
958 11D0 C8 RZ
959 11D1 B7 ORA A
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-16
960 11D2 C9 RET
961 ;
962 ;
963 11D3 21 4103 PRENOS: LXI H,NAMBUF
964 11D6 7E MOVE: MOV A,M
965 11D7 12 STAX D
966 11D8 23 INX H
967 11D9 13 INX D
968 11DA 05 DCR B
969 11DB C2 11D6 JNZ MOVE
970 11DE C9 RET
971 ;
972 11DF 3A 4173 HVEZDA: LDA FCBB+8 ; OUTPUT FILE
973 11E2 FE 3F CPI '?'
974 11E4 C8 RZ
975 11E5 3A 4176 LDA FCBB+11
976 11E8 FE 3F CPI '?'
977 11EA C9 RET ; ZY=1 POTOM....*.*;
978 11EB 3A 414E HVEZDI: LDA FCB+8 ; INPUT FILE
979 11EE FE 3F CPI '?'
980 11F0 C8 RZ
981 11F1 3A 4151 LDA FCB+11
982 11F4 FE 3F CPI '?'
983 11F6 C9 RET
984 ;-------------------------------------------
985
986 11F7 @@@KOS EQU $
987
988 ;
989 ;****************************************
990 ; ROZDELENI S Y S T E M O V E R A M
991 ;****************************************
992 ;
993 4000 RST1 EQU @R@ ; RESTART VEKTORY
994 ;........>>>
995 ;......
996 ;<<... UZIVATELSKY & MONITOR. ZASOBNIK
997
998
999 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1000 .PHASE @R@+6DH
1001 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1002 ; MONITOR DATA
1003 ;
1004 406D MSTAK: DS 2
1005 406F ACSAV: DS 2
1006 4071 BCSAV: DS 2
1007 4073 DESAV: DS 2
1008 4075 HLSAV: DS 2
1009 4077 PCSAV: DS 2
1010 4079 SPSAV: DS 2
1011 ;
1012 407B BRAD: DS 2
1013 407D INSTR: DS 1
1014 407E BRAD2: DS 2
1015 4080 INST2: DS 1
1016 4081 CADR: DS 2 ; KURZOR ADR.
1017 ;-------------------------
1018 4083 WMKOD: DS 14 ; KOD PRO KURZORY
1019 4091 PREV: DS 21 ; PREVODNI KODY..0
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-17
1020 ;-------------------------
1021 ; USER I/O DEVICE
1022 ;
1023 40A6 CILOC: DS 3 ; 0
1024 40A9 COLOC: DS 3 ; 1
1025 40AC R1LOC: DS 3 ; 2
1026 40AF R2LOC: DS 3 ; 3
1027 40B2 P1LOC: DS 3 ; 4
1028 40B5 P2LOC: DS 3 ; 5
1029 40B8 LILOC: DS 3 ; 6
1030 40BB CSLOC: DS 3 ; 7
1031 40BE DS 1
1032 40BF MEMTOP: DS 2 ; 8
1033 40C1 ERRSW: DS 3 ; 9
1034 40C4 CI@0: DS 3 ; 10
1035 40C7 CO@: DS 3 ; 11
1036 40CA CSTS@: DS 3 ; 12
1037 40CD LO@: DS 3 ; 13
1038 40D0 KOS@: DS 3 ; 14
1039 40D3 RI@: DS 3 ; 15
1040 40D6 PO@: DS 3 ; 16
1041 40D9 CCPM: DS 3 ; 17
1042 40DC GRAF: DS 3
1043 40DF RESER: DS 3
1044 0015 IONUM EQU ($-CILOC)/3+1
1045 ;
1046 40E2 IOBYT: DS 1 ; RIZENI I/O ZARIZENI
1047 ;
1048 ;****************************
1049 ;<< EXTERE OVLADANE FLAGY: >>
1050 ;****************************
1051 40E3 MODE: DS 1 ; CO-MODE
1052 40E4 @IF1: DS 1
1053 40E5 @IF2: DS 1
1054 40E6 @OF1: DS 1
1055 40E7 @OF2: DS 1
1056 40E8 LINE: DS 1 ; RADEK
1057 40E9 COLUM: DS 1 ; SLOUPEC
1058 40EA RESL: DS 1 ; RESERVACE
1059 40EB RESC: DS 1 ; SLOUPEC
1060 40EC RESL1: DS 1 ; POSLEDNI RADEK
1061 40ED RESC1: DS 1 ; POSLEDNI SLOUPEC
1062 40EE PREP: DS 1 ; UROVEN PRERUSENI
1063 ;
1064 ; PROMENE PRO OPRACNI SYSTEM
1065 ;
1066 40EF CUR@: DS 1
1067 40F0 KEY: DS 1
1068 40F1 CASK: DS 1 ; <>0 - PRODLUZ MEZERY
1069
1070 40F2 WNDP: DS 6 ; PARAMETR PRO 2. OKNO
1071 0015 EXSER EQU $-MODE ; KONEC SLUZEB
1072 ;
1073 40F8 CHAR: DS 1
1074 40F9 XFLG: DS 1
1075 ;
1076 ;****************************************************
1077 ; DATA SPOLECNA PRO MONITOR A O.S.
1078 ;****************************************************
1079 ;
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE 1-18
1080 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1081 40FA @BT: DS 1
1082 40FB @PED: DS 1
1083 40FC SADR: DS 2 ; START ADR
1084 40FE EADR: DS 2 ; END ADR
1085 4100 SUM: DS 1
1086 4101 EXTEXT: DS 1
1087 4102 OPT: DS 1
1088 4103 NAMBUF: DS 65
1089 ;
1090 ;--------------------------------------
1091 ; D I S K
1092 ;--------------------------------------
1093 4144 IDX: DS 1
1094 4145 ODX: DS 1
1095 4146 FCB: DS 33
1096 4167 LAST: DS 4
1097 416B FCBB: DS 36
1098 418F EDAT EQU $
1099 ;--------------------------------------
1100 41CF ERAMH EQU 41CFH ; KONEC VOLNE RAM
1101 .DEPHASE
1102 ;
1103 END ; [P]
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE S
Macros:
Symbols:
11F7 @@@KOS 40FA @BT 40E4 @IF1
40E5 @IF2 40E6 @OF1 40E7 @OF2
40FB @PED 4000 @R@ 406F ACSAV
11CE ANAL 11C8 ANALN 012D ASHEX
4071 BCSAV 10C0 BIN? 10B7 BINAR
1300 BIOS 407B BRAD 407E BRAD2
1124 BREAK 4280 BUFDX 4200 BUFO
1038 C@ADR 1032 C@ADRO 4081 CADR
003A CAN 40F1 CASK 40D9 CCPM
40F8 CHAR 113B CHECK 0103 CI
40C4 CI@0 40A6 CILOC 013F CINCR
111B CISLO 0E59 CLF0 0E64 CLF1
0E55 CLFIL 0E3D CLOSE 0E4D CLOSE2
0DC1 CLST2 0DB2 CLSTP 0109 CO
40C7 CO@ 40A9 COLOC 40E9 COLUM
0040 COMLE 10CB COMT 10D0 COMT1
10DC COMT2 11A7 COPN9 11B3 COPNA0
11B9 COPNA1 11C0 COPNA2 1194 COPNAM
0000 CPM 000D CR 118C CRF2
118A CRF3 117C CRFC1 116A CRFCB
116D CRFCBB 0124 CRLF 40BB CSLOC
0112 CSTS 40CA CSTS@ 100A CTIB
101B CTIBL 40EF CUR@ 0130 DADR
0133 DBYT 007F DEL 4073 DESAV
0EB8 DIR 0EC9 DIR22 0F0E DIR33
0EA6 DIRD 0EBF DIRD1 0ECC DIRD2
0ED4 DIRD3 0DBC DIRSTP 0CA3 DUMMY
40FE EADR 112E ECHO 418F EDAT
0004 EOT 1800 EP3 0C00 EPROM
0F97 ERA 0000 ERAM 41CF ERAMH
1091 ERCPM 012A ERROR 40C1 ERRSW
1141 ERSTP 0003 ETX 1132 ETX?
0127 EXPR 0015 EXSER 4101 EXTEXT
4146 FCB 416B FCBB 0FF2 FIN0
1000 FIN1 0FE9 FIN9 0FE2 FIN?
0D3B FIND 0D47 FIND2 0FC5 GET@2
0FDD GET@21 40DC GRAF 0136 HILO
4075 HLSAV 0009 HT 11DF HVEZDA
11EB HVEZDI 0148 HXASC 4144 IDX
0C4D INIT1 0E98 INITD 0C24 INITS
4080 INST2 407D INSTR 015D INTER
40E2 IOBYT 0115 IOCHK 011E IODEF
0015 IONUM 10FE IOPO 1104 IOPO1
1109 IORI 0118 IOSET 40F0 KEY
40D0 KOS@ 0CA4 KOS@@ 4167 LAST
00FF LENGHT 000A LF 40B8 LILOC
40E8 LINE 0D7B LO1 0DA2 LO2
40CD LO@ 0D78 LOAD 0024 MAXSL
40BF MEMTOP 0CB5 MICOS 40E3 MODE
0100 MONIT 11D6 MOVE 406D MSTAK
4103 NAMBUF 000B NAMLE 0139 NEXT
10EC NPO 10F8 NRI 10F1 NRI1
4145 ODX 0DC6 OPEN 0DD2 OPEN2
4102 OPT 40B2 P1LOC 40B5 P2LOC
1158 PADR@ 4077 PCSAV 010C PO
40D6 PO@ 115D POCH 0010 PREAM
MIKOS/D V5.0 23.3.88/P.P. MACRO-80 3.44 09-Dec-81 PAGE S-1
11D3 PRENOS 40EE PREP 4091 PREV
104F PUT@2 1064 PUT@3 1067 PUT@B
40AC R1LOC 40AF R2LOC 1144 RADR@
0F54 RENAME 40EB RESC 40ED RESC1
40DF RESER 40EA RESL 40EC RESL1
0D53 REWI 0D72 REWIND 0106 RI
40D3 RI@ 114D RICH 015A RNAM@
1163 RNAME 4000 RST1 00CF RSTN
40FC SADR 0E2F SAV1 0E09 SAVE
1041 SETDMI 1047 SETDMO 10B3 SETTYP
0F15 SIZE 0CAA SLUZBA 017B SMTAB
0001 SOH 013C SPACE 4079 SPSAV
001A SUBS 4100 SUM 10E3 TABTYP
0142 TEXT 10A6 TEXT@ FFFF TV64
3800 TVBEG 3814 TVR 3824 TVW
0151 TXIMM 0E85 TYP0 0E82 TYPE
0000 TYPTER 0012 UDATA 0010 UMODE
0013 URES 0F36 USED 0F3B USED1
0F3F USED2 0F4A USED3 0011 USTAT
4083 WMKOD 0154 WND@ 40F2 WNDP
40F9 XFLG 0C18 ZAC 1080 ZAPISBL
110F ZMIO
No Fatal error(s)
@@@KOS 986#
@BT 1081#
@IF1 158 281 327 604 637 1052#
@IF2 330 1053#
@OF1 159 364 408 434 699 1054#
@OF2 1055#
@PED 1082#
@R@ 19# 993 1000
ACSAV 1005#
ANAL 957#
ANALN 922 929 950#
ASHEX 58#
BCSAV 1006#
BIN? 749 761#
BINAR 111 376 754#
BIOS 16# 173
BRAD 1012#
BRAD2 1014#
BREAK 453 654 714 837#
BUFDX 17# 495 627 669 676
BUFO 18# 421 666 678
C@ADR 648 669#
C@ADRO 666# 705
CADR 1016#
CAN 90#
CASK 1068#
CCPM 156 262 341 407 1041#
CHAR 1073#
CHECK 313 319 850#
CI 41# 839
CI@0 136 1034#
CILOC 1023# 1044
CINCR 45# 842
CISLO 810 817 829#
CLF0 422# 427
CLF1 424 428#
CLFIL 420# 693
CLOSE 108 232 404#
CLOSE2 414#
CLST2 325 329#
CLSTP 322#
CO 43# 452 741
CO@ 1035#
COLOC 1024#
COLUM 1057#
COMLE 69#
COMT 762 764 769#
COMT1 771# 777
COMT2 773 779# 781
COPN9 928# 934
COPNA0 920 936#
COPNA1 923 940#
COPNA2 938 943#
COPNAM 907 909 918# 927
CPM 8# 24 172
CR 73# 957
CRF2 912# 915
CRF3 483 911#
CRFC1 899 903#
CRFCB 271 470 563 580 894#
CRFCBB 351 572 895#
CRLF 50# 227 322 450 487 576 589 593
CSLOC 1030#
CSTS 40# 837
CSTS@ 1036#
CTIB 607 644#
CTIBL 647 654#
CUR@ 1066#
DADR 49# 529
DBYT 48#
DEL 75#
DESAV 1007#
DIR 267 346 464 475#
DIR22 474 484# 581
DIR33 511 516#
DIRD 238 468#
DIRD1 479# 482
DIRD2 486# 519
DIRD3 486 489#
DIRSTP 326# 846
DUMMY 178#
EADR 306 1084#
ECHO 225 454 586 842#
EDAT 1098#
EOT 89#
EP3 21# 169 171
EPROM 35# 96 117 185
ERA 246 578#
ERAM 33#
ERAMH 1100#
ERCPM 275 360 432 722#
ERROR 57# 155 248 353 410 565 729 856
ERRSW 1033#
ERSTP 303 312 855# 865
ETX 76# 844
ETX? 840 844#
EXPR 47# 378
EXSER 1071#
EXTEXT 205 1086#
FCB 272 276 461 471 489 571 574 591 660 894 978 981
1095#
FCBB 350 354 358 429 717 769 972 975 1097#
FIN0 628# 635
FIN1 611 631 636#
FIN9 624# 634
FIN? 613 619#
FIND 106 258# 298 448 606
FIND2 266#
GET@2 112 601#
GET@21 614# 625 640
GRAF 1042#
HILO 51# 317 395
HLSAV 1008#
HT 77#
HVEZDA 352 972#
HVEZDI 564 978#
HXASC 59#
IDX 280 644 649 1093#
INIT1 128 143#
INITD 240 459#
INITS 105 123#
INST2 1015#
INSTR 1013#
INTER 63#
IOBYT 168 793 805 823 826 1046#
IOCHK 54#
IODEF 46#
IONUM 1044#
IOPO 337 810#
IOPO1 814#
IORI 258 817#
IOSET 56#
KEY 1067#
KOS@ 154 1038#
KOS@@ 153 184#
LAST 620 656 658 1096#
LENGHT 67#
LF 74#
LILOC 1029#
LINE 1056#
LO1 299# 301
LO2 315# 318
LO@ 1037#
LOAD 109 236 298#
MAXSL 117# 186
MEMTOP 1032#
MICOS 104 202#
MODE 435 437 687 754 756 1051# 1071
MONIT 22# 40 41 42 43 44 45 46 47 48 49 50
51 52 53 54 55 56 57 58 59 60 61 62
63 64
MOVE 138 163 964# 969
MSTAK 1004#
NAMBUF 895 963 1088#
NAMLE 68#
NEXT 52# 847
NPO 338 404 793#
NRI 259 323 805#
NRI1 796# 806
ODX 362 702 706 1094#
OPEN 107 230 337# 375 701
OPEN2 345#
OPT 1087#
P1LOC 1027#
P2LOC 1028#
PADR@ 384 386 872#
PCSAV 1009#
PO 44# 879
PO@ 1040#
POCH 380 388 390 394 398 873 876#
PREAM 78#
PRENOS 963#
PREP 1062#
PREV 1019#
PUT@2 114 115 684#
PUT@3 690 695#
PUT@B 418 686 698#
R1LOC 161 1025#
R2LOC 1026#
RADR@ 305 308 858#
RENAME 244 556#
RESC 1059#
RESC1 1061#
RESER 1043#
RESL 1058#
RESL1 1060#
REWI 272# 292
REWIND 113 289#
RI 42# 449 864
RI@ 1039#
RICH 299 310 315 851 858 860 864#
RNAM@ 62# 887
RNAME 266 345 469 562 570 579 887#
RST1 993#
RSTN 20#
SADR 309 1083#
SAV1 393# 396
SAVE 110 234 375#
SETDMI 203 476 578 655 676#
SETDMO 678# 715
SETTYP 365 749#
SIZE 494 520#
SLUZBA 187#
SMTAB 64# 135
SOH 88#
SPACE 55#
SPSAV 1010#
SUBS 79#
SUM 320 1085#
TABTYP 761 785#
TEXT 53#
TEXT@ 503 507 738# 744
TV64 7#
TVBEG 34# 70 71 124
TVR 70#
TVW 71#
TXIMM 60# 140 143 206 504 512 520 556 566 582 724
TYP0 449# 455
TYPE 242 448#
TYPTER 9# 133
UDATA 83# 139
UMODE 85# 130
URES 82# 131
USED 527 534#
USED1 537# 553
USED2 540# 552
USED3 546 548#
USTAT 84# 134
WMKOD 1018#
WND@ 61#
WNDP 1070#
XFLG 1074#
ZAC 112# 160
ZAPISBL 428 704 713#
ZMIO 815 820#
Ú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