|
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 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 Data for tran
0x00f00…02100 Data for trana
0x02100…04500 Data for tmatrixmult
0x04500…06300 Data for tfftir
0x06300…06900 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 Data for matprocinp
0x16800…16e00 Data for tlistmatpr
0x16e00…1aa00 Data for tw3j
0x1aa00…1b000 Data for tlobachev
0x1b000…1b900 Data for trkfifth
0x1b900…1c200 Data for tsperc
0x1c200…1c800 Data for tspecc
0x1c800…1d400 Data for tspercre
0x1d400…1d700 Data for tpolfittest
0x1d700…1e600 Data for tspln3fitxt
0x1e600…1f800 Data for tdiags
0x1f800…1fb00 Data for tfft1
0x1fb00…20100 Data for tspln3
0x20100…20400 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 Data for tmin2a
0x27300…27900 Data for tmin1a
0x27900…27f00 Data for tmin1b
0x27f00…28b00 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 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 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…2e400 […elided…]
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 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, ; ┆