|
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: 5376 (0x1500)
Names: »editcross«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »editcross«
0x0000…0020 (0,) 28 6e 63 72 6f 73 73 6c 69 6e 6b 20 3d 20 65 64 69 74 20 74 63 72 6f 73 73 6c 69 6e 6b 0a 69 66 ┆(ncrosslink = edit tcrosslink if┆
0x0020…0040 20 6f 6b 2e 6e 6f 0a 66 69 6e 69 73 29 00 00 0a 00 00 0a 00 00 0a 00 00 0a 6c 2e 2f 76 65 72 73 ┆ ok.no finis) l./vers┆
0x0040…0060 69 6f 6e 3d 2f 2c 20 64 32 2c 20 69 2f 0a 76 65 72 73 69 6f 6e 20 3d 20 27 38 31 2e 30 36 2e 31 ┆ion=/, d2, i/ version = '81.06.1┆
0x0060…0080 38 27 3b 0a 00 00 62 6f 6f 74 5f 72 65 76 69 73 69 6f 5f 6e 75 6d 62 65 72 20 3d 20 36 3b 20 20 ┆8'; boot_revisio_number = 6; ┆
0x0080…00a0 20 28 2a 20 62 6f 6f 74 20 66 69 6c 65 73 20 6d 75 73 74 20 73 61 79 20 74 68 69 73 20 76 65 72 ┆ (* boot files must say this ver┆
0x00a0…00c0 73 69 6f 6e 20 21 21 21 20 2a 29 00 00 0a 63 6f 6d 70 69 6c 65 72 5f 76 65 72 73 69 6f 6e 5f 6e ┆sion !!! *) compiler_version_n┆
0x00c0…00e0 75 6d 62 65 72 20 3d 20 36 3b 20 20 28 2a 20 74 68 65 20 65 78 70 65 63 74 65 64 20 63 6f 6d 70 ┆umber = 6; (* the expected comp┆
0x00e0…0100 69 6c 65 72 20 76 65 72 73 69 6f 6e 20 6e 75 6d 62 65 72 20 2a 29 00 00 0a 2f 2c 0a 70 2d 32 2c ┆iler version number *) /, p-2,┆
0x0100…0120 0a 00 00 00 0a 6c 2e 2f 6d 65 73 73 5f 65 72 72 6f 72 28 31 2c 37 39 31 39 2f 2c 20 72 2f 37 39 ┆ l./mess_error(1,7919/, r/79┆
0x0120…0140 31 39 2f 37 39 31 33 2f 2c 0a 00 00 0a 00 00 0a 00 00 0a 00 00 3b 70 61 67 65 20 31 33 0a 6c 2e ┆19/7913/, ;page 13 l.┆
0x0140…0160 2f 6d 65 73 73 5f 65 72 72 6f 72 28 31 2c 31 30 32 2c 72 29 2f 2c 20 72 2f 31 30 32 2f 31 30 31 ┆/mess_error(1,102,r)/, r/102/101┆
0x0160…0180 2f 2c 0a 00 00 6c 2e 2f 31 30 33 2f 2c 20 72 2f 31 30 33 2f 31 30 31 2f 2c 0a 6c 2e 2f 31 30 34 ┆/, l./103/, r/103/101/, l./104┆
0x0180…01a0 2f 2c 20 72 2f 31 30 34 2f 31 30 31 2f 2c 0a 0a 00 00 6c 2e 2f 31 30 35 2c 20 72 2f 2c 20 72 2f ┆/, r/104/101/, l./105, r/, r/┆
0x01a0…01c0 31 30 35 2c 20 72 2f 33 2c 20 70 61 72 61 6d 5f 69 6e 64 65 78 2f 2c 0a 00 0a 00 00 6c 2e 2f 31 ┆105, r/3, param_index/, l./1┆
0x01c0…01e0 30 37 2c 72 2f 2c 20 72 2f 31 30 37 2f 31 30 36 2f 2c 0a 00 6c 2e 2f 31 30 38 2f 2c 20 72 2f 31 ┆07,r/, r/107/106/, l./108/, r/1┆
0x01e0…0200 30 38 2f 31 30 36 2f 2c 0a 0a 00 00 3b 20 70 61 67 65 20 31 35 0a 00 00 6c 2e 2f 31 31 30 2c 72 ┆08/106/, ; page 15 l./110,r┆
0x0200…0220 2f 2c 20 72 2f 31 31 30 2c 20 72 2f 31 30 39 2c 20 70 61 72 61 6d 5f 69 6e 64 65 78 20 2b 20 31 ┆/, r/110, r/109, param_index + 1┆
0x0220…0240 2f 2c 0a 00 00 6c 2e 2f 31 31 31 2f 2c 20 72 2f 31 31 31 2c 20 72 2f 31 30 39 2c 20 70 61 72 61 ┆/, l./111/, r/111, r/109, para┆
0x0240…0260 6d 5f 69 6e 64 65 78 20 2b 20 31 2f 2c 0a 00 6c 2e 2f 31 31 35 2c 72 2f 2c 20 72 2f 31 31 35 2c ┆m_index + 1/, l./115,r/, r/115,┆
0x0260…0280 20 72 2f 31 30 39 2c 20 70 61 72 61 6d 5f 69 6e 64 65 78 20 2b 20 31 2f 2c 0a 00 00 0a 00 00 6c ┆ r/109, param_index + 1/, l┆
0x0280…02a0 2e 2f 31 31 32 2c 70 61 72 2f 2c 20 72 2f 31 31 32 2f 31 30 39 2f 2c 0a 00 00 6c 2e 2f 31 31 34 ┆./112,par/, r/112/109/, l./114┆
0x02a0…02c0 2c 72 2f 2c 20 72 2f 31 31 34 2c 20 72 2f 31 30 39 2c 20 70 61 72 61 6d 5f 69 6e 64 65 78 20 2b ┆,r/, r/114, r/109, param_index +┆
0x02c0…02e0 20 32 2f 2c 0a 00 00 6c 2e 2f 31 31 39 2c 20 72 2f 2c 20 72 2f 31 31 39 2c 20 72 2f 31 30 39 2c ┆ 2/, l./119, r/, r/119, r/109,┆
0x02e0…0300 20 70 61 72 61 6d 5f 69 6e 64 65 78 20 2b 20 32 2f 2c 0a 00 0a 00 00 0a 00 00 3b 20 70 61 67 65 ┆ param_index + 2/, ; page┆
0x0300…0320 20 31 36 0a 00 00 6c 2e 2f 37 39 31 35 2c 70 61 72 61 6d 2f 2c 20 72 2f 31 35 2f 31 34 2f 2c 0a ┆ 16 l./7915,param/, r/15/14/, ┆
0x0320…0340 00 0a 00 00 6c 2e 2f 37 39 32 31 2c 70 61 72 2f 2c 20 72 2f 37 39 32 31 2f 37 39 32 30 2f 2c 0a ┆ l./7921,par/, r/7921/7920/, ┆
0x0340…0360 00 00 0a 00 00 3b 20 70 61 67 65 20 31 37 0a 00 00 6c 2e 2f 27 62 69 6e 64 2f 2c 20 0a 6c 2e 2f ┆ ; page 17 l./'bind/, l./┆
0x0360…0380 37 39 32 30 2f 2c 20 72 2f 37 39 32 30 2f 37 39 32 31 2f 2c 0a 0a 00 00 0a 00 00 0a 00 00 0a 00 ┆7920/, r/7920/7921/, ┆
0x0380…03a0 00 0a 00 00 0a 00 00 66 0a 00 19 0a 00 77 72 69 74 65 20 28 27 20 74 69 6d 65 20 20 27 29 00 3b ┆ f write (' time ') ;┆
0x03a0…03c0 0a 00 2f 2c 0a 6c 2e 2f 31 32 2b 31 32 2b 34 2f 2c 20 72 2f 34 2f 37 2b 34 2f 00 2c 0a 0a 00 00 ┆ /, l./12+12+4/, r/4/7+4/ , ┆
0x03c0…03e0 6c 2e 2f 6d 6f 64 33 32 6d 6f 64 31 30 3a 31 2f 2c 20 6c 2e 2f 27 20 20 27 29 2f 2c 20 72 2f 27 ┆l./mod32mod10:1/, l./' ')/, r/'┆
0x03e0…0400 20 20 27 2f 27 20 27 2f 2c 0a 6c 2e 2f 69 66 20 64 65 73 63 72 5f 79 65 73 20 74 68 65 6e 2f 2c ┆ '/' '/, l./if descr_yes then/,┆
0x0400…0420 20 69 00 2f 0a 69 66 20 63 6f 6d 70 69 6c 65 5f 74 69 6d 65 2e 72 65 76 69 73 69 6f 6e 20 3c 3e ┆ i / if compile_time.revision <>┆
0x0420…0440 20 63 6f 6d 70 69 6c 65 72 5f 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 20 74 68 65 6e 0a 77 72 ┆ compiler_version_number then wr┆
0x0440…0460 69 74 65 28 20 30 3a 35 20 29 0a 00 00 65 6c 73 65 0a 00 77 69 74 68 20 63 6f 6d 70 69 6c 65 5f ┆ite( 0:5 ) else with compile_┆
0x0460…0480 74 69 6d 65 20 64 6f 0a 77 72 69 74 65 28 68 6f 75 72 20 64 69 76 20 31 30 20 3a 20 31 2c 20 68 ┆time do write(hour div 10 : 1, h┆
0x0480…04a0 6f 75 72 20 6d 6f 64 20 31 30 20 3a 31 2c 0a 27 2e 27 2c 20 6d 69 6e 75 74 65 20 64 69 76 20 31 ┆our mod 10 :1, '.', minute div 1┆
0x04a0…04c0 30 20 3a 31 2c 20 6d 69 6e 75 74 65 20 6d 6f 64 20 31 30 20 3a 31 2c 20 27 20 20 20 27 20 29 3b ┆0 :1, minute mod 10 :1, ' ' );┆
0x04c0…04e0 00 00 0a 00 00 0a 00 00 2f 2c 0a 00 00 0a 0a 00 00 6c 2e 2f 77 72 69 74 65 6c 6e 3b 65 6e 64 3b ┆ /, l./writeln;end;┆
0x04e0…0500 2f 2c 20 69 2f 0a 69 66 20 28 63 6f 6d 70 69 6c 65 5f 74 69 6d 65 20 2e 20 72 65 76 69 73 69 6f ┆/, i/ if (compile_time . revisio┆
0x0500…0520 6e 20 3c 3e 20 63 6f 6d 70 69 6c 65 72 5f 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 20 29 20 61 ┆n <> compiler_version_number ) a┆
0x0520…0540 6e 64 20 64 65 73 63 72 5f 79 65 73 20 74 68 65 00 6e 00 00 0a 00 00 6d 65 73 73 5f 65 72 72 6f ┆nd descr_yes the n mess_erro┆
0x0540…0560 72 20 28 20 32 2c 20 33 35 2c 20 2d 33 20 29 3b 0a 00 2f 2c 0a 00 00 0a 0a 00 00 0a 00 00 3b 20 ┆r ( 2, 35, -3 ); /, ; ┆
0x0560…0580 73 69 64 65 20 31 30 00 00 0a 6c 2e 2f 70 72 6f 63 65 64 75 72 65 20 72 65 73 65 72 76 65 5f 61 ┆side 10 l./procedure reserve_a┆
0x0580…05a0 72 65 61 28 2f 2c 0a 00 6c 2e 2f 6c 61 73 74 5f 73 63 61 6e 2f 2c 20 64 32 2c 0a 00 00 0a 00 00 ┆rea(/, l./last_scan/, d2, ┆
0x05a0…05c0 6c 2e 2f 70 72 6f 63 65 64 75 72 65 20 6d 61 70 5f 69 6e 63 72 28 2f 2c 0a 00 00 6c 2e 2f 62 65 ┆l./procedure map_incr(/, l./be┆
0x05c0…05e0 67 69 6e 2f 2c 20 69 2f 0a 00 76 61 72 20 6f 6c 64 5f 62 61 73 65 20 3a 20 69 6e 74 65 67 65 72 ┆gin/, i/ var old_base : integer┆
0x05e0…0600 3b 0a 2f 2c 0a 0a 00 00 6c 2e 2f 72 65 73 65 72 76 65 5f 61 72 65 61 2f 2c 20 69 2f 0a 6f 6c 64 ┆; /, l./reserve_area/, i/ old┆
0x0600…0620 5f 62 61 73 65 20 3a 3d 20 66 2e 62 61 73 65 3b 0a 00 2f 2c 0a 6c 2e 2f 61 2e 64 69 73 70 6c 3a ┆_base := f.base; /, l./a.displ:┆
0x0620…0640 3d 2f 2c 20 69 2f 0a 69 66 20 6f 6c 64 5f 62 61 73 65 20 3d 20 66 2e 62 61 73 65 20 74 68 65 6e ┆=/, i/ if old_base = f.base then┆
0x0640…0660 20 20 28 2a 20 73 61 6d 65 20 6d 6f 64 75 6c 65 20 2a 29 0a 2f 2c 20 6c 2e 2f 65 6e 64 3b 2f 2c ┆ (* same module *) /, l./end;/,┆
0x0660…0680 20 69 2f 0a 00 00 65 6c 73 65 20 28 2a 20 63 68 61 6e 67 65 20 6d 6f 64 75 6c 65 20 2a 29 0a 00 ┆ i/ else (* change module *) ┆
0x0680…06a0 00 61 2e 64 69 73 70 6c 20 3a 3d 20 66 2e 64 69 73 70 6c 3b 0a 00 2f 2c 0a 0a 00 00 0a 00 00 0a ┆ a.displ := f.displ; /, ┆
0x06a0…06c0 00 00 0a 00 00 0a 00 00 3b 20 73 69 64 65 20 31 33 0a 00 00 6c 2e 2f 28 2a 20 73 63 61 6e 20 74 ┆ ; side 13 l./(* scan t┆
0x06c0…06e0 68 65 20 70 61 72 61 6d 65 74 65 72 20 6c 69 73 74 20 3a 20 2a 29 2f 2c 0a 00 00 6c 2e 2f 61 6e ┆he parameter list : *)/, l./an┆
0x06e0…0700 79 5f 69 6e 63 6c 75 64 65 64 20 3a 3d 20 66 61 6c 73 65 3b 2f 2c 20 6c 31 2c 20 69 2f 0a 00 61 ┆y_included := false;/, l1, i/ a┆
0x0700…0720 66 74 65 72 5f 6c 69 62 20 3a 3d 20 66 61 6c 73 65 3b 0a 00 2f 2c 0a 0a 00 00 6c 2e 2f 64 65 73 ┆fter_lib := false; /, l./des┆
0x0720…0740 63 72 5f 79 65 73 3a 3d 74 72 75 65 2f 2c 20 69 2f 0a 0a 00 00 62 69 6e 64 5f 79 65 73 20 3a 3d ┆cr_yes:=true/, i/ bind_yes :=┆
0x0740…0760 20 66 61 6c 73 65 3b 0a 00 00 2f 2c 0a 6c 2e 2f 6d 61 70 5f 6c 61 64 64 72 28 73 74 61 72 74 5f ┆ false; /, l./map_laddr(start_┆
0x0760…0780 6d 6f 64 75 6c 65 2f 2c 20 64 2c 00 00 0a 6c 2e 2f 74 6f 70 5f 6f 66 5f 62 69 6e 3a 3d 73 74 61 ┆module/, d, l./top_of_bin:=sta┆
0x0780…07a0 72 74 5f 61 64 64 72 2f 2c 20 64 2c 0a 00 00 0a 00 00 0a 00 00 0a 00 00 3b 20 73 69 64 65 20 31 ┆rt_addr/, d, ; side 1┆
0x07a0…07c0 35 0a 00 00 6c 2e 2f 69 66 20 61 20 3d 20 27 73 74 61 72 74 27 20 74 68 65 6e 2f 2c 0a 00 00 6c ┆5 l./if a = 'start' then/, l┆
0x07c0…07e0 2e 2f 6d 61 70 5f 6c 61 64 64 72 28 73 74 61 72 74 5f 6d 6f 64 75 6c 65 2f 2c 20 64 31 2c 0a 00 ┆./map_laddr(start_module/, d1, ┆
0x07e0…0800 00 00 0a 0a 00 00 3b 20 73 69 64 65 20 31 37 0a 00 00 6c 2e 2f 65 6c 73 65 20 6d 65 73 73 5f 65 ┆ ; side 17 l./else mess_e┆
0x0800…0820 72 72 6f 72 28 31 2c 37 39 31 36 2c 70 61 72 61 6d 5f 69 6e 64 65 78 29 3b 28 2a 75 6e 6b 6e 6f ┆rror(1,7916,param_index);(*unkno┆
0x0820…0840 77 6e 20 6f 70 74 69 6f 6e 2d 6e 61 6d 65 2f 2c 20 69 2f 0a 0a 00 00 65 6c 73 65 0a 00 69 66 20 ┆wn option-name/, i/ else if ┆
0x0840…0860 61 20 3d 20 27 62 69 6e 64 27 20 74 68 65 6e 0a 00 00 62 65 67 69 6e 0a 72 20 3a 3d 20 73 79 73 ┆a = 'bind' then begin r := sys┆
0x0860…0880 74 65 6d 28 20 70 61 72 61 6d 5f 69 6e 64 65 78 20 2b 20 31 2c 20 69 2c 20 61 20 29 3b 00 00 0a ┆tem( param_index + 1, i, a ); ┆
0x0880…08a0 00 00 69 66 20 72 20 6d 6f 64 20 34 30 39 36 20 3c 3e 20 31 30 20 74 68 65 6e 0a 00 00 6d 65 73 ┆ if r mod 4096 <> 10 then mes┆
0x08a0…08c0 73 5f 65 72 72 6f 72 28 20 31 2c 20 37 39 32 30 2c 20 70 61 72 61 6d 5f 69 6e 64 65 78 20 29 3b ┆s_error( 1, 7920, param_index );┆
0x08c0…08e0 0a 69 66 20 28 61 3d 79 65 73 29 20 6f 72 20 28 61 3d 6e 6f 29 20 74 68 65 6e 0a 00 62 69 6e 64 ┆ if (a=yes) or (a=no) then bind┆
0x08e0…0900 5f 79 65 73 20 3a 3d 20 61 20 3d 20 79 65 73 0a 00 65 6c 73 65 0a 00 6d 65 73 73 5f 65 72 72 6f ┆_yes := a = yes else mess_erro┆
0x0900…0920 72 28 20 31 2c 20 37 39 32 31 2c 20 70 61 72 61 6d 5f 69 6e 64 65 78 20 29 3b 20 28 2a 20 79 65 ┆r( 1, 7921, param_index ); (* ye┆
0x0920…0940 73 20 6f 72 20 6e 6f 20 65 78 63 70 65 63 74 65 64 20 2a 29 0a 00 70 61 72 61 6d 5f 69 6e 64 65 ┆s or no excpected *) param_inde┆
0x0940…0960 78 20 3a 3d 20 70 61 72 61 6d 5f 69 6e 64 65 78 20 2b 20 32 3b 0a 00 65 6e 64 20 20 20 28 2a 20 ┆x := param_index + 2; end (* ┆
0x0960…0980 61 20 3d 20 27 62 69 6e 64 27 20 2a 29 0a 00 2f 2c 0a 0a 00 00 0a 00 00 00 00 0a 6c 2e 2f 69 66 ┆a = 'bind' *) /, l./if┆
0x0980…09a0 20 73 6f 75 72 63 65 5f 66 69 6c 65 20 74 68 65 6e 2f 2c 00 00 0a 6c 2e 2f 69 6e 5f 6f 70 65 6e ┆ source_file then/, l./in_open┆
0x09a0…09c0 28 6f 62 6a 5f 66 69 6c 65 5f 6e 61 6d 65 29 3b 2f 2c 20 69 2f 0a 00 0a 00 00 28 2a 20 6f 70 74 ┆(obj_file_name);/, i/ (* opt┆
0x09c0…09e0 69 6d 69 7a 61 74 69 6f 6e 3a 20 6f 6d 69 74 20 73 63 61 6e 6e 69 6e 67 20 74 68 65 20 28 6e 6f ┆imization: omit scanning the (no┆
0x09e0…0a00 72 6d 61 6c 29 20 73 6f 75 72 63 65 66 69 6c 65 73 20 65 78 63 65 70 74 20 20 20 2a 29 0a 00 28 ┆rmal) sourcefiles except *) (┆
0x0a00…0a20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 75 72 69 6e 67 20 74 68 65 20 76 65 72 79 20 ┆* during the very ┆
0x0a20…0a40 66 69 72 73 74 20 61 6e 64 20 6c 61 73 74 20 73 63 61 6e 73 2c 20 61 6e 64 20 61 66 74 65 72 20 ┆first and last scans, and after ┆
0x0a40…0a60 2a 29 0a 00 28 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 79 20 6c 69 62 72 61 72 79 ┆*) (* any library┆
0x0a60…0a80 2d 66 69 6c 65 73 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 ┆-files ┆
0x0a80…0aa0 20 20 20 20 20 2a 29 0a 00 61 66 74 65 72 5f 6c 69 62 20 3a 3d 20 61 66 74 65 72 5f 6c 69 62 20 ┆ *) after_lib := after_lib ┆
0x0aa0…0ac0 6f 72 20 6c 69 62 72 61 72 79 00 3b 0a 69 66 20 6e 6f 5f 6f 66 5f 6f 62 6a 5f 66 69 6c 65 73 20 ┆or library ; if no_of_obj_files ┆
0x0ac0…0ae0 3d 20 31 20 74 68 65 6e 00 00 0a 62 65 67 69 6e 0a 69 66 20 28 73 63 61 6e 20 3d 20 31 29 20 6f ┆= 1 then begin if (scan = 1) o┆
0x0ae0…0b00 72 20 6c 61 73 74 5f 73 63 61 6e 20 74 68 65 00 6e 0a 6d 61 70 5f 6c 61 64 64 72 20 28 73 74 61 ┆r last_scan the n map_laddr (sta┆
0x0b00…0b20 72 74 5f 6d 6f 64 75 6c 65 2c 20 73 74 61 72 74 5f 64 69 73 70 6c 2c 20 73 74 61 72 74 5f 61 64 ┆rt_module, start_displ, start_ad┆
0x0b20…0b40 64 72 29 3b 0a 74 6f 70 5f 6f 66 5f 62 69 6e 20 3a 3d 20 73 74 61 72 74 5f 61 64 64 72 00 3b 0a ┆dr); top_of_bin := start_addr ; ┆
0x0b40…0b60 65 6e 64 3b 0a 00 69 66 20 28 73 63 61 6e 20 3d 20 31 29 20 6f 72 20 6c 61 73 74 5f 73 63 61 6e ┆end; if (scan = 1) or last_scan┆
0x0b60…0b80 20 6f 72 20 61 66 74 65 72 5f 6c 69 62 20 74 68 65 6e 0a 62 65 67 69 6e 0a 2f 2c 0a 00 00 0a 0a ┆ or after_lib then begin /, ┆
0x0b80…0ba0 00 00 3b 20 73 69 64 65 20 31 38 0a 00 00 6c 2e 2f 65 78 63 65 70 74 69 6f 6e 5f 6d 61 73 6b 2f ┆ ; side 18 l./exception_mask/┆
0x0ba0…0bc0 2c 20 72 2f 65 78 63 65 70 74 69 6f 6e 5f 6d 61 73 6b 2f 64 65 66 61 75 6c 74 5f 61 70 70 65 74 ┆, r/exception_mask/default_appet┆
0x0bc0…0be0 69 74 65 2f 2c 0a 00 00 00 0a 6c 2e 2f 69 66 20 77 61 6e 74 65 64 74 68 65 6e 77 69 74 68 65 78 ┆ite/, l./if wantedthenwithex┆
0x0be0…0c00 74 5f 74 61 62 6c 65 5b 65 6e 74 72 79 5d 64 6f 62 65 67 69 6e 64 5f 61 64 64 72 3a 3d 2f 2c 20 ┆t_table[entry]dobegind_addr:=/, ┆
0x0c00…0c20 (1,) 00 00 0a 6c 2e 2f 72 65 73 65 72 76 65 5f 61 72 65 61 28 64 5f 6c 65 6e 67 74 68 2f 2c 20 69 2f ┆ l./reserve_area(d_length/, i/┆
0x0c20…0c40 0a 69 66 20 62 69 6e 64 5f 79 65 73 20 74 68 65 6e 0a 00 28 2a 20 66 6f 72 63 65 20 6e 65 77 20 ┆ if bind_yes then (* force new ┆
0x0c40…0c60 6d 6f 64 75 6c 65 20 69 66 20 28 64 65 73 63 72 2d 6c 65 6e 67 74 68 20 2b 20 63 6f 64 65 2d 6c ┆module if (descr-length + code-l┆
0x0c60…0c80 65 6e 67 74 68 29 20 65 78 63 65 65 64 73 20 0a 00 00 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 ┆ength) exceeds the remaining ┆
0x0c80…0ca0 70 61 72 74 20 6f 66 20 63 75 72 72 65 6e 74 20 6d 6f 64 75 6c 65 20 2a 29 00 00 0a 72 65 73 65 ┆part of current module *) rese┆
0x0ca0…0cc0 72 76 65 5f 61 72 65 61 28 20 64 5f 6c 65 6e 67 74 68 20 2b 20 32 20 2a 20 63 6f 64 65 5f 77 6f ┆rve_area( d_length + 2 * code_wo┆
0x0cc0…0ce0 72 64 73 2c 20 64 5f 61 64 64 72 20 29 00 00 0a 00 00 65 6c 73 65 0a 00 2f 2c 0a 0a 00 00 3b 20 ┆rds, d_addr ) else /, ; ┆
0x0ce0…0d00 20 73 69 64 65 20 31 00 39 0a 6c 2e 2f 65 78 63 65 70 74 69 6f 6e 5f 6d 61 73 6b 2f 2c 20 72 2f ┆ side 1 9 l./exception_mask/, r/┆
0x0d00…0d20 65 78 63 65 70 74 69 6f 6e 5f 6d 61 73 6b 2f 64 65 66 61 75 6c 74 5f 61 70 70 65 74 69 74 65 2f ┆exception_mask/default_appetite/┆
0x0d20…0d40 2c 0a 00 0a 00 00 6c 2e 2f 63 6f 6d 70 69 6c 65 5f 64 61 74 65 3a 3d 63 6f 72 65 5f 69 6d 61 67 ┆, l./compile_date:=core_imag┆
0x0d40…0d60 65 5b 31 5d 3b 28 2a 66 69 72 73 74 2f 2c 20 69 2f 0a 00 62 65 67 69 6e 0a 2f 2c 20 6c 2e 2f 21 ┆e[1];(*first/, i/ begin /, l./!┆
0x0d60…0d80 21 2f 2c 20 6c 31 2c 20 69 2f 0a 63 6f 6d 70 69 6c 65 5f 74 69 6d 65 20 2e 20 69 6e 74 20 3a 3d ┆!/, l1, i/ compile_time . int :=┆
0x0d80…0da0 20 63 6f 72 65 5f 69 6d 61 67 65 20 5b 20 32 20 5d 3b 20 28 2a 20 73 65 63 6f 6e 64 20 77 6f 72 ┆ core_image [ 2 ]; (* second wor┆
0x0da0…0dc0 64 20 69 73 20 64 65 66 69 6e 65 20 62 79 20 70 61 73 73 36 20 21 21 20 2a 00 29 0a 65 6e 64 3b ┆d is define by pass6 !! * ) end;┆
0x0dc0…0de0 0a 00 2f 2c 0a 6c 2e 2f 69 6e 5f 69 6e 74 65 67 65 72 28 6e 6f 5f 6f 66 5f 69 6e 74 2f 2c 20 69 ┆ /, l./in_integer(no_of_int/, i┆
0x0de0…0e00 00 2f 0a 69 66 20 28 65 6e 74 72 79 20 3c 3e 20 30 29 20 61 6e 00 64 0a 28 65 78 74 5f 74 61 62 ┆ / if (entry <> 0) an d (ext_tab┆
0x0e00…0e20 6c 65 5b 20 65 6e 74 72 79 20 5d 20 2e 20 63 6f 6d 70 69 6c 65 5f 74 69 6d 65 2e 72 65 76 69 73 ┆le[ entry ] . compile_time.revis┆
0x0e20…0e40 69 6f 6e 20 3c 3e 20 63 6f 6d 70 69 6c 65 72 5f 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 29 20 ┆ion <> compiler_version_number) ┆
0x0e40…0e60 74 68 65 6e 0a 00 62 65 67 69 6e 0a 28 2a 20 70 72 6f 63 65 73 73 20 74 68 65 20 69 6e 74 65 72 ┆then begin (* process the inter┆
0x0e60…0e80 6e 61 6c 20 6c 69 6e 6b 20 6c 69 73 74 20 2a 29 0a 00 00 2f 2c 0a 0a 00 00 6c 2e 2f 69 6e 5f 69 ┆nal link list *) /, l./in_i┆
0x0e80…0ea0 6e 74 65 67 65 72 28 6e 6f 5f 6f 66 5f 65 78 74 2f 2c 20 69 2f 0a 00 65 6e 64 3b 20 28 2a 20 63 ┆nteger(no_of_ext/, i/ end; (* c┆
0x0ea0…0ec0 6f 64 65 20 72 65 76 69 73 69 6f 6e 20 6e 75 6d 62 65 72 20 3c 3e 20 65 78 70 65 63 74 65 64 20 ┆ode revision number <> expected ┆
0x0ec0…0ee0 63 6f 6d 70 69 6c 65 72 20 76 65 72 73 69 6f 6e 20 2a 29 0a 00 00 0a 00 00 2f 2c 0a 6c 2e 2f 65 ┆compiler version *) /, l./e┆
0x0ee0…0f00 6e 74 72 79 3a 3d 73 65 61 72 63 68 5f 65 78 74 2f 2c 20 72 2f 65 6e 74 72 79 2f 65 78 74 5f 65 ┆ntry:=search_ext/, r/entry/ext_e┆
0x0f00…0f20 6e 74 72 79 2f 2c 0a 00 00 6c 2e 2f 65 6e 74 72 79 3d 30 2f 2c 20 72 2f 65 6e 2f 65 78 74 5f 65 ┆ntry/, l./entry=0/, r/en/ext_e┆
0x0f20…0f40 6e 2f 2c 0a 6c 2e 2f 65 6e 74 72 79 3a 3d 6e 65 77 2f 2c 20 72 2f 65 6e 74 72 79 2f 65 78 74 5f ┆n/, l./entry:=new/, r/entry/ext_┆
0x0f40…0f60 65 6e 74 72 79 2f 2c 0a 6c 2e 2f 5b 65 6e 74 72 79 5d 2f 2c 20 72 2f 65 6e 74 72 79 2f 65 78 74 ┆entry/, l./[entry]/, r/entry/ext┆
0x0f60…0f80 5f 65 6e 74 72 79 2f 2c 0a 6c 2e 2f 69 6e 5f 69 6e 74 65 67 65 72 28 65 6e 74 72 79 2f 2c 20 72 ┆_entry/, l./in_integer(entry/, r┆
0x0f80…0fa0 2f 65 6e 74 72 79 2f 65 78 74 5f 65 6e 74 72 79 2f 2c 0a 0a 00 00 6c 2e 2f 65 6e 64 3b 65 6e 64 ┆/entry/ext_entry/, l./end;end┆
0x0fa0…0fc0 3b 2f 2c 20 72 2f 3b 2f 3b 20 28 2a 20 70 72 6f 63 65 73 73 20 65 78 74 65 72 6e 61 6c 20 6c 69 ┆;/, r/;/; (* process external li┆
0x0fc0…0fe0 6e 6b 73 20 2a 29 0a 00 00 00 00 0a 69 66 20 28 65 6e 74 72 79 20 3d 20 30 29 20 6f 72 0a 28 65 ┆nks *) if (entry = 0) or (e┆
0x0fe0…1000 78 74 5f 74 61 62 6c 65 5b 20 65 6e 74 72 79 20 5d 20 2e 20 63 6f 6d 70 69 6c 65 5f 74 69 6d 65 ┆xt_table[ entry ] . compile_time┆
0x1000…1020 2e 72 65 76 69 73 69 6f 6e 20 3d 20 63 6f 6d 70 69 6c 65 72 5f 76 65 72 73 69 6f 6e 5f 6e 75 6d ┆.revision = compiler_version_num┆
0x1020…1040 62 65 72 29 20 74 68 65 6e 0a 00 00 62 65 67 69 6e 20 28 2a 20 70 72 6f 63 65 73 73 20 74 68 65 ┆ber) then begin (* process the┆
0x1040…1060 20 69 6e 74 65 72 6e 61 6c 20 6c 69 6e 6b 20 6c 69 73 74 20 2a 29 00 00 0a 69 6e 5f 69 6e 74 65 ┆ internal link list *) in_inte┆
0x1060…1080 67 65 72 28 20 6e 6f 5f 6f 66 5f 69 6e 74 20 29 3b 00 00 0a 69 66 20 77 61 6e 74 65 64 20 61 6e ┆ger( no_of_int ); if wanted an┆
0x1080…10a0 64 20 6c 61 73 74 5f 73 63 61 6e 20 74 68 65 6e 00 00 0a 00 00 66 6f 72 20 69 20 3a 3d 20 31 20 ┆d last_scan then for i := 1 ┆
0x10a0…10c0 74 6f 20 6e 6f 5f 6f 66 5f 69 6e 74 20 64 6f 0a 62 65 67 69 6e 0a 69 6e 5f 61 64 64 72 20 28 74 ┆to no_of_int do begin in_addr (t┆
0x10c0…10e0 6f 5f 61 64 64 72 29 3b 0a 00 00 69 6e 5f 61 64 64 72 20 28 61 64 64 72 29 3b 0a 00 00 73 74 6f ┆o_addr); in_addr (addr); sto┆
0x10e0…1100 72 65 5f 61 64 64 72 20 28 74 6f 5f 61 64 64 72 2c 20 61 64 64 72 29 3b 0a 00 00 65 6e 64 0a 00 ┆re_addr (to_addr, addr); end ┆
0x1100…1120 00 65 6c 73 65 0a 00 28 2a 20 73 6b 69 70 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 6c 69 6e 6b ┆ else (* skip the internal link┆
0x1120…1140 73 20 2a 29 0a 66 6f 72 20 69 20 3a 3d 20 31 20 74 6f 20 34 20 2a 20 6e 6f 5f 6f 66 5f 69 6e 74 ┆s *) for i := 1 to 4 * no_of_int┆
0x1140…1160 20 64 6f 0a 00 00 62 65 67 69 6e 0a 69 6e 5f 69 6e 74 65 67 65 72 28 6a 29 3b 0a 65 6e 64 3b 0a ┆ do begin in_integer(j); end; ┆
0x1160…1180 00 65 6e 64 3b 20 28 2a 20 69 66 20 63 6f 72 72 65 63 74 20 63 6f 6d 70 69 6c 65 72 20 76 65 72 ┆ end; (* if correct compiler ver┆
0x1180…11a0 73 69 6f 6e 20 2a 29 0a 2f 2c 0a 0a 00 00 0a 00 00 0a 00 00 6c 2e 2f 66 6f 72 20 69 3a 3d 31 74 ┆sion *) /, l./for i:=1t┆
0x11a0…11c0 6f 63 6f 64 65 5f 77 6f 72 64 73 20 64 6f 2f 2c 20 69 2f 0a 00 0a 00 00 28 2a 20 70 75 74 20 62 ┆ocode_words do/, i/ (* put b┆
0x11c0…11e0 6f 6f 74 2d 76 65 72 73 69 6f 6e 20 6e 75 6d 62 65 72 20 69 6e 74 6f 20 63 6f 72 65 69 6d 61 67 ┆oot-version number into coreimag┆
0x11e0…1200 65 20 28 32 29 20 69 66 20 63 6f 72 72 65 63 74 20 63 6f 6d 70 69 6c 65 72 20 76 65 72 73 69 6f ┆e (2) if correct compiler versio┆
0x1200…1220 6e 20 2a 00 29 0a 77 69 74 68 20 65 78 74 5f 74 61 62 6c 65 5b 20 65 6e 74 72 79 20 5d 20 2e 20 ┆n * ) with ext_table[ entry ] . ┆
0x1220…1240 63 6f 6d 70 69 6c 65 5f 74 69 6d 65 20 64 6f 0a 69 66 20 64 65 73 63 72 5f 79 65 73 20 61 6e 64 ┆compile_time do if descr_yes and┆
0x1240…1260 20 28 72 65 76 69 73 69 6f 6e 20 3d 20 63 6f 6d 70 69 6c 65 72 5f 76 65 72 73 69 6f 6e 5f 6e 75 ┆ (revision = compiler_version_nu┆
0x1260…1280 6d 62 65 72 29 20 74 68 65 6e 0a 00 62 65 67 69 6e 0a 72 65 76 69 73 69 6f 6e 20 3a 3d 20 62 6f ┆mber) then begin revision := bo┆
0x1280…12a0 6f 74 5f 72 65 76 69 73 69 6f 6e 5f 6e 75 6d 62 65 72 3b 00 00 0a 63 6f 72 65 5f 69 6d 61 67 65 ┆ot_revision_number; core_image┆
0x12a0…12c0 20 5b 20 32 20 5d 20 3a 3d 20 69 6e 74 3b 0a 00 00 65 6e 64 3b 0a 00 0a 00 00 2f 2c 0a 0a 00 00 ┆ [ 2 ] := int; end; /, ┆
0x12c0…12e0 3b 20 73 69 64 65 20 32 31 0a 00 00 6c 2e 2f 65 6e 64 3b 20 28 2a 20 77 68 69 6c 65 20 64 65 73 ┆; side 21 l./end; (* while des┆
0x12e0…1300 63 72 2d 6c 65 6e 67 74 68 20 3e 20 30 20 2a 29 2f 2c 0a 6c 2e 2f 69 6e 5f 63 6c 6f 73 65 3b 2f ┆cr-length > 0 *)/, l./in_close;/┆
0x1300…1320 2c 20 6c 31 2c 20 69 2f 0a 00 00 00 00 0a 69 66 20 6e 6f 74 20 61 66 74 65 72 5f 6c 69 62 20 74 ┆, l1, i/ if not after_lib t┆
0x1320…1340 68 65 6e 0a 00 00 73 74 61 72 74 5f 61 64 64 72 20 3a 3d 20 74 6f 70 5f 6f 66 5f 62 69 6e 3b 0a ┆hen start_addr := top_of_bin; ┆
0x1340…1360 00 0a 00 00 65 6e 64 3b 0a 00 2f 2c 0a 0a 00 00 66 0a 00 19 00 00 68 20 63 6f 6d 70 69 6c 65 5f ┆ end; /, f h compile_┆
0x1360…1380 74 69 6d 65 20 64 6f 0a 77 72 69 74 65 28 68 6f 75 72 20 64 69 76 20 31 30 20 3a 20 31 2c 20 68 ┆time do write(hour div 10 : 1, h┆
0x1380…13a0 6f 75 72 20 6d 6f 64 20 31 30 20 3a 31 2c 0a 27 2e 27 2c 20 6d 69 6e 75 74 65 20 64 69 76 20 31 ┆our mod 10 :1, '.', minute div 1┆
0x13a0…13c0 30 20 3a 31 2c 20 6d 69 6e 75 74 65 20 6d 6f 64 20 31 30 20 3a 31 2c 20 27 20 20 20 27 20 29 3b ┆0 :1, minute mod 10 :1, ' ' );┆
0x13c0…13e0 00 00 0a 00 00 0a 00 00 2f 2c 0a 00 00 0a 0a 00 00 6c 2e 2f 77 72 69 74 65 6c 6e 3b 65 6e 64 3b ┆ /, l./writeln;end;┆
0x13e0…1400 2f 2c 20 69 2f 0a 69 66 20 28 63 6f 6d 70 69 6c 65 5f 74 69 6d 65 20 2e 20 72 65 76 69 73 69 6f ┆/, i/ if (compile_time . revisio┆
0x1400…1420 6e 20 3c 3e 20 63 6f 6d 70 69 6c 65 72 5f 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 20 29 20 61 ┆n <> compiler_version_number ) a┆
0x1420…1440 6e 64 20 64 65 73 63 72 5f 79 65 73 20 74 68 65 00 6e 00 00 0a 00 00 6d 65 73 73 5f 65 72 72 6f ┆nd descr_yes the n mess_erro┆
0x1440…1460 72 20 28 20 32 2c 20 33 35 2c 20 2d 33 20 29 3b 0a 00 2f 2c 0a 00 00 0a 0a 00 00 0a 00 00 3b 20 ┆r ( 2, 35, -3 ); /, ; ┆
0x1460…1480 73 69 64 65 20 31 30 00 00 0a 6c 2e 2f 70 72 6f 63 65 64 75 72 65 20 72 65 73 65 72 76 65 5f 61 ┆side 10 l./procedure reserve_a┆
0x1480…14a0 72 65 61 28 2f 2c 0a 00 6c 2e 2f 6c 61 73 74 5f 73 63 61 6e 2f 2c 20 64 32 2c 0a 00 00 0a 00 00 ┆rea(/, l./last_scan/, d2, ┆
0x14a0…14c0 6c 2e 2f 70 72 6f 63 65 64 75 72 65 20 6d 61 70 5f 69 6e 63 72 28 2f 2c 0a 00 00 6c 2e 2f 62 65 ┆l./procedure map_incr(/, l./be┆
0x14c0…14e0 67 69 6e 2f 2c 20 69 2f 0a 00 76 61 72 20 6f 6c 64 5f 62 61 73 65 20 3a 20 69 6e 74 65 67 65 72 ┆gin/, i/ var old_base : integer┆
0x14e0…1500 3b 0a 2f 2c 0a 0a 00 00 6c 2e 2f 72 65 73 65 72 76 65 5f 61 72 65 61 2f 2c 20 69 2f 0a 6f 6c 64 ┆; /, l./reserve_area/, i/ old┆