global	?_atof
	global	?_builtin
	global	?_diag
	global	?_exit
	global	?_fabt
	global	?_fatn
	global	?_fcos
	global	?_fexp
	global	?_fitr
	global	?_flog
	global	?_fprintf
	global	?_fputc
	global	?_fran
	global	?_fsgn
	global	?_fsin
	global	?_fsqt
	global	?_getline
	global	?_getlno
	global	?_getnum
	global	?_inject
	global	?_malloc
	global	?_printf
	global	?_putline
	global	?_save
	global	?_sprintf
	global	?_strcpy
	global	?_strlen
	global	?_tolower
	global	?a_ask
	global	?a_builtin
	global	?a_clearfors
	global	?a_erasesyms
	global	?a_freecontrol
	global	?a_getline
	global	?a_inject
	global	?a_main
	global	?a_newcontrol
	global	?a_popcntl
	global	?a_process
	global	?a_pushcntl
	global	?a_save
	global	?a_type
	global	__ctype_
	global	__iob
	global	_abuf
	global	_alocline
	signat	_alocline,4217
	global	_ask
	signat	_ask,88
	FNSIZE	_ask,3,0
	FNCALL	_ask,_fputc
	FNCALL	_ask,_diag
	FNCALL	_ask,_getsym
	FNCALL	_ask,_printf
	FNCALL	_ask,_gets
	FNCALL	_ask,_atof
	FNCALL	_ask,_getnb
	global	_atof
	signat	_atof,4211
	global	_badline
	signat	_badline,88
	FNCALL	_badline,_diag
	global	_builtin
	signat	_builtin,8312
	FNSIZE	_builtin,5,4
	FNCALL	_builtin,_strlen
	FNCALL	_builtin,_malloc
	FNCALL	_builtin,_fprintf
	FNCALL	_builtin,_exit
	FNCALL	_builtin,_strcpy
	FNCALL	_builtin,string_table
	global	_catchcc
	signat	_catchcc,88
	global	_cbuf
	global	_clearfors
	signat	_clearfors,4216
	FNSIZE	_clearfors,3,0
	FNCALL	_clearfors,_popfor
	FNCALL	_clearfors,_freecontrol
	global	_clp
	global	_controlv
	global	_ctp
	global	_diag
	signat	_diag,4216
	global	_env
	global	_erasesyms
	signat	_erasesyms,88
	FNSIZE	_erasesyms,4,0
	FNCALL	_erasesyms,_free
	global	_eval
	signat	_eval,83
	global	_exit
	signat	_exit,4216
	global	_fabt
	signat	_fabt,4211
	FNADDR	_fabt
	global	_fatn
	signat	_fatn,4211
	FNADDR	_fatn
	global	_fcos
	signat	_fcos,4211
	FNADDR	_fcos
	global	_fexp
	signat	_fexp,4211
	FNADDR	_fexp
	global	_fgetc
	signat	_fgetc,4194
	global	_fitr
	signat	_fitr,4211
	FNADDR	_fitr
	global	_flog
	signat	_flog,4211
	FNADDR	_flog
	global	_forlimit
	global	_forsp
	global	_forstep
	global	_fprintf
	signat	_fprintf,4674
	global	_fputc
	signat	_fputc,8290
	global	_fran
	signat	_fran,4211
	FNADDR	_fran
	global	_free
	signat	_free,4216
	global	_freecontrol
	signat	_freecontrol,4216
	FNSIZE	_freecontrol,1,0
	global	_fsgn
	signat	_fsgn,4211
	FNADDR	_fsgn
	global	_fsin
	signat	_fsin,4211
	FNADDR	_fsin
	global	_fsqt
	signat	_fsqt,4211
	FNADDR	_fsqt
	global	_getline
	signat	_getline,8290
	FNSIZE	_getline,3,1
	FNCALL	_getline,_fgetc
	global	_getlno
	signat	_getlno,8312
	global	_getnb
	signat	_getnb,66
	global	_getnum
	signat	_getnum,4194
	global	_gets
	signat	_gets,4201
	global	_getsym
	signat	_getsym,89
	global	_inject
	signat	_inject,4216
	FNSIZE	_inject,7,2
	FNCALL	_inject,_getlno
	FNCALL	_inject,_diag
	FNCALL	_inject,_free
	FNCALL	_inject,_getnb
	FNCALL	_inject,_alocline
	FNCALL	_inject,_strcpy
	global	_intflag
	global	_library
	signat	_library,88
	global	_linev
	global	_main
	signat	_main,66
	FNSIZE	_main,2,0
	FNCALL	_main,_builtin
	FNCALL	_main,_setjmp
	FNCALL	_main,_catchcc
	FNCALL	_main,_fputc
	FNCALL	_main,_gets
	FNCALL	_main,_getnb
	FNCALL	_main,_inject
	FNCALL	_main,_process
	FNCALL	_main,string_table
	global	_malloc
	signat	_malloc,4217
	global	_mode
	global	_newcontrol
	signat	_newcontrol,89
	FNSIZE	_newcontrol,1,0
	FNCALL	_newcontrol,_malloc
	FNCALL	_newcontrol,_diag
	global	_popcntl
	signat	_popcntl,88
	FNSIZE	_popcntl,1,0
	FNCALL	_popcntl,_freecontrol
	global	_popdo
	signat	_popdo,88
	FNCALL	_popdo,_diag
	FNCALL	_popdo,_popcntl
	global	_popfor
	signat	_popfor,88
	FNCALL	_popfor,_diag
	FNCALL	_popfor,_popcntl
	global	_printf
	signat	_printf,578
	FNARG	_printf,_eval
	global	_process
	signat	_process,88
	FNSIZE	_process,22,0
	FNCALL	_process,_diag
	FNCALL	_process,_getnb
	FNCALL	_process,_popfor
	FNCALL	_process,_popdo
	FNCALL	_process,_tolower
	FNCALL	_process,_ask
	FNCALL	_process,_getlno
	FNCALL	_process,_pushcntl
	FNCALL	_process,_badline
	FNCALL	_process,_erasesyms
	FNCALL	_process,_free
	FNCALL	_process,_getsym
	FNCALL	_process,_clearfors
	FNCALL	_process,_eval
	FNCALL	_process,_library
	FNCALL	_process,_exit
	FNCALL	_process,_type
	FNCALL	_process,_save
	FNCALL	_process,ftadd_f
	FNCALL	_process,ftcmp
	FNCALL	_process,string_table
	global	_pushcntl
	signat	_pushcntl,88
	FNSIZE	_pushcntl,1,0
	FNCALL	_pushcntl,_newcontrol
	global	_putline
	signat	_putline,8312
	global	_save
	signat	_save,8312
	FNSIZE	_save,10,1
	FNCALL	_save,_diag
	FNCALL	_save,_putline
	FNCALL	_save,_fputc
	global	_setjmp
	signat	_setjmp,4194
	global	_sprintf
	signat	_sprintf,4674
	global	_strcpy
	signat	_strcpy,8297
	global	_strlen
	signat	_strlen,4202
	global	_symv
	global	_tolower
	signat	_tolower,4201
	global	_type
	signat	_type,88
	FNSIZE	_type,11,0
	FNCALL	_type,_strcpy
	FNCALL	_type,_getnb
	FNCALL	_type,_getnum
	FNCALL	_type,_diag
	FNCALL	_type,_sprintf
	FNCALL	_type,_fputc
	FNCALL	_type,_eval
	FNCALL	_type,_printf
	global	code_ptr
	global	ftadd_f
	global	ftcmp
	global	start
	global	string_table
	global	used_btemp0
	global	used_btemp1
	global	used_btemp2
	global	used_btemp3
	global	used_btemp4
	global	used_btemp5
	global	used_code_ptr
	processor	12F629
	psect	text0,local,class=CODE,delta=2
	psect	text1,local,class=CODE,delta=2
	psect	text2,local,class=CODE,delta=2
	psect	text3,local,class=CODE,delta=2
	psect	text4,local,class=CODE,delta=2
	psect	text5,local,class=CODE,delta=2
	psect	text6,local,class=CODE,delta=2
	psect	text7,local,class=CODE,delta=2
	psect	text8,local,class=CODE,delta=2
	psect	text9,local,class=CODE,delta=2
	psect	text10,local,class=CODE,delta=2
	psect	text11,local,class=CODE,delta=2
	psect	text12,local,class=CODE,delta=2
	psect	text13,local,class=CODE,delta=2
	psect	text14,local,class=CODE,delta=2
	psect	rdata_0,global,class=BANK0,space=1
	psect	idata_0,global,class=CODE,delta=2
	psect	text15,local,class=CODE,delta=2
	psect	text16,local,class=CODE,delta=2
	psect	strings,global,class=STRING,delta=2
	psect	rbss_0,global,class=BANK0,space=1
	psect	fpp__fsin,global,ovrld,class=CONST,delta=2
	psect	fpp__fcos,global,ovrld,class=CONST,delta=2
	psect	fpp__fexp,global,ovrld,class=CONST,delta=2
	psect	fpp__flog,global,ovrld,class=CONST,delta=2
	psect	fpp__fatn,global,ovrld,class=CONST,delta=2
	psect	fpp__fsqt,global,ovrld,class=CONST,delta=2
	psect	fpp__fabt,global,ovrld,class=CONST,delta=2
	psect	fpp__fsgn,global,ovrld,class=CONST,delta=2
	psect	fpp__fitr,global,ovrld,class=CONST,delta=2
	psect	fpp__fran,global,ovrld,class=CONST,delta=2
	psect	temp,global,ovrld,class=BANK0,space=1
	file	"c:\DOCUME~1\Vince\LOCALS~1\Temp\s1fc."


	psect	text0
	file	"focal0.c"
	line	70
_main
;	_c assigned to ?a_main+0
_main$c	set	?a_main
	line	74
;focal0.c: 69: main()
	movlw	low u19
	bcf	3,5
	movwf	?_builtin
	movlw	high u19
	movwf	?_builtin+1
	movlw	low (fpl__fsin+1)
	movwf	?_builtin+2
	movlw	high (fpl__fsin+1)
	movwf	?_builtin+3
	bcf	3,5
	call	_builtin
	line	75
;focal0.c: 75: builtin("fcos", fcos);
	movlw	low u29
	movwf	?_builtin
	movlw	high u29
	movwf	?_builtin+1
	movlw	low (fpl__fcos+1)
	movwf	?_builtin+2
	movlw	high (fpl__fcos+1)
	movwf	?_builtin+3
	call	_builtin
	line	76
;focal0.c: 76: builtin("fexp", fexp);
	movlw	low u39
	movwf	?_builtin
	movlw	high u39
	movwf	?_builtin+1
	movlw	low (fpl__fexp+1)
	movwf	?_builtin+2
	movlw	high (fpl__fexp+1)
	movwf	?_builtin+3
	call	_builtin
	line	77
;focal0.c: 77: builtin("flog", flog);
	movlw	low u49
	movwf	?_builtin
	movlw	high u49
	movwf	?_builtin+1
	movlw	low (fpl__flog+1)
	movwf	?_builtin+2
	movlw	high (fpl__flog+1)
	movwf	?_builtin+3
	call	_builtin
	line	78
;focal0.c: 78: builtin("fatn", fatn);
	movlw	low u59
	movwf	?_builtin
	movlw	high u59
	movwf	?_builtin+1
	movlw	low (fpl__fatn+1)
	movwf	?_builtin+2
	movlw	high (fpl__fatn+1)
	movwf	?_builtin+3
	call	_builtin
	line	79
;focal0.c: 79: builtin("fsqt", fsqt);
	movlw	low u69
	movwf	?_builtin
	movlw	high u69
	movwf	?_builtin+1
	movlw	low (fpl__fsqt+1)
	movwf	?_builtin+2
	movlw	high (fpl__fsqt+1)
	movwf	?_builtin+3
	call	_builtin
	line	80
;focal0.c: 80: builtin("fabs", fabt);
	movlw	low u79
	movwf	?_builtin
	movlw	high u79
	movwf	?_builtin+1
	movlw	low (fpl__fabt+1)
	movwf	?_builtin+2
	movlw	high (fpl__fabt+1)
	movwf	?_builtin+3
	call	_builtin
	line	81
;focal0.c: 81: builtin("fsgn", fsgn);
	movlw	low u89
	movwf	?_builtin
	movlw	high u89
	movwf	?_builtin+1
	movlw	low (fpl__fsgn+1)
	movwf	?_builtin+2
	movlw	high (fpl__fsgn+1)
	movwf	?_builtin+3
	call	_builtin
	line	82
