DEC pack, unpack and disk-images

[Gribouillis]

I just reversed your "pack()" function for an "unpack()" function and it's doing the same "raise" thing, although it's rad50 functions flawlessly

If you don't post all the code, we can't guess what's going wrong.

[Curbie]

I haven't given up trying to chase and fix the issue(s), just thanking you, no code necessary to post.

Just playing between tutorials, it's hard for me to keep focus to learn a new language not knowing that the end language, will work for what I need. The play code is to answer some of those "will it work for what I need" questions, I presume that finishing the tutorials will help me clean-up the "play" code.

[Curbie]

After the obligatory amount of tail-chasing, last night I got my Alpha Micro computer rad50 “Pack” and “Unpack” routines up and fairly tested, I'm getting known good output now which I recognize.

(start of system directory, LIT = BINary file)

AMOS  .LIT  AMSORT.SYS  AM334 .LIT  APPEND.LIT  ASCDMP.LIT  ATTACH.LIT
BADBLK.LIT  BASIC .LIT  BAUD  .LIT  BITMAP.LIT  CACHE .LIT  CAL100.LIT
CAL120.LIT  CLEAR .LIT  CMDLIN.SYS  COMPIL.LIT  CONVRT.TBL  COPY  .LIT
CPMCPY.LIT  CPMDIR.LIT  CREATE.LIT  CRT410.LIT  CRT415.LIT  CRT420.LIT
CRT610.LIT  CRT620.LIT  DATE  .LIT  DCACHE.SYS  DEL   .LIT  DEVTBL.LIT
DING  .LIT  DIR   .LIT  DIRSEQ.LIT  DO    .LIT  DSKANA.LIT  DSKCPY.LIT
DSKDDT.LIT  DSKDMP.LIT  DSKFIL.LIT  DSKPAK.LIT  DUMP  .LIT  ERASE .LIT

Thanks to Gribouillis who got me started down a path which ended with successful routines, his pseudo routines inspired my newbee interpretation, I’ll post the code if anyone wants to beat it up or just newbee code for a 50 year old obscure computer, even though my recollection is, the Alpha Micro rad50 “Pack” and “Unpack” routines are slightly different than the DEC routines, although those differences may be corrected by altering the ASCII map table