|
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: 82944 (0x14400)
Names: »rclogarea«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »rclogarea«
0x00000…00030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 1c ad ┆ ┆ 0x00030…00060 c1 82 5d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Å ┆ 0x00060…00090 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 6c 64 69 73 63 33 00 00 00 00 00 00 00 83 7f 97 00 00 00 00 00 00 ┆ ldisc3 ┆ 0x00090…000c0 00 00 00 00 00 00 2d 00 80 99 0f fb 1d 00 4a 51 10 00 5d 8d c2 db 10 04 df 8d b0 db 10 08 df 8d b0 2f 8d 70 38 08 04 ac 00 00 34 80 58 2f 8d 7a ┆ - JQ Å / p8 4 X/ z┆ 0x000c0…000f0 2d 8f d0 38 08 2a 51 10 00 2d 1f ff 5d 8d 82 38 08 34 38 08 08 a8 00 00 34 80 46 24 40 42 51 00 18 2e 8f 6a 2f 21 fe a7 10 00 34 80 3c df 8d 56 ┆- 8 *Q - Å 8 48 4 F$@BQ . j/! 4 < V┆ 0x000f0…00120 df 8d 66 d9 00 6e dd 20 20 37 8d b8 34 8e 9e 6e 6f 20 65 72 72 6f 72 6c 6f 67 20 20 20 20 20 20 20 20 0a 00 6e 6f 20 72 63 6c 6f 67 61 72 65 61 ┆ f n 7 4 no errorlog no rclogarea┆ 0x00120…00150 20 20 20 20 20 20 20 0a 00 70 72 6f 63 20 73 69 7a 65 20 74 6f 6f 20 73 6d 61 6c 6c 0a 00 24 0f f2 24 0f f2 2d 8f ee 2e 10 0c 37 8e 22 34 0f ff ┆ proc size too small $ $ - . 7 "4 ┆ 0x00150…00180 00 07 ff 00 00 01 00 08 71 69 60 00 00 80 00 00 f2 4a 00 a8 6c 00 ac 44 00 00 00 00 00 00 00 80 00 00 12 08 00 1b 0c 00 00 01 00 08 82 63 00 00 ┆ qi` J l D c ┆ 0x00180…001b0 00 80 00 00 00 00 00 ab 3c 00 a1 34 00 00 00 00 00 00 00 80 00 00 12 08 00 1b 0c 00 00 01 00 08 48 63 00 00 00 80 00 00 00 00 00 9e 34 00 a8 84 ┆ < 4 Hc 4 ┆ 0x001b0…001e0 00 00 00 00 00 00 80 00 00 00 01 ff 00 90 36 00 30 00 01 8e a4 01 90 a2 00 00 39 00 00 00 00 a4 4c 00 a3 2c 00 00 00 00 00 00 00 30 00 00 00 00 ┆ 6 0 9 L , 0 ┆ 0x001e0…00210 00 00 00 00 4e 94 68 6f 73 74 00 00 00 00 00 00 00 00 00 9e f4 00 9d 14 00 00 00 00 00 00 00 30 00 00 00 00 00 00 00 00 4b 66 68 6f 73 74 00 00 ┆ N host 0 Kfhost ┆ 0x00210…00240 00 00 00 00 00 00 00 ab b4 00 9d d4 00 00 00 00 00 00 00 80 00 00 12 08 00 1b 0c 00 00 01 00 06 f2 63 00 00 00 80 00 00 00 00 00 a1 1c 00 a7 ac ┆ c ┆ 0x00240…00270 00 00 00 00 00 00 00 80 00 00 12 08 00 1b 0c 00 00 01 00 07 cf 69 60 00 00 80 00 00 f2 4a 00 a7 f4 00 ac 8c 2c 00 04 5c 1f fe 50 1f dc 5c 10 00 ┆ i` J , Ø P Ø ┆ 0x00270…002a0 53 1f de 5f 10 02 23 00 00 5f 10 04 48 80 01 53 1f e4 5f 20 06 53 1f de 2f 3f ff 51 1f e0 5c 10 02 5f 10 04 5c 10 16 a5 60 06 34 80 0e 2d 10 18 ┆S _ # _ H S _ S /? Q Ø _ Ø ` 4 - ┆ 0x002a0…002d0 67 20 08 5d 3f e0 2d 30 00 67 20 08 34 8f ea 51 20 08 50 1f e2 5c 1f e0 34 ce 54 01 40 00 73 75 73 70 65 6e 64 20 00 01 60 00 72 65 6c 65 61 73 ┆g Å? -0 g 4 Q P Ø 4 T @ suspend ` releas┆ 0x002d0…00300 65 20 00 5f 80 12 2d 8e 52 df cf e6 51 20 08 2c 00 00 5c 10 04 51 1f fe ad 00 06 34 80 0c ad 00 07 34 80 0a a9 00 05 37 81 8e 24 0f fd 24 0f fd ┆e _ - R Q , Ø Q 4 4 7 $ $ ┆ 0x00300…00330 00 00 00 6a 62 6e 30 00 00 00 00 00 00 00 00 70 a3 d7 0a 4f fd 04 2b f0 02 10 3e 04 00 02 02 10 d0 00 00 08 04 2b 15 d1 2f 75 dd 2f 27 04 1c 71 ┆ jbn0 p O + > + /u /' q┆ 0x00330…00360 ef 12 b3 00 00 00 6a 62 6e 30 00 00 00 00 00 00 00 00 a8 f8 6f 31 50 02 04 2b f0 02 10 3e 04 00 02 02 10 e4 00 00 08 04 2b 67 c1 2f 79 dd 2f 79 ┆ jbn0 o1P + > +g /y /y┆ 0x00360…00390 04 1c 71 f7 d2 b3 00 00 00 6a 62 6e 30 00 00 00 00 00 00 00 00 9c 26 77 86 50 02 04 2b f0 02 10 3e 04 00 02 02 10 e4 00 00 08 04 2b 67 c1 2f 79 ┆ q jbn0 &w P + > +g /y┆ 0x00390…003c0 dd 2f 79 04 1c 71 fc 95 e5 00 00 00 6a 62 6e 30 00 00 00 00 00 00 00 00 70 a3 d7 0a 4f fd 04 2b f0 02 10 3e 04 00 02 02 10 d0 00 00 08 04 2b 15 ┆ /y q jbn0 p O + > + ┆ 0x003c0…003f0 d1 2f 75 dd 2f 27 04 1c 72 0a 28 b3 00 00 00 6a 62 6e 30 00 00 00 00 00 00 00 00 b7 28 6b ad 90 02 04 2b f0 02 10 3e 04 00 02 02 10 e4 00 00 08 ┆ /u /' r ( jbn0 (k + > ┆ 0x003f0…00420 04 2b 67 c1 2f 79 dd 2f 79 04 1c 72 0a 5f b3 00 00 00 6a 62 6e 30 00 00 00 00 00 00 00 00 8a 3e 71 7e 0f fd 04 2b f0 02 10 3e 04 00 02 02 11 f4 ┆ +g /y /y r _ jbn0 >qü + > ┆ 0x00420…00450 00 00 08 04 2b 15 c1 2f 27 dd 2f 27 04 1c 72 14 0b b4 00 00 00 6a 62 6e 30 00 00 00 00 00 00 00 00 70 a3 d7 0a 4f fd 04 2b f0 02 10 3e 04 00 02 ┆ + /' /' r jbn0 p O + > ┆ 0x00450…00480 02 10 d0 00 00 08 04 2b 15 d1 2f 75 dd 2f 27 04 1c 72 1f 63 b3 00 00 00 6a 62 6e 30 00 00 00 00 00 00 00 00 70 a3 d7 0a 4f fd 04 2b f0 02 10 3e ┆ + /u /' r c jbn0 p O + >┆ 0x00480…004b0 04 00 02 02 10 d0 00 00 08 04 2b 15 d1 2f 75 dd 2f 27 04 1c 72 28 ec ff 00 00 19 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ + /u /' r( ┆ 0x004b0…004e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 a4 4c 00 a3 2c 00 00 00 00 00 00 00 30 00 00 00 00 ┆ L , 0 ┆ 0x004e0…00510 00 00 00 00 4e 94 68 6f 73 74 00 00 00 00 00 00 00 00 00 9e f4 00 9d 14 00 00 00 00 00 00 00 30 00 00 00 00 00 00 00 00 4b 66 68 6f 73 74 00 00 ┆ N host 0 Kfhost ┆ 0x00510…00540 00 00 00 00 00 00 00 ab b4 00 9d d4 00 00 00 00 00 00 00 80 00 00 12 08 00 1b 0c 00 00 01 00 06 f2 63 00 00 00 80 00 00 00 00 00 a1 1c 00 a7 ac ┆ c ┆ 0x00540…00570 00 00 00 00 00 00 00 80 00 00 12 08 00 1b 0c 00 00 01 00 07 cf 69 60 00 00 80 00 00 f2 4a 00 a7 f4 00 ac 8c 2c 00 04 5c 1f fe 50 1f dc 5c 10 00 ┆ i` J , Ø P Ø ┆ 0x00570…005a0 53 1f de 5f 10 02 23 00 00 5f 10 04 48 80 01 53 1f e4 5f 20 06 53 1f de 2f 3f ff 51 1f e0 5c 10 02 5f 10 04 5c 10 16 a5 60 06 34 80 0e 2d 10 18 ┆S _ # _ H S _ S /? Q Ø _ Ø ` 4 - ┆ 0x005a0…005d0 67 20 08 5d 3f e0 2d 30 00 67 20 08 34 8f ea 51 20 08 50 1f e2 5c 1f e0 34 ce 54 01 40 00 73 75 73 70 65 6e 64 20 00 01 60 00 72 65 6c 65 61 73 ┆g Å? -0 g 4 Q P Ø 4 T @ suspend ` releas┆ 0x005d0…00600 65 20 00 5f 80 12 2d 8e 52 df cf e6 51 20 08 2c 00 00 5c 10 04 51 1f fe ad 00 06 34 80 0c ad 00 07 34 80 0a a9 00 05 37 81 8e 24 0f fd 24 0f fd ┆e _ - R Q , Ø Q 4 4 7 $ $ ┆ 0x00600…00630 05 60 00 72 65 63 33 36 30 30 31 00 00 00 00 00 52 a0 00 00 01 00 00 01 80 00 00 00 52 9a 00 00 00 00 00 01 00 00 00 ff ff ff 00 52 4e 04 1c 6b ┆ ` rec36001 R R RN k┆ 0x00630…00660 03 c4 31 00 00 00 00 00 00 00 00 01 00 00 00 00 43 00 00 52 7a 00 00 01 00 40 00 00 52 68 00 00 0c 00 41 80 00 52 78 00 00 01 00 41 00 00 52 14 ┆ 1 C Rz @ Rh A Rx A R ┆ 0x00660…00690 00 00 18 00 05 00 02 4b fe 00 00 02 00 40 00 05 60 00 72 65 63 33 36 30 30 31 00 00 00 00 00 52 a0 00 00 01 00 00 01 80 00 00 00 52 9a 00 00 00 ┆ K @ ` rec36001 R R ┆ 0x00690…006c0 00 00 01 00 00 00 00 07 ff 00 52 4e 04 1c 6b 03 c7 72 00 00 00 00 00 00 00 00 01 00 00 00 00 43 00 00 52 7a 00 00 01 00 40 00 00 52 68 00 00 0c ┆ RN k r C Rz @ Rh ┆ 0x006c0…006f0 00 41 80 00 52 78 00 00 01 00 41 00 00 52 14 00 00 18 00 05 00 02 4b fe 00 00 02 00 40 00 05 60 00 72 65 63 33 36 30 30 31 00 00 00 00 00 52 a0 ┆ A Rx A R K @ ` rec36001 R ┆ 0x006f0…00720 00 00 01 00 00 01 80 00 00 00 52 9a 00 00 00 00 00 01 00 00 00 ff ff ff 00 52 4e 04 1c 6b 07 ce c8 00 00 00 00 00 00 00 00 01 00 00 00 00 43 00 ┆ R RN k C ┆ 0x00720…00750 00 52 7a 00 00 01 00 40 00 00 52 68 00 00 0c 00 41 80 00 52 78 00 00 01 00 41 00 00 52 14 00 00 18 00 05 00 02 e5 bc 00 18 0c 00 40 00 05 60 00 ┆ Rz @ Rh A Rx A R @ ` ┆ 0x00750…00780 72 65 63 33 36 30 30 31 00 00 00 00 00 52 a0 00 00 01 00 00 01 80 00 00 00 52 9a 00 00 00 00 00 01 00 00 00 00 07 ff 00 52 4e 04 1c 6b 0a 86 21 ┆rec36001 R R RN k !┆ 0x00780…007b0 00 00 00 00 00 00 00 00 01 00 00 00 00 43 00 00 52 7a 00 00 01 00 40 00 00 52 68 00 00 0c 00 41 80 00 52 78 00 00 01 00 41 00 00 52 14 00 00 18 ┆ C Rz @ Rh A Rx A R ┆ 0x007b0…007e0 00 05 00 02 4b fe 00 00 0f 00 40 00 05 60 00 72 65 63 33 36 30 30 31 00 00 00 00 00 52 a0 00 00 01 00 00 01 80 00 00 00 52 9a 00 00 00 00 00 01 ┆ K @ ` rec36001 R R ┆ 0x007e0…00810 00 00 00 00 07 ff 00 52 4e 04 1c 6b 0b 77 7b 00 00 00 00 00 00 00 00 01 00 00 00 00 43 00 00 52 7a 00 00 01 00 40 00 00 52 68 00 00 0c 00 41 80 ┆ RN k wæ C Rz @ Rh A ┆ 0x00810…00840 00 52 78 00 00 01 00 41 00 00 52 14 00 00 18 00 05 00 02 4b fe 00 00 03 00 40 00 05 60 00 72 65 63 33 36 30 30 31 00 00 00 00 00 52 a0 00 00 01 ┆ Rx A R K @ ` rec36001 R ┆ 0x00840…00870 00 00 01 80 00 00 00 52 9a 00 00 00 00 00 01 00 00 00 ff ff ff 00 52 4e 04 1c 6b 0b 94 c5 00 00 00 00 00 00 00 00 01 00 00 00 00 43 00 00 52 7a ┆ R RN k C Rz┆ 0x00870…008a0 00 00 01 00 40 00 00 52 68 00 00 0c 00 41 80 00 52 78 00 00 01 00 41 00 00 52 14 00 00 18 00 05 00 02 4b fe 00 00 03 00 40 00 00 52 70 2d 10 18 ┆ @ Rh A Rx A R K @ Rp- ┆ 0x008a0…008d0 67 20 08 5d 3f e0 2d 30 00 67 20 08 34 8f ea 51 20 08 50 1f e2 5c 1f e0 34 ce 54 01 40 00 73 75 73 70 65 6e 64 20 00 01 60 00 72 65 6c 65 61 73 ┆g Å? -0 g 4 Q P Ø 4 T @ suspend ` releas┆ 0x008d0…00900 65 20 00 5f 80 12 2d 8e 52 df cf e6 51 20 08 2c 00 00 5c 10 04 51 1f fe ad 00 06 34 80 0c ad 00 07 34 80 0a a9 00 05 37 81 8e 24 0f fd 24 0f fd ┆e _ - R Q , Ø Q 4 4 7 $ $ ┆ 0x00900…00930 63 6b 20 77 69 74 68 69 6e 28 61 64 64 72 65 73 73 2c 20 74 6f 70 20 72 65 67 64 75 6d 70 29 3b 0a 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 ┆ck within(address, top regdump); rl w3 x┆ 0x00930…00960 31 2b 61 32 37 20 20 20 20 3b 0a 20 20 20 20 20 73 6e 20 20 77 33 20 28 78 31 2b 61 31 37 30 29 20 20 3b 20 20 20 20 69 66 20 6f 6c 64 20 69 6e ┆1+a27 ; sn w3 (x1+a170) ; if old in┆ 0x00960…00990 74 61 64 64 72 20 3d 20 6f 6c 64 20 65 73 63 61 70 65 20 61 64 64 72 65 73 73 20 74 68 65 6e 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 31 2b ┆taddr = old escape address then rs w2 x1+┆ 0x00990…009c0 61 31 37 30 20 20 20 3b 20 20 20 20 20 20 65 73 63 61 70 65 20 61 64 64 72 65 73 73 20 3a 3d 20 61 64 64 72 65 73 73 3b 0a 0a 20 20 20 20 20 72 ┆a170 ; escape address := address; r┆ 0x009c0…009f0 6c 20 20 77 30 20 20 78 31 2b 61 31 37 36 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 69 ┆l w0 x1+a176 ; se w0 0 ; i┆ 0x009f0…00a20 66 20 6d 6f 6e 69 74 6f 72 20 66 75 6e 63 74 69 6f 6e 20 3c 3e 20 73 65 74 20 69 6e 74 65 72 72 75 70 74 20 61 64 64 72 65 73 73 20 74 68 65 6e ┆f monitor function <> set interrupt address then┆ 0x00a20…00a50 0a 20 20 20 20 20 61 6d 20 20 20 20 20 20 20 20 20 61 31 37 30 2d 61 32 37 3b 20 20 20 20 20 20 65 73 63 61 70 65 20 61 64 64 72 65 73 73 20 3a ┆ am a170-a27; escape address :┆ 0x00a50…00a80 3d 20 61 64 64 72 65 73 73 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 31 2b 61 32 37 20 20 20 20 3b 20 20 20 20 65 6c 73 65 20 69 6e 74 61 64 ┆= address rs w2 x1+a27 ; else intad┆ 0x00a80…00ab0 64 72 20 3a 3d 20 61 64 64 72 65 73 73 3b 0a 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6d ┆dr := address; se w0 0 ; am┆ 0x00ab0…00ae0 20 20 20 20 20 20 20 20 20 34 20 20 20 20 20 20 3b 20 20 0a 20 20 20 20 20 64 6c 2e 20 77 33 20 20 20 20 20 69 31 2e 20 20 20 20 3b 0a 20 20 20 ┆ 4 ; dl. w3 i1. ; ┆ 0x00ae0…00b10 20 20 6c 61 20 20 77 32 20 20 78 31 2b 61 32 38 20 20 20 20 3b 20 20 20 20 6d 61 73 6b 20 3a 3d 20 73 61 76 65 20 77 30 28 63 75 72 29 20 65 78 ┆ la w2 x1+a28 ; mask := save w0(cur) ex┆ 0x00b10…00b40 74 72 61 63 74 20 72 65 6c 65 76 61 6e 74 20 62 69 74 73 3b 0a 20 20 20 20 20 6c 61 20 20 77 33 20 20 78 31 2b 61 33 32 20 20 20 20 3b 20 20 20 ┆tract relevant bits; la w3 x1+a32 ; ┆ 0x00b40…00b70 20 73 74 61 74 75 73 20 3a 3d 20 73 74 61 74 75 73 28 63 75 72 29 20 72 65 6d 6f 76 65 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 ┆ status := status(cur) remove the corresponding ┆ 0x00b70…00ba0 62 69 74 73 3b 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6c 73 20 20 77 32 20 20 20 20 2d 33 ┆bits; sn w0 0 ; ls w2 -3┆ 0x00ba0…00bd0 20 20 20 20 20 20 3b 20 20 20 20 28 69 66 20 73 65 74 20 69 6e 74 61 64 64 72 20 74 68 65 6e 20 6f 6c 64 66 61 73 68 69 6f 6e 65 64 20 72 63 34 ┆ ; (if set intaddr then oldfashioned rc4┆ 0x00bd0…00c00 30 30 30 20 73 74 79 6c 65 29 0a 20 20 20 20 20 6c 6f 20 20 77 32 20 20 20 20 20 36 20 20 20 20 20 20 3b 20 20 20 20 73 74 61 74 75 73 28 63 75 ┆000 style) lo w2 6 ; status(cu┆ 0x00c00…00c30 72 29 20 3a 3d 20 73 74 61 74 75 73 20 27 6f 72 27 20 6d 61 73 6b 3b 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 31 2b 61 33 32 20 20 20 20 3b ┆r) := status 'or' mask; rs w2 x1+a32 ;┆ 0x00c30…00c60 0a 20 20 20 20 20 67 67 20 20 77 33 20 20 20 20 20 62 39 31 20 20 20 20 3b 20 20 20 20 6d 6f 76 65 3a 20 75 73 65 72 20 65 78 63 65 70 74 69 6f ┆ gg w3 b91 ; move: user exceptio┆ 0x00c60…00c90 6e 20 61 64 64 72 65 73 73 28 63 75 72 29 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 31 2b 61 31 37 30 20 20 20 3b 20 20 20 20 20 20 20 20 20 ┆n address(cur) dl w1 x1+a170 ; ┆ 0x00c90…00cc0 20 75 73 65 72 20 65 73 63 61 70 65 20 20 20 20 61 64 64 72 65 73 73 28 63 75 72 29 0a 20 20 20 20 20 64 73 20 20 77 31 20 20 78 33 2b 61 33 32 ┆ user escape address(cur) ds w1 x3+a32┆ 0x00cc0…00cf0 35 2b 61 33 32 38 3b 20 20 20 20 74 6f 3a 20 70 72 65 76 69 6f 75 73 20 69 6e 74 65 72 72 75 70 74 20 73 74 61 63 6b 20 65 6c 65 6d 65 6e 74 3b ┆5+a328; to: previous interrupt stack element;┆ 0x00cf0…00d20 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 63 39 39 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 69 6e 74 65 72 72 75 70 74 20 72 65 74 75 ┆ jl c99 ; goto interrupt retu┆ 0x00d20…00d50 72 6e 3b 0a 0a 20 20 20 20 20 38 2e 33 30 30 30 20 30 30 30 30 20 20 20 20 20 20 20 3b 20 69 31 2d 32 3a 20 65 78 74 72 61 63 74 20 61 72 69 74 ┆rn; 8.3000 0000 ; i1-2: extract arit┆ 0x00d50…00d80 6d 65 74 69 63 20 62 69 74 73 20 28 6e 62 3a 20 6f 6c 64 66 61 73 68 69 6f 6e 65 64 20 72 63 34 30 30 30 2d 77 61 79 29 0a 69 31 3a 20 20 38 2e ┆metic bits (nb: oldfashioned rc4000-way) i1: 8.┆ 0x00d80…00db0 37 34 37 37 20 37 37 37 37 20 20 20 20 20 20 20 3b 20 20 20 20 20 3a 20 72 65 6d 6f 76 65 20 20 20 20 20 20 2d 20 20 20 20 20 20 2d 0a 20 20 20 ┆7477 7777 ; : remove - - ┆ 0x00db0…00de0 20 20 38 2e 32 34 37 37 20 30 30 30 30 20 20 20 20 20 20 20 3b 20 69 31 2b 32 3a 20 65 78 74 72 61 63 74 20 65 73 63 61 70 65 20 62 69 74 73 0a ┆ 8.2477 0000 ; i1+2: extract escape bits ┆ 0x00de0…00e10 20 20 20 20 20 38 2e 35 33 30 30 20 37 37 37 37 20 20 20 20 20 20 20 3b 20 69 31 2b 34 3a 20 72 65 6d 6f 76 65 20 20 20 20 2d 20 20 20 20 20 2d ┆ 8.5300 7777 ; i1+4: remove - -┆ 0x00e10…00e40 0a 0a 65 2e 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 28 6e 61 6d 65 2c 20 72 65 73 75 ┆ e. ; procedure process description(name, resu┆ 0x00e40…00e70 6c 74 29 3b 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 3a 20 20 72 65 74 75 72 6e 3a 0a 3b 20 73 61 76 65 20 77 30 20 20 20 20 20 ┆lt); ; call: return: ; save w0 ┆ 0x00e70…00ea0 20 20 20 20 20 20 20 72 65 73 75 6c 74 20 28 3d 30 2c 20 70 72 6f 63 20 64 65 73 63 72 20 61 64 64 72 29 0a 3b 20 73 61 76 65 20 77 31 0a 3b 20 ┆ result (=0, proc descr addr) ; save w1 ; ┆ 0x00ea0…00ed0 73 61 76 65 20 77 32 0a 3b 20 73 61 76 65 20 77 33 20 20 20 20 20 6e 61 6d 65 0a 0a 62 2e 20 69 30 20 77 2e 0a 65 32 3a 20 20 6a 6c 20 20 77 33 ┆save w2 ; save w3 name b. i0 w. e2: jl w3┆ 0x00ed0…00f00 20 20 20 20 20 64 31 30 31 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 61 6e 64 20 73 65 61 72 63 68 20 6e 61 6d 65 0a 20 20 20 20 20 61 6c 2e 20 ┆ d101 ; check and search name al. ┆ 0x00f00…00f30 77 33 20 20 20 20 20 69 30 2e 20 20 20 20 3b 2b 32 20 20 6e 6f 74 20 66 6f 75 6e 64 3a 20 77 33 3a 3d 7a 65 72 6f 20 61 64 64 72 65 73 73 0a 20 ┆w3 i0. ;+2 not found: w3:=zero address ┆ 0x00f30…00f60 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 20 20 20 20 20 20 20 20 3b 20 20 20 20 72 65 73 75 6c 74 20 3a 3d 20 70 72 6f 63 20 64 65 73 63 72 3b ┆ rl w0 x3 ; result := proc descr;┆ 0x00f60…00f90 20 20 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 72 32 38 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 72 65 74 75 72 6e 20 70 72 65 70 61 ┆ jl r28 ; goto return prepa┆ 0x00f90…00fc0 72 65 64 20 72 65 73 75 6c 74 3b 0a 69 30 3a 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 65 2e 0a 0a 3b 20 70 72 6f 63 65 ┆red result; i0: 0 ; e. ; proce┆ 0x00fc0…00ff0 64 75 72 65 20 69 6e 69 74 69 61 6c 69 7a 65 20 70 72 6f 63 65 73 73 28 6e 61 6d 65 2c 20 72 65 73 75 6c 74 29 3b 0a 3b 20 20 20 20 2d 20 20 20 ┆dure initialize process(name, result); ; - ┆ 0x00ff0…01020 20 20 20 72 65 73 65 72 76 65 20 20 20 20 20 20 20 2d 20 20 20 28 20 2d 20 20 2c 20 20 20 2d 20 20 20 29 3b 0a 3b 20 20 20 20 20 20 20 20 20 20 ┆ reserve - ( - , - ); ; ┆ 0x01020…01050 20 20 20 20 63 61 6c 6c 3a 20 20 20 72 65 74 75 72 6e 3a 0a 3b 20 73 61 76 65 20 77 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c ┆ call: return: ; save w0 resul┆ 0x01050…01080 74 20 28 3d 30 2c 20 31 2c 20 32 2c 20 33 29 0a 3b 20 73 61 76 65 20 77 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 ┆t (=0, 1, 2, 3) ; save w1 unchanged┆ 0x01080…010b0 0a 3b 20 73 61 76 65 20 77 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 73 61 76 65 20 77 33 20 20 20 20 20 ┆ ; save w2 unchanged ; save w3 ┆ 0x010b0…010e0 20 6e 61 6d 65 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 0a 65 33 3a 20 20 61 6d 20 20 20 20 20 20 20 20 20 30 2d 32 20 20 20 20 3b 20 69 6e 69 ┆ name unchanged e3: am 0-2 ; ini┆ 0x010e0…01110 74 69 61 6c 69 7a 65 3a 0a 65 34 3a 20 20 61 6c 20 20 77 30 20 20 20 20 20 32 20 20 20 20 20 20 3b 20 72 65 73 65 72 76 65 3a 20 70 72 65 70 61 ┆tialize: e4: al w0 2 ; reserve: prepa┆ 0x01110…01140 72 65 20 72 65 73 75 6c 74 2c 20 69 6e 20 63 61 73 65 20 6f 66 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 ┆re result, in case of internal proc; jl w3┆ 0x01140…01170 20 20 20 20 20 64 31 30 31 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 61 6e 64 20 73 65 61 72 63 68 20 6e 61 6d 65 3b 0a 20 20 20 20 20 6a 6c 20 ┆ d101 ; check and search name; jl ┆ 0x01170…011a0 20 20 20 20 20 20 20 20 72 33 20 20 20 20 20 3b 2b 32 20 20 6e 6f 74 20 66 6f 75 6e 64 3a 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 33 3b 0a 20 20 ┆ r3 ;+2 not found: goto result 3; ┆ 0x011a0…011d0 20 20 20 72 6c 20 20 77 32 20 20 78 33 20 20 20 20 20 20 20 20 3b 2b 34 20 20 70 72 6f 63 3a 3d 6e 61 6d 65 20 74 61 62 6c 65 28 65 6e 74 72 79 ┆ rl w2 x3 ;+4 proc:=name table(entry┆ 0x011d0…01200 29 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 61 31 30 20 20 20 20 3b 20 20 20 20 69 66 20 6b 69 6e 64 28 70 72 6f 63 29 20 6e 65 69 74 ┆) rl w3 x2+a10 ; if kind(proc) neit┆ 0x01200…01230 68 65 72 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 73 7a 20 20 77 33 20 20 2d 31 2d 36 34 20 20 20 20 20 3b 20 20 20 ┆her internal process sz w3 -1-64 ; ┆ 0x01230…01260 20 20 20 6e 6f 72 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 31 30 30 2e ┆ nor pseudo process then jl. d100.┆ 0x01260…01290 20 20 3b 20 20 20 20 20 20 64 65 6c 69 76 65 72 20 67 65 6e 65 72 61 6c 20 65 76 65 6e 74 20 28 77 30 3d 73 77 69 74 63 68 2c 20 77 31 3d 63 75 ┆ ; deliver general event (w0=switch, w1=cu┆ 0x01290…012c0 72 2c 20 77 32 3d 70 72 6f 63 29 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 61 6e 64 20 67 6f ┆r, w2=proc) ; and go┆ 0x012c0…012f0 74 6f 20 69 6e 74 65 72 72 75 70 74 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 72 32 38 20 20 20 20 3b 20 20 20 ┆to interrupt return; jl r28 ; ┆ 0x012f0…01320 20 67 6f 74 6f 20 72 65 74 75 72 6e 20 70 72 65 70 61 72 65 64 20 72 65 73 75 6c 74 3b 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 72 65 6c 65 61 ┆ goto return prepared result; ; procedure relea┆ 0x01320…01350 73 65 20 70 72 6f 63 65 73 73 20 28 6e 61 6d 65 29 3b 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 3a 20 20 72 65 74 75 72 6e 3a 0a 3b ┆se process (name); ; call: return: ;┆ 0x01350…01380 20 73 61 76 65 20 77 30 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 73 61 76 65 20 77 31 20 20 20 20 20 20 20 20 20 20 ┆ save w0 unchanged ; save w1 ┆ 0x01380…013b0 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 73 61 76 65 20 77 32 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 73 61 76 65 20 ┆ unchanged ; save w2 unchanged ; save ┆ 0x013b0…013e0 77 33 20 20 20 20 6e 61 6d 65 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 0a 65 35 3a 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 30 31 20 20 20 3b ┆w3 name unchanged e5: jl w3 d101 ;┆ 0x013e0…01410 20 20 20 20 63 68 65 63 6b 20 61 6e 64 20 73 65 61 72 63 68 20 6e 61 6d 65 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 63 39 39 20 20 ┆ check and search name; jl c99 ┆ 0x01410…01440 20 20 3b 2b 32 20 20 6e 6f 74 20 66 6f 75 6e 64 3a 20 67 6f 74 6f 20 69 6e 74 65 72 72 75 70 74 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 72 6c ┆ ;+2 not found: goto interrupt return; rl┆ 0x01440…01470 20 20 77 32 20 20 78 33 20 20 20 20 20 20 20 20 3b 2b 34 20 20 70 72 6f 63 3a 3d 6e 61 6d 65 20 74 61 62 6c 65 28 65 6e 74 72 79 29 3b 0a 20 20 ┆ w2 x3 ;+4 proc:=name table(entry); ┆ 0x01470…014a0 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 34 20 20 20 20 20 20 3b 20 20 20 20 73 77 69 74 63 68 3a 3d 34 3b 0a 20 20 20 20 20 72 6c 20 20 77 33 ┆ al w0 4 ; switch:=4; rl w3┆ 0x014a0…014d0 20 20 78 32 2b 61 31 30 20 20 20 20 3b 20 20 20 20 69 66 20 6b 69 6e 64 28 70 72 6f 63 29 20 6e 65 69 74 68 65 72 20 69 6e 74 65 72 6e 61 6c 20 ┆ x2+a10 ; if kind(proc) neither internal ┆ 0x014d0…01500 70 72 6f 63 65 73 73 0a 20 20 20 20 20 73 7a 20 20 77 33 20 20 2d 31 2d 36 34 20 20 20 20 20 3b 20 20 20 20 20 20 6e 6f 72 20 70 73 65 75 64 6f ┆process sz w3 -1-64 ; nor pseudo┆ 0x01500…01530 20 70 72 6f 63 65 73 73 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 31 30 30 2e 20 20 3b 20 20 20 20 20 20 64 65 6c 69 ┆ process then jl. d100. ; deli┆ 0x01530…01560 76 65 72 20 67 65 6e 65 72 65 6c 20 65 76 65 6e 74 20 28 77 30 3d 73 77 69 74 63 68 2c 20 77 31 3d 63 75 72 2c 20 77 32 3d 70 72 6f 63 29 0a 20 ┆ver generel event (w0=switch, w1=cur, w2=proc) ┆ 0x01560…01590 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 61 6e 64 20 67 6f 74 6f 20 69 6e 74 65 72 72 75 70 74 20 ┆ ; and goto interrupt ┆ 0x01590…015c0 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 63 39 39 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 69 6e 74 65 72 72 75 ┆return; jl c99 ; goto interru┆ 0x015c0…015f0 70 74 20 72 65 74 75 72 6e 3b 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 69 6e 63 6c 75 64 65 20 75 73 65 72 28 6e 61 6d 65 2c 20 64 65 76 69 63 ┆pt return; ; procedure include user(name, devic┆ 0x015f0…01620 65 2c 20 72 65 73 75 6c 74 29 3b 0a 3b 20 20 20 20 20 2d 20 20 20 20 20 65 78 63 6c 75 64 65 20 20 2d 20 20 28 20 2d 20 20 2c 20 20 20 2d 20 20 ┆e, result); ; - exclude - ( - , - ┆ 0x01620…01650 20 2c 20 20 20 2d 20 20 20 29 3b 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 3a 20 20 20 72 65 74 75 72 6e 3a 0a 3b 20 73 61 76 65 20 ┆ , - ); ; call: return: ; save ┆ 0x01650…01680 77 30 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 20 28 3d 30 2c 20 32 2c 20 33 2c 20 34 29 0a 3b 20 73 61 76 65 20 77 31 20 20 20 20 ┆w0 result (=0, 2, 3, 4) ; save w1 ┆ 0x01680…016b0 64 65 76 69 63 65 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 73 61 76 65 20 77 32 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 ┆device unchanged ; save w2 unchanged┆ 0x016b0…016e0 0a 3b 20 73 61 76 65 20 77 33 20 20 20 20 6e 61 6d 65 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 0a 62 2e 20 69 30 20 77 2e 0a 65 36 3a 20 20 61 ┆ ; save w3 name unchanged b. i0 w. e6: a┆ 0x016e0…01710 6d 20 20 20 20 20 20 20 20 20 64 31 32 36 2d 64 31 32 33 3b 20 69 6e 63 6c 75 64 65 3a 20 73 77 69 74 63 68 20 3a 3d 20 69 6e 73 65 72 74 20 75 ┆m d126-d123; include: switch := insert u┆ 0x01710…01740 73 65 72 3b 0a 65 37 3a 20 20 61 6c 20 20 77 30 20 20 20 20 20 64 31 32 33 20 20 20 20 20 3b 20 65 78 63 6c 75 64 65 3a 20 73 77 69 74 63 68 20 ┆ser; e7: al w0 d123 ; exclude: switch ┆ 0x01740…01770 3a 3d 20 72 65 6d 6f 76 65 20 75 73 65 72 3b 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 69 30 2e 20 20 20 20 3b 20 20 20 20 73 61 76 65 ┆:= remove user; rs. w0 i0. ; save┆ 0x01770…017a0 28 73 77 69 74 63 68 29 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 30 31 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 61 6e 64 20 ┆(switch); jl w3 d101 ; check and ┆ 0x017a0…017d0 73 65 61 72 63 68 20 6e 61 6d 65 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 72 33 20 20 20 20 20 3b 2b 32 20 20 6e 6f 74 20 66 6f 75 ┆search name; jl r3 ;+2 not fou┆ 0x017d0…01800 6e 64 3a 20 67 6f 74 6f 20 72 65 73 75 6c 74 33 3b 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 33 20 20 20 20 20 20 20 20 3b 2b 34 20 20 63 68 ┆nd: goto result3; rl w2 x3 ;+4 ch┆ 0x01800…01830 69 6c 64 3a 3d 6e 61 6d 65 20 74 61 62 6c 65 28 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 72 73 20 20 77 32 20 20 78 31 2b 61 32 38 20 20 20 20 3b ┆ild:=name table(entry); rs w2 x1+a28 ;┆ 0x01830…01860 20 20 20 20 73 61 76 65 20 77 30 28 63 75 72 29 20 3a 3d 20 63 68 69 6c 64 3b 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 61 31 30 20 20 ┆ save w0(cur) := child; rl w3 x2+a10 ┆ 0x01860…01890 20 20 3b 20 20 20 20 77 33 3a 3d 6b 69 6e 64 28 63 68 69 6c 64 29 3b 0a 20 20 20 20 20 73 6e 20 20 77 33 20 20 20 20 20 30 20 20 20 20 20 20 3b ┆ ; w3:=kind(child); sn w3 0 ;┆ 0x01890…018c0 20 20 20 20 69 66 20 6b 69 6e 64 3c 3e 30 20 6f 72 0a 20 20 20 20 20 73 65 20 20 77 31 20 28 78 32 2b 61 33 34 29 20 20 20 3b 20 20 20 20 20 20 ┆ if kind<>0 or se w1 (x2+a34) ; ┆ 0x018c0…018f0 20 63 75 72 3c 3e 70 61 72 65 6e 74 28 63 68 69 6c 64 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 72 33 20 20 20 20 20 ┆ cur<>parent(child) then jl r3 ┆ 0x018f0…01920 3b 20 20 20 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 33 3b 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 61 32 39 20 20 20 20 3b 20 20 20 20 ┆; goto result 3; rl w3 x1+a29 ; ┆ 0x01920…01950 64 65 76 69 63 65 3a 3d 73 61 76 65 20 77 31 28 63 75 72 29 3b 0a 20 20 20 20 20 6c 73 20 20 77 33 20 20 20 20 20 31 20 20 20 20 20 20 3b 0a 20 ┆device:=save w1(cur); ls w3 1 ; ┆ 0x01950…01980 20 20 20 20 77 61 20 20 77 33 20 20 20 20 20 62 34 20 20 20 20 20 3b 20 20 20 20 65 6e 74 72 79 3a 3d 32 2a 64 65 76 69 63 65 2b 66 69 72 73 74 ┆ wa w3 b4 ; entry:=2*device+first┆ 0x01980…019b0 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 73 6c 20 20 77 33 20 20 20 20 28 62 34 29 20 20 20 20 3b 20 20 20 20 69 66 20 65 6e 74 72 79 3c 66 69 ┆ device; sl w3 (b4) ; if entry<fi┆ 0x019b0…019e0 72 73 74 20 64 65 76 69 63 65 20 6f 72 0a 20 20 20 20 20 73 6c 20 20 77 33 20 20 20 20 28 62 35 29 20 20 20 20 3b 20 20 20 20 20 20 20 65 6e 74 ┆rst device or sl w3 (b5) ; ent┆ 0x019e0…01a10 72 79 3e 3d 66 69 72 73 74 20 61 72 65 61 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 72 34 20 20 20 20 20 3b 20 20 20 20 ┆ry>=first area then jl r4 ; ┆ 0x01a10…01a40 67 6f 74 6f 20 72 65 73 75 6c 74 20 34 3b 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 33 20 20 20 20 20 20 20 20 3b 20 20 20 20 70 72 6f 63 3a ┆goto result 4; rl w2 x3 ; proc:┆ 0x01a40…01a70 3d 6e 61 6d 65 20 74 61 62 6c 65 28 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 30 32 20 20 20 3b 20 20 20 20 ┆=name table(entry); jl w3 d102 ; ┆ 0x01a70…01aa0 63 68 65 63 6b 20 75 73 65 72 28 63 75 72 2c 20 70 72 6f 63 29 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 72 32 20 20 20 20 20 3b 2b ┆check user(cur, proc); jl r2 ;+┆ 0x01aa0…01ad0 32 20 20 6e 6f 74 20 75 73 65 72 3a 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 32 3b 0a 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 31 2b 61 32 38 ┆2 not user: goto result 2; rl w1 x1+a28┆ 0x01ad0…01b00 20 20 20 20 3b 20 20 20 20 72 65 73 74 6f 72 65 28 63 68 69 6c 64 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 28 69 30 2e 29 20 20 20 ┆ ; restore(child); jl. w3 (i0.) ┆ 0x01b00…01b30 3b 20 20 20 20 69 6e 73 65 72 74 2f 72 65 6d 6f 76 65 20 75 73 65 72 28 63 68 69 6c 64 2c 20 70 72 6f 63 29 3b 0a 20 20 20 20 20 72 6c 20 20 77 ┆; insert/remove user(child, proc); rl w┆ 0x01b30…01b60 31 20 20 20 20 20 62 31 20 20 20 20 20 3b 20 20 20 20 72 65 73 74 6f 72 65 28 63 75 72 29 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 ┆1 b1 ; restore(cur); jl ┆ 0x01b60…01b90 72 30 20 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 30 3b 0a 69 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r0 ; goto result 0; i0: 0 ┆ 0x01b90…01bc0 20 20 3b 20 73 61 76 65 64 20 73 77 69 74 63 68 0a 65 2e 0a 20 20 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 73 65 6e 64 20 70 73 65 75 64 6f 20 6d ┆ ; saved switch e. ; procedure send pseudo m┆ 0x01bc0…01bf0 65 73 73 61 67 65 28 70 73 65 75 64 6f 20 70 72 6f 63 2c 20 6e 61 6d 65 2c 20 6d 65 73 73 2c 20 62 75 66 29 3b 0a 3b 20 20 20 20 20 20 20 20 20 ┆essage(pseudo proc, name, mess, buf); ; ┆ 0x01bf0…01c20 20 20 20 20 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 0a 3b 20 73 61 76 65 20 77 30 20 20 20 20 20 70 73 65 75 64 ┆ call return ; save w0 pseud┆ 0x01c20…01c50 6f 20 70 72 6f 63 20 64 65 73 63 72 20 75 6e 63 68 2e 0a 3b 20 73 61 76 65 20 77 31 20 20 20 20 20 6d 65 73 73 20 20 20 20 20 20 20 20 20 20 20 ┆o proc descr unch. ; save w1 mess ┆ 0x01c50…01c80 20 20 20 75 6e 63 68 2e 0a 3b 20 73 61 76 65 20 77 32 20 20 20 20 20 6d 65 73 73 20 66 6c 61 67 20 20 20 20 20 20 20 20 20 75 6e 63 68 2e 0a 3b ┆ unch. ; save w2 mess flag unch. ;┆ 0x01c80…01cb0 20 73 61 76 65 20 77 33 20 20 20 20 20 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 2e 0a 20 20 0a 0a 3b 20 70 72 6f 63 65 ┆ save w3 name unch. ; proce┆ 0x01cb0…01ce0 64 75 72 65 20 73 65 6e 64 20 6d 65 73 73 61 67 65 28 6e 61 6d 65 2c 20 6d 65 73 73 2c 20 62 75 66 29 3b 0a 3b 20 20 20 20 20 20 20 20 20 20 20 ┆dure send message(name, mess, buf); ; ┆ 0x01ce0…01d10 63 61 6c 6c 3a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 0a 3b 20 73 61 76 65 20 77 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e ┆call: return: ; save w0 unchan┆ 0x01d10…01d40 67 65 64 0a 3b 20 73 61 76 65 20 77 31 20 20 20 6d 65 73 73 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 73 61 76 65 20 77 32 20 20 ┆ged ; save w1 mess unchanged ; save w2 ┆ 0x01d40…01d70 20 6d 65 73 73 20 66 6c 61 67 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 73 61 76 65 20 77 33 20 20 20 6e 61 6d 65 20 20 20 20 20 20 20 75 6e 63 ┆ mess flag unchanged ; save w3 name unc┆ 0x01d70…01da0 68 61 6e 67 65 64 0a 62 2e 20 69 31 30 20 77 2e 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 73 65 6e 64 20 70 ┆hanged b. i10 w. ; send p┆ 0x01da0…01dd0 73 65 75 64 6f 20 6d 65 73 73 61 67 65 3a 0a 65 36 32 3a 20 72 6c 20 20 77 33 20 20 78 31 2b 61 32 38 20 20 20 20 3b 20 20 20 20 70 72 6f 63 3a ┆seudo message: e62: rl w3 x1+a28 ; proc:┆ 0x01dd0…01e00 3d 20 73 61 76 65 77 30 28 63 75 72 29 3b 0a 20 20 20 20 20 73 68 20 20 77 33 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 73 61 ┆= savew0(cur); sh w3 0 ; if sa┆ 0x01e00…01e30 76 65 77 30 20 3c 3d 20 30 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 63 32 39 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 74 68 65 6e 20 67 6f ┆vew0 <= 0 jl c29 ; then go┆ 0x01e30…01e60 74 6f 20 69 6e 74 65 72 6e 61 6c 20 33 3b 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 33 2b 61 31 30 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 ┆to internal 3; rl w2 x3+a10 ; se ┆ 0x01e60…01e90 20 77 32 20 20 36 34 20 20 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 6b 69 6e 64 28 70 72 6f 63 29 20 3c 3e 20 70 73 65 75 64 6f 20 6b 69 6e 64 ┆ w2 64 ; if kind(proc) <> pseudo kind┆ 0x01e90…01ec0 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 63 32 39 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 69 6e 74 65 72 6e ┆ jl c29 ; then goto intern┆ 0x01ec0…01ef0 61 6c 20 33 3b 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 33 2b 61 35 30 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 32 20 20 28 62 31 29 ┆al 3; rl w2 x3+a50 ; se w2 (b1)┆ 0x01ef0…01f20 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 6d 61 69 6e 28 70 72 6f 63 29 20 3c 3e 20 63 75 72 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 63 32 39 ┆ ; if main(proc) <> cur jl c29┆ 0x01f20…01f50 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 69 6e 74 65 72 6e 61 6c 20 33 3b 0a 20 20 20 20 20 61 6d 20 20 20 20 ┆ ; then goto internal 3; am ┆ 0x01f50…01f80 20 20 2d 31 20 20 20 20 20 20 20 20 3b 20 20 20 20 66 75 6e 63 74 69 6f 6e 3a 3d 20 73 65 6e 64 20 70 73 65 75 64 6f 20 6d 65 73 73 61 67 65 3b ┆ -1 ; function:= send pseudo message;┆ 0x01f80…01fb0 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 73 65 6e 64 20 6d 65 73 73 61 67 65 3a 0a 65 38 3a 20 20 61 6c 20 ┆ ; send message: e8: al ┆ 0x01fb0…01fe0 20 77 30 20 20 20 30 20 20 20 20 20 20 20 20 3b 20 20 20 20 66 75 6e 63 74 69 6f 6e 3a 3d 20 73 65 6e 64 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 ┆ w0 0 ; function:= send message; ┆ 0x01fe0…02010 20 20 72 73 2e 20 77 30 20 20 69 37 2e 20 20 20 20 20 20 20 3b 20 20 20 20 73 61 76 65 20 66 75 6e 63 74 69 6f 6e 3b 0a 20 20 20 20 20 72 6c 20 ┆ rs. w0 i7. ; save function; rl ┆ 0x02010…02040 20 77 33 20 20 78 31 2b 61 33 31 20 20 20 20 3b 20 20 20 20 69 66 20 73 61 76 65 77 33 28 63 75 72 29 20 3c 3d 20 6c 61 73 74 20 6f 66 20 6e 61 ┆ w3 x1+a31 ; if savew3(cur) <= last of na┆ 0x02040…02070 6d 65 20 74 61 62 6c 65 20 74 68 65 6e 0a 20 20 20 20 20 73 68 20 20 77 33 20 20 20 20 28 62 37 29 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 ┆me table then sh w3 (b7) ; jl. ┆ 0x02070…020a0 20 20 20 20 20 20 20 69 33 2e 20 20 20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 64 72 69 76 65 72 20 6d 65 73 73 61 67 65 3b 0a 69 36 3a 20 20 6a ┆ i3. ; goto driver message; i6: j┆ 0x020a0…020d0 6c 20 20 77 33 20 20 20 20 20 64 31 31 30 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 6d 65 73 73 20 61 72 65 61 20 61 6e 64 20 6e 61 6d 65 20 61 ┆l w3 d110 ; check mess area and name a┆ 0x020d0…02100 72 65 61 28 6e 61 6d 65 29 3b 0a 20 20 20 20 20 77 61 20 20 77 32 20 20 78 31 2b 61 31 38 32 20 20 20 3b 20 67 65 74 20 70 68 79 73 2e 20 61 64 ┆rea(name); wa w2 x1+a182 ; get phys. ad┆ 0x02100…02130 64 72 2e 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 38 20 20 20 20 20 20 3b 20 20 20 20 65 6e 74 72 79 3a 3d 77 6f 72 64 28 6e 61 6d 65 ┆dr. rl w3 x2+8 ; entry:=word(name┆ 0x02130…02160 2b 38 29 3b 0a 20 20 20 20 20 73 6c 20 20 77 33 20 20 20 20 28 62 33 29 20 20 20 20 3b 20 20 20 20 69 66 20 65 6e 74 72 79 3c 6e 61 6d 65 20 74 ┆+8); sl w3 (b3) ; if entry<name t┆ 0x02160…02190 61 62 6c 65 20 73 74 61 72 74 20 6f 72 0a 20 20 20 20 20 73 6c 20 20 77 33 20 20 20 20 28 62 37 29 20 20 20 20 3b 20 20 20 20 20 20 20 65 6e 74 ┆able start or sl w3 (b7) ; ent┆ 0x02190…021c0 72 79 3e 3d 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 6a 6c 2e 20 20 20 20 20 20 20 20 69 31 2e 20 20 20 20 3b ┆ry>=name table end then jl. i1. ;┆ 0x021c0…021f0 20 20 20 20 67 6f 74 6f 20 73 65 61 72 63 68 3b 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 33 20 20 20 20 20 20 20 20 3b 20 20 20 20 70 72 6f ┆ goto search; rl w3 x3 ; pro┆ 0x021f0…02220 63 3a 3d 6e 61 6d 65 20 74 61 62 6c 65 28 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 32 2b 32 20 20 20 20 20 20 3b 20 20 ┆c:=name table(entry); dl w1 x2+2 ; ┆ 0x02220…02250 20 20 0a 20 20 20 20 20 73 6e 20 20 77 30 20 28 78 33 2b 61 31 31 29 20 20 20 3b 20 20 20 20 69 66 20 6e 61 6d 65 20 69 6e 20 63 61 6c 6c 3c 3e ┆ sn w0 (x3+a11) ; if name in call<>┆ 0x02250…02280 6e 61 6d 65 20 69 6e 20 6d 6f 6e 69 74 6f 72 20 74 68 65 6e 0a 20 20 20 20 20 73 65 20 20 77 31 20 28 78 33 2b 61 31 31 2b 32 29 20 3b 0a 20 20 ┆name in monitor then se w1 (x3+a11+2) ; ┆ 0x02280…022b0 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 67 6f 74 6f 20 73 65 61 72 63 68 3b 0a 20 20 20 20 20 73 6e ┆ jl. i1. ; goto search; sn┆ 0x022b0…022e0 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 6e 61 6d 65 28 30 29 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 ┆ w0 0 ; if name(0)=0 then jl. ┆ 0x022e0…02310 20 20 20 20 20 20 20 69 32 2e 20 20 20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 ┆ i2. ; goto unknown; dl w1 ┆ 0x02310…02340 78 32 2b 36 20 20 20 20 20 20 3b 20 20 0a 20 20 20 20 20 73 6e 20 20 77 30 20 28 78 33 2b 61 31 31 2b 34 29 20 3b 0a 20 20 20 20 20 73 65 20 20 ┆x2+6 ; sn w0 (x3+a11+4) ; se ┆ 0x02340…02370 77 31 20 28 78 33 2b 61 31 31 2b 36 29 20 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 0a 0a 3b 20 74 68 65 20 ┆w1 (x3+a11+6) ; jl. i1. ; ; the ┆ 0x02370…023a0 72 65 63 65 69 76 65 72 20 69 73 20 66 6f 75 6e 64 2e 20 6e 6f 77 20 63 68 65 63 6b 20 62 75 66 63 6c 61 69 6d 20 61 6e 64 20 64 65 6c 69 76 65 ┆receiver is found. now check bufclaim and delive┆ 0x023a0…023d0 72 20 74 68 65 20 6d 65 73 73 61 67 65 0a 3b 20 77 33 3d 70 72 6f 63 0a 69 30 3a 20 20 72 6c 2e 20 77 30 20 20 69 37 2e 20 20 20 20 20 20 20 3b ┆r the message ; w3=proc i0: rl. w0 i7. ;┆ 0x023d0…02400 20 20 20 20 69 66 20 66 75 6e 63 74 69 6f 6e 20 3d 20 73 65 6e 64 20 70 73 65 75 64 6f 20 6d 65 73 73 61 67 65 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if function = send pseudo message then ┆ 0x02400…02430 73 6e 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 31 30 2e 20 20 ┆sn w0 0 ; begin jl. i10. ┆ 0x02430…02460 20 20 20 20 3b 20 20 20 20 20 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 2b 61 31 30 20 20 20 20 3b 20 20 20 20 20 20 69 66 20 6b 69 6e 64 ┆ ; rl w0 x3+a10 ; if kind┆ 0x02460…02490 28 72 65 63 65 69 76 65 72 29 20 3c 3e 20 69 6e 74 65 72 6e 61 6c 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 ┆(receiver) <> internal se w0 0 ; ┆ 0x02490…024c0 20 20 20 20 20 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 69 6e 74 65 72 6e 61 6c 20 33 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 63 32 39 20 20 ┆ then goto internal 3; jl c29 ┆ 0x024c0…024f0 20 20 20 20 20 3b 20 20 20 20 65 6e 64 3b 0a 69 31 30 3a 20 72 6c 20 20 77 31 20 20 62 31 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 7a 20 ┆ ; end; i10: rl w1 b1 ; bz ┆ 0x024f0…02520 20 77 30 20 20 78 31 2b 61 31 39 20 20 20 20 3b 20 20 20 20 69 66 20 62 75 66 20 63 6c 61 69 6d 28 63 75 72 29 3d 30 20 74 68 65 6e 0a 20 20 20 ┆ w0 x1+a19 ; if buf claim(cur)=0 then ┆ 0x02520…02550 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 64 65 63 72 65 61 73 65 20 62 75 66 66 65 72 20 ┆ sn w0 0 ; goto decrease buffer ┆ 0x02550…02580 63 6c 61 69 6d 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 64 31 30 38 20 20 20 3b 20 20 20 20 20 20 28 77 68 69 63 68 20 65 78 69 74 ┆claim; jl d108 ; (which exit┆ 0x02580…025b0 73 20 77 69 74 68 20 73 61 76 65 20 77 32 3d 30 29 3b 0a 20 20 20 20 20 62 73 2e 20 77 30 20 20 20 20 20 31 20 20 20 20 20 20 3b 20 20 20 20 64 ┆s with save w2=0); bs. w0 1 ; d┆ […truncated at 200 lines…]