DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »toeputx«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦787c125fb⟧ »adjprocfile« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦787c125fb⟧ »adjprocfile« 
            └─⟦this⟧ 

TextFile

; to_epu_tx       *page  ;

; to_epu
; ******

if listing.yes
char 10 12 10

to_epu = set 1

to_epu = algol

external integer procedure to_epu
__________________________________
_        (epu, word, epu_lng, print);
value                epu_lng, print;
zone      epu;
integer array field word;
integer                  epu_lng;
boolean                           print;

comment 

to_epu           (call and return, integer procedure)
the procedure outrecs a piece of epu_code after insertion of
a stop-instruction to the external processor connected to
the zone epu. The value of the procedure is the number of 
bytes remaining in the zone, but the full zone length is
available after the call of to_epu.

word          call and return, integr array field)
;
begin

epu.word(1) := 4095 shift 12 + 1 <*stp_1*>;
if print then
epu_print(epu,word + 6);
  
case epu_mode + 1 of
begin
 comment case 1, normal use of epu;
begin
to_epu := changerec_6(epu,word + 6);
outrec_6(epu, epu_lng);
end case 1;
 
comment case 2, epu-single prec. emulation;
begin
epu_single(epu, word + 6);
to_epu := 0;
end case 2;
 
comment case 3, pt. illeg.;
system(9)alarm:(epu_mode, <:<10>illepumd:>);
end cases;
word := 0;
end;
end

if ok.no
mode 0.yes

if warning.yes
(mode 0.yes
message to_epu not ok
lookup to_epu)

end

finis
▶EOF◀