|
DataMuseum.dkPresents historical artifacts from the history of: RC3500 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC3500 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2304 (0x900)
Names: »t«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦093e2ad1c⟧
└─⟦this⟧ »t«
0x000…020 (0,) 02 40 02 80 10 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 ┆ @ ┆ 0x020…040 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 12 81 1a 12 00 f0 0f ┆ ┆ 0x040…060 00 f0 0f 01 20 0f 01 20 0f 00 f0 12 00 f1 0f 01 23 00 2f f6 0f 10 f0 0f 10 f0 0f 10 f0 12 00 c9 ┆ # / ┆ 0x060…080 15 c0 0d ff 80 db 0e 60 fb 16 e0 00 00 10 e7 0d c1 6e 00 00 01 0f 41 6e 00 00 01 10 21 20 12 01 ┆ ` n An ! ┆ 0x080…0a0 03 12 01 5c 00 df f8 0d b0 e6 0f b1 6e 00 00 10 0e 70 dc 16 e0 00 00 10 f4 16 e0 00 00 11 02 13 ┆ \ n p ┆ 0x0a0…0c0 60 01 ff b1 20 0d 01 03 14 30 03 ff d1 75 17 51 7a 12 e0 03 16 d0 09 ff 81 08 15 c0 0d ff 81 09 ┆` 0 u Qz ┆ 0x0c0…0e0 15 c0 11 ff 81 07 0c c0 ce 12 01 16 12 b1 1b 12 00 f0 12 01 43 00 4f fd 18 51 9b 18 51 7a 12 e0 ┆ C O Q Qz ┆ 0x0e0…100 04 15 0f f5 ff a1 08 16 e0 00 01 21 09 17 26 d7 46 f0 00 00 01 09 16 e0 00 00 10 db 16 e0 00 00 ┆ ! & F ┆ 0x100…120 71 07 0c c1 20 14 20 05 ff d1 85 18 51 7a 12 e0 03 15 0f f5 ff a1 08 16 e0 00 00 01 09 16 e0 00 ┆q Qz ┆ 0x120…140 00 01 07 0c c1 20 0d 11 44 00 6f fd 10 f1 18 14 40 06 ff d1 12 13 3f fe 17 1f ff 0e a1 1d 12 01 ┆ D o @ ? ┆ 0x140…160 20 14 4f f7 ff a1 15 11 91 3f 00 7f fd 17 f1 7a 12 e0 02 15 0f f5 ff a1 08 16 e0 00 00 01 07 11 ┆ O ? z ┆ 0x160…180 31 20 13 f0 07 ff d1 7f 17 a1 2e 00 21 50 ff 5f fa 10 81 44 ff 7f fa 10 70 cc 12 01 1f 12 01 2d ┆1 . !P _ D p -┆ 0x180…1a0 00 10 f0 12 01 43 00 8f fd 18 41 7a 12 e0 02 15 0f f5 ff a1 08 17 1f ff 10 70 cc 12 01 17 12 91 ┆ C Az p ┆ 0x1a0…1c0 34 00 20 07 73 74 64 65 72 72 6f 72 00 00 00 00 04 30 c8 00 00 00 6f 70 65 6e 00 00 00 00 00 00 ┆4 stderror 0 open ┆ 0x1c0…1e0 00 00 05 3a 53 20 00 00 73 65 74 70 6f 73 69 74 69 6f 6e 00 09 34 c8 00 00 00 ff df fd ff df fd ┆ :S setposition 4 ┆ 0x1e0…200 ff df fd ff df fd 24 00 00 00 00 00 69 6e 72 65 63 36 00 00 00 00 00 00 0c d2 00 00 00 00 63 6c ┆ $ inrec6 cl┆ 0x200…220 6f 73 65 00 00 00 00 00 00 00 05 22 00 00 00 00 2a 76 65 72 73 69 6f 6e 00 00 00 00 00 00 01 00 ┆ose " *version ┆ 0x220…240 00 00 00 17 ff ff d6 96 e7 26 56 33 60 00 00 00 00 00 00 cd 20 00 00 00 02 70 80 00 01 7f ff fd ┆ &V3` p ┆ 0x240…260 73 65 74 70 6f 73 69 74 69 6f 6e 00 09 34 c8 00 00 00 26 f2 71 5e 10 04 2e 10 0a d9 20 0d b0 00 ┆setposition 4 & q^ . ┆ 0x260…280 10 37 ce 7e 51 10 00 99 0f ff 11 8e e7 a9 00 01 34 80 04 34 80 3a d9 20 0d b0 00 10 37 ce 6c 51 ┆ 7 ~Q 4 4 : 7 lQ┆ 0x280…2a0 10 00 99 0f f0 11 8e d5 a9 00 01 34 80 0c 37 ce 5e 51 20 00 a4 00 01 37 ce 56 34 80 20 2d 0f ee ┆ 4 7 ^Q 7 V4 - ┆ 0x2a0…2c0 37 ce 4e 5e 10 00 50 8e bd 00 20 07 00 00 00 00 01 c6 00 00 aa 73 74 64 65 72 72 6f 72 00 00 00 ┆7 N^ P stderror ┆ 0x2c0…2e0 00 04 30 c8 00 00 00 6f 70 65 6e 00 00 00 00 00 00 00 00 05 3a 53 20 00 00 73 65 74 70 6f 73 69 ┆ 0 open :S setposi┆ 0x2e0…300 74 69 6f 6e 00 09 34 c8 00 00 00 ff df fd ff df fd 34 30 4c 00 00 40 00 00 00 00 00 00 00 00 02 ┆tion 4 40L @ ┆ 0x300…320 02 40 1e 01 e0 00 06 40 00 01 30 00 01 60 00 00 81 e7 00 c0 00 00 71 9f 01 50 00 00 60 00 00 51 ┆ @ @ 0 ` q P ` Q┆ 0x320…340 73 00 41 47 01 10 00 00 31 05 01 40 00 00 d0 00 00 20 00 01 20 00 00 10 00 00 df ff 00 60 17 00 ┆s AG 1 @ ` ┆ 0x340…360 c1 e8 00 81 c2 00 00 00 00 c1 a0 00 cf ff 01 41 74 00 00 80 6d 74 6f 00 00 00 00 00 12 01 c1 48 ┆ At mto H┆ 0x360…380 00 c1 06 00 00 01 00 00 02 00 00 06 00 00 00 00 02 05 ff df fd ff df fd 24 00 00 00 00 00 69 6e ┆ $ in┆ 0x380…3a0 72 65 63 36 00 00 00 00 00 00 0c d2 00 00 00 00 63 6c 6f 73 65 00 00 00 00 00 00 00 05 22 00 00 ┆rec6 close " ┆ 0x3a0…3c0 00 00 2a 76 65 72 73 69 6f 6e 00 00 00 00 00 00 01 00 00 00 0c 5e 6d 01 8d c0 2d 0f be 37 cf 8e ┆ *version ^m - 7 ┆ 0x3c0…3e0 2c 0f fa dd 10 40 2c 00 00 53 cf 7e dc 10 3c 2e 10 42 d9 8f bf 61 8f b9 29 8f b5 5d 2f c6 2d 00 ┆, @, S ~ <. B a ) ]/ - ┆ 0x3e0…400 02 5d 2f c4 2c 20 00 51 8f 87 dd 2f f2 2c 00 01 2d 2f b6 dd cf 6e 51 8f 7f 37 cf 78 34 80 6a 2d ┆ ]/ , Q / , -/ nQ 7 x4 j-┆ 0x400…420 0f f6 37 cf 60 2c 0f f8 dd 10 08 2c 00 00 53 cf 50 dc 10 02 5e 10 04 2e 10 0a d9 20 0d b0 00 10 ┆ 7 `, , S P ^ . ┆ 0x420…440 37 cf 5e 51 10 00 99 0f ff 11 8f 7d a9 00 01 34 80 04 34 80 3a d9 20 0d b0 00 10 37 cf 4c 51 10 ┆7 ^Q } 4 4 : 7 LQ ┆ 0x440…460 00 99 0f f0 11 8f 6b a9 00 01 34 80 0c 50 2f fa 51 8f 45 a4 00 01 37 cf 38 34 80 20 2d 0f ee 37 ┆ k 4 P/ Q E 7 84 - 7┆ 0x460…480 cf 22 5e 10 00 50 8f 53 53 8f 10 dc 10 05 d8 20 09 dc 10 09 d8 20 0d dc 10 0d d8 20 11 dc 10 11 ┆ "^ P SS ┆ 0x480…4a0 53 cf 1a 52 2f fc 34 30 00 5e cf 02 37 ce fe 24 6f fc 51 2f fe 5d ce f6 34 cf 08 2d 0f de 37 ce ┆S R/ 40 ^ 7 $o Q/ ] 4 - 7 ┆ 0x4a0…4c0 f8 5e 10 00 50 8f 27 53 8e e6 dc 10 05 2c 2f e8 53 8f 09 dc 10 09 d8 8f 19 dc 10 19 2c 10 19 2f ┆ ^ P 'S ,/ S , /┆ 0x4c0…4e0 00 1a dc 10 0d d8 8f 0d dc 10 1d 2c 10 1d 2f 00 18 dc 10 11 d8 8e ff dc 10 21 2c 10 21 2f 00 1a ┆ , / !, !/ ┆ 0x4e0…500 dc 10 15 53 ce d4 52 2f fc 34 30 00 2d 0f e6 37 ce c2 5e 10 00 50 8e e7 53 8e b0 dc 10 05 2c 2f ┆ S R/ 40 - 7 ^ P S ,/┆ 0x500…520 e8 53 8e d3 dc 10 09 d8 8e d5 dc 10 15 2c 10 15 2f 00 1a dc 10 0d d8 8e cb dc 10 19 2c 10 19 2f ┆ S , / , /┆ 0x520…540 00 1a dc 10 11 53 ce a6 52 2f fc 34 30 00 51 ce 9e 5d ce 9c 4d 8e bb b1 00 01 34 80 4a 2d 0f ee ┆ S R/ 40 Q ] M 4 J- ┆ 0x540…560 37 ce 8c 5e 10 00 50 8e ad 53 8e 7a dc 10 05 2c 2f e8 53 8e 9d dc 10 09 d8 8e 9f dc 10 11 2c 10 ┆7 ^ P S z ,/ S , ┆ 0x560…580 11 2f 00 1a dc 10 0d 53 ce 74 52 2f fc 34 31 c1 51 ce 70 5d 2f f7 2d 0f f2 37 ce 66 5e 10 00 50 ┆ / S tR/ 41 Q p]/ - 7 f^ P┆ 0x580…5a0 8e 83 53 8e 54 dc 10 05 2c 2f e8 53 8e 77 dc 10 09 2c 2f f7 2f 00 1a dc 10 0d 53 ce 52 52 2f fc ┆ S T ,/ S w ,/ / S RR/ ┆ 0x5a0…5c0 34 30 00 34 8f b2 34 2f c1 2d 0f ee 37 ce 44 5e 10 00 50 8e 5f 53 8e 32 dc 10 05 2c 2f e8 53 8e ┆40 4 4/ - 7 D^ P _S 2 ,/ S ┆ 0x5c0…5e0 55 dc 10 09 d8 8e 4f dc 10 11 2c 10 11 2f 00 19 dc 10 0d 53 ce 28 52 2f fc 34 30 00 5e ce 20 37 ┆U O , / S (R/ 40 ^ 7┆ 0x5e0…600 ce 1c 24 6f fc 51 2f fe 5d ce 14 52 2f fc 2c 0f f6 37 ce 0c 00 05 c0 00 00 a4 08 c0 10 88 23 0e ┆ $o Q/ ] R/ , 7 # ┆ 0x600…620 62 65 67 69 6e 2f 2c 20 72 2f 3a 2f 2c 0a 00 74 6d 70 3a 20 2f 2c 0a 00 6c 2e 2f 65 6e 64 3b 2f ┆begin/, r/:/, tmp: /, l./end;/┆ 0x620…640 2c 20 6c 2e 2f 74 6d 70 3a 62 65 67 69 6e 2f 2c 20 64 2e 2f 65 6e 64 3b 2f 00 2c 0a 0a 00 00 0a ┆, l./tmp:begin/, d./end;/ , ┆ 0x640…660 00 00 0a 00 00 3b 20 38 30 2e 31 31 2e 31 37 0a 00 3b 70 61 67 65 20 31 34 32 0a 00 00 6c 2e 2f ┆ ; 80.11.17 ;page 142 l./┆ 0x660…680 70 72 6f 63 65 64 75 72 65 20 66 61 73 74 73 65 74 6f 70 65 72 61 74 69 6f 6e 28 6f 70 3a 2f 2c ┆procedure fastsetoperation(op:/,┆ 0x680…6a0 0a 6c 2e 2f 28 2a 72 65 73 65 72 76 65 20 61 20 77 6f 72 6b 20 73 65 74 2a 29 2f 2c 20 64 2e 2f ┆ l./(*reserve a work set*)/, d./┆ 0x6a0…6c0 65 6c 73 65 2f 2c 0a 00 0a 00 00 6c 2e 2f 28 2a 20 6c 65 74 20 74 65 6d 70 20 62 65 20 74 68 65 ┆else/, l./(* let temp be the┆ 0x6c0…6e0 20 61 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 2f 2c 20 6c 31 2c 20 69 2f 0a ┆ address of the result/, l1, i/ ┆ 0x6e0…700 00 0a 00 00 69 66 20 28 72 69 67 68 74 20 5e 20 2e 20 6b 69 6e 64 20 3c 3e 20 74 6d 70 29 20 61 ┆ if (right ^ . kind <> tmp) a┆ 0x700…720 6e 64 20 28 6c 65 66 74 20 5e 20 2e 20 6b 69 6e 64 20 3c 3e 20 74 6d 70 29 20 74 68 65 6e 0a 00 ┆nd (left ^ . kind <> tmp) then ┆ 0x720…740 62 65 67 69 6e 20 28 2a 20 72 65 73 65 72 76 65 20 61 20 77 6f 72 6b 20 73 65 74 2c 20 62 75 74 ┆begin (* reserve a work set, but┆ 0x740…760 20 6f 6e 6c 79 20 69 66 20 62 6f 74 68 20 6c 65 66 74 20 61 6e 64 20 72 69 67 68 74 20 61 72 65 ┆ only if both left and right are┆ 0x760…780 20 6e 6f 6e 2d 74 65 6d 70 6f 72 61 72 79 20 21 21 21 20 2a 29 0a 00 66 73 74 66 72 65 65 74 6d ┆ non-temporary !!! *) fstfreetm┆ 0x780…7a0 70 20 3a 3d 20 66 73 74 66 72 65 65 74 6d 70 20 2b 20 73 69 7a 3b 0a 00 6e 6f 6f 66 66 72 65 65 ┆p := fstfreetmp + siz; nooffree┆ 0x7a0…7c0 74 6d 70 20 3a 3d 20 6e 6f 6f 66 66 72 65 65 74 6d 70 20 2d 20 73 69 7a 3b 00 00 0a 69 66 20 6e ┆tmp := nooffreetmp - siz; if n┆ 0x7c0…7e0 6f 6f 66 66 72 65 65 74 6d 70 20 3c 20 30 20 74 68 65 6e 0a 62 65 67 69 6e 0a 65 72 72 6f 72 28 ┆ooffreetmp < 0 then begin error(┆ 0x7e0…800 20 33 31 31 20 29 3b 20 28 2a 20 6e 6f 20 6d 6f 72 65 20 74 65 6d 70 6f 72 61 72 79 20 72 6f 6f ┆ 311 ); (* no more temporary roo┆ 0x800…820 6d 20 2a 29 0a 00 00 74 65 6d 70 20 3a 3d 20 30 3b 20 28 2a 20 61 76 6f 69 64 20 69 6e 64 65 78 ┆m *) temp := 0; (* avoid index┆ 0x820…840 20 65 72 72 6f 72 20 21 21 21 20 2a 29 0a 65 6e 64 3b 0a 00 65 6e 64 3b 0a 00 0a 00 00 2f 2c 0a ┆ error !!! *) end; end; /, ┆ 0x840…860 6c 2e 2f 28 2a 72 65 73 65 72 76 65 20 61 20 77 6f 72 6b 20 73 65 74 2f 2c 20 64 2e 2f 65 6c 73 ┆l./(*reserve a work set/, d./els┆ 0x860…880 65 2f 2c 0a 0a 00 00 0a 00 00 0a 00 00 0a 00 00 3b 20 38 30 2e 30 39 2e 32 33 20 0a 3b 20 70 61 ┆e/, ; 80.09.23 ; pa┆ 0x880…8a0 67 65 20 20 20 20 31 37 36 0a 00 6c 2e 2f 70 72 6f 63 65 64 75 72 65 20 66 69 65 6c 64 62 65 67 ┆ge 176 l./procedure fieldbeg┆ 0x8a0…8c0 69 6e 3b 2f 2c 0a 6c 2e 2f 70 61 63 6b 65 64 76 61 6c 75 65 3a 3d 66 69 65 6c 64 5e 2e 2f 2c 20 ┆in;/, l./packedvalue:=field^./, ┆ 0x8c0…8e0 6c 31 2c 20 69 2f 0a 28 2a 20 38 30 2e 30 39 2e 32 33 20 73 70 65 63 69 61 6c 20 61 63 74 69 6f ┆l1, i/ (* 80.09.23 special actio┆ 0x8e0…900 6e 20 66 6f 72 20 61 72 72 61 79 73 20 2a 29 0a 00 77 69 74 68 20 66 69 65 6c 64 5e 2e 76 61 72 ┆n for arrays *) with field^.var┆