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 - metrics - download

⟦74d17764a⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »REA99«

Derivation

└─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy
    └─⟦this⟧ »/REA99«

TextFile

; PARAMETER-CHECK
PARAE:	PARAD
BIRTH:	MOV 1,2
	LDA 0,+0,2
	LDA 1,.10
	SEQ 1,0
	JMP DEAD
	LDA 0,+1,2
	LDA 1,.255
	AND 0,1,SZR
	JMP DEAD
	LDA 3,ZONE
	LDA 0,+2,2
	STA 0,+0,3
	LDA 0,+3,2
	STA 0,+1,3
	LDA 0,+4,2
	STA 0,+2,3
	LDA 0,.12
	JSR OCHAR
	LDA 0,.0
	LDA 1,T23
	JSR XY
	LDA 0,ZONE
	MOVZL 0,0
	JSR OTXT
	JMP DEAD
T23:	23«ff»
; ZONE
ZONE:	.+1
	.TXT 'EMPTY<0>'
	Z
	0	
	1B14+1B13+1B12+1B11
	65535
	DEAD
	1
	1
	0
	SHAR	
	263
	0
	0
	BUFF*2
	BUFF*2
	SHAR
	512
	0
	.BLK ZAUX
SHAR:	0	
	0
	0
	0
	SHAR
	0
	BUFF*2
BUFF:	.BLK 256«ff»
«nul»