|
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: »writehextx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »writehextx «
;procedure write_hex (value);
;
; call : return : saved in:
;
; w0 : value unch b0
; w1 : - unch b1
; w2 : - unch b2
; w3 : link unch b3
;
b. a10, b10 ;
w. ;
ent: ds. w1 b1. ; entry:
ds. w3 b3. ; save registers;
jl. w3 e3. ; outchar (out, sp);
al w0 -24 ; shift := -24;
a0: rl. w2 b0. ; for shift := shift + 4
wa. w0 b4. ; while shift > 0 do
sn w0 0 ; begin
jl. a1. ; char :=
ls w2 (0) ; value shift shift;
zl. w2 x2+b5. ; hex :=
jl. w3 h26.-2 ; hextable (char);
jl. a0. ; end;
a1: dl. w1 b1. ; restore registers;
dl. w3 b3. ;
jl x3 ; return;
b0: 0 ; saved w0
b1: 0 ; - w1
b2: 0 ; - w2
b3: 0 ; - w3
b4: 4 ; constant
h. ; hextable (0:15):
b5: 48, 49, 50, 51 ; 0, 1, 2, 3
52, 53, 54, 55 ; 4, 5, 6, 7
56, 57, 65, 66 ; 8, 9, A, B
67, 68, 69, 70 ; C, D, E, F
w. ;
i.
e. ; end block
▶EOF◀