SECTION taxfree000000,CODE_c
ProgStart
	MOVE.L	4,A6
	LEA	lbL00056A(PC),A0
	MOVEQ	#0,D0
	MOVE.L	#$973,D1
lbC000012	ADD.B	(A0)+,D0
	SWAP	D0
	ROL.L	#2,D0
	DBRA	D1,lbC000012
;	rts
	
	CMP.L	#$85f40d50,D0
	BEQ.W	lbC00002E
;	MOVE.L	#$FC0002,$80
;	TRAP	#0

lbC00002E	BSR.W	lbC0004D6
	LEA	doslibrary.MSG(PC),A1
	JSR	-$198(A6)
	MOVE.L	D0,A6
	LEA	CON3002034022.MSG(PC),A0
	MOVE.L	A0,D1
	MOVE.L	#$3ED,D2
	JSR	-$1E(A6)
	MOVE.L	D0,D7
	MOVE.L	D7,D1
	MOVE.L	#WELCOMEEnterD.MSG,D2
	MOVE.L	#$1C,D3
	JSR	-$30(A6)
	BRA.S	lbC000074

lbC000062	MOVE.L	D7,D1
	MOVE.L	#lbB0005AD,D2
	MOVE.L	#1,D3
	JSR	-$30(A6)
lbC000074	MOVE.L	D7,D1
	MOVE.L	#lbB000E63,D2
	MOVEQ	#$1D,D3
	JSR	-$2A(A6)
	MOVEQ	#0,D6
	LEA	lbB000E63(PC),A0
	CMP.B	#$21,(A0)
	BEQ.W	lbC000134
lbC000090	CMP.B	#$78,(A0)
	BEQ.S	lbC000114
	CMP.B	#$58,(A0)
	BEQ.S	lbC000114
	CMP.B	#$52,(A0)
	BEQ.W	lbC0001B2
	CMP.B	#$72,(A0)
	BEQ.W	lbC0001B2
	CMP.B	#10,(A0)
	BEQ.B	lbC000062
	CMP.B	#$73,(A0)
	BEQ.W	lbC0001F2
	CMP.B	#$53,(A0)
	BEQ.W	lbC0001F2
	CMP.B	#$2F,(A0)
	BEQ.B	lbC000148
	CMP.B	#$67,(A0)
	BEQ.B	lbC000100
	CMP.B	#$47,(A0)
	BEQ.B	lbC000100
	CMP.B	#$6C,(A0)
	BEQ.B	lbC000100
	CMP.B	#$4C,(A0)
	BEQ.B	lbC000100
	CMP.B	#$44,(A0)
	BEQ.W	lbC000502
	CMP.B	#$64,(A0)
	BEQ.W	lbC000502
	BRA.W	lbC000062

lbC000100	LEA	lbB000E82(PC),A1
	MOVEQ	#$1D,D0
lbC000106	MOVE.B	(A0)+,(A1)+
	DBRA	D0,lbC000106

	BSR.W	lbC0002BC
	BRA.W	lbC000062

lbC000114	MOVE.L	D7,D1
	JSR	-$24(A6)
	MOVEQ	#0,D0
	RTS

	MOVE.L	D7,D1
	MOVE.L	#intuitionlibr.MSG0,D2
	MOVE.L	#1,D3
	JSR	-$30(A6)
	BRA.W	lbC000074

lbC000134	LEA	ascii.MSG2(PC),A0
	LEA	lbL000E64(PC),A1
	MOVEQ	#$1D,D0
lbC00013E	MOVE.B	(A1)+,(A0)+
	DBRA	D0,lbC00013E

	BRA.W	lbC000062

lbC000148	LEA	ascii.MSG2(PC),A0
	LEA	lbB000E63(PC),A1
	MOVEQ	#$1D,D0
