Trailing-Edge
-
PDP-10 Archives
-
bb-j710b-bm_tops20_v41_tools
-
tools/ddt11/ddt11.mac
There are 17 other files named ddt11.mac in the archive. Click here to see a list.
TITLE DDT11 %6(67) PDP-10 RESIDENT PDP-11 [FIL]DDT
comment \ DDT11 edit history, because too many people
have their fingers in the pot.
This edit history is being added against all better judgement. DDT11,
as a product, has never been supported, has never been funded, and has never
been officialy documented. Any information that is available, and any work
done to this program, is thru the hard work and interest of the people
in Marlboro who care about useful development tools.
The main idea in the development of DDT11 is that there are no code
standards, many of the comments are wrong, and the syntax of the
command parser is as confusing as possible. (i.e. it is a lot like DDT.)
This program has been brought to you through the hard work of the
following people
Tony Crugnola
Dan Deufel
Kathy Haramundanis
Tim Litt
Dave Lyons
Mary Marotta
Todd Matson
Dave McClure
Bob South
Ric Werme
Jack Yelig
Known bugs, and missing features
Note that this list is incomplete until the current
documentation effort attempts to list all the faetures of DDT11
and which feature is available in which environment.
1. DATE75 bug in $Y file headers
2. Can't read a STB format file
3. /UBA is broken
4. Cache is broken (I think)
Cache is only used when examining running front ends.
If the front end is running, locations may change at any
time. Consider removing the cache feature entirely.
5. MEMLIM is broken (by the mcb code)
6. Multiple word deposits to running MCB don't work.
7. When reading the second thru Nth dump, DDT11 forgets about
the memory it used on the previous dump, and gets more.
8. Complete the switch conflict code by insuring the correctness
of the swtcon macros for the switches: MODULE, RELOCA, STB,
SAVE, LOAD, CORE, PDP8, PORT, SYMBOL, and UBA.
9. Do proper range checking for all of the switches to prevent
things like /FE:5 on TOPS-20 and /PORT:0 on TOPS-20, etc. etc.
10. Give an error message if /LINE is given without /PORT.
11. Give a warning message if /DUMP is assumed.
12. The help text needs to be much better.
13. Dennis has a number of ideas for the improvement of command
file output.
14. All of the source file should be examined for the generation
of error messages. Every error message should be clear, and
the error message format should be consistent. Also look
for ERJMPS, HALTS, EXITS, and all RETs.
Check that file error messages and exam dep error messages
are correct for all environments.
And that all JSYS are followed by erjmps.
15. A FILE NAME WHICH IS RIDICULOUS, BUT CONTAINS ALL VALID
NUMBERS AND LETTERS IS ACCEPTED. I.E. ABCDEFGHI.K
Version Who Problems
5(57) drl Add the code to look at large mcb dumps. In the process,
break the maxcor feature.
6(60) drl General cleanup of some code, and a few small bugs in the
new mcb code got fixed. The new version number is
included to indicate support (or half support) for the
mcb.
6(61) drl Add the Bob South code to examine the running dn60 using the
new protocols on the -20.
6(62) drl Fix the error in OPENF6 which caused the program to fall over
if there was a bad switch typed. Also, fix all the error
messages in the switch parsing to be of the same form: i.e.
"?<cr><lf>?text<cr><lf>"
Add a /HELP switch, and some text.
Rearrange the data section, and make another general cleanup
pass at the code.
6(63) POM Add the code to examine and deposit into a running MCB in the
network. The switch is /MCB:nodename.
Fix a number of bugs concerning large addresses.
Make backslash work. Add code to examine an unrun MCB
system image; the switch is /MCBSYS.
6(64) drl Add the code to read STB files, and add symbols to the symbol
table. Also, make DDT11 run faster that it does.
6(65) drl Add the framework for the new symbol table code, and fix the
memory management crocks.
All this is added under the conditional FT.NEW, to not
introduce any new bugs to the code, but allow a common source.
Bug fixes should be added to the old code, if they are in
version 6(64) or older.
6(66) drl It takes to damn long to assemble, so break it up into the
the sections people work on. Also, add switch conflict code.
6(67) POM Improve the switch conflict code. Fix the IO to
unassigned channel error. Add lots of error messages
for different flavors of syntax errors. Add the
<esc>/ command which suppresses output until the next
input character is typed. Also make this work for
<esc>[.
\
SUBTTL LISTING CONTROL, AND OTHER USEFUL STUFF
SEARCH DDTSYM,JOBDAT,MACTEN,UUOSYM,MONSYM,MACSYM
SALL ;GET NICE LISTINGS FOR A CHANGE
.HWFRMT ;AND SKIP THE FANCY BITS
.DIRECTIVE LITLST,FLBLST
; ENTRY POINTS FOR THIS ROUTINE
ENTRY MEMORY,MEMLIM,MEMUSE,MOVMEM,MOVSMT,SYMBEG,SAVE4,SAVE35,POSYMT,DELSYM
ENTRY OSTYPE,DDT11,LASTSW,LEVL.0,PDP8F,DAT,DATA,CALER0,R,RSKP,SWTMSK,SWTTST
ENTRY SYMBOL,SYMBEG,SYMEND,SAVE2,SAVE34,LEVEL0,LEVEL2,VALFND,TPOPJ1
ENTRY CMDLIM,O.MODE,DOTFOO,GOTO,INVLFN,RGFNDN,MOVMUS,SYMFND
ENTRY CNINWD,SBEGIN,DOTINC,CMDTKR,LSTADR,RSTART,ADDSYM,ORADIX
ENTRY S..END,EXPRES,NDTFOO,ESC.Q.,BYTCNT,SAVE24,COMLF1,CORERR
; EXTERNALS IN DDTGP
EXTERN PUTFOO,DTEERR,QUED60,TPOPJ,GETWRD,PUTBYT,SETUPN,NODSET,GETMEM
EXTERN ETYPE,CACHEL,CACHE,NODE.N,LINE,PORT,SET.FE,SETBIN,SETDFE,SETDMP,SETFOO
EXTERN SETLIN,SETMCB,SETMCS,SETNOD,SETPRT,SETUBA
; EXTERNALS IN DDTFIL
EXTERN ADRTYP,B3.TYP,BLANKT,CMDCNT,CMDFIL,COLTYP,COMTYP,CRLTYP,CSECHO,DATYPE
EXTERN DECINP,DECTYP,ESC..D,ESC..P,ESC..Y,FILPOS,IDTYPE,MRGFLG,MYPPN,OCTYPE,OHD
EXTERN OPNFL0,PCNTYP,PDECTY,PERTYP,QESTYP,RADTYP,RDDUMP,RSTATE,SETFES,SETMRG
EXTERN SETREL,SETRST,SETSYM,SIXIN,SIXTYP,TABTYP,TIMTY1,TYPCHR,TYPSTR
EXTERN GETCHR,FILDEV
; EXTERNALS DEFINED IN DDTSIM
EXTERNAL UBACTL,SIMXCT,MAPCOR,UPTIME,INSRUN,WAITIM,SIMREG,SETUPC,SIMREL
EXTERNAL IOBSTO,IOLOAD,IOSTOR
;DDT11 VERSION NUMBER
VWHO== 0
VDDT11==6
VMINOR==0
VEDIT== 67
%%DDT11==:<BYTE (3)VWHO(9)VDDT11(6)VMINOR(18)VEDIT>
LOC .JBVER
%%DDT11
RELOC 0
SUBTTL INITIALIZATION
DDT11: NOP
JSR INIALL ;GET PROCESSOR FLAGS, AND RESET WORLD
CALL IDTYPE ;IDENTIFY OURSELF
CALL CRLTYP ;END WITH A FLOURISH
MOVE T1,[0,,0] ;DEFAULT OUTPUT MODE IS SYMBOLIC
MOVEM T1,O.MODE
SETZM CACHEL ;HIGHEST ADDR IN CACHE
SETZM NODE.N ;HAVEN'T SPECIFIED NODE YET
SETZM CMDCON ;NO COMAND CONFLICTS YET
SETZM LINE ;OR LINE ON NODE
JRST INI.03
INI.00: TYPE <
Respond with file spec and/or switches (/HELP for help)>
CLRBFI ;FLUSH TYPEAHEAD
INI.03: TYPE <
Input: >
SETZ T1, ;NO DEFAULT FILE NAME
MOVE T2,[SIXBIT /LSDBIN/] ;DEFAULT EXTENSION
MOVE T3,[SW.DSP,,SW.LST]
MOVE T4,[400000,,RDDUMP] ;DEFAULT LAST SWITCH
SETZM SWTMSK ; NO SWITCHES, NO CONFLICTS
CALL OPNFL0
JRST INI.00 ;TELL HIM THATS NOT NICE
JRST INI.03
INIALL: Z
SETZ 0 ;ZERO 1ST AC
MOVEI 17,1 ;MAKE BLT POINTER
BLT 17,17 ;CLEAR ALL AC'S
MOVE P,[IOWD PDLEN,PDL]
PUSH P,INIALL
SETZM OHD
SETZM CMDFIL
MOVE FLG,FLGSAV ;SETUP FLAGS
TXZ FLG,F.EXEC!F.TOPN!F.LOCK!F..SIM!F.WENB
SETZM MRGFLG
HRROI DOT,0
SETZM RSTATE ;CLEAR STB READER STAE
MOVE T1,INIALL
TLNN T1,010000 ;CHECK USER MODE FLAG
TXO FLG,F.EXEC ;WE ARE IN EXEC MODE
CALL MAPCOR ;SETUP EPT AND UNIBUS MAPPING
SETZM UPTIME ;HAVEN'T STARTED THE CLOCK YET
SETZ T2,
TXNE FLG,F.EXEC ;IF NOT IN EXEC MODE
JRST INIAL1
MOVE T1,[XWD 112,11] ;GET THE MONITOR TYPE
CALLI T1,41 ;A GETTAB IN HIDING
SETZ T1, ;ALWAYS A 0 IF IT FAILS
LSH T1,-^D12 ;MOVE THE TYPE OVER
ANDI T1,7 ;MASK ANY UNWANTED BITS
MOVE T2,[T.OTHER ;FREE INDEX
T.TOP10 ;TOPS-10
T.ITS ;ITS
T.TENEX ;TENEX
T.TOP20 ;TOPS-20
T.OTHER
T.OTHER
T.OTHER](T1) ;GET THE TYPE
INIAL1: TXNE FLG,F.EXEC
TXO T2,T.EXEC
MOVEM T2,OSTYPE ;AND SAVE FOR LATER USE
RESET
SETZM INSRUN ;HAVEN'T DONE ANY INSTRCUTIONS YET
SETZM WAITIM ;AND HAVEN'T WAITED YET
GETPPN T2, ; SEE WHO WE ARE
JFCL ; BLOODY JACCT BIT
MOVEM T2,MYPPN ; SAVE FOR PPN DEFAULTING
RET
SUBTTL MAJOR LOOP
;HERE ON A REENTER
RSTART: NOP
JSR INIALL ;DO RESET, ETC.
;HERE AFTER INITIAL DIALOGUE
LEVL.0: SKIPE FILDEV
JRST [TYPE <
?File specification given was not used by any switch
>
RELEAS 1,
SETZM FILDEV
RET]
MOVE P,[IOWD PDLEN,PDL]
CALL STCOR1 ;HANDLE /CORE:#
CALL MAPCOR ;UPDATE MEMORY MAP
SETZM OHD
SETZM CMDFIL ;NO MORE COMMAND FILE
CALL CRLTYP
SETZM CMDTKR
LEVEL0: TXZ FLG,F.LOPN!F.MASK!F.MOPN!F.CACH!F.WRIT!F.LBKT
MOVEM FLG,FLGSAV ;SAVE IN CASE OF REENTER
HLRS ORADIX ;RESET OUTPUT RADIX
HLRS O.MODE ;RESET CURRENT OUTPUT MODE FROM PERMANENT
HLRS BYTCNT ;RESET REPETITION COUNT
; HERE TO RESET MOST OF THE DANGEROUS THINGS (LIKE THE STACK POINTER),
; AND ASK FOR THE NEXT COMMAND THAT WE WILL PARSE AND EXECUTE
LEVEL2: MOVE P,[IOWD PDLEN,PDL]
TXZ FLG,F.SYMB!F.TEXT!F.IOCT!F.IDEC!F.IHEX
MOVE T1,[POINT 7,CMDLIN]
MOVEM T1,CMDPTR ;SAVE NEW COMMAND PUTTER
MOVE STATE,[T2,,STATE0] ;DISPATCH TABLE WHEN IDLE
MOVE T1,[POINT 8,DATA]
SKIPE PDP8F
MOVE T1,[POINT 12,DATA]
MOVEM T1,DAT ;POINTER TO DATA AREA
SETZM DTFINP
MOVE T1,[BYTCNT,,ESCSAV] ;SPECIAL CARE OF THINGS SET
BLT T1,ESCSAV+2 ; WITH ESCAPE COMMANDS
SETZM LFTSAV ;NO PARTIAL X<Y>
; MOST OF THE WORK IS IN READING AN INSTRUCTION, IF ONE WAS TYPED
LEVEL3: CALL GETEXP ;GET AN EXPRESSION
JRST COMAND ;CHECK FOR COMMAND FILE
LDB T1,CMDPTR ;GET LAST CHARACTER
CAIE T1,40 ;WAS IT A SPACE ?
JRST LEVEL8
SKIPE PDP8F ;DOING PDP8 INSTRUCTIONS ?
JRST LEVEL6
TXNE FLG,F.SYML ;DID WE HAVE A SYMBOL ?
TLNN SYM,SMF.IN ;WAS IT AN INSTRUCTION ?
JRST LEVEL8
MOVE T1,EXPRESS ;GET EXPRESSION
IDPB T1,DAT ;SAVE IT
PUSH P,DAT ;SAVE POINTER TO OPCODE
ROT T1,-^D8
IDPB T1,DAT
CALL NDTFIN ;SET NEXT DTFINP
PUSH P,SYM ;SAVE SYMBOL POINTER
TLNE SYM,SMF.EI ;WAS THIS AN EIS INSTRUCTION ?
JRST [SETZ T1, ;ARG FOR LEVEL5
CALL LEVEL5
LDB T1,CMDPTR ;GET BREAK CHARACTER
CAIE T1,","
JRST LEVEL7
MOVE SYM,(P) ;RESTORE SYMBOL POINTER
JRST .+1 ]
TLNE SYM,SMF.JS!SMF.SB!SMF.EI ;WAS THIS A JSR OR SOB OR EIS ?
JRST [ CALL GETREG ;GET REGISTER NAME ARGUMENT
MOVE T3,-1(P) ;GET POINTER TO OPCODE
LDB T2,T3 ;GET LOW ORDER BITS
ILDB T3,T3 ;GET HIGH ORDER BITS
DPB T3,[POINT 8,T2,27]
DPB T1,[POINT 3,T2,29]
MOVE T3,-1(P) ;GET POINTER TO OPCODE AGAIN
DPB T2,T3 ;RESTORE LOW ORDER BITS
LSH T2,-^D8
IDPB T2,T3
MOVE SYM,(P) ;RESTORE SYM POINTER
TLNE SYM,SMF.EI ;IF EIS DON'T CHECK ","
JRST .+1
LDB T1,CMDPTR
CAIE T1,"," ;PROPER BREAK ?
JRST LEVEL7
JRST .+1]
MOVEI T1,^D6 ;ARG FOR LEVEL5
TLNE SYM,SMF.SS
JRST [CALL LEVEL5
LDB T1,CMDPTR;GET BREAK CHARACTER
CAIE T1,","
JRST LEVEL7
MOVE SYM,(P) ;RELOAD POINTER TO SYMBOL
JRST .+1]
SETZ T1, ;ARG FOR LEVEL5
TLNE SYM,SMF.DD!SMF.SS
CALL LEVEL5
MOVE SYM,(P) ;GET FLAGS AGAIN
TLNE SYM,SMF.BR ;WAS THIS A BRANCH TYPE INSTRUCTION ?
JRST [CALL GETEXP ;GET BRANCH ADR
JRST ILLCHR
MOVE T1,EXPRESS;GET DESTINATION ADR
HRROM T1,LSTIAD;SAVE LAST ADR TYPED IN
SUB T1,DTFINP
ASH T1,-1
SOS T1
ANDI T1,177777
CAIL T1,200
CAIL T1,177600
TRZA T1,777400
JRST ILLCHR
DPB T1,-1(P)
JRST LEVEL7 ]
TLNE SYM,SMF.MK ;WAS THIS A MARK ?
JRST [CALL GETEXP ;GET ARGUMENT
JRST ILLCHR
MOVE T1,EXPRESS
LDB T2,-1(P) ;GET LOW ORDER BITS OF OPCODE
DPB T1,[POINT 6,T2,35]
DPB T2,-1(P) ;PUT OPCODE BACK IN DATA
JRST LEVEL7 ]
TLNE SYM,SMF.EM ;EMT TYPE INSTRUCTION ?
JRST [CALL GETEXP ;GET OPERAND
JRST ILLCHR
MOVE T1,EXPRESS ;GET OPERAND
DPB T1,-1(P) ;PUT OPERAND IN INSTRUCTION
JRST LEVEL7 ]
TLNE SYM,SMF.RT ;RTS TYPE INSTRUCTION ?
JRST [CALL GETREG ;GET REGISTER NAME
LDB T2,-1(P) ;GET LOW ORDER BITS OF OPCODE
DPB T1,[POINT 3,T2,35]
DPB T2,-1(P)
JRST LEVEL7 ]
TLNE SYM,SMF.PL ;WAS THIS A SPL TYPE ?
JRST [CALL GETEXP ;GET ARGUMENT
JRST ILLCHR
MOVE T1,EXPRESS
LDB T2,-1(P) ;GET LOWORDER BITS OF OPCODE
DPB T1,[POINT 3,T2,35]
DPB T2,-1(P)
JRST LEVEL7 ]
TLNE SYM,SMF.SB ;WAS THIS A SOB ?
JRST [CALL GETEXP ;GET ADDRESS
JRST ILLCHR
MOVE T1,EXPRESS
HRROM T1,LSTIAD ;IN CASE ENDS WITH A TAB
HRRZ T2,DTFINP
SUBI T2,-2(T1)
ANDI T2,177777
LSH T2,-1
CAIL T2,100
JRST ILLCHR ;OUT OF RANGE
LDB T1,-1(P) ;GET LOW ORDER BITS OF OPCODE
DPB T2,[POINT 6,T1,35]
DPB T1,-1(P) ;RESTORE
JRST LEVEL7 ]
LEVEL7: POP P,SYM
POP P,T1
JRST LEVEL9
LEVEL6: JRST LEVEL9
LEVEL8: TXNN FLG,F.GEXP ;DID WE GET ANYTHING ?
JRST LEVEL9 ;NO
MOVE T1,EXPRESS
HRLI T1,400000 ;ASSUME REGISTER
TXNE FLG,F.SYML ;WAS THERE A SYMBOL IN EXPRESSION ?
TLNN SYM,SMF.RG ;WAS THAT A REGISTER NAME ?
HRROS T1 ;MEMORY ADR
MOVEM T1,LSTIAD ;SAVE LAST ADR TYPED IN
IDPB T1,DAT
LSH T1,-^D8
IDPB T1,DAT
TXNN FLG,F.MCB
JRST LEV8.5
LSH T1,-^D8
ANDI T1,3
IDPB T1,DAT
LEV8.5: CALL NDTFIN ;ADVANCE DTFINP
LEVEL9: MOVE T4,[POINT 8,DATA] ;POINTER TO DATA
SKIPE PDP8F
HRLI T4,(POINT 12)
LDB T1,CMDPTR ;GET BREAK CHARACTER
ROT T1,-1
TLNE T1,400000
SKIPA T2,STATEB(T1)
HLRZ T2,STATEB(T1)
JRST (T2) ;DISPATCH ON BREAK CHARACTER
COMAND: LDB T1,[POINT 6,SYMBOL,5] ;GET FIRST CHAR OF SYMBOL
CAIE T1,' %'
JRST LEVEL2 ;PUNT
MOVE T1,SYMBOL ;GET SYMBOL
CAMN T1,[SIXBIT \%GOTO\]
JRST %GOTO
CAMN T1,[SIXBIT \%IF\]
JRST %IF
JRST ILLCHR
;HERE IF DOING "%GOTO"
%GOTO: CALL SIXIN ;FIND WHERE TO GO
JRST ILLCHR
%GOTO3: MOVEM T1,SYMBOL ;REMEMBER WHERE TO GO
CALL SYMFND ;SEE IF WE KNOW IT
JRST [CALL FNDTAG
JRST ILLCHR
JRST .+1 ]
SKIPE CSECHO ;ECHOING COMMAND FILE ?
JRST %GOTO5 ;NO
CALL CRLTYP ;BEGIN WITH A FLOURISH
MOVE T1,(SYM) ;GET TAG NAME
CALL SIXTYP
CALL COLTYP ;END WITH A ":"
%GOTO5: MOVE T1,1(SYM) ;GET VALUE
MOVEM T1,CMDCNT ;WHERE WE WILL BE
CALL FILPOS ;POSITION FILE
JRST ILLCHR
JRST LEVEL2
;HERE TO SEARCH THROUGH REST OF FILE TO FIND TAG
FNDTAG: HRROS CSECHO ;SUPPRESS ECHO WHILE SEARCHING
CALL SIXIN ;GET NEXT SIXBIT WORD
JRST FNDTG8
CAIE T5,":" ;WAS THAT A TAG DEFINITION ?
JRST FNDTG8 ;NO
LDB T2,[POINT 6,T1,5] ;DID IT START WITH A % ?
CAIE T2,' %'
JRST FNDTG8
MOVE T2,CMDCNT ;VALUE OF TAG
MOVSI T3,SMF.SU ;SUPPRESSED
SETZM T4 ;MISC
CALL ADDSYM ;ADD IT TO OUR TABLE
MOVE T1,(SYM) ;GET SYMBOL
CAME T1,SYMBOL ;WAS THIS WHAT WE WANTED ?
JRST FNDTG8 ;NO SO KEEP LOOKING
HRRZS CSECHO ;TURN ECHOING BACK ON
RETSKP FAST
FNDTG8: SKIPE CMDFIL ;DID WE HIT END OF FILE ?
JRST FNDTAG ;NO SO KEEP LOOKING
HRRZS CSECHO ;TURN ECHO BACK ON
RET
;HERE IF DOING A %IF COMMAND
%IF: CALL SIXIN ;GET CONDITION
JRST ILLCHR ;LOSE
SETZ T3,
%IF..3: SKIPN %IFLST(T3)
JRST ILLCHR ;LOSE CAUSE CAN'T FIND THAT TYPE
CAME T1,%IFLST(T3) ;FIND IT ?
AOJA T3,%IF..3
JRST @%IFDSP(T3) ;DISPATCH ON TYPE OF CONDITION
;HERE FOR "%IF DEF" OR "IF DF"
%IFDEF: CALL SIXIN ;GET WHAT MIGHT BE DEFINED
JRST ILLCHR ;LOSE CAUSE END OF FILE
CALL SYMFND ;GO SEE IF WE CAN FIND IT
JRST %IFNOT ;NOT DEFINE SO DON'T DO IT
JRST %IFTRUE ;FOUND IT
;HERE FOR "%IF ERR"
%IFERR: TXZN FLG,F.CERR
JRST %IFNOT ;DON'T DO IT
JRST %IFTRU ;DO IT
;HERE FOR "%IF NDF"
%IFNDF: CALL SIXIN ;GET SYMBOL TO CHECK
JRST ILLCHR ;LOSE
CALL SYMFND ;SEE IF WE CAN FIND IT
JRST %IFTRUE ;WHAT HE WAS LOOKING FOR
JRST %IFNOT
;HERE FOR "IF EQ"
%IF.EQ: MOVE T1,[SKIPE T1]
JRST %IFEXP
;HERE FOR "%IF G" OR "%IF GT"
%IF.GT: MOVE T1,[SKIPG T1]
JRST %IFEXP
;HERE FOR "%IF GE"
%IF.GE: MOVE T1,[SKIPGE T1]
JRST %IFEXP
;HERE FOR "%IF NE" OR "%IF N"
%IF.NE: MOVE T1,[SKIPN T1]
JRST %IFEXP
;HERE FOR "%IF L" OR "%IF LT"
%IF.LT: MOVE T1,[SKIPL T1]
JRST %IFEXP
;HERE FOR "%IF LE"
%IF.LE: MOVE T1,[SKIPLE T1]
JRST %IFEXP
%IFEXP: PUSH P,T1 ;SAVE TEST
CALL GETEXP ;GET EXPRESSION TO EVALUATE
JRST ILLCHR ;LOSE CAUSE EPRESSION NOT HERE
TRNE T1,100000 ;IS THIS NEGATIVE ?
ORCMI T1,077777 ;EXTEND SIGN
POP P,T2 ;GET TEST
XCT T2
JRST %IFNOT ;NOT TRUE
%IFTRU: CALL SIXIN
JRST ILLCHR ;MUST BE END OF FILE
SETZ T2,
ROTC T1,6
CAIE T2,' %'
ROTC T1,-6
MOVEI T2,' %'
ROTC T1,-6
JRST %GOTO3 ;BRANCH TO THAT TAG
;HERE BECAUSE CONDITION NOT TRUE
%IFNOT: CALL SIXIN
JRST ILLCHR
JRST LEVEL2 ;ON TO OTHER THINGS
;HERE TO DO SS OR DD FIELD
LEVEL5: PUSH P,T1
CALL GETOPR ;GET OPERAND
JRST [POP P,T1 ;CLEAN OFF STACK
POP P,T1 ;POP OFF RETURN
JRST LEVEL2 ]
LDB T3,[POINT 6,T1,17] ;GET MODE
CAIE T3,27 ;IMMEDIATE ?
CAIN T3,37 ;OR ABSOLUTE ?
JRST LEVEL4
CAIL T3,60
LEVEL4: JRST [IDPB T1,DAT
LSH T1,-^D8
IDPB T1,DAT
MOVEI T1,2
ADDM T1,DTFINP
JRST .+1 ]
POP P,T1 ;GET POSITION
LSH T3,(T1)
MOVE T2,-2(P) ;GET POINTER TO OPCODE
LDB T1,T2 ;GET LOW ORDER BITS
ILDB T2,T2 ;GET HIGH ORDER BITS
DPB T2,[POINT 8,T1,27]
TRO T1,(T3) ;SET SS OR DD MODE
MOVE T2,-2(P) ;GET POINTER TO OPCODE
DPB T1,T2 ;SAVE LOW ORDER BITS
LSH T1,-^D8
IDPB T1,T2 ;SAVE HIGH ORDER BITS
RET
;HERE TO GET AN OPERAND
; CALL CALL GETOPR
; LOSE RETURN
; WIN WITH T1/ MODE,,ADR
GETOPR: TXZ FLG,F.HASH!F.PERC!F.LPAR
MOVSI AC1,400000 ;BUILD MODE HERE
GETOP0: CALL GETEXP
RET
LDB T1,CMDPTR ;GET BREAK CHAR
CAIN T1,"@"
JRST [ TLON AC1,10 ;BIT FOR INDIRECT
TXNE FLG,F.GEXP
JRST ILLCHR
JRST GETOP0]
CAIN T1,"#"
JRST [ TXON FLG,F.HASH
TXNE FLG,F.GEXP
JRST ILLCHR
JRST GETOP0]
CAIN T1,"-" ;IS THIS AUTO DECREMENT ?
JRST [TLON AC1,40 ;FLAG AUTO DECREMENT
TXNE FLG,F.GEXP ;WAS THERE ANY DATA ?
JRST ILLCHR
CALL GETCHR ;GET THE (
IDPB T1,CMDPTR
CAIE T1,"("
JRST ILLCHR
JRST GETOP5 ]
CAIN T1,"("
JRST [TXOE FLG,F.LPAR
JRST ILLCHR
HRR AC1,EXPRESS ;IN CASE INDEXED
TLNN AC1,10 ;HAVE A @ ALSO ?
TXNE FLG,F.GEXP ;WAS IT INDEXED ?
TLO AC1,60 ;REMEMBER WAS INDEXED
JRST GETOP5 ]
TXNN FLG,F.GEXP ;DID WE GET SOMETHING ?
JRST ILLCHR
HRR AC1,EXPRESS ;GET EXPRESSION
TXNE FLG,F.SREG
JRST [DPB AC1,[POINT 3,AC1,17]
JRST GETOP8 ]
TXNE FLG,F.HASH ;WAS THAT IMMEDIATE ?
JRST [TLO AC1,27 ;SET IMMEDIATE OR ABSOLUTE
JRST GETOP8 ]
TLO AC1,67
HRRZI T1,-4(AC1)
SUB T1,DTFINP
ANDI T1,177777
HRROM AC1,LSTIAD ;IN CASE ENDS WITH AN HT
HRR AC1,T1
JRST GETOP9
;HERE TO GET THE REGISTER NAME IN OPERAND SPECIFICATION
GETOP5: CALL GETREG ;GET REGISTER NAME
DPB T1,[POINT 3,AC1,17] ;PUT REGISTER NAME IN MODE
LDB T1,CMDPTR ;GET BREAK CHARACTER
CAIE T1,")"
JRST ILLCHR
GETOP6: CALL GETCHR ;GET NEXT CHARACTER
IDPB T1,CMDPTR
CAIN T1,"+" ;WAS THAT AUTO INCREMENT ?
JRST [TLON AC1,20 ;ALREADY SEEN "+"
TLNE AC1,40
JRST ILLCHR
JRST GETOP6 ]
TLNN AC1,70
TLO AC1,10
GETOP8: MOVEM T1,LSTIAD ;LAST ADDRESS INPUT
GETOP9: MOVE T1,AC1 ;PUT RESULT IN RIGHT REG
RETSKP FAST
;HERE TO GET A REGISTER ARGUMENT
GETREG: CALL GETEXP ;GET REGISTER NAME
JRST ILLCHR
TXNN FLG,F.SREG
JRST ILLCHR
MOVE T1,EXPRESS
HRLI T1,400000
MOVEM T1,LSTIAD ;LAST ADDRESS INPUT
RET
;HERE TO GET AN EXPRESSION
; CALL CALL GETEXP
; LOSE RETURN
; WIN RETURN EXPRESSION IN T1, AND FLAGS SET
GETEXP: SETZM EXPRES ;ACCUMULATED EXPRESSION
GTEXP1: TXZ FLG,F..ESC!F..SIM!F.GEXP!F.SYML!F.SYMB!F.TEXT!F.IOCT!F.IDEC!F.IHEX!F.SREG!F.FELE
GTEXP3: SETZM INPOPR ;CLEAR INPUT OPERATOR
SETZM REMAIN ;REMAINDER OF LAST DIVISION
SETZM OCTIN#
SETZM DECIN#
SETZM HEXIN#
SETZM SYMBOL
MOVE T1,[POINT 6,SYMBOL]
MOVEM T1,SYMPTR
GTEXP2: CALL GETCHR ;GET FIRST CHARACTER
CAIN T1," " ;WAS IT A BLANK ?
JRST GTEXP2 ;YES SO FLUSH IT
CAIA
LOOP: CALL GETCHR ;GET A COMMAND CHAR
IDPB T1,CMDPTR ;REMEMBER CHAR IN CASE NEED TO RESCAN
LOOP1: HRRZ T2,T1
LSH T2,-1
TRNE T1,1
SKIPA T2,@STATE
HLRZ T2,@STATE
JRST (T2) ;DISPATCH ON CHARACTER
;HERE WHEN ASSEMBLING NUMBER AND FIND A PERIOD
ASSPER: TXNN FLG,F.IDEC!F.IOCT
JRST ASSYMB
TXO FLG,F.IDEC
TXZ FLG,F.IOCT!F.IHEX
JRST ASYMB2
;HERE WHEN NUMBER MUST BE DECIMAL
ASSDEC: TXO FLG,F.IDEC
TXZ FLG,F.IOCT
;HERE WHEN ASSEMBLING A OCTAL, DECIMAL OR HEX NUMBER
ASSNUM: TXNN FLG,F.IDEC!F.IHEX
TXO FLG,F.IOCT
MOVE T2,OCTIN
LSH T2,3
ADDI T2,-60(T1)
MOVEM T2,OCTIN
MOVE T2,DECIN
IMULI T2,^D10
ADDI T2,-60(T1)
MOVEM T2,DECIN
MOVE T2,HEXIN
LSH T2,4
ADDI T2,-60(T1)
MOVEM T2,HEXIN
JRST ASYMB2
;HERE WHEN ENCOUNTER A PERCENT SIGN - POSSIBLE TAG OR REG NAME
ASSPRC: TXNN FLG,F.FELE ;HAVE WE DONE FIRST ELEMENT OF EXPRESSION ?
MOVE T2,SYMPTR ;GET POINTER TO SYMBOL
CAME T2,[POINT 6,SYMBOL] ;STARTED SYMBOL YET ?
JRST ACCUM ;CAN'T HAVE THIS IN MIDDLE !
;HERE WHEN ASSEMBLING A SYMBOL
ASSYMB: TXO FLG,F.SYMB
TXZ FLG,F.IDEC!F.IOCT!F.IHEX
ASYMB2: TXO FLG,F.GEXP ;GOT SOMETHING
CAIL T1,40+"A" ;CHECK FOR LOWER CASE
CAILE T1,40+"Z"
SUBI T1,40 ;CONVERT CHAR TO SIXBIT
MOVE T2,SYMPTR ;GET POINTER TO SYMBOL
CAME T2,[POINT 6,SYMBOL,35]
IDPB T1,SYMPTR ;ADD CHAR TO SYMBOL
JRST LOOP
;HERE IF END EXPRESSION WITH A SPACE
EXPSPC: TXNN FLG,F.FELE ;IS THIS FIRST ELEMENT OF EXPRESSION ?
TXNN FLG,F.SYMB ;EVALUATING A SYMBOL ?
JRST EXPLUS ;AFTER FIRST SUBEXPRESSION SAME AS PLUS
CALL EVLSYM ;FIND WHAT SYMBOL IS
RET
TLNN SYM,SMF.IN ;WAS THAT AN INSTRUCTION
JRST EXPLUS ;NO SO SAME AS PLUS
MOVE T1,1(SYM) ;GET VALUE
HRRZM T1,EXPRESS
RETSKP FAST
;HERE IF END EXPRESSION WITH A PLUS
EXPLUS: TDZA T1,T1 ;CODE FOR NEXT TIME IS 0
EXPMIN: MOVEI T1,1
JRST EXP.DO
EXPMUL: MOVEI T1,2
JRST EXP.DO
EXPDIV: MOVEI T1,3
JRST EXP.DO
EXPIOR: MOVEI T1,4
JRST EXP.DO
EXPAND: MOVEI T1,5
JRST EXP.DO
EXPXOR: MOVEI T1,6
EXP.DO: TXO FLG,F.FELE ;HAVE SEEN FIRST ELEMENT
MOVE T2,PRECED(T1) ;GET PRECEDENCE OF NEW OPERATOR
MOVE T3,INPOPR ;PREVIOUS OPERATOR
MOVE T3,PRECED(T3) ;GET PRECEDENCE OF OLD OPERATOR
CAMG T2,T3
JRST EXPDO5
PUSH P,EXPRESS ;SAVE PARTIAL EXPRESSION SO FAR
PUSH P,INPOPR ;AND PREVIOUS OPERATOR
SETZM EXPRESS ;INITIALIZE EXPRESSION
SETZM INPOPR
CALL EXPDO5 ;DO NEXT PART OF EXPRESSION
SOS -2(P) ;UNSKIP RETURN FROM ACCUM3
POP P,INPOPR ;PREVIOUS OPERATION
MOVE T2,EXPRESS ;LATEST ACCUMULATION
POP P,EXPRESS ;PREVIOUS ACCUMULATION
JRST ACCUM3
EXPDO5: PUSH P,T1 ;SAVE CODE FOR NEXT TIME
CALL ACCUM ;ACCUMULATE EXPRESSION
JRST TPOPJ ;CLEAN OFF STACK THEN RETURN
POP P,INPOPR ;NEXT INPUT OPERATION
JRST LOOP ;THEN DONE
;HERE WHEN USER TYPES A <CONTROL F> - FILL FIELD
CNTRLF: SKIPN T1,SYMBOL ;ARE WE BUILDING A SYMBOL ?
JRST ILLCHR ;DING HIM
MOVEI T1,[BYTE (7)10,40,10,10,40,10,0] ;BACKUP OVER ^F
MOVE T2,TTYBIT ;GET TTY BITS
TXNE T2,TF.RUB ;VIDEO TERMINAL ?
CALL TYPSTR ;YES SO CLEAN SCREEN
PUSH P,T4
PUSH P,T5
SETOM T5 ;ESTABLISH COUNTER
SETZM T4 ;ESTABLISH MATCH
CALL MATCH ;TRY TO FIND PARTIAL MATCH
JUMPE SYM,CNTLF5
AOSN T5
MOVE T4,(SYM) ;GET MATCH
MOVE T1,(SYM) ;GET NEW MATCH
SKIPA T2,[EXP -1] ;BUILD MASK
CNTLF3: LSH T2,6 ;SHRINK MASK
AND T1,T2 ;MASK NEW MATCH
AND T4,T2 ;MASK PREVIOUS MATCH
CAME T1,T4 ;MATCH LAST MATCH ?
JRST CNTLF3
RET
CNTLF5: JUMPE T4,CNTLF8 ;CHECK FOR NO MATCHES
XOR T4,SYMBOL ;LEAVE ONLY NEW CHARS
JUMPE T4,CNTLF7
CNTLF2: LSH T4,6
TLNN T4,770000 ;SHIFTED FAR ENOUGH ?
JRST CNTLF2
CNTLF6: SETZ T3,
LSHC T3,6
MOVEI T1,40(T3)
IDPB T1,CMDPTR
CALL TYPCHR
JUMPN T4,CNTLF6
CNTLF7: JUMPE T5,CNTLF9 ;NO BELL IF ONLY ONE MATCH
CNTLF8: MOVEI T1,7
CALL TYPCHR
CNTLF9: POP P,T5
POP P,T4
MOVE T1,[POINT 7,CMDLIN]
MOVEM T1,CMDTKR ;RESCAN THE LINE
MOVE T1,CMDPTR
MOVEM T1,CMDLIM
JRST LEVEL2
;ROUTINE TO COMBINE ELEMENTS OF EXPRESSION, MAY BE SUBR OR EXIT FROM GETEXP
ACCUM: LDB T1,CMDPTR ;THE BREAK CHAR WHICH GOT US HERE
CAIE T1,"(" ;WE ARE LOOKING FOR -(
JRST ACCUM2 ;DEFINATELY NOT
CALL RSCAN ;GET POINTER TO PREVIOUS CHAR
LDB T1,T2 ;GET PREVIOUS CHAR
CAIE T1,"-" ;WAS THIS AUTO DECREMENT ?
JRST ACCUM2 ;NO
MOVE T1,CMDPTR ;LIMIT
SKIPN CMDTKR ;ALREADY DOING A RESCAN ?
MOVEM T1,CMDLIM ;DOING ONE NOW
MOVEM T2,CMDTKR
MOVEM T2,CMDPTR
JRST ACCUM8
ACCUM2: SETZ T2, ;IN CASE FOLLOWING DOESN'T SET UP T2
TXZE FLG,F.SYMB
JRST [CALL EVLSYM
RET
MOVEM T1,T2 ;PUT IN RIGHT REG
JRST ACCUM3 ]
TXZE FLG,F.IOCT
MOVE T2,OCTIN
TXZE FLG,F.IDEC
MOVE T2,DECIN
TXZE FLG,F.IHEX
MOVE T2,HEXIN
ACCUM3: MOVE T1,EXPRES ;GET EXPRESSION SO FAR
MOVE T3,INPOPR ;GET INPUT OPERATOR
XCT [ ADD T1,T2
SUB T1,T2
IMUL T1,T2
IDIV T1,T2
IOR T1,T2
AND T1,T2
XOR T1,T2 ](T3)
CAIE T3,3 ;DID WE JUST DO A DIVISION ?
SETZ T2, ;NO SO NO REMAINDER
MOVEM T1,EXPRESS ;SAVE ACCUMULATED EXPRESSION
MOVEM T2,REMAIN ;SAVE NEW REMAINDER
ACCUM8: MOVEI T1,177777 ;MASK FOR 16 BITS
TXNE FLG,F.MCB ;ALLOWING LARGE ADDRESSES?
MOVEI T1,777777 ;YES, MASK FOR 18 BITS
ANDB T1,EXPRESS ;MASK OFF HIGH BITS
SETZM OCTIN
SETZM DECIN
SETZM HEXIN
SETZM SYMBOL
MOVE T2,[POINT 6,SYMBOL]
MOVEM T2,SYMPTR
RETSKP FAST
;HERE IF USER TYPES A CONTROL R
CNTRLR: CALL RSCAN
MOVEM T2,CMDPTR ;SAVE PUTTER WITHOUT CONTROL R
CALL CNTLR3
JRST LOOP
;HERE TO RETYPE COMMAND
CNTLR3: CALL CRLTYP ;TYPE A <CR><LF> TO BEGIN
MOVE T2,[POINT 7,CMDLIN] ;GET POINTER TO COMMAND LINE
CAMN T2,CMDPTR ;IS LINE EMPTY ?
JRST CRLTYP ;EXTRA FLOURISH TO END
CNTLR4: ILDB T1,T2 ;GET NEXT CHAR TO ECHO
CAIN T1,33 ;IS CHAR AN ALTOMODE ?
MOVEI T1,"$" ;YES SO SPECIAL ECHO
CALL TYPCHR ;ECHO THE CHAR
CAME T2,CMDPTR ;TYPED ENOUGH YET ?
JRST CNTLR4 ;LOOP BACK FOR REST OF CHARS
RET
;HERE TO BACKUP COMMAND POINTER
; CALL CALL RSCAN
; RETURN WITH T2 CONTAINING POINTER TO PREVIOUS CHAR
; T1 CONTAINS POINTER TO PREVIOUS-2 CHAR
RSCAN: SETZB T1,T2
MOVE T3,[POINT 7,CMDLIN]
RSCAN2: CAMN T3,CMDPTR ;HIT END YET ?
JRST R
MOVE T1,T2
MOVE T2,T3
IBP T3
JRST RSCAN2
;HERE WHEN USER TYPES A RUBOUT
COMRUB: CALL RSCAN ;BACK UP POINTER
JUMPE T1,CNTRLU ;IF NOTHING IS SAME AS ^U
MOVEM T1,CMDLIM
MOVEM T1,CMDPTR ;IN CASE CALL CNTLR3
MOVE T1,[POINT 7,CMDLIN]
MOVEM T1,CMDTKR ;RESCAN THE COMMAND
MOVE T1,TTYBIT ;GET TTY DESCRIPTION WORD
TXNN T1,TF.RUB ;IS THIS A VIDEO TERMINAL ?
JRST CMRUB3 ;GO DO "\X" TYPE ECHO
LDB T1,T2 ;GET CHAR JUST RUBBED OUT
CAIN T1,33 ;IS IT AN ALTMODE ?
MOVEI T1,"$"
CAIGE T1," " ;BE SURE USUAL PRINTING CHAR
JRST [ CALL CNTLR3 ;ECHO COMMAND
JRST CMRUB8 ]
MOVEI T1,[BYTE (7)10,40,10,0]
CALL TYPSTR
JRST CMRUB8
CMRUB3: MOVEI T1,"\"
CALL TYPCHR
LDB T1,T2
CAIN T1,33 ;WAS THIS AN ALTMODE ?
MOVEI T1,"$"
CALL TYPCHR ;ECHO CHAR JUST RUBBED OUT
CMRUB8:
CMRUB9: MOVE T1,[ESCSAV,,BYTCNT] ;RESTORE THINGS SET WITH
BLT T1,BYTCNT+2 ; ESCAPE COMMANDS
JRST LEVEL2
;HERE WHEN USER TYPES A CONTROL U
CNTRLU: MOVEI T1,[BYTE (7)7,"x","x","x",11,0]
CALL TYPSTR
JRST CMRUB9
;HERE WHEN USER TYPES A CONTROL W - DELETE FIELD FROM TYPEIN
CNTRLW: CALL RSCAN ;BACKUP POINTER
JUMPE T1,CNTRLU ;IF NOTHING SAME AS ^U
SKIPA T2,T1
CNTLW1: CALL RSCAN
MOVEM T2,CMDLIM
MOVEM T2,CMDPTR
MOVE T1,[POINT 7,CMDLIN]
MOVEM T1,CMDTKR
JUMPE T1,CNTRLU ;IF NOTHING IS SAME AS ^U
LDB T2,CMDPTR ;GET LAST CHAR
CAIN T2,"."
JRST CNTLW1 ;KEEP BACKING UP
CAIL T2,"0"
CAILE T2,"Z"+40
JRST CNTLW9
CAILE T2,"9"
CAIL T2,"A"+40
JRST CNTLW1 ;KEEP BACKING
CAIL T2,"A"
CAILE T2,"Z"
JRST CNTLW9
JRST CNTLW1
CNTLW9: CALL CNTLR3 ;RETYPE THE LINE
JRST LEVEL2 ;THEN REDO IT
;HERE WHEN COMMAND STARTS WITH A QUOTE
QUOTE: TXNE FLG,F.GEXP ;DID ANYTHING PRECEDE THE " ?
JRST ILLCHR ;BOUNCE REQUEST
HRR STATE,.JBFF## ;GET WHERE WE WILL PUT STATE TABLE
MOVEI T1,100 ;NEED 64 WORDS FOR TABLE
CALL GETCOR ;ALLOCATE CORE
HRRM STATE,.JBFF## ;SO WE DON'T FORGET LATER
MOVEI T2,QUOTEB ;NEXT CHAR IS THE BREAK CHAR
CALL QUOTET ;SET UP TABLE
JRST LOOP
;HERE WHEN GET BREAK CHARACTER AFTER QUOTE
QUOTEB: TXO FLG,F.TEXT ;NOW DOING TEXT
MOVEI T2,QUOTEC ;MOST CHARACTERS NOW ARE TEXT
CALL QUOTET ;SETUP DISPATCH TABLE
ROT T1,-1 ;DIVIDE BREAK CHAR BY 2
ADDI T1,(STATE) ;POINT TO STATE TABLE
MOVEI T2,QUOTEE ;WHEN GET ANOTHER BREAK ARE DONE
HRRM T2,(T1)
SKIPL T1 ;WAS CHAR EVEN ?
MOVSS @T1 ;YES SO DISPATCH FROM LEFT OF WORD
JRST LOOP
;HERE WHEN GET ANOTHER TEXT CHAR
QUOTEC: ANDI T1,177 ;STRIP PARITY
IDPB T1,DAT ;PUT INTO DATA AREA
SKIPL T1,DTFINP ;ALREADY SETUP DTFINP ?
SKIPA T1,DOT ;NO SO USE DOT
AOS T1 ;ADVANCE IT
MOVEM T1,DTFINP
JRST LOOP ;GO GET NEXT CHAR
;HERE WHEN GET TERMINAL BREAK
QUOTEE: TXZ FLG,F.TEXT ;NO LONGER DOING TEXT
HRRI STATE,STATE0
JRST LEVEL3
;HERE TO SETUP DISPATCH TABLE
QUOTET: HRLI T2,(T2)
MOVEM T2,(STATE)
HRLI T2,(STATE) ;BUILD BLT POINTER
HRRI T2,1(STATE) ;FINISH POINTER
BLT T2,77(STATE)
MOVEI T2,CNTRLR ;DISPATCH FOR CONTROL R
HRLM T2,11(STATE)
MOVEI T2,CNTRLU ;DISPATCH FOR CONTROL U
HRRM T2,12(STATE)
MOVEI T2,CNTRLW ;DISPATCH FOR CONTROL W
HRRM T2,13(STATE)
MOVEI T2,CNTRLZ ;DISPATCH FOR CONTROL Z
HRLM T2,15(STATE)
MOVEI T2,COMRUB ;DISPATCH FOR RUBOUT
HRRM T2,77(STATE)
RET
;HERE WHEN USER TYPES A CR COMMAND
COM.CR: CALL STEFIN ;DO DEPOSIT MAYBE
TXZN FLG,F..ESC ;WAS THIS AN <ESCAPE><CR> ?
JRST LEVEL0 ;NO SO CLEAN UP THEN GET MORE CHARS
CALL DOTSWP ;LOAD ALTERNATE DOT
CALL COMLF1 ;DISPLAY NEW DOT
JRST LEVEL0
;HERE WHEN USER TYPES A BACK SLASH
BKSLSH: CALL B3.TYP
PUSH P,DOT
PUSH P,DOTFOO
MOVE DOT,LSTIAD
CALL DATYPE
POP P,DOTFOO
POP P,DOT
JRST LEVEL2
;HERE WHEN USER TYPES IN AN ILLEGAL CHARACTER
ILLCHR: MOVEI T1,[BYTE (7)7,"?",7,11,7,0]
MOVEI T1,[ASCIZ /
%DDT11-W-QDT, Question mark - Dink - Tab.
/]
ILLCH0: CALL TYPSTR
TXO FLG,F.CERR ;IN CASE THIS IS A COMMAND FILE
MOVE T1,[ESCSAV,,BYTCNT] ;RESTORE THINGS SET BY ESCAPE
BLT T1,BYTCNT+2 ; COMMANDS
JRST LEVEL2
;HERE WHEN THE USER TYPES A TAB COMMAND
COM.HT: CALL STEFIN ;DO DEPOSIT MAYBE
CALL CRLTYP ;TYPE A CR/LF
CALL DOTSAV ;SAVE CURRENT DOT, DOTFOO, FOR LATER
MOVE DOT,LSTADR ;LAST ADDRESS TYPED IN OR OUT
CALL COMLF1
JRST LEVEL2
;HERE TO SAVE CURRENT DOT, DOTFOO FOR LATER $/ ETC.
DOTSAV: MOVEM DOT,DOTOLD ;SAVE DOT
MOVE T1,DOTFOO ;GET DOTFOO
MOVEM T1,DTFOLD ;SAVE IT ALSO
RET
;HERE TO SET DOTFOO TO NEXT VALUE
NDTFOO: MOVE T1,DOTFOO ;CURRENT DOTFOO
CALL DOTINC
MOVEM T1,DOTFOO
RET
;HERE TO SET DTFINP TO NEXT VALUE
NDTFIN: MOVE T1,DTFINP ;GET CURRENT DTFINP
CALL DOTINC ;INCREMENT IT
MOVEM T1,DTFINP ;RESTORE NEW DTFINP
RET
;HERE TO GET THE NEXT VALUE FOR DOT
NXTDOT: MOVE T1,DOT
CALL DOTINC
MOVEM T1,DOT
RET
;GET NEXT VALUE FOR LOCATION POINTER
; CALL MOVE T1,<CURRENT VALUE>
; CALL DOTINC
DOTINC: SKIPL T1 ;DID IT GET LOADED ?
JRST [SKIPL T1,DOT ;START WITH DOT
HRLI T1,777777
RET ]
SKIPE PDP8F ;OR A PDP8 ?
AOJA T1,[TRZ T1,700000 ;15 BIT ADR
RET ]
TLNN T1,200000 ;WAS THIS A REGISTER ADDRESS ?
JRST [AOS T1 ;INCREMENT BY 1 FOR REGISTERS
TRZ T1,777770 ;STRIP EXTRA BITS
RET ]
ADDI T1,2
TXNE FLG,F.MCB
TRZ T1,1
TXNN FLG,F.MCB
TRZ T1,600001
RET
;HERE IF END EXPRESSION WITH AN LEFT ANGLE BRACKET
LFTANG: CALL ACCUM ;FINISH EXPRESSION
RET ;LOSE
HRROM T1,LFTSAV ;SAVE IT
JRST GETEXP
;HERE WHEN THE USER TYPES A LINE FEED COMMAND
COM.LF: CALL STEFIN ;DO DEPOSIT MAYBE
TXZE FLG,F..ESC ;WAS <LF> PRECEDED BY AN <ESCAPE> ?
CALL DOTSWP ;YES SO SPECIAL HANDLING
MOVEI T1,15 ;CARRIAGE RETURN
CALL TYPCHR
MOVE T1,DOTFOO
SETZM DOTFOO ;DONE WITH IT NOW
CALL DOTINC
MOVEM T1,DOT
CALL COMLF1
JRST LEVEL2
COMLF1: TXO FLG,F.LOPN ;FLAG LOCATION IS OPEN
COMLF2: MOVE T1,DOT
CALL ADRTYP ;TYPE ADDRESS
MOVEI T1,"/"
TXNE FLG,F.LBKT ;FOLLOWING A LEFT BRACKET ?
MOVEI T1,"[" ;YES SO DECLARE IT
CALL TYPCHR
COMLF3: HRRZ T1,DOT
CAMGE T1,CACHEL ;IS THIS ALREADY IN CACHE ?
SETZM CACHEL ;YES SO FLUSH CACHE
COMLF4: CALL B3.TYP ;TYPE 3 SPACES
TXO FLG,F.CACH ;USE CACHE AFTER 1ST WORD
TXNN FLG,F.LBKT ;DOING LFT BRACKET STUFF ?
PJRST DATYPE
MOVEI T1,2 ;NUMERIC STYLE
MOVEI T5,1 ;ONE WORD
PJRST RETYPE
;HERE WHEN USER TYPES A BACK ARROW
BARROW: CAMN T4,DAT ;FOLLOWING TYPEIN ?
JRST BARRW5 ;NO
BARRW3: ILDB T1,T4 ;GET LOW ORDER BYTE
SETZ T2, ;IN CASE ODD NUMBER OF BYTES
CAME T4,DAT
ILDB T2,T4 ;GET HIGH ORDER BYTE
DPB T2,[POINT 8,T1,27]
TXNN FLG,F.MCB
JRST BARRW4
SETZ T2,
CAME T4,DAT
ILDB T2,T4
DPB T2,[POINT 8,T1,19]
BARRW4: CALL ADRTYP ;DISPLAY AS AN ADDRESS
CAME T4,DAT ;DONE ALL YET ?
JRST [CALL COMTYP
JRST BARRW3 ] ;LOOP BACK FOR REST
CALL B3.TYP
JRST LEVEL2
BARRW5: TXNN FLG,F.LOPN ;IS LOCATION OPEN ?
JRST ILLCHR ;NO SO BOUNCE COMMAND
MOVEI T1,0 ;OUTPUT AS INSTRUCTION
MOVEI T5,2 ;WANT ONLY 1 WORD
CALL RETYPE ;NO RETYPE STUFF
JRST LEVEL2
;HERE WHEN USER TYPES A SEMICOLON
SEMICL: CAMN T4,DAT ;FOLLOWING TYPEIN ?
JRST SMICL5 ;NO
JRST LEVEL2
SMICL5: TXNN FLG,F.LOPN ;IS LOCATION OPEN ?
JRST ILLCHR ;IF NOT CAN'T HANDLE
HRRZ T1,O.MODE ;SET RIGHT MODE
HRRZ T5,BYTCNT
CALL RETYPE
JRST LEVEL2
RETYPE: PUSH P,O.MODE ;SAVE OUTPUT MODE
HRRM T1,O.MODE
PUSH P,BYTCNT
HRRM T5,BYTCNT
SETZM DOTFOO
TXO FLG,F.CACH ;USE CACHE IF POSSIBLE
CALL DATYPE ;TYPE DATA
POP P,BYTCNT
POP P,O.MODE ;RESTORE OUTPUT MODE
RET
;HERE WHEN USER TYPES =
EQUALS: CAMN T4,DAT ;FOLLOWING TYPEIN ?
JRST EQUAL5 ;NO
TXNE FLG,F.SYML ;DID TYPEIN INCLUDE A SYMBOL ?
TLNN SYM,SMF.RG ;WAS THAT A REGISTER NAME ?
CAIA
CALL PCNTYP ;TYPE A %
EQUAL2: ILDB T1,T4
SETZ T2,
CAME T4,DAT
ILDB T2,T4
DPB T2,[POINT 8,T1,27]
TXNN FLG,F.MCB
JRST EQUAL3
SETZ T2,
CAME T4,DAT
ILDB T2,T4
DPB T2,[POINT 8,T1,19]
EQUAL3: MOVEM T1,LSTADR ;LAST OUTPUT ADDRESS
MOVEM T1,ESC.Q. ;IN CASE OF <ESCAPE>Q
CALL RADTYP
CAMN T4,DAT
JRST [CALL B3.TYP ;TYPE 3 SPACES
JRST LEVEL2 ]
CALL COMTYP
JRST EQUAL2
;HERE TO RETYPE PREVIOUSLY OUTPUT DATA IN CURRENT RADIX
EQUAL5: TXNN FLG,F.LOPN ;IS LOCATION OPEN ?
JRST ILLCHR ;NO SO ILLEGAL
MOVEI T1,2 ;OUTPUT AS NUMERIC
SKIPN T5,DOTFOO
HRRZ T5,DOT
SUBI T5,-2(DOT)
ANDI T5,777777 ;HALF WORD ONLY
LSH T5,-1
CALL RETYPE
JRST LEVEL2
;HERE WHEN USER TYPES [ AT END OF A NUMBER
OPLBKT: TXOA FLG,F.LBKT ;REMEMBER HOW WE OPENED
;HERE WHEN USER TYPES / AT END OF A NUMBER
OPNLOC: TXZ FLG,F.LBKT
TXZE FLG,F..ESC ;ESCAPE /?
TXO FLG,F.NOUT ;YES, SUPPRESS ALL OUTPUT UNTIL NEXT INPUT
TXZN FLG,F.MASK ;ASKING ABOUT THE MASK ?
JRST OPNLC4 ;LOOKING AT 11
TXO FLG,F.MOPN ;MASK NOW OPEN
CALL B3.TYP ;TYPE 3 SPACES
MOVEI T3,S.MASK-1 ;MAKE A POINTER TO THE MASK
SKIPN T2,ESCOCT ;DID WE GET A NUMBER WITH THE COMMAND ?
MOVEI T2,1 ;DEFAULTS TO 1
CAIL T2,MASKSZ ;ASKING FOR TOO MUCH ?
MOVEI T2,MASKSZ ;YES SO GIVE LIMIT
CAIA
OPNLC2: CALL BLANKT
AOS T3
MOVE T1,(T3)
MOVEM T1,LSTADR ;IN CASE OF HT COMMAND
MOVEM T1,ESC.Q. ;IN CASE USES <ESCAPE>Q
CALL RADTYP ;DISPLAY IT
SOJG T2,OPNLC2
CALL TABTYP
JRST LEVEL2
;HERE BECAUSE REALLY OPENING A LOCATION
OPNLC4: CALL DOTSAV ;SAVE DOT FOR AN ESCAPE LF COMMAND
HRRO DOT,EXPRESS
TXNE FLG,F.SYML ;WAS SYM LOADED ?
TLNN SYM,SMF.RG
CAIA
TLZ DOT,377777
SETZM DOTFOO
TXO FLG,F.LOPN ;FLAG LOCATION IS OPEN
CALL COMLF3
JRST LEVEL2
;HERE WHEN USER TYPES AN UP ARROW
UARROW: CALL STEFIN
TXZE FLG,F..ESC ;WAS <LF> PRECEDED BY AN <ESCAPE> ?
CALL DOTSWP ;YES SO SPECIAL HANDLING
CALL CRLTYP
SETZM DOTFOO
TLNN DOT,400000 ;WAS ADR SET ?
TLO DOT,777777
MOVEI T1,-1 ;IN CASE REGISTER MODE
TLNN DOT,200000 ;REG OR MEM ?
JRST COMAR0 ;REG - GO DO IT
MOVNI T1,2 ;IN CASE "[" MODE
TXNE FLG,F.LBKT ;IS IT
JRST COMAR0 ;YES
MOVN T1,BYTCNT ;NUMBER OF BYTES
SKIPE PDP8F
JRST COMAR0
HRRZ T2,O.MODE ;GET OUTPUT MODE
JUMPE T2,COMAR2 ;SYMBOLIC ?
CAIN T2,1 ; OR ADDRESS ?
ASH T1,1 ;CONVERT WORD COUNT TO BYTES
CAIN T2,2 ;OR NUMERIC
ASH T1,1 ;CONVERT WORD COUNT TO BYTES
COMAR0: ADD T1,DOT
TLNN DOT,200000 ;WAS THIS A REGISTER ?
ANDI T1,7 ;IN CASE WRAPPED AROUND
SKIPE PDP8F ;IS THIS A PDP8 ADDRESS ?
TRZA T1,700000
ANDI T1,-1
TXNN FLG,F.MCB
ANDI T1,177777
HRRM T1,DOT
CALL COMLF1 ;REST LIKE A LINE FEED COMMAND
JRST LEVEL2
;HERE IF DID UP ARROW WHEN IN SYMBOLIC MODE
; TRY TO MAKE A GUESS HOW FAR BACK TO GO
COMAR2: TXNE FLG,F.MCB
TRZ DOT,1
TXNN FLG,F.MCB
TRZ DOT,600001 ;INSTRUCTIONS BEGIN ON WORD BOUNDRY
TXZ FLG,F.CACH ;DON'T USE CACHE
MOVEI T4,1 ;TRY ONE WORD INSTRUCTION FIRST
;HERE TO COUNT WORDS IN INSTRUCTION
COMAR3: MOVE T2,T4 ;NUMBER OF WORDS TO LOOK FOR
ASH T2,1 ;TIMES 2 FOR BYTES
MOVEI T1,(DOT) ;CURRENT ADR
SUBI T1,(T2) ;BACK UP CURRENT ADR
CALL CNINWD ;COUNT WORDS IN INSTRUCTION AT ADR
JRST COMAR8 ;NOT AN INSTRUCTION
CAIE T4,(T1) ;IS THAT WHAT WE WANTED ?
JRST COMAR8 ;NO
SUBI DOT,(T4)
SUBI DOT,(T4)
CALL COMLF1 ;PRINT INSTRUCTION
JRST LEVEL2
COMAR8: AOS T4 ;TRY FOR LARGER INSTRUCTION
CAIE T4,4 ;IS THAT TOO LARGE ?
JRST COMAR3 ;NO
SUBI DOT,2 ;JUST BACK UP ONE WORD
CALL COMLF1
JRST LEVEL2
;HERE TO COUNT WORDS IN AN INSTRUCTION
; CALL MOVE T1,<ADR>
; CALL CNINWD
; ERROR RETURN
; WIN RETURN NUMBER OF WDS IN T1
CNINWD: MOVEI T2,2 ;TRY FOR 2 BYTES
SKIPE PDP8F ;UNLESS PDP8
MOVEI T2,1 ;IS PDP8 SO ONLY ONE WORD
MOVEI T2,2 ;NUMBER OF BYTES TO TRY FOR
CALL GETWRD ;TRY TO GET THE DATA
RET ;LOSES
CALL INVLFN ;SEE IT THERE IS ANY SUCH INSTRUCTION
RET ;NO = LOSE
MOVEI T2,1 ;ONE FOR INSTRUCTION
LDB T3,[POINT 6,T1,29] ;GET SS FIELD
TLNE SYM,SMF.SS ;IS THIS SSDD FORMAT ?
CALL CNIWD3 ;YES SOADJUST NUMBER OF WDS IN INSTRUCTION
LDB T3,[POINT 6,T1,35] ;GET DD FIELD
TLNE SYM,SMF.DD!SMF.SS ;IS DD PRESENT ?
CALL CNIWD3 ;YES SO ADJ WORD COUNT
HRRZ T1,T2 ;NUMBER OF WORDS
RETSKP FAST
CNIWD3: CAIE T3,27 ;IS THIS IMMEDIATE (#FOO)
CAIN T3,37 ;OR ABSOLUTE
AOS T2 ;YES SO ANOTHER WORD IN INSTRUCTION
LDB T3,[POINT 3,T3,32]
CAIE T3,6 ;IS THIS RELATIVE
CAIN T3,7 ;OR RELATIVE DEFERRED ?
AOS T2 ;YES SO ANOTHER WORD
RET
;HERE WHEN THE USER TYPE A ^Z
CNTRLZ: MONRT. ;BACK TO THE MONITOR WE GO
JRST LEVEL0 ;USER TYPED .CONTINUE
;HERE IF USER ENDS AN EXPRESSION WITH A ">"
SUPLIM: SKIPE T1,LFTSAV
MOVEM T1,SBEGIN ;SET LOWER LIMIT FOR SEARCH
MOVE T1,EXPRESS ;GET EXPRESSION
HRRZM T1,S..END ;SET UPPER LIMIT FOR SEARCH
JRST LEVEL2
;HERE IF USER ENDS SYMBOL WITH A "?"
QUEST.: SKIPN T1,SYMBOL ;WERE WE BUILDING A SYMBOL ?
JRST ILLCHR ;NO SO DING HIM
PUSH P,T5
SETO T5, ;COUNT MATCHES
CALL MATCH ;TRY TO FIND A PARTIAL MATCH
JUMPE SYM,QUEST5 ;IN CASE CAN'T FIND ANY MATCHES
CALL CRLTYP ;BEGIN WITH <CR><LF>
MOVEI T1,[ASCIZ \following are partial matches
\]
AOSN T5
CALL TYPSTR
CALL TABTYP ;AND ADD A <HT>
MOVE T1,(SYM) ;GET SYMBOL NAME
CALL SIXTYP
MOVEI T1,[ASCIZ \ = \]
CALL TYPSTR
TLNE SYM,SMF.RG ;IS THIS A REGISTER DEFINITION ?
CALL PCNTYP ;TYPE A "%"
HRRZ T1,1(SYM) ;GET VALUE OF SYMBOL
CALL RADTYP ;TYPE VALUE IN CURRENT RADIX
MOVEI T1,[ASCIZ \ spd\]
TLNE SYM,SMF.SU ;IS SYMBOL SUPPRESSED ?
CALL TYPSTR ;YES
MOVEI T1,[ASCIZ \ opcode\]
TLNE SYM,SMF.IN ;IS THIS AN OPCODE ?
CALL TYPSTR ;YES
SKIPN 3(SYM) ;WAS THERE A SOURCE ?
JRST QUEST4 ;NO
TYPE < defined in >
MOVE T1,3(SYM) ;GET SOURCE
CALL SIXTYP
QUEST4: RET
QUEST5: MOVEI T1,[ASCIZ \ no partial matches for symbol\]
AOSN T5 ;FIND ANY MATCHES ?
CALL TYPSTR
POP P,T5
CALL CNTLR3 ;RETYPE THE COMMAND
JRST LOOP
;HERE TO TRY TO FIND A PARTIAL MATCH FOR A SYMBOL
; CALL SKIPN T1,SYMBOL ;WERE WE BUILDING A SYMBOL ?
; JRST ILLCHR ;DON'T CALL MATCH
; CALL MATCH
; RETURN WITH SYM SETUP WITH PARTIAL MATCH
; WITH (SYM) = 0 WHEN FOUND ALL MATCHES
MATCH: CALL RSCAN
MOVEM T2,CMDPTR ;DELETE THE "?" OR <CONTROL F>
SKIPA T3,[770000,,0] ;BUILD MASK TO TEST UNDER
MATCH0: ASH T3,-6 ;ENLARGE THE MASK
MOVE T1,T3 ;COPY SUGGESTED MASK
AND T1,SYMBOL
CAME T1,SYMBOL ;IS MASK LARGE ENOUGH ?
JRST MATCH0 ;NO SO INCREASE SIZE
MOVE SYM,SYMBEG ;POINT TO THE FIRST SYMBOL
MATCH2: MOVE T1,(SYM) ;GET SYMBOL NAME
AND T1,T3 ;MASK OFF
CAME T1,SYMBOL ;DOES THIS MATCH ?
JRST MATCH4 ;NO
HLL SYM,2(SYM) ;GET FLAGS FOR THE SYMBOL
SKIPE PDP8F ;DOING PDP8 SYMBOLS ?
TLC SYM,SMF.P8
TLNE SYM,SMF.P8
JRST MATCH4
HLL SYM,2(SYM) ;SO SMF.P8 RIGHT
CALL @(P)
MATCH4: MOVEI SYM,4(SYM)
CAME SYM,SYMEND ;HIT END ?
JRST MATCH2
SETZ SYM, ;FLAG ALL DONE
RET
;HERE TO DO DEPOSIT MAYBE AFTER CR OR LF OR UP ARROW
STEFIN: MOVE T1,[POINT 8,DATA] ;VIRGIN DATA POINTER
SKIPE PDP8F ;WAS THIS A PDP8 LOOK ?
HRLI T1,(POINT 12)
CAMN T1,DAT ;DID USER TYPE ANYTHING ?
RET ;NO SO DONE
TXZE FLG,F.MOPN ;IS MASK OPEN ?
JRST SETMSK ;SET MASK
TXZN FLG,F.LOPN ;IS LOCATION OPEN ?
RET ;NO SO JUST RETURN
TXNN FLG,F.WENB ;WAS PATCHING ENABLED ?
JRST WRTLCK ;IS WRITE LOCKED
SKIPL T1,LSTIAD ;LAST ADDRESS GIVE BY USER
MOVE T1,LSTADR
MOVEM T1,LSTADR ;SAVE IT
MOVEM T1,ESC.Q. ;ALSO USE FOR <ESCAPE>Q
SETZM LSTIAD
MOVE T1,DTFINP ;GET NEW DOTFOO
MOVEM T1,DOTFOO ;AND SAVE IT
SETZM DTFINP
MOVEI T1,(DOT) ;WHERE TO PUT DATA
TLNE DOT,200000 ;IS THIS MEMORY OR REGISTER
JRST STEFN5 ;MUST BE MEMORY
SETZM DOTFOO ;SO FIRST CALL WORKS
MOVE T3,[POINT 8,DATA] ;POINTER TO DATA
STEFN3: CALL NDTFOO ;GET NEXT DOTFOO
SETZ T2, ;IN CASE ODD NUMBER OF BYTES
ILDB T1,T3 ;GET LOW ORDER BYTE
CAME T3,DAT ;DONE ALL BYTES ?
ILDB T2,T3 ;GET HIGH ORDER BITS
DPB T2,[POINT 8,T1,27] ;PUT HIGH ORDER WITH LOW ORDER
HRRZ T2,DOTFOO ;GET ADDRESS
CAIN T2,7 ;IS THIS THE PC ?
ANDI T1,177776 ;BE SURE IS EVEN
MOVEM T1,SIMREG(T2) ;STORE DATA
CAME T3,DAT ;WAS THAT END OF DATA ?
JRST STEFN3 ;LOOP BACK FOR REST
RET
STEFN5: CALL PUTBYT ;PUT DATA INTO 11
NOP
RET
;HERE IF THERE IS AN ATTEMPT TO WRITE WITHOUT /PATCH
WRTLCK: TYPE <
?patching was not enabled by /PATCH
>
JRST LEVEL0
;HERE TO SET MASK
SETMSK: SETZ T4, ;INDEX FOR MASK
STMSK1: ILDB T2,T1 ;GET NEXT BYTE
SETZ T3, ;IN CASE DONE
CAME T1,DAT ;DONE EVERYTHING YET ?
ILDB T3,T1
DPB T3,[POINT 8,T2,27]
HRROM T2,LSTADR ;SAVE IN CASE OF HT
MOVEM T2,ESC.Q. ;SAVE IN CASE <ESCAPE>Q
HRRM T2,S.MASK(T4) ;SET MASK
CAME T1,DAT ;ALL DONE YET ?
AOJA T4,STMSK1 ;NOT YET - GO SET REST
RET
SUBTTL ESCAPE COMMANDS
;HERE IF USER TYPES ESCAPE
ESCAPE: CALL ACCUM ;IN CASE ANYTHING ALREADY IN PROGRESS
RET
HRRI STATE,STATSC ;SET ESCAPE FLAG
SETZM ESCOCT ;INITIAL OCTAL ARGUMENT
SETZM ESCDEC ;INITIAL DECIMAL ARGUMENT
JRST LOOP
ESCESC: TXO FLG,F..ESC
JRST LOOP
;HERE TO ACCUMULATE NUMBER AFTER ESCAPE
ESC...: TXO FLG,F.IDEC ;NUMBER IS DECIMAL
MOVE T1,ESCDEC ;GET DECIMAL VERSION
MOVEM T1,ESCOCT ;AND FORCE IT DECIMAL
JRST LOOP
ESC..8: TXO FLG,F.IDEC ;NUMBER IS DECIMAL
ESC..0: MOVE T2,ESCOCT
IMULI T2,^D8
ADDI T2,-60(T1) ;ACCUMULATE NUMBER
MOVEM T2,ESCOCT ;SAVE UPDATED NUMBER
MOVE T2,ESCDEC
IMULI T2,^D10
ADDI T2,-60(T1) ;ACCUMULATE NUMBER
MOVEM T2,ESCDEC ;SAVE UPDATED NUMBER
TXNE FLG,F.IDEC ;WANT DECIMAL ARGUMENT ?
MOVEM T2,ESCOCT ;YES SO FORCE IT
JRST LOOP
;HERE WHEN USER TYPES "(" AFTER AN ESCAPE
ESCPAR: SKIPE ESCOCT ;DID USER ALSO TYPE A # ?
JRST ILLCHR ;YES CONFUSED
PUSH P,EXPRES ;SAVE EXPRESSION SO FAR
PUSH P,FLG ;SAVE THE FLAG BITS
HRRI STATE,STATE0 ;PLAIN EXPRESSION EVALUATION
CALL GETEXP ;GET EXPRESSION
JRST [POP P,T1
JRST TPOPJ]
HRRM T1,ESCOCT ;THAT WAS NUMERIC ARGUMENT
POP P,T1 ;GET THE OLD FLAGS
TXNE T1,F..ESC ;DOUBLE ESCAPE?
TXO FLG,F..ESC ;YES, RESET IT
POP P,EXPRESS ;GET OLD EXPRESSION BACK
LDB T1,CMDPTR ;GET BREAK CHARACTER
CAIE T1,")"
JRST ILLCHR
HRRI STATE,STATSC
TXZ FLG,F..SIM!F.GEXP!F.SYML!F.SYMB!F.TEXT!F.IOCT!F.IDEC!F.IHEX!F.SREG!F.FELE
JRST GTEXP3 ;FINISH PARTIAL EXPRESSION
;HERE WHEN A USER TYPES ESCAPE / OR ESCAPE [
ESC.SL:
;HERE WHEN USER TYPES ESCAPE LF
ESC.LF:
;HERE WHEN USER TYPES ESCAPE CR
ESC.CR:
;HERE WHEN USER TYPES ESCAPE UPARROW
ESC.UP: HRRI STATE,STATE0 ;FIX DISPATCH TABLE POINTER
TXO FLG,F..ESC ;REMEMBER WE SAW <ESCAPE>
JRST LOOP1 ;THEN EXIT GETEXP
;HERE TO EXCHANGE OLD DOT, DOTFOO, & DOTFLG
DOTSWP: EXCH DOT,DOTOLD ;EXCHANGE NEW AND OLD DOT
MOVE T1,DOTFOO ;GET DOTFOO
EXCH T1,DTFOLD ;EXCHANGE WITH OLD ONE
MOVEM T1,DOTFOO ;AND SET NEW DOTFOO
RET
ESCP..: JRST ESC..P ; PUNCH NEW BIN FILE
ESCD..: JRST ESC..D ; DUMP TO DISK
ESCY..: JRST ESC..Y ; READ IN A COMMAND FILE
;HERE FOR <ESCAPE>M - REFERS TO THE MASK
ESC..M: TXO FLG,F.MASK ;MASK REFERENCED
JRST ESCMD8 ;FINISH COMMAND
;HERE FOR ESCAPE K - KILL THE SYMBOL
ESC..K: JUMPE SYM,ILLCHR ;DID A SYMBOL PRECEDE $K ?
CALL B3.TYP ;TYPE 3 SPACES ;TYPE TAB SO HE KNOWS HE WON
MOVSI T1,SMF.SU ;FLAG TO SUPRESS OUTPUT
IORM T1,2(SYM) ;SUPRESS SYMBOL
MOVE T1,(SYM) ;GET SYMBOL
TXZE FLG,F..ESC ;DID HE WANT TO FLUSH SYMBOL ?
CALL DELSYM ;YES SO FORGET IT
JRST LEVEL2
ESC..R: TXNN FLG,F.IDEC ;WAS ARGUEMNT DECIMAL
SKIPA T1,ESCOCT ;NO SO USE OCTAL
MOVE T1,ESCDEC
CAIG T1,^D16
CAIG T1,1 ;IS RADIX REASONABLE ?
JRST ILLCHR ;NO SO FLUSH REQUEST
HRRM T1,ORADIX ;YES SET NEW RADIX
TXZN FLG,F..ESC ;SETTING PERMANENT MODE ?
JRST ESCMD8 ;NOT PERMANENT MODE
HRLM T1,ORADIX ;YES
JRST ESCMD7 ;EXIT
ESC..B: SKIPA T1,[MODBYT] ;SET BYTE MODE
ESC..A: MOVEI T1,MODADR ;SETTING ADDRESS MODE
JRST ESCMOD
ESC..S: SKIPA T1,MODINS ;SET INSTRUCTION MODE
ESC..C: MOVEI T1,MODNUM ;SETTING NUMERIC MODE
JRST ESCMOD
ESC..F: MOVEI T1,MODR50 ;SETTING RADIX50 MODE
JRST ESCMOD
ESC..I: SKIPA T1,[MODEBC] ;SETTING EBCDIC OUTPUT
ESC..T: MOVEI T1,MODASC ;SETTING ASCII OUTPUT
ESCMD0: MOVE T2,ESCOCT ;GET ARGUMENT
SKIPN T2
MOVEI T2,2 ;DEFAULT IS 2 BYTES
JRST ESCMD2
ESCMOD: MOVE T2,ESCOCT ;GET ARGUMENT
SKIPN T2
MOVEI T2,1 ;DEFAULT IS 1
ESCMD2: HRRM T2,BYTCNT
HRRM T1,O.MODE ;SET CURRENT MODE
TXZ FLG,F.LBKT
TXZN FLG,F..ESC
JRST ESCMD8 ;NOT PERMANENT
HRLS BYTCNT ;LOCAL COUNT IS PERMANT COUNT
HRLM T1,O.MODE ;SET PERMANT MODE
ESCMD7: CALL B3.TYP ;TYPE 3 SPACES
JRST LEVEL2
ESCMD8: HRRI STATE,STATE0 ;RESTORE STATE POINTER
JRST LOOP ;FINISH COMMAND
;HERE IF USER TYPES <ESCAPE>Q
ESC..Q: MOVE T2,SYMPTR ;GET SYMBOL POINTER
CAME T2,[POINT 6,SYMBOL] ;DID THIS HAPPEN AT A REASONABLE TIME ?
JRST ILLCHR ;NO SO DING HIM
TXO FLG,F.SYMB!F.GEXP ;GOT SOMETHING
TXZ FLG,F.IDEC!F.IOCT!F.IHEX
IBP SYMPTR ;SKIP FIRST CHAR
MOVEI T1,' Q'
IDPB T1,SYMPTR ;PUT Q IN SYMBOL
HRRI STATE,STATE0 ;RESTORE STATE
JRST LOOP ;AND PROCEDE
ESC..G: SKIPN T1,EXPRESS ;GET ADDRESS HE TYPED
MOVE T1,GOTO ;OLD VALUE FOR STARTING ADDRESS
ANDI T1,177776 ;ONLY 16 BITS PLEASE
MOVEM T1,GOTO ;REMEMBER IT FOR LATER
SKIPE MEMORY ;ARE DIDDLING DUMP OR BIN FILE ?
JRST ESC.G1 ;START THE SIMULATION
SKIPN NODE.N ;ARE WE DOING STUFF WITH A NODE ?
JRST ILLCHR ;NO SO THIS IS IMPOSSIBLE
TXNN FLG,F.WENB ;WAS PATCHING ENABLED ?
JRST WRTLCK ;CAN'T DO IT
MOVE T1,EXPRESS ;GET ADDRESS HE TYPED
CALL SETUPN ;SETUP NODE UUO
EXP 3 ;CODE FOR GOTO IS 3
CALL NODSET ;GO DO NODE UUO
JRST CALER0 ;FAILED ?!
TABDNE: CALL TABTYP
JRST LEVEL2 ;WE DID IT
ESC.G1: TXNE FLG,F..ESC ;WAS THIS AN $$G ?
JRST TABDNE ;THAT JUST SETS STARTING ADDRESS
CALL SETUPC ;SETUP THE PC FOR EXECUTION
TXO FLG,F.RUNF ;SET RUN FLOP
MOVEI T1,[ASCIZ \
beginning execution @pc = \]
CALL TYPSTR
MOVE T1,SIMREG+PC ;GET PC WE'LL START AT
CALL ADRTYP
CALL CRLTYP
MOVE AC4,INSRUN
SUB AC4,WAITIM
SETZ AC3, ;WANT OUR RUNTIME
RUNTIM AC3, ;GET RUNTIME SO FAR
CALL SIMXCT ;RUN THE SIMULATED MACHINE FOR A WHILE
SETZ T1, ;WANT OUR RUNTIME
RUNTIM T1, ;GET NEW RUNTIME
SUBM T1,AC3 ;LEAVES HOW LONG WE RAN
MOVEI T1,[ASCIZ \
PDP-11 halted @pc = \]
CALL TYPSTR
MOVE T1,SIMREG+PC
CALL ADRTYP
TYPE < ps = >
HRRZ T1,PS
CALL OCTYPE
TYPE <
after >
MOVE T1,INSRUN
SUB T1,WAITIM
SUB T1,AC4
MOVE AC4,T1 ;REMEMBER NUMBER OF INSTRUCTIONS EXECUTED
CALL PDECTY ;TYPE AS DECIMAL WITH COMMAS
TYPE < instructions >
MOVE T1,AC3 ;COPY NUMBER OF MSEC'S EXECUTED
MULI T1,^D10000 ;MAKES NUMBER OF uSEC*10
DIV T1,AC4 ;MAKES NUMBER OF 10*USEC'S / INSTRUCTIONS
IDIVI T1,^D10
CAIL T1,^D100 ;LESS THAN 100 ?
JRST ESC.G8
PUSH P,T2
CALL DECTYP
CALL PERTYP ;DO A DECIMAL POINT
POP P,T1
ESC.G8: CALL DECTYP ;TELL SPEED
CALL BLANKT ;TYPE A SPACE
MOVE T1,AC3 ;GET RUNTIME IN MSEC'S
CALL TIMTY1 ;TYPE RUN TIME
CALL CRLTYP
JRST LEVEL2
;ESCAPE V - WATCH A LOCATION FOR VARIANCE
ESC..V: SKIPE MEMORY
JRST ILLCHR
TXNN FLG,F.LOPN ;IS LOCATION OPEN ?
JRST ILLCHR ;GIVE USER "?"
SETZM CACHE ;SWEEP THE CACHE
TXO FLG,F.FLIP
ESC.V0: MOVEI T1,0 ;MINIMUM SLEEP
SLEEP T1,
HRRZ T1,DOT ;GET ADDRESS TO WATCH
HRRZ T2,BYTCNT ;NUMBER OF BYTES TO DISPLAY
HRRZ T3,O.MODE ;OUTPUT MODE
CAIG T3,2
ASH T2,1 ;WORD MODE SO TIMES 2 BYTES
TXZ FLG,F.CACH
CALL GETWRD ;GET DATA
JRST [CALL CALER0
JRST LEVEL2 ]
MOVE T2,T1 ;COPY DATA
XOR T2,DATA ;COMPARE TO LAST TIME
AND T2,S.MASK ;MASK OFF IRREVELANT BITS
TXZN FLG,F.FLIP
JUMPE T2,ESC.V9 ;BRANCH IF SAME AS BEFORE
PUSH P,T1 ;SAVE NEW DATA
MOVEM T1,DATA ;SAVE NEW DATA
CALL CRLTYP
HRRZ T1,DOT ;GET ADDRESS
CALL ADRTYP
MOVEI T1,"/"
TXNE FLG,F.LBKT
MOVEI T1,"["
CALL TYPCHR
CALL COMLF4
POP P,DATA ;IN CASE DATYPE CHANGED IT
ESC.V9: SKPINC ;HAS USER TYPED A CHARACTER ?
JRST ESC.V0 ;NO SO KEEP WATCHING
TYPE <
<done watching>
>
JRST LEVEL2 ;GO PROCESS NEXT COMMAND
;HERE BECAUSE TYPED $X - EXECUTE AN INSTRUCTION
; REGISTER USAGE
; AC1 ON RETURN FROM SIMXCT WILL CONTAIN PC WE JUST EXECUTED
; AC3 CONTAINS # FROM $#X
; AC4 FOR $$X WILL BE SET UP WITH PC TO STOP ON
ESC..X: SKIPN MEMORY ;DO WE HAVE A PROGRAM TO EXECUTE ?
JRST ILLCHR ;NO SO DING HIM
HRLZ AC3,ESCOCT ;COPY REPETITION COUNT
MOVNS AC3 ;MAKE AN AOBJN POINTER
CALL SETUPC ;SETUP THE PC
MOVE AC4,SIMREG+PC ;GET STARTING PC
MOVE T1,AC4 ;GET STARTING ADDRESS
CALL CNINWD ;COUNT WORDS IN INSTRUCTION
MOVEI T1,1 ;CALL IT A ONE WORD INSTRUCTION
ADD AC4,T1 ;PLUS NUMBER OF WORDS
ADD AC4,T1 ;TWICE TO MAKE BYTE ADR
TXZ FLG,F.RUNF!F.FLIP ;NOT REALLY RUNNING
CALL CRLTYP ;ACKNOWLEDGE WE ARE DOING IT
MOVE T1,[SIMREG,,BEGREG]
BLT T1,BEGREG+7 ;COPY INITIAL REGISTERS
MOVEM PS,BEG.PS ;SAVE INITIAL PS
SETZM CACHEL ;FLUSH CACHE
ESC.X1: CALL SIMXCT ;EXECUTE THE NEXT INSTRUCTION
TXNE FLG,F.HALT ;DID THE PDP11 HALT ?
JRST ESCX73 ;YES
TXNN FLG,F..ESC ;DOING $$X ?
JRST ESC.X7 ;NO
MOVE T1,SIMREG+PC ;GET CURRENT PC
CAIL T1,(AC4) ;RETURN FROM SUBROUTINE ?
CAILE T1,30(AC4) ;IN CASE OF ARGUMENT LIST
CAIA
JRST ESC.X9
SKPINC ;OPERATOR IMPATIENT ?
JRST ESC.X1 ;DO ANOTHER INSTRUCTION
JRST ESC.X9
;HERE AFTER DOING INSTRUCTION FOR $X
ESC.X7: AOBJN AC3,ESC.X1 ;IF WANT MORE DO'EM
CAMN PS,BEG.PS ;DID THE PS CHANGE ?
JRST ESCX73
TXO FLG,F.FLIP ;HAVE TYPED A REGISTER
MOVEI T1,[ASCIZ \PS/ \]
CALL TYPSTR
HRRZ T1,PS
CALL RADTYP
CALL B3.TYP ;TYPE A FEW SPACES
;HERE TO DISPLAY REGISTERS WHICH CHANGED
ESCX73: MOVSI AC4,-7
ESCX74: MOVE T1,SIMREG(AC4)
CAME T1,BEGREG(AC4)
CALL [TXO FLG,F.FLIP ;HAVE TYPED A REGISTER
HRRZ DOT,AC4 ;COPY REG ADR
HRLI DOT,400000
JRST COMLF1 ]
AOBJN AC4,ESCX74
CAME AC3,[1,,1] ;DID WE EXECUTE ONE INSTRUCTION
JRST ESC.X8 ;MORE THAN ONE SO DON'T TRY TO TYPE OPERANDS
;HERE TO DISPLAY OPERANDS AFTER LAST INSTRUCTION
MOVE T1,AC1 ;GET PC WE EXECUTED
HRRO DOT,AC1 ;CURRENT LOCATION
SETZM DOTFOO
MOVEI T2,2 ;WANT TWO BYTES
CALL GETWRD ;TRY TO GET THE INSTRUCTION
JRST ESC.X8 ;CAN'T GET = DONE
AOS BEGREG+PC
AOS BEGREG+PC
MOVEM T1,DATA ;SAVE FOR FUTUTR REFERENCE
CALL INVLFN ;TRY TO FIND SYMBOL
JRST ESC.X8 ;CAN'T FIND = DONE
LDB T1,[POINT 6,DATA,29]
HLL SYM,2(SYM) ;GET FLAGS FOR INSTRUCTION
TLNE SYM,SMF.SS
CALL [CAIE T1,27 ;IMMEDIATE ?
JRST ESC.X3 ;PRINT DATA FOR FIRST OPERAND
MOVEI T1,2
ADDM T1,BEGREG+PC ;ADJUST OLD PC FOR THIS
RET ]
LDB T1,[POINT 6,DATA,35]
TLNE SYM,SMF.DD!SMF.SS
CALL ESC.X3
ESC.X8: TXZE FLG,F.FLIP ;DID WE TYPE ANY REGISTERS ?
CALL CRLTYP ;YES SO FINISH OLD STUFF WITH A FLOURISH
;HERE WHEN $X OR $$X IS FINISHED TO TYPE NEXT INSTRUCTION
ESC.X9: CALL B3.TYP
HRRO DOT,SIMREG+PC ;SET UP DOT TO CALL DATYPE
PUSH P,O.MODE ;SAVE OLD OUTPUT MODE
PUSH P,BYTCNT ;SAVE OLD BYTE COUNT
SETZM O.MODE ;SET INSTRUCTION MODE
MOVEI T1,1
HRRM T1,BYTCNT
CALL COMLF1 ;TYPE OUT INSTRUCTION
POP P,BYTCNT
POP P,O.MODE
JRST LEVEL2
ESC.X3: TRNN T1,70 ;IS THIS REGISTER MODE ?
RET ;ALREADY GAVE CHANGE
LSHC T1,-3 ;LEAVE ONLY MODE IN T1
LSH T2,-^D33 ;RIGHT JUSTIFY REG NUMBER
HRR DOT,BEGREG(T2)
CAIN T1,1 ;WAS THIS REGISTER DEFERRED
JRST ESCX35 ;YES SO WE HAVE ADR NOW
CAIG T1,3 ;IS THIS AUTO INCREMENT ?
JRST [AOS BEGREG(T2)
TLNE SYM,SMF.BY
CAIL T2,6
AOS BEGREG(T2)
JRST ESCX33 ]
CAIG T1,5 ;IS THIS AUTO DECREMENT ?
JRST [SOS BEGREG(T2)
TLNE SYM,SMF.BY
CAIL T2,6
SOS BEGREG(T2)
HRR DOT,BEGREG(T2)
JRST ESCX33]
PUSH P,T1
PUSH P,T2
MOVE T1,BEGREG+PC
MOVEI T2,2 ;WANT TWO BYTES
CALL GETWRD
SETZ T1,
HRRZ DOT,T1
POP P,T2
POP P,T1
AOS BEGREG+PC
AOS BEGREG+PC
ADD DOT,BEGREG(T2)
ESCX33: ANDI DOT,177777 ;STRIP EXTRA BITS
TRNN T1,1 ;IS THIS DEFERRED MODE ?
JRST ESCX35
MOVE T1,DOT ;COPY ADDRESS
MOVEI T2,2
CALL GETWRD
RET
HRRZ DOT,T1
ESCX35: TXO FLG,F.FLIP ;REMEMBER WE TYPED DATA
ANDI DOT,177777 ;STRIP EXTRA BITS
HRROS DOT ;FLAG IS MEMORY LOCATION
PUSH P,DATA
PUSH P,SYM ;SAVE POINTER TO SYMBOL FOR INSTRUCTION
PUSH P,O.MODE ;SAVE OUTPUT MODE
PUSH P,BYTCNT ;AND SAVE OUTPUT COUNT
HRRZ T1,O.MODE ;GET OUTPUT MODE
SKIPN T1
MOVEI T1,1 ;USE ADDRESS INSTEAD OF INSTRUCTION
MOVEI T2,2 ;ASSUME TWO BYTES OF OUTPUT
CAIG T1,2 ;WORD MODE OUTPUT ?
MOVEI T2,1 ;ONLY ONE WORD
TLNE SYM,SMF.BY ;BYTE MODE INSTRUCTION ?
JRST [CAIG T1,2 ;ALREADY BYTE MODE OUTPUT ?
MOVEI T1,3 ;SET BYTE MODE OUTPUT
MOVEI T2,1 ;ONLY ONE BYTE OF OUTPUT
JRST .+1 ]
MOVEM T1,O.MODE ;SET NEW OUTPUT MODE
HRRM T2,BYTCNT ;AND BYTE COUNT
CALL COMLF2 ;TYPE ADR AND DATA
POP P,BYTCNT
POP P,O.MODE
POP P,SYM ;GET SYMBOL POINTER BACK
POP P,DATA
RET
;HERE FOR (ALTMODE)N WHICH IS NOT WORD SEARCH
ESC..N: TROA FLG,F.FLIP ;FLAG WE ARE DOING NOT SEARCH
;HERE FOR (ALTMODE)W WHICH IS WORD SEARCH
ESC..W: TXZ FLG,F.FLIP ;FLAG WE WANT MATCHES
MOVE T1,EXPRESS ;GET WHAT TO SEARCH FOR
AND T1,S.MASK
MOVEM T1,S.WORD
MOVE DOT,SBEGIN
SETZM CACHEL ;NOTHING IN CACHE SO FAR
TXO FLG,F.CACH ;USE CACHE IF WE CAN
ESC.W2: HRROS T1,DOT ;COPY ADR (FLAG MEMORY ADR)
HRRZ T2,S..END
ADDI T2,2
SUB T2,T1 ;NUMBER OF WORDS TO GET TO FINSIH SEARCH
CAILE T2,EXMAX
MOVEI T2,EXMAX ;MAXIMUM NUMBER OF WORDS FOR THIS REQUEST
CALL GETWRD
JRST ESCW.9
MOVEM T1,DATA ;SAVE DATA
AND T1,S.MASK ;MASK SOME OF THE BITS
TXNE FLG,F.FLIP ;ARE WE LOOKING FOR MATCH ?
JRST [ CAMN T1,S.WORD ;DON'T WANT MATCH
JRST ESCW.8
JRST ESCW.6 ]
CAME T1,S.WORD
JRST ESCW.8
ESCW.6: CALL CRLTYP
MOVE T1,DOT ;GET ADDRESS
CALL ADRTYP
TYPE </ >
CALL DATYPE
SKPINC ;ANY TYPEAHEAD ?
JRST ESCW.8
JRST ESCW.9 ;YES SO STOP
ESCW.8: CALL NXTDOT ;GET NEXT DOT
HRRZ T1,DOT
CAMLE T1,S..END
JRST ESCW.9
TRNN DOT,377 ;DON'T DO TOO MANY UUO'S
SKPINC ;TYPING AHEAD ?
JRST ESC.W2 ;NO
ESCW.9: TYPE <
<search done>
>
JRST LEVEL2
;HERE TO MOVE MEMORY UP IN CORE
; CALL MOVEI T1,<AMOUNT TO MOVE IT UP>
; CALL MOVEM
MOVMEM: PUSH P,T1 ;SAVE ARGUMENT
CALL MOVSMT ;FIRST MOVE UP THE SYMBOL TABLE
POP P,T1 ;NUMBER OF WORDS TO MOVE
SKIPN T2,MEMORY ;ADR OF 1ST WORD IN MEMORY
RET
ADDM T1,MEMORY ;UPDATE MEMORY POINTER
MOVE T3,SYMBEG ;GET NEW SYMBOL TABLE POINTER
SOS T3 ;IS NEW LAST WORD IN MEMORY
CALL MOVTAB ;MOVE IT
JRST SIMREL ;ADJUST SIMULATION TO NOTICE NEW LOCATIONS
;HERE TO MOVE MEMORY USE TABLE UP IN CORE
; CALL MOVEI T1,<AMOUNT TO MOVE IT UP>
; CALL MOVMUS
MOVMUS: PUSH P,T1 ;SAVE ARGUMENT
CALL MOVSMT ;FIRST MOVE UP THE SYMBOL TABLE
POP P,T1 ;NUMBER OF WORDS TO MOVE
HRRZ T2,MEMUSE ;ADR OF FIRST WORD IN MEMORY USE TABLE
JUMPE T2,R ;IF NO MEMORY WE'RE DONE
ADDM T1,MEMUSE ;UPDATE MEMORY USE TABLE ADR
ADDM T1,MEMORY ;AND MEMORY POINTER
MOVE T3,SYMBEG ;NEW SYMBOL TABLE ADR
SOS T3 ;MAKES NEW LAST WORD IN MEMORY
CALL MOVTAB ;MOVE IT
JRST SIMREL ;ADJUST SIMULATION TO NOTICE NEW ADDRESSES
;HERE TO MOVE A TABLE UP IN CORE (BACKWARDS BLT)
; CALL MOVE T1,<# OR WORDS TO MOVE)
; MOVE T2,ADR OF 1ST WORD IN CORE TO BE MOVED
; MOVE T3,<ADR OF NEW LAST WORD IN BLOCK>
; CALL MOVTAB
MOVTAB: MOVE T4,T3 ;COPY ADR OF LAST WORD IN BLOCK
SUB T3,T1 ;MAKES LAST ADR IN OLD TABLE
MOVTB2: MOVE T1,(T3) ;GET NEXT WORD TO COPY
MOVEM T1,(T4) ;COPY IT
SOS T4
CAME T3,T2 ;COPIED LAST WORD YET ?
SOJA T3,MOVTB2 ;LOOP FOR MORE WORDS
SETZM (T2) ;CLEAR FIRST WORD IN TABLE
HRLI T2,(T2) ;BUILD BLT POINTER
AOS T2 ;FINISH BUILDING POINTER
BLT T2,(T4) ;CLEAR OLD TABLE
RET
SUBTTL SOME USEFUL ROUTINES WE MIGHT NEED
SAVE4: PUSH P,T1
PUSH P,T2
PUSH P,T3
PUSH P,T4
CALL @-4(P)
CAIA
AOS -5(P)
POP P,T4
POP P,T3
POP P,T2
POP P,T1
POP P,(P)
RET
SAVE2: EXCH T2,(P)
CALL (T2)
CAIA
AOS -1(P)
POP P,T2
RET
SAVE24: EXCH T2,(P)
PUSH P,T3
PUSH P,T4
CALL (T2)
CAIA
AOS -3(P)
POP P,T4
POP P,T3
POP P,T2
RET
SAVE34:
SAVE35: EXCH T3,(P)
PUSH P,T4
PUSH P,T5
CALL (T3)
CAIA
AOS -3(P)
POP P,T5
POP P,T4
POP P,T3
RET
SUBTTL ERROR ROUTINE
;CALL MOVE T1,<ERROR CODE>
; MOVE T2,ERROR LIST
; CALL CALLERR
CALER0: SETZ T2,
CALERR: JUMPL T1,R ;EXIT IF WE ALREADY GAVE THE ERROR
PUSH P,T1 ;SAVE CODE
JUMPN T2,CALER1 ;ERROR LIST GIVEN ?
SKIPE NODE.N ;WERE WE DOING /NODE STUFF ?
MOVEI T2,NERLST ;NODE. ERROR
SKIPE PORT ;WAS A /PORT GIVEN ?
MOVEI T2,C11LST ;YES SO IS CALL11 ERROR CODE
CALER1: PUSH P,T2 ;SAVE LIST
CALL QESTYP ;TYPE A QUESTION MARK
HRRZ T1,(P) ;GET TYPE OF ERROR
SKIPE T1
CALL [ HRRZ T1,(T1) ;GET ERROR DESCRIPTION
JRST TYPSTR] ;DISPLAY IT
TYPE < error code = >
MOVE T1,-1(P) ;GET OCTAL CODE
CALL OCTYPE
CALL BLANKT ;TYPE A SPACE
POP P,T2 ;GET ERROR LIST
POP P,T1 ;GET ERROR CODE
JUMPLE T1,CALER9
JUMPE T2,CALER9
HLRZ T3,(T2) ;GET MAX ERROR WE KNOW
CAILE T1,(T3) ;IS IT IN RANGE ?
JRST CALER9 ;NOT IN RANGE SO CAN'T HELP FURTHER
ADDI T1,(T2)
MOVE T1,(T1)
CALL TYPSTR
CALER9: CALL QESTYP
CALL TABTYP
SETO T1, ;SAY WE PRINTED THE ERROR
RET
;HERE FOR A LOCK ERROR
LOCKER: MOVEI T2,LERLST ;DESCRIPTIONS FOR LOCK ERRORS
CALL CALERR
EXIT
JRST LOCKER
C11LST: XWD 7,[ASCIZ \CAL11\]
Z [ASCIZ \not privileged\]
Z [ASCIZ \unknown function\]
Z [ASCIZ \not a DC76\]
Z [ASCIZ \function already in use\]
Z [ASCIZ \no answer to query\]
Z [ASCIZ \queue entry too short\]
Z [ASCIZ \not enough arguments\]
LERLST: XWD 6,[ASCIZ \LOCK\]
Z [ASCIZ \not privileged\]
Z [ASCIZ \other job too large\]
Z [ASCIZ \maximum too large\]
Z [ASCIZ \EVM exhausted\]
Z [ASCIZ \illegal subfunction\]
Z [ASCIZ \page unavailable\]
NERLST: XWD 6,[ASCIZ \NODE.\]
Z [ASCIZ \ill arg list\]
Z [ASCIZ \ill node name or number\]
Z [ASCIZ \not privileged job\]
Z [ASCIZ \remote node control not available\]
Z [ASCIZ \job not locked\]
Z [ASCIZ \timeout\]
;HERE BECAUSE USER FINISHED SYMBOL WITH ":"
DEFSYM: TXNE FLG,F.SYMB
SKIPN T1,SYMBOL ;SYMBOL HE DEFINED
JRST ILLCHR
SKIPE T2,LFTSAV ;WAS THIS X<TAG: ?
JRST [ANDI T2,177777 ;STRIP EXTRA BITS
JRST DFSYM3 ] ;YES
TLNN DOT,400000
TLO DOT,777777
HRRZ T2,DOT ;CURRENT ADR
SETZB T3,T4 ;NO FLAGS OR MISC
TLNN DOT,200000
TLO T3,SMF.RG
LDB T1,[POINT 6,SYMBOL,5] ;GET FIRST CHAR IN SYMBOL
CAIN T1,' %'
JRST [SKIPN CMDFIL ;DOING COMMAND FILE ?
JRST ILLCHR ;NO SO THIS IS TRASH
MOVE T2,CMDCNT ;VALUE IS CHAR IN FILE
MOVSI T3,SMF.SU ;SUPPRESS VALUE
JRST .+1 ]
DFSYM3: MOVE T1,SYMBOL ;GET SYMBOL AGAIN
MOVE T4,[SIXBIT /TYPEIN/];SAY THAT THE USER DEFINED IT
CALL ADDSYM
CALL TABTYP
JRST LEVEL2
;HERE TO EVALUATE A SYMBOL
; CALL WITH SYMBOL SETUP
; LOSE RETURN
; WIN RETURN WITH SYM SETUP, VALUE IN T1, FLAGS IN T2
EVLSYM: LDB T1,[POINT 6,SYMBOL,5] ;GET FIRST CHAR OF SYMBOL
CAIN T1,' %'
RET
MOVE T1,SYMBOL ;GET CURRENT SYMBOL
CAMN T1,[SIXBIT \ Q\] ;CHECK FOR <ALT>Q
JRST [HRRZ T1,ESC.Q.
RETSKP FAST]
CAMN T1,[SIXBIT \.\] ;CHECK FOR SPECIAL CASE
JRST [HRRZ T1,DOT
MOVSI SYM,SMF.RG
TLNN DOT,400000
TLO DOT,777777
TLNN DOT,200000
TXO FLG,F.SYML
RETSKP FAST]
TXO FLG,F.SYML ;ASSUME WE'LL LOAD SYM
CALL SYMFND ;TRY TO FIND SYMBOL
JRST SYMERR
HRRZ T1,1(SYM) ;GET VALUE OF SYMBOL
TLNE SYM,SMF.RG ;IS THIS A REGISTER NAME ?
TXO FLG,F.SREG ;YES
RETSKP FAST
SYMERR: MOVEI T1,[ASCIZ \U \]
JRST ILLCH0 ;REST LIKE ILLEGAL CHARACTER
;HERE TO FIND A MATCH FOR A SYMBOL
; CALL MOVE T1,[SIXBIT \SYMBOL\]
; CALL SYMFND
; ERROR RETURN
; SUCCESS RETURN SYM POINTS TO SYMBOL
SYMFND: SKIPN SYM,SYMBEG ;GET ADR OF BEGINNING OF SYMBOL TABLE
RET ;CAN'T FIND SYMBOL
SYMFN1: CAMN SYM,SYMEND ;HIT END OF TABLE YET ?
RET ;YES SO CAN'T FIND SYMBOL
CAMN T1,(SYM) ;IS THIS SYMBOL ?
CALL SYMFN7 ;CHECK PDP8/PDP11 RIGHT
MOVEI SYM,4(SYM) ;POINT TO NEXT SYMBOL TABLE BLOCK
JRST SYMFN1
;HERE TO SEE IF PDP8/PDP11 FLAG RIGHT FOR THIS SYMBOL
SYMFN7: HLL SYM,2(SYM) ;GET FLAGS FOR SYMBOL
TLNN SYM,SMF.IN ;IS THIS AN INSTRUCTION ?
JRST SYMFN9 ;NO SO OK TO USE SYMBOL
TLNE SYM,SMF.P8 ;IS THIS A PDP8 SYMBOL ?
JRST SYMFN8
SKIPE PDP8F
RET ;REJECT SYMBOL
JRST SYMFN9
SYMFN8: SKIPN PDP8F
RET
SYMFN9: MOVEM T1,(P)
TPOPJ1: POP P,T1
RSKP: AOS (P) ;FOR SKIP RETURN
R: RET
;HERE TO SEE IF WE CAN FIND A MATCH FOR AN INSTRUCTION
; CALL MOVEI T1,<VALUE>
; CALL INVLFN
; LOSE RETURN
; WIN RETURN WITH SYM SET UP
INVLFN: SKIPN SYM,SYMBEG ;ADDRESS OF FIRST SYMBOL BLOCK
RET ;NO SYMBOL TABLE
INVLF1: MOVE T2,2(SYM) ;GET FLAGS & MASK
TLNN T2,SMF.SU ;IS THIS SUPPRESSED >?
TLNN T2,SMF.IN ;IS THIS AN INSTRUCTION ?
JRST INVLF8
ANDI T2,(T1) ;MASK ARGUMENT
CAMN T2,1(SYM) ;IS THIS A MATCH ?
CALL SYMFN7 ;OK IF PDP8/PDP11 FLAG RIGHT
INVLF8: MOVEI SYM,4(SYM) ;GET ADR OF NEXT SYMBOL BLOCK
CAME SYM,SYMEND ;HIT END OF SYMBOLS ?
JRST INVLF1 ;NO SO SEE IF THIS ONE OK
RET
;HERE TO FIND A NAME FOR A REGISTER
; CALL: MOVEI T1,# ;REGISTER NUMBER
; CALL RGFNDN
; LOSE
; BINGO (WITH SYM SETUP - OTHER REGS PRESERVED)
RGFNDN: CALL SAVE24 ;SAVE REGISTERS
CALL VLFND0 ;FIND A SYMBOL FOR VALUE
CAIA
RGFND8: MOVEI SYM,-4(SYM) ;MAKE ADDRESS OF PREVIOUS SYMBOL
CAMN T1,1(SYM) ;RIGHT VALUE ?
CAMGE SYM,SYMBEG ;BACKED UP TOO FAR ?
RET ;LOSE
HLL SYM,2(SYM) ;GET FLAGS
TLNN SYM,SMF.SU ;IS THIS A SUPPRESSED SYMBOL ?
TLNN SYM,SMF.RG ;IS THIS A REGISTER ?
JRST RGFND8 ;NO GOOD
RETSKP FAST
;HERE TO ADD A SYMBOL TO TABLE
; CALL PUT SYMBOL IN T1, PUT VALUE IN T2, FLAGS IN T3, MISC IN T4
; RETURNS WITH SYM POINTING TO NEW SYMBOL
ADDSYM: PUSH P,T4 ;SAVE MISC ON STACK
SKIPE PDP8F ;IS THIS A PDP8 SYMBOL ?
TLO T3,SMF.P8 ;YES IS A PDP8
PUSH P,T3 ;SAVE FLAGS ON STACK
PUSH P,T1 ;SAVE SYMBOL ON STACK
PUSH P,T2 ;SAVE VALUE ON STACK
CALL DELSYM ;FIRST DELETE ANY OLD VALUE
CALL POSYMT ;POSITION SYMBOL TABLE AT END OF CORE
MOVEI T1,4 ;GET 4 WORDS FOR A SYMBOL BLOCK
CALL GETCOR ;GET NEW CORE
POP P,T1 ;GET VALUE FOR SYMBOL
CALL VLFND0 ;FIND WHERE TO BULGE SYMBOL TABLE
MOVEI T2,4
ADDM T2,SYMEND ;AND POINTER TO END OF SYMBOL TABLE
CAML T1,1(SYM)
ADDI SYM,4
MOVE T2,T1 ;COPY SYMBOL VALUE
POP P,T1 ;GET SYMBOL
POP P,T3 ;GET FLAGS
POP P,T4 ;GET MISC
PUSH P,SYM ;SAVE SYMBOL POINTER
ADSYM7: EXCH T1,(SYM)
EXCH T2,1(SYM)
EXCH T3,2(SYM)
EXCH T4,3(SYM)
MOVEI SYM,4(SYM) ;POINT TO NEXT SYMBOL TABLE BLOCK
CAME SYM,SYMEND ;HIT END OF TABLE YET ?
JRST ADSYM7 ;NO SO KEEP GOING
POP P,SYM ;GET POINTER TO NEW SYMBOL
RET
;HERE TO DELETE A SYMBOL FROM A SYMBOL TABEL
; CALL MOVE T1,[SIXBIT \SYMBOL\]
; CALL DELSYM
; RETURN
DELSYM: CALL SYMFND ;TRY TO FIND SYMBOL IN CURRENT SYMBOL TABLE
RET
HRLI T1,4(SYM) ;BUILD BLT POINTER
HRR T1,SYM
HRRZ T2,SYMEND ;END OF SYMBOL TABLE
BLT T1,-4(T2)
MOVNI T1,4
CAMN T2,.JBFF## ;SYMBOL TABLE AT END OF CORE ?
ADDM T1,.JBFF## ;YES SO ADJUST END POINTER
ADDM T1,SYMEND ;AND ADJUST POINTER TO END OF SYMBOL TABLE
RET
;HERE TO BE SURE SYMBOL TABLE IS LAST THING IN CORE AND MOVE IT IF NOT
; CALL: CALL POSYMT
POSYMT: MOVE T1,SYMEND
CAMN T1,.JBFF## ;IS SYMBOL TABLE AT END OF CORE ?
RET
PUSH P,.JBFF## ;SAVE OLD FREE CORE POINTER
MOVE T1,SYMEND
SUB T1,SYMBEG
CALL GETCOR
POP P,T1 ;GET OLD FREE CORE POINTER
HRL T1,SYMBEG
HRRZM T1,SYMBEG ;NEW BEGINNING OF SYMBOL TABLE
HRRZ T2,.JBFF
BLT T1,-1(T2)
MOVEM T2,SYMEND ;NEW END OFF SYMBOL TABLE
RET
;HERE TO MOVE THE SYMBOL TABLE UP IN CORE
; CALL: MOVEI T1,<AMOUNT TO MOVE IT UP>
; CALL MOVSMT
MOVSMT: CALL SAVE24 ;SAVE REGISTERS
PUSH P,T1 ;SAVE ARGUMENT
CALL GETCOR ;GET ADDITIONAL CORE
POP P,T1 ;GET NUMBER OF WORDS TO MOVE
MOVE T2,SYMBEG ;FIRST WORD IN CURRENT SYMBOL TABLE
ADDM T1,SYMBEG ;NEW SYMBOL TABLE ADR
HRRZ T3,.JBFF## ;ADR OF NEW LAST WORD IN SYMBOL TABLE
HRRM T3,SYMEND ;NEW END OF SYMBOL TABLE
SOJA T3,MOVTAB ;MAKE NEW LAST WORD IN SYMBOL TABLE
; AND MOVE THE TABLE
;HERE TO FIND A NEAR MATCH FOR A VALUE
; CALL MOVEI T1,VALUE TO MATCH
; CALL VALFND
; ERROR RETURN ;WITH SYM CLEARED
; RETURN WITH SYM SET UP
VALFND: CALL VLFND0
JRST VLFND4
VLFND3: MOVEI SYM,-4(SYM) ;BACK UP SYMBOL POINTER
CAMGE SYM,SYMBEG ;BACKED UP TOO FAR ?
JRST VLFND7 ;YES
VLFND4: HLL SYM,2(SYM) ;GET FLAGS FOR SYMBOL
TLNE SYM,SMF.SU!SMF.IN!SMF.RG ;IS SYMBOL SUPPRESSED OR REG OR INSTRUCTION ?
JRST VLFND3 ;YES SO REJECT IT
MOVE T2,1(SYM) ;GET SYMBOL VALUE
CAIGE T1,400(T2)
AOSA (P)
VLFND7: SETZM SYM
RET
VLFND0: MOVE SYM,SYMBEG ;POINT TO FIRST SYMBOL BLOCK
MOVE T3,SYMEND
VLFND2: MOVE T2,T3 ;COPY HIGH LIMIT POINTER
SUB T2,SYM ;MAKE DIFFERENCE BETWEEN HIGH AND LOW
LSH T2,-1
ANDI T2,777774
JUMPE T2,R ;HAVE CARRIED THIS AS FAR AS WE CAN
ADD T2,SYM
CAMGE T1,1(T2)
SKIPA T3,T2
MOVE SYM,T2
JRST VLFND2
;HERE TO GET MORE CORE
; CALL MOVEI T1,<#WORDS OF CORE WANTED>
; CALL GETCOR
GETCOR: HRRZS T1 ;CLEAR LEFT HALF
ADDB T1,.JBFF## ;MAKE NEW END OF CORE
HRRZS T1 ;CLEAR LEFT HALF
HRLM T1,.JBSA## ;IN CASE WE GET SAVED LATER
TXNN FLG,F.EXEC ;RUNNING IN EXEC MODE
CAMG T1,.JBREL##
JRST GTCOR9
TXNE FLG,F.LOCK
JRST [ MOVEI T1,1 ;CODE FOR LOW SEG
UNLOK. T1, ;CAN'T BE LOCKED WHEN WE DO THIS
JRST LOCKER ;OLD MONITOR PERHAPS ?
HRRZ T1,.JBFF## ;GET CORE ARG BACK
CORE T1,
JRST CORERR ;CAN'T HAVE MORE ?
MOVEI T1,1 ;CODE TO LOCK LOW SEG
LOCK T1,
JRST LOCKER
JRST GTCOR6 ]
CORE T1,
JRST CORERR
GTCOR6: MOVEI T1,"["
CALL TYPCHR
HRRZ T1,.JBREL##
AOS T1
LSH T1,-^D9
CALL DECTYP
TYPE <p core]
>
GTCOR9: RET
;HERE IF CAN'T GET CORE WE WANT
CORERR: TYPE < CORE UUO failed>
EXIT
;HERE TO CHECK SWITCHES AND ASSURE NO CONFLICT
; T1= OUT SWITCHES
; T2= CONFLICTING SWITCHES
; WILL UPDATE SWTMSK, AND REMEMBER ALL THE ONES WE HAVE SEEN
SWTTST: IORB T1,SWTMSK ; REMEMBER THIS SWITCH AS SEEN
TDNE T2,SWTMSK ; IS THIS OK WITH WHAT WE HAVE SEEN?
JRST [TYPE <
? Switch conflict in command line. >
RET]
RETSKP
;HERE FOR CORE ARGUMENT
SETCOR: SWTCHK CORE
CAIE T5,":"
JRST [TYPE <
?Core switch requires an argument
>
RET]
CALL DECINP ;GET THE CORE SIZE
JRST [TYPE <
?Core switch requires an argument
>
RET]
CAIE T5,"K" ;UPPERCASE K
CAIN T5,"K"+40 ;LOWERCASE K ?
JRST [IMULI T1,2000 ;CONVERT TO NUMBER OF WORDS
MOVEI T5,40 ;FAKE BREAK CHAR
JRST .+1 ]
HRRZM T1,CORARG
MOVEI T1,EX.MEM
MOVEM T1,ETYPE
RETSKP
;HERE TO EFFECT THE /CORE:#
STCOR1: SKIPN PDP8F
SKIPN T2,CORARG ;WAS THERE A CORE ARGUMENT ?
RETSKP SAFE ;NO SO WER'E DONE
LSH T2,1 ;CONVERT BYTES TO WORDS
ADDI T2,017777 ;ROUND TO NEXT 4K WORD BOUNDRY
ANDI T2,160000 ;MASK TO RIGHT SIZE
SOS T2 ;NEW MEMLIM IS ONE LESS
MOVEM T2,CORARG
SKIPN MEMORY ;ANY CORE ASSIGNED YET ?
JRST STCOR2 ;NONE YET SO GET IT
CAMG T2,MEMLIM ;DO WE HAVE ENOUGH YET ?
JRST STCOR3 ;WE HAVE ENOUGH
STCOR2: SETZ T1,
CALL PUTFOO ;MAKE SURE WE HAVE THAT LOCATION
STCOR3: MOVE T1,CORARG ;GET CORE ARGUMENT
EXCH T1,MEMLIM ;WHICH IS NEW MEMLIM
SUB T1,MEMLIM ;HOW MANY BYTES TO DELETE
JUMPE T1,STCOR9 ;IF NONE WER'E DONE
LSH T1,-2 ;NUMBER OF WORDS TO SHIFT SYMBOL TABLE
HRL T2,SYMBEG ;GET BEGINING OF SYMBOL TABLE
HRR T2,SYMBEG ;BUILD BLT POINTER
SUB T2,T1
HRRM T2,SYMBEG
MOVE T3,SYMEND
SUB T3,T1 ;NEW END OF SYMBOL TABLE
MOVEM T3,SYMEND
BLT T2,(T3)
HRRZM T3,.JBFF##
HRLM T3,.JBSA##
STCOR9: SETZM CORARG ;DONE WITH ARGUMENT
RETSKP
;HERE IF USER TYPES /GO
SETGO: SWTCHK GO
MOVE T1,[400000,,LEVL.0]
MOVEM T1,LASTSW
MOVEI T1,EX.MEM
MOVEM T1,ETYPE
RETSKP
;HERE FOR /PATCH
SETWEN: SWTCHK PATCH
TXO FLG,F.WENB ;ENABLE PATCHING
RETSKP
;HERE BECAUSE USER TYPED /PDP11 OR /11
SETP11: SWTCHK 11
SWTCHK PDP11
SETZM PDP8F ;CLEAR PDP8 FLAG
RETSKP
;HERE BECAUSE USER TYPED /PDP8 OR /8
SETPD8: SWTCHK 8
SWTCHK PDP8
SETOM PDP8F
RETSKP
;HERE FOR A /LA36 IN COMMAND LINE
SETLA3: SWTCHK LA36
SETZM TTYBIT
RETSKP
;HERE FOR /LOCK
SETLOK: SWTCHK LOCK
MOVE T1,OSTYPE
TXNN T1,T.TOP10
JRST [ TYPE <
?Illegal /LOCK when not on TOPS-10
>
RET]
MOVEI T1,LK.LLS!LK.LNE;CODE TO LOCK
LOCK T1,
JRST LOCKER ;REPORT ERROR
TXO FLG,F.LOCK ;REMEMBER WE DID
RETSKP
;HERE FOR A /VT52 IN COMMAND LINE
SETVTX: SWTCHK VT52
MOVX T1,TF.RUB ;BIT TO GET RIGHT KIND OF RUBOUTS
MOVEM T1,TTYBIT
RETSKP
;HERE FOR /HELP IN THE COMMAND LINE
SETHLP: SWTCHK HELP
SETZM LASTSW ;FLAG THAT THERE ARE NO ROUTINES TO EXECUTE
MOVEI T1,HLPTXT
CALL TYPSTR
RETSKP
HLPTXT: ASCIZ \
DDT11 6(67) switches:
Switch Use
/11
/PDP11 The dump or node is a PDP11
/8
/PDP8 The dump or node is a PDP8
/BINARY The dump is in the form produced by MACDLX.
/CORE:n Expand "simulated" memory to size n (i.e. 28K)
/DTELDR The dump is in the form produced by DTELDR or DNLOAD
/DUMP The dump is in the form produced by NETLDR (default)
/FE:xy Look at front end y on cpu x
/FESYMB Load symbols from a RSX20F style map
/GO Enter DDT mode
/HELP This text
/LA36 Terminal is a LA36 (or other hard copy terminal)
/LINE:n Use DDCMP maintaince mode over a line n
/LOAD Read a saved symbol table (not yet implemented)
/LOCK Lock ddt11 in core
/LSD The dump is in the form produced by BOOT11
/MCB:node Examine a running MCB node with node name "node"
/MCBDMP Read a dump of an MCB
/MCBSYS Read an unrun MCB system image
/MERGE Merge more than one dump into DDT11's work space
/MODULE To be used to when reading STB symbols (not yet implemented)
/NODE:n Examine node n, or /NODE:n/LINE:m
/PATCH Enable patching of the dump or node being examined
/PORT:n Used to indicate a DN6x front end or any front end
connected to a DL10
/RELOCA:sym Relocate symbols read in by the value sym
/SAVE Save the symbol table in a file (not yet implemented)
/STB Read an STB format symbol table (not yet implemented)
/SYMBOL:n Read a listing produced by MACDLX and extract symbols
Where n is the (optional) 128 word disk block to start
reading from.
/UBA:n Use UBA n for the -11 I/O page
/VT52 The terminal does a backspace
\
RETSKP
;HERE TO READ A SAVED SYMBOL TABLE
SETLOD: SWTCHK LOAD
TYPE <
?The /LOAD switch is not yet implemented
>
RET
;HERE TO WRITE A SYMBOL TABLE
SETSAV: SWTCHK SAVE
TYPE <
?The /SAVE switch is not yet implemented
>
RET
;HERE TO SET THE MODULE NAME FOR ADDING SYMBOLD TO THE SYMBOL TABLE
SETMOD: SWTCHK MODULE
TYPE <
?The /MODULE switch is not yet implemented
>
RET
SUBTTL STATE TABLES
;INITIAL STATE TABLE
STATE0:
BYTE (18)LOOP ,ILLCHR,ILLCHR,DDT11 ,ILLCHR,ILLCHR,CNTRLF,ILLCHR ;7
BYTE (18)ACCUM ,ACCUM ,ACCUM ,ILLCHR,ILLCHR,ACCUM ,ILLCHR,ILLCHR ;17
BYTE (18)ILLCHR,ILLCHR,CNTRLR,ILLCHR,ILLCHR,CNTRLU,ILLCHR,CNTRLW ;27
BYTE (18)EXPXOR,ILLCHR,CNTRLZ,ESCAPE,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;37
BYTE (18)EXPSPC,EXPIOR,ACCUM ,ACCUM ,ASSYMB,ASSPRC,EXPAND,EXPDIV ;47
BYTE (18)ACCUM ,ACCUM ,EXPMUL,EXPLUS,ACCUM ,EXPMIN,ASSPER,ACCUM ;57
BYTE (18)ASSNUM,ASSNUM,ASSNUM,ASSNUM,ASSNUM,ASSNUM,ASSNUM,ASSNUM ;67
BYTE (18)ASSDEC,ASSDEC,DEFSYM,ACCUM ,LFTANG,ACCUM ,ACCUM ,QUEST. ;77
BYTE (18)ACCUM ,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB ;107
BYTE (18)ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB ;117
BYTE (18)ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB ;127
BYTE (18)ASSYMB,ASSYMB,ASSYMB,ACCUM ,ACCUM ,ILLCHR,ACCUM ,ACCUM ;137
BYTE (18)ILLCHR,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB ;147
BYTE (18)ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB ;157
BYTE (18)ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB,ASSYMB ;167
BYTE (18)ASSYMB,ASSYMB,ASSYMB,ILLCHR,ILLCHR,ILLCHR,ILLCHR,COMRUB ;177
;STATE TABLE WHEN USER TYPES ALTMODE
STATSC:
BYTE (18)LOOP ,ILLCHR,ILLCHR,DDT11 ,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;7
BYTE (18)ESC.UP,ILLCHR,ESC.LF,ILLCHR,ILLCHR,ESC.CR,ILLCHR,ILLCHR ;17
BYTE (18)ILLCHR,ILLCHR,CNTRLR,ILLCHR,ILLCHR,CNTRLU,ILLCHR,CNTRLW ;27
BYTE (18)ILLCHR,ILLCHR,CNTRLZ,ESCESC,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;37
BYTE (18)ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;47
BYTE (18)ESCPAR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ESC...,ESC.SL ;57
BYTE (18)ESC..0,ESC..0,ESC..0,ESC..0,ESC..0,ESC..0,ESC..0,ESC..0 ;67
BYTE (18)ESC..8,ESC..8,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;77
BYTE (18)ILLCHR,ESC..A,ESC..B,ESC..C,ESCD..,ILLCHR,ESC..F,ESC..G ;107
BYTE (18)ILLCHR,ESC..I,ILLCHR,ESC..K,ILLCHR,ESC..M,ESC..N,ILLCHR ;117
BYTE (18)ESCP..,ESC..Q,ESC..R,ESC..S,ESC..T,ILLCHR,ESC..V,ESC..W ;127
BYTE (18)ESC..X,ESCY..,ILLCHR,ESC.SL,ILLCHR,ILLCHR,ESC.UP,ILLCHR ;137
BYTE (18)ILLCHR,ESC..A,ESC..B,ESC..C,ESCD..,ILLCHR,ESC..F,ESC..G ;147
BYTE (18)ILLCHR,ESC..I,ILLCHR,ESC..K,ILLCHR,ESC..M,ESC..N,ILLCHR ;157
BYTE (18)ESCP..,ESC..Q,ESC..R,ESC..S,ESC..T,ILLCHR,ESC..V,ESC..W ;167
BYTE (18)ESC..X,ESCY..,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,COMRUB ;177
;STATE TABLE TO END AN EXPRESSION
STATEB:
BYTE (18)ILLCHR,ILLCHR,ILLCHR,DDT11 ,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;7
BYTE (18)UARROW,COM.HT,COM.LF,ILLCHR,ILLCHR,COM.CR,ILLCHR,ILLCHR ;17
BYTE (18)ILLCHR,ILLCHR,CNTRLR,ILLCHR,ILLCHR,CNTRLU,ILLCHR,CNTRLW ;27
BYTE (18)ILLCHR,ILLCHR,CNTRLZ,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;37
BYTE (18)ILLCHR,ILLCHR,QUOTE ,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;47
BYTE (18)ILLCHR,ILLCHR,ILLCHR,ILLCHR,LEVEL3,ILLCHR,ILLCHR,OPNLOC ;57
BYTE (18)ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;67
BYTE (18)ILLCHR,ILLCHR,ILLCHR,SEMICL,ILLCHR,EQUALS,SUPLIM,ILLCHR ;77
BYTE (18)ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;107
BYTE (18)ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;117
BYTE (18)ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;127
BYTE (18)ILLCHR,ILLCHR,ILLCHR,OPLBKT,BKSLSH,ILLCHR,UARROW,BARROW ;137
BYTE (18)ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;147
BYTE (18)ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;157
BYTE (18)ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR ;167
BYTE (18)ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,ILLCHR,COMRUB ;177
SUBTTL DATA STORAGE
DEFINE NAMES <
X 11,SETP11 ;/11
X 8,SETPD8 ;/8
X BINARY,SETBIN ;/BINARY PRODUCED BY MACDLX
X CORE,SETCOR ;/CORE:28K
X DTELDR,SETFOO ;/DTELDR PRODUCED BY DTELDR
X DUMP,SETDMP ;/DUMP PRODUCED BY NETLDR
X FE,SET.FE ;/FE:XY
X FESYMB,SETFES ;/FESYMBOLS TYPE SYMBOL TABLE
X GO,SETGO ;/GO RIGHT NOW
X HELP,SETHLP ;/HELP ME, PLEASE
X LA36,SETLA3 ;/LA36
X LINE,SETLIN ;/LINE:N
X LOAD,SETLOD ;/LOAD SYMBOL TABLE
X LOCK,SETLOK ;/LOCK IN CORE
X LSD,SETDMP ;/LSD PRODUCED BY BOOT11
X MCB,SETDFE ;/MCB:node
X MCBDMP,SETMCB ;/MCBDMP PRODUCED BY DECNET NETWORK MANAGEMENT
X MCBSYS,SETMCS ;/MCBSYS TO READ AN UNRUN MCB SYSTEM IMAGE
X MERGE,SETMRG ;/MERGE THIS ON TOP OF OLD DUMP
X MODULE,SETMOD ;/MODULE:NAME TO SET ENTRIES IN SYMBOL TABLE
X NODE,SETNOD ;/NODE:N
X PATCH,SETWEN ;/PATCH IS ALLOWED
X PDP11,SETP11 ;/PDP11
X PDP8,SETPD8 ;/PDP8
X PORT,SETPRT ;/PORT:X OF THE DL10
X RELOCA,SETREL ;/RELOCATION OF SYMBOLS (GLOBAL AND LOCAL)
X SAVE,SETSAV ;/SAVE SYMBOLS
X STB,SETRST ;/STB PRODUCED BY MACY11 OR VNP20
X SYMBOL,SETSYM ;/SYMBOL TO BE READ
X UBA,SETUBA ;/UBA - SET UNIBUS TO USE
X VT52,SETVTX ;/VT52
>
DEFINE X (A,B) < SIXBIT \A\
Z'A==:XX
XX==XX+XX
>
XX==1
SW.LST: NAMES
Z
DEFINE X (A,B) < 0,,B >
SW.DSP: NAMES
SWTCON (<PDP11,11>,<PDP8,8>)
SWTCON (<PDP8,8>,<PDP11,11>)
SWTCON (<BINARY>,<DTELDR,DUMP,FE,FESYMB,GO,HELP,LINE,LOAD,LOCK,LSD,MCB,MCBDMP,MCBSYS,MODULE,NODE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<CORE>,<FE,FESYMB,HELP,LINE,LOAD,LOCK,MCB,MODULE,NODE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<DTELDR>,<BINARY,DUMP,FE,FESYMB,GO,HELP,LINE,LOAD,LOCK,LSD,MCB,MCBSYS,MCBDMP,MODULE,NODE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<DUMP>,<BINARY,DTELDR,FE,FESYMB,GO,HELP,LINE,LOAD,LOCK,MCB,MCBSYS,MCBDMP,MODULE,NODE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<FE>,<BINARY,DTELDR,DUMP,FESYMB,GO,HELP,LINE,LOAD,LOCK,LSD,MCB,MCBSYS,MCBDMP,MERGE,MODULE,NODE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<FESYMB>,<8,PDP8,BINARY,CORE,DTELDR,DUMP,FE,GO,HELP,LINE,LOAD,LOCK,LSD,MCB,MCBDMP,MCBSYS,MERGE,NODE,PATCH,PORT,SAVE,STB,SYMBOL,UBA>)
SWTCON (<GO>,<BINARY,DTELDR,DUMP,FE,HELP,LINE,LOAD,LOCK,LSD,MCB,MCBSYS,MCBDMP,MERGE,MODULE,NODE,PORT,RELOCA,SAVE,STB,UBA>)
SWTCON (<HELP>,<11,8,BINARY,CORE,DTELDR,DUMP,FE,FESYMB,GO,LINE,LOAD,LOCK,LSD,MCB,MCBDMP,MCBSYS,MERGE,MODULE,NODE,PATCH,PDP11,PDP8,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<LA36>,<VT52>)
SWTCON (<LINE>,<BINARY,CORE,DTELDR,DUMP,FE,FESYMB,GO,HELP,LOAD,LSD,MCB,MCBDMP,MCBSYS,MERGE,MODULE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<LOAD>,<>)
SWTCON (<LOCK>,<BINARY,DTELDR,DUMP,FESYMB,GO,HELP,LOAD,LSD,MCBDMP,MCBSYS,MERGE,MODULE,RELOCA,SAVE,STB,SYMBOL>)
SWTCON (<LSD>,<BINARY,DTELDR,FE,FESYMB,GO,HELP,LINE,LOAD,LOCK,MCB,MCBSYS,MCBDMP,MODULE,NODE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<MCB>,<BINARY,DTELDR,DUMP,FE,FESYMB,GO,HELP,LINE,LOAD,LSD,MCBSYS,MCBDMP,MERGE,MODULE,NODE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<MCBDMP>,<BINARY,DTELDR,DUMP,FE,FESYMB,GO,HELP,LINE,LOAD,LOCK,LSD,MCB,MCBSYS,MODULE,NODE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<MCBSYS>,<BINARY,DTELDR,DUMP,FE,FESYMB,GO,HELP,LINE,LOAD,LOCK,LSD,MCB,MCBDMP,MODULE,NODE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<MERGE>,<FE,FESYMB,GO,HELP,LINE,LOCK,MCB,MCBDMP,MCBSYS,MODULE,NODE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<MODULE>,<11,8,BINARY,CORE,DTELDR,DUMP,FE,FESYMB,GO,HELP,LINE,LOAD,LOCK,LSD,MCB,MCBSYS,MCBDMP,MERGE,NODE,PATCH,PDP11,PDP8,PORT,SAVE,SYMBOL,UBA>)
SWTCON (<NODE>,<BINARY,DTELDR,DUMP,FE,FESYMB,GO,HELP,LOAD,LSD,MCB,MCBSYS,MCBDMP,MERGE,MODULE,PORT,RELOCA,SAVE,STB,SYMBOL,UBA>)
SWTCON (<PATCH>,<FESYMB,HELP,LOAD,SAVE,STB,SYMBOL>)
SWTCON (<PORT>,<>)
SWTCON (<RELOCA>,<>)
SWTCON (<SAVE>,<>)
SWTCON (<STB>,<>)
SWTCON (<SYMBOL>,<11,8,BINARY,CORE,DTELDR,DUMP,FE,FESYMB,GO,HELP,LINE,LOCK,LOAD,LSD,MCB,MCBDMP,MCBSYS,MERGE,NODE,PATCH,PDP11,PDP8,PORT,RELOCA,SAVE,STB,UBA>)
SWTCON (<UBA>,<8,PDP8,BINARY,DTELDR,DUMP,FE,FESYMB,HELP,LINE,LOCK,LOAD,LSD,MCB,MCBDMP,MCBSYS,MERGE,MODULE,NODE,PORT,RELOCA,SAVE,STB,SYMBOL>)
SWTCON (<VT52>,<LA36>)
DEFINE NAMES <
X DEF,%IFDEF
X DF,%IFDEF
X E,%IF.EQ
X EQ,%IF.EQ
X ERR,%IFERR
X G,%IF.GT
X GE,%IF.GE
X GT,%IF.GT
X N,%IF.NE
X NDF,%IFNDF
X NE,%IF.NE
X L,%IF.LT
X LE,%IF.LE
X LT,%IF.LT
>
DEFINE X (A,B),< SIXBIT \A\ >
%IFLST: NAMES
Z
DEFINE X (A,B),< EXP B >
%IFDSP: NAMES
LASTSW: Z ;ROUTINE TO EXECUTE AFTER PARSING OTHER SWITCHES
DAT: Z ;POINTER TO DATA AREA
DOTFOO: Z ;IN CASE 32 OR 48 BIT INSTRUCTION
; LH = -1 MEANS MEMORY ADR
; LH = 400000 + BITS 12-17 ARE MODE
DTFINP: Z ;DOTFOO WHILE TYPEING IN STUFF
DOTOLD: Z ;OLD VALUE FOR DOT IN CASE OF ESCAPE CR ETC.
DTFOLD: Z ;KEEP DOTFOO HERE
EXPRES: Z ;BUILD EXPRESSIONS HERE
REMAIN: Z ;REMAINDER FROM LAST DIVISION
LFTSAV: Z ;IF LH NONZERO RH PRECEDED <
PDP8F: Z ;NONZERO IF WE DOING PDP8 STYLE
GOTO: EXP 2 ;STARTING ADDRESS FOR PROGRAM, EVEN, SO 11'S WORK
CORARG: Z ;CORE SIZE USER REQUESTED
SYMPTR: Z ;BYTE POINTER TO FILL SYMBOL
SYMBOL: Z ;CURRENT SYMBOL WE ARE BUILDING
DATA: BLOCK ^D20
SBEGIN: XWD -1,0 ;FIRST ADDRESS FOR SEARCH
S..END: EXP 0 ;LAST ADDRESS FOR SEACRH
S.WORD: EXP 0 ;WORD TO SEARCH FOR
S.MASK: EXP 177777 ;MASK FOR WORD SEARCH
REPEAT MASKSZ,<EXP 0> ;MASK FOR WORD SEARCH
INPOPR: EXP 0 ;INPUT OPERATION (0=+,1=-,2=*,3=',4=!,5=&,6=^X)
PRECED: EXP 0 ;PRECEDENCE OF INPOPR = 0
EXP 0
EXP 1
EXP 1
EXP 2
EXP 2
EXP 2
BYTCNT: XWD 1,1 ;REPETITION COUNTS FOR OUPUT BYTES ETC.
O.MODE: EXP 0 ;OUTPUT MODE LH = PERMANENT, RH = CURRENT
; (0=SYMBOLIC, 1=ADDRESS, 2=NUMERIC, 3=BYTES,
; 4=ASCII TEXT, 5=EBCDIC TEXT)
ORADIX: ^D8,,^D8 ;OUTPUT RADIX
; LH IS PERMANENT SETTING, RH IS CURRENT
ESCSAV: BLOCK 3 ;SAVE BYTCNT ETC HERE IN CASE OF RUBOUT ETC.
LSTADR: -1,,Z ;LAST ADDRESS DISPLAYED
LSTIAD: Z ;LAST ADDRESS INPUT
ESC.Q.: Z ;USED IF GET AN <ALT>Q
ESCOCT: Z ;USED TO ACCUMULATE OCTAL NUMBER FOR ESCAPE ARG
ESCDEC: Z ;USED TO ACCUMULATE DECIMAL NUMBER FOR ESCAPE ARG
;KEEP A COPY OF CURRENT COMMAND HERE TO RETYPE IT OR RUBOUT CHARS
CMDTKR: Z ;USE TO REPROCESS LINE
CMDLIM: Z ;LIMIT TO RESCAN
CMDPTR: Z ;UES TO FILL COMMAND LINE
Q= <CMDSIZ+4>/5
CMDLIN: BLOCK Q
TTYBIT: EXP TF.RUB ;FLAGS TO DEFINE TYPE OF TERMINAL
FLGSAV: EXP 0 ;SAVE FLAG REGISTER HERE IN CASE OF REENTER
CMDCON: EXP 0 ;COMMAND CONFLICT LOCATION
OSTYPE: Z ;THE FLAG FOR THE TYPE OF OS WE ARE RUNNING
XMSG: BLOCK ^O274/4+1 ; DDCMP Q flush buffer
RETRY: BLOCK 1 ; BOOT retry counter
;PDP11 WORDS ARE STORED IN PDP10 MEMORY AS FOLLOWS
; 1 1 1 1 2 2 2 3
; 0 1 2 9 0 7 8 9 0 7 8 5
; +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
; ! ! ! byte 1 ! byte 0 ! ! ! byte 3 ! byte 2 !
; +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;THE SPARE BITS ARE USED AS A FLAG TO SAY BYTE HAS BEEN USED
; I.E. BYTE WAS READ INTO FROM DUMP OR BINARY FILE OR WRITTEN BY USER
; E.G. IF BYTE 0 IS SET THEN BIT 1 IS SET AS A FLAG
MEMORY: EXP 0 ;ADDRESS OF DUMP MEMORY
MEMLIM: EXP -1 ;HIGHEST LOCATION IN DUMP
; BIT ON IFF BYTE READ OR DEPOSITED
MEMUSE: EXP 0 ;T1,,POINTER TO MEMORY USE TABLE
; FOR EACH BYTE IN SIMULATED MEMORY, BIT WILL
; BE SET IF BYTE SET BY LOAD OR USER
SWTMSK: EXP 0 ; A CONFLICT MASK FOR SWITCHES
BEGREG: EXP 0 ;R0
EXP 0 ;R1
EXP 0 ;R2
EXP 0 ;R3
EXP 0 ;R4
EXP 0 ;R5
EXP 0 ;R6
EXP 0 ;R7
BEG.PS: EXP 0 ;BEGINNING PS
IFNDEF PDLEN,<PDLEN==100>
PDL: BLOCK PDLEN
IFNDEF PATLEN,<PATLEN==100>
PAT..:
PATCH: BLOCK PATLEN
SUBTTL SYMBOL TABLES
DEFINE X (VAL,MASK,NAME,FLAG) <
IFL <VAL-Q>,<PRINTX SYMBOL TABLE MESSED UP
QVAL= Q
>
IFN <<VAL&MASK>-VAL>,<PRINTX SYMBOL TABLE MASK>
Q= VAL
Z= <<FLAG>&SMF.P8>!<<FLAG>&SMF.11>
IFE <<FLAG>&<SMF.P8!SMF.11>>,<Z=1>
IFN Z,<
SIXBIT \NAME\
EXP VAL
XWD FLAG,MASK
SIXBIT \DDT11\
>
>;END OF DEFINE X
Q= 0
SYMBEG: EXP .+2
SYMEND: EXP SYMZZZ
;FOLLOWING IS DYNAMIC STORAGE
; SPACE (IF EXEC MODE)
; MEMORY FOR EXEC MODE USAGE (EPT, UPT, ETC.) POINTED TO BY EPTBLK
; MEMORY USE TABLE (IF READ FILE INTO CORE)
; MEMORY (IF READ FILE INTO CORE)
; SYMBOL TABLE (AT END CAUSE MOST LIKELY TO CHANGE IN SIZE)
INSTRU
SYMZZZ==.
PURGE Z,ZZ,ZZRET,Q,QQ,X,XX,DDBLNK,DDBADR
DDTEND: END DDT11