DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

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

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦cffaa816e⟧ TextFile

    Length: 7584 (0x1da0)
    Types: TextFile
    Notes: Mikados_K
    Names: »RFILE1.K«

Derivation

└─⟦f1b095e24⟧ Bits:30005320 Katalogisering af disketter
    └─⟦this⟧ »RFILE1.K«

Mikados K File

PROGRAM RFILE1; (* BR-29.04.85 *)
 
(*******************************************)
(* PROGRAM TIL RETABLERING AF FIL POINTERE *)
(*******************************************)
 
TYPE BLOCK = PACKED ARRAY (0..255) OF CHAR;
 
VAR DISCBUFI,DISCBUFU : BLOCK;
    DISC, TRACK, SECTOR, IOCODE, ERRORCODE,
    I, J, K, L, P, CHARCODE, CIF1, CIF2: INTEGER;
    STRENG: STRING;
 
PROCEDURE PSCIU(VAR DISCBUFFER: BLOCK; DISC, TRACK, SECTOR,
                IOCODE: INTEGER; VAR ERRORCODE: INTEGER);
                                                EXTERNAL;
                                                
(*********************************************************************)
 
PROCEDURE LÆSFILTOP;
 
BEGIN
  IOCODE := 1;
  PSCIU(DISCBUFI,DISC,TRACK,SECTOR,IOCODE,ERRORCODE);
  IF ERRORCODE <> 0 THEN WRITELN ('ERRORCODE:', ERRORCODE:4);
END; (*LÆSFILTOP*)
 
(*********************************************************************)
 
PROCEDURE GEMFILTOP;
 
BEGIN
  IOCODE := 2;
  PSCIU(DISCBUFU,DISC,TRACK,SECTOR,IOCODE,ERRORCODE);
  IF ERRORCODE <> 0 THEN WRITELN ('ERRORCODE:', ERRORCODE:4);
END; (*GEMFILTOP*)
 
(*********************************************************************)
 
PROCEDURE WRITEHEX(I:INTEGER);
 
BEGIN
  P:=P+1;
  IF I<10 THEN STRENG(P):=CHR(I+ORD('0')) ELSE STRENG(P):=CHR(I+ORD('7'));
END; (*WRITEHEX*)
 
(*********************************************************************)
 
PROCEDURE SKRIVFILTOP(DISCBUFFER:BLOCK);
 
BEGIN
  
  WRITELN(LIST);
  STRENG:=' 0';
  (*$R-*) STRENG(0):=CHR(64)  (*$R+*);
  FILLCHAR(STRENG(3),62,' ');
 
  FOR I:=0 TO 1 DO
  BEGIN
    P:=0;
    WRITEHEX(I);
    P:=5;
    J:=I*16;
    K:=J+15;
 
    FOR L:=J TO K DO
    BEGIN
      IF L MOD 4 =0 THEN P:=P+1;
      P:=P+1;
      CIF1:=ORD(DISCBUFFER(L)) MOD 128;
      IF (CIF1<=126) AND (CIF1>=32) THEN STRENG(P):=CHR(CIF1)
      ELSE STRENG(P):='.';
    END;
 
    P:=P+3;
    FOR L:=J TO K DO
    BEGIN
      IF L MOD 4 =0 THEN P:=P+1;
      CIF1:=ORD(DISCBUFFER(L)) DIV 16;
      CIF2:=ORD(DISCBUFFER(L)) MOD 16;
      WRITEHEX(CIF1);
      WRITEHEX(CIF2);
    END;
 
    WRITELN(LIST,STRENG);
  END; (*FOR I:=0*)
END; (*SKRIVFILTOP*)
 
(*********************************************************************)
 
PROCEDURE REDFILTOP;
 
VAR FILNAVN            : STRING(8);
    FILTYPE, UDVKODE   : STRING(1);
    BYTENR             : 0..31;
    SPOR,SEKTOR,RECLEN : INTEGER;
    ANTUDV,ANTSEKT     : INTEGER;
    ANTAL              : INTEGER;
 
