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
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1
1 TITLE 'PLAN80A TINY BASIC V3Q'
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 ;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
24 ;X X
25 ;X X
26 ;X PLAN-80A V.3.Q 27.09.88 X
27 ;X X
28 ;X T I N Y B A S I C X
29 ;X X
30 ;X X
31 ;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-1
57 ;*************************************************
58 ;
59 ; ZAKLADNI ADRESY
60 ;
61 0006 UZIRAM EQU 0006H ; ZACATEK UZIVATELSKE RAM
62 0004 RAMEND EQU 0004H ; ADR. OBSAHUJICI KONEC RAM
63 E000 BASIC EQU 0E000H ; POCATECNI ADRESA TINY BASICU
64 F028 TCLOSE EQU 0F028H ; UZAVRI SOUBOR
65 F004 JOIN0 EQU 0F004H ; INICIUJ MAGNETOFON
66 F000 ADRTPR EQU 0F000H ; POCATECNI ADRESA PROGRAMU MAGNETOFONU
67 ;
68 ; SPOJOVACI ADRESY NA MONITOR
69 ;
70 F803 CI EQU 0F803H ; VSTUP Z KONZOLY (A)
71 F809 COM EQU 0F809H ; VYSTUP NA KONZOLU (C)
72 F806 RI EQU 0F806H ; VSTUP ZE SNIMACE (MAGNETOFONU) (A)
73 F80C PO EQU 0F80CH ; VYSTUP NA DEROVAC (MAGNETOFON) (C)
74 F80F LO EQU 0F80FH ; VYSTUP NA TISKARNU (C)
75 F812 CSTS EQU 0F812H ; STAV KONZOLY (A)
76 F81B MEMCHK EQU 0F81BH ; KONEC UZIVATELSKE RAM (B,A)
77 F839 NEXTM EQU 0F839H ; TEPLY START MONITORU
78 F83C SPACE EQU 0F83CH ; ZOBRAZ MEZERU
79 F830 DADR EQU 0F830H ; VYPIS (HL) JAKO ASCII
80 F833 DBYTE EQU 0F833H ; VYPIS (A) JAKO ASCII
81 F82D ASHEX EQU 0F82DH ; ASCII NA HEX NIBBLE
82 F845 ADRKUR EQU 0F845H ; ADRESA KURZORU (HL)
83 F84B TIMER EQU 0F84BH ; PODPROGRAM CEKANI <BC> MS
84 ;
85 ; DEFINICE KONSTANT
86 ;
87 000D CR EQU 0DH ; CR
88 000A LF EQU 0AH ; LF
89 0003 CTRLC EQU 03H ; CTRL C
90 0018 CTRLX EQU 18H ; CTRL X
91 0004 CTRLD EQU 04H ; CTRL D
92 0019 CTRLY EQU 19H ; CTRL Y
93 0013 CTRLS EQU 13H ; CTRL S
94 0018 DOWN EQU 18H ; SIPKA DOLU
95 0008 LEFT EQU 08H ; SIPKA VLEVO
96 0004 RIGHT EQU 04H ; SIPKA VPRAVO
97 007F RUB EQU 7FH ; VYMAZ (DEL)
98 001A SUBS EQU 1AH ; SUB
99 0008 BS EQU 08H ; ZPETNY POSUV
100 0200 KILO EQU 512 ; KONSTANTA PRO RAM < 1 KBYTE
101 000C FF EQU 0CH ; NOVA STRANKA
102 0007 BELL EQU 07H ; ZVONEK
103 001B ESC EQU 1BH ; CTRL [
104 001D HOME EQU 1DH ; LEVY HORNI ROH OBRAZOVKY
105 001E DL EQU 1EH ; VYMAZ RADKY
106 001F DSCR EQU 1FH ; VYMAZ OBRAZOVKY
107 001A SUBS EQU 1AH ; CTRL Z
108 0035 LINECO EQU 35H ; CITAC LINEK
109 0055 KEYTPR EQU 55H ; PRIZNAK MAGNETOFONU
110 ;
111 ;*************************************************
112 ;
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-2
113 ;
114 .PHASE BASIC
115 ;
116 E000 C3 E01B BASPET: JMP START ; STUDENY START BASIC
117 E003 C3 E03E JMP RSTART ; TEPLY START BASIC
118 ;
119 E006 33 INTSTA: INX SP ; START PO BREAKU - RST 7
120 E007 33 INX SP ; OBNOVENI SP
121 E008 C3 E03E JMP RSTART
122 ;
123 E00B 2A 003B TOP: LHLD TXTUNF
124 E00E 23 INX H
125 E00F C9 RET
126 ;
127 E010 2A 0006 LENGHT: LHLD LEGT
128 E013 2B DCX H
129 E014 C9 RET
130 ;
131 E015 CD E7CF BEND: CALL ENDCHK
132 E018 C3 E03E JMP RSTART
133 ;
134 ; START
135 ;
136 E01B F3 START: DI
137 E01C 2A 0004 LHLD RAMEND ; KONEC PROGRAMOVE RAM V <HL>
138 E01F 2B DCX H
139 E020 2B DCX H
140 E021 F9 SPHL ; NASTAV SP
141 E022 CD EB81 CALL DISP ; CO:=CO
142 E025 AF XRA A ; A:=0
143 E026 32 0026 STA MODE ; FORMAT ZNAKU:= OBYCEJNY
144 E029 11 E0D8 LXI D,MSG1
145 E02C CD E893 CALL PRTSTG ; OHLASENI BASICU
146 E02F 21 009B LXI H,TXTBGN
147 E032 22 003B SHLD TXTUNF ; INICIACE UKAZATELE KONCE PROGRAMU
148 E035 CD E0CF CALL USREND ; V <HL> KONEC UZIVATELSKE OBLASTI RAM
149 E038 C3 E9F5 JMP RAM1 ; NASTAV RAM V BASICU
150 E03B 22 0027 START1: SHLD TXTEND
151 ;
152 ; RSTART - PRIHRATY START
153 ;
154 E03E CD E974 RSTART: CALL CRLF
155 E041 2A 0004 RSTAR1: LHLD RAMEND
156 E044 2B DCX H
157 E045 2B DCX H ; V <HL> (KONEC PROGRAMOVE RAM -2)
158 E046 F9 SPHL ; NASTAV SP
159 E047 3E C3 MVI A,0C3H ; OBSLUHA RST 7 TO RAM
160 E049 32 0038 STA RST7RA
161 E04C 21 E006 LXI H,INTSTA
162 E04F 22 0039 SHLD RST7RA+1
163 E052 11 E33D LXI D,OK ; DE:=ADR TEXTU 'READY'
164 E055 97 SUB A ; A:=0
165 E056 32 0026 STA MODE
166 E059 2F CMA ; A:=0FFH
167 E05A 32 000F STA MASKIN
168 E05D CD E893 CALL PRTSTG ; 'READY' NA OBRAZOVKU
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-3
169 E060 21 E067 LXI H,ST2+1
170 E063 22 0010 SHLD CURRNT
171 E066 21 0000 ST2: LXI H,0
172 E069 22 0018 SHLD LOPVAR ; POINTER PRO 'FOR':=0
173 E06C 22 0012 SHLD STKGOS
174 E06F 06 5C ST3: MVI B,5CH ; 5CH JAKO PROMT NA ZACATKU RADKU
175 E071 CD E811 CALL GETLN ; PREVEZMI RADEK BASIC Z KLAVESNICE
176 E074 D5 ST5: PUSH D ; V <DE> ADRESA POSL. ZNAKU + 1
177 E075 CD E9D8 CALL DBUFF ; V <DE> ADRESA BUFFERU
178 E078 CD E307 CALL TSTNUM ; VSTUP CISLA DO <HL>, V <DE> ADR. DAL. ZN.
179 E07B CD E2B0 CALL IGNB ; VYNECH MEZERY
180 E07E 7C MOV A,H
181 E07F B5 ORA L ; JE CISLO NULOVE
182 E080 C1 POP B ; V <BC> ADRESA POSL. ZNAKU + 1
183 E081 CA E9A5 JZ DIRECT ; PRI NULOVEM CISLE PROVED IHNED
184 E084 1B DCX D
185 E085 7C MOV A,H
186 E086 12 STAX D
187 E087 1B DCX D
188 E088 7D MOV A,L
189 E089 12 STAX D ; ZAPIS CISLO RADKU BINARNE
190 E08A C5 EDIST: PUSH B
191 E08B D5 PUSH D
192 E08C 79 MOV A,C
193 E08D 93 SUB E
194 E08E F5 PUSH PSW ; V <A> POCET ZNAKU
195 E08F CD E869 CALL FNDLN ; NAJDI ADRESU RADKU <HL>
196 E092 D5 PUSH D
197 E093 C2 E0A6 JNZ ST4 ; TAKOVY RADEK JESTE NENI - SKOC
198 E096 D5 PUSH D
199 E097 CD E887 CALL FNDNXT ; NAJDI ADRESU DALSIHO RADKU
200 E09A C1 POP B
201 E09B 2A 003B LHLD TXTUNF ; V <HL> ADRESA KONCE PROGRAMU
202 E09E CD E90F CALL MVUP ; STARY RADEK ZNIC
203 E0A1 60 MOV H,B
204 E0A2 69 MOV L,C
205 E0A3 22 003B SHLD TXTUNF ; NOVY KONEC PROGRAMU
206 E0A6 C1 ST4: POP B
207 E0A7 2A 003B LHLD TXTUNF
208 E0AA F1 POP PSW ; V <A> POCET ZNAKU
209 E0AB E5 PUSH H
210 E0AC FE 03 CPI 3 ; PRAZDNY RADEK ?
211 E0AE CA E03E JZ RSTART ; ANO - RESTART
212 E0B1 85 ADD L
213 E0B2 6F MOV L,A
214 E0B3 3E 00 MVI A,0
215 E0B5 8C ADC H
216 E0B6 67 MOV H,A ; NOVY KONEC PROGRAMU V <HL>
217 E0B7 CD E9E0 CALL DTXTE ; MAXIMALNI ADRESA V <DE>
218 E0BA CD E2AA CALL COMP ; PRETECENI ?
219 E0BD D2 E80A JNC QSORRY ; ANO - CHYBA
220 E0C0 22 003B SHLD TXTUNF ; NOVY KONEC PROGRAMU V <HL>
221 E0C3 D1 POP D ; ADRESA RADKU V <DE>
222 E0C4 CD E91A CALL MVDOWN ; VLOZ RADEK
223 E0C7 D1 POP D
224 E0C8 E1 POP H
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-4
225 E0C9 CD E90F CALL MVUP
226 E0CC C3 E06F JMP ST3
227 ;
228 ; ZJISTENI KONCE UZIVATELSKE OBLASTI PAMETI RAM
229 ;
230 E0CF C5 USREND: PUSH B
231 E0D0 CD F81B CALL MEMCHK
232 E0D3 60 MOV H,B
233 E0D4 6F MOV L,A
234 E0D5 2B DCX H
235 E0D6 C1 POP B
236 E0D7 C9 RET
237 ;
238 E0D8 20 20 54 49 MSG1: DB ' TINY BASIC V3Q',0
239 E0DC 4E 59 20 42
240 E0E0 41 53 49 43
241 E0E4 20 56 33 51
242 E0E8 00
243 ;
244 ; TABULKA KLICOVICH SLOV
245 ;
246 E0E9 4C 49 53 54 TAB1: DB 'LIST',0
247 E0ED 00
248 E0EE E39B DW LIST
249 E0F0 4C 4C 49 53 DB 'LLIST',0
250 E0F4 54 00
251 E0F6 E398 DW LLIST
252 E0F8 52 55 4E 00 DB 'RUN',0
253 E0FC E358 DW RUN
254 E0FE 4E 45 57 00 DB 'NEW',0
255 E102 E34F DW NEW
256 E104 4D 4F 4E 49 TXMON: DB 'MONITOR',0
257 E108 54 4F 52 00
258 E10C EBB1 DW MONIT
259 E10E 52 41 4D 00 DB 'RAM',0
260 E112 E9F2 DW RAM
261 E114 4C 4F 41 44 DB 'LOAD',0
262 E118 00
263 E119 EEEC DW LOAD
264 E11B 53 41 56 45 DB 'SAVE',0
265 E11F 00
266 E120 EF1E DW SAVE
267 E122 4E 45 58 54 TAB2: DB 'NEXT',0
268 E126 00
269 E127 E4ED DW NEXT
270 E129 4C 45 54 00 DB 'LET',0
271 E12D E5FE DW LET
272 E12F 43 4C 53 00 DB 'CLS',0
273 E133 E991 DW CLS
274 E135 43 4C 45 41 DB 'CLEAR',0
275 E139 52 00
276 E13B E55D DW CLEAR
277 E13D 48 41 52 44 DB 'HARD',0
278 E141 00
279 E142 E38C DW HARD
280 E144 44 49 53 50 DB 'DISPL',0
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-5
281 E148 4C 00
282 E14A E392 DW DISPL
283 E14C 49 46 00 DB 'IF',0
284 E14F E571 DW IFF
285 E151 47 4F 54 4F DB 'GOTO',0
286 E155 00
287 E156 E37B DW GOTO
288 E158 47 4F 53 55 DB 'GOSUB',0
289 E15C 42 00
290 E15E E44B DW GOSUB
291 E160 52 45 54 55 DB 'RETURN',0
292 E164 52 4E 00
293 E167 E46D DW RETURN
294 E169 52 45 4D 00 DB 'REM',0
295 E16D E54E DW REM
296 E16F 46 4F 52 00 DB 'FOR',0
297 E173 E488 DW FOR
298 E175 49 4E 50 55 DB 'INPUT',0
299 E179 54 00
300 E17B E58C DW INPUT
301 E17D 50 52 49 4E DB 'PRINT',0
302 E181 54 00
303 E183 E3E9 DW PRINT
304 E185 4C 50 52 49 DB 'LPRINT',0
305 E189 4E 54 00
306 E18C E3E6 DW LPRINT
307 E18E 45 4E 44 00 DB 'END',0
308 E192 E015 DW BEND
309 E194 53 54 4F 50 DB 'STOP',0
310 E198 00
311 E199 EB65 DW STOP
312 E19B 43 41 4C 4C DB 'CALL',0
313 E19F 00
314 E1A0 EA18 DW BCALL
315 E1A2 4F 55 54 43 DB 'OUTCHAR',0
316 E1A6 48 41 52 00
317 E1AA EB13 DW OUTCHR
318 E1AC 4F 55 54 00 DB 'OUT',0
319 E1B0 EA25 DW BOUT
320 E1B2 4F 24 00 DB 'O$',0
321 E1B5 EA84 DW O
322 E1B7 49 24 00 DB 'I$',0
323 E1BA EA91 DW I
324 E1BC 57 41 49 54 DB 'WAIT',0
325 E1C0 00
326 E1C1 EBB4 DW WAIT
327 E1C3 42 45 45 50 DB 'BEEP',0
328 E1C7 00
329 E1C8 EBC1 DW BEEP
330 E1CA 50 4F 4B 45 DB 'POKE',0
331 E1CE 00
332 E1CF EAC9 DW POKE
333 E1D1 4D 41 53 4B DB 'MASK',0
334 E1D5 00
335 E1D6 E9E8 DW MASK
336 E1D8 54 41 42 00 DB 'TAB',0
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-6
337 E1DC EA4B DW TAB
338 E1DE 42 59 54 45 DB 'BYTE',0
339 E1E2 00
340 E1E3 EADE DW BYTE
341 E1E5 57 4F 52 44 DB 'WORD',0
342 E1E9 00
343 E1EA EAE8 DW WORD
344 E1EC 50 55 54 00 DB 'PUT',0
345 E1F0 EF5D DW PUT
346 E1F2 43 4C 4F 53 DB 'CLOSE',0
347 E1F6 45 00
348 E1F8 EF70 DW CLOSE
349 E1FA 49 4E 49 54 DB 'INIT',0
350 E1FE 00
351 E1FF EF80 DW INIT
352 E201 50 4C 4F 54 DB 'PLOT',0
353 E205 00
354 E206 EBE6 DW PLOT
355 E208 44 52 41 57 DB 'DRAW',0
356 E20C 00
357 E20D EC92 DW DRAW
358 E20F 4D 4F 56 45 DB 'MOVE',0
359 E213 00
360 E214 ED6F DW MOVE
361 E216 43 55 52 53 DB 'CURS',0
362 E21A 00
363 E21B ED95 DW CURS
364 E21D 45 44 49 54 DB 'EDIT',0
365 E221 00
366 E222 EDC3 DW EDIT
367 E224 00 DB 0
368 E225 E5F8 DW DEFLT
369 E227 52 4E 44 00 TAB4: DB 'RND',0
370 E22B E71C DW RND
371 E22D 41 42 53 00 DB 'ABS',0
372 E231 E74F DW ABS
373 E233 53 49 5A 45 DB 'SIZE',0
374 E237 00
375 E238 E758 DW SIZE
376 E23A 50 45 45 4B DB 'PEEK',0
377 E23E 00
378 E23F EAC2 DW PEEK
379 E241 49 4E 43 48 DB 'INCHAR',0
380 E245 41 52 00
381 E248 EB1D DW INCHAR
382 E24A 48 45 58 00 DB 'HEX',0
383 E24E EB29 DW HEX
384 E250 49 4E 4D 00 DB 'INM',0
385 E254 EA61 DW INM
386 E256 49 4E 00 DB 'IN',0
387 E259 EA5C DW BIN
388 E25B 27 00 DB 27H,0 ; UVOZOVKA '
389 E25D EB05 DW QUOTE
390 E25F 54 4F 50 00 DB 'TOP',0
391 E263 E00B DW TOP
392 E265 41 52 45 4D DB 'AREM',0
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-7
393 E269 00
394 E26A E559 DW AREM
395 E26C 4C 45 4E 00 DB 'LEN',0
396 E270 E010 DW LENGHT
397 E272 47 45 54 00 DB 'GET',0
398 E276 EF54 DW GET
399 E278 00 DB 0
400 E279 E6FA DW XP40
401 E27B 54 4F 00 TAB5: DB 'TO',0
402 E27E E498 DW FR1
403 E280 00 DB 0
404 E281 E7D5 DW QWHAT
405 E283 53 54 45 50 TAB6: DB 'STEP',0
406 E287 00
407 E288 E4A4 DW FR2
408 E28A 00 DB 0
409 E28B E4AA DW FR3
410 E28D 3E 3D 00 TAB8: DB '>=',0
411 E290 E616 DW XP11
412 E292 23 00 DB '#',0
413 E294 E61C DW XP12
414 E296 3E 00 DB '>',0
415 E298 E622 DW XP13
416 E29A 3D 00 DB '=',0
417 E29C E631 DW XP15
418 E29E 3C 3D 00 DB '<=',0
419 E2A1 E629 DW XP14
420 E2A3 3C 00 DB '<',0
421 E2A5 E637 DW XP16
422 E2A7 00 DB 0
423 E2A8 E63D DW XP17
424 ;
425 ; COMP POROVNANI <HL> A <DE>
426 ; <HL> < <DE> ... CARRY
427 ; <HL> = <DE> ... ZERO
428 ;
429 E2AA 7C COMP: MOV A,H
430 E2AB BA CMP D
431 E2AC C0 RNZ
432 E2AD 7D MOV A,L
433 E2AE BB CMP E
434 E2AF C9 RET
435 ;
436 ; IGNB VYNECHANI MAEZER PODLE <DE>
437 ;
438 E2B0 1A IGNB: LDAX D
439 E2B1 FE 20 CPI ' '
440 E2B3 C0 RNZ
441 E2B4 13 INX D
442 E2B5 C3 E2B0 JMP IGNB
443 ;
444 ; FINI
445 ;
446 E2B8 F1 FINI: POP PSW
447 E2B9 CD E7BC CALL FIN
448 E2BC C3 E7D5 JMP QWHAT
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-8
449 ;
450 ; INDEXOVANA PROMENA
451 ;
452 E2BF CD E2B0 TSTV: CALL IGNB
453 E2C2 D6 40 SUI 40H
454 E2C4 D8 RC
455 E2C5 C2 E2E3 JNZ TV1
456 E2C8 13 INX D
457 E2C9 CD E70B CALL PARN
458 E2CC 29 DAD H
459 E2CD DA E331 JC QHOW
460 E2D0 D5 PUSH D
461 E2D1 EB XCHG
462 E2D2 CD E758 CALL SIZE
463 E2D5 CD E2AA CALL COMP
464 E2D8 DA E80B JC ASORRY
465 E2DB 2A 0027 LHLD TXTEND
466 E2DE CD E77B CALL SUBDE
467 E2E1 D1 POP D
468 E2E2 C9 RET
469 ;
470 ; VYPOCET ADRESY ULOZENI PROMENE
471 ;
472 E2E3 FE 1B TV1: CPI 1BH
473 E2E5 3F CMC
474 E2E6 D8 RC
475 E2E7 13 INX D
476 E2E8 21 0065 LXI H,VARBGN
477 E2EB 07 RLC
478 E2EC 85 ADD L
479 E2ED 6F MOV L,A
480 E2EE 3E 00 MVI A,0
481 E2F0 8C ADC H
482 E2F1 67 MOV H,A
483 E2F2 C9 RET
484 ;
485 ; TSTC POROVNANI TEXTU PODLE <DE> SE ZNAKEM
486 ; KTERY JE ZA CALL+3. JE-LI SHODNY POKRACUJE
487 ; SE NA CALL+5, JINAK NA ADRESE CALL+N+2.
488 ; N JE NA ADRESE CALL...+4
489 ;
490 E2F3 E3 TSTC: XTHL
491 E2F4 CD E2B0 CALL IGNB
492 E2F7 BE CMP M
493 E2F8 23 INX H
494 E2F9 CA E303 JZ TC2
495 E2FC C5 PUSH B
496 E2FD 4E MOV C,M
497 E2FE 06 00 MVI B,0
498 E300 09 DAD B
499 E301 C1 POP B
500 E302 1B DCX D
501 E303 13 TC2: INX D
502 E304 23 INX H
503 E305 E3 XTHL
504 E306 C9 RET
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-9
505 ;
506 ; TSTNUM PREVOD ASCII CISLA Z BUFFERU
507 ; NA BINARNI CISLO V <HL>, V <DE> ADRESA DALSIHO ZNAKU.
508 ;
509 E307 21 0000 TSTNUM: LXI H,0
510 E30A 44 MOV B,H
511 E30B CD E2B0 CALL IGNB ; VYNECH MEZERY
512 E30E FE 30 TN1: CPI '0' ; NULA ?
513 E310 D8 RC
514 E311 FE 3A CPI 3AH
515 E313 D0 RNC
516 E314 3E F0 MVI A,0F0H
517 E316 A4 ANA H
518 E317 C2 E331 JNZ QHOW
519 E31A 04 INR B
520 E31B C5 PUSH B
521 E31C 44 MOV B,H
522 E31D 4D MOV C,L
523 E31E 29 DAD H
524 E31F 29 DAD H
525 E320 09 DAD B
526 E321 29 DAD H
527 E322 1A LDAX D
528 E323 13 INX D
529 E324 E6 0F ANI 0FH
530 E326 85 ADD L
531 E327 6F MOV L,A
532 E328 3E 00 MVI A,0
533 E32A 8C ADC H
534 E32B 67 MOV H,A
535 E32C C1 POP B
536 E32D 1A LDAX D
537 E32E F2 E30E JP TN1
538 ;
539 ; QHOW OTAZKA HOW
540 ;
541 E331 D5 QHOW: PUSH D
542 E332 11 E338 AHOW: LXI D,HOW
543 E335 C3 E7D9 JMP ERROR
544 ;
545 ; TEXTY OTAZEK
546 ;
547 E338 48 4F 57 3F HOW: DB 'HOW?',CR
548 E33C 0D
549 E33D 52 45 41 44 OK: DB 'READY',CR
550 E341 59 0D
551 E343 57 48 41 54 WHAT: DB 'WHAT?',CR
552 E347 3F 0D
553 E349 53 4F 52 52 SORRY: DB 'SORRY',CR
554 E34D 59 0D
555 ;
556 ; NEW
557 ;
558 E34F CD E7CF NEW: CALL ENDCHK
559 E352 21 009B LXI H,TXTBGN
560 E355 22 003B SHLD TXTUNF
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-10
561 ;
562 ; RUN
563 ;
564 E358 CD E7CF RUN: CALL ENDCHK
565 E35B 11 009B LXI D,TXTBGN
566 E35E 21 0000 RUNNXL: LXI H,0
567 E361 CD E871 CALL FNDLP
568 E364 DA E03E JC RSTART
569 E367 EB RUNTSL: XCHG
570 E368 22 0010 SHLD CURRNT
571 E36B EB XCHG
572 E36C 13 INX D
573 E36D 13 INX D
574 E36E AF RUNSML: XRA A
575 E36F 32 0026 STA MODE ; NORMALNI ZNAK
576 E372 CD EB57 CALL CONT
577 E375 21 E121 LXI H,TAB2-1
578 E378 C3 E9A8 JMP EXEC
579 ;
580 ; GOTO
581 ;
582 E37B CD E60C GOTO: CALL EXPR
583 E37E D5 PUSH D
584 E37F CD E7CF CALL ENDCHK
585 E382 CD E869 CALL FNDLN
586 E385 C2 E332 JNZ AHOW
587 E388 F1 POP PSW
588 E389 C3 E367 JMP RUNTSL
589 ;
590 ; HARD
591 ;
592 E38C CD EB7A HARD: CALL PRNTST
593 E38F CD E2B8 CALL FINI
594 ;
595 ; DISPL
596 ;
597 E392 CD EB81 DISPL: CALL DISP
598 E395 CD E2B8 CALL FINI
599 ;
600 ; LIST
601 ;
602 E398 CD EB7A LLIST: CALL PRNTST
603 E39B CD E307 LIST: CALL TSTNUM
604 E39E 3E FF MVI A,0FFH
605 E3A0 32 000B STA LISTC
606 E3A3 CD E2B0 CALL IGNB
607 E3A6 FE 0D CPI CR
608 E3A8 C2 E3C9 JNZ LS4
609 E3AB CD E869 LS0: CALL FNDLN
610 E3AE DA E3E0 LS1: JC LS6
611 E3B1 3A 000B LDA LISTC
612 E3B4 FE FF CPI 0FFH
613 E3B6 CA E3BD JZ LS5
614 E3B9 3D DCR A
615 E3BA CA E03E JZ RSTART
616 E3BD 32 000B LS5: STA LISTC
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-11
617 E3C0 CD E8FA LS3: CALL PRTLN
618 E3C3 CD E871 CALL FNDLP
619 E3C6 C3 E3AE JMP LS1
620 E3C9 FE 2B LS4: CPI '+'
621 E3CB C2 E3AB JNZ LS0
622 E3CE 13 INX D
623 E3CF CD E2B0 CALL IGNB
624 E3D2 E5 PUSH H
625 E3D3 CD E307 CALL TSTNUM
626 E3D6 7D MOV A,L
627 E3D7 3C INR A
628 E3D8 3C INR A
629 E3D9 32 000B STA LISTC
630 E3DC E1 POP H
631 E3DD C3 E3AB JMP LS0
632 E3E0 CD EB81 LS6: CALL DISP
633 E3E3 C3 E041 JMP RSTAR1
634 ;
635 ; PRINT
636 ;
637 E3E6 CD EB7A LPRINT: CALL PRNTST
638 E3E9 0E 08 PRINT: MVI C,8
639 E3EB CD E2F3 CALL TSTC ; JDE O ":" ?
640 E3EE 3A DB ':'
641 E3EF 09 DB 9
642 E3F0 CD E974 CALL CRLF ; ANO - VICENASOBNY PRIKAZ
643 E3F3 CD EB81 CALL DISP
644 E3F6 C3 E36E JMP RUNSML
645 E3F9 CD E2F3 PR1: CALL TSTC ; JDE O CR ?
646 E3FC 0D DB CR
647 E3FD 09 DB 9
648 E3FE CD E974 CALL CRLF ; ANO - KONEC PRIKAZU
649 E401 CD EB81 PR6: CALL DISP
650 E404 C3 E35E JMP RUNNXL
651 E407 CD E2F3 PR0: CALL TSTC ; JDE O "*" ?
652 E40A 2A DB '*'
653 E40B 0E DB 14
654 E40C CD E60C CALL EXPR ; ANO - VSTUP PARAMETRU ZOBRAZENI
655 E40F 7D MOV A,L
656 E410 0F RRC
657 E411 0F RRC
658 E412 E6 C0 ANI 0C0H
659 E414 32 0026 STA MODE ; NASTAV REZIM ZOBRAZENI (0-NORM, 1-INVER)
660 E417 C3 E42C JMP PR3
661 E41A CD E2F3 CALL TSTC ; JDE O "#" ?
662 E41D 23 DB '#'
663 E41E 07 DB 7
664 E41F CD E60C CALL EXPR ; ANO - VSTUP PARAMETU IND. PROMENNE
665 E422 4D MOV C,L
666 E423 C3 E42C JMP PR3
667 E426 CD E8A1 CALL QTSTG
668 E429 C3 E440 JMP PR8
669 E42C CD E2F3 PR3: CALL TSTC ; JDE O "," ?
670 E42F 2C DB ','
671 E430 06 DB 6
672 E431 CD E7BC CALL FIN ; ANO - DALSI ARGUMENT
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-12
673 E434 C3 E407 JMP PR0
674 E437 CD E974 CALL CRLF
675 E43A CD EB81 CALL DISP
676 E43D CD E2B8 CALL FINI
677 E440 CD E60C PR8: CALL EXPR ; ZOBRAZ CISLO
678 E443 C5 PUSH B
679 E444 CD E8B6 CALL PRTNUM
680 E447 C1 POP B
681 E448 C3 E42C JMP PR3
682 ;
683 ; GOSUB
684 ;
685 E44B CD E945 GOSUB: CALL PUSHA
686 E44E CD E60C CALL EXPR
687 E451 D5 PUSH D
688 E452 CD E869 CALL FNDLN
689 E455 C2 E332 JNZ AHOW
690 E458 2A 0010 LHLD CURRNT
691 E45B E5 PUSH H
692 E45C 2A 0012 LHLD STKGOS
693 E45F E5 PUSH H
694 E460 21 0000 LXI H,0
695 E463 22 0018 SHLD LOPVAR
696 E466 39 DAD SP
697 E467 22 0012 SHLD STKGOS
698 E46A C3 E367 JMP RUNTSL
699 ;
700 ; RETURN
701 ;
702 E46D CD E7CF RETURN: CALL ENDCHK
703 E470 2A 0012 LHLD STKGOS
704 E473 7C MOV A,H
705 E474 B5 ORA L
706 E475 CA E7D5 JZ QWHAT
707 E478 F9 SPHL
708 E479 E1 POP H
709 E47A 22 0012 SHLD STKGOS
710 E47D E1 POP H
711 E47E 22 0010 SHLD CURRNT
712 E481 D1 POP D
713 E482 CD E929 CALL POPA
714 E485 CD E2B8 CALL FINI
715 ;
716 ; FOR
717 ;
718 E488 CD E945 FOR: CALL PUSHA
719 E48B CD E7A3 CALL SETVAL
720 E48E 2B DCX H
721 E48F 22 0018 SHLD LOPVAR
722 E492 21 E27A LXI H,TAB5-1
723 E495 C3 E9A8 JMP EXEC
724 ;
725 E498 CD E60C FR1: CALL EXPR
726 E49B 22 001C SHLD LOPLMT
727 E49E 21 E282 LXI H,TAB6-1
728 E4A1 C3 E9A8 JMP EXEC
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-13
729 ;
730 E4A4 CD E60C FR2: CALL EXPR
731 E4A7 C3 E4AD JMP FR4
732 ;
733 E4AA 21 0001 FR3: LXI H,1
734 E4AD 22 001A FR4: SHLD LOPINC
735 E4B0 2A 0010 LHLD CURRNT
736 E4B3 22 001E SHLD LOPLN
737 E4B6 EB XCHG
738 E4B7 22 0020 SHLD LOPPT
739 E4BA 01 000A LXI B,LF
740 E4BD 2A 0018 LHLD LOPVAR
741 E4C0 EB XCHG
742 E4C1 60 MOV H,B
743 E4C2 68 MOV L,B
744 E4C3 39 DAD SP
745 E4C4 3E DB 3EH
746 E4C5 09 FR7: DAD B
747 E4C6 7E MOV A,M
748 E4C7 23 INX H
749 E4C8 B6 ORA M
750 E4C9 CA E4E6 JZ FR8
751 E4CC 7E MOV A,M
752 E4CD 2B DCX H
753 E4CE BA CMP D
754 E4CF C2 E4C5 JNZ FR7
755 E4D2 7E MOV A,M
756 E4D3 BB CMP E
757 E4D4 C2 E4C5 JNZ FR7
758 E4D7 EB XCHG
759 E4D8 21 0000 LXI H,0
760 E4DB 39 DAD SP
761 E4DC 44 MOV B,H
762 E4DD 4D MOV C,L
763 E4DE 21 000A LXI H,LF
764 E4E1 19 DAD D
765 E4E2 CD E91A CALL MVDOWN
766 E4E5 F9 SPHL
767 E4E6 2A 0020 FR8: LHLD LOPPT
768 E4E9 EB XCHG
769 E4EA CD E2B8 CALL FINI
770 ;
771 ; NEXT
772 ;
773 E4ED CD E2BF NEXT: CALL TSTV
774 E4F0 DA E7D5 JC QWHAT
775 E4F3 22 0014 SHLD VARNXT
776 E4F6 D5 NX0: PUSH D
777 E4F7 EB XCHG
778 E4F8 2A 0018 LHLD LOPVAR
779 E4FB 7C MOV A,H
780 E4FC B5 ORA L
781 E4FD CA E7D6 JZ AWHAT
782 E500 CD E2AA CALL COMP
783 E503 CA E510 JZ NX3
784 E506 D1 POP D
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-14
785 E507 CD E929 CALL POPA
786 E50A 2A 0014 LHLD VARNXT
787 E50D C3 E4F6 JMP NX0
788 E510 5E NX3: MOV E,M
789 E511 23 INX H
790 E512 56 MOV D,M
791 E513 2A 001A LHLD LOPINC
792 E516 E5 PUSH H
793 E517 7C MOV A,H
794 E518 AA XRA D
795 E519 7A MOV A,D
796 E51A 19 DAD D
797 E51B FA E522 JM NX4
798 E51E AC XRA H
799 E51F FA E546 JM NX5
800 E522 EB NX4: XCHG
801 E523 2A 0018 LHLD LOPVAR
802 E526 73 MOV M,E
803 E527 23 INX H
804 E528 72 MOV M,D
805 E529 2A 001C LHLD LOPLMT
806 E52C F1 POP PSW
807 E52D B7 ORA A
808 E52E F2 E532 JP NX1
809 E531 EB XCHG
810 E532 CD E79A NX1: CALL CKHLDE
811 E535 D1 POP D
812 E536 DA E548 JC NX2
813 E539 2A 001E LHLD LOPLN
814 E53C 22 0010 SHLD CURRNT
815 E53F 2A 0020 LHLD LOPPT
816 E542 EB XCHG
817 E543 CD E2B8 CALL FINI
818 E546 E1 NX5: POP H
819 E547 D1 POP D
820 E548 CD E929 NX2: CALL POPA
821 E54B CD E2B8 CALL FINI
822 ;
823 ; REM
824 ;
825 E54E EB REM: XCHG
826 E54F 22 0024 SHLD ARMM
827 E552 EB XCHG
828 E553 21 0000 LXI H,0
829 E556 C3 E574 JMP IFFR
830 ;
831 ; AREM
832 ;
833 E559 2A 0024 AREM: LHLD ARMM
834 E55C C9 RET
835 ;
836 ;
837 ; CLEAR
838 ;
839 E55D 21 0065 CLEAR: LXI H,VARBGN
840 E560 D5 PUSH D
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-15
841 E561 11 0036 LXI D,54
842 E564 36 00 NULD20: MVI M,0 ; ZAPLN PROSTOR PRO PROMENNE 0
843 E566 23 INX H
844 E567 1B DCX D
845 E568 7A MOV A,D
846 E569 B3 ORA E
847 E56A C2 E564 JNZ NULD20
848 E56D D1 POP D
849 E56E CD E2B8 CALL FINI
850 ;
851 ; IF
852 ;
853 E571 CD E60C IFF: CALL EXPR
854 E574 7C IFFR: MOV A,H
855 E575 B5 ORA L
856 E576 C2 E36E JNZ RUNSML
857 E579 CD E889 CALL FNDSKP
858 E57C D2 E367 JNC RUNTSL
859 E57F C3 E03E JMP RSTART
860 ;
861 ; CHYBA VSTUPU
862 ;
863 E582 2A 0016 INPERR: LHLD STKINP
864 E585 F9 SPHL
865 E586 E1 POP H
866 E587 22 0010 SHLD CURRNT
867 E58A D1 POP D
868 E58B D1 POP D
869 ;
870 ; INPUT
871 ;
872 E58C INPUT:
873 E58C D5 IP1: PUSH D
874 E58D CD E8A1 CALL QTSTG
875 E590 C3 E59C JMP IP2
876 E593 CD E2BF CALL TSTV
877 E596 DA E5EC JC IP4
878 E599 C3 E5AE JMP IP3
879 E59C D5 IP2: PUSH D
880 E59D CD E2BF CALL TSTV
881 E5A0 DA E7D5 JC QWHAT
882 E5A3 1A LDAX D
883 E5A4 4F MOV C,A
884 E5A5 97 SUB A
885 E5A6 12 STAX D
886 E5A7 D1 POP D
887 E5A8 CD E893 CALL PRTSTG
888 E5AB 79 MOV A,C
889 E5AC 1B DCX D
890 E5AD 12 STAX D
891 E5AE D5 IP3: PUSH D
892 E5AF EB XCHG
893 E5B0 2A 0010 LHLD CURRNT
894 E5B3 E5 PUSH H
895 E5B4 21 E58C LXI H,IP1
896 E5B7 22 0010 SHLD CURRNT
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-16
897 E5BA 21 0000 LXI H,0
898 E5BD 39 DAD SP
899 E5BE 22 0016 SHLD STKINP
900 E5C1 D5 PUSH D
901 E5C2 06 3A MVI B,':'
902 E5C4 CD E811 CALL GETLN ; VYTISKNI NA OBRAZOVKU ':'
903 ; A PREVZEMI Z KLAVESNICE RADEK
904 E5C7 CD E9D8 CALL DBUFF ; DE:=ADR. ZACATKU RADKU S REAKCI
905 ; NA INPUT
906 E5CA 1A LDAX D ; A:=PRVNI ZNAK REAKCE
907 E5CB FE 1B CPI ESC ; IF <>ESC THEN
908 E5CD C2 E5DC JNZ NOBRK ; VYHODNOCENI VYRAZU
909 E5D0 D1 POP D ; ELSE OBNOV DE
910 E5D1 EB XCHG ; HL:=DE
911 E5D2 73 MOV M,E ; ULOZ
912 E5D3 23 INX H
913 E5D4 72 MOV M,D
914 E5D5 E1 POP H ; HL:=CURRNT
915 E5D6 22 0010 SHLD CURRNT ; ULOZ
916 E5D9 C3 EB6B JMP BREAK1 ; BREAK
917 E5DC CD E60C NOBRK: CALL EXPR ; VYHODNOCENI VYRAZU
918 E5DF D1 POP D
919 E5E0 EB XCHG
920 E5E1 73 MOV M,E
921 E5E2 23 INX H
922 E5E3 72 MOV M,D
923 E5E4 E1 POP H
924 E5E5 22 0010 SHLD CURRNT
925 E5E8 CD EB57 CALL CONT
926 E5EB D1 POP D
927 E5EC F1 IP4: POP PSW
928 E5ED CD E2F3 CALL TSTC
929 E5F0 2C DB ','
930 E5F1 03 DB 3
931 E5F2 C3 E58C JMP IP1
932 E5F5 CD E2B8 CALL FINI
933 ;
934 ;
935 ;
936 E5F8 1A DEFLT: LDAX D
937 E5F9 FE 0D CPI CR
938 E5FB CA E609 JZ LT1
939 ;
940 ; LET
941 ;
942 E5FE CD E7A3 LET: CALL SETVAL
943 E601 CD E2F3 CALL TSTC
944 E604 2C DB ','
945 E605 03 DB 3
946 E606 C3 E5FE JMP LET
947 E609 CD E2B8 LT1: CALL FINI
948 ;
949 ; EXPR VYHODNOCENI VYRAZU
950 ;
951 E60C CD E654 EXPR: CALL EXPR2
952 E60F E5 PUSH H
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-17
953 E610 21 E28C EXPR1: LXI H,TAB8-1
954 E613 C3 E9A8 JMP EXEC
955 E616 CD E63F XP11: CALL XP18
956 E619 D8 RC
957 E61A 6F MOV L,A
958 E61B C9 RET
959 E61C CD E63F XP12: CALL XP18
960 E61F C8 RZ
961 E620 6F MOV L,A
962 E621 C9 RET
963 E622 CD E63F XP13: CALL XP18
964 E625 C8 RZ
965 E626 D8 RC
966 E627 6F MOV L,A
967 E628 C9 RET
968 E629 CD E63F XP14: CALL XP18
969 E62C 6F MOV L,A
970 E62D C8 RZ
971 E62E D8 RC
972 E62F 6C MOV L,H
973 E630 C9 RET
974 E631 CD E63F XP15: CALL XP18
975 E634 C0 RNZ
976 E635 6F MOV L,A
977 E636 C9 RET
978 E637 CD E63F XP16: CALL XP18
979 E63A D0 RNC
980 E63B 6F MOV L,A
981 E63C C9 RET
982 E63D E1 XP17: POP H
983 E63E C9 RET
984 E63F 79 XP18: MOV A,C
985 E640 E1 POP H
986 E641 C1 POP B
987 E642 E5 PUSH H
988 E643 C5 PUSH B
989 E644 4F MOV C,A
990 E645 CD E654 CALL EXPR2
991 E648 EB XCHG
992 E649 E3 XTHL
993 E64A CD E79A CALL CKHLDE
994 E64D D1 POP D
995 E64E 21 0000 LXI H,0
996 E651 3E 01 MVI A,1
997 E653 C9 RET
998 E654 CD E2F3 EXPR2: CALL TSTC
999 E657 2D DB '-'
1000 E658 06 DB 6
1001 E659 21 0000 LXI H,0
1002 E65C C3 E686 JMP XP26
1003 E65F CD E2F3 CALL TSTC
1004 E662 2B DB '+'
1005 E663 00 DB 0
1006 E664 CD E690 CALL EXPR3
1007 E667 CD E2F3 XP23: CALL TSTC
1008 E66A 2B DB '+'
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-18
1009 E66B 15 DB 15H
1010 E66C E5 PUSH H
1011 E66D CD E690 CALL EXPR3
1012 E670 EB XP24: XCHG
1013 E671 E3 XTHL
1014 E672 7C MOV A,H
1015 E673 AA XRA D
1016 E674 7A MOV A,D
1017 E675 19 DAD D
1018 E676 D1 POP D
1019 E677 FA E667 JM XP23
1020 E67A AC XRA H
1021 E67B F2 E667 JP XP23
1022 E67E C3 E331 JMP QHOW
1023 E681 CD E2F3 CALL TSTC
1024 E684 2D DB '-'
1025 E685 92 DB 92H
1026 E686 E5 XP26: PUSH H
1027 E687 CD E690 CALL EXPR3
1028 E68A CD E785 CALL CHGSGN
1029 E68D C3 E670 JMP XP24
1030 E690 CD E6F4 EXPR3: CALL EXPR4
1031 E693 CD E2F3 XP31: CALL TSTC
1032 E696 2A DB '*'
1033 E697 2D DB 2DH
1034 E698 E5 PUSH H
1035 E699 CD E6F4 CALL EXPR4
1036 E69C 06 00 MVI B,0
1037 E69E CD E782 CALL CHKSGN
1038 E6A1 E3 XTHL
1039 E6A2 CD E782 CALL CHKSGN
1040 E6A5 EB XCHG
1041 E6A6 E3 XTHL
1042 E6A7 7C MOV A,H
1043 E6A8 B7 ORA A
1044 E6A9 CA E6B2 JZ XP32
1045 E6AC 7A MOV A,D
1046 E6AD B2 ORA D
1047 E6AE EB XCHG
1048 E6AF C2 E332 JNZ AHOW
1049 E6B2 7D XP32: MOV A,L
1050 E6B3 21 0000 LXI H,0
1051 E6B6 B7 ORA A
1052 E6B7 CA E6E6 JZ XP35
1053 E6BA 19 XP33: DAD D
1054 E6BB DA E332 JC AHOW
1055 E6BE 3D DCR A
1056 E6BF C2 E6BA JNZ XP33
1057 E6C2 C3 E6E6 JMP XP35
1058 E6C5 CD E2F3 CALL TSTC
1059 E6C8 2F DB '/'
1060 E6C9 4E DB 4EH
1061 E6CA E5 PUSH H
1062 E6CB CD E6F4 CALL EXPR4
1063 E6CE 06 00 MVI B,0
1064 E6D0 CD E782 CALL CHKSGN
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-19
1065 E6D3 E3 XTHL
1066 E6D4 CD E782 CALL CHKSGN
1067 E6D7 EB XCHG
1068 E6D8 E3 XTHL
1069 E6D9 EB XCHG
1070 E6DA 7A MOV A,D
1071 E6DB B3 ORA E
1072 E6DC CA E332 JZ AHOW
1073 E6DF C5 PUSH B
1074 E6E0 CD E765 CALL DIVIDE
1075 E6E3 60 MOV H,B
1076 E6E4 69 MOV L,C
1077 E6E5 C1 POP B
1078 E6E6 D1 XP35: POP D
1079 E6E7 7C MOV A,H
1080 E6E8 B7 ORA A
1081 E6E9 FA E331 JM QHOW
1082 E6EC 78 MOV A,B
1083 E6ED B7 ORA A
1084 E6EE FC E785 CM CHGSGN
1085 E6F1 C3 E693 JMP XP31
1086 E6F4 21 E226 EXPR4: LXI H,TAB4-1
1087 E6F7 C3 E9A8 JMP EXEC
1088 E6FA CD E2BF XP40: CALL TSTV
1089 E6FD DA E705 JC XP41
1090 E700 7E MOV A,M
1091 E701 23 INX H
1092 E702 66 MOV H,M
1093 E703 6F MOV L,A
1094 E704 C9 RET
1095 E705 CD E307 XP41: CALL TSTNUM
1096 E708 78 MOV A,B
1097 E709 B7 ORA A
1098 E70A C0 RNZ
1099 E70B CD E2F3 PARN: CALL TSTC
1100 E70E 28 DB '('
1101 E70F 09 DB 09
1102 E710 CD E60C CALL EXPR
1103 E713 CD E2F3 CALL TSTC
1104 E716 29 DB ')'
1105 E717 01 DB 1
1106 E718 C9 RET
1107 E719 C3 E7D5 JMP QWHAT
1108 ;
1109 ;
1110 ;
1111 ; GENERATOR NAHODNICH CISEL
1112 ;
1113 ; PRO PRACI POUZIVA PARAMETR RANPNT. PRINCIPEM CINNOSTI
1114 ; JE GENERACE TOHOTO PARAMETRU NACITANIM OBLASTI PAMETI,
1115 ; V NIZ JE NAHRAN INTERPRET. NAHODNA HODNOTA JE ZBITKEM
1116 ; PO DELENI PARAMETRU RANPNT UDANOU MAXIMALNI HODNOTOU.
1117 ;
1118 E71C CD E70B RND: CALL PARN ; HL:=MAX. HODNOTA
1119 E71F 7C MOV A,H
1120 E720 B7 ORA A
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-20
1121 E721 FA E331 JM QHOW ; IF ZAPORNA ERROR
1122 E724 B5 ORA L
1123 E725 D5 PUSH D
1124 E726 23 INX H
1125 E727 E5 PUSH H
1126 E728 C2 E731 JNZ RA2 ; IF 0 --> INICIUJ
1127 E72B 21 E000 LXI H,BASPET
1128 E72E 22 0022 SHLD RANPNT
1129 E731 2A 0022 RA2: LHLD RANPNT ; PARAMETR
1130 E734 11 EBB1 LXI D,MONIT
1131 E737 CD E2AA CALL COMP ; PARAMETR MIMO INTERPRET ?
1132 E73A DA E740 JC RA1
1133 E73D 21 E000 LXI H,BASPET ; ANO - INICIUJ
1134 E740 5E RA1: MOV E,M
1135 E741 23 INX H
1136 E742 56 MOV D,M
1137 E743 22 0022 SHLD RANPNT ; NOVY PARAMETR
1138 E746 E1 POP H ; MAX. HODNOTA DO <DE>
1139 E747 EB XCHG ; PSEUDONAHODNE CISLO DO <HL>
1140 E748 C5 PUSH B
1141 E749 CD E765 CALL DIVIDE ; <HL>/<DE> ... ZBITEK V <HL>
1142 E74C C1 POP B
1143 E74D D1 POP D
1144 E74E C9 RET
1145 ;
1146 ;
1147 ;
1148 ; ABS
1149 ;
1150 E74F CD E70B ABS: CALL PARN
1151 E752 1B DCX D
1152 E753 CD E782 CALL CHKSGN
1153 E756 13 INX D
1154 E757 C9 RET
1155 ;
1156 ; SIZE
1157 ;
1158 E758 2A 003B SIZE: LHLD TXTUNF
1159 E75B D5 PUSH D
1160 E75C EB XCHG
1161 E75D 2A 0027 LHLD TXTEND
1162 E760 CD E77B CALL SUBDE
1163 E763 D1 POP D
1164 E764 C9 RET
1165 ;
1166 ; DIVIE <HL>/<DE> --> <BC>, ZBITEK V <HL>
1167 ;
1168 E765 E5 DIVIDE: PUSH H
1169 E766 6C MOV L,H
1170 E767 26 00 MVI H,0
1171 E769 CD E770 CALL DV1
1172 E76C 41 MOV B,C
1173 E76D 7D MOV A,L
1174 E76E E1 POP H
1175 E76F 67 MOV H,A
1176 E770 0E FF DV1: MVI C,0FFH
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-21
1177 E772 0C DV2: INR C
1178 E773 CD E77B CALL SUBDE
1179 E776 D2 E772 JNC DV2
1180 E779 19 DAD D
1181 E77A C9 RET
1182 E77B 7D SUBDE: MOV A,L
1183 E77C 93 SUB E
1184 E77D 6F MOV L,A
1185 E77E 7C MOV A,H
1186 E77F 9A SBB D
1187 E780 67 MOV H,A
1188 E781 C9 RET
1189 ;
1190 E782 7C CHKSGN: MOV A,H
1191 E783 B7 ORA A
1192 E784 F0 RP
1193 E785 7C CHGSGN: MOV A,H ; ZMENA ZNAMENKA
1194 E786 B5 ORA L
1195 E787 C8 RZ ; CISLO JE NULA !
1196 E788 7C MOV A,H
1197 E789 F5 PUSH PSW
1198 E78A 2F CMA
1199 E78B 67 MOV H,A ; INVERZE HIGH BYTE
1200 E78C 7D MOV A,L
1201 E78D 2F CMA
1202 E78E 6F MOV L,A ; INVERZE LOW BYTE
1203 E78F 23 INX H ; PRICTENI 1
1204 E790 F1 POP PSW
1205 E791 AC XRA H
1206 E792 F2 E331 JP QHOW ; PRETECENI
1207 E795 78 MOV A,B
1208 E796 EE 80 XRI 80H ; INVERZE D7 V <B>
1209 E798 47 MOV B,A
1210 E799 C9 RET
1211 ;
1212 E79A 7C CKHLDE: MOV A,H
1213 E79B AA XRA D
1214 E79C F2 E7A0 JP CK1
1215 E79F EB XCHG
1216 E7A0 C3 E2AA CK1: JMP COMP
1217 ;
1218 ; SETVAL
1219 ;
1220 E7A3 CD E2BF SETVAL: CALL TSTV
1221 E7A6 DA E7D5 JC QWHAT
1222 E7A9 E5 PUSH H
1223 E7AA CD E2F3 CALL TSTC
1224 E7AD 3D DB '='
1225 E7AE 0A DB LF
1226 E7AF CD E60C CALL EXPR
1227 E7B2 44 MOV B,H
1228 E7B3 4D MOV C,L
1229 E7B4 E1 POP H
1230 E7B5 71 MOV M,C
1231 E7B6 23 INX H
1232 E7B7 70 MOV M,B
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-22
1233 E7B8 C9 RET
1234 E7B9 C3 E7D5 JMP QWHAT
1235 ;
1236 ; FIN
1237 ;
1238 E7BC CD E2F3 FIN: CALL TSTC
1239 E7BF 3A DB ':'
1240 E7C0 04 DB 4
1241 E7C1 F1 POP PSW
1242 E7C2 C3 E36E JMP RUNSML
1243 E7C5 CD E2F3 CALL TSTC
1244 E7C8 0D DB CR
1245 E7C9 04 DB 4
1246 E7CA F1 POP PSW
1247 E7CB C3 E35E JMP RUNNXL
1248 E7CE C9 RET
1249 ;
1250 ; ENDCHK
1251 ;
1252 E7CF CD E2B0 ENDCHK: CALL IGNB
1253 E7D2 FE 0D CPI CR
1254 E7D4 C8 RZ
1255 E7D5 D5 QWHAT: PUSH D
1256 E7D6 11 E343 AWHAT: LXI D,WHAT
1257 E7D9 97 ERROR: SUB A
1258 E7DA 32 0026 STA MODE ; NORMALNI ZOBRAZENI
1259 E7DD CD E893 CALL PRTSTG
1260 E7E0 CD EB81 CALL DISP
1261 E7E3 D1 POP D
1262 E7E4 1A LDAX D
1263 E7E5 F5 PUSH PSW
1264 E7E6 97 SUB A
1265 E7E7 12 STAX D
1266 E7E8 2A 0010 LHLD CURRNT
1267 E7EB E5 PUSH H
1268 E7EC 7E MOV A,M
1269 E7ED 23 INX H
1270 E7EE B6 ORA M
1271 E7EF D1 POP D
1272 E7F0 CA E03E JZ RSTART
1273 E7F3 7E MOV A,M
1274 E7F4 B7 ORA A
1275 E7F5 FA E582 JM INPERR
1276 E7F8 CD E8FA CALL PRTLN
1277 E7FB 1B DCX D
1278 E7FC F1 POP PSW
1279 E7FD 12 STAX D
1280 E7FE 3E 3F MVI A,03FH
1281 E800 CD E976 CALL OUTC
1282 E803 97 SUB A
1283 E804 CD E893 CALL PRTSTG
1284 E807 C3 E03E JMP RSTART
1285 E80A D5 QSORRY: PUSH D
1286 E80B 11 E349 ASORRY: LXI D,SORRY
1287 E80E C3 E7D9 JMP ERROR
1288 ;
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-23
1289 ;
1290 ;
1291 ; GETLN
1292 ;
1293 ; ULOZ RADEK DO BUFFERU, V <DE> ADRESA POSLRNIHO ZNAKU + 1
1294 ;
1295 E811 78 GETLN: MOV A,B ; VYTISKNI (B) - VESMES 5CH
1296 E812 CD E976 CALL OUTC
1297 E815 CD E9D8 CALL DBUFF ; DE:=UKAZATEL NA ZACATEK
1298 ; VYROVNAVACI PAMETI RADKU
1299 E818 CD F803 GL1: CALL CI ; A:= ZNAK Z KLAVESNICE
1300 E81B FE 1B CPI ESC
1301 E81D CA E818 JZ GL1 ; IGNORUJ ZNAK ESC
1302 E820 FE 7F CPI RUB ; IF RUB OUT THEN
1303 E822 CA E841 JZ GL3 ; OPRAV POSLEDNI ZNAK
1304 E825 FE 08 CPI BS ; IF BACK SPACE THEN
1305 E827 CA E841 JZ GL3 ; OPRAV POSLEDNI ZNAK
1306 E82A FE 18 CPI CTRLX ; IF CTRL X THEN
1307 E82C CA E851 JZ GL4 ; ZRUS RADEK
1308 E82F CD E976 CALL OUTC ; ECHO ZNAK NA OBRAZOVKU
1309 E832 12 STAX D ; ULOZ ZNAK DO VYROVNAVACI PAMETI
1310 ; RADKU
1311 E833 13 INX D ; INKREMENTUJ UKAZATEL VYROVNAVACI
1312 ; PAMETI RADKU
1313 E834 FE 0D CPI CR ; IF POSLEDNI ZNAK (CR) THEN
1314 E836 C8 RZ ; NAVRAT
1315 E837 7B MOV A,E ; ELSE A:=NIZSI BYTE UKAZATELE
1316 ; VYROVNAVACI PAMETI RADKU
1317 E838 E5 CXBUFE: PUSH H ; USCHOVEJ HL
1318 E839 2A 002B LHLD BUFEND ; HL:=ADR. KONEC VYROVNAVACI
1319 ; PAMETI RADKU
1320 E83C BD CMP L ; IF UKAZATEL VYROVNAVACI PAMETI <>
1321 ; ADR. KONCE RADKU THEN
1322 E83D E1 POP H ; OBNOV HL
1323 E83E C2 E818 JNZ GL1 ; PREVEZMI DALSI ZNAK Z KLAVESNICE
1324 ; ELSE OPRAVUJ POSLEDNI ZNAK A CEKEJ
1325 ; NA (CR)
1326 ; OPRAV POSLEDNI ZNAK
1327 E841 7B GL3: MOV A,E ; A:=NIZSI BYTE UKAZATELE VYROVNAVACI
1328 ; PAMETI RADKU
1329 E842 E5 CXBUFA: PUSH H ; USCHOVEJ HL
1330 E843 2A 0029 LHLD BUFFER ; HL:=ADR. ZACATKU VYROVNAVACI PAMETI
1331 ; RADKU
1332 E846 BD CMP L ; IF UKAZATEL NA ZACATKU VYROV. PAMETI
1333 E847 E1 POP H ; THEN OBNOV HL
1334 E848 CA E851 JZ GL4 ; NASTAV ZACATEK RADKU
1335 E84B CD E859 CALL GL5 ; ELSE ZRUS POSLEDNI ZNAK
1336 E84E C3 E818 JMP GL1 ; PREVEZMI DALSI ZNAK Z KLAVESNICE
1337 ; ZRUS RADEK
1338 E851 CD E974 GL4: CALL CRLF ; VYTISKNI NA OBRAZOVKU (CR),(LF)
1339 E854 06 5C MVI B,5CH ; VYTISKNI 5CH
1340 E856 C3 E811 JMP GETLN ; PREVEZMI Z KLAVESNICE NOVY RADEK
1341 ; OPRAV POSLEDNI ZNAK
1342 E859 1B GL5: DCX D ; DEKREMENTUJ UKAZATEL VYROVNAVACI
1343 ; PAMETI RADKU NA POSLEDNI
1344 ; PLATNY ZNAK
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-24
1345 E85A 3E 08 MVI A,8 ; A:=BACK SPACE
1346 E85C CD E976 CALL OUTC ; POSUN KURZORU O 1 MISTO VLEVO
1347 E85F 3E 20 MVI A,' ' ; A:=MEZERA
1348 E861 CD E976 CALL OUTC ; VYTISKNI NA MISTO NEPLATNEHO ZNAKU
1349 ; MEZERU
1350 E864 3E 08 MVI A,8 ; POSUN KURZORU ZPET NA MEZERU
1351 E866 C3 E976 JMP OUTC ; NAVRAT RETURNEM Z OUTC
1352 ;
1353 ;
1354 ;
1355 ; FNDLN
1356 ;
1357 ; NAJDI ADRESU RADKU S CISLEM <HL> A ULOZ JI DO <DE>
1358 ; NASTAV PRIZNAK FF-Z PRI ROVNOSTI. FF-C PRI NEEXISTENCI
1359 ;
1360 E869 7C FNDLN: MOV A,H
1361 E86A B7 ORA A
1362 E86B FA E331 JM QHOW
1363 E86E 11 009B LXI D,TXTBGN
1364 E871 E5 FNDLP: PUSH H
1365 E872 2A 003B LHLD TXTUNF
1366 E875 2B DCX H
1367 E876 CD E2AA CALL COMP
1368 E879 E1 POP H
1369 E87A D8 RC
1370 E87B 1A LDAX D
1371 E87C 95 SUB L
1372 E87D 47 MOV B,A
1373 E87E 13 INX D
1374 E87F 1A LDAX D
1375 E880 9C SBB H
1376 E881 DA E888 JC FL2
1377 E884 1B DCX D
1378 E885 B0 ORA B
1379 E886 C9 RET
1380 ;
1381 ;
1382 ;
1383 ; FNDNXT
1384 ;
1385 ; NAJDI KONEC RADKU, DO <HL> ULOZ ADRESU DALSIHO RADKU
1386 ;
1387 E887 13 FNDNXT: INX D
1388 E888 13 FL2: INX D
1389 E889 1A FNDSKP: LDAX D
1390 E88A FE 0D CPI CR
1391 E88C C2 E888 JNZ FL2
1392 E88F 13 INX D
1393 E890 C3 E871 JMP FNDLP
1394 ;
1395 ; PRTSTG
1396 ;
1397 E893 47 PRTSTG: MOV B,A
1398 E894 1A PS1: LDAX D
1399 E895 13 INX D
1400 E896 B8 CMP B
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-25
1401 E897 C8 RZ
1402 E898 CD E976 CALL OUTC
1403 E89B FE 0D CPI CR
1404 E89D C2 E894 JNZ PS1
1405 E8A0 C9 RET
1406 ;
1407 ; QTSTG
1408 ;
1409 E8A1 CD E2F3 QTSTG: CALL TSTC
1410 E8A4 22 DB '"'
1411 E8A5 0F DB 0FH
1412 E8A6 3E 22 MVI A,'"'
1413 E8A8 CD E893 QT1: CALL PRTSTG
1414 E8AB FE 0D CPI CR
1415 E8AD E1 POP H
1416 E8AE CA E401 JZ PR6
1417 E8B1 23 QT2: INX H
1418 E8B2 23 INX H
1419 E8B3 23 INX H
1420 E8B4 E9 PCHL
1421 E8B5 C9 RET
1422 ;
1423 ; PRTNUM
1424 ;
1425 E8B6 06 00 PRTNUM: MVI B,0
1426 E8B8 CD E782 CALL CHKSGN
1427 E8BB F2 E8C1 JP PN1
1428 E8BE 06 2D MVI B,2DH
1429 E8C0 0D DCR C
1430 E8C1 D5 PN1: PUSH D
1431 E8C2 11 000A LXI D,0AH ; PREVOD BIN --> DEC
1432 E8C5 D5 PUSH D
1433 E8C6 0D DCR C
1434 E8C7 C5 PUSH B
1435 E8C8 CD E765 PN2: CALL DIVIDE
1436 E8CB 78 MOV A,B
1437 E8CC B1 ORA C
1438 E8CD CA E8D8 JZ PN3
1439 E8D0 E3 XTHL
1440 E8D1 2D DCR L
1441 E8D2 E5 PUSH H
1442 E8D3 60 MOV H,B
1443 E8D4 69 MOV L,C
1444 E8D5 C3 E8C8 JMP PN2
1445 E8D8 C1 PN3: POP B
1446 E8D9 0D PN4: DCR C
1447 E8DA 79 MOV A,C
1448 E8DB B7 ORA A
1449 E8DC FA E8E7 JM PN5
1450 E8DF 3E 20 MVI A,20H
1451 E8E1 CD E976 CALL OUTC
1452 E8E4 C3 E8D9 JMP PN4
1453 E8E7 78 PN5: MOV A,B
1454 E8E8 B7 ORA A
1455 E8E9 C4 E976 CNZ OUTC
1456 E8EC 5D MOV E,L
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-26
1457 E8ED 7B PN6: MOV A,E
1458 E8EE FE 0A CPI LF
1459 E8F0 D1 POP D
1460 E8F1 C8 RZ
1461 E8F2 C6 30 ADI 30H
1462 E8F4 CD E976 CALL OUTC
1463 E8F7 C3 E8ED JMP PN6
1464 ;
1465 ;
1466 ;
1467 ; PRTLN
1468 ;
1469 ; ZOBRAZ RADEK VCETNE CISLA, V <DE> ADRESA LOW CISLA RADKU
1470 ;
1471 E8FA 1A PRTLN: LDAX D
1472 E8FB 6F MOV L,A
1473 E8FC 13 INX D
1474 E8FD 1A LDAX D
1475 E8FE 67 MOV H,A
1476 E8FF 13 INX D
1477 E900 0E 04 MVI C,4
1478 E902 CD E8B6 CALL PRTNUM
1479 E905 3E 20 MVI A,20H
1480 E907 CD E976 CALL OUTC
1481 E90A 97 SUB A
1482 E90B CD E893 CALL PRTSTG
1483 E90E C9 RET
1484 ;
1485 ;
1486 ;
1487 ; MVUP
1488 ;
1489 ; POSUN PAMETI OD <DE> PO <HL> NA <BC> (DOPREDU)
1490 ;
1491 E90F CD E2AA MVUP: CALL COMP
1492 E912 C8 RZ
1493 E913 1A LDAX D
1494 E914 02 STAX B
1495 E915 13 INX D
1496 E916 03 INX B
1497 E917 C3 E90F JMP MVUP
1498 ;
1499 ;
1500 ;
1501 ; MVDOWN
1502 ;
1503 ; POSUN PAMET Z <DE> PO <BC> NA <HL> (POZPATKU)
1504 ;
1505 E91A 78 MVDOWN: MOV A,B
1506 E91B 92 SUB D
1507 E91C C2 E922 JNZ MD1
1508 E91F 79 MOV A,C
1509 E920 93 SUB E
1510 E921 C8 RZ
1511 E922 1B MD1: DCX D
1512 E923 2B DCX H
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-27
1513 E924 1A LDAX D
1514 E925 77 MOV M,A
1515 E926 C3 E91A JMP MVDOWN
1516 ;
1517 ; POPA
1518 ;
1519 E929 C1 POPA: POP B
1520 E92A E1 POP H
1521 E92B 22 0018 SHLD LOPVAR
1522 E92E 7C MOV A,H
1523 E92F B5 ORA L
1524 E930 CA E943 JZ PP1
1525 E933 E1 POP H
1526 E934 22 001A SHLD LOPINC
1527 E937 E1 POP H
1528 E938 22 001C SHLD LOPLMT
1529 E93B E1 POP H
1530 E93C 22 001E SHLD LOPLN
1531 E93F E1 POP H
1532 E940 22 0020 SHLD LOPPT
1533 E943 C5 PP1: PUSH B
1534 E944 C9 RET
1535 ;
1536 ; PUSHA
1537 ;
1538 E945 D5 PUSHA: PUSH D ; USCHOVEJ DE
1539 E946 2A 0004 LHLD RAMEND
1540 E949 11 FFC4 LXI D,0FFC4H ; DVOJKOVY DOPLNEK (64-5)
1541 E94C 19 DAD D ; HL:=KONEC STACKU +5
1542 E94D D1 POP D ; OBNOV DE
1543 E94E CD E785 CALL CHGSGN ; ZMEN ZNAMENKO <HL>
1544 E951 C1 POP B
1545 E952 39 DAD SP ; PREKROCENI ZASOBNIKU?
1546 E953 D2 E80A JNC QSORRY ; ANO - CHYBA
1547 E956 2A 0018 LHLD LOPVAR
1548 E959 7C MOV A,H
1549 E95A B5 ORA L
1550 E95B CA E971 JZ PU1 ; JDE O CYKLUS ?
1551 E95E 2A 0020 LHLD LOPPT
1552 E961 E5 PUSH H
1553 E962 2A 001E LHLD LOPLN
1554 E965 E5 PUSH H
1555 E966 2A 001C LHLD LOPLMT
1556 E969 E5 PUSH H
1557 E96A 2A 001A LHLD LOPINC
1558 E96D E5 PUSH H
1559 E96E 2A 0018 LHLD LOPVAR
1560 E971 E5 PU1: PUSH H ; ULOZ PARAMETRY PROMENNE
1561 E972 C5 PUSH B
1562 E973 C9 RET
1563 ;
1564 ; CRLF , OUTC
1565 ;
1566 E974 3E 0D CRLF: MVI A,CR
1567 E976 F5 OUTC: PUSH PSW
1568 E977 FE 0D CPI CR
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-28
1569 E979 CA E981 JZ LINEF
1570 E97C CD 000C CALL CO
1571 E97F F1 H2: POP PSW
1572 E980 C9 RET
1573 E981 CD E987 LINEF: CALL CROUT
1574 E984 C3 E97F JMP H2
1575 E987 3E 0D CROUT: MVI A,CR
1576 E989 CD 000C CALL CO
1577 E98C 3E 0A MVI A,LF
1578 E98E C3 000C JMP CO
1579 ;
1580 ; NULOVANI DISPLEJE
1581 ;
1582 E991 C5 CLS: PUSH B
1583 E992 3E 0C MVI A,FF
1584 E994 CD 000C CALL CO
1585 E997 3E 1D MVI A,HOME
1586 E999 CD 000C CALL CO
1587 E99C 3E 1F MVI A,DSCR
1588 E99E CD 000C CALL CO
1589 E9A1 C1 POP B
1590 E9A2 CD E2B8 CALL FINI
1591 ;
1592 ; DIRECT MODUL
1593 ;
1594 E9A5 21 E0E8 DIRECT: LXI H,TAB1-1
1595 E9A8 CD E2B0 EXEC: CALL IGNB
1596 E9AB D5 PUSH D
1597 E9AC 1A EX1: LDAX D
1598 E9AD 13 INX D
1599 E9AE FE 2E CPI '.'
1600 E9B0 CA E9CA JZ EX3
1601 E9B3 23 INX H
1602 E9B4 BE CMP M
1603 E9B5 CA E9AC JZ EX1
1604 E9B8 3E 00 MVI A,0
1605 E9BA 1B DCX D
1606 E9BB BE CMP M
1607 E9BC CA E9D1 JZ EX5
1608 E9BF 23 EX2: INX H
1609 E9C0 BE CMP M
1610 E9C1 C2 E9BF JNZ EX2
1611 E9C4 23 INX H
1612 E9C5 23 INX H
1613 E9C6 D1 POP D
1614 E9C7 C3 E9A8 JMP EXEC
1615 E9CA 3E 00 EX3: MVI A,0
1616 E9CC 23 EX4: INX H
1617 E9CD BE CMP M
1618 E9CE C2 E9CC JNZ EX4
1619 E9D1 23 EX5: INX H
1620 E9D2 7E MOV A,M
1621 E9D3 23 INX H
1622 E9D4 66 MOV H,M
1623 E9D5 6F MOV L,A
1624 E9D6 F1 POP PSW
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-29
1625 E9D7 E9 PCHL
1626 ;
1627 ; DBUFF
1628 ;
1629 E9D8 E5 DBUFF: PUSH H
1630 E9D9 2A 0029 LHLD BUFFER
1631 E9DC 54 MOV D,H
1632 E9DD 5D MOV E,L
1633 E9DE E1 POP H
1634 E9DF C9 RET
1635 ;
1636 ;
1637 ;
1638 ; DTXTE
1639 ;
1640 E9E0 E5 DTXTE: PUSH H
1641 E9E1 2A 0027 LHLD TXTEND
1642 E9E4 54 MOV D,H
1643 E9E5 5D MOV E,L
1644 E9E6 E1 POP H
1645 E9E7 C9 RET
1646 ;
1647 ;
1648 ;
1649 ; MASKA
1650 ;
1651 E9E8 CD E60C MASK: CALL EXPR
1652 E9EB 7D MOV A,L
1653 E9EC 32 000F STA MASKIN
1654 E9EF CD E2B8 CALL FINI
1655 ;
1656 ; RAM
1657 ;
1658 E9F2 CD E60C RAM: CALL EXPR ; VSTUP PARAMETRU DO <HL>
1659 E9F5 EB RAM1: XCHG ; SCHOVEJ <HL> DO <DE>
1660 E9F6 21 00BB LXI H,TXTE ; MINIMALNI ADRESA KONCE PROGRAMU
1661 E9F9 CD E2AA CALL COMP
1662 E9FC D2 E80B JNC ASORRY ; CHYBA V PODTECENI MOZNE PROGRAMOVE RAM
1663 E9FF CD E0CF CALL USREND ; MAXIMALNI ADRESA KONCE PROGRAMU
1664 EA02 CD E2AA CALL COMP
1665 EA05 DA E80B JC ASORRY ; CHYBA V PRETECENI MOZNE PROGRAMOVE RAM
1666 EA08 EB XCHG ; OBNOV <HL>
1667 EA09 22 002B SHLD BUFEND ; NASTAVENI KONCE BUFFERU
1668 EA0C 11 FFC0 LXI D,0FFC0H ; DNOJKOVY DOPLNEK 64
1669 EA0F 19 DAD D ; PRO BUFFER VYHRAZENO 64 BYTE
1670 EA10 22 0029 SHLD BUFFER ; NASTAVENI UKAZATELE ZACATKU BUFFERU
1671 EA13 2B DCX H
1672 EA14 2B DCX H
1673 EA15 C3 E03B JMP START1
1674 ;
1675 ; CALL
1676 ;
1677 EA18 CD E60C BCALL: CALL EXPR
1678 EA1B D5 PUSH D
1679 EA1C 01 EA21 LXI B,HERE
1680 EA1F C5 PUSH B
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-30
1681 EA20 E9 PCHL
1682 EA21 D1 HERE: POP D
1683 EA22 CD E2B8 CALL FINI
1684 ;
1685 ; OUT
1686 ;
1687 EA25 CD E60C BOUT: CALL EXPR
1688 EA28 E5 PUSH H
1689 EA29 CD E2F3 CALL TSTC
1690 EA2C 2C DB ','
1691 EA2D 1A DB 1AH
1692 EA2E CD E60C CALL EXPR
1693 EA31 45 MOV B,L
1694 EA32 3E D3 MVI A,0D3H
1695 EA34 32 0008 STA IOBUFA
1696 EA37 E1 POP H
1697 EA38 7D MOV A,L
1698 EA39 32 0009 STA IOBUFB
1699 EA3C 3E C9 MVI A,0C9H
1700 EA3E 32 000A STA IOBUFC
1701 EA41 78 MOV A,B
1702 EA42 CD 0008 CALL IOBUFA
1703 EA45 CD E2B8 CALL FINI
1704 EA48 C3 E7D5 JMP QWHAT
1705 ;
1706 ;
1707 ; TAB
1708 ;
1709 EA4B CD E70B TAB: CALL PARN
1710 EA4E 7C A1: MOV A,H
1711 EA4F B5 ORA L
1712 EA50 CC E2B8 CZ FINI
1713 EA53 2B DCX H
1714 EA54 3E 20 MVI A,20H
1715 EA56 CD 000C CALL CO
1716 EA59 C3 EA4E JMP A1
1717 ;
1718 ; IN , INM
1719 ;
1720 EA5C CD EA6B BIN: CALL INEM
1721 EA5F 6F MOV L,A
1722 EA60 C9 RET
1723 EA61 CD EA6B INM: CALL INEM
1724 EA64 6F MOV L,A
1725 EA65 3A 000F LDA MASKIN
1726 EA68 A5 ANA L
1727 EA69 6F MOV L,A
1728 EA6A C9 RET
1729 EA6B CD E70B INEM: CALL PARN
1730 EA6E E5 PUSH H
1731 EA6F 3E DB MVI A,0DBH
1732 EA71 32 0008 STA IOBUFA
1733 EA74 E1 POP H
1734 EA75 7D MOV A,L
1735 EA76 32 0009 STA IOBUFB
1736 EA79 3E C9 MVI A,0C9H
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-31
1737 EA7B 32 000A STA IOBUFC
1738 EA7E CD 0008 CALL IOBUFA
1739 EA81 26 00 MVI H,0
1740 EA83 C9 RET
1741 ;
1742 ; O$
1743 ;
1744 EA84 CD E60C O: CALL EXPR
1745 EA87 D5 PUSH D
1746 EA88 EB XCHG
1747 EA89 AF XRA A
1748 EA8A CD E893 CALL PRTSTG
1749 EA8D D1 ZZZ4: POP D
1750 EA8E CD E2B8 CALL FINI
1751 ;
1752 ; I$
1753 ;
1754 EA91 CD E60C I: CALL EXPR
1755 EA94 D5 PUSH D
1756 EA95 EB XCHG
1757 EA96 2A 003B LHLD TXTUNF
1758 EA99 EB XCHG
1759 EA9A CD E2AA CALL COMP
1760 EA9D DA E80B JC ASORRY
1761 EAA0 CD E9D8 CALL DBUFF
1762 EAA3 CD E818 CALL GL1
1763 EAA6 44 MOV B,H
1764 EAA7 4D MOV C,L
1765 EAA8 EB XCHG
1766 EAA9 2B DCX H
1767 EAAA CD E9D8 CALL DBUFF
1768 EAAD D5 PUSH D
1769 EAAE CD E90F CALL MVUP
1770 EAB1 AF XRA A
1771 EAB2 02 STAX B
1772 EAB3 D1 POP D
1773 EAB4 23 INX H
1774 EAB5 CD E77B CALL SUBDE
1775 EAB8 EB XCHG
1776 EAB9 21 0006 LXI H,LEGT
1777 EABC 73 MOV M,E
1778 EABD 23 INX H
1779 EABE 72 MOV M,D
1780 EABF C3 EA8D JMP ZZZ4
1781 ;
1782 ; PEEK
1783 ;
1784 EAC2 CD E70B PEEK: CALL PARN
1785 EAC5 6E MOV L,M
1786 EAC6 26 00 MVI H,0
1787 EAC8 C9 RET
1788 ;
1789 ; POKE
1790 ;
1791 EAC9 CD E60C POKE: CALL EXPR
1792 EACC E5 PUSH H
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-32
1793 EACD CD E2F3 CALL TSTC
1794 EAD0 2C DB ','
1795 EAD1 09 DB 9
1796 EAD2 CD E60C CALL EXPR
1797 EAD5 7D MOV A,L
1798 EAD6 E1 POP H
1799 EAD7 77 MOV M,A
1800 EAD8 CD E2B8 CALL FINI
1801 EADB C3 E7D5 JMP QWHAT
1802 ;
1803 ; BYTE
1804 ;
1805 EADE CD E70B BYTE: CALL PARN
1806 EAE1 7D MOV A,L
1807 EAE2 CD EAF1 CALL WRIT2
1808 EAE5 CD E2B8 CALL FINI
1809 ;
1810 ;
1811 ;
1812 ; WORD
1813 ;
1814 EAE8 CD E70B WORD: CALL PARN
1815 EAEB CD F830 CALL DADR
1816 EAEE CD E2B8 CALL FINI
1817 ;
1818 ;
1819 ;
1820 ; WRIT2
1821 ;
1822 EAF1 F5 WRIT2: PUSH PSW
1823 EAF2 0F RRC
1824 EAF3 0F RRC
1825 EAF4 0F RRC
1826 EAF5 0F RRC
1827 EAF6 CD EAFA CALL IST
1828 EAF9 F1 POP PSW
1829 EAFA E6 0F IST: ANI 0FH
1830 EAFC C6 90 ADI 90H
1831 EAFE 27 DAA
1832 EAFF CE 40 ACI 40H
1833 EB01 27 DAA
1834 EB02 C3 E976 JMP OUTC
1835 ;
1836 ;
1837 ;
1838 ; QUOTE
1839 ;
1840 EB05 1A QUOTE: LDAX D
1841 EB06 13 INX D
1842 EB07 6F MOV L,A
1843 EB08 26 00 MVI H,0
1844 EB0A CD E2F3 CALL TSTC
1845 EB0D 27 DB 27H
1846 EB0E 01 DB 1
1847 EB0F C9 RET
1848 EB10 C3 E7D5 JMP QWHAT
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-33
1849 ;
1850 ; OUTCHAR
1851 ;
1852 EB13 CD E60C OUTCHR: CALL EXPR
1853 EB16 7D MOV A,L
1854 EB17 CD 000C CALL CO
1855 EB1A CD E2B8 CALL FINI
1856 ;
1857 ; INCHAR
1858 ;
1859 EB1D 21 0000 INCHAR: LXI H,0
1860 EB20 CD F812 CALL CSTS
1861 EB23 C8 RZ
1862 EB24 CD F803 CALL CI
1863 EB27 6F MOV L,A
1864 EB28 C9 RET
1865 ;
1866 ; HEX
1867 ;
1868 EB29 C5 HEX: PUSH B
1869 EB2A 21 0000 LXI H,0
1870 EB2D CD E2F3 CALL TSTC
1871 EB30 28 DB '('
1872 EB31 1D DB 1DH
1873 EB32 1A HNXTH: LDAX D
1874 EB33 FE 0D CPI CR
1875 EB35 CA E7D5 JZ QWHAT
1876 EB38 CD F82D CALL ASHEX
1877 EB3B DA E7D5 JC QWHAT
1878 EB3E 29 DAD H
1879 EB3F 29 DAD H
1880 EB40 29 DAD H
1881 EB41 29 DAD H
1882 EB42 06 00 MVI B,0
1883 EB44 4F MOV C,A
1884 EB45 09 DAD B
1885 EB46 13 INX D
1886 EB47 CD E2F3 CALL TSTC
1887 EB4A 29 DB ')'
1888 EB4B 03 DB 3
1889 EB4C C3 EB55 JMP POPRET
1890 EB4F C3 EB32 JMP HNXTH
1891 EB52 C3 E7D5 JMP QWHAT
1892 EB55 C1 POPRET: POP B
1893 EB56 C9 RET
1894 ;
1895 ;
1896 ;
1897 ; TEST TLACITKA BREAK
1898 ;
1899 EB57 CD F812 CONT: CALL CSTS ; IF KLAVESA VESTISKNUTA
1900 EB5A B7 ORA A ; THEN POKRACUJ
1901 EB5B C8 RZ
1902 EB5C CD F803 CALL CI
1903 EB5F FE 03 CPI CTRLC ; IF <> CTRL-C THEN
1904 EB61 C0 RNZ ; POKRACUJ
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-34
1905 EB62 C3 EB68 JMP BREAK ; ELSE BREAK
1906 ;
1907 EB65 CD E7CF STOP: CALL ENDCHK
1908 EB68 2A 0010 BREAK: LHLD CURRNT
1909 EB6B EB BREAK1: XCHG
1910 EB6C CD E974 CALL CRLF
1911 EB6F 3E 2A MVI A,'*'
1912 EB71 CD E976 CALL OUTC
1913 EB74 CD E8FA CALL PRTLN
1914 EB77 C3 E03E JMP RSTART
1915 ;
1916 ;
1917 ;
1918 ; ZMENA VYSTUPU
1919 ;
1920 EB7A 21 EB8C PRNTST: LXI H,LO1
1921 EB7D 22 000D SETCO: SHLD CO+1
1922 EB80 C9 RET
1923
1924 EB81 3E C3 DISP: MVI A,0C3H
1925 EB83 32 000C STA CO
1926 EB86 21 EB93 LXI H,OUTDIS
1927 EB89 C3 EB7D JMP SETCO
1928
1929 EB8C C5 LO1: PUSH B ; USCHOVEJ POCITADLO
1930 EB8D 4F MOV C,A
1931 EB8E CD F80F CALL LO
1932 EB91 C1 POP B ; OBNOV POCITADLO
1933 EB92 C9 RET
1934
1935 EB93 C5 OUTDIS: PUSH B ; USCHOVEJ POCITADLO
1936 EB94 4F MOV C,A
1937 EB95 CD EB9A CALL ECOM
1938 EB98 C1 POP B ; OBNOV POCITADLO
1939 EB99 C9 RET
1940 ;
1941 EB9A F5 ECOM: PUSH PSW
1942 EB9B 3A 0026 LDA MODE
1943 EB9E B7 ORA A
1944 EB9F CA EBAC JZ ECOM0 ; ZOBRAZ INVERZNE ?
1945 EBA2 79 MOV A,C
1946 EBA3 FE 20 CPI 20H
1947 EBA5 DA EBAC JC ECOM0 ; RIDICI ZNAKY NORMALNE
1948 EBA8 3E 80 MVI A,80H
1949 EBAA B1 ORA C
1950 EBAB 4F MOV C,A
1951 EBAC CD F809 ECOM0: CALL COM
1952 EBAF F1 POP PSW
1953 EBB0 C9 RET
1954 ;
1955 ;
1956 ; SKOK DO MONITORU
1957
1958 EBB1 C3 F839 MONIT: JMP NEXTM ; TEPLY START MONITORU
1959 ;
1960 ;
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-35
1961 ;
1962 ;*********************************************
1963 ;
1964 ; DOPLNUJICI CAST PRO PLAN80A
1965 ;
1966 ;*********************************************
1967 ;
1968 ;
1969 ; WAIT
1970 ;
1971 EBB4 CD E60C WAIT: CALL EXPR
1972 EBB7 C5 PUSH B ; USCHOVEJ BC
1973 EBB8 4D MOV C,L
1974 EBB9 44 MOV B,H
1975 EBBA CD F84B CALL TIMER ; CEKEJ <HL> MILISEKUND
1976 EBBD C1 POP B ; OBNOV BC
1977 EBBE CD E2B8 CALL FINI
1978 ;
1979 ;
1980 ;
1981 ; BEEP
1982 ;
1983 EBC1 CD E60C BEEP: CALL EXPR
1984 EBC4 C5 PUSH B ;USCHOVEJ PRACOVNI REGISTRY
1985 EBC5 D5 PUSH D
1986 EBC6 7C MOV A,H
1987 EBC7 B7 ORA A
1988 EBC8 FA E331 JM QHOW ; IF ZAPORNA ERROR
1989 EBCB B5 ORA L
1990 EBCC CA E331 JZ QHOW ; IF 0 ERROR
1991 EBCF EB XCHG ; <DE> POCET PIPNUTI DELKY 0.1 S
1992 EBD0 3E 07 BEEP0: MVI A,07H
1993 EBD2 CD 000C CALL CO
1994 EBD5 01 0064 LXI B,100
1995 EBD8 CD F84B CALL TIMER ; CEKEJ 100 MILISEKUND
1996 EBDB 1B DCX D
1997 EBDC 7A MOV A,D
1998 EBDD B3 ORA E ; VSECHNA PIPNUTI PROVEDENA ?
1999 EBDE C2 EBD0 JNZ BEEP0 ; NE - ZNOVU
2000 EBE1 D1 POP D ; OBNOV REGISTRY
2001 EBE2 C1 POP B
2002 EBE3 CD E2B8 CALL FINI
2003 ;
2004 ;
2005 ;
2006 ;
2007 ; PLOT
2008 ;
2009 ; PRIKAZ KRESLENI PLOT X,Y
2010 ;
2011 EBE6 CD E60C PLOT: CALL EXPR ; VSTUP 1. PARAMETRU ... X
2012 EBE9 C5 PUSH B
2013 EBEA E5 PUSH H
2014 EBEB 7D MOV A,L
2015 EBEC FE 90 CPI 144 ; X MAX?
2016 EBEE D2 E331 JNC QHOW
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-36
2017 EBF1 CD E2F3 CALL TSTC
2018 EBF4 2C DB ','
2019 EBF5 1B DB PLTF-$
2020 EBF6 CD E60C CALL EXPR ; VSTUP 2. PARAMETRU ... Y
2021 EBF9 7D MOV A,L
2022 EBFA 32 002E STA YKUR
2023 EBFD FE 40 CPI 64 ; Y MAX?
2024 EBFF D2 E331 JNC QHOW
2025 EC02 7D MOV A,L
2026 EC03 32 002D STA XKUR
2027 EC06 65 MOV H,L
2028 EC07 C1 POP B
2029 EC08 69 MOV L,C
2030 EC09 CD EC13 CALL PIXL ; VYKRESLI BOD NA <L>=X, <H>=Y
2031 EC0C C1 POP B
2032 EC0D CD E2B8 CALL FINI
2033 EC10 C3 E7D5 PLTF: JMP QWHAT
2034 ;
2035 ;
2036 ;
2037 ; PIXL
2038 ;
2039 ; PODPROGRAM ZOBRAZENI PIXLU GRAFIKY <H>=Y, <L>=X
2040 ;
2041 EC13 F5 PIXL: PUSH PSW
2042 EC14 C5 PUSH B
2043 EC15 D5 PUSH D
2044 EC16 E5 PUSH H
2045 EC17 7C MOV A,H ; Y - SOURADNICE
2046 EC18 B7 ORA A
2047 EC19 1F RAR ; Y/2
2048 EC1A 6F MOV L,A
2049 EC1B 26 00 MVI H,0
2050 EC1D 29 DAD H
2051 EC1E 29 DAD H
2052 EC1F 29 DAD H
2053 EC20 29 DAD H
2054 EC21 29 DAD H
2055 EC22 29 DAD H ; Y/2 * 64
2056 EC23 EB XCHG
2057 EC24 2A 0004 LHLD RAMEND
2058 EC27 23 INX H ; ADRESA PRVNIHO ZNAKU DISPLAYE
2059 EC28 19 DAD D ; Y/2 * 64 + ADRDIS
2060 EC29 EB XCHG
2061 EC2A E1 POP H
2062 EC2B E5 PUSH H
2063 EC2C 7D MOV A,L ; X - SOURADNICE
2064 EC2D CD EC87 CALL DIVTRI ; X/3
2065 EC30 69 MOV L,C
2066 EC31 26 00 MVI H,0
2067 EC33 19 DAD D ; Y/2*64 + ADRDIS + X/3 ... ADRESA ZNAKU
2068 EC34 7E MOV A,M
2069 EC35 E6 60 ANI 60H
2070 EC37 FE 60 CPI 60H ; JDE O GRAFICKY SYMBOL ?
2071 EC39 CA EC3E JZ PIXL0
2072 EC3C 36 20 MVI M,20H ; NE - VYMAZ ZNAKU
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-37
2073 EC3E E3 PIXL0: XTHL ; V <HL> SOURADNICE
2074 EC3F 7C MOV A,H ; Y - SOURADNICE
2075 EC40 E6 01 ANI 01H ; Y MOD 2
2076 EC42 47 MOV B,A
2077 EC43 3E 01 MVI A,1
2078 EC45 90 SUB B ; 1 - (Y MOD 2)
2079 EC46 47 MOV B,A
2080 EC47 87 ADD A
2081 EC48 80 ADD B ; (1 - (Y MOD 2)) * 3
2082 EC49 47 MOV B,A
2083 EC4A 7D MOV A,L ; X - SOURADNICE
2084 EC4B E1 POP H ; V <HL> ADRESA ZNAKU
2085 EC4C E5 PUSH H
2086 EC4D CD EC87 CALL DIVTRI ; X MOD 3
2087 EC50 80 ADD B ; (1 - (Y MOD 2))*3 + (X MOD 3)
2088 EC51 FE 05 CPI 5 ; JDE O NEPOKRITY PIXL ?
2089 EC53 CA EC79 JZ NEPOK ; ANO - SKOK
2090 ;
2091 EC56 47 POK: MOV B,A
2092 EC57 3E 80 MVI A,80H
2093 EC59 07 POK0: RLC
2094 EC5A 05 DCR B
2095 EC5B F2 EC59 JP POK0 ; GENERUJ MASKU POKRITEHO PIXLU
2096 EC5E 47 MOV B,A
2097 EC5F 7E MOV A,M
2098 EC60 B7 ORA A
2099 EC61 FA EC6E JM POK1 ; JE NASTAVEN D7=1 ?
2100 EC64 78 MOV A,B
2101 EC65 B6 ORA M
2102 EC66 E6 1F ANI 1FH
2103 EC68 F6 60 ORI 60H
2104 EC6A 77 MOV M,A ; NASTAVENI PIXLU 0 - 4 BEZ PIXLU 5
2105 EC6B C3 EC82 JMP PIXL1
2106 EC6E E6 1F POK1: ANI 1FH
2107 EC70 2F CMA
2108 EC71 B0 ORA B
2109 EC72 2F CMA
2110 EC73 F6 E0 ORI 0E0H
2111 EC75 77 MOV M,A ; NASTAVENI PIXLU 0 - 4 PRI PIXLU 5
2112 EC76 C3 EC82 JMP PIXL1
2113 ;
2114 EC79 7E NEPOK: MOV A,M
2115 EC7A B7 ORA A
2116 EC7B FA EC82 JM PIXL1 ; PIXL 5 JIZ NASTAVEN
2117 EC7E E6 1F ANI 1FH
2118 EC80 2F CMA
2119 EC81 77 MOV M,A ; NASTAVENI PIXLU 5
2120 ;
2121 EC82 E1 PIXL1: POP H
2122 EC83 D1 POP D
2123 EC84 C1 POP B
2124 EC85 F1 POP PSW
2125 EC86 C9 RET
2126 ;
2127 EC87 0E FF DIVTRI: MVI C,0FFH
2128 EC89 0C DIVT0: INR C
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-38
2129 EC8A D6 03 SUI 3
2130 EC8C D2 EC89 JNC DIVT0
2131 EC8F C6 03 ADI 3
2132 EC91 C9 RET
2133 ;
2134 ;
2135 ;
2136 ; DRAW - PRIKAZ SPOJENI DVOU BODU PRIMKOU
2137 ; XKUR,YKUR ... STARY BOD
2138 ; PARAMETRY ... NOVY BOD
2139 ;
2140 EC92 CD E60C DRAW: CALL EXPR
2141 EC95 C5 PUSH B
2142 EC96 E5 PUSH H
2143 EC97 7D MOV A,L
2144 EC98 FE 90 CPI 144 ; XNEW MAX?
2145 EC9A D2 E331 JNC QHOW
2146 EC9D CD E2F3 CALL TSTC
2147 ECA0 2C DB ','
2148 ECA1 14 DB DRAF-$
2149 ECA2 CD E60C CALL EXPR
2150 ECA5 7D MOV A,L
2151 ECA6 FE 40 CPI 64 ; YNEW MAX?
2152 ECA8 D2 E331 JNC QHOW
2153 ECAB 65 MOV H,L
2154 ECAC C1 POP B
2155 ECAD 69 MOV L,C ; <H> = YNEW, <L> = XNEW
2156 ECAE CD ECB8 CALL INTERP ; POMOCI INTERPOLATORU KRESLI
2157 ECB1 C1 POP B
2158 ECB2 CD E2B8 CALL FINI ; XKUR = XNEW, YKUR = YNEW
2159 ECB5 C3 E7D5 DRAF: JMP QWHAT
2160 ;
2161 ;
2162 ; INTERPOL - PODPROGRAM INTERPOLATOTU Z PMD-85
2163 ; <H> = YNEW, <L> = XNEW
2164 ;
2165 ECB8 F5 INTERP: PUSH PSW
2166 ECB9 C5 PUSH B
2167 ECBA D5 PUSH D
2168 ECBB E5 PUSH H
2169 ;
2170 ECBC 3A 002D LDA XKUR
2171 ECBF BD CMP L ; SVISLI SMER?
2172 ECC0 CA ED45 JZ INPO9 ; ANO - SKOK
2173 ECC3 DA ED51 JC INPO11 ; XOLD < XNEW ... SKOK
2174 ;
2175 ; XOLD > XNEW
2176 ;
2177 ECC6 95 SUB L
2178 ECC7 5F MOV E,A ; XOLD - XNEW
2179 ECC8 0E FF MVI C,0FFH ; SMER INTERPOLACE
2180 ECCA 3A 002E INPO1: LDA YKUR ; YOLD
2181 ECCD BC CMP H ; VODOROVNY SMER?
2182 ECCE CA ED4B JZ INPO10 ; ANO - SKOK
2183 ECD1 DA ED5A JC INPO12 ; YOLD < YNEW ... SKOK
2184 ;
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-39
2185 ; YOLD > YNEW
2186 ;
2187 ECD4 94 SUB H
2188 ECD5 57 MOV D,A ; YOLD - YNEW
2189 ECD6 06 FF MVI B,0FFH ; SMER INTERPOLACE
2190 ECD8 7B INPO2: MOV A,E
2191 ECD9 32 002F STA DELTAX ; ROZDIL X SOURADNIC
2192 ECDC 7A MOV A,D
2193 ECDD 32 0030 STA DELTAY ; ROZDIL Y SOURADNIC
2194 ECE0 BB CMP E ; DELTAX < DELTAY?
2195 ECE1 DA ED63 JC INPO13 ; ANO - SKOK
2196 ;
2197 ; DELTAX > DELTAY
2198 ;
2199 ECE4 63 MOV H,E
2200 ECE5 5A MOV E,D ;DELTAY
2201 ECE6 54 MOV D,H ;DELTAX
2202 ECE7 A7 ANA A
2203 ECE8 1F RAR
2204 ECE9 67 MOV H,A ; DELTAY / 2
2205 ;
2206 ; VLASTNI INTERPOLACE
2207 ;
2208 ECEA 2E 00 INPO3: MVI L,0 ; CITAC
2209 ECEC 7D INPO4: MOV A,L
2210 ECED BB CMP E ; KOMEC?
2211 ECEE CA ED6A JZ INPO14 ; ANO - NAVRAT Z PODPROGRAMU
2212 ECF1 2C INR L ; INKR. CITAC
2213 ECF2 7C MOV A,H
2214 ECF3 82 ADD D
2215 ECF4 67 MOV H,A ; DELTAX + DELTAY/2
2216 ECF5 DA ED34 JC INPO8 ; >255 ... SKOK
2217 ECF8 BB CMP E ; =>DELTAY ?
2218 ECF9 CA ED39 JZ INPOEX ; ROVNO ... SKOK
2219 ECFC D2 ED39 JNC INPOEX ; VETSI ... SKOK
2220 ECFF 3A 002F LDA DELTAX
2221 ED02 BB CMP E ; POSUN VE SMERU X?
2222 ED03 C2 ED0D JNZ INPO5 ; NE - SKOK
2223 ED06 3A 002D LDA XKUR ; XOLD
2224 ED09 81 ADD C
2225 ED0A 32 002D STA XKUR ; PROVET POSUN X
2226 ED0D 3A 0030 INPO5: LDA DELTAY
2227 ED10 BB CMP E ; POSUN VE SMERU Y?
2228 ED11 C2 ED1B JNZ INPO7 ; NE - SKOK
2229 ;
2230 ED14 3A 002E INPO6: LDA YKUR ; YOLD
2231 ED17 80 ADD B
2232 ED18 32 002E STA YKUR ; PROVED POSUN Y
2233 ED1B E5 INPO7: PUSH H
2234 ED1C F5 PUSH PSW
2235 ED1D 2A 002D LHLD XKUR
2236 ED20 7C MOV A,H
2237 ED21 FE 40 CPI 64
2238 ED23 D2 ED2F JNC INPO15
2239 ED26 7D MOV A,L
2240 ED27 FE 90 CPI 144
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-40
2241 ED29 D2 ED2F JNC INPO15
2242 ED2C CD EC13 CALL PIXL ; ZOBRAZ BOD [XKUR,YKUR]
2243 ED2F F1 INPO15: POP PSW
2244 ED30 E1 POP H
2245 ED31 C3 ECEC JMP INPO4 ; DALSI BOD
2246 ;
2247 ; DELTAX + DELTA/2 > 255
2248 ;
2249 ED34 7B INPO8: MOV A,E
2250 ED35 2F CMA
2251 ED36 84 ADD H
2252 ED37 67 MOV H,A ; BY JUMP HERE IS: LDA 6793
2253 ED38 3A DB 3AH ; BY JUMP HERE IS: SUB E
2254 ;
2255 ; DELTAX + DELTAY/2 => DELTAY
2256 ;
2257 ED39 93 INPOEX: SUB E
2258 ED3A 67 MOV H,A
2259 ED3B 3A 002D LDA XKUR ; XOLD
2260 ED3E 81 ADD C
2261 ED3F 32 002D STA XKUR ; XOLD
2262 ED42 C3 ED14 JMP INPO6
2263 ;
2264 ; XOLD = XNEW
2265 ;
2266 ED45 AF INPO9: XRA A
2267 ED46 5F MOV E,A
2268 ED47 4F MOV C,A
2269 ED48 C3 ECCA JMP INPO1
2270 ;
2271 ; YOLD = YNEW
2272 ;
2273 ED4B AF INPO10: XRA A
2274 ED4C 57 MOV D,A
2275 ED4D 47 MOV B,A
2276 ED4E C3 ECD8 JMP INPO2
2277 ;
2278 ; XOJD < XNEW
2279 ;
2280 ED51 5F INPO11: MOV E,A
2281 ED52 7D MOV A,L
2282 ED53 93 SUB E
2283 ED54 5F MOV E,A
2284 ED55 0E 01 MVI C,1
2285 ED57 C3 ECCA JMP INPO1
2286 ;
2287 ; YOLD < YNEW
2288 ;
2289 ED5A 57 INPO12: MOV D,A
2290 ED5B 7C MOV A,H
2291 ED5C 92 SUB D
2292 ED5D 57 MOV D,A
2293 ED5E 06 01 MVI B,1
2294 ED60 C3 ECD8 JMP INPO2
2295 ;
2296 ; DELTAX < DELTAY
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-41
2297 ;
2298 ED63 A7 INPO13: ANA A
2299 ED64 7B MOV A,E
2300 ED65 1F RAR
2301 ED66 67 MOV H,A
2302 ED67 C3 ECEA JMP INPO3
2303 ;
2304 ; UKONCENI INTERPOLACE
2305 ;
2306 ED6A E1 INPO14: POP H
2307 ED6B D1 POP D
2308 ED6C C1 POP B
2309 ED6D F1 POP PSW
2310 ED6E C9 RET
2311 ;
2312 ;
2313 ;
2314 ; MOVE - PRIKAZ POSUNU GRAFICKEHO KURZORU
2315 ;
2316 ED6F CD E60C MOVE: CALL EXPR
2317 ED72 C5 PUSH B
2318 ED73 E5 PUSH H
2319 ED74 7D MOV A,L
2320 ED75 FE 90 CPI 144 ; X MAX?
2321 ED77 D2 E331 JNC QHOW
2322 ED7A CD E2F3 CALL TSTC
2323 ED7D 2C DB ','
2324 ED7E 14 DB MOVF-$
2325 ED7F CD E60C CALL EXPR
2326 ED82 7D MOV A,L
2327 ED83 FE 40 CPI 64 ; Y MAX?
2328 ED85 D2 E331 JNC QHOW
2329 ED88 65 MOV H,L
2330 ED89 C1 POP B
2331 ED8A 69 MOV L,C
2332 ED8B 22 002D SHLD XKUR ; X --> XKUR, Y --> YKUR
2333 ED8E C1 POP B
2334 ED8F CD E2B8 CALL FINI
2335 ED92 C3 E7D5 MOVF: JMP QWHAT
2336 ;
2337 ;
2338 ;
2339 ; CURS
2340 ; ====
2341 ;
2342 ; PRIKAZ PRO NASTAVENI KURZORU.
2343 ;
2344 ED95 CD E60C CURS: CALL EXPR
2345 ED98 C5 PUSH B
2346 ED99 E5 PUSH H
2347 ED9A 7D MOV A,L
2348 ED9B FE 30 CPI 48
2349 ED9D D2 E331 JNC QHOW
2350 EDA0 CD E2F3 CALL TSTC
2351 EDA3 2C DB ','
2352 EDA4 1C DB CURF - $
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-42
2353 EDA5 CD E60C CALL EXPR
2354 EDA8 7D MOV A,L
2355 EDA9 FE 20 CPI 20H
2356 EDAB D2 E331 JNC QHOW
2357 EDAE D5 PUSH D
2358 EDAF 11 0035 LXI D,LINECO
2359 EDB2 2A 0004 LHLD RAMEND
2360 EDB5 23 INX H
2361 EDB6 19 DAD D
2362 EDB7 D1 POP D
2363 EDB8 77 MOV M,A
2364 EDB9 23 INX H
2365 EDBA C1 POP B
2366 EDBB 71 MOV M,C
2367 EDBC C1 POP B
2368 EDBD CD E2B8 CALL FINI
2369 EDC0 C3 E7D5 CURF: JMP QWHAT
2370 ;
2371 ;
2372 ;
2373 ; EDIT
2374 ;
2375 ; PRIKAZ PRO EDITACI JEDNOHO RADKU PROGRAMU.
2376 ;
2377 ; POSUN KURZORU VLRVO: BS, CTRL-S, SIPKA VLEVO
2378 ; POSUN KURZORU VPRAVO: CTRL-D, SIPKA VPRAVO
2379 ; VYMAZ ZNAKU VPRAVO OD KURZORU: CTRL-X,DEL
2380 ; UKONCENI EDITACE: CR
2381 ; PRERUSENI PRIKAZU: ESC,CS,CTRL-[
2382 ; VLOZENI ZNAKU VLEVO OD KURZORU: JINE ZNAKY > 20H
2383 ;
2384 EDC3 CD E307 EDIT: CALL TSTNUM ; PREVOD ASCII Z BUFFERU NA BIN V <HL>
2385 EDC6 CD E2B0 CALL IGNB ; VYNECH MEZERY
2386 EDC9 FE 0D CPI CR
2387 EDCB C2 E7D5 JNZ QWHAT ; CHYBA PRIKAZU
2388 EDCE CD E869 CALL FNDLN ; NAJDI ADRESU RADKU <DE>
2389 EDD1 DA E331 JC QHOW ; NENI TAKOVY ANI VETSI RADEK
2390 ;
2391 ; PRESUN RADEK Z PROGRAMU DO BUFFERU
2392 ;
2393 EDD4 D5 PUSH D
2394 EDD5 CD E887 CALL FNDNXT
2395 EDD8 EB XCHG ; V <HL> ADRESA NASL. RADKU
2396 EDD9 CD E9D8 CALL DBUFF
2397 EDDC D5 PUSH D
2398 EDDD C1 POP B ; V <BC> ADRESA BUFFERU
2399 EDDE D1 POP D ; V <DE> ADRESA EDITOVANEHO RADKU
2400 EDDF CD E90F CALL MVUP ; PRESUN EDIT. RADEK DO BUFFERU
2401 EDE2 3E 02 MVI A,2
2402 EDE4 32 0031 STA EDKUR ; POC. HODNOTA KURZORU
2403 EDE7 3E 5F MVI A,'_'
2404 EDE9 CD EE59 CALL VSUN
2405 ;
2406 ; ZOBRAZ RADEK
2407 ;
2408 EDEC 3E 1D EDIT0: MVI A,HOME
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-43
2409 EDEE CD 000C CALL CO ; NA ZACETAK OBRAZOVKY
2410 EDF1 3E 1F MVI A,DSCR
2411 EDF3 CD 000C CALL CO ; VYMAZ OBRAZOVKY
2412 EDF6 CD E9D8 CALL DBUFF
2413 EDF9 CD E8FA CALL PRTLN ; ZOBRAZ RADEK Z BUFFERU
2414 ;
2415 ; VSTUP PRIKAZU
2416 ;
2417 EDFC CD F803 EDIT2: CALL CI
2418 EDFF FE 08 CPI LEFT ; SIPKA VLEVO
2419 EE01 CA EE71 JZ VLEVO
2420 EE04 FE 13 CPI CTRLS ; STRL S
2421 EE06 CA EE71 JZ VLEVO
2422 EE09 FE 04 CPI RIGHT ; SIPKA VLEVO
2423 EE0B CA EE8A JZ VPRAVO
2424 EE0E FE 04 CPI CTRLD ; CTRL D
2425 EE10 CA EE8A JZ VPRAVO
2426 EE13 FE 18 CPI DOWN ; SIPKA DOLU
2427 EE15 CA EEAE JZ VYMAZ
2428 EE18 FE 18 CPI CTRLX ; CTRL X
2429 EE1A CA EEAE JZ VYMAZ
2430 EE1D FE 7F CPI RUB ; DEL
2431 EE1F CA EEAE JZ VYMAZ
2432 EE22 FE 1B CPI ESC ; ESC (CTRL [)
2433 EE24 CA E03E JZ RSTART
2434 EE27 FE 0D CPI CR ; CR
2435 EE29 C2 EE47 JNZ VLOZ
2436 ;
2437 ; UKONCENI EDITACE
2438 ;
2439 EE2C CD EED6 CALL VYHOD
2440 EE2F D5 PUSH D
2441 EE30 C1 POP B ; V <BC> ADRESA POSL. ZNAKU + 1
2442 EE31 CD E9D8 CALL DBUFF ; V <DE> ADRESA BUFFERU
2443 EE34 1A LDAX D
2444 EE35 6F MOV L,A
2445 EE36 13 INX D
2446 EE37 1A LDAX D
2447 EE38 67 MOV H,A
2448 EE39 1B DCX D ; V <HL> CISLO RADKU
2449 EE3A 3E 1D MVI A,HOME
2450 EE3C CD 000C CALL CO
2451 EE3F 3E 1F MVI A,DSCR
2452 EE41 CD 000C CALL CO
2453 EE44 C3 E08A JMP EDIST ; VLOZ EDITOVANY RADEK DO PROGRAMU
2454 ;
2455 ; VSUN ZNAK
2456 ;
2457 EE47 FE 20 VLOZ: CPI 20H
2458 EE49 DA EDEC JC EDIT0
2459 EE4C CD EE59 CALL VSUN
2460 EE4F 3A 0031 LDA EDKUR
2461 EE52 3C INR A
2462 EE53 32 0031 STA EDKUR
2463 EE56 C3 EDEC JMP EDIT0
2464 ;
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-44
2465 EE59 F5 VSUN: PUSH PSW
2466 EE5A 2A 0029 LHLD BUFFER
2467 EE5D 06 00 MVI B,0
2468 EE5F 3A 0031 LDA EDKUR
2469 EE62 4F MOV C,A
2470 EE63 09 DAD B ; V <HL> ADRESA KURZORU
2471 EE64 F1 POP PSW
2472 EE65 4E VSU0: MOV C,M
2473 EE66 77 MOV M,A
2474 EE67 79 MOV A,C
2475 EE68 FE 0D CPI CR
2476 EE6A 23 INX H
2477 EE6B C2 EE65 JNZ VSU0 ; VLOZ ZNAK
2478 EE6E 77 MOV M,A ; VLOZ CR
2479 EE6F 13 INX D
2480 EE70 C9 RET
2481 ;
2482 ; POSUN KURZORU VLEVO
2483 ;
2484 EE71 3A 0031 VLEVO: LDA EDKUR
2485 EE74 FE 03 CPI 3
2486 EE76 DA EDEC JC EDIT0
2487 EE79 F5 PUSH PSW
2488 EE7A CD EED6 CALL VYHOD
2489 EE7D F1 POP PSW
2490 EE7E 3D DCR A
2491 EE7F 32 0031 STA EDKUR
2492 EE82 3E 5F MVI A,'_'
2493 EE84 CD EE59 CALL VSUN
2494 EE87 C3 EDEC JMP EDIT0
2495 ;
2496 ; POSUN KURZOR VPRAVO
2497 ;
2498 EE8A 2A 0029 VPRAVO: LHLD BUFFER
2499 EE8D 3A 0031 LDA EDKUR
2500 EE90 4F MOV C,A
2501 EE91 06 00 MVI B,0
2502 EE93 09 DAD B ; V <HL> ADRESA KURZORU
2503 EE94 23 INX H
2504 EE95 23 INX H ; ZAHRN I ZNAK CR NA KONCI RADKU
2505 EE96 CD E2AA CALL COMP ; NA KONCI RADKU?
2506 EE99 D2 EDEC JNC EDIT0 ; ANO - DAL NEPOSOUVEJ
2507 EE9C CD EED6 VPRA0: CALL VYHOD
2508 EE9F 3A 0031 LDA EDKUR
2509 EEA2 3C INR A
2510 EEA3 32 0031 STA EDKUR
2511 EEA6 3E 5F MVI A,'_'
2512 EEA8 CD EE59 CALL VSUN
2513 EEAB C3 EDEC JMP EDIT0
2514 ;
2515 ; VYMAZ ZNAKU
2516 ;
2517 EEAE 2A 0029 VYMAZ: LHLD BUFFER
2518 EEB1 3A 0031 LDA EDKUR
2519 EEB4 4F MOV C,A
2520 EEB5 06 00 MVI B,0
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-45
2521 EEB7 09 DAD B ; V <HL> ADRESA KURZORU
2522 EEB8 CD E2AA CALL COMP
2523 EEBB 23 INX H
2524 EEBC 23 INX H
2525 EEBD 23 INX H
2526 EEBE 23 INX H ; ZAHRN I ZNAK CR MA KONCI RADKU
2527 EEBF D2 EDEC JNC EDIT0 ; KONEC RADKU - SKOK
2528 EEC2 3A 0031 LDA EDKUR
2529 EEC5 3C INR A
2530 EEC6 32 0031 STA EDKUR
2531 EEC9 CD EED6 CALL VYHOD
2532 EECC 3A 0031 LDA EDKUR
2533 EECF 3D DCR A
2534 EED0 32 0031 STA EDKUR
2535 EED3 C3 EDEC JMP EDIT0
2536 ;
2537 EED6 2A 0029 VYHOD: LHLD BUFFER
2538 EED9 3A 0031 LDA EDKUR
2539 EEDC 4F MOV C,A
2540 EEDD 06 00 MVI B,0
2541 EEDF 09 DAD B ; V <HL> ADRESA KURZORU
2542 EEE0 23 VYH0: INX H
2543 EEE1 7E MOV A,M
2544 EEE2 2B DCX H
2545 EEE3 77 MOV M,A
2546 EEE4 23 INX H
2547 EEE5 FE 0D CPI CR
2548 EEE7 C2 EEE0 JNZ VYH0
2549 EEEA 1B DCX D
2550 EEEB C9 RET
2551 ;
2552 ;
2553 ;
2554 ; LOAD
2555 ;
2556 ; SNIMAC A DEROVAC (=>MODEM+MAGNETOFON)
2557 ;
2558 EEEC 11 009B LOAD: LXI D,TXTBGN
2559 EEEF CD F806 LOA1: CALL RI
2560 EEF2 FE 00 CPI 00H
2561 EEF4 CA EEEF JZ LOA1
2562 EEF7 FE 24 CPI '$'
2563 EEF9 C2 EEEF JNZ LOA1
2564 EEFC CD F806 CALL RI
2565 EEFF 6F MOV L,A
2566 EF00 CD F806 CALL RI
2567 EF03 67 MOV H,A
2568 EF04 19 DAD D ; KONCOVA ADRESA
2569 EF05 22 003B SHLD TXTUNF
2570 EF08 EB XCHG
2571 EF09 CD F806 LOA0: CALL RI
2572 EF0C 77 MOV M,A
2573 EF0D 23 INX H
2574 EF0E CD E2AA CALL COMP
2575 EF11 C2 EF09 JNZ LOA0
2576 EF14 D5 PUSH D
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-46
2577 EF15 C5 PUSH B
2578 EF16 CD F004 CALL JOIN0
2579 EF19 C1 POP B
2580 EF1A D1 POP D
2581 EF1B C3 E03E JMP RSTART
2582 ;
2583 ;
2584 ;
2585 ; SAVE
2586 ;
2587 EF1E 0E 24 SAVE: MVI C,'$'
2588 EF20 CD F80C CALL PO
2589 EF23 2A 003B LHLD TXTUNF
2590 EF26 EB XCHG ; V <DE> KONEC PROGRAMU
2591 EF27 21 009B LXI H,TXTBGN ; V <HL> ZACATEK PROGRAMU
2592 EF2A 7B MOV A,E
2593 EF2B 95 SUB L
2594 EF2C 4F MOV C,A
2595 EF2D 7A MOV A,D
2596 EF2E 9C SBB H
2597 EF2F 47 MOV B,A
2598 EF30 CD F80C CALL PO ; POCET BYTU LOW
2599 EF33 48 MOV C,B
2600 EF34 CD F80C CALL PO ; POCET BYTU HIGH
2601 EF37 CD E2AA SAVE1: CALL COMP
2602 EF3A CA EF45 JZ SAVE2
2603 EF3D 4E MOV C,M
2604 EF3E CD F80C CALL PO
2605 EF41 23 INX H
2606 EF42 C3 EF37 JMP SAVE1
2607 EF45 0E 1A SAVE2: MVI C,SUBS
2608 EF47 CD F80C CALL PO
2609 EF4A D5 PUSH D
2610 EF4B C5 PUSH B
2611 EF4C CD F028 CALL TCLOSE
2612 EF4F C1 POP B
2613 EF50 D1 POP D
2614 EF51 C3 E03E JMP RSTART
2615 ;
2616 ;
2617 ;
2618 ; GET
2619 ;
2620 EF54 CD F806 GET: CALL RI
2621 EF57 6F MOV L,A
2622 EF58 CD F806 CALL RI
2623 EF5B 67 MOV H,A
2624 EF5C C9 RET
2625 ;
2626 ;
2627 ;
2628 ; PUT
2629 ;
2630 EF5D CD E70B PUT: CALL PARN
2631 EF60 C5 PUSH B
2632 EF61 4D MOV C,L
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-47
2633 EF62 CD F80C CALL PO
2634 EF65 4C MOV C,H
2635 EF66 CD F80C CALL PO
2636 EF69 C1 POP B
2637 EF6A CD E2B8 CALL FINI
2638 EF6D C3 E7D5 JMP QWHAT
2639 ;
2640 ;
2641 ;
2642 ; CLOSE
2643 ;
2644 EF70 CD EF90 CLOSE: CALL CHKTPR ; JE PRIPOJEN MAGNETOFON ?
2645 EF73 D5 PUSH D
2646 EF74 C5 PUSH B
2647 EF75 CD F028 CALL TCLOSE
2648 EF78 C1 POP B
2649 EF79 D1 POP D
2650 EF7A CD E2B8 CALL FINI
2651 EF7D C3 E7D5 JMP QWHAT
2652 ;
2653 ;
2654 ;
2655 ; INIT
2656 ;
2657 EF80 CD EF90 INIT: CALL CHKTPR ; JE PRIPOJEN MAGNETOFON ?
2658 EF83 D5 PUSH D
2659 EF84 C5 PUSH B
2660 EF85 CD F004 CALL JOIN0
2661 EF88 C1 POP B
2662 EF89 D1 POP D
2663 EF8A CD E2B8 CALL FINI
2664 EF8D C3 E7D5 JMP QWHAT
2665 ;
2666 ;
2667 ; CHKTPR - TEST PRITOMNOSTI MAGNETOFONU
2668 ;
2669 EF90 3A F000 CHKTPR: LDA ADRTPR
2670 EF93 FE 55 CPI KEYTPR
2671 EF95 C2 E7D5 JNZ QWHAT
2672 EF98 C9 RET
2673 ;
2674 .DEPHASE
2675 ;
2676 ;*********************************************
2677 ;
2678 ; DEFINICE RAM
2679 ;
2680 ;*********************************************
2681 ;
2682 .PHASE UZIRAM
2683 ;
2684 0006 LEGT: DS 2
2685 0008 IOBUFA: DS 1
2686 0009 IOBUFB: DS 1
2687 000A IOBUFC: DS 1
2688 000B LISTC: DS 1
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE 1-48
2689 000C CO: DS 3 ; SKUTECNA ADR. CO OR LO
2690 000F MASKIN: DS 1 ; MASKA PRO FUNKCI 'INM'
2691 0010 CURRNT: DS 2 ; PRAVE ZPRACOVAVANY RADEK PROGRAM
2692 0012 STKGOS: DS 2 ; POINTER PRO GOSUB
2693 0014 VARNXT: DS 2
2694 0016 STKINP: DS 2
2695 0018 LOPVAR: DS 2 ; POINTER PRO FOR
2696 001A LOPINC: DS 2
2697 001C LOPLMT: DS 2
2698 001E LOPLN: DS 2
2699 0020 LOPPT: DS 2
2700 0022 RANPNT: DS 2 ; PARAMETR PRO RANDOM
2701 0024 ARMM: DS 2
2702 0026 MODE: DS 1 ; REZIM ZOBRAZENI (0-PRIMO, 1-INVERZNE)
2703 0027 TXTEND: DS 2 ; MAXIMALNI ADR. PRO BASIC PROGRAMU
2704 0029 BUFFER: DS 2 ; POINTER NA RADKONY BUFFER
2705 002B BUFEND: DS 2 ; POINTER NA KONEC RADKOVEHO BUFFERU
2706 002D XKUR: DS 1 ; X SOURADNICE GRAF. KURZORU
2707 002E YKUR: DS 1 ; Y SOURADNICE GRAF. KURZORU
2708 002F DELTAX: DS 1 ; POMOCNA PROMENA INTRPOLATORU
2709 0030 DELTAY: DS 1 ; POMOCNA PROMENA INTRPOLATORU
2710 0031 EDKUR: DS 1 ; KURZOR EDITORU
2711 .DEPHASE
2712 ;
2713 ; OBSLUHA TVRDEHO BREAKU - RST 7
2714 ;
2715 .PHASE 38H
2716 ;
2717 0038 RST7RA: DS 3
2718 ;
2719 003B TXTUNF: DS 2 ; POINTER NA KONEC PROGRAMU BASIC
2720 003D DS 40
2721 0065 VARBGN: DS 54 ; PROSTOR PRO PROMENE V BASICU
2722 009B TXTBGN: DS 32 ; MINIMALNI PROSTOR PRO PROGRAM V BASICU
2723 00BB TXTE: DS 1 ; KONEC MINIMALNIHO PROGRAMU
2724 ;
2725 .DEPHASE
2726 ;
2727 END
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE S
Macros:
Symbols:
EA4E A1 E74F ABS F845 ADRKUR
F000 ADRTPR E332 AHOW E559 AREM
0024 ARMM F82D ASHEX E80B ASORRY
E7D6 AWHAT E000 BASIC E000 BASPET
EA18 BCALL EBC1 BEEP EBD0 BEEP0
0007 BELL E015 BEND EA5C BIN
EA25 BOUT EB68 BREAK EB6B BREAK1
0008 BS 002B BUFEND 0029 BUFFER
EADE BYTE E785 CHGSGN E782 CHKSGN
EF90 CHKTPR F803 CI E7A0 CK1
E79A CKHLDE E55D CLEAR EF70 CLOSE
E991 CLS 000C CO F809 COM
E2AA COMP EB57 CONT 000D CR
E974 CRLF E987 CROUT F812 CSTS
0003 CTRLC 0004 CTRLD 0013 CTRLS
0018 CTRLX 0019 CTRLY EDC0 CURF
0010 CURRNT ED95 CURS E842 CXBUFA
E838 CXBUFE F830 DADR E9D8 DBUFF
F833 DBYTE E5F8 DEFLT 002F DELTAX
0030 DELTAY E9A5 DIRECT EB81 DISP
E392 DISPL E765 DIVIDE EC89 DIVT0
EC87 DIVTRI 001E DL 0018 DOWN
ECB5 DRAF EC92 DRAW 001F DSCR
E9E0 DTXTE E770 DV1 E772 DV2
EB9A ECOM EBAC ECOM0 E08A EDIST
EDC3 EDIT EDEC EDIT0 EDFC EDIT2
0031 EDKUR E7CF ENDCHK E7D9 ERROR
001B ESC E9AC EX1 E9BF EX2
E9CA EX3 E9CC EX4 E9D1 EX5
E9A8 EXEC E60C EXPR E610 EXPR1
E654 EXPR2 E690 EXPR3 E6F4 EXPR4
000C FF E7BC FIN E2B8 FINI
E888 FL2 E869 FNDLN E871 FNDLP
E887 FNDNXT E889 FNDSKP E488 FOR
E498 FR1 E4A4 FR2 E4AA FR3
E4AD FR4 E4C5 FR7 E4E6 FR8
EF54 GET E811 GETLN E818 GL1
E841 GL3 E851 GL4 E859 GL5
E44B GOSUB E37B GOTO E97F H2
E38C HARD EA21 HERE EB29 HEX
EB32 HNXTH 001D HOME E338 HOW
EA91 I E571 IFF E574 IFFR
E2B0 IGNB EB1D INCHAR EA6B INEM
EF80 INIT EA61 INM E582 INPERR
ECCA INPO1 ED4B INPO10 ED51 INPO11
ED5A INPO12 ED63 INPO13 ED6A INPO14
ED2F INPO15 ECD8 INPO2 ECEA INPO3
ECEC INPO4 ED0D INPO5 ED14 INPO6
ED1B INPO7 ED34 INPO8 ED45 INPO9
ED39 INPOEX E58C INPUT ECB8 INTERP
E006 INTSTA 0008 IOBUFA 0009 IOBUFB
000A IOBUFC E58C IP1 E59C IP2
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE S-1
E5AE IP3 E5EC IP4 EAFA IST
F004 JOIN0 0055 KEYTPR 0200 KILO
0008 LEFT 0006 LEGT E010 LENGHT
E5FE LET 000A LF 0035 LINECO
E981 LINEF E39B LIST 000B LISTC
E398 LLIST F80F LO EB8C LO1
EF09 LOA0 EEEF LOA1 EEEC LOAD
001A LOPINC 001C LOPLMT 001E LOPLN
0020 LOPPT 0018 LOPVAR E3E6 LPRINT
E3AB LS0 E3AE LS1 E3C0 LS3
E3C9 LS4 E3BD LS5 E3E0 LS6
E609 LT1 E9E8 MASK 000F MASKIN
E922 MD1 F81B MEMCHK 0026 MODE
EBB1 MONIT ED6F MOVE ED92 MOVF
E0D8 MSG1 E91A MVDOWN E90F MVUP
EC79 NEPOK E34F NEW E4ED NEXT
F839 NEXTM E5DC NOBRK E564 NULD20
E4F6 NX0 E532 NX1 E548 NX2
E510 NX3 E522 NX4 E546 NX5
EA84 O E33D OK E976 OUTC
EB13 OUTCHR EB93 OUTDIS E70B PARN
EAC2 PEEK EC13 PIXL EC3E PIXL0
EC82 PIXL1 EBE6 PLOT EC10 PLTF
E8C1 PN1 E8C8 PN2 E8D8 PN3
E8D9 PN4 E8E7 PN5 E8ED PN6
F80C PO EC56 POK EC59 POK0
EC6E POK1 EAC9 POKE E929 POPA
EB55 POPRET E943 PP1 E407 PR0
E3F9 PR1 E42C PR3 E401 PR6
E440 PR8 E3E9 PRINT EB7A PRNTST
E8FA PRTLN E8B6 PRTNUM E893 PRTSTG
E894 PS1 E971 PU1 E945 PUSHA
EF5D PUT E331 QHOW E80A QSORRY
E8A8 QT1 E8B1 QT2 E8A1 QTSTG
EB05 QUOTE E7D5 QWHAT E740 RA1
E731 RA2 E9F2 RAM E9F5 RAM1
0004 RAMEND 0022 RANPNT E54E REM
E46D RETURN F806 RI 0004 RIGHT
E71C RND 0038 RST7RA E041 RSTAR1
E03E RSTART 007F RUB E358 RUN
E35E RUNNXL E36E RUNSML E367 RUNTSL
EF1E SAVE EF37 SAVE1 EF45 SAVE2
EB7D SETCO E7A3 SETVAL E758 SIZE
E349 SORRY F83C SPACE E066 ST2
E06F ST3 E0A6 ST4 E074 ST5
E01B START E03B START1 0012 STKGOS
0016 STKINP EB65 STOP E77B SUBDE
001A SUBS EA4B TAB E0E9 TAB1
E122 TAB2 E227 TAB4 E27B TAB5
E283 TAB6 E28D TAB8 E303 TC2
F028 TCLOSE F84B TIMER E30E TN1
E00B TOP E2F3 TSTC E307 TSTNUM
E2BF TSTV E2E3 TV1 E104 TXMON
009B TXTBGN 00BB TXTE 0027 TXTEND
003B TXTUNF E0CF USREND 0006 UZIRAM
0065 VARBGN 0014 VARNXT EE71 VLEVO
'PLAN80A TINY BASIC V3Q' MACRO-80 3.44 09-Dec-81 PAGE S-2
EE47 VLOZ EE9C VPRA0 EE8A VPRAVO
EE65 VSU0 EE59 VSUN EEE0 VYH0
EED6 VYHOD EEAE VYMAZ EBB4 WAIT
E343 WHAT EAE8 WORD EAF1 WRIT2
002D XKUR E616 XP11 E61C XP12
E622 XP13 E629 XP14 E631 XP15
E637 XP16 E63D XP17 E63F XP18
E667 XP23 E670 XP24 E686 XP26
E693 XP31 E6B2 XP32 E6BA XP33
E6E6 XP35 E6FA XP40 E705 XP41
002E YKUR EA8D ZZZ4
No Fatal error(s)
A1 1710# 1716
ABS 372 1150#
ADRKUR 82#
ADRTPR 66# 2669
AHOW 542# 586 689 1048 1054 1072
AREM 394 833#
ARMM 826 833 2701#
ASHEX 81# 1876
ASORRY 464 1286# 1662 1665 1760
AWHAT 781 1256#
BASIC 63# 114
BASPET 116# 1127 1133
BCALL 314 1677#
BEEP 329 1983#
BEEP0 1992# 1999
BELL 102#
BEND 131# 308
BIN 387 1720#
BOUT 319 1687#
BREAK 1905 1908#
BREAK1 916 1909#
BS 99# 1304
BUFEND 1318 1667 2705#
BUFFER 1330 1630 1670 2466 2498 2517 2537 2704#
BYTE 340 1805#
CHGSGN 1028 1084 1193# 1543
CHKSGN 1037 1039 1064 1066 1152 1190# 1426
CHKTPR 2644 2657 2669#
CI 70# 1299 1862 1902 2417
CK1 1214 1216#
CKHLDE 810 993 1212#
CLEAR 276 839#
CLOSE 348 2644#
CLS 273 1582#
CO 1570 1576 1578 1584 1586 1588 1715 1854 1921 1925 1993 2409
2411 2450 2452 2689#
COM 71# 1951
COMP 218 429# 463 782 1131 1216 1367 1491 1661 1664 1759 2505
2522 2574 2601
CONT 576 925 1899#
CR 87# 547 550 552 554 607 646 937 1244 1253 1313 1390
1403 1414 1566 1568 1575 1874 2386 2434 2475 2547
CRLF 154 642 648 674 1338 1566# 1910
CROUT 1573 1575#
CSTS 75# 1860 1899
CTRLC 89# 1903
CTRLD 91# 2424
CTRLS 93# 2420
CTRLX 90# 1306 2428
CTRLY 92#
CURF 2352 2369#
CURRNT 170 570 690 711 735 814 866 893 896 915 924 1266
1908 2691#
CURS 363 2344#
CXBUFA 1329#
CXBUFE 1317#
DADR 79# 1815
DBUFF 177 904 1297 1629# 1761 1767 2396 2412 2442
DBYTE 80#
DEFLT 368 936#
DELTAX 2191 2220 2708#
DELTAY 2193 2226 2709#
DIRECT 183 1594#
DISP 141 597 632 643 649 675 1260 1924#
DISPL 282 597#
DIVIDE 1074 1141 1168# 1435
DIVT0 2128# 2130
DIVTRI 2064 2086 2127#
DL 105#
DOWN 94# 2426
DRAF 2148 2159#
DRAW 357 2140#
DSCR 106# 1587 2410 2451
DTXTE 217 1640#
DV1 1171 1176#
DV2 1177# 1179
ECOM 1937 1941#
ECOM0 1944 1947 1951#
EDIST 190# 2453
EDIT 366 2384#
EDIT0 2408# 2458 2463 2486 2494 2506 2513 2527 2535
EDIT2 2417#
EDKUR 2402 2460 2462 2468 2484 2491 2499 2508 2510 2518 2528 2530
2532 2534 2538 2710#
ENDCHK 131 558 564 584 702 1252# 1907
ERROR 543 1257# 1287
ESC 103# 907 1300 2432
EX1 1597# 1603
EX2 1608# 1610
EX3 1600 1615#
EX4 1616# 1618
EX5 1607 1619#
EXEC 578 723 728 954 1087 1595# 1614
EXPR 582 654 664 677 686 725 730 853 917 951# 1102 1226
1651 1658 1677 1687 1692 1744 1754 1791 1796 1852 1971 1983
2011 2020 2140 2149 2316 2325 2344 2353
EXPR1 953#
EXPR2 951 990 998#
EXPR3 1006 1011 1027 1030#
EXPR4 1030 1035 1062 1086#
FF 101# 1583
FIN 447 672 1238#
FINI 446# 593 598 676 714 769 817 821 849 932 947 1590
1654 1683 1703 1712 1750 1800 1808 1816 1855 1977 2002 2032
2158 2334 2368 2637 2650 2663
FL2 1376 1388# 1391
FNDLN 195 585 609 688 1360# 2388
FNDLP 567 618 1364# 1393
FNDNXT 199 1387# 2394
FNDSKP 857 1389#
FOR 297 718#
FR1 402 725#
FR2 407 730#
FR3 409 733#
FR4 731 734#
FR7 746# 754 757
FR8 750 767#
GET 398 2620#
GETLN 175 902 1295# 1340
GL1 1299# 1301 1323 1336 1762
GL3 1303 1305 1327#
GL4 1307 1334 1338#
GL5 1335 1342#
GOSUB 290 685#
GOTO 287 582#
H2 1571# 1574
HARD 279 592#
HERE 1679 1682#
HEX 383 1868#
HNXTH 1873# 1890
HOME 104# 1585 2408 2449
HOW 542 547#
I 323 1754#
IFF 284 853#
IFFR 829 854#
IGNB 179 438# 442 452 491 511 606 623 1252 1595 2385
INCHAR 381 1859#
INEM 1720 1723 1729#
INIT 351 2657#
INM 385 1723#
INPERR 863# 1275
INPO1 2180# 2269 2285
INPO10 2182 2273#
INPO11 2173 2280#
INPO12 2183 2289#
INPO13 2195 2298#
INPO14 2211 2306#
INPO15 2238 2241 2243#
INPO2 2190# 2276 2294
INPO3 2208# 2302
INPO4 2209# 2245
INPO5 2222 2226#
INPO6 2230# 2262
INPO7 2228 2233#
INPO8 2216 2249#
INPO9 2172 2266#
INPOEX 2218 2219 2257#
INPUT 300 872#
INTERP 2156 2165#
INTSTA 119# 161
IOBUFA 1695 1702 1732 1738 2685#
IOBUFB 1698 1735 2686#
IOBUFC 1700 1737 2687#
IP1 873# 895 931
IP2 875 879#
IP3 878 891#
IP4 877 927#
IST 1827 1829#
JOIN0 65# 2578 2660
KEYTPR 109# 2670
KILO 100#
LEFT 95# 2418
LEGT 127 1776 2684#
LENGHT 127# 396
LET 271 942# 946
LF 88# 739 763 1225 1458 1577
LINECO 108# 2358
LINEF 1569 1573#
LIST 248 603#
LISTC 605 611 616 629 2688#
LLIST 251 602#
LO 74# 1931
LO1 1920 1929#
LOA0 2571# 2575
LOA1 2559# 2561 2563
LOAD 263 2558#
LOPINC 734 791 1526 1557 2696#
LOPLMT 726 805 1528 1555 2697#
LOPLN 736 813 1530 1553 2698#
LOPPT 738 767 815 1532 1551 2699#
LOPVAR 172 695 721 740 778 801 1521 1547 1559 2695#
LPRINT 306 637#
LS0 609# 621 631
LS1 610# 619
LS3 617#
LS4 608 620#
LS5 613 616#
LS6 610 632#
LT1 938 947#
MASK 335 1651#
MASKIN 167 1653 1725 2690#
MD1 1507 1511#
MEMCHK 76# 231
MODE 143 165 575 659 1258 1942 2702#
MONIT 258 1130 1958#
MOVE 360 2316#
MOVF 2324 2335#
MSG1 144 238#
MVDOWN 222 765 1505# 1515
MVUP 202 225 1491# 1497 1769 2400
NEPOK 2089 2114#
NEW 255 558#
NEXT 269 773#
NEXTM 77# 1958
NOBRK 908 917#
NULD20 842# 847
NX0 776# 787
NX1 808 810#
NX2 812 820#
NX3 783 788#
NX4 797 800#
NX5 799 818#
O 321 1744#
OK 163 549#
OUTC 1281 1296 1308 1346 1348 1351 1402 1451 1455 1462 1480 1567#
1834 1912
OUTCHR 317 1852#
OUTDIS 1926 1935#
PARN 457 1099# 1118 1150 1709 1729 1784 1805 1814 2630
PEEK 378 1784#
PIXL 2030 2041# 2242
PIXL0 2071 2073#
PIXL1 2105 2112 2116 2121#
PLOT 354 2011#
PLTF 2019 2033#
PN1 1427 1430#
PN2 1435# 1444
PN3 1438 1445#
PN4 1446# 1452
PN5 1449 1453#
PN6 1457# 1463
PO 73# 2588 2598 2600 2604 2608 2633 2635
POK 2091#
POK0 2093# 2095
POK1 2099 2106#
POKE 332 1791#
POPA 713 785 820 1519#
POPRET 1889 1892#
PP1 1524 1533#
PR0 651# 673
PR1 645#
PR3 660 666 669# 681
PR6 649# 1416
PR8 668 677#
PRINT 303 638#
PRNTST 592 602 637 1920#
PRTLN 617 1276 1471# 1913 2413
PRTNUM 679 1425# 1478
PRTSTG 145 168 887 1259 1283 1397# 1413 1482 1748
PS1 1398# 1404
PU1 1550 1560#
PUSHA 685 718 1538#
PUT 345 2630#
QHOW 459 518 541# 1022 1081 1121 1206 1362 1988 1990 2016 2024
2145 2152 2321 2328 2349 2356 2389
QSORRY 219 1285# 1546
QT1 1413#
QT2 1417#
QTSTG 667 874 1409#
QUOTE 389 1840#
QWHAT 404 448 706 774 881 1107 1221 1234 1255# 1704 1801 1848
1875 1877 1891 2033 2159 2335 2369 2387 2638 2651 2664 2671
RA1 1132 1134#
RA2 1126 1129#
RAM 260 1658#
RAM1 149 1659#
RAMEND 62# 137 155 1539 2057 2359
RANPNT 1128 1129 1137 2700#
REM 295 825#
RETURN 293 702#
RI 72# 2559 2564 2566 2571 2620 2622
RIGHT 96# 2422
RND 370 1118#
RST7RA 160 162 2717#
RSTAR1 155# 633
RSTART 117 121 132 154# 211 568 615 859 1272 1284 1914 2433
2581 2614
RUB 97# 1302 2430
RUN 253 564#
RUNNXL 566# 650 1247
RUNSML 574# 644 856 1242
RUNTSL 569# 588 698 858
SAVE 266 2587#
SAVE1 2601# 2606
SAVE2 2602 2607#
SETCO 1921# 1927
SETVAL 719 942 1220#
SIZE 375 462 1158#
SORRY 553# 1286
SPACE 78#
ST2 169 171#
ST3 174# 226
ST4 197 206#
ST5 176#
START 116 136#
START1 150# 1673
STKGOS 173 692 697 703 709 2692#
STKINP 863 899 2694#
STOP 311 1907#
SUBDE 466 1162 1178 1182# 1774
SUBS 98# 107# 2607
TAB 337 1709#
TAB1 246# 1594
TAB2 267# 577
TAB4 369# 1086
TAB5 401# 722
TAB6 405# 727
TAB8 410# 953
TC2 494 501#
TCLOSE 64# 2611 2647
TIMER 83# 1975 1995
TN1 512# 537
TOP 123# 391
TSTC 490# 639 645 651 661 669 928 943 998 1003 1007 1023
1031 1058 1099 1103 1223 1238 1243 1409 1689 1793 1844 1870
1886 2017 2146 2322 2350
TSTNUM 178 509# 603 625 1095 2384
TSTV 452# 773 876 880 1088 1220
TV1 455 472#
TXMON 256#
TXTBGN 146 559 565 1363 2558 2591 2722#
TXTE 1660 2723#
TXTEND 150 465 1161 1641 2703#
TXTUNF 123 147 201 205 207 220 560 1158 1365 1757 2569 2589
2719#
USREND 148 230# 1663
UZIRAM 61# 2682
VARBGN 476 839 2721#
VARNXT 775 786 2693#
VLEVO 2419 2421 2484#
VLOZ 2435 2457#
VPRA0 2507#
VPRAVO 2423 2425 2498#
VSU0 2472# 2477
VSUN 2404 2459 2465# 2493 2512
VYH0 2542# 2548
VYHOD 2439 2488 2507 2531 2537#
VYMAZ 2427 2429 2431 2517#
WAIT 326 1971#
WHAT 551# 1256
WORD 343 1814#
WRIT2 1807 1822#
XKUR 2026 2170 2223 2225 2235 2259 2261 2332 2706#
XP11 411 955#
XP12 413 959#
XP13 415 963#
XP14 419 968#
XP15 417 974#
XP16 421 978#
XP17 423 982#
XP18 955 959 963 968 974 978 984#
XP23 1007# 1019 1021
XP24 1012# 1029
XP26 1002 1026#
XP31 1031# 1085
XP32 1044 1049#
XP33 1053# 1056
XP35 1052 1057 1078#
XP40 400 1088#
XP41 1089 1095#
YKUR 2022 2180 2230 2232 2707#
ZZZ4 1749# 1780
Ú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