;focal0.c: 82: builtin("fitr", fitr);
	movlw	low u99
	movwf	?_builtin
	movlw	high u99
	movwf	?_builtin+1
	movlw	low (fpl__fitr+1)
	movwf	?_builtin+2
	movlw	high (fpl__fitr+1)
	movwf	?_builtin+3
	call	_builtin
	line	83
;focal0.c: 83: builtin("fran", fran);
	movlw	low u109
	movwf	?_builtin
	movlw	high u109
	movwf	?_builtin+1
	movlw	low (fpl__fran+1)
	movwf	?_builtin+2
	movlw	high (fpl__fran+1)
	movwf	?_builtin+3
	call	_builtin
	line	85
;focal0.c: 85: setjmp(env);
	movlw	_env
	call	_setjmp
	line	86
;focal0.c: 86: catchcc();
	call	_catchcc
	line	91
;focal0.c: 91: break;
	goto	l13
	line	92
l16
	line	93
;focal0.c: 92: }
	clrf	_mode
	clrf	_mode+1
	line	94
;focal0.c: 94: clp = (0);
	clrf	_clp
	line	95
;focal0.c: 95: ctp = cbuf;
	movlw	_cbuf
	movwf	_ctp
	line	96
;focal0.c: 96: if ((c=getnb()) != 0) {
	call	_getnb
	movf	btemp,w
	movwf	?a_main
	movf	btemp+1,w
	movwf	?a_main+1
	iorwf	?a_main,w
	btfsc	3,2
	goto	l13
	line	97
;focal0.c: 97: if (((_ctype_+1)[(unsigned char)(c)]&0x04))
	movf	?a_main,w
	movwf	btemp
	clrf	btemp+1
	movlw	1
	addwf	btemp
	btfsc	3,0
	incf	btemp+1
	movf	btemp+1,w
	addlw	high __ctype_
	movwf	code_ptr+1
	movf	btemp,w
	addlw	low __ctype_
	btfsc	3,0
	incf	code_ptr+1
	call	string_table
	movwf	btemp
	btfss	btemp,2
	goto	l18
	line	98
;focal0.c: 98: inject(c);
	movf	?a_main,w
	movwf	?_inject
	movf	?a_main+1,w
	movwf	?_inject+1
	call	_inject
	goto	l13
	line	99
l18
	line	100
;focal0.c: 99: else {
	decf	_ctp
	line	101
;focal0.c: 101: process();
	call	_process
	line	87
;focal0.c: 102: }
l13
	line	88
;focal0.c: 87: for (;;) {
;focal0.c: 88: fputc('*',(&_iob[1]));
	movlw	42
	movwf	?_fputc
	clrf	?_fputc+1
	movlw	__iob+10
	movwf	?_fputc+2
	call	_fputc
	line	89
;focal0.c: 89: if (gets(cbuf) == (0)) {
	movlw	_cbuf
	call	_gets
	iorlw	0
	btfss	3,2
	goto	l16
	line	90
;focal0.c: 90: fputc('\n',(&_iob[1]));
	movlw	10
	movwf	?_fputc
	clrf	?_fputc+1
	movlw	__iob+10
	movwf	?_fputc+2
	call	_fputc
	line	105
;focal0.c: 105: return 0;
	clrf	btemp
	clrf	btemp+1
	line	106
;focal0.c: 106: }
	ljmp	start

	psect	text1
	line	118
_builtin
;	_sp assigned to ?a_builtin+0
_builtin$sp	set	?a_builtin
;	_ix assigned to ?a_builtin+1
_builtin$ix	set	?a_builtin+1
	line	119
;focal0.c: 115: void builtin(cp, fp)
	bcf	3,5
	clrf	?a_builtin
	line	122
;focal0.c: 120: int ix;
	movf	?_builtin,w
	movwf	?_strlen
	movf	?_builtin+1,w
	movwf	?_strlen+1
	bcf	3,5
	call	_strlen
	movlw	10
	addwf	btemp,w
	movwf	?_malloc
	movlw	0
	btfsc	3,0
	movlw	1
	addwf	btemp+1,w
	movwf	?_malloc+1
	call	_malloc
	movwf	?a_builtin
	line	123
;focal0.c: 123: if (sp == (0)) {
	movf	?a_builtin
	btfss	3,2
	goto	l21
	line	124
;focal0.c: 124: fprintf((&_iob[2]), "No memory for %s\n", cp);
	movlw	low u119
	movwf	?_fprintf+1
	movlw	high u119
	movwf	?_fprintf+2
	movf	?_builtin,w
	movwf	?a_builtin+3
	movf	?_builtin+1,w
	movwf	?a_builtin+4
	movlw	?a_builtin+3
	movwf	?_fprintf
	movlw	__iob+20
	call	_fprintf
	line	125
;focal0.c: 125: exit(1);
	clrf	?_exit
	incf	?_exit
	clrf	?_exit+1
	call	_exit
	line	126
l21
	line	127
;focal0.c: 126: }
	movf	?_builtin+1,w
	movwf	code_ptr+1
	movf	?_builtin,w
	addlw	1
	btfsc	3,0
	incf	code_ptr+1
	call	string_table
	movwf	btemp+2
	clrf	btemp+3
	movlw	5
	movwf	btemp
u55
	bcf	3,0
	rlf	btemp+2
	rlf	btemp+3
	decfsz	btemp
	goto	u55
	movf	?_builtin+1,w
	movwf	code_ptr+1
	movf	?_builtin,w
	call	string_table
	movwf	btemp
	clrf	btemp+1
	movf	btemp+2,w
	addwf	btemp
	btfsc	3,0
	incf	btemp+1
	movf	btemp+3,w
	addwf	btemp+1
	movlw	255
	andwf	btemp,w
	movwf	?a_builtin+1
	clrf	?a_builtin+2
	line	128
;focal0.c: 128: sp->s_fp = symv[ix];
	addlw	_symv
	movwf	4
	movf	0,w
	movwf	btemp
	movf	?a_builtin,w
	movwf	4
	movf	btemp,w
	movwf	0
	line	129
;focal0.c: 129: symv[ix] = sp;
	movf	?a_builtin+1,w
	addlw	_symv
	movwf	4
	movf	?a_builtin,w
	movwf	0
	line	130
;focal0.c: 130: sp->s_type = 2;
	incf	?a_builtin,w
	movwf	4
	movlw	2
	movwf	0
	incf	4
	clrf	0
	line	131
;focal0.c: 131: sp->s_subs = 0;
	movf	?a_builtin,w
	addlw	3
	movwf	4
	clrf	0
	incf	4
	clrf	0
	line	132
;focal0.c: 132: sp->s_un.s_fp = fp;
	movf	?a_builtin,w
	addlw	5
	movwf	4
	movf	?_builtin+2,w
	movwf	0
	incf	4
	movf	?_builtin+3,w
	movwf	0
	line	133
;focal0.c: 133: strcpy(sp->s_id, cp);
	movf	?_builtin,w
	movwf	?_strcpy
	movf	?_builtin+1,w
	movwf	?_strcpy+1
	movf	?a_builtin,w
	addlw	8
	goto	_strcpy

	psect	text2
	line	166
_process
;	_lp3 assigned to ?a_process+0
_process$lp3	set	?a_process
;	_lp1 assigned to ?a_process+1
_process$lp1	set	?a_process+1
;	_sp assigned to ?a_process+2
_process$sp	set	?a_process+2
;	_lp2 assigned to ?a_process+3
_process$lp2	set	?a_process+3
;	_lp assigned to ?a_process+4
_process$lp	set	?a_process+4
;	_grp assigned to ?a_process+5
_process$grp	set	?a_process+5
;	_c assigned to ?a_process+7
_process$c	set	?a_process+7
;	_limit assigned to ?a_process+9
_process$limit	set	?a_process+9
;	_value assigned to ?a_process+12
_process$value	set	?a_process+12
;	_step assigned to ?a_process+15
_process$step	set	?a_process+15
;	_lno assigned to ?a_process+18
_process$lno	set	?a_process+18
	line	167
;focal0.c: 165: void process()
	bcf	3,5
	clrf	?a_process+15
	movlw	128
	movwf	?a_process+16
	movlw	63
	movwf	?a_process+17
	line	174
;focal0.c: 168: float value;
	clrf	?a_process+5
	clrf	?a_process+6
	line	176
l23
	line	177
;focal0.c: 176: loop:
;focal0.c: 177: if (intflag) {
	movf	_intflag+1,w
	iorwf	_intflag,w
	btfsc	3,2
	goto	l25
	line	178
;focal0.c: 178: intflag = 0;
	clrf	_intflag
	clrf	_intflag+1
	line	179
;focal0.c: 179: diag("^C");
	movlw	low u129
	movwf	?_diag
	movlw	high u129
	movwf	?_diag+1
	bcf	3,5
	call	_diag
	line	182
;focal0.c: 180: }
l25
	line	181
;focal0.c: 182: ;
	bcf	3,5
	call	_getnb
	movf	btemp,w
	movwf	?a_process+7
	movf	btemp+1,w
	movwf	?a_process+8
	movwf	btemp+1
	movf	?a_process+7,w
	movwf	btemp
	xorlw	59
	iorwf	btemp+1,w
	btfsc	3,2
	goto	l25
	line	183
;focal0.c: 183: if (c == 0) {
	movf	?a_process+8,w
	iorwf	?a_process+7,w
	btfss	3,2
	goto	l36
	line	184
;focal0.c: 184: if (mode == 4) {
	movf	_mode,w
	xorlw	4
	iorwf	_mode+1,w
	btfss	3,2
	goto	l29
	line	185
;focal0.c: 185: forsp->s_un.s_value += forstep;
	movf	_forstep,w
	movwf	btemp+3
	movf	_forstep+1,w
	movwf	btemp+4
	movf	_forstep+2,w
	movwf	btemp+5
	movf	_forsp,w
	addlw	5
	movwf	4
	call	ftadd_f
	line	187
;focal0.c: 186: if ((forstep>0.0 && forsp->s_un.s_value<=forlimit)
	bcf	3,5
	movf	_forstep,w
	movwf	btemp+3
	movf	_forstep+1,w
	movwf	btemp+4
	movf	_forstep+2,w
	movwf	btemp+5
	movlw	0
	clrf	btemp
	clrf	btemp+1
	clrf	btemp+2
	call	ftcmp
	btfsc	3,0
	goto	u121
	movf	_forsp,w
	addlw	5
	movwf	4
	movf	0,w
	movwf	btemp+3
	incf	4
	movf	0,w
	movwf	btemp+4
	incf	4
	movf	0,w
	movwf	btemp+5
	movf	_forlimit,w
	movwf	btemp
	movf	_forlimit+1,w
	movwf	btemp+1
	movf	_forlimit+2,w
	movwf	btemp+2
	call	ftcmp
	btfsc	3,0
	goto	u160
u121
	clrf	btemp+3
	clrf	btemp+4
	clrf	btemp+5
	movf	_forstep,w
	movwf	btemp
	movf	_forstep+1,w
	movwf	btemp+1
	movf	_forstep+2,w
	movwf	btemp+2
	call	ftcmp
	btfsc	3,0
	goto	l30
	movf	_forlimit,w
	movwf	btemp+3
	movf	_forlimit+1,w
	movwf	btemp+4
	movf	_forlimit+2,w
	movwf	btemp+5
	movf	_forsp,w
	addlw	5
	movwf	4
	movf	0,w
	movwf	btemp
	incf	4
	movf	0,w
	movwf	btemp+1
	incf	4
	movf	0,w
	movwf	btemp+2
	call	ftcmp
	btfss	3,0
	goto	l30
u160
	line	188
;focal0.c: 188: clp = controlv->c_lp;
	movf	_controlv,w
	addlw	3
	movwf	4
	movf	0,w
	movwf	_clp
	line	189
;focal0.c: 189: ctp = controlv->c_tp;
	movf	_controlv,w
	addlw	4
	movwf	4
	movf	0,w
	goto	L9
	line	191
;focal0.c: 190: goto loop;
l30
	line	192
;focal0.c: 191: }
	call	_popfor
	line	193
l29
	line	194
;focal0.c: 193: }
	movf	_clp
	btfsc	3,2
	goto	l31
	line	195
;focal0.c: 195: grp = clp->l_gno;
	movf	_clp,w
	addlw	2
	movwf	4
	movf	0,w
	movwf	?a_process+5
	clrf	?a_process+6
	line	196
;focal0.c: 196: clp = clp->l_fp;
	movf	_clp,w
	movwf	4
	movf	0,w
	movwf	_clp
	line	197
;focal0.c: 197: ctp = clp->l_text;
	addlw	3
	movwf	_ctp
	line	198
l31
	line	199
;focal0.c: 198: }
	movf	_clp
	btfss	3,2
	goto	l32
	line	200
;focal0.c: 200: if (mode == 0)
	movf	_mode+1,w
	iorwf	_mode,w
	btfsc	3,2
	return
	goto	L11
	line	203
;focal0.c: 201: return;
;focal0.c: 202: popdo();
;focal0.c: 203: } else if (mode == 1
l32
	line	204
;focal0.c: 204: || (mode==2 && grp!=clp->l_gno))
	decf	_mode,w
	iorwf	_mode+1,w
	btfsc	3,2
	goto	L11
	movf	_mode,w
	xorlw	2
	iorwf	_mode+1,w
	btfss	3,2
	goto	l23
	movf	_clp,w
	addlw	2
	movwf	4
	movf	0,w
	movwf	btemp
	clrf	btemp+1
	movf	?a_process+6,w
	xorwf	btemp+1,w
	btfss	3,2
	goto	u225
	movf	?a_process+5,w
	xorwf	btemp,w
u225
	btfsc	3,2
	goto	l23
	goto	L11
	line	208
;focal0.c: 205: popdo();
;focal0.c: 206: goto loop;
;focal0.c: 207: }
l37
	line	209
