|
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: 1474 (0x5c2)
Types: TextFile
Names: »MENU1.S«
└─⟦17728abc9⟧ Bits:30005143 8" CR80 Floppy CR80FD_0130 ( CR/D/1422 FLERCPU Source )
└─⟦1815caf3d⟧
└─ ⟦this⟧ »MENU1.S«
PROCEDURE MENU1 (R6);
"*************************************************************************
"*************************************************************************
VAR
SAVE: ARRAY[0..7] OF INTEGER;
LABEL SLUTT;
BEGIN
R7=>SAVE[7];
STC(6,ADDRESS(SAVE[7])=>R7);
MENU_ENABLE=>R1;
IF R1=0 THEN GOTO SLUTT;
0=>R1=>MENU_ENABLE;
OUTNEWLINE(R6);
OUTNEWLINE(R6);
OUTNEWLINE(R6);
OUTTEXT(ADDRESS('____________________________________________________________________________ (:0:)')=>R3,R6);
OUTNEWLINE(R6);
FLUSHOUT(R6);
OUTTEXT(ADDRESS('MENU: SWITCH <cpu number> UNITMAP QUIT TEST <test number> (:0:)')=>R3,R6);
OUTNEWLINE(R6);
FLUSHOUT(R6);
OUTTEXT(ADDRESS(' COUNT <count number> MENU REPORTLEVEL <1: all, 0:condensed> (:0:)')=>R3,R6);
OUTNEWLINE(R6);
FLUSHOUT(R6);
OUTTEXT(ADDRESS(' INFO DISABLE-CACHE ENABLE-CACHE (:0:)')=>R3,R6);
OUTNEWLINE(R6);
FLUSHOUT(R6);
OUTTEXT(ADDRESS(' WAIT-TIME <COUNT> (:0:)')=>R3,R6);
OUTNEWLINE(R6);
FLUSHOUT(R6);
OUTTEXT(ADDRESS('____________________________________________________________________________ (:0:)')=>R3,R6);
OUTNEWLINE(R6);
FLUSHOUT(R6);
SLUTT:
UNS(7,ADDRESS(SAVE[0])=>R7);
EXIT(R6);
END;
«a5»