Someone

DOWN 	PSHA
	PSHB 
*A och B till stacken
*
	LDAA 	DRCOPY
	BITA	#4
*Bittestar bit 3 - kollar om borrmotorn är på
	BEQ	BON
	LDAB 	#$03
	JSR 	OUTONE 
*Ettställ bit 3 i styrordet till borrmaskinen
*
BON	PULB 
*Återställ reg enl ovan
	PULA
	RTS
****************************************************************************
UP 	PSHA
	PSHB 
*A och B till stacken
*
	LDAB 	#$03
	JSR 	OUTZERO
	LDAA	#0
	JSR 	DELAY
*Ettställ bit 3 i styrordet till borrmaskinen
*
	PULB 
*Återställ reg enl ovan
	PULA
	RTS
****************************************************************************
STEP 	PSHA
	PSHB 
*A och B till stacken
*
	LDAA 	DRCOPY
	BITA	#8
*Bittestar bit 3 - kollar om borren är uppe
	BNE	BNERE
*Om borren är uppe så hoppar den till ALARM
	LDAB 	#1
	JSR 	OUTONE
	LDAB	#0
	JSR	OUTZERO
	JSR	OUTONE
	JSR	OUTZERO
*Delay?
	LDAA	#0
	JSR 	DELAY
*
	BRA	NOALARM
	
*
	LDAA	#3
BNERE	JSR	ALARM
*Varnar att borren är nere med 3 signaler

NOALARM	PULB 
*Återställ reg enl ovan
	PULA
	RTS
*****************************************************************************
ALARM 	PSHA
	PSHX

	TFR	A,X
	
AALOOP	LDAB	#4
	JSR	OUTONE
*Ettställer bit 4
	LDAA	#8
	JSR 	DELAY
*Delay på 8*50 = 0.4 sek
	LDAB	#4
	JSR	OUTZERO
	LDAA	#4
	JSR 	DELAY
*Delay på 4*50 = 0.2 sek
	DEX	
	BNE	AALOOP
	
	PULA	
	PULX 
	RTS	
*Återställ reg enl ovan