рLASA1((LASA-SRCTX	$LASAGO22;; Set La/Sa of a file.; (c) 1990  Bob Bybee, Poly Peripherals;; Usage: LASA FILENAME 3200 3400;                       La   Sa;	REFS	SYSTEM	REF	ORG	USER	IDNT	$,$	JMP	Start	JMP	StartMsign	DB	'(LASA/1.0 - 1/5/90)',13,0Mmsg1	DB	'File: ',0Mmsg2	DB	13,'has been set to Load Addr ',0Mmsg3	DB	', Start Addr ',0Mmsg4	DB	'.',13,0Start	LXI	H,0	DAD	SP	SHLD	ESP	LXI	H,Msign	CALL	Msg	LHLD	CMPTR	;get ^1st arg	SHLD	NAMPTR	;save it	CALL	SkipNB	;skip the name	MVI	M,0	;NUL-terminate the name	INX	H	CALL	SkipBL	;skip blanks	CALL	Gethex	;get the LA	XCHG	SHLD	NEWLA	XCHG	CALL	SkipNB	CALL	SkipBL	CALL	Gethex	XCHG	SHLD	NEWSA	LHLD	NAMPTR	LXI	D,BUF	MVI	A,40H	;look up the file	gfid	JC	Oops	LXI	H,BUF+1	MOV	A,M	;get tags byte	ANI	1FH	;peel out name length	ADI	7	;skip ext, DSKADDR, NSEC	MOV	E,A	MVI	D,0	DAD	D	XCHG		;DE->La now	LHLD	NEWLA	MOV	A,L	STAX	D	INX	D	MOV	A,H	STAX	D	INX	D	LHLD	NEWSA	MOV	A,L	STAX	D	INX	D	MOV	A,H	STAX	D	INX	D; now tell gfid to replace this data.	LXI	H,BUF	;point to block start	MVI	A,81H	;replace	gfid	JC	Oops	LXI	H,Mmsg1	CALL	Msg	LHLD	NAMPTR	CALL	Msg	LXI	H,Mmsg2	CALL	Msg	LHLD	NEWLA	XCHG	CALL	DEOUT	LXI	H,Mmsg3	CALL	Msg	LHLD	NEWSA	XCHG	CALL	DEOUT	LXI	H,Mmsg4	CALL	Msg		RET		;to execOops	CALL	Gover	DB	'Emsg'	MVI	A,13	JMP	WH1	;to exec w/CR;; Skip HL over printable (non-blank) characters.; End on anything <= space.;SkipNB	MOV	A,M	CPI	' '+1	RC	INX	H	JMP	SkipNB;; Skip HL over spaces/tabs.;SkipBL	MOV	A,M	CPI	' '	JZ	SkipBL1	CPI	9	JZ	SkipBL1	CPI	13	JZ	Noarg	RETSkipBL1	INX	H	JMP	SkipBL;; Complain - no arg found!;Noarg	LXI	H,Mnoarg	CALL	Msg	LHLD	ESP	SPHL	RETMnoarg	DB	'Missing LA or SA!',13,0;; Get hex value from (HL)+, return in DE.;Gethex	XCHG	LXI	H,0Geth1	LDAX	D	INX	D	CALL	Fold	CPI	'0'	JC	Nothex	CPI	'9'+1	JC	Isdec	CPI	'A'	JC	Nothex	CPI	'F'+1	JC	IsAF	JMP	NothexIsdec	SUI	'0'	JMP	AddinIsAF	SUI	'A'-10Addin	DAD	H	DAD	H	DAD	H	DAD	H	ADD	L	MOV	L,A	JMP	Geth1		Nothex	XCHG		;put answer in DE, ptr in HL	DCX	H	;point HL to terminating chr	RETNAMPTR	DS	2NEWLA	DS	2NEWSA	DS	2ESP	DS	2BUF	EQU	$	ENDГO2ГO2(LASA/1.0 - 1/5/90)File: has been set to Load Addr , Start Addr .!9"m3!2Н*З-"g3Нщ26#Н3Н43л"i3лНщ2Н3Н43л"k3*g3o3>@НGfidЪн2!p3~жЖ_л*i3}|*k3}|!o3>ЃНGfidЪн2!2Н*g3Н!"2Н*i3лНС!>2Н*k3лНС!L2НЙНEmsg>Г$~ю!Ш#Гщ2~ю К3ю	К3юК3Й#Г3!!3Н*m3щЙMissing LA or SA!л!Н*ю0Ъd3ю:ЪT3юAЪd3юGЪY3Гd3Ц0Г[3Ц7))))…oГ83л+Й