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

⟦8851acd75⟧ TextFile

    Length: 9912 (0x26b8)
    Types: TextFile
    Names: »TEMP«

Derivation

└─⟦434915751⟧ Bits:30005204 8" CR80 Floppy CR80FD_0057 ( VOL: DOWN CF/810615 )
    └─⟦8498d5bf1⟧ 
        └─ ⟦this⟧ »TEMP«

TextFile

0000L   5553 4D42 444F 4C55  2045 4F53 5452 0A3B  'SUBMODULE SORT;.'
0008L   5845 4F50 5452 5020  4F52 4543 5544 4552  'EXPORT PROCEDURE'
0010L   5320 524F 2054 2020  5228 3B34 5220 3B35  ' SORT   (R4; R5;'
0018L   5220 2936 0A3B 4F43  534E 0A54 2020 414D  ' R6);.CONST.  MA'
0020L   4958 544E 3D20 3120  3B35 540A 5059 0A45  'XINT = 15;.TYPE.'
0028L   2020 4552 4947 5453  5245 3D20 3020 2E2E  '  REGISTER = 0..'
0030L   414D 4958 544E 0A3B  4156 0A52 2020 4154  'MAXINT;.VAR.  TA'
0038L   4542 3A4C 4120 5252  5941 5B20 4552 4947  'BEL: ARRAY [REGI'
0040L   5453 5245 205D 464F  4920 544E 4745 5245  'STER] OF INTEGER'
0048L   0A3B 4542 4947 0A4E  2020 3652 3D20 203E  ';.BEGIN.  R6 => '
0050L   3752 0A3B 2020 2030  3E3D 5220 3B30 200A  'R7;.  0 => R0;. '
0058L   3120 2033 3E3D 5220  3B31 200A 5720 4948  ' 13 => R1;.  WHI'
0060L   454C 5220 2031 3D3E  5220 2030 4F44 200A  'LE R1 >= R0 DO. '
0068L   2020 4220 4745 4E49  200A 2020 2020 3120  '   BEGIN.      1'
0070L   2035 3E3D 5220 3B33  200A 2020 2020 5720  '5 => R3;.      W'
0078L   4948 454C 5220 2033  3D3E 5220 2030 4F44  'HILE R3 >= R0 DO'
0080L   200A 2020 2020 2020  4220 4745 4E49 200A  '.        BEGIN. '
0088L   2020 2020 2020 2020  5220 4034 4E49 4554  '         R4@INTE'
0090L   4547 2052 3E3D 5220  3B32 200A 2020 2020  'GER => R2;.     '
0098L   2020 2020 2820 3452  2B20 3120 4029 4E49  '     (R4 + 1)@IN'
00A0L   4554 4547 2052 3E3D  5220 3B35 200A 2020  'TEGER => R5;.   '
00A8L   2020 2020 2020 4920  2046 3352 3D20 3120  '       IF R3 = 1'
00B0L   2035 4F4C 4147 444E  5220 2031 203D 3331  '5 LOGAND R1 = 13'
>>>>>>>>>>>>>>>>>more output ?00B8L   5420 4548 204E 2020  4822 4956 2053 3352  ' THEN   "HVIS R3'
00C0L   3D20 3120 2035 474F  5220 2031 203D 3331  ' = 15 OG R1 = 13'
00C8L   4C20 4541 2D47 200A  2020 2020 2020 2020  ' LAEG-.         '
00D0L   2020 4220 4745 4E49  2020 2020 2020 2020  '   BEGIN        '
00D8L   2020 2020 2020 2020  2020 2020 2020 2020  '                '
00E0L   2020 4722 5345 5420  4C41 454C 2054 5246  '  "GES TALLET FR'
00E8L   2041 2E31 5453 2045  4441 2E52 4920 200A  'A 1.STE ADR. I. '
00F0L   2020 2020 2020 2020  2020 2020 5220 2032  '             R2 '
00F8L   3E3D 5220 3B36 2020  2020 2020 2020 2020  '=> R6;          '
0100L   2020 2020 2020 2020  2020 5222 4745 5349  '          "REGIS'
0108L   4554 4552 2054 4E49  2044 2049 3652 0A2E  'TERET IND I R6..'
0110L   2020 2020 2020 2020  2020 2020 4E45 3B44  '            END;'
0118L   200A 2020 2020 2020  2020 2020 5720 4948  '.            WHI'
0120L   454C 5220 2031 203D  3331 4420 204F 2020  'LE R1 = 13 DO   '
0128L   2020 2020 2020 2020  2020 2020 5322 4141  '            "SAA'
0130L   414C 4E45 4547 5220  2031 203D 3331 4C20  'LAENGE R1 = 13 L'
0138L   4541 4747 5345 200A  2020 2020 2020 2020  'AEGGES.         '
0140L   2020 2020 4220 4745  4E49 2020 2020 2020  '     BEGIN      '
0148L   2020 2020 2020 2020  2020 2020 2020 2020  '                '
0150L   2020 5422 4C41 454C  2054 5246 2041 414E  '  "TALLET FRA NA'
0158L   5345 4554 4120 5244  202E 0A49 2020 2020  'ESTE ADR. I.    '
0160L   2020 2020 2020 2020  2020 2020 3652 2B20  '            R6 +'
0168L   5220 3B35 2020 2020  2020 2020 2020 2020  ' R5;            '
>>>>>>>>>>>>>>>>>more output ?0170L   2020 2020 2020 2220  4552 4947 5453 4552  '       "REGISTRE'
0178L   2054 4F53 204D 5245  4920 5220 2035 414C  'T SOM ER I R5 LA'
0180L   4745 0A2D 2020 2020  2020 2020 2020 2020  'EG-.            '
0188L   2020 4E45 3B44 2020  2020 2020 2020 2020  '  END;          '
0190L   2020 2020 2020 2020  2020 2020 2020 2220  '               "'
0198L   4547 2053 4954 204C  3652 202E 3652 5320  'GES TIL R6. R6 S'
01A0L   4D55 454D 4552 2E52  200A 2020 2020 2020  'UMMERER..       '
01A8L   2020 2020 2020 4920  2046 3552 3C20 5220  '       IF R5 < R'
01B0L   2032 4854 4E45 2020  2020 2020 2020 2020  '2 THEN          '
01B8L   2020 2020 4822 4956  2053 3552 3C20 5220  '    "HVIS R5 < R'
01C0L   2032 4150 4241 4745  4E59 4544 2053 4E45  '2 PAABEGYNDES EN'
01C8L   200A 2020 2020 2020  2020 2020 2020 2020  '.               '
01D0L   4220 4745 4E49 2020  2020 2020 2020 2020  ' BEGIN          '
01D8L   2020 2020 2020 2020  2020 2020 5322 4157  '            "SWA'
01E0L   4E50 4E49 2047 4641  5420 4C41 454C 454E  'PNING AF TALLENE'
01E8L   2820 5942 4E54 4E49  2947 0A2E 2020 2020  ' (BYTNING)..    '
01F0L   2020 2020 2020 2020  2020 2020 2020 3552  '              R5'
01F8L   3D20 203E 5228 2034  202D 2931 4940 544E  ' => (R4 - 1)@INT'
0200L   4745 5245 0A3B 2020  2020 2020 2020 2020  'EGER;.          '
0208L   2020 2020 2020 2020  3252 3D20 203E 5228  '        R2 => (R'
0210L   2034 202B 2931 4940  544E 4745 5245 0A3B  '4 + 1)@INTEGER;.'
0218L   2020 2020 2020 2020  2020 2020 2020 2020  '                '
0220L   4E45 3B44 200A 2020  2020 2020 4520 444E  'END;.        END'
>>>>>>>>>>>>>>>>>more output ?0228L   0A3B 2020 2020 2020  2020 3352 2D20 3120  ';.        R3 - 1'
0230L   0A3B 2020 2020 4E45  3B44 200A 2020 4920  ';.    END;.    I'
0238L   2046 3152 3D20 5220  2030 4854 4E45 2020  'F R1 = R0 THEN  '
0240L   2020 2020 2020 2020  2020 2020 2020 2020  '                '
0248L   2020 2020 2020 4822  4956 2053 3152 3D20  '      "HVIS R1 ='
0250L   5220 2030 554E 534C  4954 4C4C 5345 5220  ' R0 NULSTILLES R'
0258L   2033 474F 200A 2020  2020 4220 4745 4E49  '3 OG.      BEGIN'
0260L   2020 2020 2020 2020  2020 2020 2020 2020  '                '
...
0270L   3122 2035 414C 4745  4547 2053 2049 3552  '"15 LAEGGES I R5'
0278L   0A2E 2020 2020 2020  2020 2030 3E3D 5220  '..        0 => R'
0280L   3B33 200A 2020 2020  2020 3120 2035 3E3D  '3;.        15 =>'
0288L   5220 3B35 200A 2020  2020 2020 5720 4948  ' R5;.        WHI'
0290L   454C 5220 2035 3D3E  5220 2030 4F44 2020  'LE R5 >= R0 DO  '
0298L   2020 2020 2020 2020  2020 2020 2020 2020  '                '
02A0L   5322 4141 414C 4E45  4547 5220 2035 3D3E  '"SAALAENGE R5 >='
02A8L   5220 2030 4548 544E  5345 5420 4C41 200A  ' R0 HENTES TAL. '
02B0L   2020 2020 2020 2020  4220 4745 4E49 2020  '         BEGIN  '
02B8L   2020 2020 2020 2020  2020 2020 2020 2020  '                '
02C0L   2020 2020 2020 2020  2020 4622 4152 5220  '          "FRA R'
02C8L   4745 5349 5254 5445  4F20 2047 414C 4745  'EGISTRET OG LAEG'
02D0L   4547 2053 2049 3252  0A2E 2020 2020 2020  'GES I R2..      '
02D8L   2020 2020 2020 3452  4940 544E 4745 5245  '      R4@INTEGER'
>>>>>>>>>>>>>>>>>more output ?02E0L   3D20 203E 3252 0A3B  2020 2020 2020 2020  ' => R2;.        '
02E8L   2020 2020 4649 5220  2032 3D3E 3120 5420  '    IF R2 >= 1 T'
02F0L   4548 204E 2020 2020  2020 2020 2020 2020  'HEN             '
02F8L   2020 2220 5648 5349  5220 2032 3D3E 3120  '   "HVIS R2 >= 1'
0300L   4620 524F 454F 4547  2053 3352 4D20 4445  ' FOROEGES R3 MED'
0308L   200A 2020 2020 2020  2020 2020 2020 4220  '.              B'
0310L   4745 4E49 2020 2020  2020 2020 2020 2020  'EGIN            '
0318L   2020 2020 2020 2020  2020 2020 3122 0A2E  '            "1..'
0320L   2020 2020 2020 2020  2020 2020 2020 2020  '                '
0328L   3352 2B20 3120 0A3B  2020 2020 2020 2020  'R3 + 1;.        '
0330L   2020 2020 2020 4E45  3B44 200A 2020 2020  '      END;.     '
0338L   2020 2020 4520 444E  0A3B 2020 2020 2020  '     END;.      '
0340L   2020 2020 5228 2034  202B 2931 4940 544E  '    (R4 + 1)@INT'
0348L   4745 5245 203B 2020  2020 2020 2020 2020  'EGER;           '
0350L   2020 2020 2220 414E  5345 4554 4120 5244  '     "NAESTE ADR'
0358L   202E 2049 4552 4947  5453 4552 2E54 200A  '. I REGISTRET.. '
0360L   2020 2020 2020 2020  5220 2030 202B 3B31  '         R0 + 1;'
0368L   2020 2020 2020 2020  2020 2020 2020 2020  '                '
0370L   2020 2020 2020 2020  2020 5222 2030 4F46  '          "R0 FO'
0378L   4F52 4745 5345 4D20  4445 3120 0A2E 2020  'ROEGES MED 1..  '
0380L   2020 2020 2020 2020  4649 5220 2035 203D  '        IF R5 = '
0388L   3052 5420 4548 204E  2020 2020 2020 2020  'R0 THEN         '
0390L   2020 2020 2020 2020  2220 5648 5349 5220  '         "HVIS R'
>>>>>>>>>>>>>>>>>more output ?0398L   2035 203D 3052 4C20  4541 4747 5345 5220  '5 = R0 LAEGGES R'
03A0L   2036 4E49 0A44 2020  2020 2020 2020 2020  '6 IND.          '
03A8L   2020 4542 4947 204E  2020 2020 2020 2020  '  BEGIN         '
03B0L   2020 2020 2020 2020  2020 2020 2020 2020  '                '
03B8L   2220 2049 3552 202E  3652 4E20 4C55 5453  ' "I R5. R6 NULST'
03C0L   4C49 454C 2E53 5220  3635 4420 2D49 200A  'ILLES. R56 DI-. '
03C8L   2020 2020 2020 2020  2020 2020 5220 2036  '             R6 '
03D0L   3E3D 5220 3B35 2020  2020 2020 2020 2020  '=> R5;          '
03D8L   2020 2020 2020 2020  2020 5622 4449 5245  '          "VIDER'
03E0L   5345 4D20 4445 5220  2E33 200A 2020 2020  'ES MED R3..     '
03E8L   2020 2020 2020 2020  3020 3D20 203E 3652  '         0 => R6'
03F0L   0A3B 2020 2020 2020  2020 2020 2020 2020  ';.              '
03F8L   3552 2F36 3352 0A3B  2020 2020 2020 2020  'R56/R3;.        '
0400L   2020 2020 4E45 0A44  2020 2020 2020 4E45  '    END.      EN'
0408L   0A44 2020 2020 4C45  4553 200A 2020 2020  'D.    ELSE.     '
0410L   4220 4745 4E49 2020  2020 2020 2020 2020  ' BEGIN          '
0418L   2020 2020 2020 2020  2020 2020 2020 2020  '                '
0420L   2020 2020 2020 4822  4956 2053 3152 4920  '      "HVIS R1 I'
0428L   4B4B 2045 5245 4920  4544 544E 5349 204B  'KKE ER IDENTISK '
0430L   454D 0A44 2020 2020  2020 2020 3152 2D20  'MED.        R1 -'
0438L   3120 203B 2020 2020  2020 2020 2020 2020  ' 1;             '
0440L   2020 2020 2020 2020  2020 2020 2020 2220  '               "'
0448L   3052 5320 4255 5254  4841 5245 5245 5620  'R0 SUBTRAHERER V'
>>>>>>>>>>>>>>>>>more output ?0450L   2049 3152 4D20 4445  3120 0A2E 2020 2020  'I R1 MED 1..    '
0458L   2020 4E45 3B44 200A  5220 2037 3E3D 5220  '  END;.  R7 => R'
0460L   3B36 200A 4520 4958  2854 3652 3B29 450A  '6;.  EXIT(R6);.E'
0468L   444E 0A3B 4E45 4D44  444F 4C55 0A45       'ND;.ENDMODULE.' \r