;focal0.c: 209: ++ctp;
	incf	_ctp
l36
	line	208
	movf	_ctp,w
	movwf	4
	movf	0,w
	movwf	btemp
	clrf	btemp+1
	movlw	1
	addwf	btemp
	btfsc	3,0
	incf	btemp+1
	movf	btemp+1,w
	addlw	high __ctype_
	movwf	code_ptr+1
	movf	btemp,w
	addlw	low __ctype_
	btfsc	3,0
	incf	code_ptr+1
	call	string_table
	andlw	3
	btfss	3,2
	goto	l37
	line	210
;focal0.c: 210: if (((_ctype_+1)[(unsigned char)(c)]&0x01))
	movf	?a_process+7,w
	movwf	btemp
	clrf	btemp+1
	movlw	1
	addwf	btemp
	btfsc	3,0
	incf	btemp+1
	movf	btemp+1,w
	addlw	high __ctype_
	movwf	code_ptr+1
	movf	btemp,w
	addlw	low __ctype_
	btfsc	3,0
	incf	code_ptr+1
	call	string_table
	movwf	btemp
	btfss	btemp,0
	goto	l41
	line	211
;focal0.c: 211: c = tolower(c);
	movf	?a_process+7,w
	movwf	?_tolower
	movf	?a_process+8,w
	movwf	?_tolower+1
	bcf	3,5
	call	_tolower
	movwf	btemp
	clrf	btemp+1
	movwf	?a_process+7
	movf	btemp+1,w
	movwf	?a_process+8
	line	212
;focal0.c: 212: switch (c) {
	goto	l41
	line	214
l42
	line	215
;focal0.c: 214: case 'a':
;focal0.c: 215: ask();
	bcf	3,5
	call	_ask
	line	216
;focal0.c: 216: break;
	goto	l23
	line	219
;focal0.c: 218: case 'c':
;focal0.c: 219: while (*ctp != 0)
l45
	line	220
;focal0.c: 220: ++ctp;
	incf	_ctp
l44
	line	219
	movf	_ctp,w
	movwf	4
	movf	0
	btfsc	3,2
	goto	l23
	goto	l45
	line	223
;focal0.c: 221: break;
l47
	line	224
;focal0.c: 223: case 'd':
;focal0.c: 224: getlno(&lno, -1);
	movlw	255
	movwf	?_getlno
	movwf	?_getlno+1
	movlw	?a_process+18
	bcf	3,5
	call	_getlno
	line	225
;focal0.c: 225: pushcntl();
	call	_pushcntl
	line	226
;focal0.c: 226: if (lno.ln_type==3 || lno.ln_type==0) {
	movf	?a_process+20,w
	xorlw	3
	iorwf	?a_process+21,w
	btfsc	3,2
	goto	u300
	movf	?a_process+21,w
	iorwf	?a_process+20,w
	btfss	3,2
	goto	l48
u300
	line	227
;focal0.c: 227: if ((clp=linev) == (0))
	movf	_linev,w
	movwf	_clp
	btfss	3,2
	goto	l49
	line	228
;focal0.c: 228: diag("No program");
	movlw	low u139
	movwf	?_diag
	movlw	high u139
	movwf	?_diag+1
	call	_diag
l49
	line	229
;focal0.c: 229: ctp = clp->l_text;
	movf	_clp,w
	addlw	3
	movwf	_ctp
	line	230
;focal0.c: 230: mode = 3;
	movlw	3
	goto	L16
	line	232
;focal0.c: 231: goto loop;
l48
	line	233
;focal0.c: 232: }
	decf	?a_process+20,w
	iorwf	?a_process+21,w
	btfss	3,2
	goto	l50
	line	234
;focal0.c: 234: lp = linev;
	movf	_linev,w
	goto	L4
	line	235
;focal0.c: 235: while (lp!=(0) && lp->l_gno<lno.ln_gno)
l52
	line	236
;focal0.c: 236: lp = lp->l_fp;
	movf	?a_process+4,w
	movwf	4
	movf	0,w
L4
	movwf	?a_process+4
	line	235
	movf	?a_process+4
	btfsc	3,2
	goto	l53
	movf	?a_process+4,w
	addlw	2
	movwf	4
	movf	?a_process+19,w
	subwf	0,w
	btfss	3,0
	goto	l52
l53
	line	237
;focal0.c: 237: if (lp!=(0) && lp->l_gno==lno.ln_gno) {
	movf	?a_process+4
	btfsc	3,2
	goto	l54
	movf	?a_process+4,w
	addlw	2
	movwf	4
	movf	0,w
	xorwf	?a_process+19,w
	btfss	3,2
	goto	l54
	line	238
;focal0.c: 238: clp = lp;
	movf	?a_process+4,w
	movwf	_clp
	line	239
;focal0.c: 239: ctp = clp->l_text;
	addlw	3
	movwf	_ctp
	line	240
;focal0.c: 240: mode = 2;
	movlw	2
	goto	L16
	line	242
;focal0.c: 241: goto loop;
l54
	line	243
;focal0.c: 242: }
	bcf	3,5
	call	_badline
	line	244
l50
	line	245
;focal0.c: 244: }
	movf	_linev,w
	goto	L6
	line	248
