TI 990 Disassembler (from tagged object) by Commander

[+FarmerPotato]

I do not know exactly where this came from.

 

There is a chance that it walked out the door of TI Lubbock with the Ed/Asm and TI Writer source. But it doesn't show the "archive" format with the original archived pathnames, like those. 

 

Maybe I got it from Compuserve. 

 

For your enjoyment, here is a large assembly program for the 990.  

 

       IDT  'DISASM'
       DXOP SVC,15
DISASM DATA REG,MAIN00,0
*      SYMBOLIC DISASSEMBLER FOR TI 990 (TXDS / DX10)
*      AUTHOR : DONALD E B MILLER
*               COMMANDER SYSTEMS, INC.
*               PO BOX 494
*               WORTHINGTON  OH, 43085
*               (614) 888-9287
*      THIS PROGRAM DOES NOT PROCESS MULTIPLY USED
*      'REF'S, OR DSEG DATA PROPERLY.
*      TXDS CALLING SEQUENCE:
*      PROGRAM :      :DISASM/SYS
*      INPUT   :      :FILE/OBJ
*      OUTPUT  :      :FILE/LST
*      OPTIONS :      <M, S, D> M = INPUT IS IN MEMORY.
*      DX10 (REL 2.2) :
*           AL,A5,INPUT.AL,A6,OUTPUT.
*           EX,DA,S.   (S : 1=LIST, 2=SOURCE.)
*      DX10 (REL 3.X) :
*           XDIS  INPUT=ACNM,
*                 OUTPUT=ACNM,
*                 OUTPUT FORMAT=LIST (OR "SOURCE")
*     TEXT OF 'XDIS' PROC FOR DX10 REL 3.X
*XDIS(EXECUTE DISASSEMBLER UTILITY),
*INPUT ACCESS NAME = ACNM(@$XDIN),
*OUTPUT ACCESS NAME = ACNM,
*FORMAT = *STRING(LIST)
*RL LUNO=0A5
*RL LUNO=0A6
*AL LUNO=0A5, ACCESS NAME= @&INPUT ACCESS NAME
*AL LUNO=0A6, ACCESS NAME= @&OUTPUT ACCESS NAME
*.SYN $XDIN="@&INPUT ACCESS NAME"
*.IF  &OUTPUT ACCESS NAME, EQ, "ME"
*.SYN $BID=XTS
*.ELSE
*.SYN $BID=XT
*.ENDIF
*.IF "@&FORMAT", EQ, "LIST"
*.SYN $PRM=1
*.ELSE
*.SYN $PRM=2
*.ENDIF
*@$BID PROG=.S$SDS$, TASK=DISASM, P1=@$PRM-0, STA=ME
*.SYN $PRM=""
*.SYN $BID=""

 

 

DISAS1.txt DISAS2.txt DISAS3.txt DISAS4.txt