|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1438 (0x59e)
Types: TextFile
Names: »TESTNUMBER.S«
└─⟦18a2fd90d⟧ Bits:30005144 8" CR80 Floppy CR80FD_0132 ( CR/D/2479 CRD2479: En-CPU CPU/CACHE TEST- PROGRAMMER node: master: CRP5 )
└─⟦56889de57⟧
└─⟦this⟧ »TESTNUMBER.S«
PROCEDURE TESTNUMBER (R6);
"*********************************************************************
"THE PROCEDURE IDENTIFIES THE TESTNUMBER AS THE FIRST NUMBER AFTER THE
"SPACE IN INPUTSTRING, AND CALLS THE RELEVANT TEST-TEST.
"*********************************************************************
VAR
SAVE: ARRAY[0..7] OF INTEGER;
LABEL NO_SPACE;
BEGIN
R7=>SAVE[7];
STC(6,ADDRESS(SAVE[7])=>R7);
"FIND SPACE IN INPUTSTRING, INPUT_POINTER WILL POINT AT SPACE+1"
"EXIT IF INPUTPOINTER>HEX E.
#0=>R4;
#20=>R1;
R4=>INPUT_POINTER;
INPUTSTRING[R4]=>R0;
WHILE R0<>R1 DO
BEGIN
R4+1;
INPUTSTRING[R4]=>R0;
INPUT_POINTER=>R5;
R5+1;
R5=>INPUT_POINTER;
IF R4>=#F THEN
BEGIN
GOTO NO_SPACE;
END;
END;
NO_SPACE:
R5+1;
R5=>INPUT_POINTER; "INPUT_POINTER POINTS AT TESTTEST_NUMBER, IE THE
"FIRST CHARACTER AFTER THE FIRST SPACE.
#30=>R0;
INPUTSTRING[R5]=>R6-R0=>R0 EXTRACT 4; "R0 = TESTTESTNUMBER
R0=>TEST;
OUTNEWLINE(R6);
OUTTEXT(ADDRESS('CACHE_TEST NUMBER: (:0:)')=>R3,R6);
TEST=>R3;
OUTHEX(R3,R6);
FLUSHOUT(R6);
TEST=>R3;
CASE R3 OF
0: UNDEF_TEST(R6);
1: TEST_1(R6);
2: TEST_2(R6);
3: TEST_3(R6);
4: TEST_4(R6);
5: TEST_5(R6);
6: TEST_6(R6);
7: TEST_7(R6);
8: TEST_8(R6);
OTHERWISE UNDEF_TEST(R6);
UNS(7,ADDRESS(SAVE[0])=>R7);
EXIT(R6);
END; "END OF TESTNUMBER"