|
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: 1536 (0x600)
Types: TextFile
Names: »outbitstx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »outbitstx «
; w0 integer value unchanged
; w1 - -
; w2 - -
; w3 link -
b. a9, b9, c9 ;
w.
entry:ds. w0 b0. ; save registers;
ds. w2 b2. ;
rl. w1 b0. ; value := saved w0;
al w2 -1 ; count := -1;
a0: sl w1 0 ; if value.msb = 1 then
am -1 ; bit := 1 else
al w0 1 ; bit := 0;
rs. w1 c1. ; save value;
jl. w3 h32.-2 ; outinteger (out, bit);
rl. w1 c1. ; restore value;
ld w2 -1 ; (value, count) := (value, count) shift (-1);
se w2 0 ; if count <> 0 then
jl. a0. ; goto rep;
dl. w0 b0. ; restore registers;
dl. w2 b2. ;
jl x3 ; return;
0 ; saved w3;
b0: 0 ; - w0;
0 ; - w1;
b2: 0 ; - w2;
c1: 0 ; saved value;
e.
▶EOF◀