|
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: 3072 (0xc00)
Types: TextFile
Names: »binep2rcpas«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »binep2rcpas«
; binep2rcpas 80.11.18
; change input format from text to binary
; first code word in each production is negative
; page 1
l./program pass2/, r/input=/inputfil =/, r/output/output, input/,
; page 9
l./slang : file of integer/, r/sl/inputfil, sl/,
; page 14
l./procedure error/,
l./end;/, i/
if number = 403 then (* compiler error !! *)
readln(output); (* force exception *)
/,
; page 16
l./function getnumber:integer/,
l./read(n/, r/(/( inputfil,/,
l./procedure readalfa/,
l./repeat/, d./until input^/,
r/=i/= 1/, r/aÆiÅ:=' '/
begin
a Æ i Å := chr ( inputfil ^) ; get( inputfil );
end/,
l./function getintmtwords/,
l./read(/, r/(/( inputfil,/,
l1, i/
cheat.b := abs ( cheat.b );
/,
l./function getsymbptr/,
l./read(n/, r/(/( inputfil,/,
l./get(input/, d,
; page 23
l./procedure initialize/,
l./ch:char/, l1, i/
skip : alfa;
/,
l./rewrite(linetable/, i/
reset(inputfil);
/,
; page 24
l./get(input)/, d1, i/
ch := chr( inputfil ^ ); get( inputfil );
/,
l./get(input)/, d1, i/
(* skip two spaces !! *) get( inputfil ); get( inputfil );
/,
l./if ch ='h'/, r/read(/read( inputfil, /,
l./if ch='s'/, r/read(/read( inputfil, /,
l./readln;(*skip/, d, i/
get(inputfil); get(inputfil); readalfa( skip );
/,
; page 39
l./procedure nextline;/,
l./an opcode *)/, r/*)/(negative value) *)/,
l./readln;/, d, i/
while inputfil^ >= 0 do get( inputfil );
/,
; page 40
l./procedure readsign(var/, i/
procedure readchar( var ch : char );
begin
if inputfil ^ >= 0 then
begin
ch := chr ( inputfil ^ );
get( inputfil );
end
else
ch := ' '; (* stop condition !! *)
end;
/,
l./read(ch/, r/read/readchar/,
l./ch='#'/,
l./read(ch/, r/read/readchar/,
l./read(ch/, r/read/readchar/,
; page 41
l./read(ch/, r/read/readchar/,
; page 42
l./(*readreal *)/,
l./read(ch/, r/read/readchar/,
l./read(ch/, r/read/readchar/,
; page 43
l./read(ch/, r/read/readchar/,
l./read(ch/, r/read/readchar/,
l./read(ch/, r/read/readchar/,
l./read(ch/, r/read/readchar/,
; page 44
l./estring:begin/,
l./read(ch/, r/read/readchar/,
; page 51-52
l./efile:begin/,
l./if externalfile thenbeginnew(string);/,
l./if not eoln(input/, d1, i/
while ( inputfil ^ >= 0 ) and (i < alfalength) do
/,
l./string^.strÆiÅ:=ch/, r/ch/chr( inputfil ^ )/,
l./read(ch/, d,i/
get( inputfil );
/,
; page 111
l./procedure evaltoresult(ps:/,
l./procedure pushnest;/,
l./read(nd/, d, i/
nd := getnumber;
/,
; page 200
l./elinenumber:begin/,
l./read(currentline/, d, i/
currentline := getnumber;
/,
l./eoption:/,
l./get(input)/, d,
g 25/input/inputfil/,
l-25, g 25/'+'/ord('+')/,
l -25, l./'t'/, r/'t'/ord('t')/,
l./'r'/, r/'r'/ord('r')/,
l./'c'/, r/'c'/ord('c')/,
f
▶EOF◀