DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »compass6«

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

TextFile

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

(
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.06.15 ';
pass6_version = 619; (* revision * 100 + subversion *)
demanded_pass5_version = 400; (* the least allowed pass5 version number *)
/, p-2,
l./hash_function_test/, r/true/false/,
l./statistical_version=/, d, i/
statistical_version = true; (* conditional code !!! *)
/,


l./maxnameix/,


; page 8
l./generate_statistics:boolean/, i/
short_instructions,   (* option(13), short,  use ais codes *)
/,





; page 30
l./procedure initialization/,

l./revision_number:=3+/, r/3+/5 -/,


; page 33
l./generate_statistics:=false;/, i/

short_instructions := true;
/,


; page 34
; remove pseudo instructions readw, and readb
l./if revision_number=5/, l./end/, r/d/d;/, l./else/, d./end;/,


; page 36
l./'rechw'/, l./ais_codes/, d./init_interval(1,2,2,true/,



; page 37
l./pcals'/, i/
if revision_number > 3 then
initcodes( 'pcals', #h0d3, 1, 4, 0, addr_neutral, 251)
else
/,
l./'pexit/, i/
if revision_number > 3 then
initcodes( 'pexit', #h0d4, 2, 0, 0, addr_neutral, 91)
else
/,



l./mxept/, l1, d./madlu/,


; page 48
l./procedure change_code/,
d./end;(*change code*)/,
l./procedure put_word/,
l./change_code(displacement/, d,

l./procedure insert_address_and_return/, 
;page 50
l./change_code(use_offset/, d,




; page 68
l./procedure handle_code/,
; page 70
l./if ais_codesÆcurrent_code/, r/ais/(ais/,
r/<> 0/<> 0) and short_instructions/,




; page 79
l./procedure read_options;/,
l./12(open/, r/opt(12)/opt(12)
.    13 short        1  (yes)    use short instructions (ais)/,

; page 83
l./12:if(val=0/,
l./end(*case/, i/

13: short_instructions := val = 1;
/,





; page 104
l./9998:(*no more input modules, terminate pass6/,
l./if generate_statistics/, i/

write( code, -1 ) ;  (* end of code mark *)

/,



f
▶EOF◀