TOPS-10: New octal/SIXBIT/ASCII file dump program

[Ric Werme]

I'm winding down on my early TOPS-10 projects. Originally I was just going to get my console lights hack running, and have done so, and added three new displays.  It needs a bit more work.  I have mucked with things and can run the exec mode version with "pdpcontrol start 3".

I decided that I wanted a convenient file dump program because:

1) My disk patch program dump routine is not convenient,

2) My Unix life has me using "od" or a personal variant frequently.

3) I'd want to use the TULIP I/O package so a side effect is to port that.  TULIP pretty much compiled and ran, yay.  I have no idea if it makes sense to get it running on ITS.  My knee-jerk reaction says "Of course!"

4) It looks like I'll be mucking with ITS assembler output files, it may be very useful for me.

So, I can do this on TOPS-10, fildmp is happy on 132 column LPT paper:

.type hello.mac
        TITLE   Hello world! in MACRO-10 AND TULIP
 
        SEARCH  TULIP                   ;LET ME DO AN ALL-CAPS HELLO WORLD! PROGRAM
 
MAIN:   MOVE    P,[IOWD STKLEN, STACK]
        START                   ;INIT TULIP
        WSIX    [SIXBIT /H&ELLO, &W&ORLD"!#!/]
        EXIT    1,
        JRST    MAIN
 
STKLEN=40
STACK:  BLOCK STKLEN
 
        END     MAIN

.exec hello,tullib
MACRO:  Hello
LINK:   Loading
[LNKXCT HELLO Execution]
Hello, World!

.run fildmp

*hello.mac
Source: DSK:HELLO .MAC
Dest:   TTY:      .  

--- Block 1, word offset 0
000000     046511 152230  424231 062730  663364 073736  713314 420500   *$U)-28BB9&78V;T'?>Y;,B% *   *.TITLE.Hello world! *
000004     647344 046602  416451 726542  301010 147210  202512 546222   *T[D$V"ATIZUB8((,Z(05*LR2*   *in MACRO-10 AND TULI*
000010     500321 206424  046470 540644  416201 152252  462232 004422   *H#10T4$TXL&DAR!-2JF2: D2*   *P.....SEARCH.TULIP..*
000014     045671 442650  202330 520210  475010 147100  406311 426606   *$NYD6H038J"(GH(,Y @S)BV&*   *.;LET ME DO AN ALL-C*
000020     406412 320220  426311 447500  536372 246210  205012 051236   *@T*:"0BS)D] KSZ4R(0H*%*>*   *APS HELLO WORLD! PRO*
000024     436450 146432  050321 246602  446347 204632  476550 504640   *CTH,T:%#14V"DSG0F:GUHHF@*   *GRAM....MAIN:.MOVE.P*
000030     262671 147656  421012 352226  462131 626100  516510 141626   *66Y,^NB(*=26F19RQ IU(,.6*   *,[IOWD STKLEN, STACK*
000034     564321 204646  522032 252022  044227 344634  446504 052252   *NC10FFJ0:502$B7<F<DU$%2J*   *]...START...;INIT TU*
000040     462232 006424  046572 344660  046672 344660  412232 420136   *F2: T4$UZ<FP$VZ<FPA2:B!>*   *LIP...WSIX.[SIXBIT /*
000044     441150 546230  475304 023256  232372 246210  211024 320536   *D)HLR8GK$":N33Z4R(1(4:%>*   *H&ELLO, &W&ORLD"!#!/*
000050     564321 204612  542232 404542  260321 204624  512472 404632   *NC10F*L2:@EB6#10F4I4Z@F:*   *]...EXIT.1,...JRST.M*
000054     406231 606424  064241 505246  522271 442634  365506 006424   *@R9PT4&BAHJFJ2YD6<>M& T4*   *AIN......STKLEN=40..*
000060     516510 141626  350230 246236  416264 051650  456310 547032   *IU(,.6="84R>ART%.HES(LX:*   *STACK:.BLOCK STKLEN.*
000064     050321 204612  472101 146602  446341 505000  000000 000000   *%#10F*G1!,V"DSAHH       *   *....END.MAIN........*
*hello.rel
Source: DSK:HELLO .REL
Dest:   TTY:      .  

--- Block 1, word offset 0
000000     000004 000000  000000 000000  000006 000002  000000 000000   *  $           &  "      *   *.. .........0.......*
000004     000263 451411  000011 000000  000001 000006  242100 000000   * "SE,)  )     !  &41    *   *...S...H.......(D...*
000010     000000 000000  200740 000045  260740 000000  002000 000046   *      0'@  E6'@    0   F*   *..... ....,.....@...*
000014     047040 000012  254000 000000  000001 000006  240000 000000   *$X@  *5@      !  &4     *   *.b...+.........(....*
000020     000000 000045  777740 000004  500645 545457  140006 670657   *     E__@  $H&ELLO, &W&O*   *..........P.-K...6qW*
000024     625444 020103  010000 000000  000002 000016  002004 010000   *RLD"!#!       "  . 0$!  *   *e2  !...........@ ..*
000030     100003 676626  047000 000012  100005 536720  000000 000000   *( #WV6$X   *( %KW0      *   *...}K.`.....-=h.....*
000034     100000 000032  000000 000017  100442 461335  000000 000005   *(    :     /($BF+=     %*   *.............bn.....*
000040     126552 266760  000000 000040  630157 762476  000000 000001   **UJ6WP     @S!O^4^     !*   *.VRmx.....f..e......*
000044     100010 171132  002000 000000  000007 000001  200000 000000   *( (/): 0      '  !0     *   *..Ar-.@.....8.. ....*
000050     000000 000000  000005 000002  200000 000000  000000 000052   *        %  "0          J*   *.......(.. .........*
000054     000000 000000  000000 000000  000000 000000  000000 000000   *                        *   *....................*
*^C

These want to get added to the TOPS-10 distribution some time.  In the meantime, let me know if you want any of this.