;:sys9*4096
	;.opt oo
	*=$c000
;
;
;
;**********************
;source-text created by
;    re-ass 64 v2.2
; (c) 1986 by sol labs
;**********************
;
chrout	   = $ffd2
;
labc800	 = $c800
labc81c	 = $c81c
labc8e1	 = $c8e1
labe544	 = $e544
labe56c	 = $e56c
labea31	 = $ea31
;
adr0286	 = $0286
adr0314	 = $0314
adr0315	 = $0315
adr0334	 = $0334
adrd020	 = $d020
adrd021	 = $d021
;
zpg02	   = $02
zpgcb	   = $cb
zpgd3	   = $d3
;
	jsr labc06b
	lda #$00
	sta adrd021
	sta adrd020
	lda #$0d
	sta adr0286
	nop
	nop
	sei
	lda adr0315
	cmp #$c0
	beq labc02d
	sta adrc037
	lda adr0314
	sta adrc036
	lda #$c0
	sta adr0315
	lda #$32
	sta adr0314
labc02d	cli
	nop
	nop
	nop
labc031	rts
;
	jsr labc038
	.byt $4c
adrc036	.byt $31
adrc037	.byt $ea
labc038	lda adr0334
	bne labc031
	lda zpgcb
	cmp #$04
	beq labc046
	jmp labc054
;
labc046	lda #$01
	sta adr0334
	jsr labc800
	lda #$00
	sta adr0334
	rts
;
labc054	cmp #$05
	beq labc05b
	jmp labc07a
;
labc05b	lda #$01
	sta adr0334
	jsr labc073
	lda #$00
	sta adr0334
	rts
;
	nop
	nop
labc06b	lda #$00
	sta adr0334
	rts
;
	nop
	nop
labc073	jsr labe544
	nop
	jmp labc81c
;
labc07a	cmp #$06
	beq labc081
	jmp labc0a9
;
labc081	lda #$01
	nop
	sta adr0334
	jsr labc8e1
	lda #$00
	sta adr0334
	rts
;
labc090	lda #$00
	sta zpgd3
	jsr labe56c
	ldy #$00
labc099	lda adrc0be,y
	sty zpg02
	jsr chrout
	ldy zpg02
	iny
	cpy #$1c
	bne labc099
	rts
;
labc0a9	cmp #$03
	beq labc0b0
	rts
;
	nop
	nop
labc0b0	lda #$01
	sta adr0334
	jsr labc090
	lda #$00
	sta adr0334
	rts
;
adrc0be	.byt $4c,$cf,$1d,$1d,$1d,$1d,$1d,$1d
	.byt $1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d
	.byt $1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d
	.byt $2c,$38,$2c,$31
	nop
n*=$c800
setmsg	   = $ff90
second	   = $ff93
tksa	     = $ff96
acptr	    = $ffa5
ciout	    = $ffa8
untlk	    = $ffab
unlsn	    = $ffae
listen	   = $ffb1
talk	     = $ffb4
setlfs	   = $ffba
setnam	   = $ffbd
open	     = $ffc0
close	    = $ffc3
chkin	    = $ffc6
clrchn	   = $ffcc
chrin	    = $ffcf
chrout	   = $ffd2
getin	    = $ffe4
;
laba483	 = $a483
labaad7	 = $aad7
labbdcd	 = $bdcd
;
adr02a6	 = $02a6
adr02a7	 = $02a7
adr0313	 = $0313
adr03f0	 = $03f0
adr03f1	 = $03f1
;
zpgb2	   = $b2
zpgb9	   = $b9
zpgba	   = $ba
;
labc800	lda #$08
	sta zpgba
	jsr talk
	lda #$6f
	sta zpgb9
	jsr tksa
labc80e	jsr acptr
	jsr chrout
	cmp #$0d
	bne labc80e
	jsr untlk
	rts
;
	lda #$01
	jsr close
	lda #$24
	sta adr03f0
	lda #$30
	sta adr03f1
	lda #$01
	ldx #$08
	ldy #$00
	jsr setlfs
	lda #$02
	ldx #$f0
	ldy #$03
	jsr setnam
	jsr open
	lda #$40
	jsr setmsg
	ldx #$01
	jsr chkin
	jsr setmsg
	jsr chrin
	jsr chrin
labc853	jsr chrin
	jsr chrin
	cmp #$00
	beq labc897
	jsr clrchn
	jsr getin
	beq labc86a
	nop
	nop
	jsr labc8a4
labc86a	ldx #$01
	jsr chkin
	jsr chrin
	tay
	jsr chrin
	pha
	tya
	tax
	pla
	jsr labbdcd
	lda #$20
	jsr chrout
labc882	jsr chrin
	cmp #$00
	bne labc891
	lda #$0d
	jsr chrout
	jmp labc853
;
labc891	jsr chrout
	jmp labc882
;
labc897	lda #$01
	jsr close
	jsr clrchn
	lda #$cc
	sta zpgb2
	rts
;
labc8a4	cmp #$03
	beq labc8b5
	cmp #$20
	beq labc8ad
	rts
;
labc8ad	jsr getin
	cmp #$20
	bne labc8ad
	rts
;
labc8b5	jsr labc897
	jmp laba483
;
labc8bb	lda #$3e
	jsr chrout
	ldx #$00
labc8c2	stx adr0313
	jsr chrin
	ldx adr0313
	sta adr02a7,x
	cmp #$0d
	beq labc8d5
	inx
	bne labc8c2
labc8d5	rts
;
labc8d6	lda #$0d
	ldx #$50
labc8da	sta adr02a6,x
	dex
	bne labc8da
	rts
;
	jsr labc8d6
	jsr labc8bb
	jsr labc917
	sta zpgba
	jsr listen
	lda #$6f
	sta zpgb9
	jsr second
labc8f6	jsr labc906
	cmp #$0d
	beq labc903
	jsr ciout
	jmp labc8f6
;
labc903	jmp labc911
;
labc906	ldx adr03f0
	lda adr02a7,x
	inx
	stx adr03f0
	rts
;
labc911	jsr unlsn
	jmp labc920
;
labc917	ldx #$00
	stx adr03f0
	lda #$08
	nop
	rts
;
labc920	jsr labaad7
	jmp labc800
;