lbC000152	MOVE.B	(A0)+,(A1)+
	DBRA	D0,lbC000152

	LEA	lbB000E63(PC),A1
	CMP.B	#0,(A1)
	BEQ.W	lbC000062
	MOVE.L	D7,D1
	MOVE.L	#Dialing.MSG,D2
	MOVE.L	#8,D3
	JSR	-$30(A6)
	MOVE.L	D7,D1
	LEA	lbB000E63(PC),A1
	MOVE.L	A1,D2
	MOVEQ	#0,D3
lbC000180	CMP.B	#10,(A1)+
	BEQ.S	lbC00018A
	ADDQ.L	#1,D3
	BRA.S	lbC000180

lbC00018A	JSR	-$30(A6)
	MOVEQ	#1,D6
	LEA	lbB000E63(PC),A0
	BRA.W	lbC000090

	MOVE.L	D7,D1
	MOVE.L	#intuitionlibr.MSG0,D2
	MOVE.L	#1,D3
	JSR	-$30(A6)
	PEA	lbC000062(PC)
	BRA.W	lbC000314

lbC0001B2
	LEA	lbB000E82(PC),A1
	CMP.B	#0,(A1)
	BEQ.W	lbC000062
	MOVE.L	D7,D1
	MOVE.L	#Dialing.MSG,D2
	MOVE.L	#8,D3
	JSR	-$30(A6)
	MOVE.L	D7,D1
	LEA	lbB000E82(PC),A1
	MOVE.L	A1,D2
	MOVEQ	#0,D3
lbC0001DA
	CMP.B	#10,(A1)+
	BEQ.S	lbC0001E4
	ADDQ.L	#1,D3
	BRA.S	lbC0001DA

lbC0001E4	JSR	-$30(A6)
	MOVEQ	#1,D6
	LEA	lbB000E82(PC),A0
	BRA.W	lbC000090

lbC0001F2
	LEA	lbB000E82(PC),A1
	MOVEQ	#$1D,D0
lbC0001F8
	MOVE.B	(A0)+,(A1)+
	DBRA	D0,lbC0001F8

	TST.L	D6
	BNE.S	lbC00020C
	MOVE.L	#DialingPlease.MSG,D2
	BSR.W	lbC0004B4
lbC00020C
	MOVE.W	#$4000,$DFF09A
	BSET	#1,$BFE001
	LEA	lbL0005CA(PC),A1
	MOVE.L	A1,$DFF0A0
	MOVE.L	A1,$DFF0D0
	MOVE.W	#2,$DFF0A4
	MOVE.W	#2,$DFF0D4
	LEA	ascii.MSG1(PC),A0
	CMP.B	#10,(A0)
	BEQ.B	lbC0002A8
	CMP.B	#$61,(A0)
	BMI.B	lbC000270
	CMP.B	#$66,(A0)
	BPL.B	lbC0002A8
	MOVEQ	#0,D0
	MOVE.B	(A0),D0
	SUB.L	#$61,D0
	MULU	#10,D0
	LEA	ascii.MSG(PC),A0
	ADD.L	D0,A0
	BRA.B	lbC000294

lbC000270
	CMP.B	#$41,(A0)
	BMI.B	lbC000294
	CMP.B	#$46,(A0)
	BPL.B	lbC0002A8
	MOVEQ	#0,D0
	MOVE.B	(A0),D0
	SUB.L	#$41,D0
	MULU	#10,D0
	LEA	ascii.MSG(PC),A0
	ADD.L	D0,A0
lbC000294
	MOVEQ	#$29,D0
lbC000296
	MOVEQ	#0,D1
	MOVE.B	(A0)+,D1
	CMP.B	#10,D1
	BEQ.S	lbC0002A8
	BSR.W	lbC000448
	DBRA	D0,lbC000296

lbC0002A8
	BCLR	#1,$BFE001
	MOVE.W	#$C000,$DFF09A
	BRA.W	lbC000062

lbC0002BC
	TST.L	D6
	BNE.S	lbC0002CA
	MOVE.L	#DialingPlease.MSG,D2
	BSR.W	lbC0004B4
lbC0002CA
	BSR.B	lbC000314
	LEA	lbB000E82(PC),A0
	CMP.B	#10,(A0)
	BEQ.B	lbC000302
	MOVE.L	#$61A80,D6
	BSR.W	lbC000438
	LEA	lbB000E82(PC),A0
	MOVEQ	#$29,D0
