Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- elektronik:u883:listing [2022/04/19 13:19] – volkerp
+++ elektronik:u883:listing [2022/08/04 13:34] (aktuell) – Listing aktualisiert volkerp
@@ Zeile 3: / Zeile 3: @@
 Der komplette TINY-MP-BASIC-Interpreter des ROMs des U883
+<WRAP lo>
 <code>
-/       0 :                     ; reass: Volker Pohlers 02.2007/07.2017
+ AS V1.42 Beta [Bld 157] - Source File U883_MME_BAS.asm - Page 1 - 8/16/2021 14:5:33
+/       0 :                     ; reass: Volker Pohlers 02.2007/07.2021
 /       0 :
 /       0 :
@@ Zeile 40: / Zeile 42: @@
 /       0 :                     				; Bit 0 01: 1=ELSE
 /       0 :                     				; Bit 1 02: END
-/       0 :                     				; Bit 2 04:
+/       0 :                     				; Bit 2 04: CONT
-/       0 :                     				; Bit 3 08: STOP
+/       0 :                     				; Bit 3 08: STOP, STEP
-/       0 :                     				; ...
+/       0 :                     				; Bit 4 10: <
-/       0 :                     				; Bit 4 10: <
+/       0 :                     				; Bit 5 20: >
-/       0 :                     				; Bit 5 20: >
+/       0 :                     				; Bit 6 40: =
-/       0 :                     				; Bit 6 40: =
+/       0 :                     				; Bit 7 80:
-/       0 :                     				; Bit 7 80:
+/       0 : =7FH                reg_7F		equ	7Fh
-/       0 : =7FH                reg_7F		equ	7Fh
+/       0 :
-/       0 :
+/       0 :                     ;reg_20h..reg53h Variablen A..Z (Doppelregister, 16 Bit)
-/       0 :                     ;reg_20h..reg53h Variablen A..Z (Doppelregister, 16 Bit)
+/       0 :                     ;ab 54h frei nutzbar, z.B. f. Stack
-/       0 :                     ;ab 54h frei nutzbar, z.B. f. Stack
+/       0 :
-/       0 :
+/       0 :                     ; ext. Routinen
-/       0 :                     ; ext. Routinen
+/       0 :                     ;saddrh	equ	0E000h	; startadr RAM s. init10
-/       0 :                     ;saddrh	equ	0E000h	; startadr RAM s. init10
+/       0 :                     ;saddr	equ	812h	; startadr ROM s. init10
-/       0 :                     ;saddr	equ	812h	; startadr ROM s. init10
+/       0 : =815H               getch	equ	815h
-/       0 : =815H               getch	equ	815h
+/       0 : =818H               putch	equ	818h
-/       0 : =818H               putch	equ	818h
+/       0 :
 /       0 :
-/       0 :
+/       0 :                     ; Register
-/       0 :                     ; Register
+/       0 : =0FEH               gpr 		equ	0FEh	; General purpose register bzw. Stackpointer, Highteil
-/       0 : =0FEH               gpr 		equ	0FEh	; General purpose register bzw. Stackpointer, Highteil
+/       0 :
-/       0 :
+/       0 :                     ;-----------------------------------------------------------------------------
-/       0 :                     ;-----------------------------------------------------------------------------
+/       0 :                     ;
-/       0 :                     ;
+/       0 :                     ;-----------------------------------------------------------------------------
-/       0 :                     ;-----------------------------------------------------------------------------
+/       0 :
-/       0 :
+/       0 : 08 00               irq0:		dw	800h
-/       0 : 08 00               irq0:		dw	800h
+/       2 : 08 03               irq1:		dw	803h
-/       2 : 08 03               irq1:		dw	803h
+/       4 : 08 06               irq2:		dw	806h
-/       4 : 08 06               irq2:		dw	806h
+/       6 : 08 09               irq3:		dw	809h
-/       6 : 08 09               irq3:		dw	809h
+/       8 : 08 0C               irq4:		dw	80Ch
-/       8 : 08 0C               irq4:		dw	80Ch
+/       A : 08 0F               irq5:		dw	80Fh
-/       A : 08 0F               irq5:		dw	80Fh
+/       C :
-/       C :
+/       C :                     ;-----------------------------------------------------------------------------
-/       C :                     ;-----------------------------------------------------------------------------
+/       C :                     ; Bootstrap MODULE
-/       C :                     ; Bootstrap MODULE
+/       C :                     ; s. Kieser/Bankel Seite	228-229
-/       C :                     ; s. Kieser/Bankel Seite	228-229
+/       C :                     ;-----------------------------------------------------------------------------
-/       C :                     ;-----------------------------------------------------------------------------
+/       C :
-/       C :
+/       C :                     		; public init
-/       C :                     		; public init
+/       C : 31 00               init:		srp	#0		; Registerprointer auf 00-Gruppe
-/       C : 31 00               init:		srp	#0		; Registerprointer auf 00-Gruppe
+/       E : 3C 0F               		ld	R3, #0Fh	; Test,	ob P32 und P35 gebrückt	sind
-/       E : 3C 0F               		ld	R3, #0Fh	; Test,	ob P32 und P35 gebrückt	sind
+/      10 : FF                  		nop
-/      10 : FF                  		nop
+/      11 : 76 E3 04            		tm	R3, #4
-/      11 : 76 E3 04            		tm	R3, #4
+/      14 : 3C FF               		ld	R3, #0FFh
-/      14 : 3C FF               		ld	R3, #0FFh
+/      16 : EB 05               		jr	NZ, init10
-/      16 : EB 05               		jr	NZ, init10
+/      18 : 76 E3 04            		tm	R3, #4
-/      18 : 76 E3 04            		tm	R3, #4
+/      1B : EB 20               		jr	NZ, test	; wenn gebrückt, dann weiter im	Test-Programm
-/      1B : EB 20               		jr	NZ, test	; wenn gebrückt, dann weiter im	Test-Programm
+/      1D :                     ;
-/      1D :                     ;
+/      1D : E6 F8 B6            init10:		ld	p01m, #10110110b ; Festlegung für erweitertes Zeitverhalten
-/      1D : E6 F8 B6            init10:		ld	p01m, #10110110b ; Festlegung für erweitertes Zeitverhalten
+/      20 : E6 F7 08            		ld	p3m, #00001000b	; Programmierung Port 3
-/      20 : E6 F7 08            		ld	p3m, #00001000b	; Programmierung Port 3
+/      23 : 4C 08               		ld	R4, #8		; Test,	ob sich	auf Adresse 0812h RAM befindet
-/      23 : 4C 08               		ld	R4, #8		; Test,	ob sich	auf Adresse 0812h RAM befindet
+/      25 : 5C 12               		ld	R5, #12h
-/      25 : 5C 12               		ld	R5, #12h
+/      27 : C2 64               		ldc	R6, @RR4
-/      27 : C2 64               		ldc	R6, @RR4
+/      29 : 60 E6               		com	R6
-/      29 : 60 E6               		com	R6
+/      2B : D2 64               		ldc	@RR4, R6
-/      2B : D2 64               		ldc	@RR4, R6
+/      2D : C2 74               		ldc	R7, @RR4
-/      2D : C2 74               		ldc	R7, @RR4
+/      2F : 60 E6               		com	R6
-/      2F : 60 E6               		com	R6
+/      31 : D2 64               		ldc	@RR4, R6
-/      31 : D2 64               		ldc	@RR4, R6
+/      33 : B2 67               		xor	R6, R7
-/      33 : B2 67               		xor	R6, R7
+/      35 : 31 F0               		srp	#0F0h
-/      35 : 31 F0               		srp	#0F0h
+/      37 : ED E0 00            		jp	NZ, 0E000h	; wenn RAM lokalisiert ist, Sprung nach	0E000h
-/      37 : ED E0 00            		jp	NZ, 0E000h	; wenn RAM lokalisiert ist, Sprung nach	0E000h
+/      3A : 8D 08 12            		jp	812h		; sonst	nach Adresse 0812h springen
-/      3A : 8D 08 12            		jp	812h		; sonst	nach Adresse 0812h springen
+/      3D :
 /      3D :
-/      3D :
+/      3D :                     ;-----------------------------------------------------------------------------
-/      3D :                     ;-----------------------------------------------------------------------------
+/      3D :                     ; Testhilfe zur	Ausgabe	von alternierenden
-/      3D :                     ; Testhilfe zur	Ausgabe	von alternierenden
+/      3D :                     ; Impulsen am Port P1 und P0 mit
-/      3D :                     ; Impulsen am Port P1 und P0 mit
+/      3D :                     ; Triggerimpuls	an Leitung P35
-/      3D :                     ; Triggerimpuls	an Leitung P35
+/      3D :                     ;-----------------------------------------------------------------------------
-/      3D :                     ;-----------------------------------------------------------------------------
+/      3D :
-/      3D :
+/      3D : E6 F8 04            test:		ld	p01m, #4	; Port P1 und P0 auf Ausgabe
-/      3D : E6 F8 04            test:		ld	p01m, #4	; Port P1 und P0 auf Ausgabe
+/      40 : E6 F1 C0            		ld	tmr, #0C0h	; internen Takt	ausgeben
-/      40 : E6 F1 C0            		ld	tmr, #0C0h	; internen Takt	ausgeben
+/      43 : 0C FF               		ld	R0, #0FFh
-/      43 : 0C FF               		ld	R0, #0FFh
+/      45 : 1C FF               		ld	R1, #0FFh
-/      45 : 1C FF               		ld	R1, #0FFh
+/      47 : CF                  		rcf
-/      47 : CF                  		rcf
+/      48 : 56 E3 DF            test10:		and	R3, #0DFh	; Triggerimpuls	an Leitung P35
-/      48 : 56 E3 DF            test10:		and	R3, #0DFh	; Triggerimpuls	an Leitung P35
+/      4B : 46 E3 20            		or	R3, #20h
-/      4B : 46 E3 20            		or	R3, #20h
+/      4E : 10 E1               test20:		rlc	R1
-/      4E : 10 E1               test20:		rlc	R1
+/      50 : 10 E0               		rlc	R0
-/      50 : 10 E0               		rlc	R0
+/      52 : 76 E3 04            		tm	R3, #4		; Abfrage für tristate
-/      52 : 76 E3 04            		tm	R3, #4		; Abfrage für tristate
+/      55 : 6B 04               		jr	Z, tristate
-/      55 : 6B 04               		jr	Z, tristate
+/      57 : 7B F5               		jr	C, test20
-/      57 : 7B F5               		jr	C, test20
+/      59 : 8B ED               		jr	test10
-/      59 : 8B ED               		jr	test10
+/      5B : E6 F8 7F            tristate:	ld	p01m, #7Fh	; Ports	0-1 mode
-/      5B : E6 F8 7F            tristate:	ld	p01m, #7Fh	; Ports	0-1 mode
+/      5E : 8B FE               halt:		jr	halt		; Warteschleife
-/      5E : 8B FE               halt:		jr	halt		; Warteschleife
+/      60 :
-/      60 :
+/      60 :                     ;-----------------------------------------------------------------------------
-/      60 :                     ;-----------------------------------------------------------------------------
+/      60 :                     ; dma MODULE
-/      60 :                     ; dma MODULE
+/      60 :                     ; s. Kieser/Bankel Seite	235
-/      60 :                     ; s. Kieser/Bankel Seite	235
+/      60 :
-/      60 :
+/      60 :                     ; Serviceroutine für BUSREQ,
-/      60 :                     ; Serviceroutine für BUSREQ,
+/      60 :                     ; mit BUSREQ an	P32 und
-/      60 :                     ; mit BUSREQ an	P32 und
+/      60 :                     ; BUSACK ans P35, beide	L-aktiv
-/      60 :                     ; BUSACK ans P35, beide	L-aktiv
+/      60 :                     ;-----------------------------------------------------------------------------
-/      60 :                     ;-----------------------------------------------------------------------------
+/      60 :
-/      60 :
+/      60 :                     busreq:					; Festlegung der Kodierung für Tristate	für Port 0 und P1
-/      60 :                     busreq:					; Festlegung der Kodierung für Tristate	für Port 0 und P1
+/      60 : 46 7F 18            		or	reg_7F, #18h	; P01M muß in Register %7F verfügbar sein, da P01M nicht lesbar
-/      60 : 46 7F 18            		or	reg_7F, #18h	; P01M muß in Register %7F verfügbar sein, da P01M nicht lesbar
+/      63 : E4 7F F8            		ld	p01m, reg_7F	; Ports	0-1 mode
-/      63 : E4 7F F8            		ld	p01m, reg_7F	; Ports	0-1 mode
+/      66 : 56 03 DF            		and	p3, #0DFh	; Ausgabe von BUSACK
-/      66 : 56 03 DF            		and	p3, #0DFh	; Ausgabe von BUSACK
+/      69 : 76 03 04            busreq10:	tm	p3, #4		; Port 3
-/      69 : 76 03 04            busreq10:	tm	p3, #4		; Port 3
+/      6C : 6B FB               		jr	Z, busreq10	; Ende abwarten
-/      6C : 6B FB               		jr	Z, busreq10	; Ende abwarten
+/      6E : 56 7F F7            		and	reg_7F, #0F7h	; Festlegung der Kodierung für AD0..AD7	an Port	0 und Port 1
-/      6E : 56 7F F7            		and	reg_7F, #0F7h	; Festlegung der Kodierung für AD0..AD7	an Port	0 und Port 1
+/      71 : 46 03 20            		or	p3, #20h	; BUSACK zurücknehmen
-/      71 : 46 03 20            		or	p3, #20h	; BUSACK zurücknehmen
+/      74 : E4 7F F8            		ld	p01m, reg_7F	; wieder auf Bus gehen
-/      74 : E4 7F F8            		ld	p01m, reg_7F	; wieder auf Bus gehen
+/      77 : FF                  		nop			; Ausführung (wegen Pipeline) abwarten
-/      77 : FF                  		nop			; Ausführung (wegen Pipeline) abwarten
+/      78 : BF                  		iret
-/      78 : BF                  		iret
+/      79 :
-/      79 :
+/      79 :                     ; Beginn TINY-MP-BASIC
-/      79 :                     ; Beginn TINY-MP-BASIC
+/      79 :                     ; Variablen A..Z liegen in Register 20h..53h
-/      79 :                     ; Variablen A..Z liegen in Register 20h..53h
+/      79 :                     ; Registernutzung RP = 10h
-/      79 :                     ; Registernutzung RP = 10h
+/      79 :                     ; RR0	Pointer aktuelles Zeichen in BASIC-Programm
-/      79 :                     ; RR0	Pointer aktuelles Zeichen in BASIC-Programm
+/      79 :                     ; RR2	Y, Rückgabewert
-/      79 :                     ; RR2	Y, Rückgabewert
+/      79 :                     ; RR4	X, Eingabewert
-/      79 :                     ; RR4	X, Eingabewert
+/      79 :                     ; R6 	aktuelles Zeichen
-/      79 :                     ; R6 	aktuelles Zeichen
+/      79 :
 /      79 :
-/      79 :
+/      79 :                     ; Arithmetik: Parameter1 X R4+R5,  Rückgabewert Y R2+R3
-/      79 :                     ; Arithmetik: Parameter1 X R4+R5,  Rückgabewert Y R2+R3
+/      79 :
-/      79 :
+/      79 :                     ;-----------------------------------------------------------------------------
-/      79 :                     ;-----------------------------------------------------------------------------
+/      79 :                     ; Y := X
-/      79 :                     ; Y := X
+/      79 :                     ;-----------------------------------------------------------------------------
-/      79 :                     ;-----------------------------------------------------------------------------
+/      79 :
-/      79 :
+/      79 : 28 E4               p_let:		ld	R2, R4		; Y := X
-/      79 : 28 E4               p_let:		ld	R2, R4		; Y := X
+/      7B : 38 E5               		ld	R3, R5
-/      7B : 38 E5               		ld	R3, R5
+/      7D : AF                  		ret
-/      7D : AF                  		ret
+/      7E :
-/      7E :
+/      7E :                     ;-----------------------------------------------------------------------------
-/      7E :                     ;-----------------------------------------------------------------------------
+/      7E :                     ; Y := Y + X
-/      7E :                     ; Y := Y + X
+/      7E :                     ;-----------------------------------------------------------------------------
-/      7E :                     ;-----------------------------------------------------------------------------
+/      7E :
-/      7E :
+/      7E : 02 35               p_plus:		add	R3, R5		; Y := Y + X
-/      7E : 02 35               p_plus:		add	R3, R5		; Y := Y + X
+/      80 : 12 24               		adc	R2, R4
-/      80 : 12 24               		adc	R2, R4
+/      82 : 4B 16               		jr	OV, p_abs3
-/      82 : 4B 16               		jr	OV, p_abs3
+/      84 : AF                  		ret
-/      84 : AF                  		ret
+/      85 :
-/      85 :
+/      85 :                     ;-----------------------------------------------------------------------------
-/      85 :                     ;-----------------------------------------------------------------------------
+/      85 :                     ; Y := Y - X
-/      85 :                     ; Y := Y - X
+/      85 :                     ;-----------------------------------------------------------------------------
-/      85 :                     ;-----------------------------------------------------------------------------
+/      85 :
-/      85 :
+/      85 : 22 35               p_minus:	sub	R3, R5		; Y := Y - X
-/      85 : 22 35               p_minus:	sub	R3, R5		; Y := Y - X
+/      87 : 32 24               		sbc	R2, R4
-/      87 : 32 24               		sbc	R2, R4
+/      89 : 4B 0F               		jr	OV, p_abs3
-/      89 : 4B 0F               		jr	OV, p_abs3
+/      8B : AF                  		ret
-/      8B : AF                  		ret
+/      8C :
-/      8C :
+/      8C :                     ;-----------------------------------------------------------------------------
-/      8C :                     ;-----------------------------------------------------------------------------
+/      8C :                     ; interne Prozedur ABS
-/      8C :                     ; interne Prozedur ABS
+/      8C :                     ; ABS[parameter] absoluter Betrag
-/      8C :                     ; ABS[parameter] absoluter Betrag
+/      8C :                     ;-----------------------------------------------------------------------------
-/      8C :                     ;-----------------------------------------------------------------------------
+/      8C :                     ; Y := ABS (X)
-/      8C :                     ; Y := ABS (X)
+/      8C : 76 E4 80            p_abs:		tm	R4, #80h	; X Test Vorzeichen Bit	7
-/      8C : 76 E4 80            p_abs:		tm	R4, #80h	; X Test Vorzeichen Bit	7
+/      8F : 6B E8               		jr	Z, p_let	; Y := X
-/      8F : 6B E8               		jr	Z, p_let	; Y := X
+/      91 :                     		; sonst negieren
-/      91 :                     		; sonst negieren
+/      91 : B0 E2               p_abs1:		clr	R2		; Y := 0
-/      91 : B0 E2               p_abs1:		clr	R2		; Y := 0
+/      93 : B0 E3               		clr	R3
-/      93 : B0 E3               		clr	R3
+/      95 : 8B EE               		jr	p_minus		; Y := Y - X
-/      95 : 8B EE               		jr	p_minus		; Y := Y - X
+/      97 : 46 0F 80            p_abs2:		or	reg_0F, #80h	; Bit7
-/      97 : 46 0F 80            p_abs2:		or	reg_0F, #80h	; Bit7
+/      9A : 46 0E 80            p_abs3:		or	reg_0E, #80h	; Bit7
-/      9A : 46 0E 80            p_abs3:		or	reg_0E, #80h	; Bit7
+/      9D : AF                  		ret
-/      9D : AF                  		ret
+/      9E :
 /      9E :