;focal0.c: 246: while (lp != (0)
l56
	line	249
;focal0.c: 249: lp = lp->l_fp;
	movf	?a_process+4,w
	movwf	4
	movf	0,w
L6
	movwf	?a_process+4
	line	246
	movf	?a_process+4
	btfsc	3,2
	goto	l57
	movf	?a_process+4,w
	addlw	2
	movwf	4
	movf	0,w
	xorwf	?a_process+19,w
	btfss	3,2
	goto	l56
	incf	?a_process+4,w
	movwf	4
	movf	0,w
	xorwf	?a_process+18,w
	btfss	3,2
	goto	l56
l57
	line	250
;focal0.c: 250: if (lp != (0)) {
	movf	?a_process+4
	btfsc	3,2
	goto	l58
	line	251
;focal0.c: 251: clp = lp;
	movf	?a_process+4,w
	movwf	_clp
	line	252
;focal0.c: 252: ctp = clp->l_text;
	addlw	3
	movwf	_ctp
	line	253
;focal0.c: 253: mode = 1;
	clrf	_mode
	incf	_mode
	goto	L12
	line	255
;focal0.c: 254: goto loop;
l58
	line	256
;focal0.c: 255: }
	bcf	3,5
	call	_badline
	line	258
l59
	line	259
;focal0.c: 258: case 'e':
;focal0.c: 259: getlno(&lno, -1);
	movlw	255
	movwf	?_getlno
	movwf	?_getlno+1
	movlw	?a_process+18
	bcf	3,5
	call	_getlno
	line	260
;focal0.c: 260: if (lno.ln_type == 3) {
	movf	?a_process+20,w
	xorlw	3
	iorwf	?a_process+21,w
	btfss	3,2
	goto	l60
	line	261
;focal0.c: 261: erasesyms();
	call	_erasesyms
	line	262
;focal0.c: 262: break;
	goto	l23
	line	263
l60
	line	264
;focal0.c: 263: }
	clrf	?a_process+1
	line	265
;focal0.c: 265: lp2 = linev;
	movf	_linev,w
L14
	movwf	?a_process+3
	line	282
;focal0.c: 266: while (lp2 != (0)) {
l61
	line	266
	movf	?a_process+3
	btfsc	3,2
	goto	l23
	line	269
;focal0.c: 267: if (lno.ln_type == 0
	movf	?a_process+21,w
	iorwf	?a_process+20,w
	btfsc	3,2
	goto	u520
	movf	?a_process+3,w
	addlw	2
	movwf	4
	movf	0,w
	xorwf	?a_process+19,w
	btfss	3,2
	goto	l64
	decf	?a_process+20,w
	iorwf	?a_process+21,w
	btfsc	3,2
	goto	u520
	incf	?a_process+3,w
	movwf	4
	movf	0,w
	xorwf	?a_process+18,w
	btfss	3,2
	goto	l64
u520
	line	270
;focal0.c: 270: if (lp2 == clp)
	movf	?a_process+3,w
	xorwf	_clp,w
	btfss	3,2
	goto	l65
	line	271
;focal0.c: 271: diag("Erasing current line");
	movlw	low u149
	movwf	?_diag
	movlw	high u149
	movwf	?_diag+1
	bcf	3,5
	call	_diag
l65
	line	272
;focal0.c: 272: lp3 = lp2;
	movf	?a_process+3,w
	movwf	?a_process
	line	273
;focal0.c: 273: lp2 = lp2->l_fp;
	movf	?a_process+3,w
	movwf	4
	movf	0,w
	movwf	?a_process+3
	line	274
;focal0.c: 274: if (lp1 == (0))
	movf	?a_process+1
	btfss	3,2
	goto	l66
	line	275
;focal0.c: 275: linev = lp2; else
	movf	?a_process+3,w
	movwf	_linev
	goto	l67
l66
	line	276
;focal0.c: 276: lp1->l_fp = lp2;
	movf	?a_process+1,w
	movwf	4
	movf	?a_process+3,w
	movwf	0
l67
	line	277
;focal0.c: 277: free((char *) lp3);
	movf	?a_process,w
	bcf	3,5
	call	_free
	line	278
;focal0.c: 278: } else {
	goto	l61
l64
	line	279
;focal0.c: 279: lp1 = lp2;
	movf	?a_process+3,w
	movwf	?a_process+1
	line	280
;focal0.c: 280: lp2 = lp2->l_fp;
	movf	?a_process+3,w
	movwf	4
	movf	0,w
	goto	L14
	line	285
;focal0.c: 281: }
l69
	line	286
;focal0.c: 285: case 'f':
;focal0.c: 286: sp = getsym();
	bcf	3,5
	call	_getsym
	movwf	?a_process+2
	line	287
;focal0.c: 287: clearfors(sp);
	call	_clearfors
	line	288
;focal0.c: 288: if (getnb() != '=')
	call	_getnb
	movf	btemp,w
	xorlw	61
	iorwf	btemp+1,w
	btfsc	3,2
	goto	l70
	line	289
;focal0.c: 289: diag("Missing = sign");
	movlw	low u159
	movwf	?_diag
	movlw	high u159
	movwf	?_diag+1
	call	_diag
l70
	line	290
;focal0.c: 290: sp->s_un.s_value = eval();
	call	_eval
	movf	?a_process+2,w
	addlw	5
	movwf	4
	movf	btemp,w
	movwf	0
	incf	4
	movf	btemp+1,w
	movwf	0
	incf	4
	movf	btemp+2,w
	movwf	0
	line	291
;focal0.c: 291: if (getnb() != ',')
	call	_getnb
	movf	btemp,w
	xorlw	44
	iorwf	btemp+1,w
	btfsc	3,2
	goto	l71
	line	292
;focal0.c: 292: diag("Missing comma");
	movlw	low u169
	movwf	?_diag
	movlw	high u169
	movwf	?_diag+1
	call	_diag
l71
	line	293
;focal0.c: 293: limit = eval();
	call	_eval
	movf	btemp,w
	movwf	?a_process+9
	movf	btemp+1,w
	movwf	?a_process+10
	movf	btemp+2,w
	movwf	?a_process+11
	line	294
;focal0.c: 294: if ((c=getnb()) == ';')
	call	_getnb
	movf	btemp,w
	movwf	?a_process+7
	movf	btemp+1,w
	movwf	?a_process+8
	movwf	btemp+1
	movf	?a_process+7,w
	movwf	btemp
	xorlw	59
	iorwf	btemp+1,w
	btfss	3,2
	goto	l72
	line	295
;focal0.c: 295: step = 1.0;
	clrf	?a_process+15
	movlw	128
	movwf	?a_process+16
	movlw	63
	movwf	?a_process+17
	goto	l73
	line	296
l72
;focal0.c: 296: else if (c == ',') {
	movf	?a_process+7,w
	xorlw	44
	iorwf	?a_process+8,w
	btfss	3,2
	goto	l74
	line	297
;focal0.c: 297: step = eval();
	call	_eval
	movf	btemp,w
	movwf	?a_process+15
	movf	btemp+1,w
	movwf	?a_process+16
	movf	btemp+2,w
	movwf	?a_process+17
	line	298
;focal0.c: 298: if (getnb() != ';')
	call	_getnb
	movf	btemp,w
	xorlw	59
	iorwf	btemp+1,w
	btfsc	3,2
	goto	l73
	line	299
;focal0.c: 299: diag("Missing semi");
	movlw	low u179
	movwf	?_diag
	movlw	high u179
	goto	L13
	line	300
;focal0.c: 300: } else
l74
	line	301
;focal0.c: 301: diag("Bad for");
	movlw	low u189
	movwf	?_diag
	movlw	high u189
L13
	movwf	?_diag+1
	call	_diag
l73
	line	302
;focal0.c: 302: pushcntl();
	call	_pushcntl
	line	303
;focal0.c: 303: forsp = sp;
	movf	?a_process+2,w
	movwf	_forsp
	line	304
;focal0.c: 304: forlimit = limit;
	movf	?a_process+9,w
	movwf	_forlimit
	movf	?a_process+10,w
	movwf	_forlimit+1
	movf	?a_process+11,w
	movwf	_forlimit+2
	line	305
;focal0.c: 305: forstep = step;
	movf	?a_process+15,w
	movwf	_forstep
	movf	?a_process+16,w
	movwf	_forstep+1
	movf	?a_process+17,w
	movwf	_forstep+2
	line	306
;focal0.c: 306: mode = 4;
	movlw	4
L16
	movwf	_mode
L12
	clrf	_mode+1
	line	307
;focal0.c: 307: break;
	goto	l23
	line	309
l77
	line	310
;focal0.c: 309: case 'g':
;focal0.c: 310: getlno(&lno, -1);
	movlw	255
	movwf	?_getlno
	movwf	?_getlno+1
	movlw	?a_process+18
	bcf	3,5
	call	_getlno
	line	311
;focal0.c: 311: if (lno.ln_type == 3) {
	movf	?a_process+20,w
	xorlw	3
	iorwf	?a_process+21,w
	btfss	3,2
	goto	l78
	line	312
;focal0.c: 312: if ((clp=linev) == (0))
	movf	_linev,w
	movwf	_clp
	btfss	3,2
	goto	l79
	line	313
;focal0.c: 313: diag("No program");
	movlw	low u199
	movwf	?_diag
	movlw	high u199
	movwf	?_diag+1
	call	_diag
l79
	line	314
;focal0.c: 314: ctp = clp->l_text;
	movf	_clp,w
	goto	L15
	line	316
;focal0.c: 315: goto loop;
l78
	movf	?a_process+20,w
	xorlw	2
	iorwf	?a_process+21,w
	btfss	3,2
	goto	l80
	line	317
;focal0.c: 317: lp = linev;
	movf	_linev,w
	goto	L8
	line	320
;focal0.c: 318: while (lp != (0)
l83
	line	321
;focal0.c: 321: lp = lp->l_fp;
	movf	?a_process+4,w
	movwf	4
	movf	0,w
L8
	movwf	?a_process+4
	line	318
	movf	?a_process+4
	btfsc	3,2
	goto	l84
	movf	?a_process+4,w
	addlw	2
	movwf	4
	movf	0,w
	xorwf	?a_process+19,w
	btfss	3,2
	goto	l83
	incf	?a_process+4,w
	movwf	4
	movf	0,w
	xorwf	?a_process+18,w
	btfss	3,2
	goto	l83
l84
	line	322
;focal0.c: 322: if (lp != (0)) {
	movf	?a_process+4
	btfss	3,2
	goto	L17
	line	328
;focal0.c: 323: clp = lp;
;focal0.c: 324: ctp = clp->l_text;
;focal0.c: 325: goto loop;
l80
;focal0.c: 326: }
	bcf	3,5
	call	_badline
	line	330
l86
	line	331
;focal0.c: 330: case 'i':
;focal0.c: 331: value = eval();
	bcf	3,5
	call	_eval
	movf	btemp,w
	movwf	?a_process+12
	movf	btemp+1,w
	movwf	?a_process+13
	movf	btemp+2,w
	movwf	?a_process+14
	line	332
;focal0.c: 332: if (value >= 0.0) {
	clrf	btemp+3
	clrf	btemp+4
	clrf	btemp+5
	movf	?a_process+12,w
	movwf	btemp
	movf	?a_process+13,w
	movwf	btemp+1
	movf	?a_process+14,w
	movwf	btemp+2
	call	ftcmp
	btfsc	3,0
	goto	l88
	goto	l87
	line	333
;focal0.c: 333: while ((c = *ctp)!=0 && c!=',' && c!=';')
l89
	line	334
;focal0.c: 334: ++ctp;
	incf	_ctp
l88
	line	333
	movf	_ctp,w
	movwf	4
	movf	0,w
	movwf	?a_process+7
	clrf	?a_process+8
	iorwf	?a_process+8,w
	btfsc	3,2
	goto	l90
	movf	?a_process+7,w
	xorlw	44
	iorwf	?a_process+8,w
	btfsc	3,2
	goto	l90
	movf	?a_process+7,w
	xorlw	59
	iorwf	?a_process+8,w
	btfss	3,2
	goto	l89
l90
	line	335
;focal0.c: 335: if (c != ',')
	movf	?a_process+7,w
	xorlw	44
	iorwf	?a_process+8,w
	btfss	3,2
	goto	l23
	line	337
;focal0.c: 336: goto loop;
;focal0.c: 337: ++ctp;
	incf	_ctp
	line	338
;focal0.c: 338: if (value != 0.0) {
	movf	?a_process+12,w
	iorwf	?a_process+13,w
	iorwf	?a_process+14,w
	btfss	3,2
	goto	l93
	goto	l87
	line	339
;focal0.c: 339: while ((c = *ctp)!=0 && c!=',' && c!=';')
l94
	line	340
;focal0.c: 340: ++ctp;
	incf	_ctp
l93
	line	339
	movf	_ctp,w
	movwf	4
	movf	0,w
	movwf	?a_process+7
	clrf	?a_process+8
	iorwf	?a_process+8,w
	btfsc	3,2
	goto	l95
	movf	?a_process+7,w
	xorlw	44
	iorwf	?a_process+8,w
	btfsc	3,2
	goto	l95
	movf	?a_process+7,w
	xorlw	59
	iorwf	?a_process+8,w
	btfss	3,2
	goto	l94
l95
	line	341
;focal0.c: 341: if (c != ',')
	movf	?a_process+7,w
	xorlw	44
	iorwf	?a_process+8,w
	btfss	3,2
	goto	l23
	line	343
;focal0.c: 342: goto loop;
;focal0.c: 343: ++ctp;
	incf	_ctp
	line	345
l87
	line	346
;focal0.c: 344: }
	movlw	255
	movwf	?_getlno
	movwf	?_getlno+1
	movlw	?a_process+18
	bcf	3,5
	call	_getlno
	line	347
;focal0.c: 347: if (lno.ln_type == 2) {
	movf	?a_process+20,w
	xorlw	2
	iorwf	?a_process+21,w
	btfss	3,2
	goto	l97
	line	348
;focal0.c: 348: lp = linev;
	movf	_linev,w
	goto	L10
	line	351
;focal0.c: 349: while (lp != (0)
l99
	line	352
;focal0.c: 352: lp = lp->l_fp;
	movf	?a_process+4,w
	movwf	4
	movf	0,w
L10
	movwf	?a_process+4
	line	349
	movf	?a_process+4
	btfsc	3,2
	goto	l100
	movf	?a_process+4,w
	addlw	2
	movwf	4
	movf	0,w
	xorwf	?a_process+19,w
	btfss	3,2
	goto	l99
	incf	?a_process+4,w
	movwf	4
	movf	0,w
	xorwf	?a_process+18,w
	btfss	3,2
	goto	l99
l100
	line	353
;focal0.c: 353: if (lp != (0)) {
	movf	?a_process+4
	btfsc	3,2
	goto	l97
L17
	line	354
;focal0.c: 354: clp = lp;
	movf	?a_process+4,w
	movwf	_clp
L15
	line	355
;focal0.c: 355: ctp = clp->l_text;
	addlw	3
L9
	movwf	_ctp
	line	356
;focal0.c: 356: goto loop;
	goto	l23
	line	358
l97
	line	359
;focal0.c: 357: }
	bcf	3,5
	call	_badline
	line	361
l102
	line	362
;focal0.c: 361: case 'l':
;focal0.c: 362: library();
	bcf	3,5
	call	_library
	line	363
;focal0.c: 363: break;
	goto	l23
	line	365
l103
	line	366
;focal0.c: 365: case 'q':
;focal0.c: 366: if (clp == (0))
	movf	_clp
	btfss	3,2
	return
	line	367
;focal0.c: 367: exit(0);
	clrf	?_exit
	clrf	?_exit+1
	bcf	3,5
	goto	_exit
	line	370
;focal0.c: 368: return;
l105
	line	371
;focal0.c: 370: case 't':
;focal0.c: 371: type();
	bcf	3,5
	call	_type
	line	372
;focal0.c: 372: break;
	goto	l23
	line	376
;focal0.c: 374: case 'r':
;focal0.c: 375: while (mode == 4)
;focal0.c: 376: popfor();
L18
	call	_popfor
l107
	line	375
	movf	_mode,w
	xorlw	4
	iorwf	_mode+1,w
	line	377
;focal0.c: 377: popdo();
	bcf	3,5
	line	375
	btfsc	3,2
	goto	L18
	line	377
L11
	call	_popdo
	line	378
;focal0.c: 378: break;
	goto	l23
	line	380
l110
	line	381
;focal0.c: 380: case 's':
;focal0.c: 381: sp = getsym();
	bcf	3,5
	call	_getsym
	movwf	?a_process+2
	line	382
;focal0.c: 382: if (getnb() != '=')
	call	_getnb
	movf	btemp,w
	xorlw	61
	iorwf	btemp+1,w
	btfsc	3,2
	goto	l111
	line	383
;focal0.c: 383: diag("Missing = sign");
	movlw	low u209
	movwf	?_diag
	movlw	high u209
	movwf	?_diag+1
	call	_diag
l111
	line	384
;focal0.c: 384: sp->s_un.s_value = eval();
	call	_eval
	movf	?a_process+2,w
	addlw	5
	movwf	4
	movf	btemp,w
	movwf	0
	incf	4
	movf	btemp+1,w
	movwf	0
	incf	4
	movf	btemp+2,w
	movwf	0
	line	385
;focal0.c: 385: break;
	goto	l23
	line	387
l112
	line	388
;focal0.c: 387: case 'w':
;focal0.c: 388: getlno(&lno, -1);
	movlw	255
	movwf	?_getlno
	movwf	?_getlno+1
	movlw	?a_process+18
	bcf	3,5
	call	_getlno
	line	389
;focal0.c: 389: save(&lno, (&_iob[1]));
	movlw	__iob+10
	movwf	?_save
	movlw	?a_process+18
	call	_save
	line	390
;focal0.c: 390: break;
	goto	l23
	line	398
l113
	line	399
;focal0.c: 398: default:
;focal0.c: 399: diag("Illegal command");
	movlw	low u219
	movwf	?_diag
	movlw	high u219
	movwf	?_diag+1
	bcf	3,5
	call	_diag
	line	400
;focal0.c: 400: }
	goto	l23
	line	212
l41
	movf	?a_process+8,w
	movwf	btemp+3
	movf	?a_process+7,w
	movwf	btemp+2
	goto	l30004
l30005
	movf	btemp+2,w
	xorlw	97
	btfsc	3,2
	goto	l42
	xorlw	2
	btfsc	3,2
	goto	l44
	xorlw	7
	btfsc	3,2
	goto	l47
	xorlw	1
	btfsc	3,2
	goto	l59
	xorlw	3
	btfsc	3,2
	goto	l69
	xorlw	1
	btfsc	3,2
	goto	l77
	xorlw	14
	btfsc	3,2
	goto	l86
	xorlw	5
	btfsc	3,2
	goto	l102
	xorlw	29
	btfsc	3,2
	goto	l103
	xorlw	3
	btfsc	3,2
	goto	l107
	xorlw	1
	btfsc	3,2
	goto	l110
	xorlw	7
	btfsc	3,2
	goto	l105
	xorlw	3
	btfsc	3,2
	goto	l112
	goto	l113
l30004
	movf	btemp+3,w
	btfsc	3,2
	goto	l30005
	goto	l113

	psect	text3
	line	413
_ask
;	_sp assigned to ?a_ask+0
_ask$sp	set	?a_ask
;	_c assigned to ?a_ask+1
_ask$c	set	?a_ask+1
	line	417
;focal0.c: 412: void ask()
	goto	l115
l116
	line	418
;focal0.c: 418: if (c == '"') {
	movf	?a_ask+1,w
	xorlw	34
	iorwf	?a_ask+2,w
	btfsc	3,2
	goto	l119
	goto	l118
	line	419
;focal0.c: 419: while ((c = *ctp++)!=0 && c!='"')
l120
	line	420
;focal0.c: 420: fputc(c,(&_iob[1]));
	movf	?a_ask+1,w
	movwf	?_fputc
	movf	?a_ask+2,w
	movwf	?_fputc+1
	movlw	__iob+10
	movwf	?_fputc+2
	call	_fputc
l119
	line	419
	incf	_ctp
	decf	_ctp,w
	movwf	4
	movf	0,w
	movwf	?a_ask+1
	clrf	?a_ask+2
	iorwf	?a_ask+2,w
	btfsc	3,2
	goto	l121
	movf	?a_ask+1,w
	xorlw	34
	iorwf	?a_ask+2,w
	btfss	3,2
	goto	l120
l121
	line	421
;focal0.c: 421: if (c != 0)
	movf	?a_ask+2,w
	iorwf	?a_ask+1,w
	btfss	3,2
	goto	l115
	line	423
;focal0.c: 422: continue;
;focal0.c: 423: diag("Missing `\"' in ask");
	movlw	low u229
	movwf	?_diag
	movlw	high u229
	movwf	?_diag+1
	call	_diag
	line	424
l118
	line	425
;focal0.c: 424: }
	movf	?a_ask+1,w
	xorlw	44
	iorwf	?a_ask+2,w
	btfsc	3,2
	goto	l115
	line	427
;focal0.c: 426: continue;
;focal0.c: 427: --ctp;
	decf	_ctp
	line	428
;focal0.c: 428: sp = getsym();
	call	_getsym
	movwf	?a_ask
	line	429
;focal0.c: 429: printf(": ");
	movlw	low u239
	movwf	?_printf+1
	movlw	high u239
	movwf	?_printf+2
	call	_printf
	line	430
;focal0.c: 430: if (gets(abuf) == (0)) {
	movlw	_abuf
	call	_gets
	iorlw	0
	btfss	3,2
	goto	l124
	line	431
;focal0.c: 431: fputc('\n',(&_iob[1]));
	movlw	10
	movwf	?_fputc
	clrf	?_fputc+1
	movlw	__iob+10
	movwf	?_fputc+2
	call	_fputc
	line	432
;focal0.c: 432: diag("EOF in ask");
	movlw	low u249
	movwf	?_diag
	movlw	high u249
	movwf	?_diag+1
	call	_diag
	line	433
l124
	line	434
;focal0.c: 433: }
	movlw	_abuf
	movwf	?_atof
	movlw	128
	movwf	?_atof+1
	call	_atof
	movf	?a_ask,w
	addlw	5
	movwf	4
	movf	btemp,w
	movwf	0
	incf	4
	movf	btemp+1,w
	movwf	0
	incf	4
	movf	btemp+2,w
	movwf	0
	line	435
l115
	line	417
	bcf	3,5
	call	_getnb
	movf	btemp,w
	movwf	?a_ask+1
	movf	btemp+1,w
	movwf	?a_ask+2
	iorwf	?a_ask+1,w
	btfsc	3,2
	goto	l117
	movf	?a_ask+1,w
	xorlw	59
	iorwf	?a_ask+2,w
	btfss	3,2
	goto	l116
l117
	line	436
;focal0.c: 435: }
	decf	_ctp
	line	437
;focal0.c: 437: }
	return	;W free

	psect	text4
	line	444
_badline
	line	445
;focal0.c: 443: void badline()
	movlw	low u259
	bcf	3,5
	movwf	?_diag
	movlw	high u259
	movwf	?_diag+1
	bcf	3,5
	goto	_diag

	psect	text5
	line	464
_newcontrol
;	_cp assigned to ?a_newcontrol+0
_newcontrol$cp	set	?a_newcontrol
	line	467
;focal0.c: 462: struct control *
	bcf	3,5
	movf	_ccb_free
	btfsc	3,2
	goto	l127
	line	468
;focal0.c: 468: cp = ccb_free;
	movf	_ccb_free,w
	movwf	?a_newcontrol
	line	469
;focal0.c: 469: ccb_free = cp->c_fp;
	movwf	4
	movf	0,w
	movwf	_ccb_free
	line	470
;focal0.c: 470: } else if ((cp = (struct control *)
	goto	l128
l127
	line	471
;focal0.c: 471: malloc(sizeof(struct control))) == (0)) {
	movlw	12
	movwf	?_malloc
	clrf	?_malloc+1
	call	_malloc
	movwf	?a_newcontrol
	movf	?a_newcontrol
	btfss	3,2
	goto	l128
	line	472
;focal0.c: 472: diag("Out of space (control stack)");
	movlw	low u269
	movwf	?_diag
	movlw	high u269
	movwf	?_diag+1
	call	_diag
	line	474
l128
;focal0.c: 473: }
	movf	?a_newcontrol,w
	line	475
;focal0.c: 475: }
	return	;uses W

	psect	text6
	line	483
_freecontrol
;	_cp assigned to ?a_freecontrol+0
_freecontrol$cp	set	?a_freecontrol
;_cp stored from w
	bcf	3,5
	movwf	?a_freecontrol
	line	484
;focal0.c: 481: void
	movwf	4
	movf	_ccb_free,w
	movwf	0
	line	485
;focal0.c: 485: ccb_free = cp;
	movf	?a_freecontrol,w
	movwf	_ccb_free
	line	486
;focal0.c: 486: }
	return	;W free

	psect	text7
	line	499
_pushcntl
;	_cp assigned to ?a_pushcntl+0
_pushcntl$cp	set	?a_pushcntl
	line	502
;focal0.c: 498: void pushcntl()
	bcf	3,5
	call	_newcontrol
	movwf	?a_pushcntl
	line	503
;focal0.c: 503: cp->c_fp = controlv;
	movwf	4
	movf	_controlv,w
	movwf	0
	line	504
;focal0.c: 504: controlv = cp;
	movf	?a_pushcntl,w
	movwf	_controlv
	line	505
;focal0.c: 505: cp->c_mode = mode;
	incf	?a_pushcntl,w
	movwf	4
	movf	_mode,w
	movwf	0
	incf	4
	movf	_mode+1,w
	movwf	0
	line	506
;focal0.c: 506: cp->c_tp = ctp;
	movf	?a_pushcntl,w
	addlw	4
	movwf	4
	movf	_ctp,w
	movwf	0
	line	507
;focal0.c: 507: cp->c_lp = clp;
	movf	?a_pushcntl,w
	addlw	3
	movwf	4
	movf	_clp,w
	movwf	0
	line	508
;focal0.c: 508: if (mode == 4) {
	movf	_mode,w
	xorlw	4
	iorwf	_mode+1,w
	btfss	3,2
	return
	line	509
;focal0.c: 509: cp->c_sp = forsp;
	movf	?a_pushcntl,w
	addlw	5
	movwf	4
	movf	_forsp,w
	movwf	0
	line	510
;focal0.c: 510: cp->c_limit = forlimit;
	movf	?a_pushcntl,w
	addlw	6
	movwf	4
	movf	_forlimit,w
	movwf	0
	incf	4
	movf	_forlimit+1,w
	movwf	0
	incf	4
	movf	_forlimit+2,w
	movwf	0
	line	511
;focal0.c: 511: cp->c_step = forstep;
	movf	?a_pushcntl,w
	addlw	9
	movwf	4
	movf	_forstep,w
	movwf	0
	incf	4
	movf	_forstep+1,w
	movwf	0
	incf	4
	movf	_forstep+2,w
	movwf	0
	line	513
;focal0.c: 512: }
	return	;W free

	psect	text8
	line	521
_popcntl
;	_cp assigned to ?a_popcntl+0
_popcntl$cp	set	?a_popcntl
	line	524
;focal0.c: 520: void popcntl()
	bcf	3,5
	movf	_controlv,w
	movwf	?a_popcntl
	line	525
;focal0.c: 525: controlv = cp->c_fp;
	movwf	4
	movf	0,w
	movwf	_controlv
	line	526
;focal0.c: 526: ctp = cp->c_tp;
	movf	?a_popcntl,w
	addlw	4
	movwf	4
	movf	0,w
	movwf	_ctp
	line	527
;focal0.c: 527: clp = cp->c_lp;
	movf	?a_popcntl,w
	addlw	3
	movwf	4
	movf	0,w
	movwf	_clp
	line	528
;focal0.c: 528: mode = cp->c_mode;
	incf	?a_popcntl,w
	movwf	4
	movf	0,w
	movwf	_mode
	incf	4
	movf	0,w
	movwf	_mode+1
	line	529
;focal0.c: 529: if (mode == 4) {
	movf	_mode,w
	xorlw	4
	iorwf	_mode+1,w
	btfss	3,2
	goto	l134
	line	530
;focal0.c: 530: forsp = cp->c_sp;
	movf	?a_popcntl,w
	addlw	5
	movwf	4
	movf	0,w
	movwf	_forsp
	line	531
;focal0.c: 531: forlimit = cp->c_limit;
	movf	?a_popcntl,w
	addlw	6
	movwf	4
	movf	0,w
	movwf	_forlimit
	incf	4
	movf	0,w
	movwf	_forlimit+1
	incf	4
	movf	0,w
	movwf	_forlimit+2
	line	532
;focal0.c: 532: forstep = cp->c_step;
	movf	?a_popcntl,w
	addlw	9
	movwf	4
	movf	0,w
	movwf	_forstep
	incf	4
	movf	0,w
	movwf	_forstep+1
	incf	4
	movf	0,w
	movwf	_forstep+2
	line	533
l134
	line	534
;focal0.c: 533: }
	movf	?a_popcntl,w
	goto	_freecontrol

	psect	text9
	line	544
_popdo
	line	545
;focal0.c: 543: void popdo()
	bcf	3,5
	movf	_controlv
	btfss	3,2
	goto	_popcntl
	line	546
;focal0.c: 546: diag("Return not in do");
	movlw	low u279
	movwf	?_diag
	movlw	high u279
	movwf	?_diag+1
	call	_diag
	line	547
;focal0.c: 547: popcntl();
	goto	_popcntl

	psect	text10
	line	557
_popfor
	line	558
;focal0.c: 556: void popfor()
	bcf	3,5
	movf	_controlv
	btfss	3,2
	goto	_popcntl
	line	559
;focal0.c: 559: diag("For stack botch");
	movlw	low u289
	movwf	?_diag
	movlw	high u289
	movwf	?_diag+1
	call	_diag
	line	560
;focal0.c: 560: popcntl();
	goto	_popcntl

	psect	text11
	line	576
_clearfors
;	_sp assigned to ?a_clearfors+0
_clearfors$sp	set	?a_clearfors
;	_cp1 assigned to ?a_clearfors+1
_clearfors$cp1	set	?a_clearfors+1
;	_cp2 assigned to ?a_clearfors+2
_clearfors$cp2	set	?a_clearfors+2
	line	580
;_sp stored from w
	bcf	3,5
	movwf	?a_clearfors
;focal0.c: 574: void clearfors(sp)
	movf	_mode,w
	xorlw	4
	iorwf	_mode+1,w
	btfss	3,2
	goto	l140
	movf	_forsp,w
	xorwf	?a_clearfors,w
	btfsc	3,2
	line	581
;focal0.c: 581: popfor();
	goto	_popfor
	line	582
l140
	line	583
;focal0.c: 582: else {
	clrf	?a_clearfors+1
	line	584
;focal0.c: 584: cp2 = controlv;
	movf	_controlv,w
	line	595
L19
	movwf	?a_clearfors+2
	line	585
	movf	?a_clearfors+2
	btfsc	3,2
	return
	line	586
;focal0.c: 585: while (cp2 != (0)) {
;focal0.c: 586: if (cp2->c_mode==4 && cp2->c_sp==sp) {
	incf	?a_clearfors+2,w
	movwf	4
	movf	0,w
	movwf	btemp
	incf	4
	movf	0,w
	movwf	btemp+1
	movf	btemp,w
	xorlw	4
	iorwf	btemp+1,w
	btfss	3,2
	goto	l145
	movf	?a_clearfors+2,w
	addlw	5
	movwf	4
	movf	0,w
	xorwf	?a_clearfors,w
	btfss	3,2
	goto	l145
	line	587
;focal0.c: 587: if (cp1 == (0))
	movf	?a_clearfors+1
	btfss	3,2
	goto	l146
	line	588
;focal0.c: 588: controlv = cp2->c_fp;
	movf	?a_clearfors+2,w
	movwf	4
	movf	0,w
	movwf	_controlv
	goto	l147
	line	589
l146
	line	590
;focal0.c: 589: else
	movf	?a_clearfors+2,w
	movwf	4
	movf	0,w
	movwf	btemp
	movf	?a_clearfors+1,w
	movwf	4
	movf	btemp,w
	movwf	0
l147
	line	591
;focal0.c: 591: freecontrol(cp2);
	movf	?a_clearfors+2,w
	bcf	3,5
	goto	_freecontrol
	line	593
;focal0.c: 592: break;
l145
	line	594
;focal0.c: 593: }
	movf	?a_clearfors+2,w
	movwf	?a_clearfors+1
	line	595
;focal0.c: 595: cp2 = cp2->c_fp;
	movf	?a_clearfors+2,w
	movwf	4
	movf	0,w
	line	585
	goto	L19

	psect	text12
	line	609
_inject
;	_lp1 assigned to ?a_inject+0
_inject$lp1	set	?a_inject
;	_lp3 assigned to ?a_inject+1
_inject$lp3	set	?a_inject+1
;	_lp2 assigned to ?a_inject+2
_inject$lp2	set	?a_inject+2
;	_lno assigned to ?a_inject+3
_inject$lno	set	?a_inject+3
	line	615
;focal0.c: 607: void inject(c)
	bcf	3,5
	movf	?_inject,w
	movwf	?_getlno
	movf	?_inject+1,w
	movwf	?_getlno+1
	movlw	?a_inject+3
	bcf	3,5
	call	_getlno
	line	616
;focal0.c: 616: if (lno.ln_type != 2)
	movf	?a_inject+5,w
	xorlw	2
	iorwf	?a_inject+6,w
	btfsc	3,2
	goto	l149
	line	617
;focal0.c: 617: diag("Illegal line number");
	movlw	low u299
	movwf	?_diag
	movlw	high u299
	movwf	?_diag+1
	call	_diag
l149
	line	618
;focal0.c: 618: lp1 = (0);
	clrf	?a_inject
	line	619
;focal0.c: 619: lp2 = linev;
	movf	_linev,w
	goto	L20
	line	622
;focal0.c: 620: while (lp2 != (0)
l151
	line	624
;focal0.c: 623: if (lp2->l_gno == lno.ln_gno
	movf	?a_inject+2,w
L21
	addlw	2
	movwf	4
	movf	0,w
	xorwf	?a_inject+4,w
	btfss	3,2
	goto	l153
	incf	?a_inject+2,w
	movwf	4
	movf	0,w
	xorwf	?a_inject+3,w
	btfss	3,2
	goto	l153
	line	625
;focal0.c: 625: lp3 = lp2;
	movf	?a_inject+2,w
	movwf	?a_inject+1
	line	626
;focal0.c: 626: lp2 = lp2->l_fp;
	movf	?a_inject+2,w
	movwf	4
	movf	0,w
	movwf	?a_inject+2
	line	627
;focal0.c: 627: if (lp1 == (0))
	movf	?a_inject
	btfss	3,2
	goto	l154
	line	628
;focal0.c: 628: linev = lp2;
	movf	?a_inject+2,w
	movwf	_linev
	goto	l155
	line	629
l154
	line	630
;focal0.c: 629: else
	movf	?a_inject,w
	movwf	4
	movf	?a_inject+2,w
	movwf	0
l155
	line	631
;focal0.c: 631: free((char *) lp3);
	movf	?a_inject+1,w
	bcf	3,5
	call	_free
	line	632
;focal0.c: 632: break;
	goto	l152
	line	633
l153
	line	634
;focal0.c: 633: }
	movf	?a_inject+2,w
	movwf	?a_inject
	line	635
;focal0.c: 635: lp2 = lp2->l_fp;
	movf	?a_inject+2,w
	movwf	4
	movf	0,w
L20
	movwf	?a_inject+2
	line	620
	movf	?a_inject+2
	btfsc	3,2
	goto	l152
	movf	?a_inject+2,w
	addlw	2
	movwf	4
	movf	?a_inject+4,w
	subwf	0,w
	movf	?a_inject+2,w
	btfss	3,0
	goto	L21
	addlw	2
	movwf	4
	movf	0,w
	xorwf	?a_inject+4,w
	btfss	3,2
	goto	l152
	incf	?a_inject+2,w
	movwf	4
	movf	0,w
	subwf	?a_inject+3,w
	btfsc	3,0
	goto	l151
l152
	line	637
;focal0.c: 636: }
	bcf	3,5
	call	_getnb
	movf	btemp,w
	movwf	?_inject
	movf	btemp+1,w
	movwf	?_inject+1
	iorwf	?_inject,w
	btfsc	3,2
	return
	line	638
;focal0.c: 638: lp3 = alocline(--ctp);
	decf	_ctp
	movf	_ctp,w
	call	_alocline
	movwf	?a_inject+1
	line	639
;focal0.c: 639: lp3->l_fp = lp2;
	movwf	4
	movf	?a_inject+2,w
	movwf	0
	line	640
;focal0.c: 640: lp3->l_gno = lno.ln_gno;
	movf	?a_inject+1,w
	addlw	2
	movwf	4
	movf	?a_inject+4,w
	movwf	0
	line	641
;focal0.c: 641: lp3->l_lno = lno.ln_lno;
	incf	?a_inject+1,w
	movwf	4
	movf	?a_inject+3,w
	movwf	0
	line	642
;focal0.c: 642: strcpy(lp3->l_text, ctp);
	movf	_ctp,w
	movwf	?_strcpy
	movlw	128
	movwf	?_strcpy+1
	movf	?a_inject+1,w
	addlw	3
	call	_strcpy
	line	643
;focal0.c: 643: if (lp1 == (0))
	movf	?a_inject
	btfss	3,2
	goto	l157
	line	644
;focal0.c: 644: linev = lp3;
	movf	?a_inject+1,w
	movwf	_linev
	return
	line	645
l157
	line	646
;focal0.c: 645: else
	movf	?a_inject,w
	movwf	4
	movf	?a_inject+1,w
	movwf	0
	line	648
;focal0.c: 647: }
	return	;W free

	psect	text13
	line	652
_getline
;	_cp assigned to ?a_getline+0
_getline$cp	set	?a_getline
;	_c assigned to ?a_getline+1
_getline$c	set	?a_getline+1
	line	655
;_cp stored from w
	bcf	3,5
	movwf	?a_getline
;focal0.c: 651: int getline(char *cp, struct _iobuf *fp)
	goto	l160
l161
	line	656
;focal0.c: 656: *cp++ = c;
	movf	?a_getline,w
	movwf	4
	movf	?a_getline+1,w
	movwf	0
	incf	?a_getline
l160
	line	655
	bcf	3,5
	movf	?_getline,w
	bcf	3,5
	call	_fgetc
	movf	btemp,w
	movwf	?a_getline+1
	movf	btemp+1,w
	movwf	?a_getline+2
	incf	?a_getline+1,w
	btfsc	3,2
	incf	?a_getline+2,w
	btfsc	3,2
	goto	l162
	movf	?a_getline+1,w
	xorlw	10
	iorwf	?a_getline+2,w
	btfss	3,2
	goto	l161
l162
	line	657
;focal0.c: 657: if (c == (-1))
	incf	?a_getline+1,w
	btfsc	3,2
	incf	?a_getline+2,w
	btfss	3,2
	goto	l163
	line	658
;focal0.c: 658: return (0);
	clrf	btemp
	clrf	btemp+1
	return
l163
	line	659
;focal0.c: 659: *cp = 0;
	movf	?a_getline,w
	movwf	4
	clrf	0
	line	660
;focal0.c: 660: return (1);
	movlw	1
	movwf	btemp
	clrf	btemp+1
	line	661
;focal0.c: 661: }
	return	;W free

	psect	text14
	line	665
_type
	line	672
;focal0.c: 666: register char *fmt;
	bcf	3,5
	movf	F592+1,w
	iorwf	F592,w
	btfsc	3,2
	goto	L22
	line	673
;focal0.c: 673: strcpy(fmtb, "%9.4f");
	movlw	low u309
	movwf	?_strcpy
	movlw	high u309
	movwf	?_strcpy+1
	movlw	F591
	call	_strcpy
	line	674
;focal0.c: 674: ifmtb--;
	movf	F592
	btfsc	3,2
	decf	F592+1
	decf	F592
	line	675
	goto	L22
	line	677
;focal0.c: 675: }
;focal0.c: 677: while ((c=getnb())!=0 && c!=';') {
l167
	line	678
;focal0.c: 678: if (c == '%') {
	movf	?a_type+5,w
	xorlw	37
	iorwf	?a_type+6,w
	btfss	3,2
	goto	l169
	line	679
;focal0.c: 679: if ((c=getnb())==0 || c==';' || c==',') {
	call	_getnb
	movf	btemp,w
	movwf	?a_type+5
	movf	btemp+1,w
	movwf	?a_type+6
	iorwf	?a_type+5,w
	btfsc	3,2
	goto	u1420
	movf	?a_type+5,w
	xorlw	59
	iorwf	?a_type+6,w
	btfsc	3,2
	goto	u1420
	movf	?a_type+5,w
	xorlw	44
	iorwf	?a_type+6,w
	btfss	3,2
	goto	l170
u1420
	line	680
;focal0.c: 680: strcpy(fmtb, "%6e");
	movlw	low u319
	movwf	?_strcpy
	movlw	high u319
	movwf	?_strcpy+1
	movlw	F591
	call	_strcpy
	line	681
;focal0.c: 681: fmt = fmtb;
	movlw	F591
	movwf	?a_type
	line	682
;focal0.c: 682: --ctp;
	decf	_ctp
	line	683
;focal0.c: 683: continue;
	goto	l166
	line	684
l170
	line	685
;focal0.c: 684: }
	movf	?a_type+5,w
	movwf	?_getnum
	movf	?a_type+6,w
	movwf	?_getnum+1
	call	_getnum
	movf	btemp,w
	movwf	?a_type+1
	movf	btemp+1,w
	movwf	?a_type+2
	line	686
;focal0.c: 686: if (getnb() != '.')
	call	_getnb
	movf	btemp,w
	xorlw	46
	iorwf	btemp+1,w
	btfsc	3,2
	goto	l171
	line	687
;focal0.c: 687: diag("Missing . in format");
	movlw	low u329
	movwf	?_diag
	movlw	high u329
	movwf	?_diag+1
	call	_diag
l171
	line	688
;focal0.c: 688: y = getnum(getnb());
	call	_getnb
	movf	btemp,w
	movwf	?_getnum
	movf	btemp+1,w
	movwf	?_getnum+1
	call	_getnum
	movf	btemp,w
	movwf	?a_type+3
	movf	btemp+1,w
	movwf	?a_type+4
	line	689
;focal0.c: 689: sprintf(fmtb, "%%%d.%df", x, y);
	movlw	low u339
	movwf	?_sprintf+1
	movlw	high u339
	movwf	?_sprintf+2
	movf	?a_type+3,w
	movwf	?a_type+9
	movf	?a_type+4,w
	movwf	?a_type+10
	movf	?a_type+1,w
	movwf	?a_type+7
	movf	?a_type+2,w
	movwf	?a_type+8
	movlw	?a_type+7
	movwf	?_sprintf
	movlw	F591
	call	_sprintf
L22
	line	690
;focal0.c: 690: fmt = fmtb;
	movlw	F591
	movwf	?a_type
	line	691
;focal0.c: 691: continue;
	goto	l166
	line	692
l169
	line	693
;focal0.c: 692: }
	movf	?a_type+5,w
	xorlw	44
	iorwf	?a_type+6,w
	btfsc	3,2
	goto	l166
	line	695
;focal0.c: 694: continue;
;focal0.c: 695: if (c == '!') {
	movf	?a_type+5,w
	xorlw	33
	iorwf	?a_type+6,w
	btfss	3,2
	goto	l173
	line	696
;focal0.c: 696: fputc('\n',(&_iob[1]));
	movlw	10
	goto	L23
	line	698
;focal0.c: 697: continue;
l173
	line	699
;focal0.c: 698: }
	movf	?a_type+5,w
	xorlw	35
	iorwf	?a_type+6,w
	btfss	3,2
	goto	l174
	line	700
;focal0.c: 700: fputc('\r',(&_iob[1]));
	movlw	13
L23
	movwf	?_fputc
	clrf	?_fputc+1
	movlw	__iob+10
	movwf	?_fputc+2
	call	_fputc
	line	701
;focal0.c: 701: continue;
	goto	l166
	line	702
l174
	line	703
;focal0.c: 702: }
	movf	?a_type+5,w
	xorlw	34
	iorwf	?a_type+6,w
	btfsc	3,2
	goto	l176
	goto	l175
	line	704
