STX $0
       DES
       TSX
       CLR $0,X
       COM $0,X
BA1    LDX $04
       STX $06
       JSR $FFAF
       STAA $02
       LDAA $07
       PSHA
       LDAA $02
       TSTA
       BNE BA1
       TSTB
       BNE BA1
       LDX $00
BA5    PULA
       TSTA
       BPL BA3
       RTS
BA3    CMPA #09
       BLE BA4
       ADDA #07
BA4    ADDA #30
       STAA $00,X
       INX 
       BRA BA5
       LDX #0010 SETUP BASE (=16)
       STX $04
       LDAB #00 SETUP CONSTANT TO CONVERT
       LDAA #38
       LDX #0900 POINT TO OUTPUT AREA
       JSR $0800 BINARY TO ASCII
       BRA * END
       END