From 48a239ff2177696f795070968f3d012a372e7dc5 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Fri, 15 Mar 2019 07:07:10 -0400 Subject: cruft removal --- src/fuji_asm.s | 3016 -------------------------------------------------------- 1 file changed, 3016 deletions(-) delete mode 100644 src/fuji_asm.s (limited to 'src') diff --git a/src/fuji_asm.s b/src/fuji_asm.s deleted file mode 100644 index 2d9f205..0000000 --- a/src/fuji_asm.s +++ /dev/null @@ -1,3016 +0,0 @@ -; -; File generated by cc65 v 2.12.9 -; - .fopt compiler,"cc65 v 2.12.9" - .setcpu "6502" - .smart on - .autoimport on - .case on - .debuginfo off - .importzp sp, sreg, regsave, regbank, tmp1, ptr1, ptr2 - .macpack longbranch - .import _stdout - .import _fflush - .import _fputs - .import _printf - .import _putchar - .import _puts - .import _sprintf - .import _atoi - .import _exit - .import _strcmp - .import _strcpy - .import _strlen - .import _memcmp - .import _memcpy - .import _strcasecmp - .import _toupper - .import _get_ostype - .import _kbhit - .import _cgetc - .import _cursor - .import __clocks_per_sec - .import _clock - .import _timer_set - .import _timer_reset - .import _timer_expired - .export _resolv_found - .import _resolv_conf - .import _resolv_init - .import _resolv_query - .import _telnet_send - .export _telnet_connected - .export _telnet_closed - .export _telnet_sent - .export _telnet_aborted - .export _telnet_timedout - .export _telnet_newdata - .import _uip_init - .import _uip_connect - .import _htons - .import _uip_len - .import _uip_conn - .import _uip_conns - .import _uip_udp_conn - .import _uip_udp_conns - .import _uip_flags - .import _uip_process - .import _uip_hostaddr - .import _uip_netmask - .import _uip_draddr - .import _uiplib_ipaddrconv - .import _rs232dev_init - .import _rs232dev_send - .import _rs232dev_close - .import _rs232dev_poll - .import _atari_exec_p - .import _config - .import _format_ip - .import _get_config - .import _config_is_valid - .import _get_line - .import _set_default_config - .import _disable_break - .export _os_version - .export _input_buf - .export _chan_msg_buf - .export _output_buf - .export _channel - .export _last_msg_nick - .export _input_buf_len - .export _output_buf_len - .export _done - .export _connected - .export _joined_channel - .export _nick_registered - .export _vbell_active - .export _bell - .export _redraw_user_buffer - .export _nick_reg_timer - .export _tstate - .export _vbell_timer - .export _main - .export _do_pong - .export _do_server_msg - .export _do_ctcp - .export _do_msg - .export _del_user_buffer - -.segment "DATA" - -_os_version: - .byte $58,$4C,$5F,$58,$45,$00 - .res 4,$00 -_input_buf: - .word $2900 -_chan_msg_buf: - .word $2A00 -_output_buf: - .word $2C00 -_last_msg_nick: - .byte $00 - .res 20,$00 -_input_buf_len: - .word $0000 -_output_buf_len: - .word $0000 -_done: - .byte $00 -_connected: - .byte $00 -_joined_channel: - .byte $00 -_nick_registered: - .byte $00 -_vbell_active: - .byte $00 - -.segment "RODATA" - -L0001: - .byte $38,$30,$30,$00,$31,$32,$30,$30,$58,$4C,$00,$C6,$F5,$EA,$E9,$C3 - .byte $E8,$E1,$F4,$20,$76,$30,$2E,$35,$00,$53,$65,$72,$76,$65,$72,$20 - .byte $6E,$61,$6D,$65,$2F,$49,$50,$2C,$20,$5B,$43,$5D,$6F,$6E,$66,$69 - .byte $67,$2C,$20,$6F,$72,$20,$5B,$44,$5D,$4F,$53,$9B,$00,$5B,$25,$73 - .byte $5D,$3A,$20,$00,$64,$00,$63,$00,$44,$3A,$46,$55,$4A,$49,$43,$4F - .byte $4E,$46,$2E,$43,$4F,$4D,$00,$45,$72,$72,$6F,$72,$20,$25,$64,$21 - .byte $9B,$00,$2A,$20,$52,$65,$67,$69,$73,$74,$65,$72,$69,$6E,$67,$20 - .byte $6E,$69,$63,$6B,$00,$4E,$49,$43,$4B,$20,$25,$73,$25,$63,$55,$53 - .byte $45,$52,$20,$25,$73,$20,$25,$73,$20,$25,$73,$20,$3A,$25,$73,$25 - .byte $63,$00,$46,$75,$6A,$69,$43,$68,$61,$74,$00,$43,$6F,$6D,$6D,$61 - .byte $6E,$64,$20,$72,$65,$71,$75,$69,$72,$65,$73,$20,$61,$72,$67,$75 - .byte $6D,$65,$6E,$74,$00,$59,$6F,$75,$20,$61,$72,$65,$20,$6E,$6F,$74 - .byte $20,$69,$6E,$20,$61,$20,$63,$68,$61,$6E,$6E,$65,$6C,$20,$28,$75 - .byte $73,$65,$20,$2F,$6A,$6F,$69,$6E,$20,$23,$63,$68,$61,$6E,$6E,$65 - .byte $6C,$29,$00,$59,$6F,$75,$20,$61,$72,$65,$20,$61,$6C,$72,$65,$61 - .byte $64,$79,$20,$69,$6E,$20,$61,$20,$63,$68,$61,$6E,$6E,$65,$6C,$20 - .byte $28,$75,$73,$65,$20,$2F,$70,$61,$72,$74,$20,$74,$6F,$20,$6C,$65 - .byte $61,$76,$65,$29,$00,$4E,$41,$4D,$45,$53,$00,$57,$48,$4F,$00,$2F - .byte $6D,$73,$67,$20,$25,$73,$20,$00,$50,$52,$49,$56,$4D,$53,$47,$20 - .byte $25,$73,$20,$3A,$25,$73,$00,$25,$73,$20,$25,$73,$25,$63,$00,$25 - .byte $73,$25,$63,$00,$50,$52,$49,$56,$4D,$53,$47,$20,$25,$73,$20,$25 - .byte $63,$56,$45,$52,$53,$49,$4F,$4E,$25,$63,$25,$63,$00,$50,$52,$49 - .byte $56,$4D,$53,$47,$20,$25,$73,$20,$25,$63,$50,$49,$4E,$47,$20,$25 - .byte $30,$33,$64,$20,$25,$30,$33,$64,$20,$25,$30,$33,$64,$25,$63,$25 - .byte $63,$00,$50,$52,$49,$56,$4D,$53,$47,$20,$25,$73,$20,$3A,$25,$63 - .byte $41,$43,$54,$49,$4F,$4E,$20,$25,$73,$25,$63,$25,$63,$00,$4D,$45 - .byte $00,$4D,$53,$47,$00,$4D,$00,$50,$52,$49,$56,$4D,$53,$47,$00,$4A - .byte $4F,$49,$4E,$00,$4A,$00,$4A,$4F,$49,$4E,$00,$4A,$4F,$49,$4E,$00 - .byte $50,$41,$52,$54,$00,$50,$41,$52,$54,$00,$56,$45,$52,$53,$49,$4F - .byte $4E,$00,$56,$45,$52,$00,$50,$49,$4E,$47,$00,$4E,$49,$43,$4B,$00 - .byte $2A,$20,$59,$6F,$75,$20,$61,$72,$65,$20,$6E,$6F,$77,$20,$6B,$6E - .byte $6F,$77,$6E,$20,$61,$73,$20,$25,$73,$9B,$00,$51,$55,$4F,$54,$45 - .byte $00,$43,$6F,$6E,$6E,$65,$63,$74,$65,$64,$20,$74,$6F,$20,$73,$65 - .byte $72,$76,$65,$72,$00,$43,$6F,$6E,$6E,$65,$63,$74,$69,$6F,$6E,$20 - .byte $63,$6C,$6F,$73,$65,$64,$00,$43,$6F,$6E,$6E,$65,$63,$74,$69,$6F - .byte $6E,$20,$61,$62,$6F,$72,$74,$65,$64,$00,$43,$6F,$6E,$6E,$65,$63 - .byte $74,$69,$6F,$6E,$20,$74,$69,$6D,$65,$64,$20,$6F,$75,$74,$00,$5B - .byte $50,$49,$4E,$47,$2C,$50,$4F,$4E,$47,$5D,$00,$2A,$20,$54,$6F,$70 - .byte $69,$63,$3A,$20,$25,$73,$00,$2A,$20,$54,$6F,$70,$69,$63,$20,$73 - .byte $65,$74,$20,$62,$79,$20,$25,$73,$00,$2A,$20,$48,$69,$64,$69,$6E - .byte $67,$20,$4D,$4F,$54,$44,$20,$28,$62,$65,$20,$70,$61,$74,$69,$65 - .byte $6E,$74,$29,$00,$25,$64,$20,$25,$73,$00,$25,$73,$20,$25,$73,$00 - .byte $50,$49,$4E,$47,$20,$00,$2A,$20,$25,$73,$20,$70,$69,$6E,$67,$20 - .byte $74,$69,$6D,$65,$3A,$20,$25,$64,$2E,$25,$64,$9B,$00,$50,$52,$49 - .byte $56,$4D,$53,$47,$00,$01,$41,$43,$54,$49,$4F,$4E,$20,$00,$2A,$20 - .byte $25,$73,$20,$25,$73,$00,$25,$73,$20,$25,$73,$00,$01,$50,$49,$4E - .byte $47,$20,$00,$4E,$4F,$54,$49,$43,$45,$20,$25,$73,$20,$3A,$01,$50 - .byte $49,$4E,$47,$20,$25,$73,$01,$25,$63,$00,$2A,$20,$43,$54,$43,$50 - .byte $20,$50,$49,$4E,$47,$20,$66,$72,$6F,$6D,$20,$25,$73,$9B,$00,$01 - .byte $56,$45,$52,$53,$49,$4F,$4E,$01,$00,$4E,$4F,$54,$49,$43,$45,$20 - .byte $25,$73,$20,$3A,$01,$56,$45,$52,$53,$49,$4F,$4E,$20,$46,$75,$6A - .byte $69,$43,$68,$61,$74,$20,$76,$30,$2E,$35,$20,$2D,$20,$72,$75,$6E - .byte $6E,$69,$6E,$67,$20,$6F,$6E,$20,$61,$6E,$20,$41,$74,$61,$72,$69 - .byte $20,$25,$73,$01,$25,$63,$00,$2A,$20,$43,$54,$43,$50,$20,$56,$45 - .byte $52,$53,$49,$4F,$4E,$20,$66,$72,$6F,$6D,$20,$25,$73,$9B,$00,$4D - .byte $53,$47,$3A,$20,$25,$73,$20,$25,$73,$00,$4E,$4F,$54,$49,$43,$45 - .byte $00,$2A,$20,$43,$54,$43,$50,$20,$72,$65,$70,$6C,$79,$20,$66,$72 - .byte $6F,$6D,$20,$25,$73,$3A,$20,$25,$73,$00,$25,$73,$20,$25,$73,$20 - .byte $25,$73,$20,$25,$73,$00,$25,$73,$20,$25,$73,$20,$25,$73,$00,$5B - .byte $62,$75,$66,$66,$65,$72,$20,$6F,$76,$65,$72,$66,$6C,$6F,$77,$5D - .byte $FD,$00,$50,$49,$4E,$47,$00,$48,$6F,$73,$74,$20,$27,$25,$73,$27 - .byte $20,$6E,$6F,$74,$20,$66,$6F,$75,$6E,$64,$2E,$9B,$00,$25,$73,$20 - .byte $69,$73,$20,$25,$73,$9B,$00 - -.segment "BSS" - -_channel: - .res 64,$00 -_nick_reg_timer: - .res 4,$00 -_tstate: - .res 2,$00 -_vbell_timer: - .res 4,$00 - -; --------------------------------------------------------------- -; void __near__ resolv_found (__near__ unsigned char*, __near__ unsigned int*) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _resolv_found: near - -.segment "CODE" - - ldy #$00 - lda (sp),y - iny - ora (sp),y - bne L0501 - lda #<(L0001+967) - ldx #>(L0001+967) - jsr pushax - ldy #$07 - jsr pushwysp - ldy #$04 - jsr _printf - lda #$01 - sta _done - jmp incsp4 -L0501: lda #<(L0001+989) - ldx #>(L0001+989) - jsr pushax - ldy #$07 - jsr pushwysp - ldy #$07 - jsr pushwysp - jsr _format_ip - jsr pushax - ldy #$06 - jsr _printf - lda _connected - jne incsp4 - jsr pushw0sp - lda _config - ldx _config+1 - ldy #$53 - jsr pushwidx - jsr _htons - jsr pushax - jsr _uip_connect - jmp incsp4 - -.endproc - -; --------------------------------------------------------------- -; void __near__ telnet_connected (__near__ struct telnet_state*) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _telnet_connected: near - -.segment "CODE" - - lda #<(L0001+513) - ldx #>(L0001+513) - jsr _puts - jsr ldax0sp - sta _tstate - stx _tstate+1 - jsr ldax0sp - sta sreg - stx sreg+1 - lda #$00 - ldy #$01 - sta (sreg),y - iny - sta (sreg),y - jsr ldax0sp - sta sreg - stx sreg+1 - lda #$00 - ldy #$03 - sta (sreg),y - iny - sta (sreg),y - lda #<(_nick_reg_timer) - ldx #>(_nick_reg_timer) - jsr pushax - jsr __clocks_per_sec - jsr pushax - jsr _timer_set - lda #$01 - sta _connected - jmp incsp2 - -.endproc - -; --------------------------------------------------------------- -; void __near__ telnet_closed (__near__ struct telnet_state*) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _telnet_closed: near - -.segment "CODE" - - lda #<(L0001+533) - ldx #>(L0001+533) - jsr _puts - lda #$10 - sta _uip_flags - lda #$01 - sta _done - jmp incsp2 - -.endproc - -; --------------------------------------------------------------- -; void __near__ telnet_sent (__near__ struct telnet_state*) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _telnet_sent: near - -.segment "CODE" - - jmp incsp2 - -.endproc - -; --------------------------------------------------------------- -; void __near__ telnet_aborted (__near__ struct telnet_state*) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _telnet_aborted: near - -.segment "CODE" - - lda #<(L0001+551) - ldx #>(L0001+551) - jsr _puts - lda #$20 - sta _uip_flags - lda #$01 - sta _done - jmp incsp2 - -.endproc - -; --------------------------------------------------------------- -; void __near__ telnet_timedout (__near__ struct telnet_state*) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _telnet_timedout: near - -.segment "CODE" - - lda #<(L0001+570) - ldx #>(L0001+570) - jsr _puts - lda #$20 - sta _uip_flags - lda #$01 - sta _done - jmp incsp2 - -.endproc - -; --------------------------------------------------------------- -; void __near__ telnet_newdata (__near__ struct telnet_state*, __near__ unsigned char*, unsigned int) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _telnet_newdata: near - -.segment "CODE" - - jsr pushw0sp - jsr decsp1 - ldy #$08 - jsr pushwysp - jsr pushc0 -L04AF: ldy #$05 - jsr ldaxysp - sta regsave - stx regsave+1 - jsr decax1 - ldy #$04 - jsr staxysp - lda regsave - ora regsave+1 - jeq L04B0 - ldy #$02 - jsr ldaxysp - sta regsave - stx regsave+1 - jsr incax1 - ldy #$01 - jsr staxysp - ldy #$00 - lda (regsave),y - ldy #$03 - sta (sp),y - cmp #$0A - beq L04AF - lda (sp),y - cmp #$0D - bne L04B8 - lda #$9B - sta (sp),y - lda #$01 - ldy #$00 - jmp L0515 -L04B8: lda (sp),y - cmp #$09 - bne L04BF - lda #$7F - jmp L0515 -L04BF: lda (sp),y - cmp #$7B - bne L04C4 - lda #$DB - jmp L0515 -L04C4: lda (sp),y - cmp #$7D - bne L04C9 - lda #$DD - jmp L0515 -L04C9: lda (sp),y - cmp #$7E - bne L04CE - lda #$DE - jmp L0515 -L04CE: lda (sp),y - cmp #$60 - bne L04D3 - lda #$A7 -L0515: sta (sp),y -L04D3: lda _output_buf - ldx _output_buf+1 - jsr pushax - lda _output_buf_len - ldx _output_buf_len+1 - sta regsave - stx regsave+1 - jsr incax1 - sta _output_buf_len - stx _output_buf_len+1 - lda regsave - ldx regsave+1 - jsr tosaddax - sta sreg - stx sreg+1 - ldy #$03 - lda (sp),y - ldy #$00 - sta (sreg),y - lda _output_buf_len - ldx _output_buf_len+1 - jsr pushax - ldx #$02 - lda #$00 - jsr tosicmp - bmi L04DA - lda #<(L0001+943) - ldx #>(L0001+943) - jsr _puts - lda #$01 - ldy #$00 - sta (sp),y - jmp L04B0 -L04DA: ldy #$00 - lda (sp),y - jeq L04AF - jsr _del_user_buffer - lda _output_buf - ldx _output_buf+1 - clc - adc _output_buf_len - pha - txa - adc _output_buf_len+1 - tax - pla - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - lda _output_buf_len - ldx _output_buf_len+1 - jsr pushax - lda #$05 - jsr tosgea0 - beq L04E6 - lda _output_buf - ldx _output_buf+1 - jsr pushax - lda #<(L0001+962) - ldx #>(L0001+962) - jsr pushax - ldx #$00 - lda #$04 - jsr _memcmp - cpx #$00 - bne L04E6 - cmp #$00 - bne L04E6 - jsr _do_pong - jmp L04F5 -L04E6: lda _output_buf - ldx _output_buf+1 - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$3A - bne L04F1 - jsr _do_msg - jmp L04F5 -L04F1: lda _output_buf - ldx _output_buf+1 - jsr pushax - lda _stdout - ldx _stdout+1 - jsr _fputs - lda _stdout - ldx _stdout+1 - jsr _fflush -L04F5: jsr _redraw_user_buffer - lda #$00 - sta _output_buf_len - sta _output_buf_len+1 - tay - sta (sp),y - jmp L04AF -L04B0: ldy #$0C - jmp addysp - -.endproc - -; --------------------------------------------------------------- -; void __near__ handle_keystroke (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _handle_keystroke: near - -.segment "CODE" - - jsr decsp2 - jsr pushc0 - jsr _cgetc - ldy #$01 - sta (sp),y - lda _input_buf_len - ora _input_buf_len+1 - jne L01A9 - lda (sp),y - cmp #$0E - beq L01AB - cmp #$17 - beq L01B2 - cmp #$7F - beq L01BB - cmp #$9B - jeq incsp3 - jmp L01A9 -L01AB: lda _joined_channel - jeq incsp3 - lda #<(L0001+277) - ldx #>(L0001+277) - jsr pushax - lda #<(_channel) - ldx #>(_channel) - jsr pushax - jsr _send_server_cmd - jmp incsp3 -L01B2: lda _joined_channel - jeq incsp3 - lda #<(L0001+283) - ldx #>(L0001+283) - jsr pushax - lda #<(_channel) - ldx #>(_channel) - jsr pushax - jsr _send_server_cmd - jmp incsp3 -L01BB: lda _last_msg_nick - jeq incsp3 - lda _input_buf - ldx _input_buf+1 - jsr pushax - lda #<(L0001+287) - ldx #>(L0001+287) - jsr pushax - lda #<(_last_msg_nick) - ldx #>(_last_msg_nick) - jsr pushax - ldy #$06 - jsr _sprintf - lda _input_buf - ldx _input_buf+1 - jsr _strlen - sta _input_buf_len - stx _input_buf_len+1 - lda #$00 - ldy #$02 -L0519: sta (sp),y - lda (sp),y - jsr pusha0 - lda _input_buf_len - ldx _input_buf_len+1 - jsr tosicmp - jcs incsp3 - lda _input_buf - sta sreg - lda _input_buf+1 - sta sreg+1 - ldy #$02 - lda (sp),y - clc - adc sreg - ldx sreg+1 - bcc L0517 - inx -L0517: ldy #$00 - sta ptr1 - stx ptr1+1 - ldx #$00 - lda (ptr1),y - ora #$80 - jsr _putchar - ldy #$02 - lda (sp),y - clc - adc #$01 - jmp L0519 -L01A9: lda (sp),y - cmp #$7E - bne L01D2 - lda _input_buf_len - ldx _input_buf_len+1 - jsr pushax - lda #$01 - jsr tosgea0 - beq L01D4 - lda _input_buf_len - ldx _input_buf_len+1 - jsr decax1 - sta _input_buf_len - stx _input_buf_len+1 - ldy #$01 - ldx #$00 - lda (sp),y - jsr _putchar - jmp incsp3 -L01D4: jsr _bell - jmp incsp3 -L01D2: lda (sp),y - cmp #$9C - beq L01DD - lda (sp),y - cmp #$15 - bne L01DC -L01DD: ldx #$00 - txa - sta _input_buf_len - sta _input_buf_len+1 - lda #$9C - jsr _putchar - jmp incsp3 -L01DC: lda (sp),y - cmp #$17 - bne L01E4 - jsr _del_last_word - jmp incsp3 -L01E4: ldx #$00 - lda (sp),y - ora #$80 - jsr _putchar - ldy #$01 - lda (sp),y - cmp #$9B - bne L01E9 - lda #$0A - sta (sp),y - tya - dey - jmp L0518 -L01E9: lda (sp),y - cmp #$7F - bne L01F0 - lda #$09 -L0518: sta (sp),y -L01F0: lda _input_buf - ldx _input_buf+1 - jsr pushax - lda _input_buf_len - ldx _input_buf_len+1 - sta regsave - stx regsave+1 - jsr incax1 - sta _input_buf_len - stx _input_buf_len+1 - lda regsave - ldx regsave+1 - jsr tosaddax - sta sreg - stx sreg+1 - ldy #$01 - lda (sp),y - dey - sta (sreg),y - lda _input_buf_len - ldx _input_buf_len+1 - jsr pushax - ldx #$01 - lda #$00 - jsr tosicmp - bmi L01F9 - ldy #$00 - lda (sp),y - bne L01F9 - jsr _bell - ldx #$00 - lda #$7E - jsr _putchar - lda _input_buf_len - ldx _input_buf_len+1 - jsr decax1 - sta _input_buf_len - stx _input_buf_len+1 -L01F9: ldy #$00 - lda (sp),y - jeq incsp3 - lda _input_buf - ldx _input_buf+1 - clc - adc _input_buf_len - pha - txa - adc _input_buf_len+1 - tax - pla - sta sreg - stx sreg+1 - tya - sta (sreg),y - lda _input_buf - sta ptr1 - lda _input_buf+1 - sta ptr1+1 - lda (ptr1),y - cmp #$2F - bne L0204 - jsr _handle_command - jmp L0214 -L0204: lda _joined_channel - beq L0208 - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda #<(L0001+296) - ldx #>(L0001+296) - jsr pushax - lda #<(_channel) - ldx #>(_channel) - jsr pushax - lda _input_buf - ldx _input_buf+1 - jsr pushax - ldy #$08 - jsr _sprintf - lda _tstate - ldx _tstate+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr _strlen - jsr pushax - jsr _telnet_send - jmp L0214 -L0208: jsr _err_no_channel -L0214: lda #$00 - sta _input_buf_len - sta _input_buf_len+1 - jmp incsp3 - -.endproc - -; --------------------------------------------------------------- -; void __near__ handle_command (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _handle_command: near - -.segment "CODE" - - lda _input_buf - ldx _input_buf+1 - jsr incax1 - jsr pushax - jsr decsp2 - jsr push0 - ldy #$07 - jsr pushwysp -L0261: jsr ldax0sp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$0A - beq L0262 - jsr ldax0sp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$20 - beq L0262 - jsr pushw0sp - ldy #$03 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - ldx #$00 - lda (ptr1),y - jsr _toupper - ldy #$00 - jsr staspidx - ldx #$00 - lda #$01 - jsr addeq0sp - jmp L0261 -L0262: jsr ldax0sp - ldy #$04 - jsr staxysp - jsr ldax0sp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$0A - beq L026E - jsr ldax0sp - ldy #$02 - jsr staxysp -L0272: ldy #$03 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$20 - bne L0273 - ldy #$02 - ldx #$00 - lda #$01 - jsr addeqysp - jmp L0272 -L0273: ldy #$03 - jsr ldaxysp - jsr incax1 - jsr stax0sp -L0278: jsr ldax0sp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - beq L0279 - jsr ldax0sp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$0A - beq L0279 - ldx #$00 - lda #$01 - jsr addeq0sp - jmp L0278 -L0279: jsr ldax0sp - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y -L026E: ldy #$05 - jsr ldaxysp - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - ldy #$09 - jsr pushwysp - lda #<(L0001+414) - ldx #>(L0001+414) - jsr _strcmp - cpx #$00 - bne L0283 - cmp #$00 - bne L0283 - lda _joined_channel - bne L0288 - jsr _err_no_channel - jmp incsp8 -L0288: ldy #$03 - lda (sp),y - dey - ora (sp),y - bne L028C - jsr _err_missing_arg - jmp incsp8 -L028C: ldy #$05 - jsr pushwysp - jsr _do_me - jmp incsp8 -L0283: ldy #$09 - jsr pushwysp - lda #<(L0001+417) - ldx #>(L0001+417) - jsr _strcmp - cpx #$00 - bne L051B - cmp #$00 - beq L0294 -L051B: ldy #$09 - jsr pushwysp - lda #<(L0001+421) - ldx #>(L0001+421) - jsr _strcmp - cpx #$00 - bne L0293 - cmp #$00 - bne L0293 -L0294: ldy #$03 - lda (sp),y - dey - ora (sp),y - bne L029C - jsr _err_missing_arg - jmp incsp8 -L029C: lda #<(L0001+423) - ldx #>(L0001+423) - jmp L0524 -L0293: ldy #$09 - jsr pushwysp - lda #<(L0001+431) - ldx #>(L0001+431) - jsr _strcmp - cpx #$00 - bne L051D - cmp #$00 - beq L02A5 -L051D: ldy #$09 - jsr pushwysp - lda #<(L0001+436) - ldx #>(L0001+436) - jsr _strcmp - cpx #$00 - bne L02A4 - cmp #$00 - bne L02A4 -L02A5: lda _joined_channel - beq L02AD - ldy #$03 - lda (sp),y - dey - ora (sp),y - beq L02AF - jsr _err_already_joined - jmp incsp8 -L02AF: lda #<(L0001+438) - ldx #>(L0001+438) - jsr pushax - lda #<(_channel) - ldx #>(_channel) - jmp L0521 -L02AD: ldy #$03 - lda (sp),y - dey - ora (sp),y - beq L02B7 - lda #$01 - sta _joined_channel - lda #<(_channel) - ldx #>(_channel) - jsr pushax - ldy #$05 - jsr ldaxysp - jsr _strcpy - lda #<(L0001+443) - ldx #>(L0001+443) - jmp L0524 -L02B7: jsr _err_missing_arg - jmp incsp8 -L02A4: ldy #$09 - jsr pushwysp - lda #<(L0001+448) - ldx #>(L0001+448) - jsr _strcmp - cpx #$00 - bne L02C4 - cmp #$00 - bne L02C4 - lda _joined_channel - bne L02C9 - jsr _err_no_channel - jmp incsp8 -L02C9: txa - sta _joined_channel - lda #<(L0001+453) - ldx #>(L0001+453) - jsr pushax - lda #<(_channel) - ldx #>(_channel) - jmp L0521 -L02C4: ldy #$09 - jsr pushwysp - lda #<(L0001+458) - ldx #>(L0001+458) - jsr _strcmp - cpx #$00 - bne L051F - cmp #$00 - beq L02D4 -L051F: ldy #$09 - jsr pushwysp - lda #<(L0001+466) - ldx #>(L0001+466) - jsr _strcmp - cpx #$00 - bne L02D3 - cmp #$00 - bne L02D3 -L02D4: ldy #$03 - lda (sp),y - dey - ora (sp),y - bne L02DC - jsr _err_missing_arg - jmp incsp8 -L02DC: ldy #$05 - jsr pushwysp - jsr _send_ctcp_version - jmp incsp8 -L02D3: ldy #$09 - jsr pushwysp - lda #<(L0001+470) - ldx #>(L0001+470) - jsr _strcmp - cpx #$00 - bne L02E3 - cmp #$00 - bne L02E3 - ldy #$03 - lda (sp),y - dey - ora (sp),y - bne L02E8 - jsr _err_missing_arg - jmp incsp8 -L02E8: ldy #$05 - jsr pushwysp - jsr _send_ctcp_ping - jmp incsp8 -L02E3: ldy #$09 - jsr pushwysp - lda #<(L0001+475) - ldx #>(L0001+475) - jsr _strcmp - cpx #$00 - bne L02EF - cmp #$00 - bne L02EF - ldy #$03 - lda (sp),y - dey - ora (sp),y - bne L02F4 - jsr _err_missing_arg - jmp incsp8 -L02F4: lda _config - ldx _config+1 - ldy #$54 - jsr incaxy - jsr pushax - ldy #$05 - jsr ldaxysp - jsr _strcpy - ldy #$09 - jsr pushwysp - ldy #$07 - jsr pushwysp - jsr _send_server_cmd - lda #<(L0001+480) - ldx #>(L0001+480) - jsr pushax - lda _config - ldx _config+1 - ldy #$54 - jsr incaxy - jsr pushax - ldy #$04 - jsr _printf - jmp incsp8 -L02EF: ldy #$09 - jsr pushwysp - lda #<(L0001+507) - ldx #>(L0001+507) - jsr _strcmp - cpx #$00 - bne L0302 - cmp #$00 - bne L0302 - ldy #$03 - lda (sp),y - dey - ora (sp),y - bne L0307 - jsr _err_missing_arg - jmp incsp8 -L0307: ldy #$05 - jsr pushwysp - ldx #$00 - txa - jmp L0521 -L0302: ldy #$07 - jsr ldaxysp -L0524: jsr pushax - ldy #$05 - jsr ldaxysp -L0521: jsr pushax - jsr _send_server_cmd - jmp incsp8 - -.endproc - -; --------------------------------------------------------------- -; void __near__ send_server_cmd (__near__ unsigned char*, __near__ unsigned char*) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _send_server_cmd: near - -.segment "CODE" - - ldy #$01 - lda (sp),y - dey - ora (sp),y - beq L0219 - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda #<(L0001+311) - ldx #>(L0001+311) - jsr pushax - ldy #$09 - jsr pushwysp - ldy #$09 - jsr pushwysp - lda #$0A - jsr pusha0 - tay - jmp L0525 -L0219: lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda #<(L0001+319) - ldx #>(L0001+319) - jsr pushax - ldy #$09 - jsr pushwysp - lda #$0A - jsr pusha0 - ldy #$08 -L0525: jsr _sprintf - lda _tstate - ldx _tstate+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr _strlen - jsr pushax - jsr _telnet_send - jmp incsp4 - -.endproc - -; --------------------------------------------------------------- -; void __near__ bell (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _bell: near - -.segment "CODE" - - lda _config - ldx _config+1 - ldy #$96 - jsr ldaxidx - txa - and #$08 - bne L015D - lda _config - ldx _config+1 - ldy #$96 - jsr ldaxidx - txa - and #$20 - beq L0160 - lda #$01 - sta _vbell_active - lda #<(_vbell_timer) - ldx #>(_vbell_timer) - jsr pushax - jsr __clocks_per_sec - jsr pushax - lda #$0A - jsr tosudiva0 - jsr pushax - jsr _timer_set - lda _config - ldx _config+1 - ldy #$93 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - clc - adc #$08 - sta $02C6 - rts -L0160: ldx #$00 - lda #$FD - jmp _putchar -L015D: rts - -.endproc - -; --------------------------------------------------------------- -; void __near__ redraw_user_buffer (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _redraw_user_buffer: near - -.segment "CODE" - - jsr decsp2 - ldx #$28 - lda #$00 - jsr pushax - lda _input_buf_len - ora _input_buf_len+1 - jeq incsp4 - lda _input_buf_len - ldx _input_buf_len+1 - jsr decax1 - ldy #$02 - jsr staxysp -L049B: jsr ldax0sp - sta sreg - stx sreg+1 - ldy #$03 - jsr ldaxysp - clc - adc sreg - sta sreg - txa - adc sreg+1 - tax - lda sreg - sta ptr2 - stx ptr2+1 - lda _input_buf - sta sreg - lda _input_buf+1 - sta sreg+1 - ldy #$03 - jsr ldaxysp - clc - adc sreg - sta sreg - txa - adc sreg+1 - tax - lda sreg - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - ora #$80 - sta (ptr2),y - ldy #$03 - jsr ldaxysp - sta regsave - stx regsave+1 - jsr decax1 - ldy #$02 - jsr staxysp - lda regsave - ora regsave+1 - bne L049B - jsr ldax0sp - clc - adc _input_buf_len - pha - txa - adc _input_buf_len+1 - tax - pla - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - jsr pushw0sp - lda _stdout - ldx _stdout+1 - jsr _fputs - lda _stdout - ldx _stdout+1 - jsr _fflush - jmp incsp4 - -.endproc - -; --------------------------------------------------------------- -; void __near__ main (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _main: near - -.segment "CODE" - - ldy #$4C - jsr subysp - jsr _disable_break - jsr _get_ostype - and #$07 - ldy #$4B - sta (sp),y - cmp #$01 - bne L003B - ldy #$FF -L0040: iny - lda L0001,y - sta _os_version,y - bne L0040 - jmp L0042 -L003B: lda (sp),y - cmp #$02 - bne L0042 - ldy #$FF -L0047: iny - lda L0001+4,y - sta _os_version,y - bne L0047 -L0042: lda #$01 - jsr _cursor - lda #$00 - sta $02C6 - lda #$0C - sta $02C5 - ldx #$00 - lda #$7D - jsr _putchar - lda #<(L0001+11) - ldx #>(L0001+11) - jsr _puts - ldx #$00 - lda #$9B - jsr _putchar - jsr _config_is_valid - tax - bne L005C - jsr _get_config - tax - bne L005C - jsr _set_default_config -L005C: lda _config - ldx _config+1 - sta sreg - stx sreg+1 - ldy #$96 - jsr ldaxidx - pha - txa - ora #$10 - tax - pla - ldy #$95 - sta (sreg),y - iny - txa - sta (sreg),y -L0061: lda #$00 - sta _done - jsr _rs232dev_close - lda _config - ldx _config+1 - ldy #$93 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - sta $02C6 - lda _config - ldx _config+1 - iny - sta ptr1 - stx ptr1+1 - lda (ptr1),y - sta $02C5 - lda #<(L0001+25) - ldx #>(L0001+25) - jsr pushax - ldy #$02 - jsr _printf - lda #<(L0001+61) - ldx #>(L0001+61) - jsr pushax - lda _config - ldx _config+1 - ldy #$11 - jsr incaxy - jsr pushax - ldy #$04 - jsr _printf - lda _stdout - ldx _stdout+1 - jsr _fflush - lda sp - ldx sp+1 - jsr pushax - lda #$40 - jsr pusha - jsr _get_line - lda sp - ldx sp+1 - jsr pushax - lda #<(L0001+68) - ldx #>(L0001+68) - jsr _strcasecmp - cpx #$00 - bne L007B - cmp #$00 - bne L007B - jsr _exit - jmp L0092 -L007B: lda sp - ldx sp+1 - jsr pushax - lda #<(L0001+70) - ldx #>(L0001+70) - jsr _strcasecmp - cpx #$00 - bne L0083 - cmp #$00 - bne L0083 - lda _atari_exec_p - ldx _atari_exec_p+1 - jsr pushax - lda #<(L0001+72) - ldx #>(L0001+72) - pha - ldy #$00 - lda (sp),y - sta jmpvec+1 - iny - lda (sp),y - sta jmpvec+2 - pla - jsr jmpvec - jsr incsp2 - ldy #$49 - jsr staxysp - lda #<(L0001+87) - ldx #>(L0001+87) - jsr pushax - ldy #$4E - jsr pushwysp - ldy #$04 - jsr _printf - ldy #$00 - jsr _bell - jmp L0061 -L0083: ldy #$00 - lda (sp),y - beq L0092 - lda _config - ldx _config+1 - ldy #$11 - jsr incaxy - jsr pushax - lda #$02 - jsr leaasp - jsr _strcpy -L0092: lda _config - ldx _config+1 - ldy #$10 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - jsr pusha - jsr _rs232dev_init - cmp #$00 - jne L0061 - lda #$41 - jsr leaasp - jsr pushax - jsr __clocks_per_sec - jsr shrax1 - jsr pushax - jsr _timer_set - jsr _uip_init - lda #<(_uip_hostaddr) - ldx #>(_uip_hostaddr) - jsr pushax - lda _config - ldx _config+1 - jsr incax4 - jsr pushax - ldx #$00 - lda #$04 - jsr _memcpy - lda #<(_uip_draddr) - ldx #>(_uip_draddr) - jsr pushax - lda _config - ldx _config+1 - jsr incax8 - jsr pushax - ldx #$00 - lda #$04 - jsr _memcpy - lda #$45 - jsr leaasp - sta sreg - stx sreg+1 - lda #$FF - ldy #$00 - sta (sreg),y - iny - sta (sreg),y - lda #$45 - jsr leaasp - sta sreg - stx sreg+1 - lda #$FF - iny - sta (sreg),y - iny - lda #$00 - sta (sreg),y - lda #<(_uip_netmask) - ldx #>(_uip_netmask) - jsr pushax - lda #$47 - jsr leaasp - jsr ldaxi - ldy #$00 - jsr staxspidx - lda #<(_uip_netmask) - ldx #>(_uip_netmask) - jsr pushax - lda #$47 - jsr leaasp - ldy #$03 - jsr ldaxidx - ldy #$02 - jsr staxspidx - lda _config - ldx _config+1 - ldy #$11 - jsr incaxy - jsr pushax - lda #$47 - jsr leaasp - jsr pushax - jsr _uiplib_ipaddrconv - tax - beq L00E3 - lda #$45 - jsr leaasp - jsr pushax - lda _config - ldx _config+1 - ldy #$53 - jsr pushwidx - jsr _htons - jsr pushax - jsr _uip_connect - jmp L00EB -L00E3: jsr _resolv_init - lda _config - ldx _config+1 - ldy #$0C - jsr incaxy - jsr pushax - jsr _resolv_conf - lda _config - ldx _config+1 - ldy #$11 - jsr incaxy - jsr pushax - jsr _resolv_query -L00EB: lda _done - jne L00F3 - jsr _rs232dev_poll - sta _uip_len - stx _uip_len+1 - cpx #$00 - bne L0526 - cmp #$00 - beq L00F7 -L0526: jsr pushc1 - jsr _uip_process - lda _uip_len - ora _uip_len+1 - jeq L011C - jsr _rs232dev_send - jmp L011C -L00F7: lda #$41 - jsr leaasp - jsr pushax - jsr _timer_expired - stx tmp1 - ora tmp1 - jeq L011C - lda #$41 - jsr leaasp - jsr pushax - jsr _timer_reset - ldx #$00 - txa -L0529: ldy #$49 - jsr staxysp - jsr pushax - lda #$01 - jsr toslta0 - beq L0107 - ldy #$4A - jsr ldaxysp - jsr pushax - lda #$23 - jsr tosmula0 - clc - adc #<(_uip_conns) - tay - txa - adc #>(_uip_conns) - tax - tya - sta _uip_conn - stx _uip_conn+1 - jsr pushc2 - jsr _uip_process - lda _uip_len - ora _uip_len+1 - beq L0108 - jsr _rs232dev_send -L0108: ldy #$4A - jsr ldaxysp - jsr incax1 - jmp L0529 -L0107: ldx #$00 - txa -L052A: ldy #$49 - jsr staxysp - jsr pushax - lda #$01 - jsr toslta0 - beq L011C - ldy #$4A - jsr ldaxysp - jsr pushax - lda #$0B - jsr tosmula0 - clc - adc #<(_uip_udp_conns) - tay - txa - adc #>(_uip_udp_conns) - tax - tya - sta _uip_udp_conn - stx _uip_udp_conn+1 - lda #$05 - jsr pusha - jsr _uip_process - lda _uip_len - ora _uip_len+1 - beq L011D - jsr _rs232dev_send -L011D: ldy #$4A - jsr ldaxysp - jsr incax1 - jmp L052A -L011C: lda _vbell_active - beq L0130 - lda #<(_vbell_timer) - ldx #>(_vbell_timer) - jsr pushax - jsr _timer_expired - stx tmp1 - ora tmp1 - beq L0130 - lda _config - ldx _config+1 - ldy #$93 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - sta $02C6 - lda #$00 - sta _vbell_active -L0130: jsr _kbhit - tax - beq L013C - jsr _handle_keystroke -L013C: lda _connected - jeq L00EB - lda _nick_registered - jne L00EB - lda #<(_nick_reg_timer) - ldx #>(_nick_reg_timer) - jsr pushax - jsr _timer_expired - stx tmp1 - ora tmp1 - jeq L00EB - lda #<(L0001+98) - ldx #>(L0001+98) - jsr _puts - lda _input_buf - ldx _input_buf+1 - jsr pushax - lda #<(L0001+117) - ldx #>(L0001+117) - jsr pushax - lda _config - ldx _config+1 - ldy #$54 - jsr incaxy - jsr pushax - lda #$0A - jsr pusha0 - lda _config - ldx _config+1 - ldy #$54 - jsr incaxy - jsr pushax - lda #<(L0001+146) - ldx #>(L0001+146) - jsr pushax - lda _config - ldx _config+1 - ldy #$11 - jsr incaxy - jsr pushax - lda _config - ldx _config+1 - ldy #$69 - jsr incaxy - jsr pushax - lda #$0A - jsr pusha0 - ldy #$12 - jsr _sprintf - lda _tstate - ldx _tstate+1 - jsr pushax - lda _input_buf - ldx _input_buf+1 - jsr pushax - lda _input_buf - ldx _input_buf+1 - jsr _strlen - jsr pushax - jsr _telnet_send - lda #$00 - sta _input_buf_len - sta _input_buf_len+1 - lda #$01 - sta _nick_registered - jmp L00EB -L00F3: lda #$00 - sta _joined_channel - sta _nick_registered - sta _connected - jmp L0061 - -.endproc - -; --------------------------------------------------------------- -; void __near__ err_missing_arg (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _err_missing_arg: near - -.segment "CODE" - - lda #<(L0001+155) - ldx #>(L0001+155) - jsr _puts - jmp _bell - -.endproc - -; --------------------------------------------------------------- -; void __near__ err_no_channel (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _err_no_channel: near - -.segment "CODE" - - lda #<(L0001+181) - ldx #>(L0001+181) - jsr _puts - jmp _bell - -.endproc - -; --------------------------------------------------------------- -; void __near__ err_already_joined (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _err_already_joined: near - -.segment "CODE" - - lda #<(L0001+227) - ldx #>(L0001+227) - jsr _puts - jmp _bell - -.endproc - -; --------------------------------------------------------------- -; void __near__ del_last_word (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _del_last_word: near - -.segment "CODE" - - lda _input_buf_len - ldx _input_buf_len+1 - jsr pushax - jsr push0 -L017E: lda _input_buf_len - ora _input_buf_len+1 - beq L017F - lda _input_buf - ldx _input_buf+1 - clc - adc _input_buf_len - pha - txa - adc _input_buf_len+1 - tax - pla - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$20 - bne L017F - ldx #$00 - lda #$01 - jsr addeq0sp - lda _input_buf_len - ldx _input_buf_len+1 - jsr decax1 - sta _input_buf_len - stx _input_buf_len+1 - jmp L017E -L017F: lda _input_buf_len - ora _input_buf_len+1 - beq L0187 - lda _input_buf - ldx _input_buf+1 - clc - adc _input_buf_len - pha - txa - adc _input_buf_len+1 - tax - pla - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$20 - beq L0187 - ldx #$00 - lda #$01 - jsr addeq0sp - lda _input_buf_len - ldx _input_buf_len+1 - jsr decax1 - sta _input_buf_len - stx _input_buf_len+1 - jmp L017F -L0187: ldy #$05 - jsr pushwysp - lda #$79 - jsr tosgea0 - beq L018E - lda _input_buf_len - ldx _input_buf_len+1 - jsr pushax - lda #$79 - jsr toslta0 - beq L018E - ldx #$00 - lda #$1C - jsr _putchar - ldx #$00 - lda #$9C - jsr _putchar - ldx #$00 - lda #$9C - jsr _putchar - ldy #$00 - jsr _redraw_user_buffer - jmp incsp4 -L018E: ldx #$00 - lda #$7E - jsr _putchar - ldx #$00 - lda #$01 - ldy #$00 - jsr subeqysp - stx tmp1 - ora tmp1 - bne L018E - jmp incsp4 - -.endproc - -; --------------------------------------------------------------- -; void __near__ send_ctcp_version (__near__ unsigned char*) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _send_ctcp_version: near - -.segment "CODE" - - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda #<(L0001+324) - ldx #>(L0001+324) - jsr pushax - ldy #$07 - jsr pushwysp - jsr push1 - jsr push1 - lda #$0A - jsr pusha0 - ldy #$0C - jsr _sprintf - lda _tstate - ldx _tstate+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr _strlen - jsr pushax - jsr _telnet_send - jmp incsp2 - -.endproc - -; --------------------------------------------------------------- -; void __near__ send_ctcp_ping (__near__ unsigned char*) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _send_ctcp_ping: near - -.segment "CODE" - - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda #<(L0001+349) - ldx #>(L0001+349) - jsr pushax - ldy #$07 - jsr pushwysp - jsr push1 - lda $0014 - jsr pusha0 - lda $0013 - jsr pusha0 - lda $0012 - jsr pusha0 - jsr push1 - lda #$0A - jsr pusha0 - ldy #$12 - jsr _sprintf - lda _tstate - ldx _tstate+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr _strlen - jsr pushax - jsr _telnet_send - jmp incsp2 - -.endproc - -; --------------------------------------------------------------- -; void __near__ do_me (__near__ unsigned char*) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _do_me: near - -.segment "CODE" - - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda #<(L0001+386) - ldx #>(L0001+386) - jsr pushax - lda #<(_channel) - ldx #>(_channel) - jsr pushax - jsr push1 - ldy #$0B - jsr pushwysp - jsr push1 - lda #$0A - jsr pusha0 - ldy #$0E - jsr _sprintf - lda _tstate - ldx _tstate+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr _strlen - jsr pushax - jsr _telnet_send - jmp incsp2 - -.endproc - -; --------------------------------------------------------------- -; void __near__ do_pong (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _do_pong: near - -.segment "CODE" - - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda _output_buf - ldx _output_buf+1 - jsr pushax - lda _output_buf_len - ldx _output_buf_len+1 - jsr _memcpy - lda _chan_msg_buf - sta sreg - lda _chan_msg_buf+1 - sta sreg+1 - lda #$4F - ldy #$01 - sta (sreg),y -L0343: jsr ldax0sp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - beq L0344 - jsr ldax0sp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$9B - bne L0346 - jsr ldax0sp - sta sreg - stx sreg+1 - lda #$0A - ldy #$00 - sta (sreg),y -L0346: jsr ldax0sp - jsr incax1 - jsr stax0sp - jmp L0343 -L0344: lda _tstate - ldx _tstate+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda _output_buf_len - ldx _output_buf_len+1 - jsr pushax - jsr _telnet_send - lda _config - ldx _config+1 - ldy #$96 - jsr ldaxidx - txa - and #$40 - jeq incsp2 - lda #<(L0001+591) - ldx #>(L0001+591) - jsr _puts - jmp incsp2 - -.endproc - -; --------------------------------------------------------------- -; void __near__ do_server_msg (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _do_server_msg: near - -.segment "CODE" - - lda _output_buf - ldx _output_buf+1 - jsr pushax - jsr decsp6 - jsr push0 - jsr decsp2 -L0356: ldy #$0B - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$20 - beq L0357 - ldy #$0A - ldx #$00 - lda #$01 - jsr addeqysp - jmp L0356 -L0357: ldy #$0A - ldx #$00 - lda #$01 - jsr addeqysp - ldy #$0B - jsr ldaxysp - ldy #$08 - jsr staxysp -L035D: ldy #$09 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$20 - beq L035E - ldy #$08 - ldx #$00 - lda #$01 - jsr addeqysp - jmp L035D -L035E: ldy #$09 - jsr ldaxysp - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - ldy #$08 - tax - lda #$01 - jsr addeqysp - lda _config - ldx _config+1 - ldy #$54 - jsr incaxy - jsr _strlen - jsr stax0sp - ldy #$0B - jsr pushwysp - lda _config - ldx _config+1 - ldy #$54 - jsr incaxy - jsr pushax - ldy #$05 - jsr ldaxysp - jsr _memcmp - cpx #$00 - bne L0367 - cmp #$00 - bne L0367 - jsr ldax0sp - jsr incax1 - ldy #$08 - jsr addeqysp -L0367: ldy #$0B - jsr ldaxysp - jsr _atoi - ldy #$02 - jsr staxysp - stx tmp1 - ora tmp1 - jeq L0370 - ldy #$03 - jsr ldaxysp - cpx #$01 - jne L039D - cmp #$3B - jeq L038C - cmp #$4C - beq L0379 - cmp #$4D - beq L037E - cmp #$60 - beq L038C - cmp #$61 - beq L038C - cmp #$6E - beq L038C - cmp #$74 - beq L0383 - cmp #$76 - beq L038C - cmp #$77 - beq L038B - jmp L039D -L0379: lda #<(L0001+603) - ldx #>(L0001+603) - jsr pushax - ldy #$0D - jsr pushwysp - ldy #$04 - jmp L052B -L037E: lda #<(L0001+615) - ldx #>(L0001+615) - jsr pushax - ldy #$0D - jsr pushwysp - ldy #$04 - jmp L052B -L0383: lda _config - ldx _config+1 - ldy #$96 - jsr ldaxidx - txa - and #$10 - tax - lda #$00 - jsr bnegax - beq L03A2 - ldy #$0B - jsr pushwysp - lda _stdout - ldx _stdout+1 - jsr _fputs - jmp L03A2 -L038B: lda _config - ldx _config+1 - ldy #$96 - jsr ldaxidx - txa - and #$10 - beq L038C - lda #<(L0001+633) - ldx #>(L0001+633) - jsr _puts - jmp L03A2 -L038C: ldy #$0B - jsr pushwysp - lda _stdout - ldx _stdout+1 - jsr _fputs - jmp L03A2 -L039D: lda #<(L0001+660) - ldx #>(L0001+660) - jsr pushax - ldy #$05 - jmp L0531 -L0370: lda #<(L0001+666) - ldx #>(L0001+666) - jsr pushax - ldy #$0D -L0531: jsr ldaxysp - jsr pushax - ldy #$0F - jsr pushwysp - ldy #$06 -L052B: jsr _printf -L03A2: ldy #$0C - jmp addysp - -.endproc - -; --------------------------------------------------------------- -; unsigned char __near__ do_ctcp (__near__ unsigned char*, __near__ unsigned char*) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _do_ctcp: near - -.segment "CODE" - - ldy #$0C - jsr subysp - ldy #$0F - jsr pushwysp - lda #<(L0001+672) - ldx #>(L0001+672) - jsr pushax - ldx #$00 - lda #$05 - jsr _memcmp - cpx #$00 - jne L03A8 - cmp #$00 - jne L03A8 - jsr _clock - jsr pusheax - ldx #$00 - stx sreg - stx sreg+1 - lda #$0A - jsr tosumuleax - ldy #$08 - jsr steaxysp - ldy #$0D - jsr ldaxysp - jsr incax5 - jsr _atoi - jsr axlong - jsr pusheax - ldy #$11 - jsr ldaxysp - ldy #$09 - jsr incaxy - jsr _atoi - jsr axlong - ldy sreg - sty sreg+1 - stx sreg - tax - lda #$00 - jsr tosaddeax - jsr pusheax - ldy #$11 - jsr ldaxysp - ldy #$0D - jsr incaxy - jsr _atoi - jsr axlong - stx sreg+1 - sta sreg - lda #$00 - tax - jsr tosaddeax - jsr pusheax - ldx #$00 - stx sreg - stx sreg+1 - lda #$0A - jsr tosmuleax - ldy #$04 - jsr steaxysp - ldy #$07 - jsr ldeaxysp - ldy #$08 - jsr lsubeqysp - ldy #$0B - jsr ldeaxysp - jsr pusheax - jsr __clocks_per_sec - jsr axulong - jsr tosudiveax - ldy #$08 - jsr steaxysp - ldy #$0B - jsr ldeaxysp - jsr pusheax - ldx #$00 - stx sreg - stx sreg+1 - lda #$0A - jsr tosdiveax - ldy #$02 - jsr staxysp - ldy #$0B - jsr ldeaxysp - jsr pusheax - ldx #$00 - stx sreg - stx sreg+1 - lda #$0A - jsr tosmodeax - jsr stax0sp - lda #<(L0001+678) - ldx #>(L0001+678) - jsr pushax - ldy #$13 - jsr pushwysp - ldy #$09 - jsr pushwysp - ldy #$09 - jsr pushwysp - ldy #$08 - jsr _printf - ldx #$00 - lda #$01 - jmp L03A7 -L03A8: ldx #$00 - txa -L03A7: ldy #$10 - jmp addysp - -.endproc - -; --------------------------------------------------------------- -; void __near__ do_msg (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _do_msg: near - -.segment "CODE" - - lda _output_buf - ldx _output_buf+1 - jsr pushax - lda _output_buf - ldx _output_buf+1 - jsr pushax - jsr push0 - jsr push0 - jsr push0 -L03D0: ldy #$07 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$20 - beq L03D1 - ldy #$07 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$21 - bne L03D3 - ldy #$07 - jsr ldaxysp - jsr stax0sp -L03D3: ldy #$06 - ldx #$00 - lda #$01 - jsr addeqysp - jmp L03D0 -L03D1: iny - lda (sp),y - dey - ora (sp),y - bne L03D8 - jsr _do_server_msg - jmp L03CA -L03D8: ldy #$07 - jsr ldaxysp - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - ldy #$06 - tax - lda #$01 - jsr addeqysp - ldy #$07 - jsr ldaxysp - ldy #$04 - jsr staxysp -L03E0: ldy #$05 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$20 - beq L03E1 - ldy #$04 - ldx #$00 - lda #$01 - jsr addeqysp - jmp L03E0 -L03E1: ldy #$05 - jsr ldaxysp - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - ldy #$04 - tax - lda #$01 - jsr addeqysp - ldy #$05 - jsr ldaxysp - ldy #$02 - jsr staxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$9B - beq L03F6 -L03EB: ldy #$03 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - beq L03EC - ldy #$03 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$20 - beq L03EC - ldy #$02 - ldx #$00 - lda #$01 - jsr addeqysp - jmp L03EB -L03EC: ldy #$03 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - beq L03F6 - ldy #$03 - jsr ldaxysp - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - ldy #$02 - tax - lda #$01 - jsr addeqysp - ldy #$03 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$3A - bne L03F6 - ldy #$02 - ldx #$00 - lda #$01 - jsr addeqysp -L03F6: ldy #$09 - jsr pushwysp - lda #<(L0001+701) - ldx #>(L0001+701) - jsr _strcmp - cpx #$00 - jne L03F9 - cmp #$00 - jne L03F9 - ldy #$09 - jsr ldaxysp - sta sreg - stx sreg+1 - lda #$3C - ldy #$00 - sta (sreg),y - jsr ldax0sp - sta sreg - stx sreg+1 - lda #$3E - ldy #$00 - sta (sreg),y - jsr ldax0sp - sta sreg - stx sreg+1 - lda #$00 - ldy #$01 - sta (sreg),y - ldy #$07 - jsr pushwysp - lda _config - ldx _config+1 - ldy #$54 - jsr incaxy - jsr _strcasecmp - cpx #$00 - bne L0533 - cmp #$00 - jeq L0407 -L0533: ldy #$05 - jsr pushwysp - lda #<(L0001+709) - ldx #>(L0001+709) - jsr pushax - ldx #$00 - lda #$08 - jsr _memcmp - cpx #$00 - bne L040C - cmp #$00 - bne L040C - ldy #$09 - jsr ldaxysp - jsr incax1 - ldy #$08 - jsr staxysp - jsr ldax0sp - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - lda _output_buf - ldx _output_buf+1 - jsr pushax - lda _output_buf_len - ldx _output_buf_len+1 - jsr decax2 - jsr tosaddax - sta sreg - stx sreg+1 - lda #$9B - ldy #$00 - sta (sreg),y - lda _output_buf - ldx _output_buf+1 - jsr pushax - lda _output_buf_len - ldx _output_buf_len+1 - jsr decax1 - jsr tosaddax - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - lda #<(L0001+718) - ldx #>(L0001+718) - jsr pushax - ldy #$0D - jsr pushwysp - ldy #$07 - jsr ldaxysp - jsr incax8 - jsr pushax - ldy #$06 - jmp L0532 -L040C: lda #<(L0001+726) - ldx #>(L0001+726) - jsr pushax - ldy #$0D - jsr pushwysp - ldy #$09 - jsr pushwysp - ldy #$06 - jmp L0532 -L0407: ldy #$05 - jsr pushwysp - lda #<(L0001+732) - ldx #>(L0001+732) - jsr pushax - ldx #$00 - lda #$06 - jsr _memcmp - cpx #$00 - jne L0425 - cmp #$00 - jne L0425 - ldy #$09 - jsr ldaxysp - jsr incax1 - ldy #$08 - jsr staxysp - jsr ldax0sp - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - lda _output_buf - ldx _output_buf+1 - jsr pushax - lda _output_buf_len - ldx _output_buf_len+1 - jsr decax2 - jsr tosaddax - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda #<(L0001+739) - ldx #>(L0001+739) - jsr pushax - ldy #$0F - jsr pushwysp - ldy #$09 - jsr ldaxysp - jsr incax6 - jsr pushax - lda #$0A - jsr pusha0 - tay - jsr _sprintf - lda _tstate - ldx _tstate+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr _strlen - jsr pushax - jsr _telnet_send - lda #<(L0001+762) - ldx #>(L0001+762) - jsr pushax - ldy #$0D - jsr pushwysp - ldy #$04 - jmp L0532 -L0425: ldy #$05 - jsr pushwysp - lda #<(L0001+783) - ldx #>(L0001+783) - jsr pushax - ldx #$00 - lda #$09 - jsr _memcmp - cpx #$00 - bne L0440 - cmp #$00 - bne L0440 - ldy #$09 - jsr ldaxysp - jsr incax1 - ldy #$08 - jsr staxysp - jsr ldax0sp - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda #<(L0001+793) - ldx #>(L0001+793) - jsr pushax - ldy #$0F - jsr pushwysp - lda #<(_os_version) - ldx #>(_os_version) - jsr pushax - lda #$0A - jsr pusha0 - tay - jsr _sprintf - lda _tstate - ldx _tstate+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr pushax - lda _chan_msg_buf - ldx _chan_msg_buf+1 - jsr _strlen - jsr pushax - jsr _telnet_send - lda #<(L0001+855) - ldx #>(L0001+855) - jsr pushax - ldy #$0D - jsr pushwysp - ldy #$04 - jmp L0532 -L0440: lda #<(L0001+879) - ldx #>(L0001+879) - jsr pushax - ldy #$0D - jsr pushwysp - ldy #$09 - jsr pushwysp - ldy #$06 - jsr _printf - lda _config - ldx _config+1 - ldy #$96 - jsr ldaxidx - txa - and #$80 - beq L045C - jsr _bell -L045C: jsr ldax0sp - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - lda #<(_last_msg_nick) - ldx #>(_last_msg_nick) - jsr pushax - ldy #$0B - jsr ldaxysp - jsr incax1 - jsr _strcpy - jmp L0482 -L03F9: ldy #$09 - jsr pushwysp - lda #<(L0001+890) - ldx #>(L0001+890) - jsr _strcmp - cpx #$00 - bne L0465 - cmp #$00 - bne L0465 - ldy #$03 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - cmp #$01 - bne L0465 - ldy #$09 - jsr ldaxysp - jsr incax1 - ldy #$08 - jsr staxysp - jsr ldax0sp - sta sreg - stx sreg+1 - lda #$00 - tay - sta (sreg),y - ldy #$0B - jsr pushwysp - ldy #$05 - jsr ldaxysp - jsr incax1 - jsr pushax - jsr _do_ctcp - tax - bne L0482 - lda #<(L0001+897) - ldx #>(L0001+897) - jsr pushax - ldy #$0D - jsr pushwysp - ldy #$07 - jsr ldaxysp - jsr incax1 - jsr pushax - ldy #$06 - jmp L0532 -L0465: ldy #$03 - jsr ldaxysp - ldy #$00 - sta ptr1 - stx ptr1+1 - lda (ptr1),y - beq L047A - lda #<(L0001+922) - ldx #>(L0001+922) - jsr pushax - ldy #$0D - jsr pushwysp - ldy #$0D - jsr pushwysp - ldy #$0D - jsr pushwysp - ldy #$0D - jsr pushwysp - ldy #$0A - jmp L0532 -L047A: lda #<(L0001+934) - ldx #>(L0001+934) - jsr pushax - ldy #$0D - jsr pushwysp - ldy #$0D - jsr pushwysp - ldy #$0D - jsr pushwysp - ldy #$08 -L0532: jsr _printf -L0482: lda _stdout - ldx _stdout+1 - jsr _fflush -L03CA: ldy #$0A - jmp addysp - -.endproc - -; --------------------------------------------------------------- -; void __near__ del_user_buffer (void) -; --------------------------------------------------------------- - -.segment "CODE" - -.proc _del_user_buffer: near - -.segment "CODE" - - lda _input_buf_len - ora _input_buf_len+1 - beq L048F - ldx #$00 - lda #$9C - jsr _putchar - lda _input_buf_len - ldx _input_buf_len+1 - jsr pushax - lda #$78 - jsr tosgea0 - beq L048F - ldx #$00 - lda #$1C - jsr _putchar - ldx #$00 - lda #$9C - jmp _putchar -L048F: rts - -.endproc - -- cgit v1.2.3