lbC0002EA
	MOVEQ	#0,D1
	MOVE.B	(A0)+,D1
	CMP.B	#10,D1
	BEQ.S	lbC0002FC
	BSR.W	lbC0003D0
	DBRA	D0,lbC0002EA

lbC0002FC
	MOVEQ	#$53,D1
	BSR.W	lbC0003D0
lbC000302
	BCLR	#1,$BFE001
	MOVE.W	#$C000,$DFF09A
lbC000312
	RTS

lbC000314

	MOVE.W	#$4000,$DFF09A
	BSET	#1,$BFE001
	LEA	lbL0005CA(PC),A0
	MOVE.L	A0,$DFF0A0
	MOVE.L	A0,$DFF0D0
	MOVE.W	#2,$DFF0A4
	MOVE.W	#2,$DFF0D4
	MOVE.W	#$8009,$DFF096
	MOVE.W	#$40,$DFF0A8
	MOVE.W	#$40,$DFF0D8
	MOVE.W	#$156,$DFF0A6	;	;171=2400
	MOVE.W	#$174,$DFF0D6	;
	MOVE.L	#$12000,D6	;ea60
	BSR.W	lbC000438
	move.w	#9,$dff096
	move.l	#$1000,d6
	bsr.w	lbc000438
	MOVE.W	#$8009,$DFF096
	MOVE.W	#$40,$DFF0A8
	MOVE.W	#$40,$DFF0D8
	MOVE.W	#$174,$DFF0A6	;	;155=2600
	MOVE.W	#$174,$DFF0D6	;
	MOVE.L	#$20000,D6
	BSR.W	lbC000438
	MOVE.W	#9,$DFF096
	RTS

lbC0003D0	LEA	GLSgls.MSG(PC),A2
	LEA	lbL0005E0(PC),A3
	MOVEQ	#0,D2
lbC0003DA	MOVEQ	#0,D3
	MOVE.B	(A2)+,D3
	BEQ.W	lbC000312
	CMP.B	D1,D3
	BEQ.S	lbC0003EA
	ADDQ.W	#1,D2
	BRA.S	lbC0003DA

lbC0003EA
	ASL.W	#2,D2
	MOVE.W	#$8009,$DFF096
	MOVE.W	#$40,$DFF0A8
	MOVE.W	#$40,$DFF0D8
	MOVE.W	0(A3,D2.W),$DFF0A6
	MOVE.W	2(A3,D2.W),$DFF0D6
	MOVE.L	#$7530,D6	;7530
	BSR.B	lbC000438
	CLR.W	$DFF0A8
	CLR.W	$DFF0D8
	MOVE.W	#9,$DFF096
	MOVE.L	#$2710,D6
lbC000438 CMP.B	#$FF,$DFF006
	BNE.S	lbC000438
lbC000442	SUBQ.L	#1,D6
	BNE.S	lbC000442
	RTS

lbC000448
	LEA	ascii.MSG0(PC),A2
	LEA	lbL000662(PC),A3
	MOVEQ	#0,D2
lbC000452	MOVEQ	#0,D3
	MOVE.B	(A2)+,D3
	BEQ.W	lbC000312
	CMP.B	D1,D3
	BEQ.S	lbC000462
	ADDQ.W	#1,D2
	BRA.S	lbC000452

lbC000462	ASL.W	#2,D2
	MOVE.W	#$8009,$DFF096
	MOVE.W	#$40,$DFF0A8
	MOVE.W	#$40,$DFF0D8
	MOVE.W	0(A3,D2.W),$DFF0A6
	MOVE.W	2(A3,D2.W),$DFF0D6
	MOVE.L	#$9800,D6
	BSR.B	lbC000438
	CLR.W	$DFF0A8
	CLR.W	$DFF0D8
	MOVE.W	#9,$DFF096
	MOVE.L	#$3000,D6
	BRA.B	lbC000438

