DataMuseum.dk

top - download

    Length: 4096 (0x1000)
    Types: TextFile
    Names: »ABRIA«

└─⟦b8c729ec0⟧ Bits:30001788 SG0008 Floppy
    └─⟦this⟧ 

TextFile

; REV 1.01 (A) 8501281011
; OPRYDNINGSRUTINE FOR ASCII-FILER

;---------------------------------------------------------------
; PARAM:   <S.FIL> <UNIT> <D.FIL> <UNIT> <OUT.$LPT>

; DEFAULT: <ERROR> < 0  > <ERROR> < 0  > <   0    >

; EKS.:    <ASØGE> < 1  > <ASØGE> < 0  > <   1    >

; BEMÆRK: PARAMETER FOR UDSKRIFT: 0=INGEN/1=UDSKRIFT
;----------------------------------------------------------------
	.TITL OPRYD
	.NREL
	.RDXO 16
	.RDX 10
	.TXTM 1
	.TXTN 1
PGDS:	1B0+1B5+1B15
	TXT01
	0
	PCDS-PGDS
	.TXT "OPRYD"
FZON1:	.TXT "FIL1<0><0>"
	Z
	0
	1B14+1B13+1B12+1B11
	65535
	SLUT
	1
	1
	0
	FIS1
	263
	0
	0
	FIB0*2
	FIB1*2
	FIS1
	512
	0
	.BLK ZAUX
FIS1:	0
	0
	0
	0
	FIS1
	0
	FIB1*2
FIB1:	.BLK 256
FZON2:	.TXT "FIL2<0><0>"
	Z
	0
	1B14+1B13+1B12+1B11
	65535
	SLUT
	1
	1
	0
	FIS2
	263
	0
	0
	FIB2*2
	FIB2*2
	FIS2
	512
	0
	.BLK ZAUX
FIS2:	0
	0
	0
	0
	FIS2
	0
	FIB2*2
FIB2:	.BLK 256
.DUSR	.58=.56+.2		; DEF. ASCII ":"
.DUSR	.84=.1B9+.1B11+.4	; DEF. ASCII "T"
TIME:	2
FIZON:	FZON1
	FZON2
FZONP:	FIZON
INCPA:	LDA 2,PARAM	; ØGER PARAMETERPOINTEREN TIL NÆSTE PARAMETER.
	LDA O,+O,2
	INCZR 0,0
	ADD 0,2
	JMP 0,3
HENTN:	STA 3,RETU	; HENTER NAVNET PÅ SOFTW-FILEN IND I FILZONEN.
	MOV 1,3
	LDA 1,+2,2
	STA 1,+0,3
	LDA 1,+3,2
	STA 1,+1,3
	LDA 1,4,2
	STA 1,+2,3
	JMP @ RETU
RETU:	0		; GEMMESTED FOR RETURADRESSEN.
LOOP:	STA 1,PARAM	; HER STARTER PROGRAMMET<<<<<<<<<<<<<
	JSR INCPA
	LDA 1,+0,2
	MOV 1,1,SNR
	JMP DEFAU
	LDA 1,FZONP @
	JSR HENTN
	LDA 1,5,2
	MOV 1,1,SNR
	JMP DEVIC
	LDA 0,7,2
	LDA 1,FZONP @
	INC 1,1
	INC 1,1
	MOVZL 1,1
	INC 1,1
	LDA 2,CUR
	PUTBY
	LDA 1,PARAM
	LDA 0,.3
	ADD 0,1
DEVIC:	INC FZONP
	DSZ TIME
	JMP LOOP
	LDA 0,.1
	LDA 2,FZON1
	OPEN
	LDA 2,FZON2
	LDA 0,.1B15
	LDA 1,.0
	CREAT
	LDA 0,.3
	OPEN
HENT:	LDA 2,FZON1
	INCHA	; HENT KARAKTER TIL CONVERTERING
	LDA 0,PNKFL	; VAR SIDSTE KARAKTER ET PUNKTUM?
	MOV 0,0,SZR	; HVIS NEJ, SÅ SKIP
	JMP EFPUN
	LDA 0,.9
	SNE 1,0		; SKIP HVIS SIDSTE KAR. IKKE ER TAB
	JMP TAB
	SUB 0,0
	STA 0,TABFL
	LDA 0,.58
	SNE 1,0
	JMP COLON
	SUB 3,3
	STA 3,CFLAG
	INC 0,0
	SNE 1,0
	JMP SEMIC
	LDA 0,.32
	SNE 1,0
	JMP SPACE
	LDA 0,.46
	SNE 1,0
	JMP PUNKT
	LDA 0,.CR
	SNE 1,0
	JMP NXTLN
OTOZO:	JSR ØGCHR
	JSR OUTPU
PNKFL:	0
TABFL:	0
CFLAG:	0
CHRNR:	0
	JMP HENT
TAB:	LDA 0,CHRNR
	MOV 0,0,SZR
	JMP .+4
	INC 0,0
	STA 0,TABFL
	JMP HENT
	LDA 0,SCFLG
	MOV 0,0,SZR
	JMP OTOZO
	LDA 0,CFLAG
	MOV 0,0,SNR
	JMP .-6
	SUB 0,0
	JMP OTOZO
COLON:	LDA 0,SCFLG
	MOV 0,0,SZR
	JMP OTOZO
	INC 0,0
	STA 0,CFLAG
	JMP OTOZO
SEMIC:	LDA 0,SCFLG
	MOV 0,0,SZR
	JMP OTOZO
	LDA 0,.1
	STA 0,SCFLG
	LDA 0,CHRNR
	MOV 0,0,SNR
	JMP OTOZO
	LDA 3,.8
	SUBZ # 3,1,SZC
	JSR OUTTA
	LDA 3,.16
	SUBZ # 3,1,SZC
	JSR OUTTA
	JSR OUTTA
	JMP OTOZO
SPACE:	LDA 0,CFLAG
	MOV 0,0,SNR
	JMP OTOZO
	LDA 3,.2
	SEQ 3,0
	JSR OUTTA
	JMP HENT
PNKTM:	LDA 0,.1
	STA 0,PNKFL
	JMP HENT
NXTLN:	LDA 0,.0
	STA 0,CHRNR
	STA 0,SCFLG
	JMP OTOZO
EFPUN:	LDA 3,.2
	SNE 0,3
	JMP PEQTW
	LDA 0,.83
DEFAU:	LDA 0,.3
	LDA 2,TTZON
	OPEN
	LDA 0,TEKST
	OUTTE
	OUTNL
	LDA 1,.1
	CLOSE
DEAD:	LDA 1,DEAD1
	LDA 2,DEAD2
	SENDM
DEAD1:	.+1
	1B8
	0
	0
	0
DEAD2:	.+1
	.TXT "S<0><0><0><0><0>"
TEKST:	.+1*2
	.TXT "<13><10> *** FEJL - PARAMETER MANGLER ***<0>"
TTZON:	.TXT "TTY<0><0><0>"
	Z
	0
	1
	65535
	DEAD
	1
	1
	0
	TTS0
	117
	0
	0
	TTB0*2
	TTB0*2
	TTS0
	220
	0
	.BLK ZAUX
TTS0:	0
	0
	0
	0
	TTS0
	0
	TTB0*2
TTB0:	.BLK 110
«ff»
«nul»