DataMuseum.dk

top - download

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

└─⟦7028332c6⟧ Bits:30001795 SG0015 Floppy
    └─⟦this⟧ 

TextFile

	.TITL TABEL 
	.NREL 
	.RDXO 10 
	.RDX 10 
	.TXTM 1 
	.TXTN 1 
PGDS:	1B0+1B5+1B15	;PROGRAMDESCRIPTOR (7 WORDS) 
	LAB00 
	0 
	PCDS-PGDS 
	.TXT 'TABEL' 

LAB00:		; HER STARTER PROGRAMAREAL; FØRST NOGLE DATA I PROGR.:	
TEKST:	.+1*2
	.TXT &<12> FJ TABEL AF :5XX + 7 <10> 17/2-84  <10><0>&
DEAD1:	DEAD
TT260:	260
FIADR:	FIZON
LPADR:	LPZON
DAT:	-9		; EN ADRESSE TIL GENERELLE DATA, FX FRA INPUT
	-9
DATAU:	DATUU*2
DATYU:	DATUU*2+1
DATYY:	DATUU*2
DATAD:	.+1*2
	0
DATUU:	0
	0
TALL2:	0
TALL3:	0



BIRTH:			; HER STARTER PROGR.INSTRUKTIONER NÅR PROG. LOADES:
	MOV 1,2		; VED LOAD LIGGER ADR. PÅ INPUTPARAM-DATA I ACC 1
	LDA 0,5,2
	MOV 0,0,SNR
	JMP DEFAU	; HVIS DER IKKE ER PARAM I LOADKOMMANDOEN
	LDA 0,7,2
	STA 0,DAT
DEFAU:
	LDA 2,LPADR		;DISSE 6 LIN - PHK
	LDA 0,.3
	OPEN
	LDA 0,TEKST
	OUTTEXT
	JMP IGEN
	
	; HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH

	XTNR:  10
	X:      1
	FEM:    5
	SYV:    7
	Y:      0
IGEN:       LDA 0,X
	LDA 1,X
	MULTIPLY
	LDA 0,FEM
	MULTIPLY

	LDA 0,SYV
	ADD 0,1
	STA 1,Y
	LDA 0,X
	LDA 1,DATAD
	LDA 2,CUR
	BINDEC
	LDA 0,DATAD
	LDA 2,LPADR
	OUTTEXT
	OUTSPACE
	LDA 0,Y
	LDA 1,DATAD
	LDA 2,CUR
	BINDEC
	LDA 0,DATAD
	LDA 2,LPADR
	OUTTEXT
	OUTNL
	ISZ X
	DSZ XTNR
	JMP IGEN
	JMP DEAD
	
	
	; LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
	
DEAD:			; STANDARD-AFSLUTNINGSRUTINE
	STA 0,D0
	STA 1,D1
	STA 2,D2
	STA 3,D3
	JMP EJFIL	; HVIS DER IKKE ER BENYTTET FILER (UDOVER TTY)

	LDA 1,.1	; FLG BRUGES HVIS DER HAR VÆRET ÅBNET FILER
	LDA 2,FIAD
	CLOSE


EJFIL:	LDA 1,T27
	LDA 2,LPAD
	OUTCH
	LDA 1,.48
	OUTCH
	OUTNL
	LDA 1,.1
	CLOSE

	LDA 2,CUR
	STOPP		; PROCESSEN STOPPES MEN FJERNES IKKE FRA CORE
	JMP BIR @	; FORFRA HVIS PROC. STARTES, FX FRA S


T27:	27		; FLG. ER EN RÆKKE RET TILFÆLDIGE DATAADRESSER
D0:	0
D1:	1
D2:	2
D3:	3
	-6
T260:	260
TALLE:	0
T96:	96
T126:	126
	
BIR:	BIRTH	; STANDARDDATA
FIAD:	FIZON
LPAD:	LPZON
	
FIZON:	.TXT 'FIL<0><0><0>'		;ZNAME
	Z		;SIZE 
	0		;ZMODE 
	1B14+1B13+1B12+1B11		;ZKIND 
	65535		;ZMASK 
	DEAD		;ZGIVE 
	1		;ZFILE 
	1		;ZBLOC 
	0		;ZCONV 
	TTS0		;ZBUFF 
	263		;ZSIZE (72/2+SSIZE) 
	0		;ZLENG 
	0		;ZFIRS 
	TTB0*2		;ZFIRS 
	TTB0*2		;ZTOP 
	TTS0		;ZUSED 
	512		;ZSHAR 
	0		;ZREM 
	.BLK ZAUX		;AUXILIARY WORDS IN ZONE 
	
TTS0:	0		;SOPER 
	0		;SCOUN 
	0		;SADDR 
	0		;SSPEC 
	TTS0		;SNEXT 
	0		;SSTAT 
	TTB0*2		;SFIRS 
TTB0:	.BLK 256		;DATA BUFFER 
	
LPZON:.TXT 'TTY<0><0><0>'		;ZNAME 
	Z		;SIZE 
	0		;ZMODE 
	1		;ZKIND 
	65535		;ZMASK 
	DEAD		;GIVE 
	1		;ZFILE 
	1		;ZBLOC 
	0		;ZCONV 
	LPS0		;ZBUFF 
	117		;ZSIZE (132/2+SSIZE) 
	0		;ZFORM 
	0		;ZLENG 
	LPB0*2		;ZFIRS 
	LPB0*2		;ZTOP 
	LPS0		;ZUSED 
	220		;ZSHAR 
	0		;ZREM 
	.BLK ZAUX		;AUXILIARY WORDS IN ZONE 
	
LPS0:	0		;SOPER 
	0		;SCOUN 
	0		;SADDR 
	0		;SSPEC 
	LPS0		;SNEXT 
	0		;SSTAT 
	LPB0*2		;SFIRS 
LPB0:	.BLK 110		;DATA BUFFER 
	; BUFFERE DER ER NØDV NÅR FX. DOMUS-FIL-FUNKTIONER BRUGES!
BUFF1:	.+0 
	.-1 
	BUFF2 
	10 
	PCDS 
	0 
	0 
	0 
	0 
	0 
BUFF2:	.+0 
	.-1 
	0 
	10 
	PCDS 
	0 
	0 
	0 
	0 
	0 
; PROCES-DESCRIPTOR:
PCDS:	.+0 
	.-1 
	0 
	0 
	.TXT 'TABEL' 
	.+0 
	.-1 
	BUFF1 
	PGDS 
	0 
	0 
	33 
	DEAD 
	0 
	0 
	0 
	0 
	BIRTH*2 
	20
	21
	22
	23
	24
	25
	26
	27
	28
	29
	30
	.END PCDS 
	
«ff»
«nul»