lbC0004B4	MOVEQ	#0,D3
	MOVE.L	D7,D1
	MOVE.L	D2,A0
lbC0004BA	TST.B	(A0)+
	BEQ.S	lbC0004C2
	ADDQ.L	#1,D3
	BRA.S	lbC0004BA

lbC0004C2	JMP	-$30(A6)

lbC0004C6	MOVE.L	lbL00056A(PC),-$CA(A6)
	MOVE.B	#6,$11(A0)
	JMP	-$CC(A6)

lbC0004D6	MOVEM.L	D0-D7/A0-A6,-(SP)
	MOVE.L	4,A6
	MOVE.L	$17A(A6),A0
	LEA	intuitionlibr.MSG(PC),A1
	JSR	-$114(A6)
	MOVE.L	D0,A0
	PEA	lbC0004C6(PC)
	MOVE.L	-$CA(A0),lbL00056A
	MOVE.L	(SP)+,-$CA(A0)
	MOVEM.L	(SP)+,D0-D7/A0-A6
	RTS

lbC000502	MOVEM.L	D0-D7/A0-A6,-(SP)
	BSR.B	lbC0004D6
	LEA	RAW00640200Th.MSG(PC),A0
	MOVE.L	A0,D1
	MOVE.L	#$3ED,D2
	JSR	-$1E(A6)
	MOVE.L	D0,D5
	MOVE.L	D5,D1
	MOVE.L	#REMEMBERThese.MSG,D2
	MOVE.L	#$48B,D3
	JSR	-$30(A6)
	MOVE.L	D5,D1
	LEA	lbL000EC0(PC),A0
	MOVE.L	A0,D2
	MOVEQ	#3,D3
	JSR	-$2A(A6)
	MOVE.L	D5,D1
	MOVE.L	#ExamplesThenu.MSG,D2
	MOVE.L	#$2BA,D3
	JSR	-$30(A6)
	MOVE.L	D5,D1
	LEA	lbL000EC0(PC),A0
	MOVE.L	A0,D2
	MOVEQ	#3,D3
	JSR	-$2A(A6)
	MOVE.L	D5,D1
	JSR	-$24(A6)
	MOVEM.L	(SP)+,D0-D7/A0-A6
	BRA.W	lbC000062

lbL00056A	dc.l	0
DialingPlease.MSG	dc.b	'Phreaking, Please wait...',0
Dialing.MSG	dc.b	'Phreaking   '
intuitionlibr.MSG0	dc.b	11
intuitionlibr.MSG	dc.b	'intuition.library',0
doslibrary.MSG	dc.b	'dos.library',0
lbB0005AD	dc.b	12
WELCOMEEnterD.MSG	dc.b	'What the FUCK is this ????? '
lbL0005CA	dc.l	$7F0081
GLSgls.MSG	dc.b	'1234567890GLSgls',0,0
lbL0005E0	dc.l	$3D904F3
	dc.l	$32604F3
	dc.l	$32603D9
	dc.l	$2AA04F3
	dc.l	$2AA03D9
	dc.l	$2AA0326
	dc.l	$24F04F3
	dc.l	$24F03D9
	dc.l	$24F0326
	dc.l	$24F02AA
	dc.l	$20902AA	;G
	dc.l	$2090326	;L
	dc.l	$209024F	;S
	dc.l	$20902AA	;g
	dc.l	$2090326	;l
	dc.l	$209024F	;s
ascii.MSG	dc.b	'020795664',$A
	dc.b	'020795661',$A
	dc.b	'020795604',$A
	dc.b	'020795640',$A
	dc.b	'020795669',$A,0
	dc.b	0
	dc.b	0
	dc.b	0
ascii.MSG0	dc.b	'1234567890',0,0
lbL000662	dc.l	$50402E4
	dc.l	$504029E
	dc.l	$504025E
	dc.l	$48A02E4
	dc.l	$48A029E
	dc.l	$48A025E
	dc.l	$41A02E4
	dc.l	$41A029E
	dc.l	$41A025E
	dc.l	$3B7029E
