DataMuseum.dk

top - download

    Length: 5120 (0x1400)
    Types: TextFile
    Names: »ASPLI«

└─⟦1423d85c7⟧ Bits:30001820 SG0119 Floppy
    └─⟦this⟧ 

TextFile

		;FLEMMING JACOBSEN APR-MAJ '84
		;
		;OPSPLITNINGSPROGRAM TIL FILER 
		;BESTÅENDE AF SAMMENAPPENDEDE
		;PROGRAMMER (EX. FDMUS,COPS1 ).   REV 2.01
		;
		;
		;DEN BINÆRE VERSION LOADES MED 1 AF FLG.
		;PARM.KOMB. :
		;	1:  <SOURSEFILNAVN>
		;	2:  <      -      ><UDFILNAVN>
		;	3:  <      -      ><    -    ><UDDEVICE>
		;
		;	UDFILNAVN:  4 CHR. - DEN 5. BRUGES TIL NUMERERING(A,B,C....)
		;	UDDEVICE :  0,1 ELLER 3
		;
		;		DEFAULT  :  UDFILNAVN= FILE
		;		            UDDEVICE = 0
		;
		;
		;
		;  STRUKTUR? , VED DET  -  MEN DET VIRKER
		;
		;
		;			F.J. 25/5-84
		;
		;




	.TITL FJOSP
	.NREL
	.RDXO 16
	.RDX 10
	.TXTM 1
	.TXTN 1
	.NOLOC 1
PGD:	1B0+1B5+1B15
	PGD0
	0
	PCD-PGD
	.TXT @FJOSP@
PGD0:
	.MACRO SYMB
	LA$=.
	^1
	.TXT @^1@
	.DO LA$+4-.
	0
	.ENDC
	%
BUFF:	.+0
	.-1
	BUF0
	10
	PCD
	0
	0
	0
	0
	0
BUF0:	.+0
	.-1
	BUF1
	10
	PCD
	0
	0
	0
	0
	0
BUF1:	.+0
	.-1
	0
	10
	PCD
	0
	0
	0
	0
	0«ff»
FZO:	.TXT @<0><0><0><0><0>@
	Z
	0
	1B14+1B13+1B12+1B11
	65535
	END
	1
	1
	0
	FZO0
	263
	0
	0
	FZO1*2
	FZO1*2
	FZO0
	512
	0
	.BLK ZAUX
FZO0:	0
	0
	0
	0
	FZO0
	0
	FZO1*2
FZO1:	.BLK 256


PUT1:	0
PUTB:	STA 3,PUT1	;  CALL : BOGST.  ?  ?  ()
	LDA 1,LZNA	;  RETU :   =     -  -  -
	PUTBYTE
	JMP @ PUT1
LZNA:.+2*2+2
LZO:	.TXT @FILE<0><0>@
	Z
	0
	1B14+1B13+1B12+1B11
	65535
	END
	1
	1
	0
	LZO0
	263
	0
	0
	LZO1*2
	LZO1*2
	LZO0
	512
	0
	.BLK ZAUX
LZO0:	0
	0
	0
	0
	LZO0
	0
	LZO1*2
LZO1:	.BLK 256«ff»
BEG0:	LZO
BEG1:	FZO
BEG2:	0			;LOAD PARM. ADR. BEG.
BEG:	STA 1,BEG2
	MOV 1,2
	LDA 0,6,2
	LDA 2,CUR
	MOV 0,0,SZR	;INGEN SOURCEFIL ?
	TERM		;DEAD
	LDA 2,BEG2
	LDA 3,BEG1
	LDA 0,7,2
	STA 0,0,3
	LDA 0,8,2
	STA 0,1,3
	LDA 0,9,2
	STA 0,2,3
	LDA 3,BEG0
	LDA 0,10,2
	LDA 1,.10
	SEQ 1,0
	JMP BEG3		;INTET SPEC. FILNAVN ?
	LDA 0,12,2
	STA 0,0,3
	LDA 0,13,2	;FLYT UDFILNAVN
	STA 0,1,3
	LDA 1,.6
	LDA 0,15,2
	SEQ 1,0
	JMP BEG3		;INGEN SPEC UDDEV ?
	LDA 0,17,2	;FLYT UDDEV.
	STA 0,2,3
BEG3:	LDA 0,.1
	LDA 2,BEG1
	OPEN
	LDA 0,.0		; DENNE OG 2 FLG. INDSAT PHK8405030931
	LDA 1,.1
	SETPO	
	JMP NYFI1
RETU:0
FIBOG:63
NYFI:	STA 3,RETU
	LDA 2,BEG0
	LDA 1,.0
	OUTCH
	OUTCH
	LDA 1,.1
	CLOSE
NYFI1:	ISZ FIBOG
	LDA 2,CUR
	LDA 0,FIBOG
	PUBY
	LDA 0,.1
	LDA 1,.0
	LDA 2,BEG0
	CREATE
	LDA 0,.3
	OPEN
	LDA 0,RETU
	MOV 0,0 SZR
	JMP @ RETU
	LDA 2,CUR
	HOVED
«ff»
REST:	0
RE1:	0				;FLAG INDIKERER OM NY REST SKAL BEREGNES 1=JA
RE2:	0
RE3:	LZO
IH0:	0
IH1:	0
IH2:	0
MAIN:
	LDA 2,CUR
	IWD				;HENT WORD
	STA 0,IH0
	STA 1,IH1
	STA 2,IH2
	LDA 1,RE1		;IF FLAG=1 THEN
	LDA 2,.1
	SEQ 1,2
	JMP XXX
	LDA 1,IH1
	LDA 2,IH2		;BEREGN REST AF BLOK OG LÆG I REST
	SUB 2,1
	LDA 2,.7
	SUB 2,1
	STA 1,REST
	LDA 1,.0		;SÆT FLAG=0
	STA 1,RE1		
	ISZ REST		;ENDIF
XXX:	LDA 1,REST
	MOV 1,1,SNR
	JSR CHCK		;UNDERSØG OM 7-BLOK
	LDA 2,RE3
	LDA 1,IH1
	OUTCHAR				;SKRIV WORD UD PÅ FIL
	LDA 1,IH2
	OUTCHAR
	ISZ REST
	JMP MAIN
	JMP MAIN
CHCK:	STA 3,RE2
	LDA 0,IH0
	LDA 1,.0		;SLUT PÅ FIL?
	LDA 2,CUR
	SNE 1,0
	TERMC
	LDA 1,.7
	SNE 1,0
	NYFIL				;LUK GL FIL ÅBEN NY
	LDA 1,.1
	STA 1,RE1		;SÆT FLAG=1
	JMP @ RE2
«ff»
END0:	.+1
	1B8
	0
	0
	0
	0
END1:	.+1
	.TXT @S<0><0><0><0>@
END2:	FZO
END3:	LZO
ENDC:	LDA 2,END2
	LDA ▶b3◀$▶d8◀S▶13◀f
N▶f2◀▶10◀▶c0◀▶c2◀▶80◀
▶b2◀▶1a◀▶87◀▶d2◀▶81◀▶1d◀▶c4◀7▶88◀(F▶90◀O▶b0◀xV▶a5◀r-▶0b◀a▶80◀Phd▶a2◀▶e0◀ 0▶f0◀▶aa◀>IK2▶a1◀p▶96◀▶02◀YUs.▶ec◀▶04◀▶d2◀▶9d◀(-▶e8◀▶91◀lZ▶95◀ «nul»