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
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1
1 ;JPR-1 MIKRO BASIC
2 ;
3 ;*****************************************
4 ;
5 ; J P R - 1 M I K R O B A S I C 3 . 1
6 ;
7 ;****************************************
8 ;
9 ;
10 TITLE 'JPR-1 MIKRO BASIC'
11 ;
12 ORG 0
13 ;
14 0000' C3 0019' JMP START
15 0003' 2A 2024' TOP: LHLD TXTUNF
16 0006' 23 INX H
17 0007' C9 RET
18 0008' C3 23EE' JMP BRST
19 000B' 2A 2001' LENGHT: LHLD LEGT
20 000E' 2B DCX H
21 000F' C9 RET
22 0010' C3 23F7' JMP BRST+9
23 0013' CD 0771' BEND: CALL ENDCHK
24 0016' C3 004D' JMP RSTART
25 ;
26 ;START
27 ;
28 0019' 31 20B1' START: LXI SP,STACK
29 001C' CD 0C5C' CALL DISP
30 001F' CD 0CF4' CALL NULDIS
31 0022' AF XRA A
32 0023' 32 2023' STA MODE
33 0026' 32 2000' STA PORT24
34 0029' 11 00D0' LXI D,MSG1
35 002C' CD 082B' CALL PRTSTG
36 002F' 21 0003' LXI H,TOP
37 0032' 22 201D' SHLD RANPNT
38 0035' 21 20EF' LXI H,TXTBGN
39 0038' 22 2024' SHLD TXTUNF
40 003B' 21 23AD' LXI H,BUFA
41 003E' 22 20EB' SHLD BUFFER
42 0041' 21 23ED' LXI H,BUFE
43 0044' 22 20ED' SHLD BUFEND
44 0047' 21 23AB' LXI H,TXTE
45 004A' 22 20E9' START1: SHLD TXTEND
46 ;
47 ;RSTART HORKY START
48 ;
49 004D' CD 0906' RSTART: CALL CRLF
50 0050' 31 20B1' RSTAR1: LXI SP,STACK
51 0053' 11 02FB' LXI D,OK
52 0056' 97 SUB A
53 0057' 32 2023' STA MODE
54 005A' 2F CMA
55 005B' 32 200A' STA MASKIN
56 005E' CD 082B' CALL PRTSTG
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-1
57 0061' 21 0068' LXI H,ST2+1
58 0064' 22 200B' SHLD CURRNT
59 0067' 21 0000 ST2: LXI H,0
60 006A' 22 2013' SHLD LOPVAR
61 006D' 22 200D' SHLD STKGOS
62 0070' 06 3E ST3: MVI B,'>'
63 0072' CD 07B3' CALL GETLN
64 0075' D5 ST5: PUSH D
65 0076' CD 095C' CALL DBUFF
66 0079' CD 02C5' CALL TSTNUM
67 007C' CD 026E' CALL IGNB
68 007F' 7C MOV A,H
69 0080' B5 ORA L
70 0081' C1 POP B
71 0082' CA 0929' JZ DIRECT
72 0085' 1B DCX D
73 0086' 7C MOV A,H
74 0087' 12 STAX D
75 0088' 1B DCX D
76 0089' 7D MOV A,L
77 008A' 12 STAX D
78 008B' C5 PUSH B
79 008C' D5 PUSH D
80 008D' 79 MOV A,C
81 008E' 93 SUB E
82 008F' F5 PUSH PSW
83 0090' CD 0801' CALL FNDLN
84 0093' D5 PUSH D
85 0094' C2 00A7' JNZ ST4
86 0097' D5 PUSH D
87 0098' CD 081F' CALL FNDNXT
88 009B' C1 POP B
89 009C' 2A 2024' LHLD TXTUNF
90 009F' CD 08A7' CALL MVUP
91 00A2' 60 MOV H,B
92 00A3' 69 MOV L,C
93 00A4' 22 2024' SHLD TXTUNF
94 00A7' C1 ST4: POP B
95 00A8' 2A 2024' LHLD TXTUNF
96 00AB' F1 POP PSW
97 00AC' E5 PUSH H
98 00AD' FE 03 CPI 3
99 00AF' CA 004D' JZ RSTART
100 00B2' 85 ADD L
101 00B3' 6F MOV L,A
102 00B4' 3E 00 MVI A,0
103 00B6' 8C ADC H
104 00B7' 67 MOV H,A
105 00B8' CD 0964' CALL DTXTE
106 00BB' CD 0268' CALL COMP
107 00BE' D2 07AC' JNC QSORRY
108 00C1' 22 2024' SHLD TXTUNF
109 00C4' D1 POP D
110 00C5' CD 08B2' CALL MVDOWN
111 00C8' D1 POP D
112 00C9' E1 POP H
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-2
113 00CA' CD 08A7' CALL MVUP
114 00CD' C3 0070' JMP ST3
115 ;
116 00D0' 4D 49 4B 52 MSG1: DB 'MIKRO BASIC',0
117 00D4' 4F 20 42 41
118 00D8' 53 49 43 00
119 ;
120 ;TABULKA KLICOVICH SLOV
121 ;
122 00DC' 4C 49 53 54 TAB1: DB 'LIST',0
123 00E0' 00
124 00E1' 0359' DW LIST
125 00E3' 4C 4C 49 53 DB 'LLIST',0
126 00E7' 54 00
127 00E9' 0356' DW LLIST
128 00EB' 52 55 4E 00 DB 'RUN',0
129 00EF' 0316' DW RUN
130 00F1' 4E 45 57 00 DB 'NEW',0
131 00F5' 030D' DW NEW
132 00F7' 52 45 57 49 DB 'REWIND',0
133 00FB' 4E 44 00
134 00FE' 0C28' DW REWIND
135 0100' 4D 4F 4E 49 TXMON: DB 'MONITOR',0
136 0104' 54 4F 52 00
137 0108' 0F0D' DW MONIT
138 010A' 52 41 4D 00 DB 'RAM',0
139 010E' 0976' DW RAM
140 0110' 4C 4F 41 44 DB 'LOAD',0
141 0114' 00
142 0115' 0B23' DW LOAD
143 0117' 53 41 56 45 DB 'SAVE',0
144 011B' 00
145 011C' 0BB3' DW SAVE
146 011E' 4E 45 58 54 TAB2: DB 'NEXT',0
147 0122' 00
148 0123' 04AB' DW NEXT
149 0125' 4C 45 54 00 DB 'LET',0
150 0129' 05A6' DW LET
151 012B' 43 4C 53 00 DB 'CLS',0
152 012F' 0923' DW CLS
153 0131' 43 4C 45 41 DB 'CLEAR',0
154 0135' 52 00
155 0137' 051B' DW CLEAR
156 0139' 48 41 52 44 DB 'HARD',0
157 013D' 00
158 013E' 034A' DW HARD
159 0140' 44 49 53 50 DB 'DISPL',0
160 0144' 4C 00
161 0146' 0350' DW DISPL
162 0148' 49 46 00 DB 'IF',0
163 014B' 052B' DW IFF
164 014D' 47 4F 54 4F DB 'GOTO',0
165 0151' 00
166 0152' 0339' DW GOTO
167 0154' 47 4F 53 55 DB 'GOSUB',0
168 0158' 42 00
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-3
169 015A' 0409' DW GOSUB
170 015C' 52 45 54 55 DB 'RETURN',0
171 0160' 52 4E 00
172 0163' 042B' DW RETURN
173 0165' 52 45 4D 00 DB 'REM',0
174 0169' 050C' DW REM
175 016B' 46 4F 52 00 DB 'FOR',0
176 016F' 0446' DW FOR
177 0171' 49 4E 50 55 DB 'INPUT',0
178 0175' 54 00
179 0177' 0546' DW INPUT
180 0179' 50 52 49 4E DB 'PRINT',0
181 017D' 54 00
182 017F' 03A7' DW PRINT
183 0181' 4C 50 52 49 DB 'LPRINT',0
184 0185' 4E 54 00
185 0188' 03A4' DW LPRINT
186 018A' 45 4E 44 00 DB 'END',0
187 018E' 0013' DW BEND
188 0190' 53 54 4F 50 DB 'STOP',0
189 0194' 00
190 0195' 0B0E' DW STOP
191 0197' 43 41 4C 4C DB 'CALL',0
192 019B' 00
193 019C' 09A4' DW BCALL
194 019E' 4F 55 54 43 DB 'OUTCHAR',0
195 01A2' 48 41 52 00
196 01A6' 0AC7' DW OUTCHR
197 01A8' 4F 55 54 00 DB 'OUT',0
198 01AC' 09B1' DW BOUT
199 01AE' 4F 24 00 DB 'O$',0
200 01B1' 0A38' DW O
201 01B3' 49 24 00 DB 'I$',0
202 01B6' 0A45' DW I
203 01B8' 57 41 49 54 DB 'WAIT',0
204 01BC' 00
205 01BD' 09D7' DW WAIT
206 01BF' 42 45 45 50 DB 'BEEP',0
207 01C3' 00
208 01C4' 09E8' DW BEEP
209 01C6' 50 4F 4B 45 DB 'POKE',0
210 01CA' 00
211 01CB' 0A7D' DW POKE
212 01CD' 4D 41 53 4B DB 'MASK',0
213 01D1' 00
214 01D2' 096C' DW MASK
215 01D4' 54 41 42 00 DB 'TAB',0
216 01D8' 09FF' DW TAB
217 01DA' 42 59 54 45 DB 'BYTE',0
218 01DE' 00
219 01DF' 0A92' DW BYTE
220 01E1' 57 4F 52 44 DB 'WORD',0
221 01E5' 00
222 01E6' 0A9C' DW WORD
223 01E8' 00 DB 0
224 01E9' 05A0' DW DEFLT
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-4
225 01EB' 52 4E 44 00 TAB4: DB 'RND',0
226 01EF' 06C4' DW RND
227 01F1' 41 42 53 00 DB 'ABS',0
228 01F5' 06F1' DW ABS
229 01F7' 53 49 5A 45 DB 'SIZE',0
230 01FB' 00
231 01FC' 06FA' DW SIZE
232 01FE' 50 45 45 4B DB 'PEEK',0
233 0202' 00
234 0203' 0A76' DW PEEK
235 0205' 49 4E 43 48 DB 'INCHAR',0
236 0209' 41 52 00
237 020C' 0AD1' DW INCHAR
238 020E' 48 45 58 00 DB 'HEX',0
239 0212' 0AD8' DW HEX
240 0214' 49 4E 4D 00 DB 'INM',0
241 0218' 0A15' DW INM
242 021A' 49 4E 00 DB 'IN',0
243 021D' 0A10' DW BIN
244 021F' 27 00 DB 27H,0
245 0221' 0AB9' DW QUOTE
246 0223' 54 4F 50 00 DB 'TOP',0
247 0227' 0003' DW TOP
248 0229' 41 52 45 4D DB 'AREM',0
249 022D' 00
250 022E' 0517' DW AREM
251 0230' 4C 45 4E 00 DB 'LEN',0
252 0234' 000B' DW LENGHT
253 0236' 00 DB 0
254 0237' 06A2' DW XP40
255 0239' 54 4F 00 TAB5: DB 'TO',0
256 023C' 0456' DW FR1
257 023E' 00 DB 0
258 023F' 0777' DW QWHAT
259 0241' 53 54 45 50 TAB6: DB 'STEP',0
260 0245' 00
261 0246' 0462' DW FR2
262 0248' 00 DB 0
263 0249' 0468' DW FR3
264 024B' 3E 3D 00 TAB8: DB '>=',0
265 024E' 05BE' DW XP11
266 0250' 23 00 DB '#',0
267 0252' 05C4' DW XP12
268 0254' 3E 00 DB '>',0
269 0256' 05CA' DW XP13
270 0258' 3D 00 DB '=',0
271 025A' 05D9' DW XP15
272 025C' 3C 3D 00 DB '<=',0
273 025F' 05D1' DW XP14
274 0261' 3C 00 DB '<',0
275 0263' 05DF' DW XP16
276 0265' 00 DB 0
277 0266' 05E5' DW XP17
278 ;
279 ;COMP POROVNANI HL A DE, Z=1
280 ;
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-5
281 0268' 7C COMP: MOV A,H
282 0269' BA CMP D
283 026A' C0 RNZ
284 026B' 7D MOV A,L
285 026C' BB CMP E
286 026D' C9 RET
287 ;
288 ;IGNB VYNECHANI MAEZER PODLE DE
289 ;
290 026E' 1A IGNB: LDAX D
291 026F' FE 20 CPI 20H
292 0271' C0 RNZ
293 0272' 13 INX D
294 0273' C3 026E' JMP IGNB
295 ;
296 ;FINI
297 ;
298 0276' F1 FINI: POP PSW
299 0277' CD 075E' CALL FIN
300 027A' C3 0777' JMP QWHAT
301 ;
302 ;INDEXOVANA PROMENA
303 ;
304 027D' CD 026E' TSTV: CALL IGNB
305 0280' D6 40 SUI 40H
306 0282' D8 RC
307 0283' C2 02A1' JNZ TV1
308 0286' 13 INX D
309 0287' CD 06B3' CALL PARN
310 028A' 29 DAD H
311 028B' DA 02EF' JC QHOW
312 028E' D5 PUSH D
313 028F' EB XCHG
314 0290' CD 06FA' CALL SIZE
315 0293' CD 0268' CALL COMP
316 0296' DA 07AD' JC ASORRY
317 0299' 2A 20E9' LHLD TXTEND
318 029C' CD 071D' CALL SUBDE
319 029F' D1 POP D
320 02A0' C9 RET
321 ;
322 ;VYPOCET ADRESY ULOZENI PROMENE
323 ;
324 02A1' FE 1B TV1: CPI 1BH
325 02A3' 3F CMC
326 02A4' D8 RC
327 02A5' 13 INX D
328 02A6' 21 20B3' LXI H,VARBGN
329 02A9' 07 RLC
330 02AA' 85 ADD L
331 02AB' 6F MOV L,A
332 02AC' 3E 00 MVI A,0
333 02AE' 8C ADC H
334 02AF' 67 MOV H,A
335 02B0' C9 RET
336 ;
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-6
337 ;TSTC POROVNANI TEXTU PODLE DE SE ZNAKEM
338 ;KTERY JE ZA CALL... JE-LI SHODNY POKRA-
339 ;CUJE SE NA CALL...+2 JINAK NA ADRESE
340 ;O N VYSSI.N JE NA ADRESE CALL..+2
341 ;
342 02B1' E3 TSTC: XTHL
343 02B2' CD 026E' CALL IGNB
344 02B5' BE CMP M
345 02B6' 23 INX H
346 02B7' CA 02C1' JZ TC2
347 02BA' C5 PUSH B
348 02BB' 4E MOV C,M
349 02BC' 06 00 MVI B,0
350 02BE' 09 DAD B
351 02BF' C1 POP B
352 02C0' 1B DCX D
353 02C1' 13 TC2: INX D
354 02C2' 23 INX H
355 02C3' E3 XTHL
356 02C4' C9 RET
357 ;
358 ;TSTNUM PREVOD ASCII CISLA Z BUFFERU PODLE
359 ;DE NA BINARNI CISLO V HL
360 ;
361 02C5' 21 0000 TSTNUM: LXI H,0
362 02C8' 44 MOV B,H
363 02C9' CD 026E' CALL IGNB
364 02CC' FE 30 TN1: CPI '0'
365 02CE' D8 RC
366 02CF' FE 3A CPI 3AH
367 02D1' D0 RNC
368 02D2' 3E F0 MVI A,0F0H
369 02D4' A4 ANA H
370 02D5' C2 02EF' JNZ QHOW
371 02D8' 04 INR B
372 02D9' C5 PUSH B
373 02DA' 44 MOV B,H
374 02DB' 4D MOV C,L
375 02DC' 29 DAD H
376 02DD' 29 DAD H
377 02DE' 09 DAD B
378 02DF' 29 DAD H
379 02E0' 1A LDAX D
380 02E1' 13 INX D
381 02E2' E6 0F ANI 0FH
382 02E4' 85 ADD L
383 02E5' 6F MOV L,A
384 02E6' 3E 00 MVI A,0
385 02E8' 8C ADC H
386 02E9' 67 MOV H,A
387 02EA' C1 POP B
388 02EB' 1A LDAX D
389 02EC' F2 02CC' JP TN1
390 ;
391 ;QHOW OTAZKA HOW
392 ;
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-7
393 02EF' D5 QHOW: PUSH D
394 02F0' 11 02F6' AHOW: LXI D,HOW
395 02F3' C3 077B' JMP ERROR
396 ;
397 ;TEXTY OTAZEK
398 ;
399 02F6' 48 4F 57 3F HOW: DB 'HOW?',0DH
400 02FA' 0D
401 02FB' 52 45 41 44 OK: DB 'READY',0DH
402 02FF' 59 0D
403 0301' 57 48 41 54 WHAT: DB 'WHAT?',0DH
404 0305' 3F 0D
405 0307' 53 4F 52 52 SORRY: DB 'SORRY',0DH
406 030B' 59 0D
407 ;
408 ;NEW
409 ;
410 030D' CD 0771' NEW: CALL ENDCHK
411 0310' 21 20EF' LXI H,TXTBGN
412 0313' 22 2024' SHLD TXTUNF
413 ;
414 ;RUN
415 ;
416 0316' CD 0771' RUN: CALL ENDCHK
417 0319' 11 20EF' LXI D,TXTBGN
418 031C' 21 0000 RUNNXL: LXI H,0
419 031F' CD 0809' CALL FNDLP
420 0322' DA 004D' JC RSTART
421 0325' EB RUNTSL: XCHG
422 0326' 22 200B' SHLD CURRNT
423 0329' EB XCHG
424 032A' 13 INX D
425 032B' 13 INX D
426 032C' AF RUNSML: XRA A
427 032D' 32 2023' STA MODE
428 0330' CD 0B06' CALL CONT
429 0333' 21 011D' LXI H,TAB2-1
430 0336' C3 092C' JMP EXEC
431 ;
432 ;GOTO
433 ;
434 0339' CD 05B4' GOTO: CALL EXPR
435 033C' D5 PUSH D
436 033D' CD 0771' CALL ENDCHK
437 0340' CD 0801' CALL FNDLN
438 0343' C2 02F0' JNZ AHOW
439 0346' F1 POP PSW
440 0347' C3 0325' JMP RUNTSL
441 ;
442 ;HARD
443 ;
444 034A' CD 0C55' HARD: CALL PRNTST
445 034D' CD 0276' CALL FINI
446 ;
447 ;DISPL
448 ;
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-8
449 0350' CD 0C5C' DISPL: CALL DISP
450 0353' CD 0276' CALL FINI
451 ;
452 ;LIST
453 ;
454 0356' CD 0C55' LLIST: CALL PRNTST
455 0359' CD 02C5' LIST: CALL TSTNUM
456 035C' 3E FF MVI A,0FFH
457 035E' 32 2006' STA LISTC
458 0361' CD 026E' CALL IGNB
459 0364' FE 0D CPI 0DH
460 0366' C2 0387' JNZ LS4
461 0369' CD 0801' LS0: CALL FNDLN
462 036C' DA 039E' LS1: JC LS6
463 036F' 3A 2006' LDA LISTC
464 0372' FE FF CPI 0FFH
465 0374' CA 037B' JZ LS5
466 0377' 3D DCR A
467 0378' CA 004D' JZ RSTART
468 037B' 32 2006' LS5: STA LISTC
469 037E' CD 0892' LS3: CALL PRTLN
470 0381' CD 0809' CALL FNDLP
471 0384' C3 036C' JMP LS1
472 0387' FE 2B LS4: CPI '+'
473 0389' C2 0369' JNZ LS0
474 038C' 13 INX D
475 038D' CD 026E' CALL IGNB
476 0390' E5 PUSH H
477 0391' CD 02C5' CALL TSTNUM
478 0394' 7D MOV A,L
479 0395' 3C INR A
480 0396' 3C INR A
481 0397' 32 2006' STA LISTC
482 039A' E1 POP H
483 039B' C3 0369' JMP LS0
484 039E' CD 0C5C' LS6: CALL DISP
485 03A1' C3 0050' JMP RSTAR1
486 ;
487 ;PRINT
488 ;
489 03A4' CD 0C55' LPRINT: CALL PRNTST
490 03A7' 0E 08 PRINT: MVI C,8
491 03A9' CD 02B1' CALL TSTC
492 03AC' 3A DB ':'
493 03AD' 09 DB 9
494 03AE' CD 0906' CALL CRLF
495 03B1' CD 0C5C' CALL DISP
496 03B4' C3 032C' JMP RUNSML
497 03B7' CD 02B1' CALL TSTC
498 03BA' 0D DB 0DH
499 03BB' 09 DB 9
500 03BC' CD 0906' CALL CRLF
501 03BF' CD 0C5C' PR6: CALL DISP
502 03C2' C3 031C' JMP RUNNXL
503 03C5' CD 02B1' PR0: CALL TSTC
504 03C8' 2A DB '*'
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-9
505 03C9' 0E DB 14
506 03CA' CD 05B4' CALL EXPR
507 03CD' 7D MOV A,L
508 03CE' 0F RRC
509 03CF' 0F RRC
510 03D0' E6 C0 ANI 0C0H
511 03D2' 32 2023' STA MODE
512 03D5' C3 03EA' JMP PR3
513 03D8' CD 02B1' CALL TSTC
514 03DB' 23 DB '#'
515 03DC' 07 DB 7
516 03DD' CD 05B4' CALL EXPR
517 03E0' 4D MOV C,L
518 03E1' C3 03EA' JMP PR3
519 03E4' CD 0839' CALL QTSTG
520 03E7' C3 03FE' JMP PR8
521 03EA' CD 02B1' PR3: CALL TSTC
522 03ED' 2C DB ','
523 03EE' 06 DB 6
524 03EF' CD 075E' CALL FIN
525 03F2' C3 03C5' JMP PR0
526 03F5' CD 0906' CALL CRLF
527 03F8' CD 0C5C' CALL DISP
528 03FB' CD 0276' CALL FINI
529 03FE' CD 05B4' PR8: CALL EXPR
530 0401' C5 PUSH B
531 0402' CD 084E' CALL PRTNUM
532 0405' C1 POP B
533 0406' C3 03EA' JMP PR3
534 ;
535 ;GOSUB
536 ;
537 0409' CD 08DD' GOSUB: CALL PUSHA
538 040C' CD 05B4' CALL EXPR
539 040F' D5 PUSH D
540 0410' CD 0801' CALL FNDLN
541 0413' C2 02F0' JNZ AHOW
542 0416' 2A 200B' LHLD CURRNT
543 0419' E5 PUSH H
544 041A' 2A 200D' LHLD STKGOS
545 041D' E5 PUSH H
546 041E' 21 0000 LXI H,0
547 0421' 22 2013' SHLD LOPVAR
548 0424' 39 DAD SP
549 0425' 22 200D' SHLD STKGOS
550 0428' C3 0325' JMP RUNTSL
551 ;
552 ;RETURN
553 ;
554 042B' CD 0771' RETURN: CALL ENDCHK
555 042E' 2A 200D' LHLD STKGOS
556 0431' 7C MOV A,H
557 0432' B5 ORA L
558 0433' CA 0777' JZ QWHAT
559 0436' F9 SPHL
560 0437' E1 POP H
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-10
561 0438' 22 200D' SHLD STKGOS
562 043B' E1 POP H
563 043C' 22 200B' SHLD CURRNT
564 043F' D1 POP D
565 0440' CD 08C1' CALL POPA
566 0443' CD 0276' CALL FINI
567 ;
568 ;FOR
569 ;
570 0446' CD 08DD' FOR: CALL PUSHA
571 0449' CD 0745' CALL SETVAL
572 044C' 2B DCX H
573 044D' 22 2013' SHLD LOPVAR
574 0450' 21 0238' LXI H,TAB5-1
575 0453' C3 092C' JMP EXEC
576 ;
577 0456' CD 05B4' FR1: CALL EXPR
578 0459' 22 2017' SHLD LOPLMT
579 045C' 21 0240' LXI H,TAB6-1
580 045F' C3 092C' JMP EXEC
581 ;
582 0462' CD 05B4' FR2: CALL EXPR
583 0465' C3 046B' JMP FR4
584 ;
585 0468' 21 0001 FR3: LXI H,1
586 046B' 22 2015' FR4: SHLD LOPINC
587 046E' 2A 200B' LHLD CURRNT
588 0471' 22 2019' SHLD LOPLN
589 0474' EB XCHG
590 0475' 22 201B' SHLD LOPPT
591 0478' 01 000A LXI B,0AH
592 047B' 2A 2013' LHLD LOPVAR
593 047E' EB XCHG
594 047F' 60 MOV H,B
595 0480' 68 MOV L,B
596 0481' 39 DAD SP
597 0482' 3E DB 3EH
598 0483' 09 FR7: DAD B
599 0484' 7E MOV A,M
600 0485' 23 INX H
601 0486' B6 ORA M
602 0487' CA 04A4' JZ FR8
603 048A' 7E MOV A,M
604 048B' 2B DCX H
605 048C' BA CMP D
606 048D' C2 0483' JNZ FR7
607 0490' 7E MOV A,M
608 0491' BB CMP E
609 0492' C2 0483' JNZ FR7
610 0495' EB XCHG
611 0496' 21 0000 LXI H,0
612 0499' 39 DAD SP
613 049A' 44 MOV B,H
614 049B' 4D MOV C,L
615 049C' 21 000A LXI H,0AH
616 049F' 19 DAD D
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-11
617 04A0' CD 08B2' CALL MVDOWN
618 04A3' F9 SPHL
619 04A4' 2A 201B' FR8: LHLD LOPPT
620 04A7' EB XCHG
621 04A8' CD 0276' CALL FINI
622 ;
623 ;NEXT
624 ;
625 04AB' CD 027D' NEXT: CALL TSTV
626 04AE' DA 0777' JC QWHAT
627 04B1' 22 200F' SHLD VARNXT
628 04B4' D5 NX0: PUSH D
629 04B5' EB XCHG
630 04B6' 2A 2013' LHLD LOPVAR
631 04B9' 7C MOV A,H
632 04BA' B5 ORA L
633 04BB' CA 0778' JZ AWHAT
634 04BE' CD 0268' CALL COMP
635 04C1' CA 04CE' JZ NX3
636 04C4' D1 POP D
637 04C5' CD 08C1' CALL POPA
638 04C8' 2A 200F' LHLD VARNXT
639 04CB' C3 04B4' JMP NX0
640 04CE' 5E NX3: MOV E,M
641 04CF' 23 INX H
642 04D0' 56 MOV D,M
643 04D1' 2A 2015' LHLD LOPINC
644 04D4' E5 PUSH H
645 04D5' 7C MOV A,H
646 04D6' AA XRA D
647 04D7' 7A MOV A,D
648 04D8' 19 DAD D
649 04D9' FA 04E0' JM NX4
650 04DC' AC XRA H
651 04DD' FA 0504' JM NX5
652 04E0' EB NX4: XCHG
653 04E1' 2A 2013' LHLD LOPVAR
654 04E4' 73 MOV M,E
655 04E5' 23 INX H
656 04E6' 72 MOV M,D
657 04E7' 2A 2017' LHLD LOPLMT
658 04EA' F1 POP PSW
659 04EB' B7 ORA A
660 04EC' F2 04F0' JP NX1
661 04EF' EB XCHG
662 04F0' CD 073C' NX1: CALL CKHLDE
663 04F3' D1 POP D
664 04F4' DA 0506' JC NX2
665 04F7' 2A 2019' LHLD LOPLN
666 04FA' 22 200B' SHLD CURRNT
667 04FD' 2A 201B' LHLD LOPPT
668 0500' EB XCHG
669 0501' CD 0276' CALL FINI
670 0504' E1 NX5: POP H
671 0505' D1 POP D
672 0506' CD 08C1' NX2: CALL POPA
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-12
673 0509' CD 0276' CALL FINI
674 ;
675 ;REM
676 ;
677 050C' EB REM: XCHG
678 050D' 22 201F' SHLD ARMM
679 0510' EB XCHG
680 0511' 21 0000 LXI H,0
681 0514' C3 052E' JMP IFFR
682 ;
683 ;AREM
684 ;
685 0517' 2A 201F' AREM: LHLD ARMM
686 051A' C9 RET
687 ;
688 ;
689 ;CLEAR
690 ;
691 051B' 21 20B3' CLEAR: LXI H,VARBGN
692 051E' D5 PUSH D
693 051F' 11 0036 LXI D,27*2
694 0522' 0E 00 MVI C,0
695 0524' CD 0D09' CALL NULD20
696 0527' D1 POP D
697 0528' CD 0276' CALL FINI
698 ;
699 ;IF
700 ;
701 052B' CD 05B4' IFF: CALL EXPR
702 052E' 7C IFFR: MOV A,H
703 052F' B5 ORA L
704 0530' C2 032C' JNZ RUNSML
705 0533' CD 0821' CALL FNDSKP
706 0536' D2 0325' JNC RUNTSL
707 0539' C3 004D' JMP RSTART
708 ;
709 ;CHYBA VSTUPU
710 ;
711 053C' 2A 2011' INPERR: LHLD STKINP
712 053F' F9 SPHL
713 0540' E1 POP H
714 0541' 22 200B' SHLD CURRNT
715 0544' D1 POP D
716 0545' D1 POP D
717 ;
718 ;INPUT
719 ;
720 0546' INPUT:
721 0546' D5 IP1: PUSH D
722 0547' CD 0839' CALL QTSTG
723 054A' C3 0556' JMP IP2
724 054D' CD 027D' CALL TSTV
725 0550' DA 0594' JC IP4
726 0553' C3 0568' JMP IP3
727 0556' D5 IP2: PUSH D
728 0557' CD 027D' CALL TSTV
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-13
729 055A' DA 0777' JC QWHAT
730 055D' 1A LDAX D
731 055E' 4F MOV C,A
732 055F' 97 SUB A
733 0560' 12 STAX D
734 0561' D1 POP D
735 0562' CD 082B' CALL PRTSTG
736 0565' 79 MOV A,C
737 0566' 1B DCX D
738 0567' 12 STAX D
739 0568' D5 IP3: PUSH D
740 0569' EB XCHG
741 056A' 2A 200B' LHLD CURRNT
742 056D' E5 PUSH H
743 056E' 21 0546' LXI H,IP1
744 0571' 22 200B' SHLD CURRNT
745 0574' 21 0000 LXI H,0
746 0577' 39 DAD SP
747 0578' 22 2011' SHLD STKINP
748 057B' D5 PUSH D
749 057C' 06 3A MVI B,':'
750 057E' CD 07B3' CALL GETLN
751 0581' CD 095C' CALL DBUFF
752 0584' CD 05B4' CALL EXPR
753 0587' D1 POP D
754 0588' EB XCHG
755 0589' 73 MOV M,E
756 058A' 23 INX H
757 058B' 72 MOV M,D
758 058C' E1 POP H
759 058D' 22 200B' SHLD CURRNT
760 0590' CD 0B06' CALL CONT
761 0593' D1 POP D
762 0594' F1 IP4: POP PSW
763 0595' CD 02B1' CALL TSTC
764 0598' 2C DB ','
765 0599' 03 DB 3
766 059A' C3 0546' JMP IP1
767 059D' CD 0276' CALL FINI
768 05A0' 1A DEFLT: LDAX D
769 05A1' FE 0D CPI 0DH
770 05A3' CA 05B1' JZ LT1
771 ;
772 ;LET
773 ;
774 05A6' CD 0745' LET: CALL SETVAL
775 05A9' CD 02B1' CALL TSTC
776 05AC' 2C DB ','
777 05AD' 03 DB 3
778 05AE' C3 05A6' JMP LET
779 05B1' CD 0276' LT1: CALL FINI
780 ;
781 ;EXPR VYHODNOCENI VYRAZU
782 ;
783 05B4' CD 05FC' EXPR: CALL EXPR2
784 05B7' E5 PUSH H
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-14
785 05B8' 21 024A' EXPR1: LXI H,TAB8-1
786 05BB' C3 092C' JMP EXEC
787 05BE' CD 05E7' XP11: CALL XP18
788 05C1' D8 RC
789 05C2' 6F MOV L,A
790 05C3' C9 RET
791 05C4' CD 05E7' XP12: CALL XP18
792 05C7' C8 RZ
793 05C8' 6F MOV L,A
794 05C9' C9 RET
795 05CA' CD 05E7' XP13: CALL XP18
796 05CD' C8 RZ
797 05CE' D8 RC
798 05CF' 6F MOV L,A
799 05D0' C9 RET
800 05D1' CD 05E7' XP14: CALL XP18
801 05D4' 6F MOV L,A
802 05D5' C8 RZ
803 05D6' D8 RC
804 05D7' 6C MOV L,H
805 05D8' C9 RET
806 05D9' CD 05E7' XP15: CALL XP18
807 05DC' C0 RNZ
808 05DD' 6F MOV L,A
809 05DE' C9 RET
810 05DF' CD 05E7' XP16: CALL XP18
811 05E2' D0 RNC
812 05E3' 6F MOV L,A
813 05E4' C9 RET
814 05E5' E1 XP17: POP H
815 05E6' C9 RET
816 05E7' 79 XP18: MOV A,C
817 05E8' E1 POP H
818 05E9' C1 POP B
819 05EA' E5 PUSH H
820 05EB' C5 PUSH B
821 05EC' 4F MOV C,A
822 05ED' CD 05FC' CALL EXPR2
823 05F0' EB XCHG
824 05F1' E3 XTHL
825 05F2' CD 073C' CALL CKHLDE
826 05F5' D1 POP D
827 05F6' 21 0000 LXI H,0
828 05F9' 3E 01 MVI A,1
829 05FB' C9 RET
830 05FC' CD 02B1' EXPR2: CALL TSTC
831 05FF' 2D DB '-'
832 0600' 06 DB 6
833 0601' 21 0000 LXI H,0
834 0604' C3 062E' JMP XP26
835 0607' CD 02B1' CALL TSTC
836 060A' 2B DB '+'
837 060B' 00 DB 0
838 060C' CD 0638' CALL EXPR3
839 060F' CD 02B1' XP23: CALL TSTC
840 0612' 2B DB '+'
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-15
841 0613' 15 DB 15H
842 0614' E5 PUSH H
843 0615' CD 0638' CALL EXPR3
844 0618' EB XP24: XCHG
845 0619' E3 XTHL
846 061A' 7C MOV A,H
847 061B' AA XRA D
848 061C' 7A MOV A,D
849 061D' 19 DAD D
850 061E' D1 POP D
851 061F' FA 060F' JM XP23
852 0622' AC XRA H
853 0623' F2 060F' JP XP23
854 0626' C3 02EF' JMP QHOW
855 0629' CD 02B1' CALL TSTC
856 062C' 2D DB '-'
857 062D' 92 DB 92H
858 062E' E5 XP26: PUSH H
859 062F' CD 0638' CALL EXPR3
860 0632' CD 0727' CALL CHGSGN
861 0635' C3 0618' JMP XP24
862 0638' CD 069C' EXPR3: CALL EXPR4
863 063B' CD 02B1' XP31: CALL TSTC
864 063E' 2A DB '*'
865 063F' 2D DB 2DH
866 0640' E5 PUSH H
867 0641' CD 069C' CALL EXPR4
868 0644' 06 00 MVI B,0
869 0646' CD 0724' CALL CHKSGN
870 0649' E3 XTHL
871 064A' CD 0724' CALL CHKSGN
872 064D' EB XCHG
873 064E' E3 XTHL
874 064F' 7C MOV A,H
875 0650' B7 ORA A
876 0651' CA 065A' JZ XP32
877 0654' 7A MOV A,D
878 0655' B2 ORA D
879 0656' EB XCHG
880 0657' C2 02F0' JNZ AHOW
881 065A' 7D XP32: MOV A,L
882 065B' 21 0000 LXI H,0
883 065E' B7 ORA A
884 065F' CA 068E' JZ XP35
885 0662' 19 XP33: DAD D
886 0663' DA 02F0' JC AHOW
887 0666' 3D DCR A
888 0667' C2 0662' JNZ XP33
889 066A' C3 068E' JMP XP35
890 066D' CD 02B1' CALL TSTC
891 0670' 2F DB '/'
892 0671' 4E DB 4EH
893 0672' E5 PUSH H
894 0673' CD 069C' CALL EXPR4
895 0676' 06 00 MVI B,0
896 0678' CD 0724' CALL CHKSGN
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-16
897 067B' E3 XTHL
898 067C' CD 0724' CALL CHKSGN
899 067F' EB XCHG
900 0680' E3 XTHL
901 0681' EB XCHG
902 0682' 7A MOV A,D
903 0683' B3 ORA E
904 0684' CA 02F0' JZ AHOW
905 0687' C5 PUSH B
906 0688' CD 0707' CALL DIVIDE
907 068B' 60 MOV H,B
908 068C' 69 MOV L,C
909 068D' C1 POP B
910 068E' D1 XP35: POP D
911 068F' 7C MOV A,H
912 0690' B7 ORA A
913 0691' FA 02EF' JM QHOW
914 0694' 78 MOV A,B
915 0695' B7 ORA A
916 0696' FC 0727' CM CHGSGN
917 0699' C3 063B' JMP XP31
918 069C' 21 01EA' EXPR4: LXI H,TAB4-1
919 069F' C3 092C' JMP EXEC
920 06A2' CD 027D' XP40: CALL TSTV
921 06A5' DA 06AD' JC XP41
922 06A8' 7E MOV A,M
923 06A9' 23 INX H
924 06AA' 66 MOV H,M
925 06AB' 6F MOV L,A
926 06AC' C9 RET
927 06AD' CD 02C5' XP41: CALL TSTNUM
928 06B0' 78 MOV A,B
929 06B1' B7 ORA A
930 06B2' C0 RNZ
931 06B3' CD 02B1' PARN: CALL TSTC
932 06B6' 28 DB '('
933 06B7' 09 DB 09
934 06B8' CD 05B4' CALL EXPR
935 06BB' CD 02B1' CALL TSTC
936 06BE' 29 DB ')'
937 06BF' 01 DB 1
938 06C0' C9 RET
939 06C1' C3 0777' JMP QWHAT
940 ;
941 ;RND
942 ;
943 06C4' CD 06B3' RND: CALL PARN
944 06C7' 7C MOV A,H
945 06C8' B7 ORA A
946 06C9' FA 02EF' JM QHOW
947 06CC' B5 ORA L
948 06CD' CA 02EF' JZ QHOW
949 06D0' D5 PUSH D
950 06D1' E5 PUSH H
951 06D2' 2A 201D' LHLD RANPNT
952 06D5' 11 0FF3' LXI D,CONTE
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-17
953 06D8' CD 0268' CALL COMP
954 06DB' DA 06E1' JC RA1
955 06DE' 21 0268' LXI H,COMP
956 06E1' 5E RA1: MOV E,M
957 06E2' 23 INX H
958 06E3' 56 MOV D,M
959 06E4' 22 201D' SHLD RANPNT
960 06E7' E1 POP H
961 06E8' EB XCHG
962 06E9' C5 PUSH B
963 06EA' CD 0707' CALL DIVIDE
964 06ED' C1 POP B
965 06EE' D1 POP D
966 06EF' 23 INX H
967 06F0' C9 RET
968 ;
969 ;ABS
970 ;
971 06F1' CD 06B3' ABS: CALL PARN
972 06F4' 1B DCX D
973 06F5' CD 0724' CALL CHKSGN
974 06F8' 13 INX D
975 06F9' C9 RET
976 ;
977 ;SIZE
978 ;
979 06FA' 2A 2024' SIZE: LHLD TXTUNF
980 06FD' D5 PUSH D
981 06FE' EB XCHG
982 06FF' 2A 20E9' LHLD TXTEND
983 0702' CD 071D' CALL SUBDE
984 0705' D1 POP D
985 0706' C9 RET
986 ;
987 ;DIVIE
988 ;
989 0707' E5 DIVIDE: PUSH H
990 0708' 6C MOV L,H
991 0709' 26 00 MVI H,0
992 070B' CD 0712' CALL DV1
993 070E' 41 MOV B,C
994 070F' 7D MOV A,L
995 0710' E1 POP H
996 0711' 67 MOV H,A
997 0712' 0E FF DV1: MVI C,0FFH
998 0714' 0C DV2: INR C
999 0715' CD 071D' CALL SUBDE
1000 0718' D2 0714' JNC DV2
1001 071B' 19 DAD D
1002 071C' C9 RET
1003 071D' 7D SUBDE: MOV A,L
1004 071E' 93 SUB E
1005 071F' 6F MOV L,A
1006 0720' 7C MOV A,H
1007 0721' 9A SBB D
1008 0722' 67 MOV H,A
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-18
1009 0723' C9 RET
1010 ;
1011 0724' 7C CHKSGN: MOV A,H
1012 0725' B7 ORA A
1013 0726' F0 RP
1014 0727' 7C CHGSGN: MOV A,H
1015 0728' B5 ORA L
1016 0729' C8 RZ
1017 072A' 7C MOV A,H
1018 072B' F5 PUSH PSW
1019 072C' 2F CMA
1020 072D' 67 MOV H,A
1021 072E' 7D MOV A,L
1022 072F' 2F CMA
1023 0730' 6F MOV L,A
1024 0731' 23 INX H
1025 0732' F1 POP PSW
1026 0733' AC XRA H
1027 0734' F2 02EF' JP QHOW
1028 0737' 78 MOV A,B
1029 0738' EE 80 XRI 80H
1030 073A' 47 MOV B,A
1031 073B' C9 RET
1032 ;
1033 073C' 7C CKHLDE: MOV A,H
1034 073D' AA XRA D
1035 073E' F2 0742' JP CK1
1036 0741' EB XCHG
1037 0742' C3 0268' CK1: JMP COMP
1038 ;
1039 ;SETVAL
1040 ;
1041 0745' CD 027D' SETVAL: CALL TSTV
1042 0748' DA 0777' JC QWHAT
1043 074B' E5 PUSH H
1044 074C' CD 02B1' CALL TSTC
1045 074F' 3D DB '='
1046 0750' 0A DB 0AH
1047 0751' CD 05B4' CALL EXPR
1048 0754' 44 MOV B,H
1049 0755' 4D MOV C,L
1050 0756' E1 POP H
1051 0757' 71 MOV M,C
1052 0758' 23 INX H
1053 0759' 70 MOV M,B
1054 075A' C9 RET
1055 075B' C3 0777' JMP QWHAT
1056 ;
1057 ;FIN
1058 ;
1059 075E' CD 02B1' FIN: CALL TSTC
1060 0761' 3A DB ':'
1061 0762' 04 DB 4
1062 0763' F1 POP PSW
1063 0764' C3 032C' JMP RUNSML
1064 0767' CD 02B1' CALL TSTC
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-19
1065 076A' 0D DB 0DH
1066 076B' 04 DB 4
1067 076C' F1 POP PSW
1068 076D' C3 031C' JMP RUNNXL
1069 0770' C9 RET
1070 ;
1071 ;ENDCHK
1072 ;
1073 0771' CD 026E' ENDCHK: CALL IGNB
1074 0774' FE 0D CPI 0DH
1075 0776' C8 RZ
1076 0777' D5 QWHAT: PUSH D
1077 0778' 11 0301' AWHAT: LXI D,WHAT
1078 077B' 97 ERROR: SUB A
1079 077C' 32 2023' STA MODE
1080 077F' CD 082B' CALL PRTSTG
1081 0782' CD 0C5C' CALL DISP
1082 0785' D1 POP D
1083 0786' 1A LDAX D
1084 0787' F5 PUSH PSW
1085 0788' 97 SUB A
1086 0789' 12 STAX D
1087 078A' 2A 200B' LHLD CURRNT
1088 078D' E5 PUSH H
1089 078E' 7E MOV A,M
1090 078F' 23 INX H
1091 0790' B6 ORA M
1092 0791' D1 POP D
1093 0792' CA 004D' JZ RSTART
1094 0795' 7E MOV A,M
1095 0796' B7 ORA A
1096 0797' FA 053C' JM INPERR
1097 079A' CD 0892' CALL PRTLN
1098 079D' 1B DCX D
1099 079E' F1 POP PSW
1100 079F' 12 STAX D
1101 07A0' 3E 3F MVI A,3FH
1102 07A2' CD 0908' CALL OUTC
1103 07A5' 97 SUB A
1104 07A6' CD 082B' CALL PRTSTG
1105 07A9' C3 004D' JMP RSTART
1106 07AC' D5 QSORRY: PUSH D
1107 07AD' 11 0307' ASORRY: LXI D,SORRY
1108 07B0' C3 077B' JMP ERROR
1109 ;
1110 ;GETLN
1111 ;
1112 07B3' 78 GETLN: MOV A,B
1113 07B4' CD 0908' CALL OUTC
1114 07B7' CD 095C' CALL DBUFF
1115 07BA' CD 0D6A' GL1: CALL CI
1116 07BD' FE 08 CPI 8
1117 07BF' CA 07D9' JZ GL3
1118 07C2' FE 7F CPI 7FH
1119 07C4' CA 07E9' JZ GL4
1120 07C7' CD 0908' CALL OUTC
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-20
1121 07CA' 12 STAX D
1122 07CB' 13 INX D
1123 07CC' FE 0D CPI 0DH
1124 07CE' C8 RZ
1125 07CF' 7B MOV A,E
1126 07D0' E5 CXBUFE: PUSH H
1127 07D1' 2A 20ED' LHLD BUFEND
1128 07D4' BD CMP L
1129 07D5' E1 POP H
1130 07D6' C2 07BA' JNZ GL1
1131 07D9' 7B GL3: MOV A,E
1132 07DA' E5 CXBUFA: PUSH H
1133 07DB' 2A 20EB' LHLD BUFFER
1134 07DE' BD CMP L
1135 07DF' E1 POP H
1136 07E0' CA 07E9' JZ GL4
1137 07E3' CD 07F1' CALL GL5
1138 07E6' C3 07BA' JMP GL1
1139 07E9' CD 0906' GL4: CALL CRLF
1140 07EC' 06 3E MVI B,'>'
1141 07EE' C3 07B3' JMP GETLN
1142 07F1' 1B GL5: DCX D
1143 07F2' 3E 08 MVI A,8
1144 07F4' CD 0908' CALL OUTC
1145 07F7' 3E 20 MVI A,' '
1146 07F9' CD 0908' CALL OUTC
1147 07FC' 3E 08 MVI A,8
1148 07FE' C3 0908' JMP OUTC
1149 ;
1150 ;FNDLN
1151 ;
1152 0801' 7C FNDLN: MOV A,H
1153 0802' B7 ORA A
1154 0803' FA 02EF' JM QHOW
1155 0806' 11 20EF' LXI D,TXTBGN
1156 0809' E5 FNDLP: PUSH H
1157 080A' 2A 2024' LHLD TXTUNF
1158 080D' 2B DCX H
1159 080E' CD 0268' CALL COMP
1160 0811' E1 POP H
1161 0812' D8 RC
1162 0813' 1A LDAX D
1163 0814' 95 SUB L
1164 0815' 47 MOV B,A
1165 0816' 13 INX D
1166 0817' 1A LDAX D
1167 0818' 9C SBB H
1168 0819' DA 0820' JC FL2
1169 081C' 1B DCX D
1170 081D' B0 ORA B
1171 081E' C9 RET
1172 ;
1173 ;FNDNXT
1174 ;
1175 081F' 13 FNDNXT: INX D
1176 0820' 13 FL2: INX D
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-21
1177 0821' 1A FNDSKP: LDAX D
1178 0822' FE 0D CPI 0DH
1179 0824' C2 0820' JNZ FL2
1180 0827' 13 INX D
1181 0828' C3 0809' JMP FNDLP
1182 ;
1183 ;PRTSTG
1184 ;
1185 082B' 47 PRTSTG: MOV B,A
1186 082C' 1A PS1: LDAX D
1187 082D' 13 INX D
1188 082E' B8 CMP B
1189 082F' C8 RZ
1190 0830' CD 0908' CALL OUTC
1191 0833' FE 0D CPI 0DH
1192 0835' C2 082C' JNZ PS1
1193 0838' C9 RET
1194 ;
1195 ;QTSTG
1196 ;
1197 0839' CD 02B1' QTSTG: CALL TSTC
1198 083C' 22 DB '"'
1199 083D' 0F DB 0FH
1200 083E' 3E 22 MVI A,'"'
1201 0840' CD 082B' QT1: CALL PRTSTG
1202 0843' FE 0D CPI 0DH
1203 0845' E1 POP H
1204 0846' CA 03BF' JZ PR6
1205 0849' 23 QT2: INX H
1206 084A' 23 INX H
1207 084B' 23 INX H
1208 084C' E9 PCHL
1209 084D' C9 RET
1210 ;
1211 ;PRTNUM
1212 ;
1213 084E' 06 00 PRTNUM: MVI B,0
1214 0850' CD 0724' CALL CHKSGN
1215 0853' F2 0859' JP PN1
1216 0856' 06 2D MVI B,2DH
1217 0858' 0D DCR C
1218 0859' D5 PN1: PUSH D
1219 085A' 11 000A LXI D,0AH
1220 085D' D5 PUSH D
1221 085E' 0D DCR C
1222 085F' C5 PUSH B
1223 0860' CD 0707' PN2: CALL DIVIDE
1224 0863' 78 MOV A,B
1225 0864' B1 ORA C
1226 0865' CA 0870' JZ PN3
1227 0868' E3 XTHL
1228 0869' 2D DCR L
1229 086A' E5 PUSH H
1230 086B' 60 MOV H,B
1231 086C' 69 MOV L,C
1232 086D' C3 0860' JMP PN2
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-22
1233 0870' C1 PN3: POP B
1234 0871' 0D PN4: DCR C
1235 0872' 79 MOV A,C
1236 0873' B7 ORA A
1237 0874' FA 087F' JM PN5
1238 0877' 3E 20 MVI A,20H
1239 0879' CD 0908' CALL OUTC
1240 087C' C3 0871' JMP PN4
1241 087F' 78 PN5: MOV A,B
1242 0880' B7 ORA A
1243 0881' C4 0908' CNZ OUTC
1244 0884' 5D MOV E,L
1245 0885' 7B PN6: MOV A,E
1246 0886' FE 0A CPI 0AH
1247 0888' D1 POP D
1248 0889' C8 RZ
1249 088A' C6 30 ADI 30H
1250 088C' CD 0908' CALL OUTC
1251 088F' C3 0885' JMP PN6
1252 ;
1253 ;PRTLN
1254 ;
1255 0892' 1A PRTLN: LDAX D
1256 0893' 6F MOV L,A
1257 0894' 13 INX D
1258 0895' 1A LDAX D
1259 0896' 67 MOV H,A
1260 0897' 13 INX D
1261 0898' 0E 04 MVI C,4
1262 089A' CD 084E' CALL PRTNUM
1263 089D' 3E 20 MVI A,20H
1264 089F' CD 0908' CALL OUTC
1265 08A2' 97 SUB A
1266 08A3' CD 082B' CALL PRTSTG
1267 08A6' C9 RET
1268 ;
1269 ;MVUP
1270 ;
1271 08A7' CD 0268' MVUP: CALL COMP
1272 08AA' C8 RZ
1273 08AB' 1A LDAX D
1274 08AC' 02 STAX B
1275 08AD' 13 INX D
1276 08AE' 03 INX B
1277 08AF' C3 08A7' JMP MVUP
1278 ;
1279 ;MVDOWN
1280 ;
1281 08B2' 78 MVDOWN: MOV A,B
1282 08B3' 92 SUB D
1283 08B4' C2 08BA' JNZ MD1
1284 08B7' 79 MOV A,C
1285 08B8' 93 SUB E
1286 08B9' C8 RZ
1287 08BA' 1B MD1: DCX D
1288 08BB' 2B DCX H
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-23
1289 08BC' 1A LDAX D
1290 08BD' 77 MOV M,A
1291 08BE' C3 08B2' JMP MVDOWN
1292 ;
1293 ;POPA
1294 ;
1295 08C1' C1 POPA: POP B
1296 08C2' E1 POP H
1297 08C3' 22 2013' SHLD LOPVAR
1298 08C6' 7C MOV A,H
1299 08C7' B5 ORA L
1300 08C8' CA 08DB' JZ PP1
1301 08CB' E1 POP H
1302 08CC' 22 2015' SHLD LOPINC
1303 08CF' E1 POP H
1304 08D0' 22 2017' SHLD LOPLMT
1305 08D3' E1 POP H
1306 08D4' 22 2019' SHLD LOPLN
1307 08D7' E1 POP H
1308 08D8' 22 201B' SHLD LOPPT
1309 08DB' C5 PP1: PUSH B
1310 08DC' C9 RET
1311 ;
1312 ;PUSHA
1313 ;
1314 08DD' 21 204E' PUSHA: LXI H,STKLMT
1315 08E0' CD 0727' CALL CHGSGN
1316 08E3' C1 POP B
1317 08E4' 39 DAD SP
1318 08E5' D2 07AC' JNC QSORRY
1319 08E8' 2A 2013' LHLD LOPVAR
1320 08EB' 7C MOV A,H
1321 08EC' B5 ORA L
1322 08ED' CA 0903' JZ PU1
1323 08F0' 2A 201B' LHLD LOPPT
1324 08F3' E5 PUSH H
1325 08F4' 2A 2019' LHLD LOPLN
1326 08F7' E5 PUSH H
1327 08F8' 2A 2017' LHLD LOPLMT
1328 08FB' E5 PUSH H
1329 08FC' 2A 2015' LHLD LOPINC
1330 08FF' E5 PUSH H
1331 0900' 2A 2013' LHLD LOPVAR
1332 0903' E5 PU1: PUSH H
1333 0904' C5 PUSH B
1334 0905' C9 RET
1335 ;
1336 ;CRLF , OUTC
1337 ;
1338 0906' 3E 0D CRLF: MVI A,0DH
1339 0908' F5 OUTC: PUSH PSW
1340 0909' FE 0D CPI 0DH
1341 090B' CA 0913' JZ LINEF
1342 090E' CD 2007' CALL CO
1343 0911' F1 H2: POP PSW
1344 0912' C9 RET
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-24
1345 0913' CD 0919' LINEF: CALL CROUT
1346 0916' C3 0911' JMP H2
1347 0919' 3E 0D CROUT: MVI A,0DH
1348 091B' CD 2007' CALL CO
1349 091E' 3E 0A MVI A,0AH
1350 0920' C3 2007' JMP CO
1351 ;
1352 ;NULOVANI DISPLEJE
1353 ;
1354 0923' CD 0CF4' CLS: CALL NULDIS
1355 0926' CD 0276' CALL FINI
1356 ;
1357 ;DIRECT MODUL
1358 ;
1359 0929' 21 00DB' DIRECT: LXI H,TAB1-1
1360 092C' CD 026E' EXEC: CALL IGNB
1361 092F' D5 PUSH D
1362 0930' 1A EX1: LDAX D
1363 0931' 13 INX D
1364 0932' FE 2E CPI '.'
1365 0934' CA 094E' JZ EX3
1366 0937' 23 INX H
1367 0938' BE CMP M
1368 0939' CA 0930' JZ EX1
1369 093C' 3E 00 MVI A,0
1370 093E' 1B DCX D
1371 093F' BE CMP M
1372 0940' CA 0955' JZ EX5
1373 0943' 23 EX2: INX H
1374 0944' BE CMP M
1375 0945' C2 0943' JNZ EX2
1376 0948' 23 INX H
1377 0949' 23 INX H
1378 094A' D1 POP D
1379 094B' C3 092C' JMP EXEC
1380 094E' 3E 00 EX3: MVI A,0
1381 0950' 23 EX4: INX H
1382 0951' BE CMP M
1383 0952' C2 0950' JNZ EX4
1384 0955' 23 EX5: INX H
1385 0956' 7E MOV A,M
1386 0957' 23 INX H
1387 0958' 66 MOV H,M
1388 0959' 6F MOV L,A
1389 095A' F1 POP PSW
1390 095B' E9 PCHL
1391 ;
1392 ;DBUFF
1393 ;
1394 095C' E5 DBUFF: PUSH H
1395 095D' 2A 20EB' LHLD BUFFER
1396 0960' 54 MOV D,H
1397 0961' 5D MOV E,L
1398 0962' E1 POP H
1399 0963' C9 RET
1400 0964' E5 DTXTE: PUSH H
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-25
1401 0965' 2A 20E9' LHLD TXTEND
1402 0968' 54 MOV D,H
1403 0969' 5D MOV E,L
1404 096A' E1 POP H
1405 096B' C9 RET
1406 ;
1407 ;MASKA
1408 ;
1409 096C' CD 05B4' MASK: CALL EXPR
1410 096F' 7D MOV A,L
1411 0970' 32 200A' STA MASKIN
1412 0973' CD 0276' CALL FINI
1413 ;
1414 ;RAM
1415 ;
1416 0976' CD 05B4' RAM: CALL EXPR
1417 0979' EB XCHG
1418 097A' 21 23AB' LXI H,TXTE
1419 097D' EB XCHG
1420 097E' CD 0268' CALL COMP
1421 0981' DA 07AD' JC ASORRY
1422 0984' 7C MOV A,H
1423 0985' B7 ORA A
1424 0986' FA 07AD' JM ASORRY
1425 0989' 7E MOV A,M
1426 098A' 2F CMA
1427 098B' 77 MOV M,A
1428 098C' 46 MOV B,M
1429 098D' B8 CMP B
1430 098E' C2 07AD' JNZ ASORRY
1431 0991' 22 20ED' SHLD BUFEND
1432 0994' 7D MOV A,L
1433 0995' D6 40 SUI 64
1434 0997' 6F MOV L,A
1435 0998' 7C MOV A,H
1436 0999' DE 00 SBI 0
1437 099B' 67 MOV H,A
1438 099C' 22 20EB' SHLD BUFFER
1439 099F' 2B DCX H
1440 09A0' 2B DCX H
1441 09A1' C3 004A' JMP START1
1442 ;
1443 ;CALL
1444 ;
1445 09A4' CD 05B4' BCALL: CALL EXPR
1446 09A7' D5 PUSH D
1447 09A8' 01 09AD' LXI B,HERE
1448 09AB' C5 PUSH B
1449 09AC' E9 PCHL
1450 09AD' D1 HERE: POP D
1451 09AE' CD 0276' CALL FINI
1452 ;
1453 ;OUT
1454 ;
1455 09B1' CD 05B4' BOUT: CALL EXPR
1456 09B4' E5 PUSH H
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-26
1457 09B5' CD 02B1' CALL TSTC
1458 09B8' 2C DB ','
1459 09B9' 1A DB 1AH
1460 09BA' CD 05B4' CALL EXPR
1461 09BD' 45 MOV B,L
1462 09BE' 3E D3 MVI A,0D3H
1463 09C0' 32 2003' STA IOBUFA
1464 09C3' E1 POP H
1465 09C4' 7D MOV A,L
1466 09C5' 32 2004' STA IOBUFB
1467 09C8' 3E C9 MVI A,0C9H
1468 09CA' 32 2005' STA IOBUFC
1469 09CD' 78 MOV A,B
1470 09CE' CD 2003' CALL IOBUFA
1471 09D1' CD 0276' CALL FINI
1472 09D4' C3 0777' JMP QWHAT
1473 ;
1474 ;WAIT
1475 ;
1476 09D7' CD 05B4' WAIT: CALL EXPR
1477 09DA' D5 PUSH D
1478 09DB' 26 64 WAIT1: MVI H,100
1479 09DD' CD 09F4' CALL WAIT2
1480 09E0' 2D DCR L
1481 09E1' C2 09DB' JNZ WAIT1
1482 09E4' D1 POP D
1483 09E5' CD 0276' CALL FINI
1484 ;
1485 ;BEEP
1486 ;
1487 09E8' CD 05B4' BEEP: CALL EXPR
1488 09EB' D5 PUSH D
1489 09EC' EB BEEP1: XCHG
1490 09ED' CD 0E69' CALL PIPO10
1491 09F0' D1 POP D
1492 09F1' CD 0276' CALL FINI
1493 09F4' 16 64 WAIT2: MVI D,64H
1494 09F6' 15 WAIT3: DCR D
1495 09F7' C2 09F6' JNZ WAIT3
1496 09FA' 25 DCR H
1497 09FB' C8 RZ
1498 09FC' C3 09F4' JMP WAIT2
1499 ;
1500 ;TAB
1501 ;
1502 09FF' CD 06B3' TAB: CALL PARN
1503 0A02' 7C A1: MOV A,H
1504 0A03' B5 ORA L
1505 0A04' CC 0276' CZ FINI
1506 0A07' 2B DCX H
1507 0A08' 3E 20 MVI A,20H
1508 0A0A' CD 2007' CALL CO
1509 0A0D' C3 0A02' JMP A1
1510 ;
1511 ;IN , INM
1512 ;
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-27
1513 0A10' CD 0A1F' BIN: CALL INEM
1514 0A13' 6F MOV L,A
1515 0A14' C9 RET
1516 0A15' CD 0A1F' INM: CALL INEM
1517 0A18' 6F MOV L,A
1518 0A19' 3A 200A' LDA MASKIN
1519 0A1C' A5 ANA L
1520 0A1D' 6F MOV L,A
1521 0A1E' C9 RET
1522 0A1F' CD 06B3' INEM: CALL PARN
1523 0A22' E5 PUSH H
1524 0A23' 3E DB MVI A,0DBH
1525 0A25' 32 2003' STA IOBUFA
1526 0A28' E1 POP H
1527 0A29' 7D MOV A,L
1528 0A2A' 32 2004' STA IOBUFB
1529 0A2D' 3E C9 MVI A,0C9H
1530 0A2F' 32 2005' STA IOBUFC
1531 0A32' CD 2003' CALL IOBUFA
1532 0A35' 26 00 MVI H,0
1533 0A37' C9 RET
1534 ;
1535 ;O$
1536 ;
1537 0A38' CD 05B4' O: CALL EXPR
1538 0A3B' D5 PUSH D
1539 0A3C' EB XCHG
1540 0A3D' AF XRA A
1541 0A3E' CD 082B' CALL PRTSTG
1542 0A41' D1 ZZZ4: POP D
1543 0A42' CD 0276' CALL FINI
1544 ;
1545 ;I$
1546 ;
1547 0A45' CD 05B4' I: CALL EXPR
1548 0A48' D5 PUSH D
1549 0A49' EB XCHG
1550 0A4A' 2A 2024' LHLD TXTUNF
1551 0A4D' EB XCHG
1552 0A4E' CD 0268' CALL COMP
1553 0A51' DA 07AD' JC ASORRY
1554 0A54' CD 095C' CALL DBUFF
1555 0A57' CD 07BA' CALL GL1
1556 0A5A' 44 MOV B,H
1557 0A5B' 4D MOV C,L
1558 0A5C' EB XCHG
1559 0A5D' 2B DCX H
1560 0A5E' CD 095C' CALL DBUFF
1561 0A61' D5 PUSH D
1562 0A62' CD 08A7' CALL MVUP
1563 0A65' AF XRA A
1564 0A66' 02 STAX B
1565 0A67' D1 POP D
1566 0A68' 23 INX H
1567 0A69' CD 071D' CALL SUBDE
1568 0A6C' EB XCHG
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-28
1569 0A6D' 21 2001' LXI H,LEGT
1570 0A70' 73 MOV M,E
1571 0A71' 23 INX H
1572 0A72' 72 MOV M,D
1573 0A73' C3 0A41' JMP ZZZ4
1574 ;
1575 ;PEEK
1576 ;
1577 0A76' CD 06B3' PEEK: CALL PARN
1578 0A79' 6E MOV L,M
1579 0A7A' 26 00 MVI H,0
1580 0A7C' C9 RET
1581 ;
1582 ;POKE
1583 ;
1584 0A7D' CD 05B4' POKE: CALL EXPR
1585 0A80' E5 PUSH H
1586 0A81' CD 02B1' CALL TSTC
1587 0A84' 2C DB ','
1588 0A85' 09 DB 9
1589 0A86' CD 05B4' CALL EXPR
1590 0A89' 7D MOV A,L
1591 0A8A' E1 POP H
1592 0A8B' 77 MOV M,A
1593 0A8C' CD 0276' CALL FINI
1594 0A8F' C3 0777' JMP QWHAT
1595 ;
1596 ;BYTE
1597 ;
1598 0A92' CD 06B3' BYTE: CALL PARN
1599 0A95' 7D MOV A,L
1600 0A96' CD 0AA5' CALL WRIT2
1601 0A99' CD 0276' CALL FINI
1602 ;
1603 ;WORD
1604 ;
1605 0A9C' CD 06B3' WORD: CALL PARN
1606 0A9F' CD 0E73' CALL PRHL
1607 0AA2' CD 0276' CALL FINI
1608 ;
1609 0AA5' F5 WRIT2: PUSH PSW
1610 0AA6' 0F RRC
1611 0AA7' 0F RRC
1612 0AA8' 0F RRC
1613 0AA9' 0F RRC
1614 0AAA' CD 0AAE' CALL IST
1615 0AAD' F1 POP PSW
1616 0AAE' E6 0F IST: ANI 0FH
1617 0AB0' C6 90 ADI 90H
1618 0AB2' 27 DAA
1619 0AB3' CE 40 ACI 40H
1620 0AB5' 27 DAA
1621 0AB6' C3 0908' JMP OUTC
1622 ;
1623 ;QUOTE
1624 ;
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-29
1625 0AB9' 1A QUOTE: LDAX D
1626 0ABA' 13 INX D
1627 0ABB' 6F MOV L,A
1628 0ABC' 26 00 MVI H,0
1629 0ABE' CD 02B1' CALL TSTC
1630 0AC1' 27 DB 27H
1631 0AC2' 01 DB 1
1632 0AC3' C9 RET
1633 0AC4' C3 0777' JMP QWHAT
1634 ;
1635 ;OUTCHAR
1636 ;
1637 0AC7' CD 05B4' OUTCHR: CALL EXPR
1638 0ACA' 7D MOV A,L
1639 0ACB' CD 2007' CALL CO
1640 0ACE' CD 0276' CALL FINI
1641 ;
1642 ;INCHAR
1643 ;
1644 0AD1' CD 0D6A' INCHAR: CALL CI
1645 0AD4' 26 00 MVI H,0
1646 0AD6' 6F MOV L,A
1647 0AD7' C9 RET
1648 ;
1649 ;HEX
1650 ;
1651 0AD8' C5 HEX: PUSH B
1652 0AD9' 21 0000 LXI H,0
1653 0ADC' CD 02B1' CALL TSTC
1654 0ADF' 28 DB '('
1655 0AE0' 1D DB 1DH
1656 0AE1' 1A HNXTH: LDAX D
1657 0AE2' FE 0D CPI 0DH
1658 0AE4' CA 0777' JZ QWHAT
1659 0AE7' CD 0E94' CALL NIBBLE
1660 0AEA' DA 0777' JC QWHAT
1661 0AED' 29 DAD H
1662 0AEE' 29 DAD H
1663 0AEF' 29 DAD H
1664 0AF0' 29 DAD H
1665 0AF1' 06 00 MVI B,0
1666 0AF3' 4F MOV C,A
1667 0AF4' 09 DAD B
1668 0AF5' 13 INX D
1669 0AF6' CD 02B1' CALL TSTC
1670 0AF9' 29 DB ')'
1671 0AFA' 03 DB 3
1672 0AFB' C3 0B04' JMP POPRET
1673 0AFE' C3 0AE1' JMP HNXTH
1674 0B01' C3 0777' JMP QWHAT
1675 0B04' C1 POPRET: POP B
1676 0B05' C9 RET
1677 ;
1678 ;TEST TLACITKA BREAK
1679 ;
1680 0B06' 3A 2800 CONT: LDA 2800H
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-30
1681 0B09' 07 RLC
1682 0B0A' D8 RC
1683 0B0B' C3 0B11' JMP BREAK
1684 0B0E' CD 0771' STOP: CALL ENDCHK
1685 0B11' 2A 200B' BREAK: LHLD CURRNT
1686 0B14' EB XCHG
1687 0B15' CD 0906' CALL CRLF
1688 0B18' 3E 2A MVI A,'*'
1689 0B1A' CD 0908' CALL OUTC
1690 0B1D' CD 0892' CALL PRTLN
1691 0B20' C3 004D' JMP RSTART
1692 ;
1693 ;*******************************************
1694 ;
1695 ; KAZETOVY MAGNETOFON , TISKARNA
1696 ;
1697 ;*****************************************
1698 0B23' 3E 38 LOAD: MVI A,38H
1699 0B25' D3 10 OUT 10H
1700 0B27' 3E FF MVI A,0FFH
1701 0B29' D3 11 OUT 11H
1702 0B2B' DB 12 LOAD40: IN 12H
1703 0B2D' 06 00 MVI B,0
1704 0B2F' DB 11 LOAD30: IN 11H
1705 0B31' E6 80 ANI 80H
1706 0B33' C2 0B2B' JNZ LOAD40
1707 0B36' 78 LOAD10: MOV A,B
1708 0B37' FE FF CPI 0FFH
1709 0B39' CA 0B44' JZ LOAD20
1710 0B3C' CD 0B88' CALL SEC1
1711 0B3F' 06 FF MVI B,0FFH
1712 0B41' C3 0B2F' JMP LOAD30
1713 0B44' 3E 2A LOAD20: MVI A,'*'
1714 0B46' CD 2007' CALL CO
1715 0B49' CD 0BA5' CALL PIN
1716 0B4C' FE 42 CPI 'B'
1717 0B4E' C2 0B2B' JNZ LOAD40
1718 0B51' 06 00 MVI B,0
1719 0B53' CD 0BA5' CALL PIN
1720 0B56' CD 2007' LOAD5: CALL CO
1721 0B59' CD 0BA5' CALL PIN
1722 0B5C' FE 0D CPI 0DH
1723 0B5E' C2 0B56' JNZ LOAD5
1724 0B61' CD 0BA5' CALL PIN
1725 0B64' 5F MOV E,A
1726 0B65' CD 0BA5' CALL PIN
1727 0B68' 57 MOV D,A
1728 0B69' 21 20EF' LXI H,TXTBGN
1729 0B6C' CD 0268' LOAD4: CALL COMP
1730 0B6F' CA 0B7A' JZ LOAD3
1731 0B72' CD 0BA5' CALL PIN
1732 0B75' 77 MOV M,A
1733 0B76' 23 INX H
1734 0B77' C3 0B6C' JMP LOAD4
1735 0B7A' 48 LOAD3: MOV C,B
1736 0B7B' CD 0BA5' CALL PIN
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-31
1737 0B7E' B9 CMP C
1738 0B7F' C2 0BE1' JNZ TPERR
1739 0B82' 22 2024' SHLD TXTUNF
1740 0B85' C3 0BDA' JMP SAVE3
1741 0B88' 2E 14 SEC1: MVI L,20
1742 0B8A' 11 DB 11H
1743 0B8B' 2E 6E SEC3: MVI L,110
1744 0B8D' 26 64 SEC31: MVI H,100
1745 0B8F' CD 09F4' CALL WAIT2
1746 0B92' 2D DCR L
1747 0B93' C2 0B8D' JNZ SEC31
1748 0B96' C9 RET
1749 ;
1750 ;
1751 ;
1752 0B97' F5 TOUT: PUSH PSW
1753 0B98' 80 ADD B
1754 0B99' 47 MOV B,A
1755 0B9A' F1 POP PSW
1756 0B9B' D3 12 OUT 12H
1757 0B9D' DB 11 TOUT1: IN 11H
1758 0B9F' E6 40 ANI 40H
1759 0BA1' CA 0B9D' JZ TOUT1
1760 0BA4' C9 RET
1761 ;
1762 ;
1763 ;
1764 0BA5' DB 11 PIN: IN 11H
1765 0BA7' E6 80 ANI 80H
1766 0BA9' CA 0BA5' JZ PIN
1767 0BAC' DB 12 IN 12H
1768 0BAE' F5 PUSH PSW
1769 0BAF' 80 ADD B
1770 0BB0' 47 MOV B,A
1771 0BB1' F1 POP PSW
1772 0BB2' C9 RET
1773 ;
1774 ;SAVE
1775 ;
1776 0BB3' CD 0BF4' SAVE: CALL LABEL
1777 0BB6' 2A 2024' LHLD TXTUNF
1778 0BB9' 7D MOV A,L
1779 0BBA' CD 0B97' CALL TOUT
1780 0BBD' 7C MOV A,H
1781 0BBE' CD 0B97' CALL TOUT
1782 0BC1' EB XCHG
1783 0BC2' 21 20EF' LXI H,TXTBGN
1784 0BC5' CD 0268' SAVE1: CALL COMP
1785 0BC8' CA 0BD3' JZ SAVE2
1786 0BCB' 7E MOV A,M
1787 0BCC' CD 0B97' CALL TOUT
1788 0BCF' 23 INX H
1789 0BD0' C3 0BC5' JMP SAVE1
1790 0BD3' 78 SAVE2: MOV A,B
1791 0BD4' CD 0B97' CALL TOUT
1792 0BD7' CD 0B88' CALL SEC1
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-32
1793 0BDA' 3E 10 SAVE3: MVI A,10H
1794 0BDC' D3 10 OUT 10H
1795 0BDE' C3 004D' JMP RSTART
1796 ;
1797 ;TAPE ERROR
1798 ;
1799 0BE1' CD 0906' TPERR: CALL CRLF
1800 0BE4' 11 0BEE' LXI D,TPER
1801 0BE7' 97 SUB A
1802 0BE8' CD 082B' CALL PRTSTG
1803 0BEB' C3 004D' JMP RSTART
1804 0BEE' 45 52 52 4F TPER: DB 'ERROR',0
1805 0BF2' 52 00
1806 ;
1807 ;VSTUP LABELU
1808 ;
1809 0BF4' 11 0C22' LABEL: LXI D,TLAB
1810 0BF7' 97 SUB A
1811 0BF8' CD 082B' CALL PRTSTG
1812 0BFB' 06 3D MVI B,'='
1813 0BFD' CD 07B3' CALL GETLN
1814 0C00' 3E 30 MVI A,30H
1815 0C02' D3 10 OUT 10H
1816 0C04' 3E FF MVI A,0FFH
1817 0C06' D3 11 OUT 11H
1818 0C08' CD 0B8B' CALL SEC3
1819 0C0B' 3E 42 MVI A,'B'
1820 0C0D' CD 0B97' CALL TOUT
1821 0C10' CD 095C' CALL DBUFF
1822 0C13' 06 00 MVI B,0
1823 0C15' 1A LAB1: LDAX D
1824 0C16' F5 PUSH PSW
1825 0C17' CD 0B97' CALL TOUT
1826 0C1A' F1 POP PSW
1827 0C1B' FE 0D CPI 0DH
1828 0C1D' C8 RZ
1829 0C1E' 13 INX D
1830 0C1F' C3 0C15' JMP LAB1
1831 0C22' 4E 41 4D 45 TLAB: DB 'NAME ',0
1832 0C26' 20 00
1833 ;
1834 ;PREVIJENI KAZETY
1835 ;
1836 0C28' 3E 38 REWIND: MVI A,38H
1837 0C2A' D3 10 OUT 10H
1838 0C2C' CD 0D6A' REW10: CALL CI
1839 0C2F' C3 0BDA' JMP SAVE3
1840 ;
1841 ;VYSTYP NA TISKARNU
1842 ;
1843 0C32' CD 0C67' COP: CALL OUTDIS
1844 0C35' E5 PUSH H
1845 0C36' 21 2C00 LXI H,2C00H
1846 0C39' 77 MOV M,A
1847 0C3A' F5 PUSH PSW
1848 0C3B' 2B DCX H
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-33
1849 0C3C' 36 01 MVI M,1
1850 0C3E' 23 INX H
1851 0C3F' 7E ZZZ1: MOV A,M
1852 0C40' E6 40 ANI 40H
1853 0C42' CA 0C3F' JZ ZZZ1
1854 0C45' 2B DCX H
1855 0C46' 36 03 MVI M,3
1856 0C48' 23 INX H
1857 0C49' 7E ZZZ2: MOV A,M
1858 0C4A' E6 40 ANI 40H
1859 0C4C' C2 0C49' JNZ ZZZ2
1860 0C4F' 2B DCX H
1861 0C50' 36 01 MVI M,1
1862 0C52' F1 POP PSW
1863 0C53' E1 POP H
1864 0C54' C9 RET
1865 ;
1866 ;ZMENA VYSTUPU
1867 ;
1868 0C55' 21 0C32' PRNTST: LXI H,COP
1869 0C58' 22 2008' ZZZ3: SHLD CO+1
1870 0C5B' C9 RET
1871 ;
1872 0C5C' 3E C3 DISP: MVI A,0C3H
1873 0C5E' 32 2007' STA CO
1874 0C61' 21 0C67' LXI H,OUTDIS
1875 0C64' C3 0C58' JMP ZZZ3
1876 ;
1877 ;MIKRO BASIC JPR-1
1878 ;********************************************
1879 ;
1880 ; DISPLEJ JPR-1
1881 ;
1882 ;********************************************
1883 ;
1884 ;ZRUSENI UKAZATELE
1885 ;
1886 0C67' F5 OUTDIS: PUSH PSW
1887 0C68' E5 PUSH H
1888 0C69' D5 PUSH D
1889 0C6A' C5 PUSH B
1890 0C6B' 4F MOV C,A
1891 0C6C' CD 0D4B' CALL SESTAV
1892 0C6F' 3A 2023' LDA MODE
1893 0C72' 47 MOV B,A
1894 0C73' 7E MOV A,M
1895 0C74' E6 C0 ANI 0C0H
1896 0C76' FE 80 CPI 80H
1897 0C78' C2 0C84' JNZ OUTD1
1898 0C7B' 78 MOV A,B
1899 0C7C' B7 ORA A
1900 0C7D' C2 0C84' JNZ OUTD1
1901 0C80' 7E MOV A,M
1902 0C81' E6 7F ANI 7FH
1903 0C83' 77 MOV M,A
1904 ;
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-34
1905 ;CR, LF, BS A ULOZENI ZNAKU
1906 ;
1907 0C84' 79 OUTD1: MOV A,C
1908 0C85' FE 0D CPI 0DH
1909 0C87' CA 0D12' JZ CRDS
1910 0C8A' FE 08 CPI 08H
1911 0C8C' CA 0CB7' JZ BACK
1912 0C8F' FE 0A CPI 0AH
1913 0C91' CA 0D19' JZ LFDS
1914 0C94' E6 3F ANI 3FH
1915 0C96' 5F MOV E,A
1916 0C97' 78 MOV A,B
1917 0C98' B3 ORA E
1918 0C99' 77 MOV M,A
1919 0C9A' E6 C0 ANI 0C0H
1920 0C9C' FE C0 CPI 0C0H
1921 0C9E' CC 0CDA' CZ IPOZ
1922 0CA1' CD 0CDA' CALL IPOZ
1923 ;
1924 ;NAVRAT
1925 ;
1926 ;
1927 ;OBNOVENI UKAZATELE
1928 ;
1929 0CA4' 3A 2023' OUTD10: LDA MODE
1930 0CA7' B7 ORA A
1931 0CA8' C2 0CB2' JNZ ZZZ13
1932 0CAB' CD 0D4B' CALL SESTAV
1933 0CAE' 7E MOV A,M
1934 0CAF' F6 80 ORI 80H
1935 0CB1' 77 MOV M,A
1936 0CB2' C1 ZZZ13: POP B
1937 0CB3' D1 POP D
1938 0CB4' E1 POP H
1939 0CB5' F1 POP PSW
1940 0CB6' C9 RET
1941 ;
1942 ;CURSOR ZPET
1943 ;
1944 0CB7' 3A 2022' BACK: LDA POZICE
1945 0CBA' 3D DCR A
1946 0CBB' FE FF CPI 0FFH
1947 0CBD' CA 0CC6' JZ BACK10
1948 0CC0' 32 2022' STA POZICE
1949 0CC3' C3 0CA4' JMP OUTD10
1950 0CC6' 3A 2021' BACK10: LDA RADEK
1951 0CC9' 3D DCR A
1952 0CCA' FE FF CPI 0FFH
1953 0CCC' CA 0CF8' JZ NULD30
1954 0CCF' 32 2021' STA RADEK
1955 0CD2' 3E 27 MVI A,39
1956 0CD4' 32 2022' STA POZICE
1957 0CD7' C3 0CA4' JMP OUTD10
1958 ;
1959 ;INKREMENT POZICE NA RADKU
1960 ;
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-35
1961 0CDA' 3A 2022' IPOZ: LDA POZICE
1962 0CDD' 3C INR A
1963 0CDE' 32 2022' STA POZICE
1964 0CE1' FE 28 CPI 40
1965 0CE3' D8 RC
1966 0CE4' AF XRA A
1967 0CE5' 32 2022' STA POZICE
1968 ;
1969 ;INKREMENT RADKU
1970 ;
1971 0CE8' 3A 2021' IRAD: LDA RADEK
1972 0CEB' 3C INR A
1973 0CEC' FE 18 CPI 24
1974 0CEE' CA 0D1F' JZ ROLDIS
1975 0CF1' C3 0D66' JMP ZZZ5
1976 ;
1977 ;NULOVANI DISPLEJE
1978 ;
1979 0CF4' F5 NULDIS: PUSH PSW
1980 0CF5' E5 PUSH H
1981 0CF6' D5 PUSH D
1982 0CF7' C5 PUSH B
1983 0CF8' 21 3800 NULD30: LXI H,3800H
1984 0CFB' 11 0800 LXI D,2048
1985 0CFE' CD 0D07' CALL NULD10
1986 0D01' CD 0D62' CALL HOME
1987 0D04' C3 0CA4' JMP OUTD10
1988 ;
1989 0D07' 0E 20 NULD10: MVI C,20H
1990 0D09' 71 NULD20: MOV M,C
1991 0D0A' 23 INX H
1992 0D0B' 1B DCX D
1993 0D0C' 7A MOV A,D
1994 0D0D' B3 ORA E
1995 0D0E' C2 0D09' JNZ NULD20
1996 0D11' C9 RET
1997 ;
1998 ;CR
1999 ;
2000 0D12' AF CRDS: XRA A
2001 0D13' 32 2022' STA POZICE
2002 0D16' C3 0CA4' JMP OUTD10
2003 ;
2004 ;LF
2005 ;
2006 0D19' CD 0CE8' LFDS: CALL IRAD
2007 0D1C' C3 0CA4' JMP OUTD10
2008 ;
2009 ;ROLOVANI DISPLEJE
2010 ;
2011 0D1F' 21 3800 ROLDIS: LXI H,3800H
2012 0D22' 11 3840 LXI D,3840H
2013 0D25' 0E 17 MVI C,23
2014 0D27' CD 0D40' MOVS: CALL MOVR
2015 0D2A' C5 PUSH B
2016 0D2B' 01 0018 LXI B,18H
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-36
2017 0D2E' 09 DAD B
2018 0D2F' EB XCHG
2019 0D30' 09 DAD B
2020 0D31' EB XCHG
2021 0D32' C1 POP B
2022 0D33' 0D DCR C
2023 0D34' C2 0D27' JNZ MOVS
2024 0D37' 21 3DC0 LXI H,3DC0H
2025 0D3A' 11 0040 LXI D,64
2026 0D3D' C3 0D07' JMP NULD10
2027 0D40' 06 28 MOVR: MVI B,28H
2028 0D42' 1A MOVZ: LDAX D
2029 0D43' 77 MOV M,A
2030 0D44' 13 INX D
2031 0D45' 23 INX H
2032 0D46' 05 DCR B
2033 0D47' C2 0D42' JNZ MOVZ
2034 0D4A' C9 RET
2035 ;
2036 ;SESTAVENI ADRESY CURSORY DO H,L
2037 ;
2038 0D4B' 26 00 SESTAV: MVI H,0
2039 0D4D' 3A 2021' LDA RADEK
2040 0D50' 6F MOV L,A
2041 0D51' 06 06 MVI B,6
2042 0D53' 29 SES10: DAD H
2043 0D54' 05 DCR B
2044 0D55' C2 0D53' JNZ SES10
2045 0D58' 3A 2022' LDA POZICE
2046 0D5B' B5 ORA L
2047 0D5C' 6F MOV L,A
2048 0D5D' 7C MOV A,H
2049 0D5E' F6 38 ORI 38H
2050 0D60' 67 MOV H,A
2051 0D61' C9 RET
2052 ;
2053 ;HOME
2054 ;
2055 0D62' AF HOME: XRA A
2056 0D63' 32 2022' STA POZICE
2057 0D66' 32 2021' ZZZ5: STA RADEK
2058 0D69' C9 RET
2059 ;MIKRO BASIC JPR-1
2060 ;********************************************
2061 ;
2062 ; KLAVESNICE JPR-1
2063 ;
2064 ;********************************************
2065 ;
2066 ;ZACATEK
2067 ;
2068 0D6A' C5 CI: PUSH B
2069 0D6B' D5 PUSH D
2070 0D6C' E5 PUSH H
2071 0D6D' CD 0D9C' ZZZ9: CALL ZZZ6
2072 0D70' FE 20 CPI ' ' ;SPACE
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-37
2073 0D72' DA 0D7E' JC ZZZ7
2074 0D75' FE 60 CPI 60H
2075 0D77' D2 0D7E' JNC ZZZ7
2076 0D7A' E1 ZZZ8: POP H
2077 0D7B' D1 POP D
2078 0D7C' C1 POP B
2079 0D7D' C9 RET
2080 ;
2081 0D7E' FE 7F ZZZ7: CPI 127 ; DEL
2082 0D80' CA 0D7A' JZ ZZZ8
2083 0D83' FE 0D CPI 0DH ; CR
2084 0D85' CA 0D7A' JZ ZZZ8
2085 0D88' FE 08 CPI 8 ; BS
2086 0D8A' CA 0D7A' JZ ZZZ8
2087 0D8D' FE 61 CPI 'A'+20H
2088 0D8F' DA 0D6D' JC ZZZ9
2089 0D92' FE 7B CPI 'Z'+20H+1
2090 0D94' D2 0D6D' JNC ZZZ9
2091 0D97' D6 20 SUI 20H
2092 0D99' C3 0D7A' JMP ZZZ8
2093 ;
2094 0D9C' 21 27FF ZZZ6: LXI H,27FFH
2095 0D9F' 36 02 MVI M,2
2096 0DA1' 7E ZZZ10: MOV A,M
2097 0DA2' 0F RRC
2098 0DA3' DA 0DA1' JC ZZZ10
2099 0DA6' 23 INX H
2100 0DA7' 7E MOV A,M
2101 0DA8' 2F CMA
2102 0DA9' E6 7F ANI 127
2103 0DAB' F5 PUSH PSW
2104 0DAC' 2B DCX H
2105 0DAD' 36 03 MVI M,3
2106 0DAF' 7E ZZZ11: MOV A,M
2107 0DB0' 0F RRC
2108 0DB1' D2 0DAF' JNC ZZZ11
2109 0DB4' 36 02 MVI M,2
2110 0DB6' F1 POP PSW
2111 0DB7' C9 RET
2112 ;
2113 0DB8' C2 0E69' ZZZ12: JNZ PIPO10
2114 0DBB' 3E 02 MVI A,2
2115 0DBD' 32 2400 STA 2400H
2116 0DC0' C9 RET
2117 ;
2118 ORG 0E4AH
2119 ;
2120 ; PIPNUTI
2121 ;
2122 0E4A' C5 PIP: PUSH B
2123 0E4B' 3A 2000' LDA PORT24
2124 0E4E' 3E 00 MVI A,0
2125 0E50' 32 2400 STA 2400H
2126 0E53' 0E 42 MVI C,42H
2127 0E55' 0D PIP20: DCR C
2128 0E56' C2 0E55' JNZ PIP20
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-38
2129 0E59' E6 B0 ANI 0B0H
2130 0E5B' 32 0000 STA 0
2131 0E5E' 0E 50 MVI C,50H
2132 0E60' 0D PIP30: DCR C
2133 0E61' C2 0E60' JNZ PIP30
2134 0E64' C1 POP B
2135 0E65' C9 RET
2136 ;
2137 ; ZAPIPANI
2138 ;
2139 0E66' 11 0040 PIPO: LXI D,40H
2140 0E69' CD 0E4A' PIPO10: CALL PIP
2141 0E6C' 1B DCX D
2142 0E6D' 7A MOV A,D
2143 0E6E' B3 ORA E
2144 0E6F' C3 0DB8' JMP ZZZ12
2145 0E72' C9 RET
2146 ;
2147 ;***************************************
2148 ;
2149 ; MIKRO MONITOR JPR-1
2150 ;
2151 ;***************************************
2152 ;
2153 0E73' 7C PRHL: MOV A,H
2154 0E74' CD 0AA5' CALL WRIT2
2155 0E77' 7D MOV A,L
2156 0E78' C3 0AA5' JMP WRIT2
2157 ;
2158 ;VSTUP HEXA ADRESY
2159 ;
2160 0E7B' 21 0000 MEXPR: LXI H,0
2161 0E7E' CD 0D6A' MEXO: CALL CI
2162 0E81' 4F MOV C,A
2163 0E82' CD 2007' CALL CO
2164 0E85' CD 0E94' MEX1: CALL NIBBLE
2165 0E88' DA 0EA4' JC MEX2
2166 0E8B' 29 DAD H
2167 0E8C' 29 DAD H
2168 0E8D' 29 DAD H
2169 0E8E' 29 DAD H
2170 0E8F' B5 ORA L
2171 0E90' 6F MOV L,A
2172 0E91' C3 0E7E' JMP MEXO
2173 0E94' D6 30 NIBBLE: SUI '0'
2174 0E96' D8 RC
2175 0E97' FE 17 CPI 'G'-'0'
2176 0E99' 3F CMC
2177 0E9A' D8 RC
2178 0E9B' FE 0A CPI 10
2179 0E9D' 3F CMC
2180 0E9E' D0 RNC
2181 0E9F' D6 07 SUI 'A'-'9'-1
2182 0EA1' FE 0A CPI 10
2183 0EA3' C9 RET
2184 0EA4' 79 MEX2: MOV A,C
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-39
2185 0EA5' FE 0D CPI 0DH
2186 0EA7' CA 0EB5' JZ ECHU
2187 0EAA' FE 20 CPI 20H
2188 0EAC' C8 RZ
2189 0EAD' 3E 3F EROR: MVI A,'?'
2190 0EAF' CD 2007' CALL CO
2191 0EB2' C3 0F10' JMP MLOOP
2192 0EB5' F5 ECHU: PUSH PSW
2193 0EB6' 3E 0A MVI A,0AH
2194 0EB8' CD 2007' CALL CO
2195 0EBB' F1 POP PSW
2196 0EBC' 4F MOV C,A
2197 0EBD' C9 RET
2198 ;VYPOCET DELKY INSTRUKCE
2199 ;
2200 0EBE' 06 00 LENG: MVI B,0
2201 0EC0' E5 PUSH H
2202 0EC1' D1 POP D
2203 0EC2' 7E MOV A,M
2204 0EC3' FE C3 CPI 0C3H
2205 0EC5' CA 0F05' JZ B3
2206 0EC8' FE CD CPI 0CDH
2207 0ECA' CA 0F05' JZ B3
2208 0ECD' E6 EF ANI 0EFH
2209 0ECF' FE 22 CPI 22H
2210 0ED1' CA 0F05' JZ B3
2211 0ED4' FE 2A CPI 2AH
2212 0ED6' CA 0F05' JZ B3
2213 0ED9' E6 CF ANI 0CFH
2214 0EDB' FE 01 CPI 1
2215 0EDD' CA 0F05' JZ B3
2216 0EE0' E6 C7 ANI 0C7H
2217 0EE2' FE C2 CPI 0C2H
2218 0EE4' CA 0F05' JZ B3
2219 0EE7' FE C4 CPI 0C4H
2220 0EE9' CA 0F05' JZ B3
2221 0EEC' 7E MOV A,M
2222 0EED' E6 F7 ANI 0F7H
2223 0EEF' FE D3 CPI 0D3H
2224 0EF1' CA 0F06' JZ B2
2225 0EF4' E6 E7 ANI 0E7H
2226 0EF6' E6 C7 ANI 0C7H
2227 0EF8' FE 06 CPI 6
2228 0EFA' CA 0F06' JZ B2
2229 0EFD' FE C6 CPI 0C6H
2230 0EFF' CA 0F06' JZ B2
2231 0F02' C3 0F07' JMP B1
2232 0F05' 04 B3: INR B
2233 0F06' 04 B2: INR B
2234 0F07' 04 B1: INR B
2235 0F08' EB XCHG
2236 0F09' C9 RET
2237 ;
2238 ;ZACATEK MONITORU
2239 ;
2240 0F0A' CD 0CF4' MONIT1: CALL NULDIS
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-40
2241 0F0D' 31 20B1' MONIT: LXI SP,STACK
2242 0F10' CD 0919' MLOOP: CALL CROUT
2243 0F13' 11 0100' LXI D,TXMON
2244 0F16' 97 SUB A
2245 0F17' CD 082B' CALL PRTSTG
2246 0F1A' CD 0919' CALL CROUT
2247 0F1D' 3E 2A MVI A,'*'
2248 0F1F' CD 2007' CALL CO
2249 0F22' CD 0D6A' CALL CI
2250 0F25' CD 2007' CALL CO
2251 0F28' FE 44 CPI 'D'
2252 0F2A' CA 0F4C' JZ ENTER
2253 0F2D' FE 53 CPI 'S'
2254 0F2F' CA 0F44' JZ SUEX
2255 0F32' FE 47 CPI 'G'
2256 0F34' CA 0F48' JZ GOEX
2257 0F37' FE 42 CPI 'B'
2258 0F39' CA 0019' JZ START
2259 0F3C' FE 52 CPI 'R'
2260 0F3E' CA 004D' JZ RSTART
2261 0F41' C3 0EAD' JMP EROR
2262 ;
2263 0F44' 21 0F10' SUEX: LXI H,MLOOP
2264 0F47' E5 PUSH H
2265 0F48' CD 0E7B' GOEX: CALL MEXPR
2266 0F4B' E9 PCHL
2267 ;
2268 0F4C' CD 0E7B' ENTER: CALL MEXPR
2269 ;
2270 0F4F' CD 0919' LOOP: CALL CROUT
2271 ;
2272 0F52' CD 0E73' LOOPA: CALL PRHL
2273 0F55' CD 0EBE' CALL LENG
2274 0F58' C5 PUSH B
2275 0F59' E5 PUSH H
2276 0F5A' 3E 20 LOOP1: MVI A,' '
2277 0F5C' CD 2007' CALL CO
2278 0F5F' 7E MOV A,M
2279 0F60' CD 0AA5' CALL WRIT2
2280 0F63' 23 INX H
2281 0F64' 05 DCR B
2282 0F65' C2 0F5A' JNZ LOOP1
2283 0F68' D1 POP D
2284 0F69' C1 POP B
2285 0F6A' 3E 04 MVI A,4
2286 0F6C' 90 SUB B
2287 0F6D' 47 MOV B,A
2288 0F6E' 07 RLC
2289 0F6F' E6 0F ANI 0FH
2290 0F71' 80 ADD B
2291 0F72' 47 MOV B,A
2292 0F73' 3E 20 LPP: MVI A,' '
2293 0F75' CD 2007' CALL CO
2294 0F78' 05 DCR B
2295 0F79' C2 0F73' JNZ LPP
2296 ;
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-41
2297 ;VYPIS ASCII
2298 ;
2299 0F7C' 3E 3A MVI A,':'
2300 0F7E' CD 2007' CALL CO
2301 0F81' 1A LDAX D
2302 0F82' E6 7F ANI 7FH
2303 0F84' FE 20 CPI 20H
2304 0F86' DA 0F8E' JC CONTM
2305 0F89' FE 7F CPI 7FH
2306 0F8B' C2 0F90' JNZ CONT1
2307 0F8E' 3E 20 CONTM: MVI A,' '
2308 0F90' CD 2007' CONT1: CALL CO
2309 0F93' 3E 3A MVI A,':'
2310 0F95' CD 2007' CALL CO
2311 0F98' CD 0D6A' LOOP2: CALL CI
2312 0F9B' 4F MOV C,A
2313 0F9C' CD 2007' CALL CO
2314 0F9F' FE 08 CPI 08
2315 0FA1' CA 0FD3' JZ BACKGO
2316 0FA4' FE 20 CPI ' '
2317 0FA6' CA 0FD8' JZ LPPA
2318 0FA9' FE 0D CPI 0DH
2319 0FAB' CA 0F4F' JZ LOOP
2320 0FAE' FE 2E CPI '.'
2321 0FB0' CA 0F10' JZ MLOOP
2322 0FB3' FE 22 CPI '"'
2323 0FB5' CA 0FDD' JZ TEXT
2324 0FB8' E5 PUSH H
2325 0FB9' 21 0000 LXI H,0
2326 0FBC' CD 0E85' CALL MEX1
2327 0FBF' 47 MOV B,A
2328 0FC0' 7D MOV A,L
2329 0FC1' 12 STAX D
2330 0FC2' 13 INX D
2331 0FC3' 78 MOV A,B
2332 0FC4' E1 POP H
2333 0FC5' FE 20 CPI ' '
2334 0FC7' CA 0F98' JZ LOOP2
2335 0FCA' FE 0D CPI 0DH
2336 0FCC' C2 0EAD' JNZ EROR
2337 0FCF' EB XCHG
2338 0FD0' C3 0F52' JMP LOOPA
2339 ;
2340 ;
2341 0FD3' 1B BACKGO: DCX D
2342 0FD4' EB XCHG
2343 0FD5' C3 0F4F' JMP LOOP
2344 ;
2345 0FD8' EB LPPA: XCHG
2346 0FD9' 23 INX H
2347 0FDA' C3 0F4F' JMP LOOP
2348 ;
2349 0FDD' CD 0D6A' TEXT: CALL CI
2350 0FE0' CD 2007' CALL CO
2351 0FE3' FE 22 CPI '"'
2352 0FE5' CA 0FF3' JZ CONTE
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-42
2353 0FE8' 4F MOV C,A
2354 0FE9' 12 STAX D
2355 0FEA' 1A LDAX D
2356 0FEB' B9 CMP C
2357 0FEC' C2 0EAD' JNZ EROR
2358 0FEF' 13 INX D
2359 0FF0' C3 0FDD' JMP TEXT
2360 ;
2361 0FF3' CD 0D6A' CONTE: CALL CI
2362 0FF6' FE 20 CPI ' '
2363 0FF8' CA 0F98' JZ LOOP2
2364 0FFB' EB XCHG
2365 0FFC' C3 0F4F' JMP LOOP
2366 ;
2367 0FFF' 31 DB 31H ;VERZE 03-01
2368 ;
2369 ;*********************************************
2370 ;
2371 ; DEFINICE RAM
2372 ;
2373 ;*********************************************
2374 ;
2375 ORG 2000H
2376 ;
2377 2000' PORT24: DS 1
2378 2001' LEGT: DS 2
2379 2003' IOBUFA: DS 1
2380 2004' IOBUFB: DS 1
2381 2005' IOBUFC: DS 1
2382 2006' LISTC: DS 1
2383 2007' CO: DS 3
2384 200A' MASKIN: DS 1
2385 200B' CURRNT: DS 2
2386 200D' STKGOS: DS 2
2387 200F' VARNXT: DS 2
2388 2011' STKINP: DS 2
2389 2013' LOPVAR: DS 2
2390 2015' LOPINC: DS 2
2391 2017' LOPLMT: DS 2
2392 2019' LOPLN: DS 2
2393 201B' LOPPT: DS 2
2394 201D' RANPNT: DS 2
2395 201F' ARMM: DS 2
2396 2021' RADEK: DS 1
2397 2022' POZICE: DS 1
2398 2023' MODE: DS 1
2399 2024' TXTUNF: DS 2
2400 2026' DS 40
2401 204E' STKLMT: DS 2
2402 2050' DS 97
2403 20B1' STACK: DS 2
2404 20B3' VARBGN: DS 54
2405 20E9' TXTEND: DS 2
2406 20EB' BUFFER: DS 2
2407 20ED' BUFEND: DS 2
2408 20EF' TXTBGN: DS 2
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE 1-43
2409 20F1' DS 698
2410 23AB' TXTE: DS 2
2411 23AD' BUFA: DS 64
2412 23ED' BUFE: DS 1
2413 23EE' BRST: DS 18
2414 ;
2415 END
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE S
Macros:
Symbols:
0A02' A1 06F1' ABS 02F0' AHOW
0517' AREM 201F' ARMM 07AD' ASORRY
0778' AWHAT 0F07' B1 0F06' B2
0F05' B3 0CB7' BACK 0CC6' BACK10
0FD3' BACKGO 09A4' BCALL 09E8' BEEP
09EC' BEEP1 0013' BEND 0A10' BIN
09B1' BOUT 0B11' BREAK 23EE' BRST
23AD' BUFA 23ED' BUFE 20ED' BUFEND
20EB' BUFFER 0A92' BYTE 0727' CHGSGN
0724' CHKSGN 0D6A' CI 0742' CK1
073C' CKHLDE 051B' CLEAR 0923' CLS
2007' CO 0268' COMP 0B06' CONT
0F90' CONT1 0FF3' CONTE 0F8E' CONTM
0C32' COP 0D12' CRDS 0906' CRLF
0919' CROUT 200B' CURRNT 07DA' CXBUFA
07D0' CXBUFE 095C' DBUFF 05A0' DEFLT
0929' DIRECT 0C5C' DISP 0350' DISPL
0707' DIVIDE 0964' DTXTE 0712' DV1
0714' DV2 0EB5' ECHU 0771' ENDCHK
0F4C' ENTER 0EAD' EROR 077B' ERROR
0930' EX1 0943' EX2 094E' EX3
0950' EX4 0955' EX5 092C' EXEC
05B4' EXPR 05B8' EXPR1 05FC' EXPR2
0638' EXPR3 069C' EXPR4 075E' FIN
0276' FINI 0820' FL2 0801' FNDLN
0809' FNDLP 081F' FNDNXT 0821' FNDSKP
0446' FOR 0456' FR1 0462' FR2
0468' FR3 046B' FR4 0483' FR7
04A4' FR8 07B3' GETLN 07BA' GL1
07D9' GL3 07E9' GL4 07F1' GL5
0F48' GOEX 0409' GOSUB 0339' GOTO
0911' H2 034A' HARD 09AD' HERE
0AD8' HEX 0AE1' HNXTH 0D62' HOME
02F6' HOW 0A45' I 052B' IFF
052E' IFFR 026E' IGNB 0AD1' INCHAR
0A1F' INEM 0A15' INM 053C' INPERR
0546' INPUT 2003' IOBUFA 2004' IOBUFB
2005' IOBUFC 0546' IP1 0556' IP2
0568' IP3 0594' IP4 0CDA' IPOZ
0CE8' IRAD 0AAE' IST 0C15' LAB1
0BF4' LABEL 2001' LEGT 0EBE' LENG
000B' LENGHT 05A6' LET 0D19' LFDS
0913' LINEF 0359' LIST 2006' LISTC
0356' LLIST 0B23' LOAD 0B36' LOAD10
0B44' LOAD20 0B7A' LOAD3 0B2F' LOAD30
0B6C' LOAD4 0B2B' LOAD40 0B56' LOAD5
0F4F' LOOP 0F5A' LOOP1 0F98' LOOP2
0F52' LOOPA 2015' LOPINC 2017' LOPLMT
2019' LOPLN 201B' LOPPT 2013' LOPVAR
0F73' LPP 0FD8' LPPA 03A4' LPRINT
0369' LS0 036C' LS1 037E' LS3
0387' LS4 037B' LS5 039E' LS6
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE S-1
05B1' LT1 096C' MASK 200A' MASKIN
08BA' MD1 0E85' MEX1 0EA4' MEX2
0E7E' MEXO 0E7B' MEXPR 0F10' MLOOP
2023' MODE 0F0D' MONIT 0F0A' MONIT1
0D40' MOVR 0D27' MOVS 0D42' MOVZ
00D0' MSG1 08B2' MVDOWN 08A7' MVUP
030D' NEW 04AB' NEXT 0E94' NIBBLE
0D07' NULD10 0D09' NULD20 0CF8' NULD30
0CF4' NULDIS 04B4' NX0 04F0' NX1
0506' NX2 04CE' NX3 04E0' NX4
0504' NX5 0A38' O 02FB' OK
0908' OUTC 0AC7' OUTCHR 0C84' OUTD1
0CA4' OUTD10 0C67' OUTDIS 06B3' PARN
0A76' PEEK 0BA5' PIN 0E4A' PIP
0E55' PIP20 0E60' PIP30 0E66' PIPO
0E69' PIPO10 0859' PN1 0860' PN2
0870' PN3 0871' PN4 087F' PN5
0885' PN6 0A7D' POKE 08C1' POPA
0B04' POPRET 2000' PORT24 2022' POZICE
08DB' PP1 03C5' PR0 03EA' PR3
03BF' PR6 03FE' PR8 0E73' PRHL
03A7' PRINT 0C55' PRNTST 0892' PRTLN
084E' PRTNUM 082B' PRTSTG 082C' PS1
0903' PU1 08DD' PUSHA 02EF' QHOW
07AC' QSORRY 0840' QT1 0849' QT2
0839' QTSTG 0AB9' QUOTE 0777' QWHAT
06E1' RA1 2021' RADEK 0976' RAM
201D' RANPNT 050C' REM 042B' RETURN
0C2C' REW10 0C28' REWIND 06C4' RND
0D1F' ROLDIS 0050' RSTAR1 004D' RSTART
0316' RUN 031C' RUNNXL 032C' RUNSML
0325' RUNTSL 0BB3' SAVE 0BC5' SAVE1
0BD3' SAVE2 0BDA' SAVE3 0B88' SEC1
0B8B' SEC3 0B8D' SEC31 0D53' SES10
0D4B' SESTAV 0745' SETVAL 06FA' SIZE
0307' SORRY 0067' ST2 0070' ST3
00A7' ST4 0075' ST5 20B1' STACK
0019' START 004A' START1 200D' STKGOS
2011' STKINP 204E' STKLMT 0B0E' STOP
071D' SUBDE 0F44' SUEX 09FF' TAB
00DC' TAB1 011E' TAB2 01EB' TAB4
0239' TAB5 0241' TAB6 024B' TAB8
02C1' TC2 0FDD' TEXT 0C22' TLAB
02CC' TN1 0003' TOP 0B97' TOUT
0B9D' TOUT1 0BEE' TPER 0BE1' TPERR
02B1' TSTC 02C5' TSTNUM 027D' TSTV
02A1' TV1 0100' TXMON 20EF' TXTBGN
23AB' TXTE 20E9' TXTEND 2024' TXTUNF
20B3' VARBGN 200F' VARNXT 09D7' WAIT
09DB' WAIT1 09F4' WAIT2 09F6' WAIT3
0301' WHAT 0A9C' WORD 0AA5' WRIT2
05BE' XP11 05C4' XP12 05CA' XP13
05D1' XP14 05D9' XP15 05DF' XP16
05E5' XP17 05E7' XP18 060F' XP23
0618' XP24 062E' XP26 063B' XP31
065A' XP32 0662' XP33 068E' XP35
'JPR-1 MIKRO BASIC' MACRO-80 3.44 09-Dec-81 PAGE S-2
06A2' XP40 06AD' XP41 0C3F' ZZZ1
0DA1' ZZZ10 0DAF' ZZZ11 0DB8' ZZZ12
0CB2' ZZZ13 0C49' ZZZ2 0C58' ZZZ3
0A41' ZZZ4 0D66' ZZZ5 0D9C' ZZZ6
0D7E' ZZZ7 0D7A' ZZZ8 0D6D' ZZZ9
No Fatal error(s)
A1 1503# 1509
ABS 228 971#
AHOW 394# 438 541 880 886 904
AREM 250 685#
ARMM 678 685 2395#
ASORRY 316 1107# 1421 1424 1430 1553
AWHAT 633 1077#
B1 2231 2234#
B2 2224 2228 2230 2233#
B3 2205 2207 2210 2212 2215 2218 2220 2232#
BACK 1911 1944#
BACK10 1947 1950#
BACKGO 2315 2341#
BCALL 193 1445#
BEEP 208 1487#
BEEP1 1489#
BEND 23# 187
BIN 243 1513#
BOUT 198 1455#
BREAK 1683 1685#
BRST 18 22 2413#
BUFA 40 2411#
BUFE 42 2412#
BUFEND 43 1127 1431 2407#
BUFFER 41 1133 1395 1438 2406#
BYTE 219 1598#
CHGSGN 860 916 1014# 1315
CHKSGN 869 871 896 898 973 1011# 1214
CI 1115 1644 1838 2068# 2161 2249 2311 2349 2361
CK1 1035 1037#
CKHLDE 662 825 1033#
CLEAR 155 691#
CLS 152 1354#
CO 1342 1348 1350 1508 1639 1714 1720 1869 1873 2163 2190 2194
2248 2250 2277 2293 2300 2308 2310 2313 2350 2383#
COMP 106 281# 315 634 953 955 1037 1159 1271 1420 1552 1729
1784
CONT 428 760 1680#
CONT1 2306 2308#
CONTE 952 2352 2361#
CONTM 2304 2307#
COP 1843# 1868
CRDS 1909 2000#
CRLF 49 494 500 526 1139 1338# 1687 1799
CROUT 1345 1347# 2242 2246 2270
CURRNT 58 422 542 563 587 666 714 741 744 759 1087 1685
2385#
CXBUFA 1132#
CXBUFE 1126#
DBUFF 65 751 1114 1394# 1554 1560 1821
DEFLT 224 768#
DIRECT 71 1359#
DISP 29 449 484 495 501 527 1081 1872#
DISPL 161 449#
DIVIDE 906 963 989# 1223
DTXTE 105 1400#
DV1 992 997#
DV2 998# 1000
ECHU 2186 2192#
ENDCHK 23 410 416 436 554 1073# 1684
ENTER 2252 2268#
EROR 2189# 2261 2336 2357
ERROR 395 1078# 1108
EX1 1362# 1368
EX2 1373# 1375
EX3 1365 1380#
EX4 1381# 1383
EX5 1372 1384#
EXEC 430 575 580 786 919 1360# 1379
EXPR 434 506 516 529 538 577 582 701 752 783# 934 1047
1409 1416 1445 1455 1460 1476 1487 1537 1547 1584 1589 1637
EXPR1 785#
EXPR2 783 822 830#
EXPR3 838 843 859 862#
EXPR4 862 867 894 918#
FIN 299 524 1059#
FINI 298# 445 450 528 566 621 669 673 697 767 779 1355
1412 1451 1471 1483 1492 1505 1543 1593 1601 1607 1640
FL2 1168 1176# 1179
FNDLN 83 437 461 540 1152#
FNDLP 419 470 1156# 1181
FNDNXT 87 1175#
FNDSKP 705 1177#
FOR 176 570#
FR1 256 577#
FR2 261 582#
FR3 263 585#
FR4 583 586#
FR7 598# 606 609
FR8 602 619#
GETLN 63 750 1112# 1141 1813
GL1 1115# 1130 1138 1555
GL3 1117 1131#
GL4 1119 1136 1139#
GL5 1137 1142#
GOEX 2256 2265#
GOSUB 169 537#
GOTO 166 434#
H2 1343# 1346
HARD 158 444#
HERE 1447 1450#
HEX 239 1651#
HNXTH 1656# 1673
HOME 1986 2055#
HOW 394 399#
I 202 1547#
IFF 163 701#
IFFR 681 702#
IGNB 67 290# 294 304 343 363 458 475 1073 1360
INCHAR 237 1644#
INEM 1513 1516 1522#
INM 241 1516#
INPERR 711# 1096
INPUT 179 720#
IOBUFA 1463 1470 1525 1531 2379#
IOBUFB 1466 1528 2380#
IOBUFC 1468 1530 2381#
IP1 721# 743 766
IP2 723 727#
IP3 726 739#
IP4 725 762#
IPOZ 1921 1922 1961#
IRAD 1971# 2006
IST 1614 1616#
LAB1 1823# 1830
LABEL 1776 1809#
LEGT 19 1569 2378#
LENG 2200# 2273
LENGHT 19# 252
LET 150 774# 778
LFDS 1913 2006#
LINEF 1341 1345#
LIST 124 455#
LISTC 457 463 468 481 2382#
LLIST 127 454#
LOAD 142 1698#
LOAD10 1707#
LOAD20 1709 1713#
LOAD3 1730 1735#
LOAD30 1704# 1712
LOAD4 1729# 1734
LOAD40 1702# 1706 1717
LOAD5 1720# 1723
LOOP 2270# 2319 2343 2347 2365
LOOP1 2276# 2282
LOOP2 2311# 2334 2363
LOOPA 2272# 2338
LOPINC 586 643 1302 1329 2390#
LOPLMT 578 657 1304 1327 2391#
LOPLN 588 665 1306 1325 2392#
LOPPT 590 619 667 1308 1323 2393#
LOPVAR 60 547 573 592 630 653 1297 1319 1331 2389#
LPP 2292# 2295
LPPA 2317 2345#
LPRINT 185 489#
LS0 461# 473 483
LS1 462# 471
LS3 469#
LS4 460 472#
LS5 465 468#
LS6 462 484#
LT1 770 779#
MASK 214 1409#
MASKIN 55 1411 1518 2384#
MD1 1283 1287#
MEX1 2164# 2326
MEX2 2165 2184#
MEXO 2161# 2172
MEXPR 2160# 2265 2268
MLOOP 2191 2242# 2263 2321
MODE 32 53 427 511 1079 1892 1929 2398#
MONIT 137 2241#
MONIT1 2240#
MOVR 2014 2027#
MOVS 2014# 2023
MOVZ 2028# 2033
MSG1 34 116#
MVDOWN 110 617 1281# 1291
MVUP 90 113 1271# 1277 1562
NEW 131 410#
NEXT 148 625#
NIBBLE 1659 2164 2173#
NULD10 1985 1989# 2026
NULD20 695 1990# 1995
NULD30 1953 1983#
NULDIS 30 1354 1979# 2240
NX0 628# 639
NX1 660 662#
NX2 664 672#
NX3 635 640#
NX4 649 652#
NX5 651 670#
O 200 1537#
OK 51 401#
OUTC 1102 1113 1120 1144 1146 1148 1190 1239 1243 1250 1264 1339#
1621 1689
OUTCHR 196 1637#
OUTD1 1897 1900 1907#
OUTD10 1929# 1949 1957 1987 2002 2007
OUTDIS 1843 1874 1886#
PARN 309 931# 943 971 1502 1522 1577 1598 1605
PEEK 234 1577#
PIN 1715 1719 1721 1724 1726 1731 1736 1764# 1766
PIP 2122# 2140
PIP20 2127# 2128
PIP30 2132# 2133
PIPO 2139#
PIPO10 1490 2113 2140#
PN1 1215 1218#
PN2 1223# 1232
PN3 1226 1233#
PN4 1234# 1240
PN5 1237 1241#
PN6 1245# 1251
POKE 211 1584#
POPA 565 637 672 1295#
POPRET 1672 1675#
PORT24 33 2123 2377#
POZICE 1944 1948 1956 1961 1963 1967 2001 2045 2056 2397#
PP1 1300 1309#
PR0 503# 525
PR3 512 518 521# 533
PR6 501# 1204
PR8 520 529#
PRHL 1606 2153# 2272
PRINT 182 490#
PRNTST 444 454 489 1868#
PRTLN 469 1097 1255# 1690
PRTNUM 531 1213# 1262
PRTSTG 35 56 735 1080 1104 1185# 1201 1266 1541 1802 1811 2245
PS1 1186# 1192
PU1 1322 1332#
PUSHA 537 570 1314#
QHOW 311 370 393# 854 913 946 948 1027 1154
QSORRY 107 1106# 1318
QT1 1201#
QT2 1205#
QTSTG 519 722 1197#
QUOTE 245 1625#
QWHAT 258 300 558 626 729 939 1042 1055 1076# 1472 1594 1633
1658 1660 1674
RA1 954 956#
RADEK 1950 1954 1971 2039 2057 2396#
RAM 139 1416#
RANPNT 37 951 959 2394#
REM 174 677#
RETURN 172 554#
REW10 1838#
REWIND 134 1836#
RND 226 943#
ROLDIS 1974 2011#
RSTAR1 50# 485
RSTART 24 49# 99 420 467 707 1093 1105 1691 1795 1803 2260
RUN 129 416#
RUNNXL 418# 502 1068
RUNSML 426# 496 704 1063
RUNTSL 421# 440 550 706
SAVE 145 1776#
SAVE1 1784# 1789
SAVE2 1785 1790#
SAVE3 1740 1793# 1839
SEC1 1710 1741# 1792
SEC3 1743# 1818
SEC31 1744# 1747
SES10 2042# 2044
SESTAV 1891 1932 2038#
SETVAL 571 774 1041#
SIZE 231 314 979#
SORRY 405# 1107
ST2 57 59#
ST3 62# 114
ST4 85 94#
ST5 64#
STACK 28 50 2241 2403#
START 14 28# 2258
START1 45# 1441
STKGOS 61 544 549 555 561 2386#
STKINP 711 747 2388#
STKLMT 1314 2401#
STOP 190 1684#
SUBDE 318 983 999 1003# 1567
SUEX 2254 2263#
TAB 216 1502#
TAB1 122# 1359
TAB2 146# 429
TAB4 225# 918
TAB5 255# 574
TAB6 259# 579
TAB8 264# 785
TC2 346 353#
TEXT 2323 2349# 2359
TLAB 1809 1831#
TN1 364# 389
TOP 15# 36 247
TOUT 1752# 1779 1781 1787 1791 1820 1825
TOUT1 1757# 1759
TPER 1800 1804#
TPERR 1738 1799#
TSTC 342# 491 497 503 513 521 763 775 830 835 839 855
863 890 931 935 1044 1059 1064 1197 1457 1586 1629 1653
1669
TSTNUM 66 361# 455 477 927
TSTV 304# 625 724 728 920 1041
TV1 307 324#
TXMON 135# 2243
TXTBGN 38 411 417 1155 1728 1783 2408#
TXTE 44 1418 2410#
TXTEND 45 317 982 1401 2405#
TXTUNF 15 39 89 93 95 108 412 979 1157 1550 1739 1777
2399#
VARBGN 328 691 2404#
VARNXT 627 638 2387#
WAIT 205 1476#
WAIT1 1478# 1481
WAIT2 1479 1493# 1498 1745
WAIT3 1494# 1495
WHAT 403# 1077
WORD 222 1605#
WRIT2 1600 1609# 2154 2156 2279
XP11 265 787#
XP12 267 791#
XP13 269 795#
XP14 273 800#
XP15 271 806#
XP16 275 810#
XP17 277 814#
XP18 787 791 795 800 806 810 816#
XP23 839# 851 853
XP24 844# 861
XP26 834 858#
XP31 863# 917
XP32 876 881#
XP33 885# 888
XP35 884 889 910#
XP40 254 920#
XP41 921 927#
ZZZ1 1851# 1853
ZZZ10 2096# 2098
ZZZ11 2106# 2108
ZZZ12 2113# 2144
ZZZ13 1931 1936#
ZZZ2 1857# 1859
ZZZ3 1869# 1875
ZZZ4 1542# 1573
ZZZ5 1975 2057#
ZZZ6 2071 2094#
ZZZ7 2073 2075 2081#
ZZZ8 2076# 2082 2084 2086 2092
ZZZ9 2071# 2088 2090
Ú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