0100                   ORG     0100H		;START IN PAGE 1
                ;
                ;       INITIALIZE SECOND PORT OF 2-SIO CARD
                ;
 0100 3E03      SBOOT:	MVI     A,URESET        ;CLEAR M6850 UART
 0102 D312              OUT     SIO1
                ;
 0104 3E15              MVI     A,U8D1SN        ;8 DATA, 1 STOP, NO PARITY
 0106 D312              OUT     SIO1
                ;
 0108 210000    ABOOT:	LXI	H,0		;[H,L]=>LOAD ADDRESS
 010B 0E80      	MVI	C,080H		;[C]=LOAD COUNTER
                ;
 010D DB12      APEIN:	IN	SIO1		;CHARACTER FROM APE?
 010F E601      	ANI	RXRDY
 0111 CA0D01    	JZ	APEIN		;NO - TRY AGAIN
 0114 DB13      	IN	SIO1+1		;YES - SAVE IT
 0116 77        	MOV	M,A
 0117 23        	INX	H		;INCREMENT LOAD ADDRESS
 0118 0D        	DCR	C		;DECREMENT LOAD COUNT
 0119 C20D01    	JNZ	APEIN		;DONE?  NO - CONTINUE
                ;
 011C C30000    	JMP	0		;START COLD BOOT LOADER AT 0
                ;
 011F                   END     SBOOT