|
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 (0,) 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 (6,) Data for afsnit5
0x06c00…18000 (12,) Data for afsnit6
0x18000…1b300 Data for afsnit7
0x1b300…1c200 Data for afsnit8
0x1c200…24300 (50,) 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 (76,) 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 (77,) 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…2b620 20 20 20 20 20 20 20 20 20 3b 20 20 39 30 3a 20 68 6f 73 74 29 3b 0a 0a 69 39 3a 20 20 30 20 20 ┆ ; 90: host); i9: 0 ┆
0x2b620…2b640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 61 76 65 64 20 73 77 69 74 63 68 0a 0a 69 ┆ ; saved switch i┆
0x2b640…2b660 31 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 61 63 6b 69 6e 67 20 ┆11: ; backing ┆
0x2b660…2b680 73 74 6f 72 65 20 61 72 65 61 3a 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 30 32 ┆store area: jl w3 d102┆
0x2b680…2b6a0 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 75 73 65 72 28 69 6e 74 65 72 6e 61 6c 2c 20 70 72 6f ┆ ; check user(internal, pro┆
0x2b6a0…2b6c0 63 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 33 2e 20 20 20 20 3b 2b 32 20 20 ┆c); jl. r3. ;+2 ┆
0x2b6c0…2b6e0 20 6e 6f 74 20 75 73 65 72 3a 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 33 3b 0a 20 20 20 20 20 6a ┆ not user: goto result 3; j┆
0x2b6e0…2b700 6c 20 20 77 33 20 20 20 20 20 64 31 31 33 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 61 6e 79 20 ┆l w3 d113 ; check any ┆
0x2b700…2b720 72 65 73 65 72 76 65 72 28 69 6e 74 65 72 6e 61 6c 2c 20 70 72 6f 63 29 3b 0a 20 20 20 20 20 6a ┆reserver(internal, proc); j┆
0x2b720…2b740 6c 2e 20 20 20 20 20 20 20 20 72 31 2e 20 20 20 20 3b 2b 32 20 20 20 6f 74 68 65 72 20 72 65 73 ┆l. r1. ;+2 other res┆
0x2b740…2b760 65 72 76 65 72 3a 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 ┆erver: goto result 1; jl. ┆
0x2b760…2b780 20 20 20 20 20 20 72 30 2e 20 20 20 20 3b 2b 34 20 20 20 69 6e 74 65 72 6e 61 6c 20 69 73 20 72 ┆ r0. ;+4 internal is r┆
0x2b780…2b7a0 65 73 65 72 76 65 72 3a 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 30 3b 0a 20 20 20 20 20 72 6c 2e ┆eserver: goto result 0; rl.┆
0x2b7a0…2b7c0 20 77 30 20 20 20 20 20 69 39 2e 20 20 20 20 3b 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 ┆ w0 i9. ; sn w0 ┆
0x2b7c0…2b7e0 20 30 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 6e 0a ┆ 0 ; if initialize then ┆
0x2b7e0…2b800 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 30 2e 20 20 20 20 3b 20 20 20 20 20 20 67 6f ┆ jl. r0. ; go┆
0x2b800…2b820 74 6f 20 72 65 73 75 6c 74 20 30 3b 0a 20 20 20 20 20 64 6c 20 20 77 30 20 20 78 32 2b 61 34 39 ┆to result 0; dl w0 x2+a49┆
0x2b820…2b840 20 20 20 20 3b 20 20 20 20 77 33 77 30 20 3a 3d 20 69 6e 74 65 72 76 61 6c 28 70 72 6f 63 29 3b ┆ ; w3w0 := interval(proc);┆
0x2b840…2b860 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 ┆ al w3 x3+1 ; s┆
0x2b860…2b880 68 20 20 77 30 20 28 78 31 2b 61 34 34 29 20 20 20 3b 20 20 20 20 69 66 20 75 70 70 65 72 28 70 ┆h w0 (x1+a44) ; if upper(p┆
0x2b880…2b8a0 72 6f 63 29 20 3e 20 75 70 70 65 72 28 6d 61 78 28 69 6e 74 65 72 6e 61 6c 29 29 20 6f 72 0a 20 ┆roc) > upper(max(internal)) or ┆
0x2b8a0…2b8c0 20 20 20 20 73 68 20 20 77 33 20 28 78 31 2b 61 34 34 2d 32 29 20 3b 20 20 20 20 20 20 20 6c 6f ┆ sh w3 (x1+a44-2) ; lo┆
0x2b8c0…2b8e0 77 65 72 28 70 72 6f 63 29 20 3c 20 6c 6f 77 65 72 28 6d 61 78 28 69 6e 74 65 72 6e 61 6c 29 29 ┆wer(proc) < lower(max(internal))┆
0x2b8e0…2b900 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 32 2e 20 20 20 20 3b 20 20 ┆ then jl. r2. ; ┆
0x2b900…2b920 20 20 20 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 32 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆ goto result 2; jl. ┆
0x2b920…2b940 20 20 20 72 30 2e 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 69 6e 63 6c 75 64 65 20 72 65 73 65 ┆ r0. ; goto include rese┆
0x2b940…2b960 72 76 65 72 3b 0a 0a 69 33 36 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆rver; i36: ; ┆
0x2b960…2b980 6d 61 69 6e 70 72 6f 63 28 66 70 61 29 3a 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 ┆mainproc(fpa): jl w3 d┆
0x2b980…2b9a0 31 30 32 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 75 73 65 72 28 69 6e 74 65 72 6e 61 6c 2c 20 ┆102 ; check user(internal, ┆
0x2b9a0…2b9c0 70 72 6f 63 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 32 2e 20 20 20 20 3b 2b ┆proc); jl. r2. ;+┆
0x2b9c0…2b9e0 32 20 20 20 6e 6f 74 20 75 73 65 72 3a 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 32 3b 0a 20 20 20 ┆2 not user: goto result 2; ┆
0x2b9e0…2ba00 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 31 33 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 61 ┆ jl w3 d113 ; check a┆
0x2ba00…2ba20 6e 79 20 72 65 73 65 72 76 65 72 28 69 6e 74 65 72 6e 61 6c 2c 20 70 72 6f 63 29 3b 0a 20 20 20 ┆ny reserver(internal, proc); ┆
0x2ba20…2ba40 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 31 2e 20 20 20 20 3b 2b 32 20 20 20 6f 74 68 65 72 20 ┆ jl. r1. ;+2 other ┆
0x2ba40…2ba60 72 65 73 65 72 76 65 72 3a 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 3b 0a 20 20 20 20 20 6a 6c ┆reserver: goto result 1; jl┆
0x2ba60…2ba80 2e 20 20 20 20 20 20 20 20 72 30 2e 20 20 20 20 3b 2b 34 20 20 20 69 6e 74 65 72 6e 61 6c 20 69 ┆. r0. ;+4 internal i┆
0x2ba80…2baa0 73 20 72 65 73 65 72 76 65 72 3a 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 30 3b 0a 20 20 20 20 20 ┆s reserver: goto result 0; ┆
0x2baa0…2bac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2b 36 0a 20 20 20 20 20 72 6c 20 20 77 ┆ ;+6 rl w┆
0x2bac0…2bae0 33 20 20 20 20 20 62 33 20 20 20 20 20 3b 0a 69 35 30 3a 20 61 6c 20 20 77 33 20 20 78 33 2b 32 ┆3 b3 ; i50: al w3 x3+2┆
0x2bae0…2bb00 20 20 20 20 20 20 3b 20 20 20 66 6f 72 20 64 65 76 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 ┆ ; for dev:=0 step 1 unti┆
0x2bb00…2bb20 6c 20 66 6f 75 6e 64 20 64 6f 0a 20 20 20 20 20 73 65 20 20 77 32 20 20 28 78 33 29 20 20 20 20 ┆l found do se w2 (x3) ┆
0x2bb20…2bb40 20 20 3b 20 20 20 20 20 69 66 20 70 72 6f 63 28 64 65 76 29 3d 70 72 6f 63 20 74 68 65 6e 20 66 ┆ ; if proc(dev)=proc then f┆
0x2bb40…2bb60 6f 75 6e 64 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 35 30 2e 20 20 20 3b 0a 20 ┆ound; jl. i50. ; ┆
0x2bb60…2bb80 20 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 69 34 36 2e 20 20 20 3b 0a 20 20 20 20 20 72 6c 20 ┆ rs. w3 i46. ; rl ┆
0x2bb80…2bba0 20 77 32 20 20 78 33 2b 32 20 20 20 20 20 20 3b 20 20 20 72 65 63 3a 3d 70 72 6f 63 28 64 65 76 ┆ w2 x3+2 ; rec:=proc(dev┆
0x2bba0…2bbc0 2b 31 29 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 31 33 20 20 20 3b 20 20 20 ┆+1); jl w3 d113 ; ┆
0x2bbc0…2bbe0 20 63 68 65 63 6b 20 61 6e 79 20 72 65 73 65 72 76 65 72 28 69 6e 74 65 72 6e 61 6c 2c 20 72 65 ┆ check any reserver(internal, re┆
0x2bbe0…2bc00 63 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 31 2e 20 20 20 20 3b 2b 32 20 20 ┆c); jl. r1. ;+2 ┆
0x2bc00…2bc20 20 20 6f 74 68 65 72 20 72 65 73 65 72 76 65 72 3a 20 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 ┆ other reserver: goto result 1┆
0x2bc20…2bc40 3b 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 20 20 20 30 20 20 20 20 20 20 3b 2b 34 20 20 20 20 ┆; am 0 ;+4 ┆
0x2bc40…2bc60 69 6e 74 65 72 6e 61 6c 20 69 73 20 61 6c 72 65 61 64 79 20 72 65 73 65 72 76 65 72 3a 0a 20 20 ┆internal is already reserver: ┆
0x2bc60…2bc80 20 20 20 72 6c 2e 20 77 33 20 20 20 20 20 69 34 36 2e 20 20 20 3b 0a 20 20 20 20 20 72 6c 20 20 ┆ rl. w3 i46. ; rl ┆
0x2bc80…2bca0 77 32 20 20 78 33 2b 34 20 20 20 20 20 20 3b 20 20 20 74 72 6d 3a 3d 70 72 6f 63 28 64 65 76 2b ┆w2 x3+4 ; trm:=proc(dev+┆
0x2bca0…2bcc0 32 29 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 31 33 20 20 20 3b 20 20 20 63 ┆2); jl w3 d113 ; c┆
0x2bcc0…2bce0 68 65 63 6b 20 61 6e 79 20 72 65 73 65 72 76 65 72 28 69 6e 74 65 72 6e 61 6c 2c 74 72 6d 29 3b ┆heck any reserver(internal,trm);┆
0x2bce0…2bd00 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 31 2e 20 20 20 20 3b 20 20 20 69 66 20 6f ┆ jl. r1. ; if o┆
0x2bd00…2bd20 74 68 65 72 20 72 65 73 65 72 76 65 72 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 ┆ther reserver then goto result 1┆
0x2bd20…2bd40 3b 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 69 66 20 ┆; am 0 ; if ┆
0x2bd40…2bd60 61 6c 72 65 61 64 79 20 72 65 73 2e 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 30 3b ┆already res. then goto result 0;┆
0x2bd60…2bd80 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 34 39 2e 20 20 20 3b 20 20 20 67 6f 74 6f ┆ jl. i49. ; goto┆
0x2bd80…2bda0 20 73 65 74 20 72 65 73 75 6c 74 3b 0a 0a 69 33 39 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ set result; i39: ┆
0x2bda0…2bdc0 20 20 20 20 20 3b 20 72 65 63 65 69 76 65 72 28 66 70 61 29 3a 0a 69 34 30 3a 20 20 20 20 20 20 ┆ ; receiver(fpa): i40: ┆
0x2bdc0…2bde0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 72 61 6e 73 6d 69 74 74 65 72 28 66 70 61 29 3a ┆ ; transmitter(fpa):┆
0x2bde0…2be00 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 30 32 20 20 20 3b 20 20 20 20 63 68 65 ┆ jl w3 d102 ; che┆
0x2be00…2be20 (78,) 63 6b 20 75 73 65 72 28 69 6e 74 65 72 6e 61 6c 2c 20 70 72 6f 63 29 3b 0a 20 20 20 20 20 6a 6c ┆ck user(internal, proc); jl┆
0x2be20…2be40 2e 20 20 20 20 20 20 20 20 72 32 2e 20 20 20 20 3b 2b 32 20 20 20 6e 6f 74 20 75 73 65 72 3a 20 ┆. r2. ;+2 not user: ┆
0x2be40…2be60 67 6f 74 6f 20 72 65 73 75 6c 74 20 32 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 ┆goto result 2; jl w3 d┆
0x2be60…2be80 31 31 33 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 61 6e 79 20 72 65 73 65 72 76 65 72 28 69 6e ┆113 ; check any reserver(in┆
0x2be80…2bea0 74 65 72 6e 61 6c 2c 20 70 72 6f 63 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 ┆ternal, proc); jl. r┆
0x2bea0…2bec0 31 2e 20 20 20 20 3b 2b 32 20 20 20 6f 74 68 65 72 20 72 65 73 65 72 76 65 72 3a 20 67 6f 74 6f ┆1. ;+2 other reserver: goto┆
0x2bec0…2bee0 20 72 65 73 75 6c 74 20 31 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 30 2e 20 20 ┆ result 1; jl. r0. ┆
0x2bee0…2bf00 20 20 3b 2b 34 20 20 20 69 6e 74 65 72 6e 61 6c 20 69 73 20 72 65 73 65 72 76 65 72 3a 20 67 6f ┆ ;+4 internal is reserver: go┆
0x2bf00…2bf20 74 6f 20 72 65 73 75 6c 74 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆to result 0; ┆
0x2bf20…2bf40 20 20 20 20 3b 2b 36 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 32 2b 61 35 30 20 20 20 20 3b ┆ ;+6 rl w2 x2+a50 ;┆
0x2bf40…2bf60 20 20 20 6d 61 69 6e 3a 3d 6d 61 69 6e 28 70 72 6f 63 29 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 ┆ main:=main(proc); jl w3┆
0x2bf60…2bf80 20 20 20 20 20 64 31 31 33 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 61 6e 79 20 72 65 73 65 72 ┆ d113 ; check any reser┆
0x2bf80…2bfa0 76 65 72 28 69 6e 74 65 72 6e 61 6c 2c 20 6d 61 69 6e 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 ┆ver(internal, main); jl. ┆
0x2bfa0…2bfc0 20 20 20 20 20 72 31 2e 20 20 20 20 3b 2b 32 20 20 20 20 6f 74 68 65 72 20 72 65 73 65 72 76 65 ┆ r1. ;+2 other reserve┆
0x2bfc0…2bfe0 72 3a 20 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 3b 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 ┆r: goto result 1; am ┆
0x2bfe0…2c000 20 20 20 30 20 20 20 20 20 20 3b 2b 34 20 20 20 20 69 6e 74 65 72 6e 61 6c 20 69 73 20 61 6c 72 ┆ 0 ;+4 internal is alr┆
0x2c000…2c020 65 61 64 79 20 72 65 73 65 72 76 65 72 3a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 ┆eady reserver: jl. i┆
0x2c020…2c040 34 39 2e 20 20 20 3b 20 20 20 67 6f 74 6f 20 73 65 74 72 65 73 75 6c 74 3b 0a 0a 69 32 39 3a 20 ┆49. ; goto setresult; i29: ┆
0x2c040…2c060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 73 65 72 76 65 3a 0a 20 20 20 ┆ ; reserve: ┆
0x2c060…2c080 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 31 33 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 61 ┆ jl w3 d113 ; check a┆
0x2c080…2c0a0 6e 79 20 72 65 73 65 72 76 65 72 28 69 6e 74 65 72 6e 61 6c 2c 20 70 72 6f 63 29 3b 0a 20 20 20 ┆ny reserver(internal, proc); ┆
0x2c0a0…2c0c0 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 31 2e 20 20 20 20 3b 2b 32 20 20 20 6f 74 68 65 72 20 ┆ jl. r1. ;+2 other ┆
0x2c0c0…2c0e0 72 65 73 65 72 76 65 72 3a 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 3b 0a 20 20 20 20 20 6a 6c ┆reserver: goto result 1; jl┆
0x2c0e0…2c100 2e 20 20 20 20 20 20 20 20 72 30 2e 20 20 20 20 3b 2b 34 20 20 20 69 6e 74 65 72 6e 61 6c 20 69 ┆. r0. ;+4 internal i┆
0x2c100…2c120 73 20 72 65 73 65 72 76 65 72 3a 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 30 3b 0a 20 20 20 20 20 ┆s reserver: goto result 0; ┆
0x2c120…2c140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2b 36 0a 69 34 39 3a 20 61 6c 20 20 77 ┆ ;+6 i49: al w┆
0x2c140…2c160 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 73 65 74 72 65 73 75 6c 74 3a 20 20 72 65 73 75 6c ┆0 0 ; setresult: resul┆
0x2c160…2c180 74 20 3a 3d 20 30 3b 0a 20 20 20 20 20 61 6c 2e 20 77 31 20 20 20 20 20 31 20 20 20 20 20 20 3b ┆t := 0; al. w1 1 ;┆
0x2c180…2c1a0 20 20 20 20 77 31 20 3a 3d 20 6f 64 64 2c 20 69 2e 65 2e 20 74 72 61 6e 73 66 6f 72 6d 20 69 6e ┆ w1 := odd, i.e. transform in┆
0x2c1a0…2c1c0 69 74 69 61 6c 69 7a 65 20 74 6f 20 72 65 73 65 72 76 65 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 ┆itialize to reserve; jl. ┆
0x2c1c0…2c1e0 20 20 20 20 20 65 31 2e 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 69 6e 63 6c 75 64 65 20 72 65 ┆ e1. ; goto include re┆
0x2c1e0…2c200 73 65 72 76 65 72 3b 0a 0a 69 33 38 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆server; i38: ┆
0x2c200…2c220 3b 20 73 75 62 70 72 6f 63 28 73 63 63 29 3a 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 ┆; subproc(scc): jl w3 ┆
0x2c220…2c240 64 31 30 32 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 75 73 65 72 28 69 6e 74 65 72 6e 61 6c 2c ┆d102 ; check user(internal,┆
0x2c240…2c260 20 70 72 6f 63 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 32 2e 20 20 20 20 3b ┆ proc); jl. r2. ;┆
0x2c260…2c280 2b 32 20 20 20 20 6e 6f 74 20 75 73 65 72 3a 20 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 32 3b 0a ┆+2 not user: goto result 2; ┆
0x2c280…2c2a0 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 31 33 20 20 20 3b 20 20 20 20 63 68 65 63 ┆ jl w3 d113 ; chec┆
0x2c2a0…2c2c0 6b 20 61 6e 79 20 72 65 73 65 72 76 65 72 28 69 6e 74 65 72 6e 61 6c 2c 20 70 72 6f 63 29 3b 0a ┆k any reserver(internal, proc); ┆
0x2c2c0…2c2e0 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 31 2e 20 20 20 20 3b 2b 32 20 20 20 20 6f 74 ┆ jl. r1. ;+2 ot┆
0x2c2e0…2c300 68 65 72 20 72 65 73 65 72 76 65 72 3a 20 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 3b 0a 20 20 ┆her reserver: goto result 1; ┆
0x2c300…2c320 20 20 20 61 6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2b 34 20 20 20 20 69 6e 74 65 ┆ am ;+4 inte┆
0x2c320…2c340 72 6e 61 6c 20 69 73 20 61 6c 72 65 61 64 79 20 72 65 73 65 72 76 65 72 3a 0a 20 20 20 20 20 61 ┆rnal is already reserver: a┆
0x2c340…2c360 6c 20 20 77 33 20 20 20 20 20 31 20 20 20 20 20 20 3b 20 20 20 20 65 78 74 65 72 6e 61 6c 20 73 ┆l w3 1 ; external s┆
0x2c360…2c380 74 61 74 65 28 70 72 6f 63 29 20 3a 3d 20 69 6e 69 74 69 61 6c 69 7a 65 64 3b 0a 20 20 20 20 20 ┆tate(proc) := initialized; ┆
0x2c380…2c3a0 68 73 20 20 77 33 20 20 78 32 2b 61 35 36 2b 31 20 20 3b 0a 20 20 20 20 20 72 6c 2e 20 77 30 20 ┆hs w3 x2+a56+1 ; rl. w0 ┆
0x2c3a0…2c3c0 20 20 20 20 69 39 2e 20 20 20 20 3b 0a 20 20 20 20 20 62 6c 20 20 77 33 20 20 78 32 2b 61 36 33 ┆ i9. ; bl w3 x2+a63┆
0x2c3c0…2c3e0 20 20 20 20 3b 20 20 20 20 69 66 20 73 75 62 6b 69 6e 64 28 70 72 6f 63 29 20 3c 3e 20 74 79 70 ┆ ; if subkind(proc) <> typ┆
0x2c3e0…2c400 65 77 72 69 74 65 72 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 ┆ewriter sn w0 0 ;┆
0x2c400…2c420 20 20 20 20 20 20 6f 72 20 72 65 73 65 72 76 65 20 70 72 6f 63 65 73 73 20 74 68 65 6e 0a 20 20 ┆ or reserve process then ┆
0x2c420…2c440 20 20 20 73 65 20 20 77 33 20 20 20 20 20 38 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6d 20 20 ┆ se w3 8 ; am ┆
0x2c440…2c460 20 20 20 20 20 20 20 31 20 20 20 20 20 20 3b 20 20 20 20 20 20 6d 61 6b 65 20 77 31 20 6f 64 64 ┆ 1 ; make w1 odd┆
0x2c460…2c480 3b 20 20 69 2e 65 2e 20 69 6e 64 69 63 61 74 65 20 72 65 73 65 72 76 65 2e 2e 2e 0a 20 20 20 20 ┆; i.e. indicate reserve... ┆
0x2c480…2c4a0 20 61 6c 2e 20 77 31 20 20 20 20 20 30 3b 68 65 72 65 20 3b 20 20 20 20 65 6c 73 65 20 77 31 20 ┆ al. w1 0;here ; else w1 ┆
0x2c4a0…2c4c0 3d 20 65 76 65 6e 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b ┆= even; al w0 0 ;┆
0x2c4c0…2c4e0 20 20 20 20 72 65 73 75 6c 74 20 3a 3d 20 30 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 ┆ result := 0; jl. ┆
0x2c4e0…2c500 20 65 31 2e 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 69 6e 63 6c 75 64 65 20 72 65 73 65 72 76 ┆ e1. ; goto include reserv┆
0x2c500…2c520 65 72 3b 0a 0a 69 31 37 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 64 69 ┆er; i17: ; di┆
0x2c520…2c540 73 63 20 64 72 69 76 65 72 3a 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 30 32 20 ┆sc driver: jl w3 d102 ┆
0x2c540…2c560 20 20 3b 20 20 20 63 68 65 63 6b 20 75 73 65 72 28 69 6e 74 65 72 6e 61 6c 2c 70 72 6f 63 29 3b ┆ ; check user(internal,proc);┆
0x2c560…2c580 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 32 2e 20 20 20 20 3b 20 20 20 69 66 20 6e ┆ jl. r2. ; if n┆
0x2c580…2c5a0 6f 74 20 75 73 65 72 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 32 3b 0a 20 20 20 20 ┆ot user then goto result 2; ┆
0x2c5a0…2c5c0 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 31 33 20 20 20 3b 20 20 20 63 68 65 63 6b 20 61 6e 79 ┆ jl w3 d113 ; check any┆
0x2c5c0…2c5e0 20 72 65 73 65 72 76 65 72 28 69 6e 74 65 72 6e 61 6c 2c 70 72 6f 63 29 3b 0a 20 20 20 20 20 6a ┆ reserver(internal,proc); j┆
0x2c5e0…2c600 6c 2e 20 20 20 20 20 20 20 20 72 31 2e 20 20 20 20 3b 20 20 20 69 66 20 6f 74 68 65 72 20 72 65 ┆l. r1. ; if other re┆
0x2c600…2c620 73 65 72 76 65 72 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 3b 0a 20 20 20 20 20 ┆server then goto result 1; ┆
0x2c620…2c640 6a 6c 2e 20 20 20 20 20 20 20 20 72 30 2e 20 20 20 20 3b 20 20 20 69 66 20 61 6c 72 65 61 64 79 ┆jl. r0. ; if already┆
0x2c640…2c660 20 72 65 73 2e 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 30 3b 0a 20 20 20 20 20 72 ┆ res. then goto result 0; r┆
0x2c660…2c680 6c 2e 20 77 30 20 20 20 20 20 69 39 2e 20 20 20 20 3b 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 ┆l. w0 i9. ; sn w0 ┆
0x2c680…2c6a0 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 69 66 20 73 77 69 74 63 68 20 3d 20 72 65 73 65 72 76 ┆ 0 ; if switch = reserv┆
0x2c6a0…2c6c0 65 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 34 35 2e 20 20 20 3b 20 ┆e then jl. i45. ; ┆
0x2c6c0…2c6e0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 32 2b 61 35 30 20 20 20 20 3b ┆ begin rl w2 x2+a50 ;┆
0x2c6e0…2c700 20 20 20 20 20 6d 61 69 6e 3a 3d 20 6d 61 69 6e 70 72 6f 63 2e 70 72 6f 63 3b 0a 20 20 20 20 20 ┆ main:= mainproc.proc; ┆
0x2c700…2c720 (79,) 73 6e 20 20 77 32 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 20 69 66 20 6d 61 69 6e 20 ┆sn w2 0 ; if main ┆
0x2c720…2c740 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 34 32 2e 20 20 ┆<> 0 then jl. i42. ┆
0x2c740…2c760 20 3b 20 20 20 20 20 62 65 67 69 6e 20 63 2e 20 6c 6f 67 69 63 61 6c 20 64 72 69 76 65 72 3b 0a ┆ ; begin c. logical driver; ┆
0x2c760…2c780 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 31 33 20 20 20 3b 20 20 20 20 20 20 20 63 ┆ jl w3 d113 ; c┆
0x2c780…2c7a0 68 65 63 6b 20 61 6e 79 20 72 65 73 65 72 76 65 72 28 69 6e 74 65 72 6e 61 6c 2c 6d 61 69 6e 29 ┆heck any reserver(internal,main)┆
0x2c7a0…2c7c0 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 31 2e 20 20 20 20 3b 20 20 20 20 20 20 ┆; jl. r1. ; ┆
0x2c7c0…2c7e0 20 69 66 20 6f 74 68 65 72 20 72 65 73 2e 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 ┆ if other res. then goto result ┆
0x2c7e0…2c800 31 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 30 2e 20 20 20 20 3b 20 20 20 20 20 ┆1; jl. r0. ; ┆
0x2c800…2c820 20 20 69 66 20 61 6c 72 65 61 64 79 20 72 65 73 2e 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 73 75 ┆ if already res. then goto resu┆
0x2c820…2c840 6c 74 20 30 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 34 35 2e 20 20 20 3b 20 20 ┆lt 0; jl. i45. ; ┆
0x2c840…2c860 20 20 20 65 6e 64 20 65 6c 73 65 0a 69 34 32 3a 20 72 73 2e 20 77 32 20 20 20 20 20 69 34 36 2e ┆ end else i42: rs. w2 i46.┆
0x2c860…2c880 20 20 20 3b 20 20 20 20 20 62 65 67 69 6e 20 63 2e 20 70 68 79 73 69 63 61 6c 20 64 72 69 76 65 ┆ ; begin c. physical drive┆
0x2c880…2c8a0 72 3b 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 20 20 20 62 34 20 20 20 20 20 3b 20 20 20 20 20 ┆r; rl w2 b4 ; ┆
0x2c8a0…2c8c0 20 20 69 3a 3d 20 61 64 64 72 20 6f 66 20 31 73 74 20 64 65 76 69 63 65 20 69 6e 20 6e 61 6d 65 ┆ i:= addr of 1st device in name┆
0x2c8c0…2c8e0 74 61 62 3b 0a 69 34 33 3a 20 72 73 2e 20 77 32 20 20 20 20 20 69 34 37 2e 20 20 20 3b 20 20 20 ┆tab; i43: rs. w2 i47. ; ┆
0x2c8e0…2c900 20 20 20 20 72 65 70 65 61 74 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 32 2b 30 20 20 20 20 ┆ repeat rl w2 x2+0 ┆
0x2c900…2c920 20 20 3b 20 20 20 20 20 20 20 20 20 70 72 6f 63 3a 3d 20 6e 61 6d 65 74 61 62 6c 65 28 69 29 3b ┆ ; proc:= nametable(i);┆
0x2c920…2c940 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 61 31 30 20 20 20 20 3b 0a 20 20 20 20 20 72 ┆ rl w3 x2+a10 ; r┆
0x2c940…2c960 6c 20 20 77 30 20 20 78 32 2b 61 35 30 20 20 20 20 3b 0a 20 20 20 20 20 73 6e 20 20 77 33 20 20 ┆l w0 x2+a50 ; sn w3 ┆
0x2c960…2c980 20 20 20 36 32 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 69 66 20 6b 69 6e 64 2e 70 72 6f 63 ┆ 62 ; if kind.proc┆
0x2c980…2c9a0 20 3d 20 36 32 0a 20 20 20 20 20 73 65 2e 20 77 30 20 20 20 20 28 69 34 36 2e 29 20 20 3b 20 20 ┆ = 62 se. w0 (i46.) ; ┆
0x2c9a0…2c9c0 20 20 20 20 20 20 20 61 6e 64 20 6d 61 69 6e 70 72 6f 63 2e 70 72 6f 63 20 3d 20 6d 61 69 6e 20 ┆ and mainproc.proc = main ┆
0x2c9c0…2c9e0 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 34 34 2e 20 20 20 3b 20 20 20 ┆then jl. i44. ; ┆
0x2c9e0…2ca00 20 20 20 20 20 20 62 65 67 69 6e 20 63 2e 20 6c 6f 67 69 63 61 6c 20 64 72 69 76 65 72 3b 0a 20 ┆ begin c. logical driver; ┆
0x2ca00…2ca20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 31 33 20 20 20 3b 20 20 20 20 20 20 20 20 20 ┆ jl w3 d113 ; ┆
0x2ca20…2ca40 20 20 63 68 65 63 6b 20 61 6e 79 20 72 65 73 2e 28 69 6e 74 65 72 6e 61 6c 2c 70 72 6f 63 29 3b ┆ check any res.(internal,proc);┆
0x2ca40…2ca60 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 72 31 2e 20 20 20 20 3b 20 20 20 20 20 20 20 ┆ jl. r1. ; ┆
0x2ca60…2ca80 20 20 20 20 69 66 20 6f 74 68 65 72 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 3b ┆ if other then goto result 1;┆
0x2ca80…2caa0 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 34 34 2e 20 20 20 3b 20 20 20 20 20 20 20 ┆ jl. i44. ; ┆
0x2caa0…2cac0 20 20 65 6e 64 3b 0a 69 34 34 3a 20 61 6d 2e 20 20 20 20 20 20 20 28 69 34 37 2e 29 20 20 3b 0a ┆ end; i44: am. (i47.) ; ┆
0x2cac0…2cae0 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 20 20 32 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 ┆ al w2 2 ; ┆
0x2cae0…2cb00 20 69 3a 3d 20 69 20 2b 20 32 0a 20 20 20 20 20 73 65 20 20 77 32 20 20 20 20 28 62 35 29 20 20 ┆ i:= i + 2 se w2 (b5) ┆
0x2cb00…2cb20 20 20 3b 20 20 20 20 20 20 20 75 6e 74 69 6c 20 69 20 3d 20 31 73 74 20 61 72 65 61 20 69 6e 20 ┆ ; until i = 1st area in ┆
0x2cb20…2cb40 6e 61 6d 65 74 61 62 6c 65 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 34 33 2e 20 ┆nametable; jl. i43. ┆
0x2cb40…2cb60 20 20 3b 20 20 20 20 20 65 6e 64 3b 0a 69 34 35 3a 20 61 6c 20 20 77 30 20 20 20 20 20 30 20 20 ┆ ; end; i45: al w0 0 ┆
0x2cb60…2cb80 20 20 20 20 3b 20 20 20 65 6e 64 3b 20 20 72 65 73 75 6c 74 3a 3d 20 30 3b 0a 20 20 20 20 20 61 ┆ ; end; result:= 0; a┆
0x2cb80…2cba0 6c 2e 20 77 31 20 20 20 20 20 31 20 20 20 20 20 20 3b 20 20 20 77 31 3a 3d 20 6f 64 64 3b 20 63 ┆l. w1 1 ; w1:= odd; c┆
0x2cba0…2cbc0 2e 20 63 68 61 6e 67 65 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 6f 20 72 65 73 2e 3b 0a 20 20 20 ┆. change initialize to res.; ┆
0x2cbc0…2cbe0 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 65 31 2e 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 69 6e 63 ┆ jl. e1. ; goto inc┆
0x2cbe0…2cc00 6c 75 64 65 20 72 65 73 65 72 76 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆lude reserver; ┆
0x2cc00…2cc20 20 20 20 20 20 20 3b 0a 69 34 36 3a 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ ; i46: 0 ;┆
0x2cc20…2cc40 20 73 61 76 65 64 20 6d 61 69 6e 70 72 6f 63 0a 69 34 37 3a 20 30 20 20 20 20 20 20 20 20 20 20 ┆ saved mainproc i47: 0 ┆
0x2cc40…2cc60 20 20 20 20 20 20 20 3b 20 73 61 76 65 64 20 6e 61 6d 65 74 61 62 6c 65 20 61 64 64 72 65 73 73 ┆ ; saved nametable address┆
0x2cc60…2cc80 0a 0a 69 34 38 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 63 38 36 30 ┆ i48: ; rc860┆
0x2cc80…2cca0 31 3a 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 64 31 30 32 20 20 20 20 20 20 3b 20 20 63 68 65 ┆1: jl w3 d102 ; che┆
0x2cca0…2ccc0 63 6b 20 75 73 65 72 28 69 6e 74 65 72 6e 61 6c 2c 20 70 72 6f 63 29 3b 0a 20 20 20 20 20 6a 6c ┆ck user(internal, proc); jl┆
0x2ccc0…2cce0 2e 20 20 20 20 20 72 32 2e 20 20 20 20 20 20 20 3b 20 20 20 20 20 6e 6f 74 20 75 73 65 72 3a 20 ┆. r2. ; not user: ┆
0x2cce0…2cd00 67 6f 74 6f 20 72 65 73 75 6c 74 32 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 64 31 31 33 20 ┆goto result2; jl w3 d113 ┆
0x2cd00…2cd20 20 20 20 20 20 3b 20 20 20 63 68 65 63 6b 20 61 6e 79 20 72 65 73 65 72 76 65 72 28 69 6e 74 65 ┆ ; check any reserver(inte┆
0x2cd20…2cd40 72 6e 61 6c 2c 20 70 72 6f 63 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 72 31 2e 20 20 20 ┆rnal, proc); jl. r1. ┆
0x2cd40…2cd60 20 20 20 20 3b 20 20 20 20 20 6f 74 68 65 72 20 72 65 73 65 72 76 65 72 3a 20 67 6f 74 6f 20 72 ┆ ; other reserver: goto r┆
0x2cd60…2cd80 65 73 75 6c 74 31 3b 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆esult1; am ;┆
0x2cd80…2cda0 20 20 20 20 20 61 6c 6c 72 65 61 64 79 20 72 65 73 65 72 76 65 72 3a 0a 20 20 20 20 20 6a 6c 2e ┆ allready reserver: jl.┆
0x2cda0…2cdc0 20 20 20 20 20 69 34 39 2e 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 64 65 6c 69 76 65 72 20 ┆ i49. ; goto deliver ┆
0x2cdc0…2cde0 61 6e 73 77 65 72 3b 0a 0a 69 33 30 20 3d 20 65 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆answer; i30 = e0 ┆
0x2cde0…2ce00 3b 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; internal process ┆
0x2ce00…2ce20 20 20 20 20 20 20 20 20 20 20 3b 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 0a 0a 69 33 31 20 ┆ ; pseudo process i31 ┆
0x2ce20…2ce40 3d 20 65 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 74 65 72 76 61 6c 20 63 6c ┆= e0 ; interval cl┆
0x2ce40…2ce60 6f 63 6b 0a 69 33 34 20 3d 20 65 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 6d ┆ock i34 = e0 ; rem┆
0x2ce60…2ce80 6f 74 65 72 20 70 72 6f 63 65 73 73 0a 69 33 37 20 3d 20 65 30 20 20 20 20 20 20 20 20 20 20 20 ┆oter process i37 = e0 ┆
0x2ce80…2cea0 20 20 20 20 3b 20 73 75 62 68 6f 73 74 20 70 72 6f 63 65 73 73 0a 69 34 31 20 3d 20 65 30 20 20 ┆ ; subhost process i41 = e0 ┆
0x2cea0…2cec0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 68 6f 73 74 20 70 72 6f 63 65 73 73 0a 69 35 31 3d ┆ ; host process i51=┆
0x2cec0…2cee0 65 30 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 63 38 36 30 32 0a 0a 65 2e 20 20 20 20 20 20 20 ┆e0 ; rc8602 e. ┆
0x2cee0…2cf00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 69 6e 69 74 69 61 6c 69 7a ┆ ; end of initializ┆
0x2cf00…2cf20 65 2f 72 65 73 65 72 76 65 20 70 72 6f 63 65 73 73 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 ┆e/reserve process e. ┆
0x2cf20…2cf40 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 64 72 69 76 65 72 20 63 65 6e 74 72 61 6c ┆ ; end of driver central┆
0x2cf40…2cf60 20 6c 6f 67 69 63 0a 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 ┆ logic ; pej 23.01.78 clock┆
0x2cf60…2cf80 20 64 72 69 76 65 72 0a 0a 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ driver ; ---------------------┆
0x2cf80…2cfa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2cfa0…2cfc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 20 6c ┆------------ ; c l┆
0x2cfc0…2cfe0 20 6f 20 63 20 6b 20 20 20 64 20 72 20 69 20 76 20 65 20 72 20 20 20 63 20 6f 20 64 20 65 0a 0a ┆ o c k d r i v e r c o d e ┆
0x2cfe0…2d000 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆; ------------------------------┆
0x2d000…2d020 (80,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2d020…2d040 2d 2d 2d 0a 0a 3b 20 74 68 69 73 20 73 65 63 74 69 6f 6e 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 ┆--- ; this section contains the┆
0x2d040…2d060 20 63 6f 64 65 20 65 78 65 63 75 74 65 64 20 62 79 20 64 72 69 76 65 72 70 72 6f 63 20 66 6f 72 ┆ code executed by driverproc for┆
0x2d060…2d080 0a 3b 20 70 72 6f 63 65 73 73 69 6e 67 20 6d 65 73 73 61 67 65 73 20 74 6f 20 74 68 65 20 63 6c ┆ ; processing messages to the cl┆
0x2d080…2d0a0 6f 63 6b 64 72 69 76 65 72 20 61 6e 64 20 66 6f 72 20 65 78 65 63 75 74 69 6e 67 20 6f 74 68 65 ┆ockdriver and for executing othe┆
0x2d0a0…2d0c0 72 0a 3b 20 61 63 74 69 6f 6e 73 20 72 65 6c 61 74 65 64 20 74 6f 20 74 68 65 20 72 65 61 6c 20 ┆r ; actions related to the real ┆
0x2d0c0…2d0e0 74 69 6d 65 20 63 6c 6f 63 6b 2e 0a 3b 0a 3b 20 6d 65 73 73 61 67 65 73 20 68 61 76 65 20 74 68 ┆time clock. ; ; messages have th┆
0x2d0e0…2d100 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 6f 72 6d 61 74 3a 0a 3b 0a 3b 20 64 65 6c 61 79 20 20 20 ┆e following format: ; ; delay ┆
0x2d100…2d120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 3c 31 32 2b 6d 6f 64 65 0a 3b 20 20 20 20 20 20 ┆ 0<12+mode ; ┆
0x2d120…2d140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 63 6f 6e 64 73 20 20 20 6f 72 20 20 ┆ seconds or ┆
0x2d140…2d160 20 69 6e 74 65 72 76 61 6c 28 30 3a 32 33 29 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ interval(0:23) ; ┆
0x2d160…2d180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c ┆ interval┆
0x2d180…2d1a0 28 32 34 3a 34 37 29 0a 3b 0a 3b 20 77 61 69 74 20 66 6f 72 20 63 6c 6f 63 6b 63 68 61 6e 67 65 ┆(24:47) ; ; wait for clockchange┆
0x2d1a0…2d1c0 20 20 20 32 3c 31 32 2b 6d 6f 64 65 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2<12+mode ; ┆
0x2d1c0…2d1e0 20 20 20 20 20 20 73 65 63 6f 6e 64 73 20 20 20 6f 72 20 20 20 69 6e 74 65 72 76 61 6c 28 30 3a ┆ seconds or interval(0:┆
0x2d1e0…2d200 32 33 29 0a 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 20 20 20 ┆23) ; ┆
0x2d200…2d220 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 28 32 34 3a 34 37 29 0a 3b 0a 3b 20 ┆ interval(24:47) ; ; ┆
0x2d220…2d240 77 61 69 74 20 66 6f 72 20 70 6f 77 65 72 20 72 65 73 74 61 72 74 20 34 3c 31 32 2b 6d 6f 64 65 ┆wait for power restart 4<12+mode┆
0x2d240…2d260 0a 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 73 65 63 6f 6e 64 ┆ ; second┆
0x2d260…2d280 73 20 20 20 6f 72 20 20 20 69 6e 74 65 72 76 61 6c 28 30 3a 32 33 29 0a 3b 20 20 20 20 20 20 20 ┆s or interval(0:23) ; ┆
0x2d280…2d2a0 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 ┆ ┆
0x2d2a0…2d2c0 69 6e 74 65 72 76 61 6c 28 32 34 3a 34 37 29 0a 3b 0a 3b 20 61 20 6d 61 78 69 6d 75 6d 20 64 65 ┆interval(24:47) ; ; a maximum de┆
0x2d2c0…2d2e0 6c 61 79 20 69 73 20 73 70 65 63 69 66 69 65 64 20 62 79 20 73 65 63 6f 6e 64 73 20 6f 72 20 69 ┆lay is specified by seconds or i┆
0x2d2e0…2d300 6e 74 65 72 76 61 6c 20 65 71 75 61 6c 20 74 6f 20 2d 31 2e 0a 3b 0a 3b 20 6d 6f 64 65 20 63 6f ┆nterval equal to -1. ; ; mode co┆
0x2d300…2d320 6e 73 69 73 74 73 20 6f 66 20 61 20 73 75 6d 20 6f 66 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 6f ┆nsists of a sum of one or more o┆
0x2d320…2d340 66 20 66 6f 6c 6c 6f 77 69 6e 67 20 76 61 6c 75 65 73 3a 0a 3b 0a 3b 20 20 20 32 20 20 20 74 69 ┆f following values: ; ; 2 ti┆
0x2d340…2d360 6d 65 20 69 6e 74 65 72 76 61 6c 20 69 6e 20 30 2e 31 20 6d 73 65 63 73 2e 20 69 66 20 6e 6f 74 ┆me interval in 0.1 msecs. if not┆
0x2d360…2d380 20 75 73 65 64 20 74 68 65 6e 20 73 65 63 6f 6e 64 73 2e 0a 3b 20 20 20 34 20 20 20 72 65 61 6c ┆ used then seconds. ; 4 real┆
0x2d380…2d3a0 20 74 69 6d 65 20 64 65 6c 61 79 2c 20 69 2e 65 2e 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 ┆ time delay, i.e. the message is┆
0x2d3a0…2d3c0 20 72 65 74 75 72 6e 65 64 20 77 68 65 6e 20 74 68 65 0a 3b 20 20 20 20 20 20 20 63 6c 6f 63 6b ┆ returned when the ; clock┆
0x2d3c0…2d3e0 20 72 65 61 63 68 65 73 20 74 68 65 20 76 61 6c 75 65 3a 0a 3b 20 20 20 20 20 20 20 20 20 63 75 ┆ reaches the value: ; cu┆
0x2d3e0…2d400 72 72 20 76 61 6c 75 65 20 6f 66 20 72 65 61 6c 20 74 69 6d 65 20 63 6c 6f 63 6b 20 2b 20 64 65 ┆rr value of real time clock + de┆
0x2d400…2d420 6c 61 79 0a 3b 20 20 20 20 20 20 20 69 66 20 6e 6f 74 20 75 73 65 64 2c 20 61 6e 20 65 66 66 65 ┆lay ; if not used, an effe┆
0x2d420…2d440 63 74 69 76 65 20 64 65 6c 61 79 20 69 73 20 73 70 65 63 69 66 69 65 64 2c 20 69 2e 65 2e 20 74 ┆ctive delay is specified, i.e. t┆
0x2d440…2d460 68 65 0a 3b 20 20 20 20 20 20 20 6d 65 73 73 61 67 65 20 77 69 6c 6c 20 62 65 20 72 65 74 75 72 ┆he ; message will be retur┆
0x2d460…2d480 6e 65 64 20 77 68 65 6e 20 69 74 20 68 61 73 20 62 65 65 6e 20 69 6e 20 74 68 65 20 65 76 65 6e ┆ned when it has been in the even┆
0x2d480…2d4a0 74 0a 3b 20 20 20 20 20 20 20 71 75 65 75 65 20 61 73 20 6c 6f 6e 67 20 61 73 20 73 70 65 63 69 ┆t ; queue as long as speci┆
0x2d4a0…2d4c0 66 69 65 64 2e 0a 3b 0a 3b 20 74 68 65 20 61 6e 73 77 65 72 20 68 61 73 20 74 68 65 20 66 6f 6c ┆fied. ; ; the answer has the fol┆
0x2d4c0…2d4e0 6c 6f 77 69 6e 67 20 66 6f 72 6d 61 74 3a 0a 3b 20 20 20 73 74 61 74 75 73 77 6f 72 64 2c 20 62 ┆lowing format: ; statusword, b┆
0x2d4e0…2d500 69 74 30 20 3d 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 20 28 73 65 65 20 62 65 6c 6f 77 29 0a 3b ┆it0 = intervention (see below) ;┆
0x2d500…2d520 20 20 20 30 0a 3b 20 20 20 30 0a 3b 0a 3b 20 6d 65 73 73 61 67 65 73 20 72 65 63 65 69 76 65 64 ┆ 0 ; 0 ; ; messages received┆
0x2d520…2d540 20 61 72 65 20 6c 69 6e 6b 65 64 20 74 6f 20 74 68 65 20 63 6c 6f 63 6b 20 70 72 6f 63 65 73 73 ┆ are linked to the clock process┆
0x2d540…2d560 20 69 6e 20 61 73 63 65 6e 64 69 6e 67 0a 3b 20 6f 72 64 65 72 20 77 69 74 68 20 72 65 73 70 65 ┆ in ascending ; order with respe┆
0x2d560…2d580 63 74 20 74 6f 20 63 61 6c 63 75 6c 61 74 65 64 20 74 69 6d 65 20 66 6f 72 20 65 78 70 69 72 61 ┆ct to calculated time for expira┆
0x2d580…2d5a0 74 69 6f 6e 20 6f 66 20 64 65 6c 61 79 2e 0a 3b 20 61 74 20 65 61 63 68 20 63 6c 6f 63 6b 20 69 ┆tion of delay. ; at each clock i┆
0x2d5a0…2d5c0 6e 74 65 72 72 75 70 74 20 74 68 65 20 71 75 65 75 65 20 69 73 20 73 63 61 6e 6e 65 64 20 61 6e ┆nterrupt the queue is scanned an┆
0x2d5c0…2d5e0 64 20 6d 65 73 73 61 67 65 73 20 77 68 69 63 68 0a 3b 20 68 61 76 65 20 72 65 61 63 68 65 64 20 ┆d messages which ; have reached ┆
0x2d5e0…2d600 74 68 65 20 65 78 70 69 72 61 74 69 6f 6e 20 74 69 6d 65 20 61 72 65 20 72 65 74 75 72 6e 65 64 ┆the expiration time are returned┆
0x2d600…2d620 2e 20 61 6c 73 6f 20 61 74 20 65 61 63 68 0a 3b 20 63 6c 6f 63 6b 20 69 6e 74 65 72 72 75 70 74 ┆. also at each ; clock interrupt┆
0x2d620…2d640 20 74 68 65 20 74 69 6d 65 6f 75 74 20 71 75 65 75 65 20 6f 66 20 64 65 76 69 63 65 73 20 69 73 ┆ the timeout queue of devices is┆
0x2d640…2d660 20 73 63 61 6e 6e 65 64 2e 0a 3b 20 74 69 6d 65 72 73 20 77 68 69 63 68 20 68 61 76 65 20 72 75 ┆ scanned. ; timers which have ru┆
0x2d660…2d680 6e 20 6f 75 74 20 63 61 75 73 65 20 74 68 65 20 63 6c 6f 63 6b 20 74 6f 20 72 65 73 65 74 20 74 ┆n out cause the clock to reset t┆
0x2d680…2d6a0 68 65 20 64 65 76 69 63 65 0a 3b 20 77 69 74 68 20 74 69 6d 65 6f 75 74 20 73 74 61 74 75 73 2e ┆he device ; with timeout status.┆
0x2d6a0…2d6c0 0a 3b 0a 3b 20 61 66 74 65 72 20 70 6f 77 65 72 20 72 65 73 74 61 72 74 20 61 6c 6c 20 64 65 76 ┆ ; ; after power restart all dev┆
0x2d6c0…2d6e0 69 63 65 73 20 61 72 65 20 72 65 73 65 74 20 77 69 74 68 20 70 6f 77 65 72 20 72 65 73 74 61 72 ┆ices are reset with power restar┆
0x2d6e0…2d700 74 0a 3b 20 72 65 73 75 6c 74 20 61 6e 64 20 6d 65 73 73 61 67 65 73 20 77 61 69 74 69 6e 67 20 ┆t ; result and messages waiting ┆
0x2d700…2d720 66 6f 72 20 70 6f 77 65 72 20 72 65 73 74 61 72 74 20 61 72 65 20 72 65 74 75 72 6e 65 64 20 77 ┆for power restart are returned w┆
0x2d720…2d740 69 74 68 0a 3b 20 73 74 61 74 75 73 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 2e 0a 3b 0a 3b 20 61 ┆ith ; status intervention. ; ; a┆
0x2d740…2d760 66 74 65 72 20 61 20 63 68 61 6e 67 65 20 6f 66 20 63 6c 6f 63 6b 20 28 6d 6f 6e 69 74 6f 72 20 ┆fter a change of clock (monitor ┆
0x2d760…2d780 70 72 6f 63 65 64 75 72 65 20 73 65 74 20 63 6c 6f 63 6b 29 20 6d 65 73 73 61 67 65 73 0a 3b 20 ┆procedure set clock) messages ; ┆
0x2d780…2d7a0 77 61 69 74 69 6e 67 20 66 6f 72 20 63 6c 6f 63 6b 63 68 61 6e 67 65 20 61 72 65 20 72 65 74 75 ┆waiting for clockchange are retu┆
0x2d7a0…2d7c0 72 6e 65 64 20 77 69 74 68 20 73 74 61 74 75 73 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 2e 0a 3b ┆rned with status intervention. ;┆
0x2d7c0…2d7e0 20 74 68 65 20 73 61 6d 65 20 69 73 20 70 65 72 66 6f 72 6d 65 64 20 61 74 20 6d 6f 64 65 20 34 ┆ the same is performed at mode 4┆
0x2d7e0…2d800 2d 6d 65 73 73 61 67 65 73 20 69 66 20 74 68 65 20 6e 65 77 20 63 6c 6f 63 6b 76 61 6c 75 65 0a ┆-messages if the new clockvalue ┆
0x2d800…2d820 3b 20 65 78 63 65 65 64 73 20 74 68 65 20 63 61 6c 63 75 6c 61 74 65 64 20 65 78 70 69 72 61 74 ┆; exceeds the calculated expirat┆
0x2d820…2d840 69 6f 6e 20 74 69 6d 65 2e 20 6d 65 73 73 61 67 65 73 20 6e 6f 74 20 75 73 69 6e 67 20 6d 6f 64 ┆ion time. messages not using mod┆
0x2d840…2d860 65 0a 3b 20 34 20 77 69 6c 6c 20 68 61 76 65 20 74 68 65 20 65 78 70 65 63 74 65 64 20 65 78 70 ┆e ; 4 will have the expected exp┆
0x2d860…2d880 69 72 61 74 69 6f 6e 20 74 69 6d 65 20 61 64 6a 75 73 74 65 64 20 61 63 63 6f 72 64 69 6e 67 20 ┆iration time adjusted according ┆
0x2d880…2d8a0 74 6f 0a 3b 20 74 68 65 20 63 6c 6f 63 6b 63 68 61 6e 67 65 20 61 6e 64 20 74 68 65 20 65 6e 74 ┆to ; the clockchange and the ent┆
0x2d8a0…2d8c0 69 72 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 0a ┆ire message queue is resorted. ┆
0x2d8c0…2d8e0 0a 0a 6d 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 63 6c 6f 63 6b 20 28 6d 6f ┆ m. monclock (mo┆
0x2d8e0…2d900 6e 69 74 6f 72 20 69 6e 74 65 72 76 61 6c 20 63 6c 6f 63 6b 20 64 72 69 76 65 72 29 0a 0a 0a 62 ┆nitor interval clock driver) b┆
0x2d900…2d920 (81,) 2e 20 69 31 30 2c 20 6a 36 30 2c 20 61 30 3d 31 3c 32 33 2c 20 77 2e 20 3b 20 62 6c 6f 63 6b 20 ┆. i10, j60, a0=1<23, w. ; block ┆
0x2d920…2d940 69 6e 63 6c 75 64 69 6e 67 20 63 6c 6f 63 6b 20 64 72 69 76 65 72 0a 0c 3b 20 70 65 6a 20 32 33 ┆including clock driver ; pej 23┆
0x2d940…2d960 2e 30 31 2e 37 38 20 20 20 20 63 6c 6f 63 6b 20 64 72 69 76 65 72 0a 0a 3b 20 6d 20 65 20 73 20 ┆.01.78 clock driver ; m e s ┆
0x2d960…2d980 73 20 61 20 67 20 65 20 20 20 72 20 65 20 63 20 65 20 69 20 76 20 65 20 64 0a 3b 20 2d 2d 2d 2d ┆s a g e r e c e i v e d ; ----┆
0x2d980…2d9a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2d9a0…2d9c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 0a 3b 20 ┆--------------------------- ; ; ┆
0x2d9c0…2d9e0 74 68 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 65 6e 74 65 72 65 64 20 77 68 65 6e 20 64 72 69 ┆this routine is entered when dri┆
0x2d9e0…2da00 76 65 72 70 72 6f 63 20 72 65 63 65 69 76 65 73 20 61 20 6d 65 73 73 61 67 65 20 66 6f 72 0a 3b ┆verproc receives a message for ;┆
0x2da00…2da20 20 74 68 65 20 63 6c 6f 63 6b 2e 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 63 68 65 63 6b ┆ the clock. the message is check┆
0x2da20…2da40 65 64 20 61 6e 64 20 74 69 6d 65 20 28 63 6c 6f 63 6b 76 61 6c 75 65 29 20 66 6f 72 0a 3b 20 65 ┆ed and time (clockvalue) for ; e┆
0x2da40…2da60 78 70 69 72 61 74 69 6f 6e 20 6f 66 20 64 65 6c 61 79 20 69 73 20 69 6e 73 65 72 74 65 64 20 69 ┆xpiration of delay is inserted i┆
0x2da60…2da80 6e 74 6f 20 74 68 65 20 62 75 66 66 65 72 2e 0a 68 34 20 20 3a 20 64 6c 2e 20 77 31 20 20 20 20 ┆nto the buffer. h4 : dl. w1 ┆
0x2da80…2daa0 20 69 30 2e 20 20 20 20 3b 20 20 20 63 2e 20 77 32 20 3d 20 63 75 72 72 20 62 75 66 3b 0a 20 20 ┆ i0. ; c. w2 = curr buf; ┆
0x2daa0…2dac0 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 67 31 36 20 20 20 20 3b 20 20 20 63 68 65 63 6b 20 ┆ jl w3 g16 ; check ┆
0x2dac0…2dae0 6f 70 65 72 61 74 69 6f 6e 28 6d 6f 64 65 20 6d 61 73 6b 2c 6f 70 65 72 20 6d 61 73 6b 29 3b 0a ┆operation(mode mask,oper mask); ┆
0x2dae0…2db00 20 20 20 20 20 20 64 6c 20 20 77 30 20 20 78 32 2b 61 31 35 32 20 20 20 3b 20 20 20 64 65 6c 61 ┆ dl w0 x2+a152 ; dela┆
0x2db00…2db20 79 3a 3d 20 69 6e 74 65 72 76 61 6c 28 30 3a 34 37 29 2e 63 75 72 72 20 62 75 66 3b 0a 20 20 20 ┆y:= interval(0:47).curr buf; ┆
0x2db20…2db40 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 20 20 20 20 73 7a 20 ┆ bz w1 x2+a150+1 ; sz ┆
0x2db40…2db60 20 77 31 20 20 20 20 20 32 2e 31 30 20 20 20 3b 20 20 20 69 66 20 74 69 6d 65 20 69 6e 20 73 65 ┆ w1 2.10 ; if time in se┆
0x2db60…2db80 63 73 2e 6d 6f 64 65 2e 63 75 72 72 20 62 75 66 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 ┆cs.mode.curr buf then jl. ┆
0x2db80…2dba0 20 20 20 20 20 20 20 6a 31 30 2e 20 20 20 3b 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 61 6c ┆ j10. ; begin al┆
0x2dba0…2dbc0 20 20 77 30 20 20 78 33 2b 30 20 20 20 20 20 20 3b 20 20 20 20 20 73 65 63 6f 6e 64 73 3a 3d 20 ┆ w0 x3+0 ; seconds:= ┆
0x2dbc0…2dbe0 64 65 6c 61 79 28 30 3a 32 33 29 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 2d 31 20 ┆delay(0:23); sn w0 -1 ┆
0x2dbe0…2dc00 20 20 20 20 20 3b 20 20 20 20 20 69 66 20 73 65 63 6f 6e 64 73 20 3d 20 2d 31 20 74 68 65 6e 20 ┆ ; if seconds = -1 then ┆
0x2dc00…2dc20 67 6f 74 6f 20 6d 61 78 64 65 6c 61 79 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a ┆goto maxdelay jl. j┆
0x2dc20…2dc40 31 34 2e 20 20 20 3b 20 20 20 20 20 65 6c 73 65 20 64 65 6c 61 79 3a 3d 20 73 65 63 6f 6e 64 73 ┆14. ; else delay:= seconds┆
0x2dc40…2dc60 20 2a 20 31 30 30 30 30 3b 0a 20 20 20 20 20 20 77 6d 2e 20 77 30 20 20 20 20 20 69 31 2e 20 20 ┆ * 10000; wm. w0 i1. ┆
0x2dc60…2dc80 20 20 3b 20 20 20 65 6e 64 3b 0a 6a 31 30 20 3a 20 73 6c 20 20 77 33 20 20 20 20 20 30 20 20 20 ┆ ; end; j10 : sl w3 0 ┆
0x2dc80…2dca0 20 20 20 3b 20 20 20 69 66 20 64 65 6c 61 79 20 3e 3d 20 30 0a 20 20 20 20 20 20 73 6c 20 20 77 ┆ ; if delay >= 0 sl w┆
0x2dca0…2dcc0 33 20 20 20 20 20 35 32 20 20 20 20 20 3b 20 20 20 61 6e 64 20 64 65 6c 61 79 20 3c 3d 20 38 37 ┆3 52 ; and delay <= 87┆
0x2dcc0…2dce0 32 34 31 35 32 33 31 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 31 ┆2415231 then jl. j1┆
0x2dce0…2dd00 32 2e 20 20 20 3b 20 20 20 62 65 67 69 6e 20 63 2e 20 32 34 20 68 72 73 20 2b 20 38 34 31 2e 35 ┆2. ; begin c. 24 hrs + 841.5┆
0x2dd00…2dd20 32 33 31 20 73 65 63 73 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 ┆231 secs; sn w0 0 ┆
0x2dd20…2dd40 20 20 3b 20 20 20 20 20 69 66 20 64 65 6c 61 79 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ ; if delay = 0 then ┆
0x2dd40…2dd60 73 65 20 20 77 33 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆se w3 0 ; begin ┆
0x2dd60…2dd80 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 31 36 2e 20 20 20 3b 20 20 20 20 20 20 20 62 79 ┆ jl. j16. ; by┆
0x2dd80…2dda0 74 65 73 3a 3d 20 63 68 61 72 73 3a 3d 20 30 3b 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 31 3b 0a ┆tes:= chars:= 0; goto result 1; ┆
0x2dda0…2ddc0 20 20 20 20 20 20 64 73 20 20 77 33 20 20 20 20 20 67 32 32 20 20 20 20 3b 20 20 20 20 20 65 6e ┆ ds w3 g22 ; en┆
0x2ddc0…2dde0 64 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 67 37 20 20 20 20 20 3b 20 20 20 65 ┆d; jl g7 ; e┆
0x2dde0…2de00 6e 64 0a 6a 31 32 20 3a 20 73 6e 20 20 77 33 20 20 20 20 2d 31 20 20 20 20 20 20 3b 20 20 20 65 ┆nd j12 : sn w3 -1 ; e┆
0x2de00…2de20 6c 73 65 0a 20 20 20 20 20 20 73 65 20 20 77 33 20 20 20 20 2d 31 20 20 20 20 20 20 3b 20 20 20 ┆lse se w3 -1 ; ┆
0x2de20…2de40 69 66 20 64 65 6c 61 79 20 3c 3e 20 2d 31 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 ┆if delay <> -1 jl ┆
0x2de40…2de60 67 35 20 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 33 0a 6a 31 ┆g5 ; then goto result 3 j1┆
0x2de60…2de80 34 20 3a 20 64 6c 2e 20 77 30 20 20 20 20 20 69 32 2e 20 20 20 20 3b 20 20 20 65 6c 73 65 0a 20 ┆4 : dl. w0 i2. ; else ┆
0x2de80…2dea0 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 6d 61 78 64 65 6c 61 ┆ ss w0 b13+2 ; maxdela┆
0x2dea0…2dec0 79 3a 20 64 65 6c 61 79 3a 3d 20 6d 61 78 20 63 6c 6f 63 6b 20 76 61 6c 20 2d 20 74 69 6d 65 3b ┆y: delay:= max clock val - time;┆
0x2dec0…2dee0 0a 6a 31 36 20 3a 20 61 61 20 20 77 30 20 20 20 20 20 62 31 33 2b 32 20 20 3b 0a 20 20 20 20 20 ┆ j16 : aa w0 b13+2 ; ┆
0x2dee0…2df00 20 64 73 20 20 77 30 20 20 78 32 2b 61 31 35 32 20 20 20 3b 20 20 20 74 69 6d 65 2e 63 75 72 72 ┆ ds w0 x2+a152 ; time.curr┆
0x2df00…2df20 20 62 75 66 3a 3d 20 64 65 6c 61 79 20 2b 20 74 69 6d 65 3b 0a 0a 3b 20 69 6e 73 65 72 74 20 74 ┆ buf:= delay + time; ; insert t┆
0x2df20…2df40 68 65 20 6d 65 73 73 61 67 65 62 75 66 66 65 72 20 69 6e 20 65 76 65 6e 74 71 75 65 75 65 20 6f ┆he messagebuffer in eventqueue o┆
0x2df40…2df60 66 20 74 68 65 20 64 72 69 76 65 72 20 28 74 68 65 20 65 76 65 6e 74 0a 3b 20 71 75 65 75 65 20 ┆f the driver (the event ; queue ┆
0x2df60…2df80 69 73 20 73 6f 72 74 65 64 20 61 66 74 65 72 20 64 65 6c 61 79 20 65 78 70 69 72 61 74 69 6f 6e ┆is sorted after delay expiration┆
0x2df80…2dfa0 20 74 69 6d 65 29 20 61 6e 64 20 63 6f 6e 74 69 6e 75 65 20 61 74 0a 3b 20 77 61 69 74 6e 65 78 ┆ time) and continue at ; waitnex┆
0x2dfa0…2dfc0 74 20 69 6e 20 64 72 69 76 65 72 70 72 6f 63 2e 20 70 6c 65 61 73 65 20 6e 6f 74 65 20 74 68 61 ┆t in driverproc. please note tha┆
0x2dfc0…2dfe0 74 20 74 68 65 20 6d 65 73 73 61 67 65 62 75 66 66 65 72 20 69 73 0a 3b 20 6e 6f 74 20 63 6c 61 ┆t the messagebuffer is ; not cla┆
0x2dfe0…2e000 69 6d 65 64 2e 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 20 20 20 62 32 30 20 20 20 20 3b 0a ┆imed. rl w3 b20 ; ┆
0x2e000…2e020 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 35 30 2e 20 20 20 3b 20 20 20 69 6e 73 65 ┆ jl. j50. ; inse┆
0x2e020…2e040 72 74 20 62 75 66 28 63 75 72 72 20 62 75 66 29 3b 0a 0c 3b 20 70 65 6a 20 32 33 2e 30 31 2e 37 ┆rt buf(curr buf); ; pej 23.01.7┆
0x2e040…2e060 38 20 20 20 20 63 6c 6f 63 6b 20 64 72 69 76 65 72 0a 0a 3b 20 69 20 6e 20 74 20 65 20 72 20 72 ┆8 clock driver ; i n t e r r┆
0x2e060…2e080 20 75 20 70 20 74 20 20 20 72 20 65 20 63 20 65 20 69 20 76 20 65 20 64 0a 3b 20 2d 2d 2d 2d 2d ┆ u p t r e c e i v e d ; -----┆
0x2e080…2e0a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e0a0…2e0c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 0a 3b 20 74 ┆-------------------------- ; ; t┆
0x2e0c0…2e0e0 68 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 65 6e 74 65 72 65 64 20 77 68 65 6e 20 64 72 69 76 ┆his routine is entered when driv┆
0x2e0e0…2e100 65 72 70 72 6f 63 20 72 65 63 65 69 76 65 73 20 61 6e 20 69 6e 74 65 72 72 75 70 74 0a 3b 20 6f ┆erproc receives an interrupt ; o┆
0x2e100…2e120 70 65 72 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 63 6c 6f 63 6b 2e 0a 3b 0a 3b 20 69 66 20 61 ┆peration for the clock. ; ; if a┆
0x2e120…2e140 20 70 6f 77 65 72 20 72 65 73 74 61 72 74 20 68 61 73 20 62 65 65 6e 20 65 78 65 63 75 74 65 64 ┆ power restart has been executed┆
0x2e140…2e160 2c 20 61 6c 6c 20 64 65 76 69 63 65 73 20 61 72 65 20 72 65 73 65 74 0a 3b 20 61 6e 64 20 6d 65 ┆, all devices are reset ; and me┆
0x2e160…2e180 73 73 61 67 65 73 20 71 75 65 75 65 64 20 74 6f 20 77 61 69 74 20 66 6f 72 20 70 6f 77 65 72 20 ┆ssages queued to wait for power ┆
0x2e180…2e1a0 72 65 73 74 61 72 74 20 72 65 74 75 72 6e 65 64 2e 0a 63 33 35 20 3a 20 61 6c 20 20 77 30 20 20 ┆restart returned. c35 : al w0 ┆
0x2e1a0…2e1c0 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 63 2e 20 77 31 20 3d 20 63 75 72 72 20 72 65 63 65 69 ┆ 0 ; c. w1 = curr recei┆
0x2e1c0…2e1e0 76 65 72 3b 0a 20 20 20 20 20 20 72 78 20 20 77 30 20 20 20 20 20 62 37 35 20 20 20 20 3b 20 20 ┆ver; rx w0 b75 ; ┆
0x2e1e0…2e200 20 70 3a 3d 20 61 66 74 65 72 20 70 6f 77 65 72 3b 20 61 66 74 65 72 20 70 6f 77 65 72 3a 3d 20 ┆ p:= after power; after power:= ┆
0x2e200…2e220 (82,) 30 3b 0a 20 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 69 ┆0; sn w0 0 ; i┆
0x2e220…2e240 66 20 70 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a ┆f p <> 0 then jl. j┆
0x2e240…2e260 32 34 2e 20 20 20 3b 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 20 20 ┆24. ; begin rl w2 ┆
0x2e260…2e280 20 62 36 37 20 20 20 20 3b 20 20 20 20 20 65 6e 74 72 79 3a 3d 20 31 73 74 20 63 6f 6e 74 72 6f ┆ b67 ; entry:= 1st contro┆
0x2e280…2e2a0 6c 6c 65 72 20 74 61 62 20 65 6e 74 72 79 3b 0a 6a 31 38 20 3a 20 72 6c 20 20 77 33 20 20 78 32 ┆ller tab entry; j18 : rl w3 x2┆
0x2e2a0…2e2c0 2b 61 33 31 31 20 20 20 3b 20 20 20 20 20 72 65 70 65 61 74 0a 20 20 20 20 20 20 72 6c 20 20 77 ┆+a311 ; repeat rl w┆
0x2e2c0…2e2e0 31 20 20 78 33 2b 61 32 33 35 2d 61 32 33 30 3b 20 20 20 20 20 64 65 76 69 63 65 3a 3d 0a 20 20 ┆1 x3+a235-a230; device:= ┆
0x2e2e0…2e300 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 64 65 ┆ al w0 0 ; de┆
0x2e300…2e320 76 69 63 65 61 64 64 72 2e 70 72 6f 63 2e 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 6a 64 20 20 20 ┆viceaddr.proc.entry; jd ┆
0x2e320…2e340 20 20 20 20 20 20 31 3c 31 31 2b 32 20 3b 20 20 20 20 20 20 20 72 65 73 65 74 20 64 65 76 69 63 ┆ 1<11+2 ; reset devic┆
0x2e340…2e360 65 28 64 65 76 69 63 65 2c 70 6f 77 65 72 29 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 ┆e(device,power); al w2 x┆
0x2e360…2e380 32 2b 61 33 31 34 20 20 20 3b 20 20 20 20 20 20 20 65 6e 74 72 79 3a 3d 20 65 6e 74 72 79 20 2b ┆2+a314 ; entry:= entry +┆
0x2e380…2e3a0 20 65 6e 74 72 79 20 6c 65 6e 67 74 68 0a 20 20 20 20 20 20 73 65 20 20 77 32 20 20 20 20 28 62 ┆ entry length se w2 (b┆
0x2e3a0…2e3c0 36 38 29 20 20 20 3b 20 20 20 20 20 75 6e 74 69 6c 20 65 6e 74 72 79 20 3d 20 74 6f 70 20 65 6e ┆68) ; until entry = top en┆
0x2e3c0…2e3e0 74 72 79 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 6a 31 38 2e 20 20 20 3b 0a 20 ┆try; jl. j18. ; ┆
0x2e3e0…2e400 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 20 20 62 75 66 ┆ rl w1 b19 ; buf┆
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 (83,) 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. ┆