Trailing-Edge
-
PDP-10 Archives
-
BB-F493Z-DD_1986
-
10,7/dcncsp/tsc.mac
There are 3 other files named tsc.mac in the archive. Click here to see a list.
TITLE TSC NFT Terminal Services Controller module
SUBTTL Robert Houk/RDH
SEARCH JOBDAT,MACTEN,UUOSYM ;STANDARD DEFINITIONS
SEARCH NFTDEF ;NFT-WIDE DEFINITIONS
SEARCH SWIL ;SWIL PACKAGE DEFINITIONS
SALL ;PRETTY LISTINGS
.DIREC FLBLST ;PRETTIER LISTINGS
TWOSEG 400000 ;NICE PURE CODE
COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984,1986. ALL RIGHTS RESERVED.
\;END COPYRIGHT MACRO
COMMENT \
TSC -- NFT "Terminal Service Controller" module
COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984,1986. ALL RIGHTS RESERVED.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ONLY
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE
ABOVE NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THEROF MAY NOT BE PROVIDED
OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND OWNERSHIP
OF THIS SOFTWARE IS HEREBY TRANSFERRED.
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
\
SUBTTL Revision history
;INITIAL VERSION CREATED FROM NIK 25-MAR-80
;13 RDH 30-Apr-85
; Version 2.
;15 LEO 16-Aug-85
; Do copyrights
;16 RDH 30-Oct-85
; Fix [15]
SUBTTL External linkages
;TO NFT ERROR ROUTINES
EXTERN ERRMSG ;ERROR MESSAGE PROCESSOR
;TO NFT/SCAN INTERFACE
EXTERN INX, OUX ;ALLOCATE FSB'S
EXTERN CLRFIL, CLRALL ;CLEAR FOR NEW SPECS
EXTERN CLRSTK, MEMSTK, APLSTK ;STICKY DEFAULT PROCESSORS
SUBTTL Symbol definitions
COMMENT \
Throughout this program the two terms "controlling terminal" and
"dataset terminal" appear. Controlling terminal is used to refer
to the logically controlling terminal of the linked pair (which
is typically the job's controlling terminal). Dataset terminal is
used to refer to the linked or controlled terminal, which is pre-
sumed to be a dataset terminal with a Bell 801 autodialer.
\
;THE ACS
CM=14 ;CHARACTER/DATA MUNGING
FL=15 ;FLAGS
;PROGRAM FLAGS
PSISON==1B00 ;PSI SYSTEM IS ON (USED AS INITIALIZATION FLAG)
IOCOPN==1B01 ;CONTROLLING TERMINAL I/O CHANNEL OPEN
IODOPN==1B02 ;DATASET TERMINAL I/O CHANNEL OPEN
LGIOPN==1B03 ;INPUT (TYPEIN) LOGGING CHANNEL OPEN
LGINOW==1B04 ;INPUT (TYPEIN) LOGGING NOW IN EFFECT
LGOOPN==1B05 ;OUTPUT (TYPEOUT) LOGGING CHANNEL OPEN
LGONOW==1B06 ;OUTPUT (TYPEOUT) LOGGING NOW IN EFFECT
;I/O CONTROL FLAGS
IOXFLG==1B18 ;SOMETHING SOMEWHERE HAPPENED (AT INTERRUPT LEVEL)
IOCINP==1B19 ;CONTROLLING TERMINAL HAS INPUT PENDING
IOCOUF==1B20 ;CONTROLLING TERMINAL NEEDS AN OUT UUO
IOCOUP==1B21 ;CONTROLLING TERMINAL HAS OUTPUT PENDING
IOCEOF==1B22 ;CONTROLLING TERMINAL "EOF" (I.E., ^\ TYPED)
IOCIOE==1B23 ;CONTROLLING TERMINAL I/O ERROR
IOCCLR==IOCOPN!IOCINP!IOCOUF!IOCOUP!IOCEOF!IOCIOE
IODINP==1B24 ;DATASET TERMINAL HAS INPUT PENDING
IODOUF==1B25 ;DATASET TERMINAL NEEDS AN OUT UUO
IODOUP==1B26 ;DATASET TERMINAL HAS OUTPUT PENDING
IODIOE==1B27 ;DATASET TERMINAL I/O ERROR
IODPNM==1B28 ;DATASET TERMINAL DIALED OUT
IODCLR==IODOPN!IODINP!IODOUF!IODOUP!IODIOE!IODPNM
;OTHER STUFF
PDLEN==^D50
;I/O CHANNELS OF INTEREST
IOC==2 ;CONTROLLING TTY
IOD==3 ;DATASET (CONTROLLED) TTY
LGI==4 ;INPUT (TYPEIN) LOGGING CHANNEL
LGO==5 ;OUTPUT (TYPEOUT) LOGGING CHANNEL OPEN
SUBTTL Command base table
DEFINE CMNDS,<
CM DLINK,DLI,<Establish DATA link via [dataset/remote] terminal line>
CM RESET,TRES,<Reset all I/O, return to initial state>
CM TLINK,TLI,<Establish TTY link via [dataset/remote] terminal line>
IFN FT$FAL,<
CM FAL,TFAL,<Enter FAL mode>
>
IFN FT$NIP,<
CM NIP,TNIP,<Enter NIP mode>
>
> ;END OF COMMANDS MACRO
;NOW BUILD THE TSC COMMAND BASE TABLE
DOCMND(TSC)
SUBTTL TSC Command
TSC:: PUSHJ P,TSC00 ;DO TSC-STARTUP STUFF
JFCL ;HUH?
PUSHJ P,.CLEOL## ;CLEAR UP ANY JUNK LEFT OVER IN COMMAND
JRST .POPJ1## ;SUCCESSFUL RETURN
;TSC STARTUP STUFF
TSC00: MOVEI CM,PSIVEC ;BASE OF PSI VECTORS
PIINI. CM, ;INITIALIZE THE PSI SYSTEM
ERROR PIF,<PIINI. failed>,PSIER,CM
;SELECT COMMAND DISPATCH
MOVEI T1,TSCBAS ;TSC COMMAND BASE
MOVEM T1,CMDBAS## ;SET NEW COMMAND BASE
SETZ FL, ;INITIALIZE ALL TSC FLAGS
SETOM IGNRFF## ;IGNORE .JBFF FOR AWHILE
XMOVEI T1,TSCEX ;OUR VERY OWN "EXIT" PROCESSOR
MOVEM T1,NFTXRT## ;INTERCEPT "EXIT" COMMANDS
;ALL DONE, READY FOR NORMAL TSC COMMAND PROCESSING
JRST .POPJ1## ;START PARSING COMMANDS
SUBTTL DLINK command
DLINK:: PUSHJ P,TSC00 ;SWITCH TO TSC MODE
POPJ P, ;DUH?
DLI: ERROR DNY,<DLINK command not yet implemented>
SUBTTL TLINK command
;TLINK - EXTERNAL ENTRY FROM NIP MODE
TLINK:: PUSHJ P,TSC00 ;SWITCH TO TSC MODE
POPJ P, ;DUH?
;TLINK - INTERNAL COMMAND DISPATCH POINT
TLI: TXNN FL,IODOPN ;DATASET TERMINAL ALREADY OPEN?
JRST TLI20 ;NO, READ IN DATASET TERMINAL SPEC
;DATASET TERMINAL IS ALREADY OPEN (PREVIOUS TLINK COMMAND)
;JUST REENTER I/O LINK LOOP
SKIPE SIFIR## ;STILL GOT INPUT
SKIPN SOFIR## ;AND OUTPUT FILE SPECS?
ERROR TLS,<TLINK command lost old SCAN blocks>
JUMPLE CH,TLI50 ;YES, COMMAND SHOULD HAVE ENDED HERE
ERROR DAO,<Dataset terminal already TLINKed>
;READ IN SPEC FOR DATASET TERMINAL
TLI20: JUMPLE CH,ERRNIF## ;EOL HERE IS JUNK
SKIPN SIFIR## ;ALREADY HAVE INPUT
SKIPE SOFIR## ;AND/OR OUTPUT SPECS?
ERROR THS,<TLINK command still has SCAN blocks>
PUSHJ P,TLIC ;FINISH OFF THE TLINK COMMAND LINE
JRST TLIER ;JUNK
PUSHJ P,TLID ;SET UP ANY DEFAULTS
JRST TLIER ;JUNK
TLI50: PUSHJ P,TLIL ;LINK THE TWO TERMINALS TOGETHER
JRST TLIER ;JUNK
;ALL DONE WITH TLINK COMMAND (BUT NOTE TERMINAL MAY STILL BE OPEN
;AWAITING FURTHER BLABBING
JRST .POPJ1## ;RETURN HAPPILY
;HERE ON ERROR
TLIER: PUSHJ P,TRES ;SEE WHAT WE CAN RECLAIM
JFCL ;DUH?
POPJ P, ;ERROR RETURN
;HERE TO READ REST OF TLINK COMMAND (TERMINAL SPECS)
TLIC:; SKIPE SIFIR## ;JUST CHECKING
; STOPCD ;SOMEONE LEFT SOMETHING LYING AROUND
PUSHJ P,.REEAT## ;ALREADY HAVE FIRST CHARACTER IN CH!
MOVE T1,[TLITL,,TLITS] ;.TSCAN BLOCK
PUSHJ P,.TSCAN## ;READ A COMMAND LINE
PUSHJ P,CLRFIL ;CLEAR FILE ANSWERS BEFORE SWITCH.INI
MOVE T1,[TLIOL,,TLIOS] ;.OSCAN BLOCK
PUSHJ P,.OSCAN## ;CHECK SWITCH.INI
;ALL FOR NOW
JRST .POPJ1## ;SUCCESSFUL RETURN
;HERE TO SUPPLY ANY TLINK DEFAULTS
TLID: SKIPN P1,SIFIR## ;ADDRESS OF FIRST INPUT FILE SPEC BLOCK
JRST ERRNIF## ;NO INPUT (DATASET) TERMINAL?
;SETUP INPUT OR DATASET TERMINAL DEFAULTS
TLID02: MOVE T1,P1 ;ADDRESS OF CURRENT INPUT SPEC
MOVEI T2,.FXLEN ;AND ITS LENGTH
PUSHJ P,DOOSDF## ;APPLY SWITCH.INI DEFAULTS
MOVE T1,.FXNAM(P1) ;GET NAME IN CASE NO DEVICE
SKIPN .FXDEV(P1) ;EXPLICIT DEVICE SPECIFIED?
MOVEM T1,.FXDEV(P1) ;USE FILENAME THEN (USER DIDN'T TYPE ":")
SKIPN .FXDEV(P1) ;HAVE A DEVICE?
ERROR DNS,<Device not specified>,,,
ADDI P1,.FXLEN ;STEP TO NEXT SPEC
CAMG P1,SILAS## ;REACHED LAST ONE YET?
JRST TLID02 ;NOPE, LOOP BACK FOR MORE DEFAULTS
;NOW SETUP OUTPUT OR CONTROLLING TERMINAL DEFAULTS
SKIPE P2,SOFIR## ;GET OUTPUT (CONTROLLING) TERMINAL FSB
JRST TLID20 ;AND SET IT UP
;NO OUTPUT TERMINAL, USE DEVICE "TTY:"
PUSHJ P,CLRFIL ;CLEAR FILE SWITCHES/ETC.
PUSHJ P,OUX ;GET AN OUTPUT FILE SPEC BLOCK
MOVE P2,SOFIR## ;GET IT'S ADDRESS
TLID20: SKIPN T1,.FXNAM(P2) ;GET NAME IN CASE NO DEVICE
MOVSI T1,'TTY' ;USE CONTROLLING TTY IF NOTHING GIVEN
SKIPN .FXDEV(P2) ;EXPLICIT DEVICE GIVEN?
MOVEM T1,.FXDEV(P2) ;NO, USE NAME THEN
;ALL DEFAULTS SETUP
JRST .POPJ1## ;SUCCESSFUL RETURN
;HERE TO ENTER MAIN TERMINAL LINK LOOP
TLIL: MOVEI T1,10 ;PRESET DATASET TERMINAL ABORT LIMIT
MOVEM T1,IODECT ; . . .
MOVE P1,SIFIR## ;DATASET TERMINAL SCAN BLOCK
MOVE P2,SOFIR## ;CONTROLLING TERMINAL SCAN BLOCK
PUSHJ P,OPIOD ;OPEN DATASET TERMINAL FOR I/O
POPJ P, ;DIED, BACK TO COMMAND LEVEL
PUSHJ P,OPIOC ;OPEN CONTROLLING TERMINAL FOR I/O
POPJ P, ;DIED, BACK TO COMMAND LEVEL
PUSHJ P,OPPSI ;ENABLE PSI, GENERAL FINAL INITIALIZATION
POPJ P, ;DIED, BACK TO COMMAND LEVEL
INFRM TLC,<Terminal link complete and ready for I/O>
PUSHJ P,TLIO ;GO TO TTY TRANSFER LOOP
POPJ P, ;DIED, BACK TO COMMAND LEVEL
;ALL DONE, LOOK FOR MORE COMMANDS (BUT NOTE THAT THE DATASET TERMINAL
;IS STILL OPENED FOR I/O)
JRST .POPJ1## ;RETURN TO COMMAND SCANNER
;TLINK SWITCH DEFINITIONS
DEFINE SWTCHS,<
SP DIAL,<POINT <^D65-2>,S.DIAL##>,.SWPNM##,,
>
DOSCAN(TLISW)
;"TLINK" TSCAN PARAMETER BLOCK
TLITS: EXP FXVRSN ;PROTOCOL VERSION WORD
IOWD TLISWL,TLISWN ;IOWD POINTER FOR SWITCH NAMES
XWD TLISWD,TLISWM ;DEFAULT TABLE,,PROCESSOR TABLE
XWD 0,TLISWP ;<FUTURE>,,STORAGE POINTERS
SIXBIT /TSC/ ;HELP
XWD CLRALL,CLRFIL ;CLEAR ALL,,CLEAR FILE
XWD INX,OUX ;ALLOC INPUT AREA,,ALLOC OUTPUT AREA
XWD MEMSTK,APLSTK ;MEMORIZE STICKY,,APPLY STICKY
XWD CLRSTK,0 ;CLEAR STICKY,,FLAGS
Z ;<FUTURE>,,SWITCH VALUE STORAGE RTN
TLITL==.-TLITS
;OSCAN BLOCK
TLIOS: EXP FXVRSN ;PROTOCOL VERSION WORD
IOWD TLISWL,TLISWN ;IOWD POINTER FOR SWITCH NAMES
XWD TLISWD,TLISWM ;DEFAULT TABLE,,PROCESSOR TABLE
XWD 0,TLISWP ;<FUTURE>,,STORAGE POINTERS
SIXBIT /TSC/ ;HELP
XWD TLIOSL,TLIOSN ;OPTIONS NAME(S)
TLIOL==.-TLIOS
TLIOSN: SIXBIT \TLINK\
SIXBIT \TSC\
TLIOSL==.-TLIOSN
SUBTTL RESET command
TRES: TXZN FL,PSISON ;PSI SYSTEM ON?
JRST TRES2 ;NO
MOVX CM,PS.FOF ;PSI CONTROL FLAGS TO
PISYS. CM, ;TURN OFF THE PSI SYSTEM
WARN PFF,<PISYS. to turn off the PSI system failed>,PSIER,CM
TRES2: TXZN FL,IOCOPN ;CONTROLLING TERMINAL OPEN FOR I/O?
JRST TRES4 ;NO
PUSHJ P,CLIOC ;YES, CLOSE IT OFF
JFCL ;DUH?
TRES4: TXZN FL,IODOPN ;DATASET TERMINAL OPEN FOR I/O?
JRST TRES9 ;NO
PUSHJ P,CLIOD ;YES, CLOSE IF OFF
JFCL ;DUH?
TRES9: PUSHJ P,FRESB## ;FREE UP THE FILE SPEC BLOCKS
JFCL ;HUH?
SETZ FL, ;NO MORE FLAGS OF INTEREST
JRST .POPJ1## ;ALL DONE HERE
SUBTTL NIP and FAL commands
IFN FT$FAL,<
TFAL: MOVEI T1,FAL## ;ADDRESS OF FAL-MODE ENTRY
JRST TNIP00 ;GO SWITCH COMMAND MODES
> ;END IFN FT$FAL
IFN FT$NIP,<
TNIP: MOVEI T1,NIP## ;ADDRESS OF NIP-MODE ENTRY
JRST TNIP00 ;GO SWITCH COMMAND MODES
> ;END IFN FT$NIP
TNIP00: PUSH P,T1 ;SAVE DISPATCH ADDRESS
PUSHJ P,TRES ;DO A GENERIC "RESET"
JFCL ;DUH?
TNIP20: SETZM IGNRFF## ;.JBFF SHOULD BE BACK IN SYNC NOW
SETZM NFTXRT## ;CLEAR "EXIT" INTERCEPT
POPJ P, ;"DISPATCH" TO NIP OR FAL MODE PROCESSOR
SUBTTL Command support routines
;TSCEX - "EXIT" PROCESSOR
;
;Called from SCAN on any sort of EXIT condition ("EXIT/^Z" command,
;or whatever).
TSCEX: PUSHJ P,TRES ;SHUT DOWN ALL I/O CONNECTIONS
JFCL ;WELL, WE TRIED ANYWAY
PJRST .MNRET## ;CAN NOW SAFELY GO TO MONITOR LEVEL
SUBTTL I/O support routines
;OPEN CONTROLLING TERMINAL FOR I/O
OPIOC: TXNE FL,IOCOPN ;CONTROLLING TERMINAL ALREADY OPEN?
JRST .POPJ1## ;YES, ALL SET THEN
MOVE T1,P2 ;CONTROLLING TERMINAL SCAN BLOCK
PUSHJ P,TTNAM ;GENERATE SIXBIT NAME FOR OPEN
ERROR CNA,<Controlling terminal not available >,CDTER,P2
MOVE T2,T1 ;COPY IT
MOVEM T1,TTCNAM ;REMEMBER IT FOR ERRORS ETC.
MOVX T1,UU.AIO+.IOPIM;USE PACKED IMAGE MODE FOR HIM TOO
MOVE T3,[IOCOBH,,IOCIBH] ;BUFFER RING CONTROL BLOCKS
OPEN IOC,T1 ;OPEN CONTROLLING TTY
ERROR COC,<Can't OPEN controlling terminal >,.TSIXN##,TTCNAM
MOVEI T1,IOC ;ALLEGED TERMINAL CHANNEL
DEVCHR T1, ;SNIFF ABOUT IT
TXNN T1,DV.DSK ;IF DISK (OR NUL:)
TXNN T1,DV.TTY ;NO, TTY?
ERROR CTT,<Controlling terminal not a TTY >,.TSIXN##,TTCNAM,OPIOCE
MOVEI T1,IOC ;CHANNEL NUMBER
IONDX. T1, ;GET IT'S TERMINAL UDX
ERROR ICF,<IONDX. for controlling terminal failed>,,,OPIOCE
MOVEM T1,TTCUDX ;SAVE IT FOR LATER TRMOP.S
MOVEI T1,IOCINT ;CONTROLLING TERMINAL INTERRUPT SERVICE
MOVEM T1,IOCVEC+.PSVNP;SET IN VECTOR BLOCK
MOVX T1,PS.VTO ;CONTROL MODE BIT
MOVEM T1,IOCVEC+.PSVFL;SET IN VECTOR BLOCK
MOVE CM,[PS.FAC+IOCARG] ;ARG BLOCK TO
PISYS. CM, ;CONNECT CONTROLLING TERMINAL TO PSI
ERROR PCF,<PISYS. for controlling terminal failed>,PSIER,CM,OPIOCE
MOVE T1,.JBFF ;.JBFF BEFORE IOC BUFFERS ALLOCATED
INBUF IOC,1 ;ONLY WANT ONE-BUFFER RINGS
OUTBUF IOC,1 ; . . .
MOVE T2,.JBFF ;.JBFF AFTER IOC BUFFERS ALLOCATED
DMOVEM T1,IOCFF ;REMEMBER FOR LATER DEALLOCATION
TXO FL,IOCOPN ;CONTROLLING TERMINAL READY FOR I/O
JRST .POPJ1## ;SUCCESSFUL RETURN
;HERE ON "OPEN" CLASS ERROR
OPIOCE: PUSHJ P,CLIOC ;CLOSE OFF THE CHANNEL
JFCL ;DUH?
POPJ P, ;AND ERROR RETURN
;CLOSE CONTROLLING TERMINAL CHANNEL
CLIOC: CLOSE IOC, ;GENTLY
RELEAS IOC, ; LEGGO
;TRY TO RECLAIM BUFFER(S)
DMOVE T1,IOCFF ;GET BACK .JBFF(S)
JUMPE T1,CLIOC9 ;ALL DONE IF NO BUFFERS ALLOCATED YET
CAMN T2,.JBFF ;STILL WHAT WE LAST LEFT IT?
MOVEM T1,.JBFF ;YES, RECLAIM IOC BUFFERS
SETZB T1,T2 ;CLEAR BUFFER .JBFF(S)
DMOVEM T1,IOCFF ;SO NO ONE ELSE LOOKS AT THEM
SETZM IOCIBH+.BFADR ;CLEAR OUT OLDE LINK WORD
SETZM IOCOBH+.BFADR ;YET ANOTHER OLDE LINK WORD
;MARK IOC AS DEFUNCT
CLIOC9: TXZ FL,IOCCLR ;CLEAR ALL IOC FLAGS
JRST .POPJ1## ;RETURN SUCCESSFULLY
;OPEN DATASET TERMINAL FOR I/O
OPIOD: TXNE FL,IODOPN ;DATASET TERMINAL ALREADY OPEN?
JRST .POPJ1## ;YES, ALL DOEN THEN
MOVE T1,P1 ;DATASET TERMINAL SCAN BLOCK
PUSHJ P,TTNAM ;GET SIXBIT DEVICE NAME FOR OPEN
ERROR DNA,<Dataset terminal not available >,CDTER,P1
MOVE T2,T1 ;IN CASE DEVICE IS OK, SAVE ITS NAME
MOVEM T2,TTDNAM ;REMEMBER NAME USED
MOVX T1,UU.AIO+.IOPIM;A REAL TTY, USE PACKED IMAGE MODE
MOVE T3,[IODOBH,,IODIBH] ;USER BUFFER CONTROL BLOCKS
OPEN IOD,T1 ;OPEN DATASET TERMINAL
ERROR COD,<Can't OPEN dataset terminal >,.TSIXN##,TTDNAM
MOVEI T1,IOD ;ALLEGED-TERMINAL CHANNEL
DEVCHR T1, ;ENQUIRE ABOUT IT
TXNN T1,DV.DSK ;A DISK (OR NUL:)?
TXNN T1,DV.TTY ;NO, A REAL TTY?
ERROR DNT,<Dataset terminal not a TTY >,.TSIXN##,TTDNAM,OPIODE
MOVEI T1,IOD ;I/O CHANNEL
IONDX. T1, ;GET DATASET UDX
ERROR IDF,<IONDX. for dataset terminal failed>,,,OPIODE
MOVEM T1,TTDUDX ;SAVE FOR TRMOP.S
SKIPN .FXPNM(P1) ;USER WANT TO DIAL A PHONE FIRST?
JRST OPIOD6 ;NO
INFRM DIA,<Dialing . . .>
MOVEI T1,.TODSC ;TRMOP. DIAL FUNCTION
MOVE T2,TTDUDX ;FOR DATASET TERMINAL
DMOVE T3,.FXPNM(P1) ;PHONE NUMBER TO DIAL
MOVE CM,[4,,T1] ;TRMOP. ARG POINTER TO
TRMOP. CM, ;DIAL A PHONE NUMBER
ERROR TFD,<TRMOP. failure dialing out>,TRMER,CM,OPIODE
TXO FL,IODPNM ;REMEMBER DIALED OUT SO CAN HANG UP LATER
MOVSI T4,-10 ;WAIT 10 (8) SECONDS FOR CARRIER TO APPEAR
TDZA T1,T1 ;SKIP INTO LOOP
OPIOD4: MOVEI T1,1 ;ONE SECOND
SLEEP T1, ;WAIT FOR PHONE TO BE ANSWERED
MOVEI T2,.TODSS ;DATASET STATUS
MOVE T3,TTDUDX ;FOR DATASET TERMINAL
MOVE CM,[2,,T2] ;TRMOP. ARG POINTER TO
TRMOP. CM, ;READ DATASET STATUS
ERROR CRS,<Can't read dataset status>,TRMER,CM,OPIOD6
MOVEM CM,DSSOLD ;REMEMBER LAST DATASET STATUS
JUMPL CM,OPIOD5 ;IF CARRIER PRESENT, ALL SET
TRNN T4,-1 ;IF FIRST TIME ALERT USER
INFRM WFC,<Waiting for carrier . . .>
AOBJN T4,OPIOD4 ;TRY AGAIN IN A SECOND
ERROR TWC,<Timeout waiting for carrier>,,,OPIODE
OPIOD5:;INFRM CAD,<Carrier detected>
;CONTINUED ON NEXT PAGE
;CONTINUED FROM PREVIOUS PAGE
OPIOD6: MOVEI T1,IODINT ;DATASET TERMINAL INTERRUPT SERVICE
MOVEM T1,IODVEC+.PSVNP;SET IN VECTOR BLOCK
MOVX T1,PS.VTO ;CONTROL MODE BIT
MOVEM T1,IODVEC+.PSVFL;SET IN VECTOR BLOCK
MOVE CM,[PS.FAC+IODARG] ;ARG BLOCK TO
PISYS. CM, ;CONNECT IOD CHANNEL TO PSI SYSTEM
ERROR PDF,<PISYS. for dataset terminal failed>,PSIER,CM,OPIODE
MOVEI T1,DSSINT ;DATASET STATUS INTERRUPT SERVICE
MOVEM T1,DSSVEC+.PSVNP;SET IN VECTOR BLOCK
MOVX T1,PS.VTO ;CONTROL MODE BIT
MOVEM T1,DSSVEC+.PSVFL;SET IN VECTOR BLOCK
MOVE CM,[PS.FAC+DSSARG] ;ARG BLOCK TO
PISYS. CM, ;CONNECT TO PSI SYSTEM
ERROR PDS,<PISYS. for dataset status failed>,PSIER,CM,OPIODE
MOVE T1,.JBFF ;.JBFF BEFORE IOD BUFFER(S)
INBUF IOD,1 ;ALLOCATE ONE INPUT BUFFER
OUTBUF IOD,1 ;ALLOCATE ONE OUTPUT BUFFER
MOVE T2,.JBFF ;.JBFF AFTER IOD BUFFERS
DMOVEM T1,IODFF ;SAVE FOR LATER DEALLOCATION
TXO FL,IODOPN ;FLAG DATASET CHANNEL READY FOR I/O
JRST .POPJ1## ;SUCCESSFUL RETURN
;"OPEN" TYPE OF ERROR, RESET CHANNEL AND ABORT
OPIODE: PUSHJ P,CLIOD ;CLOSE OFF THE CHANNEL
JFCL ;DUH?
POPJ P, ;AND ERROR RETURN
;CLOSE DATASET TERMINAL
CLIOD: TXNN FL,IODPNM ;DATASET TERMINAL DIALED OUT?
JRST CLIOD6 ;NO
MOVEI T1,.TODSF ;YES, TRMOP. HANGUP FUNCTION
MOVE T2,TTDUDX ;FOR DATASET TERMINAL
MOVE CM,[2,,T1] ;TRMOP. ARG POINTER TO
TRMOP. CM, ;HANGUP CALL
WARN MNH,<Dataset modem may not have hung up>,TRMER,CM
CLIOD6: CLOSE IOD, ;CAREFULLY
RELEAS IOD, ;RELEASE DATASET TERMINAL
;TRY TO RECLAIM BUFFER(S)
DMOVE T1,IODFF ;GET BACK .JBFF(S)
JUMPE T1,CLIOD9 ;ALL DONE IF NO BUFFERS
CAMN T2,.JBFF ;STILL WHAT WE LAST LEFT IT?
MOVEM T1,.JBFF ;YES, RECLAIM IOD BUFFERS
SETZB T1,T2 ;CLEAR BUFFER .JBFF(S)
DMOVEM T1,IODFF ;SO NO ONE ELSE LOOKS AT THEM
SETZM IODIBH+.BFADR ;CLEAR OUT OLDE LINK WORD
SETZM IODOBH+.BFADR ;YET ANOTHER OLDE LINK WORD
;MARK IOD AS DEFUNCT
CLIOD9: TXZ FL,IODCLR ;CLEAR ALL IOC FLAGS
JRST .POPJ1## ;RETURN SUCCESSFULLY
;"OPEN" PSI SYSTEM - ENABLE FOR INTERRUPTS
OPPSI: TXNE FL,PSISON ;ALREADY BEEN HERE?
JRST .POPJ1## ;YES, THEN ALL SET
MOVX CM,PS.FON ;PSI CONTROL FLAGS TO
PISYS. CM, ;TURN ON THE PSI SYSTEM
ERROR PNF,<PISYS. to turn on the PSI system failed>,PSIER,CM
TXO FL,PSISON ;FLAG ALL INITIALIZED
JRST .POPJ1## ;SUCCESSFUL RETURN
SUBTTL Main TTY I/O loop
TLIO: MOVX T1,HB.RWJ!HB.RIO;WAKE ONLY ON I/O COMPLETION
HIBER T1, ;WAIT FOR SOMETHING IOXCITING TO HAPPEN
ERROR HBF,<HIBER failed>
TXZ FL,IOXFLG ;WERE WE AWAKENED LEGITIMATELY?
; WARN SHW,<Spurious HIBER wakeup>
TLIO10: TXNE FL,IOCINP ;CONTROLLING TERMINAL INPUT TO PROCESS?
PUSHJ P,LOOPC ;YES, DO WHAT WE CAN
TXNE FL,IOCIOE!IODIOE;I/O ERROR ABORTION?
POPJ P, ;YES, PROPAGATE ERROR
TXNE FL,IOCEOF ;TIME TO QUIT?
JRST TLIO90 ;YES
TXNE FL,IODOUF!IODOUP;ANY OUTPUT LEFT LYING AROUND?
PUSHJ P,DOTRY ;YEAH, TRY TO OUTPUT IT
TLIO30: TXNE FL,IODINP ;DATASET TERMINAL INPUT TO PROCESS?
PUSHJ P,LOOPD ;YES, DO WHAT WE CAN
TXNE FL,IOCIOE!IODIOE;I/O ERROR ABORTION?
POPJ P, ;YES, PROPAGATE ERROR
TXNE FL,IOCOUF!IOCOUP;ANY OUTPUT LEFT LYING AROUND?
PUSHJ P,COTRY ;YEAH, TRY TO OUTPUT IT
TXZN FL,IOXFLG ;SOMETHING EXCITING HAPPEN HERE?
JRST TLIO ;NO, WAIT AROUND
JRST TLIO10 ;YES, SKIP HIBERING
;HERE ON ^\ FROM CONTROLLING TERMINAL, POP BACK INTO COMMAND MODE
;BUT LEAVE DATASET TERMINAL OPEN
TLIO90: SETZM IOCIBH+.BFCTR ;EAT ANYTHING LEFT IN THE BUFFER
PUSHJ P,CIBYT ;TRY TO READ ANOTHER BYTE
CAIA ;NO MORE (MAYBE)
JRST TLIO90 ;KEEP EATING
TXZE FL,IOCEOF ;ANOTHER ^\ ?
JRST TLIO90 ;YEAH, JUST EAT IT TOO
;INPUT EATEN, LEAVE PIM MODE AND RETURN THE CONTROLLING TERMINAL
;TO A SEMBLANCE OF SANITY (ECHOING, ASCII, ETC.)
PUSHJ P,CLIOC ;CLOSE OFF CONTROLLING TERMINAL
JFCL ;DUH?
JRST .POPJ1## ;ALL DONE
SUBTTL I/O subroutines
LOOPC: PUSHJ P,CIBYT ;GET CONTROLLING TERMINAL INPUT BYTE
POPJ P, ;NO MORE (OR I/O ERROR)
PUSHJ P,DOBYT ;SEND IT TO DATASET TERMINAL
CAIA ;DATASET TERMINAL FULL (OR I/O ERROR)
JRST LOOPC ;LOOP FOR MORE CHARACTERS
HRROM CM,CISAV ;SAVE CHARACTER NOT YET OUTPUT
TXO FL,IOCINP ;NOTE INPUT STILL PENDING
POPJ P, ;THAT'S ALL WE CAN DO HERE
LOOPD: PUSHJ P,DIBYT ;GET DATASET TERMINAL INPUT BYTE
POPJ P, ;NO MORE (OR I/O ERROR)
PUSHJ P,COBYT ;SEND IT TO CONTROLLING TERMINAL
CAIA ;CONTROLLING TERMINAL FULL (OR I/O ERROR)
JRST LOOPD ;LOOP FOR MORE CHARACTERS
HRROM CM,DISAV ;SAVE CHARACTER NOT YET OUTPUT
TXO FL,IODINP ;NOTE INPUT STILL PENDING
POPJ P, ;THAT'S ALL WE CAN DO HERE
;CONTROLLING TERMINAL I/O
CIBYT: SKIPN CM,CISAV ;SAVED INPUT CHARACTER STASHED AWAY?
JRST CIBYT2 ;NO
ANDI CM,377 ;YES, STRIP OFF GARBAGE
SETZM CISAV ;NOTE WE GOT IT BACK
POPJ P, ;RETURN WITH INPUT CHARACTER
CIBYT1: TXO FL,IOCINP ;FLAG INPUT PENDING
CIBYT2: SOSGE IOCIBH+.BFCTR ;ANY CHARACTERS IN BUFFER?
JRST CIBYT5 ;NO, ASK FOR ANOTHER BUFFER
ILDB CM,IOCIBH+.BFPTR;YES, READ NEXT CHARACTER
CAIE CM,"D"-100 ;^D TYPED?
CAIN CM,"D"-100+200 ;^D (OTHER PARITY)?
CD: JFCL ;YES (NICE PLACE FOR A BREAKPOINT)
CAIE CM,"\"-100 ;ESCAPE TIME?
CAIN CM,"\"-100+200 ;ESCAPE TIME (ODD PARITY)?
TXOA FL,IOCEOF ;FLAG TIME TO ESCAPE
AOS (P) ;RETURN I/O CHARACTER
POPJ P, ;RETURN WITH CHARACTER IN CH
CIBYT5: TXZ FL,IOCINP ;CLEAR INPUT PENDING
IN IOC, ;ASK MONITOR FOR ANOTHER BUFFER
JRST CIBYT1 ;OH HO - GOT ONE, PROCESS INPUT
STATO IOC,IO.EOF!IO.ERR ;NO INPUT, ANY ERRORS?
POPJ P, ;NO, JUST NOTHING THERE
GETSTS IOC,IOSWRD ;YES, GET I/O ERROR STATUS BITS
TXO FL,IOCIOE ;NOTE CONTROLLING TERMINAL I/O ERROR
ERROR CIE,<Controlling terminal input error, >,IOERM
COBYT: TXZN FL,IOCOUF ;NEED AN OUT UUO FIRST?
JRST COBYT5 ;NO, BUFFER IS AVAILABLE
COBYT2: OUT IOC, ;YES, OUTPUT BUFFER, ADVANCE TO NEXT
JRST COBYT5 ;DO STUFF CHARACTER IN OUTPUT BUFFER
COBYT3: TXO FL,IOCOUF ;MONITOR STUFFED, FLAG NEED AN OUT
STATO IOC,IO.EOF!IO.ERR ;UNLESS I/O ERROR
POPJ P, ; (NO)
GETSTS IOC,IOSWRD ;GET I/O ERROR STATUS BITS
TXO FL,IOCIOE ;FLAG I/O ERROR FOR CONTROLLING TERMINAL
ERROR COE,<Controlling terminal output error, >,IOERM
COBYT5: SOSGE IOCOBH+.BFCTR ;ROOM IN OUTPUT BUFFER FOR ANOTHER CHARACTER?
JRST COBYT2 ;NO, OUTPUT BUFFER AND GET ANOTHER
IDPB CM,IOCOBH+.BFPTR;YES, STUFF CHARACTER IN BUFFER
TXO FL,IOCOUP ;FLAG OUTPUT PENDING
AOS (P) ;SKIP RETURN
POPJ P, ; IS SUCCESSFUL RETURN
COTRY: TXZN FL,IOCOUF!IOCOUP;NEED TO DO CONTROLLING TERMINAL OUTPUT?
POPJ P, ;NO, JUST RETURN
OUT IOC, ;YES, TRY TO OUTPUT BUFFER
POPJ P, ;OUTPUT DONE, WE HAVE A BUFFER AVAILABLE
JRST COBYT3 ;COULDN'T DO OUTPUT, CHECK FOR I/O ERROR
;DATASET TERMINAL I/O
DIBYT: SKIPN CM,DISAV ;SAVED INPUT CHARACTER STASHED AWAY?
JRST DIBYT2 ;NO
ANDI CM,377 ;YES, STRIP OFF GARBAGE
SETZM DISAV ;NOTE WE GOT IT BACK
POPJ P, ;RETURN WITH INPUT CHARACTER
DIBYT1: TXO FL,IODINP ;FLAG INPUT PENDING
DIBYT2: SOSGE IODIBH+.BFCTR ;ANY CHARACTERS IN BUFFER?
JRST DIBYT5 ;NO, ASK FOR ANOTHER BUFFER
ILDB CM,IODIBH+.BFPTR;YES, READ NEXT CHARACTER
AOS (P) ;SKIP RETURN
POPJ P, ;RETURN WITH CHARACTER IN CH
DIBYT5: TXZ FL,IODINP ;CLEAR INPUT PENDING
IN IOD, ;ASK MONITOR FOR ANOTHER BUFFER
JRST DIBYT1 ;OH HO - GOT ONE, PROCESS INPUT
STATO IOD,IO.EOF!IO.ERR ;NO INPUT, ANY ERRORS?
POPJ P, ;NO, JUST NOTHING THERE
GETSTS IOD,IOSWRD ;YES, GET I/O ERROR STATUS BITS
ERROR DIE,<Dataset terminal input error, >,IOERM,,.+1
EXCH T1,IOSWRD ;GET I/O STATUS BACK
TXZ T1,IO.ERR ;CLEAR OUT ERROR BITS
SETSTS IOD,(T1) ;TELL MONITOR TO CLEAR ERROR STATUS
TXNE T1,IO.EOF ;EOF SET?
CLOSE IOD, ;YES (BUT . . . BUT . . .)
MOVE T1,IOSWRD ;RESTORE T1
SOSL IODECT ;COUNT DATASET TERMINAL ERRORS
JRST DIBYT1 ;GO PROCESS WHATEVER WE GOT
TXO FL,IODIOE ;TOO MANY ERRORS - ABORT DATASET LINE
POPJ P, ;POP UP A LEVEL TO HANDLE ABORT
DOBYT: TXZN FL,IODOUF ;NEED AN OUT UUO FIRST?
JRST DOBYT5 ;NO, BUFFER IS AVAILABLE
DOBYT2: OUT IOD, ;YES, OUTPUT BUFFER, ADVANCE TO NEXT
JRST DOBYT5 ;GO STUFF CHARACTER IN OUTPUT BUFFER
DOBYT3: TXO FL,IODOUF ;MONITOR STUFFED, FLAG NEED AN OUT
STATO IOD,IO.EOF!IO.ERR ;UNLESS I/O ERROR
POPJ P, ; (NO)
GETSTS IOD,IOSWRD ;GET I/O ERROR STATUS BITS
ERROR DOE,<Dataset terminal output error, >,IOERM,,.+1
EXCH T1,IOSWRD ;GET BACK I/O STATUS
TXZ T1,IO.ERR ;CLEAR ERROR BITS
SETSTS IOD,(T1) ;TELL MONITOR TO CLEAR ERROR STATUS
TXNE T1,IO.EOF ;END OF FILE?
CLOSE IOD, ;YES - DUH?
MOVE T1,IOSWRD ;RESTORE CALLER'S T1
SOSGE IODECT ;COUNT ERRORS
TXO FL,IODIOE ;FLAG DATASET TERMINAL I/O ERROR
POPJ P, ;POP UP A LEVEL TO HANDLE
DOBYT5: SOSGE IODOBH+.BFCTR ;ROOM IN OUTPUT BUFFER FOR ANOTHER CHARACTER?
JRST DOBYT2 ;NO, OUTPUT BUFFER AND GET ANOTHER
IDPB CM,IODOBH+.BFPTR;YES, STUFF CHARACTER IN BUFFER
TXO FL,IODOUP ;FLAG OUTPUT PENDING
AOS (P) ;SKIP RETURN
POPJ P, ; IS SUCCESSFUL RETURN
DOTRY: TXZN FL,IODOUF!IODOUP;NEED TO DO DATASET TERMINAL OUTPUT?
POPJ P, ;NO, JUST RETURN
OUT IOD, ;YES, TRY TO OUTPUT BUFFER
POPJ P, ;OUTPUT DONE, WE HAVE A BUFFER AVAILABLE
JRST DOBYT3 ;COULDN'T DO OUTPUT, CHECK FOR I/O ERROR
SUBTTL Interrupt service routines
IOCINT: PUSH P,T1 ;NEED AN AC
HRRZ T1,IOCVEC+.PSVFL;GET INTERRUPT FLAGS WORD
TXNE T1,PS.RID ;INPUT AVAILABLE?
TXO FL,IOCINP ;YES, FLAG CONTROLLING TERMINAL HAS INPUT
TXO FL,IOXFLG ;NOTE SOMETHING HAPPENED
POP P,T1 ;RESTORE STOMPED-UPON AC
DEBRK. ;DISMISS INTERRUPT
HALT . ;DUH?
HALT . ;DUH?
IODINT: PUSH P,T1 ;NEED AN AC
HRRZ T1,IODVEC+.PSVFL;INTERRUPT FLAGS WORD
TXNE T1,PS.RID ;INPUT AVAILABLE?
TXO FL,IODINP ;FLAG DATASET TERMINAL HAS INPUT
TXO FL,IOXFLG ;NOTE SOMETHING HAPPENED
POP P,T1 ;RESTORE USED AC
DEBRK. ;DISMISS INTERRUPT
HALT . ;DUH?
HALT . ;DUH?
DSSINT: PUSHJ P,.PSH4T## ;SAVE THE T ACS
MOVE T1,DSSVEC+.PSVIS;GET NEW DATASET STATUS WORD
MOVE T2,DSSOLD ;AND PREVIOUS DATASET STATUS
MOVEM T1,DSSOLD ;NEW NOW BECOMES OLD FOR NEXT TIME
CAMN T1,T2 ;DID ANYTHING REALLY HAPPEN?
JRST DSSIN9 ;NO, DISMISS THE INTERRUPT
TXNN T2,1B1 ;DID WE HAVE DTR?
JRST DSSIN4 ;NO, MUST HAVE BEEN EARLY MONITOR
TXNE T1,1B1 ;YES, DO WE STILL HAVE IT?
JRST DSSIN4 ;YES, CHECK CONDITION OF CARRIER
TXO FL,IODINP!IODIOE;NO, THIS ERROR IS FATAL
SETZM IODECT ;MAKE LOOP LEVEL ABORT ON ERROR
INFRM DHU,<Dataset terminal hung up>,,,DSSIN9
DSSIN4: TXNN T2,1B0 ;DID WE HAVE CARRIER BEFORE?
JRST DSSIN6 ;YES, SEE IF STILL THERE
TXNN T1,1B0 ;YES, DO WE STILL HAVE IT?
INFRM DCL,<Dataset carrier lost>
TXNE T1,1B1 ;DO WE HAVE DTR STILL PRESENT?
JRST DSSIN9 ;YES, WAIT FOR CARRIER TO COME BACK
TXO FL,IODINP!IODIOE;NO, EARLY MONITOR, THIS ERROR IS FATAL THEN
SETZM IODECT ;MAKE LOOP LEVEL ABORT ON ERROR
JRST DSSIN9 ;DISMISS THE INTERRUPT
DSSIN6: TXNE T1,1B0 ;HAS CARRIER COME BACK YET?
INFRM DCR,<Dataset carrier returned>
DSSIN9: PUSHJ P,.POP4T## ;RESTORE THE T ACS
DEBRK. ;AND DISMISS THE INTERRUPT
HALT . ;DUH?
HALT . ;DUH?
SUBTTL Support routines
;TTNAM -- GENERATE SIXBIT TERMINAL NAME FROM SCAN BLOCK
;CALL IS:
;
; MOVX T1,<SCB>
; PUSHJ P,TTNAM
; ERROR
; NORMAL
;
;WHERE <SCB> IS THE ADDRESS OF A SCAN BLOCK.
;
;ON ERROR RETURN THE TERMINAL REPRESENTED BY THE NODE AND DEVICE
;WORDS IN THE SCAN BLOCK IS UNAVAILABLE (E.G., ASSIGNED TO ANOTHER
;NODE).
;
;ON NORMAL RETURN T1 CONTAINS THE SIXBIT TTY NAME USABLE IN (E.G.,)
;OPEN BLOCKS.
;
;USES T1 - T4
TTNAM: MOVE T4,T1 ;SAVE SCAN BLOCK ADDRESS
SKIPE T1,.FXNOD(T4) ;NODE SPEC SUPPLIED?
JRST TTNAM4 ;YES, MORE COMPLICATED
TTNAM1: MOVE T1,.FXDEV(T4) ;NO, GET DEVICE NAME TYPED
MOVE T2,T1 ;COPY TO
DEVCHR T2, ; ASK MONITOR IF DEVICE EXISTS
PJUMPN T2,.POPJ1## ;IF SO USE IT AS IS
PUSHJ P,IS6OC ;NO SUCH DEVICE, SEE IF SIXBIT OCTAL NUMBER
POPJ P, ;NO, NO SUCH DEVICE IN ANY FORM
MOVS T1,.FXDEV(T4) ;STRAIGHT OCTAL NUMBER,
TLNE T1,-1 ;GREATER THAN 777 (OCTAL)
POPJ P, ;YES, CAN'T BE A TTY THEN
HRLI T1,'TTY' ;NO, MAKE INTO TTYNNN
MOVE T2,T1 ;COPY TO
DEVCHR T2, ; ASK MONITOR IF DEVICE EXISTS
PJUMPN T2,.POPJ1## ;IT DOES, RETURN IT
POPJ P, ;NO SUCH DEVICE OF ANY TYPE
;HERE FOR "NODE_DEV" CONSTRUCTION (ALTHOUGH WE MUST WATCH OUT FOR THE
;"FREE" HOST NODE NAME DEFAULTED INTO THE FILE SPEC BLOCK)
TTNAM4: CAMN T1,.MYNOD## ;HOST-RESIDENT DEVICE?
JRST TTNAM1 ;YES, TREAT AS IF NO NODE TYPED
MOVE T3,T1 ;POSITION NODE NAME TYPED
PUSHJ P,.NDNAM## ;GET NODE NAME AND NUMBER
JUMPLE T2,.POPJ## ;NO SUCH NODE KNOWN HERE
HRLZ T3,T2 ;PUT NODE NUMBER IN L.H.
HLRZ T1,.FXDEV(T4) ;GET GENERIC DEVICE SPECIFIED
CAIE T1,'TTY' ;DID USER SPECIFY TTYXXX?
SKIPA T1,.FXDEV(T4) ;NO, PICK UP DEVICE VERBATIM
HRLZ T1,.FXDEV(T4) ;YES, GET JUST XXX
PUSHJ P,IS6OC ;IS IT A SIXBIT OCTAL LINE NUMBER?
POPJ P, ;NO, NO SUCH DEVICE ANYWHERE
CAILE T2,777 ;GREATER THAN 777 (OCTAL)?
POPJ P, ;YES, THEN CAN'T POSSIBLY BE A TTY
IOR T2,T3 ;MAKE NODE NUMBER,,LINE NUMBER
MOVEI T1,2 ;LENGTH OF NODE. BLOCK
MOVE CM,[.NDTCN,,T1] ;ARG BLOCK POINTER TO
NODE. CM, ;CONNECT TO REMOTE TERMINAL
POPJ P, ;NOT AVAILABLE
MOVE T1,CM ;RETURN DEVICE NAME IN T1
JRST .POPJ1## ;SUCCESSFUL RETURN
;IS6OC -- CONVERT SIXBIT IN T1 INTO OCTAL NUMBER
;CALL IS:
;
; MOVX T1,<NAME>
; PUSHJ P,IS6OC
; ERROR
; NORMAL
;
;WHERE <NAME> IS THE SIXBIT NAME FORM OF AN OCTAL NUMBER.
;
;ON ERROR RETURN THE <NAME> WAS NOT A VALID OCTAL DIGIT STRING.
;
;ON NORMAL RETURN THE OCTAL NUMBER IS RETURNED IN T2.
;
;USES T1 - T2.
IS6OC: SETZ T2, ;CLEAR RETURN VALUE
IS6OC0: TLC T1,200000 ;CLEAR ASCII BITS
TLNE T1,700000 ;VALID OCTAL DIGIT?
POPJ P, ;NO
LSH T1,3 ;STRIP OFF ASCII BITS
ROTC T1,3 ;ADD IN THIS OCTADE
JUMPN T1,IS6OC0 ;LOOP BACK FOR REST OF NUMBER
JRST .POPJ1## ;ALL DONE, VALID OCTAL NUMBER
;AUXILIARY ERROR ROUTINES
;ERCOD -- LIST ERROR CODE (OCTAL) AND TEXT STRING (OPTIONAL)
;CALL IS:
;
; MOVX T1,<CODE>
; MOVX T2,<STRG>
; PUSHJ P,ERCOD
; RETURN
;
;WHERE <CODE> IS THE OCTAL ERROR CODE TO BE PRINTED AND <STRG>, IF
;NON-ZERO, IS THE ADDRESS OF AN ASCIZ STRING TO BE PRINTED AFTER THE
;ERROR CODE.
;
;USES T1 - T3.
ERCOD: PUSH P,T2 ;SAVE ADDRESS (IF ANY)
PUSH P,T1 ;AND ERROR CODE
MOVEI T1,[ASCIZ\ - (\];PREFIX ERROR CODE
PUSHJ P,.TSTRG## ;TYPE IT OUT
POP P,T1 ;RETRIEVE ERROR CODE
PUSHJ P,.TOCTW## ;AND PRINT IT IN OCTAL
MOVEI T1,[ASCIZ\) \] ;CAP OFF ERROR CODE
PUSHJ P,.TSTRG## ;WITH A CLOSING PARENTHESIS
POP P,T1 ;ADDITIONAL TEXT STRING
PJUMPN T1,.TSTRG## ;TYPE IT IF ANYTHING TO TYPE
POPJ P, ;ELSE RETURN HAVING PRINTED ONLY ERROR CODE
;IOERM -- TYPE I/O ERROR STATUS
;CALL IS:
;
; PUSHJ P,IOERM
; RETURN
;
;LOCATION IOSWRD IS EXPECTED TO CONTAIN THE I/O STATUS TO BE TYPED.
IOERM: PUSHJ P,.PSH4T## ;SAVE THE T ACS
MOVEI T1,[ASCIZ\I/O status = \]
PUSHJ P,.TSTRG## ;TYPE PRETTY TEXT
MOVE T1,IOSWRD ;GET I/O STATUS WORD
PUSHJ P,.TOCTW## ;TYPE IT OUT IN OCTAL
PUSHJ P,.POP4T## ;RESTORE T ACS
POPJ P, ;ALL DONE HERE
;CDTER -- TYPE CONTROLLING OR DATASET TERMINAL ON ERROR
;CALL IS:
;
; MOVE T1,<SCB>
; PUSHJ P,CDTER
; RETURN
;
;WHERE <SCB> IS THE ADDRES OF THE SCAN BLOCK.
CDTER: MOVE T4,T1 ;SAVE ADDRESS OF SCAN BLOCK
SKIPN T1,.FXNOD(T4) ;USER GIVE A NODE SPEC?
JRST CDTER4 ;NO
PUSHJ P,.TSIXN## ;YES, TYPE NODE NAME
MOVEI T1,"_" ;SEPARATE NODE NAME FROM DEVICE NAME
PUSHJ P,.TCHAR## ;WITH THE USUAL -10 CONVENTION
CDTER4: MOVE T1,.FXDEV(T4) ;GET THE USER-TYPED DEVICE
PUSHJ P,.TSIXN## ;AND TYPE IT OUT
MOVEI T1,":" ;DEVICE SEPARATOR
PJRST .TCHAR## ;AND TYPE IT OUT TOO.
;NODER -- TYPE NODE. ERROR CODE
;CALL IS:
;
; MOVX T1,<CODE>
; PUSHJ P,NODER
; RETURN
;
;WHERE <CODE> IS THE ERROR CODE RETURNED BY THE NODE. MONITOR CALL.
NODER: CAIL T1,1 ;MINIMUM ERROR CODE
CAIL T1,NODLN ;MAXIMUM ERROR CODE
TDZA T2,T2 ;UNKNOWN ERROR CODE
MOVE T2,NODTB(T1) ;TEXT STRING
PJRST ERCOD ;TYPE IT ALL OUT
NODTB: 0
[ASCIZ\illegal argument block\]
[ASCIZ\illegal node name or number\]
[ASCIZ\insufficient privileges\]
[ASCIZ\node not available\]
[ASCIZ\job is not locked\]
[ASCIZ\timeout error\]
[ASCIZ\word 2 is not zero\]
NODLN==.-NODTB
;PSIER -- TYPE PSI ERROR CODE
;CALL IS:
;
; MOVX T1,<CODE>
; PUSHJ P,PSIER
; RETURN
;
;WHERE <CODE> IS THE ERROR CODE RETURNED FROM A PIINI. OR PISYS.
;MONITOR CALL.
PSIER: CAIL T1,0 ;MINIMUM ERROR CODE
CAIL T1,PSILN ;MAXIMUM ERROR CODE
TDZA T2,T2 ;UNKNOWN ERROR CODE
MOVE T2,PSITB(T1) ;TEXT STRING
PJRST ERCOD ;TYPE CODE AND TEXT
PSITB: [ASCIZ\extraneous argument(s) provided\]
[ASCIZ\no function bits set\]
[ASCIZ\unknown function bits set\]
[ASCIZ\both "ON" and "OFF" specified\]
[ASCIZ\illegal address\]
[ASCIZ\I/O device not OPENed for I/O\]
[ASCIZ\illegal condition(s) specified\]
[ASCIZ\illegal vector offset\]
[ASCIZ\illegal bit set in arg block\]
[ASCIZ\reserved\]
[ASCIZ\reserved bits not zero\]
[ASCIZ\PSI system not initialized\]
[ASCIZ\both "ADD" and "REMOVE" specified\]
PSILN==.-PSITB
;TRMER -- TYPE TRMOP. ERROR CODE
;CALL IS:
;
; MOVX T1,<CODE>
; PUSHJ P,TRMER
; RETURN
;
;WHERE <CODE> IS THE ERROR CODE FROM A TRMOP. MONITOR CALL.
TRMER: CAIL T1,0 ;MINIMUM ERROR CODE
CAIL T1,TRMLN ;MAXIMUM ERROR CODE
TDZA T2,T2 ;UNKNOWN ERROR CODE
MOVE T2,TRMTB(T1) ;TEXT STRING
PJRST ERCOD ;GO TYPE ERROR CODE AND TEXT
TRMTB: [ASCIZ\function not implemented\]
[ASCIZ\insufficient privileges\]
[ASCIZ\argument out of range\]
[ASCIZ\illegal address\]
[ASCIZ\not a dataset terminal\]
[ASCIZ\dialout failed\]
[ASCIZ\terminal not available\]
TRMLN==.-TRMTB
;PSI BLOCKS
IOCARG: EXP IOC ;CONTROLLING TERMINAL I/O CHANNEL
IOCVEC-PSIVEC,,PS.RID!PS.ROD ;VECTOR OFFSET,,INPUT OR OUTPUT DONE
0 ;PRIORITY,,0
IODARG: EXP IOD ;DATASET TERMINAL I/O CHANNEL
IODVEC-PSIVEC,,PS.RID!PS.ROD ;VECTOR OFFSET,,INPUT OR OUTPUT DONE
0 ;PRIORITY,,0
DSSARG: EXP .PCDSC ;DATASET TERMINAL I/O CHANNEL
DSSVEC-PSIVEC,,0 ;VECTOR OFFSET,,DATASET STATUS
0 ;PRIORITY,,0
XLIST ;THE LITERALS GO IN THE HIGH SEG
LIT
LIST
RELOC 0
IODECT: BLOCK 1 ;DATASET TERMINAL ERROR ABORT COUNTER
DSSOLD: BLOCK 1 ;DATASET STATUS (LAST TIME WE LOOKED)
IOSWRD: BLOCK 1 ;TEMP USED IN I/O ERROR TYPEOUT
;BUFFER RING CONTROL BLOCKS
IOCIBH: BLOCK 3 ;CONTROLLING TERMINAL INPUT
IOCOBH: BLOCK 3 ;CONTROLLING TERMINAL OUTPUT
IODIBH: BLOCK 3 ;DATASET TERMINAL INPUT
IODOBH: BLOCK 3 ;DATASET TERMINAL OUTPUT
;DATA STORAGE INITIALLY ZEROED
BZCOR: ;START OF INITIALLY ZEROED AREA
TTCNAM: BLOCK 1 ;CONTROLLING TERMINAL DEVICE NAME
TTDNAM: BLOCK 1 ;DATASET TERMINAL DEVICENAME
TTCUDX: BLOCK 1 ;CONTROLLING TERMINAL UDX
TTDUDX: BLOCK 1 ;DATASET TERMINAL UDX
IOCFF: BLOCK 2 ;.JBFF FOR IOC BUFFERS
IODFF: BLOCK 2 ;.JBFF FOR IOD BUFFERS
CISAV: BLOCK 1 ;.NE. 0 THEN SAVED CIBYT INPUT CHARACTER
DISAV: BLOCK 1 ;.NE. 0 THEN SAVED DIBYT INPUT CHARACTER
;PSI VECTORS
PSIVEC: BLOCK 4 ;BASE OF INTERRUPT VECTORS
IOCVEC: BLOCK 4 ;CONTROLLING TERMINAL
IODVEC: BLOCK 4 ;DATASET TERMINAL
DSSVEC: BLOCK 4 ;DATASET STATUS
ZZCOR: BLOCK 1 ;LAST LOCATION INITIALLY ZEROED
END