;focal0.c: 704: while ((c = *ctp++)!='\0' && c!='"')
l177
	line	705
;focal0.c: 705: fputc(c,(&_iob[1]));
	movf	?a_type+5,w
	movwf	?_fputc
	movf	?a_type+6,w
	movwf	?_fputc+1
	movlw	__iob+10
	movwf	?_fputc+2
	call	_fputc
l176
	line	704
	incf	_ctp
	decf	_ctp,w
	movwf	4
	movf	0,w
	movwf	?a_type+5
	clrf	?a_type+6
	movf	?a_type+6,w
	movwf	btemp+1
	movf	?a_type+5,w
	movwf	btemp
	iorwf	btemp+1,w
	btfsc	3,2
	goto	l178
	movf	?a_type+5,w
	xorlw	34
	iorwf	?a_type+6,w
	btfss	3,2
	goto	l177
l178
	line	706
;focal0.c: 706: if (c == '\0') {
	movf	?a_type+6,w
	iorwf	?a_type+5,w
	btfss	3,2
	goto	l166
	line	707
;focal0.c: 707: diag("Missing `\"' in type");
	movlw	low u349
	movwf	?_diag
	movlw	high u349
	movwf	?_diag+1
	call	_diag
	line	708
;focal0.c: 708: break;
	goto	l168
	line	711
;focal0.c: 709: }
l175
	line	712
