DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

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

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦efae198fa⟧ TextFile

    Length: 279 (0x117)
    Types: TextFile
    Names: »commando.rc«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Corewars/commando.rc«

TextFile

;;; an implementation of a k dewdney's commando program

count:	dat	#14
ptr:	dat	#200
imps:	mov	#0	-1	; imp stomper
	jmp	imps
	mov	#14	count
	mov	#100	ptr
start:	mov	imp	1000
	spl	999
loop:	mov	@count	@ptr
	sub	#1	ptr
	djn	loop	count
	add	#4	ptr
	spl	@ptr
	jmp	imps
imp:	mov	0	1