-/      9E :
+/      9E :                     ;-----------------------------------------------------------------------------
-/      9E :                     ;-----------------------------------------------------------------------------
+/      9E :                     ; UP zu DIV/MULT
-/      9E :                     ; UP zu DIV/MULT
+/      9E :                     ;-----------------------------------------------------------------------------
-/      9E :                     ;-----------------------------------------------------------------------------
+/      9E :
-/      9E :
+/      9E :                     ; ? Vorzeichen behandeln
-/      9E :                     ; ? Vorzeichen behandeln
+/      9E : 88 E2               sign:		ld	R8, R2
-/      9E : 88 E2               sign:		ld	R8, R2
+/      A0 : B2 84               		xor	R8, R4
-/      A0 : B2 84               		xor	R8, R4
+/      A2 : 9C 02               		ld	R9, #2
-/      A2 : 9C 02               		ld	R9, #2
+/      A4 :                     ;
-/      A4 :                     ;
+/      A4 : 68 E2               sign1:		ld	R6, R2
-/      A4 : 68 E2               sign1:		ld	R6, R2
+/      A6 : 78 E3               		ld	R7, R3
-/      A6 : 78 E3               		ld	R7, R3
+/      A8 : D6 00 8C            		call	p_abs		; ABS[parameter] absoluter Betrag
-/      A8 : D6 00 8C            		call	p_abs		; ABS[parameter] absoluter Betrag
+/      AB : 48 E6               		ld	R4, R6
-/      AB : 48 E6               		ld	R4, R6
+/      AD : 58 E7               		ld	R5, R7
-/      AD : 58 E7               		ld	R5, R7
+/      AF : 9A F3               		djnz	R9, sign1
-/      AF : 9A F3               		djnz	R9, sign1
+/      B1 : 68 E2               		ld	R6, R2
-/      B1 : 68 E2               		ld	R6, R2
+/      B3 : 78 E3               		ld	R7, R3
-/      B3 : 78 E3               		ld	R7, R3
+/      B5 : B0 E2               		clr	R2
-/      B5 : B0 E2               		clr	R2
+/      B7 : B0 E3               		clr	R3
-/      B7 : B0 E3               		clr	R3
+/      B9 : AF                  		ret
-/      B9 : AF                  		ret
+/      BA :
-/      BA :
+/      BA :                     ;-----------------------------------------------------------------------------
-/      BA :                     ;-----------------------------------------------------------------------------
+/      BA :                     ; Y := Y * X
-/      BA :                     ; Y := Y * X
+/      BA :                     ;-----------------------------------------------------------------------------
-/      BA :                     ;-----------------------------------------------------------------------------
+/      BA :
-/      BA :
+/      BA : D6 00 9E            p_mult:		call	sign
-/      BA : D6 00 9E            p_mult:		call	sign
+/      BD : BC 0F               		ld	R11, #0Fh
-/      BD : BC 0F               		ld	R11, #0Fh
+/      BF : D0 E6               p_mult1:	sra	R6
-/      BF : D0 E6               p_mult1:	sra	R6
+/      C1 : C0 E7               		rrc	R7
-/      C1 : C0 E7               		rrc	R7
+/      C3 : FB 06               		jr	NC, p_mult2
-/      C3 : FB 06               		jr	NC, p_mult2
+/      C5 : 02 35               		add	R3, R5
-/      C5 : 02 35               		add	R3, R5
+/      C7 : 12 24               		adc	R2, R4
-/      C7 : 12 24               		adc	R2, R4
+/      C9 : 4B CC               		jr	OV, p_abs2
-/      C9 : 4B CC               		jr	OV, p_abs2
+/      CB : 10 E5               p_mult2:	rlc	R5
-/      CB : 10 E5               p_mult2:	rlc	R5
+/      CD : 10 E4               		rlc	R4
-/      CD : 10 E4               		rlc	R4
+/      CF : CB 04               		jr	NOV, p_mult3
-/      CF : CB 04               		jr	NOV, p_mult3
+/      D1 : 42 67               		or	R6, R7
-/      D1 : 42 67               		or	R6, R7
+/      D3 : EB C2               		jr	NZ, p_abs2
-/      D3 : EB C2               		jr	NZ, p_abs2
+/      D5 : BA E8               p_mult3:	djnz	R11, p_mult1
-/      D5 : BA E8               p_mult3:	djnz	R11, p_mult1
+/      D7 : 48 E2               p_mult4:	ld	R4, R2
-/      D7 : 48 E2               p_mult4:	ld	R4, R2
+/      D9 : 58 E3               		ld	R5, R3
-/      D9 : 58 E3               		ld	R5, R3
+/      DB : 10 E8               		rlc	R8
-/      DB : 10 E8               		rlc	R8
+/      DD : 7B B2               		jr	C, p_abs1
-/      DD : 7B B2               		jr	C, p_abs1
+/      DF : AF                  		ret
-/      DF : AF                  		ret
+/      E0 :
-/      E0 :
+/      E0 :                     ;-----------------------------------------------------------------------------
-/      E0 :                     ;-----------------------------------------------------------------------------
+/      E0 :                     ; Y := Y / X
-/      E0 :                     ; Y := Y / X
+/      E0 :                     ;-----------------------------------------------------------------------------
-/      E0 :                     ;-----------------------------------------------------------------------------
+/      E0 :
-/      E0 :
+/      E0 : D6 00 9E            p_div:		call	sign
-/      E0 : D6 00 9E            p_div:		call	sign
+/      E3 : 9C 10               		ld	R9, #10h
-/      E3 : 9C 10               		ld	R9, #10h
+/      E5 : CF                  		rcf
-/      E5 : CF                  		rcf
+/      E6 : B0 EA               		clr	R10		; RR10 = Divisionstrest = 0
-/      E6 : B0 EA               		clr	R10		; RR10 = Divisionstrest = 0
+/      E8 : B0 EB               		clr	R11
-/      E8 : B0 EB               		clr	R11
+/      EA : 10 E7               p_div1:		rlc	R7
-/      EA : 10 E7               p_div1:		rlc	R7
+/      EC : 10 E6               		rlc	R6
-/      EC : 10 E6               		rlc	R6
+/      EE : 10 EB               		rlc	R11
-/      EE : 10 EB               		rlc	R11
+/      F0 : 10 EA               		rlc	R10
-/      F0 : 10 EA               		rlc	R10
+/      F2 : 7B 0A               		jr	C, p_div2
-/      F2 : 7B 0A               		jr	C, p_div2
+/      F4 : A2 4A               		cp	R4, R10
-/      F4 : A2 4A               		cp	R4, R10
+/      F6 : BB 0B               		jr	UGT, p_div3
-/      F6 : BB 0B               		jr	UGT, p_div3
+/      F8 : 7B 04               		jr	C, p_div2
-/      F8 : 7B 04               		jr	C, p_div2
+/      FA : A2 5B               		cp	R5, R11
-/      FA : A2 5B               		cp	R5, R11
+/      FC : BB 05               		jr	UGT, p_div3
-/      FC : BB 05               		jr	UGT, p_div3
+/      FE : 22 B5               p_div2:		sub	R11, R5
-/      FE : 22 B5               p_div2:		sub	R11, R5
+/     100 : 32 A4               		sbc	R10, R4
-/     100 : 32 A4               		sbc	R10, R4
+/     102 : DF                  		scf
-/     102 : DF                  		scf
+/     103 : 9A E5               p_div3:		djnz	R9, p_div1
-/     103 : 9A E5               p_div3:		djnz	R9, p_div1
+/     105 : 98 E4               		ld	R9, R4
-/     105 : 98 E4               		ld	R9, R4
+/     107 : 42 95               		or	R9, R5
-/     107 : 42 95               		or	R9, R5
+/     109 : 6B 0A               		jr	Z, p_div5
-/     109 : 6B 0A               		jr	Z, p_div5
+/     10B : 10 E7               		rlc	R7
-/     10B : 10 E7               		rlc	R7
+/     10D : 10 E6               		rlc	R6
-/     10D : 10 E6               		rlc	R6
+/     10F :                     ;
-/     10F :                     ;
+/     10F : 28 E6               p_div4:		ld	R2, R6
-/     10F : 28 E6               p_div4:		ld	R2, R6
+/     111 : 38 E7               		ld	R3, R7
-/     111 : 38 E7               		ld	R3, R7
+/     113 : 8B C2               		jr	p_mult4
-/     113 : 8B C2               		jr	p_mult4
+/     115 :                     ;
-/     115 :                     ;
+/     115 : D6 01 0F            p_div5:		call	p_div4
-/     115 : D6 01 0F            p_div5:		call	p_div4
+/     118 : 46 0E 40            		or	reg_0E, #40h	; Bit6
-/     118 : 46 0E 40            		or	reg_0E, #40h	; Bit6
+/     11B : 46 0F 80            p_div6:		or	reg_0F, #80h	; Bit7
-/     11B : 46 0F 80            p_div6:		or	reg_0F, #80h	; Bit7
+/     11E : AF                  		ret
-/     11E : AF                  		ret
+/     11F :
-/     11F :
+/     11F :                     ;-----------------------------------------------------------------------------
-/     11F :                     ;-----------------------------------------------------------------------------
+/     11F :                     ; $-Operator
-/     11F :                     ; $-Operator
+/     11F :                     ; Y := Y MOD X
-/     11F :                     ; Y := Y MOD X
+/     11F :                     ;-----------------------------------------------------------------------------
-/     11F :                     ;-----------------------------------------------------------------------------
+/     11F :
-/     11F :
+/     11F : D6 00 E0            p_mod:		call	p_div
-/     11F : D6 00 E0            p_mod:		call	p_div
+/     122 : 88 E2               		ld	R8, R2
-/     122 : 88 E2               		ld	R8, R2
+/     124 : 28 EA               		ld	R2, R10		; Divisonsrest
-/     124 : 28 EA               		ld	R2, R10		; Divisonsrest
+/     126 : 38 EB               		ld	R3, R11
-/     126 : 38 EB               		ld	R3, R11
+/     128 : 8B AD               		jr	p_mult4
-/     128 : 8B AD               		jr	p_mult4
+/     12A :
-/     12A :
+/     12A :                     ;-----------------------------------------------------------------------------
-/     12A :                     ;-----------------------------------------------------------------------------
+/     12A :                     ; $-Operator
-/     12A :                     ; $-Operator
+/     12A :                     ; Y := Y OR X
-/     12A :                     ; Y := Y OR X
+/     12A :                     ;-----------------------------------------------------------------------------
-/     12A :                     ;-----------------------------------------------------------------------------
+/     12A :
-/     12A :
+/     12A : 42 24               p_or:		or	R2, R4
-/     12A : 42 24               p_or:		or	R2, R4
+/     12C : 42 35               		or	R3, R5
-/     12C : 42 35               		or	R3, R5
+/     12E : AF                  		ret
-/     12E : AF                  		ret
+/     12F :
-/     12F :
+/     12F :                     ;-----------------------------------------------------------------------------
-/     12F :                     ;-----------------------------------------------------------------------------
+/     12F :                     ; $-Operator
-/     12F :                     ; $-Operator
+/     12F :                     ; Y := Y AND X
-/     12F :                     ; Y := Y AND X
+/     12F :                     ;-----------------------------------------------------------------------------
-/     12F :                     ;-----------------------------------------------------------------------------
+/     12F :
-/     12F :
+/     12F : 52 24               p_and:		and	R2, R4
-/     12F : 52 24               p_and:		and	R2, R4
+/     131 : 52 35               		and	R3, R5
-/     131 : 52 35               		and	R3, R5
+/     133 : AF                  		ret
-/     133 : AF                  		ret
+/     134 :
-/     134 :
+/     134 :                     ;-----------------------------------------------------------------------------
-/     134 :                     ;-----------------------------------------------------------------------------
+/     134 :                     ; $-Operator
-/     134 :                     ; $-Operator
+/     134 :                     ; Y := Y XOR X
-/     134 :                     ; Y := Y XOR X
+/     134 :                     ;-----------------------------------------------------------------------------
-/     134 :                     ;-----------------------------------------------------------------------------
+/     134 :
-/     134 :
+/     134 : B2 24               p_xor:		xor	R2, R4
-/     134 : B2 24               p_xor:		xor	R2, R4
+/     136 : B2 35               		xor	R3, R5
-/     136 : B2 35               		xor	R3, R5
+/     138 : AF                  		ret
-/     138 : AF                  		ret
+/     139 :
-/     139 :
+/     139 :                     ;-----------------------------------------------------------------------------
-/     139 :                     ;-----------------------------------------------------------------------------
+/     139 :                     ; interne Prozedur NOT
-/     139 :                     ; interne Prozedur NOT
+/     139 :                     ;-----------------------------------------------------------------------------
-/     139 :                     ;-----------------------------------------------------------------------------
+/     139 :                     ; Y := NOT X
-/     139 :                     ; Y := NOT X
+/     139 :                     ; NOT[parameter] bitweise logische Negation
-/     139 :                     ; NOT[parameter] bitweise logische Negation
+/     139 :
-/     139 :
+/     139 : D6 00 79            p_not:		call	p_let		; Y := X
-/     139 : D6 00 79            p_not:		call	p_let		; Y := X
+/     13C : 60 E2               		com	R2		; Y := NOT X
-/     13C : 60 E2               		com	R2		; Y := NOT X
+/     13E : 60 E3               		com	R3
-/     13E : 60 E3               		com	R3
+/     140 : AF                  		ret
-/     140 : AF                  		ret
+/     141 :
-/     141 :
+/     141 :                     ;-----------------------------------------------------------------------------
-/     141 :                     ;-----------------------------------------------------------------------------
+/     141 :                     ; Vergleich RR2 und RR4 auf <,=,>: out: reg_0F
-/     141 :                     ; Vergleich RR2 und RR4 auf <,=,>: out: reg_0F
+/     141 :                     ;-----------------------------------------------------------------------------
-/     141 :                     ;-----------------------------------------------------------------------------
+/     141 :
-/     141 :
+/     141 : 56 0F 8F            relcmp:		and	reg_0F, #8Fh	; Bit 4..6 = 0
-/     141 : 56 0F 8F            relcmp:		and	reg_0F, #8Fh	; Bit 4..6 = 0
+/     144 : A2 24               		cp	R2, R4
-/     144 : A2 24               		cp	R2, R4
+/     146 : 6B 0A               		jr	Z, relcmp3
-/     146 : 6B 0A               		jr	Z, relcmp3
+/     148 : 7C 20               		ld	R7, #20h
-/     148 : 7C 20               		ld	R7, #20h
+/     14A : AB 02               		jr	GT, relcmp2	; > Bitmaske 20h
-/     14A : AB 02               		jr	GT, relcmp2	; > Bitmaske 20h
+/     14C : 7C 10               relcmp1:	ld	R7, #10h	; < Bitmaske 10h
-/     14C : 7C 10               relcmp1:	ld	R7, #10h	; < Bitmaske 10h
+/     14E : 44 E7 0F            relcmp2:	or	reg_0F, R7
-/     14E : 44 E7 0F            relcmp2:	or	reg_0F, R7
+/     151 : AF                  		ret
-/     151 : AF                  		ret
+/     152 :                     ;
-/     152 :                     ;
+/     152 : 7C 40               relcmp3:	ld	R7, #40h
-/     152 : 7C 40               relcmp3:	ld	R7, #40h
+/     154 : A2 35               		cp	R3, R5
-/     154 : A2 35               		cp	R3, R5
+/     156 : 6B F6               		jr	Z, relcmp2	; = Bitmaske 40h
-/     156 : 6B F6               		jr	Z, relcmp2	; = Bitmaske 40h
+/     158 : 7C 20               		ld	R7, #20h
-/     158 : 7C 20               		ld	R7, #20h
+/     15A : BB F2               		jr	UGT, relcmp2
-/     15A : BB F2               		jr	UGT, relcmp2
+/     15C : 8B EE               		jr	relcmp1
-/     15C : 8B EE               		jr	relcmp1
+/     15E :
-/     15E :
+/     15E :                     ;-----------------------------------------------------------------------------
-/     15E :                     ;-----------------------------------------------------------------------------
+/     15E :                     ; UP zu c_PRINTHEX
-/     15E :                     ; UP zu c_PRINTHEX
+/     15E :                     ; Konvertierung nach hexadezimal
-/     15E :                     ; Konvertierung nach hexadezimal
+/     15E :                     ;-----------------------------------------------------------------------------
-/     15E :                     ;-----------------------------------------------------------------------------
+/     15E :
-/     15E :
+/     15E : 88 E3               tohex:		ld	R8, R3		; Byte->Nibble
-/     15E : 88 E3               tohex:		ld	R8, R3		; Byte->Nibble
+/     160 : 78 E3               		ld	R7, R3		; R2/R3 in R5..R8 kopieren
-/     160 : 78 E3               		ld	R7, R3		; R2/R3 in R5..R8 kopieren
+/     162 : 68 E2               		ld	R6, R2		;
-/     162 : 68 E2               		ld	R6, R2		;
+/     164 : 58 E2               		ld	R5, R2		;
-/     164 : 58 E2               		ld	R5, R2		;
+/     166 : F0 E5               		swap	R5		; Hi Nibble in untere Tetrade
-/     166 : F0 E5               		swap	R5		; Hi Nibble in untere Tetrade
+/     168 : F0 E7               		swap	R7		; Hi Nibble in untere Tetrade
-/     168 : F0 E7               		swap	R7		; Hi Nibble in untere Tetrade
+/     16A : 4C 25               		ld	R4, #'%'
-/     16A : 4C 25               		ld	R4, #'%'
+/     16C :                     		;
-/     16C :                     		;
+/     16C : AC 04               		ld	R10, #4		; 4 Stellen
-/     16C : AC 04               		ld	R10, #4		; 4 Stellen
+/     16E : BC 15               tohex1:		ld	R11, #15h	; Buffer
-/     16E : BC 15               tohex1:		ld	R11, #15h	; Buffer
+/     170 : 57 EB 0F            tohex2:		and	@R11, #0Fh
-/     170 : 57 EB 0F            tohex2:		and	@R11, #0Fh
+/     173 : 07 EB 30            		add	@R11, #30h	; '0'
-/     173 : 07 EB 30            		add	@R11, #30h	; '0'
+/     176 : A7 EB 3A            		cp	@R11, #3Ah	; '9'+1
-/     176 : A7 EB 3A            		cp	@R11, #3Ah	; '9'+1
+/     179 : 7B 03               		jr	C, tohex3	; wenn größer '9', dann + 7
-/     179 : 7B 03               		jr	C, tohex3	; wenn größer '9', dann + 7
+/     17B : 07 EB 07            		add	@R11, #7	; ergibt 'A'..'F'
-/     17B : 07 EB 07            		add	@R11, #7	; ergibt 'A'..'F'
+/     17E : BE                  tohex3:		inc	R11		; nächste Ausgabepos
-/     17E : BE                  tohex3:		inc	R11		; nächste Ausgabepos
+/     17F : AA EF               		djnz	R10, tohex2	; nächste Stelle
-/     17F : AA EF               		djnz	R10, tohex2	; nächste Stelle
+/     181 : AF                  		ret
-/     181 : AF                  		ret
+/     182 :
-/     182 :
+/     182 :                     ;-----------------------------------------------------------------------------
-/     182 :                     ;-----------------------------------------------------------------------------
+/     182 :                     ; UP zu c_PRINT
-/     182 :                     ; UP zu c_PRINT
+/     182 :                     ; Konvertierung nach dezimal
-/     182 :                     ; Konvertierung nach dezimal
+/     182 :                     ;-----------------------------------------------------------------------------
-/     182 :                     ;-----------------------------------------------------------------------------
+/     182 :
-/     182 :
+/     182 : 48 E2               todez:		ld	R4, R2
-/     182 : 48 E2               todez:		ld	R4, R2
+/     184 : 58 E3               		ld	R5, R3
-/     184 : 58 E3               		ld	R5, R3
+/     186 : D6 00 8C            		call	p_abs		; absoluter Betrag
-/     186 : D6 00 8C            		call	p_abs		; absoluter Betrag
+/     189 : 10 E4               		rlc	R4
-/     189 : 10 E4               		rlc	R4
+/     18B : 4C 20               		ld	R4, #' '	; bei pos. Zahl Leerzeichen
-/     18B : 4C 20               		ld	R4, #' '	; bei pos. Zahl Leerzeichen
+/     18D : FB 02               		jr	NC, todez1
-/     18D : FB 02               		jr	NC, todez1
+/     18F : 4C 2D               		ld	R4, #'-'	; bei neg. Zahl '-'
-/     18F : 4C 2D               		ld	R4, #'-'	; bei neg. Zahl '-'
+/     191 : BC 06               todez1:		ld	R11, #6		; 6 Stellen
-/     191 : BC 06               todez1:		ld	R11, #6		; 6 Stellen
+/     193 : AC 15               		ld	R10, #15h	; Buffer
-/     193 : AC 15               		ld	R10, #15h	; Buffer
+/     195 : B1 EA               todez2:		clr	@R10		; leeren
-/     195 : B1 EA               todez2:		clr	@R10		; leeren
+/     197 : AE                  		inc	R10
-/     197 : AE                  		inc	R10
+/     198 : BA FB               		djnz	R11, todez2
-/     198 : BA FB               		djnz	R11, todez2
+/     19A :                     		;hex-> bcd
-/     19A :                     		;hex-> bcd
+/     19A : BC 0F               		ld	R11, #0Fh
-/     19A : BC 0F               		ld	R11, #0Fh
+/     19C : D0 E2               todez3:		sra	R2
-/     19C : D0 E2               todez3:		sra	R2
+/     19E : C0 E3               		rrc	R3
-/     19E : C0 E3               		rrc	R3
+/     1A0 : FB 0C               		jr	NC, todez4
-/     1A0 : FB 0C               		jr	NC, todez4
+/     1A2 : 02 7A               		add	R7, R10
-/     1A2 : 02 7A               		add	R7, R10
+/     1A4 : 40 E7               		da	R7
-/     1A4 : 40 E7               		da	R7
+/     1A6 : 12 69               		adc	R6, R9
-/     1A6 : 12 69               		adc	R6, R9
+/     1A8 : 40 E6               		da	R6
-/     1A8 : 40 E6               		da	R6
+/     1AA : 12 58               		adc	R5, R8
-/     1AA : 12 58               		adc	R5, R8
+/     1AC : 40 E5               		da	R5
-/     1AC : 40 E5               		da	R5
+/     1AE : 02 AA               todez4:		add	R10, R10
-/     1AE : 02 AA               todez4:		add	R10, R10
+/     1B0 : 40 EA               		da	R10
-/     1B0 : 40 EA               		da	R10
+/     1B2 : 12 99               		adc	R9, R9
-/     1B2 : 12 99               		adc	R9, R9
+/     1B4 : 40 E9               		da	R9
-/     1B4 : 40 E9               		da	R9
+/     1B6 : 12 88               		adc	R8, R8
-/     1B6 : 12 88               		adc	R8, R8
+/     1B8 : 40 E8               		da	R8
-/     1B8 : 40 E8               		da	R8
+/     1BA : BA E0               		djnz	R11, todez3
-/     1BA : BA E0               		djnz	R11, todez3
+/     1BC : 88 E7               		ld	R8, R7
-/     1BC : 88 E7               		ld	R8, R7
+/     1BE : 98 E7               		ld	R9, R7
-/     1BE : 98 E7               		ld	R9, R7
+/     1C0 : 78 E6               		ld	R7, R6
-/     1C0 : 78 E6               		ld	R7, R6
+/     1C2 : F0 E6               		swap	R6
-/     1C2 : F0 E6               		swap	R6
+/     1C4 : F0 E8               		swap	R8
-/     1C4 : F0 E8               		swap	R8
+/     1C6 :                     		;bcd->ascii
-/     1C6 :                     		;bcd->ascii
+/     1C6 : AC 05               		ld	R10, #5		; 5 Stellen
-/     1C6 : AC 05               		ld	R10, #5		; 5 Stellen
+/     1C8 : 8B A4               		jr	tohex1		; nach ASCII wandeln
-/     1C8 : 8B A4               		jr	tohex1		; nach ASCII wandeln
+/     1CA :
-/     1CA :
+/     1CA :                     ;-----------------------------------------------------------------------------
-/     1CA :                     ;-----------------------------------------------------------------------------
+/     1CA :                     ; Ziffer in Result einschieben (i.e. * 16 + stelle)
-/     1CA :                     ; Ziffer in Result einschieben (i.e. * 16 + stelle)
+/     1CA :                     ; UP zu number
-/     1CA :                     ; UP zu number
+/     1CA :                     ;-----------------------------------------------------------------------------
-/     1CA :                     ;-----------------------------------------------------------------------------
+/     1CA :
-/     1CA :
+/     1CA : F1 ED               rotate:		swap	@R13		; Ziffer in oberes Nibble
-/     1CA : F1 ED               rotate:		swap	@R13		; Ziffer in oberes Nibble
+/     1CC : EC 04               		ld	R14, #4		; alles 4 Stellen nach links
-/     1CC : EC 04               		ld	R14, #4		; alles 4 Stellen nach links
+/     1CE : 11 ED               rotate1:	rlc	@R13		; d.h. * 16
-/     1CE : 11 ED               rotate1:	rlc	@R13		; d.h. * 16
+/     1D0 : 10 E5               		rlc	R5
-/     1D0 : 10 E5               		rlc	R5
+/     1D2 : 10 E4               		rlc	R4
-/     1D2 : 10 E4               		rlc	R4
+/     1D4 : 10 E3               		rlc	R3
-/     1D4 : 10 E3               		rlc	R3
+/     1D6 : EA F6               		djnz	R14, rotate1
-/     1D6 : EA F6               		djnz	R14, rotate1
+/     1D8 : AF                  		ret
-/     1D8 : AF                  		ret
+/     1D9 :
-/     1D9 :
+/     1D9 :                     ;-----------------------------------------------------------------------------
-/     1D9 :                     ;-----------------------------------------------------------------------------
+/     1D9 :                     ; Konvertierung ASCII->Zahl (hex, o. dez signed)
-/     1D9 :                     ; Konvertierung ASCII->Zahl (hex, o. dez signed)
+/     1D9 :                     ; in: String in Konvertierungspuffer ab 16h (R6 ff) ..
-/     1D9 :                     ; in: String in Konvertierungspuffer ab 16h (R6 ff) ..
+/     1D9 :                     ; ret: RR4 = Wert
-/     1D9 :                     ; ret: RR4 = Wert
+/     1D9 :                     ;-----------------------------------------------------------------------------
-/     1D9 :                     ;-----------------------------------------------------------------------------
+/     1D9 :
-/     1D9 :
+/     1D9 : DC 16               number:		ld	R13, #16h	; Konvertierungspuffer
-/     1D9 : DC 16               number:		ld	R13, #16h	; Konvertierungspuffer
+/     1DB : B0 E4               		clr	R4		; Startwert 0
-/     1DB : B0 E4               		clr	R4		; Startwert 0
+/     1DD : B0 E5               		clr	R5
-/     1DD : B0 E5               		clr	R5
+/     1DF : A6 E6 25            		cp	R6, #'%'	; Präfix Hexzahl
-/     1DF : A6 E6 25            		cp	R6, #'%'	; Präfix Hexzahl
+/     1E2 : EB 27               		jr	NZ, number5
-/     1E2 : EB 27               		jr	NZ, number5
+/     1E4 :
-/     1E4 :
+/     1E4 :                     ; Hex-Zahl
-/     1E4 :                     ; Hex-Zahl
+/     1E4 : CC 05               		ld	R12, #5		; max. 5 Stellen
-/     1E4 : CC 05               		ld	R12, #5		; max. 5 Stellen
+/     1E6 : DE                  number1:	inc	R13
-/     1E6 : DE                  number1:	inc	R13
+/     1E7 : 27 ED 30            		sub	@R13, #'0'
-/     1E7 : 27 ED 30            		sub	@R13, #'0'
+/     1EA : 7B 19               		jr	C, number4
-/     1EA : 7B 19               		jr	C, number4
+/     1EC : A7 ED 0A            		cp	@R13, #0Ah	; 9+1
-/     1EC : A7 ED 0A            		cp	@R13, #0Ah	; 9+1
+/     1EF : 7B 0D               		jr	C, number2
-/     1EF : 7B 0D               		jr	C, number2
+/     1F1 : 27 ED 11            		sub	@R13, #11h	; A..F -> 0..5
-/     1F1 : 27 ED 11            		sub	@R13, #11h	; A..F -> 0..5
+/     1F4 : 7B 0F               		jr	C, number4
-/     1F4 : 7B 0F               		jr	C, number4
+/     1F6 : 07 ED 0A            		add	@R13, #0Ah	; +10
-/     1F6 : 07 ED 0A            		add	@R13, #0Ah	; +10
+/     1F9 : A7 ED 10            		cp	@R13, #10h
-/     1F9 : A7 ED 10            		cp	@R13, #10h
+/     1FC : FB 07               		jr	NC, number4
-/     1FC : FB 07               		jr	NC, number4
+/     1FE : D6 01 CA            number2:	call	rotate		; * 16 + Stelle
-/     1FE : D6 01 CA            number2:	call	rotate		; * 16 + Stelle
+/     201 : CA E3               		djnz	R12, number1
-/     201 : CA E3               		djnz	R12, number1
+/     203 : CF                  number3:	rcf
-/     203 : CF                  number3:	rcf
+/     204 : AF                  		ret
-/     204 : AF                  		ret
+/     205 :                     ;
-/     205 :                     ;
+/     205 : A6 EC 05            number4:	cp	R12, #5
-/     205 : A6 EC 05            number4:	cp	R12, #5
+/     208 : 6B F9               		jr	Z, number3
-/     208 : 6B F9               		jr	Z, number3
+/     20A : AF                  		ret
-/     20A : AF                  		ret
+/     20B :
-/     20B :
+/     20B :                     ; Dezimalzahl
-/     20B :                     ; Dezimalzahl
+/     20B : CC 06               number5:	ld	R12, #6		; max. 6 Stellen
-/     20B : CC 06               number5:	ld	R12, #6		; max. 6 Stellen
+/     20D : B0 E2               		clr	R2
-/     20D : B0 E2               		clr	R2
+/     20F : B0 E3               		clr	R3
-/     20F : B0 E3               		clr	R3
+/     211 : A6 E6 2D            		cp	R6, #'-'	; Vorzeichen
-/     211 : A6 E6 2D            		cp	R6, #'-'	; Vorzeichen
+/     214 : EB 02               		jr	NZ, number7
-/     214 : EB 02               		jr	NZ, number7
+/     216 : 2E                  		inc	R2
-/     216 : 2E                  		inc	R2
+/     217 : DE                  number6:	inc	R13
-/     217 : DE                  number6:	inc	R13
+/     218 : 27 ED 30            number7:	sub	@R13, #'0'
-/     218 : 27 ED 30            number7:	sub	@R13, #'0'
+/     21B : 7B 0C               		jr	C, number9	; wenn keine Ziffer mehr
-/     21B : 7B 0C               		jr	C, number9	; wenn keine Ziffer mehr
+/     21D : A7 ED 0A            		cp	@R13, #0Ah	; 9+1
-/     21D : A7 ED 0A            		cp	@R13, #0Ah	; 9+1
+/     220 : FB 07               		jr	NC, number9	; wenn keine Ziffer mehr
-/     220 : FB 07               		jr	NC, number9	; wenn keine Ziffer mehr
+/     222 : D6 01 CA            		call	rotate		; sonst zu BCD konvertieren
-/     222 : D6 01 CA            		call	rotate		; sonst zu BCD konvertieren
+/     225 : CA F0               		djnz	R12, number6
-/     225 : CA F0               		djnz	R12, number6
+/     227 : CF                  number8:	rcf
-/     227 : CF                  number8:	rcf
+/     228 : AF                  		ret
-/     228 : AF                  		ret
+/     229 :
-/     229 :
+/     229 :                     ; BCD R3R4R5 -> hex RR4
-/     229 :                     ; BCD R3R4R5 -> hex RR4
+/     229 : A6 EC 06            number9:	cp	R12, #6
-/     229 : A6 EC 06            number9:	cp	R12, #6
+/     22C : 6B F9               		jr	Z, number8
-/     22C : 6B F9               		jr	Z, number8
+/     22E : A6 E3 04            		cp	R3, #4
-/     22E : A6 E3 04            		cp	R3, #4
+/     231 : FB F4               		jr	NC, number8
-/     231 : FB F4               		jr	NC, number8
+/     233 : B0 E6               		clr	R6
-/     233 : B0 E6               		clr	R6
+/     235 : B0 E7               		clr	R7
-/     235 : B0 E7               		clr	R7
+/     237 : BC 13               		ld	R11, #13h
-/     237 : BC 13               		ld	R11, #13h
+/     239 : 8C 27               		ld	R8, #27h	; 2710h = 10000
-/     239 : 8C 27               		ld	R8, #27h	; 2710h = 10000
+/     23B : 9C 10               		ld	R9, #10h
-/     23B : 9C 10               		ld	R9, #10h
+/     23D : D6 02 71            		call	number11
-/     23D : D6 02 71            		call	number11
+/     240 : BE                  		inc	R11
-/     240 : BE                  		inc	R11
+/     241 : 8C 03               		ld	R8, #3		; 3E8h = 1000
-/     241 : 8C 03               		ld	R8, #3		; 3E8h = 1000
+/     243 : 9C E8               		ld	R9, #0E8h
-/     243 : 9C E8               		ld	R9, #0E8h
+/     245 : D6 02 6F            		call	number10
-/     245 : D6 02 6F            		call	number10
+/     248 : 8C 00               		ld	R8, #0		; 064h = 100
-/     248 : 8C 00               		ld	R8, #0		; 064h = 100
+/     24A : 9C 64               		ld	R9, #64h
-/     24A : 9C 64               		ld	R9, #64h
+/     24C : D6 02 6F            		call	number10
-/     24C : D6 02 6F            		call	number10
+/     24F : BE                  		inc	R11
-/     24F : BE                  		inc	R11
+/     250 : 9C 0A               		ld	R9, #0Ah	; 10
-/     250 : 9C 0A               		ld	R9, #0Ah	; 10
+/     252 : D6 02 6F            		call	number10
-/     252 : D6 02 6F            		call	number10
+/     255 : 9C 01               		ld	R9, #1		; 1
-/     255 : 9C 01               		ld	R9, #1		; 1
+/     257 : D6 02 6F            		call	number10
-/     257 : D6 02 6F            		call	number10
+/     25A : 48 E6               		ld	R4, R6
-/     25A : 48 E6               		ld	R4, R6
+/     25C : 58 E7               		ld	R5, R7
-/     25C : 58 E7               		ld	R5, R7
+/     25E : 10 E6               		rlc	R6
-/     25E : 10 E6               		rlc	R6
+/     260 : 7B C5               		jr	C, number8
-/     260 : 7B C5               		jr	C, number8
+/     262 : C0 E2               		rrc	R2
-/     262 : C0 E2               		rrc	R2
+/     264 : FB 18               		jr	NC, number13
-/     264 : FB 18               		jr	NC, number13
+/     266 : D6 00 91            		call	p_abs1
-/     266 : D6 00 91            		call	p_abs1
+/     269 : 48 E2               		ld	R4, R2
-/     269 : 48 E2               		ld	R4, R2
+/     26B : 58 E3               		ld	R5, R3
-/     26B : 58 E3               		ld	R5, R3
+/     26D : 8B 0F               		jr	number13
-/     26D : 8B 0F               		jr	number13
+/     26F :
-/     26F :
+/     26F :                     ;
-/     26F :                     ;
+/     26F : F1 EB               number10:	swap	@R11
-/     26F : F1 EB               number10:	swap	@R11
+/     271 : E3 AB               number11:	ld	R10, @R11	; Stelle n
-/     271 : E3 AB               number11:	ld	R10, @R11	; Stelle n
+/     273 : 56 EA 0F            		and	R10, #0Fh
-/     273 : 56 EA 0F            		and	R10, #0Fh
+/     276 : 6B 06               		jr	Z, number13
-/     276 : 6B 06               		jr	Z, number13
+/     278 : 02 79               number12:	add	R7, R9		; RR8 = Stelligkeit
-/     278 : 02 79               number12:	add	R7, R9		; RR8 = Stelligkeit
+/     27A : 12 68               		adc	R6, R8
-/     27A : 12 68               		adc	R6, R8
+/     27C : AA FA               		djnz	R10, number12	; n mal Addieren
-/     27C : AA FA               		djnz	R10, number12	; n mal Addieren
+/     27E : DF                  number13:	scf
-/     27E : DF                  number13:	scf
+/     27F : AF                  		ret
-/     27F : AF                  		ret
+/     280 :
-/     280 :
+/     280 :                     ;-----------------------------------------------------------------------------
-/     280 :                     ;-----------------------------------------------------------------------------
+/     280 :                     ; bei Prozeduraufruf PROC [Y1,Y2,Y3,..,Ym] = prozedurname [X1,X2,X3,..,Xn] gilt:
-/     280 :                     ; bei Prozeduraufruf PROC [Y1,Y2,Y3,..,Ym] = prozedurname [X1,X2,X3,..,Xn] gilt:
+/     280 :                     ;	SP			returnadr.
-/     280 :                     ;	SP			returnadr.
+/     280 :                     ;	SP+2 .. SP+2n-2	n-1 	Parameter, wenn n>1
-/     280 :                     ;	SP+2 .. SP+2n-2	n-1 	Parameter, wenn n>1
+/     280 :                     ;				letzter Parameter aus Liste ist in RR4
-/     280 :                     ;				letzter Parameter aus Liste ist in RR4
+/     280 :                     ;	SP+2n			(intern f. interpreter)
-/     280 :                     ;	SP+2n			(intern f. interpreter)
+/     280 :                     ;	SP+2n+2	.. SP+2m+2n	Platz für m-1 Ergebnisvariable, wenn m>1
-/     280 :                     ;	SP+2n+2	.. SP+2m+2n	Platz für m-1 Ergebnisvariable, wenn m>1
+/     280 :                     ;				letzter Parameter aus Liste ist in RR2 zu übergeben
-/     280 :                     ;				letzter Parameter aus Liste ist in RR2 zu übergeben
+/     280 :                     ;-----------------------------------------------------------------------------
-/     280 :                     ;-----------------------------------------------------------------------------
+/     280 :
-/     280 :
+/     280 :                     ;-----------------------------------------------------------------------------
-/     280 :                     ;-----------------------------------------------------------------------------
+/     280 :                     ; Ret.Adr. und ersten Parameter vom Stack nach R6/R7 holen
-/     280 :                     ; Ret.Adr. und ersten Parameter vom Stack nach R6/R7 holen
+/     280 :                     ;-----------------------------------------------------------------------------
-/     280 :                     ;-----------------------------------------------------------------------------
+/     280 :
-/     280 :
+/     280 : 50 E8               para1:		pop	R8		; RR8 Rückkehradresse dieser Routine
-/     280 : 50 E8               para1:		pop	R8		; RR8 Rückkehradresse dieser Routine
+/     282 : 50 E9               		pop	R9
-/     282 : 50 E9               		pop	R9
+/     284 : 50 E2               		pop	R2		; RR2 Rückkehradresse zum Interpreter
-/     284 : 50 E2               		pop	R2		; RR2 Rückkehradresse zum Interpreter
+/     286 : 50 E3               		pop	R3
-/     286 : 50 E3               		pop	R3
+/     288 : 50 E6               		pop	R6		; RR6 Adresse von X1
-/     288 : 50 E6               		pop	R6		; RR6 Adresse von X1
+/     28A : 50 E7               		pop	R7
-/     28A : 50 E7               		pop	R7
+/     28C : 30 E8               		jp	@RR8		; RET
-/     28C : 30 E8               		jp	@RR8		; RET
+/     28E :
-/     28E :
+/     28E :                     ;-----------------------------------------------------------------------------
-/     28E :                     ;-----------------------------------------------------------------------------
+/     28E :                     ; interne Prozedur
-/     28E :                     ; interne Prozedur
+/     28E :                     ; SETRR	[register,wert]	Doppelregister setzen
-/     28E :                     ; SETRR	[register,wert]	Doppelregister setzen
+/     28E :                     ;-----------------------------------------------------------------------------
-/     28E :                     ;-----------------------------------------------------------------------------
+/     28E :
-/     28E :
+/     28E : D6 02 80            p_setrr:	call	para1		; Parameter register nach R6/R7
-/     28E : D6 02 80            p_setrr:	call	para1		; Parameter register nach R6/R7
+/     291 : F3 74               		ld	@R7, R4		; register (hi) := wert
-/     291 : F3 74               		ld	@R7, R4		; register (hi) := wert
+/     293 : 7E                  		inc	R7
-/     293 : 7E                  		inc	R7
+/     294 : 8B 03               		jr	p_setr1
-/     294 : 8B 03               		jr	p_setr1
+/     296 :
-/     296 :
+/     296 :                     ;-----------------------------------------------------------------------------
-/     296 :                     ;-----------------------------------------------------------------------------
+/     296 :                     ; interne Prozedur
-/     296 :                     ; interne Prozedur
+/     296 :                     ; SETR [register,wert] Register	setzen
-/     296 :                     ; SETR [register,wert] Register	setzen
+/     296 :                     ;-----------------------------------------------------------------------------
-/     296 :                     ;-----------------------------------------------------------------------------
+/     296 :
-/     296 :
+/     296 : D6 02 80            p_setr:		call	para1		; Parameter register nach R6/R7
-/     296 : D6 02 80            p_setr:		call	para1		; Parameter register nach R6/R7
+/     299 : F3 75               p_setr1:	ld	@R7, R5		; register (lo) := wert
-/     299 : F3 75               p_setr1:	ld	@R7, R5		; register (lo) := wert
+/     29B : 30 E2               		jp	@RR2		; zurück zum Interpreter
-/     29B : 30 E2               		jp	@RR2		; zurück zum Interpreter
+/     29D :
-/     29D :
+/     29D :                     ;-----------------------------------------------------------------------------
-/     29D :                     ;-----------------------------------------------------------------------------
+/     29D :                     ; interne Prozedur
-/     29D :                     ; interne Prozedur
+/     29D :                     ; SETEW	[adresse,wert] externes	Wort setzen
-/     29D :                     ; SETEW	[adresse,wert] externes	Wort setzen
+/     29D :                     ;-----------------------------------------------------------------------------
-/     29D :                     ;-----------------------------------------------------------------------------
+/     29D :
-/     29D :
+/     29D : D6 02 80            p_setew:	call	para1		; Parameter adresse nach R6/R7
-/     29D : D6 02 80            p_setew:	call	para1		; Parameter adresse nach R6/R7
+/     2A0 : 92 46               		lde	@RR6, R4
-/     2A0 : 92 46               		lde	@RR6, R4
+/     2A2 : A0 E6               		incw	RR6
-/     2A2 : A0 E6               		incw	RR6
+/     2A4 : 8B 03               		jr	p_seteb1
-/     2A4 : 8B 03               		jr	p_seteb1
+/     2A6 :
-/     2A6 :
+/     2A6 :                     ;-----------------------------------------------------------------------------
-/     2A6 :                     ;-----------------------------------------------------------------------------
+/     2A6 :                     ; interne Prozedur
-/     2A6 :                     ; interne Prozedur
+/     2A6 :                     ; SETEB	[adresse,wert] externes	Byte setzen
-/     2A6 :                     ; SETEB	[adresse,wert] externes	Byte setzen
+/     2A6 :                     ;-----------------------------------------------------------------------------
-/     2A6 :                     ;-----------------------------------------------------------------------------
+/     2A6 :
-/     2A6 :
+/     2A6 : D6 02 80            p_seteb:	call	para1		; Parameter adresse nach R6/R7
-/     2A6 : D6 02 80            p_seteb:	call	para1		; Parameter adresse nach R6/R7
+/     2A9 : 92 56               p_seteb1:	lde	@RR6, R5
-/     2A9 : 92 56               p_seteb1:	lde	@RR6, R5
+/     2AB : 30 E2               		jp	@RR2
-/     2AB : 30 E2               		jp	@RR2
+/     2AD :
-/     2AD :
+/     2AD :                     ;-----------------------------------------------------------------------------
-/     2AD :                     ;-----------------------------------------------------------------------------
+/     2AD :                     ; interne Prozedur
-/     2AD :                     ; interne Prozedur
+/     2AD :                     ; GETRR	[register] liefert Inhalt des Doppelregisters
-/     2AD :                     ; GETRR	[register] liefert Inhalt des Doppelregisters
+/     2AD :                     ;-----------------------------------------------------------------------------
-/     2AD :                     ;-----------------------------------------------------------------------------
+/     2AD :
-/     2AD :
+/     2AD : E3 25               p_getrr:	ld	R2, @R5
-/     2AD : E3 25               p_getrr:	ld	R2, @R5
+/     2AF : 5E                  		inc	R5
-/     2AF : 5E                  		inc	R5
+/     2B0 : 0D                  		db	0Dh 		; JP FALSE mit nächstem	Befehl
-/     2B0 : 0D                  		db	0Dh 		; JP FALSE mit nächstem	Befehl
+/     2B1 :
-/     2B1 :
+/     2B1 :                     ;-----------------------------------------------------------------------------
-/     2B1 :                     ;-----------------------------------------------------------------------------
+/     2B1 :                     ; interne Prozedur
-/     2B1 :                     ; interne Prozedur
+/     2B1 :                     ; GETR [register] liefert Inhalt des Registers
-/     2B1 :                     ; GETR [register] liefert Inhalt des Registers
+/     2B1 :                     ;-----------------------------------------------------------------------------
-/     2B1 :                     ;-----------------------------------------------------------------------------
+/     2B1 :
-/     2B1 :
+/     2B1 : B0 E2               p_getr:		clr	R2		; Hi = 0
-/     2B1 : B0 E2               p_getr:		clr	R2		; Hi = 0
+/     2B3 : E3 35               		ld	R3, @R5
-/     2B3 : E3 35               		ld	R3, @R5
+/     2B5 : AF                  		ret
-/     2B5 : AF                  		ret
+/     2B6 :
-/     2B6 :
+/     2B6 :                     ;-----------------------------------------------------------------------------
-/     2B6 :                     ;-----------------------------------------------------------------------------
+/     2B6 :                     ; interne Prozedur
-/     2B6 :                     ; interne Prozedur
+/     2B6 :                     ; GETEW	[register] holt	Wortwert aus externem Speicher
-/     2B6 :                     ; GETEW	[register] holt	Wortwert aus externem Speicher
+/     2B6 :                     ;-----------------------------------------------------------------------------
-/     2B6 :                     ;-----------------------------------------------------------------------------
+/     2B6 :
-/     2B6 :
+/     2B6 : 82 24               p_getew:	lde	R2, @RR4
-/     2B6 : 82 24               p_getew:	lde	R2, @RR4
+/     2B8 : A0 E4               		incw	RR4
-/     2B8 : A0 E4               		incw	RR4
+/     2BA : 0D                  		db	0Dh 		; JP FALSE mit nächstem	Befehl
-/     2BA : 0D                  		db	0Dh 		; JP FALSE mit nächstem	Befehl
+/     2BB :
-/     2BB :
+/     2BB :                     ;-----------------------------------------------------------------------------
-/     2BB :                     ;-----------------------------------------------------------------------------
+/     2BB :                     ; interne Prozedur
-/     2BB :                     ; interne Prozedur
+/     2BB :                     ; GETEB	[register] holt	Bytewert aus externem Speicher
-/     2BB :                     ; GETEB	[register] holt	Bytewert aus externem Speicher
+/     2BB :                     ;-----------------------------------------------------------------------------
-/     2BB :                     ;-----------------------------------------------------------------------------
+/     2BB :
-/     2BB :
+/     2BB : B0 E2               p_geteb:	clr	R2
-/     2BB : B0 E2               p_geteb:	clr	R2
+/     2BD : 82 34               		lde	R3, @RR4
-/     2BD : 82 34               		lde	R3, @RR4
+/     2BF : AF                  		ret
-/     2BF : AF                  		ret
+/     2C0 :
-/     2C0 :
+/     2C0 :                     ;-----------------------------------------------------------------------------
-/     2C0 :                     ;-----------------------------------------------------------------------------
+/     2C0 :                     ; angezeigtes Zeichen löschen
-/     2C0 :                     ; angezeigtes Zeichen löschen
+/     2C0 :                     ;-----------------------------------------------------------------------------
-/     2C0 :                     ;-----------------------------------------------------------------------------
+/     2C0 :                     ; UP zu p_input6
-/     2C0 :                     ; UP zu p_input6
+/     2C0 :
-/     2C0 :
+/     2C0 : D6 02 C8            delc:		call	delc1		; ein Zeichen zurück
-/     2C0 : D6 02 C8            delc:		call	delc1		; ein Zeichen zurück
+/     2C3 : 5C 20               		ld	R5, #' '	; mit Leerzeichen überschreiben
-/     2C3 : 5C 20               		ld	R5, #' '	; mit Leerzeichen überschreiben
+/     2C5 : D6 08 18            		call	putch		; PUT_CHAR
-/     2C5 : D6 08 18            		call	putch		; PUT_CHAR
+/     2C8 : 5C 08               delc1:		ld	R5, #8		; BS
-/     2C8 : 5C 08               delc1:		ld	R5, #8		; BS
+/     2CA : 8D 08 18            		jp	putch		; PUT_CHAR
-/     2CA : 8D 08 18            		jp	putch		; PUT_CHAR
+/     2CD :
-/     2CD :
+/     2CD :                     ;-----------------------------------------------------------------------------
-/     2CD :                     ;-----------------------------------------------------------------------------
+/     2CD :                     ; interne Prozedur
-/     2CD :                     ; interne Prozedur
+/     2CD :                     ; ; RL[x] x links rotieren
-/     2CD :                     ; ; RL[x] x links rotieren
+/     2CD :                     ;-----------------------------------------------------------------------------
-/     2CD :                     ;-----------------------------------------------------------------------------
+/     2CD :
-/     2CD :
+/     2CD : CF                  p_rl:		rcf			; Cy = 0
-/     2CD : CF                  p_rl:		rcf			; Cy = 0
+/     2CE : 10 E5               		rlc	R5
-/     2CE : 10 E5               		rlc	R5
+/     2D0 : 10 E4               		rlc	R4
-/     2D0 : 10 E4               		rlc	R4
+/     2D2 : 16 E5 00            		adc	R5, #0
-/     2D2 : 16 E5 00            		adc	R5, #0
+/     2D5 : 8D 00 79            p_rl1:		jp	p_let		; Y := X
-/     2D5 : 8D 00 79            p_rl1:		jp	p_let		; Y := X
+/     2D8 :
-/     2D8 :
+/     2D8 :                     ;-----------------------------------------------------------------------------
-/     2D8 :                     ;-----------------------------------------------------------------------------
+/     2D8 :                     ; interne Prozedur
-/     2D8 :                     ; interne Prozedur
+/     2D8 :                     ; RR[x]	x rechts rotieren
-/     2D8 :                     ; RR[x]	x rechts rotieren
+/     2D8 :                     ;-----------------------------------------------------------------------------
-/     2D8 :                     ;-----------------------------------------------------------------------------
+/     2D8 :
-/     2D8 :
+/     2D8 : CF                  p_rr:		rcf			; Cy = 0
-/     2D8 : CF                  p_rr:		rcf			; Cy = 0
+/     2D9 : C0 E4               		rrc	R4
-/     2D9 : C0 E4               		rrc	R4
+/     2DB : C0 E5               		rrc	R5
-/     2DB : C0 E5               		rrc	R5
+/     2DD : FB F6               		jr	NC, p_rl1
-/     2DD : FB F6               		jr	NC, p_rl1
+/     2DF : 46 E4 80            		or	R4, #80h	; Vorzeichen löschen
-/     2DF : 46 E4 80            		or	R4, #80h	; Vorzeichen löschen
+/     2E2 : 8B F1               		jr	p_rl1
-/     2E2 : 8B F1               		jr	p_rl1
+/     2E4 :
-/     2E4 :
+/     2E4 :                     ;-----------------------------------------------------------------------------
-/     2E4 :                     ;-----------------------------------------------------------------------------
+/     2E4 :                     ; interne Prozedur
-/     2E4 :                     ; interne Prozedur
+/     2E4 :                     ; INPUT	Zahleneingabe vom Terminal
-/     2E4 :                     ; INPUT	Zahleneingabe vom Terminal
+/     2E4 :                     ;-----------------------------------------------------------------------------
-/     2E4 :                     ;-----------------------------------------------------------------------------
+/     2E4 :
-/     2E4 :
+/     2E4 : 5C 3F               p_input:	ld	R5, #'?'
-/     2E4 : 5C 3F               p_input:	ld	R5, #'?'
+/     2E6 : D6 08 18            		call	putch		; PUT_CHAR
-/     2E6 : D6 08 18            		call	putch		; PUT_CHAR
+/     2E9 : FC 15               p_input1:	ld	R15, #15h	; Konvertierungspuffer
-/     2E9 : FC 15               p_input1:	ld	R15, #15h	; Konvertierungspuffer
+/     2EB : FE                  p_input2:	inc	R15
-/     2EB : FE                  p_input2:	inc	R15
+/     2EC : A6 EF 1F            		cp	R15, #1Fh
-/     2EC : A6 EF 1F            		cp	R15, #1Fh
+/     2EF : 6B 20               		jr	Z, p_input4
-/     2EF : 6B 20               		jr	Z, p_input4
+/     2F1 : D6 08 15            p_input3:	call	getch		; GET_CHAR
-/     2F1 : D6 08 15            p_input3:	call	getch		; GET_CHAR
+/     2F4 : F3 F3               		ld	@R15, R3
-/     2F4 : F3 F3               		ld	@R15, R3
+/     2F6 : A6 E3 0D            		cp	R3, #0Dh	; CR
-/     2F6 : A6 E3 0D            		cp	R3, #0Dh	; CR
+/     2F9 : 6B 16               		jr	Z, p_input4
-/     2F9 : 6B 16               		jr	Z, p_input4
+/     2FB : A6 E3 08            		cp	R3, #8		; BS
-/     2FB : A6 E3 08            		cp	R3, #8		; BS
+/     2FE : EB 19               		jr	NZ, p_input5
-/     2FE : EB 19               		jr	NZ, p_input5
+/     300 : 5C 20               		ld	R5, #' '
-/     300 : 5C 20               		ld	R5, #' '
+/     302 : D6 08 18            		call	putch		; PUT_CHAR
-/     302 : D6 08 18            		call	putch		; PUT_CHAR
+/     305 : 00 EF               		dec	R15
-/     305 : 00 EF               		dec	R15
+/     307 : A6 EF 15            		cp	R15, #15h
-/     307 : A6 EF 15            		cp	R15, #15h
+/     30A : 6B DF               		jr	Z, p_input2
-/     30A : 6B DF               		jr	Z, p_input2
+/     30C : D6 02 C8            		call	delc1
-/     30C : D6 02 C8            		call	delc1
+/     30F : 8B E0               		jr	p_input3
-/     30F : 8B E0               		jr	p_input3
+/     311 : D6 01 D9            p_input4:	call	number
-/     311 : D6 01 D9            p_input4:	call	number
+/     314 : FB CE               		jr	NC, p_input	; INPUT	Zahleneingabe vom Terminal
-/     314 : FB CE               		jr	NC, p_input	; INPUT	Zahleneingabe vom Terminal
+/     316 : 8D 00 79            		jp	p_let		; Y := X
-/     316 : 8D 00 79            		jp	p_let		; Y := X
+/     319 : 3E                  p_input5:	inc	R3
-/     319 : 3E                  p_input5:	inc	R3
+/     31A : DB CF               		jr	PL, p_input2
-/     31A : DB CF               		jr	PL, p_input2
+/     31C : A6 EF 16            p_input6:	cp	R15, #16h
-/     31C : A6 EF 16            p_input6:	cp	R15, #16h
+/     31F : 6B C8               		jr	Z, p_input1
-/     31F : 6B C8               		jr	Z, p_input1
+/     321 : D6 02 C0            		call	delc		; angezeigtes Zeichen löschen
-/     321 : D6 02 C0            		call	delc		; angezeigtes Zeichen löschen
+/     324 : 00 EF               		dec	R15
-/     324 : 00 EF               		dec	R15
+/     326 : 8B F4               		jr	p_input6
-/     326 : 8B F4               		jr	p_input6
+/     328 :
-/     328 :
+/     328 :                     ;-----------------------------------------------------------------------------
-/     328 :                     ;-----------------------------------------------------------------------------
+/     328 :                     ; Liste	der internen Prozeduren
-/     328 :                     ; Liste	der internen Prozeduren
+/     328 :                     ;-----------------------------------------------------------------------------
-/     328 :                     ;-----------------------------------------------------------------------------
+/     328 :
-/     328 :
+/     328 : 03 4E 4F 54         tab_prc:	db	3,"NOT"
-/     328 : 03 4E 4F 54         tab_prc:	db	3,"NOT"
+/     32C : 01 39               		dw	p_not		; NOT[parameter] bitweise logische Negation
-/     32C : 01 39               		dw	p_not		; NOT[parameter] bitweise logische Negation
+/     32E : 03 41 42 53         		db	3,"ABS"
-/     32E : 03 41 42 53         		db	3,"ABS"
+/     332 : 00 8C               		dw	p_abs		; ABS[parameter] absoluter Betrag
-/     332 : 00 8C               		dw	p_abs		; ABS[parameter] absoluter Betrag
+/     334 : 05 53 45 54 52 52   		db	5,"SETRR"
-/     334 : 05 53 45 54 52 52   		db	5,"SETRR"
+/     33A : 02 8E               		dw	p_setrr		; SETRR	[register,wert]	Doppelregister setzen
-/     33A : 02 8E               		dw	p_setrr		; SETRR	[register,wert]	Doppelregister setzen
+/     33C : 04 53 45 54 52      		db	4,"SETR"
-/     33C : 04 53 45 54 52      		db	4,"SETR"
+/     341 : 02 96               		dw	p_setr		; SETR [register,wert] Register	setzen
-/     341 : 02 96               		dw	p_setr		; SETR [register,wert] Register	setzen
+/     343 : 05 53 45 54 45 57   		db	5,"SETEW"
-/     343 : 05 53 45 54 45 57   		db	5,"SETEW"
+/     349 : 02 9D               		dw	p_setew		; SETEW	[adresse,wert] externes	Wort setzen
-/     349 : 02 9D               		dw	p_setew		; SETEW	[adresse,wert] externes	Wort setzen
+/     34B : 05 53 45 54 45 42   		db	5,"SETEB"
-/     34B : 05 53 45 54 45 42   		db	5,"SETEB"
+/     351 : 02 A6               		dw	p_seteb		; SETEB	[adresse,wert] externes	Byte setzen
-/     351 : 02 A6               		dw	p_seteb		; SETEB	[adresse,wert] externes	Byte setzen
+/     353 : 05 47 45 54 52 52   		db	5,"GETRR"
-/     353 : 05 47 45 54 52 52   		db	5,"GETRR"
+/     359 : 02 AD               		dw	p_getrr		; GETRR	[register] liefert Inhalt des Doppelregisters
-/     359 : 02 AD               		dw	p_getrr		; GETRR	[register] liefert Inhalt des Doppelregisters
+/     35B : 04 47 45 54 52      		db	4,"GETR"
-/     35B : 04 47 45 54 52      		db	4,"GETR"
+/     360 : 02 B1               		dw	p_getr		; GETR [register] liefert Inhalt des Registers
-/     360 : 02 B1               		dw	p_getr		; GETR [register] liefert Inhalt des Registers
+/     362 : 05 47 45 54 45 57   		db	5,"GETEW"
-/     362 : 05 47 45 54 45 57   		db	5,"GETEW"
+/     368 : 02 B6               		dw	p_getew		; GETEW	[register] holt	Wortwert aus externem Speicher
-/     368 : 02 B6               		dw	p_getew		; GETEW	[register] holt	Wortwert aus externem Speicher
+/     36A : 05 47 45 54 45 42   		db	5,"GETEB"
-/     36A : 05 47 45 54 45 42   		db	5,"GETEB"
+/     370 : 02 BB               		dw	p_geteb		; GETEB	[register] holt	Bytewert aus externem Speicher
-/     370 : 02 BB               		dw	p_geteb		; GETEB	[register] holt	Bytewert aus externem Speicher
+/     372 : 02 52 4C            		db	2,"RL"
-/     372 : 02 52 4C            		db	2,"RL"
+/     375 : 02 CD               		dw	p_rl		; RL[x]	x links	rotieren
-/     375 : 02 CD               		dw	p_rl		; RL[x]	x links	rotieren
+/     377 : 02 52 52            		db	2,"RR"
-/     377 : 02 52 52            		db	2,"RR"
+/     37A : 02 D8               		dw	p_rr		; RR[x]	x rechts rotieren
-/     37A : 02 D8               		dw	p_rr		; RR[x]	x rechts rotieren
+/     37C : 05 49 4E 50 55 54   		db	5,"INPUT"
-/     37C : 05 49 4E 50 55 54   		db	5,"INPUT"
+/     382 : 02 E4               		dw	p_input		; INPUT	Zahleneingabe vom Terminal
-/     382 : 02 E4               		dw	p_input		; INPUT	Zahleneingabe vom Terminal
+/     384 : 03 47 54 43         		db	3,"GTC"
-/     384 : 03 47 54 43         		db	3,"GTC"
+/     388 : 08 15               		dw	getch		; Get Char extern !
-/     388 : 08 15               		dw	getch		; Get Char extern !
+/     38A : 03 50 54 43         		db	3,"PTC"
-/     38A : 03 50 54 43         		db	3,"PTC"
+/     38E : 08 18               		dw	putch		; Put Char extern !
-/     38E : 08 18               		dw	putch		; Put Char extern !
+/     390 : FF                  		db	0FFh		; Listenende
-/     390 : FF                  		db	0FFh		; Listenende
+/     391 :
-/     391 :
+/     391 :                     ;-----------------------------------------------------------------------------
-/     391 :                     ;-----------------------------------------------------------------------------
+/     391 :                     ;nächstes Zeichen aus Programmtext holen
-/     391 :                     ;nächstes Zeichen aus Programmtext holen
+/     391 :                     ;in: R7 Vergleichszeichen ret: Z=1 Zeichen gefunden
-/     391 :                     ;in: R7 Vergleichszeichen ret: Z=1 Zeichen gefunden
+/     391 :                     ;-----------------------------------------------------------------------------
-/     391 :                     ;-----------------------------------------------------------------------------
+/     391 : FC 16               next_char:	ld	R15, #16h	; R15 vorbelegen für buffer ?
-/     391 : FC 16               next_char:	ld	R15, #16h	; R15 vorbelegen für buffer ?
+/     393 : C2 60               		ldc	R6, @RR0	; nächstes Zeichen aus Basic-Programmcode
-/     393 : C2 60               		ldc	R6, @RR0	; nächstes Zeichen aus Basic-Programmcode
+/     395 : A0 E0               		incw	RR0		; Pointer weiterstellen
-/     395 : A0 E0               		incw	RR0		; Pointer weiterstellen
+/     397 : A2 67               		cp	R6, R7		; Vergleich mit R7
-/     397 : A2 67               		cp	R6, R7		; Vergleich mit R7
+/     399 : AF                  		ret
-/     399 : AF                  		ret
+/     39A :
-/     39A :
+/     39A :                     ;-----------------------------------------------------------------------------
-/     39A :                     ;-----------------------------------------------------------------------------
+/     39A :                     ; Operator in Operator-Tabelle suchen
-/     39A :                     ; Operator in Operator-Tabelle suchen
+/     39A :                     ; ret: R7 = op, RR8 = proc.addr.
-/     39A :                     ; ret: R7 = op, RR8 = proc.addr.
+/     39A :                     ;-----------------------------------------------------------------------------
-/     39A :                     ;-----------------------------------------------------------------------------
+/     39A : AC 03               oper:		ld	R10, #HI(tab_op)
-/     39A : AC 03               oper:		ld	R10, #HI(tab_op)
+/     39C : BC C1               		ld	R11, #LO(tab_op)
-/     39C : BC C1               		ld	R11, #LO(tab_op)
+/     39E : DC 03               		ld	R13, #3		; 4 arithm. Operatoren
-/     39E : DC 03               		ld	R13, #3		; 4 arithm. Operatoren
+/     3A0 : D6 03 AF            		call	oper1		; suche
-/     3A0 : D6 03 AF            		call	oper1		; suche
+/     3A3 : 6B 1B               		jr	Z, oper3	; Operator nicht gefunden
-/     3A3 : 6B 1B               		jr	Z, oper3	; Operator nicht gefunden
+/     3A5 : A6 E6 24            		cp	R6, #'$'	; Präfix logischer Operator
-/     3A5 : A6 E6 24            		cp	R6, #'$'	; Präfix logischer Operator
+/     3A8 : EB 16               		jr	NZ, oper3	; Präfix stimmt nicht
-/     3A8 : EB 16               		jr	NZ, oper3	; Präfix stimmt nicht
+/     3AA : D6 03 91            		call	next_char
-/     3AA : D6 03 91            		call	next_char
+/     3AD : DC 03               		ld	R13, #3		; 4 logische Operatoren
-/     3AD : DC 03               		ld	R13, #3		; 4 logische Operatoren
+/     3AF :
-/     3AF :
+/     3AF :                     oper1:		; tab_op durchsuchen
-/     3AF :                     oper1:		; tab_op durchsuchen
+/     3AF : D6 03 B6            		call	oper2
-/     3AF : D6 03 B6            		call	oper2
+/     3B2 : 6B 0C               		jr	Z, oper3	; wenn Operator gefunden
-/     3B2 : 6B 0C               		jr	Z, oper3	; wenn Operator gefunden
+/     3B4 : DA F9               		djnz	R13, oper1
-/     3B4 : DA F9               		djnz	R13, oper1
+/     3B6 :                     		;
-/     3B6 :                     		;
+/     3B6 : CC 17               oper2:		ld	R12, #17h	; 3 Byte nach 17h kopieren
-/     3B6 : CC 17               oper2:		ld	R12, #17h	; 3 Byte nach 17h kopieren
+/     3B8 : C3 CA               		ldci	@R12, @RR10	; R7 := Op
-/     3B8 : C3 CA               		ldci	@R12, @RR10	; R7 := Op
+/     3BA : C3 CA               		ldci	@R12, @RR10	; RR8 := Fkt.Adresse
-/     3BA : C3 CA               		ldci	@R12, @RR10	; RR8 := Fkt.Adresse
+/     3BC : C3 CA               		ldci	@R12, @RR10
-/     3BC : C3 CA               		ldci	@R12, @RR10
+/     3BE : A2 67               		cp	R6, R7		; Operator mit Suchwert vergleichen
-/     3BE : A2 67               		cp	R6, R7		; Operator mit Suchwert vergleichen
+/     3C0 : AF                  oper3:		ret
-/     3C0 : AF                  oper3:		ret
+/     3C1 :
-/     3C1 :
+/     3C1 :                     ;-----------------------------------------------------------------------------
-/     3C1 :                     ;-----------------------------------------------------------------------------
+/     3C1 :                     ; Tabelle Arithmetik-/Logik-Operatoren, s. oper
-/     3C1 :                     ; Tabelle Arithmetik-/Logik-Operatoren, s. oper
+/     3C1 :                     ;-----------------------------------------------------------------------------
-/     3C1 :                     ;-----------------------------------------------------------------------------
+/     3C1 :
-/     3C1 :
+/     3C1 :                     tab_op:
-/     3C1 :                     tab_op:
+/     3C1 : 2B                  		db	'+'
-/     3C1 : 2B                  		db	'+'
+/     3C2 : 00 7E               		dw	p_plus		; Y := Y + X
-/     3C2 : 00 7E               		dw	p_plus		; Y := Y + X
+/     3C4 : 2D                  		db	'-'
-/     3C4 : 2D                  		db	'-'
+/     3C5 : 00 85               		dw	p_minus		; Y := Y - X
-/     3C5 : 00 85               		dw	p_minus		; Y := Y - X
+/     3C7 : 2A                  		db	'*'
-/     3C7 : 2A                  		db	'*'
+/     3C8 : 00 BA               		dw	p_mult		; Y := Y * X
-/     3C8 : 00 BA               		dw	p_mult		; Y := Y * X
+/     3CA : 2F                  		db	'/'
-/     3CA : 2F                  		db	'/'
+/     3CB : 00 E0               		dw	p_div		; Y := Y / X
-/     3CB : 00 E0               		dw	p_div		; Y := Y / X
+/     3CD :                     ; $-Operatoren (mit vorausgehendem '$')
-/     3CD :                     ; $-Operatoren (mit vorausgehendem '$')
+/     3CD : 41                  		db	'A'
-/     3CD : 41                  		db	'A'
+/     3CE : 01 2F               		dw	p_and		; Y := Y AND X
-/     3CE : 01 2F               		dw	p_and		; Y := Y AND X
+/     3D0 : 4F                  		db	'O'
-/     3D0 : 4F                  		db	'O'
+/     3D1 : 01 2A               		dw	p_or		; Y := Y OR X
-/     3D1 : 01 2A               		dw	p_or		; Y := Y OR X
+/     3D3 : 58                  		db	'X'
-/     3D3 : 58                  		db	'X'
+/     3D4 : 01 34               		dw	p_xor		; Y := Y XOR X
-/     3D4 : 01 34               		dw	p_xor		; Y := Y XOR X
+/     3D6 : 4D                  		db	'M'
-/     3D6 : 4D                  		db	'M'
+/     3D7 : 01 1F               		dw	p_mod		; Y := Y MOD X
-/     3D7 : 01 1F               		dw	p_mod		; Y := Y MOD X
+/     3D9 :
 /     3D9 :
