git-svn-id: http://svn.code.sf.net/p/netboot65/code@219 93682198-c243-4bdb-bd91-e943c89aac3b

This commit is contained in:
jonnosan 2009-11-14 10:25:43 +00:00
parent 28d1ce6c43
commit a2afcacc01
3 changed files with 15 additions and 9 deletions

View File

@ -66,8 +66,7 @@
.word cold_init ;cold start vector
.word warm_init ;warm start vector
.byte $C3,$C2,$CD,$38,$30 ; "CBM80"
.byte $0,$0,$0 ;reserved for future use
.byte $0,$0,$0 ;reserved for future use
.byte "KIPTRM"
.byte $0,$0,$0 ;reserved for future use
.byte $0,$0,$0 ;reserved for future use
.byte $0,$0,$0 ;reserved for future use

View File

@ -43,7 +43,7 @@ end
filebytes=File.open(filename,"rb").read
start_of_kipper_cart_image=filebytes.index("80KIPPER")
start_of_kipper_cart_image=filebytes.index("80KIP")
if start_of_kipper_cart_image.nil? then
puts "file '#{filename}' does not appear to be a kipper cartridge image"
exit

View File

@ -1,4 +1,5 @@
; vt100 emulation for C64
; vt100 emulation for C64
; originally from CaTer - Copyright Lars Stollenwerk 2003
; CaTer homepage is http://formica.nusseis.de/Cater/
; converted for use with ip65 by Jonno Downes, 2009.
@ -836,7 +837,7 @@ vt100_transform_outbound_char:
rts
:
cmp #$ff
beq cursor_sequence ; send a string
beq output_string
cmp #$fe
beq command_key ; command key
;default - send (possibly transformed) single char
@ -851,7 +852,7 @@ rts
; -------------------------------------
cursor_sequence:
output_string:
tya ; restore original key
; --- crsr U ---
@ -863,12 +864,18 @@ cursor_sequence:
; --- crsr L ---
@not_U:
cmp #$9d ; test crsr L
bne @done
bne @not_L
ldax #ansi_cursor_left
ldy #2
rts
@not_L:
cmp #$0d ;test CR
bne @not_CR
ldax #crlf
ldy #2
rts
@done:
@not_CR:
ldy #0 ;must be some kind of error
rts
@ -1538,7 +1545,7 @@ ansi_cursor_up: .byte esc, brace, $41, $00 ; esc [ A
ansi_cursor_down: .byte esc, brace, $42, $00 ; esc [ B
ansi_cursor_right: .byte esc, brace, $43, $00 ; esc [ C
ansi_cursor_left: .byte esc, brace, $44, $00 ; esc [ D
crlf: .byte $0d,$0a,0
; -------------------------------------
; table ASCII to PETSCII
@ -1831,7 +1838,7 @@ petscii_to_ascii:
.byte $0a ; $0a
.byte $0b ; $0b
.byte $0c ; $0c
.byte $0d ; $0d CR
.byte $ff ; $0d CR
.byte $0e ; $0e
.byte $0f ; $0f
.byte $10 ; $10