ORG  $0810

INITIALIZE
	JSR  CRLF
	JSR  PORT
	JSR  AD
	JSR  CRLF
	LDAA #%10000000
	STAA $0062	;ATDCTL2
	LDAA #$00
	STAA $0063	;ATDCTL3
	LDAA #$01
	STAA $0064	;ATDCTL4
	JSR CRLF

MAIN
	LDAA #%01110000	;select CHANNEL #0
	STAA $0065	;ATDCTL5
	JSR  BIT
	LDAA #$30
	JSR  TRANSMIT
	JSR  EQUALS
	LDAA $0070
	STAA $0800
	JSR  TEST
	LDAA #%01110001	;select CHANNEL #1
	STAA $0065	;ATDCTL5
	JSR  BIT
	LDAA #$31
	JSR  TRANSMIT
	JSR  EQUALS
	LDAA $0072
	STAA $0800
	JSR  TEST
	LDAA #%01110010	;select CHANNEL #2
	STAA $0065	;ATDCTL5
	JSR  BIT
	LDAA #$32
	JSR  TRANSMIT
	JSR  EQUALS
	LDAA $0074
	STAA $0800
	JSR  TEST
	LDAA #%01110011	;select CHANNEL #3
	STAA $0065	;ATDCTL5
	JSR  BIT
	LDAA #$33
	JSR  TRANSMIT
	JSR  EQUALS
	LDAA $0076
	STAA $0800
	JSR  TEST
	LDAA #%01110100	;select CHANNEL #4
	STAA $0065	;ATDCTL5
	JSR  BIT
	LDAA #$34
	JSR  TRANSMIT
	JSR  EQUALS
	LDAA $0078
	STAA $0800
	JSR  TEST
	LDAA #%01110101	;select CHANNEL #5
	STAA $0065	;ATDCTL5
	JSR  BIT
	LDAA #$35
	JSR  TRANSMIT
	JSR  EQUALS
	LDAA $007A
	STAA $0800
	JSR  TEST
	LDAA #%01110110	;select CHANNEL #6
	STAA $0065	;ATDCTL5
	JSR  BIT
	LDAA #$36
	JSR  TRANSMIT
	JSR  EQUALS
	LDAA $007C
	STAA $0800
	JSR  TEST
	LDAA #%01110111	;select CHANNEL #7
	STAA $0065	;ATDCTL5
	JSR  BIT
	LDAA #$37
	JSR  TRANSMIT
	JSR  EQUALS
	LDAA $007E
	STAA $0800
	JSR  TEST
	JSR  CRLF
	JMP  DONE

TEST
	CMPA $0801
	BEQ  GOOD
	JSR  ERROR
	JSR  CRLF
	RTS

GOOD
	JSR OK
	JSR CRLF
	RTS

CRLF
        LDAA #%00001101
        JSR  TRANSMIT
        LDAA #%00001010
        JSR  TRANSMIT
        RTS

TRANSMIT
        LDAB $00C4
        LDAB $00C4
        STAA $00C7
COMPLETE
        LDAA $00C4
        ANDA #$40
        BEQ  COMPLETE
        RTS

EQUALS
        JSR  SPACE
        LDAA #%00111101
        JSR  TRANSMIT
        JSR  SPACE
        RTS

SPACE
        LDAA #%00100000
        JSR  TRANSMIT
        RTS

PORT
        LDAA #%01010000
        JSR  TRANSMIT
        LDAA #%01101111
        JSR  TRANSMIT
        LDAA #%01110010
        JSR  TRANSMIT
        LDAA #%01110100
        JSR  TRANSMIT
        JSR  SPACE
        RTS

BIT
        LDAA #%01000010
        JSR  TRANSMIT
        LDAA #%01101001
        JSR  TRANSMIT
        LDAA #%01110100
        JSR  TRANSMIT
        JSR  SPACE
        RTS

OK
        LDAA #%01001111
        JSR  TRANSMIT
        LDAA #%01001011
        JSR  TRANSMIT
        RTS

ERROR
        LDAA #%01000010
        JSR  TRANSMIT
        LDAA #%01000001
        JSR  TRANSMIT
        LDAA #%01000100
        JSR  TRANSMIT
        RTS

AD
        LDAA #%01000001
        JSR  TRANSMIT
        LDAA #%00101111
        JSR  TRANSMIT
        LDAA #%01000100
        JSR  TRANSMIT
        RTS

DONE
	JMP DONE