-/     3D9 :
+/     3D9 :                     ;-----------------------------------------------------------------------------
-/     3D9 :                     ;-----------------------------------------------------------------------------
+/     3D9 :                     ; Zeichenklassentests
-/     3D9 :                     ; Zeichenklassentests
+/     3D9 :                     ;-----------------------------------------------------------------------------
-/     3D9 :                     ;-----------------------------------------------------------------------------
+/     3D9 :
-/     3D9 :
+/     3D9 :                     ;in: @R15 out: cy=1 bei Buchstaben A..Z
-/     3D9 :                     ;in: @R15 out: cy=1 bei Buchstaben A..Z
+/     3D9 : A7 EF 41            is_letter:	cp	@R15, #41h	; 'A'
-/     3D9 : A7 EF 41            is_letter:	cp	@R15, #41h	; 'A'
+/     3DC : 7B 12               		jr	C, is_notf
-/     3DC : 7B 12               		jr	C, is_notf
+/     3DE : A7 EF 5B            		cp	@R15, #5Bh	; 'Z'+1
-/     3DE : A7 EF 5B            		cp	@R15, #5Bh	; 'Z'+1
+/     3E1 : AF                  		ret
-/     3E1 : AF                  		ret
+/     3E2 :
-/     3E2 :
+/     3E2 :                     ;in: @R15 out: cy=1 bei Buchstaben A..Z oder Zahl 0..9
-/     3E2 :                     ;in: @R15 out: cy=1 bei Buchstaben A..Z oder Zahl 0..9
+/     3E2 : D6 03 D9            is_char:	call	is_letter
-/     3E2 : D6 03 D9            is_char:	call	is_letter
+/     3E5 : 7B 08               		jr	C, is_digit_ret
-/     3E5 : 7B 08               		jr	C, is_digit_ret
+/     3E7 :
-/     3E7 :
+/     3E7 :                     ;in: @R15 out: cy=1 bei Zahl 0..9
-/     3E7 :                     ;in: @R15 out: cy=1 bei Zahl 0..9
+/     3E7 : A7 EF 30            is_digit:	cp	@R15, #30h	; '0'
-/     3E7 : A7 EF 30            is_digit:	cp	@R15, #30h	; '0'
+/     3EA : 7B 04               		jr	C, is_notf
-/     3EA : 7B 04               		jr	C, is_notf
+/     3EC : A7 EF 3A            		cp	@R15, #3Ah	; '9'+1
-/     3EC : A7 EF 3A            		cp	@R15, #3Ah	; '9'+1
+/     3EF : AF                  is_digit_ret:	ret
-/     3EF : AF                  is_digit_ret:	ret
+/     3F0 :
-/     3F0 :
+/     3F0 :                     ;
-/     3F0 :                     ;
+/     3F0 : CF                  is_notf:	rcf			; Cy=0
-/     3F0 : CF                  is_notf:	rcf			; Cy=0
+/     3F1 : AF                  		ret
-/     3F1 : AF                  		ret
+/     3F2 :
-/     3F2 :
+/     3F2 :                     ;in: @R15 out: cy=1 bei Zahl 0..F
-/     3F2 :                     ;in: @R15 out: cy=1 bei Zahl 0..F
+/     3F2 : D6 03 E7            is_hexdigit:	call	is_digit
-/     3F2 : D6 03 E7            is_hexdigit:	call	is_digit
+/     3F5 : 7B F8               		jr	C, is_digit_ret
-/     3F5 : 7B F8               		jr	C, is_digit_ret
+/     3F7 : A7 EF 41            		cp	@R15, #41h	; 'A'
-/     3F7 : A7 EF 41            		cp	@R15, #41h	; 'A'
+/     3FA : 7B F4               		jr	C, is_notf
-/     3FA : 7B F4               		jr	C, is_notf
+/     3FC : A7 EF 47            		cp	@R15, #47h	; 'F'+1
-/     3FC : A7 EF 47            		cp	@R15, #47h	; 'F'+1
+/     3FF : AF                  		ret
-/     3FF : AF                  		ret
+/     400 :
-/     400 :
+/     400 :                     ;-----------------------------------------------------------------------------
-/     400 :                     ;-----------------------------------------------------------------------------
+/     400 :                     ; Prozedurnamen in Proc-Tabelle suchen
-/     400 :                     ; Prozedurnamen in Proc-Tabelle suchen
+/     400 :                     ; ret: Cy=gefunden, RR8=Proc-Adresse
-/     400 :                     ; ret: Cy=gefunden, RR8=Proc-Adresse
+/     400 :                     ;-----------------------------------------------------------------------------
-/     400 :                     ;-----------------------------------------------------------------------------
+/     400 :                     ; Aubau Tabelle:  je 1 Byte Namenslänge
-/     400 :                     ; Aubau Tabelle:  je 1 Byte Namenslänge
+/     400 :                     ;		     Procedurenamen
-/     400 :                     ;		     Procedurenamen
+/     400 :                     ;		     2 Byte Adresse
-/     400 :                     ;		     2 Byte Adresse
+/     400 :                     ;		  Ende mit Namenslänge = FFh
-/     400 :                     ;		  Ende mit Namenslänge = FFh
+/     400 :                     ;-----------------------------------------------------------------------------
-/     400 :                     ;-----------------------------------------------------------------------------
+/     400 :
-/     400 :
+/     400 :                     ; zu func1
-/     400 :                     ; zu func1
+/     400 :                     find_name:	; Suche in interner Tabelle
-/     400 :                     find_name:	; Suche in interner Tabelle
+/     400 : 2C 03               		ld	R2, #HI(tab_prc)
-/     400 : 2C 03               		ld	R2, #HI(tab_prc)
+/     402 : 3C 28               		ld	R3, #LO(tab_prc)
-/     402 : 3C 28               		ld	R3, #LO(tab_prc)
+/     404 : D6 04 12            		call	find_name1
-/     404 : D6 04 12            		call	find_name1
+/     407 : 7B 15               		jr	C, find_name4	; Ende wenn gefunden
-/     407 : 7B 15               		jr	C, find_name4	; Ende wenn gefunden
+/     409 :                     		; Suche in externer Tabelle
-/     409 :                     		; Suche in externer Tabelle
+/     409 : B0 E2               		clr	R2
-/     409 : B0 E2               		clr	R2
+/     40B : 44 08 E2            		or	R2, reg_08	; HI ext. Proc-Table
-/     40B : 44 08 E2            		or	R2, reg_08	; HI ext. Proc-Table
+/     40E : 6B 0D               		jr	Z, find_name3	; wenn 0 (= nicht vorhanden)
-/     40E : 6B 0D               		jr	Z, find_name3	; wenn 0 (= nicht vorhanden)
+/     410 : 38 09               		ld	R3, reg_09	; LO ext. Proc-Table
-/     410 : 38 09               		ld	R3, reg_09	; LO ext. Proc-Table
+/     412 :                     ;
-/     412 :                     ;
+/     412 : 48 E0               find_name1:	ld	R4, R0		; akt. Position Basicprogramm
-/     412 : 48 E0               find_name1:	ld	R4, R0		; akt. Position Basicprogramm
+/     414 : 58 E1               		ld	R5, R1		; d.h. Procedur-Name
-/     414 : 58 E1               		ld	R5, R1		; d.h. Procedur-Name
+/     416 : C2 82               find_name2:	ldc	R8, @RR2	; Länge Procedurname
-/     416 : C2 82               find_name2:	ldc	R8, @RR2	; Länge Procedurname
+/     418 : A6 E8 FF            		cp	R8, #0FFh	; tap_prc-Ende ?
-/     418 : A6 E8 FF            		cp	R8, #0FFh	; tap_prc-Ende ?
+/     41B : EB 02               		jr	NZ, comp_name
-/     41B : EB 02               		jr	NZ, comp_name
+/     41D : CF                  find_name3:	rcf
-/     41D : CF                  find_name3:	rcf
+/     41E : AF                  find_name4:	ret
-/     41E : AF                  find_name4:	ret
+/     41F :
-/     41F :
+/     41F :                     ; Namensvergleich
-/     41F :                     ; Namensvergleich
+/     41F : A0 E2               comp_name:	incw	RR2		; auf nächstes Zeichen Procedur-Name
-/     41F : A0 E2               comp_name:	incw	RR2		; auf nächstes Zeichen Procedur-Name
+/     421 : C2 72               		ldc	R7, @RR2	; Zeichen nach R7 f. Vergleich
-/     421 : C2 72               		ldc	R7, @RR2	; Zeichen nach R7 f. Vergleich
+/     423 : D6 03 91            		call	next_char	; gesuchte Procedur nächstes Zeichen
-/     423 : D6 03 91            		call	next_char	; gesuchte Procedur nächstes Zeichen
+/     426 : EB 14               		jr	NZ, comp_name2	; passt nicht -> nächsten Prozedurnamen vergleichen
-/     426 : EB 14               		jr	NZ, comp_name2	; passt nicht -> nächsten Prozedurnamen vergleichen
+/     428 : 8A F5               		djnz	R8, comp_name	; weiter bis alle Zeichen verglichen
-/     428 : 8A F5               		djnz	R8, comp_name	; weiter bis alle Zeichen verglichen
+/     42A :                     		; Procedur-Name in Tabelle gefunden
-/     42A :                     		; Procedur-Name in Tabelle gefunden
+/     42A : C2 60               		ldc	R6, @RR0	; Zeichen an akt. Position Basicprogramm
-/     42A : C2 60               		ldc	R6, @RR0	; Zeichen an akt. Position Basicprogramm
+/     42C : D6 03 E2            		call	is_char		; ist der gesuchte Name länger?
-/     42C : D6 03 E2            		call	is_char		; ist der gesuchte Name länger?
+/     42F : 7B 0A               		jr	C, comp_name1	; dann weitersuchen
-/     42F : 7B 0A               		jr	C, comp_name1	; dann weitersuchen
+/     431 : A0 E2               		incw	RR2
-/     431 : A0 E2               		incw	RR2
+/     433 : C2 82               		ldc	R8, @RR2   	; sonst Proceduradresse nach RR8
-/     433 : C2 82               		ldc	R8, @RR2   	; sonst Proceduradresse nach RR8
+/     435 : A0 E2               		incw	RR2
-/     435 : A0 E2               		incw	RR2
+/     437 : C2 92               		ldc	R9, @RR2
-/     437 : C2 92               		ldc	R9, @RR2
+/     439 : DF                  		scf			; Cy=gefunden
-/     439 : DF                  		scf			; Cy=gefunden
+/     43A : AF                  		ret
-/     43A : AF                  		ret
+/     43B :                     ; nächsten Prozedurnamen vergleichen
-/     43B :                     ; nächsten Prozedurnamen vergleichen
+/     43B : 8E                  comp_name1:	inc	R8		; Restlänge v. Namen + 1
-/     43B : 8E                  comp_name1:	inc	R8		; Restlänge v. Namen + 1
+/     43C : 8E                  comp_name2:	inc	R8		; + 2 Byte Adresse
-/     43C : 8E                  comp_name2:	inc	R8		; + 2 Byte Adresse
+/     43D : 8E                  		inc	R8
-/     43D : 8E                  		inc	R8
+/     43E : 02 38               		add	R3, R8		; zu Pos in Proc-Table addieren
-/     43E : 02 38               		add	R3, R8		; zu Pos in Proc-Table addieren
+/     440 : 16 E2 00            		adc	R2, #0
-/     440 : 16 E2 00            		adc	R2, #0
+/     443 : 08 E4               		ld	R0, R4		; akt. Position Basicprogramm
-/     443 : 08 E4               		ld	R0, R4		; akt. Position Basicprogramm
+/     445 : 18 E5               		ld	R1, R5		; rücksetzen
-/     445 : 18 E5               		ld	R1, R5		; rücksetzen
+/     447 : 8B CD               		jr	find_name2	; weitersuchen
-/     447 : 8B CD               		jr	find_name2	; weitersuchen
+/     449 :
-/     449 :
+/     449 :                     ;-----------------------------------------------------------------------------
-/     449 :                     ;-----------------------------------------------------------------------------
+/     449 :                     ; Prozedur/Fkt.namen suchen, Eingabeparameter ablegen, Prozedur ausführen
-/     449 :                     ; Prozedur/Fkt.namen suchen, Eingabeparameter ablegen, Prozedur ausführen
+/     449 :                     ;-----------------------------------------------------------------------------
-/     449 :                     ;-----------------------------------------------------------------------------
+/     449 :
-/     449 :
+/     449 : 80 E0               func:		decw	RR0
-/     449 : 80 E0               func:		decw	RR0
+/     44B :
-/     44B :
+/     44B :                     ; zu c_PROC3
-/     44B :                     ; zu c_PROC3
+/     44B : D6 04 00            func1:		call	find_name	; Prozedurnamen suchen
-/     44B : D6 04 00            func1:		call	find_name	; Prozedurnamen suchen
+/     44E : C2 A0               		ldc	R10, @RR0	; Zeichen an akt. Position Basicprogramm
-/     44E : C2 A0               		ldc	R10, @RR0	; Zeichen an akt. Position Basicprogramm
+/     450 : A6 EA 5B            		cp	R10, #'['	; folgen Eingabeparameter?
-/     450 : A6 EA 5B            		cp	R10, #'['	; folgen Eingabeparameter?
+/     453 : EB 1A               		jr	NZ, func3	; nein
-/     453 : EB 1A               		jr	NZ, func3	; nein
+/     455 : A0 E0               		incw	RR0
-/     455 : A0 E0               		incw	RR0
+/     457 :                     		; Eingabeparameter evaluieren und auf Stack ablegen
-/     457 :                     		; Eingabeparameter evaluieren und auf Stack ablegen
+/     457 : 70 E8               func2:		push	R8		; Proc-Adr. sichern
-/     457 : 70 E8               func2:		push	R8		; Proc-Adr. sichern
+/     459 : 70 E9               		push	R9
-/     459 : 70 E9               		push	R9
+/     45B : D6 04 C7            		call	expr		; Eingabeparameter evaluieren -> RR2
-/     45B : D6 04 C7            		call	expr		; Eingabeparameter evaluieren -> RR2
+/     45E : 50 E9               		pop	R9		; Proc-Adr. restaurieren
-/     45E : 50 E9               		pop	R9		; Proc-Adr. restaurieren
+/     460 : 50 E8               		pop	R8
-/     460 : 50 E8               		pop	R8
+/     462 : 7C 5D               		ld	R7, #']'
-/     462 : 7C 5D               		ld	R7, #']'
+/     464 : D6 03 91            		call	next_char
-/     464 : D6 03 91            		call	next_char
+/     467 : 6B 06               		jr	Z, func3	; wenn Ende Parameterliste
-/     467 : 6B 06               		jr	Z, func3	; wenn Ende Parameterliste
+/     469 : 70 E3               		push	R3		; sonst Wert auf Stack
-/     469 : 70 E3               		push	R3		; sonst Wert auf Stack
+/     46B : 70 E2               		push	R2
-/     46B : 70 E2               		push	R2
+/     46D : 8B E8               		jr	func2		; und nächsten Parameter
-/     46D : 8B E8               		jr	func2		; und nächsten Parameter
+/     46F :                     ; X1..Xn-1 liegen auf Stack, Xn in RR2
-/     46F :                     ; X1..Xn-1 liegen auf Stack, Xn in RR2
+/     46F : 48 E2               func3:		ld	R4, R2		; Y = X setzen
-/     46F : 48 E2               func3:		ld	R4, R2		; Y = X setzen
+/     471 : 58 E3               		ld	R5, R3
-/     471 : 58 E3               		ld	R5, R3
+/     473 : D4 E8               		call	@RR8		; Procedur starten
-/     473 : D4 E8               		call	@RR8		; Procedur starten
+/     475 : 31 10               		srp	#10h		; zur Sicherheit f. ext. Proceduren
-/     475 : 31 10               		srp	#10h		; zur Sicherheit f. ext. Proceduren
+/     477 : DF                  		scf			; Cy=Erfolg
-/     477 : DF                  		scf			; Cy=Erfolg
+/     478 : AF                  		ret
-/     478 : AF                  		ret
+/     479 :
-/     479 :
+/     479 :                     ;-----------------------------------------------------------------------------
-/     479 :                     ;-----------------------------------------------------------------------------
+/     479 :                     ; Ausdruck
-/     479 :                     ; Ausdruck
+/     479 :                     ; Variable, Prozedur[..], Hex-Zahl, Dez-Zahl
-/     479 :                     ; Variable, Prozedur[..], Hex-Zahl, Dez-Zahl
+/     479 :                     ;-----------------------------------------------------------------------------
-/     479 :                     ;-----------------------------------------------------------------------------
+/     479 :
-/     479 :
+/     479 : D6 03 D9            factor:		call	is_letter
-/     479 : D6 03 D9            factor:		call	is_letter
+/     47C : FB 17               		jr	NC, factor1	; wenn kein Buchstabe A..Z
-/     47C : FB 17               		jr	NC, factor1	; wenn kein Buchstabe A..Z
+/     47E : C2 70               		ldc	R7, @RR0
-/     47E : C2 70               		ldc	R7, @RR0
+/     480 : FE                  		inc	R15
-/     480 : FE                  		inc	R15
+/     481 : D6 03 E2            		call	is_char		; folgt Buchstabe oder Zahl?
-/     481 : D6 03 E2            		call	is_char		; folgt Buchstabe oder Zahl?
+/     484 : 7B C3               		jr	C, func		; ja, dann Prozedurname
-/     484 : 7B C3               		jr	C, func		; ja, dann Prozedurname
+/     486 :                     		; sonst einzelne Variable A..Z
-/     486 :                     		; sonst einzelne Variable A..Z
+/     486 : 26 E6 41            		sub	R6, #41h	; 'A'
-/     486 : 26 E6 41            		sub	R6, #41h	; 'A'
+/     489 : 90 E6               		rl	R6		; *2
-/     489 : 90 E6               		rl	R6		; *2
+/     48B : 06 E6 20            		add	R6, #20h	; Register 20h..53h
-/     48B : 06 E6 20            		add	R6, #20h	; Register 20h..53h
+/     48E : E3 26               		ld	R2, @R6		; Wert nach R2/R3 (Y)
-/     48E : E3 26               		ld	R2, @R6		; Wert nach R2/R3 (Y)
+/     490 : 6E                  		inc	R6
-/     490 : 6E                  		inc	R6
+/     491 : E3 36               		ld	R3, @R6
-/     491 : E3 36               		ld	R3, @R6
+/     493 : DF                  		scf
-/     493 : DF                  		scf
+/     494 : AF                  		ret
-/     494 : AF                  		ret
+/     495 :
-/     495 :
+/     495 : A7 EF 3B            factor1:	cp	@R15, #';'	; Statement-Ende
-/     495 : A7 EF 3B            factor1:	cp	@R15, #';'	; Statement-Ende
+/     498 : 6B 19               		jr	Z, factor3
-/     498 : 6B 19               		jr	Z, factor3
+/     49A : A7 EF 0D            		cp	@R15, #0Dh	; CR, Zeilenende
-/     49A : A7 EF 0D            		cp	@R15, #0Dh	; CR, Zeilenende
+/     49D : 6B 14               		jr	Z, factor3
-/     49D : 6B 14               		jr	Z, factor3
+/     49F : FE                  		inc	R15
-/     49F : FE                  		inc	R15
+/     4A0 : C3 F0               factor2:	ldci	@R15, @RR0	; Ablegen in Konvertierungspuffer
-/     4A0 : C3 F0               factor2:	ldci	@R15, @RR0	; Ablegen in Konvertierungspuffer
+/     4A2 : 00 EF               		dec	R15
-/     4A2 : 00 EF               		dec	R15
+/     4A4 : D6 03 F2            		call	is_hexdigit
-/     4A4 : D6 03 F2            		call	is_hexdigit
+/     4A7 : FE                  		inc	R15
-/     4A7 : FE                  		inc	R15
+/     4A8 : 7B F6               		jr	C, factor2	; solange (Hex-)Ziffer 0..F
-/     4A8 : 7B F6               		jr	C, factor2	; solange (Hex-)Ziffer 0..F
+/     4AA : 80 E0               		decw	RR0
-/     4AA : 80 E0               		decw	RR0
+/     4AC : D6 01 D9            		call	number		; Zahl konvertieren
-/     4AC : D6 01 D9            		call	number		; Zahl konvertieren
+/     4AF : 28 E4               		ld	R2, R4
-/     4AF : 28 E4               		ld	R2, R4
+/     4B1 : 38 E5               		ld	R3, R5
-/     4B1 : 38 E5               		ld	R3, R5
+/     4B3 : AF                  factor3:	ret
-/     4B3 : AF                  factor3:	ret
+/     4B4 :
-/     4B4 :
+/     4B4 :                     ;-----------------------------------------------------------------------------
-/     4B4 :                     ;-----------------------------------------------------------------------------
+/     4B4 :                     ; geklammerter Ausdruck
-/     4B4 :                     ; geklammerter Ausdruck
+/     4B4 :                     ;-----------------------------------------------------------------------------
-/     4B4 :                     ;-----------------------------------------------------------------------------
+/     4B4 :
-/     4B4 :
+/     4B4 : 7C 28               term:		ld	R7, #'('	; linke Klammer
-/     4B4 : 7C 28               term:		ld	R7, #'('	; linke Klammer
+/     4B6 : D6 03 91            		call	next_char
-/     4B6 : D6 03 91            		call	next_char
+/     4B9 : EB BE               		jr	NZ, factor	; wenn keine Klammer
-/     4B9 : EB BE               		jr	NZ, factor	; wenn keine Klammer
+/     4BB : D6 04 C7            		call	expr		; Ausdruck berechnen
-/     4BB : D6 04 C7            		call	expr		; Ausdruck berechnen
+/     4BE : FB 06               		jr	NC, term1
-/     4BE : FB 06               		jr	NC, term1
+/     4C0 : 7C 29               		ld	R7, #')'	; rechte Klammer
-/     4C0 : 7C 29               		ld	R7, #')'	; rechte Klammer
+/     4C2 : D6 03 91            		call	next_char
-/     4C2 : D6 03 91            		call	next_char
+/     4C5 : EF                  		ccf
-/     4C5 : EF                  		ccf
+/     4C6 : AF                  term1:		ret
-/     4C6 : AF                  term1:		ret
+/     4C7 :
-/     4C7 :
+/     4C7 :                     ;-----------------------------------------------------------------------------
-/     4C7 :                     ;-----------------------------------------------------------------------------
+/     4C7 :                     ; Ausdruck berechnen von links nach rechts (Kettenrechnen)
-/     4C7 :                     ; Ausdruck berechnen von links nach rechts (Kettenrechnen)
+/     4C7 :                     ; Rückgabe Wert in RR2
-/     4C7 :                     ; Rückgabe Wert in RR2
+/     4C7 :                     ;-----------------------------------------------------------------------------
-/     4C7 :                     ;-----------------------------------------------------------------------------
+/     4C7 :
-/     4C7 :
+/     4C7 : D6 04 B4            expr:		call	term		; linker Wert
-/     4C7 : D6 04 B4            expr:		call	term		; linker Wert
+/     4CA : FB 09               		jr	NC, expr2
-/     4CA : FB 09               		jr	NC, expr2
+/     4CC : D6 03 91            expr1:		call	next_char
-/     4CC : D6 03 91            expr1:		call	next_char
+/     4CF : D6 03 9A            		call	oper		; Operator
-/     4CF : D6 03 9A            		call	oper		; Operator
+/     4D2 : 6B 04               		jr	Z, expr3	; wenn Operator gefunden
-/     4D2 : 6B 04               		jr	Z, expr3	; wenn Operator gefunden
+/     4D4 : DF                  		scf			; sonst Fehler
-/     4D4 : DF                  		scf			; sonst Fehler
+/     4D5 : 80 E0               expr2:		decw	RR0
-/     4D5 : 80 E0               expr2:		decw	RR0
+/     4D7 : AF                  		ret
-/     4D7 : AF                  		ret
+/     4D8 :                     ;
-/     4D8 :                     ;
+/     4D8 : 70 E8               expr3:		push	R8		; RR8 = Op-Fkt.Adresse
-/     4D8 : 70 E8               expr3:		push	R8		; RR8 = Op-Fkt.Adresse
+/     4DA : 70 E9               		push	R9
-/     4DA : 70 E9               		push	R9
+/     4DC : 70 E2               		push	R2		; aktueller linker Wert (Y)
-/     4DC : 70 E2               		push	R2		; aktueller linker Wert (Y)
+/     4DE : 70 E3               		push	R3
-/     4DE : 70 E3               		push	R3
+/     4E0 : D6 04 B4            		call	term		; rechter Wert
-/     4E0 : D6 04 B4            		call	term		; rechter Wert
+/     4E3 : 48 E2               		ld	R4, R2		; nach RR4 (X)
-/     4E3 : 48 E2               		ld	R4, R2		; nach RR4 (X)
+/     4E5 : 58 E3               		ld	R5, R3
-/     4E5 : 58 E3               		ld	R5, R3
+/     4E7 : 50 E3               		pop	R3		; Y restaurieren
-/     4E7 : 50 E3               		pop	R3		; Y restaurieren
+/     4E9 : 50 E2               		pop	R2
-/     4E9 : 50 E2               		pop	R2
+/     4EB : 50 E9               		pop	R9		; Adr. restaurieren
-/     4EB : 50 E9               		pop	R9		; Adr. restaurieren
+/     4ED : 50 E8               		pop	R8
-/     4ED : 50 E8               		pop	R8
+/     4EF : D4 E8               		call	@RR8		; berechnen
-/     4EF : D4 E8               		call	@RR8		; berechnen
+/     4F1 :                     ;
-/     4F1 :                     ;
+/     4F1 : 8B D9               		jr	expr1		; weitere Operationen
-/     4F1 : 8B D9               		jr	expr1		; weitere Operationen
+/     4F3 :
-/     4F3 :
+/     4F3 :                     ;-----------------------------------------------------------------------------
-/     4F3 :                     ;-----------------------------------------------------------------------------
+/     4F3 :                     ; holt Speicheradresse zu Variable A..Z
-/     4F3 :                     ; holt Speicheradresse zu Variable A..Z
+/     4F3 :                     ; out RR8 = Adr. in Registerspeicher (20h..53h)
-/     4F3 :                     ; out RR8 = Adr. in Registerspeicher (20h..53h)
+/     4F3 :                     ;-----------------------------------------------------------------------------
-/     4F3 :                     ;-----------------------------------------------------------------------------
+/     4F3 :
-/     4F3 :
+/     4F3 : D6 03 91            get_var:	call	next_char
-/     4F3 : D6 03 91            get_var:	call	next_char
+/     4F6 : 26 E6 41            		sub	R6, #'A'
-/     4F6 : 26 E6 41            		sub	R6, #'A'
+/     4F9 : 02 66               		add	R6, R6
-/     4F9 : 02 66               		add	R6, R6
+/     4FB : 8C 20               		ld	R8, #20h	; Register 20h..53h
-/     4FB : 8C 20               		ld	R8, #20h	; Register 20h..53h
+/     4FD : 02 86               		add	R8, R6
-/     4FD : 02 86               		add	R8, R6
+/     4FF : AF                  		ret
-/     4FF : AF                  		ret
+/     500 :
-/     500 :
+/     500 :                     ;-----------------------------------------------------------------------------
-/     500 :                     ;-----------------------------------------------------------------------------
+/     500 :                     ; Zeilennummer ermitteln
-/     500 :                     ; Zeilennummer ermitteln
+/     500 :                     ; ret: RR4 = zeilennummer, RR0 = Zeilenanfang; Cy=1 Programmanfang
-/     500 :                     ; ret: RR4 = zeilennummer, RR0 = Zeilenanfang; Cy=1 Programmanfang
+/     500 :                     ;-----------------------------------------------------------------------------
-/     500 :                     ;-----------------------------------------------------------------------------
+/     500 :
-/     500 :
+/     500 :                     ; UP zu GOTO
-/     500 :                     ; UP zu GOTO
+/     500 :                     linum:		;auf Zeilenanfang
-/     500 :                     linum:		;auf Zeilenanfang
+/     500 : C2 40               		ldc	R4, @RR0
-/     500 : C2 40               		ldc	R4, @RR0
+/     502 : 80 E0               		decw	RR0		; aktuelle Zeile rückwärts
-/     502 : 80 E0               		decw	RR0		; aktuelle Zeile rückwärts
+/     504 : 76 E4 80            		tm	R4, #80h	; Bit7 gesetzt?
-/     504 : 76 E4 80            		tm	R4, #80h	; Bit7 gesetzt?
+/     507 : 6B F7               		jr	Z, linum	; rückwärts bis Zeilenanfang
-/     507 : 6B F7               		jr	Z, linum	; rückwärts bis Zeilenanfang
+/     509 : A0 E0               		incw	RR0
-/     509 : A0 E0               		incw	RR0
+/     50B :                     		;Programmanfang erreicht?
-/     50B :                     		;Programmanfang erreicht?
+/     50B : 56 E4 7F            		and	R4, #7Fh	; strip hi bit
-/     50B : 56 E4 7F            		and	R4, #7Fh	; strip hi bit
+/     50E : A4 06 E0            		cp	R0, reg_06	; Vergleich Adr. mit Programmanfang
-/     50E : A4 06 E0            		cp	R0, reg_06	; Vergleich Adr. mit Programmanfang
+/     511 : EB 06               		jr	NZ, linum1	;
-/     511 : EB 06               		jr	NZ, linum1	;
+/     513 : A4 07 E1            		cp	R1, reg_07
-/     513 : A4 07 E1            		cp	R1, reg_07
+/     516 : DF                  		scf
-/     516 : DF                  		scf
+/     517 : 6B 0F               		jr	Z, linum2	; Programmanfang erreicht
-/     517 : 6B 0F               		jr	Z, linum2	; Programmanfang erreicht
+/     519 :                     		;
-/     519 :                     		;
+/     519 :                     linum1:		;steht vor gesetztem hi-bit ein CR? dann Zeilenanfang gefunden
-/     519 :                     linum1:		;steht vor gesetztem hi-bit ein CR? dann Zeilenanfang gefunden
+/     519 : 80 E0               		decw	RR0
-/     519 : 80 E0               		decw	RR0
+/     51B : C2 50               		ldc	R5, @RR0
-/     51B : C2 50               		ldc	R5, @RR0
+/     51D : A0 E0               		incw	RR0
-/     51D : A0 E0               		incw	RR0
+/     51F : A6 E5 0D            		cp	R5, #0Dh	; CR, Suche Zeilenende
-/     51F : A6 E5 0D            		cp	R5, #0Dh	; CR, Suche Zeilenende
+/     522 : 6B 04               		jr	Z, linum2	; ja, Zeilenanfang gefunden
-/     522 : 6B 04               		jr	Z, linum2	; ja, Zeilenanfang gefunden
+/     524 : 80 E0               		decw	RR0
-/     524 : 80 E0               		decw	RR0
+/     526 : 8B D8               		jr	linum		; sonst weitersuchen
-/     526 : 8B D8               		jr	linum		; sonst weitersuchen
+/     528 :                     		;
-/     528 :                     		;
+/     528 : A0 E0               linum2:		incw	RR0
-/     528 : A0 E0               linum2:		incw	RR0
+/     52A : C2 50               		ldc	R5, @RR0	; RR4=Zeilennummer
-/     52A : C2 50               		ldc	R5, @RR0	; RR4=Zeilennummer
+/     52C : 80 E0               		decw	RR0
-/     52C : 80 E0               		decw	RR0
+/     52E : AF                  		ret
-/     52E : AF                  		ret
+/     52F :
-/     52F :
+/     52F :                     ;-----------------------------------------------------------------------------
-/     52F :                     ;-----------------------------------------------------------------------------
+/     52F :                     ; Ausgabe "text"
-/     52F :                     ; Ausgabe "text"
+/     52F :                     ;-----------------------------------------------------------------------------
-/     52F :                     ;-----------------------------------------------------------------------------
+/     52F :
-/     52F :
+/     52F : 7C 22               prnstr:		ld	R7, #'"'
-/     52F : 7C 22               prnstr:		ld	R7, #'"'
+/     531 : D6 03 91            		call	next_char
-/     531 : D6 03 91            		call	next_char
+/     534 : EB 0C               		jr	NZ, prnstr2	; kein Quote -> Abbruch
-/     534 : EB 0C               		jr	NZ, prnstr2	; kein Quote -> Abbruch
+/     536 : D6 03 91            prnstr1:	call	next_char	; nächstes Zeichen
-/     536 : D6 03 91            prnstr1:	call	next_char	; nächstes Zeichen
+/     539 : 6B 09               		jr	Z, prnstr3	; Ende beim abschließenden Quote
-/     539 : 6B 09               		jr	Z, prnstr3	; Ende beim abschließenden Quote
+/     53B : 58 E6               		ld	R5, R6		; nach R5
-/     53B : 58 E6               		ld	R5, R6		; nach R5
+/     53D : D6 08 18            		call	putch		; mit PUT_CHAR ausgeben
-/     53D : D6 08 18            		call	putch		; mit PUT_CHAR ausgeben
+/     540 : 8B F4               		jr	prnstr1
-/     540 : 8B F4               		jr	prnstr1
+/     542 :                     ;
-/     542 :                     ;
+/     542 : 80 E0               prnstr2:	decw	RR0		; Pointer zurückstellen
-/     542 : 80 E0               prnstr2:	decw	RR0		; Pointer zurückstellen
+/     544 : AF                  prnstr3:	ret
-/     544 : AF                  prnstr3:	ret
+/     545 :
 /     545 :
