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