|
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: 1312 (0x520)
Types: TextFile
Names: »TEST_3.S«
└─⟦18a2fd90d⟧ Bits:30005144 8" CR80 Floppy CR80FD_0132 ( CR/D/2479 CRD2479: En-CPU CPU/CACHE TEST- PROGRAMMER node: master: CRP5 )
└─⟦56889de57⟧
└─ ⟦this⟧ »TEST_3.S«
PROCEDURE TEST_3 (R6);
"*********************************************************************
"*********************************************************************
VAR
SAVE: ARRAY[0..7] OF INTEGER;
ALFA: INTEGER;
BETA: INTEGER;
GAMMA: INTEGER;
BEGIN
R7=>SAVE[7];
STC(6,ADDRESS(SAVE[7])=>R7);
OUTNEWLINE(R6);
OUTTEXT(ADDRESS('TEST 3 RUNNING (:0:)')=>R3,R6);
OUTNEWLINE(R6);
FLUSHOUT(R6);
#40=>R2=>GAMMA;
COUNT=>R0=>ALFA;
WHILE R0<> 0 DO
BEGIN
#1000=>R1=>BETA;
WHILE R1<>0 DO
BEGIN
CAD;
CAE;
R1-1;
END;
IF (OUT_ENABLE=>R0)=1 THEN
BEGIN
OUTTEXT(ADDRESS('3(:0:)')=>R3,R6);
END;
GAMMA=>R2-1=>GAMMA;
IF R2=0 THEN
BEGIN
IF (OUT_ENABLE=>R0)=1 THEN
BEGIN
OUTNEWLINE(R6);
END;
#40=>R2=>GAMMA;
END;
IF (OUT_ENABLE=>R0)=1 THEN
BEGIN
FLUSHOUT(R6);
END;
ALFA=>R0-1=>ALFA;
END;
DICA=>R0;
IF R0=#1 THEN CAD ELSE CAE;
IF (OUT_ENABLE=>R0)=1 THEN
BEGIN
OUTNEWLINE(R6);
OUTTEXT(ADDRESS('TEST 3 TERMINATED (:0:)')=>R3,R6);
OUTNEWLINE(R6);
FLUSHOUT(R6);
END;
UNS(7,ADDRESS(SAVE[0])=>R7);
EXIT(R6);
END; "END OF TEST3 "