DataMuseum.dk

top - metrics - download

    Length: 10752 (0x2a00)
    Types: TextFileVerbose
    Names: »yy«

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

TextFileVerbose

job jaba 6 600 time 10 0 perm disc 200 2 size 160000
mode list.yes
( pass6pasc = edit pass6pas
if ok.no
finis
if ok.no
(
i xcompass6
npass6pasc = edit pass6pasc
if ok.no
finis
clear temp pass6pasc
rename npass6pasc . pass6pasc
end)

platonpass6 = set 118
scope user platonpass6
if ok.no
finis
platonpass6 = pascal pass6pasc codesize.6000 survey.yes
if ok.no
finis
lookupprog platonpass6
if ok.no
finis
c = list compass6 count.boss
finis output.no
pass6list = indent pass6pasc mark lc
if ok.no
finis
clear temp pass6pasc
udlist=cross pass6list
if ok.no
finis
convert udlist
finis
)




; page 1
l./(*$t/,
r/-/+/,




; page 2


l./version='/, d2, i/
version = 'pascal80 pass6      1981.05.07 ';
pass6_version = 415; (* revision * 100 + subversion *)
demanded_pass5_version = 200; (* the least allowed pass5 version number *)
/, p-2,
l./statistical_version=/, d, i/
statistical_version = true; (* conditional code !!! *)
/,


l./maxnameix/,




; page 30
l./procedure initialization/,

 ;page 34
l./initcodes('jmprw'/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'jmprws', #h0c8, 2, 0, 0, jump_short, 42 );
init_interval( 1, 0, 255, true );
/,


l./jmzeq/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'jmzeqs', #h0ad, 2, 0, 0, jump_short, 62);
init_interval( 1, 0, 255, true );
/, l./jmzne/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'jmznes', #h0ae, 2, 0, 0, jump_short, 62);
init_interval( 1, 0, 255, true );
/, l./jmzlt/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'jmzlts', #h0af, 2, 0, 0, jump_short, 62);
init_interval( 1, 0, 255, true );
/, l./jmzgt/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'jmzgts', #h0c5, 2, 0, 0, jump_short, 62);
init_interval( 1, 0, 255, true );
/, l./jmzle/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'jmzles', #h0c6, 2, 0, 0, jump_short, 62);
init_interval( 1, 0, 255, true );
/, l./jmzge/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'jmzges', #h0c7, 2, 0, 0, jump_short, 62);
init_interval( 1, 0, 255, true );
/,

l./init_interval(1,2,2,true/, r/true/false/, l1, i/
initcodes( 'rec3', #h043, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 3, 3, false );
initcodes( 'rec4', #h044, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 4, 4, false );
initcodes( 'rec5', #h045, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 5, 5, false );
initcodes( 'rec6', #h0ea, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 6, 6, false );
initcodes( 'rec7', #h0ef, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 7, 7, false );
initcodes( 'rec8', #h022, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 8, 8, false );
initcodes( 'rec9', #h023, 2, 0, 0, addr_neutral, 60);
init_interval( 1,9, 9, false );
initcodes( 'rec10', #h027, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 10, 10, false );
initcodes( 'rec11', #h028, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 11, 11, false );
initcodes( 'rec12', #h029, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 12, 12, false );
initcodes( 'rec13', #h02a, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 13, 13, false );
initcodes( 'rec14', #h02b, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 14, 14, false );
initcodes( 'rec15', #h02c, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 15, 15, false );
initcodes( 'rec16', #h02d, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 16, 16, false );
initcodes( 'rechws', #h0e9, 2, 0, 0, addr_neutral, 60);
init_interval( 1, 17, 255, true );
 
/,


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

l./reasd/, l1, i/
ais_codes [ lastcode ] := current_interval;
/, l./uadhw/, l1, i/
ais_codes [ lastcode ] := current_interval;  (* same as 'reasd' *)
initcodes( 'reasds', #h0e8, 2, 0, 0, addr_neutral, 112);
init_interval( 1, 0, 255. true );
/,

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

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

l./revsw/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'rvsw0', #h0ca, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 0, 0, false );
initcodes( 'rvsw2', #h0cd, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 2, 2, false );
initcodes( 'rvsw4', #h0ce, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 4, 4, false );
initcodes( 'rvsw6', #h0cf, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 6, 6, false );
initcodes( 'rvsw12', #h0d3, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 12, 12, true );
/,
l./revsd/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'rvsd0', #h0d4, 2, 0, 0, addr_neutral, 144);
init_interval( 1, 0, 0, false );
initcodes( 'rvsd2', #h0d5, 2, 0, 0, addr_neutral, 144);
init_interval( 1, 2, 2, false );
initcodes( 'rvsd4', #h0d6, 2, 0, 0, addr_neutral, 144);
init_interval( 1, 4, 4, false );
initcodes( 'rvsd6', #h0d7, 2, 0, 0, addr_neutral, 144);
init_interval( 1, 6, 6, false );
initcodes( 'rvsd12', #h0d8, 2, 0, 0, addr_neutral, 144);
init_interval( 1, 12, 12, true );
/,

l./revsf/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'rvsf0', #h0d9, 2, 1, 0, addr_neutral, 110);
init_interval( 1, 0, 0, false );
initcodes( 'rvsf2', #h0da, 2, 1, 0, addr_neutral, 110);
init_interval( 1, 2, 2, false );
initcodes( 'rvsf4', #h0db, 2, 1, 0, addr_neutral, 110);
init_interval( 1, 4, 4, false );
initcodes( 'rvsf6', #h0dc, 2, 1, 0, addr_neutral, 110);
init_interval( 1, 6, 6, false );
initcodes( 'rvsf12', #h0dd, 2, 1, 0, addr_neutral, 110);
init_interval( 1, 12, 12, true );
/,

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

l./stvgb/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'stvgbs', #h0e4, 2, 0, 0, addr_neutral, 76);
init_interval( 1, 0, 255, true );
/, l./stvgw/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'slvgws', #h0e5, 2, 0, 0, addr_neutral, 76);
init_interval( 1, 0, 255, true );
/, l./stvgd/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'stvgds', #h0e6, 2, 0, 0, addr_neutral, 106);
init_interval( 1, 0, 255, true );
/, l./stvgf/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'stvgfs', #h0e7, 2, 1, 0, addr_neutral, 218);
init_interval( 1, 0, 255, true );

/,


l./stvsb/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'svsb0', #h01c, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 0, 0, false );
initcodes( 'svsb2', #h01d, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 2, 2, false );
initcodes( 'svsb4', #h074, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 4, 4, false );
initcodes( 'svsb6', #h075, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 6, 6, false );
initcodes( 'svsb28', #h076, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 28, 28, false );
initcodes( 'svsb29', #h077, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 29, 29, false );
initcodes( 'svsb30', #h078, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 30, 30, false );
initcodes( 'svsb31', #h079, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 31, 31, true );

/,


l./stvsw/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'svsw0', #h01c, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 0, 0, false );
initcodes( 'svsw2', #h01d, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 2, 2, false );
initcodes( 'svsw4', #h074, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 4, 4, false );
initcodes( 'svsw6', #h075, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 6, 6, false );
initcodes( 'svsw28', #h076, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 28, 28, false );
initcodes( 'svsw29', #h077, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 29, 29, false );
initcodes( 'svsw30', #h078, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 30, 30, false );
initcodes( 'svsw31', #h079, 2, 0, 0, addr_neutral, 110);
init_interval( 1, 31, 31, true );

/,

l./stvsf/, l1, i/
ais_codes [ lastcode ] := current_interval;
initcodes( 'svsf0', #h01c, 2, 1, 0, addr_neutral, 250);
init_interval( 1, 0, 0, false );
initcodes( 'svsf2', #h01d, 2, 1, 0, addr_neutral, 250);
init_interval( 1, 2, 2, false );
initcodes( 'svsf4', #h074, 2, 1, 0, addr_neutral, 250);
init_interval( 1, 4, 4, false );
initcodes( 'svsf6', #h075, 2, 1, 0, addr_neutral, 250);
init_interval( 1, 6, 6, false );
initcodes( 'svsf28', #h076, 2, 1, 0, addr_neutral, 250);
init_interval( 1, 28, 28, false );
initcodes( 'svsf29', #h077, 2, 1, 0, addr_neutral, 250);
init_interval( 1, 29, 29, false );
initcodes( 'svsf30', #h078, 2, 1, 0, addr_neutral, 250);
init_interval( 1, 30, 30, false );
initcodes( 'svsf31', #h079, 2, 1, 0, addr_neutral, 250);
init_interval( 1, 31, 31, true );

/,
«eof»