|
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: 2304 (0x900)
Types: TextFile
Names: »binep1rcpas«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »binep1rcpas«
; binep1rcpas 80.11.14
; change output format from text to binary
; mark first code word in each production ( negative value )
; do not emit load until, with, and withdo; they are not used by pass2
;page 1
l./version='pascal/,
l1, i/
rc8000_version = true; (* conditional emit of load, until, with, withdo *)
/,
; page 9
l./intermitfil:text/, r/text/file of integer/,
l./outputmode:(/, d,
l./emitwconv:array/, d,
;page 11
l./outputmode=compress/, d,
l./emitwconv=('/, d./'OPTION/,
; page 15
l./THE PROCEDURE IS USED TO WRITE INTERMEDIATE FORM/,
l./if outputmode=human/, d./elsebegin/,
l./write(intermitfil,ord/, r/,ord/, -ord/, r/:1//,
l./if nr>0/, r/,' '//, r/:1//,
l./if val1.length>=0/, d, i/
for j := 1 to val1.length do
write(intermitfil, ord( val1.str Æ j Å ) );
/,
l./write(intermitfil,' '/, r/' ',//, r/:1//,
l./' '/, r/' ',//, r/:1//,
l./' '/, r/' ',//, r/:1//,
; page 16
l./' '/, r/' ',// , r/:1//,
l./' '/, r/' ',//, r/:1//,
l./' '/, r/' ',//, r/:1//,
l./if val2.length/, d1, i/
for j := 1 to val2.length do
write(intermitfil, ord( val2.str Æ j Å ) );
/,
l./writeln(inter/, d,
d,
l./emitcode(/,
l./if outputmode=human/, d./elsebegin/,
l./write(intermitfil,ord/, r/ord/ - ord/,
r/:1//,
l./' '/, r/' ',//, r/:1//,
l./' '/, r/' ',//, r/:1//,
l./writeln/, d1,
; page ??
l./procedure emitold;(*/,
l./emitarith(eload,/, i/
begin
if not rc8000_version then
/, l./else/, i/
end
/,
; page 38
l./procedure emitdirective/,
l./if size>=0then/, d, i/
if size >=0 then
emit ( nilref, eoption, nilstr, enone, enone, enone, nilstr, ord(directive), size, nilref )
/,
l./end;/, d, l./emit(nilref,/, l1, i/
end;
/,
;page 87
l./806:(*<factor/,
l./emitarith(eload,vartypp/, i/
if not rc8000_version then
/,
; page 103
l./929:(*<repeatuntil>::=/,
l1, i/
if not rc8000_version then
/,
; page 104
l./935:(*<with do>::=/,
l./emitcode(/, i/
if not rc8000_version then
/,
l./937:(*<with>::=/,
l./emitcode(ewith/, i/
if not rc8000_version then
/,
f
▶EOF◀