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 - 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"