github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-04-30 13:32:36 +00:00
Code Issues Projects Releases Wiki Activity

elf2boot: move uint36_to_c36 conversion to extint

Browse Source
This commit is contained in:
Mikael Pettersson
2025-08-14 16:04:45 +02:00
parent 15434fdd34
commit 0667130fc4
2 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
erlang/apps/elf2boot/src/elf2boot.erl
View File

@@ -288,13 +288,7 @@ outfp_fseekw({h36, OutFP}, WordOffset) ->
stdio9:fseek(OutFP, {bof, WordOffset*4}).
outfp_fputw(Word, {c36, IoDev}) ->
B4 = Word band 15,
B3 = (Word bsr 4) band 255,
B2 = (Word bsr 12) band 255,
B1 = (Word bsr 20) band 255,
B0 = (Word bsr 28) band 255,
Bytes = [B0, B1, B2, B3, B4],
stdio8:fputs(Bytes, IoDev);
stdio8:fputs(extint:uint36_to_c36(Word), IoDev);
outfp_fputw(Word, {h36, OutFP}) ->
stdio9:fputs(extint:uint36_to_ext(Word), OutFP).