ORG $4000
GETBYTE LDX #$8
BACK 	LDA $C062
 	ASL
 	BCC BACK
 	LDA $C061
 	ASL
 	ROR $3CF
 	LDA #$FF
 	STA $C05B
BACK2 	LDA $C062
 	ASL
 	BCS BACK2
 	NOP
 	LDA #$00
 	STA $C05A
 	DEX
 	BNE BACK
 	LDA $3CF
 	RTS

GET256 	LDY #$00
NEXT 	JSR GETBYTE
 	STA ($FE),Y
 	INY
 	BNE NEXT
 	RTS

SENDBYTE STA $3CF
 	LDX #$8
NEXTBIT LDA $C062
 	ASL
 	BCC NEXTBIT
 	LSR $3CF
 	BCS JUMP
 	LDA #$00
 	STA $C058
 	JMP JUMP2
JUMP 	LDA #$FF
 	STA $C059
JUMP2 	LDA #$FF
 	STA $C05B
LOP 	LDA $C062
 	ASL
 	BCS LOP
 	LDA #$00
 	STA $C05A
 	DEX
 	BNE NEXTBIT
 	RTS

SEND256 LDY #$00
NXT 	LDA ($FE),Y
 	JSR SENDBYTE
 	INY
 	BNE NXT
 	RTS