|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics
Length: 2356224 (0x23f400)
Names: »sefiles «
└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
└─⟦f546e193b⟧
└─⟦this⟧ »sefiles «
Dumping the first 0x20 bytes of each record
0x000000…001b00 (4, 796) 00 00 00 00 00 03 00 0b fc 00 00 00 00 00 29 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 0e 00 00 ┆ ) ┆
0x001b00…003600 (4, 797) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x00bd00…00d800 (4, 803) 53 10 00 37 78 01 00 00 4c 51 28 0e 5d 28 58 53 28 12 53 38 3c 5f 28 5a 2d 28 12 2c 00 21 53 10 ┆S 7x LQ( Å(XS( S8<_(Z-( , !S ┆
0x00d800…00f300 (4, 804) 84 0f f0 5c 28 22 5d 28 24 53 28 1e 1f 28 24 5f 28 24 51 28 20 53 83 e6 9b 68 22 99 68 22 87 30 ┆ Ø("Å($S( ($_($Q( S h" h" 0┆
0x00f300…010e00 (4, 805) dc 20 02 d8 10 06 dc 20 06 52 83 b4 2d 28 28 5d 28 80 2d 28 0e 2c 00 36 53 10 00 37 78 01 00 00 ┆ R -((Å( -( , 6S 7x ┆
0x010e00…012900 (4, 806) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x014400…015f00 (4, 808) dc 20 0a 52 81 cc 34 80 4e 53 28 0e 2f 38 74 51 28 12 2c 00 00 61 81 be 91 00 01 24 10 00 51 30 ┆ R 4 NS( /8tQ( , a $ Q0┆
0x015f00…017a00 (4, 809) 2d 00 00 a1 00 7f 34 80 08 a5 00 7f 34 80 12 2d 10 01 5d 28 24 2c 00 00 91 00 01 24 10 00 5c 28 ┆- 4 4 - Å($, $ Ø(┆
0x017a00…019500 (4, 810) 5d 28 44 2c 00 02 5c 23 ce 2f 00 01 5f 23 d0 2d 28 16 2c 00 1a 37 68 01 00 0b c2 24 87 ff 34 01 ┆Å(D, Ø# / _# -( , 7h $ 4 ┆
0x019500…01b000 (4, 811) 00 00 16 00 00 16 00 00 20 00 00 28 00 00 2e 00 00 44 00 00 58 00 00 58 00 00 5a 00 00 74 00 00 ┆ ( . D X X Z t ┆
0x01b000…01cb00 (4, 812) 00 00 52 00 01 82 ff f8 4c 00 07 04 00 00 6a 00 03 98 00 00 ac 00 09 14 00 00 58 00 00 64 ff f8 ┆ R L j X d ┆
0x01cb00…01e600 (4, 813) 2d 10 01 5d 28 14 51 28 0e 2d 1c 82 53 28 46 5d 28 4a 51 28 14 a1 00 54 a1 00 00 79 0f fe 5f 28 ┆- Å( Q( - S(FÅ(JQ( T y _(┆
0x01e600…020100 (4, 814) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xb…]
0x032a00…034500 (4, 826) 29 8b de 1d 28 10 51 19 ca a9 08 01 34 80 0c 51 28 26 ad 00 02 34 80 06 50 28 26 ac 68 0e 24 0f ┆) ( Q 4 Q(& 4 P(& h $ ┆
0x034500…036000 (4, 827) 51 28 22 a1 00 03 a1 0f ff 35 0b 2e 53 28 10 5d 30 00 2c 00 07 5c 28 64 53 28 22 a3 00 03 a3 0f ┆Q(" 5 .S( Å0 , Ø(dS(" ┆
0x036000…037b00 (4, 828) a0 0f ff 34 0b 2e 5c 28 60 51 28 24 51 10 06 2d 10 01 08 00 02 08 00 00 61 87 02 90 00 01 5c 28 ┆ 4 .Ø(`Q($Q - a Ø(┆
0x037b00…039600 (4, 829) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x039600…03b100 (4, 830) 5f 28 6c 2c 00 00 5c 28 6e 2d 28 14 2c 00 20 53 10 00 37 78 01 00 00 5e 51 28 12 51 10 06 5d 28 ┆_(l, Ø(n-( , S 7x ^Q( Q Å(┆
0x03b100…03cc00 (4, 831) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x040200…041d00 (4, 834) 51 10 08 5d 28 76 2c 00 02 5c 28 78 2d 28 0c 2c 00 55 53 10 00 37 78 01 00 00 6a 34 80 1c 51 28 ┆Q Å(v, Ø(x-( , US 7x j4 Q(┆
0x041d00…043800 (4, 835) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x045300…046e00 (4, 837) 5d 28 26 53 28 0e ab 00 02 34 80 88 51 28 18 5d 28 62 2c 00 01 5c 28 64 2d 28 10 2c 00 76 53 10 ┆Å(&S( 4 Q( Å(b, Ø(d-( , vS ┆
0x046e00…048900 (4, 838) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x048900…04a400 (4, 839) a8 08 01 34 80 1a 51 28 0c 51 18 c6 51 10 06 5d 28 12 51 28 0c 2d 18 c6 5d 28 56 2d 28 0c 2c 00 ┆ 4 Q( Q Q Å( Q( - Å(V-( , ┆
0x04a400…04bf00 (4, 840) 13 8e 74 ab 00 01 34 80 56 51 28 be 51 10 06 a9 08 01 34 80 4e 51 28 be 51 10 0a a9 68 7e 34 80 ┆ t 4 VQ( Q 4 NQ( Q hü4 ┆
0x04bf00…04da00 (4, 841) 53 25 1c 5d 30 00 2c 00 02 53 25 1c 5c 30 04 51 28 92 2d 10 08 53 25 1c 2f 30 06 5e 83 f0 2e 30 ┆S% Å0 , S% Ø0 Q( - S% /0 ^ .0┆
0x04da00…04f500 (4, 842) 00 00 62 00 00 68 00 00 9a 00 00 9e 00 07 a2 72 65 61 64 63 68 61 72 20 20 20 20 00 00 00 00 00 ┆ b h readchar ┆
0x04f500…051000 (4, 843) 00 01 f6 00 01 fc 00 02 00 00 10 ea 6c 6f 61 64 72 65 67 69 73 74 65 72 00 00 00 00 00 06 00 00 ┆ loadregister ┆
0x051000…052b00 (4, 844) 00 0a 34 00 0a 42 00 0a 42 00 0a 56 00 0a 60 00 0a 62 00 0a a0 00 0a dc 00 0a dc 00 0a f0 00 0a ┆ 4 B B V ` b ┆
0x052b00…054600 (4, 845) 00 09 14 00 09 14 00 09 14 00 09 1c 00 09 1c 00 09 24 00 09 2a 00 09 2a 00 09 2a 00 09 2a 00 09 ┆ $ * * * * ┆
0x054600…056100 (4, 846) 20 20 6e 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 43 74 72 6c 20 51 20 28 58 4f 4e 29 0a ┆ no ; Ctrl Q (XON) ┆
0x056100…057c00 (4, 847) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 0a 31 31 3a 20 20 69 62 20 20 20 20 ┆ V 11: ib ┆
0x057c00…059700 (4, 848) 65 64 20 20 20 20 20 20 20 20 20 20 2a 29 0a 20 20 28 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ed *) (* ┆
0x059700…05b200 (4, 849) 6d 70 66 69 6c 65 2c 20 20 20 20 28 2a 20 4f 64 64 20 74 65 6d 70 66 69 6c 65 20 66 6f 72 20 6f ┆mpfile, (* Odd tempfile for o┆
0x05b200…05cd00 (4, 850) 3a 69 6e 74 65 67 65 72 3b 6a 75 73 74 3a 62 6f 6f 6c 65 61 6e 29 3b 0a 20 20 66 6f 72 77 61 72 ┆:integer;just:boolean); forwar┆
0x05cd00…05e800 (4, 851) 20 20 65 6e 64 3b 0a 20 20 20 20 67 65 74 5f 6b 65 79 5f 6e 75 6d 62 65 72 3a 3d 76 61 6c 3b 0a ┆ end; get_key_number:=val; ┆
0x05e800…060300 (4, 852) 20 63 68 3c 27 20 27 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ ch<' ' then begin ┆
0x060300…061e00 (4, 853) 20 20 20 20 66 6f 72 20 63 3a 3d 31 20 74 6f 20 73 63 72 6f 6c 6c 5f 75 70 20 64 6f 0a 20 20 20 ┆ for c:=1 to scroll_up do ┆
0x061e00…063900 (4, 854) 6c 65 5e 3c 3e 6e 6c 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6c ┆le^<>nl do begin l┆
0x063900…065400 (4, 855) 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 66 69 6c 65 2c 69 6e 66 69 6c ┆egin write(outfile,infil┆
0x065400…066f00 (4, 856) 6c 69 6e 65 6c 65 6e 67 74 68 3a 3d 20 63 75 72 78 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 6c ┆linelength:= curx - 1; l┆
0x066f00…068a00 (4, 857) 75 72 78 2b 31 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 6c 5b 6e 65 77 6c 65 6e 67 74 68 2d 69 ┆urx+1 do lÆnewlength-i┆
0x068a00…06a500 (4, 858) 20 20 20 20 20 20 20 20 20 20 20 69 74 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ it:=false; ┆
0x06a500…06c000 (4, 859) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 72 ┆ write(r┆
0x06c000…06db00 (4, 860) 69 66 20 66 69 6c 65 77 69 6e 64 6f 77 5b 63 75 72 79 5d 5e 2e 61 74 74 72 69 62 75 74 65 3d 6e ┆if filewindowÆcuryÅ^.attribute=n┆
0x06db00…06f600 (4, 861) 0a 20 20 20 20 69 3a 3d 67 65 74 5f 6b 65 79 5f 6e 75 6d 62 65 72 3b 0a 20 20 20 20 77 68 69 6c ┆ i:=get_key_number; whil┆
0x06f600…071100 (4, 862) 20 20 20 20 20 20 20 62 72 65 61 6b 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f ┆ break:=true; go┆
0x071100…072c00 (4, 863) 20 6c 61 73 74 64 69 73 70 6c 61 79 3a 3d 20 66 69 72 73 74 77 69 6e 64 6f 77 20 2b 20 64 69 73 ┆ lastdisplay:= firstwindow + dis┆
0x072c00…074700 (4, 864) 73 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 77 69 6e 64 6f 77 73 74 61 72 74 3b ┆se); i:=windowstart;┆
0x074700…076200 (4, 865) 6b 65 79 20 6d 6f 64 20 38 29 3d 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆key mod 8)=3 then begi┆
0x076200…077d00 (4, 866) 6c 29 3b 0a 20 20 20 20 20 20 63 68 3a 3d 67 65 74 6e 65 78 74 3b 0a 20 20 20 20 20 20 77 68 69 ┆l); ch:=getnext; whi┆
0x077d00…079800 (4, 867) 20 20 77 68 69 6c 65 20 6e 6f 74 28 28 63 68 20 69 6e 20 77 6f 72 64 64 65 6c 69 6d 69 74 29 20 ┆ while not((ch in worddelimit) ┆
0x079800…07b300 (4, 868) 61 6c 73 65 3b 0a 20 20 20 20 20 20 69 66 20 6e 6f 74 20 28 63 6f 6e 74 20 6f 72 20 62 72 65 61 ┆alse; if not (cont or brea┆
0x07b300…07ce00 (4, 869) 67 74 68 2b 31 3b 0a 20 20 20 20 20 20 20 20 69 74 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 ┆gth+1; it:=true; ┆
0x07ce00…07e900 (4, 870) 20 20 20 63 61 73 65 20 63 6f 6d 6d 61 6e 64 63 68 32 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 ┆ case commandch2 of ┆
0x07e900…080400 (4, 871) 6c 73 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 6e 65 5e ┆lse); tabline^┆
0x080400…081f00 (4, 872) 74 77 69 6e 64 6f 77 3a 3d 20 77 69 6e 64 6f 77 73 74 61 72 74 3b 0a 20 20 20 20 66 69 72 73 74 ┆twindow:= windowstart; first┆
0x081f00…083a00 (4, 873) 63 61 6c 6c 69 6e 65 2c 63 6f 75 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆calline,count); end;┆
0x083a00…085500 (4, 874) 65 73 65 72 76 65 0a 64 31 30 3a 20 30 2d 30 2d 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆eserve d10: 0-0-0 ; ┆
0x085500…087000 (4, 875) 28 78 33 2b 70 36 29 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 70 72 6f 63 65 64 75 72 65 3b 0a 0a ┆(x3+p6) ; goto procedure; ┆
0x087000…088b00 (4, 876) 61 66 74 65 72 20 61 6d 0a 20 20 20 20 20 6c 6f 2e 20 20 77 30 20 20 20 20 20 20 61 36 2e 20 20 ┆after am lo. w0 a6. ┆
0x088b00…08a600 (4, 877) 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 33 2b 32 20 20 20 20 20 20 3b 20 20 20 77 30 20 3a 3d ┆ al w0 x3+2 ; w0 :=┆
0x08a600…08c100 (4, 878) 0a 3b 20 63 61 6c 6c 3a 20 77 30 20 3d 20 6e 75 6d 62 65 72 20 6f 66 20 68 61 6c 66 77 6f 72 64 ┆ ; call: w0 = number of halfword┆
0x08c100…08dc00 (4, 879) 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 34 2e 20 20 20 20 3b 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ jl. a4. ; begin ┆
0x08dc00…08f700 (4, 880) 77 31 20 20 20 20 20 64 31 30 2e 20 20 20 3b 20 20 20 20 20 6c 61 73 74 20 75 73 65 64 20 6f 66 ┆w1 d10. ; last used of┆
0x08f700…091200 (4, 881) 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 62 6c 6f 63 6b 0a 20 20 ┆ 0 ; block ┆
0x091200…092d00 (4, 882) 20 20 20 20 20 20 20 20 20 3b 20 6d 61 78 20 6c 65 76 65 6c 20 28 69 6e 69 74 69 61 6c 6c 79 3a ┆ ; max level (initially:┆
0x092d00…094800 (4, 883) 65 72 20 3d 20 32 20 3c 2a 20 69 6e 64 65 78 20 65 72 72 6f 72 20 2a 3e 20 74 68 65 6e 0a 20 20 ┆er = 2 <* index error *> then ┆
0x094800…096300 (4, 884) 20 20 20 28 6d 32 36 2e 29 20 3b 20 77 72 69 74 65 6c 6e 0a 0a 20 20 20 20 20 72 6c 2e 20 77 31 ┆ (m26.) ; writeln rl. w1┆
0x096300…097e00 (4, 885) 33 20 20 20 20 67 32 2e 0a 20 20 20 20 20 20 20 66 64 20 77 31 20 20 20 20 36 0a 20 20 20 20 20 ┆3 g2. fd w1 6 ┆
0x097e00…099900 (4, 886) 20 20 67 33 2e 2d 32 0a 20 20 20 20 20 20 20 73 6c 20 77 32 20 20 20 20 30 20 20 20 20 20 20 20 ┆ g3.-2 sl w2 0 ┆
0x099900…09b400 (4, 887) 20 20 20 20 20 20 20 3b 20 64 33 0a 20 20 20 20 20 20 20 38 2e 35 35 32 31 20 2c 20 38 2e 32 31 ┆ ; d3 8.5521 , 8.21┆
0x09b400…09cf00 (4, 888) 20 77 72 69 74 74 65 6e 0a 3b 20 20 20 7a 2b 68 34 2b 34 20 28 77 6f 72 64 29 20 20 20 20 20 3a ┆ written ; z+h4+4 (word) :┆
0x09cf00…09ea00 (4, 889) 0a 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 2b 68 30 2b 36 20 20 20 3b 20 20 20 77 32 20 ┆ rl w2 x1+h0+6 ; w2 ┆
0x09ea00…0a0500 (4, 890) 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 61 72 74 20 6f 66 20 70 72 6f 67 72 61 6d 2d ┆ ; start of program-┆
0x0a0500…0a2000 (4, 891) 20 20 20 69 66 20 6e 3c 3e 30 20 74 68 65 6e 20 77 31 20 3a 3d 20 6e 0a 20 20 20 20 20 61 6c 20 ┆ if n<>0 then w1 := n al ┆
0x0a2000…0a3b00 (4, 892) 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 ┆ w0 0 ; else┆
0x0a3b00…0a5600 (4, 893) 6e 64 20 72 65 61 6c 0a 3b 20 20 63 20 2d 20 61 63 74 69 6f 6e 73 0a 3b 20 20 76 20 2d 20 73 74 ┆nd real ; c - actions ; v - st┆
0x0a5600…0a7100 (4, 894) 20 20 6e 75 6d 62 65 72 20 2a 20 31 30 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2d 34 38 ┆ number * 10 al w2 x2-48┆
0x0a7100…0a8c00 (4, 895) 6f 66 0a 3b 20 20 7a 2b 68 34 2b 32 20 28 77 6f 72 64 29 20 20 20 20 3a 20 6c 65 6e 67 74 68 20 ┆of ; z+h4+2 (word) : length ┆
0x0a8c00…0aa700 (4, 896) 20 20 3b 20 20 20 67 6f 74 6f 20 6e 65 78 74 20 74 6f 2d 77 6f 72 64 3b 0a 0a 61 34 3a 20 20 20 ┆ ; goto next to-word; a4: ┆
0x0aa700…0ac200 (4, 897) 74 61 72 74 6d 61 72 6b 3e 20 3c 63 6f 6d 6d 61 6e 64 3e 20 3c 65 6e 64 6d 61 72 6b 3e 20 65 6c ┆tartmark> <command> <endmark> el┆
0x0ac200…0add00 (4, 898) 20 52 65 67 69 73 74 65 72 20 44 65 6c 65 74 65 20 20 20 20 20 20 20 20 20 53 6c 65 74 74 65 72 ┆ Register Delete Sletter┆
0x0add00…0af800 (4, 899) 65 20 74 65 67 6e 20 69 6e 64 20 69 20 77 30 0a 20 20 20 20 72 73 20 20 77 31 20 20 78 33 2b 68 ┆e tegn ind i w0 rs w1 x3+h┆
0x0af800…0b1300 (4, 900) 73 3a 3e 0a 61 31 30 0a 30 0a 3c 3a 67 65 74 73 63 6f 70 65 62 61 73 65 3a 3e 0a 20 20 20 20 72 ┆s:> a10 0 <:getscopebase:> r┆
0x0b1300…0b2e00 (4, 901) 69 6e 73 65 72 74 6c 69 6e 65 3a 20 6c 69 6e 65 70 74 72 3b 0a 0a 20 20 20 20 6f 6e 65 63 68 61 ┆insertline: lineptr; onecha┆
0x0b2e00…0b4900 (4, 902) 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 63 68 28 63 68 72 28 70 6f 73 2b 31 32 38 ┆3; putch(chr(pos+128┆
0x0b4900…0b6400 (4, 903) 3b 0a 20 20 20 20 20 20 20 20 20 20 2a 29 0a 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 66 5e ┆; *) case f^┆
0x0b6400…0b7f00 (4, 904) 20 20 20 20 20 20 70 75 74 33 30 28 22 6e 6f 20 74 65 6d 70 6f 72 61 72 79 20 72 65 73 6f 75 72 ┆ put30("no temporary resour┆
0x0b7f00…0b9a00 (4, 905) 6e 6f 74 20 65 6f 66 28 72 65 67 66 69 6c 65 29 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆not eof(regfile) do ┆
0x0b9a00…0bb500 (4, 906) 74 65 72 6d 69 6e 61 6c 28 66 61 6c 73 65 29 3b 0a 20 20 20 20 20 20 6e 65 78 74 69 6e 62 75 66 ┆terminal(false); nextinbuf┆
0x0bb500…0bd000 (4, 907) 65 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 ┆eop then begin ┆
0x0bd000…0beb00 (4, 908) 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 5f 70 72 6f 63 65 73 73 2c 20 20 20 20 20 20 20 20 ┆ key_process, ┆
0x0beb00…0c0600 (4, 909) 2b 31 5d 3d 65 6e 64 63 6f 6d 6d 65 6e 74 29 29 20 6f 72 20 28 73 6b 69 70 63 68 61 72 3c 3e 27 ┆+1Å=endcomment)) or (skipchar<>'┆
0x0c0600…0c2100 (4, 910) 6b 20 74 68 65 6e 20 6c 61 73 74 70 6f 73 3a 3d 70 6f 73 3b 0a 63 75 72 70 6f 73 3a 3d 20 63 75 ┆k then lastpos:=pos; curpos:= cu┆
0x0c2100…0c3c00 (4, 911) 20 28 63 6f 6d 6d 61 6e 64 63 68 31 3c 3e 27 3c 27 29 0a 20 20 20 20 20 20 20 20 74 68 65 6e 20 ┆ (commandch1<>'<') then ┆
0x0c3c00…0c5700 (4, 912) 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6f 6d 6d 61 6e ┆ begin if comman┆
0x0c5700…0c7200 (4, 913) 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 69 ┆ begin definei┆
0x0c7200…0c8d00 (4, 914) 61 73 65 20 31 2e 30 30 20 76 65 72 73 69 6f 6e 20 31 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 ┆ase 1.00 version 1 *)┆
0x0c8d00…0ca800 (4, 915) 74 69 74 75 74 69 6e 67 20 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tituting *) ┆
0x0ca800…0cc300 (4, 916) 20 6f 6e 20 69 6e 70 75 74 20 22 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 69 6e ┆ on input "); lastin┆
0x0cc300…0cde00 (4, 917) 20 20 69 66 20 28 75 70 64 61 74 65 73 74 61 74 65 3d 61 6c 6c 75 70 64 61 74 65 29 0a 20 20 20 ┆ if (updatestate=allupdate) ┆
0x0cde00…0cf900 (4, 918) 20 20 20 20 20 72 65 61 64 28 70 61 72 6d 66 69 6c 65 2c 63 68 29 3b 0a 20 20 20 20 20 20 20 20 ┆ read(parmfile,ch); ┆
0x0cf900…0d1400 (4, 919) 77 72 69 74 65 6c 6e 28 70 6e 61 6d 65 2c 22 20 20 75 6e 6b 6e 6f 77 6e 20 66 69 6c 65 3a 20 22 ┆writeln(pname," unknown file: "┆
0x0d1400…0d2f00 (4, 920) 3b 0a 20 20 20 20 20 20 69 66 20 66 69 6c 65 77 69 6e 64 6f 77 5b 79 2b 69 5d 5e 2e 61 74 74 72 ┆; if filewindowÆy+iÅ^.attr┆
0x0d2f00…0d4a00 (4, 921) 67 69 6e 64 65 78 3c 3e 30 20 74 68 65 6e 20 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆gindex<>0 then begin ┆
0x0d4a00…0d6500 (4, 922) 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 28 63 68 20 69 6e 20 5b 27 73 27 2c 27 53 ┆:=0; if (ch in Æ's','S┆
0x0d6500…0d8000 (4, 923) 20 66 74 61 62 6c 65 5b 63 68 5d 3a 3d 20 30 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f ┆ ftableÆchÅ:= 0; for i:=1 to┆
0x0d8000…0d9b00 (4, 924) 20 20 20 20 6f 70 65 6e 28 6f 75 74 66 69 6c 65 2c 74 65 6d 70 6e 61 6d 65 31 29 3b 0a 20 20 20 ┆ open(outfile,tempname1); ┆
0x0d9b00…0db600 (4, 925) 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 ┆; end else ┆
0x0db600…0dd100 (4, 926) 20 61 6e 64 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 77 69 6e 64 6f 77 ┆ and (filewindow┆
0x0dd100…0dec00 (4, 927) 65 73 74 61 74 65 3c 3e 6e 6f 75 70 64 61 74 65 29 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 ┆estate<>noupdate) or ┆
0x0dec00…0e0700 (4, 928) 65 63 68 61 72 29 3b 0a 20 20 20 20 69 66 20 67 6f 5f 6f 6e 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆echar); if go_on then ┆
0x0e0700…0e2200 (4, 929) 63 6c 69 6e 65 63 68 61 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 72 27 20 3a 20 ┆clinechar); 'r' : ┆
0x0e2200…0e3d00 (4, 930) 20 20 28 2a 20 61 64 64 69 6e 67 20 36 20 65 78 74 72 61 20 68 61 6c 66 77 6f 72 64 73 20 74 6f ┆ (* adding 6 extra halfwords to┆
0x0e3d00…0e5800 (4, 931) 50 10 62 5c 80 38 10 80 26 5c 10 62 2c 2f ea 5c 10 5c 50 80 20 5c 2f ea 50 20 00 2e 20 02 a2 30 ┆P bØ 8 &Ø b,/ Ø ØP Ø/ P . 0┆
0x0e5800…0e7300 (4, 932) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x0ea900…0ec400 (4, 935) 51 00 06 2d 1f ff 08 00 02 08 00 00 61 81 6e 91 00 01 90 00 03 24 40 00 84 0f f0 5c 28 72 5d 28 ┆Q - a n $@ Ø(rÅ(┆
0x0ec400…0edf00 (4, 936) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x0efa00…0f1500 (4, 938) a5 00 ff 34 80 6e 2d 10 01 5d 28 1e 29 84 b6 1d 28 0c 24 c4 b0 2f 10 00 5f 28 46 2c 00 11 53 28 ┆ 4 n- Å( ) ( $ / _(F, S(┆
0x0f1500…0f3000 (4, 939) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x0f4b00…0f6600 (4, 941) 24 10 00 53 28 1a 24 68 58 9b 0f f0 13 81 ee 50 28 14 20 28 16 1c 81 e6 5f 28 58 51 00 00 2d 1f ┆$ S( $hX P( ( _(XQ - ┆
0x0f6600…0f8100 (4, 942) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 5e 28 12 50 10 00 5c 28 ┆ ^( P Ø(┆
0x0f8100…0f9c00 (4, 943) 2d 10 04 a1 c2 e2 34 8f f6 50 10 00 5c 20 00 52 82 dc 2c 00 00 5c 28 16 2d 00 00 5d 28 1c 2d 28 ┆- 4 P Ø R , Ø( - Å( -(┆
0x0f9c00…0fb700 (4, 944) 00 00 5a 2c 00 07 5c 28 66 2d 00 00 5d 28 68 2d 28 0c 2c 00 1e 53 10 00 37 78 01 00 00 5a 34 80 ┆ Z, Ø(f- Å(h-( , S 7x Z4 ┆
0x0fb700…0fd200 (4, 945) 24 c3 e2 53 30 00 53 30 38 24 68 12 a7 48 52 34 80 16 a1 00 00 34 80 12 2c 00 01 24 68 12 5c 08 ┆$ S0 S08$h HR4 4 , $h Ø ┆
0x0fd200…0fed00 (4, 946) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x100800…102300 (4, 948) 63 68 61 6e 67 65 73 20 61 66 74 65 72 20 62 61 63 6b 75 70 20 24 20 20 20 20 20 20 20 20 20 20 ┆changes after backup $ ┆
0x102300…103e00 (4, 949) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x107400…108f00 (4, 952) 51 28 1c a9 00 04 34 80 be 2d 81 82 d8 10 02 dc 28 22 d8 10 06 dc 28 26 2c 00 0c 5c 28 14 51 28 ┆Q( 4 - (" (&, Ø( Q(┆
0x108f00…10aa00 (4, 953) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x10aa00…10c500 (4, 954) 51 28 1a 24 68 10 5d 08 52 2d 28 10 2c 00 24 53 10 00 37 78 01 00 00 88 34 81 e8 34 00 00 00 00 ┆Q( $h Å R-( , $S 7x 4 4 ┆
0x10c500…10e000 (4, 955) 2d 23 22 2c 86 8c 37 68 0d 00 40 00 00 00 01 2d 20 d0 2c 86 7a 37 68 0d 00 40 00 00 00 01 2d 2e ┆-#", 7h @ - , z7h @ -.┆
0x10e000…10fb00 (4, 956) 00 04 76 00 04 8c 00 04 8c 00 04 92 00 04 92 00 04 b0 00 04 bc 00 04 bc 00 04 c2 00 04 cc 00 05 ┆ v ┆
0x10fb00…111600 (4, 957) 00 01 92 00 01 92 00 01 b6 00 01 c8 00 01 c8 00 01 f0 00 01 fa 00 01 fc 00 02 24 00 02 2e 00 02 ┆ $ . ┆
0x111600…113100 (4, 958) 00 0c 9c 00 0c a8 00 0c b8 00 0c b8 00 0c b8 00 0c c6 00 0c ce 00 0c d4 00 0c d4 00 0c d4 00 0c ┆ ┆
0x113100…114c00 (4, 959) 20 6e 6f 77 20 75 73 69 6e 67 20 6f 77 6e 20 6d 65 73 73 61 67 65 20 76 61 72 20 2a 29 20 0a 20 ┆ now using own message var *) ┆
0x114c00…116700 (4, 960) 62 75 66 2c 20 20 20 20 20 20 20 28 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 6e 65 78 74 20 63 68 ┆buf, (* Pointer to next ch┆
0x116700…118200 (4, 961) 20 20 20 20 28 2a 20 44 65 66 61 75 6c 74 20 72 65 67 69 73 74 65 72 20 6e 61 6d 65 20 2a 29 20 ┆ (* Default register name *) ┆
0x118200…119d00 (4, 962) 20 34 20 20 20 20 20 69 3a 3d 72 65 6c 65 61 73 65 70 72 6f 63 28 63 75 72 69 6e 6e 61 6d 65 2e ┆ 4 i:=releaseproc(curinname.┆
0x119d00…11b800 (4, 963) 20 0a 20 20 36 39 31 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 3a 20 69 73 6f 3b 20 0a 20 20 ┆ 691 ch: iso; ┆
0x11b800…11d300 (4, 964) 65 6e 20 0a 20 20 38 38 39 20 20 20 35 32 20 20 20 20 20 20 20 62 65 67 69 6e 20 0a 20 20 38 39 ┆en 889 52 begin 89┆
0x11d300…11ee00 (4, 965) 31 30 39 38 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 70 75 74 6e 75 6d 62 65 72 28 ┆1098 procedure putnumber(┆
0x11ee00…120900 (4, 966) 69 66 20 6d 61 72 6b 3d 28 6c 69 6e 65 6c 65 6e 67 74 68 2b 31 29 20 74 68 65 6e 20 0a 20 31 33 ┆if mark=(linelength+1) then 13┆
0x120900…122400 (4, 967) 6e 61 6d 65 5b 69 2b 33 5d 3a 3d 20 63 68 33 3b 20 0a 20 31 34 39 31 20 20 20 20 20 20 20 20 65 ┆nameÆi+3Å:= ch3; 1491 e┆
0x122400…123f00 (4, 968) 20 72 65 70 65 61 74 20 0a 20 31 36 37 34 20 20 31 36 30 20 20 20 20 20 20 20 77 68 69 6c 65 20 ┆ repeat 1674 160 while ┆
0x123f00…125a00 (4, 969) 20 20 20 31 33 20 20 20 20 20 66 6f 72 20 6a 3a 3d 66 69 72 73 74 77 69 6e 64 6f 77 20 74 6f 20 ┆ 13 for j:=firstwindow to ┆
0x125a00…127500 (4, 970) 74 74 61 69 6c 5b 39 5d 20 64 69 76 20 34 30 39 36 29 3c 3e 30 29 20 74 68 65 6e 20 0a 20 32 30 ┆ttailÆ9Å div 4096)<>0) then 20┆
0x127500…129000 (4, 971) 74 68 65 6e 20 0a 20 32 32 36 30 20 20 20 31 31 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 6c ┆then 2260 11 movel┆
0x129000…12ab00 (4, 972) 20 32 33 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 6c 65 6e 67 74 68 3a 3d 20 63 75 72 ┆ 23 linelength:= cur┆
0x12ab00…12c600 (4, 973) 20 20 20 20 20 20 20 20 20 6c 69 6e 65 64 6f 77 6e 3b 20 0a 20 32 36 31 33 20 20 20 35 31 20 20 ┆ linedown; 2613 51 ┆
0x12c600…12e100 (4, 974) 20 20 20 62 65 67 69 6e 20 0a 20 32 37 38 35 20 20 20 31 36 20 20 20 20 20 20 20 20 20 72 65 67 ┆ begin 2785 16 reg┆
0x12e100…12fc00 (4, 975) 65 6e 20 0a 20 32 39 36 37 20 20 20 36 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆en 2967 68 ┆
0x12fc00…131700 (4, 976) 65 67 6e 61 6d 65 2c 66 61 6c 73 65 29 3b 20 0a 20 33 31 32 32 20 20 20 31 36 20 20 20 20 20 20 ┆egname,false); 3122 16 ┆
0x131700…133200 (4, 977) 20 0a 20 33 33 30 38 20 20 20 34 31 20 20 20 20 20 20 20 70 75 74 61 6c 66 61 28 6f 75 74 6e 61 ┆ 3308 41 putalfa(outna┆
0x133200…134d00 (4, 978) 20 20 20 20 20 20 70 75 74 63 68 28 6e 6c 29 3b 20 0a 20 33 34 38 33 20 20 32 31 36 20 20 20 20 ┆ putch(nl); 3483 216 ┆
0x134d00…136800 (4, 979) 20 33 36 36 30 20 20 20 20 34 20 20 20 20 20 69 66 20 28 63 75 72 78 3e 66 69 6c 65 77 69 6e 64 ┆ 3660 4 if (curx>filewind┆
0x136800…138300 (4, 980) 32 34 20 20 20 20 20 20 20 20 20 20 20 63 6c 65 61 72 73 74 61 74 75 73 6c 69 6e 65 3b 20 0a 20 ┆24 clearstatusline; ┆
0x138300…139e00 (4, 981) 72 73 74 64 69 73 70 6c 61 79 3a 3d 20 66 69 72 73 74 77 69 6e 64 6f 77 3b 20 0a 20 34 30 32 39 ┆rstdisplay:= firstwindow; 4029┆
0x139e00…13b900 (4, 982) 20 70 75 74 63 75 72 73 6f 72 28 6c 61 73 74 69 6e 6c 69 6e 65 2d 32 37 2c 73 74 61 74 75 73 6c ┆ putcursor(lastinline-27,statusl┆
0x13b900…13d400 (4, 983) 20 20 20 20 20 69 6e 6e 61 6d 65 3a 3d 6e 75 6c 6c 61 6c 66 61 3b 20 0a 20 34 33 39 38 20 20 20 ┆ inname:=nullalfa; 4398 ┆
0x13d400…13ef00 (4, 984) 65 3a 3d 22 6c 6f 67 69 6e 23 22 20 0a 20 34 35 37 39 20 20 31 38 38 20 20 20 20 20 20 20 20 20 ┆e:="login#" 4579 188 ┆
0x13ef00…140a00 (4, 985) 75 72 65 20 6e 65 78 74 5f 70 61 67 65 3b 20 0a 20 34 37 37 30 20 20 20 20 20 20 20 20 76 61 72 ┆ure next_page; 4770 var┆
0x140a00…142500 (4, 986) 20 34 39 36 30 20 20 20 36 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 63 68 28 6e ┆ 4960 61 putch(n┆
0x142500…144000 (4, 987) 65 29 20 64 6f 20 0a 20 35 31 34 37 20 20 20 20 35 20 20 20 20 20 62 65 67 69 6e 20 0a 20 35 31 ┆e) do 5147 5 begin 51┆
0x144000…145b00 (4, 988) 20 69 66 20 28 28 61 6c 66 5b 31 5d 3d 27 69 27 29 20 6f 72 20 28 61 6c 66 3d 6e 75 6c 6c 61 6c ┆ if ((alfÆ1Å='i') or (alf=nullal┆
0x145b00…147600 (4, 989) 62 6c 65 20 6e 75 6d 62 65 72 3a 20 24 22 29 3b 20 0a 20 35 35 31 33 20 20 20 20 32 20 20 20 20 ┆ble number: $"); 5513 2 ┆
0x147600…149100 (4, 990) 20 20 20 20 39 20 20 20 20 20 20 20 6c 69 6e 65 75 70 3b 20 0a 20 35 37 30 38 20 20 20 31 30 20 ┆ 9 lineup; 5708 10 ┆
0x149100…14ac00 (4, 991) 27 6d 27 20 3a 20 62 65 67 69 6e 20 0a 20 35 38 39 32 20 20 20 32 33 20 20 20 20 20 20 20 20 20 ┆'m' : begin 5892 23 ┆
0x14ac00…14c700 (4, 992) 63 6f 6d 6d 61 6e 64 63 68 32 20 6f 66 20 0a 20 36 30 34 37 20 20 31 37 38 20 20 20 20 20 20 20 ┆commandch2 of 6047 178 ┆
0x14c700…14e200 (4, 993) 74 61 74 75 73 6c 69 6e 65 3b 20 0a 20 36 32 30 33 20 20 33 33 34 20 20 20 20 20 20 20 20 20 20 ┆tatusline; 6203 334 ┆
0x14e200…14fd00 (4, 994) 61 72 28 70 61 72 6d 66 69 6c 65 29 3b 20 0a 20 36 33 37 39 20 20 20 34 33 20 20 20 20 20 20 20 ┆ar(parmfile); 6379 43 ┆
0x14fd00…151800 (4, 995) 20 20 20 20 20 20 20 69 66 20 28 63 68 3d 64 65 6c 29 20 6f 72 20 28 63 68 3d 62 73 29 20 74 68 ┆ if (ch=del) or (ch=bs) th┆
0x151800…153300 (4, 996) 57 4e 20 20 20 20 20 20 34 30 33 38 20 20 20 31 33 38 20 20 20 20 20 34 31 30 20 20 20 20 20 20 ┆WN 4038 138 410 ┆
0x153300…154e00 (4, 997) 20 34 30 20 20 20 20 20 31 20 20 34 33 20 0a 20 20 34 20 20 20 20 20 32 20 20 32 34 20 0a 20 20 ┆ 40 1 43 4 2 24 ┆
0x154e00…156900 (4, 998) 6f 72 74 72 61 6e 27 20 65 78 70 65 63 74 65 64 0a 00 30 33 35 20 27 65 6e 64 27 20 6f 72 20 27 ┆ortran' expected 035 'end' or '┆
0x156900…158400 (4, 999) 50 30 10 37 ce 0a 02 00 01 2e 00 0a 37 ce 06 50 ce 0c b0 01 00 34 81 a6 2c 81 3e 37 cd f8 37 81 ┆P0 7 . 7 P 4 , >7 7 ┆
0x158400…159f00 (4, 1000) 34 8e d8 28 8f ec 2e 2f d0 1c 00 04 5c 8f b0 d8 8f c2 c8 8f bc dc 8f be 34 8e c8 50 8f aa 28 8f ┆4 ( ./ Ø 4 P ( ┆
0x159f00…15ba00 (4, 1001) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x164100…165c00 (4, 1007) 34 80 08 51 28 16 ad 00 08 34 80 58 51 28 18 a9 00 08 34 80 24 51 28 16 a9 00 08 34 80 1e 51 28 ┆4 Q( 4 XQ( 4 $Q( 4 Q(┆
0x165c00…167700 (4, 1008) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x167700…169200 (4, 1009) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 61 63 6b 75 ┆ Backu┆
0x169200…16ad00 (4, 1010) 5d 28 22 53 28 1e 51 81 f2 99 68 20 9b 68 20 85 10 01 24 68 22 11 00 00 17 00 02 24 68 22 5f 00 ┆Å("S( Q h h $h" $h"_ ┆
0x16ad00…16c800 (4, 1011) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x16c800…16e300 (4, 1012) a5 68 2c 34 80 10 51 28 16 51 18 4e 5d 28 1a 53 28 2c 24 68 16 5f 08 4e 5d 28 2c 2d 28 16 2c 00 ┆ h,4 Q( Q NÅ( S(,$h _ NÅ(,-( , ┆
0x16e300…16fe00 (4, 1013) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x16fe00…171900 (4, 1014) 2c 00 18 53 10 00 37 78 01 00 00 5a 51 28 0c 51 18 a8 5d 28 2a 53 28 2a 53 30 38 a3 00 00 34 81 ┆, S 7x ZQ( Q Å(*S(*S08 4 ┆
0x171900…173400 (4, 1015) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x4…]
0x17a000…17bb00 (4, 1020) 08 00 02 08 00 00 61 81 f6 91 00 01 90 00 03 5c 28 14 1d 28 12 51 10 00 24 68 14 99 0f f0 11 81 ┆ a Ø( ( Q $h ┆
[…truncated at 200 lines…]