|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2304 (0x900)
Names: »t«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦093e2ad1c⟧
└─⟦this⟧ »t«
0x000…030 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 00 80 00 00 80 00 00 80 00 00 80 00 00 80 00 00 ┆ @ ┆ 0x030…060 80 00 00 80 00 00 80 00 00 12 81 1a 12 00 f0 0f 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…090 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 03 12 01 5c 00 df f8 0d b0 e6 0f b1 6e 00 00 10 ┆ ` n An ! Ø n ┆ 0x090…0c0 0e 70 dc 16 e0 00 00 10 f4 16 e0 00 00 11 02 13 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 ┆ p ` 0 u Qz ┆ 0x0c0…0f0 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 04 15 0f f5 ff a1 08 16 e0 00 01 21 09 17 26 d7 ┆ C O Q Qz ! & ┆ 0x0f0…120 46 f0 00 00 01 09 16 e0 00 00 10 db 16 e0 00 00 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 ┆F q Qz ┆ 0x120…150 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 20 14 4f f7 ff a1 15 11 91 3f 00 7f fd 17 f1 7a ┆ D o @ ? O ? z┆ 0x150…180 12 e0 02 15 0f f5 ff a1 08 16 e0 00 00 01 07 11 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…1b0 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 34 00 20 07 73 74 64 65 72 72 6f 72 00 00 00 00 ┆ C Az p 4 stderror ┆ 0x1b0…1e0 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 74 69 6f 6e 00 09 34 c8 00 00 00 ff df fd ff df fd ┆ 0 open :S setposition 4 ┆ 0x1e0…210 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 6f 73 65 00 00 00 00 00 00 00 05 22 00 00 00 00 ┆ $ inrec6 close " ┆ 0x210…240 2a 76 65 72 73 69 6f 6e 00 00 00 00 00 00 01 00 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 ┆*version &V3` p ┆ 0x240…270 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 10 37 ce 7e 51 10 00 99 0f ff 11 8e e7 a9 00 01 ┆setposition 4 & q^ . 7 üQ ┆ 0x270…2a0 34 80 04 34 80 3a d9 20 0d b0 00 10 37 ce 6c 51 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 4 : 7 lQ 4 7 ^Q 7 V4 - ┆ 0x2a0…2d0 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 00 04 30 c8 00 00 00 6f 70 65 6e 00 00 00 00 00 ┆7 N^ P stderror 0 open ┆ 0x2d0…300 00 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 34 30 4c 00 00 40 00 00 00 00 00 00 00 00 02 ┆ :S setposition 4 40L @ ┆ 0x300…330 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 73 00 41 47 01 10 00 00 31 05 01 40 00 00 d0 00 ┆ @ @ 0 ` q P ` Qs AG 1 @ ┆ 0x330…360 00 20 00 01 20 00 00 10 00 00 df ff 00 60 17 00 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…390 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 72 65 63 36 00 00 00 00 00 00 0c d2 00 00 00 00 ┆ $ inrec6 ┆ 0x390…3c0 63 6c 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 00 00 0c 5e 6d 01 8d c0 2d 0f be 37 cf 8e ┆close " *version ^m - 7 ┆ 0x3c0…3f0 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 02 5d 2f c4 2c 20 00 51 8f 87 dd 2f f2 2c 00 01 ┆, @, S ü <. B a ) Å/ - Å/ , Q / , ┆ 0x3f0…420 2d 2f b6 dd cf 6e 51 8f 7f 37 cf 78 34 80 6a 2d 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 ┆-/ nQ 7 x4 j- 7 `, , S P ^ . ┆ 0x420…450 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 00 99 0f f0 11 8f 6b a9 00 01 34 80 0c 50 2f fa ┆7 ^Q å 4 4 : 7 LQ k 4 P/ ┆ 0x450…480 51 8f 45 a4 00 01 37 cf 38 34 80 20 2d 0f ee 37 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 ┆Q E 7 84 - 7 "^ P SS ┆ 0x480…4b0 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 f8 5e 10 00 50 8f 27 53 8e e6 dc 10 05 2c 2f e8 ┆S R/ 40 ^ 7 $o Q/ Å 4 - 7 ^ P 'S ,/ ┆ 0x4b0…4e0 53 8f 09 dc 10 09 d8 8f 19 dc 10 19 2c 10 19 2f 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 ┆S , / , / !, !/ ┆ 0x4e0…510 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 e8 53 8e d3 dc 10 09 d8 8e d5 dc 10 15 2c 10 15 ┆ S R/ 40 - 7 ^ P S ,/ S , ┆ 0x510…540 2f 00 1a dc 10 0d d8 8e cb dc 10 19 2c 10 19 2f 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…570 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 11 2f 00 1a dc 10 0d 53 ce 74 52 2f fc 34 31 c1 ┆7 ^ P S z ,/ S , / S tR/ 41 ┆ 0x570…5a0 51 ce 70 5d 2f f7 2d 0f f2 37 ce 66 5e 10 00 50 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 ┆Q pÅ/ - 7 f^ P S T ,/ S w ,/ / S RR/ ┆ 0x5a0…5d0 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 55 dc 10 09 d8 8e 4f dc 10 11 2c 10 11 2f 00 19 ┆40 4 4/ - 7 D^ P _S 2 ,/ S U O , / ┆ 0x5d0…600 dc 10 0d 53 ce 28 52 2f fc 34 30 00 5e ce 20 37 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 ┆ S (R/ 40 ^ 7 $o Q/ Å R/ , 7 # ┆ 0x600…630 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 2c 20 6c 2e 2f 74 6d 70 3a 62 65 67 69 6e 2f 2c ┆begin/, r/:/, tmp: /, l./end;/, l./tmp:begin/,┆ 0x630…660 20 64 2e 2f 65 6e 64 3b 2f 00 2c 0a 0a 00 00 0a 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 ┆ d./end;/ , ; 80.11.17 ;page 142 l./┆ 0x660…690 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 0a 6c 2e 2f 28 2a 72 65 73 65 72 76 65 20 61 20 ┆procedure fastsetoperation(op:/, l./(*reserve a ┆ 0x690…6c0 77 6f 72 6b 20 73 65 74 2a 29 2f 2c 20 64 2e 2f 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 ┆work set*)/, d./else/, l./(* let temp be the┆ 0x6c0…6f0 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 00 0a 00 00 69 66 20 28 72 69 67 68 74 20 5e 20 ┆ address of the result/, l1, i/ if (right ^ ┆ 0x6f0…720 2e 20 6b 69 6e 64 20 3c 3e 20 74 6d 70 29 20 61 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 ┆. kind <> tmp) and (left ^ . kind <> tmp) then ┆ 0x720…750 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 20 6f 6e 6c 79 20 69 66 20 62 6f 74 68 20 6c 65 ┆begin (* reserve a work set, but only if both le┆ 0x750…780 66 74 20 61 6e 64 20 72 69 67 68 74 20 61 72 65 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 ┆ft and right are non-temporary !!! *) fstfreetm┆ 0x780…7b0 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 74 6d 70 20 3a 3d 20 6e 6f 6f 66 66 72 65 65 74 ┆p := fstfreetmp + siz; nooffreetmp := nooffreet┆ 0x7b0…7e0 6d 70 20 2d 20 73 69 7a 3b 00 00 0a 69 66 20 6e 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 ┆mp - siz; if nooffreetmp < 0 then begin error(┆ 0x7e0…810 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 6d 20 2a 29 0a 00 00 74 65 6d 70 20 3a 3d 20 30 ┆ 311 ); (* no more temporary room *) temp := 0┆ 0x810…840 3b 20 28 2a 20 61 76 6f 69 64 20 69 6e 64 65 78 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 ┆; (* avoid index error !!! *) end; end; /, ┆ 0x840…870 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 65 2f 2c 0a 0a 00 00 0a 00 00 0a 00 00 0a 00 00 ┆l./(*reserve a work set/, d./else/, ┆ 0x870…8a0 3b 20 38 30 2e 30 39 2e 32 33 20 0a 3b 20 70 61 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 ┆; 80.09.23 ; page 176 l./procedure fieldbeg┆ 0x8a0…8d0 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 6c 31 2c 20 69 2f 0a 28 2a 20 38 30 2e 30 39 2e ┆in;/, l./packedvalue:=field^./, l1, i/ (* 80.09.┆ 0x8d0…900 32 33 20 73 70 65 63 69 61 6c 20 61 63 74 69 6f 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 ┆23 special action for arrays *) with field^.var┆