*=$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

;---------------------------------------
; mini-terminal
; (mostly useful for testing :=])
;---------------------------------------

ss_term:
         .proc

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

         ; get byte from keyboard
         ; and send it

         jsr CHRIN
         beq sk3222

         jsr ss_putchr
sk3222:
         ; activate rts
         jsr ss_unpause
lp1:
         jsr ss_stat_data_available
         beq mlp ; none

         jsr ss_getchr2
         jsr CHROUT
         jmp lp1

         .endproc

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