|
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 - download
Length: 193536 (0x2f400)
Types: Rc489kSubCat
Names: »speciale«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »speciale«
0x00000…00033 Rc489kSubCatEnt {f00=0x001c3b, f01=0x0000b4, f02=0x0000bd, filename=»afsnit4 «, entry_tail=0-4-0-17-1981-08-25T21:49-disc2-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x01225b, f01=0x0000b4, f02=0x0000bd, filename=»afsnit5 «, entry_tail=0-4-0-18-1981-08-25T21:53-disc2-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x024813, f01=0x0000b4, f02=0x0000bd, filename=»afsnit6 «, entry_tail=0-4-0-92-1981-08-25T21:56-disc3-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x080dcb, f01=0x0000b4, f02=0x0000bd, filename=»afsnit7 «, entry_tail=0-4-0-17-1981-08-25T22:10-disc3-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x0913eb, f01=0x0000b4, f02=0x0000bd, filename=»afsnit8 «, entry_tail=0-4-0-5-1981-08-25T22:12-disc3-0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x096683, f01=0x000000, f02=0x0007cf, filename=»afsnit3 «, entry_tail=0-4-0-43-1981-08-25T21:44-disc2-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x0c10cb, f01=0x000000, f02=0x0007cf, filename=»afsnit2 «, entry_tail=0-4-0-33-1981-08-25T21:37-disc2-0x0-0x0-0x0-0x0}
0x00165…00180 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x00180…001a0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
[…0x6…]
0x00260…00280 ff ff ff ff ff ff ff 00 00 03 80 0d 0b 80 00 01 7f ff fd 6d 69 6e 31 00 00 00 00 00 00 00 00 80 ┆ min1 ┆
0x00280…002a0 00 04 69 61 62 73 00 00 00 00 00 00 00 00 80 00 d0 0e 83 80 00 00 00 00 40 14 00 10 00 80 2d 0b ┆ iabs @ - ┆
0x002a0…002c0 00 00 00 7f ff fc 62 6f 6c 74 7a 6d 61 6e 6e 00 00 00 80 00 04 76 61 72 70 72 6f 63 00 00 00 00 ┆ boltzmann varproc ┆
0x002c0…002e0 00 00 00 55 28 00 00 00 00 00 00 40 00 00 10 7e 06 8d 0b 00 c3 5a 00 c3 63 63 62 78 00 00 00 00 ┆ U( @ ü Z ccbx ┆
0x002e0…002fd 00 00 00 00 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ disc ┆
0x002fd…00300 0x000007
0x00300…03600 Data for afsnit4
0x03600…06c00 Data for afsnit5
0x06c00…18000 Data for afsnit6
0x18000…1b300 Data for afsnit7
0x1b300…1c200 Data for afsnit8
0x1c200…24300 Data for afsnit3
0x24300…2a600 Data for afsnit2
0x2a600…2a620 20 20 70 72 6f 63 20 3a 3d 20 2d 72 65 63 65 69 76 65 72 28 62 75 66 29 3b 20 28 70 6f 73 69 74 ┆ proc := -receiver(buf); (posit┆
0x2a620…2a640 69 76 65 29 0a 20 20 20 20 20 72 73 20 20 77 33 20 20 78 32 2b 34 20 20 20 20 20 20 3b 20 20 20 ┆ive) rs w3 x2+4 ; ┆
0x2a640…2a660 20 72 65 63 65 69 76 65 72 28 62 75 66 29 20 3a 3d 20 70 72 6f 63 20 20 28 69 2e 65 2e 20 70 6f ┆ receiver(buf) := proc (i.e. po┆
0x2a660…2a680 73 69 74 69 76 65 29 3b 0a 20 20 20 20 20 64 73 20 20 77 33 20 20 20 20 20 62 31 39 20 20 20 20 ┆sitive); ds w3 b19 ┆
0x2a680…2a6a0 3b 20 20 20 20 73 61 76 65 28 62 75 66 2c 70 72 6f 63 29 20 69 6e 20 73 74 64 20 6c 6f 63 61 74 ┆; save(buf,proc) in std locat┆
0x2a6a0…2a6c0 69 6f 6e 73 3b 0a 0a 3b 20 62 65 66 6f 72 65 20 65 78 69 74 20 74 6f 20 74 68 65 20 64 69 66 66 ┆ions; ; before exit to the diff┆
0x2a6c0…2a6e0 65 72 65 6e 74 20 64 72 69 76 65 72 73 2c 20 74 68 65 20 72 65 67 69 73 74 65 72 73 20 63 6f 6e ┆erent drivers, the registers con┆
0x2a6e0…2a700 74 61 69 6e 3a 0a 3b 20 20 77 30 3d 75 6e 64 65 66 2c 20 77 31 3d 73 65 6e 64 65 72 2c 20 77 32 ┆tain: ; w0=undef, w1=sender, w2┆
0x2a700…2a720 3d 62 75 66 2c 20 77 33 3d 70 72 6f 63 0a 0a 20 20 20 20 20 61 6d 20 20 20 20 20 28 78 33 2b 61 ┆=buf, w3=proc am (x3+a┆
0x2a720…2a740 31 30 29 20 20 20 3b 0a 20 20 20 20 20 6a 64 2e 20 20 20 20 20 20 28 2b 32 29 20 20 20 20 20 3b ┆10) ; jd. (+2) ;┆
0x2a740…2a760 20 20 20 20 67 6f 74 6f 20 63 61 73 65 20 6b 69 6e 64 28 70 72 6f 63 29 20 6f 66 3a 0a 20 20 20 ┆ goto case kind(proc) of: ┆
0x2a760…2a780 20 20 68 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 28 30 3a 20 69 6e 74 65 72 ┆ h3 ; (0: inter┆
0x2a780…2a7a0 6e 61 6c 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 68 34 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nal process h4 ┆
0x2a7a0…2a7c0 20 20 20 3b 20 20 20 32 3a 20 69 6e 74 65 72 76 61 6c 20 63 6c 6f 63 6b 0a 20 20 20 20 20 68 35 ┆ ; 2: interval clock h5┆
0x2a7c0…2a7e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 34 3a 20 62 61 63 6b 69 6e 67 20 73 ┆ ; 4: backing s┆
0x2a7e0…2a800 74 6f 72 65 20 61 72 65 61 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tore area g2 ┆
0x2a800…2a820 20 3b 20 20 20 36 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ ; 6: g2 ;┆
0x2a820…2a840 20 20 20 38 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆ 8: g2 ; ┆
0x2a840…2a860 31 30 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 31 32 ┆10: g2 ; 12┆
0x2a860…2a880 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 31 34 3a 0a ┆: g2 ; 14: ┆
0x2a880…2a8a0 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 31 36 3a 0a 20 20 ┆ g2 ; 16: ┆
0x2a8a0…2a8c0 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 31 38 3a 0a 20 20 20 20 ┆ g2 ; 18: ┆
0x2a8c0…2a8e0 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 32 30 3a 0a 20 20 20 20 20 67 ┆ g2 ; 20: g┆
0x2a8e0…2a900 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 32 32 3a 0a 20 20 20 20 20 67 32 20 ┆2 ; 22: g2 ┆
0x2a900…2a920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 32 34 3a 0a 20 20 20 20 20 67 32 20 20 20 ┆ ; 24: g2 ┆
0x2a920…2a940 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 32 36 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 ┆ ; 26: g2 ┆
0x2a940…2a960 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 32 38 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 ┆ ; 28: g2 ┆
0x2a960…2a980 20 20 20 20 20 20 20 20 20 3b 20 20 33 30 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 ┆ ; 30: g2 ┆
0x2a980…2a9a0 20 20 20 20 20 20 20 3b 20 20 33 32 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 32: g2 ┆
0x2a9a0…2a9c0 20 20 20 20 20 3b 20 20 33 34 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 34: g2 ┆
0x2a9c0…2a9e0 20 20 20 3b 20 20 33 36 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 36: g2 ┆
0x2a9e0…2aa00 20 3b 20 20 33 38 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ ; 38: g2 ;┆
0x2aa00…2aa20 20 20 34 30 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆ 40: g2 ; ┆
0x2aa20…2aa40 34 32 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 34 34 ┆42: g2 ; 44┆
0x2aa40…2aa60 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 34 36 3a 0a ┆: g2 ; 46: ┆
0x2aa60…2aa80 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 34 38 3a 0a 20 20 ┆ g2 ; 48: ┆
0x2aa80…2aaa0 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 35 30 3a 0a 20 20 20 20 ┆ g2 ; 50: ┆
0x2aaa0…2aac0 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 35 32 3a 0a 20 20 20 20 20 67 ┆ g2 ; 52: g┆
0x2aac0…2aae0 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 35 34 3a 0a 20 20 20 20 20 68 32 32 ┆2 ; 54: h22┆
0x2aae0…2ab00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 35 36 3a 20 72 65 6d 6f 74 65 72 20 70 72 ┆ ; 56: remoter pr┆
0x2ab00…2ab20 6f 63 65 73 73 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆ocess g2 ; ┆
0x2ab20…2ab40 35 38 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 36 30 ┆58: g2 ; 60┆
0x2ab40…2ab60 3a 0a 20 20 20 20 20 68 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 36 32 3a 20 ┆: h6 ; 62: ┆
0x2ab60…2ab80 64 69 73 63 20 28 6c 6f 67 69 63 61 6c 2d 20 61 6e 64 20 70 68 79 73 69 63 61 6c 20 64 69 73 63 ┆disc (logical- and physical disc┆
0x2ab80…2aba0 29 0a 20 20 20 20 20 68 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 36 34 3a 20 ┆) h3 ; 64: ┆
0x2aba0…2abc0 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 ┆pseudo process g2 ┆
0x2abc0…2abe0 20 20 20 20 20 20 3b 20 20 36 36 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 66: g2 ┆
0x2abe0…2ac00 20 20 20 20 3b 20 20 36 38 3a 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 68: g2 ┆
0x2ac00…2ac20 20 20 3b 20 20 37 30 3a 0a 20 20 20 20 20 68 37 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 70: h72 ┆
0x2ac20…2ac40 3b 20 20 37 32 3a 20 72 63 38 36 30 32 20 28 73 73 63 69 72 29 0a 20 20 20 20 20 68 37 34 20 20 ┆; 72: rc8602 (sscir) h74 ┆
0x2ac40…2ac60 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 37 34 3a 20 72 63 38 36 30 32 20 28 69 73 72 70 ┆ ; 74: rc8602 (isrp┆
0x2ac60…2ac80 79 29 0a 20 20 20 20 20 68 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 37 36 3a ┆y) h76 ; 76:┆
0x2ac80…2aca0 20 72 63 38 36 30 31 20 28 73 73 63 69 72 29 0a 20 20 20 20 20 68 37 38 20 20 20 20 20 20 20 20 ┆ rc8601 (sscir) h78 ┆
0x2aca0…2acc0 20 20 20 20 20 20 20 3b 20 20 37 38 3a 20 72 63 38 36 30 31 20 28 69 73 72 70 79 29 0a 20 20 20 ┆ ; 78: rc8601 (isrpy) ┆
0x2acc0…2ace0 20 20 68 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 38 30 3a 20 6d 61 69 6e 70 ┆ h80 ; 80: mainp┆
0x2ace0…2ad00 72 6f 63 28 66 70 61 29 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆roc(fpa) g2 ┆
0x2ad00…2ad20 3b 20 20 38 32 3a 20 68 6f 73 74 70 72 6f 63 28 66 70 61 29 0a 20 20 20 20 20 68 38 34 20 20 20 ┆; 82: hostproc(fpa) h84 ┆
0x2ad20…2ad40 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 38 34 3a 20 73 75 62 70 72 6f 63 28 66 70 61 29 0a ┆ ; 84: subproc(fpa) ┆
0x2ad40…2ad60 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 38 36 3a 20 72 65 ┆ g2 ; 86: re┆
0x2ad60…2ad80 63 65 69 76 65 72 28 66 70 61 29 0a 20 20 20 20 20 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ceiver(fpa) g2 ┆
0x2ad80…2ada0 20 20 20 3b 20 20 38 38 3a 20 74 72 61 6e 73 6d 69 74 74 65 72 28 66 70 61 29 0a 20 20 20 20 20 ┆ ; 88: transmitter(fpa) ┆
0x2ada0…2adc0 68 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 39 30 3a 20 68 6f 73 74 29 3b 0a ┆h90 ; 90: host); ┆
0x2adc0…2ade0 0a 68 33 3d 67 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 74 65 72 6e ┆ h3=g6 ; intern┆
0x2ade0…2ae00 61 6c 20 70 72 6f 63 65 73 73 2c 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 0a 67 32 3d 67 33 ┆al process, pseudo process g2=g3┆
0x2ae00…2ae20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 6f 74 20 64 65 66 69 6e 65 64 0a ┆ ; not defined ┆
0x2ae20…2ae40 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 63 6f ┆ e. ; end co┆
0x2ae40…2ae60 6d 6d 6f 6e 20 70 61 72 74 20 6f 66 20 63 65 6e 74 72 61 6c 20 6c 6f 67 69 63 0a 0a 3b 20 69 6e ┆mmon part of central logic ; in┆
0x2ae60…2ae80 69 74 69 61 6c 69 7a 65 20 61 6e 64 20 72 65 73 65 72 76 65 20 70 72 6f 63 65 73 73 3a 0a 3b 20 ┆itialize and reserve process: ; ┆
0x2ae80…2aea0 65 6e 74 72 79 20 63 6f 6e 64 69 74 69 6f 6e 73 3a 20 77 30 20 3d 20 73 77 69 74 63 68 2c 20 77 ┆entry conditions: w0 = switch, w┆
0x2aea0…2aec0 31 20 3d 20 69 6e 74 65 72 6e 61 6c 2c 20 77 32 20 3d 20 70 72 6f 63 0a 0a 62 2e 20 69 35 31 20 ┆1 = internal, w2 = proc b. i51 ┆
0x2aec0…2aee0 77 2e 0a 65 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 69 74 ┆w. e5: ; init┆
0x2aee0…2af00 69 61 6c 69 7a 65 20 70 72 6f 63 65 73 73 3a 20 20 73 77 69 74 63 68 20 3d 20 30 0a 65 36 3a 20 ┆ialize process: switch = 0 e6: ┆
0x2af00…2af20 20 72 73 2e 20 77 30 20 20 20 20 20 69 39 2e 20 20 20 20 3b 20 72 65 73 65 72 76 65 20 70 72 6f ┆ rs. w0 i9. ; reserve pro┆
0x2af20…2af40 63 65 73 73 3a 20 20 20 20 20 73 77 69 74 63 68 20 3d 20 32 0a 20 20 20 20 20 61 6d 20 20 20 20 ┆cess: switch = 2 am ┆
0x2af40…2af60 20 28 78 32 2b 61 31 30 29 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 28 32 29 20 20 20 ┆ (x2+a10) ; jl. (2) ┆
0x2af60…2af80 20 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 63 61 73 65 20 6b 69 6e 64 28 70 72 6f 63 29 20 6f ┆ ; goto case kind(proc) o┆
0x2af80…2afa0 66 3a 0a 20 20 20 20 20 69 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 28 30 3a ┆f: i30 ; (0:┆
0x2afa0…2afc0 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 2c 0a 20 20 20 20 20 69 33 31 20 20 20 20 20 ┆ internal process, i31 ┆
0x2afc0…2afe0 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 32 3a 20 69 6e 74 65 72 76 61 6c 20 63 6c 6f 63 6b 2c ┆ ; 2: interval clock,┆
0x2afe0…2b000 0a 20 20 20 20 20 69 31 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 34 3a 20 62 ┆ i11 ; 4: b┆
0x2b000…2b020 61 63 6b 69 6e 67 20 73 74 6f 72 65 20 61 72 65 61 2c 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 ┆acking store area, r3 ┆
0x2b020…2b040 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 36 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 ┆ ; 6: r3 ┆
0x2b040…2b060 20 20 20 20 20 20 20 20 3b 20 20 20 38 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 ┆ ; 8: r3 ┆
0x2b060…2b080 20 20 20 20 20 20 3b 20 20 31 30 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 10: r3 ┆
0x2b080…2b0a0 20 20 20 20 3b 20 20 31 32 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 12: r3 ┆
0x2b0a0…2b0c0 20 20 3b 20 20 31 34 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 14: r3 ┆
0x2b0c0…2b0e0 3b 20 20 31 36 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆; 16: r3 ; ┆
0x2b0e0…2b100 20 31 38 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 32 ┆ 18: r3 ; 2┆
0x2b100…2b120 30 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 32 32 3a ┆0: r3 ; 22:┆
0x2b120…2b140 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 32 34 3a 0a 20 ┆ r3 ; 24: ┆
0x2b140…2b160 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 32 36 3a 0a 20 20 20 ┆ r3 ; 26: ┆
0x2b160…2b180 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 32 38 3a 0a 20 20 20 20 20 ┆ r3 ; 28: ┆
0x2b180…2b1a0 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 33 30 3a 0a 20 20 20 20 20 72 33 ┆r3 ; 30: r3┆
0x2b1a0…2b1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 33 32 3a 0a 20 20 20 20 20 72 33 20 20 ┆ ; 32: r3 ┆
0x2b1c0…2b1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 33 34 3a 0a 20 20 20 20 20 72 33 20 20 20 20 ┆ ; 34: r3 ┆
0x2b1e0…2b200 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 33 36 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 ┆ ; 36: r3 ┆
0x2b200…2b220 20 20 20 20 20 20 20 20 20 20 3b 20 20 33 38 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 ┆ ; 38: r3 ┆
0x2b220…2b240 20 20 20 20 20 20 20 20 3b 20 20 34 30 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 ┆ ; 40: r3 ┆
0x2b240…2b260 20 20 20 20 20 20 3b 20 20 34 32 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 42: r3 ┆
0x2b260…2b280 20 20 20 20 3b 20 20 34 34 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 44: r3 ┆
0x2b280…2b2a0 20 20 3b 20 20 34 36 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 46: r3 ┆
0x2b2a0…2b2c0 3b 20 20 34 38 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆; 48: r3 ; ┆
0x2b2c0…2b2e0 20 35 30 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 35 ┆ 50: r3 ; 5┆
0x2b2e0…2b300 32 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 35 34 3a ┆2: r3 ; 54:┆
0x2b300…2b320 0a 20 20 20 20 20 69 33 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 35 36 3a 20 72 ┆ i34 ; 56: r┆
0x2b320…2b340 65 6d 6f 74 65 72 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 ┆emoter process r3 ┆
0x2b340…2b360 20 20 20 20 20 20 3b 20 20 35 38 3a 0a 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 58: r3 ┆
0x2b360…2b380 20 20 20 20 3b 20 20 36 30 3a 0a 20 20 20 20 20 69 31 37 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 60: i17 ┆
0x2b380…2b3a0 20 20 3b 20 20 36 32 3a 20 64 69 73 63 20 28 6c 6f 67 69 63 61 6c 2d 20 61 6e 64 20 70 68 79 73 ┆ ; 62: disc (logical- and phys┆
0x2b3a0…2b3c0 69 63 61 6c 20 64 69 73 63 73 29 0a 20 20 20 20 20 69 33 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆ical discs) i30 ┆
0x2b3c0…2b3e0 20 20 20 3b 20 20 36 34 3a 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 65 73 0a 20 20 20 20 20 ┆ ; 64: pseudo processes ┆
0x2b3e0…2b400 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 36 36 3a 0a 20 20 20 20 20 72 33 ┆r3 ; 66: r3┆
0x2b400…2b420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 36 38 3a 0a 20 20 20 20 20 72 33 20 20 ┆ ; 68: r3 ┆
0x2b420…2b440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 37 30 3a 0a 20 20 20 20 20 69 35 31 20 20 20 ┆ ; 70: i51 ┆
0x2b440…2b460 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 37 32 3a 20 72 63 38 36 30 32 20 28 73 73 63 69 72 ┆ ; 72: rc8602 (sscir┆
0x2b460…2b480 29 20 28 72 65 73 65 72 76 61 74 69 6f 6e 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 29 0a 20 20 20 ┆) (reservation not allowed ) ┆
0x2b480…2b4a0 20 20 72 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 37 34 3a 20 72 63 38 36 30 32 ┆ r3 ; 74: rc8602┆
0x2b4a0…2b4c0 20 28 69 73 72 70 79 29 20 28 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 29 0a 20 20 20 20 20 69 ┆ (isrpy) (does not exist) i┆
0x2b4c0…2b4e0 34 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 37 36 3a 20 72 63 38 36 30 31 20 28 ┆48 ; 76: rc8601 (┆
0x2b4e0…2b500 73 73 63 69 72 29 0a 20 20 20 20 20 69 34 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆sscir) i48 ; ┆
0x2b500…2b520 20 37 38 3a 20 72 63 38 36 30 31 20 28 69 73 72 70 79 29 0a 20 20 20 20 20 69 33 36 20 20 20 20 ┆ 78: rc8601 (isrpy) i36 ┆
0x2b520…2b540 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 38 30 3a 20 6d 61 69 6e 70 72 6f 63 28 66 70 61 29 0a ┆ ; 80: mainproc(fpa) ┆
0x2b540…2b560 20 20 20 20 20 69 33 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 38 32 3a 20 68 6f ┆ i37 ; 82: ho┆
0x2b560…2b580 73 74 70 72 6f 63 28 66 70 61 29 0a 20 20 20 20 20 69 33 38 20 20 20 20 20 20 20 20 20 20 20 20 ┆stproc(fpa) i38 ┆
0x2b580…2b5a0 20 20 20 3b 20 20 38 34 3a 20 73 75 62 70 72 6f 63 28 66 70 61 29 0a 20 20 20 20 20 69 33 39 20 ┆ ; 84: subproc(fpa) i39 ┆
0x2b5a0…2b5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 38 36 3a 20 72 65 63 65 69 76 65 72 28 66 70 ┆ ; 86: receiver(fp┆
0x2b5c0…2b5e0 61 29 0a 20 20 20 20 20 69 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 38 38 3a ┆a) i40 ; 88:┆
0x2b5e0…2b600 20 74 72 61 6e 73 6d 69 74 74 65 72 28 66 70 61 29 0a 20 20 20 20 20 69 34 31 20 20 20 20 20 20 ┆ transmitter(fpa) i41 ┆
0x2b600…2e400 […elided…]
0x2e400…2e420 3a 3d 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 31 2b 61 35 34 20 20 20 20 3b 20 20 20 20 ┆:= al w2 x1+a54 ; ┆
0x2e420…2e440 20 61 64 64 72 20 6f 66 20 6d 65 73 73 20 71 20 68 65 61 64 2e 63 75 72 72 20 72 65 63 65 69 76 ┆ addr of mess q head.curr receiv┆
0x2e440…2e460 65 72 3b 0a 6a 32 30 20 3a 20 72 6c 20 20 77 32 20 20 78 32 2b 61 31 34 30 20 20 20 3b 20 72 65 ┆er; j20 : rl w2 x2+a140 ; re┆
0x2e460…2e480 70 3a 20 62 75 66 3a 3d 20 6e 65 78 74 2e 62 75 66 3b 0a 6a 32 32 20 3a 20 73 6e 20 20 77 32 20 ┆p: buf:= next.buf; j22 : sn w2 ┆
0x2e480…2e4a0 20 78 31 2b 61 35 34 20 20 20 20 3b 20 72 65 70 31 3a 20 69 66 20 62 75 66 3c 3e 61 64 64 72 20 ┆ x1+a54 ; rep1: if buf<>addr ┆
0x2e4a0…2e4c0 6d 71 68 65 61 64 2e 63 75 72 72 20 72 65 63 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 ┆mqhead.curr rec then jl. ┆
0x2e4c0…2e4e0 20 20 20 20 20 20 6a 32 34 2e 20 20 20 3b 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 62 ┆ j24. ; begin b┆
0x2e4e0…2e500 7a 20 20 77 30 20 20 78 32 2b 61 31 35 30 20 20 20 3b 20 20 20 20 20 20 20 69 66 20 6f 70 65 72 ┆z w0 x2+a150 ; if oper┆
0x2e500…2e520 61 74 69 6f 6e 2e 62 75 66 20 3c 3e 20 34 0a 20 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 ┆ation.buf <> 4 se w0 ┆
0x2e520…2e540 34 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 3b 0a 20 20 ┆4 ; then goto rep; ┆
0x2e540…2e560 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 32 30 2e 20 20 20 3b 20 20 20 20 20 20 20 64 65 ┆ jl. j20. ; de┆
0x2e560…2e580 6c 69 76 65 72 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 28 62 75 66 29 3b 0a 20 20 20 20 20 20 61 ┆liver intervention(buf); a┆
0x2e580…2e5a0 6c 2e 20 77 33 20 20 20 20 20 6a 32 32 2e 20 20 20 3b 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 ┆l. w3 j22. ; goto re┆
0x2e5a0…2e5c0 70 31 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 35 31 2e 20 20 20 3b 20 20 20 ┆p1; jl. j51. ; ┆
0x2e5c0…2e5e0 20 20 65 6e 64 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 20 3b ┆ end; ;┆
0x2e5e0…2e600 20 20 20 65 6e 64 3b 0a 0c 3b 20 70 65 6a 20 32 33 2e 30 31 2e 37 38 20 20 20 20 63 6c 6f 63 6b ┆ end; ; pej 23.01.78 clock┆
0x2e600…2e620 20 64 72 69 76 65 72 0a 0a 3b 20 69 66 20 74 68 65 20 63 6c 6f 63 6b 20 68 61 73 20 62 65 65 6e ┆ driver ; if the clock has been┆
0x2e620…2e640 20 63 68 61 6e 67 65 64 20 73 6f 6d 65 20 6d 65 73 73 61 67 65 73 20 6d 61 79 20 62 65 20 72 65 ┆ changed some messages may be re┆
0x2e640…2e660 74 75 72 6e 65 64 0a 3b 20 28 74 68 6f 73 65 20 77 61 69 74 69 6e 67 20 66 6f 72 20 63 6c 6f 63 ┆turned ; (those waiting for cloc┆
0x2e660…2e680 6b 63 68 61 6e 67 65 20 61 6e 64 20 74 68 6f 73 65 20 77 61 69 74 69 6e 67 20 69 6e 20 72 65 61 ┆kchange and those waiting in rea┆
0x2e680…2e6a0 6c 20 74 69 6d 65 0a 3b 20 64 65 6c 61 79 29 2e 20 65 78 70 69 72 61 74 69 6f 6e 20 74 69 6d 65 ┆l time ; delay). expiration time┆
0x2e6a0…2e6c0 20 69 6e 20 6d 65 73 73 61 67 65 73 20 77 61 69 74 69 6e 67 20 69 6e 20 65 66 66 65 63 74 69 76 ┆ in messages waiting in effectiv┆
0x2e6c0…2e6e0 65 20 74 69 6d 65 0a 3b 20 64 65 6c 61 79 20 69 73 20 61 64 6a 75 73 74 65 64 20 61 6e 64 20 74 ┆e time ; delay is adjusted and t┆
0x2e6e0…2e700 68 65 20 6d 65 73 73 61 67 65 20 71 75 65 75 65 20 69 73 20 72 65 73 6f 72 74 65 64 2e 0a 6a 32 ┆he message queue is resorted. j2┆
0x2e700…2e720 34 20 3a 20 72 6c 20 20 77 30 20 20 20 20 20 62 31 35 20 20 20 20 3b 20 20 20 63 2e 20 77 31 20 ┆4 : rl w0 b15 ; c. w1 ┆
0x2e720…2e740 3d 20 63 75 72 72 20 72 65 63 65 69 76 65 72 3b 0a 20 20 20 20 20 20 6c 6f 20 20 77 30 20 20 20 ┆= curr receiver; lo w0 ┆
0x2e740…2e760 20 20 62 31 35 2b 32 20 20 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 ┆ b15+2 ; sn w0 0 ┆
0x2e760…2e780 20 20 20 3b 20 20 20 69 66 20 63 6c 6f 63 6b 63 68 61 6e 67 65 20 3c 3e 20 30 20 74 68 65 6e 0a ┆ ; if clockchange <> 0 then ┆
0x2e780…2e7a0 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 33 38 2e 20 20 20 3b 20 20 20 62 65 67 69 ┆ jl. j38. ; begi┆
0x2e7a0…2e7c0 6e 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 31 2b 61 35 34 20 20 20 20 3b 0a 20 20 20 20 ┆n al w2 x1+a54 ; ┆
0x2e7c0…2e7e0 20 20 73 6e 20 20 77 32 20 28 78 31 2b 61 35 34 29 20 20 20 3b 20 20 20 20 20 69 66 20 6d 65 73 ┆ sn w2 (x1+a54) ; if mes┆
0x2e7e0…2e800 73 20 71 2e 63 75 72 72 20 72 65 63 20 2d 2c 65 6d 70 74 79 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆s q.curr rec -,empty then ┆
0x2e800…2e820 6a 6c 2e 20 20 20 20 20 20 20 20 6a 33 36 2e 20 20 20 3b 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆jl. j36. ; begin ┆
0x2e820…2e840 20 20 20 20 64 6c 20 20 77 30 20 20 78 31 2b 61 35 35 20 20 20 20 3b 20 20 20 20 20 20 20 68 65 ┆ dl w0 x1+a55 ; he┆
0x2e840…2e860 6c 70 20 71 20 68 65 61 64 3a 3d 0a 20 20 20 20 20 20 64 73 2e 20 77 30 20 20 20 20 20 69 34 2e ┆lp q head:= ds. w0 i4.┆
0x2e860…2e880 20 20 20 20 3b 20 20 20 20 20 20 20 6d 65 73 73 20 71 20 68 65 61 64 2e 63 75 72 72 20 72 65 63 ┆ ; mess q head.curr rec┆
0x2e880…2e8a0 65 69 76 65 72 3b 0a 20 20 20 20 20 20 72 73 20 20 77 32 20 20 78 31 2b 61 35 34 20 20 20 20 3b ┆eiver; rs w2 x1+a54 ;┆
0x2e8a0…2e8c0 0a 20 20 20 20 20 20 72 73 20 20 77 32 20 20 78 31 2b 61 35 35 20 20 20 20 3b 20 20 20 20 20 20 ┆ rs w2 x1+a55 ; ┆
0x2e8c0…2e8e0 20 6d 65 73 73 20 71 20 68 65 61 64 2e 63 75 72 72 20 72 65 63 65 69 76 65 72 3a 3d 20 65 6d 70 ┆ mess q head.curr receiver:= emp┆
0x2e8e0…2e900 74 79 3b 0a 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 20 20 20 69 33 2e 20 20 20 20 3b 20 20 20 ┆ty; al. w0 i3. ; ┆
0x2e900…2e920 20 20 20 20 6e 65 78 74 2e 6c 61 73 74 2e 68 65 6c 70 20 71 20 68 65 61 64 3a 3d 0a 20 20 20 20 ┆ next.last.help q head:= ┆
0x2e920…2e940 20 20 72 73 2e 20 77 30 20 20 20 20 28 69 34 2e 29 20 20 20 3b 20 20 20 20 20 20 20 61 64 64 72 ┆ rs. w0 (i4.) ; addr┆
0x2e940…2e960 20 6f 66 20 68 65 6c 70 20 71 20 68 65 61 64 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 ┆ of help q head; rl. w2 ┆
0x2e960…2e980 20 20 69 33 2e 20 20 20 20 3b 20 20 20 20 20 20 20 62 75 66 3a 3d 20 6e 65 78 74 2e 68 65 6c 70 ┆ i3. ; buf:= next.help┆
0x2e980…2e9a0 20 71 20 68 65 61 64 3b 0a 20 20 20 20 20 20 72 73 20 20 77 30 20 20 78 32 2b 32 20 20 20 20 20 ┆ q head; rs w0 x2+2 ┆
0x2e9a0…2e9c0 20 3b 20 20 20 20 20 20 20 6c 61 73 74 2e 62 75 66 3a 3d 20 61 64 64 72 20 6f 66 20 68 65 6c 70 ┆ ; last.buf:= addr of help┆
0x2e9c0…2e9e0 20 71 20 68 65 61 64 3b 0a 6a 32 36 20 3a 20 73 6e 2e 20 77 32 20 20 20 20 28 69 35 2e 29 20 20 ┆ q head; j26 : sn. w2 (i5.) ┆
0x2e9e0…2ea00 20 3b 20 72 65 70 3a 20 20 69 66 20 62 75 66 20 3c 3e 20 61 64 64 72 20 6f 66 20 68 65 6c 70 20 ┆ ; rep: if buf <> addr of help ┆
0x2ea00…2ea20 71 20 68 65 61 64 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 33 36 ┆q head then jl. j36┆
0x2ea20…2ea40 2e 20 20 20 3b 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 62 7a 20 20 77 30 20 20 ┆. ; begin bz w0 ┆
0x2ea40…2ea60 78 32 2b 61 31 35 30 20 20 20 3b 0a 20 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 32 20 20 ┆x2+a150 ; se w0 2 ┆
0x2ea60…2ea80 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 69 66 20 6f 70 65 72 61 74 69 6f 6e 2e 62 75 66 20 3d ┆ ; if operation.buf =┆
0x2ea80…2eaa0 20 32 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 33 30 2e 20 20 20 ┆ 2 then jl. j30. ┆
0x2eaa0…2eac0 3b 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 6a 32 38 20 3a 20 6a 6c 2e 20 77 33 20 20 20 20 ┆; begin j28 : jl. w3 ┆
0x2eac0…2eae0 20 6a 35 31 2e 20 20 20 3b 20 73 65 6e 64 3a 20 20 20 20 20 64 65 6c 69 76 65 72 20 69 6e 74 65 ┆ j51. ; send: deliver inte┆
0x2eae0…2eb00 72 76 65 6e 74 69 6f 6e 28 62 75 66 29 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 ┆rvention(buf); jl. ┆
0x2eb00…2eb20 6a 32 36 2e 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 70 3b 0a 6a 33 30 ┆j26. ; goto rep; j30┆
0x2eb20…2eb40 20 3a 20 64 6c 20 20 77 30 20 20 78 32 2b 61 31 35 32 20 20 20 3b 20 20 20 20 20 20 20 20 20 65 ┆ : dl w0 x2+a152 ; e┆
0x2eb40…2eb60 6e 64 3b 0a 20 20 20 20 20 20 62 7a 20 20 77 31 20 20 78 32 2b 61 31 35 30 2b 31 20 3b 0a 20 20 ┆nd; bz w1 x2+a150+1 ; ┆
0x2eb60…2eb80 20 20 20 20 73 6f 20 20 77 31 20 20 20 20 20 32 2e 31 30 30 20 20 3b 20 20 20 20 20 20 20 20 20 ┆ so w1 2.100 ; ┆
0x2eb80…2eba0 69 66 20 72 65 61 6c 20 74 69 6d 65 2e 6d 6f 64 65 2e 62 75 66 20 74 68 65 6e 0a 20 20 20 20 20 ┆if real time.mode.buf then ┆
0x2eba0…2ebc0 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 33 32 2e 20 20 20 3b 20 20 20 20 20 20 20 20 20 62 65 67 ┆ jl. j32. ; beg┆
0x2ebc0…2ebe0 69 6e 0a 20 20 20 20 20 20 73 73 20 20 77 30 20 20 20 20 20 62 31 33 2b 32 20 20 3b 20 20 20 20 ┆in ss w0 b13+2 ; ┆
0x2ebe0…2ec00 20 20 20 20 20 20 20 69 66 20 74 69 6d 65 20 3e 20 74 69 6d 65 2e 62 75 66 0a 20 20 20 20 20 20 ┆ if time > time.buf ┆
0x2ec00…2ec20 73 78 20 20 20 20 20 20 20 20 20 32 2e 31 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 74 68 ┆sx 2.1 ; th┆
0x2ec20…2ec40 65 6e 20 67 6f 74 6f 20 73 65 6e 64 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a ┆en goto send; jl. j┆
0x2ec40…2ec60 33 34 2e 20 20 20 3b 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 ┆34. ; end jl. ┆
0x2ec60…2ec80 20 20 20 20 20 6a 32 38 2e 20 20 20 3b 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 6a 33 32 20 3a ┆ j28. ; else j32 :┆
0x2ec80…2eca0 20 73 6e 2e 20 77 33 20 20 20 20 28 69 37 2e 29 20 20 20 3b 0a 20 20 20 20 20 20 73 65 2e 20 77 ┆ sn. w3 (i7.) ; se. w┆
0x2eca0…2ecc0 30 20 20 20 20 28 69 32 2e 29 20 20 20 3b 20 20 20 20 20 20 20 20 20 69 66 20 74 69 6d 65 2e 62 ┆0 (i2.) ; if time.b┆
0x2ecc0…2ece0 75 66 20 3c 3e 20 6d 61 78 20 63 6c 6f 63 6b 20 76 61 6c 0a 20 20 20 20 20 20 61 61 20 20 77 30 ┆uf <> max clock val aa w0┆
0x2ece0…2ed00 20 20 20 20 20 62 31 35 2b 32 20 20 3b 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 74 69 6d 65 2e ┆ b15+2 ; then time.┆
0x2ed00…2ed20 62 75 66 3a 3d 20 74 69 6d 65 2e 62 75 66 0a 20 20 20 20 20 20 64 73 20 20 77 30 20 20 78 32 2b ┆buf:= time.buf ds w0 x2+┆
0x2ed20…2ed40 61 31 35 32 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆a152 ; ┆
0x2ed40…2ed60 20 2b 20 63 6c 6f 63 6b 63 68 61 6e 67 65 3b 0a 6a 33 34 20 3a 20 72 6c 20 20 77 30 20 20 78 32 ┆ + clockchange; j34 : rl w0 x2┆
0x2ed60…2ed80 2b 30 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 6e 65 78 74 3a 3d 20 6e 65 78 74 2e 62 75 ┆+0 ; next:= next.bu┆
0x2ed80…2eda0 66 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 69 36 2e 20 20 20 20 3b 0a 20 20 20 ┆f; rs. w0 i6. ; ┆
0x2eda0…2edc0 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 35 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 72 ┆ jl w3 d5 ; r┆
0x2edc0…2ede0 65 6d 6f 76 65 28 62 75 66 29 3b 20 63 2e 20 66 72 6f 6d 20 68 65 6c 70 20 71 3b 0a 20 20 20 20 ┆emove(buf); c. from help q; ┆
0x2ede0…2ee00 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 6a 35 30 2e 20 20 20 3b 20 20 20 20 20 20 20 20 20 69 6e ┆ jl. w3 j50. ; in┆
0x2ee00…2ee20 73 65 72 74 20 62 75 66 28 62 75 66 29 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 ┆sert buf(buf); rl. w2 ┆
0x2ee20…2ee40 69 36 2e 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 62 75 66 3a 3d 20 6e 65 78 74 3b 0a 20 20 20 ┆i6. ; buf:= next; ┆
0x2ee40…2ee60 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 32 36 2e 20 20 20 3b 20 20 20 20 20 20 20 20 20 67 ┆ jl. j26. ; g┆
0x2ee60…2ee80 6f 74 6f 20 72 65 70 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 ┆oto rep; ┆
0x2ee80…2eea0 20 3b 20 20 20 20 20 20 20 65 6e 64 3b 0a 6a 33 36 20 3a 20 6c 64 20 20 77 30 20 20 20 20 2d 31 ┆ ; end; j36 : ld w0 -1┆
0x2eea0…2eec0 30 30 20 20 20 20 3b 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 64 73 20 20 77 30 20 20 20 ┆00 ; end; ds w0 ┆
0x2eec0…2eee0 20 20 62 31 35 2b 32 20 20 3b 20 20 20 20 20 63 6c 6f 63 6b 63 68 61 6e 67 65 3a 3d 20 30 3b 0a ┆ b15+2 ; clockchange:= 0; ┆
0x2eee0…2ef00 20 20 20 20 20 20 72 6c 20 20 77 31 20 20 20 20 20 62 31 39 20 20 20 20 3b 20 20 20 65 6e 64 3b ┆ rl w1 b19 ; end;┆
0x2ef00…2ef20 0a 0c 0c 3b 20 70 65 6a 20 32 33 2e 30 31 2e 37 38 20 20 20 20 63 6c 6f 63 6b 20 64 72 69 76 65 ┆ ; pej 23.01.78 clock drive┆
0x2ef20…2ef40 72 0a 0a 3b 20 73 63 61 6e 20 74 68 65 20 6d 65 73 73 61 67 65 20 71 75 65 75 65 20 61 6e 64 20 ┆r ; scan the message queue and ┆
0x2ef40…2ef60 72 65 74 75 72 6e 20 62 75 66 66 65 72 73 20 77 69 74 68 20 64 65 6c 61 79 73 20 65 78 70 69 72 ┆return buffers with delays expir┆
0x2ef60…2ef80 65 64 2e 0a 6a 33 38 20 3a 20 72 6c 20 20 77 32 20 20 78 31 2b 61 35 34 20 20 20 20 3b 20 20 20 ┆ed. j38 : rl w2 x1+a54 ; ┆
0x2ef80…2efa0 63 2e 20 77 31 20 3d 20 63 75 72 72 20 72 65 63 65 69 76 65 72 3b 0a 20 20 20 20 20 20 73 6e 20 ┆c. w1 = curr receiver; sn ┆
0x2efa0…2efc0 20 77 32 20 20 78 31 2b 61 35 34 20 20 20 20 3b 20 72 65 70 3a 20 62 75 66 3a 3d 20 6e 65 78 74 ┆ w2 x1+a54 ; rep: buf:= next┆
0x2efc0…2efe0 2e 6d 65 73 73 20 71 20 68 65 61 64 2e 63 75 72 72 20 72 65 63 3b 0a 20 20 20 20 20 20 6a 6c 2e ┆.mess q head.curr rec; jl.┆
0x2efe0…2f000 20 20 20 20 20 20 20 20 6a 34 30 2e 20 20 20 3b 20 20 20 69 66 20 62 75 66 20 3d 20 61 64 64 72 ┆ j40. ; if buf = addr┆
0x2f000…2f020 20 6f 66 20 6d 65 73 73 20 71 20 68 65 61 64 2e 63 75 72 72 20 72 65 63 0a 20 20 20 20 20 20 64 ┆ of mess q head.curr rec d┆
0x2f020…2f040 6c 20 20 77 30 20 20 78 32 2b 61 31 35 32 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 63 ┆l w0 x2+a152 ; then goto c┆
0x2f040…2f060 68 65 63 6b 20 74 69 6d 65 6f 75 74 73 3b 0a 20 20 20 20 20 20 73 73 20 20 77 30 20 20 20 20 20 ┆heck timeouts; ss w0 ┆
0x2f060…2f080 62 31 33 2b 32 20 20 3b 0a 20 20 20 20 20 20 73 78 20 20 20 20 20 20 20 20 20 32 2e 31 20 20 20 ┆b13+2 ; sx 2.1 ┆
0x2f080…2f0a0 20 3b 20 20 20 69 66 20 74 69 6d 65 20 3c 20 74 69 6d 65 2e 62 75 66 0a 20 20 20 20 20 20 6a 6c ┆ ; if time < time.buf jl┆
0x2f0a0…2f0c0 2e 20 20 20 20 20 20 20 20 6a 34 30 2e 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 63 68 ┆. j40. ; then goto ch┆
0x2f0c0…2f0e0 65 63 6b 20 74 69 6d 65 6f 75 74 73 3b 0a 20 20 20 20 20 20 72 73 20 20 77 32 20 20 20 20 20 62 ┆eck timeouts; rs w2 b┆
0x2f0e0…2f100 31 38 20 20 20 20 3b 20 20 20 63 75 72 72 20 62 75 66 3a 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 ┆18 ; curr buf:= buf; ┆
0x2f100…2f120 61 6c 2e 20 77 33 20 20 20 20 20 6a 33 38 2e 20 20 20 3b 20 20 20 6e 6f 20 6f 70 65 72 61 74 69 ┆al. w3 j38. ; no operati┆
0x2f120…2f140 6f 6e 3b 20 63 2e 20 72 65 73 75 6c 74 20 31 2c 20 73 74 61 74 75 73 20 30 3b 0a 20 20 20 20 20 ┆on; c. result 1, status 0; ┆
0x2f140…2f160 20 6a 6c 20 20 20 20 20 20 20 20 20 67 32 36 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 72 65 70 3b ┆ jl g26 ; goto rep;┆
0x2f160…2f180 0a 0a 3b 20 73 63 61 6e 20 74 68 65 20 74 69 6d 65 6f 75 74 20 71 75 65 75 65 20 6f 66 20 64 65 ┆ ; scan the timeout queue of de┆
0x2f180…2f1a0 76 69 63 65 73 20 61 6e 64 20 72 65 73 65 74 20 77 69 74 68 20 74 69 6d 65 6f 75 74 20 72 65 73 ┆vices and reset with timeout res┆
0x2f1a0…2f1c0 75 6c 74 0a 3b 20 66 6f 72 20 74 69 6d 65 72 73 20 77 68 69 63 68 20 68 61 76 65 20 72 75 6e 20 ┆ult ; for timers which have run ┆
0x2f1c0…2f1e0 6f 75 74 2e 20 72 65 74 75 72 6e 20 74 6f 20 77 61 69 74 6e 65 78 74 20 69 6e 20 64 72 69 76 65 ┆out. return to waitnext in drive┆
0x2f1e0…2f200 72 70 72 6f 63 2e 0a 6a 34 30 20 3a 20 64 6c 20 20 77 32 20 20 20 20 20 62 31 33 2b 32 20 20 3b ┆rproc. j40 : dl w2 b13+2 ;┆
0x2f200…2f220 20 63 68 65 63 6b 20 74 69 6d 65 6f 75 74 73 3a 0a 20 20 20 20 20 20 64 6c 20 20 77 30 20 20 20 ┆ check timeouts: dl w0 ┆
0x2f220…2f240 20 20 62 37 30 2b 32 20 20 3b 20 20 20 74 69 6d 65 75 73 65 64 3a 3d 20 74 69 6d 65 20 2d 20 6c ┆ b70+2 ; timeused:= time - l┆
0x2f240…2f260 61 73 74 20 69 6e 73 70 65 63 74 65 64 3b 0a 20 20 20 20 20 20 64 73 20 20 77 32 20 20 20 20 20 ┆ast inspected; ds w2 ┆
0x2f260…2f280 62 37 30 2b 32 20 20 3b 20 20 20 6c 61 73 74 20 69 6e 73 70 65 63 74 65 64 3a 3d 20 74 69 6d 65 ┆b70+2 ; last inspected:= time┆
0x2f280…2f2a0 3b 0a 20 20 20 20 20 20 73 73 20 20 77 32 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 69 66 ┆; ss w2 0 ; if┆
0x2f2a0…2f2c0 20 74 69 6d 65 75 73 65 64 20 3e 3d 20 31 3c 32 34 0a 20 20 20 20 20 20 73 65 20 20 77 31 20 20 ┆ timeused >= 1<24 se w1 ┆
0x2f2c0…2f2e0 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 74 68 65 6e 20 74 69 6d 65 75 73 65 64 3a 3d 20 6d 61 ┆ 0 ; then timeused:= ma┆
0x2f2e0…2f300 78 69 6d 75 6d 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 20 2d 31 20 20 20 20 20 20 3b ┆ximum; al w2 -1 ;┆
0x2f300…2f320 20 20 20 63 2e 20 74 69 6d 65 75 73 65 64 20 69 73 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 65 67 ┆ c. timeused is unsigned integ┆
0x2f320…2f340 65 72 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 20 20 62 36 39 20 20 20 20 3b 20 20 20 ┆er; al w3 b69 ; ┆
0x2f340…2f360 64 65 76 3a 3d 20 61 64 64 72 20 6f 66 20 74 69 6d 65 6f 75 74 20 71 20 68 65 61 64 3b 0a 6a 34 ┆dev:= addr of timeout q head; j4┆
0x2f360…2f380 32 20 3a 20 72 6c 20 20 77 33 20 20 78 33 2b 30 20 20 20 20 20 20 3b 20 72 65 70 3a 20 64 65 76 ┆2 : rl w3 x3+0 ; rep: dev┆
0x2f380…2f3a0 3a 3d 20 6e 65 78 74 2e 64 65 76 3b 0a 6a 34 34 20 3a 20 73 6e 20 20 77 33 20 20 20 20 20 62 36 ┆:= next.dev; j44 : sn w3 b6┆
0x2f3a0…2f3c0 39 20 20 20 20 3b 20 72 65 70 31 3a 20 69 66 20 64 65 76 20 3d 20 61 64 64 72 20 6f 66 20 74 69 ┆9 ; rep1: if dev = addr of ti┆
0x2f3c0…2f3e0 6d 65 6f 75 74 20 71 20 68 65 61 64 0a 20 20 20 20 20 20 6a 65 20 20 20 20 20 20 20 20 28 62 32 ┆meout q head je (b2┆
0x2f3e0…2f400 30 29 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 77 61 69 74 6e 65 78 74 3b 20 63 2e 20 ┆0) ; then goto waitnext; c. ┆