Monitor

Listing des Betriebssystems

Der Monitor des Poly-Computers ist eine Besonderheit: Das System wurde als Zustandsmaschine (DFA, deterministic finite automaton) programmiert. Das macht es schwer, den Code zu verstehen, zeugt aber auch von hoher Ingenieurskunst. Kein anderes mir bekanntes Monitorprogramm hat eine derartige Konzeption.

Durch die Implementierung einer Zustandsmaschine konnten wesentlich mehr Funktionen und ein höherer Bedienkomfort in den 2048 Byte untergebracht werden als in vergleichbaren ähnlichen Einplatinenrechnern wie etwa KIM1, LC80 oder ähnlich.

Zum kompletten Verstehen der Zustände ist ein Blick ins Systemhandbuch empfehlenswert. Dort gibt es die zugehörigen Zustandsdiagramme und Ablaufpläne.

       1/       0 :                     ; POLY-COMPUTER 880
       2/       0 :                     ;
       3/       0 :                     ; Monitorprogramm des POLY-COMPUTER
       4/       0 :                     ; Bedienhandbuch, S. 87-156
       5/       0 :                     ;
       6/       0 :                     ; assemblieren mit Arnold-Assembler www.alfsembler.de
       7/       0 :                     ; vp120210
       8/       0 :                     ;
       9/       0 :                     	cpu	z80
      10/       0 :                     
      11/       0 :                     ;*************************************************************************
      12/       0 :                     ; 
      13/       0 :                     ;*************************************************************************
      14/       0 :                     
      15/       0 :                     	INCLUDE	EINTRITT.ASM
(1)    1/       0 :                     ;*************************************************************************
(1)    2/       0 :                     ;
(1)    3/       0 :                     ; 	PROGRAMM: U880-MONITOR
(1)    4/       0 :                     ;
(1)    5/       0 :                     ; 	COPYRIGHT (C) 1982
(1)    6/       0 :                     ; 	VEB KOMBINAT POLYTECHNIK UND PRAEZISIONSGERAETE
(1)    7/       0 :                     ; 	DDR-9023 KARL-MARX-STADT
(1)    8/       0 :                     ;	MELANCHTHONSTRASSE 4-8
(1)    9/       0 :                     ;
(1)   10/       0 :                     ;*************************************************************************
(1)   11/       0 :                     ;
(1)   12/       0 :                     ;
(1)   13/       0 :                     ; INHALT
(1)   14/       0 :                     ; ======
(1)   15/       0 :                     ;
(1)   16/       0 :                     ; DIESES PROGRAMM LAEUFT AUF DEM U880-LERNSYSTEM POLY-COMPUTER 880 DES
(1)   17/       0 :                     ; VEB POLYTECHNIK UND STELLT DEM NUTZER EINEN KLEINEN MONITOR ZUR UNTER-
(1)   18/       0 :                     ; STUETZUNG DER PROGRAMMERSTELLUNG ZUR VERFUEGUNG. DAS PROGRAMM ERMOEG-
(1)   19/       0 :                     ; LICHT ES, UEBER DIE TASTATUR DES LERNSYSTEMS DEN SPEICHER- ODER DEN
(1)   20/       0 :                     ; REGISTERINHALT ZU UEBERPRUEFEN UND ZU VERAENDERN, EIN PROGRAMM IN DEN
(1)   21/       0 :                     ; RAM ZU LADEN UND DIESES AUSZUFUEHREN. DIE PROGRAMMTESTUNG WIRD DURCH
(1)   22/       0 :                     ; EINZELSCHRITTBETRIEB UND BELIEBIG VIELE SOFTWAREPRUEFPUNKTE UNTER-
(1)   23/       0 :                     ; STUETZT. DATEN KOENNEN AUF EIN MAGNETBANDGERAET AUSGEGEBEN UND VON
(1)   24/       0 :                     ; DIESEM EINGELESEN WERDEN. IM RAM KOENNEN BEREICHE VERSCHOBEN UND MIT
(1)   25/       0 :                     ; EINEM DATENMUSTER GEFUELLT WERDEN. DER MONITOR GESTATTET DEN ZUGRIFF
(1)   26/       0 :                     ; ZU  ALLEN EIN- UND AUSGABEPORTS. DER NUTZER DES SYSTEMS KANN UNTERPRO-
(1)   27/       0 :                     ; GRAMME ZUR ANSTEUERUNG DER TASTATUR UND DER ANZEIGEEINHEIT DES LERN-
(1)   28/       0 :                     ; SYSTEMS VERWENDEN, DIE IM MONITORPROGRAMM ENTHALTEN SIND.
(1)   29/       0 :                     ; DIE VERWENDUNG VON UNTERBRECHUNGEN IST IN ALLEN 3 BETRIEBSARTEN DES
(1)   30/       0 :                     ; U880 MOEGLICH. NMI IST FUER SYSTEMFUNKTIONEN RESERVIERT.
(1)   31/       0 :                     ;
(1)   32/       0 :                     ;
(1)   33/       0 :                     ; PROGRAMMORGANISATION
(1)   34/       0 :                     ; ====================
(1)   35/       0 :                     ;
(1)   36/       0 :                     ; DAS GESAMTE MONITORPROGRAMM BESTEHT AUS 4 MODULEN. DAS EINTRITTSPRO-
(1)   37/       0 :                     ; GRAMM BEHANDELT ALLE SINNVOLLEN EINTRITTE IN DAS MONITORPROGRAMM VON
(1)   38/       0 :                     ; ANWENDERPROGRAMMEN (EINZELSCHRITTBETRIEB, PRUEFPUNKT) ODER NACH RESET.
(1)   39/       0 :                     ; DAS KONSOLPROGRAMM ERKENNT DIE BETAETIGUNG VON TASTEN UND RUFT ENT-
(1)   40/       0 :                     ; SPRECHENDE BEARBEITUNGSPROGRAMME AUF. WAEHREND DES WARTENS AUF EINE
(1)   41/       0 :                     ; EINGABE WIRD DIE ANZEIGEEINHEIT STAENDIG AUFGEFRISCHT. IM AKTIONSPRO-
(1)   42/       0 :                     ; GRAMM SIND ALLE ROUTINEN ENTHALTEN, DIE DIE EIGENTLICHE REALISIERUNG
(1)   43/       0 :                     ; DER FUNKTIONEN BEWIRKEN. DAS RAMPROGRAMM ENTHAELT DEFINITIONEN, DIE
(1)   44/       0 :                     ; SPEICHERPLAETZE FUER DIE ARBEIT DES MONITORS RESERVIEREN.
(1)   45/       0 :                     ; DAS MONITORPROGRAMM BELEGT 2K BYTE ROM AUF DEN ADRESSEN 0-3FFH UND
(1)   46/       0 :                     ; 1000H-13FFH. DIESE AUFTEILUNG GESTATTET DIE VERWENDUNG EINES EIN-
(1)   47/       0 :                     ; FACHEREN ADRESSDEKODERS. WEITERHIN WIRD DURCH DEN MONITOR DER RAMBE-
(1)   48/       0 :                     ; REICH 43A0H-43FFH BELEGT. ZUSAETZLICH ZU DEN AUFGEZAEHLTEN PROGRAMMEN
(1)   49/       0 :                     ; EXISTIERT EINE QUELLDATEI, DIE EINE ANZAHL VON WERTZUWEISUNGEN ENT-
(1)   50/       0 :                     ; HAELT UND DIE VON ALLEN PROGRAMMEN ALS REFERENZ BENUTZT WIRD.
(1)   51/       0 :                     ;
(1)   52/       0 :                     ;*E
(1)   53/       0 :                     ;*************************************************************************
(1)   54/       0 :                     ;
(1)   55/       0 :                     ; 	EINTRITTSPROGRAMM
(1)   56/       0 :                     ;
(1)   57/       0 :                     ;*************************************************************************
(1)   58/       0 :                     ;
(1)   59/       0 :                     ; 	FUNKTION: BEARBEITET ALLE EINTRITTE IN DAS
(1)   60/       0 :                     ; 		  MONITORPROGRAMM
(1)   61/       0 :                     ; 	EINGABEN: NMIZUS
(1)   62/       0 :                     ; 	AUSGABEN: NMIZUS,PROGZU,VERZWEIGT ZU KONSOL-
(1)   63/       0 :                     ;		  PROGRAMM
(1)   64/       0 :                     ; 	EXTERNAL USERSP SYSTSP ANZBER USSP2
(1)   65/       0 :                     ; 	EXTERNAL BREAKP RAMANF
(1)   66/       0 :                     ; 	EXTERNAL HR1 NMIZUS TRST KOMDAR
(1)   67/       0 :                     ; 	EXTERNAL ADRAUS DAAUS
(1)   68/       0 :                     ; 	EXTERNAL HR4 SYSP24 SYSP26
(1)   69/       0 :                     ; 	EXTERNAL Z10EM4
(1)   70/       0 :                     ;*************************************************************************
(1)   71/       0 :                     ;
(1)   72/       0 :                     ;	RESET-EINTRITTSPUNKT
(1)   73/       0 :                     ;
(1)   74/       0 :                     ;*************************************************************************
(1)   75/       0 :                     	ORG 	0000H
(1)   76/       0 : 31 A2 43            	LD 	SP,USSP2 	; SP FUER ANWENDER
(1)   77/       3 : 01 0C 00            	LD 	BC,PZAHL 	; RAM  INITIALISIEREN
(1)   78/       6 : 21 D5 00            	LD 	HL,IWERTE 	; WERT-TABELLE
(1)   79/       9 : 11 DC 43            	LD 	DE,ANZBER 	; RAM-BEREICH
(1)   80/       C : ED B0               	LDIR 			; RAMINITIALISIERUNG
(1)   81/       E : 3E 0F               	LD 	A,0FH 		;  KODE FUER OUTPUTMODE
(1)   82/      10 : D3 81               	OUT 	(PIOC1),A	; PIO1 PROGRAMMIEREN (SEGMENTANSTEUERUNG)
(1)   83/      12 : 01 83 03            	LD 	BC,300H | PIOC2
(1)   84/      15 : ED B3               	OTIR 			; PIO2 PROGRAMMIEREN (BITMODE)
(1)   85/      17 : 3E 01               	LD 	A,01H 		; ANFANGSDRTEN PIO2
(1)   86/      19 : D3 82               	OUT 	(PIOD2),A 	; DATENAUSGABE
(1)   87/      1B : 3E 05               MONRM1 	LD 	A,05H 		; KODE FUER CTC (TIMER)
(1)   88/      1D : D3 88                	OUT 	(CTC),A 	; CTC STARTEN
(1)   89/      1F : 3E 05                	LD 	A,5 		; ZAEHLKONSTANTE
(1)   90/      21 : D3 88                	OUT 	(CTC),A
(1)   91/      23 : F1                   	POP 	AF
(1)   92/      24 : 18 FE                	JR 	$ 		; WARTEN
(1)   93/      26 :                     ;*************************************************************************
(1)   94/      26 :                     ;
(1)   95/      26 :                     ; 	EINTRITT 	FUER RESTART 5
(1)   96/      26 :                     ;
(1)   97/      26 :                     ;*************************************************************************
(1)   98/      28 :                      	ORG 	28H
(1)   99/      28 : F5                   	PUSH 	AF
(1)  100/      29 : 3E 01                	LD 	A,01H
(1)  101/      2B : 32 E5 43             	LD 	(NMIZUS),A 	; URSACHE EINTRITT MERK.
(1)  102/      2E : 18 EB                	JR 	MONRM1
(1)  103/      30 :                     ;*************************************************************************
(1)  104/      30 :                     ;
(1)  105/      30 :                     ; 	EINTRITT 	FUER RESTART 6
(1)  106/      30 :                     ;
(1)  107/      30 :                     ;*************************************************************************
(1)  108/      30 :                      	ORG 	30H
(1)  109/      30 : F5                   	PUSH 	AF
(1)  110/      31 : 3E 02                 	LD 	A, 02H 		; URSACHE=PR.PUNKT
(1)  111/      33 : 32 E5 43             	LD 	(NMIZUS),A
(1)  112/      36 : 18 E3                	JR 	MONRM1
(1)  113/      38 :                     ;*************************************************************************
(1)  114/      38 :                     ; 
(1)  115/      38 :                     ;	EINTRITTSPUNKT FUER INTERRUPTMODE 0 UND 1
(1)  116/      38 :                     ;
(1)  117/      38 :                     ;*************************************************************************
(1)  118/      38 :                      	ORG 	38H
(1)  119/      38 : C3 00 40             	JP 	RAMANF
(1)  120/      3B :                     ;*************************************************************************
(1)  121/      3B : ED 73 E8 43         NMIM1 	LD 	(HR1),SP 	; SP ABSPEICHERN
(1)  122/      3F : 31 D4 43             	LD 	SP,SYSTSP 	; SYSTEMSTACKPOINTER
(1)  123/      42 : F5                   	PUSH 	AF 		; ERSTER REGISTERSATZ
(1)  124/      43 : C5                   	PUSH 	BC
(1)  125/      44 : D5                   	PUSH 	DE
(1)  126/      45 : E5                   	PUSH 	HL
(1)  127/      46 : 08                   	EX	AF,AF'		; ZWEITER REGISTERSATZ
(1)  128/      47 : D9                   	EXX
(1)  129/      48 : F5                   	PUSH 	AF 		; REGISTER ABSPEICHERN
(1)  130/      49 : C5                   	PUSH 	BC
(1)  131/      4A : D5                   	PUSH 	DE
(1)  132/      4B : E5                   	PUSH 	HL
(1)  133/      4C : ED 57                	LD 	A,I 		; INTERRUPTREG. UND EI
(1)  134/      4E : 47                   	LD 	B, A
(1)  135/      4F : 0E 01                	LD 	C,01H
(1)  136/      51 : EA 56 00             	JP	PE,NMIM2
(1)  137/      54 : 0E 00                	LD 	C,00H 		; EI=0
(1)  138/      56 : C5                  NMIM2 	PUSH 	BC 		; I UND EI ABSPEICHERN
(1)  139/      57 : DD E5                	PUSH 	IX
(1)  140/      59 : FD E5                	PUSH 	IY
(1)  141/      5B : 2A E8 43             	LD 	HL,(HR1) 	; SP HOLEN
(1)  142/      5E : 5E                   	LD 	E, (HL) 	; PC VOM STACK HOLEN
(1)  143/      5F : 23                   	INC 	HL
(1)  144/      60 : 56                   	LD 	D,(HL)
(1)  145/      61 : 23                   	INC 	HL
(1)  146/      62 : E5                   	PUSH 	HL 		; SP ABSPEICHERN
(1)  147/      63 : D5                   	PUSH 	DE 		; PC ABSPEICHERN
(1)  148/      64 : 18 02                	JR 	NMIM3
(1)  149/      66 :                     ;*************************************************************************
(1)  150/      66 :                     ;
(1)  151/      66 :                     ;	EINTRITT 	BEI NMI
(1)  152/      66 :                     ;
(1)  153/      66 :                     ;*************************************************************************
(1)  154/      66 :                     	ORG 	66H
(1)  155/      66 : 18 D3                	JR 	NMIM1
(1)  156/      68 :                     ;*************************************************************************
(1)  157/      68 : 3E 03               NMIM3 	LD 	A,03H
(1)  158/      6A : D3 88                	OUT 	(CTC),A 	; CTC STOPPEN
(1)  159/      6C : FD 21 DC 43          	LD 	IY,ANZBER 	; STAENDIGER ZEIGER
(1)  160/      70 : 3E 41                	LD 	A,41H 		; SCON AUF HOCH
(1)  161/      72 : D3 82                	OUT 	(PIOD2),A 	; FF1 LOESCHEN
(1)  162/      74 : 2A E6 43             	LD 	HL,(BREAKP)
(1)  163/      77 : 3A EE 43             	LD 	A,(HR4) 	; BEFEHLSKODE
(1)  164/      7A : 77                   	LD 	(HL),A
(1)  165/      7B : 3A E5 43             	LD 	A,(NMIZUS)	; EINTRITTSURSACHE
(1)  166/      7E : 3D                   	DEC 	A
(1)  167/      7F : 28 11                	JR	Z,BRSYST 	; SYSTEMPRUEFPUNKT
(1)  168/      81 : 3D                  	DEC  	A
(1)  169/      82 : 28 1D               	JR	Z,BRUSER  	; ANWENDERPRUEFPUNKT
(1)  170/      84 : 3D                  	DEC  	A
(1)  171/      85 : 28 23               	JR	Z,NORST  	; EINZELSCHRITT
(1)  172/      87 : 3D                  	DEC  	A
(1)  173/      88 : 28 37               	JR	Z,BREST  	; SCHRITT NACH PRUEFP.
(1)  174/      8A : 3D                  	DEC  	A
(1)  175/      8B : 28 31               	JR	Z,JPTRST  	; RESET
(1)  176/      8D : 11 57 E5            MONINT  LD  	DE,ANMON  	; MONITORTASTE
(1)  177/      90 : 18 15               	JR  	BRUSM1
(1)  178/      92 : CD C6 00            BRSYST  CALL  	SPPCKO  	; KORREKTUR SP UND PC
(1)  179/      95 : 1B                  	DEC  	DE  		; PC STELLEN
(1)  180/      96 : ED 53 BA 43         	LD  	(SYSP26),DE  	; PC ABSPEICHERN
(1)  181/      9A : FD 36 09 04         	LD  	(IY+NMIZ),4  	; ZUSTAND MERKEN
(1)  182/      9E : C3 4B 11            	JP  	Z10EM4  	; ANSPRUNG STEP
(1)  183/      A1 : CD C6 00            BRUSER  CALL  	SPPCKO  	; ANWENDERPRUEFPUNKT
(1)  184/      A4 : 11 57 C7            	LD  	DE,ANUSBR
(1)  185/      A7 : CD AC 02            BRUSM1  CALL  	KOMDAR  	; DATEN NACH ANZ.BEREICH
(1)  186/      AA : 2A BA 43            NORST  	LD  	HL,(SYSP26)  	; PC
(1)  187/      AD : E5                  	PUSH  	HL
(1)  188/      AE : CD 2D 03            	CALL  	ADRAUS  	; ADR. IN ANZEIGE
(1)  189/      B1 : E1                  	POP  	HL
(1)  190/      B2 : FD CB 05 9E         	RES  	BIA,(IY+5)
(1)  191/      B6 : 66                  	LD  	H,(HL)  	; DATEN IN ANZEIGE
(1)  192/      B7 : CD 38 03            	CALL  	DAAUS
(1)  193/      BA : FD CB 07 9E         	RES  	BIA,(IY+7)
(1)  194/      BE : C3 E4 00            JPTRST  JP  	TAST  		; TASTATUR ANSPRINGEN
(1)  195/      C1 : 11 11 57            BREST  	LD  	DE,ANBREA  	; KODE FUER BREAK
(1)  196/      C4 : 18 E1               	JR 	BRUSM1
(1)  197/      C6 :                     ;*************************************************************************
(1)  198/      C6 :                     ;
(1)  199/      C6 :                     ; 	FUNKTION: KORRIGIERT SP UND PC
(1)  200/      C6 :                     ; 	EINGABE: KEINE
(1)  201/      C6 :                     ; 	AUSGABE: SYSP-24
(1)  202/      C6 :                     ; 		  SYSP-26
(1)  203/      C6 :                     ; 	ZERSTOERT: DE,HL
(1)  204/      C6 :                     ;
(1)  205/      C6 :                     ;*************************************************************************
(1)  206/      C6 : 2A BC 43            SPPCKO 	LD 	HL,(SYSP24) 	; SP LADEN
(1)  207/      C9 : 5E                   	LD 	E,(HL) 		; PC HOLEN
(1)  208/      CA : 23                   	INC 	HL
(1)  209/      CB : 56                   	LD 	D,(HL)
(1)  210/      CC : 23                   	INC 	HL
(1)  211/      CD : 22 BC 43             	LD 	(SYSP24),HL 	; SP ABSPEICHERN
(1)  212/      D0 : ED 53 BA 43          	LD 	(SYSP26),DE 	; PC ABSPEICHERN
(1)  213/      D4 : C9                   	RET
(1)  214/      D5 :                     ;*E
(1)  215/      D5 :                     ;*************************************************************************
(1)  216/      D5 :                     ;
(1)  217/      D5 :                     ; 	DEFINITIONEN
(1)  218/      D5 :                     ;
(1)  219/      D5 :                     ;*************************************************************************
(1)  220/      D5 : =5711H              ANBREA 	EQU 	5711H
(1)  221/      D5 : =E557H              ANMON 	EQU 	0E557H
(1)  222/      D5 : =C757H              ANUSBR 	EQU 	0C757H
(1)  223/      D5 : =BBH                IOBITS 	EQU 	10111011B
(1)  224/      D5 : F1                  IWERTE 	DB 	0F1H 		; ANFANGSWERTE FUER ANZEIGE
(1)  225/      D6 : E7                   	DB 	0E7H
(1)  226/      D7 : 43                   	DB 	43H
(1)  227/      D8 : D6                   	DB 	0D6H
(1)  228/      D9 : 10                   	DB 	10H
(1)  229/      DA : F7                   	DB 	0F7H
(1)  230/      DB : F7                   	DB 	0F7H
(1)  231/      DC : E7                   	DB 	0E7H
(1)  232/      DD : 00                   	DB 	Z1 		; ANFANGSZUSTAND DES MONITORS
(1)  233/      DE : 05                   	DB 	5 		; NMI-ZUSTAND:=RESET
(1)  234/      DF : 00 00                	DW 	0000H 		; BREAKPOINT GELOESCHT
(1)  235/      E1 : =CH                 PZAHL 	EQU 	12
(1)  236/      E1 : CF                   	DB 	0CFH
(1)  237/      E2 : BB                   	DB 	IOBITS
(1)  238/      E3 : 07                   	DB 	07H
(1)  239/      E4 :                     ;*INCLUDE LERNSYSTEMEQU.S
(1)  240/      E4 :                     ;	END
(1)  241/      E4 :                     
(1)  242/      E4 :                     
      16/      E4 :                     	INCLUDE KONSOLE.ASM
