M80+ 3.43  27-Jul-81          PAGE	1


				.Z80
                                ;***************************************
                                ;    Programm Unsinn
                                ;***************************************
                                ;
                                	EXT FILENAME
                                	EXT ARGUMENT
                                	EXTRN  PI
                                
  0000'   2A 001F'              START:	LD HL,(BLOCK)
  0003'   74                    	LD (HL),H
  0004'                         	DEFS 10
  000E'   20 F0                 LABEL1: JR NZ,START  ;Rueckwaerts
                                	;
                                	; Hier wird noch ein kurzer
                                	; Kommentar eingeflicKt,
                                	; der ins INLINE soll.
                                	;
  0010'   C3 1234               	JP 1234H		; Nach Nirgendwo
  0013'   C3 001A'              	JP LABEL2		; Vorwaerts
  0016'   ED 5B 0000*           	LD DE,(ARGUMENT)	; Klappt das auch
  001A'   CB 6F                 LABEL2:	BIT 5,A
  001C'   32 0000*              	LD (FILENAME),A
  001F'   48 69 65 72           BLOCK:	DB  'Hier steht was'
  0023'   20 73 74 65           
  0027'   68 74 20 77           
  002B'   61 73                 
  002D'   ED B1                 	CPIR			; Zwei-Byte-Befehl
  002F'   2F                    	CPL
  0030'   21 0080               	LD HL,0080h
  0033'   11 0000*              	LD DE,PI
  0036'   01 0111               	LD BC,0111h
  0039'   ED B0                 	LDIR
  003B'   18 C3                 	JR START
                                
                                	END




	M80+ 3.43  27-Jul-81          PAGE	S


Macros:

Symbols:
0018*	ARGUMENT        001F'	BLOCK           001D*	FILENAME        
000E'	LABEL1          001A'	LABEL2          0034*	PI              
0000'	START           



No Fatal error(s)