|
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: 145152 (0x23700)
Types: Rc489kSubCat
Names: »jtas«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »jtas«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »jtas«
0x00000…00033 Rc489kSubCatEnt {f00=0x001542, f01=0x0007f8, f02=0x000801, filename=»tsetdef «, entry_tail=0-4-0-1-1980-12-04T16:20-disc-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x002dca, f01=0x0007f8, f02=0x000801, filename=»jttestext «, entry_tail=0-4-0-1-1980-12-04T16:02-disc1-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x003b52, f01=0x0007f8, f02=0x000801, filename=»jttrans «, entry_tail=0-4-0-2-1980-12-04T12:29-disc1-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x0052cb, f01=0x0007f8, f02=0x000801, filename=»talgoltask «, entry_tail=0-4-0-25-1980-11-27T13:13-disc3-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x01eb9b, f01=0x0007f8, f02=0x000801, filename=»tsetentry «, entry_tail=0-4-0-9-1979-12-04T12:15-disc3-0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x027df3, f01=0x0007f8, f02=0x000801, filename=»prelinktext «, entry_tail=0-4-0-63-1980-12-02T12:42-disc3-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x066cc3, f01=0x0007f8, f02=0x000801, filename=»texecintf1 «, entry_tail=0-4-0-16-1980-02-26T10:16-disc3-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x0765c3, f01=0x0007f8, f02=0x000801, filename=»tcreatetask «, entry_tail=0-4-0-26-1980-11-17T15:11-disc3-0x0-0x0-0x0-0x0}
0x00198…001a0 ff ff ff ff ff ff ff ff ┆ ┆
0x001a0…001c0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
[…0x3…]
0x00220…00240 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 05 80 04 1b 80 00 01 7f ff fd 74 72 6f ┆ tro┆
0x00240…00260 00 00 00 00 00 00 00 00 00 80 00 0a 72 65 61 64 65 72 00 00 00 00 00 00 63 99 3e 00 00 00 00 00 ┆ reader c > ┆
0x00260…00280 00 00 00 00 00 00 00 1b 14 1b 80 00 01 7f ff fd 70 6f 73 00 00 00 00 00 00 00 00 00 00 00 18 64 ┆ pos d┆
0x00280…002a0 69 73 63 00 00 00 00 00 00 00 00 69 d5 88 80 b0 b0 00 00 00 00 29 24 00 0a ac ff ff ff 00 02 6c ┆isc i )$ l┆
0x002a0…002c0 00 02 75 77 72 6b 30 30 30 31 36 35 00 00 00 00 00 17 64 69 73 63 31 00 00 00 00 00 00 00 76 b3 ┆ uwrk000165 disc1 v ┆
0x002c0…002e0 29 00 00 00 00 00 00 00 00 00 00 2d ee ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆) - ┆
0x002e0…002fd ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x002fd…00300 0x000008
0x00300…00600 Data for tsetdef
0x00600…00900 Data for jttestext
0x00900…00f00 Data for jttrans
0x00f00…05a00 Data for talgoltask
0x05a00…07500 Data for tsetentry
0x07500…13200 Data for prelinktext
0x13200…16200 Data for texecintf1
0x16200…1b000 Data for tcreatetask
0x1b000…1b020 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 63 61 6c 63 75 6c 61 74 65 5f 68 61 73 68 5f ┆nteger procedure calculate_hash_┆
0x1b020…1b040 6b 65 79 28 6e 61 6d 65 29 3b 0a 20 20 20 20 76 61 6c 75 65 20 6e 61 6d 65 3b 20 6c 6f 6e 67 20 ┆key(name); value name; long ┆
0x1b040…1b060 6e 61 6d 65 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 63 61 6c 63 75 6c 61 74 65 5f 68 61 ┆name; begin calculate_ha┆
0x1b060…1b080 73 68 5f 6b 65 79 20 3a 3d 20 28 28 20 6e 61 6d 65 20 65 78 74 72 61 63 74 20 31 32 29 20 2b 0a ┆sh_key := (( name extract 12) + ┆
0x1b080…1b0a0 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 28 20 6e 61 6d 65 ┆ ( name┆
0x1b0a0…1b0c0 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 31 32 29 20 2b 0a 20 20 20 20 20 ┆ shift (-12) extract 12) + ┆
0x1b0c0…1b0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 20 6e 61 6d 65 20 73 68 69 66 ┆ ( name shif┆
0x1b0e0…1b100 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 31 32 29 20 2b 0a 20 20 20 20 20 20 20 20 20 20 ┆t (-24) extract 12) + ┆
0x1b100…1b120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 20 6e 61 6d 65 20 73 68 69 66 74 20 28 2d 33 ┆ ( name shift (-3┆
0x1b120…1b140 36 29 20 65 78 74 72 61 63 74 20 31 32 29 20 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆6) extract 12) + ┆
0x1b140…1b160 20 20 20 20 20 20 20 20 20 20 20 28 20 6e 61 6d 65 20 73 68 69 66 74 20 28 2d 34 30 29 20 65 78 ┆ ( name shift (-40) ex┆
0x1b160…1b180 74 72 61 63 74 20 38 29 20 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tract 8) + ┆
0x1b180…1b1a0 20 20 20 20 20 28 20 6e 61 6d 65 20 73 68 69 66 74 20 28 2d 33 32 29 20 65 78 74 72 61 63 74 20 ┆ ( name shift (-32) extract ┆
0x1b1a0…1b1c0 38 29 20 2b 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 28 ┆8) + (┆
0x1b1c0…1b1e0 20 6e 61 6d 65 20 73 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 31 32 29 20 0a 20 ┆ name shift (-24) extract 12) ┆
0x1b1e0…1b200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 ┆ ) ┆
0x1b200…1b220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 20 73 65 61 72 63 68 5f 74 ┆ mod search_t┆
0x1b220…1b240 61 62 6c 65 5f 6c 65 6e 67 74 68 3b 0a 20 20 20 20 65 6e 64 20 63 61 6c 63 75 6c 61 74 65 5f 68 ┆able_length; end calculate_h┆
0x1b240…1b260 61 73 68 5f 6b 65 79 3b 0a 0a 20 20 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 ┆ash_key; integer procedure ┆
0x1b260…1b280 69 6e 73 65 72 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 6e 61 6d 65 2c 74 79 70 ┆insert_name_table(index,name,typ┆
0x1b280…1b2a0 65 2c 72 65 66 66 29 3b 0a 20 20 20 20 76 61 6c 75 65 20 69 6e 64 65 78 2c 6e 61 6d 65 2c 74 79 ┆e,reff); value index,name,ty┆
0x1b2a0…1b2c0 70 65 2c 72 65 66 66 3b 20 6c 6f 6e 67 20 69 6e 64 65 78 2c 6e 61 6d 65 3b 20 20 20 20 20 20 20 ┆pe,reff; long index,name; ┆
0x1b2c0…1b2e0 20 20 20 0a 20 20 20 20 69 6e 74 65 67 65 72 20 74 79 70 65 2c 72 65 66 66 3b 0a 20 20 20 20 62 ┆ integer type,reff; b┆
0x1b2e0…1b300 65 67 69 6e 0a 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 31 29 20 3a 3d 20 ┆egin name_table(index,1) := ┆
0x1b300…1b320 6e 61 6d 65 3b 0a 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 30 29 20 3a 3d ┆name; name_table(index,0) :=┆
0x1b320…1b340 20 74 79 70 65 3b 0a 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 34 29 20 3a ┆ type; name_table(index,4) :┆
0x1b340…1b360 3d 20 72 65 66 66 3b 0a 20 20 20 20 65 6e 64 20 69 6e 73 65 72 74 5f 6e 61 6d 65 5f 74 61 62 6c ┆= reff; end insert_name_tabl┆
0x1b360…1b380 65 3b 0a 0a 0a 0a 20 20 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 6e 65 77 5f ┆e; integer procedure new_┆
0x1b380…1b3a0 69 6e 73 65 72 74 5f 6c 61 62 65 6c 5f 72 65 66 28 6e 61 6d 65 2c 69 6e 73 74 72 5f 69 6e 64 65 ┆insert_label_ref(name,instr_inde┆
0x1b3a0…1b3c0 78 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 3b 0a 0a 20 20 20 20 76 61 6c 75 ┆x,line_no,element_no); valu┆
0x1b3c0…1b3e0 65 20 6e 61 6d 65 2c 69 6e 73 74 72 5f 69 6e 64 65 78 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 ┆e name,instr_index,line_no,eleme┆
0x1b3e0…1b400 6e 74 5f 6e 6f 3b 0a 20 20 20 20 6c 6f 6e 67 20 6e 61 6d 65 3b 0a 20 20 20 20 69 6e 74 65 67 65 ┆nt_no; long name; intege┆
0x1b400…1b420 72 20 69 6e 73 74 72 5f 69 6e 64 65 78 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f ┆r instr_index,line_no,element_no┆
0x1b420…1b440 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 5f 72 5f 72 65 63 6f 72 64 20 3a 3d 20 61 6c ┆; begin l_r_record := al┆
0x1b440…1b460 6c 6f 63 61 74 65 28 6c 5f 72 5f 72 65 63 6f 72 64 5f 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 48 ┆locate(l_r_record_length); H┆
0x1b460…1b480 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 63 68 61 69 6e 20 3a 3d 20 6c 5f 72 5f ┆EAP.l_r_record.l_r_chain := l_r_┆
0x1b480…1b4a0 72 65 63 6f 72 64 5f 63 68 61 69 6e 5f 68 65 61 64 3b 0a 20 20 20 20 6c 5f 72 5f 72 65 63 6f 72 ┆record_chain_head; l_r_recor┆
0x1b4a0…1b4c0 64 5f 63 68 61 69 6e 5f 68 65 61 64 20 3a 3d 20 6c 5f 72 5f 72 65 63 6f 72 64 3b 0a 20 20 20 20 ┆d_chain_head := l_r_record; ┆
0x1b4c0…1b4e0 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 6e 61 6d 65 20 3a 3d 20 6e 61 6d 65 ┆HEAP.l_r_record.l_r_name := name┆
0x1b4e0…1b500 3b 0a 20 20 20 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 69 6e 64 65 78 20 ┆; HEAP.l_r_record.l_r_index ┆
0x1b500…1b520 3a 3d 20 69 6e 73 74 72 5f 69 6e 64 65 78 3b 0a 20 20 20 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 ┆:= instr_index; HEAP.l_r_rec┆
0x1b520…1b540 6f 72 64 2e 6c 5f 72 5f 6c 69 6e 65 5f 6e 6f 20 3a 3d 20 6c 69 6e 65 5f 6e 6f 3b 0a 20 20 20 20 ┆ord.l_r_line_no := line_no; ┆
0x1b540…1b560 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 65 6c 65 6d 65 6e 74 5f 6e 6f 20 3a ┆HEAP.l_r_record.l_r_element_no :┆
0x1b560…1b580 3d 20 65 6c 65 6d 65 6e 74 5f 6e 6f 3b 0a 20 20 20 20 6e 65 77 5f 69 6e 73 65 72 74 5f 6c 61 62 ┆= element_no; new_insert_lab┆
0x1b580…1b5a0 65 6c 5f 72 65 66 20 3a 3d 20 6c 5f 72 5f 72 65 63 6f 72 64 3b 0a 20 20 20 20 65 6e 64 20 6e 65 ┆el_ref := l_r_record; end ne┆
0x1b5a0…1b5c0 77 5f 69 6e 73 65 72 74 5f 6c 61 62 65 6c 5f 72 65 66 3b 0a 0a 0a 0a 20 20 20 20 69 6e 74 65 67 ┆w_insert_label_ref; integ┆
0x1b5c0…1b5e0 65 72 20 70 72 6f 63 65 64 75 72 65 20 6e 65 77 5f 69 6e 73 65 72 74 5f 6c 61 62 65 6c 5f 64 65 ┆er procedure new_insert_label_de┆
0x1b5e0…1b600 66 28 6e 61 6d 65 2c 69 6e 64 65 78 2c 69 6e 73 74 72 5f 69 6e 64 65 78 2c 6c 69 6e 65 5f 6e 6f ┆f(name,index,instr_index,line_no┆
0x1b600…1b620 2c 73 70 65 63 29 3b 0a 20 20 20 20 76 61 6c 75 65 20 6e 61 6d 65 2c 69 6e 64 65 78 2c 69 6e 73 ┆,spec); value name,index,ins┆
0x1b620…1b640 74 72 5f 69 6e 64 65 78 2c 73 70 65 63 2c 6c 69 6e 65 5f 6e 6f 3b 0a 20 20 20 20 6c 6f 6e 67 20 ┆tr_index,spec,line_no; long ┆
0x1b640…1b660 6e 61 6d 65 2c 69 6e 64 65 78 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 6e 73 74 72 5f 69 6e ┆name,index; integer instr_in┆
0x1b660…1b680 64 65 78 2c 73 70 65 63 2c 6c 69 6e 65 5f 6e 6f 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆dex,spec,line_no; begin ┆
0x1b680…1b6a0 6c 5f 64 5f 72 65 63 6f 72 64 20 3a 3d 20 61 6c 6c 6f 63 61 74 65 28 6c 5f 64 5f 72 65 63 6f 72 ┆l_d_record := allocate(l_d_recor┆
0x1b6a0…1b6c0 64 5f 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 69 6e 73 65 72 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 ┆d_length); insert_name_table┆
0x1b6c0…1b6e0 28 69 6e 64 65 78 2c 6e 61 6d 65 2c 6c 61 62 65 6c 5f 74 79 70 65 2c 6c 5f 64 5f 72 65 63 6f 72 ┆(index,name,label_type,l_d_recor┆
0x1b6e0…1b700 64 29 3b 0a 20 20 20 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c 5f 64 5f 63 68 61 69 ┆d); HEAP.l_d_record.l_d_chai┆
0x1b700…1b720 6e 20 3a 3d 20 69 6e 64 65 78 3b 20 3c 2a 20 69 6e 64 65 78 20 62 61 63 6b 20 74 6f 20 6e 61 6d ┆n := index; <* index back to nam┆
0x1b720…1b740 65 20 74 61 62 6c 65 20 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e table ┆
0x1b740…1b760 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 ┆ ┆
0x1b760…1b780 2a 3e 0a 20 20 20 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c 5f 64 5f 69 6e 64 65 78 ┆*> HEAP.l_d_record.l_d_index┆
0x1b780…1b7a0 20 3a 3d 20 69 6e 73 74 72 5f 69 6e 64 65 78 3b 0a 20 20 20 20 48 45 41 50 2e 6c 5f 64 5f 72 65 ┆ := instr_index; HEAP.l_d_re┆
0x1b7a0…1b7c0 63 6f 72 64 2e 6c 5f 64 5f 6c 69 6e 65 5f 6e 6f 20 3a 3d 20 6c 69 6e 65 5f 6e 6f 3b 0a 20 20 20 ┆cord.l_d_line_no := line_no; ┆
0x1b7c0…1b7e0 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c 5f 64 5f 73 70 65 63 20 3a 3d 20 73 70 65 ┆ HEAP.l_d_record.l_d_spec := spe┆
0x1b7e0…1b800 63 3b 0a 20 20 20 20 6e 65 77 5f 69 6e 73 65 72 74 5f 6c 61 62 65 6c 5f 64 65 66 20 3a 3d 20 69 ┆c; new_insert_label_def := i┆
0x1b800…1b820 6e 64 65 78 3b 0a 20 20 20 20 65 6e 64 20 6e 65 77 5f 69 6e 73 65 72 74 5f 6c 61 62 65 6c 5f 64 ┆ndex; end new_insert_label_d┆
0x1b820…1b840 65 66 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 73 6f 6c 76 65 5f 6c 61 62 65 6c ┆ef; procedure resolve_label┆
0x1b840…1b860 73 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 6f 70 5f 63 6f 64 65 ┆s; begin integer op_code┆
0x1b860…1b880 5f 69 6e 64 65 78 3b 0a 20 20 20 20 6c 6f 6e 67 20 6e 61 6d 65 5f 74 61 62 6c 65 5f 69 6e 64 65 ┆_index; long name_table_inde┆
0x1b880…1b8a0 78 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 77 72 5f 6e 61 6d 65 28 31 3a 32 29 3b 20 ┆x; long array wr_name(1:2); ┆
0x1b8a0…1b8c0 3c 2a 20 75 73 65 64 20 66 6f 72 20 77 72 69 74 69 6e 67 20 6f 66 20 61 20 6e 61 6d 65 20 2a 3e ┆<* used for writing of a name *>┆
0x1b8c0…1b8e0 0a 20 20 20 20 77 72 5f 6e 61 6d 65 28 32 29 3a 3d 30 3b 0a 0a 20 20 20 20 6c 5f 72 5f 72 65 63 ┆ wr_name(2):=0; l_r_rec┆
0x1b8e0…1b900 6f 72 64 20 3a 3d 20 6c 5f 72 5f 72 65 63 6f 72 64 5f 63 68 61 69 6e 5f 68 65 61 64 3b 0a 20 20 ┆ord := l_r_record_chain_head; ┆
0x1b900…1b920 20 20 20 77 68 69 6c 65 20 6c 5f 72 5f 72 65 63 6f 72 64 20 3e 2d 31 20 64 6f 0a 20 20 20 20 20 ┆ while l_r_record >-1 do ┆
0x1b920…1b940 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 69 66 20 2d 2c 20 6c 6f 6f 6b 75 70 5f 6e 61 6d 65 ┆ begin if -, lookup_name┆
0x1b940…1b960 28 6e 61 6d 65 5f 74 61 62 6c 65 2c 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f ┆(name_table,HEAP.l_r_record.l_r_┆
0x1b960…1b980 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 5f 74 ┆name, name_t┆
0x1b980…1b9a0 61 62 6c 65 5f 69 6e 64 65 78 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆able_index) then begin ┆
0x1b9a0…1b9c0 20 20 20 20 20 20 20 20 20 69 6e 73 74 72 5f 69 6e 64 65 78 20 3a 3d 20 48 45 41 50 2e 6c 5f 72 ┆ instr_index := HEAP.l_r┆
0x1b9c0…1b9e0 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 20 65 72 72 6f ┆_record.l_r_index; erro┆
0x1b9e0…1ba00 72 28 75 6e 64 65 63 5f 6c 61 62 65 6c 2c 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f ┆r(undec_label,HEAP.l_r_record.l_┆
0x1ba00…1ba20 72 5f 6c 69 6e 65 5f 6e 6f 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r_line_no, ┆
0x1ba20…1ba40 20 20 20 20 20 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 65 6c 65 6d 65 6e ┆ HEAP.l_r_record.l_r_elemen┆
0x1ba40…1ba60 74 5f 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 ┆t_no); end else┆
0x1ba60…1ba80 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 6c 5f 64 5f 72 65 63 ┆ begin l_d_rec┆
0x1ba80…1baa0 6f 72 64 20 3a 3d 20 6e 61 6d 65 5f 74 61 62 6c 65 28 6e 61 6d 65 5f 74 61 62 6c 65 5f 69 6e 64 ┆ord := name_table(name_table_ind┆
0x1baa0…1bac0 65 78 2c 34 29 3b 0a 20 20 20 20 20 20 20 20 20 6f 70 5f 63 6f 64 65 5f 69 6e 64 65 78 20 3a 3d ┆ex,4); op_code_index :=┆
0x1bac0…1bae0 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 69 6e 64 65 78 3b 0a 20 20 20 20 ┆ HEAP.l_r_record.l_r_index; ┆
0x1bae0…1bb00 20 20 20 20 20 6f 70 5f 63 6f 64 65 28 6f 70 63 6f 64 65 5f 69 6e 64 65 78 29 20 3a 3d 20 6d 61 ┆ op_code(opcode_index) := ma┆
0x1bb00…1bb20 73 6b 5f 69 6e 28 6f 70 5f 63 6f 64 65 28 6f 70 5f 63 6f 64 65 5f 69 6e 64 65 78 29 2c 0a 20 20 ┆sk_in(op_code(op_code_index), ┆
0x1bb20…1bb40 20 20 20 20 20 20 20 20 20 65 78 74 65 6e 64 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e ┆ extend HEAP.l_d_record.┆
0x1bb40…1bb60 6c 5f 64 5f 69 6e 64 65 78 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 64 64 72 73 5f 6d 61 73 6b ┆l_d_index, addrs_mask┆
0x1bb60…1bb80 29 3b 0a 20 20 20 20 20 20 20 20 20 0a 0a 20 20 20 20 20 20 20 20 20 69 66 20 74 65 73 74 5f 6c ┆); if test_l┆
0x1bb80…1bba0 61 62 65 6c 5f 62 69 74 20 6f 72 20 74 65 73 74 5f 6c 61 62 65 6c 5f 72 65 66 20 74 68 65 6e 0a ┆abel_bit or test_label_ref then ┆
0x1bba0…1bbc0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 5f 6e ┆ begin wr_n┆
0x1bbc0…1bbe0 61 6d 65 28 31 29 20 3a 3d 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c 5f 64 5f 6e 61 ┆ame(1) := HEAP.l_d_record.l_d_na┆
0x1bbe0…1bc00 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c ┆me; write(out,"nl",1,┆
0x1bc00…1bc20 22 73 70 22 2c 35 2c 3c 3c 7a 64 64 64 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆"sp",5,<<zddd>, ┆
0x1bc20…1bc40 20 6f 63 74 61 6c 28 65 78 74 65 6e 64 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f ┆ octal(extend HEAP.l_r_record.l_┆
0x1bc40…1bc60 72 5f 69 6e 64 65 78 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 6c 61 ┆r_index), <: la┆
0x1bc60…1bc80 62 65 6c 20 72 65 66 66 20 74 6f 3a 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆bel reff to: :>, ┆
0x1bc80…1bca0 20 20 6f 63 74 61 6c 28 65 78 74 65 6e 64 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c ┆ octal(extend HEAP.l_d_record.l┆
0x1bca0…1bcc0 5f 64 5f 69 6e 64 65 78 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 6e ┆_d_index), <: n┆
0x1bcc0…1bce0 61 6d 65 3a 20 3a 3e 2c 77 72 5f 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ame: :>,wr_name); end┆
0x1bce0…1bd00 3b 0a 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 69 66 20 74 65 73 74 5f 6c 61 62 ┆; if test_lab┆
0x1bd00…1bd20 65 6c 5f 62 69 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆el_bit then begin ┆
0x1bd20…1bd40 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c 22 73 70 22 2c 31 31 ┆ write(out,"nl",1,"sp",11┆
0x1bd40…1bd60 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 5f 66 6f 72 6d 61 74 65 64 28 6f 70 5f ┆); print_formated(op_┆
0x1bd60…1bd80 63 6f 64 65 28 6f 70 5f 63 6f 64 65 5f 69 6e 64 65 78 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆code(op_code_index)); ┆
0x1bd80…1bda0 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 6c 5f 72 5f ┆ end; end; l_r_┆
0x1bda0…1bdc0 72 65 63 6f 72 64 20 3a 3d 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 63 68 ┆record := HEAP.l_r_record.l_r_ch┆
0x1bdc0…1bde0 61 69 6e 3b 0a 20 20 20 20 20 20 20 65 6e 64 20 73 63 61 6e 20 6c 6f 6f 70 3b 0a 20 20 20 20 65 ┆ain; end scan loop; e┆
0x1bde0…1be00 6e 64 20 72 65 73 6f 6c 76 65 5f 6c 61 62 65 6c 73 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 ┆nd resolve_labels; procedur┆
0x1be00…1be20 65 20 6c 61 62 65 6c 5f 6c 69 73 74 28 6f 6e 6c 79 5f 73 70 65 63 5f 77 61 6e 74 65 64 29 3b 0a ┆e label_list(only_spec_wanted); ┆
0x1be20…1be40 20 20 20 20 76 61 6c 75 65 20 6f 6e 6c 79 5f 73 70 65 63 5f 77 61 6e 74 65 64 3b 20 62 6f 6f 6c ┆ value only_spec_wanted; bool┆
0x1be40…1be60 65 61 6e 20 6f 6e 6c 79 5f 73 70 65 63 5f 77 61 6e 74 65 64 3b 0a 20 20 20 20 62 65 67 69 6e 0a ┆ean only_spec_wanted; begin ┆
0x1be60…1be80 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 77 72 5f 6e 61 6d 65 28 31 3a 32 29 3b 0a 20 20 20 ┆ long array wr_name(1:2); ┆
0x1be80…1bea0 20 69 6e 74 65 67 65 72 20 69 6e 64 65 78 3b 0a 20 20 20 20 77 72 5f 6e 61 6d 65 28 32 29 20 3a ┆ integer index; wr_name(2) :┆
0x1bea0…1bec0 3d 20 30 3b 0a 20 20 20 20 0a 20 20 20 20 66 6f 72 20 69 6e 64 65 78 20 3a 3d 20 31 20 73 74 65 ┆= 0; for index := 1 ste┆
0x1bec0…1bee0 70 20 31 20 75 6e 74 69 6c 20 6e 61 6d 65 5f 74 61 62 6c 65 5f 6c 65 6e 67 74 68 20 64 6f 0a 20 ┆p 1 until name_table_length do ┆
0x1bee0…1bf00 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 6e 61 6d 65 5f 74 61 62 6c 65 28 69 ┆ begin if name_table(i┆
0x1bf00…1bf20 6e 64 65 78 2c 30 29 20 3d 20 6c 61 62 65 6c 5f 74 79 70 65 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ndex,0) = label_type then ┆
0x1bf20…1bf40 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6c 5f 64 5f 72 65 63 6f 72 64 20 3a 3d 20 6e 61 ┆ begin l_d_record := na┆
0x1bf40…1bf60 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 34 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 48 45 ┆me_table(index,4); if HE┆
0x1bf60…1bf80 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c 5f 64 5f 73 70 65 63 20 3e 20 30 20 6f 72 0a 20 20 ┆AP.l_d_record.l_d_spec > 0 or ┆
0x1bf80…1bfa0 20 20 20 20 20 20 20 20 20 2d 2c 20 6f 6e 6c 79 5f 73 70 65 63 5f 77 61 6e 74 65 64 20 74 68 65 ┆ -, only_spec_wanted the┆
0x1bfa0…1bfc0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 ┆n begin wr┆
0x1bfc0…1bfe0 5f 6e 61 6d 65 28 31 29 20 3a 3d 20 6e 61 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 31 29 3b ┆_name(1) := name_table(index,1);┆
0x1bfe0…1c000 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 22 73 70 22 2c 31 35 20 2d 20 ┆ write(out,"sp",15 - ┆
0x1c000…22700 […elided…]
0x22700…22720 20 3a 3e 2c 6c 69 6e 65 5f 6e 6f 2c 69 66 20 63 6c 61 73 73 32 20 3c 3e 20 63 6f 6c 6f 6e 5f 63 ┆ :>,line_no,if class2 <> colon_c┆
0x22720…22740 6c 61 73 73 20 74 68 65 6e 20 65 6c 65 6d 65 6e 74 5f 6e 6f 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆lass then element_no else ┆
0x22740…22760 65 6c 65 6d 65 6e 74 5f 6e 6f 20 2d 31 29 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆element_no -1) else ┆
0x22760…22780 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a ┆begin if name1 = long <:┆
0x22780…227a0 6e 61 6d 65 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆name:> then begin ┆
0x227a0…227c0 20 20 20 20 6e 65 78 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6c 61 73 73 31 20 3c ┆ next1; if class1 <┆
0x227c0…227e0 3e 20 39 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 69 66 20 63 6c 61 73 ┆> 9 then error(if clas┆
0x227e0…22800 73 31 20 3c 3e 20 36 20 74 68 65 6e 20 6c 6f 6e 67 20 3c 3a 74 65 73 74 20 64 69 72 20 32 2e 3a ┆s1 <> 6 then long <:test dir 2.:┆
0x22800…22820 3e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 70 6c 75 73 5f 6e 61 6d 65 5f 64 65 63 2c 6c ┆> else plus_name_dec,l┆
0x22820…22840 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 ┆ine_no,element_no) els┆
0x22840…22860 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 ┆e begin na┆
0x22860…22880 6d 65 5f 74 61 62 6c 65 28 6e 75 6d 62 65 72 31 2c 31 29 20 3a 3d 20 6e 61 6d 65 31 3b 0a 20 20 ┆me_table(number1,1) := name1; ┆
0x22880…228a0 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 3a 3d 30 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ index:=0; ┆
0x228a0…228c0 20 66 6f 72 20 63 6c 61 73 73 32 20 3a 3d 20 6e 65 78 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ for class2 := next2 ┆
0x228c0…228e0 20 77 68 69 6c 65 20 63 6c 61 73 73 32 20 3d 20 63 6f 6d 6d 61 5f 63 6c 61 73 73 20 61 6e 64 20 ┆ while class2 = comma_class and ┆
0x228e0…22900 69 6e 64 65 78 20 3c 20 35 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆index < 5 do begin ┆
0x22900…22920 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ next2; ┆
0x22920…22940 20 20 69 66 20 63 6c 61 73 73 32 20 3d 20 6e 75 6d 62 65 72 5f 63 6c 61 73 73 20 74 68 65 6e 0a ┆ if class2 = number_class then ┆
0x22940…22960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 6e 75 6d 62 65 72 31 ┆ name_table(number1┆
0x22960…22980 2c 69 6e 64 65 78 29 20 3a 3d 20 6e 75 6d 62 65 72 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,index) := number2 ┆
0x22980…229a0 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6c 61 73 73 32 20 3d 20 ┆ else if class2 = ┆
0x229a0…229c0 36 20 3c 2a 20 64 65 66 69 6e 65 64 20 6e 61 6d 65 20 2a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆6 <* defined name *> then ┆
0x229c0…229e0 20 20 20 20 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 6e 75 6d 62 65 72 31 2c 69 6e 64 65 78 ┆ name_table(number1,index┆
0x229e0…22a00 29 20 3a 3d 20 6e 75 6d 62 65 72 5f 32 20 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 ┆) := number_2 ┆
0x22a00…22a20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ else begin┆
0x22a20…22a40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 6c 6f 6e 67 20 3c 3a 74 65 ┆ error(long <:te┆
0x22a40…22a60 73 74 20 64 69 72 2e 20 33 3a 3e 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 3b ┆st dir. 3:>,line_no,element_no);┆
0x22a60…22a80 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 3a 3d 31 30 30 3b 0a 20 20 20 ┆ index:=100; ┆
0x22a80…22aa0 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ end; if┆
0x22aa0…22ac0 20 69 6e 64 65 78 20 3d 20 30 20 74 68 65 6e 20 69 6e 64 65 78 20 3a 3d 32 20 65 6c 73 65 0a 20 ┆ index = 0 then index :=2 else ┆
0x22ac0…22ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6e 64 65 78 3c 31 30 30 20 74 68 65 6e 20 69 ┆ if index<100 then i┆
0x22ae0…22b00 6e 64 65 78 3a 3d 69 6e 64 65 78 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ndex:=index+1; end; ┆
0x22b00…22b20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a ┆ end; end else ┆
0x22b20…22b40 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 ┆ if name1 = long┆
0x22b40…22b60 20 3c 3a 63 6f 6e 73 74 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ <:const:> then begin ┆
0x22b60…22b80 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6c ┆ next1; if cl┆
0x22b80…22ba0 61 73 73 31 20 3c 3e 20 39 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 ┆ass1 <> 9 then error┆
0x22ba0…22bc0 28 69 66 20 63 6c 61 73 73 31 20 3c 3e 20 36 20 74 68 65 6e 20 64 69 72 65 63 74 69 76 65 20 65 ┆(if class1 <> 6 then directive e┆
0x22bc0…22be0 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6c 75 73 5f 6e 61 6d 65 ┆lse plus_name┆
0x22be0…22c00 5f 64 65 63 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 20 20 20 20 20 20 ┆_dec,line_no,element_no) ┆
0x22c00…22c20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ else begin ┆
0x22c20…22c40 20 20 20 20 20 20 20 20 20 6e 65 78 74 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ next2; if ┆
0x22c40…22c60 63 6c 61 73 73 32 20 3d 20 63 6f 6d 6d 61 5f 63 6c 61 73 73 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆class2 = comma_class then ┆
0x22c60…22c80 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 ┆ begin ne┆
0x22c80…22ca0 78 74 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6c 61 73 73 32 20 3d 20 ┆xt2; if class2 = ┆
0x22ca0…22cc0 6e 75 6d 62 65 72 5f 63 6c 61 73 73 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆number_class then ┆
0x22cc0…22ce0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 5f 69 6e ┆ begin new_in┆
0x22ce0…22d00 73 65 72 74 5f 6c 61 62 65 6c 5f 64 65 66 28 6e 61 6d 65 31 2c 6e 75 6d 62 65 72 31 2c 0a 20 20 ┆sert_label_def(name1,number1, ┆
0x22d00…22d20 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 ┆ ┆
0x22d20…22d40 20 20 20 20 6e 75 6d 62 65 72 32 20 65 78 74 72 61 63 74 20 31 32 2c 6c 69 6e 65 5f 6e 6f 2c 30 ┆ number2 extract 12,line_no,0┆
0x22d40…22d60 29 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 ┆);; end ┆
0x22d60…22d80 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 65 72 72 6f 72 28 64 69 72 65 63 74 69 76 65 2c 6c 69 ┆ else error(directive,li┆
0x22d80…22da0 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ne_no,element_no); ┆
0x22da0…22dc0 20 20 65 6e 64 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 65 72 72 6f 72 28 ┆ end else error(┆
0x22dc0…22de0 64 69 72 65 63 74 69 76 65 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 3b 0a 20 ┆directive,line_no,element_no); ┆
0x22de0…22e00 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 ┆ end; end e┆
0x22e00…22e20 6c 73 65 0a 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c ┆lse if name1 = l┆
0x22e20…22e40 6f 6e 67 20 3c 3a 6d 61 73 6b 3a 3e 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ong <:mask:> then begin┆
0x22e40…22e60 0a 20 20 20 20 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 6f 70 65 72 61 6e 64 28 31 3a 31 29 ┆ long array operand(1:1)┆
0x22e60…22e80 3b 20 3c 2a 20 6f 6e 6c 79 20 6f 6e 65 20 77 6f 72 64 20 75 73 65 64 20 2a 3e 0a 20 20 20 20 20 ┆; <* only one word used *> ┆
0x22e80…22ea0 20 20 20 62 6f 6f 6c 65 61 6e 20 6d 61 73 6b 5f 73 75 63 63 65 73 3b 0a 20 20 20 20 20 20 20 20 ┆ boolean mask_succes; ┆
0x22ea0…22ec0 6c 6f 6e 67 20 6d 61 73 6b 5f 6e 61 6d 65 2c 6d 61 73 6b 5f 6e 75 6d 62 65 72 3b 0a 20 20 20 20 ┆long mask_name,mask_number; ┆
0x22ec0…22ee0 20 20 20 20 6f 70 65 72 61 6e 64 28 31 29 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆ operand(1) := 0; i┆
0x22ee0…22f00 66 20 6e 65 78 74 31 20 3c 3e 20 75 6e 6b 6e 6f 77 6e 5f 6e 61 6d 65 5f 63 6c 61 73 73 20 74 68 ┆f next1 <> unknown_name_class th┆
0x22f00…22f20 65 6e 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 6c 6f 6e 67 20 3c 3a 20 64 69 72 65 63 ┆en error(long <: direc┆
0x22f20…22f40 74 69 76 65 20 32 3a 3e 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 20 20 ┆tive 2:>,line_no,element_no) ┆
0x22f40…22f60 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 65 78 74 32 20 3c ┆ else if next2 <┆
0x22f60…22f80 3e 20 63 6f 6d 6d 61 5f 63 6c 61 73 73 20 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 65 72 ┆> comma_class then er┆
0x22f80…22fa0 72 6f 72 28 6c 6f 6e 67 20 3c 3a 64 69 72 65 63 74 69 76 65 20 33 3a 3e 2c 6c 69 6e 65 5f 6e 6f ┆ror(long <:directive 3:>,line_no┆
0x22fa0…22fc0 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆,element_no) else ┆
0x22fc0…22fe0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 5f 6e 61 6d ┆ begin mask_nam┆
0x22fe0…23000 65 20 3a 3d 20 6e 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 5f 6e 75 6d 62 ┆e := name1; mask_numb┆
0x23000…23020 65 72 20 3a 3d 20 6e 75 6d 62 65 72 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 5f 73 ┆er := number1; mask_s┆
0x23020…23040 75 63 63 65 73 20 3a 3d 20 72 65 61 64 5f 61 6e 64 5f 73 65 74 5f 62 69 74 73 28 6f 70 65 72 61 ┆ucces := read_and_set_bits(opera┆
0x23040…23060 6e 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 20 2d 2c 20 6d 61 73 6b 5f 73 75 63 63 ┆nd); if -, mask_succ┆
0x23060…23080 65 73 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 6c 6f 6e 67 ┆es then error(long┆
0x23080…230a0 20 3c 3a 64 69 72 65 63 74 69 76 65 20 34 3a 3e 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 ┆ <:directive 4:>,line_no,element┆
0x230a0…230c0 5f 6e 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆_no) else ┆
0x230c0…230e0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 ┆ begin name_table┆
0x230e0…23100 28 6d 61 73 6b 5f 6e 75 6d 62 65 72 2c 30 29 20 3a 3d 20 6d 61 73 6b 5f 74 79 70 65 3b 0a 20 20 ┆(mask_number,0) := mask_type; ┆
0x23100…23120 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 6d 61 73 6b 5f 6e 75 6d 62 65 ┆ name_table(mask_numbe┆
0x23120…23140 72 2c 31 29 20 3a 3d 20 6d 61 73 6b 5f 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r,1) := mask_name; ┆
0x23140…23160 6e 61 6d 65 5f 74 61 62 6c 65 28 6d 61 73 6b 5f 6e 75 6d 62 65 72 2c 32 29 20 3a 3d 20 6f 70 65 ┆name_table(mask_number,2) := ope┆
0x23160…23180 72 61 6e 64 28 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c ┆rand(1); write(out,┆
0x23180…231a0 3c 3a 3c 31 30 3e 2a 2a 2a 4d 41 53 4b 20 30 3a 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆<:<10>***MASK 0::>, ┆
0x231a0…231c0 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 5f 6e 75 6d 62 65 72 2c 0a 20 20 20 20 20 20 20 20 ┆ mask_number, ┆
0x231c0…231e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 72 61 6e 64 28 31 29 20 73 68 69 66 74 28 ┆ operand(1) shift(┆
0x231e0…23200 2d 32 34 29 2c 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 ┆-24), ┆
0x23200…23220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 72 61 6e 64 28 31 29 20 65 78 74 72 61 ┆ operand(1) extra┆
0x23220…23240 63 74 20 32 34 2c 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 ┆ct 24, ┆
0x23240…23260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 63 74 61 6c 28 6f 70 65 72 61 6e 64 28 31 ┆ octal(operand(1┆
0x23260…23280 29 29 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆))); end; ┆
0x23280…232a0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ end; end else ┆
0x232a0…232c0 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6f 72 69 67 6f 3a 3e 20 74 68 65 6e 0a ┆ if name1 = long <:origo:> then ┆
0x232c0…232e0 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 65 78 74 31 ┆ begin if next1┆
0x232e0…23300 20 3c 3e 20 6e 75 6d 62 65 72 5f 63 6c 61 73 73 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ <> number_class then ┆
0x23300…23320 65 72 72 6f 72 28 6c 6f 6e 67 20 3c 3a 74 65 73 74 20 64 69 72 2e 20 34 3a 3e 2c 6c 69 6e 65 5f ┆error(long <:test dir. 4:>,line_┆
0x23320…23340 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 ┆no,element_no) else ┆
0x23340…23360 20 20 20 20 20 20 20 20 69 6e 73 74 72 5f 69 6e 64 65 78 20 3a 3d 20 6e 75 6d 62 65 72 31 3b 0a ┆ instr_index := number1; ┆
0x23360…23380 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ end else ┆
0x23380…233a0 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6c 69 73 74 3a 3e 20 74 68 65 6e 0a 20 ┆ if name1 = long <:list:> then ┆
0x233a0…233c0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 31 3b 0a 20 20 ┆ begin next1; ┆
0x233c0…233e0 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6f 6e 3a 3e 20 6f ┆ if name1 = long <:on:> o┆
0x233e0…23400 72 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 79 65 73 3a 3e 20 74 68 65 6e 0a 20 20 20 20 ┆r name1 = long <:yes:> then ┆
0x23400…23420 20 20 20 20 20 20 6c 69 73 74 20 3a 3d 20 74 72 75 65 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 ┆ list := true els┆
0x23420…23440 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6f 66 ┆e if name1 = long <:of┆
0x23440…23460 66 3a 3e 20 6f 72 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6e 6f 3a 3e 20 74 68 65 6e 0a ┆f:> or name1 = long <:no:> then ┆
0x23460…23480 20 20 20 20 20 20 20 20 20 20 6c 69 73 74 20 3a 3d 20 66 61 6c 73 65 0a 20 20 20 20 20 20 20 20 ┆ list := false ┆
0x23480…234a0 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 6c 6f 6e 67 20 3c 3a 74 65 ┆ else error(long <:te┆
0x234a0…234c0 73 74 20 64 69 72 20 35 3a 3e 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 ┆st dir 5:>,line_no,element_no) ┆
0x234c0…234e0 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 ┆ end else if name1┆
0x234e0…23500 20 3d 20 6c 6f 6e 67 20 3c 3a 70 61 67 65 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ = long <:page:> then ┆
0x23500…23520 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 6c 69 73 74 20 74 68 65 6e 0a 20 20 20 ┆begin if list then ┆
0x23520…23540 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 31 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆ outchar(out,12); ┆
0x23540…23560 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f ┆ end else if name1 = lo┆
0x23560…23580 6e 67 20 3c 3a 73 6b 69 70 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ng <:skip:> then begi┆
0x23580…235a0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 70 72 6f 63 65 64 75 72 65 20 73 6b 69 70 20 6c ┆n <* procedure skip l┆
0x235a0…235c0 6f 67 69 63 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 63 74 69 76 65 5f 73 6b 69 ┆ogic *> directive_ski┆
0x235c0…235e0 70 5f 75 6e 74 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 ┆p_until; end else ┆
0x235e0…23600 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6f 6e 6c 79 69 3a 3e 20 20 ┆ if name1 = long <:onlyi:> ┆
0x23600…23620 61 64 64 20 27 6e 27 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆add 'n' then begin ┆
0x23620…23640 20 20 20 20 20 20 20 20 20 3c 2a 20 70 72 6f 63 65 64 75 72 65 20 73 6b 69 70 20 69 66 20 6e 6f ┆ <* procedure skip if no┆
0x23640…23660 74 20 69 6e 20 6e 61 6d 65 64 20 6d 6f 64 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 64 69 ┆t in named mode *> di┆
0x23660…23680 72 65 63 74 69 76 65 5f 6f 6e 6c 79 69 6e 5f 6c 6f 67 69 63 28 74 72 75 65 29 3b 0a 20 20 20 20 ┆rective_onlyin_logic(true); ┆
0x23680…236a0 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 ┆ end else if name1┆
0x236a0…236c0 20 3d 20 6c 6f 6e 67 20 3c 3a 6e 6f 74 69 6e 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ = long <:notin:> then ┆
0x236c0…236e0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 73 6b 69 70 20 69 66 20 6e 61 ┆ begin <* skip if na┆
0x236e0…23700 6d 65 64 20 6d 6f 64 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 63 74 69 76 65 ┆med mode *> directive┆
0x00000…00033 Rc489kSubCatEnt {f00=0x001542, f01=0x0007f8, f02=0x000801, filename=»tsetdef «, entry_tail=0-4-0-1-1980-12-04T16:20-disc-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x002dca, f01=0x0007f8, f02=0x000801, filename=»jttestext «, entry_tail=0-4-0-1-1980-12-04T16:02-disc1-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x003b52, f01=0x0007f8, f02=0x000801, filename=»jttrans «, entry_tail=0-4-0-2-1980-12-04T12:29-disc1-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x0052cb, f01=0x0007f8, f02=0x000801, filename=»talgoltask «, entry_tail=0-4-0-25-1980-11-27T13:13-disc3-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x01eb9b, f01=0x0007f8, f02=0x000801, filename=»tsetentry «, entry_tail=0-4-0-9-1979-12-04T12:15-disc3-0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x027df3, f01=0x0007f8, f02=0x000801, filename=»prelinktext «, entry_tail=0-4-0-63-1980-12-02T12:42-disc3-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x066cc3, f01=0x0007f8, f02=0x000801, filename=»texecintf1 «, entry_tail=0-4-0-16-1980-02-26T10:16-disc3-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x0765c3, f01=0x0007f8, f02=0x000801, filename=»tcreatetask «, entry_tail=0-4-0-26-1980-11-17T15:11-disc3-0x0-0x0-0x0-0x0}
0x00198…001a0 ff ff ff ff ff ff ff ff ┆ ┆
0x001a0…001c0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
[…0x3…]
0x00220…00240 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 05 80 04 1b 80 00 01 7f ff fd 74 72 6f ┆ tro┆
0x00240…00260 00 00 00 00 00 00 00 00 00 80 00 0a 72 65 61 64 65 72 00 00 00 00 00 00 63 99 3e 00 00 00 00 00 ┆ reader c > ┆
0x00260…00280 00 00 00 00 00 00 00 1b 14 1b 80 00 01 7f ff fd 70 6f 73 00 00 00 00 00 00 00 00 00 00 00 18 64 ┆ pos d┆
0x00280…002a0 69 73 63 00 00 00 00 00 00 00 00 69 d5 88 80 b0 b0 00 00 00 00 29 24 00 0a ac ff ff ff 00 02 6c ┆isc i )$ l┆
0x002a0…002c0 00 02 75 77 72 6b 30 30 30 31 36 35 00 00 00 00 00 17 64 69 73 63 31 00 00 00 00 00 00 00 76 b3 ┆ uwrk000165 disc1 v ┆
0x002c0…002e0 29 00 00 00 00 00 00 00 00 00 00 2d ee ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆) - ┆
0x002e0…002fd ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x002fd…00300 0x000008
0x00300…00600 Data for tsetdef
0x00600…00900 Data for jttestext
0x00900…00f00 Data for jttrans
0x00f00…05a00 Data for talgoltask
0x05a00…07500 Data for tsetentry
0x07500…13200 Data for prelinktext
0x13200…16200 Data for texecintf1
0x16200…1b000 Data for tcreatetask
0x1b000…1b020 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 63 61 6c 63 75 6c 61 74 65 5f 68 61 73 68 5f ┆nteger procedure calculate_hash_┆
0x1b020…1b040 6b 65 79 28 6e 61 6d 65 29 3b 0a 20 20 20 20 76 61 6c 75 65 20 6e 61 6d 65 3b 20 6c 6f 6e 67 20 ┆key(name); value name; long ┆
0x1b040…1b060 6e 61 6d 65 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 63 61 6c 63 75 6c 61 74 65 5f 68 61 ┆name; begin calculate_ha┆
0x1b060…1b080 73 68 5f 6b 65 79 20 3a 3d 20 28 28 20 6e 61 6d 65 20 65 78 74 72 61 63 74 20 31 32 29 20 2b 0a ┆sh_key := (( name extract 12) + ┆
0x1b080…1b0a0 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 28 20 6e 61 6d 65 ┆ ( name┆
0x1b0a0…1b0c0 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 31 32 29 20 2b 0a 20 20 20 20 20 ┆ shift (-12) extract 12) + ┆
0x1b0c0…1b0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 20 6e 61 6d 65 20 73 68 69 66 ┆ ( name shif┆
0x1b0e0…1b100 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 31 32 29 20 2b 0a 20 20 20 20 20 20 20 20 20 20 ┆t (-24) extract 12) + ┆
0x1b100…1b120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 20 6e 61 6d 65 20 73 68 69 66 74 20 28 2d 33 ┆ ( name shift (-3┆
0x1b120…1b140 36 29 20 65 78 74 72 61 63 74 20 31 32 29 20 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆6) extract 12) + ┆
0x1b140…1b160 20 20 20 20 20 20 20 20 20 20 20 28 20 6e 61 6d 65 20 73 68 69 66 74 20 28 2d 34 30 29 20 65 78 ┆ ( name shift (-40) ex┆
0x1b160…1b180 74 72 61 63 74 20 38 29 20 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tract 8) + ┆
0x1b180…1b1a0 20 20 20 20 20 28 20 6e 61 6d 65 20 73 68 69 66 74 20 28 2d 33 32 29 20 65 78 74 72 61 63 74 20 ┆ ( name shift (-32) extract ┆
0x1b1a0…1b1c0 38 29 20 2b 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 28 ┆8) + (┆
0x1b1c0…1b1e0 20 6e 61 6d 65 20 73 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 31 32 29 20 0a 20 ┆ name shift (-24) extract 12) ┆
0x1b1e0…1b200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 ┆ ) ┆
0x1b200…1b220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 20 73 65 61 72 63 68 5f 74 ┆ mod search_t┆
0x1b220…1b240 61 62 6c 65 5f 6c 65 6e 67 74 68 3b 0a 20 20 20 20 65 6e 64 20 63 61 6c 63 75 6c 61 74 65 5f 68 ┆able_length; end calculate_h┆
0x1b240…1b260 61 73 68 5f 6b 65 79 3b 0a 0a 20 20 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 ┆ash_key; integer procedure ┆
0x1b260…1b280 69 6e 73 65 72 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 6e 61 6d 65 2c 74 79 70 ┆insert_name_table(index,name,typ┆
0x1b280…1b2a0 65 2c 72 65 66 66 29 3b 0a 20 20 20 20 76 61 6c 75 65 20 69 6e 64 65 78 2c 6e 61 6d 65 2c 74 79 ┆e,reff); value index,name,ty┆
0x1b2a0…1b2c0 70 65 2c 72 65 66 66 3b 20 6c 6f 6e 67 20 69 6e 64 65 78 2c 6e 61 6d 65 3b 20 20 20 20 20 20 20 ┆pe,reff; long index,name; ┆
0x1b2c0…1b2e0 20 20 20 0a 20 20 20 20 69 6e 74 65 67 65 72 20 74 79 70 65 2c 72 65 66 66 3b 0a 20 20 20 20 62 ┆ integer type,reff; b┆
0x1b2e0…1b300 65 67 69 6e 0a 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 31 29 20 3a 3d 20 ┆egin name_table(index,1) := ┆
0x1b300…1b320 6e 61 6d 65 3b 0a 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 30 29 20 3a 3d ┆name; name_table(index,0) :=┆
0x1b320…1b340 20 74 79 70 65 3b 0a 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 34 29 20 3a ┆ type; name_table(index,4) :┆
0x1b340…1b360 3d 20 72 65 66 66 3b 0a 20 20 20 20 65 6e 64 20 69 6e 73 65 72 74 5f 6e 61 6d 65 5f 74 61 62 6c ┆= reff; end insert_name_tabl┆
0x1b360…1b380 65 3b 0a 0a 0a 0a 20 20 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 6e 65 77 5f ┆e; integer procedure new_┆
0x1b380…1b3a0 69 6e 73 65 72 74 5f 6c 61 62 65 6c 5f 72 65 66 28 6e 61 6d 65 2c 69 6e 73 74 72 5f 69 6e 64 65 ┆insert_label_ref(name,instr_inde┆
0x1b3a0…1b3c0 78 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 3b 0a 0a 20 20 20 20 76 61 6c 75 ┆x,line_no,element_no); valu┆
0x1b3c0…1b3e0 65 20 6e 61 6d 65 2c 69 6e 73 74 72 5f 69 6e 64 65 78 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 ┆e name,instr_index,line_no,eleme┆
0x1b3e0…1b400 6e 74 5f 6e 6f 3b 0a 20 20 20 20 6c 6f 6e 67 20 6e 61 6d 65 3b 0a 20 20 20 20 69 6e 74 65 67 65 ┆nt_no; long name; intege┆
0x1b400…1b420 72 20 69 6e 73 74 72 5f 69 6e 64 65 78 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f ┆r instr_index,line_no,element_no┆
0x1b420…1b440 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 5f 72 5f 72 65 63 6f 72 64 20 3a 3d 20 61 6c ┆; begin l_r_record := al┆
0x1b440…1b460 6c 6f 63 61 74 65 28 6c 5f 72 5f 72 65 63 6f 72 64 5f 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 48 ┆locate(l_r_record_length); H┆
0x1b460…1b480 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 63 68 61 69 6e 20 3a 3d 20 6c 5f 72 5f ┆EAP.l_r_record.l_r_chain := l_r_┆
0x1b480…1b4a0 72 65 63 6f 72 64 5f 63 68 61 69 6e 5f 68 65 61 64 3b 0a 20 20 20 20 6c 5f 72 5f 72 65 63 6f 72 ┆record_chain_head; l_r_recor┆
0x1b4a0…1b4c0 64 5f 63 68 61 69 6e 5f 68 65 61 64 20 3a 3d 20 6c 5f 72 5f 72 65 63 6f 72 64 3b 0a 20 20 20 20 ┆d_chain_head := l_r_record; ┆
0x1b4c0…1b4e0 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 6e 61 6d 65 20 3a 3d 20 6e 61 6d 65 ┆HEAP.l_r_record.l_r_name := name┆
0x1b4e0…1b500 3b 0a 20 20 20 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 69 6e 64 65 78 20 ┆; HEAP.l_r_record.l_r_index ┆
0x1b500…1b520 3a 3d 20 69 6e 73 74 72 5f 69 6e 64 65 78 3b 0a 20 20 20 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 ┆:= instr_index; HEAP.l_r_rec┆
0x1b520…1b540 6f 72 64 2e 6c 5f 72 5f 6c 69 6e 65 5f 6e 6f 20 3a 3d 20 6c 69 6e 65 5f 6e 6f 3b 0a 20 20 20 20 ┆ord.l_r_line_no := line_no; ┆
0x1b540…1b560 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 65 6c 65 6d 65 6e 74 5f 6e 6f 20 3a ┆HEAP.l_r_record.l_r_element_no :┆
0x1b560…1b580 3d 20 65 6c 65 6d 65 6e 74 5f 6e 6f 3b 0a 20 20 20 20 6e 65 77 5f 69 6e 73 65 72 74 5f 6c 61 62 ┆= element_no; new_insert_lab┆
0x1b580…1b5a0 65 6c 5f 72 65 66 20 3a 3d 20 6c 5f 72 5f 72 65 63 6f 72 64 3b 0a 20 20 20 20 65 6e 64 20 6e 65 ┆el_ref := l_r_record; end ne┆
0x1b5a0…1b5c0 77 5f 69 6e 73 65 72 74 5f 6c 61 62 65 6c 5f 72 65 66 3b 0a 0a 0a 0a 20 20 20 20 69 6e 74 65 67 ┆w_insert_label_ref; integ┆
0x1b5c0…1b5e0 65 72 20 70 72 6f 63 65 64 75 72 65 20 6e 65 77 5f 69 6e 73 65 72 74 5f 6c 61 62 65 6c 5f 64 65 ┆er procedure new_insert_label_de┆
0x1b5e0…1b600 66 28 6e 61 6d 65 2c 69 6e 64 65 78 2c 69 6e 73 74 72 5f 69 6e 64 65 78 2c 6c 69 6e 65 5f 6e 6f ┆f(name,index,instr_index,line_no┆
0x1b600…1b620 2c 73 70 65 63 29 3b 0a 20 20 20 20 76 61 6c 75 65 20 6e 61 6d 65 2c 69 6e 64 65 78 2c 69 6e 73 ┆,spec); value name,index,ins┆
0x1b620…1b640 74 72 5f 69 6e 64 65 78 2c 73 70 65 63 2c 6c 69 6e 65 5f 6e 6f 3b 0a 20 20 20 20 6c 6f 6e 67 20 ┆tr_index,spec,line_no; long ┆
0x1b640…1b660 6e 61 6d 65 2c 69 6e 64 65 78 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 6e 73 74 72 5f 69 6e ┆name,index; integer instr_in┆
0x1b660…1b680 64 65 78 2c 73 70 65 63 2c 6c 69 6e 65 5f 6e 6f 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆dex,spec,line_no; begin ┆
0x1b680…1b6a0 6c 5f 64 5f 72 65 63 6f 72 64 20 3a 3d 20 61 6c 6c 6f 63 61 74 65 28 6c 5f 64 5f 72 65 63 6f 72 ┆l_d_record := allocate(l_d_recor┆
0x1b6a0…1b6c0 64 5f 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 69 6e 73 65 72 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 ┆d_length); insert_name_table┆
0x1b6c0…1b6e0 28 69 6e 64 65 78 2c 6e 61 6d 65 2c 6c 61 62 65 6c 5f 74 79 70 65 2c 6c 5f 64 5f 72 65 63 6f 72 ┆(index,name,label_type,l_d_recor┆
0x1b6e0…1b700 64 29 3b 0a 20 20 20 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c 5f 64 5f 63 68 61 69 ┆d); HEAP.l_d_record.l_d_chai┆
0x1b700…1b720 6e 20 3a 3d 20 69 6e 64 65 78 3b 20 3c 2a 20 69 6e 64 65 78 20 62 61 63 6b 20 74 6f 20 6e 61 6d ┆n := index; <* index back to nam┆
0x1b720…1b740 65 20 74 61 62 6c 65 20 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e table ┆
0x1b740…1b760 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 ┆ ┆
0x1b760…1b780 2a 3e 0a 20 20 20 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c 5f 64 5f 69 6e 64 65 78 ┆*> HEAP.l_d_record.l_d_index┆
0x1b780…1b7a0 20 3a 3d 20 69 6e 73 74 72 5f 69 6e 64 65 78 3b 0a 20 20 20 20 48 45 41 50 2e 6c 5f 64 5f 72 65 ┆ := instr_index; HEAP.l_d_re┆
0x1b7a0…1b7c0 63 6f 72 64 2e 6c 5f 64 5f 6c 69 6e 65 5f 6e 6f 20 3a 3d 20 6c 69 6e 65 5f 6e 6f 3b 0a 20 20 20 ┆cord.l_d_line_no := line_no; ┆
0x1b7c0…1b7e0 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c 5f 64 5f 73 70 65 63 20 3a 3d 20 73 70 65 ┆ HEAP.l_d_record.l_d_spec := spe┆
0x1b7e0…1b800 63 3b 0a 20 20 20 20 6e 65 77 5f 69 6e 73 65 72 74 5f 6c 61 62 65 6c 5f 64 65 66 20 3a 3d 20 69 ┆c; new_insert_label_def := i┆
0x1b800…1b820 6e 64 65 78 3b 0a 20 20 20 20 65 6e 64 20 6e 65 77 5f 69 6e 73 65 72 74 5f 6c 61 62 65 6c 5f 64 ┆ndex; end new_insert_label_d┆
0x1b820…1b840 65 66 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 73 6f 6c 76 65 5f 6c 61 62 65 6c ┆ef; procedure resolve_label┆
0x1b840…1b860 73 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 6f 70 5f 63 6f 64 65 ┆s; begin integer op_code┆
0x1b860…1b880 5f 69 6e 64 65 78 3b 0a 20 20 20 20 6c 6f 6e 67 20 6e 61 6d 65 5f 74 61 62 6c 65 5f 69 6e 64 65 ┆_index; long name_table_inde┆
0x1b880…1b8a0 78 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 77 72 5f 6e 61 6d 65 28 31 3a 32 29 3b 20 ┆x; long array wr_name(1:2); ┆
0x1b8a0…1b8c0 3c 2a 20 75 73 65 64 20 66 6f 72 20 77 72 69 74 69 6e 67 20 6f 66 20 61 20 6e 61 6d 65 20 2a 3e ┆<* used for writing of a name *>┆
0x1b8c0…1b8e0 0a 20 20 20 20 77 72 5f 6e 61 6d 65 28 32 29 3a 3d 30 3b 0a 0a 20 20 20 20 6c 5f 72 5f 72 65 63 ┆ wr_name(2):=0; l_r_rec┆
0x1b8e0…1b900 6f 72 64 20 3a 3d 20 6c 5f 72 5f 72 65 63 6f 72 64 5f 63 68 61 69 6e 5f 68 65 61 64 3b 0a 20 20 ┆ord := l_r_record_chain_head; ┆
0x1b900…1b920 20 20 20 77 68 69 6c 65 20 6c 5f 72 5f 72 65 63 6f 72 64 20 3e 2d 31 20 64 6f 0a 20 20 20 20 20 ┆ while l_r_record >-1 do ┆
0x1b920…1b940 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 69 66 20 2d 2c 20 6c 6f 6f 6b 75 70 5f 6e 61 6d 65 ┆ begin if -, lookup_name┆
0x1b940…1b960 28 6e 61 6d 65 5f 74 61 62 6c 65 2c 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f ┆(name_table,HEAP.l_r_record.l_r_┆
0x1b960…1b980 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 5f 74 ┆name, name_t┆
0x1b980…1b9a0 61 62 6c 65 5f 69 6e 64 65 78 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆able_index) then begin ┆
0x1b9a0…1b9c0 20 20 20 20 20 20 20 20 20 69 6e 73 74 72 5f 69 6e 64 65 78 20 3a 3d 20 48 45 41 50 2e 6c 5f 72 ┆ instr_index := HEAP.l_r┆
0x1b9c0…1b9e0 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 20 65 72 72 6f ┆_record.l_r_index; erro┆
0x1b9e0…1ba00 72 28 75 6e 64 65 63 5f 6c 61 62 65 6c 2c 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f ┆r(undec_label,HEAP.l_r_record.l_┆
0x1ba00…1ba20 72 5f 6c 69 6e 65 5f 6e 6f 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r_line_no, ┆
0x1ba20…1ba40 20 20 20 20 20 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 65 6c 65 6d 65 6e ┆ HEAP.l_r_record.l_r_elemen┆
0x1ba40…1ba60 74 5f 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 ┆t_no); end else┆
0x1ba60…1ba80 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 6c 5f 64 5f 72 65 63 ┆ begin l_d_rec┆
0x1ba80…1baa0 6f 72 64 20 3a 3d 20 6e 61 6d 65 5f 74 61 62 6c 65 28 6e 61 6d 65 5f 74 61 62 6c 65 5f 69 6e 64 ┆ord := name_table(name_table_ind┆
0x1baa0…1bac0 65 78 2c 34 29 3b 0a 20 20 20 20 20 20 20 20 20 6f 70 5f 63 6f 64 65 5f 69 6e 64 65 78 20 3a 3d ┆ex,4); op_code_index :=┆
0x1bac0…1bae0 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 69 6e 64 65 78 3b 0a 20 20 20 20 ┆ HEAP.l_r_record.l_r_index; ┆
0x1bae0…1bb00 20 20 20 20 20 6f 70 5f 63 6f 64 65 28 6f 70 63 6f 64 65 5f 69 6e 64 65 78 29 20 3a 3d 20 6d 61 ┆ op_code(opcode_index) := ma┆
0x1bb00…1bb20 73 6b 5f 69 6e 28 6f 70 5f 63 6f 64 65 28 6f 70 5f 63 6f 64 65 5f 69 6e 64 65 78 29 2c 0a 20 20 ┆sk_in(op_code(op_code_index), ┆
0x1bb20…1bb40 20 20 20 20 20 20 20 20 20 65 78 74 65 6e 64 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e ┆ extend HEAP.l_d_record.┆
0x1bb40…1bb60 6c 5f 64 5f 69 6e 64 65 78 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 64 64 72 73 5f 6d 61 73 6b ┆l_d_index, addrs_mask┆
0x1bb60…1bb80 29 3b 0a 20 20 20 20 20 20 20 20 20 0a 0a 20 20 20 20 20 20 20 20 20 69 66 20 74 65 73 74 5f 6c ┆); if test_l┆
0x1bb80…1bba0 61 62 65 6c 5f 62 69 74 20 6f 72 20 74 65 73 74 5f 6c 61 62 65 6c 5f 72 65 66 20 74 68 65 6e 0a ┆abel_bit or test_label_ref then ┆
0x1bba0…1bbc0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 5f 6e ┆ begin wr_n┆
0x1bbc0…1bbe0 61 6d 65 28 31 29 20 3a 3d 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c 5f 64 5f 6e 61 ┆ame(1) := HEAP.l_d_record.l_d_na┆
0x1bbe0…1bc00 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c ┆me; write(out,"nl",1,┆
0x1bc00…1bc20 22 73 70 22 2c 35 2c 3c 3c 7a 64 64 64 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆"sp",5,<<zddd>, ┆
0x1bc20…1bc40 20 6f 63 74 61 6c 28 65 78 74 65 6e 64 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f ┆ octal(extend HEAP.l_r_record.l_┆
0x1bc40…1bc60 72 5f 69 6e 64 65 78 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 6c 61 ┆r_index), <: la┆
0x1bc60…1bc80 62 65 6c 20 72 65 66 66 20 74 6f 3a 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆bel reff to: :>, ┆
0x1bc80…1bca0 20 20 6f 63 74 61 6c 28 65 78 74 65 6e 64 20 48 45 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c ┆ octal(extend HEAP.l_d_record.l┆
0x1bca0…1bcc0 5f 64 5f 69 6e 64 65 78 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 6e ┆_d_index), <: n┆
0x1bcc0…1bce0 61 6d 65 3a 20 3a 3e 2c 77 72 5f 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ame: :>,wr_name); end┆
0x1bce0…1bd00 3b 0a 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 69 66 20 74 65 73 74 5f 6c 61 62 ┆; if test_lab┆
0x1bd00…1bd20 65 6c 5f 62 69 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆el_bit then begin ┆
0x1bd20…1bd40 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c 22 73 70 22 2c 31 31 ┆ write(out,"nl",1,"sp",11┆
0x1bd40…1bd60 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 5f 66 6f 72 6d 61 74 65 64 28 6f 70 5f ┆); print_formated(op_┆
0x1bd60…1bd80 63 6f 64 65 28 6f 70 5f 63 6f 64 65 5f 69 6e 64 65 78 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆code(op_code_index)); ┆
0x1bd80…1bda0 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 6c 5f 72 5f ┆ end; end; l_r_┆
0x1bda0…1bdc0 72 65 63 6f 72 64 20 3a 3d 20 48 45 41 50 2e 6c 5f 72 5f 72 65 63 6f 72 64 2e 6c 5f 72 5f 63 68 ┆record := HEAP.l_r_record.l_r_ch┆
0x1bdc0…1bde0 61 69 6e 3b 0a 20 20 20 20 20 20 20 65 6e 64 20 73 63 61 6e 20 6c 6f 6f 70 3b 0a 20 20 20 20 65 ┆ain; end scan loop; e┆
0x1bde0…1be00 6e 64 20 72 65 73 6f 6c 76 65 5f 6c 61 62 65 6c 73 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 ┆nd resolve_labels; procedur┆
0x1be00…1be20 65 20 6c 61 62 65 6c 5f 6c 69 73 74 28 6f 6e 6c 79 5f 73 70 65 63 5f 77 61 6e 74 65 64 29 3b 0a ┆e label_list(only_spec_wanted); ┆
0x1be20…1be40 20 20 20 20 76 61 6c 75 65 20 6f 6e 6c 79 5f 73 70 65 63 5f 77 61 6e 74 65 64 3b 20 62 6f 6f 6c ┆ value only_spec_wanted; bool┆
0x1be40…1be60 65 61 6e 20 6f 6e 6c 79 5f 73 70 65 63 5f 77 61 6e 74 65 64 3b 0a 20 20 20 20 62 65 67 69 6e 0a ┆ean only_spec_wanted; begin ┆
0x1be60…1be80 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 77 72 5f 6e 61 6d 65 28 31 3a 32 29 3b 0a 20 20 20 ┆ long array wr_name(1:2); ┆
0x1be80…1bea0 20 69 6e 74 65 67 65 72 20 69 6e 64 65 78 3b 0a 20 20 20 20 77 72 5f 6e 61 6d 65 28 32 29 20 3a ┆ integer index; wr_name(2) :┆
0x1bea0…1bec0 3d 20 30 3b 0a 20 20 20 20 0a 20 20 20 20 66 6f 72 20 69 6e 64 65 78 20 3a 3d 20 31 20 73 74 65 ┆= 0; for index := 1 ste┆
0x1bec0…1bee0 70 20 31 20 75 6e 74 69 6c 20 6e 61 6d 65 5f 74 61 62 6c 65 5f 6c 65 6e 67 74 68 20 64 6f 0a 20 ┆p 1 until name_table_length do ┆
0x1bee0…1bf00 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 6e 61 6d 65 5f 74 61 62 6c 65 28 69 ┆ begin if name_table(i┆
0x1bf00…1bf20 6e 64 65 78 2c 30 29 20 3d 20 6c 61 62 65 6c 5f 74 79 70 65 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ndex,0) = label_type then ┆
0x1bf20…1bf40 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6c 5f 64 5f 72 65 63 6f 72 64 20 3a 3d 20 6e 61 ┆ begin l_d_record := na┆
0x1bf40…1bf60 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 34 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 48 45 ┆me_table(index,4); if HE┆
0x1bf60…1bf80 41 50 2e 6c 5f 64 5f 72 65 63 6f 72 64 2e 6c 5f 64 5f 73 70 65 63 20 3e 20 30 20 6f 72 0a 20 20 ┆AP.l_d_record.l_d_spec > 0 or ┆
0x1bf80…1bfa0 20 20 20 20 20 20 20 20 20 2d 2c 20 6f 6e 6c 79 5f 73 70 65 63 5f 77 61 6e 74 65 64 20 74 68 65 ┆ -, only_spec_wanted the┆
0x1bfa0…1bfc0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 ┆n begin wr┆
0x1bfc0…1bfe0 5f 6e 61 6d 65 28 31 29 20 3a 3d 20 6e 61 6d 65 5f 74 61 62 6c 65 28 69 6e 64 65 78 2c 31 29 3b ┆_name(1) := name_table(index,1);┆
0x1bfe0…1c000 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 22 73 70 22 2c 31 35 20 2d 20 ┆ write(out,"sp",15 - ┆
0x1c000…22700 […elided…]
0x22700…22720 20 3a 3e 2c 6c 69 6e 65 5f 6e 6f 2c 69 66 20 63 6c 61 73 73 32 20 3c 3e 20 63 6f 6c 6f 6e 5f 63 ┆ :>,line_no,if class2 <> colon_c┆
0x22720…22740 6c 61 73 73 20 74 68 65 6e 20 65 6c 65 6d 65 6e 74 5f 6e 6f 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆lass then element_no else ┆
0x22740…22760 65 6c 65 6d 65 6e 74 5f 6e 6f 20 2d 31 29 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆element_no -1) else ┆
0x22760…22780 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a ┆begin if name1 = long <:┆
0x22780…227a0 6e 61 6d 65 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆name:> then begin ┆
0x227a0…227c0 20 20 20 20 6e 65 78 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6c 61 73 73 31 20 3c ┆ next1; if class1 <┆
0x227c0…227e0 3e 20 39 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 69 66 20 63 6c 61 73 ┆> 9 then error(if clas┆
0x227e0…22800 73 31 20 3c 3e 20 36 20 74 68 65 6e 20 6c 6f 6e 67 20 3c 3a 74 65 73 74 20 64 69 72 20 32 2e 3a ┆s1 <> 6 then long <:test dir 2.:┆
0x22800…22820 3e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 70 6c 75 73 5f 6e 61 6d 65 5f 64 65 63 2c 6c ┆> else plus_name_dec,l┆
0x22820…22840 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 ┆ine_no,element_no) els┆
0x22840…22860 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 ┆e begin na┆
0x22860…22880 6d 65 5f 74 61 62 6c 65 28 6e 75 6d 62 65 72 31 2c 31 29 20 3a 3d 20 6e 61 6d 65 31 3b 0a 20 20 ┆me_table(number1,1) := name1; ┆
0x22880…228a0 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 3a 3d 30 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ index:=0; ┆
0x228a0…228c0 20 66 6f 72 20 63 6c 61 73 73 32 20 3a 3d 20 6e 65 78 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ for class2 := next2 ┆
0x228c0…228e0 20 77 68 69 6c 65 20 63 6c 61 73 73 32 20 3d 20 63 6f 6d 6d 61 5f 63 6c 61 73 73 20 61 6e 64 20 ┆ while class2 = comma_class and ┆
0x228e0…22900 69 6e 64 65 78 20 3c 20 35 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆index < 5 do begin ┆
0x22900…22920 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ next2; ┆
0x22920…22940 20 20 69 66 20 63 6c 61 73 73 32 20 3d 20 6e 75 6d 62 65 72 5f 63 6c 61 73 73 20 74 68 65 6e 0a ┆ if class2 = number_class then ┆
0x22940…22960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 6e 75 6d 62 65 72 31 ┆ name_table(number1┆
0x22960…22980 2c 69 6e 64 65 78 29 20 3a 3d 20 6e 75 6d 62 65 72 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,index) := number2 ┆
0x22980…229a0 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6c 61 73 73 32 20 3d 20 ┆ else if class2 = ┆
0x229a0…229c0 36 20 3c 2a 20 64 65 66 69 6e 65 64 20 6e 61 6d 65 20 2a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆6 <* defined name *> then ┆
0x229c0…229e0 20 20 20 20 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 6e 75 6d 62 65 72 31 2c 69 6e 64 65 78 ┆ name_table(number1,index┆
0x229e0…22a00 29 20 3a 3d 20 6e 75 6d 62 65 72 5f 32 20 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 ┆) := number_2 ┆
0x22a00…22a20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ else begin┆
0x22a20…22a40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 6c 6f 6e 67 20 3c 3a 74 65 ┆ error(long <:te┆
0x22a40…22a60 73 74 20 64 69 72 2e 20 33 3a 3e 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 3b ┆st dir. 3:>,line_no,element_no);┆
0x22a60…22a80 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 3a 3d 31 30 30 3b 0a 20 20 20 ┆ index:=100; ┆
0x22a80…22aa0 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ end; if┆
0x22aa0…22ac0 20 69 6e 64 65 78 20 3d 20 30 20 74 68 65 6e 20 69 6e 64 65 78 20 3a 3d 32 20 65 6c 73 65 0a 20 ┆ index = 0 then index :=2 else ┆
0x22ac0…22ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6e 64 65 78 3c 31 30 30 20 74 68 65 6e 20 69 ┆ if index<100 then i┆
0x22ae0…22b00 6e 64 65 78 3a 3d 69 6e 64 65 78 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ndex:=index+1; end; ┆
0x22b00…22b20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a ┆ end; end else ┆
0x22b20…22b40 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 ┆ if name1 = long┆
0x22b40…22b60 20 3c 3a 63 6f 6e 73 74 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ <:const:> then begin ┆
0x22b60…22b80 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6c ┆ next1; if cl┆
0x22b80…22ba0 61 73 73 31 20 3c 3e 20 39 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 ┆ass1 <> 9 then error┆
0x22ba0…22bc0 28 69 66 20 63 6c 61 73 73 31 20 3c 3e 20 36 20 74 68 65 6e 20 64 69 72 65 63 74 69 76 65 20 65 ┆(if class1 <> 6 then directive e┆
0x22bc0…22be0 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6c 75 73 5f 6e 61 6d 65 ┆lse plus_name┆
0x22be0…22c00 5f 64 65 63 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 20 20 20 20 20 20 ┆_dec,line_no,element_no) ┆
0x22c00…22c20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ else begin ┆
0x22c20…22c40 20 20 20 20 20 20 20 20 20 6e 65 78 74 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ next2; if ┆
0x22c40…22c60 63 6c 61 73 73 32 20 3d 20 63 6f 6d 6d 61 5f 63 6c 61 73 73 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆class2 = comma_class then ┆
0x22c60…22c80 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 ┆ begin ne┆
0x22c80…22ca0 78 74 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6c 61 73 73 32 20 3d 20 ┆xt2; if class2 = ┆
0x22ca0…22cc0 6e 75 6d 62 65 72 5f 63 6c 61 73 73 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆number_class then ┆
0x22cc0…22ce0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 5f 69 6e ┆ begin new_in┆
0x22ce0…22d00 73 65 72 74 5f 6c 61 62 65 6c 5f 64 65 66 28 6e 61 6d 65 31 2c 6e 75 6d 62 65 72 31 2c 0a 20 20 ┆sert_label_def(name1,number1, ┆
0x22d00…22d20 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 ┆ ┆
0x22d20…22d40 20 20 20 20 6e 75 6d 62 65 72 32 20 65 78 74 72 61 63 74 20 31 32 2c 6c 69 6e 65 5f 6e 6f 2c 30 ┆ number2 extract 12,line_no,0┆
0x22d40…22d60 29 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 ┆);; end ┆
0x22d60…22d80 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 65 72 72 6f 72 28 64 69 72 65 63 74 69 76 65 2c 6c 69 ┆ else error(directive,li┆
0x22d80…22da0 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ne_no,element_no); ┆
0x22da0…22dc0 20 20 65 6e 64 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 65 72 72 6f 72 28 ┆ end else error(┆
0x22dc0…22de0 64 69 72 65 63 74 69 76 65 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 3b 0a 20 ┆directive,line_no,element_no); ┆
0x22de0…22e00 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 ┆ end; end e┆
0x22e00…22e20 6c 73 65 0a 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c ┆lse if name1 = l┆
0x22e20…22e40 6f 6e 67 20 3c 3a 6d 61 73 6b 3a 3e 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ong <:mask:> then begin┆
0x22e40…22e60 0a 20 20 20 20 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 6f 70 65 72 61 6e 64 28 31 3a 31 29 ┆ long array operand(1:1)┆
0x22e60…22e80 3b 20 3c 2a 20 6f 6e 6c 79 20 6f 6e 65 20 77 6f 72 64 20 75 73 65 64 20 2a 3e 0a 20 20 20 20 20 ┆; <* only one word used *> ┆
0x22e80…22ea0 20 20 20 62 6f 6f 6c 65 61 6e 20 6d 61 73 6b 5f 73 75 63 63 65 73 3b 0a 20 20 20 20 20 20 20 20 ┆ boolean mask_succes; ┆
0x22ea0…22ec0 6c 6f 6e 67 20 6d 61 73 6b 5f 6e 61 6d 65 2c 6d 61 73 6b 5f 6e 75 6d 62 65 72 3b 0a 20 20 20 20 ┆long mask_name,mask_number; ┆
0x22ec0…22ee0 20 20 20 20 6f 70 65 72 61 6e 64 28 31 29 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆ operand(1) := 0; i┆
0x22ee0…22f00 66 20 6e 65 78 74 31 20 3c 3e 20 75 6e 6b 6e 6f 77 6e 5f 6e 61 6d 65 5f 63 6c 61 73 73 20 74 68 ┆f next1 <> unknown_name_class th┆
0x22f00…22f20 65 6e 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 6c 6f 6e 67 20 3c 3a 20 64 69 72 65 63 ┆en error(long <: direc┆
0x22f20…22f40 74 69 76 65 20 32 3a 3e 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 20 20 ┆tive 2:>,line_no,element_no) ┆
0x22f40…22f60 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 65 78 74 32 20 3c ┆ else if next2 <┆
0x22f60…22f80 3e 20 63 6f 6d 6d 61 5f 63 6c 61 73 73 20 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 65 72 ┆> comma_class then er┆
0x22f80…22fa0 72 6f 72 28 6c 6f 6e 67 20 3c 3a 64 69 72 65 63 74 69 76 65 20 33 3a 3e 2c 6c 69 6e 65 5f 6e 6f ┆ror(long <:directive 3:>,line_no┆
0x22fa0…22fc0 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆,element_no) else ┆
0x22fc0…22fe0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 5f 6e 61 6d ┆ begin mask_nam┆
0x22fe0…23000 65 20 3a 3d 20 6e 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 5f 6e 75 6d 62 ┆e := name1; mask_numb┆
0x23000…23020 65 72 20 3a 3d 20 6e 75 6d 62 65 72 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 5f 73 ┆er := number1; mask_s┆
0x23020…23040 75 63 63 65 73 20 3a 3d 20 72 65 61 64 5f 61 6e 64 5f 73 65 74 5f 62 69 74 73 28 6f 70 65 72 61 ┆ucces := read_and_set_bits(opera┆
0x23040…23060 6e 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 20 2d 2c 20 6d 61 73 6b 5f 73 75 63 63 ┆nd); if -, mask_succ┆
0x23060…23080 65 73 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 6c 6f 6e 67 ┆es then error(long┆
0x23080…230a0 20 3c 3a 64 69 72 65 63 74 69 76 65 20 34 3a 3e 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 ┆ <:directive 4:>,line_no,element┆
0x230a0…230c0 5f 6e 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆_no) else ┆
0x230c0…230e0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 ┆ begin name_table┆
0x230e0…23100 28 6d 61 73 6b 5f 6e 75 6d 62 65 72 2c 30 29 20 3a 3d 20 6d 61 73 6b 5f 74 79 70 65 3b 0a 20 20 ┆(mask_number,0) := mask_type; ┆
0x23100…23120 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 5f 74 61 62 6c 65 28 6d 61 73 6b 5f 6e 75 6d 62 65 ┆ name_table(mask_numbe┆
0x23120…23140 72 2c 31 29 20 3a 3d 20 6d 61 73 6b 5f 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r,1) := mask_name; ┆
0x23140…23160 6e 61 6d 65 5f 74 61 62 6c 65 28 6d 61 73 6b 5f 6e 75 6d 62 65 72 2c 32 29 20 3a 3d 20 6f 70 65 ┆name_table(mask_number,2) := ope┆
0x23160…23180 72 61 6e 64 28 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c ┆rand(1); write(out,┆
0x23180…231a0 3c 3a 3c 31 30 3e 2a 2a 2a 4d 41 53 4b 20 30 3a 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆<:<10>***MASK 0::>, ┆
0x231a0…231c0 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 5f 6e 75 6d 62 65 72 2c 0a 20 20 20 20 20 20 20 20 ┆ mask_number, ┆
0x231c0…231e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 72 61 6e 64 28 31 29 20 73 68 69 66 74 28 ┆ operand(1) shift(┆
0x231e0…23200 2d 32 34 29 2c 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 ┆-24), ┆
0x23200…23220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 72 61 6e 64 28 31 29 20 65 78 74 72 61 ┆ operand(1) extra┆
0x23220…23240 63 74 20 32 34 2c 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 ┆ct 24, ┆
0x23240…23260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 63 74 61 6c 28 6f 70 65 72 61 6e 64 28 31 ┆ octal(operand(1┆
0x23260…23280 29 29 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆))); end; ┆
0x23280…232a0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ end; end else ┆
0x232a0…232c0 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6f 72 69 67 6f 3a 3e 20 74 68 65 6e 0a ┆ if name1 = long <:origo:> then ┆
0x232c0…232e0 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 65 78 74 31 ┆ begin if next1┆
0x232e0…23300 20 3c 3e 20 6e 75 6d 62 65 72 5f 63 6c 61 73 73 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ <> number_class then ┆
0x23300…23320 65 72 72 6f 72 28 6c 6f 6e 67 20 3c 3a 74 65 73 74 20 64 69 72 2e 20 34 3a 3e 2c 6c 69 6e 65 5f ┆error(long <:test dir. 4:>,line_┆
0x23320…23340 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 ┆no,element_no) else ┆
0x23340…23360 20 20 20 20 20 20 20 20 69 6e 73 74 72 5f 69 6e 64 65 78 20 3a 3d 20 6e 75 6d 62 65 72 31 3b 0a ┆ instr_index := number1; ┆
0x23360…23380 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ end else ┆
0x23380…233a0 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6c 69 73 74 3a 3e 20 74 68 65 6e 0a 20 ┆ if name1 = long <:list:> then ┆
0x233a0…233c0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 31 3b 0a 20 20 ┆ begin next1; ┆
0x233c0…233e0 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6f 6e 3a 3e 20 6f ┆ if name1 = long <:on:> o┆
0x233e0…23400 72 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 79 65 73 3a 3e 20 74 68 65 6e 0a 20 20 20 20 ┆r name1 = long <:yes:> then ┆
0x23400…23420 20 20 20 20 20 20 6c 69 73 74 20 3a 3d 20 74 72 75 65 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 ┆ list := true els┆
0x23420…23440 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6f 66 ┆e if name1 = long <:of┆
0x23440…23460 66 3a 3e 20 6f 72 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6e 6f 3a 3e 20 74 68 65 6e 0a ┆f:> or name1 = long <:no:> then ┆
0x23460…23480 20 20 20 20 20 20 20 20 20 20 6c 69 73 74 20 3a 3d 20 66 61 6c 73 65 0a 20 20 20 20 20 20 20 20 ┆ list := false ┆
0x23480…234a0 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 6c 6f 6e 67 20 3c 3a 74 65 ┆ else error(long <:te┆
0x234a0…234c0 73 74 20 64 69 72 20 35 3a 3e 2c 6c 69 6e 65 5f 6e 6f 2c 65 6c 65 6d 65 6e 74 5f 6e 6f 29 0a 20 ┆st dir 5:>,line_no,element_no) ┆
0x234c0…234e0 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 ┆ end else if name1┆
0x234e0…23500 20 3d 20 6c 6f 6e 67 20 3c 3a 70 61 67 65 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ = long <:page:> then ┆
0x23500…23520 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 6c 69 73 74 20 74 68 65 6e 0a 20 20 20 ┆begin if list then ┆
0x23520…23540 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 31 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆ outchar(out,12); ┆
0x23540…23560 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f ┆ end else if name1 = lo┆
0x23560…23580 6e 67 20 3c 3a 73 6b 69 70 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ng <:skip:> then begi┆
0x23580…235a0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 70 72 6f 63 65 64 75 72 65 20 73 6b 69 70 20 6c ┆n <* procedure skip l┆
0x235a0…235c0 6f 67 69 63 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 63 74 69 76 65 5f 73 6b 69 ┆ogic *> directive_ski┆
0x235c0…235e0 70 5f 75 6e 74 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 ┆p_until; end else ┆
0x235e0…23600 20 20 20 20 20 69 66 20 6e 61 6d 65 31 20 3d 20 6c 6f 6e 67 20 3c 3a 6f 6e 6c 79 69 3a 3e 20 20 ┆ if name1 = long <:onlyi:> ┆
0x23600…23620 61 64 64 20 27 6e 27 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆add 'n' then begin ┆
0x23620…23640 20 20 20 20 20 20 20 20 20 3c 2a 20 70 72 6f 63 65 64 75 72 65 20 73 6b 69 70 20 69 66 20 6e 6f ┆ <* procedure skip if no┆
0x23640…23660 74 20 69 6e 20 6e 61 6d 65 64 20 6d 6f 64 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 64 69 ┆t in named mode *> di┆
0x23660…23680 72 65 63 74 69 76 65 5f 6f 6e 6c 79 69 6e 5f 6c 6f 67 69 63 28 74 72 75 65 29 3b 0a 20 20 20 20 ┆rective_onlyin_logic(true); ┆
0x23680…236a0 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 6d 65 31 ┆ end else if name1┆
0x236a0…236c0 20 3d 20 6c 6f 6e 67 20 3c 3a 6e 6f 74 69 6e 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ = long <:notin:> then ┆
0x236c0…236e0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 73 6b 69 70 20 69 66 20 6e 61 ┆ begin <* skip if na┆
0x236e0…23700 6d 65 64 20 6d 6f 64 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 63 74 69 76 65 ┆med mode *> directive┆