|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 5 A B C D E I L N O S T U V
Length: 819200 (0xc8000)
Description: Bits:30009789/_.ft.Ibm2.50007357.imd Mogens Pelles Zilog 80,000 / EOS projekt
Types: 5¼" Floppy Disk, CpmFSButler1a, ImdContainer
Notes: CP/M-fs(512_2048_0x0_*3+1+3+2_2:0_159:1_96)
Media: [0, 0, 1] … [159, 1, 10] {512: 1600}
Signature: 512_2048_0x0_*3+1+3+2_2:0_159:1_96
Confidence score: +60/-0
Sector size: 512
Block size: 2048
Directory entries: 96
Block number size: 16
Extent-mask: 0x00
Sector-interleave: 1, 4, 7, 10, 3, 6, 9, 2, 5, 8
Tracks: (2, 0), (3, 1), (4, 0), (5, 1), (6, 0), (7, 1) […] (154, 0), (155, 1), (156, 0), (157, 1), (158, 0), (159, 1)
| user | bc | length | name | artifact |
|---|---|---|---|---|
| 0 | 0 | 384 | ABORT.CF | ⟦02d58e89a⟧ TextFile |
| 0 | 0 | 3712 | ABORT.SA | ⟦a20daf77f⟧ TextFile |
| 0 | 0 | 6144 | BOOTGEN.SA | ⟦9406f7f42⟧ TextFile |
| 0 | 0 | 256 | CREAFILE.CF | ⟦12f95ccb9⟧ TextFile |
| 0 | 0 | 1280 | CREAFILE.SA | ⟦ea0ff907e⟧ TextFile |
| 0 | 0 | 384 | CREATE.CF | ⟦b24a888b6⟧ TextFile |
| 0 | 0 | 4864 | CREATE.SA | ⟦cfce5238c⟧ TextFile |
| 0 | 0 | 384 | DELETE.CF | ⟦adf46dac9⟧ TextFile |
| 0 | 0 | 3712 | DELETE.SA | ⟦294b4a8f1⟧ TextFile |
| 0 | 0 | 256 | EOSJCL.CF | ⟦87f81ab09⟧ TextFile |
| 0 | 0 | 7808 | EOSLINK.SA | ⟦323dc3822⟧ TextFile |
| 0 | 0 | 128 | EOSLOAD.CF | ⟦1346e37bf⟧ TextFile |
| 0 | 0 | 13824 | EOSLOAD.SA | ⟦eb8a337f4⟧ TextFile |
| 0 | 0 | 256 | EOSUNIX.CF | ⟦a2c19bfcb⟧ TextFile |
| 0 | 0 | 384 | EXCLUDE.CF | ⟦e16d5d1da⟧ TextFile |
| 0 | 0 | 6400 | EXCLUDE.SA | ⟦a315d112d⟧ TextFile |
| 0 | 0 | 384 | INCLUDE.CF | ⟦2c3352068⟧ TextFile |
| 0 | 0 | 6400 | INCLUDE.SA | ⟦c11747a08⟧ TextFile |
| 0 | 0 | 256 | INIT.CF | ⟦5710db348⟧ TextFile |
| 0 | 0 | 3712 | INIT.SA | ⟦5bfd3918e⟧ TextFile |
| 0 | 0 | 384 | INITWT.CF | ⟦58d1afca1⟧ TextFile |
| 0 | 0 | 5632 | INITWT.SA | ⟦523654fb0⟧ TextFile |
| 0 | 0 | 384 | LOAD.CF | ⟦12f62f82a⟧ TextFile |
| 0 | 0 | 4736 | LOAD.SA | ⟦ff50f2bcd⟧ TextFile |
| 0 | 0 | 384 | NEWEOSLD.CF | ⟦9ed0cf06d⟧ TextFile |
| 0 | 0 | 22400 | NEWEOSLD.SA | ⟦62bfa9bae⟧ TextFile |
| 0 | 0 | 384 | OPTIINIT.CF | ⟦2224ce17b⟧ TextFile |
| 0 | 0 | 3584 | OPTIINIT.SA | ⟦da4bfdb70⟧ TextFile |
| 0 | 0 | 384 | SCAN.CF | ⟦b07963fa6⟧ TextFile |
| 0 | 0 | 4480 | SCAN.SA | ⟦fbdaa6491⟧ TextFile |
| 0 | 0 | 384 | TPDEMO.CF | ⟦c8bff09f4⟧ TextFile |
| 0 | 0 | 5504 | TPDEMO.SA | ⟦72c64834d⟧ TextFile |
| 0 | 0 | 256 | TXTCONV.CF | ⟦4268efd9c⟧ TextFile |
| 0 | 0 | 2816 | TXTCONV.SA | ⟦3a056130b⟧ TextFile |
| 0 | 0 | 384 | UNIJCST.CF | ⟦b44ee0df7⟧ TextFile |
| 0 | 0 | 13568 | UNIJCST.SA | ⟦369bdae5b⟧ TextFile |
| 0 | 0 | 384 | UNIXUTIL.CF | ⟦d4e4183fa⟧ TextFile |
| 0 | 0 | 1920 | UNIXUTIL.SA | ⟦b215fab02⟧ TextFile |
| 0 | 0 | 384 | UXFSTEST.CF | ⟦7d5a47541⟧ TextFile |
| 0 | 0 | 384 | VERSACUT.CF | ⟦1bd8d5b94⟧ TextFile |
| 0 | 0 | 5632 | VERSACUT.SA | ⟦7a5b4d9d0⟧ TextFile |
0x00000…00020 (0, 0, 1) c3 5c d7 c3 58 d7 7f 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 50 59 52 49 47 48 ┆ Ø X COPYRIGH┆
0x00020…00040 54 20 28 43 29 20 31 39 37 39 2c 20 44 49 47 49 54 41 4c 20 52 45 53 45 41 52 43 48 20 20 00 00 ┆T (C) 1979, DIGITAL RESEARCH ┆
0x00040…00060 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 ┆ ┆
[…0x1…]
0x00080…000a0 00 00 00 00 00 00 00 00 08 d4 00 00 5f 0e 02 c3 05 00 c5 cd 8c d4 c1 c9 3e 0d cd 92 d4 3e 0a c3 ┆ _ > > ┆
0x000a0…000c0 92 d4 3e 20 c3 92 d4 c5 cd 98 d4 e1 7e b7 c8 23 e5 cd 8c d4 e1 c3 ac d4 0e 0d c3 05 00 5f 0e 0e ┆ > ü # _ ┆
0x000c0…000e0 c3 05 00 cd 05 00 32 ee db 3c c9 0e 0f c3 c3 d4 af 32 ed db 11 cd db c3 cb d4 0e 10 c3 c3 d4 0e ┆ 2 < 2 ┆
0x000e0…00100 11 c3 c3 d4 0e 12 c3 c3 d4 11 cd db c3 df d4 0e 13 c3 05 00 cd 05 00 b7 c9 0e 14 c3 f4 d4 11 cd ┆ ┆
0x00100…00120 db c3 f9 d4 0e 15 c3 f4 d4 0e 16 c3 c3 d4 0e 17 c3 05 00 1e ff 0e 20 c3 05 00 cd 13 d5 87 87 87 ┆ ┆
0x00120…00140 87 21 ef db b6 32 04 00 c9 3a ef db 32 04 00 c9 fe 61 d8 fe 7b d0 e6 5f c9 3a ab db b7 ca 96 d5 ┆ ! 2 : 2 a æ _ : ┆
0x00140…00160 3a ef db b7 3e 00 c4 bd d4 11 ac db cd cb d4 ca 96 d5 3a bb db 3d 32 cc db 11 ac db cd f9 d4 c2 ┆: > : =2 ┆
0x00160…00180 96 d5 11 07 d4 21 80 00 06 80 cd 42 d8 21 ba db 36 00 23 35 11 ac db cd da d4 ca 96 d5 3a ef db ┆ ! B ! 6 #5 : ┆
0x00180…001a0 b7 c4 bd d4 21 08 d4 cd ac d4 cd c2 d5 ca a7 d5 cd dd d5 c3 82 d7 cd dd d5 cd 1a d5 0e 0a 11 06 ┆ ! ┆
0x001a0…001c0 d4 cd 05 00 cd 29 d5 21 07 d4 46 23 78 b7 ca ba d5 7e cd 30 d5 77 05 c3 ab d5 77 21 08 d4 22 88 ┆ ) ! F#x ü 0 w w! " ┆
0x001c0…001e0 d4 c9 0e 0b cd 05 00 b7 c8 0e 01 cd 05 00 b7 c9 0e 19 c3 05 00 11 80 00 0e 1a c3 05 00 21 ab db ┆ ! ┆
0x001e0…00200 7e b7 c8 36 00 af cd bd d4 11 ac db cd ef d4 3a ef db c3 bd d4 11 28 d7 21 00 dc 06 06 1a be c2 ┆ü 6 : ( ! ┆
0x00200…00220 (0, 0, 2) cf d7 13 23 05 c2 fd d5 c9 cd 98 d4 2a 8a d4 7e fe 20 ca 22 d6 b7 ca 22 d6 e5 cd 8c d4 e1 23 c3 ┆ # * ü " " # ┆
0x00220…00240 0f d6 3e 3f cd 8c d4 cd 98 d4 cd dd d5 c3 82 d7 1a b7 c8 fe 20 da 09 d6 c8 fe 3d c8 fe 5f c8 fe ┆ >? = _ ┆
0x00240…00260 2e c8 fe 3a c8 fe 3b c8 fe 3c c8 fe 3e c8 c9 1a b7 c8 fe 20 c0 13 c3 4f d6 85 6f d0 24 c9 3e 00 ┆. : ; < > O o $ > ┆
0x00260…00280 21 cd db cd 59 d6 e5 e5 af 32 f0 db 2a 88 d4 eb cd 4f d6 eb 22 8a d4 eb e1 1a b7 ca 89 d6 de 40 ┆! Y 2 * O " @┆
0x00280…002a0 47 13 1a fe 3a ca 90 d6 1b 3a ef db 77 c3 96 d6 78 32 f0 db 70 13 06 08 cd 30 d6 ca b9 d6 23 fe ┆G : : w x2 p 0 # ┆
0x002a0…002c0 2a c2 a9 d6 36 3f c3 ab d6 77 13 05 c2 98 d6 cd 30 d6 ca c0 d6 13 c3 af d6 23 36 20 05 c2 b9 d6 ┆* 6? w 0 #6 ┆
0x002c0…002e0 06 03 fe 2e c2 e9 d6 13 cd 30 d6 ca e9 d6 23 fe 2a c2 d9 d6 36 3f c3 db d6 77 13 05 c2 c8 d6 cd ┆ . 0 # * 6? w ┆
0x002e0…00300 30 d6 ca f0 d6 13 c3 df d6 23 36 20 05 c2 e9 d6 06 03 23 36 00 05 c2 f2 d6 eb 22 88 d4 e1 01 0b ┆0 #6 #6 " ┆
0x00300…00320 00 23 7e fe 3f c2 09 d7 04 0d c2 01 d7 78 b7 c9 44 49 52 20 45 52 41 20 54 59 50 45 53 41 56 45 ┆ #ü ? x DIR ERA TYPESAVE┆
0x00320…00340 52 45 4e 20 55 53 45 52 4d 16 04 00 00 00 21 10 d7 0e 00 79 fe 06 d0 11 ce db 06 04 1a be c2 4f ┆REN USERM ! y O┆
0x00340…00360 d7 13 23 05 c2 3c d7 1a fe 20 c2 54 d7 79 c9 23 05 c2 4f d7 0c c3 33 d7 af 32 07 d4 31 ab db c5 ┆ # < T y # O 3 2 1 ┆
0x00360…00380 79 1f 1f 1f 1f e6 0f 5f cd 15 d5 cd b8 d4 32 ab db c1 79 e6 0f 32 ef db cd bd d4 3a 07 d4 b7 c2 ┆y _ 2 y 2 : ┆
0x00380…003a0 98 d7 31 ab db cd 98 d4 cd d0 d5 c6 41 cd 8c d4 3e 3e cd 8c d4 cd 39 d5 11 80 00 cd d8 d5 cd d0 ┆ 1 A >> 9 ┆
0x003a0…003c0 d5 32 ef db cd 5e d6 c4 09 d6 3a f0 db b7 c2 a5 da cd 2e d7 21 c1 d7 5f 16 00 19 19 7e 23 66 6f ┆ 2 ^ : . ! _ ü#fo┆
0x003c0…003e0 e9 77 d8 1f d9 5d d9 ad d9 10 da 8e da a5 da 21 f3 76 22 00 d4 21 00 d4 e9 01 df d7 c3 a7 d4 52 ┆ w Å ! v" ! R┆
0x003e0…00400 45 41 44 20 45 52 52 4f 52 00 01 f0 d7 c3 a7 d4 4e 4f 20 46 49 4c 45 00 cd 5e d6 3a f0 db b7 c2 ┆EAD ERROR NO FILE ^ : ┆
0x00400…00420 (0, 0, 3) 09 d6 21 ce db 01 0b 00 7e fe 20 ca 33 d8 23 d6 30 fe 0a d2 09 d6 57 78 e6 e0 c2 09 d6 78 07 07 ┆ ! ü 3 # 0 Wx x ┆
0x00420…00440 07 80 da 09 d6 80 da 09 d6 82 da 09 d6 47 0d c2 08 d8 c9 7e fe 20 c2 09 d6 23 0d c2 33 d8 78 c9 ┆ G ü # 3 x ┆
0x00440…00460 06 03 7e 12 23 13 05 c2 42 d8 c9 21 80 00 81 cd 59 d6 7e c9 af 32 cd db 3a f0 db b7 c8 3d 21 ef ┆ ü # B ! Y ü 2 : =! ┆
0x00460…00480 db be c8 c3 bd d4 3a f0 db b7 c8 3d 21 ef db be c8 3a ef db c3 bd d4 cd 5e d6 cd 54 d8 21 ce db ┆ : =! : ^ T ! ┆
0x00480…004a0 7e fe 20 c2 8f d8 06 0b 36 3f 23 05 c2 88 d8 1e 00 d5 cd e9 d4 cc ea d7 ca 1b d9 3a ee db 0f 0f ┆ü 6?# : ┆
0x004a0…004c0 0f e6 60 4f 3e 0a cd 4b d8 17 da 0f d9 d1 7b 1c d5 e6 03 f5 c2 cc d8 cd 98 d4 c5 cd d0 d5 c1 c6 ┆ `O> K æ ┆
0x004c0…004e0 41 cd 92 d4 3e 3a cd 92 d4 c3 d4 d8 cd a2 d4 3e 3a cd 92 d4 cd a2 d4 06 01 78 cd 4b d8 e6 7f fe ┆A >: >: x K ┆
0x004e0…00500 20 c2 f9 d8 f1 f5 fe 03 c2 f7 d8 3e 09 cd 4b d8 e6 7f fe 20 ca 0e d9 3e 20 cd 92 d4 04 78 fe 0c ┆ > K > x ┆
0x00500…00520 d2 0e d9 fe 09 c2 d9 d8 cd a2 d4 c3 d9 d8 f1 cd c2 d5 c2 1b d9 cd e4 d4 c3 98 d8 d1 c3 86 db cd ┆ ┆
0x00520…00540 5e d6 fe 0b c2 42 d9 01 52 d9 cd a7 d4 cd 39 d5 21 07 d4 35 c2 82 d7 23 7e fe 59 c2 82 d7 23 22 ┆^ B R 9 ! 5 #ü Y #"┆
0x00540…00560 88 d4 cd 54 d8 11 cd db cd ef d4 3c cc ea d7 c3 86 db 41 4c 4c 20 28 59 2f 4e 29 3f 00 cd 5e d6 ┆ T < ALL (Y/N)? ^ ┆
0x00560…00580 c2 09 d6 cd 54 d8 cd d0 d4 ca a7 d9 cd 98 d4 21 f1 db 36 ff 21 f1 db 7e fe 80 da 87 d9 e5 cd fe ┆ T ! 6 ! ü ┆
0x00580…005a0 d4 e1 c2 a0 d9 af 77 34 21 80 00 cd 59 d6 7e fe 1a ca 86 db cd 8c d4 cd c2 d5 c2 86 db c3 74 d9 ┆ w4! Y ü t ┆
0x005a0…005c0 3d ca 86 db cd d9 d7 cd 66 d8 c3 09 d6 cd f8 d7 f5 cd 5e d6 c2 09 d6 cd 54 d8 11 cd db d5 cd ef ┆= f ^ T ┆
0x005c0…005e0 d4 d1 cd 09 d5 ca fb d9 af 32 ed db f1 6f 26 00 29 11 00 01 7c b5 ca f1 d9 2b e5 21 80 00 19 e5 ┆ 2 o& ) ø + ! ┆
0x005e0…00600 cd d8 d5 11 cd db cd 04 d5 d1 e1 c2 fb d9 c3 d4 d9 11 cd db cd da d4 3c c2 01 da 01 07 da cd a7 ┆ < ┆
0x00600…00620 (0, 0, 4) d4 cd d5 d5 c3 86 db 4e 4f 20 53 50 41 43 45 00 cd 5e d6 c2 09 d6 3a f0 db f5 cd 54 d8 cd e9 d4 ┆ NO SPACE ^ : T ┆
0x00620…00640 c2 79 da 21 cd db 11 dd db 06 10 cd 42 d8 2a 88 d4 eb cd 4f d6 fe 3d ca 3f da fe 5f c2 73 da eb ┆ y ! B * O = ? _ s ┆
0x00640…00660 23 22 88 d4 cd 5e d6 c2 73 da f1 47 21 f0 db 7e b7 ca 59 da b8 70 c2 73 da 70 af 32 cd db cd e9 ┆#" ^ s G! ü Y p s p 2 ┆
0x00660…00680 d4 ca 6d da 11 cd db cd 0e d5 c3 86 db cd ea d7 c3 86 db cd 66 d8 c3 09 d6 01 82 da cd a7 d4 c3 ┆ m f ┆
0x00680…006a0 86 db 46 49 4c 45 20 45 58 49 53 54 53 00 cd f8 d7 fe 10 d2 09 d6 5f 3a ce db fe 20 ca 09 d6 cd ┆ FILE EXISTS _: ┆
0x006a0…006c0 15 d5 c3 89 db cd f5 d5 3a ce db fe 20 c2 c4 da 3a f0 db b7 ca 89 db 3d 32 ef db cd 29 d5 cd bd ┆ : : =2 ) ┆
0x006c0…006e0 d4 c3 89 db 11 d6 db 1a fe 20 c2 09 d6 d5 cd 54 d8 d1 21 83 db cd 40 d8 cd d0 d4 ca 6b db 21 00 ┆ T ! @ k ! ┆
0x006e0…00700 01 e5 eb cd d8 d5 11 cd db cd f9 d4 c2 01 db e1 11 80 00 19 11 00 d4 7d 93 7c 9a d2 71 db c3 e1 ┆ å ø q ┆
0x00700…00720 da e1 3d c2 71 db cd 66 d8 cd 5e d6 21 f0 db e5 7e 32 cd db 3e 10 cd 60 d6 e1 7e 32 dd db af 32 ┆ = q f ^ ! ü2 > ` ü2 2┆
0x00720…00740 ed db 11 5c 00 21 cd db 06 21 cd 42 d8 21 08 d4 7e b7 ca 3e db fe 20 ca 3e db 23 c3 30 db 06 00 ┆ Ø ! ! B ! ü > > # 0 ┆
0x00740…00760 11 81 00 7e 12 b7 ca 4f db 04 23 13 c3 43 db 78 32 80 00 cd 98 d4 cd d5 d5 cd 1a d5 cd 00 01 31 ┆ ü O # C x2 1┆
0x00760…00780 ab db cd 29 d5 cd bd d4 c3 82 d7 cd 66 d8 c3 09 d6 01 7a db cd a7 d4 c3 86 db 42 41 44 20 4c 4f ┆ ) f z BAD LO┆
0x00780…007a0 41 44 00 43 4f 4d cd 66 d8 cd 5e d6 3a ce db d6 20 21 f0 db b6 c2 09 d6 c3 82 d7 00 00 00 00 00 ┆AD COM f ^ : ! ┆
0x007a0…007c0 00 00 00 00 00 00 00 00 00 00 00 00 00 24 24 24 20 20 20 20 20 53 55 42 00 00 00 00 00 00 00 00 ┆ $$$ SUB ┆
0x007c0…007e0 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 ┆ ┆
[…0x1…]
0x00800…00820 (0, 0, 5) 4d 16 04 00 00 00 c3 11 dc 99 dc a5 dc ab dc b1 dc eb 22 43 df eb 7b 32 d6 e9 21 00 00 22 45 df ┆M "C æ2 ! "E ┆
0x00820…00840 39 22 0f df 31 41 df af 32 e0 e9 32 de e9 21 74 e9 e5 79 fe 29 d0 4b 21 47 dc 5f 16 00 19 19 5e ┆9" 1A 2 2 !t y ) K!G _ ^┆
0x00840…00860 23 56 2a 43 df eb e9 03 ea c8 de 90 dd ce de 12 ea 0f ea d4 de ed de f3 de f8 de e1 dd fe de 7e ┆#V*C ü┆
0x00860…00880 e8 83 e8 45 e8 9c e8 a5 e8 ab e8 c8 e8 d7 e8 e0 e8 e6 e8 ec e8 f5 e8 fe e8 04 e9 0a e9 11 e9 2c ┆ E ,┆
0x00880…008a0 e1 17 e9 1d e9 26 e9 2d e9 41 e9 47 e9 4d e9 0e e8 53 e9 04 df 04 df 9b e9 21 ca dc cd e5 dc fe ┆ & - A G M S ! ┆
0x008a0…008c0 03 ca 00 00 c9 21 d5 dc c3 b4 dc 21 e1 dc c3 b4 dc 21 dc dc cd e5 dc c3 00 00 42 64 6f 73 20 45 ┆ ! ! ! Bdos E┆
0x008c0…008e0 72 72 20 4f 6e 20 20 3a 20 24 42 61 64 20 53 65 63 74 6f 72 24 53 65 6c 65 63 74 24 46 69 6c 65 ┆rr On : $Bad Sector$Select$File┆
0x008e0…00900 20 52 2f 4f 24 e5 cd c9 dd 3a 42 df c6 41 32 c6 dc 01 ba dc cd d3 dd c1 cd d3 dd 21 0e df 7e 36 ┆ R/O$ :B A2 ! ü6┆
0x00900…00920 00 b7 c0 c3 09 ea cd fb dc cd 14 dd d8 f5 4f cd 90 dd f1 c9 fe 0d c8 fe 0a c8 fe 09 c8 fe 08 c8 ┆ O ┆
0x00920…00940 fe 20 c9 3a 0e df b7 c2 45 dd cd 06 ea e6 01 c8 cd 09 ea fe 13 c2 42 dd cd 09 ea fe 03 ca 00 00 ┆ : E B ┆
0x00940…00960 af c9 32 0e df 3e 01 c9 3a 0a df b7 c2 62 dd c5 cd 23 dd c1 c5 cd 0c ea c1 c5 3a 0d df b7 c4 0f ┆ 2 > : b # : ┆
0x00960…00980 ea c1 79 21 0c df fe 7f c8 34 fe 20 d0 35 7e b7 c8 79 fe 08 c2 79 dd 35 c9 fe 0a c0 36 00 c9 79 ┆ y! 4 5ü y y 5 6 y┆
0x00980…009a0 cd 14 dd d2 90 dd f5 0e 5e cd 48 dd f1 f6 40 4f 79 fe 09 c2 48 dd 0e 20 cd 48 dd 3a 0c df e6 07 ┆ ^ H @Oy H H : ┆
0x009a0…009c0 c2 96 dd c9 cd ac dd 0e 20 cd 0c ea 0e 08 c3 0c ea 0e 23 cd 48 dd cd c9 dd 3a 0c df 21 0b df be ┆ # H : ! ┆
0x009c0…009e0 d0 0e 20 cd 48 dd c3 b9 dd 0e 0d cd 48 dd 0e 0a c3 48 dd 0a fe 24 c8 03 c5 4f cd 90 dd c1 c3 d3 ┆ H H H $ O ┆
0x009e0…00a00 dd 3a 0c df 32 0b df 2a 43 df 4e 23 e5 06 00 c5 e5 cd fb dc e6 7f e1 c1 fe 0d ca c1 de fe 0a ca ┆ : 2 *C N# ┆
0x00a00…00a20 (0, 0, 6) c1 de fe 08 c2 16 de 78 b7 ca ef dd 05 3a 0c df 32 0a df c3 70 de fe 7f c2 26 de 78 b7 ca ef dd ┆ x : 2 p & x ┆
0x00a20…00a40 7e 05 2b c3 a9 de fe 05 c2 37 de c5 e5 cd c9 dd af 32 0b df c3 f1 dd fe 10 c2 48 de e5 21 0d df ┆ü + 7 2 H ! ┆
0x00a40…00a60 3e 01 96 77 e1 c3 ef dd fe 18 c2 5f de e1 3a 0b df 21 0c df be d2 e1 dd 35 cd a4 dd c3 4e de fe ┆> w _ : ! 5 N ┆
0x00a60…00a80 15 c2 6b de cd b1 dd e1 c3 e1 dd fe 12 c2 a6 de c5 cd b1 dd c1 e1 e5 c5 78 b7 ca 8a de 23 4e 05 ┆ k x #N ┆
0x00a80…00aa0 c5 e5 cd 7f dd e1 c1 c3 78 de e5 3a 0a df b7 ca f1 dd 21 0c df 96 32 0a df cd a4 dd 21 0a df 35 ┆ x : ! 2 ! 5┆
0x00aa0…00ac0 c2 99 de c3 f1 dd 23 77 04 c5 e5 4f cd 7f dd e1 c1 7e fe 03 78 c2 bd de fe 01 ca 00 00 b9 da ef ┆ #w O ü x ┆
0x00ac0…00ae0 dd e1 70 0e 0d c3 48 dd cd 06 dd c3 01 df cd 15 ea c3 01 df 79 3c ca e0 de 3c ca 06 ea c3 0c ea ┆ p H y< < ┆
0x00ae0…00b00 cd 06 ea b7 ca 91 e9 cd 09 ea c3 01 df 3a 03 00 c3 01 df 21 03 00 71 c9 eb 4d 44 c3 d3 dd cd 23 ┆ : ! q MD #┆
0x00b00…00b20 dd 32 45 df c9 3e 01 c3 01 df 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 2E > ┆
0x00b20…00b40 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 ┆ ┆
0x00b40…00b60 00 00 00 00 00 00 00 21 0b dc 5e 23 56 eb e9 0c 0d c8 1a 77 13 23 c3 50 df 3a 42 df 4f cd 1b ea ┆ ! ^#V w # P :B O ┆
0x00b60…00b80 7c b5 c8 5e 23 56 23 22 b3 e9 23 23 22 b5 e9 23 23 22 b7 e9 23 23 eb 22 d0 e9 21 b9 e9 0e 08 cd ┆ø ^#V#" ##" ##" ## " ! ┆
0x00b80…00ba0 4f df 2a bb e9 eb 21 c1 e9 0e 0f cd 4f df 2a c6 e9 7c 21 dd e9 36 ff b7 ca 9d df 36 00 3e ff b7 ┆O * ! O * ø! 6 6 > ┆
0x00ba0…00bc0 c9 cd 18 ea af 2a b5 e9 77 23 77 2a b7 e9 77 23 77 c9 cd 27 ea c3 bb df cd 2a ea b7 c8 21 09 dc ┆ * w#w* w#w ' * ! ┆
0x00bc0…00be0 c3 4a df 2a ea e9 0e 02 cd ea e0 22 e5 e9 22 ec e9 21 e5 e9 4e 23 46 2a b7 e9 5e 23 56 2a b5 e9 ┆ J * " " ! N#F* ^#V* ┆
0x00be0…00c00 7e 23 66 6f 79 93 78 9a d2 fa df e5 2a c1 e9 7b 95 5f 7a 9c 57 e1 2b c3 e4 df e5 2a c1 e9 19 da ┆ü#foy x * æ _z W + * ┆
0x00c00…00c20 (0, 0, 7) 0f e0 79 95 78 9c da 0f e0 eb e1 23 c3 fa df e1 c5 d5 e5 eb 2a ce e9 19 44 4d cd 1e ea d1 2a b5 ┆ y x # * DM * ┆
0x00c20…00c40 e9 73 23 72 d1 2a b7 e9 73 23 72 c1 79 93 4f 78 9a 47 2a d0 e9 eb cd 30 ea 4d 44 c3 21 ea 21 c3 ┆ s#r * s#r y Ox G* 0 MD ! ! ┆
0x00c40…00c60 e9 4e 3a e3 e9 b7 1f 0d c2 45 e0 47 3e 08 96 4f 3a e2 e9 0d ca 5c e0 b7 17 c3 53 e0 80 c9 2a 43 ┆ N: E G> O: Ø S *C┆
0x00c60…00c80 df 11 10 00 19 09 3a dd e9 b7 ca 71 e0 6e 26 00 c9 09 5e 23 56 eb c9 cd 3e e0 4f 06 00 cd 5e e0 ┆ : q n& ^#V > O ^ ┆
0x00c80…00ca0 22 e5 e9 c9 2a e5 e9 7d b4 c9 3a c3 e9 2a e5 e9 29 3d c2 90 e0 22 e7 e9 3a c4 e9 4f 3a e3 e9 a1 ┆" * å : * )= " : O: ┆
0x00ca0…00cc0 b5 6f 22 e5 e9 c9 2a 43 df 11 0c 00 19 c9 2a 43 df 11 0f 00 19 eb 21 11 00 19 c9 cd ae e0 7e 32 ┆ o" *C *C ! ü2┆
0x00cc0…00ce0 e3 e9 eb 7e 32 e1 e9 cd a6 e0 3a c5 e9 a6 32 e2 e9 c9 cd ae e0 3a d5 e9 fe 02 c2 de e0 af 4f 3a ┆ ü2 : 2 : O:┆
0x00ce0…00d00 e3 e9 81 77 eb 3a e1 e9 77 c9 0c 0d c8 7c b7 1f 67 7d 1f 6f c3 eb e0 0e 80 2a b9 e9 af 86 23 0d ┆ w : w ø gå o * # ┆
0x00d00…00d20 c2 fd e0 c9 0c 0d c8 29 c3 05 e1 c5 3a 42 df 4f 21 01 00 cd 04 e1 c1 79 b5 6f 78 b4 67 c9 2a ad ┆ ) :B O! y ox g * ┆
0x00d20…00d40 e9 3a 42 df 4f cd ea e0 7d e6 01 c9 21 ad e9 4e 23 46 cd 0b e1 22 ad e9 2a c8 e9 23 eb 2a b3 e9 ┆ :B O å ! N#F " * # * ┆
0x00d40…00d60 73 23 72 c9 cd 5e e1 11 09 00 19 7e 17 d0 21 0f dc c3 4a df cd 1e e1 c8 21 0d dc c3 4a df 2a b9 ┆s#r ^ ü ! J ! J * ┆
0x00d60…00d80 e9 3a e9 e9 85 6f d0 24 c9 2a 43 df 11 0e 00 19 7e c9 cd 69 e1 36 00 c9 cd 69 e1 f6 80 77 c9 2a ┆ : o $ *C ü i 6 i w *┆
0x00d80…00da0 ea e9 eb 2a b3 e9 7b 96 23 7a 9e c9 cd 7f e1 d8 13 72 2b 73 c9 7b 95 6f 7a 9c 67 c9 0e ff 2a ec ┆ * æ #z r+s æ oz g * ┆
0x00da0…00dc0 e9 eb 2a cc e9 cd 95 e1 d0 c5 cd f7 e0 2a bd e9 eb 2a ec e9 19 c1 0c ca c4 e1 be c8 cd 7f e1 d0 ┆ * * * ┆
0x00dc0…00de0 cd 2c e1 c9 77 c9 cd 9c e1 cd e0 e1 0e 01 cd b8 df c3 da e1 cd e0 e1 cd b2 df 21 b1 e9 c3 e3 e1 ┆ , w ! ┆
0x00de0…00e00 21 b9 e9 4e 23 46 c3 24 ea 2a b9 e9 eb 2a b1 e9 0e 80 c3 4f df 21 ea e9 7e 23 be c0 3c c9 21 ff ┆! N#F $ * * O ! ü# < ! ┆
0x00e00…00e20 (0, 0, 8) ff 22 ea e9 c9 2a c8 e9 eb 2a ea e9 23 22 ea e9 cd 95 e1 d2 19 e2 c3 fe e1 3a ea e9 e6 03 06 05 ┆ " * * #" : ┆
0x00e20…00e40 87 05 c2 20 e2 32 e9 e9 b7 c0 c5 cd c3 df cd d4 e1 c1 c3 9e e1 79 e6 07 3c 5f 57 79 0f 0f 0f e6 ┆ 2 y <_Wy ┆
0x00e40…00e60 1f 4f 78 87 87 87 87 87 b1 4f 78 0f 0f 0f e6 1f 47 2a bf e9 09 7e 07 1d c2 56 e2 c9 d5 cd 35 e2 ┆ Ox Ox G* ü V 5 ┆
0x00e60…00e80 e6 fe c1 b1 0f 15 c2 64 e2 77 c9 cd 5e e1 11 10 00 19 c5 0e 11 d1 0d c8 d5 3a dd e9 b7 ca 88 e2 ┆ d w ^ : ┆
0x00e80…00ea0 c5 e5 4e 06 00 c3 8e e2 0d c5 4e 23 46 e5 79 b0 ca 9d e2 2a c6 e9 7d 91 7c 98 d4 5c e2 e1 23 c1 ┆ N N#F y * å ø Ø # ┆
0x00ea0…00ec0 c3 75 e2 2a c6 e9 0e 03 cd ea e0 23 44 4d 2a bf e9 36 00 23 0b 78 b1 c2 b1 e2 2a ca e9 eb 2a bf ┆ u * #DM* 6 # x * * ┆
0x00ec0…00ee0 e9 73 23 72 cd a1 df 2a b3 e9 36 03 23 36 00 cd fe e1 0e ff cd 05 e2 cd f5 e1 c8 cd 5e e1 3e e5 ┆ s#r * 6 #6 ^ > ┆
0x00ee0…00f00 be ca d2 e2 3a 41 df be c2 f6 e2 23 7e d6 24 c2 f6 e2 3d 32 45 df 0e 01 cd 6b e2 cd 8c e1 c3 d2 ┆ :A #ü $ =2E k ┆
0x00f00…00f20 e2 3a d4 e9 c3 01 df c5 f5 3a c5 e9 2f 47 79 a0 4f f1 a0 91 e6 1f c1 c9 3e ff 32 d4 e9 21 d8 e9 ┆ : : /Gy O > 2 ! ┆
0x00f20…00f40 71 2a 43 df 22 d9 e9 cd fe e1 cd a1 df 0e 00 cd 05 e2 cd f5 e1 ca 94 e3 2a d9 e9 eb 1a fe e5 ca ┆q*C " * ┆
0x00f40…00f60 4a e3 d5 cd 7f e1 d1 d2 94 e3 cd 5e e1 3a d8 e9 4f 06 00 79 b7 ca 83 e3 1a fe 3f ca 7c e3 78 fe ┆J ^ : O y ? ø x ┆
0x00f60…00f80 0d ca 7c e3 fe 0c 1a ca 73 e3 96 e6 7f c2 2d e3 c3 7c e3 c5 4e cd 07 e3 c1 c2 2d e3 13 23 04 0d ┆ ø s - ø N - # ┆
0x00f80…00fa0 c3 53 e3 3a ea e9 e6 03 32 45 df 21 d4 e9 7e 17 d0 af 77 c9 cd fe e1 3e ff c3 01 df cd 54 e1 0e ┆ S : 2E ! ü w > T ┆
0x00fa0…00fc0 0c cd 18 e3 cd f5 e1 c8 cd 44 e1 cd 5e e1 36 e5 0e 00 cd 6b e2 cd c6 e1 cd 2d e3 c3 a4 e3 50 59 ┆ D ^ 6 k - PY┆
0x00fc0…00fe0 79 b0 ca d1 e3 0b d5 c5 cd 35 e2 1f d2 ec e3 c1 d1 2a c6 e9 7b 95 7a 9c d2 f4 e3 13 c5 d5 42 4b ┆y 5 * æ z BK┆
0x00fe0…01000 cd 35 e2 1f d2 ec e3 d1 c1 c3 c0 e3 17 3c cd 64 e2 e1 d1 c9 79 b0 c2 c0 e3 21 00 00 c9 0e 00 1e ┆ 5 < d y ! ┆
0x01000…01020 (0, 0, 9) 20 d5 06 00 2a 43 df 09 eb cd 5e e1 c1 cd 4f df cd c3 df c3 c6 e1 cd 54 e1 0e 0c cd 18 e3 2a 43 ┆ *C ^ O T *C┆
0x01020…01040 df 7e 11 10 00 19 77 cd f5 e1 c8 cd 44 e1 0e 10 1e 0c cd 01 e4 cd 2d e3 c3 27 e4 0e 0c cd 18 e3 ┆ ü w D - ' ┆
0x01040…01060 cd f5 e1 c8 0e 00 1e 0c cd 01 e4 cd 2d e3 c3 40 e4 0e 0f cd 18 e3 cd f5 e1 c8 cd a6 e0 7e f5 e5 ┆ - @ ü ┆
0x01060…01080 cd 5e e1 eb 2a 43 df 0e 20 d5 cd 4f df cd 78 e1 d1 21 0c 00 19 4e 21 0f 00 19 46 e1 f1 77 79 be ┆ ^ *C O x ! N! F wy ┆
0x01080…010a0 78 ca 8b e4 3e 00 da 8b e4 3e 80 2a 43 df 11 0f 00 19 77 c9 7e 23 b6 2b c0 1a 77 13 23 1a 77 1b ┆x > > *C w ü# + w # w ┆
0x010a0…010c0 2b c9 af 32 45 df 32 ea e9 32 eb e9 cd 1e e1 c0 cd 69 e1 e6 80 c0 0e 0f cd 18 e3 cd f5 e1 c8 01 ┆+ 2E 2 2 i ┆
0x010c0…010e0 10 00 cd 5e e1 09 eb 2a 43 df 09 0e 10 3a dd e9 b7 ca e8 e4 7e b7 1a c2 db e4 77 b7 c2 e1 e4 7e ┆ ^ *C : ü w ü┆
0x010e0…01100 12 be c2 1f e5 c3 fd e4 cd 94 e4 eb cd 94 e4 eb 1a be c2 1f e5 13 23 1a be c2 1f e5 0d 13 23 0d ┆ # # ┆
0x01100…01120 c2 cd e4 01 ec ff 09 eb 09 1a be da 17 e5 77 01 03 00 09 eb 09 7e 12 3e ff 32 d2 e9 c3 10 e4 21 ┆ w ü > 2 !┆
0x01120…01140 45 df 35 c9 cd 54 e1 2a 43 df e5 21 ac e9 22 43 df 0e 01 cd 18 e3 cd f5 e1 e1 22 43 df c8 eb 21 ┆E 5 T *C ! "C "C !┆
0x01140…01160 0f 00 19 0e 11 af 77 23 0d c2 46 e5 21 0d 00 19 77 cd 8c e1 cd fd e3 c3 78 e1 af 32 d2 e9 cd a2 ┆ w# F ! w x 2 ┆
0x01160…01180 e4 cd f5 e1 c8 2a 43 df 01 0c 00 09 7e 3c e6 1f 77 ca 83 e5 47 3a c5 e9 a0 21 d2 e9 a6 ca 8e e5 ┆ *C ü< w G: ! ┆
0x01180…011a0 c3 ac e5 01 02 00 09 34 7e e6 0f ca b6 e5 0e 0f cd 18 e3 cd f5 e1 c2 ac e5 3a d3 e9 3c ca b6 e5 ┆ 4ü : < ┆
0x011a0…011c0 cd 24 e5 cd f5 e1 ca b6 e5 c3 af e5 cd 5a e4 cd bb e0 af c3 01 df cd 05 df c3 78 e1 3e 01 32 d5 ┆ $ Z x > 2 ┆
0x011c0…011e0 e9 3e ff 32 d3 e9 cd bb e0 3a e3 e9 21 e1 e9 be da e6 e5 fe 80 c2 fb e5 cd 5a e5 af 32 e3 e9 3a ┆ > 2 : ! Z 2 :┆
0x011e0…01200 45 df b7 c2 fb e5 cd 77 e0 cd 84 e0 ca fb e5 cd 8a e0 cd d1 df cd b2 df c3 d2 e0 c3 05 df 3e 01 ┆E w > ┆
0x01200…01220 (0, 0, 10) 32 d5 e9 3e 00 32 d3 e9 cd 54 e1 2a 43 df cd 47 e1 cd bb e0 3a e3 e9 fe 80 d2 05 df cd 77 e0 cd ┆2 > 2 T *C G : w ┆
0x01220…01240 84 e0 0e 00 c2 6e e6 cd 3e e0 32 d7 e9 01 00 00 b7 ca 3b e6 4f 0b cd 5e e0 44 4d cd be e3 7d b4 ┆ n > 2 ; O ^ DM å ┆
0x01240…01260 c2 48 e6 3e 02 c3 01 df 22 e5 e9 eb 2a 43 df 01 10 00 09 3a dd e9 b7 3a d7 e9 ca 64 e6 cd 64 e1 ┆ H > " *C : : d d ┆
0x01260…01280 73 c3 6c e6 4f 06 00 09 09 73 23 72 0e 02 3a 45 df b7 c0 c5 cd 8a e0 3a d5 e9 3d 3d c2 bb e6 c1 ┆s l O s#r :E : == ┆
0x01280…012a0 c5 79 3d 3d c2 bb e6 e5 2a b9 e9 57 77 23 14 f2 8c e6 cd e0 e1 2a e7 e9 0e 02 22 e5 e9 c5 cd d1 ┆ y== * Ww# * " ┆
0x012a0…012c0 df c1 cd b8 df 2a e5 e9 0e 00 3a c4 e9 47 a5 b8 23 c2 9a e6 e1 22 e5 e9 cd da e1 cd d1 df c1 c5 ┆ * : G # " ┆
0x012c0…012e0 cd b8 df c1 3a e3 e9 21 e1 e9 be da d2 e6 77 34 0e 02 00 00 21 00 d4 f5 cd 69 e1 e6 7f 77 f1 fe ┆ : ! w4 ! i w ┆
0x012e0…01300 7f c2 00 e7 3a d5 e9 fe 01 c2 00 e7 cd d2 e0 cd 5a e5 21 45 df 7e b7 c2 fe e6 3d 32 e3 e9 36 00 ┆ : Z !E ü =2 6 ┆
0x01300…01320 c3 d2 e0 af 32 d5 e9 c5 2a 43 df eb 21 21 00 19 7e e6 7f f5 7e 17 23 7e 17 e6 1f 4f 7e 1f 1f 1f ┆ 2 *C !! ü ü #ü Oü ┆
0x01320…01340 1f e6 0f 47 f1 23 6e 2c 2d 2e 06 c2 8b e7 21 20 00 19 77 21 0c 00 19 79 96 c2 47 e7 21 0e 00 19 ┆ G #n,-. ! w! y G ! ┆
0x01340…01360 78 96 e6 7f ca 7f e7 c5 d5 cd a2 e4 d1 c1 2e 03 3a 45 df 3c ca 84 e7 21 0c 00 19 71 21 0e 00 19 ┆x . :E < ! q! ┆
0x01360…01380 70 cd 51 e4 3a 45 df 3c c2 7f e7 c1 c5 2e 04 0c ca 84 e7 cd 24 e5 2e 05 3a 45 df 3c ca 84 e7 c1 ┆p Q :E < . $ . :E < ┆
0x01380…013a0 af c3 01 df e5 cd 69 e1 36 c0 e1 c1 7d 32 45 df c3 78 e1 0e ff cd 03 e7 cc c1 e5 c9 0e 00 cd 03 ┆ i 6 å2E x ┆
0x013a0…013c0 e7 cc 03 e6 c9 eb 19 4e 06 00 21 0c 00 19 7e 0f e6 80 81 4f 3e 00 88 47 7e 0f e6 0f 80 47 21 0e ┆ N ! ü O> Gü G! ┆
0x013c0…013e0 00 19 7e 87 87 87 87 f5 80 47 f5 e1 7d e1 b5 e6 01 c9 0e 0c cd 18 e3 2a 43 df 11 21 00 19 e5 72 ┆ ü G å *C ! r┆
0x013e0…01400 23 72 23 72 cd f5 e1 ca 0c e8 cd 5e e1 11 0f 00 cd a5 e7 e1 e5 5f 79 96 23 78 9e 23 7b 9e da 06 ┆#r#r ^ _y #x #æ ┆
0x01400…01420 (1, 1, 1) e8 73 2b 70 2b 71 cd 2d e3 c3 e4 e7 e1 c9 2a 43 df 11 20 00 cd a5 e7 21 21 00 19 71 23 70 23 77 ┆ s+p+q - *C !! q#p#w┆
0x01420…01440 c9 2a af e9 3a 42 df 4f cd ea e0 e5 eb cd 59 df e1 cc 47 df 7d 1f d8 2a af e9 4d 44 cd 0b e1 22 ┆ * :B O Y G å * MD "┆
0x01440…01460 af e9 c3 a3 e2 3a d6 e9 21 42 df be c8 77 c3 21 e8 3e ff 32 de e9 2a 43 df 7e e6 1f 3d 32 d6 e9 ┆ : !B w ! > 2 *C ü =2 ┆
0x01460…01480 fe 1e d2 75 e8 3a 42 df 32 df e9 7e 32 e0 e9 e6 e0 77 cd 45 e8 3a 41 df 2a 43 df b6 77 c9 3e 22 ┆ u :B 2 ü2 w E :A *C w >"┆
0x01480…014a0 c3 01 df 21 00 00 22 ad e9 22 af e9 af 32 42 df 21 80 00 22 b1 e9 cd da e1 c3 21 e8 cd 72 e1 cd ┆ ! " " 2B ! " ! r ┆
0x014a0…014c0 51 e8 c3 51 e4 cd 51 e8 c3 a2 e4 0e 00 eb 7e fe 3f ca c2 e8 cd a6 e0 7e fe 3f c4 72 e1 cd 51 e8 ┆Q Q Q ü ? ü ? r Q ┆
0x014c0…014e0 0e 0f cd 18 e3 c3 e9 e1 2a d9 e9 22 43 df cd 51 e8 cd 2d e3 c3 e9 e1 cd 51 e8 cd 9c e3 c3 01 e3 ┆ * "C Q - Q ┆
0x014e0…01500 cd 51 e8 c3 bc e5 cd 51 e8 c3 fe e5 cd 72 e1 cd 51 e8 c3 24 e5 cd 51 e8 cd 16 e4 c3 01 e3 2a af ┆ Q Q r Q $ Q * ┆
0x01500…01520 e9 c3 29 e9 3a 42 df c3 01 df eb 22 b1 e9 c3 da e1 2a bf e9 c3 29 e9 2a ad e9 c3 29 e9 cd 51 e8 ┆ ) :B " * ) * ) Q ┆
0x01520…01540 cd 3b e4 c3 01 e3 2a bb e9 22 45 df c9 3a d6 e9 fe ff c2 3b e9 3a 41 df c3 01 df e6 1f 32 41 df ┆ ; * "E : ; :A 2A ┆
0x01540…01560 c9 cd 51 e8 c3 93 e7 cd 51 e8 c3 9c e7 cd 51 e8 c3 d2 e7 2a 43 df 7d 2f 5f 7c 2f 2a af e9 a4 57 ┆ Q Q Q *C å/_ø/* W┆
0x01560…01580 7d a3 5f 2a ad e9 eb 22 af e9 7d a3 6f 7c a2 67 22 ad e9 c9 3a de e9 b7 ca 91 e9 2a 43 df 36 00 ┆å _* " å oø g" : *C 6 ┆
0x01580…015a0 3a e0 e9 b7 ca 91 e9 77 3a df e9 32 d6 e9 cd 45 e8 2a 0f df f9 2a 45 df 7d 44 c9 cd 51 e8 3e 02 ┆: w: 2 E * *E åD Q > ┆
0x015a0…015c0 32 d5 e9 0e 00 cd 07 e7 cc 03 e6 c9 e5 00 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆2 ┆
0x015c0…015e0 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 ┆ ┆
[…0x1…]
0x01600…01800 (1, 1, 2) 0xe5[0x200]
[…0x8…]
0x02800…02820 (2, 0, 1) [0, 'ABORT.SA', 0, 29, 'xl=00', 'bc=00', 'xh=00', 'rc=1d', '0-0-0-0-0-0-0-0-0-0-0', [2, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02820…02840 [0, 'TPDEMO.SA', 0, 43, 'xl=00', 'bc=00', 'xh=00', 'rc=2b', '0-0-0-0-0-0-0-0-0-0-0', [4, 0, 5, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02840…02860 [0, 'VERSACUT.SA', 0, 44, 'xl=00', 'bc=00', 'xh=00', 'rc=2c', '0-0-0-0-0-0-0-0-0-0-0', [7, 0, 8, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02860…02880 [0, 'NEWEOSLD.SA', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [10, 0, 11, 0, 12, 0, 13, 0, 14, 0, 15, 0, 16, 0, 17, 0]]
0x02880…028a0 [0, 'NEWEOSLD.SA', 1, 47, 'xl=01', 'bc=00', 'xh=00', 'rc=2f', '0-0-0-0-0-0-0-0-0-0-0', [18, 0, 19, 0, 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x028a0…028c0 [0, 'INCLUDE.SA', 0, 50, 'xl=00', 'bc=00', 'xh=00', 'rc=32', '0-0-0-0-0-0-0-0-0-0-0', [21, 0, 22, 0, 23, 0, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x028c0…028e0 [0, 'EXCLUDE.SA', 0, 50, 'xl=00', 'bc=00', 'xh=00', 'rc=32', '0-0-0-0-0-0-0-0-0-0-0', [25, 0, 26, 0, 27, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x028e0…02900 [0, 'SCAN.SA', 0, 35, 'xl=00', 'bc=00', 'xh=00', 'rc=23', '0-0-0-0-0-0-0-0-0-0-0', [29, 0, 30, 0, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02900…02920 [0, 'CREATE.SA', 0, 38, 'xl=00', 'bc=00', 'xh=00', 'rc=26', '0-0-0-0-0-0-0-0-0-0-0', [32, 0, 33, 0, 34, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02920…02940 [0, 'LOAD.SA', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [35, 0, 36, 0, 37, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02940…02960 [0, 'DELETE.SA', 0, 29, 'xl=00', 'bc=00', 'xh=00', 'rc=1d', '0-0-0-0-0-0-0-0-0-0-0', [38, 0, 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02960…02980 [0, 'INITWT.SA', 0, 44, 'xl=00', 'bc=00', 'xh=00', 'rc=2c', '0-0-0-0-0-0-0-0-0-0-0', [40, 0, 41, 0, 42, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02980…029a0 [0, 'UNIXUTIL.SA', 0, 15, 'xl=00', 'bc=00', 'xh=00', 'rc=0f', '0-0-0-0-0-0-0-0-0-0-0', [43, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029a0…029c0 [0, 'OPTIINIT.SA', 0, 28, 'xl=00', 'bc=00', 'xh=00', 'rc=1c', '0-0-0-0-0-0-0-0-0-0-0', [44, 0, 45, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029c0…029e0 [0, 'INIT.SA', 0, 29, 'xl=00', 'bc=00', 'xh=00', 'rc=1d', '0-0-0-0-0-0-0-0-0-0-0', [46, 0, 47, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029e0…02a00 [0, 'UNIJCST.SA', 0, 106, 'xl=00', 'bc=00', 'xh=00', 'rc=6a', '0-0-0-0-0-0-0-0-0-0-0', [48, 0, 49, 0, 50, 0, 51, 0, 52, 0, 53, 0, 54, 0, 0, 0]]
0x02a00…02c00 (2, 0, 2) 0xe5[0x200]
0x02c00…02c20 (2, 0, 3) Dirent {Status=0xe5}
[…0xf…]
0x02e00…02e20 (2, 0, 4) [0, 'ABORT.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [55, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02e20…02e40 [0, 'VERSACUT.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [56, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02e40…02e60 [0, 'NEWEOSLD.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [57, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02e60…02e80 [0, 'INCLUDE.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [58, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02e80…02ea0 [0, 'EXCLUDE.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02ea0…02ec0 [0, 'SCAN.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02ec0…02ee0 [0, 'CREATE.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [61, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02ee0…02f00 [0, 'LOAD.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02f00…02f20 [0, 'DELETE.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [63, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02f20…02f40 [0, 'INITWT.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02f40…02f60 [0, 'OPTIINIT.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02f60…02f80 [0, 'INIT.CF', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02f80…02fa0 [0, 'TPDEMO.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [67, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02fa0…02fc0 [0, 'UNIXUTIL.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [68, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02fc0…02fe0 [0, 'UNIJCST.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [69, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02fe0…03000 [0, 'TXTCONV.SA', 0, 22, 'xl=00', 'bc=00', 'xh=00', 'rc=16', '0-0-0-0-0-0-0-0-0-0-0', [70, 0, 71, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03000…03200 (2, 0, 5) DataBlock {»ABORT.SA«}
0x03200…03220 (2, 0, 6) Dirent {Status=0xe5}
[…0xf…]
0x03400…03420 (2, 0, 7) [0, 'EOSLINK.SA', 0, 61, 'xl=00', 'bc=00', 'xh=00', 'rc=3d', '0-0-0-0-0-0-0-0-0-0-0', [72, 0, 73, 0, 74, 0, 75, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03420…03440 [0, 'EOSLOAD.SA', 0, 108, 'xl=00', 'bc=00', 'xh=00', 'rc=6c', '0-0-0-0-0-0-0-0-0-0-0', [76, 0, 77, 0, 78, 0, 79, 0, 80, 0, 81, 0, 82, 0, 0, 0]]
0x03440…03460 [0, 'BOOTGEN.SA', 0, 48, 'xl=00', 'bc=00', 'xh=00', 'rc=30', '0-0-0-0-0-0-0-0-0-0-0', [83, 0, 84, 0, 85, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03460…03480 [0, 'CREAFILE.SA', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [86, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03480…034a0 [0, 'CREAFILE.CF', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [87, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x034a0…034c0 [0, 'EOSLOAD.CF', 0, 1, 'xl=00', 'bc=00', 'xh=00', 'rc=01', '0-0-0-0-0-0-0-0-0-0-0', [88, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x034c0…034e0 [0, 'TXTCONV.CF', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [89, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x034e0…03500 [0, 'EOSUNIX.CF', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [90, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03500…03520 [0, 'EOSJCL.CF', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [91, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03520…03540 [0, 'UXFSTEST.CF', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03540…03560 Dirent {Status=0xe5}
[…0x5…]
0x03600…03800 (2, 0, 8) DataBlock {»ABORT.SA«}
0x03800…03a00 (2, 0, 9) 0xe5[0x200]
0x03a00…03a20 (2, 0, 10) Dirent {Status=0xe5}
[…0xf…]
0x03c00…03e00 (3, 1, 1) DataBlock {»ABORT.SA«}
0x03e00…04000 (3, 1, 2) DataBlock {»TPDEMO.SA«}
0x04000…04200 (3, 1, 3) DataBlock {»ABORT.SA«}
[…0x1…]
0x04400…04600 (3, 1, 5) DataBlock {»TPDEMO.SA«}
0x04600…04680 (3, 1, 6) DataBlock {»ABORT.SA«}
0x04680…046a0 20 70 72 69 6e 74 56 61 72 20 28 27 65 72 72 6f 72 20 6d 73 67 20 6c 69 6e 65 20 3d 20 27 2c 20 ┆ printVar ('error msg line = ', ┆
0x046a0…046c0 6c 69 6e 65 29 3b 20 20 20 2a 65 2a 7d 0d 0a 20 20 20 20 20 20 4f 62 6a 52 65 74 75 72 6e 20 28 ┆line); *e*å ObjReturn (┆
0x046c0…046e0 72 65 73 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 45 4e 44 3b 20 20 7b 65 6e 74 72 79 20 52 75 ┆res); END; END; æentry Ru┆
0x046e0…04700 6e 7d 0d 0a 20 0d 0a 4f 54 48 45 52 57 49 53 45 20 20 75 6e 6b 6e 6f 77 6e 0d 0a 20 20 77 69 74 ┆nå OTHERWISE unknown wit┆
0x04700…04720 68 20 72 65 63 6f 72 64 20 74 20 3a 20 5e 5e 3b 20 65 6e 64 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 ┆h record t : ^^; end; BEGIN ┆
0x04720…04740 65 78 63 65 70 74 69 6f 6e 20 28 6d 61 6b 65 52 65 73 20 28 2d 45 6e 74 72 79 49 6c 6c 65 67 61 ┆exception (makeRes (-EntryIllega┆
0x04740…04760 6c 2c 20 55 6e 69 76 65 72 73 61 6c 2c 20 30 2c 20 30 29 29 3b 0d 0a 45 4e 44 3b 0d 0a 20 0d 0a ┆l, Universal, 0, 0)); END; ┆
0x04760…04780 45 4e 44 3b 20 20 7b 70 72 6f 67 72 61 6d 20 41 62 6f 72 74 7d 0d 0a 20 0d 0a 49 4e 49 54 49 41 ┆END; æprogram Abortå INITIA┆
0x04780…047a0 4c 49 5a 45 0d 0a 20 20 69 41 62 6f 72 74 20 27 61 62 6f 72 74 27 20 3a 0d 0a 20 20 70 4f 62 6a ┆LIZE iAbort 'abort' : pObj┆
0x047a0…047c0 44 69 72 20 20 27 2f 6f 62 6a 64 69 72 27 0d 0a 20 0d 0a 45 4e 44 2e 20 20 7b 20 61 62 6f 72 74 ┆Dir '/objdir' END. æ abort┆
0x047c0…047e0 20 7d 0d 0a 20 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ å ┆
0x047e0…04800 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x04800…04a00 (3, 1, 7) DataBlock {»ABORT.SA«}
0x04a00…04c00 (3, 1, 8) DataBlock {»TPDEMO.SA«}
[…0x1…]
0x04e00…05000 (3, 1, 10) DataBlock {»ABORT.SA«}
0x05000…05200 (4, 0, 1) DataBlock {»TPDEMO.SA«}
0x05200…05220 (4, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 43 ┆ xC┆
0x05220…05240 68 65 63 6b 20 28 20 66 61 6f 2e 53 65 65 6b 20 28 20 3b 20 49 4e 20 46 72 6f 6d 45 6e 64 2c 20 ┆heck ( fao.Seek ( ; IN FromEnd, ┆
0x05240…05260 30 2c 20 4f 55 54 20 65 6f 66 50 6f 73 20 29 29 3b 0d 0a 7b 2a 62 2a 20 20 20 70 73 73 20 28 27 ┆0, OUT eofPos )); æ*b* pss ('┆
0x05260…05280 66 61 6f 20 73 65 65 6b 2c 20 65 6f 66 50 6f 73 20 3d 20 27 2c 20 65 6f 66 50 6f 73 29 3b 20 20 ┆fao seek, eofPos = ', eofPos); ┆
0x05280…052a0 20 2a 65 2a 7d 0d 0a 20 20 20 20 49 46 20 65 6f 66 50 6f 73 20 4d 4f 44 20 76 65 72 73 61 50 61 ┆ *e*å IF eofPos MOD versaPa┆
0x052a0…052c0 67 65 53 69 7a 65 20 3c 3e 20 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 45 78 63 65 70 74 69 6f ┆geSize <> 0 THEN Exceptio┆
0x052c0…052e0 6e 20 28 20 6d 61 6b 65 52 65 73 20 28 31 2c 2d 31 2c 30 2c 30 29 29 3b 0d 0a 20 0d 0a 20 20 20 ┆n ( makeRes (1,-1,0,0)); ┆
0x052e0…05300 20 70 6f 73 20 3a 3d 20 65 6f 66 50 6f 73 20 2d 20 76 65 72 73 61 50 61 67 65 53 69 7a 65 3b 0d ┆ pos := eofPos - versaPageSize; ┆
0x05300…05320 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 66 61 6f 2e 52 65 61 64 52 61 6e 64 6f 6d 20 28 56 41 ┆ xCheck ( fao.ReadRandom (VA┆
0x05320…05340 52 20 49 4e 20 4f 55 54 20 62 75 66 20 3b 20 4f 55 54 20 63 6f 75 6e 74 2c 20 49 4e 20 70 6f 73 ┆R IN OUT buf ; OUT count, IN pos┆
0x05340…05360 2c 20 4f 55 54 20 69 20 29 29 3b 0d 0a 7b 2a 62 2a 20 20 20 70 72 69 6e 74 56 61 72 20 28 27 66 ┆, OUT i )); æ*b* printVar ('f┆
0x05360…05380 61 6f 20 72 65 61 64 2c 20 62 75 66 20 3d 20 27 2c 20 62 75 66 2e 62 5b 31 2e 2e 63 6f 75 6e 74 ┆ao read, buf = ', buf.bÆ1..count┆
0x05380…053a0 5d 29 3b 20 20 20 2a 65 2a 7d 0d 0a 20 20 20 20 49 46 20 63 6f 75 6e 74 20 3c 3e 20 76 65 72 73 ┆Å); *e*å IF count <> vers┆
0x053a0…053c0 61 50 61 67 65 53 69 7a 65 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 45 78 63 65 70 74 69 6f 6e 20 ┆aPageSize THEN Exception ┆
0x053c0…053e0 28 20 6d 61 6b 65 52 65 73 20 28 32 2c 2d 31 2c 30 2c 30 29 29 3b 0d 0a 20 0d 0a 20 20 20 20 73 ┆( makeRes (2,-1,0,0)); s┆
0x053e0…05400 69 7a 65 20 3a 3d 20 62 75 66 2e 6c 5b 36 34 5d 3b 20 20 20 7b 6c 61 73 74 20 34 20 62 79 74 65 ┆ize := buf.lÆ64Å; ælast 4 byte┆
0x05400…05600 (4, 0, 3) DataBlock {»TPDEMO.SA«}
[…0x1…]
0x05800…05a00 (4, 0, 5) DataBlock {»VERSACUT.SA«}
0x05a00…05c00 (4, 0, 6) DataBlock {»TPDEMO.SA«}
[…0x1…]
0x05e00…06000 (4, 0, 8) DataBlock {»VERSACUT.SA«}
0x06000…06180 (4, 0, 9) DataBlock {»TPDEMO.SA«}
0x06180…061a0 65 52 69 67 68 74 2c 20 49 4e 20 4f 6c 64 46 69 6c 65 20 29 29 3b 0d 0a 20 0d 0a 20 20 20 20 20 ┆eRight, IN OldFile )); ┆
0x061a0…061c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x06200…06400 (4, 0, 10) DataBlock {»TPDEMO.SA«}
0x06400…06600 (5, 1, 1) DataBlock {»VERSACUT.SA«}
[…0x6…]
0x07200…07220 (5, 1, 8) 20 20 5b 2d 74 20 3c 65 78 74 72 61 20 74 65 6d 70 42 79 74 65 73 3e 5d 0d 0a 20 0d 0a 4f 70 74 ┆ Æ-t <extra tempBytes>Å Opt┆
0x07220…07240 69 6f 6e 20 45 78 70 6c 61 6e 61 74 69 6f 6e 3a 0d 0a 20 0d 0a 20 20 20 20 20 20 20 20 20 2d 63 ┆ion Explanation: -c┆
0x07240…07260 20 20 20 20 20 20 20 20 73 70 65 63 69 66 69 65 73 20 74 68 65 20 74 6f 74 61 6c 20 66 69 6c 65 ┆ specifies the total file┆
0x07260…07280 20 6e 61 6d 65 20 6f 66 20 61 6e 20 69 6e 70 75 74 20 55 4e 49 58 20 43 20 70 72 6f 67 72 61 6d ┆ name of an input UNIX C program┆
0x07280…072a0 0d 0a 20 0d 0a 20 20 20 20 20 20 20 20 20 2d 70 20 20 20 20 20 20 20 20 73 70 65 63 69 66 69 65 ┆ -p specifie┆
0x072a0…072c0 73 20 74 68 65 20 74 6f 74 61 6c 20 66 69 6c 65 20 6e 61 6d 65 20 6f 66 20 61 6e 20 69 6e 70 75 ┆s the total file name of an inpu┆
0x072c0…072e0 74 20 50 61 73 63 61 6c 20 70 72 6f 67 72 61 6d 0d 0a 20 0d 0a 20 20 20 20 20 20 20 20 20 6f 6e ┆t Pascal program on┆
0x072e0…07300 65 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 73 20 2d 70 20 6f 72 20 2d 63 20 6d 75 73 74 20 62 ┆e of the options -p or -c must b┆
0x07300…07320 65 20 73 70 65 63 69 66 69 65 64 0d 0a 20 0d 0a 20 20 20 20 20 20 20 20 20 2d 75 20 20 20 20 20 ┆e specified -u ┆
0x07320…07340 20 20 20 73 70 65 63 69 66 69 65 73 20 74 68 65 20 74 6f 74 61 6c 20 66 69 6c 65 20 6e 61 6d 65 ┆ specifies the total file name┆
0x07340…07360 20 6f 66 20 61 6e 20 45 4f 53 20 70 61 73 63 61 6c 20 70 72 6f 67 72 61 6d 0d 0a 20 20 20 20 20 ┆ of an EOS pascal program ┆
0x07360…07380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 69 6e 67 20 74 68 65 20 45 4f 53 20 65 ┆ defining the EOS e┆
0x07380…073a0 6e 76 69 72 6f 6e 6d 65 6e 74 20 6f 66 20 61 20 75 6e 69 78 20 43 20 70 72 6f 67 72 61 6d 0d 0a ┆nvironment of a unix C program ┆
0x073a0…073c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 20 3d 20 27 76 ┆ (default = 'v┆
0x073c0…073e0 65 72 73 61 66 73 2f 65 6f 73 3a 30 2e 2e 75 6e 69 78 75 74 69 6c 2e 6c 6f 27 29 0d 0a 20 0d 0a ┆ersafs/eos:0..unixutil.lo') ┆
0x073e0…07400 20 20 20 20 20 20 20 20 20 2d 6d 20 20 20 20 20 20 20 20 73 70 65 63 69 66 69 65 73 20 74 68 65 ┆ -m specifies the┆
0x07400…07600 (5, 1, 9) DataBlock {»VERSACUT.SA«}
[…0x1…]
0x07800…07a00 (6, 0, 1) DataBlock {»NEWEOSLD.SA«}
[…0x28…]
0x0ca00…0cc00 (10, 0, 2) DataBlock {»INCLUDE.SA«}
[…0x1…]
0x0ce00…0d000 (10, 0, 4) DataBlock {»NEWEOSLD.SA«}
0x0d000…0d200 (10, 0, 5) DataBlock {»INCLUDE.SA«}
[…0x1…]
0x0d400…0d600 (10, 0, 7) DataBlock {»NEWEOSLD.SA«}
0x0d600…0d800 (10, 0, 8) DataBlock {»INCLUDE.SA«}
[…0x1…]
0x0da00…0db80 (10, 0, 10) DataBlock {»NEWEOSLD.SA«}
0x0db80…0dba0 73 74 64 45 72 72 6f 72 2c 20 77 72 69 74 65 53 65 71 2c 20 6c 69 6e 65 29 29 3b 0d 0a 7b 2a 62 ┆stdError, writeSeq, line)); æ*b┆
0x0dba0…0dbc0 2a 20 20 20 70 72 69 6e 74 56 61 72 20 28 27 65 72 72 6f 72 20 6d 73 67 20 6c 69 6e 65 20 3d 20 ┆* printVar ('error msg line = ┆
0x0dbc0…0dbe0 27 2c 20 6c 69 6e 65 29 3b 20 20 20 2a 65 2a 7d 0d 0a 20 20 20 20 20 20 4f 62 6a 52 65 74 75 72 ┆', line); *e*å ObjRetur┆
0x0dbe0…0dc00 6e 20 28 72 65 73 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 45 4e 44 3b 20 20 7b 65 6e 74 72 79 ┆n (res); END; END; æentry┆
0x0dc00…0de00 (11, 1, 1) DataBlock {»INCLUDE.SA«}
0x0de00…0de20 (11, 1, 2) 65 73 75 6c 74 3b 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 43 6f 70 79 20 28 66 69 6c 65 45 ┆esult; xCheck ( Copy (fileE┆
0x0de20…0de40 6e 76 5e 5e 5b 31 5d 2c 20 73 74 64 49 6e 29 29 3b 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 ┆nv^^Æ1Å, stdIn)); xCheck ( ┆
0x0de40…0de60 43 6f 70 79 20 28 66 69 6c 65 45 6e 76 5e 5e 5b 32 5d 2c 20 73 74 64 4f 75 74 29 29 3b 0d 0a 20 ┆Copy (fileEnv^^Æ2Å, stdOut)); ┆
0x0de60…0de80 20 20 20 78 43 68 65 63 6b 20 28 20 43 6f 70 79 20 28 66 69 6c 65 45 6e 76 5e 5e 5b 33 5d 2c 20 ┆ xCheck ( Copy (fileEnv^^Æ3Å, ┆
0x0de80…0dea0 73 74 64 45 72 72 6f 72 29 29 3b 0d 0a 20 0d 0a 20 20 20 20 7b 20 57 65 6c 6c 63 6f 6d 65 20 6d ┆stdError)); æ Wellcome m┆
0x0dea0…0dec0 65 73 73 61 67 65 20 6f 6e 20 74 65 72 6d 69 6e 61 6c 7d 0d 0a 20 20 20 20 70 72 69 6e 74 4c 69 ┆essage on terminalå printLi┆
0x0dec0…0dee0 6e 65 20 28 6c 69 6e 65 2c 20 70 72 6f 63 49 64 29 3b 0d 0a 20 0d 0a 20 20 20 20 6e 75 6d 43 6f ┆ne (line, procId); numCo┆
0x0dee0…0df00 75 6e 74 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 70 61 72 61 6d 4e 6f 20 3a 3d 20 32 3b 0d 0a 20 0d ┆unt := 0; paramNo := 2; ┆
0x0df00…0df20 0a 20 20 20 20 49 46 20 4e 4f 54 20 6e 65 78 74 56 61 6c 41 72 67 20 28 69 6f 53 79 73 4e 61 6d ┆ IF NOT nextValArg (ioSysNam┆
0x0df20…0df40 65 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 65 78 63 65 70 74 69 6f 6e 20 28 6d 61 6b 65 52 65 ┆e) THEN exception (makeRe┆
0x0df40…0df60 73 20 28 6e 6f 49 6f 53 79 73 50 61 72 61 6d 2c 20 70 72 69 76 46 61 6d 2c 20 30 2c 20 30 29 29 ┆s (noIoSysParam, privFam, 0, 0))┆
0x0df60…0df80 3b 0d 0a 20 0d 0a 20 20 20 20 49 46 20 4e 4f 54 20 6e 65 78 74 56 61 6c 41 72 67 20 28 64 65 76 ┆; IF NOT nextValArg (dev┆
0x0df80…0dfa0 4e 61 6d 65 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 65 78 63 65 70 74 69 6f 6e 20 28 6d 61 6b ┆Name) THEN exception (mak┆
0x0dfa0…0dfc0 65 52 65 73 20 28 6e 6f 44 65 76 4e 61 6d 65 2c 20 70 72 69 76 46 61 6d 2c 20 30 2c 20 30 29 29 ┆eRes (noDevName, privFam, 0, 0))┆
0x0dfc0…0dfe0 3b 0d 0a 20 0d 0a 7b 2a 62 2a 20 20 70 72 69 6e 74 56 61 72 20 28 27 69 6f 53 79 73 4e 61 6d 65 ┆; æ*b* printVar ('ioSysName┆
0x0dfe0…0e000 20 3d 20 27 2c 20 69 6f 53 79 73 4e 61 6d 65 29 3b 0d 0a 20 20 20 20 20 20 70 72 69 6e 74 56 61 ┆ = ', ioSysName); printVa┆
0x0e000…0e200 (11, 1, 3) DataBlock {»INCLUDE.SA«}
[…0x1…]
0x0e400…0e420 (11, 1, 5) 72 20 28 27 64 65 76 4e 61 6d 65 20 3d 20 27 2c 20 64 65 76 4e 61 6d 65 29 3b 20 20 20 20 20 20 ┆r ('devName = ', devName); ┆
0x0e420…0e440 20 2a 65 2a 7d 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 70 4f 62 6a 44 69 72 2e 47 65 74 52 ┆ *e*å xCheck ( pObjDir.GetR┆
0x0e440…0e460 65 66 20 28 4f 55 54 20 69 6f 53 79 73 20 3b 20 49 4e 20 69 6f 53 79 73 4e 61 6d 65 2c 20 4f 55 ┆ef (OUT ioSys ; IN ioSysName, OU┆
0x0e460…0e480 54 20 75 73 65 64 2c 20 4f 55 54 20 69 29 29 3b 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 69 ┆T used, OUT i)); xCheck ( i┆
0x0e480…0e4a0 6f 53 79 73 2e 49 6e 63 6c 75 64 65 20 28 20 3b 20 64 65 76 4e 61 6d 65 2c 0d 0a 20 20 20 20 20 ┆oSys.Include ( ; devName, ┆
0x0e4a0…0e4c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 6e 6f 74 20 6e 75 6d 50 61 72 ┆ WHILE not numPar┆
0x0e4c0…0e4e0 61 6d 20 44 4f 20 28 49 4e 20 4f 55 54 20 70 61 72 61 6d 29 2c 0d 0a 20 20 20 20 20 20 20 20 20 ┆am DO (IN OUT param), ┆
0x0e4e0…0e500 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 6e 75 6d 50 61 72 61 6d 20 44 4f 20 28 49 ┆ WHILE numParam DO (I┆
0x0e500…0e520 4e 20 6e 75 6d 56 61 6c 28 70 61 72 61 6d 29 29 29 29 3b 0d 0a 20 0d 0a 20 20 44 4f 0d 0a 20 20 ┆N numVal(param)))); DO ┆
0x0e520…0e540 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 72 65 73 20 3a 3d 20 47 65 74 45 78 63 65 70 74 69 ┆ BEGIN res := GetExcepti┆
0x0e540…0e560 6f 6e 3b 0d 0a 7b 2a 62 2a 20 20 70 73 20 28 27 69 6e 63 6c 75 64 65 20 65 72 72 6f 72 20 27 29 ┆on; æ*b* ps ('include error ')┆
0x0e560…0e580 3b 20 70 72 20 28 72 65 73 29 3b 20 20 20 2a 65 2a 7d 0d 0a 20 20 20 20 20 20 49 46 20 72 65 73 ┆; pr (res); *e*å IF res┆
0x0e580…0e5a0 2e 66 61 6d 69 6c 79 20 3d 20 70 72 69 76 46 61 6d 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 42 45 ┆.family = privFam THEN BE┆
0x0e5a0…0e5c0 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 63 6c 65 61 72 54 65 78 74 20 28 6c 69 6e 65 29 3b 0d 0a ┆GIN clearText (line); ┆
0x0e5c0…0e5e0 20 20 20 20 20 20 20 20 70 75 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 27 2a 2a 2a 27 29 3b 0d 0a ┆ putText (line, '***'); ┆
0x0e5e0…0e600 20 20 20 20 20 20 20 20 43 41 53 45 20 72 65 73 2e 6d 61 69 6e 20 4f 46 0d 0a 20 20 20 20 20 20 ┆ CASE res.main OF ┆
0x0e600…0e800 (11, 1, 6) DataBlock {»INCLUDE.SA«}
[…0x1…]
0x0ea00…0ea20 (11, 1, 8) 20 20 20 20 6e 6f 49 6f 53 79 73 50 61 72 61 6d 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ noIoSysParam: ┆
0x0ea20…0ea40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x0eaa0…0eac0 20 70 75 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 27 6d 69 73 73 69 6e 67 20 69 6f 53 79 73 4e 61 ┆ putText (line, 'missing ioSysNa┆
0x0eac0…0eae0 6d 65 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6e 6f 44 65 76 4e 61 6d 65 3a 0d 0a 20 20 20 ┆me'); noDevName: ┆
0x0eae0…0eb00 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 27 6d 69 73 73 ┆ putText (line, 'miss┆
0x0eb00…0eb20 69 6e 67 20 64 65 76 69 63 65 4e 61 6d 65 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 70 61 72 ┆ing deviceName'); par┆
0x0eb20…0eb40 61 6d 53 65 71 75 65 6e 63 65 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d ┆amSequence: BEGIN ┆
0x0eb40…0eb60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 27 ┆ putText (line, '┆
0x0eb60…0eb80 74 65 78 74 20 70 61 72 61 6d 20 61 66 74 65 72 20 6e 75 6d 20 70 61 72 61 6d 27 29 3b 0d 0a 20 ┆text param after num param'); ┆
0x0eb80…0eba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 49 6e 74 20 20 28 6c 69 6e 65 2c 20 70 61 72 ┆ putInt (line, par┆
0x0eba0…0ebc0 61 6d 4e 6f 2c 20 34 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 ┆amNo, 4); END; ┆
0x0ebc0…0ebe0 20 20 20 20 20 20 20 20 6e 75 6d 50 53 79 6e 74 61 78 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ numPSyntax: ┆
0x0ebe0…0ec00 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 54 65 78 74 20 ┆ BEGIN putText ┆
0x0ec00…0ed00 (11, 1, 9) DataBlock {»INCLUDE.SA«}
0x0ed00…0ed20 52 65 73 81 28 2d 45 6e 74 72 79 49 6c 6c 65 67 61 6c 2c 81 55 6e 69 76 65 72 73 61 6c 2c 81 30 ┆Res (-EntryIllegal, Universal, 0┆
0x0ed20…0ed40 2c 81 30 29 29 3b 00 04 45 4e 44 3b 00 01 20 00 00 16 45 4e 44 3b 82 7b 70 72 6f 67 72 61 6d 81 ┆, 0)); END; END; æprogram ┆
0x0ed40…0ed60 65 6f 73 6c 6f 61 64 7d 00 01 20 00 00 0a 49 4e 49 54 49 41 4c 49 5a 45 00 15 82 69 49 6e 63 6c ┆eosloadå INITIALIZE iIncl┆
0x0ed60…0ed80 75 64 65 81 27 69 6e 63 6c 75 64 65 27 81 3a 00 00 11 82 70 4f 62 6a 44 69 72 82 27 6f 62 6a 64 ┆ude 'include' : pObjDir 'objd┆
0x0ed80…0eda0 69 72 27 00 00 01 20 00 00 10 45 4e 44 2e 82 7b 81 69 6e 63 6c 75 64 65 81 7d 00 01 20 00 00 00 ┆ir' END. æ include å ┆
0x0eda0…0edc0 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 ┆ ┆
[…0x2…]
0x0ee00…0f000 (11, 1, 10) DataBlock {»INCLUDE.SA«}
0x0f000…0f200 (12, 0, 1) DataBlock {»EXCLUDE.SA«}
[…0xa…]
0x10600…10800 (13, 1, 2) DataBlock {»SCAN.SA«}
0x10800…10820 (13, 1, 3) 43 68 65 63 6b 20 28 20 70 4f 62 6a 44 69 72 2e 47 65 74 52 65 66 20 28 4f 55 54 20 69 6f 53 79 ┆Check ( pObjDir.GetRef (OUT ioSy┆
0x10820…10840 73 20 3b 20 49 4e 20 69 6f 53 79 73 4e 61 6d 65 2c 20 4f 55 54 20 75 73 65 64 2c 20 4f 55 54 20 ┆s ; IN ioSysName, OUT used, OUT ┆
0x10840…10860 69 29 29 3b 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 69 6f 53 79 73 2e 45 78 63 6c 75 64 65 ┆i)); xCheck ( ioSys.Exclude┆
0x10860…10880 20 28 20 3b 20 64 65 76 4e 61 6d 65 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ( ; devName, ┆
0x10880…108a0 20 20 20 20 57 48 49 4c 45 20 6e 6f 74 20 6e 75 6d 50 61 72 61 6d 20 44 4f 20 28 49 4e 20 4f 55 ┆ WHILE not numParam DO (IN OU┆
0x108a0…108c0 54 20 70 61 72 61 6d 29 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T param), ┆
0x108c0…108e0 57 48 49 4c 45 20 6e 75 6d 50 61 72 61 6d 20 44 4f 20 28 49 4e 20 6e 75 6d 56 61 6c 28 70 61 72 ┆WHILE numParam DO (IN numVal(par┆
0x108e0…10900 61 6d 29 29 29 29 3b 0d 0a 20 0d 0a 20 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 ┆am)))); DO BEGIN ┆
0x10900…10920 20 20 20 72 65 73 20 3a 3d 20 47 65 74 45 78 63 65 70 74 69 6f 6e 3b 0d 0a 7b 2a 62 2a 20 20 70 ┆ res := GetException; æ*b* p┆
0x10920…10940 73 20 28 27 65 78 63 6c 75 64 65 20 65 72 72 6f 72 20 27 29 3b 20 70 72 20 28 72 65 73 29 3b 20 ┆s ('exclude error '); pr (res); ┆
0x10940…10960 20 20 2a 65 2a 7d 0d 0a 20 20 20 20 20 20 49 46 20 72 65 73 2e 66 61 6d 69 6c 79 20 3d 20 70 72 ┆ *e*å IF res.family = pr┆
0x10960…10980 69 76 46 61 6d 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 ┆ivFam THEN BEGIN ┆
0x10980…109a0 20 63 6c 65 61 72 54 65 78 74 20 28 6c 69 6e 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 70 75 74 54 ┆ clearText (line); putT┆
0x109a0…109c0 65 78 74 20 28 6c 69 6e 65 2c 20 27 2a 2a 2a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 43 41 53 45 ┆ext (line, '***'); CASE┆
0x109c0…109e0 20 72 65 73 2e 6d 61 69 6e 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 6e 6f 49 6f 53 79 73 50 ┆ res.main OF noIoSysP┆
0x109e0…10a00 61 72 61 6d 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆aram: ┆
0x10a00…10c00 (13, 1, 4) DataBlock {»EXCLUDE.SA«}
0x10c00…10e00 (13, 1, 5) DataBlock {»SCAN.SA«}
0x10e00…10e20 (13, 1, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x10e60…10e80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 54 65 78 74 20 28 6c 69 ┆ putText (li┆
0x10e80…10ea0 6e 65 2c 20 27 6d 69 73 73 69 6e 67 20 69 6f 53 79 73 4e 61 6d 65 27 29 3b 0d 0a 20 20 20 20 20 ┆ne, 'missing ioSysName'); ┆
0x10ea0…10ec0 20 20 20 20 20 6e 6f 44 65 76 4e 61 6d 65 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ noDevName: ┆
0x10ec0…10ee0 70 75 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 27 6d 69 73 73 69 6e 67 20 64 65 76 69 63 65 4e 61 ┆putText (line, 'missing deviceNa┆
0x10ee0…10f00 6d 65 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 53 65 71 75 65 6e 63 65 3a 0d ┆me'); paramSequence: ┆
0x10f00…10f20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x10f20…10f40 20 20 20 20 70 75 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 27 74 65 78 74 20 70 61 72 61 6d 20 61 ┆ putText (line, 'text param a┆
0x10f40…10f60 66 74 65 72 20 6e 75 6d 20 70 61 72 61 6d 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆fter num param'); ┆
0x10f60…10f80 20 20 70 75 74 49 6e 74 20 20 28 6c 69 6e 65 2c 20 70 61 72 61 6d 4e 6f 2c 20 34 29 3b 0d 0a 20 ┆ putInt (line, paramNo, 4); ┆
0x10f80…10fa0 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6e 75 6d 50 ┆ END; numP┆
0x10fa0…10fc0 53 79 6e 74 61 78 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 ┆Syntax: BEGIN ┆
0x10fc0…10fe0 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 27 73 79 6e 74 ┆ putText (line, 'synt┆
0x10fe0…11000 61 78 20 65 72 72 6f 72 20 69 6e 20 6e 75 6d 20 70 61 72 61 6d 27 29 3b 0d 0a 20 20 20 20 20 20 ┆ax error in num param'); ┆
0x11000…11100 (13, 1, 7) DataBlock {»EXCLUDE.SA«}
0x11100…11120 20 0d 0a 20 20 20 20 20 20 72 65 73 20 3a 3d 20 63 61 6c 6c 28 20 74 65 72 6d 49 6f 20 28 73 74 ┆ res := call( termIo (st┆
0x11120…11140 64 45 72 72 6f 72 2c 20 77 72 69 74 65 53 65 71 2c 20 6c 69 6e 65 29 29 3b 0d 0a 7b 2a 62 2a 20 ┆dError, writeSeq, line)); æ*b* ┆
0x11140…11160 20 20 70 72 69 6e 74 56 61 72 20 28 27 65 72 72 6f 72 20 6d 73 67 20 6c 69 6e 65 20 3d 20 27 2c ┆ printVar ('error msg line = ',┆
0x11160…11180 20 6c 69 6e 65 29 3b 20 20 20 2a 65 2a 7d 0d 0a 20 20 20 20 20 20 4f 62 6a 52 65 74 75 72 6e 20 ┆ line); *e*å ObjReturn ┆
0x11180…111a0 28 72 65 73 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 45 4e 44 3b 20 20 7b 65 6e 74 72 79 20 52 ┆(res); END; END; æentry R┆
0x111a0…111c0 75 6e 7d 0d 0a 20 0d 0a 4f 54 48 45 52 57 49 53 45 20 20 75 6e 6b 6e 6f 77 6e 0d 0a 20 20 77 69 ┆unå OTHERWISE unknown wi┆
0x111c0…111e0 74 68 20 72 65 63 6f 72 64 20 74 20 3a 20 5e 5e 3b 20 65 6e 64 3b 0d 0a 42 45 47 49 4e 0d 0a 20 ┆th record t : ^^; end; BEGIN ┆
0x111e0…11200 20 65 78 63 65 70 74 69 6f 6e 20 28 6d 61 6b 65 52 65 73 20 28 2d 45 6e 74 72 79 49 6c 6c 65 67 ┆ exception (makeRes (-EntryIlleg┆
0x11200…11400 (13, 1, 8) DataBlock {»SCAN.SA«}
[…0x1…]
0x11600…11620 (13, 1, 10) 49 6e 29 29 3b 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 43 6f 70 79 20 28 66 69 6c 65 45 6e ┆In)); xCheck ( Copy (fileEn┆
0x11620…11640 76 5e 5e 5b 32 5d 2c 20 73 74 64 4f 75 74 29 29 3b 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 ┆v^^Æ2Å, stdOut)); xCheck ( ┆
0x11640…11660 43 6f 70 79 20 28 66 69 6c 65 45 6e 76 5e 5e 5b 33 5d 2c 20 73 74 64 45 72 72 6f 72 29 29 3b 0d ┆Copy (fileEnv^^Æ3Å, stdError)); ┆
0x11660…11680 0a 20 0d 0a 20 20 20 20 7b 20 57 65 6c 6c 63 6f 6d 65 20 6d 65 73 73 61 67 65 20 6f 6e 20 74 65 ┆ æ Wellcome message on te┆
0x11680…116a0 72 6d 69 6e 61 6c 7d 0d 0a 20 20 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 6c 69 6e 65 2c 20 70 72 ┆rminalå printLine (line, pr┆
0x116a0…116c0 6f 63 49 64 29 3b 0d 0a 20 0d 0a 20 20 20 20 6e 75 6d 43 6f 75 6e 74 20 3a 3d 20 30 3b 0d 0a 20 ┆ocId); numCount := 0; ┆
0x116c0…116e0 20 20 20 70 61 72 61 6d 4e 6f 20 3a 3d 20 32 3b 0d 0a 20 0d 0a 20 20 20 20 49 46 20 4e 4f 54 20 ┆ paramNo := 2; IF NOT ┆
0x116e0…11700 6e 65 78 74 56 61 6c 41 72 67 20 28 69 6f 53 79 73 4e 61 6d 65 29 20 54 48 45 4e 0d 0a 20 20 20 ┆nextValArg (ioSysName) THEN ┆
0x11700…11720 20 20 20 65 78 63 65 70 74 69 6f 6e 20 28 6d 61 6b 65 52 65 73 20 28 6e 6f 49 6f 53 79 73 50 61 ┆ exception (makeRes (noIoSysPa┆
0x11720…11740 72 61 6d 2c 20 70 72 69 76 46 61 6d 2c 20 30 2c 20 30 29 29 3b 0d 0a 20 0d 0a 20 20 20 20 49 46 ┆ram, privFam, 0, 0)); IF┆
0x11740…11760 20 4e 4f 54 20 6e 65 78 74 56 61 6c 41 72 67 20 28 64 65 76 4e 61 6d 65 29 20 54 48 45 4e 0d 0a ┆ NOT nextValArg (devName) THEN ┆
0x11760…11780 20 20 20 20 20 20 65 78 63 65 70 74 69 6f 6e 20 28 6d 61 6b 65 52 65 73 20 28 6e 6f 44 65 76 4e ┆ exception (makeRes (noDevN┆
0x11780…117a0 61 6d 65 2c 20 70 72 69 76 46 61 6d 2c 20 30 2c 20 30 29 29 3b 0d 0a 20 0d 0a 7b 2a 62 2a 20 20 ┆ame, privFam, 0, 0)); æ*b* ┆
0x117a0…117c0 70 72 69 6e 74 56 61 72 20 28 27 69 6f 53 79 73 4e 61 6d 65 20 3d 20 27 2c 20 69 6f 53 79 73 4e ┆printVar ('ioSysName = ', ioSysN┆
0x117c0…117e0 61 6d 65 29 3b 0d 0a 20 20 20 20 20 20 70 72 69 6e 74 56 61 72 20 28 27 64 65 76 4e 61 6d 65 20 ┆ame); printVar ('devName ┆
0x117e0…11800 3d 20 27 2c 20 64 65 76 4e 61 6d 65 29 3b 20 20 20 20 20 20 20 2a 65 2a 7d 0d 0a 20 20 20 20 78 ┆= ', devName); *e*å x┆
0x11800…11a00 (14, 0, 1) DataBlock {»SCAN.SA«}
0x11a00…11a20 (14, 0, 2) 72 69 6e 74 56 61 72 20 28 27 67 65 74 49 6e 66 2c 20 72 65 73 20 3d 20 27 2c 20 72 65 73 29 3b ┆rintVar ('getInf, res = ', res);┆
0x11a20…11a40 20 20 2a 65 2a 7d 0d 0a 20 20 20 20 20 20 49 46 20 72 65 73 2e 6d 61 69 6e 20 3d 20 6f 6b 20 54 ┆ *e*å IF res.main = ok T┆
0x11a40…11a60 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 6c 69 6e 65 2c 20 69 6e ┆HEN printLine (line, in┆
0x11a60…11a80 66 4c 69 6e 65 29 3b 0d 0a 20 20 20 20 55 4e 54 49 4c 20 72 65 73 2e 6d 61 69 6e 20 3c 3e 20 6f ┆fLine); UNTIL res.main <> o┆
0x11a80…11aa0 6b 3b 0d 0a 20 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 72 65 73 20 3a ┆k; DO BEGIN res :┆
0x11aa0…11ac0 3d 20 47 65 74 45 78 63 65 70 74 69 6f 6e 3b 0d 0a 7b 2a 62 2a 20 20 70 73 20 28 27 73 63 61 6e ┆= GetException; æ*b* ps ('scan┆
0x11ac0…11ae0 20 65 72 72 6f 72 20 27 29 3b 20 70 72 20 28 72 65 73 29 3b 20 20 20 2a 65 2a 7d 0d 0a 20 20 20 ┆ error '); pr (res); *e*å ┆
0x11ae0…11b00 20 20 20 49 46 20 72 65 73 2e 66 61 6d 69 6c 79 20 3d 20 70 72 69 76 46 61 6d 20 54 48 45 4e 0d ┆ IF res.family = privFam THEN ┆
0x11b00…11b20 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 63 6c 65 61 72 54 65 78 74 20 ┆ BEGIN clearText ┆
0x11b20…11b40 28 6c 69 6e 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 70 75 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 ┆(line); putText (line, ┆
0x11b40…11b60 27 2a 2a 2a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 43 41 53 45 20 72 65 73 2e 6d 61 69 6e 20 4f ┆'***'); CASE res.main O┆
0x11b60…11b80 46 0d 0a 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 54 6f 6f 4c 6f 6e 67 3a 0d 0a 20 20 20 20 20 ┆F nameTooLong: ┆
0x11b80…11ba0 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 ┆ BEGIN pu┆
0x11ba0…11bc0 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 70 61 72 61 6d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆tText (line, param); ┆
0x11bc0…11be0 20 20 20 20 20 70 75 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 27 3a 20 73 79 73 49 64 20 74 6f 6f ┆ putText (line, ': sysId too┆
0x11be0…11c00 20 6c 6f 6e 67 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 ┆ long'); END; ┆
0x11c00…11d80 (14, 0, 3) DataBlock {»SCAN.SA«}
0x11d80…11da0 6e 20 65 72 72 6f 72 20 63 6f 64 65 73 7d 0d 0a 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 ┆n error codeså ELSE ┆
0x11da0…11dc0 20 20 20 20 70 75 74 45 72 72 6f 72 20 28 6c 69 6e 65 2c 20 72 65 73 2c 20 27 27 2c 20 30 29 3b ┆ putError (line, res, '', 0);┆
0x11dc0…11de0 0d 0a 20 0d 0a 20 20 20 20 20 20 72 65 73 20 3a 3d 20 63 61 6c 6c 28 20 74 65 72 6d 49 6f 20 28 ┆ res := call( termIo (┆
0x11de0…11e00 73 74 64 45 72 72 6f 72 2c 20 77 72 69 74 65 53 65 71 2c 20 6c 69 6e 65 29 29 3b 0d 0a 7b 2a 62 ┆stdError, writeSeq, line)); æ*b┆
0x11e00…12000 (14, 0, 4) DataBlock {»SCAN.SA«}
0x12000…12200 (14, 0, 5) DataBlock {»CREATE.SA«}
0x12200…12220 (14, 0, 6) 6c 65 20 73 79 73 4e 61 6d 65 20 70 61 72 61 6d 65 74 65 72 20 7d 0d 0a 20 20 20 20 73 79 73 49 ┆le sysName parameter å sysI┆
0x12220…12240 64 20 3a 3d 20 27 2f 6f 62 6a 64 69 72 27 3b 0d 0a 20 20 20 20 49 46 20 6e 65 78 74 56 61 6c 41 ┆d := '/objdir'; IF nextValA┆
0x12240…12260 72 67 20 28 70 61 72 61 6d 29 20 54 48 45 4e 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 ┆rg (param) THEN BEGIN ┆
0x12260…12280 20 20 75 73 65 64 20 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 70 61 72 61 6d 29 3b 0d 0a 20 20 20 20 ┆ used := elements(param); ┆
0x12280…122a0 20 20 49 46 20 75 73 65 64 20 3e 20 35 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 65 78 63 ┆ IF used > 50 THEN exc┆
0x122a0…122c0 65 70 74 69 6f 6e 20 28 6d 61 6b 65 52 65 73 20 28 6e 61 6d 65 54 6f 6f 4c 6f 6e 67 2c 20 70 72 ┆eption (makeRes (nameTooLong, pr┆
0x122c0…122e0 69 76 46 61 6d 2c 20 30 2c 20 30 29 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 75 73 65 64 20 3c 3e ┆ivFam, 0, 0)); IF used <>┆
0x122e0…12300 20 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 46 4f ┆ 0 THEN BEGIN FO┆
0x12300…12320 52 20 69 20 3a 3d 20 31 20 54 4f 20 75 73 65 64 20 44 4f 20 73 79 73 49 64 5b 69 5d 20 3a 3d 20 ┆R i := 1 TO used DO sysIdÆiÅ := ┆
0x12320…12340 70 61 72 61 6d 5b 69 5d 3b 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 75 73 65 64 ┆paramÆiÅ; FOR i := used┆
0x12340…12360 2b 31 20 54 4f 20 35 30 20 44 4f 20 73 79 73 49 64 5b 69 5d 20 3a 3d 20 63 68 72 28 30 29 3b 0d ┆+1 TO 50 DO sysIdÆiÅ := chr(0); ┆
0x12360…12380 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 7b 2a 62 2a 20 20 70 72 69 6e 74 56 61 72 20 28 27 73 79 ┆ END; æ*b* printVar ('sy┆
0x12380…123a0 73 49 64 20 3d 20 27 2c 20 73 79 73 49 64 5b 31 2e 2e 75 73 65 64 5d 29 3b 20 20 20 2a 65 2a 7d ┆sId = ', sysIdÆ1..usedÅ); *e*å┆
0x123a0…123c0 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 70 4f 62 6a ┆ END; xCheck ( pObj┆
0x123c0…123e0 44 69 72 2e 47 65 74 52 65 66 20 28 4f 55 54 20 73 79 73 20 3b 20 49 4e 20 73 79 73 49 64 2c 20 ┆Dir.GetRef (OUT sys ; IN sysId, ┆
0x123e0…12400 4f 55 54 20 75 73 65 64 2c 20 4f 55 54 20 69 29 29 3b 0d 0a 7b 2a 62 2a 20 20 70 72 69 6e 74 56 ┆OUT used, OUT i)); æ*b* printV┆
0x12400…12600 (14, 0, 7) DataBlock {»SCAN.SA«}
0x12600…12800 (14, 0, 8) DataBlock {»CREATE.SA«}
0x12800…12820 (14, 0, 9) 61 72 20 28 27 67 65 74 52 65 66 2c 20 75 73 65 64 20 3d 20 27 2c 20 75 73 65 64 29 3b 20 20 2a ┆ar ('getRef, used = ', used); *┆
0x12820…12840 65 2a 7d 0d 0a 20 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 73 79 73 2e 49 6e 69 74 49 74 65 ┆e*å xCheck ( sys.InitIte┆
0x12840…12860 6d 53 63 61 6e 20 28 20 4f 55 54 20 73 63 61 6e 4f 62 6a 20 29 29 3b 0d 0a 20 0d 0a 20 20 20 20 ┆mScan ( OUT scanObj )); ┆
0x12860…12880 63 6c 65 61 72 54 65 78 74 20 28 6c 69 6e 65 29 3b 0d 0a 20 20 20 20 70 75 74 54 65 78 74 20 28 ┆clearText (line); putText (┆
0x12880…128a0 6c 69 6e 65 2c 20 70 72 6f 63 49 64 29 3b 0d 0a 20 20 20 20 70 75 74 54 65 78 74 20 28 6c 69 6e ┆line, procId); putText (lin┆
0x128a0…128c0 65 2c 20 73 79 73 49 64 5b 31 2e 2e 75 73 65 64 5d 29 3b 0d 0a 20 20 20 20 70 75 74 4e 6c 20 28 ┆e, sysIdÆ1..usedÅ); putNl (┆
0x128c0…128e0 6c 69 6e 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆line); ┆
0x128e0…12900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x12940…12960 20 20 20 20 20 20 20 20 20 20 20 78 43 68 65 63 6b 20 28 20 74 65 72 6d 49 6f 20 28 73 74 64 4f ┆ xCheck ( termIo (stdO┆
0x12960…12980 75 74 2c 20 57 72 69 74 65 53 65 71 2c 20 6c 69 6e 65 29 29 3b 0d 0a 20 0d 0a 20 20 20 20 52 45 ┆ut, WriteSeq, line)); RE┆
0x12980…129a0 50 45 41 54 0d 0a 20 20 20 20 20 20 72 65 73 20 3a 3d 20 73 63 61 6e 4f 62 6a 2e 47 65 74 49 6e ┆PEAT res := scanObj.GetIn┆
0x129a0…129c0 66 20 28 20 3b 20 4f 55 54 20 69 6e 66 4c 69 6e 65 5b 31 2e 2e 32 30 5d 2c 20 4f 55 54 20 69 2c ┆f ( ; OUT infLineÆ1..20Å, OUT i,┆
0x129c0…129e0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x129e0…12a00 20 20 4f 55 54 20 69 6e 66 4c 69 6e 65 5b 32 31 2e 2e 35 30 5d 29 3b 0d 0a 7b 2a 62 2a 20 20 70 ┆ OUT infLineÆ21..50Å); æ*b* p┆
0x12a00…12c00 (14, 0, 10) DataBlock {»SCAN.SA«}
0x12c00…12e00 (15, 1, 1) DataBlock {»CREATE.SA«}
[…0x1…]
0x12f00…12f20 0a 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12f20…12f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x12f80…12fa0 20 20 20 20 0d 0a 7b 24 45 7d 0d 0a 20 0d 0a 42 45 47 49 4e 0d 0a 7b 2a 62 2a 20 20 20 50 53 20 ┆ æ$Eå BEGIN æ*b* PS ┆
0x12fa0…12fc0 28 27 53 74 61 72 74 20 6f 66 20 43 52 45 41 54 45 20 27 29 3b 20 20 20 2a 65 2a 7d 0d 0a 20 0d ┆('Start of CREATE '); *e*å ┆
0x12fc0…12fe0 0a 20 20 49 4e 0d 0a 20 20 20 20 72 65 73 20 3a 3d 20 4f 6b 52 65 73 75 6c 74 3b 0d 0a 20 20 20 ┆ IN res := OkResult; ┆
0x12fe0…13000 20 78 43 68 65 63 6b 20 28 20 43 6f 70 79 20 28 66 69 6c 65 45 6e 76 5e 5e 5b 31 5d 2c 20 73 74 ┆ xCheck ( Copy (fileEnv^^Æ1Å, st┆
0x13000…13200 (15, 1, 3) DataBlock {»CREATE.SA«}
[…0x1…]
0x13400…13420 (15, 1, 5) 64 49 6e 29 29 3b 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 43 6f 70 79 20 28 66 69 6c 65 45 ┆dIn)); xCheck ( Copy (fileE┆
0x13420…13440 6e 76 5e 5e 5b 32 5d 2c 20 73 74 64 4f 75 74 29 29 3b 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 ┆nv^^Æ2Å, stdOut)); xCheck (┆
0x13440…13460 20 43 6f 70 79 20 28 66 69 6c 65 45 6e 76 5e 5e 5b 33 5d 2c 20 73 74 64 45 72 72 6f 72 29 29 3b ┆ Copy (fileEnv^^Æ3Å, stdError));┆
0x13460…13480 0d 0a 20 0d 0a 20 20 20 20 7b 20 57 65 6c 6c 63 6f 6d 65 20 6d 65 73 73 61 67 65 20 6f 6e 20 74 ┆ æ Wellcome message on t┆
0x13480…134a0 65 72 6d 69 6e 61 6c 7d 0d 0a 20 20 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 6c 69 6e 65 2c 20 70 ┆erminalå printLine (line, p┆
0x134a0…134c0 72 6f 63 49 64 29 3b 0d 0a 20 0d 0a 20 20 20 20 70 61 72 61 6d 4e 6f 20 3a 3d 20 31 3b 0d 0a 20 ┆rocId); paramNo := 1; ┆
0x134c0…134e0 20 20 20 49 46 20 4e 4f 54 20 6e 65 78 74 56 61 6c 41 72 67 20 28 73 6f 75 72 63 65 4e 61 6d 65 ┆ IF NOT nextValArg (sourceName┆
0x134e0…13500 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 65 78 63 65 70 74 69 6f 6e 20 28 6d 61 6b 65 52 65 73 ┆) THEN exception (makeRes┆
0x13500…13520 20 28 6e 6f 53 6f 75 72 63 65 2c 20 70 72 69 76 46 61 6d 2c 20 30 2c 20 30 29 29 3b 0d 0a 20 0d ┆ (noSource, privFam, 0, 0)); ┆
0x13520…13540 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 35 30 20 44 4f 20 6c 6f 61 64 4e 61 6d ┆ FOR i := 1 TO 50 DO loadNam┆
0x13540…13560 65 5b 69 5d 20 3a 3d 20 27 20 27 3b 0d 0a 20 20 20 20 49 46 20 6e 65 78 74 56 61 6c 41 72 67 20 ┆eÆiÅ := ' '; IF nextValArg ┆
0x13560…13580 28 70 61 72 61 6d 29 20 54 48 45 4e 20 73 74 6f 70 20 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 70 61 ┆(param) THEN stop := elements(pa┆
0x13580…135a0 72 61 6d 29 20 3d 20 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ram) = 0 ┆
0x135a0…135c0 20 20 20 20 45 4c 53 45 20 73 74 6f 70 20 3a 3d 20 74 72 75 65 3b 0d 0a 20 20 20 20 49 46 20 4e ┆ ELSE stop := true; IF N┆
0x135c0…135e0 4f 54 20 73 74 6f 70 20 54 48 45 4e 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 75 ┆OT stop THEN BEGIN u┆
0x135e0…13600 73 65 64 20 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 70 61 72 61 6d 29 3b 0d 0a 20 20 20 20 20 20 49 ┆sed := elements(param); I┆
0x13600…13800 (15, 1, 6) DataBlock {»CREATE.SA«}
[…0x1…]
0x13a00…13a20 (15, 1, 8) 46 20 75 73 65 64 20 3e 20 35 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 65 78 63 65 70 74 ┆F used > 50 THEN except┆
0x13a20…13a40 69 6f 6e 20 28 6d 61 6b 65 52 65 73 20 28 6e 61 6d 65 54 6f 6f 4c 6f 6e 67 2c 20 70 72 69 76 46 ┆ion (makeRes (nameTooLong, privF┆
0x13a40…13a60 61 6d 2c 20 70 61 72 61 6d 4e 6f 2c 20 30 29 29 3b 0d 0a 20 20 20 20 20 20 46 4f 52 20 69 20 3a ┆am, paramNo, 0)); FOR i :┆
0x13a60…13a80 3d 20 31 20 54 4f 20 75 73 65 64 20 44 4f 20 6c 6f 61 64 4e 61 6d 65 5b 69 5d 20 3a 3d 20 70 61 ┆= 1 TO used DO loadNameÆiÅ := pa┆
0x13a80…13aa0 72 61 6d 5b 69 5d 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 7b 2a 62 2a 20 20 70 72 69 6e 74 56 61 ┆ramÆiÅ; END; æ*b* printVa┆
0x13aa0…13ac0 72 20 28 27 73 6f 75 72 63 65 4e 61 6d 65 20 3d 20 27 2c 20 73 6f 75 72 63 65 4e 61 6d 65 29 3b ┆r ('sourceName = ', sourceName);┆
0x13ac0…13ae0 0d 0a 20 20 20 20 20 20 70 72 69 6e 74 56 61 72 20 28 27 6c 6f 61 64 4e 61 6d 65 20 3d 20 27 2c ┆ printVar ('loadName = ',┆
0x13ae0…13b00 20 6c 6f 61 64 4e 61 6d 65 29 3b 20 20 20 20 20 20 20 2a 65 2a 7d 0d 0a 20 0d 0a 20 20 20 20 7b ┆ loadName); *e*å æ┆
0x13b00…13b20 20 43 72 65 61 74 65 20 6e 65 77 20 6f 62 6a 65 63 74 20 7d 0d 0a 20 20 20 20 78 43 68 65 63 6b ┆ Create new object å xCheck┆
0x13b20…13b40 20 28 20 70 4f 62 6a 44 69 72 2e 43 72 65 61 74 65 20 28 4f 55 54 20 74 6d 70 20 3b 20 49 4e 20 ┆ ( pObjDir.Create (OUT tmp ; IN ┆
0x13b40…13b60 4f 55 54 20 6c 6f 61 64 4e 61 6d 65 2c 20 49 4e 20 73 6f 75 72 63 65 4e 61 6d 65 29 29 3b 0d 0a ┆OUT loadName, IN sourceName)); ┆
0x13b60…13b80 20 0d 0a 20 20 20 20 63 6c 65 61 72 54 65 78 74 20 28 6c 69 6e 65 29 3b 0d 0a 20 20 20 20 70 75 ┆ clearText (line); pu┆
0x13b80…13ba0 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 6c 6f 61 64 4e 61 6d 65 29 3b 0d 0a 20 20 20 20 70 75 74 ┆tText (line, loadName); put┆
0x13ba0…13bc0 54 65 78 74 20 28 6c 69 6e 65 2c 20 27 20 63 72 65 61 74 65 64 27 29 3b 0d 0a 20 20 20 20 70 75 ┆Text (line, ' created'); pu┆
0x13bc0…13be0 74 4e 6c 20 20 20 28 6c 69 6e 65 29 3b 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 74 65 72 6d 49 ┆tNl (line); xCheck (termI┆
0x13be0…13c00 6f 20 28 73 74 64 4f 75 74 2c 20 57 72 69 74 65 53 65 71 2c 20 6c 69 6e 65 29 29 3b 0d 0a 20 20 ┆o (stdOut, WriteSeq, line)); ┆
0x13c00…13e00 (15, 1, 9) DataBlock {»CREATE.SA«}
[…0x1…]
0x14000…14200 (16, 0, 1) DataBlock {»LOAD.SA«}
[…0x7…]
0x14e80…14ea0 6e 65 29 3b 0d 0a 20 20 78 43 68 65 63 6b 20 28 20 74 65 72 6d 49 6f 20 28 73 74 64 4f 75 74 2c ┆ne); xCheck ( termIo (stdOut,┆
0x14ea0…14ec0 20 57 72 69 74 65 53 65 71 2c 20 6c 69 6e 65 29 29 3b 0d 0a 45 4e 44 3b 20 20 7b 70 72 69 6e 74 ┆ WriteSeq, line)); END; æprint┆
0x14ec0…14ee0 4c 69 6e 65 7d 0d 0a 20 0d 0a 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Lineå ┆
0x14ee0…14f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x14f40…14f60 20 20 20 20 20 20 20 20 20 20 20 20 7b 24 45 7d 0d 0a 20 0d 0a 42 45 47 49 4e 0d 0a 7b 2a 62 2a ┆ æ$Eå BEGIN æ*b*┆
0x14f60…14f80 20 20 20 50 53 20 28 27 53 74 61 72 74 20 6f 66 20 4c 4f 41 44 20 27 29 3b 20 20 20 2a 65 2a 7d ┆ PS ('Start of LOAD '); *e*å┆
0x14f80…14fa0 0d 0a 20 0d 0a 20 20 49 4e 0d 0a 20 20 20 20 72 65 73 20 3a 3d 20 4f 6b 52 65 73 75 6c 74 3b 0d ┆ IN res := OkResult; ┆
0x14fa0…14fc0 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 43 6f 70 79 20 28 66 69 6c 65 45 6e 76 5e 5e 5b 31 5d ┆ xCheck ( Copy (fileEnv^^Æ1Å┆
0x14fc0…14fe0 2c 20 73 74 64 49 6e 29 29 3b 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 20 43 6f 70 79 20 28 66 ┆, stdIn)); xCheck ( Copy (f┆
0x14fe0…15000 69 6c 65 45 6e 76 5e 5e 5b 32 5d 2c 20 73 74 64 4f 75 74 29 29 3b 0d 0a 20 20 20 20 78 43 68 65 ┆ileEnv^^Æ2Å, stdOut)); xChe┆
0x15000…15200 (16, 0, 9) DataBlock {»LOAD.SA«}
[…0x1…]
0x15400…15420 (17, 1, 1) 63 6b 20 28 20 43 6f 70 79 20 28 66 69 6c 65 45 6e 76 5e 5e 5b 33 5d 2c 20 73 74 64 45 72 72 6f ┆ck ( Copy (fileEnv^^Æ3Å, stdErro┆
0x15420…15440 72 29 29 3b 0d 0a 20 0d 0a 20 20 20 20 7b 20 57 65 6c 6c 63 6f 6d 65 20 6d 65 73 73 61 67 65 20 ┆r)); æ Wellcome message ┆
0x15440…15460 6f 6e 20 74 65 72 6d 69 6e 61 6c 7d 0d 0a 20 20 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 6c 69 6e ┆on terminalå printLine (lin┆
0x15460…15480 65 2c 20 70 72 6f 63 49 64 29 3b 0d 0a 20 0d 0a 20 20 20 20 70 61 72 61 6d 4e 6f 20 3a 3d 20 31 ┆e, procId); paramNo := 1┆
0x15480…154a0 3b 0d 0a 20 20 20 20 49 46 20 4e 4f 54 20 6e 65 78 74 56 61 6c 41 72 67 20 28 73 6f 75 72 63 65 ┆; IF NOT nextValArg (source┆
0x154a0…154c0 4e 61 6d 65 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 65 78 63 65 70 74 69 6f 6e 20 28 6d 61 6b ┆Name) THEN exception (mak┆
0x154c0…154e0 65 52 65 73 20 28 6e 6f 53 6f 75 72 63 65 2c 20 70 72 69 76 46 61 6d 2c 20 30 2c 20 30 29 29 3b ┆eRes (noSource, privFam, 0, 0));┆
0x154e0…15500 0d 0a 20 0d 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 35 30 20 44 4f 20 6c 6f 61 ┆ FOR i := 1 TO 50 DO loa┆
0x15500…15520 64 4e 61 6d 65 5b 69 5d 20 3a 3d 20 27 20 27 3b 0d 0a 20 20 20 20 49 46 20 6e 65 78 74 56 61 6c ┆dNameÆiÅ := ' '; IF nextVal┆
0x15520…15540 41 72 67 20 28 70 61 72 61 6d 29 20 54 48 45 4e 20 73 74 6f 70 20 3a 3d 20 65 6c 65 6d 65 6e 74 ┆Arg (param) THEN stop := element┆
0x15540…15560 73 28 70 61 72 61 6d 29 20 3d 20 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆s(param) = 0 ┆
0x15560…15580 20 20 20 20 20 20 20 20 45 4c 53 45 20 73 74 6f 70 20 3a 3d 20 74 72 75 65 3b 0d 0a 20 20 20 20 ┆ ELSE stop := true; ┆
0x15580…155a0 49 46 20 4e 4f 54 20 73 74 6f 70 20 54 48 45 4e 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 ┆IF NOT stop THEN BEGIN ┆
0x155a0…155c0 20 20 20 75 73 65 64 20 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 70 61 72 61 6d 29 3b 0d 0a 20 20 20 ┆ used := elements(param); ┆
0x155c0…155e0 20 20 20 49 46 20 75 73 65 64 20 3e 20 35 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 65 78 ┆ IF used > 50 THEN ex┆
0x155e0…15600 63 65 70 74 69 6f 6e 20 28 6d 61 6b 65 52 65 73 20 28 6e 61 6d 65 54 6f 6f 4c 6f 6e 67 2c 20 70 ┆ception (makeRes (nameTooLong, p┆
0x15600…15800 (17, 1, 2) DataBlock {»DELETE.SA«}
[…0x1…]
0x15a00…15a20 (17, 1, 4) 72 69 76 46 61 6d 2c 20 70 61 72 61 6d 4e 6f 2c 20 30 29 29 3b 0d 0a 20 20 20 20 20 20 46 4f 52 ┆rivFam, paramNo, 0)); FOR┆
0x15a20…15a40 20 69 20 3a 3d 20 31 20 54 4f 20 75 73 65 64 20 44 4f 20 6c 6f 61 64 4e 61 6d 65 5b 69 5d 20 3a ┆ i := 1 TO used DO loadNameÆiÅ :┆
0x15a40…15a60 3d 20 70 61 72 61 6d 5b 69 5d 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 7b 2a 62 2a 20 20 70 72 69 ┆= paramÆiÅ; END; æ*b* pri┆
0x15a60…15a80 6e 74 56 61 72 20 28 27 73 6f 75 72 63 65 4e 61 6d 65 20 3d 20 27 2c 20 73 6f 75 72 63 65 4e 61 ┆ntVar ('sourceName = ', sourceNa┆
0x15a80…15aa0 6d 65 29 3b 0d 0a 20 20 20 20 20 20 70 72 69 6e 74 56 61 72 20 28 27 6c 6f 61 64 4e 61 6d 65 20 ┆me); printVar ('loadName ┆
0x15aa0…15ac0 3d 20 27 2c 20 6c 6f 61 64 4e 61 6d 65 29 3b 20 20 20 20 20 20 20 2a 65 2a 7d 0d 0a 20 0d 0a 20 ┆= ', loadName); *e*å ┆
0x15ac0…15ae0 20 20 20 7b 20 4c 6f 61 64 20 6e 65 77 20 6f 62 6a 65 63 74 20 7d 0d 0a 20 20 20 20 78 43 68 65 ┆ æ Load new object å xChe┆
0x15ae0…15b00 63 6b 20 28 20 70 4f 62 6a 44 69 72 2e 4c 6f 61 64 20 28 4f 55 54 20 74 6d 70 20 3b 20 49 4e 20 ┆ck ( pObjDir.Load (OUT tmp ; IN ┆
0x15b00…15b20 4f 55 54 20 6c 6f 61 64 4e 61 6d 65 2c 20 49 4e 20 73 6f 75 72 63 65 4e 61 6d 65 29 29 3b 0d 0a ┆OUT loadName, IN sourceName)); ┆
0x15b20…15b40 20 0d 0a 20 20 20 20 63 6c 65 61 72 54 65 78 74 20 28 6c 69 6e 65 29 3b 0d 0a 20 20 20 20 70 75 ┆ clearText (line); pu┆
0x15b40…15b60 74 54 65 78 74 20 28 6c 69 6e 65 2c 20 6c 6f 61 64 4e 61 6d 65 29 3b 0d 0a 20 20 20 20 70 75 74 ┆tText (line, loadName); put┆
0x15b60…15b80 54 65 78 74 20 28 6c 69 6e 65 2c 20 27 20 6c 6f 61 64 65 64 27 29 3b 0d 0a 20 20 20 20 70 75 74 ┆Text (line, ' loaded'); put┆
0x15b80…15ba0 4e 6c 20 20 20 28 6c 69 6e 65 29 3b 0d 0a 20 20 20 20 78 43 68 65 63 6b 20 28 74 65 72 6d 49 6f ┆Nl (line); xCheck (termIo┆
0x15ba0…15bc0 20 28 73 74 64 4f 75 74 2c 20 57 72 69 74 65 53 65 71 2c 20 6c 69 6e 65 29 29 3b 0d 0a 20 20 44 ┆ (stdOut, WriteSeq, line)); D┆
0x15bc0…15be0 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 72 65 73 20 3a 3d 20 47 65 74 45 78 ┆O BEGIN res := GetEx┆
0x15be0…15c00 63 65 70 74 69 6f 6e 3b 0d 0a 7b 2a 62 2a 20 20 70 73 20 28 27 6c 6f 61 64 20 65 72 72 6f 72 20 ┆ception; æ*b* ps ('load error ┆
0x15c00…15e00 (17, 1, 5) DataBlock {»DELETE.SA«}
[…0x3…]
0x16280…162a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x162e0…16300 20 20 20 50 52 4f 47 52 41 4d 20 69 44 65 6c 65 74 65 20 4f 42 4a 45 43 54 20 41 70 70 6c 69 63 ┆ PROGRAM iDelete OBJECT Applic┆
0x16300…16320 61 74 69 6f 6e 20 57 49 54 48 20 61 70 4c 6f 63 61 6c 73 3b 0d 0a 20 0d 0a 45 4e 54 52 59 20 52 ┆ation WITH apLocals; ENTRY R┆
0x16320…16340 75 6e 20 20 7b 66 69 6c 65 45 6e 76 2c 20 6a 6f 62 53 79 73 20 3b 20 70 72 6f 67 49 64 20 5b 2c ┆un æfileEnv, jobSys ; progId Æ,┆
0x16340…16360 20 6f 70 74 69 6f 6e 73 2e 2e 2e 5d 7d 0d 0a 20 20 57 49 54 48 20 52 45 43 4f 52 44 0d 0a 20 20 ┆ options...Åå WITH RECORD ┆
0x16360…16380 20 20 20 20 20 20 20 74 20 20 20 3a 20 5e 5e 3b 0d 0a 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 ┆ t : ^^; END; ┆
0x16380…163a0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x163a0…163c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x16400…16600 (17, 1, 9) DataBlock {»DELETE.SA«}
[…0x1…]
0x16800…16a00 (18, 0, 1) DataBlock {»INITWT.SA«}
[…0xa…]
0x17e00…18000 (19, 1, 2) DataBlock {»OPTIINIT.SA«}
0x18000…18200 (19, 1, 3) DataBlock {»UNIXUTIL.SA«}
0x18200…18220 (19, 1, 4) 20 20 63 6f 64 65 20 20 20 20 20 3a 20 5e 5e 3b 0d 0a 20 20 20 20 20 20 6f 62 6a 44 69 72 72 65 ┆ code : ^^; objDirre┆
0x18220…18240 66 20 3a 20 5e 5e 4f 62 6a 44 69 72 3b 0d 0a 20 20 20 20 20 20 67 72 6f 75 70 72 65 66 20 20 3a ┆f : ^^ObjDir; groupref :┆
0x18240…18260 20 5e 5e 3b 0d 0a 20 20 20 20 20 20 75 6e 69 78 6a 63 73 20 20 20 3a 20 5e 5e 75 6e 69 70 73 3b ┆ ^^; unixjcs : ^^unips;┆
0x18260…18280 0d 0a 20 20 20 20 20 20 77 74 72 65 66 20 20 20 20 20 3a 20 5e 5e 77 69 6e 64 6f 77 66 73 3b 0d ┆ wtref : ^^windowfs; ┆
0x18280…182a0 0a 20 20 20 20 20 20 73 63 66 73 20 20 20 20 20 20 3a 20 5e 5e 3b 0d 0a 20 20 20 20 20 20 73 74 ┆ scfs : ^^; st┆
0x182a0…182c0 64 49 6e 20 20 20 20 3a 20 66 61 6f 52 65 66 54 79 70 65 3b 0d 0a 20 20 20 20 20 20 73 74 64 4f ┆dIn : faoRefType; stdO┆
0x182c0…182e0 75 74 20 20 20 3a 20 66 61 6f 52 65 66 54 79 70 65 3b 0d 0a 20 20 20 20 20 20 73 74 64 45 72 72 ┆ut : faoRefType; stdErr┆
0x182e0…18300 6f 72 20 3a 20 66 61 6f 52 65 66 54 79 70 65 3b 0d 0a 20 20 20 45 4e 44 3b 20 20 7b 61 70 4c 6f ┆or : faoRefType; END; æapLo┆
0x18300…18320 63 61 6c 73 7d 0d 0a 20 0d 0a 7b 24 45 7d 0d 0a 20 0d 0a 50 52 4f 47 52 41 4d 20 69 49 6e 69 74 ┆calså æ$Eå PROGRAM iInit┆
0x18320…18340 77 74 20 4f 42 4a 45 43 54 20 41 70 70 6c 69 63 61 74 69 6f 6e 20 57 49 54 48 20 61 70 4c 6f 63 ┆wt OBJECT Application WITH apLoc┆
0x18340…18360 61 6c 73 3b 0d 0a 20 0d 0a 45 4e 54 52 59 20 52 75 6e 20 20 7b 66 69 6c 65 45 6e 76 2c 20 6a 6f ┆als; ENTRY Run æfileEnv, jo┆
0x18360…18380 62 53 79 73 20 3b 20 70 72 6f 67 49 64 20 5b 2c 20 6f 70 74 69 6f 6e 73 2e 2e 2e 5d 7d 0d 0a 20 ┆bSys ; progId Æ, options...Åå ┆
0x18380…183a0 20 57 49 54 48 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 20 74 20 20 20 20 20 3a 20 5e ┆ WITH RECORD t : ^┆
0x183a0…183c0 5e 3b 0d 0a 20 20 20 20 20 20 20 20 20 69 6f 53 79 73 20 3a 20 69 6f 73 79 73 52 65 66 54 79 70 ┆^; ioSys : iosysRefTyp┆
0x183c0…183e0 65 3b 0d 0a 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆e; END; ┆
0x183e0…18400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18400…18600 (19, 1, 5) DataBlock {»OPTIINIT.SA«}
0x18600…18780 (19, 1, 6) DataBlock {»UNIXUTIL.SA«}
0x18780…187a0 6f 6e 20 28 4d 61 6b 65 72 65 73 20 28 6d 69 73 73 70 61 72 61 6d 2c 70 72 69 76 66 61 6d 2c 2d ┆on (Makeres (missparam,privfam,-┆
0x187a0…187c0 70 61 72 61 6d 6e 6f 2c 30 29 29 3b 0d 0a 20 0d 0a 20 20 20 7b 20 63 6f 6e 63 61 74 20 77 74 20 ┆paramno,0)); æ concat wt ┆
0x187c0…187e0 61 6e 64 20 74 65 72 6d 6e 61 6d 65 20 7d 0d 0a 20 20 20 6a 20 3a 3d 20 31 3b 0d 0a 20 20 20 46 ┆and termname å j := 1; F┆
0x187e0…18800 4f 52 20 69 20 3a 3d 20 31 20 74 6f 20 39 20 64 6f 0d 0a 20 20 20 20 20 63 6f 6e 74 65 72 6d 6e ┆OR i := 1 to 9 do contermn┆
0x18800…18a00 (19, 1, 7) DataBlock {»UNIXUTIL.SA«}
0x18a00…18c00 (19, 1, 8) DataBlock {»OPTIINIT.SA«}
[…0x1…]
0x18e00…19000 (19, 1, 10) DataBlock {»UNIXUTIL.SA«}
0x19000…19200 (20, 0, 1) DataBlock {»OPTIINIT.SA«}
0x19200…19400 (20, 0, 2) DataBlock {»INIT.SA«}
[…0x1…]
0x19600…19800 (20, 0, 4) DataBlock {»OPTIINIT.SA«}
0x19800…19a00 (20, 0, 5) DataBlock {»INIT.SA«}
[…0x1…]
0x19c00…19e00 (20, 0, 7) DataBlock {»OPTIINIT.SA«}
0x19e00…1a000 (20, 0, 8) DataBlock {»INIT.SA«}
[…0x1…]
0x1a200…1a220 (20, 0, 10) 79 20 6f 62 6a 44 69 72 20 7d 0d 0a 45 4e 44 3b 0d 0a 20 0d 0a 50 52 4f 47 52 41 4d 20 55 78 55 ┆y objDir å END; PROGRAM UxU┆
0x1a220…1a240 49 6d 70 6c 20 4f 42 4a 45 43 54 20 55 6e 69 78 55 74 69 6c 20 57 49 54 48 20 55 78 55 4c 6f 63 ┆Impl OBJECT UnixUtil WITH UxULoc┆
0x1a240…1a260 61 6c 73 3b 0d 0a 20 0d 0a 45 4e 54 52 59 20 20 20 20 52 75 6e 20 20 57 69 74 68 20 55 78 55 54 ┆als; ENTRY Run With UxUT┆
0x1a260…1a280 65 6d 70 73 3b 20 42 45 47 49 4e 20 7b 61 73 73 65 6d 62 6c 65 72 20 70 72 6f 67 72 61 6d 7d 20 ┆emps; BEGIN æassembler programå ┆
0x1a280…1a2a0 45 4e 44 3b 0d 0a 20 0d 0a 45 4e 54 52 59 20 20 20 20 46 6f 72 6b 20 57 69 74 68 20 55 78 55 54 ┆END; ENTRY Fork With UxUT┆
0x1a2a0…1a2c0 65 6d 70 73 3b 20 42 45 47 49 4e 20 7b 61 73 73 65 6d 62 6c 65 72 20 70 72 6f 67 72 61 6d 7d 20 ┆emps; BEGIN æassembler programå ┆
0x1a2c0…1a2e0 45 4e 44 3b 0d 0a 20 0d 0a 4f 54 48 45 52 57 49 53 45 20 76 69 72 20 57 49 54 48 20 55 78 55 54 ┆END; OTHERWISE vir WITH UxUT┆
0x1a2e0…1a300 65 6d 70 73 3b 20 42 45 47 49 4e 20 7b 61 73 73 65 6d 62 6c 65 72 20 70 72 6f 67 72 61 6d 7d 20 ┆emps; BEGIN æassembler programå ┆
0x1a300…1a320 45 4e 44 3b 0d 0a 20 0d 0a 45 4e 44 3b 0d 0a 20 0d 0a 49 4e 49 54 49 41 4c 49 5a 45 0d 0a 20 20 ┆END; END; INITIALIZE ┆
0x1a320…1a340 55 78 55 49 6d 70 6c 20 27 55 6e 69 78 55 74 69 6c 27 0d 0a 3a 20 64 61 74 61 42 73 73 0d 0a 2c ┆UxUImpl 'UnixUtil' : dataBss ,┆
0x1a340…1a360 20 6f 62 6a 44 69 72 20 20 20 20 20 20 20 27 6f 62 6a 44 69 72 27 0d 0a 2c 20 73 63 68 65 64 75 ┆ objDir 'objDir' , schedu┆
0x1a360…1a380 6c 65 72 20 20 20 20 27 73 63 68 65 64 75 6c 65 72 27 0d 0a 2c 20 61 6c 6c 6f 63 61 74 65 20 20 ┆ler 'scheduler' , allocate ┆
0x1a380…1a3a0 20 20 20 27 61 6c 6c 6f 63 61 74 65 27 0d 0a 7b 20 75 6e 69 78 43 6c 6f 63 6b 20 20 20 20 27 75 ┆ 'allocate' æ unixClock 'u┆
0x1a3a0…1a3c0 6e 69 78 43 6c 6f 63 6b 27 7d 0d 0a 2c 20 75 74 69 6c 45 6e 76 20 20 20 20 20 20 27 2a 2a 27 0d ┆nixClock'å , utilEnv '**' ┆
0x1a3c0…1a3e0 0a 20 0d 0a 45 4e 44 2e 20 7b 20 55 78 55 44 65 66 20 7d 0d 0a 20 0d 0a 20 0d 0a 1a 1a 1a 1a 1a ┆ END. æ UxUDef å ┆
0x1a3e0…1a400 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x1a400…1a600 (21, 1, 1) DataBlock {»INIT.SA«}
0x1a600…1a800 (21, 1, 2) DataBlock {»UNIJCST.SA«}
[…0x1…]
0x1aa00…1aa80 (21, 1, 4) DataBlock {»INIT.SA«}
0x1aa80…1aaa0 61 73 74 65 72 66 69 6c 65 29 5d 2c 6f 75 74 20 75 73 65 64 2c 20 30 29 2c 0d 0a 20 20 20 20 20 ┆asterfile)Å,out used, 0), ┆
0x1aaa0…1aac0 20 20 20 20 20 20 20 20 6d 61 73 74 65 72 46 69 6c 65 5b 69 2e 2e 65 6c 65 6d 65 6e 74 73 28 6d ┆ masterFileÆi..elements(m┆
0x1aac0…1aae0 61 73 74 65 72 66 69 6c 65 29 5d 29 3b 0d 0a 20 0d 0a 20 20 20 20 7b 20 49 6e 69 74 20 4f 70 74 ┆asterfile)Å); æ Init Opt┆
0x1aae0…1ab00 69 66 73 20 7d 0d 0a 20 20 20 20 43 68 65 63 6b 4f 6b 28 66 69 6c 73 79 73 2e 28 65 78 63 6c 75 ┆ifs å CheckOk(filsys.(exclu┆
0x1ab00…1ab20 64 65 2b 31 29 28 20 73 74 64 4f 75 74 20 29 2c 20 27 20 69 6e 69 74 69 61 6c 69 73 65 20 27 20 ┆de+1)( stdOut ), ' initialise ' ┆
0x1ab20…1ab40 29 3b 0d 0a 20 0d 0a 20 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 72 65 73 3a 3d 67 65 74 45 ┆); do begin res:=getE┆
0x1ab40…1ab60 78 63 65 70 74 69 6f 6e 3b 0d 0a 20 20 20 20 72 65 73 2e 6f 72 67 4e 6f 3a 3d 30 3b 0d 0a 20 20 ┆xception; res.orgNo:=0; ┆
0x1ab60…1ab80 20 20 72 65 73 2e 6f 72 67 53 79 73 3a 3d 37 3b 0d 0a 70 72 69 6e 74 56 61 72 28 27 4f 70 74 69 ┆ res.orgSys:=7; printVar('Opti┆
0x1ab80…1aba0 49 6e 69 74 20 65 78 63 65 70 74 69 6f 6e 3d 20 27 2c 72 65 73 29 3b 0d 0a 20 20 20 20 6f 62 6a ┆Init exception= ',res); obj┆
0x1aba0…1abc0 52 65 74 75 72 6e 28 72 65 73 29 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 65 6e 64 3b 20 20 7b 20 52 75 ┆Return(res); end; end; æ Ru┆
0x1abc0…1abe0 6e 20 7d 0d 0a 20 0d 0a 65 6e 74 72 79 20 70 61 73 63 61 6c 65 72 72 6f 72 20 77 69 74 68 20 72 ┆n å entry pascalerror with r┆
0x1abe0…1ac00 65 63 6f 72 64 20 74 74 3a 5e 5e 20 65 6e 64 3b 0d 0a 62 65 67 69 6e 20 65 6e 64 3b 0d 0a 20 0d ┆ecord tt:^^ end; begin end; ┆
0x1ac00…1ae00 (21, 1, 5) DataBlock {»UNIJCST.SA«}
[…0x14…]
0x1d500…1d520 74 49 6e 74 20 28 69 4c 69 6e 65 2c 20 70 6f 73 29 3b 0d 0a 45 4e 44 3b 20 20 7b 72 65 61 64 49 ┆tInt (iLine, pos); END; æreadI┆
0x1d520…1d540 6e 74 7d 0d 0a 20 0d 0a 20 0d 0a 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 72 65 61 64 54 65 78 74 ┆ntå PROCEDURE readText┆
0x1d540…1d560 20 28 74 78 74 2c 20 76 61 6c 20 3a 20 73 68 6f 72 74 49 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ (txt, val : shortId; ┆
0x1d560…1d580 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 6c 43 68 61 72 20 3a 20 63 68 61 72 20 20 20 20 29 3b ┆ fillChar : char );┆
0x1d580…1d5a0 0d 0a 42 45 47 49 4e 0d 0a 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 74 78 74 29 3b 0d 0a 20 20 20 ┆ BEGIN printLine (txt); ┆
0x1d5a0…1d5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x1d600…1d800 (23, 1, 6) DataBlock {»UNIJCST.SA«}
[…0x1…]
0x1da00…1da20 (23, 1, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 ┆ ┆
0x1da20…1da40 20 78 43 68 65 63 6b 20 28 20 74 65 72 6d 49 6f 20 28 73 74 64 49 6e 2c 20 52 65 61 64 53 65 71 ┆ xCheck ( termIo (stdIn, ReadSeq┆
0x1da40…1da60 2c 20 69 4c 69 6e 65 29 29 3b 0d 0a 20 20 70 6f 73 20 3a 3d 20 33 3b 0d 0a 20 20 67 65 74 54 65 ┆, iLine)); pos := 3; getTe┆
0x1da60…1da80 78 74 20 28 69 4c 69 6e 65 2c 20 76 61 6c 2c 20 66 69 6c 6c 43 68 61 72 2c 20 70 6f 73 29 3b 0d ┆xt (iLine, val, fillChar, pos); ┆
0x1da80…1daa0 0a 45 4e 44 3b 20 20 7b 72 65 61 64 54 65 78 74 7d 0d 0a 20 0d 0a 7b 24 45 7d 0d 0a 20 0d 0a 50 ┆ END; æreadTextå æ$Eå P┆
0x1daa0…1dac0 52 4f 43 45 44 55 52 45 20 70 72 69 6e 74 4d 65 6e 75 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 70 72 ┆ROCEDURE printMenu; BEGIN pr┆
0x1dac0…1dae0 69 6e 74 4c 69 6e 65 20 28 27 20 20 30 20 3a 20 70 72 69 6e 74 4d 65 6e 75 20 27 29 3b 0d 0a 20 ┆intLine (' 0 : printMenu '); ┆
0x1dae0…1db00 20 70 72 69 6e 74 4c 69 6e 65 20 28 27 39 30 31 20 3a 20 47 45 54 20 52 45 46 53 20 74 6f 20 43 ┆ printLine ('901 : GET REFS to C┆
0x1db00…1db20 4c 4f 43 4b 2c 20 53 43 46 53 2c 20 55 4e 49 50 53 20 27 29 3b 0d 0a 20 20 70 72 69 6e 74 4c 69 ┆LOCK, SCFS, UNIPS '); printLi┆
0x1db20…1db40 6e 65 20 28 27 39 30 32 20 3a 20 49 4e 49 54 20 43 41 4c 4c 20 54 4f 20 53 43 46 53 20 27 29 3b ┆ne ('902 : INIT CALL TO SCFS ');┆
0x1db40…1db60 0d 0a 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 27 20 27 29 3b 0d 0a 20 20 70 72 69 6e 74 4c 69 6e ┆ printLine (' '); printLin┆
0x1db60…1db80 65 20 28 27 38 30 31 20 3a 20 63 6c 6f 63 6b 2e 73 65 74 43 6c 6f 63 6b 20 27 29 3b 0d 0a 20 20 ┆e ('801 : clock.setClock '); ┆
0x1db80…1dba0 70 72 69 6e 74 4c 69 6e 65 20 28 27 38 30 32 20 3a 20 63 6c 6f 63 6b 2e 67 65 74 43 6c 6f 63 6b ┆printLine ('802 : clock.getClock┆
0x1dba0…1dbc0 20 27 29 3b 0d 0a 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 27 20 27 29 3b 0d 0a 20 20 70 72 69 6e ┆ '); printLine (' '); prin┆
0x1dbc0…1dbe0 74 4c 69 6e 65 20 28 27 20 20 31 20 3a 20 49 4e 49 54 20 43 41 4c 4c 20 54 4f 20 55 4e 49 50 53 ┆tLine (' 1 : INIT CALL TO UNIPS┆
0x1dbe0…1dc00 20 27 29 3b 0d 0a 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 27 20 20 32 20 3a 20 49 4e 43 4c 55 44 ┆ '); printLine (' 2 : INCLUD┆
0x1dc00…1de00 (23, 1, 9) DataBlock {»UNIJCST.SA«}
[…0x1…]
0x1e000…1e180 (24, 0, 1) DataBlock {»ABORT.CF«}
0x1e180…1e1a0 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 ┆ ┆
[…0x3…]
0x1e200…1e220 (24, 0, 2) 20 74 45 58 43 4c 55 44 45 3b 0d 0a 76 61 72 20 72 65 73 20 3a 20 72 65 73 75 6c 74 74 79 70 65 ┆ tEXCLUDE; var res : resulttype┆
0x1e220…1e240 3b 0d 0a 62 65 67 69 6e 0d 0a 69 6e 0d 0a 20 20 69 66 20 72 65 73 2e 6d 61 69 6e 3d 6f 6b 20 74 ┆; begin in if res.main=ok t┆
0x1e240…1e260 68 65 6e 20 70 72 69 6e 74 74 65 78 74 28 27 65 78 63 6c 75 64 65 20 6f 6b 20 27 29 20 65 6c 73 ┆hen printtext('exclude ok ') els┆
0x1e260…1e280 65 0d 0a 20 20 65 78 63 65 70 74 69 6f 6e 28 72 65 73 29 3b 0d 0a 64 6f 0d 0a 20 20 70 72 69 6e ┆e exception(res); do prin┆
0x1e280…1e2a0 74 65 72 72 6f 72 28 27 20 65 78 63 6c 75 64 65 20 6e 6f 74 20 63 61 6c 6c 65 64 20 27 29 3b 0d ┆terror(' exclude not called '); ┆
0x1e2a0…1e2c0 0a 65 6e 64 20 3b 0d 0a 20 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 50 52 45 50 45 58 45 43 3b 0d ┆ end ; procedure tPREPEXEC; ┆
0x1e2c0…1e2e0 0a 63 6f 6e 73 74 20 76 61 6c 4d 61 78 3d 34 30 30 3b 0d 0a 76 61 72 20 72 65 73 20 3a 20 72 65 ┆ const valMax=400; var res : re┆
0x1e2e0…1e300 73 75 6c 74 54 79 70 65 3b 0d 0a 20 20 20 20 70 72 6f 67 3a 20 61 72 72 61 79 20 5b 31 2e 2e 35 ┆sultType; prog: array Æ1..5┆
0x1e300…1e320 30 5d 20 6f 66 20 63 68 61 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0Å of char; ┆
0x1e320…1e340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x1e380…1e3a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 2c 76 2c 74 6f 70 3a 20 69 6e 74 65 67 65 72 ┆ i,v,top: integer┆
0x1e3a0…1e3c0 3b 0d 0a 20 20 20 20 76 61 6c 75 65 73 20 3a 20 61 72 72 61 79 20 5b 30 2e 2e 33 39 39 5d 20 6f ┆; values : array Æ0..399Å o┆
0x1e3c0…1e3e0 66 20 63 68 61 72 3b 0d 0a 20 20 20 20 76 61 6c 20 3a 20 61 72 72 61 79 20 5b 31 2e 2e 34 30 5d ┆f char; val : array Æ1..40Å┆
0x1e3e0…1e400 20 6f 66 20 63 68 61 72 3b 0d 0a 62 65 67 69 6e 0d 0a 69 6e 0d 0a 20 20 72 65 61 64 74 65 78 74 ┆ of char; begin in readtext┆
0x1e400…1e580 (24, 0, 3) DataBlock {»VERSACUT.CF«}
0x1e580…1e5a0 6c 6c 3b 68 6d 78 00 11 69 6e 70 75 74 20 76 65 72 73 61 63 75 74 2e 72 6f 00 00 16 69 6e 70 75 ┆ll;hmx input versacut.ro inpu┆
0x1e5a0…1e5c0 74 20 61 73 6d 6c 69 62 2e 63 68 6b 65 78 74 2e 72 6f 00 14 6c 69 62 20 65 6f 73 6c 69 62 2e 65 ┆t asmlib.chkext.ro lib eoslib.e┆
0x1e5c0…1e5e0 6f 73 6c 69 62 2e 72 6f 00 16 6c 69 62 20 65 6f 73 6c 69 62 2e 70 61 73 63 61 6c 69 62 2e 72 6f ┆oslib.ro lib eoslib.pascalib.ro┆
0x1e5e0…1e600 00 03 65 6e 64 00 00 10 3d 64 65 6c 20 76 65 72 73 61 63 75 74 2e 72 6f 00 10 3d 64 65 6c 20 76 ┆ end =del versacut.ro =del v┆
0x1e600…1e620 (24, 0, 4) 20 70 72 69 6e 74 4c 69 6e 65 20 28 27 20 36 36 20 3a 20 41 4c 41 52 4d 20 27 29 3b 0d 0a 20 20 ┆ printLine (' 66 : ALARM '); ┆
0x1e620…1e640 70 72 69 6e 74 4c 69 6e 65 20 28 27 20 37 37 20 3a 20 53 49 47 53 41 47 20 27 29 3b 0d 0a 20 20 ┆printLine (' 77 : SIGSAG '); ┆
0x1e640…1e660 70 72 69 6e 74 4c 69 6e 65 20 28 27 20 38 38 20 3a 20 53 45 54 47 45 54 49 44 20 27 29 3b 0d 0a ┆printLine (' 88 : SETGETID '); ┆
0x1e660…1e680 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 27 20 27 29 3b 0d 0a 20 20 70 72 69 6e 74 4c 69 6e 65 20 ┆ printLine (' '); printLine ┆
0x1e680…1e6a0 28 27 34 30 30 20 3a 20 53 45 54 20 57 41 49 54 20 4c 4f 4f 50 20 27 29 3b 0d 0a 20 20 70 72 69 ┆('400 : SET WAIT LOOP '); pri┆
0x1e6a0…1e6c0 6e 74 4c 69 6e 65 20 28 27 20 27 29 3b 0d 0a 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 27 39 39 39 ┆ntLine (' '); printLine ('999┆
0x1e6c0…1e6e0 20 3a 20 73 74 6f 70 27 29 3b 0d 0a 45 4e 44 3b 20 20 7b 70 72 69 6e 74 4d 65 6e 75 7d 0d 0a 20 ┆ : stop'); END; æprintMenuå ┆
0x1e6e0…1e700 0d 0a 20 0d 0a 20 0d 0a 20 0d 0a 7b 24 45 7d 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 45 54 57 41 ┆ æ$Eå PROCEDURE SETWA┆
0x1e700…1e720 49 54 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 52 45 41 44 49 4e 54 28 27 54 59 50 45 20 23 53 45 43 ┆IT; BEGIN READINT('TYPE #SEC┆
0x1e720…1e740 53 20 3a 20 30 2d 39 39 39 20 3a 20 20 27 2c 57 41 49 54 53 54 45 50 53 29 3b 0d 0a 20 20 57 41 ┆S : 0-999 : ',WAITSTEPS); WA┆
0x1e740…1e760 49 54 53 54 45 50 53 3a 3d 57 41 49 54 53 54 45 50 53 20 2a 20 31 30 30 30 30 30 30 20 3b 0d 0a ┆ITSTEPS:=WAITSTEPS * 1000000 ; ┆
0x1e760…1e780 45 4e 44 3b 0d 0a 20 0d 0a 66 75 6e 63 74 69 6f 6e 20 6c 61 73 74 63 68 61 72 28 73 3a 66 75 6c ┆END; function lastchar(s:ful┆
0x1e780…1e7a0 6c 69 64 29 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 76 61 72 20 69 2c 20 6c 61 73 74 2c 20 6c 65 ┆lid) : integer; var i, last, le┆
0x1e7a0…1e7c0 6e 67 74 68 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 69 3a 3d 30 3b 20 ┆ngth : integer; begin i:=0; ┆
0x1e7c0…1e7e0 6c 65 6e 67 74 68 3a 3d 65 6c 65 6d 65 6e 74 73 28 73 29 3b 20 6c 61 73 74 3a 3d 6c 65 6e 67 74 ┆length:=elements(s); last:=lengt┆
0x1e7e0…1e800 68 3b 0d 0a 20 20 77 68 69 6c 65 20 28 69 20 3c 3d 20 6c 65 6e 67 74 68 29 20 61 6e 64 20 28 6c ┆h; while (i <= length) and (l┆
0x1e800…1e980 (24, 0, 5) DataBlock {»NEWEOSLD.CF«}
0x1e980…1e9a0 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 ┆ ┆
[…0x3…]
0x1ea00…1ea20 (24, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 ┆ procedu┆
0x1ea20…1ea40 72 65 20 53 54 44 49 4e 49 54 55 4e 49 50 53 3b 0d 0a 56 41 52 20 52 3a 52 45 53 55 4c 54 54 59 ┆re STDINITUNIPS; VAR R:RESULTTY┆
0x1ea40…1ea60 50 45 3b 20 20 4d 41 58 2c 50 52 4f 43 2c 45 58 54 20 3a 20 53 49 5a 45 54 59 50 45 3b 0d 0a 42 ┆PE; MAX,PROC,EXT : SIZETYPE; B┆
0x1ea60…1ea80 45 47 49 4e 0d 0a 20 20 6d 61 78 3a 3d 6d 61 6b 65 73 69 7a 65 28 2d 31 2c 2d 31 29 3b 0d 0a 20 ┆EGIN max:=makesize(-1,-1); ┆
0x1ea80…1eaa0 20 70 72 6f 63 3a 3d 6d 61 6b 65 73 69 7a 65 28 32 30 30 30 2c 31 30 30 30 29 3b 0d 0a 20 20 65 ┆ proc:=makesize(2000,1000); e┆
0x1eaa0…1eac0 78 74 3a 3d 6d 61 6b 65 73 69 7a 65 28 32 30 30 30 30 2c 35 30 30 30 29 3b 0d 0a 20 20 20 20 52 ┆xt:=makesize(20000,5000); R┆
0x1eac0…1eae0 3a 3d 75 78 55 70 73 2e 49 4e 49 54 28 3b 4d 41 58 2c 50 52 4f 43 2c 45 58 54 29 3b 0d 0a 45 4e ┆:=uxUps.INIT(;MAX,PROC,EXT); EN┆
0x1eae0…1eb00 44 3b 0d 0a 20 0d 0a 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 49 4e 49 54 53 43 3b 0d 0a 42 45 47 ┆D; PROCEDURE INITSC; BEG┆
0x1eb00…1eb20 49 4e 20 49 4e 20 58 43 48 45 43 4b 28 53 43 4d 2e 49 4e 49 54 53 43 46 53 29 3b 20 44 4f 20 50 ┆IN IN XCHECK(SCM.INITSCFS); DO P┆
0x1eb20…1eb40 52 49 4e 54 45 52 52 4f 52 28 27 49 4e 49 54 53 43 20 45 52 52 20 27 29 3b 20 45 4e 44 3b 0d 0a ┆RINTERROR('INITSC ERR '); END; ┆
0x1eb40…1eb60 20 0d 0a 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 74 49 4e 43 4c 55 44 45 28 52 45 41 44 4e 41 4d ┆ PROCEDURE tINCLUDE(READNAM┆
0x1eb60…1eb80 45 53 3a 42 4f 4f 4c 45 41 4e 29 3b 0d 0a 56 41 52 20 54 45 52 4d 4e 41 4d 45 2c 20 4c 4f 47 49 ┆ES:BOOLEAN); VAR TERMNAME, LOGI┆
0x1eb80…1eba0 4e 50 52 4f 47 3a 20 41 52 52 41 59 20 5b 31 2e 2e 35 30 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 42 ┆NPROG: ARRAY Æ1..50Å OF CHAR; B┆
0x1eba0…1ebc0 45 47 49 4e 0d 0a 49 46 20 52 45 41 44 4e 41 4d 45 53 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 20 ┆EGIN IF READNAMES THEN BEGIN ┆
0x1ebc0…1ebe0 20 52 45 41 44 54 45 58 54 28 27 54 59 50 45 20 27 27 54 45 52 4d 4e 41 4d 45 27 27 20 3d 20 27 ┆ READTEXT('TYPE ''TERMNAME'' = '┆
0x1ebe0…1ec00 2c 54 45 52 4d 4e 41 4d 45 2c 43 48 52 28 30 29 29 3b 0d 0a 7b 23 42 20 20 70 72 69 6e 74 76 61 ┆,TERMNAME,CHR(0)); æ#B printva┆
0x1ec00…1ec20 (24, 0, 7) 61 73 74 20 3d 20 6c 65 6e 67 74 68 29 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 69 3a 3d 20 ┆ast = length) do begin i:= ┆
0x1ec20…1ec40 69 2b 31 3b 0d 0a 20 20 20 20 69 66 20 6f 72 64 28 73 5b 69 5d 29 20 3c 3d 20 33 32 20 74 68 65 ┆i+1; if ord(sÆiÅ) <= 32 the┆
0x1ec40…1ec60 6e 20 6c 61 73 74 3a 3d 69 2d 31 3b 0d 0a 20 65 6e 64 20 3b 0d 0a 20 6c 61 73 74 63 68 61 72 3a ┆n last:=i-1; end ; lastchar:┆
0x1ec60…1ec80 3d 6c 61 73 74 3b 0d 0a 65 6e 64 20 3b 0d 0a 20 0d 0a 20 0d 0a 20 0d 0a 20 0d 0a 50 52 4f 43 45 ┆=last; end ; PROCE┆
0x1ec80…1eca0 44 55 52 45 20 45 4e 53 72 65 66 73 3b 0d 0a 56 41 52 20 52 3a 52 45 53 55 4c 54 54 59 50 45 3b ┆DURE ENSrefs; VAR R:RESULTTYPE;┆
0x1eca0…1ecc0 20 75 73 65 64 2c 6b 69 6e 64 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 ┆ used,kind : integer; BEGIN ┆
0x1ecc0…1ece0 20 20 58 43 48 45 43 4b 28 53 54 55 42 52 45 46 2e 47 45 54 52 45 46 28 4f 55 54 20 43 4c 4b 3b ┆ XCHECK(STUBREF.GETREF(OUT CLK;┆
0x1ece0…1ed00 49 4e 20 27 63 6c 6f 63 6b 27 2c 20 4f 55 54 20 75 73 65 64 2c 20 4f 55 54 20 6b 69 6e 64 29 29 ┆IN 'clock', OUT used, OUT kind))┆
0x1ed00…1ed20 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x1ed20…1ed40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x1ed80…1eda0 20 20 20 20 20 20 58 43 48 45 43 4b 28 53 54 55 42 52 45 46 2e 47 45 54 52 45 46 28 4f 55 54 20 ┆ XCHECK(STUBREF.GETREF(OUT ┆
0x1eda0…1edc0 75 78 55 70 73 3b 20 49 4e 20 27 75 6e 69 70 73 27 2c 20 4f 55 54 20 75 73 65 64 2c 20 4f 55 54 ┆uxUps; IN 'unips', OUT used, OUT┆
0x1edc0…1ede0 20 6b 69 6e 64 29 29 3b 0d 0a 20 20 20 20 58 43 48 45 43 4b 28 53 54 55 42 52 45 46 2e 47 45 54 ┆ kind)); XCHECK(STUBREF.GET┆
0x1ede0…1ee00 52 45 46 28 4f 55 54 20 53 43 4d 3b 20 49 4e 20 27 73 63 66 73 27 2c 20 4f 55 54 20 75 73 65 64 ┆REF(OUT SCM; IN 'scfs', OUT used┆
0x1ee00…1ee20 (24, 0, 8) 20 20 65 6e 64 20 3b 0d 0a 75 6e 74 69 6c 20 76 61 6c 5b 31 5d 20 3d 20 27 26 27 20 3b 0d 0a 20 ┆ end ; until valÆ1Å = '&' ; ┆
0x1ee20…1ee40 20 66 6d 6c 52 65 66 3a 3d 20 66 6f 72 6d 61 6c 28 33 29 3b 0d 0a 20 20 72 65 73 3a 3d 20 75 70 ┆ fmlRef:= formal(3); res:= up┆
0x1ee40…1ee60 73 2e 70 72 65 70 65 78 65 63 28 4f 55 54 20 66 6d 6c 52 65 66 5e 3b 0d 0a 20 20 20 20 20 20 20 ┆s.prepexec(OUT fmlRef^; ┆
0x1ee60…1ee80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 20 20 70 72 6f 67 5b 31 2e 2e 6c 61 73 74 63 68 ┆ in progÆ1..lastch┆
0x1ee80…1eea0 61 72 28 70 72 6f 67 29 5d 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ar(prog)Å, ┆
0x1eea0…1eec0 20 69 6e 20 20 76 20 29 3b 0d 0a 20 20 78 63 68 65 63 6b 28 63 6f 70 79 28 66 6d 6c 52 65 66 5e ┆ in v ); xcheck(copy(fmlRef^┆
0x1eec0…1eee0 2c 61 72 67 70 74 29 29 3b 0d 0a 20 20 69 66 20 72 65 73 2e 6d 61 69 6e 20 3d 20 6f 6b 20 74 68 ┆,argpt)); if res.main = ok th┆
0x1eee0…1ef00 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆en ┆
0x1ef00…1ef20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x1ef60…1ef80 20 20 20 20 20 77 69 74 68 20 65 61 3d 61 72 67 70 74 5e 5e 20 64 6f 20 62 65 67 69 6e 0d 0a 20 ┆ with ea=argpt^^ do begin ┆
0x1ef80…1efa0 20 20 20 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 76 20 64 6f 20 65 61 5b 69 5d 3a 3d 6f 72 64 28 ┆ for i:= 1 to v do eaÆiÅ:=ord(┆
0x1efa0…1efc0 76 61 6c 75 65 73 5b 74 6f 70 2b 69 2d 31 5d 29 3b 0d 0a 20 20 20 20 70 72 69 6e 74 76 61 72 28 ┆valuesÆtop+i-1Å); printvar(┆
0x1efc0…1efe0 27 76 61 6c 75 65 44 61 74 61 53 65 67 20 3d 20 27 2c 65 61 5b 31 2e 2e 76 5d 29 3b 0d 0a 20 20 ┆'valueDataSeg = ',eaÆ1..vÅ); ┆
0x1efe0…1f000 20 20 70 72 69 6e 74 4c 69 6e 65 28 27 74 79 70 65 20 39 39 39 20 74 6f 20 65 78 69 74 20 61 6e ┆ printLine('type 999 to exit an┆
0x1f000…1f020 (24, 0, 9) 72 28 27 74 65 72 6d 6e 61 6d 65 27 2c 54 45 52 4d 4e 41 4d 45 29 20 45 23 7d 20 20 20 3b 0d 0a ┆r('termname',TERMNAME) E#å ; ┆
0x1f020…1f040 20 20 52 45 41 44 54 45 58 54 28 27 54 59 50 45 20 27 27 4c 4f 47 49 4e 50 52 4f 47 27 27 20 3d ┆ READTEXT('TYPE ''LOGINPROG'' =┆
0x1f040…1f060 20 27 2c 4c 4f 47 49 4e 50 52 4f 47 2c 43 48 52 28 30 29 29 3b 0d 0a 7b 23 42 20 20 50 52 49 4e ┆ ',LOGINPROG,CHR(0)); æ#B PRIN┆
0x1f060…1f080 54 56 41 52 28 27 4c 4f 47 49 4e 50 52 4f 47 27 2c 4c 4f 47 49 4e 50 52 4f 47 29 20 45 23 7d 20 ┆TVAR('LOGINPROG',LOGINPROG) E#å ┆
0x1f080…1f0a0 20 20 20 3b 0d 0a 45 4e 44 20 3b 0d 0a 20 20 49 4e 0d 0a 20 20 49 46 20 4e 4f 54 20 52 45 41 44 ┆ ; END ; IN IF NOT READ┆
0x1f0a0…1f0c0 4e 41 4d 45 53 20 54 48 45 4e 0d 0a 20 20 20 20 58 43 48 45 43 4b 28 20 75 78 55 70 73 2e 49 4e ┆NAMES THEN XCHECK( uxUps.IN┆
0x1f0c0…1f0e0 43 4c 55 44 45 28 4f 55 54 20 55 50 53 47 52 50 2c 20 49 4e 20 53 43 4d 3b 0d 0a 20 20 20 20 20 ┆CLUDE(OUT UPSGRP, IN SCM; ┆
0x1f0e0…1f100 20 20 20 20 20 20 20 27 76 65 72 73 61 66 73 2f 65 6f 73 63 3a 30 2e 2e 77 32 2e 65 6f 27 2c 27 ┆ 'versafs/eosc:0..w2.eo','┆
0x1f100…1f120 76 65 72 73 61 66 73 2f 65 6f 73 63 3a 30 2e 2e 65 64 2e 65 6f 27 29 29 3b 0d 0a 20 20 49 46 20 ┆versafs/eosc:0..ed.eo')); IF ┆
0x1f120…1f140 52 45 41 44 4e 41 4d 45 53 20 54 48 45 4e 0d 0a 20 20 20 20 58 43 48 45 43 4b 28 20 75 78 55 70 ┆READNAMES THEN XCHECK( uxUp┆
0x1f140…1f160 73 2e 49 4e 43 4c 55 44 45 28 4f 55 54 20 55 50 53 47 52 50 2c 20 49 4e 20 53 43 4d 3b 0d 0a 20 ┆s.INCLUDE(OUT UPSGRP, IN SCM; ┆
0x1f160…1f180 20 20 20 20 20 20 20 20 20 20 20 49 4e 20 54 45 52 4d 4e 41 4d 45 5b 31 2e 2e 6c 61 73 74 63 68 ┆ IN TERMNAMEÆ1..lastch┆
0x1f180…1f1a0 61 72 28 54 45 52 4d 4e 41 4d 45 29 5d 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 20 4c ┆ar(TERMNAME)Å, IN L┆
0x1f1a0…1f1c0 4f 47 49 4e 50 52 4f 47 5b 31 2e 2e 6c 61 73 74 63 68 61 72 28 4c 4f 47 49 4e 50 52 4f 47 29 5d ┆OGINPROGÆ1..lastchar(LOGINPROG)Å┆
0x1f1c0…1f1e0 29 29 3b 0d 0a 20 20 44 4f 0d 0a 20 20 20 20 50 52 49 4e 54 45 52 52 4f 52 28 27 49 4e 43 4c 55 ┆)); DO PRINTERROR('INCLU┆
0x1f1e0…1f200 44 45 20 45 52 52 4f 52 20 27 29 3b 0d 0a 45 4e 44 3b 0d 0a 20 0d 0a 70 72 6f 63 65 64 75 72 65 ┆DE ERROR '); END; procedure┆
0x1f200…1f220 (24, 0, 10) 2c 20 4f 55 54 20 6b 69 6e 64 29 29 3b 0d 0a 20 20 20 20 52 3a 3d 53 54 55 42 52 45 46 2e 47 45 ┆, OUT kind)); R:=STUBREF.GE┆
0x1f220…1f240 54 52 45 46 28 4f 55 54 20 66 73 3b 20 49 4e 20 27 24 27 2c 20 4f 55 54 20 75 73 65 64 2c 20 4f ┆TREF(OUT fs; IN '$', OUT used, O┆
0x1f240…1f260 55 54 20 6b 69 6e 64 29 3b 0d 0a 45 4e 44 3b 0d 0a 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 45 ┆UT kind); END; PROCEDURE SE┆
0x1f260…1f280 54 6b 6c 6f 6b 6b 65 6e 3b 0d 0a 76 61 72 20 73 73 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 42 45 ┆Tklokken; var ss : integer; BE┆
0x1f280…1f2a0 47 49 4e 0d 0a 20 20 20 20 20 72 65 61 64 49 6e 74 28 27 74 79 70 65 20 62 61 73 65 54 69 6d 65 ┆GIN readInt('type baseTime┆
0x1f2a0…1f2c0 20 61 73 20 23 73 65 63 73 20 3a 20 20 27 2c 73 73 29 3b 0d 0a 20 20 20 20 20 58 43 48 45 43 4b ┆ as #secs : ',ss); XCHECK┆
0x1f2c0…1f2e0 28 43 4c 4b 2e 53 45 54 43 6c 6f 63 6b 28 3b 20 73 73 20 29 29 3b 0d 0a 45 4e 44 20 3b 0d 0a 20 ┆(CLK.SETClock(; ss )); END ; ┆
0x1f2e0…1f300 0d 0a 70 72 6f 63 65 64 75 72 65 20 67 65 74 6b 6c 6f 6b 6b 65 6e 3b 0d 0a 76 61 72 20 73 73 20 ┆ procedure getklokken; var ss ┆
0x1f300…1f320 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 78 63 68 65 63 6b 28 63 6c 6b 2e ┆: integer; begin xcheck(clk.┆
0x1f320…1f340 67 65 74 43 6c 6f 63 6b 28 3b 20 6f 75 74 20 73 73 29 29 3b 0d 0a 20 20 70 72 69 6e 74 49 6e 74 ┆getClock(; out ss)); printInt┆
0x1f340…1f360 28 27 74 69 6d 65 20 69 73 20 3a 20 20 27 2c 73 73 29 3b 0d 0a 65 6e 64 20 3b 0d 0a 20 0d 0a 50 ┆('time is : ',ss); end ; P┆
0x1f360…1f380 52 4f 43 45 44 55 52 45 20 49 4e 49 54 55 4e 49 50 53 3b 0d 0a 56 41 52 20 52 3a 52 45 53 55 4c ┆ROCEDURE INITUNIPS; VAR R:RESUL┆
0x1f380…1f3a0 54 54 59 50 45 3b 20 4d 41 58 2c 50 52 4f 43 2c 45 58 54 3a 53 49 5a 45 54 59 50 45 3b 0d 0a 20 ┆TTYPE; MAX,PROC,EXT:SIZETYPE; ┆
0x1f3a0…1f3c0 20 20 20 75 73 65 72 2c 20 6b 65 72 6e 65 6c 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 42 45 47 49 4e ┆ user, kernel: integer; BEGIN┆
0x1f3c0…1f3e0 0d 0a 20 20 72 65 61 64 69 6e 74 28 27 6d 61 78 2e 75 73 65 72 3f 20 27 2c 75 73 65 72 29 3b 0d ┆ readint('max.user? ',user); ┆
0x1f3e0…1f400 0a 20 20 72 65 61 64 69 6e 74 28 27 6d 61 78 2e 6b 65 72 6e 65 6c 20 28 30 20 6d 65 61 6e 73 20 ┆ readint('max.kernel (0 means ┆
0x1f400…1f420 (25, 1, 1) 64 20 65 78 65 63 20 27 29 3b 0d 0a 20 20 65 6e 64 0d 0a 20 20 65 6c 73 65 0d 0a 20 20 65 78 63 ┆d exec '); end else exc┆
0x1f420…1f440 65 70 74 69 6f 6e 28 72 65 73 29 3b 0d 0a 64 6f 0d 0a 20 20 70 72 69 6e 74 65 72 72 6f 72 28 27 ┆eption(res); do printerror('┆
0x1f440…1f460 70 72 65 70 65 78 65 63 20 65 72 72 6f 72 20 3d 20 27 29 3b 0d 0a 65 6e 64 20 3b 0d 0a 20 0d 0a ┆prepexec error = '); end ; ┆
0x1f460…1f480 70 72 6f 63 65 64 75 72 65 20 74 46 4f 52 4b 42 45 47 49 4e 3b 0d 0a 76 61 72 20 72 65 73 20 3a ┆procedure tFORKBEGIN; var res :┆
0x1f480…1f4a0 20 72 65 73 75 6c 74 54 79 70 65 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 69 6e 0d 0a 20 20 20 20 72 ┆ resultType; begin in r┆
0x1f4a0…1f4c0 65 73 3a 3d 20 75 70 73 2e 66 6f 72 6b 62 65 67 69 6e 28 77 33 2c 77 33 29 3b 20 7b 20 77 33 20 ┆es:= ups.forkbegin(w3,w3); æ w3 ┆
0x1f4c0…1f4e0 77 69 6c 6c 20 6e 6f 74 20 63 61 75 73 65 20 70 72 6f 62 6c 65 6d 73 20 7d 0d 0a 20 20 20 20 69 ┆will not cause problems å i┆
0x1f4e0…1f500 66 20 72 65 73 2e 6d 61 69 6e 3d 6f 6b 20 74 68 65 6e 20 70 72 69 6e 74 49 6e 74 28 27 43 68 69 ┆f res.main=ok then printInt('Chi┆
0x1f500…1f520 6c 64 49 64 20 3d 20 27 2c 72 65 73 2e 6f 72 67 4e 6f 29 20 65 6c 73 65 0d 0a 20 20 20 20 65 78 ┆ldId = ',res.orgNo) else ex┆
0x1f520…1f540 63 65 70 74 69 6f 6e 28 72 65 73 29 3b 0d 0a 20 20 20 20 7b 20 63 68 69 6c 64 49 44 20 69 73 20 ┆ception(res); æ childID is ┆
0x1f540…1f560 69 6e 20 72 65 73 75 6c 74 20 7d 0d 0a 20 20 64 6f 0d 0a 20 20 20 20 70 72 69 6e 74 65 72 72 6f ┆in result å do printerro┆
0x1f560…1f580 72 28 27 20 66 6f 72 6b 62 65 67 69 6e 20 65 72 72 6f 72 20 3d 20 27 29 3b 0d 0a 65 6e 64 20 3b ┆r(' forkbegin error = '); end ;┆
0x1f580…1f5a0 0d 0a 20 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 46 4f 52 4b 45 4e 44 3b 0d 0a 76 61 72 20 72 65 ┆ procedure tFORKEND; var re┆
0x1f5a0…1f5c0 73 20 3a 20 72 65 73 75 6c 74 54 79 70 65 3b 0d 0a 62 65 67 69 6e 0d 0a 69 6e 0d 0a 20 20 72 65 ┆s : resultType; begin in re┆
0x1f5c0…1f5e0 73 3a 3d 20 75 70 73 2e 66 6f 72 6b 65 6e 64 3b 0d 0a 20 20 69 66 20 72 65 73 2e 6d 61 69 6e 3d ┆s:= ups.forkend; if res.main=┆
0x1f5e0…1f600 6f 6b 20 74 68 65 6e 20 70 72 69 6e 74 4c 69 6e 65 28 27 66 6f 72 6b 45 6e 64 20 6f 6b 20 27 29 ┆ok then printLine('forkEnd ok ')┆
0x1f600…1f620 (25, 1, 2) 45 54 57 41 49 54 3b 0d 0a 20 0d 0a 20 20 20 20 20 20 39 39 39 20 3a 20 7b 23 42 20 20 70 72 69 ┆ETWAIT; 999 : æ#B pri┆
0x1f620…1f640 6e 74 54 65 78 74 20 28 27 2a 2a 2a 2a 2a 20 20 20 20 20 73 74 6f 70 20 74 65 73 74 20 55 6e 69 ┆ntText ('***** stop test Uni┆
0x1f640…1f660 78 46 73 20 20 20 20 20 2a 2a 2a 2a 2a 20 27 29 20 45 23 7d 20 20 3b 0d 0a 20 0d 0a 20 20 20 20 ┆xFs ***** ') E#å ; ┆
0x1f660…1f680 20 20 4f 54 48 45 52 57 49 53 45 20 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 27 75 6e 6b 6e 6f 77 ┆ OTHERWISE printLine ('unknow┆
0x1f680…1f6a0 6e 20 74 65 73 74 4e 6f 27 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 20 20 7b 63 61 73 65 7d 0d 0a 44 ┆n testNo'); END; æcaseå D┆
0x1f6a0…1f6c0 4f 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 72 65 73 20 3a 3d 20 47 65 74 45 78 63 65 70 74 ┆O BEGIN res := GetExcept┆
0x1f6c0…1f6e0 69 6f 6e 3b 0d 0a 20 20 20 20 70 72 69 6e 74 56 61 72 20 28 27 65 78 63 65 70 74 69 6f 6e 20 3d ┆ion; printVar ('exception =┆
0x1f6e0…1f700 20 27 2c 20 72 65 73 29 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 20 0d 0a 7b 23 42 20 20 20 70 72 69 6e ┆ ', res); END; æ#B prin┆
0x1f700…1f720 74 56 61 72 20 28 27 65 6e 64 20 74 65 73 74 4e 6f 20 3d 20 27 2c 20 74 65 73 74 6e 6f 29 20 20 ┆tVar ('end testNo = ', testno) ┆
0x1f720…1f740 45 23 7d 20 20 20 3b 0d 0a 20 0d 0a 20 20 55 4e 54 49 4c 20 20 20 74 65 73 74 4e 6f 20 3d 20 39 ┆E#å ; UNTIL testNo = 9┆
0x1f740…1f760 39 39 3b 0d 0a 45 4e 44 3b 20 20 7b 4f 54 48 45 52 57 49 53 45 7d 0d 0a 20 0d 0a 20 0d 0a 45 4e ┆99; END; æOTHERWISEå EN┆
0x1f760…1f780 44 3b 20 20 7b 75 6e 69 78 54 65 73 74 7d 0d 0a 20 0d 0a 49 4e 49 54 49 41 4c 49 5a 45 20 69 55 ┆D; æunixTestå INITIALIZE iU┆
0x1f780…1f7a0 6e 69 78 46 73 54 65 73 74 20 27 75 6e 69 78 74 65 73 74 27 3a 0d 0a 20 20 20 20 20 20 20 20 20 ┆nixFsTest 'unixtest': ┆
0x1f7a0…1f7c0 20 20 73 74 75 62 52 65 66 20 27 6f 62 6a 64 69 72 27 0d 0a 20 0d 0a 45 4e 44 2e 0d 0a 20 0d 0a ┆ stubRef 'objdir' END. ┆
0x1f7c0…1f7e0 20 0d 0a 20 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x1f7e0…1f800 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x1f800…1f820 (25, 1, 3) 73 75 6c 74 74 79 70 65 3b 0d 0a 20 20 20 69 64 69 64 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 62 ┆sulttype; idid : integer; b┆
0x1f820…1f840 65 67 69 6e 0d 0a 69 6e 0d 0a 20 20 72 65 61 64 49 6e 74 28 27 74 79 70 65 20 69 64 69 64 20 3d ┆egin in readInt('type idid =┆
0x1f840…1f860 20 27 2c 69 64 69 64 29 3b 0d 0a 20 20 72 65 73 3a 3d 75 70 73 2e 73 65 74 67 65 74 69 64 28 3b ┆ ',idid); res:=ups.setgetid(;┆
0x1f860…1f880 69 6e 20 69 64 69 64 2c 20 6f 75 74 20 69 64 69 64 29 3b 0d 0a 20 20 69 66 20 72 65 73 2e 6d 61 ┆in idid, out idid); if res.ma┆
0x1f880…1f8a0 69 6e 3d 6f 6b 20 74 68 65 6e 20 70 72 69 6e 74 49 6e 74 28 27 69 64 20 3d 20 27 2c 69 64 69 64 ┆in=ok then printInt('id = ',idid┆
0x1f8a0…1f8c0 29 20 65 6c 73 65 0d 0a 20 20 65 78 63 65 70 74 69 6f 6e 28 72 65 73 29 3b 0d 0a 64 6f 0d 0a 20 ┆) else exception(res); do ┆
0x1f8c0…1f8e0 20 70 72 69 6e 74 65 72 72 6f 72 28 27 73 65 74 67 65 74 69 64 20 65 72 72 6f 72 20 27 29 3b 0d ┆ printerror('setgetid error '); ┆
0x1f8e0…1f900 0a 65 6e 64 20 3b 0d 0a 20 0d 0a 7b 24 45 7d 0d 0a 20 0d 0a 42 45 47 49 4e 0d 0a 66 6d 6c 52 65 ┆ end ; æ$Eå BEGIN fmlRe┆
0x1f900…1f920 66 3a 3d 20 66 6f 72 6d 61 6c 28 31 29 3b 0d 0a 78 63 68 65 63 6b 28 63 6f 70 79 28 66 6d 6c 52 ┆f:= formal(1); xcheck(copy(fmlR┆
0x1f920…1f940 65 66 5e 2c 66 69 6c 65 45 6e 76 29 29 3b 0d 0a 66 6d 6c 52 65 66 3a 3d 20 66 6f 72 6d 61 6c 28 ┆ef^,fileEnv)); fmlRef:= formal(┆
0x1f940…1f960 32 29 3b 0d 0a 78 63 68 65 63 6b 28 63 6f 70 79 28 66 6d 6c 52 65 66 5e 2c 55 50 53 29 29 3b 0d ┆2); xcheck(copy(fmlRef^,UPS)); ┆
0x1f960…1f980 0a 20 20 78 43 68 65 63 6b 20 28 20 43 6f 70 79 20 28 66 69 6c 65 45 6e 76 5e 5e 5b 31 5d 2c 20 ┆ xCheck ( Copy (fileEnv^^Æ1Å, ┆
0x1f980…1f9a0 73 74 64 49 6e 20 29 29 3b 0d 0a 20 20 78 43 68 65 63 6b 20 28 20 43 6f 70 79 20 28 66 69 6c 65 ┆stdIn )); xCheck ( Copy (file┆
0x1f9a0…1f9c0 45 6e 76 5e 5e 5b 32 5d 2c 20 73 74 64 4f 75 74 20 29 29 3b 0d 0a 20 20 78 43 68 65 63 6b 20 28 ┆Env^^Æ2Å, stdOut )); xCheck (┆
0x1f9c0…1f9e0 20 43 6f 70 79 20 28 66 69 6c 65 45 6e 76 5e 5e 5b 33 5d 2c 20 73 74 64 45 72 72 6f 72 20 29 29 ┆ Copy (fileEnv^^Æ3Å, stdError ))┆
0x1f9e0…1fa00 3b 0d 0a 20 0d 0a 20 20 70 72 69 6e 74 4c 69 6e 65 20 28 27 2a 2a 2a 2a 2a 20 20 20 20 20 73 74 ┆; printLine ('***** st┆
0x1fa00…1fa20 (25, 1, 4) 20 65 6c 73 65 0d 0a 20 20 65 78 63 65 70 74 69 6f 6e 28 72 65 73 29 3b 0d 0a 64 6f 0d 0a 20 20 ┆ else exception(res); do ┆
0x1fa20…1fa40 70 72 69 6e 74 65 72 72 6f 72 28 27 20 66 6f 72 6b 65 6e 64 20 65 72 72 6f 72 20 3d 20 27 29 3b ┆printerror(' forkend error = ');┆
0x1fa40…1fa60 0d 0a 65 6e 64 20 3b 0d 0a 20 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 57 41 49 54 3b 0d 0a 76 61 ┆ end ; procedure tWAIT; va┆
0x1fa60…1fa80 72 20 72 65 73 20 3a 20 72 65 73 75 6c 74 54 79 70 65 3b 0d 0a 20 20 20 20 70 69 64 20 3a 20 6c ┆r res : resultType; pid : l┆
0x1fa80…1faa0 6f 6e 67 3b 0d 0a 20 20 20 20 73 74 61 74 75 73 20 3a 20 6c 6f 6e 67 3b 0d 0a 62 65 67 69 6e 0d ┆ong; status : long; begin ┆
0x1faa0…1fac0 0a 69 6e 0d 0a 20 20 72 65 73 3a 3d 20 75 70 73 2e 77 61 69 74 65 78 69 74 28 3b 4f 55 54 20 70 ┆ in res:= ups.waitexit(;OUT p┆
0x1fac0…1fae0 69 64 2c 4f 55 54 20 73 74 61 74 75 73 29 3b 0d 0a 20 20 69 66 20 72 65 73 2e 6d 61 69 6e 3d 6f ┆id,OUT status); if res.main=o┆
0x1fae0…1fb00 6b 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 70 72 69 6e 74 49 6e 74 28 27 70 69 64 20 ┆k then begin printInt('pid ┆
0x1fb00…1fb20 20 20 3d 20 27 2c 70 69 64 29 3b 0d 0a 20 20 20 20 70 72 69 6e 74 49 6e 74 28 27 73 74 61 74 75 ┆ = ',pid); printInt('statu┆
0x1fb20…1fb40 73 3d 20 27 2c 73 74 61 74 75 73 29 3b 0d 0a 20 20 65 6e 64 20 65 6c 73 65 0d 0a 20 20 65 78 63 ┆s= ',status); end else exc┆
0x1fb40…1fb60 65 70 74 69 6f 6e 28 72 65 73 29 3b 0d 0a 64 6f 20 62 65 67 69 6e 0d 0a 20 20 70 72 69 6e 74 65 ┆eption(res); do begin printe┆
0x1fb60…1fb80 72 72 6f 72 28 27 20 77 61 69 74 20 65 72 72 6f 72 20 3d 20 27 29 3b 0d 0a 65 6e 64 3b 0d 0a 65 ┆rror(' wait error = '); end; e┆
0x1fb80…1fba0 6e 64 20 3b 0d 0a 20 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 50 41 55 53 45 3b 0d 0a 76 61 72 20 ┆nd ; procedure tPAUSE; var ┆
0x1fba0…1fbc0 72 65 73 20 3a 20 72 65 73 75 6c 74 54 79 70 65 3b 0d 0a 62 65 67 69 6e 0d 0a 69 6e 0d 0a 20 20 ┆res : resultType; begin in ┆
0x1fbc0…1fbe0 72 65 73 3a 3d 20 75 70 73 2e 70 61 75 73 65 3b 0d 0a 20 20 69 66 20 72 65 73 2e 6d 61 69 6e 3d ┆res:= ups.pause; if res.main=┆
0x1fbe0…1fc00 6f 6b 20 74 68 65 6e 20 70 72 69 6e 74 4c 69 6e 65 28 27 20 70 61 75 73 65 20 65 6e 64 65 64 20 ┆ok then printLine(' pause ended ┆
0x1fc00…1fe00 (25, 1, 5) 0xe5[0x200]
0x1fe00…1fe20 (25, 1, 6) 61 72 74 20 75 6e 69 70 73 20 6d 65 6e 75 20 70 72 6f 67 72 61 6d 20 20 20 2a 2a 2a 2a 2a 27 29 ┆art unips menu program *****')┆
0x1fe20…1fe40 3b 0d 0a 20 0d 0a 20 20 57 41 49 54 53 54 45 50 53 3a 3d 30 3b 0d 0a 20 0d 0a 20 20 52 45 50 45 ┆; WAITSTEPS:=0; REPE┆
0x1fe40…1fe60 41 54 0d 0a 49 4e 0d 0a 20 20 20 20 72 65 61 64 49 6e 74 20 28 27 74 79 70 65 20 74 65 73 74 6e ┆AT IN readInt ('type testn┆
0x1fe60…1fe80 6f 2f 66 75 6e 63 74 69 6f 6e 20 28 30 3d 68 65 6c 70 2c 20 39 39 39 3d 73 74 6f 70 29 27 2c 20 ┆o/function (0=help, 999=stop)', ┆
0x1fe80…1fea0 74 65 73 74 6e 6f 29 3b 0d 0a 7b 23 42 20 20 70 72 69 6e 74 56 61 72 20 28 27 73 74 61 72 74 20 ┆testno); æ#B printVar ('start ┆
0x1fea0…1fec0 74 65 73 74 4e 6f 20 3d 20 27 2c 20 74 65 73 74 4e 6f 29 20 20 45 23 7d 20 20 3b 0d 0a 20 20 20 ┆testNo = ', testNo) E#å ; ┆
0x1fec0…1fee0 20 46 4f 52 20 57 41 49 54 43 4f 55 4e 54 3a 3d 31 20 54 4f 20 57 41 49 54 53 54 45 50 53 20 44 ┆ FOR WAITCOUNT:=1 TO WAITSTEPS D┆
0x1fee0…1ff00 4f 20 57 41 49 54 53 54 45 50 53 3a 3d 57 41 49 54 53 54 45 50 53 3b 0d 0a 20 20 20 20 20 20 20 ┆O WAITSTEPS:=WAITSTEPS; ┆
0x1ff00…1ff20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x1ff60…1ff80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 ┆ CASE┆
0x1ff80…1ffa0 20 74 65 73 74 4e 6f 20 4f 46 0d 0a 20 20 20 20 20 20 30 20 3a 20 70 72 69 6e 74 4d 65 6e 75 3b ┆ testNo OF 0 : printMenu;┆
0x1ffa0…1ffc0 0d 0a 20 0d 0a 20 20 20 20 20 20 39 30 31 20 3a 20 45 4e 53 72 65 66 73 20 3b 20 20 7b 20 67 65 ┆ 901 : ENSrefs ; æ ge┆
0x1ffc0…1ffe0 74 52 65 66 7d 0d 0a 20 20 20 20 20 20 39 30 32 20 3a 20 49 4e 49 54 53 43 3b 0d 0a 20 0d 0a 20 ┆tRefå 902 : INITSC; ┆
0x1ffe0…20000 20 20 20 20 20 38 30 31 20 3a 20 73 65 74 6b 6c 6f 6b 6b 65 6e 3b 0d 0a 20 20 20 20 20 20 38 30 ┆ 801 : setklokken; 80┆
0x20000…20180 (25, 1, 7) DataBlock {»INCLUDE.CF«}
0x20180…201a0 63 6c 75 64 65 2e 72 6f 00 16 69 6e 70 75 74 20 61 73 6d 6c 69 62 2e 63 68 6b 65 78 74 2e 72 6f ┆clude.ro input asmlib.chkext.ro┆
0x201a0…201c0 00 14 6c 69 62 20 65 6f 73 6c 69 62 2e 65 6f 73 6c 69 62 2e 72 6f 00 16 6c 69 62 20 65 6f 73 6c ┆ lib eoslib.eoslib.ro lib eosl┆
0x201c0…201e0 69 62 2e 70 61 73 63 61 6c 69 62 2e 72 6f 00 03 65 6e 64 00 00 0f 3d 64 65 6c 85 69 6e 63 6c 75 ┆ib.pascalib.ro end =del inclu┆
0x201e0…20200 64 65 2e 6c 6c 00 00 0f 3d 64 65 6c 85 69 6e 63 6c 75 64 65 2e 72 6f 00 00 08 3d 65 6f 73 6c 6f ┆de.ll =del include.ro =eoslo┆
0x20200…20400 (25, 1, 8) 0xe5[0x200]
0x20400…20580 (25, 1, 9) DataBlock {»EXCLUDE.CF«}
0x20580…205a0 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 ┆ ┆
[…0x3…]
0x20600…20620 (25, 1, 10) 74 79 70 65 3b 0d 0a 20 20 20 20 73 69 67 4f 70 2c 73 69 67 4e 6f 2c 73 69 67 46 75 6e 63 20 3a ┆type; sigOp,sigNo,sigFunc :┆
0x20620…20640 20 6c 6f 6e 67 3b 0d 0a 62 65 67 69 6e 0d 0a 69 6e 0d 0a 20 20 72 65 61 64 49 6e 74 28 27 74 79 ┆ long; begin in readInt('ty┆
0x20640…20660 70 65 20 73 69 67 4f 70 20 20 20 3a 20 27 2c 73 69 67 4f 70 29 3b 0d 0a 20 20 72 65 61 64 49 6e ┆pe sigOp : ',sigOp); readIn┆
0x20660…20680 74 28 27 74 79 70 65 20 73 69 67 4e 6f 20 20 20 3a 20 27 2c 73 69 67 4e 6f 29 3b 0d 0a 20 20 72 ┆t('type sigNo : ',sigNo); r┆
0x20680…206a0 65 61 64 49 6e 74 28 27 74 79 70 65 20 73 69 67 46 75 6e 63 20 3a 20 27 2c 73 69 67 46 75 6e 63 ┆eadInt('type sigFunc : ',sigFunc┆
0x206a0…206c0 29 3b 0d 0a 20 20 69 66 20 73 69 67 46 75 6e 63 3d 31 20 74 68 65 6e 20 73 69 67 46 75 6e 63 3a ┆); if sigFunc=1 then sigFunc:┆
0x206c0…206e0 3d 20 2d 31 3b 0d 0a 20 20 72 65 73 3a 3d 20 75 70 73 2e 73 69 67 73 61 67 28 3b 69 6e 20 6f 75 ┆= -1; res:= ups.sigsag(;in ou┆
0x206e0…20700 74 20 73 69 67 4f 70 2c 20 69 6e 20 6f 75 74 20 73 69 67 4e 6f 2c 20 69 6e 20 6f 75 74 20 73 69 ┆t sigOp, in out sigNo, in out si┆
0x20700…20720 67 46 75 6e 63 29 3b 0d 0a 20 20 69 66 20 72 65 73 2e 6d 61 69 6e 3d 6f 6b 20 74 68 65 6e 20 62 ┆gFunc); if res.main=ok then b┆
0x20720…20740 65 67 69 6e 0d 0a 20 20 70 72 69 6e 74 49 6e 74 28 27 20 73 69 67 4f 70 20 20 20 3d 20 27 2c 73 ┆egin printInt(' sigOp = ',s┆
0x20740…20760 69 67 4f 70 29 3b 0d 0a 20 20 70 72 69 6e 74 49 6e 74 28 27 20 73 69 67 4e 6f 20 20 20 3d 20 27 ┆igOp); printInt(' sigNo = '┆
0x20760…20780 2c 73 69 67 4e 6f 29 3b 0d 0a 20 20 70 72 69 6e 74 49 6e 74 28 27 20 73 69 67 46 75 6e 63 20 3d ┆,sigNo); printInt(' sigFunc =┆
0x20780…207a0 20 27 2c 73 69 67 46 75 6e 63 29 3b 0d 0a 20 20 65 6e 64 20 65 6c 73 65 0d 0a 20 20 65 78 63 65 ┆ ',sigFunc); end else exce┆
0x207a0…207c0 70 74 69 6f 6e 28 72 65 73 29 3b 0d 0a 64 6f 0d 0a 20 20 70 72 69 6e 74 65 72 72 6f 72 28 27 20 ┆ption(res); do printerror(' ┆
0x207c0…207e0 73 69 67 73 61 67 20 65 72 72 6f 72 20 3d 20 27 29 3b 0d 0a 65 6e 64 20 3b 0d 0a 20 0d 0a 70 72 ┆sigsag error = '); end ; pr┆
0x207e0…20800 6f 63 65 64 75 72 65 20 74 53 45 54 47 45 54 49 44 3b 0d 0a 76 61 72 20 72 65 73 20 3a 20 72 65 ┆ocedure tSETGETID; var res : re┆
0x20800…20980 (26, 0, 1) DataBlock {»SCAN.CF«}
0x20980…209a0 2e 63 68 6b 65 78 74 2e 72 6f 00 14 6c 69 62 20 65 6f 73 6c 69 62 2e 65 6f 73 6c 69 62 2e 72 6f ┆.chkext.ro lib eoslib.eoslib.ro┆
0x209a0…209c0 00 16 6c 69 62 20 65 6f 73 6c 69 62 2e 70 61 73 63 61 6c 69 62 2e 72 6f 00 03 65 6e 64 00 00 0c ┆ lib eoslib.pascalib.ro end ┆
0x209c0…209e0 3d 64 65 6c 85 73 63 61 6e 2e 6c 6c 00 08 3d 65 6f 73 6c 6f 61 64 00 02 76 63 00 04 73 63 61 6e ┆=del scan.ll =eosload vc scan┆
0x209e0…20a00 00 01 79 00 00 0c 3d 64 65 6c 84 73 63 61 6e 2e 6c 6f 00 04 3d 65 6e 64 00 01 20 00 00 01 20 00 ┆ y =del scan.lo =end ┆
0x20a00…20c00 (26, 0, 2) 0xe5[0x200]
0x20c00…20d80 (26, 0, 3) DataBlock {»CREATE.CF«}
0x20d80…20da0 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 ┆ ┆
[…0x3…]
0x20e00…21000 (26, 0, 4) 0xe5[0x200]
0x21000…21180 (26, 0, 5) DataBlock {»LOAD.CF«}
0x21180…211a0 2e 63 68 6b 65 78 74 2e 72 6f 00 14 6c 69 62 20 65 6f 73 6c 69 62 2e 65 6f 73 6c 69 62 2e 72 6f ┆.chkext.ro lib eoslib.eoslib.ro┆
0x211a0…211c0 00 16 6c 69 62 20 65 6f 73 6c 69 62 2e 70 61 73 63 61 6c 69 62 2e 72 6f 00 03 65 6e 64 00 00 0c ┆ lib eoslib.pascalib.ro end ┆
0x211c0…211e0 3d 64 65 6c 85 6c 6f 61 64 2e 6c 6c 00 0c 3d 64 65 6c 85 6c 6f 61 64 2e 72 6f 00 08 3d 65 6f 73 ┆=del load.ll =del load.ro =eos┆
0x211e0…21200 6c 6f 61 64 00 02 76 63 00 04 6c 6f 61 64 00 01 79 00 00 0c 3d 64 65 6c 85 6c 6f 61 64 2e 6c 6f ┆load vc load y =del load.lo┆
0x21200…21400 (26, 0, 6) 0xe5[0x200]
[…0x5…]
0x21e00…21e20 (27, 1, 2) 20 20 20 20 20 79 0d 0a 3d 64 65 6c 20 20 20 65 78 63 6c 75 64 65 2e 6c 6f 0d 0a 3d 65 6e 64 0d ┆ y =del exclude.lo =end ┆
0x21e20…21e40 0a 20 0d 0a 20 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x21e40…21e60 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x21e80…21ea0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x22000…22200 (27, 1, 3) 0xe5[0x200]
[…0x3…]
0x22800…22980 (27, 1, 7) DataBlock {»DELETE.CF«}
0x22980…229a0 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 ┆ ┆
[…0x3…]
0x22a00…22c00 (27, 1, 8) 0xe5[0x200]
0x22c00…22d80 (27, 1, 9) DataBlock {»INITWT.CF«}
0x22d80…22da0 00 16 69 6e 70 75 74 20 61 73 6d 6c 69 62 2e 63 68 6b 65 78 74 2e 72 6f 00 14 6c 69 62 20 65 6f ┆ input asmlib.chkext.ro lib eo┆
0x22da0…22dc0 73 6c 69 62 2e 65 6f 73 6c 69 62 2e 72 6f 00 16 6c 69 62 20 65 6f 73 6c 69 62 2e 70 61 73 63 61 ┆slib.eoslib.ro lib eoslib.pasca┆
0x22dc0…22de0 6c 69 62 2e 72 6f 00 03 65 6e 64 00 00 0e 3d 64 65 6c 85 69 6e 69 74 77 74 2e 6c 6c 00 0e 3d 64 ┆lib.ro end =del initwt.ll =d┆
0x22de0…22e00 65 6c 85 69 6e 69 74 77 74 2e 72 6f 00 08 3d 65 6f 73 6c 6f 61 64 00 02 76 63 00 06 69 6e 69 74 ┆el initwt.ro =eosload vc init┆
0x22e00…23000 (27, 1, 10) 0xe5[0x200]
0x23000…23180 (28, 0, 1) DataBlock {»OPTIINIT.CF«}
0x23180…231a0 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 ┆ ┆
[…0x3…]
0x23200…23400 (28, 0, 2) 0xe5[0x200]
0x23400…23500 (28, 0, 3) DataBlock {»INIT.CF«}
0x23500…23520 00 12 3d 65 6f 73 70 61 73 82 69 6e 69 74 3b 7a 3d 31 30 30 00 13 3d 65 6f 73 70 61 73 32 20 69 ┆ =eospas init;z=100 =eospas2 i┆
0x23520…23540 6e 69 74 3b 7a 3d 31 30 30 00 00 0c 3d 64 65 6c 85 69 6e 69 74 2e 70 63 00 0c 3d 64 65 6c 85 69 ┆nit;z=100 =del init.pc =del i┆
0x23540…23560 6e 69 74 2e 6c 73 00 1a 3d 6c 69 6e 6b 83 2c 69 6e 69 74 2e 6c 6f 2c 69 6e 69 74 2e 6c 6c 3b 68 ┆nit.ls =link ,init.lo,init.ll;h┆
0x23560…23580 6d 78 00 0d 69 6e 70 75 74 20 69 6e 69 74 2e 72 6f 00 00 14 6c 69 62 20 65 6f 73 6c 69 62 2e 65 ┆mx input init.ro lib eoslib.e┆
0x23580…235a0 6f 73 6c 69 62 2e 72 6f 00 16 6c 69 62 20 65 6f 73 6c 69 62 2e 70 61 73 63 61 6c 69 62 2e 72 6f ┆oslib.ro lib eoslib.pascalib.ro┆
0x235a0…235c0 00 03 65 6e 64 00 00 0c 3d 64 65 6c 85 69 6e 69 74 2e 6c 6c 00 08 3d 65 6f 73 6c 6f 61 64 00 02 ┆ end =del init.ll =eosload ┆
0x235c0…235e0 76 63 00 04 69 6e 69 74 00 01 79 00 00 0c 3d 64 65 6c 83 69 6e 69 74 2e 6c 6f 00 04 3d 65 6e 64 ┆vc init y =del init.lo =end┆
0x235e0…23600 00 01 20 00 00 01 20 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 ┆ ┆
0x23600…23800 (28, 0, 4) 0xe5[0x200]
0x23800…23980 (28, 0, 5) DataBlock {»TPDEMO.CF«}
0x23980…239a0 00 05 82 65 6e 64 3b 00 00 27 82 69 66 81 28 63 73 61 64 72 31 81 3e 3d 81 30 29 81 6f 72 81 28 ┆ end; ' if (csadr1 >= 0) or (┆
0x239a0…239c0 63 73 61 64 72 32 81 3e 3d 81 30 29 81 74 68 65 6e 00 00 06 82 62 65 67 69 6e 00 0c 84 65 72 72 ┆csadr2 >= 0) then begin err┆
0x239c0…239e0 6f 72 81 3a 3d 81 36 3b 00 0b 84 67 6f 74 6f 81 73 74 6f 70 3b 00 00 05 82 65 6e 64 3b 00 00 37 ┆or := 6; goto stop; end; 7┆
0x239e0…23a00 82 77 72 69 74 65 6c 6e 81 28 27 81 27 3a 39 2c 81 72 65 63 6e 6f 2c 81 27 81 73 65 63 74 6f 72 ┆ writeln (' ':9, recno, ' sector┆
0x23a00…23c00 (28, 0, 6) 0xe5[0x200]
[…0xa…]
0x25000…25180 (29, 1, 7) DataBlock {»UNIXUTIL.CF«}
0x25180…251a0 75 74 69 6c 2e 72 6f 00 00 14 6c 69 62 20 65 6f 73 6c 69 62 2e 65 6f 73 6c 69 62 2e 72 6f 00 16 ┆util.ro lib eoslib.eoslib.ro ┆
0x251a0…251c0 6c 69 62 20 65 6f 73 6c 69 62 2e 70 61 73 63 61 6c 69 62 2e 72 6f 00 03 65 6e 64 00 00 10 3d 64 ┆lib eoslib.pascalib.ro end =d┆
0x251c0…251e0 65 6c 85 75 6e 69 78 75 74 69 6c 2e 6c 6c 00 10 3d 64 65 6c 85 75 6e 69 78 75 74 69 6c 2e 72 6f ┆el unixutil.ll =del unixutil.ro┆
0x251e0…25200 00 08 3d 65 6f 73 6c 6f 61 64 00 02 76 63 00 08 75 6e 69 78 75 74 69 6c 00 01 79 00 00 10 3d 64 ┆ =eosload vc unixutil y =d┆
0x25200…25400 (29, 1, 8) 0xe5[0x200]
0x25400…25580 (29, 1, 9) DataBlock {»UNIJCST.CF«}
0x25580…255a0 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 ┆ ┆
[…0x3…]
0x25600…25800 (29, 1, 10) 0xe5[0x200]
0x25800…25a00 (30, 0, 1) DataBlock {»TXTCONV.SA«}
0x25a00…25c00 (30, 0, 2) 0xe5[0x200]
0x25c00…25e00 (30, 0, 3) DataBlock {»TXTCONV.SA«}
[…0x1…]
0x26000…26200 (30, 0, 5) DataBlock {»EOSLINK.SA«}
0x26200…26300 (30, 0, 6) DataBlock {»TXTCONV.SA«}
0x26300…26320 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x26400…26600 (30, 0, 7) DataBlock {»TXTCONV.SA«}
0x26600…26800 (30, 0, 8) DataBlock {»EOSLINK.SA«}
0x26800…26a00 (30, 0, 9) 0xe5[0x200]
0x26a00…26c00 (30, 0, 10) DataBlock {»TXTCONV.SA«}
0x26c00…26e00 (31, 1, 1) DataBlock {»EOSLINK.SA«}
[…0xa…]
0x28200…28400 (32, 0, 2) DataBlock {»EOSLOAD.SA«}
[…0x1…]
0x28600…28800 (32, 0, 4) DataBlock {»EOSLINK.SA«}
0x28800…28a00 (32, 0, 5) DataBlock {»EOSLOAD.SA«}
[…0x1…]
0x28c00…28e00 (32, 0, 7) DataBlock {»EOSLINK.SA«}
0x28e00…29000 (32, 0, 8) DataBlock {»EOSLOAD.SA«}
[…0x1…]
0x29200…29280 (32, 0, 10) DataBlock {»EOSLINK.SA«}
0x29280…292a0 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 20 20 20 77 72 69 74 65 6c 6e 28 27 63 68 61 72 63 6f 75 6e ┆; end; writeln('charcoun┆
0x292a0…292c0 74 20 3d 20 27 2c 63 68 61 72 63 6f 75 6e 74 29 3b 0d 0a 20 0d 0a 20 20 20 73 65 67 6d 63 6f 75 ┆t = ',charcount); segmcou┆
0x292c0…292e0 6e 74 20 3a 3d 20 28 63 68 61 72 63 6f 75 6e 74 20 2b 20 34 29 20 64 69 76 20 32 35 36 3b 0d 0a ┆nt := (charcount + 4) div 256; ┆
0x292e0…29300 20 20 20 69 20 3a 3d 20 28 63 68 61 72 63 6f 75 6e 74 20 2b 20 34 29 20 6d 6f 64 20 32 35 36 3b ┆ i := (charcount + 4) mod 256;┆
0x29300…29320 0d 0a 20 20 20 69 66 20 69 20 3c 3e 20 30 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 73 65 67 6d 63 ┆ if i <> 0 then segmc┆
0x29320…29340 6f 75 6e 74 20 3a 3d 20 73 65 67 6d 63 6f 75 6e 74 20 2b 20 31 3b 0d 0a 20 20 20 77 72 69 74 65 ┆ount := segmcount + 1; write┆
0x29340…29360 6c 6e 28 27 73 65 67 6d 63 6f 75 6e 74 20 3d 20 27 2c 73 65 67 6d 63 6f 75 6e 74 29 3b 0d 0a 20 ┆ln('segmcount = ',segmcount); ┆
0x29360…29380 0d 0a 20 20 20 6e 75 6d 20 3a 3d 20 27 31 32 33 34 27 3b 0d 0a 20 20 20 66 6f 72 20 69 20 3a 3d ┆ num := '1234'; for i :=┆
0x29380…293a0 20 34 20 64 6f 77 6e 74 6f 20 31 20 64 6f 0d 0a 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 ┆ 4 downto 1 do begin ┆
0x293a0…293c0 6e 75 6d 5b 69 5d 20 3a 3d 20 63 68 72 20 28 28 73 65 67 6d 63 6f 75 6e 74 20 6d 6f 64 20 31 30 ┆numÆiÅ := chr ((segmcount mod 10┆
0x293c0…293e0 29 20 2b 20 6f 72 64 20 28 27 30 27 29 29 3b 0d 0a 20 20 20 20 20 20 73 65 67 6d 63 6f 75 6e 74 ┆) + ord ('0')); segmcount┆
0x293e0…29400 20 3a 3d 20 73 65 67 6d 63 6f 75 6e 74 20 64 69 76 20 31 30 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a ┆ := segmcount div 10; end; ┆
0x29400…29600 (33, 1, 1) DataBlock {»EOSLOAD.SA«}
[…0x14…]
0x2be00…2c000 (35, 1, 2) DataBlock {»BOOTGEN.SA«}
[…0x1…]
0x2c200…2c220 (35, 1, 4) 65 61 64 32 2c 20 63 6f 64 65 2c 20 75 6e 69 78 72 65 63 29 3b 0d 0a 20 0d 0a 20 20 73 61 64 20 ┆ead2, code, unixrec); sad ┆
0x2c220…2c240 3d 0d 0a 20 20 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 72 73 76 2c 20 61 74 72 20 3a 20 ┆= RECORD rsv, atr : ┆
0x2c240…2c260 77 6f 72 64 3b 0d 0a 20 20 20 20 20 20 73 65 67 6e 61 6d 65 20 20 3a 20 70 61 63 6b 65 64 20 61 ┆word; segname : packed a┆
0x2c260…2c280 72 72 61 79 20 5b 31 2e 2e 34 5d 20 6f 66 20 63 68 61 72 3b 0d 0a 20 20 20 20 20 20 73 65 67 73 ┆rray Æ1..4Å of char; segs┆
0x2c280…2c2a0 74 61 72 74 20 3a 20 6c 6f 6e 67 66 69 65 6c 64 3b 0d 0a 20 20 20 20 20 20 73 65 67 73 69 7a 65 ┆tart : longfield; segsize┆
0x2c2a0…2c2c0 20 20 3a 20 6c 6f 6e 67 66 69 65 6c 64 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 0d 0a 20 20 6d ┆ : longfield; END; m┆
0x2c2c0…2c2e0 69 64 20 3d 0d 0a 20 20 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 66 69 72 73 74 20 20 20 ┆id = RECORD first ┆
0x2c2e0…2c300 3a 20 77 6f 72 64 3b 0d 0a 20 20 20 20 20 20 6c 61 73 74 20 20 20 20 3a 20 77 6f 72 64 3b 0d 0a ┆: word; last : word; ┆
0x2c300…2c320 20 20 20 20 45 4e 44 3b 0d 0a 20 0d 0a 20 20 70 72 6f 67 72 65 63 20 3d 0d 0a 20 20 20 20 52 45 ┆ END; progrec = RE┆
0x2c320…2c340 43 4f 52 44 0d 0a 20 20 20 20 20 20 43 41 53 45 20 72 65 63 74 79 70 65 20 4f 46 0d 0a 20 20 20 ┆CORD CASE rectype OF ┆
0x2c340…2c360 20 20 20 20 20 6c 69 62 72 65 63 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 28 68 65 61 64 31 20 3a ┆ librec: (head1 :┆
0x2c360…2c380 20 70 61 63 6b 65 64 20 61 72 72 61 79 20 5b 31 2e 2e 32 32 5d 20 6f 66 20 62 79 74 65 3b 0d 0a ┆ packed array Æ1..22Å of byte; ┆
0x2c380…2c3a0 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 20 3a 20 6c 6f 6e 67 66 69 65 6c 64 3b 0d 0a 20 ┆ entry : longfield; ┆
0x2c3a0…2c3c0 20 20 20 20 20 20 20 20 20 20 68 65 61 64 32 20 3a 20 70 61 63 6b 65 64 20 61 72 72 61 79 20 5b ┆ head2 : packed array Æ┆
0x2c3c0…2c3e0 31 2e 2e 32 32 5d 20 6f 66 20 62 79 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 73 61 64 73 ┆1..22Å of byte; sads┆
0x2c3e0…2c400 20 20 3a 20 61 72 72 61 79 20 5b 31 2e 2e 38 5d 20 20 6f 66 20 73 61 64 3b 0d 0a 20 20 20 20 20 ┆ : array Æ1..8Å of sad; ┆
0x2c400…2c600 (35, 1, 5) DataBlock {»BOOTGEN.SA«}
[…0x6…]
0x2d200…2d220 (36, 0, 2) 4e 61 6d 65 20 3c 3e 20 27 53 45 47 32 27 29 20 4f 52 0d 0a 20 20 20 20 20 28 6c 69 62 2e 73 61 ┆Name <> 'SEG2') OR (lib.sa┆
0x2d220…2d240 64 73 5b 32 5d 2e 73 65 67 53 74 61 72 74 2e 6c 20 3c 3e 20 63 6f 64 65 53 69 7a 65 29 0d 0a 20 ┆dsÆ2Å.segStart.l <> codeSize) ┆
0x2d240…2d260 20 54 48 45 4e 0d 0a 20 20 42 45 47 49 4e 20 20 65 72 72 6f 72 20 3a 3d 20 31 3b 20 67 6f 74 6f ┆ THEN BEGIN error := 1; goto┆
0x2d260…2d280 20 73 74 6f 70 3b 20 20 45 4e 44 3b 0d 0a 20 0d 0a 7b 73 6b 69 70 20 63 6f 64 65 20 73 65 67 6d ┆ stop; END; æskip code segm┆
0x2d280…2d2a0 65 6e 74 7d 0d 0a 20 20 46 4f 52 20 69 3a 3d 20 31 20 54 4f 20 63 6f 64 65 73 65 63 20 44 4f 0d ┆entå FOR i:= 1 TO codesec DO ┆
0x2d2a0…2d2c0 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 49 46 20 65 6f 66 28 69 6e 66 69 6c 65 29 20 54 48 45 ┆ BEGIN IF eof(infile) THE┆
0x2d2c0…2d2e0 4e 0d 0a 20 20 20 20 42 45 47 49 4e 20 20 65 72 72 6f 72 20 3a 3d 20 32 3b 20 67 6f 74 6f 20 73 ┆N BEGIN error := 2; goto s┆
0x2d2e0…2d300 74 6f 70 3b 20 20 45 4e 44 0d 0a 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 67 65 74 20 28 ┆top; END ELSE get (┆
0x2d300…2d320 69 6e 66 69 6c 65 29 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 20 0d 0a 7b 66 69 6e 64 20 73 69 7a 65 20 ┆infile); END; æfind size ┆
0x2d320…2d340 6f 66 20 55 4e 49 58 20 63 20 70 72 6f 67 72 61 6d 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆of UNIX c programå ┆
0x2d340…2d360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x2d3a0…2d3c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 69 6e 66 6f 72 6d 20 3d ┆ IF inform =┆
0x2d3c0…2d3e0 20 75 6e 69 78 20 54 48 45 4e 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 72 65 73 65 74 20 28 ┆ unix THEN BEGIN reset (┆
0x2d3e0…2d400 75 6e 69 78 66 69 6c 65 2c 20 75 6e 69 78 6e 61 6d 65 29 3b 0d 0a 20 20 20 20 72 65 61 64 20 28 ┆unixfile, unixname); read (┆
0x2d400…2d600 (36, 0, 3) DataBlock {»CREAFILE.SA«}
0x2d600…2d800 (36, 0, 4) DataBlock {»BOOTGEN.SA«}
0x2d800…2d900 (36, 0, 5) DataBlock {»CREAFILE.CF«}
0x2d900…2d920 4a 40 67 00 01 32 44 87 41 fb 78 fe 2f 4f ff a8 4f ef ff 48 48 ef 60 3d 00 44 2f 4e 00 64 2a 4f ┆J@g 2D A x /O O HH `= D/N d*O┆
0x2d920…2d940 1b 7c 00 00 00 30 08 2d 00 01 00 30 67 4c 48 ed ff ff 00 70 60 06 42 4f 42 4a 31 31 28 3c 00 00 ┆ ø 0 - 0gLH p` BOBJ11(< ┆
0x2d940…2d960 00 36 74 06 2a 3c 00 01 00 28 4e 47 41 ed 00 70 74 40 28 08 2a 3c 00 02 00 28 4e 47 4c ed ff ff ┆ 6t *< (NGA pt@( *< (NGL ┆
0x2d960…2d980 00 70 41 d7 43 d6 93 c8 24 09 28 08 2a 3c 00 02 00 28 4e 47 4c ed ff ff 00 70 2c 4f 42 95 26 6d ┆ pA C $ ( *< (NGL p,OB &m┆
0x2d980…2d9a0 00 58 26 fc ff ff ff ff 42 9b 2b 4b 00 04 36 3c 00 07 47 ed 00 08 42 9b 51 cb ff fc 42 ad 00 28 ┆ X& B +K 6< G B Q B (┆
0x2d9a0…2d9c0 42 ad 00 2c 42 2d 00 31 42 ad 00 32 42 ad 00 36 26 2d 00 5c 06 83 00 3f ff ff 02 83 ff c0 00 00 ┆B ,B- 1B 2B 6&- Ø ? ┆
0x2d9c0…2d9e0 2b 43 00 3a 1b 7c 00 02 00 3e 42 ad 00 40 47 fa 00 5e 61 00 0e 98 08 2d 00 01 00 30 67 4e 48 ed ┆+C : ø >B @G ^a - 0gNH ┆
0x2d9e0…2da00 ff ff 00 70 60 06 42 4f 42 4a 31 32 28 3c 00 00 00 e6 74 06 2a 3c 00 01 00 28 4e 47 41 ed 00 70 ┆ p` BOBJ12(< t *< (NGA p┆
0x2da00…2dc00 (36, 0, 6) DataBlock {»CREAFILE.SA«}
0x2dc00…2de00 (36, 0, 7) DataBlock {»BOOTGEN.SA«}
0x2de00…2de20 (36, 0, 8) 2b 20 32 35 35 29 20 44 49 56 20 32 35 36 3b 0d 0a 20 20 20 20 6e 75 6c 6c 53 65 63 20 20 20 3a ┆+ 255) DIV 256; nullSec :┆
0x2de20…2de40 3d 20 28 63 6f 64 65 53 69 7a 65 20 2b 20 64 61 74 61 53 69 7a 65 20 2b 20 62 73 73 53 69 7a 65 ┆= (codeSize + dataSize + bssSize┆
0x2de40…2de60 20 2b 20 32 35 35 29 20 44 49 56 20 32 35 36 20 2d 20 63 6f 64 65 53 65 63 3b 0d 0a 20 20 20 20 ┆ + 255) DIV 256 - codeSec; ┆
0x2de60…2de80 6e 6f 53 65 67 73 20 20 20 20 3a 3d 20 32 3b 0d 0a 20 20 20 20 6c 69 62 2e 65 6e 74 72 79 2e 6c ┆noSegs := 2; lib.entry.l┆
0x2de80…2dea0 3a 3d 20 33 32 3b 20 7b 20 75 6e 69 78 20 68 65 61 64 65 72 20 69 73 20 70 72 65 73 65 6e 74 20 ┆:= 32; æ unix header is present ┆
0x2dea0…2dec0 69 6e 20 72 75 6e 20 74 69 6d 65 20 74 65 78 74 20 7d 0d 0a 20 20 45 4e 44 3b 0d 0a 20 0d 0a 20 ┆in run time text å END; ┆
0x2dec0…2dee0 20 49 46 20 6f 75 74 66 6f 72 6d 20 3d 20 63 6f 6e 74 69 67 75 6f 75 73 20 54 48 45 4e 0d 0a 20 ┆ IF outform = contiguous THEN ┆
0x2dee0…2df00 20 20 20 61 70 70 65 6e 64 53 69 7a 65 20 28 6f 75 74 6e 61 6d 65 2c 20 65 6f 73 53 65 63 20 2b ┆ appendSize (outname, eosSec +┆
0x2df00…2df20 20 63 6f 64 65 53 65 63 20 2b 20 6e 75 6c 6c 53 65 63 29 3b 0d 0a 20 0d 0a 20 20 72 65 77 72 69 ┆ codeSec + nullSec); rewri┆
0x2df20…2df40 74 65 20 28 6f 75 74 66 69 6c 65 2c 20 6f 75 74 6e 61 6d 65 29 3b 0d 0a 20 0d 0a 7b 63 6f 70 79 ┆te (outfile, outname); æcopy┆
0x2df40…2df60 20 45 4f 53 20 68 65 61 64 20 74 6f 20 6f 75 74 70 75 74 20 66 69 6c 65 3a 0d 0a 20 20 20 20 20 ┆ EOS head to output file: ┆
0x2df60…2df80 20 69 6e 73 65 72 74 20 68 65 61 64 53 69 7a 65 2c 74 6f 74 61 6c 53 69 7a 65 20 61 6e 64 20 66 ┆ insert headSize,totalSize and f┆
0x2df80…2dfa0 69 6e 64 20 61 64 64 72 20 6f 66 20 50 72 6f 67 44 65 73 63 72 41 64 64 20 7d 0d 0a 20 20 72 65 ┆ind addr of ProgDescrAdd å re┆
0x2dfa0…2dfc0 61 64 20 28 69 6e 66 69 6c 65 2c 20 70 72 6f 67 29 3b 0d 0a 20 20 72 65 63 6e 6f 20 3a 3d 20 31 ┆ad (infile, prog); recno := 1┆
0x2dfc0…2dfe0 3b 0d 0a 20 20 70 72 6f 67 2e 68 65 61 64 53 69 7a 65 20 3a 3d 20 65 6f 73 53 69 7a 65 3b 0d 0a ┆; prog.headSize := eosSize; ┆
0x2dfe0…2e000 20 20 70 72 6f 67 2e 70 72 6f 67 53 69 7a 65 20 3a 3d 20 74 6f 74 61 6c 53 69 7a 65 3b 0d 0a 20 ┆ prog.progSize := totalSize; ┆
0x2e000…2e100 (36, 0, 9) DataBlock {»CREAFILE.SA«}
0x2e100…2e120 53 69 7a 65 20 20 3a 3d 20 6c 69 62 2e 73 61 64 73 5b 32 5d 2e 73 65 67 53 69 7a 65 2e 6c 3b 0d ┆Size := lib.sadsÆ2Å.segSize.l; ┆
0x2e120…2e140 0a 20 20 65 6f 73 53 65 63 20 20 20 3a 3d 20 65 6f 73 53 69 7a 65 20 44 49 56 20 32 35 36 3b 0d ┆ eosSec := eosSize DIV 256; ┆
0x2e140…2e160 0a 20 20 74 6f 74 61 6c 53 69 7a 65 20 3a 3d 20 63 6f 64 65 53 69 7a 65 20 2b 20 65 6f 73 53 69 ┆ totalSize := codeSize + eosSi┆
0x2e160…2e180 7a 65 3b 0d 0a 20 20 62 73 73 53 69 7a 65 20 20 3a 3d 20 30 3b 0d 0a 20 20 64 61 74 61 53 69 7a ┆ze; bssSize := 0; dataSiz┆
0x2e180…2e1a0 65 20 3a 3d 20 30 3b 0d 0a 20 20 6e 75 6c 6c 53 69 7a 65 20 3a 3d 20 30 3b 0d 0a 20 20 6e 6f 53 ┆e := 0; nullSize := 0; noS┆
0x2e1a0…2e1c0 65 67 73 20 20 20 3a 3d 20 31 3b 0d 0a 20 0d 0a 20 20 49 46 20 28 69 20 3c 3e 20 33 29 20 4f 52 ┆egs := 1; IF (i <> 3) OR┆
0x2e1c0…2e1e0 0d 0a 20 20 20 20 20 28 6c 69 62 2e 73 61 64 73 5b 31 5d 2e 73 65 67 4e 61 6d 65 20 3c 3e 20 27 ┆ (lib.sadsÆ1Å.segName <> '┆
0x2e1e0…2e200 53 45 47 31 27 29 20 4f 52 0d 0a 20 20 20 20 20 28 6c 69 62 2e 73 61 64 73 5b 32 5d 2e 73 65 67 ┆SEG1') OR (lib.sadsÆ2Å.seg┆
0x2e200…2e400 (36, 0, 10) DataBlock {»BOOTGEN.SA«}
0x2e400…2e420 (37, 1, 1) 20 49 46 20 69 6e 66 6f 72 6d 20 3d 20 75 6e 69 78 20 54 48 45 4e 20 70 72 6f 67 2e 6f 62 6a 4e ┆ IF inform = unix THEN prog.objN┆
0x2e420…2e440 61 6d 65 20 3a 3d 20 6d 6f 64 75 6c 65 4e 61 6d 65 3b 0d 0a 20 0d 0a 20 20 7b 66 69 6e 64 20 61 ┆ame := moduleName; æfind a┆
0x2e440…2e460 64 64 72 20 6f 66 20 70 72 6f 67 2d 64 65 73 63 72 7d 0d 0a 20 20 70 64 41 64 64 72 20 3a 3d 20 ┆ddr of prog-descrå pdAddr := ┆
0x2e460…2e480 70 72 6f 67 2e 70 72 6f 67 41 64 72 3b 0d 0a 20 20 49 46 20 28 70 64 41 64 64 72 20 3c 20 30 29 ┆prog.progAdr; IF (pdAddr < 0)┆
0x2e480…2e4a0 20 4f 52 20 28 4f 44 44 20 28 70 64 41 64 64 72 29 29 20 54 48 45 4e 0d 0a 20 20 42 45 47 49 4e ┆ OR (ODD (pdAddr)) THEN BEGIN┆
0x2e4a0…2e4c0 20 20 65 72 72 6f 72 20 3a 3d 20 35 3b 20 20 67 6f 74 6f 20 73 74 6f 70 3b 20 20 45 4e 44 3b 0d ┆ error := 5; goto stop; END; ┆
0x2e4c0…2e4e0 0a 20 0d 0a 7b 63 6f 70 79 20 50 72 6f 67 44 65 73 63 72 69 70 74 69 6f 6e 3a 0d 0a 20 20 20 20 ┆ æcopy ProgDescription: ┆
0x2e4e0…2e500 20 20 69 6e 73 65 72 74 20 65 6e 74 72 79 50 6f 69 6e 74 20 61 6e 64 20 66 69 6e 64 20 61 64 64 ┆ insert entryPoint and find add┆
0x2e500…2e520 72 46 69 72 73 74 53 65 67 44 65 73 63 72 2c 20 6e 6f 53 65 67 44 65 73 63 72 20 7d 0d 0a 20 20 ┆rFirstSegDescr, noSegDescr å ┆
0x2e520…2e540 70 64 41 64 64 72 20 3a 3d 20 70 64 41 64 64 72 20 44 49 56 20 32 3b 0d 0a 20 20 61 53 65 67 50 ┆pdAddr := pdAddr DIV 2; aSegP┆
0x2e540…2e560 74 72 20 20 20 20 20 3a 3d 20 70 64 41 64 64 72 20 2b 20 73 70 52 65 6c 3b 0d 0a 20 20 61 4e 6f ┆tr := pdAddr + spRel; aNo┆
0x2e560…2e580 4c 6f 63 50 20 20 20 20 20 3a 3d 20 61 53 65 67 50 74 72 20 2b 20 31 3b 0d 0a 20 20 61 4e 6f 54 ┆LocP := aSegPtr + 1; aNoT┆
0x2e580…2e5a0 65 6d 70 50 20 20 20 20 3a 3d 20 61 4e 6f 4c 6f 63 50 20 2b 20 31 3b 0d 0a 20 20 61 4e 6f 54 6d ┆empP := aNoLocP + 1; aNoTm┆
0x2e5a0…2e5c0 70 42 31 20 20 20 20 3a 3d 20 61 4e 6f 54 65 6d 70 50 20 2b 20 31 3b 0d 0a 20 20 61 4e 6f 54 6d ┆pB1 := aNoTempP + 1; aNoTm┆
0x2e5c0…2e5e0 70 42 32 20 20 20 20 3a 3d 20 61 4e 6f 54 6d 70 42 31 20 2b 20 31 3b 0d 0a 20 20 61 45 6e 74 72 ┆pB2 := aNoTmpB1 + 1; aEntr┆
0x2e5e0…2e600 79 50 6f 69 6e 74 20 3a 3d 20 70 64 41 64 64 72 20 2b 20 65 70 52 65 6c 3b 0d 0a 20 0d 0a 20 20 ┆yPoint := pdAddr + epRel; ┆
0x2e600…2e620 (37, 1, 2) 46 4f 52 20 69 3a 3d 20 31 20 54 4f 20 6e 75 6c 6c 53 65 63 20 44 4f 20 77 72 69 74 65 20 28 6f ┆FOR i:= 1 TO nullSec DO write (o┆
0x2e620…2e640 75 74 66 69 6c 65 2c 20 6e 75 6c 72 29 3b 0d 0a 20 0d 0a 20 20 20 20 77 72 69 74 65 6c 6e 28 27 ┆utfile, nulr); writeln('┆
0x2e640…2e660 75 6e 69 78 20 70 72 6f 67 72 61 6d 3a 20 27 2c 20 63 6f 64 65 53 65 63 2c 20 27 20 2b 27 2c 20 ┆unix program: ', codeSec, ' +', ┆
0x2e660…2e680 6e 75 6c 6c 53 65 63 2c 20 27 20 6d 6f 76 65 64 20 74 6f 20 27 2c 20 6f 75 74 6e 61 6d 65 29 3b ┆nullSec, ' moved to ', outname);┆
0x2e680…2e6a0 0d 0a 20 20 45 4e 44 20 3b 0d 0a 20 0d 0a 20 20 49 46 20 66 61 6c 73 65 20 54 48 45 4e 0d 0a 20 ┆ END ; IF false THEN ┆
0x2e6a0…2e6c0 20 42 45 47 49 4e 0d 0a 73 74 6f 70 3a 20 20 20 7b 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 7d ┆ BEGIN stop: æerror messageså┆
0x2e6c0…2e6e0 0d 0a 20 20 20 20 77 72 69 74 65 20 28 69 6e 6e 61 6d 65 29 3b 0d 0a 20 20 20 20 43 41 53 45 20 ┆ write (inname); CASE ┆
0x2e6e0…2e700 65 72 72 6f 72 20 4f 46 0d 0a 20 20 20 20 20 20 31 3a 20 20 77 72 69 74 65 6c 6e 20 28 27 20 69 ┆error OF 1: writeln (' i┆
0x2e700…2e720 73 20 6e 6f 74 20 63 6f 72 72 65 63 74 20 6c 6f 61 64 20 66 6f 72 6d 61 74 27 29 3b 0d 0a 20 20 ┆s not correct load format'); ┆
0x2e720…2e740 20 20 20 20 32 3a 20 20 77 72 69 74 65 6c 6e 20 28 27 20 73 69 7a 65 20 65 72 72 6f 72 20 69 6e ┆ 2: writeln (' size error in┆
0x2e740…2e760 20 53 45 47 31 20 27 2c 20 69 2c 20 63 6f 64 65 73 65 63 29 3b 0d 0a 20 20 20 20 20 20 33 3a 20 ┆ SEG1 ', i, codesec); 3: ┆
0x2e760…2e780 20 77 72 69 74 65 6c 6e 20 28 27 20 73 69 7a 65 20 65 72 72 6f 72 20 69 6e 20 53 45 47 32 20 27 ┆ writeln (' size error in SEG2 '┆
0x2e780…2e7a0 2c 20 72 65 63 6e 6f 2c 65 6f 73 73 65 63 29 3b 0d 0a 20 20 20 20 20 20 34 3a 20 20 77 72 69 74 ┆, recno,eossec); 4: writ┆
0x2e7a0…2e7c0 65 6c 6e 20 28 27 20 69 73 20 65 6d 70 74 79 27 29 3b 0d 0a 20 20 20 20 20 20 35 3a 20 20 77 72 ┆eln (' is empty'); 5: wr┆
0x2e7c0…2e7e0 69 74 65 6c 6e 20 28 27 20 69 6c 6c 65 67 61 6c 20 70 72 6f 67 2d 64 65 73 63 72 20 61 64 64 72 ┆iteln (' illegal prog-descr addr┆
0x2e7e0…2e800 65 73 73 20 27 2c 20 70 64 41 64 64 72 2a 32 29 3b 0d 0a 20 20 20 20 20 20 36 3a 20 20 77 72 69 ┆ess ', pdAddr*2); 6: wri┆
0x2e800…2e820 (37, 1, 3) 65 78 20 28 6c 6f 61 64 53 69 7a 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ex (loadSize); ┆
0x2e820…2e840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x2e880…2e8a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 20 28 6c 6f 61 64 ┆ writeln (load┆
0x2e8a0…2e8c0 53 69 7a 65 2e 6c 3a 39 29 3b 0d 0a 20 0d 0a 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 ┆Size.l:9); REPEAT ┆
0x2e8c0…2e8e0 20 69 6e 73 65 72 74 4c 6f 6e 67 20 28 61 53 65 67 53 69 7a 65 2c 20 73 65 67 53 69 7a 65 29 3b ┆ insertLong (aSegSize, segSize);┆
0x2e8e0…2e900 0d 0a 20 20 20 20 20 20 49 46 20 69 20 3d 20 32 20 54 48 45 4e 20 20 69 6e 73 65 72 74 57 6f 72 ┆ IF i = 2 THEN insertWor┆
0x2e900…2e920 64 20 28 61 4e 6f 4c 6f 61 64 73 2c 20 6e 6f 4c 6f 61 64 73 29 3b 0d 0a 20 20 20 20 20 20 69 6e ┆d (aNoLoads, noLoads); in┆
0x2e920…2e940 73 65 72 74 4c 6f 6e 67 20 28 61 4c 6f 61 64 53 69 7a 65 2c 20 6c 6f 61 64 53 69 7a 65 29 3b 0d ┆sertLong (aLoadSize, loadSize); ┆
0x2e940…2e960 0a 20 20 20 20 20 20 67 65 74 57 6f 72 64 20 28 61 44 65 73 53 69 7a 65 2c 20 73 65 67 52 65 6c ┆ getWord (aDesSize, segRel┆
0x2e960…2e980 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 61 4c 6f 61 64 53 69 7a 65 20 3e 3d 20 30 20 54 48 45 4e ┆); IF aLoadSize >= 0 THEN┆
0x2e980…2e9a0 20 20 63 6f 70 79 52 65 63 20 28 74 65 72 6d 69 6e 61 74 65 29 3b 0d 0a 20 20 20 20 55 4e 54 49 ┆ copyRec (terminate); UNTI┆
0x2e9a0…2e9c0 4c 20 20 28 61 4c 6f 61 64 53 69 7a 65 20 3c 20 30 29 20 4f 52 20 74 65 72 6d 69 6e 61 74 65 3b ┆L (aLoadSize < 0) OR terminate;┆
0x2e9c0…2e9e0 0d 0a 20 0d 0a 20 20 20 20 49 46 20 28 74 65 72 6d 69 6e 61 74 65 20 41 4e 44 20 28 69 20 3c 20 ┆ IF (terminate AND (i < ┆
0x2e9e0…2ea00 6e 6f 53 65 67 73 29 29 20 4f 52 20 28 61 4c 6f 61 64 53 69 7a 65 20 3e 3d 20 30 29 20 54 48 45 ┆noSegs)) OR (aLoadSize >= 0) THE┆
0x2ea00…2ea20 (37, 1, 4) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x2ea60…2ea80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 ┆ R┆
0x2ea80…2eaa0 45 50 45 41 54 0d 0a 20 20 20 20 69 6e 73 65 72 74 4c 6f 6e 67 20 28 61 45 6e 74 72 79 50 6f 69 ┆EPEAT insertLong (aEntryPoi┆
0x2eaa0…2eac0 6e 74 2c 20 6c 69 62 2e 65 6e 74 72 79 29 3b 0d 0a 20 20 20 20 67 65 74 57 6f 72 64 20 20 20 20 ┆nt, lib.entry); getWord ┆
0x2eac0…2eae0 28 61 53 65 67 50 74 72 2c 20 73 65 67 52 65 6c 29 3b 0d 0a 20 20 20 20 67 65 74 57 6f 72 64 20 ┆(aSegPtr, segRel); getWord ┆
0x2eae0…2eb00 20 20 20 28 61 4e 6f 4c 6f 63 50 2c 20 6e 6f 4c 6f 63 50 29 3b 0d 0a 20 20 20 20 67 65 74 57 6f ┆ (aNoLocP, noLocP); getWo┆
0x2eb00…2eb20 72 64 20 20 20 20 28 61 4e 6f 54 65 6d 70 50 2c 20 6e 6f 54 65 6d 70 50 29 3b 0d 0a 20 20 20 20 ┆rd (aNoTempP, noTempP); ┆
0x2eb20…2eb40 67 65 74 57 6f 72 64 20 20 20 20 28 61 4e 6f 54 6d 70 42 31 2c 20 6e 6f 54 65 6d 70 42 2e 77 5b ┆getWord (aNoTmpB1, noTempB.wÆ┆
0x2eb40…2eb60 31 5d 29 3b 0d 0a 20 20 20 20 67 65 74 57 6f 72 64 20 20 20 20 28 61 4e 6f 54 6d 70 42 32 2c 20 ┆1Å); getWord (aNoTmpB2, ┆
0x2eb60…2eb80 6e 6f 54 65 6d 70 42 2e 77 5b 32 5d 29 3b 0d 0a 20 20 20 20 49 46 20 61 45 6e 74 72 79 50 6f 69 ┆noTempB.wÆ2Å); IF aEntryPoi┆
0x2eb80…2eba0 6e 74 20 3e 3d 20 30 20 54 48 45 4e 20 20 63 6f 70 79 52 65 63 20 28 74 65 72 6d 69 6e 61 74 65 ┆nt >= 0 THEN copyRec (terminate┆
0x2eba0…2ebc0 29 3b 0d 0a 20 20 55 4e 54 49 4c 20 20 28 61 45 6e 74 72 79 50 6f 69 6e 74 20 3c 20 30 29 20 4f ┆); UNTIL (aEntryPoint < 0) O┆
0x2ebc0…2ebe0 52 20 74 65 72 6d 69 6e 61 74 65 3b 0d 0a 20 20 49 46 20 74 65 72 6d 69 6e 61 74 65 20 54 48 45 ┆R terminate; IF terminate THE┆
0x2ebe0…2ec00 4e 0d 0a 20 20 42 45 47 49 4e 20 20 65 72 72 6f 72 20 3a 3d 20 35 3b 20 20 67 6f 74 6f 20 73 74 ┆N BEGIN error := 5; goto st┆
0x2ec00…2ec20 (37, 1, 5) 74 65 6c 6e 20 28 27 20 69 6c 6c 65 67 61 6c 20 73 65 67 6d 65 6e 74 2d 64 65 73 63 72 20 61 64 ┆teln (' illegal segment-descr ad┆
0x2ec20…2ec40 64 72 65 73 73 20 27 2c 20 73 65 67 41 64 64 72 2a 32 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a ┆dress ', segAddr*2); END; ┆
0x2ec40…2ec60 20 20 45 4e 44 3b 0d 0a 20 0d 0a 45 4e 44 2e 20 20 7b 20 65 6f 73 4c 6f 61 64 20 7d 0d 0a 20 0d ┆ END; END. æ eosLoad å ┆
0x2ec60…2ec80 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x2ec80…2eca0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x2ee00…2ee20 (37, 1, 6) 4e 0d 0a 20 20 20 20 42 45 47 49 4e 20 20 65 72 72 6f 72 20 3a 3d 20 36 3b 20 20 67 6f 74 6f 20 ┆N BEGIN error := 6; goto ┆
0x2ee20…2ee40 73 74 6f 70 3b 20 20 45 4e 44 3b 0d 0a 20 20 45 4e 44 3b 20 20 7b 66 6f 72 20 69 7d 0d 0a 20 0d ┆stop; END; END; æfor iå ┆
0x2ee40…2ee60 0a 20 20 7b 63 6f 70 79 20 6c 61 73 74 20 73 65 63 74 6f 72 73 20 69 66 20 61 6e 79 7d 0d 0a 20 ┆ æcopy last sectors if anyå ┆
0x2ee60…2ee80 20 57 48 49 4c 45 20 6e 6f 74 20 74 65 72 6d 69 6e 61 74 65 20 44 4f 20 20 63 6f 70 79 52 65 63 ┆ WHILE not terminate DO copyRec┆
0x2ee80…2eea0 20 28 74 65 72 6d 69 6e 61 74 65 29 3b 0d 0a 20 0d 0a 20 20 77 72 69 74 65 6c 6e 3b 0d 0a 20 20 ┆ (terminate); writeln; ┆
0x2eea0…2eec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x2ef00…2ef20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ w┆
0x2ef20…2ef40 72 69 74 65 6c 6e 20 28 27 20 27 3a 39 2c 20 72 65 63 6e 6f 2c 20 27 20 73 65 63 74 6f 72 73 20 ┆riteln (' ':9, recno, ' sectors ┆
0x2ef40…2ef60 6d 6f 76 65 64 20 74 6f 20 27 2c 20 6f 75 74 6e 61 6d 65 29 3b 0d 0a 20 0d 0a 20 0d 0a 7b 63 6f ┆moved to ', outname); æco┆
0x2ef60…2ef80 70 79 20 63 6f 64 65 20 73 65 67 6d 65 6e 74 20 74 6f 20 6f 75 74 70 75 74 20 66 69 6c 65 7d 0d ┆py code segment to output fileå ┆
0x2ef80…2efa0 0a 20 0d 0a 20 20 49 46 20 69 6e 66 6f 72 6d 20 3d 20 76 65 72 73 61 64 6f 73 20 54 48 45 4e 0d ┆ IF inform = versados THEN ┆
0x2efa0…2efc0 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 72 65 73 65 74 20 28 69 6e 66 69 6c 65 29 3b 0d 0a 20 ┆ BEGIN reset (infile); ┆
0x2efc0…2efe0 20 20 20 67 65 74 20 28 69 6e 66 69 6c 65 29 3b 20 20 7b 73 6b 69 70 20 4c 49 42 20 68 65 61 64 ┆ get (infile); æskip LIB head┆
0x2efe0…2f000 65 72 7d 0d 0a 20 20 20 20 46 4f 52 20 69 3a 3d 20 31 20 54 4f 20 63 6f 64 65 53 65 63 20 44 4f ┆erå FOR i:= 1 TO codeSec DO┆
0x2f000…2f080 (37, 1, 7) DataBlock {»EOSLOAD.CF«}
0x2f080…2f0a0 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 ┆ ┆
[…0x3…]
0x2f100…2f120 00 0f 3d 70 61 73 63 61 6c 82 65 6f 73 6c 6f 61 64 00 00 10 3d 70 61 73 63 61 6c 32 20 65 6f 73 ┆ =pascal eosload =pascal2 eos┆
0x2f120…2f140 6c 6f 61 64 00 0f 3d 64 65 6c 85 65 6f 73 6c 6f 61 64 2e 70 63 00 00 0f 3d 64 65 6c 85 65 6f 73 ┆load =del eosload.pc =del eos┆
0x2f140…2f160 6c 6f 61 64 2e 6c 73 00 00 0d 3d 6c 69 6e 6b 84 65 6f 73 6c 6f 61 64 00 00 04 3d 65 6e 64 00 01 ┆load.ls =link eosload =end ┆
0x2f160…2f180 20 00 00 01 20 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 ┆ ┆
0x2f180…2f1a0 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 ┆ ┆
[…0x3…]
0x2f200…2f400 (37, 1, 8) 0xe5[0x200]
0x2f400…2f500 (37, 1, 9) DataBlock {»TXTCONV.CF«}
0x2f500…2f520 2b 4f ff b6 2b 4f ff ba 2a 3c 00 00 00 00 24 3c 00 00 00 16 4e ab 01 a2 61 00 fd e2 2f 3c 00 00 ┆+O +O *< $< N a /< ┆
0x2f520…2f540 80 04 2f 3c 00 00 00 02 2b 6d 00 04 ff be 2b 6d 00 28 ff c2 41 ed ff b6 2b 48 00 28 9f fc 00 00 ┆ /< +m +m ( A +H ( ┆
0x2f540…2f560 00 0e 2b 4f ff b6 2b 4f ff ba 2a 3c 00 00 00 00 24 3c 00 00 00 16 4e ab 01 a2 61 00 fd a0 2f 3c ┆ +O +O *< $< N a /<┆
0x2f560…2f580 00 00 80 03 2f 3c ff ff ff ff 2b 6d 00 04 ff be 2b 6d 00 28 ff c2 41 ed ff b6 2b 48 00 28 9f fc ┆ /< +m +m ( A +H ( ┆
0x2f580…2f5a0 00 00 00 0e 2b 4f ff b6 2b 4f ff ba 2a 3c 00 00 00 00 24 3c 00 00 00 16 4e ab 01 a2 61 00 fd 5e ┆ +O +O *< $< N a ^┆
0x2f5a0…2f5c0 2f 3c 00 00 80 04 2f 3c ff ff ff ff 2b 6d 00 04 ff be 2b 6d 00 28 ff c2 41 ed ff b6 2b 48 00 28 ┆/< /< +m +m ( A +H (┆
0x2f5c0…2f5e0 9f fc 00 00 00 0e 2b 4f ff b6 2b 4f ff ba 2a 3c 00 00 00 00 24 3c 00 00 00 16 4e ab 01 a2 61 00 ┆ +O +O *< $< N a ┆
0x2f5e0…2f600 fc 92 2b 6d ff d6 00 2c 60 00 00 02 60 04 60 00 03 68 41 fa ff fa 43 ed ff c6 22 cd 22 ce 22 cf ┆ +m ,` ` ` hA C " " " ┆
0x2f600…2f620 (37, 1, 10) 61 53 65 67 53 69 7a 65 20 20 3a 3d 20 73 65 67 41 64 64 72 20 2b 20 73 73 52 65 6c 3b 0d 0a 20 ┆aSegSize := segAddr + ssRel; ┆
0x2f620…2f640 20 20 20 61 4e 6f 4c 6f 61 64 73 20 20 3a 3d 20 73 65 67 41 64 64 72 20 2b 20 6e 6c 52 65 6c 3b ┆ aNoLoads := segAddr + nlRel;┆
0x2f640…2f660 0d 0a 20 20 20 20 61 4c 6f 61 64 53 69 7a 65 20 3a 3d 20 73 65 67 41 64 64 72 20 2b 20 6c 73 52 ┆ aLoadSize := segAddr + lsR┆
0x2f660…2f680 65 6c 3b 0d 0a 20 0d 0a 20 20 20 20 49 46 20 69 20 3d 20 31 20 54 48 45 4e 0d 0a 20 20 20 20 42 ┆el; IF i = 1 THEN B┆
0x2f680…2f6a0 45 47 49 4e 0d 0a 20 20 20 20 20 20 73 65 67 53 69 7a 65 2e 6c 20 20 3a 3d 20 63 6f 64 65 53 69 ┆EGIN segSize.l := codeSi┆
0x2f6a0…2f6c0 7a 65 3b 0d 0a 20 20 20 20 20 20 6c 6f 61 64 53 69 7a 65 2e 6c 20 3a 3d 20 63 6f 64 65 53 69 7a ┆ze; loadSize.l := codeSiz┆
0x2f6c0…2f6e0 65 3b 0d 0a 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 49 46 20 69 20 ┆e; END ELSE IF i ┆
0x2f6e0…2f700 3d 20 32 20 54 48 45 4e 20 20 7b 6f 6e 6c 79 20 69 6e 66 6f 72 6d 20 55 4e 49 58 2e 20 20 4f 42 ┆= 2 THEN æonly inform UNIX. OB┆
0x2f700…2f720 53 21 20 4d 6f 64 69 66 2e 44 65 73 63 72 2e 20 69 73 20 64 65 73 74 72 6f 79 65 64 7d 0d 0a 20 ┆S! Modif.Descr. is destroyedå ┆
0x2f720…2f740 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 73 65 67 53 69 7a 65 2e 6c 20 20 3a 3d 20 64 61 ┆ BEGIN segSize.l := da┆
0x2f740…2f760 74 61 53 69 7a 65 20 2b 20 6e 75 6c 6c 53 69 7a 65 3b 0d 0a 20 20 20 20 20 20 6c 6f 61 64 53 69 ┆taSize + nullSize; loadSi┆
0x2f760…2f780 7a 65 2e 6c 20 3a 3d 20 73 65 67 53 69 7a 65 2e 6c 20 2d 20 65 78 74 72 61 42 73 73 3b 0d 0a 20 ┆ze.l := segSize.l - extraBss; ┆
0x2f780…2f7a0 20 20 20 20 20 6e 6f 4c 6f 61 64 73 20 20 20 20 3a 3d 20 31 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d ┆ noLoads := 1; END; ┆
0x2f7a0…2f7c0 0a 20 20 20 20 77 72 69 74 65 20 28 69 3a 38 2c 20 27 20 20 20 20 27 29 3b 0d 0a 20 20 20 20 70 ┆ write (i:8, ' '); p┆
0x2f7c0…2f7e0 72 69 6e 74 48 65 78 20 28 73 65 67 53 69 7a 65 29 3b 0d 0a 20 20 20 20 77 72 69 74 65 20 28 73 ┆rintHex (segSize); write (s┆
0x2f7e0…2f800 65 67 53 69 7a 65 2e 6c 3a 39 2c 20 27 20 20 20 20 27 29 3b 0d 0a 20 20 20 20 70 72 69 6e 74 48 ┆egSize.l:9, ' '); printH┆
0x2f800…2f900 (38, 0, 1) DataBlock {»EOSUNIX.CF«}
0x2f900…2f920 00 08 3d 62 6f 6f 74 67 65 6e 00 0d 3a 2e 6b 65 72 6e 65 6c 2e 6b 6e 65 6c 00 00 11 3a 2e 65 6f ┆ =bootgen :.kernel.knel :.eo┆
0x2f920…2f940 73 6d 6f 64 75 6c 2e 6f 62 6a 64 69 72 00 00 13 3a 2e 65 6f 73 6d 6f 64 75 6c 2e 75 6e 69 78 63 ┆smodul.objdir :.eosmodul.unixc┆
0x2f940…2f960 6f 6e 66 00 00 10 3a 2e 65 6f 73 6d 6f 64 75 6c 2e 63 6c 6f 63 6b 00 0f 3a 2e 65 6f 73 6d 6f 64 ┆onf :.eosmodul.clock :.eosmod┆
0x2f960…2f980 75 6c 2e 6d 63 63 6d 00 00 0e 3a 2e 65 6f 73 6d 6f 64 75 6c 2e 75 64 63 00 12 3a 2e 65 6f 73 6d ┆ul.mccm :.eosmodul.udc :.eosm┆
0x2f980…2f9a0 6f 64 75 6c 2e 76 65 72 73 61 66 73 00 11 3a 2e 65 6f 73 6d 6f 64 75 6c 2e 75 6e 69 6a 63 73 00 ┆odul.versafs :.eosmodul.unijcs ┆
0x2f9a0…2f9c0 00 11 3a 2e 65 6f 73 6d 6f 64 75 6c 2e 73 68 63 6c 66 73 00 00 11 3a 2e 65 6f 73 6d 6f 64 75 6c ┆ :.eosmodul.shclfs :.eosmodul┆
0x2f9c0…2f9e0 2e 75 6e 69 78 66 73 00 00 01 2e 00 00 11 3a 2e 6e 65 77 62 6f 6f 74 2e 65 6f 73 75 6e 69 78 00 ┆.unixfs . :.newboot.eosunix ┆
0x2f9e0…2fa00 00 01 79 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 ┆ y ┆
0x2fa00…2fa20 (38, 0, 2) 3c 3e 20 6e 69 6c 20 64 6f 0d 0a 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 77 72 69 74 65 6c 6e 20 ┆<> nil do begin writeln ┆
0x2fa20…2fa40 28 27 20 27 3a 33 2c 20 69 6e 73 70 65 63 5e 2e 6e 61 6d 65 29 3b 0d 0a 20 20 20 20 69 6e 73 70 ┆(' ':3, inspec^.name); insp┆
0x2fa40…2fa60 65 63 20 3a 3d 20 69 6e 73 70 65 63 5e 2e 6e 65 78 74 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 77 ┆ec := inspec^.next; end; w┆
0x2fa60…2fa80 72 69 74 65 6c 6e 20 28 27 4f 75 74 70 75 74 20 66 69 6c 65 3a 27 29 3b 0d 0a 20 20 20 20 20 20 ┆riteln ('Output file:'); ┆
0x2fa80…2faa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x2fae0…2fb00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 ┆ write┆
0x2fb00…2fb20 6c 6e 20 28 27 20 27 3a 33 2c 20 62 6f 6f 74 66 69 6c 65 6e 61 6d 65 29 3b 0d 0a 20 0d 0a 61 73 ┆ln (' ':3, bootfilename); as┆
0x2fb20…2fb40 6b 3a 0d 0a 20 20 77 72 69 74 65 6c 6e 20 28 27 4f 6b 20 28 79 2f 6e 29 3f 27 29 3b 0d 0a 20 20 ┆k: writeln ('Ok (y/n)?'); ┆
0x2fb40…2fb60 72 65 61 64 6c 6e 20 28 63 29 3b 0d 0a 20 20 69 66 20 28 63 3d 27 6e 27 29 20 6f 72 20 28 63 3d ┆readln (c); if (c='n') or (c=┆
0x2fb60…2fb80 20 27 4e 27 29 20 74 68 65 6e 20 67 6f 74 6f 20 73 74 61 72 74 3b 0d 0a 20 20 69 66 20 28 63 3c ┆ 'N') then goto start; if (c<┆
0x2fb80…2fba0 3e 27 79 27 29 20 61 6e 64 20 28 63 3c 3e 27 59 27 29 20 74 68 65 6e 20 67 6f 74 6f 20 61 73 6b ┆>'y') and (c<>'Y') then goto ask┆
0x2fba0…2fbc0 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 3b 0d 0a 20 0d 0a 7b 66 69 6e 64 20 73 69 7a 65 20 6f 66 20 ┆; writeln; æfind size of ┆
0x2fbc0…2fbe0 6f 75 74 70 75 74 20 66 69 6c 65 3a 20 6b 65 72 6e 65 6c 2d 73 69 7a 65 20 2b 20 6d 6f 64 75 6c ┆output file: kernel-size + modul┆
0x2fbe0…2fc00 65 2d 73 69 7a 65 73 20 2b 20 31 20 2b 20 31 7d 0d 0a 20 0d 0a 7b 6b 65 72 6e 65 6c 20 73 69 7a ┆e-sizes + 1 + 1å ækernel siz┆
0x2fc00…2fd00 (38, 0, 3) DataBlock {»EOSJCL.CF«}
0x2fd00…2fd20 20 00 00 12 89 49 46 81 70 63 81 3d 81 78 6c 61 62 81 54 48 45 4e 00 16 8c 6c 61 62 65 6c 65 64 ┆ IF pc = xlab THEN labeled┆
0x2fd20…2fd40 6b 6f 75 6e 74 82 3a 3d 81 74 72 75 65 3b 00 01 20 00 00 0e 89 45 4e 44 3b 81 28 2a 67 65 6e 69 ┆kount := true; END; (*geni┆
0x2fd40…2fd60 2a 29 00 01 20 00 00 01 20 00 00 48 83 50 52 4f 43 45 44 55 52 45 81 67 65 6e 74 6c 69 81 28 70 ┆*) H PROCEDURE gentli (p┆
0x2fd60…2fd80 63 3a 6d 6e 73 3b 81 64 74 3a 64 61 74 61 74 79 70 65 3b 81 6c 65 76 3a 6c 65 76 72 61 6e 67 65 ┆c:mns; dt:datatype; lev:levrange┆
0x2fd80…2fda0 3b 81 6f 70 65 72 61 6e 64 3a 69 6e 74 65 67 65 72 34 29 3b 00 01 20 00 00 04 86 56 41 52 00 0d ┆; operand:integer4); VAR ┆
0x2fda0…2fdc0 89 63 75 72 70 63 3a 81 69 70 74 72 3b 00 00 01 20 00 00 06 86 42 45 47 49 4e 00 15 89 49 46 81 ┆ curpc: iptr; BEGIN IF ┆
0x2fdc0…2fde0 50 52 43 4f 44 45 81 54 48 45 4e 81 42 45 47 49 4e 00 00 12 8c 6e 65 78 74 70 63 6f 64 65 28 63 ┆PRCODE THEN BEGIN nextpcode(c┆
0x2fde0…2fe00 75 72 70 63 29 3b 00 15 8c 57 49 54 48 81 63 75 72 70 63 40 81 44 4f 81 42 45 47 49 4e 00 00 00 ┆urpc); WITH curpc@ DO BEGIN ┆
0x2fe00…2fe20 (38, 0, 4) 20 20 20 20 4e 43 52 20 53 79 73 74 65 6d 73 20 45 6e 67 69 6e 65 65 72 69 6e 67 20 2d 20 43 6f ┆ NCR Systems Engineering - Co┆
0x2fe20…2fe40 70 65 6e 68 61 67 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆penhagen ┆
0x2fe40…2fe60 20 20 43 6f 70 65 6e 68 61 67 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Copenhagen ┆
0x2fe60…2fe80 20 20 20 20 20 20 44 45 4e 4d 41 52 4b 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ DENMARK *****************┆
0x2fe80…2fea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x2fea0…2fec0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 7d 0d 0a 20 0d 0a 70 72 6f 67 72 61 6d 20 62 6f ┆****************å program bo┆
0x2fec0…2fee0 6f 74 67 65 6e 20 28 69 6e 70 75 74 2c 6f 75 74 70 75 74 29 3b 0d 0a 6c 61 62 65 6c 0d 0a 20 20 ┆otgen (input,output); label ┆
0x2fee0…2ff00 73 74 61 72 74 2c 20 61 73 6b 2c 20 65 72 72 6f 72 73 74 6f 70 3b 0d 0a 20 0d 0a 74 79 70 65 0d ┆start, ask, errorstop; type ┆
0x2ff00…2ff20 0a 20 20 62 79 74 65 20 20 20 20 20 3d 20 2d 31 32 38 2e 2e 31 32 37 3b 0d 0a 20 20 77 6f 72 64 ┆ byte = -128..127; word┆
0x2ff20…2ff40 20 20 20 20 20 3d 20 2d 33 32 37 36 38 2e 2e 33 32 37 36 37 3b 0d 0a 20 20 6c 6f 6e 67 20 20 20 ┆ = -32768..32767; long ┆
0x2ff40…2ff60 20 20 3d 20 69 6e 74 65 67 65 72 3b 0d 0a 20 0d 0a 20 20 66 6e 61 6d 65 20 20 20 20 3d 20 73 74 ┆ = integer; fname = st┆
0x2ff60…2ff80 72 69 6e 67 5b 34 30 5d 3b 0d 0a 20 0d 0a 20 20 70 74 72 20 3d 20 5e 73 70 65 63 3b 0d 0a 20 20 ┆ringÆ40Å; ptr = ^spec; ┆
0x2ff80…2ffa0 73 70 65 63 20 3d 0d 0a 20 20 20 20 72 65 63 6f 72 64 0d 0a 20 20 20 20 20 20 6e 65 78 74 20 3a ┆spec = record next :┆
0x2ffa0…2ffc0 20 70 74 72 3b 0d 0a 20 20 20 20 20 20 6e 61 6d 65 20 3a 20 66 6e 61 6d 65 3b 0d 0a 20 20 20 20 ┆ ptr; name : fname; ┆
0x2ffc0…2ffe0 65 6e 64 3b 0d 0a 20 0d 0a 20 20 72 65 63 74 79 70 65 20 3d 20 28 6c 69 62 72 65 63 2c 20 65 6f ┆end; rectype = (librec, eo┆
0x2ffe0…30000 73 68 65 61 64 31 2c 20 65 6f 73 68 65 61 64 32 2c 20 63 6f 64 65 29 3b 0d 0a 20 0d 0a 20 20 73 ┆shead1, eoshead2, code); s┆
0x30000…30180 (38, 0, 5) DataBlock {»UXFSTEST.CF«}
0x30180…301a0 32 36 31 31 2e 2e 75 78 66 73 74 65 73 74 2e 72 6f 00 00 10 6c 69 62 20 30 2e 2e 65 6f 73 6c 69 ┆2611..uxfstest.ro lib 0..eosli┆
0x301a0…301c0 62 2e 72 6f 00 12 6c 69 62 20 30 2e 2e 70 61 73 63 61 6c 69 62 2e 72 6f 00 03 65 6e 64 00 00 10 ┆b.ro lib 0..pascalib.ro end ┆
0x301c0…301e0 3d 64 65 6c 85 75 78 66 73 74 65 73 74 2e 72 6f 00 10 3d 64 65 6c 85 75 78 66 73 74 65 73 74 2e ┆=del uxfstest.ro =del uxfstest.┆
0x301e0…30200 6c 6c 00 08 3d 65 6f 73 6c 6f 61 64 00 02 76 63 00 08 75 78 66 73 74 65 73 74 00 01 79 00 00 10 ┆ll =eosload vc uxfstest y ┆
0x30200…30220 (38, 0, 6) 20 69 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 72 65 61 64 20 28 69 6e 66 69 6c 65 2c 20 62 6c 6f ┆ i + 1; read (infile, blo┆
0x30220…30240 63 6b 29 3b 0d 0a 20 20 20 20 20 20 77 72 69 74 65 20 28 6f 75 74 66 69 6c 65 2c 20 62 6c 6f 63 ┆ck); write (outfile, bloc┆
0x30240…30260 6b 29 3b 0d 0a 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 77 72 69 74 65 6c 6e 20 28 6e 61 6d 65 ┆k); end; writeln (name┆
0x30260…30280 3a 32 30 2c 20 69 2c 20 27 20 73 65 63 74 6f 72 73 20 63 6f 70 69 65 64 27 29 3b 0d 0a 20 20 65 ┆:20, i, ' sectors copied'); e┆
0x30280…302a0 6e 64 3b 20 20 7b 63 6f 70 79 66 69 6c 65 7d 0d 0a 20 0d 0a 20 0d 0a 62 65 67 69 6e 0d 0a 7b 24 ┆nd; æcopyfileå begin æ$┆
0x302a0…302c0 41 3d 32 7d 0d 0a 20 0d 0a 73 74 61 72 74 3a 0d 0a 20 20 77 72 69 74 65 6c 6e 20 28 27 54 79 70 ┆A=2å start: writeln ('Typ┆
0x302c0…302e0 65 20 66 69 6c 65 6e 61 6d 65 20 6f 66 20 4b 65 72 6e 65 6c 20 28 2e 4c 4f 20 77 69 6c 6c 20 62 ┆e filename of Kernel (.LO will b┆
0x302e0…30300 65 20 61 64 64 65 64 29 27 29 3b 0d 0a 20 20 72 65 61 64 6c 6e 20 28 66 69 6c 65 6e 61 6d 65 29 ┆e added)'); readln (filename)┆
0x30300…30320 3b 0d 0a 20 20 6b 65 72 6e 65 6c 6e 61 6d 65 20 3a 3d 20 63 6f 6e 63 61 74 20 28 66 69 6c 65 6e ┆; kernelname := concat (filen┆
0x30320…30340 61 6d 65 2c 20 27 2e 4c 4f 27 29 3b 0d 0a 20 0d 0a 20 20 77 72 69 74 65 6c 6e 20 28 27 54 79 70 ┆ame, '.LO'); writeln ('Typ┆
0x30340…30360 65 20 66 69 6c 65 6e 61 6d 65 73 20 6f 66 20 45 4f 53 20 6f 62 6a 65 63 74 20 6d 6f 64 75 6c 65 ┆e filenames of EOS object module┆
0x30360…30380 73 20 28 2e 45 4f 20 77 69 6c 6c 20 62 65 20 61 64 64 65 64 29 27 29 3b 0d 0a 20 20 77 72 69 74 ┆s (.EO will be added)'); writ┆
0x30380…303a0 65 6c 6e 20 28 27 6f 6e 65 20 6e 61 6d 65 20 70 65 72 20 6c 69 6e 65 2c 20 27 27 2e 27 27 20 65 ┆eln ('one name per line, ''.'' e┆
0x303a0…303c0 6e 64 73 20 74 68 65 20 6c 69 73 74 27 29 3b 0d 0a 20 0d 0a 20 20 66 69 72 73 74 20 3a 3d 20 6e ┆nds the list'); first := n┆
0x303c0…303e0 69 6c 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 72 65 61 64 6c 6e 20 28 66 69 6c 65 6e ┆il; repeat readln (filen┆
0x303e0…30400 61 6d 65 29 3b 0d 0a 20 20 20 20 69 66 20 66 69 6c 65 6e 61 6d 65 20 3c 3e 20 27 2e 27 20 74 68 ┆ame); if filename <> '.' th┆
0x30400…30420 (38, 0, 7) 61 64 20 3d 0d 0a 20 20 20 20 72 65 63 6f 72 64 0d 0a 20 20 20 20 20 20 72 73 76 2c 20 61 74 72 ┆ad = record rsv, atr┆
0x30420…30440 20 3a 20 77 6f 72 64 3b 0d 0a 20 20 20 20 20 20 73 65 67 6e 61 6d 65 20 20 3a 20 70 61 63 6b 65 ┆ : word; segname : packe┆
0x30440…30460 64 20 61 72 72 61 79 20 5b 31 2e 2e 34 5d 20 6f 66 20 63 68 61 72 3b 0d 0a 20 20 20 20 20 20 20 ┆d array Æ1..4Å of char; ┆
0x30460…30480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x304c0…304e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 ┆ se┆
0x304e0…30500 67 73 74 61 72 74 20 3a 20 6c 6f 6e 67 3b 0d 0a 20 20 20 20 20 20 73 65 67 73 69 7a 65 20 20 3a ┆gstart : long; segsize :┆
0x30500…30520 20 6c 6f 6e 67 3b 0d 0a 20 20 20 20 65 6e 64 3b 0d 0a 20 0d 0a 20 20 6d 69 64 20 3d 0d 0a 20 20 ┆ long; end; mid = ┆
0x30520…30540 20 20 72 65 63 6f 72 64 0d 0a 20 20 20 20 20 20 66 69 72 73 74 20 20 20 3a 20 77 6f 72 64 3b 0d ┆ record first : word; ┆
0x30540…30560 0a 20 20 20 20 20 20 6c 61 73 74 20 20 20 20 3a 20 77 6f 72 64 3b 0d 0a 20 20 20 20 65 6e 64 3b ┆ last : word; end;┆
0x30560…30580 0d 0a 20 0d 0a 20 20 70 72 6f 67 72 65 63 20 3d 0d 0a 20 20 20 20 72 65 63 6f 72 64 0d 0a 20 20 ┆ progrec = record ┆
0x30580…305a0 20 20 20 20 63 61 73 65 20 72 65 63 74 79 70 65 20 6f 66 0d 0a 20 20 20 20 20 20 20 20 6c 69 62 ┆ case rectype of lib┆
0x305a0…305c0 72 65 63 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 28 68 65 61 64 31 20 3a 20 70 61 63 6b 65 64 20 ┆rec: (head1 : packed ┆
0x305c0…305e0 61 72 72 61 79 20 5b 31 2e 2e 32 32 5d 20 6f 66 20 62 79 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 ┆array Æ1..22Å of byte; ┆
0x305e0…30600 20 20 20 65 6e 74 72 79 20 3a 20 6c 6f 6e 67 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 68 65 61 ┆ entry : long; hea┆
0x30600…30620 (38, 0, 8) 61 6d 65 20 3a 3d 20 69 6e 73 70 65 63 5e 2e 6e 61 6d 65 3b 0d 0a 20 20 20 20 72 65 73 65 74 20 ┆ame := inspec^.name; reset ┆
0x30620…30640 28 69 6e 66 69 6c 65 2c 20 66 69 6c 65 6e 61 6d 65 29 3b 0d 0a 20 20 20 20 69 66 20 65 6f 66 20 ┆(infile, filename); if eof ┆
0x30640…30660 28 69 6e 66 69 6c 65 29 20 74 68 65 6e 0d 0a 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 ┆(infile) then begin ┆
0x30660…30680 65 72 72 6f 72 20 3a 3d 20 31 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 73 74 6f ┆error := 1; goto errorsto┆
0x30680…306a0 70 3b 0d 0a 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 72 65 61 64 20 28 69 6e 66 69 6c 65 2c 20 ┆p; end; read (infile, ┆
0x306a0…306c0 62 6c 6f 63 6b 29 3b 0d 0a 20 20 20 20 73 69 7a 65 20 3a 3d 20 62 6c 6f 63 6b 2e 70 72 6f 67 73 ┆block); size := block.progs┆
0x306c0…306e0 69 7a 65 20 64 69 76 20 32 35 36 3b 0d 0a 20 20 20 20 69 66 20 73 69 7a 65 20 3c 3d 20 30 20 74 ┆ize div 256; if size <= 0 t┆
0x306e0…30700 68 65 6e 0d 0a 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 65 72 72 6f 72 20 3a 3d 20 33 ┆hen begin error := 3┆
0x30700…30720 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 73 74 6f 70 3b 0d 0a 20 20 20 20 65 6e ┆; goto errorstop; en┆
0x30720…30740 64 3b 0d 0a 20 20 20 20 6f 75 74 73 69 7a 65 20 3a 3d 20 6f 75 74 73 69 7a 65 20 2b 20 73 69 7a ┆d; outsize := outsize + siz┆
0x30740…30760 65 3b 0d 0a 20 20 20 20 69 6e 73 70 65 63 20 3a 3d 20 69 6e 73 70 65 63 5e 2e 6e 65 78 74 3b 0d ┆e; inspec := inspec^.next; ┆
0x30760…30780 0a 20 20 65 6e 64 3b 0d 0a 20 20 6f 75 74 73 69 7a 65 20 3a 3d 20 6f 75 74 73 69 7a 65 20 2b 20 ┆ end; outsize := outsize + ┆
0x30780…307a0 31 20 2b 20 31 3b 20 20 7b 69 6e 63 6c 75 64 65 20 4c 49 42 20 68 65 61 64 65 72 20 61 6e 64 20 ┆1 + 1; æinclude LIB header and ┆
0x307a0…307c0 74 65 72 6d 69 6e 61 74 69 6e 67 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆terminating ┆
0x307c0…307e0 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 65 72 6f 20 6d 6f 64 75 6c 65 20 69 6e 20 6f 75 74 66 ┆ zero module in outf┆
0x307e0…30800 69 6c 65 20 73 69 7a 65 7d 0d 0a 20 0d 0a 7b 63 6f 6e 76 65 72 74 20 6f 75 74 73 69 7a 65 20 69 ┆ile sizeå æconvert outsize i┆
0x30800…30820 (38, 0, 9) 65 6e 0d 0a 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 6e 65 77 20 28 69 6e 73 70 65 63 ┆en begin new (inspec┆
0x30820…30840 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 66 69 72 73 74 20 3d 20 6e 69 6c 20 74 68 65 6e 20 66 69 ┆); if first = nil then fi┆
0x30840…30860 72 73 74 20 3a 3d 20 69 6e 73 70 65 63 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rst := inspec ┆
0x30860…30880 20 20 20 20 65 6c 73 65 20 6c 61 73 74 5e 2e 6e 65 78 74 20 3a 3d 20 69 6e 73 70 65 63 3b 0d 0a ┆ else last^.next := inspec; ┆
0x30880…308a0 20 20 20 20 20 20 6c 61 73 74 20 3a 3d 20 69 6e 73 70 65 63 3b 0d 0a 20 20 20 20 20 20 69 6e 73 ┆ last := inspec; ins┆
0x308a0…308c0 70 65 63 5e 2e 6e 61 6d 65 20 3a 3d 20 63 6f 6e 63 61 74 20 28 66 69 6c 65 6e 61 6d 65 2c 20 27 ┆pec^.name := concat (filename, '┆
0x308c0…308e0 2e 45 4f 27 29 3b 0d 0a 20 20 20 20 65 6e 64 3b 0d 0a 20 20 75 6e 74 69 6c 20 66 69 6c 65 6e 61 ┆.EO'); end; until filena┆
0x308e0…30900 6d 65 20 3d 20 27 2e 27 3b 0d 0a 20 0d 0a 20 20 77 72 69 74 65 6c 6e 20 28 27 54 79 70 65 20 66 ┆me = '.'; writeln ('Type f┆
0x30900…30920 69 6c 65 6e 61 6d 65 20 6f 66 20 6f 75 74 70 75 74 20 66 69 6c 65 20 28 2e 53 59 20 77 69 6c 6c ┆ilename of output file (.SY will┆
0x30920…30940 20 62 65 20 61 64 64 65 64 29 27 29 3b 0d 0a 20 20 72 65 61 64 6c 6e 20 28 66 69 6c 65 6e 61 6d ┆ be added)'); readln (filenam┆
0x30940…30960 65 29 3b 0d 0a 20 20 62 6f 6f 74 66 69 6c 65 6e 61 6d 65 20 3a 3d 20 63 6f 6e 63 61 74 20 28 66 ┆e); bootfilename := concat (f┆
0x30960…30980 69 6c 65 6e 61 6d 65 2c 20 27 2e 53 59 27 29 3b 0d 0a 20 0d 0a 7b 6c 69 73 74 20 66 69 6c 65 6e ┆ilename, '.SY'); ælist filen┆
0x30980…309a0 61 6d 65 73 20 61 6e 64 20 61 73 6b 20 66 6f 72 20 76 65 72 69 66 69 63 61 74 69 6f 6e 7d 0d 0a ┆ames and ask for verificationå ┆
0x309a0…309c0 20 20 77 72 69 74 65 6c 6e 20 28 27 49 6e 70 75 74 20 66 69 6c 65 73 3a 27 29 3b 0d 0a 20 20 77 ┆ writeln ('Input files:'); w┆
0x309c0…309e0 72 69 74 65 6c 6e 20 28 27 20 27 3a 33 2c 20 6b 65 72 6e 65 6c 6e 61 6d 65 29 3b 0d 0a 20 20 69 ┆riteln (' ':3, kernelname); i┆
0x309e0…30a00 6e 73 70 65 63 20 3a 3d 20 66 69 72 73 74 3b 0d 0a 20 20 77 68 69 6c 65 20 69 6e 73 70 65 63 20 ┆nspec := first; while inspec ┆
0x30a00…30a20 (38, 0, 10) 64 32 20 3a 20 70 61 63 6b 65 64 20 61 72 72 61 79 20 5b 31 2e 2e 32 32 5d 20 6f 66 20 62 79 74 ┆d2 : packed array Æ1..22Å of byt┆
0x30a20…30a40 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 73 61 64 73 20 20 3a 20 61 72 72 61 79 20 5b 31 2e ┆e; sads : array Æ1.┆
0x30a40…30a60 2e 38 5d 20 20 6f 66 20 73 61 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 6d 69 64 73 20 20 3a ┆.8Å of sad; mids :┆
0x30a60…30a80 20 61 72 72 61 79 20 5b 31 2e 2e 32 30 5d 20 6f 66 20 6d 69 64 29 3b 0d 0a 20 20 20 20 20 20 20 ┆ array Æ1..20Å of mid); ┆
0x30a80…30aa0 20 65 6f 73 68 65 61 64 31 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 28 68 65 61 64 73 69 7a 65 20 ┆ eoshead1: (headsize ┆
0x30aa0…30ac0 3a 20 77 6f 72 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 67 73 69 7a 65 20 3a 20 6c ┆: word; progsize : l┆
0x30ac0…30ae0 6f 6e 67 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 67 6b 69 6e 64 20 3a 20 77 6f 72 64 ┆ong; progkind : word┆
0x30ae0…30b00 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 67 61 64 72 20 20 3a 20 77 6f 72 64 3b 0d 0a ┆; progadr : word; ┆
0x30b00…30b20 20 20 20 20 20 20 20 20 20 20 20 64 75 6d 6d 79 20 20 20 20 3a 20 70 61 63 6b 65 64 20 61 72 72 ┆ dummy : packed arr┆
0x30b20…30b40 61 79 20 5b 35 2e 2e 31 32 37 5d 20 6f 66 20 77 6f 72 64 29 3b 0d 0a 20 20 20 20 20 20 20 20 65 ┆ay Æ5..127Å of word); e┆
0x30b40…30b60 6f 73 68 65 61 64 32 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 28 65 6f 73 20 20 20 20 20 20 3a 20 ┆oshead2: (eos : ┆
0x30b60…30b80 70 61 63 6b 65 64 20 61 72 72 61 79 20 5b 30 2e 2e 31 32 37 5d 20 6f 66 20 77 6f 72 64 29 3b 0d ┆packed array Æ0..127Å of word); ┆
0x30b80…30ba0 0a 20 20 20 20 20 20 20 20 63 6f 64 65 20 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 28 64 61 74 61 ┆ code : (data┆
0x30ba0…30bc0 20 20 20 20 20 3a 20 70 61 63 6b 65 64 20 61 72 72 61 79 20 5b 30 2e 2e 32 35 35 5d 20 6f 66 20 ┆ : packed array Æ0..255Å of ┆
0x30bc0…30be0 62 79 74 65 29 3b 0d 0a 20 20 20 20 65 6e 64 3b 20 7b 70 72 6f 67 72 65 63 7d 0d 0a 20 0d 0a 20 ┆byte); end; æprogrecå ┆
0x30be0…30c00 20 70 72 6f 67 66 69 6c 65 20 3d 20 66 69 6c 65 20 6f 66 20 70 72 6f 67 72 65 63 3b 0d 0a 20 0d ┆ progfile = file of progrec; ┆
0x30c00…30c20 (39, 1, 1) 6e 74 6f 20 61 20 74 65 78 74 73 74 72 69 6e 67 20 74 6f 20 62 65 20 69 6e 73 65 72 74 65 64 20 ┆nto a textstring to be inserted ┆
0x30c20…30c40 69 6e 20 62 6f 6f 74 66 69 6c 65 6e 61 6d 65 7d 0d 0a 20 20 62 6f 6f 74 66 69 6c 65 6e 61 6d 65 ┆in bootfilenameå bootfilename┆
0x30c40…30c60 20 3a 3d 20 63 6f 6e 63 61 74 20 28 62 6f 6f 74 66 69 6c 65 6e 61 6d 65 2c 20 27 3b 43 3d 27 29 ┆ := concat (bootfilename, ';C=')┆
0x30c60…30c80 3b 0d 0a 20 20 69 3a 3d 20 31 3b 0d 0a 20 20 73 69 7a 65 20 3a 3d 20 6f 75 74 73 69 7a 65 3b 0d ┆; i:= 1; size := outsize; ┆
0x30c80…30ca0 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 64 69 67 69 74 20 3a 3d 20 73 69 7a 65 20 6d 6f 64 ┆ repeat digit := size mod┆
0x30ca0…30cc0 20 31 30 3b 0d 0a 20 20 20 20 74 65 78 74 5b 69 5d 20 3a 3d 20 63 68 72 20 28 6f 72 64 28 27 30 ┆ 10; textÆiÅ := chr (ord('0┆
0x30cc0…30ce0 27 29 20 2b 20 64 69 67 69 74 29 3b 0d 0a 20 20 20 20 73 69 7a 65 20 3a 3d 20 73 69 7a 65 20 64 ┆') + digit); size := size d┆
0x30ce0…30d00 69 76 20 31 30 3b 0d 0a 20 20 20 20 69 66 20 73 69 7a 65 20 3e 20 30 20 74 68 65 6e 20 69 3a 3d ┆iv 10; if size > 0 then i:=┆
0x30d00…30d20 20 69 20 2b 20 31 3b 0d 0a 20 20 75 6e 74 69 6c 20 73 69 7a 65 20 3d 20 30 3b 0d 0a 20 20 66 6f ┆ i + 1; until size = 0; fo┆
0x30d20…30d40 72 20 69 3a 3d 20 69 20 64 6f 77 6e 74 6f 20 31 20 64 6f 0d 0a 20 20 20 20 62 6f 6f 74 66 69 6c ┆r i:= i downto 1 do bootfil┆
0x30d40…30d60 65 6e 61 6d 65 20 3a 3d 20 63 6f 6e 63 61 74 20 28 62 6f 6f 74 66 69 6c 65 6e 61 6d 65 2c 20 74 ┆ename := concat (bootfilename, t┆
0x30d60…30d80 65 78 74 5b 69 5d 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 20 28 27 4f 75 74 66 69 6c 65 3a 20 20 ┆extÆiÅ); writeln ('Outfile: ┆
0x30d80…30da0 20 27 2c 20 62 6f 6f 74 66 69 6c 65 6e 61 6d 65 29 3b 0d 0a 20 0d 0a 7b 63 72 65 61 74 65 20 63 ┆ ', bootfilename); æcreate c┆
0x30da0…30dc0 6f 6e 74 69 67 75 6f 75 73 20 6f 75 74 66 69 6c 65 7d 0d 0a 20 20 72 65 77 72 69 74 65 20 28 6f ┆ontiguous outfileå rewrite (o┆
0x30dc0…30de0 75 74 66 69 6c 65 2c 20 62 6f 6f 74 66 69 6c 65 6e 61 6d 65 29 3b 0d 0a 20 0d 0a 7b 63 6f 70 79 ┆utfile, bootfilename); æcopy┆
0x30de0…30e00 20 4b 65 72 6e 65 6c 20 69 6e 74 6f 20 6f 75 74 66 69 6c 65 7d 0d 0a 20 20 20 20 20 20 20 20 20 ┆ Kernel into outfileå ┆
0x30e00…30e20 (39, 1, 2) 20 20 20 20 4e 43 52 20 53 79 73 74 65 6d 73 20 45 6e 67 69 6e 65 65 72 69 6e 67 20 2d 20 43 6f ┆ NCR Systems Engineering - Co┆
0x30e20…30e40 70 65 6e 68 61 67 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆penhagen ┆
0x30e40…30e60 20 20 43 6f 70 65 6e 68 61 67 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Copenhagen ┆
0x30e60…30e80 20 20 20 20 20 20 44 45 4e 4d 41 52 4b 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ DENMARK *****************┆
0x30e80…30ea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x30ea0…30ec0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 7d 0d 0a 20 0d 0a 20 0d 0a 50 52 4f 47 52 41 4d ┆****************å PROGRAM┆
0x30ec0…30ee0 20 63 72 65 61 46 69 6c 65 20 28 69 6e 70 75 74 2c 20 6f 75 74 70 75 74 29 3b 0d 0a 20 0d 0a 54 ┆ creaFile (input, output); T┆
0x30ee0…30f00 59 50 45 0d 0a 20 20 62 79 74 65 20 3d 20 2d 31 32 38 2e 2e 31 32 37 3b 0d 0a 20 20 77 6f 72 64 ┆YPE byte = -128..127; word┆
0x30f00…30f20 20 3d 20 2d 33 32 37 36 38 2e 2e 33 32 37 36 37 3b 0d 0a 20 20 6c 6f 6e 67 20 3d 20 69 6e 74 65 ┆ = -32768..32767; long = inte┆
0x30f20…30f40 67 65 72 3b 0d 0a 20 20 66 4e 61 6d 65 20 3d 20 73 74 72 69 6e 67 5b 34 38 5d 3b 0d 0a 20 20 72 ┆ger; fName = stringÆ48Å; r┆
0x30f40…30f60 65 63 20 3d 20 41 52 52 41 59 20 5b 31 2e 2e 32 35 36 5d 20 4f 46 20 62 79 74 65 3b 0d 0a 20 0d ┆ec = ARRAY Æ1..256Å OF byte; ┆
0x30f60…30f80 0a 56 41 52 0d 0a 20 20 6f 75 74 66 69 6c 65 20 3a 20 46 49 4c 45 20 4f 46 20 72 65 63 3b 0d 0a ┆ VAR outfile : FILE OF rec; ┆
0x30f80…30fa0 20 20 62 6c 6f 63 6b 20 20 20 3a 20 72 65 63 3b 0d 0a 20 20 66 69 6c 65 4e 61 6d 65 20 3a 20 66 ┆ block : rec; fileName : f┆
0x30fa0…30fc0 4e 61 6d 65 3b 0d 0a 20 20 66 53 69 7a 65 2c 20 69 2c 20 6a 20 3a 20 69 6e 74 65 67 65 72 3b 0d ┆Name; fSize, i, j : integer; ┆
0x30fc0…30fe0 0a 20 0d 0a 42 45 47 49 4e 0d 0a 20 20 77 72 69 74 65 6c 6e 20 28 27 54 79 70 65 20 66 69 6c 65 ┆ BEGIN writeln ('Type file┆
0x30fe0…31000 4e 61 6d 65 2c 20 65 78 2e 20 45 41 52 3a 32 36 31 31 2e 2e 54 45 53 54 31 3b 43 3d 33 27 29 3b ┆Name, ex. EAR:2611..TEST1;C=3');┆
0x31000…31020 (39, 1, 3) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x31180…c7000 […elided…]
0xc7000…c7200 (159, 1, 3) 0xe5[0x200]
[…0x7…]