;***************************************
;    Programm Unsinn
;***************************************
;
	EXT FILENAME
	EXT ARGUMENT
	EXTRN  PI

START:	LD HL,(BLOCK)
	LD (HL),H
	DEFS 10
LABEL1: JR NZ,START  ;Rueckwaerts
	;
	; Hier wird noch ein kurzer
	; Kommentar eingeflicKt,
	; der ins INLINE soll.
	;
	JP 1234H		; Nach Nirgendwo
	JP LABEL2		; Vorwaerts
	LD DE,(ARGUMENT)	; Klappt das auch
LABEL2:	BIT 5,A
	LD (FILENAME),A
BLOCK:	DB  'Hier steht was'
	CPIR			; Zwei-Byte-Befehl
	CPL
	LD HL,0080h
	LD DE,PI
	LD BC,0111h
	LDIR
	JR START

	END