DataMuseum.dk

Presents historical artifacts from the history of:

DANOSI

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DANOSI

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦7f465ecbd⟧ TextFile

    Length: 622 (0x26e)
    Types: TextFile
    Names: »ARRAYTEX.PAS«

Derivation

└─⟦037c0ce35⟧ Bits:30010524 DVBS1.SW2114.src.2.6-2 RTP compiler source SW2104+SW2114 Disk#2 30/1-92 HHA
    └─⟦this⟧ »RTP\ARRAYTEX.PAS« 
└─⟦828f0d3dd⟧ Bits:30010527 DVBS1.SW2114.src.2.6-5 RTP Compiler Source SW2104+SW2114 Disk 2 92.02.03 HEJ HHA
    └─⟦this⟧ »RTP\ARRAYTEX.PAS« 
└─⟦891417be1⟧ Bits:30010519 DVBS1.SW2114.src.2-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
    └─⟦this⟧ »RTP\ARRAYTEX.PAS« 
└─⟦a2bcc95d7⟧ Bits:30010511 DVBS1.SW2114.src.2.14-2 SW2114 REAL #2/4 TIME PASCAL SOURCE REL 2.14 92.09.01
    └─⟦this⟧ »RTP\ARRAYTEX.PAS«

TextFile

 if text_array then\r
 begin\r
  LongType_size := Type_Size;\r
  LongLower := Lower;\r
  LongUpper := Upper;\r
\r
push_struc_value(wordsize+dope_size_subrange+dope_size_array,dope_symbol,def_type_symbol,true);\r
sca_fill(wordsize, ptr_sca_max_string(@Longtype_size));\r
sca_fill(wordsize, ptr_sca_max_string(@Longlower));\r
sca_fill(wordsize, ptr_sca_max_string(@Longupper));\r
sca_fill(wordsize, ptr_sca_max_string(@Longtype_size));\r
sca_fill(wordsize, ptr_sca_max_string(@Longlower));\r
sca_fill(wordsize, ptr_sca_max_string(@Longupper));\r
Longelement_size:= 1;\r
sca_fill(wordsize, ptr_sca_max_string(@Longelement_size));\r
 end;\r
«eof»