;focal0.c: 711: }
	decf	_ctp
	line	713
;focal0.c: 713: printf(fmt, eval());
	movf	?a_type,w
	movwf	?_printf+1
	movlw	128
	movwf	?_printf+2
	call	_eval
	movf	btemp,w
	movwf	?a_type+8
	movf	btemp+1,w
	movwf	?a_type+9
	movf	btemp+2,w
	movwf	?a_type+10
	movlw	?a_type+8
	movwf	?_printf
	call	_printf
	line	714
l166
	line	677
	bcf	3,5
	call	_getnb
	movf	btemp,w
	movwf	?a_type+5
	movf	btemp+1,w
	movwf	?a_type+6
	iorwf	?a_type+5,w
	btfsc	3,2
	goto	l168
	movf	?a_type+5,w
	xorlw	59
	iorwf	?a_type+6,w
	btfss	3,2
	goto	l167
l168
	line	715
;focal0.c: 714: }
	decf	_ctp
	line	716
;focal0.c: 716: }
	return	;W free

	psect	rdata_0
	line	665
;focal0.c: 664: void type()
F592
	ds	2
;	_fmt assigned to ?a_type+0
_type$fmt	set	?a_type
;	_x assigned to ?a_type+1
_type$x	set	?a_type+1
;	_y assigned to ?a_type+3
_type$y	set	?a_type+3
;	_c assigned to ?a_type+5
_type$c	set	?a_type+5

	psect	idata_0
	retlw	1
	retlw	0

	psect	text15
	line	721