-/     545 :
+/     545 :                     ;-----------------------------------------------------------------------------
-/     545 :                     ;-----------------------------------------------------------------------------
+/     545 :                     ; logischer Ausdruck
-/     545 :                     ; logischer Ausdruck
+/     545 :                     ; expr. relop expr., ret NZ wenn true, Z wenn false
-/     545 :                     ; expr. relop expr., ret NZ wenn true, Z wenn false
+/     545 :                     ;-----------------------------------------------------------------------------
-/     545 :                     ;-----------------------------------------------------------------------------
+/     545 :
-/     545 :
+/     545 : D6 04 C7            relop:	call	expr		; linker wert
-/     545 : D6 04 C7            relop:	call	expr		; linker wert
+/     548 : B0 EA               		clr	R10
-/     548 : B0 EA               		clr	R10
+/     54A : 9C 02               		ld	R9, #2		; max 2 Zeichen
-/     54A : 9C 02               		ld	R9, #2		; max 2 Zeichen
+/     54C : 8C 10               relop1:		ld	R8, #10h
-/     54C : 8C 10               relop1:		ld	R8, #10h
+/     54E : C2 60               		ldc	R6, @RR0
-/     54E : C2 60               		ldc	R6, @RR0
+/     550 : A6 E6 3C            		cp	R6, #'<'
-/     550 : A6 E6 3C            		cp	R6, #'<'
+/     553 : 6B 0E               		jr	Z, relop2	; < R8=10
-/     553 : 6B 0E               		jr	Z, relop2	; < R8=10
+/     555 : 90 E8               		rl	R8
-/     555 : 90 E8               		rl	R8
+/     557 : A6 E6 3E            		cp	R6, #'>'
-/     557 : A6 E6 3E            		cp	R6, #'>'
+/     55A : 6B 07               		jr	Z, relop2	; > R8=20
-/     55A : 6B 07               		jr	Z, relop2	; > R8=20
+/     55C : 90 E8               		rl	R8
-/     55C : 90 E8               		rl	R8
+/     55E : A6 E6 3D            		cp	R6, #'='
-/     55E : A6 E6 3D            		cp	R6, #'='
+/     561 : EB 06               		jr	NZ, relop3	; = R8=40
-/     561 : EB 06               		jr	NZ, relop3	; = R8=40
+/     563 : 42 A8               relop2:		or	R10, R8		; <= R8=50, >= R8=60
-/     563 : 42 A8               relop2:		or	R10, R8		; <= R8=50, >= R8=60
+/     565 : A0 E0               		incw	RR0
-/     565 : A0 E0               		incw	RR0
+/     567 : 9A E3               		djnz	R9, relop1
-/     567 : 9A E3               		djnz	R9, relop1
+/     569 :                     		;
-/     569 :                     		;
+/     569 : 70 EA               relop3:		push	R10
-/     569 : 70 EA               relop3:		push	R10
+/     56B : 70 E2               		push	R2
-/     56B : 70 E2               		push	R2
+/     56D : 70 E3               		push	R3
-/     56D : 70 E3               		push	R3
+/     56F : D6 04 C7            		call	expr		; rechter Wert
-/     56F : D6 04 C7            		call	expr		; rechter Wert
+/     572 : 48 E2               		ld	R4, R2		; RR4 = rechter Wert
-/     572 : 48 E2               		ld	R4, R2		; RR4 = rechter Wert
+/     574 : 58 E3               		ld	R5, R3
-/     574 : 58 E3               		ld	R5, R3
+/     576 : 50 E3               		pop	R3		; RR2 = linker Wert
-/     576 : 50 E3               		pop	R3		; RR2 = linker Wert
+/     578 : 50 E2               		pop	R2
-/     578 : 50 E2               		pop	R2
+/     57A : D6 01 41            		call	relcmp		; Vergleich
-/     57A : D6 01 41            		call	relcmp		; Vergleich
+/     57D : 50 E8               		pop	R8
-/     57D : 50 E8               		pop	R8
+/     57F : 54 0F E8            		and	R8, reg_0F	; Mit relop verknüpfen
-/     57F : 54 0F E8            		and	R8, reg_0F	; Mit relop verknüpfen
+/     582 : AF                  		ret			; Z=1 => relop false
-/     582 : AF                  		ret			; Z=1 => relop false
+/     583 :
-/     583 :
+/     583 :                     ;-----------------------------------------------------------------------------
-/     583 :                     ;-----------------------------------------------------------------------------
+/     583 :                     ; REM kommentar
-/     583 :                     ; REM kommentar
+/     583 :                     ;-----------------------------------------------------------------------------
-/     583 :                     ;-----------------------------------------------------------------------------
+/     583 :
-/     583 :
+/     583 : 7C 3B               c_REM:		ld	R7, #';'
-/     583 : 7C 3B               c_REM:		ld	R7, #';'
+/     585 : D6 03 91            c_REM1:		call	next_char
-/     585 : D6 03 91            c_REM1:		call	next_char
+/     588 : 6B 06               		jr	Z, c_REM2	; überlesen bis ;
-/     588 : 6B 06               		jr	Z, c_REM2	; überlesen bis ;
+/     58A : A6 E6 0D            		cp	R6, #0Dh	; CR
-/     58A : A6 E6 0D            		cp	R6, #0Dh	; CR
+/     58D : DF                  		scf
-/     58D : DF                  		scf
+/     58E : EB F5               		jr	NZ, c_REM1	; oder Zeilenende
-/     58E : EB F5               		jr	NZ, c_REM1	; oder Zeilenende
+/     590 : 80 E0               c_REM2:		decw	RR0
-/     590 : 80 E0               c_REM2:		decw	RR0
+/     592 : AF                  c_REM3:		ret
-/     592 : AF                  c_REM3:		ret
+/     593 :
 /     593 :
