DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

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

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦f24961488⟧ TextFile

    Length: 1042 (0x412)
    Types: TextFile
    Names: »SET_REPORTLEV.S«

Derivation

└─⟦17728abc9⟧ Bits:30005143 8" CR80 Floppy CR80FD_0130 ( CR/D/1422 FLERCPU Source )
    └─⟦1815caf3d⟧ 
        └─ ⟦this⟧ »SET_REPORTLEV.S« 

TextFile

PROCEDURE SET_REPORTLEV (R6);
"*********************************************************************
"*********************************************************************
VAR
SAVE:    ARRAY[0..7] OF INTEGER;
TEST:    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 REPORTLEVEL    , IE THE
                      "FIRST CHARACTER AFTER THE FIRST SPACE.

#30=>R0;
INPUTSTRING[R5]=>R6-R0=>R0 EXTRACT 1; "R0 = REPORTLEVEL
R0=>REPORTLEVEL;



UNS(7,ADDRESS(SAVE[0])=>R7);
EXIT(R6);
END;   "END OF SET_REPORTLEVEL «a5»