_save
;	_lnop assigned to ?a_save+0
_save$lnop	set	?a_save
;	_lp assigned to ?a_save+1
_save$lp	set	?a_save+1
;	_lgroup assigned to ?a_save+2
_save$lgroup	set	?a_save+2
;	_tgroup assigned to ?a_save+4
_save$tgroup	set	?a_save+4
;	_lno assigned to ?a_save+6
_save$lno	set	?a_save+6
	line	726
;_lnop stored from w
	bcf	3,5
	movwf	?a_save
;focal0.c: 718: void save(lnop, fp)
	movf	?a_save
	btfss	3,2
	goto	l181
	line	727
;focal0.c: 727: lno.ln_type = 0;
	clrf	?a_save+8
	clrf	?a_save+9
	line	728
;focal0.c: 728: lnop = &lno;
	movlw	?a_save+6
	movwf	?a_save
	line	729
l181
	line	730
;focal0.c: 729: }
	movf	_linev,w
	movwf	?a_save+1
	line	731
;focal0.c: 731: if (lnop->ln_type!=3 && lnop->ln_type!=0) {
	movf	?a_save,w
	addlw	2
	movwf	4
	movf	0,w
	movwf	btemp
	incf	4
	movf	0,w
	movwf	btemp+1
	movf	btemp,w
	xorlw	3
	iorwf	btemp+1,w
	btfsc	3,2
	goto	l192
	movf	?a_save,w
	addlw	2
	movwf	4
	movf	0,w
	movwf	btemp
	incf	4
	movf	0,w
	movwf	btemp+1
	iorwf	btemp,w
	btfsc	3,2
	goto	l192
	goto	l183
	line	732
;focal0.c: 732: while (lp!=(0) && lp->l_gno<lnop->ln_gno)
l184
	line	733
;focal0.c: 733: lp = lp->l_fp;
	movf	?a_save+1,w
	movwf	4
	movf	0,w
	movwf	?a_save+1
l183
	line	732
	movf	?a_save+1
	btfsc	3,2
	goto	l185
	movf	?a_save+1,w
	addlw	2
	movwf	4
	movf	0,w
	movwf	btemp
	incf	?a_save,w
	movwf	4
	movf	0,w
	subwf	btemp,w
	btfss	3,0
	goto	l184
l185
	line	734
;focal0.c: 734: if (lp==(0) || lp->l_gno!=lnop->ln_gno)
	movf	?a_save+1
	btfsc	3,2
	goto	u1640
	incf	?a_save,w
	movwf	4
	movf	0,w
	movwf	btemp
	movf	?a_save+1,w
	addlw	2
	movwf	4
	movf	0,w
	xorwf	btemp,w
	btfsc	3,2
	goto	l186
u1640
	line	735
;focal0.c: 735: diag("Line not found");
	movlw	low u359
	movwf	?_diag
	movlw	high u359
	movwf	?_diag+1
	bcf	3,5
	call	_diag
l186
	line	736
;focal0.c: 736: if (lnop->ln_type == 2) {
	movf	?a_save,w
	addlw	2
	movwf	4
	movf	0,w
	movwf	btemp
	incf	4
	movf	0,w
	movwf	btemp+1
	movf	btemp,w
	xorlw	2
	iorwf	btemp+1,w
	btfsc	3,2
	goto	l188
	goto	l192
	line	737
;focal0.c: 737: while (lp!=(0) && lp->l_lno!=lnop->ln_lno)
l189
	line	738
;focal0.c: 738: lp = lp->l_fp;
	movf	?a_save+1,w
	movwf	4
	movf	0,w
	movwf	?a_save+1
l188
	line	737
	movf	?a_save+1
	btfsc	3,2
	goto	l190
	movf	?a_save,w
	movwf	4
	movf	0,w
	movwf	btemp
	incf	?a_save+1,w
	movwf	4
	movf	0,w
	xorwf	btemp,w
	btfss	3,2
	goto	l189
l190
	line	739
;focal0.c: 739: if (lp == (0))
	movf	?a_save+1
	btfss	3,2
	goto	l192
	line	740
;focal0.c: 740: diag("Line not found");
	movlw	low u369
	movwf	?_diag
	movlw	high u369
	movwf	?_diag+1
	bcf	3,5
	call	_diag
	line	755
;focal0.c: 741: }
l192
	line	743
	movf	?a_save+1
	btfsc	3,2
	return
	line	744
;focal0.c: 744: putline(lp, fp);
	movf	?_save,w
	movwf	?_putline
	movf	?a_save+1,w
	bcf	3,5
	call	_putline
	line	745
;focal0.c: 745: if (lnop->ln_type == 2)
	movf	?a_save,w
	addlw	2
	movwf	4
	movf	0,w
	movwf	btemp
	incf	4
	movf	0,w
	movwf	btemp+1
	movf	btemp,w
	xorlw	2
	iorwf	btemp+1,w
	btfsc	3,2
	return
	line	747
;focal0.c: 746: break;
;focal0.c: 747: lgroup = lp->l_gno;
	movf	?a_save+1,w
	addlw	2
	movwf	4
	movf	0,w
	movwf	?a_save+2
	clrf	?a_save+3
	line	748
;focal0.c: 748: if ((lp = lp->l_fp) != (0)) {
	movf	?a_save+1,w
	movwf	4
	movf	0,w
	movwf	?a_save+1
	btfsc	3,2
	goto	l192
	line	749
;focal0.c: 749: tgroup = lp->l_gno;
	movf	?a_save+1,w
	addlw	2
	movwf	4
	movf	0,w
	movwf	?a_save+4
	clrf	?a_save+5
	line	750
;focal0.c: 750: if (lnop->ln_type==1 && tgroup!=lnop->ln_gno)
	movf	?a_save,w
	addlw	2
	movwf	4
	movf	0,w
	movwf	btemp
	incf	4
	movf	0,w
	movwf	btemp+1
	decf	btemp,w
	iorwf	btemp+1,w
	btfss	3,2
	goto	l197
	incf	?a_save,w
	movwf	4
	movf	0,w
	movwf	btemp
	clrf	btemp+1
	movf	?a_save+5,w
	xorwf	btemp+1,w
	btfss	3,2
	goto	u1735
	movf	?a_save+4,w
	xorwf	btemp,w
u1735
	btfss	3,2
	line	751
;focal0.c: 751: break;
	return
l197
	line	752
;focal0.c: 752: if (tgroup != lgroup)
	movf	?a_save+3,w
	xorwf	?a_save+5,w
	btfss	3,2
	goto	u1755
	movf	?a_save+2,w
	xorwf	?a_save+4,w
u1755
	btfsc	3,2
	goto	l192
	line	753
;focal0.c: 753: fputc('\n',fp);
	movlw	10
	movwf	?_fputc
	clrf	?_fputc+1
	movf	?_save,w
	movwf	?_fputc+2
	call	_fputc
	line	743
	goto	l192

	psect	text16
	line	759
_erasesyms
;	_sp2 assigned to ?a_erasesyms+0
_erasesyms$sp2	set	?a_erasesyms
;	_sp1 assigned to ?a_erasesyms+1
_erasesyms$sp1	set	?a_erasesyms+1
;	_i assigned to ?a_erasesyms+2
_erasesyms$i	set	?a_erasesyms+2
	line	763
;focal0.c: 758: void erasesyms()
	bcf	3,5
	clrf	?a_erasesyms+2
	clrf	?a_erasesyms+3
l200
	line	764
;focal0.c: 764: sp1 = symv[i];
	movf	?a_erasesyms+2,w
	addlw	_symv
	movwf	4
	movf	0,w
	movwf	?a_erasesyms+1
	line	765
;focal0.c: 765: symv[i] = (0);
	movf	?a_erasesyms+2,w
	addlw	_symv
	movwf	4
	clrf	0
	line	770
;focal0.c: 766: while (sp1 != (0)) {
l203
	line	766
	movf	?a_erasesyms+1
	btfsc	3,2
	goto	l205
	line	767
;focal0.c: 767: sp2 = sp1->s_fp;
	movf	?a_erasesyms+1,w
	movwf	4
	movf	0,w
	movwf	?a_erasesyms
	line	768
;focal0.c: 768: free((char *) sp1);
	movf	?a_erasesyms+1,w
	bcf	3,5
	call	_free
	line	769
;focal0.c: 769: sp1 = sp2;
	movf	?a_erasesyms,w
	movwf	?a_erasesyms+1
	line	766
	goto	l203
l205
	line	763
	incf	?a_erasesyms+2
	btfsc	3,2
	incf	?a_erasesyms+3
	movf	?a_erasesyms+3,w
	xorlw	128
	movwf	btemp
	movlw	128
	subwf	btemp,w
	movlw	255
;set	bank bits for (((?a_erasesyms+2)))
	btfsc	3,2
	subwf	?a_erasesyms+2,w
	btfsc	3,0
	return
	goto	l200

	psect	strings
	line	772
u69
	retlw	102	;'f'
	retlw	115	;'s'
	retlw	113	;'q'
	retlw	116	;'t'
	retlw	0
u329
	retlw	77	;'M'
	retlw	105	;'i'
	retlw	115	;'s'
	retlw	115	;'s'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	103	;'g'
	retlw	32
	retlw	46
	retlw	32
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	32
	retlw	102	;'f'
	retlw	111	;'o'
	retlw	114	;'r'
	retlw	109	;'m'
	retlw	97	;'a'
	retlw	116	;'t'
	retlw	0
u29
	retlw	102	;'f'
	retlw	99	;'c'
	retlw	111	;'o'
	retlw	115	;'s'
	retlw	0
u79
	retlw	102	;'f'
	retlw	97	;'a'
	retlw	98	;'b'
	retlw	115	;'s'
	retlw	0
u99
	retlw	102	;'f'
	retlw	105	;'i'
	retlw	116	;'t'
	retlw	114	;'r'
	retlw	0
u189
	retlw	66	;'B'
	retlw	97	;'a'
	retlw	100	;'d'
	retlw	32
	retlw	102	;'f'
	retlw	111	;'o'
	retlw	114	;'r'
	retlw	0
u299
	retlw	73	;'I'
	retlw	108	;'l'
	retlw	108	;'l'
	retlw	101	;'e'
	retlw	103	;'g'
	retlw	97	;'a'
	retlw	108	;'l'
	retlw	32
	retlw	108	;'l'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	101	;'e'
	retlw	32
	retlw	110	;'n'
	retlw	117	;'u'
	retlw	109	;'m'
	retlw	98	;'b'
	retlw	101	;'e'
	retlw	114	;'r'
	retlw	0
u259
	retlw	66	;'B'
	retlw	97	;'a'
	retlw	100	;'d'
	retlw	32
	retlw	108	;'l'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	101	;'e'
	retlw	32
	retlw	110	;'n'
	retlw	117	;'u'
	retlw	109	;'m'
	retlw	98	;'b'
	retlw	101	;'e'
	retlw	114	;'r'
	retlw	0
u39
	retlw	102	;'f'
	retlw	101	;'e'
	retlw	120	;'x'
	retlw	112	;'p'
	retlw	0
u279
	retlw	82	;'R'
	retlw	101	;'e'
	retlw	116	;'t'
	retlw	117	;'u'
	retlw	114	;'r'
	retlw	110	;'n'
	retlw	32
	retlw	110	;'n'
	retlw	111	;'o'
	retlw	116	;'t'
	retlw	32
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	32
	retlw	100	;'d'
	retlw	111	;'o'
	retlw	0
u59
	retlw	102	;'f'
	retlw	97	;'a'
	retlw	116	;'t'
	retlw	110	;'n'
	retlw	0
u19
	retlw	102	;'f'
	retlw	115	;'s'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	0
u89
	retlw	102	;'f'
	retlw	115	;'s'
	retlw	103	;'g'
	retlw	110	;'n'
	retlw	0
u209
u159
	retlw	77	;'M'
	retlw	105	;'i'
	retlw	115	;'s'
	retlw	115	;'s'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	103	;'g'
	retlw	32
	retlw	61	;'='
	retlw	32
	retlw	115	;'s'
	retlw	105	;'i'
	retlw	103	;'g'
	retlw	110	;'n'
	retlw	0
u109
	retlw	102	;'f'
	retlw	114	;'r'
	retlw	97	;'a'
	retlw	110	;'n'
	retlw	0
u199
u139
	retlw	78	;'N'
	retlw	111	;'o'
	retlw	32
	retlw	112	;'p'
	retlw	114	;'r'
	retlw	111	;'o'
	retlw	103	;'g'
	retlw	114	;'r'
	retlw	97	;'a'
	retlw	109	;'m'
	retlw	0
u249
	retlw	69	;'E'
	retlw	79	;'O'
	retlw	70	;'F'
	retlw	32
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	32
	retlw	97	;'a'
	retlw	115	;'s'
	retlw	107	;'k'
	retlw	0
u229
	retlw	77	;'M'
	retlw	105	;'i'
	retlw	115	;'s'
	retlw	115	;'s'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	103	;'g'
	retlw	32
	retlw	96	;'`'
	retlw	34
	retlw	39
	retlw	32
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	32
	retlw	97	;'a'
	retlw	115	;'s'
	retlw	107	;'k'
	retlw	0
u179
	retlw	77	;'M'
	retlw	105	;'i'
	retlw	115	;'s'
	retlw	115	;'s'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	103	;'g'
	retlw	32
	retlw	115	;'s'
	retlw	101	;'e'
	retlw	109	;'m'
	retlw	105	;'i'
	retlw	0
u289
	retlw	70	;'F'
	retlw	111	;'o'
	retlw	114	;'r'
	retlw	32
	retlw	115	;'s'
	retlw	116	;'t'
	retlw	97	;'a'
	retlw	99	;'c'
	retlw	107	;'k'
	retlw	32
	retlw	98	;'b'
	retlw	111	;'o'
	retlw	116	;'t'
	retlw	99	;'c'
	retlw	104	;'h'
	retlw	0
u49
	retlw	102	;'f'
	retlw	108	;'l'
	retlw	111	;'o'
	retlw	103	;'g'
	retlw	0
u339
	retlw	37
	retlw	37
	retlw	37
	retlw	100	;'d'
	retlw	46
	retlw	37
	retlw	100	;'d'
	retlw	102	;'f'
	retlw	0
u309
	retlw	37
	retlw	57	;'9'
	retlw	46
	retlw	52	;'4'
	retlw	102	;'f'
	retlw	0
u349
	retlw	77	;'M'
	retlw	105	;'i'
	retlw	115	;'s'
	retlw	115	;'s'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	103	;'g'
	retlw	32
	retlw	96	;'`'
	retlw	34
	retlw	39
	retlw	32
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	32
	retlw	116	;'t'
	retlw	121	;'y'
	retlw	112	;'p'
	retlw	101	;'e'
	retlw	0
u149
	retlw	69	;'E'
	retlw	114	;'r'
	retlw	97	;'a'
	retlw	115	;'s'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	103	;'g'
	retlw	32
	retlw	99	;'c'
	retlw	117	;'u'
	retlw	114	;'r'
	retlw	114	;'r'
	retlw	101	;'e'
	retlw	110	;'n'
	retlw	116	;'t'
	retlw	32
	retlw	108	;'l'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	101	;'e'
	retlw	0
u319
	retlw	37
	retlw	54	;'6'
	retlw	101	;'e'
	retlw	0
u359
u369
	retlw	76	;'L'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	101	;'e'
	retlw	32
	retlw	110	;'n'
	retlw	111	;'o'
	retlw	116	;'t'
	retlw	32
	retlw	102	;'f'
	retlw	111	;'o'
	retlw	117	;'u'
	retlw	110	;'n'
	retlw	100	;'d'
	retlw	0
u219
	retlw	73	;'I'
	retlw	108	;'l'
	retlw	108	;'l'
	retlw	101	;'e'
	retlw	103	;'g'
	retlw	97	;'a'
	retlw	108	;'l'
	retlw	32
	retlw	99	;'c'
	retlw	111	;'o'
	retlw	109	;'m'
	retlw	109	;'m'
	retlw	97	;'a'
	retlw	110	;'n'
	retlw	100	;'d'
	retlw	0
u169
	retlw	77	;'M'
	retlw	105	;'i'
	retlw	115	;'s'
	retlw	115	;'s'
	retlw	105	;'i'
	retlw	110	;'n'
	retlw	103	;'g'
	retlw	32
	retlw	99	;'c'
	retlw	111	;'o'
	retlw	109	;'m'
	retlw	109	;'m'
	retlw	97	;'a'
	retlw	0
u129
	retlw	94	;'^'
	retlw	67	;'C'
	retlw	0
u269
	retlw	79	;'O'
	retlw	117	;'u'
	retlw	116	;'t'
	retlw	32
	retlw	111	;'o'
	retlw	102	;'f'
	retlw	32
	retlw	115	;'s'
	retlw	112	;'p'
	retlw	97	;'a'
	retlw	99	;'c'
	retlw	101	;'e'
	retlw	32
	retlw	40
	retlw	99	;'c'
	retlw	111	;'o'
	retlw	110	;'n'
	retlw	116	;'t'
	retlw	114	;'r'
	retlw	111	;'o'
	retlw	108	;'l'
	retlw	32
	retlw	115	;'s'
	retlw	116	;'t'
	retlw	97	;'a'
	retlw	99	;'c'
	retlw	107	;'k'
	retlw	41
	retlw	0
u239
	retlw	58	;':'
	retlw	32
	retlw	0
u119
	retlw	78	;'N'
	retlw	111	;'o'
	retlw	32
	retlw	109	;'m'
	retlw	101	;'e'
	retlw	109	;'m'
	retlw	111	;'o'
	retlw	114	;'r'
	retlw	121	;'y'
	retlw	32
	retlw	102	;'f'
	retlw	111	;'o'
	retlw	114	;'r'
	retlw	32
	retlw	37
	retlw	115	;'s'
	retlw	10
	retlw	0

	psect	rbss_0
_ccb_free
	ds	1
_clp
	ds	1
_controlv
	ds	1
_ctp
	ds	1
_forsp
	ds	1
_linev
	ds	1
_intflag
	ds	2
_mode
	ds	2
_forlimit
	ds	3
_forstep
	ds	3
_env
	ds	8
F591
	ds	20
_abuf
	ds	128
_cbuf
	ds	128
_symv
	ds	256

	psect	fpp__fsin
;function pointer lookups
fpl__fsin
	retlw	?_fsin
	movf	btemp,w
	ljmp	_fsin

	psect	fpp__fcos
fpl__fcos
	retlw	?_fcos
	movf	btemp,w
	ljmp	_fcos

	psect	fpp__fexp
fpl__fexp
	retlw	?_fexp
	movf	btemp,w
	ljmp	_fexp

	psect	fpp__flog
fpl__flog
	retlw	?_flog
	movf	btemp,w
	ljmp	_flog

	psect	fpp__fatn
fpl__fatn
	retlw	?_fatn
	movf	btemp,w
	ljmp	_fatn

	psect	fpp__fsqt
fpl__fsqt
	retlw	?_fsqt
	movf	btemp,w
	ljmp	_fsqt

	psect	fpp__fabt
fpl__fabt
	retlw	?_fabt
	movf	btemp,w
	ljmp	_fabt

	psect	fpp__fsgn
fpl__fsgn
	retlw	?_fsgn
	movf	btemp,w
	ljmp	_fsgn

	psect	fpp__fitr
fpl__fitr
	retlw	?_fitr
	movf	btemp,w
	ljmp	_fitr

	psect	fpp__fran
fpl__fran
	retlw	?_fran
	movf	btemp,w
	ljmp	_fran

	psect	temp
btemp
	ds	6