DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

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

See our Wiki for more about Rational R1000/400 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦114b8ec32⟧ EM, TextFile

    Length: 2048 (0x800)
    Types: EM, TextFile
    Names: »DISP_DIAG_BUFFER.EM«

Derivation

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »DISP_DIAG_BUFFER.EM« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »DISP_DIAG_BUFFER.EM« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »DISP_DIAG_BUFFER.EM« 

TextFile

!Accepts a diagnostic buffer number and, if given an address, displays the
!buffer's corresponding halfword.  Otheriwse displays all the whole buffer.
[eq,%1%,]
    DISP_DIAG_BUFFER [read ENTER,BUFFER,NUMBER:,];
[else]
    [#gt,%1%,F]
	write BUFFER,NUMBER,MUST,BE,IN,RANGE,0:F;
	DISP_DIAG_BUFFER [read ENTER,BUFFER,NUMBER:,] %2%;
    [else]
	[eq,%2%,]
	    TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 0 0] 0;
	    TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 1 0] 8;
	    TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 2 0] 10;
	    TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 3 0] 18;
	    TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 4 0] 20;
	    TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 5 0] 28;
	    TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 6 0] 30;
	    TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 7 0] 38;
	[else]
	    [#gt,%2%,7F]
		write HALFWORD,ADDRESS,MUST,BE,IN,RANGE,0:7F;
		DISP_DIAG_BUFFER %1% [read ENTER,HALFWORD,ADDRESS:,];
	    [else]
		write HALFWORD,%2%:,
		      [xeq IOA READ_DIAG_HALFWORD %1% %2% 0];
	    [end]
	[end]
    [end]
[end]«nul»