mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-11-12 14:04:34 +00:00
137 lines
2.7 KiB
OpenEdge ABL
137 lines
2.7 KiB
OpenEdge ABL
;telnet routines
|
|
; to use:
|
|
; 1) include this file
|
|
; 2) include these other files:
|
|
; .include "../inc/common.i"
|
|
; .include "../inc/commonprint.i"
|
|
; .include "../inc/net.i"
|
|
; 3) define a routine called 'exit_telnet'
|
|
|
|
.import telnet_connect
|
|
.import telnet_local_echo
|
|
.import telnet_line_mode
|
|
.import telnet_use_native_charset
|
|
.import telnet_port
|
|
.import telnet_ip
|
|
|
|
|
|
.code
|
|
telnet_main_entry:
|
|
;prompt for a hostname, then resolve to an IP address
|
|
|
|
ldax #remote_host
|
|
jsr print
|
|
kippercall #KPR_INPUT_HOSTNAME
|
|
bcc @host_entered
|
|
;if no host entered, then bail.
|
|
jmp exit_telnet
|
|
@host_entered:
|
|
stax kipper_param_buffer
|
|
jsr print_cr
|
|
ldax #resolving
|
|
jsr print
|
|
ldax kipper_param_buffer
|
|
kippercall #KPR_PRINT_ASCIIZ
|
|
jsr print_cr
|
|
ldax #kipper_param_buffer
|
|
kippercall #KPR_DNS_RESOLVE
|
|
bcc @resolved_ok
|
|
print_failed
|
|
jsr print_cr
|
|
jsr print_errorcode
|
|
jmp telnet_main_entry
|
|
@resolved_ok:
|
|
ldx #3
|
|
@copy_telnet_ip_loop:
|
|
lda kipper_param_buffer,x
|
|
sta telnet_ip,x
|
|
dex
|
|
bpl @copy_telnet_ip_loop
|
|
@get_port:
|
|
ldax #remote_port
|
|
jsr print
|
|
kippercall #KPR_INPUT_PORT_NUMBER
|
|
bcc @port_entered
|
|
;if no port entered, then assume port 23
|
|
ldax #23
|
|
@port_entered:
|
|
stax telnet_port
|
|
jsr print_cr
|
|
|
|
ldax #char_mode_prompt
|
|
jsr print
|
|
@char_mode_input:
|
|
jsr get_key
|
|
cmp #'A'
|
|
beq @ascii_mode
|
|
cmp #'a'
|
|
beq @ascii_mode
|
|
|
|
cmp #'P'
|
|
beq @petscii_mode
|
|
cmp #'p'
|
|
beq @petscii_mode
|
|
|
|
cmp #'l'
|
|
beq @line_mode
|
|
cmp #'L'
|
|
beq @line_mode
|
|
|
|
jmp @char_mode_input
|
|
@ascii_mode:
|
|
lda #0
|
|
sta telnet_use_native_charset
|
|
sta telnet_line_mode
|
|
lda #1
|
|
sta telnet_local_echo
|
|
jmp @after_mode_set
|
|
@petscii_mode:
|
|
lda #1
|
|
sta telnet_use_native_charset
|
|
lda #0
|
|
sta telnet_local_echo
|
|
sta telnet_line_mode
|
|
jmp @after_mode_set
|
|
@line_mode:
|
|
lda #0
|
|
sta telnet_use_native_charset
|
|
lda #1
|
|
sta telnet_local_echo
|
|
sta telnet_line_mode
|
|
|
|
@after_mode_set:
|
|
|
|
lda #147 ; 'CLR/HOME'
|
|
jsr print_a
|
|
|
|
ldax #connecting_in
|
|
jsr print
|
|
lda telnet_use_native_charset
|
|
beq @a_mode
|
|
ldax #petscii
|
|
jmp @c_mode
|
|
@a_mode:
|
|
lda telnet_line_mode
|
|
bne @l_mode
|
|
ldax #ascii
|
|
jmp @c_mode
|
|
@l_mode:
|
|
ldax #line
|
|
@c_mode:
|
|
jsr print
|
|
ldax #mode
|
|
jsr print
|
|
jsr telnet_connect
|
|
jmp telnet_main_entry
|
|
|
|
;constants
|
|
connecting_in: .byte "CONNECTING IN ",0
|
|
ascii: .byte "ASCII",0
|
|
petscii: .byte "PETSCII",0
|
|
line: .byte "LINE",0
|
|
mode: .byte " MODE",13,0
|
|
remote_host: .byte "HOSTNAME (LEAVE BLANK TO QUIT)",13,": ",0
|
|
remote_port: .byte "PORT # (LEAVE BLANK FOR DEFAULT)",13,": ",0
|
|
char_mode_prompt: .byte "MODE - A=ASCII, P=PETSCII, L=LINE",13,0
|
|
|