Dies ist eine alte Version des Dokuments!
Monitor 2.02
<code> AS V1.42 Beta [Bld 64] - source file z1013riesa.asm - page 1 - 12/15/2011 10:24:49
1/ 0 : page 0
2/ 0 : CPU z80
3/ 0 :
4/ 0 : ;Z1013-MONITOR 2.02, A.2
5/ 0 : ;reass: 1988-1990 Volker Pohlers, Lomonossowallee 41/81, Greifswald, 2200
6/ 0 : ;basierend auf GENS3M-Listing des 2.02-Monitors von C.Fischer/Ilmenau
7/ 0 : ;Fassung für den Arnold-Assembler und vielfach erweiterte Kommentare
8/ 0 : ;Volker Pohlers, Sanitz, 23.04.2004
9/ 0 : ;letzte Änderung 07.12.2011
10/ 0 :
11/ 0 : ;
12/ 0 : ;gewünschten Monitortyp auskommentieren
13/ 0 : ;
14/ 0 : =Z1013_202 MONTYP EQU "Z1013_202"
15/ 0 : ;MONTYP EQU "Z1013_A2"
16/ 0 :
17/ 0 : ;die wichtigsten Unterschiede A2 <-> 2.02
18/ 0 : ;- kein H- und A- und F-Kommandos
19/ 0 : ;- andere Adressen Windows-Speicher
20/ 0 : ;- andere INKEY-Routine und auch INCH-Routine!
21/ 0 : ;- KDO mit RST-Aufrufen programmiert, damit Verschiebung aller Routinen des Monitors!
22/ 0 :
23/ 0 : ; Makros
24/ 0 : hi function x, (x>>8) & 0ffh ; High-Byte
25/ 0 : lo function x, x & 0ffh ; Low-Byte
26/ 0 :
27/ 0 : ;
28/ 0 : ;RAM-Zellen
29/ 0 : ;
30/ 0 : =3H R20BT: EQU 00003H ;Nummer des RST20-Calls
31/ 0 : =4H LAKEY: EQU 00004H ;letztes Zeichen von Tastatur
32/ 0 : =BH BPADR: EQU 0000BH ;Breakpointadresse
33/ 0 : =DH BPOPC: EQU 0000DH ;Operandenfolge bei Breakpoint
34/ 0 : =13H DATA: EQU 00013H ;Adresse bei INHEX; intern f. INKEY b. A2
35/ 0 : ;SHILO: EQU 00015H ;
36/ 0 : =16H SOIL: EQU 00016H ;Beginn Eingabezeile
37/ 0 : =1BH ARG1: EQU 0001BH ;1. Argument
38/ 0 : =1DH ARG2: EQU 0001DH ;2. Argument
39/ 0 : =1FH BUFFA: EQU 0001FH ;vom Cursor verdecktes Zeichen
40/ 0 : =20H RST20: EQU 00020H ;RST 20H
41/ 0 : =23H ARG3: EQU 00023H ;3. Argument
42/ 0 : =25H SOIL2: EQU 00025H ;Rest Eingabezeile
43/ 0 : =2BH CUPOS: EQU 0002BH ;aktuelle Cursorposition
44/ 0 : =33H LSYNC: EQU 00033H ;Kenntonlaenge
45/ 0 : =38H RST38: EQU 00038H ;RST 38H
46/ 0 : =>FALSE IF MONTYP == "Z1013_A2"
47/ 0 : WINDL: EQU 00035H ;Windowlaenge
48/ 0 : KYBTS: equ 00037h ;Tastaturroutinenzelle (Bit 4=Repeat)
49/ 0 : WINDA: EQU 0003BH ;Windowanfang
50/ 0 : WINDE: EQU 0003DH ;Windowende+1
51/ 0 : =>TRUE ELSE
52/ 0 : =27H KYBTS: EQU 00027H ;Tastaturroutinenzelle (0=ASCII,80h=Grafik)
53/ 0 : =47H WINDL: EQU 00047H ;Windowlaenge
54/ 0 : =49H WINDA: EQU 00049H ;Windowanfang
55/ 0 : =4BH WINDE: EQU 0004BH ;Windowende+1
56/ 0 : [46] ENDIF
57/ 0 : =4DH REGBR: EQU 0004DH ;Registerrettebereich
58/ 0 : =5BH REGAF: EQU 0005BH ;Register AF
59/ 0 : =61H REGPC: EQU 00061H ;Register PC
60/ 0 : =63H REGSP: EQU 00063H ;Userstack
61/ 0 : =66H NMI: EQU 00066H
62/ 0 : =69H NBYTE: EQU 00069H ;Operand bei NEXT
63/ 0 : =6AH SPADR: EQU 0006AH ;SP-Zwischenspeicher
64/ 0 : =6CH FBANZ: EQU 0006CH ;Zwsp. Anz. Suchbytes bei FIND
65/ 0 : =90H USRSK: EQU 00090H ;Userstack
66/ 0 : =B0H SYSSK: EQU 000B0H ;Systemstack
67/ 0 : =B0H USRKD: EQU SYSSK
68/ 0 : ;Bildschirm
69/ 0 : =EC00H BWS: EQU 0EC00H ;Beginn BWS
70/ 0 : =20H BWSROW EQU 32 ;Anzahl Zeilen
71/ 0 : =20H BWSCOL EQU 32 ;Anzahl Zeichen/Zeile
72/ 0 : =400H BWSSZ EQU BWSROW*BWSCOL
73/ 0 : ;
74/ 0 : ;Markenvereinbarungen
75/ 0 : ;
76/ 0 : =CH CLS: EQU 0CH
77/ 0 : =DH CR: EQU 0DH
78/ 0 : =1BH ESC: EQU 27
79/ 0 : =1EH NL: EQU 1EH
80/ 0 : =AH LF: EQU 0AH
81/ 0 : ;
82/ 0 : ;PIO
83/ 0 : =0H PIOAD equ 00h ; PIO A User
84/ 0 : =1H PIOAC equ 01h
85/ 0 : =2H PIOBD equ 02h ; PIO B, Bit0..4 Tastaturzeile
86/ 0 : =3H PIOBC equ 03h ; Bit5->AB0 in, Bit6->TB in, Bit7->TB out
87/ 0 : =8H KEYP equ 08h ; Port Ausgabe Tastaturspalte
88/ 0 : ;
89/ 0 : ; Makros für Systemaufrufe über RST 20h
90/ 0 : ;
91/ 0 : ROUTC: MACRO
92/ 0 : RST 20H
93/ 0 : DB 0 ; OUTCH
94/ 0 : ENDM
95/ 0 : RINCH: MACRO
96/ 0 : RST 20H
97/ 0 : DB 01h ; INCH
98/ 0 : ENDM
99/ 0 : RPRST: MACRO
100/ 0 : RST 20H
101/ 0 : DB 02h ; PRST
102/ 0 : ENDM
103/ 0 : RINHX: MACRO
104/ 0 : RST 20H
105/ 0 : DB 03h ; INHEX
106/ 0 : ENDM
107/ 0 : RINKY: MACRO
108/ 0 : RST 20H
109/ 0 : DB 04h ; INKEY
110/ 0 : ENDM
111/ 0 : RINLN: MACRO
112/ 0 : RST 20H
113/ 0 : DB 05h ; INLIN
114/ 0 : ENDM
115/ 0 : ROTHX: MACRO
116/ 0 : RST 20H
117/ 0 : DB 06h ; OUTHX
118/ 0 : ENDM
119/ 0 : ROTHL: MACRO
120/ 0 : RST 20H
121/ 0 : DB 07h ; OUTHL
122/ 0 : ENDM
123/ 0 : ROTHS: MACRO
124/ 0 : RST 20H
125/ 0 : DB 0Ch ; OTHLS
126/ 0 : ENDM
127/ 0 : ROTDP: MACRO
128/ 0 : RST 20H
129/ 0 : DB 0Dh ; OUTDP
130/ 0 : ENDM
131/ 0 : ROTSP: MACRO
132/ 0 : RST 20H
133/ 0 : DB 0Eh ; OUTSP
134/ 0 : ENDM
135/ 0 : ;
136/ 0 : ;
137/ 0 : ;
138/ F000 : ORG 0F000H
139/ F000 : ;
140/ F000 : ;-------------------------------------------------------------------------------
141/ F000 : ; Start
142/ F000 : ;-------------------------------------------------------------------------------
143/ F000 :
144/ F000 : 18 0D INIT: JR INIT2
145/ F002 : ;Initialisierung
146/ F002 : 21 4D 00 INIT1: LD HL,REGBR ;Registerrette-
147/ F005 : 11 4E 00 LD DE,REGBR+1 ;bereich loeschen
148/ F008 : 36 00 LD (HL),0
149/ F00A : 01 15 00 LD BC,0015H
150/ F00D : ED B0 LDIR
151/ F00F : 31 B0 00 INIT2: LD SP,SYSSK ;System-Stack
152/ F012 : =>TRUE IF MONTYP == "Z1013_202"
153/ F012 : AF xor a ;Tastaturschalter
154/ F013 : 32 27 00 ld (KYBTS), a ;auf ASCII
155/ F016 : [152] ENDIF
156/ F016 : 3E C3 LD A,0C3H ;JMP ...
157/ F018 : 32 20 00 LD (RST20),A
158/ F01B : 21 E8 F0 LD HL,RST1 ;RST20 eintragen
159/ F01E : 22 21 00 LD (RST20+1),HL
160/ F021 : 3E CF LD A,11001111b ;PIO Port B init.
161/ F023 : D3 03 OUT PIOBC, A ;BIT-Mode 3
162/ F025 : =>TRUE IF MONTYP <> "Z1013_A2"
163/ F025 : 3E 7F LD A,01111111b ;BIT7-Ausgang
164/ F027 : =>FALSE ELSE
165/ F027 : LD A,01101111b ;Bit7 und Bit4 Ausg.
166/ F027 : [162] ENDIF
167/ F027 : D3 03 OUT PIOBC, A
168/ F029 : 21 F2 F1 LD HL,MONTB ;System-RAM init.
169/ F02C : 11 33 00 LD DE,LSYNC
170/ F02F : 01 1A 00 LD BC,INCH-MONTB ;Laenge Tabelle
171/ F032 : ED B0 LDIR
172/ F034 : ;Systemmeldung
173/ F034 : (MACRO) RPRST
173/ F034 : E7 RST 20H
173/ F035 : 02 DB 02h ; PRST
174/ F036 : 0C DB CLS
175/ F037 : 0D DB CR
176/ F038 : 0D DB CR
177/ F039 : =>TRUE IF MONTYP == "Z1013_202"
178/ F039 : 72 6F 62 6F 74 72 DB "robotron Z 1013/2.02"
6F 6E 20 5A 20 31
30 31 33 2F 32 2E
30 32
179/ F04D : =>FALSE ELSEIF MONTYP == "Z1013_A2"
180/ F04D : DB "robotron Z 1013/A.2"
181/ F04D : [177] ENDIF
182/ F04D : 8D DB CR+80H
183/ F04E : ;
184/ F04E : 21 90 00 LD HL,USRSK ;User-Stack
185/ F051 : 22 63 00 LD (REGSP),HL
186/ F054 : ED 5E IM 2
187/ F056 : 18 07 JR KDO2
188/ F058 : ;
189/ F058 : ;-------------------------------------------------------------------------------
190/ F058 : ;Eingang Kommandomodus
191/ F058 : ;-------------------------------------------------------------------------------
192/ F058 : ;
193/ F058 : 31 B0 00 KDO1: LD SP,SYSSK ;System-Stack
194/ F05B : =>FALSE IF MONTYP == "Z1013_A2"
195/ F05B : RPRST
196/ F05B : =>TRUE ELSE
197/ F05B : CD A5 F2 CALL PRST7
198/ F05E : [194] ENDIF
199/ F05E : BF DB '?'+80H
200/ F05F : KDO2:
201/ F05F : =>FALSE IF MONTYP == "Z1013_A2"
202/ F05F : RINLN
203/ F05F : =>TRUE ELSE
204/ F05F : CD B3 F2 CALL INLIN ;Zeile eingeben
205/ F062 : [201] ENDIF
206/ F062 : ED 5B 16 00 LD DE,(SOIL)
207/ F066 : CD CA F2 CALL SPACE ;Leerzeichen uebergehen
208/ F069 : 47 LD B,A ;B=1. Zeichen
209/ F06A : 13 INC DE
210/ F06B : 1A LD A,(DE)
211/ F06C : 4F LD C,A ;C=2. Zeichen
212/ F06D : C5 PUSH BC
213/ F06E : 13 INC DE
214/ F06F : =>FALSE IF MONTYP == "Z1013_A2"
215/ F06F : RINHX
216/ F06F : =>TRUE ELSE
217/ F06F : CD F4 F2 CALL INHEX
218/ F072 : [214] ENDIF
219/ F072 : 20 05 JR NZ, KDO3
220/ F074 : 1A LD A,(DE)
221/ F075 : FE 3A CP A, ':' ;die alten Werte nehmen ?
222/ F077 : 28 0F JR Z, KDO4
223/ F079 : 22 1B 00 KDO3: LD (ARG1),HL ;neue Argumente holen
224/ F07C : =>FALSE IF MONTYP == "Z1013_A2"
225/ F07C : RINHX
226/ F07C : =>TRUE ELSE
227/ F07C : CD F4 F2 CALL INHEX
228/ F07F : [224] ENDIF
229/ F07F : 22 1D 00 LD (ARG2),HL
230/ F082 : =>FALSE IF MONTYP == "Z1013_A2"
231/ F082 : RINHX
232/ F082 : =>TRUE ELSE
233/ F082 : CD F4 F2 CALL INHEX
234/ F085 : [230] ENDIF
235/ F085 : 22 23 00 LD (ARG3),HL
236/ F088 : C1 KDO4: POP BC
237/ F089 : 08 EX AF, AF'
238/ F08A : ED 53 25 00 LD (SOIL2),DE ;Anfang 4. Argument
239/ F08E : ;Kommando (in Reg B) suchen
240/ F08E : 21 B1 F0 LD HL,KDOTB ;in Kommandotabelle
241/ F091 : 7E KDO5: LD A,(HL)
242/ F092 : B8 CP A, B
243/ F093 : 28 11 JR Z, KDO6 ;wenn gefunden
244/ F095 : 23 INC HL
245/ F096 : 23 INC HL
246/ F097 : 23 INC HL
247/ F098 : B7 OR A ;Tabellenende?
248/ F099 : 20 F6 JR NZ, KDO5 ;nein
249/ F09B : 78 LD A,B
250/ F09C : FE 40 CP A, '@' ;"@"-Kommando?
251/ F09E : 20 B8 JR NZ, KDO1 ;nein -> Eingabefehler
252/ F0A0 : 21 B0 00 LD HL,USRKD ;Suchen in "@"-Kdo.tab.
253/ F0A3 : 41 LD B,C
254/ F0A4 : 18 EB JR KDO5
255/ F0A6 : ;
256/ F0A6 : 23 KDO6: INC HL
257/ F0A7 : 5E LD E,(HL)
258/ F0A8 : 23 INC HL
259/ F0A9 : 56 LD D,(HL)
260/ F0AA : EB EX DE,HL ;HL=UP-Adresse
261/ F0AB : 08 EX AF, AF'
262/ F0AC : 01 5F F0 LD BC,KDO2 ;Returnadresse
263/ F0AF : C5 PUSH BC
264/ F0B0 : E9 JP (HL) ;Sprung zur Routine
265/ F0B1 : ;
266/ F0B1 : KDOTB:
267/ F0B1 : =>TRUE IF MONTYP == "Z1013_202"
268/ F0B1 : 41 DB "A"
269/ F0B2 : C5 F6 DW A_KDO
270/ F0B4 : [267] ENDIF
271/ F0B4 : 42 DB "B"
272/ F0B5 : 87 F5 DW B_KDO
273/ F0B7 : 43 DB "C"
274/ F0B8 : 77 F7 DW C_KDO
275/ F0BA : 44 DB "D"
276/ F0BB : CE F4 DW D_KDO
277/ F0BD : 45 DB "E"
278/ F0BE : 99 F5 DW E_KDO
279/ F0C0 : =>TRUE IF MONTYP <> "Z1013_A2"
280/ F0C0 : 46 DB "F"
281/ F0C1 : A2 F7 DW F_KDO
282/ F0C3 : [279] ENDIF
283/ F0C3 : 47 DB "G"
284/ F0C4 : B3 F5 DW G_KDO
285/ F0C6 : =>TRUE IF MONTYP == "Z1013_202"
286/ F0C6 : 48 DB "H"
287/ F0C7 : B8 F6 DW H_KDO
288/ F0C9 : [285] ENDIF
289/ F0C9 : 49 DB "I"
290/ F0CA : 02 F0 DW INIT1
291/ F0CC : 4A DB "J"
292/ F0CD : A5 F5 DW J_KDO
293/ F0CF : 4B DB "K"
294/ F0D0 : 0B F5 DW K_KDO
295/ F0D2 : 4C DB "L"
296/ F0D3 : F8 F3 DW CLOAD
297/ F0D5 : 4D DB "M"
298/ F0D6 : 25 F3 DW MEM
299/ F0D8 : 4E DB "N"
300/ F0D9 : 27 F7 DW N_KDO
301/ F0DB : 52 DB "R"
302/ F0DC : DF F5 DW R_KDO
303/ F0DE : 53 DB "S"
304/ F0DF : 69 F3 DW CSAVE
305/ F0E1 : 54 DB "T"
306/ F0E2 : 1D F5 DW T_KDO
307/ F0E4 : 57 DB "W"
308/ F0E5 : D1 F6 DW W_KDO
309/ F0E7 : 00 DB 0
310/ F0E8 : ;
311/ F0E8 : ;-------------------------------------------------------------------------------
312/ F0E8 : ;Eingang bei RST 20H
313/ F0E8 : ;-------------------------------------------------------------------------------
314/ F0E8 : ;
315/ F0E8 : E3 RST1: EX (SP),HL
316/ F0E9 : F5 PUSH AF
317/ F0EA : 7E LD A,(HL) ;Datenbyte hinter Ruf holen
318/ F0EB : 32 03 00 LD (R20BT),A ;und ablegen
319/ F0EE : 23 INC HL ;Returnadresse erhoehen
320/ F0EF : F1 POP AF
321/ F0F0 : E3 EX (SP),HL
322/ F0F1 : ;
323/ F0F1 : E5 PUSH HL
324/ F0F2 : C5 PUSH BC
325/ F0F3 : F5 PUSH AF
326/ F0F4 : 21 08 F1 LD HL,RSTTB
327/ F0F7 : 3A 03 00 LD A,(R20BT)
328/ F0FA : CB 27 SLA A
329/ F0FC : 4F LD C,A
330/ F0FD : 06 00 LD B,0
331/ F0FF : 09 ADD HL,BC ;HL=Adresse in Tab.
332/ F100 : 7E LD A,(HL)
333/ F101 : 23 INC HL
334/ F102 : 66 LD H,(HL)
335/ F103 : 6F LD L,A ;HL=UP-Adresse
336/ F104 : F1 POP AF
337/ F105 : C1 POP BC
338/ F106 : E3 EX (SP),HL ;Ansprung der
339/ F107 : C9 RET ;Routine
340/ F108 : ;
341/ F108 : 1B F2 RSTTB: DW OUTCH ;DB 0
342/ F10A : 0C F2 DW INCH ;DB 1
343/ F10C : A5 F2 DW PRST7 ;DB 2
344/ F10E : F4 F2 DW INHEX ;DB 3
345/ F110 : 30 F1 DW INKEY ;DB 4
346/ F112 : B3 F2 DW INLIN ;DB 5
347/ F114 : 01 F3 DW OUTHX ;DB 6
348/ F116 : 1A F3 DW OUTHL ;DB 7
349/ F118 : 69 F3 DW CSAVE ;DB 8
350/ F11A : F8 F3 DW CLOAD ;DB 9
351/ F11C : 25 F3 DW MEM ;DB 10
352/ F11E : D1 F6 DW W_KDO ;DB 11
353/ F120 : C7 F5 DW OTHLS ;DB 12
354/ F122 : C4 F5 DW OUTDP ;DB 13
355/ F124 : CF F5 DW OUTSP ;DB 14
356/ F126 : 1D F5 DW T_KDO ;DB 15
357/ F128 : B9 F2 DW INSTR ;DB 16
358/ F12A : 0B F5 DW K_KDO ;DB 17
359/ F12C : =>TRUE IF MONTYP <> "Z1013_A2"
360/ F12C : B8 F6 DW H_KDO ;DB 18
361/ F12E : C5 F6 DW A_KDO ;DB 19
362/ F130 : [359] ENDIF
363/ F130 :
364/ F130 : ;
365/ F130 : ;-------------------------------------------------------------------------------
366/ F130 : ;Eingabe ein Zeichen von der Tastatur in A
367/ F130 : ;-------------------------------------------------------------------------------
368/ F130 : ;
369/ F130 : =>TRUE IF MONTYP == "Z1013_202"
370/ F130 :
371/ F130 : ; Tastatur
372/ F130 : ; --------
373/ F130 : ;
374/ F130 : ; ------------------------------------------------- I-------I
375/ F130 : ; I X I Y I Z I [ { I \ | I ] } I ^ ~ I _ I I S1 S2 I
376/ F130 : ; RZ0-I I I I I I I I I I I
377/ F130 : ; I @ ` I A I B I C I D I E I F I G I I S0 I
378/ F130 : ; I-----+-----+-----+-----+-----+-----+-----+-----I I-------I
379/ F130 : ; I 0 I 1 ! I 2 " I 3 # I 4 $ I 5 % I 6 & I 7 ' I
380/ F130 : ; RZ1-I I I I I I I I I S0 = normal, Großbuchstaben
381/ F130 : ; I H I I I J I K I L I M I N I O I S1 = Ziffern etc.
382/ F130 : ; I-----+-----+-----+-----+-----+-----+-----+-----I S2 = Sonderzeichen etc.
383/ F130 : ; I 8 ( I 9 ) I : * I ; + I < , I = - I > . I ? / I S3 = Kleinbuchstaben
384/ F130 : ; RZ2-I I I I I I I I I S4 = Ctrl.
385/ F130 : ; I P I Q I R I S I T I U I V I W I
386/ F130 : ; I-----+-----+-----+-----+-----+-----+-----+-----I
387/ F130 : ; I I I I I I I I I
388/ F130 : ; RZ3-I I I I I I I I I
389/ F130 : ; I S1 I S2 I S3 I S4 I <- I SP I -> I ENT I
390/ F130 : ; -------------------------------------------------
391/ F130 : ; ! ! ! ! ! ! ! !
392/ F130 : ; RS0 RS1 RS2 RS3 RS4 RS5 RS6 RS7
393/ F130 : ;
394/ F130 : ; IN 2 | OUT 8
395/ F130 :
396/ F130 :
397/ F130 : inkey: ;bei Ret A=ASCII
398/ F130 : AF xor a
399/ F131 : 67 ld h, a
400/ F132 : 6F ld l, a
401/ F133 : CD 88 F1 call ink9 ;Tastenabfrage
402/ F136 : 30 4B jr nc, ink8 ;Cy=0 keine Taste
403/ F138 : 19 add hl, de
404/ F139 : CD 9E F1 call ink12 ;restl. Spalten
405/ F13C : 0E 44 ld c, 44h ;Tastaturcodetabelle 0044H Shift-Ebene 0 40h,48h,50h
406/ F13E : 38 07 jr c, ink1 ;Cy=1 2.Taste gedr.
407/ F140 : EB ex de, hl
408/ F141 : CB 5A bit 3, d ;Abfrage Zeile 3
409/ F143 : 28 0B jr z, ink2 ;Z=1 Taste gedr.
410/ F145 : 18 14 jr ink3
411/ F147 : CB 5A ink1: bit 3, d ;2. Taste ? Zeile 3
412/ F149 : 28 05 jr z, ink2 ;Z=1 Taste gedr.
413/ F14B : EB ex de, hl
414/ F14C : CB 5A bit 3, d ;1. Taste ? Zeile 3
415/ F14E : 20 0B jr nz, ink3 ;Z=1 Taste gedr.
416/ F150 : CD A5 F1 ink2: call ink13 ;Welche Taste in Z3
417/ F153 : C5 push bc
418/ F154 : CD DC F1 call ink22 ;Summand holen
419/ F157 : C1 pop bc
420/ F158 : 28 06 jr z, ink4 ;Z=0 kein Summ.
421/ F15A : EB ex de, hl
422/ F15B : CD DC F1 ink3: call ink22 ;Summand holen
423/ F15E : 20 23 jr nz, ink8 ;Z=0 kein Summ.
424/ F160 : 83 ink4: add a, e
425/ F161 : 21 27 00 ld hl, KYBTS
426/ F164 : 86 add a, (hl)
427/ F165 : ;Berechnung Ascii-Wert abgeschlossen
428/ F165 : 21 04 00 ink5: ld hl, LAKEY ;Softwareentprel-
429/ F168 : BE cp (hl) ;lung, verhindert
430/ F169 : 28 C5 jr z, inkey ;Repeat-Funktion
431/ F16B : 47 ld b, a
432/ F16C : 7E ld a, (hl)
433/ F16D : B7 or a
434/ F16E : 78 ld a, b
435/ F16F : 20 BF jr nz, inkey ;Z=1 vorher keine
436/ F171 : 32 04 00 ld (LAKEY), a ;Taste gedrueckt
437/ F174 : FE 91 cp 91h ;(S4/A)
438/ F176 : 28 07 jr z, ink6 ;Z=1- ASCII
439/ F178 : FE 17 cp 17h ;(S4/G)
440/ F17A : C0 ret nz ;Z=0 Ruecksprung
441/ F17B : 3E 80 ld a, 80h
442/ F17D : 18 01 jr ink7
443/ F17F : AF ink6: xor a
444/ F180 : 32 27 00 ink7: ld (KYBTS), a
445/ F183 : AF ink8: xor a ;Ruecksprung wenn
446/ F184 : 32 04 00 ld (LAKEY), a ;keine Taste gedr.
447/ F187 : C9 ret ;mit A=0
448/ F188 : ;UP Tastenabfrage
449/ F188 : 5F ink9: ld e, a ;E=Spaltennummer
450/ F189 : D3 08 out (KEYP), a ;Ausgabe Spalte
451/ F18B : 06 20 ld b, 20h
452/ F18D : DB 02 ink10: in a, (PIOBD)
453/ F18F : E6 0F and 0Fh
454/ F191 : 57 ld d, a ;D=Zeilennummer
455/ F192 : DB 02 in a, (PIOBD)
456/ F194 : E6 0F and 0Fh
457/ F196 : BA cp d
458/ F197 : 20 03 jr nz, ink11 ;Z=0 Taste prellt
459/ F199 : FE 0F cp 0Fh
460/ F19B : C0 ret nz ;Z=0 Taste gedr.
461/ F19C : 10 EF ink11: djnz ink10
462/ F19E : 7B ink12: ld a, e ;Erhoeh. Spalten-
463/ F19F : 3C inc a ;zahl
464/ F1A0 : FE 08 cp 8
465/ F1A2 : 20 E4 jr nz, ink9 ;Z=1 alle Tasten
466/ F1A4 : C9 ret ;abgefragt
467/ F1A5 : ;Taste in Z3
468/ F1A5 : 3E 01 ink13: ld a, 1 ;Untersuchung
469/ F1A7 : BB cp e ;welche Taste in
470/ F1A8 : 28 29 jr z, ink19 ;Zeile 3 gedr. ist
471/ F1AA : 30 24 jr nc, ink18 ;E=Spaltenzahl
472/ F1AC : C6 02 add a, 2 ;E=0 - C=41H
473/ F1AE : BB cp e ;E=1 - C=3EH
474/ F1AF : 28 28 jr z, ink21 ;E=2 - C=3BH
475/ F1B1 : 30 23 jr nc, ink20 ;E=3 - C=35H
476/ F1B3 : C6 02 add a, 2 ;E=4 - A=08H
477/ F1B5 : BB cp e ;E=5 - A=20H
478/ F1B6 : 28 0F jr z, ink15 ;E=6 - A=09H
479/ F1B8 : 30 11 jr nc, ink16 ;E=7 - A=0DH
480/ F1BA : C6 02 add a, 2
481/ F1BC : BB cp e
482/ F1BD : 28 04 jr z, ink14
483/ F1BF : 3E 09 ld a, 9 ; ->
484/ F1C1 : 18 0A jr ink17
485/ F1C3 : 3E 0D ink14: ld a, 0Dh ; ENT
486/ F1C5 : 18 06 jr ink17
487/ F1C7 : 3E 20 ink15: ld a, 20h ; SPACE
488/ F1C9 : 18 02 jr ink17
489/ F1CB : 3E 08 ink16: ld a, 8 ; <-
490/ F1CD : C1 ink17: pop bc
491/ F1CE : 18 95 jr ink5
492/ F1D0 : 0E 41 ink18: ld c, 41h ;Tastaturcodetabelle 0041H Shift-Ebene 1 58h,30h,38h
493/ F1D2 : C9 ret
494/ F1D3 : 0E 3E ink19: ld c, 3Eh ;Tastaturcodetabelle 003EH Shift-Ebene 2 78h,20h,28h
495/ F1D5 : C9 ret
496/ F1D6 : 0E 3B ink20: ld c, 3Bh ;Tastaturcodetabelle 003BH Shift-Ebene 3 60h,68h,70h
497/ F1D8 : C9 ret
498/ F1D9 : 0E 35 ink21: ld c, 35h ;Tastaturcodetabelle 0035H Shift-Ebene 4 10h,00h,08h
499/ F1DB : C9 ret
500/ F1DC :
501/ F1DC : ;Summand holen
502/ F1DC : CB 42 ink22: bit 0, d ;Abfrage Zeile 0
503/ F1DE : 20 05 jr nz, ink24 ;Z=0 keine Taste
504/ F1E0 : 69 ink23: ld l, c
505/ F1E1 : 26 00 ld h, 0
506/ F1E3 : 7E ld a, (hl)
507/ F1E4 : C9 ret
508/ F1E5 : 0C ink24: inc c
509/ F1E6 : CB 4A bit 1, d ;Abfrage Zeile 1
510/ F1E8 : 20 02 jr nz, ink25 ;Z=0 keine Taste
511/ F1EA : 18 F4 jr ink23
512/ F1EC : 0C ink25: inc c
513/ F1ED : CB 52 bit 2, d ;Abfrage Zeile 2
514/ F1EF : C0 ret nz ;Z=0 keine Taste
515/ F1F0 : 18 EE jr ink23
516/ F1F2 :
517/ F1F2 : =>FALSE ELSEIF MONTYP == "Z1013_A2"
518/ F1F2 :
519/ F1F2 : ; Tastatur
520/ F1F2 : ; --------
521/ F1F2 : ;
522/ F1F2 : ; -------------------------------------------------
523/ F1F2 : ; I ! I # I % I ' I ) I = I I I
524/ F1F2 : ; RZ0-I I I I I I I I I
525/ F1F2 : ; I 1 I 3 I 5 I 7 I 9 I - I GRA I I
526/ F1F2 : ; I-----+-----+-----+-----+-----+-----+-----+-----I
527/ F1F2 : ; I I I I I I ` I I I
528/ F1F2 : ; RZ1-I I I I I I I I I
529/ F1F2 : ; I Q I E I T I U I O I @ I ENT I I
530/ F1F2 : ; I-----+-----+-----+-----+-----+-----+-----+-----I
531/ F1F2 : ; I I I I I I : I I I
532/ F1F2 : ; RZ2-I I I I I I I Cu I I
533/ F1F2 : ; I A I D I G I J I L I * I leftI I
534/ F1F2 : ; I-----+-----+-----+-----+-----+-----+-----+-----I
535/ F1F2 : ; I I I I I > I ~ I I I
536/ F1F2 : ; RZ3-I I I I I I I Cu I I
537/ F1F2 : ; I Y I C I B I M I I ^ I rghtI I
538/ F1F2 : ; I-----+-----+-----+-----+-----+-----+-----+-----I
539/ F1F2 : ; I " I $ I & I ( I I { I I I
540/ F1F2 : ; RZ4-I I I I I I I I I
541/ F1F2 : ; RZ0 I 2 I 4 I 6 I 8 I 0 I [ I Spc I I
542/ F1F2 : ; I-----+-----+-----+-----+-----+-----+-----+-----I
543/ F1F2 : ; I I I I I I } I I
544/ F1F2 : ; RZ5-I I I I I I I I I
545/ F1F2 : ; RZ1 I W I R I Z I I I P I ] I CTRLI I
546/ F1F2 : ; I-----+-----+-----+-----+-----+-----+-----+-----I
547/ F1F2 : ; I I I I I ; I | I I I
548/ F1F2 : ; RZ6-I I I I I I I Cu I I
549/ F1F2 : ; RZ2 I S I F I H I K I + I \\ I up I ShftI
550/ F1F2 : ; I-----+-----+-----+-----+-----+-----+-----+-----I
551/ F1F2 : ; I I I I < I ? I I I I
552/ F1F2 : ; RZ7-I I I I I I I Cu I ShftI
553/ F1F2 : ; RZ3 I X I V I N I , I / I _ I downI LockI
554/ F1F2 : ; -------------------------------------------------
555/ F1F2 : ; ! ! ! ! ! ! ! !
556/ F1F2 : ; RS0 RS1 RS2 RS3 RS4 RS5 RS6 RS7
557/ F1F2 : ;
558/ F1F2 : ; IN 2 | OUT 8
559/ F1F2 : ;
560/ F1F2 : ; Zeile 4..7 werden auf Zeile 0..3 gemuxt, wenn Pio B4=1
561/ F1F2 :
562/ F1F2 : inkey: ld hl, KYBTS ; Merkzelle
563/ F1F2 : ld a, 01011011b
564/ F1F2 : and (hl)
565/ F1F2 : ld (hl), a
566/ F1F2 : ld ix, keytab ; Tastaturcodetabelle
567/ F1F2 : call ink16 ; normale Taste gedrückt?
568/ F1F2 : jr nc, ink1 ; nein, dann evtl. Fkt.taste?
569/ F1F2 : push de ;
570/ F1F2 : set 7, (hl)
571/ F1F2 : call ink20 ; ASCII-Code aus Tabelle ermitteln
572/ F1F2 : ld (DATA), a ; ASCII-Code
573/ F1F2 : pop de ;
574/ F1F2 : call ink18 ;
575/ F1F2 : ; Funktionstasten (Spalte 6)
576/ F1F2 : ink1: ld ix, tab2 ; Tastaturcodetabelle
577/ F1F2 : ld e, 6 ; Spalte 6
578/ F1F2 : call ink19 ; Spalte abfragen
579/ F1F2 : jr z, ink9 ; wenn keine Taste gedrückt
580/ F1F2 : bit 0, c ; GRA ?
581/ F1F2 : jr z, ink2
582/ F1F2 : bit 5, c ; CTRL ?
583/ F1F2 : jr z, ink5
584/ F1F2 : call ink20 ; ASCII-Code aus Tabelle ermitteln
585/ F1F2 : ret ; A = ASCII-Code
586/ F1F2 : ; GRA
587/ F1F2 : ink2: ld a, 2
588/ F1F2 : res 3, (hl)
589/ F1F2 : ink3: bit 6, (hl)
590/ F1F2 : jr nz, ink4
591/ F1F2 : set 6, (hl) ; Statusbit Grafikmode setzen
592/ F1F2 : xor (hl)
593/ F1F2 : ld (hl), a
594/ F1F2 : ink4: xor a
595/ F1F2 : ret
596/ F1F2 : ; CTRL
597/ F1F2 : ink5: set 5, (hl) ; Statusbit CTRL setzen
598/ F1F2 : bit 7, (hl)
599/ F1F2 : jr z, ink9
600/ F1F2 : ld a, (DATA)
601/ F1F2 : bit 6, a
602/ F1F2 : jr nz, ink6
603/ F1F2 : set 4, a
604/ F1F2 : ink6: and 1Fh
605/ F1F2 : ink7: bit 1, (hl)
606/ F1F2 : ret z
607/ F1F2 : set 7, a ; Bit 7 := 1 (Grafikzeichen)
608/ F1F2 : ret
609/ F1F2 : ; Shift
610/ F1F2 : ink8: res 6, (hl)
611/ F1F2 : bit 7, (hl)
612/ F1F2 : ret z
613/ F1F2 : ld a, (DATA)
614/ F1F2 : jr ink7
615/ F1F2 : ;
616/ F1F2 : ink9: ld e, 7 ; Spalte 7 (Shift)
617/ F1F2 : call ink19 ; Taste gedrückt?
618/ F1F2 : jr z, ink10 ; nein
619/ F1F2 : bit 7, c ; Shift Lock
620/ F1F2 : jr z, ink15
621/ F1F2 : bit 6, c ; Shift
622/ F1F2 : jr nz, ink8
623/ F1F2 : bit 5, (hl)
624/ F1F2 : jr nz, ink15
625/ F1F2 : ink10: bit 7, (hl) ;
626/ F1F2 : ret z ; nein
627/ F1F2 : ; Repeat
628/ F1F2 : ld a, (DATA)
629/ F1F2 : bit 6, c
630/ F1F2 : jr z, ink11
631/ F1F2 : bit 3, (hl)
632/ F1F2 : jr z, ink7
633/ F1F2 : jr ink12
634/ F1F2 : ink11: bit 3, (hl)
635/ F1F2 : jr nz, ink7
636/ F1F2 : ink12: ld b, a
637/ F1F2 : and 30h
638/ F1F2 : ld a, b
639/ F1F2 : jp po, ink13
640/ F1F2 : res 4, a
641/ F1F2 : jr ink14
642/ F1F2 : ink13: set 4, a
643/ F1F2 : ink14: set 5, a
644/ F1F2 : jr ink7
645/ F1F2 : ; Shift Lock
646/ F1F2 : ink15: ld a, 8
647/ F1F2 : jp ink3
648/ F1F2 : ; normale Taste gedrückt?
649/ F1F2 : ; IN: IX: Tastaturcodetabelle
650/ F1F2 : ; OUT: Z-Flag=1: Taste gedrückt
651/ F1F2 : ; E = Spalte
652/ F1F2 : ; Cy=0: keine Taste gedrückt
653/ F1F2 : ; IX: Tastaturcodetabelle aktuelle Zeile
654/ F1F2 : ink16: ld e, 0 ; e = Spalte (0..5)
655/ F1F2 : ink17: call ink19 ; Taste in Spalte gedrückt?
656/ F1F2 : scf
657/ F1F2 : ret nz ; wenn gedrueckt
658/ F1F2 : ink18: inc e ; sonst naechste Spalte
659/ F1F2 : ld bc, 8 ; und Pointer auf Tastaturcode-
660/ F1F2 : add ix, bc ; tabelle erhöhen
661/ F1F2 : ld a, e
662/ F1F2 : cp 6 ; Spalte RS6 erreicht?
663/ F1F2 : jr nz, ink17 ; bis alle 7 Spalten
664/ F1F2 : scf
665/ F1F2 : ccf ; Cy=0
666/ F1F2 : ret
667/ F1F2 : ; Abfrage einer Spalte
668/ F1F2 : ; IN E: Spalte
669/ F1F2 : ; OUT: C: Zeile
670/ F1F2 : ; A = 0
671/ F1F2 : ; Z-Flag=1: Taste gedrückt
672/ F1F2 : ink19: ld a, e ; e = Spalte
673/ F1F2 : out (KEYP), a ; Spalte aktivieren
674/ F1F2 : out (PIOBD), a ; Pio B4 = 0 (Zeile 0..3)
675/ F1F2 : in a, (PIOBD) ; Zeilen 0..3 einlesen
676/ F1F2 : and 0Fh
677/ F1F2 : ld c, a
678/ F1F2 : set 4, a ; PIO B4 = 1 (Zeile 4..7)
679/ F1F2 : out (PIOBD), a
680/ F1F2 : in a, (PIOBD) ; Zeilen 4..7 einlesen
681/ F1F2 : sla a ; in obere 4 Bits verschieben
682/ F1F2 : sla a
683/ F1F2 : sla a
684/ F1F2 : sla a
685/ F1F2 : ld d, a ; d = Zeile 4..7
686/ F1F2 : add a, c
687/ F1F2 : ld c, a ; c = Zeile 0..7
688/ F1F2 : ; Entprellen ...
689/ F1F2 : xor a ; a = 0
690/ F1F2 : out (PIOBD), a ; Pio B4 = 0 (Zeile 0..3)
691/ F1F2 : in a, (PIOBD) ; Zeilen 0..3 einlesen
692/ F1F2 : and 0Fh
693/ F1F2 : add a, d
694/ F1F2 : cp c ; noch gleicher Wert?
695/ F1F2 : jr nz, ink19 ; nein
696/ F1F2 : cpl
697/ F1F2 : or a
698/ F1F2 : ld a, 0
699/ F1F2 : ret
700/ F1F2 : ; ASCII-Code aus Tabelle ermitteln
701/ F1F2 : ; IN: C = Zeile = Bit 0..7
702/ F1F2 : ; IX = Tastaturcodetabelle
703/ F1F2 : ink20: ld de, 0
704/ F1F2 : ld b, 8 ; max 8 Zeilen
705/ F1F2 : ink21: sra c ; nächste Zeile
706/ F1F2 : jr nc, ink22
707/ F1F2 : inc e
708/ F1F2 : djnz ink21
709/ F1F2 : ink22: add ix, de
710/ F1F2 : ld a, (ix+0) ; A = ASCII-Code
711/ F1F2 : res 6, (hl) ;
712/ F1F2 : ret
713/ F1F2 :
714/ F1F2 : [369] ENDIF
715/ F1F2 : ;
716/ F1F2 : ;-------------------------------------------------------------------------------
717/ F1F2 : ;Monitorinit., wird nach 0033H (LSYNC) umgeladen
718/ F1F2 : ;-------------------------------------------------------------------------------
719/ F1F2 : ;
720/ F1F2 : MONTB:
721/ 33 : phase 0033H
722/ 33 :
723/ 33 : =>TRUE IF MONTYP == "Z1013_202"
724/ 33 :
725/ 33 : D0 07 DW 2000 ;Kenntonlaenge LSYNC
726/ 35 : 10 00 08 DB 10h,00h,08h ;Tastaturcodetabelle 0035H Shift-Ebene 4
727/ 38 : C3 58 F0 JP KDO1 ;RST38-Sprung RST38
728/ 3B : 60 68 70 db 60h,68h,70h ;Tastaturcodetabelle 003BH Shift-Ebene 3
729/ 3E : 78 20 28 db 78h,20h,28h ;Tastaturcodetabelle 003EH Shift-Ebene 2
730/ 41 : 58 30 38 db 58h,30h,38h ;Tastaturcodetabelle 0041H Shift-Ebene 1
731/ 44 : 40 48 50 db 40h,48h,50h ;Tastaturcodetabelle 0044H Shift-Ebene 0
732/ 47 : E0 03 DW 03E0H ;WINDOW-Laenge WINDL
733/ 49 : 00 EC DW BWS ;WINDOW-Anfang WINDA
734/ 4B : 00 F0 DW BWS+BWSSZ ;WINDOW-Ende WINDE
735/ 4D :
736/ 4D : =>FALSE ELSEIF MONTYP == "Z1013_A2"
737/ 4D :
738/ 4D : dw 2000 ;Kenntonlaenge LSYNC
739/ 4D : DW BWSSZ-BWSCOL ;WINDOW-Laenge WINDL
740/ 4D : db 0 ;Status-Merkzelle f. INKEY KYBTS
741/ 4D : jp KDO1 ;RST38-Sprung RST38
742/ 4D : DW BWS ;WINDOW-Anfang WINDA
743/ 4D : DW BWS+BWSSZ ;WINDOW-Ende WINDE
744/ 4D :
745/ 4D : [723] ENDIF
746/ 4D :
747/ F20C : dephase
748/ F20C : ;
749/ F20C : ;-------------------------------------------------------------------------------
750/ F20C : ;Zeichen von Tastatur holen, warten bis Taste gedrueckt
751/ F20C : ;-------------------------------------------------------------------------------
752/ F20C : ;
753/ F20C : =>TRUE IF MONTYP == "Z1013_202"
754/ F20C :
755/ F20C : C5 INCH: push bc
756/ F20D : D5 push de
757/ F20E : E5 push hl
758/ F20F : CD 30 F1 INC1: CALL INKEY
759/ F212 : B7 OR A
760/ F213 : 28 FA JR Z, INC1 ;keine Taste gedrueckt
761/ F215 : E1 pop hl
762/ F216 : D1 pop de
763/ F217 : C1 pop bc
764/ F218 : C9 RET
765/ F219 :
766/ F219 : =>FALSE ELSEIF MONTYP == "Z1013_A2"
767/ F219 :
768/ F219 : INCH: push ix
769/ F219 : push bc
770/ F219 : push de
771/ F219 : push hl
772/ F219 : ld bc, 1000h ; B := 16; C := 0 (256)
773/ F219 : INC1: PUSH BC
774/ F219 : CALL INKEY ; ret: hl=KYBTS
775/ F219 : POP BC
776/ F219 : LD IX, LAKEY
777/ F219 : CP (IX+0)
778/ F219 : JR NZ, INC6 ; wenn anderes Zeichen
779/ F219 : OR A ; A = 0?
780/ F219 : JR Z, INC5 ; wenn keine Taste gedückt
781/ F219 : INC2: DEC C
782/ F219 : JR NZ, INC2 ; kurz warten
783/ F219 : BIT 4, (HL) ; Repeat?
784/ F219 : JR NZ, INC4 ; ja -> gleich weiter
785/ F219 : LD DE, 800H ; sonst längeres Warten
786/ F219 : INC3: DEC DE
787/ F219 : LD A, E
788/ F219 : OR D
789/ F219 : JR NZ, INC3
790/ F219 : INC4: DJNZ INC1 ; 16x
791/ F219 : SET 4, (HL) ; Repeat ein
792/ F219 : XOR A ; A := 0, kein Zeichen
793/ F219 : JR INC6
794/ F219 : INC5: RES 4, (HL) ; kein Repeat mehr
795/ F219 : INC6: LD (IX+0), A ; LAKEY füllen
796/ F219 : OR A ; A = 0?
797/ F219 : JR Z, INC1 ; nochmal, bis Taste gedrückt
798/ F219 : POP HL
799/ F219 : POP DE
800/ F219 : POP BC
801/ F219 : POP IX
802/ F219 : RET
803/ F219 :
804/ F219 : [753] ENDIF
805/ F219 : ;
806/ F219 : ;-------------------------------------------------------------------------------
807/ F219 : ;Ausgabe Zeichen auf Bildschirm
808/ F219 : ;-------------------------------------------------------------------------------
809/ F219 : ;
810/ F219 : ; Zeichenausgabe f. PRST7: Reset Bit 7
811/ F219 : E6 7F OUT0: AND A, 7FH
812/ F21B : ; Zeichenausgabe
813/ F21B : F5 OUTCH: push af
814/ F21C : C5 push bc
815/ F21D : D5 push de
816/ F21E : E5 PUSH HL
817/ F21F : 2A 2B 00 LD HL,(CUPOS)
818/ F222 : F5 PUSH AF
819/ F223 : 3A 1F 00 LD A,(BUFFA) ;Zeichen unter Cursor
820/ F226 : 77 LD (HL),A ;zurueckschreiben
821/ F227 : F1 POP AF
822/ F228 : FE 0D CP A, CR ;neue Zeile?
823/ F22A : 28 53 JR Z, OUT8
824/ F22C : FE 0C CP A, CLS ;Bildschirm loeschen?
825/ F22E : 28 5E JR Z, OUT10
826/ F230 : FE 08 CP A, 8 ;Cursor links?
827/ F232 : 28 48 JR Z, OUT7
828/ F234 : FE 09 CP A, 9 ;Cursor rechts?
829/ F236 : 28 01 JR Z, OUT2
830/ F238 : 77 LD (HL),A ;sonst Zeichen in BWS
831/ F239 : 23 OUT2: INC HL
832/ F23A : ;
833/ F23A : EB OUT3: EX DE,HL
834/ F23B : 2A 4B 00 LD HL,(WINDE)
835/ F23E : AF XOR A ;Test, ob neue Cursor-
836/ F23F : ED 52 SBC HL,DE ;position schon
837/ F241 : EB EX DE,HL ;ausserhalb Window
838/ F242 : 20 2A JR NZ, OUT6 ;nein
839/ F244 : ;
840/ F244 : ED 5B 49 00 LD DE,(WINDA) ;scrollen um
841/ F248 : 21 20 00 LD HL,BWSCOL ;eine Zeile im Window
842/ F24B : 19 ADD HL,DE
843/ F24C : ED 4B 47 00 LD BC,(WINDL) ;Windowlaenge
844/ F250 : 78 LD A,B
845/ F251 : B1 OR C ;=0?
846/ F252 : 28 02 JR Z, OUT5 ;ja --> kein Scrollen
847/ F254 : ED B0 LDIR
848/ F256 : D5 OUT5: PUSH DE ;letzte Zeile loeschen
849/ F257 : E1 POP HL
850/ F258 : E5 PUSH HL
851/ F259 : 13 INC DE
852/ F25A : 36 20 LD (HL),' '
853/ F25C : 01 1F 00 LD BC,BWSCOL-1
854/ F25F : ED B0 LDIR
855/ F261 : ;
856/ F261 : 2A 16 00 LD HL,(SOIL) ;SOIL um eine Zeile
857/ F264 : 11 20 00 LD DE,BWSCOL ;erhoehen
858/ F267 : AF XOR A
859/ F268 : ED 52 SBC HL,DE
860/ F26A : 22 16 00 LD (SOIL),HL
861/ F26D : E1 POP HL
862/ F26E : ;
863/ F26E : 7E OUT6: LD A,(HL) ;Zeichen unter Cursor
864/ F26F : 32 1F 00 LD (BUFFA),A ;sichern
865/ F272 : 36 FF LD (HL),0FFH ;Cursor setzen
866/ F274 : 22 2B 00 LD (CUPOS),HL
867/ F277 : E1 POP HL
868/ F278 : D1 POP DE
869/ F279 : C1 POP BC
870/ F27A : F1 POP AF
871/ F27B : C9 RET
872/ F27C : ;Cursor links
873/ F27C : 2B OUT7: DEC HL
874/ F27D : 18 BB JR OUT3
875/ F27F : ;neue Zeile
876/ F27F : 3E E0 OUT8: LD A, 0E0H ;auf Zeilenanfang stellen
877/ F281 : A5 AND A, L ;A=Anfang akt. Zeile
878/ F282 : C6 20 ADD A, BWSCOL ;A=NWB der Position
879/ F284 : 4F LD C,A ;eine Zeile tiefer
880/ F285 : 36 20 OUT9: LD (HL),' ' ;Rest der Zeile ab
881/ F287 : 23 INC HL ;ENTER loeschen
882/ F288 : 7D LD A,L
883/ F289 : B9 CP A, C
884/ F28A : 20 F9 JR NZ, OUT9
885/ F28C : 18 AC JR OUT3
886/ F28E : ;
887/ F28E : ;Window loeschen
888/ F28E : 2A 47 00 OUT10: LD HL,(WINDL)
889/ F291 : 01 1F 00 LD BC,BWSCOL-1
890/ F294 : 09 ADD HL,BC
891/ F295 : E5 PUSH HL
892/ F296 : C1 POP BC
893/ F297 : 2A 49 00 LD HL,(WINDA)
894/ F29A : E5 PUSH HL
895/ F29B : 36 20 LD (HL),' '
896/ F29D : E5 PUSH HL
897/ F29E : D1 POP DE
898/ F29F : 13 INC DE
899/ F2A0 : ED B0 LDIR
900/ F2A2 : E1 POP HL
901/ F2A3 : 18 C9 JR OUT6
902/ F2A5 : ;
903/ F2A5 : ;-------------------------------------------------------------------------------
904/ F2A5 : ;Ausgabe String, bis Bit7=1
905/ F2A5 : ;-------------------------------------------------------------------------------
906/ F2A5 : ;
907/ F2A5 : E3 PRST7: EX (SP),HL ;Adresse hinter CALL
908/ F2A6 : 7E PRS1: LD A,(HL)
909/ F2A7 : 23 INC HL
910/ F2A8 : F5 PUSH AF
911/ F2A9 : CD 19 F2 CALL OUT0
912/ F2AC : F1 POP AF
913/ F2AD : CB 7F BIT 7,A ;Bit7 gesetzt?
914/ F2AF : 28 F5 JR Z, PRS1 ;nein
915/ F2B1 : E3 EX (SP),HL ;neue Returnadresse
916/ F2B2 : C9 RET
917/ F2B3 : ;
918/ F2B3 : ;-------------------------------------------------------------------------------
919/ F2B3 : ;Eingabe einer Zeile mit Promptsymbol
920/ F2B3 : ;-------------------------------------------------------------------------------
921/ F2B3 : ;
922/ F2B3 : CD A5 F2 INLIN: CALL PRST7
923/ F2B6 : 20 23 DB " #"
924/ F2B8 : A0 DB ' '+80H
925/ F2B9 : ;
926/ F2B9 : ;-------------------------------------------------------------------------------
927/ F2B9 : ;Eingabe einer Zeichenkette
928/ F2B9 : ;-------------------------------------------------------------------------------
929/ F2B9 : ;
930/ F2B9 : E5 INSTR: PUSH HL
931/ F2BA : 2A 2B 00 LD HL,(CUPOS)
932/ F2BD : 22 16 00 LD (SOIL),HL ;SOIL=1.Position
933/ F2C0 : (MACRO) INS1: RINCH ;Zeichen von Tastatur
933/ F2C0 : E7 RST 20H
933/ F2C1 : 01 DB 01h ; INCH
934/ F2C2 : (MACRO) ROUTC ;anzeigen
934/ F2C2 : E7 RST 20H
934/ F2C3 : 00 DB 0 ; OUTCH
935/ F2C4 : FE 0D CP A, CR ;>ENTER<?
936/ F2C6 : 20 F8 JR NZ, INS1 ;nein --> weiter eingeben
937/ F2C8 : E1 POP HL
938/ F2C9 : C9 RET
939/ F2CA : ;
940/ F2CA : ;-------------------------------------------------------------------------------
941/ F2CA : ;fuehrende Leerzeichen ueberlesen
942/ F2CA : ;-------------------------------------------------------------------------------
943/ F2CA : ;
944/ F2CA : 1A SPACE: LD A,(DE)
945/ F2CB : FE 20 CP A, ' '
946/ F2CD : C0 RET NZ
947/ F2CE : 13 INC DE
948/ F2CF : 18 F9 JR SPACE
949/ F2D1 : ;
950/ F2D1 : ;-------------------------------------------------------------------------------
951/ F2D1 : ;letzen vier Zeichen als Hexzahl konvertieren
952/ F2D1 : ;und in DATA ablegen
953/ F2D1 : ;-------------------------------------------------------------------------------
954/ F2D1 : ;
955/ F2D1 : CD CA F2 KONVX: CALL SPACE
956/ F2D4 : AF XOR A
957/ F2D5 : 21 13 00 LD HL,DATA
958/ F2D8 : 77 LD (HL),A ;DATA=0
959/ F2D9 : 23 INC HL
960/ F2DA : 77 LD (HL),A
961/ F2DB : 1A KON1: LD A,(DE)
962/ F2DC : 2B DEC HL
963/ F2DD : D6 30 SUB 30H ;Zeichen<"0"?
964/ F2DF : F8 RET M
965/ F2E0 : FE 0A CP A, 0AH ;Zeichen<="9"?
966/ F2E2 : 38 08 JR C, KON2
967/ F2E4 : D6 07 SUB 7
968/ F2E6 : FE 0A CP A, 0AH ;Zeichen<"A"?
969/ F2E8 : F8 RET M
970/ F2E9 : FE 10 CP A, 10H ;Zeichen>"F"?
971/ F2EB : F0 RET P
972/ F2EC : 13 KON2: INC DE ;Hexziffer eintragen
973/ F2ED : ED 6F RLD
974/ F2EF : 23 INC HL
975/ F2F0 : ED 6F RLD
976/ F2F2 : 18 E7 JR KON1 ;naechste Ziffer
977/ F2F4 : ;
978/ F2F4 : ;-------------------------------------------------------------------------------
979/ F2F4 : ;Konvertierung ASCII-Hex ab (DE) --> (HL)
980/ F2F4 : ;-------------------------------------------------------------------------------
981/ F2F4 : ;
982/ F2F4 : C5 INHEX: PUSH BC
983/ F2F5 : CD D1 F2 CALL KONVX ;Konvertierung
984/ F2F8 : 44 LD B,H ;BC=HL=DATA+1
985/ F2F9 : 4D LD C,L
986/ F2FA : 6E LD L,(HL) ;unteres Byte
987/ F2FB : 03 INC BC
988/ F2FC : 0A LD A,(BC)
989/ F2FD : 67 LD H,A ;oberes Byte
990/ F2FE : B5 OR L ;Z-Flag setzen
991/ F2FF : C1 POP BC
992/ F300 : C9 RET
993/ F301 : ;
994/ F301 : ;-------------------------------------------------------------------------------
995/ F301 : ;Ausgabe (A) hexadezimal
996/ F301 : ;-------------------------------------------------------------------------------
997/ F301 : ;
998/ F301 : F5 OUTHX: PUSH AF
999/ F302 : 1F RRA
1000/ F303 : 1F RRA
1001/ F304 : 1F RRA
1002/ F305 : 1F RRA
1003/ F306 : CD 0A F3 CALL OUX1 ;obere Tetrade ausgeben
1004/ F309 : F1 POP AF ;und die untere
1005/ F30A : F5 OUX1: PUSH AF
1006/ F30B : E6 0F AND A, 0FH
1007/ F30D : C6 30 ADD A, 30H ;Konvertierung --> ASCII
1008/ F30F : FE 3A CP A, ':' ;Ziffer "A" ... "F"?
1009/ F311 : 38 02 JR C, OUX2 ;nein
1010/ F313 : C6 07 ADD A, 7 ;sonst Korrektur
1011/ F315 : CD 1B F2 OUX2: CALL OUTCH ;und Ausgabe
1012/ F318 : F1 POP AF
1013/ F319 : C9 RET
1014/ F31A : ;
1015/ F31A : ;-------------------------------------------------------------------------------
1016/ F31A : ;Ausgabe HL hexadezimal
1017/ F31A : ;-------------------------------------------------------------------------------
1018/ F31A : ;
1019/ F31A : F5 OUTHL: PUSH AF
1020/ F31B : 7C LD A,H
1021/ F31C : CD 01 F3 CALL OUTHX
1022/ F31F : 7D LD A,L
1023/ F320 : CD 01 F3 CALL OUTHX
1024/ F323 : F1 POP AF
1025/ F324 : C9 RET
1026/ F325 : ;
1027/ F325 : ;-------------------------------------------------------------------------------
1028/ F325 : ;Speicherinhalt modifizieren
1029/ F325 : ;-------------------------------------------------------------------------------
1030/ F325 : ;
1031/ F325 : 2A 1B 00 MEM: LD HL,(ARG1)
1032/ F328 : (MACRO) MEM1: ROTHL ;Ausgabe Adresse
1032/ F328 : E7 RST 20H
1032/ F329 : 07 DB 07h ; OUTHL
1033/ F32A : E5 PUSH HL
1034/ F32B : (MACRO) ROTSP ;Leerzeichen
1034/ F32B : E7 RST 20H
1034/ F32C : 0E DB 0Eh ; OUTSP
1035/ F32D : 7E LD A,(HL)
1036/ F32E : (MACRO) ROTHX ;Ausgabe Byte
1036/ F32E : E7 RST 20H
1036/ F32F : 06 DB 06h ; OUTHX
1037/ F330 : CD B3 F2 CALL INLIN
1038/ F333 : ED 5B 16 00 LD DE,(SOIL)
1039/ F337 : 1A LD A,(DE)
1040/ F338 : 08 EX AF, AF'
1041/ F339 : E1 POP HL
1042/ F33A : 2B DEC HL
1043/ F33B : 23 MEM2: INC HL
1044/ F33C : E5 PUSH HL
1045/ F33D : CD F4 F2 CALL INHEX
1046/ F340 : 28 0D JR Z, MEM4 ;Trennzeichen
1047/ F342 : 7D MEM3: LD A,L
1048/ F343 : E1 POP HL
1049/ F344 : 77 LD (HL),A
1050/ F345 : BE CP A, (HL) ;RAM-Test
1051/ F346 : 28 F3 JR Z, MEM2 ;i.O.
1052/ F348 : (MACRO) RPRST
1052/ F348 : E7 RST 20H
1052/ F349 : 02 DB 02h ; PRST
1053/ F34A : 45 52 DB "ER"
1054/ F34C : A0 DB ' '+80H
1055/ F34D : 18 D9 JR MEM1
1056/ F34F : ;
1057/ F34F : 1A MEM4: LD A,(DE) ;Test Datenbyte=0
1058/ F350 : FE 20 CP A, ' ' ;wenn ja --> Z=1
1059/ F352 : 28 EE JR Z, MEM3
1060/ F354 : E1 POP HL
1061/ F355 : 23 INC HL
1062/ F356 : 22 1D 00 LD (ARG2),HL ;1. nichtbearb. Adr.
1063/ F359 : FE 3B CP A, ';'
1064/ F35B : C8 RET Z ;Return, wenn ";" gegeben
1065/ F35C : 08 EX AF, AF'
1066/ F35D : FE 20 CP A, ' '
1067/ F35F : 28 C7 JR Z, MEM1 ;Z=1 keine Eingabe
1068/ F361 : 2B DEC HL
1069/ F362 : FE 52 CP A, 'R' ;"R" gegeben?
1070/ F364 : 20 C2 JR NZ, MEM1 ;nein
1071/ F366 : 2B DEC HL ;sonst eine Adresse
1072/ F367 : 18 BF JR MEM1 ;zurueck
1073/ F369 : ;
1074/ F369 : ;-------------------------------------------------------------------------------
1075/ F369 : ;Speichern auf Kassette
1076/ F369 : ;-------------------------------------------------------------------------------
1077/ F369 : ;
1078/ F369 : 2A 1B 00 CSAVE: LD HL,(ARG1)
1079/ F36C : CD 7D F3 CALL SAV2 ;Ausgabe 20H Bytes
1080/ F36F : EB SAV1: EX DE,HL
1081/ F370 : 2A 1D 00 LD HL,(ARG2)
1082/ F373 : A7 AND A, A
1083/ F374 : ED 52 SBC HL,DE
1084/ F376 : EB EX DE,HL
1085/ F377 : D8 RET C ;wenn File zu Ende
1086/ F378 : CD 83 F3 CALL SAV3 ;Ausgabe 20H Byte
1087/ F37B : 18 F2 JR SAV1
1088/ F37D : ;
1089/ F37D : ED 5B 33 00 SAV2: LD DE,(LSYNC) ;langer Vorton
1090/ F381 : 18 03 JR SAV4
1091/ F383 : ;Ausgabe ein Block = 20H Bytes
1092/ F383 : 11 0E 00 SAV3: LD DE,14 ;kurzer Vorton
1093/ F386 : ;Vorton: DE Halbschwingungen a 640 Hz
1094/ F386 : 06 70 SAV4: LD B,70H ;Ausg. Vorton
1095/ F388 : 10 FE SAV5: DJNZ SAV5
1096/ F38A : CD F1 F3 CALL SAV21 ;Flanke wechseln
1097/ F38D : 1B DEC DE
1098/ F38E : 7B LD A,E
1099/ F38F : B2 OR D
1100/ F390 : 20 F4 JR NZ,SAV4
1101/ F392 : ;Trennschwingung: 1 Vollschwingung a 1280 Hz
1102/ F392 : 0E 02 LD C,02H ;Ausgabe Synchron-
1103/ F394 : 06 35 SAV6: LD B,35H ;impulse
1104/ F396 : 10 FE SAV7: DJNZ SAV7
1105/ F398 : CD F1 F3 CALL SAV21 ;Flanke wechseln
1106/ F39B : 0D DEC C
1107/ F39C : 11 00 00 LD DE,0
1108/ F39F : 20 F3 JR NZ,SAV6
1109/ F3A1 : ;
1110/ F3A1 : D5 PUSH DE ;DE=IX=0000
1111/ F3A2 : DD E1 POP IX
1112/ F3A4 : ;Kopfinhalt ausgeben
1113/ F3A4 : 06 12 LD B,12H ;kurze Pause
1114/ F3A6 : 10 FE SAV8: DJNZ SAV8
1115/ F3A8 : CD D0 F3 CALL SAV14 ;Ausgabe DE
1116/ F3AB : 06 0F LD B,0FH ;kurze Pause
1117/ F3AD : 10 FE SAV9: DJNZ SAV9
1118/ F3AF : ;20H Bytes ausgeben
1119/ F3AF : 0E 10 LD C,10H ;10H*2 Bytes
1120/ F3B1 : 5E SAV10: LD E,(HL)
1121/ F3B2 : 23 INC HL
1122/ F3B3 : 56 LD D,(HL)
1123/ F3B4 : DD 19 ADD IX,DE ;Pruefsumme bilden
1124/ F3B6 : 23 INC HL
1125/ F3B7 : C5 PUSH BC
1126/ F3B8 : CD D0 F3 CALL SAV14 ;Ausgabe DE
1127/ F3BB : C1 POP BC
1128/ F3BC : 0D DEC C
1129/ F3BD : 28 06 JR Z, SAV12 ;Block fertig geschrieben
1130/ F3BF : 06 0E LD B,0EH ;kurze Pause
1131/ F3C1 : 10 FE SAV11: DJNZ SAV11
1132/ F3C3 : 18 EC JR SAV10
1133/ F3C5 : ;Pruefsumme ausgeben
1134/ F3C5 : DD E5 SAV12: PUSH IX
1135/ F3C7 : D1 POP DE ;DE = Pruefsumme
1136/ F3C8 : 06 10 LD B,10H ;kurze Pause
1137/ F3CA : 10 FE SAV13: DJNZ SAV13
1138/ F3CC : CD D0 F3 CALL SAV14 ;DE ausgeben
1139/ F3CF : C9 RET
1140/ F3D0 : ;Ausgabe 16 Bit DE
1141/ F3D0 : 0E 10 SAV14: LD C,16 ;16 Bit
1142/ F3D2 : CB 3A SAV15: SRL D ;Hi-Bit in Cy schieben
1143/ F3D4 : CB 1B RR E
1144/ F3D6 : 30 07 JR NC, SAV17 ;Cy=1, wenn Bit=1
1145/ F3D8 : ;1-Bit 1 Halbschwingung mit 1280 Hz
1146/ F3D8 : 06 03 LD B,3
1147/ F3DA : 10 FE SAV16: DJNZ SAV16
1148/ F3DC : 00 NOP
1149/ F3DD : 18 03 JR SAV18
1150/ F3DF : ;0-Bit 1 Vollschwingung mit 2560 Hz
1151/ F3DF : CD F1 F3 SAV17: CALL SAV21 ;Flanke ausgeben
1152/ F3E2 : 06 19 SAV18: LD B,19H
1153/ F3E4 : 10 FE SAV19: DJNZ SAV19
1154/ F3E6 : CD F1 F3 CALL SAV21 ;Flanke ausgeben
1155/ F3E9 : 0D DEC C
1156/ F3EA : C8 RET Z ;wenn fertig
1157/ F3EB : 06 15 LD B,15H
1158/ F3ED : 10 FE SAV20: DJNZ SAV20
1159/ F3EF : 18 E1 JR SAV15
1160/ F3F1 : ;Flanke ausgeben
1161/ F3F1 : DB 02 SAV21: IN A, PIOBD ;Flanke ausgeben
1162/ F3F3 : EE 80 XOR 80H ;durch Bit-Negierung Bit7
1163/ F3F5 : D3 02 OUT PIOBD, A
1164/ F3F7 : C9 RET
1165/ F3F8 : ;
1166/ F3F8 : ;-------------------------------------------------------------------------------
1167/ F3F8 : ;Laden von Kassette
1168/ F3F8 : ;-------------------------------------------------------------------------------
1169/ F3F8 : ;
1170/ F3F8 : 2A 1B 00 CLOAD: LD HL,(ARG1)
1171/ F3FB : CD 17 F4 LOA1: CALL LOA3 ;laden 20H Bytes
1172/ F3FE : 28 0C JR Z, LOA2 ;wenn kein Ladefehler
1173/ F400 : CD A5 F2 CALL PRST7 ;sonst Fehler
1174/ F403 : 43 53 DB "CS"
1175/ F405 : BC DB '<'+80h
1176/ F406 : CD 1A F3 CALL OUTHL ;Adresse ausgeben
1177/ F409 : CD CF F5 CALL OUTSP
1178/ F40C : EB LOA2: EX DE,HL
1179/ F40D : 2A 1D 00 LD HL,(ARG2)
1180/ F410 : A7 AND A, A
1181/ F411 : ED 52 SBC HL,DE ;Endadresse erreicht?
1182/ F413 : EB EX DE,HL
1183/ F414 : D8 RET C ;ja --> fertig
1184/ F415 : 18 E4 JR LOA1 ;sonst weiterlesen
1185/ F417 : ;20H Bytes laden nach (HL)
1186/ F417 : CD BC F4 LOA3: CALL LOA24 ;synchronisieren
1187/ F41A : CD C6 F4 CALL LOA25 ;Flanke abwarten
1188/ F41D : 0E 07 LD C,7
1189/ F41F : 11 10 09 LOA5: LD DE,0910H ;D=9, E=10h
1190/ F422 : 3E 07 LD A,7
1191/ F424 : 3D LOA6: DEC A
1192/ F425 : 20 FD JR NZ, LOA6
1193/ F427 : CD BC F4 CALL LOA24 ;synchronisieren
1194/ F42A : CD BC F4 LOA7: CALL LOA24 ;Flanke ?
1195/ F42D : 20 E8 JR NZ, LOA3 ;wenn nicht Vorton
1196/ F42F : 15 DEC D
1197/ F430 : 20 F8 JR NZ, LOA7
1198/ F432 : 0D DEC C
1199/ F433 : 28 0C JR Z, LOA9
1200/ F435 : DB 02 LOA8: IN A, 2
1201/ F437 : A8 XOR B
1202/ F438 : CB 77 BIT 6,A
1203/ F43A : 20 E3 JR NZ, LOA5
1204/ F43C : 1D DEC E
1205/ F43D : 20 F6 JR NZ, LOA8
1206/ F43F : 18 D6 JR LOA3
1207/ F441 : ;Synchronisierimpulse lesen
1208/ F441 : CD C6 F4 LOA9: CALL LOA25 ;Flanke abwarten
1209/ F444 : 3E 44 LD A,44H
1210/ F446 : 3D LOA10: DEC A
1211/ F447 : 20 FD JR NZ, LOA10
1212/ F449 : CD BC F4 CALL LOA24 ;Flanke ?
1213/ F44C : 20 F3 JR NZ, LOA9 ;wenn nicht
1214/ F44E : CD C6 F4 CALL LOA25 ;Flanke abwarten
1215/ F451 : 3E 1E LD A,1EH
1216/ F453 : 3D LOA11: DEC A
1217/ F454 : 20 FD JR NZ, LOA11
1218/ F456 : ;2 Bytes Kopf lesen
1219/ F456 : CD 9D F4 CALL LOA19 ;lesen DE
1220/ F459 : ;20H Byte Daten lesen
1221/ F459 : 0E 10 LD C,10H ;10H x 2 Bytes
1222/ F45B : D5 PUSH DE
1223/ F45C : DD E1 POP IX ;IX-Pruefsummenzaehler=
1224/ F45E : 3E 1A LD A,1AH
1225/ F460 : 3D LOA12: DEC A
1226/ F461 : 20 FD JR NZ, LOA12
1227/ F463 : CD 9D F4 LOA13: CALL LOA19 ;laden DE
1228/ F466 : DD 19 ADD IX,DE ;Pruefsumme bilden
1229/ F468 : C5 PUSH BC
1230/ F469 : 4D LD C,L
1231/ F46A : 44 LD B,H
1232/ F46B : 2A 1D 00 LD HL,(ARG2)
1233/ F46E : AF XOR A
1234/ F46F : ED 42 SBC HL,BC ;Endadresse erreicht?
1235/ F471 : 69 LD L,C
1236/ F472 : 60 LD H,B
1237/ F473 : C1 POP BC
1238/ F474 : 38 05 JR C, LOA14 ;ja --> Leseende
1239/ F476 : 73 LD (HL),E
1240/ F477 : 23 INC HL
1241/ F478 : 72 LD (HL),D
1242/ F479 : 18 06 JR LOA16
1243/ F47B : 3E 01 LOA14: LD A,1
1244/ F47D : 3D LOA15: DEC A
1245/ F47E : 20 FD JR NZ, LOA15
1246/ F480 : 23 INC HL
1247/ F481 : 23 LOA16: INC HL
1248/ F482 : 0D DEC C
1249/ F483 : 28 07 JR Z, LOA18 ;wenn Blockende
1250/ F485 : 3E 12 LD A,12H
1251/ F487 : 3D LOA17: DEC A
1252/ F488 : 20 FD JR NZ, LOA17
1253/ F48A : 18 D7 JR LOA13 ;naechte 2 Byte
1254/ F48C : 3E 12 LOA18: LD A,12H
1255/ F48E : 3D LOA27: DEC A
1256/ F48F : 20 FD JR NZ, LOA27
1257/ F491 : ;Pruefsumme lesen
1258/ F491 : CD 9D F4 CALL LOA19 ;laden DE
1259/ F494 : EB EX DE,HL
1260/ F495 : DD E5 PUSH IX
1261/ F497 : C1 POP BC
1262/ F498 : AF XOR A
1263/ F499 : ED 42 SBC HL,BC ;Prüfsumme gleich?
1264/ F49B : EB EX DE,HL ;Z=0 Ladefehler
1265/ F49C : C9 RET
1266/ F49D : ;Laden 2 Byte nach DE
1267/ F49D : E5 LOA19: PUSH HL
1268/ F49E : 2E 10 LD L,10H ;16 Datenbits
1269/ F4A0 : CD BC F4 LOA20: CALL LOA24 ;Flanke ?
1270/ F4A3 : 20 03 JR NZ, LOA21
1271/ F4A5 : AF XOR A ;Cy=0
1272/ F4A6 : 18 01 JR LOA22
1273/ F4A8 : 37 LOA21: SCF
1274/ F4A9 : CB 1A LOA22: RR D
1275/ F4AB : CB 1B RR E
1276/ F4AD : CD C6 F4 CALL LOA25 ;Flanke abwarten
1277/ F4B0 : 2D DEC L
1278/ F4B1 : 28 07 JR Z, LOA23 ;wenn fertig
1279/ F4B3 : 3E 1E LD A,1EH
1280/ F4B5 : 3D LOA26: DEC A
1281/ F4B6 : 20 FD JR NZ, LOA26
1282/ F4B8 : 18 E6 JR LOA20
1283/ F4BA : E1 LOA23: POP HL
1284/ F4BB : C9 RET
1285/ F4BC : ;Portabfrage
1286/ F4BC : DB 02 LOA24: IN A, PIOBD
1287/ F4BE : A8 XOR B
1288/ F4BF : CB 77 BIT 6,A ;Bit6->TB in
1289/ F4C1 : F5 PUSH AF
1290/ F4C2 : A8 XOR B
1291/ F4C3 : 47 LD B,A
1292/ F4C4 : F1 POP AF ;Z=0 --> Flanke
1293/ F4C5 : C9 RET
1294/ F4C6 : ;Warten auf Flankenwechsel
1295/ F4C6 : DB 02 LOA25: IN A, PIOBD
1296/ F4C8 : A8 XOR B
1297/ F4C9 : CB 77 BIT 6,A ;Bit6->TB in
1298/ F4CB : 28 F9 JR Z, LOA25
1299/ F4CD : C9 RET
1300/ F4CE : ;
1301/ F4CE : ;-------------------------------------------------------------------------------
1302/ F4CE : ;Speicherinhalt mit Checksumme anzeigen
1303/ F4CE : ;-------------------------------------------------------------------------------
1304/ F4CE : ;
1305/ F4CE : 2A 1B 00 D_KDO: LD HL,(ARG1)
1306/ F4D1 : ED 5B 1D 00 DKO1: LD DE,(ARG2)
1307/ F4D5 : 37 SCF
1308/ F4D6 : E5 PUSH HL
1309/ F4D7 : ED 52 SBC HL,DE
1310/ F4D9 : E1 POP HL
1311/ F4DA : D0 RET NC ;wenn EADR<AADR
1312/ F4DB : (MACRO) ROTHL
1312/ F4DB : E7 RST 20H
1312/ F4DC : 07 DB 07h ; OUTHL
1313/ F4DD : 01 00 08 LD BC,0800H ;B=8
1314/ F4E0 : 1E 00 LD E,0 ;EC=0 - Checksumme
1315/ F4E2 : (MACRO) DKO2: RPRST
1315/ F4E2 : E7 RST 20H
1315/ F4E3 : 02 DB 02h ; PRST
1316/ F4E4 : A0 DB ' '+80H
1317/ F4E5 : 7E LD A,(HL)
1318/ F4E6 : (MACRO) ROTHX
1318/ F4E6 : E7 RST 20H
1318/ F4E7 : 06 DB 06h ; OUTHX
1319/ F4E8 : 81 ADD A, C ;Checksumme bilden
1320/ F4E9 : 4F LD C,A
1321/ F4EA : 30 04 JR NC, DKO3
1322/ F4EC : 3E 00 LD A,0
1323/ F4EE : 8B ADC A, E
1324/ F4EF : 5F LD E,A
1325/ F4F0 : 23 DKO3: INC HL
1326/ F4F1 : 10 EF DJNZ DKO2
1327/ F4F3 : (MACRO) RPRST
1327/ F4F3 : E7 RST 20H
1327/ F4F4 : 02 DB 02h ; PRST
1328/ F4F5 : A0 DB ' '+80H
1329/ F4F6 : 7B LD A,E
1330/ F4F7 : CD 0A F3 CALL OUX1 ;Checksumme ausgeben
1331/ F4FA : 79 LD A,C
1332/ F4FB : (MACRO) ROTHX
1332/ F4FB : E7 RST 20H
1332/ F4FC : 06 DB 06h ; OUTHX
1333/ F4FD : 18 D2 JR DKO1
1334/ F4FF : ;
1335/ F4FF : ;-------------------------------------------------------------------------------
1336/ F4FF : ;Argumente uebergeben
1337/ F4FF : ;-------------------------------------------------------------------------------
1338/ F4FF : ;
1339/ F4FF : 2A 1B 00 PARA: LD HL,(ARG1)
1340/ F502 : ED 5B 1D 00 LD DE,(ARG2)
1341/ F506 : ED 4B 23 00 LD BC,(ARG3)
1342/ F50A : C9 RET
1343/ F50B : ;
1344/ F50B : ;-------------------------------------------------------------------------------
1345/ F50B : ;Speicherbereich mit Byte beschreiben
1346/ F50B : ;-------------------------------------------------------------------------------
1347/ F50B : ;
1348/ F50B : CD FF F4 K_KDO: CALL PARA
1349/ F50E : 71 LD (HL),C ;C=Fuellbyte
1350/ F50F : E5 PUSH HL
1351/ F510 : AF XOR A
1352/ F511 : EB EX DE,HL
1353/ F512 : ED 52 SBC HL,DE
1354/ F514 : 44 LD B,H
1355/ F515 : 4D LD C,L ;BC=Laenge
1356/ F516 : E1 POP HL
1357/ F517 : 54 LD D,H
1358/ F518 : 5D LD E,L
1359/ F519 : 13 INC DE
1360/ F51A : ED B0 LDIR
1361/ F51C : C9 RET
1362/ F51D : ;
1363/ F51D : ;-------------------------------------------------------------------------------
1364/ F51D : ;Speicherbereich verschieben
1365/ F51D : ;-------------------------------------------------------------------------------
1366/ F51D : ;
1367/ F51D : CD FF F4 T_KDO: CALL PARA
1368/ F520 : AF XOR A
1369/ F521 : E5 PUSH HL
1370/ F522 : ED 52 SBC HL,DE
1371/ F524 : E1 POP HL
1372/ F525 : 38 03 JR C, TKO1 ;wenn Zieladr. groesser
1373/ F527 : ED B0 LDIR ;Vorwaertstransfer
1374/ F529 : C9 RET
1375/ F52A : 09 TKO1: ADD HL,BC
1376/ F52B : EB EX DE,HL
1377/ F52C : 09 ADD HL,BC
1378/ F52D : EB EX DE,HL
1379/ F52E : 2B DEC HL
1380/ F52F : 1B DEC DE
1381/ F530 : ED B8 LDDR ;Rueckwaertstransfer
1382/ F532 : C9 RET
1383/ F533 : ;
1384/ F533 : ;-------------------------------------------------------------------------------
1385/ F533 : ;Debugging-Funktionen
1386/ F533 : ;-------------------------------------------------------------------------------
1387/ F533 : ;
1388/ F533 : ;Register im Registerrettebereich ablegen
1389/ F533 : ;
1390/ F533 : ED 73 13 00 REGA: LD (DATA),SP
1391/ F537 : 31 61 00 LD SP,REGPC
1392/ F53A : DD E5 PUSH IX
1393/ F53C : FD E5 PUSH IY
1394/ F53E : F5 PUSH AF
1395/ F53F : C5 PUSH BC
1396/ F540 : D5 PUSH DE
1397/ F541 : E5 PUSH HL
1398/ F542 : D9 EXX
1399/ F543 : 08 EX AF, AF'
1400/ F544 : F5 PUSH AF
1401/ F545 : C5 PUSH BC
1402/ F546 : D5 PUSH DE
1403/ F547 : E5 PUSH HL
1404/ F548 : 18 15 JR REG1
1405/ F54A : ;Register aus Registerrettebereich holen
1406/ F54A : ED 73 13 00 REGH: LD (DATA),SP
1407/ F54E : 31 4D 00 LD SP,REGBR
1408/ F551 : E1 POP HL
1409/ F552 : D1 POP DE
1410/ F553 : C1 POP BC
1411/ F554 : F1 POP AF
1412/ F555 : D9 EXX
1413/ F556 : 08 EX AF, AF'
1414/ F557 : E1 POP HL
1415/ F558 : D1 POP DE
1416/ F559 : C1 POP BC
1417/ F55A : F1 POP AF
1418/ F55B : FD E1 POP IY
1419/ F55D : DD E1 POP IX
1420/ F55F : ED 7B 13 00 REG1: LD SP,(DATA)
1421/ F563 : C9 RET
1422/ F564 : ;
1423/ F564 : ;Einsprung bei Breakpoint
1424/ F564 : ;
1425/ F564 : CD 33 F5 BREAK: CALL REGA ;Register ablegen
1426/ F567 : E1 POP HL ;HL=Breakadr.+3
1427/ F568 : ED 73 63 00 LD (REGSP),SP ;SP sichern
1428/ F56C : 31 B0 00 LD SP,SYSSK ;Systemstack nutzen
1429/ F56F : 2B DEC HL
1430/ F570 : 2B DEC HL
1431/ F571 : 2B DEC HL
1432/ F572 : 22 61 00 LD (REGPC),HL ;Breakadresse
1433/ F575 : ED 5B 0B 00 LD DE,(BPADR) ;die originalen 3 Byte
1434/ F579 : 21 0D 00 LD HL,BPOPC ;Operanden zurueckbringen
1435/ F57C : 01 03 00 LD BC,3
1436/ F57F : ED B0 LDIR
1437/ F581 : CD E4 F5 CALL REGDA
1438/ F584 : C3 5F F0 JP KDO2
1439/ F587 : ;
1440/ F587 : ;-------------------------------------------------------------------------------
1441/ F587 : ;Breakpoint-Adresse setzen
1442/ F587 : ;-------------------------------------------------------------------------------
1443/ F587 : ;
1444/ F587 : 2A 1B 00 B_KDO: LD HL,(ARG1)
1445/ F58A : 22 0B 00 LD (BPADR),HL
1446/ F58D : 11 0D 00 LD DE,BPOPC ;3 Byte Operanden
1447/ F590 : 01 03 00 LD BC,3 ;retten
1448/ F593 : ED B0 LDIR
1449/ F595 : CD E4 F5 CALL REGDA ;Register anzeigen
1450/ F598 : C9 RET
1451/ F599 : ;
1452/ F599 : ;-------------------------------------------------------------------------------
1453/ F599 : ;Programm starten mit Breakpoint
1454/ F599 : ;-------------------------------------------------------------------------------
1455/ F599 : ;
1456/ F599 : 2A 0B 00 E_KDO: LD HL,(BPADR)
1457/ F59C : 36 CD LD (HL),0CDH ;CALL ...
1458/ F59E : 23 INC HL
1459/ F59F : 11 64 F5 LD DE,BREAK ;an Breakpoint Unter-
1460/ F5A2 : 73 LD (HL),E ;Brechung zu BREAK eintragen
1461/ F5A3 : 23 INC HL
1462/ F5A4 : 72 LD (HL),D
1463/ F5A5 : ;
1464/ F5A5 : ;-------------------------------------------------------------------------------
1465/ F5A5 : ;Programm starten
1466/ F5A5 : ;-------------------------------------------------------------------------------
1467/ F5A5 : ;
1468/ F5A5 : 2A 1B 00 J_KDO: LD HL,(ARG1) ;Startadresse
1469/ F5A8 : 22 61 00 LD (REGPC),HL ;zwischenspeichern
1470/ F5AB : ED 7B 63 00 LD SP,(REGSP) ;Stack generieren
1471/ F5AF : E5 PUSH HL ;Startadresse in Stack
1472/ F5B0 : C3 4A F5 JP REGH ;Register holen
1473/ F5B3 : ;und Pgm. durch RET starten
1474/ F5B3 : ;
1475/ F5B3 : ;-------------------------------------------------------------------------------
1476/ F5B3 : ;Programm nach Break fortsetzen
1477/ F5B3 : ;-------------------------------------------------------------------------------
1478/ F5B3 : ;
1479/ F5B3 : 2A 61 00 G_KDO: LD HL,(REGPC)
1480/ F5B6 : 22 1B 00 LD (ARG1),HL
1481/ F5B9 : ED 5B 0B 00 LD DE,(BPADR)
1482/ F5BD : AF XOR A ;Cy=0
1483/ F5BE : ED 52 SBC HL,DE
1484/ F5C0 : 20 D7 JR NZ, E_KDO ;wenn nicht Breakpoint
1485/ F5C2 : 18 E1 JR J_KDO ;starten
1486/ F5C4 : ;
1487/ F5C4 : ;-------------------------------------------------------------------------------
1488/ F5C4 : ;Ausgabe eines Doppelpunktes und (HL) und Leerzeichen
1489/ F5C4 : ;-------------------------------------------------------------------------------
1490/ F5C4 : ;
1491/ F5C4 : (MACRO) OUTDP: RPRST
1491/ F5C4 : E7 RST 20H
1491/ F5C5 : 02 DB 02h ; PRST
1492/ F5C6 : BA DB ':'+80H
1493/ F5C7 : ;
1494/ F5C7 : ;-------------------------------------------------------------------------------
1495/ F5C7 : ;Ausgabe hex 2 Byte Speicher (HL) und (HL-1)
1496/ F5C7 : ;und ein Leerzeichen
1497/ F5C7 : ;-------------------------------------------------------------------------------
1498/ F5C7 : ;
1499/ F5C7 : 7E OTHLS: LD A,(HL) ;hoeherwertiges Byte
1500/ F5C8 : (MACRO) ROTHX ;ausgeben
1500/ F5C8 : E7 RST 20H
1500/ F5C9 : 06 DB 06h ; OUTHX
1501/ F5CA : 2B DEC HL
1502/ F5CB : 7E LD A,(HL) ;niederwertiges Byte
1503/ F5CC : (MACRO) ROTHX ;ausgeben
1503/ F5CC : E7 RST 20H
1503/ F5CD : 06 DB 06h ; OUTHX
1504/ F5CE : 2B DEC HL ;naechsten Aufruf vorbereiten
1505/ F5CF : ;
1506/ F5CF : ;-------------------------------------------------------------------------------
1507/ F5CF : ;Ausgabe ein Leerzeichen
1508/ F5CF : ;-------------------------------------------------------------------------------
1509/ F5CF : ;
1510/ F5CF : (MACRO) OUTSP: RPRST
1510/ F5CF : E7 RST 20H
1510/ F5D0 : 02 DB 02h ; PRST
1511/ F5D1 : A0 DB ' '+80H
1512/ F5D2 : C9 RET
1513/ F5D3 : ;
1514/ F5D3 : ;-------------------------------------------------------------------------------
1515/ F5D3 : ;Registermodifizerung und -anzeige
1516/ F5D3 : ;-------------------------------------------------------------------------------
1517/ F5D3 : ;
1518/ F5D3 : ;Z-Flag-Anzeige
1519/ F5D3 : ;
1520/ F5D3 : (MACRO) AUS1: RPRST ;Ausg. "1 "
1520/ F5D3 : E7 RST 20H
1520/ F5D4 : 02 DB 02h ; PRST
1521/ F5D5 : 31 DB "1"
1522/ F5D6 : A0 DB ' '+80H
1523/ F5D7 : C9 RET
1524/ F5D8 : 20 F9 AUSX: JR NZ, AUS1
1525/ F5DA : (MACRO) RPRST ;Ausg. "0 "
1525/ F5DA : E7 RST 20H
1525/ F5DB : 02 DB 02h ; PRST
1526/ F5DC : 30 DB "0"
1527/ F5DD : A0 DB ' '+80H
1528/ F5DE : C9 RET
1529/ F5DF : ;
1530/ F5DF : ; R-Kommando
1531/ F5DF : ;
1532/ F5DF : FE 3A R_KDO: CP A, ':'
1533/ F5E1 : C2 5A F6 JP NZ, RKO3 ;wenn Modifizierung
1534/ F5E4 : ;
1535/ F5E4 : (MACRO) REGDA: RPRST ;Anzeige Breakpointadresse
1535/ F5E4 : E7 RST 20H
1535/ F5E5 : 02 DB 02h ; PRST
1536/ F5E6 : 0D DB CR
1537/ F5E7 : 42 DB "B" ;"BP"
1538/ F5E8 : D0 DB 'P'+80H
1539/ F5E9 : 21 0C 00 LD HL,BPADR+1
1540/ F5EC : (MACRO) ROTDP
1540/ F5EC : E7 RST 20H
1540/ F5ED : 0D DB 0Dh ; OUTDP
1541/ F5EE : (MACRO) RPRST ;Ausgabe Operandenfolge
1541/ F5EE : E7 RST 20H
1541/ F5EF : 02 DB 02h ; PRST
1542/ F5F0 : 42 53 DB "BS" ;am Breakpoint
1543/ F5F2 : BA DB ':'+80H
1544/ F5F3 : 06 03 LD B,3 ;3 Byte
1545/ F5F5 : 21 0D 00 LD HL,BPOPC
1546/ F5F8 : 7E RKO1: LD A,(HL)
1547/ F5F9 : (MACRO) ROTHX
1547/ F5F9 : E7 RST 20H
1547/ F5FA : 06 DB 06h ; OUTHX
1548/ F5FB : 23 INC HL
1549/ F5FC : 10 FA DJNZ RKO1
1550/ F5FE : ;
1551/ F5FE : (MACRO) RPRST ;Flaganzeige
1551/ F5FE : E7 RST 20H
1551/ F5FF : 02 DB 02h ; PRST
1552/ F600 : 20 20 20 53 20 5A DB " S Z C"
20 43
1553/ F608 : A0 DB ' '+80H
1554/ F609 : 3A 5B 00 LD A,(REGAF) ;A-Flagregister
1555/ F60C : 6F LD L,A
1556/ F60D : CB 7D BIT 7,L ;S-Flag
1557/ F60F : CD D8 F5 CALL AUSX
1558/ F612 : CB 75 BIT 6,L ;Z-Flag
1559/ F614 : CD D8 F5 CALL AUSX
1560/ F617 : CB 45 BIT 0,L ;Cy-Flag
1561/ F619 : CD D8 F5 CALL AUSX
1562/ F61C : ;
1563/ F61C : 21 64 00 LD HL,REGSP+1 ;Sonderregister-anzeige
1564/ F61F : 06 02 LD B,2 ;2 Registersaetze
1565/ F621 : (MACRO) RPRST
1565/ F621 : E7 RST 20H
1565/ F622 : 02 DB 02h ; PRST
1566/ F623 : 53 RKO2: DB "S"
1567/ F624 : D0 DB 'P'+80H
1568/ F625 : (MACRO) ROTDP
1568/ F625 : E7 RST 20H
1568/ F626 : 0D DB 0Dh ; OUTDP
1569/ F627 : (MACRO) RPRST
1569/ F627 : E7 RST 20H
1569/ F628 : 02 DB 02h ; PRST
1570/ F629 : 50 DB "P"
1571/ F62A : C3 DB 'C'+80H
1572/ F62B : (MACRO) ROTDP
1572/ F62B : E7 RST 20H
1572/ F62C : 0D DB 0Dh ; OUTDP
1573/ F62D : (MACRO) RPRST
1573/ F62D : E7 RST 20H
1573/ F62E : 02 DB 02h ; PRST
1574/ F62F : 49 DB "I"
1575/ F630 : D8 DB 'X'+80H
1576/ F631 : (MACRO) ROTDP
1576/ F631 : E7 RST 20H
1576/ F632 : 0D DB 0Dh ; OUTDP
1577/ F633 : (MACRO) RPRST
1577/ F633 : E7 RST 20H
1577/ F634 : 02 DB 02h ; PRST
1578/ F635 : 49 DB "I"
1579/ F636 : D9 DB 'Y'+80H
1580/ F637 : (MACRO) ROTDP
1580/ F637 : E7 RST 20H
1580/ F638 : 0D DB 0Dh ; OUTDP
1581/ F639 : ;
1582/ F639 : (MACRO) RKO4: RPRST ;Registersatz anzeigen
1582/ F639 : E7 RST 20H
1582/ F63A : 02 DB 02h ; PRST
1583/ F63B : 41 DB "A"
1584/ F63C : C6 DB 'F'+80H
1585/ F63D : (MACRO) ROTDP
1585/ F63D : E7 RST 20H
1585/ F63E : 0D DB 0Dh ; OUTDP
1586/ F63F : (MACRO) RPRST
1586/ F63F : E7 RST 20H
1586/ F640 : 02 DB 02h ; PRST
1587/ F641 : 42 DB "B"
1588/ F642 : C3 DB 'C'+80H
1589/ F643 : (MACRO) ROTDP
1589/ F643 : E7 RST 20H
1589/ F644 : 0D DB 0Dh ; OUTDP
1590/ F645 : (MACRO) RPRST
1590/ F645 : E7 RST 20H
1590/ F646 : 02 DB 02h ; PRST
1591/ F647 : 44 DB "D"
1592/ F648 : C5 DB 'E'+80H
1593/ F649 : (MACRO) ROTDP
1593/ F649 : E7 RST 20H
1593/ F64A : 0D DB 0Dh ; OUTDP
1594/ F64B : (MACRO) RPRST
1594/ F64B : E7 RST 20H
1594/ F64C : 02 DB 02h ; PRST
1595/ F64D : 48 DB "H"
1596/ F64E : CC DB 'L'+80H
1597/ F64F : (MACRO) ROTDP
1597/ F64F : E7 RST 20H
1597/ F650 : 0D DB 0Dh ; OUTDP
1598/ F651 : 10 E6 DJNZ RKO4
1599/ F653 : ;
1600/ F653 : 2A 2B 00 LD HL,(CUPOS) ;2. Satz als Schatten-
1601/ F656 : 2B DEC HL ;register markieren:
1602/ F657 : 36 27 LD (HL),27H ;"'"
1603/ F659 : C9 RET
1604/ F65A : ;
1605/ F65A : 01 00 04 RKO3: LD BC,0400H ;B=4, C-Registernummer
1606/ F65D : 2A 16 00 LD HL,(SOIL)
1607/ F660 : 23 INC HL
1608/ F661 : 23 INC HL
1609/ F662 : 11 23 F6 LD DE,RKO2
1610/ F665 : 1A RKO5: LD A,(DE) ;Vergleich Registereingabe
1611/ F666 : BE CP A, (HL) ;mit allen Registern
1612/ F667 : 28 17 JR Z, RKO8 ;wenn gefunden
1613/ F669 : 13 INC DE
1614/ F66A : E5 RKO6: PUSH HL
1615/ F66B : 21 05 00 LD HL,5
1616/ F66E : 19 ADD HL,DE
1617/ F66F : EB EX DE,HL ;naechster Reg.name
1618/ F670 : E1 POP HL
1619/ F671 : 0C INC C ;C-Registernummer
1620/ F672 : 10 F1 DJNZ RKO5
1621/ F674 : 06 04 LD B,4
1622/ F676 : 79 LD A,C
1623/ F677 : FE 08 CP A, 8
1624/ F679 : 20 EA JR NZ, RKO5 ;weitersuchen
1625/ F67B : F1 POP AF ;sonst falsche Eingabe
1626/ F67C : FF RST 38H ;--> zum KDO-Monitor
1627/ F67D : ;
1628/ F67D : 2B RKO7: DEC HL ;weitersuchen
1629/ F67E : 18 EA JR RKO6
1630/ F680 : ;
1631/ F680 : 13 RKO8: INC DE ;Ueberpruefen zweiter
1632/ F681 : 23 INC HL ;Buchstabe
1633/ F682 : 1A LD A,(DE)
1634/ F683 : E6 7F AND A, 7FH
1635/ F685 : BE CP A, (HL)
1636/ F686 : 20 F5 JR NZ, RKO7 ;wenn ungleich
1637/ F688 : 23 INC HL
1638/ F689 : 7E LD A,(HL) ;Schattenregister ?
1639/ F68A : FE 27 CP A, 27H ;"'"
1640/ F68C : 79 LD A,C
1641/ F68D : 20 02 JR NZ, RKO9 ;wenn nicht
1642/ F68F : C6 04 ADD A, 4
1643/ F691 : CB 27 RKO9: SLA A
1644/ F693 : 4F LD C,A
1645/ F694 : 06 00 LD B,0
1646/ F696 : 21 64 00 LD HL,REGSP+1
1647/ F699 : ED 42 SBC HL,BC
1648/ F69B : 44 LD B,H ;HL=Adresse im
1649/ F69C : 4D LD C,L ;Registerrettebereich
1650/ F69D : (MACRO) ROTHS ;Ausgabe Wert
1650/ F69D : E7 RST 20H
1650/ F69E : 0C DB 0Ch ; OTHLS
1651/ F69F : CD B3 F2 CALL INLIN ;Eingabe neuer Wert
1652/ F6A2 : ED 5B 16 00 LD DE,(SOIL)
1653/ F6A6 : CD F4 F2 CALL INHEX ;HL=neuer Wert
1654/ F6A9 : 20 04 JR NZ, RKO10 ;wenn alles ok
1655/ F6AB : 1A LD A,(DE) ;keine Zahl, vielleicht
1656/ F6AC : FE 3B CP A, ';' ;Abbruch ?
1657/ F6AE : C8 RET Z
1658/ F6AF : ;
1659/ F6AF : EB RKO10: EX DE,HL
1660/ F6B0 : C5 PUSH BC
1661/ F6B1 : E1 POP HL ;Adr. im Reg.rettebereich
1662/ F6B2 : 72 LD (HL),D ;neuen Wert eintragen
1663/ F6B3 : 2B DEC HL
1664/ F6B4 : 73 LD (HL),E
1665/ F6B5 : C3 E4 F5 JP REGDA ;Registeranzeige
1666/ F6B8 :
1667/ F6B8 : =>TRUE IF MONTYP == "Z1013_202"
1668/ F6B8 : ;
1669/ F6B8 : ;-------------------------------------------------------------------------------
1670/ F6B8 : ;Hex-Umschaltung
1671/ F6B8 : ;-------------------------------------------------------------------------------
1672/ F6B8 : ;
1673/ F6B8 : 21 48 50 H_KDO: ld hl,5048h ;Aenderung der Tastaturcodetab.
1674/ F6BB : 22 42 00 ld (LSYNC+15),hl ;Shift-Ebene 1, Zeile 2 und 3
1675/ F6BE : 21 30 38 ld hl,3830h ;vertauschen mit
1676/ F6C1 : 22 45 00 ld (LSYNC+18),hl ;Shift-Ebene 0, Zeile 2 und 3
1677/ F6C4 : C9 RET
1678/ F6C5 : ;
1679/ F6C5 : ;-------------------------------------------------------------------------------
1680/ F6C5 : ;ASCII-Umschaltung
1681/ F6C5 : ;-------------------------------------------------------------------------------
1682/ F6C5 : ;
1683/ F6C5 : 21 F4 F1 A_KDO: ld hl,MONTB+2 ;Laden der alten
1684/ F6C8 : 11 35 00 ld de,LSYNC+2 ;Tastaturcodetab.
1685/ F6CB : 01 12 00 ld bc,12h
1686/ F6CE : ED B0 ldir
1687/ F6D0 : C9 RET
1688/ F6D1 :
1689/ F6D1 : [1667] ENDIF
1690/ F6D1 : ;
1691/ F6D1 : ;-------------------------------------------------------------------------------
1692/ F6D1 : ;Window definieren
1693/ F6D1 : ;-------------------------------------------------------------------------------
1694/ F6D1 : ;
1695/ F6D1 : CD ED F6 W_KDO: CALL WKO1 ;Kontrolle Parameter
1696/ F6D4 : 38 4C JR C, WKO3 ;wenn Fehleingabe
1697/ F6D6 : 22 47 00 LD (WINDL),HL ;neue Werte eintragen
1698/ F6D9 : ED 43 49 00 LD (WINDA),BC
1699/ F6DD : 2A 1D 00 LD HL,(ARG2)
1700/ F6E0 : 22 4B 00 LD (WINDE),HL
1701/ F6E3 : 2A 2B 00 LD HL,(CUPOS) ;Cursor loeschen
1702/ F6E6 : 36 20 LD (HL),' '
1703/ F6E8 : ED 43 2B 00 LD (CUPOS),BC ;Cursor home
1704/ F6EC : C9 RET
1705/ F6ED : ;
1706/ F6ED : 3A 1C 00 WKO1: LD A,(ARG1+1)
1707/ F6F0 : FE EC CP A, hi(BWS) ;innerhalb BWS ?
1708/ F6F2 : D8 RET C ;nein
1709/ F6F3 : 3A 1B 00 LD A,(ARG1) ;WINDOW-Anfang
1710/ F6F6 : E6 E0 AND A, 0E0H ;auf Zeilenanfang stellen
1711/ F6F8 : 32 1B 00 LD (ARG1),A
1712/ F6FB : 3A 1D 00 LD A,(ARG2) ;ebenso WINDOW-Ende
1713/ F6FE : E6 E0 AND A, 0E0H ;auf Zeilenanfang stellen
1714/ F700 : 32 1D 00 LD (ARG2),A
1715/ F703 : 2A 1D 00 LD HL,(ARG2)
1716/ F706 : ED 4B 1B 00 LD BC,(ARG1)
1717/ F70A : ED 42 SBC HL,BC
1718/ F70C : D8 RET C ;Endadresse zu klein
1719/ F70D : 28 11 JR Z, WKO2 ;kein Window --> Fehler
1720/ F70F : 2B DEC HL
1721/ F710 : 3E 03 LD A,3 ;WINDOW zu gross ?
1722/ F712 : BC CP A, H
1723/ F713 : D8 RET C ;ja
1724/ F714 : 23 INC HL
1725/ F715 : 11 40 00 LD DE,2*BWSCOL
1726/ F718 : ED 52 SBC HL,DE
1727/ F71A : D8 RET C ;wenn WINDOW zu klein
1728/ F71B : 11 20 00 LD DE,BWSCOL
1729/ F71E : 19 ADD HL,DE
1730/ F71F : C9 RET
1731/ F720 : ;
1732/ F720 : 37 WKO2: SCF
1733/ F721 : C9 RET
1734/ F722 : ;
1735/ F722 : F1 WKO3: POP AF
1736/ F723 : FF RST 38H
1737/ F724 : ;
1738/ F724 : ;-------------------------------------------------------------------------------
1739/ F724 : ;NEXT-Kommando, Step-Betrieb
1740/ F724 : ;-------------------------------------------------------------------------------
1741/ F724 : ;
1742/ F724 : ;Initialisierungstabelle fuer PIO bei NEXT
1743/ F724 : ;PIO B5 => AB0 in
1744/ F724 : ;
1745/ F724 : FE NKTA: DB Lo(NINTA) ;Interruptvektor Low Byte
1746/ F725 : 97 DB 10010111b ;Interruptsteuerwort, EI, Low-aktiv, Mask folgt
1747/ F726 : DF DB 11011111b ;Interruptmaske Bit5 aktiv
1748/ F727 : ;
1749/ F727 : ;NEXT-Kommando
1750/ F727 : ;
1751/ F727 : 3E F7 N_KDO: LD A,Hi(NINTA)
1752/ F729 : ED 47 LD I,A ;Interruptvektor
1753/ F72B : F3 DI
1754/ F72C : 21 24 F7 LD HL,NKTA ;Initialisieren PIO Port B
1755/ F72F : 01 03 03 LD BC,0303H ;3 Bytes, Port PIOBC
1756/ F732 : ED B3 OTIR ;loest selbstaendig INT aus
1757/ F734 : 2A 0B 00 LD HL,(BPADR) ;Byte vor Breakadr.(!)
1758/ F737 : 2B DEC HL ;wird EI
1759/ F738 : 7E LD A,(HL)
1760/ F739 : 32 69 00 LD (NBYTE),A ;Byte retten
1761/ F73C : 36 FB LD (HL),0FBH ;Code EI einschreiben
1762/ F73E : ED 73 6A 00 LD (SPADR),SP
1763/ F742 : ED 7B 63 00 LD SP,(REGSP)
1764/ F746 : E5 PUSH HL ;Adr. mit EI-Befehl
1765/ F747 : C3 4A F5 JP REGH ;Register holen und Start
1766/ F74A : ;Die PIO generiert bereits beim OTIR eine Interruptanforderung, da dabei AB0 => 0.
1767/ F74A : ;Sobald EI und nachfolgender Befehl ausgeführt wird, wird der Interrupt angenommen
1768/ F74A : ;und nachfolgende Routine über Inhalt der Adr. NINTA angesprungen (da IM 2)
1769/ F74A : ;
1770/ F74A : ;Eingang bei Interrupt
1771/ F74A : F3 NINTR: DI
1772/ F74B : CD 33 F5 CALL REGA ;Register retten
1773/ F74E : 3E 07 LD A,00000111b ;Interrupt von PIO
1774/ F750 : D3 03 OUT PIOBC, A ;verbieten
1775/ F752 : 2A 0B 00 LD HL,(BPADR) ;EI-Befehl durch Original-
1776/ F755 : 2B DEC HL ;Byte ersetzen
1777/ F756 : 3A 69 00 LD A,(NBYTE)
1778/ F759 : 77 LD (HL),A
1779/ F75A : E1 POP HL
1780/ F75B : 22 0B 00 LD (BPADR),HL ;neue Breakadresse
1781/ F75E : 22 61 00 LD (REGPC),HL
1782/ F761 : ED 73 63 00 LD (REGSP),SP
1783/ F765 : ED 7B 6A 00 LD SP,(SPADR) ;neue Operandenfolge
1784/ F769 : 11 0D 00 LD DE,BPOPC ;umladen
1785/ F76C : 01 03 00 LD BC,3
1786/ F76F : ED B0 LDIR
1787/ F771 : 21 E4 F5 LD HL,REGDA
1788/ F774 : E5 PUSH HL
1789/ F775 : ED 4D RETI ;Sprung zur Registeranzeige
1790/ F777 : ;
1791/ F777 : ;-------------------------------------------------------------------------------
1792/ F777 : ;Speicherbereiche vergleichen
1793/ F777 : ;-------------------------------------------------------------------------------
1794/ F777 : ;
1795/ F777 : CD FF F4 C_KDO: CALL PARA ;Parameter holen
1796/ F77A : 1A CKO1: LD A,(DE)
1797/ F77B : BE CP A, (HL) ;Vergleich
1798/ F77C : 20 08 JR NZ, CKO3 ;wenn ungleich
1799/ F77E : 0B CKO2: DEC BC
1800/ F77F : 23 INC HL
1801/ F780 : 13 INC DE
1802/ F781 : 78 LD A,B
1803/ F782 : B1 OR C
1804/ F783 : C8 RET Z ;wenn alles geprueft
1805/ F784 : 18 F4 JR CKO1 ;sonst weitertesten
1806/ F786 : ;
1807/ F786 : (MACRO) CKO3: ROTHL ;1. Adresse
1807/ F786 : E7 RST 20H
1807/ F787 : 07 DB 07h ; OUTHL
1808/ F788 : (MACRO) ROTSP
1808/ F788 : E7 RST 20H
1808/ F789 : 0E DB 0Eh ; OUTSP
1809/ F78A : 7E LD A,(HL)
1810/ F78B : (MACRO) ROTHX ;1. Byte
1810/ F78B : E7 RST 20H
1810/ F78C : 06 DB 06h ; OUTHX
1811/ F78D : (MACRO) ROTSP
1811/ F78D : E7 RST 20H
1811/ F78E : 0E DB 0Eh ; OUTSP
1812/ F78F : EB EX DE,HL
1813/ F790 : (MACRO) ROTHL ;2. Adresse
1813/ F790 : E7 RST 20H
1813/ F791 : 07 DB 07h ; OUTHL
1814/ F792 : (MACRO) ROTSP
1814/ F792 : E7 RST 20H
1814/ F793 : 0E DB 0Eh ; OUTSP
1815/ F794 : EB EX DE,HL
1816/ F795 : 1A LD A,(DE)
1817/ F796 : (MACRO) ROTHX ;2. Byte
1817/ F796 : E7 RST 20H
1817/ F797 : 06 DB 06h ; OUTHX
1818/ F798 : (MACRO) RPRST
1818/ F798 : E7 RST 20H
1818/ F799 : 02 DB 02h ; PRST
1819/ F79A : 8D DB CR+80H
1820/ F79B : (MACRO) RINCH ;warten auf Tastendruck
1820/ F79B : E7 RST 20H
1820/ F79C : 01 DB 01h ; INCH
1821/ F79D : FE 0D CP A, CR
1822/ F79F : C0 RET NZ ;Abbruch wenn <> >ENTER<
1823/ F7A0 : 18 DC JR CKO2 ;sonst weitertesten
1824/ F7A2 :
1825/ F7A2 : =>TRUE IF MONTYP <> "Z1013_A2"
1826/ F7A2 : ;
1827/ F7A2 : ;-------------------------------------------------------------------------------
1828/ F7A2 : ;Bytefolge suchen
1829/ F7A2 : ;-------------------------------------------------------------------------------
1830/ F7A2 : ;
1831/ F7A2 : ED 5B 25 00 F_KDO: LD DE,(SOIL2)
1832/ F7A6 : 1B DEC DE
1833/ F7A7 : 1B DEC DE
1834/ F7A8 : ED 53 23 00 LD (ARG3),DE ;DE = Beginn Bytefolge
1835/ F7AC : ED 4B 1B 00 LD BC,(ARG1) ;Suchadresse
1836/ F7B0 : ED 5B 23 00 FKO1: LD DE,(ARG3)
1837/ F7B4 : (MACRO) RINHX ;L = 1. Suchbyte
1837/ F7B4 : E7 RST 20H
1837/ F7B5 : 03 DB 03h ; INHEX
1838/ F7B6 : 0A FKO2: LD A,(BC)
1839/ F7B7 : BD CP A, L ;L = Suchbyte
1840/ F7B8 : 28 07 JR Z, FKO3 ;wenn Bytes gleich
1841/ F7BA : 03 INC BC ;sonst naechste Suchadresse
1842/ F7BB : 78 LD A,B
1843/ F7BC : B1 OR C
1844/ F7BD : 28 32 JR Z, FKO7 ;wenn Speicherende erreicht
1845/ F7BF : 18 F5 JR FKO2 ;weitersuchen
1846/ F7C1 : ;
1847/ F7C1 : C5 FKO3: PUSH BC
1848/ F7C2 : D5 PUSH DE
1849/ F7C3 : ED 5B 1D 00 LD DE,(ARG2) ;Suchbyteanzahl
1850/ F7C7 : 1B DEC DE
1851/ F7C8 : ED 53 6C 00 LD (FBANZ),DE ;Zwischenspeicher fuer Anzahl
1852/ F7CC : 03 INC BC
1853/ F7CD : 7A FKO4: LD A,D
1854/ F7CE : B3 OR E ;alle Suchbytes verglichen?
1855/ F7CF : D1 POP DE
1856/ F7D0 : 28 13 JR Z, FKO5 ;wenn Bytefolge gefunden
1857/ F7D2 : (MACRO) RINHX ;naechstes Suchbyte holen
1857/ F7D2 : E7 RST 20H
1857/ F7D3 : 03 DB 03h ; INHEX
1858/ F7D4 : 0A LD A,(BC)
1859/ F7D5 : BD CP A, L
1860/ F7D6 : 20 15 JR NZ, FKO6 ;wenn Folge nicht gefunden
1861/ F7D8 : D5 PUSH DE
1862/ F7D9 : ED 5B 6C 00 LD DE,(FBANZ) ;1 Byte weniger zu vergleichen
1863/ F7DD : 1B DEC DE
1864/ F7DE : ED 53 6C 00 LD (FBANZ),DE
1865/ F7E2 : 03 INC BC
1866/ F7E3 : 18 E8 JR FKO4 ;weitervergleichen
1867/ F7E5 : ;Bytefolge gefunden
1868/ F7E5 : C1 FKO5: POP BC
1869/ F7E6 : ED 43 1B 00 LD (ARG1),BC
1870/ F7EA : C3 25 F3 JP MEM ;Speicher modifizieren
1871/ F7ED : ;
1872/ F7ED : C1 FKO6: POP BC
1873/ F7EE : 03 INC BC
1874/ F7EF : 18 BF JR FKO1
1875/ F7F1 : ;Bytefolge nirgends gefunden
1876/ F7F1 : (MACRO) FKO7: RPRST
1876/ F7F1 : E7 RST 20H
1876/ F7F2 : 02 DB 02h ; PRST
1877/ F7F3 : 4E 4F 54 20 46 4F DB "NOT FOUND"
55 4E 44
1878/ F7FC : 8D DB CR+80H
1879/ F7FD : C9 RET
1880/ F7FE :
1881/ F7FE : [1825] ENDIF
1882/ F7FE :
1883/ F7FE : =>FALSE IF MONTYP == "Z1013_A2"
1884/ F7FE : ;
1885/ F7FE : ;-------------------------------------------------------------------------------
1886/ F7FE : ; Tastaturcodetabelle
1887/ F7FE : ;-------------------------------------------------------------------------------
1888/ F7FE : ;
1889/ F7FE : keytab:
1890/ F7FE : ; spalte 0
1891/ F7FE : db 31h ; 1
1892/ F7FE : db 51h ; Q
1893/ F7FE : db 41h ; A
1894/ F7FE : db 59h ; Y
1895/ F7FE : db 32h ; 2
1896/ F7FE : db 57h ; W
1897/ F7FE : db 53h ; S
1898/ F7FE : db 58h ; X
1899/ F7FE : ; Spalte 1
1900/ F7FE : db 33h ; 3
1901/ F7FE : db 45h ; E
1902/ F7FE : db 44h ; D
1903/ F7FE : db 43h ; C
1904/ F7FE : db 34h ; 4
1905/ F7FE : db 52h ; R
1906/ F7FE : db 46h ; F
1907/ F7FE : db 56h ; V
1908/ F7FE : ; Spalte 2
1909/ F7FE : db 35h ; 5
1910/ F7FE : db 54h ; T
1911/ F7FE : db 47h ; G
1912/ F7FE : db 42h ; B
1913/ F7FE : db 36h ; 6
1914/ F7FE : db 5Ah ; Z
1915/ F7FE : db 48h ; H
1916/ F7FE : db 4Eh ; N
1917/ F7FE : ; Spalte 3
1918/ F7FE : db 37h ; 7
1919/ F7FE : db 55h ; U
1920/ F7FE : db 4Ah ; J
1921/ F7FE : db 4Dh ; M
1922/ F7FE : db 38h ; 8
1923/ F7FE : db 49h ; I
1924/ F7FE : db 4Bh ; K
1925/ F7FE : db 2Ch ; ,
1926/ F7FE : ; Spalte 4
1927/ F7FE : db 39h ; 9
1928/ F7FE : db 4Fh ; O
1929/ F7FE : db 4Ch ; L
1930/ F7FE : db 2Eh ; .
1931/ F7FE : db 30h ; 0
1932/ F7FE : db 50h ; P
1933/ F7FE : db 2Bh ; +
1934/ F7FE : db 2Fh ; /
1935/ F7FE : ; Spalte 5
1936/ F7FE : db 2Dh ; -
1937/ F7FE : db 40h ; @
1938/ F7FE : db 2Ah ; *
1939/ F7FE : db 5Eh ; ^
1940/ F7FE : db 5Bh ; [
1941/ F7FE : db 5Dh ; ]
1942/ F7FE : db 5Ch ;
1943/ F7FE : db 5Fh ; _
1944/ F7FE : ; Spalte 6
1945/ F7FE : tab2: db 0 ; Graph E/A
1946/ F7FE : db 0Dh ; ENT
1947/ F7FE : db 8 ; Cu. links
1948/ F7FE : db 9 ; Cu. rechts
1949/ F7FE : db 20h ; Leerz.
1950/ F7FE : db 0 ; CTRL
1951/ F7FE : db 0Bh ; Cu. hoch
1952/ F7FE : db 0Ah ; Cu. runter
1953/ F7FE :
1954/ F7FE : [1883] ENDIF
1955/ F7FE :
1956/ F7FE : ;
1957/ F7FE : ;-------------------------------------------------------------------------------
1958/ F7FE : ;Interrupttabelle fuer Break
1959/ F7FE : ;-------------------------------------------------------------------------------
1960/ F7FE : ;
1961/ F7FE :
1962/ F7FE : align 2
1963/ F7FE : 4A F7 NINTA: DW NINTR
1964/ F800 :
1965/ F800 : END