-/     593 :
+/     593 :                     ;-----------------------------------------------------------------------------
-/     593 :                     ;-----------------------------------------------------------------------------
+/     593 :                     ; Goto, If, Else: Rest bis Zeilenende übergehen
-/     593 :                     ; Goto, If, Else: Rest bis Zeilenende übergehen
+/     593 :                     ;-----------------------------------------------------------------------------
-/     593 :                     ;-----------------------------------------------------------------------------
+/     593 :
-/     593 :
+/     593 : D6 05 83            skip:		call	c_REM		; Rest übergehen
-/     593 : D6 05 83            skip:		call	c_REM		; Rest übergehen
+/     596 : 7B FA               		jr	C, c_REM3	; Ende bei CR
-/     596 : 7B FA               		jr	C, c_REM3	; Ende bei CR
+/     598 : A0 E0               		incw	RR0		; sonst auch nächste Anw.
-/     598 : A0 E0               		incw	RR0		; sonst auch nächste Anw.
+/     59A : 8B F7               		jr	skip		; übergehen
-/     59A : 8B F7               		jr	skip		; übergehen
+/     59C :
-/     59C :
+/     59C :                     ;-----------------------------------------------------------------------------
-/     59C :                     ;-----------------------------------------------------------------------------
+/     59C :                     ; LET variable=ausdruck
-/     59C :                     ; LET variable=ausdruck
+/     59C :                     ;-----------------------------------------------------------------------------
-/     59C :                     ;-----------------------------------------------------------------------------
+/     59C :
-/     59C :
+/     59C : D6 04 F3            c_LET:		call	get_var		; @RR8 = Variablenadr.
-/     59C : D6 04 F3            c_LET:		call	get_var		; @RR8 = Variablenadr.
+/     59F : 70 E8               		push	R8
-/     59F : 70 E8               		push	R8
+/     5A1 : A0 E0               		incw	RR0
-/     5A1 : A0 E0               		incw	RR0
+/     5A3 : D6 04 C7            		call	expr		; RR2 = ausdruck
-/     5A3 : D6 04 C7            		call	expr		; RR2 = ausdruck
+/     5A6 : 50 E8               		pop	R8
-/     5A6 : 50 E8               		pop	R8
+/     5A8 : F3 82               c_LET1:		ld	@R8, R2		; Wert abspeichern
-/     5A8 : F3 82               c_LET1:		ld	@R8, R2		; Wert abspeichern
+/     5AA : 8E                  		inc	R8
-/     5AA : 8E                  		inc	R8
+/     5AB : F3 83               		ld	@R8, R3
-/     5AB : F3 83               		ld	@R8, R3
+/     5AD : AF                  		ret
-/     5AD : AF                  		ret
+/     5AE :
 /     5AE :
