DataMuseum.dk

Presents historical artifacts from the history of:

RC3500

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

See our Wiki for more about RC3500

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦a20f963b0⟧ TextFileVerbose

    Length: 9216 (0x2400)
    Types: TextFileVerbose
    Names: »xcompass6«

Derivation

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »xcompass6«

TextFileVerbose

; edit commands to platonpass6
; introduce the ais instructions


; page 2


l./maxnameix/,




; page 30
l./procedure initialization/,






l./'rechw'/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'rec0', #h060, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 0, 0, false );
initcodes( 'rec1', #h001, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 1, 1, false );
initcodes( 'rec2', #h002, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 2, 2, false );
initcodes( 'rec3', #h003, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 3, 3, false );
initcodes( 'rec4', #h004, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 4, 4, false );
initcodes( 'rec5', #h005, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 5, 5, false );
initcodes( 'rec6', #h006, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 6, 6, false );
initcodes( 'rec7', #h007, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 7, 7, false );
initcodes( 'rec8', #h008, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 8, 8, false );
initcodes( 'rec9', #h009, 0, 0, 0, addr_neutral, 60);
init_interval( 1,9, 9, false );
initcodes( 'rec10', #h00a, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 10, 10, false );
initcodes( 'rec11', #h00b, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 11, 11, false );
initcodes( 'rec12', #h00c, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 12, 12, false );
initcodes( 'rec13', #h00d, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 13, 13, false );
initcodes( 'rec14', #h00e, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 14, 14, false );
initcodes( 'rec15', #h00f, 0, 0, 0, addr_neutral, 60);
init_interval( 1, 15, 15, false );
initcodes( 'rechws', #h0c8, 1, 0, 0, addr_neutral, 60);
init_interval( 1, 16, 255, true );
 
/,




l./reald/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'realds', #h0cf, 1, 0, 0, addr_neutral, 79);
init_interval( 1, 0, 255, true );
/, l./reagd/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'reagds', #h0ce, 1, 0, 0, addr_neutral, 79);
init_interval( 1, 0, 255, true );
/,



l -600, 
l./end;(*init interval*)/, 
l1, i/

procedure code_node_init;
(* split the initialization code, this is done
because of a pascal-pass2 constraint, max produced
code per routine can not exceed 6000 words !!! *)
begin

/, l1, d./generate_statistics:=false/,
l./initcodes('revpw'/, i/

end; (* code node init *)

/, l1, s1, d./end;(*init interval/,
l./initcodes('jmphc/, d./'uadhw'/,  i/

(* initialize first part of the code nodes *)

code_node_init;

/,



l./revlb/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'revlbs', #h08b, 1, 0, 0, addr_neutral, 77);
init_interval( 1, 0, 255, true );
/, l./revlw/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'revlws', #h0ab, 1, 0, 0, addr_neutral, 77);
init_interval( 1, 0, 255, true );
/, l./revld/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'revlds', #h0eb, 1, 0, 0, addr_neutral, 112);
init_interval( 1, 0, 255, true );
/, l./revlf/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'revlfs', #h0cb, 1, 1, 0, addr_neutral, 174);
init_interval( 1, 0, 255, true );
/, 

l./revgb/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'revgbs', #h089, 1, 0, 0, addr_neutral, 77);
init_interval( 1, 0, 255, true );
/, l./revgw/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'revgws', #h0a9, 1, 0, 0, addr_neutral, 77);
init_interval( 1, 0, 255, true );
/, l./revgd/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'revgds', #h0e9, 1, 0, 0, addr_neutral, 112);
init_interval( 1, 0, 255, true );
/, l./revgf/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'revgfs', #h0c9, 1, 1, 0, addr_neutral, 174);
init_interval( 1, 0, 255, true );
/, 

l./'revsb'/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'rvsb0', #h081, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 0, 0, false );
initcodes( 'rvsb2', #h083, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 2, 2, false );
initcodes( 'rvsb4', #h085, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 4, 4, false );
initcodes( 'rvsb6', #h087, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 6, 6, false );
initcodes( 'rvsb12', #h08d, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 12, 12, true );
/,

l./revsw/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'rvsw0', #h0a1, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 0, 0, false );
initcodes( 'rvsw2', #h0a3, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 2, 2, false );
initcodes( 'rvsw4', #h0a5, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 4, 4, false );
initcodes( 'rvsw6', #h0a7, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 6, 6, false );
initcodes( 'rvsw12', #h0ad, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 12, 12, true );
/,
l./revsd/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'rvsd0', #h0e1, 0, 0, 0, addr_neutral, 144);
init_interval( 1, 0, 0, false );
initcodes( 'rvsd2', #h0e3, 0, 0, 0, addr_neutral, 144);
init_interval( 1, 2, 2, false );
initcodes( 'rvsd4', #h0e5, 0, 0, 0, addr_neutral, 144);
init_interval( 1, 4, 4, false );
initcodes( 'rvsd6', #h0e7, 0, 0, 0, addr_neutral, 144);
init_interval( 1, 6, 6, false );
initcodes( 'rvsd12', #h0ed, 0, 0, 0, addr_neutral, 144);
init_interval( 1, 12, 12, true );
/,

l./revsf/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'rvsf0', #h0c1, 0, 1, 0, addr_neutral, 110);
init_interval( 1, 0, 0, false );
initcodes( 'rvsf2', #h0c3, 0, 1, 0, addr_neutral, 110);
init_interval( 1, 2, 2, false );
initcodes( 'rvsf4', #h0c5, 0, 1, 0, addr_neutral, 110);
init_interval( 1, 4, 4, false );
initcodes( 'rvsf6', #h0c7, 0, 1, 0, addr_neutral, 110);
init_interval( 1, 6, 6, false );
initcodes( 'rvsf12', #h0cd, 0, 1, 0, addr_neutral, 110);
init_interval( 1, 12, 12, true );
/,

l./stvlb/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'stvlbs', #h08a, 1, 0, 0, addr_neutral, 76);
init_interval( 1, 0, 255, true );
/, l./stvlw/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'stvlws', #h0aa, 1, 0, 0, addr_neutral, 76);
init_interval( 1, 0, 255, true );
/, l./stvld/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'stvlds', #h0ea, 1, 0, 0, addr_neutral, 106);
init_interval( 1, 0, 255, true );
/, l./stvlf/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'stvlfs', #h0ca, 1, 1, 0, addr_neutral, 218);
init_interval( 1, 0, 255, true );
/,



l./stvsb/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'svsb0', #h080, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 0, 0, false );
initcodes( 'svsb2', #h082, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 2, 2, false );
initcodes( 'svsb4', #h084, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 4, 4, false );
initcodes( 'svsb6', #h086, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 6, 6, false );
initcodes( 'svsb28', #h09c, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 28, 28, false );
initcodes( 'svsb29', #h09d, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 29, 29, false );
initcodes( 'svsb30', #h09e, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 30, 30, false );
initcodes( 'svsb31', #h09f, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 31, 31, true );

/,


l./stvsw/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'svsw0', #h0a0, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 0, 0, false );
initcodes( 'svsw2', #h0a2, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 2, 2, false );
initcodes( 'svsw4', #h0a4, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 4, 4, false );
initcodes( 'svsw6', #h0a6, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 6, 6, false );
initcodes( 'svsw28', #h0bc, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 28, 28, false );
initcodes( 'svsw29', #h0bd, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 29, 29, false );
initcodes( 'svsw30', #h0be, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 30, 30, false );
initcodes( 'svsw31', #h0bf, 0, 0, 0, addr_neutral, 110);
init_interval( 1, 31, 31, true );

/,

l./stvsf/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'svsf0', #h0c0, 0, 1, 0, addr_neutral, 250);
init_interval( 1, 0, 0, false );
initcodes( 'svsf2', #h0c2, 0, 1, 0, addr_neutral, 250);
init_interval( 1, 2, 2, false );
initcodes( 'svsf4', #h0c4, 0, 1, 0, addr_neutral, 250);
init_interval( 1, 4, 4, false );
initcodes( 'svsf6', #h0c6, 0, 1, 0, addr_neutral, 250);
init_interval( 1, 6, 6, false );
initcodes( 'svsf28', #h0dc, 0, 1, 0, addr_neutral, 250);
init_interval( 1, 28, 28, false );
initcodes( 'svsf29', #h0dd, 0, 1, 0, addr_neutral, 250);
init_interval( 1, 29, 29, false );
initcodes( 'svsf30', #h0de, 0, 1, 0, addr_neutral, 250);
init_interval( 1, 30, 30, false );
initcodes( 'svsf31', #h0df, 0, 1, 0, addr_neutral, 250);
init_interval( 1, 31, 31, true );

/,
















f
«eof»