BEGIN
  WRITELN;
  DISCBUFU:=DISCBUFI;
 
  FILNAVN:='        ';
  FOR BYTENR:=0 TO 7 DO
    IF ORD(DISCBUFU(BYTENR)) IN (.32..126.) THEN
      FILNAVN(BYTENR+1):=DISCBUFU(BYTENR)
    ELSE
      FILNAVN(BYTENR+1):='.';
  WRITE('Filnavn   : ');
  EDIT(FILNAVN:8);
  FOR BYTENR:=0 TO 7 DO DISCBUFU(BYTENR):=FILNAVN(BYTENR+1);
 
  FILTYPE:=' ';
  FILTYPE(1):=DISCBUFU(8);
  WRITE('Type      : ');
  EDIT(FILTYPE:1);
  DISCBUFU(8):=FILTYPE(1);
 
  UDVKODE:=' ';
  UDVKODE(1):=DISCBUFU(9);
  WRITE('Udv. kode : ');
  EDIT(UDVKODE:1);
  DISCBUFU(9):=UDVKODE(1);
 
  ANTUDV:=ORD(DISCBUFU(10));
  WRITE('Antal udvidelser   : ',ANTUDV:4,'  nyt ant. : ');
  READLN;
  READ(ANTAL);
  DISCBUFU(10):=CHR(ANTAL);
 
  ANTSEKT:=ORD(DISCBUFU(11))+256*ORD(DISCBUFU(12));
  WRITE('Antal sektorer/udv.: ',ANTSEKT:4,'  nyt ant. : ');
  READLN;
  READ(ANTAL);
  DISCBUFU(11):=CHR(ANTAL MOD 256);
  DISCBUFU(12):=CHR(ANTAL DIV 256);
 
  SPOR:=ORD(DISCBUFU(13))+256*ORD(DISCBUFU(14));
  WRITE('Spor nr. næste udv.: ',SPOR:4,'  nyt nr.  : ');
  READLN;
  READ(ANTAL);
  DISCBUFU(13):=CHR(ANTAL MOD 256);
  DISCBUFU(14):=CHR(ANTAL DIV 256);
  SEKTOR:=ORD(DISCBUFU(15));
  WRITE('Sekt.nr. næste udv.: ',SEKTOR:4,'  nyt nr.  : ');
  READLN;
  READ(ANTAL);
  DISCBUFU(15):=CHR(ANTAL MOD 256);
 
  SPOR:=ORD(DISCBUFU(16))+256*ORD(DISCBUFU(17));
  WRITE('Spor nr. forr. udv.: ',SPOR:4,'  nyt nr.  : ');
  READLN;
  READ(ANTAL);
  DISCBUFU(16):=CHR(ANTAL MOD 256);
  DISCBUFU(17):=CHR(ANTAL DIV 256);
  SEKTOR:=ORD(DISCBUFU(18));
  WRITE('Sekt.nr. forr. udv.: ',SEKTOR:4,'  nyt nr.  : ');
  READLN;
  READ(ANTAL);
  DISCBUFU(18):=CHR(ANTAL MOD 256);
 
  SPOR:=ORD(DISCBUFU(19))+256*ORD(DISCBUFU(20));
  WRITE('Spor nr. næste fil : ',SPOR:4,'  nyt nr.  : ');
  READLN;
  READ(ANTAL);
  DISCBUFU(19):=CHR(ANTAL MOD 256);
  DISCBUFU(20):=CHR(ANTAL DIV 256);
  SEKTOR:=ORD(DISCBUFU(21));
  WRITE('Sekt.nr. næste fil : ',SEKTOR:4,'  nyt nr.  : ');
  READLN;
  READ(ANTAL);
  DISCBUFU(21):=CHR(ANTAL MOD 256);
 
  RECLEN:=ORD(DISCBUFU(25));
  WRITE('Record længde      : ',RECLEN:4,'  ny længde: ');
  READLN;
  READ(ANTAL);
  DISCBUFU(25):=CHR(ANTAL MOD 256);
 
END; (*REDFILTOP*)
 
(*********************************************************************)
 
BEGIN
  CLEARSCREEN;
  REPEAT
    WRITELN('':15,'Retablering af fil pointere');
    WRITELN('':15,'***************************');
    WRITELN;
    WRITE(  'pladelagerbetegnelse: P');
    READLN;
    IF EOF THEN EXIT(PROGRAM);
    READ(DISC);
    WRITE(  'spornummer          : ');
    READLN;
    IF EOF THEN EXIT(PROGRAM);
    READ(TRACK);
    WRITE(  'sektornummer        : ');
    READLN;
    IF EOF THEN EXIT(PROGRAM);
    READ(SECTOR);
 
    LÆSFILTOP;
    SKRIVFILTOP(DISCBUFI);
    REDFILTOP;
    SKRIVFILTOP(DISCBUFU);
    WRITELN;
    WRITE('Fortryder du, tryk på <ESC> .  OK, tryk på <RETURN> ');
    READLN;
    IF NOT EOF THEN GEMFILTOP;  
 
    WRITELN;
    WRITE('Flere retableringer, tryk på <RETURN>    Afslut, tryk på <ESC> ');
    READLN;
    PAGE(LIST);
  UNTIL EOF;
  WRITELN('RFILE1 terminated');
