*=$0801-2
         .word $0801

        .word nextline          ; link to next basic line
        .word 2001              ; line-nr
        .byte $9e               ; token for sys
        .byte "2061"
        .byte $00               ; end of basic-line
nextline:
        .byte $00,$00           ; end of basic-program


         .include "../../generic/target/ports/silversurfer.inc"

         .include "rr.inc"

CHROUT=$ffd2
CHRIN =$ffe4

;---------------------------------------
; serial line input dumper
; (mostly useful for testing :=])
; 20020905: gpz fixed a lame bug ;)
;---------------------------------------

ss_dump:
         .proc

         lda #$00
         sta count+1

         cli

         lda #$04       ; baudrate ($04=115k)
         jsr ss_init
mlp:

         jsr ss_getchr
	 pha

count:   lda #$00
         jsr printhex

         lda #$20
         jsr CHROUT

	 pla
         jsr printhex

         lda #$0d
         jsr CHROUT

         inc count+1

@ll:
         jsr CHRIN
         cmp #$03      ; runstop aborts
         beq @sk
         cmp #$20      ; space stops
         beq @ll

         jmp mlp
@sk:
         rts

         .endproc

hextab:         .byte $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$41,$42,$43,$44,$45,$46

printhex:
	 tax
         lsr a
         lsr a
         lsr a
         lsr a
         tay
         lda hextab,y
         jsr CHROUT
         txa
         and #$0f
         tay
         lda hextab,y
         jmp CHROUT

         .include "../../generic/target/ports/silversurfer_polling.s"