(1)    1/      E4 :                     ;*************************************************************************
(1)    2/      E4 :                     ;
(1)    3/      E4 :                     ;
(1)    4/      E4 :                     ;		LERNSYSTEMKONSOLE
(1)    5/      E4 :                     ;
(1)    6/      E4 :                     ;
(1)    7/      E4 :                     ;*************************************************************************
(1)    8/      E4 :                     ;
(1)    9/      E4 :                     ;
(1)   10/      E4 :                     ;FUNKTION: FUEHRT ABFRAGE DER TASTUTUR AUS UND VERZWEIGT IN ABHAENGIG-
(1)   11/      E4 :                     ;	    KEIT VON DER EINGABE. DIE ANZEIGEEINHEIT WIRD STAENDIG AUFGE-
(1)   12/      E4 :                     ;	   FRISCHT.
(1)   13/      E4 :                     ;EINGABEN: DATEN IN ANZBER
(1)   14/      E4 :                     ;AUSGABEN: PROGZU
(1)   15/      E4 :                     ;ZERSTOERT: AF,BC,DE,HL,TASTBI
(1)   16/      E4 :                     ;
(1)   17/      E4 :                     ;
(1)   18/      E4 :                     ;*************************************************************************
(1)   19/      E4 :                     ;	GLOBAL 	TAST TASTU TASTB1 KONSOL KONTAS
(1)   20/      E4 :                     ;	EXTERNAL ZUSTAB HR3 KOMDAR
(1)   21/      E4 :                     ;	EXTERNAL ANZBER TASTBI PROGZU
(1)   22/      E4 :                     	ORG	00E4H
(1)   23/      E4 : CD 4B 01            TAST	CALL	TASTU		; AUFRUF EINMALIGER ABFRAGE DER TASTATUR
(1)   24/      E7 : 28 FB               	JR	Z,TAST		; ZERO = KEINE EINGABE
(1)   25/      E9 : 21 F4 01            	LD	HL,ZUSTAB	; ANFANG DER ZUSTANDSTABELLE
(1)   26/      EC : CB 47               	BIT 	0,A
(1)   27/      EE : 28 56               	JR	Z,TASTZ		; ZIFFER EINGEGEBEN
(1)   28/      F0 : E6 F0               	AND 	0F0H
(1)   29/      F2 : FE 40               	CP	KODENT		; ENTER?
(1)   30/      F4 : 20 13               	JR	NZ,TASTA
(1)   31/      F6 : 16 00               TASTC	LD	D,00H
(1)   32/      F8 : FD 5E 08            	LD	E,(IY+PROZ)	; PROGRAMMZUSTAND LADEN
(1)   33/      FB : CB 23               	SLA	E
(1)   34/      FD : CB 23               	SLA	E		; *4
(1)   35/      FF : 19                  	ADD	HL,DE		; BERECHNUNG DER ANSPRUNGADRESSE
(1)   36/     100 : 5E                  	LD	E,(HL)
(1)   37/     101 : 23                  	INC	HL
(1)   38/     102 : 56                  	LD	D,(HL)		; ANSPRUNGADRESSE LADEN
(1)   39/     103 : EB                  	EX	DE,HL
(1)   40/     104 : 11 E4 00            	LD	DE,TAST		; RUECKKEHARDRESSE VORBEREITEN
(1)   41/     107 : D5                  	PUSH 	DE
(1)   42/     108 : E9                  	JP	(HL)		; ANSPRUNG EINER 'AKTION'
(1)   43/     109 : FE 50               TASTA	CP	KODVR		; TASTE 'BACK'?
(1)   44/     10B : 20 19               	JR	NZ,TASTB
(1)   45/     10D : 3A E4 43            	LD	A,(PROGZU)
(1)   46/     110 : FE 04               	CP	Z4		; ZUSTAENDE IN DENEN 'BACK' ZULAESSIG
(1)   47/     112 : 28 0C               	JR	Z,TASTD		; ERKENNEN
(1)   48/     114 : FE 08               	CP	Z7
(1)   49/     116 : 28 08               	JR	Z,TASTD
(1)   50/     118 : FE 03               	CP	Z4A
(1)   51/     11A : 28 04               	JR	Z,TASTD
(1)   52/     11C : FE 05               	CP	Z4C
(1)   53/     11E : 20 C4               	JR	NZ,TAST
(1)   54/     120 : FD CB 01 DE         TASTD	SET	3,(IY+1)	; 'BACK' KENNZEICHNEN
(1)   55/     124 : 18 D0               	JR	TASTC
(1)   56/     126 : 0F                  TASTB	RRCA			; KOMMANDO-EINGABE ERFOLGT
(1)   57/     127 : 0F                  	RRCA
(1)   58/     128 : 0F                  	RRCA
(1)   59/     129 : 3D                  	DEC	A
(1)   60/     12A : 3D                  	DEC	A
(1)   61/     12B : 4F                  TASTB1 	LD 	C,A 		; EINTRITT FUER F-KOMMANDOS
(1)   62/     12C : 06 00               	LD 	B,00H
(1)   63/     12E : 21 D8 01            	LD 	HL,ANZKNA 	; ANZEIGE DES KOMMANDOS
(1)   64/     131 : 09                  	ADD 	HL,BC
(1)   65/     132 : 5E                  	LD 	E,(HL)
(1)   66/     133 : 23                  	INC 	HL
(1)   67/     134 : 56                  	LD 	D,(HL)
(1)   68/     135 : C5                  	PUSH 	BC
(1)   69/     136 : CD AC 02            	CALL 	KOMDAR 		; NAME KOMMANDO IN ANZEIGE
(1)   70/     139 : C1                  	POP 	BC
(1)   71/     13A : CB 39               	SRL 	C
(1)   72/     13C : 21 CA 01            	LD 	HL,KZUADR 	; ADRESSE FUER ZUSTAND BESTIMMEN
(1)   73/     13F : 09                  	ADD 	HL,BC
(1)   74/     140 : 5E                  	LD 	E,(HL)
(1)   75/     141 : FD 73 08            	LD 	(IY+PROZ),E 	; NEUEN ZUSTAND ABSPEICHERN
(1)   76/     144 : 18 9E               	JR 	TAST
(1)   77/     146 : 23                  TASTZ 	INC 	HL 		; ZIFFER EINGEGEBEN
(1)   78/     147 : 23                  	INC 	HL
(1)   79/     148 : 79                  	LD 	A,C
(1)   80/     149 : 18 AB               	JR 	TASTC
(1)   81/     14B :                     ;*E
(1)   82/     14B :                     ;*************************************************************************
(1)   83/     14B :                     ;
(1)   84/     14B :                     ;
(1)   85/     14B :                     ;	UNTERPROGRAMM TASTU
(1)   86/     14B :                     ;
(1)   87/     14B :                     ;
(1)   88/     14B :                     ;*************************************************************************
(1)   89/     14B :                     ;
(1)   90/     14B :                     ;FUNKTION: FUEHRT EINE EINMALIGE ABFRAGE DER TASTATUR AUS UND FRISCHT
(1)   91/     14B :                     ;	   DABEI DIE ANZEIGE EINMAL AUF
(1)   92/     14B :                     ;EINGABEN: ANZBER
(1)   93/     14B :                     ;AUSGABEN: ZERO - ZEIGT AN, OB TASTE BETAETIGT WURDE
(1)   94/     14B :                     ; 	   A - KODE DER TASTE
(1)   95/     14B :                     ; 	    C - EINGEGEBENE ZIFFER IN HEX.DARSTELLUNG
(1)   96/     14B :                     ;ZERSTOERT: F, B, DE, HL
(1)   97/     14B : 11 DC 43            TASTU 	LD 	DE,ANZBER 	; ANFANGSWERT FUER EINGEABE
(1)   98/     14E : 21 D4 43            KONSOL 	LD 	HL,TASTBI 	; TABELLE MIT ABBILD DER TASTATUR
(1)   99/     151 : AF                  KONTAS 	XOR 	A 		; ANFANGSWERT FUER EINGABE
(1)  100/     152 : 32 EC 43            	LD 	(HR3),A
(1)  101/     155 : 06 80               TAST10 	LD 	B,80H 		; AUSGABE FUER DIGITTREIBER
(1)  102/     157 : 1A                  TAST11 	LD 	A,(DE) 		; AUSGABEWERT
(1)  103/     158 : D3 80               TASTX 	OUT 	(PIOD1),A 	; SEGMENTE
(1)  104/     15A : 78                  	LD 	A,B
(1)  105/     15B : D3 FC               	OUT 	(PIODIG),A	; DIGITS
(1)  106/     15D : 13                  	INC 	DE
(1)  107/     15E : D5                  	PUSH 	DE
(1)  108/     15F : DB 82               	IN 	A,(PIOD2) 	; TASTATUR ABFRAGEN
(1)  109/     161 : E6 B0               	AND 	0B0H 		; MASKE FUER EINGABEBITS DER TASTEN
(1)  110/     163 : 5E                  	LD 	E,(HL) 		; ABBILDWERT HOLEN
(1)  111/     164 : 0E 04               	LD 	C,4 		; ZAEHLER
(1)  112/     166 : 17                  TASTX1 	RLA
(1)  113/     167 : 57                  	LD 	D,A
(1)  114/     168 : 38 0B               	JR	C,TASTX4 	; TASTE IST GEDRUECKT
(1)  115/     16A : 7B                  	LD 	A,E
(1)  116/     16B : 0F                  	RRCA
(1)  117/     16C : 0F                  	RRCA
(1)  118/     16D : 5F                  	LD 	E,A
(1)  119/     16E : E6 03               	AND 	03H
(1)  120/     170 : 28 1D               	JR	Z,TASTX2
(1)  121/     172 : 1D                  	DEC 	E 		; ENTPRELLZAEHLER DECREMENTIEREN
(1)  122/     173 : 18 1A               TASTX3 	JR 	TASTX2
(1)  123/     175 : 7B                  TASTX4 	LD 	A,E 		; TASTE GEDRUECKT
(1)  124/     176 : 0F                  	RRCA
(1)  125/     177 : 0F                  	RRCA
(1)  126/     178 : 5F                  	LD 	E,A
(1)  127/     179 : E6 03               	AND 	03H
(1)  128/     17B : 20 0E               	JR	NZ,TASTX6 	; KEINE NEUE TASTE
(1)  129/     17D : 79                  	LD 	A,C
(1)  130/     17E : C5                  	PUSH 	BC
(1)  131/     17F : C6 10               TASTX7 	ADD 	A,10H 		; KODE ERRECHNEN
(1)  132/     181 : CB 08               	RRC 	B
(1)  133/     183 : CB 70               	BIT 	6,B
(1)  134/     185 : 28 F8               	JR	Z,TASTX7 	; BERECHNUNG TASTENWERT
(1)  135/     187 : 32 EC 43            	LD 	(HR3),A 	; KODE ABSPEICHERN
(1)  136/     18A : C1                  	POP 	BC
(1)  137/     18B : 7B                  TASTX6 	LD 	A,E
(1)  138/     18C : F6 03               	OR 	03H 		; TASTE IST GEDRUECKT ERKEN
(1)  139/     18E : 5F                  	LD 	E,A
(1)  140/     18F : 7A                  TASTX2 	LD 	A,D
(1)  141/     190 : 0D                  	DEC 	C 		; ZYKLUSZAEHLER
(1)  142/     191 : 20 D3               	JR	NZ,TASTX1 	; SCHLEIFE SCHLIESSEN
(1)  143/     193 : 7B                  	LD 	A,E
(1)  144/     194 : 77                  	LD 	(HL),A 		; TASTABBILD SPEICHERN
(1)  145/     195 : 23                  	INC 	HL
(1)  146/     196 : D1                  	POP 	DE
(1)  147/     197 : 3E 28               	LD 	A,ZEIT
(1)  148/     199 : =28H                ZEIT 	EQU 	40
(1)  149/     199 : 3D                  TASTX5 	DEC 	A 		; WARTESCHLEIFE FUER ANZEIGE EINER DIGIT
(1)  150/     19A : 20 FD               	JR	NZ,TASTX5
(1)  151/     19C : 3E 00               	LD 	A,00H
(1)  152/     19E : D3 FC               	OUT 	(PIODIG),A 	; DIGITS ABSCHALTEN
(1)  153/     1A0 : CB 08               	RRC 	B 		; NAECHSTES DIGIT ANWAEHLEN
(1)  154/     1A2 : 30 B3               	JR	NC,TAST11
(1)  155/     1A4 : 3A EC 43            	LD 	A,(HR3)
(1)  156/     1A7 : F5                  	PUSH 	AF 		; ZYKLUS FERTIG
(1)  157/     1A8 : CB 4F               	BIT 	1,A 		; ZIFFERNBEREICH FESTSTELLEN
(1)  158/     1AA : 20 03               	JR	NZ,TAST30
(1)  159/     1AC : 06 04               	LD 	B,4
(1)  160/     1AE : FE                  	DB 	0FEH 		; KODE 'CP'
(1)  161/     1AF : 06 00               TAST30 	LD 	B,00H
(1)  162/     1B1 : E6 F0               	AND 	0F0H 		; HEX.KODE FUER ZIFFER BERECHNUNG
(1)  163/     1B3 : 11 C2 01            	LD 	DE,ZITAB
(1)  164/     1B6 : 1B                  	DEC 	DE
(1)  165/     1B7 : 13                  TAST32 	INC 	DE
(1)  166/     1B8 : D6 10               	SUB 	10H
(1)  167/     1BA : 20 FB               	JR	NZ,TAST32
(1)  168/     1BC : 1A                  	LD 	A,(DE) 		; KODE AUS TABELLE LADEN
(1)  169/     1BD : 80                  	ADD 	A,B
(1)  170/     1BE : 4F                  	LD 	C,A 		; HEX.KODE IN C UEBERGEBEN
(1)  171/     1BF : F1                  	POP 	AF
(1)  172/     1C0 : A7                  TAST33 	AND 	A 		; TEST OB EINGABE ERFOLGTE
(1)  173/     1C1 : C9                  	RET
(1)  174/     1C2 :                     ;*E
(1)  175/     1C2 :                     ;*************************************************************************
(1)  176/     1C2 :                     ;
(1)  177/     1C2 :                     ; DEFINITIONEN
(1)  178/     1C2 :                     ;
(1)  179/     1C2 :                     ;*************************************************************************
(1)  180/     1C2 : =40H                KODENT 	EQU 	40H 		; KODE BEI EINGABE VON 'EXEC'
(1)  181/     1C2 : =50H                KODVR 	EQU 	50H 		; KODE BEI EINGABE VON 'BACK'
(1)  182/     1C2 : 0A                  ZITAB 	DB 	0AH 		; TABELLE VON HEX.KODES FUER ZIFFERN
(1)  183/     1C3 : 00                  	DB	00H
(1)  184/     1C4 : 02                  	DB	2H
(1)  185/     1C5 : 03                  	DB	3H
(1)  186/     1C6 : 01                  	DB	1H
(1)  187/     1C7 : 08                  	DB	8H
(1)  188/     1C8 : 09                  	DB	9H
(1)  189/     1C9 : 0B                  	DB	0BH
(1)  190/     1CA : 06                  KZUADR 	DB	Z5 		; TABELLE FUER ZUSTAENDE BEI KOMMANDOAUFRUF
(1)  191/     1CB : 09                  	DB	Z8
(1)  192/     1CC : 00                  	DB	Z1
(1)  193/     1CD : 00                  	DB	Z1
(1)  194/     1CE : 00                  	DB	Z1
(1)  195/     1CF : 01                  	DB	Z2
(1)  196/     1D0 : 0F                  	DB	Z16
(1)  197/     1D1 : 0C                  	DB	Z12
(1)  198/     1D2 : 27                  	DB	Z46
(1)  199/     1D3 : 2A                  	DB	Z49
(1)  200/     1D4 : 1B                  	DB	Z34
(1)  201/     1D5 : 21                  	DB	Z40
(1)  202/     1D6 : 10                  	DB	Z17
(1)  203/     1D7 : 16                  	DB	Z22
(1)  204/     1D8 : E5 E5               ANZKNA	DW	0E5E5H 		; TABELLE FUER NAMEN DER KOMMANDOS
(1)  205/     1DA : 17 67               	DW	6717H
(1)  206/     1DC : 00 00               	DW	0000H
(1)  207/     1DE : 00 00               	DW	0000H
(1)  208/     1E0 : 00 00               	DW	0000H
(1)  209/     1E2 : 67 11               	DW	1167H
(1)  210/     1E4 : C7 71               	DW	71C7H
(1)  211/     1E6 : 53 76               	DW	7653H
(1)  212/     1E8 : 84 F1               	DW	0F184H
(1)  213/     1EA : E7 F1               	DW	0F1E7H
(1)  214/     1EC : 73 E5               	DW	0E573H
(1)  215/     1EE : 43 71               	DW	7143H
(1)  216/     1F0 : 84 E5               	DW	0E584H
(1)  217/     1F2 : E7 E5               	DW	0E5E7H
(1)  218/     1F4 :                     ;*INCLUDE LERNSYSTEMEQU.S
(1)  219/     1F4 :                     ;	END
(1)  220/     1F4 :                     
      17/     1F4 :                     	INCLUDE AKTIONEN.ASM
