mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-10-14 05:24:07 +00:00
git-svn-id: http://svn.code.sf.net/p/netboot65/code@219 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
28d1ce6c43
commit
a2afcacc01
@ -66,8 +66,7 @@
|
|||||||
.word cold_init ;cold start vector
|
.word cold_init ;cold start vector
|
||||||
.word warm_init ;warm start vector
|
.word warm_init ;warm start vector
|
||||||
.byte $C3,$C2,$CD,$38,$30 ; "CBM80"
|
.byte $C3,$C2,$CD,$38,$30 ; "CBM80"
|
||||||
.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
|
||||||
.byte $0,$0,$0 ;reserved for future use
|
.byte $0,$0,$0 ;reserved for future use
|
||||||
.byte $0,$0,$0 ;reserved for future use
|
.byte $0,$0,$0 ;reserved for future use
|
||||||
|
@ -43,7 +43,7 @@ end
|
|||||||
|
|
||||||
filebytes=File.open(filename,"rb").read
|
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
|
if start_of_kipper_cart_image.nil? then
|
||||||
puts "file '#{filename}' does not appear to be a kipper cartridge image"
|
puts "file '#{filename}' does not appear to be a kipper cartridge image"
|
||||||
exit
|
exit
|
||||||
|
@ -1,4 +1,5 @@
|
|||||||
; vt100 emulation for C64
|
; vt100 emulation for C64
|
||||||
|
; vt100 emulation for C64
|
||||||
; originally from CaTer - Copyright Lars Stollenwerk 2003
|
; originally from CaTer - Copyright Lars Stollenwerk 2003
|
||||||
; CaTer homepage is http://formica.nusseis.de/Cater/
|
; CaTer homepage is http://formica.nusseis.de/Cater/
|
||||||
; converted for use with ip65 by Jonno Downes, 2009.
|
; converted for use with ip65 by Jonno Downes, 2009.
|
||||||
@ -836,7 +837,7 @@ vt100_transform_outbound_char:
|
|||||||
rts
|
rts
|
||||||
:
|
:
|
||||||
cmp #$ff
|
cmp #$ff
|
||||||
beq cursor_sequence ; send a string
|
beq output_string
|
||||||
cmp #$fe
|
cmp #$fe
|
||||||
beq command_key ; command key
|
beq command_key ; command key
|
||||||
;default - send (possibly transformed) single char
|
;default - send (possibly transformed) single char
|
||||||
@ -851,7 +852,7 @@ rts
|
|||||||
; -------------------------------------
|
; -------------------------------------
|
||||||
|
|
||||||
|
|
||||||
cursor_sequence:
|
output_string:
|
||||||
tya ; restore original key
|
tya ; restore original key
|
||||||
|
|
||||||
; --- crsr U ---
|
; --- crsr U ---
|
||||||
@ -863,12 +864,18 @@ cursor_sequence:
|
|||||||
; --- crsr L ---
|
; --- crsr L ---
|
||||||
@not_U:
|
@not_U:
|
||||||
cmp #$9d ; test crsr L
|
cmp #$9d ; test crsr L
|
||||||
bne @done
|
bne @not_L
|
||||||
ldax #ansi_cursor_left
|
ldax #ansi_cursor_left
|
||||||
ldy #2
|
ldy #2
|
||||||
rts
|
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
|
ldy #0 ;must be some kind of error
|
||||||
rts
|
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_down: .byte esc, brace, $42, $00 ; esc [ B
|
||||||
ansi_cursor_right: .byte esc, brace, $43, $00 ; esc [ C
|
ansi_cursor_right: .byte esc, brace, $43, $00 ; esc [ C
|
||||||
ansi_cursor_left: .byte esc, brace, $44, $00 ; esc [ D
|
ansi_cursor_left: .byte esc, brace, $44, $00 ; esc [ D
|
||||||
|
crlf: .byte $0d,$0a,0
|
||||||
|
|
||||||
; -------------------------------------
|
; -------------------------------------
|
||||||
; table ASCII to PETSCII
|
; table ASCII to PETSCII
|
||||||
@ -1831,7 +1838,7 @@ petscii_to_ascii:
|
|||||||
.byte $0a ; $0a
|
.byte $0a ; $0a
|
||||||
.byte $0b ; $0b
|
.byte $0b ; $0b
|
||||||
.byte $0c ; $0c
|
.byte $0c ; $0c
|
||||||
.byte $0d ; $0d CR
|
.byte $ff ; $0d CR
|
||||||
.byte $0e ; $0e
|
.byte $0e ; $0e
|
||||||
.byte $0f ; $0f
|
.byte $0f ; $0f
|
||||||
.byte $10 ; $10
|
.byte $10 ; $10
|
||||||
|
Loading…
Reference in New Issue
Block a user