|
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
Length: 28578456 (0x1b41298)
Types: Rc489k_TapeFile
Notes: RCSL-44-RT-900
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦this⟧
Dumping the first 0x40 bytes of each record 0x0000000…0000096 (1, 0) 64 75 6d 70 20 20 6d 74 6e 68 30 30 30 34 20 20 20 20 30 30 31 20 20 20 63 6f 6e 74 2e 20 32 39 30 34 38 32 2e 32 33 20 20 20 73 3d 33 20 20 20 6e 68 74 61 70 65 0a 00 00 00 00 00 0a 00 00 00 ┆dump mtnh0004 001 cont. 290482.23 s=3 nhtape ┆ 0x0000096…00009a2 (1, 1) 00 00 02 00 06 08 00 05 02 00 00 0c 3b 0a 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 65 37 2e 20 20 20 20 3b 20 20 20 20 74 65 72 6d 69 6e 61 74 65 20 75 70 64 61 74 65 3b 0a 3b 20 28 ┆ ; jl. w3 e7. ; terminate update; ; (┆ 0x00009a2…00012ae (1, 2) 00 00 02 00 06 08 00 05 02 00 00 0f 73 20 61 20 6e 75 6d 65 72 20 72 61 6e 67 69 6e 67 20 66 72 6f 6d 20 30 20 74 6f 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 73 20 28 ┆ s a numer ranging from 0 to the number of segments (┆ 0x00012ae…0001bba (1, 3) 00 00 02 00 06 08 00 05 02 00 00 12 65 67 6d 65 6e 74 3b 0a 0a 67 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 78 69 74 3a 0a 20 20 20 20 20 61 6c 20 20 77 31 20 ┆ egment; g0: ; exit: al w1 ┆ 0x0001bba…00024c6 (1, 4) 00 00 02 00 06 08 00 05 02 00 00 15 74 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 28 69 2e 65 2e 20 75 6e 64 65 66 69 6e 65 64 ┆ t := -1; ; (i.e. undefined┆ 0x00024c6…0002dd2 (1, 5) 00 00 02 00 06 08 00 05 02 00 00 18 77 33 20 20 65 31 30 2e 0a 3b 20 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 6e 6f 20 72 6f 6f 6d 0a 3b 20 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 6f ┆ w3 e10. ; jl. no room ; jl. o┆ 0x0002dd2…00036de (1, 6) 00 00 02 00 06 08 00 05 02 00 00 1b 20 20 3b 20 20 20 20 6d 6f 76 65 20 77 6f 72 6b 20 74 6f 20 63 75 72 20 65 6e 74 72 79 3b 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 28 68 31 2e 29 ┆ ; move work to cur entry; jl. (h1.)┆ 0x00036de…0003fea (1, 7) 00 00 02 00 06 08 00 05 02 00 00 1e 20 20 62 7a 20 20 77 33 20 20 78 32 2b 66 33 20 20 20 20 20 3b 20 20 20 20 20 20 6b 65 79 20 3a 3d 20 6b 65 79 2e 65 6e 74 72 79 3b 0a 20 20 20 20 20 61 73 ┆ bz w3 x2+f3 ; key := key.entry; as┆ 0x0003fea…00048f6 (1, 8) 00 00 02 00 06 08 00 05 02 00 00 21 31 37 29 3b 0a 20 20 20 20 20 6a 64 2e 20 77 33 20 20 20 65 32 39 2e 20 20 20 20 20 20 20 20 20 20 20 3b 0a 7a 2e 20 20 20 72 73 2e 20 77 33 20 20 20 64 31 ┆ !17); jd. w3 e29. ; z. rs. w3 d1┆ 0x00048f6…0005202 (1, 9) 00 00 02 00 06 08 00 05 02 00 00 24 20 20 20 20 67 31 2e 20 20 20 20 20 20 3b 20 20 20 20 20 70 72 6f 63 61 64 64 72 20 74 68 65 6e 0a 20 20 20 20 20 20 62 7a 20 20 77 31 20 20 78 32 2b 61 31 ┆ $ g1. ; procaddr then bz w1 x2+a1┆ 0x0005202…0005b0e (1, 10) 00 00 02 00 06 08 00 05 02 00 00 27 20 20 20 20 20 20 61 6c 6c 20 72 65 67 73 20 75 6e 64 65 66 0a 0a 62 2e 20 67 31 30 2c 20 68 31 30 20 77 2e 0a 0a 65 32 33 3a 20 20 20 20 20 20 20 20 20 20 ┆ ' all regs undef b. g10, h10 w. e23: ┆ 0x0005b0e…000641a (1, 11) 00 00 02 00 06 08 00 05 02 00 00 2a 20 20 20 28 70 61 72 74 69 61 6c 20 77 6f 72 64 20 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 73 68 69 66 74 20 38 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ * (partial word := partial word shift 8); ┆ 0x000641a…0006d26 (1, 12) 00 00 02 00 06 08 00 05 02 00 00 2d 63 20 69 73 20 72 65 73 65 72 76 65 72 20 74 68 65 6e 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 33 2b 61 35 32 20 20 20 20 3b 20 20 72 65 6d 6f 76 65 20 ┆ -c is reserver then rs w2 x3+a52 ; remove ┆ 0x0006d26…0007632 (1, 13) 00 00 02 00 06 08 00 05 02 00 00 30 65 61 72 20 62 75 66 73 3a 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 32 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 77 33 3a 3d 61 72 65 61 20 70 72 6f 63 ┆ 0ear bufs: al w0 2 ; w3:=area proc┆ 0x0007632…0007f3e (1, 14) 00 00 02 00 06 08 00 05 02 00 00 33 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 2e 20 20 20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 6d 6f 76 65 20 64 6f 75 62 6c 65 20 77 6f 72 64 73 3b 0a 0a 20 20 ┆ 3jl. g1. ; goto move double words; ┆ 0x0007f3e…000884a (1, 15) 00 00 02 00 06 08 00 05 02 00 00 36 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 20 20 ┆ 6 jl x3 ; return; dl. w1 ┆ 0x000884a…0009156 (1, 16) 00 00 02 00 06 08 00 05 02 00 00 39 65 74 75 72 6e 20 74 6f 20 66 6f 75 6e 64 2d 61 63 74 69 6f 6e 0a 68 31 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 6f 70 20 6e ┆ 9eturn to found-action h1: 0 ; top n┆ 0x0009156…0009a62 (1, 17) 00 00 02 00 06 08 00 05 02 00 00 3c 20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 78 74 20 63 68 61 69 6e 3b 0a 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 20 20 20 28 68 31 2e 29 20 20 20 3b 0a ┆ < ; goto next chain; dl. w1 (h1.) ; ┆ 0x0009a62…0009af8 (1, 18) 00 00 01 00 00 34 00 05 03 00 00 06 69 6e 64 62 79 64 65 6c 73 65 72 00 00 00 06 40 00 00 00 00 01 00 00 00 00 00 00 82 19 28 00 00 06 00 00 00 00 00 04 00 01 a8 60 00 00 00 00 02 40 00 00 00 ┆ 4 indbydelser @ ( ` @ ┆ 0x0009af8…000a404 (1, 19) 00 00 02 00 06 08 00 05 03 00 00 00 ff ff ff 00 09 98 00 01 f0 00 06 fe 00 00 aa 00 00 11 00 00 00 00 00 00 00 02 bc 00 02 bc 00 00 00 00 00 00 00 00 26 00 00 00 00 00 3c 00 00 00 00 00 00 00 ┆ & < ┆ 0x000a404…000ad10 (1, 20) 00 00 02 00 06 08 00 05 03 00 00 03 00 00 1e 00 00 00 20 20 20 20 20 3b 0a 0a 3b 20 69 6e 63 72 65 61 73 65 00 00 1e 00 00 00 63 6f 75 00 00 1e 00 00 00 74 68 69 73 20 74 69 6d 65 20 61 6c 00 ┆ ; ; increase cou this time al ┆ 0x000ad10…000ada6 (1, 21) 00 00 01 00 00 34 00 05 04 00 00 28 70 65 72 31 30 00 00 00 00 00 00 00 00 00 28 40 00 00 00 00 01 00 00 00 00 00 00 83 67 3e 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 (per10 (@ g> ` @ ┆ 0x000ada6…000b6b2 (1, 22) 00 00 02 00 06 08 00 05 04 00 00 00 63 20 20 20 70 72 6f 67 72 61 6d 20 31 30 20 61 63 72 7a 0a 63 0a 63 20 20 20 61 63 72 7a 67 66 20 76 61 6c 75 65 73 2e 20 6f 73 63 69 6c 6c 61 74 6f 72 20 ┆ c program 10 acrz c c acrzgf values. oscillator ┆ 0x000b6b2…000bfbe (1, 23) 00 00 02 00 06 08 00 05 04 00 00 03 42 4c 45 20 50 52 45 43 49 53 49 4f 4e 20 41 4e 44 20 56 41 4c 55 45 53 20 4f 46 20 43 45 52 54 41 49 4e 20 50 41 52 41 4d 45 54 45 52 53 20 4f 46 20 54 48 ┆ BLE PRECISION AND VALUES OF CERTAIN PARAMETERS OF TH┆ 0x000bfbe…000c8ca (1, 24) 00 00 02 00 06 08 00 05 04 00 00 06 20 42 4c 4f 43 4b 20 41 52 45 20 41 53 20 46 4f 4c 4c 4f 57 53 2e 20 20 20 2a 0a 43 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BLOCK ARE AS FOLLOWS. * C * ┆ 0x000c8ca…000d1d6 (1, 25) 00 00 02 00 06 08 00 05 04 00 00 09 20 20 2a 20 20 4e 57 46 20 20 20 20 20 20 20 3a 20 20 4e 55 4d 42 45 52 20 4f 46 20 4f 52 42 49 54 41 4c 53 20 49 4e 56 4f 4c 56 45 44 2e 20 20 20 20 20 20 ┆ * NWF : NUMBER OF ORBITALS INVOLVED. ┆ 0x000d1d6…000dae2 (1, 26) 00 00 02 00 06 08 00 05 04 00 00 0c 20 49 4e 49 54 49 41 4c 20 53 54 41 54 45 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 53 20 49 3d 31 2c 33 30 2a 0a 43 20 20 2a 20 20 57 54 46 28 33 30 29 20 ┆ INITIAL STATE CONFIGURATIONS I=1,30* C * WTF(30) ┆ 0x000dae2…000e3ee (1, 27) 00 00 02 00 06 08 00 05 04 00 00 0f 50 52 45 2d 20 20 2a 0a 43 20 20 2a 20 20 43 49 53 49 4f 4e 20 50 52 4f 47 52 41 4d 2e 20 20 48 4f 57 45 56 45 52 2c 20 4f 4e 20 43 4f 4d 50 55 54 45 52 53 ┆ PRE- * C * CISION PROGRAM. HOWEVER, ON COMPUTERS┆ 0x000e3ee…000ecfa (1, 28) 00 00 02 00 06 08 00 05 04 00 00 12 29 0a 43 0a 20 31 30 31 20 20 46 4f 52 4d 41 54 28 41 31 2c 33 49 34 2c 41 38 2c 32 49 34 2c 32 41 38 2c 35 49 34 29 0a 20 31 30 32 20 20 46 4f 52 4d 41 54 ┆ ) C 101 FORMAT(A1,3I4,A8,2I4,2A8,5I4) 102 FORMAT┆ 0x000ecfa…000f606 (1, 29) 00 00 02 00 06 08 00 05 04 00 00 15 2c 31 48 3e 2c 31 37 58 2c 31 48 3a 2c 32 58 2c 46 31 33 2e 38 2c 32 58 2c 46 31 33 2e 38 29 0a 20 32 31 37 20 20 46 4f 52 4d 41 54 28 31 48 2b 2c 37 39 58 ┆ ,1H>,17X,1H:,2X,F13.8,2X,F13.8) 217 FORMAT(1H+,79X┆ 0x000f606…000ff12 (1, 30) 00 00 02 00 06 08 00 05 04 00 00 18 45 41 44 2c 31 30 34 29 20 28 43 4f 4e 46 41 46 28 4e 43 29 2c 43 4f 4e 46 42 46 28 4e 43 29 2c 0a 20 20 20 20 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ EAD,104) (CONFAF(NC),CONFBF(NC), 1 ┆ 0x000ff12…001081e (1, 31) 00 00 02 00 06 08 00 05 04 00 00 1b 20 52 45 53 55 4c 54 53 20 4f 46 20 4f 53 43 49 4c 4c 41 54 4f 52 20 53 54 52 45 4e 47 54 48 53 0a 43 20 2a 2a 2a 20 46 4f 52 20 54 48 45 20 43 41 53 45 20 ┆ RESULTS OF OSCILLATOR STRENGTHS C *** FOR THE CASE ┆ 0x001081e…001112a (1, 32) 00 00 02 00 06 08 00 05 04 00 00 1e 47 52 41 44 28 4b 52 48 4f 2c 4b 53 49 47 29 0a 20 20 20 20 20 20 67 6f 74 6f 20 33 33 0a 20 33 32 20 20 20 74 6c 3d 64 2a 71 75 61 64 72 28 6b 72 68 6f 2c ┆ GRAD(KRHO,KSIG) goto 33 32 tl=d*quadr(krho,┆ 0x001112a…0011a36 (1, 33) 00 00 02 00 06 08 00 05 04 00 00 21 44 41 54 41 20 48 2c 48 31 2f 2e 30 36 32 35 65 30 2c 2e 34 31 36 36 36 36 36 36 36 36 36 36 36 36 36 37 65 2d 30 31 2f 0a 20 20 20 20 20 20 44 41 54 41 20 ┆ !DATA H,H1/.0625e0,.4166666666666667e-01/ DATA ┆ 0x0011a36…0012342 (1, 34) 00 00 02 00 06 08 00 05 04 00 00 24 20 50 28 49 49 2c 4b 2b 31 29 20 2d 20 44 32 2a 50 28 49 49 2c 4b 29 20 2b 20 50 28 49 49 2c 4b 2d 31 29 0a 20 20 20 20 20 20 46 33 20 3d 20 44 35 2a 28 50 ┆ $ P(II,K+1) - D2*P(II,K) + P(II,K-1) F3 = D5*(P┆ 0x0012342…001264e (1, 35) 00 00 02 00 02 08 00 05 04 00 00 27 2a 46 32 2a 47 31 2b 46 31 2a 47 32 29 2f 44 33 0a 20 20 20 20 20 31 20 20 2d 28 46 31 2a 47 34 2d 46 34 2a 47 31 2b 44 34 2a 28 46 32 2a 47 33 2d 46 33 2a ┆ '*F2*G1+F1*G2)/D3 1 -(F1*G4-F4*G1+D4*(F2*G3-F3*┆ 0x001264e…00126e4 (1, 36) 00 00 01 00 00 34 00 05 05 00 00 00 73 65 74 6d 74 00 00 00 00 00 00 00 80 00 04 75 74 69 6c 69 74 79 00 00 00 00 00 63 99 43 00 00 00 00 00 26 00 27 5c 00 09 30 60 00 00 00 00 02 40 00 00 00 ┆ 4 setmt utility c C & 'Ø 0` @ ┆ 0x00126e4…001277a (1, 37) 00 00 01 00 00 34 00 05 06 00 00 01 63 72 6f 73 73 70 31 00 00 00 00 00 00 00 01 40 00 00 00 00 01 00 00 00 00 00 00 73 00 79 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 crossp1 @ s y ` @ ┆ 0x001277a…0012a86 (1, 38) 00 00 02 00 02 08 00 05 06 00 00 00 6d 6f 64 65 20 6c 69 73 74 2e 79 65 73 0a 63 69 66 69 6c 3d 69 6e 64 65 6e 74 20 74 70 61 73 63 61 6c 20 0a 63 63 66 69 6c 3d 63 72 6f 73 73 20 63 69 66 69 ┆ mode list.yes cifil=indent tpascal ccfil=cross cifi┆ 0x0012a86…0012b1c (1, 39) 00 00 01 00 00 34 00 05 07 00 00 02 66 74 61 6c 00 00 00 00 00 00 00 00 00 00 02 40 00 00 00 00 01 00 00 00 00 00 00 80 01 f0 04 30 00 00 00 00 00 41 a6 00 20 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 ftal @ 0 A ` @ ┆ 0x0012b1c…0013128 (1, 40) 00 00 02 00 04 08 00 05 07 00 00 00 02 40 04 80 10 00 00 b0 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 ┆ @ ┆ 0x0013128…00131be (1, 41) 00 00 01 00 00 34 00 05 08 00 00 12 6b 6b 6d 6f 6e 72 65 74 30 00 00 00 00 00 12 40 00 00 00 00 01 00 00 00 00 00 00 81 eb 45 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 kkmonret0 @ E ` @ ┆ 0x00131be…0013aca (1, 42) 00 00 02 00 06 08 00 05 08 00 00 00 28 0a 6d 65 73 73 61 67 65 20 6d 6f 6e 63 68 61 6e 67 65 20 72 65 6c 65 61 73 65 20 37 2e 30 20 74 6f 20 37 2e 31 0a 63 6c 65 61 72 20 74 65 6d 70 20 6d 6f ┆ ( message monchange release 7.0 to 7.1 clear temp mo┆ 0x0013aca…00143d6 (1, 43) 00 00 02 00 06 08 00 05 08 00 00 03 6f 77 32 32 2f 2c 0a 69 2f 0a 20 20 20 20 20 6c 73 20 20 77 31 20 20 20 20 20 31 20 20 20 20 20 20 3b 20 68 61 6c 66 20 77 6f 72 64 20 61 64 64 72 20 63 68 ┆ ow22/, i/ ls w1 1 ; half word addr ch┆ 0x00143d6…0014ce2 (1, 44) 00 00 02 00 06 08 00 05 08 00 00 06 3a 20 6a 6c 2e 20 77 33 20 20 20 20 20 65 34 37 2e 20 20 20 3b 20 66 69 6e 64 20 62 65 73 74 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : jl. w3 e47. ; find best process ┆ 0x0014ce2…00155ee (1, 45) 00 00 02 00 06 08 00 05 08 00 00 09 63 65 64 75 72 65 20 6c 6f 6f 6b 75 70 20 62 73 20 63 6c 61 69 6d 73 28 64 65 76 69 63 65 2c 70 72 6f 63 65 73 73 29 3b 0a 3b 20 20 63 6f 6d 6d 65 6e 74 20 ┆ cedure lookup bs claims(device,process); ; comment ┆ 0x00155ee…0015efa (1, 46) 00 00 02 00 06 08 00 05 08 00 00 0c 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 69 30 2e 20 20 20 20 20 20 3b 20 20 69 30 3a 3d 31 3b 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 20 20 20 69 31 2e ┆ rs. w0 i0. ; i0:=1; rl. w3 i1.┆ 0x0015efa…0016806 (1, 47) 00 00 02 00 06 08 00 05 08 00 00 0f 20 20 20 20 67 32 2e 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 65 6e 64 20 6c 69 6e 65 20 65 6c 73 65 0a 20 20 20 20 20 73 68 20 20 77 32 20 20 20 20 20 31 30 ┆ g2. ; goto end line else sh w2 10┆ 0x0016806…001689c (1, 48) 00 00 01 00 00 34 00 05 09 00 00 0e 63 74 65 73 74 00 00 00 00 00 00 00 00 00 0e 40 00 00 00 00 01 00 00 00 00 00 00 75 cc 2a 00 00 00 00 00 00 00 a0 00 00 1c 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 ctest @ u * ` @ ┆ 0x001689c…00171a8 (1, 49) 00 00 02 00 06 08 00 05 09 00 00 00 00 16 c2 00 07 e4 00 07 ed 74 65 73 74 73 68 63 6c 6f 63 6b 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 75 cc 29 00 00 00 00 00 00 00 00 00 00 00 00 a1 ┆ testshclock disc1 u ) ┆ 0x00171a8…0017ab4 (1, 50) 00 00 02 00 06 08 00 05 09 00 00 03 20 74 68 65 6e 20 74 79 70 65 69 6e 3b 0a 20 20 20 20 20 20 66 69 72 73 74 5f 74 79 70 65 64 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 72 61 66 3a 3d 20 ┆ then typein; first_typed:= true; raf:= ┆ 0x0017ab4…00183c0 (1, 51) 00 00 02 00 06 08 00 05 09 00 00 06 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 61 64 64 72 3a 3d 20 74 61 62 6c 65 28 69 29 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 61 64 64 72 ┆ do begin addr:= table(i); move(addr┆ 0x00183c0…0018ccc (1, 52) 00 00 02 00 06 08 00 05 09 00 00 09 74 65 28 6f 75 74 2c 63 61 73 65 20 69 2b 31 20 6f 66 20 28 20 3c 3a 69 64 6c 65 3a 3e 2c 3c 3a 61 66 74 65 72 20 70 72 65 70 61 72 65 3a 3e 2c 3c 3a 64 75 ┆ te(out,case i+1 of ( <:idle:>,<:after prepare:>,<:du┆ 0x0018ccc…00192d8 (1, 53) 00 00 02 00 04 08 00 05 09 00 00 0c 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 73 70 2c 33 2c 73 74 72 69 6e 67 20 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 6a 29 29 29 3b 0a 20 ┆ write(out,sp,3,string name(increase(j))); ┆ 0x00192d8…001936e (1, 54) 00 00 01 00 00 34 00 05 0a 00 00 00 70 6f 6c 66 69 74 77 00 00 00 00 00 80 00 04 62 69 73 65 63 00 00 00 00 00 00 00 80 01 d0 10 d6 9a 35 a6 9a 03 91 96 00 40 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 polfitw bisec 5 @ ` @ ┆ 0x001936e…0019404 (1, 55) 00 00 01 00 00 34 00 05 0b 00 00 00 6d 6f 64 69 66 79 69 6e 74 00 00 00 80 00 04 77 61 69 74 6d 65 73 73 61 67 65 00 80 00 60 0d 9a 40 00 00 00 00 40 14 00 10 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 modifyint waitmessage ` @ @ ` @ ┆ 0x0019404…001949a (1, 56) 00 00 01 00 00 34 00 05 0c 00 00 05 63 68 73 74 69 66 66 70 00 00 00 00 00 00 05 40 00 00 00 00 01 00 00 00 00 00 00 80 01 7e 0d f7 df 34 00 00 00 41 3e 00 50 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 chstiffp @ ü 4 A> P ` @ ┆ 0x001949a…0019da6 (1, 57) 00 00 02 00 06 08 00 05 0c 00 00 00 01 60 0a 80 10 00 02 40 00 00 c0 00 06 30 00 00 b0 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 40 00 00 00 00 00 00 e0 13 01 81 c8 01 80 00 40 ┆ ` @ 0 @ @┆ 0x0019da6…001a3b2 (1, 58) 00 00 02 00 04 08 00 05 0c 00 00 03 01 40 12 80 10 00 00 d0 00 00 e0 00 00 b0 00 01 40 00 00 91 87 01 90 00 00 40 91 01 50 00 80 01 c4 51 eb 85 1e bf fa 66 66 66 66 60 00 00 00 00 80 00 00 00 ┆ @ @ @ P Q ffff` ┆ 0x001a3b2…001a448 (1, 59) 00 00 01 00 00 34 00 05 0d 00 00 17 6b 6b 6d 6f 6e 72 65 74 31 00 00 00 00 00 17 40 00 00 00 00 01 00 00 00 00 00 00 81 7c 60 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 kkmonret1 @ ø` ` @ ┆ 0x001a448…001ad54 (1, 60) 00 00 02 00 06 08 00 05 0d 00 00 00 28 0a 6d 65 73 73 61 67 65 20 6d 6f 6e 63 68 61 6e 67 65 20 72 65 6c 65 61 73 65 20 35 2e 33 20 74 6f 20 35 2e 37 0a 63 6c 65 61 72 20 74 65 6d 70 20 6d 6f ┆ ( message monchange release 5.3 to 5.7 clear temp mo┆ 0x001ad54…001b660 (1, 61) 00 00 02 00 06 08 00 05 0d 00 00 03 6b 6b 20 2d 20 73 6c 69 63 65 20 74 61 62 6c 65 20 65 78 74 65 6e 73 69 6f 6e 0a 2f 2c 6c 34 2c 69 2f 0a 7a 2e 0a 2f 2c 6c 2e 2f 65 33 3a 2f 2c 6c 2e 2f 6c ┆ kk - slice table extension /,l4,i/ z. /,l./e3:/,l./l┆ 0x001b660…001bf6c (1, 62) 00 00 02 00 06 08 00 05 0d 00 00 06 2d 31 20 20 20 20 20 3b 6b 6b 20 65 78 74 65 6e 74 69 6f 6e 20 6f 66 20 63 61 74 61 6c 6f 67 73 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 2d 31 20 ┆ -1 ;kk extention of catalogs al w0 -1 ┆ 0x001bf6c…001c878 (1, 63) 00 00 02 00 06 08 00 05 0d 00 00 09 2e 20 28 3a 61 34 30 30 3e 33 61 2e 31 3a 29 2d 31 20 20 20 20 20 3b 6b 6b 20 73 6c 69 63 65 20 74 61 62 6c 65 20 65 78 74 65 6e 74 69 6f 6e 0a 20 20 20 20 ┆ . (:a400>3a.1:)-1 ;kk slice table extention ┆ 0x001c878…001d184 (1, 64) 00 00 02 00 06 08 00 05 0d 00 00 0c 2f 2c 6c 2e 2f 6d 32 33 3a 2f 2c 6c 2e 2f 62 7a 2f 2c 69 2f 0a 63 2e 20 28 3a 61 34 30 30 3e 33 61 2e 31 3a 29 2d 31 20 20 20 20 20 3b 6b 6b 20 73 6c 69 63 ┆ /,l./m23:/,l./bz/,i/ c. (:a400>3a.1:)-1 ;kk slic┆ 0x001d184…001da90 (1, 65) 00 00 02 00 06 08 00 05 0d 00 00 0f 20 65 78 74 65 6e 73 69 6f 6e 0a 2f 2c 6c 34 2c 69 2f 0a 7a 2e 0a 2f 2c 6c 2e 2f 6d 33 38 3a 2f 2c 6c 2e 2f 6c 73 77 32 2f 2c 69 2f 0a 63 2e 20 28 3a 61 34 ┆ extension /,l4,i/ z. /,l./m38:/,l./lsw2/,i/ c. (:a4┆ 0x001da90…001e39c (1, 66) 00 00 02 00 06 08 00 05 0d 00 00 12 62 65 72 0a 20 20 20 20 20 61 63 20 20 77 33 20 20 78 33 20 20 20 20 20 20 20 20 3b 6b 6b 20 77 33 3a 3d 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 2d 6e 61 ┆ ber ac w3 x3 ;kk w3:=segment number-na┆ 0x001e39c…001e9a8 (1, 67) 00 00 02 00 04 08 00 05 0d 00 00 15 6b 6b 20 65 78 74 65 6e 73 69 6f 6e 20 6f 66 20 63 61 74 61 6c 6f 67 73 0a 20 20 20 20 20 72 6c 2e 20 77 30 20 20 20 20 20 64 34 34 2e 20 20 20 3b 6b 6b 0a ┆ kk extension of catalogs rl. w0 d44. ;kk ┆ 0x001e9a8…001ea3e (1, 68) 00 00 01 00 00 34 00 05 0e 00 00 03 74 73 75 62 6d 69 74 00 00 00 00 00 00 00 03 40 00 00 00 00 01 00 00 00 00 00 00 7e fe ff 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 tsubmit @ ü ` @ ┆ 0x001ea3e…001f34a (1, 69) 00 00 02 00 06 08 00 05 0e 00 00 00 73 75 62 6d 69 74 3d 73 65 74 20 34 30 0a 73 63 6f 70 65 20 75 73 65 72 20 73 75 62 6d 69 74 0a 3b 67 6c 6f 62 61 6c 20 73 75 62 6d 69 74 0a 73 75 62 6d 69 ┆ submit=set 40 scope user submit ;global submit submi┆ 0x001f34a…001f3e0 (1, 70) 00 00 01 00 00 34 00 05 0f 00 00 08 74 6d 6f 6e 70 72 00 00 00 00 00 00 00 00 08 40 00 00 00 00 01 00 00 00 00 00 00 7f 80 c9 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 tmonpr @ ` @ ┆ 0x001f3e0…001fcec (1, 71) 00 00 02 00 06 08 00 05 0f 00 00 00 3c 2a 6d 6f 6e 69 74 6f 72 20 70 72 6f 63 65 64 75 72 65 20 65 71 76 69 76 61 6c 65 6e 74 73 0a 31 39 38 31 2d 31 31 2d 31 38 0a 41 6e 64 65 72 73 20 4c 69 ┆ <*monitor procedure eqvivalents 1981-11-18 Anders Li┆ 0x001fcec…00205f8 (1, 72) 00 00 02 00 06 08 00 05 0f 00 00 03 3b 0a 20 20 72 65 6e 61 6d 65 65 6e 74 72 79 3a 3d 6d 6f 6e 77 30 3b 0a 65 6e 64 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 72 65 6d 6f ┆ ; renameentry:=monw0; end; integer procedure remo┆ 0x00205f8…0020c04 (1, 73) 00 00 02 00 04 08 00 05 0f 00 00 06 6f 63 65 73 73 3a 3d 6d 6f 6e 77 30 3b 0a 65 6e 64 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 6c 6f 6f 6b 75 70 5f 61 75 78 5f 65 6e 74 ┆ ocess:=monw0; end; integer procedure lookup_aux_ent┆ 0x0020c04…0020c9a (1, 74) 00 00 01 00 00 34 00 05 10 00 00 21 6b 6b 6d 6f 6e 72 65 74 32 00 00 00 00 00 21 40 00 00 00 00 01 00 00 00 00 00 00 83 8b c2 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 !kkmonret2 !@ ` @ ┆ 0x0020c9a…00215a6 (1, 75) 00 00 02 00 06 08 00 05 10 00 00 00 28 0a 6d 65 73 73 61 67 65 20 6d 6f 6e 63 68 61 6e 67 65 20 72 65 6c 65 61 73 65 20 37 2e 30 20 74 6f 20 37 2e 31 32 0a 63 6c 65 61 72 20 74 65 6d 70 20 6d ┆ ( message monchange release 7.0 to 7.12 clear temp m┆ 0x00215a6…0021eb2 (1, 76) 00 00 02 00 06 08 00 05 10 00 00 03 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 0a 61 34 38 20 3d 20 2d 34 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 3c 6c 6f 77 65 72 20 6c 69 6d 69 74 3e 0a 61 ┆ pseudo process a48 = -4 ; <lower limit> a┆ 0x0021eb2…00227be (1, 77) 00 00 02 00 06 08 00 05 10 00 00 06 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 72 65 74 75 72 6e 20 34 20 6e 6f 20 72 65 73 65 72 76 65 72 73 0a 20 20 20 20 20 ┆ ; return 4 no reservers ┆ 0x00227be…00230ca (1, 78) 00 00 02 00 06 08 00 05 10 00 00 09 62 7a 20 20 77 30 20 20 78 32 2b 61 34 30 32 20 20 20 20 20 3b 20 20 0a 20 20 20 20 20 20 20 20 20 6c 6f 20 20 77 30 20 20 78 33 2b 61 31 34 20 20 20 20 20 ┆ bz w0 x2+a402 ; lo w0 x3+a14 ┆ 0x00230ca…00239d6 (1, 79) 00 00 02 00 06 08 00 05 10 00 00 0c 65 28 65 6e 74 72 79 29 3a 3d 70 72 6f 63 3b 0a 20 20 20 20 20 20 68 73 20 20 77 30 20 20 78 33 2b 61 31 34 20 20 20 20 3b 20 20 20 20 69 64 2d 62 69 74 28 ┆ e(entry):=proc; hs w0 x3+a14 ; id-bit(┆ 0x00239d6…00242e2 (1, 80) 00 00 02 00 06 08 00 05 10 00 00 0f 20 78 31 2b 31 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 31 20 20 61 34 30 33 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e ┆ x1+1 ; se w1 a403 ; jl.┆ 0x00242e2…0024bee (1, 81) 00 00 02 00 06 08 00 05 10 00 00 12 77 69 6c 6c 20 65 78 63 6c 75 64 65 20 74 68 65 20 70 72 6f 63 65 73 73 20 61 64 64 72 65 73 65 64 20 62 79 20 69 6e 74 70 72 6f 63 20 61 73 20 75 73 65 72 ┆ will exclude the process addresed by intproc as user┆ 0x0024bee…00254fa (1, 82) 00 00 02 00 06 08 00 05 10 00 00 15 7a 20 20 77 31 20 20 78 31 2b 61 31 34 2b 31 20 20 20 20 3b 20 20 77 31 3a 3d 69 64 62 69 74 2e 69 6e 74 70 72 6f 63 3b 0a 20 20 20 20 20 20 73 6f 20 20 77 ┆ z w1 x1+a14+1 ; w1:=idbit.intproc; so w┆ 0x00254fa…0025e06 (1, 83) 00 00 02 00 06 08 00 05 10 00 00 18 30 20 20 20 20 20 20 20 20 20 3b 20 64 31 33 2b 32 20 3b 20 61 64 64 72 65 73 73 20 6f 66 20 61 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e ┆ 0 ; d13+2 ; address of a process description┆ 0x0025e06…0026712 (1, 84) 00 00 02 00 06 08 00 05 10 00 00 1b 20 20 20 20 20 3b 20 20 77 32 3a 3d 66 69 72 73 74 20 69 6e 74 70 72 6f 63 20 69 6e 20 6e 61 6d 65 74 61 62 6c 65 3b 0a 67 31 3a 20 20 72 6c 20 20 77 31 20 ┆ ; w2:=first intproc in nametable; g1: rl w1 ┆ 0x0026712…002701e (1, 85) 00 00 02 00 06 08 00 05 10 00 00 1e 20 20 77 32 20 20 20 20 20 32 2e 31 30 30 30 20 3b 20 69 66 20 6f 74 68 65 72 20 72 65 73 65 72 76 65 72 20 74 68 65 6e 0a 2f 2c 6c 2e 2f 6d 31 35 32 3a 2f ┆ w2 2.1000 ; if other reserver then /,l./m152:/┆ 0x002701e…00270b4 (1, 86) 00 00 01 00 00 34 00 05 11 00 00 6c 72 63 6c 6f 67 61 72 65 61 00 00 00 00 00 6c 40 00 00 00 00 01 00 00 00 00 00 00 83 7f 97 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 lrclogarea l@ ` @ ┆ 0x00270b4…00279c0 (1, 87) 00 00 02 00 06 08 00 05 11 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 1c ad c1 82 5d 00 ┆ Å ┆ 0x00279c0…00282cc (1, 88) 00 00 02 00 06 08 00 05 11 00 00 03 63 6b 20 77 69 74 68 69 6e 28 61 64 64 72 65 73 73 2c 20 74 6f 70 20 72 65 67 64 75 6d 70 29 3b 0a 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 61 32 ┆ ck within(address, top regdump); rl w3 x1+a2┆ 0x00282cc…0028bd8 (1, 89) 00 00 02 00 06 08 00 05 11 00 00 06 68 65 72 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 73 7a 20 20 77 33 20 20 2d 31 2d 36 34 20 20 20 20 20 3b 20 20 20 20 20 20 6e ┆ her internal process sz w3 -1-64 ; n┆ 0x0028bd8…00294e4 (1, 90) 00 00 02 00 06 08 00 05 11 00 00 09 3b 20 20 20 20 69 6e 73 65 72 74 2f 72 65 6d 6f 76 65 20 75 73 65 72 28 63 68 69 6c 64 2c 20 70 72 6f 63 29 3b 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 20 ┆ ; insert/remove user(child, proc); rl w1 ┆ 0x00294e4…0029df0 (1, 91) 00 00 02 00 06 08 00 05 11 00 00 0c 73 6e 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 31 30 2e 20 20 20 20 20 20 ┆ sn w0 0 ; begin jl. i10. ┆ 0x0029df0…002a6fc (1, 92) 00 00 02 00 06 08 00 05 11 00 00 0f 20 73 65 6e 64 65 72 28 62 75 66 29 3a 3d 20 70 73 65 75 64 6f 20 70 72 6f 63 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 31 2b 61 32 38 20 20 20 20 3b 20 ┆ sender(buf):= pseudo proc rl w1 x1+a28 ; ┆ 0x002a6fc…002b008 (1, 93) 00 00 02 00 06 08 00 05 11 00 00 12 63 65 69 76 65 72 28 62 75 66 29 3b 0a 20 20 20 20 20 73 7a 20 20 77 30 20 20 20 20 2d 38 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 61 6e 73 77 65 72 20 6e ┆ ceiver(buf); sz w0 -8 ; if answer n┆ 0x002b008…002b914 (1, 94) 00 00 02 00 06 08 00 05 11 00 00 15 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 3a 20 20 20 72 65 74 75 72 6e 3a 0a 3b 20 73 61 76 65 20 77 30 20 20 20 72 65 73 75 6c 74 20 20 75 6e 63 68 61 6e ┆ call: return: ; save w0 result unchan┆ 0x002b914…002c220 (1, 95) 00 00 02 00 06 08 00 05 11 00 00 18 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 31 34 2e 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 31 35 2e 20 20 20 3b 0a 0a 69 31 ┆ jl. i14. ; jl. i15. ; i1┆ 0x002c220…002cb2c (1, 96) 00 00 02 00 06 08 00 05 11 00 00 1b 63 20 74 68 65 6e 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 61 31 30 31 20 20 20 3b 20 20 20 20 20 20 6c 69 6e 6b 20 69 6e 74 65 72 6e 61 6c 28 73 ┆ c then sn w0 a101 ; link internal(s┆ 0x002cb2c…002d438 (1, 97) 00 00 02 00 06 08 00 05 11 00 00 1e 6e 20 20 77 33 20 20 78 32 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 69 66 20 6c 61 73 74 20 62 75 66 3d 62 75 66 20 74 68 65 6e 0a 20 20 20 20 20 72 6c ┆ n w3 x2 ; if last buf=buf then rl┆ 0x002d438…002dd44 (1, 98) 00 00 02 00 06 08 00 05 11 00 00 21 63 39 39 20 20 20 20 3b 20 20 20 20 74 61 6b 65 20 69 6e 74 65 72 72 75 70 74 20 6f 70 65 72 61 74 69 6f 6e 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 ┆ !c99 ; take interrupt operation; jl ┆ 0x002dd44…002e650 (1, 99) 00 00 02 00 06 08 00 05 11 00 00 24 64 20 6d 6f 6e 69 74 6f 72 20 6d 6f 64 65 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 31 2b 61 33 32 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 ┆ $d monitor mode rs w0 x1+a32 ; al w0 ┆ 0x002e650…002ef5c (1, 100) 00 00 02 00 06 08 00 05 11 00 00 27 76 65 20 77 32 29 20 61 72 65 61 3b 0a 65 35 36 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6e 6e 65 63 74 20 6d 61 69 6e 20 63 ┆ 've w2) area; e56: ; connect main c┆ 0x002ef5c…002f868 (1, 101) 00 00 02 00 06 08 00 05 11 00 00 2a 20 69 32 2e 20 20 20 20 20 20 20 3b 20 63 6c 65 61 72 2d 73 74 61 74 2d 65 6e 74 72 79 3a 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 20 64 31 31 31 20 20 20 ┆ * i2. ; clear-stat-entry: jl d111 ┆ 0x002f868…0030174 (1, 102) 00 00 02 00 06 08 00 05 11 00 00 2d 6c 2e 20 77 32 20 20 20 20 20 69 37 2e 20 20 20 20 3b 20 20 20 20 72 65 73 74 6f 72 65 20 28 70 72 6f 63 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 ┆ -l. w2 i7. ; restore (proc); al w1 x┆ 0x0030174…0030a80 (1, 103) 00 00 02 00 06 08 00 05 11 00 00 30 20 63 6c 61 69 6d 28 63 75 72 29 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 20 20 67 6f 74 ┆ 0 claim(cur)=0 then sn w0 0 ; got┆ 0x0030a80…003138c (1, 104) 00 00 02 00 06 08 00 05 11 00 00 33 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 31 20 20 20 20 20 20 3b 20 69 6e 63 72 65 61 73 65 20 62 75 66 66 65 72 63 6c 61 69 6d 2e 63 75 72 0a 20 20 20 ┆ 3 al w3 x3+1 ; increase bufferclaim.cur ┆ 0x003138c…0031c98 (1, 105) 00 00 02 00 06 08 00 05 11 00 00 36 20 20 6a 33 2e 20 20 20 20 20 20 20 3b 20 20 20 73 69 7a 65 28 63 75 72 29 2d 32 3a 3d 6c 61 73 74 28 63 75 72 29 2d 66 69 72 73 74 28 63 75 72 29 3b 0a 20 ┆ 6 j3. ; size(cur)-2:=last(cur)-first(cur); ┆ 0x0031c98…00325a4 (1, 106) 00 00 02 00 06 08 00 05 11 00 00 39 31 3a 3d 73 69 7a 65 3b 0a 0a 3b 20 6d 6f 76 65 2e 0a 3b 20 77 30 3a 20 73 69 7a 65 2c 20 77 31 3a 20 2c 20 77 32 3a 20 66 72 6f 6d 2d 61 64 64 72 2c 20 77 ┆ 91:=size; ; move. ; w0: size, w1: , w2: from-addr, w┆ 0x00325a4…0032eb0 (1, 107) 00 00 02 00 06 08 00 05 11 00 00 3c 6e 65 77 20 63 70 75 20 6d 61 73 6b 0a 20 20 20 20 20 73 65 20 20 77 32 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 69 66 20 6e 65 77 20 63 70 75 20 6d 61 ┆ <new cpu mask se w2 0 ; if new cpu ma┆ 0x0032eb0…00337bc (1, 108) 00 00 02 00 06 08 00 05 11 00 00 3f 3b 20 20 20 63 68 65 63 6b 20 6e 61 6d 65 28 73 61 76 65 64 20 77 33 29 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 2b 61 33 31 20 20 20 20 3b 20 ┆ ?; check name(saved w3); rl w2 x1+a31 ; ┆ 0x00337bc…00340c8 (1, 109) 00 00 02 00 06 08 00 05 11 00 00 42 20 20 20 3b 20 0a 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 69 32 2e 20 20 20 20 20 20 20 3b 20 73 61 76 65 20 61 64 64 72 65 73 73 20 62 61 73 65 20 6f 66 ┆ B ; rs. w0 i2. ; save address base of┆ 0x00340c8…00349d4 (1, 110) 00 00 02 00 06 08 00 05 11 00 00 45 20 20 20 20 72 65 73 75 6c 74 20 28 3d 20 33 2c 36 20 20 20 20 20 20 20 20 20 29 0a 3b 20 73 61 76 65 20 77 31 3a 20 20 64 69 73 70 6c 61 63 65 6d 65 6e 74 ┆ E result (= 3,6 ) ; save w1: displacement┆ 0x00349d4…00352e0 (1, 111) 00 00 02 00 06 08 00 05 11 00 00 48 20 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 31 2b 61 33 30 20 20 20 20 3b 20 6c 61 73 74 3a 3d 20 73 61 76 65 20 77 32 28 63 75 72 29 0a 20 20 20 20 20 20 ┆ H rl w0 x1+a30 ; last:= save w2(cur) ┆ 0x00352e0…0035bec (1, 112) 00 00 02 00 06 08 00 05 11 00 00 4b 20 63 68 61 6e 6e 65 6c 20 70 72 6f 67 72 61 6d 0a 3b 20 20 20 69 6c 6c 65 67 61 6c 20 61 64 64 72 65 73 73 20 63 6f 64 65 0a 3b 20 20 20 61 64 64 72 65 73 ┆ K channel program ; illegal address code ; addres┆ 0x0035bec…00364f8 (1, 113) 00 00 02 00 06 08 00 05 11 00 00 4e 20 63 6f 75 6e 74 20 6d 75 73 74 20 62 65 20 3e 3d 20 30 20 28 75 6e 6c 65 73 73 20 69 6e 20 73 65 6e 73 65 20 63 6f 6d 6d 61 6e 64 73 2c 20 77 68 65 72 65 ┆ N count must be >= 0 (unless in sense commands, where┆ 0x00364f8…0036e04 (1, 114) 00 00 02 00 06 08 00 05 11 00 00 51 6e 65 6c 20 70 72 6f 67 72 61 6d 2c 20 69 6e 20 64 65 76 69 63 65 20 64 65 73 63 72 69 70 74 69 6f 6e 3a 0a 3b 20 20 20 20 28 6d 61 74 63 68 65 73 20 74 68 ┆ Qnel program, in device description: ; (matches th┆ 0x0036e04…0037710 (1, 115) 00 00 02 00 06 08 00 05 11 00 00 54 0c 3c 6c 64 31 32 3e 50 72 6f 6f 66 20 66 6f 72 20 64 69 61 62 6c 6f 2c 20 31 39 38 32 2e 30 34 2e 32 34 2e 3c 6c 64 31 32 3e 3c 66 74 31 3e 0a 0a 0a 0a 0a ┆ T <ld12>Proof for diablo, 1982.04.24.<ld12><ft1> ┆ 0x0037710…003801c (1, 116) 00 00 02 00 06 08 00 05 11 00 00 57 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 20 20 20 20 20 20 4d 65 64 20 76 65 6e 6c 69 67 20 68 69 6c 73 65 6e 0a 0a ┆ W Med venlig hilsen ┆ 0x003801c…0038928 (1, 117) 00 00 02 00 06 08 00 05 11 00 00 5a 2c 0a 20 20 20 20 20 34 20 20 20 20 20 43 28 31 31 30 31 29 2c 43 28 31 31 30 32 29 2c 43 28 31 31 30 33 29 2c 43 28 31 31 30 34 29 2c 43 28 31 31 30 35 29 ┆ Z, 4 C(1101),C(1102),C(1103),C(1104),C(1105)┆ 0x0038928…0039234 (1, 118) 00 00 02 00 06 08 00 05 11 00 00 5d 32 30 34 29 2c 43 28 31 32 30 35 29 2c 0a 20 20 20 20 20 37 20 20 20 20 20 43 28 31 32 30 36 29 2c 43 28 31 32 30 37 29 2c 43 28 31 32 30 38 29 2c 43 28 31 ┆ Å204),C(1205), 7 C(1206),C(1207),C(1208),C(1┆ 0x0039234…0039b40 (1, 119) 00 00 02 00 06 08 00 05 11 00 00 60 29 20 20 20 3b 20 20 20 20 75 73 65 20 74 68 65 20 6c 61 73 74 20 31 31 20 62 69 74 73 20 6f 66 20 66 69 72 73 74 20 73 6c 69 63 65 0a 20 20 20 20 20 72 6c ┆ `) ; use the last 11 bits of first slice rl┆ 0x0039b40…003a44c (1, 120) 00 00 02 00 06 08 00 05 11 00 00 63 6f 63 20 61 64 64 72 3a 3d 20 65 6e 64 20 63 68 61 69 6e 3b 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 64 31 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ coc addr:= end chain; rs. w1 d15. ┆ 0x003a44c…003ad58 (1, 121) 00 00 02 00 06 08 00 05 11 00 00 66 77 31 20 20 78 31 2b 31 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 31 20 20 61 34 30 33 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ fw1 x1+1 ; se w1 a403 ; ┆ 0x003ad58…003b664 (1, 122) 00 00 02 00 06 08 00 05 11 00 00 69 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 65 73 74 20 66 6f 72 6d 61 74 3a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 64 31 32 2e 20 20 20 3b 20 ┆ i ; test format: rs. w3 d12. ; ┆ 0x003b664…003b6fa (1, 123) 00 00 01 00 00 34 00 05 12 00 00 00 73 65 74 75 70 64 61 74 65 69 00 00 80 00 04 67 65 74 72 65 63 69 00 00 00 00 00 80 10 16 04 80 00 00 00 00 00 40 00 00 70 02 60 00 00 00 00 02 40 00 00 00 ┆ 4 setupdatei getreci @ p ` @ ┆ 0x003b6fa…003b790 (1, 124) 00 00 01 00 00 34 00 05 13 00 00 05 65 70 6d 78 00 00 00 00 00 00 00 00 00 00 05 40 00 00 00 00 01 00 00 00 00 00 00 7d aa f4 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 epmx @ å ` @ ┆ 0x003b790…003c09c (1, 125) 00 00 02 00 06 08 00 05 13 00 00 00 63 6c 65 61 72 20 75 73 65 72 20 65 70 6d 0a 65 70 6d 3d 73 65 74 20 31 20 64 69 73 63 35 0a 73 63 6f 70 65 20 75 73 65 72 20 65 70 6d 0a 65 70 6d 3d 61 6c ┆ clear user epm epm=set 1 disc5 scope user epm epm=al┆ 0x003c09c…003c6a8 (1, 126) 00 00 02 00 04 08 00 05 13 00 00 03 3a 3d 73 70 28 6a 29 2a 28 31 2d 65 78 70 28 2d 63 2a 28 62 6d 69 6e 2b 75 2f 70 29 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 76 65 72 3d 34 20 74 68 65 ┆ :=sp(j)*(1-exp(-c*(bmin+u/p))); if ver=4 the┆ 0x003c6a8…003c73e (1, 127) 00 00 01 00 00 34 00 05 14 00 00 01 73 65 6c 65 63 74 70 65 6e 00 00 00 00 00 01 40 00 00 00 00 01 00 00 00 00 00 00 80 01 84 04 d0 00 00 00 00 00 41 4a 00 10 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 selectpen @ AJ ` @ ┆ 0x003c73e…003ca4a (1, 128) 00 00 02 00 02 08 00 05 14 00 00 00 07 e0 14 01 a0 00 00 d0 00 06 00 00 00 f0 00 01 20 00 00 41 e7 00 80 00 00 30 00 00 20 00 00 90 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 ┆ A 0 ┆ 0x003ca4a…003cae0 (1, 129) 00 00 01 00 00 34 00 05 15 00 00 0f 72 61 36 39 31 00 00 00 00 00 00 00 00 00 0f 40 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 18 eb 00 1a 94 60 00 00 00 00 02 40 00 00 00 ┆ 4 ra691 @ ` @ ┆ 0x003cae0…003d3ec (1, 130) 00 00 02 00 06 08 00 05 15 00 00 00 63 65 6c 6c 75 6c 6f 73 65 20 30 2e 35 00 00 00 00 00 24 0f fe 24 00 05 2f 00 03 34 8f c6 5d 2f f2 2f 00 01 34 8f c0 d8 8f 80 51 2f fa b5 00 04 14 8f 78 5f ┆ cellulose 0.5 $ $ / 4 Å/ / 4 Q/ x_┆ 0x003d3ec…003dcf8 (1, 131) 00 00 02 00 06 08 00 05 15 00 00 03 00 00 ff 00 04 17 00 04 2e 00 04 1c 00 04 1d 00 04 11 00 04 2e 00 04 10 00 04 06 00 03 f5 00 04 05 00 04 14 00 04 1a 00 04 11 00 03 eb 00 03 d7 00 04 1e 00 ┆ . . ┆ 0x003dcf8…003e604 (1, 132) 00 00 02 00 06 08 00 05 15 00 00 06 00 00 ff 00 03 cf 00 03 8b 00 03 ca 00 03 dc 00 03 cc 00 03 cd 00 03 d3 00 03 a7 00 03 ab 00 03 af 00 03 be 00 03 cd 00 03 ce 00 03 c3 00 03 d9 00 03 bd 00 ┆ ┆ 0x003e604…003ef10 (1, 133) 00 00 02 00 06 08 00 05 15 00 00 09 00 00 ff 00 03 e4 00 04 09 00 04 08 00 03 df 00 03 f9 00 03 ce 00 03 da 00 03 c5 00 03 bf 00 03 91 00 03 da 00 03 f9 00 03 f1 00 03 b3 00 03 d8 00 04 31 00 ┆ 1 ┆ 0x003ef10…003f81c (1, 134) 00 00 02 00 06 08 00 05 15 00 00 0c 00 00 ff 00 04 03 00 04 65 00 04 64 00 04 52 00 04 47 00 04 5c 00 04 38 00 04 40 00 04 42 00 04 52 00 04 4f 00 04 08 00 04 6c 00 04 53 00 04 3d 00 04 24 00 ┆ e d R G Ø 8 @ B R O l S = $ ┆ 0x003f81c…003f8b2 (1, 135) 00 00 01 00 00 34 00 05 16 00 00 27 6b 6b 6d 6f 6e 72 65 74 33 00 00 00 00 00 27 40 00 00 00 00 01 00 00 00 00 00 00 83 79 d2 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 'kkmonret3 '@ y ` @ ┆ 0x003f8b2…00401be (1, 136) 00 00 02 00 06 08 00 05 16 00 00 00 3b 20 20 62 73 20 64 69 73 63 33 20 32 30 30 30 20 34 30 0a 28 0a 6d 65 73 73 61 67 65 20 6d 6f 6e 63 68 61 6e 67 65 20 72 65 6c 65 61 73 65 20 37 2e 30 20 ┆ ; bs disc3 2000 40 ( message monchange release 7.0 ┆ 0x00401be…0040aca (1, 137) 00 00 02 00 06 08 00 05 16 00 00 03 2a 0a 6c 2e 2f 2c 66 32 30 2c 65 2f 2c 72 2f 66 32 30 2f 66 32 33 2f 2c 72 2f 65 36 32 2f 65 36 33 2f 2c 0a 6c 2e 2f 62 37 36 3a 2f 2c 6c 31 2c 69 2f 0a 62 ┆ * l./,f20,e/,r/f20/f23/,r/e62/e63/, l./b76:/,l1,i/ b┆ 0x0040aca…00413d6 (1, 138) 00 00 02 00 06 08 00 05 16 00 00 06 63 61 6c 6c 69 6e 67 20 70 72 6f 63 3a 3d 6d 61 73 74 65 72 20 70 72 6f 63 0a 2f 2c 6c 2e 2f 64 31 36 3a 2f 2c 6c 2e 2f 78 31 2b 61 32 35 30 2f 2c 6c 31 2c ┆ calling proc:=master proc /,l./d16:/,l./x1+a250/,l1,┆ 0x00413d6…0041ce2 (1, 139) 00 00 02 00 06 08 00 05 16 00 00 09 20 30 20 20 20 20 20 20 3b 20 20 69 66 20 6e 6f 74 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 ┆ 0 ; if not internal proc then jl. ┆ 0x0041ce2…00425ee (1, 140) 00 00 02 00 06 08 00 05 16 00 00 0c 72 6f 72 20 70 72 6f 63 65 73 73 0a 2f 2c 6c 2e 2f 65 33 35 3a 2f 2c 6c 2e 2f 6a 6c 72 33 2f 2c 6c 31 2c 69 2f 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 ┆ ror process /,l./e35:/,l./jlr3/,l1,i/ rl w3 x┆ 0x00425ee…0042efa (1, 141) 00 00 02 00 06 08 00 05 16 00 00 0f 6f 76 65 20 62 75 66 66 28 73 65 6e 64 65 72 2c 72 65 63 65 69 76 65 72 29 3b 0a 3b 20 73 61 76 65 64 20 77 30 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a ┆ ove buff(sender,receiver); ; saved w0 return:┆ 0x0042efa…0043806 (1, 142) 00 00 02 00 06 08 00 05 16 00 00 12 20 68 31 2e 20 20 20 20 3b 0a 20 20 20 20 20 64 73 2e 20 77 33 20 20 20 20 20 68 33 2e 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 20 20 30 ┆ h1. ; ds. w3 h3. ; al w1 0┆ 0x0043806…0044112 (1, 143) 00 00 02 00 06 08 00 05 16 00 00 15 77 32 20 20 20 20 20 62 35 37 20 20 20 20 3b 20 20 6e 6f 20 70 72 6f 63 20 74 6f 20 72 65 73 74 6f 72 65 20 62 65 66 6f 72 65 20 61 20 6e 65 77 20 69 6e 74 ┆ w2 b57 ; no proc to restore before a new int┆ 0x0044112…0044a1e (1, 144) 00 00 02 00 06 08 00 05 16 00 00 18 20 20 20 20 64 35 20 20 20 20 3b 20 20 65 6c 73 65 20 72 65 6d 6f 76 65 20 70 72 6f 63 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 20 20 20 20 62 32 20 20 20 ┆ d5 ; else remove proc rl w1 b2 ┆ 0x0044a1e…004532a (1, 145) 00 00 02 00 06 08 00 05 16 00 00 1b 72 0a 20 20 20 20 20 31 3c 32 33 2b 30 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 31 20 20 73 74 61 74 75 73 20 20 69 6e 74 65 72 72 75 70 74 20 6c 69 6d ┆ r 1<23+0 ; -1 status interrupt lim┆ 0x004532a…0045c36 (1, 146) 00 00 02 00 06 08 00 05 16 00 00 1e 20 78 31 2b 61 31 38 36 20 20 20 3b 23 31 20 20 63 6c 65 61 72 20 63 70 75 20 75 73 65 72 20 62 69 74 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 20 20 20 2d ┆ x1+a186 ;#1 clear cpu user bit am -┆ 0x0045c36…0046542 (1, 147) 00 00 02 00 06 08 00 05 16 00 00 21 31 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 20 20 20 31 30 30 20 20 20 20 3b 20 77 31 3a 3d 74 65 73 74 6d 61 73 6b 0a 20 20 20 20 20 73 6f 20 20 77 31 20 ┆ !1 rl w1 100 ; w1:=testmask so w1 ┆ 0x0046542…0046e4e (1, 148) 00 00 02 00 06 08 00 05 16 00 00 24 20 70 72 6f 63 65 73 73 28 63 70 75 31 29 0a 20 20 20 20 20 62 32 2c 20 66 35 2b 61 31 36 20 20 20 20 20 20 20 20 3b 20 74 69 6d 65 72 20 71 20 6c 69 6e 6b ┆ $ process(cpu1) b2, f5+a16 ; timer q link┆ 0x0046e4e…0046ee4 (1, 149) 00 00 01 00 00 34 00 05 17 00 00 07 76 6b 6f 32 00 00 00 00 00 00 00 00 00 00 07 40 00 00 00 00 01 00 00 00 00 00 00 78 36 3b 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 vko2 @ x6; ` @ ┆ 0x0046ee4…00477f0 (1, 150) 00 00 02 00 06 08 00 05 17 00 00 00 6d 6f 64 65 20 6c 69 73 74 2e 79 65 73 0a 76 6b 6f 33 3d 73 65 74 20 32 30 30 20 64 69 73 63 33 0a 73 63 6f 70 65 20 75 73 65 72 20 76 6b 6f 33 0a 61 66 73 ┆ mode list.yes vko3=set 200 disc3 scope user vko3 afs┆ 0x00477f0…00480fc (1, 151) 00 00 02 00 06 08 00 05 17 00 00 03 73 65 72 6e 65 2e 0a 46 6f 72 20 61 74 20 6b 75 6e 6e 65 20 70 72 6f 67 72 61 6d 6d 65 72 65 2c 20 68 76 6f 72 64 61 6e 20 64 65 20 65 6e 6b 65 6c 74 65 20 ┆ serne. For at kunne programmere, hvordan de enkelte ┆ 0x00480fc…0048408 (1, 152) 00 00 02 00 02 08 00 05 17 00 00 06 61 6e 74 61 6c 20 6d 69 6c 6c 69 73 65 6b 75 6e 64 65 72 2e 20 4e 7d 72 20 64 65 74 74 65 20 65 72 20 73 6b 65 74 2c 20 72 65 73 65 72 76 65 72 65 73 20 6b ┆ antal millisekunder. Når dette er sket, reserveres k┆ 0x0048408…004849e (1, 153) 00 00 01 00 00 34 00 05 18 00 00 01 73 61 76 65 70 74 6f 61 00 00 00 00 00 00 01 40 00 00 00 00 01 00 00 00 00 00 00 7d 9d e0 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 saveptoa @ å ` @ ┆ 0x004849e…00487aa (1, 154) 00 00 02 00 02 08 00 05 18 00 00 00 20 20 63 3d 6d 65 73 73 61 67 65 20 73 74 61 72 74 20 61 74 20 66 69 6c 65 20 30 20 20 20 20 20 20 20 20 0a 20 20 63 3d 6d 65 73 73 61 67 65 20 20 31 36 30 ┆ c=message start at file 0 c=message 160┆ 0x00487aa…0048840 (1, 155) 00 00 01 00 00 34 00 05 19 00 00 00 6d 69 6e 75 74 65 6c 69 6d 00 00 00 80 00 04 70 6c 6f 74 67 6c 6f 62 61 6c 73 00 00 00 c1 24 00 00 00 00 00 00 40 00 00 10 dc 60 00 00 00 00 02 40 00 00 00 ┆ 4 minutelim plotglobals $ @ ` @ ┆ 0x0048840…00488d6 (1, 156) 00 00 01 00 00 34 00 05 1a 00 00 00 6d 69 6e 75 74 65 6c 69 6d 00 00 00 80 00 04 70 6c 6f 74 67 6c 6f 62 00 00 00 00 00 00 c3 24 00 00 00 00 00 00 40 00 00 10 e2 60 00 00 00 00 02 40 00 00 00 ┆ 4 minutelim plotglob $ @ ` @ ┆ 0x00488d6…004896c (1, 157) 00 00 01 00 00 34 00 05 1b 00 00 04 6c 69 6c 70 72 6f 67 31 00 00 00 00 00 00 04 40 00 00 00 00 01 00 00 00 00 00 00 78 b0 2e 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 lilprog1 @ x . ` @ ┆ 0x004896c…0049278 (1, 158) 00 00 02 00 06 08 00 05 1b 00 00 00 70 72 6f 63 65 64 75 72 65 20 6e 65 78 74 70 61 72 74 3b 0a 62 65 67 69 6e 0a 63 6f 6d 6d 65 6e 74 20 74 72 61 6e 73 6c 61 74 65 20 66 72 6f 6d 20 61 6c 67 ┆ procedure nextpart; begin comment translate from alg┆ 0x0049278…0049584 (1, 159) 00 00 02 00 02 08 00 05 1b 00 00 03 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 37 38 29 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 20 69 31 3a 3d 20 ┆ begin outchar(out,78); for i1:= ┆ 0x0049584…004961a (1, 160) 00 00 01 00 00 34 00 05 1c 00 00 07 6b 6b 6d 6f 6e 72 65 74 34 00 00 00 00 00 07 40 00 00 00 00 01 00 00 00 00 00 00 83 5f 48 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 kkmonret4 @ _H ` @ ┆ 0x004961a…0049f26 (1, 161) 00 00 02 00 06 08 00 05 1c 00 00 00 28 0a 6d 65 73 73 61 67 65 20 6d 6f 6e 63 68 61 6e 67 65 20 72 65 6c 65 61 73 65 20 37 2e 30 20 74 6f 20 37 2e 31 34 0a 63 6c 65 61 72 20 74 65 6d 70 20 6d ┆ ( message monchange release 7.0 to 7.14 clear temp m┆ 0x0049f26…004a832 (1, 162) 00 00 02 00 06 08 00 05 1c 00 00 03 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 0a 63 2e 2d 31 0a 2f 2c 6c 2e 2f 6d 36 3a 2f 2c 6c 32 2c 69 2f 0a 7a 2e 2c 6d 2e 20 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b ┆ --------- c.-1 /,l./m6:/,l2,i/ z.,m. ++++++++++++++┆ 0x004a832…004ab3e (1, 163) 00 00 02 00 02 08 00 05 1c 00 00 06 20 2c 72 37 2e 20 2c 72 37 2e 20 0a 20 20 20 72 37 2e 20 2c 72 37 2e 20 2c 72 37 2e 20 2c 72 37 2e 20 2c 72 37 2e 20 2c 72 37 2e 20 2c 72 37 2e 20 2c 72 37 ┆ ,r7. ,r7. r7. ,r7. ,r7. ,r7. ,r7. ,r7. ,r7. ,r7┆ 0x004ab3e…004abd4 (1, 164) 00 00 01 00 00 34 00 05 1d 00 00 03 66 6f 72 74 72 61 6e 66 6c 79 74 00 00 00 03 40 00 00 00 00 01 00 00 00 00 00 00 80 c9 e3 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 fortranflyt @ ` @ ┆ 0x004abd4…004b4e0 (1, 165) 00 00 02 00 06 08 00 05 1d 00 00 00 0c 0a 0a 0a 0a 48 2e 20 43 2e 20 5c 72 73 74 65 64 20 49 6e 73 74 69 74 75 74 65 0a 43 6f 6d 70 75 74 65 72 20 44 65 70 61 72 74 6d 65 6e 74 0a 55 6e 69 76 ┆ H. C. Ørsted Institute Computer Department Univ┆ 0x004b4e0…004b576 (1, 166) 00 00 01 00 00 34 00 05 1e 00 00 38 6d 74 72 65 61 64 00 00 00 00 00 00 00 00 38 40 00 00 00 00 01 00 00 00 00 00 00 7c 29 21 80 b0 5e 00 00 00 00 2a 60 00 0b ee 60 00 00 00 00 02 40 00 00 00 ┆ 4 8mtread 8@ ø)! ^ *` ` @ ┆ 0x004b576…004be82 (1, 167) 00 00 02 00 06 08 00 05 1e 00 00 00 00 00 04 00 06 cc c0 00 0e 00 00 03 53 8f fa 5c 30 00 de 30 04 51 8f f4 53 1f fe 23 1f 9a 13 1f 38 5f 17 b6 db 1f fe 23 17 b6 50 30 00 5c 17 b4 20 1f 78 98 ┆ S Ø0 0 Q S # 8_ # P0 Ø x ┆ 0x004be82…004c78e (1, 168) 00 00 02 00 06 08 00 05 1e 00 00 03 2d 10 02 2e 20 02 34 8f ce dc 8f b8 2c 00 01 34 80 06 dc 8f b2 2c 00 00 2e 2f ff 9f 0f e8 63 8f ac 9f 00 01 1f 8b 94 53 30 00 34 8f c8 00 00 00 51 8b 68 53 ┆ - . 4 , 4 , ./ c S0 4 Q hS┆ 0x004c78e…004d09a (1, 169) 00 00 02 00 06 08 00 05 1e 00 00 06 00 00 22 00 06 20 c0 00 12 00 06 3d 00 0c 0c 00 0d f6 00 0e 5e 00 06 06 00 06 3e 00 0e 16 00 0c 0c 00 0d 78 00 0e 2a 00 06 50 00 0b 1e 00 0e 4e 00 06 54 00 ┆ " = ^ > x * P N T ┆ 0x004d09a…004d9a6 (1, 170) 00 00 02 00 06 08 00 05 1e 00 00 09 00 00 10 c0 00 14 c0 00 0c 00 0e 2a 00 06 3e 00 06 50 00 06 3d 00 06 b2 00 0e a6 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 ┆ * > P = ┆ 0x004d9a6…004e2b2 (1, 171) 00 00 02 00 06 08 00 05 1e 00 00 0c 01 40 12 c0 00 1a 00 0e 52 00 0e 4e c0 00 30 00 0c 0c 00 06 c4 00 0e 2a 00 0d 40 00 06 3e 00 c0 00 00 00 3a 00 00 23 00 00 40 00 00 27 00 00 3d 00 00 22 34 ┆ @ R N 0 * @ > : # @ ' = "4┆ 0x004e2b2…004ebbe (1, 172) 00 00 02 00 06 08 00 05 1e 00 00 0f 02 20 1c c0 00 20 00 0e 4e 00 0b 1e 00 06 c4 00 0c 0c 00 0e 2a 00 0d 40 00 06 3e c0 00 2c c0 00 36 00 0e 26 00 01 9a 00 06 3d c0 00 30 00 f0 00 00 f0 ca 00 ┆ N * @ > , 6 & = 0 ┆ 0x004ebbe…004f4ca (1, 173) 00 00 02 00 06 08 00 05 1e 00 00 12 02 a0 20 c0 00 26 c0 00 4a 00 0c 0c c0 00 48 c0 00 36 00 0e 26 00 01 9a c0 00 46 c0 00 42 00 0e 2a 00 0e 4e 00 06 3d c0 00 2c 00 06 3e c0 00 40 c0 00 2a 01 ┆ & J H 6 & F B * N = , > @ * ┆ 0x004f4ca…004fdd6 (1, 174) 00 00 02 00 06 08 00 05 1e 00 00 15 07 e0 16 00 0e 5e 00 0e 26 00 06 c4 00 0d 40 00 06 3e 00 0b 1e 00 0e 4e 00 06 3d c0 00 52 00 0c 0c 00 0c 26 01 50 00 01 50 00 01 50 00 01 50 00 01 50 00 01 ┆ ^ & @ > N = R & P P P P P ┆ 0x004fdd6…00506e2 (1, 175) 00 00 02 00 06 08 00 05 1e 00 00 18 00 c0 0c 00 06 3e 00 06 50 00 0b 1e 00 0e 26 00 0e 2a 00 0e 58 00 00 00 00 00 00 04 bd f4 02 bf 20 52 cf ec df cf ec d9 20 08 b0 00 10 37 cf e8 df cf e4 51 ┆ > P & * X R 7 Q┆ 0x00506e2…0050fee (1, 176) 00 00 02 00 06 08 00 05 1e 00 00 1b 01 c0 1c 00 06 50 00 0c 0c 00 0b 1e 00 06 3e 00 06 44 00 0e 5e 00 0e 26 00 06 64 c0 00 38 c0 00 3a c0 00 34 00 0f 23 00 0f 27 c0 00 0c 24 00 40 2c 00 00 52 ┆ P > D ^ & d 8 : 4 # ' $ @, R┆ 0x0050fee…00518fa (1, 177) 00 00 02 00 06 08 00 05 1e 00 00 1e 01 e0 1c 00 0c 0c 00 0b 1e 00 0e 2a 00 06 3e 00 0e 4e 00 0e 5e 00 0e 58 00 06 50 00 0f 26 00 0f 23 00 0f 24 00 0f 20 00 0f 48 c0 00 34 00 90 3e 00 00 00 00 ┆ * > N ^ X P & # $ H 4 > ┆ 0x00518fa…0052206 (1, 178) 00 00 02 00 06 08 00 05 1e 00 00 21 01 80 18 00 06 3e 00 06 50 00 0b 1e 00 06 44 c0 00 14 00 0e 2a 00 0e 5e 00 0e 58 00 06 42 00 0e 5a c0 00 46 c0 00 44 00 00 00 00 00 00 0c 36 a0 01 e9 96 00 ┆ ! > P D * ^ X B Z F D 6 ┆ 0x0052206…0052b12 (1, 179) 00 00 02 00 06 08 00 05 1e 00 00 24 01 80 18 00 0b 1e 00 0e 26 00 0e 2a 00 06 3d 00 06 3e 00 06 44 00 0e 58 00 06 50 00 06 00 00 0f 6d 00 10 0f 00 10 11 00 00 02 00 00 00 69 6e 73 74 61 63 6b ┆ $ & * = > D X P m instack┆ 0x0052b12…005341e (1, 180) 00 00 02 00 06 08 00 05 1e 00 00 27 01 20 0a 00 06 3e 00 06 50 00 0b 1e 00 0e 26 00 0e 5e 00 06 b2 00 90 3c 00 90 3e 00 90 3a 00 00 00 00 00 00 0c 36 a0 01 e9 8c 52 cf e6 df cf e6 51 20 08 2c ┆ ' > P & ^ < > : 6 R Q ,┆ 0x005341e…0053d2a (1, 181) 00 00 02 00 06 08 00 05 1e 00 00 2a 02 00 1c c0 00 56 00 06 3d c0 00 36 00 0e 2a 00 0e 4e c0 00 2c 00 0c 0c 00 01 9a 00 06 3e 00 0e 26 00 0e 52 00 0f 77 c0 00 52 00 0f 8e 02 a0 bc 02 a1 b2 00 ┆ * V = 6 * N , > & R w R ┆ 0x0053d2a…0054636 (1, 182) 00 00 02 00 06 08 00 05 1e 00 00 2d 02 c0 20 c0 00 5c c0 00 60 c0 00 36 00 0e 26 00 01 9a 00 0c 0c 00 0f 7f 00 0e 4e c0 00 52 00 0f 7b 00 0e 28 c0 00 6c 00 0f 81 00 0e 2a 00 06 3d c0 00 2c 02 ┆ - Ø ` 6 & N R æ ( l * = , ┆ 0x0054636…0054f42 (1, 183) 00 00 02 00 06 08 00 05 1e 00 00 30 02 60 1c 00 0e 5e 00 0e 26 00 06 c4 00 0d 40 00 06 3e c0 00 36 00 0e 4e 00 01 9a 00 0c 0c 00 0f 7f c0 00 52 00 0e 2a 00 06 3d c0 00 2c 03 00 00 03 00 00 03 ┆ 0 ` ^ & @ > 6 N R * = , ┆ 0x0054f42…005584e (1, 184) 00 00 02 00 06 08 00 05 1e 00 00 33 01 20 12 00 06 3e 00 06 50 00 0b 1e 00 0e 26 00 0e 2a 00 06 3d 00 06 44 00 0e 58 00 06 24 00 00 00 00 00 00 03 d2 69 02 22 e0 00 00 00 00 00 00 00 00 00 00 ┆ 3 > P & * = D X $ i " ┆ 0x005584e…0055e5a (1, 185) 00 00 02 00 04 08 00 05 1e 00 00 36 07 e0 10 00 0e 5e 00 0e 26 00 06 c4 00 0d 40 00 06 3e 00 10 12 00 0e 4e 00 0c 0c 03 60 00 03 60 00 03 60 00 03 60 00 03 60 00 03 60 00 03 60 00 03 60 00 03 ┆ 6 ^ & @ > N ` ` ` ` ` ` ` ` ┆ 0x0055e5a…0055ef0 (1, 186) 00 00 01 00 00 34 00 05 1f 00 00 00 67 65 74 74 72 61 6e 73 00 00 00 00 80 00 04 6e 65 77 74 72 61 6e 73 00 00 00 00 80 00 5a 05 a2 00 00 00 00 00 40 12 00 10 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 gettrans newtrans Z @ ` @ ┆ 0x0055ef0…0055f86 (1, 187) 00 00 01 00 00 34 00 05 20 00 00 0a 65 70 70 78 00 00 00 00 00 00 00 00 00 00 0a 40 00 00 00 00 01 00 00 00 00 00 00 7d be 44 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 eppx @ å D ` @ ┆ 0x0055f86…0056892 (1, 188) 00 00 02 00 06 08 00 05 20 00 00 00 63 6c 65 61 72 20 75 73 65 72 20 65 70 70 0a 65 70 70 3d 73 65 74 20 31 32 20 64 69 73 63 35 0a 73 63 6f 70 65 20 75 73 65 72 20 65 70 70 0a 65 70 70 3d 61 ┆ clear user epp epp=set 12 disc5 scope user epp epp=a┆ 0x0056892…005719e (1, 189) 00 00 02 00 06 08 00 05 20 00 00 03 72 69 74 65 28 6f 75 74 2c 3c 3a 2a 2a 2a 3a 3e 2c 73 74 72 69 6e 67 20 69 6e 63 28 73 70 6e 61 6d 65 29 2c 3c 3a 20 75 6e 6b 6e 6f 77 6e 3a 3e 2c 66 61 6c ┆ rite(out,<:***:>,string inc(spname),<: unknown:>,fal┆ 0x005719e…0057aaa (1, 190) 00 00 02 00 06 08 00 05 20 00 00 06 6d 61 78 20 64 6f 0a 20 20 62 65 67 69 6e 20 66 31 3a 3d 28 6a 2d 66 6d 69 6e 29 2a 73 6b 61 78 2b 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 6a 3c 3e 66 6d ┆ max do begin f1:=(j-fmin)*skax+1; if j<>fm┆ 0x0057aaa…0057db6 (1, 191) 00 00 02 00 02 08 00 05 20 00 00 09 65 6c 73 65 20 75 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 53 31 3a 20 20 20 20 20 65 6e 64 20 6a 3b 0a 20 20 65 6e 64 20 6b 3b ┆ else u1); end; S1: end j; end k;┆ 0x0057db6…0057e4c (1, 192) 00 00 01 00 00 34 00 05 21 00 00 16 66 70 70 72 6f 63 74 78 74 00 00 00 00 00 16 40 00 00 00 00 01 00 00 00 00 00 00 61 46 f5 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 00 02 40 00 00 00 ┆ 4 ! fpproctxt @ aF ` @ ┆ 0x0057e4c…0058758 (1, 193) 00 00 02 00 06 08 00 05 21 00 00 00 0a 66 70 70 72 6f 63 3d 73 65 74 20 31 20 64 69 73 63 31 0a 28 69 66 20 31 2e 79 65 73 0a 28 66 70 70 72 6f 63 6c 73 74 3d 73 65 74 20 33 30 0a 20 6f 20 66 ┆ ! fpproc=set 1 disc1 (if 1.yes (fpproclst=set 30 o f┆ 0x0058758…0059064 (1, 194) 00 00 02 00 06 08 00 05 21 00 00 03 6d 65 74 65 72 73 2e 0a 0a 0c 0a 3b 72 63 20 33 31 2e 30 31 2e 37 33 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 66 70 70 72 ┆ ! meters. ;rc 31.01.73 fppr┆ 0x0059064…0059970 (1, 195) 00 00 02 00 06 08 00 05 21 00 00 06 20 20 20 20 20 20 20 2d 31 32 3a 20 73 61 76 65 64 20 77 32 20 20 20 73 68 20 64 65 73 63 72 0a 3b 20 20 20 20 2d 20 20 20 20 20 20 20 20 2d 31 30 3a 20 73 ┆ ! -12: saved w2 sh descr ; - -10: s┆ 0x0059970…005a27c (1, 196) 00 00 02 00 06 08 00 05 21 00 00 09 20 3b 0a 20 20 20 20 20 62 7a 2e 20 20 77 33 20 20 64 30 2e 20 20 20 20 20 20 20 3b 20 20 20 77 33 3a 3d 20 70 61 74 74 65 72 6e 28 61 63 74 69 6f 6e 20 6e ┆ ! ; bz. w3 d0. ; w3:= pattern(action n┆ 0x005a27c…005ab88 (1, 197) 00 00 02 00 06 08 00 05 21 00 00 0c 65 63 74 20 6f 75 74 0a 20 20 20 20 20 73 6e 20 20 20 77 31 20 20 32 38 20 20 20 20 20 20 20 20 3b 20 20 20 6f 72 20 61 63 74 69 6f 6e 20 3d 20 63 6f 6e 6e ┆ ! ect out sn w1 28 ; or action = conn┆ 0x005ab88…005b494 (1, 198) 00 00 02 00 06 08 00 05 21 00 00 0f 72 76 61 74 69 6f 6e 3b 0a 20 20 20 20 20 72 6c 20 20 20 77 30 20 20 78 32 2b 38 20 20 20 20 20 20 3b 20 20 20 69 66 20 61 63 74 69 6f 6e 20 3d 20 69 6e 63 ┆ ! rvation; rl w0 x2+8 ; if action = inc┆ 0x005b494…005bda0 (1, 199) 00 00 02 00 06 08 00 05 21 00 00 12 28 6a 38 2e 29 20 20 20 20 20 3b 20 65 6e 64 20 61 64 64 72 65 73 73 20 65 78 70 72 65 73 73 69 6f 6e 3b 0a 0a 63 39 3a 20 20 61 6d 20 20 20 20 20 20 20 28 ┆ ! (j8.) ; end address expression; c9: am (┆ 0x005bda0…005c0ac (1, 200) 00 00 02 00 02 08 00 05 21 00 00 15 20 20 20 20 34 3c 31 32 20 2b 20 65 30 2d 65 35 20 20 20 20 20 20 20 20 3b 20 20 20 63 6f 64 65 20 70 72 6f 63 2c 20 73 74 61 72 74 20 6f 66 20 65 78 74 20 ┆ ! 4<12 + e0-e5 ; code proc, start of ext ┆ […truncated at 200 lines…]