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

⟦2dc180dd1⟧ TextFile

    Length: 1494 (0x5d6)
    Types: TextFile
    Names: »T4RAM.SRC«

Derivation

└─⟦519079be6⟧ Bits:30005500 8" CR80 Floppy CR80FD_0029 ( WBOOTL.SYS W.D bootload program 81 10 01 ??? )
└─⟦519079be6⟧ Intel_ISIS_II
    └─ ⟦this⟧ »T4RAM.SRC« 

TextFile

 	PUBLIC	T4RAM\r
	CSEG\r
;-------RAM-PROGRAM READ TEST-------------------------------T4RAM----------\r
		;DESCRIP: THE ROUTINE CHECK THE RAM FOR PROGRAM READ ERROR.\r
		;	THE RAM IS LEFT WITH WITH 00 .\r
		;ENTRY:	DE - FIRST RAM ADDRESS\r
		;	HL - LAST RAM ADDRESS\r
		;EXIT:	A = 0 TEST COMPLETED\r
		;DESTROY: F,DE,HL,(RAM)\r
		;TIME: 154+104*BYTE COUNT TCYCLES\r
;-------Routine function----------------------------------------------\r
			;\r
			;DESCRIP: Description of the modul with\r
			;	explanation of parameters.\r
			;\r
			;ENTRY:	Parameters required on entry.\r
			;\r
			;EXIT:	Parameters defined on exit.\r
			;\r
			;DESTROY: Undefined and destroyed registers\r
			;	and memory on exit.\r
			;\r
			;TIME:	Min. used time T-CYCLES\r
			;	Max. used time T-CYCLES\r
			;\r
			;DATE:	800312 <release date>\r
			;\r
			;PROGRAMMER: IMJ\r
			;\r
;-----------------------------------------------------------------------\r
Entry point	xx	xx	;BEGIN\r
		xx\r
		xx		;  Comments written as\r
		xx		;  hight level pseudo statsments\r
		xx\r
		xx\r
		xx\r
Exit point	xx		;END\r
T4RAM				;SAVE ENTRY DATA\r
	PUSH	DE\r
	PUSH	HL\r
	XOR	A		;LOAD NOP\r
	SBC	HL,DE		;BYTE COUNT = START ADDR. - END ADDR.\r
	EX	DE,HL		;FOR ADDR. = START TO END\r
	INC	E\r
	INC	D\r
	DEC	HL\r
\r
\r
T41NEXT	POP	HL		;RESTORE ENTRY DATA\r
	POP	DE\r
	LD	(HL),9CH	;LOAD RET INTO LAST RAM ADDRESS\r
	EX	DE,HL\r
	XOR	A\r
T41LOOP	INC	HL\r
	LD	(HL),A		;  LOAD OPCODE\r
	DEC	E\r
	JP	NZ,T41LOOP\r
	DEC	D\r
	JP	NZ,T41LOOP	;NEXT ADDR.\r
	JP	(HL)		;DO TEST\r
				;TEST COMPLETED\r
				;RETURN\r