Средства и методы разработки

	.CODE
	ORG	H'0000
	
	ld	al,#VAR-INIT ; Size of INIT segment
	ld	ah,#INIT
	ld	x,#INITC
	bc2
	; AL is now zero
	ld	ah,#VAREND-VAR	;  Size of BSS segment
	beq	skip_zero
	ld 	x,#VAR
loop_zero:
	st	al,@(0,x)
	add	x,#1
	sub	ah,#1
	bne	loop_zero
skip_zero:

	; call init code, normally empty
	bsr	$__init

	ld	ah,#0
	ld	al,#0
	bsr	$_main



-------------



trapset_1	EQU	$trapset_1
	ENDMOD	MessageSendLater
	MODULE	Panic
	.ENHANCED
	.CSEG	CODE
	.LARGE
$_Panic:
	DC	((256*14)+9)
	rts
trapset_1	EQU	$trapset_1
	ENDMOD	Panic
	MODULE	PanicNull
	.ENHANCED
	.CSEG	CODE
	.LARGE 


------------


	DC	((256*147)+9)
	ld	AH,#H'0001
;	bsr	$_PioSetLed0
	DC	((256*141)+9)
	ld	AH,#H'07FF
	ld	AL,#H'0001
;	bsr	$_PioDimLed0
	DC	((256*160)+9)
	ld	AH,#H'0001
	ld	AL,#H'0006
;	bsr	$_PioFlashLed0
	DC	((256*205)+9)
	bsr	$_InitialiseControls