END.

Mikados K File

0x0000…0023 Line {l1=0x21, l2=»PROGRAM RFILE1; (* BR-29.04.85 *)«, l3=0x21}
0x0023…0026 Line {l1=0x01, l2=» «, l3=0x01}
0x0026…0055 Line {l1=0x2d, l2=»(*******************************************)«, l3=0x2d}
0x0055…0084 Line {l1=0x2d, l2=»(* PROGRAM TIL RETABLERING AF FIL POINTERE *)«, l3=0x2d}
0x0084…00b3 Line {l1=0x2d, l2=»(*******************************************)«, l3=0x2d}
0x00b3…00b6 Line {l1=0x01, l2=» «, l3=0x01}
0x00b6…00e3 Line {l1=0x2b, l2=»TYPE BLOCK = PACKED ARRAY (0..255) OF CHAR;«, l3=0x2b}
0x00e3…00e6 Line {l1=0x01, l2=» «, l3=0x01}
0x00e6…0106 Line {l1=0x1e, l2=»VAR DISCBUFI,DISCBUFU : BLOCK;«, l3=0x1e}
0x0106…0133 Line {l1=0x2b, l2=»    DISC, TRACK, SECTOR, IOCODE, ERRORCODE,«, l3=0x2b}
0x0133…0166 Line {l1=0x31, l2=»    I, J, K, L, P, CHARCODE, CIF1, CIF2: INTEGER;«, l3=0x31}
0x0166…017b Line {l1=0x13, l2=»    STRENG: STRING;«, l3=0x13}
0x017b…017e Line {l1=0x01, l2=» «, l3=0x01}
0x017e…01bb Line {l1=0x3b, l2=»PROCEDURE PSCIU(VAR DISCBUFFER: BLOCK; DISC, TRACK, SECTOR,«, l3=0x3b}
0x01bb…01f6 Line {l1=0x39, l2=»                IOCODE: INTEGER; VAR ERRORCODE: INTEGER);«, l3=0x39}
0x01f6…0231 Line {l1=0x39, l2=»                                                EXTERNAL;«, l3=0x39}
0x0231…0263 Line {l1=0x30, l2=»                                                «, l3=0x30}
0x0263…02ac Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x02ac…02af Line {l1=0x01, l2=» «, l3=0x01}
0x02af…02c5 Line {l1=0x14, l2=»PROCEDURE LÆSFILTOP;«, l3=0x14}
0x02c5…02c8 Line {l1=0x01, l2=» «, l3=0x01}
0x02c8…02cf Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x02cf…02df Line {l1=0x0e, l2=»  IOCODE := 1;«, l3=0x0e}
0x02df…0316 Line {l1=0x35, l2=»  PSCIU(DISCBUFI,DISC,TRACK,SECTOR,IOCODE,ERRORCODE);«, l3=0x35}
0x0316…0355 Line {l1=0x3d, l2=»  IF ERRORCODE <> 0 THEN WRITELN ('ERRORCODE:', ERRORCODE:4);«, l3=0x3d}
0x0355…0369 Line {l1=0x12, l2=»END; (*LÆSFILTOP*)«, l3=0x12}
0x0369…036c Line {l1=0x01, l2=» «, l3=0x01}
0x036c…03b5 Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x03b5…03b8 Line {l1=0x01, l2=» «, l3=0x01}
0x03b8…03ce Line {l1=0x14, l2=»PROCEDURE GEMFILTOP;«, l3=0x14}
0x03ce…03d1 Line {l1=0x01, l2=» «, l3=0x01}
0x03d1…03d8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x03d8…03e8 Line {l1=0x0e, l2=»  IOCODE := 2;«, l3=0x0e}
0x03e8…041f Line {l1=0x35, l2=»  PSCIU(DISCBUFU,DISC,TRACK,SECTOR,IOCODE,ERRORCODE);«, l3=0x35}
0x041f…045e Line {l1=0x3d, l2=»  IF ERRORCODE <> 0 THEN WRITELN ('ERRORCODE:', ERRORCODE:4);«, l3=0x3d}
0x045e…0472 Line {l1=0x12, l2=»END; (*GEMFILTOP*)«, l3=0x12}
0x0472…0475 Line {l1=0x01, l2=» «, l3=0x01}
0x0475…04be Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x04be…04c1 Line {l1=0x01, l2=» «, l3=0x01}
0x04c1…04e1 Line {l1=0x1e, l2=»PROCEDURE WRITEHEX(I:INTEGER);«, l3=0x1e}
0x04e1…04e4 Line {l1=0x01, l2=» «, l3=0x01}
0x04e4…04eb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04eb…04f6 Line {l1=0x09, l2=»  P:=P+1;«, l3=0x09}
0x04f6…0542 Line {l1=0x4a, l2=»  IF I<10 THEN STRENG(P):=CHR(I+ORD('0')) ELSE STRENG(P):=CHR(I+ORD('7'));«, l3=0x4a}
0x0542…0555 Line {l1=0x11, l2=»END; (*WRITEHEX*)«, l3=0x11}
0x0555…0558 Line {l1=0x01, l2=» «, l3=0x01}
0x0558…05a1 Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x05a1…05a4 Line {l1=0x01, l2=» «, l3=0x01}
0x05a4…05ce Line {l1=0x28, l2=»PROCEDURE SKRIVFILTOP(DISCBUFFER:BLOCK);«, l3=0x28}
0x05ce…05d1 Line {l1=0x01, l2=» «, l3=0x01}
0x05d1…05d8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05d8…05dc Line {l1=0x02, l2=»  «, l3=0x02}
0x05dc…05ee Line {l1=0x10, l2=»  WRITELN(LIST);«, l3=0x10}
0x05ee…05ff Line {l1=0x0f, l2=»  STRENG:=' 0';«, l3=0x0f}
0x05ff…0627 Line {l1=0x26, l2=»  (*$R-*) STRENG(0):=CHR(64)  (*$R+*);«, l3=0x26}
0x0627…0646 Line {l1=0x1d, l2=»  FILLCHAR(STRENG(3),62,' ');«, l3=0x1d}
0x0646…0649 Line {l1=0x01, l2=» «, l3=0x01}
0x0649…065d Line {l1=0x12, l2=»  FOR I:=0 TO 1 DO«, l3=0x12}
0x065d…0666 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x0666…0671 Line {l1=0x09, l2=»    P:=0;«, l3=0x09}
0x0671…0683 Line {l1=0x10, l2=»    WRITEHEX(I);«, l3=0x10}
0x0683…068e Line {l1=0x09, l2=»    P:=5;«, l3=0x09}
0x068e…069c Line {l1=0x0c, l2=»    J:=I*16;«, l3=0x0c}
0x069c…06aa Line {l1=0x0c, l2=»    K:=J+15;«, l3=0x0c}
0x06aa…06ad Line {l1=0x01, l2=» «, l3=0x01}
0x06ad…06c3 Line {l1=0x14, l2=»    FOR L:=J TO K DO«, l3=0x14}
0x06c3…06ce Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x06ce…06f0 Line {l1=0x20, l2=»      IF L MOD 4 =0 THEN P:=P+1;«, l3=0x20}
0x06f0…06ff Line {l1=0x0d, l2=»      P:=P+1;«, l3=0x0d}
0x06ff…0728 Line {l1=0x27, l2=»      CIF1:=ORD(DISCBUFFER(L)) MOD 128;«, l3=0x27}
0x0728…0767 Line {l1=0x3d, l2=»      IF (CIF1<=126) AND (CIF1>=32) THEN STRENG(P):=CHR(CIF1)«, l3=0x3d}
0x0767…0783 Line {l1=0x1a, l2=»      ELSE STRENG(P):='.';«, l3=0x1a}
0x0783…078d Line {l1=0x08, l2=»    END;«, l3=0x08}
0x078d…0790 Line {l1=0x01, l2=» «, l3=0x01}
0x0790…079d Line {l1=0x0b, l2=»    P:=P+3;«, l3=0x0b}
0x079d…07b3 Line {l1=0x14, l2=»    FOR L:=J TO K DO«, l3=0x14}
0x07b3…07be Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x07be…07e0 Line {l1=0x20, l2=»      IF L MOD 4 =0 THEN P:=P+1;«, l3=0x20}
0x07e0…0808 Line {l1=0x26, l2=»      CIF1:=ORD(DISCBUFFER(L)) DIV 16;«, l3=0x26}
0x0808…0830 Line {l1=0x26, l2=»      CIF2:=ORD(DISCBUFFER(L)) MOD 16;«, l3=0x26}
0x0830…0847 Line {l1=0x15, l2=»      WRITEHEX(CIF1);«, l3=0x15}
0x0847…085e Line {l1=0x15, l2=»      WRITEHEX(CIF2);«, l3=0x15}
0x085e…0868 Line {l1=0x08, l2=»    END;«, l3=0x08}
0x0868…086b Line {l1=0x01, l2=» «, l3=0x01}
0x086b…0886 Line {l1=0x19, l2=»    WRITELN(LIST,STRENG);«, l3=0x19}
0x0886…089b Line {l1=0x13, l2=»  END; (*FOR I:=0*)«, l3=0x13}
0x089b…08b1 Line {l1=0x14, l2=»END; (*SKRIVFILTOP*)«, l3=0x14}
0x08b1…08b4 Line {l1=0x01, l2=» «, l3=0x01}
0x08b4…08fd Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x08fd…0900 Line {l1=0x01, l2=» «, l3=0x01}
0x0900…0916 Line {l1=0x14, l2=»PROCEDURE REDFILTOP;«, l3=0x14}
0x0916…0919 Line {l1=0x01, l2=» «, l3=0x01}
0x0919…093e Line {l1=0x23, l2=»VAR FILNAVN            : STRING(8);«, l3=0x23}
0x093e…0963 Line {l1=0x23, l2=»    FILTYPE, UDVKODE   : STRING(1);«, l3=0x23}
0x0963…0984 Line {l1=0x1f, l2=»    BYTENR             : 0..31;«, l3=0x1f}
0x0984…09a7 Line {l1=0x21, l2=»    SPOR,SEKTOR,RECLEN : INTEGER;«, l3=0x21}
0x09a7…09ca Line {l1=0x21, l2=»    ANTUDV,ANTSEKT     : INTEGER;«, l3=0x21}
0x09ca…09ed Line {l1=0x21, l2=»    ANTAL              : INTEGER;«, l3=0x21}
0x09ed…09f0 Line {l1=0x01, l2=» «, l3=0x01}
0x09f0…09f7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x09f7…0a03 Line {l1=0x0a, l2=»  WRITELN;«, l3=0x0a}
0x0a03…0a1a Line {l1=0x15, l2=»  DISCBUFU:=DISCBUFI;«, l3=0x15}
0x0a1a…0a1d Line {l1=0x01, l2=» «, l3=0x01}
0x0a1d…0a35 Line {l1=0x16, l2=»  FILNAVN:='        ';«, l3=0x16}
0x0a35…0a4e Line {l1=0x17, l2=»  FOR BYTENR:=0 TO 7 DO«, l3=0x17}
0x0a4e…0a80 Line {l1=0x30, l2=»    IF ORD(DISCBUFU(BYTENR)) IN (.32..126.) THEN«, l3=0x30}
0x0a80…0aab Line {l1=0x29, l2=»      FILNAVN(BYTENR+1):=DISCBUFU(BYTENR)«, l3=0x29}
0x0aab…0ab5 Line {l1=0x08, l2=»    ELSE«, l3=0x08}
0x0ab5…0ad4 Line {l1=0x1d, l2=»      FILNAVN(BYTENR+1):='.';«, l3=0x1d}
0x0ad4…0aee Line {l1=0x18, l2=»  WRITE('Filnavn   : ');«, l3=0x18}
0x0aee…0b02 Line {l1=0x12, l2=»  EDIT(FILNAVN:8);«, l3=0x12}
0x0b02…0b40 Line {l1=0x3c, l2=»  FOR BYTENR:=0 TO 7 DO DISCBUFU(BYTENR):=FILNAVN(BYTENR+1);«, l3=0x3c}
0x0b40…0b43 Line {l1=0x01, l2=» «, l3=0x01}
0x0b43…0b54 Line {l1=0x0f, l2=»  FILTYPE:=' ';«, l3=0x0f}
0x0b54…0b70 Line {l1=0x1a, l2=»  FILTYPE(1):=DISCBUFU(8);«, l3=0x1a}
0x0b70…0b8a Line {l1=0x18, l2=»  WRITE('Type      : ');«, l3=0x18}
0x0b8a…0b9e Line {l1=0x12, l2=»  EDIT(FILTYPE:1);«, l3=0x12}
0x0b9e…0bba Line {l1=0x1a, l2=»  DISCBUFU(8):=FILTYPE(1);«, l3=0x1a}
0x0bba…0bbd Line {l1=0x01, l2=» «, l3=0x01}
0x0bbd…0bce Line {l1=0x0f, l2=»  UDVKODE:=' ';«, l3=0x0f}
0x0bce…0bea Line {l1=0x1a, l2=»  UDVKODE(1):=DISCBUFU(9);«, l3=0x1a}
0x0bea…0c04 Line {l1=0x18, l2=»  WRITE('Udv. kode : ');«, l3=0x18}
0x0c04…0c18 Line {l1=0x12, l2=»  EDIT(UDVKODE:1);«, l3=0x12}
0x0c18…0c34 Line {l1=0x1a, l2=»  DISCBUFU(9):=UDVKODE(1);«, l3=0x1a}
0x0c34…0c37 Line {l1=0x01, l2=» «, l3=0x01}
0x0c37…0c55 Line {l1=0x1c, l2=»  ANTUDV:=ORD(DISCBUFU(10));«, l3=0x1c}
0x0c55…0c91 Line {l1=0x3a, l2=»  WRITE('Antal udvidelser   : ',ANTUDV:4,'  nyt ant. : ');«, l3=0x3a}
0x0c91…0c9c Line {l1=0x09, l2=»  READLN;«, l3=0x09}
0x0c9c…0cac Line {l1=0x0e, l2=»  READ(ANTAL);«, l3=0x0e}
0x0cac…0cc9 Line {l1=0x1b, l2=»  DISCBUFU(10):=CHR(ANTAL);«, l3=0x1b}
0x0cc9…0ccc Line {l1=0x01, l2=» «, l3=0x01}
0x0ccc…0d01 Line {l1=0x33, l2=»  ANTSEKT:=ORD(DISCBUFU(11))+256*ORD(DISCBUFU(12));«, l3=0x33}
0x0d01…0d3e Line {l1=0x3b, l2=»  WRITE('Antal sektorer/udv.: ',ANTSEKT:4,'  nyt ant. : ');«, l3=0x3b}
0x0d3e…0d49 Line {l1=0x09, l2=»  READLN;«, l3=0x09}
0x0d49…0d59 Line {l1=0x0e, l2=»  READ(ANTAL);«, l3=0x0e}
0x0d59…0d7e Line {l1=0x23, l2=»  DISCBUFU(11):=CHR(ANTAL MOD 256);«, l3=0x23}
0x0d7e…0da3 Line {l1=0x23, l2=»  DISCBUFU(12):=CHR(ANTAL DIV 256);«, l3=0x23}
0x0da3…0da6 Line {l1=0x01, l2=» «, l3=0x01}
0x0da6…0dd8 Line {l1=0x30, l2=»  SPOR:=ORD(DISCBUFU(13))+256*ORD(DISCBUFU(14));«, l3=0x30}
0x0dd8…0e12 Line {l1=0x38, l2=»  WRITE('Spor nr. næste udv.: ',SPOR:4,'  nyt nr.  : ');«, l3=0x38}
0x0e12…0e1d Line {l1=0x09, l2=»  READLN;«, l3=0x09}
0x0e1d…0e2d Line {l1=0x0e, l2=»  READ(ANTAL);«, l3=0x0e}
0x0e2d…0e52 Line {l1=0x23, l2=»  DISCBUFU(13):=CHR(ANTAL MOD 256);«, l3=0x23}
0x0e52…0e77 Line {l1=0x23, l2=»  DISCBUFU(14):=CHR(ANTAL DIV 256);«, l3=0x23}
0x0e77…0e95 Line {l1=0x1c, l2=»  SEKTOR:=ORD(DISCBUFU(15));«, l3=0x1c}
0x0e95…0ed1 Line {l1=0x3a, l2=»  WRITE('Sekt.nr. næste udv.: ',SEKTOR:4,'  nyt nr.  : ');«, l3=0x3a}
0x0ed1…0edc Line {l1=0x09, l2=»  READLN;«, l3=0x09}
0x0edc…0eec Line {l1=0x0e, l2=»  READ(ANTAL);«, l3=0x0e}
0x0eec…0f11 Line {l1=0x23, l2=»  DISCBUFU(15):=CHR(ANTAL MOD 256);«, l3=0x23}
0x0f11…0f14 Line {l1=0x01, l2=» «, l3=0x01}
0x0f14…0f46 Line {l1=0x30, l2=»  SPOR:=ORD(DISCBUFU(16))+256*ORD(DISCBUFU(17));«, l3=0x30}
0x0f46…0f80 Line {l1=0x38, l2=»  WRITE('Spor nr. forr. udv.: ',SPOR:4,'  nyt nr.  : ');«, l3=0x38}
0x0f80…0f8b Line {l1=0x09, l2=»  READLN;«, l3=0x09}
0x0f8b…0f9b Line {l1=0x0e, l2=»  READ(ANTAL);«, l3=0x0e}
0x0f9b…0fc0 Line {l1=0x23, l2=»  DISCBUFU(16):=CHR(ANTAL MOD 256);«, l3=0x23}
0x0fc0…0fe5 Line {l1=0x23, l2=»  DISCBUFU(17):=CHR(ANTAL DIV 256);«, l3=0x23}
0x0fe5…1003 Line {l1=0x1c, l2=»  SEKTOR:=ORD(DISCBUFU(18));«, l3=0x1c}
0x1003…103f Line {l1=0x3a, l2=»  WRITE('Sekt.nr. forr. udv.: ',SEKTOR:4,'  nyt nr.  : ');«, l3=0x3a}
0x103f…104a Line {l1=0x09, l2=»  READLN;«, l3=0x09}
0x104a…105a Line {l1=0x0e, l2=»  READ(ANTAL);«, l3=0x0e}
0x105a…107f Line {l1=0x23, l2=»  DISCBUFU(18):=CHR(ANTAL MOD 256);«, l3=0x23}
0x107f…1082 Line {l1=0x01, l2=» «, l3=0x01}
0x1082…10b4 Line {l1=0x30, l2=»  SPOR:=ORD(DISCBUFU(19))+256*ORD(DISCBUFU(20));«, l3=0x30}
0x10b4…10ee Line {l1=0x38, l2=»  WRITE('Spor nr. næste fil : ',SPOR:4,'  nyt nr.  : ');«, l3=0x38}
0x10ee…10f9 Line {l1=0x09, l2=»  READLN;«, l3=0x09}
0x10f9…1109 Line {l1=0x0e, l2=»  READ(ANTAL);«, l3=0x0e}
0x1109…112e Line {l1=0x23, l2=»  DISCBUFU(19):=CHR(ANTAL MOD 256);«, l3=0x23}
0x112e…1153 Line {l1=0x23, l2=»  DISCBUFU(20):=CHR(ANTAL DIV 256);«, l3=0x23}
0x1153…1171 Line {l1=0x1c, l2=»  SEKTOR:=ORD(DISCBUFU(21));«, l3=0x1c}
0x1171…11ad Line {l1=0x3a, l2=»  WRITE('Sekt.nr. næste fil : ',SEKTOR:4,'  nyt nr.  : ');«, l3=0x3a}
0x11ad…11b8 Line {l1=0x09, l2=»  READLN;«, l3=0x09}
0x11b8…11c8 Line {l1=0x0e, l2=»  READ(ANTAL);«, l3=0x0e}
0x11c8…11ed Line {l1=0x23, l2=»  DISCBUFU(21):=CHR(ANTAL MOD 256);«, l3=0x23}
0x11ed…11f0 Line {l1=0x01, l2=» «, l3=0x01}
0x11f0…120e Line {l1=0x1c, l2=»  RECLEN:=ORD(DISCBUFU(25));«, l3=0x1c}
0x120e…124a Line {l1=0x3a, l2=»  WRITE('Record længde      : ',RECLEN:4,'  ny længde: ');«, l3=0x3a}
0x124a…1255 Line {l1=0x09, l2=»  READLN;«, l3=0x09}
0x1255…1265 Line {l1=0x0e, l2=»  READ(ANTAL);«, l3=0x0e}
0x1265…128a Line {l1=0x23, l2=»  DISCBUFU(25):=CHR(ANTAL MOD 256);«, l3=0x23}
0x128a…128d Line {l1=0x01, l2=» «, l3=0x01}
0x128d…12a1 Line {l1=0x12, l2=»END; (*REDFILTOP*)«, l3=0x12}
0x12a1…12a4 Line {l1=0x01, l2=» «, l3=0x01}
0x12a4…12ed Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x12ed…12f0 Line {l1=0x01, l2=» «, l3=0x01}
0x12f0…12f7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x12f7…1307 Line {l1=0x0e, l2=»  CLEARSCREEN;«, l3=0x0e}
0x1307…1311 Line {l1=0x08, l2=»  REPEAT«, l3=0x08}
0x1311…1344 Line {l1=0x31, l2=»    WRITELN('':15,'Retablering af fil pointere');«, l3=0x31}
0x1344…1377 Line {l1=0x31, l2=»    WRITELN('':15,'***************************');«, l3=0x31}
0x1377…1385 Line {l1=0x0c, l2=»    WRITELN;«, l3=0x0c}
0x1385…13ae Line {l1=0x27, l2=»    WRITE(  'pladelagerbetegnelse: P');«, l3=0x27}
0x13ae…13bb Line {l1=0x0b, l2=»    READLN;«, l3=0x0b}
0x13bb…13db Line {l1=0x1e, l2=»    IF EOF THEN EXIT(PROGRAM);«, l3=0x1e}
0x13db…13ec Line {l1=0x0f, l2=»    READ(DISC);«, l3=0x0f}
0x13ec…1414 Line {l1=0x26, l2=»    WRITE(  'spornummer          : ');«, l3=0x26}
0x1414…1421 Line {l1=0x0b, l2=»    READLN;«, l3=0x0b}
0x1421…1441 Line {l1=0x1e, l2=»    IF EOF THEN EXIT(PROGRAM);«, l3=0x1e}
0x1441…1453 Line {l1=0x10, l2=»    READ(TRACK);«, l3=0x10}
0x1453…147b Line {l1=0x26, l2=»    WRITE(  'sektornummer        : ');«, l3=0x26}
0x147b…1488 Line {l1=0x0b, l2=»    READLN;«, l3=0x0b}
0x1488…14a8 Line {l1=0x1e, l2=»    IF EOF THEN EXIT(PROGRAM);«, l3=0x1e}
0x14a8…14bb Line {l1=0x11, l2=»    READ(SECTOR);«, l3=0x11}
0x14bb…14be Line {l1=0x01, l2=» «, l3=0x01}
0x14be…14ce Line {l1=0x0e, l2=»    LÆSFILTOP;«, l3=0x0e}
0x14ce…14ea Line {l1=0x1a, l2=»    SKRIVFILTOP(DISCBUFI);«, l3=0x1a}
0x14ea…14fa Line {l1=0x0e, l2=»    REDFILTOP;«, l3=0x0e}
0x14fa…1516 Line {l1=0x1a, l2=»    SKRIVFILTOP(DISCBUFU);«, l3=0x1a}
0x1516…1524 Line {l1=0x0c, l2=»    WRITELN;«, l3=0x0c}
0x1524…1568 Line {l1=0x42, l2=»    WRITE('Fortryder du, tryk på <ESC> .  OK, tryk på <RETURN> ');«, l3=0x42}
0x1568…1575 Line {l1=0x0b, l2=»    READLN;«, l3=0x0b}
0x1575…1597 Line {l1=0x20, l2=»    IF NOT EOF THEN GEMFILTOP;  «, l3=0x20}
0x1597…159a Line {l1=0x01, l2=» «, l3=0x01}
0x159a…15a8 Line {l1=0x0c, l2=»    WRITELN;«, l3=0x0c}
0x15a8…15f7 Line {l1=0x4d, l2=»    WRITE('Flere retableringer, tryk på <RETURN>    Afslut, tryk på <ESC> ');«, l3=0x4d}
0x15f7…1604 Line {l1=0x0b, l2=»    READLN;«, l3=0x0b}
0x1604…1615 Line {l1=0x0f, l2=»    PAGE(LIST);«, l3=0x0f}
0x1615…1623 Line {l1=0x0c, l2=»  UNTIL EOF;«, l3=0x0c}
0x1623…1644 Line {l1=0x1f, l2=»  WRITELN('RFILE1 terminated');«, l3=0x1f}
0x1644…164a Line {l1=0x04, l2=»END.«, l3=0x04}
0x164a…1660 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63                                 ┆  cccccccccccccccccccc┆
0x1660…1680 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
            […0x39…]

Reduced view