-/     5AE :
+/     5AE :                     ;-----------------------------------------------------------------------------
-/     5AE :                     ;-----------------------------------------------------------------------------
+/     5AE :                     ; TRAP
-/     5AE :                     ; TRAP
+/     5AE :                     ; TRAP bedingung TO ausdruck
-/     5AE :                     ; TRAP bedingung TO ausdruck
+/     5AE :                     ;-----------------------------------------------------------------------------
-/     5AE :                     ;-----------------------------------------------------------------------------
+/     5AE :                     ; Trap setzen
-/     5AE :                     ; Trap setzen
+/     5AE :                     ; der Rest der Anweisung wird hier übergangen
-/     5AE :                     ; der Rest der Anweisung wird hier übergangen
+/     5AE :
-/     5AE :
+/     5AE : 09 04               c_TRAP:		ld	reg_04, R0	; RR0 = akt. Pos. in Programm
-/     5AE : 09 04               c_TRAP:		ld	reg_04, R0	; RR0 = akt. Pos. in Programm
+/     5B0 : 19 05               		ld	reg_05, R1
-/     5B0 : 19 05               		ld	reg_05, R1
+/     5B2 : 8B CF               c_TRAP1:	jr	c_REM
-/     5B2 : 8B CF               c_TRAP1:	jr	c_REM
+/     5B4 :
-/     5B4 :
+/     5B4 :                     ;-----------------------------------------------------------------------------
-/     5B4 :                     ;-----------------------------------------------------------------------------
+/     5B4 :                     ; PROC [variablenliste] = prozedurname [parameterliste]
-/     5B4 :                     ; PROC [variablenliste] = prozedurname [parameterliste]
+/     5B4 :                     ; PROC [Y1,Y2,Y3,..,Ym] = prozedurname [X1,X2,X3,..,Xn]
-/     5B4 :                     ; PROC [Y1,Y2,Y3,..,Ym] = prozedurname [X1,X2,X3,..,Xn]
+/     5B4 :                     ;-----------------------------------------------------------------------------
-/     5B4 :                     ;-----------------------------------------------------------------------------
+/     5B4 :                     ; bei Prozeduraufruf gilt:
-/     5B4 :                     ; bei Prozeduraufruf gilt:
+/     5B4 :                     ; Stack	SP+2m+2n	Ym-1			je 2 Byte Werte
-/     5B4 :                     ; Stack	SP+2m+2n	Ym-1			je 2 Byte Werte
+/     5B4 :                     ;	..		Ym-2
-/     5B4 :                     ;	..		Ym-2
+/     5B4 :                     ;	..		..
-/     5B4 :                     ;	..		..
+/     5B4 :                     ;	SP+2n+4		Y2
-/     5B4 :                     ;	SP+2n+4		Y2
+/     5B4 :                     ;	SP+2n+2		Y1
-/     5B4 :                     ;	SP+2n+2		Y1
+/     5B4 :                     ;	SP+2n		(intern f. interpreter)
-/     5B4 :                     ;	SP+2n		(intern f. interpreter)
+/     5B4 :                     ;	SP+2n-2		X1
-/     5B4 :                     ;	SP+2n-2		X1
+/     5B4 :                     ;	..		..
-/     5B4 :                     ;	..		..
+/     5B4 :                     ;	SP+4		Xn-2
-/     5B4 :                     ;	SP+4		Xn-2
+/     5B4 :                     ;	SP+2		Xn-1
-/     5B4 :                     ;	SP+2		Xn-1
+/     5B4 :                     ;	SP		returnadr. zum interpreter
-/     5B4 :                     ;	SP		returnadr. zum interpreter
+/     5B4 :                     ; die rechten Parameter Ym, Xn werden in Registern abgelegt
-/     5B4 :                     ; die rechten Parameter Ym, Xn werden in Registern abgelegt
+/     5B4 :                     ; out RR2 = Ym, in RR4 Xm
-/     5B4 :                     ; out RR2 = Ym, in RR4 Xm
+/     5B4 :                     ;-----------------------------------------------------------------------------
-/     5B4 :                     ;-----------------------------------------------------------------------------
+/     5B4 :
-/     5B4 :
+/     5B4 : 70 04               c_PROC:		push	reg_04		; aktuelle TRAP sichern
-/     5B4 : 70 04               c_PROC:		push	reg_04		; aktuelle TRAP sichern
+/     5B6 : 70 05               		push	reg_05
-/     5B6 : 70 05               		push	reg_05
+/     5B8 : 09 04               		ld	reg_04, R0	; aktuelle Programmposition sichern
-/     5B8 : 09 04               		ld	reg_04, R0	; aktuelle Programmposition sichern
+/     5BA : 19 05               		ld	reg_05, R1
-/     5BA : 19 05               		ld	reg_05, R1
+/     5BC :                     ;Ausgabeparameter auf Stack initialisieren
-/     5BC :                     ;Ausgabeparameter auf Stack initialisieren
+/     5BC : C2 60               		ldc	R6, @RR0	; nächstes Zeichen testen
-/     5BC : C2 60               		ldc	R6, @RR0	; nächstes Zeichen testen
+/     5BE : A6 E6 5B            		cp	R6, #'['	; folgen Ausgabeparameter Y?
-/     5BE : A6 E6 5B            		cp	R6, #'['	; folgen Ausgabeparameter Y?
+/     5C1 : EB 15               		jr	NZ, c_PROC3	; nein
-/     5C1 : EB 15               		jr	NZ, c_PROC3	; nein
+/     5C3 : A0 E0               		incw	RR0
-/     5C3 : A0 E0               		incw	RR0
+/     5C5 : B0 E8               		clr	R8		; 0
-/     5C5 : B0 E8               		clr	R8		; 0
+/     5C7 : 7C 5D               		ld	R7, #']'
-/     5C7 : 7C 5D               		ld	R7, #']'
+/     5C9 : A0 E0               c_PROC1:	incw	RR0
-/     5C9 : A0 E0               c_PROC1:	incw	RR0
+/     5CB : D6 03 91            		call	next_char
-/     5CB : D6 03 91            		call	next_char
+/     5CE : 6B 06               		jr	Z, c_PROC2
-/     5CE : 6B 06               		jr	Z, c_PROC2
+/     5D0 : 70 E8               		push	R8		; Stackspeicher f. Ausgabeparameter
-/     5D0 : 70 E8               		push	R8		; Stackspeicher f. Ausgabeparameter
+/     5D2 : 70 E8               		push	R8		; belegen (mit Wert 0)
-/     5D2 : 70 E8               		push	R8		; belegen (mit Wert 0)
+/     5D4 : 8B F3               		jr	c_PROC1
-/     5D4 : 8B F3               		jr	c_PROC1
+/     5D6 : A0 E0               c_PROC2:	incw	RR0
-/     5D6 : A0 E0               c_PROC2:	incw	RR0
+/     5D8 :                     ;Prozedurnamen suchen, Eingabeparameter evaluieren und ablegen, Prozedur ausführen
-/     5D8 :                     ;Prozedurnamen suchen, Eingabeparameter evaluieren und ablegen, Prozedur ausführen
+/     5D8 : D6 04 4B            c_PROC3:	call	func1
-/     5D8 : D6 04 4B            c_PROC3:	call	func1
+/     5DB :                     ;Ausgabeparameter von Stack in Variablen schreiben
-/     5DB :                     ;Ausgabeparameter von Stack in Variablen schreiben
+/     5DB : 08 04               		ld	R0, reg_04	; Programmposition auf Anfang setzen
-/     5DB : 08 04               		ld	R0, reg_04	; Programmposition auf Anfang setzen
+/     5DD : 18 05               		ld	R1, reg_05
-/     5DD : 18 05               		ld	R1, reg_05
+/     5DF : 7C 5B               		ld	R7, #'['
-/     5DF : 7C 5B               		ld	R7, #'['
+/     5E1 : D6 03 91            		call	next_char
-/     5E1 : D6 03 91            		call	next_char
+/     5E4 : EB 18               		jr	NZ, c_PROC6	; wenn keine Ausgabeparameter
-/     5E4 : EB 18               		jr	NZ, c_PROC6	; wenn keine Ausgabeparameter
+/     5E6 : 7C 5D               		ld	R7, #']'
-/     5E6 : 7C 5D               		ld	R7, #']'
+/     5E8 : D6 04 F3            c_PROC4:	call	get_var		; get Variable
-/     5E8 : D6 04 F3            c_PROC4:	call	get_var		; get Variable
+/     5EB : D6 03 91            		call	next_char
-/     5EB : D6 03 91            		call	next_char
+/     5EE : 6B 0B               		jr	Z, c_PROC5	; Ende bei ]
-/     5EE : 6B 0B               		jr	Z, c_PROC5	; Ende bei ]
+/     5F0 : 50 EA               		pop	R10		; Parameter
-/     5F0 : 50 EA               		pop	R10		; Parameter
+/     5F2 : F3 8A               		ld	@R8, R10	; in Variable schreiben (Hi)
-/     5F2 : F3 8A               		ld	@R8, R10	; in Variable schreiben (Hi)
+/     5F4 : 50 EA               		pop	R10
-/     5F4 : 50 EA               		pop	R10
+/     5F6 : 8E                  		inc	R8
-/     5F6 : 8E                  		inc	R8
+/     5F7 : F3 8A               		ld	@R8, R10	; Lo
-/     5F7 : F3 8A               		ld	@R8, R10	; Lo
+/     5F9 : 8B ED               		jr	c_PROC4		; nächsten Parameter
-/     5F9 : 8B ED               		jr	c_PROC4		; nächsten Parameter
+/     5FB : D6 05 A8            c_PROC5:	call	c_LET1
-/     5FB : D6 05 A8            c_PROC5:	call	c_LET1
+/     5FE : 50 05               c_PROC6:	pop	reg_05		; TRAP wiederherstellen
-/     5FE : 50 05               c_PROC6:	pop	reg_05		; TRAP wiederherstellen
+/     600 : 50 04               		pop	reg_04
-/     600 : 50 04               		pop	reg_04
+/     602 : 8B AE               		jr	c_TRAP1
-/     602 : 8B AE               		jr	c_TRAP1
+/     604 :
-/     604 :
+/     604 :                     ;-----------------------------------------------------------------------------
-/     604 :                     ;-----------------------------------------------------------------------------
+/     604 :                     ; GOTO ausdruck
-/     604 :                     ; GOTO ausdruck
+/     604 :                     ;-----------------------------------------------------------------------------
-/     604 :                     ;-----------------------------------------------------------------------------
+/     604 :                     ; suche passende zeile oder nächstgrößere; bei Programmende -> Ende
-/     604 :                     ; suche passende zeile oder nächstgrößere; bei Programmende -> Ende
+/     604 :
-/     604 :
+/     604 : D6 04 C7            c_GOTO:		call	expr		; RR2 = ausdruck
-/     604 : D6 04 C7            c_GOTO:		call	expr		; RR2 = ausdruck
+/     607 : D6 05 00            		call	linum		; RR4 = aktuelle Zeilennummer
-/     607 : D6 05 00            		call	linum		; RR4 = aktuelle Zeilennummer
+/     60A : D6 01 41            		call	relcmp		; vergleichen
-/     60A : D6 01 41            		call	relcmp		; vergleichen
+/     60D : 76 0F 50            		tm	reg_0F, #50h	; <=
-/     60D : 76 0F 50            		tm	reg_0F, #50h	; <=
+/     610 : EB 1F               		jr	NZ, c_GOTO3	; wenn ausdruck <= akt. Zeile
-/     610 : EB 1F               		jr	NZ, c_GOTO3	; wenn ausdruck <= akt. Zeile
+/     612 :
-/     612 :
+/     612 :                     c_GOTO1:	; Suche vorwärts
-/     612 :                     c_GOTO1:	; Suche vorwärts
+/     612 : D6 05 93            		call	skip		; Rest bis Zeilenende übergehen
-/     612 : D6 05 93            		call	skip		; Rest bis Zeilenende übergehen
+/     615 : A0 E0               		incw	RR0
-/     615 : A0 E0               		incw	RR0
+/     617 : C2 40               		ldc	R4, @RR0	; RR4 = nächste Zeilennummer
-/     617 : C2 40               		ldc	R4, @RR0	; RR4 = nächste Zeilennummer
+/     619 : A0 E0               		incw	RR0
-/     619 : A0 E0               		incw	RR0
+/     61B : C2 50               		ldc	R5, @RR0
-/     61B : C2 50               		ldc	R5, @RR0
+/     61D : 80 E0               		decw	RR0
-/     61D : 80 E0               		decw	RR0
+/     61F : 90 E4               		rl	R4		; Bit7 nach Cy und Bit0
-/     61F : 90 E4               		rl	R4		; Bit7 nach Cy und Bit0
+/     621 : CF                  		rcf			; Cy=0
-/     621 : CF                  		rcf			; Cy=0
+/     622 : C0 E4               		rrc	R4		; Bit7=0, Cy=orig. Bit7
-/     622 : C0 E4               		rrc	R4		; Bit7=0, Cy=orig. Bit7
+/     624 : FB 08               		jr	NC, c_GOTO2	; Programmende erreicht?
-/     624 : FB 08               		jr	NC, c_GOTO2	; Programmende erreicht?
+/     626 : D6 01 41            		call	relcmp
-/     626 : D6 01 41            		call	relcmp
+/     629 : 76 0F 50            		tm	reg_0F, #50h	; <=
-/     629 : 76 0F 50            		tm	reg_0F, #50h	; <=
+/     62C : 6B E4               		jr	Z, c_GOTO1	; weiter, solange ausdruck <= akt. Zeile
-/     62C : 6B E4               		jr	Z, c_GOTO1	; weiter, solange ausdruck <= akt. Zeile
+/     62E :                     c_GOTO2:	; Programmende erreicht
-/     62E :                     c_GOTO2:	; Programmende erreicht
+/     62E : 80 E0               		decw	RR0
-/     62E : 80 E0               		decw	RR0
+/     630 : AF                  		ret
-/     630 : AF                  		ret
+/     631 :
-/     631 :
+/     631 : D6 05 00            c_GOTO3:	call	linum		; RR4 = aktuelle Zeilennummer
-/     631 : D6 05 00            c_GOTO3:	call	linum		; RR4 = aktuelle Zeilennummer
+/     634 : FB 07               		jr	NC, c_GOTO4	; solange
-/     634 : FB 07               		jr	NC, c_GOTO4	; solange
+/     636 :
-/     636 :
+/     636 :                     		; Wenn Zeile gefunden
-/     636 :                     		; Wenn Zeile gefunden
+/     636 : A0 FE               		incw	gpr		; Stackpointer
-/     636 : A0 FE               		incw	gpr		; Stackpointer
+/     638 : A0 FE               		incw	gpr		; Stackpointer
-/     638 : A0 FE               		incw	gpr		; Stackpointer
+/     63A : 8D 07 3E            		jp	run2		; Zeile abarbeiten
-/     63A : 8D 07 3E            		jp	run2		; Zeile abarbeiten
+/     63D :
-/     63D :
+/     63D :                     c_GOTO4:	; suche Rückwärts
-/     63D :                     c_GOTO4:	; suche Rückwärts
+/     63D : D6 01 41            		call	relcmp
-/     63D : D6 01 41            		call	relcmp
+/     640 : 76 0F 60            		tm	reg_0F, #60h	; >=
-/     640 : 76 0F 60            		tm	reg_0F, #60h	; >=
+/     643 : EB E9               		jr	NZ, c_GOTO2
-/     643 : EB E9               		jr	NZ, c_GOTO2
+/     645 : 80 E0               		decw	RR0		; ein Zeichen zurück
-/     645 : 80 E0               		decw	RR0		; ein Zeichen zurück
+/     647 : 8B E8               		jr	c_GOTO3		; weitersuchen
-/     647 : 8B E8               		jr	c_GOTO3		; weitersuchen
+/     649 :
-/     649 :
+/     649 :                     ;-----------------------------------------------------------------------------
-/     649 :                     ;-----------------------------------------------------------------------------
+/     649 :                     ; IF bedingung THEN anweisungen
-/     649 :                     ; IF bedingung THEN anweisungen
+/     649 :                     ;-----------------------------------------------------------------------------
-/     649 :                     ;-----------------------------------------------------------------------------
+/     649 :
-/     649 :
+/     649 : 56 0F FE            c_IF:		and	reg_0F, #0FEh	; Bit0 = 0
-/     649 : 56 0F FE            c_IF:		and	reg_0F, #0FEh	; Bit0 = 0
+/     64C : D6 05 45            		call	relop		; bedingung auswerten
-/     64C : D6 05 45            		call	relop		; bedingung auswerten
+/     64F : EB 05               		jr	NZ, c_IF1	; Bedinung erfüllt
-/     64F : EB 05               		jr	NZ, c_IF1	; Bedinung erfüllt
+/     651 :                     					; -> nächste Anweisung abarbeiten (nach ;)
-/     651 :                     					; -> nächste Anweisung abarbeiten (nach ;)
+/     651 : 20 0F               		inc	reg_0F		; Bit0 = 1 ( -> ELSE)
-/     651 : 20 0F               		inc	reg_0F		; Bit0 = 1 ( -> ELSE)
+/     653 : 8D 05 93            		jp	skip		; Rest bis Zeilenende übergehen
-/     653 : 8D 05 93            		jp	skip		; Rest bis Zeilenende übergehen
+/     656 : AF                  c_IF1:		ret
-/     656 : AF                  c_IF1:		ret
+/     657 :
-/     657 :
+/     657 :                     ;-----------------------------------------------------------------------------
-/     657 :                     ;-----------------------------------------------------------------------------
+/     657 :                     ; ELSE anweisungen
-/     657 :                     ; ELSE anweisungen
+/     657 :                     ;-----------------------------------------------------------------------------
-/     657 :                     ;-----------------------------------------------------------------------------
+/     657 :
-/     657 :
+/     657 : 76 0F 01            c_ELSE:		tm	reg_0F, #1	; ELSE aktiv?
-/     657 : 76 0F 01            c_ELSE:		tm	reg_0F, #1	; ELSE aktiv?
+/     65A : 6D 05 93            		jp	Z, skip		; nein, Rest bis Zeilenende übergehen
-/     65A : 6D 05 93            		jp	Z, skip		; nein, Rest bis Zeilenende übergehen
+/     65D : 56 0F FE            		and	reg_0F, #0FEh	; Bit0 = 0 (kein ELSE aktiv)
-/     65D : 56 0F FE            		and	reg_0F, #0FEh	; Bit0 = 0 (kein ELSE aktiv)
+/     660 : AF                  		ret
-/     660 : AF                  		ret
+/     661 :
-/     661 :
+/     661 :                     ;-----------------------------------------------------------------------------
-/     661 :                     ;-----------------------------------------------------------------------------
+/     661 :                     ; RETURN
-/     661 :                     ; RETURN
+/     661 :                     ;-----------------------------------------------------------------------------
-/     661 :                     ;-----------------------------------------------------------------------------
+/     661 :
-/     661 :
+/     661 : A6 0E 00            c_RETURN:	cp	reg_0E, #0	; Verschachtelungstiefe 0?
-/     661 : A6 0E 00            c_RETURN:	cp	reg_0E, #0	; Verschachtelungstiefe 0?
+/     664 : EB 06               		jr	NZ, c_RETURN2	; nein
-/     664 : EB 06               		jr	NZ, c_RETURN2	; nein
+/     666 : 46 0E 20            		or	reg_0E, #20h	; Bit5 = 1
-/     666 : 46 0E 20            		or	reg_0E, #20h	; Bit5 = 1
+/     669 : 8D 01 1B            c_RETURN1:	jp	p_div6		; reg_0F Bit7=1
-/     669 : 8D 01 1B            c_RETURN1:	jp	p_div6		; reg_0F Bit7=1
+/     66C :                     		;
-/     66C :                     		;
+/     66C : 00 0E               c_RETURN2:	dec	reg_0E		; Verschachtelungstiefe verringern
-/     66C : 00 0E               c_RETURN2:	dec	reg_0E		; Verschachtelungstiefe verringern
+/     66E : 50 E6               		pop	R6		; Return-Adr.
-/     66E : 50 E6               		pop	R6		; Return-Adr.
+/     670 : 50 E7               		pop	R7
-/     670 : 50 E7               		pop	R7
+/     672 : 50 E0               		pop	R0		; RR0= Pos. nach GOSUB
-/     672 : 50 E0               		pop	R0		; RR0= Pos. nach GOSUB
+/     674 : 50 E1               		pop	R1
-/     674 : 50 E1               		pop	R1
+/     676 : 56 0F FE            		and	reg_0F, #0FEh	; Bit0 = 0 (kein ELSE aktiv)
-/     676 : 56 0F FE            		and	reg_0F, #0FEh	; Bit0 = 0 (kein ELSE aktiv)
+/     679 : 30 E6               		jp	@RR6		; return
-/     679 : 30 E6               		jp	@RR6		; return
+/     67B :
-/     67B :
+/     67B :                     ;-----------------------------------------------------------------------------
-/     67B :                     ;-----------------------------------------------------------------------------
+/     67B :                     ; GOSUB ausdruck
-/     67B :                     ; GOSUB ausdruck
+/     67B :                     ;-----------------------------------------------------------------------------
-/     67B :                     ;-----------------------------------------------------------------------------
+/     67B :
-/     67B :
+/     67B : 88 E0               c_GOSUB:	ld	R8, R0		; aktuelle Position
-/     67B : 88 E0               c_GOSUB:	ld	R8, R0		; aktuelle Position
+/     67D : 98 E1               		ld	R9, R1		; sichern
-/     67D : 98 E1               		ld	R9, R1		; sichern
+/     67F : D6 05 83            		call	c_REM		; RR0=Kommandoende
-/     67F : D6 05 83            		call	c_REM		; RR0=Kommandoende
+/     682 : 50 EA               		pop	R10		; Return-Adresse vom Stack
-/     682 : 50 EA               		pop	R10		; Return-Adresse vom Stack
+/     684 : 50 EB               		pop	R11
-/     684 : 50 EB               		pop	R11
+/     686 : 70 E1               		push	R1		; Pos. nach GOSUB
-/     686 : 70 E1               		push	R1		; Pos. nach GOSUB
+/     688 : 70 E0               		push	R0		; auf Stack
-/     688 : 70 E0               		push	R0		; auf Stack
+/     68A : 70 EB               		push	R11		; Return-Adresse restaurieren
-/     68A : 70 EB               		push	R11		; Return-Adresse restaurieren
+/     68C : 70 EA               		push	R10
-/     68C : 70 EA               		push	R10
+/     68E : 08 E8               		ld	R0, R8		; orig. Position
-/     68E : 08 E8               		ld	R0, R8		; orig. Position
+/     690 : 18 E9               		ld	R1, R9		; rückschreiben
-/     690 : 18 E9               		ld	R1, R9		; rückschreiben
+/     692 : 20 0E               c_GOSUB1:	inc	reg_0E		; Verschachtelungstiefe erhöhen
-/     692 : 20 0E               c_GOSUB1:	inc	reg_0E		; Verschachtelungstiefe erhöhen
+/     694 : 76 0E 10            		tm	reg_0E, #10h	; > 15 ?
-/     694 : 76 0E 10            		tm	reg_0E, #10h	; > 15 ?
+/     697 : 6D 06 04            		jp	Z, c_GOTO	; nein, UP aufrufen
-/     697 : 6D 06 04            		jp	Z, c_GOTO	; nein, UP aufrufen
+/     69A :                     		; max Verschachtelungstiefe erreicht
-/     69A :                     		; max Verschachtelungstiefe erreicht
+/     69A : D6 05 83            		call	c_REM		; bis Kommandoende überlesen
-/     69A : D6 05 83            		call	c_REM		; bis Kommandoende überlesen
+/     69D : 8B CA               		jr	c_RETURN1	; und Verschachtelungstiefe verringern
-/     69D : 8B CA               		jr	c_RETURN1	; und Verschachtelungstiefe verringern
+/     69F :
-/     69F :
+/     69F :                     ;-----------------------------------------------------------------------------
-/     69F :                     ;-----------------------------------------------------------------------------
+/     69F :                     ; WAIT ausdruck
-/     69F :                     ; WAIT ausdruck
+/     69F :                     ; Schleifendauer 1 ms bei 8 MHz Taktfrequenz
-/     69F :                     ; Schleifendauer 1 ms bei 8 MHz Taktfrequenz
+/     69F :                     ;-----------------------------------------------------------------------------
-/     69F :                     ;-----------------------------------------------------------------------------
+/     69F :
-/     69F :
+/     69F : D6 04 C7            c_WAIT:		call	expr		; RR2 = ausdruck
-/     69F : D6 04 C7            c_WAIT:		call	expr		; RR2 = ausdruck
+/     6A2 : 68 E2               		ld	R6, R2
-/     6A2 : 68 E2               		ld	R6, R2
+/     6A4 : 42 63               		or	R6, R3		; = 0?
-/     6A4 : 42 63               		or	R6, R3		; = 0?
+/     6A6 : 6B 10               		jr	Z, c_WAIT3	; dann kein Wait
-/     6A6 : 6B 10               		jr	Z, c_WAIT3	; dann kein Wait
+/     6A8 : 40 E6               c_WAIT1:	da	R6
-/     6A8 : 40 E6               c_WAIT1:	da	R6
+/     6AA : 6C 00               		ld	R6, #0
-/     6AA : 6C 00               		ld	R6, #0
+/     6AC : 7C B4               		ld	R7, #0B4h
-/     6AC : 7C B4               		ld	R7, #0B4h
+/     6AE : 80 E6               c_WAIT2:	decw	RR6
-/     6AE : 80 E6               c_WAIT2:	decw	RR6
+/     6B0 : ED 06 AE            		jp	NZ, c_WAIT2
-/     6B0 : ED 06 AE            		jp	NZ, c_WAIT2
+/     6B3 : 80 E2               		decw	RR2
-/     6B3 : 80 E2               		decw	RR2
+/     6B5 : ED 06 A8            		jp	NZ, c_WAIT1
-/     6B5 : ED 06 A8            		jp	NZ, c_WAIT1
+/     6B8 : AF                  c_WAIT3:	ret
-/     6B8 : AF                  c_WAIT3:	ret
+/     6B9 :
-/     6B9 :
+/     6B9 :                     ;-----------------------------------------------------------------------------
-/     6B9 :                     ;-----------------------------------------------------------------------------
+/     6B9 :                     ; CALL ausdruck
-/     6B9 :                     ; CALL ausdruck
+/     6B9 :                     ;-----------------------------------------------------------------------------
-/     6B9 :                     ;-----------------------------------------------------------------------------
+/     6B9 :
-/     6B9 :
+/     6B9 : D6 04 C7            c_CALL:		call	expr		; RR2 = ausdruck
-/     6B9 : D6 04 C7            c_CALL:		call	expr		; RR2 = ausdruck
+/     6BC : D4 E2               		call	@RR2		; UP aufrufen (berechnete Adr.)
-/     6BC : D4 E2               		call	@RR2		; UP aufrufen (berechnete Adr.)
+/     6BE : 31 10               		srp	#10h		; RP auf Standard
-/     6BE : 31 10               		srp	#10h		; RP auf Standard
+/     6C0 : AF                  		ret
-/     6C0 : AF                  		ret
+/     6C1 :
-/     6C1 :
+/     6C1 :                     ;-----------------------------------------------------------------------------
-/     6C1 :                     ;-----------------------------------------------------------------------------
+/     6C1 :                     ; STOP
-/     6C1 :                     ; STOP
+/     6C1 :                     ;-----------------------------------------------------------------------------
-/     6C1 :                     ;-----------------------------------------------------------------------------
+/     6C1 :
-/     6C1 :
+/     6C1 : 46 0F 08            c_STOP:		or	reg_0F, #8	; Bit3 = 1
-/     6C1 : 46 0F 08            c_STOP:		or	reg_0F, #8	; Bit3 = 1
+/     6C4 : AF                  		ret
-/     6C4 : AF                  		ret
+/     6C5 :
-/     6C5 :
+/     6C5 :                     ;-----------------------------------------------------------------------------
-/     6C5 :                     ;-----------------------------------------------------------------------------
+/     6C5 :                     ; END
-/     6C5 :                     ; END
+/     6C5 :                     ;-----------------------------------------------------------------------------
-/     6C5 :                     ;-----------------------------------------------------------------------------
+/     6C5 :
-/     6C5 :
+/     6C5 : 46 0F 02            c_END:		or	reg_0F, #2	; Bit1 = 1
-/     6C5 : 46 0F 02            c_END:		or	reg_0F, #2	; Bit1 = 1
+/     6C8 : AF                  		ret
-/     6C8 : AF                  		ret
+/     6C9 :
-/     6C9 :
+/     6C9 :                     ;-----------------------------------------------------------------------------
-/     6C9 :                     ;-----------------------------------------------------------------------------
+/     6C9 :                     ; CLRTRP
-/     6C9 :                     ; CLRTRP
+/     6C9 :                     ;-----------------------------------------------------------------------------
-/     6C9 :                     ;-----------------------------------------------------------------------------
+/     6C9 :
-/     6C9 :
+/     6C9 : B0 04               c_CLRTRAP:	clr	reg_04		; Trap auf 0 setzen
-/     6C9 : B0 04               c_CLRTRAP:	clr	reg_04		; Trap auf 0 setzen
+/     6CB : B0 05               		clr	reg_05
-/     6CB : B0 05               		clr	reg_05
+/     6CD : AF                  		ret
-/     6CD : AF                  		ret
+/     6CE :
-/     6CE :
+/     6CE :                     ;-----------------------------------------------------------------------------
-/     6CE :                     ;-----------------------------------------------------------------------------
+/     6CE :                     ; PRINTHEX "text" ausdruck
-/     6CE :                     ; PRINTHEX "text" ausdruck
+/     6CE :                     ;-----------------------------------------------------------------------------
-/     6CE :                     ;-----------------------------------------------------------------------------
+/     6CE :
-/     6CE :
+/     6CE : D6 05 2F            c_PRINTHEX:	call	prnstr		; Ausgabe text
-/     6CE : D6 05 2F            c_PRINTHEX:	call	prnstr		; Ausgabe text
+/     6D1 : D6 04 C7            		call	expr		; Ausdruck berechnen
-/     6D1 : D6 04 C7            		call	expr		; Ausdruck berechnen
+/     6D4 : FB 22               		jr	NC, c_PRINT3	; bei Fehler o. ohne Ausdruck
-/     6D4 : FB 22               		jr	NC, c_PRINT3	; bei Fehler o. ohne Ausdruck
+/     6D6 : D6 01 5E            		call	tohex		; Konvertierung nach Hex-String
-/     6D6 : D6 01 5E            		call	tohex		; Konvertierung nach Hex-String
+/     6D9 :                     					; In Buffer ab #14h
-/     6D9 :                     					; In Buffer ab #14h
+/     6D9 : AC 05               		ld	R10, #5		; 5 Stellen
-/     6D9 : AC 05               		ld	R10, #5		; 5 Stellen
+/     6DB : 8B 0D               		jr	c_PRINT1
-/     6DB : 8B 0D               		jr	c_PRINT1
+/     6DD :
-/     6DD :
+/     6DD :                     ;-----------------------------------------------------------------------------
-/     6DD :                     ;-----------------------------------------------------------------------------
+/     6DD :                     ; PRINT "text" ausdruck
-/     6DD :                     ; PRINT "text" ausdruck
+/     6DD :                     ;-----------------------------------------------------------------------------
-/     6DD :                     ;-----------------------------------------------------------------------------
+/     6DD :
-/     6DD :
+/     6DD : D6 05 2F            c_PRINT:	call	prnstr		; Ausgabe text
-/     6DD : D6 05 2F            c_PRINT:	call	prnstr		; Ausgabe text
+/     6E0 : D6 04 C7            		call	expr		; Ausdruck berechnen
-/     6E0 : D6 04 C7            		call	expr		; Ausdruck berechnen
+/     6E3 : FB 13               		jr	NC, c_PRINT3	; bei Fehler o. ohne Ausdruck keine Ausgabe
-/     6E3 : FB 13               		jr	NC, c_PRINT3	; bei Fehler o. ohne Ausdruck keine Ausgabe
+/     6E5 :                     		; Ausdruck anzeigen
-/     6E5 :                     		; Ausdruck anzeigen
+/     6E5 : D6 01 82            		call	todez		; Konvertierung nach dezimal
-/     6E5 : D6 01 82            		call	todez		; Konvertierung nach dezimal
+/     6E8 : AC 06               		ld	R10, #6		; 6 Stellen
-/     6E8 : AC 06               		ld	R10, #6		; 6 Stellen
+/     6EA : BC 14               c_PRINT1:	ld	R11, #14h	; Konvertierungspuffer
-/     6EA : BC 14               c_PRINT1:	ld	R11, #14h	; Konvertierungspuffer
+/     6EC : 70 E5               c_PRINT2:	push	R5
-/     6EC : 70 E5               c_PRINT2:	push	R5
+/     6EE : E3 5B               		ld	R5, @R11
-/     6EE : E3 5B               		ld	R5, @R11
+/     6F0 : BE                  		inc	R11
-/     6F0 : BE                  		inc	R11
+/     6F1 : D6 08 18            		call	putch		; Stelle ausgeben
-/     6F1 : D6 08 18            		call	putch		; Stelle ausgeben
+/     6F4 : 50 E5               		pop	R5
-/     6F4 : 50 E5               		pop	R5
+/     6F6 : AA F4               		djnz	R10, c_PRINT2
-/     6F6 : AA F4               		djnz	R10, c_PRINT2
+/     6F8 :                     		; Am Ende Zeilenende ausgeben, falls kein Komma
-/     6F8 :                     		; Am Ende Zeilenende ausgeben, falls kein Komma
+/     6F8 : C2 60               c_PRINT3:	ldc	R6, @RR0
-/     6F8 : C2 60               c_PRINT3:	ldc	R6, @RR0
+/     6FA : A6 E6 2C            		cp	R6, #','	; folgt Komma?
-/     6FA : A6 E6 2C            		cp	R6, #','	; folgt Komma?
+/     6FD : EB 11               		jr	NZ, c_PRINT5	; nein -> CR
-/     6FD : EB 11               		jr	NZ, c_PRINT5	; nein -> CR
+/     6FF : A0 E0               		incw	RR0
-/     6FF : A0 E0               		incw	RR0
+/     701 : C2 60               		ldc	R6, @RR0
-/     701 : C2 60               		ldc	R6, @RR0
+/     703 : A6 E6 3B            		cp	R6, #';'	; folgt Kdo-Ende?
-/     703 : A6 E6 3B            		cp	R6, #';'	; folgt Kdo-Ende?
+/     706 : 6B 07               		jr	Z, c_PRINT4	; ja -> kein CR ausgeben
-/     706 : 6B 07               		jr	Z, c_PRINT4	; ja -> kein CR ausgeben
+/     708 : A6 E6 0D            		cp	R6, #0Dh	; oder folgt Zeilenende CR?
-/     708 : A6 E6 0D            		cp	R6, #0Dh	; oder folgt Zeilenende CR?
+/     70B : 6B 02               		jr	Z, c_PRINT4	; dann ebenfalls kein CR ausgeben
-/     70B : 6B 02               		jr	Z, c_PRINT4	; dann ebenfalls kein CR ausgeben
+/     70D : 80 E0               		decw	RR0
-/     70D : 80 E0               		decw	RR0
+/     70F : AF                  c_PRINT4:	ret
-/     70F : AF                  c_PRINT4:	ret
+/     710 : 5C 0D               c_PRINT5:	ld	R5, #0Dh	; CR
-/     710 : 5C 0D               c_PRINT5:	ld	R5, #0Dh	; CR
+/     712 : 8D 08 18            		jp	putch		; ausgeben (Zeilenende)
-/     712 : 8D 08 18            		jp	putch		; ausgeben (Zeilenende)
+/     715 :
-/     715 :
+/     715 :                     ;-----------------------------------------------------------------------------
-/     715 :                     ;-----------------------------------------------------------------------------
+/     715 :                     ; INPUT "text" variable
-/     715 :                     ; INPUT "text" variable
+/     715 :                     ;-----------------------------------------------------------------------------
-/     715 :                     ;-----------------------------------------------------------------------------
+/     715 :
-/     715 :
+/     715 : D6 05 2F            c_INPUT:	call	prnstr		; Ausgabe text
-/     715 : D6 05 2F            c_INPUT:	call	prnstr		; Ausgabe text
+/     718 : D6 02 E9            		call	p_input1	; Abfrage Wert
-/     718 : D6 02 E9            		call	p_input1	; Abfrage Wert
+/     71B : D6 04 F3            		call	get_var		; Variablenadresse
-/     71B : D6 04 F3            		call	get_var		; Variablenadresse
+/     71E : 8D 05 A8            		jp	c_LET1		; und Wert zuweisen
-/     71E : 8D 05 A8            		jp	c_LET1		; und Wert zuweisen
+/     721 :
-/     721 :
+/     721 :                     ;-----------------------------------------------------------------------------
-/     721 :                     ;-----------------------------------------------------------------------------
+/     721 :                     ; Einsprung aus BM200 (CONT)
-/     721 :                     ; ???
+/     721 :                     ;-----------------------------------------------------------------------------
-/     721 :                     ;-----------------------------------------------------------------------------
+/     721 :
-/     721 :
+/     721 : E6 0F 04            cont:		ld	reg_0F, #4
-/     721 :                     ;loc_721:
+/     724 : 8B 10               		jr	run1
-/     721 : E6 0F 04            		ld	reg_0F, #4
+/     726 :
-/     724 : 8B 10               		jr	run1
+/     726 :                     ;-----------------------------------------------------------------------------
-/     726 :
+/     726 :                     ; Einsprung aus BM200 (STEP)
 /     726 :                     ;-----------------------------------------------------------------------------
