PROGRAM LISTING: 83-02/EXTDIR.SRC

***	.PAGE
;COPYRIGHT 1982 W. NEWELL
;NEWELL INDUSTRIES
	ORG	$4000		; ORG AND RUN ADDRESS
	LDA	#$1A		; FROM THIS LINE TO
	STA	$093B		; LINE 1170 MODIFIES
	STA	$22A5		; THE DOS AND DUP
	STA	$2436		; SYSTEMS
	LDA	#$1B
	STA	$0973
	STA	$0C1E
	STA	$0EB5
	STA	$0F6D
	STA	$30EF
	STA	$2409
	LDA	#$21
	STA	$0DCE
	STA	$0E66
	LDA	#$60
	STA	$0F2D
	LDA	#$20
	STA	$0F39
	STA	$0B90
	LDA	#$A0
	STA	$0B8E
	STA	$0B9B
	LDA	#$06
	STA	$0B8F
	LDA	#$9D
	STA	$0B91
	LDA	#$0B
	STA	$0B92
	LDA	#$EA
	STA	$0B93
	LDA	#04
	STA	$0B9C
	LDA	#$A9
	STA	$0B9D
	LDA	#$00
	STA	$0B9E
	LDA	#$07
	STA	$129C
	LDA	#$30
	STA	$0EEA
	LDA	#$7A
	STA	$0EEE
	LDA	#$1D
	STA	$0E43
	STA	$22AF
	STA	$2453
	LDA	#$18
	STA	$0EDF
	STA	$0F0B
	STA	$229B
	STA	$30DB
	LDA	#$1C
	STA	$0F11
	LDA	#$24
	STA	$23C2
	LDA	#$2E
	STA	$24F8
	LDA	#$23
	STA	$24FA
	LDA	#$01
	STA	$23CC
	STA	$23D9
	STA	$242A
	STA	$2447
	STA	$243A
	LDA	#$25
	STA	$23D1
	STA	$23DA
	STA	$240A
	STA	$242B
	STA	$2448
	STA	$243B
	LDA	#$43
	STA	$2344
	LDA	#$4F
	STA	$2345
	LDA	#$50
	STA	$2346
	LDA	#$59
	STA	$2347
	LDA	#$49
	STA	$2348
	LDA	#$4E
	STA	$2349
	STA	$234D
	LDA	#$47
	STA	$234A
	LDA	#$2D
	STA	$234B
	LDA	#$44
	STA	$234C
	STA	$245C
	LDA	#$3A
	STA	$234E
	LDA	#$4D
	STA	$2423
	STA	$24C5
	STA	$24D2
	LDA	#$4C
	STA	$2431
	STA	$2443
	STA	$244E
	STA	$2459
	STA	$246A
	STA	$2486
	STA	$24D5
	STA	$2DC5
	LDA	#$EA		; THIS SECTION
	STA	$0DBA		; MODIFIES THE VTOC
	STA	$0D8B		; FOR 60 FILENAMES
	LDA	#$0E
	STA	$0D9B
	LDA	#$0F
	STA	$0F40
	LDA	#$BC
	STA	$0D62
	LDY	#0
LOOP1	LDA	MOD,Y		; CHANGES DUP.SYS
	STA	$1832,Y		; TO dup.SYS
	INY
	CPY	#7
	BNE	LOOP1
	LDY	#0
LOOP2	LDA	MESG,Y		; NEW MENU TITLE
	STA	$1F10,Y
	INY
	CPY	#37
	BNE	LOOP2
	JMP	$3000		; BACK TO DOS
MESG	ASC	'DOS 2.0S MOD. DIRECTORY W.NEWELL 6/82'
MOD	ASC	'dup.SYS'