DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦07a564fa3⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »VALP4«

Derivation

└─⟦a137c8bca⟧ Bits:30001766 PL FAERD ASCII NR 9
    └─ ⟦this⟧ »/VALP4«

TextFile


	.TITL	VALPT
	.NREL
	.RDXO	16
	.RDX	10
	.TXTM	1
	.DUSR	AMX=42
	
PGDS:	1B0+1B1+1B7+1
	PGM
	0
	PCDS-PGDS
	.TXT 	'LPT<0><0><0>'

PGM:	SUB 1,1
	MOVZL 0,0,SNC
	STA 1,RESER,2
	JSR WAMX
	LDA 0,C0730
	DOC 0,AMX
	JSR WAMX
	LDA 0,C071D
	DOC 0,AMX
	JSR WAMX
	LDA 0,C0708
	DOC 0,AMX
ST:	LDA 2,CUR
	NEXTO
	SETRE
	JMP P5
P1:	LDA 1,ADDRE,2
	GETBY
P2:	LDA 1,C0705
	JSR WAMX
	DOA 1,AMX
	JSR WAMX
	DIA 1,AMX
	MOVL 1,1,SNC
	JMP P3
	LDA 2,.24
	SUB 1,1
	WAITI
	JMP P2
	JMP P2
P3:	LDA 1,C0707
	JSR WAMX
	DOA 1,AMX
	JSR WAMX
	DIA 1,AMX
	MOVL 1,1,SNC
	JMP P2
	LDA 1,.127
	AND 1,0
	LDA 1,.7
	MOVS 1,1
	ADD 0,1
	JSR WAMX
	DOB 1,AMX
	ISZ ADDRE,2
	DSZ COUNT,2
JMP P1
	P4:	SUB 0,0
	RETUR
	JMP ST
P5:	SETRE
	JMP P4
WAMX:	JMP .+1
	JMP .+1
	JMP .+1
	JMP .+1
	JMP .+1
	JMP .+1
	JMP .+1
	JMP .+1
	JMP +0,3
C0708:	1800
C0730:	1840
C071D:	1821
C0705:	1797
C0707:	1799
PCDS:	0
	0
	0
	PCDSE-PCDS
	.TXT 'LPT<0><0><0>'
	.+0
	.-1
	0
	PGDS
	0
	0
	52000
	PGM	
	PCDS
	0
	PCDS
0
	PGM*2
	0
	0
	0
	0
	0
	0
	0
	0
	0
PCDSE:	
	.END PCDS
«ff»
«nul»