-/     726 :                     ; ???
+/     726 :
-/     726 :                     ;-----------------------------------------------------------------------------
+/     726 : E6 0F 08            step:		ld	reg_0F, #8
-/     726 :                     ;loc_726:
+/     729 : 8B 0B               		jr	run1
-/     726 : E6 0F 08            		ld	reg_0F, #8
+/     72B :
-/     729 : 8B 0B               		jr	run1
+/     72B :                     ;-----------------------------------------------------------------------------
-/     72B :
+/     72B :                     ; RUN
-/     72B :                     ;-----------------------------------------------------------------------------
+/     72B :                     ; in 6,7 = Startadr. Basic-Programm
-/     72B :                     ; RUN
+/     72B :                     ;    8,9 = Adr. Prozedurtabelle (oder 0)
-/     72B :                     ; in 6,7 = Startadr. Basic-Programm
+/     72B :                     ; srp #10h; call $7fd
-/     72B :                     ;    8,9 = Adr. Prozedurtabelle (oder 0)
+/     72B :                     ;-----------------------------------------------------------------------------
-/     72B :                     ; srp #10h; call $7fd
+/     72B :
-/     72B :                     ;-----------------------------------------------------------------------------
+/     72B :                     ; Programmstart
-/     72B :
+/     72B : B0 0F               run:		clr	reg_0F
-/     72B :                     ; Programmstart
+/     72D : B0 0E               		clr	reg_0E
-/     72B : B0 0F               run:		clr	reg_0F
+/     72F : 08 06               		ld	R0, reg_06	; RR0 = Startadr. Basic-Programm
-/     72D : B0 0E               		clr	reg_0E
+/     731 : 18 07               		ld	R1, reg_07
-/     72F : 08 06               		ld	R0, reg_06	; RR0 = Startadr. Basic-Programm
+/     733 : D6 06 C9            		call	c_CLRTRAP	; clear trap
-/     731 : 18 07               		ld	R1, reg_07
+/     736 :                     ;
-/     733 : D6 06 C9            		call	c_CLRTRAP	; clear trap
+/     736 : 31 10               run1:		srp	#10h		; Standard setzen
-/     736 :                     ;
+/     738 : 50 0A               		pop	reg_0A		; Return-Adresse f. END
-/     736 : 31 10               run1:		srp	#10h		; Standard setzen
+/     73A : 50 0B               		pop	reg_0B
-/     738 : 50 0A               		pop	reg_0A		; Return-Adresse f. END
+/     73C : 8B 0A               		jr	run3
-/     73A : 50 0B               		pop	reg_0B
+/     73E :
-/     73C : 8B 0A               		jr	run3
+/     73E :                     ; nächste Zeile abarbeiten
-/     73E :
+/     73E : 76 0F 0A            run2:		tm	reg_0F, #0Ah
-/     73E :                     ; nächste Zeile abarbeiten
+/     741 : EB 0A               		jr	NZ, run4	; END
-/     73E : 76 0F 0A            run2:		tm	reg_0F, #0Ah
+/     743 : 66 0F 84            		tcm	reg_0F, #84h	;-7Ch
-/     741 : EB 0A               		jr	NZ, run4	; END
+/     746 : 6B 05               		jr	Z, run4	; END
-/     743 : 66 0F 84            		tcm	reg_0F, #84h	;-7Ch
+/     748 :
-/     746 : 6B 05               		jr	Z, run4	; END
+/     748 : C2 60               run3:		ldc	R6, @RR0	; R6=Hi(Zeilennummer)+$80
-/     748 :
+/     74A : 6E                  		inc	R6
-/     748 : C2 60               run3:		ldc	R6, @RR0	; R6=Hi(Zeilennummer)+$80
+/     74B : 6A 02               		djnz	R6, run5
-/     74A : 6E                  		inc	R6
+/     74D :                     ;END
-/     74B : 6A 02               		djnz	R6, run5
+/     74D : 30 0A               run4:		jp	@reg_0A		; END bei Zeilenummer > 7Fxxh (32512)
-/     74D :                     ;END
+/     74F :
-/     74D : 30 0A               run4:		jp	@reg_0A		; END bei Zeilenummer > 7Fxxh (32512)
+/     74F :                     ;
-/     74F :
+/     74F : A4 E0 06            run5:		cp	reg_06, R0
-/     74F :                     ;
+/     752 : EB 05               		jr	NZ, run6
-/     74F : A4 E0 06            run5:		cp	reg_06, R0
+/     754 : A4 E1 07            		cp	reg_07, R1
-/     752 : EB 05               		jr	NZ, run6
+/     757 : 6B 2C               		jr	Z, run8
-/     754 : A4 E1 07            		cp	reg_07, R1
+/     759 :                     ; Test auf TRAP
-/     757 : 6B 2C               		jr	Z, run8
+/     759 : 68 04               run6:		ld	R6, reg_04	; TRAP
-/     759 :                     ; Test auf TRAP
+/     75B : 44 05 E6            		or	R6, reg_05
-/     759 : 68 04               run6:		ld	R6, reg_04	; TRAP
+/     75E : 6B 25               		jr	Z, run8	; =0? kein TRAP
-/     75B : 44 05 E6            		or	R6, reg_05
+/     760 :                     		; TRAP
-/     75E : 6B 25               		jr	Z, run8	; =0? kein TRAP
+/     760 : 70 E1               		push	R1		; akt. Pogrammpos. sichern
-/     760 :                     		; TRAP
+/     762 : 70 E0               		push	R0
-/     760 : 70 E1               		push	R1		; akt. Pogrammpos. sichern
+/     764 : 08 04               		ld	R0, reg_04	; auf TRAP-Adr. setzen
-/     762 : 70 E0               		push	R0
+/     766 : 18 05               		ld	R1, reg_05
-/     764 : 08 04               		ld	R0, reg_04	; auf TRAP-Adr. setzen
+/     768 : D6 05 45            		call	relop		; logischen Ausdruck auswerten
-/     766 : 18 05               		ld	R1, reg_05
+/     76B : 6B 14               		jr	Z, run7	; wenn nicht erfüllt
-/     768 : D6 05 45            		call	relop		; logischen Ausdruck auswerten
+/     76D :                     		; wenn erfüllt
-/     76B : 6B 14               		jr	Z, run7	; wenn nicht erfüllt
+/     76D : D6 06 C9            		call	c_CLRTRAP	; TRAP zurücksetzen
-/     76D :                     		; wenn erfüllt
+/     770 : 50 E6               		pop	R6		; aktuelle Return-Adr
-/     76D : D6 06 C9            		call	c_CLRTRAP	; TRAP zurücksetzen
+/     772 : 50 E7               		pop	R7
-/     770 : 50 E6               		pop	R6		; aktuelle Return-Adr
+/     774 : 80 E6               		decw	RR6		; vermindern
-/     772 : 50 E7               		pop	R7
+/     776 : 70 E7               		push	R7
-/     774 : 80 E6               		decw	RR6		; vermindern
+/     778 : 70 E6               		push	R6
-/     776 : 70 E7               		push	R7
+/     77A : A0 E0               		incw	RR0		; akt. Pogrammpos. (TRAP) erhöhen
-/     778 : 70 E6               		push	R6
+/     77C : D6 06 92            		call	c_GOSUB1	; TRAP ausführen
-/     77A : A0 E0               		incw	RR0		; akt. Pogrammpos. (TRAP) erhöhen
+/     77F : 8B 38               		jr	run14
-/     77C : D6 06 92            		call	c_GOSUB1	; TRAP ausführen
+/     781 :
-/     77F : 8B 38               		jr	run14
+/     781 :                     ; Zeile abarbeiten
-/     781 :
+/     781 : 50 E0               run7:		pop	R0
-/     781 :                     ; Zeile abarbeiten
+/     783 : 50 E1               		pop	R1
-/     781 : 50 E0               run7:		pop	R0
+/     785 : A0 E0               run8:		incw	RR0		; Zeilennummer übergehen
-/     783 : 50 E1               		pop	R1
+/     787 : A0 E0               		incw	RR0
-/     785 : A0 E0               run8:		incw	RR0		; Zeilennummer übergehen
+/     789 : C2 30               run9:		ldc	R3, @RR0	; erstes Zeichen (Kommando)
-/     787 : A0 E0               		incw	RR0
+/     78B : A0 E0               		incw	RR0
-/     789 : C2 30               run9:		ldc	R3, @RR0	; erstes Zeichen (Kommando)
+/     78D : A6 E3 3E            		cp	R3, #'>'	; ELSE?
-/     78B : A0 E0               		incw	RR0
+/     790 : 6B 03               		jr	Z, run10	; dann ELSE-Flag beibehalten
-/     78D : A6 E3 3E            		cp	R3, #'>'	; ELSE?
+/     792 : 56 0F FE            		and	reg_0F, #0FEh	; sonst ELSE-Flag rücksetzen (Bit0)
-/     790 : 6B 03               		jr	Z, run10	; dann ELSE-Flag beibehalten
+/     795 : 6C 07               run10:		ld	R6, #HI(tab_kdo) ; Liste der Kommandos
-/     792 : 56 0F FE            		and	reg_0F, #0FEh	; sonst ELSE-Flag rücksetzen (Bit0)
+/     797 : 7C C8               		ld	R7, #LO(tab_kdo)
-/     795 : 6C 07               run10:		ld	R6, #HI(tab_kdo) ; Liste der Kommandos
+/     799 : B0 E2               		clr	R2		; R2=0
-/     797 : 7C C8               		ld	R7, #LO(tab_kdo)
+/     79B : C2 86               run11:		ldc	R8, @RR6
-/     799 : B0 E2               		clr	R2		; R2=0
+/     79D : A2 83               		cp	R8, R3		; Kommando in Liste suchen
-/     79B : C2 86               run11:		ldc	R8, @RR6
+/     79F : 6B 05               		jr	Z, run12	; wenn gefunden
-/     79D : A2 83               		cp	R8, R3		; Kommando in Liste suchen
+/     7A1 : A0 E6               		incw	RR6
-/     79F : 6B 05               		jr	Z, run12	; wenn gefunden
+/     7A3 : 2E                  		inc	R2
-/     7A1 : A0 E6               		incw	RR6
+/     7A4 : 8B F5               		jr	run11
-/     7A3 : 2E                  		inc	R2
+/     7A6 :
-/     7A4 : 8B F5               		jr	run11
+/     7A6 : 02 22               run12:		add	R2, R2
-/     7A6 :
+/     7A8 : 6C 07               		ld	R6, #HI(tab_kdo2) ; Adressliste der Kommandos
-/     7A6 : 02 22               run12:		add	R2, R2
+/     7AA : 7C D9               		ld	R7, #LO(tab_kdo2)
-/     7A8 : 6C 07               		ld	R6, #HI(tab_kdo2) ; Adressliste der Kommandos
+/     7AC : 02 72               		add	R7, R2
-/     7AA : 7C D9               		ld	R7, #LO(tab_kdo2)
+/     7AE : 16 E6 00            		adc	R6, #0
-/     7AC : 02 72               		add	R7, R2
+/     7B1 : 2C 0C               		ld	R2, #0Ch
-/     7AE : 16 E6 00            		adc	R6, #0
+/     7B3 : C3 26               		ldci	@R2, @RR6	; Adresse nach reg_0ch
-/     7B1 : 2C 0C               		ld	R2, #0Ch
+/     7B5 : C3 26               		ldci	@R2, @RR6
-/     7B3 : C3 26               		ldci	@R2, @RR6	; Adresse nach reg_0ch
+/     7B7 : D4 0C               run13:		call	@reg_0C		; Kommando aufrufen
-/     7B5 : C3 26               		ldci	@R2, @RR6
+/     7B9 :                     ;
-/     7B7 : D4 0C               run13:		call	@reg_0C		; Kommando aufrufen
+/     7B9 : 7C 0D               run14:		ld	R7, #0Dh	; CR Zeilenende?
-/     7B9 :                     ;
+/     7BB : D6 03 91            		call	next_char
-/     7B9 : 7C 0D               run14:		ld	R7, #0Dh	; CR Zeilenende?
+/     7BE : 6D 07 3E            		jp	Z, run2		; dann nächste Zeile
-/     7BB : D6 03 91            		call	next_char
+/     7C1 : A6 E6 3B            		cp	R6, #';'	; Kommandoende?
-/     7BE : 6D 07 3E            		jp	Z, run2		; dann nächste Zeile
+/     7C4 : 6B C3               		jr	Z, run9	; dann nächstes Kommando in Zeile
-/     7C1 : A6 E6 3B            		cp	R6, #';'	; Kommandoende?
+/     7C6 :                     		;
-/     7C4 : 6B C3               		jr	Z, run9	; dann nächstes Kommando in Zeile
+/     7C6 : 8B EF               		jr	run13		; sonst Wiederholung aktuelles Kdo
-/     7C6 :                     		;
+/     7C8 :
-/     7C6 : 8B EF               		jr	run13		; sonst Wiederholung aktuelles Kdo
+/     7C8 :                     ;-----------------------------------------------------------------------------
-/     7C8 :
+/     7C8 :                     ; Tabelle der BASIC-Kommandos
 /     7C8 :                     ;-----------------------------------------------------------------------------
