use MODE 0-6 to see correct \ []

1 DIM MC% 100				:REM Define 100 bytes of space
2 FOR opt%=0 TO 3 STEP 3	:REM two pass assembly
3 P%=MC%					:REM set Program counter
9 [				
100 OPT opt%				\Set Assembler option
110	JSR &FFE7				\NewLine
120	LDA #msg DIV 256		\High byte of address
130	STA &71					\&=Hex digits
140	LDA #msg MOD 256		\Low byte of address
150	STA &70	
160	JSR PrintStr
170	JMP &FFE7				\NewLine
180 .PrintStr	
190	LDY #0
200 .PrintStr_again
210	LDA (&70),Y
220	CMP #255	
230	BEQ PrintStr_Done
240	JSR &FFE3	
250	INY
260	JMP PrintStr_again
270 .PrintStr_Done
280	RTS
400 .msg EQUS "Hello World"	\Define a string
410 	 EQUB 255			\Define a byte
1000 ]				
1010 NEXT opt%				:REM Loop for two pass
1020 PRINT "Assembled to:";MC%	:REM Show our call address




use MODE 0-6 to see correct \ []

1 DIM MC% 100				:REM Define 100 bytes of space
2 FOR opt%=0 TO 3 STEP 3	:REM two pass assembly
3 P%=MC%					:REM set Program counter
9 [			
100	OPT opt%				;Set Assembler option
110	RTS						;Just Return to basic
1000 ]				
1010 NEXT opt%					:REM Loop for two pass
1020 PRINT "Assembled to:";MC%	:REM Show our call address



































