DataMuseum.dk

Presents historical artifacts from the history of:

Intel ISIS Floppy Disks

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

See our Wiki for more about Intel ISIS Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦1d6c021ca⟧ TextFile

    Length: 397 (0x18d)
    Types: TextFile
    Names: »SETBIT.SRC«

Derivation

└─⟦b678e5579⟧ Bits:30005502 8" CR80 Floppy CR80FD_0031 ( TELECINE BACKUP )
└─⟦b678e5579⟧ Intel_ISIS_II
    └─ ⟦this⟧ »SETBIT.SRC«

TextFile

	PUBLIC	SETBIT\r
\r
SETBIT\r
	IN	A,(C)		;READ STATUS OF OUTPUT PORT\r
	OR	B		;SET ACTUAL BIT(SPECIFIED BY THE PARAMETERS AT SETOBIT)\r
	OUT	(C),A		;WRITE NEW VALUE TO OUTPUT PORT\r
	RET			;\r
\r
\r
	PUBLIC	RESBIT\r
\r
RESBIT\r
	CPL			;ONE'S COMPLEMENT OF REGISTER A(VALUE)\r
	LD	B,A		;\r
	IN	A,(C)		;READ STATUS OF OUTPUT PORT\r
	AND	B		;RESET SPECIFIED BIT\r
	OUT	(C),A		;WRITE NEW VALUE TO OUTPUT PORT\r
	RET\r
\r