|
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
Length: 1085952 (0x109200)
Types: Rc489kSubCat
Names: »trcfput«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »trcfput«
0x000000…000033 (0,) Rc489kSubCatEnt {f00=0x003d38, f01=0x0007e5, f02=0x0007e5, filename=»uti36 «, entry_tail=0-4-0-6-1980-08-01T11:20-disc1-0x0-0x0-0x0-0x0}
0x000033…000066 Rc489kSubCatEnt {f00=0x0095a0, f01=0x0007e5, f02=0x0007e5, filename=»uti37 «, entry_tail=0-4-0-63-1980-08-01T11:20-disc1-0x0-0x0-0x0-0x0}
0x000066…000099 Rc489kSubCatEnt {f00=0x048da0, f01=0x0007e5, f02=0x0007e5, filename=»uti38 «, entry_tail=0-4-0-61-1980-08-01T11:20-disc1-0x0-0x0-0x0-0x0}
0x000099…0000cc Rc489kSubCatEnt {f00=0x085608, f01=0x0007e5, f02=0x0007e5, filename=»uti39 «, entry_tail=0-4-0-47-1980-08-01T11:20-disc1-0x0-0x0-0x0-0x0}
0x0000cc…0000ff Rc489kSubCatEnt {f00=0x0b4220, f01=0x0007e5, f02=0x0007e5, filename=»uti40 «, entry_tail=0-4-0-12-1980-08-01T11:20-disc1-0x0-0x0-0x0-0x0}
0x0000ff…000132 Rc489kSubCatEnt {f00=0x0c0468, f01=0x0007e5, f02=0x0007e5, filename=»uti31 «, entry_tail=0-4-0-26-1980-08-01T11:12-disc1-0x0-0x0-0x0-0x0}
0x000132…000165 Rc489kSubCatEnt {f00=0x0dac68, f01=0x0007e5, f02=0x0007e5, filename=»uti32 «, entry_tail=0-4-0-25-1980-08-01T11:12-disc1-0x0-0x0-0x0-0x0}
0x000165…000198 Rc489kSubCatEnt {f00=0x0f34d0, f01=0x0007e5, f02=0x0007e5, filename=»uti33 «, entry_tail=0-4-0-8-1980-08-01T11:12-disc1-0x0-0x0-0x0-0x0}
0x000198…0001cb Rc489kSubCatEnt {f00=0x0fbcd0, f01=0x0007e5, f02=0x0007e5, filename=»uti34 «, entry_tail=0-4-0-21-1980-08-01T11:13-disc1-0x0-0x0-0x0-0x0}
0x0001cb…0001fe Rc489kSubCatEnt {f00=0x110538, f01=0x0007e5, f02=0x0007e5, filename=»uti35 «, entry_tail=0-4-0-15-1980-08-01T11:13-disc1-0x0-0x0-0x0-0x0}
0x0001fe…000231 Rc489kSubCatEnt {f00=0x11ff18, f01=0x0007e5, f02=0x0007e5, filename=»uti25 «, entry_tail=0-4-0-34-1980-08-01T11:11-disc1-0x0-0x0-0x0-0x0}
0x000231…000264 Rc489kSubCatEnt {f00=0x141780, f01=0x0007e5, f02=0x0007e5, filename=»uti26 «, entry_tail=0-4-0-24-1980-08-01T11:11-disc1-0x0-0x0-0x0-0x0}
0x000264…000297 Rc489kSubCatEnt {f00=0x159f80, f01=0x0007e5, f02=0x0007e5, filename=»uti27 «, entry_tail=0-4-0-6-1980-08-01T11:12-disc1-0x0-0x0-0x0-0x0}
0x000297…0002ca Rc489kSubCatEnt {f00=0x15f7e8, f01=0x0007e5, f02=0x0007e5, filename=»uti28 «, entry_tail=0-4-0-25-1980-08-01T11:12-disc1-0x0-0x0-0x0-0x0}
0x0002ca…0002fd Rc489kSubCatEnt {f00=0x178050, f01=0x0007e5, f02=0x0007e5, filename=»uti29 «, entry_tail=0-4-0-18-1980-08-01T11:12-disc1-0x0-0x0-0x0-0x0}
0x0002fd…000300 0x000028
0x000300…000333 Rc489kSubCatEnt {f00=0x18ac00, f01=0x0007e5, f02=0x0007e5, filename=»uti30 «, entry_tail=0-4-0-27-1980-08-01T11:12-disc1-0x0-0x0-0x0-0x0}
0x000333…000366 Rc489kSubCatEnt {f00=0x1a5960, f01=0x0007e5, f02=0x0007e5, filename=»uti15 «, entry_tail=0-4-0-55-1980-08-01T11:09-disc1-0x0-0x0-0x0-0x0}
0x000366…000399 Rc489kSubCatEnt {f00=0x1dc1c8, f01=0x0007e5, f02=0x0007e5, filename=»uti16 «, entry_tail=0-4-0-62-1980-08-01T11:09-disc1-0x0-0x0-0x0-0x0}
0x000399…0003cc Rc489kSubCatEnt {f00=0x21a9c8, f01=0x0007e5, f02=0x0007e5, filename=»uti17 «, entry_tail=0-4-0-51-1980-08-01T11:09-disc1-0x0-0x0-0x0-0x0}
0x0003cc…0003ff Rc489kSubCatEnt {f00=0x24d230, f01=0x0007e5, f02=0x0007e5, filename=»uti18 «, entry_tail=0-4-0-57-1980-08-01T11:09-disc1-0x0-0x0-0x0-0x0}
0x0003ff…000432 Rc489kSubCatEnt {f00=0x286a30, f01=0x0007e5, f02=0x0007e5, filename=»uti19 «, entry_tail=0-4-0-68-1980-08-01T11:09-disc1-0x0-0x0-0x0-0x0}
0x000432…000465 Rc489kSubCatEnt {f00=0x2ca648, f01=0x0007e5, f02=0x0007e5, filename=»uti20 «, entry_tail=0-4-0-7-1980-08-01T11:10-disc1-0x0-0x0-0x0-0x0}
0x000465…000498 Rc489kSubCatEnt {f00=0x2d1e48, f01=0x0007e5, f02=0x0007e5, filename=»uti21 «, entry_tail=0-4-0-43-1980-08-01T11:10-disc1-0x0-0x0-0x0-0x0}
0x000498…0004cb Rc489kSubCatEnt {f00=0x2fc6b0, f01=0x0007e5, f02=0x0007e5, filename=»uti22 «, entry_tail=0-4-0-66-1980-08-01T11:10-disc1-0x0-0x0-0x0-0x0}
0x0004cb…0004fe Rc489kSubCatEnt {f00=0x33eeb0, f01=0x0007e5, f02=0x0007e5, filename=»uti23 «, entry_tail=0-4-0-84-1980-08-01T11:10-disc1-0x0-0x0-0x0-0x0}
0x0004fe…000531 Rc489kSubCatEnt {f00=0x392718, f01=0x0007e5, f02=0x0007e5, filename=»uti24 «, entry_tail=0-4-0-7-1980-08-01T11:10-disc1-0x0-0x0-0x0-0x0}
0x000531…000564 Rc489kSubCatEnt {f00=0x399650, f01=0x0007e5, f02=0x0007e5, filename=»uti1 «, entry_tail=0-4-0-1-1980-08-01T11:07-disc1-0x0-0x0-0x0-0x0}
0x000564…000597 Rc489kSubCatEnt {f00=0x39ac08, f01=0x0007e5, f02=0x0007e5, filename=»uti2 «, entry_tail=0-4-0-6-1980-08-01T11:07-disc1-0x0-0x0-0x0-0x0}
0x000597…0005ca Rc489kSubCatEnt {f00=0x3a0228, f01=0x0007e5, f02=0x0007e5, filename=»uti3 «, entry_tail=0-4-0-2-1980-08-01T11:07-disc1-0x0-0x0-0x0-0x0}
0x0005ca…0005fd Rc489kSubCatEnt {f00=0x3a27e0, f01=0x0007e5, f02=0x0007e5, filename=»uti4 «, entry_tail=0-4-0-8-1980-08-01T11:07-disc1-0x0-0x0-0x0-0x0}
0x0005fd…000600 00 00 00 ┆ ┆
0x000600…000633 Rc489kSubCatEnt {f00=0x3aad98, f01=0x0007e5, f02=0x0007e5, filename=»uti5 «, entry_tail=0-4-0-8-1980-08-01T11:07-disc1-0x0-0x0-0x0-0x0}
0x000633…000666 Rc489kSubCatEnt {f00=0x3b23b8, f01=0x0007e5, f02=0x0007e5, filename=»uti6 «, entry_tail=0-4-0-68-1980-08-01T11:07-disc1-0x0-0x0-0x0-0x0}
0x000666…000699 Rc489kSubCatEnt {f00=0x3f6970, f01=0x0007e5, f02=0x0007e5, filename=»uti7 «, entry_tail=0-4-0-104-1980-08-01T11:07-disc1-0x0-0x0-0x0-0x0}
0x000699…0006cc Rc489kSubCatEnt {f00=0x45ef28, f01=0x0007e5, f02=0x0007e5, filename=»uti8 «, entry_tail=0-4-0-81-1980-08-01T11:07-disc1-0x0-0x0-0x0-0x0}
0x0006cc…0006ff Rc489kSubCatEnt {f00=0x4af548, f01=0x0007e5, f02=0x0007e5, filename=»uti9 «, entry_tail=0-4-0-37-1980-08-01T11:07-disc1-0x0-0x0-0x0-0x0}
0x0006ff…000732 Rc489kSubCatEnt {f00=0x4d4090, f01=0x0007e5, f02=0x0007e5, filename=»uti10 «, entry_tail=0-4-0-28-1980-08-01T11:08-disc1-0x0-0x0-0x0-0x0}
0x000732…000765 Rc489kSubCatEnt {f00=0x4f0890, f01=0x0007e5, f02=0x0007e5, filename=»uti11 «, entry_tail=0-4-0-41-1980-08-01T11:08-disc1-0x0-0x0-0x0-0x0}
0x000765…000798 Rc489kSubCatEnt {f00=0x5190f8, f01=0x0007e5, f02=0x0007e5, filename=»uti12 «, entry_tail=0-4-0-7-1980-08-01T11:08-disc1-0x0-0x0-0x0-0x0}
0x000798…0007cb Rc489kSubCatEnt {f00=0x5208f8, f01=0x0007e5, f02=0x0007e5, filename=»uti13 «, entry_tail=0-4-0-35-1980-08-01T11:08-disc1-0x0-0x0-0x0-0x0}
0x0007cb…0007fe Rc489kSubCatEnt {f00=0x543160, f01=0x0007e5, f02=0x0007e5, filename=»uti14 «, entry_tail=0-4-0-56-1980-08-01T11:08-disc1-0x0-0x0-0x0-0x0}
0x0007fe…000800 39 27 ┆9'┆
0x000800…000820 18 00 07 e5 00 07 e5 75 74 69 32 34 00 00 00 00 00 00 00 00 00 07 64 69 73 63 31 00 00 00 00 00 ┆ uti24 disc1 ┆
0x000820…000840 00 00 73 94 d6 00 00 00 00 00 00 00 00 00 00 00 00 39 96 50 00 07 e5 00 07 e5 75 74 69 31 00 00 ┆ s 9 P uti1 ┆
0x000840…000860 00 00 00 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 73 94 d2 00 00 00 00 00 00 00 00 ┆ disc1 s ┆
0x000860…000880 00 00 00 00 39 ac 08 00 07 e5 00 07 e5 75 74 69 32 00 00 00 00 00 00 00 00 00 00 06 64 69 73 63 ┆ 9 uti2 disc┆
0x000880…0008a0 31 00 00 00 00 00 00 00 73 94 d2 00 00 00 00 00 00 00 00 00 00 00 00 3a 02 28 00 07 e5 00 07 e5 ┆1 s : ( ┆
0x0008a0…0008c0 75 74 69 33 00 00 00 00 00 00 00 00 00 00 02 64 69 73 63 31 00 00 00 00 00 00 00 73 94 d2 00 00 ┆uti3 disc1 s ┆
0x0008c0…0008e0 00 00 00 00 00 00 00 00 00 00 3a 27 e0 00 07 e5 00 07 e5 75 74 69 34 00 00 00 00 00 00 00 00 00 ┆ :' uti4 ┆
0x0008e0…000900 00 08 64 69 73 63 31 00 00 00 00 00 00 00 73 94 d3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ disc1 s ┆
0x000900…001b00 (1,) Data for uti36
0x001b00…00d800 (3,) Data for uti37
0x00d800…018f00 (24,) Data for uti38
0x018f00…021c00 Data for uti39
0x021c00…024000 (60,) Data for uti40
0x024000…028e00 (64,) Data for uti31
0x028e00…02d900 Data for uti32
0x02d900…02f100 (81,) Data for uti33
0x02f100…033000 Data for uti34
0x033000…035d00 Data for uti35
0x035d00…03c300 Data for uti25
0x03c300…040b00 (107,) Data for uti26
0x040b00…041d00 (115,) Data for uti27
0x041d00…046800 (117,) Data for uti28
0x046800…049e00 Data for uti29
0x049e00…04ef00 Data for uti30
0x04ef00…059400 Data for uti15
0x059400…064e00 Data for uti16
0x064e00…06e700 Data for uti17
0x06e700…079200 Data for uti18
0x079200…085e00 Data for uti19
0x085e00…087300 (238,) Data for uti20
0x087300…08f400 Data for uti21
0x08f400…09ba00 Data for uti22
0x09ba00…0ab600 Data for uti23
0x0ab600…0acb00 Data for uti24
0x0acb00…0ace00 (307,) Data for uti1
0x0ace00…0ae000 Data for uti2
0x0ae000…0ae600 Data for uti3
0x0ae600…0afe00 (310,) Data for uti4
0x0afe00…0b1600 Data for uti5
0x0b1600…0be200 Data for uti6
0x0be200…0d1a00 (338,) Data for uti7
0x0d1a00…0e0d00 Data for uti8
0x0e0d00…0e7c00 Data for uti9
0x0e7c00…0ed000 (412,) Data for uti10
0x0ed000…0f4b00 Data for uti11
0x0f4b00…0f6000 (435,) Data for uti12
0x0f6000…0fc900 Data for uti13
0x0fc900…107100 (449,) Data for uti14
0x107100…107120 73 20 63 6c 61 69 6d 73 0a 7a 2e 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 31 31 ┆s claims z. jl w3 d111┆
0x107120…107140 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 6e 61 6d 65 28 73 61 76 65 20 77 32 29 20 61 72 65 61 ┆ ; check name(save w2) area┆
0x107140…107160 3b 0a 0a 3b 20 67 65 74 20 73 69 7a 65 20 6f 66 20 70 61 72 61 6d 20 28 73 61 76 65 20 77 31 28 ┆; ; get size of param (save w1(┆
0x107160…107180 63 75 72 29 29 3a 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 ┆cur)): ; ┆
0x107180…1071a0 73 65 74 20 62 73 20 63 6c 61 69 6d 73 20 28 63 6f 6e 74 69 6e 75 65 64 29 3a 0a 20 20 20 20 20 ┆set bs claims (continued): ┆
0x1071a0…1071c0 61 6d 20 20 20 20 61 31 31 30 2a 34 2b 34 2d 31 32 20 3b 20 20 20 20 73 69 7a 65 3a 3d 28 6d 61 ┆am a110*4+4-12 ; size:=(ma┆
0x1071c0…1071e0 78 6b 65 79 2b 31 29 2a 34 3b 0a 65 32 38 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆xkey+1)*4; e28: ┆
0x1071e0…107200 20 20 3b 20 63 72 65 61 74 65 20 69 6e 74 65 72 6e 61 6c 3a 0a 65 33 31 3a 20 20 20 20 20 20 20 ┆ ; create internal: e31: ┆
0x107200…107220 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 6f 64 69 66 79 20 69 6e 74 65 72 6e 61 6c 3a 0a 20 ┆ ; modify internal: ┆
0x107220…107240 20 20 20 20 61 6d 20 20 20 20 31 32 2d 38 20 20 20 20 20 20 20 20 3b 20 20 20 20 73 69 7a 65 3a ┆ am 12-8 ; size:┆
0x107240…107260 3d 31 32 3b 0a 65 32 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 ┆=12; e23: ; re┆
0x107260…107280 6e 61 6d 65 20 65 6e 74 72 79 3a 0a 20 20 20 20 20 61 6d 20 20 20 20 38 2d 61 38 38 20 20 20 20 ┆name entry: am 8-a88 ┆
0x107280…1072a0 20 20 20 3b 20 20 20 20 73 69 7a 65 3a 3d 38 3b 0a 65 33 38 3a 20 20 20 20 20 20 20 20 20 20 20 ┆ ; size:=8; e38: ┆
0x1072a0…1072c0 20 20 20 20 20 20 20 20 3b 20 6c 6f 6f 6b 75 70 20 68 65 61 64 20 61 6e 64 20 74 61 69 6c 3a 0a ┆ ; lookup head and tail: ┆
0x1072c0…1072e0 69 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 65 72 74 20 ┆i0: ; insert ┆
0x1072e0…107300 65 6e 74 72 79 20 28 63 6f 6e 74 69 6e 75 65 64 29 3a 0a 20 20 20 20 20 61 6d 20 20 20 20 61 38 ┆entry (continued): am a8┆
0x107300…107320 38 2d 61 38 38 2b 31 34 20 20 3b 20 20 20 20 73 69 7a 65 3a 3d 63 61 74 65 6e 74 72 79 20 73 69 ┆8-a88+14 ; size:=catentry si┆
0x107320…107340 7a 65 3b 0a 65 32 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 72 65 ┆ze; e20: ; cre┆
0x107340…107360 61 74 65 20 65 6e 74 72 79 3a 0a 65 32 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ate entry: e21: ┆
0x107360…107380 20 20 3b 20 6c 6f 6f 6b 75 70 20 65 6e 74 72 79 3a 0a 65 32 32 3a 20 20 20 20 20 20 20 20 20 20 ┆ ; lookup entry: e22: ┆
0x107380…1073a0 20 20 20 20 20 20 20 20 20 3b 20 63 68 61 6e 67 65 20 65 6e 74 72 79 3a 0a 20 20 20 20 20 61 6c ┆ ; change entry: al┆
0x1073a0…1073c0 20 20 77 30 20 20 20 20 20 61 38 38 2d 31 34 2d 32 20 3b 20 20 73 69 7a 65 3a 3d 63 61 74 65 6e ┆ w0 a88-14-2 ; size:=caten┆
0x1073c0…1073e0 74 72 79 20 73 69 7a 65 2d 31 34 3b 20 6e 6f 74 69 63 65 20 2d 32 3b 0a 20 20 20 20 20 72 6c 20 ┆try size-14; notice -2; rl ┆
0x1073e0…107400 20 77 32 20 20 78 31 2b 61 32 39 20 20 20 20 3b 20 20 20 20 66 69 72 73 74 20 70 61 72 61 6d 3a ┆ w2 x1+a29 ; first param:┆
0x107400…107420 (468,) 3d 73 61 76 65 20 77 31 28 63 75 72 29 3b 0a 20 20 20 20 20 77 61 20 20 77 30 20 20 20 20 20 34 ┆=save w1(cur); wa w0 4┆
0x107420…107440 20 20 20 20 20 20 3b 20 20 20 20 6c 61 73 74 20 70 61 72 61 6d 3a 3d 66 69 72 73 74 20 70 61 72 ┆ ; last param:=first par┆
0x107440…107460 61 6d 2b 73 69 7a 65 2d 32 3b 0a 20 20 20 20 20 61 6c 2e 20 77 33 20 20 20 20 20 69 32 2e 20 20 ┆am+size-2; al. w3 i2. ┆
0x107460…107480 20 20 3b 20 20 20 20 63 68 65 63 6b 20 77 69 74 68 69 6e 28 66 69 72 73 74 2c 20 6c 61 73 74 29 ┆ ; check within(first, last)┆
0x107480…1074a0 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 64 31 31 32 20 20 20 3b 20 20 20 20 67 6f ┆; jl d112 ; go┆
0x1074a0…1074c0 74 6f 20 63 68 65 63 6b 20 6e 61 6d 65 28 73 61 76 65 20 77 33 29 3b 0a 65 34 33 3a 20 20 20 20 ┆to check name(save w3); e43: ┆
0x1074c0…1074e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6c 6f 6f 6b 75 70 2d 61 75 78 2d 65 6e 74 ┆ ; lookup-aux-ent┆
0x1074e0…107500 72 79 3a 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 61 38 38 2d 31 34 2d 32 20 20 3b 20 20 20 ┆ry: al w0 a88-14-2 ; ┆
0x107500…107520 20 73 69 7a 65 3a 3d 20 63 61 74 65 6e 74 72 79 73 69 7a 65 2d 31 34 3b 20 4e 4f 54 49 43 45 20 ┆ size:= catentrysize-14; NOTICE ┆
0x107520…107540 2d 32 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 2b 61 32 39 20 20 20 20 3b 20 20 20 20 ┆-2 rl w2 x1+a29 ; ┆
0x107540…107560 66 69 72 73 74 20 70 61 72 61 6d 3a 3d 20 73 61 76 65 20 77 31 28 63 75 72 29 0a 20 20 20 20 20 ┆first param:= save w1(cur) ┆
0x107560…107580 20 77 61 20 20 77 30 20 20 34 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 6c 61 73 74 20 70 61 72 ┆ wa w0 4 ; last par┆
0x107580…1075a0 61 6d 20 3a 3d 20 66 69 72 73 74 20 70 61 72 61 6d 2b 73 69 7a 65 2d 32 3b 0a 20 20 20 20 20 20 ┆am := first param+size-2; ┆
0x1075a0…1075c0 6a 6c 20 20 77 33 20 20 64 31 31 32 20 20 20 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 77 69 74 ┆jl w3 d112 ; check wit┆
0x1075c0…1075e0 68 69 6e 28 66 69 72 73 74 2c 6c 61 73 74 29 0a 65 34 34 3a 20 20 61 6c 2e 20 77 33 20 20 69 32 ┆hin(first,last) e44: al. w3 i2┆
0x1075e0…107600 2e 20 20 20 20 20 20 20 3b 20 63 6c 65 61 72 2d 73 74 61 74 2d 65 6e 74 72 79 3a 0a 20 20 20 20 ┆. ; clear-stat-entry: ┆
0x107600…107620 20 20 6a 6c 20 20 20 20 20 20 64 31 31 31 20 20 20 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 6e ┆ jl d111 ; check n┆
0x107620…107640 61 6d 65 28 20 73 61 76 65 20 77 32 29 20 61 72 65 61 3b 0a 0a 0a 65 34 36 3a 20 20 20 20 20 20 ┆ame( save w2) area; e46: ┆
0x107640…107660 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 72 65 61 74 65 20 65 6e 74 72 79 20 6c 6f 63 6b ┆ ; create entry lock┆
0x107660…107680 20 70 72 6f 63 65 73 73 3a 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 2b 61 33 31 20 20 20 ┆ process: rl w2 x1+a31 ┆
0x107680…1076a0 20 3b 20 20 20 20 66 69 72 73 74 20 70 61 72 61 6d 3a 3d 73 61 76 65 20 77 33 28 63 75 72 29 3b ┆ ; first param:=save w3(cur);┆
0x1076a0…1076c0 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 2b 38 20 20 20 20 20 20 3b 20 20 20 20 6c 61 73 ┆ al w0 x2+8 ; las┆
0x1076c0…1076e0 74 20 70 61 72 61 6d 3a 3d 66 69 72 73 74 20 70 61 72 61 6d 2b 38 3b 0a 20 20 20 20 20 61 6d 20 ┆t param:=first param+8; am ┆
0x1076e0…107700 20 20 20 20 20 20 20 20 64 31 31 32 2d 64 31 31 31 3b 20 20 63 68 65 63 6b 20 77 69 74 68 69 6e ┆ d112-d111; check within┆
0x107700…107720 28 66 69 72 73 74 2c 20 6c 61 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(first, last) ┆
0x107720…107740 20 20 20 20 20 3b 20 20 20 20 20 20 69 6e 73 74 65 61 64 20 6f 66 0a 65 34 35 3a 20 20 20 20 20 ┆ ; instead of e45: ┆
0x107740…107760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 70 65 72 6d 61 6e 65 6e 74 20 65 6e 74 72 79 20 ┆ ; permanent entry ┆
0x107760…107780 69 6e 20 61 75 78 63 61 74 3a 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 31 31 20 ┆in auxcat: jl w3 d111 ┆
0x107780…1077a0 20 20 3b 20 20 20 20 63 68 65 63 6b 20 6e 61 6d 65 28 73 61 76 65 20 77 32 29 20 61 72 65 61 3b ┆ ; check name(save w2) area;┆
0x1077a0…1077c0 0a 0a 3b 20 63 68 65 63 6b 20 70 61 72 61 6d 20 28 73 61 76 65 20 77 33 28 63 75 72 29 29 3a 0a ┆ ; check param (save w3(cur)): ┆
0x1077c0…1077e0 65 32 34 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 6d 6f 76 65 20 ┆e24: ; remove ┆
0x1077e0…107800 65 6e 74 72 79 3a 0a 65 32 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆entry: e25: ; ┆
0x107800…107820 70 65 72 6d 61 6e 65 6e 74 20 65 6e 74 72 79 3a 0a 65 32 36 3a 20 20 20 20 20 20 20 20 20 20 20 ┆permanent entry: e26: ┆
0x107820…107840 20 20 20 20 20 20 20 20 3b 20 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 3a 0a 65 ┆ ; create area process: e┆
0x107840…107860 32 37 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 72 65 61 74 65 20 70 ┆27: ; create p┆
0x107860…107880 65 72 69 70 68 65 72 61 6c 20 70 72 6f 63 65 73 73 3a 0a 65 33 32 3a 20 20 20 20 20 20 20 20 20 ┆eripheral process: e32: ┆
0x107880…1078a0 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 6d 6f 76 65 20 70 72 6f 63 65 73 73 3a 0a 65 33 34 3a ┆ ; remove process: e34:┆
0x1078a0…1078c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 65 6e 65 72 61 74 65 20 6e 61 ┆ ; generate na┆
0x1078c0…1078e0 6d 65 3a 0a 65 33 36 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 65 74 ┆me: e36: ; set┆
0x1078e0…107900 20 63 61 74 61 6c 6f 67 20 62 61 73 65 3a 0a 65 33 37 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ catalog base: e37: ┆
0x107900…107920 20 20 20 20 20 20 3b 20 73 65 74 20 65 6e 74 72 79 20 69 6e 74 65 72 76 61 6c 3a 0a 65 34 30 3a ┆ ; set entry interval: e40:┆
0x107920…107940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 72 65 61 74 65 20 70 73 65 75 ┆ ; create pseu┆
0x107940…107960 64 6f 20 70 72 6f 63 65 73 73 3a 0a 69 32 3a 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 37 20 ┆do process: i2: jl w3 d17 ┆
0x107960…107980 20 20 20 3b 20 20 20 20 63 68 65 63 6b 20 6e 61 6d 65 20 61 72 65 61 3b 0a 65 35 37 3a 20 20 20 ┆ ; check name area; e57: ┆
0x107980…1079a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 6d 6f 76 65 20 6d 61 69 6e 20 63 61 ┆ ; remove main ca┆
0x1079a0…1079c0 74 61 6c 6f 67 3a 0a 0a 3b 20 6c 69 6e 6b 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 70 72 6f 63 65 ┆talog: ; link the calling proce┆
0x1079c0…1079e0 73 73 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 20 66 75 6e 63 74 69 6f 6e 20 71 75 65 75 65 ┆ss to the process function queue┆
0x1079e0…107a00 2e 0a 3b 20 70 72 6f 63 66 75 6e 63 20 69 73 20 61 63 74 69 76 61 74 65 64 20 69 66 20 69 74 20 ┆. ; procfunc is activated if it ┆
0x107a00…107a20 69 73 20 77 61 69 74 69 6e 67 20 66 6f 72 20 61 20 63 61 6c 6c 2e 0a 69 33 3a 20 20 69 36 3d 69 ┆is waiting for a call. i3: i6=i┆
0x107a20…107a40 30 2d 69 33 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 ┆0-i3 ; al w0 ┆
0x107a40…107a60 61 31 30 31 20 20 20 3b 20 6c 69 6e 6b 20 63 61 6c 6c 3a 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 ┆a101 ; link call: jl w3 ┆
0x107a60…107a80 20 20 20 20 64 39 20 20 20 20 20 3b 20 20 20 20 72 65 6d 6f 76 65 20 69 6e 74 65 72 6e 61 6c 28 ┆ d9 ; remove internal(┆
0x107a80…107aa0 77 61 69 74 20 70 72 6f 63 20 66 75 6e 63 29 3b 20 28 77 32 20 3a 3d 20 63 75 72 20 2b 20 61 31 ┆wait proc func); (w2 := cur + a1┆
0x107aa0…107ac0 36 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 65 ┆6) ; e┆
0x107ac0…107ae0 6c 65 6d 3a 3d 70 72 6f 63 65 73 73 20 71 28 63 75 72 29 3b 0a 20 20 20 20 20 72 6c 20 20 77 31 ┆lem:=process q(cur); rl w1┆
0x107ae0…107b00 20 20 20 20 28 62 36 29 20 20 20 20 3b 20 20 20 20 70 72 6f 63 3a 3d 6e 61 6d 65 20 74 61 62 6c ┆ (b6) ; proc:=name tabl┆
0x107b00…107b20 65 28 66 69 72 73 74 20 69 6e 74 65 72 6e 61 6c 29 3b 20 69 2e 65 2e 20 70 72 6f 63 20 66 75 6e ┆e(first internal); i.e. proc fun┆
0x107b20…107b40 63 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 61 31 35 20 20 20 20 3b 20 20 0a 20 20 ┆c; al w1 x1+a15 ; ┆
0x107b40…107b60 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 36 20 20 20 20 20 3b 20 20 20 20 6c 69 6e 6b 28 65 ┆ jl w3 d6 ; link(e┆
0x107b60…107b80 76 65 6e 74 20 71 75 65 75 65 28 70 72 6f 63 20 66 75 6e 63 29 2c 20 65 6c 65 6d 29 3b 0a 20 20 ┆vent queue(proc func), elem); ┆
0x107b80…107ba0 20 20 20 61 6c 20 20 77 31 20 20 78 31 2d 61 31 35 20 20 20 20 3b 0a 20 20 20 20 20 62 7a 20 20 ┆ al w1 x1-a15 ; bz ┆
0x107ba0…107bc0 77 30 20 20 78 31 2b 61 31 33 20 20 20 20 3b 20 20 20 20 69 66 20 73 74 61 74 65 28 70 72 6f 63 ┆w0 x1+a13 ; if state(proc┆
0x107bc0…107be0 20 66 75 6e 63 29 3d 77 61 69 74 20 6d 65 73 73 61 67 65 20 74 68 65 6e 0a 20 20 20 20 20 73 6e ┆ func)=wait message then sn┆
0x107be0…107c00 20 20 77 30 20 20 20 20 20 61 31 30 32 20 20 20 3b 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 ┆ w0 a102 ; jl w3 ┆
0x107c00…107c20 20 20 64 31 30 20 20 20 20 3b 20 20 20 20 20 20 6c 69 6e 6b 20 69 6e 74 65 72 6e 61 6c 28 70 72 ┆ d10 ; link internal(pr┆
0x107c20…107c40 6f 63 20 66 75 6e 63 29 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 63 39 39 20 20 20 ┆oc func); jl c99 ┆
0x107c40…107c60 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 72 6e 3b 0a 0a 3b 20 ┆ ; goto interrupt return; ; ┆
0x107c60…107c80 70 72 6f 63 65 64 75 72 65 20 72 65 73 65 74 20 64 65 76 69 63 65 3a 20 73 70 65 63 69 61 6c 20 ┆procedure reset device: special ┆
0x107c80…107ca0 6d 65 61 6e 69 6e 67 20 77 68 65 6e 20 63 61 6c 6c 65 64 20 66 6f 72 6d 20 70 72 6f 63 20 66 75 ┆meaning when called form proc fu┆
0x107ca0…107cc0 6e 63 2e 0a 65 31 3a 20 20 72 6c 20 20 77 32 20 20 20 20 28 62 36 29 20 20 20 20 3b 20 20 20 20 ┆nc. e1: rl w2 (b6) ; ┆
0x107cc0…107ce0 70 72 6f 63 3a 3d 6e 61 6d 65 20 74 61 62 6c 65 28 66 69 72 73 74 20 69 6e 74 65 72 6e 61 6c 29 ┆proc:=name table(first internal)┆
0x107ce0…107d00 3b 20 69 2e 65 2e 20 70 72 6f 63 20 66 75 6e 63 3b 0a 20 20 20 20 20 73 65 20 20 77 32 20 20 78 ┆; i.e. proc func; se w2 x┆
0x107d00…107d20 (469,) 31 20 20 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 70 72 6f 63 3c 3e 63 75 72 20 74 68 65 6e 0a ┆1 ; if proc<>cur then ┆
0x107d20…107d40 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 34 2e 20 20 20 20 3b 20 20 20 20 20 20 67 6f ┆ jl. i4. ; go┆
0x107d40…107d60 74 6f 20 72 65 73 65 74 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 ┆to reset device; rl w2 x1┆
0x107d60…107d80 2b 61 31 35 20 20 20 20 3b 20 20 20 20 70 72 6f 63 3a 3d 6e 65 78 74 28 65 76 65 6e 74 20 71 28 ┆+a15 ; proc:=next(event q(┆
0x107d80…107da0 63 75 72 29 29 3b 20 69 2e 65 2e 20 63 61 6c 6c 69 6e 67 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 ┆cur)); i.e. calling process; ┆
0x107da0…107dc0 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 35 20 20 20 20 20 3b 20 20 20 20 72 65 6d 6f 76 65 20 ┆ jl w3 d5 ; remove ┆
0x107dc0…107de0 28 70 72 6f 63 29 20 66 72 6f 6d 20 70 72 6f 63 20 66 75 6e 63 20 71 75 65 75 65 3b 0a 20 20 20 ┆(proc) from proc func queue; ┆
0x107de0…107e00 20 20 72 73 2e 20 77 32 20 20 20 20 20 69 37 2e 20 20 20 20 3b 20 20 20 20 73 61 76 65 20 28 70 ┆ rs. w2 i7. ; save (p┆
0x107e00…107e20 72 6f 63 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 61 31 30 32 20 20 20 3b 0a 20 ┆roc); al w0 a102 ; ┆
0x107e20…107e40 20 20 20 20 73 6e 20 20 77 33 20 20 78 31 2b 61 31 35 20 20 20 20 3b 20 20 20 20 69 66 20 6e 65 ┆ sn w3 x1+a15 ; if ne┆
0x107e40…107e60 78 74 28 70 72 6f 63 29 3d 65 76 65 6e 74 20 71 28 63 75 72 29 20 28 69 2e 65 2e 20 71 75 65 75 ┆xt(proc)=event q(cur) (i.e. queu┆
0x107e60…107e80 65 20 65 6d 70 74 79 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 39 ┆e empty) then jl w3 d9┆
0x107e80…107ea0 20 20 20 20 20 3b 20 20 20 20 20 20 72 65 6d 6f 76 65 20 69 6e 74 65 72 6e 61 6c 28 77 61 69 74 ┆ ; remove internal(wait┆
0x107ea0…107ec0 20 6d 65 73 73 29 3b 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 69 37 2e 20 20 20 20 3b ┆ mess); rl. w2 i7. ;┆
0x107ec0…107ee0 20 20 20 20 72 65 73 74 6f 72 65 20 28 70 72 6f 63 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 ┆ restore (proc); al w1 ┆
0x107ee0…107f00 20 78 32 2d 61 31 36 20 20 20 20 3b 20 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 20 20 63 39 ┆ x2-a16 ; al w3 c9┆
0x107f00…107f20 39 20 20 20 20 3b 20 20 20 20 6c 69 6e 6b 20 69 6e 74 65 72 6e 61 6c 28 70 72 6f 63 29 3b 0a 20 ┆9 ; link internal(proc); ┆
0x107f20…107f40 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 64 31 30 20 20 20 20 3b 0a 0a 3b 20 72 65 73 65 74 ┆ jl d10 ; ; reset┆
0x107f40…107f60 20 64 65 76 69 63 65 0a 3b 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 3a 20 20 20 72 65 74 75 72 ┆ device ; call: retur┆
0x107f60…107f80 6e 3a 0a 3b 20 73 61 76 65 20 77 30 20 20 72 65 73 65 74 74 79 70 65 20 20 20 72 65 73 75 6c 74 ┆n: ; save w0 resettype result┆
0x107f80…107fa0 20 28 3d 30 2c 34 29 0a 3b 20 73 61 76 65 20 77 31 20 64 65 76 69 63 65 20 20 20 75 6e 63 68 61 ┆ (=0,4) ; save w1 device uncha┆
0x107fa0…107fc0 6e 67 65 64 0a 3b 20 73 61 76 65 20 77 32 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 ┆nged ; save w2 unchange┆
0x107fc0…107fe0 64 0a 3b 20 73 61 76 65 20 77 33 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 0a ┆d ; save w3 unchanged ┆
0x107fe0…108000 69 34 3a 20 20 72 6c 20 20 77 32 20 20 78 31 2b 61 32 39 20 20 20 20 3b 20 20 20 20 64 65 76 69 ┆i4: rl w2 x1+a29 ; devi┆
0x108000…108020 63 65 20 3a 3d 20 73 61 76 65 20 77 31 28 63 75 72 29 3b 0a 20 20 20 20 20 6c 78 20 20 77 32 20 ┆ce := save w1(cur); lx w2 ┆
0x108020…108040 20 20 20 20 67 34 39 20 20 20 20 3b 20 20 20 20 65 78 63 68 61 6e 67 65 20 62 69 74 20 30 3b 0a ┆ g49 ; exchange bit 0; ┆
0x108040…108060 20 20 20 20 20 77 61 20 20 77 32 20 20 20 20 20 62 36 35 20 20 20 20 3b 0a 20 20 20 20 20 73 6c ┆ wa w2 b65 ; sl┆
0x108060…108080 20 20 77 32 20 20 20 20 28 62 36 37 29 20 20 20 3b 20 20 20 20 69 66 20 64 65 76 69 63 65 20 61 ┆ w2 (b67) ; if device a┆
0x108080…1080a0 64 64 72 65 73 73 20 6f 75 74 73 69 64 65 0a 20 20 20 20 20 73 6c 20 20 77 32 20 20 20 20 28 62 ┆ddress outside sl w2 (b┆
0x1080a0…1080c0 36 38 29 20 20 20 3b 20 20 20 20 20 20 63 6f 6e 74 72 6f 6c 6c 65 72 20 74 61 62 6c 65 20 74 68 ┆68) ; controller table th┆
0x1080c0…1080e0 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 20 ┆en jl r4 ; ┆
0x1080e0…108100 20 67 6f 74 6f 20 72 65 73 75 6c 74 20 34 3b 0a 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 32 ┆ goto result 4; rl w2 x2┆
0x108100…108120 2b 61 33 31 31 20 20 20 3b 20 20 20 20 73 74 61 74 75 73 20 61 64 64 72 65 73 20 3a 3d 20 73 74 ┆+a311 ; status addres := st┆
0x108120…108140 61 74 75 73 28 63 6f 6e 74 72 20 64 65 73 63 72 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 ┆atus(contr descr); al w2 ┆
0x108140…108160 78 32 2d 61 32 33 30 20 20 20 3b 0a 20 20 20 20 20 6a 6c 20 20 77 31 20 20 20 20 20 64 31 33 30 ┆x2-a230 ; jl w1 d130┆
0x108160…108180 20 20 20 3b 20 20 20 20 63 6c 65 61 72 20 64 65 76 69 63 65 28 70 72 6f 63 29 3b 0a 20 20 20 20 ┆ ; clear device(proc); ┆
0x108180…1081a0 20 72 6c 20 20 77 31 20 20 20 20 20 62 31 20 20 20 20 20 3b 20 20 20 20 77 31 20 3a 3d 20 63 75 ┆ rl w1 b1 ; w1 := cu┆
0x1081a0…1081c0 72 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 72 ┆r; al w0 0 ; r┆
0x1081c0…1081e0 65 73 75 6c 74 3a 3d 30 3b 0a 20 20 20 20 20 72 78 20 20 77 30 20 20 78 31 2b 61 32 38 20 20 20 ┆esult:=0; rx w0 x1+a28 ┆
0x1081e0…108200 20 3b 20 20 20 20 69 66 20 73 61 76 65 20 77 30 28 63 75 72 29 20 3d 20 30 20 74 68 65 6e 0a 20 ┆ ; if save w0(cur) = 0 then ┆
0x108200…108220 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 20 20 72 65 73 ┆ sn w0 0 ; res┆
0x108220…108240 75 6c 74 20 3a 3d 20 70 6f 77 65 72 20 72 65 73 74 61 72 74 0a 20 20 20 20 20 61 6d 20 20 20 20 ┆ult := power restart am ┆
0x108240…108260 20 20 20 20 20 36 2d 33 20 20 20 20 3b 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 61 6c 20 20 77 ┆ 6-3 ; else al w┆
0x108260…108280 30 20 20 20 20 20 33 20 20 20 20 20 20 3b 20 20 20 20 20 20 72 65 73 75 6c 74 20 3a 3d 20 74 69 ┆0 3 ; result := ti┆
0x108280…1082a0 6d 65 6f 75 74 3b 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 61 32 34 31 20 20 20 3b 20 ┆meout; al w2 x2+a241 ; ┆
0x1082a0…1082c0 20 20 20 77 32 20 3a 3d 20 69 6e 74 65 72 72 75 70 74 20 6f 70 65 72 61 74 69 6f 6e 28 70 72 6f ┆ w2 := interrupt operation(pro┆
0x1082c0…1082e0 63 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 20 20 63 39 39 20 20 20 20 3b 20 20 20 20 ┆c); al w3 c99 ; ┆
0x1082e0…108300 64 65 6c 69 76 65 72 20 69 6e 74 65 72 72 75 70 74 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 ┆deliver interrupt; jl ┆
0x108300…108320 20 20 20 64 31 32 31 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 ┆ d121 ; goto interrupt re┆
0x108320…108340 74 75 72 6e 3b 0a 0a 65 32 39 3a 20 72 6c 20 20 77 32 20 20 20 20 28 62 36 29 20 20 20 20 3b 20 ┆turn; e29: rl w2 (b6) ; ┆
0x108340…108360 73 74 61 72 74 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 73 65 20 20 ┆start internal process se ┆
0x108360…108380 77 32 20 20 78 31 20 20 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 63 75 72 20 3c 3e 20 66 69 72 ┆w2 x1 ; if cur <> fir┆
0x108380…1083a0 73 74 20 69 6e 74 65 72 6e 61 6c 20 28 69 2e 65 2e 20 70 72 6f 63 20 66 75 6e 63 29 20 74 68 65 ┆st internal (i.e. proc func) the┆
0x1083a0…1083c0 6e 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 20 20 20 20 20 20 ┆n jl. i2. ; ┆
0x1083c0…1083e0 67 6f 74 6f 20 63 68 65 63 6b 20 6e 61 6d 65 28 73 61 76 65 20 77 33 29 3b 0a 3b 20 70 72 6f 63 ┆goto check name(save w3); ; proc┆
0x1083e0…108400 20 66 75 6e 63 20 68 61 73 20 69 73 73 75 65 64 20 61 20 63 61 6c 6c 20 6f 66 20 73 74 61 72 74 ┆ func has issued a call of start┆
0x108400…108420 20 70 72 6f 63 65 73 73 2e 0a 3b 20 20 61 6c 6c 20 70 72 6f 63 65 73 73 65 73 20 74 6f 20 62 65 ┆ process. ; all processes to be┆
0x108420…108440 20 73 74 61 72 74 65 64 20 61 72 65 20 6c 69 6e 6b 65 64 20 74 6f 67 65 74 68 65 72 2c 20 76 69 ┆ started are linked together, vi┆
0x108440…108460 61 20 77 61 69 74 2d 61 64 64 72 65 73 73 2c 20 61 6e 64 20 74 68 65 20 73 74 61 72 74 20 6f 66 ┆a wait-address, and the start of┆
0x108460…108480 20 74 68 65 0a 3b 20 20 63 68 61 69 6e 20 69 73 20 67 69 76 65 6e 20 69 6e 20 73 61 76 65 20 77 ┆ the ; chain is given in save w┆
0x108480…1084a0 33 2e 0a 69 35 3a 20 20 72 6c 20 20 77 31 20 20 78 32 2b 61 33 31 20 20 20 20 3b 20 72 65 70 3a ┆3. i5: rl w1 x2+a31 ; rep:┆
0x1084a0…1084c0 20 70 72 6f 63 20 3a 3d 20 73 61 76 65 20 77 33 28 70 72 6f 63 20 66 75 6e 63 29 3b 0a 20 20 20 ┆ proc := save w3(proc func); ┆
0x1084c0…1084e0 20 20 73 6e 20 20 77 31 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 65 6e 64 20 ┆ sn w1 0 ; if end ┆
0x1084e0…108500 63 68 61 69 6e 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 20 20 20 63 39 39 20 20 ┆chain then jl c99 ┆
0x108500…108520 20 20 3b 20 20 20 20 20 20 67 6f 74 6f 20 69 6e 74 65 72 72 75 70 74 20 72 65 74 75 72 6e 3b 0a ┆ ; goto interrupt return; ┆
0x108520…108540 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 31 2b 61 34 30 20 20 20 20 3b 20 20 20 20 73 61 76 ┆ rl w0 x1+a40 ; sav┆
0x108540…108560 65 20 77 33 28 70 72 6f 63 20 66 75 6e 63 29 20 3a 3d 20 77 61 69 74 20 61 64 64 72 65 73 73 2e ┆e w3(proc func) := wait address.┆
0x108560…108580 70 72 6f 63 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 32 2b 61 33 31 20 20 20 20 3b 0a 20 ┆proc; rs w0 x2+a31 ; ┆
0x108580…1085a0 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 2b 61 33 34 20 20 20 20 3b 20 20 20 20 66 61 74 68 65 ┆ rl w2 x1+a34 ; fathe┆
0x1085a0…1085c0 72 20 3a 3d 20 70 61 72 65 6e 74 2e 70 72 6f 63 3b 0a 20 20 20 20 20 62 7a 20 20 77 33 20 20 78 ┆r := parent.proc; bz w3 x┆
0x1085c0…1085e0 32 2b 61 31 32 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 31 20 20 20 20 ┆2+a12 ; al w3 x3+1 ┆
0x1085e0…108600 20 20 3b 20 20 20 20 69 6e 63 72 65 61 73 65 28 73 74 6f 70 63 6f 75 6e 74 28 66 61 74 68 65 72 ┆ ; increase(stopcount(father┆
0x108600…108620 (470,) 29 29 3b 0a 20 20 20 20 20 68 73 20 20 77 33 20 20 78 32 2b 61 31 32 20 20 20 20 3b 0a 20 20 20 ┆)); hs w3 x2+a12 ; ┆
0x108620…108640 20 20 61 6c 20 20 77 30 20 20 20 20 20 61 31 30 31 20 20 20 3b 0a 20 20 20 20 20 68 73 20 20 77 ┆ al w0 a101 ; hs w┆
0x108640…108660 30 20 20 78 31 2b 61 31 33 20 20 20 20 3b 20 20 20 20 73 74 61 74 65 2e 70 72 6f 63 20 3a 3d 20 ┆0 x1+a13 ; state.proc := ┆
0x108660…108680 77 61 69 74 69 6e 67 20 66 6f 72 20 70 72 6f 63 65 73 73 20 66 75 6e 63 74 69 6f 6e 3b 20 28 70 ┆waiting for process function; (p┆
0x108680…1086a0 72 65 70 61 72 65 20 66 6f 72 20 6e 6f 74 20 73 74 61 72 74 69 6e 67 29 0a 20 20 20 20 20 72 6c ┆repare for not starting) rl┆
0x1086a0…1086c0 20 20 77 30 20 20 78 31 2b 61 33 33 20 20 20 20 3b 0a 20 20 20 20 20 73 6f 20 20 77 30 20 20 20 ┆ w0 x1+a33 ; so w0 ┆
0x1086c0…1086e0 20 20 31 20 20 20 20 20 20 3b 20 20 20 20 69 66 20 73 61 76 65 20 69 63 28 70 72 6f 63 29 20 65 ┆ 1 ; if save ic(proc) e┆
0x1086e0…108700 76 65 6e 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 64 31 30 20 20 20 20 ┆ven then jl w3 d10 ┆
0x108700…108720 3b 20 20 20 20 20 20 6c 69 6e 6b 20 69 6e 74 65 72 6e 61 6c 28 70 72 6f 63 29 3b 0a 20 20 20 20 ┆; link internal(proc); ┆
0x108720…108740 20 72 6c 20 20 77 32 20 20 20 20 28 62 36 29 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 ┆ rl w2 (b6) ; jl. ┆
0x108740…108760 20 20 20 20 20 69 35 2e 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 72 65 70 3b 0a 0a 65 33 30 3a ┆ i5. ; goto rep; e30:┆
0x108760…108780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 6f 70 20 69 6e 74 65 72 6e ┆ ; stop intern┆
0x108780…1087a0 61 6c 20 70 72 6f 63 65 73 73 3a 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 31 2b 61 31 39 20 ┆al process: bz w0 x1+a19 ┆
0x1087a0…1087c0 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 ┆ ; if buf claim(cur)=0 then┆
0x1087c0…1087e0 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 20 20 20 20 20 20 67 ┆ sn w0 0 ; g┆
0x1087e0…108800 6f 74 6f 20 63 6c 61 69 6d 20 62 75 66 66 65 72 28 63 75 72 2c 20 69 72 72 65 6c 6c 65 76 61 6e ┆oto claim buffer(cur, irrellevan┆
0x108800…108820 74 29 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 ┆t); jl d108 ; ┆
0x108820…108840 28 74 68 65 72 65 20 61 72 65 20 6e 6f 20 62 75 66 66 65 72 73 2c 20 73 6f 20 73 61 76 65 20 77 ┆(there are no buffers, so save w┆
0x108840…108860 32 3a 3d 30 20 61 6e 64 20 65 78 69 74 29 3b 0a 0a 3b 20 79 6f 75 20 6d 61 79 20 6e 6f 74 20 61 ┆2:=0 and exit); ; you may not a┆
0x108860…108880 63 74 75 61 6c 6c 79 20 63 6c 61 69 6d 20 74 68 65 20 62 75 66 66 65 72 20 66 6f 72 20 72 65 74 ┆ctually claim the buffer for ret┆
0x108880…1088a0 75 72 6e 69 6e 67 20 74 68 65 20 61 6e 73 77 65 72 20 79 65 74 2c 20 62 65 63 61 75 73 65 20 74 ┆urning the answer yet, because t┆
0x1088a0…1088c0 68 65 20 63 61 6c 6c 69 6e 67 0a 3b 20 70 72 6f 63 65 73 73 20 6d 61 79 20 67 65 74 20 73 74 6f ┆he calling ; process may get sto┆
0x1088c0…1088e0 70 70 65 64 20 69 74 73 65 6c 66 2c 20 62 65 66 6f 72 65 20 70 72 6f 63 66 75 6e 63 20 72 65 61 ┆pped itself, before procfunc rea┆
0x1088e0…108900 63 68 65 73 20 69 74 2e 20 77 68 65 6e 20 74 68 65 20 63 61 6c 6c 20 69 73 20 72 65 70 65 61 74 ┆ches it. when the call is repeat┆
0x108900…108920 65 64 2c 20 74 68 65 0a 3b 20 62 75 66 66 65 72 20 6d 69 67 68 74 20 62 65 20 63 6c 61 69 6d 65 ┆ed, the ; buffer might be claime┆
0x108920…108940 64 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 63 65 2e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 ┆d more than once. jl. ┆
0x108940…108960 20 20 69 32 2e 20 20 20 20 3b 20 20 20 20 67 6f 74 6f 20 63 68 65 63 6b 20 6e 61 6d 65 20 61 72 ┆ i2. ; goto check name ar┆
0x108960…108980 65 61 3b 0a 0a 62 2e 6a 31 30 20 77 2e 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 63 6f 70 79 2e ┆ea; b.j10 w. ; procedure copy.┆
0x108980…1089a0 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 20 20 20 20 20 20 72 65 74 75 72 6e 0a 3b ┆ ; call return ;┆
0x1089a0…1089c0 20 73 61 76 65 20 77 30 20 20 20 20 78 20 20 20 20 20 20 20 20 20 7a 0a 3b 20 73 61 76 65 20 77 ┆ save w0 x z ; save w┆
0x1089c0…1089e0 31 20 20 20 20 78 20 20 20 20 20 20 20 20 20 7a 0a 3b 20 73 61 76 65 20 77 32 20 20 20 20 78 20 ┆1 x z ; save w2 x ┆
0x1089e0…108a00 20 20 20 20 20 20 20 20 7a 0a 3b 20 73 61 76 65 20 77 33 20 20 20 20 78 20 20 20 20 20 20 20 20 ┆ z ; save w3 x ┆
0x108a00…108a20 20 7a 0a 0a 65 33 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6f 70 ┆ z e35: ; cop┆
0x108a20…108a40 79 20 6d 65 73 73 61 67 65 3a 0a 20 20 20 20 20 6a 6c 20 20 77 33 20 20 64 31 32 20 20 20 20 20 ┆y message: jl w3 d12 ┆
0x108a40…108a60 20 20 3b 20 20 20 63 68 65 63 6b 20 6d 65 73 73 61 67 65 20 62 75 66 3b 0a 20 20 20 20 20 72 6c ┆ ; check message buf; rl┆
0x108a60…108a80 20 20 77 33 20 20 78 31 2b 61 32 39 20 20 20 20 3b 20 20 20 66 69 72 73 74 3a 3d 73 61 76 65 64 ┆ w3 x1+a29 ; first:=saved┆
0x108a80…108aa0 20 77 31 3b 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 31 2b 61 33 31 20 20 20 20 3b 20 20 20 ┆ w1; rl w0 x1+a31 ; ┆
0x108aa0…108ac0 6c 61 73 74 3a 3d 73 61 76 65 64 20 77 33 3b 0a 0a 20 20 20 20 20 73 6c 20 20 77 33 20 20 28 78 ┆last:=saved w3; sl w3 (x┆
0x108ac0…108ae0 31 2b 61 31 37 29 20 20 3b 20 63 68 65 63 6b 3a 0a 20 20 20 20 20 73 6c 20 20 77 30 20 20 28 78 ┆1+a17) ; check: sl w0 (x┆
0x108ae0…108b00 31 2b 61 31 38 29 20 20 3b 20 20 20 69 66 20 66 69 72 73 74 3c 66 69 72 73 74 20 61 64 64 72 28 ┆1+a18) ; if first<first addr(┆
0x108b00…108b20 63 75 72 29 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 ┆cur) jl c29 ; ┆
0x108b20…108b40 6f 72 20 6c 61 73 74 3e 3d 74 6f 70 20 61 64 64 72 28 63 75 72 29 0a 20 20 20 20 20 77 73 20 20 ┆or last>=top addr(cur) ws ┆
0x108b40…108b60 77 30 20 20 36 20 20 20 20 20 20 20 20 20 3b 20 20 20 6f 72 20 66 69 72 73 74 3e 6c 61 73 74 20 ┆w0 6 ; or first>last ┆
0x108b60…108b80 74 68 65 6e 0a 20 20 20 20 20 73 68 20 20 77 30 20 20 2d 31 20 20 20 20 20 20 20 20 3b 20 20 20 ┆then sh w0 -1 ; ┆
0x108b80…108ba0 20 20 67 6f 74 6f 20 69 6e 74 65 72 6e 61 6c 20 33 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 63 ┆ goto internal 3 jl c┆
0x108ba0…108bc0 32 39 20 20 20 20 20 20 20 3b 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆29 ; ┆
0x108bc0…108be0 20 20 20 3b 20 0a 20 20 20 20 20 61 63 20 20 77 33 20 20 28 78 32 2b 34 29 20 20 20 20 3b 20 20 ┆ ; ac w3 (x2+4) ; ┆
0x108be0…108c00 20 72 65 63 3a 3d 20 2d 28 2d 72 65 63 65 69 76 65 72 28 6d 65 73 73 29 29 0a 20 20 20 20 20 73 ┆ rec:= -(-receiver(mess)) s┆
0x108c00…108c20 6f 20 20 77 33 20 20 32 2e 31 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 72 65 63 20 6f 64 64 0a ┆o w3 2.1 ; if rec odd ┆
0x108c20…108c40 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 6f 72 20 72 65 ┆ sh w3 0 ; or re┆
0x108c40…108c60 63 3c 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 63 32 39 20 20 20 20 20 20 ┆c<=0 then jl c29 ┆
0x108c60…108c80 20 3b 20 20 20 20 20 67 6f 74 6f 20 69 6e 74 65 72 6e 61 6c 20 33 0a 20 20 20 20 20 72 6c 20 20 ┆ ; goto internal 3 rl ┆
0x108c80…108ca0 77 30 20 20 78 33 2b 61 31 30 20 20 20 20 3b 20 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 36 34 ┆w0 x3+a10 ; sn w0 64┆
0x108ca0…108cc0 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 72 65 63 20 69 73 20 61 20 70 73 65 75 64 6f 20 70 ┆ ; if rec is a pseudo p┆
0x108cc0…108ce0 72 6f 63 65 73 73 20 74 68 65 6e 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 33 2b 61 35 30 20 ┆rocess then rl w3 x3+a50 ┆
0x108ce0…108d00 20 20 20 3b 20 20 20 20 20 72 65 63 3a 3d 6d 61 69 6e 28 72 65 63 29 3b 0a 20 20 20 20 20 72 6c ┆ ; rec:=main(rec); rl┆
0x108d00…108d20 20 20 77 30 20 20 78 33 2b 61 31 30 20 20 20 20 3b 0a 20 20 20 20 20 73 7a 20 20 77 30 20 20 2d ┆ w0 x3+a10 ; sz w0 -┆
0x108d20…108d40 31 2d 36 34 20 20 20 20 20 3b 20 20 20 69 66 20 72 65 63 20 6e 65 69 74 68 65 72 20 69 6e 74 65 ┆1-64 ; if rec neither inte┆
0x108d40…108d60 72 6e 61 6c 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 ┆rnal nor pseudo process then ┆
0x108d60…108d80 20 20 72 6c 20 20 77 33 20 20 78 33 2b 61 32 35 30 20 20 20 3b 20 20 20 20 20 72 65 63 3a 3d 64 ┆ rl w3 x3+a250 ; rec:=d┆
0x108d80…108da0 72 69 76 65 72 20 70 72 6f 63 28 72 65 63 29 3b 0a 20 20 20 20 20 73 65 20 20 77 33 20 20 78 31 ┆river proc(rec); se w3 x1┆
0x108da0…108dc0 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 72 65 63 3c 3e 63 75 72 20 74 68 65 6e 0a 20 20 20 ┆ ; if rec<>cur then ┆
0x108dc0…108de0 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 67 6f 74 6f 20 69 ┆ jl c29 ; goto i┆
0x108de0…108e00 6e 74 65 72 6e 61 6c 33 3b 0a 0a 20 20 20 20 20 62 7a 20 20 77 33 20 20 78 32 2b 38 20 20 20 20 ┆nternal3; bz w3 x2+8 ┆
0x108e00…108e20 20 20 3b 0a 20 20 20 20 20 73 6f 20 20 77 33 20 20 32 2e 31 20 20 20 20 20 20 20 3b 20 20 20 69 ┆ ; so w3 2.1 ; i┆
0x108e20…108e40 66 20 6f 70 65 72 61 74 69 6f 6e 28 6d 65 73 29 20 65 76 65 6e 20 74 68 65 6e 0a 20 20 20 20 20 ┆f operation(mes) even then ┆
0x108e40…108e60 6a 6c 20 20 20 20 20 20 72 33 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 72 65 73 ┆jl r3 ; goto res┆
0x108e60…108e80 75 6c 74 33 3b 0a 0a 3b 20 66 75 72 74 68 65 72 20 63 68 65 63 6b 69 6e 67 20 69 73 20 70 6f 73 ┆ult3; ; further checking is pos┆
0x108e80…108ea0 74 70 6f 6e 65 64 20 75 6e 74 69 6c 20 70 72 6f 63 66 75 6e 63 2e 0a 20 20 20 20 20 6a 6c 2e 20 ┆tponed until procfunc. jl. ┆
0x108ea0…108ec0 20 20 20 20 69 33 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6c 69 6e 6b 20 63 61 6c 6c ┆ i3. ; goto link call┆
0x108ec0…108ee0 3b 0a 0a 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 67 65 6e 65 72 61 6c 20 63 6f 70 79 0a 3b 20 ┆; ; procedure general copy ; ┆
0x108ee0…108f00 63 6f 70 69 65 73 20 61 6e 20 61 72 65 61 20 69 6e 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 70 72 ┆copies an area in the calling pr┆
0x108f00…108f20 (471,) 6f 63 65 73 73 20 74 6f 20 6f 72 20 66 72 6f 6d 20 61 6e 0a 3b 20 61 72 65 61 20 64 65 73 63 72 ┆ocess to or from an ; area descr┆
0x108f20…108f40 69 62 65 64 20 69 6e 20 61 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 2e 0a 3b 20 74 68 65 20 ┆ibed in a message buffer. ; the ┆
0x108f40…108f60 66 69 72 73 74 20 77 6f 72 64 20 74 6f 20 62 65 20 63 6f 70 69 65 64 20 69 73 20 64 65 66 69 6e ┆first word to be copied is defin┆
0x108f60…108f80 65 64 20 62 79 20 69 74 73 20 70 6f 73 69 74 69 6f 6e 0a 3b 20 72 65 6c 61 74 69 76 65 20 74 6f ┆ed by its position ; relative to┆
0x108f80…108fa0 20 74 68 65 20 66 69 72 73 74 20 61 64 64 72 65 73 73 20 69 6e 20 74 68 65 20 6d 65 73 73 61 67 ┆ the first address in the messag┆
0x108fa0…108fc0 65 62 75 66 66 65 72 2e 0a 3b 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 20 20 20 20 20 20 72 65 ┆ebuffer. ; call re┆
0x108fc0…108fe0 74 75 72 6e 0a 3b 20 73 61 76 65 20 77 30 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 ┆turn ; save w0 result┆
0x108fe0…109000 20 28 3d 30 2c 32 2c 33 29 0a 3b 20 73 61 76 65 20 77 31 20 20 70 61 72 61 6d 73 20 20 20 20 68 ┆ (=0,2,3) ; save w1 params h┆
0x109000…109020 61 6c 66 77 6f 72 64 73 20 6d 6f 76 65 64 0a 3b 20 73 61 76 65 20 77 32 20 20 62 75 66 0a 3b 20 ┆alfwords moved ; save w2 buf ; ┆
0x109020…109040 73 61 76 65 20 77 33 0a 3b 20 70 61 72 61 6d 73 2b 30 20 20 66 75 6e 63 74 69 6f 6e 20 28 61 64 ┆save w3 ; params+0 function (ad┆
0x109040…109060 64 72 20 70 61 69 72 3c 31 20 2b 20 6d 6f 64 65 29 0a 3b 20 20 20 20 20 20 20 2b 32 20 20 66 69 ┆dr pair<1 + mode) ; +2 fi┆
0x109060…109080 72 73 74 0a 3b 20 20 20 20 20 20 20 2b 34 20 20 6c 61 73 74 0a 3b 20 20 20 20 20 20 20 2b 36 20 ┆rst ; +4 last ; +6 ┆
0x109080…1090a0 20 72 65 6c 61 74 69 76 65 28 6d 65 73 73 20 64 61 74 61 20 62 75 66 66 65 72 29 0a 0a 6a 31 30 ┆ relative(mess data buffer) j10┆
0x1090a0…1090c0 3d 35 31 32 20 20 20 20 3b 20 6d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 69 6d ┆=512 ; max number of bytes im┆
0x1090c0…1090e0 6d 69 64 69 61 74 65 6c 79 20 74 72 61 6e 73 66 65 72 72 65 64 0a 0a 65 34 32 3a 20 20 20 20 20 ┆midiately transferred e42: ┆
0x1090e0…109100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 65 6e 65 72 61 6c 20 63 6f 70 79 3a 0a 20 20 ┆ ; general copy: ┆
0x109100…109120 20 20 20 6a 6c 20 20 77 33 20 20 64 31 32 20 20 20 20 20 20 20 3b 20 20 63 68 65 63 6b 20 6d 65 ┆ jl w3 d12 ; check me┆
0x109120…109140 73 73 61 67 65 20 62 75 66 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 61 32 39 20 20 20 ┆ssage buf rl w3 x1+a29 ┆
0x109140…109160 20 3b 20 20 70 61 72 61 6d 3a 3d 20 70 61 72 61 6d 65 74 65 72 20 61 64 64 72 65 73 73 28 3d 63 ┆ ; param:= parameter address(=c┆
0x109160…109180 75 72 2e 77 31 29 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 33 2b 36 20 20 20 20 20 20 3b 20 ┆ur.w1) al w0 x3+6 ; ┆
0x109180…1091a0 20 69 66 20 70 61 72 61 6d 3c 66 69 72 73 74 20 61 64 64 72 28 63 75 72 29 20 6f 72 0a 20 20 20 ┆ if param<first addr(cur) or ┆
0x1091a0…1091c0 20 20 73 6c 20 20 77 33 20 20 28 78 31 2b 61 31 37 29 20 20 3b 20 20 20 20 20 70 61 72 61 6d 2b ┆ sl w3 (x1+a17) ; param+┆
0x1091c0…1091e0 36 3e 3d 74 6f 70 20 61 64 64 72 28 63 75 72 29 20 74 68 65 6e 0a 20 20 20 20 20 73 6c 20 20 77 ┆6>=top addr(cur) then sl w┆
0x1091e0…109200 30 20 20 28 78 31 2b 61 31 38 29 20 20 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 63 32 39 20 ┆0 (x1+a18) ; jl c29 ┆