DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC850

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

See our Wiki for more about RegneCentralen RC850

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦1925199ae⟧ TextFile

    Length: 896 (0x380)
    Types: TextFile
    Names: »HDWNIT.ASM«

Derivation

└─⟦9f46c4107⟧ Bits:30005988 Sources for TurboDOS ver. 1.30 device drivers
    └─⟦this⟧ »HDWNIT.ASM« 

TextFile

.PAGE	132,69
.TITLE	"COMAND OPERATING SYSTEM - RC 850 HARDWARE INITIALIZATION"
.SBTTL	"COPYRIGHT (C) 1982 BY ASE GMBH, ALTENSTADT, vers.: 7.11.83"
;
.IDENT	HDWNIT		;MODULE ID
;
;
.INSERT RCEQUATE	;O/S SYMBOLIC EQUIVALENCES
;
	.LOC	.INIT.# ;LOCATE IN INITIALIZATION AREA
;
HDWNIT::MVI	A,1	;CLEAR STATUS LED'S
	OUT	STAT0	;
	OUT	STAT1	;
	OUT	STAT2	;
	OUT	STAT3	;
	OUT	STAT4	;
	OUT	STAT5	;
	OUT	STAT6	;
	OUT	STAT7	;
	CALL	INTNIT# ;INITIALIZE INTERRUPT PAGE
	CALL	CRTNIT#	;INITIALIZE CRT
	CALL	BNKNIT#	;INITIALIZE BANK CODE
	CALL	RTCNIT#	;initialize real time tick
	CALL	RTCNI1#	;
	CALL	LSTNIT#	;INITIALIZE PRINTER
	CALL	DSKINA# ;INITIALIZE DISK DEVICE A
	CALL	DSKINB#	;INITIALIZE HARD DISK
	CALL	DSKINC#	;INITIALIZE HARD DISK
	CALL	CKTINA# ;INITIALIZE RC-CIRCUIT
	RET		;DONE - RETURN TO CALLER
;
.END
«eof»