(1)    1/     1F4 :                     ;*************************************************************************
(1)    2/     1F4 :                     ;
(1)    3/     1F4 :                     ;	AKTIONSPROGRAMME DES LERNSYSTEMS
(1)    4/     1F4 :                     ;
(1)    5/     1F4 :                     ;*************************************************************************
(1)    6/     1F4 :                     ;
(1)    7/     1F4 :                     ; FUNKTION: FUEHRT DIE EINGEGEBENEN KOMMANDOS AUS
(1)    8/     1F4 :                     ;
(1)    9/     1F4 :                     	ORG 	01F4H
(1)   10/     1F4 :                     ;	GLOBAL 	ZUSTAB KOMDAR ADRAUS DAAUS
(1)   11/     1F4 :                     ;	GLOBAL 	ANZDEC ADRANZ DASCH
(1)   12/     1F4 :                     ;	GLOBAL 	Z10EM4 FUNKAN RDYANZ ZIFANZ
(1)   13/     1F4 :                     ;	GLOBAL 	LDMA BS DS BL DL
(1)   14/     1F4 :                     ;	EXTERNAL TASTB1 TASTU
(1)   15/     1F4 :                     ;	EXTERNAL ANZB2 ANZB6
(1)   16/     1F4 :                     ;	EXTERNAL ANZBER HR1 HR2 HR3 ANZB4
(1)   17/     1F4 :                     ;	EXTERNAL RAMANF RAMEND BREAKP
(1)   18/     1F4 :                     ;	EXTERNAL SYSP26 SYSP1 FSTACK
(1)   19/     1F4 :                     ;	EXTERNAL HR4
(1)   20/     1F4 :                     ;*************************************************************************
(1)   21/     1F4 :                     ;
(1)   22/     1F4 :                     ;	ZUSTANDSTABELLE
(1)   23/     1F4 :                     ;
(1)   24/     1F4 :                     ;*************************************************************************
(1)   25/     1F4 :                     ;
(1)   26/     1F4 :                     ;	FUNKTION: ENTHAELT ANSPRUNGADRESSEN FUER AUSZUFUEHRENDE
(1)   27/     1F4 :                     ;	AKTIONEN IN ABHAENGIGKEIT VOM ZUSTAND DES
(1)   28/     1F4 :                     ;	MONITORS UND DER EINGABE.
(1)   29/     1F4 :                     ;	DIE ERSTE ANSPRUNGADRESSE EINES ZUSTANDES WIRD
(1)   30/     1F4 :                     ;	BEI EINGABE VON 'EXEC' ANGESPRUNGEN, DIE ZWEITE
(1)   31/     1F4 :                     ;	BEI BETAETIGUNG DER HEXADEZIMALTASTATUR.
(1)   32/     1F4 :                     ;*************************************************************************
(1)   33/     1F4 : A4 03               ZUSTAB 	DW 	RETURN 		; Z1: 	KEIN KOMMANDO ANGEWAEHLT
(1)   34/     1F6 : A4 03               	DW 	RETURN
(1)   35/     1F8 :                     ;*************************************************************************
(1)   36/     1F8 : D3 03               	DW 	Z2E 		; Z2: 	KOMMANDO 'REGISTER' GEWAEHLT
(1)   37/     1FA : A5 03               	DW 	Z2Z
(1)   38/     1FC : DA 03               	DW 	Z3E 		; Z3: 	REGISTERNAME EINGEGEBEN
(1)   39/     1FE : A9 03               	DW 	Z3Z
(1)   40/     200 : 10 10               	DW 	Z4AE 		; Z4A: 	MODIFIKATION DES HOEHERWERTIGEN
(1)   41/     202 : C0 03               	DW 	Z4AZ 		; 	REGISTERS
(1)   42/     204 : 43 10               	DW 	Z4E 		; Z4: 	MODIFIKATION DES NIEDERWERTIGEN
(1)   43/     206 : B5 03               	DW 	Z4Z 		;	REGISTERS
(1)   44/     208 : 58 10               	DW 	Z4CE 		; Z4C: 	MODIFIKATION EINES WORTREGISTERS
(1)   45/     20A : CC 03               	DW 	Z4CZ
(1)   46/     20C :                     ;*************************************************************************
(1)   47/     20C : 80 10               	DW 	Z5E 		; Z5: 	KOMMANDO SPEICHERMODIFIKATION
(1)   48/     20E : 9B 10               	DW 	Z5Z
(1)   49/     210 : AB 10               	DW 	Z6E 		; Z6: 	SPEICHERADRESSE EINGEGEBEN
(1)   50/     212 : A4 10               	DW 	Z6Z
(1)   51/     214 : B0 10               	DW 	Z7E 		; Z7: 	DATEN IM SPEICHER MODIFIZIERBAR
(1)   52/     216 : B5 03               	DW 	Z4Z
(1)   53/     218 :                     ;*************************************************************************
(1)   54/     218 : C7 10               	DW 	Z8E 		; Z8: 	KOMMANDO PROGRAMMSTART GEWAEHLT
(1)   55/     21A : 9B 10               	DW 	Z5Z
(1)   56/     21C : DF 10               	DW 	Z9E 		; Z9: 	EINGABE EINER NEUEN STARTADRESSE
(1)   57/     21E : A4 10               	DW 	Z6Z
(1)   58/     220 : E7 10               	DW 	Z10E 		; Z10: 	EINGABE EINES PRUEFPUNKTES
(1)   59/     222 : A4 10               	DW 	Z6Z
(1)   60/     224 :                     ;*************************************************************************
(1)   61/     224 : 39 11               	DW 	Z12E 		; Z12: 	KOMMANDO SCHRITTBETRIEB GEWAEHLT
(1)   62/     226 : 9B 10               	DW 	Z5Z
(1)   63/     228 : 33 11               	DW 	Z13E 		; Z13: 	ADRESSE FUER SCHRITT EINGEBEN
(1)   64/     22A : A4 10               	DW 	Z6Z	
(1)   65/     22C : 3D 11               	DW 	Z14E 		; Z14: 	SCHRITT(E) WURDE(N) AUSGEFUEHRT
(1)   66/     22E : A4 03               	DW 	RETURN
(1)   67/     230 :                     ;*************************************************************************
(1)   68/     230 : A4 03               	DW 	RETURN 		; Z16:	KOMMANDO FUNKTION WURDE ANGEWAEHLT
(1)   69/     232 : 57 11               	DW 	Z16Z
(1)   70/     234 :                     ;*************************************************************************
(1)   71/     234 : A4 03               	DW 	RETURN 		; Z17:	MAGNETBANDEINGABE WURDE ANGEWAEHLT
(1)   72/     236 : 9B 10               	DW 	Z5Z
(1)   73/     238 : 7E 11               	DW 	Z18E 		; Z18: 	EINGABE DER ANFANGSADRESSE
(1)   74/     23A : A4 10               	DW 	Z6Z
(1)   75/     23C : A4 03               	DW 	RETURN 		; Z19:	ANFANGSADRESSE UEBERNOMMEN
(1)   76/     23E : 9B 10               	DW 	Z5Z
(1)   77/     240 : 8E 11               	DW 	Z20E 		; Z20:	EINGABE DER ENDADRESSE
(1)   78/     242 : A4 10               	DW 	Z6Z
(1)   79/     244 : 95 11               	DW 	Z21AE 		; Z21A: ABFRAGE 'READY?'
(1)   80/     246 : A4 03               	DW 	RETURN
(1)   81/     248 : B0 11               	DW 	Z21E 		; Z21:	AUSFUEHRUNG UND FEHLERANZEIGE
(1)   82/     24A : A4 03               	DW 	RETURN
(1)   83/     24C :                     ;*************************************************************************
(1)   84/     24C : A4 03               	DW	RETURN 		; Z22:	MAGNETBRNDAUSGABE GEWAEHLT
(1)   85/     24E : 9B 10               	DW	Z5Z
(1)   86/     250 : 7E 11               	DW	Z18E 		; Z23:	EINGABE DER ANFANGSADRESSE
(1)   87/     252 : A4 10               	DW	Z6Z
(1)   88/     254 : A4 03               	DW	RETURN 		; Z24: 	ANFANGSADRESSE UEBERNOMMEN
(1)   89/     256 : 9B 10               	DW	Z5Z
(1)   90/     258 : 8E 11               	DW	Z20E 		; Z25: 	EINGABE DER ENDADRESSE
(1)   91/     25A : A4 10               	DW	Z6Z
(1)   92/     25C : CB 11               	DW	Z25AE 		; Z25A:	ABFRAGE 'READY?' UND AUSFUEHRUNG
(1)   93/     25E : A4 03               	DW	RETURN
(1)   94/     260 :                     ;*************************************************************************
(1)   95/     260 : A4 03               	DW	RETURN 		; Z34:	KOMMANDO DATENTRANSPORT GEWAEHLT
(1)   96/     262 : 9B 10               	DW	Z5Z
(1)   97/     264 : 4E 13               	DW	Z35E 		; Z35: 	EINGABE DER ZIELADRESSE
(1)   98/     266 : A4 10               	DW	Z6Z
(1)   99/     268 : A4 03               	DW	RETURN 		; Z36: 	ZIELADRESSE WURDE UEBERNOMMEN
(1)  100/     26A : 9B 10               	DW	Z5Z
(1)  101/     26C : 54 13               	DW	Z37E 		; Z37: 	EINGABE DER QUELLADRESSE
(1)  102/     26E : A4 10               	DW	Z6Z
(1)  103/     270 : A4 03               	DW	RETURN 		; Z38: 	QUELLRDRESSE WURDE UEBERNOMMEN
(1)  104/     272 : 9B 10               	DW	Z5Z
(1)  105/     274 : 60 13               	DW	Z39E 		; Z39: 	EINGABE DER LAENGE UND AUSFHRG.
(1)  106/     276 : A4 10               	DW	Z6Z
(1)  107/     278 :                     ;*************************************************************************
(1)  108/     278 : A4 03               	DW	RETURN 		; Z40: 	KOMMANDO FUELLEN GEWAEHLT
(1)  109/     27A : 9B 10               	DW	Z5Z
(1)  110/     27C : 89 13               	DW	Z41E 		; Z41: 	EINGABE DER ANFANGSADRESSE
(1)  111/     27E : A4 10               	DW	Z6Z
(1)  112/     280 : A4 03               	DW	RETURN 		; Z42: 	ANFANGSADRESSE WURDE UEBERNOMMEN
(1)  113/     282 : 9B 10               	DW	Z5Z
(1)  114/     284 : 8F 13               	DW	Z43E 		; Z43: 	EINGABE DER ENDADRESSE
(1)  115/     286 : A4 10               	DW	Z6Z
(1)  116/     288 : A4 03               	DW	RETURN 		; Z44: 	ENDADRESSE WURDE UEBERNOMMEN
(1)  117/     28A : 94 13               	DW	Z44Z
(1)  118/     28C : A0 13               	DW	Z45E 		; Z45: 	EINGABE DES DATENMUSTERS UND
(1)  119/     28E : B5 03               	DW	Z4Z 		;	AUSFUEHRUNG
(1)  120/     290 :                     ;*************************************************************************
(1)  121/     290 : A4 03               	DW	RETURN 		; Z46: 	KOMMANDO PORTEINGABE ANGEWAEHLT
(1)  122/     292 : 9B 10               	DW	Z5Z
(1)  123/     294 : C1 13               	DW	Z47E 		; Z47: 	EINGABE DER PORTADRESSE
(1)  124/     296 : B6 13               	DW	Z47Z
(1)  125/     298 : C4 13               	DW	Z48E 		; Z48: 	DARSTELLUNG GELESENER DATEN
(1)  126/     29A : B6 13               	DW	Z47Z
(1)  127/     29C :                     ;*************************************************************************
(1)  128/     29C : A4 03               	DW	RETURN 		; Z49: 	KOMMANDO PBRTEINGABE GEWAEHLT
(1)  129/     29E : 9B 10               	DW	Z5Z
(1)  130/     2A0 : D1 13               	DW	Z50E 		; Z50: 	EINGABE DER PORTADRESSE
(1)  131/     2A2 : B6 13               	DW	Z47Z
(1)  132/     2A4 : A4 03               	DW	RETURN 		; Z51: 	PORTADRESSE WURDE UEBERNOMMEN
(1)  133/     2A6 : 94 13               	DW	Z44Z
(1)  134/     2A8 : E3 13               	DW	Z52E 		; Z52: 	EINGABE DER. AUSGABEDATEN UND
(1)  135/     2AA : B5 03               	DW	Z4Z 		;	AUSFUEHRUNG
(1)  136/     2AC :                     ;*E
(1)  137/     2AC :                     ;*************************************************************************
(1)  138/     2AC :                     ;
(1)  139/     2AC :                     ; MACRO-DEFINITIONEN
(1)  140/     2AC :                     ;
(1)  141/     2AC :                     ;*************************************************************************
(1)  142/     2AC :                     SBWC 	MACRO 			; REGISTERPAARSUBTRAKTION OHNE CARRY
(1)  143/     2AC :                     	AND 	A
(1)  144/     2AC :                     	SBC 	HL,DE
(1)  145/     2AC :                     	ENDM
(1)  146/     2AC :                     WAIT 	MACRO PWAIT 		; ZEITSCHLEIFE
(1)  147/     2AC :                     	LD 	B,PWAIT
(1)  148/     2AC :                     	DJNZ	$
(1)  149/     2AC :                     	ENDM
(1)  150/     2AC :                     SWAIT 	MACRO PSW
(1)  151/     2AC :                     	LD 	A,PSW
(1)  152/     2AC :                     SWSYM 	DEC 	A
(1)  153/     2AC :                     	JR	NZ,SWSYM
(1)  154/     2AC :                     	ENDM
(1)  155/     2AC :                     ;*M OFF				; KEINE MACROEXPANSION IN DER LISTE
(1)  156/     2AC :                     ;*E
(1)  157/     2AC :                     ;*************************************************************************
(1)  158/     2AC :                     ;
(1)  159/     2AC :                     ; UNTERPROGRAMME
(1)  160/     2AC :                     ;
(1)  161/     2AC :                     ;*************************************************************************
(1)  162/     2AC :                     ;
(1)  163/     2AC :                     ; KOMMANDODARSTELLUNG
(1)  164/     2AC :                     ;
(1)  165/     2AC :                     ; FUNKTION: TRANSPORTIERT INHALT VON DE IN DEN ANZEIGEBEREICH (LINKS-
(1)  166/     2AC :                     ; 	    BUENDIG). WIRD ZUR ANZEIGE DER KOMMANDOART VERWENDET.
(1)  167/     2AC :                     ;	    DER UEBRIGE ANZEIGEBEREICH WIRD GELOESCHT (AUF 00H GESETZT).
(1)  168/     2AC :                     ; ZERSTOERT: F,B,HL
(1)  169/     2AC : 21 DC 43            KOMDAR 	LD 	HL,ANZBER 	; KOM. IN ANZ
(1)  170/     2AF : 72                  FUNKAN 	LD 	(HL),D 		; FUNKTIONSANZEIGE
(1)  171/     2B0 : 23                  	INC 	HL
(1)  172/     2B1 : 73                  	LD 	(HL),E
(1)  173/     2B2 : 06 06               	LD 	B,6
(1)  174/     2B4 : 23                  KOMDA1	INC 	HL
(1)  175/     2B5 : 36 00               	LD 	(HL),00H 	; REST DER ANZEIGE LOESCHEN
(1)  176/     2B7 : 10 FB               	DJNZ 	KOMDA1
(1)  177/     2B9 : C9                  	RET
(1)  178/     2BA :                     ;*************************************************************************
(1)  179/     2BA :                     ;
(1)  180/     2BA :                     ; MAGNETBAND BEREIT
(1)  181/     2BA :                     ;
(1)  182/     2BA :                     ; FUNKTION: TRANSPORTIERT TEXT ' READY ?' IN ANZEIGEBEREICH
(1)  183/     2BA :                     ; ZERSTOERT: F, BC, DE, HL
(1)  184/     2BA :                     ;
(1)  185/     2BA : 11 DC 43            MBREADY LD 	DE,ANZBER
(1)  186/     2BD : 21 C6 02            RDYANZ 	LD 	HL,MBRTEX 	; ANZEIGE 'READY?'
(1)  187/     2C0 : 01 08 00            TRANS 	LD 	BC,8
(1)  188/     2C3 : ED B0               	LDIR
(1)  189/     2C5 : C9                  	RET
(1)  190/     2C6 :                     MBRTEX
(1)  191/     2C6 : 00                  	DB 	00H
(1)  192/     2C7 : 11                  	DB 	11H
(1)  193/     2C8 : 73                  	DB 	73H
(1)  194/     2C9 : F5                  	DB 	0F5H
(1)  195/     2CA : 97                  	DB 	97H
(1)  196/     2CB : D6                  	DB 	0D6H
(1)  197/     2CC : 00                  	DB 	00H
(1)  198/     2CD : B9                  	DB 	0B9H
(1)  199/     2CE :                     ;*************************************************************************
(1)  200/     2CE :                     ; DATENSCHIEBEN
(1)  201/     2CE :                     ;
(1)  202/     2CE :                     ; FUNKTION: VERSCHIEBT D3 BIS D0 IM ACCU IN DAS HILFSREGISTER HR1
(1)  203/     2CE :                     ; ZERSTOERT: HL
(1)  204/     2CE :                     ;
(1)  205/     2CE : 21 E8 43            DASCH 	LD 	HL,HR1
(1)  206/     2D1 : F5                  LDMA 	PUSH 	AF 		; LADE MEMORY MIT A
(1)  207/     2D2 : ED 6F               	RLD
(1)  208/     2D4 : 23                  	INC 	HL
(1)  209/     2D5 : ED 6F               	RLD
(1)  210/     2D7 : F1                  	POP 	AF
(1)  211/     2D8 : C9                  	RET
(1)  212/     2D9 :                     ;*************************************************************************
(1)  213/     2D9 :                     ;
(1)  214/     2D9 :                     ; ANZEIGE EINER ADRESSE
(1)  215/     2D9 :                     ;
(1)  216/     2D9 :                     ; FUNKTION: SCHIEBT DEN INHALT VON A IN DEN ADRESSBEREICH DER ANZEIGE
(1)  217/     2D9 :                     ; IN GEEIGNETEM KODE
(1)  218/     2D9 :                     ; ZERSTOERT: AF,DE
(1)  219/     2D9 :                     :
(1)  220/     2D9 : E5                  ADRANZ 	PUSH 	HL
(1)  221/     2DA : 21 DE 43            	LD 	HL,ANZB2
(1)  222/     2DD : C5                  ADRAN1 	PUSH 	BC
(1)  223/     2DE : 06 03               	LD 	B,3
(1)  224/     2E0 : 18 07               	JR 	DAANZ1
(1)  225/     2E2 :                     ;*************************************************************************
(1)  226/     2E2 :                     ;
(1)  227/     2E2 :                     ; ANZEIGE VON DATEN
(1)  228/     2E2 :                     ;
(1)  229/     2E2 :                     ; FUNKTION: SCHIEBT DEN INHALT VON A IN DEN DATENBEREICH DER ANZEIGE
(1)  230/     2E2 :                     ; IN GEEIGNETEM KODE
(1)  231/     2E2 :                     ; ZERSTOERT: AF,DE
(1)  232/     2E2 :                     ;
(1)  233/     2E2 : E5                  DAANZ 	PUSH 	HL
(1)  234/     2E3 : 21 E2 43            	LD 	HL,ANZB6
(1)  235/     2E6 : C5                  DAANZ3 	PUSH 	BC
(1)  236/     2E7 : 06 01               	LD 	B,1
(1)  237/     2E9 : 5D                  DAANZ1 	LD 	E,L
(1)  238/     2EA : 54                  	LD 	D,H
(1)  239/     2EB : 23                  	INC 	HL
(1)  240/     2EC : E6 0F               	AND 	0FH
(1)  241/     2EE : 4F                  	LD 	C,A
(1)  242/     2EF : 7E                  DAANZ2 	LD 	A,(HL)
(1)  243/     2F0 : CB 9F               	RES 	BIA,A 		; PUNKT LOESCHEN
(1)  244/     2F2 : 12                  	LD 	(DE),A
(1)  245/     2F3 : 13                  	INC 	DE
(1)  246/     2F4 : 23                  	INC 	HL
(1)  247/     2F5 : 10 F8               	DJNZ 	DAANZ2
(1)  248/     2F7 : 21 10 03            	LD 	HL,ANZDEC
(1)  249/     2FA : 09                  	ADD 	HL,BC
(1)  250/     2FB : 7E                  	LD 	A,(HL)
(1)  251/     2FC : 12                  	LD	(DE),A
(1)  252/     2FD : C1                  	POP 	BC
(1)  253/     2FE : E1                  	POP 	HL
(1)  254/     2FF : C9                  	RET
(1)  255/     300 :                     ;*************************************************************************
(1)  256/     300 :                     ;
(1)  257/     300 :                     ; ANZEIGE EINER ZIFFER DURCH EINSCHIEBEN
(1)  258/     300 :                     ; ZERSTOERT AF,DE
(1)  259/     300 :                     ;
(1)  260/     300 : E5                  ZIFANZ 	PUSH 	HL
(1)  261/     301 : C5                  	PUSH 	BC
(1)  262/     302 : 18 E5               	JR 	DAANZ1
(1)  263/     304 :                     ;*************************************************************************
(1)  264/     304 :                     ;
(1)  265/     304 :                     ; ANZEIGE VON DATEN IM ANZEIGEBEREICH 4,5
(1)  266/     304 :                     ;
(1)  267/     304 :                     ; FUNKTION: SCHIEBT DATEN AUS A IN DEN ANZEIGEBEREICH
(1)  268/     304 :                     ; ZERSTOERT: AF, DE
(1)  269/     304 :                     ;
(1)  270/     304 : E5                  HDAANZ 	PUSH 	HL
(1)  271/     305 : 21 E0 43            	LD 	HL,ANZB4
(1)  272/     308 : 18 DC               	JR 	DAANZ3
(1)  273/     30A :                     ;*************************************************************************
(1)  274/     30A :                     ;
(1)  275/     30A :                     ; ANZEIGE VON WORTEN IM DATENBEREICH
(1)  276/     30A :                     ;
(1)  277/     30A :                     ; FUNKTION: SCHIEBT DEN INHALT VON A IN DIE STELLEN 5 BIS 7 DES ANZEIGE-
(1)  278/     30A :                     ; 	    BEREICHES
(1)  279/     30A :                     ; ZERSTOERT: AF,DE
(1)  280/     30A :                     ;
(1)  281/     30A : E5                  LDAANZ 	PUSH 	HL
(1)  282/     30B : 21 E0 43            	LD 	HL,ANZB4
(1)  283/     30E : 18 CD               	JR 	ADRAN1
(1)  284/     310 :                     ;*************************************************************************
(1)  285/     310 :                     ;
(1)  286/     310 :                     ; ANZEIGEKODETABELLE
(1)  287/     310 :                     ;
(1)  288/     310 :                     ; FUNKTION: ENTHAELT IN AUFSTEIGENDER REIHENFOLGE DIE SIEBENSEGMENTKODES
(1)  289/     310 :                     ; 	    FUR DIE HEXADEZIMALZIFFFRN 0 BIS F
(1)  290/     310 :                     ;
(1)  291/     310 : EF                  ANZDEC 	DB	0EFH
(1)  292/     311 : 8C                  	DB	8CH
(1)  293/     312 : BB                  	DB	0BBH
(1)  294/     313 : BE                  	DB	0BEH
(1)  295/     314 : DC                  	DB	0DCH
(1)  296/     315 : 7E                  	DB	7EH
(1)  297/     316 : 7F                  	DB	7FH
(1)  298/     317 : AC                  	DB	0ACH
(1)  299/     318 : FF                  	DB	0FFH
(1)  300/     319 : FE                  	DB	0FEH
(1)  301/     31A : FD                  	DB	0FDH
(1)  302/     31B : 5F                  	DB	5FH
(1)  303/     31C : 6B                  	DB	6BH
(1)  304/     31D : 9F                  	DB	9FH
(1)  305/     31E : 7B                  	DB	7BH
(1)  306/     31F : 79                  	DB	79H
(1)  307/     320 :                     ;*************************************************************************
(1)  308/     320 :                     ;
(1)  309/     320 :                     ; VERSCHIEBEN DES INHALTS VON HL HACH A
(1)  310/     320 :                     ;
(1)  311/     320 :                     ; FUNCTION: VERSCHIEBT DIE BITS D15 - D12 VON HL NACH A
(1)  312/     320 :                     ; ZERSTOERT: A,HL
(1)  313/     320 :                     ;
(1)  314/     320 : C5                  SHIHLA	PUSH 	BC
(1)  315/     321 : AF                  	XOR 	A
(1)  316/     322 : 06 04               	LD 	B,4
(1)  317/     324 : CB 15               SHIHL1 	RL 	L
(1)  318/     326 : CB 14               	RL 	H
(1)  319/     328 : 17                  	RLA
(1)  320/     329 : 10 F9               	DJNZ 	SHIHL1
(1)  321/     32B : C1                  	POP 	BC
(1)  322/     32C : C9                  	RET
(1)  323/     32D :                     ;*************************************************************************
(1)  324/     32D :                     ;
(1)  325/     32D :                     ; AUSGAGE EINES WORTES AUF DIE ANZEIGE
(1)  326/     32D :                     ;
(1)  327/     32D :                     ; FUNCTION: BRINGT DEN INHALT VON HL IN SIEBENSEGMENTKODE IN DEN ADRESS-
(1)  328/     32D :                     ; 	    BEREICH DES ANZEIGEBEBEREICHES
(1)  329/     32D :                     ; ZERSTOERT: AF,BC,DE,HL
(1)  330/     32D :                     ;
(1)  331/     32D : 06 04               ADRAUS 	LD 	B,4
(1)  332/     32F : CD 20 03            ADRAU1 	CALL 	SHIHLA
(1)  333/     332 : CD D9 02            	CALL 	ADRANZ
(1)  334/     335 : 10 F8               	DJNZ 	ADRAU1
(1)  335/     337 : C9                  	RET
(1)  336/     338 :                     ;*************************************************************************
(1)  337/     338 :                     ;
(1)  338/     338 :                     ; AUSGABE EINES BYTES
(1)  339/     338 :                     ;
(1)  340/     338 :                     ; FUNKTION: BRINGT DEN INHALT VON H IN SIEBENSEGMENTKODE IN DEN DATEN-
(1)  341/     338 :                     ;	    BEREICH DES ANZEIGEBEREICHES
(1)  342/     338 :                     ; ZERSTOERT: AF, BC,DE,HL
(1)  343/     338 :                     ;
(1)  344/     338 : 06 02               DAAUS 	LD 	B,2
(1)  345/     33A : CD 20 03            DAAUS1 	CALL 	SHIHLA
(1)  346/     33D : CD E2 02            	CALL 	DAANZ
(1)  347/     340 : 10 F8               	DJNZ 	DAAUS1
(1)  348/     342 : C9                  	RET
(1)  349/     343 :                     ;*************************************************************************
(1)  350/     343 :                     ;
(1)  351/     343 :                     ; AUSGABE EINES WORTES
(1)  352/     343 :                     ;
(1)  353/     343 :                     ; FUNKTION: BRINGT DEN INHALT VON HL IN SIEBENSEGMENTKODE IN DEN BEREICH
(1)  354/     343 :                     ; 5 BIS 7 DES ANZEIGEBEREICHES
(1)  355/     343 :                     ; ZERSTOERT: AF,BC,DE,HL
(1)  356/     343 :                     ;
(1)  357/     343 : 06 04               LDAAUS 	LD 	B,4
(1)  358/     345 : CD 20 03            LDAAU1 	CALL 	SHIHLA
(1)  359/     348 : CD 0A 03            	CALL 	LDAANZ
(1)  360/     34B : 10 F8               	DJNZ 	LDAAU1
(1)  361/     34D : C9                  	RET
(1)  362/     34E :                     ;*************************************************************************
(1)  363/     34E :                     ;
(1)  364/     34E :                     ; TRANSPORT EINES REGISTERPAARES AUS DEM STACK
(1)  365/     34E :                     ;
(1)  366/     34E :                     ; FUNKTION: LIEST REGISTERPAAR AUS DEM STACK UND TRANSPORTIERT ES NACH HR1
(1)  367/     34E :                     ;	    UND IN SIEBENSEGMENTKODE IN DEN ANZEIGEBEREICH 4 BIS 7
(1)  368/     34E :                     ;	    DER ZEIGER DES REGISTERPARRES STEHT IN HR2
(1)  369/     34E :                     ; ZERSTOERT: AF,BC,DE,HL
(1)  370/     34E :                     ;
(1)  371/     34E : CD 67 03            RINANZ 	CALL 	GREPOI 		; REGISTERPOINTER BILDEN
(1)  372/     351 : 56                  	LD 	D,(HL)
(1)  373/     352 : 2B                  	DEC 	HL
(1)  374/     353 : 5E                  	LD 	E,(HL)
(1)  375/     354 : EB                  	EX 	DE,HL
(1)  376/     355 : 22 E8 43            	LD 	(HR1),HL
(1)  377/     358 : CD 43 03            	CALL 	LDAAUS
(1)  378/     35B : C9                  	RET
(1)  379/     35C :                     ;*************************************************************************
(1)  380/     35C :                     ;
(1)  381/     35C :                     ; TRANSPORT EINES REGISTERPAARES IN DEN STACK
(1)  382/     35C :                     ;
(1)  383/     35C :                     ; FUNKTION: TRANSPORTIERT EIN RGISTERPRAR AUS HR1 IN DEN STACK.
(1)  384/     35C :                     ; 	    DER ZEIGER ('NAME') DES REGISTERPAARES BEFINDET SICH IN HR2.
(1)  385/     35C :                     ; ZERSTOERT: F,DE,HL
(1)  386/     35C :                     ;
(1)  387/     35C : CD 67 03            RISTA 	CALL 	GREPOI 		; REGISTERPOINTER BILDEN
(1)  388/     35F : ED 5B E8 43         	LD 	DE,(HR1)
(1)  389/     363 : 72                  	LD 	(HL),D
(1)  390/     364 : 2B                  	DEC 	HL
(1)  391/     365 : 73                  	LD 	(HL),E
(1)  392/     366 : C9                  	RET
(1)  393/     367 : FD 5E 0E            GREPOI 	LD 	E,(IY+H2)
(1)  394/     36A : CB 23               	SLA 	E
(1)  395/     36C : 16 00               	LD 	D,00H
(1)  396/     36E : 21 D3 43            	LD 	HL,SYSP1
(1)  397/     371 : (MACRO)             	SBWC
(1)  397/     371 : A7                          AND     A
(1)  397/     372 : ED 52                       SBC     HL,DE
(1)  398/     374 : C9                  	RET
(1)  399/     375 :                     ;*************************************************************************
(1)  400/     375 :                     ;
(1)  401/     375 :                     ; AUSGABE EINES REGISTERNAMENS
(1)  402/     375 :                     ;
(1)  403/     375 :                     ; FUNKTION: SCHREIBT DEN NAMFN EINES REGISTERPAARES IN GEEIGNETEM KODE
(1)  404/     375 :                     ; 	    IN DEN ANZEIGEBEREICH 2,3
(1)  405/     375 :                     ; 	    ZEIGER STEHT IN HR2
(1)  406/     375 :                     ; ZERSTOERT: F,BC,DE,HL
(1)  407/     375 :                     ;
(1)  408/     375 : 21 8A 03            RNANZ 	LD 	HL,ANZRNA 	; REG.NAME AUSGEBEN
(1)  409/     378 : 16 00               	LD 	D,00H
(1)  410/     37A : FD 5E 0E            	LD 	E,(IY+H2)
(1)  411/     37D : CB 23               	SLA 	E
(1)  412/     37F : 19                  	ADD 	HL,DE
(1)  413/     380 : 4E                  	LD 	C,(HL)
(1)  414/     381 : 23                  	INC 	HL
(1)  415/     382 : 46                  	LD 	B,(HL)
(1)  416/     383 : FD 70 02            	LD 	(IY+2),B
(1)  417/     386 : FD 71 03            	LD 	(IY+3),C
(1)  418/     389 : C9                  	RET
(1)  419/     38A :                     ;*************************************************************************
(1)  420/     38A :                     ;
(1)  421/     38A :                     ; TABELLE DER REGISTERNAMEN
(1)  422/     38A :                     ;
(1)  423/     38A :                     ; FUNKTION: EHHAELT IN AUFSTEIGENDER REIHENFOLGE DIE SIEBENSEGMENT- 
(1)  424/     38A :                     ; 	    REPRAESENTATIONEN DER REGISTERNAMEN: AF, BC, DE, HL, AF'
(1)  425/     38A :                     ; 	    BC', DE', HL', IX, IY, I.EI, SP, PC
(1)  426/     38A :                     ;
(1)  427/     38A : 71 F5               ANZRNA 	DW 	0F571H
(1)  428/     38C : 63 57               	DW	5763H
(1)  429/     38E : 73 97               	DW	9773H
(1)  430/     390 : 43 D5               	DW	0D543H
(1)  431/     392 : 79 FD               	DW	0FD79H
(1)  432/     394 : 6B 5F               	DW	5F6BH
(1)  433/     396 : 7B 9F               	DW	9F7BH
(1)  434/     398 : 4B DD               	DW	0DD4BH
(1)  435/     39A : 73 84               	DW	8473H
(1)  436/     39C : D5 84               	DW	84D5H
(1)  437/     39E : D6 84               	DW	84D6H
(1)  438/     3A0 : F1 76               	DW	76F1H
(1)  439/     3A2 : 63 F1               	DW	0F163H
(1)  440/     3A4 :                     ;*E
(1)  441/     3A4 :                     ;*************************************************************************
(1)  442/     3A4 :                     ;
(1)  443/     3A4 :                     ; AKTIONSPROGRAMME
(1)  444/     3A4 :                     ;
(1)  445/     3A4 :                     ;*************************************************************************
(1)  446/     3A4 :                     ;
(1)  447/     3A4 :                     ;
(1)  448/     3A4 :                     ;
(1)  449/     3A4 :                     ;
(1)  450/     3A4 :                     ;*************************************************************************
(1)  451/     3A4 :                     ;
(1)  452/     3A4 :                     ; LEERE AKTION - FUEHRT NICHTS AUS
(1)  453/     3A4 :                     ;
(1)  454/     3A4 : C9                  RETURN	RET
(1)  455/     3A5 :                     ;*************************************************************************
(1)  456/     3A5 :                     ;
(1)  457/     3A5 :                     ; EINGABE EINES REGISTERPAARNAMENS DURCH DIE HAXDEZIMALTASTATUR
(1)  458/     3A5 :                     ;
(1)  459/     3A5 : FD 36 08 02         Z2Z 	LD	(IY+PROZ),Z3
(1)  460/     3A9 :                     ;*************************************************************************
(1)  461/     3A9 :                     ;
(1)  462/     3A9 :                     ; KORREKTUR DES REGISTERPARRNAMENS DURCH ERNEUTE EINGABE
(1)  463/     3A9 :                     ;
(1)  464/     3A9 : FE 0D               Z3Z	CP	13
(1)  465/     3AB : 38 01               	JR	C,Z3ZM1
(1)  466/     3AD : AF                  	XOR 	A
(1)  467/     3AE : FD 77 0E            Z3ZM1 	LD 	(IY+H2),A
(1)  468/     3B1 : CD 75 03            	CALL 	RNANZ
(1)  469/     3B4 : C9                  	RET
(1)  470/     3B5 :                     ;*************************************************************************
(1)  471/     3B5 :                     ;
(1)  472/     3B5 :                     ; EINGABE NEUER DATEN FUER DAS NIEDERWERTIGE REGISTER
(1)  473/     3B5 :                     ;
(1)  474/     3B5 : F5                  Z4Z 	PUSH	AF
(1)  475/     3B6 : 21 E8 43            	LD 	HL,HR1
(1)  476/     3B9 : ED 6F               	RLD
(1)  477/     3BB : F1                  	POP 	AF
(1)  478/     3BC : CD E2 02            	CALL 	DAANZ
(1)  479/     3BF : C9                  	RET
(1)  480/     3C0 :                     ;*************************************************************************
(1)  481/     3C0 :                     ;
(1)  482/     3C0 :                     ; EINGABE NEUER DATEN FUER DAS HOEHERWERTIGE REGISTER
(1)  483/     3C0 :                     ;
(1)  484/     3C0 : F5                  Z4AZ	PUSH 	AF
(1)  485/     3C1 : 21 E8 43            	LD 	HL,HR1
(1)  486/     3C4 : 23                  	INC 	HL
(1)  487/     3C5 : ED 6F               	RLD
(1)  488/     3C7 : F1                  	POP 	AF
(1)  489/     3C8 : CD 04 03            	CALL 	HDAANZ
(1)  490/     3CB : C9                  	RET
(1)  491/     3CC :                     ;*************************************************************************
(1)  492/     3CC :                     ;
(1)  493/     3CC :                     ; EINGABE NEUER DATEN FUER EIN REGISTERPAAR (IX, IY, SP, PC)
(1)  494/     3CC :                     ;
(1)  495/     3CC : CD CE 02            Z4CZ	CALL 	DASCH
(1)  496/     3CF : CD 0A 03            	CALL 	LDAANZ
(1)  497/     3D2 : C9                  	RET
(1)  498/     3D3 :                     ;*************************************************************************
(1)  499/     3D3 :                     ;
(1)  500/     3D3 :                     ; UEBERGANG ZUR DARSTELLUNG DES INHALTS VON AF, DA KEIN NAME EINGEGEBEN
(1)  501/     3D3 :                     ; WURDE
(1)  502/     3D3 :                     ;
(1)  503/     3D3 : FD 36 0E 00         Z2E 	LD 	(IY+H2),00H
(1)  504/     3D7 : CD 75 03            Z2EM1 	CALL 	RNANZ
(1)  505/     3DA :                     ;*************************************************************************
(1)  506/     3DA :                     ;
(1)  507/     3DA :                     ; UEBERGANG ZUR DARSTELLUNG DES INHALTES DES SPEZIFIZIERTEN REGISTERPRARES
(1)  508/     3DA :                     ;
(1)  509/     3DA : FD 7E 0E            Z3E 	LD 	A,(IY+H2)
(1)  510/     3DD : FE 09               	CP 	9
(1)  511/     3DF : D2 38 10            	JP	NC,Z4AEM4
(1)  512/     3E2 : C3 00 10            	JP	LSROM2
(1)  513/     3E5 : 21 F3 03            NX	LD 	HL,NAMES
(1)  514/     3E8 : 11 DC 43            	LD 	DE,ANZBER
(1)  515/     3EB : CD C0 02            	CALL 	TRANS
(1)  516/     3EE : CD 4B 01            NX1 	CALL 	TASTU
(1)  517/     3F1 : 18 FB               	JR 	NX1
(1)  518/     3F3 : 7E 5F               NAMES 	DW 	05F7EH
(1)  519/     3F5 : 00                  	DB	00H
(1)  520/     3F6 : CF DD               	DW	0DDCFH
(1)  521/     3F8 : 00                  	DB	00H
(1)  522/     3F9 : FD 5B               	DW	05BFDH
(1)  523/    1000 :                     	ORG 	1000H
(1)  524/    1000 :                     LSROM2				; BEGINN DES 2. ROMS
(1)  525/    1000 : CD 4E 03            Z3EM1 	CALL 	RINANZ
(1)  526/    1003 : FD CB 07 9E         	RES 	BIA,(IY+7)
(1)  527/    1007 : FD CB 05 DE         	SET 	BIA,(IY+5)
(1)  528/    100B : FD 36 08 03         	LD 	(IY+PROZ),Z4A
(1)  529/    100F : C9                  	RET
(1)  530/    1010 :                     ;*************************************************************************
(1)  531/    1010 :                     ;
(1)  532/    1010 :                     ; UEBERGANG ZUR MODIFIKATION DES NIEDERWERTIGEN REGISTERS, ABSPEICHERN DES
(1)  533/    1010 :                     ; EVENTUELL VERAENDERTEN INHALTS
(1)  534/    1010 :                     ;
(1)  535/    1010 : CD 5C 03            Z4AE 	CALL 	RISTA
(1)  536/    1013 : FD CB 01 5E         	BIT 	BIA,(IY+1)
(1)  537/    1017 : 20 08               	JR	NZ,Z4AEM1
(1)  538/    1019 : FD 36 08 04         Z4AEM3 	LD 	(IY+PROZ),Z4
(1)  539/    101D : CD 4E 03            	CALL 	RINANZ
(1)  540/    1020 : C9                  	RET
(1)  541/    1021 : FD CB 01 9E         Z4AEM1 	RES 	BIA,(IY+1)
(1)  542/    1025 : FD 7E 0E            	LD 	A,(IY+H2)
(1)  543/    1028 : D6 01               	SUB	1
(1)  544/    102A : 38 08               	JR	C,Z4AEM2
(1)  545/    102C : FD 77 0E            	LD 	(IY+H2),A
(1)  546/    102F : CD 75 03            Z4AEM5 	CALL 	RNANZ
(1)  547/    1032 : 18 E5               	JR 	Z4AEM3
(1)  548/    1034 : FD 36 0E 0C         Z4AEM2 	LD 	(IY+H2),12
(1)  549/    1038 : CD 75 03            Z4AEM4 	CALL 	RNANZ
(1)  550/    103B : CD 4E 03            	CALL 	RINANZ
(1)  551/    103E : FD 36 08 05         	LD	(IY+PROZ),Z4C
(1)  552/    1042 : C9                  	RET
(1)  553/    1043 :                     ;*************************************************************************
(1)  554/    1043 :                     ;
(1)  555/    1043 :                     ; UEBERGANG ZUR MODIFIKATION DES HOEHERWERTIGEN REGISTERS, ABSPEICHERN
(1)  556/    1043 :                     ; DES EVENTUELL MODIFIZIERTEN REGISTERINHALTES
(1)  557/    1043 :                     ;
(1)  558/    1043 : CD 5C 03            Z4E 	CALL 	RISTA
(1)  559/    1046 : FD CB 01 5E         	BIT 	BIA,(IY+1)
(1)  560/    104A : 20 06               	JR	NZ,Z4EM1
(1)  561/    104C : FD 34 0E            	INC 	(IY+H2)
(1)  562/    104F : C3 D7 03            	JP 	Z2EM1
(1)  563/    1052 : FD CB 01 9E         Z4EM1 	RES 	BIA,(IY+1)
(1)  564/    1056 : 18 A8               	JR 	Z3EM1
(1)  565/    1058 :                     ;*************************************************************************
(1)  566/    1058 :                     ;
(1)  567/    1058 :                     ; UEBERCfANG ZUR MODIFIKATION DES NAECHSTEN REGISTERPAARES, ABSPEICHERN
(1)  568/    1058 :                     ; DES MOMENTANEN INHALTES
(1)  569/    1058 :                     ;
(1)  570/    1058 : CD 5C 03            Z4CE 	CALL 	RISTA
(1)  571/    105B : FD CB 01 5E         	BIT 	BIA,(IY+1)
(1)  572/    105F : 20 0E               	JR	NZ,Z4CEM1
(1)  573/    1061 : FD 7E 0E            	LD 	A,(IY+H2)
(1)  574/    1064 : 3C                  	INC 	A
(1)  575/    1065 : FE 0D               	CP 	13
(1)  576/    1067 : D2 D3 03            	JP	NC,Z2E
(1)  577/    106A : FD 77 0E            	LD 	(IY+H2),A
(1)  578/    106D : 18 C9               	JR 	Z4AEM4
(1)  579/    106F : FD CB 01 9E         Z4CEM1 	RES 	BIA,(IY+1)
(1)  580/    1073 : FD 7E 0E            	LD 	A,(IY+H2)
(1)  581/    1076 : 3D                  	DEC 	A
(1)  582/    1077 : FE 09               	CP 	9
(1)  583/    1079 : FD 77 0E            	LD 	(IY+H2),A
(1)  584/    107C : 30 BA               	JR	NC,Z4AEM4
(1)  585/    107E : 18 AF               	JR 	Z4AEM5
(1)  586/    1080 :                     ;*E
(1)  587/    1080 :                     ;*************************************************************************
(1)  588/    1080 :                     ;
(1)  589/    1080 :                     ; UEBERNAHME DER ADRESSE RAMANFANG IN DAS ADRESSREGISTER, DA KEINE ADRESSE
(1)  590/    1080 :                     ; EINGEGEBEN WURDE.
(1)  591/    1080 :                     ; DARSTELLUNG DES INHALTES DER SPEICHERADRESSE
(1)  592/    1080 :                     ;
(1)  593/    1080 : 21 00 40            Z5E 	LD 	HL,RAMANF
(1)  594/    1083 : 22 EA 43            Z5EM1 	LD 	(HR2),HL
(1)  595/    1086 : E5                  	PUSH 	HL
(1)  596/    1087 : CD 2D 03            	CALL 	ADRAUS
(1)  597/    108A : E1                  	POP 	HL
(1)  598/    108B : FD CB 05 9E         	RES 	BIA,(IY+5)
(1)  599/    108F : 66                  	LD 	H,(HL)
(1)  600/    1090 : FD 74 0C            	LD 	(IY+H1),H
(1)  601/    1093 : CD 38 03            	CALL 	DAAUS
(1)  602/    1096 : FD 36 08 08         	LD 	(IY+PROZ),Z7
(1)  603/    109A : C9                  	RET
(1)  604/    109B :                     ;*************************************************************************
(1)  605/    109B :                     ;
(1)  606/    109B :                     ; EINGABE DER ERSTEN ZIFFER EINER SPEICHERADRESSE
(1)  607/    109B :                     ;
(1)  608/    109B : FD 34 08            Z5Z	INC 	(IY+PROZ)
(1)  609/    109E : 21 00 00            Z5ZM1 	LD 	HL,00H
(1)  610/    10A1 : 22 E8 43            	LD 	(HR1), HL
(1)  611/    10A4 :                     ;*************************************************************************
(1)  612/    10A4 :                     ;
(1)  613/    10A4 :                     ; EINGABE EINER ZIFFER EINER SPEICHERADRESSE
(1)  614/    10A4 :                     ;
(1)  615/    10A4 : CD CE 02            Z6Z 	CALL 	DASCH
(1)  616/    10A7 : CD D9 02            	CALL 	ADRANZ
(1)  617/    10AA : C9                  	RET
(1)  618/    10AB :                     ;*************************************************************************
(1)  619/    10AB :                     ;
(1)  620/    10AB :                     ; UEBERNAHME DER EINGEGEBENEN SPEICHERADRESSE UND DARSTELLUNG DES INHALTES
(1)  621/    10AB :                     ; DER ADRESSE
(1)  622/    10AB :                     ;
(1)  623/    10AB : 2A E8 43            Z6E 	LD 	HL,(HR1)
(1)  624/    10AE : 18 D3               	JR 	Z5EM1
(1)  625/    10B0 :                     ;*************************************************************************
(1)  626/    10B0 :                     ;
(1)  627/    10B0 :                     ; UEBERGANG ZUR DARSTELLUNG DER NAECHSTEN ADRESSE, ABSPEICHERN DER
(1)  628/    10B0 :                     ; VORHER EVENTUELL MODIFIZIERTEN DATEN
(1)  629/    10B0 :                     ;
(1)  630/    10B0 : 2A EA 43            Z7E 	LD	HL,(HR2) 	; ADRESSE
(1)  631/    10B3 : FD 5E 0C            	LD 	E,(IY+H1) 	; DATEN
(1)  632/    10B6 : 73                  	LD 	(HL),E
(1)  633/    10B7 : FD CB 01 5E         	BIT 	BIA,(IY+1) 	; INKREMENTIEREN ODER DEKREMENTIEREN?
(1)  634/    10BB : 20 03               	JR	NZ, Z7EM1
(1)  635/    10BD : 23                  	INC 	HL
(1)  636/    10BE : 18 05               	JR 	Z7EM2
(1)  637/    10C0 : 2B                  Z7EM1 	DEC 	HL
(1)  638/    10C1 : FD CB 01 9E         	RES 	BIA,(IY+1)
(1)  639/    10C5 : 18 BC               Z7EM2 	JR 	Z5EM1
(1)  640/    10C7 :                     ;*E
(1)  641/    10C7 :                     ;*************************************************************************
(1)  642/    10C7 :                     ;
(1)  643/    10C7 :                     ; UEBERGANG ZUR (ANZEIGE UND) EINGABE EINES PRUEFPUNKTES
(1)  644/    10C7 :                     ;
(1)  645/    10C7 : 11 41 57            Z8E 	LD 	DE,ANZBRE
(1)  646/    10CA : CD AC 02            	CALL 	KOMDAR
(1)  647/    10CD : 2A E6 43            	LD 	HL,(BREAKP)
(1)  648/    10D0 : 22 E8 43            	LD 	(HR1), HL
(1)  649/    10D3 : 7D                  	LD 	A,L
(1)  650/    10D4 : B4                  	OR 	H
(1)  651/    10D5 : 28 03               	JR	Z,Z8EM1		; KEINE DARSTELLUNG BEI 0000
(1)  652/    10D7 : CD 2D 03            	CALL 	ADRAUS
(1)  653/    10DA : FD 36 08 0B         Z8EM1 	LD 	(IY+PROZ),Z10
(1)  654/    10DE : C9                  	RET
(1)  655/    10DF :                     ;*************************************************************************
(1)  656/    10DF :                     ;
(1)  657/    10DF :                     ; UEBERGANG ZUR PRUEFPUNKTEINGA$E NACH ERFOLGTER ADRESSEINGABE
(1)  658/    10DF :                     ;
(1)  659/    10DF : 2A E8 43            Z9E 	LD 	HL,(HR1)
(1)  660/    10E2 : 22 BA 43            	LD 	(SYSP26),HL
(1)  661/    10E5 : 18 E0               	JR 	Z8E
(1)  662/    10E7 :                     ;*************************************************************************
(1)  663/    10E7 :                     ;
(1)  664/    10E7 :                     ; UEBERNAHME DES PRUEFPUNKTES UND ANSPRUNG DES ANWENDERPROGRAMMES
(1)  665/    10E7 :                     ;
(1)  666/    10E7 : 2A E8 43            Z10E 	LD 	HL,(HR1)
(1)  667/    10EA : 22 E6 43            	LD 	(BREAKP),HL
(1)  668/    10ED : 7E                  	LD 	A,(HL)
(1)  669/    10EE : 32 EE 43            	LD 	(HR4),A 	; KODE RETTEN
(1)  670/    10F1 : 36 EF               	LD 	(HL),0EFH
(1)  671/    10F3 : FD 36 08 00         	LD 	(IY+PROZ),Z1
(1)  672/    10F7 : FD 36 09 10         	LD 	(IY+NMIZ),10H
(1)  673/    10FB : E1                  	POP 	HL 		; STACKPOINTER KORRIGIEREN
(1)  674/    10FC :                     ;*E
(1)  675/    10FC :                     ;*************************************************************************
(1)  676/    10FC :                     ;
(1)  677/    10FC :                     ; WIEDERHERSTELLUNG DER REGISTERINHALTE DES PROZESSORS UND DIREKTER
(1)  678/    10FC :                     ; AUFRUF DES ANWENDERPROGRAMMS
(1)  679/    10FC :                     ;
(1)  680/    10FC : DB 82               Z10EM1 	IN 	A,(PIOD2)
(1)  681/    10FE : CB B7               	RES 	BIE,A
(1)  682/    1100 : D3 82               	OUT 	(PIOD2),A 	; NMI-FF LOESCH.
(1)  683/    1102 : D1                  	POP 	DE 		; PC
(1)  684/    1103 : E1                  	POP 	HL 		; SP
(1)  685/    1104 : ED 53 EA 43         	LD 	(HR2),DE
(1)  686/    1108 : 22 EC 43            	LD	(HR3),HL
(1)  687/    110B : FD E1               	POP 	IY
(1)  688/    110D : DD E1               	POP 	IX
(1)  689/    110F : F1                  	POP 	AF 		; I EI
(1)  690/    1110 : ED 47               	LD 	I,A
(1)  691/    1112 : 26 C3               	LD 	H,0C3H 		; KODE FUER 'JP'
(1)  692/    1114 : DA 1B 11            	JP	C,Z10EM2 	; INTERRUPTS GESTATTET
(1)  693/    1117 : 2E F3               	LD 	L,0F3H 		; KODE FUER 'DI'
(1)  694/    1119 : 18 04               	JR 	Z10EM3
(1)  695/    111B : 2E FB               Z10EM2 	LD 	L,0FBH 		; KODE FUER `EI'
(1)  696/    111D : 18 00               	JR 	Z10EM3
(1)  697/    111F : 22 E8 43            Z10EM3 	LD 	(HR1),HL
(1)  698/    1122 : E1                  	POP 	HL
(1)  699/    1123 : D1                  	POP 	DE
(1)  700/    1124 : C1                  	POP 	BC
(1)  701/    1125 : F1                  	POP	AF
(1)  702/    1126 : 08                  	EX	AF,AF'
(1)  703/    1127 : D9                  	EXX
(1)  704/    1128 : E1                  	POP 	HL
(1)  705/    1129 : D1                  	POP 	DE
(1)  706/    112A : C1                  	POP 	BC
(1)  707/    112B : F1                  	POP 	AF
(1)  708/    112C : ED 7B EC 43         	LD 	SP,(HR3)
(1)  709/    1130 : C3 E8 43            	JP 	HR1
(1)  710/    1133 :                     ;*E
(1)  711/    1133 :                     ;*************************************************************************
(1)  712/    1133 :                     ;
(1)  713/    1133 :                     ; AUSFUEHRUHG EINES SCHRITTES NACH EINGABE EINER ADRESSE
(1)  714/    1133 :                     ;
(1)  715/    1133 : 2A E8 43            Z13E	LD 	HL,(HR1)
(1)  716/    1136 : 22 BA 43            	LD 	(SYSP26),HL 	; PC
(1)  717/    1139 :                     ;*************************************************************************
(1)  718/    1139 :                     ;
(1)  719/    1139 :                     ; AUSFUEHRUNG EINES SCHRTTES OHNE AENDERUNG DES BEFEHLSZAEHLERS
(1)  720/    1139 :                     ;
(1)  721/    1139 : FD 36 08 0E         Z12E 	LD	(IY+PROZ),Z14
(1)  722/    113D :                     ;*************************************************************************
(1)  723/    113D :                     ;
(1)  724/    113D :                     ; FORTSETZUNG DES SCHRITTBETRIEBES
(1)  725/    113D :                     ;
(1)  726/    113D : FD 36 09 03         Z14E 	LD 	(IY+NMIZ),03H
(1)  727/    1141 : 2A BA 43            	LD 	HL,(SYSP26) 	; PC
(1)  728/    1144 : 7E                  	LD	A,(HL)
(1)  729/    1145 : E6 C7               	AND 	0C7H
(1)  730/    1147 : FE C7               	CP 	0C7H
(1)  731/    1149 : C8                  	RET	Z
(1)  732/    114A : E1                  	POP 	HL
(1)  733/    114B :                     ;*************************************************************************
(1)  734/    114B :                     ;
(1)  735/    114B :                     ; START DES ZAEHLERS ZUR AUSFUEHRUNG EINES BEFEHLES
(1)  736/    114B :                     ;
(1)  737/    114B : 3E 05               Z10EM4	LD	A,05H
(1)  738/    114D : D3 88               	OUT 	(CTC),A
(1)  739/    114F : 3E 15               	LD 	A,ZK2
(1)  740/    1151 : D3 88               	OUT 	(CTC),A
(1)  741/    1153 : CB 47               	BIT 	0,A
(1)  742/    1155 : 18 A5               	JR 	Z10EM1
(1)  743/    1157 : =15H                ZK2 	EQU 	21
(1)  744/    1157 :                     ;*E
(1)  745/    1157 :                     ;*************************************************************************
(1)  746/    1157 :                     ;
(1)  747/    1157 :                     ; DEFINITION EINER FUNKTION BEIM KOMMANDO 'FUNKT' DURCH DIE HEXRDEZIMAL-
(1)  748/    1157 :                     ; TASTATUR
(1)  749/    1157 :                     ;
(1)  750/    1157 : FE 06               Z16Z 	CP 	6
(1)  751/    1159 : 30 07               	JR	NC,Z16ZM1
(1)  752/    115B : C6 08               	ADD 	A,8
(1)  753/    115D : 07                  	RLCA
(1)  754/    115E : E1                  	POP 	HL
(1)  755/    115F : C3 2B 01            	JP 	TASTB1
(1)  756/    1162 : D6 06               Z16ZM1 	SUB 	6
(1)  757/    1164 : FE 06               	CP	6 	; ENTSCHEIDUNG IN WELCHEM ROMBEREICH
(1)  758/    1166 : 30 04               	JR	NC,Z16ZM2
(1)  759/    1168 : 26 20               	LD 	H,20H
(1)  760/    116A : 18 04               	JR 	Z16ZM3
(1)  761/    116C : D6 06               Z16ZM2 	SUB 	6
(1)  762/    116E : 26 30               	LD 	H,30H
(1)  763/    1170 : 4F                  Z16ZM3 	LD 	C,A
(1)  764/    1171 : CB 27               	SLA 	A
(1)  765/    1173 : 81                  	ADD 	A,C
(1)  766/    1174 : 6F                  	LD 	L,A
(1)  767/    1175 :                     ;*************************************************************************
(1)  768/    1175 :                     ;
(1)  769/    1175 :                     ; ANSPRUNG EINES VORGEWAEHLTEN KOMMANDOS (FU 6 BIS FU F)
(1)  770/    1175 :                     ;
(1)  771/    1175 : 7E                  	LD 	A,(HL)
(1)  772/    1176 : FE C3               	CP 	0C3H
(1)  773/    1178 : C0                  	RET	NZ
(1)  774/    1179 : FD 36 08 00         	LD 	(IY+PROZ),Z1
(1)  775/    117D : E9                  	JP 	(HL)
(1)  776/    117E :                     ;*E
(1)  777/    117E :                     ;*************************************************************************
(1)  778/    117E :                     ;
(1)  779/    117E :                     ; UEBERGANG ZUR EINGABE DER ENDADRESSE FUR DIE MAGNETBANDEINGABE NACH ER-
(1)  780/    117E :                     ; FOLGTER EINGABE DER ANFANGSADRESSE
(1)  781/    117E :                     ;
(1)  782/    117E : 11 F5 73            Z18E 	LD 	DE,ANZMSE
(1)  783/    1181 : 2A E8 43            Z18EM1 	LD 	HL,(HR1)
(1)  784/    1184 : 22 EA 43            	LD 	(HR2),HL 	; ANFANGSADRESSE
(1)  785/    1187 : FD 34 08            Z18EM2 	INC 	(IY+PROZ)
(1)  786/    118A : CD AC 02            	CALL 	KOMDAR
(1)  787/    118D : C9                  	RET
(1)  788/    118E :                     ;*************************************************************************
(1)  789/    118E :                     ;
(1)  790/    118E :                     ; UEBERNAHME DER EINGEGEBENEN ENDRESSE UND AUSGABE DER FRAGE 'READY ?'
(1)  791/    118E :                     ; AN DEN BEDIENER
(1)  792/    118E :                     ;
(1)  793/    118E : FD 34 08            Z20E 	INC 	(IY+PROZ)
(1)  794/    1191 : CD BA 02            	CALL 	MBREADY
(1)  795/    1194 : C9                  	RET
(1)  796/    1195 :                     ;*************************************************************************
(1)  797/    1195 :                     ;
(1)  798/    1195 :                     ; AUSFUEHRUNG DES KOMMANDOS 'MAGNETBANDEINGABE' NACH ERFOLGTER EINGABE DER
(1)  799/    1195 :                     ; ENDADRESSE
(1)  800/    1195 :                     ;
(1)  801/    1195 : FD E5               Z21AE 	PUSH 	IY
(1)  802/    1197 : CD D5 11            	CALL 	DL 		; MBEINGABE
(1)  803/    119A : FD 22 EA 43         	LD	(HR2),IY	; FEHLERSCHREIBZEIGER
(1)  804/    119E : FD E1               	POP 	IY
(1)  805/    11A0 : 21 F0 43            	LD	HL,FSTACK
(1)  806/    11A3 : 22 EE 43            	LD	(HR4),HL
(1)  807/    11A6 : FD 36 08 15         	LD 	(IY+PROZ),Z21
(1)  808/    11AA : 11 11 73            	LD 	DE,ANZLFE
(1)  809/    11AD : CD AC 02            	CALL 	KOMDAR
(1)  810/    11B0 :                     ;*************************************************************************
(1)  811/    11B0 :                     ;
(1)  812/    11B0 :                     ; AUSGABE DES NAECHSTEN LESEFEHLERS BZW. DER FERTIGMELDUNG
(1)  813/    11B0 :                     ;
(1)  814/    11B0 : 2A EE 43            Z21E 	LD 	HL,(HR4)
(1)  815/    11B3 : ED 5B EA 43         	LD 	DE,(HR2)
(1)  816/    11B7 : E5                  	PUSH 	HL
(1)  817/    11B8 : (MACRO)             	SBWC
(1)  817/    11B8 : A7                          AND     A
(1)  817/    11B9 : ED 52                       SBC     HL,DE
(1)  818/    11BB : E1                  	POP 	HL
(1)  819/    11BC : CA 7E 13            	JP	Z,Z39EM2 	; ENDE
(1)  820/    11BF : 5E                  	LD	E,(HL)
(1)  821/    11C0 : 23                  	INC 	HL
(1)  822/    11C1 : 56                  	LD 	D,(HL)
(1)  823/    11C2 : 23                  	INC 	HL
(1)  824/    11C3 : 22 EE 43            	LD 	(HR4),HL
(1)  825/    11C6 : EB                  	EX 	DE,HL
(1)  826/    11C7 : CD 2D 03            	CALL	ADRAUS
(1)  827/    11CA : C9                  	RET
(1)  828/    11CB :                     ;*************************************************************************
(1)  829/    11CB :                     ;
(1)  830/    11CB :                     ; AUSFUEHRUNG DES KOMMANDOS 'MAGNETBANDAUSGABE' HACH ERFOLGTER
(1)  831/    11CB :                     ; EINGABE VON ANFANGS- UND ENDADRESSE
(1)  832/    11CB :                     ;
(1)  833/    11CB : FD E5               Z25AE	PUSH	IY
(1)  834/    11CD : CD C0 12            	CALL 	DS 		; AUSFUEHRUNG MBOUT
(1)  835/    11D0 : FD E1               	POP 	IY
(1)  836/    11D2 : C3 7E 13            	JP	Z39EM2
(1)  837/    11D5 :                     ;*E
(1)  838/    11D5 :                     ;*************************************************************************
(1)  839/    11D5 :                     ;
(1)  840/    11D5 :                     ; UNTERPROGRAMM FUER DIE MAGNETBANDEINGASE
(1)  841/    11D5 :                     ;
(1)  842/    11D5 :                     ; FUNKTION: DAS PROGRAMM VERSUCHT, VOM MAGNETBANDGERAET DATEN ZU LESEN
(1)  843/    11D5 :                     ;	    UND IM RAM ABZUSPEICHERN. DIE ANFANGSADRESSE BEFINDET SICH IN
(1)  844/    11D5 :                     ;	    HR2 UND DIE ENDADRESSE IN HR1. AUF DER ADRESSE FSTACK BEGIN-
(1)  845/    11D5 :                     ;	    NEND WIRD EINE FEHLERLISTE ERZEUGT. IN IY BEFINDET SICH DAS
(1)  846/    11D5 :                     ;	    ENDE DER LISTE.
(1)  847/    11D5 :                     ;	    DAS PROGRAMM KEHRT NICHT ZURUECK, WENN VOM MAGNETBAND NICHT
(1)  848/    11D5 :                     ;	    GENUEGEND DATEN EMPFANGEN WERDEN.
(1)  849/    11D5 :                     ; ZERSTOERT: AF,BC,DE,HL,IX,IY
(1)  850/    11D5 :                     ;
(1)  851/    11D5 : =300H               NTA 	EQU 	768 		; ANZAHL DER RECHNERTAKTE PRO DATENBIT
(1)  852/    11D5 : FD 21 F0 43         DL 	LD 	IY,FSTACK
(1)  853/    11D9 : 2A EA 43            	LD 	HL,(HR2)
(1)  854/    11DC : CD 1B 12            DLM0 	CALL 	BL
(1)  855/    11DF : 28 1D               	JR	Z,DLM1 		; KEIN FEHLER
(1)  856/    11E1 : 11 20 00            	LD 	DE,32
(1)  857/    11E4 : (MACRO)             	SBWC
(1)  857/    11E4 : A7                          AND     A
(1)  857/    11E5 : ED 52                       SBC     HL,DE
(1)  858/    11E7 : FD 75 00            	LD 	(IY+0),L
(1)  859/    11EA : FD 23               	INC 	IY
(1)  860/    11EC : FD 74 00            	LD 	(IY+0),H
(1)  861/    11EF : FD 23               	INC	IY
(1)  862/    11F1 : 19                  	ADD 	HL,DE
(1)  863/    11F2 : E5                  	PUSH	HL
(1)  864/    11F3 : FD E5               	PUSH 	IY
(1)  865/    11F5 : E1                  	POP 	HL
(1)  866/    11F6 : 11 00 44            	LD 	DE,RAMEND
(1)  867/    11F9 : (MACRO)             	SBWC
(1)  867/    11F9 : A7                          AND     A
(1)  867/    11FA : ED 52                       SBC     HL,DE
(1)  868/    11FC : E1                  	POP 	HL
(1)  869/    11FD : D0                  	RET	NC
(1)  870/    11FE : EB                  DLM1	EX	DE,HL
(1)  871/    11FF : 2A E8 43            	LD 	HL,(HR1) 	; ENDADRESSE
(1)  872/    1202 : (MACRO)             	SBWC
(1)  872/    1202 : A7                          AND     A
(1)  872/    1203 : ED 52                       SBC     HL,DE
(1)  873/    1205 : EB                  	EX 	DE,HL
(1)  874/    1206 : F8                  	RET	M
(1)  875/    1207 : 18 D3               	JR 	DLM0
(1)  876/    1209 :                     ;*************************************************************************
(1)  877/    1209 :                     ;
(1)  878/    1209 :                     ; UNTERPROGRAMM ZUM FINDEN EINER FLANKE IM LESESIGNAL
(1)  879/    1209 :                     ; EXIT: 36 TAKTE
(1)  880/    1209 :                     ;
(1)  881/    1209 : DB 82               FIFLA 	IN 	A,(PIOD2)
(1)  882/    120B : A8                  	XOR 	B
(1)  883/    120C : CB 4F               	BIT 	BID,A
(1)  884/    120E : 28 F9               	JR	Z,FIFLA
(1)  885/    1210 : C9                  	RET
(1)  886/    1211 :                     ;*************************************************************************
(1)  887/    1211 :                     ;
(1)  888/    1211 :                     ; UNTERPROGRAMM ZUR EINABE EINES BITS
(1)  889/    1211 :                     ; ENTRY: 28 TAKTE, EXIT: 51 TAKTE
(1)  890/    1211 :                     ;
(1)  891/    1211 : DB 82               BITIN 	IN 	A,(PIOD2)
(1)  892/    1213 : A8                  	XOR 	B
(1)  893/    1214 : CB 4F               	BIT 	BID,A
(1)  894/    1216 : F5                  	PUSH 	AF
(1)  895/    1217 : A8                  	XOR 	B
(1)  896/    1218 : 47                  	LD 	B,A
(1)  897/    1219 : F1                  	POP 	AF
(1)  898/    121A : C9                  	RET 			; I=28/A=53
(1)  899/    121B :                     ;*************************************************************************
(1)  900/    121B :                     ;
(1)  901/    121B :                     ; UNTERPROGRAMM ZUR EINGABE EINES DATENBLOCKS VON 32 BYTE UND 2 BYTE
(1)  902/    121B :                     ; PRUEFSUMME
(1)  903/    121B :                     ;
(1)  904/    121B : CD 11 12            BL 	CALL 	BITIN
(1)  905/    121E : CD 09 12            	CALL 	FIFLA
(1)  906/    1221 : 0E 07               	LD 	C,7
(1)  907/    1223 : 11 10 09            BLM1 	LD 	DE,(BLN11 << 8) | BLN9
(1)  908/    1226 : (MACRO)             	SWAIT 	BLN1
(1)  908/    1226 : 3E 07                       LD      A,BLN1
(1)  908/    1228 : 3D                  SWSYM   DEC     A
(1)  908/    1229 : 20 FD                       JR      NZ,SWSYM
(1)  909/    122B : CD 11 12            	CALL 	BITIN
(1)  910/    122E : CD 11 12            BLMX 	CALL 	BITIN
(1)  911/    1231 : 20 E8               	JR	NZ,BL 		; VERAENDERUNG ERKANNT
(1)  912/    1233 : 15                  	DEC 	D
(1)  913/    1234 : 20 F8               	JR	NZ,BLMX
(1)  914/    1236 : 0D                  	DEC 	C
(1)  915/    1237 : 28 0C               	JR	Z,BLM4 		; SYNC.FELD ERKANNT
(1)  916/    1239 : DB 82               BLM2 	IN 	A,(PIOD2)
(1)  917/    123B : A8                  	XOR 	B
(1)  918/    123C : CB 4F               	BIT 	BID,A
(1)  919/    123E : 20 E3               	JR	NZ,BLM1 	; FLANK ERKANNT
(1)  920/    1240 : 1D                  	DEC 	E
(1)  921/    1241 : 20 F6               	JR	NZ,BLM2 	; WARTEN
(1)  922/    1243 : 18 D6               	JR 	BL 		; TIME OUT
(1)  923/    1245 :                     ; 7 NULLEN SIND ERKANNT WORDEN
(1)  924/    1245 : CD 09 12            BLM4 	CALL 	FIFLA
(1)  925/    1248 : (MACRO)             	SWAIT 	BLN3
(1)  925/    1248 : 3E 44                       LD      A,BLN3
(1)  925/    124A : 3D                  SWSYM   DEC     A
(1)  925/    124B : 20 FD                       JR      NZ,SWSYM
(1)  926/    124D : CD 11 12            	CALL 	BITIN
(1)  927/    1250 : 20 F3               	JR	NZ,BLM4 	; AUF 1 WARTEN
(1)  928/    1252 : CD 09 12            	CALL 	FIFLA
(1)  929/    1255 : (MACRO)             	SWAIT	BLN4
(1)  929/    1255 : 3E 1E                       LD      A,BLN4
(1)  929/    1257 : 3D                  SWSYM   DEC     A
(1)  929/    1258 : 20 FD                       JR      NZ,SWSYM
(1)  930/    125A : CD A1 12            	CALL 	WL
(1)  931/    125D : 0E 10               	LD 	C,16
(1)  932/    125F : D5                  	PUSH 	DE
(1)  933/    1260 : DD E1               	POP 	IX 		; CRC ANFANGSWERT
(1)  934/    1262 : (MACRO)             	SWAIT 	BLN10
(1)  934/    1262 : 3E 1A                       LD      A,BLN10
(1)  934/    1264 : 3D                  SWSYM   DEC     A
(1)  934/    1265 : 20 FD                       JR      NZ,SWSYM
(1)  935/    1267 : CD A1 12            BLM5 	CALL	WL
(1)  936/    126A : DD 19               	ADD 	IX,DE
(1)  937/    126C : C5                  	PUSH 	BC
(1)  938/    126D : 4D                  	LD 	C,L
(1)  939/    126E : 44                  	LD 	B,H
(1)  940/    126F : 2A E8 43            	LD 	HL,(HR1) 	; ENDADRESSE
(1)  941/    1272 : AF                  	XOR	A
(1)  942/    1273 : ED 42               	SBC 	HL,BC
(1)  943/    1275 : 69                  	LD	L,C
(1)  944/    1276 : 60                  	LD 	H,B
(1)  945/    1277 : C1                  	POP 	BC
(1)  946/    1278 : 38 05               	JR	C,BLM6
(1)  947/    127A : 73                  	LD 	(HL),E
(1)  948/    127B : 23                  	INC	HL
(1)  949/    127C : 72                  	LD	(HL),D
(1)  950/    127D : 18 06               	JR 	BLM7
(1)  951/    127F : (MACRO)             BLM6 	SWAIT 	BLN5
(1)  951/    127F : 3E 01                       LD      A,BLN5
(1)  951/    1281 : 3D                  SWSYM   DEC     A
(1)  951/    1282 : 20 FD                       JR      NZ,SWSYM
(1)  952/    1284 : 23                  	INC	HL
(1)  953/    1285 : 23                  BLM7 	INC 	HL
(1)  954/    1286 : 0D                  	DEC 	C
(1)  955/    1287 : 28 07               	JR	Z,BLM8
(1)  956/    1289 : (MACRO)             	SWAIT 	BLN6
(1)  956/    1289 : 3E 12                       LD      A,BLN6
(1)  956/    128B : 3D                  SWSYM   DEC     A
(1)  956/    128C : 20 FD                       JR      NZ,SWSYM
(1)  957/    128E : 18 D7               	JR 	BLM5
(1)  958/    1290 : (MACRO)             BLM8 	SWAIT	BLN7
(1)  958/    1290 : 3E 12                       LD      A,BLN7
(1)  958/    1292 : 3D                  SWSYM   DEC     A
(1)  958/    1293 : 20 FD                       JR      NZ,SWSYM
(1)  959/    1295 : CD A1 12            	CALL 	WL 		; PRUEFSUMME LESEN
(1)  960/    1298 : EB                  	EX 	DE,HL
(1)  961/    1299 : DD E5               	PUSH 	IX
(1)  962/    129B : C1                  	POP 	BC
(1)  963/    129C : AF                  	XOR 	A
(1)  964/    129D : ED 42               	SBC 	HL,BC
(1)  965/    129F : EB                  	EX 	DE,HL
(1)  966/    12A0 : C9                  	RET
(1)  967/    12A1 :                     ;*************************************************************************
(1)  968/    12A1 :                     ;
(1)  969/    12A1 :                     ; ZEITKONSTANTEN FUER BL
(1)  970/    12A1 :                     ;
(1)  971/    12A1 : =7H                 BLN1 	EQU 	(NTA/4-67)/16
(1)  972/    12A1 : =44H                BLN3 	EQU 	((3*NTA)/2-58)/16
(1)  973/    12A1 : =1EH                BLN4 	EQU 	((3*NTA)/4-92)/16
(1)  974/    12A1 : =1H                 BLN5 	EQU 	1
(1)  975/    12A1 : =12H                BLN6 	EQU 	((3*NTA)/4-284)/16
(1)  976/    12A1 : =12H                BLN7 	EQU 	((3*NTA)/4-277)/16
(1)  977/    12A1 : =10H                BLN9 	EQU 	(NTA)/46
(1)  978/    12A1 : =1AH                BLN10 	EQU 	((3*NTA)/4-160)/16
(1)  979/    12A1 : =9H                 BLN11 	EQU 	((5*NTA)/4)/104
(1)  980/    12A1 :                     ;*************************************************************************
(1)  981/    12A1 :                     ;
(1)  982/    12A1 :                     ; UNTERPROGRAMM ZUM EINLESEN EINES WORTES (2 BYTE)
(1)  983/    12A1 :                     ; ENTRY: 63 TAKTE, EXIT: 72 TAKTE
(1)  984/    12A1 :                     ;
(1)  985/    12A1 : E5                  WL	PUSH 	HL 		; I=64 R=83
(1)  986/    12A2 : 2E 10               	LD 	L,16
(1)  987/    12A4 : CD 11 12            WLM0	CALL 	BITIN
(1)  988/    12A7 : 20 03               	JR	NZ,WLM1
(1)  989/    12A9 : AF                  	XOR 	A
(1)  990/    12AA : 18 01               	JR 	WLM2
(1)  991/    12AC : 37                  WLM1 	SCF
(1)  992/    12AD : CB 1A               WLM2 	RR 	D
(1)  993/    12AF : CB 1B               	RR 	E
(1)  994/    12B1 : CD 09 12            	CALL 	FIFLA
(1)  995/    12B4 : 2D                  	DEC 	L
(1)  996/    12B5 : 28 07               	JR	Z,WLM3
(1)  997/    12B7 : (MACRO)             	SWAIT	WLN1
(1)  997/    12B7 : 3E 1E                       LD      A,WLN1
(1)  997/    12B9 : 3D                  SWSYM   DEC     A
(1)  997/    12BA : 20 FD                       JR      NZ,SWSYM
(1)  998/    12BC : 18 E6               	JR	WLM0
(1)  999/    12BE : E1                  WLM3	POP	HL
(1) 1000/    12BF : C9                  	RET
(1) 1001/    12C0 :                     ;*************************************************************************
(1) 1002/    12C0 :                     ;
(1) 1003/    12C0 :                     ; ZEITKONSTANTEN FUER WL
(1) 1004/    12C0 :                     ;
(1) 1005/    12C0 : =1EH                WLN1	EQU	((3*NTA)/4-81)/16
(1) 1006/    12C0 :                     ;*E
(1) 1007/    12C0 :                     ;*************************************************************************
(1) 1008/    12C0 :                     ;
(1) 1009/    12C0 :                     ; UNTERPROGRAMM ZUR AUSGABE EINES DATENBEREICHES AUF DAS MAGNETBAND
(1) 1010/    12C0 :                     ; DIE ANFANGSADRESSE BEFINDET SICH IN HR2, DIE ENDADRESSE IN HR1.
(1) 1011/    12C0 :                     ;
(1) 1012/    12C0 :                     ; ZERSTOERT: AF,BC,DE,HL,IX
(1) 1013/    12C0 :                     ;
(1) 1014/    12C0 : 2A EA 43            DS 	LD 	HL,(HR2) 	; ANFANGSADRESSE
(1) 1015/    12C3 : CD DB 12            	CALL 	BSA 		; ANFANGSBLOCK
(1) 1016/    12C6 : EB                  DS1 	EX 	DE,HL
(1) 1017/    12C7 : 2A E8 43            	LD 	HL,(HR1) 	; ENDE
(1) 1018/    12CA : (MACRO)             	SBWC
(1) 1018/    12CA : A7                          AND     A
(1) 1018/    12CB : ED 52                       SBC     HL,DE
(1) 1019/    12CD : EB                  	EX 	DE,HL
(1) 1020/    12CE : F8                  	RET	M
(1) 1021/    12CF : CD E0 12            	CALL 	BS
(1) 1022/    12D2 : 18 F2               	JR 	DS1
(1) 1023/    12D4 : DB 82               FLOUT 	IN 	A,(PIOD2)
(1) 1024/    12D6 : EE 04               	XOR 	MASK 		; E=46,O=10
(1) 1025/    12D8 : D3 82               	OUT 	(PIOD2),A
(1) 1026/    12DA : C9                  	RET
(1) 1027/    12DB :                     ;*************************************************************************
(1) 1028/    12DB :                     ;
(1) 1029/    12DB :                     ; UNTERPROGRAMM ZUR AUSGABE EINES BLOCKES
(1) 1030/    12DB :                     ; ENTRY: 108 TAKTE, EXIT:25 TAKTE
(1) 1031/    12DB :                     ;
(1) 1032/    12DB : 11 D0 07            BSA	LD 	DE,2000
(1) 1033/    12DE : 18 03               	JR 	BSX
(1) 1034/    12E0 : 11 0E 00            BS 	LD 	DE,14
(1) 1035/    12E3 : (MACRO)             BSX 	WAIT 	(2*NTA-77)/13
(1) 1035/    12E3 : 06 70                       LD      B,(2*NTA-77)/13
(1) 1035/    12E5 : 10 FE                       DJNZ    $
(1) 1036/    12E7 : CD D4 12            	CALL	FLOUT
(1) 1037/    12EA : 1B                  	DEC 	DE
(1) 1038/    12EB : 7B                  	LD 	A,E
(1) 1039/    12EC : B2                  	OR 	D
(1) 1040/    12ED : 20 F4               	JR	NZ,BSX
(1) 1041/    12EF : 0E 02               	LD 	C,2
(1) 1042/    12F1 : (MACRO)             BSM0	WAIT 	BSN5
(1) 1042/    12F1 : 06 35                       LD      B,BSN5
(1) 1042/    12F3 : 10 FE                       DJNZ    $
(1) 1043/    12F5 : CD D4 12            	CALL 	FLOUT
(1) 1044/    12F8 : 0D                  	DEC 	C
(1) 1045/    12F9 : 11 00 00            	LD 	DE,0000H
(1) 1046/    12FC : 20 F3               	JR	NZ,BSM0
(1) 1047/    12FE : D5                  	PUSH 	DE
(1) 1048/    12FF : DD E1               	POP 	IX
(1) 1049/    1301 : (MACRO)             	WAIT 	BSN0
(1) 1049/    1301 : 06 12                       LD      B,BSN0
(1) 1049/    1303 : 10 FE                       DJNZ    $
(1) 1050/    1305 : CD 2D 13            	CALL 	WS
(1) 1051/    1308 : (MACRO)             	WAIT 	BSN1
(1) 1051/    1308 : 06 0F                       LD      B,BSN1
(1) 1051/    130A : 10 FE                       DJNZ    $
(1) 1052/    130C : 0E 10               	LD 	C,16
(1) 1053/    130E : 5E                  BSM1	LD 	E,(HL)
(1) 1054/    130F : 23                  	INC 	HL
(1) 1055/    1310 : 56                  	LD 	D,(HL)
(1) 1056/    1311 : DD 19               	ADD 	IX,DE
(1) 1057/    1313 : 23                  	INC 	HL
(1) 1058/    1314 : C5                  	PUSH 	BC
(1) 1059/    1315 : CD 2D 13             	CALL 	WS
(1) 1060/    1318 : C1                  	POP 	BC
(1) 1061/    1319 : 0D                  	DEC 	C
(1) 1062/    131A : 28 06               	JR	Z,BSM2
(1) 1063/    131C : (MACRO)             	WAIT 	BSN2
(1) 1063/    131C : 06 0E                       LD      B,BSN2
(1) 1063/    131E : 10 FE                       DJNZ    $
(1) 1064/    1320 : 18 EC               	JR 	BSM1
(1) 1065/    1322 : =12H                BSN0 	EQU (NTA/2-148)/13
(1) 1066/    1322 : =FH                 BSN1 	EQU (NTA/2-178)/13
(1) 1067/    1322 : =EH                 BSN2 	EQU (NTA/2-202)/13
(1) 1068/    1322 : =10H                BSN3 	EQU (NTA/2-170)/13
(1) 1069/    1322 : =35H                BSN5 	EQU (NTA-79)/13
(1) 1070/    1322 : DD E5               BSM2 	PUSH 	IX
(1) 1071/    1324 : D1                  	POP 	DE
(1) 1072/    1325 : (MACRO)             	WAIT 	BSN3
(1) 1072/    1325 : 06 10                       LD      B,BSN3
(1) 1072/    1327 : 10 FE                       DJNZ    $
(1) 1073/    1329 : CD 2D 13            	CALL 	WS
(1) 1074/    132C : C9                  	RET
(1) 1075/    132D :                     ;*************************************************************************
(1) 1076/    132D :                     ;
(1) 1077/    132D :                     ; AUSGABE EINES WORTES
(1) 1078/    132D :                     ; ENTRY: 97 TAKTE, EXIT: 25 TAKTE
(1) 1079/    132D :                     :
(1) 1080/    132D : 0E 10               WS	LD 	C,16
(1) 1081/    132F : CB 3A               WSM0	SRL 	D
(1) 1082/    1331 : CB 1B               	RR	E
(1) 1083/    1333 : 30 07               	JR	NC,WSM1
(1) 1084/    1335 : (MACRO)             	WAIT	WSN1
(1) 1084/    1335 : 06 03                       LD      B,WSN1
(1) 1084/    1337 : 10 FE                       DJNZ    $
(1) 1085/    1339 : 00                  	NOP
(1) 1086/    133A : 18 03               	JR	WSM3
(1) 1087/    133C : CD D4 12            WSM1 	CALL 	FLOUT
(1) 1088/    133F : (MACRO)             WSM3 	WAIT 	WSN2
(1) 1088/    133F : 06 19                       LD      B,WSN2
(1) 1088/    1341 : 10 FE                       DJNZ    $
(1) 1089/    1343 : CD D4 12            WSM2 	CALL 	FLOUT
(1) 1090/    1346 : 0D                  	DEC 	C
(1) 1091/    1347 : C8                  	RET	Z
(1) 1092/    1348 : (MACRO)             	WAIT 	WSN3
(1) 1092/    1348 : 06 15                       LD      B,WSN3
(1) 1092/    134A : 10 FE                       DJNZ    $
(1) 1093/    134C : 18 E1               	JR 	WSM0
(1) 1094/    134E :                     ;*************************************************************************
(1) 1095/    134E :                     ;
(1) 1096/    134E :                     ; ZEITKONSTANTEN FUER WS
(1) 1097/    134E :                     ;
(1) 1098/    134E : =3H                 WSN1	EQU	3
(1) 1099/    134E : =19H                WSN2 	EQU 	(NTA/2-50)/13
(1) 1100/    134E : =15H                WSN3 	EQU 	(NTA/2-99)/13
(1) 1101/    134E : =4H                 MASK 	EQU 	04H
(1) 1102/    134E :                     ;*E
(1) 1103/    134E :                     ;*************************************************************************
(1) 1104/    134E :                     ;
(1) 1105/    134E :                     ; UEBERGANG ZUR EINGABE DER QUELLADRESSE NACH ERFOLGTER EINGABE DER
(1) 1106/    134E :                     ; ZIELADRESSE BEIM MOVE-KOMMANDO
(1) 1107/    134E :                     ;
(1) 1108/    134E : 11 17 76            Z35E 	LD 	DE, ANZMSO
(1) 1109/    1351 : C3 81 11            	JP 	Z18EM1
(1) 1110/    1354 :                     ;*************************************************************************
(1) 1111/    1354 :                     ;
(1) 1112/    1354 :                     ; UEBERGANG ZUR EINGABE DER LAENGE NACH ERFOLGTER EINGABE DER QUELLADRESSE
(1) 1113/    1354 :                     ; BEIM MOVE-KOMMANDO
(1) 1114/    1354 :                     ;
(1) 1115/    1354 : 11 73 43            Z37E 	LD 	DE,ANZMLE
(1) 1116/    1357 : 2A E8 43            Z37EM1 	LD 	HL,(HR1)
(1) 1117/    135A : 22 EE 43            	LD 	(HR4),HL 	; SOURCE
(1) 1118/    135D : C3 87 11            	JP 	Z18EM2
(1) 1119/    1360 :                     ;*************************************************************************
(1) 1120/    1360 :                     ;
(1) 1121/    1360 :                     ; UEBERGANG ZUR AUSFUEHRUNG DES MOVE-KOMMANDOS
(1) 1122/    1360 :                     ;
(1) 1123/    1360 : ED 5B EA 43         Z39E	LD 	DE,(HR2) 	; ZIEL
(1) 1124/    1364 : 2A EE 43            	LD 	HL,(HR4)
(1) 1125/    1367 : ED 4B E8 43         	LD 	BC,(HR1) 	; LAENGE
(1) 1126/    136B : E5                  	PUSH 	HL
(1) 1127/    136C : (MACRO)             	SBWC
(1) 1127/    136C : A7                          AND     A
(1) 1127/    136D : ED 52                       SBC     HL,DE
(1) 1128/    136F : E1                  	POP 	HL
(1) 1129/    1370 : 38 04               	JR	C,Z39EM1
(1) 1130/    1372 : ED B0               	LDIR
(1) 1131/    1374 : 18 08               	JR 	Z39EM2
(1) 1132/    1376 : 09                  Z39EM1 	ADD 	HL,BC
(1) 1133/    1377 : 2B                  	DEC 	HL
(1) 1134/    1378 : EB                  	EX 	DE,HL
(1) 1135/    1379 : 09                  	ADD 	HL,BC
(1) 1136/    137A : 2B                  	DEC 	HL
(1) 1137/    137B : EB                  	EX 	DE,HL
(1) 1138/    137C : ED B8               	LDDR
(1) 1139/    137E : 11 00 71            Z39EM2 	LD 	DE,ANZFIN
(1) 1140/    1381 : CD AC 02            	CALL 	KOMDAR
(1) 1141/    1384 : FD 36 08 00         	LD 	(IY+PROZ),Z1
(1) 1142/    1388 : C9                  	RET
(1) 1143/    1389 :                     ;*E
(1) 1144/    1389 :                     ;*************************************************************************
(1) 1145/    1389 :                     ;
(1) 1146/    1389 :                     ; UEBERGANG ZUR EINGABE DER LAENGE DES ZU FUELLENDEN SPEICHERBEREICHS
(1) 1147/    1389 :                     ;
(1) 1148/    1389 : 11 73 43            Z41E 	LD 	DE,ANZFIL
(1) 1149/    138C : C3 81 11            	JP 	Z18EM1
(1) 1150/    138F :                     ;*************************************************************************
(1) 1151/    138F :                     ;
(1) 1152/    138F :                     ; UEBERGANG ZUR EINGABE DER EINZUSCHREIBENDEN DATEN
(1) 1153/    138F :                     ;
(1) 1154/    138F : 11 F5 97            Z43E 	LD 	DE,ANZFID
(1) 1155/    1392 : 18 C3               	JR 	Z37EM1 		; LAENGE IN HR4
(1) 1156/    1394 :                     ;*************************************************************************
(1) 1157/    1394 :                     ;
(1) 1158/    1394 :                     ; EINGABE DER ERSTEN ZIFFER DER BEIM KOMMANDO 'FILL' EINZUSCHREIBENDEN
(1) 1159/    1394 :                     ; DATEN
(1) 1160/    1394 :                     ;
(1) 1161/    1394 : FD 34 08            Z44Z 	INC 	(IY+PROZ)
(1) 1162/    1397 : 21 00 00            	LD 	HL,00H
(1) 1163/    139A : 22 E8 43            	LD 	(HR1),HL
(1) 1164/    139D : C3 B5 03            	JP 	Z4Z
(1) 1165/    13A0 :                     ;*************************************************************************
(1) 1166/    13A0 :                     ;
(1) 1167/    13A0 :                     ; AUSFUEHRUNG DER FUELLOPERATION
(1) 1168/    13A0 :                     ;
(1) 1169/    13A0 : ED 4B EE 43         Z45E	LD	BC,(HR4) 	; LAENGE
(1) 1170/    13A4 : 2A EA 43            	LD 	HL,(HR2)
(1) 1171/    13A7 : ED 5B EA 43         	LD 	DE,(HR2) 	; ZIEL
(1) 1172/    13AB : 21 E8 43            	LD 	HL,HR1 		; DATENZEIGER
(1) 1173/    13AE : ED A0               Z45EM1 	LDI
(1) 1174/    13B0 : 2B                  	DEC 	HL
(1) 1175/    13B1 : EA AE 13            	JP	PE,Z45EM1
(1) 1176/    13B4 : 18 C8               	JR 	Z39EM2
(1) 1177/    13B6 :                     ;*E
(1) 1178/    13B6 :                     ;*************************************************************************
(1) 1179/    13B6 :                     ;
(1) 1180/    13B6 :                     ; EINGABE EINER ZIFFER FUER EINE PORTADRESSE
(1) 1181/    13B6 :                     ;
(1) 1182/    13B6 : CD CE 02            Z47Z	CALL 	DASCH 		; PORT IN
(1) 1183/    13B9 : CD D9 02            	CALL 	ADRANZ
(1) 1184/    13BC : FD 36 03 00         	LD 	(IY+3),00H
(1) 1185/    13C0 : C9                  	RET
(1) 1186/    13C1 :                     ;*************************************************************************
(1) 1187/    13C1 :                     ;
(1) 1188/    13C1 :                     ; UEBERGANG ZUM PORTLESEN
(1) 1189/    13C1 :                     ;
(1) 1190/    13C1 : FD 34 08            Z47E 	INC 	(IY+PROZ)
(1) 1191/    13C4 :                     ;*************************************************************************
(1) 1192/    13C4 :                     ;
(1) 1193/    13C4 :                     ; PORTLESEN AUSFUEHREN
(1) 1194/    13C4 :                     ;
(1) 1195/    13C4 : FD 4E 0C            Z48E 	LD 	C,(IY+H1)
(1) 1196/    13C7 : ED 60               	IN 	H,(C)
(1) 1197/    13C9 : CD 38 03            	CALL 	DAAUS
(1) 1198/    13CC : FD CB 07 9E         	RES 	BIA,(IY+7)
(1) 1199/    13D0 : C9                  	RET
(1) 1200/    13D1 :                     ;*************************************************************************
(1) 1201/    13D1 :                     ;
(1) 1202/    13D1 :                     ; UEBERGANG ZUR EINGABE VON ZU EINEM PORT AUSZUGEBENDEN DATEN
(1) 1203/    13D1 :                     ;
(1) 1204/    13D1 : FD 34 08            Z50E 	INC 	(IY+PROZ)
(1) 1205/    13D4 : FD 7E 0C            	LD 	A,(IY+H1)
(1) 1206/    13D7 : FD 77 0E            	LD 	(IY+H2),A
(1) 1207/    13DA : FD CB 05 9E         	RES 	BIA,(IY+5)
(1) 1208/    13DE : FD CB 07 DE         Z50EM1 	SET 	BIA,(IY+7)
(1) 1209/    13E2 : C9                  	RET
(1) 1210/    13E3 :                     ;*************************************************************************
(1) 1211/    13E3 :                     ;
(1) 1212/    13E3 :                     ; AUSFUEHRUNG DER AUSGABE VON DATEN ZU EINEM PORT
(1) 1213/    13E3 :                     ;
(1) 1214/    13E3 : FD 4E 0E            Z52E 	LD 	C,(IY+H2)
(1) 1215/    13E6 : FD 7E 0C            	LD 	A,(IY+H1)
(1) 1216/    13E9 : ED 79               	OUT 	(C),A
(1) 1217/    13EB : FD 35 08            	DEC 	(IY+PROZ)
(1) 1218/    13EE : 21 00 00            	LD 	HL,00H
(1) 1219/    13F1 : 22 E8 43            	LD 	(HR1),HL
(1) 1220/    13F4 : 22 E2 43            	LD 	(ANZB6),HL
(1) 1221/    13F7 : 18 E5               	JR 	Z50EM1
(1) 1222/    13F9 :                     ;*E
(1) 1223/    13F9 :                     ;*************************************************************************
(1) 1224/    13F9 :                     ;
(1) 1225/    13F9 :                     ; KODES FUER DIE ANZEIGE VON ZUSTAENDEN IN SIEBENSEGMENTDARSTELLUNG
(1) 1226/    13F9 :                     ;
(1) 1227/    13F9 :                     ;*************************************************************************
(1) 1228/    13F9 :                     ;ANUSBR 	EQU 	0C757H
(1) 1229/    13F9 : =5741H              ANZBRE 	EQU 	5741H
(1) 1230/    13F9 : =1000H              FSTAEND EQU 	1000H
(1) 1231/    13F9 : =7311H              ANZLFE 	EQU 	7311H
(1) 1232/    13F9 : =7100H              ANZFIN 	EQU 	7100H
(1) 1233/    13F9 : =73F5H              ANZMSE 	EQU 	73F5H
(1) 1234/    13F9 : =73F5H              ANZFSA 	EQU 	73F5H
(1) 1235/    13F9 : =7617H              ANZMSO 	EQU 	7617H
(1) 1236/    13F9 : =4373H              ANZMLE 	EQU 	4373H
(1) 1237/    13F9 : =4373H              ANZFIL 	EQU 	4373H
(1) 1238/    13F9 : =97F5H              ANZFID 	EQU 	97F5H
(1) 1239/    13F9 :                     ;*INCLUDE LERNSYSTEMEQU.S
(1) 1240/    13F9 :                     
      18/    13F9 :                     	INCLUDE RAM.ASM
(1)    1/    13F9 :                     ;*************************************************************************
(1)    2/    13F9 :                     ;
(1)    3/    13F9 :                     ;	L.S.RAM
(1)    4/    13F9 :                     ;
(1)    5/    13F9 :                     ;*************************************************************************
(1)    6/    13F9 :                     ;
(1)    7/    13F9 :                     ; FUNKTION: ORGANISIERT DEN RAMBEREICH DES MONITORS
(1)    8/    13F9 :                     ;
(1)    9/    13F9 :                     ;
(1)   10/    4000 :                     	ORG 	4000H
(1)   11/    4000 :                     ;	GLOBAL RAMANF RAMEND USERSP SYSTSP
(1)   12/    4000 :                     ;	GLOBAL ANZBER TASTBI PROGZU NMIZUS
(1)   13/    4000 :                     ;	GLOBAL BREAKP HR1 HR2 HR3 FSTACK
(1)   14/    4000 :                     ;	GLOBAL SYSP24 SYSP26 USSP2
(1)   15/    4000 :                     ;	GLOBAL SYSP1 ANZB4 ANZB6 ANZB2
(1)   16/    4000 :                     ;	GLOBAL HR4 HR5
(1)   17/    4000 :                     
(1)   18/    4000 :                     RAMANF 				; ANFANG DES RAMBEREICHES
(1)   19/    43A0 :                     	ORG 	$+3A0H 		; RESERVIERUNG VON SPEICHERPLATZ FUER ANWENDER
(1)   20/    43A0 :                     USERSP 				; ANWENDERSTACK
(1)   21/    43D4 :                     	ORG 	$+52 		; RESERVIERUNG FUER SYSTEMSTACK
(1)   22/    43D4 :                     SYSTSP 				; SYSTEMSTACK
(1)   23/    43D4 :                     TASTBI 	DS 	8 		; ABBILD DER TASTATUR <2 BIT PRO TASTE>
(1)   24/    43DC :                     ANZBER 	DS 	8 		; AKTUELLE WERTE FUER AUFFRISCHEN DER ANZEIGE
(1)   25/    43E4 :                     PROGZU 	DS 	1 		; ZUSTAND DES PROGRAMMS
(1)   26/    43E5 :                     NMIZUS 	DS 	1 		; ZUSTAND BEI EINTRITT IN MONITOR
(1)   27/    43E6 :                     BREAKP 	DS 	2 		; MERKZELLE FUER BREAKPOINTADRESSE
(1)   28/    43E8 :                     HR1 	DS 	2 		; HILFSREGISTER 1 BIS 4
(1)   29/    43EA :                     HR2 	DS 	2
(1)   30/    43EC :                     HR3 	DS 	2
(1)   31/    43EE :                     HR4 	DS 	1
(1)   32/    43EF :                     HR5 	DS 	1
(1)   33/    43F0 :                     FSTACK 	DS 	16 		; FEHLERSTAPEL FUER MAGNETBANDLESEFEHLER
(1)   34/    4400 : =4400H              RAMEND 	EQU 	RAMANF+400H
(1)   35/    4400 : =43BCH              SYSP24 	EQU 	SYSTSP-24
(1)   36/    4400 : =43BAH              SYSP26 	EQU 	SYSTSP-26
(1)   37/    4400 : =43D3H              SYSP1 	EQU 	SYSTSP-1
(1)   38/    4400 : =43DEH              ANZB2 	EQU 	ANZBER+2
(1)   39/    4400 : =43E0H              ANZB4 	EQU 	ANZBER+4
(1)   40/    4400 : =43E2H              ANZB6 	EQU 	ANZBER+6
(1)   41/    4400 : =43A2H              USSP2 	EQU 	USERSP+2
(1)   42/    4400 :                     ;*INCLUDE LERNSYSTEMEQU.S
(1)   43/    4400 :                     ;	END
      19/    4400 :                     	INCLUDE LERNSYSTEMEQU.ASM
(1)    1/    4400 :                     ;*************************************************************************
(1)    2/    4400 :                     ;
(1)    3/    4400 :                     ; REFERENZEN FUER I/O-ADRESSEN, VARIABLENADRESSEN, KODIERUNGEN
(1)    4/    4400 :                     ;
(1)    5/    4400 :                     ;*************************************************************************
(1)    6/    4400 : =80H                PIOD1  	EQU  	080H  		; PIO DATENDRESSE SEGMENTE ANZEIGE
(1)    7/    4400 : =81H                PIOC1  	EQU  	PIOD1+1  	; PIO STEUERADRESSE SEGMENTE ANZEIGE
(1)    8/    4400 : =82H                PIOD2  	EQU  	082H  		; PIO DATENADRESSE SYSTEMTEIL
(1)    9/    4400 : =83H                PIOC2  	EQU  	PIOD2+1  	; PIO STEUERADRESSE SYSTEMTEIL
(1)   10/    4400 : =88H                CTC  	EQU  	088H 		; CTC ADRESSE SYSTEMKANAL
(1)   11/    4400 : =FCH                PIODIG  EQU  	0FCH  		; ADRESSE TREIBER DIGITS
(1)   12/    4400 : =8H                 PROZ  	EQU  	8  		; RELATIVE ADRESSE FUER PROGZU
(1)   13/    4400 : =9H                 NMIZ  	EQU  	9  		; RELATIVE ADRESSE FUER NMIZUS
(1)   14/    4400 : =AH                 BREAK  	EQU  	10  		; RELATIVE ADRESSE FUER BREAKP
(1)   15/    4400 : =CH                 H1  	EQU  	12  		; RELATIVE ADRESSE FUER HR1
(1)   16/    4400 : =EH                 H2  	EQU  	14  		; RELATIVE ADRESSE FUER HR2
(1)   17/    4400 : =10H                H3  	EQU  	16  		; RELATIVE ADRESSE FUER HR3
(1)   18/    4400 : =12H                H4  	EQU  	18  		; RELATIVE ADRESSE FUER HR4
(1)   19/    4400 : =13H                H5  	EQU  	19  		; RELATIVE ADRESSE FUER HR5
(1)   20/    4400 : =0H                 Z1  	EQU  	0  		; KODES FUER DIE MONITORZUSTAENDE
(1)   21/    4400 : =1H                 Z2  	EQU  	1+Z1
(1)   22/    4400 : =2H                 Z3  	EQU  	1+Z2
(1)   23/    4400 : =3H                 Z4A  	EQU  	1+Z3
(1)   24/    4400 : =4H                 Z4  	EQU  	1+Z4A
(1)   25/    4400 : =5H                 Z4C  	EQU  	1+Z4
(1)   26/    4400 : =6H                 Z5  	EQU  	1+Z4C
(1)   27/    4400 : =7H                 Z6  	EQU  	1+Z5
(1)   28/    4400 : =8H                 Z7  	EQU  	1+Z6
(1)   29/    4400 : =9H                 Z8  	EQU  	1+Z7
(1)   30/    4400 : =AH                 Z9  	EQU  	1+Z8
(1)   31/    4400 : =BH                 Z10  	EQU  	1+Z9
(1)   32/    4400 : =CH                 Z12  	EQU  	1+Z10
(1)   33/    4400 : =DH                 Z13  	EQU  	1+Z12
(1)   34/    4400 : =EH                 Z14  	EQU  	1+Z13
(1)   35/    4400 : =FH                 Z16  	EQU  	1+Z14
(1)   36/    4400 : =10H                Z17  	EQU  	1+Z16
(1)   37/    4400 : =11H                Z18  	EQU  	1+Z17
(1)   38/    4400 : =12H                Z19  	EQU  	1+Z18
(1)   39/    4400 : =13H                Z20  	EQU  	1+Z19
(1)   40/    4400 : =14H                Z21A  	EQU  	1+Z20
(1)   41/    4400 : =15H                Z21  	EQU  	1+Z21A
(1)   42/    4400 : =16H                Z22  	EQU  	1+Z21
(1)   43/    4400 : =17H                Z23  	EQU  	1+Z22
(1)   44/    4400 : =18H                Z24  	EQU  	1+Z23
(1)   45/    4400 : =19H                Z25  	EQU  	1+Z24
(1)   46/    4400 : =1AH                Z25A  	EQU  	1+Z25
(1)   47/    4400 : =1BH                Z34  	EQU  	1+Z25A
(1)   48/    4400 : =1CH                Z35  	EQU  	1+Z34
(1)   49/    4400 : =1DH                Z36  	EQU  	1+Z35
(1)   50/    4400 : =1EH                Z37  	EQU  	1+Z36
(1)   51/    4400 : =1FH                Z38  	EQU  	1+Z37
(1)   52/    4400 : =20H                Z39  	EQU  	1+Z38
(1)   53/    4400 : =21H                Z40  	EQU  	1+Z39
(1)   54/    4400 : =22H                Z41  	EQU  	1+Z40
(1)   55/    4400 : =23H                Z42  	EQU  	1+Z41
(1)   56/    4400 : =24H                Z43  	EQU  	1+Z42
(1)   57/    4400 : =25H                Z44  	EQU  	1+Z43
(1)   58/    4400 : =26H                Z45  	EQU  	1+Z44
(1)   59/    4400 : =27H                Z46  	EQU  	1+Z45
(1)   60/    4400 : =28H                Z47  	EQU  	1+Z46
(1)   61/    4400 : =29H                Z48  	EQU  	1+Z47
(1)   62/    4400 : =2AH                Z49  	EQU  	1+Z48
(1)   63/    4400 : =2BH                Z50  	EQU  	1+Z49
(1)   64/    4400 : =2CH                Z51  	EQU  	1+Z50
(1)   65/    4400 : =2DH                Z52  	EQU  	1+Z51
(1)   66/    4400 : =2EH                Z53  	EQU  	1+Z52
(1)   67/    4400 : =2FH                Z54  	EQU  	1+Z53
(1)   68/    4400 : =3H                 BIA  	EQU  	3  		; DEZIMALPUNKT-BIT DER ANZEIGE
(1)   69/    4400 : =0H                 BIB  	EQU  	0  		; PIO-BIT FUER FERNSCHREIBERANSCHLUSS
(1)   70/    4400 : =2H                 BIC  	EQU  	2  		; PIO-BIT FUER AUSGABE AUF MAGNETBAND
(1)   71/    4400 : =1H                 BID  	EQU  	1  		; PIO-BIT FUER EINGABE VOM MAGNETBAND
(1)   72/    4400 : =6H                 BIE  	EQU  	6  		; PIO-BIT ZUR STEUERUNG VON SCON
(1)   73/    4400 :                     
      20/    4400 :                     
      21/    4400 :                     ; Achtung: Es fehlen noch die Prüfsummen
      22/    4400 :                     ;03FC: 4A 5C FE 21
      23/    4400 :                     ;13FC: 72 36 FE 22
      24/    4400 :                     ;s.a. ROM_TEST.asm
      25/    4400 :                     
      26/    4400 :                     	END