|
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: »thcømat«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »thcømat«
0x00000…00033 (0,) Rc489kSubCatEnt {f00=0x0035b8, f01=0x0007e5, f02=0x0007e5, filename=»tran «, entry_tail=0-4-0-2-1982-04-28T13:36-disc1-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x005238, f01=0x0007e4, f02=0x0007e4, filename=»trana «, entry_tail=0-4-0-6-1982-04-27T15:33-disc1-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x00b220, f01=0x0007e4, f02=0x0007e4, filename=»tmatrixmult «, entry_tail=0-4-0-12-1982-04-27T14:47-disc1-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x017838, f01=0x0007e4, f02=0x0007e4, filename=»tfftir «, entry_tail=0-4-0-10-1982-04-27T14:47-disc1-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x02128a, f01=0x0007e4, f02=0x0007ed, filename=»matlibtrans «, entry_tail=0-4-0-2-1982-04-27T10:55-disc1-0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x023500, f01=0x0007e4, f02=0x0007e4, filename=»tspln3smth «, entry_tail=0-4-0-3-1981-08-13T11:56-disc3-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x0265e8, f01=0x0007e4, f02=0x0007e4, filename=»tw6j «, entry_tail=0-4-0-2-1981-08-13T11:50-disc1-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x028310, f01=0x0007e4, f02=0x0007e4, filename=»tpolfit1 «, entry_tail=0-4-0-3-1981-08-13T11:46-disc1-0x0-0x0-0x0-0x0}
0x00198…001cb Rc489kSubCatEnt {f00=0x02be40, f01=0x0007e4, f02=0x0007e4, filename=»tdetgauss «, entry_tail=0-4-0-4-1981-08-13T11:44-disc1-0x0-0x0-0x0-0x0}
0x001cb…001fe Rc489kSubCatEnt {f00=0x02f890, f01=0x0007e4, f02=0x0007e4, filename=»tchstiffp «, entry_tail=0-4-0-3-1981-08-13T11:39-disc-0x0-0x0-0x0-0x0}
0x001fe…00231 Rc489kSubCatEnt {f00=0x032080, f01=0x0007e4, f02=0x0007e4, filename=»tbisec «, entry_tail=0-4-0-1-1981-01-22T17:49-disc1-0x0-0x0-0x0-0x0}
0x00231…00264 Rc489kSubCatEnt {f00=0x033298, f01=0x0007e4, f02=0x0007e4, filename=»matprocinp «, entry_tail=0-4-0-69-1981-07-09T14:15-disc1-0x0-0x0-0x0-0x0}
0x00264…00297 Rc489kSubCatEnt {f00=0x078200, f01=0x0007e4, f02=0x0007e4, filename=»tlistmatpr «, entry_tail=0-4-0-2-1981-07-09T14:14-disc1-0x0-0x0-0x0-0x0}
0x00297…002ca Rc489kSubCatEnt {f00=0x07a5d0, f01=0x0007e4, f02=0x0007e4, filename=»tw3j «, entry_tail=0-4-0-20-1981-07-09T14:30-disc1-0x0-0x0-0x0-0x0}
0x002ca…002fd Rc489kSubCatEnt {f00=0x08e688, f01=0x0007e4, f02=0x0007e4, filename=»tlobachev «, entry_tail=0-4-0-2-1981-07-09T14:33-disc1-0x0-0x0-0x0-0x0}
0x002fd…00300 0x00002a
0x00300…00333 Rc489kSubCatEnt {f00=0x090c08, f01=0x0007e4, f02=0x0007e4, filename=»trkfifth «, entry_tail=0-4-0-3-1981-07-09T14:37-disc1-0x0-0x0-0x0-0x0}
0x00333…00366 Rc489kSubCatEnt {f00=0x0934c8, f01=0x0007e4, f02=0x0007e4, filename=»tsperc «, entry_tail=0-4-0-3-1981-07-09T14:37-disc1-0x0-0x0-0x0-0x0}
0x00366…00399 Rc489kSubCatEnt {f00=0x096980, f01=0x0007e4, f02=0x0007e4, filename=»tspecc «, entry_tail=0-4-0-2-1981-07-09T14:38-disc1-0x0-0x0-0x0-0x0}
0x00399…003cc Rc489kSubCatEnt {f00=0x098428, f01=0x0007e4, f02=0x0007e4, filename=»tspercre «, entry_tail=0-4-0-4-1981-07-09T14:39-disc1-0x0-0x0-0x0-0x0}
0x003cc…003ff Rc489kSubCatEnt {f00=0x09c438, f01=0x0007e4, f02=0x0007e4, filename=»tpolfittest «, entry_tail=0-4-0-1-1981-01-23T14:13-disc1-0x0-0x0-0x0-0x0}
0x003ff…00432 Rc489kSubCatEnt {f00=0x09ddf0, f01=0x0007e4, f02=0x0007e4, filename=»tspln3fitxt «, entry_tail=0-4-0-5-1981-01-23T14:13-disc1-0x0-0x0-0x0-0x0}
0x00432…00465 Rc489kSubCatEnt {f00=0x0a2808, f01=0x0007e4, f02=0x0007e4, filename=»tdiags «, entry_tail=0-4-0-6-1981-01-23T14:13-disc1-0x0-0x0-0x0-0x0}
0x00465…00498 Rc489kSubCatEnt {f00=0x0a88c8, f01=0x0007e4, f02=0x0007e4, filename=»tfft1 «, entry_tail=0-4-0-1-1981-01-23T14:13-disc1-0x0-0x0-0x0-0x0}
0x00498…004cb Rc489kSubCatEnt {f00=0x0a9b50, f01=0x0007e4, f02=0x0007e4, filename=»tspln3 «, entry_tail=0-4-0-2-1981-01-23T13:59-disc1-0x0-0x0-0x0-0x0}
0x004cb…004fe Rc489kSubCatEnt {f00=0x0abc98, f01=0x0007e4, f02=0x0007e4, filename=»tspln3dif «, entry_tail=0-4-0-1-1981-01-23T13:48-disc1-0x0-0x0-0x0-0x0}
0x004fe…00531 Rc489kSubCatEnt {f00=0x0ac240, f01=0x0007e4, f02=0x0007e4, filename=»tspln3dif2 «, entry_tail=0-4-0-1-1981-01-23T13:50-disc1-0x0-0x0-0x0-0x0}
0x00531…00564 Rc489kSubCatEnt {f00=0x0ad3b0, f01=0x0007e4, f02=0x0007e4, filename=»tspln3int «, entry_tail=0-4-0-2-1981-01-23T13:52-disc1-0x0-0x0-0x0-0x0}
0x00564…00597 Rc489kSubCatEnt {f00=0x0af3c0, f01=0x0007e4, f02=0x0007e4, filename=»tspln3inv «, entry_tail=0-4-0-3-1981-01-23T13:52-disc1-0x0-0x0-0x0-0x0}
0x00597…005ca Rc489kSubCatEnt {f00=0x0b24f0, f01=0x0007e4, f02=0x0007e4, filename=»tspln3val «, entry_tail=0-4-0-1-1981-01-23T13:44-disc1-0x0-0x0-0x0-0x0}
0x005ca…005fd Rc489kSubCatEnt {f00=0x0b3de8, f01=0x0007e4, f02=0x0007e4, filename=»tscalpr «, entry_tail=0-4-0-8-1981-01-23T13:39-disc1-0x0-0x0-0x0-0x0}
0x005fd…00600 00 00 00 ┆ ┆
0x00600…00633 Rc489kSubCatEnt {f00=0x0bbb58, f01=0x0007e4, f02=0x0007e4, filename=»tsymsol «, entry_tail=0-4-0-1-1981-01-23T11:53-disc1-0x0-0x0-0x0-0x0}
0x00633…00666 Rc489kSubCatEnt {f00=0x0bca50, f01=0x0007e4, f02=0x0007e4, filename=»tsymin «, entry_tail=0-4-0-3-1981-01-23T11:48-disc1-0x0-0x0-0x0-0x0}
0x00666…00699 Rc489kSubCatEnt {f00=0x0bfeb8, f01=0x0007e4, f02=0x0007e4, filename=»tsymdet «, entry_tail=0-4-0-2-1981-01-23T11:44-disc1-0x0-0x0-0x0-0x0}
0x00699…006cc Rc489kSubCatEnt {f00=0x0c11d0, f01=0x0007e4, f02=0x0007e4, filename=»tpolfitw «, entry_tail=0-4-0-3-1981-01-23T11:34-disc1-0x0-0x0-0x0-0x0}
0x006cc…006ff Rc489kSubCatEnt {f00=0x0c40d0, f01=0x0007e4, f02=0x0007e4, filename=»tpolfit «, entry_tail=0-4-0-3-1981-01-23T11:28-disc1-0x0-0x0-0x0-0x0}
0x006ff…00732 Rc489kSubCatEnt {f00=0x0c75a0, f01=0x0007e4, f02=0x0007e4, filename=»tminn2d «, entry_tail=0-4-0-3-1981-01-23T11:10-disc1-0x0-0x0-0x0-0x0}
0x00732…00765 Rc489kSubCatEnt {f00=0x0ca3b0, f01=0x0007e4, f02=0x0007e4, filename=»tminl «, entry_tail=0-4-0-2-1981-01-23T11:06-disc1-0x0-0x0-0x0-0x0}
0x00765…00798 Rc489kSubCatEnt {f00=0x0cca68, f01=0x0007e4, f02=0x0007e4, filename=»tmin2a «, entry_tail=0-4-0-5-1981-01-23T10:58-disc1-0x0-0x0-0x0-0x0}
0x00798…007cb Rc489kSubCatEnt {f00=0x0d1268, f01=0x0007e4, f02=0x0007e4, filename=»tmin1a «, entry_tail=0-4-0-2-1981-01-23T10:29-disc1-0x0-0x0-0x0-0x0}
0x007cb…007fe Rc489kSubCatEnt {f00=0x0d3270, f01=0x0007e4, f02=0x0007e4, filename=»tmin1b «, entry_tail=0-4-0-2-1981-01-23T10:25-disc1-0x0-0x0-0x0-0x0}
0x007fe…00831 Rc489kSubCatEnt {f00=0x0d5470, f01=0x0007e4, f02=0x0007e4, filename=»tdiag «, entry_tail=0-4-0-4-1981-01-22T17:53-disc1-0x0-0x0-0x0-0x0}
0x00831…00864 Rc489kSubCatEnt {f00=0x0d99b0, f01=0x0007e4, f02=0x0007e4, filename=»tfftipow «, entry_tail=0-4-0-10-1981-01-22T18:00-disc1-0x0-0x0-0x0-0x0}
0x00864…00880 0a f3 c0 00 07 e4 00 07 e4 74 73 70 6c 6e 33 69 6e 76 00 00 00 00 00 03 64 69 73 63 ┆ tspln3inv disc┆
0x00880…008a0 31 00 00 00 00 00 00 00 77 fc 17 00 00 00 00 00 00 00 00 00 00 00 00 0b 24 f0 00 07 e4 00 07 e4 ┆1 w $ ┆
0x008a0…008c0 74 73 70 6c 6e 33 76 61 6c 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 77 fc 0d 00 00 ┆tspln3val disc1 w ┆
0x008c0…008e0 00 00 00 00 00 00 00 00 00 00 0b 3d e8 00 07 e4 00 07 e4 74 73 63 61 6c 70 72 00 00 00 00 00 00 ┆ = tscalpr ┆
0x008e0…00900 00 08 64 69 73 63 31 00 00 00 00 00 00 00 77 fc 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ disc1 w ┆
0x00900…00f00 (1,) Data for tran
0x00f00…02100 Data for trana
0x02100…04500 Data for tmatrixmult
0x04500…06300 Data for tfftir
0x06300…06900 (11,) Data for matlibtrans
0x06900…07200 Data for tspln3smth
0x07200…07800 Data for tw6j
0x07800…08100 Data for tpolfit1
0x08100…08d00 Data for tdetgauss
0x08d00…09600 Data for tchstiffp
0x09600…09900 Data for tbisec
0x09900…16800 (17,) Data for matprocinp
0x16800…16e00 (40,) Data for tlistmatpr
0x16e00…1aa00 Data for tw3j
0x1aa00…1b000 Data for tlobachev
0x1b000…1b900 (48,) Data for trkfifth
0x1b900…1c200 (49,) Data for tsperc
0x1c200…1c800 (50,) Data for tspecc
0x1c800…1d400 Data for tspercre
0x1d400…1d700 (52,) Data for tpolfittest
0x1d700…1e600 Data for tspln3fitxt
0x1e600…1f800 (54,) Data for tdiags
0x1f800…1fb00 (56,) Data for tfft1
0x1fb00…20100 Data for tspln3
0x20100…20400 (57,) Data for tspln3dif
0x20400…20700 Data for tspln3dif2
0x20700…20d00 Data for tspln3int
0x20d00…21600 Data for tspln3inv
0x21600…21900 Data for tspln3val
0x21900…23100 Data for tscalpr
0x23100…23400 Data for tsymsol
0x23400…23d00 Data for tsymin
0x23d00…24300 Data for tsymdet
0x24300…24c00 Data for tpolfitw
0x24c00…25500 Data for tpolfit
0x25500…25e00 Data for tminn2d
0x25e00…26400 Data for tminl
0x26400…27300 (68,) Data for tmin2a
0x27300…27900 Data for tmin1a
0x27900…27f00 Data for tmin1b
0x27f00…28b00 (71,) Data for tdiag
0x28b00…2a900 Data for tfftipow
0x2a900…2a920 20 20 3b 20 61 72 65 61 20 70 61 72 74 0a 66 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; area part f3: ┆
0x2a920…2a940 20 20 20 20 20 20 3b 20 66 69 72 73 74 20 69 6e 74 65 72 6e 61 6c 0a 20 20 20 20 20 68 38 2c 20 ┆ ; first internal h8, ┆
0x2a940…2a960 72 2e 61 33 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 74 65 72 6e 61 6c 20 70 61 72 74 0a 66 ┆r.a3 ; internal part f┆
0x2a960…2a980 34 3a 20 20 63 39 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 61 6d 65 20 74 61 ┆4: c98 ; name ta┆
0x2a980…2a9a0 62 6c 65 20 65 6e 64 20 28 75 73 65 64 20 62 79 20 73 65 61 72 63 68 20 6e 61 6d 65 29 0a 0a 66 ┆ble end (used by search name) f┆
0x2a9a0…2a9c0 31 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 66 69 72 73 74 20 64 ┆13: ; first d┆
0x2a9c0…2a9e0 72 75 6d 20 63 68 61 69 6e 0a 20 20 20 20 20 63 2e 28 3a 61 31 31 33 2d 31 3a 29 2c 68 39 2c 72 ┆rum chain c.(:a113-1:),h9,r┆
0x2a9e0…2aa00 2e 61 31 31 33 2c 7a 2e 0a 66 31 34 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.a113,z. f14: ┆
0x2aa00…2aa20 20 3b 20 66 69 72 73 74 20 64 69 73 63 20 63 68 61 69 6e 0a 20 20 20 20 20 63 2e 28 3a 61 31 31 ┆ ; first disc chain c.(:a11┆
0x2aa20…2aa40 35 2d 31 3a 29 2c 68 31 30 2c 72 2e 61 31 31 35 2c 7a 2e 0a 66 31 35 3a 20 30 20 20 20 20 20 20 ┆5-1:),h10,r.a115,z. f15: 0 ┆
0x2aa40…2aa60 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 68 61 69 6e 20 65 6e 64 0a 0a 0a 3b 20 64 75 6d 6d ┆ ; chain end ; dumm┆
0x2aa60…2aa80 79 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 3a 0a 20 20 20 20 20 32 2e 30 30 30 20 30 ┆y internal process: 2.000 0┆
0x2aa80…2aaa0 30 30 20 30 30 30 20 30 30 31 20 20 20 3b 20 20 63 70 75 20 6d 61 73 6b 3a 20 6f 6e 6c 79 20 63 ┆00 000 001 ; cpu mask: only c┆
0x2aaa0…2aac0 70 75 28 30 29 20 61 6c 6c 6f 77 65 64 0a 30 2c 72 2e 28 3a 61 31 36 2d 61 34 38 3a 29 3e 31 0a ┆pu(0) allowed 0,r.(:a16-a48:)>1 ┆
0x2aac0…2aae0 0a 66 35 3d 6b 2d 61 31 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 61 72 74 20 ┆ f5=k-a16 ; start ┆
0x2aae0…2ab00 6f 66 20 64 75 6d 6d 79 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 66 32 32 2c 62 32 20 20 20 20 ┆of dummy process f22,b2 ┆
0x2ab00…2ab20 20 20 20 20 20 20 20 20 3b 20 74 69 6d 65 72 20 71 20 6c 69 6e 6b 73 3a 20 69 6e 69 74 69 61 6c ┆ ; timer q links: initial┆
0x2ab20…2ab40 6c 79 20 73 69 6e 67 6c 65 20 69 6e 20 71 75 65 75 65 0a 72 2e 28 3a 61 31 37 2d 61 31 36 2d 32 ┆ly single in queue r.(:a17-a16-2┆
0x2ab40…2ab60 3a 29 3e 31 0a 20 20 20 20 20 68 31 2c 20 68 32 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 66 69 ┆:)>1 h1, h2 ; fi┆
0x2ab60…2ab80 72 73 74 2c 20 74 6f 70 20 6f 66 20 70 72 6f 63 65 73 73 0a 72 2e 28 3a 61 31 39 2d 61 31 38 3a ┆rst, top of process r.(:a19-a18:┆
0x2ab80…2aba0 29 3e 31 0a 20 20 20 20 20 30 3c 31 32 2b 30 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6c 61 ┆)>1 0<12+0 ; cla┆
0x2aba0…2abc0 69 6d 73 0a 20 20 20 20 20 30 3c 31 32 2b 30 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 72 2e 28 ┆ims 0<12+0 ; r.(┆
0x2abc0…2abe0 3a 61 33 30 31 2d 61 32 31 3a 29 3e 31 0a 20 20 20 20 20 31 3c 32 33 20 2d 20 33 20 20 20 20 20 ┆:a301-a21:)>1 1<23 - 3 ┆
0x2abe0…2ac00 20 20 20 20 20 3b 20 70 72 69 6f 72 69 74 79 20 3d 20 61 6c 6d 6f 73 74 20 67 72 65 61 74 65 73 ┆ ; priority = almost greates┆
0x2ac00…2ac20 (76,) 74 20 69 6e 74 65 67 65 72 0a 72 2e 28 3a 61 32 37 2d 61 33 30 31 3a 29 3e 31 0a 20 20 20 20 20 ┆t integer r.(:a27-a301:)>1 ┆
0x2ac20…2ac40 68 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 74 65 72 72 75 70 74 20 61 64 ┆h1 ; interrupt ad┆
0x2ac40…2ac60 64 72 65 73 73 0a 72 2e 28 3a 61 31 37 30 2d 61 32 37 3a 29 3e 31 0a 20 20 20 20 20 68 31 20 20 ┆dress r.(:a170-a27:)>1 h1 ┆
0x2ac60…2ac80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 73 63 61 70 65 20 61 64 64 72 65 73 73 0a 20 ┆ ; escape address ┆
0x2ac80…2aca0 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 6c 6c 20 70 61 72 61 ┆ 0 ; all para┆
0x2aca0…2acc0 6d 73 0a 72 2e 28 3a 61 32 38 2d 61 31 37 31 3a 29 3e 31 0a 3b 20 74 68 65 20 66 6f 6c 6c 6f 77 ┆ms r.(:a28-a171:)>1 ; the follow┆
0x2acc0…2ace0 69 6e 67 20 73 65 71 75 65 6e 63 65 20 77 69 6c 6c 20 62 65 20 65 78 65 63 75 74 65 64 20 69 6e ┆ing sequence will be executed in┆
0x2ace0…2ad00 20 74 68 65 20 72 65 67 69 73 74 65 72 73 2c 0a 3b 20 75 6e 74 69 6c 20 61 20 74 65 63 68 6e 69 ┆ the registers, ; until a techni┆
0x2ad00…2ad20 63 61 6c 20 70 61 6e 65 6c 20 69 73 20 6d 6f 75 6e 74 65 64 2c 20 61 6e 64 20 64 61 74 61 2d 73 ┆cal panel is mounted, and data-s┆
0x2ad20…2ad40 77 69 74 63 68 65 73 20 61 6c 6c 20 7a 65 72 6f 3a 0a 20 20 20 20 20 67 67 20 20 77 33 20 20 20 ┆witches all zero: gg w3 ┆
0x2ad40…2ad60 20 20 62 39 37 20 20 20 20 3b 20 74 65 73 74 20 66 6f 72 20 70 61 6e 65 6c 3a 0a 20 20 20 20 20 ┆ b97 ; test for panel: ┆
0x2ad60…2ad80 73 65 20 20 77 33 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 64 61 74 61 2d 73 ┆se w3 0 ; if data-s┆
0x2ad80…2ada0 77 69 74 63 68 65 73 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 ┆witches <> 0 then jl ┆
0x2ada0…2adc0 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 74 65 73 74 20 66 6f 72 20 70 61 ┆ 0 ; goto test for pa┆
0x2adc0…2ade0 6e 65 6c 3b 0a 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 ┆nel; 0 ; ┆
0x2ade0…2ae00 20 28 69 2e 65 2e 20 77 68 65 6e 20 70 61 6e 65 6c 20 61 6e 64 20 64 73 77 72 3d 30 3a 20 61 6e ┆ (i.e. when panel and dswr=0: an┆
0x2ae00…2ae20 20 65 78 63 65 70 74 69 6f 6e 20 77 69 6c 6c 20 6f 63 63 75 72 20 68 65 72 65 29 0a 72 2e 28 3a ┆ exception will occur here) r.(:┆
0x2ae20…2ae40 61 33 32 2d 61 33 31 3a 29 3e 31 0a 20 20 20 20 20 31 3c 32 33 20 20 20 20 20 20 20 20 20 20 20 ┆a32-a31:)>1 1<23 ┆
0x2ae40…2ae60 20 20 20 3b 20 73 74 61 74 75 73 0a 72 2e 28 3a 61 33 33 2d 61 33 32 3a 29 3e 31 0a 20 20 20 20 ┆ ; status r.(:a33-a32:)>1 ┆
0x2ae60…2ae80 20 68 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 63 0a 72 2e 28 3a 61 31 38 31 ┆ h0 ; ic r.(:a181┆
0x2ae80…2aea0 2d 61 33 33 3a 29 3e 31 0a 20 20 20 20 20 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-a33:)>1 8 ┆
0x2aea0…2aec0 3b 20 63 70 61 0a 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 ┆; cpa 0 ; b┆
0x2aec0…2aee0 61 73 65 0a 20 20 20 20 20 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6c 6f 77 ┆ase 8 ; low┆
0x2aee0…2af00 65 72 20 77 72 69 74 65 20 6c 69 6d 69 74 0a 20 20 20 20 20 32 30 34 37 3c 31 32 20 20 20 20 20 ┆er write limit 2047<12 ┆
0x2af00…2af20 20 20 20 20 20 20 20 3b 20 75 70 70 65 72 20 77 72 69 74 65 20 6c 69 6d 69 74 0a 20 20 20 20 20 ┆ ; upper write limit ┆
0x2af20…2af40 62 35 34 20 3b 2b 30 3c 31 32 20 20 20 20 20 20 20 20 3b 20 69 6e 74 65 72 72 75 70 74 20 6c 65 ┆b54 ;+0<12 ; interrupt le┆
0x2af40…2af60 76 65 6c 73 0a 72 2e 28 3a 61 33 30 32 2d 61 31 38 35 3a 29 3e 31 0a 20 20 20 20 20 30 20 20 20 ┆vels r.(:a302-a185:)>1 0 ┆
0x2af60…2af80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 61 76 65 20 61 72 65 61 20 61 64 64 72 65 73 ┆ ; save area addres┆
0x2af80…2afa0 73 0a 72 2e 28 3a 61 33 30 33 2d 61 33 30 32 3a 29 3e 31 20 20 20 20 20 20 20 3b 20 28 66 69 6c ┆s r.(:a303-a302:)>1 ; (fil┆
0x2afa0…2afc0 6c 20 75 70 20 66 6f 72 20 73 61 76 65 20 61 72 65 61 2c 20 75 73 65 64 20 64 75 72 69 6e 67 20 ┆l up for save area, used during ┆
0x2afc0…2afe0 75 70 73 74 61 72 74 29 0a 6d 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 75 6d 6d 79 ┆upstart) m. dummy┆
0x2afe0…2b000 20 69 6e 74 65 72 6e 61 6c 20 72 65 67 20 64 75 6d 70 0a 0a 62 2e 20 69 31 30 2c 20 6a 31 30 20 ┆ internal reg dump b. i10, j10 ┆
0x2b000…2b020 77 2e 0a 68 30 3a 20 20 67 67 20 20 77 33 20 20 62 31 30 30 20 20 20 20 20 3b 20 74 65 73 74 20 ┆w. h0: gg w3 b100 ; test ┆
0x2b020…2b040 66 6f 72 20 72 63 38 30 30 30 20 74 79 70 65 3a 0a 20 20 20 20 20 73 68 20 20 77 33 20 20 30 20 ┆for rc8000 type: sh w3 0 ┆
0x2b040…2b060 20 20 20 20 20 20 20 3b 20 69 66 20 74 79 70 65 20 3c 3e 20 35 35 20 74 68 65 6e 20 74 68 65 20 ┆ ; if type <> 55 then the ┆
0x2b060…2b080 64 75 6d 6d 79 20 6c 6f 6f 70 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 30 20 20 20 20 20 20 20 ┆dummy loop jl 0 ┆
0x2b080…2b0a0 20 3b 20 69 73 20 65 78 65 63 75 74 65 64 20 69 6e 20 74 68 65 20 77 6f 72 6b 69 6e 67 20 72 65 ┆ ; is executed in the working re┆
0x2b0a0…2b0c0 67 69 73 74 65 72 73 2c 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 2b 30 20 20 20 20 20 20 20 20 3b ┆gisters, jl. +0 ;┆
0x2b0c0…2b0e0 20 6f 74 68 65 72 77 69 73 65 20 69 6e 20 63 6f 72 65 2e 0a 3b 20 77 68 65 6e 20 61 6e 20 65 78 ┆ otherwise in core. ; when an ex┆
0x2b0e0…2b100 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 72 65 67 69 73 74 65 72 73 20 77 69 6c 6c 20 62 ┆ception occurs, registers will b┆
0x2b100…2b120 65 20 64 75 6d 70 65 64 20 68 65 72 65 3a 0a 68 31 3a 20 20 30 2c 20 72 2e 20 61 31 38 30 3e 31 ┆e dumped here: h1: 0, r. a180>1┆
0x2b120…2b140 20 20 20 20 20 20 3b 20 72 65 67 69 73 74 65 72 20 64 75 6d 70 0a 20 20 20 20 20 64 6c 2e 20 77 ┆ ; register dump dl. w┆
0x2b140…2b160 33 20 20 20 20 20 6a 30 2e 20 20 20 20 3b 20 20 20 20 67 65 74 20 6c 6f 6f 70 2d 63 6f 75 6e 74 ┆3 j0. ; get loop-count┆
0x2b160…2b180 3b 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 68 31 2e 2b 61 33 33 2d 61 32 38 3b 20 70 ┆; rs. w3 h1.+a33-a28; p┆
0x2b180…2b1a0 72 65 70 61 72 65 20 66 6f 72 20 72 65 73 75 6d 69 6e 67 20 74 68 65 20 71 75 69 63 6b 2d 6c 6f ┆repare for resuming the quick-lo┆
0x2b1a0…2b1c0 6f 70 3a 20 69 63 20 3a 3d 20 30 3b 0a 0a 69 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆op: ic := 0; i0: ┆
0x2b1c0…2b1e0 20 20 20 20 20 3b 20 63 68 65 63 6b 20 66 6f 72 20 73 74 61 62 69 6c 69 74 79 20 6f 66 20 74 68 ┆ ; check for stability of th┆
0x2b1e0…2b200 65 20 7a 65 72 6f 3a 0a 20 20 20 20 20 67 67 20 20 77 30 20 20 20 20 20 62 39 37 20 20 20 20 3b ┆e zero: gg w0 b97 ;┆
0x2b200…2b220 20 20 20 20 69 66 20 74 68 65 20 64 61 74 61 73 77 69 74 63 68 65 73 20 61 72 65 20 6e 6f 74 20 ┆ if the dataswitches are not ┆
0x2b220…2b240 73 74 61 62 6c 65 20 66 6f 72 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 30 20 20 20 20 ┆stable for se w0 0 ┆
0x2b240…2b260 20 20 3b 20 20 20 20 20 20 73 6f 6d 65 20 70 65 72 69 6f 64 20 74 68 65 6e 0a 20 20 20 20 20 72 ┆ ; some period then r┆
0x2b260…2b280 65 2e 20 20 20 20 20 20 20 20 68 31 2e 20 20 20 20 3b 20 20 20 20 20 20 72 65 73 75 6d 65 20 74 ┆e. h1. ; resume t┆
0x2b280…2b2a0 68 65 20 72 65 67 69 73 74 65 72 2d 6c 6f 6f 70 3b 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 ┆he register-loop; al w2 x┆
0x2b2a0…2b2c0 32 2d 31 20 20 20 20 20 20 3b 20 20 20 20 28 69 2e 65 2e 20 61 20 73 68 6f 72 74 20 70 65 72 69 ┆2-1 ; (i.e. a short peri┆
0x2b2c0…2b2e0 6f 64 20 6f 66 20 7a 65 72 6f 65 73 20 77 69 6c 6c 20 6e 6f 74 0a 20 20 20 20 20 73 65 20 20 77 ┆od of zeroes will not se w┆
0x2b2e0…2b300 32 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 20 20 64 65 73 74 72 6f 79 20 74 68 65 20 ┆2 0 ; destroy the ┆
0x2b300…2b320 61 6c 67 6f 72 69 74 68 6d 29 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 30 2e 20 20 ┆algorithm) jl. i0. ┆
0x2b320…2b340 20 20 3b 20 20 20 20 67 6f 74 6f 20 63 68 65 63 6b 20 66 6f 72 20 73 74 61 62 69 6c 69 74 79 3b ┆ ; goto check for stability;┆
0x2b340…2b360 0a 0a 69 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 65 63 68 6e ┆ i1: ; techn┆
0x2b360…2b380 69 63 61 6c 2d 70 61 6e 65 6c 20 6c 6f 6f 70 3a 0a 20 20 20 20 20 67 67 20 20 77 30 20 20 20 20 ┆ical-panel loop: gg w0 ┆
0x2b380…2b3a0 20 62 39 38 20 20 20 20 3b 20 20 20 20 77 30 20 3a 3d 20 72 65 67 73 65 6c 20 73 77 69 74 63 68 ┆ b98 ; w0 := regsel switch┆
0x2b3a0…2b3c0 65 73 3b 0a 20 20 20 20 20 67 67 20 20 77 31 20 20 20 20 20 62 39 37 20 20 20 20 3b 20 20 20 20 ┆es; gg w1 b97 ; ┆
0x2b3c0…2b3e0 77 31 20 3a 3d 20 64 73 77 72 20 72 65 67 69 73 74 65 72 3b 0a 20 20 20 20 20 73 6e 20 20 77 31 ┆w1 := dswr register; sn w1┆
0x2b3e0…2b400 20 20 20 20 2d 31 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 64 73 77 72 20 3d 20 61 6c 6c 20 6f ┆ -1 ; if dswr = all o┆
0x2b400…2b420 6e 65 73 0a 20 20 20 20 20 73 6f 20 20 77 30 20 20 20 20 20 32 2e 31 31 31 31 31 31 3c 31 3b 0a ┆nes so w0 2.111111<1; ┆
0x2b420…2b440 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 32 2e 20 20 20 20 3b 20 20 20 20 20 20 20 61 ┆ jl. i2. ; a┆
0x2b440…2b460 6e 64 20 72 65 67 73 65 6c 20 3d 20 61 6c 6c 20 6f 6e 65 73 20 74 68 65 6e 0a 20 20 20 20 20 72 ┆nd regsel = all ones then r┆
0x2b460…2b480 65 2e 20 20 20 20 20 20 20 20 68 31 2e 20 20 20 20 3b 20 20 20 20 20 20 72 65 73 75 6d 65 20 72 ┆e. h1. ; resume r┆
0x2b480…2b4a0 65 67 69 73 74 65 72 2d 6c 6f 6f 70 3b 0a 0a 69 32 3a 20 20 73 7a 20 20 77 30 20 20 20 20 20 31 ┆egister-loop; i2: sz w0 1┆
0x2b4a0…2b4c0 3c 31 20 20 20 20 3b 20 20 20 20 69 66 20 6e 6f 2d 64 69 73 70 6c 61 79 20 62 69 74 20 74 68 65 ┆<1 ; if no-display bit the┆
0x2b4c0…2b4e0 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 31 2e 20 20 20 20 3b 20 20 20 20 20 20 ┆n jl. i1. ; ┆
0x2b4e0…2b500 67 6f 74 6f 20 6e 6f 72 6d 61 6c 20 6c 6f 6f 70 3b 0a 0a 20 20 20 20 20 73 6c 20 20 77 31 20 20 ┆goto normal loop; sl w1 ┆
0x2b500…2b520 (77,) 20 20 20 38 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 6c 65 67 61 6c 20 63 6f 72 65 2d 61 64 64 ┆ 8 ; if legal core-add┆
0x2b520…2b540 72 65 73 73 20 74 68 65 6e 0a 20 20 20 20 20 73 6c 20 20 77 31 20 20 20 20 28 62 31 32 29 20 20 ┆ress then sl w1 (b12) ┆
0x2b540…2b560 20 3b 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 33 ┆ ; begin jl. i3┆
0x2b560…2b580 2e 20 20 20 20 3b 0a 20 20 20 20 20 64 69 20 20 77 32 20 20 78 31 20 20 20 20 20 20 20 20 3b 20 ┆. ; di w2 x1 ; ┆
0x2b580…2b5a0 20 20 20 20 20 64 69 73 70 6c 61 79 28 63 6f 72 65 28 77 31 29 29 3b 0a 20 20 20 20 20 67 70 20 ┆ display(core(w1)); gp ┆
0x2b5a0…2b5c0 20 77 32 20 20 20 20 20 62 39 39 20 20 20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 6e 6f 72 6d 61 ┆ w2 b99 ; goto norma┆
0x2b5c0…2b5e0 6c 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 31 2e 20 20 20 20 3b ┆l loop; jl. i1. ;┆
0x2b5e0…2b600 20 20 20 20 20 20 65 6e 64 3b 0a 0a 69 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; i3: ┆
0x2b600…2b620 20 20 20 3b 20 6e 6f 74 20 6c 65 67 61 6c 20 61 64 64 72 65 73 73 3a 0a 20 20 20 20 20 20 20 20 ┆ ; not legal address: ┆
0x2b620…2b640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 75 73 65 64 20 66 6f 72 20 64 69 73 70 6c 61 ┆ ; used for displa┆
0x2b640…2b660 79 69 6e 67 20 74 68 65 20 63 70 75 2d 6c 6f 61 64 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 ┆ying the cpu-load al w2 ┆
0x2b660…2b680 20 20 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 20 20 20 62 31 31 20 20 ┆ 0 ; rl w3 b11 ┆
0x2b680…2b6a0 20 20 3b 20 20 20 20 63 70 75 74 69 6d 65 20 3a 3d 20 73 6c 69 63 65 0a 20 20 20 20 20 61 61 2e ┆ ; cputime := slice aa.┆
0x2b6a0…2b6c0 20 77 33 20 20 20 20 20 66 35 2e 2b 61 33 36 2b 32 3b 20 20 20 20 20 20 20 20 20 20 20 2b 20 72 ┆ w3 f5.+a36+2; + r┆
0x2b6c0…2b6e0 75 6e 74 69 6d 65 2e 64 75 6d 6d 79 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆untime.dummyprocess; ┆
0x2b6e0…2b700 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 28 6e 6f 74 69 63 65 3a 20 69 66 20 74 68 65 20 64 75 ┆ ; (notice: if the du┆
0x2b700…2b720 6d 6d 79 20 70 72 6f 63 65 73 73 20 69 73 20 69 6e 74 65 72 72 75 70 74 65 64 0a 20 20 20 20 20 ┆mmy process is interrupted ┆
0x2b720…2b740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 62 65 74 ┆ ; bet┆
0x2b740…2b760 77 65 65 6e 20 74 68 65 20 61 62 6f 76 65 20 74 77 6f 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 2c ┆ween the above two instructions,┆
0x2b760…2b780 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 ┆ ; ┆
0x2b780…2b7a0 20 20 20 74 68 65 20 63 70 75 74 69 6d 65 20 6d 61 79 20 6e 6f 74 20 62 65 20 63 6f 6e 73 69 73 ┆ the cputime may not be consis┆
0x2b7a0…2b7c0 74 65 6e 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆tent, ; ┆
0x2b7c0…2b7e0 20 20 20 20 20 20 20 20 62 75 74 20 74 68 69 73 20 69 73 20 6e 6f 74 20 63 6f 6e 73 69 64 65 72 ┆ but this is not consider┆
0x2b7e0…2b800 65 64 20 61 6e 79 20 68 61 72 6d 29 0a 20 20 20 20 20 73 73 2e 20 77 33 20 20 20 20 20 6a 31 2e ┆ed any harm) ss. w3 j1.┆
0x2b800…2b820 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 61 38 35 20 20 20 20 3b 20 20 ┆ ; al w0 a85 ; ┆
0x2b820…2b840 20 20 69 66 20 63 70 75 74 69 6d 65 20 69 73 20 6e 6f 74 20 75 70 64 61 74 65 64 0a 20 20 20 20 ┆ if cputime is not updated ┆
0x2b840…2b860 20 6c 73 20 20 77 30 20 20 78 31 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 65 6e 6f 75 67 68 ┆ ls w0 x1 ; enough┆
0x2b860…2b880 20 74 68 65 6e 0a 20 20 20 20 20 73 6c 20 20 77 30 20 20 78 33 20 20 20 20 20 20 20 20 3b 20 20 ┆ then sl w0 x3 ; ┆
0x2b880…2b8a0 20 20 20 20 67 6f 74 6f 20 6e 6f 72 6d 61 6c 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 ┆ goto normal loop; jl. ┆
0x2b8a0…2b8c0 20 20 20 20 20 20 69 31 2e 20 20 20 20 3b 0a 0a 20 20 20 20 20 64 73 2e 20 77 33 20 20 20 20 20 ┆ i1. ; ds. w3 ┆
0x2b8c0…2b8e0 6a 32 2e 20 20 20 20 3b 20 20 20 20 63 70 75 20 69 6e 63 72 20 3a 3d 20 6e 65 77 20 63 70 75 20 ┆j2. ; cpu incr := new cpu ┆
0x2b8e0…2b900 74 69 6d 65 20 2d 20 6f 6c 64 20 63 70 75 20 74 69 6d 65 3b 0a 20 20 20 20 20 61 61 2e 20 77 33 ┆time - old cpu time; aa. w3┆
0x2b900…2b920 20 20 20 20 20 6a 31 2e 20 20 20 20 3b 20 20 20 20 6f 6c 64 20 63 70 75 20 74 69 6d 65 20 3a 3d ┆ j1. ; old cpu time :=┆
0x2b920…2b940 20 6e 65 77 20 63 70 75 20 74 69 6d 65 3b 0a 20 20 20 20 20 64 73 2e 20 77 33 20 20 20 20 20 6a ┆ new cpu time; ds. w3 j┆
0x2b940…2b960 31 2e 20 20 20 20 3b 0a 0a 3b 20 67 65 74 20 72 65 61 6c 2d 74 69 6d 65 20 69 6e 63 72 65 6d 65 ┆1. ; ; get real-time increme┆
0x2b960…2b980 6e 74 3a 0a 20 20 20 20 20 64 6c 20 20 77 33 20 20 20 20 20 62 31 33 2b 32 20 20 3b 0a 20 20 20 ┆nt: dl w3 b13+2 ; ┆
0x2b980…2b9a0 20 20 64 6c 2e 20 77 31 20 20 20 20 20 6a 33 2e 20 20 20 20 3b 20 20 20 20 72 65 61 6c 20 69 6e ┆ dl. w1 j3. ; real in┆
0x2b9a0…2b9c0 63 72 20 3a 3d 20 6e 65 77 20 74 69 6d 65 20 2d 20 6f 6c 64 20 74 69 6d 65 3b 0a 20 20 20 20 20 ┆cr := new time - old time; ┆
0x2b9c0…2b9e0 64 73 2e 20 77 33 20 20 20 20 20 6a 33 2e 20 20 20 20 3b 20 20 20 20 6f 6c 64 20 74 69 6d 65 20 ┆ds. w3 j3. ; old time ┆
0x2b9e0…2ba00 3a 3d 20 6e 65 77 20 74 69 6d 65 3b 0a 20 20 20 20 20 73 73 20 20 77 33 20 20 20 20 20 32 20 20 ┆:= new time; ss w3 2 ┆
0x2ba00…2ba20 20 20 20 20 3b 0a 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 20 20 20 20 6a 32 2e 20 20 20 20 3b 0a ┆ ; dl. w1 j2. ; ┆
0x2ba20…2ba40 20 20 20 20 20 6e 64 20 20 77 31 20 20 20 20 20 33 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6e 64 ┆ nd w1 3 ; nd┆
0x2ba40…2ba60 20 20 77 33 20 20 20 20 20 37 20 20 20 20 20 20 3b 0a 20 20 20 20 20 66 6d 2e 20 77 31 20 20 20 ┆ w3 7 ; fm. w1 ┆
0x2ba60…2ba80 20 20 6a 34 2e 20 20 20 20 3b 20 20 20 20 35 70 63 74 20 3a 3d 20 63 70 75 20 69 6e 63 72 20 2a ┆ j4. ; 5pct := cpu incr *┆
0x2ba80…2baa0 20 32 30 2e 30 0a 20 20 20 20 20 66 64 20 20 77 31 20 20 20 20 20 36 20 20 20 20 20 20 3b 20 20 ┆ 20.0 fd w1 6 ; ┆
0x2baa0…2bac0 20 20 20 20 20 20 20 20 20 20 64 69 76 28 72 65 61 6c 20 69 6e 63 72 29 3b 0a 0a 20 20 20 20 20 ┆ div(real incr); ┆
0x2bac0…2bae0 63 66 20 20 77 31 20 20 20 20 20 30 20 20 20 20 20 20 3b 0a 0a 3b 20 74 61 6b 65 20 73 6f 6d 65 ┆cf w1 0 ; ; take some┆
0x2bae0…2bb00 20 6b 69 6e 64 20 6f 66 20 61 72 69 74 68 6d 65 74 69 63 20 6d 65 61 6e 3a 0a 20 20 20 20 20 77 ┆ kind of arithmetic mean: w┆
0x2bb00…2bb20 73 2e 20 77 31 20 20 20 20 20 6a 35 2e 20 20 20 20 3b 0a 20 20 20 20 20 61 73 20 20 77 31 20 20 ┆s. w1 j5. ; as w1 ┆
0x2bb20…2bb40 20 20 2d 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 77 61 2e 20 77 31 20 20 20 20 20 6a 35 2e 20 ┆ -1 ; wa. w1 j5. ┆
0x2bb40…2bb60 20 20 20 3b 20 20 20 20 35 70 63 74 20 3a 3d 20 28 35 70 63 74 20 2d 20 6f 6c 64 20 35 70 63 74 ┆ ; 5pct := (5pct - old 5pct┆
0x2bb60…2bb80 29 20 73 68 69 66 74 20 28 2d 20 78 78 29 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 6a ┆) shift (- xx) rs. w1 j┆
0x2bb80…2bba0 35 2e 20 20 20 20 3b 20 20 20 20 20 20 2b 20 6f 6c 64 20 35 70 63 74 3b 0a 0a 20 20 20 20 20 61 ┆5. ; + old 5pct; a┆
0x2bba0…2bbc0 6c 20 20 77 30 20 20 20 20 2d 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6c 73 20 20 77 30 20 20 ┆l w0 -1 ; ls w0 ┆
0x2bbc0…2bbe0 78 31 2b 34 20 20 20 20 20 20 3b 20 20 20 20 64 69 73 70 6c 61 79 28 20 28 2d 31 29 20 73 68 69 ┆x1+4 ; display( (-1) shi┆
0x2bbe0…2bc00 66 74 20 28 35 70 63 74 20 2b 20 34 29 20 29 3b 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 ┆ft (5pct + 4) ); rl. w2 ┆
0x2bc00…2bc20 20 6a 36 2e 20 20 20 20 3b 20 20 20 20 66 6c 69 63 6b 65 72 20 3a 3d 20 66 6c 69 63 6b 65 72 20 ┆ j6. ; flicker := flicker ┆
0x2bc20…2bc40 73 68 69 66 74 20 28 2d 31 29 3b 0a 20 20 20 20 20 6c 73 20 20 77 32 20 20 20 20 2d 31 20 20 20 ┆shift (-1); ls w2 -1 ┆
0x2bc40…2bc60 20 20 20 3b 0a 20 20 20 20 20 73 6e 20 20 77 32 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 ┆ ; sn w2 0 ; ┆
0x2bc60…2bc80 20 69 66 20 6e 6f 20 62 69 74 73 20 6c 65 66 74 20 69 6e 20 66 6c 69 63 6b 65 72 20 74 68 65 6e ┆ if no bits left in flicker then┆
0x2bc80…2bca0 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 20 20 31 3c 33 20 20 20 20 3b 20 20 20 20 20 20 66 ┆ al w2 1<3 ; f┆
0x2bca0…2bcc0 6c 69 63 6b 65 72 20 3a 3d 20 31 20 73 68 69 66 74 20 33 3b 0a 20 20 20 20 20 72 73 2e 20 77 32 ┆licker := 1 shift 3; rs. w2┆
0x2bcc0…2bce0 20 20 20 20 20 6a 36 2e 20 20 20 20 3b 20 20 20 20 28 69 2e 65 2e 20 66 6c 69 63 6b 65 72 20 69 ┆ j6. ; (i.e. flicker i┆
0x2bce0…2bd00 73 20 6f 6e 65 20 6f 75 74 20 6f 66 20 66 6f 75 72 20 62 69 74 73 20 74 6f 20 74 68 65 20 72 69 ┆s one out of four bits to the ri┆
0x2bd00…2bd20 67 74 68 29 0a 20 20 20 20 20 77 61 20 20 77 30 20 20 20 20 20 34 20 20 20 20 20 20 3b 20 20 20 ┆gth) wa w0 4 ; ┆
0x2bd20…2bd40 20 61 64 64 20 66 6c 69 63 6b 65 72 20 74 6f 20 63 70 75 6c 6f 61 64 3b 0a 20 20 20 20 20 67 70 ┆ add flicker to cpuload; gp┆
0x2bd40…2bd60 20 20 77 30 20 20 20 20 20 62 39 39 20 20 20 20 3b 20 20 20 20 28 69 2e 65 2e 20 75 73 65 20 74 ┆ w0 b99 ; (i.e. use t┆
0x2bd60…2bd80 68 65 20 6c 65 66 74 6d 6f 73 74 20 32 30 20 62 69 74 73 2c 20 35 20 70 63 74 20 65 61 63 68 29 ┆he leftmost 20 bits, 5 pct each)┆
0x2bd80…2bda0 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 31 2e 20 20 20 20 3b 20 20 20 20 67 6f 74 ┆ jl. i1. ; got┆
0x2bda0…2bdc0 6f 20 6e 6f 72 6d 61 6c 20 6c 6f 6f 70 3b 0a 0a 6a 30 3d 6b 2b 32 2c 20 31 30 30 30 30 30 2c 20 ┆o normal loop; j0=k+2, 100000, ┆
0x2bdc0…2bde0 30 20 20 20 20 20 20 3b 20 6c 6f 6f 70 63 6f 75 6e 74 2c 20 7a 65 72 6f 0a 6a 31 3d 6b 2b 32 2c ┆0 ; loopcount, zero j1=k+2,┆
0x2bde0…2be00 20 30 2c 20 30 20 20 20 20 20 20 20 20 20 20 20 3b 20 6f 6c 64 20 63 70 75 20 74 69 6d 65 0a 6a ┆ 0, 0 ; old cpu time j┆
0x2be00…2be20 (78,) 32 3d 6b 2b 32 2c 20 30 2c 20 30 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 70 75 20 69 6e 63 72 ┆2=k+2, 0, 0 ; cpu incr┆
0x2be20…2be40 0a 6a 33 3d 6b 2b 32 2c 20 30 2c 20 30 20 20 20 20 20 20 20 20 20 20 20 3b 20 6f 6c 64 20 74 69 ┆ j3=k+2, 0, 0 ; old ti┆
0x2be40…2be60 6d 65 0a 66 2e 0a 6a 34 3a 20 20 32 30 2e 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 35 ┆me f. j4: 20.0 ; 5┆
0x2be60…2be80 2d 70 63 74 20 66 61 63 74 6f 72 0a 77 2e 0a 6a 35 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 ┆-pct factor w. j5: 0 ┆
0x2be80…2bea0 20 20 20 20 20 20 3b 20 6f 6c 64 20 35 70 63 74 0a 6a 36 3a 20 20 30 20 20 20 20 20 20 20 20 20 ┆ ; old 5pct j6: 0 ┆
0x2bea0…2bec0 20 20 20 20 20 20 20 20 3b 20 66 6c 69 63 6b 65 72 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; flicker e. ┆
0x2bec0…2bee0 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 64 75 6d 6d 79 20 70 72 6f 63 65 73 73 0a ┆ ; end of dummy process ┆
0x2bee0…2bf00 68 32 3d 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 6f 70 20 6f 66 20 ┆h2=k ; top of ┆
0x2bf00…2bf20 64 75 6d 6d 79 20 70 72 6f 63 65 73 73 0a 0a 0a 6d 2e 20 64 75 6d 6d 79 20 69 6e 74 65 72 6e 61 ┆dummy process m. dummy interna┆
0x2bf20…2bf40 6c 20 70 72 6f 63 65 73 73 28 63 70 75 31 29 3a 0a 20 20 20 20 20 32 2e 30 30 30 20 30 30 30 20 ┆l process(cpu1): 2.000 000 ┆
0x2bf40…2bf60 30 30 30 20 30 31 30 20 20 3b 20 20 63 70 75 20 6d 61 73 6b 3a 20 6f 6e 6c 79 20 63 70 75 28 31 ┆000 010 ; cpu mask: only cpu(1┆
0x2bf60…2bf80 29 20 61 6c 6c 6f 77 65 64 0a 30 2c 72 2e 28 3a 61 31 36 2d 61 34 38 3a 29 3e 31 0a 66 32 32 3d ┆) allowed 0,r.(:a16-a48:)>1 f22=┆
0x2bf80…2bfa0 6b 0a 0a 66 32 31 3d 6b 2d 61 31 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 61 ┆k f21=k-a16 ; sta┆
0x2bfa0…2bfc0 72 74 20 6f 66 20 64 75 6d 6d 79 20 70 72 6f 63 65 73 73 28 63 70 75 31 29 0a 20 20 20 20 20 62 ┆rt of dummy process(cpu1) b┆
0x2bfc0…2bfe0 32 2c 20 66 35 2b 61 31 36 20 20 20 20 20 20 20 20 3b 20 74 69 6d 65 72 20 71 20 6c 69 6e 6b 73 ┆2, f5+a16 ; timer q links┆
0x2bfe0…2c000 3a 20 69 6e 69 74 69 61 6c 6c 79 20 73 69 6e 67 6c 65 20 69 6e 20 71 75 65 75 65 0a 72 2e 28 3a ┆: initially single in queue r.(:┆
0x2c000…2c020 61 31 37 2d 61 31 36 2d 32 3a 29 3e 31 0a 20 20 20 20 20 66 32 31 2d 36 2c 20 68 31 32 20 20 20 ┆a17-a16-2:)>1 f21-6, h12 ┆
0x2c020…2c040 20 20 20 20 20 20 20 3b 20 66 69 72 73 74 2c 20 74 6f 70 20 6f 66 20 70 72 6f 63 65 73 73 0a 72 ┆ ; first, top of process r┆
0x2c040…2c060 2e 28 3a 61 31 39 2d 61 31 38 3a 29 3e 31 0a 20 20 20 20 20 30 3c 31 32 2b 30 20 20 20 20 20 20 ┆.(:a19-a18:)>1 0<12+0 ┆
0x2c060…2c080 20 20 20 20 20 20 3b 20 63 6c 61 69 6d 73 0a 20 20 20 20 20 30 3c 31 32 2b 30 20 20 20 20 20 20 ┆ ; claims 0<12+0 ┆
0x2c080…2c0a0 20 20 20 20 20 20 3b 0a 72 2e 28 3a 61 33 30 31 2d 61 32 31 3a 29 3e 31 0a 20 20 20 20 20 31 3c ┆ ; r.(:a301-a21:)>1 1<┆
0x2c0a0…2c0c0 32 33 20 2d 20 32 20 20 20 20 20 20 20 20 20 20 3b 20 70 72 69 6f 72 69 74 79 20 3d 20 61 6c 6d ┆23 - 2 ; priority = alm┆
0x2c0c0…2c0e0 6f 73 74 20 67 72 65 61 74 65 73 74 20 69 6e 74 65 67 65 72 0a 72 2e 28 3a 61 32 37 2d 61 33 30 ┆ost greatest integer r.(:a27-a30┆
0x2c0e0…2c100 31 3a 29 3e 31 0a 20 20 20 20 20 68 31 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 ┆1:)>1 h11 ; i┆
0x2c100…2c120 6e 74 65 72 72 75 70 74 20 61 64 64 72 65 73 73 0a 72 2e 28 3a 61 31 37 30 2d 61 32 37 3a 29 3e ┆nterrupt address r.(:a170-a27:)>┆
0x2c120…2c140 31 0a 20 20 20 20 20 68 31 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 73 63 61 70 ┆1 h11 ; escap┆
0x2c140…2c160 65 20 61 64 64 72 65 73 73 0a 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e address 0 ┆
0x2c160…2c180 20 3b 20 61 6c 6c 20 70 61 72 61 6d 73 0a 72 2e 28 3a 61 32 38 2d 61 31 37 31 3a 29 3e 31 0a 63 ┆ ; all params r.(:a28-a171:)>1 c┆
0x2c180…2c1a0 2e 20 2d 31 20 3b 20 6d 75 73 74 20 62 65 20 75 73 65 64 20 6c 61 74 65 72 0a 20 20 20 20 20 72 ┆. -1 ; must be used later r┆
0x2c1a0…2c1c0 6c 20 20 77 33 20 20 20 20 20 31 33 32 20 20 20 3b 20 64 75 6d 6d 79 20 6c 6f 6f 70 0a 20 20 20 ┆l w3 132 ; dummy loop ┆
0x2c1c0…2c1e0 20 20 72 73 20 20 77 33 20 20 78 33 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 ┆ rs w3 x3 ; jl ┆
0x2c1e0…2c200 20 20 20 20 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0 ; 0 ┆
0x2c200…2c220 20 20 20 3b 20 20 77 33 0a 7a 2e 0a 30 2c 30 2c 30 2c 30 0a 72 2e 28 3a 61 33 32 2d 61 33 31 3a ┆ ; w3 z. 0,0,0,0 r.(:a32-a31:┆
0x2c220…2c240 29 3e 31 0a 20 20 20 20 20 31 3c 32 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 61 ┆)>1 1<23 ; sta┆
0x2c240…2c260 74 75 73 0a 72 2e 28 3a 61 33 33 2d 61 33 32 3a 29 3e 31 0a 20 20 20 20 20 20 68 31 33 20 20 20 ┆tus r.(:a33-a32:)>1 h13 ┆
0x2c260…2c280 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 63 0a 72 2e 28 3a 61 31 38 31 2d 61 33 33 3a 29 3e 31 ┆ ; ic r.(:a181-a33:)>1┆
0x2c280…2c2a0 0a 20 20 20 20 20 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 70 61 0a 20 20 ┆ 8 ; cpa ┆
0x2c2a0…2c2c0 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 61 73 65 0a 20 20 20 20 ┆ 0 ; base ┆
0x2c2c0…2c2e0 20 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6c 6f 77 65 72 20 77 72 69 74 65 ┆ 8 ; lower write┆
0x2c2e0…2c300 20 6c 69 6d 69 74 0a 20 20 20 20 20 38 33 38 38 36 30 37 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ limit 8388607 ;┆
0x2c300…2c320 20 75 70 70 65 72 20 77 72 69 74 65 20 6c 69 6d 69 74 0a 20 20 20 20 20 62 35 34 20 3b 2b 30 3c ┆ upper write limit b54 ;+0<┆
0x2c320…2c340 31 32 20 20 20 20 20 20 20 20 3b 20 69 6e 74 65 72 72 75 70 74 20 6c 65 76 65 6c 73 0a 72 2e 28 ┆12 ; interrupt levels r.(┆
0x2c340…2c360 3a 61 33 30 32 2d 61 31 38 35 3a 29 3e 31 0a 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 ┆:a302-a185:)>1 0 ┆
0x2c360…2c380 20 20 20 20 20 20 3b 20 73 61 76 65 20 61 72 65 61 20 61 64 64 72 65 73 73 0a 72 2e 28 3a 61 33 ┆ ; save area address r.(:a3┆
0x2c380…2c3a0 30 33 2d 61 33 30 32 3a 29 3e 31 20 20 20 20 20 20 20 3b 20 28 66 69 6c 6c 20 75 70 20 66 6f 72 ┆03-a302:)>1 ; (fill up for┆
0x2c3a0…2c3c0 20 73 61 76 65 20 61 72 65 61 2c 20 75 73 65 64 20 64 75 72 69 6e 67 20 75 70 73 74 61 72 74 29 ┆ save area, used during upstart)┆
0x2c3c0…2c3e0 0a 6d 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 75 6d 6d 79 20 69 6e 74 65 72 6e 61 ┆ m. dummy interna┆
0x2c3e0…2c400 6c 20 72 65 67 20 64 75 6d 70 28 63 70 75 31 29 0a 62 2e 20 69 39 20 77 2e 0a 68 31 31 3a 20 20 ┆l reg dump(cpu1) b. i9 w. h11: ┆
0x2c400…2c420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 72 65 67 69 73 74 65 72 20 64 75 6d ┆ ; register dum┆
0x2c420…2c440 70 0a 20 20 20 20 20 30 2c 72 2e 61 31 38 30 3e 31 20 20 20 20 20 20 20 20 3b 0a 68 31 33 3a 0a ┆p 0,r.a180>1 ; h13: ┆
0x2c440…2c460 20 20 20 20 20 72 6c 2e 20 77 31 20 20 66 32 31 2e 2d 32 0a 20 20 20 20 20 61 6c 20 20 77 31 20 ┆ rl. w1 f21.-2 al w1 ┆
0x2c460…2c480 20 78 31 2b 32 0a 20 20 20 20 20 72 73 2e 20 77 31 20 66 32 31 2e 2d 32 20 20 20 20 20 3b 0a 20 ┆ x1+2 rs. w1 f21.-2 ; ┆
0x2c480…2c4a0 20 20 20 20 72 6c 20 20 77 31 20 20 31 31 32 20 20 20 20 20 20 3b 20 6c 61 73 74 20 73 65 6e 73 ┆ rl w1 112 ; last sens┆
0x2c4a0…2c4c0 65 64 20 63 6c 6f 63 6b 20 76 61 6c 75 65 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 66 32 31 2e ┆ed clock value rs. w1 f21.┆
0x2c4c0…2c4e0 2b 36 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 68 31 33 2e 20 20 3b 0a 65 ┆+6 ; jl. h13. ; e┆
0x2c4e0…2c500 2e 0a 77 2e 0a 68 31 32 3d 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 74 ┆. w. h12=k ; t┆
0x2c500…2c520 6f 70 20 61 64 64 72 20 6f 66 20 64 75 6d 6d 79 20 70 72 6f 63 28 63 70 75 31 29 0a 0c 0a 0a 0a ┆op addr of dummy proc(cpu1) ┆
0x2c520…2c540 3b 20 65 78 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 65 73 2e 0a 0a 3b 20 64 75 6d 6d 79 20 65 ┆; external processes. ; dummy e┆
0x2c540…2c560 78 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 3a 0a 0a 20 20 20 20 20 30 2c 30 2c 30 2c 30 2c 30 ┆xternal process: 0,0,0,0,0┆
0x2c560…2c580 0a 20 20 20 20 20 30 2c 72 2e 34 2c 2d 34 0a 20 20 20 20 20 6a 6c 20 77 32 20 63 35 31 2c 6b 2c ┆ 0,r.4,-4 jl w2 c51,k,┆
0x2c580…2c5a0 6b 2d 32 2c 30 2c 30 2c 6a 6c 20 28 62 32 30 29 0a 20 20 20 20 20 30 2c 72 2e 61 34 30 31 2c 30 ┆k-2,0,0,jl (b20) 0,r.a401,0┆
0x2c5a0…2c5c0 2c 30 2c 30 0a 68 34 3a 20 20 30 30 2c 3c 3a 3c 30 3e 3c 30 3e 3c 30 3e 64 75 6d 6d 79 3a 3e 2c ┆,0,0 h4: 00,<:<0><0><0>dummy:>,┆
0x2c5c0…2c5e0 30 0a 20 20 20 20 20 30 2c 30 2c 30 2c 6b 2c 6b 2d 32 2c 30 0a 0a 3b 20 72 65 6d 6f 74 65 72 20 ┆0 0,0,0,k,k-2,0 ; remoter ┆
0x2c5e0…2c600 70 72 6f 63 65 73 73 3a 0a 0a 20 20 20 20 20 30 2c 72 2e 61 34 30 31 2c 30 2c 61 31 30 37 2c 61 ┆process: 0,r.a401,0,a107,a┆
0x2c600…2c620 31 30 38 2d 31 0a 68 32 32 3a 20 35 36 2c 3c 3a 72 65 6d 6f 74 65 72 3a 3e 2c 30 0a 20 20 20 20 ┆108-1 h22: 56,<:remoter:>,0 ┆
0x2c620…2c640 20 30 2c 30 2c 2d 31 2c 6b 2c 6b 2d 32 2c 30 0a 0a 3b 20 68 6f 73 74 20 70 72 6f 63 65 73 73 3a ┆ 0,0,-1,k,k-2,0 ; host process:┆
0x2c640…2c660 0a 0a 20 20 20 20 20 30 2c 72 2e 61 34 30 31 2c 30 2c 61 31 30 37 2c 61 31 30 38 0a 68 32 33 3a ┆ 0,r.a401,0,a107,a108 h23:┆
0x2c660…2c680 20 39 30 2c 3c 3a 68 6f 73 74 3a 3e 2c 30 2c 30 0a 20 20 20 20 20 30 2c 30 2c 30 2c 6b 2c 6b 2d ┆ 90,<:host:>,0,0 0,0,0,k,k-┆
0x2c680…2c6a0 32 2c 30 0a 0a 3b 20 63 6c 6f 63 6b 20 70 72 6f 63 65 73 73 3a 0a 0a 20 20 20 20 20 30 2c 30 2c ┆2,0 ; clock process: 0,0,┆
0x2c6a0…2c6c0 30 2c 30 2c 30 0a 20 20 20 20 20 30 2c 72 2e 34 2c 30 0a 20 20 20 20 20 6a 6c 20 77 32 20 63 35 ┆0,0,0 0,r.4,0 jl w2 c5┆
0x2c6c0…2c6e0 30 2c 6b 2c 6b 2d 32 2c 30 2c 63 33 35 2c 6a 6c 20 77 31 20 63 33 30 0a 20 20 20 20 20 30 2c 72 ┆0,k,k-2,0,c35,jl w1 c30 0,r┆
0x2c6e0…2c700 2e 61 34 30 31 2c 30 2c 61 31 30 37 2c 61 31 30 38 2d 31 0a 68 32 34 3a 20 30 32 2c 3c 3a 63 6c ┆.a401,0,a107,a108-1 h24: 02,<:cl┆
0x2c700…2c720 (79,) 6f 63 6b 3a 3e 2c 30 2c 30 0a 20 20 20 20 20 30 2c 30 2c 30 2c 6b 2c 6b 2d 32 2c 30 0a 0a 0a 3b ┆ock:>,0,0 0,0,0,k,k-2,0 ;┆
0x2c720…2c740 20 65 72 72 6f 72 6c 6f 67 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 30 2c 72 2e 61 34 30 31 ┆ errorlog process 0,r.a401┆
0x2c740…2c760 2c 30 2c 61 31 30 37 2c 61 31 30 38 2d 31 0a 66 31 38 20 3a 20 35 34 2c 20 3c 3a 65 72 72 6f 72 ┆,0,a107,a108-1 f18 : 54, <:error┆
0x2c760…2c780 6c 6f 67 3a 3e 2c 30 0a 20 20 20 20 20 20 30 2c 30 2c 30 2c 6b 2c 6b 2d 32 2c 30 0a 20 20 20 20 ┆log:>,0 0,0,0,k,k-2,0 ┆
0x2c780…2c7a0 20 20 30 2c 72 2e 34 30 0a 0a 0a 0a 3b 20 70 65 72 69 70 68 65 72 61 6c 20 70 72 6f 63 65 73 73 ┆ 0,r.40 ; peripheral process┆
0x2c7a0…2c7c0 65 73 3a 0a 66 31 39 3d 6b 20 20 20 20 20 20 20 3b 20 73 74 61 72 74 0a 74 2e 6d 2e 20 20 20 20 ┆es: f19=k ; start t.m. ┆
0x2c7c0…2c7e0 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 70 65 72 69 70 68 65 72 61 6c 20 70 ┆ monitor peripheral p┆
0x2c7e0…2c800 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 73 20 69 6e 63 6c 75 64 65 64 0a 0a 66 32 ┆rocess descriptions included f2┆
0x2c800…2c820 30 3d 6b 20 20 20 20 20 20 20 3b 20 74 6f 70 0a 0a 3b 20 65 78 74 65 72 6e 61 6c 20 69 6e 74 65 ┆0=k ; top ; external inte┆
0x2c820…2c840 72 72 75 70 74 20 74 61 62 6c 65 3a 0a 3b 0a 62 35 33 3a 20 63 32 20 20 20 20 20 20 20 20 20 20 ┆rrupt table: ; b53: c2 ┆
0x2c840…2c860 20 20 20 20 20 20 3b 20 69 6e 74 65 67 65 72 20 69 6e 74 65 72 72 75 70 74 20 65 74 63 3a 0a 20 ┆ ; integer interrupt etc: ┆
0x2c860…2c880 20 20 20 20 63 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 63 32 20 ┆ c2 ; c2 ┆
0x2c880…2c8a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 3b 20 74 68 65 20 6e 65 78 74 20 65 6e 74 72 ┆ ; ; the next entr┆
0x2c8a0…2c8c0 69 65 73 20 70 65 72 74 61 69 6e 20 74 6f 20 76 61 72 69 6f 75 73 20 63 70 75 2d 20 6f 72 20 73 ┆ies pertain to various cpu- or s┆
0x2c8c0…2c8e0 79 73 74 65 6d 20 66 61 75 6c 74 73 3a 0a 20 20 20 20 20 63 33 20 20 20 20 20 20 20 20 20 20 20 ┆ystem faults: c3 ┆
0x2c8e0…2c900 20 20 20 20 20 3b 20 6c 69 6d 69 74 20 76 69 6f 6c 61 74 69 6f 6e 20 28 64 75 65 20 74 6f 20 6d ┆ ; limit violation (due to m┆
0x2c900…2c920 6f 6e 69 74 6f 72 20 62 75 67 73 29 0a 20 20 20 20 20 63 34 20 20 20 20 20 20 20 20 20 20 20 20 ┆onitor bugs) c4 ┆
0x2c920…2c940 20 20 20 20 3b 20 62 75 73 20 65 72 72 6f 72 20 2c 20 64 75 72 69 6e 67 20 6f 70 65 72 61 6e 64 ┆ ; bus error , during operand┆
0x2c940…2c960 20 74 72 61 6e 73 66 65 72 0a 20 20 20 20 20 63 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ transfer c5 ┆
0x2c960…2c980 20 3b 20 62 75 73 20 65 72 72 6f 72 20 2c 20 64 75 72 69 6e 67 20 69 6e 73 74 72 75 63 74 69 6f ┆ ; bus error , during instructio┆
0x2c980…2c9a0 6e 20 66 65 74 63 68 0a 20 20 20 20 20 63 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆n fetch c6 ;┆
0x2c9a0…2c9c0 20 70 6f 77 65 72 20 66 61 69 6c 75 72 65 0a 20 20 20 20 20 68 32 34 2b 61 32 34 30 20 20 20 20 ┆ power failure h24+a240 ┆
0x2c9c0…2c9e0 20 20 20 20 20 20 3b 20 63 6c 6f 63 6b 0a 3b 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 65 6e ┆ ; clock ; the remaining en┆
0x2c9e0…2ca00 74 72 69 65 73 20 61 72 65 20 69 6e 73 65 72 74 65 64 20 76 69 61 20 74 68 65 20 6d 6f 6e 69 74 ┆tries are inserted via the monit┆
0x2ca00…2ca20 6f 72 20 6f 70 74 69 6f 6e 73 3a 0a 74 2e 6d 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆or options: t.m. ┆
0x2ca20…2ca40 6d 6f 6e 69 74 6f 72 20 69 6e 74 65 72 72 75 70 74 20 74 61 62 6c 65 20 69 6e 63 6c 75 64 65 64 ┆monitor interrupt table included┆
0x2ca40…2ca60 0a 0a 62 35 34 20 3d 20 28 3a 6b 20 2d 20 62 35 33 3a 29 20 3e 20 31 20 2d 20 31 3b 20 6d 61 78 ┆ b54 = (:k - b53:) > 1 - 1; max┆
0x2ca60…2ca80 20 69 6e 74 65 72 72 75 70 74 20 6e 75 6d 62 65 72 0a 0a 3b 20 63 6f 6e 74 72 6f 6c 6c 65 72 20 ┆ interrupt number ; controller ┆
0x2ca80…2caa0 64 65 73 63 72 69 70 74 69 6f 6e 20 74 61 62 6c 65 3a 0a 3b 0a 3b 20 65 61 63 68 20 65 6e 74 72 ┆description table: ; ; each entr┆
0x2caa0…2cac0 79 20 63 6f 6e 73 69 73 74 73 20 28 69 6e 69 74 69 61 6c 6c 79 29 20 6f 66 3a 0a 3b 20 20 20 65 ┆y consists (initially) of: ; e┆
0x2cac0…2cae0 6e 74 72 79 20 2b 20 61 33 31 30 20 3a 20 28 69 72 72 65 6c 6c 65 76 61 6e 74 29 0a 3b 20 20 20 ┆ntry + a310 : (irrellevant) ; ┆
0x2cae0…2cb00 65 6e 74 72 79 20 2b 20 61 33 31 31 20 3a 20 64 65 76 69 63 65 20 64 65 73 63 72 20 2b 20 61 32 ┆entry + a311 : device descr + a2┆
0x2cb00…2cb20 33 30 0a 3b 20 20 20 65 6e 74 72 79 20 2b 20 61 33 31 32 20 3a 20 63 70 75 2d 61 64 64 72 65 73 ┆30 ; entry + a312 : cpu-addres┆
0x2cb20…2cb40 73 20 28 3d 61 31 39 38 29 0a 3b 20 20 20 65 6e 74 72 79 20 2b 20 61 33 31 33 20 3a 20 69 6e 74 ┆s (=a198) ; entry + a313 : int┆
0x2cb40…2cb60 65 72 72 75 70 74 20 6e 75 6d 62 65 72 0a 66 31 36 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆errupt number f16: ┆
0x2cb60…2cb80 20 20 20 20 20 3b 20 73 74 61 72 74 20 6f 66 20 63 6f 6e 74 72 6f 6c 6c 65 72 20 74 61 62 6c 65 ┆ ; start of controller table┆
0x2cb80…2cba0 3a 0a 74 2e 6d 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 63 6f ┆: t.m. monitor co┆
0x2cba0…2cbc0 6e 74 72 6f 6c 6c 65 72 20 74 61 62 6c 65 20 69 6e 63 6c 75 64 65 64 0a 66 31 37 3a 20 20 20 20 ┆ntroller table included f17: ┆
0x2cbc0…2cbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 6f 70 20 20 20 6f 66 20 63 6f 6e 74 72 6f ┆ ; top of contro┆
0x2cbe0…2cc00 6c 6c 65 72 20 74 61 62 6c 65 0a 0a 0a 0a 61 31 31 34 3d 61 31 31 34 2b 61 38 38 2b 32 2c 20 61 ┆ller table a114=a114+a88+2, a┆
0x2cc00…2cc20 31 31 34 3d 61 31 31 34 2b 28 3a 61 31 31 34 20 61 2e 20 31 3a 29 0a 61 31 31 36 3d 61 31 31 36 ┆114=a114+(:a114 a. 1:) a116=a116┆
0x2cc20…2cc40 2b 61 38 38 2b 32 2c 20 61 31 31 36 3d 61 31 31 36 2b 28 3a 61 31 31 36 20 61 2e 20 31 3a 29 0a ┆+a88+2, a116=a116+(:a116 a. 1:) ┆
0x2cc40…2cc60 0a 61 31 32 37 3d 28 3a 66 32 2d 66 31 3a 29 3e 31 20 20 20 20 20 20 20 20 3b 20 6e 75 6d 62 65 ┆ a127=(:f2-f1:)>1 ; numbe┆
0x2cc60…2cc80 72 20 6f 66 20 70 65 72 69 70 68 65 72 61 6c 20 70 72 6f 63 65 73 73 65 73 0a 0a 3b 20 61 72 65 ┆r of peripheral processes ; are┆
0x2cc80…2cca0 61 20 70 72 6f 63 65 73 73 65 73 3a 0a 20 20 66 37 3d 6b 2c 20 68 37 3d 66 37 2d 61 33 34 39 0a ┆a processes: f7=k, h7=f7-a349 ┆
0x2cca0…2ccc0 3b 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 65 73 3a 0a 20 20 66 38 3d 66 37 20 2b 20 ┆; internal processes: f8=f7 + ┆
0x2ccc0…2cce0 61 31 2a 61 32 2c 20 68 38 3d 66 38 2b 34 0a 3b 20 64 72 75 6d 20 63 68 61 69 6e 73 3a 0a 20 20 ┆a1*a2, h8=f8+4 ; drum chains: ┆
0x2cce0…2cd00 66 31 31 3d 66 38 20 2b 20 61 33 2a 61 34 2c 20 68 39 3d 66 31 31 2b 61 38 38 2b 32 0a 3b 20 64 ┆f11=f8 + a3*a4, h9=f11+a88+2 ; d┆
0x2cd00…2cd20 69 73 63 20 63 68 61 69 6e 73 3a 0a 20 20 66 31 32 3d 66 31 31 20 2b 20 61 31 31 33 2a 61 31 31 ┆isc chains: f12=f11 + a113*a11┆
0x2cd20…2cd40 34 2c 20 68 31 30 3d 66 31 32 2b 61 38 38 2b 32 0a 3b 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 ┆4, h10=f12+a88+2 ; message buffe┆
0x2cd40…2cd60 72 73 3a 0a 20 20 66 39 3d 66 31 32 20 2b 20 61 31 31 35 2a 61 31 31 36 2c 20 66 31 30 3d 66 39 ┆rs: f9=f12 + a115*a116, f10=f9┆
0x2cd60…2cd80 20 2b 20 61 35 2a 61 36 20 2d 20 32 0a 0a 3b 20 6d 6f 6e 69 74 6f 72 20 65 6e 74 72 69 65 73 20 ┆ + a5*a6 - 2 ; monitor entries ┆
0x2cd80…2cda0 75 73 65 64 20 67 6c 6f 62 61 6c 6c 79 3a 0a 20 20 62 32 39 20 3d 20 68 38 20 20 3b 20 66 69 72 ┆used globally: b29 = h8 ; fir┆
0x2cda0…2cdc0 73 74 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 0a 20 20 62 33 35 20 3d 20 64 35 20 20 ┆st internal process b35 = d5 ┆
0x2cdc0…2cde0 3b 20 72 65 6d 6f 76 65 0a 20 20 62 33 36 20 3d 20 64 36 20 20 3b 20 6c 69 6e 6b 0a 20 20 62 34 ┆; remove b36 = d6 ; link b4┆
0x2cde0…2ce00 30 20 3d 20 64 37 33 20 3b 20 6d 61 78 20 62 61 73 65 20 2d 20 28 31 2c 31 29 0a 20 20 62 34 31 ┆0 = d73 ; max base - (1,1) b41┆
0x2ce00…2ce20 20 3d 20 64 37 34 20 3b 20 66 6f 6c 6c 6f 77 20 63 68 61 69 6e 0a 20 20 62 34 32 20 3d 20 64 37 ┆ = d74 ; follow chain b42 = d7┆
0x2ce20…2ce40 31 20 3b 20 73 65 61 72 63 68 20 6e 61 6d 65 28 6e 61 6d 65 2c 20 65 6e 74 72 79 2c 20 62 61 73 ┆1 ; search name(name, entry, bas┆
0x2ce40…2ce60 65 29 0a 20 20 62 34 33 20 3d 20 64 37 35 20 3b 20 72 65 67 72 65 74 74 65 64 20 6d 65 73 73 61 ┆e) b43 = d75 ; regretted messa┆
0x2ce60…2ce80 67 65 0a 20 20 62 34 34 20 3d 20 64 35 20 20 3b 20 72 65 6d 6f 76 65 28 65 6c 65 6d 29 0a 20 20 ┆ge b44 = d5 ; remove(elem) ┆
0x2ce80…2cea0 62 34 35 20 3d 20 64 37 32 20 3b 20 6d 61 78 20 62 61 73 65 0a 0a 62 2e 69 31 20 20 20 20 20 20 ┆b45 = d72 ; max base b.i1 ┆
0x2cea0…2cec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 65 67 69 6e 0a 77 2e 69 30 3a 20 72 6c 2e 20 ┆ ; begin w.i0: rl. ┆
0x2cec0…2cee0 77 32 20 20 69 31 2e 20 20 20 20 20 20 20 3b 20 6d 61 6b 65 20 72 6f 6f 6d 3a 0a 20 20 20 20 20 ┆w2 i1. ; make room: ┆
0x2cee0…2cf00 20 6a 6c 20 20 20 20 20 20 78 33 2b 30 20 20 20 20 20 20 3b 20 20 20 61 75 74 6f 6c 6f 61 64 65 ┆ jl x3+0 ; autoloade┆
0x2cf00…2cf20 72 28 63 68 61 69 6e 74 61 62 6c 65 20 65 6e 64 20 2b 20 32 29 3b 0a 20 20 69 31 3a 20 66 31 30 ┆r(chaintable end + 2); i1: f10┆
0x2cf20…2cf40 2b 32 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 66 74 65 72 20 6c 6f 61 64 69 6e 67 3a 0a ┆+2 ; after loading: ┆
0x2cf40…2cf60 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 30 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f ┆ jl. i0. ; goto┆
0x2cf60…2cf80 20 6d 61 6b 65 20 72 6f 6f 6d 3b 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ make room; e. ┆
0x2cf80…2cfa0 20 20 20 20 3b 20 65 6e 64 0a 69 2e 0a 20 20 68 32 35 3d 6b 20 2d 20 62 31 32 37 20 2b 20 32 0a ┆ ; end i. h25=k - b127 + 2 ┆
0x2cfa0…2cfc0 65 2e 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 ┆e. ; end of process descripti┆
0x2cfc0…2cfe0 6f 6e 20 73 65 67 6d 65 6e 74 0a 0a 20 20 6b 20 3d 20 62 32 39 2d 34 20 2b 20 61 33 20 2a 20 61 ┆on segment k = b29-4 + a3 * a┆
0x2cfe0…2d000 34 20 2b 20 61 35 20 2a 20 61 36 20 2b 20 61 31 31 33 2a 61 31 31 34 20 2b 20 61 31 31 35 2a 61 ┆4 + a5 * a6 + a113*a114 + a115*a┆
0x2d000…2d020 (80,) 31 31 36 0a 3b 20 63 6f 6d 6d 65 6e 74 3a 20 6b 20 3d 20 61 62 73 6f 6c 75 74 65 20 74 6f 70 20 ┆116 ; comment: k = absolute top ┆
0x2d020…2d040 61 64 64 72 65 73 73 20 6f 66 20 6d 6f 6e 69 74 6f 72 2e 0a 0c 0a 0a 3b 20 73 65 67 6d 65 6e 74 ┆address of monitor. ; segment┆
0x2d040…2d060 20 35 3a 20 69 6e 69 74 69 61 6c 69 7a 65 20 6d 6f 6e 69 74 6f 72 0a 3b 20 74 68 69 73 20 73 65 ┆ 5: initialize monitor ; this se┆
0x2d060…2d080 67 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 73 20 6d 6f 6e 69 74 6f 72 20 74 61 62 6c 65 2c ┆gment initializes monitor table,┆
0x2d080…2d0a0 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 73 2c 0a 3b 20 61 6e 64 20 62 75 66 ┆ process descriptions, ; and buf┆
0x2d0a0…2d0c0 66 65 72 73 20 77 69 74 68 69 6e 20 74 68 65 20 6d 6f 6e 69 74 6f 72 20 61 73 20 66 6f 6c 6c 6f ┆fers within the monitor as follo┆
0x2d0c0…2d0e0 77 73 3a 0a 3b 20 6d 6f 6e 69 74 6f 72 20 74 61 62 6c 65 3a 0a 3b 20 20 20 20 20 20 69 6e 69 74 ┆ws: ; monitor table: ; init┆
0x2d0e0…2d100 69 61 6c 69 7a 65 64 20 61 73 20 64 65 66 69 6e 65 64 20 6f 6e 20 70 61 67 65 20 36 0a 3b 20 61 ┆ialized as defined on page 6 ; a┆
0x2d100…2d120 72 65 61 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 73 3a 0a 3b 20 20 20 20 20 ┆rea process descriptions: ; ┆
0x2d120…2d140 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 64 64 72 65 73 73 20 69 73 20 70 6c 61 63 65 64 20 69 ┆ description address is placed i┆
0x2d140…2d160 6e 20 6e 61 6d 65 20 74 61 62 6c 65 0a 3b 20 20 20 20 20 20 64 65 73 63 72 69 70 74 69 6f 6e 20 ┆n name table ; description ┆
0x2d160…2d180 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 74 6f 20 7a 65 72 6f 0a 3b 20 20 20 20 20 20 6b 69 ┆is initialized to zero ; ki┆
0x2d180…2d1a0 6e 64 20 69 73 20 73 65 74 20 74 6f 20 34 0a 3b 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 ┆nd is set to 4 ; internal proces┆
0x2d1a0…2d1c0 73 20 64 65 73 63 72 69 70 74 69 6f 6e 73 3a 0a 3b 20 20 20 20 20 20 64 65 73 63 72 69 70 74 69 ┆s descriptions: ; descripti┆
0x2d1c0…2d1e0 6f 6e 20 61 64 64 72 65 73 73 20 69 73 20 70 6c 61 63 65 64 20 69 6e 20 6e 61 6d 65 20 74 61 62 ┆on address is placed in name tab┆
0x2d1e0…2d200 6c 65 0a 3b 20 20 20 20 20 20 64 65 73 63 72 69 70 74 69 6f 6e 20 69 73 20 69 6e 69 74 69 61 6c ┆le ; description is initial┆
0x2d200…2d220 69 7a 65 64 20 74 6f 20 7a 65 72 6f 0a 3b 20 20 20 20 20 20 69 64 65 6e 74 69 66 69 63 61 74 69 ┆ized to zero ; identificati┆
0x2d220…2d240 6f 6e 20 62 69 74 20 69 73 20 73 65 74 20 74 6f 20 31 3c 6e 0a 3b 20 20 20 20 20 20 6e 65 78 74 ┆on bit is set to 1<n ; next┆
0x2d240…2d260 20 61 6e 64 20 6c 61 73 74 20 65 76 65 6e 74 20 61 72 65 20 73 65 74 20 74 6f 20 6e 65 78 74 20 ┆ and last event are set to next ┆
0x2d260…2d280 65 76 65 6e 74 0a 3b 20 6d 65 73 73 61 67 65 20 61 6e 64 20 63 6f 6e 73 6f 6c 65 20 62 75 66 66 ┆event ; message and console buff┆
0x2d280…2d2a0 65 72 73 3a 0a 3b 20 20 20 20 20 20 62 75 66 66 65 72 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 ┆ers: ; buffer is initialize┆
0x2d2a0…2d2c0 64 20 74 6f 20 7a 65 72 6f 0a 3b 20 20 20 20 20 20 62 75 66 66 65 72 20 69 73 20 6c 69 6e 6b 65 ┆d to zero ; buffer is linke┆
0x2d2c0…2d2e0 64 20 74 6f 20 70 6f 6f 6c 0a 3b 20 61 66 74 65 72 20 72 65 74 75 72 6e 20 74 6f 20 74 68 65 20 ┆d to pool ; after return to the ┆
0x2d2e0…2d300 61 75 74 6f 6c 6f 61 64 65 72 2c 20 74 68 65 20 73 65 67 6d 65 6e 74 20 69 73 20 72 65 6d 6f 76 ┆autoloader, the segment is remov┆
0x2d300…2d320 65 64 2e 0a 0a 73 2e 6b 3d 6b 2c 20 67 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 ┆ed. s.k=k, g30 ; b┆
0x2d320…2d340 65 67 69 6e 0a 77 2e 62 31 32 37 3d 6b 2c 20 67 33 30 2c 20 6b 3d 6b 2d 32 0a 77 2e 67 31 3a 20 ┆egin w.b127=k, g30, k=k-2 w.g1: ┆
0x2d340…2d360 72 73 2e 20 77 33 20 20 67 38 2e 20 20 20 20 20 20 20 3b 20 73 74 61 72 74 3a 0a 0a 3b 20 67 65 ┆rs. w3 g8. ; start: ; ge┆
0x2d360…2d380 74 20 6e 75 6d 62 65 72 20 6f 66 20 73 74 6f 72 61 67 65 20 62 79 74 65 73 0a 20 20 20 20 20 61 ┆t number of storage bytes a┆
0x2d380…2d3a0 6c 20 20 77 31 20 20 78 33 2b 32 30 34 36 20 20 20 3b 20 20 77 31 3a 3d 61 64 64 72 65 73 73 20 ┆l w1 x3+2046 ; w1:=address ┆
0x2d3a0…2d3c0 68 69 67 74 68 65 72 20 74 68 61 6e 20 74 6f 70 20 6f 66 20 6c 6f 61 64 65 64 20 6d 6f 6e 69 74 ┆higther than top of loaded monit┆
0x2d3c0…2d3e0 6f 72 0a 20 20 20 20 20 73 68 2e 20 77 31 20 20 20 20 20 28 67 31 39 2e 29 20 3b 20 20 73 74 61 ┆or sh. w1 (g19.) ; sta┆
0x2d3e0…2d400 72 74 20 61 64 64 72 20 3c 20 32 30 30 30 30 30 20 74 68 65 6e 0a 20 20 20 20 20 72 6c 2e 20 77 ┆rt addr < 200000 then rl. w┆
0x2d400…2d420 31 20 20 20 20 20 67 31 39 2e 20 20 20 3b 20 20 73 74 61 72 74 20 61 64 64 72 3a 3d 32 30 30 30 ┆1 g19. ; start addr:=2000┆
0x2d420…2d440 30 30 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 0a 67 32 30 3a ┆00 al w0 0 ; g20:┆
0x2d440…2d460 20 64 6f 20 20 77 30 20 20 78 31 20 20 20 20 20 20 20 20 3b 20 20 20 63 6c 65 61 72 20 63 6f 72 ┆ do w0 x1 ; clear cor┆
0x2d460…2d480 65 0a 20 20 20 20 20 73 78 20 20 20 20 20 20 20 20 20 32 2e 31 31 31 20 20 3b 20 20 20 69 66 20 ┆e sx 2.111 ; if ┆
0x2d480…2d4a0 65 78 63 65 70 74 69 6f 6e 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 ┆exception then jl. g┆
0x2d4a0…2d4c0 32 31 2e 20 20 20 3b 20 20 20 67 6f 74 6f 20 73 65 74 20 63 6f 72 65 20 73 69 7a 65 0a 20 20 20 ┆21. ; goto set core size ┆
0x2d4c0…2d4e0 20 20 61 6c 20 20 77 31 20 20 78 31 2b 32 20 20 20 20 20 20 3b 20 20 20 20 63 6f 75 6e 74 3a 0a ┆ al w1 x1+2 ; count: ┆
0x2d4e0…2d500 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 32 30 2e 20 20 20 3b 20 20 20 67 6f 74 6f 20 ┆ jl. g20. ; goto ┆
0x2d500…2d520 63 6c 65 61 72 0a 67 32 31 3a 0a 20 20 20 20 20 67 70 20 20 77 31 20 20 20 20 20 62 39 32 20 20 ┆clear g21: gp w1 b92 ┆
0x2d520…2d540 20 20 3b 20 20 20 20 73 79 73 74 65 6d 72 65 67 20 3a 3d 20 63 6f 72 65 20 73 69 7a 65 3b 0a 20 ┆ ; systemreg := core size; ┆
0x2d540…2d560 20 20 20 20 72 73 20 20 77 31 20 20 20 20 20 62 31 32 20 20 20 20 3b 20 20 20 20 73 61 76 65 20 ┆ rs w1 b12 ; save ┆
0x2d560…2d580 63 6f 72 65 20 73 69 7a 65 20 69 6e 20 6d 6f 6e 69 74 6f 72 20 74 61 62 6c 65 0a 0a 3b 20 69 6e ┆core size in monitor table ; in┆
0x2d580…2d5a0 69 74 69 61 6c 69 7a 65 20 6f 74 68 65 72 20 70 61 72 74 73 20 6f 66 20 6d 6f 6e 69 74 6f 72 20 ┆itialize other parts of monitor ┆
0x2d5a0…2d5c0 74 61 62 6c 65 3a 0a 20 20 20 20 20 61 6c 2e 20 77 33 20 20 20 20 20 67 31 30 2e 20 20 20 3b 0a ┆table: al. w3 g10. ; ┆
0x2d5c0…2d5e0 67 31 36 3a 20 64 6c 20 20 77 32 20 20 78 33 2b 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c ┆g16: dl w2 x3+2 ; al┆
0x2d5e0…2d600 20 20 77 33 20 20 78 33 2b 34 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 ┆ w3 x3+4 ; rs w2 x┆
0x2d600…2d620 31 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 31 20 20 20 20 20 30 20 20 20 20 ┆1 ; se w1 0 ┆
0x2d620…2d640 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 36 2e 20 20 20 3b 0a 0a 3b 20 ┆ ; jl. g16. ; ; ┆
0x2d640…2d660 69 6e 69 74 69 61 6c 69 7a 65 20 62 61 73 65 20 6f 66 20 63 6f 6e 74 72 6f 6c 6c 65 72 20 74 61 ┆initialize base of controller ta┆
0x2d660…2d680 62 6c 65 3a 0a 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 20 20 20 62 36 37 20 20 20 20 3b 0a 20 ┆ble: rl w1 b67 ; ┆
0x2d680…2d6a0 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 2b 61 33 31 31 20 20 20 3b 0a 20 20 20 20 20 72 6c 20 ┆ rl w2 x1+a311 ; rl ┆
0x2d6a0…2d6c0 20 77 32 20 20 78 32 2d 61 32 33 30 2b 61 32 33 35 3b 20 20 20 20 77 32 3a 3d 20 64 65 76 69 63 ┆ w2 x2-a230+a235; w2:= devic┆
0x2d6c0…2d6e0 65 20 61 64 64 72 20 28 66 69 72 73 74 20 64 65 76 69 63 65 20 64 65 73 63 72 29 3b 0a 20 20 20 ┆e addr (first device descr); ┆
0x2d6e0…2d700 20 20 6c 73 20 20 77 32 20 20 20 20 20 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6c 73 20 20 77 ┆ ls w2 1 ; ls w┆
0x2d700…2d720 32 20 20 20 20 2d 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 77 73 20 20 77 31 20 20 20 20 20 34 ┆2 -1 ; ws w1 4┆
0x2d720…2d740 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 20 20 77 31 20 20 20 20 20 62 36 35 20 20 20 20 3b ┆ ; rs w1 b65 ;┆
0x2d740…2d760 0a 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 62 34 20 20 20 20 20 20 20 20 3b 20 6e 61 6d 65 20 ┆ rl w2 b4 ; name ┆
0x2d760…2d780 74 61 62 6c 65 3a 0a 67 30 3a 20 20 72 6c 20 20 77 30 20 28 78 32 2b 61 31 30 29 20 20 20 3b 0a ┆table: g0: rl w0 (x2+a10) ; ┆
0x2d780…2d7a0 20 20 20 20 20 73 6e 20 20 77 30 20 20 38 36 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c ┆ sn w0 86 ; jl┆
0x2d7a0…2d7c0 2e 20 20 20 20 20 67 37 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 38 ┆. g7. ; se w0 8┆
0x2d7c0…2d7e0 38 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6b 69 6e 64 28 70 72 6f 63 29 3d 66 70 61 72 65 ┆8 ; if kind(proc)=fpare┆
0x2d7e0…2d800 63 2c 74 72 6d 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 67 32 2e 20 20 20 20 20 ┆c,trm then jl. g2. ┆
0x2d800…2d820 20 20 3b 20 20 20 20 20 69 6e 69 74 69 61 74 65 20 66 69 72 73 74 2c 74 6f 70 20 6f 77 6e 20 61 ┆ ; initiate first,top own a┆
0x2d820…2d840 72 65 61 3b 0a 67 37 3a 20 20 72 6c 20 20 77 33 20 20 78 32 20 20 20 20 20 20 20 20 3b 0a 20 20 ┆rea; g7: rl w3 x2 ; ┆
0x2d840…2d860 20 20 20 64 6c 2e 20 77 31 20 20 67 31 33 2e 20 20 20 20 20 20 3b 0a 20 20 20 20 20 77 73 20 20 ┆ dl. w1 g13. ; ws ┆
0x2d860…2d880 77 30 20 20 36 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 77 73 20 20 77 31 20 20 36 20 20 ┆w0 6 ; ws w1 6 ┆
0x2d880…2d8a0 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 64 73 20 20 77 31 20 20 78 33 2b 61 32 32 31 20 20 20 ┆ ; ds w1 x3+a221 ┆
0x2d8a0…2d8c0 3b 0a 67 32 3a 20 20 61 6c 20 20 77 32 20 20 78 32 2b 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆; g2: al w2 x2+2 ; ┆
0x2d8c0…2d8e0 73 65 20 20 77 32 20 28 62 35 29 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 ┆se w2 (b5) ; jl. ┆
0x2d8e0…2d900 20 67 30 2e 20 20 20 20 20 20 20 3b 0a 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 30 20 20 20 ┆ g0. ; al w0 0 ┆
0x2d900…2d920 (81,) 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 28 62 35 29 20 20 20 20 20 20 20 ┆ ; rl w2 (b5) ┆
0x2d920…2d940 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 61 33 34 39 20 20 20 3b 0a 20 20 67 33 ┆; al w2 x2+a349 ; g3┆
0x2d940…2d960 3a 20 72 73 20 20 77 30 20 20 78 32 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 ┆: rs w0 x2 ; al ┆
0x2d960…2d980 77 32 20 20 78 32 2b 32 20 20 20 20 20 20 3b 20 20 20 66 6f 72 20 61 64 64 72 3a 3d 20 6e 61 6d ┆w2 x2+2 ; for addr:= nam┆
0x2d980…2d9a0 65 20 74 61 62 6c 65 28 66 69 72 73 74 20 61 72 65 61 29 0a 20 20 20 20 20 20 73 68 20 20 77 32 ┆e table(first area) sh w2┆
0x2d9a0…2d9c0 20 28 62 38 2b 36 29 20 20 20 20 20 3b 20 20 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 63 6f 6e ┆ (b8+6) ; step 2 until con┆
0x2d9c0…2d9e0 73 6f 6c 65 20 70 6f 6f 6c 20 65 6e 64 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 67 33 2e 20 ┆sole pool end jl. g3. ┆
0x2d9e0…2da00 20 20 20 20 20 20 3b 20 20 20 64 6f 20 77 6f 72 64 28 61 64 64 72 29 3a 3d 20 30 3b 0a 20 20 20 ┆ ; do word(addr):= 0; ┆
0x2da00…2da20 20 20 20 72 6c 20 20 77 32 20 20 62 35 20 20 20 20 20 20 20 20 3b 20 20 20 65 6e 74 72 79 3a 3d ┆ rl w2 b5 ; entry:=┆
0x2da20…2da40 20 66 69 72 73 74 20 61 72 65 61 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 30 20 ┆ first area; rl w3 x2+0 ┆
0x2da40…2da60 20 20 20 20 20 3b 20 20 20 70 72 6f 63 3a 3d 20 6e 61 6d 65 20 74 61 62 6c 65 28 65 6e 74 72 79 ┆ ; proc:= name table(entry┆
0x2da60…2da80 29 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 34 20 20 20 20 20 20 20 20 20 3b 20 61 72 65 ┆); al w0 4 ; are┆
0x2da80…2daa0 61 20 70 72 6f 63 65 73 73 3a 0a 20 20 67 34 3a 20 72 73 20 20 77 33 20 20 78 32 2b 30 20 20 20 ┆a process: g4: rs w3 x2+0 ┆
0x2daa0…2dac0 20 20 20 3b 20 20 20 6e 61 6d 65 20 74 61 62 6c 65 28 65 6e 74 72 79 29 3a 3d 20 70 72 6f 63 3b ┆ ; name table(entry):= proc;┆
0x2dac0…2dae0 0a 20 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2b 30 20 20 20 20 20 20 3b 20 20 20 6b 69 6e ┆ rs w0 x3+0 ; kin┆
0x2dae0…2db00 64 28 70 72 6f 63 29 3a 3d 20 34 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 32 20 ┆d(proc):= 4; al w2 x2+2 ┆
0x2db00…2db20 20 20 20 20 20 3b 20 20 20 65 6e 74 72 79 3a 3d 20 65 6e 74 72 79 20 2b 20 32 3b 0a 20 20 20 20 ┆ ; entry:= entry + 2; ┆
0x2db20…2db40 20 20 61 6c 20 20 77 33 20 20 78 33 2b 61 32 20 20 20 20 20 3b 20 20 20 70 72 6f 63 3a 3d 20 70 ┆ al w3 x3+a2 ; proc:= p┆
0x2db40…2db60 72 6f 63 20 2b 20 61 72 65 61 20 70 72 6f 63 20 73 69 7a 65 3b 0a 20 20 20 20 20 20 73 65 20 20 ┆roc + area proc size; se ┆
0x2db60…2db80 77 32 20 28 62 36 29 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 65 6e 74 72 79 20 3c 3e 20 66 69 ┆w2 (b6) ; if entry <> fi┆
0x2db80…2dba0 72 73 74 20 69 6e 74 65 72 6e 61 6c 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 67 34 2e 20 20 ┆rst internal jl. g4. ┆
0x2dba0…2dbc0 20 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 61 72 65 61 20 70 72 6f 63 65 73 73 3b ┆ ; then goto area process;┆
0x2dbc0…2dbe0 0a 20 20 20 20 20 20 72 6c 2e 20 77 30 20 20 67 39 2e 20 20 20 20 20 20 20 3b 20 20 20 69 64 20 ┆ rl. w0 g9. ; id ┆
0x2dbe0…2dc00 62 69 74 3a 3d 20 31 20 73 68 69 66 74 20 32 33 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 ┆bit:= 1 shift 23; rl w3 ┆
0x2dc00…2dc20 78 32 20 20 20 20 20 20 20 20 3b 20 20 20 20 70 72 6f 63 3a 3d 6e 61 6d 65 20 74 61 62 6c 65 28 ┆x2 ; proc:=name table(┆
0x2dc20…2dc40 65 6e 74 72 79 29 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 ┆entry); ┆
0x2dc40…2dc60 3b 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 3a 0a 20 20 20 20 20 20 61 6c 20 20 77 30 ┆; internal process: al w0┆
0x2dc60…2dc80 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 68 61 6c 66 77 6f 72 64 3a 3d 30 3b 0a 20 20 ┆ 0 ; halfword:=0; ┆
0x2dc80…2dca0 20 20 20 20 62 7a 2e 20 77 31 20 20 20 20 20 67 39 2e 20 20 20 20 3b 20 20 20 20 69 64 2d 62 69 ┆ bz. w1 g9. ; id-bi┆
0x2dca0…2dcc0 74 3a 3d 32 2e 31 30 30 30 20 30 30 30 30 20 30 30 30 30 0a 67 35 3a 20 20 20 72 73 20 20 77 33 ┆t:=2.1000 0000 0000 g5: rs w3┆
0x2dcc0…2dce0 20 20 78 32 20 20 20 20 20 20 20 20 3b 20 20 20 20 6e 61 6d 65 20 74 61 62 6c 65 28 65 6e 74 72 ┆ x2 ; name table(entr┆
0x2dce0…2dd00 79 29 3a 3d 70 72 6f 63 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 32 20 20 20 20 20 67 31 37 2e 20 ┆y):=proc; rs. w2 g17. ┆
0x2dd00…2dd20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 20 20 61 33 35 32 20 20 20 3b 0a 20 20 ┆ ; al w2 a352 ; ┆
0x2dd20…2dd40 20 20 20 20 72 73 20 20 77 32 20 20 78 33 2b 61 31 38 36 20 20 20 3b 20 20 73 65 74 20 63 70 75 ┆ rs w2 x3+a186 ; set cpu┆
0x2dd40…2dd60 20 6d 61 73 6b 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 67 31 37 2e 20 20 20 3b ┆ mask; rl. w2 g17. ;┆
0x2dd60…2dd80 0a 20 20 20 20 20 20 68 73 20 20 77 30 20 20 78 33 2b 61 31 34 20 20 20 20 3b 20 20 20 20 69 64 ┆ hs w0 x3+a14 ; id┆
0x2dd80…2dda0 2d 62 69 74 28 70 72 6f 63 29 3a 3d 69 64 2d 62 69 74 3b 0a 20 20 20 20 20 20 68 73 20 20 77 31 ┆-bit(proc):=id-bit; hs w1┆
0x2dda0…2ddc0 20 20 78 33 2b 61 31 34 2b 31 20 20 3b 20 20 20 20 68 61 6c 66 77 6f 72 64 28 70 72 6f 63 29 3a ┆ x3+a14+1 ; halfword(proc):┆
0x2ddc0…2dde0 3d 68 61 6c 66 77 6f 72 64 3b 0a 20 20 20 20 20 20 6c 73 20 20 77 31 20 20 2d 31 20 20 20 20 20 ┆=halfword; ls w1 -1 ┆
0x2dde0…2de00 20 20 20 3b 20 20 20 20 69 64 2d 62 69 74 3a 3d 69 64 2d 62 69 74 20 73 68 69 66 74 20 28 2d 31 ┆ ; id-bit:=id-bit shift (-1┆
0x2de00…2de20 29 3b 0a 20 20 20 20 20 20 73 65 20 20 77 31 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 ┆); se w1 0 ; ┆
0x2de20…2de40 69 66 20 69 64 2d 62 69 74 2e 68 61 6c 66 77 6f 72 64 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆if id-bit.halfword<>0 then ┆
0x2de40…2de60 20 6a 6c 2e 20 20 20 20 20 67 31 34 2e 20 20 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 67 31 34 ┆ jl. g14. ; goto g14┆
0x2de60…2de80 0a 20 20 20 20 20 20 62 61 2e 20 77 30 20 20 31 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 65 6c ┆ ba. w0 1 ; el┆
0x2de80…2dea0 73 65 20 68 61 6c 66 77 6f 72 64 3a 3d 6e 65 78 74 20 68 61 6c 66 77 6f 72 64 3b 0a 20 20 20 20 ┆se halfword:=next halfword; ┆
0x2dea0…2dec0 20 20 62 7a 2e 20 77 31 20 20 20 20 20 67 39 2e 20 20 20 20 3b 20 20 20 20 69 64 2d 62 69 74 3a ┆ bz. w1 g9. ; id-bit:┆
0x2dec0…2dee0 3d 32 2e 31 30 30 30 20 30 30 30 30 20 30 30 30 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=2.1000 0000 0000 ┆
0x2dee0…2df00 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 73 65 74 20 71 75 65 75 65 3a 0a 67 31 34 3a 20 20 ┆ ; set queue: g14: ┆
0x2df00…2df20 61 6c 20 20 77 33 20 20 78 33 2b 61 31 35 20 20 20 20 3b 20 20 20 20 6e 65 78 74 28 65 76 65 6e ┆al w3 x3+a15 ; next(even┆
0x2df20…2df40 74 20 71 28 70 72 6f 63 29 20 29 3a 3d 0a 20 20 20 20 20 20 72 73 20 20 77 33 20 20 78 33 20 20 ┆t q(proc) ):= rs w3 x3 ┆
0x2df40…2df60 20 20 20 20 20 20 3b 20 20 20 20 6c 61 73 74 28 65 76 65 6e 74 20 71 28 70 72 6f 63 29 20 29 3a ┆ ; last(event q(proc) ):┆
0x2df60…2df80 3d 0a 20 20 20 20 20 20 72 73 20 20 77 33 20 20 78 33 2b 32 20 20 20 20 20 20 3b 20 20 20 20 65 ┆= rs w3 x3+2 ; e┆
0x2df80…2dfa0 76 65 6e 74 20 71 28 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 61 ┆vent q(proc); al w3 x3+a┆
0x2dfa0…2dfc0 34 2d 61 31 35 20 3b 20 20 20 20 70 72 6f 63 3a 3d 6e 65 78 74 20 70 72 6f 63 3b 0a 20 20 20 20 ┆4-a15 ; proc:=next proc; ┆
0x2dfc0…2dfe0 20 20 61 6c 20 20 77 32 20 20 78 32 2b 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 20 20 ┆ al w2 x2+2 ; se ┆
0x2dfe0…2e000 77 32 20 28 62 37 29 20 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 69 66 20 65 6e 74 72 79 3c 3e ┆w2 (b7) ; if if entry<>┆
0x2e000…2e020 20 6e 61 6d 65 20 74 61 62 6c 65 20 65 6e 64 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 ┆ name table end then jl. ┆
0x2e020…2e040 20 20 20 67 35 2e 20 20 20 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 69 6e 74 65 72 6e 61 6c 20 ┆ g5. ; goto internal ┆
0x2e040…2e060 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 61 34 36 20 20 20 20 20 20 ┆process; al w1 a46 ┆
0x2e060…2e080 20 3b 20 63 6c 61 69 6d 73 20 72 65 6c 20 61 64 64 72 3a 3d 66 69 72 73 74 20 63 6c 61 69 6d 0a ┆ ; claims rel addr:=first claim ┆
0x2e080…2e0a0 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 0a 63 2e 20 20 20 28 ┆ al w0 0 ; c. (┆
0x2e0a0…2e0c0 3a 61 31 31 33 2d 31 3a 29 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 62 32 32 20 20 20 20 20 ┆:a113-1:) rl w2 b22 ┆
0x2e0c0…2e0e0 20 20 3b 20 20 20 65 6e 74 72 79 3a 3d 20 66 69 72 73 74 20 64 72 75 6d 20 63 68 61 69 6e 0a 20 ┆ ; entry:= first drum chain ┆
0x2e0e0…2e100 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 20 20 20 20 20 20 20 20 3b 20 63 68 61 69 6e 3a 3d ┆ rl w3 x2 ; chain:=┆
0x2e100…2e120 20 6e 61 6d 65 74 61 62 6c 65 28 65 6e 74 72 79 29 0a 20 20 67 31 31 3a 72 73 20 20 77 33 20 20 ┆ nametable(entry) g11:rs w3 ┆
0x2e120…2e140 78 32 20 20 20 20 20 20 20 20 3b 20 6e 61 6d 65 74 61 62 6c 65 28 65 6e 74 72 79 29 3a 3d 63 68 ┆x2 ; nametable(entry):=ch┆
0x2e140…2e160 61 69 6e 0a 20 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2d 61 38 38 2b 31 36 20 3b 20 73 74 ┆ain rs w0 x3-a88+16 ; st┆
0x2e160…2e180 61 74 65 28 63 68 61 69 6e 29 3a 3d 20 66 72 65 65 0a 20 20 20 20 20 20 72 73 20 20 77 31 20 20 ┆ate(chain):= free rs w1 ┆
0x2e180…2e1a0 78 33 2d 61 38 38 2d 32 20 20 3b 20 63 6c 61 69 6d 73 20 72 65 6c 20 61 64 64 72 28 63 68 61 69 ┆x3-a88-2 ; claims rel addr(chai┆
0x2e1a0…2e1c0 6e 29 3a 3d 63 6c 61 69 6d 73 20 72 65 6c 20 61 64 64 72 0a 20 20 20 20 20 20 61 6c 20 20 77 32 ┆n):=claims rel addr al w2┆
0x2e1c0…2e1e0 20 20 78 32 2b 32 20 20 20 20 20 20 3b 20 65 6e 74 72 79 3a 3d 65 6e 74 72 79 2b 32 0a 20 20 20 ┆ x2+2 ; entry:=entry+2 ┆
0x2e1e0…2e200 20 20 20 61 6d 20 20 20 20 20 20 61 38 38 2b 32 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 ┆ am a88+2 ; al ┆
0x2e200…2e220 (82,) 20 77 33 20 20 78 33 2b 61 31 31 34 2d 61 38 38 2d 32 3b 20 63 68 61 69 6e 3a 3d 63 68 61 69 6e ┆ w3 x3+a114-a88-2; chain:=chain┆
0x2e220…2e240 2b 64 72 75 6d 63 68 61 69 6e 20 73 69 7a 65 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b ┆+drumchain size al w1 x1+┆
0x2e240…2e260 61 31 31 30 2a 34 2b 34 3b 20 62 73 5f 63 6c 61 69 6d 73 20 72 65 6c 20 61 64 64 72 3a 3d 62 73 ┆a110*4+4; bs_claims rel addr:=bs┆
0x2e260…2e280 5f 63 6c 61 69 6d 73 20 72 65 6c 20 61 64 64 72 20 2b 28 6d 61 78 20 6b 65 79 2b 31 29 2a 34 20 ┆_claims rel addr +(max key+1)*4 ┆
0x2e280…2e2a0 0a 20 20 20 20 20 20 73 65 20 20 77 32 20 28 62 32 33 29 20 20 20 20 20 20 3b 20 69 66 20 65 6e ┆ se w2 (b23) ; if en┆
0x2e2a0…2e2c0 74 72 79 3c 3e 66 69 72 73 74 20 64 69 73 63 20 63 68 61 69 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 ┆try<>first disc chain jl. ┆
0x2e2c0…2e2e0 20 20 20 20 67 31 31 2e 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 64 72 75 6d 20 63 ┆ g11. ; then goto drum c┆
0x2e2e0…2e300 68 61 69 6e 0a 7a 2e 0a 63 2e 20 20 20 28 3a 61 31 31 35 2d 31 3a 29 0a 20 20 20 20 20 20 72 6c ┆hain z. c. (:a115-1:) rl┆
0x2e300…2e320 20 20 77 32 20 20 62 32 33 20 20 20 20 20 20 20 3b 20 20 20 65 6e 74 72 79 3a 3d 20 66 69 72 73 ┆ w2 b23 ; entry:= firs┆
0x2e320…2e340 74 20 64 69 73 63 20 63 68 61 69 6e 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 20 20 20 ┆t disc chain rl w3 x2 ┆
0x2e340…2e360 20 20 20 20 20 3b 0a 20 20 67 31 32 3a 72 73 20 20 77 33 20 20 78 32 20 20 20 20 20 20 20 20 3b ┆ ; g12:rs w3 x2 ;┆
0x2e360…2e380 0a 20 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 2d 61 38 38 2b 31 36 20 3b 0a 20 20 20 20 20 ┆ rs w0 x3-a88+16 ; ┆
0x2e380…2e3a0 20 72 73 20 20 77 31 20 20 78 33 2d 61 38 38 2d 32 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 ┆ rs w1 x3-a88-2 ; al w┆
0x2e3a0…2e3c0 32 20 20 78 32 2b 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6d 20 20 20 20 20 20 61 38 38 ┆2 x2+2 ; am a88┆
0x2e3c0…2e3e0 2b 32 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 61 31 31 36 2d 61 ┆+2 ; al w3 x3+a116-a┆
0x2e3e0…2e400 38 38 2d 32 3b 63 68 61 69 6e 3a 3d 63 68 61 69 6e 2b 64 69 73 63 63 68 61 69 6e 20 73 69 7a 65 ┆88-2;chain:=chain+discchain size┆
0x2e400…2e420 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 61 31 31 30 2a 34 2b 34 3b 20 62 73 5f 63 6c ┆ al w1 x1+a110*4+4; bs_cl┆
0x2e420…2e440 61 69 6d 73 20 72 65 6c 20 61 64 64 72 3a 3d 62 73 5f 63 6c 61 69 6d 73 20 72 65 6c 20 61 64 64 ┆aims rel addr:=bs_claims rel add┆
0x2e440…2e460 72 20 2b 28 6d 61 78 20 6b 65 79 2b 31 29 2a 34 0a 20 20 20 20 20 20 73 65 20 20 77 32 20 28 62 ┆r +(max key+1)*4 se w2 (b┆
0x2e460…2e480 32 34 29 20 20 20 20 20 20 3b 20 69 66 20 65 6e 74 72 79 3c 3e 63 68 61 69 6e 20 65 6e 64 0a 20 ┆24) ; if entry<>chain end ┆
0x2e480…2e4a0 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 67 31 32 2e 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f ┆ jl. g12. ; then go┆
0x2e4a0…2e4c0 74 6f 20 64 69 73 63 20 63 68 61 69 6e 0a 7a 2e 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 62 ┆to disc chain z. al w1 b┆
0x2e4c0…2e4e0 38 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 62 38 2b 34 20 20 20 ┆8 ; rl w2 b8+4 ┆
0x2e4e0…2e500 20 20 20 3b 0a 20 20 67 36 3a 20 6a 6c 20 20 77 33 20 20 62 33 36 20 20 20 20 20 20 20 3b 20 20 ┆ ; g6: jl w3 b36 ; ┆
0x2e500…2e520 20 66 6f 72 20 62 75 66 3a 3d 20 66 69 72 73 74 20 62 75 66 28 6d 65 73 73 20 70 6f 6f 6c 29 0a ┆ for buf:= first buf(mess pool) ┆
0x2e520…2e540 20 20 20 20 20 20 77 61 20 20 77 32 20 20 62 38 2b 38 20 20 20 20 20 20 3b 20 20 20 73 74 65 70 ┆ wa w2 b8+8 ; step┆
0x2e540…2e560 20 62 75 66 20 73 69 7a 65 28 6d 65 73 73 20 70 6f 6f 6c 29 0a 20 20 20 20 20 20 73 68 20 20 77 ┆ buf size(mess pool) sh w┆
0x2e560…2e580 32 20 28 62 38 2b 36 29 20 20 20 20 20 3b 20 20 20 75 6e 74 69 6c 20 6c 61 73 74 20 62 75 66 28 ┆2 (b8+6) ; until last buf(┆
0x2e580…2e5a0 6d 65 73 73 20 70 6f 6f 6c 29 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 67 36 2e 20 20 20 20 ┆mess pool) jl. g6. ┆
0x2e5a0…2e5c0 20 20 20 3b 20 20 20 64 6f 20 6c 69 6e 6b 20 28 6d 65 73 73 20 70 6f 6f 6c 2c 20 62 75 66 29 3b ┆ ; do link (mess pool, buf);┆
0x2e5c0…2e5e0 0a 20 20 20 20 20 20 61 6c 2e 20 77 32 20 20 67 31 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ al. w2 g1. ; ┆
0x2e5e0…2e600 20 6a 6c 2e 20 20 20 20 28 67 38 2e 29 20 20 20 20 20 20 3b 20 20 20 61 75 74 6f 6c 6f 61 64 65 ┆ jl. (g8.) ; autoloade┆
0x2e600…2e620 72 28 73 74 61 72 74 29 3b 0a 0a 67 38 3a 20 20 30 0a 67 39 3a 20 20 31 3c 32 33 0a 20 20 20 20 ┆r(start); g8: 0 g9: 1<23 ┆
0x2e620…2e640 20 66 31 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 67 31 33 3a 20 66 32 30 20 20 20 ┆ f19 ; g13: f20 ┆
0x2e640…2e660 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 67 31 37 3a 20 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; g17: 0 ┆
0x2e660…2e680 20 20 20 20 20 20 3b 20 20 6e 61 6d 65 20 74 61 62 6c 65 20 65 6e 74 72 79 0a 67 31 39 3a 20 20 ┆ ; name table entry g19: ┆
0x2e680…2e6a0 32 30 30 30 30 30 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 6c 6f 77 65 72 20 6c 69 6d 69 ┆200000 ; lower limi┆
0x2e6a0…2e6c0 74 20 66 6f 72 20 63 6c 65 61 72 20 63 6f 72 65 20 73 74 6f 72 65 0a 0a 3b 20 6d 6f 6e 69 74 6f ┆t for clear core store ; monito┆
0x2e6c0…2e6e0 72 20 74 61 62 6c 65 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 3a 0a 3b 0a 3b 20 20 20 20 61 ┆r table initialization: ; ; a┆
0x2e6e0…2e700 64 64 72 65 73 73 20 63 6f 6e 74 65 6e 74 73 0a 0a 67 31 30 3a 0a 20 20 20 20 20 62 30 20 20 20 ┆ddress contents g10: b0 ┆
0x2e700…2e720 20 20 2c 20 62 35 33 20 2d 20 62 31 36 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 32 20 ┆ , b53 - b16 ; b2 ┆
0x2e720…2e740 20 20 20 20 2c 20 66 35 2b 61 31 36 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 ┆ , f5+a16 ; b┆
0x2e740…2e760 32 2b 32 20 20 20 2c 20 66 32 31 2b 61 31 36 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 ┆2+2 , f21+a16 ; ┆
0x2e760…2e780 20 62 33 20 20 20 20 20 2c 20 66 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 ┆ b3 , f0 ; ┆
0x2e780…2e7a0 20 20 20 62 34 20 20 20 20 20 2c 20 66 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a ┆ b4 , f1 ; ┆
0x2e7a0…2e7c0 20 20 20 20 20 62 35 20 20 20 20 20 2c 20 66 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ b5 , f2 ┆
0x2e7c0…2e7e0 3b 0a 20 20 20 20 20 62 36 20 20 20 20 20 2c 20 66 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; b6 , f3 ┆
0x2e7e0…2e800 20 20 3b 0a 20 20 20 20 20 62 37 20 20 20 20 20 2c 20 66 34 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; b7 , f4 ┆
0x2e800…2e820 20 20 20 20 3b 0a 20 20 20 20 20 62 38 2b 34 20 20 20 2c 20 66 39 20 20 20 20 20 20 20 20 20 20 ┆ ; b8+4 , f9 ┆
0x2e820…2e840 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 38 2b 36 20 20 20 2c 20 66 31 30 20 20 20 20 20 20 20 ┆ ; b8+6 , f10 ┆
0x2e840…2e860 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 32 31 20 20 20 20 2c 20 66 35 20 20 20 20 20 20 ┆ ; b21 , f5 ┆
0x2e860…2e880 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 32 32 20 20 20 20 2c 20 66 31 33 20 20 20 ┆ ; b22 , f13 ┆
0x2e880…2e8a0 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 32 33 20 20 20 20 2c 20 66 31 34 20 ┆ ; b23 , f14 ┆
0x2e8a0…2e8c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 32 34 20 20 20 20 2c 20 66 31 ┆ ; b24 , f1┆
0x2e8c0…2e8e0 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 33 30 20 20 20 20 2c 20 ┆5 ; b30 , ┆
0x2e8e0…2e900 66 31 38 0a 20 20 20 20 20 62 36 37 20 20 20 20 2c 20 66 31 36 20 20 20 20 20 20 20 20 20 20 20 ┆f18 b67 , f16 ┆
0x2e900…2e920 20 20 20 20 3b 0a 20 20 20 20 20 62 36 38 20 20 20 20 2c 20 66 31 37 20 20 20 20 20 20 20 20 20 ┆ ; b68 , f17 ┆
0x2e920…2e940 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 37 32 20 20 20 20 2c 20 62 35 33 20 20 20 20 20 20 20 ┆ ; b72 , b53 ┆
0x2e940…2e960 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 37 33 20 20 20 20 2c 20 62 35 34 20 20 20 20 20 ┆ ; b73 , b54 ┆
0x2e960…2e980 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 31 30 31 20 20 20 2c 20 62 38 39 20 20 20 ┆ ; b101 , b89 ┆
0x2e980…2e9a0 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 31 30 32 20 20 20 2c 20 61 36 36 20 ┆ ; b102 , a66 ┆
0x2e9a0…2e9c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 3b 20 69 6e 73 65 72 74 20 69 6e 20 6d 6f 6e ┆ ; ; insert in mon┆
0x2e9c0…2e9e0 69 74 6f 72 20 74 61 62 6c 65 20 63 6f 70 69 65 73 3a 0a 20 20 20 20 20 62 31 32 38 2b 30 20 2c ┆itor table copies: b128+0 ,┆
0x2e9e0…2ea00 20 66 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 31 32 38 2b 32 ┆ f0 ; b128+2┆
0x2ea00…2ea20 20 2c 20 66 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 31 32 38 ┆ , f1 ; b128┆
0x2ea20…2ea40 2b 34 20 2c 20 66 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 31 ┆+4 , f2 ; b1┆
0x2ea40…2ea60 32 38 2b 36 20 2c 20 66 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆28+6 , f3 ; ┆
0x2ea60…2ea80 62 31 32 38 2b 38 20 2c 20 66 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆b128+8 , f4 ; ┆
0x2ea80…2eaa0 20 20 62 31 32 38 2b 31 30 2c 20 66 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 ┆ b128+10, f9 ; ┆
0x2eaa0…2eac0 20 20 20 20 62 31 32 38 2b 31 32 2c 20 66 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ b128+12, f10 ;┆
0x2eac0…2eae0 0a 20 20 20 20 20 62 31 32 38 2b 31 34 2c 20 66 31 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ b128+14, f13 ┆
0x2eae0…2eb00 20 3b 0a 20 20 20 20 20 62 31 32 38 2b 31 36 2c 20 66 31 34 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; b128+16, f14 ┆
0x2eb00…2eb20 (83,) 20 20 20 3b 0a 20 20 20 20 20 62 31 32 38 2b 31 38 2c 20 66 31 35 20 20 20 20 20 20 20 20 20 20 ┆ ; b128+18, f15 ┆
0x2eb20…2eb40 20 20 20 20 20 3b 0a 20 20 20 20 20 62 31 32 38 2b 32 32 2c 20 62 38 36 20 20 20 20 20 20 20 20 ┆ ; b128+22, b86 ┆
0x2eb40…2eb60 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 0a 20 20 20 20 20 30 20 3b 20 65 6e 64 20 6f 66 20 74 ┆ ; 0 ; end of t┆
0x2eb60…2eb80 61 62 6c 65 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 2e 20 20 20 20 20 20 20 ┆able jl. g1. ┆
0x2eb80…2eba0 20 20 20 20 20 20 3b 20 61 66 74 65 72 20 6c 6f 61 64 69 6e 67 3a 20 67 6f 74 6f 20 73 74 61 72 ┆ ; after loading: goto star┆
0x2eba0…2ebc0 74 0a 0a 20 20 67 33 30 3d 6b 2d 62 31 32 37 20 2b 20 32 20 0a 6b 3d 67 31 0a 3b 63 6f 6d 6d 65 ┆t g30=k-b127 + 2 k=g1 ;comme┆
0x2ebc0…2ebe0 6e 74 3a 20 6b 20 3d 20 61 62 73 6f 6c 75 74 65 20 66 69 72 73 74 20 61 64 64 72 65 73 73 20 6f ┆nt: k = absolute first address o┆
0x2ebe0…2ec00 66 20 69 6e 69 74 69 61 6c 69 7a 65 20 6d 6f 6e 69 74 6f 72 0a 69 2e 0a 65 2e 20 20 20 3b 20 65 ┆f initialize monitor i. e. ; e┆
0x2ec00…2ec20 6e 64 20 6f 66 20 69 6e 69 74 69 61 6c 69 7a 65 20 6d 6f 6e 69 74 6f 72 20 73 65 67 6d 65 6e 74 ┆nd of initialize monitor segment┆
0x2ec20…2ec40 0a 0a 65 2e 20 20 20 3b 20 65 6e 64 20 6f 66 20 6d 6f 6e 69 74 6f 72 20 62 6c 6f 63 6b 20 77 69 ┆ e. ; end of monitor block wi┆
0x2ec40…2ec60 74 68 20 63 2c 20 64 2c 20 65 2c 61 6e 64 20 66 20 6e 61 6d 65 73 0a 19 00 35 34 20 20 20 20 20 ┆th c, d, e,and f names 54 ┆
0x2ec60…2ec80 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 31 30 31 20 20 20 2c 20 62 38 39 20 20 20 ┆ ; b101 , b89 ┆
0x2ec80…2eca0 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 31 30 32 20 20 20 2c 20 61 36 36 20 ┆ ; b102 , a66 ┆
0x2eca0…2ecc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 3b 20 69 6e 73 65 72 74 20 69 6e 20 6d 6f 6e ┆ ; ; insert in mon┆
0x2ecc0…2ece0 69 74 6f 72 20 74 61 62 6c 65 20 63 6f 70 69 65 73 3a 0a 20 20 20 20 20 62 31 32 38 2b 30 20 2c ┆itor table copies: b128+0 ,┆
0x2ece0…2ed00 20 66 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 31 32 38 2b 32 ┆ f0 ; b128+2┆
0x2ed00…2ed20 20 2c 20 66 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 31 32 38 ┆ , f1 ; b128┆
0x2ed20…2ed40 2b 34 20 2c 20 66 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 31 ┆+4 , f2 ; b1┆
0x2ed40…2ed60 32 38 2b 36 20 2c 20 66 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆28+6 , f3 ; ┆
0x2ed60…2ed80 62 31 32 38 2b 38 20 2c 20 66 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆b128+8 , f4 ; ┆
0x2ed80…2eda0 20 20 62 31 32 38 2b 31 30 2c 20 66 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 ┆ b128+10, f9 ; ┆
0x2eda0…2edc0 20 20 20 20 62 31 32 38 2b 31 32 2c 20 66 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ b128+12, f10 ;┆
0x2edc0…2ede0 0a 20 20 20 20 20 62 31 32 38 2b 31 34 2c 20 66 31 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ b128+14, f13 ┆
0x2ede0…2ee00 20 3b 0a 20 20 20 20 20 62 31 32 38 2b 31 36 2c 20 66 31 34 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; b128+16, f14 ┆
0x2ee00…2ee20 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 20 20 20 68 31 37 2e 20 20 20 3b 20 20 20 20 20 20 73 ┆ rl. w3 h17. ; s┆
0x2ee20…2ee40 65 6e 64 65 72 20 3a 3d 20 73 61 76 65 64 20 73 65 6e 64 65 72 20 64 65 73 63 72 20 61 64 64 72 ┆ender := saved sender descr addr┆
0x2ee40…2ee60 3b 0a 20 20 20 20 20 62 7a 20 20 77 32 20 20 78 33 2b 61 31 33 20 20 20 20 3b 20 20 20 20 20 20 ┆; bz w2 x3+a13 ; ┆
0x2ee60…2ee80 69 66 20 73 74 61 74 65 28 73 65 6e 64 65 72 29 20 73 68 6f 77 73 0a 20 20 20 20 20 73 65 20 20 ┆if state(sender) shows se ┆
0x2ee80…2eea0 77 32 20 20 20 20 20 61 39 39 20 20 20 20 3b 20 20 20 20 20 20 20 27 77 61 69 74 69 6e 67 20 66 ┆w2 a99 ; 'waiting f┆
0x2eea0…2eec0 6f 72 20 73 74 61 72 74 27 20 74 68 65 6e 0a 20 20 20 20 20 73 6e 20 20 77 32 20 20 20 20 20 61 ┆or start' then sn w2 a┆
0x2eec0…2eee0 31 30 30 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 32 2e 20 20 20 20 3b ┆100 ; jl. i2. ;┆
0x2eee0…2ef00 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 65 6e 64 65 72 20 73 74 6f 70 70 65 64 3b 0a 0a 20 20 ┆ goto sender stopped; ┆
0x2ef00…2ef20 20 20 20 62 7a 20 20 77 32 20 20 78 33 2b 61 31 32 20 20 20 20 3b 20 20 20 20 20 20 69 6e 63 72 ┆ bz w2 x3+a12 ; incr┆
0x2ef20…2ef40 65 61 73 65 20 28 73 74 6f 70 63 6f 75 6e 74 20 28 73 65 6e 64 65 72 29 29 3b 0a 20 20 20 20 20 ┆ease (stopcount (sender)); ┆
0x2ef40…2ef60 61 6c 20 20 77 32 20 20 78 32 2b 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 68 73 20 20 77 32 20 ┆al w2 x2+1 ; hs w2 ┆
0x2ef60…2ef80 20 78 33 2b 61 31 32 20 20 20 20 3b 0a 69 34 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ x3+a12 ; i40: ┆
0x2ef80…2efa0 20 20 20 20 3b 20 20 20 20 20 20 65 6e 64 3b 0a 0a 3b 20 74 68 65 20 64 72 69 76 65 72 20 73 68 ┆ ; end; ; the driver sh┆
0x2efa0…2efc0 6f 75 6c 64 20 61 63 74 75 61 6c 6c 79 20 62 65 20 70 75 74 20 69 6e 20 73 75 63 68 20 61 20 73 ┆ould actually be put in such a s┆
0x2efc0…2efe0 74 61 74 65 2c 20 74 68 61 74 20 61 6c 6c 20 70 65 6e 64 69 6e 67 0a 3b 20 20 20 20 74 72 61 6e ┆tate, that all pending ; tran┆
0x2efe0…2f000 73 66 65 72 73 20 77 6f 75 6c 64 20 62 65 20 61 62 6f 72 74 65 64 2c 20 69 6e 20 63 61 73 65 20 ┆sfers would be aborted, in case ┆
0x2f000…2f020 74 68 65 20 64 72 69 76 65 72 20 69 73 20 73 74 6f 70 70 65 64 2e 0a 3b 20 68 6f 77 65 76 65 72 ┆the driver is stopped. ; however┆
0x2f020…2f040 2c 20 75 6e 74 69 6c 20 66 75 72 74 68 65 72 2c 20 74 68 69 73 20 69 73 20 6f 6e 6c 79 20 64 6f ┆, until further, this is only do┆
0x2f040…2f060 6e 65 20 62 79 20 6d 65 61 6e 73 20 6f 66 20 69 6e 63 72 65 61 73 69 6e 67 0a 3b 20 20 20 20 74 ┆ne by means of increasing ; t┆
0x2f060…2f080 68 65 20 73 74 6f 70 63 6f 75 6e 74 20 6f 66 20 74 68 65 20 64 72 69 76 65 72 20 28 20 2a 2a 2a ┆he stopcount of the driver ( ***┆
0x2f080…2f0a0 20 69 6e 64 65 70 65 6e 64 61 6e 74 20 6f 66 20 74 72 61 6e 73 66 65 72 2f 6e 6f 20 74 72 61 6e ┆ independant of transfer/no tran┆
0x2f0a0…2f0c0 73 66 65 72 0a 3b 20 20 20 20 74 6f 2f 66 72 6f 6d 20 74 68 65 20 64 72 69 76 65 72 20 61 72 65 ┆sfer ; to/from the driver are┆
0x2f0c0…2f0e0 61 20 2a 2a 2a 20 29 0a 3b 0a 3b 20 77 30 20 3d 20 74 69 6d 65 6f 75 74 0a 3b 20 77 31 20 3d 20 ┆a *** ) ; ; w0 = timeout ; w1 = ┆
0x2f0e0…2f100 64 72 69 76 65 72 0a 3b 20 77 33 20 3d 20 74 72 61 6e 73 66 65 72 20 63 6f 64 65 3a 20 20 30 20 ┆driver ; w3 = transfer code: 0 ┆
0x2f100…2f120 3d 20 6e 6f 20 74 72 61 6e 73 66 65 72 20 74 6f 20 73 65 6e 64 65 72 20 61 72 65 61 0a 3b 20 20 ┆= no transfer to sender area ; ┆
0x2f120…2f140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3e 30 20 3d 20 73 65 6e 64 65 72 20 64 ┆ >0 = sender d┆
0x2f140…2f160 65 73 63 72 20 61 64 64 72 0a 0a 63 2e 2d 31 20 3b 20 2b 2b 2b 2b 20 6e 6f 74 20 69 6d 70 6c 65 ┆escr addr c.-1 ; ++++ not imple┆
0x2f160…2f180 6d 65 6e 74 65 64 20 2b 2b 2b 2b 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 68 31 31 2e ┆mented ++++ rl. w2 h11.┆
0x2f180…2f1a0 20 20 20 3b 0a 20 20 20 20 20 73 6e 20 20 77 32 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 ┆ ; sn w2 0 ; ┆
0x2f1a0…2f1c0 20 69 66 20 64 72 69 76 65 72 20 61 72 65 61 20 6e 6f 74 20 75 73 65 64 20 74 68 65 6e 0a 20 20 ┆ if driver area not used then ┆
0x2f1c0…2f1e0 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 34 31 2e 20 20 20 3b 20 20 20 20 20 20 67 6f 74 6f ┆ jl. i41. ; goto┆
0x2f1e0…2f200 20 69 6e 69 74 20 74 72 61 6e 73 66 65 72 20 63 6f 64 65 20 66 69 65 6c 64 3b 0a 7a 2e 20 20 20 ┆ init transfer code field; z. ┆
0x2f200…2f220 3b 20 2b 2b 2b 2b 0a 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 ┆; ++++ al w3 x3+1 ;┆
0x2f220…2f240 20 20 20 20 6d 61 6b 65 20 74 72 61 6e 73 66 65 72 20 63 6f 64 65 20 6f 64 64 3b 20 20 69 2e 65 ┆ make transfer code odd; i.e┆
0x2f240…2f260 2e 20 64 72 69 76 65 72 20 74 72 61 6e 73 66 65 72 0a 0a 20 20 20 20 20 62 7a 20 20 77 32 20 20 ┆. driver transfer bz w2 ┆
0x2f260…2f280 78 31 2b 61 31 32 20 20 20 20 3b 20 20 20 20 69 6e 63 72 65 61 73 65 20 28 73 74 6f 70 63 6f 75 ┆x1+a12 ; increase (stopcou┆
0x2f280…2f2a0 6e 74 20 28 64 72 69 76 65 72 29 20 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 31 ┆nt (driver) ); al w2 x2+1┆
0x2f2a0…2f2c0 20 20 20 20 20 20 3b 0a 20 20 20 20 20 68 73 20 20 77 32 20 20 78 31 2b 61 31 32 20 20 20 20 3b ┆ ; hs w2 x1+a12 ;┆
0x2f2c0…2f2e0 0a 0a 63 2e 20 2d 31 3b 20 2b 2b 2b 2b 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 0a 69 34 ┆ c. -1; ++++ not implemented i4┆
0x2f2e0…2f300 31 3a 20 73 6e 20 20 77 33 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 6e 6f 20 ┆1: sn w3 0 ; if no ┆
0x2f300…2f320 74 72 61 6e 73 66 65 72 73 20 74 6f 20 74 68 65 20 69 6e 76 6f 6c 76 65 64 20 70 72 6f 63 65 73 ┆transfers to the involved proces┆
0x2f320…2f340 73 65 73 20 74 68 65 6e 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 20 2d 31 20 20 20 20 20 20 ┆ses then al w3 -1 ┆
0x2f340…2f360 3b 20 20 20 20 20 20 74 72 61 6e 73 66 65 72 20 63 6f 64 65 20 3a 3d 20 2d 31 3b 20 69 2e 65 2e ┆; transfer code := -1; i.e.┆
0x2f360…2f380 20 74 72 61 6e 73 66 65 72 20 70 65 6e 64 69 6e 67 3b 0a 7a 2e 20 20 20 3b 20 2b 2b 2b 2b 0a 0a ┆ transfer pending; z. ; ++++ ┆
0x2f380…2f3a0 3b 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 27 74 72 61 6e 73 66 65 72 20 63 6f 64 65 27 ┆; initialize the 'transfer code'┆
0x2f3a0…2f3c0 20 66 69 65 6c 64 20 69 6e 20 74 68 65 20 64 65 76 69 63 65 20 64 65 73 63 72 69 70 74 69 6f 6e ┆ field in the device description┆
0x2f3c0…2f3e0 0a 3b 20 20 20 20 28 74 68 65 20 66 69 65 6c 64 20 77 69 6c 6c 20 62 65 20 75 73 65 64 2c 20 77 ┆ ; (the field will be used, w┆
0x2f3e0…2f400 68 65 6e 20 74 68 65 20 69 6e 74 65 72 72 75 70 74 20 61 72 72 69 76 65 73 2c 0a 3b 20 20 20 20 ┆hen the interrupt arrives, ; ┆