CON3002034022.MSG
	dc.b	'CON:145/110/360/22/ TaxFree V3.0 by OPTIMUS BRAIN'
	dc.b	' 1991!      ',0
RAW00640200Th.MSG
	dc.b	'RAW:0/0/640/200/ The Not So Incredible TaxFree! - Doc'
	dc.b	'umentation!                               ',0
REMEMBERThese.MSG
	dc.b	12
	dc.b	10
	dc.b	'REMEMBER: These things are COOOOL! We do NOT '
	dc.b	'give a shit of what they ',$A
	dc.b	'          said here so fuck out the shit of'
	dc.b	' them !!!',$A,$A
	dc.b	' If you wish any kind of info then you are not'
	dc.b	' looking in the right place',$A
	dc.b	' mainly because i am not going to give away any'
	dc.b	' kind of info to every lamer',$A
	dc.b	' that gets on his hands this proggy, namely'
	dc.b	' Spectro, and so.... ',$A
	dc.b	' Although this piece of shit (DOC) was written'
	dc.b	' by me the main work was',$A
	dc.b	' done by Nic The Druid of Paradise based on '
	dc.b	' the old taxfree proggy.. ',$A
	dc.b	' So now the shit is said and eated, waste no'
	dc.b	' time and give a call!',$A
	dc.b	' Just call any number and fuck the phone'
	dc.b	' company, so they learn',$A
	dc.b	' how it feels to be fucked every month..... ',$a
	dc.b	' Special Note.....',$A
	dc.b	' There is no fucking risk of beeing caught'
	dc.b	' with this kind of shit, TRUE!',$A
	dc.b	' Mainly because the little ignorants of the'
	dc.b	' phone company have not got',$A
	dc.b	' the fucking idea of what a BB is, and even less'
	dc.b	' how to trace a BB call !!!',$A
	dc.b	' By the way, we also have black boxes on stock'
	dc.b	' anyone interested should',$A
	dc.b	' contact us for the hardware, no plans given !!!'
	dc.b	' So pay or die !!!',$A,$A
	dc.b	'                                                           ',$a
	dc.b	'                                                 ',$a
	dc.b	' What, more ????...',$A
ExamplesThenu.MSG	dc.b	12
	dc.b	10
	dc.b	'Examples:',$A
	dc.b	' Yeah, right, so i do not give the docs and you'
	dc.b	' want examples.... ',$A
	dc.b	' Do you think I am somehow a bit stupid ???, '
	dc.b	'well you are right !!!',$A
	dc.b	' But anyway I am not going to give you those '
	dc.b	' examples !!!!!!',$A
	dc.b	' GUESS BY YOUR OWN !!',$A
	dc.b	' Special shits to all the lamers around my house'
	dc.b	', the police and specially ',$A
	dc.b	' the phone company !!',$A,$A
	dc.b	' AH!!!, also thanx to VISA for their wonderful CC'
	dc.b	' sure they are usefull !!!',$a,$a
	dc.b	9
	dc.b	9
	dc.b	9
	dc.b	'/   - Dial stored number',$A
	dc.b	' R    - Redial last number'
	dc.b	9
	dc.b	9
	dc.b	9
	dc.b	'X   - Close FreeCall V2.0',$A
	dc.b	' D    - These docs'
	dc.b	9
	dc.b	9
	dc.b	9
	dc.b	9
	dc.b	'Sn  - Dial using AXE tones',$A,$A,$A
;	dc.b	7
	dc.b	'          So you DID get some info, what more do you want ?????',$a,$A
	dc.b	9
	dc.b	9
	dc.b	' Do not Give their  BBS a call at ************',$A,$A
	dc.b	9
	dc.b	9
	dc.b	'      Pess any key to return to dialer!      ',$A,$A
lbB000E63	dc.b	0
	even
lbL000E64	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.w	10
lbB000E82	dc.b	0
ascii.MSG1
	ds.b 	29
	dc.b	10
ascii.MSG2
	ds.b	30
	dc.b	10
lbL000EC0
	ds.l 	8
	END