-/     7C8 :                     ; Tabelle der BASIC-Kommandos
+/     7C8 :
-/     7C8 :                     ;-----------------------------------------------------------------------------
+/     7C8 : 4C                  tab_kdo:	db	'L'		; LET
-/     7C8 :
+/     7C9 : 4F                  		db	'O'		; PROC
-/     7C8 : 4C                  tab_kdo:	db	'L'		; LET
+/     7CA : 47                  		db	'G'		; GOTO
-/     7C9 : 4F                  		db	'O'		; PROC
+/     7CB : 46                  		db	'F'		; IF..THEN	F..;
-/     7CA : 47                  		db	'G'		; GOTO
+/     7CC : 3E                  		db	'>'		; ELSE		>;
-/     7CB : 46                  		db	'F'		; IF..THEN	F..;
+/     7CD : 52                  		db	'R'		; RETURN
-/     7CC : 3E                  		db	'>'		; ELSE		>;
+/     7CE : 53                  		db	'S'		; GOSUB
-/     7CD : 52                  		db	'R'		; RETURN
+/     7CF : 57                  		db	'W'		; WAIT
-/     7CE : 53                  		db	'S'		; GOSUB
+/     7D0 : 4D                  		db	'M'		; REM
-/     7CF : 57                  		db	'W'		; WAIT
+/     7D1 : 43                  		db	'C'		; CALL
-/     7D0 : 4D                  		db	'M'		; REM
+/     7D2 : 54                  		db	'T'		; STOP
-/     7D1 : 43                  		db	'C'		; CALL
+/     7D3 : 45                  		db	'E'		; END
-/     7D2 : 54                  		db	'T'		; STOP
+/     7D4 : 21                  		db	'!'		; TRAP..TO	!..,
-/     7D3 : 45                  		db	'E'		; END
+/     7D5 : 2F                  		db	'/'		; CLRTRAP
-/     7D4 : 21                  		db	'!'		; TRAP..TO	!..,
+/     7D6 : 50                  		db	'P'		; PRINT
-/     7D5 : 2F                  		db	'/'		; CLRTRAP
+/     7D7 : 48                  		db	'H'		; PRINTHEX
-/     7D6 : 50                  		db	'P'		; PRINT
+/     7D8 : 49                  		db	'I'		; INPUT
-/     7D7 : 48                  		db	'H'		; PRINTHEX
+/     7D9 :
-/     7D8 : 49                  		db	'I'		; INPUT
+/     7D9 : 05 9C               tab_kdo2:	dw	c_LET
-/     7D9 :
+/     7DB : 05 B4               		dw	c_PROC
-/     7D9 : 05 9C               tab_kdo2:	dw	c_LET
+/     7DD : 06 04               		dw	c_GOTO
-/     7DB : 05 B4               		dw	c_PROC
+/     7DF : 06 49               		dw	c_IF
-/     7DD : 06 04               		dw	c_GOTO
+/     7E1 : 06 57               		dw	c_ELSE
-/     7DF : 06 49               		dw	c_IF
+/     7E3 : 06 61               		dw	c_RETURN
-/     7E1 : 06 57               		dw	c_ELSE
+/     7E5 : 06 7B               		dw	c_GOSUB
-/     7E3 : 06 61               		dw	c_RETURN
+/     7E7 : 06 9F               		dw	c_WAIT
-/     7E5 : 06 7B               		dw	c_GOSUB
+/     7E9 : 05 83               		dw	c_REM
-/     7E7 : 06 9F               		dw	c_WAIT
+/     7EB : 06 B9               		dw	c_CALL
-/     7E9 : 05 83               		dw	c_REM
+/     7ED : 06 C1               		dw	c_STOP
-/     7EB : 06 B9               		dw	c_CALL
+/     7EF : 06 C5               		dw	c_END
-/     7ED : 06 C1               		dw	c_STOP
+/     7F1 : 05 AE               		dw	c_TRAP
-/     7EF : 06 C5               		dw	c_END
+/     7F3 : 06 C9               		dw	c_CLRTRAP
-/     7F1 : 05 AE               		dw	c_TRAP
+/     7F5 : 06 DD               		dw	c_PRINT
-/     7F3 : 06 C9               		dw	c_CLRTRAP
+/     7F7 : 06 CE               		dw	c_PRINTHEX
-/     7F5 : 06 DD               		dw	c_PRINT
+/     7F9 : 07 15               		dw	c_INPUT
-/     7F7 : 06 CE               		dw	c_PRINTHEX
+/     7FB :
-/     7F9 : 07 15               		dw	c_INPUT
+/     7FB :                     ;-----------------------------------------------------------------------------
-/     7FB :
+/     7FB :                     ;
 /     7FB :                     ;-----------------------------------------------------------------------------
-/     7FB :                     ;
+/     7FB :
-/     7FB :                     ;-----------------------------------------------------------------------------
+/     7FB : FF                  		db	0FFh
-/     7FB :
+/     7FC : FF                  		db	0FFh
-/     7FB : FF                  		db	0FFh
+/     7FD :
-/     7FC : FF                  		db	0FFh
+/     7FD :                     ; Eintrittspunkt BASIC-Interpreter
-/     7FD :
+/     7FD :                     ;RUN
-/     7FD :                     ; Eintrittspunkt BASIC-Interpreter
+/     7FD : 8D 07 2B            		jp	run
-/     7FD :                     ;RUN
+/     800 :
-/     7FD : 8D 07 2B            		jp	run
+/     800 :                     ; end of 'ROM'
 /     800 :
-/     800 :                     ; end of 'ROM'
+/     800 :                     		end
-/     800 :
-/     800 :                     		end
 </code>
+</WRAP>