«Æ–,Ì›c,.; .; MODIFIED BY: .; .; E. A. FLOYD 14-OCT-80 .; EF020 -- FORCE CREATION OF SAVED ANSWER FILE .; .; EF021 -- UPDATE TO RUN ON VAX/VMS HOST .; .; EF026 -- UPDATE VERSION NUMBER AND COPYRIGHT .; .; E. A. FLOYD 15-JAN-81 .; EF038 -- REMOVE IAS REFERENCES - NO LONGER A SUPPORTED HOST .; .; E. A. FLOYD 4-FEB-81 .; EF039 -- ADD MS AS POSSIBLE DISTRIBUTION DEVICE .; .; E. A. FLOYD 11-FEB-81 .; EF041 -- REMOVE FOR COMPATIBILITY WITH SYSGEN SETUP .; .; P.J. KOBAR 30-MAR-81 .; PJK11S -- POST BL30 CLEANUP .; .; M.E. MACKAY 28-APR-81 .; MEM023 -- ADD LIMITED SUPPORT FOR TARGETING .; .; M.A. JOHNSON 13-MAY-81 .; MJ014 -- FIX VAX TASK ASSIGNMENTS (11MTKB, 11MVMR) .; .; M.A. JOHNSON 26-OCT-81 .; MJ024 -- FIX UP SOME OF THE VAX & TAPE PROC. PARTS (AT BL31E BUT SET BL32) .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .DISABLE LOWERCASE .TEST .SETS $SGNUC [2:-1] .SETT $11SGN .SETF $MPLUS .SETF $VAX .SETF MSYS .IF EQ 1 .SETT MSYS .IFT MSYS .GOTO 10 .IF EQ 6 .SETT $MPLUS .IFT $MPLUS .GOTO 10 .IF EQ 5 .SETT $VAX .IFT $VAX .GOTO 10 ; ; You are trying to do an RSX-11S system generation on a host system ; which is not supported in the RSX-11S system generation process. ; Only RSX-11M, RSX-11M-PLUS, and VAX/VMS are supported hosts. ; / .10: .IFT MSYS .SETS HOST "RSX-11M" .IFT $MPLUS .SETS HOST "RSX-11M-PLUS" .IFT $VAX .SETS HOST "VAX/VMS" ; ; RSX-11S Version 4.0 BL32 System Generation done on 'HOST' ; ; Copyright (C) 1979,1981 ; Digital Equipment Corporation, Maynard, Mass. ; All Rights Reserved. ; .SETS UIC .SETF $MCR .IF EQ "DCL" .OR .IF EQ "MCR" .GOTO 14 ; ; SGN -- Procedure can only be run from MCR or DCL ; .14: .IF EQ "MCR" .SETT $MCR .IF EQ "MCR" .GOTO 18 ; ; Setting the CLI to MCR ; SET TERM MCR .18: .IFT MSYS .GOTO 65 ; ; RSX-11S system generation set-up section ; ; The system device is the disk on which all of the host's, 'HOST', ; system files are stored. If your 11S target disk is the system device ; then there may possibly be a conflict in some file names (e.g., SYSLIB). ; .IFT $MPLUS ; .IFT $MPLUS ; Your target disk will be SY: which is currently assigned to .IFT $MPLUS ; to '''': .IFT $MPLUS ; .ASK Z Is the target disk, '''':, the system device .IFF Z .GOTO 22 .IF $SGNUC EQ "2,200" .GOTO 22 ; ; The system generation procedures will be put in [2,200] since you are ; targeting to the system disk on a Non-11M host. ; SET /UIC=[2,200] .SETS $SGNUC "2,200" .TESTFILE [0,0]002200.DIR .IF NE 1 UFD SY:[2,200] .GOTO 22 .2: ; ; Group number 2 is reserved for 11S SYSGEN use ; .22: .IFF Z .ASKN [1:10:1] $SYGRP What is the group number for the system files .IFF Z .ASKN [1:11:11] $UIC What is the group number for the executive files .IFT Z .ASKN [3:10:3] $SYGRP What is the group number for the system files .IFT Z .ASKN [3:10:3] $UIC What is the group number for the executive files .IF $SYGRP EQ 2 .OR .IF $UIC EQ 2 .GOTO 2 .SETF $TARGT .IF $SYGRP NE 1 .OR .IF $UIC NE 11 .SETT $TARGT .SETS TEMP "" .IFF $VAX .SETS P1 +"''"+":" .IFT $VAX .ASKS P1 Target device name .IFT $VAX .SETS TEMP P1[:] .IFT $VAX .IF TEMP NE ":" .SETS P1 P1+":" .IFT $VAX SET DEFAULT 'P1' .IFT $VAX ASN 'P1'=SY: .IFT $VAX ASN 'P1'=SY0: .IFT $VAX ASN 'P1'=LB: .IFT $VAX ASN 'P1'=LB0: .IFT $VAX ASN MP:=MP0: .IFT $VAX ASN TK:=TK0: .IFT $VAX .SETT $MPLUS .IFT $VAX ASN 'P1'['$SYGRP',54]11MTKB.TSK=TKB .IFT $VAX ASN 'P1'['$SYGRP',54]11MVMR.TSK=VMR .SETS $EXC "" .ASK COPY Copy the RSX-11S distribution files to the target disk .IFF COPY .GOTO 65 .ASKS $EXC Enter device for the RSX-11S distribution kit .TEST $EXC .SETS TEMPS $EXC[:] .IF TEMPS NE ":" .SETS $EXC $EXC+":" .SETF TAPE .SETS SKIT $EXC[1:2] .IF SKIT EQ "MM" .OR .IF SKIT EQ "MT" .OR .IF SKIT EQ "MS" .SETT TAPE .IFT TAPE .ASK $T2400 Is the RSX-11S distribution kit on a 2400 foot reel .IFNDF $T2400 .SETF $T2400 .SETS MEDIA "disk" .IFT TAPE .SETS MEDIA "tape" .60: ; ; Place the 'MEDIA' labeled 11SKIT1 on '$EXC' ; .ASK Z Is the 'MEDIA' ready on '$EXC' .IFF Z .GOTO 60 .IFF TAPE MOU '$EXC'11SKIT1 .IFT TAPE MOU '$EXC'/FOR .SETS UTIL "PIP" .IFT TAPE .SETS UTIL "FLX" .SETS NV "/NV" .IFT TAPE .SETS NV "/RS" .SETS INSW "" .IFT TAPE .SETS INSW "/DO/RW" .SETS DENS "" .IFT $T2400 .SETS DENS "/DNS:1600" 'UTIL' 'P1''NV'='$EXC'[200,200]11SCOPY.CMD'INSW''0DENS' @11SCOPY.CMD .; .65: @'UIC'SYSGEN 0«Æ–,Ì›c,È .; .; .; MODIFIED BY: .; .; .; E. A. FLOYD 3-JUL-80 .; EF015 -- ADD DIRECTIVE COMMON SUPPORT .; .; E. A. FLOYD 15-OCT-80 .; EF022 -- REMOVE COMMENTS CONCERNING PDT .; .; E. A. FLOYD 29-OCT-80 .; EF023 -- ADD CDA BUILD SUPPORT FOR NON-M HOSTS .; .; EF024 -- ADD BLDLAINIT BUILD SUPPORT AND .; RELEVANT FOR INCLUSION IN VMR .; .; EF025 -- ALWAYS USE MAC AND TKB (NO MORE "BIG") .; .; EF026 -- UPDATE VERSION NUMBER AND COPYRIGHT .; .; E. A. FLOYD 14-NOV-80 .; EF029 -- ADD ISA AND SETTIM SUPPORT, CLEANUP CDA .; .; E. A. FLOYD 24-NOV-80 .; EF031 -- CHANGE LENGTH OF OTL IN OTLBLD.CMD AND .; PERTINENT COMMENTS .; .; E. A. FLOYD 25-NOV-80 .; EF032 -- SET SYMBOL FOR M HOSTS AND CLEAN UP .; .; EF033 -- CHANGE COMMENT SO GEN PARTITION IS DEFINED .; AS EITHER TASK OR SYSTEM CONTROLLED .; .; E. A. FLOYD 26-NOV-80 .; EF034 -- CHANGE SYMBOL FOR RSDEMO GBLPAT .; .; E. A. FLOYD 15-JAN-81 .; EF038 -- REMOVE REFERENCES AND SUPPORT FOR IAS .; .; E. A. FLOYD 4-FEB-81 .; EF040 -- REMOVE SINGLE RL SUPPORT AND ADD .; PRVDSK SYMBOL FOR OBJECTS DISK .; AND MOVE EXEC AND FDX TTDRV OLBS .; AND BLD.CMD FILES TO PRVDSK FOR RK .; .; E. A. FLOYD 12-FEB-81 .; EF042 -- FIX ISA LIBRARY INSERTIONS AND USER .; WRITTEN DRIVER COMMENTS .; E. A. FLOYD 13-FEB-81 .; EF044 -- REMOVE TU58 SUPPORT FOR 11SKIT TYPE .; .; E. A. FLOYD 16-FEB-81 .; EF045 -- ADD SUPPORT FOR 3RD FLOPPY: 11SKIT3 .; .; E. A. FLOYD 19-FEB-81 .; EF048 -- MISCELLANEOUS CLEANUP .; .; E. A. FLOYD 10-MAR-81 .; EF051 -- FIX LOADING OF RELEASE KIT .; .; P.J. KOBAR 26-MAR-81 .; PJK043 -- REMOVE TU58 SUPPORT AND CLEAN UP .; .; P.J. KOBAR 9-APR-81 .; PJK044 -- LOWER CASE, 11MTKB AND MORE CLEAN-UP .; .; P.J KOBAR 15-APR-81 .; PJK049 -- FIX CDA BUILD CODE; UPDATE TASK SIZES .; .; P.J. KOBAR 16-APR-81 .; PJK050 -- FIX RSX-11M KIT DETECTION CODE .; .; P.J. KOBAR 16-APR-81 .; PJK051 -- FIX RSX-11S KIT DETECTION CODE .; .; M.E. MACKAY 28-APR-81 .; MEM023 -- ADD LIMITED SUPPORT FOR TARGETING .; .; M.A. JOHNSON 13-MAY-81 .; MJ013 -- FIX SO THAT DRIVERS MAY BE BUILT W/O .; BUILDING THE EXEC. AND ADD VMS ASSIGNMENTS .; .; M.E. MACKAY 26-MAY-81 .; MEM024 -- FIX MAC LINE LENGTH PROBLEM VIA "MAC @TKNASM" .; .; M.A. JOHNSON 15-JUN-81 .; MJ019 NUMEROUS CLEANUPS INCLUDING MAP SPOOLING, .; RK05 SPACE CLEANUPS, TASK INSTALLATION .; CHECKING FOR ON-LINE GENS, MISC. ETC. .; .; M.A. JOHNSON 17-JUN-81 .; MJ020 COPY SYSLIB AND EXELIB TO THE BASELINE FROM .; PRVOBJ FOR RK05 DIST. KITS. COMMENT OUT ALL .; COPYING FROM FLOPPY DISK KITS (DX & DY) - .; THEY NO LONGER EXIST. FORCE DELETION OF THE .; 11S KIT FILES FOR RK05 DIST. KITS WHEN THE .; USER IS READY TO CONFIGURE THE SYSTEM WITH VMR. ; ; RSX-11S Version 4.0 BL32 System Generation Phase II ; ; Copyright (C) 1975, 1981 ; Digital Equipment Corp., Maynard, MA. 01754 ; All Rights Reserved. ; ; Build The Executive And All Required Tasks ; ; This command file will produce the target system on your SY: disk. ; If it is an RK05 or an RL01, this command file will delete a number ; of files from this disk to make room for those required to complete ; this 11SGEN. You must be running on an expendable copy of ; your disk. Note however, that the disk will be left in a ; state such that RSX-11S sysgens may be performed at a later ; date. In addition, the sysgen itself may be terminated and ; may be restarted at just about any point to rebuild particular ; pieces of the system. ; .ENABLE SUBSTITUTION .ENABLE GLOBAL .SETS UIC .SETT $11SGN .SETS SMAC "" .0A: .ASKS $SGU In what UIC is SGNPARM.CMD if not '' .IF $SGU EQ "Y" .OR .IF $SGU EQ "" .SETS $SGU .; .; REMOVE BRACKETS IF SUPPLIED .; .TEST $SGU .SETN TEMPN 1 .SETN TEMPN2 .SETS TEMPS2 $SGU[1:1] .SETS TEMPS3 $SGU[:] .IF TEMPS2 EQ "[" .INC TEMPN .IF TEMPS3 EQ "]" .DEC TEMPN2 .SETS TEMPS $SGU[TEMPN:TEMPN2] .SETS $SGU TEMPS .TESTFILE ['$SGU']SGNPARM.CMD .IF EQ 1 .GOTO 0B ; 11SGEN2 -- SGNPARM does not exist in ['$SGU'] ---- Retry .GOTO 0A .0B: @['$SGU']SGNPARM.CMD .; .;DETERMINE CLI .; .SETF $MCR .IF EQ "DCL" .OR .IF EQ "MCR" .GOTO 0B00A ; ; SGN -- Procedure can only be run from MCR or DCL ; .0B00A: .IF EQ "MCR" .SETT $MCR .IF EQ "MCR" .GOTO 0B00B ; ; Setting the CLI to MCR ; SET TERM MCR .0B00B: TIM .SETT UFDX .SETT TKBX .SETT PIPX .SETT LBRX .SETT EDIX .SETT FLXX .SETT MACX .SETT VMRX .SETS P1 "" .SETF MSYS .IF EQ 1 .SETT MSYS .IFT MSYS .SETN $SYGRP 1 .IFT MSYS .SETN $UIC 11 .IFF $ONL .OR .IFF MSYS .GOTO 0B03 .SETS ALLTSK "UFDTKBPIPLBRLOAEDIUNLFLXMACVMR" .SETN FRONT 1 .SETN REAR 3 .0B01: .SETS TASK ALLTSK['FRONT':'REAR'] .IFNINS 'TASK' .GOTO 0B02 .SETN FRONT FRONT+3 .SETN REAR REAR+3 .IF REAR LE 36 .GOTO 0B01 .GOTO 0B03 .0B02: .SETF 'TASK'X ; ; You must install 'TASK' and any of the following tasks which are ; not installed on your system if you are performing your 11SGEN2 ; on-line: UFD TKB PIP LBR LOA EDI ; UNL FLX MAC VMR ; ; Please install them now. ; .PAUSE .GOTO 0B01 .0B03: .IFT MSYS .GOTO 0B1 .IFDF $UIC .IFDF $SYGRP .GOTO 0B21 ; ; The system device is the disk on which all of the host's system ; files are stored. If your 11S target disk is the system device ; then there may possibly be a conflict in some file names (e.g., SYSLIB). ; .SETT Z .IFNDF $SYGRP .ASK Z Is the target disk, '''':, the system device .GOTO 0B22 .0B2: ; ; Group number 2 is reserved for 11S SYSGEN use ; .0B22: .IFF Z .ASKN [1:10:1] $SYGRP What is the group number for the system files .IFF Z .ASKN [1:11:11] $UIC What is the group number for the executive files .IFT Z .ASKN [3:10:3] $SYGRP What is the group number for the system files .IFT Z .ASKN [3:10:3] $UIC What is the group number for the executive files .IF $UIC EQ 2 .OR .IF $SYGRP EQ 2 .GOTO 0B2 .0B21: .SETF $TARGT .IF $SYGRP NE 1 .OR .IF $UIC NE 11 .SETT $TARGT .IFT $TARGT .SETS SMAC "RSXMAC.SML/ML," .0B1: .IFNDF $MAP .ASK $MAP Are you building a mapped system .IFNDF $SPL .SETS $SPL "/-SP" .IFNDF $PWI .SETT $PWI .IFT $MAP .SETT MPD .IFF $MAP .SETF MPD .IFT $STT .SETT SETTIM .IFF $STT .SETF SETTIM .IFT MPD .SETS S "4" .IFF MPD .SETS S "0" .TESTFILE [0,0]00106'S'.DIR .IF EQ 1 .GOTO 00A .SETT UFD .IFINS UFD .GOTO 00 .SETF UFD INS SY:$UFD .00: UFD SY:['$SYGRP',6'S'] .IFF UFD REM UFD .00A: .SETT UFD .IFNDF $MPD .SETS $MPD "SY:" .; .; FIND OUT IT MAP DEVICE HAS TO BE MADE READY .; .IF $MPD EQ "SY:" .OR .IF $MPD EQ "LB:" .OR .IF $MPD EQ "NL:" .GOTO 01 .IF $MPD EQ "" .OR .IF $MPD EQ "TI:" .OR .IF $MPD EQ "TT:" .GOTO 01 ; ; The map device specified must already be mounted with UIC ['$SYGRP',3'S']. ; If it is not, respond to the next question with ^Z and do so. ; .01: .IFNDF $MPLUS .SETF $MPLUS .IFF $MPLUS .IF = 6 .SETT $MPLUS .IFNDF $VAX .SETF $VAX .IFF $VAX .IF = 5 .SETT $VAX .SETF MSYS .IF = 1 .SETT MSYS .1: .IFNDF $UIC .SETN $UIC 11 .IFT $VAX .ASKS P1 Target device name .IFT $VAX .SETS TEMPS P1[:] .IFT $VAX .IF TEMPS NE ":" .SETS P1 P1+":" .IFT $VAX SET DEFAULT 'P1' .IFT $VAX ASN 'P1'=SY: .IFT $VAX ASN 'P1'=SY0: .IFT $VAX ASN 'P1'=LB: .IFT $VAX ASN 'P1'=LB0: .IFT $VAX ASN TK:=TK0: .IFT $VAX ASN MP:=MP0: .IFT $VAX ASN 'P1'['$SYGRP',54]11MTKB.TSK=TKB .IFT $VAX ASN 'P1'['$SYGRP',54]11MVMR.TSK=VMR .IFT $VAX SET NOON .SETS TKBTM "TKB" .; .; A new version of the task builder which contains the "no message" switch .; must be used on an MPLUS V1.0 system so that executive commons, if .; they are chosen, will task build without error messages. Since .; executive commons are task-built separately from the executive itself, .; they produce unresolved symbols which are later resolved by building .; the exec. .; .IFT $MPLUS .SETS TKBTM "TKM" .IFINS 'TKBTM' .GOTO 1A .SETF TKBX .IFT $MPLUS INS SY:['$SYGRP',54]11MTKB/TASK=...TKM .1A: .SETT $11S .SETF DEVX .SETF LOAX .SETF LPX .SETF UNLX .SETS PRVDSK "" .SETS $PRV "SY:" .IFDF $RL .SET'$RL' $2RL .IFF $MPLUS .GOTO 1A1 .SETT $BGDSK .SETF $2RL .SETF $2RK .GOTO 1C .1A1: .IFNDF $BGDSK .ASK $BGDSK Do you have the RP04/5/6, RM02/3 or RK06/7 RSX-11M Kit .IFT $BGDSK .SETF $2RL .IFT $BGDSK .SETF $2RK .IFT $BGDSK .GOTO 1C .IFNDF $2RK .ASK $2RK Do you have the dual RK05 RSX-11M Kit .IFT $2RK .SETF $2RL .IFT $2RK .SETS PRVDSK "PRVOBJ" .IFF $2RK .IFNDF $2RL .ASK $2RL Do you have the dual RL01/2 RSX-11M Kit .IFT $2RL .SETS PRVDSK "EXCPRV" .IFT $2RL .OR .IFT $2RK .GOTO 1B ; 11SGEN2 -- No RSX-11M/M-PLUS host kit was selected -- Retry .GOTO 1A1 .1B: .ASKS $PRV In which device is the 'PRVDSK' disk [DDU:] .IF $PRV EQ "" .GOTO 1B .IFT $2RK .OR .IFT $2RL MOU '$PRV''PRVDSK' .IFT $2RK ASN '$PRV'=LB: .1C: .IFF $2RK ASN SY:=LB: ; ; Expanded comments provide a complete description of every step in ; this 11SGEN command file. On the other hand, short comments ; provide virtually no explanatory text. ; .ASK D Do you want expanded comments .SETT PIP .IFINS PIP .GOTO 1D .SETF PIP INS SY:$PIP .1D: .IFT $BGDSK .GOTO 1E .IFT D ; .IFT D ; Make room on the baseline disk to complete the 11SGEN .IFT D ; .IFT .SETS SYS "4" .IFF .SETS SYS "0" SET /UIC=[1,1] PIP ['$SYGRP',3'S']*.*/PU/NM PIP ['$SYGRP',5'SYS']CTDRV.TSK;*/DE/NM,DBDRV.TSK;*,DPDRV.TSK;*,DRDRV.TSK;* PIP ['$SYGRP',5'SYS']CTDRV.STB;*/DE/NM,DBDRV.STB;*,DPDRV.STB;*,DRDRV.STB;* PIP 'UIC'SYSGEN2.CMD;*/DE/NM .IFT $2RK PIP SY:/NV='$PRV'[1,1]EXELIB.OLB,SYSLIB.OLB .IFT $2RK PIP SY:[1,1]EXELIB.OLB/PU/NM,SYSLIB.OLB PIP /FR .1E: .IFNDF $FUD .ASK $FUD Was the full duplex terminal driver chosen in Phase I .IFNDF $LPR .ASK $LPR Are you running on a machine with a line printer .IFT $LPR .SETT LPT .IFF $LPR .SETF LPT .SETS PIPDEV "TI:=" .SETS PIPSW "" .2: .IFT LPT .IFINS PRT... .SETS PIPDEV $MPD .IFT LPT .IFINS PRT... .SETS PIPSW "/SP" .IFT LPT .IFNINS PRT... .OR .IFT $VAX .SETS PIPDEV "LP:="+$MPD .IFT LPT .IFNINS PRT... .OR .IFT $VAX .SETS PIPSW "" .5: .; .;DETERMINE DEVICES INCLUDED IN SYSTEM .; .IFNDF $DEV .IFNDF $DV2 .IFNDF $DV3 .GOTO 15 .SETS DEV "$DEV" .6: .TEST 'DEV' .SETN TEMPN 1 .7: .IF TEMPN GT .GOTO 8 .SETN TEMPN2 TEMPN+1 .SETS TEMPS 'DEV'['TEMPN':'TEMPN2'] .INC TEMPN2 .SETN TEMPN TEMPN+3 .SETS TEMPS2 'DEV'['TEMPN2':'TEMPN'] .SETN 'TEMPS' 'TEMPS2'. .INC TEMPN .GOTO 7 .8: .IF DEV EQ "$DV3" .GOTO 15 .IF DEV EQ "$DV2" .GOTO 9 .SETS DEV "$DV2" .GOTO 6 .9: .SETS DEV "$DV3" .GOTO 6 .15: .SETT LBR .SETT EDI .SETT FLX .SETT TKB .SETT MAC .20: .IFT D ; .IFT D ; Create RSX-11S subset system library .IFT D ; if you have not already done so. .IFT D ; .IFINS LBR .GOTO 30 .SETF LBR INS SY:$LBR .30: .IF NE "['$SYGRP',1]" SET /UIC=['$SYGRP',1] .ASK Z Have you already created 11SLIB.OLB .IFT Z .GOTO 35 LBR LB:11SLIB/CR:30.:896.:320. .35: .SETF DEVCOM .IFT $DSS .OR .IFT $DUC .SETT DEVCOM .IFT $IPE .OR .IFT $CDB .SETT DEVCOM .IFF DEVCOM .GOTO 60 .IFT D ; .IFT D ; If you need FORTRAN run time support for the IP11/IP300, UDC-11, .IFT D ; ICS-11/ICR-11, LPS-11, DRS/DSS-11, AR-11, or LPA 11 subsystems, .IFT D ; then you must add the support routines to 11SLIB. .IFT D ; .ASK Z Do you want to add the FORTRAN run time modules to 11SLIB .IFF Z .GOTO 60 .SETN TEMPN 0 .IF IC GT 0 .INC TEMPN .IF IS GT 0 .INC TEMPN .IF UD GT 0 .INC TEMPN .IF IP GT 0 .INC TEMPN .IF AR GT 0 .OR .IF LS GT 0 .INC TEMPN .IF TEMPN EQ 0 .GOTO 50 .IFF $ISA .GOTO 50 .IF TEMPN GT 1 .GOTO 40 LBR LB:11SLIB/RP='$PRV'PURISA .IF IC GT 0 .OR .IF IS GT 0 LBR LB:11SLIB/RP='$PRV'PURICR .IF IC EQ 0 .IF IS GT 0 LBR LB:11SLIB/DE:.ICRDI .IFT $CDB LBR LB:11SLIB/RP=['$SYGRP',2'S']ICOM.ICR,ICTAB.ICR .IFT $DSS LBR LB:11SLIB/RP=['$SYGRP',2'S']ISCOM.IDS,DSSDI.IDS .IF UD GT 0 LBR LB:11SLIB/RP='$PRV'PURUDC .IFT $DUC LBR LB:11SLIB/RP=['$SYGRP',2'S']UDCOM.UDC .IF IP GT 0 LBR LB:11SLIB/RP='$PRV'PURPCS .IFT $IPE LBR LB:11SLIB/RP=['$SYGRP',2'S']IPCOM.PCS,IPMAP.PCS .50: .IF AR GT 0 .OR .IF LS GT 0 LBR LB:11SLIB/RP='$PRV'LPS .IF LA GT 0 LBR LB:11SLIB/RP='$PRV'LPA .GOTO 60 .40: .IF IC GT 0 LBR LB:ICSLIB/CR='$PRV'PURISA .IF IC GT 0 LBR LB:ICSLIB/RP='$PRV'PURICR .IF IS GT 0 LBR LB:ISLIB/CR='$PRV'PURISA .IF IS GT 0 LBR LB:ISLIB/RP='$PRV'PURICR .IF IS GT 0 LBR LB:ISLIB/DE:.ICRDI .IFT $CDB LBR LB:ICSLIB/RP=['$SYGRP',2'S']ICOM.ICR,ICTAB.ICR .IFT $DSS LBR LB:ISLIB/RP=['$SYGRP',2'S']ISCOM.IDS,DSSDI.IDS .IF UD GT 0 LBR LB:UDCLIB/CR='$PRV'PURISA .IF UD GT 0 LBR LB:UDCLIB/RP='$PRV'PURUDC .IFT $DUC LBR LB:UDCLIB/RP=['$SYGRP',2'S']UDCOM.UDC .IF IP GT 0 LBR LB:PCSLIB/CR='$PRV'PURISA .IF IP GT 0 LBR LB:PCSLIB/RP='$PRV'PURPCS .IFT $IPE LBR LB:PCSLIB/RP=['$SYGRP',2'S']IPCOM.PCS,IPMAP.PCS .IF AR GT 0 .OR .IF LS GT 0 LBR LB:LPSLIB/CR='$PRV'PURISA .IF AR GT 0 .OR .IF LS GT 0 LBR LB:LPSLIB/RP='$PRV'LPS .IF LA GT 0 LBR LB:LPALIB/CR='$PRV'LPA .60: .IFF LBR REM LBR .SETT LBR .SETF LPN .IFDF $MPD .IF $MPD EQ "LP:" .SETT LPN .IFNDF $MPD .ASK LPN Did you specify LP: as map device in Sysgen Phase I .70: .ASK EXEBLD Have you already built the Exec .IFT EXEBLD .GOTO 285 SET /UIC=['$SYGRP',2'S'] .220: .IFT D ; .IFT D ; Purge Exec build command files and assembly prefix files .IFT D ; PIP RSXBLD.CMD/PU/NM PIP ['$UIC',10]RSXMC.MAC/PU/NM .230: .IFNDF $UWD .ASK $UWD Do you wish to add User-Written driver(s) to the Exec .IFF $UWD .GOTO 260 .IFNDF $LOD .ASK $LOD Was loadable driver support selected during Sysgen Phase I ; ; Build user-written driver(s) ; ; You must edit the Executive build command file RSXBLD.CMD ; to include your user-written driver and data base in your system. ; ; If you are including a resident data base, locate the line ; in which the module SYSTB is referenced and add :USRTB ; immediately after it, for example: .SETS TEMPS "" ; LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB'TEMPS':SYSTB:USRTB:SYTAB:INITL,LB:['$SYGRP',1]EXELIB/LB/SS ; If you are not including a resident data base, add the line ; GBLDEF=$USRTB:0 ; to the file instead. ; ; For each resident driver, add a line of the form: ; LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:xxDRV ; where other drivers are referenced (where xx is the device name, ; for example DK). .IFF $LOD .GOTO 240 ; NOTE: For each loadable driver, do not add a corresponding ; line to the build command file. .240: ; .IFT D ; .IFT D .IFT $LOD ; Your non-loadable drivers will automatically be linked .IFT D .IFF $LOD ; Your drivers will automatically be linked .IFT D ; with the Executive you are building. .IFT D ; .260: .IFT $2RK .IF NE "['$SYGRP',2'S']" SET /UIC=['$SYGRP',2'S'] .IFT $2RK PIP LB:/NV/NM=RSX11S.OLB,TTDRV,RSXBLD.CMD,TTDRVBLD .IFT $2RK PIP RSX11S.OLB;*/DE/NM,TTDRV;*,RSXBLD.CMD;*,TTDRVBLD;* .IFF LBR REM LBR .SETT LBR .IFF LPN .GOTO 270 .IFLOA LP: .SETT LPX .IFINS LOA .SETT LOAX .IFT LPX .GOTO 270 .IFF LOAX INS SY:$LOA .IFT $2RK ASN SY:=LB: LOA LP: .IFT $2RK ASN '$PRV'=LB: .IFF LOAX REM LOA .SETF LOAX .270: .IF NE "['$SYGRP',2'S']" SET /UIC=['$SYGRP',2'S'] .IFT D ; .IFT D ; Now we build the Executive .IFT D ; If you must make changes to the Executive build files .IFT D ; answer yes to the following question. Edit RSXBLD.CMD .IFT D ; by issuing the command EDI LB:RSXBLD.CMD. 11SGEN2 will .IFT D ; build the Executive after you resume from the pause. .IFT D ; .ASK Z Do you wish to edit the Executive build file .IFF Z .GOTO 273 .IFINS EDI .GOTO 272 .SETF EDI INS SY:$EDI .272: .IFT $VAX ; 11SGEN2 -- Pausing. To continue type "CONTINUE". .PAUSE .IFT $VAX ; 11SGEN2 -- continuing .IFF EDI REM EDI .SETT EDI .273: .IFINS 'TKBTM' .GOTO 280 .SETF TKB INS SY:$TKB .280: .IF NE "['$SYGRP',2'S']" SET /UIC=['$SYGRP',2'S'] 'TKBTM' @LB:RSXBLD .ASK Z Did the Executive build successfully .IFT Z .GOTO 285 ; ; We will pause now so that you can correct the problem. ; After resuming, we will build the Executive again. ; .IFT $VAX ; 11SGEN2 -- Pausing. To continue type "CONTINUE". .PAUSE .IFT $VAX ; 11SGEN2 -- continuing .GOTO 280 .285: SET /UIC=['$SYGRP',6'S'] .IFNDF $LOD .ASK $LOD Was loadable driver support selected during Sysgen Phase I .1150: .IFF $LOD .GOTO 1179 .ASK Z Do you want to build any loadable drivers now .IFF Z .GOTO 1179 .IFINS 'TKBTM' .GOTO 1160 .SETF TKB INS SY:$TKB .1160: .SETS $TKBX TKBTM @'UIC'SGNBLDDRV.CMD .IFT $LPA11 @['$SGU']BLDLAINIT .IFF TKB REM 'TKBTM' .SETT TKB .1179: .IF NE "['$SYGRP',2'S']" SET /UIC=['$SYGRP',2'S'] .IFF $DUC .IFF $CDB .IFF $DSS .IFF $IPE .GOTO 340 .IFT D ; .IFT D ; Now we build the IP11/IP300, UDC-11, ICS/ICR, OR DRS-11 .IFT D ; device common block. .IFT D ; The device common block resides on the I/O page and .IFT D ; is referenced whenever a task directly accesses any .IFT D ; I/O modules. .IFT D ; .IF $SYGRP EQ 1 .GOTO 1182 ; ; FILES IPBLD.CMD, UDCBLD.CMD, ICBLD.CMD, AND ISBLD.CMD ARE USED TO BUILD ; THE DEVICE COMMON BLOCKS. YOU WILL HAVE TO EDIT THESE FILES SO THAT ; ALL REFERENCES TO UFDS WITH GROUP NUMBER 1 ARE CHANGED TO REFERENCES ; TO UFDS WITH GROUP NUMBER '$SYGRP'. FOR EXAMPLE IF USING EDI, TYPE ; THE FOLLOWING COMMANDS: ; ; >EDI IPBLD.CMD ; *PA/[1,/['SYGRP', ; *EX ; ; WE WILL PAUSE NOW TO ALLOW YOU TO EDIT THESE COMMAND FILES ; .IFT $VAX ; 11SGEN2 -- Pausing. To continue type "CONTINUE". .PAUSE .IFT $VAX ; 11SGEN2 -- continuing .1182: .IFT $IPE 'TKBTM' @'$PRV'IPBLD .IFT $DUC 'TKBTM' @'$PRV'UDCBLD .IFT $CDB 'TKBTM' @'$PRV'ICBLD .IFF MPD .IFT $DSS ; .IFF MPD .IFT $DSS ; You must edit the DSS11 device common block .IFF MPD .IFT $DSS ; build file to set the base address to the nearest .IFF MPD .IFT $DSS ; 32-word bus address at or below the DSS11 module .IFF MPD .IFT $DSS ; address specified during 11SGEN Phase I. .IFF MPD .IFT $DSS ; .IFF MPD .IFT $DSS .IFT D ; Example of base address modification: .IFF MPD .IFT $DSS .IFT D ; .IFF MPD .IFT $DSS .IFT D ; If the base physical bus address of the .IFF MPD .IFT $DSS .IFT D ; DSS11 is 160010 and only one such module .IFF MPD .IFT $DSS .IFT D ; is installed, then the commands to the .IFF MPD .IFT $DSS .IFT D ; editor are: .IFF MPD .IFT $DSS .IFT D ; .IFF MPD .IFT $DSS .IFT D ; *L PAR= .IFF MPD .IFT $DSS .IFT D ; PAR=ISCOM:XXXXXX:400 .IFF MPD .IFT $DSS .IFT D ; *R PAR=ISCOM:160000:100 .IFF MPD .IFT $DSS .IFT D ; *ED .IFF MPD .IFT $DSS .IFT D ; .IFT MPD .OR .IFF $DSS .GOTO 300 .IFINS EDI .GOTO 290 .SETF EDI INS SY:$EDI .290: .IFT $DSS .IFF $BGDSK PIP /NV='$PRV'ISBLD.CMD .IFF MPD .IFT $DSS EDI ['$SYGRP',2'S']ISBLD.CMD .IFF EDI REM EDI .SETT EDI .300: .IFT $DSS 'TKBTM' @ISBLD .340: .IFF LPN .GOTO 350 .IFT LPX .GOTO 350 .IFINS UNL .SETT UNLX .IFF UNLX INS SY:$UNL .IFT $2RK ASN SY:=LB: UNL LP: .IFT $2RK ASN '$PRV'=LB: .IFF UNLX REM UNL .350: .SETF LPX .SETF UNLX .IFF TKB REM 'TKBTM' .SETT TKB .IFF $BGDSK PIP RSX11S.OBJ;*/DE/NM .IFT D ; .IFT D .IFF $DRC ; You now need the Executive map to layout .IFT D .IFT $DRC ; You now need the Executive maps to layout .IFT D ; the partitions in your new system. .IFT D ; .IF $MPD EQ "TT:" .OR .IF $MPD EQ "TT0:" .OR .IF $MPD EQ "NL:" .GOTO 390 .IF $MPD EQ "TI:" .OR .IF $MPD EQ "LP:" .OR .IF $MPD EQ "LP0:" .GOTO 390 .SETF Z .IFF $DRC .ASK Z Do you have the map already .IFT $DRC .ASK Z Do you have the maps already .IFT Z .GOTO 390 .IFLOA LP: .SETT LPX .IFT LPT .IFT LPX .GOTO 360 .IFINS LOA .SETT LOAX .IFF LOAX INS SY:$LOA .IFT $2RK ASN SY:=LB: .IFF LPX LOA LP: .IFT $2RK ASN '$PRV'=LB: .IFF LOAX REM LOA .360: .IFF $DRC .IFF Z PIP 'PIPDEV'['$SYGRP',3'S']RSX11S.MAP'PIPSW' .IFT $DRC .IFF Z PIP 'PIPDEV'['$SYGRP',3'S']RSX11S.MAP'PIPSW',EXCOM1.MAP,EXCOM2.MAP .IFT LPX .GOTO 380 .IFINS UNL .SETT UNLX .IFF UNLX INS SY:$UNL .IFT $2RK ASN SY:=LB: .IFT LPT .IFF LPX UNL LP: .IFT $2RK ASN '$PRV'=LB: .IFF UNLX REM UNL .380: .SETF LOAX .SETF LPX .SETF UNLX .390: .IFT D ; .IFT D ; Look in the map of the Exec for the symbol "$SYTOP" which .IFT D ; indicates the last address allocated to the Exec. User .IFT D ; partitions may start at any location beyond this address .IFT D ; as long as they fall on a 64 byte boundary. See the RSX-11M .IFT D ; Sysgen manual for a description of how to set up partitions. .IFT D ; You may wish to stop at this time to layout your partitions. .IFT D ; .391: .IFF $FUD .GOTO 399 .ASK Z Have you already built the full duplex terminal driver .IFT Z .GOTO 399 .392: .IFT D ; .IFT D ; Now we build the full duplex terminial driver .IFT D ; .IFT D ; .IFT D ; The task build command file for the full duplex terminal drive .IFT D ; specifies that it run in partition TTPAR, having a length of .IFT D ; 40000 octal. .IFT D ; .ASK Z Do you wish to edit the build command file for the terminal driver .IFF Z .GOTO 394 .IFINS EDI .GOTO 393 .SETF EDI INS SY:$EDI .393: EDI LB:TTDRVBLD.CMD .IFF EDI REM EDI .SETT EDI .394: .IFINS 'TKBTM' .GOTO 395 .SETF TKB INS SY:$TKB .395: .IF NE "['$SYGRP',24]" SET /UIC=['$SYGRP',24] 'TKBTM' @LB:TTDRVBLD.CMD .ASK Z Did the terminal driver build successfully .IFT Z .GOTO 396 .IFT D ; .IFT D ; We pause so you can correct the problem. After .IFT D ; resuming, we will build the terminal driver again. .IFT D ; .IFT $VAX ; 11SGEN2 -- Pausing. To continue type "CONTINUE". .PAUSE .IFT $VAX ; 11SGEN2 -- continuing .GOTO 395 .396: .IFF TKB REM 'TKBTM' .SETT TKB .IF $MPD EQ "TT:" .OR .IF $MPD EQ "TT0:" .OR .IF $MPD EQ "NL:" .GOTO 399 .IF $MPD EQ "LP:" .OR .IF $MPD EQ "LP0:" .OR .IF $MPD EQ "TI:" .GOTO 399 .ASK Z List full duplex terminal driver map .IFF Z .GOTO 399 .IFLOA LP: .SETT LPX .IFT LPT .IFT LPX .GOTO 397 .IFINS LOA .SETT LOAX .IFF LOAX INS SY:$LOA .IFT $2RK ASN SY:=LB: .IFF LPX LOA LP: .IFT $2RK ASN '$PRV'=LB: .IFF LOAX REM LOA .397: PIP 'PIPDEV'['$SYGRP',34]TTDRV.MAP'PIPSW' .IFT LPX .GOTO 398 .IFINS UNL .SETT UNLX .IFF UNLX INS SY:$ULN .IFT $2RK ASN SY:=LB: .IFT LPT .IFF LPX UNL LP: .IFT $2RK ASN '$PRV'=LB: .IFF UNLX REM ULN .398: .SETF LOAX .SETF LPX .SETF UNLOA .399: .ASK Z Do you want to continue and build the privileged tasks .IFT Z .GOTO 400 ; ; We will exit now. When you are ready to resume the building ; of the system, execute this indirect command file and ; answer Y to the following question: ; >* Have you already built the Exec? [Y/N]: ; .GOTO 1240 .400: .IFT $2RK .OR .IFT $2RL PIP ['$SYGRP',1]/NV='$PRV'['$SYGRP',1]11SLIB.OLB .IFT $2RK .OR .IFT $2RL DMO '$PRV' .IFT $2RK .OR .IFT $2RL ASN SY:=LB: .IFT D ; .IFT D ; Prepare to assemble and build the RSX-11S privileged .IFT D ; software components. .IFT D ; .IFT D ; The tasks TKTN, BASMCR, OTL, and SIP must be assembled, and the .IFT D ; task build command files possibly edited before they can be built. .IFT D ; The tasks RSDV05, RSDV52, and RSDV1H need only to be built, but .IFT D ; their command files may also be edited before they are built. .IFT D ; It is not necessary to save/print the assembly listings; .IFT D ; However, we recommend that you save/print the task build .IFT D ; maps. This is especially important when generating .IFT D ; an unmapped system -- without maps it will be difficult .IFT D ; to determine partition limits. .IFT D ; .401: .DISABLE LOWERCASE .ASKS ALD Assembly list device for privileged tasks (DDNN:) [D: NL:] .ENABLE LOWERCASE .IF ALD EQ "" .SETS ALD "NL:" .SETF LST .TEST ALD .SETS TEMPS ALD[:] .IF TEMPS NE ":" .SETS ALD ALD+":" .IF ALD EQ "LP0:" .SETS ALD "LP:" .IFF $ONL .OR .IF ALD NE "LP:" .GOTO 403 ; 11SGEN2 -- Listing files can not be sent directly to LP: -- Retry .GOTO 401 .403: .IF ALD EQ "LP:" .IFF $LPR .SETS ALD "TI:" .IF ALD EQ "SY:" .OR .IF ALD EQ "LB:" .SETT LST .IF ALD EQ "LP:" .OR .IF ALD EQ "SY:" .OR .IF ALD EQ "LB:" .GOTO 405 .IF ALD EQ "TI:" .OR .IF ALD EQ "TT:" .OR .IF ALD EQ "NL:" .GOTO 405 .ASK Z Is 'ALD' mounted as a FILES-11 volume with UFD ['$SYGRP',3'S'] .IFT Z .GOTO 405 ; ; We will pause now to allow you to mount and/or UFD 'ALD' .IFT $VAX ; 11SGEN2 -- Pausing. To continue type "CONTINUE". .PAUSE .IFT $VAX ; 11SGEN2 -- continuing .405: .DISABLE LOWERCASE .ASKS MPDV Map device for privileged tasks (DDNN:) [D: SY:] .ENABLE LOWERCASE .IF MPDV EQ "" .GOTO 408 .TEST MPDV .SETS TEMPS MPDV[:] .IF TEMPS NE ":" .SETS MPDV MPDV+":" .IF MPDV EQ "LP0:" .SETS MPDV "LP:" .IFF $ONL .OR .IF MPDV NE "LP:" .GOTO 408 ; 11SGEN2 -- Maps can not be sent directly to LP: -- Retry .GOTO 405 .408: .IF MPDV EQ "LP:" .IFF $LPR .SETS MPDV "TI:" .IF MPDV EQ "LP:" .OR .IF MPDV EQ "" .OR .IF MPDV EQ "LB:" .GOTO 410 .IF MPDV EQ "TI:" .OR .IF MPDV EQ "TT:" .OR .IF MPDV EQ "NL:" .GOTO 410 .ASK Z Is 'MPDV' mounted as a FILES-11 volume with UFD ['$SYGRP',3'S'] .IFT Z .GOTO 410 ; ; We will pause now to allow you to mount and/or UFD 'MPDV' .IFT $VAX ; 11SGEN2 -- Pausing. To continue type "CONTINUE". .PAUSE .IFT $VAX ; 11SGEN2 -- continuing .410: .IFNDF $TKT .GOTO 413 .SETF TKN .ASK Z Have you already built task TKTN .IFT Z .GOTO 417 .SET'$TKT' TKN .IFT TKN .SETS INTKN "" .IFF TKN .SETS INTKN "not " ; ; Task TKTN will 'INTKN'be included in your 11S system as a result ; of your selection in 11SGEN Phase I. ; .GOTO 417 .413: ; .IFT D ; TKTN is the task which interfaces with the Exec to control the .IFT D ; output of task termination and device not ready messages. It can .IFT D ; not be included if during Sysgen Phase I you indicated that you did .IFT D ; not want task termination and device not ready messages. The .IFT D ; RSX-11S version is produced by conditional assembly of the .IFT D ; RSX-11M source, which is included in the RSX-11S kits. .IFT D ; .ASK TKN Do you want to include task TKTN .417: .IFT D ; .IFT D ; The privileged tasks BASMCR, OTL, and SIP were specially designed .IFT D ; for use in the RSX-11S environment. Their inclusion in the system .IFT D ; is optional. If desired, they will be assembled and built under .IFT D ; control of this command file. .IFT D ; .ASK PRV Do you wish to include BASMCR, OTL, or SIP in your system .IFT D ; .IFT D ; The tasks RSDV05, RSDV52, and RSDV1H dynamically display the .IFT D ; the status of memory on a graphics terminal and can be built .IFT D ; for the VT05B terminal, VT52 terminal, and VT100 terminal .IFT D ; respectively. These tasks display which tasks are in memory .IFT D ; and where in memory they reside, which task is currently .IFT D ; running, and the status of pool. .IFT D ; .SETF V05 .SETF V52 .SETF V1H .ASK RSD Do you want to include RSDV05, RSDV52, or RSDV1H .IFT D ; .IFT D ; The RSX-11S subset file control services (FCS) are dist- .IFT D ; ributed as a single file containing the concatenated object .IFT D ; modules. They cannot be placed in the RSX-11M system object .IFT D ; library (SYSLIB.OLB). However, users who require this FCS .IFT D ; should link with the RSX-11S subset of SYSLIB (11SLIB.OLB) .IFT D ; created during this Sysgen. .IFT D ; .ASK FCS Do you wish to include the RSX-11S subset FCS .IFF MSYS .IFT D ; .IFF MSYS .IFT D ; The RSX-11M crash dump analyzer (CDA) .IFF MSYS .IFT D ; may also be built to run on a non-M .IFF MSYS .IFT D ; host system for analysis of RSX-11S .IFF MSYS .IFT D ; crash dumps. .IFF MSYS .IFT D ; .IFT MSYS .SETF CDA .IFF MSYS .ASK CDA Do you wish to build CDA for your host system .IFF TKN .IFF PRV .IFF RSD .IFF FCS .IFF SETTIM .GOTO 700 .IFT $MPLUS .OR .IFT $VAX .GOTO 700 .IFT D ; .IFT D ; If you have previously done an RSX-11S Sysgen on this disk, all .IFT D ; of the files were transferred to the UFD [2,20]. These were .IFT D ; optionally deleted by the Sysgen process. Therefore, unless .IFT D ; it was specified to delete the files or they were later .IFT D ; deleted independently, there is no need to copy all of the .IFT D ; files from the release kit again. .IFT D ; .ASK Z Do you have to copy the files from the release kit .IFF Z .GOTO 700 .420: .430: .; .SETF DXK .; .SETF DYK .SETF DMK .SETF DKK .SETF DLK .SETF MTK .SETF MMK .SETF MSK .SETF DLV .SETF MDV .SETF LDV .SETS INSW "" .SETS OUTSW "" .435: .ASKS DEV Enter device and unit of RSX-11S distribution kit (DDNN:) .IF DEV EQ "" .GOTO 435 .SETS D11S DEV[1:2] .IFNDF 'D11S'K .GOTO 540 .SETT 'D11S'K .IFF DKK .IFF DMK .IFF DLK .GOTO 450 .440: ; ; Place the RSX-11S release kit cartridge disk in drive 'DEV' ; .ASK Z Is the disk ready in drive 'DEV' .IFF Z .GOTO 440 .IFT $2RK .IFT DKK .GOTO 470 .IFT $2RL .IFT DLK .GOTO 470 .ASK LDV Does the driver have to be loaded .GOTO 470 .450: .SETT LDV .; .IFF DXK .IFF DYK .GOTO 480 .460: ; .; Place RSX-11S release kit floppy number one in drive 'DEV' .; .; .ASK Z Is the floppy ready in drive 'DEV' .; .IFF Z .GOTO 460 .470: .SETS COPY "PIP" .SETS FIL "" .SETT MDV .GOTO 550 .480: .SETS COPY "FLX" .SETS FIL "*.*" .520: .IFF MTK .IFF MSK .IFF MMK .GOTO 540 .530: ; ; Place the RSX-11S release kit magtape on drive 'DEV' ; .ASK Z Is the magtape ready on drive 'DEV' .IFF Z .GOTO 530 .SETF T2400 .IFT MSK .SETT T2400 .IFT MMK .ASK T2400 Is the tape a 2400 foot reel .IFT T2400 .SETS OUTSW "/DNS:1600" .GOTO 550 .540: ; ; 11SGEN2 - you have not chosen one of the standard RSX-11S ; distribution kit media. We will repeat the questions. .GOTO 430 .550: .IFF LDV .GOTO 560 .SETS LDEV "" .IFT DKK .SETS LDEV "DK:" .IFT DMK .SETS LDEV "DM:" .IFT DLK .SETS LDEV "DL:" .IFF DKK .IFF DMK .IFF DLK .GOTO 552 .IFLOA 'LDEV' .SETT DEVX .552: .IFLOA 'D11S': .SETT DEVX .IFT DEVX .GOTO 560 .IFINS LOA .SETT LOAX .IFF LOAX INS SY:$LOA .IFF DKK .IFF DMK .IFF DLK .GOTO 555 .IFT $MAP LOA 'LDEV'/PAR=GEN .IFF $MAP LOA 'LDEV' .555: .IFT $MAP LOA 'D11S':/PAR=GEN .IFF $MAP LOA 'D11S': .IFF LOAX REM LOA .560: .SETF LOAX SET /UIC=[2,20] .IFINS UFD .GOTO 570 .SETF UFD INS SY:$UFD .570: UFD SY:[2,20] .IFF UFD REM UFD .SETT UFD PIP *.*;*/DE/NM .IFT MDV MOU 'DEV'11SKIT1 .IFT MDV .OR .IFINS FLX .GOTO 580 .SETF FLX INS SY:$FLX .580: 'COPY' SY:'INSW'='DEV''FIL''OUTSW' .IFT MDV DMO 'DEV' .; .IFF DXK .IFF DYK .GOTO 680 .590: .; .; Place RSX-11S release kit floppy number two in drive 'DEV' .; .; .ASK Z Is the floppy ready in drive 'DEV' .; .IFF Z .GOTO 590 .; .GOTO 640 .600: .; .; .640: .IFF DXK .IFF DYK .GOTO 680 .; .IFT MDV MOU 'DEV'11SKIT2 .; 'COPY' SY:'INSW'='DEV''FIL''OUTSW' .; .IFT MDV DMO 'DEV' .; .IFF DXK .IFF DYK .GOTO 680 .650: .; .; Place RSX-11S release kit floppy number three in drive 'DEV' .; .; .ASK Z Is the floppy ready in drive 'DEV' .; .IFF Z .GOTO 650 .660: .; .IFT MDV MOU 'DEV'11SKIT3 .; 'COPY' SY:'INSW'='DEV''FIL''OUTSW' .; .IFT MDV DMO 'DEV' .680: .IFF LDV .GOTO 690 .IFT DEVX .GOTO 690 .IFINS UNL .SETT UNLX .IFF UNLX INS SY:$UNL .IFF DKK .IFF DMK .IFF DLK .GOTO 685 UNL 'LDEV' .685: UNL 'D11S': .IFF UNLX REM UNL .690: .SETF DEVX .SETF UNLX .IFF FLX REM FLX .SETT FLX .700: .IFF $2RK .GOTO 705 .IFT D ; .IFT D ; Make room on the baseline disk to complete the 11SGEN .IFT D ; PIP 11SGEN.CMD;*/DE/NM PIP 11SGEN2.CMD/PU/NM .705: .IFF TKN .IFF PRV .IFF RSD .IFF CDA .IFF FCS .IFF SETTIM .GOTO 1140 .IFF TKN .IFF PRV .IFF RSD .IFF CDA .IFF FCS .GOTO 1110 .IFF TKN .IFF PRV .IFF RSD .IFF CDA .GOTO 1090 .IFF TKN .IFF PRV .IFF RSD .GOTO 1089 .720: .IFF TKN .IFF PRV .GOTO 750 SET /UIC=['$UIC',10] .IFINS UFD .GOTO 730 .SETF UFD INS SY:$UFD .730: UFD SY:['$UIC',10] .IFF UFD REM UFD .SETT UFD .740: .ASK Z Do you wish to make corrections to RSX-11S source modules .IFF Z .GOTO 750 SET /UIC=[2,20] ; ; We will now pause to allow you to apply any changes and/or ; corrections to the RSX-11S source modules. ; .IFT $VAX ; 11SGEN2 -- Pausing. To continue type "CONTINUE". .PAUSE .IFT $VAX ; 11SGEN2 -- continuing .750: .IFF TKN .GOTO 800 .IFINS MAC .GOTO 760 .SETF MAC INS SY:$MAC .760: SET /UIC=['$SYGRP',2'S'] .SETS TEMPS ",'ALD'['$SYGRP',3'S']TKTN'$SPL'" .IF ALD EQ "NL:" .SETS TEMPS "" .OPEN TKNASM.CMD .DATA TKTN'TEMPS'=LB:['$SYGRP',1]'SMAC'EXEMC/ML,SY:['$UIC',10]RSXMC/PA:1,SY:[2,20]TKTN .CLOSE MAC @TKNASM PIP TKNASM.CMD;*/DE .IFF MAC REM MAC .SETT MAC .IFT $2RK .IFT LST PIP 'ALD'['$SYGRP',3'S']*.LST;*/DE/NM .SETS TEMP "" .IFF MPD .SETS TEMP "-" .SETS BASE "0" .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/-WI" .IFF MPD .SETS BASE "20000" .SETS TEMPS2 ",'MPDV'['$SYGRP',3'S']TKN'TEMPS3''$SPL'" .IF MPDV EQ "NL:" .SETS TEMPS2 "" .OPEN TKN11SBLD.CMD .ENABLE DATA ['$SYGRP',6'S']TKN/PR/'TEMP'MM'TEMPS2'=['$SYGRP',2'S']TKTN LB:['$SYGRP',1]EXELIB/LB,SY:['$SYGRP',6'S']RSX11S.STB/SS LB:['$SYGRP',1]SYSLIB/DL / PRI=248 UNITS=1 ASG=TI:1 STACK=25 PAR=SYSPAR:'BASE':3700 TASK=TKTN / .DISABLE DATA .CLOSE .IFT D ; .IFT D ; The task build command file for TKTN specifies that it run in .IFT D ; partition SYSPAR, having a length of 3700 octal. .IFT D .IFF MPD ; For unmapped systems, its base address is 'BASE' .IFT D .IFF MPD ; octal. If you must alter the starting address, or .IFT D ; If you must change the partition name or length, .IFT D ; you will have to edit its task build command file. .IFT D ; .ASK Z Do you have to edit the task build command file for TKTN .IFF Z .GOTO 780 .IFINS EDI .GOTO 770 .SETF EDI INS SY:$EDI .770: EDI TKN11SBLD.CMD .IFF EDI REM EDI .SETT EDI .780: .IFINS 'TKBTM' .GOTO 790 .SETF TKB INS SY:$TKB .790: 'TKBTM' @TKN11SBLD.CMD .IFF TKB REM 'TKBTM' .SETT TKB .800: .IFF PRV .GOTO 1081 .IFT D ; .IFT D ; BASMCR is a privileged task which supplies a subset (or basic .IFT D ; set) of the RSX-11M MCR commands. It can not be included if .IFT D ; during Sysgen Phase I you indicated that you did not want any .IFT D ; terminal devices. Its size, depending upon options, ranges .IFT D .IFF MPD ; from 6300 to 12500 octal on unmapped systems. .IFT D .IFT MPD ; from 6400 to 14000 octal on mapped systems. .IFT D ; .ASK BMR Do you want to include task BASMCR .IFF BMR .GOTO 890 .IFINS UFD .GOTO 810 .SETF UFD INS SY:$UFD .810: UFD SY:[16,10] UFD SY:[16,2'S'] .IF ALD NE "NL:" UFD 'ALD'[16,3'S'] .IFF UFD REM UFD .SETT UFD SET /UIC=[16,10] PIP BMPRE.MAC;*/DE/NM PIP *.MAC;*/RM/NM PIP [16,*]*.*;*/DE/NM PIP [16,10]=[2,20]BMPRE.MAC PIP [16,10]/EN=[2,20]ABOBAS.MAC,ATLBAS,BRKBAS,ERRBAS,ERRMSG PIP [16,10]/EN=[2,20]FMTDV.MAC,FNDUCB,GNBLK,GETNUM,KEYWD PIP [16,10]/EN=[2,20]LKLST.MAC,MCRBAS,OPEBAS,PRSBAS,REDBAS PIP [16,10]/EN=[2,20]REMBAS.MAC,RPSBAS,RUNBAS,TIMBAS SET /UIC=[16,2'S'] .OPEN BASMCRASM.CMD .SETS TEMPS1 "16" .SETS PRE "BMPRE," .SETS TEMPS "ABOBAS" .GOSUB ASMBLD .SETS TEMPS "ATLBAS" .GOSUB ASMBLD .SETS TEMPS "BRKBAS" .GOSUB ASMBLD .SETS TEMPS "ERRMSG" .GOSUB ASMBLD .SETS TEMPS "ERRBAS" .GOSUB ASMBLD .SETS PRE "" .SETS TEMPS "FMTDV" .GOSUB ASMBLD .SETS TEMPS "FNDUCB" .GOSUB ASMBLD .SETS TEMPS "GNBLK" .GOSUB ASMBLD .SETS TEMPS "GETNUM" .GOSUB ASMBLD .SETS TEMPS "KEYWD" .GOSUB ASMBLD .SETS TEMPS "LKLST" .GOSUB ASMBLD .SETS PRE "BMPRE," .SETS TEMPS "MCRBAS" .GOSUB ASMBLD .SETS TEMPS "OPEBAS" .GOSUB ASMBLD .SETS TEMPS "PRSBAS" .GOSUB ASMBLD .SETS TEMPS "REDBAS" .GOSUB ASMBLD .SETS TEMPS "REMBAS" .GOSUB ASMBLD .SETS TEMPS "RPSBAS" .GOSUB ASMBLD .SETS TEMPS "RUNBAS" .GOSUB ASMBLD .SETS TEMPS "TIMBAS" .GOSUB ASMBLD .CLOSE .IFT D ; .IFT D ; The size of BASIC MCR is dependent upon the inclusion of .IFT D ; conditional assembly code. The inclusion of the code is .IFT D ; controlled by symbol definitions appearing in an assembly .IFT D ; prefix file. The default for these conditionals is .IFT D ; exclusion. The following options, along with the corres- .IFT D ; ponding control symbols, are available: .IFT D ; .IFT D ; R$$ATL - ATL/TAL COMMANDS .IFT D ; R$$ERM - ERROR MESSAGE TEXT .IFT D ; R$$OPE - OPEN COMMAND .IFT D ; .IFT D ; To include an option locate the desired conditional symbol .IFT D ; and remove the semicolon at the beginning of the line. For .IFT D ; example: .IFT D ; .IFT D ; *PL ;R$$ATL .IFT D ; ;R$$ATL = 0 ;INCLUDE ATL .IFT D ; *C /;// .IFT D ; R$$ATL = 0 ;INCLUDE ATL .IFT D ; * .IFT D ; .IFT D ; Repeat this for all desired options. Note that the symbols .IFT D ; appear on consecutive lines in alphabetical order in the file. .IFT D ; .ASK Z Do you wish to edit the assembly prefix file for BASMCR .IFF Z .GOTO 830 .IFINS EDI .GOTO 820 .SETF EDI INS SY:$EDI .820: EDI [16,10]BMPRE.MAC .IFF EDI REM EDI .SETT EDI .830: .IFINS MAC .GOTO 840 .SETF MAC INS SY:$MAC .840: MAC @BASMCRASM.CMD .IFF MAC REM MAC .SETT MAC .IFT $2RK .IFT LST PIP 'ALD'[16,3'S']*.LST;*/DE/NM SET /UIC=['$SYGRP',2'S'] PIP [16,10]BMPRE.MAC;*/DE/NM PIP [16,10]*.MAC;*/RM/NM PIP BASMCR.OBJ=[16,2'S']*.OBJ PIP [16,2'S']*.*;*/DE/NM .IFINS LBR .GOTO 850 .SETF LBR INS SY:$LBR .850: LBR BASMCR/CR:21.:64.:64.=BASMCR .IFF LBR REM LBR .SETT LBR PIP BASMCR.OBJ;*/DE/NM .SETS BASE "0" .SETS LENGTH "14000" .IFF MPD .SETS BASE "20000" .IFF MPD .SETS LENGTH "12500" .IFT MPD .SETS TEMPS "" .IFF MPD .SETS TEMPS "-" .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/-WI" .SETS TEMPS2 ",'MPDV'['$SYGRP',3'S']BASMCR'TEMPS3''$SPL'" .IF MPDV EQ "NL:" .SETS TEMPS2 "" .OPEN BASMCRBLD.CMD .ENABLE DATA ['$SYGRP',6'S']BASMCR/PR/'TEMPS'MM'TEMPS2'=['$SYGRP',2'S']BASMCR/LB:MCRBAS:ERRBAS ['$SYGRP',2'S']BASMCR/LB ['$SYGRP',6'S']RSX11S.STB/SS LB:['$SYGRP',1]EXELIB/LB LB:['$SYGRP',1]SYSLIB/DL / PAR=MCRPAR:'BASE':'LENGTH' STACK=32 TASK=MCR... PRI=150 UNITS=1 ASG=TI:1 TSKV=$SSTAB:7 / .DISABLE DATA .CLOSE .IFT D ; .IFT D ; The task build command file for BASMCR specifies that it .IFT D .IFF MPD ; run in partition MCRPAR, length 'LENGTH' octal (unmapped). .IFT D .IFT MPD ; run in partition MCRPAR, length 'LENGTH' octal (mapped). .IFT D .IFF MPD ; For unmapped systems, its base address is 'BASE' .IFT D .IFF MPD ; octal. If you must alter that address, or .IFT D ; If you must change the partition name or length, .IFT D ; you will have to edit its task build command file. .IFT D ; .ASK Z Do you wish to edit the task build command file for BASMCR .IFF Z .GOTO 870 .IFINS EDI .GOTO 860 .SETF EDI INS SY:$EDI .860: EDI BASMCRBLD.CMD .IFF EDI REM EDI .SETT EDI .870: .IFINS 'TKBTM' .GOTO 880 .SETF TKB INS SY:$TKB .880: 'TKBTM' @BASMCRBLD.CMD .IFF TKB REM 'TKBTM' .SETT TKB .890: .IFT D ; .IFT D ; OTL is a privileged task which is the RSX-11S on-line task loader. .IFT D ; It performs the install, load, and fix functions for tasks which .IFT D ; were created on a host development system and copied via FLX to a .IFT D ; load medium. Depending on the number of load devices, etc, OTL .IFT D .IFF MPD ; ranges from 6200 to 10600 octal on unmapped systems. .IFT D .IFT MPD ; ranges from 8000 to 15000 octal on mapped systems. .IFT D ; .ASK OTL Do you want to include task OTL .IFF OTL .GOTO 980 .IFINS UFD .GOTO 900 .SETF UFD INS SY:$UFD .900: UFD SY:[20,10] UFD SY:[20,2'S'] .IF ALD NE "NL:" UFD 'ALD'[20,3'S'] .IFF UFD REM UFD .SETT UFD SET /UIC=[20,10] PIP SY:OTLPRE.MAC;*/DE/NM PIP SY:*.MAC;*/RM/NM PIP [20,*]*.*;*/DE/NM PIP [20,10]=[2,20]OTLPRE.MAC PIP [20,10]/EN=[2,20]OTL.MAC,OTLCD,OTLCM,OTLERR PIP [20,10]/EN=[2,20]OTLHD.MAC,OTLLB,OTLLD,OTLQIO,OTLRD SET /UIC=[20,2'S'] .OPEN OTLASM.CMD .SETS TEMPS1 "20" .SETS PRE "OTLPRE," .SETS TEMPS "OTL" .GOSUB ASMBLD .SETS TEMPS "OTLCD" .GOSUB ASMBLD .SETS TEMPS "OTLCM" .GOSUB ASMBLD .SETS TEMPS "OTLERR" .GOSUB ASMBLD .SETS TEMPS "OTLHD" .GOSUB ASMBLD .SETS TEMPS "OTLLB" .GOSUB ASMBLD .SETS TEMPS "OTLLD" .GOSUB ASMBLD .SETS TEMPS "OTLQIO" .GOSUB ASMBLD .SETS TEMPS "OTLRD" .GOSUB ASMBLD .CLOSE .IFT D ; .IFT D ; The size of OTL is dependent upon the inclusion of conditional .IFT D ; assembly code. The inclusion of the code is done in two ways, .IFT D ; by a single symbol definition and by macro calls appearing .IFT D ; in an assembly prefix file. The first controls the inclusion .IFT D ; of error message text. To include this option, locate the .IFT D ; symbol R$$ERM, and remove the semicolon from the beginning .IFT D ; of the line. The default for error message text is exclusion. .IFT D ; For example: .IFT D ; .IFT D ; *PL ;R$$ERM .IFT D ; ;R$$ERM=0 .IFT D ; *C /;// .IFT D ; R$$ERM=0 .IFT D ; .IFT D ; The other type of option concerns the exclusion of unwanted .IFT D ; device support. For each of the OTL load devices which .IFT D ; were included in Sysgen Phase I, corresponding support will be .IFT D ; generated in OTL. Naturally, support will not be generated for .IFT D ; those OTL load devices which were not included in Sysgen Phase I. .IFT D ; The following devices along with corresponding control symbols .IFT D ; may be supported by OTL: .IFT D ; .IFT D ; PR11 - PAPER TAPE READER ------ PR .IFT D ; RX11 - RX11 FLEXIBLE DISK ----- DX .IFT D ; RX21 - RX211 FLEXIBLE DISK ---- DY .IFT D ; TA11 - CASSETTE TAPE ---------- CT .IFT D ; TC11 - DECTAPE ---------------- DT .IFT D ; TM11 - TM/TMA/TMB11 MAGTAPE --- MT .IFT D ; TS11 - TS04 MAGTAPE ----------- MS .IFT D ; TU16 - TJ/TWU16-45 MAGTAPE ---- MM .IFT D ; TU58 - TU58 CARTRIDGE --------- DD .IFT D ; .IFT D ; To exclude OTL support for a device which has been generated into .IFT D ; your RSX-11S Executive, locate the corresponding device symbol .IFT D ; and place a semicolon at the beginning of the line. For example: .IFT D ; .IFT D ; *PL PR11 .IFT D ; INCLUD PR11,P$$R11 ;PC11/PR11 SUPPORT .IFT D ; *C //;/ .IFT D ; ; INCLUD PR11,P$$R11 ;PC11/PR11 SUPPPRT .IFT D ; * .IFT D ; .IFT D ; Perform this for all of the above devices which will be part of .IFT D ; your RSX-11S Executive, but for which you do not want OTL .IFT D ; support. Note that the symbols appear on consecutive lines in .IFT D ; alphabetical order in the file. .IFT D ; .ASK Z Do you wish to edit the assembly prefix file for OTL .IFF Z .GOTO 920 .IFINS EDI .GOTO 910 .SETF EDI INS SY:$EDI .910: EDI [20,10]OTLPRE.MAC .IFF EDI REM EDI .SETT EDI .920: .IFINS MAC .GOTO 930 .SETF MAC INS SY:$MAC .930: MAC @OTLASM.CMD .IFF MAC REM MAC .SETT MAC .IFT $2RK .IFT LST PIP 'ALD'[20,3'S']*.LST;*/DE/NM SET /UIC=['$SYGRP',2'S'] PIP [20,10]OTLPRE.MAC;*/DE/NM PIP [20,10]*.MAC;*/RM/NM PIP OTL.OBJ=[20,2'S']*.OBJ PIP [20,2'S']*.*;*/DE/NM .IFINS LBR .GOTO 940 .SETF LBR INS SY:$LBR .940: LBR OTL/CR:21.:128.:64.=OTL .IFF MPD LBR OTL=[2,20]BLXIOU .IFT MPD LBR OTL=[2,20]BLXIOM .IFF LBR REM LBR .SETT LBR PIP OTL.OBJ;*/DE/NM .SETS BASE "0" .SETS LENGTH "15000" .IFF MPD .SETS BASE "20000" .IFF MPD .SETS LENGTH "10600" .IFT MPD .SETS TEMPS "" .IFF MPD .SETS TEMPS "-" .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/-WI" .SETS TEMPS2 ",'MPDV'['$SYGRP',3'S']OTL'TEMPS3''$SPL'" .IF MPDV EQ "NL:" .SETS TEMPS2 "" .OPEN OTLBLD.CMD .ENABLE DATA ['$SYGRP',6'S']OTL/PR/'TEMPS'MM'TEMPS2'=['$SYGRP',2'S']OTL/LB:OTL,OTL/LB LB:['$SYGRP',1]SYSLIB/LB:CAT5:SAVRG:SAVAL:CBTA ['$SYGRP',6'S']RSX11S.STB/SS,LB:['$SYGRP',1]EXELIB/LB LB:['$SYGRP',1]SYSLIB/DL / STACK=32 UNITS=3 ASG=TI:2 TSKV=$STVEC:7 PAR=OTLPAR:'BASE':'LENGTH' / .DISABLE DATA .CLOSE .IFT D ; .IFT D ; The task build command file for OTL specifies that it .IFT D .IFF MPD ; run in partition OTLPAR, length 'LENGTH' octal (unmapped). .IFT D .IFT MPD ; run in partition OTLPAR, length 'LENGTH' octal (mapped). .IFT D .IFF MPD ; For unmapped systems, its base address is 'BASE' .IFT D .IFF MPD ; octal. If you must alter that address, or .IFT D ; If you must change the partition name or length, .IFT D ; you will have to edit its task build command file. .IFT D ; .ASK Z Do you wish to edit the task build command file for OTL .IFF Z .GOTO 960 .IFINS EDI .GOTO 950 .SETF EDI INS SY:$EDI .950: EDI OTLBLD.CMD .IFF EDI REM EDI .SETT EDI .960: .IFINS 'TKBTM' .GOTO 970 .SETF TKB INS SY:$TKB .970: 'TKBTM' @OTLBLD.CMD .IFF TKB REM 'TKBTM' .SETT TKB .980: .IFT D ; .IFT D ; SIP is a privileged task which performs the RSX-11S system .IFT D ; image preservation duties. It replaces the RSX-11M SAV MCR .IFT D ; command. Depending on the number of load devices, etc, SIP .IFT D .IFF MPD ; ranges from 3500 to 6700 octal on unmapped systems. .IFT D .IFT MPD ; ranges from 3700 to 7400 octal on mapped systems. .IFT D ; .ASK SIP Do you want to include task SIP .IFF SIP .GOTO 1081 .IFINS UFD .GOTO 990 .SETF UFD INS SY:$UFD .990: UFD SY:[21,10] UFD SY:[21,2'S'] .IF ALD NE "NL:" UFD 'ALD'[21,3'S'] .IFF UFD REM UFD .SETT UFD SET /UIC=[21,10] PIP SY:SIPPRE.MAC;*/DE/NM PIP SY:*.MAC;*/RM/NM PIP [21,*]*.*;*/DE/NM PIP [21,10]=[2,20]SIPPRE.MAC PIP [21,10]/EN=[2,20]SIP.MAC,SIPBOO,SIPCD,SIPERR PIP [21,10]/EN=[2,20]SIPLD.MAC,SIPQIO SET /UIC=[21,2'S'] .OPEN SIPASM.CMD .SETS TEMPS1 "21" .SETS PRE "SIPPRE," .SETS TEMPS "SIP" .GOSUB ASMBLD .SETS TEMPS "SIPBOO" .GOSUB ASMBLD .SETS TEMPS "SIPCD" .GOSUB ASMBLD .SETS TEMPS "SIPERR" .GOSUB ASMBLD .SETS TEMPS "SIPLD" .GOSUB ASMBLD .SETS TEMPS "SIPQIO" .GOSUB ASMBLD .CLOSE .IFF OTL .GOTO 1000 .GOTO 995 .ASMBLD: .SETS TEMPS2 ",'ALD'['TEMPS1',3'S']'TEMPS''$SPL'" .DATA 'TEMPS''TEMPS2'=LB:['$SYGRP',1]'SMAC'EXEMC/ML,SY:['$UIC',10]RSXMC/PA:1,SY:['TEMPS1',10]'PRE''TEMPS' .RETURN .995: .IFT D ; .IFT D ; The size of SIP is dependent upon conditional assembly code .IFT D ; in exactly the same manner as OTL. There are only a few minor .IFT D ; differences. OTL supports the paper tape reader using the .IFT D ; control symbol PR11; SIP on the other hand supports the paper .IFT D ; tape punch using the control symbol PP11. In addition, OTL .IFT D ; supports DECtape II cartridges using control symbol TU58 and .IFT D ; TS11 magnetic tape drives using the control symbol TS11. .IFT D ; Edit SIPPRE.MAC in the same way described for OTL. For example: .IFT D ; .IFT D ; *PL PP11 .IFT D ; INCLUD PP11,P$$P11 ;PC11/PR11 SUPPORT .IFT D ; *C //;/ .IFT D ; ; INCLUD PP11,P$$P11 ;PC11/PR11 SUPPPRT .IFT D ; * .IFT D ; .GOTO 1010 .1000: .IFT D ; .IFT D ; The size of SIP is dependent upon the inclusion of conditional .IFT D ; assembly code. The inclusion of the code is done in two ways, .IFT D ; by a single symbol definition and by macro calls appearing .IFT D ; in an assembly prefix file. The first controls the inclusion .IFT D ; of error message text. To include this option, locate the .IFT D ; symbol R$$ERM, and remove the semicolon from the beginning .IFT D ; of the line. The default for error message text is exclusion. .IFT D ; For example: .IFT D ; .IFT D ; *PL ;R$$ERM .IFT D ; ;R$$ERM=0 .IFT D ; *C /;// .IFT D ; R$$ERM=0 .IFT D ; .IFT D ; The other type of option concerns the exclusion of unwanted .IFT D ; device support. For each of the SIP load devices which .IFT D ; were included in Sysgen Phase I, corresponding support will be .IFT D ; generated in SIP. Naturally, support will not be generated for .IFT D ; those SIP load devices which were not included iN Sysgen Phase I. .IFT D ; The following devices along with corresponding control symbols .IFT D ; may be supported by SIP: .IFT D ; .IFT D ; PP11 - PAPER TAPE PUNCH .IFT D ; RX11 - RX11 FLEXIBLE DISK .IFT D ; RX21 - RX211 FLEXIBLE DISK .IFT D ; TA11 - CASSETTE TAPE .IFT D ; TC11 - DECTAPE .IFT D ; TM11 - TM/TMA/TMB11 MAGTAPE .IFT D ; TU16 - TJ/TWU16-45 MAGTAPE .IFT D ; .IFT D ; To exclude SIP support for a device which has been generated into .IFT D ; your RSX-11S Executive, locate the corresponding device symbol .IFT D ; and place a semicolon at the beginning of the line. For example: .IFT D ; .IFT D ; *PL PP11 .IFT D ; INCLUD PP11,P$$P11 ;PC11 SUPPORT .IFT D ; *C //;/ .IFT D ; ; INCLUD PP11,P$$P11 ;PC11 SUPPORT .IFT D ; * .IFT D ; .IFT D ; Perform this for all of the above devices which will be part of .IFT D ; your RSX-11S Executive, but for which you do not want SIP .IFT D ; support. Note that the symbols appear on consecutive lines in .IFT D ; alphabetical order in the file. .IFT D ; .1010: .ASK Z Do you wish to edit the assembly prefix file for SIP .IFF Z .GOTO 1030 .IFINS EDI .GOTO 1020 .SETF EDI INS SY:$EDI .1020: EDI [21,10]SIPPRE.MAC .IFF EDI REM EDI .SETT EDI .1030: .IFINS MAC .GOTO 1040 .SETF MAC INS SY:$MAC .1040: MAC @SIPASM.CMD .IFF MAC REM MAC .SETT MAC .IFT $2RK .IFT LST PIP 'ALD'[21,3'S']*.LST;*/DE/NM SET /UIC=['$SYGRP',2'S'] PIP [21,10]SIPPRE.MAC;*/DE/NM PIP [21,10]*.MAC;*/RM/NM PIP SIP.OBJ=[21,2'S']*.OBJ PIP [21,2'S']*.*;*/DE/NM .IFINS LBR .GOTO 1050 .SETF LBR INS SY:$LBR .1050: LBR SIP/CR:20.:64.:64.=SIP .IFF LBR REM LBR .SETT LBR PIP SIP.OBJ;*/DE/NM .SETS TEMP "" .IFF MPD .SETS TEMP "-" .SETS BASE "0" .SETS LENGTH "7400" .IFF MPD .SETS BASE "20000" .IFF MPD .SETS LENGTH "6700" .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/-WI" .SETS TEMPS2 ",'MPDV'['$SYGRP',3'S']SIP'TEMPS3''$SPL'" .IF MPDV EQ "NL:" .SETS TEMPS2 "" .OPEN SIPBLD.CMD .ENABLE DATA ['$SYGRP',6'S']SIP/PR/'TEMP'MM'TEMPS2'=['$SYGRP',2'S']SIP/LB:SIPBOO,SIP/LB LB:['$SYGRP',1]SYSLIB/LB:CBTA ['$SYGRP',6'S']RSX11S.STB/SS,LB:['$SYGRP',1]EXELIB/LB LB:['$SYGRP',1]SYSLIB/DL / STACK=32 UNITS=2 ASG=TI:2 TSKV=$STVEC:7 PAR=SIPPAR:'BASE':'LENGTH' / .DISABLE DATA .CLOSE .IFT D ; .IFT D ; The task build command file for SIP specifies that it .IFT D .IFF MPD ; run in partition SIPPAR, length 'LENGTH' octal (unmapped). .IFT D .IFT MPD ; run in partition SIPPAR, length 'LENGTH' octal (mapped). .IFT D .IFF MPD ; For unmapped systems, its base address is 'BASE' .IFT D .IFF MPD ; octal. If you must alter that address, or .IFT D ; If you must change the partition name or length, .IFT D ; you will have to edit its task build command file. .IFT D ; .ASK Z Do you wish to edit the task build command file for SIP .IFF Z .GOTO 1070 .IFINS EDI .GOTO 1060 .SETF EDI INS SY:$EDI .1060: EDI SIPBLD.CMD .IFF EDI REM EDI .SETT EDI .1070: .IFINS 'TKBTM' .GOTO 1080 .SETF TKB INS SY:$TKB .1080: 'TKBTM' @SIPBLD.CMD .IFF TKB REM 'TKBTM' .SETT TKB .1081: .IFF RSD .GOTO 1089 SET /UIC=['$SYGRP',2'S'] .IFT MPD PIP RMD.OLB/NV=[2,20]RMDMAP.OLB .IFF MPD PIP RMD.OLB/NV=[2,20]RMDUNM.OLB .ASK V05 Do you want to include task RSDV05 .IFF V05 .GOTO 1083 .SETS TEMP "V05" .SETS TEMPS1 "41401" .SETS TEMPS2 "41003" .GOSUB RSDBLD .IFT D ; .IFT D ; The task build file for RSDV05 specifies that it run .IFT D ; in partition RSDV05, length 40000 (octal). .IFT D .IFF MPD ; For unmapped systems, its base address is 20000 (octal). .IFT D ; If you must change the partition name or length, you .IFT D ; will have to edit the task build command file. .IFT D ; .ASK Z Do you wish to edit the task build command file for RSDV05 .IFF Z .GOTO 1083 .IFINS EDI .GOTO 1082 .SETF EDI INS SY:$EDI .1082: EDI RSDV05BLD.CMD .IFF EDI REM EDI .SETT EDI .1083: .ASK V52 Do you want to include task RSDV52 .IFF V52 .GOTO 1085 .SETS TEMP "V52" .SETS TEMPS1 "43001" .SETS TEMPS2 "42403" .GOSUB RSDBLD .IFT D ; .IFT D ; The task build command file for RSDV52 specifies that it .IFT D ; run in partition RSDV52, length 40000 (octal). .IFT D .IFF MPD ; For unmapped sysetms, its base address is 20000 (octal). .IFT D ; If you must change the partition name or length, you .IFT D ; will have to edit the task build command file. .IFT D ; .ASK Z Do you wish to edit the task build command file for RSDV52 .IFF Z .GOTO 1085 .IFINS EDI .GOTO 1084 .SETF EDI INS SY:$EDI .1084: EDI RSDV52BLD.CMD .IFF EDI REM EDI .SETT EDI .1085: .ASK V1H Do you want to include task RSDV1H .IFF V1H .GOTO 1087 .SETS TEMP "V1H" .SETS TEMPS1 "43001" .SETS TEMPS2 "42403" .GOSUB RSDBLD .GOTO 108A .RSDBLD: .IFT MPD .SETS MMSW "MM" .IFF MPD .SETS MMSW "-MM" .SETS BASE "0" .IFF MPD .SETS BASE "20000" .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/-WI" .SETS TEMPS4 ",'MPDV'['$SYGRP',3'S']RSD'TEMP''TEMPS3''$SPL'" .IF MPDV EQ "NL:" .SETS TEMPS4 "" .OPEN RSD'TEMP'BLD.CMD .ENABLE DATA ['$SYGRP',6'S']RSD'TEMP'/PR/'MMSW''TEMPS4'= ['$SYGRP',2'S']RMD/LB:RMDEMO:RMDRIV:GBLCHA:'TEMP'CHA:GBLGBM:GBLMDM:'TEMP'MDM ['$SYGRP',2'S']RMD/LB:GBCOM:MDCOM:RMDXCM ['$SYGRP',2'S']RMD/LB:REMAP:GBINIT:MDINIT:GBPAGE:MDPAGE:GBCMD:MDCMD LB:['$SYGRP',1]SYSLIB/LB:CATB:CAT5:CBTA:CDDMG:C5TA:EDDAT ['$SYGRP',2'S']RMD/LB:NUL11S,['$SYGRP',6'S']RSX11S.STB/SS LB:['$SYGRP',1]SYSLIB/DL / ASG=TI:1:2 PRI=225 EXTSCT=$SCRN:6140 PAR=RSD'TEMP':'BASE':40000 TASK=RSD'TEMP' ;CLEAR OUT PAGE TABLE TO PREVENT TASK FROM TRYING TO ;LOAD IN ANOTHER PAGE. ALL KEYS REPLOT CURRENT PAGE GBLPAT=RMDEMO:$PGTBL:0:0:0:0:0:0:0:0 GBLPAT=RMDEMO:$PGTBL+20:0:0:0:0:0:0:0:0 GBLPAT=RMDEMO:$PGTBL+40:0:0:0:0:0:0:0:0 GBLPAT=RMDEMO:$PGTBL+60:0:0:0:0:0:0:0:0 GBLPAT=RMDEMO:$PGTBL+100:0:0:0:0:0:0:0:0 GBLPAT=RMDEMO:$PGTBL+120:0:0:0:0:0:0:0:0 GBLPAT=RMDEMO:$PGTBL+140:0:0:0:0:0:0:0:0 GBLPAT=RMDEMO:$PGTBL+160:0:0:0:0:0:0:0:0 ; TAILOR DISPLAY TO 11S GBLPAT=RMDEMO:$MDFRH:0 GBLPAT=RMDEMO:$MDFRE:0:0:0:0 GBLPAT=RMDEMO:$MDOTH:0 GBLPAT=RMDEMO:$MDOTN:0 GBLPAT=RMDEMO:$MDOTK:0 GBLPAT=RMDEMO:$MDPRH:'TEMPS1' GBLPAT=RMDEMO:$MDPRL:'TEMPS2' GBLPAT=RMDEMO:HEADER+6:20123:31126 GBLPAT=RMDEMO:$MDERH:0 GBLPAT=RMDEMO:$MDERR:0 // .DISABLE DATA .CLOSE .RETURN .108A: .IFT D ; .IFT D ; The task build command file for RSDV1H specifies that it .IFT D ; run in partition RSDV1H, length 40000 (octal). .IFT D .IFF MPD ; For unmapped systems, its base address is 20000 (octal). .IFT D ; If you must change the partition name or length, you .IFT D ; will have to edit the task build command file. .IFT D ; .ASK Z Do you wish to edit the task build command file for RSDV1H .IFF Z .GOTO 1087 .IFINS EDI .GOTO 1086 .SETF EDI INS SY:$EDI .1086: EDI RSDV1HBLD.CMD .IFF EDI REM EDI .SETT EDI .1087: .IFINS 'TKBTM' .GOTO 1088 .SETF TKB INS SY:$TKB .1088: .IFT V05 'TKBTM' @RSDV05BLD.CMD .IFT V52 'TKBTM' @RSDV52BLD.CMD .IFT V1H 'TKBTM' @RSDV1HBLD.CMD .IFF TKB REM 'TKBTM' .SETT TKB .1089: .IFF CDA .GOTO 1090 .; .; Set up symbols for CDABLD "BLD" file, MAPPED .; SET /UIC=['$SYGRP',24] .SETT $FCSTK .SETT $11M .SETF $11MPL .SETS $TYP1 "" .SETS $TYP2 "" .SETS $LIBOP "" .SETS $CL "" .SETS $MMSW "/MM" .SETS $TK "SY:['$SYGRP',64]" .SETS $MP "['$SYGRP',34]" .SETS $OD "SY:['$SYGRP',24]" .SETS $LI "SY:['$SYGRP',20]" .SETS $GENB "GEN:0:70000" .SETS $COM "ON A MAPPED SYSTEM" .SETS $RSLIB "SYSLIB" .SETS $BLDID "11SGEN2.CMD" @CDABLD.BLD ; ; It may be necessary to edit the task build command file and ODL file ; to build CDA for the non-M host. Change the partition name and ; base address to match that of the partition (on the host system) into ; which CDA will be installed. You will also need to change the ODL ; file to reference the correct device on the host where SYSLIB and ; EXELIB reside. The files are named CDABLD.CMD and CDABLD.ODL. ; We will now pause to allow you to edit the command files. .; .IFT $VAX ; 11SGEN2 -- Pausing. To continue type "CONTINUE". .PAUSE .IFT $VAX ; 11SGEN2 -- continuing .; .IFINS TKB .GOTO 89A .SETF TKB INS SY:$TKB .89A: SET /UIC=['$SYGRP',64] TKB @['$SYGRP',24]CDABLD .IFF TKB REM TKB .SETT TKB ; The CDA.TSK file resides in ['$SYGRP',64] on your RSX-11S sysgen disk ; and can be run on the host system. .IFT $VAX ; CDA must be run in compatibility mode on VAX/VMS hosts. SET /UIC=['$SYGRP',2'S'] .1090: .IFF FCS .GOTO 1110 .IFT D ; .IFT D ; Add subset FCS to the RSX-11S system object library .IFT D ; SET /UIC=['$SYGRP',1] .IFINS LBR .GOTO 1100 .SETF LBR INS SY:$LBR .1100: LBR LB:11SLIB/RP=[2,20]FCS11S .IFF LBR REM LBR .SETT LBR PIP LB:11SLIB.OLB/PU/NM .1110: .IFF SETTIM .GOTO 1140 .IFT D .IFT SETTIM ; .IFT D .IFT SETTIM ; Support for the Set Time directive was chosen in .IFT D .IFT SETTIM ; Sysgen Phase I. Produce the SETTIM object module. .IFT D .IFT SETTIM ; SET /UIC=['$SYGRP',2'S'] .IFINS MAC .GOTO 1120 .SETF MAC INS SY:$MAC .1120: .SETS TEMPS ",'ALD'['$SYGRP',3'S']SETTIM'$SPL'" .IF ALD EQ "NL:" .SETS TEMPS "" .OPEN SETTIMASM.CMD .DATA SETTIM'TEMPS'=['$SYGRP',1]'SMAC'EXEMC/ML,['$UIC',10]RSXMC/PA:1,[2,20]SETTIM .CLOSE MAC @SETTIMASM PIP SETTIMASM.CMD;*/DE .IFF MAC REM MAC .SETT MAC .IFT $2RK .IFT LST PIP 'ALD'['$SYGRP',3'S']SETTIM.LST;*/DE/NM .1140: SET /UIC=['$SYGRP',6'S'] .1170: PIP *.*/PU/NM PIP ['$SYGRP',2'S']*.*/PU/NM .IFT D ; .IFT D ; The operation left to be performed is that of the final .IFT D ; configuration of the virgin executive using Virtual MCR. .IFT D ; .ASK Z Do you want to configure the Exec at this time using VMR .IFF Z .GOTO 1240 .IFT $2RK .IFT D ; .IFT $2RK .IFT D ; Provide enough space for the system image by deleting .IFT $2RK .IFT D ; libraries copied earlier to the baseline. .IFT $2RK .IFT D ; .IFT $2RK PIP [1,1]SYSLIB.OLB;*/DE/NM,EXELIB.OLB;* .IFT D; .IFT D ; The contents of your RSX-11S release kit currently resides .IFT D ; under the UFD [2,20]. If your SY: disk is not an RK06/07 or an .IFT D ; RP04/05/06 you may want to delete these files. Leaving .IFT D ; them on the disk will save the time of re-copying them the next .IFT D ; time you perform an RSX-11S Sysgen. If your SY: disk is an RK05, .IFT D ; they will be automatically deleted. .IFT D ; .IFF $2RK .ASK Z Do you want to delete the RSX-11S kit from this disk .IFT Z .OR .IFT $2RK PIP [2,20]*.*;*/DE/NM .SETS SIZE "/NV" .IFDF $TME .SETN BLKS ($TME*4.)+2. .IFDF $TME .IF BLKS GT 498. .SETN BLKS 498. .IFT MPD .AND .IFDF $TME .SETS SIZE "'SIZE'/CO/BL:'BLKS.'" .IFDF $TME .OR .IFF MPD .GOTO 1190 .IFT D ; .IFT D ; You now must specify whether the memory size which you .IFT D ; specified for your target system in SGN during Sysgen .IFT D ; Phase I is greater than 32K words. .IFT D ; .ASK Z Is your target system larger than 32K words .IFF Z .GOTO 1190 .IFT D ; .IFT D ; If you ever wish to have tasks fixed above 32K words in an .IFT D ; image of your target system, you must create a larger .IFT D ; copy of your system with PIP at this time. .IFT D ; .ASK Z Do you wish to create a larger copy of your system .IFF Z .GOTO 1190 .IFT D ; .IFT D ; At this time we will invoke PIP to allow you to create a .IFT D ; larger copy of your system. To do so, enter the following .IFT D ; command: .IFT D ; .IFT D ; PIP>RSX11S.SYS/NV/CO/BL:N.=RSX11S.TSK .IFT D ; PIP>^Z .IFT D ; .IFT D ; To create a system image in which task images may be fixed up .IFT D ; to M Kwords, you may calculate a value for N in the above .IFT D ; command as follows: .IFT D ; .IFT D ; N=(4*M)+2 .IFT D ; .IFT D ; For example, for the ability to fix tasks in the system image .IFT D ; up to 40K, the command would be: .IFT D ; .IFT D ; PIP>RSX11S.SYS/NV/CO/BL:162.=RSX11S.TSK .IFT D ; PIP>^Z .IFT D ; PIP .GOTO 1200 .1190: .IFT D ; .IFT D ; We will now make a copy of your target system .IFT D ; PIP RSX11S.SYS'SIZE'=RSX11S.TSK .1200: .IFT D ; .IFT D ; If you wish to make a copy of your task or system image file .IFT D ; on another device we will pause now to allow you to do so. .IFT D ; .ASK Z Do you wish to copy your system to another device .IFF Z .GOTO 1210 ; ; We will now pause to allow you to perform the copy. ; .IFT $VAX ; 11SGEN2 -- Pausing. To continue type "CONTINUE". .PAUSE .IFT $VAX ; 11SGEN2 -- continuing SET /UIC=['$SYGRP',6'S'] .1210: .IFT D ; .IFT D ; RSX11S.TSK is a backup copy of the 11S system you have just built. .IFT D ; If you do not wish to retain it, we will delete it now. .IFT D ; .ASK Z Do you wish to delete the system backup file RSX11S.TSK .IFT Z PIP RSX11S.TSK;0/DE/NM .IFT D ; .IFT D ; Your target system is now ready to set up partitions and install .IFT D ; the required tasks. The procedure to follow is: .IFT D ; 1) Run Virtual MCR .IFT D ; 2) Extend POOL space to base of first partition .IFT D ; 3) Set up your partitions .IFT D .IFT DEVCOM ; 3A) Setup common block for DSS, UDC or ICR/ICS .IFT D .IFT $LOD ; 3B) Load needed drivers .IFT D .IFT $DRC ; 3C) Set up a partition for the Directive Common .IFT D .IFT $LPA11 ; 3D) Install the LPA11 modules .IFT D ; 4) Install tasks (BASMCR, OTL, SIP, TKTN) .IFT D ; 5) Fix tasks into (virtual) memory .IFT D ; 6) Optionally set the time and save a copy of THE .IFT D ; system on a bootable medium .IFT D ; 7) Exit from virtual MCR and boot in your target system ; .IFF D ; Setup the target system basing commands on the following ; VMR example: ; ; >VMR ! RUN VIRTUAL MCR ; ENTER FILENAME:RSX11S.SYS ! VMR PROMPTS FOR FILE NAME ; VMR>SET /POOL=XXX ! EXTEND POOL TO FIRST PARTITION BASE .IFT $FUD ; VMR>SET /MAIN=TTPAR:XXX:XXX:TASK !SET UP FULL DUPLEX TT PARTITION .IFT $LOD ; VMR>SET /MAIN=DRVPAR:XXX:XXX:TASK ! SET UP DRIVER PARTITION .IFT $DRC ; VMR>SET /MAIN=EXCOM1:XXX:XXX:COM ! SET 1ST EXEC. COMMON .IFT $DRC ; VMR>INS EXCOM1 !INSTALL 1ST EXECUTIVE COMMON .IFT $DRC ; VMR>SET /MAIN=EXCOM2:XXX:XXX:COM ! SET 2ND EXEC. COMMON .IFT $DRC ; VMR>INS EXCOM2 !INSTALL 2ND EXECUTIVE COMMON ; VMR>SET /MAIN=SYSPAR:XXX:XXX:TASK ! SET UP TKTN PARTITION ; VMR>SET /MAIN=MCRPAR:XXX:XXX:TASK ! SET UP MCR PARTITION ; VMR>SET /MAIN=OTLPAR:XXX:XXX:TASK ! SET UP OTL PARTITION ; VMR>SET /MAIN=SIPPAR:XXX:XXX:TASK ! SET UP SIP PARTITION .IFT V05 ; VMR>SET /MAIN=RSDV05:XXX:XXX:TASK !SET UP RSDV05 PAR .IFT V52 ; VMR>SET /MAIN=RSDV52:XXX:XXX:TASK !SET UP RSDV52 PAR .IFT V1H ; VMR>SET /MAIN=RSDV1H:XXX:XXX:TASK !SET UP RSDV1H PAR ; VMR>SET /MAIN=GEN:XXX:XXX:SYS ! IF SYSTEM CONTROLLED PAR. ; VMR>SET /MAIN=GEN:XXX:XXX:TASK ! IF USER CONTROLLED PARTITION .IFT $LPA11 ; VMR>INS LAINIT !INSTALL THE LPA11 MODULES .IFT $LPA11 ; VMR>INS LAIN0 ! .IFF DEVCOM .GOTO 1220 .IFF $DSS .IFT MPD .SETS BAS "7710" .IFF $DSS .IFF MPD .SETS BAS "1710" .IFT $DSS .IFT MPD .SETS BAS "7610" .IFT $DSS .IFF MPD .SETS BAS "1610" .IFF $DSS .SETS BAS "1710" .IFT $CDB ; VMR>SET /MAIN=ICOM:'BAS':10:DEV ! SET UP COMMON .IFT $CDB ; VMR>INS ['$SYGRP',1]ICOM ! SET COMMON RESIDENT .IFT $DUC ; VMR>SET /MAIN=UDCOM:'BAS':10:DEV ! SET UP COMMON .IFT $DUC ; VMR>INS ['$SYGRP',1]UDCOM ! SET COMMON RESIDENT .IFT $DSS ; VMR>SET /MAIN=ISCOM:'BAS':10:DEV !SET UP COMMON .IFT $DSS ; VMR>INS ['$SYGRP',1]ISCOM ! SET COMMON RESIDENT .IFT $IPE ; VMR>SET /MAIN=IPCOM:'BAS':10:DEV !SET UP COMMON .IFT $IPE ; VMR>INS ['$SYGRP',1]IPCOM !SET COMMON RESIDENT .1220: .IFT $LOD ; VMR>LOA XX: ! LOAD XXDRV ; VMR>INS TKN ! INSTALL TASK TERMINATION TASK ; VMR>FIX TKTN ! FIX INTO MEMORY ; VMR>INS BASMCR ! INSTALL BASIC MCR ; VMR>FIX MCR... ! FIX INTO MEMORY ; VMR>INS OTL ! INSTALL ONLINE TASK LOADER ; VMR>FIX OTL ! FIX INTO MEMORY ; VMR>INS SIP ! INSTALL SYSTEM PRESERVATION TASK ; VMR>FIX SIP ! FIX INTO MEMORY .IFT V05 ; VMR>INS RSDV05 !INSTALL RSDV05 .IFT V05 ; VMR>FIX RSDV05 !FIX INTO MEMORY .IFT V52 ; VMR>INS RSDV52 !INSTALL RSDV52 .IFT V52 ; VMR>FIX RSDV52 !FIX INTO MEMORY .IFT V1H ; VMR>INS RSDV1H !INSTALL RSDV1H .IFT V1H ; VMR>FIX RSDV1H !FIX INTO MEMORY ; VMR>TIM 10:45 11/10/77 ! SET TIME AND DATE ; VMR>SAV DX:RSX11S ! SAVE SYSTEM ON RX01 FLOPPY ; VMR>^Z ! EXIT FROM VIRTUAL MCR ; .IFT D ; End of VMR example .IFT D ; .IFT D ; .IFT D ; .IFT D ; Now we will run Virtual MCR so that you may initialize .IFT D ; your system. Be sure to define all required partitions .IFT D ; at this time, because the SET function is not supported .IFT D ; in RSX-11S BASIC MCR. Furthermore, if you plan to .IFT D ; include BASIC MCR and OTL in your system, they must .IFT D ; be installed and fixed into memory. Other tasks, .IFT D ; such as SIP and TKTN may be loaded into a running .IFT D ; RSX-11S system using OTL. .IFT D ; .IFT D .IFT $LOD ; NOTE: Since LOAD and UNLOAD are not supported on .IFT D .IFT $LOD ; a running RSX-11S system, all required loadable .IFT D .IFT $LOD ; drivers must be loaded using VMR. .IFT D .IFT $LOD ; .IFT D .IFT $DRC ; NOTE: You have requested to include the .IFT D .IFT $DRC ; directive common. You must install the .IFT D .IFT $DRC ; common prior to exitting Virtual MCR .IFT D .IFT $DRC ; or your RSX-11S system will not boot. .SETS VMRTM "VMR" .IFT $MPLUS .SETS VMRTM "VMM" .IFINS 'VMRTM' .GOTO 1225 .SETF VMRX .IFF $MPLUS INS SY:$'VMRTM' .IFT $MPLUS INS SY:['$SYGRP',54]11MVMR/TASK=...'VMRTM' .1225: 'VMRTM' ; ; When this command file completes, your RSX-11S system is ; ready to run. ; .IFF VMRX REM 'VMRTM' .1240: .IFF PIP REM PIP .SETT PIP .IFF UFDX REM UFD .IFF TKBX REM 'TKBTM' .IFF PIPX REM PIP .IFF LBRX REM LBR .IFF EDIX REM EDI .IFF FLXX REM FLX .IFF MACX REM MAC SET /UIC='UIC' TIM .1250: .IFF $MCR ; Resetting the CLI b*ack to DCL .IFF $MCR SET /DCL=TI: ; *˜HqkQ›c, .NLIST ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NòO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; THIS IS THE BASIC MCR PREFIX FILE. IT IS USED TO CONTROL ; THE COMMANDS INCLUDED IN BASIC MCR. ; ; TO INCLUDE THE ATL AND TAL COMMANDS DEFINE R$$ATL ; TO INCLUDE ERROR MESSAGES AS WELL AS ERROR CODES DEFINE R$$ERM ; TO INCLUDE THE OPEN COMMAND DEFINE R$$OPE ; ;R$$ATL = 0 ; INCLUDE ATL ;R$$ERM = 0 ; INCLUDE ERROR MESSAGES ;R$$OPE = 0 ; INCLUDE OPEN .LIST òŸ»kQ›c, .TITLE ABOBAS - ABORT, CANCEL, AND RESUME MCR COMMAND PROCESSOR .IDENT "01" ; ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; ; ; VERSION: 01 ; BY: H. LEV ; DATE: 08/28/73 ; MODIFIED 12/30/74 ABOOV WAS MODIFIED INTO THIS MODULE ; ; ; ; THIS MODULE PROCESSES THE ABORT, CANCEL AND RESUME ; MCR COMMANDS. ; .MCALL DIR$,DEVDF$,TCBDF$ DEVDF$ ; DEFINE DCB, UCB, AND SCB OFFSETS TCBDF$ ; DEFINE TCB OFFSETS .SBTTL LOCAL DATA ; ; ERROR TABLES ; ; ; THIS TABLE CONTAINS ERRORS WHICH MAY BE RECEIVED FROM ; THE DIRECTIVES ABORT, CANCEL, AND RESUME. ; THE POSITION IN THE TABLE IS USED TO ; INDEX INTO THE ERROR TABLE ; ERCOD: .WORD -2. ; .WORD -7. ; .WORD -8. ; ; ; THIS ERROR TABLE CONVERTS DIRECTIVE ERRORS INTO CODES FOR ; MESSAGES GENERATED BY THE ERROR OVERLAY ; ERROR: TRAP 11. ; TASK NOT IN SYSTEM TRAP 13. ; TASK NOT ACTIVE TRAP 15. ; TASK NOT SUSPENDED ERR1: TRAP 2. ; SYNTAX ERROR DPB: .BLKW 3 ; DPB FOR ABORT, CANCEL, AND RESUME ; ; DIRECTIVE CODES ; ABO: .BYTE 83.,3. ; ABORT CAN: .BYTE 25.,3. ; CANCEL RES: .BYTE 47.,3 ; RESUME .SBTTL PROGRAM CODE ; ;+ ; *** - $ABOEP - ABORT MCR COMMAND ENTRY POINT ; *** - $CANEP - CANCEL MCR COMMAND ENTRY POINT ; *** - $RESEP - RESUME MCR COMMAND ENTRY POINT ; ; ; THIS ROUTINE PROCESSES THE ABORT, CANCEL, AND RESUME ; MCR COMMANDS. IT SETS UP A DPB WITH THE CORRECT DIRECTIVE ; CODE AND ISSUES IT. ; ;- ; ; ABORT ENTRY POINT ; $ABOEP::MOV ABO,-(SP) ; GET ABORT DIC BR COM ; ; ; CANCEL ENTRY POINT ; $CANEP::MOV CAN,-(SP) ; GET CANCEL DIC BR COM ; ; ; RESUME ENTRY POINT ; $RESEP::MOV RES,-(SP) ; GET RESUME DIC ; ; COMMON CODE ; COM: CALL $PRSR ; PARSE OFF TASK NAME CALL $NNBLK ; GET NEXT NON-BLANK BCC ERR1 ; SYNTAX ERROR MOV #DPB,R2 ; GET ADDRESS OF DPB MOV (SP)+,(R2)+ ; SET DIC MOV $MPARS,(R2)+ ; MOVE TASK NAME MOV $MPARS+2,(R2) ; INTO DPB ; ; CHECK THAT COMMAND CAME FROM TERMINAL WHICH STARTED TASK ; OR FROM A PRIVILEDGED TERMINAL ; MOV $MPARS+4,R0 ; GET TCB ADDRESS MOV T.UCB(R0),R0 ; GET TASK UCB ADDRESS MOV $MUCB,R1 ; GET TI UCB ADDRESS CMP R1,R0 ; TASK STARTED FROM THIS TERMINAL? BEQ 4$ ; YES BIT #U2.PRV,U.CW2(R1) ; NO, IS THIS A PRIVILEDGED TERMINAL? BNE 4$ ; YES TRAP 6. ; NO, PRIVILEGED COMMAND 4$: DIR$ #DPB ; ISSUE DIRECTIVE BCS 10$ ; SKIP IF ERROR RETURN ; RETURN TO DISPATCHER ; ; ERROR DETECTED DECIDE WHAT IT IS ; 10$: MOV $DSW,R0 ; GET DSW CLR R1 ; ZERO ERROR INDEX 20$: CMP R0,ERCOD(R1) ; IS THIS THE CODE BEQ 30$ ; YES TST (R1)+ ; NO, INDEX TO NEXT ONE BR 20$ ; LOOP 30$: JMP ERROR(R1) ; ISSUE ERROR .END B I8900,10 ; ; THIS TABLE CONTAINS ERROR CODES RETURNED BY THE DIRECTIVES ; l »kQ›c, .TITLE ATLBAS - ACTIVE TASK LIST MCR ROUTINE .IDENT "03" ; ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ; COPYRIGHT (C) 1976 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; ; VERSION: 03 ; BY: H. LEV ; DATE: 09/06/73 ; MODIFIED: 12/10/74 ADD PMD TASK STATUS FLAG ; 3/10/75 LOCK SYSTEM LISTS WHILE RUNNING ; 5/23/75 REFORMAT PRINT OUT ; 6/4/75 CONVERT ATLOV TO ATLBAS ; ; ; ; HJL025 3/7/76 CHANGE PCB, TCB AND TASK HEADER ; JAK028 8/3/76 ADD PRI AND DPRI ; ; THIS MODULE PROCESSED THE MCR ATL AND TAL COMMANDS ; .IF DF R$$ATL .MCALL CALL,PCBDF$,DIR$,RETURN,WTSE$S .SBTTL EQUATED SYMBOLS EFN1 = 1 ;EVENT FLAG TO USE LUN1 = 1 ;LOGICAL UNIT FOR "TI" SPA = 040 ;BLANK PCBDF$ ; DEFINE PCB OFFSETS .SBTTL LOCAL DATA TI: .ASCIZ / TI - / ; PRI: .ASCIZ / PRI - / DPRI: .ASCIZ / DPRI - / IOC: .ASCIZ / IOC - / ; EFLG: .ASCIZ / EFLG -/ ; PCTR: .ASCIZ / PC -/ ; PS: .ASCIZ / PS -/ ; REGS: .ASCIZ / REGS 0-6 / ; NONE: .ASCIZ /NONE/ ; STAT: .ASCIZ / STATUS - / ; ; ; STATUS FLAG NAMES. IF FLAG IS SET IN T.STAT, T.ST2, T.ST3 ; THE FLAG NAME WILL BE PRINTED. ; ; T.STAT BITS STABLE: .ASCIZ /-EXE/ ; NOT IN EXECUTION (100000) .ASCIZ /RDN/ ; I/O RUNDOWN IN PROGRESS (40000) .ASCIZ /MSG/ ; TASK STOPPED FOR ABORT MESSAGE (20000) .ASCIZ /NRP/ ; TASK MAPPED TO NONRESIDENT PARTITION (10000) .BYTE 0 ; (4000) .BYTE 0 ; (2000) .BYTE 0 ; (1000) .ASCIZ /OUT/ ; TASK IS OUT OF MEMORY (400) .ASCIZ /CKP/ ; TASK IS CHECKPOINTED (200) .ASCIZ /CKR/ ; TASK CHECKPOINT REQUESTED (100) .BYTE 0 ; (40) .BYTE 0 ; (20) .BYTE 0 ; (10) .BYTE 0 ; (4) .BYTE 0 ; (2) .BYTE 0 ; (1) ; T.ST2 BITS .ASCIZ /AST/ ; AST IN PROGRESS (100000) .ASCIZ /DST/ ; AST RECOGNITION DISABLED (40000) .ASCIZ /-CHK/ ; TASK NOT CHECKPOINTABLE (20000) .ASCIZ /CKD/ ; CHECKPOINTING DISABLED (10000) .ASCIZ /BFX/ ; TASK BEING FIXED IN MEMORY (4000) .ASCIZ /FXD/ ; TASK IS FIXED IN MEMORY (2000) .ASCIZ /TIO/ ; TASK WAITING FOR TEMINAL I/O (1000) .ASCIZ /CAF/ ; CHECKPOINT SPACE ALLOCATION FAILURE (400) .ASCIZ /HLT/ ; TASK IS BEING HALTED (200) .ASCIZ /ABO/ ; TASK IS MARKED FOR ABORT (100) .ASCIZ /STP/ ; TASK STOPPED WITH PRI=0 IN PARTITION (40) .ASCIZ /STPA/ ;TASK STOPPED IN AST (20) .ASCIZ /SPNA/ ; SAVED TS.SPN ON AST IN PROGRESS (10) .ASCIZ /SPN/ ; TASK SUSPENDED (4) .ASCIZ /WFRA/ ; SAVED TS.WFR ON AST IN PROGRESS (2) .ASCIZ /WFR/ ; TASK IS IN A WAITFOR STATE (1) ; T.ST3 BITS .ASCIZ /ACP/ ; ANCILLIARY CONTROL PROCESSOR (100000) .ASCIZ /-PMD/ ; DUMP TASK ON SYNCHRONOUS ABORT (40000) .ASCIZ /REM/ ; REMOVE TASK ON EXIT (20000) .ASCIZ /PRV/ ; TASK IS PRIVILEGED (10000) .ASCIZ /MCR/ ; TASK REQUESTED AS EXTERNAL MCR FUNCTION (4000) .ASCIZ /SLV/ ; TASK IS A SLAVE (2000) .ASCIZ /CTL/ ; TASK WAS ACTIVATED BY CONTROLLING TASK (1000) .ASCIZ /RST/ ; TASK IS RESTRICTED (400) .ASCIZ /NSD/ ; NO SEND DATA ALLOWED (200) .ASCIZ /CAL/ ; CHECKPOINT SPACE ALLOCATED IN TASK IMAGE (100) .ASCIZ /ROV/ ; TASK HAS RESIDENT OVERLAYS (40) .ASCIZ /NET/ ;NETWORKS PROTOCOL LEVEL 2 (20) .BYTE 0 ; (10) .BYTE 0 ; (4) .BYTE 0 ; (2) .BYTE 0 ; (1) .EVEN TSKFLG: .WORD ; TASK LIST FILE ; 0 - ALL TASKS, 100000 - ACTIVE TASKS ;+ ; *** - $ATLEP - ACTIVE TASK LIST MCR COMMAND ENTRY POINT ; ; THIS ROUTINE FINDS ALL ACTIVE TASKS AND PRINTS OUT DATA ABOUT ; THOSE TASKS INCLUDING PS, PC, R0-R6, AND STATUS FLAGS ; FOR EACH ACTIVE TASK, IT IS PRINTED ON ; DEVICE "TI". ; ; *** - $TALEP - TASK LIST MCR COMMAND ENTRY POINT. THIS COMMAND ; LISTS ALL TASKS IN THE SYSTEM IN THE SAME MANNER ; AS ATL. ; ; OUTPUT FORMAT: ; TNAME TCBADD PNAME PCBADD LLLLLL-HHHHHH PRI - NN. DPRI - NN. ; STATUS - [STS...] ; TI - XXN: IOC - I. EFLG - EEEEEE EEEEEE PS - SSSSSS PC - PPPPPP ; REGS 0-6 000000 111111 222222 333333 444444 555555 666666 ; ; WHERE: ; TNAME - 1-6 CHAR TASK NAME ; TCBADD - TCB ADDRESS ; PNAME - PARTITION NAME ; PCBADD - PCB ADDRESS ; LLLLLL - BASE ADDRESS OF PARTITION ; HHHHHH - TOP ADDRESS OF PARTITION ; PRI - NN. IS TASK'S PRIORITY ; DPRI - NN. IS TASK'S DEFAULT PRIORITY ; [STS] - OPTIONALLY ZERO OR MORE 3 CHARACTER CODES INDICATING THE TASK STATUS ; XXN: - TI TERMINAL ; I. - I/O COUNT ; EEEEEE EEEEEE - EVENT FLAGS ; SSSSSS - PROCESSOR STATUS WORD ; CCCCCC - PROGRAM COUNTER ; 000000 - 666666 REGISTERS 0-6 ; ;- $ATLEP::MOV #TS.EXE,TSKFLG ; SET TO LIST ONLY ACTIVE TASKS BR ATL ; $TALEP::CLR TSKFLG ; SET TO LIST ALL TASKS ATL: MOV $MUCB,R0 ; GET TI UCB ADDRESS TST U.ATT(R0) ; IS DEVICE ATTACHED? BNE 7$ ; YES, ERROR MOV $MBUF,R0 ; GET BUFFER ADDRESS MOV R0,$MDPB+14 ; SET ADDRESS MOV #IO.ATT,$MDPB+2 ; SET ATTACH FUNCTION CALL $DOIO ; ISSUE ATTACH BR 10$ ; 7$: TRAP 26. ; LISTING DEVICE NOT AVAILABLE ; ; TERMINAL IS ATTACHED, DPB IS SET UP, NOW START SEARCHING STD ; 10$: CALL $LOCKL ; LOCK SYSTEM LISTS MOV $TSKHD,R5 ; GET ADDRESS OF FIRST TCB ATLNXT: TST T.TCBL(R5) ; IS THIS THE NULL TASK TCB? BNE 1$ ; NO JMP ATLEND ; YES,NULL TASK IS END OF TCB LIST 1$: BIT TSKFLG,T.STAT(R5) ; IS THIS TASK TO BE LISTED? BEQ 5$ ; YES MOV T.TCBL(R5),R5 ; NO, GET ADDRESS OF NEXT TCB BR ATLNXT ; LOOP ; ; PRINT LINE ONE ; 5$: MOV $MBUF,R0 ; GET BUFFER ADDRESS MOV T.NAM(R5),R1 ; GET TASK NAME CHARS 1-3 CALL $C5TA ; CONVERT TO ASCII MOV T.NAM+2(R5),R1 ; GET TASK NAME CHARS 4-6 CALL $C5TA ; CONVERT TO ASCII MOV R5,R1 ; GET TCB ADDRESS CALL CONSPA ; CONVERT TO OCTAL AND INSERT SPACE MOV T.PCB(R5),R4 ; GET ADDRESS OF PCB MOVB #40,(R0) ; SPACE MOVB (R0)+,(R0)+ ; MOV P.NAM(R4),R1 ; PRINT PARTITION NAME CALL $C5TA ; MOV P.NAM+2(R4),R1 ; CALL $C5TA ; MOV R4,R1 ; GET PCB ADDRESS CALL CONSPA ; CONVERT TO OCTAL .IF DF M$$MGE .IFF MOV P.REL(R4),R1 ; GET PARTITION BASE ADDRESS CALL CONSPA ; CONVERT TO OCTAL AND INSERT SPACE MOV P.REL(R4),R1 ; GET BASE ADDRESS OF PARTITION ADD P.SIZE(R4),R1 ; ADD SIZE TO GET TOP+1 DEC R1 ; GET TOP OF PARTITION MOVB #'-,(R0)+ ; PUT IN DASH INC R2 ; SET TO PRINT LEADING ZEROS CALL $CBOMG ; CONVERT TO ASCII .IFT MOV #$MPARS+4,R1 ; SET ADDRESS OF WORK AREA MOV P.REL(R4),(R1) ; GET PARTITION BASE ADDRESS MOV #SPA,(R0)+ ; PUT IN BLANK CLR 2(R1) ; ZERO HIGH PART CALL CON32W ; CONVERT FROM 32WD BLOCKS TO BYTES CALL .C2BTO ; CONVERT TO 18 BIT ADDRESS MOVB #'-,(R0)+ ; PUT IN HYPHEN MOV P.REL(R4),(R1) ; GET PARTITION BASE ADDRESS CLR 2(R1) ; ZERO HIGH PART ADD P.SIZE(R4),(R1) ; ADD PARTITION SIZE TO GET HIGH ADC 2(R1) ; ADDRESS CALL CON32W ; CONVERT FROM 32WD BLOCKS TO BYTES SUB #1,(R1) ; SET LAST ADDRESS IN USE SBC 2(R1) ; CALL .C2BTO ; CONVERT FROM BINARY TO OCTAL .ENDC MOV #PRI,R1 ;GET "PRI - " CALL MOVE ; CLR R1 ; BISB T.PRI(R5),R1 ;GET CURRENT PRIORITY CLR R2 ;SUPPRESS LEADING ZEROES CALL $CBDMG ;CONVERT TO DECIMAL MOVB #'.,(R0)+ ;INSERT DECIMAL POINT MOV #DPRI,R1 ;GET "DPRI - " CALL MOVE ; CLR R1 ; BISB T.DPRI(R5),R1 ;GET DEFAULT PRIORITY CLR R2 ;SUPPRESS LEADING ZEROES CALL $CBDMG ;CONVERT TO DECIMAL MOVB #'.,(R0)+ ;INSERT DECIMAL CALL PRINT ; PRINT THE LINE MOV $MBUF,R0 ; GET BUFFER ADDRESS AGAIN MOV #STAT,R1 ; GET ADDRESS OF TITLE CALL MOVE ; MOVE IT INTO LINE MOV T.STAT(R5),R1 ; GET STATUS FLAGS MOV #STABLE,R2 ; GET STATUS TABLE ADDRESS MOV #16.,R3 ; SET COUNT OF BITS CALL STATUS ; PRINT OUT STATUS FLAG NAMES MOV T.ST2(R5),R1 ; GET STATUS WORD TWO MOV #16.,R3 ; SET NUMBER OF BITS IN IT CALL STATUS ; PRINT OUT STATUS FLAG NAMES MOV T.ST3(R5),R1 ; GET STATUS WORD THREE MOV #16.,R3 ; SET NUMBER OF BITS IN IT CALL STATUS ; DISPLAY IT CALL PRINT ; PRINT OUT THE STATUS MESSAGE ; ; PRINT LINE TWO ; BIT #TS.OUT,T.STAT(R5) ; IS HEADER IN CORE? BNE 15$ ; NO, THEN CAN'T PRINT REGISTERS MOV P.HDR(R4),R4 ; GET ADDRESS OF HEADER MOV H.CSP(R4),R1 ; GET STACK POINTER MOV R1,-(SP) ; SAVE IT .IF NDF M$$MGE ADD #10,(SP) ; CORRECT IT FOR REGS STORED ON IT .ENDC MOV H.GARD(R4),R4 ; GET ADDRESS OF GUARD WORD .IF DF M$$MGE .IFT SUB #20,R4 ; GET ADDRESS OF CURRENT PS IN HEADER .IFF SUB #10,R4 ; GET ADDRESS OF R3 IN HEADER MOV (R1)+,-(R4) ; MOVE [R4] TO HEADER MOV (R1)+,-(R4) ; MOVE [R5] TO HEADER MOV (R1)+,-(R4) ; MOVE PC TO HEADER MOV (R1)+,-(R4) ; MOVE PS TO HEADER .ENDC MOV R5,-(SP) ; SAVE TCB ADDRESS 15$: MOV $MBUF,R0 ; GET BUFFER ADDRESS MOV #TI,R1 ; MOVE IN "TI - " CALL MOVE ; MOV T.UCB(R5),R3 ; GET TI UCB ADDRESS BNE 17$ ; GOT IT MOV #NONE,R1 ; NONE ASSIGNED, PRINT "NONE" CALL MOVE ; BR 18$ ; 17$: CALL $FMTDV ; PRINT TI NAME 18$: MOV #IOC,R1 ; PRINT " IOC - " CALL MOVE ; CLR R1 ; GET I/O COUNT BISB T.IOC(R5),R1 ; CLR R2 ; SET TO SUPPRESS LAEDING ZEROES CALL $CBDMG ; CONVERT TO DECIMAL MOVB #'.,(R0)+ ; PUT IN DECIMAL POINT MOV #EFLG,R1 ; PRINT " EFLG - " CALL MOVE ; MOV T.EFLG(R5),R1 ; GET FLAGS 1-16 CALL CONSPA ; CONVERT TO OCTAL MOV T.EFLG+2(R5),R1 ; GET FLAGS 17-32 BIT #TS.OUT,T.STAT(R5) ; IS TASK HEADER IN CORE? BNE 25$ ; NO, CAN'T PRINT REGISTERS CALL CONSPA ; CONVERT TO OCTAL MOV #PS,R1 ; PRINT " PS - " CALL MOVE ; MOV (R4)+,R1 ; GET REGISTER CONTENTS CALL CONSPA ; CONVERT TO OCTAL MOV #PCTR,R1 ; PRINT " PC - " CALL MOVE ; MOV (R4)+,R1 ; GET PC VALUE CALL CONSPA ; CONVERT TO OCTAL CALL PRINT ; PRINT IT ; ; PRINT LINE 3 ; MOV $MBUF,R0 ; SET BUFFER POINTER MOV #REGS,R1 ; PRINT " REGS 0-6 " CALL MOVE ; MOV #6.,R5 ; SET COUNT FOR REGS 0-5 ADD #14,R4 ; POINT TO ONE BEYOND REG 0 20$: MOV -(R4),R1 ; GET CONTENTS OF REG CALL CONSPA ; CONVERT AND STORE DEC R5 ; DONE ? BNE 20$ ; NO, LOOP MOV (SP)+,R5 ; GET TCB ADDRESS BACK MOV (SP)+,R1 ; GET SP 25$: CALL CONSPA ; CONVERT TO OCTAL CALL PRINT ; PRINT IT OUT 30$: MOV T.TCBL(R5),R5 ; GET ADDRESS OF NEXT TCB JMP ATLNXT ; TRY IT ; ; ALL ACTIVE TASKS HAVE BEEN DISPLAYED, DETTACH TERMINAL ; ATLEND: CALL $UNLKL ; UNLOCK SYSTEM LISTS MOV #IO.DET,$MDPB+2 ; SET DETTACH FUNCTION CALL $DOIO ; DETTACH ATLEXT: RETURN ; .SBTTL SUBROUTINES ;+ ; *** - CONSPA - INSERT A BLANK AND CONVERT R1 TO OCTAL ; ; INPUT: ; R0 - ADDRESS OF PLACE IN BUFFER TO PUT NEXT CHARACTER ; R1 - WORD TO BE CONVERTED ; ; OUTPUTS: ; R0 - UPDATED TO NEXT AVAILABLE WORD IN BUFFER ;- CONSPA: INC R2 ; SET TO GENERATE LEADING ZEROES MOVB #SPA,(R0)+ ; PUT IN SPACE CALL $CBOMG ; CONVERT TO OCTAL MAGNITUDE RETURN ; EXIT ;+ ; *** - STATUS - CONVERT ONE STATUS FLAGS TO 3 CHAR FLAG NAMES AND A PRECEDING BLANK ; THIS SUBROUTINE TESTS EACH STATUS FLAG AND IF IT IS ON, OUTPUTS ; A BLANK FOLLOWED BY THE THREE CHARACTER FLAG NAME. ; ; INPUT: ; R0 - ADDRESS OF NEXT AVAILABLE BYTE IN BUFFER ; R1 - STATUS FLAGS LEFT JUSTIFIED IN WORD ; R2 - ADDRESS OF NEXT ENTRY IN STATUS FLAG NAME TABLE ; ENTRIES CONTAIN ANY NUMBER OF CHARACTERS AND END IN A ZERO BYTE. ; NULL ENTRIES CONTAIN ONLY A ZERO BYTE ; R3 - COUNT OF STATUS BITS IN WORD ; ; OUTPUT: ; R0 - UPDATED TO NEXT AVAILABLE BYTE IN BUFFER ; R2 - ADDRESS OF NEXT ENTRY IN STATUS NAME TABLE ; R3 - ZERO ; ;- STATUS: MOV R4,-(SP) ; SAVE R4 10$: TST R1 ; IS HIGH BIT SET? BPL 20$ ; NO MOVB #SPA,(R0)+ ; YES, MOVE IN BLANK. 20$: MOVB (R2)+,R4 ; GET NEXT CHAR OF BIT NAME BEQ 30$ ; END OF STRING TST R1 ; IS FLAG SET BPL 20$ ; NO MOVB R4,(R0)+ ; YES, MOVE IN CHAR BR 20$ ; LOOP FOR NEXT CHAR 30$: ASL R1 ; SHIFT UP NEXT BIT DEC R3 ; ALL FLAGS TESTED? BNE 10$ ; NO MOV (SP)+,R4 ; RESTORE R4 RETURN ; EXIT ;+ ; *** - PRINT - COMPUTE LENGTH OF MESSAGE AND WRITE IT TO "TI" ; IF AN ERROR IS DETECTED THIS ROUTINE EXITS TO THE ERROR OVERLAY ; INPUTS: ; R0 - ADDRESS OF NEXT BYTE IN BUFFER ; $MDPB+14 - ADDRESS OF FIRST BYTE IN BUFFER ; ; OUTPUTS: ; NONE ;- PRINT: SUB $MDPB+14,R0 ; COMPUTE BUFFER LENGTH MOV R0,$MDPB+16 ; SET CHARACTER COUNT MOV #IO.WVB,$MDPB+2 ; SET WRITE LOGICAL BLOCK FUNCTION CALLR $DOIO ; ISSUE WRITE ;+ ; *** - MOVE - MOVE A STRING OF ASCII CHARACTERS ; ; INPUT: ; R0 - BUFFER POINTER ; R1 - ADDRESS OF INPUT STRING ; ; OUTPUT: ; R0 - UPDATED ; R1 - END OF STRING ; ;- MOVE: TSTB (R1) ; END OòF STRING? BEQ 10$ ; YES MOVB (R1)+,(R0)+ ; NO, MOVE NEXT CHARACTER BR MOVE ; LOOP 10$: RETURN ; ;+ ; *** - CON32W - CONVERT 32WD BLOCKS TO BYTES ; INPUT: ; R1 - ADDRESS OF TWO WORD AREA FOR CONVERSION ; OUTPUT: ; R1 - ADDRESS OF 18 BIT NUMBER ;- CON32W: MOV #6.,R2 ; SET SHIFT COUNT 10$: CLC ; CLEAR CARRY BIT ROL (R1) ; SHIFT BIT INTO CARRY ROL 2(R1) ; AND CARRY INTO HIGH PART DEC R2 ; DONE? BGT 10$ ; NO, LOOP RETURN ; YES, DONE .ENDC .END ò[»kQ›c, .TITLE BRKBAS - BREAKPOINT MCR COMMAND .IDENT "01" ; ; ; COPYRIGHT 1976, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; COPYRIGHT (C) 1976 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; BY: H. LEV ; DATE: 12/13/74 ; VERSION: 01 ; ; MODIFIED FOR BASIC MCR BY: JO ANN KASSON 8/3/76 ; ; ; THIS MODULE PROCESSES THE MCR BREAKPOINT TRAP COMMAND ; ; IT IS USED TO PASS CONTROL TO XDT THE EXECUTIVE DEBUGGING TOOL ; IT WILL EXECUTE A BPT INSTRUCTION IF XDT HAS BEEN LINKED INTO ; THE EXEC, OTHERWISE IT WILL EXIT ; .IF DF X$$DBT .MCALL CALL,RETURN $BRKEP::CALL $SWSTK,20$ ; SWITCH TO SYSTEM STATE CMP #$TRACE,@#14 ; IS XDT LINKED INTO EXEC? BEQ 10$ ; NO BPT ; YES, EXECUTE BREAKPOINT TO WAKE UP XDT 10$: RETURN ; RETURN TOJ USER STATE 20$: JMP $MCR ; AND GO TO DISPATCHER .ENDC .END J""»kQ›c, .TITLE ERRBAS-ERROR MESSAGE ROUTINE .IDENT /01/ ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION: 01 ; BY: H. LEV ; DATE: 08/23/73 ; MODIFIED: 12/30/74 EDITED FOR USE WITH BASIC MCR ; ; ; THIS MODULE PROCESSES BASIC MCR ERROR MESSAGES ; .MCALL CALL,DIR$,RETURN,WTSE$S .SBTTL ERROR PROCESSING ;+ ; *** - $ERREP-ERROR MESSAGE OVERLAY PROCESSOR ; ; THIS ROUTINE IS CALLED VIA THE TRAP INSTRUCTION TO ; ISSUE ERROR MESSAGES FOR BASIC MCR. ; THE TRAP CODE IS USED TO INDEX INTO THE ERROR TABLE ; ; ;- .IF DF R$$ERM .IFTF $ERREP::MOV (SP)+,R0 ; GET ERROR CODE CMP (SP)+,(SP)+ ; POP OFF PC AND PS MOV #IO.WVB,$MDPB+2 ; SET FUNCTION TO WRITE VIRTUAL MOV R0,-(SP) ; SAVE ERROR CODE ASR (SP) ; CONVERT TO ERROR NUMBER .IFT SUB #2,R0 ; CORRECT FOR OFFSET ASL R0 ; CONVERT TO DOUBLE WORD INDEX 10$: MOV $ERRTB(R0),R4 ; GET ADDRESS OF MESSAGE MOV $ERRTB+2(R0),R5 ; GET MESSAGE LENGTH IN WORDS .IFTF MOV $MBUF,R0 ; SET BUFFER ADDRESS MOV R0,$MDPB+14 ; SET BUFFER ADDRESS IN DPB MOVB #15,(R0)+ ; PUT IN LEADING CR MOV $MCMD,R1 ; GET COMMAND NAME CALL $C5TA ; CONVERT NAME FROM RAD50 TO ASCII MOVB #' ,(R0)+ ; PUT IN SPACE MOVB #'-,(R0)+ ; PUT IN DASH MOVB #'-,(R0)+ ; DASH MOVB #' ,(R0)+ ; PUT IN SPACE MOV (SP)+,R1 ; GET ERROR CODE CLR R2 ; SET TO SUPPRESS LEADING ZEROES CALL $CBDMG ; CONVERT TO DECIMAL .IFT MOVB #' ,(R0)+ ; PUT IN " - " MOVB #'-,(R0)+ ; MOVB 8#' ,(R0)+ ; 20$: MOV (R4)+,R1 ; GET 3 MORE CHARS CALL $C5TA ; CONVERT FROM RAD50 TO ASCII DEC R5 ; DONE? BNE 20$ ; NO, LOOP .IFTF 30$: SUB $MDPB+14,R0 ; COMPUTE LENGTH OF LINE MOV R0,$MDPB+16 ; STORE IT IN DPB CALL $DOIO ; PRINT IT JMP $MCR ; GO TO DISPATCHER .ENDC .END ; 8""?TkQ›c, .TITLE ERRMSG-ERROR MESSAGE .IDENT /02/ ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION: 02 ; BY: H. LEV ; DATE: 08/23/73 ; MODIFIED 12/30/74 MODIFIED FOR BASIC MCR ; ; ; LOCAL MACRO ; ; THIS MACRO GENERATES ERROR MESSAGES IN THE PROPER FORMAT ; FOR ERROV TO PROCESS. ; ; NUM - IS NUMBER TO REFER TO ERROR MESSAGES ; MSG - IS THE MESSAGE TEXT ; .IF DF R$$ERM .MACRO .ERR NUM,MSG .PSECT .ERRTB .WORD ERR'NUM .WORD ERR'NUM'L/2 .PSECT .ERRS ERR'NUM:.RAD50 %'MSG'% ERR'NUM'L = .-ERR'NUM .ENDM ;+ ; *** - $ERRTB - ERROR MESSAGE ADDRESS TABLE ; EACH ERROR MESSAGE HAS A TWO WORD ENTRY OF THE FORM ; WORD1 - ADDRESS OF RAD50 MESSAGE ; WORD2 - LENGTH OF MESSAGE IN WORDS ; *** - $ERRLN - IS LENGTH OF TABLE IN BYTES ;- .LIST MEB .PSECT .ERRTB $ERRTB::.ERR 1, .ERR 2, .ERR 3, .ERR 4, .ERR 5, .ERR 6, .ERR 7, .ERR 8, .ERR 9, .ERR 10, .ERR 11, .ERR 12, .ERR 13, .ERR 14, .ERR 15, .ERR 16, .ERR 17, .ERR 18, .ERR 19, .ERR 20, .ERR 21, .ERR 22, .ERR 23, .ERR 24, .ERR 25, .ERR 26, .ERR 27, .PSECT .ERRTB $ERRLN == .-$ERRTB .ENDC .END èœ'pkQ›c, .TITLE FMTDV - FORMAT DEVICE NAME .IDENT "01" ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION: 01 ; BY: H. LEV ; DATE: 3/10/75 .MCALL RETURN ;+ ; *** - $FMTDV - PUT DEVICE NAME AND UNIT BUFFER ; ; INPUT: ; ; R0 - ADDRESS OF BYTE IN BUFFER ; R3 - ADDRESS OF UCB ; ; OUTPUT: R0 - UPDATED ; R1,R2,R3 ARE USED AND MODIFIED ; ;- $FMTDV::MOV U.DCB(R3),R2 ; GET DCB ADDRESS MOVB D.NAM(R2),(R0)+ ; PUT IN DEVICE MOVB D.NAM+1(R2),(R0)+ ; MNEMONIC MOV R0,-(SP) ; SAVE BUFFER POINTER MOV R3,R0 ; GET UCB ADDRESS SUB D.UCB(R2),R0 ; COMPUTE RELATIVE UCB ADDRESS MOV D.UCBL(R2),R1 ; GET UCB LENGTH CALL $DIV ; COMPUTE RELATIVE UNIT NUMBER ADD D.UNIT(R2),R0 ; COMPUTE ABSOLUTE UNIT NUMBER BIC #177400,R0 ; CLEAR HIGH BYTE MOV R0,R1 ; COPY IT MOV (SP)+,R0 ; RESTORE BUFFER POINTER CLR R2 ; SET TO SUPPRESS LEADING ZEROES CALL $CBOMG ; CO`NVERT TO OCTAL MOVB #':,(R0)+ ; PUT IN COLON (DEVICE TERMINATOR) RETURN ; RETURN .END `´'ºƒkQ›c, .TITLE $FDUCB - FIND UCB .IDENT "02" ; ; ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION: 02 ; BY: H. LEV ; DATE: 11/15/73 ; MODIFIED: 4/28/75 FOR USE BY BASIC MCR ; 3/10/75 SWITCH TO SYSTEM STATE FOR DEVICE LIST SEARCH ; ;+ ; *** - $FDUCB - FIND UCB FOR PHYSICAL DEVICE ; ; THIS SUBROUTINE PARSES THE DEVICE SPECIFIER FROM THE ; COMMAND STRING AND SEARCHES FOR THE DEVICE IN THE DEVICE TABLES ; ; INPUT: ; R0 - BUFFER ADDRESS ; R3 - PARAMETER AREA ADDRESS - 2 WORDS ; ; OUTPUT: ; CARRY SET - UCB NOT FOUND OR SYNTAX ERROR ; R3 = 0 - SYNTAX ERROR ; R3 <>0 - COULDN'T FIND LCB OR UCB ; CARRY CLEAR - UCB FOUND ; R0 - UPDATED ; R1 - ADDRESS OF UCB ; R2 - ADDRESS OF DCB ; R3 - PARM AREA ADDRESS ; (R3) - DEVICE MNEMONIC IN ASCII ; 2(R3) - UNIT NUMBER IN BINARY ; ;- $FDUCB:: MOVB (R0)+,(R3) ; GET UNIT MOVB (R0)+,1(R3) ; MNEMONIC CALL $COTB ; GET UNIT NUMBER CMP R1,#256. ; IS IT VALID? BHIS 55$ ; NO, ERROR MOV R1,2(R3) ; AND STORE IT CMPB R2,#': ; COLON MUST FOLLOW IT BNE 55$ ; ERROR, IT DOESN'T ; ; SCAN UCBS FOR DEVICE ; CALL $SWSTK,60$ ; SWITCH TO SYSTEM STATE MOV $DEVHD,R2 ; GET ADDRESS OF DEVICE TABLE 12$: CMP (R3),D.NAM(R2) ; IS THIS THE DEVICE ? BEQ 20$ ; YES 15$: MOV D.LNK(R2),R2 ; NO, POINT TO NEXT DCB BNE 12$ ; GOT ONE BEQ 50$ ; END OF DEVICES, ERROR 20$: MOV 2(R3),R5 ; GET UNIT NUMBER CMPB R5,D.UNIT(R2) ; IS UNIT ON THIS DCB? BLO 15$ ; NO CMPB R5,D.UNIT+1(R2) ; MAYBE BHI 15$ ; NO! MOVB D.UNIT(R2),R4 ; GET FIRST UNIT NUMBER MOV D.UCB(R2),R1 ; GET FIRST UCB ADDRESS SUB R4,R5 ; COMPUTE RELATIVE UNIT NUMBER BEQ 45$ ; FOUND IT 30$: ADD D.UCBL(R2),R1 ; NO, POINT TO NEXT UCB DEC R5 ; FOUND IT YET? BNE 30$ ; NO, LOOP 45$: MOV R1,4(SP) ; SET USER R1 MOV R2,6(SP) ; SET USER R2 RETURN ; RETURN TO USER STATE 50$: MOV @$HEADR,R3 ; GET USER SP INCB 6(R3) ; SET CARRY BIT HIN USER PS 55$: CLR R3 ; SEC ; SET CARRY 60$: RETURN ; .END Hò-¸LkQ›c, .TITLE GNBLK - GET NEXT NON-BLANK CHARACTER .IDENT "01" ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION: 01 ; BY: H.LEV ; DATE: 1/25/74 ; ; THIS SUBROUTINE GETS THE NEXT NON-BLANK CHARACTER AND TESTS ; FOR END OF LINE ; .MCALL RETURN ; ; EQUATES SYMBOLS ; CR = 15 ; CARRIAGE RETURN ESC = 33 ; ESCAPE SPA = 40 ; SPACE ;+ ; *** - $GNBLK - GET NEXT CHARACTER FROM BUFFER AND FIND NEXT NON-BLANK ; *** - $NNBLK - STARTING WITH CHARACTER IN R2, FIND NEXT NON-BLANK ; THIS SUBROUTINE GETS THE NEXT NON-BLANK CHARACTER AND ; TESTS IT FOR BEING AN END OF LINE CHARACTER. ; ; INPUT: ; R0 - BUFFER POINTER ; R2 - $NNBLK ONLY - THE FIRST CHARACTER TO BE TESTED ; ; OUTPUT: ; R0 - UPDATED TO POINT TO NEXT CHARACTER IN BUFFER ; R2 - FIRST NON-BLANK FOUND ; CARRY CLEAR - NO END OF LINE FOUND ; CARRY SET - END OF LINE (CR, ESC) FOUND, ITS IN R2.þ ; ;- $GNBLK::MOVB (R0)+,R2 ; GET NEXT CHARACTER $NNBLK::CLR R1 ; ZERO BLANK COUNT 5$: CMPB R2,#SPA ; IS IT BLANK? BNE 10$ ; NO INC R1 ; YES, SET BLANK FOUND MOVB (R0)+,R2 ; GET NEXT CHARACTER BR 5$ ; LOOP UNTIL NON-BLANK 10$: CMPB R2,#CR ; IS IT CARRIAGE RETURN (EOL)? BEQ 20$ ; YES CMPB R2,#ESC ; NO, IS IT ESCAPE (EOL)? BEQ 20$ ; YES TST R2 ; ZERO BYTE? BEQ 20$ ; YES CLC ; NO, SET NOT EOL FLAG BR 30$ ; 20$: SEC ; SET END OF LINE FLAG 30$: RETURN ; .END þœ,ÕZkQ›c, .TITLE GETNUM - CONVERT A NUMBER TO BINARY .IDENT "01" ; ; ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD MASS. ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION: 01 ; BY: H. LEV ; DATE: 11/15/73 .MCALL CALL ;+ ; *** - $GTNUM - CONVERT AN ASCII NUMBER TO BINARY. ; IF NUMBER ENDS WITH DECIMAL POINT INTERPRET ; AS A DECIMAL NUMBER. IF NOT, INTERPRET AS AN ; OCTAL NUMBER ; ; INPUT: ; R0 - BUFFEòR ADDRESS ; ; OUTPUT: ; R0 - UPDATED BUFFER POINTER ; R1 - CONVERT NUMBER IN BINARY ; R2 - LAST CHAR SCANNED (NOT DECIMAL POINT IF FOUND ; BUT CHAR AFTER IT). ; ;- $GTNUM::MOV R0,-(SP) ; SAVE BUFFER POINTER CALL $CDTB ; CONVERT DECIMAL TO BINARY CMPB R2,#'. ; END IN DECIMAL POINT ? BNE 10$ ; NO MOVB (R0)+,R2 ; YES, POINT BEYOND IT BR 20$ ; 10$: MOV (SP),R0 ; RETIEVE BUFFER POINTER CALL $COTB ; CONVERT TO OCTAL 20$: TST (SP)+ ; POP BUFFER ADDRESS RETURN .END ò¡E`kQ›c, .TITLE KEYWD - GET AND TEST KEYWORD .IDENT "01" ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION: 01 ; BY: H. LEV ; DATE: 09/19/73 ; .MCALL RETURN ; ; EQUATED SYMBOLS ; CR = 015 ; CARRIAGE RETURN SPA = 040 ; SPACE ;+ ; *** - .KEYWD TEST KEYWORD - BLANKS INGORED BETWEEN KEYWORD + EQUAL SIGNS ; ; INPUTS: ; R0-FIRST CHAR IN BUFFER ; R1-FIRST CHAR OF KEYWORD YOUR LOOKING FOR ; STRING ENDS WITH ZERO ; ; OUTPUTS: ; CARRY CLEAR & OVERFLOW CLEAR - GOOD KEYWORD FOUND WITH ; EQUALS AFTER IT. ; CARRY CLEAR & OVERFLOW SET - GOOD KEYWORD BUT NO EQUALS ; R0 - POINTS TO NEXT CHAR AFTER KEYWORD AND EQUALS IF FOUND ; R2 - LAST CHARACTER SCANNED (EQUALS IF FOUND) ; CARRY SET - BAD KEYWORD - NO MATCH ; R0 - POINTS TO START OF INPUT FIELD ( NO CHANGE) ; ; ;- .KEYWD::MOV R0,-(SP) ; SAVE BUFFER POINTER 10$: MOVB (R0)+,R2 ; GET CHAR FROM BUFFER CMPB R2,#SPA ; BLANK ? BEQ 10$ ; YES, SKIP IT CMPB R2,(R1)+ ; DO THE CHARACTERS MATCH? BNE 50$ ; NO, WRONG KEYWORD TSTB (R1) ; END OF KEYWORD? BNE 10$ ; NO, LOOP 20$: MOVB (R0)+,R2 ; GET NEXT CHARACTER CMPB R2,#'= ; EQUALS FOUND? BEQ 40$ ; YES CMPB R2,#CR ; NO, HOW ABOUT CR (EOL)? BEQ 30$ ; YES CMPB R2,#33 ; NO, HOW ABOUT ESC (EOL)? BEQ 30$ ; CMPB R2,#SPA ; SPACE ? BEQ 20$ ; YES, LOOP 30$: TST (SP)+ ; POP STACK SEV ; SET GOOD KEYWORD, BUT NO EQUALS BR 60$ ; Œ40$: TST (SP)+ ; POP STACK GOOD KEYWORD BR 60$ ; 50$: MOV (SP)+,R0 ; RESET BUFFER POINTER SEC ; CLV ; 60$: RETURN ; .END ŒÄLàykQ›c, .TITLE LKLST .IDENT /01/ ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; ; D. N. CUTLER 28-FEB-75 ; ; LOCK/UNLOCK ROUTINES TO PROVIDE SYNCHRONIZED ACCESS TO SYSTEM DATA ; BASES. ; ;+ ; **-$LOCKL-LOCK SYSTEM DATA BASE LISTS ; ; THIS ROUTINE IS CALLED BY PRIVILEGED TASKS TO SYNCHRONIZE THEIR ACCESS ; TO SYSTEM DATA BASES. A SWITCH TO SYSTEM STATE IS EXECUTED AND THE LOCK ; WORD $LSTLK IS TESTED. IF ANOTHER TASK CURRENTLY OWNS THE LOCK, THEN A ; WAITFOR SIGNIFICANT EVENT IS EXECUTED. AT RESUMPTION OF THE CALLING TASK ; THE TEST IS REPEATED. ELSE THE CALLING TASK IS GRANTED OWNERSHIP. ; ; INPUTS: ; ; NONE. ; ; OUTPUTS: ; ; $LSTLK IS SET TO THE TCB ADDRESS OF THE CALLING TASK. ;- .ENABL LSB 10$: BCS 30$ ;IF CS ACCESS GRANTED $LOCKL::CALL $SWSTK,10$ ;SWITCH TO SYSTEM STATE TST $LSTLK ;LOCK CURRENTLY OWNED BY ANOTHER TASK? BEQ 20$ ;IF EQ NO CMP $TKTCB,$LSTLK ;OWNED BY CURRENT TASK? BEQ 20$ ;IF EQ YES CALLR $TKWSE ;WAITFOR SIGNIFICANT EVENT 20$: MOV $TKTCB,$LSTLK ;SET CURRENT TASK AS OWNER MOV @$HEADR,R0 ;RETRIEVE SAVED STACK POINTER INC 6(R0) ;SET CARRY CONDITION CODE IN RETURN PS 30$: RETURN ; .DSABL LSB ;+ ; **-$UNLKL-UNLOCK SYSTEM DATA BASE LISTS ; ; THIS ROUTINE IS CALLED BY PRIVILEGED TASKS TO RELINQUISH OWNERSHIP OF ; SYSTEM DATA BASES. ; ; INPUTS: ; ; NONE. ; ; OUTPUTS: ; ; IF THE CALLING TASK IS NOT THE CURRENT OWNER, THEN A RETURN IS ; EXECUTED. ELSE OWNERSHIP IS RELINQUISHED AND A CHECK IS MADE TO ; SEE IF ANY TASK IS WAITING FOR A SIGNIFICANT EVENT. IF ANY TASK ; IS WAITING, THEN A SIGNIFICANT EVENT IS DECLARED. A RETURN TO THE ; CALLING TASK IS EXECUTED. ;- $UNLKL::CALL $SWSTK,10$ ;SWITCH TO SYSTEM STATE CMP $TKTCB,$LSTLK ;CURRENT TASK OWNER? BNE 10$ ;IF NE NO CLR $LSTLK ;RELINQUISH OWNERSHIP TST $SIGFL ;ANY TASK WAITING FOR A SIGNIFICANT EVENT? BEQ 10$ ;IF EQ NO CALL $DRDSE ;DECLARE A SIGNIFICANT EVENT 10$: RETURN ; .END ÊQ»kQ›c, .TITLE MCRBAS-MCR DISPATCHER ROUTINE .IDENT /3.1/ ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD MASS. ; ; COPYRIGHT (C) 1976 ; COPYRIGHT (C) 1980 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION: 3.1 ; BY: H. LEV ; DATE: 08/23/73 ; MODIFIED: 12/31/74 MODIFIED MCROV TO USE WITH BASIC MCR ; ; JAK028 8/3/76 ; ; JRK122 31-DEC-79 REWRITE COMMAND LINE CHECK TO PREVENT POOL LOSS ; ; ; THIS IS THE DISPATCHER FOR THE MCR TASK ; .MCALL CALL,DIR$,MRKT$,QIO$,RETURN,SVTK$S,WTSE$S .MCALL WSIG$S .SBTTL EQUATED SYMBOLS CR = 15 ; CARRIAGE RETURN ESC = 033 ; ESCAPE (ALT MODE) HT = 011 ; HORIZONTAL TAB SPA = 040 ; SPACE EFN1 = 1 ; EVENT FLAF LUN1 = 1 ; "TI" LUN. .SBTTL GLOBAL DATA $MDPB::QIO$ IO.WVB,LUN1,EFN1,,$DPBST,,<0,0,0,0,0,0> $MPARS::.BLKW 4. ; PARAMETER AREA $DPBST::.BLKW 2 ; I/O STATUS BLOCK $SSTAB::.BLKW 6 ; SST VECTOR TABLE .WORD $ERREP ; TRAP ENTRY POINT $MBUF::.WORD 0 ; ADDRESS OF COMMAND BUFFER $MCMD::.WORD 0 ; RAD50 COMMAND NAME $MUCB::.WORD 0 ; ADDRESS OF TI UCB $MSTK::.WORD 0 ; INITIAL STACK POINTER $MTERM::.WORD 0 ; LINE TERMINATOR .SBTTL LOCAL DATA ; ; UNPRIVILEGED COMMANDS ; MCMDUP: .RAD50 /ABO/ ; ABORT .WORD $ABOEP ; .RAD50 /CAN/ ; CANCEL .WORD $CANEP ; .RAD50 /RES/ ; RESUME .WORD $RESEP ; .RAD50 /RUN/ ; RUN .WORD $RPSEP ; .RAD50 /TIM/ ; TIME .WORD $TIMEP ; .WORD 0 ; END OF TABLE ; ; PRIVILEGED COMMAND TABLE ; MCMDPR: .IF DF R$$ATL .RAD50 /ATL/ ; ACTIVE TASK LIST .WORD $ATLEP ; .ENDC .IF DF X$$DBT .RAD50 /BRK/ .WORD $BRKEP ;BREAK .ENDC .IF DF R$$OPE .RAD50 /OPE/ ; OPEN .WORD $OPEEP ; .ENDC .RAD50 /RED/ ; REDIRECT .WORD $REDEP ; .RAD50 /REM/ ; REMOVE .WORD $REMEP ; .IF DF R$$ATL .RAD50 /TAL/ ; TASK LIST .WORD $TALEP ; .ENDC .WORD 0 ; ; ; PROMPT CHARACTER ; GTSGN: .ASCII <15><12>/>/ ; .EVEN MCR: .RAD50 /MCR/ ; NAME OF DISPATCHER DISLEN: .BLKW 1 ; BYTE COUNT-1 .SBTTL DISPATCHER CODE ;+ ; ; *** - $MCREP-MCR DISPATCHER ; ; THE MCR DISPATCHER OBTAINS COMMANDS FROM THE MCR UNSOLICITED ; MESSAGE QUEUE. IT EXTRACTS THE COMMAND VERB FROM THE COMMAND ; AND SEARCHES THE UNPRIVILEGED AND PRIVILEGED COMMAND TABLES ; FOR THE COMMAND. IF IT FINDS THE COMMAND IN THE TABLES ; IT WILL JUMP TO THE COMMAND PROCESSOR. ; ; SIDE EFFECTS-INPUT: ; ; $MCRHD-POINTS TO THE MCR UNSOLICITED MESSAGE QUEUE ; ; SIDE EFFECTS-OUTPUT: ; ; $MCMD - RAD50 COMMAND NAME ; $MDPB - QIO DPB SET UP FOR WRITE VIRTUAL ; $MBUF - ADDRESS OF COMMAND BUFFER ; $MUCB - ADDRESS OF TI UCB ; $MTERM - LINE TERMINATOR ; ; OUTPUTS: ; ; R0-POINTER TO NEXT CHARACTER IN COMMAND BUFFER AFTER ; COMMAND VERB. ; ;- ; ; GET NEXT BUFFER TO PROCESS ; .ENABL LSB START: MOV SP,$MSTK ; SAVE INITIAL STACK POINTER $MCR:: MOV $MSTK,SP ; RESET STACK POINTER MOV #IO.WVB,$MDPB+2 ; DEFAULT TO WRITE VIRTUAL MOV #40,$MDPB+20 ; RESET CARRIAGE CONTROL MOV MCR,$MCMD ; SET MCR DISPATCHER IN CONTROL MOV $MBUF,R0 ; DO WE HAVE TO PROMPT? ; IF NON-ZERO, IT MEANS MCR JUST ; PROCESSED A COMMAND AND SHOULD ; ISSUE THE PROMPTING CHARACTER. BEQ MCRP1 ; NO, WE WERE JUST CALLED BY EXEC. MOV #84.,R1 ; GET LENGTH OF BUFFER 5$: CALL $SWSTK,10$ ; SWITCH TO SYSTEM STATE CALLR $DEACB ; RELEASE COMMAND LINE 10$: CMPB $MTERM,#ESC ; LINE TERMINATED BY ESCAPE? BEQ MCRP1 ; YES, SKIP PROMPT MCRPMT: CALL PROMPT ; ISSUE PROMPT STRING MCRP1: CLR $MBUF ; SHOW BUFFER IS FREE CALL $SWSTK,40$ ; SWITCH TO SYSTEM STACK MOV $TKTCB,R0 ;GET MCR'S TCB ADDRESS ADD #T.RCVL,R0 ;GET RECIEVE QUEUE POINTER CALL $QRMVF ; REMOVE A MESSAGE BCC 20$ ; GOT ONE MOV $TKTCB,R5 ; GET MCR'S TCB ADDRESS CALLR $DREXT ; EXIT DIRECTLY TO EXEC ; ; GET A COMMAND TO PROCESS ; 20$: MOV R1,$MBUF ; SAVE BUFFER ADDRESS MOV 2(R1),R0 ; GET UCB ADDRESS BIC #1,R0 ; CLEAR PROMPT REQUEST BIT 30$: MOV U.RED(R0),R0 ; FOLLOW REDIRECT POINTER CMP R0,U.RED(R0) ; END OF LIST? BNE 30$ ; NO, CONTINUE DOWN IT MOV R0,$MUCB ; SET UCB ADDRESS MOV $HEADR,R2 ; GET OUR HEADER ADDRESS MOV R0,H.LUN+<*4>(R2) ; SET LUN1 UCB ADDRESS RETURN ; SWITCH TO USER STACK 40$: MOV $MBUF,R0 ; GET BUFFER ADDRESS BIT #1,2(R0) ; IS THIS A PROMPT REQUEST? BEQ 50$ ; NO ; ; BUFFER IS PROMPT REQUEST ; MOV #4.,R1 ; SET COUNT OF BYTES TO RELEASE MOV #CR,$MTERM ; SET TO PROMPT BR 5$ ; RELEASE BUFFER ; ; BUFFER CONTAINS A COMMAND ; 50$: CMP (R0)+,(R0)+ ; SKIP TO BEGINNING OF COMMAND MOV #80.,R2 ; SET MAX COUNT OF CHARS IN BUFFER MOV R0,R3 ; GET BUFFER ADDRESS .DSABL LSB MCR2: ;JRK122 DEC R2 ; END OF BUFFER? ;JRK122 BGE 3$ ; NO ;JRK122 TRAP 2 ; YES, SYNTAX ERROR ;JRK122 3$: MOVB (R3),R1 ; GET NEXT CHARACTER ;JRK122 CMPB R1,#'A+40 ; IS IT LOWER CASE? ;JRK122 BLO 5$ ; NO ;JRK122 CMPB R1,#'Z+40 ; PERHAPS ;JRK122 BHI 5$ ; NO ;JRK122 SUB #40,R1 ; YES, CONVERT TO UPPER CASE ;**-5 5$: MOVB R1,(R3)+ ; AND STORE IN BUFFER 10$: CMPB R1,#CR ; IS IT CARRIAGE RETURN (EOB) ? ;**-3 BEQ 25$ ; YES CMPB R1,#ESC ; IS IT ESCAPE ( ALT MODE )? BEQ 25$ ; YES ;JRK122 CMPB R1,#IE.EOF ; IS IT A ^Z ;JRK122 BNE MCR2 ; NO, CONTINUE SCAN 25$: MOVB #CR,-(R3) ; SET TERMINATOR TO CR MOV R1,$MTERM ; SAVE TERMINATOR CMP R0,R3 ; NULL LINE? BEQ RESTRT ; YES ; ; GET COMMAND NAME ; 30$: MOV $MBUF,R0 ; GET ADDRESS OF BUFFER CMP (R0)+,(R0)+ ; POINT TO DATA CLR R1 ; PERIOD IS TERMINATOR CALL $CAT5 ; CONVERT 3 CHARS TO RAD50 BCC 40$ ; TRAP 1. ; ILLEGAL MCR FUNCTION ; ; SCAN THE COMMAND TABLES FOR THE COMMAND TYPED IN. ; ; R1=RAD50 COMMAND NAME ; 40$: MOV #MCMDUP,R2 ; GET UNPRIVILEDGED COMMAND TABLE CALL CMDSRC ; SEARCH THIS TABLE FOR COMMAND TST (R2) ; DID WE FIND IT BNE PROCES ; YES ; ; SCAN PRIVILEDGED COMMAND TABLE ; MOV #MCMDPR,R2 ; GET PRIVILEDGED COMMAND TABLE CALL CMDSRC ; SEARCH TABLE FOR COMMAND TST (R2) ; DID WE FIND ONE? BNE 50$ ; YES TRAP 1. ; NO, ILLEGAL MCR FUNCTION ; ; COMMAND IS PRIVILEDGED , SEE IF TERMINAL IS PRIVILEDGED ; 50$: MOV $MUCB,R1 ; GET UCB ADDRESS BIT #U2.PRV,U.CW2(R1) ; IS TERMINAL PRIVILEDGED? BNE PROCES ; YES TRAP 6. ; NO, PRIVILEGED COMMAND ; ; PROCESS COMMAND ; PROCES: MOVB (R0)+,R1 ; GET NEXT CHARACTER CMPB R1,#SPA ; IS IT A SPACE? BEQ 5$ ; YES CMPB R1,#CR ; NO, IS IT A CARRIAGE RETURN ? BNE PROCES ; NO, LOOP DEC R0 ; YES, POINT TO "CR" 5$: MOV (R2)+,$MCMD ; SAVE COMMAND NAME CALL @(R2) ; PROCESS COMMAND RESTRT: JMP $MCR ; GET NEXT COMMAND .SBTTL SUBROUTINES ;+ ; ; *** - CMDSRC-SEARCH COMMAND TABLE FOR MATCH ; INPUT: ; ; R1 - COMMAND IN RAD50 ; R2 - ADDRESS OF COMMAND TABLE ; ; OUTPUT: ; ; R1 - PRESERVED ; R2 - ADDRESS OF COMMAND ENTRY IF FOUND ; (R2)><0 IF FOUND ; (R2)=0 OF NOT FOUND ; ;- CMDSRC: CMP R1,(R2) ; IS THIS THE COMMAND BEQ 10$ ; YES ADD #4.,R2 ; NO, INDEX TO NEXT ENTRY TST (R2) ; END OF TABLE BNE CMDSRC ; NO, TRY NEXT COMMAND 10$: RETURN ; RETURN ;+ ; *** - PROMPT - ISSUE PROMT TO "TI" ; ; INPUT: ; NONE ; ; OUTPUT: ; NONE ; ;- PROMPT: MOV #$MDPB+14,R5 ; GET DPB ADDRESS MOV #GTSGN,(R5)+ ; SET BUFFER POINTER MOV #3,(R5)+ ; SET CHARACTER COUNT CLR (R5) ; NO CARRIAGE CONTROL CALLR $DOIO ; ISSUE QIO .SBTTL GLOBAL SUBROUTINES ;+ ; *** - $DOIO - ISSUE QIO FROM $MDPB ; ; INPUT: ; $MDPB - QIO DPB USING LUN1 AND EFN1 ; ; OUTPUT: ; RETURNS TO CALLER IF NO ERRORS ; OTHERWISE ISSUES ERROR MESSAGE DIRECTLY ; ;- $DOIO:: DIR$ #$MDPB ; ISSUE QIO BCC 10$ ; NO ERRORS YET CMP #IE.UPN,$DSW ; OUT OF POOL SPACE? BNE 20$ ; NO BR 15$ ; YES 10$: WTSE$S #EFN1 ; WAIT TILL DONE BCC 30$ ; ALL OKAY CMPB #IE.NOD,$DPBST ; OUT OF POOL SPACE? BNE 20$ ; NO, ERROR 15$: WSIG$S ; YES, WAIT FOR SOME TO FREE UP BR $DOIO ; DTRY AGAIN 20$: TRAP 8. ; IO ERROR 30$: RETURN ; .END START DE`»kQ›c, .TITLE OPEBAS-OPEN MEMORY ROUTINE .IDENT /02.2/ ; ; ; COPYRIGHT (C) 1975, 1976, 1981 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; ; VERSION: 02.2 ; BY: H. LEV ; DATE: 08/23/73 ; MODIFIED: 12/31/74 MODIFIED OPEOV FOR USE WITH BASIC MCR ; ; ; HJL025 4/7/76 CHANGE PCB, TCB AND HEADER FORMAT ; JAK028 8/4/76 CORRECTION TO GETADD AND OPEN PAR SWITCH ; ; M. JOHNSON 04-JUN-81 ; MJ018 -- FIX CONDITIONAL ASSEMBLY SO THAT .C2BTO WILL BE ; ASSEMBLED IF EITHER R$$OPE OR R$$ATL ARE DEFINED ; ; M. JOHNSON 08-JUL-81 ; MJ020 -- ADD 22-BIT SUPPORT ; ; ; THIS MODULE PROCESSES THE MCR OPEN COMMAND ; .IF DF R$$OPE .MCALL CALL,DIR$,HWDDF$,RETURN,TCBDF$,WTSE$S .IF DF M$$MGE .MCALL HDRDF$,PCBDF$ .IFTF .SBTTL EQUATED SYMBOLS ; ; CONSTANTS ; CR = 15 ; CARRIAGE RETURN ESC = 33 ; ESCAPE (ALT MODE) ; LUN1 = 1 ; LOGICAL UNIT NUMBER FOR "TI" EFN1 = 1 ; EVENT FLAG SPA = 40 ; SPACE HWDDF$ ; DEFINE HARDWAE REGISTERS TCBDF$ ; DEFINE TCB OFFSETS .IFT HDRDF$ ; DEFINE TASK HEADER OFFSETS PCBDF$ ; DEFINE PCB OFFSETS .IFTF .SBTTL LOCAL DATA OPSGN: .BYTE 0 ; SIGN OF NUMBER OPCHNG: .BYTE 0 ; CONTENTS CHANGE FLAG ; 0 = NO CHANGE ; <>0 = CHANGED OPCONT: .WORD 0 ; CONTENTS OF OPEN LOCATION OPCAD: 0,0 ; CURRENT OPEN ADDRESS ; MJ020 ; MJ020 .IFT ; MJ020 ; MJ020 OPPCB: ; PCB ADDRESS OF TASK OR PARTITION ;**-7 OPNAM: .BLKW 2 ; TASK OR PARTITION NAME OPDIB: .WORD 0 ; DISPLACEMENT IN BLOCK OF LOCATION TO BE OPENED OPBLK: .WORD 0 ; BLOCK NUMBER OF LOCATION TO BE OPENED OPOLD: .WORD 0 ; OLD CONTENTS OF OPEN LOCATION OPMOD: .BLKW 2 ; ADDRESS MODIFICATION WORDS OPOPEN: .BYTE 0 ; OPEN TYPE ; 0 = ABSOLUTE ; 2 = PARTITION ; ; KEYWORD VALUES ; PAR: .ASCIZ /PAR/ ; .EVEN .IFTF ; ; OPEN COMMANDS ; CMDTAB: .WORD ESC ; ESCAPE .WORD OPEXIT ; EXIT .WORD CR ; OPEN NEXT .WORD OPECR ; .ASCIZ /^/ ; OPEN PREVIOUS .WORD OPEBK ; .ASCIZ /*/ ; OPEN INDIRECT .WORD OPEAT ; .ASCIZ /@/ ; OPEN INDIRECT .WORD OPEAT ; .ASCIZ /_/ ; OPEN PC OFFSET .WORD OPEOF ; .WORD 0 ; END OF TABLE ; ; TRAP ERROR INSTRUCTIONS ; OERTAB: TRAP 2. ; SYNTAX ERROR TRAP 12. ; INVALID ADDRESS TRAP 9. ; BYTE ADDRESS .SBTTL PARSE THE COMMAND ;+ ; *** - $OPEEP-OPEN MEMORY MCR COMMAND ; ; FORMAT: ; OPE[N] ADDRESS[+-N][/SW=VALUE]CR TYPED IN BY USER ; ADDRESS CONTENTS/[X]TERM DISPLAYED IN SYSTEM ; ; WHERE: ; ADDRESS-IS VALID OCTAL MEMORY ADDRESS ; N - IS OCTAL NUMBER TO BE ADDED [SUBTRACTED] FROM ADDRESS-(OPTIONAL) ; [/SW =VALUE] FOR SYSTEMS WITH MEMORY MANAGEMENT ; OPTIONAL SWITCHES WHICH INDICATE ADDRESS COMPUTATION METHOD ; NULL - ABSOLUTE ADDRESS ; /PAR=PARNAM - ADDRESSES RELATIVE TO PARTITION PARNAM ; CR - CARRIAGE RETURN ; CONTENTS - CONTENTS OF MEMORY LOCATION ; X - NEW VALUE TO BE DEPOSITED IN LOCATION( OPTIONAL) ; TERM - IS ONE OF THE FOLLOWING ; CR-CARRIAGE RETURN-OPEN NEXT LOCATION ; ^CR-OPEN PREVIOUS LOCATION ; *CR-OPEN LOCATION CONTENTS POINTS TO ; @CR-OPEN LOCATION CONTENTS POINTS TO ; _CR-OPEN LOCATION AT PC OFFSET ; ESC-EXIT FROM OPEN ; ; SIDE EFFECTS-INPUT: ; $MBUF POINTS TO COMMAND BUFFER ; $MCMD CONTAINS "OPE" IN RAD50 ; ; INPUT: ; ; R5-POINTS TO NEXT CHARACTER IN BUFFER TO BE PROCESSED ; ; OUTPUT: ; ; NONE ; ;- $OPEEP::CLR R4 ; ZERO ERROR INDEX CLR OPCAD ; ZERO CURRENT ADDRESS CMPB (R0),#CR ; IS IT A CR? ; MJ020 BEQ 25$ ; YES, ERROR ; MJ020 ; ; MJ020 ; WE'VE PASSED THE COMMAND VERB, GET ADDRESS ; MJ020 ; ; MJ020 MOVB (R0),R2 ; GET NEXT CHAR ; MJ020 CALL OSGN ; SEARCH FOR NEXT NON-BLANK ; MJ020 BCS 25$ ; ERROR, EOL ; MJ020 CALL OCTAL ; IS IT AN OCTAL DIGIT? ; MJ020 BCS 25$ ; NO, ERROR ; MJ020 ; MJ020 .IFT ; IS MEMORY MGMT AVAILABLE? ; MJ020 ; MJ020 CLRB OPOPEN ; SET OPEN DEFAULT TO ABSOLUTE ; MJ020 ; MJ020 .IFTF ; MJ020 ; MJ020 MOV #OPCAD,R1 ; GET ADDRESS FOR 18 BITS ; MJ020 CALL .COT2B ; CONVERT TO TWO WORDS ; MJ020 DEC R0 ; POINT TO CURRENT CHARACTER ; MJ020 10$: CLR OPSGN ; SET SIGN TO PLUS ; MJ020 CALL OSGN ; SEARCH FOR NEXT NON-BLANK ; MJ020 BCC 12$ ; EOL ; MJ020 JMP OPESIO ; CR, END OF LINE ; MJ020 12$: CALL OCTAL ; IS IT AN OCTAL DIGIT? ; MJ020 BCS 28$ ; NO, POSSIBLE ERROR ; MJ020 ; MJ020 .IFF ; MJ020 CALL $COTB ; CONVERT TO BINARY ; MJ020 ; MJ020 .IFT ; MJ020 MOV #OPMOD,R1 ; SET ADDRESS FOR ADDRESS MODIFIER ; MJ020 CALL .COT2B ; CONVERT TO TWO WORDS ; MJ020 .IFTF ; MJ020 ; MJ020 DEC R0 ; POINT TO CURRENT CHARACTER ; MJ020 TST OPSGN ; IS SIGN NEGATIVE? ; MJ020 BEQ 20$ ; NO ; MJ020 ; MJ020 .IFF ; MJ020 NEG R1 ; YES, NEGATE DISPLACEMENT ; MJ020 20$: ADD R1, OPCAD ; ADD TO CURRENT ADDRESS ; MJ020 ; MJ020 .IFT ; MJ020 SUB (R1),OPCAD ; SUBTRACT LOW PART ; MJ020 SBC OPCAD+2 ; AND CARRY ; MJ020 SUB 2(R1),OPCAD+2 ; AND HIGH PART ; MJ020 BR 23$ ; MJ020 20$: ADD (R1),OPCAD ; ADD LOW PART ; MJ020 ADC OPCAD+2 ; ADD CARRY BIT ; MJ020 ADD 2(R1),OPCAD+2 ; AND HIGH PART ; MJ020 23$: ; MJ020 .IFTF ; MJ020 ; MJ020 BR 10$ ; LOOP ; MJ020 25$: TRAP 2. ; SYNTAX ERROR ; MJ020 ; MJ020 .IFF ; MJ020 28$: BR 25$ ; IF NO MEM. MGMT, THIS IS AN ERROR ; MJ020 ; MJ020 .IFT ; MJ020 28$: CMPB R2,#'/ ; KEYWORD COMING? ; MJ020 BEQ 30$ ; YES ;**-23 BR 25$ ; NO, ERROR ; MJ020 ;**-5 .IFT ; ; IF SEGMENTATION UNIT IS AVAILABLE THE FOLLOWING ; KEYWORD IS ALLOWED ; /PAR=NNNNNN ; WHERE NNNNNN IS THE NAME OF A PARTITION ; 30$: INC R0 ; POINT TO NEXT CHARACTER ; MJ020 CLR OPNAM ; YES, ZERO NAME ; MJ020 CLR OPNAM+2 ; FIELD ;**-1 MOV #PAR,R1 ; SEE IF ITS CALL .KEYWD ; "PAR" BVS 25$ ; NO, SYNTAX ERROR ; MJ020 BCC OPPAR ; YES ;**-1 BR 25$ ; ERROR ; MJ020 ; ;**-1 ; GET PARTITION NAME FROM BUFFER AND SEARCH PCB'S FOR IT ; OPPAR: INCB OPOPEN ; SET PARTITION TYPE OPEN CALL GETNAM ; GET PARTITION NAME BCS 20$ ; ERROR CALL $NNBLK ; SEE IF A VALID TERMINATOR IS NEXT BCC 20$ ; SYNTAX ERROR MOV #OPNAM,R3 ; POINT TO NAME MOV $PARHD,R0 ; GET ADDRESS OF PCB'S 5$: CMP P.NAM(R0),(R3) ; IS THIS THE PARTITION ? BNE 10$ ; NO CMP P.NAM+2(R0),2(R3) ; MAYBE BEQ 20$ ; YES 10$: MOV P.LNK(R0),R0 ; NO, GET ADDRESS OF NEXT PCB BNE 5$ ; LOOP IF NOT END OF PCBS BEQ OPER12 ; YES, END IS ZERO WORD 20$: MOV R0,OPPCB ; SAVE PCB ADDRESS BR OPESIO ; ; ; LOCAL ERRORS FOR MEMORY MANAGEMENT VERSION OF SOFTWARE ; OPER12: TRAP 7. ; PARTITION NOT IN SYSTEM .IFTF .SBTTL DISPLAY LOCATION ; ; END OF LINE FOUND, SET UP DPB FOR I/O TO "TI" ; OPESIO: MOV #IO.ATT,$MDPB+2 ; SET ATTACH FUNCTON CALL $DOIO ; DOIT ; ; DISPLAY LOCATIONS ADDRESS AND CONTENTS ; OPEDIS: ; MOV $MBUF,R0 ; GET ADDRESS OF MCR BUFFER .IFF TST OPCAD+2 ; IS ADDRESS TOO BIG? ; MJ020 BNE OPER8 ; YES, ERROR ; MJ020 MOV OPCAD,R1 ; GET ADDRESS OF LOCATION TO BE DISPLAYED BIT #1,R1 ; IS ADDRESS ODD ? BNE OPER9 ; YES, ERROR CALL $CBOMG ; CONVERT TO OCTAL ASCII MOVB #SPA,(R0)+ ; PUT IN A BLANK MTPS #PR7 ;;; LOCK OUT INTERRUPTS MOV @#4,-(SP) ;;; SAVE INTERRUPT VECTOR MOV #2$,@#4 ;;; SET NEW VECTOR CLC ;;; MOV @OPCAD,R1 ;;; GET CONTENTS OF LOCATION BR 3$ ;;; SKIP ERROR PROCESSING ; ; INTERRUPT COMES HERE ON NON-EXISTANT MEMORY TRAP ; 2$: TST (SP)+ ;;; POP PC MTPS #0 ;;; RESET PS SEC ;;; SET ERROR 3$: MOV (SP)+,@#4 ;;; RESET INTERRUPT VECTOR MFPS -(SP) ;;; GET OLD PS MTPS #0 ;;; ALLOW INTERRUPTS BIT #1,(SP)+ ; CARRY SET IN OLD PS? BNE OPER8 ; YES, BAD ADDRESS CALL $CBOMG ; CONVERT TO ASCII BR 4$ ; .IFT MOV #OPCAD,R1 ; SET ADDRESS OF LOCATION ADDRESS BIT #1,(R1) ; IS ADDRESS ODD ? BNE OPER9 ; YES, BYTE ADDRESS ERROR MOV PC,R2 ; SET TO PRINT LEADING ZEROES BIT #FE.EXT,$FMASK ; 11/70 EXTENDED MEMORY SUPPORT? ; MJ020 BEQ 2$ ; NO ; MJ020 BIT #177700,2(R1) ; ADDRESS ABOVE 2048. K? ; MJ020 BNE OPER8 ; YES, ERROR ; MJ020 CALL .C22TO ; YES, CONVERT 22-BIT ADDRESS ; MJ020 BR 3$ ; ; MJ020 2$: BIT #177774,2(R1) ; ADDRESS ABOVE 128. K? ; MJ020 BNE OPER8 ; YES, ERROR ; MJ020 CALL .C2BTO ; CONVERT TO 6 OCTAL DIGITS 3$: MOVB #SPA,(R0)+ ; PUT IN BLANK ; MJ020 CALL OPEN ; GET CONTENTS OF LOCATION ;**-1 BCS OPER8 ; BAD ADDRESS MOV #OPOLD,R1 ; GET CURRENT CONTENTS OF LOCATION MOV PC,R2 ; SET TO PRINT LEADING ZEROES CALL .CBTO ; CONVERT TO OCTAL .IFTF ; ; WRITE OUT LINE ; 4$: MOVB #SPA,(R0)+ ; PUT IN SPACE MOVB #'/,(R0)+ ; PUT IN / MOV #$MDPB+14,R5 ; GET ADDRESS OF DPB BUFFER POINTER MOV $MBUF,(R5) ; AND SET ADDRESS OF BUFFER SUB (R5)+,R0 ; COMPUTE LENGTH OF BUFFER MOV R0,(R5)+ ; STORE LENGTH IN DBP MOV #44,(R5) ; SET LEAD LF, NO CR MOV #IO.WVB,$MDPB+2 ; SET WRITE LOGICAL BLOCK FUNCTION CALL $DOIO ; DO THE I/O MOV #IO.RVB,$MDPB+2 ; SET READ LOGICAL BLOCK MOV #80.,$MDPB+16 ; SET BUFFER LENGTH CALL $DOIO ; READ IN NEXT COMMAND MOVB $DPBST+1,R1 ; GET TERMINATOR CMPB #CR,R1 ; IS IT CR? BEQ 5$ ; YES CMPB #ESC,R1 ; IS IT ESC (ALT MODE) BNE OPER6 ; NO, ERROR 5$: MOV $DPBST+2,R3 ; GET COUNT OF CHARS READ MOV $MBUF,R0 ; GET ADDRESS OF BUFFER ADD R0,R3 ; GET ADDRESS OF LAST BYTE MOVB R1,(R3) ; PUT IN TERMINATOR ; ; NEXT COMMAND IS IN, DECODE IT ; CLRB OPCHNG ; SET NOT CHANGED CALL $GNBLK ; GET NEXT NON-BLANK BCS OPSKP ; EOL DEC R0 ; BACK UP BUFFER POINTER TO FIRST CHARACTER CALL OCTAL ; IS IT AN OCTAL DIGIT? ; MJ020 BCS OPSKP ; NO ;**-1 INCB OPCHNG ; YES, SHOW WE'RE CHANGING CONTENTS CALL $COTB ; CONVERT TO BINARY MOV R1,OPCONT ; SAVE NEW CONTENTS BR OPSKP .SBTTL ERROR PROCESSING ;*********************** ; ; ERROR PROCESSING WAS MOVED TO THIS SPOT SO THAT ; TRANSFERS TO THESE LABELS CAN BE MADE BY ; BRANCH INSTRUCTIONS, RATHER THAN BRANCH FOLLOWED BY ; JUMP INSTRUCTIONS. ; ;*********************** ; ; ERROR PROCESSING ; OPER9: INC R4 ; 8 BYTE ADDRESS OPER8: INC R4 ; 7 ADDRESS ERROR OPER6: ; SYNTAX ERROR CALL OPDET ; DETACH TTY ASL R4 ; DOUBLE ERROR CODE JMP OERTAB(R4) ; ISSUE ERROR MESSAGE .SBTTL DETERMINE FUNCTION TO BE PERFORMED ; ; TERMINATOR FOUND WHAT IS IT? ; OPSKP: .IFF MOV OPCAD,R5 ; GET CURRENT ADDRESS .IFTF MOV #CMDTAB,R3 ; GET ADDRESS OF VALID COMMANDS 10$: CMPB R2,(R3) ; SAME COMMAND? BEQ 20$ ; YES ADD #4,R3 ; NO, BUMP TO NEXT ONE TSTB (R3) ; END OF COMMANDS? BNE 10$ ; NO, TRY NEXT ONE BR OPER6 ; YES, ERROR 20$: TSTB OPCHNG ; CHANGE CONTENTS BEQ 30$ ; NO CALL STORE ; YES .IFT MOV OPCONT,OPOLD ; SAVE NEW CONTENTS .IFTF 30$: JMP @2(R3) ; GO TO COMMAND PROCESSOR OPECR: ADD #2,OPCAD ; SET ADDRESS TO NEXT WORD .IFT ADC OPCAD+2 ; .IFTF BR OPECOM ; OPEBK: SUB #2,OPCAD ; SET ADDRESS TO PREVIOUS WORD .IFT SBC OPCAD+2 ; .IFTF BR OPECOM ; OPEAT: .IFF MOV (R5),OPCAD ; SET NEW ADDRESS .IFT MOV OPOLD,OPCAD ; CLR OPCAD+2 ; .IFTF BR OPECOM ; OPEOF: .IFF MOVB (R5),R1 ; GET OFFSET .IFT MOVB OPOLD,R1 ; GET OFFSET .IFTF ASL R1 ; DOUBLE IT ADD #2,R1 ; ADD 2 TO IT ADD R1,OPCAD ; ADD TO CURRENT ADDRESS .IFT TST R1 ; POSITIVE? BMI 10$ ; NO ADC OPCAD+2 ; BR OPECOM 10$: SBC OPCAD+2 ; .IFTF OPECOM: JMP OPEDIS ; OPEXIT: MOVB #CR,@$MBUF ; PUT IN CARRIAGE RETURN MOV #1,$MDPB+16 ; SET OUT PUT COUNT CLR $MDPB+20 ; ZERO CARRIAGE CONTROL MOV #IO.WLB,$MDPB+2 ; SET WRITE VIRTUAL CALL $DOIO ; AND ISSUE QIO CALLR OPDET ; DETTACH TTY .SBTTL SUBROUTINES .IFT ;+ ; *** - OPEN - OPEN LOCATION ON A SEGMENTED SYSTEM ; ; INPUT: ; OPOPEN - OPEN TYPE ( ABSOLUTE, KERNAL, PARTITION, TASK) ; TELLS HOW TO DETERMINE ABSOLUTE ADDRESS ; OPCAD,+2 - ADDRESS OF LOCATION TO BE OPENED ( 18 BITS) ; OPPCB - ADDRESS OF PARTITION CONTROL BLOCK FOR TASK, PARTITION ; ; OUTPUT: ; OPDIB - DISPLACEMENT IN BLOCK OF LOCATION ; OPBLK - BLOCK NUMBER OF LOCATION ; OPOLD - CONTENTS OF LOCATION ; ;- OPEN: CLR OPBLK ; ZERO BLOCK NUMBER ; MJ020 MOVB OPOPEN,R1 ; IS THIS OPEN ABSOLUTE? ; MJ020 BEQ OPEABS ; YES ;**-1 TST OPCAD+2 ; IS ADDRESS > 2**16 ? BNE OPEBAD ; YES, ERROR BR OPEPAR ;NO, OPEN PARTITION OPEBAD: SEC ; RETURN ; ; ; OPEN ABSOLUTE ; OPEABS: BIT #FE.EXT,$FMASK ; 22-BIT MEMORY SUPPORT? ; MJ020 BEQ 5$ ; NO, BRANCH ; MJ020 BIC #177700,OPCAD+2 ; CLEAR BITS 6-15 OF THE HIGH WORD (ABOVE 22) ; MJ020 BR 8$ ; MJ020 5$: BIC #177774,OPCAD+2 ; CLEAR BITS 2-15 OF THE HIGH WORD (ABOVE 18) ; MJ020 8$: MOV OPCAD+2,R1 ; GET HIGH BITS OF ADDRESS ; MJ020 MOV OPCAD,R2 ; GET LOW 16 BITS ;**-1 BIC #177700,R2 ; CLEAR BLOCK NUMBER MOV R2,OPDIB ; SET DIB MOV OPCAD,R2 ; GET LOW BITS AGAIN BIC #77,R2 ; CLEAR DIB MOV #6,-(SP) ; SET SHIFT COUNTER ; MJ020 10$: ROR R1 ; SHIFT FROM HIGH WORD THROUGH CARRY AND ; MJ020 ROR R2 ; INTO LOW WORD ; MJ020 DEC (SP) ; DONE? ; MJ020 BGT 10$ ; NO, LOOP ; MJ020 TST (SP)+ ; CLEAN UP STACK ; MJ020 MOV R2,OPBLK ; AND SAVE BLOCK NUMBER ;**-5 CMP R2,$SYSIZ ; IS ADDRESS VALID? (EXISTS?) BLO OPEMEM ; YES BIT #FE.EXT,$FMASK ; 22-BIT EXTENDED MEMORY SUPPORT? ; MJ020 BEQ 20$ ; NO, BRANCH ; MJ020 CMP R2,#177600 ; YES, OPENING EXTERNAL PAGE? ; MJ020 BR 30$ ; ; MJ020 20$: CMP R2,#7600 ; NO, OPENING EXTERNAL PAGE? ; MJ020 30$: BHIS OPEMEM ; YES ; MJ020 BR OPEBAD ; NO, ERROR - BAD ADDRESS ;**-2 ; ; OPEN PARTITION ADDRESS ; OPEPAR: MOV OPPCB,R1 ; GET PCB ADDRESS MOV OPCAD,R2 ; GET ADDRESS MOV R2,R3 ; YES , COPY ADDRESS BIC #77,R2 ;CLEAR LOW BYTE CALL ROR6 ; CONVERT TO 32 WORD BLOCK NUMBER CMP R2,P.SIZE(R1) ; IS IT IN PARTITION? BHIS OPEBAD ;NO MOV R3,R2 ; YES, COPY ADDRESS AGAIN OPEPCB: MOV R2,R3 ; COPY ADDRESS BIC #177700,R3 ; CLEAR OF BLOCK NUMBER MOV R3,OPDIB ; SAVE DIB BIC #77,R2 ; CLEAR OUT DIB CALL ROR6 ; ROTATE IT DOWN ADD P.REL(R1),R2 ; ADD PARTITION RELATIVE BLOCK NUM. MOV R2,OPBLK ; SAVE BLOCK NUMBER BR OPEMEM ; OPEN THE LOCATION ; ; ; OPEN THE LOCATION ; OPEMEM: CALL $SWSTK,40$ ; SWITCH TO SYSTEM STACK CALL OPEADD ; SET UP SAR AND PDR MOV @#4,-(SP) ; SAVE INTERRUPT VECTOR MOV #20$,@#4 ; SET NEW VECTOR MOV (R1),OPOLD ; GET CONTENTS BR 30$ ; SKIP ERROR PROCESSING ; ; INTERRUPT COMES HERE ON NON-EXISTANT MEMORY ; 20$: TST (SP)+ ; POP OFF PC MOV (SP)+,PS ; RESTORE PS MOV @$HEADR,R2 ; GET HEADER ADDRESS BIS #1,6(R2) ; SET CARRY BIT 30$: MOV (SP)+,@#4 ; RESET INTERRUPT VECTOR 40$: RETURN ; ;+ ; *** - STORE - STORE NEW VALUE IN CURRENT LOCATION ; ; INPUT: ; NON - SEGMENTED SYSTEM ; R5 - ADDRESS OF LOCATION TO BE MODIFIED ; SEGMENTED SYSTEM ; OPDIB - DISPLACEMENT IN BLOCK OF LOCATION ; OPBLK - ABSOLUTE BLOCK IN MACHINE OF LOCATION ; ; OUTPUT: ; ; LOCATION IS MODIFIED TO CONTENTS OF OPCONT ; ;- .IFF STORE: MOV OPCONT,(R5) ; SET NEW VALUE RETURN ; .IFT STORE: CALL $SWSTK,100$ ; SWITCH TO SYSTEM STACK CALL OPEADD ; SET SAR AND PDR MOV OPCONT,(R1) ; SET NEW VALUE 100$: RETURN ; RETURN TO USER STACK ;+ ; *** - OPEADD - SET UP SAR6 SO THAT THE REQUESTED ; LOCATION CAN BE READ OR ALTERED ; ; INPUT: ; OPDIB - DISPLACEMENT IN BLOCK OF WORD REQUESTED ; OPBLK - BLOCK NUMBER OF WORD DESIRED ; ; OUTPUT: ; SAR6 IS SET UP TO READ THE ADDRESS ; R1 - CONTAINS ADDRESS BIASED BY 140000 TO READ WORD ; ;- OPEADD: MOV OPBLK,@#KISAR6 ; SET BLOCK NUMBER IN SAR6 MOV OPDIB,R1 ; GET DIB ADD #140000,R1 ; MAKE IT LOOK LIKE ITS IN PAGE6 RETURN .IFTF .IFTF ;+ ; *** - OPDET-DETACH TERMINAL ; ; INPUTS-NONE ; ; OUTPUTS-NONE ; ;- OPDET: MOV #IO.DET,$MDPB+2 ; SET DETACH FUNCTION CALL $DOIO ; DO IT RETURN ; RETURN ;+ ; MJ020 ; *** - OSGN-LOOK FOR SIGN AND SET OPSGN ; MJ020 ; ; MJ020 ; THIS ROUTINE SCANS THROUGH BUFFER LOOKING FOR NEXT NON-BLANK ; MJ020 ; CHARACTER. IF ITS A SIGN, IT SETS OPSGN TO 0 IF + OR -1 IF -. ; MJ020 ; IT THEN CONTINES TO SCAN THE BUFFER. IT STOPS ON A NON-BLANK AND ; MJ020 ; NON-SIGN CHARACTER. ; MJ020 ; ; MJ020 ; INPUTS: ; MJ020 ; R0 - ADDRESS 1ST CHAR IN BUFFER ; MJ020 ; R2 - CHAR IN BUFFER ; MJ020 ; ; MJ020 ; OUTPUTS: ; MJ020 ; R0 - ADDRESS OF LAST CHAR LOOKED AT ; MJ020 ; R2 - LAST CHAR LOOKED AT ; MJ020 ; CARRY SET - CR FOUND ; MJ020 ; CARRY CLEAR - NOT CR ; MJ020 ; ; MJ020 ;- ; MJ020 OSGN: CMPB R2,#SPA ; IS IT A SPACE? ; MJ020 BNE 10$ ; NO ; MJ020 5$: INC R0 ; YES, SKIP IT ; MJ020 MOVB (R0),R2 ; GET NEXT CHAR ; MJ020 BR OSGN ; LOOP ; MJ020 10$: CMPB R2,#CR ; IS IT CR? ; MJ020 BEQ 30$ ; YES ; MJ020 CMPB R2,#'+ ; PLUS SIGN? ; MJ020 BEQ 5$ ; YES ; MJ020 CMPB R2,#'- ; MINUS SIGN? ; MJ020 BNE 20$ ; NO ; MJ020 COM OPSGN ; YES, NEGATE FLAG ; MJ020 BR 5$ ; ; MJ020 20$: CLC ; CLEAR CARRY, NO EOL ; MJ020 BR 40$ ; ; MJ020 30$: SEC ; SEC ; MJ020 40$: RETURN ; ; MJ020 ;+ ; MJ020 ; ; MJ020 ; MJ020 ;+ ; MJ020 ; *** - OCTAL CHECK IF CHARACTER IS A VALID OCTAL DIGIT ; MJ020 ; ; MJ020 ; INPUTS: ; MJ020 ; ; MJ020 ; R2 IS CHARACTER TO BE CHECKED ; MJ020 ; ; MJ020 ; OUTPUTS: ; MJ020 ; ; MJ020 ; CARRY - 0 VALID DIGIT ; MJ020 ; CARRY - 1 INVALID DIGIT ; MJ020 ; ; MJ020 ;- ; MJ020 OCTAL: CMPB R2,#'0 ; IS THE DIGIT 0-7? LT IS ERROR ; MJ020 BLT 10$ ; NO ; MJ020 CMPB R2,#'7 ; MAYBE, GT IS ERROR ; MJ020 BGT 10$ ; NO ; MJ020 CLC ; YES, CLEAR CARRY ; MJ020 BR 20$ ; ; MJ020 10$: SEC ; SET CARRY ; MJ020 20$: RETURN ; ; MJ020 ; MJ020 ; MJ020 ; MJ020 .IFT ; MJ020 ; MJ020 ;+ ;**-79 ; *** - GETNAM - GET PARTITION NAME ; ; INPUT: ; R0 - POINTS TO BUFFER ; ; OUTPUT: ; R0- UPDATED TO NEXT CHARACTER IN BUFFER ; CARRY ; SET - DID'T GET A PROPER NAME ; CLEAR - GOT A GOOD NAME ; OPNAM,+2 - NAME GOTTEN BY ROUTINE ; ;- GETNAM: MOV PC,R1 ; SET ALLOW PERIODS CALL $CAT5 ; CONVERT TO RAD50 MOV R1,OPNAM ; STORE FIRST 3 CHARS BCS 10$ ; NO MORE TO GET CALL $CAT5 ; GET NEXT 3 CHARS MOV R1,OPNAM+2 ; STORE THEM TOO BCS 10$ ; LESS THEN 3 CHARACTERS? MOVB (R0)+,R2 ; NO, GET NEXT CHARACTER 10$: TST OPNAM ; DID WE GET A NAME ? BEQ 20$ ; NO CLC ; YES, SET GOOD FLAG BR 30$ ; 20$: SEC ; 30$: RETURN ; ;+ ; *** - ROR6 - ROTATE R2 RIGHT 6 BITS ; *** - ROR4 - ROTATE R2 RIGHT 4 BITS ; ; INPUT: ; R2 - CONTENTS TO BE ROTATED RIGHT ; ; OUTPUT: ; R2 - ROTATED REQUESTED AMOUNT ; ;- ROR6: CLC ; ZERO CARRY BIT ROR R2 ; ROR R2 ; ROR4: ROR R2 ; ROR R2 ; ROR R2 ; ROR R2 ; RETURN ; RETURN TO CALLER .ENDC ; MJ018 ; MJ018 .ENDC ; MJ018 ;+ ; MJ018 .IF DF M$$MGE ; MJ018 ; MJ018 .IF DF R$$OPE ! R$$ATL ; MJ018 ; MJ018 ; THIS ROUTINE CONVERTS BINARY NUMBERS TO OCTAL ASCII DIGITS ; MJ020 ; ; MJ020 ; *** - .C22TO - CONVERTS A 22 BIT NUMBER TO OCTAL ; MJ020 ; *** - .C2BTO - CONVERTS AN 18 BIT NUMBER TO OCTAL ; MJ020 ; *** - .CBTO - CONVERTS A 16 BIT NUMBER TO OCTAL ; MJ020 ; ; MJ020 ; INPUT: ; MJ020 ; R0 - BUFFER ADDRESS ; MJ020 ; R1 - ADDRESS OF TWO WORD BINARY NUMBER ; MJ020 ; (R1) - LOW PART ; MJ020 ; 2(R1) - HIGH PART ; MJ020 ; R2 - LEADING ZERO FLAG ; MJ020 ; 0 = SUPPRESS LEADING ZEROES ; MJ020 ; 0 <> ALLOW LEADING ZEROES ; MJ020 ; ; MJ020 ; OUTPUT: ; MJ020 ; R0 - UPDATED ; MJ020 ; R1 - UNCHANGED ; MJ020 ; R2 - UNCHANGED ; MJ020 ; R3 - USED ; MJ020 ;- ; MJ020 .MCALL SAVNR,RETURN ; MJ020 .ENABL LSB ; MJ020 .C22TO:: SAVNR ; SAVE R4 AND R5 ; MJ020 MOV (R1),R4 ; GET LOW PART ; MJ020 MOV 2(R1),R5 ; GET HIGH PART ; MJ020 BIC #177700,R5 ; CLEAR BITS NOT IN A 22-BIT ADDRESS ; MJ020 MOV #11.,-(SP) ; SET COUNT OF SHIFTS TO SET UP ; MJ020 CLR R3 ; ZERO DIGIT ; MJ020 SEC ; SET FLAG TO INDICATE END OF DATA ; MJ020 5$: ROL R4 ; SHIFT IN END MARK ; MJ020 ROL R5 ; SHIFT IN LOW BIT ; MJ020 ROL R3 ; SHIFT IN DIGIT ; MJ020 DEC (SP) ; DONE? ; MJ020 BNE 5$ ; NO, LOOP ; MJ020 TST (SP)+ ; YES, CLEAN STACK ; MJ020 BR CBTO ; ; MJ020 ; MJ020 .C2BTO:: SAVNR ; SAVE R4 AND R5 ; MJ020 MOV (R1),R5 ; GET LOW PART ; MJ020 MOV 2(R1),R3 ; GET HIGH PART ; MJ020 BIC #177774,R3 ; CLEAR BITS NOT IN AN 18-BIT ADDRESS ; MJ020 BR 10$ ; ; MJ020 ; MJ020 .CBTO:: SAVNR ; SAVE R4 AND R5 ; MJ020 MOV (R1),R5 ; GET LOW PART ; MJ020 CLR R3 ; ZERO DIGIT ; MJ020 10$: CLR R4 ; ZERO LOWEST PART ; MJ020 SEC ; SET END FLAG ; MJ020 ROL R5 ; SHIFT IN END MARKER ; MJ020 ROL R3 ; SHIFT UP BIT INTO DIGIT ; MJ020 ; MJ020 CBTO: CLR -(SP) ; SET COUNT OF NON-ZERO DIGITS SEEN ; MJ020 25$: TST R3 ; ZERO DIGIT? ; MJ020 BNE 30$ ; CONVERT IF NOT ; MJ020 TST (SP) ; YES, ANY NON-ZERO DIGIT SEEN YET ; MJ020 BNE 30$ ; YES ; MJ020 TST R2 ; NO, SUPPRESS LEADING ZERO? ; MJ020 BEQ 40$ ; YES ; MJ020 30$: ADD #'0,R3 ; NO, CONVERT TO OCTAL DIGIT ; MJ020 MOVB R3,(R0)+ ; AND PUT IT IN BUFFER ; MJ020 INC (SP) ; INCREMENT NUMBER OF DIGITS CONVERTED ; MJ020 40$: MOV #3,-(SP) ; SET SHIFT COUNT ; MJ020 CLR R3 ; ZERO DIGIT ; MJ020 50$: ROL R4 ; SHIFT LOW TO HIGH ; MJ020 ROL R5 ; SHIFT HIGH TO CARRY ; MJ020 ROL R3 ; SHIFT CARRY INTO DIGIT ; MJ020 DEC (SP) ; DONE? ; MJ020 BNE 50$ ; NO, LOOP ; MJ020 TST (SP)+ ; CLEAR COUNT ; MJ020 TST R5 ; DONE? ; MJ020 BNE 25$ ; NO, LOOP ; MJ020 TST R4 ; MAYBE ; MJ020 BNE 25$ ; NO ; MJ020 TST (SP)+ ; YES, POP OFF ZERO COUNT ; MJ020 RETURN ; ; MJ020 .DSABL LSB ; MJ020 ; MJ020 .ENDC ; MJ018 ; MJ018 .ENDC ; MJ018 ; MJ018 ;+ ; MJ018 .IF DF R$$OPE ; MJ018 ; MJ018 ; *** - .COT2B - CONVERT OCTAL NUMBER TO TWO BINARY WORDS ; THIS SUBROUTINE CONVERTS AN ASCII OCTAL ; NUMBER TO BINARY. IT ACCEPTS ONLY ; OCTAL DIGITS. ; ; INPUT: ; R0 - ADDRESS OF NEXT DIGIT IN BUFFER FOR NUMBER ; R1 - ADDRESS OF TWO WORD FIELD TO PUT CONVERTED NUMBER IN ; WORD 1 - LOW 16 BITS ; WORD 2 - HIGH 16 BITS ; ; OUTPUT: ; R0 - UPDATED BUFFER POINTER ; R1 - UNCHANGED ; R2 - TERMINATING CHARACTER ; ; CARRY BIT ; CLEAR - ONLY 16 BIT NUMBER ; SET - 32 BIT NUMBER ; ;- .COT2B::CLR (R1) ; ZERO OUT LOW 16 BITS CLR 2(R1) ; ZERO OUT HIGH 16 BITS 10$: MOVB (R0)+,R2 ; GET NEXT CHARACTER CMPB R2,#'0 ; IS IT <0 ? BLT 30$ ; YES CMPB R2,#'7 ; IS IT >7 ? BGT 30$ ; YES BIC #177770,R2 ; STRIP OF ASCII BITS MOV #3,-(SP) ; SET SHIFT ÆCOUNT 20$: CLC ; ZERO CARRY BIT ROL (R1) ; ROTATE BIT 15 ROL 2(R1) ; INTO BIT 16 DEC (SP) ; DONE ? BNE 20$ ; NO, LOOP FOR THREE BITS TST (SP)+ ; POP OFF COUNTER BIS R2,(R1) ; PUT IT IN BR 10$ ; GET NEXT DIGIT 30$: TST 2(R1) ; IS THERE MORE THAN 16 BITS ? BEQ 50$ ; NO SEC ; YES, SET 32 BIT FLAG 50$: RETURN ; RETURN TO CALLER .ENDC ;**-2 .END Æãf»kQ›c, .TITLE PRSBAS - PARSER FOR TASKNAME .IDENT "01" ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; ; VERSION 01 ; BY H. LEV ; DATE: 08/28/73 ; MODIFIED: 12/31/74 MODIFIED PR1OV FOR USE WITH BASIC MCR ; ; ; ; THIS IS THE PARSER FOR COMMANDS WHICH HAVE THE NAMES AS THEIR ONLY PARAMETER. ; .MCALL CALL,RETURN ; ; EQUATED SYMBOLS ; CR = 015 ; CARRIAGE RETURN SPA = 040 ; SPACE .SBTTL PARSER CODE ;+ ; *** - $PRSR - PARSER ENTRY POINT - GETS TASK NAME ; FOR COMMANDS: ; ABO[RT] TASKNAME ; CAN[CEL] TASKNAME ; REM[OVE] TASKNAME ; ; ; THIS ROUTINE OBTAINS THE TASK NAME FROM THE BUFFER AND ; CONVERTS IT TO RAD50. IT THEN SEARCHS FOR A VALID ; TERMINATOR WHICH IS ONLY 'CR'. IF IT FINDS IT, IT RETURNS TO ; THE COMMAND PROCESSOR . IF NOT FOUND, IT TRAPS ; THE ERROR PROCESSOR (SYNTAX ERROR). ; ; ; INPUT: ; R5 - POINTS TO NEXT CHARACTER IN COMMAND BUFFER ; $MBUF - CONTAINS ADDRESS OF BUFFER ; $MCMD - CONTAINS COMMAND PROCESSOR NAME AND ENTRY POINT ; ; ; OUTPUT: ; $MPARS, +2 CONTAINS RAD50 TASKNAME (2 WORDS) ; $MPARS+4 TCB ADDRESS ; ;- $PRSR:: CMPB (R0),#CR ; IS NEXT CHAR CARRIAGE RETURN? BEQ PRSRER ; YES, SYNTAX ERROR ; ; WE HAVE PASSED THE COMMAND VERB, NOW WE SHOULD BE AT ; THE START OF THE TASK NAME SO WE'LL TRY TO GET IT. ; 20$: MOV #$MPARS+2,R3 ; GET ADDRESS OF PARAMETER AREA CLR (R3) ; CLEAR IT CLR -(R3) ; OUT MOV PC,R1 ; SET FLAG TO ALLOW PERIODS CALL $CAT5 ; CONVERT TO RAD50 MOV R1,(R3)+ ; STORE THEM BEQ PRSRER ; ZERO MEANS NONE CONVERTED, SYNTAX ERROR BCS 40$ ; LESS THAN 3 CHARS CALL $CAT5 ; GET NEXT 3 MOV R1,(R3)+ ; STORE THEM BCS 40$ ; LESS THAN 3 CHARS MOVB (R0)+,R2 ; 3 GOT, GET NEXT CHARACTER ; ; TASKNAME IS STORED IN $MPARS AND $MPARS+2. 40$: MOV #$MPARS,R3 ; GET ADDRESS OF TASK NAME CLR $MPARS+4 ; SET TASK NOT IN SYSTEM CALL $SWSTK,45$ ; SWITCH TO SYSTEM STACK CALL $SRSTD ; SEARCH STD FOR TASK BCS 42$ ; ERROR NOT IN SYSTEM MOV R0,$MPARS+4 ; ÄSAVE TCB ADDRESS 42$: RETURN ; RETURN TO USER 45$: TST $MPARS+4 ; TASK FOUND? BEQ 50$ ; NO ERROR RETURN ; 50$: TRAP 11. ; TASK NOT IN SYSTEM PRSRER: TRAP 2. ; SYNTAX ERROR .END ÄLq»kQ›c, .TITLE REDBAS - MCR REDIRECT COMMAND PROCESSOR .IDENT "01" ; ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION: 01 ; BY: H. LEV ; DATE: 10/9/73 ; MODIFIED: 1/2/75 TO RUN WITH BASIC MCR ; ; ; ; THIS MODULE PROCESSES THE MCR REDIRECT COMMAND ; .MCALL CALL,RETURN ; ; EQUATED SYMBOLS ; SPA = 040 ; SPACE CR = 015 ; CARRIAGE RETURN ESC = 033 ; ESCAPE ;+ ; ***-$REDEP-REDIRECT MCR COMMAND PROCESSOR ; ; THIS ROUTINE PROCESSES THE MCR REDIRECT COMMNAND. ; IT CHANGES THE REDIRECT POINTER OF A UCB TO ; POINT TO ANOTHER UCB. ; ; FORMAT: ; RED[IRECT] NUD_OLD ; ; WHERE: ; [1RECT] IS OPTIONAL REST OF COMMAND NAME ; NUD IS DEVICE AND UNIT NAME TO WHICH OLD IS ; TO BE REDIRECTED ; _ IS THE REDIRECTION OPERATOR IT MAY BE ; EITHER "_" OR "=" ; OLD IS THE DEVICE AND UNIT NAME WHICH IS TO ; BE REDIRECTED TO NUD ; FORMAT OF NUD AND OLD: ; DDNN: ; WHERE ; DD - 2 MHAR DEVICE MNEMONIC ; NN - DEVICE UNIT NUMBER ; ; ;- $REDEP::MOVB (R0),R2 ; GET NEXT CHARACTER CMPB R2,#CR ; END OF LINE? BEQ REDER1 ; YES SYNTAX ERROR ; ; GET NEW AND OLD DEVICE UCB ADDRESSES ; MOV #$MPARS,R3 ; SET PARAMETER ADDRESS CALL $FDUCB ; GET UCB ADDRESS BCC 20$ ; SKIP IF FOUND NEW DEVICE UCB TST R3 ; SYNTAX ERROR? BEQ REDER1 ; YES TRAP 19. ; NEW DEVICE NOT IN SYSTEM 20$: MOV R1,(R3)+ ; SAVE NEW DEVICE UCB ADDRESS CALL $GNBLK ; GET NEXT NON-BLANK 25$: CMPB R2,#'= ; IS IT EQUALS SIGN? BNE REDER1 ; NO, SYNTAX ERROR CALL $FDUCB ; GET OLD DEVICE UCB ADDRESS BCC 30$ ; SKIP IF FOUND IT TST R3 ; SYNTAX ERROR? BEQ REDER1 ; YES TRAP 18. ; OLD DEVICE NOT IN SYSTEM 30$: MOV R1,(R3) ; SAVE OLD DEVICE UCB ADDRESS BITB #US.RED,U.ST2(R1) ; IS IT REDIRECTABLE? BEQ 70$ ; YES TRAP 27. ; NO, DEVICE NOT REDIRECTABLE ; ; NOW GET VALID TERMINATOR ; 70$: CALL $GNBLK ; GET NEXT NON-BLANK BCC REDER1 ; ANYTHING BUT EOL IS ERROR ; ; TEST DEVICE TYPES ; 80$: MOV $MPARS,R5 ; SET NEW DEVICE UCB ADDRESS MOV $MPARS+2,R4 ; GET UCB ADDRESS OF OLD DEVICE MOV U.DCB(R4),R0 ; GET DCB ADDRESS OF OLD DEVICE CMP #"TI,D.NAM(R0) ; IS IT "TI" ? BEQ REDER7 ; YES, CAN'T REDIRECT IT. MOV U.DCB(R5),R0 ; GET DCB ADDRESS OF NEW DEVICE CMP #"TI,D.NAM(R0) ; IS NEW DEVICE TI? BEQ REDER7 ; YES, CAN'T REDIRECT TO IT EITHER MOV R4,R0 ; COPY UCB ADDRESS 83$: MOV U.RED(R0),R0 ; FOLLOW REDIRECT POINTER CMP R0,U.RED(R0) ; IS THIS THE END? BNE 83$ ; NO, CONTINUE DOWN LIST BIT #DV.MNT,U.CW1(R0) ; IS DEVICE MOUNTABLE? BEQ 85$ ; NO BITB #US.MNT,U.STS(R0) ; YES, IS VOLUME MOUNTED? BEQ REDER8 ; YES, CAN'T REDIRECT IT THEN! 85$: TST U.ATT(R0) ; IS DEVICE ATTACHED? BNE REDER6 ; YES, CAN'T REDIRECT IT 87$: CMP R4,R5 ; REDIRECTING TO SELF ? BNE 90$ ; NO BIT #DV.PSE,U.CW1(R4) ; YES, IS IT A PSUEDO DEVICE ? BNE REDER5 ; YES, CAN'T REDIRECT PSUEDO DEVICE TO SELF BEQ 110$ ; NO, THEN DO IT ; ; AT THIS POINT R4 HAS ADDRESS OF UCB TO BE REDIRECTED ; AND R5 HAS ADDRESS OF UCB TO BE REDIRECTED TO. ; ; CHECK THAT NEW DEVICE IS NOT REDIRECTED TO OLD DEVICE ; TO PREVENT ENDLESS LOOP OF REDIRECTION ; 90$: MOV R5,R1 ; GET UCB ADDRESS 100$: MOV U.RED(R1),R0 ; GET REDIRECT POINTER CMP R0,R1 ; POINTING TO ITSELF? BEQ 110$ ; YES, END OF REDIRECT LIST CMP R0,R4 ; IS THE CURRENT UCB THE ONE TO BE REDIRECTED ? BEQ REDER4 ; YES, THIS IS AN ERROR. IF WE DO THE REDIRECT ; WE WILL HAVE A REDIRECTION LOOP MOV R0,R1 ; NO, COPY UCB ADDRESS BR 100$ ; LOOP ; ; EVERYTHING IS OKAY, ”REDIRECT OLD TO NEW ; 110$: MOV R5,U.RED(R4) ; REDIRECT, STORE NEW UCB ADDRESS IN OLD. RETURN ; RETURN TO DISPATCHER ; ; ERRORS ; REDER8: TRAP 25. ; 8 OLD DEVICE MOUNTED REDER7: TRAP 22. ; 7 TI REDIRECT ERR REDER6: TRAP 21. ; 6 OLD DEVICE ATTACHED REDER5: TRAP 20. ; 5 PSUEDO DEVICE REDIRECT ERR. REDER4: TRAP 17. ; 4 CIRCULAR REDIRECT ERR REDER1: TRAP 2. ; 1 SYNTAX ERROR .END ”Uq»kQ›c, .TITLE REMBAS REMOVE MCR COMMAND .IDENT /02.01/ ; ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD MASS. ; ; COPYRIGHT (C) 1976,1980 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION: 02 ; VERSION: 02.01 ; DATE: 08/29/73 ; MODIFIED: 12/30/74 ALTERED FIXOV TO GET REMOVE CODE FOR BASIC MCR ; ; ; HJL025 4/7/76 CHANGE PCB, TCB AND TASK HEADER FORMAT ; JAK028 8/12/76 CHANGE TCB FORMAT ; JAK029 12/14/76 DEALLOCATE INTERNAL TASK HEADER ; ; ; ; E. A. FLOYD 27-MAY-80 ; EF007 -- ADD V3.0 CHANGE FOR SYSTEM ; CONTROLLED PARTITION SUPPORT ; ; E. A. FLOYD 24-MAR-81 ; EF053 -- DEALLOCATE ATTACHMENT DESCRIPTORS ; ; ; THIS MODULE PROCESSES THE MCR REMOVE COMMAND ; .MCALL PCBDF$ PCBDF$ ; DEFINE PCB OFFSETS ;+ ; *** - $REMEP REMOVE MCR COMMAND ENTRY POINT ; ; THIS MODULE PROCESSES THE REMOVE MCR COMMAND ; ;- $REMEP::CALL $PRSR ; PARSE TASK NAME CALL $NNBLK ; GET NEXT NON-BLANK BCS 5$ ; GOOD, EOL TRAP 2. ; SYNTAX ERROR 5$: MOV $MPARS+4,R0 ; GET TCB ADDRESS TST T.STAT(R0) ; TASK ACTIVE? BMI 10$ ; NO TRAP 16. ; YES, ERROR 10$: CALL $SWSTK,$MCR ; SWITCH TO SYSTEM STATE MOV #$TSKHD-T.TCBL,R2 ; GET ADDRESS OF TASK LIST 15$: CMP T.TCBL(R2),R0 ; IS THIS THE POINTER TO OUR TASK BEQ 20$ ; YES MOV T.TCBL(R2),R2 ; NO, GET NEXT TCB BR 15$ ; TRY AGAIN 20$: MOV T.TCBL(R0),T.TCBL(R2) ; YES, REMOVE TCB AND RELINK LIST MOV T.PCB(R0),R5 ; GET PCB ADDRESS MOV P.MAIN(R5),R4 ; GET MAIN PCB ADDRESS ;EF007 BIT #PS.SYS,P.STAT(R4) ;IS PARTITION SYSTEM CONTROLLED? ;EF007 BEQ 27$ ;EQ => NO ;EF007 ;EF007 .IF DF M$$MGE&D$$YNM ;EF007 ;EF007 MOV R0,-(SP) ; ;EF007 MOV R1,-(SP) ;SAVE R0,R1,R2 ;EF007 MOV R2,-(SP) ; ;EF007 MOV T.PCB(R0),R1 ;GET ADDRESS OF PARTITION PCB ;EF007 MOV P.MAIN(R1),R0 ;GET MAIN PCB ADDRESS ;EF007 ;EF007 25$: MOV R0,R2 ;SAVE ADDRESS OF PREVIOUS PCB ;EF007 MOV P.SUB(R2),R0 ;GET ADDRESS OF NEXT PCB ;EF007 CMP R0,R1 ;TASK PCB? ;EF007 BNE 25$ ;NE =>NO ;EF007 MOV P.SUB(R0),P.SUB(R2) ;REMOVE PCB FROM LIST ;EF007 MOV (SP)+,R2 ; ;EF007 MOV (SP)+,R1 ;RESTORE R0,R1,R2 ;EF007 MOV (SP)+,R0 ; ;EF007 ;EF007 .IFTF ;EF007 ;EF007 27$: ADD #P.BUSY,R5 ;GET BUSY BIT ADDRESS ;EF007 BICB (R5)+,(R5) ; CLEAR IT ;**-1 BICB -(R5),P.BUSY+1(R4) ; AND MAIN BIT TOO ;EF007 .ENDC ;EF007 ;EF007 ; ; CANCEL SCHEDULED REQUESTS ; MOV R0,R5 ; SAVE TCB ADDRESS MOV #C.SCHD,R4 ; REMOVE PERIODIC REQUESTS CALL $CLRMV ; TST (R4)+ ; REMOVE CALL $CLRMV ; SINGLE SHOT REQUESTS CMP (R4)+,(R4)+ ; SET TO REMOVE TYPE 8 REQUESTS CALL $CLRMV ; REMOVE THESE REQUESTS ; ; REMOVE RECIEVE LIST ENTRIES AND FREE THEM UP ; MOV R5,R4 ; GET TCB ADDRESS ADD #T.RCVL,R4 ; POINT TO RECIEVE LIST HEAD 30$: MOV R4,R0 ; COPY RECIEVE LIST HEAD CALL $QRMVF ; GET A RECIEVE PACKET BCS 31$ ;SKIP IF NO MORE MOV R1,R0 ;COPY PACKET ADDRESS CALL $DEPKT ;REALEASE PACKET SPACE BR 30$ ;LOOP UNTILL DONE 31$: .IF DF P$$LAS MOV R5,R4 ;GET TCB ADDRESS ADD #T.RRFL,R4 ;POINT TO RECIEVE BY REFERENCE LISTHEAD 32$: MOV R4,R0 ;COPY LISTHEAD CALL $QRMVF ;GET RECIEVE PACKET BCS 40$ ;SKIP IF DONE MOV R1,-(SP) ; SAVE PACKET ADDRESS MOV R5,-(SP) ; SAVE TCB ADDRESS MOV 10(R1),R5 ; GET ATTACHMENT DESCRIPTOR ADDRESS CALL $DETRG ; DETTACH REGION FROM TASK MOV (SP)+,R5 ; RESTORE TCB ADDRESS MOV (SP)+,R1 ; RESTORE PACKET ADDRESS MOV R1,R0 ; COPY ADDRESS OF PACKET CALL $DEPKT ; RELEASE PACKET SPACE BR 32$ ;LOOP UNTILL DONE .ENDC 40$: .IF DF M$$MGE MOV T.PCB(R5),R1 ; GET PCB ADDRESS MOV P.HDR(R1),R0 ; GET HEADER ADDRESS MOV H.HDLN(R0),R1 ; GET HEADER LENGTH CALL $DEACB ; DEALLOCATE INTERNAL TASK HEADER ;EF007 .IF DF D$$YNM ;EF007 ;EF007 MOV T.PCB(R5),R0 ;GET PCB ADDRESS ;EF007 MOV #P.LGTH,R1 ;GET LENGTH OF PCB ;EF007 CALL $DEACB ;DEALLOCATE PCB ;EF007 ;EF007 .ENDC ;EF007 ;EF007 .ENDC MOV R5,-(SP) ;COPY TCB ADDRESS ;EF053 BIT #FE.PLA,$FMASK ;PLAS SUPPORTED? ;EF053 BEQ 100$ ;EQ=>NO, CONT ;EF053 MOV R5,R4 ;COPY TCB ;EF053 50$: MOV R4,R0 ;RESTORE R0 ;EF053 MOV T.ATT(R4),R5 N ;GET ATT. LISTHEAD ;EF053 BEQ 100$ ;END OF LIST ;EF053 SUB #A.TCBL,R5 ;FAKE OUT LIST LINK ;EF053 CALL $DETRG ;DETACH REGION ;EF053 BR 50$ ;LOOP ;EF053 100$: MOV (SP)+,R5 ;RESTORE R5 ;EF053 MOV R5,R0 ;ADDRESS OF TCB MOV #T.LGTH,R1 ; SET TCB LENGTH CALLR $DEACB ; RELEASE SPACE OF TCB .END Ns»kQ›c, .TITLE RPSBAS - RUN COMMAND PARSER .IDENT "02" ; ; ; ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; COPYRIGHT (C) 1981 ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION: 02 ; BY: H. LEV ; DATE: 08/24/73 ; MODIFIED: 12/31/74 CHANGED TO RUN WITH BASIC MCR ; ; E. A. FLOYD 11-MAR-81 ; EF052 -- FIX PARSING OF TIME AND UNITS ; ; ; THIS IS THE PARSER FOR THE MCR RUN COMMAND ; .MCALL CALL,CLKDF$,DEVDF$,DIR$,RETURN ; ; EQUATED SYMBOLS ; CR = 015 ; CARRIAGE RETURN SPA = 040 ; SPACE ESC = 33 ; ESCAPE ; ; LOCAL OFFSETS INTO $MPARS ; TASK = 0 ; TASK NAME IN RAD50 TCB = 4 ; TCB ADDRESS CLKQ = 6 ; CLOCK QUE ELEMENT ADDRESS RUNTYP = 10 ; RUN TYPE; 0-RUN, 1-SYNC, 2-SCHEDULE CLKDF$ ; DEFINE CLOCK QUE OFFSETS DEVDF$ ; DEFINE DCB, UCB, AND SCB OFFSETS .SBTTL LOCAL DATA TIM: .ASCIZ /TSMH/ ; VALID TIME INTERVALS TIMCD: .BYTE 1,2,3,4 ; TIME CODES RSI: .ASCIZ /RSI/ ; RESCHEDULE INTERVAL UIC: .ASCIZ /UIC/ ; USER ID CODE .EVEN ; ; ERROR WORDS ; ERROR: TRAP 2. ; SYNTAX ERROR TRAP 10. ; INVALID TIME PARAMETER TRAP 4. ; INVALID KEYWORD TRAP 23. ; INVALID UIC .SBTTL GET TASK NAME IF ANY ;+ ; *** - $RPSEP-MCR RUN COMMAND PARSER ; THIS OVERLAY PARSES THE RUN COMMAND. ; IT ALLOCATES SPACE FOR A CLOCK QUE ELEMENT AND SETS ; UP THE TIME AND RESCHEDULE INTERVAL, IF ANY, THERE. ; IT STORES THE TASK NAME IN $MPARS AND ALSO THE ADDRESS ; OF THE CLOCK QUE ELEMENT. ; ; FORMAT: ; ; RUN TASKNAME [[DTIME]![ATIME]![SYNC [DTIME]][/SW=VALUE] ; ; WHERE: ; TASKNAME IS 1-6 CHARACTER TASK NAME ; DTIME IS START TIME IN DELTA UNITS OF THE FORM: ; NNNNNU ; WHERE: ; NNNNN IS A NUMBER ; U = T-TICKS ; S-SECONDS ; M-MINUTES ; H-HOURS ; ATIME IS START TIME IN ABSOLUTE TIME FORM ; HH:MM:SS ; WHERE: HH - IS HOURS 0<=HH<24 ; MM - IS MINUTES 0<=MM<60 ; SS - IS SECONDS 0<=SS<60 ; SYNC IS SYNCHRONIZATION UNIT ; WHICH MAY BE ; H - ON THE NEXT HOUR ; M - ON THE NEXT MINUTE ; S - ON THE NEXT SECOND ; T - ON THE NEXT TICK ; ; [/SW=VALUE] OPTIONAL KEYWORDS ; /RSI=RTIME IS OPTIONAL RESCHEDULE INTERVAL ; FORMAT FOR RTIME: IS SAME AS FOR DTIME ; /UIC=[GRP,PRG] - GROUP AND PROGRAMMER CODES ; GRP - IS GROUP CODE ; PRG - IS PROGRAMMER CODE ; ;- $RPSEP::CALL $PRSR ; PARSE OUT TASK NAME DEC R0 ; BACKUP BUFFER POINTER MOV #$MPARS,R5 ; GET PARAMETER AREA ADDRESS CLR RUNTYP(R5) ; ZERO RUN TYPE ; ; ALLOCATE CLOCK QUE ELEMENT ; 50$: CLR CLKQ(R5) ; SET NO CLOCK QUE ENTRY CALL $SWSTK,52$ ; SWITCH TO SYSTEM STACK MOV #C.LGTH,R1 ; SET LENGTH OF CLOCK QUE ELEMENT CALL $ALOCB ; ALLOCATE IT BCS 5$ ; COULDN'T GET ONE MOV R0,CLKQ(R5) ; SAVE ADDRESS 5$: RETURN ; RETURN TO USER STACK 52$: MOV CLKQ(R5),R4 ; GET CLOCK QUE ENTRY ADDRESS BNE 56$ ; GOOD, GOT A CLOCK QUE ELEMENT 54$: TRAP 3. ; NO POOL SPACE 56$: MOV #C.LGTH/2,R3 ; GET SIZE MOV R4,R1 ; COPY CLOCK QUE ADDRESS 57$: CLR (R4)+ ; ZERO WORD DEC R3 ; DONE ? BGT 57$ ; NO, LOOP MOV $MUCB,R4 ; GET UCB ADDRESS OF TERMINAL MOV U.UIC(R4),C.UIC(R1) ; STORE DEFAULT UIC CLR R4 ; CLEAR ERROR INDEX ; ; GET COMMAND PARAMETERS ; 60$: CALL $GNBLK ; GET NEXT NON-BLANK MOV $MPARS+CLKQ,R5 ; GET ADDRESS OF CLOCK QUEUE ENTRY BCS RUNIT ; EOL CMPB R2,#'/ ; KEYWORD? BEQ 100$ ; YES ; ; TEST FOR TYPE OF TIME FIELD ; 80$: INC $MPARS+RUNTYP ;SET UP ERROR FLAG ;EF052 CMPB R2,#'0 ; IS NEXT CHAR A VALID DIGIT ;EF052 BLO 95$ ; NO ;**-1 CMPB R2,#'9 ; MAYBE BHI 95$ ; DEFINTIM ; GET TIME FIELD CLR R4 ; ZERO ERROR CODE BCS RUNER2 ; SYNTAX ERROR DEC R0 ; BACK UP TO TERMINATOR MOV #2,$MPARS+RUNTYP ; SET SCHEDULE MODE BR 60$ ; ; ; SYNCHRONIZATION UNIT ; 95$: TST $MPARS+RUNTYP ; VALID FOR SYNC? BNE RUNER1 ; NO, SYNTAX ERROR TST R1 ; ANY BALNKS SEEN BEQ RUNER1 ; NO, SYNTAX ERROR INC $MPARS+RUNTYP ; SET SYCHRONIZATION RUN TYPE CALL TIMCOD ; GET TIME CODE BCS RUNER1 ; ERROR MOV R1,4(R5) ; STORE IT BR 60$ ; ; GET KEYWORD PARAMETERS ; 100$: MOV #UIC,R1 ; IS KEYWORD CALL .KEYWD ; "UIC" ? BCC 110$ ; YES MOV #RSI,R1 ; IS KEYWORD CALL .KEYWD ; "RSI" BCS RUNER3 ; NO, ERROR BVS RUNER3 ; ERROR ; ; RESCHEDULE INTERVAL (RSI) ; ADD #C.RSI,R5 ; POINT TO RSI PARAMETER FIELD CALL GETIME ; GET TIME BCS RUNER2 ; ERROR, INVALID TIME TST -(R5) ; IS COUNT ZERO ? BNE 86$ ; NO INC (R5) ; YES, SO SET IT TO ONE! BR 60$ ; TRY FOR ANOTHER KEYWORD ; ; USER ID CODE (UIC) ; 110$: BVS RUNER3 ; NO EQUALS, KEYWORD ERROR CMPB (R0)+,#'[ ; BRACKET NEXT ? BNE RUNER1 ; NO, SYNTAX ERROR CALL $GTNUM ; CONVERT GROUP CODE MOVB R1,C.UIC+1(R5) ; TO BINARY AND STORE BEQ RUNER4 ; ZERO IS ERROR CMPB #',,R2 ; COMMA NEXT ? BNE RUNER1 ; NO, SYNTAX ERROR CALL $GTNUM ; CONVERT PROGRAMMER CODE MOVB R1,C.UIC(R5) ; TO BINARY AND STORE BEQ RUNER4 ; ZERO IS ERROR CMPB #'],R2 ; TERIMNATOR ? BEQ 60$ ; YES BR RUNER1 ; NO, SYNTAX ERROR RUNIT: JMP $RUNEP ; EXECUTE RUN COMMAND .SBTTL ERROR PROCESSING RUNER4: INC R4 ; INVALID UIC RUNER3: INC R4 ; INVALID KEY WORD RUNER2: INC R4 ; INVALID TIME PARAMETER RUNER1: ; SYNTAX ERROR CALL $RLCLK ; RELEASE CLOCK QUE ENTRY ASL R4 ; DOUBLE INDEX JMP ERROR(R4) ; ISSUE ERROR .SBTTL SUBROUTINES ;+ ; *** - GETIME GET A TIME FIELD ; ; INPUTS: ; R0 - POINTS TO NEXT CHAR OF TIME FIELD ; R5 - POINTS TO TWO WORD FIELD; WORD1-TIME MAGNITUDE, WORD2-TIME INTERVAL ; OUTPUTS: ; R0 - POINTS TO NEXT CHARACTER IN BUFFER ; R1 - TIME IN MAGNITUDE ; R2 - TIME INTERVAL CHARACTER ; R5 - POINTS TO WORD AFTER TWO WORD BLOCK ; ; CARRY BIT ; CLEAR-NO ERRORS ; SET - BAD TIME FIELD ; ;- GETIME: CALL $CDTB ; CONVERT TO BINARY MOV R1,(R5)+ ; STORE DELTA TIME CALL TIMCOD ; GET TIME CODE BCS 30$ ; ERROR MOV R1,(R5) ; STORE IT 30$: RETURN ; ;+ ; *** - TIMCOD - CONVERT TIME CODE ; ; INPUT: ; R2 - CODE CHARACTER ; ; OUTPUT: ; R1 - TIME CODE NUMERIC ; ; USED: ; R1 ; ;- TIMCOD: CLR R1 ; ZERO INDEX INTO TABLE 10$: CMPB R2,TIM(R1) ; IS THISÐ THE CODE? BEQ 20$ ; YES INC R1 ; NO, INDEX TO NEXT CODE TSTB TIM(R1) ; END OF TABLE? BNE 10$ ; NO SEC ; YES, ERROR BR 30$ ; 20$: MOVB TIMCD(R1),R1 ; GET NUMERIC 30$: RETURN ; .END ÐÖs»kQ›c, .TITLE RUNBAS - RUN COMMAND .IDENT "02" ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD MASS. ; ; COPYRIGHT (C) 1976 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; VERSION: 02 ; BY: H. LEV ; DATE: 08/24/73 ; MODIFIED: 12/31/74 CHANGED RUNOV TO RUN WITH BASIC MCR ; ; ; HJL025 4/7/76 CHANGE PCB, TCB, AND HEADER FORMAT ; ; ; THIS MODULE PROCESSES THE PARSED MCR RUN COMMAND ; .MCALL CALL,CLKDF$,RETURN,TCBDF$ ; ;EQUATED SYMBOLS ; TASK = 0 ; TASK NAME OFFSET INTO $MPARS TCB = 4 ; TCB ADDRESS CLKQ = 6 ; CLOCK QUE ELEMENT ADDRESS RUNTYP = 10 ; RUN TYPE, 0-RUN, 1-SYNC, 2-SCHEDULE CLKDF$ ; DEFINE CLOCK QUE OFFSETS TCBDF$ ; DEFINE TCB OFFSETS ; ; LOCAL DATA ; ERRCOD: .WORD 0 ; ERROR CODE INDEX ; ; ERROR TRAP CODES ; RERTAB: TRAP 2. ; SYNTAX ERROR TRAP 11. ; TASK NOT IN SYSTEM TRAP 16. ; TASK ACTIVE TRAP 14. ; TASK BEING ABORTED ;+ ; *** - $RUNEP - MCR RUN COMMAND EXECUTOR ; THIS OVERLAY RECEIVES CONTROL FROM THE RUN COMMAND PARSER ; WHICH SETS UP THE FOLLOWING AREAS FOR RUNEP: ; $MPARS, +2 TASK NAME IN RAD50 ; $MPARS+4 ADDRESS OF TCB ; $MPARS+6 ADDRESS OF CLOCK QUE ELEMENT ; $MPARS+10 RUN TYPE; 0-RUN, 1-SYNC, 2-SCHEDULE ; CLOCK QUE ELEMENT ; RUN AND SYNC ; +0 - DELTA TIME COUNT ; +2 - DELTA TIME UNITS ; SYNC ; +4 - SYNCHRONIZATION UNIT ; SCHEDULE ; +0 - HOURS ; +2 - MINUTES ; +4 - SECONDS ; C.RSI,+2 RESCHEDULE INTERVAL UNITS AND CODE ; C.UIC UIC SPECIFIED ON COMMAND ; ; THIS OVERLAY USES THIS INFORMATION TO START UP A TASK. ; IF THE START TIME AND RESCHEDULE TIMES ARE ZERO, THE TASK ; IS STARTED BY A CALL TO THE EXECUTIVE SUBROUTINE $TSKRQ ; AND THE UCB ADDRESS OF THE REQUESTING TERMINAL IS PUT INTO ; THE TASKS TCB. IF ANY OF THESE TIMES ARE NONE ZERO, ; THE TASK IS REQUESTED BY MAKING AN ENTRY IN THE CORRECT ; CLOCK QUE. ;- $RUNEP:: CLR R4 ; ZERO ERROR INDICATOR CLR ERRCOD ; MOV #$MPARS,R5 ; GET ADDRESS OF PARAMETER AREA MOV RUNTYP(R5),R0 ; GET RUN TYPE CODE MOV CLKQ(R5),R5 ; GET ADDRESS OF CLOCK QUE ELEMENT TST R0 ; IS IT RUN REQUEST ? BEQ RUN ; YES DEC R0 ; NO, IS IT SYNC BEQ SYNC ; YES BR SCHED ; NO, MUST BE SCHEDULE THEN ; ; RUN ; .ENABL LSB RUN: MOV (R5),R0 ; GET DELTA TIME BIS C.RSI(R5),R0 ; ADD RSI BEQ 10$ ; IF ITS ZERO, THIS IS RUN NOW CALL DTIME ; CONVERT DELTA TIME TO TICKS CALL SETRSI ; SET RESCHEDULE TIME MOV $MPARS+TCB,C.TCB(R5) ; GET TCB ADDRESS CALL $SWSTK,RUNXT ; SWITCH TO SYSTEM STACK RUNINS: MOV R5,R0 ; GET QUEUE ELEMENT ADDRESS MOV C.TCB(R0),R5 ; GET TCB ADDRESS MOVB C.RQT(R0),R4 ; GET REQUEST TYPE MOV C.TIM(R0),R2 ; GET LOW PART MOV C.TIM+2(R0),R1 ; GET HIGH PART CALLR $CLINS ; INSERT IN CLOCK QUE 10$: BR RUNIMD ; RUN NOW .DSABL LSB .SBTTL SYNCHRONIZE TASK SYNC: MOV 2(R5),$MPARS+10 ; SAVE DTIME UNIT CALL SETRSI ; SET RESCHEDULE INTERVAL MOV 4(R5),$MPARS+6 ; SAVE SYNC UNITS MOV $MPARS+10,R1 ; GET DTIME UNIT MOV 2(R5),$MPARS+10 ; GET CLOCK REQUEST TYPE MOV R1,2(R5) ; SET DTIME UNITS CALL DTIME ; CONVERT DELTA TIME TO TICKS MOV $MPARS+10,2(R5) ;RESTORE CLOCK REQUEST TYPE MOV $MPARS+TCB,C.TCB(R5) ; GET TCB ADDRESS MOV $MPARS+6,R3 ; GET SYNC UNITS CALL $SWSTK,RUNXT ; SWITCH TO SYSTEM STACK 10$: DEC R3 ; TICKS ? BEQ RUNINS ; YES MOV R3,R2 ; GET UNITS TYPE ASL R2 ; MAKE IT INTO WORD INDEX NEG R2 ; CONVERT TO NEGATIVE OFFSET MOV $TKPS+2(R2),R1 ; GET MAX NUMBER OF UNITS DEC R1 ; SUBTRACT ONE FOR CARRIES OUT OF NEXT HIGHER UNIT SUB $TTNS+2(R2),R1 ; COMPUTE UNITS LEFT TILL SYNC TIME MOV R3,R2 ; GET UNITS CODE CALL TICKS ; CONVERT TO TICKS ADD R1,C.TIM(R5) ; ADD TO OTHER UNITS ADC C.TIM+2(R5) ; ADD R0,C.TIM+2(R5) ; BR 10$ ; LOOP UNTIL SYNC TIME IS CONVERTED TO TICKS .SBTTL SCHEDULE TASK SCHED: CALL $SWSTK,RUNXT ; SWITCH TO SYSTEM STACK MOV #2,-(SP) ; SET UNITS CODE TO SECONDS MOV R5,R3 ; COPY CLOCK QUE ELEMENT ADDRESS ADD #6,R3 ; POINT TO SECONDS TST $TTNS ; ANY TICKS CLOCKED ? BEQ 10$ ; NO, THAN NO CARRY OUT OF SECONDS DEC -2(R3) ; SUBTRACT ONE FOR CARRIES OUT OF SECONDS 10$: MOV (SP),R2 ; GET COUNT ASL R2 ; MAKE IT A WORD INDEX NEG R2 ; CONVERT TO NEGATIVE OFFSET MOV -(R3),R1 ; GET TIME SUB $TTNS+2(R2),R1 ; CONVERT TO RELATIVE TIME BGE 12$ ; IF POSITIVE OKAY ADD $TKPS+2(R2),R1 ; NEGATIVE MEANS CARRY OUT OF NEXT HIGHER UNIT CMP #4,(SP) ; IS UNIT HOURS ? BEQ 12$ ; YES DEC -2(R3) ; NO, SO SUBTRACT FROM HIGHER UNIT 12$: MOV (SP),R2 ; GET UNITS CODE CALL TICKS ; CONVERT TO TICKS 15$: ADD R1,C.TIM(R5) ; ADD UP TICKS, LOW PART ADC C.TIM+2(R5) ; CARRY BIT ADD R0,C.TIM+2(R5) ; AND HIGH PART INC (SP) ; INCREMENT TO NEXT UNIT CMP (SP),#5 ; DONE ? BGT 17$ ; YES BLT 10$ ; NO, LOOP MOV $TKPS,R1 ; GET MAX TICKS SUB $TTNS,R1 ; COMPUTE TICKS LEFT THIS SECOND CLR R0 ; ZERO HIGH PART BR 15$ ; PROCESS TICKS 17$: TST (SP)+ ; CLEAR STACK MOV $MPARS+TCB,C.TCB(R5) ; GET TCB ADDRESS CALL SETRSI ; SET RESCHEDULE INTERVAL IF ANY BR RUNINS ; START UP TASK .SBTTL RUN IMMEDIATE RUNIMD: MOV $MPARS+TCB,R0 ; GET TCB ADDRESS BIT #T2.HLT,T.ST2(R0) ; IS TASK BEING ABORTED? BNE RUNER4 ; YES CALL $SWSTK,RUNXT ; SWITCH TO SYSTEM STACK MOV C.UIC(R5),R1 ; GET UIC MOV $MUCB,R2 ; GET UCB ADDRESS OF STARTING TERMINAL CMPB #33,$MTERM ; WAS TERMINATOR AN ESCAPE(ALTMODE) BNE 10$ ; NO BIS #T3.MCR,T.ST3(R0) ; YES, SET TO PROMPT ON EXIT 10$: CALL $TSKRQ ; REQUEST TASK BCS RUNER3 ; ERROR, TASK ALREADY ACTIVE CALL RLCLK ; RELEASE CLOCK QUEUE ENTRY RUNIM1: RETURN ; SWITCH BACK TO USER STACK RUNXT: TST ERRCOD ; ANY ERRORS BNE RUNERR ; YES, GO PROCESS THEM RUNEX: RETURN ; RETURN TO DISPATCHER .SBTTL ERROR PROCESSING RUNER4: INC R4 ; 4 TASK BEING ABORTED RUNER3: INC R4 ; 3 TASK ACTIVE RUNER2: INC R4 ; 2 TASK NOT IN SYSTEM RUNER1: MOV R4,ERRCOD ; SET ERROR CODE RUNERR: TST $STKDP ; ON SYSTEM STACK ? BEQ RUNIM1 ; YES, THEN GET OFF IT. CALL $RLCLK ; RELEASE CLOCK QUE ELEMENT MOV ERRCOD,R4 ; GET ERROR CODE ASL R4 ; DOUBLE IT JMP RERTAB(R4) ; ISSUE ERROR MESSAGE .SBTTL SUBROUTINES ;+ ; *** - TICKS - CONVERT TIME TO TICKS ; ; INPUT: ; R1 - NUMBER OF UNITS ; R2 - UNITS CODE 1-TICKS, 2-SECONDS, 3-MINUTES, 4-HOURS ; ; OUTPUT: ; R0 - HIGH PART OF TIME IN TICKS ; R1 - LOW PART OF TIME IN TICKS ; R2 - ZERO ; ;- TICKS: CLR -(SP) ; PUSH HIGH PART OF ANSWER MOV R1,-(SP) ; PUSH LOW PART OF ANSWER 10$: DEC R2 ; TICKS DON'T NEED TO BE CONVERTED BLE 30$ ; DONE MOV R2,R0 ; NOT DONE, SO GET TIME CODE ASL R0 ; MAKE IT A WORD INDEX NEG R0 ; CONVERT TO NEGATIVE INDEX MOV $TKPS+2(R0),R0 ; GET NUMBER OF LOWER UNITS PER THIS UNIT MOV 2(SP),R1 ; GET HIGH PART BEQ 20$ ; IF HIGH PART IS ZERO, SKIP MOV R0,-(SP) ; SAVE MULTIPLIER CALL $MUL ; MULTIPLY MOV (SP)+,R0 ; RESTORE MULTIPLIER MOV R1,2(SP) ; STORE HIGH PART 20$: MOV (SP),R1 ; GET LOW PART CALL $MUL ; MULTIPLY ADD R0,2(SP) ; ADD HIGH PARTS MOV R1,(SP) ; SET LOW PART BR 10$ ; LOOP TILL CONVERTED TO TICKS 30$: MOV (SP)+,R1 ; SET LOW PART MOV (SP)+,R0 ; SET HIGH PART RETURN ;+ ; *** - SETRSI - CONVERT RSI TO TICKS AND STORE IN CLOCK ; QUE ELEMENT ; ; INPUT: ; R5 - ADDRESS OF CLOCK QUE ELEMENT ; C.RSI - RESCHEDULE COUNT ; C.RSI+2 - RESCHEDULE UNIT CODE ; ; OUTPUT: ; R5 - UNCHANGED ; C.RSI - LOW PART OF RSI IN TICKS ; C.RSI+2 - HIGH PART OF RSI IN TICKS ; ;- SETRSI: MOV C.RSI(R5),R1 ; GET RSI COUNT MOV C.RSI+2(R5),R2 ; GET UNITS CODE BEQ 10$ ; IF ZERO NO RESCHEDULE INTERVAL CALL TICKS ; CONVERT TO TICKS MOV R1,C.RSI(R5) ; STORE LOW PART MOV R0,C.RSI+2(R5) ; STORE HIGH PART MOVB #C.SCHD,C.RQT(R5) ; SET PERIODIC RESCHEDULE BR 20$ ; 10$: MOVB #C.SSHT,C.RQT(R5) ; SET SINGLE SHOT REQUEST 20$: RETURN ; ;+ ; *** - DTIME - CONVERT DELTA TIME TO CLOCK TICKS ; ; INPUT: ; R5 - ADDRESS OF CLOCK QUE ELEMENT ; 0(R5) - COUNT OF UNITS ; 2(R5) - UNITS CODE ; ; OUTPUT: ; R5 - UNCHANGED ; C.TIM(R5) - LOW PART OF TIME IN TICKS ; C.TIM+2(R5) - HIGH PART OF TIME IN TICKS ; ;- DTIME: MOV 2(R5),R2 ; GET UNITS CODE MOV (R5),R1 ; GET NUMBER OF THESE UNITS CALL TICKS ; CONVERT TO TICKS MOV R1,C.TIM(R5) ; SAVE DELTA TIME LOW MOV R0,C.TIM+2(R5) ; AND HIGH BIS R0,R1 ; IS IT ZERO ? BNE 10$ ; NO INC C.TIM(R5) ; YES, THEN FORCE TO DEFAULT OF 1 10$: RETURN ; .ENAhBL LSB ;+ ; *** - $RLCLK - RELEASE CLOCK QUE ELEMENT ; ; INPUT: ; $MPARS+CLKQ - ADDRESS OF CLOCK QUE ELEMENT ; ; OUTPUT: ; NONE ; ;- $RLCLK:: CALL $SWSTK,10$ ; SWITCH TO USER STACK RLCLK: MOV #C.LGTH,R1 ; GET LENGTH OF CLOCK QUE ELEMENT MOV $MPARS+CLKQ,R0 ; GET ADDRESS OF IT CALL $DEACB ; RELEASE IT 10$: RETURN ; .DSABL LSB .END hu~»kQ›c, .TITLE TIMBAS TIME AND DATE ROUTINE .IDENT "03" ; ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD MASS. ; COPYRIGHT (C) 1976 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION: 02 ; BY: H. LEV ; DATE: 08/27/73 ; MODIFIED: 12/27/74 TO PRINT DATE IN FORMAT DD-MMM-YY ; MODIFIED: 12/31/74 TO RUN WITH BASIC MCR ; ; ; HJL026 4/7/76 CHANGE TIME FORMAT ; ; ; ; THIS MODULE PROCESSES THE MCR TIME COMMAND ; ; ; EQUATED SYMBOLS ; ; CR = 015 ; CARRIAGE RETURN SPA = 040 ; SPACE EFN1 = 1 ; EVENT LUN1 = 1 ; LOGICAL UNIT .MCALL CALL,DEVDF$,DIR$,HWDDF$,RETURN,WTSE$S DEVDF$ ; DEFINE DEVICE OFFSETS HWDDF$ ; DEFINE HARDWARE REGISTERS .SBTTL LOCAL DATA TIMTIM: .ASCIZ $::$ ; VALID TIME TERMINATOR TIMDAT: .ASCIZ $//$ ; VALID DATE TERMINATOR ; ; DATE FIELDS ; DAT: .RAD50 /JAN/ .RAD50 /FEB/ .RAD50 /MAR/ .RAD50 /APR/ .RAD50 /MAY/ .RAD50 /JUN/ .RAD50 /JUL/ .RAD50 /AUG/ .RAD50 /SEP/ .RAD50 /OCT/ .RAD50 /NOV/ .RAD50 /DEC/ ; ; VALID LIMITS FOR TIME AND DATE FIELDS ; .EVEN TIMLMT: .WORD 0,23. ; VALID LIMITS FOR HOURS .WORD 0,59. ; FOR MINUTES .WORD 0,59. ; FOR SECONDS .WORD 1,12. ; FOR MONTH .WORD 1,31. ; FOR DAY .WORD 0,99. ; FOR YEAR TDFLG: .WORD 0 ; TIME AND DATE FLAGS ; BIT 0 - TIME IS BEING SET ; BIT 1 - DATE IS BEING SET .SBTTL $TIMOV CODE ;+ ; *** - $TIMEP - TIME AND DATE MCR FUNCTION ; ; FORMAT: TIM [HH:MM:SS][ MM/DD/YY] ; ; WHERE: HH:MM:SS-IS OPTIONAL TIME OF DAY TO SET CLOCK TO ; HH=00-23 HOUR ; MM=0-59 MINUTE ; SS=0-59 SECOND ; ; MM/DD/YY-IS OPTIONAL DATE TO SET CALENDAR TO ; MM = 1-12 MONTH ; DD = 1-31 DAY ; YY = 0-99 YEAR ; ; IF NEITHER TIME NOR DAY IS SPECIFIED, THE CURRENT TIME AND DAY ; WILL BE PRINTED ON THE "TI" DEVICE. ; IF ONLY TIME IS SPECIFIED THE CLOCK WILL BE SET ; IF ONLY DATE IS SPECIFIED, THE CALENDAR WILL BE SET ; IF TIME AND DAY IS SPECIFIED THE CLOCK AND CALENDAR WILL BE SET ; THE ORDER OF TIME AND DATE ON THE COMMAND ; IS NOT SIGNIFICANT AND EITHER ORDER WILL BE ACCEPTED ; ;- $TIMEP:: CMPB (R0),#CR ; IS NEXT CHARACTER CARRIAGE RETURN? BEQ TIMDIS ; YES, DISPLAY CURRENT TIME AND DATE MOV $MUCB,R1 ; GET TI UCB ADDRESS BIT #U2.PRV,U.CW2(R1) ; IS TERMINAL PRIVILEGED? BNE 10$ ; YES TRAP 6. ; PRIVILEGED COMMAND ERROR ; ; THERE IS MORE IN LINE , DECIDE WHAT IS TO BE DONE ; 10$: CLR TDFLG ; INITIALIZE TIME/ DATE FLAGS MOV #$MPARS,R1 ; POINT TO PARAMETER AREA MOV #6.,R2 ; SET WORD COUNT 20$: CLR (R1)+ ; ZERO NEXT WORD DEC R2 ; DONE? BNE 20$ ; NO, LOOP 30$: CALL $CDTB ; GET A NUMBER CMPB R2,#': ; TERMINATOR FOR TIME? BEQ 40$ ; YES CMPB R2,#'/ ; NO, FOR DATE ? BNE 80$ ; NO, ERROR ; ; GET DATE FIELD ; BIS #2,TDFLG ; SET DATE FLAG MOV #TIMDAT,R4 ; SET TERMINATOR ADDRESS MOV #$MPARS+6,R3 ; POINT TO DATE STORAGE FIELD MOV #TIMLMT+14,R5 ; SET ADDRESS OF DATE FIELD LIMITS CALL GETDAT ; GET DATE FIELD BCS 80$ ; ERROR BR 70$ ; ; ; GET TIME FIELD ; 40$: BIS #1,TDFLG ; SET TIME FLAG MOV #$MPARS,R3 ; POINT TO TIME STORAGE FIELD CALL $GETIM ; GET TIME FIELD BCS 80$ ; ERROR 70$: CMPB R2,#CR ; YES, END OF LINE BEQ TIMSET ; YES CMPB #SPA,R2 ; SPACE ? BEQ 30$ ; YES 80$: TRAP 2. ; SYNTAX ERROR ; ; TIME AND DATE HAVE BEEN CONVERTED TO BINARY, NOW SET CLOCK + CALENDAR ; TIMSET: BIT TDFLG,#2 ; SETTING DATE? BEQ 5$ ; NO CALL TSTDAY ; YES, CHECK DAY VALUE BCS 30$ ; ERROR 5$: MTPS #PR7 ;;; LOCK OUT INTERRUPTS MOV #$MPARS+14,R3 ;;; SET ADDRESS OF DATE STORAGE FIELD BIT TDFLG,#2 ;;; DO WE HAVE DATE? BEQ 10$ ;;; NO MOV R1,$TKPS-10 ;;; SET DAYS IN THIS MONTH MOV -(R3),$TTNS-14 ;;; SET YEAR MOV -(R3),$TTNS-10 ;;; DAY MOV -(R3),$TTNS-12 ;;; AND MONTH 10$: BIT #1,TDFLG ;;; DO WE HAVE TIME ? BEQ 15$ ;;; NO MOV #$MPARS+6,R3 ;;; SET ADDRESS OF TIME STORAGE FIELDS MOV #$TTNS,R1 ;;; GET TIME ADDRESS MOV -(R3),-(R1) ;;; SET SECONDS MOV -(R3),-(R1) ;;; MINUTES MOV -(R3),-(R1) ;;; AND HOURS 15$: MTPS #0 ;;; ENABLE CLOCK INTERRUPT 20$: BR TIMXIT ; GOTO EXIT 30$: TRAP 2. ; SYNTAX ERROR ; ; DISPLAY DATE + TIME ; ; TIMDIS: MOV #$TTNS-6,R0 ;;; GET ADDRESS OF TIME MOV #$MPARS,R1 ; POINT TO PARAMETER BLOCK MTPS #PR7 ;;; INHIBIT CLOCK MOV (R0)+,(R1)+ ;;; GET HOURS MOV (R0)+,(R1)+ ;;; MINUTES MOV (R0)+,(R1)+ ;;; AND SECONDS MOV $TTNS-12,(R1)+ ;;; GET MONTH MOV $TTNS-10,(R1)+ ;;; DAY MOV $TTNS-14,(R1) ;;; AND YEAR MTPS #0 ;;; ENABLE CLOCK MOV #$MPARS,R5 ; GET ADDRESS OF TIME + DATE MOV $MBUF,R3 ; GET ADDRESS OF BUFFER MOV #TIMTIM,R4 ; GET ADDRESS OF TERMINATOR 10$: CALL CBT2A ; CONVERT PARAMETER TO ASCII TSTB (R4) ; END OF TIME BEQ 20$ ; YES MOVB (R4)+,(R3)+ ; NO, PUT IN TERMINATOR BR 10$ ; ; ; PUT IN DATE ; 20$: MOVB #40,(R3)+ ; PUT IN BLANK MOV (R5),R1 ; GET MONTH MOV 2(R5),(R5) ; SWAP WITH DATE MOV R1,2(R5) ; CALL CBT2A ; GET DAY MOVB #'-,(R3)+ ; PUT IN SEPARATOR MOV (R5)+,R1 ; GET MONTH DEC R1 ; CONVERT TO INDEX ASL R1 ; INTO DATE MOV DAT(R1),R1 ; GET DATE IN RAD50 MOV R3,R0 ; GET BUFFER ADDRESS CALL $C5TA ; CONVERT TO ASCII MOV R0,R3 ; COPY BUFFER POINTER MOVB #'-,(R3)+ ; PUT IN TERMINATOR CALL CBT2A ; GET YEAR ; ; PRINT OUT DATE + TIME FORMAT: HH:MM:SS DD-MMM-YY. ; MOV $MBUF,$MDPB+14 ; SET A BUFFER ADDRESS MOV #18.,$MDPB+16 ; LENGTH CALL $DOIO ; PRINT IT OUT ; ; EXIT ; TIMXIT: RETURN ; RETURN TO DISPATCHER .SBTTL SUBROUTINES ;+ ; *** - TMTSTL - TEST TIME DATE LIMITS ; ; INPUTS: ; R1 - CONTAINS VALUE TO BE TESTED ; R5 - POINTS TO TWO WORD LIMIT ENTRY ; WORD1 - LOW LIMIT ON VALUE ; WORD2 - HIGH LIMIT ON VALUE ; ; OUTPUTS: ; R1 - UNCHANGED ; R5 - UPDATED TO NEXT LIMIT ENTRY ; C - CLEAR GOOD VALUE LOW<=X<=HIGH ; C - SET BAD VALUE LOW>X OR X>HIGH ; ;- TMTSTL: CMP R1,(R5)+ ; IS VALUE LOWER THAN LOW LIMIT ? BLT 10$ ; YES, ERROR CMP R1,(R5)+ ; IS IT HIGHER THAN HIGH LIMIT ? BGT 10$ ; YES, ERROR CLC ; NO, GOOD VALUE BR 20$ ; RETURN 10$: SEC ; SET ERROR FLAG 20$: RETURN ; ; ;+ ; *** - CBT2A CONVERT BINARY TO TWO ASCII DIGITS ; ; INPUTS: ; ; R3 - POINTS TO BUFFER ; (R5) - CONTAINS NUMBER TO BE CONVERTED ; ; OUTPUTS: ; ; R3 - UPDATE TO POINT TO NEXT AVAILABLE BYTE IN BUFFER ; R5 - POINTS TO NEXT WORD IN LIST ((R5)+) ; ;- CBT2A: MOV (R5)+,R0 ; GET NUMBER FOR DIVIDEND MOV #10.,R1 ; SET DIVISOR CALL $DIV ; DIVIDE NUM BY 10. ADD #'0,R1 ; ADD ASCII BIAS TO LOW DIGIT ADD #'0,R0 ; ADD ASCII BIAS TO HIGH DIGIT MOVB R0,(R3)+ ; STORE HIGH DIGIT MOVB R1,(R3)+ ; STORE LOW DIGIT RETURN ; ;+ ; *** - TSTDAY - CHECK DAY VALUE WITH RESPECT TO MONTH ; ; INPUT: ; $MPARS+6 MONTH ; +10 DAY ; +12 YEAR ; ; OUTPUT: ; CARRY CLEAR - DAY OKAY ; CARRY SET - DAY BAD ; REGISTER R0 IS USED ; ;- TSTDAY: MOV $MPARS+6,R0 ; GET MONTH DEC R0 ; IS THIS JANUARY? BNE 5$ ; NO MOV #12.,R0 ; YES 5$: MOVB $DYPMN-1(R0),R1 ; GET DAYS FOR THIS MONTH DEC R0 ; IS THIS FEBRUARY? BNE 10$ ; NO BIT #3,$MPARS+12 ; IS THIS A LEAP YEAR? BNE 10$ ; NO INC R1 ; YES, IT HAS ONE MORE DAY 10$: CMP R1,$MPARS+10 ; IS DAY THE 29TH? BGT 20$ ; YES SEC ; NO, SET ERROR 20$: RETURN ; ;+ ; *** - $GETIM - GET TIME FIELD ; ; INPUT: ; R0 - ADDRESS OF BEGINNING OF MINUTE FIELD ; R1 - HOUR IN BINARY ; R2 - COLON ; R3 - PARAMETER ADDRESS FOR TIME ; ; OUTPUT: ; R0 - UPDATED ; R2 - TERMINATOR ; R3 - UPDATED ; ; USED: ; R4, AND R5 ; ;- $GETIM:: MOV #TIMTIM,R4 ; GET ADDRESS OF TIME TERMINATORS MOV #TIMLMT,R5 ; GET TIME LIMITS GETDAT: CALL TMTSTL ; TEST LIMITS BCS 50$ ; BAD MOV R1,(R3)+ ; STORE TIME CMPB R2,(R4) ; CHECK TERMINATOR BNE 20$ ; NOT RIGHT INC R4 ; POINT TO NEXT TERMINATOR CALL $CDTB ; CONVERT NEXT FIELD TO BINARY BR GETDAT ; LOOP 20$: TSTB (R4) ; END OF FIELD? BEQ 40$ ; YES TSTB 1(R4) ; NO, NE¢XT CHARACTER LAST? BNE 30$ ; NO, ERROR CMPB (R4),#': ; TIME FIELD? BEQ 40$ ; YES 30$: SEC ; ERROR BR 50$ ; 40$: CLC ; 50$: RETURN ; .END ¢ì`ÕfkQ›c, .IIF NDF $OTLEP .NLIST ; ; ; COPYRIGHT (C) 1975, 1979, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION 01.02 ; BY: THOMAS J MILLER ; DATE: 2/4/75 ; ; MODIFIED BY: ; ; J. H. MATTHEWS 22-JAN-79 ; ; JM024 -- ADDED RT FORMAT SUPPORT FOR TU58 AND RX02 ; AND TS11 SUPPORT ; ; E. A. FLOYD 23-NOV-80 ; ; EF031 -- ADD TCB, LABEL BLOCK, AND HEADER DEFINITIONS ; ; ; OTLPRE - PREFIX FILE FOR ASSEMBLING MODULES OF THE RSX-11S ONLINE TASK LOADER ; ;+ ; ; WHEN APPRORIATE, INDIRECT REGISTER REFERENCES IN OTL MODULES, NOT CONTAINING ; SYMBOLIC OFFSETS, ARE ACCOMPANIED IN THE COMMENT FIELD BY A DESCRIPTION OF THE ; EFFECTIVE ADDRESS OF THE REFERENCE FOR THE EXECUTION OF THE INSTRUCTION. ; THE DESCRIPTION CONSISTS OF A SYMBOL NAME ENCLOSED IN PARENS WHERE THE ; SYMBOL IS AN OFFSET IN A BLOCK OF DATA OR THE SYMBOL FOR AN OTL DATA LOCATION. ; ;- ; ; MACRO LIBRARY CALLS ; .MCALL PCBDF$ .MCALL TCBDF$,HDRDF$,LBLDF$ ;EF031 PCBDF$ ;DEFINE PARTITION CONTROL BLOCK OFFSETS AND MASKS TCBDF$ ;DEFINE TCB OFFSETS AND MASKS ;EF031 LBLDF$ ;DEFINE LABEL BLOCK OFFSETS AND MASKS ;EF031 HDRDF$ ;DEFINE HEADER OFFSETS AND MASKS ;EF031 ; ; CONDITIONAL ASSEMBLY VARIABLE FOR FULL ERROR MESSAGE REPORTING. WITH FULL ; ERROR MESSAGE REPORTING, ERROR MESSAGES INCLUDE A NUMERIC ERROR CODE AND ; A BRIEF ASCII DESCRIPTION OF THE ERROR CONDITION. WITHOUT FULL ERROR MESSAGE ; REPORTING, THE ASCII DESCRIPTION IS OMITTED. FOR FULL REPORT OF ERRORS, THE ; SYMBOL "R$$ERM" MUST BE DEFINED HERE. IF FULL REPORT OF ERROR MESSAGES IS ; NOT DESIRED, THE DEFINITION OF "R$$ERM" MUST BE PRECEDED BY A SEMI-COLON. ; THE DEFINITION LINE FOR "R$$ERM" FOLLOWS. ; ;R$$ERM=0 ; ; MACRO FOR INCLUDING SUPPORT OF LOAD DEVICES ; ; THE FIRST ARGUMENT IN THE INCLUD MACRO IS THE SYMBOL WHICH OTL MODULES USE TO ; CONDITIONALIZE CODE SPECIFIC TO SUPPORT OF THE PARTICULAR LOAD DEVICE. ; THE SECOND ARGUMENT IS THE SYMBOL WHICH IS PLACED IN THE ASSEMBLY PREFIX MODULE ; RSXMC DURING SYSGEN TO INDICATE THE PRESENCE OF A DRIVER FOR THE DEVICE. THE ; MACRO CAUSES THE FIRST SYMBOL TO BE DEFINED IF THE SECOND SYMBOL IS PRESENT ; IN RSXMC. ; .MACRO INCLUD A,B .IF DF B A=0 .ENDC .ENDM ; ; EACH OF THE FOLLOWING INCLUD STATEMENTS CAUSE SUPPORT FOR THE DESIGNATED LOAD ; DEVICE TO BE INCLUDED IN OTL IF THE STANDARD DRIVER FOR THE DEVICE HAS BEEN ; GENERATED INTO THE SYSTEM. IF THE STANDARD DRIVER FOR A LOAD DEVICE HAS BEEN ; INCLUDED IN THE SYSTEM, BUT SUPPORT FOR THAT DEVICE IN OTL IS NOT DESIRED, ; THE CORRESPONDING INCLUD STATEMENT MUST BE PRECEDED BY A SEMI-COLON (;). ; NO DEVICE SUPPORT WILL BE GENERATED IN OTL FOR DEVICES FOR WHICH DRIVERS HAVE ; NOT BEEN GENERATED INTO THE SYSTEM. THE DEVICES ARE LISTED ALPHABETICALLY. ; INCLUD PR11,P$$R11 ;PC11/PR11 SUPPORT INCLUD RX11,R$$X11 ;RX11 SUPPORT INCLUD RX21,R$$X21 ;RX211 SUPPORT INCLUD TA11,T$$A11 ;TA11 SUPPORT INCLUD TC11,T$$C11 ;TC11 SUPPORT INCLUD TM11,T$$M11 ;TM11 SUPPORT ¾INCLUD TS11,T$$S11 ;TS11 SUPPORT INCLUD TU16,T$$J16 ;TU16 SUPPORT INCLUD TU58,T$$U58 ;TU58 SUPPORT ; ; INSURE FORMATTED BINARY VARIABLE DEFINED IF PAPER TAPE TO BE USED ; .IF DF PR11 R$$FB=0 .ENDC ; ; IF CASSETTE OR MAGTAPE DEFINE SINGLE BLOCK READ VARIABLE ; .IF DF TA11!TM11!TU16!TS11 R$$SBR=0 .ENDC ; ; SAVE REGISTER MACRO ; .MACRO SAVRG$ CALL $SAVAL .ENDM .IIF NDF $OTLEP .LIST ¾ì`kQ›c, .TITLE OTL .IDENT /02/ ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; COPYRIGHT (C) 1976 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; VERSION: 01 ; BY: THOMAS J MILLER ; DATE: 2/4/75 ; ; OTL - MAIN CONTROL LOOP FOR RSX-11S ONLINE TASK LOADER ; ; ; MACRO LIBRARY CALLS ; .MCALL QIO$ $$$GLB=0 ;FORCE GLOBAL DEFINITION OF QIO OFFSETS QIO$ ; ; LOCAL SYMBOL DEFINITIONS ; TS$NHD=40000 ;COMMON BLOCK FLAG ; ; GLOBAL IMPURE DATA ; $UIC:: .BLKW 1 ;UIC UNDER WHICH OTL IS RUNNING $TCB:: .BLKW 1 ;POINTER TO ALLOCATED TCB $STKSV::.BLKW 1 ;STACK POINTER SAVE AREA ;+ ; ; *** - $OTLEP ENTRY POINT FOR THE ONLINE TASK LOADER ; ;- ; ; SAVE UIC UNDER WHICH OTL IS RUNNING AND STACK POINTER ; $OTLEP::MOV $HEADR,R0 ;PICK ADDRESS OF OTL'S HEADER MOV H.CUIC(R0),$UIC ;SAVE UIC MOV SP,$STKSV ;SAVE STACK POINTER ;+ ; ; *** - $RSTRT OTL RESTART POINT ; ; RESTORE STACK POINTER AND DETACH PREVIOUS LOAD DEVICE ; ;- $RSTRT::CLR $TCB ;CLEAR ALLOCATED TCB POINTER MOV #IO.DET,$LQDPB+Q.IOFN ;SET FOR DETACH CALL $QIOL ;DETACH OLD DEVICE (ERRORS ON DETACH ARE IGNORED) ; ; INITIATE NEXT TASK LOAD SEQUENCE ; CALL $OTLCD ;GET COMMAND AND DECODE IT CALL $OTLLD ;INITIALIZE LOAD DEVICE CALL $OTLLB ;PROCESS FIRST LABEL BLOCK BIT #TS$NHD,R4 ;IS TASK IMAGE COMMON BLOCK? BNE 10$ ;IF NE YES CALL $OTLHD ;PROCESS TASK HEADER AND LOAD TASK BR $RSTRT ;RESTART 10$: CALL $OTLCM ;LOAD COMMON BLOCK BR $RSTRT ;RESTART .END $OTLEP ì``kQ›c, .TITLE OTLCD .IDENT /02/ ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; COPYRIGHT (C) 1980 ; DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOO LIBRARY CALLS ; .MCALL EXIT$S ; ; LOCAL DATA ; ; ;EF030 ; WORD FOR AMOUNT TO INCREASE TASK SIZE (IN 32 WORD BLOCKS) ;EF030 ;EF030 .IF DF M$$MGE ;EF030 ;EF030 $INCAM::.BLKW= 1 ;EF030 ;EF030 .ENDC ;EF030 ; ASCII FOR DEFAULT EXTENSION ; TSKASC: .ASCIZ /TSK/ ; ;+ ; ; *** - $OTLCD READ AND PARSE AN OTL COMMAND LINE ; ;- .ENABL LSB $OTLCD::MOV #IO.ATT,$TQDPB+Q.IOFN ;SET ATTACH FUNCTION IN TTY DPB CALL $QIOT ;ATTACH TTY 1$: MOV #$FBBUF,R1 ;POINT TO COMMAND INPUT BUFFER MOV (PC)+,(R1)+ ;MOVE IN PROMPT .BYTE 15,'O ; MOV #"TL,(R1)+ ; MOVB #'>,(R1)+ ; SUB #$FBBUF,R1 ;CALCULATE COUNT CALL $OUTMG ;PRINT IT MOV #IO.RVB,$TQDPB+Q.IOFN ;SET TO READ VIRTUAL FUNCTION MOV #39.,R1 ;SET MAXIMUM COUNT CALL $QIOT ;READ COMMAND LINE BPL 5$ ;IF PL NO ERROR CMPB R0,#IE.EOF ;END OF FILE? (CNTRL/Z?) BEQ 4$ ;IF EQ YES TRAP ER.IOE ;ELSE I/O ERROR 4$: TST $IOSB+2 ;ANY INPUT? BNE 10$ ;IF NE YES, SYNTAX ERROR $OTLXT::MOV #IO.DET,$TQDPB+Q.IOFN ;SET FOR DETACH FUNCTION CALL $QIOT ;DETACH TERMINAL EXIT$S ;EXIT 5$: MOV $IOSB+2,R1 ;PICK UP CHARACTER COUNT BEQ 1$ ;IF EQ NO INPUT, PROMPT AGAIN MOV #IO.DET,$TQDPB+Q.IOFN ;SET DETACH FUNCTION IN TTY DPB CALL $QIOT ;DETACH TTY MOV #$FBBUF,R0 ;POINT TO COMMAND LINE MOV #$FLBLK,R3 ;POINT TO FILE BLOCK MOV #$FLRAD,R4 ;POINT TO DESTINATION FOR FILENAME RAD50 ; ; OTLPS - COMMAND LINE PARSER ; ; THIS IS A SPECIALIZED PARSER FOR EXTRACTING DOS FILENAME INFORMATION FROM ; OTL COMMAND LINES. TWO BLOCKS ARE FILLED IN AS THE RESULT OF THIS PARSE. ; THEY ARE: ; ; FILE-SPECIFIER BLOCK: WORD0= ASCII DEVICE NAME ; WORD1= OCTAL UNIT NUMBER ; WORD2= UIC ; WORD3= FILE-NAME STRING POINTER ; WORD4= FILE-EXTENSION STRING POINTER ; ; FILE-NAME RAD50: WORD0= FIRST WORD OF FILE-NAME RAD50 ; WORD1= SECOND WORD OF FILE-NAME RAD50 ; WORD2= FILE-EXTENSION RAD50 ; ; INPUTS: ; ; R0=POINTER TO COMMAND STRING ; R1=CHARACTER COUNT OF COMMAND STRING ; R3=POINTER TO FILE-SPECIFIER BLOCK ; R4=POINTER TO FILE-NAME RAD50 BLOCK ; ; OUTPUTS: ; ; BLOCKS ARE FILLED IN ; R0-R4 ARE LOST ; OTLPS: MOV R0,R5 ;COPY BUFFER POINTER 7$: CMPB (R5),#141 ;LOWER-CASE LETTER? BLO 8$ ;IF LO NO CMPB (R5),#172 ; BHI 8$ ;IF HI NO BICB #40,(R5) ;CONVERT TO UPPER CASE 8$: INC R5 ;POINT TO NEXT CHARACTER DEC R1 ;CHARS REMAINING? BNE 7$ ;IF NE YES CLRB (R5)+ ;CONVERT STRING TO ASCIZ CLRB (R5) ;SIMPLIFY DETECTION OF SINGLE CHAR MOV (R0)+,(R3)+ ;INSERT DEVICE-NAME ASCII INTO SPEC BLOCK MOV #':-60,R2 ;INDICATE NEXT VALID NON-NUMERIC (-60) CALL COTB ;INSERT UNIT NUMBER INTO SPEC BLOCK TST (R3)+ ;BUMP SPEC BLOCK POINTER MOV $UIC,(R3) ;TENTATIVELY SET UIC CMPB (R0),#'[ ;EXPLICIT UIC? BNE 30$ ;IF NE NO INC R0 ;OTHERWISE POINT TO GROUP NUMBER MOV #',-60,R2 ;INDICATE NEXT VALID NON-NUMERIC CALL COTB ;INSERT GROUP NUMBER INTO SPEC BLOCK TSTB (R3)+ ;NULL GROUP NUMBER SPECIFIED? BNE 20$ ;IF NE NO 10$: TRAP ER.SYN ;SYNTAX ERROR 20$: MOVB #']-60,R2 ;INDICATE NEXT VALID NON-NUMERIC CALL COTB ;INSERT OWNER NUMBER INTO SPEC BLOCK TSTB (R3)+ ;NULL SPECIFIED? BEQ 10$ ;ERROR IF SO SWAB -(R3) ;REVERSE GROUP AND OWNER 30$: TST (R3)+ ;POINT TO FILE-NAME ENTRY 40$: MOV #$FLBUF,R1 ;POINT TO FILE-NAME BUFFER 45$: MOVB (R0)+,(R1)+ ;MOVE FILE NAME STRING CMP R1,#$FLBUF+11. ;MOVED ENOUGH? BLOS 45$ ;IF LO NO CLRB (R0)+ ;INSURE ASCIZ STRING MOV #$FLBUF,R0 ;SET TO CONTINUE PARSE MOV R0,(R3)+ ;INSERT FILE-NAME POINTER CLR R1 ;SET TO CONVERT TO RAD50 (STOP ON ".") CALL $CAT5 ;CONVERT IT MOV R1,(R4)+ ;MOVE IT INTO RAD50 BLOCK BNE 50$ ;BR IF NOT NULL TSTB -(R0) ;OTHERWISE DID WE TERMINATE ON A NULL? BNE 10$ ;ERROR IF NOT 50$: BCC 60$ ;CONTINUE IF CC DEC R0 ;OTHERWISE INSURE THAT WE POINT TO TERMINATOR 60$: CLR R1 ;SET FOR NEXT CONVERSION CALL $CAT5 ;CONVERT MOV R1,(R4)+ ;SET SECOND WORD OF FILE NAME BCS 70$ ;BR IF R2 CONTAINS TERMINATOR MOVB (R0)+,R2 ;OTHERWISE PICK UP NEXT CHAR 70$: MOV #TSKASC,(R3) ;TENTATIVELY SET FOR DEFAULT EXTENSION MOV (PC)+,(R4) ; .RAD50 /TSK/ ; ;PJK058 .IF DF M$$MGE ;PJK058 ;PJK058 CLR $INCAM ;CLEAR THE INCREMENT VALUE ;PJK058 ;PJK058 .ENDC ;PJK058 ;PJK058 TSTB R2 ;AT END OF LINE? BEQ 90$ ;EXIT IF SO CMPB R2,#'. ;ELSE WAS LAST CHAR A "."? BEQ 75$ ;PROCESS EXTENSION ;EF030 CMPB R2,#'/ ;ANY SWITCHES? ;EF030 BR 77$ ;PROCESS SWITCH ;EF030 75$: CLRB -1(R0) ;CONVERT FILE-NAME STRING TO ASCII ;EF030 CLRB -1(R0) ;CONVERT FILE-NAME STRING TO ASCIZ ;**-1 MOV R0,(R3) ;POINT TO SPECIFIED EXTENSION CLR R1 ;SET TO CONVERT IT CALL $CAT5 ;CONVERT TO RAD50 MOV R1,(R4) ;LOAD IT INTO RAD50 BLOCK BCS 80$ ;BR IF R2 CONTAINS TERMINATOR MOVB (R0)+,R2 ;ELSE PICK UP CHAR AFTER EXTENSION ;EF030 77$: ;EF030 ;EF030 .IF DF M$$MGE ;EF030 ;EF030 CMPB R2,#'/ ;ANY SWITCHES? ;EF030 BNE 10$ ;ERROR -- SYNTAX ;EF030 CMPB (R0)+,#'I ;PARSING FOR "INC" ;EF030 BNE 10$ ; ;EF030 CMPB (R0)+,#'N ; ;EF030 BNE 10$ ; ;EF030 CMPB (R0)+,#'C ; ;EF030 BNE 10$ ; ;EF030 CMPB (R0)+,#'= ; ;EF030 BNE 10$ ; ;EF030 CALLR INCPRO ;PROCESS INC SWITCH ;EF030 ;EF030 .ENDC ;EF030 80$: TSTB R2 ;AT END OF LINE? BNE 10$ ;ERROR IF NOT 90$: RETURN .DSABL LSB ; ; COTB - CONVERT OCTAL TO BINARY ; ; INPUTS: ; ; R0=POINTER TO START OF OCTAL STRING ; R2=ASCII OF VALID TERMINATOR - 60 ; R3=POINTER TO BYTE FOR CONVERTED NUMBER ; ; OUTPUTS: ; ; R0=POINTER TO CHARACTER AFTER TERMINATOR ; R1 IS LOST ; BYTE ADDRESSED BY R3 CONTAINS CONVERTED BINARY NUMBER ; COTB: CLRB (R3) ;INITIALIZE OUTPUT BYTE 10$: MOVB (R0)+,R1 ;PICK UP FIRST CHAR SUB #60,R1 ;CONVERT TO BINARY BITB #370,R1 ;VALID NUMERIC? BEQ 30$ ;IF EQ YES CMPB R1,R2 ;ELSE VALID TERMINATOR? BEQ 40$ ;EXIT IF SO 20$: TRAP ER.SYN ;ELSE SYNTAX ERROR 30$: ASLB (R3) ;SHIFT CURRENT BYTE AND CHECK FOR OVERFLOW BCS 20$ ; ASLB (R3) ; BCS 20$ ; ASLB (R3) ; BCS 20$ ; BISB R1,(R3) ;ACCUMULATE BINARY NUMBER BR 10$ ;GET NEXT CHAR 40$: RETURN ;EF030 .IF DF M$$MGE ;EF030 ;EF030 ; INCPRO - CONVERT A NUMBER TO BINARY (ASSUMED DECIMAL IF FOLLOWED BY A "." ;EF030 ; OTHERWISE, OCTAL) ;EF030 ; INPUT: R0 = BUFFER ADDRESS ;EF030 ; OUTPUTS: R0 = UPDATED BUFFER POINTER ;EF030 ; R1 = CONVERTED NUMBER TO BINARY ;EF030 ; R2 = LAST CHARACTER SCANNED (AFTER ".", IF FOUND) ;EF030 ; ;EF030 ;EF030 INCPRO: ;EF030 ;EF030 MOV R0,-(SP) ;SAVE BUFFER POINTER ;EF030 CALL $CDTB ;CONVER DECIMAL TO BINARY ;EF030 CMPB R2,#'. ;END IN DECIMAL POINT? ;EF030 BNE 60$ ;NO, OCTAL NUMBER ;EF030 MOVB (R0)+,R2 ;YES, POINT BEYOND IT ;EF030 BR 80$ ; ;EF030 60$: MOV (SP),R0 ;GET BUFFER POINTER ;EF030 CALL $COTB ;CONVERT OCTAL TO BINARY ;EF030 80$: TST (SP)+ ;CLEAN STACK ;EF030 ADD #77,R1 ;ROUND TO NEXT 32W BLOCK ;EF030 BIC #77,R1 ;CONVERT FROM BYTES ;EF030 ASR R1 ;TO 32 W BLOCKS ;EF030 ASR R1 ;CLEAR SIGN BIT ;EF030 ASR R1 ; ;EF030 ASR R1 ; ;EF030 ASR R1 ; ;EF030 ASR R1 ; ;EF030 CMP R1,#2000 ;INCREASE BY 32K? ;EF030 BLT 100$ ;NO ;EF030 TRAP ER.INC ;ERROR ;EF030 100$: MOV R1,$INCAM ;STORE BLOCK COUNT ;EF030 CMP R2,#52 ;END OF LINE? ;EF030 BEQ 120$ ;YES ;EF030 –TRAP ER.SYN ;NO, ERROR ;EF030 ;EF030 120$: ;EF030 RETURN ;EF030 ;EF030 .ENDC ;EF030 .END –ì`ÈkQ›c, .TITLE OTLCM .IDENT /02/ ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; COPYRIGHT (C) 1976 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; VERSION 02 ; BY: THOMAS J MILLER ; (BASED ON INSTALL COMMON BLOCK PROCESSOR BY H. LEV) ; DATE: 2/21/75 ; ; ; 002 14-JUL-76 JO ANN KASSON ;V3 LABEL BLOCK AND HEADER CHANGES ; ; ; OTLCM - COMMON BLOCK PROCESSOR FOR THE RSX-11S ONLINE TASK LOADER ; ;+ ; ; *** - $OTLCM OTL COMMON BLOCK PROCESSING AND LOADING ; ; FOR MAPPED SYSTEMS THE P.PDR AND P.NAPR ENTRIES OF THE PARTITION CONTROL ; BLOCK ARE SET UP. LABEL BLOCKS AND CHECKPOINT AREA ARE PAST OVER, THE TASK ; IMAGE IS LOADED AND THE TCB IS DEALLOCATED. ; THE FOLLOWING REGISTERS ARE ASSUMED TO BE POINTING AS INDICATED: ; ; R2 -> P.STAT IN PCB ; R5 -> L$BMXZ IN LABEL BLOCK BUFFER ; ;- $OTLCM:: .IF DF M$$MGE .IFTF MOV #$PARRL,R3 ;POINT TO SAVED RELOCATION BIAS .IFT CMP (R3),#7600 ;I/O PAGE? ($PARRL) .IFF CMP (R3),#160000 ;I/O PAGE? ($PARRL) .ENDC BHIS 50$ ;IF HIS YES, DONE MOV -(R3),R0 ;PICK UP BLOCKS IN TABLE ($TBLBK) 10$: DEC R0 ;BLOCKS REMAINING? BEQ 30$ ;IF EQ NO 20$: CALL $RDBLK ;READ BLOCK BR 10$ ;RETURN FOR MORE 30$: CMP R3,#$HDRBK ;ALREADY PAST CHECKPOINT AREA? BEQ 40$ ;IF EQ YES, LOAD TASK IMAGE MOV -(R3),R0 ;ELSE LOAD COUNT OF CHECKPOINT AREA ($HDRBK) BNE 20$ ;IF NE THEN CHECKPOINT AREA EXISTS 40$: MOV $TSKSZ,R1 ;PICK UP SIZE ($TSKSZ) .IF DF M$$MGE MOV #140000,R5 ;SET VIRTUAL ADDRESS .IFF MOV $PARRL,R5 ;SET VIRTUAL ADDRESS .ENDC CALL $RDBK1 ;LOAD TASK IMAGE 50$: MOV $TCB,R0 ;PICK UP TCB ADDRESS CALLR $DETCB ;DEALLOCATE TCB AND RETURN TO MAIN CONTROL * ; ($DETCB IS IN OTLERR) .END *ì`""kQ›c, .TITLE OTLERR .IDENT /01.02/ ; ; ; COPYRIGHT (C) 1979,1980 ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION 01.02 ; BY: THOMAS J MILLER ; DATE: 2/4/75 ; ; ; MODIFIED BY: ; ; J. H. MATTHEWS 29-JAN-79 ; ; JM025 -- ADD SUPPORT FOR SYSTEM TYPE IN TASK LABEL BLOCK ; ; E. A. FLOYD 27-MAY-80 ; EF008 -- ADD V3.0 CHANGES FOR ; SYSTEM CONTROLLED PARTITIONS ; ; E. A. FLOYD 21-NOV-80 ; EF030 -- ADD INC SWITCH ERROR SUPPORT ; ; P.J. KOBAR 1-JUN-81 ; PJK058 -- FIX PROBLEMS WITH PLAS CODE ; ; OTLERR - ERROR HANDLER AND RECOVERY ROUTINE FOR THE RSX-11S ONLINE TASK ; LOADER ; ; ; LOCAL DATA ; ; ERROR CODE MACRO ; .MACRO ERRCOD NAM NAM==N N=N+1 .ENDM ; ; ERROR MESSAGE MACRO ; .IF DF R$$ERM .MACRO .ERR NUM,MSG .PSECT .ERRTB .WORD ER'NUM .PSECT .ERRS ER'NUM:.RAD50 %'MSG'%<'.-22> .ENDM .IFTF ; ; ERROR CODE DEFINITIONS ; N=2 ERRCOD ER.SYN ERRCOD ER.POL ERRCOD ER.NVK ERRCOD ER.DNS ERRCOD ER.PRV ERRCOD ER.PNS ERRCOD ER.IOE N=40. ERRCOD ER.NBA ERRCOD ER.APR ERRCOD ER.NAP ERRCOD ER.CHK ERRCOD ER.BFB ERRCOD ER.EOF ERRCOD ER.BIG ERRCOD ER.COM ERRCOD ER.OVL ERRCOD ER.TAE ERRCOD ER.TND ERRCOD ER.BMM ERRCOD ER.NCB ERRCOD ER.PSZ ERRCOD ER.NFL ERRCOD ER.CTP ERRCOD ER.CNL ERRCOD ER.CBL ERRCOD ER.CBB ERRCOD ER.CBP ERRCOD ER.PNC ERRCOD ER.ILD ERRCOD ER.NVI ERRCOD ER.PBS ERRCOD ER.CTG ERRCOD ER.BSZ ERRCOD ER.FRQ ERRCOD ER.NVD ERRCOD ER.IWB ERRCOD ER.TKB ERRCOD ER.INC ;EF030 ; ; *** - $STVEC SST VECTOR USED TO PROVIDE THE LINKAGE BETWEEN TRAP INSTRUCTIONS ; AND THE ERROR ROUTINE ; $STVEC::.WORD 0,0,0,0,0,0,ERRTRP ; ; ERROR MESSAGE PREFIX ; OTLMS: .ASCIZ /OTL -- / .IFT .ASCIZ / - / .IFTF .EVEN ; ; ERROR MESSAGE TABLE ; .IFT .PSECT .ERRTB ERRTAB=.- ;DEFINE SO CODE ER.SYN INDEXES TO START OF TABLE .ERR \ER.SYN, .ERR \ER.POL, .ERR \ER.NVK,<> .ERR \ER.DNS, .ERR \ER.PRV,<> .ERR \ER.PNS, .ERR \ER.IOE, .ERR \ER.NBA, .ERR \ER.APR, .ERR \ER.NAP, .ERR \ER.CHK, .ERR \ER.BFB, .ERR \ER.EOF, .ERR \ER.BIG, .ERR \ER.COM, .ERR \ER.OVL, .ERR \ER.TAE, .ERR \ER.TND, .ERR \ER.BMM, .ERR \ER.NCB, .ERR \ER.PSZ, .ERR \ER.NFL, .ERR \ER.CTP, .ERR \ER.CNL, .ERR \ER.CBL, .ERR \ER.CBB, .ERR \ER.CBP, .ERR \ER.PNC, .ERR \ER.ILD, .ERR \ER.NVI, .ERR \ER.PBS, .ERR \ER.CTG,<> .ERR \ER.BSZ, .ERR \ER.FRQ, .ERR \ER.NVD, .ERR \ER.IWB, .ERR \ER.TKB, .ERR \ER.INC, ;EF030 .ENDC ;+ ; ; *** - ERRTRP ERROR TRAP PROCESSING ; ; THE EXEC PASSES CONTROL TO THIS ROUTINE UPON THE EXECUTION OF A TRAP ; INSTRUCTION WITHIN OTL. ; ; INPUTS FROM THE EXEC: ; ; (SP)=LOW ORDER BYTE OF TRAP INSTRUCTION * 2 ; ; OUTPUTS: ; ; AN APPROPRIATE ERROR MESSAGE IS PRINTED AND OTL IS RESTARTED. ; ;- .PSECT ERRTRP: MOV (SP)+,R5 ;PICK UP ERROR CODE MOV $STKSV,SP ;RESTORE STACK POINTER CALL CLENUP ;DEALLOCATE TCB AND FREE PARTITION MOV #OTLMS,R4 ;POINT TO ERROR MESSAGE PREFIX MOV #$FBBUF,R0 ;POINT TO OUTPUT BUFFER 10$: MOVB (R4)+,(R0)+ ;MOVE IT IN BNE 10$ ;CONTINUE UNTIL END OF MESSAGE MOV R5,R1 ;PICK UP ERROR CODE ASR R1 ;DIVIDE BY 2 TO GET ORIGINAL CODE CLR R2 ;ENABLE ZERO SUPPRESSION CALL $CBDMG ;CONVERT ERROR TO ASCII IN BUFFER .IF DF R$$ERM 15$: MOVB (R4)+,(R0)+ ;MOVE IN " - " BNE 15$ ; CMP R5,#ER.IOE*2 ;ERROR IN SECOND RANGE OF ERROR CODES? BLE 20$ ;IF LE NO SUB #*2,R5 ;ELSE ADJUST FOR CORRECT TABLE INDEX 20$: MOV ERRTAB(R5),R4 ;PICK UP ERROR MESSAGE POINTER MOV R0,R3 ;DUPLICATE BUFFER POINTER 25$: MOV (R4)+,R1 ;PICK UP FIRST WORD OF MESSAGE CALL $C5TA ;CONVERT AND MOVE INTO BUFFER 30$: CMPB (R3)+,#'. ;END OF MESSAGE? BEQ 40$ ;IF EQ YES CMP R3,R0 ;CHECKED ALL CHARS IN CURRENT CONVERSION? BLO 30$ ;IF LO NO BR 25$ ;CONVERT NEXT WORD OF RAD50 MESSAGE 40$: MOVB #15,-(R3) ;CHANGE PERIOD TO CARRIAGE RETURN SUB #$FBBUF-1,R3 ;CALCULATE CHARACTER COUNT FOR MESSAGE MOV R3,R1 ;PASS IT TO OUTPUT MESSAGE ROUTINE .IFF MOVB #15,(R0)+ ;MOVE CARRIAGE RETURN INTO BUFFER SUB #$FBBUF,R0 ;CALCULATE COUNT MOV R0,R1 ;PASS COUNT IN R1 .ENDC CALL $OUTMG ;PRINT IT JMP $RSTRT ;RESTART OTL ; ; CLENUP - ROUTINE TO DEALLOCATE TCB AND UNBUSY PARTITION ; .ENABL LSB CLENUP: MOV $TCB,R0 ;POINT TO ALLOCATED TCB BEQ 20$ ;IF EQ THEN ONE WAS NOT ALLOCATED ;EF008 .IF NDF D$$YNM ;EF008 ;EF008 CLR $TCB ;INDICATE NO TCB ALLOCATED ;EF008 .ENDC ;EF008 ;EF008 MOV T.PCB(R0),R1 ;PICK UP PCB POINTER BEQ 10$ ;IF EQ THEN NONE MOV P.MAIN(R1),R2 ;POINT TO MAIN PARTITION ;EF008 .IF DF D$$YNM ;EF008 ;EF008 BIT #PS.SYS,P.STAT(R2) ;IS PARTITION SYSTEM CONTROLLED? ;EF008 BEQ 7$ ;EQ => NO ;EF008 MOV R0,-(SP) ;SAVE R0 ;EF008 MOV T.PCB(R0),R1 ;GET ADDRESS OF PARTITION PCB ;EF008 MOV P.MAIN(R1),R0 ;GET MAIN PCB ADDRESS ;EF008 ;EF008 5$: MOV R0,R2 ;SAVE ADDRESS OF PREVIOUS PCB ;EF008 MOV P.SUB(R2),R0 ;GET ADDRESS OF NEXT PCB ;EF008 CMP R0,R1 ;TASK PCB? ;EF008 BNE 5$ ;IF NE, NO ;EF008 MOV P.SUB(R0),P.SUB(R2) ;REMOVE PCB FROM LIST ;EF008 MOV (SP)+,R0 ;RESTORE R0 ;EF008 BR 9$ ;SKIP BUSY BIT STUFF ;EF008 ;EF008 .IFTF ;EF008 ;EF008 7$: ADD #P.BUSY,R1 ;POINT TO SUBPARTITION BUSY FLAG WORD ;EF008 BICB (R1)+,(R1) ;SET SUBPARTITION TO UNBUSY (P.BUSY)(P.BUSY+1) ;**-1 BICB -(R1),P.BUSY+1(R2) ;SET MAIN PARTITION TO UNBUSY (P.BUSY) ;EF008 .IFT ;EF008 ;EF008 9$: MOV $PCB,R0 ;PICK UP PCB ADDRESS ;EF008 CLR $PCB ;INDICATE NO PCB ALLOCATED ;EF008 MOV #P.LGTH,R1 ;GET LENGHT OF PCB ;EF008 CALL $DEACB ;DEALLOCATE PCB ;EF008 ;EF008 .ENDC ;EF008 ;+ ; ; *** - $DETCB ROUTINE TO DEALLOCATE TCB ; ; INPUTS: ; ; R0=POINTER TO ALLOCATED TCB ; ; OUTPUTS: ; ; TCB IS DEALLOCATED ; ;- $DETCB:: 10$: ; .IF DF M$$MGE MOV #T.LGTH+T.EXT,R1 ;SET TCB LENGTH .IFF Ð MOV #T.LGTH,R1 ;SET TCB LENGTH .ENDC MOV $TCB,R0 ;PICK UP TCB POINTER ;EF008 CALL $SWSTK,20$ ;SWITCH TO SYSTEM STATE CALLR $DEACB ;DEALLOCATE TCB 20$: RETURN ; .DSABL LSB .END Ðì` 2kQ›c, .TITLE OTLHD .IDENT /2.03/ ; ; ; ; COPYRIGHT (C) 1976, 1981 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; VERSION: 02.03 ; ; BY: THOMAS J MILLER ; (BASED ON INSTALL TASK HEADER PROCESSOR BY H. LEV) ; DATE: 2/14/75 ; ; MODIFIED BY: ; ; JAK002 14-JUL-76 JO ANN KASSON ;V3 LABEL BLOCK AND HEADER CHANGES ; JAK003 29-APR-77 ; FIX - LOADING WITH TASK SIZE < 1000. ; ; E. A. FLOYD 9-MAY-80 ; EF004 -- V4.0 TCB CHANGES ; ; E. A. FLOYD 20-MAY-80 ; EF005 -- ADD TASK OVERLAID SEGMENT LOAD SUPPORT V3.0 ; ; P.J. KOBAR 1-JUN-81 ; PJK058 -- FIX PROBLEMS WITH PLAS CODE ; ; P.J. KOBAR 4-AUG-81 ; PJK064 -- INITIALIZE OFFSPRING CONTROL BLOCK LISTHEAD ;**NEW** ; ; ; OTLHD - TASK HEADER PROCESSOR PROCESSOR FOR THE RSX-11S ONLINE TASK LOADER ; ; ; MACRO LIBRARY CALLS ; .MCALL ALUN$,DIR$ ; ; LOCAL SYMBOL DEFINITIONS ; LUN3=3 ;LUN FOR LUT PROCESSING ; ; DPB FOR ASSIGN LUN ; ALUN3: ALUN$ LUN3 ;+ ; ; *** - $OTLHD ROUTINE TO COMPLETE HEADER AND TCB PROCESSING AND LOAD TASK ; ; CONTROL IS RECEIVED FROM THE MAIN CONTROL LOOP AFTER THE FIRST LABEL BLOCK ; HAS BEEN PROCESSED AND A TCB ALLOCATED. THE LUN TABLE IN THE TASK HEADER ; IS FILLED IN FROM SUCCEEDING LABEL BLOCKS AND REMAINING ENTRIES IN THE TASK ; HEADER ARE FILLED IN FROM THEIR INITIAL VALUES IN THE TASK IMAGE HEADER. ; THE TASK IS LOADED FROM THE FIRST BLOCK BOUNDARY AFTER THE HEADER AND THE ; TCB IS COMPLETED AND INSERTED INTO THE STD. ; ;- $OTLHD:: .IF DF M$$MGE MOV #140000,$PARRL+2 ;REINITIALIZE ADDRESS DOUBLE WORD .IFF MOV $PARRL,$PARRL+2 ;REINITIALIZE ADDRESS DOUBLE WORD .ENDC ADD #H.LUN-512.,$PARRL+2 ;BUMP ADDRESS DOUBLE WORD TO BEGINNING OF ; OF LUN TABLE - 512 MOV $TSKSZ,-(SP) ;PUSH TASK SIZE TO CHECK FOR OVERRUN SUB #H.LUN,(SP) ;SUBTRACT SIZE OF FIRST PART OF HEADER BCS 112$ ;IF CS, OVERRUN ;EF005 .IF DF P$$LAS ;EF005 ;EF005 TST $SGMT ;RESIDENT OVERLAYS? ;EF005 BEQ 10$ ;EQ => NO ;EF005 DEC $TBLBK ;READ LABEL BLOCKS UP TO SEGMENT LOAD BLOCK ;EF005 ;EF005 .ENDC ;P$$LAS ;EF005 ;EF005 10$: DEC $TBLBK ;LABEL BLOCKS REMAINING? BEQ 100$ ;IF EQ NO, PROCEED TO READ IN TASK HEADER ;EF005 ADD #512.,$PARRL+2 ;BUMP ADDRESS DOUBLE WORD ;**-1 CALL $RDBLK ;READ NEXT LABEL BLOCK MOV R5,R2 ;INITIALIZE R2 (LAST NONZERO LUN ENTRY) MOV $HEADR,R4 ;GET POINTER TO OTL'S HEADER ADD #H.LUN+<*4>,R4 ;POINT TO THIRD LUN ENTRY 40$: CLR (R4) ;INITIALLY CLEAR UCB POINTER MOV (R5),ALUN3+A.LUNA ;MOVE DEVICE-NAME ASCII INTO ASSIGN DPB BEQ 50$ ;BR IF NONE CMP #"OV,(R5) ;LUN IS NAME OF OVERLAY DEVICE??? ;EF005 BNE 45$ ;NE => NO ;EF005 MOV #"LB,ALUN3+A.LUNA ;TASK LOAD DEVICE IS LB ;EF005 45$: MOV R5,R2 ;ELSE UPDATE LAST NONZERO ENTRY POINTER ;EF005 MOV 2(R5),ALUN3+A.LUNU ;MOVE IN UNIT NUMBER ;**-1 DIR$ #ALUN3 ;ATTEMPT TO ASSIGN THE LUN BCC 50$ ;CONTINUE IF SUCCESSFUL TRAP ER.ILD ;ELSE ERROR, ILLEGAL DEVICE 50$: MOV (R4),(R5)+ ;MOVE IN UCB POINTER CLR (R5)+ ;CLEAR WINDOW BLOCK POINTER CMP R5,#$LBLBF+512. ;AT END OF LABEL BLOCK YET? BLO 40$ ;IF LO NO, CONTINUE SUB #$LBLBF-4,R2 ;CALCULATE NUMBER OF BYTES OF UCB ENTRIES TO ; WRITE (AT LEAST ONE ENTRY WILL BE WRITTEN) CMP $TBLBK,#1 ;LAST LABEL BLOCK? BEQ 90$ ;IF EQ YES MOV #512.,R2 ;ELSE WRITE ENTIRE BLOCK 90$: MOV #$LBLBF,R0 ;SOURCE OF TRANSFER IS LABEL BUFFER MOV #$PARRL,R1 ;POINT TO DESTINATION ADDRESS DOUBLE WORD SUB R2,(SP) ;SEE IF ROOM FOR LUN ENTRIES BCS 112$ ;IF CS NO, OVERRUN CALL BLXO ;MOVE LUN ENTRIES INTO PLACE IN HEADER BR 10$ ;BRANCH TO PROCESS ANY REMAINING LUN ENTRIES ; ; READ IN TASK HEADER FROM TASK IMAGE AND INITIALIZE PS ENTRY. VERIFY HEADER. ; 100$: ;EF005 ;EF005 .IF DF P$$LAS ;EF005 ;EF005 TST $SGMT ;TASK OVERLAID? ;EF005 BEQ 110$ ;EQ => NO, ROOT SEGMENT ONLY ;EF005 MOV #$SGTBL,R5 ;POINT TO SEGMENT LOAD BUFFER ;EF005 MOV #512.,R1 ;SET LENGTH TO READ (1 DISK BLOCK) ;EF005 CALL $RDBK1 ;READ SEGMENT LABEL BLOCK INTO BUFFER ;EF005 MOV (R5),$TSKSZ ;GET SIZE OF ROOT SEGMENT ;EF005 ;EF005 .ENDC ;EF005 110$: CALL $RDBLK ;READ NEXT BLOCK FROM TASK IMAGE DEC $HDRBK ;WAS HEADER BLOCK READ? BGE 110$ ;IF GE NO, LOOP TO PASS CHECKPOINT AREA MOV H.HDLN(R5),(SP) ;SAVE HEADER LENGTH CMP (SP),$TSKSZ ;HEADER LENGTH GREATER THAN TASK SIZE? BLOS 115$ ;IF LOS NO 112$: TRAP ER.NVI ;INVALID TASK IMAGE 115$: MOV H.NLUN(R5),R0 ;PICK UP NUMBER OF LUNS ASL R0 ;CONVERT TO BYTES IN LUN TABLE ASL R0 ; MOV $NWNDS,R3 ;NUMBER OF ADDRESS WINDOWS IN TASK ASL R3 ;GET LENGTH FOR ALL ENTRIES ASL R3 ;EACH ENTRY IS 8. WORDS ASL R3 INC R3 ;INCLUDE WINDOW COUNT ENTRY ASL R3 ;CONVERT LENGTH TO BYTES ADD R3,R0 ;ADDRESS WINDOW PLUS LUNS MOV R0,$NWNDS ;SAVE LENGTH FOR LATER ;NUMBER OF WINDOWS NOT NEEDED ANY MORE ADD #H.LUN+<9.*2>,R0 ;ADD SIZE REMAINING IN HEADER CMP R0,(SP) ;DOES CALCULATION CHECK WITH HEADER SIZE? BNE 112$ ;IF NE NO ADD #H.LUN+<256.*4>+18.,R3 ;CALCULATE MAX. HEADER LEN. CMP (SP),R3 ;HEADER SIZE <= MAX.HEADER SIZE? BHI 112$ ;IF HI NO .IF DF M$$MGE MOV #170017,H.IPS(R5) ;SET INITIAL PS BIC #160000,$TKBSA ;CLEAR APR FROM BASE ADDRESS .IFF MOV #17,H.IPS(R5) ;SET INITIAL PS .ENDC MOV $PARRL+2,R1 ;PICK UP ADDRESS OF LAST LUN ENTRY TRANSFER ADD R2,R1 ;ADJUST ADDRESS TO END OF LUN TABLE ;EF005 .IF DF P$$LAS ;EF005 ;EF005 MOV R1,$WNDBF ;SAVE FOR EXTRA WINDOW TRANSFER ;EF005 ADD #2*<8.+1>,$WNDBF ;POINT PAST WINDOW 0 ;EF005 ;EF005 .IFTF ;EF005 ;EF005 MOV H.GARD(R5),R3 ;PICK UP POINTER TO GUARD WORD SUB $TKBSA,R3 ;SUBTRACT BASE ADDRESS OF TASK BCS 112$ ;IF CS ERROR CMP R3,(SP) ;GUARD WORD > THEN HEADER LENGTH? BHIS 112$ ;IF HIS YES - ERROR MOV H.WND(R5),R3 ;PICK UP POINTER TO WINDOW COUNT ;EF005 .IFT ;EF005 ;EF005 MOV R0,-(SP) ;SAVE R0 ;EF005 MOV R1,-(SP) ;SAVE R1 ;EF005 MOV R2,-(SP) ;SAVE R2 ;EF005 MOV R4,-(SP) ;SAVE R4 ;EF005 ;EF005 CLR $WNDBF+2 ;INITIALIZE COUNT FOR XFER ;EF005 ADD R5,R3 ;MOVE TO # WINDOWS ;EF005 ADD #2,R3 ;ADJUST PAST COUNT TO 1ST WINDOW ;EF005 1150$: MOV $PCB,R4 ;PICK UP PCB POINTER ;EF005 ADD #20,R3 ;POINT TO 2ND WINDOW ;EF005 BIT #4,W.BLPD(R3) ;WINDOW MAPPED? ;EF005 BEQ 1155$ ;EQ =>NO, NO MORE MAPPED WINDOWS ;EF005 CMP W.BPCB(R3),R4 ;WINDOW FOR TASK REGION 0? ;EF005 BNE 1155$ ;NE => NO ;EF005 ADD #8.*2,$WNDBF+2 ;#BYTES TO XFER ;EF005 MOV P.ATT(R4),R4 ;PICK UP ATTACHMENT DESCRIPTOR POINTER ;EF005 INCB A.MPCT(R4) ;INCREMENT THE MAP COUNT ;EF005 MOV $WNDBF,2(R1) ;POINT PARRL+2 TO 2ND WINDOW ENTRY ;EF005 MOV #$PARRL,R1 ;GET PARTITION RELOCATION BIAS ;EF005 MOV #8.*2,R2 ;BYTES TO XFER ;EF005 MOV R3,R0 ;POINT TO HEADER WINDOW ENTRIES IN LABEL BUFFER ;EF005 MOV $PARRL,-(SP) ;SAVE RELOCATION BIAS ;EF005 CALL BLXO ;TRANSFER ;EF005 MOV (SP)+,$PARRL ;RESTORE RELOCATION BIAS ;EF005 ADD R2,$WNDBF ;ADJUST TO POINT PAST WINDOW JUST XFERRED ;EF005 BR 1150$ ;GET NEXT WINDOW IF THERE IS ONE ;EF005 ;EF005 1155$: MOV (SP)+,R4 ;RESTORE R4 ;EF005 MOV (SP)+,R2 ;RESTORE R2 ;EF005 MOV (SP)+,R1 ;RESTORE R1 ;EF005 MOV (SP)+,R0 ;RESTORE R0 ;EF005 MOV H.WND(R5),R3 ;PICK UP POINTER TO WINDOW COUNT ;EF005 ;EF005 .ENDC ;EF005 .IF DF M$$MGE SUB $TKBSA,R3 ;SUBTRACT BASE ADDRESS OF TASK BCS 112$ ;IF CS, ERROR .IFF MOV R3,-(SP) ;PUSH COPY ON STACK SUB $TKBSA,(SP)+ ;REDUCE BY BASE ADDRESS OF TASK BCS 112$ ;IF CS ERROR TST (SP)+ ;REMOVE HEADER LENGTH FROM STACK .IFT ADD #140000,R3 ;FORCE TO APR6 AND END OF LUN ENTRIES CALL $SWSTK,130$ ;SWITCH TO SYSTEM STATE MOV $PARRL,KISAR6 ;LOAD RELOCATION BIAS .IFTF 120$: CMP R1,R3 ;LAST LUN ENTRY ZEROED? BEQ 125$ ;IF EQ YES CLR (R1)+ ;ZERO LUN ENTRY BR 120$ ;LOOK AT NEXT 125$: .IFT RETURN 130$: .IFTF MOV R5,R0 ;COPY BUFFER POINTER FOR BLXO MOV #$PARRL,R1 ;POINT TO ADDRESS DOUBLE WORD .IFT MOV #140000,2(R1) ;SET BASE ADDRESS OF TRANSFER .IFF MOV (R1),2(R1) ;SET BASE ADDRESS OF TRANSFER .ENDC .IF DF M$$MGE ;EF005 ;EF005 MOV $PARRL,-(SP) ;SAVE RELOCATION BIAS ;EF005 ;EF005 .IFTF ;EF005 ;EF005 MOV #H.LUN,R2 ;SET TO TRANSFER THRULUN COUNT CALL BLXO ;TRANSFER FIRST SECTION OF HEADER ;EF005 .IFT ;EF005 ;EF005 MOV (SP)+,$PARRL ;RESTORE RELOCATION BIAS ;EF005 ;EF005 .ENDC ;EF005 ;EF005 ADD #H.LUN,2(R1) ;POINT TO LUN TABLE AT DESTINATION (PARRL+2) ADD #H.LUN,R0 ;POINT TO LUN COUNT ENTRY MOV $NWNDS,R3 ;GET LENGTH OF LUN TABLE PLUS ;WINDOW ENTRIES. ; ; SKIP OVER REMAINING ENTRIES IN THE HEADER. THESE INCLUDE LUN TABLE ; AND ADDRESS WINDOW ENTRIES. ; ; MOV #512.-H.LUN,R2 ;SET R3 TO MAXIMUM NUMBER OF BYTES LEFT IN ; CURRENT BLOCK FOR LUN ENTRIES 140$: SUB #512.,$TSKSZ ;REDUCE TASK SIZE BY BLOCK LAST READ BCC 145$ ; IF CC $TSKSZ > 0 ADD $TSKSZ,R2 ; REDUCE NUMBER OF BYTES USED IN BLOCK CLR $TSKSZ ; ZERO TASK SIZE 145$: CMP R3,R2 ;DO THE LUN ENTRIES PASS THE CURRENT END OF BLOCK? BLOS 150$ ;IF LOS NO CALL $RDBLK ;ELSE READ NEXT BLOCK FROM TASK IMAGE MOV R5,R0 ;POINT TO BEGINNING OF BLOCK ADD R2,2(R1) ;BUMP DESTINATION VIRTUAL ADDRESS ($PARRL+2) SUB R2,R3 ;REDUCE R3 BY LUN ENTRIES PAST MOV #512.,R2 ;SET NEW CONSTANT OF BYTES FOR LUN ENTRIES BR 140$ ;BR BACK TO SEE IF END OF LUN TABLE READ 150$: ADD R3,R0 ;POINT TO END OF LUN TABLE ADD R3,2(R1) ;($PARRL+2) SUB R3,R2 ;CALCULATE NUMBER OF BYTES IN CURRENT BLOCK ; AFTER LUN TABLE .IF DF M$$MGE MOV $PARRL,-(SP) ;SAVE RELOCATION BIAS ;EF005 ;**-1 .ENDC CALL BLXO ;MOVE IN TASK IMAGE TO NEXT BLOCK BOUNDARY ;EF005 .IF DF M$$MGE ;EF005 ;EF005 MOV (SP),$PARRL ;RESTORE AND KEEP COPY ON STACK ;EF005 ;EF005 .ENDC ;EF005 ;EF005 MOV 2(R1),R5 ;POINT TO BEGINNING OF LAST MOVE ($PARRL+2) ADD R2,R5 ;POINT TO END ; ;EF005 .IF DF P$$LAS ;EF005 ;EF005 TST $SGMT ;CHECK FOR PRESENCE OF OVERLAYS ;EF005 BNE 155$ ;NE => YES, TASK IS OVERLAID ;EF005 ;EF005 .ENDC ;P$$LAS ;EF005 ;EF005 MOV $TSKSZ,R1 ;SET SIZE OF REMAINING TASK TO LOAD CALL $RDBK1 ;LOAD THE TASK BR 157$ ;COPY HEADER ;EF005 155$: ;EF005 ;EF005 .IF DF P$$LAS ;EF005 ;EF005 CALL LDOVR ;LOAD REMAINDER OF ROOT AND ALL OVERLAYS ;EF005 CLR $SGMT ;CLEAR FLAG ;EF005 ;EF005 .ENDC ;EF005 ; ; CREATE A COPY OF THE HEADER IF THE SYSTEM IS MAPPED ; AND INITIALIZE TASK NAME IN THE REGISTER SAVE AREA IN THE HEADER FOR ODT ; ;EF005 157$: ;EF005 .IF DF M$$MGE MOV (SP)+,$PARRL ;RESTORE RELOCATION BIAS MOV (SP)+,R1 ;PICK UP SAVED COPY OF HEADER SIZE CALL $SWSTK,160$ ;SWITCH TO SYSTEM STATE CALL $ALOCB ;ALLOCATE A CORE BLOCK ROL (R4) ;SAVE C-BIT IN UNUSED LUN3 UCB POINTER ; IN OTL'S HEADER MOV R0,$HDRBK ;SAVE A POINTER TO THE BLOCK RETURN ;RETURN TO USER STATE 160$: MOV R1,R2 ;COPY SIZE OF BLOCK ROR (R4) ;RESTORE C-BIT BCC 170$ ;IF CC, BLOCK WAS ALLOCATED TRAP ER.POL ;ERROR, INSUFFICIENT POOL SPACE 170$: MOV $HDRBK,R1 ;RETRIEVE POINTER TO BLOCK MOV #$PARRL,R0 ;POINT TO ADDRESS DOUBLE WORD MOV #140000,2(R0) ;RESET BASE ADDRESS CALL .BLXI ;COPY HEADER SUB $TKBSA,H.GARD(R1) ;RELOCATE HEADER GUARD WORD POINTER ADD R1,H.GARD(R1) ; SUB $TKBSA,H.WND(R1) ;RELOCATE WINDOW BLOCK POINTER ADD R1,H.WND(R1) ; MOV H.WND(R1),R0 ;POINT TO WINDOW COUNT MOV W.BPCB+2(R0),R0 ;TASK PCB PTR IS IN ADDRESS WINDOW MOV R1,P.HDR(R0) ;SET POINTER BACK TO HEADER .IFF MOV $PARRL,R1 ;POINT TO TASK HEADER .ENDC MOV $TCB,R0 ;PICK UP TCB POINTER ;EF004 ;EF004 .IF DF S$$TOP!T$$BUF ;EF004 ;EF004 MOV H.EFLM(R1),T.EFLM(R0) ;MOVE EVENT FLAG MASK WORDS ;EF004 MOV H.EFLM+2(R1),T.EFLM+2(R0) ;INTO PLACE IN TCB ;EF004 ;EF004 .ENDC ;EF004 ;EF004 MOV $TKSZ,T.TKSZ(R0) ;FILL IN TASK SIZE ;EF004 ADD H.HDLN(R1),R1 ;POINT PAST HEADER GUARD WORD CMP -(R1),-(R1) ;POINT PAST REGISTER R1 LOCATION MOV T.NAM(R0),-(R1) ;MOVE IN FIRST OF TASK NAME ;**-1 MOV T.NAM+2(R0),-(R1) ;MOVE IN SECOND WORD OF TASK NAME ; ; FINISH INITIALIZATION OF TCB AND INSERT IT INTO THE STD ; MOV R0,R1 ;COPY POINTER ADD #T.RCVL,R1 ;ADJUST TO POINT TO RECEIVE LISTHEAD MOV R1,T.RCVL+2(R0) ;INITIALIZE BACK POINTER ADD #T.ASTL-T.RCVL,R1 ;POINT TO AST LISTHEAD MOV R1,T.ASTL+2(R0) ;INITIALIZE BACK POINTER .IF DF P$$LAS ADD #T.RRFL-T.ASTL,R1 ;POINT TO RECIEVE BY REFERENCE LISTHEAD MOV R1,T.RRFL+2(R0) ;INITIALIZE BACK POINTER .ENDC ;PJK064 .IF DF P$$OFF ;PJK064 ;PJK064 MOV R0,R1 ;GET START OF TCB ;PJK064 ADD #T.OCBH,R1 ;POINT TO OCB OFFSET ;PJK064 MOV R1,T.OCBH+2(R0) ;INITIALIZE BACKPOINTER ;PJK064 ;PJK064 .ENDC ;P$$OFF ;PJK064 ;PJK064 BIS #TS.EXE,T.STAT(R0) ;NOT EXECUTING BIS #T2.FXD!T2.CHK,T.ST2(R0) ;NOT CHECKPOINTABLE,FIXED BIS #T3.PMD,T.ST3(R0) ;NO PMD ;NO PMD, NOT CHECKPOINTABLE MOV #$TSKHD-T.TCBL,R1 ;MAKE STD HEAD LOOK LIKE A TCB AND POINT TO IT CALL $SWSTK,200$ ;SWITCH TO SYSTEM STATE 180$: MOV T.TCBL(R1),R2 ;POINT TO NEXT TCB CMPB T.PRI(R0),T.PRI(R2) ;PRI OF NEW TCB > THAN CURRENT TCB? BHI 190$ ;IF HI YES, INSERT NEW TCB HERE MOV R2,R1 ;MAKE CURRENT TCB LAST TCB BR 180$ ;TRY AGAIN 190$: MOV R2,T.TCBL(R0) ;POINT NEW TCB TO CURRENT TCB MOV R0,T.TCBL(R1) ;POINT LAST TCB TO NEW TCB .IF DF T$$KMG CMP T.NAM(R0),(PC)+ ;IS TASK TKTN? .RAD50 /TKT/ ; BNE 200$ ;IF NE NO CMP T.NAM+2(R0),(PC)+ ; .RAD50 /N/ ; BNE 200$ ;IF NE NO MOV R0,$TKNPT ;ELSE UPDATE TKTN POINTER .ENDC 200$: RETURN ;DONE ; ; $RDBLK - ROUTINE TO READ NEXT BLOCK FROM TASK IMAGE INTO LABEL BUFFER ; $RDBLK::MOV #$LBLBF,R5 ;POINT TO LABEL BUFFER MOV #512.,R1 ;SET COUNT FOR READ ; ; $RDBK1 - ROUTINE TO READ FROM TASK IMAGE AFTER INCREMENTING BLOCK NUMBER. ; ; INPUTS: ; ; R1=COUNT FOR READ ; R5=BUFFER FOR READ ; $RDBK1::INC $LQDPB+Q.IOPL+10 ;INCREMENT BLOCK NUMBER FOR READ CALLR $READ ;READ BLOCK .IF DF P$$LAS ;EF005 ; ;EF005 ; UPON ENTRY TO THIS ROUTINE, A PORTION OF THE TASK ROOT SEGMENT HAS BEEN LOADED;EF005 ; INTO MEMORY. LDOVR CALCULATES THE SIZE OT THE ROOT REMAINING ON DISK AND ;EF005 ; LOADS IT. LDOVR THEN INDEXES THE SEGMENT LOAD TABLE ($SGTBL) AND LOADS ;EF005 ; EACH OVERLAY ADJACENT IN MEMORY TO THE ROOT SEGMENT. WHEN A ZERO ENTRY ;EF005 ; IN $SGTBL IS REACHED, ALL OVERLAYS HAVE BEEN LOADED: CONTROL IS RETURNED ;EF005 ; TO OTLHD. ;EF005 ; ;EF005 ;INPUTS: ;EF005 ; Q.IOPL+10 CONTAINS LBN OF HEADER BLOCK ;EF005 ; R5 CONTAINS BYTE OFFSET INTO TASK PARTITION (DESTINATION OF XFER) ;EF005 ; R2 CONTAINS BYTE COUNT FROM PREVIOUS XFER ;EF005 ; ;EF005 ; ;EF005 ;EF005 LDOVR: ;EF005 ;EF005 10$: JSR PC,$SAVAL ;SAVE ALL REGISTERS ;EF005 ;EF005 INC $LQDPB+Q.IOPL+10 ;POINT PAST HEADER BLOCK (LBN) ;EF005 ;EF005 MOV $PARRL,$SGMT ;SAVE PARTITION RELOCATION BIAS ;EF005 MOV 2(R1),R5 ;POINT TO START OF LAST MOVE ;EF005 ADD R2,R5 ;POINT TO END ;EF005 ;EF005 MOV #$SGTBL,R3 ;POINT TO SEGMENT LOAD TABLE ;EF005 TST (R3)+ ;MOVE PAST ROOT SEGMENT ENTRY ;EF005 20$: ;EF005 MOV $TSKSZ,R1 ;GET BYTES REMAINING IN ROOT ;EF005 ADD #777,R1 ;ADD CONSTANT AND ;EF005 BIC #777,R1 ;ROUND TO EVEN # DISK BLOCK READS ;EF005 ;EF005 ;EF005 40$: ;EF005 MOV R5,$PARRL+2 ;BUMP DESTINATION ADDRESS (OFFSET) ;EF005 CALL $READ ;READ SEGMENT INTO TASK ADDR. SPACE ;EF005 ;EF005 SWAB R1 ;GET # BYTES READ IN ;EF005 ASR R1 ;CALCULATE #DISK BLOCKS JUST READ ;EF005 ADD R1,$LQDPB+Q.IOPL+10 ;BUMP LBN TO BLOCK FOR NEXT SEGMENT ;EF005 ;EF005 ; THE NEXT FEW INSTRUCTIONS MANIPULATE R1 AND $PARRL TO KEEP ADDRESS VALUES ;EF005 ; WITHIN THE RANGE OF KISAR6 -- THAT IS WE WANT TO KEEP R5 LESS THAN 160000 ;EF005 ;EF005 MOV $TSKSZ,R1 ;GET #BYTES JUST READ ;EF005 45$: CMP #4000,R1 ;IS R1 GREATER THAN 1K ;EF005 BHI 50$ ;NO, GO AHEAD AND UPDATE R5 ;EF005 SUB #4000,R1 ;REDUCE R1 ;EF005 ADD #40,$PARRL ;AND UPDATE THE PARTITION RELOCATION BIA;EF005 BR 45$ ;CONTINUE UNTIL R1 < 1K ;EF005 ;EF005 50$: ADD R1,R5 ;BUMP DESTINATION ADDRESS ;EF005 ;EF005 MOV (R3)+,$TSKSZ ;ANY MORE OVERLAYS TO LOAD? ;EF005 BEQ 100$ ;EQ => NO ;EF005 BR 20$ ;PROCEED TO READ IN SEGMENT ;EF005 ;EF005 ;EF005 ;EF005 ; ;EF005 ;THE NEXT SECTION OF CODE MODIFIES DATA IN THE TASK. THE OVERLAY IMPURE POINTER ;EF005 ;IS TAKEN FROM THE HEADER. THE IMPURE AREA IS SEARCHED FOR THE ADDRESS OF THE ;EF005 ;SEGMENT DESCRIPTOR TABLE (LOCATED AT THE END OF THE ROOT SEGMENT) AND THE ;EF005 ;DATA WORD CONTAINING THE SIZE OF THE DESCRIPTORS. KISAR6 IS THEN REMAPPED ;EF005 ;TO POINT TO THE SEGMENT DESCRIPTOR TABLE. THE TABLE IS INDEXED AND ;EF005 ;A BIT IN THE STATUS WORD OF EACH DESCRIPTOR IS SET TO INDICATE THAT THE ;EF005 ;SEGMENT HAS BEEN LOADED IN THE TASK ADDRESS SPACE. ;EF005 ;EF005 100$: ;EF005 MOV $SGMT,$PARRL ;RESTORE RELOCATION BIAS ($PARRL) AND ;EF005 MOV #$PARRL,R1 ;POINT R1 TO ADDRESS DOUBLE WORD ;EF005 MOV #140000,2(R1) ;RESET DESTINATION ADDRESS ;EF005 ADD #H.OVLY,2(R1) ;POINT TO ADDRESS OF IMPURE STORAGE AREA ;EF005 CALL $SWSTK,260$ ;SWITCH TO SYSTEM STATE ;EF005 MOV (R1),@#KISAR6 ;LOAD RELOCATION BIAS ;EF005 ;EF005 MOV $PARRL,R4 ;SAVE RELOCATION BIAS ;EF005 ;EF005 MOV @2(R1),-(SP) ;COPY ADDRESS OF IMPURE AREA TO STACK ;EF005 101$: CMP #4000,(SP) ;IS THE VALUE > 1K? ;EF005 BHI 102$ ;NO, CONTINUE THROUGH IMPURE AREA ;EF005 SUB #4000,(SP) ;REDUCE VALUE BY 1K ;EF005 ADD #40,$PARRL ;AND UPDATE RELOCATION BIAS ;EF005 BR 101$ ;CONTINUE UNTIL VALUE < 1K ;EF005 ;EF005 102$: MOV (SP)+,R0 ;PICK UP ADDRESS OF IMPURE STORAGE AREA ;EF005 MOV #140000,2(R1) ;RESET DESTINATION ADDRESS ;EF005 ADD R0,2(R1) ;POINT DEST. ADDRESS TO IMPURE AREA ;EF005 ADD #N.STBL,2(R1) ;BUMP TO POINTER TO SEGMENT DESCRIPTOR TABLE ;EF005 MOV (R1),@#KISAR6 ;SET KERNEL APR 6 AND REMAP ;EF005 MOV @2(R1),-(SP) ;SAVE ADDRESS OF TABLE ;EF005 SUB #N.STBL,2(R1) ;BUMP BACK TO START OF IMPURE AREA ;EF005 ADD #N.SZSG,2(R1) ;BUMP TO WORD CONTAINING SEGMENT DESCRIPTOR SIZE;EF005 MOV @2(R1),R2 ;KEEP SIZE AND USE FOR INDEXING SEG. DESC. TABLE;EF005 ;EF005 MOV R4,$PARRL ;RESTORE RELOCATION BIAS ;EF005 ;EF005 110$: CMP #4000,(SP) ;AT OR PAST 1K BOUNDARY? ;EF005 BHI 120$ ;HI => NO, CONTINUE ;EF005 SUB #4000,(SP) ;DECREMENT OFFSET BY 1K ;EF005 ADD #40,$PARRL ;INCREMENT BIAS BY 1K FOR REMAPPING ;EF005 BR 110$ ;LOOP UNTIL OFFSET < 1K ;EF005 ;EF005 120$: MOV #140000,2(R1) ;SET DESTINATION ADDRESS IN ADDRESS DOUBLE WORD ;EF005 ADD (SP)+,2(R1) ;POINT TO BEGINNING OF SEGMENT DESCRIPTOR TABLE ;EF005 ;EF005 MOV (R1),@#KISAR6 ;SET KISAR6 TO SEGMENT TABLE IN TASK ADDR SPACE ;EF005 ;EF005 130$: TST @2(R1) ;END OF SEGMENT DESCRIPTOR TABLE? ;EF005 BEQ 210$ ;EQ => YES, RETURN ;EF005 BIS #20000,@2(R1) ;SET STATUS WORD TO SHOW SEGMENT IS LOADED ;EF005 ADD R2,2(R1) ;BUMP DEST. ADDR TO 1ST WORD OF NEXT DESCRIPTOR ;EF005 ;EF005 CMP #160000,2(R1) ;OVERRUN INTO APR 7? ;EF005 BHI 130$ ;HI => NO ;EF005 SUB #20000,2(R1) ;DECREMENT OFFSET BY 4K ;EF005 ADD #200,@#KISAR6 ;INCREMENT KISAR6 BY DIFFERENCE FROM OFFSET (4K);EF005 BR 130$ ;CONTINUE TO END OF TABLE ;EF005 ;EF005 ; THE NEXT SECTION OF CODE FINDS ALL WINDOW ENTRIES IN THE TASKS HEADER ;EF005 ; THAT ARE FOR TASK REGION ZERO BUT ARE NOT MAPPED AT RUN TIME AND ;EF005 ; INITIALIZES THOSE WINDOWS ;EF005 ;EF005 210$: MOV #$LBLBF,R5 ;GET PTR TO LABEL BUFFER (HEADER BLOCK) ;EF005 MOV $SGMT,$PARRL ;RESTORE RELOCATION BIAS ;EF005 CLR R4 ;INITIALIZE WORD COUNT ;EF005 MOV #$PARRL,R1 ;GET RELOCATION BIAS ;EF005 MOV (R1),@#KISAR6 ;SET MAPPING TO HEADER IN TASK REGION ;EF005 MOV #140000,R5 ;SET DISPLACEMENT ;EF005 MOV #140000,2(R1) ;SET DESTINATION ADDRESS ;EF005 ADD H.WND(R5),2(R1) ;POINT TO WINDOW COUNT ;EF005 MOV @2(R1),-(SP) ;GET #WNDWS FOR TASK REGION 0 ;EF005 ADD #22,2(R1) ;POINT PAST WINDOW COUNT AND WINDOW ZERO ;EF005 ;EF005 220$: DEC (SP) ;GET #WINDOWS FOR TASK LESS WINDOW ZERO ;EF005 BEQ 230$ ;EQ =>NO MORE WINDOWS ;EF005 ADD #10,R4 ;GET WORD COUNT (OCTAL 10 FOR EACH WINDOW) ;EF005 BR 220$ ;ANY MORE WINDOWS? ;EF005 ;EF005 230$: MOV 2(R1),R3 ;USE R3 TO INDEX INTO WINDOWS ;EF005 TST (SP)+ ;CLEAN STACK ;EF005 ;EF005 240$: CLR (R3)+ ;ZERO WINDOW WORDS ;EF005 DEC R4 ;REDUCE WORD COUNT ;EF005 BEQ 260$ ;EQ => NO MORE WORDS TO ZERO ;EF005 BR 240$ ;CONTINUE ZEROING ;EF005 Ž ;EF005 260$: RETURN ;RETURN TO USER STATE AND OTLHD ;EF005 ;EF005 .ENDC ;EF005 ; ; BLXO - ROUTINE TO TRANSFER DATA INTO USER ADDRESS SPACE WITH REGISTERS SAVED. ; BLXO: .IF DF M$$MGE .IFF SAVRG$ ;SAVE REGISTERS .ENDC CALLR .BLXO ;SIMPLY JUMP THERE (THE MAPPED VERSION OF ; .BLXO IMMEDIATELY CALLS $SWSTK) .END Žì`PKkQ›c, .TITLE OTLLB .IDENT /02.07/ ; ; ; COPYRIGHT (C) 1975, 1981 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; VERSION: 02.07 ; BY: THOMAS J MILLER ; (BASED ON INSTALL LABEL-BLOCK PROCESSOR BY H. LEV) ; DATE: 2/4/75 ; ; MODIFIED BY: ; ; JO ANN KASSON 12-JUL-76 ; JAK002 - V3 DATA STRUCTURES ; ; J. H. MATTHEWS 2-FEB-79 ; ; JM025 -- ADD SUPPORT FOR SYSTEM TYPE IN TASK LABEL BLOCK ; ; J. H. MATTHEWS 30-JAN-79 ; ; JM026 -- CORRECT PROBLEM OF OTL NOT SETTING THE ; PRIVILEGE BIT IN THE TCB FOR PRIVILEGED TASKS ; ; ; E. A. FLOYD 1-APR-80 ; EF002 -- CORRECT OTLLB TO PROPERLY CALCULATE ; THE NUMBER OF WINDOWS NEEDED BY A TASK ; ; E. A. FLOYD 9-MAY-80 ; EF004 -- MAKE V4.0 TCB CHANGES ; ; E. A. FLOYD 20-MAY-80 ; EF006 -- ADD SYSTEM CONTROLLED PARTITION SUPPORT V3.0 ; ; E. A. FLOYD 28-OCT-80 ; EF027 -- FIX BUG SO WINDOW SIZE EQUALS TASK LOAD SIZE ; ; E. A. FLOYD 5-NOV-80 ; EF028 -- FIX BUG TO SET MAP COUNT IN ATTACHMENT DESCRIPTOR ; ; E. A. FLOYD 21-NOV-80 ; EF030 -- ADD INCREMENT SUPPORT FOR ALLOCATING PARTITION ; AND FILLING IN TCB ; ; P.J. KOBAR 12-APR-81 ; PJK045 -- CLEAR W.BPCB WHEN INITIALIZING WINDOW BLOCKS ; OTHER THAN THE TASK REGION WINDOW. ; ; P.J. KOBAR 10-APR-81 ; PJK052 -- FIX PROBLEMS WITH CODE FOR UNMAPPED ASSEMBLY ; ; P.J. KOBAR 1-JUN-81 ; PJK058 -- FIX PROBLEMS WITH PLAS CODE ; ; P.J. KOBAR 26-JUN-81 ; PJK063 -- FIX PROBLEM WITH MAPPED NON-PLAS CODE ; ; P.J. KOBAR 4-AUG-81 ; PJK064 -- CORRECT ACCESS CODES FOR ATT DESCRIPTOR ; ; OTLLB - LABEL BLOCK PROCESSOR FOR THE RSX-11S ONLINE TASK LOADER ; ; ; LOCAL SYMBOL DEFINATIONS ; MXWBLK= 10 ;MAX NUMBER OF TASK WINDOW BLOCKS RMPTKB= 4 ;TASK BUILT FOR RSX-11MP ; ;**-52 ; ; HEADER OFFSETS ; WBLKS= 8.*2 ;WINDOW BLOCK SIZE LIBLEN= 14. ;SIZE OF LIBRARY ENTRY MAXLIB= LIBLEN*7. ;MAXIUM LENGTH OF LIBRARIES ; ; LOCAL STORAGE ; NUMLIB: .BLKW 1 ;NUMBER OF LIBRARIES ; ;EF004 ; GLOBAL STORAGE FOR SYSTEM CONTROLLED PARTITION AND OVERLAY SUPPORT ;EF004 ; ;EF004 $TKSZ::.BLKW 1 ;TASK SIZE FOR V4.0 TCB CHANGES FROM L$BMXZ ;EF004 $PCB:: .BLKW 1 ;POINTER TO SUB-PCB ;EF006 ;EF006 .IF DF P$$LAS ;EF006 ;EF006 $WNDBF::.BLKW 16. ;BUFFER FOR TASK REGION ZERO WINDOW ;EF006 $LIBBF::.BLKW 64. ;BUFFER FOR ALL LIBRARY WINDOWS ;EF006 $SGMT::.BLKW 1 ;FLAG TO INDICATE PRESENCE OF RESIDENT OVERLAYS ;EF006 ;EF006 .ENDC ;EF006 ; ; LIBRARY FLAGS ; LD$ACC= 100000 ;ACCESS CODE IS READ/WRITE LD$REL= 4 ;PIC LIBRARY ; ; BUFFER FOR FILE NAME ASCII FROM PARSED COMMAND LINE. NOTE THAT THIS ; BUFFER IS OVERLAID WITH THE TASK AND PARTITION PARAMETER SAVE AREA. ; BY THE TIME THE FIRST LABEL BLOCK IS READ IN THE FILE NAME IS NO ; LONGER REQUIRED. ; $FLBUF:: ; ; TASK AND PARTITION PARAMETER SAVE AREA ; $TSKSZ::.BLKW 1 ;TASK SIZE IN BYTES $TKBSA::.BLKW 1 ;TASK STARTING ADDRESS $HDRBK::.BLKW 1 ;HEADER RELATIVE BLOCK $TBLBK::.BLKW 1 ;BLOCKS IN LABEL BLOCK TABLE $PARRL::.BLKW 1 ;PARTITION RELOCATION BIAS .BLKW 1 ;WORD USED TO FORM ADDRESS DOUBLE WORD ; (USING PARTITION RELOCATION BIAS) $NWNDS::.BLKW 1 ;NUMBER OF WINDOWS IN TASK ;+ ; ; *** - $OTLLB OTL LABEL BLOCK PROCESSOR ; ; THIS MODULE ALLOCATES A TCB AND READS THE FIRST LABEL BLOCK OF THE TASK ; IMAGE. IT THEN PERFORMS CHECKS ON THE LABEL BLOCK, TASK AND PARTITION IN ; WHICH THE TASK IS TO BE INSTALLED. INFORMATION EXTRACTED FROM THE LABEL ; BLOCK IS WRITTEN DIRECTLY INTO THE HEADER IN THE PARTITION WHERE THE TASK ; WILL BE INSTALLED. ELEMENTS OF THE TCB ARE ALSO FILLED IN. ; ;- ; ; ALLOCATE TCB AND READ FIRST LABEL BLOCK ; $OTLLB:: ; .IF DF M$$MGE MOV #T.LGTH+T.EXT,R1 ;SET TCB LENGTH .IFF MOV #T.LGTH,R1 ;SET TCB LENGTH .ENDC CALL $SWSTK,10$ ;SWITCH TO SYSTEM STATE CALL $ALOCB ;ALLOCATE BLOCK FOR TCB MOV R0,$TCB ;SAVE TCB ADDRESS BCC 5$ ;IF CC RETURN CLR $TCB ;ELSE ALLOCATION FAILURE, INDICATE NO TCB ; ALLOCATED 5$: RETURN ; 10$: MOV $TCB,R0 ;PICK UP TCB POINTER BNE 20$ ;IF NE THEN ONE WAS ALLOCATED TRAP ER.POL ;OTHERWISE INSUFFICIENT POOL SPACE 20$: ADD R1,R0 ;POINT PAST ALLOCATED BLOCK 25$: CLRB -(R0) ;CLEAR TCB DEC R1 ; BNE 25$ ; MOV #$LBLBF,R5 ;POINT TO LABEL BUFFER MOV #512.,R1 ;AND PASS SIZE CALL $READ ;READ FIRST LABEL BLOCK ; ; PERFORM INITIAL CHECKS TO DETERMINE IF VALID LABEL BLOCK ; BIT #176000,L$BLDZ(R5) ;LEGAL TASK SIZE? ;EF006 BEQ 27$ ;IF EQ YES ;**-1 26$: TRAP ER.NVI ;ELSE INVALID TASK IMAGE 27$: CMP L$BPRI(R5),#250. ;PRIORITY IN RANGE (L$BPRI) BHI 26$ ;IF HI NO MOV L$BPRI(R5),T.PRI(R0) ;PUT PRIORITY IN TCB (L$BPRI) BNE 271$ ;IF NE HAVE ONE MOV #50.,T.PRI(R0) ;SET TO DEFAULT PRIORITY 271$: .IF DF A$$PRI MOV T.PRI(R0),T.DPRI(R0) ;DEFAULT PRIORITY .ENDC CMP L$BBLK(R5),#2 ;TOO FEW TABLE BLOCKS? BLO 26$ ;IF LO YES ;EF006 .IF DF P$$LAS ;EF006 ;EF006 CMP L$BBLK(R5),#4 ;TOO MANY TABLE BLOCKS? ;EF006 BHI 26$ ;HI =>YES, INVALID IMAGE ;EF006 ;EF006 .IFF ;EF006 ;EF006 CMP L$BBLK(R5),#3 ;TOO MANY TABLE BLOCKS? BHI 26$ ;IF HI YES .ENDC ;EF006 ; ; SET TASK NAME IN TCB ; .IF DF P$$LAS MOV R0,R1 ;COPY TCB POINTER ADD #T.ATT,R1 ;ADJUST TO POINT TO ATTACHMENT ;DESCRIPTOR LISTHEAD MOV R1,T.ATT+2(R0) ;INITIALIZE BACK POINTER .ENDC ADD #T.NAM,R0 ;POINT TO NAME FIELD MOV R0,R3 ;SAVE POINTER TO NAME FIELD MOV (R5)+,(R0)+ ;SET FIRST WORD OF NAME (L$BTSK)(T.NAM) BEQ 30$ ;IF EQ THEN NO NAME IN LABEL BLOCK MOV (R5),(R0)+ ;SET SECOND WORD (L$BTSK+2)(T.NAM+2) BR 50$ ;CONTINUE 30$: MOV $FLRAD,-2(R0) ;GET TASK NAME FROM FILE NAME (T.NAM) BNE 40$ ;IF NE THEN FILE NAME SPECIFIED TRAP ER.TND ;TASK NAME UNDEFINED 40$: MOV $FLRAD+2,(R0)+ ;SET SECOND WORD OF TASK NAME (T.NAM+2) 50$: CALL $SWSTK,55$ ;SWITCH TO SYSTEM STATE CALL $SRSTD ;SEARCH STD FOR TASK OF SAME NAME ROR (R5) ;STORE CARRY BIT IN LABEL BUFFER (L$BTSK+2) RETURN ;RETURN TO USER STATE 55$: ROL (R5)+ ;RESTORE CARRY BIT (L$BTSK+2) BCS 60$ ;IF CS THEN TASK NAME NOT FOUND AND OK BIT #TS$NHD,L$BFLG-L$BPAR(R5) ;COMMON BLOCK? BNE 60$ ;IF NE YES, NO ERROR TRAP ER.TAE ;ELSE TASK ALREADY EXISTS ; ; FIND TASKS PARTITION ; 60$: MOV $PARHD,R2 ;POINT TO PARTITION CONTROL BLOCK LIST HEAD 70$: CMP (R5),P.NAM(R2) ;MATCH ON FIRST WORD OF NAME? (L$BPAR) BNE 75$ ;IF NE NO CMP 2(R5),P.NAM+2(R2) ;SECOND WORD OF NAME MATCH? (L$BPAR+2) BEQ 80$ ;IF EQ THEN PARTITION FOUND 75$: MOV (R2),R2 ;POINT TO NEXT PCB (P.LNK) BNE 70$ ;BRANCH BACK IF NOT AT END OF LIST 78$: TRAP ER.PNS ;OTHERWISE PARTITION NOT IN SYSTEM 80$: MOV R2,$LBLBF+2 ;SAVE A COPY OF PCB POINTER IN LABEL BUFFER; CMP (R5)+,(R5)+ ;SKIP PAST PARTITION NAME (L$BPAR)(L$BPAR+2) ; SAVE TASK STARTING VIRTUAL ADDRESS ; MOV (R5)+,-(SP) ;SAVE BASE ADDR. FOR FUTURE USE (L$BSA) ; ; PICK UP LABEL BLOCK FLAGS WORD ; MOV L$BFLG-L$BHGV(R5),R4 ;PICK UP FLAG WORD (L$BFLG) ; ; DETERMINE IF PARTITION IS APPRORIATE ; 81$: BIT #TS$NHD,R4 ;IS TASK IMAGE A COMMON BLOCK? BNE 82$ ;IF NE YES BIT #PS.COM,P.STAT(R2) ;IS PARTITION COOMON? BEQ 84$ ;IF EQ NO TRAP ER.COM ;ELSE ERROR, PARTITION IS COMMON 82$: BIT #PS.COM,P.STAT(R2) ;IS PARTITION COMMON? BNE 84$ ;IF NE YES TRAP ER.PNC ;ELSE ERROR, PARTITION IS NOT COMMON ; ; DETERMINE IF PARTITION IS ALREADY BUSY AND IF NOT, MAKE IT BUSY ; ;EF006 ;EF006 84$: MOV R2,$PCB ;INITIALIZE THE PCB ADDRESS SYMBOL ;EF006 ;EF006 .IF DF D$$YNM ;EF006 ;EF006 BIT #PS.SYS,P.STAT(R2) ;SYSTEM-CONTROLLED? ;EF006 BNE 105$ ;NE => YES, ;EF006 ;EF006 .ENDC ;EF006 ;EF006 MOV P.MAIN(R2),R1 ;POINT TO MAIN PARTITION PCB ;EF006 ADD #P.TCB,R2 ;POINT PAST BUSY FLAG WORD IN SUBPARTITION ;**-1 BIT #TS$NHD,R4 ;IS TASK IMAGE A COMMON BLOCK? BNE 100$ ;IF NE YES, IGNORE WHETHER IT IS BUSY OR NOT TSTB P.BUSY+1(R1) ;MAIN PARTITION BUSY? BPL 90$ ;IF PL NO 85$: TRAP ER.PBS ;ERROR, PARTITION ALREADY BUSY 90$: TSTB -(R2) ;SUBPARTITION BUSY? (P.BUSY+1) BNE 85$ ;IF NE YES BISB -(R2),P.BUSY+1(R1) ;SET MAIN PARTITION BUSY (P.BUSY) BISB (R2)+,(R2)+ ;SET SUBPARTITION BUSY (P.BUSY)(P.BUSY+1) MOV $LBLBF+2,T.PCB-T.NAM(R3) ;POINT TCB TO PCB 100$: MOV $TCB,(R2)+ ;POINT PCB TO TCB (P.TCB) ;PJK052 .IF DF D$$YNM ;PJK052 ;PJK052 BR 110$ ;PJK052 105$: ADD #P.STAT,R2 ;BUMP POINTER TO P.STAT ;PJK052 ;PJK052 .ENDC ;PJK052 ;PJK052 ; ; CHECK IF TASK IS OVERLAID ; 110$: ;PJK052 .IF DF P$$LAS ;PJK052 ;PJK052 CLR $SGMT ;CLEAR SEGMENT INDICATOR ;PJK052 ;PJK052 .ENDC ;PJK052 ;PJK052 CMP (R5)+,(R5)+ ;SKIP TO TASK LOAD SIZE(L$BMGV)(L$BMXV) CMP (R5)+,(R5) ;LOAD SIZE = MAX SIZE (L$BLDZ)(L$BMXZ) BEQ 115$ ;IF EQ YES, TASK NOT OVERLAYED ;EF006 ;EF006 .IF DF P$$LAS ;EF006 ;EF006 TST L$BSGL-L$BMXZ(R5) ;IS SEGMENT LABEL BLOCK PRESENT? ;EF006 BNE 111$ ;NE => YES, PROCEED WITH CHECKS ;EF006 TRAP ER.TKB ; ;EF006 111$: INC $SGMT ;OVERLAID TASK WITH SEGMENT LABEL BLOCK ;EF006 BIT #TS$RES,R4 ;OVERLAYS RESIDENT? ;EF006 BNE 115$ ;NE =>YES, ELSE OVERLAYS NOT MEM RES ;EF006 ;EF006 .ENDC ;EF006 ;EF006 TRAP ER.OVL ;ELSE TASK IS OVERLAID ;**-1 ; ; DETERMINE IF MEMORY FOR PARTITION IS THERE ; 115$: MOV (R5),$TKSZ ;SAVE LOAD SIZE FOR TCB ;EF004 ;EF004 .IF DF M$$MGE ;EF030 ;EF030 TST $INCAM ;ANY INCREMENT? ;EF030 BEQ 117$ ;NO ;EF030 ;EF030 .IF DF P$$LAS ;EF030 ;EF030 TST $SGMT ;TASK OVERLAID? ;EF030 BEQ 116$ ;NO ;EF030 TRAP ER.INC ;NO INC WITH OVERLAID TASK ;EF030 ;EF030 .ENDC ;P$$LAS ;EF030 ;EF030 116$: ADD $INCAM,$TKSZ ;UPDATE TASK SIZE BY INCREMENT ;EF030 117$: ;EF030 ;PJK052 .IF DF D$$YNM ;PJK052 ;PJK052 BIT #PS.SYS,(R2) ;IS MAIN PCB FOR SYSTEM-CONTROLLED PARTITION ;PJK052 BEQ 120$ ;EQ => NO ;PJK052 SUB #P.STAT,R2 ;POINT R2 TO BEGINNING OF PCB ;PJK052 CALL FIND ;ALLOCATE SPACE IN PARTITION FOR TASK ;PJK052 MOV $PCB,$LBLBF+2 ;SAVE PTR TO SUB-PCB IN LABEL BUFFER ;PJK052 MOV $PCB,R2 ;POINT R2 TO ALLOCATED SUB-PCB ;PJK052 ADD #P.STAT,R2 ;POINT TO PCB STATUS WORD ;PJK052 120$: ;PJK052 .ENDC ;D$$YNM ;PJK052 ;PJK052 .ENDC ;M$$MGE ;PJK052 ;PJK052 ;**-2 .IF DF P$$LAS ADD #P.ATT-P.STAT,R2 ;POINT TO ATTACHMENT DESCRIPTOR LISTHEADR LISTHE MOV R2,2(R2) ;INITIALIZE BACK POINTER ADD #P.REL-P.ATT,R2 ;POINT TO RELOCATION BIAS .IFF ADD #P.REL-P.STAT,R2 ;POINT TO RELOCATION BIAS .ENDC .IF DF M$$MGE .IF DF M$$EXT ;PJK058 ;PJK058 CMP (R2)+,#170000 ;I/O PAGE? ;PJK058 ;PJK058 .IFF ;PJK058 ;PJK058 CMP (R2)+,#7600 ;I/O PAGE? ;PJK058 .ENDC ;M$$EXT ;PJK058 .IFF CMP (R2)+,#160000 ;I/O PAGE? .IFTF BHIS 125$ ;IF HIS YES, SKIP CHECK MOV $SYSIZ,-(SP) ;PUSH SYSTEM SIZE .IFT SUB -2(R2),(SP) ;SUBTRACT PARTITION RELOCATION BIAS (P.REL) .IFF MOV -2(R2),R1 ;PICK UP PARTITION BASE ADDRESS (P.REL) CALL DIV64 ;CONVERT TO 32 WORD BLOCKS SUB R1,(SP) ;SUBTRACT FROM SYSTEM SIZE .IFTF BCS 78$ ;IF CS MEMORY NOT THERE MOV (R2),R1 ;PICK UP PARTITION SIZE IN BYTES (P.SIZE) .IFF CALL DIV64 ;CONVERT TO 32 WORD BLOCKS .ENDC SUB R1,(SP)+ ;SUBTRACT FROM SYSTEM SIZE BCS 78$ ;IF CS MEMORY NOT THERE BR 126$ ;PJK058 ; ; CHECK IF TASK WILL FIT IN PARTITION ; 125$: MOV (R2),R1 ;PARTITION SIZE (P.SIZE) ;PJK058 ;PJK058 .IF NDF M$$MGE ;PJK058 ;PJK058 CALL DIV64 ;CONVERT TO 32 WORD BLOCKS ;PJK058 ;PJK058 .ENDC ;M$$MGE ;PJK058 ;PJK058 126$: ;PJK058 CMP (R5),R1 ;MAX. TASK SIZE > PARTITION SIZE? (L$BMXZ) BLOS 130$ ;IF LOS THEN OK TRAP ER.BIG ;TASK TOO LARGE FOR PARTITION 130$: BIT #TS$NHD,R4 ;LIBRARY OR COMMON BLOCK? BNE 220$ ;IF NE YES BIT #TS$PRV,R4 ;PRIVILEGED TASK? .IF DF M$$MGE BEQ 140$ ;IF EQ NO .IFF BEQ 220$ ;IF EQ NO .IFTF BIS #T3.PRV,T.ST3-T.NAM(R3) ; SET PRIVILEGED BIT IN TCB .IFF CMP (R2),#60000 ;PARTITION SIZE > 12K? (P.SIZE) BLOS 220$ ;IF LOS NO TRAP ER.PSZ ;PARTITION TOO LARGE FOR PRIVILEGED TASK .IFT 140$: MOV (SP),R1 ;GET BASE ADDRESS OF TASK MOV #17777,-(SP) ;PUSH CONSTANT OF 4K-1 ONTO STACK BIT (SP),R1 ;TASK START ON 4K BOUNDARY? BEQ 160$ ;IF EQ YES TRAP ER.NBA ;INVALID BASE ADDRESS 160$: ASL R1 ;CALCULATE FIRST APR ROL R1 ; ROL R1 ; ROL R1 ; MOV #8.,R0 ;ASSUME TASK IS NOT PRIVILEGED ; ; A PRIVILEGE TASK WITHOUT THE EXECUTIVE RESIDENT CAN ; HAVE AN APR OF ZERO ; TST R1 ;BASE = 0? BEQ 210$ ;IF EQ YES- APR CAN BE ZERO BIT #TS$PRV,R4 ;TASK PRIVILEGED? BEQ 170$ ;IF EQ NO - ERROR ; ; IF R$$EXV IS DEFINED THEN AN EXTENDED EXECUTIVE EXISTS ; - FIRST APR MUST BE 5 OR 6. ; .IF DF R$$EXV CMP R1,#5 ;FIRST APR CANNOT BE LESS THEN 5 .IFF CMP R1,#4 ;FIRST APR CANNOT BE LESS THAN 4 .ENDC ;STARTING ADDRESS THE SAME BGE 180$ ;IF GE THEN OK 170$: TRAP ER.APR ;INVALID FIRST APR 180$: CMP R1,#6 ;FIRST APR MUST NOT BE GREATER THAN 6 BGT 170$ ;IF GT ERROR DEC R0 ;REDUCE NUMBER OF APRS FOR PRIVILEGED TASK 210$: SUB R1,R0 ;CALCULATE NUMBER OF APR'S REQUIRED ;EF006 .IF DF P$$LAS ;EF006 ;EF006 MOV -2(R5),R1 ;GET LOAD SIZE FOR CALCULATING APRS NEEDED ;EF006 ;EF006 .IFF ;EF006 ;EF006 MOV (R2),R1 ;PICK UP PARTITION SIZE (P.SIZE) ;PJK052 .ENDC ;PJK052 ;PJK052 215$: CALL MUL64 ;CONVERT P.SIZE TO BYTES OR ;EF006 ;LOAD SIZE FOR OVERLAID TASKS ;EF006 ADD (SP),R1 ;ROUND UP TO 4K BOUNDARY ;**-1 BIC (SP)+,R1 ;FINISH ROUNDING AND POP CONSTANT ROL R1 ;CALCULATE APR'S NEEDED TO MAP PARTITION ROL R1 ; ROL R1 ; ROL R1 ; CMP R1,R0 ;ENOUGH APR'S FOR TASK? BLE 230$ ;IF LE YES TRAP ER.NAP ;NOT ENOUGH APR'S FOR TASK .IFTF 220$: ;REFERENCE LABEL ; ; CHECK PARTITION BASE ADDRESS AND TASK STARTING ADDRESS ; .IFF CMP (SP),P.REL-P.SIZE(R2) ;BASE ADDRESS & START THE SAME? ; (L$BSA) BEQ 230$ ;IF EQ YES TRAP ER.BMM ;TASK AND PARTITION BASE MISMATCH .ENDC ; ; PUT MAXIUM TASK SIZE IN TCB ; 230$: MOV (R2),T.MXSZ-T.NAM(R3) ;PUT MAX. TASK SIZE IN TCB (L$BMXZ) ; ; SAVE TASK AND PARTITION PARAMETERS ; MOV #$TSKSZ,R1 ;POINT TO SAVE AREA MOV (R5)+,(R1) ;PICK UP TASK SIZE IN ;32-WORD BLOCKS (L$BMXZ)($TSKSZ) SWAB (R1) ;CONVERT TO BYTES ASRB (R1) ; ROR (R1) ; ROR (R1)+ ; MOV (SP),(R1)+ ;SAVE BASE ADDRESS OF TASK ($TKBSA) MOV L$BHRB-L$BOFF(R5),(R1) ;HEADER RELATIVE BLOCK ($HDRBK) SUB L$BBLK-L$BOFF(R5),(R1)+ ; AND MAKE IT RELATIVE TO LAST ; LABEL BLOCK ($HDRBK) MOV L$BBLK-L$BOFF(R5),(R1)+ ;BLOCKS IN TABLE ($TBLBK) MOV P.REL-P.SIZE(R2),(R1) ;PICK UP PARTITION ;RELOCATION BIAS ($PARRL) ADD (R5),(R1)+ ;ADD PARITION OFFSET ; ; NOTE THAT A POINTER TO THE PCB FOR THE PARTITION FOR THE TASK HAS ALREADY ; BEEN MOVED TO $LBLBF. IN THE FOLLOWING CODE DATA WILL BE MOVED INTO SUCCEEDING ; LOCATIONS IN THE LABEL BUFFER. EVENTUALLY THE ENTIRE BLOCK OF DATA WILL BE ; MOVED INTO THE TASK HEADER IN THE TASK'S PARTITION. INDIRECT REFERENCES ; INTO THE LABEL BUFFER THROUGH R0 WILL BE LABLED IN THE COMMENT FIELD BY THE ; OFFSET IN THE HEADER WHERE THEY WILL END UP. ; CLR NUMLIB ;INITIALIZE LIBRARY COUNT ;EF006 .IF DF P$$LAS ;EF006 ;EF006 MOV #$WNDBF+2,R0 ;POINT TO SECOND WORD OF WINDOW BUFFER ;EF006 MOV $PCB,(R0)+ ;PUT PCB ADDRESS IN W.BPCB ;EF006 ;EF006 .IFF ;EF006 ;EF006 MOV #$LBLBF+4,R0 ;POINT R0 TO THIRD WORD OF LABEL BUFFER ;EF006 .ENDC ;EF006 ;EF006 BIT #TS$NHD,R4 ;LIBRARY OR COMMON BLOCK? BEQ 240$ ;IF EQ NO JMP OTLLBC ;YES- 240$: MOV (SP),(R0)+ ;MOVE TASK BASE ADDR. (W.BLVR) .IF DF M$$MGE ;EF006 .IF DF P$$LAS ;EF006 ;EF006 TST $SGMT ;TASK OVERLAID? ;EF006 BEQ 243$ ;EQ => NO ;EF006 MOV L$BLDZ-L$BOFF(R5),R1 ;USE TASK LOAD SIZE FOR W.BHVR ;EF006 BR 245$ ; ;EF006 ;EF006 .ENDC ;EF006 243$: MOV (R2),R1 ;GET SIZE (P.SIZE) ;EF006 245$: CALL MUL64 ;CONVERT TO BYTES ;EF006 MOV R1,(R0) ;CALCULATE LAST VIRTUAL ADDRESS ;**-2 .IFF MOV (R2),(R0) ;CALCULATE LAST VIRTUAL ADDRESS ;(P.SIZE)(W.BHVR) .IFTF 246$: ADD (SP),(R0) ;ADD TASK BASE ADDR (W.BHVR) ;EF006 DEC (R0)+ ;(W.BHVR) ;**-1 .ENDC .IF DF P$$LAS MOV R4,-(SP) ;SAVE FLAGS MOV #AS.RED!AS.WRT,R4 ;SET ACCESS CODE (R/W) ;PJK064 CALL SETATT ;GET ADDRESS OF ATTACHMENT DESCRIPTOR ;**-1 MOV (SP)+,R4 ;RESTORE FLAG WORD .IFF CLR (R0)+ ;ADDRESS OF ATTACHMENT DESCRIPTOR (W.BTT) .ENDC ;EF006 .IF DF P$$LAS ;EF006 ;EF006 TST $SGMT ;TASK OVERLAID? ;EF006 BEQ 247$ ;EQ => NO ;EF006 MOV L$BLDZ-L$BOFF(R5),(R0)+ ;USE TASK LOAD SIZE FOR W.BSIZ ;EF006 BR 249$ ; ;EF006 ;EF006 .ENDC ;EF006 ;EF006 247$: MOV (R2),(R0)+ ;SIZE OF WINDOW (P.SIZE) (W.BSIZ) ;EF006 249$: MOV (R5)+,(R0)+ ;PHYSICAL MEMORY OFFSET (L$BOFF)(W.BOFF) ;EF006 CLR $LBLBF ;CLEAR GARBAGE OUT OF HIGH BYTE ;**-2 MOVB (R5)+,$LBLBF ;SAVE NUMBER OF ADDRESS WINDOWS (L$BWND) CMPB #MXWBLK,$LBLBF ;MORE THAN 8. WINDOW BLOCKS BHIS 250$ ;IF HIS, THEN < 8. WINDOW BLOCKS TRAP ER.IWB ;TOO MANY WINDOWS 250$: CMPB #RMPTKB,(R5)+ ;TASK BUILT FOR RSX-11MP (L$BSYS) BNE 260$ ;IF EQ, NO TRAP ER.TKB ;BUILT FOR WRONG SYSTEM 260$: .IF DF M$$MGE MOV (SP),(R0) ;MOVE IN BASE ADDRESS (W.BFPD) CALL SETAPR ;SET APR ;PJK063 .IF DF P$$LAS ;PJK063 ;PJK063 MOV L$BLDZ-L$BSEG(R5),(R0) ;USE LOAD SIZE TO CALCULATE PDRS ;PJK063 ;PJK063 .IFF ;PJK063 ;PJK063 MOV (R2),(R0) ;GET MAX LENGTH ;PJK063 .ENDC ;PJK063 ;PJK063 CALL SETPDR ;CALCULATE NUMBER OF PDR'S ;AND CONTENTS OF LAST PDR .IFF CLR (R0)+ ;CLEAR APR AND ACCESS CODE FIELDS CLR (R0)+ ;CLEAR CONTENTS OF LAST PDR (L$BLPD) .ENDC TST (SP)+ ;POP BASE ADDRESS- CLEAN STACK ; ; PROCESS LIBRARY REFERENCES ; .ENABL LSB ADD #L$BLIB-L$BSEG,R5 ;POINT TO LIBRARY ENTRIES OTLLIB: TST (R5) ;END OF LIBRARY REFERENCE BLKS.(R$LNAM) BEQ 140$ ;IF EQ YES MOV $PARHD,R2 ;ELSE POINT TO FIRST PCB INC NUMLIB ;COUNT LIBRARIES 20$: CMP (R5),P.NAM(R2) ;CHECK IF COMMON BLOCK MATCHES ;PARTITION NAME (R$LNAM) BNE 30$ ;IF NE NO CMP +2(R5),P.NAM+2(R2) ;(R$LNAM) BEQ 40$ ;IF EQ MATCH 30$: MOV (R2),R2 ;POINT TO NEXT PCB (P.LNK) BNE 20$ ;BR IF ONE TRAP ER.NCB ;ELSE ERROR, INVALID COMMON BLOCK 40$: MOV P.STAT(R2),R3 ;SAVE STATUS BIT #PS.COM,R3 ;COMMON PARTITION? BNE 50$ ;IF NE YES TRAP ER.CTP ;ELSE COMMON BLOCK IS TASK PARTITION 50$: BITB P.BUSY(R2),P.BUSY+1(R2) ;COMMON BLOCK LOADED? BNE 60$ ;IF NE YES TRAP ER.CNL ;ELSE COMMON BLOCK NOT LOADED ERROR ; ; CHECK LIBRARY PARAMETERS ; 60$: MOV P.SIZE(R2),R1 ;PICK UP PARTITION SIZE .IF NDF M$$MGE CALL DIV64 ;CONVERT TO 32-WORD BLOCKS .ENDC CMP R$LMXZ(R5),R1 ;PARTITION LARGE ENOUGH?(R$LMXZ) BLOS 70$ ;IF LOS YES TRAP ER.CBL ;COMMON BLOCK LENGTH MISMATCH 70$: CMP (R5)+,(R5)+ ;POINT TO START OF ADDRESS BLOCK(R$LSA) .IF DF M$$MGE .IFF CMP P.REL(R2),(R5) ;BASE ADDRESS SAME? (R$LSA) BEQ 90$ ;IF EQ YES 80$: TRAP ER.CBB ;COMMON BLOCK BASE MISMATCH 90$: .ENDC ; ; SET UP PARTITION DESCRIPTOR FOR TASK HEADER ; .IF DF P$$LAS ;EF006 ;EF006 MOV #$LIBBF,R0 ;POINT TO LIBRARY WINDOW BUFFER ;EF006 ;EF006 .ENDC ;EF006 ;EF006 MOV R2,(R0)+ ;STORE PCB ADDRESS (W.BPCB) MOV (R5),(R0)+ ;STORE LOW VIRTUAL ADDRESS(R$LSA)(W.BLVR) .IF DF M$$MGE MOV P.SIZE(R2),R1 ;GET PARTITION SIZE CALL MUL64 ;CONVERT TO BYTES MOV R1,(R0) ;SET HIGH VIRTUAL ADDR4ESS (W.BHVR) .IFF MOV P.SIZE(R2),(R0) ;SET HIGH VIRTUAL ADDR. (W.BHVR) .IFTF ADD (R5)+,(R0) ;COMPLETE HIGH VIRTUAL ADDR.(R$LSA)(W.BHVR) DEC (R0)+ ;(W.BHVR) .ENDC .IF DF P$$LAS MOV R4,-(SP) ;SAVE FLAGS MOV #AS.RED!AS.WRT,R4 ;SET ACCESS CODE (R/W) ;PJK064 BIT #LD$ACC,R$LFLG-R$LHGV(R5) ;READ ONLY ACCESS? ;**-1 BNE 95$ ;IF NE NO MOV #AS.RED,R4 ;SET ACCESS CODE (R) ;PJK064 95$: ;**-1 CALL SETATT ;GET ADDRESS OF ATTACHMENT DESCRIPTOR MOV (SP)+,R4 ;RESTORE FLAG WORD .IFF CLR (R0)+ ;ADDR. OF ATTACHMENT DESCRIPTOR (W.BATT) .ENDC ADD #R$LOFF-R$LHGV,R5 ;POINT TO LIBRARY OFFSET MOV P.SIZE(R2),(R0)+ ;SIZE OF WINDOW (P.SIZE)(W.BSIZ) MOV (R5)+,(R0)+ ;LIBRARY OFFSET IN PARTITION (R$LOFF) ;(W.BOFF) ADD (R5)+,$LBLBF ;LIBRARY ADDRESS WINDOWS(R$LWND) CLRB $LBLBF+1 ;EF002 .IF DF M$$MGE MOV R$LSA-R$LSEG(R5),(R0) ;SET TO CALCULATE APR (W.BFPD) CALL SETAPR ;CALCULATE AND POP R0 MOV P.SIZE(R2),(R0) ;GET MAX. SIZE CALL SETPDR ;CALCULATE NUMBER OF PDR'S AND ;CONTENTS OF LAST PDR .IFF CLR (R0)+ ;CLEAR APR (W.BFPD) CLR (R0)+ ;CLEAR CONTENTS OF PDR (W.BLPD) .IFT TST -(R0) ;POINT BACK TO APR BYTE (W.BLPD) TST (R5)+ ;SKIP TO FLAG WORD (R$LSEG) MOVB -2(R0),R1 ;PICK UP APR BYTE (W.BFPD) BIT #PS.PIC,R3 ;COMMON BLK PIC? BEQ 110$ ;IF EQ NO BIT #LD$REL,(R5) ;TASK EXPECTING PIC? (LIBFLG) BNE 120$ ;IF NE YES 100$: TRAP ER.CBP ;COMMON BLOCK PARAMETER MISMATCH 110$: BIT #LD$REL,(R5) ;TASK EXPECTIN PIC? (LIBFLG) BNE 100$ ;IF NE YES, ERROR SUB #UISDR0,R1 ;RECALCULATE APR NUMBER ASRB R1 ; BIC #177770,R3 ;EXTRACT APR NUMBER FROM PCB STATUS CMPB R3,R1 ;PARTITION APR MATCH LABEL BLOCK APR? BEQ 120$ ;IF EQ YES TRAP ER.CBB ;ELSE ERROR 120$: BIT #LD$ACC,(R5)+ ;READ/WRITE ACCESS? (LIBFLG) BNE 130$ ;IF NE YES, ALREADY SET MOVB #2,(R0) ;ELSE SET FOR READ ONLY (H.PCBC+7) 130$: TST (R0)+ ;BUMP POINTER TO NEXT LIBRARY BLOCK .IFF CMP (R5)+,(R5)+ ;MOVE TO DATE (R$LSEG)(R$LFLG) .ENDC CMP (R5)+,(R5)+ ;SKIP TO NEXT LIBRARY ENTRY TST (R5)+ ;(R$LDAT) BR OTLLIB ;GET NEXT LIBRARY ENTRY 140$: .IF DF P$$LAS ;EF006 ;EF006 MOV $LBLBF,$WNDBF ;MOV #WINDOWS TO WINDOW BUFFER ;EF006 ;EF006 .ENDC ;EF006 ;EF006 MOV $LBLBF,$NWNDS ;SAVE TOTAL NUM. OF WINDOWS REQUIRED BY TASK MOV $LBLBF,R1 ;CALCULATE NUMBER OF WINDOWS SUB NUMLIB,R1 ;STILL NEEDED DEC R1 ;SUBTRACT ONE FOR TASK BEQ 160$ ;IF EQ NO EXTRA WINDOWS 150$: CLR (R0) ;CLEAR PCB ADDRESS (W.BPCB) ;PJK045 CLR W.BSIZ(R0) ;NEED ONLY CLEAR WINDOW SIZE ADD #WBLKS,R0 ;MOVE TO NEXT WINDOW DEC R1 ;MORE? BNE 150$ ;IF NE YES 160$: .IF NDF P$$LAS ;EF006 ;EF006 SUB #$LBLBF,R0 ;SIZE OF TRANSFER MOV R0,R2 ;MOVE INTO PLACE FOR TRANSFER ;EF006 .IFF ;EF006 ;EF006 MOV #,R2 ;MOVE WINDIW 0 PLUS PREVIOUS WORD (#WINDOWS) ;EF006 ;EF006 .ENDC ;EF006 ;EF006 MOV #$LBLBF+L$BLUN,R5 ;ADDRESS OF LUN COUNT MOV (R5),R5 ;GET NUMBER OF LUNS ASL R5 ;CHANGE TO BYTES ASL R5 ; ADD #H.LUN,R5 ;FIND END OF LUN TABLE IN HEADER ; ; MOVE THE PARTITION AND COMMON BLOCK INFORMATION INTO PLACE IN HEADER ; .IF DF P$$LAS ;EF006 ;EF006 MOV #$WNDBF,R0 ;POINT TO WINDOW BUFFER ;EF006 ;EF006 .IFF ;EF006 MOV #$LBLBF,R0 ;POINT TO BUFFER ;EF006 .ENDC ;EF006 MOV #$PARRL,R1 ;POINT TO FIRST WORD OF ADDRESS DOUBLE WORD .IF DF M$$MGE MOV #140000,2(R1) ;SET BASE ADDRESS ADD R5,2(R1) ;ADD OFFSET TO BASE ;PJK052 ;PJK052 ;PJK052 .IF DF P$$LAS ;PJK052 ;PJK052 ;PJK052 CALL .BLXO ;TRANSFER WINDOW 0 TO HEADER IN TASK REGION ;PJK052 ADD R2,2(R1) ;POINT PAST WINDOW 0 ;PJK052 MOV $LBLBF,-(SP) ;GET #WINDOWS FOR TASK REGION ;PJK052 DEC (SP) ;SUBTRACT WINDOW 0 ;PJK052 BEQ 170$ ;EQ => NO WINDOWS LEFT TO MOVE ;PJK052 ASL (SP) ;CALCULATE # TASK WINDOWS ;PJK052 ASL (SP) ;LEFT IN HEADER ;PJK052 ASL (SP) ; ;PJK052 ASL (SP) ;CONVERT TO BYTES ;PJK052 170$: ADD (SP)+,2(R1) ;MOVE LIB ENTRIES PAST TASK WINDOWS ;PJK052 SUB $LBLBF,$WNDBF ;GET # LIB WINDOWS TO XFER ;PJK052 ;$WNDBF NO LONGER NEEDED ;PJK052 BEQ 200$ ;EQ => NO LIB ENTRIES TO XFER ;PJK052 MOV $WNDBF,R2 ;GET # LIB WINDOWS AND ;PJK052 ASL R2 ;CONVERT TO BYTES ;PJK052 ASL R2 ; ;PJK052 ASL R2 ; ;PJK052 ASL R2 ; ;PJK052 MOV #$LIBBF,R0 ;PJK052 MOV #$PARRL,R1 ; ;PJK052 CALLR .BLXO ;TRANSFER AND RETURN TO CONTROL LOOP ;PJK052 200$: RETURN ;RETURN TO CONTROL LOOP ;PJK052 ;PJK052 ;PJK052 .IFF ;PJK052 ;PJK052 CALLR .BLXO ;TRANSFER AND RETRUN TO CONTROL LOOP ;PJK052 ;PJK052 .ENDC ;PJK052 ;PJK052 ;PJK052 .IFF MOV (R1),2(R1) ;SET BASE ADDRESS ADD R5,2(R1) ;ADD OFFSET TO BASE ;PJK052 CALLR .BLXO ;TRANSFER AND RETURN TO CONTROL LOOP ;PJK052 .ENDC .DSABL LSB ;**-2 ; ; PROCESS LIBRARY LOAD ; OTLLBC: CMP P.NAM-P.SIZE(R2),(R3)+ ;LIBRARY NAME SAME AS PARTITION NAME? ; (T.NAM) BEQ 10$ ;IF EQ MAYBE 5$: TRAP ER.CBP ;ELSE COMMON BLOCK PARAMETER MISMATCH 10$: CMP P.NAM+2-P.SIZE(R2),(R3) ;(T.NAM+2) BNE 5$ ;IF NE NO MOV $LBLBF,T.PCB-T.NAM-2(R3) ;SET PCB POINTER IN TCB TO FREE ; PARTITION ON ERROR ADD #P.BUSY-P.SIZE,R2 ;POINT TO BUSY MASK IN PCB MOV P.MAIN-P.BUSY(R2),R1 ;POINT TO MAIN PARTITION BISB (R2),P.BUSY+1(R1) ;SET MAIN PARTITION BUSY (P.BUSY) BISB (R2)+,(R2)+ ;SET SUBPARTITION BUSY (P.BUSY)(P.BUSY+1) ADD #P.STAT-P.TCB,R2 ;POINT TO PARTITION STATUS BICB #PS.PIC,(R2) ;ASSUME NOT PIC (P.STAT) BIT #TS$PIC,R4 ;IS COMMON BLOCK PIC? .IF DF M$$MGE BEQ 20$ ;IF EQ NO .IFF BEQ 30$ ;IF EQ NO .IFTF BISB #PS.PIC,(R2) ;SET PIC BIT IN PCB (P.STAT) .IFT 20$: MOV (SP)+,(R0) ;DEPOSIT START ADDRESS IN BUFFER CALL SETAPR ;CALCULATE APR BYTE AND ACCESS CODE SUB #UISDR0,-(R0) ;RETRIEVE APR NUMBER ASRB (R0) ; BICB #PS.APR,(R2) ;CLEAR FIRST APR ENTRY (P.STAT) BISB (R0),(R2) ;AND SET NEW ONE IN PCB (P.STAT) .IFTF 30$: .IFF TST (SP)+ ;POP BASE ADDRESS OF STACK .IFTF RETURN .IFF ; ; DIV64 - DIVIDE NUMBER IN R1 BY 64 (LOW 6 BITS ASSUMED TO BE CLEAR) ; DIV64: ASL R1 ROL R1 ROLB R1 SWAB R1 RETURN .ENDC ; ; SETAPR - CALCULATE APR AND SET ACCESS CODE OF 6 ; ; THE ADDRESS IN THE LOCATION POINTED TO BY R0 IS CONVERTED TO AN APR NUMBER ; IN THE LOW BYTE OF THE WORD POINTED TO BY R0 AND AN ACCESS CODE OF 6 IS PLACED ; IN THE HIGH BYTE. R0 POINTS TO THE FOLLOWING WORD ON EXIT ; .IF DF M$$MGE SETAPR: ROL (R0) ;CALCULATE APR ROL (R0) ROL (R0) ROL (R0) ROL (R0) ;CONVERT TO WORD OFFSET BIC #177761,(R0) ;CLEAR ALL BUT APR NUMBER * 2 ADD #UISDR0,(R0)+ ;CONVERT TO POINTER INTO USER APR TABLE RETURN ; ;SETPDR - CALCULATE THE NUMBER OF PDR'S NEEDED TO MAP ; AND THE CONTENTS OF THE LAST APR ; ; THE SIZE IN THE LOCATION POINTED TO BY R0 IS CONVERTED TO THE ; NUMBER OF PDR'S NEEDED AND THE CONTENTS OF THE LAST PDR. THE NUMBER ; OF PDR'S IS PUT IN THE BYTE PRECEEDING THE WORD POINTED TO BY R0 AND THE ; CONTENTS OF THE LAST PDR IS PUT IN THE WORD POINTED TO BY R0. ; ON RETURN R0 IS POINTING TO THE NEXT WORD. ; SETPDR: DEC (R0) ;CALCULATE THE LOAD SIZE MINUS ONE ASL (R0) ;SHIFT APR'S REQUIRED MINUS ONE TO HIGH BYTE RORB (R0) ;LEN. OF LAST RANGE MINUS ONE IN LOW BYTE MOVB +1(R0),-1(R0) ;MOVE INTO PLACE (W.BNPD) SWAB (R0) ;IN HIGH BYE INCB -1(R0) ;CALCULATE APR'S REQUIRED MOVB #6,(R0) ;INSERT ACCESS CODE TST (R0)+ ;INCREMENT TO NEXT WORD RETURN ; ; .IF DF P$$LAS ; ; ; ; SETATT - GET ADDRESS OF ATTACHMENT DESCRIPTOR AND STORE ; IN THE POINTED TO BY R0. ON RETURN R0 WILL BE POINTING TO THE NEXT WORD. ; ; INPUT: ; R4 = ACCESS CODE ; SETATT: MOV R2,-(SP) ;SAVE REGISTER MOV R5,-(SP) ;SAVE MOV R0,-(SP) ;SAVE MOV $TCB,R5 ;GET ADDRESS OF TCB MOV $LBLBF+2,R2 ;GET ADDRESS OF PCB CALL $CRATT ;CREATE ATTACHMENT DESCRIPTOR BCC 10$ ;IF CC ATTACHMENT DESCRIPTOR WAS ALLOCATED TRAP ER.POL ;NONE ALLOCATED 10$: INCB A.MPCT(R1) ;INCREMENT MAP COUNT ;EF028 MOV (SP)+,R0 ;RESTORE MOV R1,(R0)+ ;STORE ADDRESS OF DESCRIPTOR MOV (SP)+,R5 ;RESTORE MOV (SP)+,R2 ;RESTORE RETURN .ENDC ;EF006 ;EF006 .IF DF D$$YNM ;EF006 ;EF006 ; ;EF006 ; FIND -- THIS ROUTINE ALLOCATES A PCB FOR THE TASK SUB-PARTITION ;EF006 ; AND CALLS $FNDSP TO ALLOCATE SPACE WITHIN THE SYSTEM-CONTROLLED ;EF006 ; PARTITION. ;EF006 ; ;EF006 ; INPUTS: ;EF006 ; R2 -- POINTER TO MAIN PCB ;EF006 ; ;EF006 ; ALL REGISTERS ARE PRESERVED ;EF006 ; ;EF006 ;EF006 FIND: ;EF006 JSR PC,$SAVAL ;SAVE ALL REGISTERS ;EF006 MOV #P.LGTH,R1 ;SET PCB LENGTH ;EF006 MOV R2,R5 ;SAVE POINTER TO MAIN PCB IN R5 ;EF006 CALL $SWSTK,10$ ;SWITCH TO SYSTEM STATE ;EF006 CALL $ALOCB ;ALLOCATE A PCB ;EF006 MOV R0,$PCB ;SAVE ADDRESS OF PCB ;EF006 BCC 5$ ;C = 0, RETURN ;EF006 CLR $PCB ;ALLOCATION FAILURE ;EF006 ;EF006 ;EF006 5$: RETURN ;IN USER STATE AGAIN ;EF006 ;EF006 10$: MOV $PCB,R0 ;PICK UP PCB ADDRESS ;EF006 BNE 15$ ;BLOCK SUCCESSFULLY ALLOCATED ;EF006 TRAP ER.POL ;INSUFFICIENT POOL ;EF006 ;EF006 15$: ADD R1,R0 ;POINT PAST PCB ;EF006 ASR R1 ;CHANGE BYTE TO WORD COUNT ;EF006 20$: CLR -(R0) ;AND CLEAR ;EF006 DEC R1 ; ;EF006 BNE 20$ ; ;EF006 ;EF006 ;EF006 MOV P.NAM(R5),P.NAM(R0) ;PUT MAIN PCB NAME ;EF006 MOV P.NAM+2(R5),P.NAM+2(R0) ;INTO ALLOCATED SUB-PCB ;EF006 MOV $TKSZ,P.SIZE(R0) ;PUT SIZE IN SUB-PCB ;EF006 ;EF006 ;EF006 CALL $SWSTK,100$ ;SWITCH TO SYSTEM STATE ;EF006 MOV R0,R4 ;USE R4 AS POINTER TO ALLOCATED PCB ;EF006 CALL $FNDSP ;ALLOCATE SPACE IN MAIN PARTITION ;EF006 MOV @$HEADR,R2 ;MOVE USER PS INTO R2 SO ;EF006 ADC 6(R2) ;THAT C BIT CAN BE PRESERVED FOR ;EF006 ;SUCCESSFUL ALLOCATION TEST ;EF006 ;EF006 BIT #1,6(R2) ;BIT SET MEANS ALLOCATION FAILURE, ;EF006 BNE 100$ ;NE => SET, RETURN AND TRAP ;EF006 MOV $TCB,R1 ;PICK UP TCB ADDRESS ;EF006 MOV $PCB,R0 ;PICK UP SUB-PCB ADDRESS ;EF011 MOV R0,T.PCB(R1) ;PUT PCB POINTER IN TCB ;EF011 MOV R1,P.TCB(R0) ;PUT TCBú ADDRESS IN SUB-PCB ;EF006 MOV R5,P.MAIN(R0) ;PUT MAIN-PCB ADDRESS IN SUB-PCB ;EF006 ;EF006 ;EF006 120$: RETURN ;RETURN TO USER STATE OR TO OTLLB ;EF006 100$: ;EF006 BCC 120$ ;TEST PRESERVED C BIT -- C=0 =>SUCCESS ;EF006 TRAP ER.PBS ;C=1, TRAP -- PARTITION BUSY ;EF006 ;EF006 ;EF006 .ENDC ;EF006 ; ; MUL64 - MULITPLY NUMBER IN R1 BY 64 ; MUL64: SWAB R1 ASRB R1 ROR R1 ROR R1 RETURN .ENDC .END úì` KkQ›c, .TITLE OTLLD .IDENT /01.03/ ; ; COPYRIGHT (C) 1975, 1981 ; DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION: 01.03 ; BY: THOMAS J MILLER ; DATE: 2/4/75 ; ; OTLLD - LOAD DEVICE INITIATOR FOR THE RSX-11S ONLINE TASK LOADER ; ; PREVIOUSLY MODIFIED BY: ; ; J.M. MATTHEWS ; ; MODIFIED BY: ; ; E.A. FLOYD 3-JAN-80 ; EF001 -- RT FORMAT SUPPORT ADDED FOR TU58 AND RX02 ; ; P.J. KOBAR 8-JUL-81 ; PJK065 -- CORRRECT SPELLING OF E$SIZ FOR TS11 ; ; ; ; MACRO LIBRARY CALLS ; .MCALL ALUN$,DIR$,GLUN$ ; ; DEVICE CHARACTERISTICS BIT MASKS ; CB.FB== 1 ;RECORDS ARE IN FORMATTED BINARY CB.FIL==2 ;FILE NAME REQUIRED CB.SBR==4 ;SINGLE-BLOCK READS REQUIRED LUN1=1 ;LUN 1 E$SIZ=0 ;INITIALIZE TABLE ENTRY SIZE ; ; LOCAL DATA ; ; I/O ROUTINE DRIVING PARAMETERS ; $FLGS:: .BLKW 1 ;DEVICE CHARACTERISTICS FLAGS ; ; DPB'S FOR SETTING UP LOAD DEVICE ; GLUN1: GLUN$ LUN1,$FBBUF ;GET LUN INFORMATION DPB FOR CHECKING REDIRECTION ALUN1: ALUN$ LUN1 ;DEVICE AND UNIT FILLED IN BY PARSER (SEE BELOW) ; ; DESTINATION FOR INFORMATION FROM PARSER. NOTE THAT DEVICE NAME AND UNIT ; ARE PLACED IN THE ASSIGN LUN DPB ; $FLBLK==ALUN1+A.LUNA ;FILE SPECIFIER BLOCK .BLKW 3 ; .IF DF TC11!RX11!TU58!RX21 ;EF001 ;**-1 .WORD 2000 ;RT PERMANENT FILE ENTRY CODE .ENDC $FLRAD::.BLKW 3 ;FILE NAME RAD50 ; ; TABLE OF VALID LOAD DEVICE BLOCKS ; ; THE FORMAT OF EACH DEVICE BLOCK IS: ; WORD0= DEVICE NAME IN ASCII ; WORD1= DEVICE CHARACTERISTICS FLAGS ; WORD2= ADDRESS OF DEVICE INITIATION ROUTINE ; WORD3= DEVICE-SPECIFIC PARAMETER ; ; NOTE: ; THE DEVICE BLOCKS MUST BE ORDERED ALPHABETICALLY BY THE DEVICE ; NAME ASCII REVERSED. THUS, FOR EXAMPLE, PR PRECEDES CT. ; $LODTB:: .IF DF TU58 XXX= . .ASCII /DD/ .WORD CB.FIL .WORD DDINI .WORD 6 ;DIRECTORY START BLOCK E$SIZ= .-XXX .ENDC .IF DF TU16 XXX= . .ASCII /MM/ .WORD CB.FIL!CB.SBR .WORD MTINI .WORD 14. ;LABEL BLOCK SIZE E$SIZ= .-XXX .ENDC .IF DF PR11 XXX= . .ASCII /PR/ .WORD CB.FB .WORD PRINI .WORD 0 ;DEVICE-SPECIFIC PARAMETER NOT USED E$SIZ= .-XXX .ENDC .IF DF TS11 XXX= . .ASCII /MS/ .WORD CB.FIL!CB.SBR .WORD MTINI .WORD 14. ;LABEL BLOCK SIZE E$SIZ= .-XXX ;PJK065 ;**-1 .ENDC .IF DF TA11 XXX= . .ASCII /CT/ .WORD CB.FIL!CB.SBR .WORD CTINI .WORD 32. ;LABEL BLOCK SIZE E$SIZ= .-XXX .ENDC .IF DF TC11 XXX= . .ASCII /DT/ .WORD CB.FIL .WORD DTINI .WORD 6 ;DIRECTORY START BLOCK E$SIZ= .-XXX .ENDC .IF DF TM11 XXX= . .ASCII /MT/ .WORD CB.FIL!CB.SBR .WORD MTINI .WORD 14. ;LABEL BLOCK SIZE E$SIZ= .-XXX .ENDC .IF DF RX11 XXX= . .ASCII /DX/ .WORD CB.FIL .WORD DXINI .WORD 6 ;DIRECTORY START BLOCK E$SIZ= .-XXX .ENDC .IF DF RX21 XXX= . .ASCII /DY/ .WORD CB.FIL .WORD DYINI .WORD 6 ;DIRECTORY START BLOCK E$SIZ= .-XXX .ENDC .WORD -1 ;TABLE TERMINATOR ; ; *** - $OTLLD LOAD DEVICE INITIALIZATION ; ; THIS ROUTINE ASSUMES THAT THE ASSIGN LUN DPB IS ALREADY SET UP. IT ASSIGNS ; THE LOAD DEVICE LUN AND DOES A GET LUN INFORMATION TO ASCERTAIN WHAT THE ; (POSSIBLY REDIRECTED-TO) LOAD DEVICE IS. IT THEN SEARCHES THE LOAD DEVICE ; TABLE TO SEE IF THE SPECIFIED DEVICE IS A VALID LOAD DEVICE. IF IT IS THE ; TABLE ENTRY IS USED TO INITIALIZE THE FLAGS WORD AND CALL THE APPROPRIATE ; INITIALIZATION ROUTINE TO PREPARE THE DEVICE AND THE LOAD DEVICE DPB FOR ; READING THE FIRST LABEL BLOCK. IF THE FILE IS IN FORMATTED BINARY, THE ; FORMATTED BINARY BUFFER IS PRIMED. ; $OTLLD::DIR$ #ALUN1 ;ASSIGN THE SPECIFIED LOAD DEVICE BCC 10$ ;IF CC THEN SUCCESSFUL ASSIGN TRAP ER.DNS ;ELSE DEVICE NOT IN SYSTEM 10$: DIR$ #GLUN1 ;GET EFFECTIVE DEVICE NAME MOV #$LODTB-E$SIZ+2,R0 ;INITIALIZE LOAD TABLE POINTER 20$: ADD #E$SIZ-2,R0 ;POINT TO NEXT ENTRY CMP $FBBUF,(R0)+ ;FOUND ENTRY? BHI 20$ ;IF HI THEN NOT THERE YET BEQ 30$ ;FOUND ENTRY TRAP ER.NVD ;IF LT, THEN DEVICE NOT IN TABLE 30$: TST $FLRAD ;WAS FILE NAME SPECIFIED? BNE 40$ ;IF NE YES BIT #CB.FIL,(R0) ;ELSE FILE NAME REQUIRED? BEQ 40$ ;IF EQ NO TRAP ER.FRQ ;ELSE ERROR - FILE NAME REQUIRED 40$: MOV (R0)+,$FLGS ;INITIALIZE FLAGS WORD MOV (R0)+,-(SP) ;SAVE ADDRESS OF INITIALIZATION ROUTINE MOV (R0)+,R5 ;SAVE DEVICE SPECIFIC WORD IN R5 MOV #IO.ATT,$LQDPB+Q.IOFN ;SET FOR ATTACH FUNCTION CALL $QIOLR ;ATTACH DEVICE MOV #IO.RLB,$LQDPB+Q.IOFN ;SET FUNCTION FOR DEVICE READ .IF DF R$$FB CALL @(SP)+ ;CALL INITIALIZATION ROUTINE BIT #CB.FB,$FLGS ;FORMATTED BINARY DEVICE? BEQ PRINI ;IF EQ, NO RETURN MOV #$FBBUF,$LQDPB+Q.IOPL ;ELSE POINT DPB TO FORMATTED BINARY BUFFER MOV #80.,$LQDPB+Q.IOPL+2 ;SET BUFFER SIZE CALLR $READ1 ;PRIME THE FORMATTED BINARY BUFFER .IFF CALLR @(SP)+ ;CALL INITIALIZATION ROUTINE AND EXIT .ENDC .IF DF TA11 ; ; CASSETE INITIALIZATION ROUTINE ; CTINI: CALL TINI ;REWIND TAPE AND SET UP FOR COROUTINE 10$: CALL @(SP)+ ;READ NEXT FILE NAME MOV $FLBLK+6,R3 ;POINT TO PARSED FILE NAME MOV #6,R2 ;SET BYTE COUNT FOR COMPARE CALL COMPAR ;CHECK IF MATCH BCS 10$ ;GET NEXT FILE NAME IF NO MATCH MOV $FLBLK+10,R3 ;POINT TO PARSED EXTENSION MOV #3,R2 ;SET BYTE COUNT FOR COMPARE CALL COMPAR ;CHECK IF MATCH BCS 10$ ;GET NEXT FILE NAME IF NO MATCH CMPB (R4)+,(SP)+ ;POINT TO BLOCK SIZE AND POP STACK CMP (R1)+,(R1)+ ;POINT PAST CHARACTER COUNT IN $LQDPB MOVB (R4)+,-(R1) ;MOVE IN HIGH BYTE OF BLOCK SIZE MOVB (R4)+,-(R1) ;MOVE IN LOW BYTE MOV #512.,R4 ;SET SIZE OF LABEL BLOCK IN R4 ; ; MAKE SURE THAT BLOCK SIZE IS EVENLY DIVISIBLE INTO LABEL BLOCK SIZE. ; 20$: SUB (R1),R4 ;DECREASE LABEL BLOCK SIZE BY CASSETTE BLOCK SIZE BEQ 30$ ;IF EQ THEN OK (EVENLY DIVISIBLE) BGT 20$ ;IF GT THEN CONTINUE TRAP ER.BSZ ;INVALID BLOCK SIZE 30$: .IFTF ; ; PAPER TAPE INITIALIZATION ROUTINE (NO INITIALIZATION REQUIRED) ; PRINI: RETURN .IFT ; ; COMPAR - STRING COMPARISON ROUTINE ; ; INPUTS: ; ; R2=CHARACTER COUNT ; R3=PTR TO ASCIZ COMPARISON STRING ; R4=PTR TO FILE NAME READ FROM TAPE ; ; OUTPUTS: ; ; CC IF MATCH ; CS IF NO MATCH ; R2,R3 DESTROYED ; IF CC, R4 POINTS PAST LAST CHARACTER COMPARED IN FILE NAME READ ; COMPAR: CMPB (R4)+,(R3)+ ;COMPARE CHARACTER BEQ 10$ ;CONTINUE FI EQUAL CMPB -1(R4),#40 ;ELSE WAS LAST CHAR A SPACE? BNE 20$ ;IF NOT, DEFINATELY NO MATCH TSTB -(R3) ;AT END OF ASCIZ COMPARISON STRING? BNE 20$ ;IF NE NO, NO MATCH 10$: DEC R2 ;DECREMENT COUNT BNE COMPAR ;IF NE CONTINUE BR 30$ ;ELSE MATCH, RETURN WITH CC 20$: SEC 30$: RETURN .ENDC .IF DF TM11!TU16!TS11 ; ; MAGTAPE INITIALIZATION ROUTINE ; MTINI: CALL TINI ;REWIND TAPE AND SET UP COROUTINE MOV #IO.STC,(R5) ;SET FOR SET MAGTAPE CHARACTERISTICS FUNC MOV #4,(R1) ;SET UP CHARACTISTICS BIT CALL $QIOLR ;INITIATE FUNCTION 10$: CALL @(SP)+ ;GET NEXT FILE NAME MOV #$FLRAD,R3 ;POINT TO FILE RAD50 CMP (R4)+,(R3)+ ;COMPARE FILE NAME AND EXTENSION BNE 10$ ; CMP (R4)+,(R3)+ ; BNE 10$ ; CMP (R4)+,(R3)+ ; BNE 10$ ; CMP (R4)+,$FLBLK+4 ;COMPARE UICS BNE 10$ ; TST (SP)+ ;POP COROUTINE ADDRESS MOV #512.,$LQDPB+Q.IOPL+2 ;SET BUFFER COUNT FOR TASK IMAGE READ RETURN .ENDC .IF DF TA11!TM11!TU16!TS11 ; ; COMMON MAGTAPE INITIALIZATION ROUTINE. UPON THE FIRST CALL TO THIS ROUTINE ; THE TAPE IS REWOUND, THE DEVICE-SPECIFIC WORD OBTAINED FROM THE LOAD TABLE ; (THE LABEL BLOCK SIZE) IS STORED IN THE BYTE COUNT WORD OF THE LOAD DEVICE ; DPB AND REGISTERS R1 AND R5 ARE SET TO POINT TO THE FIRST PARAMETER WORD OF ; THE LOAD DEVICE DPB AND THE FUNCTION WORD OF THE LOAD DEVICE DPB,RESPECTIVELY ; SUCCEEDING COROUTINE CALLS RESULT IN THE NEXT LABEL BLOCK BEING READ FROM ; THE TAPE INTO $LBLBF. ; TINI: MOV R5,$LQDPB+Q.IOPL+2 ;MOVE IN COUNT FOR LABEL-BLOCK COUNT MOV #$LQDPB+Q.IOFN,R5 ;POINT TO FUNCTION CODE WORD IN DPB MOV #IO.RWD,(R5) ;SET FOR REWIND FUNCTION CALL $QIOLR ;REWIND TAPE MOV #$LQDPB+Q.IOPL,R1 ;POINT TO FIRST PARAMETER WORD IN DPB CALL @(SP)+ ;RETURN TO CALLER 10$: MOV #IO.RVB,(R5) ;SET FOR READ FUNCTION MOV #$LBLBF,R4 ;POINT TO LABEL BLOCK BUFFER MOV R4,(R1) ; AND SET IT IN THE DPB CALL $QIOL ;READ FILE LABEL BPL 15$ ;IF PL NO ERROR CMPB R0,#IE.EOF ;END OF FILE? BEQ 17$ ;IF EQ YES, FILE NOT FOUND TRAP ER.IOE ;ELSE I/O ERROR 15$: TST (R4) ;FILE NAME READ? BNE 20$ ;IF NE YES 17$: TRAP ER.NFL ;ELSE ERROR - FILE NOT FOUND 20$: CALL @(SP)+ ;RETURN TO CALLER WITH FILE NAME MOV #IO.SPF,(R5) ;SET FOR SPACE FILE FUNCTION MOV #1,(R1) ;SET TO SPACE ONE FILE CALL $QIOLR ;SPACE FILE BR 10$ ;BRANCH TO READ NEXT FILE NAME .ENDC .IF DF TC11!RX11!TU58!RX21 ;EF001 ;**-1 ; ; RT TU58 INITIALIZATION ROUTINE (SAME AS RT FLOPPY ROUTINE) ; DDINI: ;REFERENCE LABEL ; ; RT DECTAPE INITIALIZATION ROUTINE (SAME AS RT FLOPPY ROUTINE) ; DTINI: ;REFERENCE LABEL ; ; RT RX02 INITIALIZATION ROUTINE (SAME AS RT RX11 FLOPPY ROUTINE) ; DYINI: ;REFERENCE LABEL ; ; RT FLOPPY INITIALIZATION ROUTINE ; DXINI: MOV #$LQDPB+Q.IOPL,R4 ;POINT TO FIRST PARAMETER WORD IN DPB MOV #$LBLBF,R0 ;POINT TO LABEL BUFFER FOR DIRECTORY BLOCK MOV R0,(R4)+ ;PLACE POINTER IN DPB MOV #512.,(R4)+ ;SET COUNT FOR ONE BLOCK CMP (R4)+,(R4)+ ;POINT TO BLOCK NUMBER MOV R5,(R4) ;SET THE BLOCK NUMBER BNE 10$ ;IF NE, ANOTHER DIRECTORY SEGMENT EXISTS 5$: TRAP ER.NFL ;ELSE ERROR, FILE NOT FOUND 10$: CALL DIRBLK ;READ FIRST DIRECTORY BLOCK TST (R0)+ ;POINT TO LINK WORD MOV (R0)+,R5 ;SAVE LINK WORD IN R5 TST (R0)+ ;POINT TO EXTRA BYTES ENTRY MOV (R0)+,R2 ;SAVE EXTRA BYTES IN R2 BIT #177401,R2 ;LEGAL VALUE? BNE 5$ ;IF NE NO, REPORT FILE NOT FOUND MOV (R0)+,R3 ;SAVE INITIAL START BLOCK 20$: CALL @(SP)+ ;MAKE SURE WE ARE STILL IN BUFFER CMP (R0),#4000 ;LOGICAL END OF DIRECTORY SEGMENT? BNE 30$ ;IF NE NO TST (SP)+ ;ELSE FLUSH COROUTINE ADDRESS BR DXINI ;BR TO HANDLE NEXT DIRECTORY SEGMENT 30$: MOV #$FLRAD-2,R1 ;POINT TO PERMANENT ENTRY CODE AND FILE NAME 40$: CALL @(SP)+ ;MAKE SURE WE ARE WITHIN BUFFER CMP (R0)+,(R1)+ ;MATCH? BNE 50$ ;IF NE NO CMP R1,#$FLRAD+6 ;AT END OF FILE NAME? BLO 40$ ;IF LO NO BR 60$ ;ELSE FILE FOUND 50$: SUB #$FLRAD+6,R1 ;CALCULATE NEGATIVE OF BYTES REMAINING SUB R1,R0 ;POINT TO FILE SIZE CALL @(SP)+ ;MAKE SURE WE ARE STILL WITHIN BUFFER ADD (R0)+,R3 ;UPDATE START BLOCK CMP (R0)+,(R0)+ ;POINT TO END OF FIXED PORTION OF ENTRY ADD R2,R0 ;POINT TO NEXT DIRECTORY ENTRY BR 20$ ;BR TO PROCESS NEXT DIRECTORY ENTRY 60$: MOV R3,(R4) ;PLACE START BLOCK IN DPB TST (SP)+ ;FLUSH COROUTINE ADDRESS RETURN ;RETURN TO CONTROL LOOP ; ; THE FOLLOWING COROUTINE IS USED TO CHECK THE CURRENT POSITION IN THE ; LABEL BUFFER AND READ DIRECTORY BLOCKS AS NECESSARY. ; DIRBLK: CALL $QIOLR ;READ A DIRECTORY BLOCK INC (R4) ;BUMP BLOCK NUMBER IN DPB 10$: CALL @(SP)+ ;RETURN TO CALLER CMP R0,#$LBLBF+512. ;PAST END OF BUFFER? BLO 10$ ;IF LO NO SUB #d512.,R0 ;ELSE ADJUST POINTER BR DIRBLK ;BR TO READ NEXT DIRECTORY BLOCK .ENDC .END dì`·kkQ›c, .TITLE OTLQIO .IDENT /03/ ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; COPYRIGHT (C) 1976, 1980 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; VERSION: 03 ; BY: THOMAS J MILLER ; DATE: 2/4/75 ; ; ; MODIFIED BY: ; ; JO ANN KASSON 30-AUG-76 ; JAK002 - LOADABLE DRIVERS & QIOW$ ; ; E. A. FLOYD 1-APR-80 ; EF003 -- CORRECT OTLQIO TO SENSE DEVICE ; CHARACTERISTICS TO READ SINGLE DENSITY ; FLOPPY FROM RX02 DRIVE ; ; E. A. FLOYD 27-MAY-80 ; EF009 -- ADD V3.0 SUPPORT FOR LOADING ; TASKS WITH RESIDENT OVERLAYS ; ; OTLQIO - COMMON QIO PROCESSING FOR THE RSX-11S ONLINE TASK LOADER ; ; ; MACRO LIBRARY CALLS ; .MCALL DIR$,QIO$,WTSE$ .MCALL DIR$,QIOW$ .MCALL QIOW$C ;EF003 ; ; LOCAL SYMBOL DEFINITIONS ; EFN1=1 ;EVENT FLAG 1 LUN1=1 ;LUN 1 LUN2=2 ;LUN 2 ; ; LOCAL DATA ; ; STATUS BLOCK AND DPB'S ; $IOSB:: .BLKW 2 ;I/O STATUS BLOCK $TQDPB::QIOW$ ,LUN2,EFN1,,$IOSB,,<$FBBUF,,'$> $LQDPB::QIOW$ ,LUN1,EFN1,,$IOSB,,<,,,,> ; ; OTL BUFFERS ; ;EF009 .IF DF M$$MGE&D$$YNM&P$$LAS ;EF009 ;EF009 $SGTBL::.BLKW 256. ;TABLE FOR SEGMENT LOAD LIST ;EF009 ;DISK LABEL BLOCK 3 ;EF009 ;EF009 .ENDC ;EF009 ;EF009 $FBBUF:: ;FORMATTED BINARY BUFFER AND CONSOLE I/O BUFFER .IF DF R$$FB .BLKB 80. .ENDC $LBLBF::.BLKW 256. ;LOAD DEVICE READ BUFFER ;+ ; ; *** - $OUTMG ROUTINE FOR OUTPUTTING MESSAGES TO THE CONSOLE ; ; INPUTS: ; ; R1=CHARACTER COUNT OF MESSAGE IN FBBUF ; ;- $OUTMG::MOV #IO.WVB,$TQDPB+Q.IOFN ;SET WRITE VIRTUAL FUNCTION CODE ;+ ; ; *** - $QIOT ENTRY POINT FOR CONSOLE INPUT ; ; INPUTS: ; ; R1=MAXIMUM CHARACTER COUNT FOR MESSAGE INPUT INTO FBBUF ; (FUNCTION CODE MUST BE ALREADY SET) ; ;- $QIOT:: MOV R1,$TQDPB+Q.IOPL+2 ;SET CHARACTER COUNT IN DPB MOV #$TQDPB,R0 ;POINT TO CONSOLE DPB BR QWAIT ;BR TO INITIATE TRANSFER ;+ ; ; *** - $QIOLR ENTRY POINT FOR READS FROM LOAD DEVICE WITH UNCONDITIONAL REPORT ; OF I/O ERRORS. ; ;- $QIOLR::MOV R0,-(SP) ;SAVE R0 QIOW$C IO.SEC,LUN1,EFN1,,,, ;EF003 CALL $QIOL ;READ FROM LOAD DEVICE BPL 10$ ;IF PL NO ERROR, RETURN CMPB R0,#IE.OFL ;DEVICE NOT IN SYSTEM (OFFLINE)? BNE 5$ ;IF NE NO TRAP ER.DNS ;ELSE DEVICE NOT IN SYSTEM 5$: TRAP ER.IOE ;I/O ERROR 10$: MOV (SP)+,R0 ;RESTORE R0 RETURN ; ;+ ; ; *** - $QIOL ENTRY POINT FOR READS FROM LOAD DEVICE ; ;- $QIOL:: MOV #$LQDPB,R0 ;POINT TO LOAD DEVICE DPB ; ;QWAIT - COMMON QIO CODE ; ; AT THIS POINT R0 IS ASSUMED TO POINT AT THE QIO DPB AND THE DPB IS ASSUMED ; TO BE SET UP. THE LAST INSTRUCTION BEFORE THE RETURN IS: ; ; MOV $IOSB,R0 ; ; THIS ALLOWS CALLERS TO USE BPL AS A NO-ERROR BRANCH IMMEDIATELY AFTER THE ; CALL. FURTHERMORE R0 CONTAINS THE STATUS OF THE TRANSFER ON RETURN. ; QWAIT: .IF DF M$$MGE MTPS #PR7 ;;;RAISE PRIORITY TO PR7 MOV $PARRL,UISAR6 ;;;SET RELOCATION BIAS .IFTF DIR$ R0 ;;;READ FROM LOAD DEVICE BCC 20$ ;;;CONTINUE IF CC .IF DF L$$DRV CMP $DSW,#IE.UPN ;DRIVER UNLOADED? BNE 30$ ;IF NE YES .ENDC TST $TCB ;;;ELSE HAS A TCB BEEN ALLOCATED? BEQ 10$ ;;;IF EQ NO, EXIT TRAP ER.POL ;;;ELSE ENTER ERROR ROUTINE TO CLEAN UP 10$: JMP $OTLXT ;;; 20$: ~ .IFT MTPS #0 ;;;DROP PRIORITY .ENDC 30$: MOVB $IOSB,R0 ;PASS BACK ERROR STATUS RETURN .END ~ì` qkQ›c, .TITLE OTLRD .IDENT /01.2/ ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; COPYRIGHT (C) 1976 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; VERSION 01.02 ; BY: THOMAS J MILLER ; DATE: 2/4/75 ; ; MODIFIED BY: ; ; THOMAS J MILLER 8-NOV-75 ; ; TM001 -- CORRECT BUG IN CASSETTE AND MAGTAPE READS ; AND BUG WHICH ALLOWS SOME I/O ERRORS TO GO ; UNDETECTED. ; JAK002 SET PDR FOR LOADING FROM PAPER TAPE ; ; OTLRD - LOAD DEVICE INPUT ROUTINE FOR THE RSX-11S ONLINE TASK LOADER ; ; ; LOCAL IMPURE DATA FOR PROCESSING OF FORMATTED BINARY RECORDS ; .IF DF R$$FB FBPTR: .BLKW 1 ;SAVE AREA FOR POINTER INTO CURRENT BINARY RECORD FBCNT: .BLKW 1 ;CURRENT COUNT REMAINING IN BINARY RECORD CHKSUM: .BLKW 1 ;CHECKSUM ACCUMULATOR ;+ ; ; *** - $READ1 FIRST READ FROM LOAD DEVICE FOR FORMATTED BINARY MODE ; ; INPUTS: ; ; LQDPB ASSUMED TO BE ALREADY SET UP ; ; OUTPUTS: ; ; R0,R1,R2,R3 DESTROYED ; ;- .ENABL LSB $READ1::CLR $IOSB+2 ;INDICATE EMPTY BUFFER MOV #-1,R1 ;MAKE IT LOOK LIKE AN ENTRY WITH A ZERO COUNT ; (COUNT IS INCREMENTED AFTER PROCESSING BINARY ; RECORD HEADER) CLR CHKSUM ;INITIALIZE CHECKSUM BR 50$ ;BRANCH TO PROCESS FB HEADER ;+ ; ; *** - $READ READ FROM LOAD DEVICE ; ; INPUTS: ; ; R5=FINAL BUFFER ADDRESS ; R1=TRANSFER COUNT ; ; ALL REGISTERS ARE PRESERVED ; ;- .IFTF $READ:: SAVRG$ ;SAVE ALL REGISTERS TST R1 ;ZERO-LENGTH READ? BEQ 25$ ;IF EQ YES, RETURN .IFT BITB #CB.FB,$FLGS ;FORMATTED BINARY MODE? BNE 10$ ;IF NE YES .IFTF MOV #$LQDPB+Q.IOPL,R3 ;POINT TO FIRST PARAMETER WORD OF DPB MOV R5,(R3)+ ;SET BUFFER ADDRESS .IF DF R$$SBR BIT #CB.SBR,$FLGS ;SINGLE-BLOCK READS REQUIRED? BNE 4$ ;IF NE YES .IFTF MOV R1,(R3) ;ELSE ISSUE JUST ONE READ 3$: CALLR $QIOLR ; ; ; DEVICES WHICH MUST BE READ ONE BLOCK AT A TIME ARE READ DIRECTLY INTO THE ; DESIRED DESTINATION BUFFER WITH THE EXCEPTION OF THE LAST BLOCK READ IF IT ; IS LARGER THAN THE DESIRED BYTE COUNT REMAINING. IN THIS CASE THE ENTIRE ; BLOCK IS READ INTO $LBLBF AND THE DESIRED DATA IS MOVED INTO THE DESTINATION ; BUFFER. NOTE THAT THIS DOES NOT CONFLICT WITH 512. BYTE READS TO $LBLBF, ; SINCE THEY WILL ALWAYS COME OUT EVEN AND THE ENTIRE TRANSFER WILL BE READ IN ; DIRECTLY. ; .IFT 4$: MOV (R3),R2 ;PICK UP CHARACTER COUNT FOR READ 5$: SUB R2,R1 ;LAST READ? BEQ 3$ ;IF EQ YES AND READ IS EXACT SIZE DESIRED BCC 6$ ;IF CC THEN NOT LAST READ ADD R1,R2 ;CALCULATE REQUIRED COUNT FROM LAST READ MOV #$PARRL,R1 ;POINT TO ADDRESS DOUBLE WORD MOV -(R3),2(R1) ;POINT TO FINAL DESTINATION OF INPUT MOV #$LBLBF,(R3) ;DIVERT THIS READ TO LABEL BUFFER CALL $QIOLR ;READ LAST BLOCK MOV (R3),R0 ;POINT TO SOURCE FOR .BLXO CALLR .BLXO ;MOVE IN LAST PART OF TASK IMAGE AND EXIT 6$: CALL $QIOLR ;TRANSFER DIRECTLY INTO BUFFER .IF DF M$$MGE ADD (R3),R5 ;BUMP BUFFER POINTER BY COUNT READ CALL ADCHK ;CHECK THE ADDRESS MOV R5,-2(R3) ;UPDATE BUFFER POINTER FOR NEXT READ .IFF ADD (R3),-2(R3) ;UPDATE BUFFER POINTER FOR NEXT READ .ENDC BR 5$ ;BR BACK FOR NEXT READ .ENDC ; ; FORMATTED BINARY TRANSFERS ARE HANDLED HERE. THE FORMATTED BINARY BLOCKS ; ARE FIRST READ INTO FBBUF. HEADERS AND CHECKSUMS ARE VERIFIED AND DISCARDED ; AND THE DATA IS MOVED INTO THE FINAL BUFFER POINTED TO BY R5. ; BESIDES THE VALUES IN R5 AND R1 SET PRIOR TO ENTRY, THE FOLLOWING ELEMENTS ; DRIVE FORMATTED BINARY TRANSFERS: ; ; FBPTR=CURRENT POINTER INTO FORMATTED BINARY RECORD. THE VALUE IN ; THIS LOCATION IS LOADED INTO R3 UPON ENTRY AND UPDATED FROM ; FROM R3 UPON EXIT. R3 IS INITIALIZED AFTER EVERY READ FROM ; THE LOAD DEVICE IN THE ROUTINE INBYT. ; ; FBCNT=COUNT OF REMAINING BYTES IN CURRENT BINARY RECORD. UPDATED ; FROM THE COUNT FIELD OF EACH BINARY RECORD HEADER AS IT IS ; ENCOUNTERED. ; ; CHKSUM=CUMULATIVE CHECKSUM COUNT FOR CURRENT BINARY RECORD. THIS ; LOCATION IS INITIALIZED TO ZERO UPON INITIAL ENTRY FROM $READ1. ; IT RETURNS TO ZERO AFTER EACH CORRECTLY READ BINARY RECORD. ; .IFT 10$: MOV FBPTR,R3 ;PICK UP FB RECORD POINTER 20$: SUB #1,R1 ;DECREMENT DESTINATION COUNT BCC 30$ ;IF CC, THEN MORE TO TRANSFER MOV R3,FBPTR ;ELSE UPDATE FB RECORD POINTER .IFTF 25$: RETURN ;RETURN, TRANSFER COMPLETE .IFT 30$: CALL INBYT ;GET NEXT BYTE FROM BINARY RECORD SUB #1,FBCNT ;DECREMENT FB RECORD COUNT, CHECKSUM BYTE? BCS 40$ ;IF CS, YES .IF DF M$$MGE MTPS #PR7 ;;;RAISE PRIORITY TO PR7 MOV $PARRL,UISAR6 ;;;SET RELOCATION BIAS MOV #77406,UISDR6 ;;; SET UP PDR LENGTH .IFTF MOVB R2,(R5)+ ;;;MOVE BYTE INTO BUFFER .IFT MTPS #0 ;;;DROP PRIORITY CALL ADCHK ;CHECK CURRENT ADDRESS 35$: .ENDC BR 20$ ;BRANCH TO GET NEXT BYTE 40$: TSTB CHKSUM ;VALID CHKSUM? BEQ 50$ ;IF EQ YES TRAP ER.CHK ;ELSE CHECKSUM ERROR 50$: CALL INBYT ;GET NEXT BYTE TST R2 ;HEADER RECORD? BEQ 50$ ;NO, SKIP NULLS DEC R2 ;IS IT IT A 1? BEQ 70$ ;IF EQ YES 60$: TRAP ER.BFB ;BAD FORMATTED BINARY 70$: CALL INBYT ;GET NEXT BYTE TST R2 ;IS IT NULL? BNE 60$ ;IF NE NO CALL INBYT ;ACCUMULATE RECORD COUNT MOVB R2,FBCNT ; CALL INBYT ; MOVB R2,FBCNT+1 ; SUB #4,FBCNT ;ADJUST COUNT FOR HEADER BCS 60$ ;ERROR IF COUNT WAS LESS THAN 4 INC R1 ;ADJUST COUNT FOR LOOP BACK BR 20$ ;BRANCH TO PROCESS BINARY RECORD .DSABL LSB ; ; ; INBYT - GET NEXT BYTE FROM BINARY RECORD BUFFER AND REPLENISH IF NECESSARY ; ; INPUTS: ; ; $IOSB+2=CURRENT UNPROCESSED BYTE COUNT IN BINARY RECORD BUFFER ; R3=CURRENT POINTER IN BINARY RECORD BUFFER ; CHKSUM=CURRENT CHECKSUM FOR BINARY RECORD ; ; OUTPUTS: ; ; R2=BYTE FROM BINARY RECORD ; $IOSB+2,R3,CHKSUM UPDATED ; INBYT: SUB #1,$IOSB+2 ;DECREMENT BUFFER COUNT, CHARACTERS REMAINING? BCC 10$ ;IF CC YES CALL $QIOL ;READ INTO BINARY RECORD BUFFER BPL 8$ ;IF PL NO CMP R0,#IE.EOF ;END OF FILE? BEQ 5$ ;IF EQ YES TRAP ER.IOE ;ELSE I/O ERROR 5$: CMP $IOSB+2,R1 ;DESIRED COUNT RECEIVED? BHIS 8$ ;IF HIS YES TRAP ER.EOF ;ELSE UNEXPECTED EOF 8$: MOV #$FBBUF,R3 ;RESET BUFFER POINTER BR INBYT ;PROCESS FI6RST BYTE 10$: MOVB (R3)+,R2 ;PICK UP NEXT BYTE ADD R2,CHKSUM ;CUMULATE CHECKSUM RETURN .ENDC .IF DF M$$MGE ADCHK: CMP R5,#160000 ;PAST 4K BOUNDARY? BLO 10$ ;IF LO NO ADD #200,$PARRL ;BUMP RELOCATION BIAS SUB #20000,R5 ;ADJUST R5 BACK 10$: RETURN .ENDC .END 68xÕfkQ›c, .IIF NDF $SIP .NLIST ; .IDENT /01.1/ ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; COPYRIGHT (C) 1981 ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION 1.1 ; BY: THOMAS J MILLER ; DATE: 3/28/75 ; ; MODIFIED BY: ; J. GALLANT 27-FEB-81 ; JG004 -- ADD SUPPORT FOR RX02 DEVICE ; ; SIPPRE - PREFIX FILE FOR ASSEMBLING MODULES OF THE RSX-11S ; SYSTEM IMAGE PRESERVATION PROGRAM ; ; ; CONDITIONAL ASSEMBLY VARIABLE FOR FULL ERROR MESSAGE REPORTING. WITH FULL ; ERROR MESSAGE REPORTING, ERROR MESSAGES INCLUDE A NUMERIC ERROR CODE AND ; A BRIEF ASCII DESCRIPTION OF THE ERROR CONDITION. WITHOUT FULL ERROR MESSAGE ; REPORTING, THE ASCII DESCRIPTION IS OMITTED. FOR FULL REPORT OF ERRORS, THE ; SYMBOL "R$$ERM" MUST BE DEFINED HERE. IF FULL REPORT OF ERROR MESSAGES IS ; NOT DESIRED, THE DEFINITION OF "R$$ERM" MUST BE PRECEDED BY A SEMI-COLON. ; THE DEFINITION LINE FOR "R$$ERM" FOLLOWS. ; ;R$$ERM=0 ; ; MACRO FOR INCLUDING SUPPORT OF LOAD DEVICES ; ; THE FIRST ARGUMENT IN THE INCLUD MACRO IS THE SYMBOL WHICH SIP MODULES USE TO ; CONDITIONALIZE CODE SPECIFIC TO SUPPORT OF THE PARTICULAR LOAD DEVICE. ; THE SECOND ARGUMENT IS THE SYMBOL WHICH IS PLACED IN THE ASSEMBLY PREFIX MODUL ; RSXMC DURING SYSGEN TO INDICATE THE PRESENCE OF A DRIVER FOR THE DEVICE. THE ; MACRO CAUSES THE FIRST SYMBOL TO BE DEFINED IF THE SECOND SYMBOL IS PRESENT ; IN RSXMC. ; .MACRO INCLUD A,B .IF DF B A=0 .ENDC .ENDM ; ; EACH OF THE FOLLOWING INCLUD STATEMENTS CAUSE SUPPORT FOR THE DESIGNATED LOAD ; DEVICE TO BE INCLUDED IN SIP IF THE STANDARD DRIVER FOR THE DEVICE HAS BEEN ; GENERATED INTO THE SYSTEM. IF THE STANDARD DRIVER FOR A LOAD DEVICE HAS BEEN ; INCLUDED IN THE SYSTEM, BUT SUPPORT FOR THAT DEVICE IN SIP IS NOT DESIRED, ; THE CORRESPONDING INCLUD STATEMENT MUST BE PRECEDED BY A SEMI-COLON (;). ; NO SUPPORT WILL BE GENERATED INTO SIP FOR DEVICES FOR WHICH DRIVERS HAVE ; NOT BEEN GENETATED INTO THE SYSTEM. THE DEVICES ARE LISTED ALPHABETICALLY. ; INCLUD PP11,P$$P11 ;PC11 SUPPORT INCLUD RX11,R$$X11 ;RX11 SUPPORT INCLUD RX21,R$$X21 ;RX02 SUPPORT ; JG004 INCLUD TA11,T$$A11 ;TA11 SUPPORT INCLUD TC11,T$$C11 ;TC11 SUPPORT INCLUD TM11,T$$M11 ;TM11 SUPPORT INCLUD TU16,T$$J16 ;TU16 SUPPORT .IIF NDF $SIP .LIST 8xkQ›c, .TITLE SIP .IDENT /02.3/ ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; COPYRIGHT (C) 1976, 1977, 1979, 1980, 1981 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; VERSION: 02.3 ; BY: THOMAS J MILLER ; DATE: 3/25/75 ; ; MODIFIED BY: ; ; J. H. MATTHEWS 10-NOV-77 ; ; JM003 -- MODIFIED IOCHK TO LOOK FOR SYSCM AS LAST ENTRY ; IN ATL. ; ; J. H. MATTHEWS 30-APR-79 ; ; JM035 -- SET UP USER PDR 6 IF A MAPPED SYSTEM ; ; J. GALLANT 2-27-81 ; JG004 -- ADD SUPPORT FOR RX02 DEVICE ; ; J. GALLANT 7-23-81 ; JG005 -- ADD 22 BIT SUPPORT ; ; SIP - CONTROL LOOP FOR THE RSX-11S SYSTEM IMAGE PRESERVATION ; PROGRAM ; ; ; GLOBAL IMPURE DATA ; $TRPSV::.BLKW 1 ;NONEXISTANT MEMORY TRAP ADDRESS SAVE AREA $SAVE:: .BLKW 1 ;TEMPORARY SAVE AREA FOR TCB POINTER AND ; KERNAL STACK POINTER $FLGS:: .BLKW 1 ;DEVICE FLAGS SAVE AREA $UNIT:: .BLKW 1 ;DEVICE UNIT NUMBER ; ; *** - $SIP ENTRY POINT FOR THE RSX-11S SYSTEM IMAGE PRESERVATION PROGRAM ; $SIP:: MOV @#4,$TRPSV ;SAVE NONEXISTANT MEMORY TRAP ADDRESS ; ; *** - $RSTRT RESTART ENTRY POINT FOR SIP ; ; GET AND DECODE COMMAND LINE AND INITIALIZE LOAD DEVICE ; $RSTRT::MOV #$BOOT,SP ;SET STACK POINTER MOV #LUN1,R0 ;MOVE LOAD DEVICE LUN TO R0 CALL $DET ;DETACH PREVIOUS LOAD DEVICE (ERRORS IGNORED) INC R0 ;CALCULATE TI: LUN CALL $DET ;DETACH TI: (ERRORS IGNORED) CALL $SIPCD ;READ AND DECODE A COMMAND LINE CALL $SIPLD ;INITIALIZE LOAD DEVICE AND SET UP BOOTSTRAP ; ; LABEL BLOCK AND BOOT BLOCK PROCESSING ; MTPS #PR7 ;;;LOCK EVERYONE OUT CALL IOCHK ;;;CHECK FOR OUTSTANDING I/O MOV #IO.WLB,$QDPB+Q.IOFN ;;;SET FOR WRITE LOGICAL FUNCTION MOV #512.,R0 ;;;SET BOOT AND LABEL BLOCK COUNT CLR $QDPB+Q.IOPL+10 ;;;CLEAR BLOCK NUMBER MOV $FLGS,R3 ;;;PICK UP FLAGS WORD .IF DF M$$MGE MOV #77406,@#UISDR6 ;;; SET UP USER PDR 6 .ENDC .IF DF PP11 BIT #CB.PP,R3 ;;;IS DEVICE PAPER TAPE? BNE 20$ ;;;IF NE YES, SKIP TO CHECK FOR QUIET SYSTEM .ENDC BIT #CB.TAP,R3 ;;;TAPE DEVICE? BNE 10$ ;;;IF NE YES, SKIP TO WRITE LABEL MOV #$BOOT,$QDPB+Q.IOPL ;;;POINT TO BOOT BLOCK CALL $QIOWT ;;;WRITE BOOT BLOCK INC $QDPB+Q.IOPL+10 ;;;INCREMENT BLOCK NUMBER 10$: MOV #$LABBF,$QDPB+Q.IOPL ;;;POINT TO LABEL BUFFER CALL $QIOWT ;;;WRITE THE LABEL BLOCK .IF DF TA11!RX11 BIT #CB.MBB,R3 ;;;MULTI-BOOT BLOCK DEVICE? BEQ 15$ ;;;IF EQ NO CALL (R5) ;;;CALL SPECIAL ROUTINE TO WRITE FIRST PART OF BOOT MOV #$SETUP,$QDPB+Q.IOPL ;;;POINT TO SETUP ROUTINE FOR OUTPUT BR 17$ ;;;BR TO OUTPUT LAST BLOCK .ENDC 15$: BIT #CB.TAP!CB.DX,R3 ;;;TAPE DEVICE OR FLOPPY? BEQ 20$ ;;;IF EQ NO, BOOT ALREADY WRITTEN MOV #$BOOT,$QDPB+Q.IOPL ;;;POINT TO BOOT BLOCK 17$: CALL $QIOWT ;;;WRITE IT OUT ; ; WRITE OUT SYSTEM IMAGE ; 20$: CALL IOCHK ;;;CHECK FOR OUTSTANDING I/O MOV #$BTEND,@#4 ;;;POINT VECTOR 4 TO END OF BOOT BLOCK .IF DF M$$MGE .IF DF M$$EXT ; JG005 CLR @#SR3 ;;; DISABLE 22 BIT MODE AND UNIBUS MAP ; JG005 .ENDC ; JG005 MOV #CMODE!PR7,@#6 ;;;SET TO TRAP IN USER MODE MOV #CMODE!PR7,@#PS ;;;SET PREVIOUS TO KERNAL MFPI SP ;;;PUSH KERNAL STACK POINTER MOV (SP)+,$SAVE ;;;AND SAVE IT .ENDC MOV -(R4),R1 ;;;PICK UP THE CSR ADDRESS MOV -(R4),R0 ;;;PICK UP CORE SIZE .IF DF TA11!TC11!TM11!TU16 BIT #CB.PP!CB.DX!CB.DY,R3 ;;; PAPER TAPE OR FLOPPY ? ; JG004 BNE 85$ ;;;IF NE YES, SKIP UNIT SELECT LOGIC ;**-1 MOV R1,R4 ;;;COPY CSR ADDRESS INC R4 ;;;POINT TO UNIT SELECT BYTE .IF DF TU16 BIT #CB.MM,R3 ;;;TU16? BEQ 84$ ;;;IF EQ NO ADD #31,R4 ;;;ADJUST UNIT SELECT BYTE POINTER .ENDC 84$: BICB #7,(R4) ;;;CLEAR UNIT SELECT FIELD BISB $UNIT,(R4) ;;;SELECT UNIT .ENDC 85$: ;;; .IF DF PP11!TA11!RX11!RX21 ; JG004 ;**-1 BIT #CB.MBB!CB.PP,R3 ;;;MULTI-BLOCK BOOT DEVICE OR PAPER TAPE? BEQ 100$ ;;;IF EQ NO, INVOKE BOOT CODE .IF DF RX11 BIT #CB.DX,R3 ;;;FLOPPY? BEQ 90$ ;;;IF EQ NO MOV R0,R4 ;;;COPY NUMBER OF BLOCKS MOV $UNIT,R0 ;;;PASS UNIT NUMBER IN R0 .ENDC 90$: CALL (R5) ;;;EXECUTE BOOT CODE TO WRITE SYSTEM IMAGE ;;; (RETURN IS VIA A JUMP TO $RSTRT) .ENDC 100$: ;;; ; JG004 .IF DF RX21 ; JG004 BIT #CB.DY,R3 ;;; RX02 FLOPPY ? ; JG004 BEQ 110$ ;;; IF EQUAL NO ; JG004 .IF DF M$$MGE ; JG004 TST -(SP) ;;; STACK POINTER MUST BE AT SAME ; JG004 ;;; LEVEL FOR SAVING SYSTEM ; JG004 ;;; AS WHEN BOOTING SYSTEM. ; JG004 .ENDC ; JG004 .ENDC ; JG004 110$: ;;; ; JG004 JMP $BTBEG ;;; EXECUTE BOOT CODE ; JG004 ;**-1 ; ; SUBROUTINE TO CHECK FOR OUTSTANDING I/O ; ; INPUTS: ; ; TASK SWITCHING SHOULD BE LOCKED OUT ; ; OUTPUTS: ; ; R0 IS DŽESTROYED ; IF I/O IS OUTSTANDING, AN ERROR IS REPORTED DIRECTLY ; IOCHK: MOV $ACTHD,R0 ;;;PICK UP PTR TO FIRST ACTIVE TASK 10$: TSTB T.IOC(R0) ;;;OUTSTANDING I/O? BEQ 20$ ;;;IF EQ NO TRAP ER.IO ;;;ELSE REPORT ERROR 20$: MOV T.ACTL(R0),R0 ;;;GET NEXT ACTIVE TASK TST T.ACTL(R0) ;;;CHECK FOR POINTER TO SYSCM. BNE 10$ ;;;IF NE, THERE IS ONE RETURN ;;;ELSE RETURN .END $SIP Ž8xçkQ›c, .TITLE SIPBOO .IDENT /02.5/ ; ; COPYRIGHT (c) 1981 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; 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 COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE 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. ; ; ; ; ; VERSION 02.5 ; BY: THOMAS J MILLER ; (PARTS OF THIS MODULE HAVE BEEN TAKEN FROM THE PRESRV ; BOOT-BLOCK MODULE BY SCOTT SMITH.) ; DATE: 3/25/75 ; ; MODIFIED BY: ; ; JK002 JO ANN KASSON 26-JUL-76 ;ZERO UNLOADED MEMORY AND ; ;ADD DELAY IN TM11 BOOTSTRAP ;TO ALLOW BOOTING ON MOS 45 OR 11/70 ; ; ; J. H. MATTHEWS 4-NOV-77 ; ; JM002 -- ADD SUPPORT FOR ODD CSR'S. ; ; J. H. MATTHEWS 18-NOV-77 ; ; JM004 -- MODIFIED COUNTERS IN ROUTINE TO ZERO MEMORY ; SO THAT IF R2 > $SYSIZ, 1K OF MEMORY IS ZEROED. ; ; J. H. MATTHEWS 20-OCT-78 ; ; JM023 -- CORRECTED PROBLEM OF SIP ZEROING LAST 1K INCLUDED ; IN $SYSIZ ; ; J. H. MATTHEWS 3-MAY-79 ; ; JM036 -- UPDATE RSX11S VERSION NUMBER TO 2.2 ; ; J. GALLANT 2-27-81 ; JG004 -- ADD SUPPORT FOR RX02 DEVICE ; ; E. A. FLOYD 10-JUN-80 ; EF014 -- AFTER SIZING SYSTEM, SIZE ; LAST PCB TO EXTEND TO END ; OF MEMORY ; ; J. GALLANT 23-JUL-81 ; JG005 -- ADD 22 BIT SUPPORT TO SIP ; ; SIPBOO - BOOT BLOCK AND SYSTEM STARTUP CODE FOR THE RSX-11S ; SYSTEM IMAGE PRESERVATION PROGAM ; ; ; MACRO DEFINITIONS ; .MACRO BEGBOO NAM,COND .IF DF COND $'NAM'BOO:: .WORD /2 .ENDM .MACRO ENDBOO NAM,NOPAGE NAM'END: .IF GT NAM'END-$'NAM'BOO-2-MX$LEN MX$LEN=NAM'END-$'NAM'BOO-2 .ENDC SIZCHK $'NAM'BOO+2,512.-$BTBEG+$BOOT .IF B NOPAGE .PAGE .ENDC .ENDM .MACRO SIZCHK ADDR,SIZE .IF GT .-ADDR-SIZE .ERROR .-ADDR-SIZE ;BOOT-BLOCK OVERFLOW .ENDC .ENDM ; ; LOCAL SYMBOL DEFINITIONS ; MX$LEN=0 ;INITIALIZE MAXIMUM BOOT BLOCK SIZE ; ; LOCAL MESSAGE DATA ; NOTE -- SYSID AND DEVNAM MUST BE WORD ALIGNED ; .PSECT BOTPRE .NLIST BEX SYSMSG: .ASCII <15><12>/ RSX-11S V4.0 BL/ ; JG004 SYSID: .ASCII /XXXX NNNK/ ;**-1 .IF DF M$$MGE .ASCII / MAPPED/<177> .ENDC .ASCIZ <15><12>/>/ DEVMSG: .ASCII <15><12>/DEVICE / DEVNAM: .ASCIZ /DDUU: NOT IN CONFIGURATION/ .EVEN .LIST BEX .PAGE ; ; DEVICE-SPECIFIC BOOT-BLOCK RELATED CODE ; ; THE BOOT-BLOCK RELATED CODE FOR EACH DEVICE CONSISTS OF ONE OR MORE OF THE ; FOLLOWING THREE ITEMS: ; ; 1)EVERY DEVICE HAS A BEGBOO-ENDBOO PAIR. IF AT LEAST ONE INSTRUCTION APPEARS ; BETWEEN THE BEGBOO-ENDBOO PAIR, ALL OF THE INSTRUCTIONS IN BETWEEN WILL ; BE MOVED INTO THE BOOT-BLOCK BUFFER AT $BTBEG AND THE BUFFER WILL BE ; PADDED AT THE END WITH NOP'S. IF THESE INSTRUCTIONS CONTAIN THE DEVICE- ; SPECIFIC BOOT BLOCK CODE, THEN A COMPLETE BOOT BLOCK MAY BE OUTPUT ; FROM $BOOT, THUS PREFIXING THE DEVICE-SPECIFIC CODE WITH THE REQUIRED COMMON ; BOOT-BLOCK CODE. THE DEVICE-SPECIFIC CODE BETWEEN THE BEGBOO-ENDBOO ; PAIR MUST BE CAPABLE OF WRITING AND READING THE ENTIRE SYSTEM IMAGE. ; THE CODE WILL BE ENTERED AT $BTBEG WITH THE FOLLOWING INPUTS: ; ; R0=SIZE OF SYSTEM IN BLOCKS (THE BLOCK SIZE DEPENDS ON THE DEVICE ; AND IS CALCULATED BY SIP FROM $SYSIZ IN THE EXEC.) ; R1=CSR ADDRESS (OBTAINED FROM THE SCB OF THE DEVICE UNIT.) ; R2=READ OR WRITE COMMAND (OBTAINED FROM THE LOAD DEVICE TABLE.) ; ; EXIT FROM THE DEVICE-SPECIFIC CODE IS VIA A TRANSFER OF CONTROL TO THE END ; OF THE CODE. CONTROL WILL THEN PASS THROUGH THE NOP'S TO $BTEND. AT ; THIS POINT R2 MUST STILL CONTAIN THE ORIGINAL COMMAND TO INDICATE IF THE ; SYSTEM HAS JUST BEEN BOOTED IN. ; ; 2)IMMEDIATELY FOLLOWING THE ENDBOO FOR A DEVICE, THERE MAY BE A SPECIAL ; SUBROUTINE FOR THE DEVICE WHICH MAY BE ENTERED VIA A CALL AT THE FIRST ; INSTRUCTION. SUCH A ROUTINE IS INCLUDED IF THE DEVICE DOES NOT USE THE ; STANDARD SINGLE BOOT BLOCK BEGINNING AT $BOOT. ; ; 3)FOLLOWING THE SUBROUTINE MAY BE DEVICE-SPECIFIC BOOT-BLOCK CODE WHICH ; IS OUTPUT BY THE SUBROUTINE AS REQUIRED BY THE DEVICE. THIS CODE WILL BE ; APPENDED BY THE COMMON CODE BEGINNING AT $BOOT, THUS PROVIDING USE OF ; THE SUBROUTINE SETUP UPON INPUT. ON INPUT, THE ENTRY POINT TO THIS CODE ; IS AT THE FIRST INSTRUCTION, AND ON OUTPUT THE ENTRY POINT IS PASSED BACK ; IN R5 BY THE SPECIAL SUBROUTINE. UPON ENTRY FOR OUTPUT AND AFTER THE ; CALL TO SETUP ON INPUT, REGISTERS R0-R2 ARE SET UP AS DESCRIBED ABOVE. ; .PAGE ; ; DECTAPE BOOTSTRAP ; ; THE FOLLOWING CODE IS MOVED TO THE BUFFER AT $BTBEG AND EXECUTED THERE ; BEGBOO DT,TC11 ;;; .ENABL LSB .IF DF M$$MGE DEC R0 ;;;REDUCE BLOCK COUNT BY ONE ASL R0 ;;;DOUBLE NUMBER OF BLOCKS .IFTF SWAB R0 ;;;CONVERT TO WORDS (*2 IF MAPPED) .IFT MOVB R0,R3 ;;;SAVE NUMBER OF 32K WORD BLOCKS INC R3 ;;; CLRB R0 ;;;CLEAR LOW ORDER BITS ROR R0 ;;;CONVERT BACK TO WORDS ADD #400,R0 ;;;READJUST BLOCK COUNT .IFTF NEG R0 ;;;CONVERT TO TWOS COMPLEMENT .IFT 1$: MOV #100000,2(R1) ;;;SET COUNT FOR 32K WORDS DEC R3 ;;;DONE YET? BLT 29$ ;;;IF LT YES BGT 2$ ;;;IF GT THEN NOT LAST BLOCK .IFTF MOV R0,2(R1) ;;;SET WORD COUNT 2$: CLR 4(R1) ;;;START AT LOCATION 0 .IFT BIT #60,R2 ;;;FIRST TIME THROUGH? BNE 15$ ;;;IF NE NO, SKIP BLOCK SEARCH .IFTF DTSRC: BIS #4000,@R1 ;;;REVERSE DIRECTION 5$: MOVB #3,@R1 ;;;INIT BLOCK SEARCH 7$: TSTB @R1 ;;;READY? BPL 7$ ;;;IF PL NO TST @R1 ;;;ERROR? BPL 5$ ;;;IF PL NO DTERR: TST -2(R1) ;;;END ZONE? BPL 30$ ;;;IF PL NO - FATAL DTFWD: BIC #4000,@R1 ;;;CLEAR REVERSE BIT MOVB #3,@R1 ;;;SEARCH FORWARD 10$: BIT #100200,@R1 ;;;DONE? BMI DTERR ;;;IF MI YES - AND WITH ERROR BEQ 10$ ;;;IF EQ LOOP CMP 6(R1),#2 ;;;ARE WE THERE? BLT DTFWD ;;;IF LT NOT YET BGT DTSRC ;;;IF GT WE PASSED IT 15$: MOVB R2,@R1 ;;;START THE FUNCTION 20$: TSTB @R1 ;;;DONE? BPL 20$ ;;;IF PL NO - LOOP TST @R1 ;;;ERRORS? BPL 25$ ;;;IF PL NO BIT #400,-2(R1) ;;;NONEXISTANT MEMORY? BNE 29$ ;;;IF NE YES, BR TO START UP SYSTEM BR 30$ ;;;ELSE BR TO HANDLE ERROR 25$: ;;;REFERENCE LABEL .IFT ADD #20,R2 ;;;BUMP EXTENDED BUS ADDRESS BITS BR 1$ ;;;LOOP BACK FOR NEXT TRANSFER .IFTF 29$: SEC ;;;INDICATE NO ERRORS 30$: MOVB #1,@R1 ;;;STOP TAPE MOTION .IFT BIC #160,R2 ;;;RETRIEVE ORIGINAL COMMAND .ENDC BCS 40$ ;;;IF CS THEN NO ERRORS CMP R2,#5 ;;;BOOTING IN? BEQ . ;;;IF EQ YES, LOOP HERE TRAP ER.IOE ;;;ELSE PRINT ERROR MESSAGE 40$: .DSABL LSB ENDBOO DT ;;; .ENDC ; ; CASSETTE BOOTSTRAP CODE ; ; NO CODE IS MOVED INTO THE BUFFER AT $BTBEG ; BEGBOO CT,TA11 ; ENDBOO CT,NOPAGE ; ; ; THE FOLLOWING SPECIAL CASSETTE BOOTSTRAP CODE IS EXECUTED TO OUTPUT ; THE FIRST BLOCK OF THE CASSETTE BOOTSTRAP. A SECONDARY BOOTSTRAP BLOCK IS ; OUTPUT IN THE MODULE SIP. ; MOV #CTBOO,R5 ;POINT TO CASSETTE BOOTSTRAP .IFTF .IF DF TA11!RX11 MBB0: MOV -2(R4),4(R5) ;SET CSR ADDRESS IN BOOT BLOCK MOV (R4),10(R5) ;SET READ COMMAND MBB1: MOV R5,$QDPB+Q.IOPL ;LOAD BOOTSTRAP ADDRESS IN DPB MOV #128.,R0 ;SET BYTE COUNT ADD #10.,R5 ;POINT TO ENTRY POINT FOR WRITING SYSTEM IMAGE CALLR $QIOWT ;WRITE BLOCK AND RETURN .ENDC .IFT ; ; THIS IS THE CASSETTE BOOTSTRAP CODE. IT IS EXECUTED IN PLACE TO READ OR ; WRITE THE SYSTEM IMAGE. ; CTBOO: NOP ;REQUIRED FIRST INSTRUCTION MOV (PC)+,R1 ;PICK UP CSR ADDRESS .BLKW 1 ;FILLED IN BY SIP MODULE MOV (PC)+,R2 ;PICK UP READ COMMAND .BLKW 1 ;FILLED IN BY SIP MODULE MOV #128.,R3 ;SET TO READ INTO NEXT BLOCK OF MEMORY MOV R3,R5 ;SET TO READ 128. BYTES CMP R2,#3 ;WRITE FUNCTION? BEQ 35$ ;IF EQ YES, BR TO CHANGE BLOCK SIZE 10$: .IF DF M$$MGE CMP R3,#160000 ;;;AT END OF APR6 RANGE? BLO 15$ ;;;IF LO NO MOV #140000,R3 ;;;ELSE RESET MEMORY ADDRESS ADD #200,UISAR6 ;;; AND BUMP RELOCATION BIAS 15$: .IFTF MOV R5,R4 ;;;LTH OF A BLOCK MOVB R2,@R1 ;;;START OPERATION 20$: TSTB @R1 ;;;WAIT FOR TRANSFER REQUEST BPL 20$ ;;; DEC R4 ;;;MORE BYTES? BLT 27$ ;;;IF LT NO - ILBS BIT #4,R2 ;;;READ? BNE 25$ ;;;IF NE YES MOVB (R3)+,2(R1) ;;;WRITE BR 20$ ;;;PROCEED 25$: MOVB 2(R1),(R3)+ ;;;STORE THE DATA BR 20$ ;;;LOOP 27$: BISB #20,@R1 ;;;SET ILBS BIT 30$: BITB #40,@R1 ;;;WAIT BEQ 30$ ;;; TST @R1 ;;;ERROR? BPL 32$ ;;;IF PL NO CMP R2,#5 ;;;BOOTING IN? BEQ . ;;;IF EQ YES, LOOP HERE TRAP ER.IOE ;;;ELSE PRINT ERROR MESSAGE 32$: CMP #.+4,PC ;;;HAVE WE RELOCATED YET? BEQ 40$ ;;;IF EQ YES MOV #CTBOO,R4 ;;;POINT TO DESTINATION .IFT MOV #2000,SP ;;;SET INITIAL SP .IFF MOV #$BOOT,SP ;;;SET SP .IFTF CALL @#128. ;;;RELOCATE (AND SET UP KT11 IF MAPPED) 35$: MOV #512.,R5 ;;;SET TO WRITE 512. BYTE BLOCKS .IFT CLR @#UISAR6 ;;;CLEAR USER APR6 MOV #140000,R3 ;;;INITIALIZE MEMORY ADDRESS .IFF CLR R3 ;;;RESET MEMORY ADDRESS .ENDC BR 10$ ;;;BRANCH TO READ IN CORE IMAGE 40$: DEC R0 ;;;MORE BLOCKS? BNE 10$ ;;;IF NE YES TST (R2) ;;;EXIT VIA ODD ADDRESS TRAP SIZCHK CTBOO,128. ;;;CHECK SIZE OF BOOT STRAP .PAGE .ENDC ; ; MAGTAPE BOOTSTRAP ; ; THE FOLLOWING CODE IS MOVED TO THE BUFFER AT $BTBEG AND EXECUTED THERE. ; BEGBOO MT,TU16!TM11 ;;; $MMBOO==$MTBOO ;;;DEFINE FOR TU16 REFERENCE 5$: ;;;REFERENCE LABEL .IF DF M$$MGE MOV #CMODE!PR7,@#6 ;;;SET TO TRAP IN USER MODE AT PR7 .IFF MOV #PR7,@#6 ;;;SET TO TRAP AT PR7 .ENDC BR 45$ ;;;BR FOR TM11 BOOT (THE LOW-ORDER BYTE ;;; IS CLEARED HERE FOR EXECUTING THE TU16 ;;; BOOT FIRST) BR 15$ ;;;BR FOR TU16 BOOT 10$: MOV #172440,R1 ;;;SET DEFAULT CSR ADDRESS FOR TU16 MOV #71,R2 ;;;SET READ COMMAND 15$: MOV #40$-5$+$BTBEG,@#4 ;;;TRY MT ON MEMORY FAULT BIS #40,10(R1) ;;;RESET CONTROLLER 20$: MOV #-512.,6(R1) ;;;INIT FRAME COUNT REGISTER FOR WRITES MOV #-512./2,2(R1) ;;;NO. OF WORDS TO READ BIS R2,@R1 ;;;INIT OPERATION 30$: TSTB @R1 ;;;WAIT FOR COMPLETION BPL 30$ ;;;IF PL NOT DONE TST @R1 ;;;ERRORS? BPL 35$ ;;;IF PL NO BIT #4000,10(R1) ;;;NONEXISTANT MEMORY? BNE 70$ ;;;IF NE YES BR 62$ ;;;ELSE HANDLE ERROR 35$: DEC R0 ;;;MORE BLOCKS? BNE 20$ ;;;IF NE YES BR 70$ ;;;BRANCH AROUND NEXT BOOT 40$: MOV #172522,R1 ;;;DEFAULT CSR ADDRESS FOR TM11 MOV #60003,R2 ;;;SET READ COMMAND 45$: MOV #10$-5$+$BTBEG,@#4 ;;;TRY TU16 ON MEMORY FAULT CLR 4(R1) ;;;SET TO FILL FROM LOCATION 0 47$: BIT #1,-2(R1) ;;;READY FOR FIRST COMMAND? BEQ 47$ ;;;IF EQ NO 50$: MOV #-512.,2(R1) ;;;NO. OF BYTES PER RECORD BIS R2,@R1 ;;;START A READ MOV #25,R3 ;DELAY FOR THE SLOW TM11 55$: DEC R3 ;AND SOME MORE BNE 55$ ; 60$: BIT #1,-2(R1) ;;;TUR? BEQ 60$ ;;;IF EQ NO TST @R1 ;;;ERROR? BPL 65$ ;;;IF PL NO TSTB -2(R1) ;;;NONEXISTANT MEMORY BMI 70$ ;;;IF MI YES 62$: BIT #12,R2 ;;;BOOTING IN? BNE . ;;;IF NE YES, LOOP HERE TRAP ER.IOE ;;;ELSE PRINT ERROR MESSAGE 65$: DEC R0 ;;;MORE BLOCKS TO MOVE? BNE 50$ ;;;IF NE YES 70$: BIT #12,R2 ;;;READ COMMAND? BEQ 80$ ;;;IF EQ NO MOV R2,@#RDCMD ;;;ELSE INDICATE READ IN 80$: ;;; ENDBOO MT ;;; .ENDC ; ; FLOPPY BOOTSTRAP CODE ; ; NO CODE IS MOVED INTO THE BUFFER AT $BTBEG. ; BEGBOO DX,RX11 ENDBOO DX,NOPAGE ; ; THE FOLLOWING CODE IS THE SPECIAL ROUTINE WHICH OUTPUTS THE FIRST TWO ; SECTORS OF THE FLOPPY BOOTSTRAP. THE FINAL SECTOR IS OUTPUT BY THE SIP ; MODULE. THE ROUTINES MBB0 AND MBB1 ARE IN THE SPECIAL CASSETTE BOOTSTRAP ; ROUTINE. ; MOV #$QDPB+Q.IOPL+10,R1 ;POINT TO BLOCK NUMBER IN QIO DPB MOV #DXBOO+128.,R5 ;POINT TO SECOND BLOCK OF FLOPPY BOOT MOV #IO.WPB,$QDPB+Q.IOFN ;CHANGE FUNCTION TO WRITE PHYSICAL MOV #28.,(R1) ;POINT TO SECTOR 28. CALL MBB1 ;WRITE THE SECTOR MOV #DXBOO,R5 ;POINT TO FIRST SECTOR OF BOOT MOV #26.,(R1) ;POINT TO SECTOR 26. CALL MBB0 ;WRITE SECTOR AND CLACULATE ENTRY POINT FOR ;WRITING SYSTEM IMAGE MOV #30.,(R1) ;POINT TO SECTOR 30. FOR FINAL PART OF BOOT RETURN ; ; ; THE FOLLOWING CODE IS THE FLOPPY BOOTSTRAP. IT IS EXECUTED IN PLACE TO ; READ AND WRITE THE SYSTEM IMAGE. ; .ENABL LSB ;;; DXBOO: NOP ;;;REQUIRED FIRST INSTRUCTION MOV (PC)+,R1 ;;;PICK UP CSR ADDRESS .BLKW 1 ;;; MOV (PC)+,R2 ;;;PICK UP OP CODE .BLKW 1 ;;; 4$: TSTB (R1) ;;;WAIT HERE FOR DRIVE READY BEQ 4$ ;;; TST R0 ;;;UNIT 1? BEQ 5$ ;;;IF EQ NO BIS #10020,R2 ;;;SET UNIT=1 IN COMMAND 5$: MOV PC,R0 ;;;SET INITIAL COUNT BIT #2,R2 ;;;ARE WE BOOTING IN (READ FUNCTION)? BEQ SKEW1 ;;;IF EQ NO, BRANCH TO BUMP PARAMETERS MOV #<3*256.>+1,R4 ;;;INITIALIZE TRACK ADDRESS TO TRACK 1 SEC 3 MOV #3,R5 ;;;SET TO RELOCATE AFTER 3 READS MOV #200,R3 ;;;SET INITIAL MEMORY ADDRESS .IF DF M$$MGE MOV #2000,SP ;;;SET INITIAL SP .IFF MOV #$BOOT-2,SP ;;;SET SP .IFTF MOV PC,(SP) ;;;SET ADDRESS OF TRAN ROUTINE ADD #TRAN-.,(SP) ;;; BR RESUM ;;;BR TO READ NEXT SECTOR RESTRT: ;;;REFERENCE LABEL 10$: BIT #2,R2 ;;;EMPTY SILO? BNE 15$ ;;;IF NE YES 12$: CALL @(SP)+ ;;;WAIT FOR TR .IFT BPL BUMP ;;;IF PL DONE, CHECK ADDRESS .IFF BPL 30$ ;;;IF PL DONE .IFTF MOVB (R3)+,(R1) ;;;FILL SILO BR 12$ ;;;BR FOR MORE 15$: CALL @(SP)+ ;;;WAIT FOR TR .IFT BPL BUMP ;;;IF PL DONE, CHECK ADDRESS .IFF BPL 30$ ;;;IF PL DONE .IFTF MOVB (R1),(R3)+ ;;;EMPTY SILO BR 15$ ;;;BR FOR MORE 20$: SWAB R4 ;;;SWITCH TRACK AND SECTOR ADDRESSES MOVB R4,(R1) ;;;MOVE IN TRACK OR SECTOR ADDRESS FOR TRANSFER CMPB (R4)+,(R4)+ ;;;ADD IN INTERLEAVE FACTOR RESUM: ;;; 30$: CALL @(SP)+ ;;;INITIATE FUNCTION OR WAIT BMI 20$ ;;;IF MI THEN ADDRESS BYTE IS NEEDED CMPB -(R4),-(R4) ;;;SUBTRACT INTERLEAVE FACTOR FROM TRACK ADDRESS DEC R5 ;;;TIME TO ADJUST ADDRESS? BLE SKEW0 ;;;IF LE YES RESUM0: CMP R4,#<27.*256.> ;;;TIME TO WRAP AROUND? BHIS BUMP1 ;;;IF HIS YES RESUM2: ;;;REFERENCE LABEL 50$: DEC R0 ;;;MORE BLOCKS TO GO? BNE 10$ ;;;IF NE NO BR DXDONE ;;;EXIT FROM BOOT .DSABL LSB ;;; .ENABL LSB ;;; 10$: TST -(R1) ;;;ERROR? BMI DXERR ;;;IF MI YES, HANDLE ERROR SWAB R2 ;;;SWITCH FUNCTIONS CALL @(SP)+ ;;;RETURN WITH N-BIT CLEAR (FUNCTION COMPLETE) TRAN: MOV R2,(R1)+ ;;;INITIATE FUNCTION 20$: TSTB -2(R1) ;;;TR OR DONE? BEQ 20$ ;;;IF EQ NO BPL 10$ ;;;IF PL DONE CALL @(SP)+ ;;;RETURN WITH N-BIT SET (MUST ACCESS DATA REG) BR 20$ ;;;BR TO WAIT SIZCHK DXBOO,128. ;;;CHECK SIZE OF FIRST BLOCK OF BOOT STRAP .DSABL LSB ;;; .ENABL LSB ;;; SKEW0: CMP R4,#<9.*256.>+1 ;;;TIME TO RELOCATE? BNE 10$ ;;;IF NE NO MOV #DXBOO,R4 ;;;POINT TO DESTINATION MOV R2,@#RDCMD-$SETUP+256. ;;;SAVE READ COMMAND CALL @#256. ;;;RELOCATE BOOTSTRAP (AND SET UP KT IF MAPPED) BR 5$ ;;;BR TO RESET PARAMETERS SKEW1: MOV R4,R0 ;;;SET BLOCK COUNT 5$: ASL R0 ;;;CONVERT FROM 256 WORD BLOCKS TO 64 ASL R0 ;;; WORD BLOCKS MOV #<17.*256.>+1,R4 ;;;ADDRESS SECTOR AFTER LABEL BLOCK MOV #5,R5 ;;;SET SKEW COUNTER .IFT CLR @#UISAR6 ;;;CLEAR USER APR6 MOV #140000,R3 ;;;INITIALIZE MEMORY POINTER .IFF CLR R3 ;;;INITIALIZE MEMORY POINTER .IFTF MOV #TRAN,(SP) ;;;SET COROUTINE ADDRESS BIT #2,R2 ;;;READING? BEQ RESTRT ;;;IF EQ NO INC R0 ;;;MUST BUMP COUNT SWAB R2 ;;;CHANGE FUNCTIONS BR RESUM ;;;READ NEXT SECTOR 10$: TST R5 ;;;SWITCH TO EVEN SECTORS? BEQ 20$ ;;;IF EQ YES CMP R5,#-13. ;;;TIME TO SKEW TO NEXT TRACK? BNE RESUM0 ;;;IF NE NO MOV #DXDONE,@#4 ;;;SET TO CATCH NONEXISTANT MEM TRAPS MOV #13.,R5 ;;;RESET SKEW COUNT ADD #<4*256.>+1,R4 ;;;SKEW TO NEXT TRACK AND ODD SECTORS 20$: ADD #<1*256.>,R4 ;;;SWITCH TO EVEN SECTORS BR RESUM0 ;;;RESUME .IFT BUMP: CMP R3,#160000 ;;;OVERFLOWED APR6 YET? BLO RESUM ;;;IF LO NO MOV #140000,R3 ;;;RESET MEMORY ADDRESS ADD #200,@#UISAR6 ;;;BUMP RELOCATION BIAS BR RESUM ;;;RESUME .ENDC BUMP1: ADD #-<26.*256.>,R4 ;;;WRAP AROUND TO BEGINNING OF TRACK BR RESUM2 ;;;CONTINUE DXERR: BIT #2,R2 ;;;BOOTING IN? BNE . ;;;IF NE YES, LOOP HERE TRAP ER.IOE ;;;ELSE PRINT ERROR MESSAGE DXDONE: BIC #10020,R2 ;;;CLEAR UNIT-SELECT BIT SWAB R2 ;;;CREATE ORIGINAL READ COMMAND JMP $BTEND ;;;JUMP TO END OF BOOT PROCESSING SIZCHK DXBOO,256. ;;;CHECK SIZE OF SECOND BLOCK OF BOOT .DSABL LSB ;;; .PAGE .ENDC ; ; JG004 ; FLOPPY BOOTSTRAP CODE FOR RX02 DEVICE ; JG004 ; ; JG004 ; SOME USEFUL INFORMATION: ; JG004 ; ; JG004 ; THIS CODE MUST BE POSITION INDEPENDANT. WHEN SAVING THE SYSTEM, ; JG004 ; THE CODE IS MOVED TO THE BUFFER AT $BTBEG AND EXECUTED THERE. ; JG004 ; WHEN BOOTING IN THE SYSTEM, THE RELOCATION ROUTINE ($SETUP) ; JG004 ; POSITIONS THE CODE BACK INTO SIP WHERE IT WAS ORIGINALLY ; JG004 ; LOCATED AND EXECUTED THERE. ; JG004 ; THIS CODE EVENTUALLY GETS WRITTEN OVER WHEN BOOTING IN ; JG004 ; THE SYSTEM. THE STACK IS VERY SENSITIVE. THE STACK POINTER ; JG004 ; MUST BE AT THE SAME LEVEL WHEN SAVING THE SYSTEM AS WHEN ; JG004 ; BOOTING THE SYSTEM. CO-ROUTINE ADDRESSES ARE LOCATED ON ; JG004 ; THE STACK AND MUST BE AT THE SAME POSITION ON THE STACK WHEN ; JG004 ; SAVING THE SYSTEM AS WHEN BOOTING THE SYSTEM. ; JG004 ; ; JG004 ; WHEN DOING EMPTY/FILL COMMANDS, YOU MUST USE THE PHYSICAL ; JG004 ; ADDRESS FOR THE BUFFER. A VIRTUAL ADDRESS WILL BE INTERPERTED ; JG004 ; AS A PHYSICAL ADDRESS. THIS IS BECAUSE THE RX02 IS AN ; JG004 ; NPR DEVICE. BLOCK MOVES ARE DONE TO EMPTY/FILL THE SILO. ; JG004 ; ; JG004 ; WHEN BOOTING THE SYSTEM, IF THERE IS ANY ERROR WHEN TRYING ; JG004 ; TO ACCESS THE DISK, THE PROGRAM WILL LOOP FOREVER. ; JG004 ; SINCE THE SYSTEM IS NOT YET IN MEMORY, ERRORS CANNOT BE HANDLED. ; JG004 ; ; JG004 ; WHEN DOING A HARDWARE BOOT, ONE LOGICAL BLOCK (512 BYTES) IS BROUGHT ; JG004 ; INTO MEMORY STARTING AT PHYSICAL LOCATION 0 FOR THE RX02 DEVICE. ; JG004 ; FOR DOUBLE DENSITY DISK, TWO SECTORS ARE READ IN. ; JG004 ; FOR SINGLE DENSITY DISK, ONE SECTOR IS READ IN. ; JG004 ; ; JG004 ; ; JG004 ; THE REGISTERS ARE USED AS FOLLOWS FOR SAVING AND BOOTING SYSTEM: ; JG004 ; ; JG004 ; R0 - BLOCK COUNT ; JG004 ; 64 WORD BLOCKS FOR SINGLE DENSITY ; JG004 ; 128 WORD BLOCKS FOR DOUBLE DENSITY ; JG004 ; R1 - CSR ADDRESS ; JG004 ; R2 - COMMAND CODE ; JG004 ; WHEN SAVING SYSTEM,WRITE AND FILL COMMANDS ; JG004 ; WHEN BOOTING SYSTEM,EMPTY AND READ COMMANDS ; JG004 ; R3 - PHYSICAL ADDRESS OF BUFFER ; JG004 ; TWO BITS IN THE CSR ARE ALSO USED FOR EXTENDED ADDRESSING ; JG004 ; (TO ACHIEVE 18 BIT ADDRESSING) ; JG004 ; R4 - TRACK AND SECTOR NUMBER ; JG004 ; TRACK 0 IS NOT USED. THIS IS TO BE COMPATIBLE WITH IBM. ; JG004 ; IBM DOES SOMETHING SPECIAL WITH THERE TRACK 0. ; JG004 ; R5 - SKEW COUNTER ; JG004 ; R6 - USER STACK POINTER ; JG004 ; SIP IS MAPPED TO USER APR 5. ; JG004 ; ; JG004 ; ; JG004 ; JG004 BEGBOO DY,RX21 ; JG004 ; ; JG004 ; THE FOLLOWING CODE IS MOVED TO THE BUFFER AT $BTBEG AND EXECUTED THERE. ; JG004 ; ; JG004 ; JG004 .ENABL LSB ;;; ; JG004 DYBOO: NOP ;;;REQUIRED FIRST INSTRUCTION ; JG004 BR 2$ ;;; ; JG004 DENS:: .WORD 0 ;;; = 128. WORDS - DOUBLE DENSITY ; JG004 ;;; = 64. WORDS - SINGLE DENSITY ; JG004 FUNCT: .WORD 0 ;;; FUNCTION CODE FOR I/O OPERATION ; JG004 BUFSIZ: .WORD 0 ;;; BUFFER SIZE INCREMENT IN BYTES ; JG004 ;;; 256. BYTES FOR DOUBLE DENSITY ; JG004 ;;; 128. BYTES FOR SINGLE DENSITY ; JG004 UNIT:: .WORD 0 ;;; CONTAINS UNIT # ; JG004 TRKBUF: .WORD 0 ;;; BUFFER FOR TRACK AND SECTOR # ; JG004 2$: TSTB (R1) ;;;WAIT HERE FOR DRIVE READY ; JG004 BEQ 2$ ;;; ; JG004 BIT #2,R2 ;;; BOOTING IN ? ; JG004 BNE 3$ ;;; YES ; JG004 TST UNIT ;;;UNIT 0? ; JG004 BEQ 5$ ;;;IF EQ YES ; JG004 BR 4$ ;;; NO ; JG004 3$: ;;; ; JG004 BIT #20,(R1) ;;; CHECK CSR FOR UNIT # - UNIT 1 ? ; JG004 BEQ 5$ ;;; IF EQ NO ; JG004 4$: ;;; ; JG004 BIS #10020,R2 ;;;SET UNIT=1 IN COMMAND ; JG004 5$: ;;; ; JG004 CMP #128.,DENS ;;; DOUBLE DENSITY ? ; JG004 BEQ 8$ ;;; YES ; JG004 MOV #128.,BUFSIZ ;;; # OF BYTES TO BUMP BUFFER ADDRESS BY ; JG004 BR 9$ ;;; ; JG004 8$: ;;; ; JG004 MOV #256.,BUFSIZ ;;; # OF BYTES TO BUMP BUFFER ADDRESS BY ; JG004 BIS #400,FUNCT ;;; SET DOUBLE DENSITY BIT IN COMMAND WORD ; JG004 9$: ;;; ; JG004 JMP SKEW12 ;;; YES - BOOTING IN ; JG004 RSTRT: ;;;REFERENCE LABEL ; JG004 CALL @(SP)+ ;;;WAIT FOR TR ; JG004 BPL RSUM ;;;IF PL DONE, CHECK ADDRESS ; JG004 MOV DENS,2(R1) ;;; ISSUE SECTOR SIZE ; JG004 CALL @(SP)+ ;;; DUMP SECTOR SIZE INTO CSR ; JG004 MOV R3,2(R1) ;;; ISSUE BUFFER ADDRESS ; JG004 ADD BUFSIZ,R3 ;;; UPDATE BUFFER ADDRESS ; JG004 BCC 14$ ;;; NO EXTENDED ADDRESSING NEEDED ; JG004 ADD #10000,FUNCT ;;; SET EXTENDED ADDRESSING BIT ; JG004 14$: ;;; ; JG004 BITB #240,(R1) ;;; ; JG004 BEQ 14$ ;;; LOOP UNTIL SILO IS FILLED/EMPTIED ; JG004 BR RSTRT ;;; ; JG004 20$: SWAB R4 ;;;SWITCH TRACK AND SECTOR ADDRESSES ; JG004 MOV R4,TRKBUF ;;; SAVE R4 ; JG004 BIC #177400,TRKBUF ;;; CLEAR HIGH BYTE ; JG004 MOV TRKBUF,2(R1) ;;; MOVE IN TRACK OR SECTOR ADDRESS FOR TRANSFE; JG004 CMPB (R4)+,(R4)+ ;;;ADD IN INTERLEAVE FACTOR ; JG004 RSUM: ;;; ; JG004 CALL @(SP)+ ;;;INITIATE FUNCTION OR WAIT ; JG004 BMI 20$ ;;;IF MI THEN ADDRESS BYTE IS NEEDED ; JG004 CMPB -(R4),-(R4) ;;;SUBTRACT INTERLEAVE FACTOR FROM TRACK ADDRESS; JG004 DEC R5 ;;;TIME TO ADJUST ADDRESS? ; JG004 BLE SKEW10 ;;;IF LE YES ; JG004 RSUM0: CMP R4,#<27.*256.> ;;;TIME TO WRAP AROUND? ; JG004 BLO RSUM2 ;;;IF LO NO ; JG004 ADD #-<26.*256.>,R4 ;;; WRAP AROUND TO BEG OF TRACK ; JG004 RSUM2: ;;;REFERENCE LABEL ; JG004 DEC R0 ;;;MORE BLOCKS TO GO? ; JG004 BNE RSTRT ;;;IF NE NO ; JG004 BR DYDONE ;;;EXIT FROM BOOT ; JG004 .DSABL LSB ;;; ; JG004 ; JG004 .ENABL LSB ;;; ; JG004 10$: ;;; ; JG004 TST (R1) ;;;ERROR? ; JG004 BMI DYERR ;;; IF MI YES, HANDLE ERROR ; JG004 SWAB R2 ;;;SWITCH FUNCTIONS ; JG004 CALL @(SP)+ ;;;RETURN WITH N-BIT CLEAR (FUNCTION COMPLETE) ; JG004 TRANSF: ;;; ; JG004 CLRB FUNCT ;;; CLEAR LOW BYTE ; JG004 BISB R2,FUNCT ;;; GET FUNCTION CODE ; JG004 MOV FUNCT,(R1) ;;; DUMP COMMAND IN CSR REG ; JG004 20$: ; JG004 BITB #240,(R1) ;;; TR OR DONE ? ; JG004 BMI 22$ ;;; TR SET ; JG004 BEQ 20$ ;;; LOOP TILL TR OR DONE SET ; JG004 BPL 10$ ;;; DONE SET ; JG004 22$: ;;; ; JG004 CALL @(SP)+ ;;;RETURN WITH N-BIT SET (MUST ACCESS DATA REG) ; JG004 BR 20$ ;;;BR TO WAIT ; JG004 .DSABL LSB ;;; ; JG004 ; JG004 .ENABL LSB ;;; ; JG004 SKEW12: ;;; ; JG004 ASL R0 ;;;CONVERT FROM 256 WORD BLOCKS TO 64 FOR SINGLE; JG004 BIT #200,DENS ;;; DOUBLE DENSITY FLOPPY ??? ; JG004 BNE 6$ ;;; YES - CONVERT ONLY TO 128 WORD BLOCKS ; JG004 ASL R0 ;;; ; JG004 6$: ;;; ; JG004 MOV #<17.*256.>+1,R4 ;;;ADDRESS SECTOR AFTER LABEL BLOCK ; JG004 MOV #5,R5 ;;;SET SKEW COUNTER ; JG004 CLR R3 ;;;INITIALIZE MEMORY POINTER ; JG004 MOV PC,-(SP) ;;; GET TRAN ADDRESS ON STACK ; JG004 ADD #TRANSF-.,(SP) ;;;SET COROUTINE ADDRESS ; JG004 BIT #2,R2 ;;;READING? ; JG004 BEQ RSTRT ;;;IF EQ NO ; JG004 INC R0 ;;;MUST BUMP COUNT ; JG004 BR RSUM ;;;READ NEXT SECTOR ; JG004 SKEW10: ;;; ; JG004 TST R5 ;;;SWITCH TO EVEN SECTORS? ; JG004 BEQ 20$ ;;;IF EQ YES ; JG004 CMP R5,#-13. ;;;TIME TO SKEW TO NEXT TRACK? ; JG004 BNE RSUM0 ;;;IF NE NO ; JG004 MOV PC,R5 ;;; GET ADDRESS OF DYDONE ; JG004 ADD #DYDONE-.,R5 ;;;SET TO CATCH NONEXISTANT MEM TRAPS ; JG004 MOV R5,@#4 ;;; ; JG004 MOV #13.,R5 ;;;RESET SKEW COUNT ; JG004 ADD #<4*256.>+1,R4 ;;;SKEW TO NEXT TRACK AND ODD SECTORS ; JG004 20$: ADD #<1*256.>,R4 ;;;SWITCH TO EVEN SECTORS ; JG004 BR RSUM0 ;;;RESUME ; JG004 ; JG004 DYERR: ;;; ; JG004 BIT #2,R2 ;;; BOOTING IN? ; JG004 BNE . ;;; LOOP HERE ; JG004 TST (SP)+ ;;; POP STACK - PTR TO TRANSF WAS PUSHED ON ; JG004 TRAP ER.IOE ;;; ELSE PRINT ERROR MESSAGE ; JG004 DYDONE: ;;; ; JG004 BIC #10020,R2 ;;;CLEAR UNIT-SELECT BIT ; JG004 SWAB R2 ;;;CREATE ORIGINAL READ COMMAND ; JG004 TST (SP)+ ;;; POP STACK - PTR TO TRANSF WAS PUSHED ON ; JG004 .DSABL LSB ;;; ; JG004 ENDBOO DY ; JG004 .PAGE ; JG004 ; JG004 .ENDC ; JG004 ; ; PAPER TAPE BOOTSTRAP ; ; THE BUFFER AT $BTBEG IS FILLED WITH NOPS. ; BEGBOO PP,PP11 ;;; NOP ;;;FILL BUFFER WITH NOPS ENDBOO PP,NOPAGE ;;; ; ; THE FOLLOWING CODE OUTPUTS THE SYSTEM IMAGE IN ABSOLUTE LOADER FORMAT. ; CLR R3 ;;;POINT TO LOCATION 0 10$: MOV #$FBBUF-2,R4 ;;;POINT TO BLOCK LOAD POINT IN OUTPUT BUF MOV R3,(R4)+ ;;;ENTER BLOCK LOAD POINT 20$: MOV (R3)+,(R4)+ ;;;LOAD OUTPUT BUFFER CMP R4,#$CKSUM ;;;END OF BUFFER? BLO 20$ ;;;IF LO NO CLR (R4) ;;;CLEAR CHECK SUM MOV #$FBBUF-10.,R2 ;;;POINT TO OUTPUT BUFFER 30$: TSTB (R1) ;;;PUNCH READY? BPL 30$ ;;;IF PL NO TST (R1) ;;;ERRORS? BPL 40$ ;;;IF PL NO TRAP ER.IOE ;;;ELSE I/O ERROR 40$: MOVB (R2),2(R1) ;;;WRITE BYTE MOVB (R2)+,R5 ;;;COPY BYTE INTO R5 ADD R5,(R4) ;;;ACCUMULATE CHECKSUM CMP R2,R4 ;;;END OF BUFFER YET? BLO 30$ ;;;IF LO NO BHI 50$ ;;;IF HI THEN PAST CHECKSUM BYTE NEGB (R4) ;;;CALCULATE CHECKSUM BR 30$ ;;;BR TO OUTPUT CHECKSUM 50$: DEC R0 ;;;BLOCKS REMAINING? BGT 10$ ;;;IF GT YES BLT 60$ ;;;IF LT, TRANSFER ADDRESS HAS BEEN OUTPUT CLRB -(R2) ;;;RESET CHECKSUM BYTE .IF DF M$$MGE MOV @#UISAR5,-(R2) ;;;CALCULATE PHYSICAL TRANSFER ADDRESS SWAB (R2) ;;;CONVERT BASE ADDRESS TO BYTES ASRB (R2) ;;; ROR (R2) ;;; ROR (R2) ;;; ADD #$BOOT,(R2) ;;;CALCULATE ADDRESS OF $BOOT SUB #120000,(R2) ;;;SUBTRACT APR5 VIRTUAL BASE .IFF MOV #SYSTRT,-(R2) ;;;SET TRANSFER ADDRESS .ENDC MOV #6,-(R2) ;;;SET BYTE COUNT MOV #1,-(R2) ;;;FORMATTED BINARY HEADER CLR -(R2) ;;;OUTPUT FOUR NULLS CLR -(R2) ;;; BR 30$ ;;;OUTPUT IT 60$: JMP DONE ;;;RESTART SIP .PAGE .ENDC .PAGE ; ; COMMON BOOT-BLOCK CODE ; .PSECT $BOOT:: NOP ;;;FIRST WORD MUST BE A NOP MOV #$BOOT,R4 ;;;POINT TO DESTINATION OF BOOT BLOCK MOV R4,SP ;;;SET INITIAL SP CALL $SETUP ;;;RELOCATE BOOT AND ENABLE KT IF MAPPED BR $BTBEG ;;;EXECUTE BOOTSTRAP ; ; SETUP - ROUTINE TO RELOCATE BOOTSTRAP AND ENABLE KT11 IF SYSTEM ; IS MAPPED. ; ; INPUTS: ; ; R4 = DESTINATION ADDRESS ; ; OUTPUTS: ; ; BOOTSTRAP IS RELOCATED AND KT11 SET UP FOR MAPPED SYSTEM ; R0-R2 SETUP FOR BOOTSTRAP ; R3-R4 DESTROYED ; $SETUP::ADD R4,(SP) ;;;RELOCATE RETURN ADDRESS .IF DF M$$MGE MOV #PMODE!PR7,@#PS ;;;SET TO KERNEL MODE (PREVIOUS=USER) MOV #KISAR0,R0 ;;;POINT TO KERNAL APR0 MOV #KISDR0,R1 ;;;POINT TO KERNAL PDR0 MOV #UISAR0,R2 ;;;POINT TO USER APR0 CLR R3 ;;;SET INITIAL OFFSET 10$: MOV R3,(R0)+ ;;;SET KERNAL APR MOV R3,(R2)+ ;;;SET USER APR MOV #77406,(R1) ;;;SET UP KERNAL PDR MOV (R1)+,UISDR0-KISDR0-2(R1) ;;;SET UP USER PDR ADD #200,R3 ;;;BUMP R3 BY 4K WORDS CMP R0,#KISAR7 ;;;FIRST 7 APRS SET? BLOS 10$ ;;;IF LOS NO MOV #177600,-(R0) ;;; POINT KERNAL APR7 INTO I/O PAGE JG005 MOV (R0),-(R2) ;;;POINT USER APR7 INTO I/O PAGE J**-1 INC @#SR0 ;;;ENABLE MEMORY MANAGEMENT .IFTF MOV PC,R2 ;;;POINT TO BOOT PARAMETERS ADD #$BTDRV-.,R2 ;;; .IFT MOV (R2)+,@#UISAR5 ;RESTORE USER APR5 .IFTF MOV (R2)+,R0 ;;;PICK UP BLOCK COUNT FOR TRANSFER MOV (R2)+,R1 ;;;PICK UP CSR ADDRESS MOV (R2)+,R2 ;;;PICK UP TRANSFER COMMAND .IFT BIT #177000,PC ;;;RELOCATION REQUIRED? BEQ 15$ ;;;IF EQ YES MOV R2,(SP) ;;;SET RETURN ADDRESS FOR PAPER TAPE($BTBEG) BR 30$ ;;;BR TO EXIT 15$: ;;;REFERENCE LABEL .IFTF CLR R3 ;;;POINT TO BOOTSTRAP 20$: .IFT MOV (R3)+,-(SP) ;;;PICK UP WORD OF BOOTSTRAP MTPI (R4)+ ;;;MOVE IT INTO USER SPACE .IFF MOV (R3)+,(R4)+ ;;;MOVE BOOTSTRAP .IFTF CMP R3,#1000 ;;;DONE YET? BLO 20$ ;;;IF LO NO 30$: ;;;REFERENCE LABEL .IFT MOV #$BOOT-2,-(SP) ;;;PUSH USER STACK POINTER MTPI SP ;;; MOV (SP),-(SP) ;;;DUPLICATE RETURN ADDRESS ON STACK MOV #CMODE!PR7,2(SP) ;;;SET TO RETURN IN USER MODE RTI ;;;RETURN TO CALLER .IFF RETURN ;;;RETURN TO CALLER .IFTF ; ; BOOT-BLOCK DRIVING PARAMETERS ; $BTDRV:: .IFT .BLKW 1 ;;;SAVED UISAR4 .ENDC .BLKW 1 ;;;BLOCK COUNT .BLKW 1 ;;;CSR ADDRESS RDCMD: .BLKW 1 ;;;READ COMMAND SIZCHK $SETUP,128. ;;;CHECK SIZE OF COMMON AREA ; ; DEVICE BOOT CODE GOES HERE ; $BTBEG::.BLKB MX$LEN ;;;DEVICE BOOT BUFFER ; ; THE FOLLOWING CODE IS NOT PART OF THE BOOT BLOCK. IT IS EXECUTED AFTER ; THE ENTIRE SYSTEM IMAGE IS READ IN. FIRST THE CLOCK IS SET UP. ; .ENABL LSB ;;; $BTEND::CMP R2,RDCMD ;;;WAS THIS A BOOT IN? BEQ SYSTRT ;;;IF EQ YES DONE: MOV $TRPSV,@#4 ;;;RESTORE NONEXISTANT MEMORY ADDRESS VECTOR .IF DF M$$MGE .IF DF M$$EXT ;JG005 MOV #60,@#SR3 ; ENABLE 22 BIT ADDRESSING AND UNIBUS MAP ;JG005 .ENDC ;JG005 CLRB @#6+1 ;;; .ENDC MTPS #0 ;;;DROP PRIORITY .IF DF TA11!TM11!TU16 BIT #CB.EOF,$FLGS ;END OF FILE MARKERS REQUIRED? BEQ 3$ ;IF EQ NO MOV #IO.EOF,$QDPB+Q.IOFN ;SET FOR WRITE EOF FUNCTION CALL $QIOWT ;WRITE TWO EOF'S CALL $QIOWT ; .ENDC 3$: JMP $RSTRT ;RESTART SIP SYSTRT: MOV #NODEV,@#4 ;;;SET NONEXISTANT MEMOR TRAP .IF DF M$$EXT ;JG005 MOV #UBMPR,R5 ; POINT TO FIRST UNIBUS MAPPING REGISTER ;JG005 TST (R5) ; DOES I/O MAP EXIST ? ;JG005 BCS 7$ ; NO - DO NOT INITIALIZE MAP ;JG005 CLR R1 ; SET INITIAL ADDRESS TO ZERO ;JG005 MOV #5.,R4 ; SET NUMBER OF REGISTER PAIRS TO LOAD ;JG005 ; (EXEC MAPPING) ;JG005 5$: ; ;JG005 MOV R1,(R5)+ ; LOAD LOW 16 BITS OF ADDRESS ;JG005 CLR (R5)+ ; CLEAR HIGH 6 BITS OF ADDRESS ;JG005 ADD #20000,R1 ; ADVANCE 8K BYTES ;JG005 DEC R4 ; ANY MORE TO LOAD ? ;JG005 BGT 5$ ; IG GT YES ;JG005 BIS #HF.UBM,$HFMSK ; SET UNIBUS FEATURE MASK BIT ;JG005 BR 8$ ; JOIN COMMON CODE ;JG005 7$: ; ;JG005 CLR $UMRPT ; INDICATE NO I/O MAP IN THIS SYSTEM ;JG005 BIC #HF.UBM,$HFMSK ; CLEAR UNIBUS FEATURE MASK BIT ;JG005 8$: ; ;JG005 MOV #60,@#SR3 ; ENABLE 22 BIT ADDRESSING AND UNIBUS MAP ;JG005 .ENDC ;JG005 .IF NDF L$$SI1 TST @$CKCSR ;;;IS THE CLOCK OF THE SAVED SYSTEM THERE? BCC 10$ ;;;IF CC YES MOV #172540,$CKCSR ;;;ASSUME KW11-P MOV #172542,$CKCNT ;;; MOV #10.,$CKLDC ;;; MOV #1000.,$TKPS ;;;1000. TICKS PER SECOND MOV #$NONSI,@#100 ;;;RESET KW11-L VECTOR MOV #$CKINT,@#104 ;;;SET KW11-P VECTOR TST @$CKCSR ;;;IS IT THERE? BCC 10$ ;;;IF CC YES MOV #177546,$CKCSR ;;;MUST BE KW11-L MOV #177546,$CKCNT ;;; CLR $CKLDC ;;; MOV #60.,$TKPS ;;;60 TICKS PER SECOND MOV #$CKINT,@#100 ;;;SET KW11-L VECTOR MOV #$NONSI,@#104 ;;;RESET KW11-P VECTOR .ENDC ; ; DETERMINE WHICH DEVICES ARE PRESENT ; 10$: MOV $DEVHD,R5 ;;; GET ADDRESS OF DEVICE TABLE 20$: MOVB D.UNIT+1(R5),R3 ;;; COMPUTE NUMBER OF MOVB D.UNIT(R5),R1 ;;; UNITS ON THIS DCB SUB R1,R3 ;;; MOV D.UCB(R5),R4 ;;;GET ADDRESS OF FIRST UCB 30$: MOV U.SCB(R4),R1 ;;; GET ADDRESS OF SCB FOR NEXT DEVICE BIT #DV.PSE,U.CW1(R4) ;;; IS THIS A PSUEDO DEVICE? BNE 50$ ;;; YES, THEN SKIP TEST BICB #US.OFL,U.ST2(R4) ;;;TENTATIVELY CLEAR OFF-LINE BIT TSTB @S.CSR(R1) ;;;IS THE DEVICE THERE? BCC 40$ ;;; YES BISB #US.OFL,U.ST2(R4) ;;;SET DEVICE OFF-LINE BIT MOV #DEVNAM,R0 ;;;POINT TO DEVICE NAME IN MESSAGE MOV D.NAM(R5),(R0)+ ;;;MOVE IN DEVICE NAME MOVB D.UNIT+1(R5),R1 ;;;PICK UP HIGHEST UNIT NUMBER SUB R3,R1 ;;;CALCULATE NUMBER OF MISSING UNIT BIC #177700,R1 ;;;FORCE MODULO 64 CMP R1,#7 ;;;TWO DIGIT UNIT NUMBER? BHI 35$ ;;;IF HI YES MOVB #'0,(R0)+ ;;;IF NOT, USE ONE LEADING 0 35$: CLR R2 ;;;SET FOR ZERO SUPPRESSION CALL $CBOMG ;;;SET UNIT NUMBER ASCII IN BUFFER JSR R5,OUTMSG ;;;PRINT IT .WORD DEVMSG ;;; 40$: ADD D.UCBL(R5),R4 ;;;POINT TO NEXT UCB DEC R3 ;;;MORE UNITS? BGE 30$ ;;;IF GE YES 50$: MOV D.LNK(R5),R5 ;;; GET ADDRESS OF NEXT DCB BNE 20$ ;;; LOOP UNTIL DONE ; ; SET UP PARITY CSR ADDRESS TABLE ; .IF DF P$$RTY MOV #$PARTB,R0 ;;;GET ADDRESS OF PARITY CSR ADDRESS TABLE MOV R0,R1 ;;;COPY ADDRESS OF TABLE MOV #1,(R1)+ ;;;INSERT A ONE IN FIRST TABLE ENTRY MOV #MPAR-2,R2 ;;;GET ADDRESS OF FIRST PARITY REGISTER-2 MOV #16.,R3 ;;;SET NUMBER OF PARITY REGISTERS 51$: ADD #2,R2 ;;;ADVANCE TO NEXT PARITY CSR REGISTER MOV R2,(R1)+ ;;;ASSUME PARITY REGISTER PRESENT TST (R2) ;;;PARITY CSR REGISTER PRESENT? BCC 52$ ;;;IF CC YES MOV R0,-2(R1) ;;;POINT TO FIRST WORD OF TABLE 52$: DEC R3 ;;;ANY MORE TO SCAN? BGT 51$ ;;;IF GT YES MOV (R1),R1 ;;;11/70 CACHE PARITY CSR SEARCH DONE? BEQ 53$ ;;;IF EQ YES MOV #MPCSR-10,R2 ;;;POINT TO FIRST CSR ADDRESS -2 MOV #6,R3 ;;;SET COUNT OF REGISTERS BR 51$ ;;;SEARCH FOR THEM 53$: ;;;REF LABEL .ENDC ; ; DETERMINE SIZE OF SYSTEM ; CLR R1 ;;;CLEAR MEMORY SIZE COUNTER (IN 1K WORD UNITS) CLR R2 ;;;CLEAR MEMORY SIZE COUNTER (IN 32 WORD UNITS) .IF DF M$$MGE .IFF CLR R0 ;;;INITIALIZE MEMORY POINTER .IFTF 60$: .IFT MOV #140000,R0 ;;;INITIALIZE MEMORY POINTER MOV R2,UISAR6 ;;;INITIALIZE APR6 .IFTF TST (R0) ;;;MEMORY THERE? BCS 70$ ;;;IF CS NO INC R1 ;;;ELSE BUMP R1 BY 1 (K) ADD #40,R2 ;;;BUMP R2 BY 40 32 WORD BLOCKS (1K) .IF DF M$$EXT ;JG005 CMP R2,#170000 ; END OF MEMORY ? ;JG005 .IFF ;JG005 ;**-1 CMP R2,#7600 ;;;TO I/O PAGE YET? .ENDC ;JG005 .IFF CMP R2,#1600 ;;;TO I/O PAGE YET? .IFTF BHIS 70$ ;;;IF HI YES CMP R2,$SYSIZ ;;; SIZE > BOOT SIZE BHI 62$ ;;;IF HI YES .IFF ADD #4000,R0 ;;;BUMP ADDRESS BY 1K .ENDC BR 60$ ;;;TEST FOR MORE CORE 62$: MOV #2000,R3 ;;;ZERO 1K OF CORE 65$: MOV #0,(R0)+ ;;;STORE ZERO DEC R3 ;;;FINISHED ZEROING? BNE 65$ ;;;IF NE NO BR 60$ ;;;TEST FOR MORE CORE 70$: MOV R2,$SYSIZ ;;;SET CORE SIZE IN SYSTEM COMMON ;EF014 .IF DF M$$MGE&D$$YNM ;EF014 ;EF014 MOV R0,-(SP) ;SAVE R0 ;EF014 MOV R1,-(SP) ;SAVE R1 ;EF014 MOV #$PARHD,R0 ;PICK UP PCB LISTHEAD ;EF014 71$: MOV (R0),R1 ;GET ADDRESS OF NEXT PCB ;EF014 BEQ 77$ ;EQ => END OF LIST ;EF014 .IF DF M$$EXT ;EF014 CMP P.REL(R1),#177600 ;YES, IS IT DEVICE PARTITION? ;EF014 .IFF ;EF014 CMP P.REL(R1),#7600 ;IS THIS A DEVICE PARTITION? ;EF014 .ENDC ;EF014 BHIS 77$ ;YES ;EF014 MOV R1,R0 ;NO, GET NEXT PCB IN LIST ;EF014 BR 71$ ;LOOP UNTIL DEVICE PARTITION OR END ;EF014 77$: BIT #PS.SYS,P.STAT(R0) ;SYSTEM CONTROLLED PARTITION? ;EF014 BEQ 79$ ;NO ;EF014 MOV R2,-(SP) ;YES, GET SYSTEM SIZE IN BLOCKS ;EF014 SUB P.REL(R0),(SP) ;COMPUTE SIZE OF LAST PARTITION ;EF014 MOV (SP)+,P.SIZE(R0);AND SET IT ;EF014 ;EF014 79$: ;EF014 MOV (SP)+,R1 ;RESTORE R1 ;EF014 MOV (SP)+,R0 ;RESTORE R0 ;EF014 ;EF014 .ENDC ;EF014 ; ; PREPARE SYSTEM TO GO, PRINT SYSTEM ID MESSAGE AND EXIT ; MOV $HEADR,R0 ;;;POINT TO HEADER MOV H.LUN+<*4>(R0),R0 ;;;POINT TO LOAD DEVICE UCB CLR U.ATT(R0) ;;;PREVENT EXEC FROM PERFORMING DETACH MOV #SYSID,R0 ;;;POINT TO SYSTEM ID MESSAGE MOV $SYSID,(R0)+ ;;;MOVE IN SYSTEM BASE LEVEL MOV $SYSID+2,(R0)+ ;;; MOV (PC)+,(R0)+ ;;;MOVE IN SPACE, RUBOUT .BYTE 40,-1 ;;; MOV #-1,(R0) ;;;MOVE IN TWO MORE RUBOUTS OVER CORE SIZE DEC R0 ;;;POINT TO BEGINNING OF CORE SIZE CLR R2 ;;;ENABLE ZERO SUPRESSION CALL $CBDMG ;;;MOVE IN CORE-SIZE ASCII MOV #$CMDBF,R0 ;;;POINT TO BUFFER FOR TI: OUTPUT MOV #SYSMSG,R1 ;;;POINT TO SYSTEM ID MESSAGE 80$: MOVB (R1)+,(R0)+ ;;;MOVE ID MESSAGE TO BUFFER BNE 80$ ;;;IF NE MORE TO GO SUB #$CMDBF,R0 ;;;CALCULATE CHARACTER COUNT OF MESSAGE MOV $TRPSV,@#4 ;;;RESET NONEXISTANT MEMORY TRAP .IF DF M$$MGE CLRB @#6+1 ;;; MOV #CMODE!PR7,@#PS ;;;INSURE PROPER PREVIOUS MODE MOV $SAVE,-(SP) ;;;PUSH SAVED KERNAL STACK POINTER MTPI SP ;;;AND RESTORE IT .ENDC INC $PWRFL ;;;SIMULATE POWERFAIL TO RESET DRIVERS .IF NDF L$$SI1 MOV $CKLDC,@$CKCNT ;;;SET UP COUNT MOV #113,@$CKCSR ;;;ENABLE CLOCK .ENDC CALL $OUTMG ;;;PRINT SYSTEM ID MESSAGE JMP $SIPXT ;;;EXIT TO GIVE CONTROL TO SYSTEM .DSABL LSB ;;; ; ; ENTRY FOR BUS ERROR INTERRUPT ; NODEV: BIS #1,2(SP) ;;; SET CARRY BIT RTI ;;; RETURN ; ; CONSOLE OUTPUT ROUTINE ; ; INPUTS: ; ; (R5) = POINTER TO ASCIZ MESSAGE ; ; OUTPUTS: ; ; THE MESSAGE IS PRINTED TO THE CONSOLE TERMINAL IF ONE EXISTS ; R0 IS LOST ; OUTMSG: MOV (R5)+,R0 ;;;PICK UP ERROR MESSAGE POINTER 10$: TSTB TPS ;;;WAIT FOR READY CONDITION BCS 20$ ;;;IF CS, NO CONSOLE, EXIT BPL 10$ ;;;IF PL NOT READY MOVB (R0)+,TPS+2 ;;;OUTPUT CHARALCTER BNE 10$ ;;;IF NE THEN MORE TO GO 20$: RTS R5 ;;;RETURN .END L8x`kQ›c, .TITLE SIPCD .IDENT /01/ ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION: 01 ; BY: THOMAS J MILLER ; DATE: 3/23/75 ; ; SIPCD - COMMAND INPUT AND DECODING FOR THE RSX-11S SYSTEM IMAGE ; PRESERVATION PROGRAM ; ; ; MACRO LIBRARY LIBRARY CALLS ; .MCALL GTIM$S ; ; *** - $SIPCD READ AND PARSE A SIP COMMAND LINE AND SET UP LABEL BLOCK. ; $SIPCD::MOV #LUN2,R0 ;MOVE TI: LUN TO R0 CALL $ATT ;ATTACH TI: 1$: MOV #$CMDBF,R0 ;POINT TO INPUT BUFFER MOV (PC)+,(R0)+ ;MOVE IN PROMPT .BYTE 15,'S ; MOV #"IP,(R0)+ ; MOVB #'>,(R0)+ ; SUB #$CMDBF,R0 ;CALCULATE CHARACTER COUNT CALL $OUTMG ;PRINT IT MOV #IO.RVB,$QDPB+Q.IOFN ;SET FOR READ FUNCTION MOV #15.,R0 ;SET MAXIMUM READ COUNT CALL $QIOWT ;READ COMMAND LINE MOV #$CMDBF,R1 ;POINT TO INPUT BUFFER 2$: CMPB (R1),#141 ;PERFORM LOWER TO UPPER CASE CONVERSION ; IS CHARACTER IN LOWER CASE RANGE? BLO 5$ ;IF LO NO CMPB (R1),#172 ; BHI 5$ ;IF HI NO BICB #40,(R1) ;CONVERT TO UPPER CASE 5$: INC R1 ;BUMP POINTER TO NEXT CHARACTER DEC $IOSB+2 ;MORE CHARACTERS IN LINE? BGT 2$ ;IF GT YES BLT 1$ ;IF LT, THERE WAS NO INPUT, PROMPT AGAIN CLRB (R1)+ ;CONVERT STRING TO ASCIZ CLRB (R1)+ ;SIMPLIFY SINGLE CHARACTER CASE MOV #LUN2,R0 ;DETACH TERMINAL CALL $DET ; MOV #$CMDBF,R0 ;POINT TO INPUT BUFFER MOV #$ALUN1+A.LUNA,R1 ;POINT TO LOAD DEVICE ASSIGN DPB MOV (R0)+,(R1)+ ;MOVE IN DEVICE NAME CLR (R1) ;INITIALIZE UNIT NUMBER IN DPB 10$: MOVB (R0)+,R2 ;PICK UP NEXT INPUT CHARACTER SUB #60,R2 ;ASSUME NUMERIC AND CONVERT TO BINARY BITB #370,R2 ;WAS IT A NUMERIC? BNE 20$ ;IF NE NO ASLB (R1) ;MULTIPLY CURRENT NUMBER BY 8. BCS 40$ ;IF CS, UNIT NUMBER TOO LARGE ASLB (R1) ; BCS 40$ ; ASLB (R1) ; BCS 40$ ; BISB R2,(R1) ;ADD IN NEW DIGIT BR 10$ ;GET NEXT DIGIT 20$: CMPB R2,#':-60 ;WAS CHARACTER A ":"? BNE 40$ ;IF NE NO, ERROR MOV #$LABBF,R1 ;POINT TO LABEL BUFFER 30$: MOVB (R0)+,(R1) ;PICK NEXT CHARACTER FROM INPUT BEQ 50$ ;IF EQ, END OF INPUT STRING CMPB (R1),#'0 ;DETERMINE IF VALID ALPHANUMERIC BLO 40$ ;IF LO NO CMPB (R1)+,#'9 ; BLOS 30$ ;IF LOS YES 35$: CMPB -(R1),#'A ; BLO 40$ ;IF LO NO CMPB (R1)+,#'Z ; BLOS 30$ ;IF LOS YES 40$: TRAP ER.SYN ;SYNTAX ERROR 50$: CMP R1,#$LABBF+12. ;LEGAL LABEL LENGTH? BEQ 70$ ;IF EQ YES AND AT END BHI 40$ ;IF HI NO 60$: MOVB #40,(R1)+ ;PAD TO 12. CHARS WITH BLANKS BR 50$ ;BR TO CONTINUE PADDING 70$: MOV #"SI,(R1)+ ;INDICATE SIP CÜREATED FILE IN DEVICE NAME CLR (R1)+ ;UNIT 0, DEVICE 0 MOV #1,(R1)+ ;BLOCKING FACTOR = 1 MOV #512.,(R1)+ ;BLOCK SIZE GTIM$S R1 ;ENTER TIME AND DATE IN LABEL BUFFER RETURN ;RETURN TO CONTROL LOOP .END Ü8x""kQ›c, .TITLE SIPERR .IDENT /01/ ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION: 01 ; BY: THOMAS J MILLER ; DATE: 2/4/75 ; ; SIPERR - ERROR HANDLER AND RECOVERY ROUTINE FOR THE RSX-11S ; SYSTEM IMAGE PRESERVATION PROGRAM. ; ; ; LOCAL DATA ; ; ERROR CODE MACRO ; .MACRO ERRCOD NAM NAM==N N=N+1 .ENDM ; ; ERROR MESSAGE MACRO ; .IF DF R$$ERM .MACRO .ERR NUM,MSG .PSECT .ERRTB .WORD ER'NUM .PSECT .ERRS ER'NUM: .RAD50 %'MSG'%<'.-22> .ENDM .IFTF ; ; ERROR CODE DEFINITIONS ; N=2 ERRCOD ER.SYN ERRCOD ER.POL ERRCOD ER.NVK ERRCOD ER.DNS ERRCOD ER.PRV ERRCOD ER.PNS ERRCOD ER.IOE N=66. ERRCOD ER.FRQ ERRCOD ER.NVD ERRCOD ER.IO ; ; *** - $STVEC SST VECTOR USED TO PROVIDE THE LINKAGE BETWEEN TRAP INSTRUCTIONS ; AND THE ERROR ROUTINE ; $STVEC::.WORD 0,0,0,0,0,0,ERRTRP ; ; ERROR MESSAGE PREFIX ; SIPMS: .ASCIZ /SIP -- / .IFT .ASCIZ / - / .IFTF .EVEN ; ; ERROR MESSAGE TABLE ; .IFT .PSECT .ERRTB ERRTAB=.- ;DEFINE SO CODE ER.SYN INDEXES TO START OF TABLE .ERR \ER.SYN, .ERR \ER.POL,<> .ERR \ER.NVK,<> .ERR \ER.DNS, .ERR \ER.PRV,<> .ERR \ER.PNS,<> .ERR \ER.IOE, .ERR \ER.FRQ, .ERR \ER.NVD, .ERR \ER.IO, .ENDC ;+ ; ; *** - ERRTRP ERROR TRAP PROCESSING ; ; THE EXEC PASSES CONTROL TO THIS ROUTINE UPON THE EXECUTION OF A TRAP ; INSTRUCTION WITHIN SIP. ; ; INPUTS FROM THE EXEC: ; ; (SP)=LOW ORDER BYTE OF TRAP INSTRUCTION * 2 ; ; OUTPUTS: ; ; AN APPROPRIATE ERROR MESSAGE IS PRINTED AND SIP IS RESTARTED. ; ;- .PSECT ERRTRP: MOV $TRPSV,@#4 ;RESTORE VECTOR AT 4 .IF DF M$$MGE CLRB @#6+1 ; .ENDC MOV (SP)+,R5 ;PICK UP ERROR CODE MOV #SIPMS,R4 ;POINT TO ERROR MESSAGE PREFIX MOV #$CMDBF,R0 ;POINT TO OUTPUT BUFFER 10$: MOVB (R4)+,(R0)+ ;MOVE IT IN BNE 10$ ;CONTINUE UNTIL END OF MESSAGE MOV R5,R1 ;PICK UP ERROR CODE ASR R1 ;DIVIDE BY 2 TO GET ORIGINAL CODE CLR R2 ;ENABLE ZERO SUPPRESSION CALL $CBDMG ;CONVERT ERROR NUMBER TO ASCII IN BUFFER .IF DF R$$ERM 15$: MOVB (R4)+,(R0)+ ;MOVE IN " - " BNE 15$ ; CMP R5,#ER.IOE*2 ;ERROR IN SECOND RANGE OF ERROR CODES? BLE 20$ ;IF LE NO SUB #*2,R5 ;ELSE ADJUST FOR CORRECT TABLE INDEX 20$: MOV ERRTAB(R5),R4 ;PICK UP ERROR MESSAGE POINTER MOV R0,R3 ;DUPLICATE BUFFER POINTER 25$: MOV (R4)+,R1 ;PICK UP FIRST WORD OF MESSAGE CALL $C5TA ;CONVERT AND MOVE INTO BUFFER 30$: CMPB (R3)+,#'. ;END OF MESSAGE? BEQ 40$ ;IF EQ YES CMP R3,R0 ;CHECKED ALL CHARS IN CURRENT CONVERSION? BLO 30$ ;IF LO NO BR 25$ ;CONVERT NEXT WORD OF RAD50 MESSAGE 40$: MOVB #15,-(R3) ;CHANGE PERIOD TO CARRIAGE RETURN SUB #$CMDBF-1,R3 ;CALCULATE CHARACTER COUNT FOR MESSAGE MOV R3,R0 ;PASS IT TO OUTPUT MESSAGE ROUTINE .IF®F MOVB #15,(R0)+ ;MOVE CARRIAGE RETURN INTO BUFFER SUB #$CMDBF,R0 ;CALCULATE COUNT .ENDC CALL $OUTMG ;PRINT IT JMP $RSTRT ;RESTART SIP .END ®8x KkQ›c, .TITLE SIPLD .IDENT /02.02/ ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; COPYRIGHT (C) 1976, 1979, 1980, 1981 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; VERSION 02.02 ; BY: THOMAS J MILLER ; DATE: 3/23/75 ; ; ; MODIFIED BY: ; ; JAK002 16-SEP-76 ; CHANGE TO SAVE USER APR5 ; ; J. H. MATTHEWS 3-MAY-79 ; ; JM037 -- CHANGE MAXIMUM SAVE SYSTEM SIZE FOR FLOPPY TO ; 122K. ; ; J. GALLANT 27-FEB-81 ; ADD SUPPORT FOR RX02 DEVICE ; ; SIPLD - LOAD DEVICE INITIALIZATION FOR THE RSX-11S SYSTEM IMAGE ; PRESERVATION PROGRAM ; ; ; MACRO LIBRARY CALLS ; .MCALL ALUN$,DIR$,GLUN$ .GLOBL A.LUNA ; ; MACROS FOR DEFINING CHARACTERISTICS BITS AND LOAD DEVICE TABLE ENTRIES ; .MACRO CHAR NAM NAM==N .IF EQ N+100000 N=40000 .IFF N=N/2 .ENDC .ENDM .MACRO DEVBLK DEVNAM,FLGS,READ,WRITE XXX=. .WORD "'DEVNAM .WORD FLGS .WORD READ .WORD WRITE .WORD $'DEVNAM'BOO E$SIZ=.-XXX .ENDM ; ; LOCAL SYMBOL DEFINITIONS ; E$SIZ=0 ;INITIALIZE LOAD TABLE ENTRY SIZE ; ; CHARACTERISTICS BIT DEFINITIONS ; N=100000 CHAR CB.FIL ;FILE NAME REQUIRED CHAR CB.RWD ;REWIND REQUIRED CHAR CB.STC ;MUST SET TAPE CHARACTERISTICS CHAR CB.28 ;CAN SAVE MAXIMUM OF 28K WORDS CHAR CB.PP ;DEVICE IS THE PAPER TAPE PUNCH (PC11) CHAR CB.DX ;DEVICE IS THE RX11 CHAR CB.DY ;DEVICE IS RX21 ; JG004 CHAR CB.MM ;DEVICE IS THE TU16 CHAR CB.TAP ;MAGNETIC TAPE DEVICE CHAR CB.CT ;DEVICE IS THE TA11 CHAR CB.MBB ;MULTIPLE BOOT BLOCKS REQUIRED CHAR CB.EOF ;END OF FILE MARKERS REQUIRED AFTER IMAGE ; ; LOCAL DATA ; ; LOAD DEVICE ASSIGN LUN AND GET LUN INFORMATION DPB'S ; $ALUN1::ALUN$ LUN1 ;ASSIGN LUN DPB GLUN1: GLUN$ LUN1,$CMDBF ;GET LUN INFORMATION DPB ; ; LOAD DEVICE TABLE ; ; THE ENTRIES IN THIS TABLE ARE DEFINED WITH THE DEVBLK MACRO. ALL ENTRIES MUST ; BE ALPHABETICALLY ORDERED BY THE DEVICE NAME ASCII REVERSED. THUS, FOR EXAMPLE ; PR PRECEDES CT IN THE TABLE. ; LODTB: .IF DF TU16 DEVBLK MM,CB.FIL!CB.RWD!CB.MM!CB.TAP!CB.EOF,71,61 .ENDC .IF DF PP11 DEVBLK PP,CB.28!CB.PP,0,0 .ENDC .IF DF TA11 DEVBLK CT,CB.FIL!CB.RWD!CB.28!CB.TAP!CB.CT!CB.MBB!CB.EOF,5,3 .ENDC .IF DF TC11 DEVBLK DT,CB.FIL,5,15 .ENDC .IF DF TM11 DEVBLK MT,CB.FIL!CB.RWD!CB.STC!CB.TAP!CB.EOF,60003,60005 .ENDC .IF DF RX11 DEVBLK DX,CB.FIL!CB.DX!CB.MBB,3*256.+7,5*256.+1 .ENDC .IF DF RX21 ; JG004 ; JG004 DEVBLK DY,CB.FIL!CB.DY,3*256.+7,5*256.+1 ; JG004 ; JG004 .ENDC ; JG004 ; JG004 .WORD -1 ;TABLE TERMINATOR ; ; *** - $SIPLD LOAD DEVICE INITIALIZATION ROUTINE ; ; DETERMINE IF VALID LOAD DEVICE. ; $SIPLD::DIR$ #$ALUN1 ;ASSIGN LUN BCC 10$ ;IF CC NO ERROR TRAP ER.DNS ;ELSE ERROR, DEVICE NOT IN SYSTEM 10$: DIR$ #GLUN1 ;GET LUN INFORMATION TO FIND EFFECTIVE DEVICE MOV #LODTB-E$SIZ+2,R5 ;INITIALIZE POINTER TO PRECEDE TABLE 20$: ADD #E$SIZ-2,R5 ;POINT TO NEXT ENTRY IN TABLE CMP $CMDBF,(R5)+ ;MATCH ON DEVICE NAME? BHI 20$ ;IF HI NOT THERE YET BEQ 30$ ;IF EQ MATCH TRAP ER.NVD ;IF LO INVALID LOAD DEVICE ; ; INITIALIZE LOAD DEVICE ; 30$: MOV (R5)+,R3 ;PICK UP FLAGS WORD MOV R3,$FLGS ; AND SAVE IT, FILE NAME REQUIRED? (CB.FIL) BPL 40$ ;IF PL NO CMPB $LABBF,#40 ;WAS A FILE NAME SPECIFIED? BNE 40$ ;IF NE YES TRAP ER.FRQ ;ERROR, FILE NAME REQUIRED 40$: MOV #LUN1,R0 ;MOVE LOAD DEVICE LUN TO R0 CALL $ATT ;ATTACH LOAD DEVICE ASL R3 ;REWIND REQUIRED? (CB.RWD) .IF DF TA11!TM11!TU16 BPL 50$ ;IF PL NO MOV #IO.RWD,$QDPB+Q.IOFN ;SET FOR REWIND FUNCTION CALL $QIOWT ;REWIND DEVICE .ENDC 50$: ASL R3 ;SET TAPE CHARACTERISTICS REQUIRED? (CB.STC) .IF DF TM11 BPL 60$ ;IF PL NO MOV #IO.STC,$QDPB+Q.IOFN ;SET FOR SET TAPE CHARACTERISTICS MOV #4,$QDPB+Q.IOPL ;SET FOR CORE-DUMP MODE IF 7 TRACK CALL $QIOWT ;SET TAPE CHARACTERISTICS .ENDC ; ; SET UP BOOT DRIVING PARAMETERS ; 60$: MOV #$BTDRV,R4 ;POINT TO PARAMETER BLOCK IN BOOT BLOCK .IF DF M$$MGE MOV UISAR5,(R4)+ ;SAVE CONTENTS OF APR5 .ENDC MOV $SYSIZ,(R4) ;PICK UP SIZE OF SYSTEM ASL R3 ;28K MAX FOR DEVICE? (CB.28) .IF DF PP11!TA11 BPL 70$ ;IF PL NO CMP (R4),#1600 ;SYSTEM SIZE GREATER THAN 28K? BLOS 70$ ;IF LOS YES MOV #1600,(R4) ;MOVE IN MAX SIZE OF 28K .ENDC 70$: ASL R3 ;IS DEVICE PAPER TAPE? .IF DF PP11 BPL 75$ ;IF PL NO SUB #3,(R4) ;REDUCE COUNT FOR ABSOLUTE LOADER BR 85$ ;SKIP ADJUSTMENT OF BLOCK COUNT .ENDC 75$: ASL R3 ;IS LOAD DEVICE A FLOPPY? (CB.DX) .IF DF RX11 BPL 77$ ;IF PL NO CMP (R4),#7500 ;SYSTEM SIZE GREATER THAN 122K? BLOS 77$ ;IF LOS NO CONTINUE MOV #7500,(R4) ;FORCE MAX SIZE OF 122K .ENDC ; JG004 77$: ASL R3 ; IS LOAD DEVICE A FLOPPY? (CB.DY) ; JG004 ; JG004 .IF DF RX21 ; JG004 BPL 84$ ; IF PL NO ; JG004 CALL $DENS ; SENSE DISK ; JG004 MOV R0,-(SP) ; SAVE R0 ; JG004 BIT #4000,$IOSB+2 ; DOUBLE DENSITY ? ; JG004 BEQ 80$ ; NO ; JG004 MOV #128.,DENS ; # OF WORDS IN DOUBLE DENSITY SECTOR ; JG004 MOV #7600,R0 ; MAX OF 124K SYSTEM ; JG004 BR 82$ ; ; JG004 80$: ; ; JG004 MOV #64.,DENS ; # OF WORDS IN SINGLE DENSITY SECTOR ; JG004 MOV #7500,R0 ; MAX OF 122K SYSTEM ; JG004 82$: ; ; JG004 CMP (R4),R0 ; IS SYSTEM SIZE GREATER THAN MAXIMUM ? ; JG004 BLOS 83$ ; NO ; JG004 MOV R0,(R4) ; FORCE MAXIMUM SIZE SYSTEM ; JG004 83$: ; ; JG004 MOV (SP)+,R0 ; RESTORE R0 ; JG004 .ENDC ; JG004 84$: ; JG004 ;**-1 ;**-1 ASR (R4) ;CONVERT SYSTEM SIZE TO 256 WORD BLOCKS ASR (R4) ; ASR (R4) ; 85$: MOV (R4)+,$LABBF+36. ;COPY CORE SIZE INTO LABEL 90$: MOV $HEADR,R0 ;POINT TO SIP'S HEADER MOV H.LUN+<*4>(R0),R0 ;PICK UP LOAD DEVICE UCB MOVB U.UNIT(R0),$UNIT ;SAVE PHYSICAL UNIT NUMBER MOV U.SCB(R0),R0 ;POINT TO SCB MOV S.CSR(R0),(R4)+ ;SAVE CSR ADDRESS MOV (R5)+,(R4) ;SAVE READ COMMAND MOV (R5)+,R2 ;STORE WRITE COMMAND IN R2 .IF DF RX21 ; JG004 MOV $UNIT,UNIT ; SAVE PHYSICAL UNIT # IN RX02 BOOTBLOCK; JG004 .ENDC ; JG004 ; ; MOVE DEVICE BOOT CODE INTO BUFFER AT $BTBEG. ; MOV (R5)+,R5 ;POINT TO DEVICE BOOT MOV (R5)+,R1 ;PICK UP SIZE OF DEVICE BOOT .IF DF PP11!TC11!TM11!TU16!RX21 ; JG004 ;**-1 BEQ 130$ ;IF EQ NO MOVE TO BUFFER, RETURN MOV #$BTBEG,R0 ;POINT TO OUTPUT BUFFER FOR DEVICE BOOT 100$: MOV (R5)+,(R0)+ ;MOVE IN DEVICE BOOT DEC R1 ;LOOP TO MOVE BOOT BNE 100$ ; 110$: CMP R0,#$BTEND ;AT END OF BOOT STRAP BUFFER? BHIS 120$ ;IF HIS YES MOV #240,(R0)+ ;FILL REST OF BUFFER WITH NOPS BR 110$ ;LOOP UNTöIL AT END OF BUFFER .ENDC 120$: ; .IF DF TU16 ASL R3 ;IS DEVICE THE TU16 (CB.MM)? BPL 130$ ;IF PL NO CLRB $BTBEG+6 ;SET TO TRY BOOT FROM TM11 FIRST .ENDC 130$: RETURN ;RETURN TO CONTROL LOOP .END ö8x·kkQ›c, .TITLE SIPQIO .IDENT /02/ .IDENT /02.1/ ; ; ; COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; COPYRIGHT (C) 1981 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ; VERSION 02.1 ; BY: THOMAS J MILLER ; DATE: 3/23/75 ; ; ; MODIFIED BY: ; JO ANN KASSON 1-SEPT-76 ; JAK002 - LOADABLE DRIVERS &QIOW$ ; ; J. GALLANT 8-MAR-81 ; JG004 ADD SUPPORT FOR RX02 ; ; SIPQIO - COMMON QIO PROCESSING FOR THE RSX-11S SYSTEM IMAGE ; PRESERVATION PROGRAM ; ; ; MACRO LIBRARY CALLS ; .MCALL DIR$,QIOW$,EXIT$S .MCALL QIOW$C ; JG004 ; ; SYMBOL DEFINITIONS ; EFN1=1 ;EVENT FLAG 1 LUN1==1 ;LOAD DEVICE LUN LUN2==2 ;TI: LUN ; ; LOCAL DATA ; ; STATUS BLOCK AND DPB'S ; $IOSB:: .BLKW 2 ;I/O STATUS BLOCK $QDPB:: QIOW$ ,,EFN1,,$IOSB,,<,,'$,,> ; ; SIP BUFFERS ; .IF DF PP11 .WORD 0,0 ;NULLS .WORD 1,70. ;FORMATTED BINARY HEADER .BLKW 1 ;BLOCK LOAD POINT .IFTF $FBBUF::.BLKW 32. ;ALLOCATION FOR SIP BUFFERS .IFT $CKSUM::.WORD 0 ;FORMATTED BINARY BUFFER .ENDC ; ; THE FOLLOWING BUFFERS OVERLAY THE FORMATTED BINARY BUFFER ; $CMDBF==$FBBUF ;TELETYPE BUFFER $LABBF==$FBBUF+<10.*2> ;LABEL BUFFER ; ; *** - $OUTMG TELETYPE OUTPUT ROUTINE ; ; INPUTS: ; ; R0=CHARACTER COUNT OF MESSAGE ; MESSAGE IS IN $CMDBF ; ; OUTPUTS: ; ; MESSAGE IS PRINTED TO TI: ; $OUTMG::MOV #IO.WVB,$QDPB+Q.IOFN ;SET FUNCTION TO WRITE VIRTUAL MOV #LUN2,$QDPB+Q.IOLU ;SET FOR TI: LUN MOV #$CMDBF,$QDPB+Q.IOPL ;SET BUFFER ADDRESS ; ; *** - $QIOWT COMMON QIO CODE ; ; INPUTS: ; ; R0=CHARACTER COUNT FOR TRANSFER ; REMAINING ENTRIES IN $QDPB ALREADY SET UP ; ; OUTPUTS: ; ; TRANSFER IS INITIATED AND COMPLETED AND ERROR CONDITIONS ARE CHECKED ; .ENABL LSB $QIOWT::MOV R0,$QDPB+Q.IOPL+2 ;SET CHARACTER COUNT DIR$ #$QDPB ;INITIATE TRANSFER BCS 15$ ;EXIT ON ERROR (ASSUME NO POOL SPACE) CHKERR: ; JG004 TSTB $IOSB ;ERRORS? ;**-1 BPL 30$ ;IF PL NO ERROR CMP $QDPB+Q.IOFN,#IO.DET ;WAS THE FUNCTION DETACH? BEQ 30$ ;IF EQ YES, IGNORE ERROR CMPB $IOSB,#IE.EOF ;EOF? (CONTROL/Z ON INPUT?) BEQ 10$ ;IF EQ YES TRAP ER.IOE ;ELSE I/O ERROR 10$: TST $IOSB+2 ;ANY INPUT? BEQ 20$ ;IF EQ NO, EXIT TRAP ER.SYN ;ELSE SYNTAX ERROR ; ; *** - $SIPXT COMMON SIP EXIT POINT ; 15$: .IF DF L$$DRV CMP $DSW,#IE.UPN BNE CHKERR ; IF NE NO ; JG004 ;**-1 .ENDC $SIPXT:: 20$: MOV #LUN2,R0 ;DETACH TERMINAL CALL $DET ; EXIT$S ;EXIT 30$: RETURN ;NO ERROR, RETURN .DSABL LSB ; ; *** - $ATT ATTACH LOAD DEVICE ; .ENABL LSB $ATT:: MOV #IO.ATT,$QDPB+Q.IOFN ;SET FOR ATTACH FUNCTION BR 10$ ; ; ; *** - $DET DETACH LOAD DEVICE ; $DET:: MOV #IO.DET,$QDPB+Q.IOFN ;SET FOR DETACH 10$: MOV R0,$QDPB+Q.þIOLU ;SET LOAD DEVICE LUN BR $QIOWT ;BR TO INITIATE FUNCTION .IF DF RX21 ; JG004 $DENS:: ; JG004 QIOW$C IO.SEC,LUN1,EFN1,,$IOSB ; SENSE DISK ; JG004 BR CHKERR ; ; JG004 .ENDC ; JG004 .DSABL LSB .END þÌ~€WkQ›c, .TITLE TKTN - TASK TERMINATION TASK .IDENT /04.8/ ; ; COPYRIGHT (c) 1978, 1981 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD ; MASSACHUSETTS. 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 COPYRIGHT NOTICE. THIS ; SOFTWARE OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR ; OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND ; OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERED. ; ; THE INFORMATION IN THIS DOCUMENT 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 THAT IS NOT SUPPLIED BY DIGITAL. ; ; VERSION: 04.8 ; BY: H.LEV ; DATE: 10/26/73 ; ; PREVIOUSLY MODIFIED BY: ; ; H. J. LEV ; E. L. BAATZ ; B. L. SCHRIEBER ; M. S. FOX ; ; MODIFICATIONS: ; ; J. C. FRANZINI 15-APR-80 04.0 ; JCF016 -- ALLOW TKTN TO BE FIXED IN MEMORY ; ; R. T. PERRON 19-FEB-80 04.1 ; RP044 -- ADD "RCT NOT INSTALLED" TKTN ABORT CODE ; ; D. R. DONCHIN 30-MAR-81 04.2 ; DD082 -- CHANGE MESSAGES TO UPPER/LOWER CASE AND MUCH CLEANUP ; ; J. C. FRANZINI 6-MAY-81 04.3 ; JCF078 -- CLEAN UP DD082 ; ; J. C. FRANZINI 6-MAY-81 04.4 ; JCF080 -- USE SYMBOLIC NAMES FOR ABORT CODES ; AND GENERAL CLEANUP ; ; J. C. FRANZINI 6-MAY-81 04.5 ; JCF082 -- USE $SRSTD TO FIND PMD'S TCB ; ; J. C. FRANZINI 6-MAY-81 04.6 ; JCF087 -- ADD "WRITE BACK DATA LOST" MESSAGE FOR UDA ; ; J. C. FRANZINI 11-MAY-81 04.7 ; JCF089 -- FIX CHECKPOINT FILE PCB DEALLOCATION ; ; J. C. FRANZINI 9-NOV-81 04.8 ; JCF108 -- CHECK FOR IE.ACT WHEN REQUESTING PMD ; ; ; THIS MODULE PROCESSES MESSAGES FROM THE EXEC FOR ; TERMINATED TASKS AND FROM DRIVERS. ;JCF080 ; ;DD082 ;DD082 .MCALL ABODF$,DEVDF$,HDRDF$,PCBDF$,TCBDF$ ;DD082 .MCALL DIR$,CMKT$S,MRKT$,RDAF$S,RQST$,WTLO$S,WTSE$S ;DD082 ;DD082 .IF NDF R$$11S ;DD082 ;**-10 .MCALL GTIM$ .ENDC ;DD082 ABODF$ ; DEFINE TASK ABORT CODES ;DD082 DEVDF$ ; DEFINE DCB, UCB AND SCB OFFSETS ;DD082 HDRDF$ ; DEFINE TASK HEADER OFFSETS ;DD082 PCBDF$ ; DEFINE PCB OFFSETS ;DD082 TCBDF$ ; DEFINE TCB OFFSETS ;DD082 ; ;DD082 ; ERROR MESSAGE MACRO ;DD082 ; ;DD082 .MACRO ERR,NUM,MSG ;JCF078 .PSECT TKNTB ;DD082 .WORD ERR'NUM ;DD082 .PSECT TKNMSG ;DD082 ERR'NUM: ;DD082 .ASCIZ \MSG\ ;DD082 .ENDM ;DD082 ; ;**-1 ; EQUATED SYMBOLS ; SPA = 40 ; SPACE LUN1 = 1 ; LOGICAL UNIT NUMBER EFN1 = 1 ; EVENT FLAG FOR IO EFN2 = 100000 ; EVENT FLAG FOR MARK TIME .PAGE ;DD082 .SBTTL MESSAGE TEXT ;DD082 ; ;DD082 ; FORMAT: ;DD082 ; ;DD082 ; PSECT TKNTB - CONTAINS ADDRESSES OF MESSAGES ;DD082 ; PSECT TKNMSG - CONTAINS MESSAGES AS ASCIZ STRINGS ;DD082 ; ;DD082 ;DD082 .PSECT TKNTB ;DD082 ;DD082 .ENABL LC ;DD082 .NLIST BEX ;DD082 ;DD082 TKNTAB: ERR 0, ;DD082 ERR 1, ;DD082 ERR 2, ;DD082 ERR 3, ;DD082 ERR 4, ;JCF078 ERR 5, ;DD082 ERR 6, ;DD082 ERR 7,<11/40 F.P. exception> ;DD082 ERR 8, ;JCF078 ERR 9, ;JCF078 ERR 10, ;DD082 ;DD082 .IF DF D$$ISK ;DD082 ;DD082 ERR 11, ;JCF078 ;DD082 .IFF ;DD082 ;DD082 ERR 11,<> ;DD082 ;DD082 .ENDC ;DD082 ;DD082 .IF DF C$$CKP ;DD082 ;DD082 ERR 12, ;JCF078 ;DD082 .IFF ;DD082 ;DD082 ERR 12,<> ;DD082 ;DD082 .ENDC ;DD082 ;DD082 ERR 13, ;DD082 ERR 14, ;DD082 ;DD082 .IF NDF R$$11S ;DD082 ;DD082 ERR 15, ;DD082 ERR 16, ;DD082 ;DD082 .IFF ;DD082 ;DD082 ERR 15,<> ;DD082 ERR 16,<> ;DD082 ;DD082 .ENDC ;DD082 ;DD082 .PSECT TKNTB ;DD082 ;DD082 DRVMSG: ERR 50,<\<7>\Not ready\<7>\> ;JCF078 ERR 51,<\<7>\Select error\<7>\> ;JCF078 ;DD082 .IF DF D$$ISK ;DD082 ;DD082 ERR 52, ; 04 ;DD082 ERR 53, ; 06 ;JCF078 ;**-82 .IFF ERR 52,<> ERR 53,<> .ENDC ERR 54, ; 10 ;DD082 ERR 55,<Unrecoverable error> ; 12 ;DD082 ERR 56, ; 14 ;DD082 ERR 57, ; 16 ;DD082 ;DD082 .IF NDF R$$11S ;DD082 ;DD082 ERR 58, ; 20 ;DD082 ERR 59, ; 22 ;DD082 ERR 60, ; 24 ;DD082 ;DD082 .IFF ;DD082 ;DD082 ERR 58,<> ;DD082 ERR 59,<> ;**-20 ERR 60,<> .ENDC ERR 61, ; 26 ;DD082 ERR 62,<> ; 30 ;DD082 ;JCF087 .IF NDF R$$11S ;JCF087 ;JCF087 ERR 63, ; 32 ;JCF087 ERR 64, ; 34 ;JCF087 ;JCF087 .IFF ;NDF R$$11S ;JCF087 ;JCF087 ERR 63,<> ;JCF087 ERR 64,<> ;JCF087 ;JCF087 .ENDC ;NDF R$$11S ;JCF087 ;DD082 .EVEN ;DD082 ;DD082 TMPL1: .ASCIZ /Task "XXXXXX" terminated/ ;DD082 TMPL2: .ASCIZ \And with pending I/O requests\ ;DD082 ;DD082 .IF NDF R$$11S ;DD082 ;DD082 TMPL3: .ASCIZ /Postmortem Dump not possible/ ;JCF078 TMPL4: .ASCIZ /Postmortem Dump will be generated/ ;JCF078 ALLFAL: .ASCIZ <40><7>/Checkpoint space allocation failure/ ;DD082 ;DD082 .ENDC ;DD082 ;DD082 REGTXT: .ASCII /R0R1R2R3R4R5SPPCPS/ ; TEXT FOR REGISTER DISPLAY MESSAGE ;DD082 AST: .ASCIZ /*** / ; ASTERISK STRING FOR DRIVER MESSAGES ;JCF080 ;DD082 .IF DF R$$11S ;DD082 ;DD082 LINEND: .BYTE 15,12,0 ; CHARACTERS INSERTED AFTER EACH LINE ;DD082 ;DD082 .IFF ;DD082 ;DD082 LINEND: .BYTE 15,12,11,40,40,0 ; CHARACTERS INSERTED AFTER EACH LINE ;JCF080 ;DD082 .ENDC ;DD082 ;DD082 .PSECT ;DD082 .EVEN ;DD082 .PAGE ;DD082 .SBTTL LOCAL STORAGE, BUFFERS AND DPB ;DD082 ; ;DD082 ; LOCAL STORAGE ;DD082 ; ;DD082 ;DD082 ; ;JCF080 ; TKNTYP, TKNTCB, TKNMSG, TKNUCB, AND TKNUB MUST BE CONTIGUOUS ;JCF080 ; ;JCF080 TKNTYP: .WORD 0 ; ADDR OF ROUTINE TO HANDLE REQUEST ;JCF080 ; EITHER TKNTSK, TKNCKP, OR TKNDRV ;JCF080 ;JCF080 TKNTCB: ; TCB ADDR OF TASK BEING ABORTED ;JCF080 ; OR FIRST HALF OF TASK NAME ;JCF080 TKNMSG: .WORD 0 ; DRIVER MESSAGE CODE ;JCF080 ; OR SECOND HALF OF TASK NAME ;JCF080 TKNUCB: .WORD 0 ; DEVICE UCB OR TASK TCB ;DD082 ;DD082 .IF DF D$$ISK ;DD082 ;DD082 TKNUB: .WORD 0 ; DEVICE UCB IF TKNUCB IS TCB ADDRESS ;DD082 ;DD082 .ENDC ;DD082 ;**-37 ; ; LINE BUFFER ; TKNBUF: .BYTE 0,15 ; BUFFER FOR COMPLETE OUTPUT LINE ;JCF080 ;JCF080 .IF NDF R$$11S ;JCF080 ;JCF080 .BLKB 273. ;JCF080 ;JCF080 .IFF ;JCF080 ;JCF080 .BLKB 189. ;JCF080 ;JCF080 .ENDC ;JCF080 ;JCF080 .EVEN ;JCF080 ;JCF080 ; ;JCF080 ; REGSTR AND TIM MUST BE CONTIGUOUS ;JCF080 ; ;JCF080 REGSTR: .BLKW 1 ; SPACE TO STORE TASK REGISTERS TEMPORARILY ;JCF080 ; 9 WORDS TOTAL - SHARES SPACE WITH TIME BUFFER ;JCF080 EFNBF: ; READ EVENT FLAG BUFFER ;JCF080 ; 4 WORDS TOTAL - SHARES SPACE WITH TIME BUFFER ;JCF080 TIM: .BLKW 10 ; BUFFER TO RECEIVE TIME IN ;JCF080 ;DD082 .IF NDF R$$11S ;DD082 ;DD082 GTIM: GTIM$ TIM ; TIME MACRO ;DD082 ;DD082 .ENDC ;DD082 ;DD082 ; ;DD082 ; DPBS FOR I/O AND WAITING ;DD082 ; ;DD082 TKNDPB: .BYTE 1.,12. ; QIO DIC AND LENGTH ;DD082 .WORD IO.WLB!TF.WBT ; FUNCTION CODE ;JCF080 .WORD LUN1 ; LOGICAL UNIT NUMBER FOR "CO" ;**-32 .WORD EFN1 ; EVENT FLAG .WORD 0 ; I/O STAT BLOCK .WORD 0 ; AST ADDRESS .WORD TKNBUF ; BUFFER ADDRESS .WORD 0 ; BUFFER LENGTH .WORD 40 ; CARRIAGE CONTROL ( LEAD LF, TRAIL CR) ; ADDITIONAL THREE UNUSED PARAMETERS NEED NOT ;DD082 ; BE SPECIFIED ;DD082 ;DD082 .IF NDF R$$11S ;DD082 ;DD082 RQSPMD: RQST$ PMD...,,,1,4 ; POST MORTEM DUMP ROUTINE ;DD082 ;DD082 .ENDC ;DD082 ;DD082 WAIT15: MRKT$ 16.,15.,2 ; WAIT 15 SECONDS ;DD082 .PAGE ;DD082 .SBTTL GET NEXT TASK TO ABORT OR DRIVER MESSAGE ;DD082 ;DD082 ;+ ;DD082 ; *** - $TKTN - TASK TERMINATION TASK ENTRY POINT ;DD082 ; ;DD082 ; THIS TASK PERFORMS TWO FUNCTIONS: ;DD082 ; ;DD082 ; 1) PRINTS OUT MESSAGES AND TRYS TO PRINT THE ;DD082 ; CONTENTS OF THE REGISTERS FOR A TASK THAT ;DD082 ; HAS BEEN ABORTED DUE TO AN ERROR ;DD082 ; ;DD082 ; THESE MESSAGES ARE DIRECTED TO THE TASK'S TI: ;DD082 ; ;DD082 ; 2) PRINTS OUT MESSAGES FOR DEVICE DRIVERS ;DD082 ; ;DD082 ; THESE MESSAGES ARE DIRECTED TO DEVICE CO: ;DD082 ; ;DD082 ; INPUT: ;DD082 ; ;DD082 ; TASKS - TS.MSG IS SET IN T.STAT OF THE TASK'S TCB ;DD082 ; WHICH INDICATES THAT AN ABORT MESSAGE IS REQUIRED. ;DD082 ; TS.ABO IS SET IN T.STAT+2 ;DD082 ; WHICH INDICATES THAT THE TASK IS BEING ABORTED. ;DD082 ; T.EFLG CONTAINS THE ABORT CODE WHICH INDICATES ;DD082 ; THE REASON THE TASK IS BEING ABORTED. ;DD082 ; ;DD082 ; DRIVERS - T.RCVL IS THE LIST HEAD CONTAINING REQUEST ELEMENTS ;DD082 ; FROM DRIVERS. ;DD082 ; FORMAT: ;**-32 ; WORD1 - LINK WORD ; WORD2 - MESSAGE CODE ; WORD3 - UCB ADDRESS OF DEVICE WITH PROBLEM ; WORD4 - GARBAGE ; ; OUTPUT: ;DD082 ; ;DD082 ; TASKS - TS.ABO AND TS.MSG ARE CLEARED ;DD082 ; DRIVERS - REQUEST ELEMENT IS RETURNED TO SYSTEM POOL ;DD082 ; ;DD082 ;- ;DD082 ;DD082 $TKTN:: MOV #TKNTYP,R4 ; POINT TO REQUEST TYPE ROUTINE ADDRESS POINTER ;DD082 ;DD082 ; ;DD082 ; SCAN ATL FOR TASKS AWAITING MESSAGE PRINTOUT ;DD082 ; ;DD082 CALL $SWSTK,50$ ; SWITCH TO SYSTEM STACK ;DD082 MOV $TSKHD,R5 ;; GET ADDRESS OF FIRST TCB ;DD082 10$: BIT #TS.EXE!TS.MSG,T.STAT(R5) ;; ABORT MESSAGE REQUESTED ;DD082 ;; OF ACTIVE TASK? ;DD082 BEQ 20$ ;; NO ;DD082 BMI 20$ ;; NO ;DD082 BIT #T2.ABO,T.ST2(R5) ;; YES, ALREADY PROCESSED BY TKTN? ;DD082 BEQ 20$ ;; YES ;DD082 ;DD082 .IF NDF R$$11S ;DD082 ;DD082 TST T.UCB(R5) ;; IS TASK BEING SNAPPED? ;DD082 BEQ 20$ ;; YES, POSTPONE TERMINATION UNTIL DONE ;DD082 ;DD082 .IFTF ;NDF R$$11S ;DD082 ;DD082 MOV #TKNTSK,(R4)+ ;; SET ADDRESS OF TASK ABORT ROUTINE ;DD082 MOV R5,(R4)+ ;; SAVE TASK'S TCB ADDRESS ;DD082 BR 40$ ;; ;DD082 ;DD082 .IFT ;NDF R$$11S ;DD082 ;DD082 ; ;DD082 ; NO TASK ABORTS. LOOK FOR CHECKPOINT ALLOCATION FAILURES ;DD082 ; ;DD082 20$: BIT #T2.CAF,T.ST2(R5) ;; CHECKPOINT ALLOCATION FAILURE? ;DD082 BEQ 30$ ;; NO ;DD082 BIT #T3.CAL,T.ST3(R5) ;; YES, SPACE ALLOCATED IN TASK IMAGE? ;DD082 BNE 30$ ;; YES ;DD082 MOV #TKNCKP,(R4)+ ;; SET ADDRESS OF CHECKPOINT FAILURE ROUTINE ;DD082 MOV T.NAM(R5),(R4)+ ;; SET FIRST HALF OF TASK NAME ;DD082 MOV T.NAM+2(R5),(R4)+ ;; SET SECOND HALF OF TASK NAME ;DD082 BIC #T2.CAF,T.ST2(R5) ;; CLEAR ERROR BIT ;DD082 BR 40$ ;; ;DD082 ;DD082 .IFF ;NDF R$$11S ;DD082 ;DD082 20$: ;DD082 ;DD082 .ENDC ;NDF R$$11S ;DD082 ;DD082 30$: MOV T.TCBL(R5),R5 ;; GET NEXT TCB ADDRESS ;DD082 TST T.TCBL(R5) ;; IS THIS TASK THE NULL TASK? ;DD082 BNE 10$ ;; NO, LOOP ;DD082 ; ;DD082 ; NO TASKS TO PROCESS, TRY FOR A DRIVER MESSAGE ;DD082 ; ;DD082 MOV $TKTCB,R5 ;; GET OUR TCB ADDRESS ;DD082 MOV R5,R0 ;; MAKE A COPY FOR $QRMVF ROUTINE ;DD082 ADD #T.RCVL,R0 ;; GET ADDRESS OF RECEIVE LIST ;DD082 CALL $QRMVF ;; TRY TO GET A REQUEST ;DD082 BCS 45$ ;; NONE AVAILABLE ;JCF078 MOV #TKNDRV,(R4)+ ;; SET ADDRESS OF DRIVER MESSAGE ROUTINE ;DD082 MOV 2(R1),(R4)+ ;; SET MESSAGE CODE ;DD082 MOV 4(R1),(R4)+ ;; SET UCB ADDRESS ;DD082 ;DD082 .IF DF D$$ISK ;DD082 ;DD082 MOV 6(R1),(R4) ;; SET POSSIBLE CHECKPOINT FILE UCB ADDRESS ;DD082 ;DD082 .ENDC ;DD082 ;DD082 MOV R1,R0 ;; COPY ELEMENT ADDRESS ;DD082 MOV #8.,R1 ;; GET LENGTH ;DD082 CALL $DEACB ;; RELEASE IT ;DD082 ;DD082 .IF NDF R$$11S ;DD082 ;DD082 ADD #T.RCVL,R5 ;; POINT TO MESSAGE LIST HEAD ;DD082 MOV R5,-(SP) ;; SAVE LISTHEAD ADDRESS ;DD082 35$: MOV (R5),R0 ;; GET NEXT MESSAGE ADDRESS ;DD082 BEQ 39$ ;; IF EQ, END OF LIST ;DD082 CMP -(R4),-(R4) ;; BACK UP TO MESSAGE CODE ;DD082 CMP (R4)+,2(R0) ;; SAME MESSAGE? ;DD082 BNE 38$ ;; IF NE NO ;DD082 CMP (R4)+,4(R0) ;; YES, SAME DEVICE/TCB? ;DD082 BNE 38$ ;; IF NE NO ;DD082 MOV (R0),(R5) ;; UNLINK MESSAGE ;DD082 BNE 37$ ;; SKIP IF NOT END OF LIST ;DD082 MOV (SP),R3 ;; POINT BACK TO LISTHEAD ;DD082 MOV R5,2(R3) ;; UPDATE POINTER TO END OF LIST ;DD082 37$: MOV #8.,R1 ;; SET MESSAGE LENGTH ;DD082 CALL $DEACB ;; RELEASE IT ;DD082 BR 35$ ;; AND TRY AGAIN ;DD082 38$: MOV (R5),R5 ;; UPDATE POINTER ;DD082 BR 35$ ;; GET NEXT MESSAGE ;DD082 39$: TST (SP)+ ;; POP LISTHEAD OFF STACK ;DD082 ;DD082 .IFTF ;NDF R$$11S ;DD082 ;DD082 ; ;DD082 ; FOUND SOMETHING, RETURN TO USER STATE AND DISPATCH ;DD082 ; ;DD082 40$: RETURN ;; RETURN TO USER STATE ;DD082 ; ;DD082 ; NOTHING TO DO. EXIT WITHOUT LEAVING SYSTEM STATE TO PREVENT A WINDOW ;DD082 ; IN THE REQUESTING MECHANISM ;DD082 ; ;DD082 45$: CALLR $DREXT ;; EXIT ;JCF078 ; ;DD082 ; EVALUATE WHAT WAS FOUND, AND DISPATCH TO THE PROPER ROUTINE ;DD082 ; ;DD082 50$: ;DD082 ;DD082 .IFF ;NDF R$$11S ;DD082 ;DD082 MOV #TKNBUF+2,R0 ; POINT TO WHERE MESSAGES START IN BUFFER ;DD082 ;DD082 .IFT ;NDF R$$11S ;DD082 ;DD082 MOV #TKNBUF+12.,R0 ; POINT TO WHERE MESSAGES START IN BUFFER ;JCF080 ;JCF080 .IFTF ;NDF R$$11S ;JCF080 ;JCF080 CLRB TKNBUF ; ASSUME NO BELL IS NECESSARY ;DD082 JMP @TKNTYP ; DISPATCH TO PROPER ROUTINE ;DD082 .PAGE ;DD082 .SBTTL PROCESS TASK TERMINATION ;DD082 ; ;DD082 TKNTSK: MOV TKNTCB,R5 ; GET TCB ADDRESS OF ABORTED TASK ;DD082 CALL $SWSTK,2$ ; SWITCH TO SYSTEM STATE ;**-131 MOV T.UCB(R5),R4 ; GET TI UCB ADDRESS 101$: MOV U.RED(R4),R4 ; FOLLOW REDIRECT POINTER CMP U.RED(R4),R4 ; END OF LIST? BNE 101$ ; NO, LOOP MOV R4,T.UCB(R5) ; SET END OF LIST UCB MOV $TKTCB,R1 ; GET MY TCB ADDRESS ;**-1 MOV R4,T.UCB(R1) ;; SET MY TI TO BE TI OF TASK BEING ABORTED ;JCF080 102$: RETURN ; RETURN TO USER STATE ;**-1 ; ;DD082 ; INSERT TASKNAME INTO ABORT MESSAGE ;DD082 ; ;DD082 2$: MOV #TMPL1,R4 ; GET ADDRESS OF TEMPLATE ;DD082 CALL COPT ; COPY TEMPLATE INTO BUFFER AND TERMINATE LINE ;DD082 MOV R0,-(SP) ; SAVE CURRENT BUFFER POINTER ;DD082 ;DD082 .IFT ;NDF R$$11S ;DD082 ;DD082 MOV #TKNBUF+18.,R0 ; POINT TO WHERE TASK NAME GOES ;JCF080 ;DD082 .IFF ;NDF R$$11S ;DD082 ;DD082 MOV #TKNBUF+8.,R0 ; POINT TO WHERE TASK NAME GOES ;DD082 ;DD082 .IFTF ;NDF R$$11S ;DD082 ;DD082 MOV T.NAM(R5),R1 ; GET TASK NAME CHARS 1-3 ;**-7 CALL $C5TA ; CONVERT FROM RAD50 TO ASCII MOV T.NAM+2(R5),R1 ; GET TASK NAME CHARS 4-6 CALL $C5TA ; CONVERT FROM RAD50 TO ASCII ; ;DD082 ; INSERT REASON FOR ABORT ;DD082 ; ;DD082 MOV (SP)+,R0 ; RESTORE BUFFER POINTER ;DD082 MOVB T.EFLG(R5),R2 ; GET ERROR CODE ;DD082 MOV TKNTAB(R2),R4 ; GET MESSAGE ADDRESS ;DD082 CALL COPT ; COPY ERROR MESSAGE INTO BUFFER AND END LINE ;DD082 ; ;DD082 ; INSERT "AND WITH PENDING I/O REQUESTS" IF NEEDED ;DD082 ; ;DD082 TSTB T.EFLG+1(R5) ; ANY I/O PENDING? ;DD082 BEQ 4$ ; NO ;DD082 CMPB R2,#S.IOMG ; YES, BUT WAS THIS AN EXIT? ;JCF080 BEQ 4$ ; YES, SO SKIP NEXT MESSAGE ;DD082 MOV #TMPL2,R4 ; GET ADDRESS OF OUTSTANDING I/O TEMPLATE ;DD082 CALL COPT ; COPY THAT INTO THE BUFFER AND END THE LINE ;DD082 ; ;DD082 ; PRINT THE REGISTER CONTENTS IF NECESSARY ;DD082 ; ;DD082 ASSUME ,S.CLRF ;JCF080 ASSUME ,S.CCRF ;JCF080 4$: CMPB R2,#S.CABO ; ABORTED BY A CLI COMMAND, LOAD FAILURE, OR ;JCF080 ; CHECKPOINT READ FAILURE ? ;JCF080 BLT 5$ ; IF LT, NO ;JCF080 CMPB R2,#S.CCRF ; MAYBE ;JCF080 BGT 5$ ; IF GT, NO ;JCF080 JMP 50$ ; YES, DON'T DUMP REGISTERS OR CALL PMD ;DD082 .PAGE ;DD082 .SBTTL PRINT REGISTER CONTENTS ;DD082 ; ;DD082 ; TASK NAME AND REASON HAVE BEEN PRINTED, TRY TO PRINT CONTENTS OF REGISTERS ;DD082 ; ;DD082 ;DD082 ; ;JCF080 ; NOTE: THIS CODE ASSUMES THAT THE TASK BEING ABORTED HASN'T BEEN CHECKPOINTED ;JCF080 ; SO THE HEADER IS STILL IN MEMORY. THE EXEC GIVES AN ABORTED TASK A HIGH ;JCF080 ; PRIORITY SO THAT IT WON'T BE CHECKPOINTED AND WILL BE ABORTED QUICKLY. ;JCF080 ; ;JCF080 ;DD082 5$: BIT #TS.OUT,T.STAT(R5) ; IS TASK HEADER IN CORE? ;DD082 BNE 40$ ; IF NE NO ;DD082 MOV T.PCB(R5),R5 ; GET ADDRESS OF PCB ;DD082 MOV P.HDR(R5),R5 ; GET ADDRESS OF HEADER ;DD082 ASSUME H.CSP,0 ;DD082 MOV (R5),R2 ; GET TASK'S SP ;DD082 MOV H.GARD(R5),R5 ; GET ADDRESS OF SAVED REGISTERS ;DD082 BEQ 40$ ; IF EQ, THE HEADER'S BEEN OVERWRITTEN ;JCF080 TST (R5) ; IS HEADER INTACT ? ;JCF080 BNE 40$ ; IF NE, NO ;JCF080 ;DD082 .IF NDF M$$MGE ;DD082 ;DD082 MOV R5,R3 ; COPY SAVED REGISTER AREA ADDRESS ;DD082 SUB #10,R3 ; POINT TO SPACE FOR PS, PC, R4, R5 ;DD082 MOV #4.,R0 ; SET MOVE COUNT ;DD082 10$: MOV (R2)+,-(R3) ; MOVE REGISTER CONTENTS ;JCF078 DEC R0 ; DONE? ;DD082 BNE 10$ ; NO, LOOP ;DD082 ;DD082 .ENDC ;NDF M$$MGE ;DD082 ;DD082 MOV #REGSTR,R4 ; GET ADDRESS OF REGISTER SCRATCH STORAGE ;DD082 MOV #6.,R3 ; SET NUMBER OF GENERAL REGISTERS TO COPY ;DD082 20$: MOV -(R5),(R4)+ ; COPY REGISTER FROM HEADER TO SCRATCH STORAGE ;DD082 DEC R3 ; DONE? ;DD082 BNE 20$ ; NO, LOOP ;DD082 MOV R2,(R4)+ ; SAVE TASK'S SP IN SCRATCH STORAGE TOO ;DD082 MOV -(R5),(R4)+ ; SAVE TASK'S PC ;DD082 MOV -(R5),(R4)+ ; SAVE TASK'S PS ;DD082 ; ;DD082 ; NOW FORMAT THE REGISTERS INTO ASCII WITH LEADING IDENTIFIERS ;DD082 ; ;DD082 MOV #REGSTR,R4 ; GET ADDRESS OF REGISTER SCRATCH STORAGE AREA ;DD082 MOV #REGTXT,R5 ; GET ADDRESS OF REGISTER IDENTIFICATION TEXT ;DD082 MOV #9.,R3 ; GET NUMBER OF REGISTERS TO PROCESS ;DD082 30$: MOVB (R5)+,(R0)+ ; INSERT REGISTER NAME INTO BUFFER ;DD082 MOVB (R5)+,(R0)+ ; ;DD082 MOVB #'=,(R0)+ ; INSERT AN EQUAL SIGN ;DD082 MOV (R4)+,R1 ; GET CONTENTS OF NEXT REGISTER TO FORMAT ;DD082 MOV PC,R2 ; SET R2 NON-ZERO TO GET LEADING ZEROS ;DD082 CALL $CBOMG ; CONVERT TO ASCII ;DD082 MOV R4,-(SP) ; SAVE R4 DESTROYED BY ENDLIN ROUTINE ;DD082 CALL ENDLIN ; TERMINATE THE LINE ;DD082 MOV (SP)+,R4 ; RESTORE R4 ;DD082 DEC R3 ; DONE ALL REGISTERS? ;DD082 BNE 30$ ; IF NE NO ;DD082 .PAGE ;DD082 .SBTTL REQUEST PMD IF NECESSARY ;DD082 ; ;DD082 ; REQUEST PMD IF REQUIRED. CLEAR ABORT REQUEST AND MESSAGE FLAG BITS. ;DD082 ; ;DD082 40$: MOV TKNTCB,R5 ; GET TCB ADDRESS ;DD082 ;DD082 .IFT ;NDF R$$11S ;DD082 ;DD082 MOVB T.EFLG(R5),R2 ; GET ABORT CODE ;JCF080 CMPB R2,#S.CPMD ; ABORT COMMAND WITH /PMD ? ;JCF080 BEQ 41$ ; IF EQ YES ;DD082 BIT #T3.PMD,T.ST3(R5) ; NO, IS TASK TO BE DUMPED? ;DD082 BNE 50$ ; IF NE NO ;DD082 CMPB R2,#S.CAST ; SST ERROR ? ;JCF080 BLE 41$ ; IF LE, YES ;JCF080 CMPB R2,#S.IOMG ; EXIT WITH OUTSTANDING I/O ? ;JCF080 BNE 50$ ; IF NE, NO ;JCF080 ;JCF082 ; ;JCF082 ; GET PMD'S TCB ADDRESS ;JCF082 ; ;JCF082 ;JCF082 41$: ;JCF082 MOV #R.QSTN+RQSPMD,R3 ; POINT TO PMD'S TASK NAME ;JCF082 ;JCF082 CALL $SWSTK,45$ ; SWITCH TO SYSTEM STATE ;JCF082 ;JCF082 CALL $SRSTD ;; FIND PMD'S TCB ;JCF082 BCC 44$ ;; IF CC, FOUND IT ;JCF082 CLR R0 ;; INDICATE TCB NOT FOUND ;JCF082 44$: ;JCF082 MOV R0,6(SP) ;; COPY R0 TO USER STATE R2 ;JCF082 RETURN ;; RETURN TO USER STATE ;JCF082 45$: ;JCF082 TST R2 ; IS PMD INSTALLED ? ;JCF082 BEQ 49$ ; IF EQ, NO ;JCF082 ;JCF082 ; ;DD082 ; FOUND PMD, NOW SEE IF A PARTITION CONFLICT PREVENTS US FROM REQUESTING IT ;DD082 ; ;DD082 ;DD082 46$: MOV T.PCB(R2),R2 ; GET ADDRESS OF PMD...'S PCB ;DD082 MOV T.PCB(R5),R1 ; GET ADDRESS OF TASK'S PCB ;DD082 BIT #T2.CHK,T.ST2(R5) ; IS ABORTED TASK CHECKPOINTABLE? ;DD082 BEQ 55$ ; YES, DUMP IT ;DD082 BIT #PS.SYS,P.STAT(R1) ; NO, IS TASK'S PARTITION SYSTEM CONTROLLED? ;DD082 BNE 55$ ; YES, DUMP IT ;DD082 47$: CMP P.NAM(R2),P.NAM(R1) ; NO, TASK'S PARTITION SAME AS PMD'S? ;DD082 BNE 48$ ; NO ;DD082 CMP P.NAM+2(R2),P.NAM+2(R1) ; MAYBE ;DD082 BEQ 49$ ; YES, CAN'T DUMP TASK ;**-112 48$: CMP P.MAIN(R1),R1 ; TASK IN MAIN PARTITION? BEQ 485$ ; YES MOV P.MAIN(R1),R1 ; NO, GET IT'S MAIN PARTITION BR 47$ ; AND TRY IT 485$: CMP P.MAIN(R2),R2 ; IS PMD IN MAIN PARTITION? ;DD082 BEQ 55$ ; YES ;DD082 MOV P.MAIN(R2),R2 ; NO, GET MAIN PARTITION ;DD082 BR 47$ ; AND TRY IT ;DD082 ; ;DD082 ; CANNOT REQUEST PMD FOR SOME REASON. OUTPUT A MESSAGE TO THAT EFFECT ;DD082 ; ;DD082 49$: MOV #TMPL3,R4 ; NO, ISSUE MESSAGE ;DD082 CALL COPT ; COPY MESSAGE AND TERMINATION CHARS INTO BUFFER;DD082 ;DD082 .IFTF ;NDF R$$11S ;DD082 ;**-9 50$: BIC #TS.MSG,T.STAT(R5) ; ZERO ABORT MESSAGE FLAG BIC #T2.ABO,T.ST2(R5) ; ZERO ABORT REQUEST FLAG .IFT ;NDF R$$11S ;DD082 ;DD082 BR 60$ ; ;DD082 ; ;DD082 ; REQUEST PMD ;DD082 ; ;DD082 55$: ;JCF108 BIC #T2.ABO,T.ST2(R5) ; ZERO ABORT REQUEST FLAG ;JCF108 ; ...THIS MUST BE DONE BEFORE REQUESTING PMD ;JCF108 DIR$ #RQSPMD ; REQUEST PMD... ;JCF080 BCC 56$ ; IF CC, SUCCESS ;JCF108 CMP #IE.ACT,$DSW ; IS PMD ALREADY ACTIVE? ;JCF108 BNE 49$ ; IF NE, NO, FAILED TO REQUEST PMD ;JCF108 56$: ;JCF108 MOV #TMPL4,R4 ; SUCCESS, GET ADDRESS OF MESSAGE ;DD082 CALL COPT ; INSERT MESSAGE INTO BUFFER ;DD082 ;DD082 .IFTF ;NDF R$$11S ;DD082 ;DD082 ; ;DD082 ; OUTPUT THE BUFFER WE HAVE BEEN BUILDING, AND THEN LOOP BACK TO SEE IF ANY ;DD082 ; WORK FOR US REMAINS TO BE DONE ;DD082 ; ;DD082 60$: MOV #IO.WVB,TKNDPB+2 ; SET WRITE VIRTUAL ;JCF080 CALL WRITIT ; OUTPUT THE BUFFER ;JCF080 CALL $SWSTK,70$ ; GO TO SYSTEM STATE ;DD082 MOV $TKTCB,R5 ;; GET OUR TCB ADDRESS ;DD082 MOV $COPT,R0 ;; GET CO: UCB ;DD082 CALL $MPLND ;; FOLLOW REDIRECTION LIST ;DD082 MOV R0,T.UCB(R5) ;; SET UP TI: ;DD082 RETURN ;; RETURN TO USER STATE ;DD082 70$: JMP $TKTN ; TRY AGAIN ;DD082 .PAGE ;DD082 .SBTTL PROCESS DRIVER MESSAGE ;DD082 ; ;DD082 TKNDRV: MOV TKNUCB,R3 ; GET UCB ADDRESS ;DD082 ;JCF080 ; ;JCF080 ; PUT ASTERISKS IN OUTPUT LINE ;JCF080 ; ;JCF080 MOV #AST,R4 ; POINT TO ASTERISKS TO START LINE ;DD082 CALL COPY ; INSERT CHARACTERS INTO BUFFER ;DD082 ;DD082 MOV TKNMSG,R5 ; GET MESSAGE CODE ;DD082 ;DD082 .IFT ;NDF R$$11S ;DD082 ;DD082 CMP #T.NMPE,R5 ; MEMORY PARITY ERROR? ;DD082 BEQ 15$ ; IF EQ YES ;DD082 ;DD082 .IFTF ;NDF R$$11S ;DD082 ; ;JCF080 ; PUT TASK NAME IN OUTPUT LINE ;JCF080 ; ;JCF080 CMP R5,#T.NCWF ; IS THIS A CHECKPOINT WRITE ERROR? ;DD082 BNE 10$ ; NO ;**-48 MOV T.NAM(R3),R1 ; YES, GET TASK NAME CALL $C5TA ; CONVERT TO MOV T.NAM+2(R3),R1 ; ASCII AND PUT IN CALL $C5TA ; BUFFER MOVB #SPA,(R0)+ ; PUT IN BLANK .IFT ;NDF R$$11S ;DD082 ;DD082 BIT #FE.CAL,$FMASK ; DYNAMIC ALLOCATION OF CHECKPOINT SPACE? ;DD082 BNE 7$ ; IF NE YES ;DD082 MOV T.LDV(R3),R3 ; NO, GET LOAD DEVICE UCB ADDRESS ;DD082 BR 10$ ; ;DD082 7$: MOV TKNUB,R3 ; GET ACTUAL CHECKPOINT DEVICE ;DD082 ;DD082 .IFF ;NDF R$$11S ;DD082 ;DD082 .IF NDF D$$ISK ;DD082 ;DD082 MOV T.LDV(R3),R3 ; GET LOAD DEVICE UCB ADDRESS ;DD082 ;DD082 .IFF ;NDF D$$ISK ;DD082 ;DD082 MOV TKNUB,R3 ; GET CHECKPOINT DEVICE UCB ADDRESS ;DD082 ;DD082 .ENDC ;NDF D$$ISK ;DD082 ;DD082 .IFTF ;NDF R$$11S ;DD082 ; ;JCF080 ; PUT DEVICE NAME IN OUTPUT LINE ;JCF080 ; ;JCF080 10$: CALL DEVNAM ; CONVERT DEVICE MNEMONIC TO ASCII ;**-15 MOVB #'-,(R0) ; INSERT DASH ;JCF080 MOVB (R0)+,(R0)+ ; AND ANOTHER ;JCF080 MOVB #SPA,(R0)+ ; SPACE ;**-2 ; ;JCF080 ; PUT DRIVER MESSAGE IN OUTPUT LINE ;JCF080 ; ;JCF080 15$: MOV DRVMSG(R5),R4 ; GET MESSAGE ADDRESS ;JCF080 CALL COPY ; COPY MESSAGE INTO BUFFER ;JCF080 ; ;JCF080 ; INSERT BELL IF NECESSARY ;JCF080 ; ;JCF080 CMP R5,#T.NDSE ; NOT READY OR SELECT ERROR? ;JCF078 BGT 20$ ; IF GT, NO ;JCF078 ;JCF080 MOVB #7,TKNBUF ; START BUFFER WITH BELL SO COT ALWAYS ;JCF080 ; ...PRINTS IT ;JCF080 20$: ;JCF080 ;DD082 .IFT ;NDF R$$11S ;DD082 ;DD082 CMP #T.NMPE,R5 ; MEMORY PARITY ERROR? ;JCF078 BNE 25$ ; IF NE NO ;DD082 MOVB #'",(R0)+ ; INSERT LEADING QUOTE ;DD082 MOV TKNUCB,R1 ; GET FIRST HALF OF PARTITION NAME ;DD082 CALL $C5TA ; CONVERT TO ASCII ;DD082 MOV TKNUB,R1 ; GET SECOND HALF OF PARTITION NAME ;DD082 CALL $C5TA ; CONVERT ;DD082 MOVB #'",(R0)+ ; END QUOTE ;DD082 ;DD082 .IFTF ;NDF R$$11S ;DD082 ;DD082 25$: CALL ENDLIN ; END THIS LINE AND START NEXT ONE ;JCF080 CALL WRITIT ; WRITE IT ;JCF080 ;DD082 .IFT ;NDF R$$11S ;DD082 ;**-57 CMP TKNMSG,#20 ; CHECKPOINT FILE INACTIVE? BNE 40$ ; NO CALL $SWSTK,40$ ; YES, SWITCH TO SYSTEM STATE MOV #$CFLPT,R0 ;; GET ADDRESS OF LISTHEAD ;JCF089 30$: MOV R0,R1 ;; SAVE ADDRESS OF CURRENT ENTRY ;JCF089 MOV (R1),R0 ;; GET NEXT CONTROL BLOCK ADDRESS ;JCF089 CMP TKNUCB,2(R0) ;; IS THIS THE BLOCK FOR US? ;DD082 BNE 30$ ;; NO, LOOP ;DD082 MOV (R0),(R1) ;; YES, UNLINK IT ;DD082 MOV #P.SIZE+2,R1 ;; SET SIZE TO DEALLOCATE ;DD082 CALLR $DEACB ;; DEALLOCATE IT AND RETURN TO USER STATE ;DD082 ;DD082 .IFTF ;NDF R$$11S ;DD082 ;DD082 40$: JMP $TKTN ; ;DD082 .PAGE ;DD082 .SBTTL PROCESS CHECKPOINT SPACE ALLOCATION FAILURES ;DD082 ;DD082 .IFT ;NDF R$$11S ;DD082 ;DD082 TKNCKP: ;JCF078 MOVB #7,TKNBUF ; START BUFFER WITH BELL SO COT ALWAYS ;JCF078 ; ...PRINTS IT ;JCF078 MOV #AST,R4 ; START LINE WITH ASTERISKS ;JCF078 CALL COPY ; COPY ASCII STRING INTO BUFFER ;JCF078 MOV TKNTCB,R1 ; GET TASK NAME ;**-25 CALL $C5TA ; CONVERT TO ASCII MOV TKNTCB+2,R1 ; CALL $C5TA ; MOV #ALLFAL,R4 ; GET TEXT MESSAGE ;DD082 CALL COPT ; INSERT MESSAGE INTO BUFFER ;DD082 CALL WRITIT ; WRITE BUFFER ;DD082 JMP $TKTN ; LOOP ;DD082 ;DD082 .IFTF ;NDF R$$11S ;JCF078 .PAGE ;DD082 .SBTTL SUBROUTINES ;**-11 ;+ ; *** - WRITIT - WRITE THE MESSAGE BUFFER TO "CO" OR THE TASKS TERMINAL ; ; THIS SUBROUTINE ISSUES A WRITE VIRTUAL QIO REQUEST ;DD082 ; THROUGH A COMMON DPB. ;DD082 ; ;DD082 ; INPUT: R0 - POINTER TO THE END OF THE MESSAGE IN THE BUFFER ;DD082 ; ;**-4 ;- WRITIT: .IFT ;NDF R$$11S ;DD082 ;DD082 SUB #3,R0 ; DON'T OUTPUT TAB AND SPACES AT END OF LINE ;JCF080 ;DD082 .IFTF ;NDF R$$11S ;DD082 ;DD082 SUB TKNDPB+14,R0 ; COMPUTE LENGTH OF BUFFER ;DD082 MOV R0,TKNDPB+16 ; SET BUFFER LENGTH IN DPB ;DD082 ; ;DD082 ; DPB IS SET UP, ISSUE QIO ;DD082 ; ;DD082 ;DD082 .IFT ;NDF R$$11S ;DD082 ;DD082 MOV #TKNBUF+2,R0 ; POINT TO START OF BUFFER ;DD082 DIR$ #GTIM ; GET TIME OF DAY ;DD082 MOV #TIM+G.TIHR,R4 ; POINT TO STRING CONTAINING THE TIME ;DD082 ; ;DD082 ; CONVERT THE TIME FIELDS FROM BINARY TO DECIMAL ASCII ;DD082 ; ;DD082 10$: MOV (R4)+,R1 ; GET PARAMETER ;DD082 CMP R1,#10. ; IS IT A TWO DIGIT NUMBER? ;DD082 BGE 20$ ; IF GE YES ;DD082 MOVB #'0,(R0)+ ; NO - INSERT A LEADING ZERO ;DD082 20$: CLR R2 ; SUPPRESS LEADING ZEROS ;DD082 CALL $CBDMG ; CONVERT TO DECIMAL ;DD082 MOVB #':,(R0)+ ; INSERT SEPARATOR ;DD082 CMP R4,#TIM+G.TISC ; DONE? ;DD082 BLOS 10$ ; IF LOS NO, CONVERT NEXT PARAMETER ;DD082 MOVB #SPA,-(R0) ; INSERT A SPACE OVER THE LAST COLON ;DD082 MOVB (R0)+,(R0)+ ; AND ANOTHER SPACE ;JCF080 ;DD082 .ENDC ;NDF R$$11S ;DD082 ;DD082 DIR$ #TKNDPB ; ISSUE THE QIO ;DD082 BCS 30$ ; BRANCH ON ERROR ;DD082 DIR$ #WAIT15 ; MARK TIME FOR 15 SECONDS ;DD082 BCS 30$ ; COULDN'T ;DD082 WTLO$S 0,#EFN1!EFN2 ; WAIT FOR I/O OR TIMER ;DD082 CMKT$S ; CANCEL MARK TIME ;DD082 BCS 30$ ; COULDN'T ;DD082 RDAF$S #EFNBF ; READ ALL FLAGS ;DD082 BIT #EFN1!EFN2,EFNBF ; WRITE COMPLETE? ;DD082 BPL 30$ ; YES ;DD082 MOV #IO.KIL,TKNDPB+2 ; SET KILL I/O FUNCTION ;DD082 CLR TKNDPB+6 ; ZERO EFN ;DD082 DIR$ #TKNDPB ; ISSUE KILL I/O ;DD082 MOV #EFN1,TKNDPB+6 ; RESET EVENT FLAG ;DD082 BCS 30$ ; COULDN'T ISSUE KILL I/O ;DD082 WTSE$S #EFN1 ; WAIT ;DD082 30$: MOV #IO.WLB!TF.WBT,TKNDPB+2 ; RESET FUNCT CODE TO WRITE BREAKTHRU ;JCF080 RETURN ; ;DD082 ;+ ;DD082 ; *** - COPY - COPY AN ASCIZ STRING INTO A BUFFER ;DD082 ; *** - COPT - SAME AS ABOVE BUT INCLUDE LINE TERMINATORS AFTER THE COPY ;DD082 ; *** - ENDLIN - COPY LINE TERMINATORS INTO BUFFER ;JCF080 ; ;JCF080 ; INPUT: ;JCF080 ; R0 - POINTER INTO BUFFER WHERE COPY SHOULD BEGIN ;JCF080 ; IF ENTRY AT COPY OR COPT: ;JCF080 ; R4 - ADDRESS OF ASCIZ STRING ;JCF080 ; ;DD082 ; OUTPUT: ;DD082 ; R0 - UPDATED ;DD082 ; R4 - DESTROYED ;DD082 ; ;DD082 COPT: CALL COPY ; COPY ASCIZ STRING INTO BUFFER ;DD082 ; FALL INTO ENDLIN ROUTINE ;DD082 ENDLIN: MOV #LINEND,R4 ; POINT TO END OF LINE ASCIZ STRING ;DD082 ; FALL INTO COPY ROUTINE ;DD082 COPY: MOVB (R4)+,(R0)+ ; COPY ONE CHARACTER INTO BUFFER ;DD082 BNE COPY ; IF NE LOOP ;DD082 DEC R0 ; POINT TO WHERE NEXT CHARACTER GOES ;DD082 RETURN ; RETURN TO CALLER ;DD082 ;+ ;DD082 ; *** - DEVNAM - PUT DEVICE NAME AND UNIT IN BUFFER ;DD082 ; ;DD082 ; INPUT: ;DD082 ; R0 - POINTER INTO BUFFER WHERE ASCII DEVICE SHOULD BE INSERTED ;DD082 ; R3 - ADDRESS OF UCB ;DD082 ; ;DD082 ; OUTPUT: ;DD082 ; R0 - UPDATED ;DD082 ; R1,R2,R3 - USED AND MODIFIED ;DD082 ; ;DD082 ;- ;DD082 DEVNAM: MOV U.DCB(R3),R2 ; GET DCB ADDRESS ;DD082 ASSUME D.NAM,4 ;DD082 CMP (R2)+,(R2)+ ; ADVANCE TO OFFSET D.NAM ;DD082 MOVB (R2)+,(R0)+ ; PUT IN ;DD082 MOVB (R2)+,(R0)+ ; DEVICE MNEMONIC ;DD082 MOV R0,-(SP) ; SAVE BUFFER POINTER ;DD082 MOV R3,R0 ; GET UCB ADDRESS ;DD082 ASSUME D.UNIT, ;DD082 SUB D.UCB-D.UNIT(R2),R0 ; COMPUTE RELATIVE UNIT ADDRESS ;DD082 MOV D.UCBL-D.UNIT(R2),R1 ; GET UCB LENGTH ;DD082 CALL $DIV ; COMPUTE UNIT NUMBER ;DD082 ADD (R2),R0 ; CONVERT TO ABSOLUTE UNIT NUMBER ;DD082 BIC #177400,R0 ; CLEAR HIGH BYTE ;**-233 MOV R0,R1 ; COPY IT MOV (SP)+,R0 ; RESTORE BUFFER POINTER CLR R2 ; SET TO SUPPRESS LEADING ZEROS CALL $CBOMG ; CONVERT TO OCTAL ;DD082 MOVB #':,(R0)+ ; PUT IN COLON ;DD082 MOVB #SPA,(R0)+ ; AND SPACE ;JCF080 RETURN ; ;JCF080 ; ;JCF080 .END $TKTN ;**-6 œwu~kQ›c, .TITLE SETTIM .IDENT /03/ ; ; COPYRIGHT (C) 1975 ; COPYRIGHT (C) 1976 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 03 ; ; WRITTEN BY C.A. D'ELIA 28-MAY-75 ; ; ; MODIFIED BY: ; JAK002 9/15/76 TIME/DATE FORMAT CHANGE ; ; ; ; E. A. FLOYD 3-DEC-80 ; ; EF035 -- MODIFY SETTIM TO DO THE FOLLOWING: ; 1) CHECK # OF ARGUMENTS IN ARRAY. IF ; 0 <= # OF ARGS < 6, RETURN ; IF # OF ARGS =6 OR 7, MAKE TICKS ; PER SEC. AND TICK OF SECOND, -1. ; 2) IF # OF ARGS = 8, CHECK YEAR AND ; MONTH ENTRY FOR VALIDITY. IF INVALID, ; CHANGE ENTRY TO 1. MOVE ADDITIONAL ; ENTRIES INTO BUFFER FOR DIRECTIVE CALL. ; 3) FINALLY, SETTIM WILL NOT CHANGE THE CLOCK, ; BUT WILL ISSUE A DIRECTIVE CALL TO STIM$, ; THE "SET SYSTEM TIME" DIRECTIVE. ; ; FORTRAN CALLABLE SUBROUTINE TO SET THE SYSTEM TIME. USE OF ; THIS ROUTINE REQUIRES THAT A TASK BE PRIVILEGED. ; ;- ;EF035 ;STORAGE ;EF035 $BUFFR::.BLKW 8. ;WORK BUFFER FOR ARRAY ARGUMENTS ;EF035 ;TO BE USED IN DIRECTIVE CALL ;EF035 ;EF035 .MCALL STIM$S ;EF035 ;EF035 SETTIM:: ;EF035 MOV (R5)+,R0 ;SET NUMBER OF ARGUMENTS ;**-1 DECB R0 ;DECREMENT ARGUMENT COUNT BMI DONE ;IF MI NO ARGUMENTS CMP #5,R0 ;AT LEAST 6 ARGUMENTS (5 + 1 FROM DECB) ;EF035 BGT DONE ;GT => NOT ENOUGH ARGUMENTS, RETURN ;EF035 CMP #7,R0 ;TICKS INCLUDED? (5 + 1 + 2 FOR TICK ENTRIES) ;EF035 BEQ 5$ ;EQ => YES, ALL ARGUMENTS DEFINED ;EF035 MOV #1,R3 ;NO, SET R3 SO TICK DEFAULTS ADDED ;EF035 5$: MOV (R5)+,R0 ;GET ARRAY ADDRESS ;EF035 CMP #-1,R0 ;WAS ARRAY SPECIFIED IN CALL? ;**-1 BEQ DONE ;IF EQ NO MOV #$BUFFR,R1 ;R1 POINTS TO WORK BUFFER ;EF035 MOV (R0)+,(R1)+ ;SET YEAR SINCE 1900 ($TTNS-14) ;**-1 BPL 10$ ;VALUE CAN'T BE NEGATIVE MOV #1,-2(R1) ;ELSE, SET TO ONE 10$: MOV (R0)+,(R1)+ ;SET MONTH ($TTNS-12) BLE 20$ ;CAN'T BE ZERO OR NEGATIVE CMP 12.,-2(R1) ;ALSO CAN'T BE GREATER BGE 30$ ; THAN 12. EITHER 20$: MOV #1,-2(R1) ;ELSE, SET TO ONE 30$: MOV (R0)+,(R1)+ ;SET DAY ($TTNS-10) MOV (R0)+,(R1)+ ;SET HOUR ($TTNS-6) MOV (R0)+,(R1)+ ;SET MINUTE ($TTNS-4) MOV (R0)+,(R1)+ ;SET SECONDS ($TTNS-2) CMP #1,R3 ;SMALL ARRAY SPECIFIED? ;EF035 BEQ 40$ ;EQ => NO ª;EF035 MOV #-1,(R1)+ ;SET TICKS PER SECOND DEFAULT ;EF035 MOV #-1,(R1)+ ;SET TICK OF SECOND DEFAULT ;EF035 BR 50$ ;SET UP FOR DIRECTIVE ;EF035 40$: MOV (R0)+,(R1)+ ;GET TICKS PER SECOND ;EF035 MOV (R0)+,(R1)+ ;GET TICK OF SECOND ;EF035 50$: ;EF035 MOV #$BUFFR,R1 ;RESET POINTER ;EF035 STIM$S R1 ;CALL DIRECTIVE ;EF035 DONE: RETURN ;RETURN TO USER STATE AND RETURN .END ª&«Æ^›c,.; Žf’ÆÀ¯”L( D"(E;¯Ph±; h¯”Ñ÷ D"É ‡Š‡-ó.K VNÆÀ¯”L¤ Pd@â)ƒ @.å)Ps@ì)p…@ò)ì@ö)’@ä[½‹@>.õ[üX@s©À@°s@ù±oŒ@(¥& D"(^;¯VNha³VNh¯”¯÷ D"É.w œBC¦æ&æÿˆ‡ÂÂeÕ$ù±oŒ ì)p…õ[üXä[½‹&°sa.&¦&æÿˆ† ÃSYë±±’°œ° ¤ Pdä[½‹ õ[üX&ò)ìÆL°ð‡,ö)’â)ƒ s©Àå)Ps ó." KqŽÆÀ¯”Lâƒ @ö°@G.â)ƒ @å)^@î)Kq@ö)°@"{Ä&@,&( D"($b³Óh¯”o÷ D"É111ÁeÏ.ö)°ö°ö)°ö°â)ƒ âƒ plp‡Ü"{Ä&î)Kqâ)ƒ å)^:ó.JÀ+vÀ›½¯”L( D"(Îb³—Gh¯”*÷ D"É8Áe2 ‡uó.¯ˆwÆÀ¯”Lå)Ps@ù±oŒ@>.f³Ð@r³"&@( D"(„¯½`h˜’±„:h¯”÷ D"Éw ð÷ wåù±oŒå)Psr³"&f³Ð¸ó.%¦SŽÆÀ¯”Lå)Ps@(‹& D"( ñ¯4}hf³Ðh¯”ö÷ D"É&œVŒ‡¼å)Psó.Ôe"ÆÀ¯”Lâ)P@æ)ÐW@Y.„¯½`@ù±oŒ@f³Ð@s³þ}@(ÿ& D"( ¥¯ÜKh¬¯²'h¯”ˆ÷ D"É&w ð÷ ð÷ 0 wœ*ù±oŒ â)P„¯½`æ)ÐWs³þ}æ)ÐWÛ Ôf³Ðéó.#t!ŽÆÀ¯”Lå)Ps@ù±oŒ@6.s³þ}@( D"(à¯4h¯”Y÷ D"Éw ðwéù±oŒå)Pss³þ} ó.&Š(ÆÀ[Ð¯”L°s@(ç. D"(þ¬¯yìþ¬°yèD°úph ±&h@¯”‘÷þ¬°yÿÿî þ¬¯yÿÿ(Í (ÿÿÌ ß ÿÿê @© @±ó.ö&`;ÆÀ¯”L°s@ù±oŒ@á.( D"($ù¯üXhf³y:h¯”.÷ D"É,w ÁB‰ Cƒàƒ òñ€€‡{ù±oŒ °sôó.œ,ŽÆÀ¯”L<&ãe@â)P@’.â)_G@å)Ps@î)Ôp@î)Kq@ò)»@ð.$9ž!@ù±oŒ@f³Ð@m³eŒ@p³K,@.r³ü@( D"(`°}h° €h¯”‘÷ D"É*w ð÷ &‡ðµð•÷ G*ù±oŒå)Psp³K,â)_G$9ž! å)Ps› "ppðµË,r³üâ)Pî)Ôpî)Kqî)Ôp<&ãe (:÷ ð¥ ðððÕ*ò)» m³eŒ$9ž!å)Psî)Ôpå)Ps]Zwâ)_Gf³Ð(ó.œ,hÆÀ¯”Lä[à8@ù±oŒ@1.a³VN@( D"(,°lh,°zh—p³iwh ¯”÷ D"É$w ÷ ‡ñÿÿñÿÿ1 ‡ù(ù±oŒ a³VNä[à8ä[à8ä[à8ó.®SKqŽÆÀ¯”Lå)Ps@î)Ôp@.õ)Ôp@$9×p@( D"(Lm³SŒh"òm³eŒhm³oŒh&¯”W÷ D"É,0,‡°÷ ¡‡ð•±‡ñ.õ)Ôpî)Ôpõ)Ôpî)Ôp$9×p å)Ps\.$ƒ D„PÄ5RÃ ý†R”‡R”R”Ã üî)ÔpŽ Jø¯ó.TàŽÆÀ¯”Lâ)P@å)Ps@Ê.æ)ÐW@ù±oŒ@a³VN@( D"(Þ±lEh¯”¡÷ D"É$w ðÁeð÷ ‡•$ù±oŒå)Psæ)ÐWâ)Pa³VN›ó.E`€W”ÆÀ¯”L¯ “@îT–@±.Ä%•@<&k@<&@<&®(@<&ƒ:@°.<&ãe@<&¶p@<&Kq@<&%t@<&ly@ê.â)ƒ @â)P@â)_G@å)Û%@å)Ps@Ý.æ)»@æ)é%@æ)ÐW@è)›8@î)Ôp@.ï)ã‰@ò)»@ò)t @ò)ý@ò)ì@<.ò)Bx@ò)ø€@õ)Ôp@ö)°@ö)’@.$9°@$9è'@$9,:@$9ÖW@$9«p@/.$9¼p@æ[à8@æt<@öt @"{Ä&@ú.¡«@°s@ù±oŒ@a³VN@b³Ó@s.f³Ð@f³y:@r³"&@r³,}@s³þ}@Ö.( D"(hh±p!hh±ì&hh±²'hÕ¯”‘÷ D"É,w & w æÁñ÷ ðlðµ¿*ù±oŒù±oŒ°s¯ “f³y:"â)P$rðµ-<&%t<&¶p<&ãe<&ƒ: ò)»Ä%•.ðµnð¥û-æ)» <&®(<&<&k ò)t æt<,">ð¥^0 0 0 0 ´,ò)ø€ öt ò)ø€ò)Bxè)›8è)›8&Xð0 0 0 0ŠÎ÷ ..å)Û% å)Û%æ)é%ö)°ö)°â)_Gµ.vÁe÷ 7‡÷ Êñ&ÀÁe<*s³þ}æ)ÐWa³VNæ[à8 â)ƒ &°s‚.œ÷ €#‡pq÷ j‡0 ð0C,"{Ä&¡«â)PîT– ò)ý&ò)ý˜Â0ð¥ ð3.õ)Ôpî)Ôp õ)Ôpî)Ôpæt<ò)ø€Ò"Ö00÷ ¡ ð•6*ò)Bx ö)’ò)Bxò)Bxî)Ôpr³,} "ð÷ ð•±– ‡ð•*$9ÖWå)Ps r³"&$9è'å)Ps$9°P ùð•õð•ñðµ@*å)Ps $9«på)Ps$9¼på)PsÄ%•d" ð•ð•0\*æ)» öt ò)ø€<&ò)t â)ƒ S 6ðµð•÷ R*ò)Bx<&%t ò)»$9,:å)Psâ)PÁNwðµpÃ,b³Óf³Ðï)ã‰<&Kq<&ly ò)ìDd‡â)ƒ Nó.:dvwÆÀ¯”Lå)Ps@$96 @z.ìWÞ@ä[½‹@ó[<}@õ[üX@&{çW@1.\±D@ù±oŒ@a³VN@( D"(rW’±vwhp³vwh¯”e÷ D"É.w DÅ Å ýæ¦…„ñUÄù±oŒ&{çW&ìWÞ(ó[<}®.&q•q•ÄåBaâ¥:Ä CÃe÷ ÷ ä[½‹ ä[½‹$õ[üX(\±DX&L‡Ãññ÷ ð•t*õ[üXõ[üXä[½‹ä[½‹a³VN $96 “j‚ƒ‡Ìå)Psó.:dˆwÆÀ¯”Lâ)P@ä)²'@€.ä)Ty@æ)ÐW@ù±oŒ@a³VN@p³iw@.p³vw@( D"(0±}sh p³# h$Hs³þ}h¯”|÷ D"É.ÁeÉð÷ ‡w ÷ t*æ)ÐWâ)Pa³VNä)Ty ä)²'&ù±oŒj&‡÷ ‡´p³vw p³iwÀó.eÀvŽÆÀ¯”L<&¶p@<&%t@?.â)P@å)Ps@ò)»@$9,:@$9I;@·.( D"((±r³"&h¯”ë÷ D"É(Áe&À÷ €0 0 L*â)Pâ)ƒ "{Ä&°sœ« î)Ôp¼ 0 0 0 0 0 ðÅã,î)Ôpâ)Pæ)ÐWï)ã‰ã)§Zó)[}à8‡/Ä%æ)»‹ó.t¸LvÀ¸Ä¯”Li³‚@q³¯:@”.( D"($r³khw³kh¯”·÷ D"É,ÄÄ÷ U•Õ4 6Ååwi³‚&q³¯:åó.t°yŽÆÀ¯”L( D"(Ê.Ô±2&hÔ±€&hÖ±fahœ²2&hœ²€&hÀž²fah¯”÷ D"É ‡^ó.þvXuvÀÀÁ¯”L( D"(›ù±oŒh¯”x÷ D"É$&æ¦ff… Þ ‚ƒ„…‡öó.éƒKqŽÆÀ¯”Læ)ÐW@;¯VN@Œ.( D"( Ö¯Ú}hù¯ XhÕ±®Shˆ¯”‘÷ D"Éðwmæ)ÐW;¯VNó.ñh~vÀÊ¯”Ls©À@ñ¯4}@a.°s@f³Ð@x³·k@( D"(Z®&q³¯:h w³h2w³¼h"¯”ž÷ D"É.0Š+æ1ÿˆÅÅeÃ÷ ß%ÿÿïp’*°sx³·k"s©À›.&w÷ øfœ(Á fæ)ÿˆ‡fæÚf³ÐåLÿˆ‡‡÷ Lñ¯4}Šó.üÜYvÀ›½¯”L( D"(Ow³th¯”w÷ D"ÉÉ¥ÿÿ±‡æ1ÿˆ‡þó.üœwvÀÛÃ¯”Lf³Ð@w³¼@A&( D"(w³L h¯”ù÷ D"É&÷ BfÁep`pwªw³¼ f³ÐÐó.÷’¼ŽÆÀ¯”Lâ)P@å)Ps@ç.ö)°@b³Ó@b³—G@f³Ð@w³t@.w³k@( D"(<w³™€hw³·€h¶¯”‘÷ D"É.÷ f¦æ÷ †ƒ‚„÷ ‡òÆeðe@b³—Gw³kw³ti&p÷ 0žwõ,ö)° ö)°b³Óâ)På)Psf³Ð^ó.±˜(_ÆÀ¯”L¤ Pd@© Ì`@f.â)P@å)°'@å)Ps@ì)p…@s©À@Ý.°s@( D"(Ti³‚h>x³·khkx³Çkh¯”²÷ D"É.AÁe fÕœŠœÄ “&â)P© Ì`¤ Pd ì)p… å)°'¦.&Uÿˆ†DÉ—ð•ÿÿ‡ÅÅe% % % "s©Àå)Ps°s"¤ PdpL% % % ‡Œó.±˜avÀ›½¯”Lù±oŒ@i³‚@.q³¯:ˆ@( D"(Ñ²˜:h¯”Ê÷ D"É&w ð*D÷ ÂÕÂ ýwÔù±oŒi³‚ q³¯:4óˆŒr}…¢_›c,<Á0ÀQ.ÇTL¬c àQ$*c È_¢i üX .p ]!H,àQ4,È_,üX€,m ,F,,Â,í3ð,íQ”,M~J ,]Úã3È_(Êé3üX)4ð3]*BLPm ¢LP(LPí3nLPíQÚLPM~´ãQàQ9 ãQÈ_*²éQüX+XðQ]0ÔZ«ÆÞUqÀŒrÎŒrW!"Œrþq’Œr…– TÚ}¬R TC~àQIøC~È_<TF~¤ÆG:I~üX<ZP~]?’SŽm SŽ¸SŽí3ÜSŽíQŠ`Žm Ž`Žp`Ží3J`ŽíQ:`ŽM~Êm Fí3¸íQêM~àm zôí3&íQšM~öÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"QOŽÕ³*ŒrÎOŽÕ³¯”Lem'@ë¨D~@*Ê«äy@¹«Â‹@ë«z}@ó«F@&”@*½©C @ë«øf@O« _@J©¼ @e©ÄŠ@*d&áe@rh !@Ñ«,x@Ñ«Bx@hhÐ@*Ñ«ýx@A«Äq@¤ªs@ ©Bx@ah €@*¡«@w@š©‰s@(Î€W¬¯”2 QtŽøÀ*ŒrW!tŽøÀ¯”L.«0 Hs©À@*•«xQ@´:2“@ÝªK@q«°^Hq«½^H*´:a @ü¨ð}H¹«Â‹@ë«z}@›©ÀH*ò«¬R@E©>@9©x‚@e©ÄŠ@Éª>rH*D©p…Hl©p…H«l4@6ª`;@Ä«p…H*¬<@a¬(@é«‹HD©z@[©(}@*ªò@{AyH{CyH$9L @s©ùe@*õ«€W@í«À+@©ª[X@G©tS@Ôªp…H*´:4F@¯ªà@(çr},b ©`;h\* ©;hj«hÞG«\}h>N©~hèA«ˆ,h4*•«ôeh¬u©h8«]hE©”h:L©Kh6*»«„h$»«h(å«ˆrh2Ìh^»«°r("»«°rh»«Ør(›©žhçr}(Þ çr} RMD - Segment '*' not foundRMD - Terminal type not yet*E supportedRMD - Terminal/page combinat*kion not yet supportedRMD - Page does n*‘ot existRMD - Terminal type not define*·dRMD - Allocated screen buffer too smaÝll for this deviceð*ðÚ}¬RŒrþqüX]*È_àQUqÀ..M..I..P..CMD*<HLHLHLHLHLHLHLHLHLHLHLHLHLHLHLHLHL*bHLHLHLHLHLHLHLHLHLHLHLHLHLHLHLATHLHLHL*ˆHLHLHLHLHLHLHLHLMDHLHLHLHLHLHLTHHLHLHL*®HLHLHLHLHLHLHLHL´:a *Ô ´:2“ ´:2“*ú*% O1 *´:2“O* € ™´:2“€´:2“&™*F ¸7 ´:2“¸&´:4F&l))Þ*ÞþˆÀ>W,TI,úÀ ªò*7*þ‡ææ!ÿˆ÷þÀð÷ †ë«z}"ð&¯ªà**Ãòw>÷ †w”÷òý¶ý÷ìý¼ýÀö÷ òò«¬R$ö(¯ªà*P†ÃøwÀÁ÷ C× wjÀü(ø©ª[Xa¬(ÝªK (ü*v÷ †Ãþwìæ¾ÿˆÀªý7lüðÿæ¯ªàþ¾*œŒÿˆ÷%5À0ŠŽÁŽÑ¥ À û)À Œ $9L s©Às©ÀŽŽ*Â'CÓ¥,Â û€à @ÒÀE À5@*èÀå À>7:ýw”4ýw’1ýÂÂ ÷,ý>*·*ýÀ47’ý7’ý7’ ý7” ý7’ýü7’üü7’ûü7’ 4*4úüÀ& ÷ wÂüÀ) ÷ w¸üÀ, ÷ &9©x‚)9©x‚$,*Zw°üÀ/ ÷ w¨üwªüÀ÷ †Ã 9©x‚/9©x‚"¯ªà(*€wìÀ÷ †ÃwÚÀ ÷ †Ã"w ¯ªà ¯ªà&"*¦È÷ ÷Œü÷S7 €üÀ÷ †Ã w•«xQE©> ¯ªà& *Ì¢ÿ E‡À÷ †ÃwŠææ!ÿˆ÷6ª`;¯ªà*òŒý÷ˆý÷"÷.ü÷÷"üü"í«À+ õ«€W«l4í«À+"*æ~ÿˆææÿˆÿ æ_ÿˆ÷ æaÿˆæ~¬< s©ùe*>ˆÿˆðûÿ ÷ Àæûðªúæ3ÿˆ÷¬Òûˆ¬<s©ùe&¬*dÀ÷ †Ãwúÿ ‡¶ûÀ´ûðxú ¯ªàG©tS*Šæ3ÿˆ7Æ€ÀEÿÀ%4À%1À%DÀE *°À5@Àå Àð>7>lû÷hûææ!>>*ÖÿˆæÿˆÀxæsÿˆ÷¬Hûææ!ÿˆæ¬*üÿˆÀXæsÿˆÀ,ûð5€ õ÷\ûææ!\*"ÿˆæÿˆÀ,æsÿˆ÷â÷^öúææ!E©>^*HÿˆæÿˆÀæsÿˆ÷ ÀÔúð˜ùæ3D©z*nÿˆó%À¼úð€ùÁÀ÷ Á÷ ð¥ [©(}&[©(}*”MÿÿË%È_æÖÿˆæ3ÿˆæîÿˆæ3ÿˆæ Öî*ºÿˆæ3ÿˆæÿˆæ3ÿˆæ6ÿˆæ3ÿˆæN6(N*àÿˆæ3ÿˆw æ$Þ ‡6 À,ùÁ¬ö‡Á¬¹«Â‹$*ó‚ÆeBEÅì¡ÅŠÂlû‡Ã„Ã$e©ÄŠ*,ÅæœÎìæf&D¡Þ „…ƒÅlRÎŠ—£ÿÿðÖæ±LQtŽ€»*Œr…–tŽ€»¯”L{'µWH{'äH*(>ƒ¬Ùfh(ƒ¬g'h4ƒ¬€h$ƒ¬áLh**ƒ¬ÜYh,ƒ¬äh2ƒ¬wah8ƒ¬fah6ÌªÞh ¯” *SY ÿÿ&ÿALL >QOŽÑ³*Ú}¬ROŽÑ³¯”Ls©À@q«°^@*½©C @u©@ÌwË-@l©p…@”}0€@*$939@å«ˆr@”}Hw@(å8€W,Üò«¬RhZ¯” å8€W*{…9€9€9€9€$ÌwË-l©p…‚ q«°^‚”}Hw‚”}0€*&9€LPSŽLP`ŽLPJwLPLPLPLP`Ž`Ž`Ž`Ž*L`Ž`ŽV†W†X†Y†Z†æÿˆ×- À¯ÿ.÷LPs©À$939*r÷‹¡ÿ÷‡Àð5#÷5ð‹å«ˆrå«ˆru©$½©C *˜&œ&ð5 ÷LP‡ð5 ÷å«ˆr"¾‡÷SŽ‡À7‡÷”M‡å«ˆrå«ˆrå«ˆrå«ˆrLQBÆ*ŒrþqBÆ¯”L:©(}@s©À@* ©`;@´:2“@e©À@K©òy@q«°^@*»«°r@‚¬h8@›©ž@Hš¸`@ªòy@*$9Î…@l©p…@a¬(@9©òy@L©K@*ª¬h8@ˆ ¸`@©ª[X@(ÙZŠ,@"ªRh$D©zhRs©ùehŒ¯” ÙZŠ*À÷( ´:2“l©p…‚q«°^"ªòy(q«°^*.âÿ7æÿ÷Þÿæÿˆ¡ææ)ÿˆ‡±‡Àªòyq«°^*T÷´ÿ7¸ÿ÷°ÿæÿˆÀÁ †&K©òy q«°^K©òy »«°r$›©ž*zÐ• ûææ)ÿˆ‡Åw„ÿÀ ÁW!q«°^ ªòy&ªòy* ÷ \U”À ø7 Pþ7 JþÂ÷Fþ·@þ»«°r ©ª[X*Æ€Âm€ yƒÐµ€ûÀ CàÃm þÃíþ÷‹BÃa¬($9©òy*ì?‚ÃíþÃmÄ÷&f¦ÀeÁ 9©òy‚¬h8Hš¸`e©À&9©òy*Â ÷ ôÃÜýÃmÄ÷Àe& :©(}9©òyª¬h8ˆ ¸` e©À(9©òy*8ÁÂ ÷ ‚€ôÃÄW!÷ :©(}9©òy9©òy 9©òy$*^¤•Ã ø÷–ý–ýÃŽýÃíŒýW!÷ ‚Õ• *„ · xýÃ õCàW!÷ fU”Ã øÈÅ€W!*ª÷ R”€ ƒÈµ€ó…õ¥ ÿÿW! &*Ð÷ 0Õ• · $ý÷ &ýwÚþÀ ÁW!ªòy"ªòy&*ö÷ U”À øwÅå×-wþæÿˆL©K ©`;&(†×-æ1ÿˆô÷‹Öý€÷Å‡s©À $9Î… ©`; L©K$hQBÆ*ÔZ«Æ¯”L(ò«¬Rh¯ªàh ¯” ¡‡âQOŽ*,OŽ¯”L(¬P*e©ÀhK©òyh‚¬h8hLHš¸`hHªòyh*«l4ha¬(h9©òyh(ª¬h8hNˆ ¸`hJ©ª[Xh¯” HHQOŽÏ³*LPOŽÏ³¯”L(¬) ¯” P ((¸QOŽ*SŽOŽ¯”L(¬P ¯” H ((HH ÖQOŽ*`ŽOŽ¯”L›©À@(¬P¯” P[H‚ ›©À[H[J‚›©À‚›©À(( [;H‚›©ÀHH®QOŽ*OŽ¯”L›©À@(¬)¯” PH‚ ›©À HJ‚›©À‚›©À((ÎQOŽ*OŽ¯”L›©À@(¬P¯” PH‚ ›©À HJ‚›©À‚›©À( (Y‚›©ÀHH ZQOŽ*,,OŽ¯”L(xQ¬Éªdh¯”†QtŽ€»*,m tŽ€»¯”L(úü¨fah*ü¨²2hü¨u~hü¨Whúü¨µWh ü¨<hü¨y:h¯”vQtŽ€»*LPm tŽ€»¯”L(ú¯” * 0:!!*&!! ! *L !!! *r !!!*˜!!!!*¾!!!ä!!vQtŽ€»*SŽm tŽ€»¯”L(ú¯” * 0:!!*&!! ! *L !!! *r !!!*˜!!!!*¾!ävQtŽ€»*`Žm tŽ€»¯”L(ú¯” * 0:!!*&!! ! *L !!! *r !!!*˜!!!!*¾!!!ä!!vQtŽ€»*m tŽ€»¯”L(ú¯” * 0:!!*&!! ! *L !!!*r*˜*¾ävQtŽ€»*m tŽ€»¯”L(ú¯” * 0:!!*&!! ! *L !!! *r !!!*˜!!!!*¾!!!ä!!~QOŽ*,í3OŽ¯”L(xQ¬ *ªìhªÁhª¿hªÀhªhh ¯”nQOŽ*LPí3OŽ¯”L(xQ¬ ¯” xQ5 nQOŽ*SŽí3OŽ¯”L(xQ¬ ¯” xQ5nQOŽ*`Ží3OŽ¯”L(xQ¬ ¯” xQ5nQOŽ*í3OŽ¯”L(xQ¬ ¯” xQ5 nQOŽ*í3OŽ¯”L(xQ¬ ¯” xQ5FQtŽÈ*,íQtŽÈ¯”L(xQ¬F*Ìªè`h4Ìªî`h6Ìªë`h8ÌªCyh ÌªHyh*ÌªWyh"ÌªýxhÌªÒyhÌª"hBÌª""hD*Ìªx:h.Ìª~:h0Ìª{:h2Ìª>Sh:Ìª?Sh<*Ìª6hÌªãehÌªèehÌª÷ehÌªØfh>*ÌªÜfh@Ìªu~hÌª²2hÌªU(h&Ìª€h"Ìª€hÌªX(h$Ìª<h ¯”°QtŽÈ*LPíQtŽÈ¯”L(xQ¬F ¯” xQ*"),:D&&$&&&22 FEEE°QtŽÈ*SŽíQtŽÈ¯”L(xQ¬F ¯” xQ*".8#$&(4 BABB°QtŽÈ*`ŽíQtŽÈ¯”L(xQ¬F ¯” xQ*"),:D&&$&&&22 FEEE°QtŽÈ*íQtŽÈ¯”L(xQ¬F ¯” xQ*"),:D#$&(4&2 FE°QtŽÈ*íQtŽÈ¯”L(xQ¬F ¯” xQ*"),:D&&$&&&22 FEEEjQtŽ€»*,M~tŽ€»¯”L(¦è«Äqh*è«D~hè«VNh>è«Ùfh è«u~hè«²2h*è«øfh4è«’hè«€hè«h8è«0uh&*è«Xuh(è«€uh*è«¨uh,è«Ðuh.è«øuh0*è«Rhè«_h è«Bxh$è«O h:è«P h<*è«@yh6è«Ryh"è«fahè«áyhè«›:h*è«:dhè«DLhè«LLhè«xdh2è«5Mh¦è«<hè«Deh¯”QtŽ€»*LPM~tŽ€»¯”L(¦¯” *0: ) *5@*& -:G /<C *L*r(, ( ,(,(,(,(,(,(,(,(˜,(,(,(,QtŽ€»*`ŽM~tŽ€»¯”L(¦¯” *0: ) *5@*& -:G /<C *L*r(, ( ,(,(,(,(,(,(,(,(˜,(,(,(,QtŽ€»*M~tŽ€»¯”L(¦¯” *0:) *5@*& -:G /<C*L*r˜QtŽ€»*M~tŽ€»¯”L(¦¯” *0: ) *5@*& -:G /<C *L*r(, ( ,(,(,(,(,(,(,(,(˜,(,(,(,QOŽ*UqÀOŽ¯”LÝªK@Éªd@*»«°r@a¬(@öª³K@(UqÀ,8•«xQh¯” UqÀ*ÂÃ ÁÔÁ À÷ ÀÔÀ `Áe öª³KÉªda¬(ÝªK(»«°r&sþÿÂ î7 ‡ƒ ùöª³KrQOŽ*,È_OŽ¯”L(%¦S,*E©>hõ«€Whí«À+höª³Kh¯”ZQOŽ*,üXOŽ¯”L(y:},6ª`;h¯”ZQOŽ* ,]OŽ¯”L(/d@,¬<h¯”nQOŽ*,àQOŽ¯”L(Ì,G©tSh¯” ÌŒQOŽÎ³*c È_OŽÎ³¯”L(%¦S, ü¨²h¯” %¦S$} ÌÿÿÔÿ ‡QtŽ€»*i üXtŽ€»¯”Lü¨fa@ü¨²2@*»«°r@›©ž@:©@ªR@Ñ«,x@*Ñ«Bx@D©z@ƒ¬wa@ü¨y:@(y:},Ö¯” y:}*LRSX-11M V4.0 BL Name L*&Length TI Pri I/O Status flags*L÷ ÁÀP”þÀ ÁP”P”P”P”ÁD©z ü¨²2Ñ«,x$Ñ«Bx*r ÷ Ð•KÀÐ•OÐ•WÐ•NÐ•=Á:©ü¨fa*˜P”P”P”P”P”P”ÁÀP”þà• ÷ Áƒ¬waü¨y:$ªR(»«°r¾ÂB †Ñ¥ ûñÕ€ÿÿ÷‡›©žâQtŽ€»*p ]tŽ€»¯”L:©(}@ƒ¬Ùf@*ü¨²@ë¨D~@a©}@ü¨u~@»«°r@*é«@Q@ü¨W@ü¨µW@ü¨<@:©@*›©ž@i©€‰@[©(}@:©Ï_@ƒ¬fa@"(¶^œw/d@,ž¯” /d@Â Âjj¸ ¸Â*ÂÄÁ÷ Á ü÷ ÷ „‡Åþˆ\Äü¨² $\(ë¨D~*è÷ô--ô*7&‚ƒ¬faƒ¬faƒ¬Ùf*&•ƒÕ€ÀìÁ÷ Àl"i©€‰*4ŠW!j*ô*Çj*Z ‡ælæ=ÿˆ÷÷ ÿÀ|Ál÷ lü¨< |$l(a©}*€À Á|ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷ |ü¨<&ü¨u~*¦÷ ÖþÀ|ÁrÂ÷ ÀÁ|ÂR¤|ré«@Q |$ü¨u~*ÌrœÿÿÿÿòÕ€ÿÿÀ öÅÄÍ!†ü¨µW"ü¨W*òÄ% ƒÄ% †Ô¥ ÷ô• ÿÿôÕ€ÿÿð‡À|›©ž»«°r(|*A÷ A÷ ÀÁ|ÂR¤rœÿÿÿÿòÕ[©(}[©(}|*>€ÿÿÀ öÀ|Ò Ò Ò AÂ÷ Ð•0|$:©Ï_*dÐ•0ÀÁ|ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ|*Š|P•P•Ò Ò AÕÂ÷ ÀÁ|:©(}*°|ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ|Ò Ò ||*Ö AÕ ÷ Ð•.ÀÁ|ÂR¤rœÿÿÿÿ:©|*üòÕ€ÿÿÀ öÀ|Ò Ò AÕ ÷ Ð•.|$:©*"ÀÁ|ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö… À|*H|ÁÒ Á üÂšA÷ AÁE*÷ |š*nA÷ À&Á|ÂR¤rœÿÿÿÿòÕ€ÿÿÀ |*”öwJþ-EXE RDN MSG NRP BLK *º OUT CKP CKR AST DST -C*àHK CKD SEF FXD TIO CAF HLT* ABO STPA STP SPNA SPN WFRA *, WFR ACP -PMD REM PRV MCR S*RLV CLI RST NSD CAL ROV NET*x &æÃ„”Áü€‘úÁÃ ÷ƒ„‡ QOŽÎ³*c àQOŽÎ³¯”L:©(}@ƒ¬Ùf@*´:2“@ƒ¬€@G©P}@q«°^@<©P}@*ë«z}@N©~@A«ˆ,@9©x‚@E©”@*«]@´:òs@l©p…@L©K@D©z@*í«À+@ƒ¬wa@ƒ¬fa@(Ì,Ì ¯” Ì*ò *ò´:2“ l©p…‚q«°^ ´:2“"l©p…‚$q«°^*&d $´†( d´:òsl©p…‚q«°^´†*L COMMAND > RMD r- Illegal command - °°¸*¸ÁÀÑ¥,À û€ ÂCÃ À wE©” E©”E©”(E©”*Þ7ƒ é¡·Äÿ‡±‡÷÷ ÷ šæE©”E©” D©z(*ÿˆæ2ÿˆ÷†÷ ÿ¡‡÷ –ÿî‡÷ Dú†2†E©”E©”**÷ è÷ „ÿ†¡‡÷ .ø†÷ ‡ÁfÿÀ†P”&†*PþÀ Àån÷n°þ7®þæÿˆ±‡¦¡Ê¥ nn*vÊ¥`‚ÊÅ ‰’ ‚ ƒ óCŠw¨±‡÷*œ²nþ÷jþæÿˆ÷J\þ÷Xþæÿˆ÷è²J"(è*ÂJþ÷Fþæÿˆ÷8þ÷>4þæÿˆ÷R&þ &R*è÷d"þæÿˆ÷’þ÷’þæÿˆ÷Jþ÷’$J*þýæÿˆ÷¾ðý÷šìýæÿˆ÷JÞý÷ ¾"J*4Úýæÿˆ‡É¥R É¥PÉ¥T(É¥OMŸÉ‹*ZÉ¥= ù É‹•@÷ Â‹w‡É‹‹<©P}"í«À+*€É¥= ù É‹ƒ@÷ Â‹)w‡É‹$É¥<©P} ƒ¬Ùf*¦= ù É‹@Á÷ †ÁwÁ9©x‚&ƒ¬€*Ì÷ †È‹ w÷TH÷‡w¦þÉ‹"9©x‚ƒ¬€A«ˆ,«] L©K*òüÑ¥=ûDÀe÷ Â¥:=7 ¢ýþˆF ÝG©P}$F*ÀÓÀ%TIÁÀ7‡÷ ‡·ë«z}ƒ¬fa"N©~(ƒ¬fa*>‡· ný‡÷hý÷ ÷ ÷ Å•ƒ¬waƒ¬wa"ƒ¬wa&ƒ¬wa*d•÷%TI ÷ @Â÷ Í•:‡¥A ƒ¬waG©P}:©(}*Š°¥L¥Lª7 ÷AL÷L ÷ ‡ƒ¬faƒ¬wa ƒ¬wa&ƒ¬wa*°3The following commands are availableÖ for this page:æ*æ/RATE=s to change replot rate to 's' seconds©*6PRI=p to change maximum priorit*>y displayed to 'p'=OWN=ddn: to chan*dge owning terminal to ddn: ("ALL" to r Šeset)*)TASK=t to display header for tas ¶k 't'¬¼¼ to returnjQOŽ*ã3È_OŽ¯”L(%¦S, ¯” %¦S QBÆ*é3üXBÆ¯”Lªì@»«°r@*›©ž@ª¿@a¬(@D©z@ªh@(y:},¼¯” y:}*@Use the following keys to switch dis@*&play pages:A - Active Task DisplayH *L- Help Display (this page)M - Memory *rDisplayT - Task Header Display *˜lets you enter a setup command if any *¾setup commands are available for*ä that display page replots the* current display page or exits RMD@*@÷ ÄÁR”É‹ý ÄmW 2ö‡Ä"D©z ªha¬("2(ª¿*fÁ2R”É‹ý ÄmW ’ö‡ÄÁ’2a¬(’ ªì&’*ŒR”É‹ý ÄmW ?ö‡ÁÂB †Ñ¥ ûñÕa¬(?»«°r›©ž²€ÿÿ÷¡‡pQOŽ*ð3]OŽ¯”L(/d@, ¯” /d@‡¦QOŽÒ³*ãQÈ_OŽÒ³¯”LÌª>S@Ìª?S@*Ñ«Bx@i©€‰@(%¦S,hÌªh*ÌªÎh ÌªBxhÌªF’hÌªL’hÌªT’h*Ìª¾’hÌªÈ’hÌª.ShÌª˜ähÌª[qh ÌªMh Ìªˆh¯” %¦S$#ÿÿ * ÀÀmw †@ÁÔû÷ € À-Èû†ÀíÂûÌª>S Ìª?SÑ«Bxi©€‰&FÀ Àm¨¡‡÷÷À Àm¸¡‡±‡Ìª?SÌª>SÌª>S°QOŽÔ³*éQüXOŽÔ³¯”LÌªÎ@ÌªBx@*Ìªè`@Ìªýx@ÌªÒy@N©~@Ìª"@*»«°r@O« _@Ìªx:@ë«øf@Ìª.S@*Ìª>S@Ìª?S@:©@›©ž@Ìª˜ä@*Ìª[q@Ìªèe@Ñ«Bx@Ñ«,x@i©€‰@*a¬(@ÌªØf@ÌªÜf@D©z@Ñ«ýx@*Ìª²2@A«Äq@[©(}@ÌªM@Ìªˆ@*»«„@{Ay@Ìª€@ÌªX(@ÌªÞ@*(¶^œwy:},òÉ2Úh¯” y:}*LRSX-11M V4.0 BL UP POOL=SEL%&CPOOL=TASK=FREE=IN:OUT:PARSERRSEQH*HD÷ þˆvÀÁÂR”À ý÷Á" D©zvÑ«,x$Ñ«Bx&ÌªBxnwÁÂ*O« _@ÿ ÌªÎÌªÎ *zÃ‘‘ÉDò5 ÉCò5€A«Äq* ÉT² ÉSÑ‰¡ ‰‰‰‰‘‚*ÆÃ Û ÄÅÌ Ý÷ ‡‚,‚ÌªÞN©~*ìú´ÄeÅ ìæÁÀñ+Þ 1‡»«„ÌªÞ*õ5@úõ5öõ5 òw!ïw! ìw!ÌªÞ$ÌªÞ *8éw!æqÉ1 ñœÅì± ÌªÞ ÌªÞ*^ÅìûÁeÀ ÎÞ ‡Æe‡ÂÀÁ{AyÌª²2(*„R”À ýÂ ÁÉ‹ Ò•(ÀR”À ýÊ•)ÌªýxÑ«ýx*ªÀ Á¡ ÷ È•KÂÌªÒyÌªBx:©&Ìªèe*ÐÀÁR”À ýÂÀÁ1R”À ýÂ ÌªX(1(Ìªx:*öÀÁ6R”À ýÂÀÁ9R”À ýÂ6Ìªè` 9*ÀÁ,R”À ýÁÁåÁEw ÃÌª€,a¬($Ìª.S*B€ BÄÄmÓ•*Ô•-Â úÃ€ BÄÌª>Sa¬( Ìª?S*hÄíÓ•*Ô•-Â úÀ @ÁÃC`Ã À÷ a¬(ÌªBx(i©€‰*Ž·ÂÂÂ·ªý ÃÅÅmÀ¡Ìª[qÌª>S Ìª.S*´ ÷ ÃeÄm~ýC!ï‚ÃÅÅm:© Ìª?S(Ìª.S*ÚÀ¡ ÷ ÃeÄmPýC!ï‚Â:©(ÌªØf*Á=ÀR”À ýÂÁAÀR”À ýÁ=Ìª"A&&ÁmÉ•EÁÁíÉ•EÁ÷ &Ìª>S a¬(Ìª?Sa¬("ÌªÎ*H ‡€ÀmÈ•PÀíÈ•PÅ"Ä&ÌªMa¬(a¬(ÌªÜf$ÌªÎ *n@÷ ÷ 7ÌüÐ•:ÐÄüÅmî÷ ë‡[©(}[©(}a¬(&ÌªM*”€ÀmÈ¬üåÀíÈ¢üàÁWpwÁ a¬(a¬(ë«øf$Ìªˆ(»«°r*ºÂB †Ñ¥ ûñÕ€ÿÿ÷ÀJÁ À ýÁ›©ž ÌªÎ àÁ@Á`w¡‡a¬(Ìª˜äQOŽ×³*ðQ]OŽ×³¯”LÌªÎ@em'@*ÌªBx@Ìªë`@Ìªî`@ë«z}@a©}@*ó«F@½©C @ÌªL’@ÌªF’@ÌªT’@*Ìª""@é«@Q@Ìª~:@Ìª{:@Ìª.S@*•«ôe@J©¼ @Ìª>S@Ìª?S@:©@*Ìª˜ä@Ñ«Bx@Ìªãe@a¬(@L©K@*<©@Ìª÷e@hhÐ@Ìªu~@¤ªs@*[©(}@ÌªM@A«Äq@ah €@Ìª€@*ÌªU(@¡«@w@š©‰s@Ìª<@ÌªÞ@"(¶^œw/d@,l ¯” /d@ 2 2(*(÷-÷‡þˆTÀÁ*Ñ«BxÌªBx•«ôeL©K T(ÌªÎ *N À ýÅÀÀ7 ÷ š†*ú ÌªÎ ¡«@wë«z}ë«z}*t ÍÿÿÀ ÀÄ ÌªÎ "ÌªÎ &J©¼ *š4"†0m° ôÁÁ]7ÌªT’"ÌªF’(ÌªL’(À777$†7þÿ7$†7þÿ7$&ÌªT’ ÌªF’ÌªL’ÌªL’ÌªT’$ÌªT’*äƒ7þÿÁÂÀD*ô5@&ôµ"ÌªF’ÌªF’ÌªÞÌªÎ * ôµ@ôµ ñ•ÿÿÒ.2Š*0ÿÿÒ01ŠÿÿÁeÀ Üñ•ÿÿñ•ÿÿ’$Áe*VÀ ÏÀ ÁèÿAññ5€ÌªÎ. ó«Fèÿ&|÷w ôB&ñ5· ·lè· ¤ªsÌªÎ. ÌªÎ2ž·lâ÷ ÌªÎ0 ÌªÎ4š©‰s*¬Äôû¡„„„„„7 ÌªÎ6A«Äq(ÌªÎ8*ÒÄÅwôù4½õ7 4þô5€A«Äq ÌªÎ: *ø&]Õ!!@ "ah €*‚••Õ++1ô5 7êý*DÄàýÈô5€Õô5Õ Õ()*jÕÕÕ<>ó5€õ[]þÿó5õU€*þÿô5õU€þÿ¡÷ *¶€ÀíÀmmÁ ¡ÌªM a¬(a¬(*Ü÷ €ÀíÀmW!†÷.ý¡wÚþÕ$ÌªMa¬(a¬(ÌªÎþ *ÿÿ‡ð5ÿ÷!ðð5Àð5ð5*(÷5€8<&<=¡½©C em'em'hhÐ*N‡±‡ææ=ÿˆ÷÷ ¤üÀÁ÷ Ìª<"&*tÀ ÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷a©}Ìª<(Ìªu~*š÷ jüÀÁÂ÷ ÀÁÂR¤é«@Q"&Ìªu~*ÀrœÿÿÿÿòÕ€ÿÿÀ öÅ ÷• Rü÷• Müô æ4ÀÐ>üÐ;üõ%ÿÿ õ%þÿÌª€ ÌªÎ A÷ A(ÌªÎ ÌªÎ [©(}*÷ Ð*IÐDLÐE*Ð*OÐFFÐL*ÀÌªÎ [©(}*6ÁR¤rœÿÿÿÿòÕ€ÿÿÀ öä÷ŠØûÅå Ìª€*\Ã÷5À ÁÑ À üÀÁ ÷ Ìªãe"ÌªÎ*‚Ð•.Ð•:Á ÷ Ð•.Ð•:Á ÷ &:©ÌªÎ:©$ÌªÎ*¨È•.ÀÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö:©Ìªãe*Î÷5À ÁÑ À üÀÁ ÷ Ìª÷e ÌªL’(:©*ôÐ•.Ð•:Á ÷ Ð•.Ð•:Á ÷ ÌªT’:©"ÌªF’(:©*È•.ÀÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÅÌª÷e*@ÄÁÀ Ñ À üôFõþÿ3ÀÌªU("ÌªÞþÿ(&fPúÿAüÿÁe0PÐ•:CýÿÃ{‚ŒÈ *ÌªÞúÿ ÌªÞüÿÌªÞýÿ‚ Œ"È$ *ˆ®¼Áaa ÷ È•.Ð•DÐ•MÈ•O ®¼ ÌªÎ <©*®Ð•FÐ•OÐ•RÐ•OÐ•FÐ•LÀÁ$(ÌªU(*ÔR¤rœÿÿÿÿòÕ€ÿÿÀ öäÅå«÷÷ "Ìª~:*ú ú÷ úÀÁ ÷ ÀÁÂR¤"ÌªÎ.:© $Ìª~:* rœÿÿÿÿòÕ€ÿÿÀ ö÷2÷ Êù÷ Æù÷ Ìª{:*FÂù÷ ¾ùÀÁ¡ÌªÎ2*lA ÷ È•KÀÁÂR¤rœÿÿÿÿòÕ:©Ìª{:*’€ÿÿÀ ö÷÷ `ù÷ \ùÀÁ ÷ Ìªî` $ÌªÎ0*¸ÀÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷:©Ìªî`(Ìªë`*Þ2÷ ù÷ ù÷ ù÷ ùÀÁ¡ $ÌªÎ4*A ÷ È•KÀÁ:©**ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÁ÷ ÁÌªë` ÌªÎ8$ÌªMP ÁÀíÂÂí&ÌªÎ: ÌªÎ: a¬(Ìª>S&dÂmÄ ÷ jÀÀmÂÂm&a¬(Ìª.SÌª˜äÌª?Sa¬("Ìª?S*†ÂmÄ÷ L÷"÷ fø÷ bø÷ ^øa¬(Ìª.Sa¬(Ìª""*¬ÀÁ ÷ È•.ÀÁÂR¤rœÿÿ" ÌªÎ6:© Ìª""*ÒÿÿòÕ€ÿÿÀ ö‡É%ÿÿwJ@,†wúÀ *†*øw,†w,†CClƒ CÃíÌª?SÌª?S(Ìª?S*ÃíClƒ`ƒ Â ‡ÃmÃmƒà÷•=ð÷ñ‹a¬(Ìª?Sa¬(*D÷•-ä÷ ‡w /&f¦ñ¥)A*jÀ÷ A÷ ÀÁaM¢M’ÍÕ [©(}[©(}*€Åm À ö‚€w^÷÷: Z÷÷ V÷äa¬(*¶&aÅÈ¥ È• ÈÕ€ÀmÅ õ€1 ‚a¬(*Ü‡H¬HœÈÕ€€ Áe wêþ1 ‡È.÷* È(÷ÈÕ€€ žH¬HœÈÕ€€ •È¥ *( È• ÈÕ€€ Œ †&aÅÈ¥ È• ÈÕ€"N ÀmÅ õ€È¥ È• ÈÕ€€ å‡a¬(4QOŽÐ³*ãQàQOŽÐ³¯”L´:2“@G©P}@*q«°^@<©P}@N©~@E©”@´:òs@*l©p…@D©z@í«À+@ÌªÞ@(Ì,ž¯” Ì*ò *ò´:2“ l©p…‚q«°^ ´:2“"l©p…‚$q«°^*&d $´†( d´:òsl©p…‚q«°^´†*L COMMAND > RMD r- Illegal command - °°¸*¸ÁÀÑ¥,À û€ ÂCÃ À wE©” E©”E©”(E©”*Þ7ƒ é¡·Äÿ‡±‡÷÷ ÷ šæE©”E©” D©z(*ÿˆæ2ÿˆ÷†÷ ÿ¡‡÷ –ÿî‡÷ Dú†2†E©”E©”**÷ è÷ „ÿ†¡‡÷ .ø†÷ ‡ÁfÿÀ†P”&†*PþÀ Àån÷n°þ7®þæÿˆ±‡¦¡Ê¥ nn*vÊ¥`‚ÊÅ ‰’ ‚ ƒ óCŠw‚±‡÷*œônþ÷Njþæÿˆ÷J\þ÷Xþæÿˆ÷*ôJ"(**ÂJþ÷`Fþæÿˆ÷^8þ÷‚4þæÿˆ÷J&þ^ &J*è÷"þæÿˆ÷þ÷þæÿˆ÷Jþ÷$J*þýæÿˆÉ¥FÉ¥RSwnÿÉ‹µÉ¥0‚É¥ *43‡ñ¥=« ñE”ÅEüÿÅ@Å`D„ *ZÀe÷ Â¥:—Á%ÿ”‡7 @þþˆ² ÝÀÓ G©P}²*€÷ ‡‚,‚úò5@ ò5ò5 N©~*¦‡· þ‡÷üýÅe••÷ U‡É‹ÌªÞ"G©P}*ÌÉ¥= ù É‹@÷ Âw‡w¤þ<©P}"í«À+*ò3The following commands are available for this page:(*(1FREEn=ddn: to change free entry 'n' N(0-3) to ddn:ˆ\*\/RATE=s to change replot rate to ‚'s' seconds¥ŽŽ to returnQtŽ€»*C~È_tŽ€»¯”Li©€‰@:©Ï_@*(%¦S,Lè«î~hè«=h è«„…h½©¶}h¯” %¦SS*Â¦œœ&À€ì÷ €lÀE"i©€‰4ÿ€f ÷ Ð•:‚‡:©Ï_8QtŽ€»*I~üXtŽ€»¯”Lè«Äq@è«D~@*´:2“@è«²2@ƒ¬€@q«°^@»«°r@*è«_@´:òs@›©ž@:©@ªR@*l©p…@Ñ«,x@Ñ«Bx@D©z@è«DL@*è«LL@è«De@(y:},˜¯” y:}*À RSX-11M V4À*&.0 BLTask: Partition: *L Status: Own: I/O: Dpri*r: Pri: Spri: Len:R0 =*˜ R1 = R2 = R3 *¾= R4 = R5 = PC = *ä PS = SP = $DSW = * Eflg = LUN File *0 LUN File--- ---- %V --- ----x*x †*´:2“l©p…‚ q«°^´:2“ l©p…‚"q«°^(†*ž $¼(3TH´:òsl©p…‚q«°^¼*ÄE FOLLOWING COMMANDS ARE AVAILABLE FORê THIS PAGE:Sö*ö-RATE=s TO CHANGE REPLOT RATE TO s SECONDS&*&'TASK=t TO DISPLAY HEADER FOR TASLK t P%P TO RETURNILLEGAL COMMANDlrrILLEGAL TASK NAME ††COMMAND > º*º÷%ÿÿ7 7 ±‡÷ ÁÀ&ƒ¬€ƒ¬€ƒ¬€ D©z$(è«²2*àP”þÀ ÁP”P”P”P”Á ÷ Ñ«,xÑ«Bx(:©*Ð•KÁÀ,”þá• ÁÀU”þá• è«D~,è«_"U*, ÁÀ””þá• ÁÀÛ”þá• è«Äq”è«De Û*RÁÀ”þá• ÁÀG”þá• ÷ è«DLè«LLG$xÁÂB †Ñ¥ ûñÕ€ÿÿ÷¡‡ªR»«°r›©ž¨QtŽ€»*P~]tŽ€»¯”Lè«VN@è«Ùf@*è«u~@ƒ¬€@è«øf@è«î~@è«=@*è«’@Ê«äy@è«€@è«@a©}@*è«0u@è«Xu@¹«WŒ@½©¶}@è«€u@*è«„…@è«¨u@è«Ðu@è«øu@é«@Q@*è«R@O« _@:©@è«Bx@è«O @*è«P @:©ÿ@è«@y@è«Ry@è«fa@*hhÐ@è«áy@[©(}@è«›:@ ©Bx@*è«:d@è«xd@:©Ï_@è«<@("¥–^(¥–`(/d@,D ¯” ¥–` /d@†þþ(†è«›: þè«’þè«Ùfþþ>:&þè«Ry þè«0u>: >:>:>(è«Xu>: è«€u>:è«¨u>0:>:>:(:è«Ðu> :è«øu>:è«xd@>:>:>:&>:è«øf >:è«@y>:P>¬>:>(è«>¬ è«O >:è«P >`: :H*HTask not in systemTask out of memorynNo task specifiedNone†*†÷ ÷ Ð‡ÅdþˆPÃ÷ † ‡&7dPƒ¬€Ê«äy*¬Hÿ ÕÕœ*Òœ œð56Ä7Xÿ0 Ý0lhhÐ*øÕ:ÕÕÕÕÕÕÕÕ&* <Í%†ÍCÄe>ÀE÷ *D† ÔÃ ó‡ ÿÿƒÀ'‡æúæ=ÿˆ÷O« _ÿÿ ©Bx ú*j÷ žþÀ Áú÷ À Á ÂR¤ è«< úa©} $è«<*rœÿÿÿÿòÕ€ÿÿÀ ö÷÷ dþÀ ÁÂè«u~" &*¶÷ ÀÁ ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öé«@Q è«u~*ÜÀ Á÷ Á÷ ÀÁ ÂR¤rœ* ƒ¬€[©(}ƒ¬€[©(} "è«€*ÿÿÿÿòÕ€ÿÿÀ öÅdÍ5÷"À ÁH÷dè«R" &H*(ÁnÃÒ Ã üP”þÀ(Á Âƒ¬€ n$ (è«R*NR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ ÁÐ Á ü÷ *tº÷ æ÷ w¤À ÁÒ Á ü÷ &è«R*šÀ(Á ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ A è«R& *À÷ A÷ ÷ÀÁ ÂR¤rœÿÿÿÿ[©(}[©(}è«:d è«:d*æòÕ€ÿÿÀ ö÷Åe'À ÁÒ Á è«áy *üÂzA÷ AÁE*÷ øA÷ òÀ&Á z( *2ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷5ü-÷è«áy&è«R*XÀ Á[ÃÒ Ã üP”þÀ(Á Â [$ (è«R*~R¤rœÿÿÿÿòÕ€ÿÿÀ öÀ ÁÐ Á ü÷ *¤º÷ Þ=÷ ²÷ î÷Žü.÷ ,C6ÄÁÄû$è«VN*ÊÁà wÀ Ò Ò ÷ Ð•. À è«î~ :©*ðÁ ‚R¤rœÿÿÿÿòÕ€ÿÿÀ ö÷ ÜÃ Ù *À ÁÐ Á ü÷ †÷ ˜‡Ä÷ ÷ è«:d(è«áy*<À&Á ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö‡÷ è«áy*bÀÁ ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö‡è«fa è«fa*ˆ÷ÀÁ ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öè«Bx è«Bx*®‡ÃÄÂÓúÊ ø‡æÄÀ"è«VN*ÔÁ ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ#Á *ú ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÎ ÜÖ‡ÄÀ * Á R¤rœÿÿÿÿòÕ€ÿÿÀ ö‡ÄÀ *FÁ R¤rœÿÿÿÿòÕ€ÿÿÀ ö‡À È 7 " *lžú7œúC÷ ÷ÀÁ ÂR¤rœ½©¶}è«fa "è«fa*’ÿÿÿÿòÕ€ÿÿÀ ö‡À È 7^ú7\úAÂ÷ *¸Ð•0Ð•0÷ÀÁ ÂR¤rœÿÿÿÿ:©Ï_è«Bx è«Bx*ÞòÕ€ÿÿÀ ö‡ÃÄÓÂÊ ù‡À ÷ & * ú AÕ ÷ Ð•.ÄÀÁ R¤rœ:© **ÿÿÿÿòÕ€ÿÿÀ ö‡À AÂ÷ ÄÀ :©Ï_*PÁ R¤rœÿÿÿÿòÕ€ÿÿÀ ö‡À ÷ –ù " *v÷ ’ùA• ÷ Ð•.ÄÀÁ R¤rœ:©ÿ *œÿÿÿÿòÕ€ÿÿÀ ö‡À ÷ Vù÷ RùA ÷ *ÂÐ•.ÄÀÁ R¤rœÿÿÿÿòÕ€ÿÿÀ :©ÿ *èö‡w ùwù7ù?w À ÁÒ Á ¹«WŒ *üÃæø÷ w·ÁÔøÂÒøDÃ½©¶}è«„…è«= (¥–^*4Å-ÓùÅ Í õ‡Â€”þà• À€*Z#Á ÂšøR¤rœÿÿÿÿòÕ€ÿÿÀ ö‡-EXER *€DNMSGNRPBLKOUTCKPCKRAST*¦DST-CHKCKDSEFFXDTIOCAFHLTABO*ÌSTPASTPSPNASPNWFRAWFRACP-PMDRE*òMPRVMCRSLVCLIRSTNSDCALROVNET* &æÃÁ€Ð• „”Áü€‘úÁÃ ó > ƒ„‡¾QtŽ€»*F~¤ÆtŽ€»¯”Ls©À@è«=@*q«°^@:©@´:¼p@¹«WŒ@è«„…@*O« _@:©ÿ@Ä«p…@[©(}@ ©Bx@*:©Ï_@(¥–_(¥–X(Ì¯” ¥–_Z ¥–XZ¥–XDirective error: FID = 0*0SYPû ÿ*Ä«p…´:¼pÄ«p…‚q«°^P&*Vw AA,ûñ5@÷ ÷ `¡ ¹«WŒ*|±‡þˆÖ‚Â5 — ‡Â' ‚Añ5 ÖO« _ ©Bx*¢€ñ5 A& ·Tÿ·Pÿ·œLÿ*È‡7 Bÿ7 @ÿ7 >ÿ‡¦Â2ÿÂ]0ÿÂ].ÿwÜ÷*îDÿ÷<ÿ÷ÿeæ0ÿˆ@‡æ8ÿˆ<‡÷‹îþEè«„… è«=08*ÁîþÁ]ðþÁ]îþ>Ð•[ÁÛþ ÷ Ð•,ÁÌþ :©*:÷ Ð•]ÁÀþ÷ Áºþ÷ Á´þ÷ à¥ ý:©[©(}[©(}"[©(}*`€ Ð•.Á¢þ÷ à¥ ý€ Ð•;Áþ ÷ ![©(}&:©Ï_*†Â”þÁ ÷ Ð•.Â(”þð•(ÿÿs©À:©ÿ($¬Á`þ ÷ Ð•,ÁTþ ÷ Ð•)‚‡:©Ï_:©Ï_´QtŽ€»*C~àQtŽ€»¯”L´:2“@ƒ¬€@*q«°^@<©P}@9©x‚@E©”@´:òs@*l©p…@D©z@í«À+@(Ì,6 ¯” Ì*ò *ò´:2“ l©p…‚q«°^ ´:2“"l©p…‚$q«°^*&d $´†( d´:òsl©p…‚q«°^´†*L COMMAND > RMD r- Illegal command - °°¸*¸ÁÀÑ¥,À û€ ÂCÃ À wE©” E©”E©”(E©”*Þ7ƒ é¡·Äÿ‡±‡÷÷ ÷ šæE©”E©” D©z(*ÿˆæ2ÿˆ÷†÷ ÿ¡‡÷ –ÿî‡÷ Dú†2†E©”E©”**÷ è÷ „ÿ†¡‡÷ .ø†÷ ‡ÁfÿÀ†P”&†*PþÀ Àån÷n°þ7®þæÿˆ±‡¦¡Ê¥ nn*vÊ¥`‚ÊÅ ‰’ ‚ ƒ óCŠw”±‡÷*œ”nþ÷îjþæÿˆ÷J\þ÷Xþæÿˆ÷Ê”J"(Ê*ÂJþ÷Fþæÿˆ÷J8þ÷4þæÿˆ÷ü&þJ &ü*è÷"þæÿˆ÷Jþ÷þæÿˆ÷(þ÷J$(*þýæÿˆ÷Jðý÷ìýæÿˆÉ¥RÉ¥T J*4¯É‹É¥= ù É‹¥@÷ Â‹ w <©P}(í«À+*Z‡É‹›É¥= ù É‹“@Á÷ ÁŒw"9©x‚*€Á÷ w¡‡3The following commƒ¬€9©x‚ƒ¬€%¦ands are available for this page:¥È*È/RATE=s to change replot rate to î's' secondsú*ú)TASK=t to display header for tas k 't'þ&& to returnè÷"þæÿˆ÷Jþ÷þæÿˆ÷(þ÷J$(*þýæÿˆ÷Jðý÷ìýæÿˆÉ¥RÉ¥T J*4¯É‹É¥= ù É‹¥@÷ Â‹ w <©P}(í«À+*Z‡É‹›É¥= ù É‹“@Á÷ ÁŒw"9©x‚*€Á÷ w¡‡3The following commƒ¬€9©x‚ƒ¬€%¦ands are available for this paŒrxQ¢_›c,<Á0ÀQ2¶zj†c àQ)Lc È_$Äi üX%Pp ]&j,àQ$V,È_$0,üX$¢,m (,R,,Î,í3ü,¥: ,íQŠ,Åy@,M~ l ,]$üã3È_-ìé3üX.Vð3]/d›:àQ8t›:È_/Ô¡:üX1 ¨:]3îLPm ®LP4LPí3zLPíQÐLPÅy&LPM~!ÖãQàQIêãQÈ_;ØéQüX<~ðQ]AÔZ«ÆêUqÀ#.ŒrÎŒrW!.ŒrþqžŒr…– `»yàQWœ»yÈ_MÁyüXM~Èy]OÄÚ}¬R `C~àQgÒC~È_Z^F~¤Æe¸I~üXZdP~]]œSŽm $SŽÄSŽí3èSŽ¥:¢SŽíQ€`Žm š`Ž|`Ží3V`Ž¥:Ü`ŽíQ0`ŽÅyè`ŽM~!ìm Rí3Ä¥:íQàM~"m †í32¥:PíQÅy ªM~#ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.QOŽÕ³*ŒrÎOŽÕ³¯”Lem'@ë¨D~@*Ê«äy@¹«Â‹@ë«z}@;F3 @ó«F@*&”@½©C @ë«øf@O« _@J©¼ @*e©ÄŠ@d&áe@rh !@Ñ«,x@Ñ«Bx@*hhÐ@Ñ«ýx@A«Äq@¤ªs@ ©Bx@*ah €@¡«@w@š©‰s@(Î€W¬ ¯”2 QtŽøÀ*ŒrW!tŽøÀ¯”L.«0 Hs©À@*•«xQ@´:2“@ÝªK@q«°^Hq«½^H*´:a @ü¨ð}H¹«Â‹@ë«z}@›©ÀH*ò«¬R@E©>@9©x‚@e©ÄŠ@Éª>rH*D©p…Hl©p…H«l4@6ª`;@Ä«p…H*¬<@a¬(@é«‹HD©z@[©(}@*ªò@{AyH{CyH$9L @s©ùe@*õ«€W@í«À+@©ª[X@G©tS@Ôªp…H*´:4F@¯ªà@(çr},b ©`;h\* ©;hj«hÞG«\}h>N©~hèA«ˆ,h4*•«ôeh¬u©h8«]hE©”h:L©Kh6*»«„h$»«h(å«ˆrh2Ìh^»«°r("»«°rh»«Ør(›©žhçr}(Þ çr} RMD - Segment '*' not foundRMD - Terminal type not yet*E supportedRMD - Terminal/page combinat*kion not yet supportedRMD - Page does n*‘ot existRMD - Terminal type not define*·dRMD - Allocated screen buffer too smaÝll for this deviceð*ðÚ}¬RŒrþqüX]*È_àQUqÀ..M..I..P..CMD*<HLHLHLHLHLHLHLHLHLHLHLHLHLHLHLHLHL*bHLHLHLHLHLHLHLHLHLHLHLHLHLHLHLATHLHLHL*ˆHLHLHLHLHLHLHLHLMDHLHLHLHLHLHLTHHLHLHL*®HLHLHLHLHLHLHLHL´:a *Ô ´:2“ ´:2“*ú*% O1 *´:2“O* € ™´:2“€´:2“&™*F ¸7 ´:2“¸&´:4F&l))Þ*ÞþˆÀ>W,TI,úÀ ªò*7*þ‡ææ!ÿˆ÷þÀð÷ †ë«z}"ð&¯ªà**Ãòw>÷ †w”÷òý¶ý÷ìý¼ýÀö÷ òò«¬R$ö(¯ªà*P†ÃøwÀÁ÷ C× wjÀü(ø©ª[Xa¬(ÝªK (ü*v÷ †Ãþwìæ¾ÿˆÀªý7lüðÿæ¯ªàþ¾*œŒÿˆ÷%5À0ŠŽÁŽÑ¥ À û)À Œ $9L s©Às©ÀŽŽ*Â'CÓ¥,Â û€à @ÒÀE À5@*èÀå À>7:ýw”4ýw’1ýÂÂ ÷,ý>*·*ýÀ47’ý7’ý7’ ý7” ý7’ýü7’üü7’ûü7’ 4*4úüÀ& ÷ wÂüÀ) ÷ w¸üÀ, ÷ &9©x‚)9©x‚$,*Zw°üÀ/ ÷ w¨üwªüÀ÷ †Ã 9©x‚/9©x‚"¯ªà(*€wìÀ÷ †ÃwÚÀ ÷ †Ã"w ¯ªà ¯ªà&"*¦È÷ ÷Œü÷S7 €üÀ÷ †Ã w•«xQE©> ¯ªà& *Ì¢ÿ E‡À÷ †ÃwŠææ!ÿˆ÷6ª`;¯ªà*òŒý÷ˆý÷"÷.ü÷÷"üü"í«À+ õ«€W«l4í«À+"*æ~ÿˆææÿˆÿ æ_ÿˆ÷ æaÿˆæ~¬< s©ùe*>ˆÿˆðûÿ ÷ Àæûðªúæ3ÿˆ÷¬Òûˆ¬<s©ùe&¬*dÀ÷ †Ãwúÿ ‡¶ûÀ´ûðxú ¯ªàG©tS*Šæ3ÿˆ7Æ€ÀEÿÀ%4À%1À%DÀE *°À5@Àå Àð>7>lû÷hûææ!>>*ÖÿˆæÿˆÀxæsÿˆ÷¬Hûææ!ÿˆæ¬*üÿˆÀXæsÿˆÀ,ûð5€ õ÷\ûææ!\*"ÿˆæÿˆÀ,æsÿˆ÷â÷^öúææ!E©>^*HÿˆæÿˆÀæsÿˆ÷ ÀÔúð˜ùæ3D©z*nÿˆó%À¼úð€ùÁÀ÷ Á÷ ð¥ [©(}&[©(}*”MÿÿË%È_æÖÿˆæ3ÿˆæîÿˆæ3ÿˆæ Öî*ºÿˆæ3ÿˆæÿˆæ3ÿˆæ6ÿˆæ3ÿˆæN6(N*àÿˆæ3ÿˆw æ$Þ ‡6 À,ùÁ¬ö‡Á¬¹«Â‹$*ó‚ÆeBEÅì¡ÅŠÂlû‡Ã„Ã$e©ÄŠ*,ÅæœÎìæf&D¡Þ „…ƒÅlRÎŠ—£ÿÿðÖæ±LQtŽ€»*Œr…–tŽ€»¯”L{'µWH{'äH*(>ƒ¬Ùfh(ƒ¬g'h4ƒ¬€h$ƒ¬áLh**ƒ¬ÜYh,ƒ¬äh2ƒ¬wah8ƒ¬fah6ÌªÞh ¯” *SY ÿÿ&ÿALL >QOŽÑ³*Ú}¬ROŽÑ³¯”Ls©À@q«°^@*½©C @u©@ÌwË-@l©p…@”}0€@*$939@å«ˆr@”}Hw@(å8€W,Üò«¬RhZ¯” å8€W*{…9€9€9€9€$ÌwË-l©p…‚ q«°^‚”}Hw‚”}0€*&9€LPSŽLP`ŽLPJwLPLPLPLP`Ž`Ž`Ž`Ž*L`Ž`ŽV†W†X†Y†Z†æÿˆ×- À¯ÿ.÷LPs©À$939*r÷‹¡ÿ÷‡Àð5#÷5ð‹å«ˆrå«ˆru©$½©C *˜&œ&ð5 ÷LP‡ð5 ÷å«ˆr"¾‡÷SŽ‡À7‡÷”M‡å«ˆrå«ˆrå«ˆrå«ˆrLQBÆ*ŒrþqBÆ¯”L:©(}@s©À@* ©`;@´:2“@e©À@K©òy@q«°^@*»«°r@‚¬h8@›©ž@Hš¸`@ªòy@*$9Î…@l©p…@a¬(@9©òy@L©K@*ª¬h8@ˆ ¸`@©ª[X@(ÙZŠ,@"ªRh$D©zhRs©ùehŒ¯” ÙZŠ*À÷( ´:2“l©p…‚q«°^"ªòy(q«°^*.âÿ7æÿ÷Þÿæÿˆ¡ææ)ÿˆ‡±‡Àªòyq«°^*T÷´ÿ7¸ÿ÷°ÿæÿˆÀÁ †&K©òy q«°^K©òy »«°r$›©ž*zÐ• ûææ)ÿˆ‡Åw„ÿÀ ÁW!q«°^ ªòy&ªòy* ÷ \U”À ø7 Pþ7 JþÂ÷Fþ·@þ»«°r ©ª[X*Æ€Âm€ yƒÐµ€ûÀ CàÃm þÃíþ÷‹BÃa¬($9©òy*ì?‚ÃíþÃmÄ÷&f¦ÀeÁ 9©òy‚¬h8Hš¸`e©À&9©òy*Â ÷ ôÃÜýÃmÄ÷Àe& :©(}9©òyª¬h8ˆ ¸` e©À(9©òy*8ÁÂ ÷ ‚€ôÃÄW!÷ :©(}9©òy9©òy 9©òy$*^¤•Ã ø÷–ý–ýÃŽýÃíŒýW!÷ ‚Õ• *„ · xýÃ õCàW!÷ fU”Ã øÈÅ€W!*ª÷ R”€ ƒÈµ€ó…õ¥ ÿÿW! &*Ð÷ 0Õ• · $ý÷ &ýwÚþÀ ÁW!ªòy"ªòy&*ö÷ U”À øwÅå×-wþæÿˆL©K ©`;&(†×-æ1ÿˆô÷‹Öý€÷Å‡s©À $9Î… ©`; L©K$hQBÆ*ÔZ«Æ¯”L(ò«¬Rh¯ªàh ¯” ¡‡âQOŽ*,OŽ¯”L(¬P*e©ÀhK©òyh‚¬h8hLHš¸`hHªòyh*«l4ha¬(h9©òyh(ª¬h8hNˆ ¸`hJ©ª[Xh¯” HHQOŽÏ³*LPOŽÏ³¯”L(¬) ¯” P ((¸QOŽ*SŽOŽ¯”L(¬P ¯” H ((HH ÖQOŽ*`ŽOŽ¯”L›©À@(¬P¯” P[H‚ ›©À[H[J‚›©À‚›©À(( [;H‚›©ÀHH®QOŽ*OŽ¯”L›©À@(¬)¯” PH‚ ›©À HJ‚›©À‚›©À((ÎQOŽ*OŽ¯”L›©À@(¬P¯” PH‚ ›©À HJ‚›©À‚›©À( (Y‚›©ÀHH ZQOŽ*,,OŽ¯”L(xQ¬Éªdh¯”†QtŽ€»*,m tŽ€»¯”L(úü¨fah*ü¨²2hü¨u~hü¨Whúü¨µWh ü¨<hü¨y:h¯”vQtŽ€»*LPm tŽ€»¯”L(ú¯” * 0:!!*&!! ! *L !!! *r !!!*˜!!!!*¾!!!ä!!vQtŽ€»*SŽm tŽ€»¯”L(ú¯” * 0:!!*&!! ! *L !!! *r !!!*˜!!!!*¾!ävQtŽ€»*`Žm tŽ€»¯”L(ú¯” * 0:!!*&!! ! *L !!! *r !!!*˜!!!!*¾!!!ä!!vQtŽ€»*m tŽ€»¯”L(ú¯” * 0:!!*&!! ! *L !!!*r*˜*¾ävQtŽ€»*m tŽ€»¯”L(ú¯” * 0:!!*&!! ! *L !!! *r !!!*˜!!!!*¾!!!ä!!~QOŽ*,í3OŽ¯”L(xQ¬ *ªìhªÁhª¿hªÀhªhh ¯”nQOŽ*LPí3OŽ¯”L(xQ¬ ¯” xQ5 nQOŽ*SŽí3OŽ¯”L(xQ¬ ¯” xQ5nQOŽ*`Ží3OŽ¯”L(xQ¬ ¯” xQ5nQOŽ*í3OŽ¯”L(xQ¬ ¯” xQ5 nQOŽ*í3OŽ¯”L(xQ¬ ¯” xQ5Q>Æ*,¥:>Æ¯”L(Ä7ª<h*7ª²2h7ª0h7ª8h7ªxh¬7ª¸8h(*7ªÀ8h 7ª¹’hp7ªÀ’h7ªÄ’hd7ª9;h@*7ª@;h7ªD;h47ª)hX7ª0h7ª4hL*7ªÀh7ªËh”7ª×h 7ªu~h7ª0Kh| ¯”:Q>Æ*SŽ¥:>Æ¯”L(Ä¯” *4>!!,, *& *L! !!!!! ! !!!, ,,,,,*r , ,,,7 77777 7 777*˜ ¾:Q>Æ*`Ž¥:>Æ¯”L(Ä¯” *:D!!,,?? *& *L! !!!!!! ! !!!!, ,,,,,,*r , ,,,,7 777777 7 7777? ?*˜????? ? ????K KKKKKK K K ¾KKK:Q>Æ*¥:>Æ¯”L(Ä¯” *:D!!,,?? *& *L!! !! !!,, ,,*r ,,77 77 77??*˜ ?? ??KK KK KK ¾:Q>Æ*¥:>Æ¯”L(Ä¯” *:D!!,,?? *& *L! !!!!!! ! !!!!, ,,,,,,*r , ,,,,7 777777 7 7777? ?*˜????? ? ????K KKKKKK K K ¾KKKFQtŽÈ*,íQtŽÈ¯”L(xQ¬F*Ìªè`h4Ìªî`h6Ìªë`h8ÌªCyh ÌªHyh*ÌªWyh"ÌªýxhÌªÒyhÌª"hBÌª""hD*Ìªx:h.Ìª~:h0Ìª{:h2Ìª>Sh:Ìª?Sh<*Ìª6hÌªãehÌªèehÌª÷ehÌªØfh>*ÌªÜfh@Ìªu~hÌª²2hÌªU(h&Ìª€h"Ìª€hÌªX(h$Ìª<h ¯”°QtŽÈ*LPíQtŽÈ¯”L(xQ¬F ¯” xQ*"),:D&&$&&&22 FEEE°QtŽÈ*SŽíQtŽÈ¯”L(xQ¬F ¯” xQ*".8#$&(4 BABB°QtŽÈ*`ŽíQtŽÈ¯”L(xQ¬F ¯” xQ*"),:D&&$&&&22 FEEE°QtŽÈ*íQtŽÈ¯”L(xQ¬F ¯” xQ*"),:D#$&(4&2 FE°QtŽÈ*íQtŽÈ¯”L(xQ¬F ¯” xQ*"),:D&&$&&&22 FEEEæQXŽ*,ÅyXŽ¯”L(^Ë«‰h<*Ë«zh6Ë«‡h8Ë«ˆh:Ë«·kh>Ë«Çkh@*Ë«ÈkhBË«ÉkhDË«“yhË«˜yhË«;"h*Ë«@"hË«£hNË«£hPË«£hRË«£hT*Ë«!h\Ë«hVË«hXË« hZË«{h,*Ë«€h*Ë«‹Th(Ë«Th&Ë«UhFË«_hH*Ë«`hJË«ahLË«ãhË«èhË«h*Ë«hË«ã~hË«è~h Ë«u~hË«²2h*Ë«¿2h.Ë«À2h0Ë«Á2h2Ë«Â2h4Ë«Óh*Ë«ØhË«Ûhh Ë«àhhË«<hË«ih$Ë«ih"¯”ÂQXŽ*LPÅyXŽ¯”L(^¯” *,6,<,< *& , E,E-;(9(9(L9(9(9ÂQXŽ*`ŽÅyXŽ¯”L(^¯” *,6,<,< *& , E,E-;(9(9(L9(9(9ÂQXŽ*ÅyXŽ¯”L(^¯” *,6,<,< *& , E,E-;(9(9(L9(9(9jQtŽ€»*,M~tŽ€»¯”L(¦è«Äqh*è«D~hè«VNh>è«Ùfh è«u~hè«²2h*è«øfh4è«’hè«€hè«h8è«0uh&*è«Xuh(è«€uh*è«¨uh,è«Ðuh.è«øuh0*è«Rhè«_h è«Bxh$è«O h:è«P h<*è«@yh6è«Ryh"è«fahè«áyhè«›:h*è«:dhè«DLhè«LLhè«xdh2è«5Mh¦è«<hè«Deh¯”QtŽ€»*LPM~tŽ€»¯”L(¦¯” *0: ) *5@*& -:G /<C *L*r(, ( ,(,(,(,(,(,(,(,(˜,(,(,(,QtŽ€»*`ŽM~tŽ€»¯”L(¦¯” *0: ) *5@*& -:G /<C *L*r(, ( ,(,(,(,(,(,(,(,(˜,(,(,(,QtŽ€»*M~tŽ€»¯”L(¦¯” *0:) *5@*& -:G /<C*L*r˜QtŽ€»*M~tŽ€»¯”L(¦¯” *0: ) *5@*& -:G /<C *L*r(, ( ,(,(,(,(,(,(,(,(˜,(,(,(,QOŽ*UqÀOŽ¯”LÝªK@Éªd@*»«°r@a¬(@öª³K@(UqÀ,8•«xQh¯” UqÀ*ÂÃ ÁÔÁ À÷ ÀÔÀ `Áe öª³KÉªda¬(ÝªK(»«°r&sþÿÂ î7 ‡ƒ ùöª³KrQOŽ*,È_OŽ¯”L(%¦S,*E©>hõ«€Whí«À+höª³Kh¯”ZQOŽ*,üXOŽ¯”L(y:},6ª`;h¯”ZQOŽ* ,]OŽ¯”L(/d@,¬<h¯”nQOŽ*,àQOŽ¯”L(Ì,G©tSh¯” ÌŒQOŽÎ³*c È_OŽÎ³¯”L(%¦S, ü¨²h¯” %¦S$} ÌÿÿÔÿ ‡QtŽ€»*i üXtŽ€»¯”Lü¨fa@ü¨²2@*»«°r@›©ž@:©@ªR@Ñ«,x@*Ñ«Bx@D©z@ƒ¬wa@ü¨y:@(y:},Ö¯” y:}*LRSX-11M V4.0 BL Name L*&Length TI Pri I/O Status flags*L÷ ÁÀP”þÀ ÁP”P”P”P”ÁD©z ü¨²2Ñ«,x$Ñ«Bx*r ÷ Ð•KÀÐ•OÐ•WÐ•NÐ•=Á:©ü¨fa*˜P”P”P”P”P”P”ÁÀP”þà• ÷ Áƒ¬waü¨y:$ªR(»«°r¾ÂB †Ñ¥ ûñÕ€ÿÿ÷‡›©žâQtŽ€»*p ]tŽ€»¯”L:©(}@ƒ¬Ùf@*ü¨²@ë¨D~@a©}@ü¨u~@»«°r@*é«@Q@ü¨W@ü¨µW@ü¨<@:©@*›©ž@i©€‰@[©(}@:©Ï_@ƒ¬fa@"(¶^œw/d@,ž¯” /d@Â Âjj¸ ¸Â*ÂÄÁ÷ Á ü÷ ÷ „‡Åþˆ\Äü¨² $\(ë¨D~*è÷ô--ô*7&‚ƒ¬faƒ¬faƒ¬Ùf*&•ƒÕ€ÀìÁ÷ Àl"i©€‰*4ŠW!j*ô*Çj*Z ‡ælæ=ÿˆ÷÷ ÿÀ|Ál÷ lü¨< |$l(a©}*€À Á|ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷ |ü¨<&ü¨u~*¦÷ ÖþÀ|ÁrÂ÷ ÀÁ|ÂR¤|ré«@Q |$ü¨u~*ÌrœÿÿÿÿòÕ€ÿÿÀ öÅÄÍ!†ü¨µW"ü¨W*òÄ% ƒÄ% †Ô¥ ÷ô• ÿÿôÕ€ÿÿð‡À|›©ž»«°r(|*A÷ A÷ ÀÁ|ÂR¤rœÿÿÿÿòÕ[©(}[©(}|*>€ÿÿÀ öÀ|Ò Ò Ò AÂ÷ Ð•0|$:©Ï_*dÐ•0ÀÁ|ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ|*Š|P•P•Ò Ò AÕÂ÷ ÀÁ|:©(}*°|ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ|Ò Ò ||*Ö AÕ ÷ Ð•.ÀÁ|ÂR¤rœÿÿÿÿ:©|*üòÕ€ÿÿÀ öÀ|Ò Ò AÕ ÷ Ð•.|$:©*"ÀÁ|ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö… À|*H|ÁÒ Á üÂšA÷ AÁE*÷ |š*nA÷ À&Á|ÂR¤rœÿÿÿÿòÕ€ÿÿÀ |*”öwJþ-EXE RDN MSG NRP BLK *º OUT CKP CKR AST DST -C*àHK CKD SEF FXD TIO CAF HLT* ABO STPA STP SPNA SPN WFRA *, WFR ACP -PMD REM PRV MCR S*RLV CLI RST NSD CAL ROV NET*x &æÃ„”Áü€‘úÁÃ ÷ƒ„‡ QOŽÎ³*c àQOŽÎ³¯”L:©(}@ƒ¬Ùf@*´:2“@ƒ¬€@G©P}@q«°^@<©P}@*ë«z}@N©~@A«ˆ,@9©x‚@E©”@*«]@´:òs@l©p…@L©K@D©z@*í«À+@ƒ¬wa@ƒ¬fa@(Ì,Ì ¯” Ì*ò *ò´:2“ l©p…‚q«°^ ´:2“"l©p…‚$q«°^*&d $´†( d´:òsl©p…‚q«°^´†*L COMMAND > RMD r- Illegal command - °°¸*¸ÁÀÑ¥,À û€ ÂCÃ À wE©” E©”E©”(E©”*Þ7ƒ é¡·Äÿ‡±‡÷÷ ÷ šæE©”E©” D©z(*ÿˆæ2ÿˆ÷†÷ ÿ¡‡÷ –ÿî‡÷ Dú†2†E©”E©”**÷ è÷ „ÿ†¡‡÷ .ø†÷ ‡ÁfÿÀ†P”&†*PþÀ Àån÷n°þ7®þæÿˆ±‡¦¡Ê¥ nn*vÊ¥`‚ÊÅ ‰’ ‚ ƒ óCŠw¨±‡÷*œ²nþ÷jþæÿˆ÷J\þ÷Xþæÿˆ÷è²J"(è*ÂJþ÷Fþæÿˆ÷8þ÷>4þæÿˆ÷R&þ &R*è÷d"þæÿˆ÷’þ÷’þæÿˆ÷Jþ÷’$J*þýæÿˆ÷¾ðý÷šìýæÿˆ÷JÞý÷ ¾"J*4Úýæÿˆ‡É¥R É¥PÉ¥T(É¥OMŸÉ‹*ZÉ¥= ù É‹•@÷ Â‹w‡É‹‹<©P}"í«À+*€É¥= ù É‹ƒ@÷ Â‹)w‡É‹$É¥<©P} ƒ¬Ùf*¦= ù É‹@Á÷ †ÁwÁ9©x‚&ƒ¬€*Ì÷ †È‹ w÷TH÷‡w¦þÉ‹"9©x‚ƒ¬€A«ˆ,«] L©K*òüÑ¥=ûDÀe÷ Â¥:=7 ¢ýþˆF ÝG©P}$F*ÀÓÀ%TIÁÀ7‡÷ ‡·ë«z}ƒ¬fa"N©~(ƒ¬fa*>‡· ný‡÷hý÷ ÷ ÷ Å•ƒ¬waƒ¬wa"ƒ¬wa&ƒ¬wa*d•÷%TI ÷ @Â÷ Í•:‡¥A ƒ¬waG©P}:©(}*Š°¥L¥Lª7 ÷AL÷L ÷ ‡ƒ¬faƒ¬wa ƒ¬wa&ƒ¬wa*°3The following commands are availableÖ for this page:æ*æ/RATE=s to change replot rate to 's' seconds©*6PRI=p to change maximum priorit*>y displayed to 'p'=OWN=ddn: to chan*dge owning terminal to ddn: ("ALL" to r Šeset)*)TASK=t to display header for tas ¶k 't'¬¼¼ to returnjQOŽ*ã3È_OŽ¯”L(%¦S, ¯” %¦S QBÆ*é3üXBÆ¯”Lªì@»«°r@*›©ž@ª¿@a¬(@D©z@ªh@(y:},¼¯” y:}*@Use the following keys to switch dis@*&play pages:A - Active Task DisplayH *L- Help Display (this page)M - Memory *rDisplayT - Task Header Display *˜lets you enter a setup command if any *¾setup commands are available for*ä that display page replots the* current display page or exits RMD@*@÷ ÄÁR”É‹ý ÄmW 2ö‡Ä"D©z ªha¬("2(ª¿*fÁ2R”É‹ý ÄmW ’ö‡ÄÁ’2a¬(’ ªì&’*ŒR”É‹ý ÄmW ?ö‡ÁÂB †Ñ¥ ûñÕa¬(?»«°r›©ž²€ÿÿ÷¡‡pQOŽ*ð3]OŽ¯”L(/d@, ¯” /d@‡6Q¬V€»*›:È_¬V€»¯”LwLÀH‘KKH*”’H#"KH$"KH&÷&ÀHc(u~H,*ªNH#"ÀH%ÞÖKH.›: ZHc(X€H(*´H&KH *)H"ÀH'(Þ<h¯” *b*&*L*r*˜*¾*ä äQ>Æ*¡:üX>Æ¯”L:©@7ª²2@*N©~@7ª0@»«°r@7ªx@›©ž@*Ñ«,x@D©z@»«„@{Ay@ÌªÞ@7ª0K@(D¯” *ÒRSX-11M V4.0 BL DeviceNameI/O Ò*&CountI/OPer SecCylindersPer I/OWo*LrdsPer SecErrorCount/limitlastavgrsofthard~~",08B(7ª²2 ",08BJPX^jjjj(JPX ^7ª0Kjjjj¤jjoooooo(jjo ooooo7ªx¸ssssssxxxx*sss sssxxxx*Ìxx÷ þˆ®ÀÁÂR”À ýÄÅ$xxD©z®Ñ«,x&ÌªÞ*ò Ý÷ ‡‚,‚ú´ÄeN©~*Å ìÂ÷ æÁÀñ3Þ 9‡õ5@»«„ÌªÞ*>úõ5öÂõ5 ðw!íw! êw!ÌªÞ$ÌªÞ *dçw!äw!áw!"ÞqÉ1 ñœ"ÌªÞ ÌªÞÌªÞÌªÞ"*ŠÅì± ÅìûÁeÀ ÆÞ ‡Æe‡À${Ay*°~Cü“”þó• ÿÿöCü“”þ~*Öó• ÿÿöCü“”þó• ÿÿöÅÃ(7ª0*üÄÀ ô “ ÷ È•:ÄeÌªÞ :©&"Å íÁÂB †Ñ¥ ûñÕ€ÿÿ÷¡‡ »«°r›©ž† QXŽ*¨:]XŽ¯”LwLÀ@:©(}@*ê¨u~@7ª<@ÝªK@‘KK@T"_M@*”’@#"K@3{‚@¥‡Ìq@a©}@*¥‡Ãq@Ü{_M@Þ<@"K@ë«øf@*é«@Q@¥‡{s@¥‡„s@d©°;@7ª¸8@*c(u~@ªN@#"À@ÞÖK@›: Z@*i©€‰@´@7ª×@7ªË@š©a'@*7ªu~@"À@ÌªÞ@©‡8^@( ¯” Z Z8%8Offline Dismounted Z*ZþˆÚ÷¤ÿ÷þÿœÿÅÀÁòµ Ú ê¨u~ê¨u~þÿÌªÞÞ<(€òµ@!0Š±±±œ±œ*©‡8^›: Z©‡8^›: Z"¥‡„s$#"K¤±œ±œÁe&¥‡{s#"À ¥‡Ìq"K¥‡Ãq"À*¶ÀeÅ Û‡ð•1 óð•1 íÁÞÖKc(u~$c(u~*Ü(ÿÂ&ÿÂíÿÁíÿÀ€`AÀ÷ wÿë«øf ë«øf$d©°;*·ÿææ=ÿˆ÷÷ ÿÀ&Á÷ 7ª< &$(a©}*(À Á&ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷ &7ª<&7ªu~*N÷ ØþÀ&ÁÂ÷ ÀÁ&ÂR¤&é«@Q &$7ªu~*trœÿÿÿÿòÕ€ÿÿÀ ö Å÷‚þX&Þ<"7ª¸8(šÀ€eðBð¥ð¥*À&AB$ ÌªÞÌªÞÌªÞ &$›: Z*¾÷ ÆÈ•.ÀÁ&ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ›: Z&*äö/ÀÁ8ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ8* ÁCÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀÁN C(N*0ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öY&À€eð7ªË$VCð¥?ð¥;ð5(ÌªÞÌªÞÌªÞÌªÞ"Ü{_M*v3÷µ/÷• žýu‡÷•*ý÷• ‹ý 3{‚ T"_Mš©a'#"À#"K*œÀ( AÝÂ ÷ Ð•/ AÝÂ ÷ À(#"À:©(}#"K&:©(}*Â Á&ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ ÁN &(N*èÂR¤rœÿÿÿÿòÕ€ÿÿÀ öY&À€eð7ª×$Cð¥?ð¥;ð5(ÌªÞÌªÞÌªÞÌªÞ"Ü{_M*.3÷µ/÷• æüu‡÷•*Øü÷• Óü 3{‚ T"_Mš©a'"À"K*TÀ( AÝÂ ÷ Ð•/ AÝÂ ÷ À("À:©(}#"K&:©(}*z Á&ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ ÁN &(N* ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö&À€eð‹õ $ÌªÞ*ÆÄeÅe÷ <üw´ýÀÁqq c(u~ÞÖK Þ<$›: Z&wLÀìqq&›: ZwLÀ ”’ªN”’úqqÁe&ªN´ ‘KK´‘KK* À ê÷òûìû÷îûèû‡BíAãÀÞÖK*0÷ &À&÷ JÈ.€Ád÷ @Á÷ d©°;& ÝªK*VÀ1Â ÷ ‡À&Á Ð• Á üÐ•0i©€‰ 1:©(}&*|Ð•.Ð•0Ð•0‡fÀ'÷ &À'÷ &d©°;&d©°;*¢@Ð• Ð• Â ÷ ÷ ÷ ð¥ ÿÿ:©(}*Èð•0ÿÿ…‡ŽÂ "ð¥ ÿÿ Á Ð• îÐ• Ð• Ð• ‡Â &÷ ‡:©(}dQOŽ*›:àQOŽ¯”L´:2“@G©P}@*q«°^@<©P}@N©~@Þ<@E©”@*c(u~@´:òs@l©p…@ÞÖK@D©z@*í«À+@ÌªÞ@(Ì,¢¯” Ì*ò *ò´:2“ l©p…‚q«°^ ´:2“"l©p…‚$q«°^*&d $´†( d´:òsl©p…‚q«°^´†*L COMMAND > RMD r- Illegal command - °°¸*¸ÁÀÑ¥,À û€ ÂCÃ À wE©” E©”E©”(E©”*Þ7ƒ é¡·Äÿ‡±‡÷÷ ÷ šæE©”E©” D©z(*ÿˆæ2ÿˆ÷†÷ ÿ¡‡÷ –ÿî‡÷ Dú†2†E©”E©”**÷ è÷ „ÿ†¡‡÷ .ø†÷ ‡ÁfÿÀ†P”&†*PþÀ Àån÷n°þ7®þæÿˆ±‡¦¡Ê¥ nn*vÊ¥`‚ÊÅ ‰’ ‚ ƒ óCŠw‚±‡÷*œônþ÷Njþæÿˆ÷J\þ÷Xþæÿˆ÷*ôJ"(**ÂJþ÷`Fþæÿˆ÷b8þ÷†4þæÿˆ÷J&þb &J*è÷"þæÿˆ÷”þ÷”þæÿˆ÷Jþ÷”$J*þýæÿˆÉ¥DÉ¥RSwnÿÉ‹µÉ¥0‚É¥ *45‡ñ¥=« ñE”ÅEøÿD„ Àe÷ (G©P}*ZÂ¥:›Á%ÿ˜‡7 Hþþˆ¢ ÝÀÓ÷ ‡‚,¢$N©~*€‚úò5@ò5‡· þ‡÷þ*¦#fWqÅe••÷ U…Wq5 ‡É‹"ÌªÞG©P} ÞÖK$Þ<c(u~ *ÌÉ¥= ù É‹@÷ Âw‡w¤þ<©P}"í«À+*ò3The following commands are available for this page:(*(5DEVICEn=ddn: to change device entry N'n' (0-3) to ddn:þ`*`/RATE=s to change replot rate to †'s' seconds’’ to return¦QOŽÒ³*ãQÈ_OŽÒ³¯”LÌª>S@Ìª?S@*Ñ«Bx@i©€‰@(%¦S,hÌªh*ÌªÎh ÌªBxhÌªF’hÌªL’hÌªT’h*Ìª¾’hÌªÈ’hÌª.ShÌª˜ähÌª[qh ÌªMh Ìªˆh¯” %¦S$#ÿÿ * ÀÀmw †@ÁÔû÷ € À-Èû†ÀíÂûÌª>S Ìª?SÑ«Bxi©€‰&FÀ Àm¨¡‡÷÷À Àm¸¡‡±‡Ìª?SÌª>SÌª>S˜QOŽÔ³*éQüXOŽÔ³¯”LÌªÎ@ÌªBx@*Ìªè`@Ìªýx@ÌªÒy@N©~@Ìª"@*»«°r@O« _@Ìªx:@ë«øf@Ìª.S@*Ìª>S@Ìª?S@:©@›©ž@Ìª˜ä@*Ìª[q@Ìªèe@Ñ«Bx@Ñ«,x@i©€‰@*a¬(@ÌªØf@ÌªÜf@D©z@Ñ«ýx@*Ìª²2@A«Äq@[©(}@ÌªM@Ìªˆ@*»«„@{Ay@Ìª€@ÌªX(@ÌªÞ@*(¶^œwy:},äÉ2Úh¯” y:}*LRSX-11M V4.0 BL UP POOL=SEL%&CPOOL=TASK=FREE=IN:OUT:PARSERRSEQH*HD÷ þˆhÀÁÂR”À ý÷Á" D©zhÑ«,x$Ñ«Bx&ÌªBxnwÁÂ*O« _@ÿ ÌªÎÌªÎ *zÃ‘‘ÉDò5 ÉCò5€A«Äq* ÉT² ÉSÑ‘‚Ã â ÄÅ$ÌªÞ*ÆÓ Ý÷ ‡‚,‚ú´ÄeÅ N©~*ììæÁÀñ+Þ 1‡õ5@úõ5»«„ÌªÞ*öõ5 òw!ïw! ìw!éw!æq"ÌªÞÌªÞ ÌªÞ"ÌªÞ*8É1 ñœÅì± ÅìûÁeÀ Î*^Þ ‡Æe‡ÂÀÁR”À ýÂ Á {AyÌª²2$Ìªýx*„É‹ Ò•(ÀR”À ýÊ•)À Á¡Ñ«ýxÌªÒy$ÌªBx*ª ÷ È•KÂÀÁR”À ý:©Ìªèe"*ÐÂÀÁ1R”À ýÂÀÁ6R”À ÌªX(1Ìªx:$6*öýÂÀÁ9R”À ýÂÀÁ,R”Ìªè`9Ìª€&,*À ýÁÁåÁEw Ã€ BÄÄm a¬(Ìª.SÌª>S(a¬(*BÓ•*Ô•-Â úÃ€ BÄÄíÓ•*Ô•-Â Ìª?Sa¬(*húÀ @ÁÃC`Ã À÷ ·ÂÂÂ·ÌªBxi©€‰ Ìª[q*Ž¸ý ÃÅÅmÀ¡ ÷ Ìª>SÌª.S(:©*´ÃeÄmŒýC!ï‚ÃÅÅmÀ¡Ìª?SÌª.S*Ú ÷ ÃeÄm^ýC!ï‚ÂÁ=ÀR”À :©ÌªØf =*ýÂÁAÀR”À ýÁÁmÉ•EÌª"AÌª>S"a¬(*&ÁÁíÉ•EÁ÷ ‡€ÀmÈ•PÀí&Ìª?Sa¬(ÌªÎÌªM a¬(*LÈ•PÅ"Ä@÷ ÷ 7ÚüÐ•&a¬(ÌªÜfÌªÎ [©(}"[©(}*r:ÐÒüÅmî÷ ë‡€ÀmÈºüåÀíÈa¬(ÌªMa¬(&a¬(*˜°üàÁWpwÁÂB †Ñ¥ ûñÕ€ ë«øfÌªˆ»«°r›©ž*¾ÿÿ÷ÀJÁ À ýÁÁ@Á`w¡‡ÌªÎ a¬($Ìª˜äÔQOŽ×³*ðQ]OŽ×³¯”LÌªÎ@em'@*ÌªBx@Ìªë`@Ìªî`@ë«z}@a©}@*ó«F@½©C @ÌªL’@ÌªF’@ÌªT’@*Ìª""@é«@Q@Ìª~:@Ìª{:@Ìª.S@*•«ôe@J©¼ @Ìª>S@Ìª?S@:©@*Ìª˜ä@Ñ«Bx@Ìªãe@a¬(@L©K@*<©@Ìª÷e@hhÐ@Ìªu~@¤ªs@*[©(}@ÌªM@A«Äq@ah €@Ìª€@*ÌªU(@¡«@w@š©‰s@Ìª<@ÌªÞ@"(¶^œw/d@,& ¯” /d@ 2 2(*(÷-÷‡þˆ*ÀÁ*Ñ«BxÌªBx•«ôeL©K *(ÌªÎ *N À ýÅÀÀ7 ÷ p†*ú ÌªÎ ¡«@wë«z}ë«z}*t ÍÿÿÀ ÀÄ ÌªÎ "ÌªÎ &J©¼ *š4"†0m° ôÁÁ]7ÌªT’"ÌªF’(ÌªL’(À777$†7þÿ7$†7þÿ7$&ÌªT’ ÌªF’ÌªL’ÌªL’ÌªT’$ÌªT’*äƒ7þÿÁÂÀD*ô5@&ôµ"ÌªF’ÌªF’ÌªÞÌªÎ * ôµ@ôµ ñ•ÿÿÒ.2Š*0ÿÿÒ01ŠÿÿÁeÀ Üñ•ÿÿñ•ÿÿ’$Áe*VÀ ÏÀ ÁèÿAññ5€ÌªÎ. ó«Fèÿ&|÷w ôB&ñ5· ·lè· ¤ªsÌªÎ. ÌªÎ2ž·lâ÷ ÌªÎ0 ÌªÎ4š©‰s"¬Äôû7ÄÅ&ÌªÎ6A«ÄqÌªÎ8A«Äq*Êwôù4½õ7 Bþô5€&ÌªÎ: *ð]Õ!!@ ‚ah €*••Õ++1ô5 7øýÄîýÈ*<ô5€Õô5Õ Õ()ÕÕ*bÕ<>ó5€õ[]þÿó5õU€þÿô5*ˆõU€þÿ÷ €ÀíÀmÌªMa¬("a¬(*®mÁ ÷ €ÀíÀmW!†÷Xý¯w$ÌªMa¬(a¬(ÌªÎþ *ÔöþÕÿÿ‡ð5ÿ÷!ðð5Àð5*úð5÷5€8<&<=½©C em'em'"hhÐ* ¡‡±‡ææ=ÿˆ÷÷ ÎüÀÁÌª<&*F÷ À ÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ öa©}Ìª<*l÷÷ ”üÀÁÂ÷ ÀÁÂÌªu~é«@Q&*’R¤rœÿÿÿÿòÕ€ÿÿÀ öÅ ÷• |ü÷• Ìªu~$¸wüô4ÀÐhüÐeüõ%ÿÿ õ%þÿÌª€ÌªÎ ØA÷ A(ÌªÎ ÌªÎ [©(}*æ÷ Ð*IÐDLÐE*Ð*OÐFFÐL*ÀÌªÎ [©(}*ÁR¤rœÿÿÿÿòÕ€ÿÿÀ öä÷ŠüÅå Ìª€*2Ã÷5À ÁÑ À üÀÁ ÷ Ìªãe"ÌªÎ*XÐ•.Ð•:Á ÷ Ð•.Ð•:Á ÷ &:©ÌªÎ:©$ÌªÎ*~È•.ÀÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö:©Ìªãe*¤÷5À ÁÑ À üÀÁ ÷ Ìª÷e ÌªL’(:©*ÊÐ•.Ð•:Á ÷ Ð•.Ð•:Á ÷ ÌªT’:©"ÌªF’(:©*ðÈ•.ÀÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÅÌª÷e*ÄÁÀ Ñ À üôFõþÿ3ÀÌªU("ÌªÞþÿ(&<PúÿAüÿÁe0PÐ•:CýÿÃ{Xbžv*ÌªÞúÿ ÌªÞüÿÌªÞýÿX b"ž$v*^„’Áaa ÷ È•.Ð•DÐ•MÈ•O „’ ÌªÎ <©*„Ð•FÐ•OÐ•RÐ•OÐ•FÐ•LÀÁ$(ÌªU(*ªR¤rœÿÿÿÿòÕ€ÿÿÀ öäÅå«÷÷ "Ìª~:*Ð4ú÷ 0úÀÁ ÷ ÀÁÂR¤"ÌªÎ.:© $Ìª~:*örœÿÿÿÿòÕ€ÿÿÀ ö÷+÷ ôù÷ ðù÷ Ìª{:*ìù÷ èùÀÁA ÷ È•KÌªÎ2$:©*BÀÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷ Ìª{:&Ìªî`*h÷ ˜ù÷ ”ùÀÁ ÷ ÀÁÂ"ÌªÎ0:©$(Ìªî`*ŽR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷+÷ Xù÷ TùÌªë`*´÷ Pù÷ LùÀÁA ÷ ÌªÎ4(:©*ÚÈ•KÀÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÁÌªë`÷ Á Á ÌªÎ8ÌªMÌªÎ: ÀíÂÂíÂmÄ&ÌªÎ: a¬(Ìª>Sa¬(Ìª.S&& ÷ jÀÀmÂÂmÂmÄ&Ìª˜äÌª?Sa¬(Ìª?Sa¬("Ìª.S*H÷ L÷"÷ ¬ø÷ ¨ø÷ ¤øÀÁa¬(Ìª""$(ÌªÎ6*n ÷ È•.ÀÁÂR¤rœÿÿÿÿòÕ€ÿÿ:©Ìª""*”À ö‡É%ÿÿwJ@,†wúÀ *†w,†&Ìª?S*ºw,†CClƒ CÃíÃíClÌª?S Ìª?S$a¬(*àƒ`ƒ Â ‡ÃmÃmƒà÷•=6øñ‹÷•-*øÌª?Sa¬(* ‡w /&f¦ñ¥)AÀ÷ $([©(}*,A÷ ÀÁaM¢M’ÍÕ€Åm [©(}&a¬(*RÀ ö‚€w¤÷÷: ÷÷ œ÷ä&aÅ*xÈ¥ È• ÈÕ€ÀmÅ õ€1 ‚‡H¬a¬(*žHœÈÕ€€ Áe wêþ1 ‡Èt÷Èn÷ÈÕ*Ä€€ žH¬HœÈÕ€€ •È¥ È• ÈÕ€*ê€ Œ †&aÅÈ¥ È• ÈÕ€ÀmÅ õ$a¬( €È¥ È• ÈÕ€€ å‡4QOŽÐ³*ãQàQOŽÐ³¯”L´:2“@G©P}@*q«°^@<©P}@N©~@E©”@´:òs@*l©p…@D©z@í«À+@ÌªÞ@(Ì,ž¯” Ì*ò *ò´:2“ l©p…‚q«°^ ´:2“"l©p…‚$q«°^*&d $´†( d´:òsl©p…‚q«°^´†*L COMMAND > RMD r- Illegal command - °°¸*¸ÁÀÑ¥,À û€ ÂCÃ À wE©” E©”E©”(E©”*Þ7ƒ é¡·Äÿ‡±‡÷÷ ÷ šæE©”E©” D©z(*ÿˆæ2ÿˆ÷†÷ ÿ¡‡÷ –ÿî‡÷ Dú†2†E©”E©”**÷ è÷ „ÿ†¡‡÷ .ø†÷ ‡ÁfÿÀ†P”&†*PþÀ Àån÷n°þ7®þæÿˆ±‡¦¡Ê¥ nn*vÊ¥`‚ÊÅ ‰’ ‚ ƒ óCŠw‚±‡÷*œônþ÷Njþæÿˆ÷J\þ÷Xþæÿˆ÷*ôJ"(**ÂJþ÷`Fþæÿˆ÷^8þ÷‚4þæÿˆ÷J&þ^ &J*è÷"þæÿˆ÷þ÷þæÿˆ÷Jþ÷$J*þýæÿˆÉ¥FÉ¥RSwnÿÉ‹µÉ¥0‚É¥ *43‡ñ¥=« ñE”ÅEüÿÅ@Å`D„ *ZÀe÷ Â¥:—Á%ÿ”‡7 @þþˆ² ÝÀÓ G©P}²*€÷ ‡‚,‚úò5@ ò5ò5 N©~*¦‡· þ‡÷üýÅe••÷ U‡É‹ÌªÞ"G©P}*ÌÉ¥= ù É‹@÷ Âw‡w¤þ<©P}"í«À+*ò3The following commands are available for this page:(*(1FREEn=ddn: to change free entry 'n' N(0-3) to ddn:ˆ\*\/RATE=s to change replot rate to ‚'s' seconds¥ŽŽ to return`QXŽ*»yÈ_XŽ¯”L(¯” /FQ>Æ*ÁyüX>Æ¯”LË«z@Ë«·k@*Ë«˜y@Ë«@"@»«°r@Ë«£@Ë«@*Ë«€@Ë«T@›©ž@Ë«U@Ë«è@*Ë«@Ñ«,x@Ë«è~@Ë«²2@Ë«¿2@*Ë«À2@Ë«Á2@Ë«Â2@D©z@Ë«Ø@"Ë«àh@Ë«i@(²¯” *fRSX-11M-PLUS V2.0 BL Total tasksf*& run:Total logons:Shuffler runs:Err*Lor sequence:Current tasks:Current us*rers:System pool:Secondary pool:Memo*˜ry utilization:Checkpoint utilization*¾:ItemTotalLastAvg/SecDirectivesQ*äIOsCPU ticksZero CPU intervalsCheck points,:*Ë«²2 Ë«Ø,Ë«è~:Ë«˜y"IYhw*IË«@"Y Ë«èhË«wË«àh2„”¨À*„Ë«i” Ë«T¨Ë«€ÀË«¿2BÅËÐØ*ÅË«À2Ë Ë«Á2ÐË«Â2ØË«zRãèò÷ *ãË«·kè Ë«UòË«£Ë«*hÀÁÂR”À ýÅA@ûP”þD©zÑ«,x(Žà• öÁÂB †Ñ¥ ûñÕ€ÿÿ÷¡‡»«°r›©žØQ¬V€»*Èy]¬V€»¯”L:©(}@Ë«‰@*Ë«‡@Ë«ˆ@Ë«Ék@Ë«Çk@Ë«Èk@*ê¨u~@ÝªK@ë¨D~@ã@G@½«Â@*Ë«“y@a©}@ä;@Ë«;"@½©C @*ñ˜:@é«@Q@Ë«£@Ë«£@Ë«£@*ë«øf@J©¼ @d©°;@Ë«!@Ë« @*ô8 @Ë«@Ë«{@Ë«‹T@:©@*ãHg@Ë«_@Ë«a@¹«@Ë«`@*L«:d@ò X@Ë«ã@Ë«@i©€‰@*Ë«u~@Ë«ã~@>©”M@A«Äq@Ë«Ó@*Ë«Ûh@óð2@Ë«<@Ë«i@š©‰s@"õXM@õ N@(Æ¯” $$66JJZZf*f*Œ &² 2:BZ*Ë«Ó2Ë«ã~:Ë«“yB Ë«;""ZÔJ6*.*Ë«ãJ Ë«6Ë«‡*Ë«Çk.(ì&F>þˆ:÷dÿ÷*Ë«_& Ë«£FË«>:"ê¨u~*þÿ\ÿ÷5?÷ÿ;æêô÷øþêô÷ òþ÷(ê¨u~þÿ½©C ¹«êô êô$ãHg "6 îþ÷ êþ÷ æþ÷ âþ÷ Þþ÷*ãHg ä; ä; ñ˜: ñ˜: "T Úþ÷ Öþ÷ Ôþ÷ Ðþ÷ Ìþ÷*ô8 ô8 õXM õ N õ N "r Èþ÷ Äþ÷ Äþ÷ Àþ÷ ´þ÷*ã@G ã@G ò X ò X óð2 * °þ·êô7 ®þÀ· ¦þ*ûÀN óð2 êôë¨D~"N*¶ÀNÄ4"†0m° ó÷5@N J©¼ *ÜÁwjþ÷fþ÷fþÅ÷ 7\þ"½©C L«:d½«Âš©‰s A«Äq*wZþÅ÷ 7PþwNþ AmDm >©”M*(ûEó‡‡Á2þÂ0þÂí(þÁí þÀ*N€`AÀ÷ wþ·þÁþÂþÂíøýë«øfë«øfd©°;*tÁíðýÀ€`AÀ÷ wêý·èý÷Ðý$÷ ë«øfë«øfd©°;*šŽýâý÷ŠýÞý÷†ýÞý÷‚ýÚý÷rýÚý÷nýÖý÷†ý*ÀÖý÷‚ýÒý÷rýÒý÷nýÎý÷˜ýŽý÷”ýŠýææ&*æ=ÿˆ÷÷ ýÀÁ÷ À ÁÂ Ë«<a©}&*R¤rœÿÿÿÿòÕ€ÿÿÀ ö÷÷ ÚüÀË«<Ë«u~(*2ÁÂ÷ ÀÁÂR¤rœÿÿÿÿòÕ€é«@QË«u~*XÿÿÀ öÅ¼D6Ì1õ÷°üÀD ¼$*~÷ ÄÈ.ÀÁBR¤rœÿÿÿÿòÕ€*¤ÿÿÀ öÀÁ¤BR¤rœÿÿÿÿòÕ€ÿÿÀ ¤*ÊöÅeÈ÷5À ÁÑ À üÀÁ^üË«Ûh$*ð ÷ Ð•.Ð•:ÁLü ÷ Ð•.Ð•:Á :©:©*:ü ÷ È•.ÀÁÂR¤rœÿÿÿÿòÕ€ :©Ë«Ûh*<ÿÿÀ ö÷=÷5@9Àüpd7rúû&À Ë«i½©C *bÁÑ À üÀÁÞû ÷ Ð•.Ð•:ÁÎû:©*ˆ ÷ Ð•.Ð•: ÷ È•%ÀÁÂ:©:©$(Ë«i*®R¤rœÿÿÿÿòÕ€ÿÿÀ ö÷'÷ 6ûÁŒûÀË«‹T*Ôd÷ BÀ~û÷ À ÷ È•%ÀÝªKd©°; :©*úÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷'÷ Ë«‹T"Ë«{* âúÁ<ûÀd÷ BÀ.û÷ À ÷ ÝªKd©°;"(:©*FÈ•%ÀÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷Ë«{*løúw÷ÃtÄ*Å|÷ TÀ ÁË«ˆt*|(*’ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷ÃtÄ.Ë«ˆË«Èk$t(.*¸Å„÷ À ÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ „Ë«Èk*Þö÷ÃtÄ&ÅŒ÷ èÀ ÁÂR¤Ë«`t&Œ"&Ë«`*rœÿÿÿÿòÕ€ÿÿÀ ö÷ÃtÄFÅ”÷ Ë«£t"F&”**²À ÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷Ë«£(Ë« *PÃtÄ>Åœ÷ |À ÁÂR¤rœÿÿt>œ Ë« *vÿÿòÕ€ÿÿÀ ö÷ÃxÄ*Å€÷ FÀ Ë«‰x* €*œÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷Ãx Ë«‰"Ë«Ék(x*ÂÄ.Åˆ÷ À ÁÂR¤rœÿÿÿÿòÕ€. ˆË«Ék*èÿÿÀ ö÷ÃxÄ&Å÷ ÚÀ ÁÂË«ax&&*R¤rœÿÿÿÿòÕ€ÿÿÀ ö÷ÃxÄFÅË«aË«£"x&F*4˜÷ ¤À ÁÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö˜Ë«£*Z÷ÃxÄ>Å ÷ nÀ ÁÂR¤Ë«!x> $Ë«!*€rœÿÿÿÿòÕ€ÿÿÀ ö÷–øæø÷’øâø÷Žøâø÷Šø*¦Þø÷zøÞø÷vøÚø÷ŽøÚø÷ŠøÖø÷zøÖø÷vøÒø*Ì÷ øšø÷œø–ø7 Šø‡BíAãÀ*ò÷ &À÷ JÈ.€Ád÷ @Á÷ d©°;ÝªK(i©€‰*À Â ÷ ‡ÀÁ Ð• Á üÐ•0Ð• :©(}*>.Ð•0Ð•0‡fÀ'÷ &À'÷ &@d©°;$d©°;*dÐ• Ð• Â ÷ ÷ ÷ ð¥ ÿÿ:©(}*Šð•0ÿÿ…‡ŽÂ "ð¥ ÿÿ Á Ð• Ð•° Ð• Ð• ‡Â &÷ ‡:©(}ÂQOŽ*»yàQOŽ¯”L´:2“@q«°^@*<©P}@E©”@´:òs@l©p…@D©z@"í«À+@(Ì,®¯” Ì*ò *ò´:2“ l©p…‚q«°^ ´:2“"l©p…‚$q«°^*&d $´†( d´:òsl©p…‚q«°^´†*L COMMAND > RMD r- Illegal command - °°¸*¸ÁÀÑ¥,À û€ ÂCÃ À wE©” E©”E©”(E©”*Þ7ƒ é¡·Äÿ‡±‡÷÷ ÷ šæE©”E©” D©z(*ÿˆæ2ÿˆ÷†÷ ÿ¡‡÷ –ÿî‡÷ Dú†2†E©”E©”**÷ è÷ „ÿ†¡‡÷ .ø†÷ ‡ÁfÿÀ†P”&†*PþÀ Àån÷n°þ7®þæÿˆ±‡¦¡Ê¥ nn*vÊ¥`‚ÊÅ ‰’ ‚ ƒ óCŠwp±‡÷*œ:nþ÷”jþæÿˆ÷J\þ÷Xþæÿˆ÷n:J"(n*ÂJþ÷¤Fþæÿˆ÷J8þ÷4þæÿˆ÷ &þJ & *è÷²"þæÿˆ÷Jþ÷þæÿˆÉ¥RwJ*†ÿÉ‹É¥= ù É‹@÷ Âw‡<©P}&í«À+*4w^ÿ1The following command is availabZle for this page: l*l/RATE=s to change replot rate to ’'s' secondsžž to returnQtŽ€»*C~È_tŽ€»¯”Li©€‰@:©Ï_@*(%¦S,Lè«î~hè«=h è«„…h½©¶}h¯” %¦SS*Â¦œœ&À€ì÷ €lÀE"i©€‰4ÿ€f ÷ Ð•:‚‡:©Ï_8QtŽ€»*I~üXtŽ€»¯”Lè«Äq@è«D~@*´:2“@è«²2@ƒ¬€@q«°^@»«°r@*è«_@´:òs@›©ž@:©@ªR@*l©p…@Ñ«,x@Ñ«Bx@D©z@è«DL@*è«LL@è«De@(y:},˜¯” y:}*À RSX-11M V4À*&.0 BLTask: Partition: *L Status: Own: I/O: Dpri*r: Pri: Spri: Len:R0 =*˜ R1 = R2 = R3 *¾= R4 = R5 = PC = *ä PS = SP = $DSW = * Eflg = LUN File *0 LUN File--- ---- %V --- ----x*x †*´:2“l©p…‚ q«°^´:2“ l©p…‚"q«°^(†*ž $¼(3TH´:òsl©p…‚q«°^¼*ÄE FOLLOWING COMMANDS ARE AVAILABLE FORê THIS PAGE:Sö*ö-RATE=s TO CHANGE REPLOT RATE TO s SECONDS&*&'TASK=t TO DISPLAY HEADER FOR TASLK t P%P TO RETURNILLEGAL COMMANDlrrILLEGAL TASK NAME ††COMMAND > º*º÷%ÿÿ7 7 ±‡÷ ÁÀ&ƒ¬€ƒ¬€ƒ¬€ D©z$(è«²2*àP”þÀ ÁP”P”P”P”Á ÷ Ñ«,xÑ«Bx(:©*Ð•KÁÀ,”þá• ÁÀU”þá• è«D~,è«_"U*, ÁÀ””þá• ÁÀÛ”þá• è«Äq”è«De Û*RÁÀ”þá• ÁÀG”þá• ÷ è«DLè«LLG$xÁÂB †Ñ¥ ûñÕ€ÿÿ÷¡‡ªR»«°r›©žQtŽ€»*P~]tŽ€»¯”Lè«VN@è«Ùf@*è«u~@ƒ¬€@è«øf@è«î~@è«=@*è«’@Ê«äy@è«€@è«@a©}@*;F3 @è«0u@è«Xu@¹«WŒ@½©C @*½©¶}@è«€u@è«„…@è«¨u@è«Ðu@*è«øu@é«@Q@è«R@O« _@d&áe@*:©@è«Bx@è«O @è«P @:©ÿ@*è«@y@è«Ry@è«fa@hhÐ@è«áy@*[©(}@è«›:@ ©Bx@è«:d@è«xd@*:©Ï_@è«<@(¥–^(¥–`(/d@,t ¯” ¥–` /d@†J.J.(†è«›:J .è«’J.è«ÙfJ.J.nj&J.è«Ry J.è«0unj njnjn(è«Xunj è«€unjè«¨un0jnjnj(jè«Ðun jè«øunjè«xd@njnjnj&njè«øf njè«@ynjPnÜnjn(è«nÜ è«O njè«P n`j jH*HTask not in systemTask out of memorynNo task specifiedNone†*†÷ ÷ ‡Ådþˆ€Ã÷ † ‡&7d€ƒ¬€Ê«äy*¬Hÿ ÕÕœ*Òœ œð5NÄ7XÿH Ý0lhhÐ*øÕ:ÕÕÕÕÕÕÕÕ$ñ*&&A÷5l6æwÕ& d&áe½©C ;F3 $;F3 *D· <Í%†ÍCÄe>;F3 *jÀE÷ † ÔÃ ó‡ ÿÿƒÀ'‡æO« _ÿÿ$ ©Bx*úæ=ÿˆ÷÷ nþÀ Áú÷ À Áúè«< ú"a©}*¶ ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷÷ 4þ è«< è«u~*ÜÀ ÁÂ÷ ÀÁ ÂR¤rœÿÿÿÿ é«@Q è«u~*òÕ€ÿÿÀ öÀ Á÷ Á÷ ÀÁ $ ƒ¬€[©(}ƒ¬€ [©(}( *(ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÅdÍ5÷"è«€d&è«R*NÀ ÁH÷ÁnÃÒ Ã üP”þÀ Hƒ¬€n*t(Á ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ Á è«R$ *šÐ Á ü÷ º÷ æ÷ w¤À ÁÒ *ÀÁ ü÷À(Á ÂR¤rœÿÿÿÿòÕ€ÿÿ è«R è«R*æÀ öÀ A÷ A÷ ÷ÀÁ Â" [©(}[©(}è«:d$ (è«:d*R¤rœÿÿÿÿòÕ€ÿÿÀ ö÷Åe'À è«áy& *2ÁÒ Á üÂªA÷ AÁE*÷ øA÷ ª*XòÀ&Á ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö÷5 è«áy*~èû-÷À Á[ÃÒ Ã üP”þÀ è«R [*¤(Á ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÀ Á è«R$ *ÊÐ Á ü÷ º÷ Þ=÷ ²÷ î÷^ü.÷ ,C*ð6ÄÁ”ûÁà wÀ Ò Ò ÷ è«VNè«î~ (:©*Ð•. ÀÁ ‚R¤rœÿÿÿÿòÕ€ÿÿÀ ö *<÷ ÜÃ ÙÀ ÁÐ Á ü÷ †÷ ˜‡Ä *b÷ ÷À&Á ÂR¤rœÿÿÿÿòÕ€è«:dè«áy è«áy*ˆÿÿÀ ö‡÷ÀÁ ÂR¤rœÿÿÿÿòÕè«fa è«fa*®€ÿÿÀ ö‡÷ÀÁ ÂR¤rœÿÿÿÿè«Bx è«Bx*ÔòÕ€ÿÿÀ ö‡ÃÄÂÓúÊ ø‡æ*úÄÀÁ ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öè«VN * À#Á ÂR¤rœÿÿÿÿòÕ€ÿÿÀ öÎ Ü *FÖ‡ÄÀÁ R¤rœÿÿÿÿòÕ€ÿÿÀ ö *l‡ÄÀÁ R¤rœÿÿÿÿòÕ€ÿÿÀ ö‡ *’À È 7nú7lúC÷ ÷ÀÁ ½©¶}è«fa( *¸ÂR¤rœÿÿÿÿòÕ€ÿÿÀ ö‡À È 7.úè«fa *Þ7,úAÂ÷ Ð•0Ð•0÷ÀÁ Â:©Ï_è«Bx$ (è«Bx*R¤rœÿÿÿÿòÕ€ÿÿÀ ö‡ÃÄÓÂÊ **ù‡À ÷ Ôù AÕ ÷ Ð•.ÄÀÁ :©*P R¤rœÿÿÿÿòÕ€ÿÿÀ ö‡À AÂ÷ *vÄÀÁ R¤rœÿÿÿÿòÕ€ÿÿÀ ö‡:©Ï_ *œÀ ÷ fù÷ bùA• ÷ Ð•.ÄÀÁ :©ÿ*Â R¤rœÿÿÿÿòÕ€ÿÿÀ ö‡À ÷ &ù÷ *è "ùA ÷ Ð•.ÄÀÁ R¤rœÿÿ:©ÿ *ÿÿòÕ€ÿÿÀ ö‡wÚøwØø7Öø?w À "¹«WŒ& *4ÁÒ Á üÃ¶ø÷ w·Á¤øÂ¢ø½©¶}è«„… è«=*ZDÃÅ-ÓùÅ Í õ‡Â€ ¥–^(€*€”þà• À#Á ÂjøR¤rœÿÿÿÿòÕ€ÿÿÀ *¦ö‡-EXERDNMSGNRPBLKOUTCKPCKR*ÌASTDST-CHKCKDSEFFXDTIOCA*òFHLTABOSTPASTPSPNASPNWFRAWFRA* CP-PMDREMPRVMCRSLVCLIRSTNSDCA*> LROVNET&æÃÁ€Ð• „”Áü€d ‘úÁÃ óƒ„‡QtŽ€»*F~¤ÆtŽ€»¯”Ls©À@è«=@*q«°^@:©@´:¼p@;F3 @¹«WŒ@*è«„…@O« _@:©ÿ@Ä«p…@rh !@*[©(}@ ©Bx@:©Ï_@(¥–_(¥–X(ò¯” ¥–_Z ¥–XZ¥–XDirective error: FID = P0*0SYPû ÿ*Ä«p…´:¼pÄ«p…‚q«°^P&*Vw AA,ûñ5@÷ ÷ †¡ ¹«WŒ*|±‡þˆü‚Â51 — -‡Â'‚Â% '‚ üO« _ ©Bx*¢Â%À‚Ãe€Âå øAñ5€ñ5A*È&Clæß·2ÿ·.ÿ·œ*ÿŸ rh !;F3 ;F3 (;F3 *î‡7 ÿ7 ÿ7 ÿ‡¦ÂÿÂ] ÿÂ]ÿwÜ÷*ÿ÷ÿ÷îþeæ0ÿˆ@‡æ8ÿˆ<‡÷‹ÈþEè«„… è«=08*:ÁÈþÁ]ÊþÁ]Èþ>Ð•[Áµþ ÷ Ð•,Á¦þ :©*`÷ Ð•]Ášþ÷ Á”þ÷ ÁŽþ÷ à¥ ý:©[©(}[©(}"[©(}*†€ Ð•.Á|þ÷ à¥ ý€ Ð•;Ájþ ÷ ![©(}&:©Ï_*¬Â”þÁ ÷ Ð•.Â(”þð•(ÿÿs©À:©ÿ($ÒÁ:þ ÷ Ð•,Á.þ ÷ Ð•)‚‡:©Ï_:©Ï_´QtŽ€»*C~àQtŽ€»¯”L´:2“@ƒ¬€@*q«°^@<©P}@9©x‚@E©”@´:òs@*l©p…@D©z@í«À+@(Ì,6 ¯” Ì*ò *ò´:2“ l©p…‚q«°^ ´:2“"l©p…‚$q«°^*&d $´†( d´:òsl©p…‚q«°^´†*L COMMAND > RMD r- Illegal command - °°¸*¸ÁÀÑ¥,À û€ ÂCÃ À wE©” E©”E©”(E©”*Þ7ƒ é¡·Äÿ‡±‡÷÷ ÷ šæE©”E©” D©z(*ÿˆæ2ÿˆ÷†÷ ÿ¡‡÷ –ÿî‡÷ Dú†2†E©”E©”**÷ è÷ „ÿ†¡‡÷ .ø†÷ ‡ÁfÿÀ†P”&†*PþÀ Àån÷n°þ7®þæÿˆ±‡¦¡Ê¥ nn*vÊ¥`‚ÊÅ ‰’ ‚ ƒ óCŠw”±‡÷*œ”nþ÷îjþæÿˆ÷J\þ÷Xþæÿˆ÷Ê”J"(Ê*ÂJþ÷Fþæÿˆ÷J8þ÷4þæÿˆ÷ü&þJ &ü*è÷"þæÿˆ÷Jþ÷þæÿˆ÷(þ÷J$(*þýæÿˆ÷Jðý÷ìýæÿˆÉ¥RÉ¥T J*4¯É‹É¥= ù É‹¥@÷ Â‹ w <©P}(í«À+*Z‡É‹›É¥= ù É‹“@Á÷ ÁŒw"9©x‚*€Á÷ w¡‡3The following commƒ¬€9©x‚ƒ¬€%¦ands are available for this page:¥È*È/RATE=s to change replot rate to î's' secondsú*ú)TASK=t to display header for tas k 't'þ&& to returnè÷"þæÿˆ÷Jþ÷þæÿˆ÷(þ÷J$(*þýæÿˆ÷Jðý÷ìýæÿˆÉ¥RÉ¥T Jx:^›c,œ.x˜:VÐÀ¯”L(x˜:(.\¯X˜h\¯w˜h\¯‡—h\¯h—h¯”m÷x˜:ŽA”Â ý‡kóœx¥:^›c, .x˜:VÐÀ¯”L©w—@•«[M@•.(x˜:(4\¯X˜h\¯w˜h\¯‡—h,\¯h—h¯”÷x˜:Ž.þˆ2¦&@÷ C„€þˆ2¦CD÷ 2•«[M 2_&€Âå w‡f•«[M©w—ó DEz_kQ%›c, .TITLE KCLOKB CLOCK 'B' CONTROL .IDENT /M01.01/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 5-SEP-77 ; ; B. SCHREIBER 15-MAY-78 ; ; BLS048 -- CORRECT NUMBER OF ARGUMENTS ACCEPTED FOR CALL ; ; THIS ROUTINE CONTROLS KW11-K CLOCK B ; ; SYSTEM MACRO CALLS ; .MCALL CINT$S, KSWDF$, KDVDF$ KSWDF$ KDVDF$ ;+ ; CLOCKB -- CLOCK B CONTROL ; ; CALLING SEQUENCE: ; ; CALL CLOCKB (IRATE, IPRSET, MODE, IND, [LUN]) ; ; INPUTS: ; ; IRATE IS THE RATE (0-7) ; IPRSET IS THE PRESET (TWOS COMPLEMENT 0-255) ; MODE IS THE MODE FLAG ; 0 - INTERRUPT MODE ; 1 - NON-INTERRUPT MODE ; LUN IS IGNORED ; ; OUTPUTS: ; ; IND 0 UNABLE TO START CLOCK B (BAD ARGS, ETC) ; 1 CLOCK B STARTED SUCCESSFULLY ; ;- CLOCKB:: ;REF LABEL .IF DF K$W11K CALL .K.PAA ;VALIDATE ARGS AND PUSH ONTO STACK .WORD 5 ;5 ARGUMENTS .WORD 0 ;NONE REQUIRED BCC 10$ ;IF CC OK .IFTF ;K$W11K MOV #4,R4 ;STORE CODE IN 4TH ARGUMENT CLR R3 ;STORE 0 FOR ERROR CALLR .IESTO ;STORE ERROR AND RETURN .IFT ;K$W11K 10$: MOV (SP)+,R0 ;GET THE RATE BNE 40$ ;IF PRESENT FORGE ON CLR .CLK16 ;ELSE ZERO 16-BIT SOFTWARE CLOCK 20$: CMP (SP)+,(SP)+ ;PIP IPRSET AND MODE ADDRESSES BR 110$ ;RETURN SUCCESS 40$: MOV (R0),R0 ;GET THE SPECIFIED RATE BNE 60$ ;IF NE GO AHEAD CLR @.KBCSR ;ELSE STOP CLOCK B BR 20$ ;GO RETURN 60$: BIC #^C<7>,R0 ;CLEAR ALL BUT LOW BITS ASL R0 ;POSITION FOR CSR MOV R0,.KBRAT ;SET FOR ENABLE ROUTINE MOV (SP)+,R0 ;GET PRESET ADDRESS BNE 70$ ;IF NE GO HANDLE MOV #.NEG1,R0 ;ELSE USE DEFAULT OF 1 TICK 70$: MOV (R0),.KBPRE ;SET THE CLOCK PRESET MOV (SP)+,R0 ;GET THE MODE WORD BNE 80$ ;IF NE OK MOV #.ZEROW,R0 ;DEFAULT IS MODE 0 80$: MOV (R0),.KBMOD ;SET FLAG FOR INTERRUPT ENABLE ROUTINE BIT #K$ACIN,.KBFLG ;ARE WE ALREADY CONNECTED? BEQ 100$ ;IF EQ NO--GO CONNECT CALL .KBSTRT ;YES--START CLOCK BR 110$ ;RETURN SUCCESS 100$: CINT$S .KBVEC,#$KBASE,#.KBINT,#.KBEDI,#PR6 ;CONNECT TO INTERRUPTS BCS 120$ ;IF CS SKIP BIS #K$ACIN,.KBFLG ;FLAG CONNECTED TO INTERRUPTS 110$: MOV #1,R0 ;SET SUCCESS BR 140$ ;RETURN 120$: CLR R0 ;SET FAILURE 140$: MOV (SP)+,R1 ;GET IND ADDRESS BEQ 160$ ;IF EQ SKIP STATUS STORE MOV R0,(R1) ;STORE IND RESULT 160$: TST (SP)+ ;CLEAN LUN ARG FROM STACK RETURN .SBTTL .KBEDI CLOCK B ENABLE/DISABLE ROUTINE ;+ ; .KBEDI -- ENABLE/DISABLE ROUTINE FOR CLOCK B ; ; THIS ROUTINE IS CALLED BY THE EXECUTIVE TO ENABLE/DISABLE CLOCK B ; ; INPUTS: ; ; C-SET DISCONNECTING CLOCK FROM INTERRUPT VECTOR ; STOP CLOCK AND RETURN ; ; C-CLEAR ENABLING CLOCK ; START CLOCK ; ;- .PSECT .KSCT1 .KBEDI: BCS .KBDSC ;IF CS GO DISCONNECT BIS #K$ACIN,.KBFLG ;FLAG CONNECTED TO INTERRUPTS .KBSTRT:MOV .KBCSR,R2 ;GET CSR ADDRESS CLR (R2) ;STOP THE CLOCK MOV #KB$OIE!KB$B2A!KB$ENB,R0 ;ENABLE CLOCK BIT #1,.KBMOD ;SHOULD WE INTERRUPT? BEQ 20$ ;IF EQ YES--GO AHEAD MOV #KB$B2A!KB$ENB,R0 ;NO--DO NOT LET CLOCK INTERRUPT 20$: BIS .KBRAT,R0 ;SET RATE BITS MOV .KBPRE,2(R2) ;SET THE PRESET MOV R0,(R2) ;AND THE CSR RETURN .KBDSC: CLR @.KBCSR ;DISABLE CLOCK B BIC #K$ACIN,.KBFLG ;NOTE NO LONGER CONNECTED RETURN ;+ ; .KBINT -- CLOCK B INTERRUPT ROUTINE ; ; INPUTS: ; ; NONE ; ; OUTPUTS: ; ; .CLK16 IS INCRÂEMENTED BY ONE ; ;- .KBINT::INC .CLK16 ;;;COUNT CLOCK B OVERFLOW RETURN ;;;END OF CLOCK B INTERRUPT ROUTINE .SBTTL ICLOKB READ CLOCK B 16 BIT CLOCK ;+ ; ICLOKB -- READ CLOCK B ; ; INPUTS: ; ; NONE ; ; OUTPUTS: ; ; THE VALUE OF THE 16 BIT CLOCK IS RETURNED IN R0 FOR A FORTRAN ; FUNCTION CALL. ; ;- ICLOKB::MOV .CLK16,R0 ;GET THE VALUE RETURN .IFF ;K$W11K ICLOKB:: CLR R0 RETURN .ENDC ;K$W11K .END Â‘GÈ}®(%›c,C C COPYRIGHT (C) 1977 C DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. C C THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A C SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE C INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR C ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE C MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH C SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE C TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN C IN DEC. C C THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT C NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL C EQUIPMENT CORPORATION. C C DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF C ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. C C VERSION 01 C B. SCHREIBER 15-JUL-77 C C C MSH001 M.HARVEY CORRECTED FUNCTION RETURN VARIABLE C C C THIS ROUTINE COMPUTES RATES AND PRESETS FOR THE CLOCK GIVEN C THE DESIRED DWELL (INTER-SAMPLE TIME). C+ C XRATE -- COMPUTE RATE AND PRESET C C CALLING SEQUENCE: C CALL XRATE (DWELL, IRATE, IPRSET, IFLAG) C OR: HERTZ = XRATE (DWELL, IRATE, IPRSET, IFLAG) C C INPUTS: C C DWELL (REAL*4) THE DESIRED DWELL IN DECIMAL SECONDS C IFLAG (INTEGER*2) 0 IF CLOCK A, NON-0 IF CLOCK B C C OUTPUTS: C C IRATE (INTEGER*2) THE SELECTED CLOCK RATE (1-7) OR 0 C IF NO RATE COULD BE SELECTED C IPRSET (INTEGER*2) THE TWOS-COMPLEMENT CLOCK PRESET TO C BE USED IN A CALL TO A SWEEP ROUTINE C C HERTZ (REAL*4) (IF CALLED AS A FUNCTION) THE ACTUAL C DWELL USED. C C- REAL*4 FUNCTION XRATE (DWELL, IRATE, IPRSET, IFLAG) REAL*4 DWELL, PRESET, DWLMAX, BDWLMX, TICKS INTEGER*2 IRATE, IPRSET, I DIMENSION DWLMAX(5), TICKS(5), BDWLMX(5) C C DWLMAX CONTAINS THE MAXIMUM DWELL C (INTER-SAMPLE TIME) WHICH MAY BE OBTAINED FOR C PARTICULAR CLOCK RATE FOR CLOCK A. C DATA DWLMAX / 0.065535, 0.65535, 6.5535, 65.535, 1 655.35 / C C BDWLMX CONTAINS THE MAXIMUM DWELL C (INTER-SAMPLE TIME) WHICH MAY BE OBTAINED FOR C A PARTICULAR CLOCK RATE FOR CLOCK B. C DATA BDWLMX / 0.000255, 0.00255, 0.0255, 0.255, 1 2.55 / C C TICKS IS THE NUMBER OF CLOCK TICKS OBTAINED FOR C A PARTICULAR CLOCK RATE. C DATA TICKS / 1000000.0, 100000.0, 10000.0, 1000.0, 1 100.0 / IF (DWELL .LT. .000001) GOTO 200 C C FIND THE FASTEST CLOCK RATE WHICH WILL PERMIT C THE REQUESTED DWELL. CHOOSING THE FASTEST RATE C WILL GIVE THE FINEST RESOLUTION. C DO 100 I = 1, 5 IF (IFLAG .NE. 0) GOTO 5 IF (DWELL .GT. DWLMAX(I)) GOTO 100 GOTO 7 5 IF (DWELL .GT. BDWLMX(I)) GOTO 100 C C I CONTAINS THE SELECTED RATE C 7 IRATE = I C C COMPUTE THE CLOCK PRESET FOR THE USER C PRESET = DWELL * TICKS (I) IF (PRESET - 32768.0) 10, 20, 30 C C PRESET LT 32768.0 C 10 IPRSET = -IFIX (PRESET) GOTO 40 C C PRESET EQ 32768.0 C 20 IPRSET = "100000 GOTO 40 C C PRESET GT 32768.0 C 30 IPRSET = IFIX (65535.0 - PRESET) C C RETURN THE RATE SELECTED TO USER IF CALL²ED AS A C FUNCTION. HE CAN SEE IF HE WAS KILLED BY ROUNDOFF. C 40 XRATE = AINT(PRESET + 0.05) / TICKS(I) GOTO 900 100 CONTINUE 200 IRATE = 0 900 RETURN END ²éDkQ%›c, .TITLE KAADMP BURST MODE D/A OUTPUT .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 18-OCT-77 ; ; THIS MODULE PERFORMS BURST MODE D/A OUTPUT ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ .SBTTL .AADMP BURST MODE D/A OUTPUT ;+ ; .AADMP -- DUMP BUFFERS TO D/A IN BURST MODE ; ; THIS ROUTINE PERFORMS OUTPUT TO THE AA11 IN BURST MODE (NOT INTERRUPT ; OR CLOCK DRIVEN). ; ; INPUTS: ; ; R4 POINTS TO SWB (.AASWB). SWB MUST BE ALL SET UP ; ; OUTPUTS: ; ; IF IEFN WAS SPECIFIED CORRECTLY, PERFORM BURST MODE OUTPUT ; AT USER TASK LEVEL UNTIL END OF SWEEP IS DETECTED. IF IEFN ; WAS INCORRECTLY SPECIFIED, RETURN IE.BAD . ; ;- .AADMP::MOV S.WUSW(R4),R3 ;POINT TO IBUF ARRAY TST S.WNBF(R4) ;CONTINUOUS OUTPUT? BMI 20$ ;IF MI YES--MUST HAVE COMPLETION ROUTINE CMP S.WNBF(R4),IB.NBF(R3) ;LESS BUFFERS TO DO THAN SUPPLIED? BHI 20$ ;IF HI NO--GO CHECK COMPLETION ROUTINE BIS #S$WEFN,S.WFL2(R4) ;YES--SET EFN FLAG SO WE DON'T CALL CMPLR BR 40$ ;SKIP AHEAD 20$: BIT #S$WEFN,S.WFL2(R4) ;EFN OR COMPLETION ROUTINE? BNE 300$ ;IF NE EFN--ERROR--NEED COMPLETION ROUTINE ; ; SET UP TO START BURST MODE OUTPUT ; 40$: MOVB S.WBNO(R4),R5 ;GET FIRST BUFFER NUMBER ASL R5 ;MAKE WORD INDEX ADD R3,R5 ;POINT INTO IBUF ARRAY MOV IB.BUF(R5),R5 ;AND PULL OUT THE FIRST BUFFER ADDRESS ; ; ENTER LOOP FOR BURST MODE OUTPUT ; BIS #S$WACT,S.WFL2(R4) ;DECLARE SWEEP ACTIVE 200$: CALL .AAGWD ;GET D/A DATUM FROM BUFFER ROL R2 ;SAVE C-BIT MOV S.WCSR(R4),R1 ;GET CSR ADDRESS .IF NDF Q$$BUS 220$: TSTB (R1) ;MAKE SURE UNIT IS READY BPL 220$ ;WAIT FOR THE READY BIT .ENDC ;Q$$BUS CLR R0 ;PREPARE TO GET CHANNEL BYTE BISB S.WCHB(R4),R0 ;GET THE CHANNEL BYTE ADD R0,R1 ;POINT TO THE PROPER DAC MOV R3,(R1) ;OUTPUT TO DAC CALL .AANXC ;UPDATE TO NEXT CHANNEL ROR R2 ;CHECK THE C-BIT FROM GETWORD BCC 200$ ;IF CC KEEP GOING 240$: CALL .AAAST ;CALL COMPLETION ROUTINE BIT #S$WSTP,S.WFL2(R4) ;SHOULD WE STOP? BEQ 200$ ;IF EQ NO RETURN ;YES--RETURN TO CALLER OF DASWP ; ; NO COMPLETION ROUTINE AND ONE NEEDED ; 300$: MOV #-,@S.WUSW(R4) ;SET STATUS RETURN ;BACK TO CALLER .SBTTL .AAAST "AST" ROUTINE FOR BURST MODE OUTPUT ;+ ; .AAAST -- CALL COMPLETION ROUTINE IN BURST MODE OUTPUT ; ; INPUTS: ; ; R4 POINTS TO SWB ; ; OUTPUTS: ; ; IF SUPPLIED, COMPLETION ROUTINE IS CALLED ; ; NO REGISTERS ARE ALTERED ; ;- .AAAST: BIT #S$WEFN,S.WFL2(R4) ;USING EVENT FLAGS? BNE 40$ ;IF NE YES--SKIP IT ALL MOV R5,-(SP) ;SAVE REGISTERS FROM FORTRAN MOV R4,-(SP) MOV R3,-(SP) MOV R2,-(SP) MOV R1,-(SP) MOV R0,-(SP) CALL @S.WEFN(R4) ;CALL USER COMPLETION ROUTINE 20$: MOV (SP)+,R0 ;RESTORE REGISTERS MOV (SP)+,R1 MOV (SP)+,R2 MOV (SP)+,R3 MOV (SP)+,R4 MOV (SP)+,R5 40$: RETURN .SBTTL .AAGWD GET WORD FOR BURST MODE D/A OUTPUT ;+ ; .AAGWD -- GET WORD FROM USER BUFFER FOR D/A OUTPUT ; ; INPUTS: ; ; R5 BUFFER POINTER ; R4 POINTS TO SWB ; ; OUTPUTS: ; ; R3 DATA WORD ; C-CLEAR NOT END OF BUFFER ; C-SET END OF BUFFER OR STOP REQUESTED ; ;- .AAGWD::MOV (R5)+,R3 ;GET NEXT DATA WORD CLC ;PRESET C-BIT FOR "NOT END OF BUFFER" DEC S.WCNT(R4) ;END OF BUFFER? BGT 200$ ;IF GT NO MOV S.WUSW(R4),R2 ;YES--GET IBUF ADDRESS MOV R2,R1 ;COPY IT ADD #IB.USQ,R1 ;POINT TO USER BUFFER QUEUE .REPT 8. TSTB (R1)+ ;FIND THE FREE SLOT BMI 20$ ;IF MI FOUND IT .ENDM BR 140$ ;NO FREE SLOTS? 20$: MOVB S.WBNO(R4),-(R1);SET JUST FINISHED BUFFER INTO QUEUE BIT #S$WSEB!S$WSTP,S.WFL2(R4) ;STOP NECESSARY? BNE 100$ ;IF NE YES TST S.WNBF(R4) ;CONTINUOUS OUTPUT BMI 40$ ;IF MI YES DEC S.WNBF(R4) ;NO--CHECK ENOUGH BUFFERS BEQ 120$ ;IF EQ ALL DONE 40$: ADD #IB.DVQ,R2 ;POINT TO DEVICE QUEUE MOVB (R2),R1 ;GET NEXT BUFFER NO. TO USE BMI 140$ ;IF MI ERROR .REPT 3 MOVB 1(R2),(R2)+ ;PUSH QUEUE AROUND MOVB 1(R2),(R2)+ ;... BMI 60$ ;WATCH FOR THE QUICK OUT .ENDM MOVB 1(R2),(R2)+ ;MOVE THE LAST BYTE MOVB #-1,(R2) ;MARK END OF QUEUE 60$: MOVB R1,S.WBNO(R4) ;SET NEW CURRENT BUFFER ASL R1 ;MAKE A WORD INDEX ADD S.WUSW(R4),R1 ;INDEX INTO IBUF MOV IB.BUF(R1),R5 ;GET POINTER TO BUFFER MOV S.WSIZ(R4),S.WCNT(R4) ;RESET BUFFER COUNT BR 180$ ;RETURN WITH C-SET FOR END OF BUFFERæ ; ; STOP BECAUSE S$WSTP!S$WSEB IS SET ; 100$: MOV #-,@S.WUSW(R4) ;SET ABORT STATUS BR 160$ ;FINISH UP ; ; DONE OUTPUTTING ; 120$: MOV #IS.SUC,@S.WUSW(R4) ;SET SUCCESS STATUS BR 160$ ;FINISH ; ; DATA OVERRUN (NO BUFFER) ; 140$: MOV #-,@S.WUSW(R4) ;SET DATA OVERRUN STATUS ; ; SET STOP AND C-BIT ; 160$: BIS #S$WSTP,S.WFL2(R4) ;FLAG TO STOP BIC #S$WACT,S.WFL2(R4) ;DECLARE SWEEP INACTIVE 180$: SEC ;SET C-BIT 200$: RETURN .END æéDækQ%›c, .TITLE KAADRV ROUTINES FOR AA11 .IDENT /1.01/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 1.01 ; B. SCHREIBER 26-SEP-77 ; ; MODIFIED BY - ; ; HOWARD BERNSTEIN - 8/81 ; HB013 -- ALLOW SWEEPS TO MULTIPLE AA11'S IN ONE CALL ; ; THIS MODULE CONTAINS ROUTINES TO DRIVE THE AA11 ; ; SYSTEM MACRO CALLS ; .MCALL KDVDF$,KSWDF$ KDVDF$ KSWDF$ .IF DF N$AA11 .SBTTL DASWP INITIATE SYNCHRONOUS OR BURST MODE D/A SWEEP ;+ ; DASWP -- START D/A SWEEP ; ; CALLING SEQUENCE: ; ; CALL DASWP (IBUF, LBUF, NBUF, MODE, IPRSET, IEFN, LDELAY, ICHN, NCHN) ; ; INPUTS: ; ; SEE DOCUMENTATION ; ;- DASWP:: MOV R5,-(SP) ;SAVE ARG PTR CALL .K.PAA ;VALIDATE ARGS ONTO STACK .WORD 9. ;NINE ARGS .WORD 600 ;MASK FOR REQUIRED ARGS MOV #.AASWB,R4 ;POINT TO AA SWEEP CONTROL BLOCK BCC 20$ ;IF CC CONTINUE MOV #-,R3 ;ELSE SET BAD ARGUMENTS BR 600$ ;STORE ERROR CODE AND RETURN 20$: CALL .K.SET ;SET UP COMMON ARGS BCS 200$ ;IF CS BAD ARGS CALL .K.DLY ;SEE ABOUT DELAY BCS 300$ ;IF CS RESOURCE IN USE CALL .AAGCH ;GET D/A CHANNEL INFO BCS 200$ ;IF CS BAD ARGS CALL .K.STB ;SET UP BUFFER INFO BCS 400$ ;IF CS ILLEGAL BUFFER SPEC BIT #S$WNOV,S.WFLG(R4) ;BURST MODE? BEQ 40$ ;IF EQ NO MOV (SP)+,R5 ;YES--RESTORE ARG PTR JMP .AADMP ;GO DO BURST MODE OUTPUT 40$: .IF DF K$$W11 CALL .AASSC ;SELECT SYNCH. CLOCK ROUTINE CALL .KLQIN ;INSERT INTO CLOCK QUEUE CALL .KWCNI ;CONNECT CLOCK BCS 300$ ;IF CS RESOURCE IN USE BIS #S$WACT,S.WFL2(R4) ;FLAG SWEEP IS ACTIVE MOV (SP)+,R5 ;RESTORE R5 RETURN .IFF ;K$$W11 MOV #-,R3 ;SET OPTION NOT PRESENT BR 500$ ;AND LET HIM FIGURE OUT CLOCK NOT HERE .ENDC ;K$$W11 ; ; ERROR RETURNS ; ; BAD PARAMETERS ; 200$: MOV #-,R3 BR 500$ ; ; RESOURCE IN USE ; 300$: MOV #-,R3 BR 500$ ; ; ILLEGAL BUFFER SPECIFICATION ; 400$: MOV #-,R3 500$: MOV R5,SP ;RESTORE PRE-.K.PAA STACK POINTER 600$: CALL .KLQRM ;REMOVE FROM QUEUE IN CASE INSERTED MOV #1,R4 ;STORE IN FIRST ARG MOV (SP)+,R5 ;RESTORE ARG PTR CALLR .IESTO .SBTTL SCOPE SCOPE CONTROL ;+ ; SCOPE -- AA11 SCOPE CONTROL ; ; CALLING SEQUENCE: ; ; CALL SCOPE (IUNIT, ICNTRL, IOSB) ; ; INPUTS: ; ; IUNIT AA11 UNIT # ; ICNTRL DATA FOR CSR OF AA11 ; IOSB RECEIVES STATUS ; ; OUTPUTS: ; ; ICNTRL MOVED INTO PROPER AA11 CSR ; ;- .IF NDF Q$$BUS SCOPE:: MOV @2(R5),R0 ;GET UNIT # BMI 120$ ;IF MI ERROR MOV #.AASWB,R4 ;POINT TO AASWB CMP R0,S.WUNT(R4) ;LEGAL UNIT? BGE 120$ ;IF GE NO MOV @4(R5),R1 ;GET CSR BITS BIC #^C,R1 ;CLEAR ILLEGAL BITS FOR USER TO TOUCH MOV #<.AASWB+S.WUCB>,R2 ;POINT TO FIRST UCB 20$: DEC R0 ;AT CORRECT UNIT? BLT 40$ ;IF LT YES ADD #U.LGTH,R2 ;NO--MOVE TO NEXT BR 20$ ;KEEP GOING 40$: MOV R1,@U.CSR(R2) ;FOUND IT...OUTPUT TO CSR MOV #IS.SUC,@6(R5) ;SET SUCCESS 100$: RETURN 120$: MOV #3,R4 ;STORE IN 3RD ARGUMENT MOV #-,R3 ;BAD ARGUMENTS CALLR .IESTO .IFF ;Q$$BUS SCOPE:: MOV #3,R4 ;STORE IN 3RD ARG MOV #-,R3 ;OPTION NOT PRESENT CALLR .IESTO .ENDC ;Q$$BUS .SBTTL .AAGCH GET D/A CHANNEL INFORMATION ;+ ; .AAGCH -- GET D/A CHANNEL INFORMATION ; INPUTS: ; ; STACK >> RETURN ADDRESS ; ICHN ADDRESS ; NCHN ADDRESS ; ; OUPUTS: ; C-CLEAR CHANNEL INFORMATION SET UP IN SWB ; C-SET ILLEGAL CHANNEL NUMBER ; ;- .AAGCH::MOV (SP)+,R3 ;GET RETURN ADDRESS MOV (SP)+,R2 ;GET ICHN ADDRESS BNE 20$ ;IF NE GO MOV #.ZEROW,R2 ;ELSE DEFAULT TO 0 20$: MOV (R2),R2 ;GET ICHN BMI 200$ ;IF MI ERROR CMP R2,S.WMXC(R4) ;LEGAL CHANNEL? BHI 200$ ;IF HI NO MOV (SP)+,R1 ;GET NCHN BNE 40$ ;IF NE OK MOV #.ZEROW,R1 ;ELSE USE 0 40$: MOV (R1),R1 ;GET NCHN BMI 200$ ;IF MI ERROR BNE 60$ ;IF NE OK INC R1 ;ELSE USE 1 CHANNEL 60$: MOV R1,-(SP) ;SAVE ON STACK ADD R2,R1 ;COMPUTE END CHANNEL DEC R1 ;DON'T GO PAST LAST CHANNEL CMP R1,S.WMXC(R4) ;LEGAL END CHANNEL BHI 200$ ;IF HI NO MOV R1,S.WHCH(R4) ;YES--FILL IN SWB MOV R2,S.WICH(R4) ;... MOV R2,S.WCCH(R4) ;SET CURRENT CHANNEL MOV (SP),S.WNCH(R4) ;SET # OF CHANNELS TO DO MOV (SP)+,S.WCHX(R4);AND SAVED # OF CHANNELS BIC #^C<3>,R2 ;CLEAR TO 0-3 .IF NDF Q$$BUS INC R2 ;MAKE IT 1-4 .ENDC ;Q$$BUS ASL R2 ;CREATE WORD INDEX MOVB R2,S.WCHB(R4) ;SET CHANNEL BYTE MOVB R2,S.WCBX(R4) ;AND SAVED CHANNEL BYTE MOV R3,-(SP) ;PUT RETURN ADDRESS BACK ON STACK .IF GT N$AA11-1 CALL .AAXCH ;SET UP CSR ADDRESS .ENDC ;N$AA11-1 CLC ;SUCCESS RETURN ; ; SOME SORT OF ERROR ; 200$: MOV R5,SP ;RESET SP SEC ;FLAG PROBLEM JMP (R3) ;RETURN TO CALLER .SBTTL .AANXC ADVANCE TO NEXT D/A CHANNEL ;+ ; .AANXC -- GO TO NEXT CHANNEL ON D/A ; ; INPUTS: ; ; R4 POINTS TO SWB ; R3 FREE ; ; OUTPUTS: ; ; SWB INCREMENTED TO NEXT CHANNEL ; ; THIS ROUTINE MAY BE CALLED AT ANY LEVEL ; ;- .PSECT .KSCT1 .AANXC::DEC S.WNCH(R4) ;;;DONE ENOUGH CHANNELS? BLE 60$ ;;;IF LE YES--RESET INC S.WCCH(R4) ;;;NO--GO TO NEXT CHANNEL ADD #2,S.WCHB(R4) ;;;INC CHANNEL BYTE .IF GT N$AA11-1 MOV S.WAUA(R4),R3 ;;;GET ACTIVE UCB ADDRESS ADD R4,R3 ;;;... CMP S.WCCH(R4),U.MAXC(R3) ;;;GOING TO NEXT CONVERTER BLOS 40$ ;;;IF LOS NO ADD #U.LGTH,R3 ;;;YES--POINT TO NEXT D/A MOV U.CSR(R3),S.WCSR(R4) ;;;CHANGE ACTIVE CSR IN SWB ;HB013 SUB R4,R3 ;;;MAKE RELATIVE TO SWB MOV R3,S.WAUA(R4) ;;;STORE ACTIVE UNIT UCB OFFSET MOV S.WCCH(R4),R3 ;;;GET CHANNEL # BIC #^C<3>,R3 ;;;MAKE 0-3 .IF NDF Q$$BUS MOVB #2,S.WCHB(R4) ;;;START WITH FIRST CHANNEL ON NEW DAC .IFF ;Q$$BUS CLRB S.WCHB(R4) ;;;START WITH FIRST CHANNEL ON NEW DAC .ENDC ;Q$$BUS .IFTF ;N$AA11-1 40$: RETURN ;;; ; ; ALL CHANNELS DONE ; 60$: MOV S.WCHX(R4),S.WNCH(R4) ;;;RESET CHANNEL COUNT MOV S.WICH(R4),S.WCCH(R4) ;;;RESET CURRENT CHANNEL NUMBER MOVB S.WCBX(R4),S.WCHB(R4) ;;;RESET CHANNEL BYTE .IFT ;N$AA11-1 ;+ ; .AAXCH -- SET UP CSR AND SWB ; ; INPUTS: ; ; R4 POINTS TO SWB ; R3 FREE ; ; OUTPUTS: ; ; S.WAUA OFFSET FILLED IN SWB (> 1 AA11 IN SYSTEM) ; NO OPERATION (1 AA11 IN SYSTEM--DATA FILLED IN AT SYSGEN) ; ;- .AAXCH::MOV R4,R3 ;POINT TO FIRST UCB ADD #S.WUCB,R3 ;REALLY POINT AT IT 20$: CMP S.WCCH(R4),U.MAXC(R3) ;ON THIS AA? BLOS 40$ ;IF LOS YES ADD #U.LGTH,R3 ;NO--POINT TO NEXT UCB BR 20$ ;KEEP LOOKING 40$: MOV R3,S.WAUA(R4) ;POINT TO CURRENT UCB SUB R4,S.WAUA(R4) ;MAKE IT RELATIVE MOV U.CSR(R3),S.WCSR(R4) ;GET CSR INTO SWB .ENDC ;N$AA11-1 RETURN .SBTTL .AASSC SELECT D/A SYNCHRONOUS CLOCK ROUTINE ;+ ; .AASSC -- SELECT SYNCHRONOUS CLOCK ROUTINE FOR D/A SWEEP ; ; INPUTS: ; ; R4 POINTS TO SWB ; SWB SET UP FOR SWEEP ; ; OUTPUTS: ; ; S.WSCR IN SWB MODIFIED TO POINT TO CORRECT CLOCK ROUTINE ; ;- .PSECT .AASSC::MOV #.AASO0,R3 ;ASSUME SINGLE CHANNEL D/A OUTPUT .IF NDF Q$$BUS BIT #S$WSCW,S.WFLG(R4) ;SEE IF SCOPE CONTROL WORD MODE BNE 60$ ;IF NE YES .IFTF ;Q$$BUS MOV S.WNCH(R4),R2 ;GET NUMBER OF CHANNELS TO DO DEC R2 ;ONE CHANNEL? BEQ 80$ ;IF EQ YES DEC R2 ;TWO CHANNELS? BNE 40$ ;IF NE NO CMPB #6,S.WCHB(R4) ;SEE IF TWO CHANNELS ON SAME D/A BHI 40$ ;IF HI NO--LAST ON ONE, AND FIRST ON NEXT MOV #.AASO1,R3 ;YES--SET FOR TWO CHANNELS BR 80$ ;GO STORE ADDRESS 40$: MOV #.AASO2,R3 ;MORE THAN TWO CHANNELS .IFT ;Q$$BUS BR 80$ ;GO STORE ADDRESS 60$: MOV #.AASO3,R3 ;SET FOR SCOPE CONTROL WORD MODE .ENDC ;Q$$BUS 80$: .IF DF M$$MGE ADD $KRLC5,R3 ;RELOCATE TO APR5 .ENDC ;M$$MGE MOV R3,S.WSCR(R4) ;STORE SYNC. CLOCK ROUTINE ADDRESS MOV #.AAXIT,S.WSTR(R4) ;SET DUMMY SCHMITT TRIGGER ROUTINE RETURN .SBTTL .AASOX D/A CLOCK INTERRUPT ROUTINES ;+ ; .AASO0 -- SYNCH. CLOCK ROUTINE FOR SINGLE CHANNEL D/A OUTPUT ; ; THIS ROUTINE IS CALLED AT CLOCK INTERRUPTS TO OUTPUT ONE D/A CHANNEL ; ; INPUTS: ; ; R4 POINTS TO SWB ; R3 FREE ; ; OUTPUTS: ; ; C-CLEAR WORD OUTPUT, NOT END OF BUFFER ; C-SET WORD OUTPUT, END OF BUFFER, FORK TO SET EFN OR QUEUE AST ; ;- .PSECT .KSCT1 .AASO0: MOV S.WCSR(R4),-(SP) ;;;GET CSR ADDRESS ONTO STACK MOVB S.WCHB(R4),R3 ;;;GET 2*(CHANNEL + 1) ADD R3,(SP) ;;;POINT AT PROPER DAC REGISTER CALL .KRDWD ;;;GET DATA WORD TO OUTPUT MOV R3,@(SP)+ ;;;WRITE TO PROPER DAC .AAXIT: RETURN ;;;RETURN WITH C-BIT FROM KRDWD ;+ ; .AASO1 -- SYNCH. CLOCK ROUTINE FOR 2-CHANNEL D/A OUTPUT ON SAME AA11 ; ; THIS ROUTINE IS CALLED AT CLOCK INTERRUPT LEVEL TO OUTPUT TWO CHANNELS ; TO THE D/A ON THE SAME AA11. ; ; INPUTS: ; ; R4 POINTS TO SWB ; R3 FREE ; ; OUTPUTS: ; ; C-CLEAR TWO CHANNELS OUTPUT TO D/A ; C-SET TWO CHANNELS OUTPUT, FORK TO SET EFN OR QUEUE AST ; ; NOTE: IN THE Q-BUS VERSION, IF S$WSIB IS SET, AN INTENSIFY PULSE ; WILL BE SENT THROUGH DAC3 OF THE SELECTED CONVERTER. ; ;- .ENABL LSB .AASO1: MOV S.WCSR(R4),-(SP) ;;;GET CSR ADDRESS MOVB S.WCHB(R4),R3 ;;;GET 2*(CHANNEL + 1) ADD R3,(SP) ;;;POINT TO FIRST DAC CALL .KRDWD ;;;READ FIRST CHANNEL DATA MOV R3,@(SP) ;;;WRITE TO THE DAC ADD #2,(SP) ;;;POINT TO SECOND DAC CALL .KRDWD ;;;READ SECOND DATA WORD MOV R3,@(SP)+ ;;;WRITE TO SECOND DAC .IF DF Q$$BUS BIT #S$WSIB,S.WFLG(R4) ;;;SET INTENSIFY BIT? BEQ 20$ ;;;IF EQ NO .A0DLY::BIT -(SP),(SP)+ ;;;YES--DELAY FOR SECOND DAC TO SETTLE MOV S.WCSR(R4),R3 ;;;GET CSR (1ST DAC) ADDRESS BIS #1,6(R3) ;;;SET INTENSIFY BIT .A1DLY::BIT -(SP),(SP)+ ;;;DO A DELAY OF SORTS BIC #1,6(R3) ;;;CLEAR INTENSIFY BIT .ENDC ;Q$$BUS 20$: RETURN .DSABL LSB .SBTTL .AASO2 N-CHANNEL D/A OUTPUT ;+ ; .AASO2 -- SYNCH. CLOCK ROUTINE FOR N-CHANNEL D/A OUTPUT ; ; THIS ROUTINE IS CALLED AT CLOCK INTERRUPT LEVEL TO OUTPUT MORE THAN ; TWO CHANNELS OF D/A OUTPUT. ; ; INPUTS: ; ; R4 POINTS TO SWB ; R3 FREE ; ; OUTPUTS: ; ; C-CLEAR ALL CHANNELS OUTPUT--DO NOT NEED TO FORK ; C-SET ALL CHANNELS OUTPUT--FORK FOR END OF BUFFER/SWEEP ; ; NOTE: THIS ROUTINE EXPECTS THAT THE SIZE OF THE BUFFER IS A MULTIPLE ; OF WORDS. IF THIS IS NOT THE CASE, UNEXPECTED RESULTS ; WILL OCCUR. ; ;- .AASO2: CLR -(SP) ;;;SET C-BIT SAVER ONTO STACK 10$: CALL .KRDWD ;;;READ A DATA WORD ROL (SP) ;;;SAVE C-BIT MOV R3,-(SP) ;;;SAVE DATA WORD MOV S.WCSR(R4),R3 ;;;GET CSR ADDRESS MOVB S.WCHB(R4),-(SP);;;GET 2*(CHANNEL + 1) CLRB 1(SP) ;;;MAKE SURE WE ONLY ADD LOW BYTE ADD (SP)+,R3 ;;;POINT TO PROPER DAC MOV (SP)+,(€R3) ;;;WRITE DATA TO DAC ROR (SP) ;;;CHECK C-BIT BCC 20$ ;;;IF CC CONTINUE ROL (SP) ;;;SET PERMANENT C-BIT FLAG BIT #S$WSTP,S.WFL2(R4) ;;;SHOULD WE STOP BNE 40$ ;;;IF NE YES 20$: CALL .AANXC ;;;NO--GO TO NEXT CHANNEL CMP S.WCHX(R4),S.WNCH(R4) ;;;DONE ENOUGH CHANNELS? BNE 10$ ;;;NO--DO MORE 40$: ROR (SP)+ ;;;RESTORE C-BIT RETURN .ENDC ;N$AA11 .END €éD9ykQ%›c, .TITLE KAASO3 D/A OUTPUT WITH SCOPE CONTROL .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 25-OCT-77 ; ; THIS MODULE CONTAINS THE SYNCH. CLOCK ROUTINE FOR D/A OUTPUT ; WITH SCOPE CONTROL WORDS. ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$, KDVDF$ KSWDF$ KDVDF$ .PSECT .KSCT1 .SBTTL .AASO3 SYNCHRONOUS CLOCK ROUTINE FOR D/A OUTPUT ;+ ; .AASO3 -- SYNCH. CLOCK ROUTINE FOR D/A OUTPUT W/SCOPE CONTROL WORDS ; ; INPUTS: ; R4 POINTS TO SWB ; R3 AVAILABLE ; ; OUTPUTS: ; C-CLEAR OK ; C-SET FORK REQUESTED FOR EOB OR EOSWEEP ; ; NOTE: THE BUFFER MUST BE A MULTIPLE OF WORDS. THIS ; IS NOT CHECKED BY SOFTWARE. ; ;- .IF NDF Q$$BUS .AASO3::CLR -(SP) ;;;SET C-BIT SAVER ONTO STACK CALL .KRDWD ;;;READ SCOPE CONTROL WORD BIC #^C,R3 ;;;TRIM TO LEGAL SCOPE BITS MOV R3,@S.WCSR(R4) ;;;OUTPUT TO CSR 10$: CALL .KRDWD ;;;READ A DATA WORD ROL (SP) ;;;SAVE C-BIT MOV R3,-(SP) ;;;SAVE DATA WORD MOV S.WCSR(R4),R3 ;;;GET CSR ADDRESS MOVB S.WCHB(R4),-(SP);;;GET 2*(CHANNEL + 1) CLRB 1(SP) ;;;MAKE SURE WE ONLY ADD LOW BYTE ADD (SP)+,R3 ;;;POINT TO PROPER DAC MOV (SP)+,(R3) ;;;WRITE DATA TO DAC ROR (SP) ;;;CHECK C-BIT BCC 20$ ;;;IF CC CONTINUE ROL* (SP) ;;;SET PERMANENT C-BIT FLAG BIT #S$WSTP,S.WFL2(R4) ;;;SHOULD WE STOP BNE 40$ ;;;IF NE YES 20$: CALL .AANXC ;;;NO--GO TO NEXT CHANNEL CMP S.WCHX(R4),S.WNCH(R4) ;;;DONE ENOUGH CHANNELS? BNE 10$ ;;;NO--DO MORE 40$: ROR (SP)+ ;;;RESTORE C-BIT RETURN .ENDC ;Q$$BUS .END *ìDjkQ%›c, .TITLE KADAGR A/D AUTO-GAIN RANGING .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 15-SEP-77 ; ; THIS ROUTINE PERFORMS AUTO GAIN RANGING FOR THE AD11-K/AM11-K .MCALL KSWDF$, KDVDF$ KSWDF$ KDVDF$ .PSECT .KSCT1 .SBTTL .ADAGR A/D AUTO-GAIN RANGING ROUTINE ;+ ; .ADAGR -- PERFORM AUTO-GAIN RANGING ; ; INPUTS: ; ; A/D CONVERTER MUST HAVE THE DONE BIT SET ; R3 POINTS TO CSR ; ; OUTPUTS: ; ; R3 CONVERTED VALUE ; ;- .ADAGR::MOV R2,-(SP) ;;;SAVE R2 MOV 2(R3),R2 ;;;READ CONVERTED VALUE .IF DF A$$M11 CLR -(SP) ;;;SET THE GAIN BITS ONTO THE STACK CMP R2,#4000 ;;;IS NUMBER IN NEGATIVE RANGE? BGE 20$ ;;;IF GE YES NEG R2 ;;;NEGATE RESULT BEQ 100$ ;;;IF ZERO GET OUT NOW BIC #^C<7777>,R2 ;;;ONLY LOOK AT TWELVE BITS 20$: CMP R2,#4200 ;;;NEED TO SAMPLE ABOVE GAIN 4? BLT 30$ ;;;IF LT YES CMP R2,#5000 ;;;SAMPLE AT GAIN 1? BGE 100$ ;;;IF GE YES MOV #<1*20>*400,(SP) ;;;NO--SET TO SAMPLE AT GAIN 4 BR 40$ ;;;GO SAMPLE 30$: MOV #<2*20>*400,(SP) ;;;SET TO SAMPLE AT GAIN 16 CMP R2,#4040 ;;;SAMPLE AT GAIN 16? BGE 40$ ;;;IF GE YES MOV #<3*20>*400,(SP) ;;;NO--SET TO SAMPLE AT GAIN 64 40$: BIS (SP),(R3) ;;;SET CORRECT MUX CHANNEL INC (R3) ;;;START CONVERSION MOV #TMO$AD,R2 ;;;GET TIMEOUT COUNT 60$: BIT #AD$ERR!AD$DON,(R3) ;;;ERROR OR DONE? BMI 80$ ;;;IF MI ERROR BNE 100$ ;;;IF NE DONE DEC R2 ;;;NOT YET--CHECK TIMEOUT BGT 60$ ;;;IF GT NOT TIMEOUT MOV #ADTMOV,R3 ;;;YES--SET TIMEOUT VALUE BR 90$ ;;;RETURN 80$: MOV 2(R3),R3 ;;;READ VALUE TO CLEAR CONVERTER MOV #ADERRV,R3 ;;;SET ERROR VALUE 90$: TST (SP)+ ;;;CLEAR GAIN FROM STACK BR 120$ ;;;RETURN 100$: MOV 2(R3),R3 ;;;READ CONVERTED VALUE BIS (SP)+,R3 ;;;INSERT GAIN BIŒTS INTO RESULT .IFF ;A$$M11 MOV R2,R3 ;;;POSITION RESULT .ENDC ;A$$M11 120$: MOV (SP)+,R2 ;;;RESTORE R2 RETURN .END ŒìDækQ%›c, .TITLE KADDRV ROUTINES TO DRIVE THE ADC .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 4-SEP-77 ; ; THIS MODULE CONTAINS ROUTINES TO ACCESS THE A/D CONVERTER ; ; SYSTEM MACRO CALLS ; .MCALL CINT$S,KDVDF$,KSWDF$ KDVDF$ KSWDF$ .IF DF N$AD11 ;+ ; THE A/D SWEEP OPERATES IN THE FOLLOWING MANNER: ; ; 1) CONNECT FIRST ACTIVE A/D CONVERTER TO INTERRUPTS ; 2) ARM CLOCK (THIS IS HANDLED ELSEWHERE) ; 3) ENABLE FIRST A/D CONVERTER TO INTERRUPT ; ; UPON RECEIVING INTERRUPT: ; ; 1) READ INTERRUPTING A/D CONVERTER AND STORE ; 2) FOR ALL OTHER 'NCHN'-1 SAMPLES, SET THE 'GO' BIT IN ; THE PROPER ADCSR AND TWIDDLE WITH A TIMEOUT WAITING ; FOR THE CONVERSION. ; 3) AFTER ALL 'NCHN' SAMPLES HAVE BEEN TAKEN, RE-ARM FIRST ; A/D TO INTERRUPT AGAIN. ;- .SBTTL .ADCNI CONNECT A/D TO INTERRUPT VECTOR ;+ ; .ADCNI -- CONNECT A/D CONVERTER TO INTERRUPTS ; ; INPUTS: ; ; SWEEP CONTROL BLOCK ALL SETUP WITH R4 POINTING TO IT ; ; OUTPUTS: ; ; C-CLEAR SUCCESSFULLY CONNECTED ; C-SET COULD NOT CONNECT ; ;- .ADCNI::CALL .ADSLI ;SELECT PROPER INTERRUPT ROUTINE BCS 60$ ;IF CS INT ROUTINE NOT LOADED MOV S.WAUA(R4),R3 ;GET PTR TO ACTIVE UCB ADD R4,R3 ;REALLY POINT TO IT BIT #UF$CIN,U.FLG(R3) ;IS IT ALREADY CONNECTED TO VECTOR? BNE 40$ ;YES--DON'T RETRY CINT$S U.VEC(R3),#$KBASE,#.ADINT,#.ADEDI,S.WPRI(R4),#.ADAST BCS 60$ ;IF CS COULD NOT CONNECT BIS #UF$CIN,U.FLG(R3);FLAG CONNECTED TO VECTOR 40$: CLC ;FLAG GOOD 60$: RETURN .SBTTL .ADEDI A/D ENABLE/DISABLE ROUTINE FOR CINT ;+ ; .ADEDI -- ENABLE/DISABLE CONNECT TO INTERRUPT ROUTINE ; ; THIS ROUTINE IS CALLED BY THE EXECUTIVE ON CONNECTS/DISCONNECTS ; FROM INTERRUPT VECTORS FOR THE A/D. ; ; INPUTS: ; ; R1 POINTS TO INTERRUPT TRANSFER BLOCK ; C-SET DISCONNECTING FROM INTERRUPT VECTOR ; C-CLEAR CONNECTING TO INTERRUPT VECTOR ; ; OUTPUTS: ; ; A/D CONVERTER IS DISABLED ; .KTKCB IS FILLED IN WITH TCB ADDRESS OF TASK ; ;- .PSECT .KSCT1 .ADEDI: MOV .ADSWB+S.WCSR,R0 ;GET CSR ADDRESS OF CONVERTER MOV 2(R0),R2 ;READ CONVERTER IN CASE LINGERING CONVERSION CLR (R0) ;STOP CONVERTER MOV @#$TKTCB,.KTKCB ;GET MY TCB ADDRESS FOR FUTURE REF RETURN .SBTTL .ADSLI SELECT A/D INTERRUPT ROUTINE ;+ ; .ADSLI -- SELECT INTERRUPT ROUTINE ; ; INPUTS: ; ; SWB SET ; ; OUTPUTS: ; ; C-CLEAR OK ; .ADINT MODIFIED TO VECTOR TO PROPER ROUTINE ; AND S.WSTR SET IN .ADSWB ; ; C-SET INTERRUPT ROUTINE NOT LOADED ; ;- .PSECT .ADSLI::MOV #.ADSTR,S.WSTR(R4) ;SET UP THE ST ROUTINE ADDRESS MOV #.ADIN0,R3 ;THIS IS ROUTINE OF CHOICE MOV S.WNCH(R4),-(SP);GET # OF CHANNELS ONTO STACK .IF DF A$$M11 ! U$$ADI BIT #S$WACA,S.WFL2(R4) ;ABS CHANNEL ADDRESSING? BNE 40$ ;IF NE YES--CHECK OUT NUMBER OF CHANNELS MOV S.WFLG(R4),-(SP);NO--GET MODE WORD ONTO STACK BIC #^C<7>,(SP) ;CLEAR ALL BUT GAIN BITS .ENDC ;A$$M11 ! U$$ADI .IF DF U$$ADI ;USER-SUPPLIED A/D INTERRUPT ROUTINE CMP (SP),#7 ;USER INTERRUPT ROUTINE? BEQ 50$ ;IF EQ YES .IFTF ;U$$ADI .IF DF A$$M11 CMP (SP)+,#5 ;IS IT PROGRAMMABLE GAIN? BEQ 20$ ;IF EQ YES MOV #.ADIN2,R3 ;NO--ASSUME SINGLE CHANNEL W/GAIN DEC (SP)+ ;SEE IF ONE CHANNEL BEQ 60$ ;IF EQ YES MOV #.ADIN3,R3 ;NO--SET FOR MULT CHANNEL W/GAIN BR 60$ ;GO FINISH UP 20$: MOV #.ADIN4,R3 ;ASSUME SINGLE CHANNEL PROGRAMMABLE GAIN DEC (SP)+ ;CHECK # OF CHANNELS BEQ 60$ ;IF EQ ALL SET MOV #.ADIN5,R3 ;ELSE SET FOR MULT CHANNELS PROG. GAIN BR 60$ ;FINISH UP .ENDC ;A$$M11 40$: DEC (SP)+ ;ABS CHANNEL ADDRESSING--CHECK CHANNELS BEQ 60$ ;IF EQ ALL SET MOV #.ADIN1,R3 ;ELSE SET FOR MULTIPLE CHANNELS .IFT ;U$$ADI BR 60$ ;SKIP TO STORE ISR ADDRESS 50$: TST (SP)+ ;CLEAR STACK MOV #.ADINU,R3 ;USE USER-SUPPLIED ISR .ENDC ;U$$ADI 60$: TST R3 ;SEE IF WE GOT A ROUTINE BEQ 100$ ;IF EQ ROUTINE NOT LOADED .IF DF M$$MGE ADD $KRLC5,R3 ;RELOCATE TO APR5 .ENDC ;M$$MGE MOV R3,.ADINT+2 ;SET THE INTERRUPT VECTOR XFR ADDRESS CLC ;SET GOOD RETURN RETURN 100$: SEC ;FLAG INT ROUTINE NOT LOADED RETURN .SBTTL .ADSTR ENABLE A/D CONVERTER ;+ ; .ADSTR/.ADENX -- ENABLE A/D CONVERTER ; ; INPUTS: ; ; .ADSTR -- ; ; R4 POINTS TO SWEEP CONTROL BLOCK ; R3 AVAILABLE ; ; .ADENX -- ; ; R4 POINTS TO SWEEP CONTROL BLOCK ; R3 POINTS TO CSR ; ; OUTPUTS: ; ; ADCSR IS ARMED TO INTERRUPT ON CLOCK OR TRIGGER ; ; NOTE: THIS ROUTINE MAY BE CALLED AT ANY LEVEL ; ;- .PSECT .KSCT1 .ADSTR::MOV S.WCSR(R4),R3 ;GET CSR ADDRESS .ADENX::BIT #S$WNOV,S.WFLG(R4) ;TRIGGER DRIVEN SAMPLING? BNE 20$ ;IF NE YES .IF NDF Q$$BUS MOV #AD$OVE!AD$ENB,-(SP) ;NO--SET OVERFLOW ENABLE BR 40$ 20$: MOV #AD$ESE!AD$ENB,-(SP) ;SET TRIGGER ENABLE .IFF ;Q$$BUS MOV #AD$IEN!AD$OVE!AD$ENB,-(SP) ;NO--SET OVERFLOW ENABLE BR 40$ 20$: MOV #AD$IEN!AD$ESE!AD$ENB,-(SP) ;SET TRIGGER ENABLE .ENDC ;Q$$BUS 40$: MOVB S.WCHB(R4),1(SP);SET CHANNEL NUMBER INTO CSR-TO-BE MOV (SP)+,(R3) ;JAM A/D CSR REGISTER RETURN .SBTTL .DSBAD DISABLE A/D CONVERTER ;+ ; .DSBAD -- DISABLE A/D CONVERTER ; ; INPUTS: ; ; R4 POINTS TO SWEEP CONTROL BLOCK ; ; OUTPUTS: ; ; A/D CONVERTER IS DISABLED ; ALL REGISTERS INTACT ; ;- .IF GT N$AD11-1 .DSBAD::MOV R3,-(SP) ;SAVE R3 ON THE STACK MOV R4,R3 ;GET SøWB ADDRESS ADD #S.WUCB,R3 ;POINT TO FIRST UCB MOV S.WUNT(R4),-(SP);SET COUNT OF UNITS ONTO STACK 20$: BIT #UF$CIN,U.FLG(R3) ;IS UNIT CONNECTED? BEQ 40$ ;IF EQ NO CLR @U.CSR(R3) ;YES--DISABLE INTERRUPTS 40$: ADD #U.LGTH,R3 ;POINT TO NEXT UCB DEC (SP) ;CHECK IF DONE ALL UNITS BGT 20$ ;IF GT NO TST (SP)+ ;YES--CLEAR STACK MOV (SP)+,R3 ;YES--RESTORE R3 RETURN .IFF ;N$AD11-1 .DSBAD::CLR @S.WCSR(R4) ;DISABLE CONVERTER RETURN .ENDC ;N$AD11-1 .ENDC ;N$AD11 .END øìD@,kQ%›c, .TITLE KADGCH GET CHANNEL INFO FOR A/D .IDENT /02.00/ ; ; COPYRIGHT (C) 1977, 1978, 1980 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 02.00 ; B. SCHREIBER 5-JUL-77 ; ; MODIFIED BY: ; ; M. S. HARVEY 4-JAN-80 ; MSH082 -- CORRECT GAIN RANGING OPTION ; ; THIS MODULE CHECKS THE CHANNEL INFORMATION FOR A/D SWEEP ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ .IF DF N$AD11 .IF DF A$$M11 GAINTB: .BYTE 20,40,60 ;TABLE OF GAIN BITS FOR GAINS 4,16,64 ;MSH082 .EVEN ;**-1 .ENDC ;A$$M11 .SBTTL .ADGCH GATHER A/D CHANNEL INFORMATION ;+ ; .ADGCH -- GET A/D CHANNEL INFORMATION ; ; INPUTS: ; ; STACK SETUP FROM .K.PAA AND ALL INFORMATION UP TO THE ; CHANNEL PICKED OFF ; R5 HOLDS OLD SP BEFORE .K.PAA (SETUP BY .K.PAA) ; R4 SWEEP CONTROL BLOCK ADDRESS ; ; OUTPUTS: ; ; C-CLEAR CHANNEL STUFF SETUP OK ; S.WICH SETUP WITCH STARTING CHANNEL NUMBER ; S.WNCH SETUP WITH NUMBER OF CHANNELS ; S.WAUA SETUP WITH THE ACTIVE UNIT UCB ADDRESS ; ; ; C-SET ERROR IN CHANNEL SPECIFICATIONS ; SP RESET TO VALUE BEFORE .K.PAA ; ;- .ADGCH::MOV (SP)+,R3 ;PICKUP RETURN ADDRESS BIT #S$WADC,S.WFL2(R4) ;WAS SETADC CALLED? BNE 300$ ;IF NE YES--WE DON'T HAVE TO DO ANYTHING TST S.WCHI(R4) ;DO WE HAVE A CHANNEL INCREMENT? BNE 10$ ;IF NE YES MOV #1,S.WCHI(R4) ;NO--DEFAULT TO 1 BIC #S$WDIF,S.WFL2(R4) ;AND NO DIFFERENTIAL INPUT .IF DF A$$M11 10$: BIT #S$WACA,S.WFL2(R4) ;ABS CHAN ADDRESSING? BNE 15$ ;IF NE YES BIT #7,S.WFLG(R4) ;NO--ARE ANY GAIN BITS SET? BNE 15$ ;IF NE YES--NOT ABS CHAN ADDRESSING BIS #S$WACA,S.WFL2(R4) ;NO--SET ABS CHAN ADDRESSING .IFF ;A$$M11 10$: BIS #S$WACA,S.WFL2(R4) ;SET ABS CHANNEL ADDRESSING .IFTF ;A$$M11 15$: CALL .ADCMC ;COMPUTE CHANNEL INFORMATION MOV (SP)+,R2 ;GET ADDRESS OF FIRST CHANNEL NUMBER BNE 20$ ;IF NE GO GET IT MOV #.ZEROW,R2 ;DEFAULT--POINT AT A ZERO 20$: MOV (R2),R2 ;GET THE CHANNEL NUMBER BMI 200$ ;IF MI SURELY AN ERROR BIT #S$WDIF,S.WFL2(R4) ;DIFFERENTIAL INPUT? BEQ 40$ ;IF EQ NO BIC #1,R2 ;YES--FORCE AN EVEN CHANNEL 40$: CMP R2,S.WMXC(R4) ;LEGAL CHANNEL NUMBER? BHI 200$ ;IF HI NO MOV (SP)+,R1 ;GET ADDRESS OF 'NCHN' BNE 60$ ;IF NE GO GET IT MOV #.ZEROW,R1 ;DEFAULT--POINT AT A ZERO 60$: MOV (R1),R1 ;GET 'NCHN' BMI 200$ ;IF MI CANNOT BE LEGAL BNE 80$ ;IF NE OK INC R1 ;ELSE SET TO 1 CHANNEL 80$: MOV R1,-(SP) ;SAVE 'NCHN' ON STACK MOV R1,-(SP) ;MAKE A DESTROYABLE COPY MOV R2,R1 ;SET STARTING CHANNEL 90$: ADD S.WCHI(R4),R1 ;INCREMENT CHANNEL DEC (SP) ;THE FULL NUMBER OF CHANNEL INCREMENTS BGT 90$ ;... TST (SP)+ ;KEEP THE STACK STRAIGHT DEC R1 ;DON'T CHECK ONE AFTER THE LAST CHANNEL CMP R1,S.WMXC(R4) ;LAST CHANNEL LEGAL? BHI 200$ ;IF HI NO--ERROR MOV R1,S.WHCH(R4) ;SET HIGHEST CHANNEL WE WILL ACCESS MOV R2,S.WICH(R4) ;SET INITIAL CHANNEL MOV R2,S.WCCH(R4) ;AND CURRENT CHANNEL MOV (SP),S.WNCH(R4) ;AND NUMBER OF CHANNELS TO DO MOV (SP)+,S.WCHX(R4) ;SET THE SAVED NUMBER OF CHANNELS MOV R3,-(SP) ;PUT RETURN ADDRESS BACK ON THE STACK .IF GT N$AD11-1 CALL .ADXCH ;GO SETUP THE UCB POINTER IN THE SWB .ENDC ;N$AD11-1 CLR S.WGNW(R4) ;CLEAR GAIN WORD .IFT ;A$$M11 BIT #7,S.WFLG(R4) ;WAS ANY GAIN SELECTED? BEQ .STCHB ;IF EQ NO--SET CHANNEL BYTE AND RETURN MOV S.WFLG(R4),R3 ;YES--GET FLAG WORD BIC #^C<7>,R3 ;CLEAR ALL BUT GAIN CMP R3,#5 ;IS IT PROGRAMMABLE GAIN? BEQ .STCHB ;IF EQ YES--WILL SAMPLE AT GAIN 1 BHI .STCHB ;IF HI NOT A REAL GAIN DEC R3 ;MAKE 2-4 IN RANGE 1-3 BEQ .STCHB ;IF GAIN 1 SKIP THE REST MOVB R3,S.WGNW(R4) ;STORE GAIN VALUE MOVB GAINTB-1(R3),S.WGNW+1(R4) ;STORE GAIN BITS IN SWB .ENDC ;A$$M11 BR .STCHB ;SET CHANNEL BYTE AND RETURN ; ; ERROR--RESET STACK ; 200$: MOV R5,SP ;RESET STACK SEC 240$: JMP (R3) ;RETURN TO CALLER ; ; SETADC WAS CALLED...JUST CLEAR STACK AND RETURN ; 300$: CMP (SP)+,(SP)+ ;POP OFF ADDRESSES OF ICHN AND NCHN CLC ;FLAG SUCCESS JMP (R3) ;RETURN TO CALLER .SBTTL .STCHB COMPUTE CHANNEL BYTE FOR SWEEP ;+ ; .STCHB -- SET S.WCHB FOR A/D SWEEP ; ; THIS ROUTINE COMPUTES THE INITIAL CHANNEL BYTE FOR THE A/D SWEEP ; ; INPUTS: ; ; SWEEP CONTROL BLOCK SET UP ; ; OUTPUTS: ; ; S.WCHB AND S.WCBX SET UP ; ;- .STCHB::MOV S.WAUA(R4),R3 ;GET ACTIVE UNIT UCB ADDRESS ADD R4,R3 ;POINT TO THE UCB MOV S.WICH(R4),R2 ;GET INITIAL CHANNEL .IF DF A$$M11 BIT #S$WACA,S.WFL2(R4) ;ABS CHANNEL ADDRESSING? BEQ 100$ ;IF EQ NO .IFTF ;A$$M11 ; ; ABS CHANNEL ADDRESSING ; 40$: MOV R4,-(SP) ;SET SWB ADDRESS ONTO STACK ADD #S.WUCB,(SP) ;POINT TO FIRST UCB 45$: CMP R3,(SP) ;BACK TO FIRST UCB? BHI 50$ ;IF HI NO TST (SP)+ ;YES--KEEP STACK STRIAGHT BR 120$ ;FINISH UP 50$: SUB #U.LGTH,R3 ;NO--BACK UP ONE MOV #16.,-(SP) ;ASSUME NO AM11 ON THIS A/D BIT #UF$AMK,U.FLG(R3) ;CORRECT? BEQ 60$ ;IF EQ YES MOV #64.,(SP) ;NO--MAKE 64 CHANNELS 60$: SUB (SP)+,R2 ;BACK UP CHANNEL BR 45$ ;GO ON .IFT ;A$$M11 100$: BIC #^C<17>,R2 ;CLEAR EXTRA BITS .ENDC ;A$$M11 120$: BISB S.WGNW+1(R4),R2 ;SET GAIN BITS MOVB R2,S.WCHB(R4) ;SET CHANNEL BYTE MOVB R2,S.WCBX(R4) ;AND SAVE CHANNEL BYTE CLC ;FLAG SUCCESS (RETURN FROM .ADGCH) RETURN .SBTTL .ADCMC COMPUTE NUMBER OF CHANNELS ;+ ; .ADCMC -- COMPUTE NUMBER OF CHANNELS INFORMATION FOR A SWEEP ; ; THIS ROUTINE WILL SET UP THE SWB FOR THE AD11 WITH THE CORRECT ; CHANNEL INFORMATION DEPENDING ON WHETHER ABSOLUTE CHANNEL ; ADDRESSING IS IN EFFECT. IT WILL ALSO SET THE CORRECT MAX CHANNEL ; INFORMATION INTO THE SWEEP CONTROL BLOCK. ; ; INPUTS: ; ; R4 POINTS TO A SWEEP CONTROL BLOCK ; ; OUTPUTS: ; ; THE SWB AND UNIT CONTROL BLOCKS ARE MODIFIED ; ;- .ADCMC: MOV R3,-(SP) ;SAVE R3 MOV R4,R3 ;GET SWB POINTER ADD #S.WUCB,R3 ;POINT TO FIRST UCB MOV #-1,R2 ;INIT CHANNEL COUNTER TO -1 .IF GT N$AD11-1 MOV S.WUNT(R4),-(SP) ;SET # OF UNITS ONTO STACK .IFTF ;N$AD11-1 ; ; BACK HERE FOR EACH UNIT ; 20$: MOV #16.,R1 ;ASSUME 16 CHANNELS .IF DF A$$M11 BIT #UF$AMK,U.FLG(R3) ;THIS AD11 HAVE AN AM11? BEQ 40$ ;IF EQ NO BIT #S$WACA,S.WFL2(R4) ;YES--ARE WE DOING ABSOLUTE CHAN ADDR? BEQ 40$ ;IF EQ NO--16 CHAN EVEN WITH AM11 MOV #64.,R1 ;YES--INCREASE TO 64 CHANNELS .ENDC ;A$$M11 40$: ADD R1,R2 ;UP THE COUNTER MOV R2,U.MAXC(R3) ;SET MAX CHANNEL WORD IN UCB .IFT ;N$AD11-1 ADD #U.LGTH,R3 ;MOVE TO NEXT UCB DEC (SP) ;SEE IF MORE TO DO BGT 20$ ;IF GT YES--GO DO IT INC (SP)+ ;CLEAR UNIT COUNT FROM STACK .ENDC ;N$AD11-1 MOV R2,S.WMXC(R4) ;SET MAX CHANNEL # IN SWEEP CONTROL BLOCK MOV (SP)+,R3 ;RESTORE R3 RETURN .SBTTL .ADNXC ADVANCE TO NEXT A/D CHANNEL ;+ ; .ADNXC -- INCREMENT TO THE NEXT A/D CHANNEL ; ; THIS ROUTINE ADVANCES .ADSWB TO THE NEXT A/D CHANNEL. ; ; INPUTS: ; ; R4 POINTS TO SWB ; .ADSWB SETUP ; ; OUTPUTS: ; ; R3 SETUP TO THE UCB OF THE CORRECT A/D CONVERTOR ; .ADSWB INCREMENTED TO THE NEXT CHANNEL ; ;- .PSECT .KSCT1 .ADNXC::DEC S.WNCH(R4) ;;;DECR THE NUMBER OF CHANNELS TO DO BLE 60$ ;;;IF LE WE HAVE DONE ENOUGH ADD S.WCHI(R4),S.WCCH(R4) ;;;MOVE TO NEXT CHANNEL ADD S.WCHI(R4),S.WCHB(R4) ;;;INCREMENT CHANNEL BYTE ALSO .IF GT N$AD11-1 MOV S.WAUA(R4),R3 ;;;GET ACTIVE UCB ADDRESS ADD R4,R3 ;;;REALLY GET IT 20$: CMP S.WCCH(R4),U.MAXC(R3) ;;;GOING TO NEXT AD11? BLOS 40$ ;;;IF LOS NO--ALL DONE ; ; MOVE TO THE NEXT A/D CONVERTOR ; .IF DF A$$M11 BICB #^C<77>,S.WCHB(R4) ;;;ASSUME AM11/ABS CHAN ADDRESSING BIT #UF$AMK,U.FLG(R3) ;;;AM11-K? BEQ 25$ ;;;IF EQ NO--MUST RE-MASK BIT #S$WACA,S.WFL2(R4) ;;;ABS CHANNEL ADDRESSING? BNE 30$ ;;;IF NE YES--MASK IS FINE .ENDC ;A$$M11 25$: BICB #^C<17>,S.WCHB(R4) ;;;NO--MUST RE-MASK TO 16 CHANNELS 30$: ADD #U.LGTH,R3 ;;;MOVE R3 TO NEXT UCB MOV R3,S.WAUA(R4) ;;;POINT SWB TO IT SUB R4,S.WAUA(R4) ;;;MAKE IT RELATIVE TO START OF SWB MOV U.CSR(R3),S.WCSR(R4) ;;;PUT ACTIVE UNIT CSR INTO SWB .ENDC ;N$AD11-1 40$: RETURN ;;; ; ; ALL REQUESTED CHANNELS ARE DONE--RESET ; 60$: MOV S.WCHX(R4),S.WNCH(R4) ;;;RESET THE NUMBER OF CHANNELS TO DO MOV S.WICH(R4),S.WCCH(R4) ;;;AND THE CHANNEL NUMBER MOVB S.WCBX(R4),S.WCHB(R4) ;;;RESET CHANNEL BYTE ;;;DROP INTO .ADXCH .SBTTL .ADXCH COMPUTE UCB ADDRESS FOR AD11 ;+ ; .ADXCH -- COMPUTE THE UCB ADDRESS FOR THE AD11 ; ; THIS ROUTINE COMPUTES THE UCB ADDRESS OF THE AD11 GIVEN THE ; CHANNEL NUMBER IN THE SWEEP CONTROL BLOCK. ; ; INPUTS: ; ; R4 POINTS TO A/D SWEEP CONTROL BLOCK ; .ADSWB SETUP ; ; OUTPUTS: ; ; R3 POINTS TO CORRECT UCB ; S.WAUA SETUP IN THE SWB ; S.WCSR SET UP IN SWB ; ; NOTE: ; ; THIS ROUTINE MAY BE EXECUTED AT EITHER TASK OR INTERRUPT ; LEVEL. ; ;- .IF GT N$AD11-1 .ADXCH::MOV R4,R3 ;POINT TO SWB ADD #S.WUCB,R3 ;POINT UP TO FIRST UCB 20$: CMP S.WCCH(R4),U.MAXC(R3) ;CAN CHANNEL BE ON THIS UNIT? BLOS 40$ ;IF LOS YES--FOUND CORRECT UNIT ADD #U.LGTH<,R3 ;NO--BUMP TO NEXT UCB BR 20$ ;KEEP A'LOOKING 40$: MOV R3,S.WAUA(R4) ;POINT TO UCB IN THE SWB SUB R4,S.WAUA(R4) ;MAKE PTR RELATIVE TO START OF SWB MOV U.CSR(R3),S.WCSR(R4) ;SET CSR ADDRESS INTO SWB ;FOR FASTER ACCESS .ENDC ;N$AD11-1 RETURN ;BACK TO CALLER .ENDC ;N$AD11 .END <ìD€:kQ%›c, .TITLE KADINP SINGLE CHAN A/D INPUT .IDENT /02.01/ ; ; COPYRIGHT (C) 1977, 1981 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 02.01 ; B. SCHREIBER 20-OCT-77 ; ; MODIFIED BY: ; ; M. S. HARVEY 4-JAN-80 ; MSH082 -- CORRECT GAIN RANGING OPTION ; ; H. BERNSTEIN 20-OCT-81 ; HB018 -- ADD UCB OFFSET TO ACCESS SUBSEQUENT UCBs ; ; ; THIS MODULE PERFORMS A SINGLE A/D CHANNEL INPUT ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$, KDVDF$ KSWDF$ KDVDF$ .SBTTL ADINP/IADINP SINGLE CHANNEL A/D INPUT ;+ ; ADINP/IADINP -- SINGLE CHANNEL A/D SINGLE SHOT INPUT ; ; THIS ROUTINE SAMPLES ONE A/D CHANNEL ONE TIME (SINGLE SHOT) ; ; CALLING SEQUENCE: ; ; CALL ADINP (MODE, ICHAN, IVAL) ; ; WHERE: ; ; MODE DESCRIBES THE MODE (SEE DOCUMENTATITON) ; ICHAN IS THE CHANNEL TO SAMPLE ; IVAL IS THE SAMPLED VALUE ; ; OUTPUTS: ; ; IVAL THE SAMPLE VALUE ; ;- ADINP:: IADINP:: CALL .K.PAA ;PUSH ARGS ONTO STACK .WORD 3 ;THREE ARGS .WORD 0 ;NONE REQUIRED BCS 140$ ;HOW CAN YOU LOSE IF NONE REQUIRED? MOV (SP)+,R0 ;GET MODE ADDRESS BNE 20$ ;IF NE CONTINUE MOV #.ZEROW,R0 ;ELSE USE DEFAULT OF 0 20$: MOV (R0),R4 ;GET MODE MOV (SP)+,R1 ;GET CHANNEL # ADDRESS BNE 40$ ;BR IF SUPPLIED MOV #.ZEROW,R1 ;USE CHANNEL 0 40$: MOV (R1),R5 ;GET THE CHANNEL CALL .ADIFU ;FIND A/D UNIT AND RETURN WITH CSR ; ADDRESS IN R3, AND LH OF CSR IN R2 BCS 120$ ;IF CS ILLEGAL CHANNEL NUMBER MOVB R2,1(R3) ;SET THE CHANNEL INTO THE CSR INC (R3) ;START THE CONVERSION MOV #TMO$AD,R2 ;GET THE TIMEOUT COUNTER 60$: BIT #AD$ERR!AD$DON,(R3) ;ERROR OR DONE? BMI 80$ ;IF MI ERROR BNE 100$ ;IF NE DONE DEC R2 ;NEITHER--TIMEOUT? BGT 60$ ;NOT YET MOV #ADTMOV,R0 ;YES--SET TIMEOUT VALUE BR 120$ ;FINISH UP ; ; A/D CONVERSION ERROR ; 80$: MOV 2(R3),R0 ;READ VALUE ANYHOW .IF DF Q$$BUS BIC #AD$ERR,(R3) ;CLEAR ERROR BIT .ENDC ;Q$$BUS MOV #ADERRV,R0 ;SET ERROR VALUE BR 120$ ;FINISH ; ; CONVERSION COMPLETED--READ VALUE ; 100$: ;REF LABEL .IF DF A$$M11 CMP R4,#5 ;GAIN RANGING? BNE 110$ ;IF NE NO CALL .ADIGR ;YES--PERFORM AUTO-GAIN RANGING BR 120$ ;RETURN .IFTF ;A$$M11 110$: MOV 2(R3),R0 ;READ CONVERTED VALUE .IFT ;A$$M11 TST R4 ;ABSOLUTE CHANNEL ADDRESSING? BEQ 120$ ;IF EQ YES--SKIP GAIN BIT INSERTION MOV (R3),R1 ;NO--GET CSR WORD BIC #147777,R1 ;CLEAR ALL BUT GAIN BITS BIS R1,R0 ;SET GAIN BITS INTO RESULT .ENDC ;A$$M11 120$: MOV (SP)+,R1 ;GET IVAL ADDRESS BEQ 140$ ;IF EQ NOPLACE TO STORE--JUST EXIT MOV R0,(R1) ;STORE INTO IVAL 140$: RETURN ;DONE .SBTTL .ADIFU FIND A/D UNIT AND SET UP ;+ ; .ADIFU -- FIND A/D UNIT ; ; INPUTS: ; ; R4 MODE FLAG ; R5 CHANNEL NUMBER ; ; OUTPUTS: ; ; R3 CSR ADDRESS ; R2 LH (CHANNEL) OF CSR ; ;- .ADIFU: MOV #.ADSWB+S.WUCB-U.LGTH,R3 ;POINT TO FIRST UCB MINUS U.LGT;HB018 MOV #-1,R2 ;INIT THE CHANNEL COUNTER ;**-1 MOV .ADSWB+S.WUNT,R1 ;GET NUMBER OF A/D CONVERTERS ; ; HERE FOR EACH CONVERTER ; 20$: MOV #16.,R0 ;ASSUME 16 CHANNELS ADD U.LGTH,R3 ;POINT TO FIRST OR NEXT UCB ;HB018 .IF DF A$$M11 BIT #UF$AMK,U.FLG(R3) ;IS THERE AN AM11? BEQ 40$ ;NO--ONLY 16 CHANNELS TST R4 ;GAIN RANGING (OF ANY SORT)? BNE 40$ ;IF NE YES--NOT ABS CHAN ADDRESSING MOV #64.,R0 ;ABS CHAN MODE W/AM11--64 CHANNELS .IFTF ;A$$M11 40$: ADD R0,R2 ;COMPUTE LAST CHANNEL ON UNIT CMP R5,R2 ;IS DESIRED CHANNEL ON THIS UNIT? BLOS 100$ ;IF LOS YES DEC R1 ;NO--LOOKED AT ALL UNITS? BGT 20$ ;IF GT NO CLR R0 ;CLEAR IN CASE WE STORE VALUE SEC ;FLAG A SCREW UP RETURN ; ; WE FOUND THE UNIT ; 100$: MOV R5,R2 ;COPY THE CHANNEL .IFT ;A$$M11 BIC #^C<77>,R2 ;ASSUME ABS CHAN MODE TST R4 ;SEE IF SO BEQ 120$ ;IF EQ YES .ENDC ;A$$M11 BIC #^C<17>,R2 ;NO--TRIM SOME MORE BIC #^C<7>,R4 ;TRIM MODE FLAG MOVB GAINTB-1(R4),R1 ;GET THE GAIN BITS ADD R1,R2 ;TO GET THE CHANNEL BYTE 120$: MOV U.CSR(R3),R3 ;GET THE CSR ADDRESS OF UNIT CLC RETURN ; ; TABLE OF GAIN VALUES ; GAINTB: .BYTE 0,20,40,60,0,0,0,0 ;MSH082 .EVEN ;**-1 .SBTTL .ADIGR A/D GAIN RANGING FOR SINGLE A/D INPUT ;+ ; .ADIGR -- SINGLE A/D INPUT AUTO-GAIN RANGING ; ; INPUTS: ; ; A/D CONVERTER MUST HAVE THE DONE BIT SET ; R3 POINTS TO CSR ; ; OUTPUTS: ; ; R0 CONVERTED VALUE ; ;- .ADIGR: MOV 2(R3),R0 ;READ CONVERTED VALUE .IF DF A$$M11 CLR R1 ;CLEAR GAIN BITS CMP R0,#4000 ;IS VALUE IN POSITIVE RANGE BGE 20$ ;IF GE YES NEG R0 ;NEGATE RESULT BEQ 100$ ;IF EQ GET OUT NOW BIC #^C<7777>,R0 ;TRIM TO TWELVE BITS 20$: CMP R0,#4200 ;NEED TO SAMPLE ABOVE GAIN 4? BLT 30$ ;IF LT YES CMP R0,#5000 ;NO--SAMPLE AT GAIN 1? BGE 100$ ;IF GE YES MOV #<1*20>*400,R1 ;NO--SET TO SAMPLE AT GAIN 4 BR 40$ ;GO SAMPLE 30$: MOV #<2*20>*400,R1 ;SET TO SAMPLE AT GAIN 16 CMP R0,#4040 ;SAMPLE AT GAIN 16? BGE 40$ ;IF GE YES MOV #<3*20>*400,R1 ;NO--SET TO SAMPLE AT GAIN 64 40$: BIS R1,(R3) ;SET MUX CHANNEL INC (R3) ;START CONVERSION MOV #TMO$AD,R0 ;GET TIMEOUT COUNT 60$: BIT #AD$ERR!AD$DON,(R3) ;ERROR OR DONE? BMI 80$ ;IF MI ERROR BNE 100$ ;IF NE DONE DEC R0 ;NOT YET--CHECK TIMEOUT BGT 60$ ;IF GT NOT TIMEOUT MOV #ADTMOV,R0 ;YES--SET TIMEOUT VALUE BR 120$ ;RETURN 80$: MOV 2(R3),R0 ;READ VALUE ANYHOW MOV #ADERRV,R0 ;SET ERROR VALUE BR 120$ ;RETURN 100$: MOV 2(R3)„,R0 ;READ CONVERTED VALUE BIS R1,R0 ;SET THE FULL VALUE .ENDC ;A$$M11 120$: RETURN ;RETURN WITH SAMPLE IN R0 .END „ìDŽ:kQ%›c, .TITLE KADIN0 SINGLE CHANNEL A/D INTERRUPT HANDLER .IDENT /M01.01/ ; ; COPYRIGHT (C) 1977, 1978, 1979 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01.01 ; B. SCHREIBER 15-SEP-77 ; ; MODIFIED BY: ; ; M. HARVEY 6-MAR-79 ; MSH030 ALWAYS CLEAR ERROR BIT ; ; THIS MODULE SAMPLES ONE A/D CHANNEL IN ABSOLUTE CHANNEL ADDRESSING ; MODE. .MCALL KDVDF$, KSWDF$ KDVDF$ KSWDF$ .PSECT .KSCT1 .SBTTL .ADIN0 SUPER-FAST SINGLE CHANNEL A/D INTERRUPT ;+ ; .ADIN0 -- SINGLE CHANNEL NO GAIN RANGING INTERRUPT ROUTINE ; ; THIS INTERRUPT ROUTINE IS SELECTED IF THE USER SELECTED ABSOLUTE ; CHANNEL ADDRESSING. ; ; INPUTS: ; ; R4 SET BY A JSR R4,.ADIN0; THIS INSTRUCTION IS LOCATED ; PHYSICALLY IMMEDIATELY PRECEDING THE ADSWB. ; R5 POINTS TO THE FORK BLOCK (SETUP BY ICB) ; ; OUTPUTS: ; ; THE DATA WORD IS WRITTEN INTO THE USER BUFFER. ; ; OPTIONALLY, A FORK WILL BE REQUESTED IN ORDER TO STOP THE ; SWEEP (CAN BE INDUCED BY A NUMBER OF REASONS) OR TO SET AN ; EVENT FLAG OR QUEUE AN AST TO SIGNAL THE END OF A BUFFER. ; ;- .ADIN0::MOV R3,(SP) ;;;SAVE R3, OVERWRITING SAVED R4 ;;;WHICH WE DON'T NEED TO PRESERVE .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .IFTF ;M$$MGE MOV S.WCSR(R4),R3 ;;;GET CSR REGISTER ADDRESS TST (R3) ;;;CHECK FOR ERRORS BPL 20$ ;;;IF PL NO ERRORS--GO READ DATA BIC #AD$ERR,(R3) ;;;ERROR--CLEAR FLAG MOV 2(R3),R3 ;;;READ DATA TO CLEAR CONVERTER MOV #ADERRV,R3 ;;;SET ERROR VALUE BR 40$ ;;;GO WRITE INTO BUFFER 20$: MOV 2(R3),R3 ;;;READ DATA FROM ADC 40$: CALL .KWRWD ;;;WRITE WORD INTO USER BUFFER .IFT ;M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .IFTF ;M$$MGE MOV (SP)+,R3 ;;;RESTORE R3 BCC 80$ ;;;IF CC NOT END OF BUFFER OR SWEEP END BIT #S$WSTP,S.WFL2(R4) ;;;ARE WE GÌOING TO STOP THE SWEEP BEQ 60$ ;;;IF EQ NO CALL .DSBAD ;;;YES--DISABLE A/D FROM INTERRUPTING 60$: CALLR .KEFQI ;;;DO THE FORK LEVEL THING AND EXIT 80$: RETURN ;EXIT .ENDC ;M$$MGE .END ÌìD:kQ%›c, .TITLE KADIN1 MULTIPLE CHANNEL ABS CHANNEL ADDRESSING INTERRUPT .IDENT /M01.01/ ; ; COPYRIGHT (C) 1977, 1978, 1979 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01.01 ; B. SCHREIBER 15-SEP-77 ; ; MODIFIED BY: ; ; M. HARVEY 6-MAR-79 ; MSH030 ALWAYS CLEAR ERROR BIT ; ; THIS INTERRUPT ROUTINE SAMPLES MULTIPLE CHANNELS IN ABSOLUTE CHANNEL ; ADDRESSING MODE. .MCALL KSWDF$, KDVDF$ KSWDF$ KDVDF$ .PSECT .KSCT1 .SBTTL .ADIN1 MULTIPLE CHANNEL NO GAIN RANGING INTERRUPT ;+ ; .ADIN1 -- MULTIPLE CHANNEL NO GAIN RANGING INTERRUPT ROUTINE ; ; THIS INTERRUPT ROUTINE IS SELECTED IF THE USER CHOSE ABSOLUTE ; CHANNEL ADDRESSING WITH MULTIPLE CHANNELS. ; ; INPUTS: ; ; R4 SET BY A JSR R4,.ADIN1; THIS INSTRUCTION IS ; LOCATED PHYSICALLY IMMEDIATELY PRECEDING THE ADSWB. ; R5 POINTS TO THE FORK BLOCK (SETUP BY ICB) ; ; OUTPUTS: ; ; THE 'NCHN' CHANNELS ARE SAMPLED AND WRITTEN INTO THE USER BUFFER ; ;- .ADIN1::MOV R3,(SP) ;;;SAVE R3, OVERWRITING R4 ON STACK .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .ENDC ;M$$MGE MOV R2,-(SP) ;;;SAVE R2 CLR -(SP) ;;;CLEAR "FORK NEEDED" FLAG MOV S.WCSR(R4),R3 ;;;GET CSR ADDRESS .AD1DC::CLRB (R3) ;;;DISABLE CLOCK/ST FROM STARTING MORE CONVERSIONS TST (R3) ;;;CHECK RESULTS OF FIRST CONVERSION ;;;(STARTED BY CLOCK OR TRIGGER) BPL 80$ ;;;IF PL GO READ DATA BR 60$ ;;;ELSE GO HANDLE ERROR ; ; COME HERE FOR ALL SUBSEQUENT CHANNELS ; 20$: MOVB S.WCHB(R4),1(R3);;;SET THE CHANNEL NUMBER INTO CSR INC (R3) ;;;START CONVERSION MOV #TMO$AD,R2 ;;;GET THE TIMEOUT COUNT 40$: BIT #AD$ERR!AD$DON,(R3) ;;;ERROR OR DONE? BMI 60$ ;;;IF MI ERROR BNE 80$ ;;;IF NE DONE DEC R2 ;;;NOT YET--CHECK TIMEOUT BGT 40$ ;;;NO TIMEOUT YET MOV #ADTMOV,R3 ;;;TIMEOUT--SET VALUE BR 100$ ;;;GO STORE VALUE ; ; ERROR ; 60$: ;;;REF LABEL BIC #AD$ERR,(R3) ;;;CLEAR CONVERTER ERROR BIT MOV 2(R3),R3 ;;;READ CONVERSION ANYHOW MOV #ADERRV,R3 ;;;SET TO STORE A/D ERROR BR 100$ ;;;GO STORE ; ; READ DATA FROM A/D CONVERTER ; 80$: MOV 2(R3),R3 ;;;READ CONVERTED VALUE 100$: CALL .KWRWD ;;;WRITE WORD TO BUFFER BCC 120$ ;;;IF CC CONTINUE ROL (SP) ;;;SET THE FLAG TO FORK BIT #S$WSTP,S.WFL2(R4) ;;;ARE WE SUPPOSED TO STOP? BNE 140$ ;;;IF NE YES--GO STOP 120$: CALL .ADNXC ;;;SWITCH TO NEXT CHANNEL MOV S.WCSR(R4),R3 ;;;PICK UP CSR ADDRESS CMP S.WCHX(R4),S.WNCH(R4) ;;;HAVE WE DONE ALL CHANNELS? BNE 20$ ;;;IF NE NO CALL .ADENX ;;;YES--ARM A/D CONVERTOR ; ; WE ARE ALL DONE SAMPLING FOR THIS INTERRUPT ; 140$: ROR (SP)+ ;;;PICK UP THE FORK FLAG AND POP STACK MOV (SP)+,R2 ;;;RESTORE R2 .IF DF M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .ENDC MOV (SP)+,R3 ;;;RESTORE R3 BCC 180$ ;;;IF CC NO FORK NEEDED--JUST EXIT BIT #S$WSTP,S.WFL2(R4) ;;;ARE WÆE STOPPING SWEEP? BEQ 160$ ;;;IF EQ NO CALL .DSBAD ;;;YES--DISABLE A/D FROM INTERRUPTING 160$: CALLR .KEFQI ;;;FORK AND SET EFN OR QUEUE AST ;;;AND EXIT 180$: RETURN ;EXIT .END ÆìD:kQ%›c, .TITLE KADIN2 SINGLE CHANNEL GAIN RANGING INTERRUPT HANDLER .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 15-SEP-77 ; ; THIS MODULE SAMPLES ONE A/D CHANNEL WITH GAINS 1, 4, 16, OR 64 .MCALL KDVDF$, KSWDF$ KDVDF$ KSWDF$ .PSECT .KSCT1 .SBTTL .ADIN2 SINGLE CHANNEL A/D INTERRUPT HANDLER WITH GAIN ;+ ; .ADIN2 -- SINGLE CHANNEL SINGLE GAIN INTERRUPT ROUTINE ; ; THIS INTERRUPT ROUTINE IS SELECTED IF THE USER SELECTED ONE CHANNEL ; TO BE SAMPLED AT ONE GAIN (1, 4, 16, OR 64). ; ; INPUTS: ; ; R4 SET BY A JSR R4,.ADIN2; THIS INSTRUCTION IS LOCATED ; PHYSICALLY IMMEDIATELY PRECEDING THE ADSWB. ; R5 POINTS TO THE FORK BLOCK (SETUP BY ICB) ; ; OUTPUTS: ; ; THE DATA WORD IS WRITTEN INTO THE USER BUFFER. ; ; OPTIONALLY, A FORK WILL BE REQUESTED IN ORDER TO STOP THE ; SWEEP (CAN BE INDUCED BY A NUMBER OF REASONS) OR TO SET AN ; EVENT FLAG OR QUEUE AN AST TO SIGNAL THE END OF A BUFFER. ; ;- .ADIN2::MOV R3,(SP) ;;;SAVE R3, OVERWRITING SAVED R4 ;;;WHICH WE DON'T NEED TO PRESERVE .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .IFTF ;M$$MGE MOV S.WCSR(R4),R3 ;;;GET CSR REGISTER ADDRESS TST (R3) ;;;CHECK FOR ERRORS BPL 20$ ;;;IF PL NO ERRORS--GO READ DATA MOV 2(R3),R3 ;;;READ CONVERSION ANYHOW MOV #ADERRV,R3 ;;;SET ERROR VALUE BR 40$ ;;;GO WRITE INTO BUFFER 20$: MOV 2(R3),-(SP) ;;;READ CONVERTED VALUE MOV (R3),R3 ;;;COPY CSR BIC #147777,R3 ;;;CLEAR ALL BUT THE GAIN BITS BIS (SP)+,R3 ;;;SET THE TOTAL A/D VALUE TO STORE 40$: CALL .KWRWD ;;;WRITE WORD INTO USER BUFFER .IFT ;M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .IFTF ;M$$MGE MOV (SP)+,R3 ;;;RESTORE R3 BCC 80$ ;;;IF CC NOT END OF BUFFER OR SWEEP END BIT #S$WêSTP,S.WFL2(R4) ;;;ARE WE GOING TO STOP THE SWEEP BEQ 60$ ;;;IF EQ NO CALL .DSBAD ;;;YES--DISABLE A/D FROM INTERRUPTING 60$: CALLR .KEFQI ;;;FORK, SET EFN OR QUEUE AST AND EXIT 80$: RETURN ;EXIT .ENDC ;M$$MGE .END êìD‘:kQ%›c, .TITLE KADIN3 MULTIPLE CHANNEL SINGLE GAIN INTERRUPT ROUTINE .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 15-SEP-77 ; ; THIS INTERRUPT ROUTINE SAMPLES MULTIPLE CHANNELS WITH A SINGLE GAIN ; (I.E. GAIN 1, 4, 16, OR 64) .MCALL KSWDF$, KDVDF$ KSWDF$ KDVDF$ .PSECT .KSCT1 .SBTTL .ADIN3 MULTIPLE CHANNEL SINGLE GAIN INTERRUPT HANDLER ;+ ; .ADIN3 -- MULTIPLE CHANNEL SINGLE GAIN INTERRUPT ROUTINE ; ; THIS INTERRUPT ROUTINE IS SELECTED IF THE USER CHOSE MULTIPLE ; CHANNEL SAMPLING WITH A FIXED GAIN (1, 4, 16, OR 64) ; ; INPUTS: ; ; R4 SET BY A JSR R4,.ADIN3; THIS INSTRUCTION IS ; LOCATED PHYSICALLY IMMEDIATELY PRECEDING THE ADSWB. ; R5 POINTS TO THE FORK BLOCK (SETUP BY ICB) ; ; OUTPUTS: ; ; THE 'NCHN' CHANNELS ARE SAMPLED AND WRITTEN INTO THE USER BUFFER ; ;- .ADIN3::MOV R3,(SP) ;;;SAVE R3, OVERWRITING R4 ON STACK .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .ENDC ;M$$MGE MOV R2,-(SP) ;;;SAVE R2 CLR -(SP) ;;;CLEAR "FORK NEEDED" FLAG MOV S.WCSR(R4),R3 ;;;GET CSR ADDRESS .AD3DC::CLRB (R3) ;;;DISABLE CLOCK/ST FROM STARTING MORE CONVERSIONS TST (R3) ;;;CHECK RESULTS OF FIRST CONVERSION ;;;(STARTED BY CLOCK OR TRIGGER) BPL 80$ ;;;IF PL GO READ DATA BR 60$ ;;;ELSE HANDLE ERROR CONDITION ; ; COME HERE FOR ALL SUBSEQUENT CHANNELS ; 20$: MOVB S.WCHB(R4),1(R3);;;SET THE CHANNEL NUMBER INTO CSR INC (R3) ;;;START CONVERSION MOV #TMO$AD,R2 ;;;GET THE TIMEOUT COUNT 40$: BIT #AD$ERR!AD$DON,(R3) ;;;ERROR OR DONE? BMI 60$ ;;;IF MI ERROR BNE 80$ ;;;IF NE DONE DEC R2 ;;;NOT YET--CHECK TIMEOUT BGT 40$ ;;;NO TIMEOUT YET MOV #ADTMOV,R3 ;;;TIMEOUT--SET VALUE BR 100$ ;;;GO STORE VALUE ; ; ERROR ; 60$: MOV 2(R3),R3 ;;;READ CONVERSION ANYHOW MOV #ADERRV,R3 ;;;SET TO STORE A/D ERROR BR 100$ ;;;GO STORE ; ; READ DATA FROM A/D CONVERTER ; 80$: MOV 2(R3),-(SP) ;;;READ CONVERTED VALUE ONTO STACK MOV (R3),R3 ;;;READ CSR CONTENTS BIC #147777,R3 ;;;CLEAR ALL BUT GAIN BITS BIS (SP)+,R3 ;;;CREATE A/D INPUT WORD WITH GAIN BITS 100$: CALL .KWRWD ;;;WRITE WORD TO BUFFER BCC 120$ ;;;IF CC CONTINUE ROL (SP) ;;;SET FORK NEEDED FLAG BIT #S$WSTP,S.WFL2(R4) ;;;ARE WE SUPPOSED TO STOP? BNE 140$ ;;;IF NE YES--GO STOP 120$: CALL .ADNXC ;;;SWITCH TO NEXT CHANNEL MOV S.WCSR(R4),R3 ;;;PICK UP CSR ADDRESS CMP S.WCHX(R4),S.WNCH(R4) ;;;HAVE WE DONE ALL CHANNELS? BNE 20$ ;;;IF NE NO CALL .ADENX ;;;YES--ARM A/D CONVERTOR ; ; WE ARE ALL DONE SAMPLING FOR THIS INTERRUPT ; 140$: ROR (SP)+ ;;;CHECK THE FORK NEEDED FLAG MOV (SP)+,R2 ;;;RESTORE R2 .IF DF M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .ENDC MOV (SP)+,R3 ;;;RESTORE R3 BCC 180$ ;;;IF CC NO FORK NEEDED--JUST EXIT BIT #S$WSTP,S.WFL2(RÄ4) ;;;ARE WE STOPPING SWEEP? BEQ 160$ ;;;IF EQ NO CALL .DSBAD ;;;YES--DISABLE A/D FROM INTERRUPTING 160$: CALLR .KEFQI ;FORK, SET EFN OR QUEUE AST AND EXIT 180$: RETURN ;EXIT .END ÄìD’:kQ%›c, .TITLE KADIN4 SINGLE CHANNEL AUTO GAIN RANGING INTERRUPT HANDLER .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 15-SEP-77 ; ; THIS MODULE SAMPLES ONE A/D CHANNEL WITH AUTO GAIN RANGING. .MCALL KDVDF$, KSWDF$ KDVDF$ KSWDF$ .PSECT .KSCT1 .SBTTL .ADIN4 SAMPLE 1 A/D CHANNEL WITH GAIN RANGING ;+ ; .ADIN4 -- SINGLE CHANNEL AUTO GAIN RANGING INTERRUPT ROUTINE ; ; THIS INTERRUPT ROUTINE IS SELECTED IF THE USER SELECTED SINGLE ; CHANNEL SAMPLING WITH AUTO GAIN RANGING. ; ; INPUTS: ; ; R4 SET BY A JSR R4,.ADIN4; THIS INSTRUCTION IS LOCATED ; PHYSICALLY IMMEDIATELY PRECEDING THE ADSWB. ; R5 POINTS TO THE FORK BLOCK (SETUP BY ICB) ; ; OUTPUTS: ; ; THE DATA WORD IS WRITTEN INTO THE USER BUFFER. ; ; OPTIONALLY, A FORK WILL BE REQUESTED IN ORDER TO STOP THE ; SWEEP (CAN BE INDUCED BY A NUMBER OF REASONS) OR TO SET AN ; EVENT FLAG OR QUEUE AN AST TO SIGNAL THE END OF A BUFFER. ; ;- .ADIN4::MOV R3,(SP) ;;;SAVE R3, OVERWRITING SAVED R4 ;;;WHICH WE DON'T NEED TO PRESERVE .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .IFTF ;M$$MGE MOV S.WCSR(R4),R3 ;;;GET CSR REGISTER ADDRESS .AD4DC::CLRB (R3) ;;;DISABLE ANY MORE CONVERSION STARTS TST (R3) ;;;CHECK FOR ERRORS BPL 20$ ;;;IF PL NO ERRORS--GO READ DATA MOV 2(R3),R3 ;;;READ CONVERSION ANYHOW MOV #ADERRV,R3 ;;;SET ERROR VALUE BR 40$ ;;;GO WRITE INTO BUFFER 20$: CALL .ADAGR ;;;PERFORM AUTO GAIN RANGING AND RETURN ;;;THE CONVERTED VALUE IN R3 40$: CALL .KWRWD ;;;WRITE WORD INTO USER BUFFER CALL .ADSTR ;;;RE-ENABLE CONVERTER TO INTERRUPT .IFT ;M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .IFTF ;M$$MGE MOV (SP)+,R3 ;;;RESTORE R3 BCC 80$ ;;;IF CC NOT END OF BUFFER OR üSWEEP END BIT #S$WSTP,S.WFL2(R4) ;;;ARE WE GOING TO STOP THE SWEEP BEQ 60$ ;;;IF EQ NO CALL .DSBAD ;;;YES--DISABLE A/D FROM INTERRUPTING 60$: CALLR .KEFQI ;;;FORK SET EFN OR QUEUE AST AND EXIT 80$: RETURN ;EXIT .ENDC ;M$$MGE .END üìD“:kQ%›c, .TITLE KADIN5 MULTIPLE CHANNEL AUTO GAIN RANGING INTERRUPT .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 15-SEP-77 ; ; THIS INTERRUPT ROUTINE SAMPLES MULTIPLE CHANNELS WITH AUTO GAIN ; RANGING. .MCALL KSWDF$, KDVDF$ KSWDF$ KDVDF$ .PSECT .KSCT1 .SBTTL .ADIN5 MULTIPLE CHANNEL AUTO GAIN RANGING INTERRUPT ;+ ; .ADIN5 -- MULTIPLE CHANNEL AUTO GAIN RANGING INTERRUPT ROUTINE ; ; THIS INTERRUPT ROUTINE IS SELECTED IF THE USER CHOSE MULTIPLE ; CHANNEL SAMPLING WITH AUTO GAIN RANGING. ; ; INPUTS: ; ; R4 SET BY A JSR R4,.ADIN5; THIS INSTRUCTION IS ; LOCATED PHYSICALLY IMMEDIATELY PRECEDING THE ADSWB. ; R5 POINTS TO THE FORK BLOCK (SETUP BY ICB) ; ; OUTPUTS: ; ; THE 'NCHN' CHANNELS ARE SAMPLED AND WRITTEN INTO THE USER BUFFER ; ;- .ADIN5::MOV R3,(SP) ;;;SAVE R3, OVERWRITING R4 ON STACK .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .ENDC ;M$$MGE MOV R2,-(SP) ;;;SAVE R2 CLR -(SP) ;;;CLEAR THE "FORK NEEDED" FLAG MOV S.WCSR(R4),R3 ;;;GET CSR ADDRESS .AD5DC::CLRB (R3) ;;;STOP CLOCK/ST FROM STARTING ANOTHER CONVERSION TST (R3) ;;;CHECK RESULTS OF FIRST CONVERSION ;;;(STARTED BY CLOCK OR TRIGGER) BPL 80$ ;;;IF PL GO READ INPUT BR 60$ ;;;ELSE GO HANDLE ERROR ; ; COME HERE FOR ALL SUBSEQUENT CHANNELS ; 20$: MOVB S.WCHB(R4),1(R3);;;SET THE CHANNEL NUMBER INTO CSR INC (R3) ;;;START CONVERSION MOV #TMO$AD,R2 ;;;GET THE TIMEOUT COUNT 40$: BIT #AD$ERR!AD$DON,(R3) ;;;ERROR OR DONE? BMI 60$ ;;;IF MI ERROR BNE 80$ ;;;IF NE DONE DEC R2 ;;;NOT YET--CHECK TIMEOUT BGT 40$ ;;;NO TIMEOUT YET MOV #ADTMOV,R3 ;;;TIMEOUT--SET VALUE BR 100$ ;;;GO STORE VALUE ; ; ERROR ; 60$: MOV 2(R3),R3 ;;;READ CONVERSION ANYHOW MOV #ADERRV,R3 ;;;SET TO STORE A/D ERROR BR 100$ ;;;GO STORE ; ; READ DATA FROM A/D CONVERTER ; 80$: CALL .ADAGR ;;;PERFORM AUTO GAIN RANGING 100$: CALL .KWRWD ;;;WRITE WORD TO BUFFER BCC 120$ ;;;IF CC CONTINUE ROL (SP) ;;;SET FORK NEEDED FLAG BIT #S$WSTP,S.WFL2(R4) ;;;ARE WE SUPPOSED TO STOP? BNE 140$ ;;;IF NE YES--GO STOP 120$: CALL .ADNXC ;;;SWITCH TO NEXT CHANNEL MOV S.WCSR(R4),R3 ;;;PICK UP CSR ADDRESS CMP S.WCHX(R4),S.WNCH(R4) ;;;HAVE WE DONE ALL CHANNELS? BNE 20$ ;;;IF NE NO CALL .ADENX ;;;YES--ARM A/D CONVERTOR ; ; WE ARE ALL DONE SAMPLING FOR THIS INTERRUPT ; 140$: ROR (SP)+ ;;;CHECK THE FORK REQUEST FLAG MOV (SP)+,R2 ;;;RESTORE R2 .IF DF M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .ENDC MOV (SP)+,R3 ;;;RESTORE R3 BCC 180$ ;;;IF CC NO FORK NEEDED--JUST EXIT BIT #S$WSTP,S.WFL2(R4) ;;;YES--ARE WE STOPPING SWEEP? BEQ 160$ ;;;IF EQ NO CALL .DSBAD ;;;YES--DISABLE A/D FROM INTERRUPTING 160$: CALLR .KEFQI ;;;FORK, SET EFN OR QUEUE AST AND EXIT 180$: RETURN ;EXIT .END ìDhzkQ%›c, .TITLE KADSWP A/D INPUT SWEEP .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 5-SEP-77 ; ; THIS MODULE INITIATES AN A/D INPUT SWEEP ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ .SBTTL ADSWP START A/D INPUT SWEEP ;+ ; ADSWP -- START A/D INPUT SWEEP ; ; CALLING SEQUENCE: ; ; CALL ADSWP (IBUF,LBUF,NBUF,MODE,IPRSET,IEFN,LDELAY,ICHN,NCHN) ; ; SEE DOCUMENTATION FOR ARGUMENT DESCRIPTIONS ; ;- ADSWP:: MOV R5,-(SP) ;SAVE R5 (ARG PTR) CALL .K.PAA ;VALIDATE ARGS AND PUSH ON STACK .WORD 9. ;NINE ARGS .WORD 600 ;MASK FOR REQUIRED ARGS MOV #.ADSWB,R4 ;POINT TO A/D SWEEP CONTROL BLOCK BCC 20$ ;IF CC CONTINUE MOV #-,R3 ;ELSE SET ERROR CODE BR 600$ ;STORE ERROR AND RETURN 20$: CALL .K.SET ;SETUP COMMON SWEEP ARGS BCS 200$ ;IF CS BAD ARGS CALL .K.DLY ;SEE ABOUT DELAY FROM START BCS 300$ ;IF CS RESOURCE IN USE CALL .ADGCH ;GET A/D CHANNEL INFORMATION SETUP BCS 200$ ;IF CS BAD ARGS CALL .K.STB ;SETUP BUFFER POINTERS IN SWB BCS 400$ ;IF CS ILLEGAL BUFFER SPECIFICATION CALL .ADCNI ;CONNECT FIRST A/D TO INTERRUPTS BCS 300$ ;IF CS CALL IT RESOURCE IN USE CALL .KLQIN ;INSERT INTO CLOCK QUEUE BIT #S$WDLY,S.WFL2(R4) ;IS THERE A DELAY FROM START? BNE 80$ ;IF NE YES--NEED CLOCK .IF DF K$$W11 BIT #S$WEXT,S.WFLG(R4) ;EXTERNAL START? BNE 80$ ;IF NE YES--NEED CLOCK ;IF NO CLOCK IN SYSTEM CAN STILL DO ;EXTERNAL START VIA DIGO .IFTF ;K$$W11 BIT #S$WNOV,S.WFLG(R4) ;TRIGGER DRIVEN SAMPLING? BNE 100$ ;IF NE YES--NO NEED FOR CLOCK 80$: .IFT ;K$$W11 CALL .KWCNI ;INITIALIZE CLOCK BCS 300$ ;IF CS CALL IT RESOURCE IN USE BIS #S$WACT,S.WFL2(R4) ;FLAG SWEEP IS ACTIVE BIT #S$WEXT,S.WFLG(R4) ;EXTERNAL START? BNE 100$ ;IF NE YES--ST ROUTINE WILL ENABLE A/D CALL .ADSTR ;ENABLE A/D CONVERTOR .IFF ;K$$W11 MOV #-,R3 ;CLOCK OPTION NOT PRESENT BR 500$ ;GO RETURN STATUS TO USER .ENDC ;K$$W11 100$: MOV (SP)+,R5 ;RESTORE ARG PTR RETURN ; ; ERROR RETURNS ; ; BAD PARAMETERS ; 200$: MOV #-,R3 ;SET CODE BR 500$ ;GO TO COMMON CODE ; ; RESOURCE IN USE ; 300$: MOV #-,R3 ;SET CODE BR 500$ ; ; ILLEGAL BUFFER SPECIFICATION ; 400$: MOV #-,R3 ;SET CODE 500$: MOV R5,SP ;RESTORE PRE-.K.PAA STACK POINTER 600$: CALL .KLQRM ;REMOVE FROM QUEUE IF INSERTED MOV #1,R4 ;SET ARG # TO STORE IT INTO MOV (SP)+,R5 ;RESTORE ARG PTR CALLR .IESTO ;SET CODE AND RETURN TO USER .END ûD}kQ%›c, .TITLE KAST AST ROUTINES FOR K-SERIES .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 7-SEP-77 ; ; THIS MODULE CONTAINS ALL THE AST ROUTINES FOR THE DIFFERENT ; SWEEPS. ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$, ASTX$S, CINT$S, SETF$S KSWDF$ .SBTTL .ADAST HANDLE AST FOR A/D SWEEP ;+ ; .ADAST -- HANDLE AST QUEUED FOR A/D SWEEP ; ; INPUTS: ; ; STACK VECTOR ADDRESS ON TOP OF STACK ; ; OUTPUTS: ; ; DISCONNECTS A/D CONVERTERS IF STOPPING SWEEP. ; SETS EVENT FLAG IF NECESSARY, AND CALLS COMPLETION ; ROUTINE. ; ;- .ENABL LSB .IF DF N$AD11 .ADAST::MOV R0,(SP) ;SAVE R0, OVERWRITE VECTOR ADDRESS MOV R1,-(SP) ;SAVE MOV R2,-(SP) ; REST MOV R3,-(SP) ; OF MOV R4,-(SP) ; REGISTERS MOV R5,-(SP) ;... MOV #.ADSWB,R4 ;POINT TO AD SWEEP CONTROL BLOCK BIT #S$WSTP,S.WFL2(R4) ;STOPPING SWEEP? BNE 60$ ;IF NE YES--GO FIX IOSB AND DISCONNECT .IFTF ;N$AD11 ; COME TO 20$ TO CALL COMPLETION ROUTINE, RESTORE REGISTERS AND EXIT ; COME TO 40$ TO RESTORE REGISTERS AND EXIT ; ; REGISTERS MUST BE ON STACK, WITH R5 AT TOP, AND R0 AT BOTTOM. ; 20$: CALL @S.WEFN(R4) ;NO--CALL COMPLETION ROUTINE 40$: MOV (SP)+,R5 ;RESTORE MOV (SP)+,R4 ; THE MOV (SP)+,R3 ; REGISTERS MOV (SP)+,R2 MOV (SP)+,R1 MOV (SP)+,R0 ASTX$S .IFT ;N$AD11 ; ; STOPPING THE SWEEP ; 60$: CALL .DSCAD ;DISCONNECT A/D CONVERTERS CALL .KLQRM ;REMOVE FROM CLOCK QUEUE .IF DF K$$W11 .IF DF FT$MOP TST .KUCNT ;ANYONE USING CLOCK? BNE 80$ ;IF NE DO NOT DISCONNECT CLOCK .ENDC ;FT$MOP CALL 400$ ;LAST USER--DISCONNECT CLOCK .ENDC ;K$$W11 .SBTTL SWEEP END--FILL IN I/O STATUS BLOCK AND CLEAN UP SWB ; ; COME TO 80$ TO TERMINATE A SWEEP. THE EVENT FLAG IS SET OR A ; COMPLETION ROUTINE WILL BE CALLED. THE SWB IS THEN CLEARED OUT. ; (FLAGS). ; .IFTF ;N$AD11 80$: CALL 100$ ;CLEAR SWB AND SET EFN IF NEEDED BCC 20$ ;IF CC WE NEED TO CALL COMPLETION ROUTINE BR 40$ ;ELSE WE SET AN EVENT FLAG--DONE ; ; ROUTINE TO CLEAR OUT SWB. IN ADDITION, SETS EVENT FLAG IF NEEDED. ; ; OUTPUTS: ; ; C-CLEAR NEED TO CALL COMPLETION ROUTINE ; C-SET EFN WAS SET--ALL DONE ; 100$: CLR S.WEFM(R4) ;CLEAR EVENT FLAG MASK WORD CLR S.WEFA(R4) ;AND EVENT FLAG ADDRESS CLR S.WFLG(R4) ;ZERO FLAG WORD MOV S.WFL2(R4),R0 ;GET SECOND FLAG WORD BIC #^C,S.WFL2(R4) ;CLEAR ALL BITS EXCEPT A/D FLAG CLC ;PRE-SET C-BIT TO INDICATE CMPL ROUTINE BIT #S$WEFN,R0 ;ARE WE USING EVENT FLAGS OR AST'S? BEQ 120$ ;IF EQ NOT USING EVENT FLAGS SETF$S S.WEFN(R4) ;ELSE SET THE EVENT FLAG SEC ;SET C-BIT TO INDICATE EFN SET 120$: RETURN .ENDC ;N$AD11 .SBTTL .DRAST HANDLE DR11 SWEEP AST ;+ ; .DRAST -- AST ROUTINE FOR DIGITAL I/O SWEEPS ; ; INPUTS: ; ; STACK VECTOR ADDRESS OF DEVICE AST IS FOR ; ; OUTPUTS: ; ; NORMAL COMPLETION ROUTINE IS CALLED ; STOPPING SWEEP - DR11 IS DISCONNECTED FROM INTERRUPTS, ; AND EVENT FLAG OR COMPLETION ROUTINE IS CALLED ; AS APPROPRIATE. ; ;- .IF DF N$DR11 .DRAST::MOV R1,-(SP) ;SAVE R1 ON STACK MOV 2(SP),R1 ;GET VECTOR ADDRESS FROM STACK MOV R0,2(SP) ;SAVE R0 WHERE VECTOR WAS MOV R2,-(SP) ;SAVE MOV R3,-(SP) ; THE MOV R4,-(SP) ; REST MOV R5,-(SP) ; OF THE REGISTERS MOV #.DRUTB,R0 ;GET POINTER TO SWEEP BLOCK TABLE 200$: MOV (R0)+,R4 ;GET NEXT SWB ADDRESS BEQ 40$ ;IF EQ ALL DONE CMP S.WUBX+U.IVEC(R4),R1 ;INPUT VECTOR RIGHT? BEQ 220$ ;IF EQ YES CMP S.WUBX+U.OVEC(R4),R1 ;OUTPUT VECTOR RIGHT? BNE 200$ ;IF NE NO 220$: BIT #S$WSTP,S.WFL2(R4) ;YES--ARE WE STOPPING SWEEP? BEQ 20$ ;IF EQ NO--GO CALL COMPLETION ROUTINE AND EXIT ; ; STOPPING SWEEP ; 280$: MOV S.WUBX+U.IVEC(R4),R3 ;ASSUME INPUT DISCONNECT BIT #S$WIOF,S.WFL2(R4) ;CHECK BNE 300$ ;IF NE INPUT DISCONNECT MOV S.WUBX+U.OVEC(R4),R3 ;NO--GET OUTPUT VECTOR 300$: CINT$S R3,,#0 ;DISCONNECT BIC #UF$CIN,S.WUBX+U.FLG(R4) ;FLAG DISCONNECTED BR 80$ ;FINISH UP .ENDC ;N$DR11 .SBTTL .KWAST HANDLE AST'S FOR KW11 ;+ ; .KWAST -- AST ROUTINE FOR CLOCK DRIVEN SWEEPS (EXCEPT GTHIST) ; ; INPUTS: ; ; STACK VECTOR ADDRESS OF CLOCK ; ; OUTPUTS: ; ; NORMAL COMPLETION ROUTINE IS CALLED ; STOPPING SWEEP - KW11 IS DISCONNECTED FROM INTERRUPTS ; (UNLESS MULT. OPERATIONS) AND EVENT FLAG IS SET ; OR COMPLETION ROUTINE CALLED AS APPROPRIATE. ; ;- .IF DF K$$W11 .KWAST::MOV R0,(SP) ;SAVE R0, OVERWRITE VECTOR ADDRESS MOV R1,-(SP) ;HO HUM MOV R2,-(SP) ;SAVE THEM AWAY MOV R3,-(SP) MOV R4,-(SP) MOV R5,-(SP) .IF NDF FT$MOP MOV .KASWB,R4 ;GET ACTIVE SWB ADDRESS BIT #S$WSTP,S.WFL2(R4) ;ARE WE STOPPING SWEEP? BEQ 20$ ;IF EQ NO--CALL COMPLETION ROUTINE,EXIT CALL 400$ ;YES--DISCONNECT CLOCK BR 80$ ;AND FINISH UP .IFF ;FT$MOP MOV #<.KLQUU-S.WCLQ>,R4 ;POINT TO QUEUE HEAD 320$: MOV S.WCLQ(R4),R4 ;LINK TO NEXT IN QUEUE BEQ 380$ ;IF EQ END OF QUEUE TST S.WFLG(R4) ;AST REQUEST FOR THIS SWEEP? BPL 320$ ;IF PL NO--IGNORE BIC #S$WAST,S.WFLG(R4) ;CLEAR AST REQUEST FLAG BIT #S$WSTP,S.WFL2(R4) ;ARE WE STOPPING SWEEP? BEQ 360$ ;IF EQ NO--CONTINUE CALL .KLQRM ;YES--REMOVE FROM QUEUE 340$: CALL 100$ ;CLEAR SWB AND SET EFN IF NEEDED BCS 320$ ;IF CS WE SET EFN--ALL DONE 360$: MOV R4,-(SP) ;SAVE SWB POINTER FROM COMPLETION ROUTINE CALL @S.WEFN(R4) ;CALL USER COMPLETION ROUTINE MOV (SP)+,R4 ;RESTORE SWB POINTER BR 320$ ;CONTINUE SCANNING 380$: TST .KUCNT ;ARE THERE ANY MORE ACTIVE SWEEPS BNE 40$ ;IF NE YES--ALL DONE CALL 400$ ;NO--DISCONNECT CLOCK BR 40$ ;AND QUIT .ENDC ;FT$MOP ; ; DISCONNECT CLOCK ; 400$: MOV .KAVEC,R0 ;GET CLOCK VECTOR ADDRESS CALL 500$ ;DISCONNECT FROM INTERRUPTS .IF DF Q$$BUS ADD #4,R0 ;DISCONNECT OTHER VECTOR CALL 500$ ;... .ENDC ;Q$$BUS BIC #K$AÂCIN!K$ACTV!K$AGTD,.KAFLG ;FLAG NO LONGER CONNECTED ;AND NO GTHIST IN PROGRESS RETURN ;DONE 500$: CINT$S R0,,#0 ;DISCONNECT RETURN .ENDC ;K$$W11 .DSABL LSB .END ÂErkQ%›c, .TITLE KBFRMG BUFFER MANAGEMENT ROUTINES .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 15-AUG-77 ; ; THIS MODULE CONTAINS ROUTINES FOR BUFFER MANAGEMENT ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ .SBTTL RLSBUF RELEASE BUFFER TO BUFFER POOL ;+ ; RLSBUF -- RELEASE A BUFFER TO THE BUFFER POOL ; ; THIS ROUTINE IS CALLED BY THE USER TO DECLARE A BUFFER READY ; FOR THE ISR TO USE. ; ; CALLING SEQUENCE: ; ; CALL RLSBUF (IBUF, IND, N1,N2,...N8) ; ; INPUTS: ; ; IBUF THE IBUF ARRAY USED TO START A SWEEP ; N1-N8 ARE THE BUFFERS TO RELEASE (MAY HAVE 1-8 BUFFERS) ; ; OUTPUTS: ; ; IND RETURNS STATUS ; 0 BAD BUFFER NUMBER ; 1 BUFFERS RELEASED OK ; BUFFERS ARE INSERTED INTO THE DEVICE BUFFER QUEUE ; ;- RLSBUF::MOV 2(R5),R1 ;GET IBUF ADDRESS MOV R1,R4 ;MAKE A COPY MOVB (R5),R3 ;SET NUMBER OF ARGS INTO R3 CMP (R5)+,(R5)+ ;POINT TO IND ADDRESS SUB #2,R3 ;IS THERE AN ARGUMENT THERE? BLE 80$ ;IF LE NO--QUIT NOW MOV (R5)+,R0 ;GET/CHECK IND ARGUMENT INC R0 ;MAKE -1 (DEFAULT) GO TO 0 BEQ 10$ ;IF EQ LEAVE AT 0 DEC R0 ;NOT DEFAULTED--GET IT BACK MOV #1,(R0) ;SET SUCCESS INTO IND 10$: MTPS #PR6 ;;;LOCK OUT INTERRUPTS 20$: MOV @(R5)+,R2 ;;;GET THE NEXT BUFFER NUMBER BMI 25$ ;;;IF MI ERROR CMP R2,IB.NBF(R1) ;;;IS IT A LEGAL NUMBER? BLO 30$ ;;;IF LO YES 25$: TST R0 ;;;WAS IND GIVEN? BEQ 60$ ;;;IF EQ NO DEC (R0) ;;;YES--MAKE 1 INTO 0 BR 60$ ;;;FINISH UP 30$: ADD #IB.DVQ,R1 ;;;POINT TO DEVICE QUEUE .REPT 8. TSTB (R1)+ ;;;FIND THE END OF THE QUEUE BMI 40$ ;;;IF MI WE HAVE FOUND IT .ENDM BR 60$ ;;;SHOULD NOT HAPPEN 40$: MOVB R2,-(R1) ;;;ENTER BUFFER INTO QUEUE MOV R4,R1 ;;;RESET POINTER TO IBUF DEC R3 ;;;DECREMENT ARGUMENT COUNT BGT 20$ ;;;IF GT MORE BUFFERS TO RELEASE 60$: MTPS #0 ;;;ALLOW INTERRUPTS 80$: RETURN .SBTTL INXTBF SET NEXT BUFFER TO USE ;+ ; INXTBF -- SET NEXT BUFFER TO USE ; ; CALLING SEQUENCE: ; ; IND = INXTBF (IBUF, N [,IND]) ; ; INPUTS: ; ; IBUF IS THE IBUF FROM A SWEEP START ; N IS THE NUMBER OF THE NEXT BUFFER TO SET ; ; OUTPUTS: ; ; R0/IND 0 IF ERROR ; 1 IF OK ; ;- INXTBF::CLR R4 ;ASSUME FAILURE MOV 2(R5),R0 ;GET IBUF ADDRESS CALL .FDSWI ;FIND SWB THAT GOES WITH IT BCS 80$ ;IF CS FORGET IT MOV @4(R5),R2 ;GET BUFFER # BMI 80$ ;MI IS ILLEGAL CMP R2,IB.NBF(R0) ;IS IT LEGAL? BHIS 80$ ;IF HIS NO MTPS #PR6 ;;;LOCK OUT INTERRUPTS CMPB R2,S.WBNO(R1) ;;;CURRENT BUFFER? BEQ 60$ ;;;IF EQ YES--CANNOT NEXT IT ADD #IB.DVQ,R0 ;;;POINT TO DEVICE QUEUE CMPB R2,(R0)+ ;;;IS IT ALREADY NEXT? BEQ 50$ ;;;IF EQ YES--GET OUT MOV #1,R3 ;;;COUNT OF BYTES TO MOVE .REPT 7 CMPB R2,(R0)+ ;;;IS THIS IT? BEQ 20$ ;;;IF EQ YES INC R3 ;;;NO--COUNT ANOTHER BYTE TO MOVE .ENDM BR 60$ ;;;NOT IN QUEUE--CANNOT NEXT IT 20$: DEC R0 ;;;BACK UP TO BYTE IN QUESTION 40$: MOVB -(R0),1(R0) ;;;PUSH QUEUE DOWN OVER IT DEC R3 ;;;CHECK FOR ENOUGH BGT 40$ ;;;DO ALL NEEDED MOVB R2,(R0) ;;;MAKE NEW 'NEXT' BUFFER 50$: INC R4 ;;;FLAG SUCCESS 60$: MTPS #0 ;;;ALLOW INTERRUPTS 80$: MOV R4,R0 ;POSITION STATUS RETURN CMPB (R5),#3 ;WERE THERE 3 ARGS? BNE 100$ ;IF NE NO--DO NOT STORE STATUS MOV 6(R5),R1 ;YES--GET POSSIBLE IND ADDRESS CMP #-1,R1 ;WAS IT DEFAULTED? BEQ 100$ ;IF EQ YES MOV R0,(R1) ;NO--STORE STATUS 100$: RETURN .SBTTL RMVBUF REMOVE BUFFER FROM DEVICE QUEUE ;+ ; RMVBUF -- REMOVE BUFFER FROM DEVICE QUEUE ; ; CALLING SEQUENCE: ; ; CALL RMVBUF (IBUF, IBUFNO, IND) ; OR: IND = IRMVBF (IBUF, IBUFNO, IND) ; ; INPUTS: ; ; IBUF IS THE IBUF FROM A SWEEP START ; IBUFNO IS THE BUFFER NUMBER TO REMOVE ; ; OUTPUTS: ; ; IND 1 SUCCESS ; 0 NOT IN QUEUE ; ;- IRMVBF:: ;REF LABEL RMVBUF::MOV 2(R5),R0 ;GET IBUF ADDRESS MOV @4(R5),R1 ;GET BUF # ADD #IB.DVQ,R0 ;POINT TO DEVICE QUEUE MOV #7,R2 ;SET MAX COUNT TO MOVE MTPS #PR6 ;;;LOCK OUT INTERRUPTS .REPT 8. CMPB R1,(R0)+ ;;;IS THIS IT? BEQ 20$ ;;;IF EQ YES DEC R2 ;;;NO--DEC COUNT OF BYTES TO MOVE .ENDM BR 80$ ;;;NOT IN QUEUE 20$: DEC R0 ;;;BACKUP PTR TO BYTE IN QUESTION TST R2 ;;;ANY TO MOVE? BEQ 60$ ;;;IF EQ NO--JUST REMOVED LAST ENTRY 40$: MOVB 1(R0),(R0)+ ;;;MOVE QUEUE DEC R2 ;;; BGT 40$ ;;; 60$: MOVB #-1,(R0) ;;;END WITH A ZERO MOV #1,R0 ;;;SET STATUS BR 100$ ;;;FINISH UP 80$: CLR R0 ;;;SET NOT IN QUEUE STATUS 100$: MTPS #0 ;;;ALLOW INTERRUPTS CMPB (R5),#3 ;ARE THERE 3 ARGUMENTS? BLO 120$ ;IF LO NO--DON'T STORE STATUS MOV 6(R5),R1 ;YES--GET POSSIBLE IND ADDRESS CMP R1,#-1 ;WAS IT DEFAULTED? BEQ 120$ ;IF EQ YES MOV R0,(R1) ;NO--STORE STATUS 120$: RETURN .SBTTL .FDSWI FIND SWB GIVEN 'IBUF' ARRAY ;+ ; .FDSWI -- FIND SWEEP CONTROL BLOCK GIVEN THE 'IBUF' ARRAY ; ; INPUTS: ; ; R0 Æ'IBUF' ARRAY ADDRESS (SAME AS USW ADDRESS) ; ; OUTPUTS: ; ; C-CLEAR FOUND SWEEP ; R1 POINTS TO SWB ; ; C-SET COULD NOT FIND SWB ; R1 0 ; ; REGISTERS ALTERED: ; ; R1 ; ;- .FDSWI::MOV #SWB0,R1 ;START WITH FIRST SWB 20$: CMP R0,S.WUSW(R1) ;IS THIS THE SWB? BEQ 40$ ;IF EQ YES MOV S.WLNK(R1),R1 ;NO--LINK TO NEXT SWB BNE 20$ ;IF MORE GO CHECK CLR R1 ;ELSE RETURN 0 SEC RETURN ; ; FOUND SWB ; 40$: CLC RETURN .END ÆEóykQ%›c, .TITLE KBFSTS RETURN SWEEP BUFFER STATUS .IDENT /M01.02/ ; ; COPYRIGHT (C) 1977, 1978, 1979 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01.01 ; B. SCHREIBER 16-AUG-77 ; ; MODIFIED BY: ; ; M. S. HARVEY 11-MAY-79 ; MSH031 -- CORRECT EVENT FLAG AND ARG LIST HANDLING ; ; TL092 -- CORRECT IWTBUF USE OF THE DEFAULT EFN ; ; THIS ROUTINE RETURNS INFORMATION ABOUT BUFFERS IN USE FOR A SWEEP ; ; SYSTEM MACRO CALLS ; .MCALL WTSE$S, KSWDF$, CLEF$S KSWDF$ .SBTTL IBFSTS RETURN BUFFER STATUS ;+ ; IBFSTS -- RETURN BUFFER STATUS ; ; CALLING SEQUENCE: ; ; CALL IBFSTS (IBUF, ISTAT) ; ; INPUTS: ; ; IBUF IS THE 'IBUF' FROM A SWEEP START ; ISTAT IS AN ARRAY OF DIMENSION 'N' (N IS THE NUMBER ; OF BUFFERS) WHICH RECEIVES THE STATUS ; 2 IN DEVICE QUEUE ; 1 IN USER QUEUE ; 0 UNKNOWN ; -1 CURRENT BUFFER ; ;- IBFSTS::TST (R5)+ ;SKIP ARG COUNT MOV (R5)+,R0 ;GET IBUF ADDRESS MOV (R5)+,R2 ;GET ISTAT ADDRESS MOV R2,R3 ;COPY FOR A SECOND MOV IB.NBF(R0),R4 ;GET # OF BUFFERS IN USE 20$: CLR (R3)+ ;CLEAR OUT ISTAT ARRAY DEC R4 BGT 20$ ;... CALL .FDSWI ;FIND SWB BCS 120$ ;SKIP IT IF NOT FOUND MTPS #PR6 ;;;LOCK OUT INTERRUPTS MOVB S.WBNO(R1),R3 ;;;GET CURRENT BUFFER NUMBER ASL R3 ;;;MAKE WORD INDEX ADD R2,R3 ;;;POINT INTO ISTAT ARRAY MOV #-1,(R3) ;;;STORE CURRENT BUFFER STATUS FOR IT MOV R0,R3 ;;;POINT AT IBUF ADD #IB.DVQ,R3 ;;;POINT TO DEVICE QUEUE MOV #2,R4 ;;;SET 'IN DEVICE QUEUE' STATUS 40$: MOVB (R3)+,R5 ;;;GET NEXT BUFFER BMI 60$ ;;;IF MI END OF QUEUE ASL R5 ;;;MAKE WORD INDEX ADD R2,R5 ;;;INDEX INTO ISTAT MOV R4,(R5) ;;;STORE STATUS BR 40$ ;;;CONTINUE 60$: ADD #IB.USQ,R0 ;;;POINT TO USER QUEUE IN IBUF DEC R4 ;;;MAKE A 2 INTO A 1 80$: MOVB (R0)+,R5 ;;;GET NEXT ITEM FROM USER QUEUE BMI 100$ ;;;IF MI ALL DONE ASL R5 ;;;MAKE WORD INDEX ADD R2,R5 ;;;POINT INTO ISTAT MOV R4,(R5) ;;;STORE STATUS BR 80$ ;;;CONTINUE 100$: MTPS #0 ;;;ALLOW INTERRUPTS 120$: RETURN .SBTTL IWTBUF WAIT FOR BUFFER ;+ ; IWTBUF -- WAIT FOR BUFFER TO FILL ; ; THIS ROUTINE WAITS FOR A BUFFER TO FILL BY WAITING ON THE ; SPECIFIED EVENT FLAG. ; ; CALLING SEQUENCE: ; ; IBUFNO = IWTBUF (IBUF, IEFN [,IBUFNO]) ; ; INPUTS: ; ; IBUF IS THE 'IBUF' PARAM FROM A SWEEP START ; IEFN IS (HOPEFULLY) THE 'IEFN' FROM A SWEEP START ; ; OUTPUTS: ; ; IBUFNO IS THE NEXT BUFFER NUMBER TO USE. ; ;+ ;- IWTBUF::MOVB (R5),R3 ;GET ARG COUNT TST (R5)+ ;POINT TO IBUF POINTER MOV (R5)+,R0 ;GET IBUF POINTER MOV .KDFEF,R2 ;ASSUME DEFAULT EVENT FLAG CMP R3,#2 ;IS IEFN ARGUMENT POSSIBLE? BLT 3$ ;IF LT NO CMP (R5),#-1 ;USE DEFAULT EVENT FLAG? BEQ 3$ ;IF EQ YES TST @(R5) ;ARE WE SURE ITS NOT THE DEFAULT? ;TL092 BEQ 3$ ;IF EQ NO, ITS THE DEFAULT ;TL092 MOV @(R5),R2 ;GET EVENT FLAG 3$: TST (R5)+ ;POINT TO IBUFNO ARGUMENT CALL .FDSWI ;FIND SWB ASSOCIATED WITH IT BCS 6$ ;IF CS SKIP IT TST S.WSTS(R1) ;IS SWEEP STILL ACTIVE? BNE 5$ ;IF NE WE ARE NO LONGER SAMPLING ;SO GO RETURN -1 TO USER MOVB IB.USQ(R0),R1 ;SEE IF A BUFFER IS AVAILABLE BPL 5$ ;IF PL BUFFER IS AVAILABLE WTSE$S R2 ;WAIT FOR ONE 5$: CLEF$S R2 ;CLEAR EVENT FLAG 6$: BR IGTB0 ;GO TO COMMON CODE .SBTTL IGTBUF GET BUFFER NUMBER ; IGTBUF -- RETURN BUFFER NUMBER ; ; THIS ROUTINE RETURNS THE NEXT BUFFER NUMBER TO USE ; ; CALLING SEQUENCE: ; ; IBUFNO = IGTBUF (IBUF [,IBUFNO]) ; ; INPUTS: ; ; IBUF IS THE 'IBUF' FROM A CALL TO START A SWEEP ; ; OUTPUTS: ; ; IBUFNO IS THE BUFFER NUMBER TO USE ; ;- IGTBUF::MOVB (R5),R3 ;GET ARGUMENT COUNT INC R3 ;MAKE SAME AS IWTBUF TST (R5)+ ;SKIP COUNT WORD MOV (R5)+,R0 ;GET IBUF/USW ADDRESS IGTB0: CALL .FDSWI ;FIND SWEEP CONTROL BLOCK BCS 40$ ;IF CS JUST RETURN -1 AND BE DONE WITH IT ADD #IB.USQ,R0 ;POINT AT THE USER BUFFER QUEUE MTPS #PR6 ;;;LOCK OUT INTERRUPTS MOVB (R0),R2 ;;;GET THE NEXT BUFFER TO USE BMI 10$ ;;;IF MI NO NEED TO MOVE THE QUEUE .REPT 7 MOVB 1(R0),(R0)+ ;;;MOVE THE QUEUE DOWN A BYTE .ENDM MOVB #-1,(R0) ;;;MARK THE END OF THE QUEUE CMPB R2,S.WEBF(R1) ;;;SHOULD THIS BUFFER SET ERROR CODE? BNE 10$ ;;;IF NE NO MOV S.WSTS(R1),@S.WUSW(R1) ;;;YES--SET ERROR CODE 10$: MTPS #0 ;;;ALLOW INTERRUPTS MOV (R5),R1 ;GET POSSIBLE IBUFNO ADDRESS CMP R3,#3 ;CAN IBUFNO BE SPECIFIED? >BLT 20$ ;IF LT NO CMP R1,#-1 ;WAS IT SPECIFIED? BEQ 20$ ;IF EQ NO MOV R2,(R1) ;YES--STORE BUFFER NUMBER 20$: MOV R2,R0 ;POSITION BUFFER NUMBER RETURN ;BACK TO CALLER WITH NUMBER IN R0 ; ; CANNOT FIND SWB FOR IBUF ; 40$: MOV #-1,R2 ;JUST RETURN NO BUFFER BR 10$ ;STORE CODE AND RETURN .END >DEy_kQ%›c, .TITLE KCLOKA CLOCK A CONTROL .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 5-SEP-77 ; ; THIS ROUTINE ACCEPTS RATES AND PRESETS TO BE USED LATER WITH ; CLOCK A. ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ ;+ ; CLOCKA -- SET RATE AND PRESET FOR CLOCK A ; ; CALLING SEQUENCE: ; ; CALL CLOCKA (IRATE, IPRSET,IND, [LUN]) ; ; INPUTS: ; ; IRATE IS THE DESIRED CLOCK RATE (0-7) ; IPRSET IS THE 16-BIT 2S COMPLEMENT PRESET TO LOAD ; LUN IS IGNORED ; ; OUTPUTS: ; ; IND RETURNS STATUS ; 0 BAD ARGUMENTS ; 1 CLOCK RATE AND PRESET SET FOR SWEEP START ; FLAGS ARE SET SO SWEEP ROUTINES KNOW THIS ROUTINE HAS BEEN ; CALLED. ; ;- CLOCKA:: .IF DF K$$W11 CALL .K.PAA ;VALIDATE AND STACK ARGS .WORD 4 ;4 ARGS .WORD 14 ;1ST TWO ARGS REQUIRED BCC 10$ ;IF CC CONTINUE .IFTF ;K$$W11 MOV #3,R4 ;STORE IN THIRD ARG (IND) CLR R3 ;STORE 0 FOR ERROR CALLR .IESTO ;TRY TO STORE ERROR CODE AND RETURN .IFT ;K$$W11 10$: MOV @(SP)+,R0 ;GET THE RATE BIC #^C<7>,R0 ;CLEAR UNINTERESTING BITS ASL R0 ;MAKE INTO CLOCK RATE .IF DF Q$$BUS ASL R0 ;A COUPLE MORE SHIFTS ASL R0 ;FOR THE Q-BUS VERSION PLEASE .ENDC ;Q$$BUS MOV R0,.KARAT ;SAVE FOR LATER MOV @(SP)+,.KAPRE ;STORE THE PRESET MOV (SP)+,R0 ;GET IND ADDRESS BEQ 20$ ;IF EQ SKIP STATUS STORE MOV #1,(R0) ;SET SUCCESS 20$: TST (SP)+ ;SKIP THE LUN BIS #K$ACAC,.KAFLG ;FLAG WE WERE CALLED .ENDC ;K$$W11 100$: RETURN .END ÏGðkQ%›c, .TITLE KSWDF SWEEP CONTROL BLOCK DEFINITIONS .IDENT /M01.01/ ; ; COPYRIGHT (C) 1977, 1978, 1979 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01.01 ; B. SCHREIBER 6-JUL-77 ; ; MODIFIED BY: ; ; M. S. HARVEY 13-MAY-79 ; MSH035 -- DEFINE INTERRUPT CONTROL FLAG FOR DR11-K ; ; ; THIS MODULE DEFINES THE SWEEP CONTROL BLOCK (SWB) OFFSETS ; AND FLAG VALUES CONTAINED WITHIN THE SWB. .MACRO KSWDF$ ;+ ; SWB - SWEEP CONTROL BLOCK OFFSETS ; ; THERE IS ONE SWEEP CONTROL BLOCK FOR EACH POSSIBLE TYPE OF SWEEP: ; A/D, D/A, DIGITAL INPUT, DIGITAL OUTPUT, GATHERING HISTOGRAM ; DATA. ; ;- .ASECT .=0 S.WLNK: .BLKW 1 ;LINK TO NEXT SWEEP CONTROL BLOCK S.WFLG: .BLKW 1 ;SWEEP CONTROL FLAGS S.WFL2: .BLKW 1 ;MORE FLAGS S.WUSW: .BLKW 3 ;USER STATUS WORD: USER, EXEC APR6 RELOC AND BIAS S.WBNO: .BLKB 1 ;CURRENT BUFFER NUMBER .BLKB 1 ;SPARE BYTE S.WEBF: .BLKB 1 ;BUFFER IN ERROR S.WLBF: .BLKB 1 ;LAST BUFFER COMPLETED (SEE KRWBF.MAC) S.WIBP: .BLKW 2*N$$MBF ;INITIAL BUFFER POINTERS S.WBPX: .BLKW 1 ;POINTER TO S.WBPT <.+2>(+RELOC IF MAPPED) S.WBPT: .BLKW 2 ;CURRENT BUFFER POINTERS S.WSIZ: .BLKW 1 ;SIZE OF BUFFER (WORDS) S.WCNT: .BLKW 1 ;COUNT OF WORDS LEFT IN BUFFER S.WNBF: .BLKW 1 ;NUMBER OF BUFFERS TO FILL OR NEGATIVE IF CONT- ; INUOUS SAMPLING S.WEFN: .BLKW 1 ;0, EFN, OR ADDRESS OF USER COMPLETION ROUTINE S.WSCR: .BLKW 1 ;SYNCHRONOUS CLOCK ROUTINE ADDRESS S.WSTS: .BLKW 1 ;FINAL STATUS S.WSTR: .BLKW 1 ;SCHMITT TRIGGER ROUTINE ADDRESS ;**NOTE**USER VIRTUAL ADDRESS S.WEFM: .BLKW 1 ;EVENT FLAG MASK (FROM $CEFI) S.WEFA: .BLKW 1 ;EVENT FLAG ADDRESS (FROM $CEFI) S.WKNT: ;VIRTUAL ADDRESS, EXEC APR6 RELOC AND BIAS ;OF KOUNT PARAMETER FOR GTHIST. NOTE: THESE ;THREE WORDS OVERLAP S.WMSK, S.WCSR, AND S.WPRI. S.WMSK: .BLKW 1 ;MASK OF BITS TO SIMULATE ST1 ON (DR11) S.WCSR: .BLKW 1 ;ACTIVE UNIT CSR ADDRESS S.WPRI: .BLKW 1 ;DEVICE HARDWARE PRIORITY LEVEL .IF DF FT$MOP .IF NDF M$$MGE S.WCLX: ;ACTIVE CLOCK QUEUE--UNMAPPED EXEC LEVEL .IFF ;M$$MGE S.WCLX: .BLKW 1 ;ACTIVE CLOCK QUEUE--APR5 MAPPING .ENDC ;M$$MGE S.WCLQ: .BLKW 1 ;ACTIVE CLOCK QUEUE--TASK MAPPING .ENDC ;FT$MOP S.WUBX: ;DR11 UNIT CONTROL BLOCK OFFSET ; ; FOLLOWING CELLS ARE FOR AD/DA SWEEP ONLY ; S.WCHB: .BLKB 1 ;CHANNEL BYTE TO LOAD IN HIGH BYTE OF A/D CSR S.WCBX: .BLKB 1 ;SAVED ORIGINAL CHANNEL BYTE S.WICH: .BLKW 1 ;STARTING CHANNEL NUMBER S.WCCH: .BLKW 1 ;CURRENT CHANNEL NUMBER S.WHCH: .BLKW 1 ;HIGHEST CHANNEL ACCESSED THIS SWEEP S.WCHX: .BLKW 1 ;NUMBER OF CHANNELS (RESET FOR S.WNCH) S.WNCH: .BLKW 1 ;NUMBER OF CHANNELS (DECREMENTED) S.WMXC: .BLKW 1 ;MAXIMUM NUMBER OF CHANNELS S.WCHI: .BLKW 1 ;CHANNEL INCREMENT S.WGNW: .BLKW 1 ;DATA WORD FOR GAIN INFORMATION S.WUNT: .BLKW 1 ;NUMBER OF UNITS ON THIS DEVICE S.WAUA: .BLKW 1 ;OFFSET TO ACTIVE UCB. (ADD R4) S.WUCB: ;THE UCB'S START HERE ;+ ; UCB - UNIT CONTROL BLOCK OFFSETS ; ; UCB'S ARE USED BY THE ADSWP, AND DASWP ; THE DR11 UCB HAS U.FLG, U.IVEC, AND U.OVEC ; ;- .=0 U.FLG: .BLKW 1 ;UNIT FLAGS U.IVEC: ;DR11 INPUT VECTOR ADDRESS U.VEC: .BLKW 1 ;VECTOR ADDRESS U.OVEC: ;DR11 OUTPUT VECTOR ADDRESS U.CSR: .BLKW 1 ;CSR OF THIS UNIT U.MAXC: .BLKW 1 ;MAX # CHANNELS ON THIS UNIT U.LGTH=. ;+ ; OFFSETS INTO IBUF ARRAY ;- .=0 IB.IOS: .BLKW 2 ;I/O STATUS BLOCK IB.USQ: .BLKW 5 ;USER BUFFER QUEUE IB.DVQ: .BLKW 5 ;DEVICE BUFFER QUEUE IB.NBF: .BLKW 1 ;NUMBER OF BUFFERS IB.BUF: ;BEGINNING OF BUFFER LIST ;+ ; FLAGS IN THE SWEEP CONTROL BLOCK (SWB) WORD S.WFLG ;- S$WAST = 100000 ;AST REQUEST FOR THIS SWEEP (SIGN BIT) ;(FREE) = 40000 ; ;(FREE) = 20000 ; ;(FREE) = 10000 ; ;(FREE) = 4000 ; S$WTSS = 2000 ;TIME-STAMPED SAMPLING S$WNOV = 1000 ;NON-CLOCK OVERFLOW DRIVEN SAMPLING S$WEXT = 400 ;EXTERNAL START (ST1) ;(FREE) = 200 ; ;(FREE) = 100 ; S$CTRL = 40 ;INTERRUPTS BY CONTROL LINE (DR11-K) S$WAGR = 5 ;AUTO GAIN RANGING (AD11) S$WSIB = 2 ;SET INTENSIFY BIT AFTER X/Y PAIR (AA11) S$WEZB = 1 ;EXTERNAL EVENT TIME FROM ZERO BASE ; MODE (HISTOGRAM) S$WSCW = 1 ;SCOPE CONTROL WORD PRESENT (AA11) S$WSTZ = 1 ;ST2 FIRING ZEROES COUNTER (HISTOGRAM) S$WUSR = S$WTSS!S$WNOV!S$WEXT!S$CTRL!7 ;FLAGS WHICH USER MAY SET ;(N O T E: SOME FLAGS IN LOW BYTE ; ARE NOT USED AT PRESENT) ;+ ; FLAGS IN WORD S.WFL2 ;- S$WACT = 100000 ;SWEEP IS ACTIVE (SIGN BIT) S$WDLY = 40000 ;SWEEP REQUESTS DELAY (LDELAY) S$WDIF = 20000 ;DIFFERENTIAL INPUT (AD11) S$WEFN = 10000 ;EFN SETTING AS OPPOSED TO AST S$WSTP = 4000 ;REQUESTED TO STOP S$WSEB = 2000 ;STOP AT END OF BUFFER S$WACA = 1000 ;ABSOLUTE CHANNEL ADDRESSING S$WSST = 400 ;SIMULATE SCHMITT TRIGGER (DIGO SETS) S$WA$D = 200 ;THIS IS A/D SWEEP BLOCK (MUST BE 200!!) S$WADC = 100 ;SETADC HAS BEEN CALLED S$WFRK = 40 ;FORK IN PROGRESS S$WIOF = 20 ;INPUT (1) OR OUTPUT (0) (DR11) S$W2CL = ^C ;CLEAR ALL BITS BUT THESE ;+ ; FLAGS IN U.FLG ;- UF$ACT = 100000 ;UNIT WILL BE/IS ACTIVE IN CURRENT SWEEP UF$CIN = 40000 ;UNIT IS CONNECT TO INTERRUPT VECTOR UF$AMK = 20000 ;AD11 HAS AM11 ON IT ;+ ; FLAGS IN .KAFLG AND .KBFLG ;- K$ACTV = 100000 ;CLOCK IS ACTIVE K$ADLY = 40000 ;DELAY IN PROGRESS K$AGTD = 20000 ;GTHIST (IS ACTIVE K$ACIN = 10000 ;CLOCK IS CONNECTED TO INTERRUPTS K$ACAC = 4000 ;CLOCKA HAS BEEN CALLED K$AOVF = 2000 ;CLOCK A HAS OVERFLOWED (GTHIST) K$AFRK = 1000 ;FORK IN PROGRESS FOR CLOCK (MULTIPLE ;CLOCK DRIVEN SWEEPS ONLY) .PSECT .MACRO KSWDF$ .ENDM .ENDM .END (GEHSkQ%›c, .TITLE KCOMM COMMON RO DATA FOR K-SERIES .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION 01 ; B. SCHREIBER 19-AUG-77 ; ; THIS MODULE CONTAINS THE READ-ONLY DATA BASE AND GLOBAL DEFINITIONS .SBTTL GLOBAL DEFINITIONS ;+ ; GLOBAL DEFINITIONS ; ; THE FOLLOWING DEFINITIONS MAY BE ALTERED BY THE USER BY EDITTING ; THIS FILE: ; ; ADTMOV THE VALUE RETURNED IN THE BUFFER WHEN THERE IS AN ; A/D TIMEOUT (THE A/D DID NOT CONVERT FAST ENOUGH). ; ; ADERRV THE VALUE RETURNED IN THE BUFFER WHEN THE A/D ERROR ; FLAG IS RAISED ON A CONVERSION (USUALLY INDICATES ; THAT CONVERSIONS ARE OCCURRING TOO RAPIDLY). ; ; TMO$AD THE TIMEOUT COUNT USED WHEN WAITING FOR THE A/D ; TO CONVERT. IF YOU SEE A LOT OF "ADTMOV"'S IN THE ; BUFFER, YOU MAY WISH TO INCREASE THIS NUMBER. ; ;- .PSECT .KSCT0 $KBASE:: ;LABEL TO DEFINE BEGINNING OF DATA BASE ADTMOV == 177776 ;A/D TIMEOUT VALUE ADERRV == 177777 ;A/D ERROR VALUE TMO$AD == 25. ;A/D TIMEOUT COUNT I$BFVW == 171717 ;'IBUF' VALIDATION WORD (TO DETERMINE ; IF SETIBF WAS CALLED) .SBTTL READ-ONLY DATA BASE ; ; A ZERO WORD ; .ZEROW::.WORD 0 .NEG1:: .WORD 177777 .ONE:: .WORD 1 .IF DF M$$MGE ; ; APR5 RELOCATION FACTOR TO ADD TO AD°DRESSES AT TASK LEVEL SO WE ; MAY REFERENCE THEM AT EXEC LEVEL ON MAPPED SYSTEM. ; $KRLC5::.WORD 120000-<$KBASE & 177700> ;VALUE TO BE ADDED FOR APR5 .ENDC .END °NEækQ%›c, .TITLE KCVADF CONVERT A/D INPUT TO FLOATING POINT .IDENT /M01.01/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 22-SEP-77 ; ; B. SCHREIBER 13-JUN-78 ; ; BLS054 -- CONVERT THE ARGUMENT RATHER THAN ITS ADDRESS ; ; FROM THE LPS ROUTINE CVSWG ; ; THIS ROUTINE CONVERTS A/D INPUT TO A FLOATING POINT NUMBER ; ; TABLE OF GAIN VALUES ; GAIN: .BYTE 6,4,2,0 .SBTTL CVADF CONVERT A/D INPUT TO FLOATING POINT ;+ ; ROUTINE TO CONVERT SWITCH GAIN TO FLOATING PT ; ; CVADF (IVAL, [VAL]) ; ; IVAL = SWITCH GAIN VALUE ; ; BITS 15-12 GAIN ; 0=GAIN1 ; 1=GAIN4 ; 2=GAIN16 ; 3=GAIN64 ; ; BITS 11-0 VALUE ALWAYS PLUS ; ; ; INPUT R5 = ^ TO ARG LIST (FORTRAN FORMAT) ; ; OUTPUT VALUE IN R0-R1 ; ; USE VAR=(64*VALUE)/GAIN ;- CVADF:: MOV @2(R5),R2 ;GET IVAL BMI 40$ ; IF MINUS HANDLE SPECIALLY MOV R2,R1 ;ISOLATE GAIN BIC #147777,R2 ; BIC R2,R1 ; CLR R0 ;CLEAR HIGH ORDER SWAB R2 ; PICK UP GAIN*1 ASR R2 ASR R2 ASR R2 ASR R2 MOVB GAIN(R2),R2 ; GET NUMBER OF SHIFTS BEQ 60$ ; IF =0 THEN DONE 20$: ASL R1 ROL R0 DEC R2 BNE 20$ BR 60$ 40$: MOV #-1,R0 ; SET A MINUS PARAM MOV R2,R1 ;+ ; ROUTINE TO FLOAT A DOUBLE WORD INTEGER ; INPUT R0 -- HIGH ORDER ; R1 -- LOW ORDER ; ; OUTPUT R0-R1 FLOATING VALUE ; R2,R3 DISTROYED ;- 60$: MOV R1,R3 ;FIND 0 FIRST CLR R2 ; CLEAR EXPONENT WORD BIS R0,R3 BEQ 140$ ; IF ZERO SET R0=0 AND R1=0 AND R2=0 TST R0 ;TEST MINUS BPL 80$ ; BIS #400,R2 ;IF MINUS SET SIGN BIT IN EXPON. WORD NEG R0 ;2'S COMPLEMENT DOUBLE WORD NEG R1 SBC R0 ; 80$: BISB #240,R2 ;SET HIGHEST EXPONENT 100$: ASL R1 ;NORMALIZE NUMBER ; BY SEARCHING FOR C BIT (HIDDEN NORM) ROL R0 BCS 120$ DEC R2 ;DECREASE EXPONENT BR 1h00$ ; 120$: CLRB R1 ; SET UP R0,R1 FROM R2,R0,R1 BISB R0,R1 SWAB R1 CLRB R0 BISB R2,R0 SWAB R0 SWAB R2 ASR R2 ROR R0 ROR R1 140$: CMPB (R5),#2 ;TWO ARGUMENTS? BNE 160$ ;IF NE NO--NO VALUE TO STORE MOV 4(R5),R2 ;YES--GET ADDRESS MOV R0,(R2)+ ;STORE HIGH ORDER PART MOV R1,(R2) ;STORE LOW ORDER PART 160$: RETURN ; .END hiE.kQ%›c, .TITLE KDIGO SET DIGITAL INPUT START FOR SWEEP .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 5-SEP-77 ; ; THIS ROUTINE ENABLES A DR11 INPUT BIT(S) TO START A SWEEP ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$, KDVDF$, CINT$S KSWDF$ KDVDF$ .SBTTL DIGO SET DIGITAL INPUT START EVENT ;+ ; DIGO -- SET DR11 INPUT BIT TO START SWEEP ; ; CALLING SEQUENCE: ; ; CALL DIGO (IUNIT, MASK, [KOUNT]) ; ; INPUTS: ; ; IUNIT DR11 UNIT NUMBER (DEFAULT IS 0) ; MASK MASK TO SELECT START BITS ; IF DEFAULTED IMMEDIATELY SIMULATE ST1 FIRING ; IF ZERO, CANCEL PENDING DIGITAL START ; KOUNT RECEIVES THE VALUE OF THE 16-BIT SOFTWARE CLOCK ; IF MASK IS DEFAULTED. ; ; OUTPUTS: ; ; DR11 IS ENABLED TO START SWEEP ; ;- DIGO:: CALL .K.PAA ;VALIDATE ARGS AND PUSH ON STACK .WORD 3 ;3 ARGS .WORD 0 BCS 100$ ;IF CS ERROR MOV (SP)+,R0 ;GET UNIT # ADDRESS BNE 20$ ;IF GIVEN GO MOV #.ZEROW,R0 ;ELSE USE 0 20$: MOV (R0),R0 ;GET UNIT # ASL R0 ;CONVERT TO WORD INDEX MOV (SP)+,R1 ;GET MASK ADDRESS BEQ 200$ ;IF EQ SIMULATE ST1 NOW .IF DF N$DR11 MOV .DRUTB(R0),R4 ;GET SWB ADDRESS CMP R4,#DRSW0 ;IS IT A LEGAL SWB? BLO 120$ ;IF LO NO CMP R4,#.DRUTB ;MAYBE... BHIS 120$ ;IF HIS NO MOV (R1),S.WMSK(R4) ;READ MASK BITS BEQ 300$ ;IF EQ STOP DIGO REQUEST ; ; WE MUST NOW CONNECT TO INTERRUPTS AND ENABLE FOR INPUT INTERRUPT ; TST S.WFL2(R4) ;ACTIVE SWEEP? BPL 40$ ;IF PL NO BIT #S$WNOV,S.WFLG(R4) ;YES--IS IT INTERRUPT DRIVEN? BEQ 40$ ;IF EQ NO BIT #S$WIOF,S.WFL2(R4) ;YES--IS IT INPUT? BNE 60$ ;IF NE YES--SKIP CONNECT 40$: MOV R4,R3 ;POINT TO SWB SUB #4,R3 ;BACK UP TO INTERRUPT ROUTINE BIS #S$WSST,S.WFL2(R4) ;FLAG SIMULATING SCHMITT TRIGGER CINT$S S.WUBX+U.IVEC(R4),#$KBASE,R3,#.DREDI,S.WPRI(R4) ;CINT BCS 320$ ;IF CS COULD NOT CONNECT 60$: ;REF LABEL .IF DF M$$MGE MOV #.DRIN3+120000-<$KBASE&177700>,-2(R4) ;PT TO ISR .IFF ;M$$MGE MOV #.DRIN3,-2(R4) ;POINT TO ISR .ENDC ;M$$MGE BIS #DI$ENB,@S.WCSR(R4) ;SET INPUT INTERRUPT ENABLE BIT .ENDC ;N$DR11 80$: TST (SP)+ ;SKIP KOUNT ARGUMENT 100$: RETURN ; ; ILLEGAL UNIT ; 120$: CMP (SP)+,(SP)+ ;CLEAN THE STACK RETURN ; ; SIMULATE SCHMITT TRIGGER NOW ; 200$: ;REF LABEL .IF NDF FT$MOP MOV .KASWB,R4 ;GET SWB ADDRESS OF ACTIVE SWEEP BEQ 80$ ;NOTHING TO DO IF ZERO BIT #S$WEXT,S.WFLG(R4) ;WANT EXTERNAL START? BEQ 80$ ;IF EQ NO MTPS #PR6 ;YES--LOCK OUT INTERRUPTS CALL @S.WSTR(R4) ;;;CALL SCHMITT TRIG ROUTINE BIC #S$WEXT,S.WFLG(R4) ;;;CLEAR EXT START FLAG .IFF ;FT$MOP MOV #.KLQUU-S.WCLQ,R4 ;POINT TO CLOCK QUEUE HEAD MTPS #PR6 ;LOCK OUT INTERRUPTS 210$: MOV S.WCLQ(R4),R4 ;;;LINK TO NEXT BEQ 220$ ;;;IF EQ ALL DONE BIT #S$WEXT,S.WFLG(R4) ;;;WANT EXTERNAL START? BEQ 210$ ;;;IF EQ NO--IGNORE CALL @S.WSTR(R4) ;;;YES--CALL SCHMITT TRIG ROUTINE BIC #S$WEXT,S.WFLG(R4) ;;;CLEAR EXT START FLAG BR 210$ ;;;CONTINUE .ENDC ;FT$MOP 220$: MOV (SP)+,R3 ;;;GET KOUNT ADDRESS BEQ 280$ ;;;IF EQ NOT GIVEN .IF DF K$W11K MOV .CLK16,(R3) ;;;YES--STORE 16 BIT CLOCK AT TIME OF ST1 .IFF ;K$W11K CLR (R3) ;;;NO CLOCK--CLEAR KOUNT .ENDC ;K$W11K 280$: ;;;REF LABEL .IF DF K$$W11 MOV .KACSR,R3 ;;;GET CLOCK A CSR ADDRESS BIC #KA$STF!KA$STI!KA$STE,(R3) ;;;DISABLE CLOCK SCHMITT TRIG BIT #KA$ENB,(R3) ;;;SEE IF CLOCK ALREADY ENABLED BNE 290$ ;;;IF NE YES??--DON'T RE-ARM IT INC (R3) ;;;SET CLOCK A'COUNTING .ENDC ;K$$W11 290$: MTPS #0 ;;;ALLOW INTERRUPTS RETURN ;DONE ; ; KILL PENDING REQUEST ; 300$: BIT #S$WSST,S.WFL2(R4) ;SIMULATING SCHMITT TRIGGER? BEQ 80$ ;IF EQ NO--JUST RETURN 320$: BIC #S$WSST,S.WFL2(R4) ;YES--WE WERE... BIC #DI$ENB,@S.WCSR(R4) ;CLEAR INPUT INTERRUPT ENABLE BR 80$ ;RETURN .END iEÀ]kQ%›c, .TITLE KDIO SINGLE DIGITAL I/O .IDENT /1.03/ ; ; COPYRIGHT (C) 1977, 1978, 1979 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 1.03 ; B. SCHREIBER 5-SEP-77 ; ; MODIFIED BY: ; ; B. SCHREIBER 15-MAY-78 ; BLS048 -- CORRECT USE OF MASK. CLEAR SAVED R5 FROM STACK ; BEFORE SUCCESSFUL ROUTINE EXIT. WRITE VALUE ; READ FROM DIGITAL REGISTER BACK TO REGISTER IN ; ALL CASES. ; ; M. S. HARVEY 12-MAY-79 ; MSH034 -- ALTER ONLY THOSE OUTPUT REGISTER BITS THAT HAVE ; BEEN MASK MARKED ; ; HB008 -- CONDITIONALIZE WRITE ACCESS TO RECEIVE BUFFER ; FOR Q-BUS DRV11 ; ; ; THIS MODULE PROCESSES SINGLE DIGITAL INPUT/OUTPUT ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$,KDVDF$ KSWDF$ KDVDF$ .SBTTL IDINP/DINP SINGLE DIGITAL INPUT ;+ ; IDINP/DINP -- SINGLE DIGIAL INPUT ; ; CALLING SEQUENCES: ; ; CALL DINP (IUNIT, [MASK], IOSB, INPUT) ; OR ; IND = IDINP (IUNIT, [MASK], IOSB, [INPUT]) ; ; OR IND = IDINP (IUNIT) !FAST VERSION ONLY ; ; INPUTS: ; ; IUNIT IS THE DR11 UNIT (DEFAULT IS 0) ; MASK SELECTS WHICH BITS WILL BE CLEARED IN DR11 INPUT REGISTER ; ; OUTPUTS: ; ; INPUT RECEIVES THE DATA INPUT FROM THE DR11 ; IND RECEIVES THE DATA INPUT FROM THE DR11 ; IOSB RECEIVES THE I/O STATUS ; ;- .IF NDF Q$$DIO IDINP:: DINP:: MOV R5,-(SP) ;SAVE ARG PTR CALL .K.PAA ;VALIDATE AND STACK ARGS .WORD 4 ;4 ARGS .WORD 2 ;IOSB REQUIRED BCS DIOBAD ;IF CS BAD ARGS MOV (SP)+,R1 ;GET UNIT NUMBER BNE 20$ ;IF NE OK MOV #.ZEROW,R1 ;ELSE USE 0 20$: MOV (R1),R1 ;GET UNIT NUMBER ASL R1 ;MAKE INDEX MOV .DRUTB(R1),R1 ;GET POINTER TO SWB CMP R1,#DRSW0 ;MAKE SURE LEGAL SWB ADDRESS BLO 80$ ;IF LO NOT LEGAL CMP R1,#.DRUTB ;THIS FOLLOWS LAST SWB BHIS 80$ ;IF HIS NOT LEGAL MOV S.WCSR(R1),R1 ;GET CSR ADDRESS MOV DI$BUF(R1),R0 ;READ INPUT REGISTER MOV (SP)+,R2 ;GET MASK ADDRESS BNE 30$ ;IF NE GO USE MASK MOV #.NEG1,R2 ;ELSE USE DEFAULT OF ALL 1'S ;HB008 .IF DF L$$SI1 ;HB008 30$: ;HB008 .IFF ;HB008 ;HB008 30$: MOV (R2),DI$BUF(R1) ;CLEAR BITS IN DIGITAL INPUT REGISTER ;HB008 .ENDC ;HB008 ;HB008 40$: MOV #IS.SUC,@(SP)+ ;STORE SUCCESS MOV (SP)+,R1 ;GET 'INPUT' ADDRESS BEQ 60$ ;IF EQ SKIP IT MOV R0,(R1) ;ELSE STORE DATA 60$: TST (SP)+ ;CLEAR SAVED R5 FROM STACK RETURN 80$: DIOBD0: MOV R5,SP ;ILL UNIT--RESTORE STACK ; ; BAD PARAMETERS ; DIOBAD: MOV #-,R3 ;SET VALUE TO STORE MOV #3,R4 ;STORE IN 3RD ARGUMENT MOV (SP)+,R5 ;GET ARG PTR BACK CALLR .IESTO ;TRY TO STORE ERROR AND RETURN .IFF ;Q$$DIO DINP:: IDINP:: MOV @2(R5),R1 ;GET UNIT # ASL R1 ;MAKE WORD INDEX MOV .DRUTB(R1),R1 ;GET SWB ADDRESS MOV S.WCSR(R1),R1 ;GET CSR ADDRESS MOV DI$BUF(R1),R0 ;READ DR11 INPUT REGISTER .IF NDF L$$SI1 ;HB008 ;HB008 MOV R0,DI$BUF(R1) ;CLEAR BITS IN DR11 ;HB008 .ENDC ;HB008 ;HB008 RETURN .ENDC ;Q$$DIO .SBTTL IDOUT/DOUT SINGLE DIGITAL OUTPUT ;+ ; DOUT/IDOUT -- SINGLE DIGITAL OUTPUT ; ; CALLING SEQUENCES: ; ; CALL DOUT (IUNIT, [MASK], IOSB, IDATA) ; OR ; IOUT = IDOUT (IUNIT, [MASK], IOSB, IDATA) ; ; INPUTS: ; ; IUNIT IS THE DR11 UNIT NUMBER (DEFAULT IS 0) ; MASK SELECTS THE BITS TO BE ALTERED ; IDATA IS THE DATA WORD TO OUTPUT TO THE DR11 ; ; OUTPUTS: ; ; IOSB RECEIVES THE I/O STATUS ; IOUT RECEIVES A COPY OF THE DR11 OUTPUT REGISTER IF CALLED ; AS A FUNCTION. ; ; NOTE: FOR THE QUICK VERSION, THE ARGUMENTS MASK AND IOSB ARE ; NOT USED, BUT ARE REQUIRED (OR DEFAULTED) TO KEEP THE SAME ; STRUCTURE AS THE SLOW VERSION. ;- .IF NDF Q$$DIO DOUT:: IDOUT:: MOV R5,-(SP) ;SAVE ARG PTR CALL .K.PAA ;VALIDATE AND STACK ARGS .WORD 4 ;4 ARGS .WORD 2 ;MASK BCS DIOBAD ;IF CS BAD ARGS MOV (SP)+,R1 ;GET UNIT NUMBER BNE 20$ ;IF NE GO USE MOV #.ZEROW,R1 ;ELSE USE 0 20$: MOV (R1),R1 ;GET UNIT NUMBER ASL R1 ;MAKE WORD INDEX MOV .DRUTB(R1),R1 ;GET PTR TO SWB CMP R1,#DRSW0 ;SEE IF A REAL SWB BLO DIOBD0 ;IF LO NO CMP R1,#.DRUTB ;... BHIS DIOBD0 ;IF HIS ILLEGAL MOV S.WCSR(R1),R1 ;GET CSR ADDRESS MOV (SP)+,R2 ;GET MASK ADDRESS BNE 40$ ;IF NE OK MOV #.NEG1,R2 ;ELSE USE ALL 1S 40$: MOV (R2),R2 ;GET MASK MOV DO$BUF(R1),R0 ;GET CURRENT OUTPUT REGISTER CONTENTS BIC R2,R0 ;INITIALIZE THE MASKED BITS COM R2 ;COMPLEMENT MOV (SP)+,R3 ;GET IOSB ADDRESS MOV @(SP)+,R4 ;GET OUTPUT DATA BIC R2,R4 ;MASK BIS R0,R4 ;RECOVER PROTECTED OUTPUT REGISTER BITS MOV R4,DO$BUF(R1) ;STORE DIGITAL OUTPUT DATA MOV #IS.SUC,(R3)+ ;SET SUCCESS MOV R4,R0 ;COPY IN CASE CALLED AS A FUNCTION TST (SP)+ ;CLEAR SAVED R5 FROM STACK RETURN .IFF ;Q$$DIO IDOUT:: DOUT:: MOV @2(R5),R1 ;GET UNIT # ASL R1 ;MAKE WORD INDEX MOV .DRUTB(R1),R1 ;GET SWB ADDRESS MOV S.WCSR(R1),R1 ;GET DR11 CSR ADDRESS MOV L@10(R5),DO$BUF(R1) ;WRITE DATA TO DR11 RETURN .ENDC ;Q$$DIO .END LiEhzkQ%›c, .TITLE KDISWP DIGITAL INPUT SWEEP .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 11-SEP-77 ; ; THIS MODULE INITIATES A DIGITAL INPUT SWEEP THROUGH THE DR11-K ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ .SBTTL DISWP DIGITAL INPUT SWEEP START ;+ ; DISWP -- START DIGITAL INPUT SWEEP ON DR11-K ; ; CALLING SEQUENCE: ; ; CALL DISWP (IBUF,LBUF,NBUF,MODE,IPRSET,IEFN,LDELAY,IUNIT) ; ; INPUTS: ; ; SEE DOCUMENTATION ; ; OUTPUTS: ; ; SWEEP IS STARTED UNLESS ERROR DETECTED ; ;- DISWP:: MOV R5,-(SP) ;SAVE ARG PTR CALL .K.PAA ;VALIDATE ARGS AND STACK .WORD 8. ;EIGHT ARGS .WORD 300 ;MASK FOR REQUIRED ARGS BCC 10$ ;IF CC CONTINUE MOV #-,R3 ;ELSE SET ERROR CODE CLR R4 ;IN CASE MULT SWEEPS BR 600$ ;STORE ERROR CODE AND RETURN 10$: MOV 16(SP),R0 ;REACH DOWN AND GET IUNIT ADDRESS BNE 20$ ;IF NOT DEFAULTED GO MOV #.ZEROW,R0 ;ELSE USE UNIT 0 20$: MOV (R0),R0 ;GET UNIT NUMBER ASL R0 ;CONVERT TO INDEX MOV .DRUTB(R0),R4 ;GET SWEEP CONTROL BLOCK ADDRESS CMP R4,#DRSW0 ;ENSURE A REAL SWB BLO 200$ ;IF LO ERROR CMP R4,#.DRUTB ;CHECK HIGH END BHIS 200$ ;IF HIS ERROR CALL .K.SET ;SET UP SWEEP BLOCK AND VALIDATE BCS 200$ ;IF CS ERROR DETECTED CALL .K.DLY ;CHECK DELAY PARAMETER BCS 300$ ;IF CS ERROR TST (SP)+ ;POP OFF IUNIT ADDRESS BIS #S$WIOF,S.WFL2(R4) ;FLAG THAT THIS IS INPUT CALL .K.STB ;SET UP BUFFER INFORMATION BCS 400$ ;IF CS ILLEGAL NUMBER OF BUFFERS BIT #S$WNOV,S.WFLG(R4) ;IS THIS INTERRUPT DRIVEN SWEEP? BEQ 60$ ;IF EQ NO--SYNCHRONOUS CLOCK DRIVEN CALL .DRCNI ;CONNECT DR11 TO INTERRUPTS BCS 300$ ;IF CS ERROR CALL .DRSTR ;ENABLE DR11 INTERRUPTS BR 80$ ;FINISH UP ; ; SYNCRHONOUS CLOCK SWEEP START ; 60$: ;REF LABEL .IF DF K$$W11 CALL .DRSSC ;SELECT SYNCHRONOUS CLOCK ROUTINE CALL .KLQIN ;INSERT INTO CLOCK QUEUE CALL .KWCNI ;CONNECT CLOCK AND ENABLE IT BCS 300$ ;IF CS ERROR .IFF ;K$$W11 MOV #-,R3 ;SET CLOCK OPTION NOT PRESENT BR 500$ .ENDC ;K$$W11 80$: BIS #S$WACT,S.WFL2(R4) ;FLAG SWB IS ACTIVE MOV (SP)+,R5 ;RESTORE ARG PTR RETURN ; ; ERROR RETURNS ; ; BAD PARAMETERS ; 200$: MOV #-,R3 ;SET CODE BR 500$ ; ; RESOURCE INZ USE ; 300$: MOV #-,R3 ;SET CODE BR 500$ ; ; BAD BUFFER SPECIFICATION ; 400$: MOV #-,R3 500$: MOV R5,SP ;RESTORE PRE-.K.PAA STACK POINTER 600$: CALL .KLQRM ;REMOVE FROM QUEUE IF INSERTED MOV #1,R4 ;STORE IN 1ST PARAMETER MOV (SP)+,R5 ;RESTORE ARG PTR CALLR .IESTO ;STORE CODE AND RETURN .END ZoEhzkQ%›c, .TITLE KDOSWP DIGITAL OUTPUT SWEEP .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 11-SEP-77 ; ; THIS MODULE INITIATES A DIGITAL OUTPUT SWEEP THROUGH THE DR11-K ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ .SBTTL DOSWP DIGITAL OUTPUT SWEEP START ;+ ; DOSWP -- START DIGITAL OUTPUT SWEEP ON DR11-K ; ; CALLING SEQUENCE: ; ; CALL DOSWP (IBUF,LBUF,NBUF,MODE,IPRSET,IEFN,LDELAY,IUNIT) ; ; INPUTS: ; ; SEE DOCUMENTATION ; ; OUTPUTS: ; ; SWEEP IS STARTED UNLESS ERROR DETECTED ; ;- DOSWP:: MOV R5,-(SP) ;SAVE ARG PTR CALL .K.PAA ;VALIDATE ARGS AND STACK .WORD 8. ;EIGHT ARGS .WORD 300 ;MASK FOR REQUIRED ARGS BCC 10$ ;IF CC OK MOV #-,R3 ;ELSE SET BAD PARAMETERS CLR R4 ;IN CASE MULT SWEEPS BR 600$ ;STORE ERROR CODE AND EXIT 10$: MOV 16(SP),R0 ;REACH DOWN AND GET IUNIT ADDRESS BNE 20$ ;IF NOT DEFAULTED GO MOV #.ZEROW,R0 ;ELSE USE UNIT 0 20$: MOV (R0),R0 ;GET UNIT NUMBER ASL R0 ;CONVERT TO INDEX MOV .DRUTB(R0),R4 ;GET SWEEP CONTROL BLOCK ADDRESS CMP R4,#DRSW0 ;ENSURE A REAL SWB BLO 200$ ;IF LO ERROR CMP R4,#.DRUTB ;CHECK HIGH END BHIS 200$ ;IF HIS ERROR CALL .K.SET ;SET UP SWEEP BLOCK AND VALIDATE BCS 200$ ;IF CS ERROR DETECTED CALL .K.DLY ;CHECK DELAY PARAMETER BCS 300$ ;IF CS ERROR TST (SP)+ ;POP OFF IUNIT ADDRESS BIC #S$WIOF,S.WFL2(R4) ;FLAG THAT THIS IS OUTPUT CALL .K.STB ;SET UP BUFFER INFORMATION BCS 400$ ;IF CS ILLEGAL NUMBER OF BUFFERS BIT #S$WNOV,S.WFLG(R4) ;IS THIS INTERRUPT DRIVEN SWEEP? BEQ 60$ ;IF EQ NO--SYNCHRONOUS CLOCK DRIVEN CALL .DRCNI ;CONNECT DR11 TO INTERRUPTS BCS 300$ ;IF CS ERROR CALL .DRSTR ;ENABLE DR11 INTERRUPTS BR 80$ ;GO FINISH UP ; ; SYNCRHONOUS CLOCK SWEEP START ; 60$: .IF DF K$$W11 CALL .DRSSC ;SELECT SYNCHRONOUS CLOCK ROUTINE CALL .KLQIN ;INSERT INTO CLOCK QUEUE CALL .KWCNI ;CONNECT CLOCK AND ENABLE IT BCS 300$ ;IF CS ERROR .IFF ;K$$W11 MOV #-,R3 ;SET CLOCK OPTION NOT PRESENT BR 500$ ;RETURN STATUS .ENDC ;K$$W11 80$: BIS #S$WACT,S.WFL2(R4) ;FLAG UNIT IS ACTIVE MOV (SP)+,R5 ;RESTORE ARG PTR RETURN ; ; ERROR RETURNS ; ; BAD PARAMETERS ; 200$: MOV #-,R3 BR 500$ ; ; RESOURCE IN US>E ; 300$: MOV #-,R3 BR 500$ ; ; BAD BUFFER SPECIFICATION ; 400$: MOV #-,R3 500$: MOV R5,SP ;RESTORE PRE-.K.PAA STACK POINTER 600$: CALL .KLQRM ;REMOVE FROM QUEUE IF INSERTED MOV #1,R4 ;STORE IN 1ST ARG MOV (SP)+,R5 ;RESTORE ARG PTR CALLR .IESTO ;STORE AND RETURN .END >rEækQ%›c, .TITLE KDRDRV DRIVER ROUTINES FOR DR11 .IDENT /V04.00/ ; ; COPYRIGHT (c) 1977, 1982 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION V04.00 ; B. SCHREIBER 4-SEP-77 ; ; MODIFIED BY: ; ; B. SCHREIBER 15-MAY-78 ; BLS048 -- CLEAR BITS IN DR11 INPUT REGISTER ON SYNCH. I/O. ; ; M. S. HARVEY 12-MAY-79 ; MSH032 -- IGNORE INTERRUPTS FOLLOWING END OF DATA SWEEP ; ; M. S. HARVEY 12-MAY-79 ; MSH033 -- CORRECT STACK MANIPULATION BUG ; ; M. S. HARVEY 13-MAY-79 ; MSH035 -- IMPLEMENT INPUT SERVICE FOR INTERRUPTS BY CONTROL LINE ; ; H. BERNSTEIN 16-SEP-81 ; HB015 -- CORRECT ACCESS TO READ ONLY REGISTER FOR Q-BUS ; ; ; THIS MODULE CONTAINS THE DR11 INTERRUPT AND CONNECT TO INTERRUPT ; ROUTINES. ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$, KDVDF$, CINT$S KSWDF$ KDVDF$ .SBTTL .DRCNI CONNECT DR11 TO INTERRUPT VECTOR ;+ ; .DRCNI -- CONNECT DR11 TO INTERRUPT VECTOR ; ; INPUTS: ; ; R4 SWB ADDRESS ; ; OUTPUTS: ; ; C-SET COULD NOT CONNECT ; C-CLEAR SUCCESS ; ;- .DRCNI::CALL .DRSLI ;SELECT INTERRUPT ROUTINE BIT #UF$CIN,S.WUBX+U.FLG(R4) ;ALREADY CONNECTED? BNE 20$ ;IF NE YES--DON'T RETRY MOV R4,R3 ;COPY SWB ADDRESS SUB #4,R3 ;POINT TO INTERRUPT ROUTINE MOV S.WUBX+U.IVEC(R4),R2 ;ASSUME INPUT CONNECT BIT #S$WIOF,S.WFL2(R4) ;IS IT? BNE 10$ ;IF NE YES MOV S.WUBX+U.OVEC(R4),R2 ;NO--GET OVA 10$: CINT$S R2,#$KBASE,R3,#.DREDI,S.WPRI(R4),#.DRAST ;CONNECT TO INTERRUPT VECTOR BCS 40$ 20$: BIS #UF$CIN,S.WUBX+U.FLG(R4) ;FLAG CONNECTED CLC 40$: RETURN .SBTTL .DREDI DR11 ENABLE/DISABLE CINT ROUTINE ;+ ; .DREDI -- ENABLE/DISABLE ROUTINE FOR DR11 CONNECT TO INTERRUPTS ; ; THIS ROUTINE IS CALLED BY THE EXECUTIVE WHEN CONNECTING OR ; DISCONNECTING FROM INTERRUPT VECTORS. ; ; INPUTS: ; ; R1 POINT TO INTERRUPT TRANSFER BLOCK ; ; OUTPUTS: ; ; INTERRUPTS FOR THE SPECIFIED DR11 ARE DISABLED. ; ALL INPUT BITS ARE CLEARED IF THIS IS AN INPUT CONNECT. ; ;- .PSECT .KSCT1 .DREDI::MOV X.VEC(R1),R0 ;GET VECTOR ADDRESS OF THIS DR11 MOV .DRXPT,R2 ;GET POINTER TO DR11 SWB POINTER TABLE 20$: MOV (R2)+,R3 ;GET NEXT DR11 SWB ADDRESS BEQ 60$ ;IF EQ I AM CONFUSED CMP S.WUBX+U.IVEC(R3),R0 ;IS THE INPUT VECTOR CORRECT? BEQ 40$ ;IF EQ YES CMP S.WUBX+U.OVEC(R3),R0 ;NO--IS OUTPUT VECTOR CORRECT? BNE 20$ ;IF NE NO--LOOK AT NEXT DR11 40$: MOV S.WCSR(R3),R2 ;GET DR11 CSR ADDRESS CMP S.WUBX+U.IVEC(R3),R0 ;IS THIS AN INPUT CONNECT? BNE 50$ ;IF NE NO BIC #DI$ENB,(R2) ;YES--DISABLE INPUT INTERRUPTS ;HB015 .IF NDF Q$$BUS ;HB015 ;HB015 MOV #177777,DI$BUF(R2) ;YES--CLEAR ALL INPUT BITS ;HB015 ;HB015 .ENDC ;Q$$BUS ;HB015 ;HB015 BR 60$ ;ALL DONE ;**-1 50$: BIC #DO$ENB,(R2) ;DISABLE OUTPUT INTERRUPTS 60$: MOV @#$TKTCB,.KTKCB ;AND GET MY TCB ADDRESS FOR LATER RETURN .SBTTL .DRSSC SELECT SYNCHRONOUS CLOCK ROUTINE ;+ ; .DRSSC -- SELECT SYNCHRONOUS CLOCK ROUTINE ; ; THIS ROUTINE SELECTS EITHER .DRISR OR .DROSR FOR THE CLOCK ; INTERRUPT ROUTINE TO CALL. ; ; INPUTS: ; ; R4 POINTS TO A COMPLETE SWB ; ; OUTPUTS: ; ; S.WSCR IS FILLED IN THE SWEEP CONTROL BLOCK POINTED TO BY R4 ; S.WSTR IS FILLED IN WITH .DRSTR (USER VIRTUAL ADDRESS) ; ;- .IF DF K$$W11 .DRSSC::MOV #.DRSTR,S.WSTR(R4) ;SET SCHMITT TRIGGER ROUTINE ADDR MOV #.DROSR,-(SP) ;ASSUME OUTPUT SWEEP BIT #S$WIOF,S.WFL2(R4) ;IS THIS AN OUTPUT SWEEP? BEQ 20$ ;IF EQ YES MOV #.DRISR,(SP) ;NO--SET FOR INPUT SWEEP .IF DF K$W11K BIT #S$WTSS,S.WFLG(R4) ;IS IT TIME-STAMPED INPUT SAMPLING? BEQ 20$ ;IF EQ NO--ALL SET MOV #.DRIST,(SP) ;YES--SET FOR IT .ENDC ;K$W11K 20$: ;REF LABEL .IF DF M$$MGE ADD $KRLC5,(SP) ;RELOCATE TO APR5 FOR CLOCK INTERRUPT .ENDC ;M$$MGE MOV (SP)+,S.WSCR(R4);SET THE SWB RETURN ;BACK TO CALLER .ENDC ;K$$W11 .SBTTL .DRSLI SELECT DR11 INTERRUPT ROUTINE ;+ ; .DRSLI -- SELECT DR11 INTERRUPT ROUTINE ; ; INPUTS: ; ; R4 POINTS TO SWB ; SWB SET UP ; ; OUTPUTS: ; ; PROPER INTERRUPT ROUTINE ADDRESS LOADED INTO INTERRUPT ; TRANSFER VECTOR IN FRONT OF SWB ; ;- .DRSLI::MOV #.DRIN0,-(SP) ;ASSUME SIMPLE INPUT BIT #S$WIOF,S.WFL2(R4) ;IS IT INPUT? BNE 20$ ;IF NE YES MOV #.DRIN2,(SP) ;NO--SET FOR OUTPUT BR 40$ ;SKIP 20$: ;REF LABEL .IF DF K$W11K BIT #S$WTSS,S.WFLG(R4) ;TIME STAMPED SAMPLING? BEQ 40$ ;IF EQ NO MOV #.DRIN1,(SP) ;YES--SET FOR IT .ENDC ;K$W11K 40$: ;REF LABEL .IF DF M$$MGE ADD $KRLC5,(SP) ;RELOCATE TO APR5 .ENDC ;M$$MGE MOV (SP)+,-2(R4) ;STORE ADDRESS IN FRONT OF SWB ; (THIS IS 2ND WORD OF JSR INSTRUCTION) RETURN ;BACK TO CALLER .SBTTL DRINT DR11 INTERRUPT ROUTINES ;+ ; .DRIN0 -- DIGITAL INPUT INTERRUPT ROUTINE ; ; THIS ROUTINE IS ENTERED WITH A JSR R4, .DRIN0 FROM THE ; DATA BASE. THIS WILL LEAVE R4 POINTING TO THE PROPER SWB. ; ; INPUTS: ; ; R4 POINT TO SWB ; ; OUTPUTS: ; ; WORD READ INTO USER BUFFER. IF NECESSARY, FORK TO SET ; EVENT FLAG OR QUEUE AN AST. ; ;- .DRIN0::MOV R3,(SP) ;;;SAVE R3--OVERWRITE OLD R4 .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .ENDC ;M$$MGE MOV S.WCSR(R4),R3 ;;;GET CSR ADDRESS BIT #S$CTRL,S.WFLG(R4) ;;;INTERRUPT BY CONTROL LINES? BEQ 5$ ;;;IF EQ NO BIS #DI$ENB,(R3) ;;;ENABLE INTS AND CLEAR IN FLAG MOV DI$BUF(R3),R3 ;;;GET DATUM BR 7$ 5$: MOV DI$BUF(R3),-(SP) ;;;READ DR11 ;HB015 .IF NDF Q$$BUS ;HB015 ;HB015 MOV (SP),DI$BUF(R3) ;;;WRITE IT BACK ;HB015 ;HB015 .ENDC ;Q$$BUS ;HB015 ;HB015 BIS #DI$ENB,(R3) ;;;ENABLE FOR NEXT INTERRUPT ;**-1 MOV (SP)+,R3 ;;;GET DATUM 7$: CALL .KWRWD ;;;WRITE TO USER BUFFER BR .DRINX ;;;GO TO COMMON CODE .IF DF K$W11K ;+ ; .DRIN1 -- DR11 INPUT INTERRUPT WITH TIME STAMPING ; ; THIS ROUTINE IS ENTERED WITH A JSR R4,.DRIN1 FROM THE DATA BASE, ; LEAVING R4 POINTING TO THE SWB. ; ; INPUTS: ; ; R4 POINTS TO SWB ; ; OUTPUTS: ; ; DATA WORD AND VALUE OF 16-BIT SOFTWARE CLOCK AT TIME ; OF SAMPLE ARE WRITTEN INTO THE USER BUFFER. FORK REQUESTED ; IF NECCESARY TO SET EVENT FLAG OR QUEUE AST. ; ;- .DRIN1::MOV R3,(SP) ;;;SAVE R3--OVERWRITE R4 .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .ENDC ;M$$MGE MOV S.WCSR(R4),R3 ;;;GET CSR ADDRESS BIT #S$CTRL,S.WFLG(R4) ;;;INTERRUPT BY CONTROL LINE? BEQ 5$ ;;;IF EQ NO BIS #DI$ENB,(R3) ;;;ENABLE INTS AND CLEAR IN FLAG MOV DI$BUF(R3),R3 ;;;GET DATUM BR 7$ 5$: MOV DI$BUF(R3),-(SP) ;;;READ DATA WORD ;HB015 .IF NDF Q$$BUS ;HB015 ;HB015 MOV (SP),DI$BUF(R3) ;;;WRITE IT BACK ;HB015 ;HB015 .ENDC ;Q$$BUS ;HB015 ;HB015 BIS #DI$ENB,(R3) ;;;ENABLE FOR NEXT INTERRUPT ;**-1 MOV (SP)+,R3 ;;;GET DATA WORD 7$: CALL .KWRWD ;;;WRITE TO USER BUFFER MOV .CLK16,R3 ;;;GET 16 BIT CLOCK CALL .KWRWD ;;;WRITE TO BUFFER BR .DRINX ;;;GO TO COMMON CODE .ENDC ;K$W11K .SBTTL .DRIN2 DR11 OUTPUT INTERRUPT ROUTINE ;+ ; .DRIN2 -- DR11 OUTPUT INTERRUPT ROUTINE ; ; THIS ROUTINE IS CALLED WITH A JSR R4,.DRIN2 FROM THE DATA BASE. ; THIS LEAVES R4 POINTING TO THE CORRECT SWB. ; ; INPUTS: ; ; R4 POINTS TO SWB ; ; OUTPUTS: ; ; WORD IS READ FROM USER BUFFER AND OUTPUT TO DR11. FORK ; REQUESTED IF END OF BUFFER OR END OF SWEEP TO SET EVENT ; FLAG OR QUEUE AST. ; ;- .DRIN2::MOV R3,(SP) ;;;SAVE R3--OVERWRITE OLD R4 .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .IFTF ;M$$MGE CALL .KRDWD ;;;READ WORD FROM USER BUFFER MOV R3,-(SP) ;;;SAVE DATUM MOV S.WCSR(R4),R3 ;;;GET CSR ADDRESS BIS #DO$ENB,(R3) ;;;ENABLE INTERRUPT MOV (SP)+,DO$BUF(R3) ;;;OUTPUT DATA ;+ ; .DRINX -- FINISH UP DR11 INTERRUPT ROUTINE AND EXIT ; ; ENTER HERE TO FINISH UP DR11 INTERRUPT. ; ; INPUTS: ; ; KISAR6 ON TOP OF STACK (MAPPED SYSTEMS ONLY) ; R3 NEXT ON STACK ; C-SET IF FORK NECESSARY ; ; OUTPUTS: ; ; KISAR6, R3 RESTORED. FORK REQUESTED IF C-BIT SET ; IF STOPPING SWEEP, DR11 IS DISABLED FROM INTERRUPTING. ; ;- .DRINX: ;;;REF LABEL .IFT ;M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .IFTF ;M$$MGE MOV (SP)+,R3 ;;;RESTORE R3 BCC 80$ ;;;IF CC NO FORK NEEDED BIT #S$WSTP,S.WFL2(R4) ;;;STOPPING SWEEP? BEQ 60$ ;;;IF EQ NO CALL .DSBDR ;;;YES--DISABLE INTERRUPTS 60$: CALLR .KEFQI ;;;FORK, SET EFN OR QUEUE AST AND EXIT 80$: RETURN ;+ ; .DSBDR -- DISABLE DR11 FROM INTERRUPTS ; ; THIS ROUTINE DISABLES A DR11 FROM INTERRUPTING ; ; INPUTS: ; ; R4 POINTS TO SWB ; ; OUTPUTS: ; ; INPUT OR OUTPUT INTERRUPTS (AS APPROPRIATE) ARE DISABLED. ; ;- .DSBDR: MOV #DI$ENB,-(SP) ;;;ASSUME INPUT DISABLE BIT #S$WIOF,S.WFL2(R4) ;;;CHECK WITH THE FLAGS BNE 20$ ;;;IF NE YES--GO DISABLE MOV #DO$ENB,(SP) ;;;NO--DISABLE OUTPUT INTERRUPTS 20$: BIC (SP)+,@S.WCSR(R4) ;;;DISABLE INTERRUPTS MOV #.DRNOP,-2(R4) ;;;REDIRECT INTERRUPTS TO DUMMY ROUTINE .IFT ;M$$MGE ADD $KRLC5,-2(R4) ;;;RELOCATE THRU KISAR5 .IFTF ;M$$MGE RETURN ;+ ; .DRNOP -- DUMMY DR11-K INTERRUPT ROUTINE ; ; THIS ROUTINE EATS INTERRUPTS ; ; INPUTS: ; ; R4 POINTS TO SWB ; (SP) CONTAINS OLD R4 ; ; OUTPUTS: ; ; EFFECT A NOOP INTERRUPT SERVICE ; ;- .DRNOP::TST (SP)+ ;;;CLEAN STACK RETURN ;;;LOSE INTERRUPT HERE .SBTTL .DRIN3 SCHMITT TRIGGER SIMULATOR INTERRUPT ;+ ; .DRIN3 -- SIMULATE SCHMITT TRIGGER INTERRUPT ROUTINE ; ; THIS ROUTINE IS ENTERED WITH A JSR R4,.DRIN3 FROM THE DATA ; BASE, LEAVING R4 POINTING TO THE SWB. ; ; INPUTS: ; ; R4 POINTS TO SWB ; ; OUTPUTS: ; ; ALL SWEEPS REQUESTING EXTERNAL EVENT START ARE STARTED. ; IF CLOCK IS IN THE SYSTEM, IT IS ENABLED TO COUNT. ; ;- .DRIN3::MOV R3,(SP) ;;;SAVE R3, OVERWRITE R4 .IFT ;M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .ENDC ;M$$MGE MOV S.WCSR(R4),R3 ;;;SET UP R3 TO CSR MOV DI$BUF(R3),-(SP) ;;;READ DIGITAL INPUT ;HB015 .IF NDF Q$$BUS ;HB015 ;HB015 MOV (SP),DI$BUF(R3) ;;;WRITE IT BACK ;HB015 ;HB015 .ENDC ;Q$$BUS ;HB015 ;HB015 BIT (SP)+,S.WMSK(R4);;;ANY LIT BITS SATISFY DIGO? ;**-1 BNE 10$ ;;;IF NE YES--GO HANDLE BIS #DI$ENB,(R3) ;;;NO--ENABLE FOR NEXT INTERRUPT BR 100$ ;;;GO EXIT 10$: BIC #S$WSST,S.WFL2(R4) ;;;YES--CLEAR SST FLAG .IF DF FT$MOP .IF DF M$$MGE MOV #<.KLQUX-S.WCLX>+120000-<$KBASE & 177700>,R4 ;;;PT TO Q .IFF ;M$$MGE MOV #<.KLQUX-S.WCLX>,R4 ;;;PT TO QUEUE .ENDC ;M$$MGE .IF DF K$$W11 MTPS #PR6 ;;;LOCK OUT CLOCK INTERRUPTS .ENDC ;K$$W11 15$: MOV S.WCLX(R4),R4 ;;;LINK TO NEXT IN QUEUE BEQ 80$ ;;;IF EQ ALL DONE BIT #S$WEXT,S.WFLG(R4) ;;;WANT EXTERNAL START? BEQ 15$ ;;;IF EQ NO--LOOK AT NEXT BIC #S$WEXT,S.WFLG(R4) ;;;YES--CLEAR FLAG .IFF ;FT$MOP MOV .KASWX,R4 ;;;GET SWB ADDRESS BEQ 100$ ;;;I DON'T KNOW WHAT TO DO IF 0!!! BIT #S$WEXT,S.WFLG(R4) ;;;DOING EXTERNAL START? BEQ 100$ ;;;IF EQ NO 60$: BIC #S$WEXT,S.WFLG(R4) ;;;YES--CLEAR FLG .ENDC ;FT$MOP .IF DF M$$MGE MOV S.WSTR(R4),-(SP) ;;;PREPARE TO CALL ST ROUTINE ADD $KRLC5,(SP) ;;;RELOCATE ADDRESS TO APR5 CALL @(SP)+ ;;;CALL ST ROUTINE .IFF ;M$$MGE CALL @S.WSTR(R4) ;;;CALL SCHMITT TRIGGER ROUTINE TO START ;;; SWEEP .ENDC ;M$$MGE .IF DF FT$MOP BR 15$ ;;;EXAMINE REST OF QUEUE .ENDC ;FT$MOP 80$: ;;;REF LABEL .IF DF K$$W11 MOV .KACSR,R3 ;;;GET CLOCK A CSR ADDRESS BIC #KA$STF!KA$STI!KA$STE,(R3) ;;CLEAR SCHMITT TRIG ENABLE INC (R3) ;;;ENABLE CLOCK TO COUNT .IF DF FT$MOP MTPS S.WPRI(R4) ;;;LOWER PRIORITY TO DEVICE AGAIN .ENDC ;FT$MOP .ENDC ;K$$W11 100$: ;;;REF LABEL .IF DF M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .ENDC ;M$$MGE MOV (SP)+,R3 ;;;RESTORE R3 RETURN ;;; .SBTTL .DRISR/.DROSR/.DRSTR SYNCHRONOUS CLOCK DRIVEN ROUTINES .IF DF K$$W11 ;+ ; .DRISR -- SYNCH. DIGITAL INPUT ROUTINE ; ; THIS ROUTINE IS CALLED AT CLOCK INTERRUPT LEVEL TO INPUT ONE WORD ; FROM THE DR11. ; ; INPUTS: ; ; R4 POINTS TO SWB ; R3 FREE ; ; OUTPUTS: ; ; DATA WORD IS INPUT FROM DR11 AND WRITTEN INTO USER BUFFER. ; C-SET NEED FORK TO SET EFN OR QUEUE AST ; C-CLEAR ALL IS WELL ; ;- .DRISR::MOV S.WCSR(R4),R3 ;;;GET CSR ADDRESS MOV DI$BUF(R3),-(SP);READ VALUE FROM DR11 ;HB015 .IF NDF Q$$BUS ;HB015 ;HB015 MOV (SP),DI$BUF(R3) ;;;WRITE BACK TO CLEAR BITS ;HB015 ;HB015 .ENDC ;Q$$BUS ;HB015 ;HB015 MOV (SP)+,R3 ;RETRIEVE VALUE ;**-1 CALLR .KWRWD ;;;WRITE TO BUFFER AND RETURN .IF DF K$W11K ;+ ; .DRIST -- DR11 SYNCH. INPUT WITH TIME STAMPING ; ; THIS ROUTINE IS CALLED AT CLOCK INTERRUPT LEVEL TO INPUT ONE ; DATA WORD FROM THE DR11 AND STORE IT AND THE VALUE OF THE 16-BIT ; SOFTWARE CLOCK IN THE USER BUFFER. ; ; INPUTS: ; ; R4 POINT TO SWB ; R3 FREE ; ; OUTPUTS: ; ; BOTH DATA WORDS (DR11 INPUT AND 16-BIT CLOCK VALUE) ARE ; WRITTEN INTO USER BUFFER. ; C-SET NEED FORK TO SET EFN OR QUEUE AST ; C-CLEAR ALL OK ; ;- .DRIST::MOV S.WCSR(R4),R3 ;;;GET CSR ADDRESS MOV DI$BUF(R3),-(SP);READ VALUE FROM DR11 ;HB015 .IF NDF Q$$BUS ;HB015 ;HB015 MOV (SP),DI$BUF(R3) ;;;WRITE BACK TO CLEAR BITS ;HB015 ;HB015 .ENDC ;Q$$BUS ;HB015 ;HB015 MOV (SP)+,R3 ;RETRIEVE VALUE ;**-1 CALL .KWRWD ;;;WRITE WORD TO USER BUFFER MOV .CLK16,R3 ;;;GET 16-BIT CLOCK VALUE CALLR .KWRWD ;;;WRITE TO USER BUFFER AND RETURN .ENDC ;K$W11K ;+ ; .DROSR -- SYNCH. DIGITAL OUTPUT ROUTINE ; ; THIS ROUTINE IS CALLED AT CLOCK INTERRUPT LEVEL TO OUTPUT ONE ; WORD TO THE DR11. ; ; INPUTS: ; ; R4 POINTS TO SWB ; R3 FREE ; ; OUTPUTS: ; ; NEXT DATA WORD FROM BUFFER IS OUTPUT TO DR11 ; C-SET FORK NEEDED TO SET EFN OR QUEUE AST ; C-CLEAR ALL OK ; ;- .DROSR::CALL .KRDWD ;;;READ DATA WORD MOV R3,-(SP) ;;;SAVE DATA WORD MOV S.WCSR(R4),R3 ;;;GET CSR ADDRESS MOV (SP)+,DO$BUF(R3) ;;;WRITE DATA TO OUTPUT REGISTER RETURN ;;;RETURN WITH C INTACT FROM .KRDWD .ENDC ;K$$W11 ;+ ; .DRSTR -- HANDLE SCHMITT TRIGGER START INTERRUPT ; ; THIS ROUTINE IS CALLED BY THE SCHMITT TRIGGER INTERRUPT ROUTINE ; TO START A DIGITAL I/O SWEEP AFTER THE ST FIRING AND/OR DELAY FROM ; START EVENT. ;- .DRSTR::BIT #S$WNOV,S.WFLG(R4) ;;;NON-OVERFLOW DRIVEN SAMPLING? BEQ 40$ ;;;IF EQ NO--NOTHING TO DO CALL .DRSLI ;;;SELECT INTERRUPT ROUTINE -- COULD ;;; HAVE BEEN DIGO STARTING THIS SWEEP MOV S.WCSR(R4),R3 ;;;YES--GET UNIT CSR ADDRESS MOV #DI$ENB,-(SP) ;;;ASSUME INPUT SWEEP BIT #S$WIOF,S.WFL2(R4) ;;;CHECK TO BE SURE BNE 20$ ;;;IF NE INPUT SWEEP MOV #DO$ENB,(SP) ;;;NO--SET OUTPUT ENABLE 20$: BIS (SP)+,(R3) ;;;ENABLE FOR INTERRUPTS 40$: RETURN .END sEìkQ%›c, .TITLE KDSCAD DISCONNECT A/D CONVERTERS .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 26-SEP-77 ; ; THIS ROUTINE DISCONNECTS THE A/D CONVERTERS FROM INTERRUPTS ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$,CINT$S KSWDF$ .SBTTL .DSCAD DISCONNECT A/D CONVERTERS ;+ ; .DSCAD -- DISCONNECT A/D CONVERTERS FROM INTERRUPTS ; ; THIS ROUTINE IS CALLED AT AST LEVEL WHEN IT IS TIME TO ; DISCONNECT THE A/D CONVERTERS FROM THE INTERRUPT SYSTEM. ; ; INPUTS: ; ; R4 POINTS TO SWB ; R3,R2 FREE ; ; OUTPUTS: ; ; ALL A/D CONVERTERS THAT ARE CONNECTED TO INTERRUPTS ; ARE DISCONNECTED. ; ;- .DSCAD::MOV R4,R3 ;GET POINTER TO SWB ADD #S.WUCB,R3 ;POINT TO FIRST UCB MOV S.WUNT(R4),R2 ;G>ET NUMBER OF UNITS 20$: BIT #UF$CIN,U.FLG(R3) ;UNIT CONNECTED TO INTERRUPTS? BEQ 40$ ;NO--LOOK AT NEXT CINT$S U.VEC(R3),,#0 ;DISCONNECT FROM INTERRUPTS BIC #UF$CIN,U.FLG(R3) ;FLAG DISCONNECTED 40$: ADD #U.LGTH,R3 ;LOOK AT NEXT DEC R2 ;SEE IF MORE TO DO BGT 20$ ;IF GT YES RETURN ;ALL DONE .END >sE'kQ%›c, .TITLE KDSDGO DISABLE DIGO .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 1-OCT-77 ; ; THIS ROUTINE IS CALLED TO DISABLE DR11 INPUT INTERRUPTS FROM ; UNITS WHICH ARE SIMULATING START EVENTS WHEN A REAL ST1 OCCURS. ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$,KDVDF$ KSWDF$ KDVDF$ .PSECT .KSCT1 .SBTTL .DSDGO DISABLE DIGO INTERRUPTS ;+ ; .DSDGO -- DISABLE DIGO INTERRUPTS ; ; THIS ROUTINE IS CALLED BY THE KW11-K INTERRUPT ROUTINE WHEN ; A ST1 HAS OCCURRED. WE THEN LOOK AT ALL THE DR11'S TO SEE ; IF WE ARE SIMULATING A SCHMITT TRIGGER ON ANY, AND IF SO, ; DISABLE INPUT INTERRUPTS. ; ; INPUTS: ; ; NONE ; ; OUTPUTS: ; ; DR11'S WHICH WERE SET TO SIMULATE SCHMITT TRIGGERÂS ARE ; DISABLED. ; ;- .DSDGO::MOV R2,-(SP) ;;;SAVE R2 MOV .DRXPT,R3 ;;;GET POINTER TO DR11 SWB POINTER TABLE 20$: MOV (R3)+,R2 ;;;GET NEXT DR11 SWB ADDRESS BEQ 40$ ;;;IF EQ ALL DONE BIT #S$WSST,S.WFL2(R2) ;;;SIMULATING SCHMITT TRIGGER? BEQ 20$ ;;;IF EQ NO BIC #S$WSST,S.WFL2(R2) ;;;YES--CLEAR FLAG BIC #DI$ENB,@S.WCSR(R2) ;;;DISABLE INPUT INTERRUPTS BR 20$ ;;;LOOK AT MORE 40$: MOV (SP)+,R2 ;;;RESTORE R2 RETURN .END ÂvEðkQ%›c, .TITLE KDVDF K-SERIES HARDWARE DEFINES .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 27-JUN-77 ; ; THIS MODULE DEFINES THE CSR BITS .MACRO KDVDF$ .IF NDF L$$SI1 ;+ ; KA$XXX - KW11-K CLOCK 'A' CSR BIT DEFINITIONS ;- KA$STF = 100000 ;ST1 EVENT HAS OCCURRED KA$STI = 40000 ;ST1 EVENT INTERRUPT ENABLE KA$STE = 20000 ;ST1 EVENT ENABLES KA$ENA (ENABLE ; COUNTER) KA$RIM = 0400 ;REPEATED INTERVAL MODE KA$EEM = 1000 ;EXTERNAL EVENT TIME MODE KA$EZB = 1400 ;EXTERNAL EVENT TIME FROM ZERO ; BASE MODE KA$MDF = 200 ;OVERFLOW OR COUNTER TO BUFFER XFR ; HAS OCCURRED KA$MFE = 100 ;MODE FLAG INTERRUPT ENABLE KA$OVF = 40 ;COUNTER 'A' OVERFLOW HAS OCCURRED ;KA$RAT = 16 ;MASK FOR CLOCK 'A' RATE KA$ENB = 1 ;ENABLE CLOCK 'A' ;+ ; KB$XXX - KW11-K CLOCK 'B' CSR BIT DEFINTIONS ;- KB$OVF = 200 ;COUNTER 'B' OVERFLOW HAS OCCURRED KB$OIE = 100 ;OVERFLOW INTERRUPT ENABLE KB$B2A = 40 ;FEED B TO A ENABLE ;KB$ATO = 20 ;AUTO INCREMENT MODE ;KB$RAT = 16 ;MASK FOR CLOCK 'B' RATE KB$ENB = 1 ;CLOCK 'B' ENABLE ;+ ; AD$XXX - AD11-K A/D CONVERTOR CSR BIT DEFINITIONS ;- AD$ERR = 100000 ;ERROR FLAG AD$DON = 200 ;DONE FLAG AD$ENB = 100 ;INTERRUPT ENABLE AD$OVE = 40 ;KW11-K OVERFLOW STARTS A/D CONVERSION AD$ESE = 20 ;EXTERNAL EVENT INITIATES A/D CONVERSION AD$GO = 1 ;START A/D CONVERSION ;+ ; DO$XXX - DR11-K DIGITAL OUTPUT CSR BIT DEFINITIONS ; DI$XXX - DR11-K DIGITAL INPUT CSR BIT DEFINITIONS ;- DO$FLG = 100000 ;EXTERNAL DATA ACCEPTED ON EXT. DEVICE DO$ENB = 40000 ;ENABLE OUTPUT INTERRUPT DO$BUF = 4 ;OFFSET FROM CSR TO OUTPUT BUFFER DI$FLG = 200 ;EXTERNAL DATA READY FROM EXT. DEVICE DI$ENB = 100 ;ENABLE INPUT INTERRUPT DI$BUF = 2 ;OFFSET FROM CSR TO INPUT BUFFER .IF NDF L$$PS1 ;+ ; DA$XXX - AA11-K D/A CONVERTOR CSR BIT DEFINITIONS ;- DA$ERA = 10000 ;ERASE DATA IN STORAGE OSCILLOSCOPE DA$WTU = 4000 ;WRITE THRU MODE DA$STO = 2000 ;STORE DA$BT9 = 1000 ;BIT 9 (DIGITAL SIGNAL AVAILABLE) DA$RDY = 200 ;READY ;DA$ENB = 100 ;INTERRUPT ENABLE DA$EXD = 20 ;EXTERNAL DELAY DA$MDE = 14 ;MASK FOR MODE DA$FIE = 2 ;FAST INTENSIFY ENABLE DA$INT = 1 ;GENERATE INTENSIFY PULSE IN MODE 0 DA$SCO=DA$ERA!DA$WTU!DA$STO$DA$BT9!DA$MDE!DA$FIE!DA$INT ; ;BITS LEGAL FOR USER TO SET IN SCOPE ;CONTROL WORD .IFF ;L$$PS1 DA$ERA = 10000 ;ERASE DATA IN STORAGE OSCILLOSCOPE DA$WTU = 4000 ;SET WRITE THROUGH MODE DA$STO = 2000 ;STORE DA$CHN = 1000 ;CHANNEL SELECT DA$COL = 400 ;COLOR SELECT DA$RDY = 200 ;READY ;DA$ENB = 100 ;INTERRUPT ENABLE DA$EXD = 20 ;EXTERNAL DELAY DA$MDE = 14 ;MODE DA$FIE = 2 ;FAST INTENSIFY ENABLE DA$INT = 1 ;INTENSIFY DA$SCO = DA$ERA!DA$WTU!DA$STO!DA$CHN!DA$COL!DA$MDE!DA$FIE!DA$INT ;BITS LEGAL FOR USER TO SET WITH SCOPE .ENDC ;L$$PS1 .IFF ;L$$SI1 .IF DF Q$$BUS ;+ ; KWV11 CLOCK CSR BIT DEFINITIONS ;- KA$STF = 100000 ;ST2 EVENT HAS OCCURED KA$STI = 40000 ;ST2 EVENT INTERRUPT ENABLE KA$STE = 20000 ;ST2 EVENT ENABLES CLOCK KA$MDF = 200 ;OVERFLOW OR CTR TO BUFFR XFR HAS OCCURED KA$OVF = 200 ;OVERFLOW HAS OCCURRED KA$IOO = 100 ;INTERRUPT ON OVERFLOW ENABLE KA$MFE = 100 ;MODE FLAG ENABLE ;KA$RAT = 30 ;MASK FOR CLOCK RATE KA$RIM = 2 ;REPEATED INTERVAL MODE KA$EEM = 4 ;EXTERNAL EVENT TIME MODE KA$EZB = 6 ;EXTERNAL EVENT TIME FROM ZERO BASE MODE KA$ENB = 1 ;ENABLE CLOCK ;+ ; AD$XXX - ADV11 A/D CONVERTOR CSR BIT DEFINTIONS ;- AD$ERR = 100000 ;ERROR FLAG AD$IEN = 40000 ;ERROR INTERRUPT ENABLE AD$DON = 200 ;DONE FLAG AD$ENB = 100 ;INTERRUPT ENABLE AD$OVE = 40 ;CLOCK OVERFLOW STARTS A/D CONVERSION AD$ESE = 20 ;EXTERNAL EVENT STARTS A/D CONVERSION AD$GO = 1 ;START A/D CONVERSION ;+ ; DO$XXX - DRV11 DIGITAL OUTPUT CSR BIT DEFINITIONS ; DI$XXX - DRV11 DIGITAL INPUT CSR BIT DEFINITIONS ;- DO$FLG = 100000 ;EXTERNAL DATA ACCEPTED DO$ENB = 40 ;OUTPUT INTERRUPT ENABLE DO$BUF = 2 ;OFFSET TO OUTPUT BUFFER FROM CSR DI$FLG = 200 ;EXTERNAL DATA READY DI$ENB = 100 ;INPUT INTERRUPT ENABLE DI$BUF = 4t ;OFFSET TO INPUT BUFFER FROM CSR .ENDC ;Q$$BUS .ENDC ;L$$SI1 .MACRO KDVDF$ .ENDM .ENDM .END tŽEhjkQ%›c, .TITLE KEFQA SET EFN AND QUEUE AST .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 4-SEP-77 ; ; THIS MODULE SETS EVENT FLAGS OR QUEUES AST'S FOR A SWEEP. ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ .PSECT .KSCT1 .SBTTL .KEFQI INTERRUPT LEVEL SET EFN AND QUEUE AST ENTRY ;+ ; .KEFQI -- SET EFN AND QUEUE AST (FROM INTERRUPT LEVEL) ; ; INPUTS: ; ; STACK MUST BE AT LEVEL 0 (FOR RETURN TO INTSV) ; ; OUTPUTS: ; ; SYSTEM PROCESS IS CREATED, AND EFN IS SET OR EVENT ; FLAG IS QUEUED. A RETURN IS THEN EXECUTED. ; ; NOTE: ; ; THIS ROUTINE IS ENTERED AT INTERRUPT LEVEL, AND EXITS ; AT FORK LEVEL (UNLESS A FORK IS ALREADY IN PROGRESS). ; ; THIS ROUTINE SHOULD BE ENTERED VIA A "CALLR .KEFQI" ; ;- .ENABL LSB .KEFQI::BIT #S$WFRK,S.WFL2(R4) ;;;FORK ALREADY IN PROGRESS? BNE 40$ ;;;IF NE YES--DO NOT FORK AGAIN BIS #S$WFRK,S.WFL2(R4) ;;;NO--DECLARE FORK IN PROGRESS CALL @#$FORK2 ;;;CREATE SYSTEM PROCESS CLR (R3) ;DECLARE FORK BLOCK FREE BIC #S$WFRK,S.WFL2(R4) ;FORK NO LONGER IN PROGRESS ;***; BR .KEFQA ;SET EFN OR QUEUE AST AS APPROPRIATE .SBTTL .KEFQA SET EVENT FLAGS AND QUEUE AST'S ;+ ; .KEFQA -- SET EVENT FLAG OR QUEUE AST ; ; INPUTS: ; ; R4 POINTS TO SWB ; ; OUTPUTS: ; ; AST QUEUED IF S$WEFN=0 OR IF STOPPING A SWEEP ; EFN SET IF S$WEFN=1 AND NOT STOPPING A SWEEP ; ; NOTE: THIS ROUTINE IS CALLED ONLY AT FORK LEVEL ; ;- .KEFQA::BIT #S$WSTP,S.WFL2(R4) ;STOPPING SWEEP? BNE 5$ ;IF NE YES--ALWAYS QUEUE AST BIT #S$WEFN,S.WFL2(R4) ;SETTING EVENT FLAG? BNE 10$ ;IF NE YES--GO DO IT 5$: CALLR @#$QASTC ;QUEUE AN AST 10$: MOV R5,-(SP) ;SAVE ITB ADDRESS MOV .KTKCB,R5 ;GET MY TCB ADDRESS MOV S.WEFA(R4),R1 ;GET EVENT FLAG ADDRESS BNE 20$ ;IF NE $CEFI HAS BEEN CALLED MOV S.WEFN(R4),R0 ;FIRST CALL--GET EFN CALL @#$CEFI ;CONVERT TO ADDRESS AND MASK MOV R0,S.WEFM(R4) ;SET MASK MOV R1,S.WEFA(R4) ;AND ADDRESS 20$: MOV S.WEFM(R4),R0 ;GET MASK CALL @#$SETM ;SET EVENT FLAG MOV (SP)+,R5 ;RESTORE ITB ADDRESS 40$: RETURN .DSABL LSB .SBTTL .KWEFQ SET EFN OR QUEUE AST FOR MULT CLOCK DRIVEN SWEEPS ;+ ; .KWEFQ -- SET EFN OR QUEUE AST FOR MULT. CLOCK DRIVEN SWEEPS ; ; INPUTS: ; ; INTERRUPT LEVEL, STACK CLEAR FOR RETURN TO INTXT ; ; OUTPUTS: ; ; AT MOST ONE AST QUEUED, EFNS SET FOR ALL REQUESTING SWEEPS ; ;- .IF DF K$$W11 & FT$MOP .KWEFQ::BIT #K$AFRK,.KAFLG ;;;FORK IN PROGRESS? BNE 120$ ;;;IF NE YES--DO NOT REFORK BIS #K$AFRK,.KAFLG ;;;NO--FLAG FORK IN PROGRESS CALL @#$FORK2 ;;;CREATE SYSTEM PROCESS CLR (R3) ;DECLARE FORK BLOCK FREE BIC #K$AFRK,.KAFLG ;CLEAR FORK IN PROGRESS FLAG CLR -(SP) ;SET "AST QUEUED" FLAG ONTO STACK .IF DF M$$MGE MOV #<.KLQUX-S.WCLX>+120000-<$KBASE & 177700>,R4 ;PT TO Q HEAD .IFF ;M$$MGE MOV #<.KLQUX-S.WCLX>,R4 ;PT TO QUEUE HEAD .ENDC ;M$$MGE 20$: MOV S.WCLX(R4),R4 ;MOVE TO NEXT SWB BEQ 100$ ;IF EQ END OF QUEUE TST S.WFLG(R4) ;REQUEST FOR THIS SWEEP (S$WAST IS SIGN BIT)? BPL 20$ ;IF PL NO--MOVE TO NEXT BIT #S$WSTP,S.WFL2(R4) ;YES--STOPPING SWEEP? BNE 40$ ;IF NE YES--ALWAYS QUEUE AST BIT #S$WEFN,S.WFL2(R4) ;NO--USING EVENT FLAGS? BNE 60$ ;IF NE YES--GO SET IT 40$: TST (SP) ;HAVE WE ALREADY QUEUED AN AST? BNE 20$ ;IF NE YES--DON'T QUEUE ANOTHER INC (SP) ;NO--FLAG WE HAVE NOW THO CALL @#$QASTC ;QUEUE AST BR 20$ ;CHECK REST OF QUEUE 60$: BIC #S$WAST,S.WFLG(R4) ;CLEAR AST REQUEST MOV R5,-(SP) ;SAVE R5 MOV .KTKCB,R5 ;GET MY TCB ADDRESS MOV S.WEFA(R4),R1 ;GET EVENT FLAG ADDRESS BNE 80$ ;IF NE $CEFI HAS BEEN CALLED MOV S.WEFN(R4),R0 ;FIRST CALL--GET EFN CALL @#$CEFI ;CONVERT EFN TO MASK AND ADDRESS MOV R0,S.WEFM(R4) ;REMEMBER MASK MOV R1,S.WEFA(R4) ;AND ADDRESS 80$: MOV S.WEFM(R4),R0 ;GET MASK CALL @#$SET°M ;SET REQUESTED EVENT FLAG MOV (SP)+,R5 ;RESTORE R5 BR 20$ ;SCAN REST OF QUEUE 100$: TST (SP)+ ;CLEAR STACK 120$: RETURN ;DONE .ENDC ;K$$W11 & FT$MOP .END °¼EükQ%›c, .TITLE KFLT16 FLOAT 2'S COMPLEMENT INTEGER .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 22-SEP-77 ; ; THIS ROUTINE CONVERTS TWO'S COMPLEMENT INTEGERS TO ; FLOATING POINT NUMBERS ; ; FROM THE RT11 ROUTINE FLT16 AND THE FORTRAN LIBRARY ; ROUTINE $IR. .SBTTL FLT16 FLOAT AN UNSIGNED 16-BIT INTEGER ;+ ; FLT16 -- FLOAT A 2'S COMPLEMENT INTEGER ; ; CALLING SEQUENCES: ; ; VAL = FLT16 (IVAL) ; CALL FLT16 (IVAL, VAL) ; ; INPUTS: ; ; IVAL 16 BIT INTEGER TO CONVERT ; ; OUTPUTS: ; ; VAL 32 BIT CONVERTED REAL NUMBER ; ;- FLT16:: MOV @2(R5),R0 ;PICKUP VALUE TO CONVERT CALL .FLT16 ;CALL INTERNAL ROUTINE TO CONVERT NUMBER CMPB (R5),#2 ;WERE THERE TWO ARGUMENTS? BNE 10$ ;IF NE NO--NO 'VAL' TO STORE INTO MOV 4(R5),R2 ;YES--GET 'VAL' ADDRESS CMP #-1,R2 ;WAS IT DEFAULTED? BEQ 10$ ;IF EQ YES--SKIP THE STORE MOV R0,(R2)+ ;STORE MS PART OF RESULT INTO 'VAL' MOV R1,(R2) ;STORE LS PART 10$: RETURN ;+ ; .FLT16 -- INTERNAL FLT16 ; ; INPUTS: ; ; R0 16 BIT NUMBER TO CONVERT ; ; OUTPUTS: ; ; R0,R1 32-BIT CONVERTED NUMBER ; ;- .FLT16::MOV R0,-(SP) ;PUSH ONTO STACK AND CHECK SIGN BIT BPL 40$ ;IF PL CAN USE $IR (OR WHAT IS LEFT) MOV R0,-(SP) ;PUSH ON STACK AGAIN BIC #100000,(SP) ;CLEAR SIGN BIT CLRB (SP) ;CLEAR LS HALF SWAB (SP) ;MOVE MS HALF ADD #44000,(SP) ;ADD IN EXPONENT MOV (SP)+,R0 ;GET MS HALF SWAB (SP) ;WORK ON LS HALF CLRB (SP) ;CLEAR OUT REST 20$: MOV (SP)+,R1 ;GET LS HALF RETURN ;DONE ; ; HERE IF NOT LARGE ; 40$: CLR -(SP) ;MAKE ROOM FOR RESULT MOV R0,R1 ;GET INTEGER ARGUMENT BEQ 120$ ;IF EQ ALL DONE MOV #220,R2 ;GET MAX POSSIBLE EXPONENT + 1 CLRB 2(SP) ;CLEAR LOWEST ORDER FRACTION 80$: ROL R1 ;LOOK FOR NœORMAL BIT BCS 100$ ;IF CS FOUND IT DEC R2 ;DECREASE EXPONENT BR 80$ ;TRY AGAIN 100$: MOVB R1,3(SP) ;SAVE LOW ORDER FRACTION CLRB R1 ; BISB R2,R1 ;COMBINE EXPONENT AND HI ORDER FRACTION SWAB R1 ;(NOTE THAT SWAB CLEARS C-BIT) ROR R1 ;INSERT SIGN IN RESULT (ALWAYS POSITIVE) RORB 3(SP) MOV R1,(SP) ;STORE RESULT 120$: MOV (SP)+,R0 ;GET RESULT MOV (SP)+,R1 ;... 140$: RETURN .END œàEL;kQ%›c, .TITLE KGHIST EVENT TIMING ROUTINES .IDENT /M01.01/ ; ; COPYRIGHT (C) 1977, 1978, 1979 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01.01 ; B. SCHREIBER 25-OCT-77 ; ; MODIFIED BY: ; ; M. S. HARVEY 7-JUN-79 ; MSH037 -- CLEAR CLOCK A COUNTER ON ST1 FOR ; POST-STIMULUS TIME MODE ; ; THIS MODULE CONTAINS ALL ROUTINES NECESSARY FOR EVENT TIMING ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$, KDVDF$, CINT$S KSWDF$ KDVDF$ .SBTTL GTHIST EVENT TIMING START ROUTINE ;+ ; GTHIST -- START EVENT TIMING SWEEP ; ; CALLING SEQUENCE: ; ; CALL GTHIST (IBUF, LBUF, NBUF, MODE, IPRSET, IEFN, KOUNT) ; ; OUTPUTS: ; ; SWEEP IS STARTED ; ;- GTHIST::MOV R5,-(SP) ;SAVE ARG PTR CALL .K.PAA ;VALIDATE ARGS AND PUSH ONTO STACK .WORD 7 ;MAX OF 7 ARGS .WORD 140 ;IBUF, LBUF REQUIRED BCC 20$ ;IF CC CONTINUE MOV #-,R3 ;SET ERROR CODE BR 600$ ;STORE ERROR AND EXIT 20$: MOV #.TDSWB,R4 ;POINT TO SWB BEQ 200$ ;IF EQ DATA BASE WAS NOT GENNED IN CALL .K.SET ;SET UP IBUF THROUGH IEFN BCS 200$ ;IF CS ERROR MOV R4,R3 ;POINT TO SWB ADD #S.WKNT,R3 ;POINT TO KOUNT ARGUMENT MOV (SP)+,R0 ;GET KOUNT ADDRESS OFF OF STACK MOV R0,(R3)+ ;SET VIRTUAL ADDRESS INTO SWB BNE 40$ ;IF NE GO RELOCATE CLR (R3)+ ;ELSE CLEAR BOTH WORDS OF ADDRESS CLR (R3)+ ;... BR 60$ ;SKIP AHEAD 40$: CALL .KRLOC ;RELOCATE TO APR6 MOV R1,(R3)+ ;SET APR6 RELOCATION MOV R2,(R3)+ ;SET APR6 BIAS 60$: CALL .K.STB ;SET UP BUFFER POINTERS BCS 400$ ;IF CS ILLEGAL SPECIFICATION CALL .KLQIN ;INSERT INTO CLOCK QUEUE CALL .TDCNI ;CONNECT AND ENABLE BCS 300$ ;IF CS CALL IT RESOURCE IN USE BIS #S$WACT,S.WFL2(R4) ;FLAG SWEEP IS ACTIVE BIS #K$AGTD,.KAFLG ;FLAG TIME DATA GATHERING IN PROGRESS MOV (SP)+,R5 ;RESTORE ARG PTR RETURN ; ; ERROR RETURNS ; ; BAD PARAMETERS ; 200$: MOV #-,R3 BR 500$ ; ; RESOURCE IN USE ; 300$: MOV #-,R3 BR 500$ ; ; ILLEGAL BUFFER SPECIFICATION ; 400$: MOV #-,R3 500$: MOV R5,SP ;RESTORE PRE-.K.PAA STACK POINTER 600$: CALL .KLQRM ;REMOVE FROM CLOCK QUEUE MOV #1,R4 ;STORE INTO FIRST ARGUMENT MOV (SP)+,R5 ;RESTORE ARG PTR CALLR .IESTO ;STORE ERROR CODE AND RETURN .SBTTL .TDCNI CONNECT CLOCK TO INTERRUPTS ;+ ; .TDCNI -- CONNECT TO INTERRUPTS FOR EVENT TIMING ; ; INPUTS: ; ; .TDSWB SET UP (R4 POINTS TO IT) ; ; OUTPUTS: ; ; C-CLEAR CONNECT OK, CLOCK ARMED ; C-SET COULD NOT CONNECT ; ;- .TDCNI: CALL .TDSLI ;SELECT INTERRUPT ROUTINE MOV .KAVEC,R2 ;PICK UP THE VECTOR ADDRESS .IF DF Q$$BUS ADD #4,R2 ;CONNECT SCHMITT TRIGGER VECTOR .IFTF ;Q$$BUS CLR R3 ;FIRST DISCONNECT CALL 200$ ;ENSURE DISCONNECTED MOV #.TDINT,R3 ;NOW CONNECT .IFT ;Q$$BUS CALL 200$ ;CONNECT CLOCK VECTOR BCS 220$ ;IF CS DO NOT TRY OTHER VECTOR SUB #4,R2 ;POINT TO OVERFLOW VECTOR CLR R3 ;FIRST DISCONNECT CALL 200$ ;... MOV #.TDOVF,R3 ;NOW CONNECT .ENDC ;Q$$BUS 200$: CINT$S R2,#$KBASE,R3,#.TDEDI,#PR6,#.KWAST 220$: RETURN ;+ ; .TDSLI -- SELECT EVENT TIMING INTERRUPT ROUTINE ; ; SETS UP .TDINT IN THE DATA BASE ; ;- .TDSLI: MOV #.TDIN1,R3 ;ASSUME MODE 1 .IF NDF Q$$BUS TST S.WFLG(R4) ;IS IT? BNE 20$ ;IF NE YES MOV #.TDIN0,R3 ;NO--SET FOR MODE 0 20$: ;REF LABEL .ENDC ;Q$$BUS .IF DF M$$MGE ADD $KRLC5,R3 ;RELOCATE TO APR5 .ENDC ;M$$MGE MOV R3,-2(R4) ;POINT ISR TO PROPER ROUTINE RETURN .SBTTL .TDEDI ENABLE/DISABLE ROUTINE FOR EVENT TIMING ;+ ; .TDEDI -- ENABLE/DISABLE ROUTINE ; ; THIS ROUTINE IS CALLED BY THE EXEC ON A CONNECT TO INTERRUPT ; OR A DISCONNECT. ; ; INPUTS: ; ; NONE ; ; OUTPUTS: ; ; CLOCK IS ARMED IF CONNECT ; CLOCK IS DISABLED IF DISCONNECT ; ;- .PSECT .KSCT1 .TDEDI: MOV .KACSR,R0 ;GET CLOCK CSR ADDRESS BCS 60$ ;IF CS THEN DISCONNECT CLR (R0) ;STOP CLOCK MOV @#$TKTCB,.KTKCB ;GET MY TCB ADDRESS FOR LATER BIC #K$AOVF,.KAFLG ;CLEAR SOFTWARE OVERFLOW FLAG .IF DF M$$MGE MOV #.TDSWB+120000-<$KBASE & 177700>,R3 ;POINT TO SWB .IFF ;M$$MGE MOV #.TDSWB,R3 ;POINT TO SWB .ENDC ;M$$MGE .IF NDF Q$$BUS TST S.WFLG(R3) ;WHAT MODE ARE WE TIMING? BNE 40$ ;IF NE THEN INTER STIMULUS INTERVAL ; ; SET FOR POST-STIMULUS TIME DATA (MODE 0) ; MOV #KA$EEM!KA$STI!KA$STE,R2 ;EXTERNAL EVENT MODE, SCHMITT ; TRIGGER INTERRUPT ENABLE, AND SCHMITT ; TRIGGER ENABLES COUNTER BR 50$ ;START CLOCK AND RETURN .ENDC ;Q$$BUS ; ; INTER-STIMULUS INTERVAL TIME DATA (MODE 1) ; 40$: ;REF LABEL ;MSH037 MOV #KA$EZB!KA$MFE!KA$STI!KA$ENB,R2 ;SET EXT EVENT TIME FROM;**-3 ;BASE, MODE FLAG ENABLE, ;ST INTERRUPT ENABLE, AND CLOCK ;MSH037 ;COUNT ENABLE ;**-1 50$: BIS .KARAT,R2 ;INCLUDE CLOCK RATE MOV R2,(R0) ;ARM CLOCK RETURN ; ; ; DISCONNECT ; 60$: CLR (R0) ;STOP CLOCK RETURN .SBTTL .TDIN0 MODE 0 (PST) INTERRUPT ROUTINE ;+ ; .TDIN0 -- MODE 0 (PST) INTERRUPT ROUTINE ; ; INPUTS: ; ; JSR R4 HERE FROM DATA BASE. R4 WILL THEN POINT TO .TDSWB ; ; OUTPUTS: ; IF ST1 FIRED, CLR CLOCK AND ENABLE OVERFLOWS AND ST2 INTERRUPTS ; IF OVERFLOW, NOTE THAT AND ENABLE ST1 INTERRUPTS ; IF NEITHER OF ABOVE, STORE CLOCK BUFFER CONTENTS IN USER BUFFER ; OR -1 IF RECENT OVERFLOW ; ;- .ENABL LSB .IF NDF Q$$BUS .TDIN0::MOV R3,(SP) ;;;SAVE R3, OVERWRITE R4 ON STACK .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .IFTF ;M$$MGE MOV .KACSR,R3 ;;;GET CLOCK CSR ADDRESS TST (R3) ;;;CHECK FOR SCHMITT TRIGGER BMI 200$ ;;;IF MI SCHMITT TRIGGER 1 FIRED BIT #KA$OVF,(R3) ;;;DID CLOCK OVERFLOW? BNE 300$ ;;;IF NE YES--GO HANDLE BIC #KA$MDF,(R3) ;;;NO--SCHMITT TRIG 2 FIRED--CLEAR MODE FLAG MOV 2(R3),R3 ;;;READ CLOCK BIT #K$AOVF,.KAFLG ;;;DID CLOCK OVERFLOW RECENTLY? BEQ 20$ ;;;IF EQ NO BIC #K$AOVF,.KAFLG ;;;YES--CLEAR FLG MOV #177777,R3 ;;;STORE -1 TO INDICATE CLOCK OVERFLOW 20$: CALL .KWRWD ;;;WRITE VALUE TO USER BUFFER .IFT ;M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .ENDC ;M$$MGE MOV (SP)+,R3 ;;;RESTORE R3 BCC 120$ ;;;IF CC NO FORK NEEDED .IFTF ;Q$$BUS ;+ ; .TDFXT -- INTERRUPT EXIT FROM TIME DATA INTERRUPT ROUTINES ; ; THIS EXIT IS TAKEN WHEN IT IS NECCESARY TO FORK. ; ; INPUTS: ; ; R4 POINTS TO SWB ; ; OUTPUTS: ; ; FORK REQUESTED, AST QUEUED OR EVENT FLAG SET. IF STOPPING ; SWEEP, CLOCK IS DISABLED. ; ;- .TDFXT: BIT #S$WSTP,S.WFL2(R4) ;;;STOP NEEDED? BEQ 100$ ;;;IF EQ NO CLR @.KACSR ;;;YES--STOP CLOCK BIC #K$AGTD,.KAFLG ;;;NO LONGER DOING THIS 100$: ;;;REF LABEL .IF NDF FT$MOP CALLR .KEFQI ;;;FORK, SET EFN OR QUEUE AST AND EXIT .IFF ;FT$MOP BIS #S$WAST,S.WFLG(R4) ;;;SET AST REQUEST FLAG CALLR .KWEFQ ;;;FORK, SET EFN OR QUEUE AST AND EXIT .ENDC ;FT$MOP 120$: RETURN .IFT ;Q$$BUS ; ; HERE IF SCHMITT TRIGGER FIRED ; 200$: BIC #KA$STF!KA$ENB,(R3) ;;;CLEAR SCHMITT TRIGGER FLAG ;;; AND STOP CLOCK CLR 2(R3) ;;; CLEAR CLOCK BUFFER ;MSH037 BIS #KA$MFE!KA$ENB,(R3) ;;;ENABLE OVERFLOW INTERRUPTS ;;; AND START CLOCK W/COUNTER=0 ;MSH037 MOV S.WKNT+4(R4),R3 ;;;GET KOUNT ADDRESS BIAS ;**-2 BEQ 400$ ;;;IF EQ SKIP THE WHOLE DEAL .IF DF M$$MGE MOV S.WKNT+2(R4),@#KISAR6 ;;;MAP TO KOUNT WORD .IFTF ;M$$MGE INC (R3) ;;;INKREMENT KOUNT BR 400$ ;;;RESTORE REGISERS AND RETURN ; ; CLOCK OVERFLOW ; 300$: CLR (R3) ;;;STOP CLOCK BIS #K$AOVF,.KAFLG ;;;FLAG THAT CLOCK OVERFLOWED MOV #KA$EEM!KA$STI!KA$STE,-(SP) ;;;SET EXT EVENT TIME MODE, ;;; SCHMITT TRIG INTERRUPT ENABLE, ;;; AND SCHMITT TRIG ENABLE COUNTER BIS .KARAT,(SP) ;;;INCLUDE THE CLOCK RATE MOV (SP)+,(R3) ;;;JAM THE CLOCK CSR 400$: ;;;REF LABEL .IFT ;M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .ENDC ;M$$MGE MOV (SP)+,R3 ;;;RESTORE R3 RETURN .ENDC ;Q$$BUS .DSABL LSB .SBTTL .TDIN1 INTER-STIMULUS INTERVAL (MODE 1) EVENT TIMING ;+ ; .TDIN1 -- ISI (MODE 1) EVENT TIMING ; ; INPUTS: ; JSR R4 HERE FROM DATA BASE. R4 THEN POINTS TO .TDSWB ; ; OUTPUTS: ; IF OVERFLOW, SET SOFTWARE FLAG AND RETURN ; ELSE STORE CLOCK BUFFER CONTENTS OR -1 IF RECENT OVEFLOW INTO USER BUFFER ; ;- .ENABL LSB .TDIN1: MOV R3,(SP) ;;;SAVE R3, OVERWRITE R4 ON STACK MOV .KACSR,R3 ;;;GET CLOCK CSR ADDRESS .IF NDF Q$$BUS BIT #KA$OVF,(R3) ;;;CLOCK OVERFLOW? BNE 100$ ;;;IF NE YES BIC #KA$MDF,(R3) ;;;NO--CLEAR MODE (ST2) FLAG .IFF ;Q$$BUS BIC #KA$STF,(R3) ;;;CLEAR ST2 FLAG .ENDC ;Q$$BUS .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .IFTF ;M$$MGE MOV 2(R3),R3 ;;;READ CLOCK COUNTER BIT #K$AOVF,.KAFLG ;;;DID WE RECENTLY OVERFLOW? BEQ 40$ ;;;IF EQ NO BIC #K$AOVF,.KAFLG ;;;YES--CLEAR FLAG MOV S.WKNT+4(R4),R3 ;;;GET ADDRESS OF KOUNT BEQ 30$ ;;;IF EQ SKIP IT .IFT ;M$$MGE MOV S.WKNT+2(R4),@#KISAR6 ;;;MAP TO KOUNT .IFTF ;M$$MGE INC (R3) ;;;INKREMENT KOUNT 30$: MOV #177777,R3 ;;;AND STORE A -1 40$: CALL .KWRWD ;;;WRITE VALUE TO USER BUFFER .IFT ;M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .ENDC ;M$$MGE MOV (SP)+,R3 ;;;RESTORE R3 BCS .TDFXT ;;;IF CS GO FORK, ETC. RETURN ;;;INTERRUPT EXIT .IF DF Q$$BUS ;+ ; .TDOVF -- OVERFLOW INTERRUPT ROUTINE FOR KWV11 ; ; INPUTS: ; ; CALLED HERE FROM INTERRUPT SAVE ; ; OUTPUTS: ; ; SOFTWARE CLOCK OVERFLOW FLAG IS SET ; ;- .TDOVF::MOV R3,-(SP) ;;;SAVE R3 MOV .KACSR,R3 ;;;GET CLOCK CSR ADDRESS .IFTF ;Q$$BUS ; ; HERE IF CLOCK OVERFL4OW ; 100$: BIS #K$AOVF,.KAFLG ;;;FLAG WE HAD CLOCK OVERFLOW .IFF ;Q$$BUS BIC #KA$OVF!KA$MDF,(R3) ;;;CLEAR OVERFLOW , MODE FLAGS .IFT ;Q$$BUS BIC #KA$OVF,(R3) ;;;CLEAR CLOCK OVERFLOW FLAG .ENDC ;Q$$BUS MOV (SP)+,R3 ;;;RESTORE R3 RETURN ;;;EXIT INTERRUPT .DSABL LSB .END 4-FïykQ%›c, .TITLE KIESTO STORE ERROR CODE FROM ABORTED SWEEP .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 6-JUL-77 ; ; THIS ROUTINE STORES THE ERROR CODE FROM AN ABORTED SWEEP INTO ; THE USER'S I/O STATUS BLOCK. ;+ ; .IESTO -- STORE ERROR CODE INTO I/O STATUS BLOCK ; ; THIS ROUTINE IS USED TO STORE THE ERROR CODE INTO THE I/O STATUS ; BLOCK FOR A SWEEP WHICH NEVER GOT STARTED (BAD PARAMETERS, RESOURCE ; IN USE, ETC.) ; ; INPUTS: ; ; R5 POINTS TO THE FORTRAN ARGUMENT LIST ; R4 THE ARGUMENT NUMBER OF THE I/O STATUS BLOCK ; R3 STATUS CODE TO STORE IN IOSB ; ; OUTPUTS: ; ; THE VALUE IS STORED IN THE I/O STATUS BLOCK (IF PRESENT) ; ; REGISTERS ALTERED: ; ; R4 ; ;- .IESTO::CMPB R40,(R5) ;CAN IOSB BE IN PARAMETER LIST? BHI 20$ ;IF HI NO--USER LOSES BIG ASL R4 ;CONVERT TO WORD INDEX ADD R5,R4 ;R4 NOW POINTS TO WORD CONTAINING ; ADDRESS OF IOSB CMP #-1,(R4) ;WAS ARGUMENT DEFAULTED? BEQ 20$ ;IF EQ YES--LOSE BIG MOV R3,@(R4) ;STORE STATUS 20$: RETURN .END 0FækQ%›c, .TITLE KKWDRV KW11 HARDWARE INTERFACE ROUTINES .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 4-SEP-77 ; ; THIS MODULE CONTAINS ROUTINES THAT ACCESS THE KW11 CLOCK ; ; SYSTEM MACRO CALLS ; .MCALL CINT$S,KSWDF$,KDVDF$ KSWDF$ KDVDF$ .SBTTL .KWCNI CONNECT CLOCK A TO INTERRUPTS ;+ ; .KWCNI -- CONNECT CLOCK A TO INTERRUPT VECTOR ; ; INPUTS: ; ; DATA BASE SET ; ; OUTPUTS: ; ; C-CLEAR CONNECT OK ; C-SET COULD NOT CONNECT ; ;- .ENABL LSB .KWCNI::.IF DF FT$MOP TST .KAFLG ;ARE WE ALREADY ACTIVE? BMI 100$ ;YES--**SHOULD CHECK EXT START** .ENDC ;FT$MOP BIT #K$ACIN,.KAFLG ;IS IT CONNECTED? BNE 20$ ;YES--DON'T TRY IT AGAIN MOV .KAVEC,R1 ;CONNECT FIRST VECTOR CALL 200$ ;... BCS 120$ ;IF CS THEN ERROR .IF DF Q$$BUS ADD #4,R1 ;CONNECT ST2 VECTOR CALL 200$ ;... BCS 120$ .ENDC ;Q$$BUS BIS #K$ACIN,.KAFLG ;FLAG CONNECTED TO INTERRUPTS .KWCN0:: ;REF LABEL 20$: MOV .KACSR,R1 ;GET CSR ADDRESS MOV .KAPRE,2(R1) ;SET PRESET INTO PRESET REGISTER .IF DF M$$MGE MOV #.KWIN1+120000-<$KBASE&177700>,R3 ;ASSUME SWEEPING IMMEDIATELY .IFF ;M$$MGE MOV #.KWIN1,R3 ;ASSUME SWEEPING IMMEDIATELY .IFTF ;M$$MGE MOV #KA$RIM!KA$ENB,R2 ;ASSUME A/D, NO EXT ST, NO DELAY BIT #S$WA$D,S.WFL2(R4);IS THIS THE A/D? BNE 40$ ;IF NE YES 30$: MOV #KA$RIM!KA$MFE!KA$ENB,R2 ;SET REPT INTRVL, MODE FLAG ;ENABLE, AND CLOCK ENABLE 40$: BIT #S$WEXT,S.WFLG(R4) ;EXTERNAL START? BEQ 60$ ;IF EQ NO BIS #KA$STI!KA$STE,R2 ;YES--SET ST INT ENABLE, ST ENABLE ;COUNTER BIC #KA$ENB,R2 ;CLEAR CLOCK ENABLE--ST WILL START CLOCK .IFT ;M$$MGE MOV #.KWIN0+120000-<$KBASE&177700>,R3 ;SET FOR ST ISR .IFF ;M$$MGE MOV #.KWIN0,R3 ;SET FOR ST ISR .IFTF ;M$$MGE 60$: BIT #S$WDLY,S.WFL2(R4) ;IS THERE A DELAY? BEQ 80$ ;IF EQ NO BIS #K$ADLY,.KAFLG ;YES--FLAG DELAY BIC #KA$RIM,R2 ;CLEAR REPT INTERVAL BIS #KA$MFE,R2 ;SET MODE FLAG ENABLE .IFT ;M$$MGE MOV #.KWIN0+120000-<$KBASE&177700>,R3 ;SET FOR EXT START INE .IFF ;M$$MGE MOV #.KWIN0,R3 ;SET FOR EXT START ISR .IFTF ;M$$MGE 70$: MOV .KADLY,2(R1) ;SET DELAY PRESET 80$: BIS .KARAT,R2 ;SET RATE INTO CSR WORD MOV R3,.KWINT+2 ;SET ISR INTO INTERRUPT INSTRUCTION MOV R2,(R1) ;SET CLOCK CSR BIS #K$ACTV,.KAFLG ;FLAG CLOCK ACTIVE 100$: CLC ;FLAG OK 120$: RETURN ; 200$: CINT$S R1,#$KBASE,#.KWINT,#.KWEDI,#PR6,#.KWAST ;CONNECT RETURN .ENDC ;M$$MGE .DSABL LSB ; ; ENABLE DISABLE INTERRUPT ROUTINE ; .PSECT .KSCT1 .KWEDI: CLR @.KACSR ;DISABLE CLOCK ALWAYS MOV @#$TKTCB,.KTKCB ;REMEMBER MY TCB ADDRESS RETURN .SBTTL .KWIN? CLOCK "A" INTERRUPT ROUTINES ;+ ; .KWIN0 -- CLOCK "A" INTERRUPT ROUTINE FOR ST OR DELAY ; ; INPUTS: ; ; NONE ; ; OUTPUTS: ; ;- .ENABL LSB .KWIN0::MOV R3,(SP) ;;;SAVE R3, OVERWRITE R4 ON STACK .IF NDF FT$MOP MOV (R4),R4 ;;;GET SWB ADDRESS .IFF ;FT$MOP MOV .KLQUX,R4 ;;;GET SWB ADDRESS (ONLY 1ST CAN HAVE ;;;DELAY OR EXT START!) .ENDC ;FT$MOP .IF DF M$$MGE .IFTF ;M$$MGE MOV .KACSR,R3 ;;;GET CLOCK A CSR ADDRESS TST (R3) ;;;CHECK SCHMITT TRIGGER BMI 100$ ;;;IF MI SCHMITT TRIGGER FIRED BIT #K$ADLY,.KAFLG ;;;DOING A DELAY? BEQ 90$ ;;;NO--ALL DONE BIC #K$ADLY,.KAFLG ;;;YES--CLEAR FLAG CLR (R3) ;;;DISABLE CLOCK MOV .KAPRE,2(R3) ;;;SET PRESET MOV R3,-(SP) ;;;SAVE R3 (CSR ADDRESS) .IFT ;M$$MGE MOV S.WSTR(R4),R3 ;;;GET USER MODE ST ROUTINE ADDRESS ADD $KRLC5,R3 ;;;RELOCATE TO EXEC MODE CALL (R3) ;;;CALL THE ST ROUTINE MOV #.KWIN1+120000-<$KBASE & 177700>,.KWINT+2 ;;;RESET INT ROUTINE .IFF ;M$$MGE CALL @S.WSTR(R4) ;;;CALL ST ROUTINE MOV #.KWIN1,.KWINT+2 ;;;RESET INT ROUTINE .IFTF ;M$$MGE BIC #S$WEXT,S.WFLG(R4) ;;;CLEAR EXT START FLAG BIT #S$WNOV,S.WFLG(R4) ;;;NON-CLOCK DRIVEN? BNE 85$ ;;;IF NE YES 10$: MOV #KA$RIM!KA$MFE!KA$ENB,R3 ;;;SET REPT INTRVL AND MODE FLAG ENABLE BIT #S$WA$D,S.WFL2(R4) ;;;IS THIS THE A/D SWEEP? BEQ 20$ ;;;IF EQ NO MOV #KA$RIM!KA$ENB,R3 ;;;YES--NO CLOCK INTERRUPTS PLEASE 20$: BIS .KARAT,R3 ;;;INCLUDE CLOCK RATE 40$: MOV R3,@(SP)+ ;;;SET CLOCK CSR 60$: MOV (SP)+,R3 ;;;RESTORE R3 80$: RETURN 85$: TST (SP)+ ;;;CLEAR CSR OFF OF STACK BR 60$ ;;;GO EXIT INTERRUPT ; ; HERE IF NOT SCHMITT TRIGGER OR DELAY...MUST HAVE GOTTEN ; A DIGITAL INPUT START. FIX UP AND GO HANDLE REGULAR SAMPLING ; INTERRUPT. ; 90$: ;;;REF LABEL .IFT ;M$$MGE MOV #.KWIN1+120000-<$KBASE&177700>,.KWINT+2 ;;;SET ISR .IFF ;M$$MGE MOV #.KWIN1,.KWINT+2 ;;;SET ISR .IFTF ;M$$MGE BR KWIN1A ;;;HANDLE SAMPLING INTERRUPT ; ; HERE IF ST1 FIRED ; 100$: BIC #KA$STF!KA$STI!KA$STE,(R3) ;;;DISABLE SCHMITT TRIGGER ;;;AND CLEAR ST FLAG .IF DF N$DR11 CALL .DSDGO ;;;DISABLE DIGO IF ENABLED .ENDC ;N$DR11 BIT #S$WDLY,S.WFL2(R4) ;;;IS THERE A DELAY TO DO? BNE 300$ ;;;IF NE YES--WILL GET ANOTHER INTERRUPT .IFT ;M$$MGE MOV S.WSTR(R4),R3 ;;;GET ST USER MODE ADDRESS ADD $KRLC5,R3 ;;;RELOCATE TO EXEC MODE CALL (R3) ;;;CALL ST ROUTINE MOV #.KWIN1+120000-<$KBASE & 177700>,.KWINT+2 ;;;RESET INT ROUTINE .IFF ;M$$MGE CALL @S.WSTR(R4) ;;;CALL STR ROUTINE MOV #.KWIN1,.KWINT+2 ;;;RESET INT ROUTINE .ENDC ;M$$MGE BIC #S$WEXT,S.WFLG(R4) ;;;CLEAR EXT START FLAG BR 300$ ;;;GO FINISH UP ;+ ; .KWIN1 -- CLOCK "A" INTERRUPT FOR SYNCHRONOUS SWEEP ; ; INPUTS: ; ; R4 POINTS TO .KASWX ; ; OUTPUTS: ; ; ALL ACTIONS NECESSARY FOR CLOCK DRIVEN SWEEP ARE PERFORMED ; ;- .KWIN1::MOV R3,(SP) ;;;SAVE R3--OVERWRITE R4 ON STACK .IF NDF FT$MOP MOV (R4),R4 ;;;GET ACTIVE SWB ADDRESS .IFTF ;FT$MOP KWIN1A: BIC #KA$MDF,@.KACSR ;;;CLEAR CLOCK MODE FLAG .IF DF M$$MGE MOV @#KISAR6,-(SP) ;;;SAVE APR6 .ENDC ;M$$MGE .IFF ;FT$MOP CLR -(SP) ;;;CLEAR FORK NEEDED FLAG .IF DF M$$MGE MOV #<.KLQUX-S.WCLX>+120000-<$KBASE & 177700>,R4 .IFF ;M$$MGE MOV #<.KLQUX-S.WCLX>,R4 ;;;POINT TO QUEUE .ENDC ;M$$MGE 210$: MOV S.WCLX(R4),R4 ;;;LINK TO NEXT SWB BEQ 215$ ;;;IF EQ ALL DONE MOV S.WFL2(R4),R3 ;;;GET FLAGS AND SEE IF ACTIVE? BPL 210$ ;;;IF PL NOT ACTIVE TSTB R3 ;;;ACTIVE--IS THIS A/D SWEEP? BMI 210$ ;;;IF MI YES--DO NOT BOTHER CALL @S.WSCR(R4) ;;;YES--CALL SYNC CLOCK ROUTINE BCC 210$ ;;;IF CC CONTINUE BIS #S$WAST,S.WFLG(R4) ;;;SET AST FLAG INC (SP) ;;;SET FORK NEEDED FLAG BR 210$ ;;;CONTINUE 215$: TST (SP)+ ;;;NEED TO FORK? BEQ 240$ ;;;IF EQ NO .IFT ;FT$MOP CALL @S.WSCR(R4) ;;;CALL SYNCHRONOUS CLOCK ROUTINE BCC 240$ ;;;IF CC OK BIT #S$WSTP,S.WFL2(R4) ;;;STOP THE SWEEP? BEQ 220$ ;;;IF EQ NO CLR @.KACSR ;;;YES--STOP THE CLOCK .ENDC ;FT$MOP 220$: ;;;REF LABEL .IF DF M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .ENDC ;M$$MGE MOV (SP)+,R3 ;;;RESTORE R3 .IF NDF FT$MOP CALLR .KEFQI ;;;FORK SET EFN OR QUEUE AST AND EXIT .IFF ;FT$MOP .IF DF M$$MGE MOV #<.KLQUX-S.WCLX>+120000-<$KBASE & 177700>,R4 .IFF ;M$$MGE MOV #<.KLQUX-S.WCLX>,R4 ;;;POINT TO QUEUE .ENDC ;M$$MGE MOV .KUCNT,-(SP) ;;;SET CLOCK USER COUNT ONTO STACK ; ; RUN THROUGH CLOCK QUEUE TO SEE IF WE NEED TO STOP CLOCK ; 225$: MOV S.WCLX(R4),R4 ;;;LINK TO NEXT SWB BEQ 227$ ;;;IF EQ ALL DONE TST S.WFL2(R4) ;;;IS SWEEP ACTIVE? BMI 225$ ;;;IF MI YES DEC (SP) ;;;NO--DE|C USE COUNT BR 225$ ;;;CONTINUE SCANNING 227$: TST (SP)+ ;;;ANY USERS LEFT? BGT 230$ ;;;IF GT YES CLR @.KACSR ;;;NO--STOP THE CLOCK 230$: CALLR .KWEFQ ;;;FORK, SET EFN OR QUEUE AST AND EXIT .ENDC ;FT$MOP 240$: .IF DF M$$MGE MOV (SP)+,@#KISAR6 ;;;RESTORE APR6 .ENDC ;M$$MGE 300$: MOV (SP)+,R3 ;;;RESTORE R3 320$: RETURN .DSABL LSB .END |±F zkQ%›c, .TITLE KLQSUB CLOCK QUEUE SUBROUTINES .IDENT /M01.01/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION M01.01 ; B. SCHREIBER 15-NOV-77 ; ; MODIFIED BY: ; ; MSH017 M. HARVEY OCT. 12, 1978 ; CORRECT CONDITIONALIZATION FOR NO CLOCK ; ; THIS MODULE CONTAINS ROUTINES TO MODIFY THE CLOCK QUEUE ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ .SBTTL .KLQIN INSERT SWEEPS INTO CLOCK QUEUE ;+ ; .KLQIN -- INSERT SWEEP INTO CLOCK QUEUE ; ; THIS ROUTINE SETS UP A SWEEP TO BE IN THE CLOCK QUEUE. ; ; INPUTS: ; ; R4 POINTS TO SWB ; R3 FREE ; ; OUTPUTS: ; ; [NOT MULTIPLE SWEEPS] .KASWB AND .KASWX ARE SET UP. ; [MULTIPLE SWEEPS] SWB IS ENTERED INTO CLOCK QUEUE. ; [BOTH] ACTIVE FLAG IS SET FOR CLOCK ; ;- .KLQIN:: ;REF LABEL .IF NDF FT$MOP MOV #.KASWX,R3 ;POINT TO KASWX MOV R4,(R3)+ ;SET SWB ADDRESS INTO .KASWX MOV R4,(R3) ;SET SWB ADDRESS INTO .KASWB .IF DF M$$MGE ADD $KRLC5,-(R3) ;RELOCATE .KASWX TO APR5 .ENDC ;M$$MGE .IFF ;FT$MOP MTPS #PR6 ;LOCK OUT INTERRUPTS MOV .KLQUU,S.WCLQ(R4) ;;;LINK NEW ACTIVE SWEEP INTO QUEUE MOV R4,.KLQUU ;;; .IF DF M$$MGE MOV R4,R3 ;;;COPY PTR ADD $KRLC5,R3 ;;;RELOCATE TO APR5 MOV .KLQUX,S.WCLX(R4) ;;;LINK INTO EXEC LEVEL QUEUE MOV R3,.KLQUX ;;;... .ENDC ;M$$MGE INC .KUCNT ;;;COUNT ANOTHER CLOCK USER MTPS #0 ;;;ALLOW INTERRUPTS .ENDC ;FT$MOP RETURN ;SWEEP IS IN THE QUEUE .SBTTL .KLQRM REMOVE SWEEP FROM CLOCK QUEUE ;+ ; .KLQRM -- REMOVE SWEEP FROM CLOCK QUEUE ; ; INPUTS: ; ; CALLED AT USER LEVEL WITH R4 POINTING TO SWB ; ; OUTPUTS: ; ; SWB IS REMOVED FROM QUEUE ; ;- .KLQRM:: ;REF LABEL .IF NDF FT$MOP CLR .KASWB ;CLEAR SWB ADDRESS CLR .KASWX ;... .IFF ;FT$MOP MOV R3,-(SP) ;SAVE R3 MOV R2,-(SP) ;AND R2 MTPS #PR6 ;;;LOCK OUT INTERRUPTS MOV #.KLQUU-S.WCLQ,R3 ;;;POINT TO QUEUE 20$: MOV R3,R2 ;;;REMEMBER FROM WHENCE WE CAME MOV S.WCLQ(R3),R3 ;;;LINK TO NEXT IN QUEUE BEQ 40$ ;;;IF EQ MUST NOT HAVE BEEN IN QUEUE CMP R4,R3 ;;;IS THIS THE RIGHT ONE? BNE 20$ ;;;IF NE NO MOV S.WCLQ(R3),S.WCLQ(R2) ;;;YES--UNLINK FROM QUEUE .IF DF M$$MGE MOV S.WCLX(R3),S.WCLX(R2) ;;;AND FROM EXEC QUEUE .ENDC ;M$$MGE DEC .KUCNT ;;;DECREASE USE COUNT BGT 40$ ;;;IF GT CLOCK STILL ACTIVE .IFTF ;FT$MOP .IF DF K$$W11 BIC #K$ACTV,.KAFLG ;;;CLOCK NO LONGER ACTIVE .ENDC ;K$$W11 .IFF ;FT$MOP 40$: MTPS #0 ;;;ALLOW INTERRUPTS MOV (SP)+,R2 ;RESTORE REGISTERS MOV (SP)+,R3 ;... .ENDC ;FT$MOP RETURN .END AG@kQ%›c, .TITLE KPAA PUSH ARGUMENT ADDRESSES .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 23-JUN-77 ; ; SUBROUTINE TO PUSH FORTRAN ARGUMENT LIST ONTO STACK ;+ ; .K.PAA -- SUBROUTINE TO PUSH ARGUMENT ADDRESSES ONTO THE STACK ; ; CALLING SEQUENCE: ; CALL .K.PAA ; .WORD MAXARG ; .WORD BITMAP ; (BIT0 FOR LAST ARG, BIT1 FOR NEXT TO LAST...) ; ; INPUTS: ; ; R5 ADDRESS OF ARGUMENT ADDRESS TABLE ; MAXARG MAXIMUM NUMBER OF ARGUMENTS ; BITMAP BIT MAP WITH ONES FOR REQUIRED ARGUMENTS ; ; OUTPUTS: ; ; C-CLEAR ARGUMENTS SET UP ON STACK ; STACK SETUP WITH ADDRESSES OR 0 FOR DEFAULTED ARGUMENTS ; R5 HOLDS OLD SP FOR ERROR RECOVERY (CLEAN STACK) ; ; C-SET REQUIRED ARG NOT PRESENT, ILLEGAL NUMBER OF ARGS ; STACK IS CLEAR ; R5 STILL POINTING TO ARGUMENT LIST ; ; REGISTERS ALTERED: ; ; R4,R3,R2,R1,R0 ; ;- .K.PAA::MOV (SP)+,R3 ;GET ADDRESS OF RETURN MOV SP,R4 ;PRESERVE SP IN CASE OF ERROR MOV (R3)+,R2 ;R2=MAX # OF ARGUMENTS MOV (R3)+,R1 ;R1=BIT MAP OF MANDATORY ARGUMENTS ;R3=RETURN ADDRESS MOVB (R5),R0 ;GET ACTUAL NUMBER OF ARGUMENTS SUB R0,R2 ;PUSH A ZERO FOR EACH ARGUMENT NOT GIVEN BMI 160$ ;IF MI THEN TOO MANY ARGUMENTS BEQ 40$ ;IF EQ ALL ARGUMENTS SUPPLIED 20$: ROR R1 ;SEE IF MANDATORY BCS 160$ ;IF CS YES--ERROR CLR -(SP) ;NO--SET A ZERO ON THE STACK DEC R2 ;DO ALL UNSPECIFIED ARGUMENTS BNE 20$ ;WAIT FOR R2=0 ; ; NOW SEE IF ANY MORE ARGS TO PROCESS (GIVEN IN CALL) ; 40$: MOV R0,R2 ;PICK UP COUNT OF ARGS LEFT TO DO BEQ 120$ ;IF EQ ALL DONE INC R2 ;ELSE SET R2 TO ADR OF WORD FOLLOWING ; ADDRESS LIST ASL R2 ;SET R2=2*(R0+1)+R5 ADD R5,R2 ;NOW R2 POINTS JUST PAST LAST ARG ; ; PUSH GIVEN ARGUMENTS ONTO STACK IN REVERSE ORDER, CONVERTING ; DEFAULTED ARGUMENTS INTO ZEROES ; 60$: MOV -(R2),-(SP) ;PUSH ONE CMP #-1,(SP) ;WAS ARGUMENT DEFAULTED? BEQ 80$ ;IF EQ YES ROR R1 ;NO--ROTATE BIT MAP BR 100$ ; 80$: ROR R1 ;DEFAULTED ARG--WAS IT REQUIRED? BCS 160$ ;IF CS YES--ERROR CLR (SP) ;NO--CHANGE TO ZERO 100$: DEC R0 ;LOOP BNE 60$ ; 120$: CLC ;BETTER SAFE THAN SORRY BR 180$ ;GO EXIT ; ; HERE IF AN ERROR WAS DETECTED ; 160$: MOV R4,SP ;RESTORE SP SEC ;FLAG AN ERROR HAS OCCURRED BR 200$ ;GO RETURN WpITH R5 INTACT 180$: MOV R4,R5 ;COPY OLD SP FOR LATER ERROR RECOVERY 200$: JMP (R3) ;ROUTINE EXIT .END pÝFKkQ%›c, .TITLE KMUL INTEGER MULTIPLY MAGNITUDE NUMBERS .IDENT /03/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 03 ; ; D. N. CUTLER 10-FEB-72 ;+ ; **-.KMUL-INTEGER MULTIPLY MAGNITUDE NUMBERS ; ; INPUTS: ; ; R0=MULTIPLIER. ; R1=MULTIPLICAND. ; ; OUTPUTS: ; ; DOUBLE WORD RESULT IS RETURNED WITH THE ; HIGH PART IN R0 AND THE LOW PART IN R1. ; ; REGISTERS R2, R3, R4, AND R5 ARE PRESERVED ACROSS CALL. ;- h .ENABL LSB .KMUL:: MOV R0,-(SP) ;SAVE R0 FOR ADDS MOV #21,-(SP) ;SET REPEAT COUNT CLR R0 ;CLEAR HIGH PART 10$: ROR R0 ;DOUBLE RIGHT SHIFT ROR R1 ; BCC 20$ ;IF CC DO NOT ADD ADD 2(SP),R0 ; CLC ;CLEAR CARRY INDICATOR 20$: DEC (SP) ;DECREMENT REPEAT COUNT BGT 10$ ;IF GT MORE TO GO CMP (SP)+,(SP)+ ;CLEAN STACK RETURN ; .END h§Gp kQ%›c, .TITLE KRWBF READ/WRITE BUFFER .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; VERSION 01 ; B. SCHREIBER 14-JUL-77 ; ; THIS MODULE READS AND WRITES THE USERS DATA BUFFER ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ .PSECT .KSCT1 .SBTTL .KRDWD READ WORD FROM USER BUFFER AT INTERRUPT LEVEL ;+ ; .KRDWD -- READ WORD FROM USER BUFFER (AT INTERRUPT LEVEL) ; ; INPUTS: ; ; R4 SWEEP CONTROL BLOCK POINTER ; ; OUTPUTS: ; ; C-CLEAR READ WORD OK ; R3 HOLDS DATUM ; ; C-SET READ WORD OK--END OF BUFFER OR SWEEP ; ; REGISTERS ALTERED: ; ; NONE ; ;- .KRDWD::MOV S.WBPX(R4),R3 ;;;GET POINTER TO CURRENT BUFFER POINTER .IF DF M$$MGE MOV (R3)+,@#KISAR6 ;;;MAP TO USER BUFFER .IFTF ;M$$MGE MOV @(R3),-(SP) ;;;READ WORD FROM BUFFER ONTO STACK ADD #2,(R3) ;;;INCREMENT BUFFER POINTER .IFT ;M$$MGE BIT #20000,(R3) ;;;OVERFLOW 4K BOUNDARY? BEQ 40$ ;;;IF EQ NO BIC #20000,(R3) ;;;YES--CLEAR OVERFLOW ADD #200,-(R3) ;;;ADVANCE TO NEXT 4K BOUNDARY .IFTF ;M$$MGE 40$: CLC ;;;PRESET FOR SUCCESS DEC S.WCNT(R4) ;;;DECREMENT SAMPLE COUNT (C-OK) BGT 60$ ;;;IF GT NOT END OF BUFFER CALL .BFSWT ;;;YES--SWITCH BUFFERS SEC ;;;SET C-BIT FOR FORK REQUEST 60$: MOV (SP)+,R3 ;;;RESTORE WORD RETURN ;;;M$$MGE CONDITIONAL CONTINUES .SBTTL .KWRWD WRITE WORD INTO USER BUFFER AT INTERRUPT LEVEL ;;;M$$MGE CONDITIONAL CONTINUED ;+ ; .KWRWD -- WRITE WORD INTO USER BUFFER ; ; THIS ROUTINE WRITES A DATA WORD INTO THE USER BUFFER ; ; INPUTS: ; ; R3 DATA WORD ; R4 SWEEP CONTROL BLOCK POINTER ; ; OUTPUTS: ; ; C-CLEAR OK ; ; C-SET OK BUT FORK REQUEST FOR END OF BUFFER, DONE, OR DAO ; ; REGISTERS ALTERED: ; ; NONE ; ;- .KWRWD::MOV R3,-(SP) ;;;SAVE DATA WORD MOV S.WBPX(R4),R3 ;;;GET POINTER TO CURRENT BUFFER POINTER .IFT ;M$$MGE MOV (R3)+,@#KISAR6 ;;;MAP TO USER BUFFER .IFTF ;M$$MGE MOV (SP)+,@(R3) ;;;WRITE WORD INTO USER BUFFER 20$: ADD #2,(R3) ;;;INCREMENT BUFFER POINTER .IFT ;M$$MGE BIT #20000,(R3) ;;;OVERFLOW 4K BOUNDARY? BEQ 40$ ;;;IF EQ NO BIC #20000,(R3) ;;;YES--CLEAR OVERFLOW ADD #200,-(R3) ;;;ADVANCE TO NEXT 4K BOUNDARY .IFTF ;M$$MGE 40$: CLC ;;;PRESET C FOR SUCCESS DEC S.WCNT(R4) ;;;DECREMENT SAMPLE COUNT ;;; (**DEC DOES NOT AFFECT C-BIT**) BGT 60$ ;;;IF GT BUFFER NOT DONE CALL .BFSWT ;;;END OF BUFFER--SWITCH SEC ;;;SET C-BIT FOR FORK REQUEST 60$: RETURN ;;; ;;;M$$MGE CONDITIONAL CONTINUES .SBTTL .BFSWT SWITCH BUFFERS AT INTERRUPT LEVEL ;;;M$$MGE CONDITIONAL CONTINUED ;+ ; .BFSWT -- SWITCH TO NEXT BUFFER ; ; INPUTS: ; ; R4 POINTS TO SWEEP CONTROL BLOCK ; R3 SCRATCH ; ; OUTPUTS: ; ; BUFFERS SWITCHED ; ;- .BFSWT::MOVB S.WBNO(R4),S.WLBF(R4) ;;;REMEMBER LAST BUFFER IN CASE OF ERROR .IFT ;M$$MGE MOV S.WUSW+2(R4),@#KISAR6 ;;;MAP TO USER STATUS WORD (IBUF) .IFTF ;M$$MGE MOV S.WUSW+4(R4),R3 ;;;GET USW ADDRESS ADD #IB.USQ,R3 ;;;POINT TO USER BUFFER QUEUE .REPT 8. TSTB (R3)+ ;;;LOOK FOR EMPTY SLOT IN QUEUE BMI 10$ ;;;IF MI WE FOUND IT .ENDM BR 100$ ;;;IF QUEUE IS FULL CALL IT OVERRUN ;;;EVEN THO IT IS REALLY UNDERRUN(!!??) 10$: MOVB S.WBNO(R4),-(R3) ;;;ENTER BUFFER NUMBER INTO USER QUEUE BIT #S$WSEB!S$WSTP,S.WFL2(R4) ;;;STOP AT END OF BUFFER? ;;;OR JUST PLAIN STOP SWEEP? BNE 60$ ;;;IF NE YES TST S.WNBF(R4) ;;;CONTINUOUS SAMPLING? BMI 20$ ;;;IF MI YES DEC S.WNBF(R4) ;;;NO--DEC BUFFER COUNT BEQ 80$ ;;;IF EQ SWEEP IS COMPLETE 20$: MOV S.WUSW+4(R4),R3 ;;;POINT TO IBUF AGAIN ADD #IB.DVQ,R3 ;;;POINT AT THE DEVICE BUFFER QUEUE MOVB (R3),S.WBNO(R4) ;;;GET THE NEXT BUFFER NUMBER TO USE BMI 100$ ;;;IF MI WE HAVE OVERRUN .REPT 3 MOVB 1(R3),(R3)+ ;;;MOVE THE QUEUE DOWN A BYTE MOVB 1(R3),(R3)+ ;;;... BMI 50$ ;;;TRY THE EASY OUT 3 TIMES .ENDM 40$: MOVB 1(R3),(R3)+ ;;;MOVE THE LAST ENTRY DOWN MOVB #-1,(R3) ;;;CLOSE QUEUE WITH A (-1) 50$: MOVB S.WBNO(R4),R3 ;;;GET NEW CURRENT BUFFER NUMBER ASL R3 ;;;MULTIPLY ASL R3 ;;; BY 4 ADD R4,R3 ;;;INDEX INTO SWB ADD #S.WIBP,R3 ;;; AND INTO INITIAL BUFFER POINTERS MOV (R3)+,S.WBPT(R4);;;MOVE POINTERS MOV (R3)+,S.WBPT+2(R4) ;;;INTO S.WBPT MOV S.WSIZ(R4),S.WCNT(R4) ;;;RESET BUFFER COUNT RETURN ;;;DONE ; ; HERE WHEN S$WSEB IS TRUE (STOP AT END OF BUFFER) ; 60$: MOV #-,S.WSTS(R4) ;;;SET STATUS OF ABORT FOR S$WSEB BR 120$ ;;;FLAG TO STOP AND RETURN ; ; ALL BUFFERS SAMPLED ; 80$: MOV #IS.SUC,S.WSTS(R4) ;;;SET STATUS BR 120$ ;;;FINISH UP ; ; DATA OVERRUN OR DONE SAMPLING ; 100$: MOV #-,S.WSTS(R4) ;;;SET DATA OVERRUN STATUS 120$: BIS #S$WSTP,S.WFL2(R4) ;;;FLAG TO STOP MOVB S.WLBF(R4),S.WEBF(R4) ;;;SET BUFFER IN ERROR NUMBER FOR ;;;IGTBUF/IWTBUF (MAY NOT BE IN ´ ;;;ERROR, BUT ACTUALLY END OF ;;;SWEEP, BUT ITS ALL THE SAME!) BIC #S$WACT,S.WFL2(R4) ;;;SWEEP IS NO LONGER ACTIVE 140$: RETURN ;;; .ENDC ;M$$MGE .END ´“GºLkQ%›c, .TITLE RCLOKB READ CLOCK B FROM FORTRAN .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 24-OCT-77 ; ; THIS MODULE READS CLOCK B AND RETURNS THE VALUE IN FLOATING POINT .SBTTL RCLOKB ;+ ; RCLOKB -- READ CLOCK B AND RETURN RESULT IN FLOATING POINT ; ; CALL: ; ; TIME = RCLOKB (RLAST [,PTIME]) ; ; INPUTS: ; ; RLAST IS THE VALUE TO BE SUBTRACTED FROM THE CURRENT ; 16-BIT SOFTWARE CLOCK TIME BEFORE RETURNING THE ; RESULT. ; ; OUTPUTS: ; ; TIME,PTIME RETURN THE RESULT ; ;- RCLOKB::CALL ICLOKB ;READ 16-BIT CLOCK CALL .FLT16 ;CONVERT TO FLOATING POINT IN R0,R1 TST (R5)+ ;SKIP THE COUNT WORD MOV (R5)+,R4 ;GET ADDRESS OF RLAST CMP #-1,R4 ;WAS IT DEFAULTED? BEQ 40$ ;IF EQ YES--WE ARE DONE MOV (R4),-(SP) ;NO--PUSH ONTO STACK BIS 2(R4),(SP)+ ;AND SEE IF IT WAS 0 BEQ 40$ ;IF EQ YES MOV (R4)+,R2 ;NO--GET THE ARGUMENT MOV (R4)+,R3 ;... CALL .KSUB ;SUBTRACT RLAST FROM CURRENT TIME ; (RETURN IN R0:R1) 40$: CMP -4(R5),#2 ;WERE THERE TWO ARGUMENTS? BLT 100$ ;IF LT NO CMP (R5),#-1 ;YES--WAS 2ND ARG DEFAULTED? BEQ 100$ ;IF EQ YES MOV (R5),R4 ;NO--GET ADDRESS OF 2ND ARG MOV R0,(R4)+ ;STORE TIME ARGUMENT MOV R1,(R4)+ ;... 100$: RETURN .END œG8^kQ%›c, .TITLE KRLOC RELOCATE USER ADDRESS .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER (FROM IOSUB.MAC) ; ;+ ; .KRLOC -- RELOCATE USER VIRTUAL ADDRESS ; ; THIS ROUTINE TRANSFORMAS A 16 BIT USER ADDRESS INTO ; A RELOCATION BIAS AND DISPLACEMENT IN BLOCK RELATIVE TO APR6. ; ; INPUTS: ; ; R0 USER VIRTUAL ADDRESS TO RELOCATE ; ; OUTPUTS: ; ; R1 RELOCATION BIAS TO BE LOADED INTO PAR6. ; R2 DISPLACEMENT IN BLOCK PLUS 140000 (PAR6 BIAS) ; ; REGISTERS ALTERED: ; ; R1 ; ;- .KRLOC:: ;REF LABEL .IF NDF M$$MGE MOV R0,R2 ;COPY PHYSICAL ADDRESS CLR R1 ;CLEAR RELOCATION BIAS .IFF MOV R0,R1 ;COPY VIRTUAL ADDRESS CLR R2 ;ZERO APR NUMBER ACCUMULATOR ASL R1 ;COLLEœCT APR NUMBER ROL R2 ; ASL R1 ; ROL R2 ; ASL R1 ; ROL R2 ; ASL R2 ;CONVERT TO APR INDEX CLRB R1 ;CLEAR EXTRANEOUS BITS SWAB R1 ;COLLECT BLOCK NUMBER IN LOW BYTE ROR R1 ; ADD UISAR0(R2),R1 ;CALCULATE RELOCATION BIAS MOV R0,R2 ;COPY VIRTUAL ADDRESS BIC #177700,R2 ;CLEAR ALL BUT DISPLACEMENT IN BLOCK BIS #140000,R2 ;SET APR 6 BIAS .ENDC ;M$$MGE RETURN ; .END œRG@kQ%›c, .NLIST .TITLE KPRE .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; ASSEMBLY PREFIX FILE FOR K-SERIES PERIPHERAL SUPPORT SUBROUTINES ; M$$MGE=0 ;MAPPED SYSTEM N$$MBF=8. ;MAXIMUM NUMBER OF BUFFERS K$$W11=1 ;KW11-K CLOCK SUPPORT K$W11K=1 ;KW11-K CLOCK G$$HST=0 ;GTHIST DATA BASE FT$MOP=0 ;MULT. CLOCK DRIVEN SWEEPS N$AD11=1 ;AD11-K A/D CONVERTER SUPPORT A$$M11=0 ;AM11-K SUPPORT N$DR11=1 ;DR11-K SUPPORT N$AA11=1 ;AA11-K D/A CONVERTERS N$$SWB=5 ;NUMBER OF SWEEP CONTROL BLOCKS ; ; MACRO TO DEFINE JUMP TO SUBROUTINE WITH RETURN TO CALLER'S CALLER ; .MACRO CALLR ARG JMP ARG .ENDM ; ; MACROS TO REFERENCE PSW FOR NON-LSI-11 PROCESSORS ; .IF NDF L$$SI1 .MACRO MFPS DST MOVB @#PS,DST r.ENDM .MACRO MTPS SRC .IF IDN <#0>, CLRB @#PS .IFF MOVB SRC,@#PS .ENDC .ENDM .ENDC .LIST r½G}kQ%›c, .TITLE KSET SETUP ARGS FOR SWEEPS .IDENT /M02.00/ ; ; COPYRIGHT (C) 1977, 1978, 1979 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 02.00 ; B. SCHREIBER 23-JUN-77 ; ; PREVIOUSLY MODIFIED BY: ; ; B. SCHREIBER ; M. S. HARVEY ; ; MODIFIED BY: ; ; M. S. HARVEY 9-OCT-79 ; MSH025 -- TRAP GROUP GLOBAL EVENT FLAG USE AS ERROR ; ; ; THIS ROUTINE POPS THE ARGUMENTS OFF OF THE STACK AND SETS ; UP THE SWEEP CONTROL BLOCK (SWB) ; ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$, CLEF$S KSWDF$ .SBTTL .K.SET SET UP SWEEP CONTROL BLOCK ;+ ; .K.SET -- SETUP SWEEP CONTROL BLOCK ; ; INPUTS: ; ; STACK SETUP FROM .K.PAA ; R5 OLD SP BEFORE .K.PAA (RETURNED BY .K.PAA) ; R4 SWEEP CONTROL BLOCK (SWB) POINTER ; ; OUTPUTS: ; ; C-CLEAR SWEEP CONTROL BLOCK SETUP ; ALL ARGUMENTS THROUGH 'IEFN' HAVE BEEN ; POPPED OFF OF THE STACK ; ; C-SET ARGUMENT ERROR ; SP RESET TO VALUE BEFORE .K.PAA ; ; REGISTERS ALTERED: ; ; R3,R2 ; ;- .K.SET::MOV (SP)+,R3 ;POP OFF RETURN ADDRESS TST S.WFL2(R4) ;SWEEP ALREADY ACTIVE? BMI 300$ ;IF MI YES--ERROR BIC #S$W2CL,S.WFL2(R4) ;CLEAR FLAGS AS NEEDED CLR S.WSTS(R4) ;CLEAR SWEEP I/O STATUS WORD MOV (SP)+,R1 ;GET IBUF ADDRESS CMP (R1),#I$BFVW ;WAS SETIBF CALLED? BNE 300$ ;IF NE NO--BAD ARGUMENTS CLR (R1) ;YES--SET OP IN PROGRESS TSTB IB.DVQ(R1) ;HAS RLSBUF BEEN CALLED FOR 1 BUFFER? BMI 300$ ;IF MI NO--ERROR MOV R1,S.WBPT(R4) ;YES--SAVE ADDRESS FOR LATER MOVB #-1,S.WEBF(R4) ;INIT ERROR BUFFER NUMBER TO NO BUFFER MOV @(SP)+,S.WSIZ(R4) ; PICKUP BUFFER SIZE BLE 300$ ;IF LE THEN ERROR MOV S.WSIZ(R4),S.WCNT(R4) ;INIT THE COUNTER MOV (SP)+,R2 ;GET 'NBUF' ADDRESS BEQ 10$ ;IF EQ SET DEFAULT TST (R2) ;WAS IT POSITIVE? BGT 20$ ;IF GT YES 10$: MOV #.NEG1,R2 ;DEFAULT TO FOREVER 20$: MOV (R2),S.WNBF(R4) ;SET NUMBER OF BUFFERS MOV (SP)+,R2 ;GET 'MODE' ADDRESS BNE 60$ ;IF NE GO STORE MOV #.ZEROW,R2 ;IF DEFAULTED STORE A ZERO 60$: MOV (R2),R2 ;PICKUP USER FLAGS BIC #^C,R2 ;CLEAR FLAGS USER SHOULD NOT HAVE ON MOV R2,S.WFLG(R4) ;SET THE FLAGS IN SWB BIT #S$WTSS,R2 ;IS THIS TIME-STAMPED SAMPLING? BEQ 100$ ;IF EQ NO--SKIP BIC #1,S.WSIZ(R4) ;YES--ENSURE EVEN # OF WORDS IN BUFFER BIC #1,S.WCNT(R4) ; (JUST A BIT OF PROTECTION FOR ISR) 100$: MOV S.WSIZ(R4),2(R1) ;INIT IOSB(2) TO BUFFER SIZE MOV (SP)+,R2 ;GET 'IPRSET' ADDRESS .IF DF K$$W11 BEQ 140$ ;IF EQ SKIP BIT #S$WNOV,S.WFLG(R4) ;NON-OVERFLOW SAMPLING? BNE 160$ ;IF NE YES--SKIP CHECK .IF DF FT$MOP TST .KAFLG ;IS THERE ANOTHER ACTIVE SWEEP? BPL 140$ ;IF PL NO--SKIP CHECK CMP (R2),.KAPRE ;YES--SAME PRESET? BNE 300$ ;IF NE NO--ERROR .IFTF ;FT$MOP MOV (R2),.KAPRE ;SET THE PRESET 140$: BIT #S$WNOV,S.WFLG(R4) ;NON-OVERFLOW SAMPLING? BNE 160$ ;IF NE YES TST .KAFLG ;NO--ARE ANY OTHER SWEEPS ACTIVE? .IFF ;FT$MOP BMI 300$ ;IF MI YES--ERROR .IFT ;FT$MOP BPL 150$ ;IF PL NO--OKAY BIT #K$AGTD,.KAFLG ;YES--IS IT GTHIST? BNE 300$ ;IF NE YES--ERROR 150$: .ENDC ;FT$MOP BIT #K$ACAC,.KAFLG ;WAS 'CLOCKA' CALLED? BEQ 300$ ;IF EQ NO--NO CLOCK RATE, AND NOT ; NON-OVERFLOW DRIVEN SAMPLING .IFF ;K$$W11 140$: BIT #S$WNOV,S.WFLG(R4) ;NON-OVERFLOW DRIVEN SAMPLING? BEQ 300$ ;IF EQ NO--LOSE BECAUSE NO CLOCK .ENDC ;K$$W11 ; ;LAST ARG TO CHECK IS THE EVENT FLAG/COMPLETION ROUTINE ; 160$: MOV (SP)+,R2 ;GET ADDRESS OR 0 BEQ 165$ ;IF EQ USE DEFAULT EFN TST (R2) ;SEE IF EFN PRESENT (0 IS HALT SO CAN'T BE AST!) BNE 170$ ;IF NE YES--GO CHECK IT OUT 165$: MOV #.KDFEF,R2 ;NO--USE THE DEFAULT EVENT FLAG BR 180$ ;WE KNOW ITS AN EVENT FLAG 170$: CMP (R2),#96. ;IS IT AN EVENT FLAG OR ROUTINE ADDR BLOS 180$ ;IF LOS THEN EVENT FLAG BIT #1,R2 ;MAKE SURE LEGAL ADDRESS BNE 300$ ;IF NE ERROR MOV R2,S.WEFN(R4) ;SET COMPLETION ROUTINE ADDRESS BR 200$ ;GO EXIT 180$: CMP (R2),#64. ;GROUP GLOBAL EVENT FLAG? ;MSH025 BHI 300$ ;IF HI YES, ERROR ;MSH025 TST (R2) ;CHECK EFN LEGALITY ;MSH025 BLE 300$ ;IF LE THEN ILLEGAL ;**-1 MOV (R2),S.WEFN(R4) ;SET EVENT FLAG NUMBER CLEF$S (R2) ;CLEAR THE EVENT FLAG BCS 300$ ;ILLEGAL EVENT FLAG BIS #S$WEFN,S.WFL2(R4) ;NOTE THAT EVENT FLAG USED 200$: CLC ;FLAG ALL IS WELL BR 900$ ;RETURN ; ;SOME SORT OF ERROR--RESET SP AND RETURN WITH C-SET ; 300$: MOV R5,SP ;RESTORE SP TO ORIGINAL VALUE SEC ;LET CALLER KNOW OF PROBLEM 900$: JMP (R3) ;RETURN TO CALLER .SBTTL .K.DLY SETUP/CHECK DELAY FROM START ;+ ; .K.DLY -- SETUP/CHECK 'LDELAY' ARGUMENT FOR SWEEP ; ; INPUTS: ; ; (SP) ADDRESS OF 'LDELAY' ARGUMENT OR 0 ; R4 SWEEP CONTROL BLOCK POINTER ; R5 ORIGINAL SP AS SETUP BY .K.PAA ; ; OUTPUTS: ; ; C-CLEAR SETUP OK ; .KADLY ZERO OR DELAY ; ; C-SET CLOCK ACTIVE, OR DELAY ILLEGAL ; SP RESET TO VALUE BEFORE .K.PAA ; ; REGISTERS ALTERED: ; ; R3,R2 ; ;- .K.DLY::MOV (SP)+,R3 ;PICK OFF RETURN ADDRESS MOV (SP)+,R2 ;GET 'LDELAY' ADDRESS OR 0 BNE 20$ ;IF NE GO USE IT MOV #.ZEROW,R2 ;SET ADDRESS OF A ZERO 20$: .IF DF K$$W11 TST .KAFLG ;IS THE CLOCK ACTIVE? BMI 60$ ;IF MI YES BIT #S$WA$D,S.WFL2(R4) ;IS THIS THE A/D SWEEP? BNE 40$ ;IF NE YES--DELAY IS LEGAL BIT #S$WNOV,S.WFLG(R4) ;NO--IS IT CLOCK DRIVEN? BNE 60$ ;IF NE YES--DELAY IS ILLEGAL 40$: MOV (R2),.KADLY ;NO--SET THE DELAY BEQ 100$ ;IF EQ NO DELAY NEG .KADLY ;MAKE IT TWO'S^ COMPLEMENT BIS #S$WDLY,S.WFL2(R4) ;NOTE THAT DELAY NECESSARY BR 80$ ;RETURN .ENDC ;K$$W11 ; ;CLOCK IS ACTIVE ALREADY ; 60$: TST (R2) ;WAS AN LDELAY SPECIFIED? BEQ 80$ ;IF EQ NO--OK 70$: SEC ;YES--ERROR MOV R5,SP ;RESET SP ON ERROR BR 100$ ;GO RETURN 80$: CLC ;GOOD RETURN 100$: JMP (R3) ;RETURN TO CALLER .END ^ÌGãkQ%›c, .TITLE KSTADC SET A/D CHANNEL INFORMATION .IDENT /02.00/ ; ; COPYRIGHT (C) 1977, 1978, 1980 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 02.00 ; B. SCHREIBER 16-AUG-77 ; ; MODIFIED BY: ; ; M. S. HARVEY 3-JAN-80 ; MSH081 -- CORRECT ARGUMENT VALIDATION CHECKS ; ; THIS ROUTINE SETS UP A/D CHANNEL INFORMATION FOR AN A/D SWEEP ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ ;+ ; SETADC -- SET A/D CHANNEL INFORMATION ; ; CALLING SEQUENCE: ; ; CALL SETADC(IBUF,[IFLAG],[ICHN],[NCHN],[INC],[IND]) ;MSH081 ; OR ;**-1 ; INC = (IBUF,[IFLAG],[ICHN],[NCHN],[INC],[IND]) ;MSH081 ; ;**-1 ; INPUTS: ; ; IBUF (IGNORED--PRESENT FOR LPA11 COMPATIBILITY) ; IFLAG IS 0 (DEFAULT) IF ABS CHANNEL ADDRESSING, NON-0 OTHERWISE ; ICHN IS THE FIRST CHANNEL NUMBER (DEFAULT IS 0) ; NCHN IS THE NUMBER OF CHANNEL INCREMENTS (DEFAULT IS 1) ; INC IS THE SIZE OF THE CHANNEL INCREMENT (DEFAULT IS 1) ; USE 2 FOR DIFFERENTIAL INPUT ; ; OUTPUTS: ; ; IND 0 IF ILLEGAL CHANNEL NUMBER ; 1 IF ALL OK ; CHANNEL INFORMATION SET IN SWB FOR A/D SWEEP ; ;- SETADC:: ;REF LABEL ISTADC:: ;REF LABEL CALL .K.PAA ;VALIDATE AND SETUP ARGS ON STACK .WORD 6 ;SIX ARGUMENTS .WORD 40 ;ALL MAY BE DEFAULTED (EXCEPT IBUF) ;MSH081 BCS 100$ ;IF CS ERROR ;**-1 MOV #.ADSWB,R4 ;POINT AT THE A/D SWB TST (SP)+ ;POP OFF IBUF ADDRESS (NOT USED) CLR S.WFLG(R4) ;CLEAR SWEEP FLAGS MOV (SP)+,R3 ;GET 'IFLAG' AND SEE IF DEFAULTED BNE 10$ ;IF NE NO MOV #.ZEROW,R3 ;YES--POINT AT A ZERO 10$: MOV (SP)+,R0 ;GET 'ICHN' MOV (SP)+,R1 ;GET 'NCHN' MOV (SP)+,R2 ;GET 'INC' BNE 20$ ;IF NE USE GIVEN 'INC' MOV #.ONE,R2 ;DEFAULT 'INC' TO 1 20$: CMP #2,(R2) ;DIFFERENTIAL INPUT? BNE 40$ ;IF NE NO BIS #S$WDIF,S.WFL2(R4) ;YES--FLAG IT 40$: MOV (R2),S.WCHI(R4) ;SET THE CHANNEL INCREMENT BIS #S$WACA,S.WFL2(R4) ;FLAG ABSOLUTE CHANNEL ADDRESSING TST (R3) ;CHECK WITH 'IFLAG' BEQ 45$ ;IF EQ YES BIC #S$WACA,S.WFL2(R4) ;NO--CLEAR BIT IN SWB BIS #7,S.WFLG(R4) ;SET GAIN BITS FOR .ADGCH TO SEE 45$: MOV SP,R5 ;SET SAVED STACK POINTER MOV R1,-(SP) ;SET ARGS BACK ONTO STACK MOV R0,-(SP) ; ... CALL .ADGCH ;SETUP CHANNEL INFORMATION 50$: MOV #1,R0 ;ASSUME SUCCESS BCC 60$ ;IF CC CORRECT CLR R0 ;ELSE SET FOR FAILURE BIS #S$WADC,S.WFL2Œ(R4) ;FLAG THAT WE WERE HERE (SETADC CALLED) 60$: MOV (SP)+,R5 ;GET ADDRESS OF IND OR 0 BEQ 80$ ;IF EQ NO 'IND' GIVEN MOV R0,(R5) ;STORE RESULT IN 'IND' 80$: RETURN ;BACK TO CALLER ; ; HERE IF ERROR FROM .K.PAA ; 100$: CLR R0 ;CLEAR FOR FUNCTION RETURN CLR R3 ;SET CODE FOR .IESTO MOV #6,R4 ;STORE INTO SIXTH ARGUMENT CALLR .IESTO ;TRY TO STORE ERROR AND RETURN .END ŒÌG€kQ%›c, .TITLE KSTB SETUP BUFFERS FOR SWEEP .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 19-JUL-77 ; ; THIS MODULE SETS UP THE BUFFER INFORMATION PART OF THE SWB ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ .SBTTL .K.STB SET UP BUFFER INFORMATION FOR SWEEP ;+ ; .K.STB -- SETUP BUFFER INFO FOR SWEEP ; ; INPUTS: ; ; R4 POINTS TO SWEEP CONTROL BLOCK WHICH HAS BEEN ; SETUP BY .K.SET ; ; OUTPUTS: ; ; C-CLEAR ALL OK ; THE BUFFER POINTERS (CURRENT AND INITIAL) ARE SETUP FOR ; EACH BUFFER SPECIFIED BY THE USER. ; ; C-SET ILLEGAL NUMBER OF BUFFERS ; ; REGISTERS ALTERED: ; ; R0-R3 ; ;- .K.STB::MOV R5,-(SP) ;SAVE R5 MOV S.WBPT(R4),R5 ;PICKUP POINTER TO 'IBUF' ARRAY ; (SETUP BY .K.SET) MOV R5,S.WUSW(R4) ;SET USER MODE USW ADDRESS MOV R5,R0 ;COPY FOR .KRLOC CALL .KRLOC ;RELOCATE TO APR6 MOV R1,S.WUSW+2(R4) ;SET APR6 BIAS MOV R2,S.WUSW+4(R4) ;AND DISPLACEMENT ADD #IB.DVQ,R5 ;POINT TO THE DEVICE QUEUE MOVB (R5),S.WBNO(R4) ;GET THE CURRENT BUFFER SET UP BMI 220$ ;IF MI RLSBUF HAS NOT BEEN CALLED--ERROR .REPT 7 MOVB 1(R5),(R5)+ ;MOVE THE QUEUE DOWN .ENDM MOVB #-1,(R5) ;MARK END OF QUEUE MOV S.WBPT(R4),R5 ;GET PTR TO IBUF AGAIN ADD #IB.NBF,R5 ;POINT TO NUMBER OF BUFFERS WORD MOV (R5)+,-(SP) ;PUSH NUMBER OF BUFFERS ONTO STACK BLE 200$ ;IF LE THEN ERROR CMP (SP),#8. ;CHECK FOR TOO MANY BUFFERS BHI 200$ ;IF HI YES CLRB 1(SP) ;@SP=<#BUFFERS>, ; ; RUN THROUGH THE USER BUFFER LIST AND RELOCATE AS NEEDED ; 20$: MOV (R5)+,R0 ;GET NEXT USER BUFFER ADDRESS CALL .KRLOC ;RELOCATE TO APR6 MOVB 1(SP),R3 ;GET BUFFER NUMBER ASL R3 ;MULTIPLY ASL R3 ; BY 4 ADD R4,R3 ; TO INDEX INTO THE SWEEP CONTROL BLK ADD #S.WIBP,R3 ;INDEX INTO S.WIBP INITIAL BUFFER POINTERS MOV R1,(R3)+ ;SET APR6 BIAS (0 ON UNMAPPED SYSTEMS) MOV R2,(R3)+ ;SET DISPLACEMENT (PHYS ADDR ON UNMAPPED) CMPB 1(SP),S.WBNO(R4);IS THIS BUFFER THE FIRST BUFFER TO USE? BNE 40$ ;IF NE NO MOV R1,S.WBPT(R4) ;YES--SET CURRENT BUFFER POINTER MOV R2,S.WBPT+2(R4) ; ... 40$: INCB 1(SP) ;NEXT BUFFER DECB (SP) ;MORE TO DO? BGT 20$ ;IF GT YES CLR (SP)+ ;NO--CLEAR STACK BR 300$ ;GO RETURN ; ; ILLEGAL NUMBER OF BUFFERS ; ž 200$: TST (SP)+ ;CLEAR NUMBER OF BUFFERS FROM STACK 220$: SEC ;FLAG AN ERROR 300$: MOV (SP)+,R5 ;RESTORE R5 RETURN ;RETURN WITH C CORRECT .END žÌG–8kQ%›c, .TITLE KSTIBF SETUP IBUF ARRAY FOR SWEEP .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 15-AUG-77 ; ; THIS ROUTINE SETS UP THE 'IBUF' ARRAY ;+ ; SETIBF -- INITIALIZE 'IBUF' ARRAY ; ; THIS ROUTINE SETS UP THE 'IBUF' ARRAY FOR A SWEEP ; ; CALLING SEQUENCE: ; ; CALL SETIBF (IBUF, IND, LPATAB, BUF1, BUF2,... , BUFN) ; ; INPUTS: ; ; IBUF IS AN ARRAY OF DIMENSION 40. ; BUFN IS THE ADDRESS OF BUFFER 'N' ; LPADTB UNUSED--PRESENT FOR LPA-11 COMPATIBILITY ; ; OUTPUTS: ; ; IND RETURNS THE STATUS ; 0 TOO MANY BUFFERS--ADJUSTED FOR MAXIMUM (N$$MBF) ; 1 IBUF SET OK ; THE IBUF ARRAY IS INITIALIZED ; ;- SETIBF::MOVB (R5),R1 ;GET # OF ARGUMENTS TST (R5)+ ;SKIP COUNTER MOV (R5)+,R2 ;GET IBUF ADDRESS MOV (R5)+,R3 ;GET IND ADDRESS INC R3 ;CHECK FOR -1 BEQ 5$ ;IF EQ LEAVE IT 0 DEC R3 ;GET ADDRESS BACK MOV #1,(R3) ;INIT TO SUCCESS 5$: TST (R5)+ ;SKIP LPATAB SUB #3,R1 ;ONLY COUNT THE BUFFERS MOV #I$BFVW,(R2)+ ;SET THE IBUF VALIDATION WORD INTO WD 1 CLR (R2)+ ;CLEAR SECOND WORD OF IBUF MOV #-1,(R2) ;INITIALIZE QUEUES .REPT 9. MOV (R2)+,(R2) ;... .ENDM TST (R2)+ ;MOVE TO NEXT WORD CMP R1,#N$$MBF ;LEGAL NUMBER OF BUFFERS? BLOS 10$ ;IF LOJS YES MOV #N$$MBF,R1 ;NO--SET FOR MAX WE CAN HANDLE TST R3 ;SEE IF IND DEFAULTED BEQ 10$ ;IF EQ YES--SKIP STATUS ALTERATION CLR (R3) ;NOTE THAT TOO MANY BUFFERS GIVEN 10$: MOV R1,(R2)+ ;SET NUMBER OF BUFFERS 20$: MOV (R5)+,(R2)+ ;SET BUFFER ADDRESS INTO IBUF DEC R1 ;DONE? BGT 20$ ;IF GT NO RETURN .END JÌG@`kQ%›c, .TITLE KSTOP STOP A SWEEP .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION 01 ; B. SCHREIBER 16-AUG-77 ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$ KSWDF$ .SBTTL STPSWP STOP AN IN PROGRESS SWEEP ;+ ; STPSWP -- STOP AN IN-PROGRESS SWEEP ; ; CALLING SEQUENCE: ; ; CALL STPSWP (IBUF, IWHEN, IND) ; ; INPUTS: ; ; IBUF IS THE IBUF USED IN A CALL TO START A SWEEP ; IWHEN SPECIFIES THE STOP TIME: ; 0 IMMEDIATELY (DEFAULT) ; +N AT END OF CURRENT BUFFER ; -N (RESERVED) ; IND RETURNS THE STATUS ; 0 COULD NOT FIND SWB OR SWEEP NOT ACTIVE ; 1 SWEEP STOPPED ; ; OUTPUTS: ; ; THE SWEEP IS STOPPED ; ;- STPSWP:: ;REF LABEL CALL .K.PAA ;VALIDATE ARGS AND STACK .WORD 3 ;THREE ARGS .WORD 4 ;IBUF REQUIRED BCS 80$ ;IF CS CAN'T HELP OUT CLR R2 ;ASSUME FAILURE MOV (SP)+,R0 ;GET IBUF ADDRESS CALL .FDSWI ;FIND SWB BCC 10$ ;IF CC CONTINUE TST (SP)+ ;POP IWHEN ADDRESS BR 60$ ;FINISH UP 10$: MTPS #PR6 ;;;DISABLE INTERRUPTS MOV #S$WSEB,R0 ;;;ASSUME STOP AT END OF BUFFER MOV (SP)+,R3 ;;;GET IWHEN ADDRESS BEQ 20$ ;;;IF EQ DEFAULTED--STOP IMMEDIATELY TST (R3) ;;;NO--SEE WHEN TO STOP BNE 40$ ;;;IF NE STOP AT END OF BUFFER 20$: MOV #S$WSTP,R0 ;;;SET TO STOP NOW < CLR S.WCNT(R1) ;;;THIS SHOULD FORCE A BUFFER SWITCH TO GET ;;; THE ISR TO REALIZE HE IS DONE 40$: BIS R0,S.WFL2(R1) ;;;SET THE STOP FLAG MTPS #0 ;;;ALLOW INTERRUPTS INC R2 ;SET SUCCESS 60$: MOV (SP)+,R0 ;GET IND ADDRESS BEQ 80$ ;IF EQ NOT SUPPLIED MOV R2,(R0) ;SET STATUS 80$: RETURN .END <*KkQkQ%›c, .NLIST .IDENT /M01.00/ ; ; COPYRIGHT (C) 1977, 1978 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; MACROS TO FACILITATE CALLING FORTRAN SUBROUTINES FROM MACRO-11. ; ; VERSION 01 ; C. D'ELIA 17-NOV-77 ; ;+ ; INITS -- INITIALIZE FOR STRUCTURED FORTRAN CALL MACROS ; ; CALLING SEQUENCE: ; ; INITS ; ; EFFECTS: ; ; SETS THE GLOBAL LISTING FLAG ; SETS THE ASSEMBLER PASS FLAG ; ;- .MACRO INITS LST=0 $LST=LST .IF NDF $PASS $PASS=0 .IFF $PASS=1 .ENDC .ENDM ;+ ; CALLS -- CALL FORTRAN SUBROUTINE ; ; CALLING SEQUENCE: ; ; CALLS SUBR, ; ; WHERE: ; ; SUBR IS THE SUBROUTINE TO CALL ; ; ARG1,..ARGN ARE THE ARGUMENTS TO PASS TO THE SUBROUTINE. ; THEY MAY EITHER BE CONSTANTS (1,5,8,12,ETC.-- ; TAKEN AS DECIMAL NUMBERS ("." APPENDED)) ; OR MEMORY LOCATIONS (IDATA, BUF, ETC.). ; IF AN ARGUMENT IS DEFAULTED (",,") A ; MINUS 1 (177777) WILL BE INSERTED FOR THE ; ARGUMENT ADDRESS (FORTRAN STANDARD). ; ; EXAMPLES: ; ; CALLS SUB1,<5,18,ARG3> ; CALLS SUB2, ; CALLS SUB3,<,,,IOUT> ; ;- .MACRO CALLS SUBR,ARGLST .PSECT $ARGL$ $$1=. .BLKB 2 $NARG=0 .IRP X, .IF B .WORD 177777 .IFF .NTYPE $T,X .IF NE $T-67 .ERROR X ;INVALID ARGUMENT .MEXIT .ENDC GENARG X .ENDC $NARG=$NARG+1 .ENDM $$2=. .=$$1 .BYTE $NARG,0 .=$$2 .PSECT .IIF GT $LST, .LIST MOV #$$1,R5 JSR PC,SUBR .IIF GT $LST, .NLIST .ENDM .MACRO GENARG ARG .IF DF $C'ARG .WORD $C'ARG .PSECT $CONS$ .IF EQ .-$C'ARG $C'ARG: .WORD ARG'. .ENDC .PSECT $ARGL$ .IFF .IF NDF $PASS .ERROR ;FAILED TO CALL "INITS" .MEXIT .ENDC .IF EQ $PASS TSTARG ARG,\ARG .IFF .WORD ARG .ENDC .ENDC .ENDM .MACRO TSTARG SYM,VAL .IF IDN , .PSElCT $CONS$ $C'SYM: .WORD SYM'. .PSECT $ARGL$ .WORD $C'SYM .IFF .WORD SYM .ENDC .ENDM .LIST lÍG€kQ%›c, .TITLE KSUB SINGLE PRECISION FL. PT. SUBTRACTION .IDENT /M02.00/ ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; COPYRIGHT (C) 1977, 1978, DIGITAL EQUIPMENT CORPORATION. ; H.J. ;+ ; .KSUB -- SINGLE PRECISION SUBTRACTION ; ; THIS ROUTINE SUBTRACTS R2:R3 FROM R0:R1 ; ; INPUTS: ; ; R0:R1, R2:R3 SINGLE PRECISION REAL NUMBERS ; ; OUTPUTS: ; ; R0:R1 = R0:R1 - R2:R3 ; PRECISION SHOULD BE GOOD TO 24 BITS OF MANTISSA ; ;- .KSUB:: ADD #100000,R2 ;NEGATE SECOND NUMBER MOV R4,-(SP) ;SAVE R4 AND R5 MOV R5,-(SP) MOV #2,R5 ;R5 GETS SIGNS AND C GETS 1 EVENTUALLY ASL R0 ;GET SIGN OF 1 BEQ NOAD1 ;ITS 0., RESULT IS 2 ROR R5 ;SAVE SIGN ASL R2 ;GET SIGN OF 2 BEQ NOAD2 ;ITS 0., RESULT IS 1 RORB R5 ;SAVE ITS SIGN MOV R5,-(SP) ;PUT SIGNS AWAY FOR LATER RORB R0 ;CARRY IS 1 - SET IMPLIED NORM BIT MOV R0,R4 ;MAKE COPY OF IT CLRB R4 ;ISOLATE EXPONENT BIC R4,R0 ;CLEAR EXPONENT OUT OF MANTISSA SWAB R4 ;GET EXPONENT SEC ;PERFORM SAME FOR 2 RORB R2 MOV R2,R5 CLRB R5 BIC R5,R2 SWAB R5 ;R4 IS EXP 1, R5 IS EXP 2 ;WE WANT R5 TO BE FINAL EXPONENT AND R4 TO BE NEGATIVE SCALER SUB R5,R4 ;HOW ARE WE NORMALIZED? BEQ ALGND ;PERFECT BMI 5$ ;1 IS SMALLER, SCALE IT TO 2'S EXP ADD R4,R5 ;1 IS BIGGER, SWITCH'EM NEG R4 ;FIX SHIFT COUNT SWAB (SP) ;CORRECT SIGNS MOV R2,-(SP) ;SWITCH MANTISSA'S MOV R3,R2 MOV R1,R3 MOV R2,R1 MOV R0,R2 MOV (SP)+,R0 5$: CMP #-9.,R4 ;IS SHIFT LESS THAN BYTE? BLT BITSHF ;BRANCH IF YES TO DO IT ADD #16.,R4 ;IS SHIFT LESS THAN WORD BGE BYTSHF ;BRANCH IF YES TO BYTE SHIFT CLR R1 ;SHIFT > WORD, CLEAR LOW WORD ADD #8.,R4 ;IS SHIFT > 24 BITS? BGE WRDSHF ;BRANCH IF NOT TO WORD SHIFT ;ADDEND IS INSIGNIFICANT - CLEAN UP INAD: ASL R3 ;FORCE MANTISSA UP FOR PUTTING IN SIGN ROL R2 ;ALWAYS LEAVES CARRY CLEAR! INAD2: SWAB R5 ;PUT EXP IN HIGH PART BISB R2,R5 ;PUT IN MANTISSA WITHOUT IMPLIED BIT!! ROLB (SP)+ ;GET SIGN FROM STACK ROR R5 ;PUT INTO RESULT ROR R3 ;RESCALE LOW PART MOV R5,R2 ;MOVE HIGH PART TO RESULT SPOT NOAD1: MOV (SP)+,R5 ;RESTORE REGISTERS MOV (SP)+,R4 MOV R2,R0 ;SET RESULT INTO R0:R1 MOV R3,R1 ;... RETURN ;DONE NOAD2: ROL R5 ;GET SIGN OF 1 ROR R0 ;PUT BACK INTO IT MOV R0,R2 ;MOVE TO RESULT REGS MOV R1,R3 BR NOAD1 ;BRANCH INTO EXIT CODE BYTSHF: CLRB R1 ;BYTE SHIFT, LOW BYTE INSIGNIFICANT SWAB R1 ;PERFORM BYTE SHIFT SWAB R0 WRDSHF: BIS R0,R1 ;MOVES R0 INTO CORRECT BYTE OF R1 CLR R0 ;R0 ONLY HAD 1 BYTE, NOW IT HAS NONE SUB #8.,R4 ;REFIX SHIFT COUNT BITSHF: ASR R0 ;NORMALIZE TO COUNT ROR R1 INC R4 BMI BITSHF ;BRANCH IF NOT DONE ROL R4 ;R4 IS ZERO FROM SHIFT LOOP - SET IT ADD R4,R1 ;TO THE ROUNDING BIT AND ROUND. ADC R0 ALGND: CMPB 1(SP),(SP) ;SEE IF SIGNS ARE THE SAME BNE SUBT ;BRANCH IF NOT SAME TO SUBTRACT ADD R1,R3 ;ADD LOW PARTS ADC R2 ;ADD IN CARRY TO HIGH ADD R0,R2 ;ADD HIGH PARTS CMP #377,R2 ;ANOTHER HACK TO HANDL@ OVERFLOW BCC INAD ;BRANCH IF NO CARRY OUT OF MANTISSA INCB R5 ;BUMP EXP SINCE WE DON'T SHIFT LEFT BEQ 1$ ;CANT ALTER CARRY SO WE USE INCB AND BEQ SBC R4 ;THIS CLEARS THE CARRY IF R4=1, THUS ;PREVENTING US FROM ROUNDING TWICE. ADC R3 ;NOW ROUND WITH THE CAREFULLY BCC INAD2 ;(SHORTCUT) ADCB R2 ;MANIPULATED CARRY. ADCB R5 ;BUMP EXP IF MANTISSA OVERFLOWED TWICE BCC INAD2 ;WE ARE EVER VIGILANT FOR OVERFLOW 1$: ;REF LABEL SETZ: CLR R2 CLR R3 ;ZERO THE RESULT NOAD0: CMP (SP)+,R0 ;POP THE SIGNS OFF THE STACK BR NOAD1 ;AND GO STORE IT SUBT: SUB R1,R3 ;SUBTRACT LOW PARTS SBC R2 ;REDUCE HIGH BY CARRY SUB R0,R2 ;SUBTRACT HIGH PARTS BMI 2$ ;MAKE POSITIVE AND FIX RESULT SIGN TSTB R2 ;ARE WE ALREADY NORMALIZED? BMI INAD ;BRANCH IF YES DEC R5 ;ADJUST EXPONENT BLE 6$ ;BRANCH IF UNDERFLOW ASR R4 ;SHIFT ROUND BIT BACK IN ROL R3 ;NORMALIZE 1 PLACE ROL R2 BEQ 3$ ;BRANCH IF HIGH PART 0 TO CHECK LOW 5$: TSTB R2 ;ARE WE ALREADY NORMALIZED? BMI INAD ;BRANCH IF YES ASL R3 ;NORMALIZE RESULT ROL R2 DEC R5 ;ADJUST EXP 4$: BGT 5$ ;BRANCH IF DIDNT UNDERFLOW 6$: ;REF LABEL BR SETZ ;GO SET RESULT TO 0. 2$: SWAB @SP ;SWITCH RESULTANT SIGN NEG R2 ;MAKE RESULT UNSIGNED NEG R3 SBC R2 BGT 5$ ;BRANCH IF NOT ZERO TO NORM IT 3$: MOV R3,R2 ;START WITH 8 BIT SHIFT BEQ NOAD0 ;BRANCH IF LOW PART ZERO, RESULT IS 0. SWAB R3 ;TEST HIGH PART OF LOW ORDER BEQ 1$ ;BRANCH IF ZERO FOR 16 BIT SHIFT CLR R2 ;IF NOT JUST 8 BIT SHIFT BISB R3,R2 ;MOVE HIGH PART OF LOW ORDER 8 BITS CLRB R3 ;REMOVE THEM SUB #8.,R5 ;ADJUST EXP BR 4$ ;NORMALIZE WHATS LEFT 1$: CLR R3 ;CLEAR LOW ORDER SUB #16.,R5 ;ADJUST EXP BR 4$ ;NORMALIZE WHATS LEFT, OPTIMIZE ;TO COMBINE WITH JUST ABOVE CODE .END ‘GÈ}“%›c,1 SUB XRATE (DWELL, IRATE%, IPRSET%, IFLAG%) & ! & ! COPYRIGHT (C) 1977 & ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. & ! & ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A & ! SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE & ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR & ! ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE & ! MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH & ! SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE & ! TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN & ! IN DEC. & ! & ! THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT & ! NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL & ! EQUIPMENT CORPORATION. & ! & ! DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF & ! ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. & ! & ! VERSION 01 & ! B. SCHREIBER 15-JUL-77 & ! & ! CONVERTED TO BASIC-PLUS-2: K. ALTMANN 8-DEC-77 & ! THIS ROUTINE COMPUTES RATES AND PRESETS FOR THE CLOCK GIVEN & ! THE DESIRED DWELL (INTER-SAMPLE TIME). & 2 !+ & ! XRATE -- COMPUTE RATE AND PRESET & ! & ! CALLING SEQUENCE: & ! CALL XRATE (DWELL, IRATE%, IPRSET%, IFLAG%) & ! & ! INPUTS: & ! & ! DWELL (FLOATING) THE DESIRED DWELL IN DECIMAL SECONDS & ! IFLAG% (INTEGER) 0 IF CLOCK A, NON-0 IF CLOCK B & ! & ! OUTPUTS: & ! & ! IRATE% (INTEGER) THE SELECTED CLOCK RATE (1-7) OR 0 & ! IF NO RATE COULD BE SELECTED & ! IPRSET% (INTEGER) THE TWOS-COMPLEMENT CLOCK PRESET TO & ! BE USED IN A CALL TO A SWEEP ROUTINE & ! & ! & !- & 5 DIMENSION DWLMAX(5), TICKS(5) & ! & ! DWLMAX CONTAINS THE MAXIMUM DWELL & ! (INTER-SAMPLE TIME) WHICH MAY BE OBTAINED FOR & ! PARTICULAR CLOCK RATE FOR EITHER CLOCK A OR B. & ! & 7 IF IFLAG% = 0% THEN & DWLMAX(1%) = 0.065535 & \DWLMAX(2%) = 0.65535 & \DWLMAX(3%) = 6.5535 & \DWLMAX(4%) = 65.535 & \DWLMAX(5%) = 655.35 & ELSE & DWLMAX(1%) = 0.000255 & \DWLMAX(2%) = 0.00255 & \DWLMAX(3%) = 0.0255 & \DWLMAX(4%) = 0.255 & \DWLMAX(5%) = 2.55 & 25 ! & ! TICKS IS THE NUMBER OF CLOCK TICKS OBTAINED FOR & ! A PARTICULAR CLOCK RATE. & ! & TICKS(1%) = 1000000.0 & \TICKS(2%) = 100000.0 & \TICKS(3%) = 10000.0 & \TICKS(4%) = 1000.0 & \TICKS(5%) = 100.0 & 30 IF DWELL < .000001 THEN GOTO 700 & 40 ! & ! FIND THE FASTEST CLOCK RATE WHICH WILL PERMIT & ! THE REQUESTED DWELL. CHOOSING THE FASTEST RATE & ! WILL GIVE THE FINEST RESOLUTION. & ! & FOR I% = 1% TOÔ 5% & \ IF DWELL > DWLMAX(I%) THEN GOTO 500 & 70 ! I% CONTAINS THE SELECTED RATE & ! & IRATE% = I% & ! & ! COMPUTE THE CLOCK PRESET FOR THE USER & ! & \ PRESET = DWELL * TICKS(I%) & \ IF PRESET = 32768.0 THEN IPRSET% = 32767% + 1% & ELSE IF PRESET > 32768.0 THEN IPRSET% = 65535.0 - PRESET & ELSE IPRSET% = - PRESET & 400 XRATE = INT(PRESET + 0.05) / TICKS(I%) & \ GOTO 900 & 500 NEXT I% & 700 IRATE% = 0% & 900 SUBEND ÔÔF€"S%›c,<Á0ÀO*9@>¦ZvEÏG¬ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬O .MACRO KDVDF$ .IF NDF L$$SI1ÿ;+/; KA$XXX - KW11-K CLOCK 'A' CSR BIT DEFINITIONSÿ;-(KA$STF = 100000 ;ST1 EVENT HAS OCCURRED,KA$STI = 40000 ;ST1 EVENT INTERRUPT ENABLE2KA$STE = 20000 ;ST1 EVENT ENABLES KA$ENA (ENABLE ; COUNTER)(KA$RIM = 0400 ;REPEATED INTERVAL MODE*KA$EEM = 1000 ;EXTERNAL EVENT TIME MODE/KA$EZB = 1400 ;EXTERNAL EVENT TIME FROM ZEROÿ ; BASE MODE3KA$MDF = 200 ;OVERFLOW OR COUNTER TO BUFFER XFRÿ ; HAS OCCURREDÿ,KA$MFE = 100 ;MODE FLAG INTERRUPT ENABLE3KA$OVF = 40 ;COUNTER 'A' OVERFLOW HAS OCCURREDA*;KA$RAT = 16 ;MASK FOR CLOCK 'A' RATE"KA$ENB = 1 ;ENABLE CLOCK 'A';+.; KB$XXX - KW11-K CLOCK 'B' CSR BIT DEFINTIONS;-3KB$OVF = 200 ;COUNTER 'B' OVERFLOW HAS OCCURREDM+KB$OIE = 100 ;OVERFLOW INTERRUPT ENABLE $KB$B2A = 40 ;FEED B TO A ENABLE&;KB$ATO = 20 ;AUTO INCREMENT MODE*;KB$RAT = 16 ;MASK FOR CLOCK 'B' RATE"KB$ENB = 1 ;CLOCK 'B' ENABLE;+3; AD$XXX - AD11-K A/D CONVERTOR CSR BIT DEFINITIONS ;-AD$ERR = 100000 ;ERROR FLAGAD$DON = 200 ;DONE FLAGK"AD$ENB = 100 ;INTERRUPT ENABLE7AD$OVE = 40 ;KW11-K OVERFLOW STARTS A/D CONVERSIONK9AD$ESE = 20 ;EXTERNAL EVENT INITIATES A/D CONVERSIONO%AD$GO = 1 ;START A/D CONVERSIONE;+4; DO$XXX - DR11-K DIGITAL OUTPUT CSR BIT DEFINITIONS4; DI$XXX - DR11-K DIGITAL INPUT CSR BIT DEFINITIONS;-7DO$FLG = 100000 ;EXTERNAL DATA ACCEPTED ON EXT. DEVICE )DO$ENB = 40000 ;ENABLE OUTPUT INTERRUPT-2DO$BUF = 4 ;OFFSET FROM CSR TO OUTPUT BUFFER6DI$FLG = 200 ;EXTERNAL DATA READY FROM EXT. DEVICE(DI$ENB = 100 ;ENABLE INPUT INTERRUPT1DI$BUF = 2 ;OFFSET FROM CSR TO INPUT BUFFERE .IF NDF L$$PS1E;+3; DA$XXX - AA11-K D/A CONVERTOR CSR BIT DEFINITIONSD;-4DA$ERA = 10000 ;ERASE DATA IN STORAGE OSCILLOSCOPE!DA$WTU = 4000 ;WRITE THRU MODEIDA$STO = 2000 ;STORET2DA$BT9 = 1000 ;BIT 9 (DIGITAL SIGNAL AVAILABLE)DA$RDY = 200 ;READY #;DA$ENB = 100 ;INTERRUPT ENABLEB DA$EXD = 20 ;EXTERNAL DELAYDA$MDE = 14 ;MASK FOR MODEX'DA$FIE = 2 ;FAST INTENSIFY ENABLEB4DA$INT = 1 ;GENERATE INTENSIFY PULSE IN MODE 09DA$SCO=DA$ERA!DA$WTU!DA$STO$DA$BT9!DA$MDE!DA$FIE!DA$INT ;( ;BITS LEGAL FOR USER TO SET IN SCOPE ;CONTROL WORDE .IFF ;L$$PS1R4DA$ERA = 10000 ;ERASE DATA IN STORAGE OSCILLOSCOPE(DA$WTU = 4000 ;SET WRITE THROUGH MODEDA$STO = 2000 ;STORED DA$CHN = 1000 ;CHANNEL SELECT DA$COL = 400 ;COLOR SELECTDA$RDY = 200 ;READYE#;DA$ENB = 100 ;INTERRUPT ENABLE= DA$EXD = 20 ;EXTERNAL DELAYDA$MDE = 14 ;MODE(DA$FIE = 2 ;FAST INTENSIFY ENABLEDA$INT = 1 ;INTENSIFYD@DA$SCO = DA$ERA!DA$WTU!DA$STO!DA$CHN!DA$COL!DA$MDE!DA$FIE!DA$INT* ;BITS LEGAL FOR USER TO SET WITH SCOPE .ENDC ;L$$PS1 .IFF ;L$$SI10 .IF DF Q$$BUS;+!; KWV11 CLOCK CSR BIT DEFINITIONS0;-'KA$STF = 100000 ;ST2 EVENT HAS OCCURED;,KA$STI = 40000 ;ST2 EVENT INTERRUPT ENABLE)KA$STE = 20000 ;ST2 EVENT ENABLES CLOCK0:KA$MDF = 200 ;OVERFLOW OR CTR TO BUFFR XFR HAS OCCURED'KA$OVF = 200 ;OVERFLOW HAS OCCURRED;.KA$IOO = 100 ;INTERRUPT ON OVERFLOW ENABLE"KA$MFE = 100 ;MODE FLAG ENABLE&;KA$RAT = 30 ;MASK FOR CLOCK RATE(KA$RIM = 2 ;REPEATED INTERVAL MODE*KA$EEM = 4 ;EXTERNAL EVENT TIME MODE9KA$EZB = 6 ;EXTERNAL EVENT TIME FROM ZERO BASE MODEIKA$ENB = 1 ;ENABLE CLOCK;+1; AD$XXX - ADV11 A/D CONVERTOR CSR BIT DEFINTIONSP;-AD$ERR = 100000 ;ERROR FLAG(AD$IEN = 40000 ;ERROR INTERRUPT ENABLEAD$DON = 200 ;DONE FLAGO"AD$ENB = 100 ;INTERRUPT ENABLE6AD$OVE = 40 ;CLOCK OVERFLOW STARTS A/D CONVERSION6AD$ESE = 20 ;EXTERNAL EVENT STARTS A/D CONVERSION%AD$GO = 1 ;START A/D CONVERSION ;+3; DO$XXX - DRV11 DIGITAL OUTPUT CSR BIT DEFINITIONSE3; DI$XXX - DRV11 DIGITAL INPUT CSR BIT DEFINITIONSR;-(DO$FLG = 100000 ;EXTERNAL DATA ACCEPTED)DO$ENB = 40 ;OUTPUT INTERRUPT ENABLER2DO$BUF = 2 ;OFFSET TO OUTPUT BUFFER FROM CSR%DI$FLG = 200 ;EXTERNAL DATA READYE(DI$ENB = 100 ;INPUT INTERRUPT ENABLE1DI$BUF = 4 ;OFFSET TO INPUT BUFFER FROM CSRV .ENDC ;Q$$BUS .ENDC ;L$$SI1 .MACRO KDVDF$ .ENDM .ENDM®O .MACRO KSWDF$;+#; SWB - SWEEP CONTROL BLOCK OFFSETS-;VC; THERE IS ONE SWEEP CONTROL BLOCK FOR EACH POSSIBLE TYPE OF SWEEP:T>; A/D, D/A, DIGITAL INPUT, DIGITAL OUTPUT, GATHERING HISTOGRAM; DATA.E;=;- .ASECTP.=0T2S.WLNK: .BLKW 1 ;LINK TO NEXT SWEEP CONTROL BLOCK%S.WFLG: .BLKW 1 ;SWEEP CONTROL FLAGSNS.WFL2: .BLKW 1 ;MORE FLAGSBS.WUSW: .BLKW 3 ;USER STATUS WORD: USER, EXEC APR6 RELOC AND BIAS'S.WBNO: .BLKB 1 ;CURRENT BUFFER NUMBER1 .BLKB 1 ;SPARE BYTEM!S.WEBF: .BLKB 1 ;BUFFER IN ERROR 7S.WLBF: .BLKB 1 ;LAST BUFFER COMPLETED (SEE KRWBF.MAC)H/S.WIBP: .BLKW 2*N$$MBF ;INITIAL BUFFER POINTERST;S.WBPX: .BLKW 1 ;POINTER TO S.WBPT <.+2>(+RELOC IF MAPPED)T)S.WBPT: .BLKW 2 ;CURRENT BUFFER POINTERSP(S.WSIZ: .BLKW 1 ;SIZE OF BUFFER (WORDS)/S.WCNT: .BLKW 1 ;COUNT OF WORDS LEFT IN BUFFER @S.WNBF: .BLKW 1 ;NUMBER OF BUFFERS TO FILL OR NEGATIVE IF CONT- ; INUOUS SAMPLING ?S.WEFN: .BLKW 1 ;0, EFN, OR ADDRESS OF USER COMPLETION ROUTINE13S.WSCR: .BLKW 1 ;SYNCHRONOUS CLOCK ROUTINE ADDRESS.S.WSTS: .BLKW 1 ;FINAL STATUS1S.WSTR: .BLKW 1 ;SCHMITT TRIGGER ROUTINE ADDRESST! ;**NOTE**USER VIRTUAL ADDRESS .S.WEFM: .BLKW 1 ;EVENT FLAG MASK (FROM $CEFI)1S.WEFA: .BLKW 1 ;EVENT FLAG ADDRESS (FROM $CEFI) 5S.WKNT: ;VIRTUAL ADDRESS, EXEC APR6 RELOC AND BIASN1 ;OF KOUNT PARAMETER FOR GTHIST. NOTE: THESER4 ;THREE WORDS OVERLAP S.WMSK, S.WCSR, AND S.WPRI.8S.WMSK: .BLKW 1 ;MASK OF BITS TO SIMULATE ST1 ON (DR11))S.WCSR: .BLKW 1 ;ACTIVE UNIT CSR ADDRESSR0S.WPRI: .BLKW 1 ;DEVICE HARDWARE PRIORITY LEVEL .IF DF FT$MOP .IF NDF M$$MGEM3S.WCLX: ;ACTIVE CLOCK QUEUE--UNMAPPED EXEC LEVELA .IFF ;M$$MGEE2S.WCLX: .BLKW 1 ;ACTIVE CLOCK QUEUE--APR5 MAPPING .ENDC ;M$$MGE2S.WCLQ: .BLKW 1 ;ACTIVE CLOCK QUEUE--TASK MAPPING .ENDC ;FT$MOP*S.WUBX: ;DR11 UNIT CONTROL BLOCK OFFSET ;+ ; FOLLOWING CELLS ARE FOR AD/DA SWEEP ONLYS ;>S.WCHB: .BLKB 1 ;CHANNEL BYTE TO LOAD IN HIGH BYTE OF A/D CSR-S.WCBX: .BLKB 1 ;SAVED ORIGINAL CHANNEL BYTE )S.WICH: .BLKW 1 ;STARTING CHANNEL NUMBERW(S.WCCH: .BLKW 1 ;CURRENT CHANNEL NUMBER5S.WHCH: .BLKW 1 ;HIGHEST CHANNEL ACCESSED THIS SWEEPE7S.WCHX: .BLKW 1 ;NUMBER OF CHANNELS (RESET FOR S.WNCH)Q2S.WNCH: .BLKW 1 ;NUMBER OF CHANNELS (DECREMENTED),S.WMXC: .BLKW 1 ;MAXIMUM NUMBER OF CHANNELS#S.WCHI: .BLKW 1 ;CHANNEL INCREMENTL0S.WGNW: .BLKW 1 ;DATA WORD FOR GAIN INFORMATION0S.WUNT: .BLKW 1 ;NUMBER OF UNITS ON THIS DEVICE0S.WAUA: .BLKW 1 ;OFFSET TO ACTIVE UCB. (ADD R4) S.WUCB: ;THE UCB'S START HERE;+"; UCB - UNIT CONTROL BLOCK OFFSETS;H(; UCB'S ARE USED BY THE ADSWP, AND DASWP,; THE DR11 UCB HAS U.FLG, U.IVEC, AND U.OVEC;;-.=0BU.FLG: .BLKW 1 ;UNIT FLAGSE%U.IVEC: ;DR11 INPUT VECTOR ADDRESSBU.VEC: .BLKW 1 ;VECTOR ADDRESSM&U.OVEC: ;DR11 OUTPUT VECTOR ADDRESS!U.CSR: .BLKW 1 ;CSR OF THIS UNITN-U.MAXC: .BLKW 1 ;MAX # CHANNELS ON THIS UNITAU.LGTH=.;+; OFFSETS INTO IBUF ARRAYN;-.=0I"IB.IOS: .BLKW 2 ;I/O STATUS BLOCK#IB.USQ: .BLKW 5 ;USER BUFFER QUEUE'%IB.DVQ: .BLKW 5 ;DEVICE BUFFER QUEUEB#IB.NBF: .BLKW 1 ;NUMBER OF BUFFERS $IB.BUF: ;BEGINNING OF BUFFER LISTU;+4; FLAGS IN THE SWEEP CONTROL BLOCK (SWB) WORD S.WFLG;-7S$WAST = 100000 ;AST REQUEST FOR THIS SWEEP (SIGN BIT)L;(FREE) = 40000 ;M;(FREE) = 20000 ;T;(FREE) = 10000 ;.;(FREE) = 4000 ; 'S$WTSS = 2000 ;TIME-STAMPED SAMPLINGE4S$WNOV = 1000 ;NON-CLOCK OVERFLOW DRIVEN SAMPLING&S$WEXT = 400 ;EXTERNAL START (ST1);(FREE) = 200 ;B;(FREE) = 100 ;U;(FREE) = 40 ; +S$WAGR = 5 ;AUTO GAIN RANGING (AD11)B9S$WSIB = 2 ;SET INTENSIFY BIT AFTER X/Y PAIR (AA11)+4S$WEZB = 1 ;EXTERNAL EVENT TIME FROM ZERO BASE ; MODE (HISTOGRAM)3S$WSCW = 1 ;SCOPE CONTROL WORD PRESENT (AA11)07S$WSTZ = 1 ;ST2 FIRING ZEROES COUNTER (HISTOGRAM) 9S$WUSR = S$WTSS!S$WNOV!S$WEXT!7 ;FLAGS WHICH USER MAY SETN% ;(N O T E: SOME FLAGS IN LOW BYTE ; ARE NOT USED AT PRESENT);+; FLAGS IN WORD S.WFL2;-,S$WACT = 100000 ;SWEEP IS ACTIVE (SIGN BIT)/S$WDLY = 40000 ;SWEEP REQUESTS DELAY (LDELAY)B+S$WDIF = 20000 ;DIFFERENTIAL INPUT (AD11)//S$WEFN = 10000 ;EFN SETTING AS OPPOSED TO ASTT#S$WSTP = 4000 ;REQUESTED TO STOPT'S$WSEB = 2000 ;STOP AT END OF BUFFERO-S$WACA = 1000 ;ABSOLUTE CHANNEL ADDRESSINGG6S$WSST = 400 ;SIMULATE SCHMITT TRIGGER (DIGO SETS)9S$WA$D = 200 ;THIS IS A/D SWEEP BLOCK (MUST BE 200!!) (S$WADC = 100 ;SETADC HAS BEEN CALLED"S$WFRK = 40 ;FORK IN PROGRESS0S$WIOF = 20 ;INPUT (1) OR OUTPUT (0) (DR11)BS$W2CL = ^C ;CLEAR ALL BITS BUT THESE;+; FLAGS IN U.FLG;-9UF$ACT = 100000 ;UNIT WILL BE/IS ACTIVE IN CURRENT SWEEP45UF$CIN = 40000 ;UNIT IS CONNECT TO INTERRUPT VECTOR %UF$AMK = 20000 ;AD11 HAS AM11 ON ITCN;+; FLAGS IN .KAFLG AND .KBFLG;-!K$ACTV = 100000 ;CLOCK IS ACTIVE$#K$ADLY = 40000 ;DELAY IN PROGRESSC"K$AGTD = 20000 ;GTHIST IS ACTIVE2K$ACIN = 10000 ;CLOCK IS CONNECTED TO INTERRUPTS(K$ACAC = 4000 ;CLOCKA HAS BEEN CALLED1K$AOVF = 2000 ;CLOCK A HAS OVERFLOWED (GTHIST)S6K$AFRK = 1000 ;FORK IN PROGRESS FOR CLOCK (MULTIPLE ;CLOCK DRIVEN SWEEPS ONLY) .PSECTI .MACRO KSWDF$ .ENDM .ENDMNNECT TO INTERRUPT VECTOR %UF$AMK = 20000 ;AD11 HAS AM11 ON ITCN;+; FLAGS IN .KAFLG AND .KBFLG;-!K$ACTV = 100000 ;CLOCK IS ACTIVE$#K$¡F”Ì%›c,€~; ; INDIRECT COMMAND FILE TO MAKE KLIB.MLB FOR K-SERIES SUBROUTINES ; /DF:MAC [45,10]KMLB/CR:20.:0:5.=[45,10]KDVDF,KSWDF ~E ÀDÌ%›c,< .ENABLE SUBSTITUTION SET /UIC=[45,20] .OPEN TEMP.CMD .10: .ASKS MS1 ENTER MODULE OR CR TO ASSEMBLE .IF MS1 = "" .GOTO 100 .ENABLE DATA PIP 'MS1'.OBJ;*,[45,30]'MS1'.LST;*/DE MAC 'MS1',[45,30]'MS1'/-SP=[45,10]KMLB/ML,KPRE/PA:1,'MS1' .DISABLE DATA .GOTO 10 .100: .CLOSE @TEMP.CMD PIP TEMP.CMD;*/DE <JÈxÌ%›c,PKADD2,LI:[45,30]KADD2/-SP=[45,10]KADD2 KRATE,LI:[45,30]KRATE/-SP=[45,10]KRATE P©FÜÌ%›c,n SET /UIC=[45,20] PIP K.OBS=*.OBJ SET /UIC=[1,1] LBR KLABLIBU/CR=[45,20]K.OBS PIP [45,20]K.OBS;*/DE n©F`Ì%›c,œ .ENABLE SUBSTITUTION SET /UIC=[1,1] .10: .ASKS MS1 MODULE NAME OR CR TO EXIT .IF MS1 = "" .GOTO 100 LBR KLABLIB/RP=[45,20]'MS1' .GOTO 10 .100: œDEvÌ%›c,4 SET /UIC=[45,20] PIP *.OBJ;*,[45,30]*.LST;*/DE 4GEœQÌ%›c,ˆ[1,50]KCOM/-HD/PI/-MM,[1,50]KCOM/-SP,[1,50]KCOM=[45,20]KCOM [1,50]RSX11M.STB/SS [1,1]EXELIB/LB / STACK=0 PAR=KCOM:160000:20000 / ˆ¡F”Ì%›c,€€; ; INDIRECT COMMAND FILE TO MAKE KLIB.MLB FOR K-SERIES SUBROUTINES ; /DF:MAC [45,10]KMLB/CR:20.:0.:5.=[45,10]KDVDF,KSWDF €E ÀDÌ%›c,< .ENABLE SUBSTITUTION SET /UIC=[45,24] .OPEN TEMP.CMD .10: .ASKS MS1 ENTER MODULE OR CR TO ASSEMBLE .IF MS1 = "" .GOTO 100 .ENABLE DATA PIP 'MS1'.OBJ;*,[45,34]'MS1'.LST;*/DE MAC 'MS1',[45,34]'MS1'/-SP=[45,10]KMLB/ML,KPRE/PA:1,'MS1' .DISABLE DATA .GOTO 10 .100: .CLOSE @TEMP.CMD PIP TEMP.CMD;*/DE <DEvÌ%›c,4 SET /UIC=[45,24] PIP *.OBJ;*,[45,34]*.LST;*/DE 4©FÜÌ%›c,l SET /UIC=[45,24] PIP K.OBS=*.OBJ SET /UIC=[1,1] LBR KLABLIB/CR=[45,24]K.OBS PIP [45,24]K.OBS;*/DE l©F`Ì%›c,œ .ENABLE SUBSTITUTION SET /UIC=[1,1] .10: .ASKS MS1 MODULE NAME OR CR TO EXIT .IF MS1 = "" .GOTO 100 LBR KLABLIB/RP=[45,24]'MS1' .GOTO 10 .100: œJÈxÌ%›c,PKADD2,LI:[45,34]KADD2/-SP=[45,10]KADD2 KRATE,LI:[45,34]KRATE/-SP=[45,10]KRATE PGEœQÌ%›c,‚[1,54]KCOM/-HD/PI/MM,[1,54]KCOM/-SP,[1,54]KCOM=[45,24]KCOM [1,54]RSX11M.STB/SS [1,1]EXELIB/LB / STACK=0 PAR=KCOM:0:20000 / ‚1KüX¢_›c,<Á0ÀQ@=8È1KüX1KY(«RØrîÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿîQSŽÏ³*1KüXSŽÏ³¯”L´:y:@T@*s©À@´:«@Z@´:\M@j@(øoè!h)(’ *M8GµW@<LAF 8<&F*&VVLb*bñññ ññøïðïðïèïàïñññ ññTjZ T*ˆøïðïèïàïØïæÈæmÿˆæÿˆ†æ3ÿˆ÷ & È*®÷†ÿVÿ÷‚ÿRÿ÷ÿPÿæÿˆêö¤æsÿˆ ¤*Ô7 jÿ7 hÿ÷\ÿ6ÿæÿˆ0‡÷,ÿÀIÿÀÀEùÿ´:\M*ú7b&ÿ÷"ÿæÿˆ‡÷‹4ÿr÷ÿ÷ÿb ´:y:&* ÷ÿÀ ÁÂj÷µ€ÿÂ~‘À ýæj ~*FÿˆV‡÷‹öþ"€×ñþÖOÁÀ w$âþ÷µ€ *lÏþ ÷%ñÒþñàïþÿÉØïàáUÝÀ ê÷ÿÿ*’²þ1ÁÀ ÃÑ5÷P–þÃÀ ø÷dþ &´:«*¸÷hþÀ|þÀEñÿÀUA7Zþ÷nþVþ÷‹fþ æ2(2*Þÿˆ‡÷C@þ÷tþ<þ78þæÿˆ÷Lþ‡ s©Àr @ˆ))r @< ßÀÁ*«RØr>ßÀÁ¯”L(ThZhjh¯” *r’j”f–fÿ“f˜f™ffÿpf‚€’f !c†*&xf‚yf‚†‰Ï™‡‰* &ð`°›ˆ‰…q”fð(‘V)ƒh*LŸGŒ:—ufûŠ•f¨&XgŠ2†‹‰Xa‰Žƒa7ƒu‰¡s„*r)§û¡ûRah‡¦‚aF‡c„‹a[‡û‰6”dñ•d˜b*˜€¡L„¦€Ìabf˜bˆb²f¡‚Œ[a^‡eÀ*¾™bÂfû‰[a`‡~²fû‰‰ak‡pYan‡?€™b¿²f*ä9D¤U¤¦°fÀa˜b€¡{„~ ¦¹abÀa˜bˆb* ‰aˆ‡e‰@!kŒ¡gŒô.&°f’áÝ‰ÈÒ£™h‰h‰*0h‰h‰Ÿf+p”D˜F8f8}¼‚•\˜B !>€¡¦„¡Æ„ *VÄa˜d !„$!³‡ñ(p˜^™^š^ˆ}‰}:eñ•D˜F*|8}Á‚£˜B˜Fe¤¸$C‰‚aË†n‰ !Ï†AiŒ*¢ã‚aÕ†n‰&XgÙ†o‰hXah!c÷…!â„ãh*È”fÃ‘fêÂ‘fAôƒtvr‹Àfô`èƒêuhè‰*î!ú†h‰!â„h‰ ¡)‡¹)‡–Gva#‹ö`*‹.pœF|eŠö&E‰pœF~¼}ð%¦‰ú‰„pÿ*:h_g#_a(‰€Âf_aöŽ‰«ö`/‹¬ö`/‹‰¨*`–f‰6f6f6fÔfphA†eö‰6f6f6f6f6f6f6f*†6f6f ÆfpYöŽLŒN‰Aö†e !OŽÄa™dp˜F*¬Èeö‰6f6fp™GcŒúŽÉ}†eú‰ö&D‰6fr‰6f6f*Ò6f6f6f6f6f6f6f6fVfÀÆa“f–f ¡ö¡ö³&}*ø¦‰†aöŒ€Âfö‰6f6f6f6f6f6f6f6f6f–b‡bàÆf*žf¡‘)§›Ža‘‹™¦‰~f‘‰Raž“‰Ya¡“‰€*D™b¿²f‘‰Ÿf†a“b6”dñ•d˜b€¡¯Œ*¦@ºf€*jÄaÊa’bf˜bˆbZaÂ@Âfé€™b¿²féžf*p”D˜F8f8}ÔŠ•\^0fˆbŽñ•D˜F8}ÙŠÐ‰F*¶}Ñ‰‚amŽ&ø`ä‹j‰ð0‘Vh€ð===@=P=*Üˆ¦¸}B.qû‰˜¦n¸a™bö& !„'šf´v*‘VhZa-—Y1–cûŽŠy– !•Šac%ž'‘Y”*(•šÇ‰ !>€¡”€Äa˜d ! ”$ !#”$9™*NA%œ%,š%™›FËeû‰ŠaûŽ !3•€! !6•€!û‰*t<Ç‰˜F€¡=”¡5ŒˆñT)hˆaP—‰aP”P•žfN*šŸf~f›‚ q[@™‚aY–ab‘„ažf>ep=*À—‘yšF:f:u !f”ù ac˜d !l”$ !o”$ !*ær•€!“=%ú`|“) Âfð0°%)""3‰p*A™”qFp}’Fpeq³šF:u!4Œ}%)*2œ–‘f !>ˆdq€Âf$ !¦”$ !©”˜\*X !¬”˜D„p°%)‘šF:f:u&[f[f»e)aú`*~Å“aú`Ì“)qÙÄŸf³ qð=&¸e*¤p™Fˆa)‡Ée)yšF:f:u=%'ú`ä“) !*Ê>@Äa˜dph™F˜\ !î”˜G˜d !>Ÿf*ð›^^{aý’pf˜d !þ”ˆdg›œø‘™œf ! œ*˜\|f š?aø•D‘c †'…°a”v‘Vû‹h€ac*<ccc–f¶f<‰‚$p–D˜F8f8}š—\˜^@™¦*b¹aÈa™b !4ƒ$˜b˜Fx}ˆš˜Fx}ˆšZŸf˜^™^š^*ˆ›^€¡Eœœ§AŒ”D–\•D—\F0a˜b@¼aÀa™b€¡Tœ¡*®@Œ€&Îa“d^a_Ÿš.qˆa’d˜b^a˜Ÿ¾g*Ôéa?aaaq˜^™^œFqˆ}‰}Œ}Š}‹}Že€¡*ú|œé—D˜F8}„š.™˜F}/™€¡ˆœ¡AŒû‰pAB* YŸf€žf“d€Èac™qAŸ=‰q˜F Èeû‰*F‚a¦žn‰&´v‘Vl‹hHFÍeE‰€™d°& !³ž‰d*l !c¶ž!ð`½›ƒ‰pf³š !¿œˆd !Â€!ð`È›„‰pf*’¿š–bA—b+&*€eÐfð°fð`ƒF*¸*Þr*’j”f–fÿ“f˜f™ffÿpf‚€’f !c†xf**‚yf‚Œ‰ ‰* &ð`Ú›Ž‰&*€eÐfð°f*Pð`ƒFô6ð(‘V5ƒhŸGŒP—¨&Xg:†‘‰Xa*vŽƒa?ƒ{‰¡{„)§þ¡þRap‡¦‚aN‡k„‹ac‡þ‰*œ6”dñ•d˜b€¡T„¦€Ìabf˜bˆb²f*Â¡ˆŒ[af‡mÀ™bÂfþ‰[ah‡~²fþ‰‰as‡xYa*èv‡G€™b¿²fAD¤U¤¦°fÀa˜b€¡ƒ„~ ¦* ¹abÀa˜bˆb‰a‡k‰@!qŒ¡mŒô.&°fšá*4 á‰ÖàÍ™n‰n‰n‰n‰Ÿf\aÏ†€¡¥„¡4Œ-”D˜F8f*Z 8}Ã‚•\˜B !1€¡³„¡Í„$!»‡ñ*˜^™^š^ˆ}*€ ‰}:eñ•D˜F8}È‚°˜B˜Fe±¸$6‰"û`Óƒ¥*¦ 7g¥„ñ‚aÙ†t‰ !Ý†AoŒ÷‚aã†t‰&XavŽ*Ì ø`ñƒ"ø`îƒn‰YoŒyAoŒ!ö„÷nð0*ò ‘fAýƒx‰uhì‰ ¡5‡¹5‡–Gva ‹ö`‹0* œF|eŠö&8‰pœF~¼}ð%¬‰ý‰„pÿh_g *> ‰€Âf_aùŽ‰6f6f6fÔfphA†eù‰6f6f6f*d 6f6f6f6f6f6f ÆfpYùŽ?ŒA‰Aù†e !BŽ*Š Äa™dp˜F¸$!¿& !P€!K‰fLŠ !RŽ¹$ !cUŽ*° !ý²fÈeù‰6f6fp™GiŒýŽÉ}†eö&-ö&7‰*Ö 6fx‰6f6f6f6f6f6f6f6f6f6fVfÀÆa“f–f ¡ù*ü ¡ù³&ƒ¬‰†aùŒ€Âfù‰6f6f6f6f6f6f6f6f6f*"–b‡bàÆfžf¡—)§¡Ža—‹Ÿ¬‰~f—‰Ra¤™‰*HYa§™‰€™b¿²f—‰Ÿf†a“b6”dñ•d˜b€¡µŒ*n*¦@ºf€Êa’bf˜bˆbZaÇ@Âfé€™b¿*”²féžf”D˜F8f8}ØŠ•\^0fˆbŽñ•D˜F8}ÝŠÔ‰*ºF}Õ‰‚asŽ&ø`è‹p‰ð0‘Vh€ð===*à@=P=ˆ¦¸}X0þ‰˜¦n¸a™bö&‚a• !W™*œ^›^^—\˜¦@¸fÈA™bfŒa”•¢*,¨'C•€¡”‚$=f–D !M•ƒ$ˆb=f/’euf’ ˜F€¡*R(”¡4Œxe-‚„™}€¡0”˜F8e8’—D$‘—\˜Ff*xˆe™¦A¹aÈa™b6‘cF–Y™¡4ŒXa–‘‰c–*žY™RÌ‰˜F€¡S”¡(Œˆñh5h‰ae”e•ü&žfc*ÄŸf~f©‚Âfk™‚am–tu‘§ žf>ep=º‘y*êšF:f:u !y”ù ac˜d !”$ !‚”$ !…•€!* ”“=%ú`“5 —þ5""&‰yšF:f:u*6 =%áú`¢“5 Âfð0°%5A¼” Fp}°’*\ FpeFpf%‹ ÕšF:u!'Œ}%5¿–À‘f*‚ !1ˆd €Âf$ !È”$ !Ë”˜\ !Î”˜D„p°%*¨ 5´šF:f:u&[f[f»e+ú`å“ú`ë“5 ÷*Î äŸf»ð=&¸ep™Fˆa5‡Ée5yšF:f*ô :u=%'ú`›5@˜d™F˜\ !œ˜G˜dû&*ø`›˜›fYažL›f‰ac&f‰a*™*@šFvYyUžŠe pŠe‹pFŸ^¿g˜d !1œ*f˜\f1š !1Ÿf›^^{aAšpf˜d !Bœˆdg*ŒK›Iœ<™L™œf !Mœ˜\|fMš?a<Z‘(™c-†*²¡4Œ'‹ô6‘Vþ‹h€acccc–f¶f/‰a*Øccccc˜f¸fxfz›©'|€!t™`…™cžY™*þYavž‘‰_Ÿf˜^™^•^›^€¡‹œœ§4Œ”D–\•D*$—\F0a˜b@¼aÀa™b€¡šœ¡3Œ€&Îa“d^a¥ŸÂš*J0ˆa’d˜b^a0¾géa2aaq˜^™^œF*pˆ}‰}Œ}…}‹}Že€¡¿œépA5^Ÿf€žf“d€*–Èa¨™‚aÐžt‰&´v‘Vr‹hHFÍe8‰€™d°& !*¼Ýž‰d !càž!ð`ç›‰‰pfÝš !éœˆd !ì€!ð`ò›*âŠ‰pféš–bA—b5r’j”f*–fÿ“f˜f™ffÿpf‚€’f !c†xf‚yf*.‚˜‰ ™‰* &ð`–›š‰&*€eÐfð°fð`ƒ*TFô6ð(‘V5ƒhŸGŒK—¨&Xgœ:†‰Xa›Žƒa*z?ƒ‡‰¡{„)§ —¡ —Rap‡¦‚aN‡k„‹ac‡ ‘6”d* ñ•d˜b€¡T„¦€Ìabf˜bˆb²f¡”Œ*Æ[af‡mÀ™bÂf ‘[ah‡~²f ‘‰as‡xYav‡G*ì€™b¿²fAD¤U¤¦°fÀa˜b€¡ƒ„~ ¦¹ab*Àa˜bˆb‰a‡w‰@!}Œ¡yŒô.&°fšáí‰É*8Ó‰™z‰z‰z‰z‰Ÿf¡@Œ-”D˜F8f8}½‚•\˜B€¡„*^¡Ç„$!µ‡ñ*˜^™^š^ˆ}‰}:eñ•D˜F8}Â‚¬*„˜B˜Fe¸$B‰‚aÌ†€‰ !Ð†A{Œä‚aÖ†*ª€‰&Xa‚Ž‚ø`Ýƒz‰A{Œ!ã„äzð0‘fA*Ðêƒ„‰uhø‰*ö ¡5‡¹5‡–Gva"‹ö`‹0œF|e*Šö&D‰pœF~¼}ð%¸‰ ‘„pÿh_g"_a'*B‰€Âf_a–‰«ö`.‹¬ö`.‹‰¨–f‰6f6f6f*hÔfphA†e‘6f6f6f6f6f6f6f6f6f Æfp*ŽY–KŒM‰A—†e !NŽÄa™dp˜F¸$!¿& !\*´€!W‰fXŠ !^Ž¹$ !caŽ!ý²fÈe‘6f6fp*Ú™GuŒ –É}†eö&-ö&C‰6f„‰6f6f6f6f6f6f6f*6f6f6fVfÀÆa“f–f ¡—¡—³&¸‰†a”€Âf*&‘6f6f6f6f6f6f6f6f6f–b‡bàÆfžf¡£)§*LŽa£‹«¸‰~f£‰Ra°¥‰Ya³¥‰€™b¿²f£‰Ÿf*r†a“b6”dñ•d˜b€¡ÁŒ*¦@ºf€Êa’bf*˜˜bˆbZaÓ@Âfé€™b¿²féžf”D˜F8f8}äŠ*¾•\^0fˆbŽñ•D˜F8}éŠà‰F}á‰‚aŽ&ø`*äô‹|‰ð0‘Vh€ð===@=P=ˆ¦¸}S0 ‘* ˜¦n¸a™bö&‚a• !#™œ^›^^•\F0fŒa*0”•¢•D”Dˆb¨'C—¡@Œ=f€¡&”$=f4’*Ve$uf’ ˜Fxe-‚9™}$˜F8e<’•D-‘•\F*|f€e0f:‘cF–%™›Xaœ–‰MØ‰˜F€¡N”¡*¢4ŒˆñY5hÂf7™‚a^–ef‘˜ žf>ep=*È«‘yšF:f:u !j”ù ac˜d !p”$ !s”$ !*îv•€!…“=%ú`€“5 ˆþ5""2‰yšF*:f:u=%áú`““5 Âfð0°%5A” F*:p}¡’FpeFpf1‹ ÆšF:u!3Œ}%5°–±‘*`f !=ˆd €Âf$ !¹”$ !¼”˜\ !¿”˜D„p*†°%5¥šF:f:u&[f[f»e+ú`Ö“ú`Ü“5*¬ èÕŸfµð=&¸ep™Fˆa5‡Ée5y*ÒšF:f:u=%'ú`ó“5@˜d™F˜\ !ù”˜G*ø˜dFø$ !œˆd !=Ÿf›^^{ašpf*˜d !œˆdg›œ ™™œf !œ˜\|fš?a *DU‘c-†¡@Œ'—ô6‘V “h€acccc–f*j¶f;‰l:™kŸf˜^™^•^›^€¡@œœ§@Œ”D–\•D—\*F0a˜b@¼aÀa™b€¡Oœ¡?Œ€&Îa“d^aZŸwš0*¶ˆa’d˜b^a‚Ÿ¾géa>aaq˜^™^œF*Üˆ}‰}Œ}…}‹}Že€¡tœépAAjŸf€žf“d€Èa*]™˜F Èeý²f ‘‚aŒž€‰&´v‘V~‹hHF*(ÍeD‰€™d°& !™ž‰d !cœž!ð`£›•‰pf™š !¥œ*Nˆd !¨€!ð`®›–‰pf¥š–bA—b5*t*š*Àæ QtÀXÀ*1KYtÀXÀ¯”Ls©À@´:2“@*Œ©?T@$9Ì@[©(}@(,Ka ¨4*¡ªqh¡ªÕfh¡ªg'h¡ª€h©”MYLC©YLC©ÊYLC©£KYLD©É8YLD©FYLE©O YLE©ö&YLG©RYLG© gYLH©\}YLJ©¼ YLJ©ÌyYLM©sYLP©\YLe©ÄŠYLe©¢ŒYLf©µzq°i©ÎYLp©@QYLy©fYL–© €YLš©®YLš©ì&YLš©a'YLš©É2YLš©^MYLš©sYLš©‰sYL ©BxYL½©C YLÂ©FYLÝ©-&YLÝ©(YLÞ©z}YLß©0 YLì©|u4ì©”’u4ªòYLªCTYL,ªŒKYL,ªüKYL,ª”MYL6ªŒ}YL¢ª«„YL¤ªsYL¯ª-YL³ªë~YLËªúpYLËªsYL×ª3…YLàª#YLòªeŸu4õª†YLýª©YL««„YLA«ÄqYLA«sYLF«’sYLK«¼ YLK«€QYLK«ÕZYLO«`KYLO«üKYLO«NYLO« _YLR«Œ9YLR«,:YLR«R;YLR«œSYLT«z}YLW«|qYLž«ŒYL¡«@wYLÀ«(YLÁ«¼,YLÌ«ÃYLÌ«pEYLÏ«ŒdYLÑ«O YLÑ«,xYLÑ«BxYLÑ«ýxYLÑ«hYLÑ««„YLå«ÞSYLå«ßSYLå«àSYLå«âSYLé«FYLë«ZYLë«øfYLë«z}YLì«sTYLó«FYLô«xZYL¬ÄqYL¬sYL¬,tYLl¬ÊYLl¬UYLƒ¬ç_YLƒ¬è_YL,¯k¬/¯€yx4¯¸LYL:¯,YL;¯YL;¯TYL;¯€W F<¯Kd0Y¯’ZYL\¯{YL\¯EYL\¯âGYL\¯KYYL]¯n.z¯À]oz¯°co|¯@D>ƒ¯koò„¯g'YL„¯@8 :„¯@j"Š¯KqYLŠ¯P}o´¥¯xZYL¥¯¢ZYL¥¯€‰î¥¯¢ŒYL¥¯¬ŒYL¯dZ¯IeYL¯ïeYL¯gYL³¯7Frúµ¯ÀSF¨µ¯ÓSF¨µ¯ÞSF¨¹¯·kYLÚ¯K€Ú¯€pF¨Ú¯qYLà¯`;D>ù¯wLsÌ°K>°¸~F¨°º~F¨,°kt\,°Þv°,°³'wR,°µWx2,°zdxÌ,°óyyx,°”’F¨D°€p ŽD°ÛpYLv°@8%v°·kYLÁ°úvYLî°YLô°ÅžYLõ°yZ ±¸eF¨ ±Ú–YL ±î—YL ±‡˜YL ±™YL±ÀS|ž±ÞS|ž±À+F¨±˜:~æ2±ËLYLH±å~F¨ƒ±€(R„±X…~Ö‡±t'YL‡±\}"±K.j±]KYL’±Àv2*’±@~|’±à~F¨±±À]rúÑ±-XYLÑ±XYLÕ±ÈYLÕ±À+@’ú±|~YLû±‚¾ý±P}n²YL²CMYL²„€Ež²d0²ÞpYL²‹wYL²@YL²g'YL²*}YL²tSYL²!TYL²bTYL²ÀvI~!²ÀvVì#²g'YL$²X…Šˆ,²ày—.3²ýFYL3²P}n3²‡F¨Z²ÀÁe$Z²ÈeŠZ²@ÎeðZ²€ÔfVZ²ÀÚf¼Z²áf"š²˜\©²šVÆ²€pfˆÉ²}hîs³[dp<ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÀSk¬ü xQnŒÀSn.oaF Fa© :a±"aÞîaZa"€aD,>a²2 Žay:%azd(Radf.jaÕf aãf2*aOq@’aìrD>aÌyEža zF¨a»zI~a;}Vìa\}YLaz}d0a/†e$a0†eŠa1†eða2†fVa3†f¼a4†f"a—fˆa|—hîz¸Loò¤€o´ÊX„p<Hžq°˜:rúô&˜:sÌâ.¸Lt\â.`Ÿu4ä.°"v°æ.øWwRî.Hx2ð.xÌó.øyxLNÀSyZíQd|žiTÀ]~æµdÀS~Ö,e`"äf2|%4S%6A%4SG*rLOBAL%6S%6<%2A%O:%4>%4S%6A%4S%6A%4STI˜ - %6Aÿ * ÷5‰÷5‰Ã‰…G÷‰„¯g'²g'¯ª-$&ú±|~*ÆÁ‰Á<‰· CÄÐÃe‰”ƒ ‰<² nOH*ì”CÃe‰CÃe‰ƒ÷ CÃe‰Á uOüXaOØw,°Þ"tOÅž*YÁÂ‹€Á PÁxCÃe‰ƒ÷ ‰Y xuO&,°Þ8æ‰‡CÃe‰…Å‰lO8YèQ>Æ*a©>Æ¯”L\æf@\ÔZ@*²@\Œs@\ú@\'L@H©\}@*ýª©@\÷X@½©C @0L@0óy@*ú±|~@\äw@/¯€@0µW@nH@*0z}@\#@0œr@Ä*©@0Œ@"\?T@(¬„¯@8hà¯” * NUL MSG LGO DSB PRV SGL&\ÔZ\?T\'L\ú\æf$\äw*& NIO RST EXT CLI PARSER BLOCK\÷X \Œs\#*LS CLI TASK NAME %2R CPB ADDRESS *r= %P CLI NAME = %2R C.PSTS: %4A *˜%4A %4A %4A %4A %4A %4A %4A %4A %4A %4*¾A %4A %4A %4A %4A %4A CPB DUMP:Ã(½©C *äÃe‰ƒÃ5\ÄÄX÷:‰Å7öþÄ*©ýª©:ú±|~$H©\}* C‰ƒFæÃe‰ƒÃe‰Ãe‰ÁN0z}nH(N*0‰ƒÐÃe‰Ãe‰Ád‰ƒÃe‰Ä0µWd$0óy*V÷ Á‰‰· ÁÔ‰ÁÁåÁeƒÃe&/¯€‰²Ô0œr 0z}*|‰ƒÁ`ƒÃe‰ƒÁ`B‚ƒ‰÷eÅe0L0Œ$²¢ÄZþÄ ®‰ÌQÄÀÀÚ*a±ÄÀÀÚ¯”L%°'@ô«xZ@*ê¨u~@²@!ày@,è.@ë«øf@*d©°;@ú±|~@4@2`m@D©F@*nH@5¸8@4H:@(H„¯@jh~ ¯” * CLOCK QUEUE%6SADDRESS = %P REQUE*&ST TYPE = %D TCB = %P TASK = %2R*L%6SADDRESS = %P REQUEST TYPE = %D*r%6STIME REQUEST BECOMES DUE = %5Z%6SC*˜.AST = %P C.SRC = %P C.DST = %P *¾ EVENT FLAG = %D.%6SC.RSI = %P%P *ä C.UIC = %P%6SC.UIC = %P%6SC.SUB = %* P C.AR5 = %P%12S<<<<<< Invalid req*0uest type >>>>>>%12S<<<<<>>>>>r*r”Òðþþæƒ‰„I÷‰ƒ÷ &”Ò ðþþD©F ú±|~*˜A‡ær‰=‡· Ãe‰…PÁMÅ¥r²2`m"M*¾Å¥Ãe‰÷ X%‡ƒÃe‰Ãe‰4nH*äÁæ‰‰· ÷ &÷ ºƒ‰ƒÂÂE²&,è. * €ÿ‰÷eÎ‰„»Ö‰f¦æ&f&Ã²(ô«xZ*0ÃåÀ‰¦ÃeÀ úÃ‰…Ã‰€ê¨u~"ë«øf*VÃe‰Ãå‰Bá‚eA÷ ‚eAÀ<÷ 4H:d©°;*|‚eAÀ<÷ ‚e€ÐPÃ‰d©°;d©°;$ë«øf*¢Ár‰· …„ƒ‚‡f¦æ&fÅ%r²*ÈÃe‰Ãe‰Ãe‰Ãe‰5¸8!ày*îÃe‰Å Å% ‡ÅetA‰· · Á%°'t ²&²* ‰· …„ƒ‚‡¡Ä5Ð÷e ²(²:ÁA ‰· ±‡A²lQÄÀÈ*aÞÄÀÈ¯”L£‡À”@°<èq@*´{Ë@¨:àª@|Óí@ÔƒZ@T†ðŒ@*Ü{8&@\ˆ;P@Ü{|Š@l6p…@|ZŠ@*Ü{ö2@Ü{ü2@Œýf@´{µr@3{ø@*\ˆ¶x@¦<ð@¡‡ €@£‡ Z@\ˆQ@*zàª@\ˆ/@Ü{T3@Ü{f'@´{Œs@*´{’@´<@²@´{@´‡áy@*£‡à~@Ôƒžg@´{Ês@µ<@T†Jg@*Œ9€@\ˆ;"@|d@T†‘@T†žg@*|´p@¬<€\@|û@ºƒàª@´‡‡@*|7@T†C@Ôƒm@| q@T†ê'@*´{T @|*}@½©C @²g'@Õ±È@*p@´{)^@Ôƒ4F@T†L…@Œw*@*Œz@uüX@,{ 2@¬‡«„@Á°úv@*e©ÄŠ@T†Uy@¯‡ð‘@nH@T†íQ@*d&4&@p@0{àG@Ü{a@-{Ðf@*Œiw@T†¼^@\ˆ| @|ô@\ˆ¤@*ú±|~@´{©8@,°Þ@Ôƒ'@´{–8@*\ˆœr@³‡ø@T†„S@|›@¥<°'@*/¯€@ô°Åž@Ôƒt @rh !@ŒL…@*Œly@\ˆæf@Œ“Q@l8Y@Ü{¡y@*,°³'@´{ï@´{ó@hhÐ@´{A†@*T†Lq@Ü{‘’@Ü{’’@Œdz@\ˆä3@*´{;"@\ˆKX@¬<è.@³‡‚@Ü{Ê@*\ˆÃŒ@Œ„S@Ü{!;@ŒD@ŒH;@*³‡@²‡à@\ˆ_M@u@u@*¡‡@@Œ ACR WRA WRB CR BRQ SRQ&Ü{Ê Ü{‘’Ü{’’Ü{Ü{a"Ü{¡yb ORQ IRQ HFLÜ{¡` Ü{!;Ü{ü2t*t VFL HHT HFF FLF FDX RAL&Ü{|Š Ü{T3Ü{ö2Ü{f'Ü{8&$|´p(š WES TAB 8BC RCU WAL VER&|› |*}|Óí| q|ô"|ZŠ"¾ BCC DAO PCUâ`>°”(|û |7|dâ`>° ”*Ü WCK SPU VV DEVICE INFT†CT†UyT†ðŒ*ORMATION %5A ----- UCB ADR D*(CB ADR SCB ADR REDIRECT ACP *NATT OWNER LOGIN UIC ------- *t ------- ------- -------- --- *š --- ----- ---------%4S%P %P*À %P %6A %2R %2R %6A [%O,%O*æ]%4S%P %P %P %6A %2R %2R* %6A%4S%P %P %P %6A %2R *2 %2R%4SU.STS: %4A %4A %4A %4A %4A %4*XA %4A %4A%4SU.ST2: %4A %4A %4A %4A %*~4A %4A %4A %4A%4SU.CW1: %4A %4A %4A *¤%4A %4A %4A %4A %4A %4A %4A %4A %4A %4*ÊA %4A %4A %4A%4SU.CW2: %4A %4A %4A %*ð4A %4A %4A %4A %4A %4A %4A %4A %4A %4A* %4A %4A %4A%4SU.CTL: %4A %4A %4A %4*<A %4A %4A %4A %4A I/O REQUEST PA*bCKETS: PACKET ADR REQUESTOR *ˆ PRI EFN LUN FUNCTION CODE *® STATUS ---------- ---------*Ô --- --- --- -------------*ú ------ %P %2R %* D. %D. %D. IO.%R%8S%7A *F UNIT CONTROL BLOCK: UN*lIT CONTROL BLOCK EXTENSION: DEVI*’CE CONTROL BLOCK: STATUS CONTROL*¸ BLOCK:%4S%P %P %P %6ACUR*ÞRENTQUEUED %4SSTATS: %4A %4A %4A %4A *%4A %4A %4A %4A %4SATERS: %4A %4A %4**A %4A %4A %4A %4A %4A %4A %4A %4A %4A *P%4A %4A %4A %4A%4SU.TSTA: %4A %4*vA %4A %4A %4A %4A %4A %4A %4A %4A %4A *œ%4A %4A %4A %4A %4A%4SU.TSTA+2: %4*ÂA %4A %4A %4A %4A %4A %4A %4A %4A %4A *è%4A %4A %4A %4A %4A %4A%4SU.TSTA+4: * %4A %4A %4A %4A %4A %4A %4A %4A %4A *4%4A %4A %4A %4A %4A %4A %4A > > > > *Z> Redirect error (U.RED=0)INPUT OUTP€UT „*„÷ö‰ÃÂò%xæxææŽá·&öú±|~e©ÄŠÕ±Èxx$Õ±È*ª÷‰ƒ7 ¦Â²‚æ…æÕ±È ô°Åžô°ÅžÕ±È(*Ð‰†‰CÃe‰÷E(÷Â%TT÷U÷ÅeCnH&u*ö‰…ƒÃe‰¦ƒÃe‰„ƒ ‰á‚ ¦÷uuüX* àöæ‰†wH÷EÚöCÃe‰·ÈöÂ5ºƒàª £‡˜”(Œ9€*B ÷5Âö÷Uºö÷5"÷5¬öCÃe²g'(¡‡ €*h ‰Ã‰Â=CÃe‰CÃe‰Â5* ½©C d&˜T¬‡«„"´‡áy(´{©8´{)^ *Ž CÃe‰wÊæ‰C÷ Á‰Á ´‡‡,°Þ"(*´ ‰· Á‰Ág‰PCÃe‰CÃe²g ³‡*Ú ‰ƒ· ùÅ ÐD÷ CÃe‰Â5²‡àD,°Þ$£‡˜”* ÁÀ‰4Â5 CÃe‰‰CÃeŒýf ÀŒ„S ¡‡@*& ‰‰Ã‰Â5ÁCÃe‰ƒ÷ $¡‡ €½©C d&˜T ¯‡ð‘(,°Þ*L CÃe‰Ã ‰ÁµCÃe‰Â5Áè¬‡«„µ£‡˜”"Œ9€(è*r ‰÷|ø· ÁP ‰7 lø÷efæ÷5²P²*˜ rõÎ ÅƒCe‰D÷ Å%÷5Jõ/¯€$Œw**¾ ÷ A‰· Î êÖ…÷54õ:Ã‰Â5/¯€²"½©C (d&4&*ä CÃefÅÒ‰D ÷ A‰· Ãeô ´‡áyÒ/¯€"²* … CÃe‰Â5€ÐÐÄZ÷ Á£‡ Z"Z&/¯€*0é‰· CÃe‰Ä†÷ Á‰÷eÁ(é ²£‡ Z†/¯€&²*VJ‰CÃå‚Âe‚ÂEÿ‰· ÷5’ôAJ ²*|Ã‰ƒÃ5:Ãæ æCÃe7 bô7 ½©C d&4&Á°úv"´‡‡*¢`ô‰%·VôÁd‰„— ‡CÃe‰Âeƒd ¤‡&p*È‰Âeƒ‰Ã·*ô³ Âe€³Â‰rh !Á°úv*î· Ã³³ Áˆ‰ƒÂ‰· C² Á°úvˆ&²*Ãe‰Â5!Á¤‰CÃe‰„ÃåÂ£‡˜”Œýf¤³‡(-{Ðf*:Âe‚Âe‰· CÃe‰Â5€Â5@÷ ²£‡ Z*`÷e…mÎ w¬ü–%ƒÃewüfæ˜ ²l8Y(˜ *†÷5€óÃ‰Â5 ÷ ˆÅ÷udó÷ ½©C d&4&$u*¬¼Â÷ rÅ÷|Nó÷ ¦Ãe‰|"3{ø*ÒÃe‰…÷Û,ó÷ „÷ó÷âóÅe0{àGÛ¨:àª â(,{ 2*øæ ‰‡C‰… CÃe‰¶ Þ ÷ œÅe µ<* ëÖ…‡Ãæ æ÷ÌòóÆò ÷e€¬<8YÁ°úv*D ¾òóºò÷å€²òÃ¬òƒ`‰…Ã³³ ‡Á°úv*j ÅEƒŽöCÃe‰¶ Þ ÷ ,Žµ<* v‡· ÁN‰÷eÁi‰Á·‰Þ ²N²i$·*¶ ø&fPCÃe‰‰CÃe‰CÃe‰´<°<èq$¥<°'*Ü CÃe‰¦CÃe‰ƒÃe‰ƒÃm‰ƒÃe¬<€\´<p"hhÐ*ÎåÎàŽŽŽ CÃe‰÷ ÐìñÁ‰l6p…¦<ð,°³'&(· CÂ‚‰…„‡²¬<è.&QwÀÌ*awÀÌ¯”Lú±|~@¯Ie@*¯ïe@±ÀS@±ÞS@²@@(B¯dh¯” * MEMORY DUMP÷‰ÂÃÄÅ(ú±|~¯ïe ¯ïe$¯Ie(¯Ie &ÁÁ%ÿÿ÷ ÷ ÷ÿÿ‰²@±ÀS±ÞS²@¾QœÀÈ*a"œÀÈ¯”L²@€#s!@*„¯g'@²g'@€#u~@ú±|~@š©É2@(rÚ¯Kh¢¯” * ERROR LOG BUFFERS%6SBUFFER ADDRES*&S = %P ENTRY TYPE CODE = %P%3SENTRY*L TYPE SUBCODE = %P%6STIME = %Y %3Z*r%12S<<<<<>>>>>¢*¢÷5‰÷5‰÷:æƒ‰„3„¯g'²g'š©É2 š©É2*È÷‰ƒ÷ \+‡æ‰'‡Ãe‰Ãeú±|~"€#s!*î‰Á‰· ÷ LÁ_‰Ãe‰Âe²_*‚ÂEÿ‰÷e‰„ÑÖ‰¡Ä5 ²*:Ð÷eÁr ‰±‡ÅÃe‰ƒ Å ²r €#u~`ûÅ‰ƒ Å û‡PQvÀ¿Ò*aD,vÀ¿Ò¯”L„¯g'@D,k@*°?S@ÌvL@(V°KhÌ¯” *%NCDA -- Unknown get command line erro*&r%N%NCDA -- Command I/O error%N%NCDA*L -- Indirect file open failure%N%NCDA*r -- Indirect command syntax error%N%N*˜CDA -- Maximum indirect file depth exc*¾eeded%N%VA%NÀÁ* Á ýÀ0 b÷ ÌvL"D,k*äÀ‡ðfí‰œ`Å¥öÿ(Å¥ÿÿ Å¥þÿ°?SD,k* Å¥ýÿÅ¥üÿÁ‰ ‰Á*‰ ‰ÁG‰Á*"G*0m‰Á–‰&h&fÁÆ‚‰ ‰÷U ‰m–Æ&„¯g'ˆQvÀå*a²2vÀå¯”Läyàª@s<}@*i6@y@²@š²@c6«„@l àª@*ó«F@d6«„@Õ±È@p@“U]R@*i6xd@v6#@s6Ùf@õ°@€a@*h6î@²2àª@ú±|~@w6 X@i6øf@*ô°Åž@c6@y@hhÐ@t@d6Xz@*o6y‹@f6¤`@f6¸@g6 @n6VN@(XD°€phÀ¯” * TASK HEADERS %2R ------%4SHäyàªl àª*&EADER ADDRESS = %P%6STCB ADDRESS = %P*L%4SPS=%P%5SPC=%P%4SR0=%P R1=%P R2=%*rP R3=%P R4=%P R5=%P SP=%P%4SINITI*˜AL PS = %P INITIAL PC = %P INITIAL*¾ SP = %P%4SHEADER SIZE = %D. NO. O*äF WINDOWS = %D. NO. OF LUNS = %D.%4* SCURRENT UIC = [%O,%O] DEFAULT UI*0C = [%O,%O]%4SH.WND = %P H.GARD = *V%P H.VEXT = %P H.SPRI = %D.%4S*|DSW = %P H.FCS = %P H.FORT = *¢%P H.OVLY = %P%4SHEADER:÷‰$&ú±|~*ÈÄæ‰L‡Âò%RæR&æŽá· ó«F Õ±ÈRR$Õ±È*î÷‰„7 ¦Â²‚ÃeÂ Õ±È ô°Åžô°ÅžÕ±È&t*ò%RæRææŽá·÷‰7 (Õ±ÈRRÕ±ÈÕ±È"ô°Åž(ô°Åž*:¦Â²‚Æ·e–%Ãe‰Â5 Õ±ÈÕ±ÈÕ±È s<}&€a*`wææ‰†wææ(‰‰Á‰Á‰ &*†· Ãe‰ƒÃm‰…PÁ"‰· &²phhÐ "&²*¬CÃe‰ƒÄ÷%ÿÿÄÃå‰¦Ä úg6 “U]R*Ò÷%ÿÿ CÃe‰ƒÄ‰¦ÃeÄ ú“U]Rc6@y*øÁL‰· Àe ÀeCÃe‰L²&c6@y*Á]‰· CÃe‰CÃe‰CÃe]²i6øfi6xd(i6@y*D‰Á‰· CÃe‰CÃe‰ƒ‰ ²h6î w6 X*jCÃe‰ÁÇ‰· CÃe‰Ã ‰Cn6VNÇ²c6«„*Ãe‰Ã ‰Á‰· CÃe‰CÃed6«„² w6 X*¶‰CÃe‰CÃe‰‚Á<‰· g6 v6#s6Ùf"<(²*ÜCÃe‰CÃe‰CÃe‰CÃe‰d6Xzf6¸f6¤`&o6y‹*Áy‰÷e÷ ÷e÷ ÷eÁµ(y²õ°²š²$²(µ*(‰CÃe‰‚Â%†Â€C‰÷e„Äe h6î²2àª"²(tNwzýÄú‰<QvÀå*ay:vÀå¯”L2±ËL@\¯âG@*N"&@¹¯·k@D°Ûp@±}s@ô'¤’@*Ñ±-X@<&%t@„¯g'@©n¾^@²g'@*æt<@²‹w@ä[´"@h±²'@<&ãe@*ây"&@´:t@«:}@<&iw@‡±t'@*Š¯Kq@<&ly@\¯E@ô' q@ö Þ@*’±vw@v°·k@´:ãy@ö "&@¥¯xZ@"Y¯’Z@(žv°@8h8¯” ""$$ö Þt*t%NCDA -- Failed to extend page buffer *š- %D. pages available%N%NCDA -- Faile*Àd to assign LUN to input device %VA%N*æ%NCDA -- Failed to open input file %X%*N%NCDA -- Failed to open output file 2%X%Nn8*8÷5÷UÞÃ÷& & æYÿˆ‡Â²g'²g'2±ËL*^Áå & fæYÿˆ †‚— ó‚ÁtÂ‰t"2±ËL*„w`ÁÀ Á ýÀ`&æ=ÿˆÁ 2±ËL2±ËL\¯âG`(D°Ûp*ª ÑEðÿ 7 ·÷5"²‹w&Ñ±-X Ð@?ÀÁBÂ ÷ †æ„¯g'Bö Þ’±vwìæÁ²‚‰ ‰Å&ö Þä[´"ö Þä[´"² þðµ7 õõ÷‹(v°·k<&iw<&ly Ñ±-X´:ãy©n¾^(õU7Šfÿˆõfÿˆ7 Á ¥¯xZ¥¯xZ´:t©n¾^"Š¯Kq(>É¥Dñ¥Yæÿˆ7 ÷5À&ö Þä[´"¹¯·k‡±t'"„¯g'*bÁeB$&÷ ‡ð•#÷ ‡÷UN"&±}sô'¤’"h±²'*ˆwø÷5#Àð•"ð•(Â„¯g'„¯g'ö "&&Y¯’Z*®ð•ð°ÁeB$&÷ [‡ð•æt<$±}s*Ô#÷ U‡÷5 1Àð•ðð&ô'¤’ h±²'„¯g'ö "&<&%t(«:}*úð•"ð•(ð`ÁeB$&÷ `(±}s* 6‡ð•#÷ 0‡ð2ýð.ý ðe p0 ô' qh±²'*F÷5&ÀÁeB$&÷ ‡ð• „¯g'ây"&"±}s(ô' q*l#÷ ‡ð•ðð€ ÁÁæh±²'<&ãe\¯E"(æ’ÀeH‰ ‰‰QxÀ@Æ*azdxÀ@Æ¯”L²@d&#@*g»z@½©C @Õ±È@“U]R@O« _@*,°zd@nH@g%@ú±|~@ô°Åž@*rh !@A«Äq@lh8Y@ ©Bx@„±X…@*gæ@zdàª@Ú¯q@(8ƒ±€h| ¯” *MAINSUB TASK SYS COMMON DEVICE DR*&IVER DYNAMICL\\zdàª`*`7a':ùàŒºMd€ PARTITION IN*7a' :ùŒºMd*†FORMATION%23SM E M O R Y M A PPAR*¬TITION PCB ADR BASE SIZE *Ò TYPE OCCUPIED BY--------*ø- ------- ---- ---- * ---- ----------- %2R%5S%P%6S%*DP%5S%P%5S%4A %7A %2R %8A %2R%5S%P*j%6S%P%5S%P%5S%4A %7A %2A:%6S%8A %2R*%5S%P%5S%P00 %P00%4S%4A %7A %2R *¶%8A %2R%5S%P%5S%P00 %P00%4S%4A %7A *Ü %2A:%6S%8A<--ERROR %24S%P%5S*%P%6S%23S%P00 %P00%5S *(%17S%P%5S%P %17S%P%5S%P *N%16S00%P 00%P %16S00%P t 00%PA|*|÷x‰÷eÁ‰÷eÁ©‰Áð‰$xú±|~²² ©&ð*¢· Ã‰·®ýÅ`÷%ÿÿÅl÷ bÃ"² ©Bx`“U]R l(A«Äq*ÈÂò%æææŽá·÷‰„"Õ±È Õ±ÈÕ±È$ô°Åž*î7 ¦Â²‚æ\‰†w÷0ýFýÁ2ô°ÅžÕ±È\(2*÷ ÷"ý4ý÷mý.ý÷ à÷ x÷ ÷ –÷ ,°zd*:÷ ˆ‰÷5ýÄìüw èü÷öüöüÃeg»z*`‰ƒÂèü÷ ˆGÄÈüÄeÂò%ærh !lh8YÕ±È"*†&æŽá·÷‰„7 ¦Â²$ Õ±ÈÕ±Èô°Åž ô°Åž&Õ±È*¬‚÷Œü÷¤ü˜ü÷%ÿÿÃŒüƒÃE€ƒƒ“U]R*Òƒƒƒ÷xüÂpüÃnü÷ Ãe‰ƒÂ"rh !*øZü÷ øwüþÄ·Ä9÷LüÆ·e–%‰ÃzdàªÕ±È"Õ±È*Âò%æææŽá·÷‰(A«ÄqÕ±ÈÕ±È Õ±È&ô°Åž*D„7 ¦Â²‚æ\‰.‡Á2÷ ÷ "ô°ÅžÕ±È\ 2$,°zd(„±X…*j÷5ÚûÄÄûïÄÀûÄeÂò%æg»zlh8YÕ±È (*&æŽá·÷‰„7 ¦Â² Õ±ÈÕ±Èô°Åžô°Åž$Õ±È*¶‚ÎÆ·e–%‰Èñ÷-pû†û‡7!fû÷-tû Õ±ÈÕ±Èñ*Üzû‡÷-lûlûƒ· ÈéÐ‡ƒ †ÈàAÚ¯qé*‰‡7!0û÷BûDû÷:û:û÷ û0û· ‡ $²*(ÐA‰ÐÈ$ûÐíA‰‡AÃŒ÷5O« _O« _O« _&Œ*Nøú÷½îúíú ð$þÿý{ÂÞú‰ g»z*tÃÐúÃe‰·ØúÐZA‡fnn( nHZf "n$&n(*šn$t+n7!”ú÷5šú ÐzúÐxún$t +ng»z*À‡ÐxúÐvú‡È7!húÈÐ7!\úÈ(*æ÷5^ú#È$÷5RúÈ÷5FúÈ+÷5 g»z$gæg%&+*:úÈÃ‰Â5õUð õ-ú ‡Èg»z½©C d&# 2Ð‡ÀQwÀÁÒ*adfwÀÁÒ¯”L4¯¸L@²@*:¯,@±]K@O« _@J©¼ @ú±|~@*K«¼ @i©€‰@ý±P}@¬<è.@ ©Bx@"3²P}@(¶ ±KhÔ¯” * + - "*" POOL DUMP%2*H7SS Y S T E M P O O L%6S* = NEXT *nWORD ALLOCATED FIRST FREE BLO*”CK ($CRAVL) = %P%4S%P %2A%P %2A%P %*º2A%P %2A%P !%R %R %R %R!!%8E!%23S[AB*àOVE LINE REPEATED %D. TIMES]%6S > > >* > > Inconsistency in dynamic storage*,%6S+ = NEXT WORD IS IN $PKAVL LIST *R $PKAVL = %P%6S- = NE*xXT WORD IS IN $PKAVL AND ALSO IN $CRAV*žL > > > > > $PKAVL Link error at %P *Ä-- FWD ptr = %P÷:‰· ÁF‰÷e:ú±|~²"F*êÃ‰Áb‰÷%ÿÿ Ã‰Á,‰"²J©¼ bK«¼ K«¼ &,*Áo‰÷eÃƒ ƒ÷öý7 ôý7 êýÃ‰o²4¯¸L& ©Bx*6·ÞýÃ÷ Ê÷%ÀÐý‚÷ Èý7 ¼ø÷ *÷ ¼ý O« _*\û‡÷Òý7 Êý÷ ÷ ø· Áý ‰· ‰² ý&²*‚÷²ýÐÄÅ&f÷ˆý÷ N‰•Ðvý*¨Ãe÷ pýÄ ð…„APÄ ýP÷ z÷jý÷ *Î¬Â"ÁÄRÄ ýÁ¥‰‡¦&Â&ý ":¯,¥*ô· "ý÷ýÄ÷ †Ä÷ †÷ý· 3²P}±]K3²P}$*ô÷Ä÷ ôü÷ ‡÷èü÷æüæü„‚‡ ±]K 3²P}*@f¦&ÁÂ"Ä7 Üü÷Úü÷ØüÔüR$:¯,"*fÄ ü· Æü÷¾ü„‚‡æ÷°ü@÷% ªü‚*ŒÀÐ ü· ÁÙ‰· $÷ŽüÄÁ"":¯,²Ù² :¯,("*²ÂÀRÄ ýÃÁ"ÄÑRSÄ ûÒ:¯, :¯,"*ØÁ¥‰÷e÷ Jü÷7 DüÎåÀÁ"ü÷ ¥:¯,*þ7àüƒÀ‡&f¦æ&fÅÄ€ Ä i©€‰:¯, *$ ýæŽ ÷%ÿÿ#Ã‰…Å÷ F‡æ4¯¸LK«¼ K«¼ (*J ‰‡ƒÃí ‚ ƒãýÂ Äƒ „ãýÄ÷ O« _¬<è.&*p C‰…áÖ…„ƒ‚€‡fÂ5Â-ý±P}(O« _$– ‚Â-|û‡¡ÐÁ ‰· ±‡ ²hQxÀÀ*aãfxÀÀ¯”L/dàª@¥¯¢Z@*ö @ä[;@N@Ñ±X@„¯g'@*²g'@D,k@9©x‚@ä[´"@“±†}@*0²# @a@¯Ie@vLàª@¯ïe@*3²ýF@“±”@Ž±J…@Ž±P…@ ±Ú–@*æ[ŒY@²@@¥¯¢Œ@¥¯¬Œ@ ±î—@*ö Þ@ ±‡˜@²Þp@ây@Y¯’Z@*¥¯xZ@(4’±ÀvhbÌ«e ¨Ìaâyh"Œª¨JaâGh‹ªÐ¨¡¯” *%NCDA -- Command line syntax error%*2NCDA -- Illegal switch%NCDA -- No out*Xput file specified%N %VA%NCDA -- Ana*~lysis output must be directedto an exp*¤licit device or file%NCDA -- Output d*Êump file name must be explicit%NCDA -*ð- Crash dump must be input from an exp*licit device or file%VS/\%N%NCDA -- )>… ‹ªÐ…Ì«e ŒŒŸP²g' P‹ªÐ‰‰DECNETÿª Œª@@‰ ‹ªÐ‰Ì«e ”” €P²g' P‹ªÐNETÿ ŒªBB ‹ªÐÌ«e œœ¡€P-¶ÈÎÀœ%²g' P¶Æ Î„¯g' ‹ªÐ””SYSÿ ŒªDD” ‹ªÐ”Ì«e ¶*¶¢PÀœD€E€N„SÖÀ„îIÞÀ„²g' P„¯g'Ö"î&Þ$ÜîTæÀ„îYîÀ„î=ö:„öÌF*îæîîîöö F" ‹ªÐ˜˜LOWÿ ŒªFF˜ ‹ªÐ˜Ì«e ü ü£^ ^‹ªÐœ œHIGHÿ ŒªHHœ ‹ªÐœÌ«e ¤†dÀ†lP=:„Î‚ª:* d lP ª "À„PÂ‚Ü:€Â†êP:€Â‚ø:€Â‚&"P Ü êP ø8:BÀ„PÂ†$P:€Â†:P,* BP $P :PR˜/ÈÊ„À‚\[¶Ä‚l.&˜È \ ¶ ll~²;~Â:€À†~Æ[* ~² ~Â€ ~Æ‚¶Ä ¦À„ÆÂ‚È,€Â‚& ¶ ¦Æ È ˜È]‚ÖÄ ¦À€;Â.²À„ÆÄ* È Ö ¦Â²Æ´æºÀ€;ÂÀ„ÆÂ‚ðÀ†& æºÂÆ ð **÷ð÷÷÷7 &Y¯’Z/dàª ±‡˜²ÞpvLàª ±î—*D7 ÀÁ Á ý‡÷5MÁw´ „¯g'²g'a„¯g'$N*j÷5E÷‡÷>÷‡÷7÷&„¯g' ±Ú–Ž±P…Ž±J… ±Ú–$Ž±P…$‡÷0÷‡÷5(÷5&Ž±J… ±‡˜Ž±P…Ž±J… ±î—„¯g'*°$Áwb÷5÷5÷5÷ „¯g' ö „¯g'„¯g'$„¯g'*ÖÀ ‡ ‚ÀeÀEÀÀ7‡Ž±P… Ž±J…&Y¯’Z*üw.7ý‡÷5`À\ ÷U „¯g'ä[; æ[ŒY(„¯g'*"Á÷5÷U@ÁwàÄÊüwè7Šö „¯g'„¯g'ö Þ*H×-@ ×- wÐ7Š‡÷•‡÷5 ¥¯xZŽ±J…Ž±J…¥¯xZ$¥¯xZ$n@À 1¢1¬ÁeW '„¯g'ä[´"¥¯¢Œ¥¯¢Œ*Ž óññw†‡÷¥S‡7 (¥¯¬Œ¥¯xZ¥¯¢Z¥¯xZ¥¯¢Z$“±†}$´7 ÷ÿÿÀÁ÷ wÁ‡÷ *3²ýFÑ±XÑ±X“±”9©x‚3²ýF"Ôw‡÷;÷‡÷4÷(9©x‚3²ýFŽ±P…Ž±J…Ñ±XŽ±P…ò‡÷5Àÿ,÷÷(Ž±J…Ñ±XŽ±P…Ž±P…¯ïeŽ±J… ‡÷5Àÿ!÷÷‡÷*¯ïeŽ±P…Ž±P…¯IeŽ±J…¯Ie"&÷5÷‡÷÷&Ž±P…Ž±J…Ž±J…²@Ž±P… Ž±J…*D‡÷5€ÁwÆwÒÀÁ Á ý²Þp„¯g'ây$j‡ÀÈ(ÐÈ‡Àð0'ä[´" “±†}“±”æ[ŒYŠ, ‚0 0 ‡À&ä[´"æ[ŒY ä[´"ä[´"ä[´"¢È×- ‚È‡Àæ[ŒY “±†}“±”$¸ÈÈ‡wf÷û÷‹ø‡À'ä[; “±”Ž±P…Ž±J…"ØÁâ `‡×-ë‚ÀÀm%ä[; “±”“±†}“±”öà¥.ãÀÈÈÈ ‡À“±†}æ[ŒY “±”±(Èâ`‡ÀÂÂ ý‡Îe‡æ[ŒY '¬QwÀÙ*aOqwÀÙ¯”LÓò@J©Ìy@*²@„¯g'@²g'@“U]R@Á°úv@*Ì«Ã@ú±|~@¯g@“U#@(*Õ±À+hê¯” * VOLATILE REGISTERS AFTER CRASH: P*(S=%P SP(K)=%P SP(U)=%P BEFORE CR*NASH: PC=%P PS=%P R0=%P R1=%P *tR2=%P R3=%P R4=%P R5=%P MMR0=%*šP MMR1=%P MMR2=%P MMR3=%P%20SU *ÀS E R%29SU N I B U S M A P%5SI S *æP A C E%11SD S P A C E%16S%VS%D %8A*%5SPDR%7SPAR%11SPDR%7SPAR%16S%VS%D %*28A%14SS U P E R V I S O R%25S%VS%D %*X8A%18SK E R N E L%29S%VS%D %8A KER*~NEL STACK KERNEL STACK:%NCDA -- D*¤ump aborted - kernel PAR's clobbered%N*Ê%4S%P %P %P %P%14S%VS%D *ð %8A%58S%VS%D %8A%4S%P %P * %P %P%20SU S E R%5SI S P A C E*<%11SD S P A C E%5SPDR%7SPAR%11SPDR%*b7SPAR%14SS U P E R V I S O R%18SK E ˆR N E Lê*ê÷5w¢ÄêÃÁ‰¤ÃåÁ úÁ„¯g'êJ©Ìy*,ÂÃRÃ ý÷5wl÷‰Â,Á°úv²g'"$ú±|~*6êúÿÁ‰· âÁC‰· Äê² C&²*\Ä ýÁb‰· ÷%ÿÿvÁ’b²“U]R(’*‚‰÷e7 rûƒÃåÀÁº÷%ÿÿÁ ‰· ²º“U#$ *¨÷ ì÷%ÿÿ+÷ JÁõ‰÷ @Áõ‰÷ 6²“U#õ"õ*ÎÁ5‰÷ ,Áõ‰÷ ¸÷ Áõ‰÷ Áõ5õõ(õ*ô‰÷ Á[‰÷ Áõ‰÷eÁh‰· [õ ²$h*÷ z÷eÁ€‰· ÷ fÁ÷5 $²²€² Á°úv&„¯g'*@Éñ%€ñEðñ%€Áš‰ ‰Á š(Á°úv*fÂ ÑÃe€Â û÷y‰Áˆ‰ÃÂyú±|~ˆ$Óò(Ì«Ã*ŒÂà‚÷‰‰÷%ÿÿÁ,‰ÁN‰ ÷ ¯g“U#,"N*²PÁÝ‰÷ FÁ ‰ÅàÿðÿÐÿÁ Ý *ØË÷%ÿÿÁ÷%ú‚Á÷ ‰Å åË “U#*þÂå0‡&f· ôù ÈîùÐ% ƒðüÿÅÄ‰ $…„‡`QvÀÀë*aìrvÀÀë¯”L#ú@\¯{@*²„€@²*}@Sy° @:¯,@;¯@*#z@#""@„¯g'@D,k@;¯T@*ú±|~@ù¯üX@ô°Åž@É²}@ ©ày@*Ú¯q@(–|¯@hà¯`;hJ( *÷ æææiÿˆæ·÷Æ…&ù¯üX²„€²*}Sy° "ô°Åž&Sy° *&ÎeAÎe]0òÀ÷÷}Æ :¯,;¯;¯T \¯{"ú±|~LÀ÷÷ ÀÆ&Sy° :¯,\¯{ú±|~É²}#z*b÷5…ÕW#JÀ÷ÈÀ×-$Sy° „¯g'J#"" Ú¯q&#úˆ\VTw€ÿwD,k\ ©ày QvÀ?ø*aÌyvÀ?ø¯”L3²‡@z¯À]@*|¯@@à¯`;@°¸~@°º~@,°µW@*’±@~@z¯°c@’±à~@±À+@H±å~@*µ¯ÀS@µ¯ÓS@µ¯ÞS@,:à@,°”’@"Ú¯€p@(P²„€h¯” 0*,:à,:à,:à ,:à,:à,:à0&°¸~°º~,°”’ ’±@~’±à~±À+&µ¯ÀSµ¯ÞSH±å~ Ú¯€pz¯À]z¯°c*&Î%"†€ˆ¶¶ÖÎeŽ$|¯@à¯`;3²‡ ,°µWµ¯ÓS&L^ÖQwÀ@Æ*a zwÀ@Æ¯”LvL–@´:2“@*2M’(@N"&@²@:¯,@;¯@*î)Ôp@„¯g'@î°@;¯T@Á°úv@*ƒ¯k@²CM@Œ©?T@,°k@Š¯P}@*¯g@ ±Ú–@•± €@ ±™@Ú¯q@*(|3²‡h\°¸~hä°º~h’±à~h®*±À+hf ±¸eh.H±å~h†µ¯ÀShŽµ¯ÓSh€"µ¯ÞShn,°”’hÚ¯€phB¯” * %NCDA -- Error´:2“*& writing analysis file%N > > > > >*L List count expired%6S%P %VPf¦*ræ&f& 7 f¦æ&fæf¦æ&f¯g*˜æ7 · Áa…Ä ÷ 0· Å ¯g²a$:¯,*¾ÃeÎeÄ ó÷m‰ÅéÖ…„ƒ‚‡¯g²*ä&f÷ BÅE÷ Ã5ÂÂEÿ…„Â‡÷ * ØÿÂEÿ‡æ&÷ ÷ †÷ „`„ƒ‡¦Š¯P}ƒ¯k,°k*0æÂÅ‚Å ýÂEñÿÃEà… ÂÅDÂ Á°úv*VüÅ`DÄEÀÿƒ‚‡&À÷ ÀðpvL–Œ©?T $vL–*|&ÿˆ€‡&fþ ÷eÁ? ‰±¡² ?*¢€¶– ‡f¦÷5<Â· ‡‰Â„¯g'²"î°"È— Â·à·àÂÀð&² ±™ ±™²î°N"&"æ°÷ †Á‰ ‰ä÷ À&²CMî)Ôp î)Ôp•± €î°Â÷ W ƒÀð&vL–:¯,Œ©?T2M’(N"&vL– p÷ †Á‰ ‰À÷&î)Ôpî)Ôp•± €:¯,;¯*:‚‡‰· ÷5÷-‚ ‰‡&f ;¯TÚ¯q„¯g' ±Ú–Ú¯q `ÀÀí€-ƒ‰€¶Ö‡î° ²nQxÀ@Æ*a»zxÀ@Æ¯”LÄ*ßf@d&U@*Ä*R—@%0g'@œ*’@ô«xZ@4¯¸L@*œ*jL@²@'0s@d&#@d&#@*d&#@dfàª@œ*ô‘@ë«z}@±]K@*„¯g'@Ä*f@½©C @²g'@Ì«pE@*]¯@œ*ww@d&gY@O« _@;¯T@*Ä*#[@d&N@J©¼ @œ*ÀS@d&Ìe@*Ä*óƒ@,08Y@d&áe@d&4&@Ä*x@*Ä*ü@d&#›@ú±|~@œ*Þ,@««„@*œ*ðy@Ä*íy@d&æ@Ñ«Bx@Ñ«,x@*œ*hz@Ñ««„@œ*Ä"@œ*Æ@Ä*«Æ@*ý±P}@d&õ@œ*";@Ñ«ýx@ß©0 @*œ*’@ªò@ ©Bx@#0 Z@d&ô@*G©R@œ*»p@Ä*©@Ä*» @œ*Þp@*d&¶^@d& @œ*;@Ä*L @Ä*…}@*Ä*‘@d&˜T@û±@œ*df@Ä*kr@(&²Àvhú ¯” &@h…*d&#d&˜T@d&# h"d&æ$…"§¾ì*d&áe§d&ô ¾d&Ìeìd&#2=[ˆ®*d&N=d&¶^ [d&4&ˆd&#›®BÛ 1W*d&õÛd& d&U1d&gYWRq‚“¤*œ*;qœ*jL ‚œ*ÀS“œ*Ä"¤bµÆ×è*œ*Æµœ*ww Æœ*df×œ*ô‘èrùS}*œ*’ùœ*"; œ*Þ,Sœ*»p}‚¨Û8*œ*’¨œ*Þp Ûœ*hzœ*ðy8’`y˜Ï*Ä*«Æ`Ä*© yÄ*» ˜Ä*‘Ï¢÷ A i *Ä*#[÷Ä*íy Ä*óƒA Ä*ßfi ²˜ È é *Ä*R—˜ Ä*L È Ä*xé Ä*kr *Â8 ` ‚ SYSTEM COMMON CRASH OC Ä*…}8 Ä*f ` Ä*ü‚ *èCURRED AT %3Z %Y CURRENT TASK = %2R* TCB ADDRESS = %P CURRENT TASK = *4NULL TASK $SYSID = %4A $EXSIZ = %P*Z $SYSIZ = %M./%DK $SYUIC = [%O,%*€O] $STKDP = %P $COMEF: <33-48> *¦%P <49-64> %P SYSTEM NAME = %6A *Ì $NTUIC = [%O,%O] LOAD DEVICE = %2A%*òO LBN = %8A FILE SIZE = %D. *SYSTEM FEATURE MASK (FIRST WORD) = %P*> SYSTEM FEATURE MASK (SECOND WORD) = *d%P SYSTEM FEATURE MASK (THIRD WORD) *Š= %P%8SBIT SET%14SMEANING%8S-------%*°14S------- POOL STATISTICS POOL SI*ÖZE (BYTES) = %M. LARGEST FREE BLOCK *ü(BYTES) = %M. TOTAL FREE BYTES = %M.*" NUMBER OF FRAGMENTS = %D. MINIMUM*H BLOCK SIZE (BYTES) = %D. POOL BITMA*nP (CONSTRUCTED FROM LINKED POOL, BLOCK*” FREE IF BIT SET): > > > > > Poo*ºl link error at %P -- FWD ptr = %P S*àize = %P%NCDA -- Pool link error foun*d - continuing%N%10SEXT%8S22-BIT EXTE*,NDED MEMORY SUPPORT%10SMUP%8SMULTI-US*RER PROTECTION SUPPORT%10SEXV%8S20K EX*xEC SUPPORTED%10SDRV%8SLOADABLE DRIVER*ž SUPPORT%10SPLA%8SPLAS SUPPORT%10SCA*ÄL%8SDYNAMIC CHECKPOINT SPACE ALLOCATIO*êN%10SPKT%8SPREALLOCATION OF I/O PACKE*TS%10SEXP%8SEXTEND TASK DIRECTIVE SUP*6PORTED%10SLSI%8SPROCESSOR IS LSI-11%*\10SOFF%8SPARENT/OFFSPRING TASKING SUPP*‚ORTED%10SFDT%8SFULL DUPLEX TERMINAL D*¨RIVER%10SX25%8SX.25 COMMUNICATIONS EX*ÎEC IS LOADED%10SDYM%8SDYNAMIC MEMORY *ôALLOCATION SUPPORTED%10SCEX%8SCOMMUNI*CATIONS EXEC IS LOADED%10SMXT%8SMCR E*@XIT AFTER EACH COMMAND%10SNLG%8SLOGIN*fS DISABLED%10SDAS%8SUNUSED%10SLIB%8S*ŒUNUSED%10SMP %8SUNUSED%10SEVT%8SUNUS*²ED%10SACN%8SUNUSED%10SSDW%8SUNUSED%*Ø10SPOL%8SUNUSED%10SWND%8SUNUSED%10SD*þPR%8SDIRECTIVE PARTITION SUPPORT%10SI*$RR%8SINSTALL, REQUEST, AND REMOVE TASK*J SUPPORT%10SGGF%8SGROUP GLOBAL EVENT *pFLAG SUPPORT%10SRAS%8SRECEIVE/SEND DA*–TA PACKET SUPPORT%10SAHR%8SALTERNATE *¼HEADER REFRESH AREAS SUPPORTED%10SRBN*â%8SROUND ROBIN SCHEDULING SUPPORTED%1*0SSWP%8SEXECUTIVE LEVEL DISK SWAPPING *.SUPPORTED%10SSTP%8SEVENT FLAG MASK IS*T IN THE TCB%10S11S%8SRSX-11S SYSTEM%*z10SCLI%8SMULTIPLE CLI SUPPORT%10SEIS%* 8SSYSTEM REQUIRES THE EXTENDED INSTRUC*ÆTION SET%10SCRA%8SSYSTEM SPONTANEOUSL*ìY CRASHED %10SNWK%8SNETWORK SUPPORT * %10SSTM%8SSYSTEM HAS SET SYSTEM TIME D*8 IRECTIVE%10SUDS%8SUSER DATA SPACE (M-*^ PLUS ONLY)%10SPRO%8SPROTO TCBS OUT OF*„ POOL (M-PLUS ONLY)%10SXHR%8SEXTERNAL*ª HEADER SUPPORT (M-PLUS ONLY)%10SAST%*Ð 8SSYSTEM HAS AST SUPPORT%10SSHF%8SSYS*ö TEM SUPPORTS MEMORY SHUFFLER%10SRLK%8* SRMS RECORD LOCKING SUPPORT%10STCM%8S*B TERMINAL COMMON (M-PLUS ONLY)%10SPMN%*h 8SPOOL MONITORING SUPPORT%10SWAT%8SWA*Ž TCHDOG TIMER SUPPORT GROUP GLOBAL EV*´ ENT FLAGS GROUP NUMBER =%O #Ú ACCESS COUNT =%P GGEF DUMP:Cú *ú ÷5wŽ÷5w÷Î‰ÃÄ„¯g'²g'Î ú±|~&ô«xZ* Ãå‰Ãe‰Ãe‰Ãå‰Ãe*F‰ˆÐEðÿÃe‰ÁÞ‰÷eÃ‰Â-Þ²"ë«z}(ªò*l‰ÁúÁ#‰· ÁPÃ‰‘Ãeú#²;¯T"Ñ«,x*’‰‘wÃ‰Ã‰‚‚‚‚‚;¯T ©BxÑ«Bx*¸Ãƒ ‰Ã ‰Á>‰· Ã‰ÃÑ««„>² Ì«pE(G©R*Þ‰Ãe‰Áƒ‰· ÃÁPÄ‰ƒ²Ñ«ýx ;¯T*‘ƒ Ä ûwÃƒ ‰Ã ‰Áµ‰· ;¯T««„"µ(²**ÁPÃÃe‰‘wÃå‰„ÂEÿÄE;¯TÑ«Bx;¯T*PÿÄÃe‰…‰Ãe‰ÁÞ‰· Ã‰Þ"²&½©C *vÁ‰· ÄÅ÷ 6ÃÃe‰÷e²½©C *œÁ>‰· ÄRÅ÷ ÃÃe‰² >²R ½©C *Â÷eÁg‰· Ä’Å÷ æ÷ ÅÅe"²g²’"û±&½©C *èC‰…Å5Ã‰…÷£ ‰÷eœ*Þ,ß©0 £ ú±|~(²* ÷ ÒÅeC‰…ø÷»‰ÅÄ€ Ä ý ,08Y»ú±|~±]K*4 7 Èò7 Ìò7 Êò7 ÈòÃ‰·ÀòÃÃå‰· ©Bx J©¼ *Z ÷E÷Ã‰ƒ· –ò÷ˆò‰·„ò#4¯¸Ldfàª 4¯¸L4¯¸LJ©¼ ©*€ ÷ |ò‚wÂ5wÃe‰·hò·`hò· bò*¦ ƒ·\òÅRò…`q‡wHòÂ-l†ÂjÂ=gÃ6ò4¯¸L"4¯¸L*Ì ÷ >òb†w!8ò_‚Ãí æŽ ‚ ƒãýÂ ƒ ·ãO« _4¯¸L*ò òüÖÄ÷ Ãò¶÷5w‚ÈøñÈí±]Ký±P}²g'*ÁÍ‰· ÐÞñÁç‰· ÐÒñÁ ‰ O« _ Í²ç²& *>· ÐÆñÁ#‰· È Á?‰÷eÁ"²#²4¯¸L?&²*db‰ Ä„ ‚ áýÂe‚‚‚‚Â%€†Âb4¯¸L*Š€Ã÷ ‰ÐhñÃdñ‰Ãe‰÷e±]K]¯(²*°Á§ ‰÷eÁé‰¡Â Á‰Á¥‰5§²é$¥*Ö‰ÔÅ ù‡DÄe‰DÄe‰'0s"#0 Z*üÁ¾ ‰· Áë ‰ÂÂåÂe‚C‰÷e¾ ²ë %0g',08Y"‡²`QvÀ¿ë*a;}vÀ¿ë¯”Läyàª@s<}@*²@š²@Ñ±X@ó«F@p@*“U]R@"”zd@€a@ú±|~@w6 X@*rh !@3²ýF@hhÐ@t@"” L@*±ÞS@"”‚5@"”¶^@"”‚N@(p!²Àvhl¯” äyàª* TASK DUMP%29STASK DUMP OF %2R%29S-*4------------------%14STCB ADDRESS = %*ZP HEADER ADDRESS = %P > > *€> > > Task '%2R' not in memory%4SWIN*¦DOW #%D -- TASK VIRTUAL LIMITS %P-%P%*Ì4S------------------------------------*ò----------%NCDA -- Task '%2R' not in *memory%N%6SPHYSICAL STARTING ADDRESS *>= %8A%6S-----------------------------*d-------÷‰÷eÐÐÄæ*ú±|~²3²ýF 3²ýF$ó«F(*Š‰†wÜ‰„Ãe‰w´‰à- t&3²ýF*°à-Ãe‰Â5ÄeÞÁ‰Á/‰"3²ýFs<}€at &/*Ö÷eÃe‰…CÃe‰·þCÃm‰²prh !&hhÐ*ü…ÁG‰÷e÷ ÷eCÃe‰ƒ G²š²²"w6 X*"‰wDÂ%†Â¦Ãeæ& Ž …CÃe*H‰„wöÃe‰·¢ýCÃe‰·œýC"”zdrh ! "”¶^*nÃe‰·ŒýCÃe‰·‚ý÷-|ý_†÷-vý[ƒ"”‚N"”‚5Ñ±X&Ñ±X*”÷lýpý÷hýlý÷-`ý†÷\ý÷-Týƒ÷Ñ±XÑ±X"Ñ±X(Ñ±X*ºPý÷EHýÐBýÐ@ýÁ ‰ÁË‰· Ã*ý Ë$²*àæ(ýÎàæÎíý ÃýÃmýB÷%ÿÿÁÃ “U]R*BÁ üƒeB„Å…eD&f„Å‰…„Á!‰&!*,ÁD‰· ÁÐü÷ ÷eæ‰öeö D²±ÞS²$"” L"Rwäþ÷eÁv ‰Áý‰‰²výäQìÀÀÁ*a\}ìÀÀÁ¯”L<&@<&Kq@*°úp@2M’(HxD°€p@Ú¯K@!²Àv@*Õ±À+@Z²@Î@Z²ÀÚ@°K@²@*±K@<&%t@<&9€@à¯`;@Æ²€p@*æt<@ƒ±€@<&ãe@Z²ÀÁ@¯d@*‡±\}@f©µz@„¯@j@;¯€W@¥¯€‰@*v°@8@<¯K@Z²€Ô@Z²á@„¯@8@*²Àv@´:‹w@öt @¥¯¬ŒH’±Àv@*<&D@ ±™HZ²È@(X #²g'h*š©®hÖvL–hnK«ÕZhÔ¥¯¢Zh.Óòh *2±ËLhö\¯âGhú¢ª«„h€š©^MhîO«`KhÚ*Ý©-&hôl¬Êhˆö ²'hn \¯{hú¹¯·khP*$©CThº ö h, J©Ìyh,ªŒKhhàª#hª*E©ö&hê Sh–yhN ô«xZh|4¯¸Lh Þ©z}h *O«üKh N"&h D°Ûphæ²*}h¢ê¨u~h® *\¯KYhü,ªüKhnSy° hl²hæ:¯,h*²tShV ž«Œhë¨D~h´ ×ª3…h¤¯ª-hŒ*;¯hlK«€QhÎÀ«(hÑ«hhRÝ©(hú*H©\}hü P©\hÑ±-Xh O h²!ThÆ*Nh å«ßSh ²bThª Ñ±XhŽå«ÞSh *O«Nhà,ª”MhtG© ghö å«àSh$ ohT *ë«z}hpN²'hP ±]Kh ë«Zhdó«Fhv*F«’shÈå«âSh* „¯g'h ýª©h°E©O hä *lhè.h²T«z}h½©C hJ²g'hÌ«pEh.*lè.hÄÕ±Èhy©fh2Á«¼,h"î°hž*“U]RhH Ñ«O h:þ¨ÄqhÊD,khO« _hæ*;¯Thäë«øfhjJ©¼ hÁ°úvhz²‹whò*e©ÄŠhÌ«Ãh(¬Äqh6 ây"&hÀ «:}hh*-{Ðfh¾²CMhêÂ©FhPËªúph˜ú±|~h*D©É8hØ é«Fh^ah ««„h¶¬sh‚*e©¢Œh W«|qh ¯Ieh–t!hX K«¼ h *–© €hÐD©FhÞ l¬UhŽ¯ïeh’ây²'hŒ *³ªë~h’ô°Åžh‡±t'hô3²ýFhŠÑ«,xh@*Ñ«BxhFŠ¯Kqh"¬,th< Ëªshži©Îh&*hhÐh¬Ñ««„hX¯ghèÑ«ýxhLß©0 hV*>©”MhÀ ¤ªsh†C©hÆ ±Ú–h\¯Ehø*6ªŒ}hzA«Äqh¼“U#hB M©shƒ¬ç_h”*ƒ¬è_hšªòh\²@hš ©BxhDR«Œ9hì*ah €h¦¥¯¢Œh&C©ÊhÌ Ï«Œdh4G©Rhð * ±î—hœš©É2hèA«shÂš©ì&hÜõª†h *š©sh8ö Þh8 ¡«@wh ±‡˜hš©a'hâ*ÌvLh¶p©@Qh,š©‰sh>R«,:hòv°·kh8*²Þph6ì«sTh0 âyhD phØrh¸ö "&h` *ªCThb¥¯xZh$R«R;høY¯’ZhR«œShþ"C©£KhÒ Ú¯qhþ¬¯yì@¯” s""&&v v,, <&9€<&Kq<&D ``'jjÿ–¶ CDA>–¶||ÑÌ””P ääôôøø‡±\}zz€€š šÿÿ &°K’±Àvv°@8Æ²€pf©µzÕ±À+¼*²ÀvÚ¯K;¯€WZ²ÀÁZ²ÈZ²@ÎÖ @*!²Àv ¯d„¯@8<¯Kî*D°€p ƒ±€¥¯€‰²#*„¯@j ±KZ²€ÔZ²ÀÚZ²áà¯`;&&MMMSMTDYÿÿ8*8hh´:‹w^llæ æ ‚öt ‚<& ©‚<&ãe n n P" " $ $ P P ` ` ‚æt<b b | | €ÿn n K‚<&%tp p t t h h„ „ , n , n â â ä ä D Œ D Œ V V Nj j SYt t aˆ ˆ SY’ ’ s¥Æây¦ ¦ SYê¨u~° ° ë¨D~¶ ¶ $©CT¼ ¼ >©”MÂ Â C©È È C©ÊÎ Î C©£KÔ Ô D©É8Ú Ú D©Fà à E©O æ æ E©ö&ì ì G©Rò ò G© gø ø H©\}þ þ J©¼ J©Ìy M©sP©\e©ÄŠe©¢Œ""i©Î((p©@Q..y©f44š©s::š©‰s@@ ©BxFF½©C LLÂ©FRRß©0 XXªò^^ªCTdd,ªŒKjj,ªüKpp,ª”Mvv6ªŒ}||¢ª«„‚‚¤ªsˆˆ¯ª-ŽŽ³ªë~””ËªúpššËªs ×ª3…¦¦àª#¬¬ýª©²²««„¸¸A«Äq¾¾A«sÄÄF«’sÊÊK«€QÐÐK«ÕZÖÖO«`KÜÜO«NââO« _èèR«Œ9îîR«,:ôôR«R;úúR«œST«z}W«|qž«Œ¡«@wÀ«(Á«¼,$$Ì«Ã**Ì«pE00Ï«Œd66Ñ«O <<Ñ«,xBBÑ«BxHHÑ«ýxNNÑ«hTTÑ««„ZZé«F``ë«Zffë«øfllë«z}rró«Fxxô«xZ~~¬s„„l¬ÊŠŠl¬Uƒ¬ç_––ƒ¬è_œœÓò¢¢ah €¨¨hhÐ®®lhè.´´phØrºº-{ÐfÀÀlè.ÆÆþ¨ÄqÌÌ–© €ÒÒš©®ØØš©ì&ÞÞš©a'ääš©É2êêš©^MððÝ©-&ööÝ©(üüÞ©z} õª† K«¼ O«üK å«ÞS å«ßS å«àS& & å«âS, , ì«sT2 2 ¬Äq8 8 ¬,t> > “U#D D “U]RJ J Sh–yP P oV V ôQvÀ?ß*az}vÀ?ß¯”L#²g'@äyàª@*s<}@$²X…@l àª@ó«F@Õ±È@*ú±|~@ô°Åž@€#@t@(²hF<¯Kh,¯” * ACTIVE TASKS SYSTEM TASK DIRECTOäyàª(RY,*,æl ÷÷‰÷¼ÿæäy7 ÷"#²g'ú±|~l àª$#²g'(*R‰÷¤ÿÄæ‰U‡Âò%æ&ú±|~ äyàªó«FÕ±È (*x&æŽá·÷‰ƒ7 ¦Â² Õ±ÈÕ±Èô°Åžô°Åž$Õ±È*ž‚ÄÃeÂò%æææææŽá·÷" tÕ±Èææ Õ±È&Õ±È*Ä‰7 ¦Â²‚Æ·e–%Î% ô°Åžô°ÅžÕ±ÈÕ±È"Õ±È*êäyÃe‰Â5æ‰‡÷ Äe©Ä s<}€# $²X…$tû‰fQtÀ€»*a/†tÀ€»¯”L(Z²ÀÁh ¯” ‰fQtÀ€»*a0†tÀ€»¯”L(Z²Èh ¯” ‰fQtÀ€»*a1†tÀ€»¯”L(Z²@Îh ¯” ‰fQtÀ€»*a2†tÀ€»¯”L(Z²€Ôh ¯” ‰fQtÀ€»*a3†tÀ€»¯”L(Z²ÀÚh ¯” ‰fQtÀ€»*a4†tÀ€»¯”L(Z²áh ¯” ‰fQvÀå*a—vÀå¯”L2±ËL@s©À@*â)sE@Ñ±-X@ª²e;@„¯g'@±±À]@*ä[´"@´:t@«:}@æ)µW@\¯E@*™²`;@ö Þ@v°·k@²Þp@ö "&@"Y¯’Z@(îÆ²€ph²¯” *%NCDA -- Premature end of dump input -*& %X being zero-filled%N%NCDA -- Trans*Lfer complete - %VA may be unloaded%N%*rNCDA -- Error writing dump file %X E*˜rror = %D. DSW = %D.%N÷5‰Ã"„¯g'*¾ÅÀÄÂÂ%?†Â?B!†B¦÷ ²ÞpY¯’Zö "&\¯E2±ËL*ä ÂÂ· ÷ ƒc÷ ‡ƒ ÄeÂ Ñ±-Xv°·k±±À]±±À]* ø‚#÷Äá0p÷ S‡÷‹(Ñ±-X\¯Eâ)sEâ)sE"ª²e;(«:}*0P÷ M‡÷‹JŽà…åÂÅ¿Å ÃÄÂ™²`;«:}$\¯E*V Â ý&ÀeÁ‰€0÷ -‡÷‹ æ)µWâ)sE"ª²e;(«:}*|*÷ '‡÷‹$Å ð÷& & & & & & & ™²`;«:}Ñ±-X(¢& & æææÿˆ÷E@÷U ææ&´:t„¯g' „¯g'$ö Þä[´"ÆÁ>‚‰‰Áp ð(ö Þä[´">«:}æ)µW s©ÀÞÀeÁq‰ ‰æ)µWæ)µWq¾QvÀ¿ë*a|—vÀ¿ë¯”L<&È`@2±ËL@*<&Kq@N"&@„¯½`@æ[à8@D°Ûp@*²@Ñ±-X@„¯g'@â)P@î°@*D,k@²‹w@ây"&@´:t@æ[ZŠ@*æ)ÐW@ì)p…@‡±t'@s© > > > > Address out of range&*&&fæ÷5 ÷ ÷÷ ÷ † „¯g'ù¯wLÑ±-X ±˜:&³¯7F*L÷e Á ‰· ÷ ÷Æ·e$²²ô°Åž Õ±È&Õ±È(rƒ^‰ƒÅÄAÅõ· …„‡Õ±È2±ËL\¯âG ‡±t'|QÄÀÀÁ*â.`ŸÄÀÀÁ¯”L°}@î)Ôp@*ây"&@æ)µW@å)Ps@$9ž!@(€"òªeŸh*ì©|h,ì©”’hp¯” *%NCDA -- Error reading symbol file %X%(N,*,÷ úÿ ÀßÈÿ· ÄÿÀ÷ †ð¥±ây"&°}"$9ž!$å)Ps*RÂeÁ‰ ‰7šÿ7¼ÿ‡÷ ¸ÿ&÷ æ)µWî)Ôpî)Ôpx²ÿÀ€U‡¢QvÀ¾ë*ä.°"vÀ¾ë¯”L;¯T@uüX@*nH@Œ©?T@i©€‰@u@u@"¤‡@(”,°Þh¯” *%6<%2A%O:%4>NONE f¦æ&fÐ&& $;¯T*&ÀÁ !Ãe‰ƒÅÃe‰ŽCÃe ¤‡nH(u*L‰€àCÃe‰÷ ÅeC‰€`ÀEÿ‚ui©€‰uüX&rÁÀ÷ ÷eÖ€…„ƒ‚‡ ;¯TŒ©?T;¯TàQvÀ~Ì*æ.øWvÀ~Ì¯”L(D,°³'h ¯” * 4F.q"|…(+N0«sœw¢‘brt *&Ü ±'±rq!® ÊÏ½+òs*L2“#•Ô¼püÖÃô*rÛ‘ G@$Œs´pµr ³r€sa @vr*˜tBy Fy@ãyP‹w`-tp×xž!¸2*¾8& ¶z˜1˜q&Rû šH*äˆòù-©-£- ™.(“.0ž.8Å@6H* WyPWXbY`â{ìfæÁHÃ“ $0ÓÁ ûÐØ™Ðƒ‡šQvÀ¾Ò*î.HvÀ¾Ò¯”LnH@($,°µWh¯” (¦æƒ Ãe‰Ãe‰ƒ‚‡nH¬QtÀ€»*ð.tÀ€»¯”Lsh<}@wh¼@*bhQ†@mh¶@nhH@shƒ@rh !@*lh8Y@ah €@shÒ’@phèq@phØr@*shU<@th@(H,°zdh¯” (lh8YphèqnhH nhHshƒmh¶&rh !shU<wh¼ shÒ’bhQ†thsh<}*&f÷òÿ÷îÿÀÅCe‰‘À ú… phØrah €D€‡âQœÀ€»*ó.øœÀ€»¯”L\¯KY@(X,°óyh/¯€h¯” *fæfÅÃÑÃ üfæfÅ\¯KY*&Ã Ã ýÌC5Ã ÄeõóÃLÄ`ð…ƒ‡DQvÀEß*LNÀSvÀEß¯”Lsh<}@l6p…@*Œýf@s<}@²@T†ê'@p@*O« _@Œw*@Œz@Á°úv@€a@*,°Þ@³‡ø@T†„S@rh !@Œly@*€#@Œ„S@ ©Bx@²‡à@¡‡@@*Œ%@n6VN@£‡˜”@(Jõ°h† ¯” *³á'=%4SLOGICAL UNIT TABLE:³á '=*&%4S# DEV WINDOW W.CTL W.FCB F*L.FNUM F.FSEQ F.STAT NAC NLCK%4S- *r --- ------ ----- ----- ------ *˜ ------ ------ --- ----%4S%D %5A%*¾P %P %P %P %P %P %D. %D.%4S*ä%D %5A%P %P %P %P %P %P %D. * %D.%4S%D %5A%P%4S%D %5A%P%4S%D %5*0A%P %P %P%4S%D %5A%P %P %P > *V> > > > ACP out of memory or not in ex*|ecution%NfCÃe‰„9Ä%ú†ÄÁn6VN(*¢‰÷eÁ'‰Ám‰CÃe … Pæ‰ƒ ²'ml6p…*È÷@þ÷ ƒÃe‰ÂE÷ (Å% ‚ÑA‰ ,°Þ*î÷þÁR ‰7 þÃeÄ Ü…‡æ&fÁ R(*„Åòý\CÃe‰… …øwÜýCÃe‰ÂE²‡à$£‡˜”:Â%)Œ„SŒw*Œ%ŒýfŒlyŒz P>ICÃe‰ÂµBÄ-*Œ„SŒw*Œz ³‡øT†„ST†ê' *R?‚Ã‰„ :ƒ¦ÁÃe‰Ãe‰O« _ ©Bx*x„„%.ƒÄ-'‚Ãæ æÁÃe‰O« _Á°úv *žÃe‰Ãe‰Ãe‰Ãe*Ä‰Ã³³ …„ƒ‡Ãæ æ& Á°úvÁ°úv*êÃýÃe‰„%Âeƒ‰ƒÃ5Äe‰ ¡‡@s<}€#$p*„Âeƒ‰ƒÃ5Äe‰„Ã3 3sh<}€arh !"Á°úv6óe€„¨· ÈüÖ¿HQvÀþØ*íQdvÀþØ¯”L²@(H±ÀSh ±ÞSh”¯” (*(%4S%8A %4P !%R %R %R %R!!%8E!%6*NS%P %4P !%R %R %R %R!!%8E!%23S[#tABOVE LINE REPEATED %D. TIMES]”*”÷fÿwdÿ7 \ÿ¦æ&f·Vÿ÷Tÿ7Rÿw*ºPÿ÷EÀÿHÿ÷E@ÿ7 Rÿ7 Pÿ7 Nÿ÷EÀÿ,ÿÄ(ÿÅ*à&ÿ÷ D÷ j ‡÷2ÿ÷ úÁ÷ ¦7!ÿ‡‚*w!ÿ‚7öþwôþß÷ÿ÷ Ð…„ƒ‚‡Á*,ÃfæÂÒÁ ýƒ‰“ÅeDÁ ù *R‡ÁÂÃ7 ¼þ÷ºþ÷˜þ´þ÷”þ°þR$ *xÃ ü· þ·šþ÷”þ·Žþ7 Œþ7 Šþ÷‚þ*ž±‡&fÂf÷NþÐJþ÷eDþÄBþ*ÄÅ@þ‰PpÂ ûpÁ(÷þÁL‰ (&L*ê…„‡÷% ,þ†Ð&þ· Áo‰· ÁþÁ²o"²*ÁÁw`êýæþ÷þâý÷þýÞýÁ÷ rÿ÷e 6ÐýwÊýÎ õÖ7 Üý‡ðQœÀ€»*iTÀ]œÀ€»¯”L©n¾^@±±À]@*Š¯Kq@´:By@v°·k@(.±˜:h ¯” *&ÅõõÄÄ Äí5fÿˆ÷v°·k´:By©n¾^Š¯Kq&„wŠ¯Kq ±±À]LQvÀþñ*µdÀSvÀþñ¯”LgD)@²@*,°óy@g»z@lhè.@g@gŠ@*gˆ@,°zd@ga@g%@©²@*nhH@,¯@gwL@gÚd@gke@*gÔ@g~Z@gæ@(„±X…h` ¯” *aˆ"ga&gˆ&ŠD)ÚdwL~Z&gŠggD)gÚdgwLg~Z*>%ke»zæÔ PARTITION PCB g%gkeg»zgægÔ*d ADR TYPE MAIN BASE SIZE P.T*ŠCB PRO PRI IOC --------- ---*°--- ---- ---- ---- ---- ---*Ö-- --- --- --- %2R %P %*ü4A %2R %P %P %P %P %D. %D. *"P.STAT: %R %R %R %R %R %R %R %R %R %R*H %R %R %R %R %RMAINSUB f&Á÷ æ"&,°zd*n ‰ÁT‰Á ‰Ð‚þÐ€þÈX7!zþÈ T X*”\ÐÃnþÃe‰Ãe‰Ð\þÐZþÐ^þÐ\nhH*º^þÐBþŠÐ=þŠÁì‰· ÂBþÄ÷ Áì²"&,°óy*à‰„Â‚‰÷e7!þ÷ ÷elhè.²"©²(²÷ ÷e„…‡,¯²ZQvÀ~Ì*,e`vÀ~Ì¯”L(G«\}è‡±\}h¯”BQvÀÀë*äf2vÀÀë¯”LvL–@D°Ûp@*²@î°@Œ©?T@ú±|~@ ±î—@" ±‡˜@(þ’±@~h¨¯” *%F RSX-11M CRASH DUMP ANALYZER V*&4.0 %Y %2Z PAGE %D%NCDA*L -- Analysis terminated after %D. page*rs%N > > > > > Analysis terminated a˜fter %D. pages¨"¨f¦ÀÁÂ· ÷ Á÷& vL–D°ÛpD°Ûp Œ©?TvL–Æ7 ‰Á‰÷e÷-& ±î—î° ²ú±|~² ±‡˜"à †ÐÁv ‰ÁG‰ ‰‚‡D°Ûp ±‡˜vGÊQvÀ…å*©”M@A«Äq@C©@6ªŒ}@M©s@*¤ªs@ƒ¬ç_@ƒ¬è_@ªò@ ©Bx@*R«Œ9@C©Ê@Ï«Œd@G©R@ ±î—@*š©É2@A«s@š©ì&@õª†@š©s@*¡«@w@š©a'@p©@Q@š©‰s@R«,:@*ì«sT@ªCT@R«R;@C©£K@R«œS@(Šû±hè¯” &ªòG©RÑ«,x ë«ZÀ«(C©&C©ÊC©£K««„ Ñ««„ ©BxW«|q&Á«¼,¯ª-Ëªúp ³ªë~J©¼ ë¨D~$&i©Îë«z}¢ª«„ ê¨u~¡«@wÌ«pE0&e©ÄŠž«ŒÏ«Œd Ëªsš©s>©”M<&6ªŒ}Â©F½©C ªCTT«z}R«R;H&O«NR«Œ9R«,: F«’sO«`KO«üKT&l¬Ul¬ÊA«s D©FG© gA«Äq`&¤ªsó«Fƒ¬ç_ ƒ¬è_ß©0 Þ©z}l&Ý©(Ý©-&,ªŒK ,ª”My©f$©CTx&š©É2–© €š©‰s š©a'š©®š©ì&„&R«œSÑ«Bxp©@Q ë«øfô«xZì«sT&é«FK«¼ K«ÕZ àª#¬Äq¬sœ&¬,tå«ÞSå«ßS å«àSå«âSþ¨Äq*¨ SYSTEM COMMON DUMP ADDR&×ª3…P©\Ñ«ýx õª†D©É8H©\}*Î LABEL VALUE ADDR LABEL*ô VALUE ADDR LABEL VALUE*%P %2R %P%10S%P %2R %P%10S%P %2R %P%7*@S%2R %P%17S%2R %P%17S%2R %P%P %2R %P%*f10S%P %2R %P%7S%2R %P%17S%2R %P%P %2ŒR %P%7S%2R %P'œœ>s\‘‡> s\‘‡¾¾&ê¨u~ë¨D~þ¨Äq >©”MC©C©ÊÊ&C©£KD©É8D©F G© gH©\}J©¼ Ö&M©sP©\e©ÄŠi©Îp©@Q–© €æ&š©®š©ì& š©a'š©É2š©^Mš©sø&š©‰s ©Bx½©C Â©FÝ©-&Ý©(&Þ©z}ß©0 ªò ªCT,ªŒK,ªüK&,ª”M6ªŒ}¢ª«„ ¤ªs¯ª-³ªë~ &ËªúpËªs×ª3… àª#õª†««„,&A«ÄqA«sF«’s K«¼ K«€QK«ÕZ<&O«`KO«üKO«N R«Œ9R«,:R«R;H&R«œST«z}W«|q ž«Œ¡«@wÀ«(T&Á«¼,Ì«pEÏ«Œd Ñ«BxÑ«ýxÑ««„`&å«ÞSå«ßSå«àS å«âSë«Zë«øfl&ë«z}ó«Fô«xZ ¬Äq¬s¬,t*xÿÿ SYSTEM COMMON ALPHABETIZEDl¬Êl¬Uƒ¬ç_ ƒ¬è_ž DUMP %2R%®® %7S%2R%ºº %7S%2R%ÆÆ %7S%2R%ÒÒÚÚª ªÞÞ¶ ¶ââÂ Âæ*æÎ÷ ÷ r‡÷´‰÷ ’ÀÀE7®þ÷Î´ú±|~E©O * œþ÷-¢þ:†‰ÁÉ‰÷ · 7 ŽþÅ E©ö&É ²*2÷-xþ|þì†Á®÷ è÷-jþpþ‡÷¨\þÁ°÷ ®¨&°*XÐ÷-TþXþ‡÷¤DþÁ²÷ ¸Á6þ÷BþÁe ¤²*~· 8þA‰Å ÍÒ‡&fÀÀåÁ ÷ ±î—(i©€‰*¤Á0÷ w þ€‡&f÷úýöý÷möýòý÷- ÝªK(E©ö&*Êìý†÷äýÀàýÀíÚýÀeÁ÷ ÀeÁ E©ö& i©€‰*ð÷ Á÷ À¶ý7ªý@`7¦ý@`7¢ý÷œýžýi©€‰ÝªK*÷-žý˜ý†÷–ýý€‡C÷ŒýÐ÷ *<‰Ée‡Â´— ƒê û‚ÂåÂœ‡´&œ*b÷‚‰÷ D÷¾bþ‰÷ JÁØ÷ ¤ÁÜ‚ú±|~¾ Ø(Ü*ˆ÷ œÁà÷ ”Áä÷ ŒÁ¤‰· Â é÷&þ àä¤ ²*®ã‡Á¾Â÷ RÂà·þ‡ÂÂåÂ· þ ¾ ±î—*ÔƒÂúý·àöýÂe‚‚Áìýwêý÷ wæý÷ *úwâý÷ wÞý÷ wÈý‡ƒW €†Dû#ÿÿ€* øÃ ö‡¦DE!€‡Õ5SÍ €*Fô×"ÿÿñÃåÐÐÌÔÕ4SÍ%BÅPÃ$;¯T"l‰•wÕ1SÍ%PÃ‰ ‚‡ ;¯T¦QwÀ¿ë*µ}ÀSwÀ¿ë¯”L#²g'@D‚È@*‚î@,bè.@D‚kz@‚Ÿ@D‚ô@*r|q@s<}@Sh–y@eg'@‚@*²@® Ðf@%b°'@‚|@D‚©@*D‚¶x@;¯@€ðy@‚L @‚`q@*,è.@c6«„@o@½©C @aìy@*lè.@-bœ@p@“U]R@€?T@*€ˆ@€Š@d&áe@€.q@‚ô3@*€a@D‚\X@s‚@s(‚@Ëªúp@*,b8Y@‚D)@nhH@,°Þ@D‚Uq@*£ `@0bz}@w6 X@¢ `Ÿ@m™@*/¯€@rh !@D‚f@€#@nH@*¡ ày@€Ös@hhÐ@i8^@D‚|Z@*D‚æf@D‚îr@‚Žw@D‚Œs@¬<è.@*r<@u@3b<}@lp@‚@*‚Â@d&¶^@‚Ny@€`Z@D‚ÊQ@*"”¶^@pèq@‚ðy@t˜:@l°@(v$²X…h¾¯” '-EXE RDN MSG NRP RUNBLK€*€# €.q€?T€`Z€Ös"€ðy$*$ OUT CKP CKR AST DST-CHK&€a €ˆ€Š‚L ‚$‚(J CKD SEF FXD REX CAF HLT&‚| ‚Žw‚D)‚`q‚î"‚ô3$n ABO STP SPN WFRSTPA&‚Ÿ ‚ðy‚Ny‚Â‚ðy ŽSPNAWFRA ACP-PMD&‚Ny ‚Â D‚ÈD‚f(¨ REM PRV MCR SLV CLI RST&D‚Uq D‚æfD‚ÊQD‚¶xD‚©"D‚Œs$Ì NSD CAL ROV NET SWS$D‚|Z D‚ôD‚îrD‚\XD‚kz<*<%2S%2R%2S----*b--%4STCB ADDRESS = %P%5SPAR = %2R%5SP*ˆCB ADDRESS = %P%4SLOAD ADDRESS = %P00*®%5SLOAD DEVICE = %6A LBN = %8A%4SLO*ÔAD ADDRESS = %P%5SLOAD DEVICE = %6A *úLBN = %8A%4SPRI = %D.%5SI/O COUNT = %* D.%5SUIC = [%O,%O]%5STI = %6A%4SMAX S*FIZE = %P%5SEVENT FLAGS = <1-16> %P <1*l7-32> %P%4ST.STAT:%2S%4A %4A %4A %4A *’%4A %4A %4A %4A %4A %4A %4A %4A %4A %4*¸A %4A %4A%4ST.ST2:%3S%4A %4A %4A %4A *Þ%4A %4A %4A %4A %4A %4A %4A %4A %4A %4*A %4A %4A%4SPRE-AST STATUS:%2S%4A %4A** %4A %4A %4A %4A %4A %4A %4A %4A %4A %*P4A %4A %4A %4A %4A%4ST.ST3:%3S%4A %4A*v %4A %4A %4A %4A %4A %4A %4A %4A %4A %*œ4A %4A %4A %4A %4A%4ST.TIO:%3S%P%4ST*ÂCB DUMP:%6SRECEIVE QUEUE%6S---------*è----%6SRECEIVE BLOCK ADDRESS = %P %6*SCOMMAND LINE INPUT BUFFER ADDRESS = %*4P UCB = %P%6SAST QUEUE%6S--------*Z-%6SAST BLOCK ADDRESS = %P A.CBL =*€ %P%6SA.BYT = %P A.AST = %P A.N*¦PR = %P%6SRECEIVE BY REFERENCE QUEUE*Ì%6S--------------------------%6SRRQ A*òDDRESS = %P SENDER TCB = %P%6SEVEN*T FLAG MASK = %P EVENT FLAG MASK AD*>DR = %P%6STASK = %2R%6SREGION ID OF *dRECEIVER = %P OFFSET IN PARTITION =*Š %P%6SLENGTH TO MAP = %P ACCESS RI*°GHTS = %P%12S<<<<<>>>>>%6SMCR COMMAND BLO*üCKS%6S------------------%6SBUFFER AD*"DRESS = %P TCB = %P%6S%5A: %VA%6*HS%VA%6S > > > > > Unknown AST type%*n6SUNSOLICITED CHARACTER AST%6SBUFFERE*”D I/O AST%6SEMIT STATUS AST%6SCOMPLE*ºTION AST FROM: QIO$, MRKT$, SPWN$, CNC*àT$, OR CINT$%6SSPECIFIED AST FROM: SF*PA$, SRDA$, SRRA$, OR SPFA$%6SEXIT EV*,ENT FLAG (O.EFN) = %P%6SPARENT TASK N*RAME = %2R%6SMCR COMMAND LINE ADDRESS *x= %P%6SPARENT TASK HAS EXITED%6SOCB *žDUMP:%4S---------%4SOCB LIST:f¦æ*Ä&fÅæ‰÷jùfù÷hùdù÷fùbù÷dù`ù7 *ê`ùÃe‰Â5· PùCÃe‰ˆ$|³Ães(‚D‚©nH*‰ Ãe‰ˆ$ÊQ÷"ùÁT‰Á[‰ T&[*6· PCÃe‰ƒÄÃe‰Ãe‰Á²pnhH*\e‰· CÃe‰ƒÃ5ÀåÃe‰e ²s<}€a&rh !*‚ˆÃm‰ƒÃe‰ƒÃe‰`CÃe‰ƒ hhÐw6 X"”¶^$lp*¨÷ fÅeC‰„ƒ ‰…‰Á˜÷%ÿÿÁ,°Þl°˜$“U]R*ÎÏ‰· …CÃe‰CÃe‰CÃe‰Ï ²pèqi8^&s<}*ôÂ5 CÃe‰ƒÃm‰ƒ Ãe‰€aphhÐ&c6«„* Ã ‰CÃe‰ƒ÷ Á‰· CÃeu,°Þ"²(m™*@ ‰CÃe‰Ãe‰Á>‰· CÃeeg'>"²(s<}*f ‰Ä÷ Áu‰· CÃe‰Ä8÷ Á&/¯€u²s‚"8&/¯€Œ Â‰· Â5Â5 Ä*Â ²‚L ‚ðy‚Ny‚Â *¢ ˆ÷ Á‰· CÃe‰Äœ÷ Ác‰*ˆ/¯€²s(‚œ"/¯€&c*È · CÃe‰Á¯‰· Á¾‰Â‚C"²t˜:¯²¾$lè.*î ‰Ã‰„Ä5DÄm‰„· Á±½©C d&¶^o$²(±* ‰Á¤‰ Â% ‚ ÷ JÄe‰„ô÷¤,b8Y(#²g'*: ÷e÷ ¦÷%÷÷ 4÷ ¤÷%ÿÿ÷ ²$Sh–y*` ¼÷e…„ƒ‚‡¦Ãe‰· Á ²%b°'&²*† "‰· Ãe‰Ãe‰ÁB‰· " ²3b<} B&²*¬ Ãe‰Á\‰· Ãe‰Á}‰· -bœ\²0bz}$}*Ò Á—‰Â‰÷e‚‡fÎeƒ‰„$²—,bè. ²"r<*ø DÁË‰ÁÜ‰÷eƒ÷ Ø7‡æ@‰3‡ËÜ²"@*Äe‰Äe‰÷öÁ‰· ƒ &²*D‰ƒ÷ ž‡Â÷ ®Áí‰ƒ‰ƒÂ÷í*jàõÂ(‰÷eÎ‰„ÅÖ‡fæƒ‰²$Ëªúp*„0Áê‰Á‰÷eƒ÷ >#‡æD‰‡ ê²$D*¶Ãe‰Å*Â5ÅÁ‰· &²*Ü ÷ "B‰÷eÎ‰„ÙÖ…‡fÎeƒ²&aìy*‰„wÁB‰ÁO‰÷eƒ÷ Æz‡æBO²*(<‰v‡Ãe‰·õÁ\‰· 7 õÂ<£ `\"²*Nþô ƒÐÂÂEÿÃ%€Ã%À!Ã&ÁM(M*t ‰÷ Ôô%Ám‰÷Èô÷$ÀôÁŠ‰÷ m$Š*š²ôÁž‰÷¤ô Á±‰÷–ô–ôÁí¬<è.ž,bè.±(í*À‰÷ˆô· Ãe‰Ãe‰Ãe ,è.²¢ `Ÿ¡ ày(® Ðf*æ‰Á„‰ƒ‰„ÂVô‚ ‚ÂeÂE€ÿÃíFô „* ‰Ãm@ôÎ‰„‚Ö‡fÃ‰„Ä5\Îe½©C "d&áe(r|q*2 ƒ‰„VÁ®‰ÁÌ‰÷eƒ÷ ˜I‡æH®Ì²(H*X ‰E‡Äe‰¦Áê‰· Äe‰ê²*~ Äe‰ÁF‚Á‰· Äe‰F²*¤ Äe‰ÁT‰· Äe‰Äe‰T²*Ê ÁŽ‰ƒ‰ƒÂ‰Î‰„³Ö‡¡Â5Ž*ð Ð· Áº ‰±‡f¦æ&fÃeÁF²º(F*Â Á9‰ÂEÄƒ÷ ÃeÄÌ• „ 9,°Þ";¯*<Å%Å‰ŒÌ¥ ƒ „ … W!PõÅbPÐ‰…„ƒ‚‡ ;¯.QvÀ‚å*ó~}vÀ‚å¯”L‚î@‚Ÿ@*‚@‚|@‚L @‚`q@‚ô3@*s‚@‚D)@,°Þ@/¯€@‚Žw@*u@‚@‚Â@‚Ny@pèq@"‚ðy@(`,²àyh¯” ( AST DST-CHK CKD SEF FXD&‚L ‚‚‚|‚Žw"‚D)($ REX CAF HLT ABO STP SPN&‚`q ‚î‚ô3‚Ÿ‚ðy"‚Ny*H WFR%7STASK TCB ADR TI T.‚Â*nPRI STATE BITS (T.ST2)%7S---- -*”------ -- ----- -------------*º-----%6S%2R %P %6A %D. %*à4A %4A %4A %4A %4A %4A %4A %4A %4A %4A %4A %4A %4A*ÁP‰Áˆ‰&f‰Ãe‰ƒ÷ Pˆu&,°Þ*:Ãe‰Ãe‰Ä÷ ÁÀ‰…„Þ àpèqs‚/¯€ÀúQvÀ¾Ò*ÀSvÀ¾Ò¯”L"”Bx@²@*“U]R@"”zd@"”t @nhH@"”Z@*w6 X@"”(@"” L@"”‚5@"”„M@*"”¶^@"”‚N@(<š²h^¯” *%4SWINDOW BLOCKS:%5SPAR VIRT LIMI*&TS ATT DESC WND SIZE OFFSET 1ST P*LDR NO. LAST PDR%5S--- ---------*r-- -------- -------- ------ -----*˜-- --- --------%4S%2R %P %P %P *¾ %P %P %P %D %P%5SPAR V*äIRT LIMITS ATT DESC WND SIZE OFFSE* T%5S--- ----------- -------- -*0------- ------%4S%2R %P %P %P *V%P %PfÅeC‰…fC‰„bÄ%†Äw6 X*|ÅeÁ‰÷e÷%ÿÿ Á‰Á^‰²“U]R &^*¢ÁªÁØ‰Á‰Á@CÃe‰ƒ ªØ@"”zd*ÈÃe‰Ãe‰CÃe‰CÃe‰nhH"”‚N$"”‚5*îCÃe‰CÃe‰CÃe‰CÃe‰"”t "”Bx"”¶^&"”(*ÂUÿCÃe‰CÃe‰‰ÅeÄ À…"”Z"”„M""” L:‡8QvÀ~å*l’ÀSvÀ~å¯”Lñ’àª@²@*wh¼@,²ày@l8Y@(b©²h ¯” %6SWAIT QUEUE:*&fÄe‰ÅeC‰Á‰÷e wh¼ (²*8÷Âÿææ‰‡‰„Þ ÄeôÖ…ñ’àª,²ày"l8Y^„‡Ãe‰CÃe‰CÃe‰nhH"”‚N$"”‚5*îCÃe‰CÃe‰CÃe‰CÃe‰"”t "”Bx"”¶^&"”(*ÂUÿCÃe‰CÃe‰‰ÅeÄ À…"”Z"”„M""” L:‡vÀ¾Ò*l’ÀSvÀ~å¯”Lñ’àª@²@*wh¼@,²ày@l8Y@(b©²h ¯” %6SWAIT QUEUE:*º8 KÌ›c,Ô; ; BUILD ICS/ICR-11 DEVICE COMMON BLOCK ; [1,1]ICOM/-HD/MM/PI,,SY:ICOM=[1,24]ICOM.ICR LB:[1,1]SYSLIB/DL / STACK=0 ; NO STACK FOR COMMON BLOCKS UNITS=0 ; NO LUNS PAR=ICOM:0:1000 ; SPECIFY PARTITION / Ô:; KÌ›c,ú; ; TASK BUILDER INDIRECT FILE TO BUILD THE DRS/DSS11 COMMON BLOCK ; ; ** MAPPED SYSTEM ** ; [1,1]ISCOM/MM/-HD/PI,,SY:[1,1]ISCOM=[1,24]ISCOM.IDS LB:[1,1]SYSLIB/DL / STACK=0 ; ZERO STACK IS MANDATORY PAR=ISCOM:0:400 ; ALLOCATE 128 BYTES / úãƒdÌ›c,Ô; ; BUILD UDC-11 DEVICE COMMON BLOCK ; [1,1]UDCOM/-HD/MM/PI,,SY:UDCOM=[1,24]UDCOM.UDC LB:[1,1]SYSLIB/DL / STACK=0 ; NO STACK FOR COMMON BLOCKS UNITS=0 ; NO LUNS PAR=UDCOM:0:1000 ; SPECIFY PARTITION / ÔÂ: KÌ›c,²; COMMAND FILE TO BUILD IP11/IP300 DEVICE COMMON, MAPPED SYSTEM ; [1,1]IPCOM/-HD/MM/PI,,SY:IPCOM=[1,24]IPCOM.PCS LB:[1,1]SYSLIB/DL / STACK=0 UNITS=0 PAR=IPCOM:0:1000 / ²add›c, .ONERR ERXIT .ENABLE SUBSTITUTION .ENABLE GLOBAL .IFNDF $SYGRP .SETN $SYGRP 1 .SETT $UTYP1 .; .; GENERATE CDABLD.CMD .; .OPEN '$CL'CDA'$TYP1'BLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR CDA .DATA ; '$COM' .IFF $FCSTK .DATA ; LINKING TO '$RSLIB' .IFT $FCSTK .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID' .DATA ; .DATA '$TK'CDA'$TYP2'/-FP/CP'$MMSW','$MP'CDA'$TYP2'/-SP= .DATA '$OD'CDA'$TYP1'BLD/MP .DATA STACK=192 .DATA TASK=...CDA .DATA ASG=SY:1 .DATA ASG=TI:2 .DATA ASG=SY:3 .DATA ASG=SY:4 .DATA ASG=SY:5 .DATA ASG=TI:6 .DATA PAR='$GENB' .IFF $FCSTK .DATA '$LIBOP' .DATA ; .DATA ; SWITCH DEFAULTS .DATA ; .DATA GBLDEF=LIN$MX:74 ; /LINES .DATA GBLDEF=PAG$MX:454 ; /LIMIT .DATA ; .DATA ; MAXIMUM COUNTS (TO PREVENT LOOPING) .DATA ; .DATA GBLDEF=ASN$MX:144 ; MAX NUMBER OF LOGICAL ASSIGNMENT BLKS TO DUMP .DATA GBLDEF=ATD$MX:62 ; ATTACHMENT DESCRIPTORS PER PCB .DATA GBLDEF=ATL$MX:144 ; ACTIVE TASK TCB''S .IFT $11MPL .DATA GBLDEF=CAP$MX:30 ; CKPT ALLOC PCBS .IFT $11MPL .DATA GBLDEF=CBD$MX:30 ; COMMON BLOCK DIR ENTRIES .DATA GBLDEF=DCB$MX:62 ; DCB''S .DATA GBLDEF=HDR$MX:1130 ; WORDS IN HEADER .DATA GBLDEF=IOP$MX:144 ; I/O PACKETS PER SCB .DATA GBLDEF=PCB$MX:144 ; PARTITION CONTROL BLOCKS .DATA GBLDEF=POL$MX:17 ; ALLOCATION CONSTANT MAXIMUM .DATA GBLDEF=STD$MX:310 ; INSTALLED TASKS .DATA GBLDEF=UCB$MX:77 ; UCB''S PER DCB .DATA GBLDEF=WTQ$MX:62 ; WAIT QUEUE ENTRIES PER PCB .DATA / .CLOSE .; .; GENERATE CDABLD.ODL .; .OPEN '$CL'CDA'$TYP1'BLD.ODL .DATA ; .DATA ; TKB .ODL FILE FOR CDA .DATA ; '$COM' .IFF $FCSTK .DATA ; LINKING TO '$RSLIB' .IFT $FCSTK .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID' .DATA ; .DATA ; VERSION: 28 .DATA ; .DATA ; .DATA ; ESTABLISH CO-TREE STRUCTURE .DATA ; .IFT $11M .DATA .ROOT TREE1-LB:['$SYGRP',1]SYSLIB/DL,TREE2,TREE3,TREE4,TREE5 .IFT $11MPL .DATA .ROOT TREE1,TREE2,TREE4,TREE5 .DATA ; .DATA ; DEFINE MAIN TREE -- CDA ROOT SEGMENT .DATA ; .IFT $11M .DATA TREE1: .FCTR C1-C4-C19-E-C10 .IFT $11MPL .DATA TREE1: .FCTR C1-SUBS .IFT $11MPL .DATA ; .IFT $11MPL .DATA ; CDA SUBROUTINES .IFT $11MPL .DATA ; .IFT $11MPL .DATA SUBS: .FCTR C4-C19-E-C5-C8-C9-C6-C10-C11-C13 .DATA ; .DATA ; DEFINE FCS CO-TREE .DATA ; .IFT $FCSTK .DATA TREE2: .FCTR *(S5-T2OVLY) .IFT $FCSTK .DATA T2OVLY: .FCTR (PARSE,OPEN,CLOSE,S1-PUT-READ,WRITE,GET,GETSQ,POINT,CSI) .IFF $FCSTK .DATA .NAME T2ROOT .IFF $FCSTK .DATA TREE2: .FCTR T2ROOT .IFT $11M .DATA ; .IFT $11M .DATA ; DEFINE CDA SUBROUTINE CO-TREE .IFT $11M .DATA ; .IFT $11M .DATA .NAME T3ROOT .IFT $11M .DATA TREE3: .FCTR T3ROOT-*(C5-C8-C9,C6,C11,C13) .DATA ; .DATA ; DEFINE CDA SWITCH OPTION CO-TREE .DATA ; .DATA .NAME T4ROOT .IFT $11M .DATA TREE4: .FCTR T4ROOT-*(T4OV1,T4OV2,T4OV3,T4OV4,T4OV5) .IFT $11M .DATA T4OV1: .FCTR (U1-E,U2-E,U3-E,U4-E,U5-E,U6-E) .IFT $11M .DATA T4OV2: .FCTR (C14-S2,C15-S3,C16,C3,C2,C12,C17,C18-C20-C7-C29-E) .IFT $11M .DATA T4OV3: .FCTR (C23-C24-C25-C26-C49-E,C27-C25-C26-C28-E,C36-C38-C37-C25-E,T4ADD) .IFT $11M .DATA T4ADD: .FCTR (C42-E,C43-E,C45-C25-E) .IFT $11M .DATA T4OV4: .FCTR (C30-C31-C33-C26-E-(C32-E,C35-C34-C25-E)) .IFT $11M .DATA T4OV5: .FCTR (C21-C41,C22-C7-E,C40-C41-C38-E) .; .IFT $11MPL .DATA TREE4: .FCTR T4ROOT-*(T4OV1,T4OV2,T4OV3,T4OV4,T4OV5) .IFT $11MPL .DATA T4OV1: .FCTR (U1-E,U2-E,U3-E,U4-E,U5-E,U6-E) .IFT $11MPL .DATA T4OV2: .FCTR (C14-S2,C15-S3,C16,C3,C2,C17-C50-E,C18-C20-C7-C29-C47-E) .IFT $11MPL .DATA T4OV3: .FCTR (C23-C24-C25-C26-C49-E,C27-C25-C26-C28-E,C36-C38-C37-C25-E,T4ADD) .IFT $11MPL .DATA T4ADD: .FCTR (C42-E,C43-E,C44-C26-E,C45-C25-E,C12) .IFT $11MPL .DATA T4OV4: .FCTR (C30-C31-C33-C26-C48-E-*(C32-E,C35-C34-C25-E)) .IFT $11MPL .DATA T4OV5: .FCTR (C21-C41,C22-C41-C7-E,C40-C41-C38-E,C46-E) .DATA ; .DATA ; DEFINE PAGE BUFFER CO-TREE .DATA ; .DATA ; NOTE: CDA USES MEMORY BEYOND THE END OF TREE5 FOR BUFFERS. .DATA ; THEREFORE IT MUST BE THE LAST CO-TREE. .DATA ; .DATA TREE5: .FCTR C39 .IFT $FCSTK .DATA ; .IFT $FCSTK .DATA ; DEFINE FCS OVERLAY SEGMENTS .IFT $FCSTK .DATA ; .IFT $FCSTK .DATA OPEN: .FCTR S29-S28-(S16,S17,S19,S31,S32) .IFT $FCSTK .DATA CLOSE: .FCTR S11-(S17,S15-S8) .IFT $FCSTK .DATA READ: .FCTR S6-S7-(S8,S10) .IFT $FCSTK .DATA WRITE: .FCTR S35-S7-(S8,S10) .IFT $FCSTK .DATA GET: .FCTR S37-(S38,S36,GET1) .IFT $FCSTK .DATA GET1: .FCTR S34-(S33,S30,S16) .IFT $FCSTK .DATA GETSQ: .FCTR S27-(S13,S14) .IFT $FCSTK .DATA PUT: .FCTR S12-S13-S14-S15-S16 .IFT $FCSTK .DATA PARSE: .FCTR S18-S4-(S19,S21-S24,PARSE1) .IFT $FCSTK .DATA PARSE1: .FCTR S20-S28-(S24,S25,S26) .IFT $FCSTK .DATA CSI: .FCTR S4-(S23,S22) .IFT $FCSTK .DATA POINT: .FCTR S30-S9-(S16,S8-S15) .DATA ; .DATA ; CDA MODULE DEFINITIONS .DATA ; .DATA C1: .FCTR '$LI'CDA/LB:CDAROT:CDASST:CDATBL:DEBUG .DATA C2: .FCTR '$LI'CDA/LB:DFSYM:GTBYT .DATA C3: .FCTR '$LI'CDA/LB:CDAXFR .DATA C4: .FCTR '$LI'CDA/LB:CDASUB .DATA C5: .FCTR '$LI'CDA/LB:CBO .DATA C6: .FCTR '$LI'CDA/LB:PRTH .DATA C7: .FCTR '$LI'CDA/LB:BITMAP .DATA C8: .FCTR '$LI'CDA/LB:CRTB .DATA C9: .FCTR '$LI'CDA/LB:CKBLK .DATA C10: .FCTR '$LI'CDA/LB:GTBLK .DATA C11: .FCTR '$LI'CDA/LB:DSKIO:MTIO .DATA C12: .FCTR '$LI'CDA/LB:CDAXIT .DATA C13: .FCTR '$LI'CDA/LB:FILIO .DATA C14: .FCTR '$LI'CDA/LB:CDAGCL .DATA C15: .FCTR '$LI'CDA/LB:CDAPRS .DATA C16: .FCTR '$LI'CDA/LB:CDAINI .DATA C17: .FCTR '$LI'CDA/LB:CDAREG .DATA C18: .FCTR '$LI'CDA/LB:CDASYS .DATA C19: .FCTR '$LI'CDA/LB:GTNAM .DATA C20: .FCTR '$LI'CDA/LB:BMDMP .DATA C21: .FCTR '$LI'CDA/LB:CDADMP .DATA C22: .FCTR '$LI'CDA/LB:CDAPOL .DATA C23: .FCTR '$LI'CDA/LB:CDATCB .DATA C24: .FCTR '$LI'CDA/LB:TDUMP .DATA C25: .FCTR '$LI'CDA/LB:GTDEV .DATA C26: .FCTR '$LI'CDA/LB:GTSTS .DATA C27: .FCTR '$LI'CDA/LB:CDADEV .DATA C28: .FCTR '$LI'CDA/LB:GTFNC .DATA C29: .FCTR '$LI'CDA/LB:SCDMP .DATA C30: .FCTR '$LI'CDA/LB:CDAPCB .DATA C31: .FCTR '$LI'CDA/LB:GTPCB .DATA C32: .FCTR '$LI'CDA/LB:ADDMP .DATA C33: .FCTR '$LI'CDA/LB:PDUMP .DATA C34: .FCTR '$LI'CDA/LB:TLST .DATA C35: .FCTR '$LI'CDA/LB:WQDMP .DATA C36: .FCTR '$LI'CDA/LB:CDAHDR .DATA C37: .FCTR '$LI'CDA/LB:LUDMP .DATA C38: .FCTR '$LI'CDA/LB:WBDMP .DATA C39: .FCTR '$LI'CDA/LB:PGTBL .DATA C40: .FCTR '$LI'CDA/LB:CDATAS .DATA C41: .FCTR '$LI'CDA/LB:MDMP .DATA C42: .FCTR '$LI'CDA/LB:CDAERL .DATA C43: .FCTR '$LI'CDA/LB:CDACLQ .; .DATA C44: .FCTR '$LI'CDA/LB:CDACTL .DATA C45: .FCTR '$LI'CDA/LB:CDAASN .DATA C46: .FCTR '$LI'CDA/LB:CDAKNL .DATA C47: .FCTR '$LI'CDA/LB:MPDMP .DATA C48: .FCTR '$LI'CDA/LB:CBDMP .DATA C49: .FCTR '$LI'CDA/LB:CDACLI .DATA C50: .FCTR '$LI'CDA/LB:LCDMP .DATA ; .DATA ; USER-SUPPLIED MODULE DEFINITIONS .DATA ; .DATA U1: .FCTR '$LI'CDA/LB:CDAUR1 .DATA U2: .FCTR '$LI'CDA/LB:CDAUR2 .DATA U3: .FCTR '$LI'CDA/LB:CDAUR3 .DATA U4: .FCTR '$LI'CDA/LB:CDAUR4 .DATA U5: .FCTR '$LI'CDA/LB:CDAUR5 .DATA U6: .FCTR '$LI'CDA/LB:CDAUR6 .DATA ; .DATA ; SYSLIB MODULE DEFINITIONS .DATA ; .IFT $FCSTK .DATA S1: .FCTR LB:['$SYGRP',1]SYSLIB/LB:EDTMG:CDDMG:CBTA:C5TA:EDDAT .DATA S2: .FCTR LB:['$SYGRP',1]SYSLIB/LB:.GCML .IFT $FCSTK .DATA S3: .FCTR LB:['$SYGRP',1]SYSLIB/LB:.TPARS:OD2CT:CAT5 .IFF $FCSTK .DATA S3: .FCTR LB:['$SYGRP',1]SYSLIB/LB:.TPARS .IFT $FCSTK .DATA S4: .FCTR LB:['$SYGRP',1]SYSLIB/LB:.ODCVT .IFT $FCSTK .DATA S5: .FCTR LB:['$SYGRP',1]SYSLIB/LB:XQIOI:WAITI:EOFCHK:RDWAIT:BDBREC:WAITU .IFT $FCSTK .DATA S6: .FCTR LB:['$SYGRP',1]SYSLIB/LB:READ .IFT $FCSTK .DATA S7: .FCTR LB:['$SYGRP',1]SYSLIB/LB:RWLONG .IFT $FCSTK .DATA S8: .FCTR LB:['$SYGRP',1]SYSLIB/LB:CKALOC .IFT $FCSTK .DATA S9: .FCTR LB:['$SYGRP',1]SYSLIB/LB:PNTMRK .IFT $FCSTK .DATA S10: .FCTR LB:['$SYGRP',1]SYSLIB/LB:RDWRIT .IFT $FCSTK .DATA S11: .FCTR LB:['$SYGRP',1]SYSLIB/LB:CLOSE:$PRINT .IFT $FCSTK .DATA S12: .FCTR LB:['$SYGRP',1]SYSLIB/LB:PUTSQ .IFT $FCSTK .DATA S13: .FCTR LB:['$SYGRP',1]SYSLIB/LB:PGCS .IFT $FCSTK .DATA S14: .FCTR LB:['$SYGRP',1]SYSLIB/LB:MOVREC .IFT $FCSTK .DATA S15: .FCTR LB:['$SYGRP',1]SYSLIB/LB:WTWAIT .IFT $FCSTK .DATA S16: .FCTR LB:['$SYGRP',1]SYSLIB/LB:RETADR .IFT $FCSTK .DATA S17: .FCTR LB:['$SYGRP',1]SYSLIB/LB:RSTFDB:RQLCB .IFT $FCSTK .DATA S18: .FCTR LB:['$SYGRP',1]SYSLIB/LB:PARSE:PARSDV .IFT $FCSTK .DATA S19: .FCTR LB:['$SYGRP',1]SYSLIB/LB:ASSLUN .IFT $FCSTK .DATA S20: .FCTR LB:['$SYGRP',1]SYSLIB/LB:PARSDI:DIRFND:PARDI:DIFND .IFT $FCSTK .DATA S21: .FCTR LB:['$SYGRP',1]SYSLIB/LB:PARSFN .IFT $FCSTK .DATA S22: .FCTR LB:['$SYGRP',1]SYSLIB/LB:.CSI2 .IFT $FCSTK .DATA S23: .FCTR LB:['$SYGRP',1]SYSLIB/LB:.CSI1 .IFT $FCSTK .DATA S24: .FCTR LB:['$SYGRP',1]SYSLIB/LB:ASCR50 .IFT $FCSTK .DATA S25: .FCTR LB:['$SYGRP',1]SYSLIB/LB:PPNASC .IFT $FCSTK .DATA S26: .FCTR LB:['$SYGRP',1]SYSLIB/LB:ASCPPN .IFT $FCSTK .DATA S27: .FCTR LB:['$SYGRP',1]SYSLIB/LB:GETSQ .IFT $FCSTK .DATA S28: .FCTR LB:['$SYGRP',1]SYSLIB/LB:DIRECT .IFT $FCSTK .DATA S29: .FCTR LB:['$SYGRP',1]SYSLIB/LB:OPFNB .IFT $FCSTK .DATA S30: .FCTR LB:['$SYGRP',1]SYSLIB/LB:POINT .IFT $FCSTK .DATA S31: .FCTR LB:['$SYGRP',1]SYSLIB/LB:DEL .IFT $FCSTK .DATA S32: .FCTR LB:['$SYGRP',1]SYSLIB/LB:CREATE .IFT $FCSTK .DATA S33: .FCTR LB:['$SYGRP',1]SYSLIB/LB:POSIT .IFT $FCSTK .DATA S34: .FCTR LB:['$SYGRP',1]SYSLIB/LB:POSREC .IFT $FCSTK .DATA S35: .FCTR LB:['$SYGRP',1]SYSLIB/LB:WRITE .IFT $FCSTK .DATA S36: .FCTR LB:['$SYG|RP',1]SYSLIB/LB:RDRN .IFT $FCSTK .DATA S37: .FCTR LB:['$SYGRP',1]SYSLIB/LB:GET .IFT $FCSTK .DATA S38: .FCTR LB:['$SYGRP',1]SYSLIB/LB:PGCR .DATA ; .DATA ; EXELIB MODULE DEFINITION .DATA ; .DATA E: .FCTR LB:['$SYGRP',1]EXELIB/LB .DATA .END .CLOSE .IFNDF $VAX .EXIT 1 .; .; Exit for error encountered by IND .; .ERXIT: .IFNDF $VAX .EXIT 4 |¥Æš‹€,›c,|³š‹–,??mþQšTITISYSYOVvœÀÀÚðöRJÔt°I°I8884“?þ€}qDÀÚœÀ|³ÀÚF °ö øƒ:àu~VNðøUqøÖsÀœwHØ@4¨¨ÞÈÈ'èø:dÐÐIqPLqX;}v…øþv(YM0|…8·êÿ÷âÿ÷ „À÷ „÷ ˆ ÆÐÿ 7 Ðÿ ÷ œ!†÷5Êÿ÷°j÷®÷ ÷÷Áz÷ ÷šÿÀ÷ 4À‚ÿwˆ fhÂ` ŠÀ® Á”W W W ;W !E ðÄ… ìð¥ ÿÿèÁ ÅäP„ áð¥ ÿÿà‹Ä È• Ä¥À® ÷ | ‡ÂöR ÂeÊúÁ÷ z ’÷òþW þvõ”W W ùÀ æ4Á¨‘‘‰ÁªÑÑa(ñþÿÜiÁmºþÁM¶þ±?& & ÀÚ7R÷–÷ ôÀê 7<÷ äw Þõ‚Žò¶ï‚‚–%±·÷ ºÀ²7÷ ®wà¨·ø÷<÷ Ò÷ ÌÀmŽ–%¡‡Ám.þÁM*þ2æÃR÷Ê÷÷ lÂÃb ó†¦ÎmX €ÁmN7F·š÷ z÷:&N`Ö ÷†÷ .Ám(w$7v÷ Vƒ‡w P¡EECCw >E ECÄ& ÃEøÿŽ ÎÂÃe0ÐÄ æ ECÎ üÖéÖ‡” Â¥ ” úÂ¥ ±¡‡Ð• P”É‹ý‡Á Áfw Èf÷ Äÿ‡“÷ ¼ÿ‡“÷ rW †K— :ãÁb^Áe÷< ª÷î÷ LB$·˜÷ Ü÷ :ñ"ôñ¬ðñ‹íB·r÷¶÷ wd÷ ¨÷ f)÷Ö N÷’÷ ðB'·<÷ €÷ Þñ"ôÄ1¡ï‡1¡ì‚ CÜBÄàBlÄ üf·þ·D÷ ¢B‡Áææ‚÷ ° wTüÀ<pb°d÷ ” ‡ðfô‡œ`Ã¥öÿ±ù¦fÁÃ¥ÿÿÁÃ¥þÿÁÃ¥ýÿÁ Ã¥üÿÁ÷ R ‚Ð²'ÿÒb VMR>ÑÌPbÄ’7ôÿ÷8ý÷ –ÅbD±7Úÿ÷ ‚5"õ5,ñ‡Ä„Äå7ºÿ÷pþü÷ \ÅbD7¢ÿ÷ Jõ±5"ò5,î‡7 Z÷Á÷ 2wN÷‡÷ &wD÷†À ‡Á÷ ,wÐ÷æPÿÎ5YÎmüV‡æà÷zÎ ÷5ºÎ€–%G‡·`æ·Væ æÀÂ ÿ ÷R÷· ¤ÿ†Â ÿÃžÿÃmðþ‚ Ãåü€Â Ãe ƒÃEþÂ@ÂeÂ‚B` ÷ ¦ †¬*öÿ° ‚‡l× ‚ƒðb0Þ ‡‡ÁhÁÂJwT÷Eà€þ·ºææÀÃpþÃ‡Ã‡Ã‡Ã‡Ã‡Ã ‡ÂRþÂ`‡ÃÒÂ ƒw8ÿÂ@þ Œ‚Œ‚ŒÃÃm*þÁÃEþŠÁB`Âe¤÷Eàþ·Jæ Ç÷äÿ÷Üÿæ´ÿˆ‡ææ)ÿˆ‡÷LÄý÷û÷ fþÅbCw°ý÷ôú÷ RþÅb À€Á%Á ýDw¾ÿwí¸ÿ· ´ÿ7|ýwÀú÷ þ¡Þ Dm÷ŠšÿòÍÖ±‡PP&@íA÷ ð@mÀEÿ€ ÷ ðÐ•:‡&÷ Ô— .”Ö€÷ ºÂ¥8Â¥9±‡¡‡&”— ü‘ É‹ø”— =— — — óÖ²Ö€±¢‡f&¦‚Þ €‚‡&æÿˆæ3ÿˆ“U#ö“U]RøO« _úÓtÌSüƒ¬ç_þƒ¬è_-{Ðf4ê¨u~6D©F8G© g:H©\}<J©¼ >e©ÄŠ@ ©BxB½©C D6ªl;F¤ªsH¯ª-JËªsLàª#Nýª©P««„RA«ÄqTah €VhhÐXlhè.ZphØr\R«Œ9^T«z}`À«(bÑ«O dÑ«BxfÑ«ýxhÑ«hjÑ««„la €në«Zpë«øfrlè.tovg°,xhîzó«F|ô«xZ~Óò€ÿªZ‚«€»„«ÀÁ†«Èˆ«@ÎŠ«€ÔŒ«ÀÚŽ«á«@ç’ô¨:^©CE=©è&D©ƒ:e©º t©š^v©šv©""v©?T¿©8rì©|ì©Ìeì©”’6ªý6ª€6ªÔ€ 7ª4"7ªf$7ªö&&T«|(T«”’*m«Q,q«ˆZ.•«[M0ë«z}2×'&ÿÿæ1ÿˆ‡ß ¸Âß ¸Âüß ¸Âx ß ¸ÂÀ#ß ¸ÎVß ¸ÎPß ¸Î!ß ¸Ú"ß ¸¶ß ¸r&ß ¸Ô'ß ¸"ß ¸"¼ß ¸"!ß ¸"¦$ß ¸"Ä&ß ¸.ß ¸âß ¸4#ß ¸´ß ¸$ß ¸*öß ¸*~ß ¸BÖ,ß ¸BÐ,ß ¸B-ß ¸Bž-ß ¸NÐ,ß ¸fN5ß ¸Æ5ß ¸Æª6ß ¸Æè6ß ¸ÞN8ß ¸ö5¦Þ5Îe‡w ¸Á,…Bvù òÊEÊU ù ‡‚Ê5ìùB‡wÔù âIÿÿÿÿ–¦Ê5‚ú‚‡òû¦¦‚ Ž Ê5ùÊUŽ‚öÖ‚å¶”ê–¸‡ÊE¡*‡Ê5@*& ¦ÎEð& & ¦¦f&Ã‹DÄeæÎfææÿˆ ‡Ã‹ ææ)ÿˆÌ‹€ÊU±‡&æ †€mÎ ù æf ÀAN ‡ã€ ö ÷–%‡&æ¦ff… Þ ‚ƒ„…‡&æf…Þ ƒ„…‡‡ Â6¶ÎÌ¶Ú°æ¶"´"äÚò#´"¤Úþ(´"àÚ *´"|Úæ,t ¶"3\¶.:¸:¶â=¼ .F>¼Ô.R?¼0.^@¼Ô.jA¼x.vB¼,.‚C¼Ü.ŽD¼Œ.šE¼.¦G¼.²I¼¸.¾J¼t.ÊK¼¬.ÖL¼x.:M,î¶R0#âúW0#œâ[0#â]0#Ðâîa¸¶*jt¶ÂmÐ,BZmÐ,d6NpÐ,86Bu5f¶u5wú Local TI: - GlobalÃ È¥=7 †å7 „åÈ¥/$÷ ¶èñ5×"TIlËŽí÷ rèj‡— =g·VåÅ” ÷ Ô‡•÷ Ì[‡•÷ r M— :T÷ @èQ‡— /N¤GK¤BH¤LE÷ "èB†ÅbÄÀò7,í÷ pê÷ Îí÷øä÷ðäeD87í÷ ´íÂÞäµ óõÔäïõ‹ìõÀäJffÁ ÷ úæ„7Òì÷ ê÷ tí÷ ¦í÷˜äÓ‡ÁIÁÁJÁwÆ ÷vä&÷läófÁ ÷ æï‡ õZäõVä5ŠõFä5 7fì÷ ªé÷ @íwXì÷ í ÷ 2í‡f÷ Xî€ÖwVî78ì÷ |é÷ ÚìNÀ®PPA ÷ 4 Ð•:Ð• ffD7þë÷Bé÷ ìwðë÷ 4é÷ ’ì÷ †îÐ• ÁæÎ‹Áô÷ ØæÖ‹„7Äë÷é÷ fìw¶ë÷ úè÷ Xì÷ LîÖ÷ Ð÷ „æ‡— A‡Â¥Z†À ‡¯”w Tú·öÿ7 îÿ7 ìÿÀÿÿÁöÁ%”ü‚7 ÷÷ ‡÷ JÅåÀÀ%‡L÷ ïwªÃ4Ä÷ $Ä ûÄ4 E‚Àø ÆÅåê‡ÔäââøäâÀD&X2‡Ô-Hÿ,Ô-Dÿ)Ìµ &‡À $È#û-øôµ@ ÐØ%ÿÿ(Ðí‡À4Á> Ð%ÿÿÁeÀ%”ø‚¡‡ÁÂJwäþwâþÁeÁfÂ@ÃRÊââââ¢(÷ jÆÌþ±‡÷ úÿ Àßîÿ· êÿÀæÿ÷ R†ð¥öÿ*±ÂeHÁ w(7Àÿ7¼ÿ‡÷ ¸ÿ&÷ ²ÿÀ€U‡ Enter filename: ê»zSYâyIMÅ ÷ÿÿtîÂØÁ÷ Lå†wÞáwÖÀ pfCfph÷ D1fí‡È•ðn ÷ 6†w¤ðµðµw ÀÁN ÂeÃ0 ÷ `‡ÂDÃRÃ ýÍH÷Zÿ<æð•#÷ êN‡ð•ð€÷ ý&À÷ ÞV‡÷%ÿÿ¸í=÷SY®þ7 ¬þæöÿˆ‡æþÿˆ7,\†þ7¬^€þ÷LB†þæöÿˆ‡æþÿˆ7,\bþ7¬^\þÁv÷ FÀÁDÂN Ã‘Ã ýð•#÷ N†wÌwØð•ð•ð÷*å0àÍ#÷‚íÔç÷å÷ vèÂnå¡‚‚Ò° ƒ° ƒ° ° 0 ÷FåBè÷Bå>è÷üŽç÷òÒä÷ ^è×-æw>ææ—#0‚7 èŽ ÷eèÎ û÷e€þç·¢ßÍw¢¨ÂÂÂ·öä·ôä÷ è÷¾ìˆß÷¸ì,ç÷pä÷ ÎçÂb·¤ì·lß·hß÷’ìç÷Lä÷ ªç÷8ìÁLÊ%€÷5tìÊ% ^‡ƒÁ`ìÁåwÔæ÷ä÷ vç·ß÷ß4·"fì1æ¦ÊeÊEC·¦æ÷ |çƒåÊà²’þÿJ`–"Êe?ÊE?JàÊMÔÞ÷ `çJ`·ä÷úëpæ÷´ã÷ Jçw ä÷âë\æ÷ <ç÷%ÿÿ’ë7 Œë‡ÁñfÁ Á ÁÁÂJ÷ HwÜüÁùTSMHRSIUICÁ¢#ÂŠÂ ý÷ bæ&À÷ æ€i‡Å¢#÷ ºàt‡— /3Á\— 0%‡— 9"‚À ÷¥ªÿQ÷ @è†÷eœÿ— :NW K‚÷ ªUW ;E‚Â¥:B÷ ˜UW ;<‚À Î· jÿ÷ /‡u ÅÁ¼#÷ \è†Á¸#÷ Rè*‡)…Åe ÷ Ú!‡´"…¤[÷ èuW ÿ‚Â¥,÷ ôçuW ÿ‚Â¥]šÁÁ>Á=ÁÁÁwÄÜþ!è‚ÅÚäÁ÷ hÞð‡&fÀ€êÀå7Àä÷â÷ båÀb0 ~û‡ÀhêÀå7œä÷ DåÅ¢#Ä E÷ CÃ @ÂÂ~Á ìpÂ÷ Bu`u5`ìÄCÃe÷øáó þÿÂÁìpl~Ä%ó þÿ÷ þu`u5`„ ! äÁÐáÁí¾á ï÷ z÷ °µ÷réôã÷8á÷ –äÄb5cuÂXé·Öã÷á÷ xäƒ ·Âã÷ jät-õ‚‡t-ð†€÷¤ã÷ Lä÷ ~äT!rü‡7Žã÷ nä‡BA÷ Tu5Pµ ‡÷ ~UÃ³#“ Ë‹ü±Ãå³#Õ‡õA B ÷ u 5õ‡& fÂ €À~&÷ ñ€v÷ ”ñ6`Né€‡ß ¸BÖ,ß ¸BÐ,ß ¸Bž-ß ¸fN5ß ¸fh6ß ¸Æ5ß ¸Ò5ß ¸Ò¨7ß ¸Þ5ß ¸ê(5ß ¸ö5 Offline Loaded UnloadedCOMDEVDRIVERDYNAMICMAINSUB SYS TASK 7 öÿ7 öÿ÷ @é ‡·èÿ7”åÿÐ¥:k÷ ,éh†÷ PðæðÞ †÷Ìÿ Á÷P¾ÿÂR÷ "w4ð÷¬ÿw-¤ÿÍJÖæw¦ëD· ’ÿÀ®÷ ”ðÈ• ”3!f&Ä7Øí÷ë÷ zî÷Êí÷ ë÷ lîÅ÷ ^ð„…Áóµ÷ ¨è÷5(óó5Áõ ÷ ŠèÁ õ÷ |è÷ €œÁwn÷ xï÷üò`í÷¤ê÷ îÄbwdïwFí÷âòŠê÷ èíÀ®- ô5 ô5€ÁJ÷ è÷ ÷ Ð• A÷ òÐ• ÷4ò÷ .Ð• ÷ " ÷ ÊÐ• ÷ ¾Á6- Á;÷ ¼çÁ@ô5 H- ^Á.ô5€XÁ'ô5 ÷ ŽçÐ• Ð•-Ð• fwtì÷¸é÷ íÐ•:·Zì÷öñžé÷ üì4Ð• Ð•(fw<ì÷ €é÷ Þì÷ &÷ Ð•)ßÁEô5€Áæà÷BñÎ€÷6ñÎ€ÿ-‡Á#÷ êæ÷ îô5 wÌë÷hñé÷ nìwlþÁ”‰1 ÷ìð€ÂIqÂ ûÂ÷ ,æ÷ÒðÐ•0Ð•0‡MAINSUBTOPBOTSPEEDUICSYSUICNETUICMAXEXTPUBBUFPOOLSIZEPOOLPLCTLWCHKLOGONCRTLOWERESCSEQREMOTESLAVEPRIVBROECHOASR33LA30SVT05BFORMFEEDHFILLVFILLTYPEAHEADFORMFEEDWRAPFDXEBCHHTRPAABAUDASR33KSR33ASR35LA30SLA30PLA36VT05BVT50VT52VT55VT61LA180SVT100LA120LA12LA34LA38LA100VT101VT102VT105VT125VT131VT132TERMLINESTASKCOMDEVSYS""f#n#¼'Ú#Ô#Ô#~+Ô+6%‚(à( *F*H+¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¬&¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%¢%þ&ü$ € úÿ @ €€ HBHBHBPBPB„B˜HPPPP „BP „B „B „B „B „BPPPPPP05075110134.515020030060012001800240048009600EXTAEXTB5075110134.51503006001200180020002400360048007200960007 à÷ ã:‡— /7¢N¬O¤· îßÁ0 Å’÷5€íÄ%0Ä8ÁÎ5þÿ& ÷ Üê‡„Ž ÷5ZíÄ%8Ö²|®Ñ‹þÔÖÉ‹ÛÁÁw¨ Á&Öú„w(C÷ @ u wu÷Rß÷ `â†w— :~÷ Ëz÷ Hâ†÷@ßrDß— :oU%È¥* ÷ßl÷xìl € ”÷ ¤ ^‡U\÷ âY‡— :VÈ¥* ÷æÞT÷HìT € ”÷ t F‡UD ÷ ÚáÁÂÞ(=‡— ::Â÷ | † Â¢÷ n † Â¦÷ ` †÷ôë#÷58ì) Âª÷ D ‡÷ ‚á†Í%÷lÞÍ%÷^Þ ÷5ìå%ÿ‡\ÞÁwj ÁpûÁdøÁõ/…7 4Þ+…·,Þ÷*Þ&÷zë'C÷ äU%Â¥: ÍÿÿÈ¥- È¥+ € È¥*€ ”÷ |‡e÷ äà†âÝÁwðÁdû„w„w÷¾Ý~÷ ¸à{‡CÂ¥A‚Â¥Zo†— [q÷ ŠèW ÿo‚ DÐlÄ— ,e÷ rèW ÿc‚DÐa— ][×-`Ý÷ jàT†7$ã÷*ëvå÷ºâ÷ Pæ‡×-<Ý"æëÎE·Vå÷šâ÷ øåÅðâ÷5ðêÅÅ‹;÷ à.†7Øâ÷Äê*å÷nâ÷ æ‡÷ à ‡— :÷ $àñ- å wå÷&Dâ÷ ¢åóñ51$÷ Èå‡À ÷ òßÊÜÁÁÁwÈÁûò…÷ ÜïC÷ Æßñ5î÷ Œß ‡À ÷ pçÁàÁ%ÿÝ‡wTâ÷ nå‡vÜ/…÷fÜ,C÷ Œßñ5whä÷&¬á÷ åñ-Zäôñ5÷ 2ß‡À ÷ ç÷5ìáÁ%‚Á%ÿ‡wàá÷ å‡Áw Ü{…C÷ &ßÅjÕ5iÄ%Lw¨Äå ÄÄe. eÄ%H ÷5>ÜQ7mþÿÜã÷ á÷ ~äÁbÄ%L 7ªÛ· ¦Û÷¢Û C SÄ%< Ä%„ ÷ ŠÞ-†÷ €ä‡÷~Û÷÷ xÞ÷‡À Ábñ5€ -ñ5@ )Ä%„ æ÷H!²úñ5@ ÷!¤ú÷ &‡÷ <Þ†÷Åá÷ÐýàÓÁÁÁaÁw0ÁbûÁøÄ%,÷5nÛéÛã…÷ðÚàC÷ Þñ5â÷ ÜÝé‡À ÷ ÀåÄå ÄÄe. Bƒ‡BüCC Á0Ã3Cb³Pb÷ ¢ã‡º…÷žÚ·C÷ ÄÝEñ5¸÷ ˆÝ¿‡À È¥0‚È¥9‡÷ `åÁ¡Á%ÿž‡Ä† Ì9%üÄåˆ Á ÷ få†Ñ‹þÔÉ‹øÁ’÷8Ú„EÄåL† !‚õE õE?Ä &Ä„eÄe¸ •€õU ÃE€õÐ5•5“u&÷ äâ‡O…÷àÙLC÷ Ýñ-ìá wâá÷&&ß÷ „âóñ5;ñ5€ :ñ5@ 6÷H!þøñ5@ ÷!ðø÷ ŽÜ3‡À ÷ j+‡Ä÷ ~Ü‡Â¥:÷ V!‡÷ lÜ†÷5@.ßÄ ÃÃÃÃÄP7Šß7Ñß÷ Dâ‡ÁÁÁÁbÁwB,Ù"…÷pæ(÷Ù!È¥*2÷ ˜†÷ Á÷ †ÃLæÃe?Å¡Å üÁ`-†÷ j*÷ÖØÚØÁwäÁdûó…÷¼ØõÈ¥*÷ œã÷æ÷úåí€ ”÷€vÿÁ÷50æÁ€Á%÷5æÁ%€†÷ þC÷ lÛÌ†÷æzà÷¾Ý÷ áÅÞBÂe?ÁÀ¡ÃÀ û÷þåPà÷ øàw ðÝE‚Å F‡÷Øå<à÷ äàÄb7,à÷pÝ÷ Îàf÷ZåŽ-ï‡æ÷JåN´%ƒ÷<å#÷ PCáÃMFØ@Å`L÷nåäß÷(Ý÷ ¾àÁ÷ öÙ÷–þÂ€(Áq÷ Æ7 „þ‡ÁÁw²ÁdûC÷Eÿbþ÷P^þÃÃÃÃÃÃ Á÷5 åÁ€wP<þ‡&…C÷ ‚Úñ5@!ñ5€Ë%DXË%DYË%MTË%MMË%MSñÅ÷×ñÕ÷ à‡×ÁwD…÷5l×HÅb÷äß÷JÜ÷ ¨ßD÷6äôÞ÷ œßDã÷ŽäèÞ÷,Ü÷ Šß Ð¥: à¥ ÷ á)‡sbÀ óÓ× ‚î !‡M%‡W#T‡M%‡W%T‡Í%ú‡Í÷ vß‡÷5äÖNÁÁw|Áûõ„÷5ôãô÷LÖ÷E€æã÷U€Þã÷ÚãöÛ÷ ÖHÞ÷ŒÛ÷ "ß‡(…÷5€¾ãÙ÷ÖÓ¢*÷ šÍ‡÷5¤ãW ÿÍw¶Û÷žãÞ÷LÛ÷ âÞ‡Áÿ÷5|ãïÁÿÿìØÕ „÷5hãÁwØÂÕ÷5TãöC÷ ØØñ5w´Ý÷&øÚ÷ VÞñ-¦Ýô÷†ÕñÕñÅ÷ nÞ‡÷ Xà— K W †ÁÁÁÁÁ”— ”¡±‡¤±Ê‹û‡Á3 ÷ 2K‡÷ *s‡”‡ Ârô@÷ Êÿ†Ò‹þÊ‹ƒ ö±‡ß ¸B-ß ¸Bž-ß ¸B.ß ¸fN5ß ¸fh6€LBÒ–Ì÷ ÖLB0:ÁŒóÂÀ!ŠÁ ý7ÿ÷ ¨è‡— /úÀ Àíÿ7þþÀ ÷ ~s‡È•÷ |n‡ð‹kÈ•÷ lf‡ð‹cðµ_ÃÒÀà÷ xè÷díŒ÷ ¶ÀTÁ–ÂÃ6÷ 43‡÷ 6:‡ðµ97H67J27Brþ7Dnþ7Fjþæ´ÿˆ#‡ææ)ÿˆ‡÷ŠÿÀÿÁÿ7JwH7>w<P@‡Á!ð¥ðÿ*ð¥æÿ* Á#Á$Á"Á÷ †w&åÖÁtøÀ*ò7 ì÷äé÷ BíÁbÉïwŠì÷ Îé÷ ,íñ%LBóñ-žï‡L÷äý÷Üý7âýwäýwâýæPÿˆ ‡ææ)ÿˆ‡÷Š²ý‡Á(÷ æw†â÷ Îù÷ R÷>û÷ Pæ„"÷5@”ýÎ|"^!h‡ÀhÁ"÷ (ýÁ"ÄåhñeI!‡Äåö÷ ý`‡ß ¸æ#ß ¸òÊ"ß ¸þº"ß ¸ ¼"ß ¸fN5ß ¸Ò5ß ¸Ò¨7ß ¸ê(5ß ¸êb5â"L#æ"f#ë"†#ï"¾#ó"`#÷"ö#û"6$ÿ"ê##Ê##Ö##Þ#PRITASKUICCKPPARPMDINCSLVIOPCLIFIX”Áª!Ã Ã ý÷ €á‡— /Å²"ÕA ÷ €éú‡…Ý ï‡w"w$÷ >éwVþW ú‚‡wÄ´!Ä®!Á $ ÷ Ty‡÷ L‡”‡”— [n÷ üèwþrW ÿo‚— ,c÷ æèwþgW ÿd‚— ]X”‡æ÷Uîý÷Uèýæ÷U Üý÷U@Ôýæ€æ÷UÂýæ@÷U€¶ýÃ¶!Ã¸!÷ ”à— Y— N(¤O%‹U¤E ¤S‹E”‡÷¾ê÷ NèÁe‡wfý÷5êêÁ%ÿ‡÷UNý‡ÁÁÁ%Á÷ w¨Ýß ¸B-ß ¸fN5–,Á "Àª÷ ’ü÷¥ãü.Á"Â²ý‰`wöþaw’ïþw¾ÿwºÿæÂüÀh÷ `üÀ¬!ÐÀªÐÀ¾!ÁÈ! !Î5@wÀ÷ Âæ‡Á*Á,ÁÁ-Á.Á0Á1ÁOÁ2÷ âwÀÞ÷öùBÿ÷ú÷e26ÿÀ6ü÷5¶ëç7bþ÷ðÚù÷Zë€÷ÎùÀøùÁöùÁÁÁe>ÄÒù÷:ë€ÀíîûÄíêû!¶Äeh&÷ ^þ€wÞþÃeÁ üÃeÀ ¥À5¢7ÆþÀæý÷U ØýÎ5@ ÷5¦ý÷5žýj÷5”ýe÷5Œýa÷5 ëÁ\÷ X÷E ˜ý7rå÷¶â÷ æÀã ôÀëÀå7Rå÷ë–â÷ ôåÁbw>å÷ æåñ4÷~Ý ñ-töññ-nö"íñhö#éñ-8ý"äñ/ý!àB$·üä÷@â÷ žåƒÂ–âƒ ôÅ Ð÷5 hê÷UøüÁ+wzþÀÀü7¶ú÷¸ü²úÀ®÷ ¸ä†÷-¢ú¸ý÷-œú²ýw$þÁPÂ®÷ &÷šý€ú÷–ý|úä7¬üÎ5@(õ5€wúýÂpý„÷ Þü÷‹ZüÎ5÷5@Lü÷U@lü÷5>ü÷56üÎ5÷UNüA÷`é€÷ Ð õ5 Àü÷5üÀÜú7þûÀmúùB‡Àmöù?‡÷5véÀ%ÿ8‡ 6‚õ5 7 Ôû@7üûÁÈù÷é€÷ „wòû÷5@é÷²ùêûÎ5 ÷U Æû7 žûÎ5@Î5÷U°û÷Æè€W-`vƒÁ/÷ qwýwýwýwR÷žèfÁRùÁ5ÿòÁAAAÎ5ì÷5ÈèW W wÊüÂÂBàÁû÷ Ü@‡Á5?=wûõ5 ÷5 "ûA÷ ¸Ámðú,ƒÁmâø(‡ÁíÚøÁeÿÁEÿÁAAAB Î5÷¼ø‚ B ÷5´ú÷5¬ú Â®øÂ5Á^÷ ,w<ü÷5 ®úEÂdùÂíbùÂÂÂæ¤ú÷°ç€ÂŒN‚%ƒ÷5 äçÂ÷5JúÁ\÷ Ø÷U `úÂÁ[÷ Äw˜÷U@Hú÷5@ú÷E@:ú÷5 šçÁ+w²÷E"úÎ5 ÷U€úÎ5÷U€ ú÷ çNÎ5K÷5,Ú5ÁÌúf÷ |Ö5? ÷5¶ù÷5®ù÷5 Êù÷5@Äù÷5 "çõ5 w`¸ù÷5çw`ºùõ-¨ùƒwûÃ.çsÀ!Á{÷ ôwÒÙÁ|÷ èwÆÙÁ}÷ ÜwºÙ÷5 <ù÷54ù÷URù÷ù0ù÷ø÷(ù÷•2 ù÷ù8ùÁ÷÷Hæ€u wrÎ5@PÃ®Ô÷ hù÷&æõ5 ÷5 üøA÷æ÷ ŒÁlÁåÁºøÁl‡w°ùw®ùTóU€÷ t‡÷Øå ÷eÿ’ù÷EÿŒù÷ ˆùw&úwúÃeó5 ÷ rùËw÷hù7bùËÖÄe÷ ÊøÁ"ÉBùá<ùÀh÷ èõ‡À÷ 6àU‡õ5€Su½RÃ"ùÄùA÷Lå€÷ ¼s-IÁ,C‚ó5 º”÷ høÁ÷"åw ÞøA‡T÷ RøÁwÐøT÷ œ†wfùõµ@ó5%ó5 ÷âäBÂEøÿ· øŠÁ5Á6Á7Á8Á9Á:Á;Á4Á<ÁcÂ÷ äwÂ×¡‡¡AAAAAA‡÷ ¤÷ ÷ ž÷Á øÁì÷ Êÿ TB÷ ˆ÷Á÷5Šä±%T÷ p÷÷.ä÷ JÁ÷ Rôþÿ÷ V÷ÁØ÷÷ TÔUó5€ôEþÿ ÷ 4÷ ÷ .÷¡‡AAAAÁEøÿ‡Â ÂÂÂEøÿ‚ ”‡÷ Þÿw’÷ÁÁe€ÿT‡ Áå@ÁE?àÁÁL‡ß ¸fN5Àª÷FÿÒÞ÷BÿÎÞÁ"Éea÷ ŽüÀÒþ7ŽúÄ¤&(—#ÿ*‚ ÍäÁæþW#OVCÀ´"ÐÁ ÷ lÈ•:À´"÷ ¨áÁ”æT÷ ÿ ÷ ÿU%÷ ,Î ÛÖ ÁÁ)÷ å÷ æå5÷ æÃ:ýÄ8ýÂ¸ê× ÊQ!|³÷U8ý$ÂÄê× Ì~!€WÂŒê× ²K!|³Â–ê× x!|³Â„ê× f!|³÷5&Ý ·Ää÷â÷ žåÁÀ!Âlê‚UÂ ýÁ`ê7¢äwèá÷ ~å÷5@’ü÷5€ŠüÖ‡ÅbÁÀ!Â4ê‚UÂ ýÁÑvüÑtü‘ÅbÀFÐxW!ª!‡ÀªÁ "ñeI÷ èù‡ß ¸Bž-ß ¸fN5Åª7 öÿ÷ÿðæ÷Œì4ä÷ ’çÀbð5€0¼wèwúw0ÜðEðU@÷5€¶ü Á üÁAAAÁEøÿpPðE@÷Ìë €W à†÷ Êwvÿ7nÿ÷5öë×-bÿð‡· ^ÿwâ×-Rÿ€ø†wJÿi÷5øÿBÿ÷<ÿàù7 6ÿ÷Ôù÷å(ÿÀ÷ÆùÀ üÀhÁ"÷ ÀûÅ²ùÃÿÂ¡‚‚ ÂeÃEøÿÀÃÀ ýÀ÷ H†ð¥öÿ*}° z‚‡Ca× r‚ðhð@ð@÷ l‡ðe@Åå@ñÁFùÁe?÷ æw`’þÁew`ÞýwØý÷~þš‚÷ù& ÷°ê"÷5ÂÝ÷dþ÷%#ã÷%ç_ãÎ ÷%è_öâ Ž ÷>ûôâÁÜêñÿÿbÁy÷ ˆ÷Tý&å÷Âêjâ÷ æÖ€÷Æâ¸â÷Pê å÷Nâ÷ äå÷®â â÷:êòä÷6â÷ Ìå‡Á'Á ÁÂJ Á3Á4ÂfÁN÷ w*Ý¡‡ß ¸fN5ß ¸Æª6ß ¸Æè6"SH˜B÷ Lõ5õ5 ÷>æ ÁLQQ"I!wHwJÀH"` È0Š`" 7 ÿ÷5æDÄmhóÌ‹÷2ÿ@$f&w(úþwìþw0èþ7 Úþ÷5ów6Ìþ·ní÷ ó²ê÷ îõµ ,·¾þB„Dmw´þw°þC÷8í÷Ôò|ê÷ ÚíAàw Žþ †÷„þBBmé„à7!xþ†w…õ‹@N- w òì÷ šíõ‹5·äì÷ ŒíE Åm0þ7Òì÷ê÷ tí÷lêÂì÷ ê÷ dí÷`êþÀíXêÁZê÷ RûÀmPê7îýæÿˆ†Á$Á?Á@ ÁÁÁ,÷ ü wàä÷´äTÀVÁ˜ ÷ >‡À˜ðÜýðØýðÔýæ*ÿˆ+‡ææ)ÿˆ%‡÷Š²ý"ÀbÁL÷ ø7lî¤ýwžýÀÐ–ýÐ”ýÐŽýÈŒýÁ¿Á¼€ÁDý÷ æôÁ#wdÿÁ!ð¥ðÿ*¬ð¥æÿ*òÁ¥÷öðÅÅÅÅÅDÅD÷5úã.÷5"ñ*Àœ#Á˜É$÷ hðì7ýwý7ýÁ˜1lìI÷ D&€÷ `‡Îe÷Ö7 ¬üwÐþÁ¢ü÷xðÁÁÁÁÁÁ÷ 2ð‡Åb@Á÷î÷ ô÷5fã÷5Žðõ,÷\üwnþ÷,ðeAw@ü÷Hüõ"7 <üÁm8üw,ü÷,ü÷ lÅbÁü÷ Lä†wºþ&@Á÷ †€5:um:÷üûu:"õmðûõå:A<ÁÁÁe>`u$C&7ÄûÂ· ºûÂ´û·à°û7Pê·–ç÷ ,ë÷ ûÀbÁÉea÷ ÷eˆûÀ„ûÝ€·ê÷ºïbç÷ Àê7 xû÷5 ÊçW&ÅbÁžï÷ ã†w þ7Xû÷Rûêé÷†ï.ç÷ Œêfw- <ûNmf f5÷ ¤ê÷$ûºé÷ bê5 õûõûõûµµ µõúú5 5 5 õXáõ €÷5øî æÐúÎmïDÄmúî Œ÷”îÂîî2b÷°úÁþæwÐûæ÷áöæ÷ ê÷âæ.é÷ ÖéwÐãæ÷ ê÷†úÀÀe7é÷Væ÷ ´éõlú÷ âé÷Ôàøè÷®î<æ÷ šé÷Eªæ÷U¦æ÷Fú÷@ú¤æ÷|ædú÷ °é÷5PîfÅb÷¼è÷æ÷ ^éw@úÃe ÷¤è÷èå÷ Féw*úÄõ5ÄUÁ÷ â†w„ü÷pè÷´å÷ é5÷ BéÀ,7Vè÷šå÷ øèõÜù5Šõà5õEðÿµŠ õÀù ÷ é&ÀøßÀmÎíÁe÷ ^À¢ùÀm¤í÷ dÃe÷ Œù§‡fæ¶#‡Ž·ºÀbÁ÷ ¸÷ ü †¬*öÿ/° ,‚‡Ãm”× &‚ðbð@ð@÷ N‡ðe@Îå@ñÖ÷eÞøwØøÎ%†ÅeDÎåÀ…cDÖ¡‡Á ÁÂJ–%±õæäøæâøwm,ÜøwÖø÷eÒøwÌøÄÈøÅÆø÷ Xðbðð÷ ¶…„Åm¸äD÷ 4ðbðð÷ ’÷˜ä÷U ä÷ Š÷ ŽÅmrøDå‡À BƒÃEþÂ@&Ž‚ÕÂÂe÷ Z‡7®æ÷òã÷ PçB7šæ÷Þã÷ <çD7„æ÷ ,çõøõƒwtæ÷ ç ÷ Nç7dæ÷ çu÷ <çwTæ÷ üæ ÷ .ç·Fæ÷ îæM÷ ç‡€#÷äý÷Üý7âýwäýwâýæ„#ÿˆ ‡ææ)ÿˆ‡÷Š²ý‡Á(÷ nwRÜ"S&T&&÷ æ%wrÿw"jÿw!bÿ@$7.ã÷rà÷ Ðãw ã÷ dà÷ Âãw8ÿ@íA÷ °ñ@m7&ÿæÞ%ÿˆf‡÷>Û)À&ÁT& ÷ ”d‡ñÿñÿñøþæð%ÿˆ]‡ææ)ÿˆW‡÷ŠÿT@Áæ%÷ ˆþ7lîÎþwÈþÀœ#Ãe<Áæ%÷`ü÷ fþæ/& ö &Ž ÷ pÄ7jâ÷®ß÷ ãw\â÷ ß÷ þâÀ®÷ îäÈ• ” ÷ ºÐ•.÷ Ê÷ .Ó×–%‡Á$ÁB÷ ¦wŠÚÁ#ð¥æÿ*öÁ(ó× œ% ‡Àœ#Áè%Éea÷ Êý‡÷ \â÷ ÆÜ†À÷ â‡7¨Ù÷¦Ù÷ÿÿ¢ÙÀ²ÙÀ¨ÙHÁ÷†Ù@Á|Ù÷ (à¥ ÷nÙnÙ÷|³fÙÙÁ>÷ wøÙß ¸B’-ß ¸B.ß ¸fN5ß ¸fh6ß ¸Æ5ß ¸Æª6ß ¸Æè6ß ¸ê(5õ5wFõwBõEõU÷ tï÷Êó=÷5ô9æXæÎm.ô·vî÷ºë÷ ïD+Äå7`î÷¤ë÷ ï@ Àmêóf5 ÷ &ï÷ ì7:î÷~ë÷ Üî€ÀmÞó5 ÷ ï÷ ÌÁ÷ 6èÌÖD&7î÷¤óLë÷ ªîBµÀ÷ ÖîCÃmŠóæC Á÷àí÷ ˆîµÀ÷ ¸îõ5 $ÂC÷Âí÷ jîÄ ÷f·²í÷ Zîµ÷ Šî÷|å í÷Vóäê÷ Bîu&÷ rîÁ(ó÷ ¦ç€÷¼ò7xí÷¼ê÷ îA÷ ˆç‡ÁAÁM÷ â wÈå7Ní÷’ê÷ ðíÂC÷:í÷~ê÷ Üíõôf·$í÷ Ìí÷ þíÖ7í÷Vê÷ ´íµ÷ äí‡fffõp€õ p÷5jòõ:i÷5,åõ5÷å÷ Ä]‡÷’ä¶ì÷lòúé÷ Xíõ5÷ êý÷ ¦ ÷tä–ì÷LòÚé÷ 8íµ÷ hí‚À"ò÷5ÐäW f— |³ ÀöñW ÊQ— |³ÀâñW ²K— |³ÀúñW Ì~— €WÀÜñW x— |³ 7"ì÷fé÷ üìÀîãÁÊñw.æÁMÁ]÷ Š wpäW-ÊQW-|³Á|ñ Á÷`ñÜëw"é÷ €ì€b 7Èë÷é÷ jìÍ-”ãÒÁ ð¡‡Á~±û÷äý÷Üý7âýwäýwâýæÿˆ ‡ææ)ÿˆ‡÷Š²ý‡Á(÷ Øw¾á"S˜ Þ ’ ÷ ”FIXEDFILE ID:(÷ ¸ê7 ôÿ7 òÿ& ÷ €ã‡À Á÷ úwÜÿ ‡È¥ Ž ÷ æwÊÿ÷4îpè÷´å÷ éÅbD7\è÷î å÷ þèDÎ5 ÎŽ ÷ŒÿŒÿ÷|³„ÿÝÖwDê÷xÿw-pÿÞw-jÿÚ ff(& NÝ f&fÀ®A÷ vA÷ nÐ• ÷0à w°ßw"¬ßw!¨ßw!œßw"˜ß&@$7¶ç÷úä÷ Xèw¨ç÷ ìä÷ JèwTþ@íA÷ 8ö@m7Bþær ÿˆ†wú÷Âß%@Á·fç÷íªä÷ èõ5Dw&Nç÷êì’ä÷ ðçõ5€8ÀmÖì74ç÷ xä÷ Öç3Àœ ÁÞ ÷ ´#‡ÁÀÞ ppp’æz ÿˆ‡ææ)ÿˆ‡÷ŠÈýÁ”@÷ TýÁ”qmîI€÷2û÷ 8ý€A÷ çõµ w „æ÷ ,çA÷ üA÷ ôÐ• W cÐ• W Ð• ÷ ÄÐ•.Ð• ÷€ë€A‚ ÷ ²÷pë÷5´ë ¨0œþÿüÿ0œÿÿýÿ0’þÿ0œÿÿÈ•0”Ð• Ð¾üÐ»üÁ¸ü ÷ pÐ•:Ð•-÷6ÞÂ¸ÝÃ¶ÝæÃBÃBÃBÁÁEøÿÁe0PÎ ñÖÁ!÷ ´àÁ‚Ý ÷ "Ð•, ÁtÝ÷ Ð•)Áü Ö5÷ Šà÷ wýÁ$÷ wèÝ:://--JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC;;c¢ w0& ÁÂ Â ý÷ Zð¥0þÿwð¥9þÿwø— :Â¥-— /;ÎUÄK$Ã–Åš$ÎUÄN$Ã˜Åž$ÎUÄH$ÃÅŽ$U W‡U U‚SŒ „ Â¥-÷ RK‡÷ Üð¥0þÿEð¥9þÿAçÌ‹ô‹;£:8Â¥ «Â¥ 2À êÀå7>ä÷‚á÷ àäŽ†ÀÜ7¬€$Ü†À%÷5øÛ÷%îÛÃœ÷®á÷®á÷¨á–†ÃÁhÑÑÉ÷ Ìä‡Á÷ jwPÜÀšéÀå7Îã÷á÷ päÀhÁÑ\áÑZáÉRáÅÀ®ÄH$÷ PÌ‹•úÐ• AMu÷ 6Ð•-AÁ W †ÁÁPœQ$PœR$PœS$Ð•-÷ wêÂJÁ wÖ&@Á ÷ êñÁe0Àe0€P‡7ÛÂQ$ÁÀøÚÊ‹ ¤üÁ% Ò‹þ ó¤wÚÚ¡±‡Àpè7îâ÷2à÷ ã@‡7Øâ÷ €ãõ-ªÚôõ¥õ¥ìfÁ÷ ÔÜ7®â÷òß÷ Pã÷ ‚ãÝß ¸BÐ,ß ¸B-ß ¸B’-ß ¸Bž-ß ¸B.ß ¸fN5ß ¸fh6ß ¸ê(5·øÿ÷ P÷ œ÷ f÷ ‚w ¤bÄ ÷÷5Òÿ÷ä÷ ¢÷ žwÜÆ¼ÿ÷ ÔwPBOOTDENSü,Ã`÷ Ö-‡÷ Ð*‡÷ $K— :$ã5 !ÃT÷ ´‡× `úƒ7 lÿ×¢/ÁT 7 `ÿ÷ ñ‡…|`Ñ‹þÔÉ‹õ×¢ ÁwxÿÁûƒ× `Ó• úÓVM ÓÓææ=ÿˆ‡ÂÃ ÷ <à‡÷ 6Ý‡¤:Ú¢ ×÷%DXêþÚ÷%DYâþÖÒ÷ ^ð¨ ÉW €Ê· ÆþË”×¢0‡Ó¥9†×¨A‡Ó¥Z‡@DD€|„MMá\dPPltMSÁ\dCTÉ,4DT€<DMTá\dDX‚LTDY‚Œ”ÿÿæ\ÿˆ †Â`·|Ê@Á6÷%DYŒÿ 7 P7 T÷P<÷ úædÿˆ÷%CSL ÷DXD÷%F÷DD6÷üý÷%DX*÷%DY"÷æýÅdÅeÕ-û‚Á$w þÁûC÷¼ý÷%MMîõÃU÷ªý€×ò w^þ÷ ®Ã€÷¨÷ fÃ€÷@šæÃ€Î·”÷ HÃÄjéÄåÂdéÄ ÂÃ€!pƒÄpÂÃ€÷:ä!pæ0éÎå!‡Ä ÂÃ€×-ZÜ!ìƒÄìÂ7t7 *·øü÷èð€Õ])FÀ Â ÷ "‡ððb‡À!ðTü0÷ ðñ†Á ÂJ@ wZÿ÷Jÿ÷ · Tÿô…7Fÿæÿˆ‡æÿˆ÷‹ÿ€×-"ÿÁKw>ü×-áÿÿøæ1ÿˆä‡÷þþß÷öþÛß ¸:¼ß ¸F¼ß ¸R¼ß ¸^¼ß ¸j¼ß ¸v¼ß ¸‚¼ß ¸Ž¼ß ¸š¾ß ¸¦¾ß ¸²¼ß ¸¾¼ß ¸Ê¼ß ¸Ö¼ß ¸BÖ,ß ¸fN5ß ¸Æ5ß ¸Æª67÷Dâw þþT€Ú€Z ‡ òàÁ@ÿÃ€Å× à‡ÃÀße€ìôDÉ•É‹þ€Ä SœùÉÕÉµ ýÉÿ× Æß zÅ ìôÃÀÙÀ ×– ŠàÆ÷ Aßà0þÿÄàôÅÀô ÕÀe€!îôøƒä€Ÿ zÿ ÄÀ_ìôÌ‡Åe W!€÷‡D………À4 ‡@À ÃÄåêôÄ aÔŒÔÔ× ü‡‡öU_7Ê÷DâÈw þþT€Ú€Z ‡ ¨àÁ@ÿÃ€ÅDÉ•É‹þ€Ä SœùÉÕÉµ ýÉÿ× Æß dÅ äÀ âb VàÆ÷ ' Ì‡Åe ÄeW!€÷‡………À, ‡@À ÃÄåaÔŒÔÔ× ü‡‡öU_7¨÷Dâ$w þþÖT‡ ŠàÆ÷ Aßà0þÿÄàôÅÀô ÕÀe€!îôøƒä€Ÿ zÿ ÄÀ_ìôÌ‡Åe W!€÷‡D………À4 ‡@À ÃÄåêôÄ aÔŒÔÔ× ü‡‡öUÁâþÂÀ ÀÀƒ ŠÀeñ€Ã (11 Â50ÉUÉ•É‹þ€Éú€ñþÿ€ÉEÉ•É5€€öüW,ôè‰É‹þ€ÉÂeÓ±É•ÿ†_7t÷DâÈw þþÖT‡ VàÆ÷ ' Ì‡Åe ÄeW!€÷‡………À, ‡@À ÃÄåaÔŒÔÔ× ü‡‡öUÁâþÂÀ11 ÉUÉ•É‹þ€Éú€ñþÿ€ÉEÉ•É5€€öüW,ôè‰É‹þ€É±É•ÿ†_7l÷Dâjw þþÖT‡ NàÁxþÉ‹þÂÀÂUÀÃ€ÄÅÆÎÎe>Þ €S’üÄ ‘¥Þ û$©Å × à2†!‡ÄeæÀ êôáÿÂÞ ‘ñ‹þÿý÷€Þ ú! ß ÖÀÀÄÅ ìôÃÀ€ ÂÇÅW!óÿÒÅ ÄeÄeËÃÀße€ìôÈ ŠàÆ÷ Aßà0þÿÄàôÅÀô ÕÀe€!îôøƒä€Ÿ zÿ ÄÀ_ìôÌ‡Åe W!€÷‡D………À4 ‡@À ÃÄåêôÄ aÔŒÔÔ× ü‡‡öU_7 ÷Dâw þþÖT‡ àÁxþÉ‹þÂÀÂUÀÃ€ÄÅÆÎÎe8Þ €S’üÄ ‘¥Þ û$©Å !‡ÄeæÀ í®áÿÂÞ ‘ñ‹þÿý÷€Þ ú! ß ¾ÀÀÄÅ € ÂÍÅW!óÿØÅ ÄeÄeÑ VàÆ÷ ' Ì‡Åe ÄeW!€÷‡………À, ‡@À ÃÄåaÔŒÔÔ× ü‡‡öU_7Â÷Dâ¤w þþTÖ‡¤àÀ7úÿw– ŠàÆ÷ Aßà0þÿÄàôÅÀô ÕÀe€!îôøƒä€Ÿ zÿ ÄÀ_ìôÌ‡Åe W!€÷‡D………À4 ‡@À ÃÄåêôÄ aÔŒÔÔ× ü‡‡öUÁRõÄZÿÄåÄ5#SM3Á õÂ9¡ñU ‡ñþñÿ‰PÉ‹þ€ÉÿÀ óOÁRõÂ`1 ÿ‡ñ5þÿüñþ‰PÃÃ þñ5þÿüÉÿÀ ð3Âêô ¡BBBBBDBD7¼þ7ÀþÂe·¶þÂe·¦þÂeöÿQC£É‹þ€÷À˜þ7 –þ7 ”þ‹É‹þ€Éÿ÷mˆþ‚þ†· ~þÀ ó_ PROGRAMMERS MAKE BETTER LOVERS 7Ž÷DâTw þþTÖ‡pàÀ7úÿwb VàÆ÷ ' Ì‡Åe ÄeW!€÷‡………À, ‡@À ÃÄåaÔŒÔÔ× ü‡‡öUÁRõÄŽÿÄåÄ5#SM3Á õÂ9¡ñU ‡ñþñÿ‰PÉ‹þ€ÉÿÀ óAÁRõÂ`1 ÿ‡ñ5þÿüñþ‰PÃÃ þñ5þÿüÉÿÀ ð%ÂÂeÿ7 ÿ·ÿÂe·ôþÂeöÿC£É‹þ€÷Àèþ7 æþ7 äþ‹É‹þ€Éÿ÷mØþÒþ†· ÎþÀ ó_ PROGRAMMERS MAKE BETTER LOVERS ÷ ÀþÂ€÷Àÿrþ÷8âÒ7ŠæÿÀ° æb &÷ ¾þ€ÃbÅ:JJeÍe@f•Šef•ŠeÁ”U7Š´ÿJ`B!ø‡ ‹÷‹¨ÿ÷‹£ÿ Ð! ‚Ðþ ·Š‘ÿðe þÿ 7Š…ÿ&w ŠþK6€÷•pÿÎ Í‡Ä Å—%b æØ!Ã˜ „ ÀÊÐýÊEÿ¥Êåå% % Êe ‹w <þvÖwŒþÅÅe@_A Á ý÷÷ ÀþÂ€÷Àÿrþ÷8âÒ7ŠæÿÀ° æb &÷ ¾þ€ÃbÅ:JJeÍe@f•Šef•ŠeÁ”U7Š´ÿJ`B!ø‡ ‹÷‹¨ÿ÷‹£ÿ Ð! ‚Ðþ ·Š‘ÿðe þÿ 7Š…ÿ&w ŠþK6€÷•pÿÎ Í‡Ä Å—%b æØ!Ã˜ „ ÀÊÐýÊEÿ¥Êåå% % Êe ‹w <þvÖwŒþÅÅe@_A Á ý÷7´÷Dâ¬w þþÖT‡ –à7Ö ŠàÆ÷ Aßà0þÿÄàôÅÀô ÕÀe€!îôøƒä€Ÿ zÿ ÄÀ_ìôÌ‡Åe W!€÷‡D………À4 ‡@À ÃÄåêôÄ aÔŒÔÔ× ü‡‡öU7ÜÁFý ìôÃÀ÷P÷ ÖÉ•÷ ÎÉ• Ä ÷ ÂÉ•÷ º ŠÅ÷ ¬ÅI‘Â÷ ¢ ŠÂ û÷ ”É•Å÷ ˆÅI‘÷ ~ÅI‘÷ z ‘Ä÷ r ‘Âa(÷ fÉ‹÷ `@Ä€÷ VS’÷ PS’àÅþÿ÷ @ÀõE÷ :@ÀP!ÿÂ áÂ÷ $É‹Â ûQ$ßeìôÃÀ× · ~ÿw*ÿDaDñ5€þÿü‡_7€÷Dâhw þþÖT‡ bà7œ VàÆ÷ ' Ì‡Åe ÄeW!€÷‡………À, ‡@À ÃÄåaÔŒÔÔ× ü‡‡öU7ÌÁFý ÷P÷ ÌÉ•÷ ÄÉ• Ä ÷ ¸É•÷ ° ŠÅ÷ ¢ÅI‘Â÷ ˜ ŠÂ û÷ ŠÉ•Å÷ ~ÅI‘÷ tÅI‘÷ p ‘Ä÷ h ‘Âa(÷ \É‹÷ V@Ä€÷ LS’÷ FS’àÅþÿ÷ 6ÀõE÷ 0@ÀP!ÿÂ áÂ÷ É‹Â ûQ$× · ˆÿw4ÿDaDñ5€þÿü‡_7´÷Dâ w þþÖT‡ –à7ž ŠàÆ÷ Aßà0þÿÄàôÅÀô ÕÀe€!îôøƒä€Ÿ zÿ ÄÀ_ìôÌ‡Åe W!€÷‡D………À4 ‡@À ÃÄåêôÄ aÔŒÔÔ× ü‡‡öUÄ Àñ5 ÀUÄÂ·ŠÂ·¢ÀÀÀÀ7a–7bÃÂ „ ‚„à±DÃ ù‘ŠÄÄ%DÃÄ`Ä`Ä`ƒÂ„àþ„`ƒ „ ÀU É5€ýÿ1É5€ýÿñÉ5 ýÿÄÀE É5€ýÿÂ€±É5€ýÿqÉ5 ýÿ„ !†ÅmÚÿÅmÖÿ®†À5ÀU¨ÀU ÀE£_7€÷Dâlw þþÖT‡ bà7j VàÆ÷ ' Ì‡Åe ÄeW!€÷‡………À, ‡@À ÃÄåaÔŒÔÔ× ü‡‡öUÄ Àñ5 ÀUÄÂ·ŠÂ·¢ÀÀÀÀ7a–7bÃÂ „ ‚„à±DÃ ù‘ŠÄÄ%DÃÄ`Ä`Ä`ƒÂ„àþ„`ƒ „ ÀU É5€ýÿ1É5€ýÿñÉ5 ýÿÄÀE É5€ýÿÂ€±É5€ýÿqÉ5 ýÿ„ !†ÅmÚÿÅmÖÿ®†À5ÀU¨ÀU ÀE£_÷´çÂ†" — Ö"ü‡÷5(ôwh÷ T÷ ~‡·b÷ F÷ p‡·U÷ 8Â¥:÷ Vé†w®Â¥/Áw@ÄÙ"÷ ¥!÷ óÃ÷ ¥íÃ ú÷ éè‡Â¥=å÷ éâ‡À ÷ dÁÝ‡Áe?Ú‡÷ 6wä#À ÷ÒÑÄÖ"Ã÷ ¸¥ÉÃ ú÷ ÔèÄ‡Â¥=Á÷ Èè¾‡À ÷ "wž‡÷ w–†À ÷ ¨è‡wRÿæðÞ .‡w-„úó5?õ 9÷r7z Þ ‡w-\úÂ,÷· ^Â·pí÷´ê÷ î÷ë>èƒ÷ë6ä÷ ŽæÌÖ]Ê÷ pwt÷ $è‡Á‡wÎþÁQÁVÁuÁW÷ rwˆå— A‡Â¥Z‡ÃbÀà37øì÷”ò<ê÷ šíÄœ3ÁÂóE÷ ¼íÀ, Ä ÷ Èì÷ pí3Á÷ íó5 Ä„7ªì÷ Rí³÷ ‚íÁ:ò÷ ¸æÀn7Œì÷Ðé÷ .í3 ÷ ^íÀFÁB÷ ŽæÃª"ÀÁ@÷ ~æ× ¼"÷Àˆ!÷ ºwžpŒætÿˆ†ß%ÿÿ& æ1ÿˆôææ)ÿˆ÷Š¾ý‡Á(ÂÐ!÷ Twjâ÷ úÿ Àßîÿ· êÿÀæÿ÷ 8†ð¥öÿ*±ÂeHÁ w7Àÿ7¼ÿ‡÷ ¸ÿ&÷ ²ÿÀ€U‡˜¬„:.!˜¬ ¾0!˜¬\}2!˜¬€:4!˜¬a6!˜¬YM8!˜¬|…:!˜¬<!˜¬%@!l©€:B!l©aD!h©€:F!h©aH!j©€:J!j©aL!z©€:N!z©aP!m©šÆR!¤‡ËQT!ô¨:^V!©CEX!=©è&Z!D©ƒ:\!e©º^!t©š^`!v©šb!v©""d!v©?Tf!¿©8rh!ì©|j!ì©Ìel!ì©”’n!6ªýp!6ª€r!6ªÔ€t!7ª4v!7ªfx!7ªö&z!T«||!T«”’~!m«Q€!q«ˆZ‚!•«[M„!ë«z}†!€"è!Ä™ðsâySYPARSIZEß ¸î„&ß ¸î6#ß ¸ú0#ß ¸`#ß ¸BÖ,ß ¸B-ß ¸f 6ß ¸fN5ß ¸Æ5ß ¸ö5XXCOM÷ Rü÷m<ûHúwBú÷°ë÷% Dú÷5@Lú÷Nú÷-6ú6úÁSÂÐ!Ám ÁT ÁUÁlÁ6Â†"wäÀ†"ÈÈìùðêù÷ æá‡õ5€ä÷<ë€õ-Òùã÷Ðùòþ÷Æþ÷fý &÷ È„7Öå÷rëã÷ xæÅbÂÈþ· –þƒ·þA÷ðê€÷ vÁ-~þ¹‚ƒÂ%¯‡Â%€†Ák÷ jÂÀÂÀ ý·‚þõ5 2Áë÷ ß†w7Hþ5 5 õ&þõ"þ5 5 5 õþ5 5 5 õ ÷5²ê&Îm¼êBÂm¶ê Šõ‹w´D- w þä÷ ¦åõ‹ó7ðä÷ ˜å7ÊýõÀýõUõ5 >7Ðä÷lêâ÷ ªå7Àä÷ håB„DmAw¨ä÷ PåCƒà÷ pý†@BBmí„à7!\ý†wLþ7|ä÷ $åÃVýõ÷ På÷hä÷ åµu7,ýw6ýCõÐ÷ *åw- "ýÃ w 4ä÷ ÜäõÐ÷ åÂý÷^é€‚‚‚‚‚ƒ‚‚ÂeÃEøÿÃƒƒÀ° S‚ ÷ l†¬*öÿKð@ð@÷ ¤ùÀÁŒÂp÷ F;‡÷å@¸ü Áe@Â ó÷et÷wn÷å÷"ûÀ1#Èküàfü÷ úwRü÷ òwLüÀ†"÷ zã†w(ýõ5€Án74ü‡ÁÁoÂ†"Á ÁÂJ÷ ²w¬Û¡‡ærÛ7 nÛ÷ ’·fÛ‡Á”úÅŽúAá‚wFæÜûwÌûwüû÷ ˆÜ†w(7¸û7Àû7`æûDÄí´ö ‚ÁgÂJ ÃŒ““wÁe?÷ „ÿwºûÖ‡ÃƒÃæpöænö÷`jöwdö÷bXöÄEþÄebÃb áÂRûƒ ƒ÷ Hø!bÅbÁÁ ý7^â÷¤ß÷ :ãÀ`Âà ÷eöwöÄbÃÞ·ö·ö÷Œôõ Àøú÷¦ù*û7à&ûÃbÄ&÷ ~7 â7Pß÷ ®âÎe÷,Ðú+3 ÎeÄ$Ä5!7èúÅÎeúÿ÷ >sÎœÎìŽŠ Ó&÷ LðÀ7 ¶ú€Aaw ®úƒ&ÎewàA÷ zâ÷zúwtúwˆá7ÎÞ÷ ,â Åf÷ â@!éKÅÎe÷ ÐA!àsÄ÷’æÔÅÎe÷ °Ös÷ âB!B¦·.á7tÞ÷ ÒáÅÎe÷ †B!»Ös· òù÷¬äùƒ÷œÜù÷ ÞáÎŠÄüùaE÷ Z®7äà÷(Þ÷ †áÖËíÚùÀ÷ °áw®þwVÁÖÎíˆùÁjÃŒ“ÂÐ!“““““ÂŒ÷ w ÙÅí˜ùÅ5æw!Vùã‡w!†ùà‚&Na·%|ùÛ‚‡À.! ˆ!ü‡7 dö÷ˆ!\ö÷ \ö‡÷ ˜öÅåÀÀ%‡=÷ ïw6ÃH)Ä÷ röÄ ûÄH) î‚Àø À)Ååê‡Î)Î)Î)Î)Ð)Î)Î)‡À $ .!#ú-÷ôµ@gÐØg(nØ5k‡Á, À(÷a÷ þÁV À(÷÷ ò÷vø÷÷iÁP ÷÷NÀV!ÁÂ$ðþÿTÂ ùÁì æ÷÷ äÖ]÷7Ö] ÷÷,ø0÷&ø#÷%TTø÷®ö÷ªö÷¨ö ÷¤öæªöÎ]ªöÎ]ªöÖ]ªö÷5˜ä÷ ö÷œö ‡ÁeÁf ÁwvþwtþÁgÂT)ÃØ!Êââââ¢(ÁRÂÐ!Á& æ’"‚÷ (w"×÷æãÀÀ%ÀƒÀ% ‚‡ÖÒß ¸B-ß ¸fN5ß ¸Æª6ß ¸Æè6Àdÿ÷%TTVÿ÷ôý·ŠPÿ÷Lÿ÷Hÿ÷-Dÿ*ì"‡Á_w2÷”ëæØ(Þ ‡w-ÿúÂÂe·8æ÷|ã÷ Úæ÷ÿÐã÷ çéw(æØ( Þ %‡w-æþúÂ,÷÷æ÷Dã÷ ¢æW-TTÂÂ, åÂ ÀÜ÷ ´Ý†Á`w¢À¬þ÷ªþÀå÷ã÷ bæ÷bãšþ÷dã–þÃ ëÓ$÷´þ÷ Ä÷µBãwè÷Êê[À 0Á÷ Ê4‡÷%TTNþw:÷àü@÷Þü8÷ †÷Vþjþ÷ ÷Ìü$÷FþXþ÷ wH÷ ð÷ X÷Dþ<þ÷ Œ·Šþ‡Á,÷5¦êá÷ `†wŠ÷%TTàýh÷vüÖ÷tüÎ÷ðýþ÷ †÷fü¾÷àýòý÷ t÷Ôýâý÷%TT¦ýK÷<üÒý÷:üÊý7 ¦ýæØ(Þ †w¸w-€ýø÷,Œýô÷„ý÷ ¼÷ ðÂŠý÷Æé€ÂþûÂäæ†ý·‚ý·Š`ý÷ Î·výÙ÷5ìéÐ÷Âr*Ân*— t*ü‡÷ üÂz*— „*ü‡wX÷´*Jý÷jéa÷¤*>ý÷|$6ý×-ý÷R%(ý÷”ûà ÷ýýÿ ý÷„ûÎ÷òüýÿ ý÷• ×ü÷pû¸÷Ôüìüÿ îü÷`û¦÷ÆüÜüÿ Þü÷Zû–÷ºüÊüÿ Ìü÷@û„ ÷œü¸üÿ ºü÷0ûr÷Žü¨üÿ ªü÷"ûb ÷vü–üÿ ˜ü÷ûP÷hü†üÿ ˆü×-Rü_æØ(Þ [‡w-2üú÷>üÁhüÂ Â5@ Q$Â5@Q$Â5€Q$w:ü÷ R÷, :ü÷ ‚Ü¦÷ *ü÷ p·Šúûwü÷ d‚Â5@@ÌÂ5€É÷5zè÷œÖûÁÂ5 ½Âtúâa·Òâ÷à÷ tã÷mà°û÷¾ûÈû÷öç€÷Jú¼û÷ 2£Y÷ú®û÷ÜçÁÀ Áe ûwjû÷ Ü†ÁwT÷ ^û÷b€û7€û7vû7 RûæØ(Þ "‡w-0ûú÷,<ûö÷4û÷ l÷ ÷-°ù¶ù·Š"û÷ ¶÷Šû÷e 2û÷`çß÷ öÜ÷Tç÷"ûâ÷êúRß÷ °âÀû÷pùÐ÷ ÀbÁÊúwêá÷.ß÷ Œâ7,²úðLù ð°ú÷ ¬âëÁFùÈú÷šú¶áw°á÷ôÞ÷ ãÂrú;Ã"ç÷˜á÷ÜÞ÷ :â7†á÷ÊÞ÷ (â7¬Nú7¬Gú7dá÷ ¨Þ÷ âð5Hßˆ÷Fá÷ŠÞ÷ â·8á÷ àáú÷ â‡÷ .w–ÙÀÀ÷ ‡×-êùTT÷†øÀe7á÷DÞ÷ ¢áÁ‚Ñ-–ÞW ”ú‡±‡÷ºù„Þwã÷ÀùÒà÷âùÞ÷ tá÷pÞ±ù÷kÞªù÷hÞÆù‡wù÷%TT‚ù÷ :Ú+‡÷ø7–ù÷ *Ú#‡7ŠùÄ´*Å¤*æÜ ÷ Ú‡÷ Ú‡U%ÔÎ ñÖ÷ô÷÷ ìÙ‡7PùÀb‡ÐÐ¦å÷5ÆåÐàðÍ!ùþÿ‡ÐùŠ‡÷4ù à÷üødÝ÷ ÂàÀ ùÐðÐlåÐòø÷ Àÿ÷ äø ÂÞøÐÔðeþÿÂ û7òø÷ Äà‡Ð¤Ð¢Ð Ð²øÐœÐšÐ˜Ð–Ð”Ð’÷Äø°ß÷ŒøôÜ÷ ŠàÀb‡÷ "÷Öä ÷~øß÷ øÔÜ÷ 2à÷fø>Ý÷ `à‡Àd ÂÝ^øÂÂ ÈvøˆÈUààhø·Xß÷œÜ÷ 2à‡÷—þÿ$_ @ÄÄEðÿÄæêôßêôß Ÿêô‡_ @ª"¬"®"°"²"´"¶"¸"N!P!J!L!F!H!B!D!ß ¸fN5N#Ê!H#÷ R#$XX:À“"7’öÿ7˜ñÿ÷ ”ÁewvþÀ\#÷ „À HÀe \ ú‡Àˆ!ÁÊ! Ãè!÷ z.‡ð•#÷ f.‡÷ |Àˆ!÷ pß€Ö!ÁÊ!1 ÷ V‡æ0#ÿˆ‡ææ)ÿˆ‡÷ŠfÿÀdÿÁbÿ7ùwŽùP ‡Á!ð¥ðÿ*ÁÁ"ÂÐ!÷ îwÞÀ.! ˆ!ü‡7 Šû÷ˆ!‚û÷ ‚û‡÷ ¾ûÅåÀÀ%‡=÷ ïw6Ã"$Ä÷ ˜ûÄ ûÄ"$ î‚Àø š$Ååê‡¨$¨$¨$¨$ª$¨$¨$‡À $ .!#ú-÷ôµ@gÐØg(nØ5k‡Á, ÀNüa÷ þÁV ÀNü÷ ò÷œý÷<üiÁP ÷4üNÀV!ÁÂ$ðþÿTÂ ùÁì æDü÷ÆéÖ]8ü7Ö]0ü÷Rý0÷Lý#÷%TT>ý÷Ôû÷Ðû÷Îû ÷ÊûæÐûÎ]ÐûÎ]ÐûÖ]Ðû÷5¾é÷Æû÷Âû ‡ÁeÁf ÁwvþwtþÁgÂ.$ÃØ!Êââââ¢(ÁRÂÐ!Á& æ’"‚÷ (wHÜ÷éÀÀ%ÀƒÀ% ‚‡ÖÒß ¸B-ß ¸fN5ß ¸Þ5ß ¸ê(5ß ¸êb5ß ¸ö5Â†" — Ö"ü‡÷5þë÷ p·Bÿ÷ h·;ÿ÷ `Â¥:÷ <á‡ÁÁQÁ& æ’"‚ÁuÁXÁY÷ Jw–Þ& ŽÁZëæðÞ ä‡w-àþúó5ã÷Ôþõ àwÎþß 7 Ðþ7ŠÎþ7 ÂþÞ 4‡w-¨þúÂøÂ\ @íA÷ bô@mÂU€è÷,þä· „þ÷„þ÷‹‚þÜ÷zþŒå÷Ðâ÷ .æ÷ÜZþ÷œdþ÷œ_þÊÂ¥÷ òÀbÂ:þ·Zå÷žâ÷ üå7,"þ0 0 ÷ æ÷ Jë÷þ.å÷Êêrâ÷ Ðå0 7þ7ŒþœðÀðE÷ âå7 øä÷ åÃ‹ðÀ÷ Ìåð5 7,¼ý7Òä÷ zåö°÷ ¨åÀ¢ýÁ\ê÷ ÚÞ÷’ýwö÷èé,ÂŠý÷µýÁÂ Á,÷5ê áÁÂ Áe ûwRý÷%TTDý%÷ "÷Þû÷µIý·ŠBý÷ ÷%TT"ýSwþ ÂÝ,ýÂÂ·6ä÷zá÷ ØäÀÐáÁýwBÞæ'Þ 0‡w-êüúÂ Áª"Â5@ Q$Â5@Q$Â5€Q$Éè÷Ôüæã÷*á÷ ˆä÷œÄü÷ 6É÷ J÷œ²üÓÁº"÷ ÎÃª"ÀÁŒü÷ ÊÝ× ¼"÷‡· û+ ÀÝ„üÀÀ7Žã÷Òà÷ 0äÑ‡ Â5@@Â5€÷5öèË‡Â5 Âôúâa·Rã÷–à÷ ôã‡÷ –7 *ü7Š(üæ'Þ =‡w-üú÷,üö÷üÀ ÷þû÷úûã÷‚èPà÷ ®ã÷<è3 ÷ Øã÷¬ÜûÛ÷œÔû÷ ž÷ZúÓ·ŠÆû÷ ÷%TT¦ûË÷ Fÿ÷œ®ûÄ÷ vÁ‡÷ŽûXàwòäÁ&èÄbw â÷äß÷ BãB%wŒâ÷ 4ãô¥õ÷ºç ô% î†7-âûê ÃíÖûÃ-Ôûâƒ&·Tâ÷ üâŒ÷ .ãÛ‡ ÁÝ,ûfÁÁÂüçÂ-úç‚‚‚‚‚Â‚„ÎEðÿÎUà·ºß·¸ßw â÷Nß÷ äâ‡÷ âÜ‡Á‡wœû÷%TTÀú6÷5jç2&&ÄœÄì„ŠÅæwÂá÷)ß÷ dâÀ3 ÷ ŽâÀ5À% ƒ7šá÷ÞÞ÷ <â ÁÜ÷ ¨Û…cÄŠÝÖ€ˆ‡$XX:À“"7’öÿ7˜ñÿ÷ ‚ÁewùÀB(÷ rÀ HÀe \ ú‡Àˆ!ÁÊ! Ãè!÷ h ‡ð•#÷ T ‡÷ 4Àˆ!÷ V‡Á!ð¥ðÿ*ÁÂÐ!÷ $wpÙÀ.! ˆ!ü‡7 ìö÷ˆ!äö÷ äö‡÷ ÷ÅåÀÀ%‡=÷ ïw6ÃÀ(Ä÷ úöÄ ûÄÀ( î‚Àø 8)Ååê‡F)F)F)F)H)F)F)‡À $ .!#ú-÷ôµ@gÐØg(nØ5k‡Á, À°÷a÷ þÁV À°÷÷ ò÷þø÷ž÷iÁP ÷–÷NÀV!ÁÂ$ðþÿTÂ ùÁì æ¦÷÷(åÖ]š÷7Ö]’÷÷´ø0÷®ø#÷%TT ø÷6÷÷2÷÷0÷ ÷,÷æ2÷Î]2÷Î]2÷Ö]2÷÷5 å÷(÷÷$÷ ‡ÁeÁf ÁwvþwtþÁgÂÌ(ÃØ!Êââââ¢(ÁRÂÐ!Á& æ’"‚÷ ^wª×÷näÀÀ%ÀƒÀ% ‚‡ÖÒ÷—þÿ$_ @ÄÄEðÿÄæêôßêôß Ÿêô‡_ @ß ¸B-ß ¸fN5ß ¸Þ5ß ¸ê(5ß ¸ö5MAIN=SUB=SPEED=UIC=[SYSUIC=[NETUIC=[MAXEXT=PUB=BUF=ASR33LA30SVT05BLINES=HFILL=VFILLTYPEAHEADCRTFORMFEEDWRAPLOWERESCSEQBROECHOSLAVEPRIVFDXEBCHHTREAD PASS ALLTERM=ASR33KSR33ASR35LA30PLA36VT50VT52VT55VT61VT100LA120LA12LA34LA38LA100VT101VT102VT105VT125VT131VT132LA180SREMOTEABAUDPOOL=PLCTL=WCHK=TASKCOMDEVSYSDBDDDFDKDLDMDPDRDSDUEMê ê ò!èÀÊ$J’F"F"#X#F F F F F F F F F F F F ÊF F F F F F F F F F F F F F F F F F F F F F F F F F F F F F F F F ® € úÿ @ €€&&&&&&&&& & &&& &&&&&&&&&&&p‚ˆ@˜ž“@FLtY`ft}£§«¯GÃÉÏFÕÛLàåêï9ôú !'-3`behlrvz~‚‡‘›¥ª¯behlrz~‚‡Œ‘–› ¥`05075110134.515020030060012001800200024003600480072009600EXTAEXTBÃØâÀ®{ŠÂ¨ðÁÂ„ðÁ%·äê÷(è÷ †ë÷~è è÷5|èÁ÷ Ìå ÁÝ‰è ÷ –Ð•, ÁÝxè ÷ †Ð•]w–Áw†Á.÷ ˜å÷ðˆê÷Ìç÷ *ëÁ"è ÷ TwhæðÞ †‡ó5ùÀ®÷>â óµðÐ•NÐ•OóµçÁ6÷ <å÷ Òì÷ "ÞÁ;÷ *å÷ ÁÎç÷ ìÐ•.wÁR÷ å÷ üÁÂç÷ ÐÐ•.wèÄÂáÄå Ä÷ êä÷ ØÄÄe ÃebÁB @‚†ü ÷ ’Ð•.wªÁ½÷ ´ä÷ ¢ÁpçÁEÿÂbÒ R üÂå ‚Â÷ ˆäÐ• ÷ XwlæðÞ †‡À®ó5÷Â0áÂå ÂÁÂe bÒ%&Â%$ ·lþÿ:é÷~æ÷ ÜéÁÂ%(I ‰2‰¢÷þàÒ÷öàÎ÷ ¦÷ ¦ëÖ%÷ààÂœ ÂEðÿÂó5@ @÷ àã÷ Ê °À’÷ Ìè†wòÀ®Á 5! Á÷ ¶ãD- w è÷ Hé÷ Î7”è÷ <é÷ ÂA÷ d ÷¾í€ ¨Ð•:A÷ P ¨÷¨í¤÷ží€ ¨0œþÿüÿ0œÿÿýÿ0’þÿ0œÿÿ÷àD- #Ð•:Ámõ5 Á`õ5€Áeæà÷RíÎ€ÿ÷Fí€Î€V-‡Ái÷ ã÷ ê ÷Äß õ5 D7Úç÷ ‚èwÿ‡Áw¸ Á÷ Êâ÷ ¸ÄlåÃEÿƒƒƒÄEðÿÄ÷5@Rå ÷ âÐ•:Á @÷ ŽâÐ•:Á@÷ ‚âwl ÁM÷ vâ÷ðìfç÷ªä÷ èÃbÁDÁe?Â¡Â ü÷ Ð•: Â¸ì·0ç÷ Øç·&ç÷ ÎçæÎ=nß-Ž`·#Rì)‡„#'‚‚%&ƒÓ÷(@ì!‡Ä"†Â"ƒ¦ÎlÖ$‡ÅbK †ÁÂÛ¡÷ °Ð•.Ð•:A¡÷ žÐ•.w¶ÖææÂ-òëÂ0ì¦‚Ái÷ wßÁS÷ žá÷4ìŽæ÷Òã÷ 0çÃÅbA ÷ LÐ•.Ã Ð•:õwZæðÞ †‡À®ó5@÷ó5€óÂrÊïµ$û÷Þ óµåÐ•NÐ•OóµÜÁZ÷ á÷ ®è÷ þÓÁ’P”P”A ÷ ÔÐ•:‡À®÷ÎÝÐ•NÐ•OÁ®ÝA¤÷ ÚàÐ•=‡Árã÷ ªÁlã÷ ¢Ð•:‡÷%„ÝwÄÀ’7 ŠÝ÷5òÝÈ%#ð%ç_· pÝð%è_÷`Ý÷ våÀVÝ‡r÷ ºx‡&æ÷2Ý D- jD÷ žj‡ùD- `w :å÷ âåw-ÝWw-ÝSƒ„7å÷ºêbâ÷ Àå@f÷ å÷ ²å÷ØÜµ ÷ ÚåÁê÷ ß÷¾Ü„7Þä÷zê"â÷ €å@N÷Êä÷ råäÖ÷¨Ü ×- Ü ÷òé¬ä÷ðá÷ †å÷âéšä÷Þá÷ tåÁw÷ x‡ÁÁ÷ hwêÜÁùV÷ðéfä÷ªá÷ åf÷êTä÷ üä@Ã–ÁÂÂ B`B‡Ë%æ€÷néÎ€ÿ÷bé€Î€N 1‡Îe– -‚€ -†÷Hé €À÷ °Â À÷ ¤B`÷ÔÛË%ó%€þÿÎe?À¡À üÁN ‡ÁÁ ÁÁÁxÁ` î‡Á÷ ~wÜ÷%dÛÄé7zã÷é¾à÷ äD7fã÷ äøÖw4÷,ÛÀœ÷ PãÎ‡5! Ëõ5 Í€&@CmÂÛ& ææ(ÂúÚ& ÷Âèã÷Xà÷ ¶ã÷Dè€@÷ ¬&æàfæ€ÿ÷(è€Î€€Äxè7Úâ÷vèà÷ |ã6ˆ÷œÚDD7¶â÷ ^ã÷„Ú5! ëCö æ‡Î ‡ ƒÁ ‡wÎþÁ ƒwàþ@àÁw´þƒ ƒÁw¨þ@@mÄÁ7,Ú÷6Úæ"ÚŽ`Ö%€‚w€þÂ÷Ú–%ƒÖ÷þÙ÷ ÊõÕ€õ5 õ•€5 7âwLß÷ ââ÷úá÷ ¢â ÷ Ôâ‡·êá÷†ç.ß÷ Œâ7 ¼Ùõ5€÷U€®ÙÁ@7Àá÷ hâAÍöÁ)À@ÁŒü&÷ á÷ Hâf ff÷ 6µµ µÕ7|áwÂÞ÷ Xâ÷pá÷ â5 ÷ Fâ‡ÁwHÁôæf÷ äÚ.‡&Á’B RR RR ŠÒe É ò€þÿÉ%ò þÿ÷Jæ ÷5Œæ ŠÊm’æ€‡Á÷ ØwZÙÃ’ÅbÂ€ÿ÷æ€Â€÷RæÈà÷Þ÷ jáfÀ¡À ü„&ÄBæ7¤à÷@æèÝ÷ FáNNmD-7ˆà÷ 0á5! ÷v-ó‡B-†K-és-åõ5 Ó$÷:Ø)Žó%ÍwBà÷ êàB-†NÁÁr÷ w–Ø÷Èåà÷^Ý÷ ¼àN7 à÷¦åNÝ÷ ¬àÂ÷à×*Â ‚ËBBmÂ ËBíBmV…B-†÷ ®P‡B-‡7 ¢×– I‡AAmàCƒµ&@@mÂ‚Ë B‚ ËBí`*… ƒ÷ X%‡ ‚7 N×– ‚Aàu÷ 4àÖ÷2×Ásw0‡÷æä8ß÷|Ü÷ Úß ƒÁÁ ÷ wŽ×A#wß÷ ¶ß÷ìÖ B-†÷ÖÖ$BAwèÞ÷ ßøAAmB ƒ÷®ÖB÷ †· ªÖ7¾Þ÷ZäÜ÷ `ß¡‡±ýÀjäÀå7 Þ÷VääÛ÷ BßwÞ÷ 8ßõ5!&ô7zÞ÷ä¾Û÷ ßõ5 õõ5¡‡±ýÀÀÀÀÀÀ‡¡€€€€€‡@@m€ ‡ß ¸B’-ß ¸Bž-ß ¸B.ß ¸fN5ß ¸fh6÷äý÷Üý7âýwäýwâýæÿˆ ‡ææ)ÿˆ‡÷Š²ý‡Á(÷ wÎä"S’ØŒ÷ j÷ :ì÷ ¤æV‡ÁTÀ ÷ „îw†ãN÷ æK‡ÁIÀ Ãf÷ ¦æ÷’ëlã÷ tæ>†À÷ ¼ë†÷Tã9÷LãLã÷|³Dã÷ ¤ë0‡wÿw"ÿw!ÿ@$7Në÷’è÷ ðëw@ë÷ „è÷ âëwÜþ@íA÷ Ðù@m7Êþæbÿˆ†Á$ÁÁ>Á#ð¥æÿ*Á(ÁHw–÷2ã)À–ÁØ ÷ ˆç‡ñ|þñxþñtþætÿˆà‡ææ)ÿˆÚ‡÷Š~þ×@Áj÷ þ7lîFþw@þÅ @Áj÷Üû÷ âýÄRâ5!<Á‚Ä ÄÄÄe>Ä%‚Äå@ÁlÉea÷ ´ýòô$â @Ájwªý÷ å_‡À Ã÷ BåÅ(êw$ê÷hç÷ Æêñ%TIP÷ öä— =H÷ åÄêwüé÷@ç÷ žêñ%TI<÷ Îä6†Áb7Úé÷ç÷ |ê@7 Èéôñ*ñµ/B!7®é÷ Vêñ5·žé÷ FêB· ’é„ ô7†é÷ .êq÷ ^ê‡ÁÁCÁDÁEÁFÁGwß ¸fN5ß ¸ê(5Â Âw Âë ”Å¥ üÅ¥ ùÅå0B¡†€÷ PëAa”ôœÿÿ‡w ë„ææ(æ@ƒf ”Å¥Z+‡Å¥AƒÅ¥9%‡Å¥0ƒÅ¥$Å¥ ÎÅ¥.ÅåÅå÷ÿÅåÒÿÅå@&ÀfA÷ ÜêE€Aa×$Ò±œÿÿ‡æ æ * æ + æ2æ3ÁEÿæÂÎE‚w àê…ŠÂ‚†Á€Ð•-ŠƒÐŠÂÕ0@A÷ xêW ƒÁe`fÃŠ ÀÂ€Ã€ÂE÷ Ôÿ”•‡÷ &÷ &÷ ’•’•€‡@Á(÷ &êf€ Àe ÀeÉÿÀe Àe ‡JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECw êD…&&÷ bÐ•-ÎeÁaÁe»ÿP”P”P”Ð•-$w æéDÅ… ƒ÷ &Ð•.ÀÀÀce÷ †éÀ …Ð•:÷ Å ù Â÷ ˆþB‡ABDEFIMNOPQRSTUXYZ<>¥´¾ÐðôÒ)4@:hqÒÆzÄÎñw Té&& D…•Â¥% “ù„÷ŠÀåB‡&Ð¥VA÷ HýÀ ÀCƒ ÁÁeˆÿÂ!£Â ü„ ÂÂaÂerÿ‚b‚‡AÂÊ ÖÊÐ•%„Ì¥Vå‡P”Ã ý‡Ð• B”f‚÷ ¾ýÃ õ‡& æÎe ýB& ¦æÎeŒý;& æÎeñÏ6H”ÈÅ€¢ ¢È• € Ã ò‡÷ nŠ€‡Ð•Ã ü‡Ð‹Ã üÀ ‡Ð• Ð• Ã ú‡& æÎe<ý & ¦æÎe(ýÐ• A‚¦Þ Ã ÷–%‡& æÎeüüóA÷ xýÃ û‡Ð• Ã ü‡Ð• Aæ÷ ZýAÎ ûÖÂ ÷ $Ð•.÷ BýÂ÷ AÐ•; ÷ °üÃ à‡Â ýð¥ ÿÿùÀ øAá÷ zýE‡AáÂ÷ œýE‡Á¦¶6D‡w °ë5 funhõ‹j÷ t‡uhdB$÷ 8†õŠjwõµ€aw<õ8÷ vý¥öÿ8w& õµÁ ÷ Xœ*AdBbAÁepÂ& ¦fƒÂÁ ÷ ,– –‡ÁPõµ aA”Aíf@pnp÷ dC*8Ö‹Á ÷ ì88ð*Ã‹7ABµ`fÂVõµa¦`& W¨aW¢zÎÉÅ É¥"N Â ðÖ‚õµ€aõ‹jfu-nhwFÉ¥;]õµa)w´þ× ØÿæØÿ"Ã¥öÿ.@j À õµ€a÷ BwÄþ@÷ šõÅ€aõŠjõTIõ•æöÿ& õµaf*÷ vµ*µ“`V@‡æÿÿîæþÿëÆe,æýÿææüÿãw Ôéõ‹jÜõŠjõålùµŠj÷ ¾ÐÉ¥@@õµaÉujkàÆå,b¤€p°÷ Ì5fµ fË‡ðµ ÇÈ•÷ ¸Â‡ðµ¾ðµº÷ Ò‚ÂeõSY÷ ø ‡Æe,5 funhwÂýÆe, õµaõ‹jõµ€a`W¨-Â õ fµ`nw^ýuhnwäþ@÷ \DlõålõŠjõµ€a!CÃeH###33™@ð•#÷ ‡&™÷ æ½•8 †õ¥öÿ*Î–.Îj.‡w Žèõ8µŠjDl@÷ ªT”ÔÀeBTŸ8œ5l@÷ ¼‡@Á(ñD÷ šÁeB&÷ ”‡ð•#÷ x‡An5ŠjÉ)fÿˆ‡ÑÂ&÷ 2‡ / ô÷ ‡ ú ÷R¨õÕ€a¡‡Âå@”‡ß ¸ÆÒ6ß ¸Æª6ß ¸Ò5ß ¸Ò¨7ß ¸Þ5ß ¸ÞN8ß ¸ê(5ß ¸ö5w Šç÷ \‡ðµ)ðµ÷ 8C÷ Òð¥öÿ* ðÕ)ðð*wpð•öÿ*ú÷ j÷‡ðepp ‡÷ âê‡ð¥Cƒ óÃðµ÷ üð¥ð 0ãð•Øÿ*Ìð¥ ðµ= ÄEÕ¥^Ä ûAËð¥æÂe@ÃÎà÷ ‚ƒß‡÷ ÁEp×ðµ÷ ˆðp°æÄ ƒðÎà÷ 8ƒƒ÷ Vá÷ ù†ð•Øÿ*Á`‡ðµ)w,æ÷ Âƒ‡æCàƒ#ƒÎà÷ Î¦÷ Èÿ‚ð†– ‡DàÄ ‡w ìåð*D÷ ²ÂÕÂ ýw÷ *‡ðµ) l0ì,¡‡ð•öÿ*±‡ðÅ)÷ $‡‚ððÕ)¡‡ð•öÿ*ðÕ)±‡0,40,6 ‡ðµðe6p4÷ ¬ÿ†8÷ 0±‡÷ °÷ j÷ Š‡‡÷ Jõ†‡ð8ðµðµ ð*‡ðÖ*±‡ðÃ*±‡ƒ D„PÄ5RÃ ý†R”‡R”R”Ã üøð‹*±‡0Š+æ1ÿˆÅ(ÅeÃ÷ @ß%ÿÿ&ïp’*wÈÿ÷ øfœ(Á fæ)ÿˆ‡fæÿˆ‡‡÷ ¤ÿ8AÁe fÕœ"Šœ(Ã ÕUÿˆ†CÉ—&ð•ÿÿ+‡Å(Åe$&Ä% Ä ý„‡141612Áepðµl2l0p‡,*ÿÿ±‡æ1ÿˆ‡ÄÄ÷ ”ÿU•Õ4 6Ååwðþ÷ ÿBfÁep`pw¼þ8Áe2 ‡~5'‚5;(†5O<Š5cPŽ5wd’5x–5J5 w Nã ÷¨ÌDÐEÄ%~‡Á5!ÁeûDäÄæš5ywŠwŽw’w–wšwžw¢ÂJ5JÁÔÀ©6Ã6Ð”þÀ Å& W¡W¡ ‡‚÷µ{ÐÃ 6ÎÃ˜6ÎÐ”þÀ ÷ BÂe‚eÁ©6÷ rÁ¢ÐÂœÐ÷µ?Ð÷ ^ÄôË7 îËfL…W¡‡W¡÷ÎË÷µÐW¡Î$Ît÷ „ÕÀ<w¬‡÷¢Ë÷ pÕwÈËÁ®BàÀ>5Pæ25ÿˆ‡ææ)ÿˆwŒ¼þ‡VMR -- *DIAG*-*FATAL*-ß ¸BH/ß ¸N¬.ß ¸rD7ß ¸~D7ß ¸ŠD7ß ¸–D7ß ¸¢D7ß ¸®D7ß ¸ºD7Äe9‡Illegal Get Command Line error codeCommand syntax errorSystem image is RSX-11M-PLUSIllegal switchIllegal error severity code %PCommand I/O errorIndirect file open failureIndirect command syntax errorIndirect file depth exceededI/O error on input file %XOpen failure on file %XIllegal file specificationFile %X has inconsistent dataFile %X has illegal formatIllegal functionSyntax errorDevice %2A%O: not in systemInvalid keywordInvalid UICJ7n7ƒ7 7¯7°7Ï7á7ü7878R8j8…8£8¾8Ï8Ü8ø89Äe9‡Device not terminalDevice not variable speed multiplexerIllegal keyword valueNonexistent memorySpace usedI/O error on output file %XWrite check not supported for devicePartition not in systemPartition already existsPartition busyUnknown main partitionNo pool spaceAlignment errorDevice not mountedFile not contiguousFile not foundIllegal device/volumeIllegal priorityKeyword not supported for this terminal driverCommon block occupiedJ7^7„7š77¸7Ô7ù78*898P8^8n88•8¤8º8Ë8ú8Äe‚9‡Task image I/O errorToo many lunsTask name already in useTask image currently installedFile not task imageSpecified partition for common blockSpecified partition too smallPrivileged task larger than 12KBase address must be on a 4K boundaryIllegal first APRNot enough APRs for task imagePartition not commonCommon block parameter mismatch %2RCheckpoint area too smallTask and partition bases mismatchUndefined common block %2RCommon block is task partition %2RCommon block not loaded %2RLength mismatch common block %2RBase mismatch common block %2RJ7_7m7†7¥7¹7Þ7ü78B8T8s8ˆ8¬8Æ8è89&9B9c9Äe9‡Too many common block requestsInvalid time parameterTask not in systemTask already fixedTask is checkpointableTask not fixedNo LUNsTI redirect errorOld device attachedPseudo device redirect errorCircular redirect errorDevice not redirectableLUN out of rangePseudo device assignment errorLogical device not in systemI/O error on output deviceExecutive too largeTask activeCommon block segment count errorAddressing extensions not supportedJ7i7€7“7¦7½7Ì7Ô7æ7ú78/8G8X8w8”8¯8Ã8Ï8ð8Äeè9‡Partition %2R not in system, defaulting to GENLoadable driver support not in systemDriver built with wrong STB fileFile %X not a valid driver task imageIllegal driver task APR usagePartition %2R is a commonDriver already residentDriver requires running system for LOAd/UNLoadDriver not loadedDriver cannot be unloadedDevice %2A%O: is attachedCheckpoint space too small, using checkpoint fileNo checkpoint space, ^assuming not checkpointableReceive data or by reference list not emptyPrivileged task overmaps I/O pageInvalid interrupt vectorInterrupt vector already in useLine not DZ11Invalid speedTask image virtual address overlaps common block %2RJ7y7Ÿ7À7æ78868e8w8‘8«8Ý89;9]9v9–9¤9²9Äe:‡Illegal operation for unmapped systemSymbol %2R is undefined in file %XSymbol %2R is doubly defined by file %XIllegal value for symbol %2R in file %XInvalid record address for file %XPool link error at %P Block = %P %PInvalid driver data base at offset %P in file %XLoadable driver larger than 4KPartition %2R is too smallPartition %2R not in systemPartition %2R is not a commonPartition %2R is busyIllegal use of wildcardTop of pool set to %O, requested amount not availablePartition not system controlledInstalled tasks may no longer fit in partitionInstall device not LB0:Cannot LOAd/UNLoad a pseudo deviceIncorrect assignment of SY: or LB:Executive common partition eliminatedJ7p7“7»7ã78*8[8z8•8±8Ï8å8ý839S9‚9š9½9à9Äej8‡Illegal parameter for executive common partitionPartition reduced to executive common sizeExecutive common(s) not installedExternal headers not supportedNo checkpoint space or dynamic checkpoint fileTask requires system controlled partitionTask not removed, CLI was not eliminatedJ7{7¦7È7ç78@8w xã÷ ‡ðµ)ðµ÷ X8C÷ âð¥öÿ* ðÕ)ðð*w˜ð•öÿ*úðµ÷ ró‡÷ ï‡ðepp ‡÷ ââ‡ð¥Cƒ óÃðµ÷ ðð¥ð 0ãð•Øÿ*Äð¥ ðµ= ÄEÕ¥^Ä ûAËð¥æÂe@ÃÎà÷ vƒß‡÷ ÁEp×ðµ÷ |ðp°æÄ ƒðÎà÷ ,ƒƒ÷ Já÷ ù†ð•Øÿ*Á`‡æ÷ Šƒ‡æCàƒ#ƒÎà÷ jÎ¦÷ Ôÿ‚ð†– ‡DàÄ ‡w Öáð*ðµðÅ)÷ ‡÷ H¡‡46l0ì‡w ˜á÷ .j‡dðµe& & & B öŠð 2PðµðµÎ• ¶“ðµÃ N”Ã Î¥$¶“Î• Åð 2ƒ2Åà‚Î¥ ŽÎæ÷ ‚ƒvÂ Š‚ ƒ“Î• f÷ (ƒ×Æe÷ jð¥óÿ* ð*Æeð•Øÿ*w"ðµ÷ ø†ð¥öÿ*ò0,÷ ÷ Té‡ðµ ÷ €‡ðÅ)ð*ðÕ)ðµ ð¥Óð¥Ólð 0Álð ƒð¥øÿÿ÷ ¨µ‡ð¥ð ðÒð¥òeþÿÁe@Ã÷ €4‡÷ r-‡‚ ÂE°÷ ¦ðepðÕ)ì‚wîþðµð¥, ðµ÷ ÷ N‡÷ wÄþ÷ ´‡÷ L†÷ ~‡B æƒàƒ#ƒÎà÷ ÌÎf÷ Ìÿî†– ‡Â`‡ð¥öÿ*ð*w”±ðµ)0406 l0ì°‡÷ *‡ðµ) l0ì,¡‡ð•öÿ*±‡ðÅ)÷ $‡‚ððÕ)¡‡ð•öÿ*ðÕ)±‡0,40,6 ‡ð‹*±‡ƒ D„PÄ5RÃ ý†R”‡R”R”Ã üøð8ðµðµðµ ð*‡ðÖ*±‡ðÃ*±‡° 6 p 4 ì0Á`p÷ ÿ‡æf¦÷ ˜°6°4‡÷ Lÿƒ÷ ‡÷ ô°eð‹*wÜþÖ±‡w ÐÝð*ðµ÷ ÷ Lwÿ÷ >‡÷ €ÿ‡÷ 2ü‡,, ðñ‚ð•öÿ*±îðµ)÷ ²‡÷ ‚‡÷ j‡ðµ.ðµ ð¥’¤ð¥’¤°0ð¥0l° ƒ0 ðµð•Øÿ*±¡‡ðµðe6p4÷ þ†8÷ (±‡÷ ¨÷ b÷ ‚‡‡÷ Bõ†‡÷ ðµ)ðµ÷ d!‡f¦æ÷ 4†ƒ‚„÷ ‡çÆeðÅ)ðµ . ðe6p4÷ ¶0ž8*wÒý¡ðµ)ðÕ .÷ ŒÿðÅ .‡0,0, †f¦ ÷ ‚í†‡,,†÷ ÷†‡w Ü Á ìì.Â% ÷ T ÕeB ÁÁÁU€Á5ÁUUÁ‹åÕÄ÷ ” ‡plp& Nœ°eðÕ€)‡ð•×ÿ*±‡ð*&f÷ …„‡D„ ÄEõµ/fCÃåŽA ÷ ÒƒB f& ÷ ºB‚eA@0÷ ÈÁ(„‚@0÷ ¶a@ÂeA‡ B0÷ ž€ABÂå ÷ ˆ¦f ÷ ^C‚áÖ@ð•Òÿ*±‡141612Áepðµl2l0p‡,*ÿÿ±‡æ1ÿˆ‡ÄÄ÷ ÜU•Õ4 6Ååw8÷ LBfÁep`pwžû8Áe2 ‡0Š+æ1ÿˆÅ(ÅeÃ÷ @ß%ÿÿ&ïp’*wbû÷ øfœ(Á fæ)ÿˆ‡fæÿˆ‡‡÷ >û8AÁe fÕœ"Šœ(Ã ÕUÿˆ†CÉ—&ð•ÿÿ+‡Å(Åe$&Ä% Ä ý„‡& Î†Á`@€`ÃBöÖ‡æÃ & ÂA@ ‡€ã‚ Ã ÷Öƒ‡f¦æ&f ÅÂ…`Á Á ý°* ƒ”… ‚× × Äõ× ñƒ× ÿî× "D × a‡× z‚ÄÃE ÑÝEp(p°à„ƒ”… ‚× $ú× 0‡× 9ôƒ× A‡× Zîƒ× _ë× : ‚„ƒ”… z‚× [È•]× <È•>È‹8 ƒ”… ‚× %ú× *÷× -‡× .ñƒ× 0‡× 9ëƒ× A‡× ZåƒÈ ‚ ƒ”… s‚× 0‡× 7÷ƒ× *ô× ,A ïdÈ bÁ`Š„ ƒ”… i‚× "A øÁöÂ „ A ƒ”… [‚× %ú× *÷× 0‡× 9ñƒ× A‡× Zëƒ× . £åÂ ƒ”× .× ; ƒ”… f‚× 0‡× 9‚ õ_× -ÁZ í× *ÁSA æ × ,ÁF× = Á@È5 B@ÈU °(wjþ× /*Á0Á ƒ”… .‚× $× -‡× .ƒ× 0‡× 9ƒ× A‡× Zƒ× _ × :Áÿÿ Â DÚ× "Áƒ”… ²ƒ á°0±…„ƒ‚‡f¦æ&fæÈE¢¢^Á`Å÷ ðÄÈUQÅÿÿ÷ ÜÄÈUQ ÷ ÊÎÃ‹€ÈUIáÈUÄ `¢Äe á !ddC ÷ D”¡%¡*¡.C ÈU Å ï0 0 W ,ÈUw6W /@ ÷ :ÎÄ^BDaW£-ÎŠ… W¥NW¥OD!†BÎŠzÉ…CÃE€€C¥ÃC¥D!‚Ñóñ‹þÿ€D! Î‹ñ5 ÑþÁeßƒ“ƒ ÎÃTÂåÔpRpRÎ‹pBCÃ5NŠƒÃKRÎ‹KBAÁE•—:‘Dœ0CŠÄŠý ÷ fÎÄÁeëB”— ¡ƒŠDÒ CS•ÄŠÞü ƒÐ÷ ¤‡W¤†BÅE Br ÉÎ•Š…„ƒ‚‡f¦¦)& 6 l(¢*¶„„í”ƒ ƒÅEÅ'W "Å=N îÎìW :+W =Å1 Â#W ,W /Å%W %W *ÒöÕ€ÎÄW <ÉW [ÅW >W ]¿„ v¢°(°* 6 ƒ…Æe‚‡w æÝÁ w ÜÝÁ& W£+W£-Ž … Ä Ba—¨.Á W£#Á… Ä B•Âå0 ‡ †ËcææËcóSW –%‹ec“e‹`sþÿÄ äÖ#3‹¯‡Ö±‡& æƒË¥÷ Zÿ÷ ^ÿC…„‡w xãÁ(ñD÷ <ð8#ðµðÿ"ðµ#)ðµ%œœÃÅƒŒ‡ƒŒ‡ƒŒ†Ä¥Ä¥ †æ•Õÿæ•Ëÿæ•Ôÿæ•Óÿw Ä 0 ð*0 @Q$ Ñ 0 40 60Š)ðÕ)ÁeB÷ ‚‡÷ zñ:ðµ#÷ Ô3†&œ*w¦÷ $ù‡ðµ#(ðPðÕ)÷ †ðµ@#ð¥Çÿ*ð*fff÷ Z±±‰‡÷ j†&œ*wDðµ.÷ H3‡ð5ð(8ðe$8wä2€æ•Öÿ2&À(Áe÷ ^€†æ•Ùÿ%p8Éq ðµðµ#)÷ ¼ †ð¥öÿ*Rð*ðÕ)ðµ@#0læ•ÕÿCðµ# 02ð•ðµðÕ8÷ Ö00œÄ¥‚Û‡œAÄ¥ÕÄŠðð•000÷ ¦‡0 @0 ð‡&œ*0 @÷ ºuÄ÷ Þðµ#ÁeB÷ "÷ °÷ °•*±‡÷ ˆ ÕeBÆå•Åe>Ä€ … ðµ #ÍÕÄ ðµ#ÄDÃÍÅ ÑÄðµ#Ä…&0 ðµ#Õü Õ÷ ÷ :0@°Æe° 6ðµ@#040 6w–ðµ!p2‡w 2àÁ(B‰ Cƒàƒ òñ€€DBÂe¦æ?ÿˆ‡±Dñÿÿ(1 >‡w àÁeÁEƒ ‡ÀúÊ„D`Ä ÊÁbˆl„ ˆlr‡w Äß B€ÁeÁE"s ‚ÂÅs-ƒÅÀîÂÅCsàÃlÈÀ¡±‡w HßBC œ"¦æ&æÿˆ‡÷ <†ÂÃSYïð&*‡°p0p2ñ1ÂEÏÿÂ%0ð•ðÿ*w8Å(ð•Ùÿ*Åeœ"f¦æÿˆ‡D CÓBðÕ.E‡141612Áepðµl2l0p‡ðµ0fÂ(& Âe Ê%ÿÿ¦æ&æ&ÎeHæ ÷ àU• Â…ÃÂE•ÕfÄ÷ èp†ñ± wV÷ "‡f÷ ¬†&œ*÷ °•*±‡ÄÄÄ ðµ f÷ bu ÷ Š‡ñ± ‡ð‹*±‡8AÁe fÕœ"Šœ(Ã ÕUÿˆ†CÉ—&ð•ÿÿ+‡Å(Åe$&Ä% Ä ý„‡÷ äÿMÄw 0Š+æ1ÿˆÅ(ÅeÃ÷ ‚ÿß%ÿÿ&ïp’*wdÿ÷ øfœ(Á fæ)ÿˆ‡fæÿˆ‡‡÷ @ÿðµ82Áe&À(÷ Úü€0 0 0 80 B0 0 0 0Š)ðÅ#0Š.‡ðµ.ðµ ð¥’¤ð¥’¤°0ð¥0l° ƒ0 ðµð•Øÿ*±¡‡ðµðe6p4÷ º†8÷ bý±‡÷ j÷ $÷ D‡‡÷ õ†‡,*ÿÿ±‡æ1ÿˆ‡ÄÄ÷ lþU•Õ4 6Ååw†þ÷ šþBfÁep`pwîý8Áe2 ‡÷ *‡ðµ) l0ì,¡‡ð•öÿ*±‡ðÅ)÷ $‡‚ððÕ)¡‡ð•öÿ*ðÕ)±‡0,40,6 ‡ÁeBÉð8÷ X‡$&w Xãð*÷ ®‡÷ ‡÷ "‡w <ã÷ (‡w¸‡w ,ã÷ ú‡w®w ã÷ ó‡w¦w ãBC œ"¦æ&æÿˆ‡÷ <†ÂÃSYïð&*‡°p0p2ñ1ÂEÏÿÂ%0ð•ðÿ*wÅ(ð•Ùÿ*Åeœ"f¦æÿˆ‡D CÓBðÕ.E‡ÄÄÄ ðµ f÷ Pu ÷ º‡ñ± ‡w @âð*ðµðµðµ#Â ò ñU@¦Âe÷ ¸‚‡÷ †æÎe¬wññ1 ‡ÃÄÄ%ñ,ñ, ñññ×±‡w ¦áð*DÅ Å ýæ¦!…‚ñU€q•q•ÂåC Ó¥:„ Â úÄCÃe÷ B‡Ãññ÷ (þð•Éÿ*‚ƒ‡w &áð*æÂƒ ‚æ¦)Ä”Ä%.&Ä%;DÂ ÷ƒ ñ5À)ñ5@D…ÄDáÄ Í¥*CÃe÷ À‡aÄ%wñUXñ5@ƒ âñ5€sñU€Ä„íÄ ñUþ¥*ñU ÄÅ ñ5@XñU@ñ5€áÄ„íÄ ñUþ¥*ñUÄÅ‚öƒàÎàÃ Ê¥*Ã%C!.D`÷ ’*‡ƒ‚wúþÆeCÃ5€ñU‚Ã5 ±±± Ã5€±Ã5@±‡Æeð•Êÿ*±‡ð‹*±‡0Š+æ1ÿˆÅ(ÅeÃ÷ @ß%ÿÿ&ïp’*wÈÿ÷ øfœ(Á fæ)ÿˆ‡fæÿˆ‡‡÷ ¤ÿ8AÁe fÕœ"Šœ(Ã ÕUÿˆ†CÉ—&ð•ÿÿ+‡Å(Åe$&Ä% Ä ý„‡Ä(ð•Ùÿ*±IÄe(Ì ññ1 :¦æ&Âe´ ÷ ¬„Œíƒ‚1-1- 111¦þ ‡rrrrr‚– ‡æ¦& ƒ÷ ¶ƒ‡ñBÂeÄ÷ ,ÃÂà„ä÷ žwîð•Ìÿ*‚ƒ±‡ Ëw Þ&Ba —¢+—¢- ‚ Ä Ê¥#‚ Ë å¥.‹ Ä ÅæU¥ Ä€”Àå0 ‚Ë‡ÎÀb‡Ë‡Ë‡`‡€Î Ä éÁ¡€€‡±û&fæÎe…”Þ ‡Ã ûÖ€‡÷ :‡÷ $÷ LÞ ÷ ( ‡÷ LaÞ ÷ ‡TaÞ ê‡ÅÅÅ@ÅÅ`‡W!Z‚W!A†W!9‚W!0‡ÅåÒÿÅå@‡±‡f&æÄ5Ò•[Ã÷ "Ä5Ò•,ƒ“÷ Ä5Ò•]ƒ„…‡ÃEÿÃÃÅÄ5 Ã5ÿÃÃÃÅ ø… ÃÃe0ÒŠÃÃÃÃÅ õ‡w ŠÜ‚Á Ò¥[Ä,÷ &‡æÄ]÷ …‡ÁÅ5ÿó‹s‘‡…¡Á ü±‡Á „DáÄ w$þæ¦1 ññzññ÷ ù†ñ÷ 1 1 1 1 1 1 ‚ƒ‡DEÄeÅe $ $ ‡w xãð*æ8Fðµ÷ îðµ€)98÷ ÕeBÕ&& ðÎå¶ÕU€Ä÷ ‰†ð¥öÿ*ð¥åÿ*Æeð*Nlv°°Î‹œ*ðµ.)÷ ¨ „& ðµ#ðµ!ðµ)&ÎePæÂ(ÂeÊ¦æ&æ•&Ä÷ ~†•p*÷ Àwð‹*±‡8AÁe fÕœ"Šœ(Ã ÕUÿˆ†CÉ—&ð•ÿÿ+‡Å(Åe$&Ä% Ä ý„‡0Š+æ1ÿˆÅ(ÅeÃ÷ ÿß%ÿÿ&ïp’*wrÿ÷ øfœ(Á fæ)ÿˆ‡fæÿˆ‡‡÷ Nÿðµ82Áe&À(÷ J€0 0 0 80 B0 0 0 0Š)ðÅ#0Š.‡¡ðµ)ðÕ .÷ ¬ðÅ .‡w jáÁeÁEƒ ‡ÀúÊ„D`Ä ÊÁbˆl„ ˆlr‡w &á B€ÁeÁE"s ‚ÂÅs-ƒÅÀîÂÅCsàÃlÈÀ¡±‡÷ ¢ðµ)ðµ÷ Â!‡f¦æ÷ ˜†ƒ‚„÷ b‡çÆeðÅ)ðµ . ðe6p4÷ 0ž8*wÖý141612Áepðµl2l0p‡,*ÿÿ±‡æ1ÿˆ‡8Áe2 ‡ÄÄ÷ ¼ýU•Õ4 6ÅåwÈý0,0, †f¦ ÷ ‚í†‡,,†÷ ÷†‡w ”ß Á ìì.Â% ÷ :ý ÕeB ÁÁÁU€Á5ÁUUÁ‹åÕÄ÷ *ý ‡plp& Nœ°eðÕ€)‡ð•×ÿ*±‡¥Æº~€,›c,|³º~–,AAQQ2Œº ªTITISYSYTICLOVOV†®VÐ³øŒ†bØb„ Ð³®VÐ³ÀˆÈÐ·êÿ÷P ÆàÿÅÖ Ä® ÷ Ð Ìe÷ à Œ ÷ â ÷ æ Œ ÷ è Œ Í5÷ ä ÷ è Œ Í5 ÷ ä À"÷ ä ÷5âÖÀ÷ Ô À ÷ Ì Àè÷ ð, w ú÷5 CŠÃÁ‹ÁÅ€÷ ¬ ÷ BÁü ÷ X‡÷5€r÷ 2× †×-|†÷r±‡÷h÷ ÷ ø÷5€>÷þwBÿÁTÂ÷ wBÿÀ Pæÿˆ‡wŒdÿ‡€ @ €€%2€>K€Wd€p}€‰–€¢8©°©(ª ª««¬€¬Ð¬x¯ð¯h°à°X±Ð±H²g³p³z³Áöÿ÷ (÷ ® ÈæÿÁäÿ÷ ÷ ž ÈÚÿ‡f&f÷ 7~ÿ÷ øw¾ÿ7ºÿ7¶ÿ÷ À‚ `wžÿ ÷ Z w’ÿ ‡7,ÿ‚ó‡7,ˆÿï‡ ±…‡æÌÂÚÞ ÂÚ– ‡Þ ææõ@‡Ð ¦÷ |‚¡Þ ’$õ€ò þÿî’$±öfE7Úþ÷ 4€`ÂÚ æÐÞ ÂÚ ‡5,‚÷‡5,ó‡ ±– …‡Áà u$†· ’þ†‚ øÂ‡ 1,ù‡‚1,ô‡J ‡±1,ù1,õ‡ÁÂ÷ &Ä¬ÿôÄeøm÷ b7Žÿ„¡Þ &Ä‚ÿ÷ Je$â$)d÷ 8÷„±‡w & ÃˆÅÄÃAÁ÷ – 7Fÿ@m7<ÿ÷ 1 C7Š0ÿ÷ îpMŽ ÷ äðw"÷ Ðð·Šüþ7üþ /÷ ´ð*wæþ÷ 0÷ 7ÖþwÔþ ÷ ’÷ ƒ`÷Š¸þ÷ Èô·ŠªþÀ¨þ÷ èÁefA÷ ` ÷ TwŽþ÷ ¸7‚þw€þ÷ >÷ ÄÁhþ÷ ’À`þ÷ p& &Žì—%ƒ÷ ŒNõÁ<þ÷ –V€÷ ÄÃ(þ÷ ÷ (Â÷ JÃþÁþ÷ Üðs÷þþ÷úýÁþý÷ :Äewºþ÷ >÷ x÷ Æ÷ A÷ Òý‡CàÀž ÂÁ÷ ˜ ‡w ZCB±÷ v÷ Pø‡‡w >ÅŽeCå%EÄÈ& 7 ŒýBd÷ F÷ ‡wtýãddcAcAdã±ÁJý¡– 74ý‡æA÷ ª&ÀeÐ Ð Ð ÐÃÂCmõ †ˆ &‚mŠó€ƒ‡æŽ`ÎeÞæŽ`Þ‡÷‹æüÓÃƒ`ƒ ¡±‡fà‘`‰²B`Šá‡÷ J¦÷‹®ü ÷ Òÿ‚÷ †æ÷ °ÿæƒ÷ ”ÿ÷ ˆü±÷ ¡ƒ– ‡‹ƒàò² ‡±`pð ‡f& €`ð,ø‚ ‡ð,ó‚‡ð, î‚&àmV‚– ‡·~ÀBæ‚ã‚c€eÂ ý‡žÀž"&àe·#œ÷ Ú€÷ ð‡Á( ˆ‡&÷ ÁeB—%þÿÁe‡1bÀe1^1\1H1J1L1N1P‡&&f÷ 2÷ ¤ÿ€h÷ ˆÿ÷eþÿ^ÿ¿ZÿÞ ÷eRÿ‡Q ';<f&¦‚Þ €‚‡w ÷ Z‡EÅÁ‹Á÷ ´ÂÎ AÑÁB` ðÀ7ºp‘AÁ÷ w”ÁL ÷ Ööw ÐEÅ÷ p†Á÷ jÄ„ BÑÂ„`p‘÷ bðn7hðfAÁŠÅÅ@aÀe· V· N‡Áe?ÁE?‡& fŽŽŽŽŽŽæYÿˆ‡· " · Àú0 úBŠÂÀþÂ€`±¡ Àú±¬ùðÜ‡w fÀž ÷ rE†ÃþÂ— Àÿ †Á@÷ jÿ‡w`RýK`/ËÿÿÄú Ãÿÿ& D-ù‚ô‹öNñÂ±òµ÷ NÃ` €ÜÀ` ƒ³ÁÀž ÷ ªµ– – ‡·0þ÷ ÿ‡°Š‡· þ÷ úþ‡ðŠ‡·þ÷ êþ‡ðÕ‡ BÁ‚ÿ¡B— ‚Â @€`‡Š ƒ‚ B`·\ÿ¡±‡¦÷ ²ý÷ ÿ‚‡·Dý€ ÷ žý÷ $ÿˆv ÷ „ý÷ ÿ€mˆ‡¡`÷ lý±@÷ `ý¡‡&æÿˆæ3ÿˆ„7ÿ¤è TKB>ÑÌ†$%l¨¯”DSYSYSYSYTICL>â#p"TKB -- *FATAL*-Run aborted×'&ÿÿæ1ÿˆ‡ß \üß \Ú"ß t #ß ˜Ðß Èpß àß ø´ß ¨ß LRß ”Jß ¸À.ß ÐÀ.ß Ðþ/ß Ð¸/ß Ð¾5ß èÀ.¦Þ5Îe‡w üÁ,…Bvù òÊEÊU ù ‡‚Ê5ìùB‡wù âw ÆÁeÁEƒ ‡ÀúÊ„D`Ä ÊÁbˆl„ ˆlr‡Á€ÁeÁE€±,ù‡pàJ`‚2 ‡Ø×ÿÿÿÿ$¦Ê5‚ú‚‡òû¦¦‚ Ž Ê5ùÊUŽ‚öÖ‚å Dnx$‡ÊE¡*‡Ê5@*& ¦ÎEð& & ¦¦f&Ã‹DÄeæÎfææÿˆ ‡Ã‹ ææ)ÿˆÌ‹€ÊU±‡&æ †€mÎ ù æf ÀAN ‡ã€ ö ÷–%‡&æ¦ff… Þ ‚ƒ„…‡&æf…Þ ƒ„…‡‡ P °\DÈÀhPhÀttP˜4!h€4!hŒ4!@htÀø¤P\!¸$|˜°$¸$ ˜¼'¸$@˜¤*8DÔ5àDP6¬ÔìC|øÔLE ìH°¤ øO°TøVh(ìø]ø#d4`ø#@bø#$(dLXÔ”j` DdLˆl¤#PXpp¤#X|t¤#¼Xdv` HLXyhÔà„À.¬D„À.È ¸ˆÀ.ì ÄŠÀ. ÐŽÀ.À Ü˜À.Ü èœÀ.Hô ¬ž1Øè¢1´èôô5b÷ ÷ >w2ÀòÁŠÀeÁ û‡w Ìý7 âÿÀˆúð5 b$Å&Ãëæ ÃeÎ Ë‹úÀ÷ Â±ó Ä&!Á"÷ böwšÿ¡ü– ‡ñ•ñ•w `ý@pd÷ ” B„œ$‡Äµ4Äµ!ò%'‡ò% ‡ò%‡E$ÂeæƒÕ@Ã P”üÎ öÖÁÁ7Âe Á:Âe Á8Âe÷ Þì±& Äµ€ V‡11@÷ ö †BÂeÁ÷ ®ì±‡€SYxQSYâySY^SYº~xQSY¢_SY»zjL¢_LB[1,1]XSYjCC@ÎDAÎLB ÎÑMPÎSSÎMA€ÏDL`ÎSHÖ SP× CR@Ö MA€ÙWI Ö HDÏPIÎCOÚ LI Ú CP€ÏDAÎFP@ÎMM€Ö 1PIÎPRÎ+SQÖ TR€ÎXT€Ö 7ACÎ+EA ÎHDÏPM@ÎSL ÎMUÎFUÖ RO× AL€ÏCMÎSEÏIPÛ NMÚ COÚ LI Ú SGÛ XHÖ IDÖ òù#¸ P œ <BN`´æÖw œö5 funhõ‹j÷ t‡uhdB$÷ 8†õŠjwõµ€aw<õ8÷ vý¥öÿ8w& õµÁ ÷ ²œ*AdBbAÁepÂ& ¦fƒÂÁ ÷ †– –‡ÁPõµ aA”Aíf@pnp÷ dC*8Ö‹Á ÷ F88ð*Ã‹7ABµ`fÂVõµa¦`& W¨aW¢zÎÉÅ É¥"N Â ðÖ‚õµ€aõ‹jfu-nhwFÉ¥;]õµa)w´þ× ØÿæØÿ"Ã¥öÿ.@j À õµ€a÷ BwÄþ@÷ ‚õÅ€aõŠjõTIõ•æöÿ& õµaf*÷ vµ*µ“`V@‡æÿÿîæþÿëÆe,æýÿææüÿãw Àôõ‹jÜõŠjõålùµŠj÷ ¾ÐÉ¥@@õµaÉujkàÆå,b¤€p°÷ Ì5fµ fË‡ðµ ÇÈ•÷ ¸Â‡ðµ¾ðµº÷ Ò‚ÂeõSY÷ ø ‡Æe,5 funhwÂýÆe, õµaõ‹jõµ€a`W¨-Â õ fµ`nw^ýuhnwäþ@÷ DDlõålõŠjõµ€a!CÃeH###33™@ð•#÷ ‡&™÷ .½•8 †õ¥öÿ*Î8Î‡w zóõ8µŠjDl@÷ òT”ÔÀeBTŸ8œ5l@÷ ¤‡@Á(ñD÷ ¢ÁeB&÷ Ä‡ð•#÷ €‡An5ŠjÉ)fÿˆ‡ÑÂ&÷ 2‡ / ô÷ ‡ ú ÷R¨õÕ€a¡‡Âå@”‡ß \"ß hÚ ß ¬B0ß ¬â2ß ¸À.ß ÄÆ.ß Ä2ß Ä|2ß Ð¨7ß Ðn9ß ÐF9ß Ðþ0ß Ü/–ÒÔÙLB[1,1]ODT.OBJODTID.OBJöªÔ@ w .ò÷ ÷ÊâÎâ÷]¾âÆêÄÞîÁ,÷ Ü÷ Ê†wÎáA÷ 6õ÷‡ô–âb÷œâžêô†&Ãúÿôðd3 î3 üÀeBÁ Á ýA÷ Xô‡÷ D‡÷\ö\êÃ%úÿô5b÷ELêõ5 ÷E>êõ5÷U0êÀ ê Àå ƒÁBÂe÷ fá÷ :÷ òë3üsî× üÿ]À@@ÀMîéX7 šè7 ˜è&&$&ôµ!ôµÆå€&&"æÿˆÆeÀ5'÷U¢é7\Nè7^Jèôþ&$ÁlPP÷ `†÷E@xéÁ†í÷ lëwhè÷ ˜÷ Pë7€þwní4 Pô@þN÷ ~wbí$°´&4 bôe&Ãew˜þÀDþÁBþÃÿíBÂ@°PÂ@±PÀèÂ÷ òêÂ úôpdôààb÷¼Êý7 Äý÷ Æ†Á ÷ $àwòÀž Á,B÷ Fî&&&$Á¾ì$÷ *éð5÷5˜è÷ ˆý÷à„ýôÆ$÷ À(‡ðb÷ œÀbèÀe9Â÷ <ë÷~ìô:&ô^$7 jì÷ ˆ‡÷ jw\ìð:à´$´&‡`Á9÷ zß÷ d†Á`÷ fß,\NL¡±‡Àì÷ :æÀ&ë÷ dú‡Àë ÁxæBA°bpd÷ jø‡fîwZøh·Tø` Š ÜÁÒÁ%/ -Á%/*Á%//$Àn¡‡œ`Â¥öÿÁÂ¥ÿÿÁÂ¥þÿÁÂ¥ýÿÁ Â¥üÿÁÂef÷ ¬Þ÷ULç±‡†€AAž#?ž#ÂÎÿÂeÂEˆ ÷ âçæ’#ÿˆÀJÜæš#ÿˆ¦ ÊÎÿàbŠå‚‡÷ ÎÀN ÁÒ Á ý· ªæ÷œÞœæ7 ¸êÀ°ê8 f÷ Òä7 NåÀž ÁòHÂ ‰·<åÁþÿæö#æ?ÿˆ÷šÿNæ÷%Fæ7@æ÷ 2ÿ·åÀ÷U€<æ÷U€6æ÷ ¢K‡÷@æ7 ˜ê÷&æ÷ ,æ÷öåÁf÷ @æw†äÁú‚P”Â ýÁ÷ (æwèå÷ $ð• ðÚåwÎåw‚ä7väÁe@ÁHä÷ :Þ÷ Þ7 $ê÷E€¶å÷Èå÷¾ä7 Žä7 Œä÷Ê nå‡ÁK ÷ êÜw äìw°çÀ ÷’ç7 ’ç7 Œç7 ŒçÀž W, (‡Á÷ p7lçÁ÷ d7bçÁ\ç Àhç0 æþÿð•#÷ *‡Ž ÷ *‡Ž €‡÷öù÷ ý%‡A÷ Œïö‡ñµ ÁÂn÷ BÜë÷ÄÌù÷ PîÀôèAÿ ¾ù7¸ùÞ‡÷ Pî†ÂnÁN÷ Ü‡Á&î÷ 2å&&÷ Á9?‡Áä÷ å÷ ¢æÁ¬èÀePHHJ÷òíˆ ÷ ð5@÷ŠèÂnÁ wzèðXÜðÀí À<äÀe9Â÷ çÀTèð.Üb÷ ÿ ‡÷ Ö†Á9`÷ tÛî‡À.è&&ð5 bð&÷ >°&‡ß ÄÆ.ß ÄR2ß ÄÀ.ß ÐÀ.ß Ðö.ß Ð/ß Ð`/ß ÜÀ.ß ÜÐ.w Pñ÷ 8÷ <w@ÁÄA±q#úq-ö‡ô5uuuuß tN!ß €R!ß ŒT!7 rþ÷Änþ7 üþÀîíÀe`Á4!ÂÂ ý÷ žçÁríñ@bp$$À¾í0 b÷ Úù@‡Àef7Ìù` Š÷ ’È¥;ìÈ‹êÅL!% % % % ÷ €Â¥:uu÷ f÷ jÀ & ”W¤ û‚ÿ |ùÁ ÷€e)ÁÄ#I#q-'ÁeW â#õ‡Á$0Âefœ`Á × üÿÁ× ÂeâÿÁ× þÿÁ^× öÿÁ ÷ ØßAÁ5ÂÂ¥;U%ÁEÉ ‹Á#wÖ÷ÔýÁ(w we)÷ °e)Á(Íræ æ%Äe)÷ ‚e)Á)ÍlÄ æ æ¸$÷ ¼U%ƒÂÂ¥;Â¥,Q÷ X÷ Le)S#S-ãÓ$Ë÷Á*IÄÂËã€ÄÒáÁ ÷ ‘%‘QüÿQ *& ÷*ýÁ&1Í&f÷ JÁ(øÁef÷ àÖ7þüÒÁRRRÁøACà`Ãe ÒR”þ?Fü7Bü‡Á%÷ Zý†‡Á'ÂÒ÷÷ Þ·TçÀ¦ë÷ ¢ù÷ xÁ4!ÂÀe`PÂ ý‡Ö¯~"1±R“"“±Ì±"ß±à`)#ó¯Ð7#X$3ÿx$è TKB>l^SY†£ &€ÿ,@ÿ 3ÿ@8€„K@oMBaÿTq ÿØrÿt@,ÿYeÿÜYxx@ÿßY`èYè5ß ¸À.ß ÐÀ.ß Ðú0ß Ð81ß Ðþ0ý¨X[<$09AZ 7 Þÿ7 êÿ7 èÿ7 ^þ7 \þ÷ÖÿÀÈ P H ú‡ÃÊÀP #ÄÚ ÀÆþ$$÷ NÅB!B“‚ÁÂ Áüœr0!Sz¼!¼""H"Ò!‚"¤"ä!f"f"f"Ã%ÊU÷jÿfÿ7 dÿO× Ê÷‹Vÿ8÷€Pÿ÷5€ÚèM÷5ÒèI÷ÐèE÷®ý÷ÿ· ¢ýÓ$× H †Í¥pÍ¥&ðÕ€7 ÿ Á-A#÷pý÷ jýã(× Ê†3Á%2ÂD!Õ¥J“ÊÅÅ °Ò÷´þ÷:ý° ·2ý#7 œþ ÍEwôþÍ¥ÂD!JÊÅ·zþî#× ÊÁ.w‡È‹È¥;!Ö †%õ‡ÀL ü‹9ü¥;5Á:!H¤1H¤/H¤-H¤‚H¤)†H¤‚H¢%†Å”u ý$Å ûÁ+wª÷ –ÿÀH W%ÀT W% Á÷ ¸ðp%‡ÅH!&÷ °À e)È¥:2È¥./È¥[,È¥<)È¥/&ãW !†÷ Hý‡Ö÷ &ÿñ‹ fAœf÷ V…‚‘”Å ý‡!Z ƒdd‰Á,w€Åè& È‹È¥-È¥)È¥(È¥*ÎÈ¥,Ž È¥[Î È¥]Î ”âÖZ÷ ¤þÁ,÷ ÞÅåèðèp÷ ÄJ‡÷ üïÀ êA÷ lðA‡÷ ðÁN>‡Àž Á,B÷ òëÀ|ê&&ð5 bð&÷ ž°&`Á90‡÷ |ð5@÷LêwFêð$ÞðŽï Â2êòÞbfÁ÷ BÑÑ‘‡Á%ÂnœŠâåÀe 2÷ 2Ý(),-*! ß ¬B0ß ÐÀ.ß Ðö.ß Ðú0ß ÜÀ.ý¨X?±y‹ÅÄ÷ êÁˆí÷ öé7äÿ7 âÿ÷€Þÿ÷5Ôÿ÷EÐÿÀÈÐP H ú‡ÄÊÁ.é÷ ì÷ @ë÷ æÁÖç÷ 4ë÷ ëÄÈ÷ ˆ%!H ù‡À@÷5~ÿÀÕ7^ÿ7bÿ÷é÷5dÿ÷ðçÁîçW Á ÁCÁ÷ Z7šèÀ`7¾èÅ'#Lw!"Œ'œ'Î$"t'€QÎ&"~',Î)"È',Nq-"(%¦S/"*(jL€p5"*([q%;"*([qjL="*(zjL?"$([qzE"$(³ÐG".(t^€‰H"8(:dL"V(ÙfR"î(áyxT")èr V" );}ÀDX")€€‰Z")«„^"@)y…ø`"¦)}Œàc"À)ô‘¸’j"Ä),„–m"ê),s:o"â)/^ $ Enter Options: TKB>ß ¤¸$ß ¤Ž%ß °Ø$ß °’(ß °4)ß ¼Ú$ß ¼‚(ß ¼Z)ß ¬ˆ/ß ¬0ß ¬0ß ¬â.ß ¬h/ß ¬0ß ÐÀ.ß ÐÂ0ß Ð81ß Ð¼0ß Ðþ0ß Ðî0ÂgÂ¥;dÂ¥!÷ PÈ¥;\ÅÎ#÷ :Â¥=7e)Äp"t#t-Äe !º#ô‡Á87 ²þ È‹-È¥;*ÃEÅÎ#· –þô’þ÷ ìÛ Â¥,Â¥!ÂÂ¥;Â¥:éÁÁ ô5Á ôNþÁ!Ân÷ ´ÜÅÎ#Ã4þ¡±‡w œì&Á÷ påw&þ7 þÂl ˆJõ•ÿÿ€fÅe& ÷ jÂ)— ;&— !#— ,— :*Ž —£&êŽ —£!…÷ •¶Š— ,— :Û÷ — :ô—£ö‹Ö…uÝ5 ‡–%ÁÂnwîÛ÷ bþÀ ÷ Dþ‡ÃSwTú·žäÁÁÁe ÷ "þ Ã wæwÜâ‡·€ä@$Ã ÁÈ7"`ã‚7$>ùƒ7þÿ6ùÁ óÁÁÁe÷ âý?(ã7$ãÐPAPÐÐPÃ ý‡Ã0wâù·,ä÷äwšâw˜â÷@”âÅp ÷ 6ùÁÞãwäåW#€‚ÍÍw¦â‡ÃTw¢ù÷5€Èã÷´ø7 Œã7 ’â÷ÿ âÍe ‡ÍEMMMMŒÍwˆâ‡·¶ãÁÁÁe÷ :ýÄƒ ?Tã7PãÐÈXüÐåPPPÃ ý‡·€ãÁÄ#·vãÁÀ#ee·hãAÁåÀ>÷ ÒÜ†Á ÷ àüpppÀ>÷ ”Üp‡·,ãæ‚“÷ Hø‡Îðµ· îá¿ ÞûðÅ ðµ÷ Öáÿ Æû°Óp÷ ÒäÖÁ²âw¸ä·Øâ& Ö÷´âwúû÷U¦âwüU%Í W# †wªáw¤áwžá‡wâ·žâ@× ?÷ 0ù>‡$Á5?5Â5?1ÂŒBBB@÷5€FâÂ(·âÁ=*÷#Á÷5€,â÷5÷÷ ø‡· ’àƒ÷5÷7æá7äáw&á·Øà÷ìö‡Ã@ÃRw¼÷W#ú‚w¾á‡Ã5w¨÷ÍwÌá‡w¶áw´á‡wÊáwÈá‡U%Í W# †wÊàwÄàw¾à‡Ã6wj÷wœá‡Ð¥[÷ 8Â¥,å‹f™÷ (Â¥]å‹U÷ &û”‡ÖÂnÁ÷ ¬Ø±‡&÷ ûÂ¥.€å÷ û÷ øú”Ö‡w#"ö‡W#ú‚w2à‡Ã1wêöwŒúW#ƒW#‚÷áwà‡ÃUí·áæ· á& Á÷ ú°?öà7òà PH‡ß ¬h/ß Ðú0ß Ð81ß Ð¼0ß Ðþ0÷ Àê÷ 8äÁæÁeà÷ @7ÄÿÁÀº$ Á ýÃB÷5Âú÷5ºú7÷€ªÿ÷SY²ÿBÂe÷ "Áº$ÂÀeBÂ ýÁeâÿ ÷âyxÿB,D.&ÎÎÎÎ‚ÕÃC!‚ÂU@÷5€^å„wò Å*ÿÃDÀ\éð•#÷ €‡ð•ðð•÷ p|‡Ãd÷5ú÷¢ã÷ån÷üä÷ôäÃcñ5`ÂU÷U@Þäñ5€ÂU÷5€ÈäÂU@÷¬ýÂU @@ìÀEÿÀ@@@7˜ýQ$@ææPÎ ý– ð5øÿðU@øÿÎ ñ– ÅVþe)µÀÀ$55÷5€\äÂ5uíuí ÃC55a 5a ‡ÀNè÷ p7 þ÷ À<è÷ ^w¼÷% ã7‡ÃGÀä&AÁ5@$Á5ÐXö&ì&z(ö& ÷5€âãÃPAÁ=ÆøIBBàÂe@ÂE?BBBŒÂ@$õ5÷ ’ù÷ –ùÃ=Â‡ÃCÄÎ Œ #‡w0AW ‡w„ãÃ\ÁhâAmð‡w^âA÷Rüw –ww`\âÃXu-÷58øqC÷5@8ãÃ5€€õE€Á ÷ x,ÐU%ÁPÁ ý÷ ã÷ l÷’áú÷ X÷ àä0(fÁêÚÁEÿÁU÷ÞâÁU€Ã€ÁU÷`áð´û*ÁUp÷ ê÷Àer1ˆ`÷ žäÍ"e)w~þÁÀ$QQ À æ&$&&°$ðº$&÷ è°&°$‡‡– Ã>÷ ,ø7 VâÂ2üÁæÀž wÒçÀvå ÁÒàBA°bpd÷ Äò‡fîw´òh·®ò` Š ÜÁÒÁ%/ -Á%/*Á%//$Àn¡‡œ`Â¥öÿÁÂ¥ÿÿÁÂ¥þÿÁÂ¥ýÿÁ Â¥üÿÁÂef÷ Ù÷U¦á±‡÷ ¬ÄˆúÅÎ#fBÁ Á ýõ*õõ*õ 5.ô‹€õU€.5-æÈ#µÄe& €÷ ®÷ ¨@ÂÂ Ñ¥ ûÁ àu÷ ûN#N…Ã áÄòù´•–%7 èù÷m.þß‡&æ¦f&¦ vÞ €‚ƒ„…‡LB[1,1]LB[1,1]ß ¸À.ß ÄÆ.ß Ð¨7ß ÐÀ.ß Ðð.ß Ðê.ß Ð”2ß ÜÀ.?ÿ @`€ Ààÿÿ_ÿ?æX æ=ÿˆÀþäÀmôä ƒ÷%æå ƒÁV CÀÐ ÁBÂ w,Ìä‚ H`Áeó÷ÿÿÿÁÄäÂvä÷5Šú(÷5‚ú$ ÷ Hü†ÁF‚÷5€våÂ·<å÷ Nû‡Á=Tú· Öã‚wzä·,äÁQÂ² ÷ žÜ ÷5€<å)÷5,ú Áï÷5 úÄåÄå5Ý½$¸$÷5åõÕ€¸$Ä7Ì$$ä´ Ô$Õ‚mÌ$·Ìã÷ îµÜº$¸$Äþÿ÷ & & ÀÊ cð5@t&$õð5t"&îí ð5€ ÷ ÚÂZ€Á†ýAœÁAÆ$ìN ×‡N6Ó÷5€rä ð5… ð5€ %÷ ’Âð5@ð5 ¦B÷ <– Áf÷ ŠÛwšÃýB÷ "sÂœ÷ 6÷ o:‚€tÖ&o m÷ øð5€ ÷ &Â‚°` °°°`ðU@wðþÂ°ü‚œ ‚œº$ BŒý€µ°¸$Œ<‡Á ùwŒýµÐ¸$ð5€ Ãtüó‹€ójýÅw ^ý†wXý÷ Rýpp÷5€Xãð5ð5@ðU@p` p`|¤'&ø%ø%ÒÁA÷ |Ú÷ý˜á÷ûü“á÷5ø÷Úâ÷ðüÜá‡ÂEÿÂBBB‡B÷ ìÿ ì÷ Þÿ‚œº$Á ÂŒ‡ûµ°¸$‡w ê&fÁl A(÷ 6ã7šû€&æÔ%,4,Ã çÖ ðE ðU€0,ð‚•‡ÁgÒ÷ ´ÙÁéù ÷ ù÷Àà7 á÷Pá7 á7 $á7 &÷7 $÷7 Fá7 >á7 Fá7 þá7 &â7 $â7 4á7 ,á÷âÀV×7Dâ7 Îá÷ª Êá7 â÷ô âÀÊ P Áìå÷ Zâ7Èö÷5€Êá÷?´öÁ8àÁ%‡ÁAAAÁ w"à ÷ÿßà÷ÿŠö÷ÿÿàÀÐ H‡Áe÷ ØØë·šá× †5 × †5 ÷5€^á5 @$Á d.‡AáÄê ÷ ÖÚ†Á÷ LÐAÂPÂ ý÷ RöÀeAá÷ 2Ú‡ðµ ÷ ãðÕ€pp ‡ÃZwºöß ÐÀ.ÉªsN0Œù¬sN0 s, ÿ” øt~,¤ÿ, ÿ˜€,¤ÿ3X ÿœw ºýÁpú÷ Þö7êÿ ÷ ×-XõÀÀ÷ €‡÷5@:öû÷ÊôøÁö÷ ªö÷ 0øÃ(÷ ´‡w jý÷ BÁ¶ô÷ øÅ¦ôw òõ?@Àe*Á ñKrÂ•@×-êõ‡ñJr÷5Øõñ;r÷5\ÿÂÕ±÷ Úî†Á÷ tð*ô Â"ÐˆÈµµ l· ŽôÀ6ôÀe÷ øí÷ Òí÷5@|õ÷ôÃ(÷ Ã2À®%PHÄ4 ôÿÿ7èó7 ìó÷ 0‡× JúõµöÀ²%PPÐh ÷ VêÀw®±À²%Ð ÐÐ à‹÷-¢óèôŠ÷5€þ÷%ðóÈ•@@Á°%ÿ ˆ@Àb È˜Ó‡Á°%@l Á÷ pð 07>ó‡·¸ôfÁ÷ ¨?Ôÿ7Ðÿ°‡÷ÄÿÀÿÁ¼ÿ±w´ÿA÷ êô¡Þ ôÂ¦ÿ· ÿ÷ ø÷ –ÿ‡ÁÀž wÊù·ZôÂ €± ,ùˆ7jÿ÷ Òÿ¡‡÷ úÿ Àßðÿ· ìÿÀø÷ †ð¥öÿ*± `Á ÷ :ë7Äÿ7¾ÿ‡÷ ºÿ&÷ ´ÿÀ€U‡w û÷ÿÿòÿ& æ ó· èÿ¦÷ lö7@òwDòÍ ÷ ô÷ Šõ&íÖ¶#ê–%÷ ´ÿ÷ ðóóÖ‡Àþñ0 ÁÁÀž ÷ Îø‡ ÂòÿB`— ‚·æÿÀäÿw`àÿ÷ šó÷ õwÎÿÁ÷ :ówÄÿ÷m¾ÿ¾ÿ‡7 è æ÷ Üþ‡÷ ÿÃå ƒ7 ÄþÀ%ÿ‡À%Éíƒ Àø è€" "z#z#z#€æÃ²%æ÷ ÖþÎ ûÖƒÃåÁ°%Bœ1Š— ‚Â@ú ‚%Ãã‡ôÀ´%Á®%44 ÁñwdôÂpö‚`Á÷ éÂú±œ±, ñÕ ññÅDæ BÂeÊÅÊµ Êµ€ Â¸%Ê5Š Á(÷5îñ÷U@Æf&ÁÒñ÷ ^ò€B!C&ñµôµôµ€ñÕñÅÁ<Â²%÷ öèÁ°%@ñµ"ñÕÀ-xñÁ÷ @þðRðNðJðÅ ÀRñÀe÷ Ìé†÷ ¤é@Á°%ñÅñµ@Kæ¼$Þ N‡ÁÞïwüðµ@õ7 ÷ <Þ ‡ðµ@ú÷ ,÷†Ö(÷î%Á÷ ¼ýðàðØ ðÕHÂ°%3ÁŠïðµw¶÷rï®w ®±w¦‡Â®%Á÷ èÀe÷ Àéf6†ÖÁ÷ VýÂ°%°ðµð\ ðï°°fÀïÀe÷ Îè÷ ¨è÷5NðÁ÷ `°Áàî9 1 ÷ ²ððµ÷ ¢ðN&Á”%Â Â ý€Â°%&€Á5ÁEÀEÁEÀEÁE@ÀE@ÀEÁE €&&fÎEÿïöEÿï¶#‡ ‚–%€–%€ðÕ2, –%€òU2,Áâ÷ ÜæÃ+Á$î÷ ‚ñ´ C ÁÁ÷ | &ÃÂPÂ ý&Àž ÁÁ÷ Êô€´ˆ7 È ƒ‡·ö ƒ‡‡÷%ú ?÷-¾íï1Âî ô5Âê Ê%¦Àe÷ è‚N‡ðµÁ¾ ðµ l‡Á5RŠÂ®%rrÁÖÂ®%² Á÷ òå‡æCÂœóÅô58ô5€Âµ(³lóÅ óÕô5€"÷êìóœô5óUó5 óEóEw, w, ñm óµ&ô5€óÕ€À”%ðµ ðµ3lðµ€ðµô5 õ‹óÕ×-¾í†óµ÷,z÷,t÷eœíô5ó%Éªó%Jró;r÷ÿÿ`æü#Þ †w¬óµwV‚Á6ÂÀeÃe‹°^ˆ°÷5@>íX÷ÎëU÷-Úë íQÈ5NÈ5Kô5GÁÂëÈUB÷ Ü?ˆÀðÒÁªë÷ ï· òëµ l÷ Pø0¦ÂÄ%ðµ¶ðµ€²Š Ê÷ ~Þ ‡ðµ÷ n÷†ÖO÷œL÷-”šì÷5@¢ì ÷2ë÷ l‡÷t€wºÁ÷ Bù÷ fîÂb°ðÕ€ðÕ÷µPB÷ ÷ Öì÷ Lîw6ðµ€7(Àâê7w÷Ôê7 ±¡7‡Â®%Á÷ bãwJÁ6Á¬ê÷ ¼÷÷ âí÷ ô$‡%Á˜ê÷ hì÷ îí÷ ÚíwÈððE÷´ððŠ Âµsõ l÷ ¨ên÷ ðÖÁLê÷ –íwÊfÁ>ê÷ Vî÷ ”íð5ð5€ ô5ÖÁê÷ 0îB÷ \íæŽæÁê÷ î7òéw¦Áôé÷ î÷ Jí&÷ :(‡)€ÁÜéðµÂÆéò l÷ êÂ°0 ðÕ€ðÕ—%÷µæ Â”éÁšé÷ ®÷ .–%ÁŠé÷ ÔìÁ€é÷ Üì÷ ÈìÞ †wøfÁjé÷ „í7ZéµÂ®%Á÷ â‡w øñCô5€.÷„Á÷ ¤Áª ÑH !ÐÐ&Á^ê÷ êê÷ pì€PPÐÐJ©Ðø‰Ä@ÄÐ· 4‡² €æÃ|² zæÃvf¦Á÷ 2‚Â`Ò "°ƒ‡¡ðµóµ ðµ€÷ ^êðµ 3,ô5¡±¤‡óµtóµô5lÁó5÷5@”é ô5€ ÷èô5Áe÷ 6öw\÷XððEðð" ðöçó5ð0ðóµ0 µ l· è÷ ë÷ ~ô÷ ëððÀ°çÀef÷ pá÷ Já÷%þçæ–çææÆåÀH÷ êä÷ $ãÆe– ƒ‡À¾ Èô5PHtt ÁHçw¨ê÷.òæ çÎm–çŽ ‚— ƒ÷%„è— ƒfÁV ÷ Âß· pç7 ôñ1 ñUà ÷5€LèfÂ®%Á]÷ –ßwöÖ6f… ÷ ÌÁ÷ è÷ &êÁðµ !ðµ ðµp`†Á ðµp ƒÁ;Ò÷ 2ßp ƒpÅ Ó…÷ bôô5 -ô5@)ÁXæ÷ ¨é7 ’ó÷ ó‡÷ Ìó ö7 ~ó÷ |ó‡÷ Ôò÷ pé&fÁ$æ÷ úç÷ €é°·æ„wzôw õƒ‡7 Dó‡w ªîÄeW!€ƒÅå€÷ Å€AÁÁ÷ øóTÐÐÅ ü‡÷5÷5 ô5Á÷ Ìó÷ ðèðìðÕˆB÷ Äü÷ pç¡‡±‡ÀzåÀe*÷zåzåÂô#RJ÷ Þß‡wfå Þ ÁªæEæCÀHÁî#æÔ Þ ‡ÀeÐ-¬ÿÐ-¨ÿò– ƒÀJæ$È'÷’ÿ÷-åZæ7"Tæ,ïÁNæa(Q$ÉéH"û7^ÿ&wèäwæäA÷ ´æ¡Þ ÀBÿÖ ±‡÷èåöÿwôÿÂîÿ¦·äÿ÷ Êèw¨äÁÚÿÀe÷ ßf&w–äÁä÷ Üç€ã‡Þ á±‡w íÅ–åÁlä& f wèÿ÷ 6æ÷ RÄ öÄÀBä&ff÷ æ÷ ,ö ÷ æ– N ñ– õ„ !‚æ–ÿ¦í– ‡U ‡^¶¸@´"<"2 ¯ªàý¨Xß ¸À.ß ÄÆ.ß Ð¨7ß ÐF9ß ÐÀ.·tñ7 nñ÷€fñ7 `ñ7 ^ñ7 \ñ€Á\ãfr&Ž÷ ~±‡÷ "å6¦vw8ãÂ,ã7(ã÷‹ ñ(Àe"Á–èÁeB$$$ÁeÀe$$Áöâ·<èðw<àð w<Öð÷ ÷ ÷ ÷Äðw<ºð·‘¸ðð•#÷ ÿ†`Á÷ \Û÷ ò÷%ÐãWñ5@ñ5 O€f&F÷ Xä6¦vwnâ7bâ7 ¨ï÷Tð*7<Jð&ð5@ ÷‹Að÷ ª÷•5ð À¤çð•ð•÷ Šþ‡÷ |þ†`Á ÷ ¼Ú÷ „Þ ÷ øïŽ÷ Lå·Ž÷ R÷ fÞ ÷ Úï÷ 0åŽ7ŠËïwvþ÷Àï À<ç7õ&Áh÷D÷ @ñð•#÷ r*‡Á(C÷ Vÿ÷ õ7ÄñwÈñÀÆñÀe9Â÷ èõP”Ã ýÁ ÷÷ úô7 ÷ ¬À÷÷ At÷ âô‡`Á÷ 0êw *ú÷ &·Árñ÷ ÐôÅbñæ‚,Þ †7 ú‡ÄNñô5 "ô5@ÁBñf÷ ô÷ @ý÷ xôtw,ñ÷ xô÷ ˜÷ <õ7ñ÷ ˆ÷ fýÓ7 ôô5÷æ÷ Ç ÁêðfÁewàð÷ 0ô÷ ÷ ôô7Æðw$ýÀ*ÁÂ÷ C‡ÄÁewfBBì1·\Âe?‚‚‚‚‚‚ÂmD·BÁ@ÁÁÁeÿŠÁw LþƒÁFþwC÷ 7ÁÃå`÷ÁwÂ÷ †ÁOÄ‡Á Àžõ`÷ ÒèÀ’õbÂEß{·Â÷ äñÁF,fü€7Þ67Ú&÷ r†ÁMÂh,÷ Œè÷ òíõl$@Àe*æ®Þ ‡ðµ ú÷ Öû÷æ¼Þ ‡7Ž7Šf÷ "– †÷ üí÷ ¤êÀž Á6Â.w\ö&f& 7 ZÀÀEøÿÉ-H‚‡ñ-B†÷ </÷ ,‡ìÂúÊ-&‡‚ò- ƒ· ÷ ú‡ÛCƒ`ÃEP÷"ü ‚‡÷,ô ‚ÁÁeÂÂåB èƒN ±€…„‡Á÷ ^ü÷ ò&fÁÒîÁe÷ ¤ð÷ *òˆ·Àî„7²îô ô ô]\ ÂÃ´ôÀôð•ð•0 40 60Š÷ ‡÷ ‡ñµôUô]H7 úú÷ ÈÁLî÷ œñ‡À¶ó`Á ÷ ææÂöÂ Âî‚ Á ±0ÀÖ÷ tö@ÁmÐw Î±%·ÊBÂmºæ°· ¸ÀÀÀÀÀÀÎ¨àÎ ÎÎÎÎmŠÂ”BàÂÂ·‚Àx÷ ‡‡À.ó`Á ÷ ^æfÁówœ"hûÁN‘Q$‰æBÿˆ‡wŒdû‡æùù‡7 è æ÷ ú‡÷ VúÃå ƒ7 úÀ%ÿ‡À%Éíƒ Àø 8è¤FÄ&ž'ž'ž'¤æÃÖ)æ÷ úÎ ûÖƒÃåÁÔ)Bœ1Š— ‚Â@ú ¦)Ãã‡ôÀØ)ÁÒ)44 Áàìw@ðÂLò‚`Á÷ |åÂú±œ±, ñÕ ññÅDæ BÂeÊÅÊµ Êµ€ ÂÜ)Ê5Š Á(÷5Êí÷U@Æf&Á®í÷ :î€B!C&ñµôµôµ€ñÕñÅÁ<ÂÖ)÷ ÒäÁÔ)@ñµ"ñÕÀ-TíÁ÷ €ùðRðNðJðÅ À.íÀe÷ ¨å†÷ €å@ÁÔ)ñÅñµ@Kæà(Þ N‡Áºëwüðµ@õ7 ÷ <Þ ‡ðµ@ú÷ ,÷†Ö(÷î%Á÷ üøðàðØ ðÕHÂÔ)3Áfëðµw¶÷Në®w ®±w¦‡ÂÒ)Á÷ ÞãÀe÷ œåf6†ÖÁ÷ –øÂÔ)°ðµð\ ðúê°°fÀèêÀe÷ ªä÷ „ä÷5*ìÁ÷ r °Á¼ê9 1 ÷ Žìðµ÷ ~ìN&Á¸)Â Â ý€ÂÔ)&€Á5ÁEÀEÁEÀEÁE@ÀE@ÀEÁE €&&fÎEÿïöEÿï¶#‡ ‚–%€–%€ðÕ2, –%€òU2,Áâ÷ ¸âÃ+Áê÷ ^í´ C ÁÁ÷ Ž&ÃÂPÂ ý&Àž ÁÁ÷ ¦ð€´ˆ7 È ƒ‡·ö ƒ‡‡÷%ú ?÷-šéàê1Âî ô5Âê Ê%¦Àe÷ ìã‚N‡ðµÁ¾ ðµ l‡Á5RŠÂÒ)rrÁÖÂÒ)² Á÷ Îá‡æCÂœóÅô58ô5€Âµ(³lóÅ óÕô5€"÷Æèóœô5óUó5 óEóEw,(w,"ñmóµ&ô5€óÕ€À¸)ðµ ðµ3lðµ€ðµô5 õ‹óÕ×-šé†óµ÷,z÷,t÷exéô5ó%Éªó%Jró;r÷ÿÿ`æ (Þ †w¬óµwV‚Á6ÂÀeÃe‹°^ˆ°÷5@éX÷ªçU÷-¶çüèQÈ5NÈ5Kô5GÁžçÈUB÷ Ü?ˆÀðÒÁ†ç÷ àê· Îçµ l÷ ó0¦Âè)ðµ¶ðµ€²Š Ê÷ ~Þ ‡ðµ÷ n÷†ÖO÷œL÷-”vè÷5@~è ÷ç÷ l‡÷t€wºÁ÷ ‚ô÷ BêÂb°ðÕ€ðÕ÷µPB÷ ÷ ²è÷ (êw6ðµ€7(À¾æ7w÷°æ7 ±¡7‡ÂÒ)Á÷ >ßwJÁ6Áˆæ÷ üò÷ ¾é÷ ô$‡%Átæ÷ Dè÷ Êé÷ ¶éwÈððE÷´ððŠ Âµsõ l÷ „æn÷ ðÖÁ(æ÷ réwÊfÁæ÷ 2ê÷ péð5ð5€ ô5ÖÁòå÷ êB÷ 8éæ²#æÁÞå÷ øé7Îåw¦ÁÐå÷ èé÷ &é&÷ :(‡)€Á¸åðµÂ¢åò l÷ ôåÂ°0 ðÕ€ðÕ—%÷µæ ÂpåÁvå÷ ®÷ .–%Áfå÷ °èÁ\å÷ ¸è÷ ¤èÞ †wøfÁFå÷ `é76åµÂÒ)Á÷ ÜÝ‡w ÔíCô5€.÷„Á÷ ¶Áª ÑH !ÐÐ&Á:æ÷ Ææ÷ Lè€PPÐÐJ©Ðø‰ÄRÄÐ· F‡² €æÃ|² zæÃvf¦Á÷ D‚Â`Ò "°ƒ‡¡ðµóµ ðµ€÷ :æðµ 3,ô5¡±¤‡óµtóµô5lÁó5÷5@på ô5€ ÷øãô5Áe÷ vñw\÷XððEðð" ðÒãó5ð0ðóµ0 µ l· üã÷ ææ÷ ¾ï÷ îæððÀŒãÀef÷ LÝ÷ &Ý÷%ÚãærãææÆåÀH÷ Æà÷ ßÆe– ƒ‡À¾ Èô5PHtt Á$ãw„æ÷´îæ|ãÎmrãŽ ‚— ƒ÷%`ä— ƒfÁV ÷ žÛ· Lã7 zî1 ñUà ÷5€(äfÂÒ)Á]÷ rÛwöÖ6f… ÷ ÌÁ÷ |ä÷ æÁðµ !ðµ ðµp`†Á ðµp ƒÁ;Ò÷ Ûp ƒpÅ Ó…÷ ¢ïô5 -ô5@)Á4â÷ „å7 Òî÷ Ðî‡÷ ï ö7 ¾î÷ ¼î‡÷ î÷ Lå&fÁâ÷ Öã÷ \å°·ðá„wzôw õƒ‡7 „î‡w †êÄeW!€ƒÅå€÷ Å€AÁÁ÷ 8ïTÐÐÅ ü‡÷5÷5 ô5Á÷ ï÷ ÌäðìðÕˆB÷ Äü÷ Lã¡‡±‡ÀVáÀe*÷VáVáÂ(RJ÷ ºÛ‡wBá Þ Á†âEæCÀHÁ(æÔ Þ ‡ÀeÐ-¬ÿÐ-¨ÿò– ƒÀ&â$È'÷’ÿ÷-ðà6â7"0â,ïÁ*âa(Q$ÉéH"û7^ÿ&wÄàwÂàA÷ â¡Þ ÀBÿÖ ±‡÷ÄáöÿwôÿÂîÿ¦·äÿ÷ ¦äw„àÁÚÿÀe÷ ìÚf&wràÁlà÷ ¸ã€ã‡Þ á±‡w üèÅráÁHà& f wèÿ÷ â÷ RÄ öÄÀà&ff÷ ìá÷ ,ö ÷ Þá– N ñ– õ„ !‚æ–ÿ¦í– ‡U ‡‚´ÚÜd Ø4&`&V$¯ªàý¨Xß ¸À.ß ÄÆ.ß Ð¨7ß ÐF9ß ÐÀ.·bê7 \ê÷€Tê7 Nê7 Lê7 Jê€ÁæÜfr&Ž÷ ~±‡÷ ¬Þ6¦vwÂÜÂ¶Ü7²Ü÷‹ê(Àe"Á âÁeB$$$ÁeÀe$$Á€Ü·<Öéw<Îé w<Äé÷ ÷ ÷ ÷²éw<¨é·‘¦éð•#÷ Ôþ†`Á÷ æÔ÷ ò÷%ZÝWñ5@ñ5 O€f&F÷ âÝ6¦vwøÛ7ìÛ7 –è÷Bé*7<8é&ð5@ ÷‹/é÷ ª÷•#é À.áð•ð•÷ Jþ‡÷ <þ†`Á ÷ FÔ÷ „Þ ÷ æèŽ÷ ÖÞ·Ž÷ R÷ fÞ ÷ Èè÷ ºÞŽ7Š¹èwvþ÷®è ÀÆà7AÁå÷ Vé†Á ÷ ‚pp0À>÷ é±‡w êö÷ÿÿòÿ& æxï· èÿ¦÷ Dò7îwîÍ ÷ ìï÷ bñ&íÖ¶#ê–%÷ ´ÿ÷ ÈïóÖ‡<±ƒ…±VNTI ±VNSY”±VNSY[²gNSY[²hNSY?±y‹OV\±ÿ~TI\±CL2²VNCLó«@GR È Ø Ú Ä C±¥Ü b©øŒ Ž ’ ” – ˜ š ²²ž ¢¤¦¨ª¬®°æ)Pè ü¬Ä"â)Ä&N þ¬¯yó«@GÖˆxC±¥æcŒb©øîü¬³°úp² ,«1z´ ?±y‹¶ 5¬!™® ß °ß ~ß ¸ß z)ß °ß Þß ÐÀ.w zõ÷%*íÀÞw|þ÷5@îÁúí÷ †î7¢ì÷ d‡w LõÅ”ìDŽCÅe|÷ $E‡A÷ Tî÷ Úï&ðÕ"ðÅ€0÷-`ì¦íð5Öµð ÄeÜÅ6ìDŠCŒÅev÷ ¤ÿ‡xnzâ Ü ä |æ ×-bìÀÀw²ý÷5@FíÁ0í÷ ¼í÷ Bï7zÆÿ&æÄeŠÃV÷ Žƒ„‡w jôÁºë÷ ïÅªë÷5@í wzÿDÄeŠÃV÷ \w€|ÿDÄeŽÃV÷ Hæp÷-zëÀìæ÷ 4Î ü– „T–T˜Tš5 šLœ„5–Ôm¢ì5˜5eš5œ‡ÁÀ÷ ŒóÁdf÷ üì÷ ‚î°c †0ÂeÁ÷ ²ã– %‡€Ààðøüþÿ?ÿw ró7 äÿ÷ ¬Á ð÷ Žì7Öÿ÷5Ðÿ÷ÐëÀÒ#÷ Xü÷ÄÿÁºÿ÷ ÞíÁ¸ÿ÷ Öí7 ¬ÿÀ†%÷ 6üÀØêÀmÎê ƒÁV÷%¼ë ƒ÷ ãÄ¦ ÷5pÿÁ÷ šòL`Â” ÷5†ëŠŠÊmzëŠ÷5të3Ábë÷ îë÷ rí@$)Áÿ÷ 0 5ˆõírêˆ÷‹ÿA&÷ Áë÷ 5$Á÷ ‡Á wê@÷ ’ 7ÜŒ’é÷ wêÁüê÷ Ðí÷‹Ìþ÷ ¦÷ d÷‹ÀþJ(@"! ÷ ´u†õíüé†@"CÄa÷ Œ÷ p÷ .÷ ªA†ÁmÖéÁ w †é†w€é÷ ÷ Œ÷‹hþCÄa÷ bÁ ÷ ø ÁÊ ÷‹HþÁhéH · déAˆB&÷ lôbéÁJêwPì÷‹þfÅe@"Ä÷ …uˆõíTéˆ‡Áê÷ 5"÷ *tÚ ÷ P‡Á ÷ ~ Èøè7ôè· ôèA†B"æ&ÓÓÔéÓÒéKËmé€&Á®é÷ ´À ÀdÓ÷ ÒS&„¶ÖÚ óE€ÃeÀX „ƒ‡7 fýÀª!÷ îù ÷ œÄ÷ ”Áfé÷ òé÷ êéÁŒÁ w8èÀ@èÁ÷ 2†Àÿÿ7.èÀè÷ ¬4ÜŒR ‡w €ðÁÐç÷ .ëÅÀçC÷|ù&w éwÚü÷‹Ïü ÁéÀØç÷ ÞÁ wÎçÁ÷ jéð5· ®ü÷ Á un7 žü÷†ü÷‚ü@÷ 2éððµA÷ éð·‘[ü÷bèLü÷”èHüÄæÁ÷ @ë÷ ~ê&@ ÷‹2ü ÷-çNè ò55†A"5 " ÷ 5 ÀôûCaÁ ÷ Áìû÷ 5÷ôû ÷|ø÷ Lu†u 8ÂâæA÷ zènÂ‚ ÷ Âÿÿµ €Á˜û÷ ®7û÷‹šû÷-ræ¸ç5`†Á ÷ Ázû÷ š‡Á un÷zûw |æƒwvæõµ‚÷ ¢‚r @ A÷ J‚€ì2 ‡2÷ Xé÷ ´À” @÷ ÷-îå4çw3º õµ@w3º 4º ª À$¡ÀeÿŠÀ4`º ‡w Xî÷ œÁ¤å÷ éÅ”å÷T÷'w Úæ ÷]Þæ¨ú÷]ªå¢ú÷Užú÷5€Êæ÷5”ú·–úÁ”ú÷ °èwˆúÁ„ú÷ pé÷ ®è7zú Å:åÄ÷ à&÷-2åxæÄ˜÷ \5$· |åÄ”÷ D5 7P ú÷UúÃ@ Äþÿ÷ Œ÷-âä(æÄ˜Á÷ 5&÷ ž‡· "å·‘ÞùÄ”7SÐùÁ÷ à5"÷ z‡·‘¼ù· úä÷-’äØå÷ îä÷Böõµ÷U–ùA.÷ Dæ÷ Êçð]„ùð]|ù ÷†ù!Ä„ùô]nù÷hùA÷ æn@"÷ ^Á’å÷ h‡Á unt ƒt‡ÁÁÀ” Á ý‡w ¤ìÁôã÷ RçÅäãw 0åõµ$A÷ ®å÷ 4çð5õÕðÀe ÷rõÈ÷-hõÖøƒ÷`õÎøÈ· þã ‡÷U€èäûª´ªÁ÷ Vå÷ Üæ÷ ÔpØ 2÷ Ž4Ø ‡@÷5¦äÀež&Àeæ®÷5Žä€&÷ åÞ †‡ðµíðµ é÷5`ä÷5\ä ðµtŒ&ƒ ×÷ Læðµ@0 0 0 É÷ æf&æóµ ÀãÁ÷ ê7ôâ3ÀóÁ÷ Ð3 ÁÖâ÷ º7Îâw(óµÁ÷ Lä(Á÷ š33Á ÷ €4Àì3 t÷-@â†ã*ÁÀê ÷ Ý$‡& óóÕ€Àe33 ó 3 ÁÁ À ÷ &Á:â€÷ 70âF ÷54ãó5€ÄÄe–Á÷ ü@à÷ ä&ÁÀ>÷ ˜Ü‡óµÀ÷ Â3 ƒ3€Á÷ ¨3Á÷ ˜3Àì3 ƒ„÷ ¤äwþ@Àeæ®Þ 6‡æPöÂ5 -Âµ *ðµ@&÷5râ÷5nâÂµN†÷5XâÂ5€Nˆ ÷5DâÂ5€Îüõ°c°c÷ :ä– È‡@`!‡‡÷ ‡‡Á @`†A@ f÷ é÷ éÀ±@‡Áe?¡‡¦BÂeÁ÷ &Ù÷E0Æá€‡À € ÷ 0œ„ Â Áå ûÁå 4°R ¡Œø†Á÷ èØ4ÐR ‡ÀEÿÀ@@@‡±÷5€rá ÷5<õ÷54õ¡‡À¶)÷ ¾ñÀî Ð%÷ Àê Ð% &÷ ¸á‚ðµ "lÊmFà‡fÁÆß÷ $ãÀ¶ßÀe*Åe(æ®Þ †…‡ðµøðµ€ôðµ€ ðµ ë÷ äâ÷ Àâ&f ÷ Já€÷ ºâòµ€ & ÷ Äç€p°lò5 ÇðÅ Ãß ÐÀ.÷5 î_w rõÅº Ímäì÷5îÍmØìMeÀ|òÄÊìÄmÊì !‚D7ºì÷íÔì´ì`ðð•#÷ â †ôÁ÷ å÷EÀí/Ã€ÁY÷ åÁ÷ ÆôE€ ÷ À7*ì7$ìÐ•ÿÄ üÅÁÅ ÁüÁ `Àx÷ Øý÷5hí÷m4ì4ì‡Àþëðm(ìðm4íðmìðm(íÁêëwHïw Lô7 @ö ÷5€èìÀì7Ìÿ7ÐÿÅRñEbÄÂ ÃŒ'ÂÁ…0ûLPù÷ÆìÌU ÷FëÌU÷5¤ìÌU÷5”ìÌU÷5ŒìÌUÀ`ëÀmžë‡7 NëƒÂü Á"÷ H7TÿÀDëÀm~ë7Jÿ7 Dÿƒ7>ÿ÷5FìÀ$ëÀm`ë7>ÿ78ÿæœæ=ÿˆÄ¢ À2ëÀÀÀe>7ÿ7`ÿÀëÁà `AW ƒ÷%ìW ƒÁV÷ ÊÁîêÀ÷ âòÁeÁmÌþwÀþÁew`¶þÁeÅ5` d÷5€¶ëÔeÀÔmÎêTÔŽêÔrêÔ†êÔ€ê Ô¦ë÷%œêÄ®ÔŒëÔ†ëÔŽëÄ´Ô‚êÔøÅ5€ôUþÿÌXëÌm&ê7Lþ÷åFþÔmlê÷ €÷ Ô:êÌ8êÅ5÷0ëô*êôm êþÿ ÄÖÔêþÿ÷êþ÷ ëýýæøÄî ÷ Äô ÷ à‡$Ì‡÷5ØênæÞ 7 ô7 ôÀ–é4Å²'À 7ô÷ˆé˜ê7 ®ý÷ ‚÷ H÷5¢ê÷¢ê÷•‘ýÅ²'÷`énê7 „ý÷ X÷ ÷xêÅ&(÷jý¶ó÷e°ó7 bý÷ 6÷ üÅ.(÷Déšó÷ –ó7 .ê7 Dý÷ Åx(7 8ý÷%<ê÷à*ý7 hóCDÄ5ÄEfÄmýÁ÷ :ÄeÎ öÖê‡ÅÐ ECfÓÅ ÄÔ& ÎÔÀÀÀÀeü&A÷ €Àe÷ öÎ ïÖ…âÅÊ Ä EõE@CÃeæÁÄe÷ ÂÎ ø– ë×-è÷Šé÷5€vé À\èÀå7*üÀ€!÷ Æù÷ ø‡ÀüÂòç òµ@÷eü÷ j‡Ìe?ÌE?‡÷ tà÷EéÀŒí÷ ‡Áå÷ >Àe*÷ â‡ ñµ±ñµ€A÷ ^é@ñµ Àmìç¡‡fÁ²è÷ >é‡w òí÷ 6÷ ü Â åÃåÄ…” †wÄý· ¶ï÷ Ä õÃ ð÷°ýJæ‡÷žï&ÀÐêð("ðæ "°4Îe°6ð•(ð.$÷ D÷ l€· hý7 Zï‡÷µ@`ï ÷‹YïÂ2 ‚2 "‡)2 ‡2 ƒ÷-†äBÿ÷~ä:ÿÂxäÂeÁw$Ý‡€ì· ÿ·ÿÂÂ÷îî÷ÿ€ì· øþ·òþ ÷Ìî÷àþ7 Òþ‡7 ÎþPƒ÷ ÿ·Êþæº ÷ÄþÎÀ Ž`ÂUÿ·ªþÂEÿ· þÂ‚‚g‚ ·Œü· ~î&fÂ €Á÷ JìÀm¼ãÂÁ Âüˆ°ˆÀ÷ |Àˆéð("ðæ "°4Îe°6ð•(ð.$÷ ô÷ $€Àí&þp("‡f&÷ ®þ€€ Á÷ ¢þ‡ ‡ææ)ÿˆ÷Šþý‡`Á÷ ðÛÀ("Á Á ý‡w Úë7 ØýÁ÷ š7Âý÷("ºûÀ¨&÷ Ìô÷ þýÁÂ¨ýÀž ÷ Üé7 ¦ý÷’û,ä÷å&äÀ¶èð‚û ÷ 6‡w ‚ëÂvûÅÆâaC `wdû· `û ÷fý÷TûNû÷Nûâã÷ Þã· PýÅ · ,íR”„ — ($÷f÷ ‚òÃ,&ÀHèðýðæ$"°4Îe°6ð•(ð.$÷ ´÷ äþ€· äúÁâüÅÃ%‡ ËÃåÅÆÄ ÄU?„ àa·¸ú— ($‡÷ ·ªú‡÷ ôüÂ("÷ ¶þ‡!€@@€@ €¾ ² (´ *¶ ,® .Ì$¤¶´¸î ô ¢"à à è <Ä:¨Çà Ï¦Ñâ ² Âº¼ú œÊ ÈÒÜ È ¶ æ¨ îÂ ð´èÄ êè òœì¼ ô¾öÀøª úÜüÚþÖØß ¸À.ß ¸Ä/ß ÄÆ.ß Ð<ß Ð&<ß ÐÀ.ý¨Xß æw ‚ú÷5$ó3À<÷÷ `ñ7 Xü7 (ó7 ÖÿÅ’÷ wÄÿ#Áðò÷ |óÀe*AÁå÷ ì‡ðµðµ€÷ Tóðµ Ámäñ ‡ÀÄ÷ ª÷DñÀœò÷ Ì÷ * ÷ ÷ ¤Á¦ö÷ ó7Dÿ÷%’ñ÷56ÿÀ÷5(ÿ ÷ æÁTò÷ (õ÷>ò>ò76ò"Á÷ `ùÁ€ Àmò7ò÷ òÀ¨ö÷ º‡Á`÷ té÷Eò‡w fùÀ¶ð÷ .æº!Þ ‡÷ tûwvÅª E BÒÒúÁa÷ 6éõ‡7 êñc&÷ r÷ Jò7œû€ 7 ûw ¦ñ ÷zðôú÷tððúÀmÂð7Øú7Ðú€lÀ 7Ôú7Ìúò"w rñ%€†Àm˜ð7ªú€l"À 7ªúw Vñ€ˆÀm|ð7ú€l&À 7ú€ Àmfð7~ú€l$À 7~ú7 lú7 rú·ñ·ñ·ñ·þð÷mLúXú‡w \ø÷ÿÿòÿ& æêð· èÿ¦÷ ¶ó7ŠïwŽïÍ ÷ ^ñ÷ Ôò&íÖ¶#ê–%÷ ´ÿ÷ :ñóÖ‡w ìõ÷ 6÷ ü ÂíÃíÄ…” †wÄý· °÷÷ Ä õÃ ð÷°ýDî‡÷˜÷&ÀÊòð.ðæ&°4Îe°6ð•(ð4÷ â÷ l€· hý7 T÷‡÷µ@Z÷ ÷‹S÷Â2 ‚2 "‡)2 ‡2 ƒ÷-€ìBÿ÷xì:ÿÂrìÂeÁwå‡€ì· ÿ·ÿÂÂ÷èö÷ÿ€ì· øþ·òþ ÷Æö÷àþ7 Òþ‡7 ÎþPƒ÷ ÿ·Êþæº ÷ÄþÎÀ Ž`ÂUÿ·ªþÂEÿ· þÂ‚‚g‚ ·Œü· xö&fÂ €Á÷ DôÀm¶ëÂÁ Âüˆ°ˆÀ÷ |À‚ñð.ðæ&°4Îe°6ð•(ð4÷ ’÷ $€Àí&þp.‡f&÷ ®þ€€ Á÷ ¢þ‡ ‡ææ)ÿˆ÷Šþý‡`Á÷ êãÀ.Á Á ý‡w Ôó7 ØýÁ÷ 87Âý÷.ºûÀ®÷ Tû÷ þýÁÂ¨ýÀž ÷ Öñ7 ¦ý÷’û&ì÷å ìÀ°ðð‚û ÷ Ä‡w |óÂvûÅÀêaC `wdû· `û ÷fý÷TûNû÷NûÜë÷ Øë· PýÅ · &õR”„ — .÷f÷ ‚òÃ,&ÀBððýðæ*°4Îe°6ð•(ð4÷ R÷ äþ€· äúÁâüÅÃ%‡ ËÃåÅÆÄ ÄU?„ àa·¸ú— .‡÷ ·ªú‡÷ ôüÂ.÷ ¶þ‡ÀÜé0 ÁÁÀž ÷ ¬ð‡w nòÅäêÁºé& f wèÿ÷ „ë÷ RÄ öÄÀé&ff÷ ^ë÷ ,ö ÷ Pë– N ñ– õ„ !‚æ–ÿ¦í– ‡U ‡À8éÀe*÷8é8éÂ6 RJ÷ œã‡w$é Þ ÁhêEæCÀHÁ0 æÔ Þ ‡ÀeÐ-¬ÿÐ-¨ÿò– ƒÀê$È'÷’ÿ÷-Òèê7"ê,ïÁêa(Q$ÉéH"û7^ÿ&w¦èw¤èA÷ rê¡Þ ÀBÿÖ ±‡÷ úÿ Àßðÿ· ìÿÀàí÷ h†ð¥öÿ*± `Á ÷ á7Äÿ7¾ÿ‡÷ ºÿ&÷ ´ÿÀ€U‡ß ("$ß 4 $ß @ø#ß ¸À.ß ¸Ä/ß ÄÆ.ß Ð¨7ß ÐF9ß Ð<ß Ð&<ß ÐÀ.·èý7 âý÷€Úý7 Ôý7 Òý7 Ðý€Á®çfr&Ž÷ ~±‡÷ té6¦vwŠçÂ~ç7zç÷‹”ý(Àe"ÁèìÁeB$$$ÁeÀe$$ÁHç·<\ýw<Tý w<Jý÷ ÷ ÷ ÷8ýw<.ý·‘,ýð•#÷ ÿ†`Á÷ ®ß÷ ò÷%"èWñ5@ñ5 O€f&F÷ ªè6¦vwÀæ7´æ7 4þ÷Èü*7<¾ü&ð5@ ÷‹µü÷ ª÷•©ü Àöëð•ð•÷ zþ‡÷ lþ†`Á ÷ ß÷ „Þ ÷ lüŽ÷ žé·Ž÷ R÷ fÞ ÷ Nü÷ ‚éŽ7Š?üwvþ÷4ü ÀŽë7ýÆå0·Pý÷ 8úÃ ‚Àø Ü&Ãõw¬''' '&''''' 'Ä'¾'ˆ(ˆ(x'„'²'~'‡ Šd2Ê J ‡J ŠD,ŠDb@ŠT&æR)Ò¦ÂHâÂeÁH÷ ôÚ‚ âæô€€€J Þ Ò€ · ªüƒ‡· ˆü‡w‡÷ ÷ Æ÷ vùÃ Áêá1 ï‚AÀÀ`A÷ ~÷ º&÷ ’ù€e÷ ŠùÃå"Ó áÊå€· .üÓ†–%w2þ· ã7ŠKì÷5ôâñµ€·Š7ìÀþ#Â PÂ ý‡÷ ÔÀe÷ ìÛ=‡Âpáðµ ¦÷ 2ã‚@ñ5 Àm¾áñµ ‡À®áÁ(áñ5@(‡¡ñµ€ ñµ fA ÷ té@€e±‡Âhæ‚`Á÷ ˜Ù¦÷ :÷ œ÷‡Ö ñµñµ€A÷ ˜â@ñµ Àm&á‚‡÷ dø76û÷ \ø70ûÃå÷0û÷%ý¨û÷%Xû÷m˜îûÀnàÁ$‡ÖÄ`à… Á÷ 0â÷ ¶ãÁðµ ðµ ðµp`Å ê‡÷ †è@‡w î÷5¬æwp÷%®åÀëð5bwlÄ~æ÷ ¬ô7ŠÑï÷5zæ·ŠÅïÃåÅú#ÍÄ7‚ÿ÷5|ÿÍÄU`ÍíåÄEÿÄQÀ–÷ Í ÕmVåÕÃeÕÕÕÓÕÕ ÷"æÀš÷ ÚÁ÷5&ÿ÷ ‚æÁ Á ý% ÷màä*ÿÃÅú#÷ ÄÃA÷ XæÀe–÷ œ÷ þøÄeÃ ð×-¾å‡Ã÷ ÷¸å÷ †÷5¾þDþÿ@Àm²ä5À@@@5Ã ÷ Z÷5på7Š»îÀ ä|ÀŽ÷ $Àþã÷ vó÷ @ÁlwòÁ÷ ¾åÀe–÷ 7òñÁ–÷ DEêÀÂãvÀŠ÷ ÜÀ¶ã÷ .ó÷ øÁwÊñ÷ÀñÁ ÷ EñÀã÷ ó÷5ÚäQ÷5Òä·ŠîÅª EGDÔúÀ\ã0%õ0%òÔÁåÀe*÷ ¼Ý ‡ðµ€äðµà%ðµ ÌmžãlæÀ÷ ¤÷ÃeÎ øÖõU€È÷5@VäÌ%J©ô%ø‰ñÁ`÷ ’Ûë‡ÀmÔâ&÷ ¬äÀmDã€e‡ÄeA÷ J÷Ã ø‡A÷ †äÁú#ÂÂ ý óµ Áã‡fEÃ÷ ºÿ…‡w 2î7 ò7 ò7 ðÄú&÷ hl 7Ø&fErEA÷ *ç÷ çAó "$Á ûì&õ5÷ d·eáÖÀl G÷ èæ&÷ídæzÂ'Òàœ÷ RÒÀeÐ9…Dm& ÄJ’$ Ã(æÅ'÷ î€œÀe …¦Ã ÐDm&€÷ X€ñ„€÷ VÖ€·Ö‡Áhw(Ý÷ê¦Äþ&À÷ JwÖÄ'À÷ :wÈ÷å¾÷åº‚Ä°Äí”å ¦ Ä¢ÒzÒìr ÃzåÅ'÷ @Å'€œu÷ uõ‚ÁÊ A·1,ù1,õuu õU€5 5 5 õ4Ä,Ã÷ Ø€Â' ÄÃÅ'÷ ¦À'ÐàPHìþÿ ÐÖ PPÐÊ„ÃªäÅ'÷ pw~þ&Áð÷ Æ÷€Àe&Áž÷ ¶÷€Ð÷ ¬÷‡&÷ l å‡ÁNä÷ ÚäÀeÁå÷ hÝ‡‡Áhw”ÛÁEÿ‡fÄeA÷ V÷Ã ø‡A*÷ äœÀe5"5,$Á ö‡ ð‡,3X s,w ØüÀšù÷ ¾óÅÖ Í5@2ÀŒù÷ ªóð•#÷ r †`Á÷ ¤ìÍE@ôµ 7"žÿ÷–ÿæ:ÿˆ7 ÷‚ÿ÷5 õ÷tÿ÷ ÷ ôÀö÷ >À4÷ 6Í5@÷Tÿæ:ÿˆ÷ ®wêw 4üÀ|óÀeæ®Þ ‡ðµúðµ ö0ðµ€0 ÷ ´öê‡w öû÷ X÷5@”ô)À:ó÷ Ä÷ €÷5€ôæ®ÀóÀeÞ ‡ðµ÷ âô÷ hö0ì0 îæÞ ‡÷ DûÀàòðlÂe¦¦ lÁœ÷ zëž÷5@ô÷ Ô‡÷5ô À¨òðl÷^þ÷Zþæ:ÿˆÁ°÷ ¶ÂÁü É ÷ ²ë÷4þæ:ÿˆ‡÷ Dô7œ ý€ 7 üüw ó ÷tòîü÷nòêüÀm¼ò7Òü7Êü€lÀ 7Îü7Æüò"w ló%€†Àm’ò7¤ü€l"À 7¤üw Pó€ˆÀmvò7Šü€l&À 7Šü€ Àm`ò7xü€l$À 7xü7 fü7 lü÷m^üjü‡÷ úÿ Àßðÿ· ìÿÀ ÷÷ †ð¥öÿ*± `Á ÷ @ê7Äÿ7¾ÿ‡÷ ºÿ&÷ ´ÿÀ€U‡w ú÷ÿÿòÿ& æ¦ò· èÿ¦÷ rõ7FñwJñÍ ÷ ó÷ ô&íÖ¶#ê–%÷ ´ÿ÷ öòóÖ‡Àñ0 ÁÁÀž ÷ Ô÷‡w –ùÅòÁâð& f wèÿ÷ ¬ò÷ RÄ öÄÀ¸ð&ff÷ †ò÷ ,ö ÷ xò– N ñ– õ„ !‚æ–ÿ¦í– ‡U ‡dTêv ß XÒ"ß XR"ß X#ß X<#ß Xd ß d>&ß d²#ß pî#ß |´#ß ˆj"ß ¸À.ß ÄÆ.ß Ð¨7ß ÐF9ß ÐÀ.·Xú7 Rú÷€Jú7 Dú7 Bú7 @ú€ÁFëfr&Ž÷ ~±‡÷ í6¦vw"ëÂë7ë÷‹ú(Àe"Á€ðÁeB$$$ÁeÀe$$Áàê·<Ìùw<Äù w<ºù÷ ÷ ÷ ÷¨ùw<žù·‘œùð•#÷ ÿ†`Á÷ Fã÷ ò÷%ºëWñ5@ñ5 O€f&F÷ Bì6¦vwXê7Lê7 Œø÷8ù*7<.ù&ð5@ ÷‹%ù÷ ª÷•ù ÀŽïð•ð•÷ Šþ‡÷ |þ†`Á ÷ ¦â÷ „Þ ÷ ÜøŽ÷ 6í·Ž÷ R÷ fÞ ÷ ¾ø÷ íŽ7Š¯øwvþ÷¤ø À&ï7æÁUwÿ ÁDê=÷ ¬æÁEÿíÁ5ÁUÃÞBÁ@ƒ@ÁP+Åt)ÄÂh A5ÒR w=þÿÞÝƒ U%Õ òeþÿò üÿU%ÕÄ èò üÿÁW'— È † Òq)ù÷ ŒüÂh Ê´äÁë(÷ |üÂh ÀŒä÷ ¬Á©(÷ füÂh Àrä÷ –ÁÊ(÷ PüÂh Àpä÷ ‚Á)÷ <ü÷-,þ.þ÷-&þ(þÂh Ê¨#Á¸'÷ üÊbäŠÊmäÁ›'÷ ü÷5*åÒöãÊåÊ ÷5òýÊúä÷ ~ûÁ))÷ àû÷5Úý ÒàäÊÞä÷ bûÁM)÷ Äû‡Ê¤#Á ÷ âëw¦ý÷m¢ý¤ýwžý÷m–ý˜ý‡¦ÁÐè÷ <åÀe‚Á Á ýÖ‡×-¢ã÷ ÈÿÁ (÷ ^ûÁD(÷ VûÁ((÷ Nû÷Dý÷5 hä÷6ýÀ€&÷ ”ñ‡w ªëÀúâ÷ „ðÂh ÷-îâ4ä÷^ãvíÒríÊxí²"þÿò`íþÿÊdí²"þÿÒ ÷ ~úÒÊÞüÃ>ñÊmÔüÃ üÒÀ˜â Áð'÷ ¾ú‡ODT xfr address: %P%NPRG xfr address: %P%NStack limits: %P %P %P %U.%NIdentification : %2R%NTask attributes: %VA%VA%VA%VA%VA%VA%VA%VA%VA%VA%VA%VA%VA%VA%VA%VA%NTask address limits: %P %P%NTotal task size : %T. Words%NPartition name : %2R%N%P %P %P %U. %VS%2R%N%4N%X Overlay description:%2N---- --- ------%NBase Top Length%NTask UIC : [%O,%O]%NTask name : %2R%NTask priority : %M.%NMapped array area: %T. words%NTask extension : %T. words%NTotal address windows: %M.%NTask image size : %T. words%NR-W disk blk limits: %P %P %P %U.%NR-O disk blk limits: %P %P %P %U.%N -AC,-AL,-CM,€-CP,-DA, -EA,@-FP,-HD,-PI,@-PM,-PR,-SE, -SL,€-TR,-MU,-ID,w <î÷ vý×-êå÷<büÀrå Á/(÷-jå°æÁ(÷Öåîï÷ †ýÁLåñ5Ác(ÒÖïÊÜï²"þÿÒ ÷ òü÷ Xý÷-&ålæ÷-¶ï¸ï Ò¤ïÊªïÁC(÷ Îü÷ 4ý÷5TæÁòäñµ@JŠ@¡Ò ÀeÿŠÀÀ `÷ ŽüÁƒ(÷ ðüÁ£(÷ èüÁÅ(÷ àüÁå(÷ ØüÀžä÷5ôåÀež&Àeæ®÷5Üå€c&÷ PæÞ [‡ðµ÷ :æÂh ÷ ü·,üÿÎéâ÷ ˜wpþ ·lþwjþÁµ Á5 òm¢äþÿ7Fþ ·Bþ’Á)7 >þð·Š4þðµðµ ·Š!þ÷ üæÞ ‡ÀØã÷ rùÁþý÷ ¬å÷ 2çððý0ìðäý—÷ ä‡w ^ìÅd)ÄJ’ p5ÊRaU%U%Ä óú%$$þÿò øÿò])þÿ² üÿ‡„þÿô•)‡w ìF… Âh ÷$zý;ÒrýÁzýÁµ Á5 Á5€ €ÁZý÷ ëÁmTýRòmšãþÿÊ÷‹HýË’÷‹=ý÷b,ýÀúâð5€ ÁZè÷ ´úÁ))÷ ûÓÅ ½‡w |ëÀÄâ7(èüp&×-¢ù7÷<˜ùÁD)÷ Úú€Àe*æ®÷ Ú÷ÆüÆü÷¸üÂü÷Dî¾üÅÄ#Ä¶#Þ ••UÔ¦ü÷í¢üžüÞ ÷ „ü‡÷ üù÷ˆü ÷xü‚üæ÷m|üxüôtüþÿææÄhüÂÄ#Å¶#÷æí\üÃh ÍÞ ‡÷ <‡¦Â÷ êûƒ‚Õ ¢(âî· äøÄ ÷ (üç÷ ÞùÛ÷ Øù– ÷ ü¢– ‡¡ðµðµ€ðµ€±‡w lêÄ<ÄíœøÄ7 ÁbíaÁ ý·ÎûÃÀûƒà7ºû÷²ûºû Á²ûÁí8í‚ ú‚ ·˜û÷’û‡%N*** Root segment: %2R%3N*** Segment: %2R%3NR-O mem limits: %P %P %P %U.%NR/W mem limits: %P %P %P %U.%NDisk blk limits: %P %P %P %U.%N%2NMemory allocation synopsis:%2NSection%44STitle Ident File%N-------%44S----- ----- ----%N%2R:(%VA%VA%VA%VA%VA%VA %P %P %U.%N%30S%P %P %U. %2R %2R %X%N%3NGlobal symbols:%2N%F) RO,RW,€D,I,@GBL,LCL, REL,ABS,OVR,CON,SAV,$$$,w vîÄ¼åô5€wÀ¶å÷ @ó÷ \÷ æó‡÷ ôÃå ƒ Àø ô#ðÌ$$Ê$%%%Ü$Äª#Å÷ òóÅ ûÃåÁ¨#Bœ— S‚ÂÀNåú 6$Ãç‡H$J$\$^$`$J$È$J$%‡Àe÷ ¦ß<‡Á¨#wþ‡‡ñµÀe*÷ ˆß ‡ðµ÷ fñµæ4&Þ ‡÷-îä2æðµõÖÖÀ¨#÷ ‡÷µöþÁºäñ5‡‡%Â$ê‚`Á÷ TÝÖÄ–ä&Ž Á÷ fæ÷ ìçÁðµðµ p`Î îÖ‡7 ¢ò‡Àe*÷ ÔÞ†À¨#÷ ˆ‡÷ 8üÁ¼é÷ üÁ8äRRRR Áð&÷ Xü‡f&÷ ü÷Òï>þ€Žðµ÷ Þå‚÷ ¤û ’J÷ NûÁ'÷-béÌú ×-Æú¯÷Æúwü·Š±ú‡&Á'÷‹¥ú÷ êû÷ ¢û÷jïÖý€ Á0'÷ Îû‡Á'&÷‹wú÷ ¼ûÂ¬ý÷húÁZ'÷ ªûÂh €÷ Hý· Pú·Œý÷ Šý÷ Jû÷ï~ý‡ÀBãÀe*÷BãBãÂ,&RJ÷ ¦Ý‡w.ã Þ ÁräEæCÀHÁ&&æÔ Þ ‡ÀeÐ-¬ÿÐ-¨ÿò– ƒÀä$È'÷’ÿ÷-Üâ"ä7"ä,ïÁäa(Q$ÉéH"û7^ÿ&w°âw®âA÷ |ä¡Þ ÀBÿÖ ±‡%2NFile: %X Title: %2R Ident: %2R%N <%2R>: %P %P %P %U.%N >>>>>>>>>>>> Undefined reference: %2R%2N%7Sº~w ñ÷ ø÷ (÷‡÷ b÷Ãå ƒ Àø ² ð!À ü!ü!ü!ü!ö!Ät Å÷ 4÷Å ûÃåÁr Bœ— ‚ÂÀèú ô Ãç‡!B!D!F!H!B!ú!F!F!Âêí‚`Á÷ á7bÿ7^ÿ÷•aÿwTÿwPÿ×-¬è÷ ª‡‡‡‡Â~ RRBœÂÅ×ÿ·(ÿ÷ G‡Dœ ÅµÅµ€÷ ØéÅµ Âmjè·òþÄ&ÅÅmÿwÑèþÅµ€·¼Þ †7 ´÷Å€Ðþ7 ¨ðµ€ððµìðµ ÷m èªþ÷-¤çèèá– 7ŠŸþÁ~ Â‡Ö‡‡7 ¼õ‡ÀÞì°p°÷ ˆ†`Á÷ à‡À(Âf ÁÁ ý ÷5 –èÊÁ` ÂÙw ÀïÅÖ Í5@bÍ5@VÀP"ÁrìPHPJPLPNPPPVPXPZP\Pœ^ŠÍ5ÈÕÀeÐÆæÐÄæŠ@÷ À†ÍE@@3À ì÷ <æð•#÷ ª7Prÿ †ÍE@`Á÷ ,ß÷ ÿÀ>#÷ õÀÎë÷ t‡À–ÁP"÷ ü ÀÊëÍ5÷ r÷ R‡w ìîæÞ ‡À*æð5€ø÷ 0ýõ‡ÀæÀe*÷ææÂ`#RJ÷ rà‡wúå Þ Á>çEæCÀHÁZ#æÔ Þ ‡ÀeÐ-¬ÿÐ-¨ÿò– ƒÀÞæ$È'÷’ÿ÷-¨åîæ7"èæ,ïÁâæa(Q$ÉéH"û7^ÿ&w|åwzåA÷ Hç¡Þ ÀBÿÖ ±‡¦&æ|³€Æå‚¦& æ f&&æÿˆ ‡æ æ‡ÿˆ€Æe#Æe¦ö|³& f&&æGÿˆ‡& & & & &&æÿˆÀ†×'&ùÿ±À&–‚‡ð89f¦æÆå‚œ"¦ææÿˆƒÂe\¡¡¡Âeòÿ¡¡¡!ŠÂe¦¦¦¦¦÷ ’‡Ã5Àäf÷ ÿ2*€ÆeAƒ‚‡l%ðß ¸À.ß ÄÆ.ß Ð„9ù¬sNß :>ý¨X , s,,ˆ˜ ¨ 3XÒâ s, ø"wµWw àúÀþ÷÷ Äñð•#÷ †`Á÷ ¾ê‡7b ÿÁLó÷ öÄTTÔ À¾ Ô ÷ÈñÔÂñÔÀñÔÁó÷ œóÀe*Án ÷ .ìU‡÷5Äþômòþÿ4Š7 þ÷5®þ÷5æòÃú÷ :÷ „· þ÷5 ÎòTTÔÕbÔ•T ÷ 4÷ \÷ "÷ .ÁîÂ÷ :×-¢ñ÷ 4Ázò÷ €ô×-’ñ÷ ÁðÂ÷ Ààö÷ ˆ‡Âb÷ ²éÁ@Àe÷ lëw|ý7 ŒüDÄe|=Ã*÷ °ò+& ÷ ò+–÷ –ò÷•rüÎðµw .ýÀÁ Î÷• FüÁÂ ÷ vÂ÷ n‚÷ h÷e üÁÁ®ñ÷ ´óÀ(w2w ùÅJðCÄpT–ÌÌEoÿÌU`ÌÍ5ÓÔTÔTÓÓ$ÜÔæÀþ ""Á ÒÊ,÷ Þñ<–þÿÎ í– ÓÔÔÀþ ""w-0ñÒÒ3XJšÄ*ñÁdÂ ÷ ºÂa÷ °Á„Â&!†Âå÷ š÷- ïæð÷üðÀVÁZÂ² ‘ˆ‰ÁDÂ ÷ lÂ÷ dõµ4Ã¶SšA÷ .ñ{ÂRÁJ33ómzï33ÁªÂ ÷ Â÷ Â÷ ÁÞÂ÷ ô‡@÷5Hð ÀeæÌÂÞ ‚‡¦÷ ÷Àež&€&÷ œð÷ ö‡&ðµ÷ €ððµ #wûÃòÁÂ Â ýóµ€óÅ 3 3 4Šóµ@ ÷5zû÷àúw"Á ô•÷ ðð5ó÷Àúð÷5Lû÷5„ï÷5 |ï÷ Ôt‡@Àe*æÌÂÞ ‚j‡¦4Šðµ€÷-`úÈíð÷ Âïðµ ðÅ ôÕ7, 8úÝðµÙÂeÁô Añû±"ø±,Èó””ŒÒÔÅ“ÿÔ•÷5 ú óµ ó ämìíäE %óµ ÷Ní ÷5 °îôìþÿ÷ $œ÷4íúô5üÿöôUüÿò‡Áô AñûTTŠÔ• ÷ èð‡ÀŒ Á*ÂÂ ýÁ$Â÷ äÀš÷ ¾À¦÷ ¶‡w „õÀÌì7ú7ŒúÀÄì÷ 4w‚úÁ>Â÷ ¦÷ \æ>'Þ H‡÷ Ô†w@÷ 7 ¾ ñ÷ ØìÄž÷ ÷ ê ÷ ø÷˜!÷ ”ùÔ÷†÷ ‚÷ zÀå7VùW!n‚Ålý TêptüÁžBà÷ ¸‡wÆ÷ 8@÷ ’€÷ ŒÀ÷ œwª÷ Ú@ ñ5 ñ5 ÅLì@a÷ \@@a÷ R¦Â´ëƒƒ ‚·$PùÒÃ ú&€÷ .€÷ @÷ À÷ 0w>÷ w6÷ ÷ ª÷ ˆø÷ Å÷ øÅ úwÂÈð‚`Á÷ øãÁÁePó ±PPÔÐ•Ð Ä%’‚æ!ÁBà÷ „‡ÀÔðp°÷ ”†`Á÷ šã`‡w óÀØêÀeæ®Þ ‡ðµúðµ ö0ðµ€0 ÷ îê‡Äœê&Ž Á÷ lì÷ òíÁðµðµ p`Î îÖ‡ÀÀ‡Ï ÷ –÷ x÷‡&÷ ˆ÷ j÷Î úÖ‡Á^÷÷ ØÿÁ ü‡÷ ª÷ ¾ÿ7žö÷ ž÷ ²ÿ7”ö÷å4÷Áò‡&÷ ÖÿÀêÀe÷ xä8‡wœ÷ Ãöéðµ ƒw€÷¦÷ ²ë‚€‡&÷ ”ÿ÷ ú‡Ö ðµðµ€÷ €ëðµ Ámê€‡w2þ&÷ \ë˜&–÷ PëÁmèée€‡÷ Rÿ÷ Ø÷åvö@lñ5 ñ5 Àm¼é÷ ÎþÀ÷ ®ÿ@÷ ÂþÀ÷ Òþ‡w Ðñ÷ÿÿòÿ& æ^ê· èÿ¦÷ *í7þèwéÍ ÷ Òê÷ Hì&íÖ¶#ê–%÷ ´ÿ÷ ®êóÖ‡÷ úÿ Àßðÿ· ìÿÀ(î÷ <†ð¥öÿ*± `Á ÷ Há7Äÿ7¾ÿ‡÷ ºÿ&÷ ´ÿÀ€U‡Àfè0 ÁÁÀž ÷ 6ï‡w øðÅnéÁDè& f wèÿ÷ ê÷ RÄ öÄÀè&ff÷ èé÷ ,ö ÷ Úé– N ñ– õ„ !‚æ–ÿ¦í– ‡U ‡ÀÂçÀe*÷ÂçÂçÂ¬!RJ÷ &â‡w®ç Þ ÁòèEæCÀHÁ¦!æÔ Þ ‡ÀeÐ-¬ÿÐ-¨ÿò– ƒÀ’è$È'÷’ÿ÷-\ç¢è7"œè,ïÁ–èa(Q$ÉéH"û7^ÿ&w0çw.çA÷ üè¡Þ ÀBÿÖ ±‡€¸"ìÚ" ß ¸À.ß ÄÆ.ß Ð¨7ß ÐF9ß Ð„9ß ÐÀ.·Úù7 Ôù÷€Ìù7 Æù7 Äù7 Âù€Á*âfr&Ž÷ ~±‡÷ ðã6¦vwâÂúá7öá÷‹†ù(Àe"ÁdçÁeB$$$ÁeÀe$$ÁÄá·<Nùw<Fù w<<ù÷ ÷ ÷ ÷*ùw< ù·‘ùð•#÷ ÿ†`Á÷ *Ú÷ ò÷%žâWñ5@ñ5 O€f&F÷ &ã6¦vw<á70á7 hø÷ºø*7<°ø&ð5@ ÷‹§ø÷ ª÷•›ø Àræð•ð•÷ ‚þ‡÷ tþ†`Á ÷ ŠÙ÷ „Þ ÷ ^øŽ÷ ä·Ž÷ R÷ fÞ ÷ @ø÷ þãŽ7Š1øwvþ÷&ø À æ7€ ”‡5& ”— , — !— [Ž ó— ]ðÎ îÎìÖ"@íÀ 55 ,õÿÿ.@÷ l‡õÀ.÷öÚõÒ.È•÷ ðð5€ƒ@‡– ÁÂnw$Ò· ÈÚwÎþ· ÀÚwlÿ ¢-õ€þÿÐ‹¤Sæ¤Vã”Íÿÿ‡f¦æ&f ÅÂ…`Á Á ý°* ƒ”… ‚× × Äõ× ñƒ× ÿî× "D × a‡× z‚ÄÃE ÑÝEp(p°à„ƒ”… ‚× $ú× 0‡× 9ôƒ× A‡× Zîƒ× _ë× : ‚„ƒ”… z‚× [È•]× <È•>È‹8 ƒ”… ‚× %ú× *÷× -‡× .ñƒ× 0‡× 9ëƒ× A‡× ZåƒÈ ‚ ƒ”… s‚× 0‡× 7÷ƒ× *ô× ,A ïdÈ bÁ`Š„ ƒ”… i‚× "A øÁöÂ „ A ƒ”… [‚× %ú× *÷× 0‡× 9ñƒ× A‡× Zëƒ× . £åÂ ƒ”× .× ; ƒ”… f‚× 0‡× 9‚ õ_× -ÁZ í× *ÁSA æ × ,ÁF× = Á@È5 B@ÈU °(wjþ× /*Á0Á ƒ”… .‚× $× -‡× .ƒ× 0‡× 9ƒ× A‡× Zƒ× _ × :Áÿÿ Â DÚ× "Áƒ”… ²ƒ á°0±…„ƒ‚‡f¦æ&fæÈE¢¢^Á`Å÷ ðÄÈUQÅÿÿ÷ ÜÄÈUQ ÷ ÊÎÃ‹€ÈUIáÈUÄ `¢Äe á !ddC ÷ D”¡%¡*¡.C ÈU Å ï0 0 W ,ÈUw6W /@ ÷ :ÎÄ^BDaW£-ÎŠ… W¥NW¥OD!†BÎŠzÉ…CÃE€€C¥ÃC¥D!‚Ñóñ‹þÿ€D! Î‹ñ5 ÑþÁeßƒ“ƒ ÎÃTÂåÔpRpRÎ‹pBCÃ5NŠƒÃKRÎ‹KBAÁE•—:‘Dœ0CŠÄŠý ÷ fÎÄÁeëB”— ¡ƒŠDÒ CS•ÄŠÞü ƒÐ÷ ¤‡W¤†BÅE Br ÉÎ•Š…„ƒ‚‡f¦¦)& 6 l(¢*¶„„í”ƒ ƒÅEÅ'W "Å=N îÎìW :+W =Å1 Â#W ,W /Å%W %W *ÒöÕ€ÎÄW <ÉW [ÅW >W ]¿„ v¢°(°* 6 ƒ…Æe‚‡w :ÜÁ w 0ÜÁ& W£+W£-Ž … Ä Ba—¨.Á W£#Á… Ä B•Âå0 ‡ †ËcææËcóSW –%‹ec“e‹`sþÿÄ äÖ#3‹¯‡Ö±‡& æƒË¥÷ Zÿ÷ ^ÿC…„‡w Nãð*æ8Fðµ÷ ðµ€)98÷ @ ÕeBÕ&& ðÎå¶ÕU€Ä÷ 2‰†ð¥öÿ*ð¥åÿ*Æeð*Nlv°°Î‹œ*ðµ.)÷ Ê „& ðµ#ðµ!ðµ)&ÎePæÂ(ÂeÊ¦æ&æ•&Ä÷ †•p*÷ âw"ð8 ðµ!ðÕ€)wäþð•Öÿ*wð‹*±‡8AÁe fÕœ"Šœ(Ã ÕUÿˆ†CÉ—&ð•ÿÿ+‡Å(Åe$&Ä% Ä ý„‡0Š+æ1ÿˆÅ(ÅeÃ÷ ÿß%ÿÿ&ïp’*wrÿ÷ øfœ(Á fæ)ÿˆ‡fæÿˆ‡‡÷ Nÿðµ82Áe&À(÷ ¢ß€0 0 0 80 B0 0 0 0Š)ðÅ#0Š.‡¡ðµ)ðÕ .÷ ðÅ .‡÷ ¢ðµ)ðµ÷ Â!‡f¦æ÷ ˜†ƒ‚„÷ b‡çÆeðÅ)ðµ . ðe6p4÷ 0ž8*wzþ141612Áepðµl2l0p‡,*ÿÿ±‡æ1ÿˆ‡8Áe2 ‡ÄÄ÷ `þU•Õ4 6Ååwlþ0,0, †f¦ ÷ ‚í†‡,,†÷ ÷†‡w ìß Á ìì.Â% ÷ Þý ÕeB ÁÁÁU€Á5ÁUUÁ‹åÕÄ÷ Îý ‡plp& Nœ°eðÕ€)‡ð•×ÿ*±‡÷ H‡w HãÁ(ñD÷ <ð8#ðµðÿ"ðµ#)ðµ%œœÃÅƒŒ‡ƒŒ‡ƒŒ†Ä¥Ä¥ †æ•Õÿæ•Ëÿæ•Ôÿæ•Óÿw Ä 0 ð*0 @Q$ Ñ 0 40 60Š)ðÕ)ÁeB÷ &‡÷ zñ:ðµ#÷ x3†&œ*w¦÷ Èù‡ðµ#(ðPðÕ)÷ D†ðµ@#ð¥Çÿ*ð*fff÷ þ±±‰‡÷ †&œ*wDðµ.÷ H3‡ð5ð(8ðe$8wä2€æ•Öÿ2&À(Áe÷ nà€†æ•Ùÿ%p8Éq ðµðµ#)÷ ` †ð¥öÿ*Rð*ðÕ)ðµ@#0læ•ÕÿCðµ# 02ð•ðµðÕ8÷ z00œÄ¥‚Û‡œAÄ¥ÕÄŠðð•000÷ J‡0 @0 ð‡&œ*0 @÷ ^uÄ÷ ‚ðµ#ÁeB÷ Æ÷ T÷ ¸°•*±‡÷ , ÕeBÆå•Åe>Ä€ … ðµ #ÍÕÄ ðµ#ÄDÃÍÅ ÑÄðµ#Ä…&0 ðµ#Õü Õ÷ ÷ Þ0@°Æe° 6ðµ@#040 6w:ðµ!p2‡w àÁ(B‰ Cƒàƒ òñ€€DBÂe¦æ?ÿˆ‡±Dñÿÿ(1 >‡w ¼ßð*ÁeBð8÷ 2‡ðµ÷ ‡w ’ßð*D÷ ðÂÕÂ ýww tßBC œ"¦æ&æÿˆ‡÷ <†ÂÃSYïð&*‡°p0p2ñ1ÂEÏÿÂ%0ð•ðÿ*w8Å(ð•Ùÿ*Åeœ"f¦æÿˆ‡D CÓBðÕ.E‡141612Áepðµl2l0p‡ðµ0fÂ(& Âe Ê%ÿÿ¦æ&æ&ÎeHæ ÷ àU• Â…ÃÂE•ÕfÄ÷ èp†ñ± wV÷ "‡f÷ ¬†&œ*÷ °•*±‡ÄÄÄ ðµ f÷ bu ÷ Š‡ñ± ‡ð‹*±‡8AÁe fÕœ"Šœ(Ã ÕUÿˆ†CÉ—&ð•ÿÿ+‡Å(Åe$&Ä% Ä ý„‡÷ äÿMÄw 0Š+æ1ÿˆÅ(ÅeÃ÷ ‚ÿß%ÿÿ&ïp’*wdÿ÷ øfœ(Á fæ)ÿˆ‡fæÿˆ‡‡÷ @ÿðµ82Áe&À(÷ HÛ€0 0 0 80 B0 0 0 0Š)ðÅ#0Š.‡ðµ.ðµ ð¥’¤ð¥’¤°0ð¥0l° ƒ0 ðµð•Øÿ*±¡‡ðµðe6p4÷ º†8÷ bý±‡÷ j÷ $÷ D‡‡÷ õ†‡,*ÿÿ±‡æ1ÿˆ‡ÄÄ÷ lþU•Õ4 6Ååw†þ÷ šþBfÁep`pwîý8Áe2 ‡÷ *‡ðµ) l0ì,¡‡ð•öÿ*±‡ðÅ)÷ $‡‚ððÕ)¡‡ð•öÿ*ðÕ)±‡0,40,6 ‡f÷ ^Ý†Âž Á÷ \ÓÁeÁE Á ý‡Á,Á*Á(÷ ÁeÁ(÷ ð ÁeRRR‡÷ ìÛ¦vÁÈßð pbÁeBÂeRRRRR RRÞ ‡Á÷ XÿðêÙ&Á¢÷ ”Ûð*ð•ppptðe9tÂe|²°ž° · 8Ú‡·<Û÷ Špðæ®/°4Îe°6ð•(ð²/÷ ÷ xH‡· Ý· Ý‡·öÚ÷ Hpðæ®/°4Îe°6ð•(ð²/÷ ô÷ 2ð|ÿ ä‡· ÈÜ· ÀÜ‡7 \ÿwœVÿ· RÿÁeÀ¦Ü‡‡ææ)ÿˆwŒ:ÿ †78ÿ± ÁI÷ ¤Ñ‡Õ ÁAæZ” ‡Ž ‚µþÿ” ‡Ž ‚µÿÿ”Ö5ÂJ1ÂP1È‹Õÿÿ+& È¥+È¥-Î € Ê ÖU÷ œÿÀ ÷ Êÿ‡ f ÷ |uüÿ ‡÷ puþÿ‡÷ dü†ÖÂ¥ Â¥ ”ø‡È¥ È¥ € ø‡Â Âw Öà ”Å¥ üÅ¥ ùÅå0B¡†€÷ dàAa”ôœÿÿ‡w ¤à„ææ(æ@ƒf ”Å¥Z+‡Å¥AƒÅ¥9%‡Å¥0ƒÅ¥$Å¥ ÎÅ¥.ÅåÅå÷ÿÅåÒÿÅå@&ÀfA÷ ðßE€Aa×$Ò±œÿÿ‡æ æ * æ + æ2æ3ÁEÿæÂÎE‚w ôß…ŠÂ‚†Á€Ð•-ŠƒÐŠÂÕ0@A÷ ŒßW ƒÁe`fÃŠ ÀÂ€Ã€ÂE÷ Ôÿ”•‡÷ &÷ &÷ ’•’•€‡@Á(÷ :ßf€ Àe ÀeÉÿÀe Àe ‡JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECw *ßD…&&÷ bÐ•-ÎeÁaÁe»ÿP”P”P”Ð•-$w úÞDÅ… ƒ÷ &Ð•.ÀÀÀce÷ šÞÀ …Ð•:÷ Å ù Â÷ ˆþB‡w ¦ÞÄ'Å ÂÅUD$†BA÷ ð&Â(÷ ÅUÂ ÀBQ÷ lþÂÐ•*Â ü‡%2R %P%2A -R%F%X Memory allocation map TKB %2R Page %M%N%2R%15S%Y %2Z%4N%4N************%2NUndefined references: %2N %2R%N %2RTotal task size: %M. words%N%4N*** Task builder statistics:%2N%4STotal work file references: %T.%N%4SWork file reads: %T.%N%4SWork file writes: %T.%N%4SSize of core pool: %M. words (%M. pages)%N%4SSize of work file: %M. words (%M. pages)%2N%4SElapsed time:%3Z%N%NABDEFIMNOPQRSTUXYZ<>¥´¾ÐðôÒ)4@:hqÒÆzÄÎñw lÜ&& D…•Â¥% “ù„÷ŠÀåB‡&Ð¥VA÷ LûÀ ÀCƒ ÁÁeˆÿÂ!£Â ü„ ÂÂaÂerÿ‚b‚‡AÂÊ ÖÊÐ•%„Ì¥Vå‡P”Ã ý‡Ð• B”f‚÷ ÂûÃ õ‡& æÎe¤ûB& ¦æÎeû;& æÎeþü6H”ÈÅ€¢ ¢È• € Ã ò‡÷ nŠ€‡Ð•Ã ü‡Ð‹Ã üÀ ‡Ð• Ð• Ã ú‡& æÎe@û & ¦æÎe,ûÐ• A‚¦Þ Ã ÷–%‡& æÎeûóA÷ |ûÃ û‡Ð• Ã ü‡Ð• Aæ÷ ^ûAÎ ûÖÂ ÷ $Ð•.÷ FûÂ÷ AÐ•; ÷ ´úÃ à‡Â ýð¥ ÿÿùÀ øAá÷ ~ûE‡AáÂ÷ ûE‡Á¦¶6D‡w fÚ÷ n‡ðµ)ðµ÷ J8C÷ Òð¥öÿ* ðÕ)ðð*wøð•öÿ*ú÷ †÷‡ðepp ‡÷ âê‡ð¥Cƒ óÃðµ÷ üð¥ð 0ãð•Øÿ*Ìð¥ ðµ= ÄEÕ¥^Ä ûAËð¥æÂe@ÃÎà÷ ‚ƒß‡÷ ÁEp×ðµ÷ ˆðp°æÄ ƒðÎà÷ 8ƒƒ÷ Vá÷ ù†ð•Øÿ*Á`‡ðµ)w>æ÷ ƒ‡æCàƒ#ƒÎà÷ ÎÎ¦÷ Èÿ‚ð†– ‡DàÄ ‡w ÈØð*ðµðÅ)÷ ì‡÷ >¡‡46l0ì‡w ŠØ÷ ’j‡dðµe& & & B öŠð 2PðµðµÎ• ¶“ðµÃ N”Ã Î¥$¶“Î• Åð 2ƒ2Åà‚Î¥ ŽÎæ÷ æƒvÂ Š‚ ƒ“Î• f÷ Žƒ×Æe÷ `ð¥óÿ* ð*Æeð•Øÿ*w†0,÷ ž÷ Põ‡ðµ ÷ ü‡ðÅ)ð*ðÕ)ðµ ð¥Óð¥Ólð 0Ílð ƒð¥øÿÿ÷ ¤Á‡ð¥ð ðÒð¥òeþÿÁe@Ã÷ |2‡÷ n+‡‚ ÂE°÷ ¢ðepðÕ)ì‚wÿðµð¥ ,ðµ÷ ‡÷ *wàþ÷ 6‡÷ L†w´‡B æƒàƒ#ƒÎà÷ LÎf÷ Ìÿî†– ‡Â`‡ð¥öÿ*ð*w±ðµ)0406 l0ì°‡w Ö÷ D ‡Ä0,0wçÃ÷ ‡÷ R‡w èÕ÷ $‡Ä0,0wÁÃ÷ j†46÷ ‡÷ ðµ)0406 0 ð‹*±‡& Î†Á`@€`ÃBöÖ‡æÃ & ÂA@ ‡€ã‚ Ã ÷Öƒ‡0,0, †f¦ ÷ ‚í†‡,,†÷ ÷†‡w Õ Á ìì.Â% ÷ Ž ÕeB ÁÁÁU€Á5ÁUUÁ‹åÕÄ÷ Î ‡plp& Nœ°eðÕ€)‡ð•×ÿ*±‡÷ *‡ðµ) l0ì,¡‡ð•öÿ*±‡ðÅ)÷ $‡‚ððÕ)¡‡ð•öÿ*ðÕ)±‡0,40,6 ‡ð‹*±‡ƒ D„PÄ5RÃ ý†R”‡R”R”Ã üøð8ðµðµ ð*‡ðÖ*±‡ðÃ*±‡° 6 p 4 ì0Á`p÷ ÿ‡æf¦÷ R°6°4‡÷ Tÿƒ÷ ,þ ‡÷ Ž°eð‹*wäþÖ±‡ðµ.ðµ ð¥’¤ð¥’¤°0ð¥0l° ƒ0 ðµð•Øÿ*±¡‡ðµðe6p4÷ ˆþ†8÷ ¸±‡÷ 8÷ ò÷ ‡‡÷ Òõ†‡ð8 ðµ ðµð¡‡ð•Öÿ*±‡ð*÷ 4 4 6ÅåÃ÷ Þ‡ðe6p4‡ð&*‡÷ °ðµ)ðµ÷ æü!‡f¦æ÷ T†ƒ‚„÷ .‡çÆeðÅ)ðµ . ðe6p4÷ Ö0ž8*wÐý0Š+æ1ÿˆÅ(ÅeÃ÷ @ß%ÿÿ&ïp’*w¤ý÷ øfœ(Á fæ)ÿˆ‡fæÿˆ‡‡÷ €ý8AÁe fÕœ"Šœ(Ã ÕUÿˆ†CÉ—&ð•ÿÿ+‡Å(Åe$&Ä% Ä ý„‡¡ðµ)ðÕ .÷ ÜþðÅ .‡141612Áepðµl2l0p‡,*ÿÿ±‡æ1ÿˆ‡ÄÄ÷ xÿU•Õ4 6ÅåwÔþ÷ èþBfÁep`pw|ü8Áe2 ‡w jã÷ ‡÷ r‡w ZãÁeB$&w ÁeBÉð8÷ X‡$&w ãð*÷ ®‡÷ ‡÷ "‡w ìâ÷ (‡w¸‡w Üâ÷ ú‡w®w Îâ÷ ó‡w¦w ÀâBC œ"¦æ&æÿˆ‡÷ <†ÂÃSYïð&*‡°p0p2ñ1ÂEÏÿÂ%0ð•ðÿ*wÅ(ð•Ùÿ*Åeœ"f¦æÿˆ‡D CÓBðÕ.E‡ÄÄÄ ðµ f÷ Pu ÷ º‡ñ± ‡w ðáð*ðµðµðµ#Â ò ñU@¦Âe÷ ¸‚‡÷ †æÎe¬wññ1 ‡ÃÄÄ%ñ,ñ, ñññ×±‡w Váð*DÅ Å ýæ¦!…‚ñU€q•q•ÂåC Ó¥:„ Â úÄCÃe÷ B‡Ãññ÷ (þð•Éÿ*‚ƒ‡w Öàð*æÂƒ ‚æ¦)Ä”Ä%.&Ä%;DÂ ÷ƒ ñ5À)ñ5@D…ÄDáÄ Í¥*CÃe÷ À‡aÄ%wñUXñ5@ƒ âñ5€sñU€Ä„íÄ ñUþ¥*ñU ÄÅ ñ5@XñU@ñ5€áÄ„íÄ ñUþ¥*ñUÄÅ‚öƒàÎàÃ Ê¥*Ã%C!.D`÷ ’*‡ƒ‚wúþÆeCÃ5€ñU‚Ã5 ±±± Ã5€±Ã5@±‡Æeð•Êÿ*±‡ð‹*±‡0Š+æ1ÿˆÅ(ÅeÃ÷ @ß%ÿÿ&ïp’*wÈÿ÷ øfœ(Á fæ)ÿˆ‡fæÿˆ‡‡÷ ¤ÿ8AÁe fÕœ"Šœ(Ã ÕUÿˆ†CÉ—&ð•ÿÿ+‡Å(Åe$&Ä% Ä ý„‡Ä(ð•Ùÿ*±IÄe(Ì ññ1 :¦æ&Âe´ ÷ ¬„Œíƒ‚1-1- 111¦þ ‡rrrrr‚– ‡æ¦& ƒ÷ ¶ƒ‡ñBÂeÄ÷ ,ÃÂà„ä÷ žwîð•Ìÿ*‚ƒ±‡ Ëw ²Ý&Ba —¢+—¢- ‚ Ä Ê¥#‚ Ë å¥.‹ Ä ÅæU¥ Ä€”Àå0 ‚Ë‡ÎÀb‡Ë‡Ë‡`‡€Î Ä éÁ¡€€‡±û&fæÎe…”Þ ‡Ã ûÖ€‡÷ :‡÷ $÷ LÞ ÷ ( ‡÷ LaÞ ÷ ‡TaÞ ê‡ÅÅÅ@ÅÅ`‡W!Z‚W!A†W!9‚W!0‡ÅåÒÿÅå@‡±‡f&æÄ5Ò•[Ã÷ "Ä5Ò•,ƒ“÷ Ä5Ò•]ƒ„…‡ÃEÿÃÃÅÄ5 Ã5ÿÃÃÃÅ ø… ÃÃe0ÒŠÃÃÃÃÅ õ‡w :Ü‚Á Ò¥[Ä,÷ &‡æÄ]÷ …‡ÁÅ5ÿó‹s‘‡…¡Á ü±‡Á „DáÄ w$þæ¦1 ññzññ÷ ù†ñ÷ 1 1 1 1 1 1 ‚ƒ‡DEÄeÅe $ $ ‡ DÐÁCÐ!i‚× ƒÀˆ Á`ÁêÅßõµƒ ¦Áº~÷ |ÀV ÷ >‚Àf0× ‡Àr0ÁY ”þá‹æö0!-ƒÎþ0Þ Ä’/”þÀü ÁV ‡÷ &÷ &÷ ’•’•€‡@Á(÷ „âf€ Àe ÀeÉÿÀe Àe ‡ 111O1n1†1¦1Î1ã12.2T2r22µ2ã2313^3‘3Á3á3484m4¥4Æ4å4 5/5S5w5”5±5Ú5û56H6k6“6½6è67.7[7‰7¹7 1*1O1x1¤1Ç1á12282k2™2Î2ü2.3U3Š3§3É3í3 4@4W4€4œ4Ã4à4575q5œ5Î5ö5$6P6x66Ú6767l7¨7Ú78'8K88¶8æ89:9c9…9 -- *DIAG*- -- *FATAL*-Æå €&æ?ÿˆfW Ú@W >5‡W E5 ƒW !€‡W 8€ƒW >€‡W E€ƒW ¡Œ‡W ¸ŒƒW ¾Œ‡W ÅŒ‚ Ö$|³,þÿÆe ‡ß ô1ß 1‡Illegal Get Command Line error code%2NCommand syntax error%2N%VA%2NRequired input file missing%2NIllegal switch%2N%VA%2NNo dynamic storage available%2NIllegal error-severity code %P %P %P%2NCommand I/O error%2NIndirect file open failure%2N%VA%2NIndirect command syntax error%2N%VA%2NIndirect file depth exceeded%2N%VA%2NI/O error on input file %X%2NOpen failure on file %X%2NSearch stack overflow on segment %2R%2NPass control stack overflow at segment %2R%2NFile %X has illegal format%2NModule %2R ambiguously defines P-section %2R%2NModule %2R multiply defines P-section %2R%2NModule %2R multiply defines xfr addr in seg %2R%2NModule %2R illegally defines xfr addr %2R %P%2NP-section %2R has overflowed%2NModule %2R ambiguously defines symbol %2R%2NModule %2R multiply defines symbol %2R%2NInsufficient APRs available to map read-only root%2NSegment %2R has address overflow: allocation deleted%2NAllocation failure on file %X%2NI/O error on output file %X%2NLoad addr out of range in module %2R%2NTruncation error in module %2R%2N%D undefined symbols segment %2R%2NInvalid keyword identifier%2N%VA%2NOption syntax error%2N%VA%2NToo many parameters%2N%VA%2NIllegal multiple parameter sets%2N%VA%2NInsufficient parameters%2N%VA%2NTask has illegal memory limits%2NOverlay directive has no operands%2N%VA%2NIllegal overlay directive%2N%VA%2NOverlay directive syntax error%2N%VA%2NRoot segment is multiply defined%2N%VA%2NLabel or name is multiply defined%2N%VA%2NNo root segment specified%2NBlank P-section name is illegal%2N%VA%2NIllegal P-section/segment attribute%2N%VA%2NIllegal overlay description operator%2N%VA%2NToo many nested .ROOT/.FCTR directives%2N%VA%2NToo many parentheses levels%2N%VA%2N‡Unbalanced parentheses%2N%VA%2NIllegal logical unit number%2N%VA%2NIllegal number of logical units%2N%VA%2NIllegal default priority specified%2N%VA%2NIllegal ODT or task vector size%2NIllegal filename%2N%VA%2NIllegal device/volume%2N%VA%2NLookup failure on file %X%2NIllegal directory%2N%VA%2NIncompatable reference to library P-section %2R%2NIllegal reference to library P-section %2R%2NResident library memory allocation conflict%2N%VA%2NLookup failure resident library file%2N%VA%2NIllegal partition/common block specified%2N%VA%2NNo memory available for library %2R%2NPIC libraries may not reference other libraries%N%VAIllegal APR reservation%N%VAI/O error library image file%N%VARequired partition not specified%2NInvalid APR reservation%N%VAComplex relocation error-divide by zero module %2R%2NWork file I/O error%2NLookup failure on system library file%2NUnable to open work file%2NNo virtual memory storage available%2NModule %2R not in library%2NIncorrect library module specification%N%VA%2NLibrary file %X has incorrect format%2NResident library has incorrect address alignment%2N%VA%2NPartition %2R has illegal memory limits%2NInvalid partition/common block specified%2N%VA%2NTask build aborted via request%2N%VA%2NDisk image core allocation too large%2N%VA%2NInvalid window block specification%2N%VA%2NTask requires too many window blocks%2NTask has illegal physical memory limits%N%P %P %P%2NLibrary references overlaid library%2N%VA%2NTask image file %X is non-contiguous%2NVirtual section has illegal address limits%2N%VA%2NFile %X attempted to store data in virtual section%2NResident library mapped array allocation too large%2N%VA%2NInvalid reference to mapped array by module%2R%2NEnd of file reached before .END in %X%2NSymbol %2R not found for patch %2NSegment %2R not found for patch %2NSupervisor mode completion routine is undefined %2NLibrary not built as a supervisor mode library%N%VA%2NSupervisor-mode library reference error%N%VA%2NIllegal system size specified %2NConflicting base addresses in cluster library %2NLibrary %2r not found in any cluster %2NIllegal cluster configuration %2NCluster Library Element %2R does not have null root%2Nt:'^,›c,.t:Óf?Æ@¯”LC @C €W@ý.C Àv@O p:@p:@|<@¯ˆw@Ž.Ì`@ÌÎ@<@@Ë€»@Ô( @˜.ù`@q!`@t!@"ˆw@"XH@X. #}@+.ƒ@,.À]@N9@s:€»@.*K !@õ_Ps@E`€W@E`¨W@E`PZ@@.:dˆw@=dˆw@Iq@\q†@œw°@).œw0*@œw€W@œwÀ]@œwÀv@œw}@.ïyd@c}øp@Û}}@Û}ü}@ñ°@.a(}@¼˜@(zÓfàQh¯”n÷æ.BEGINENDEXITSTOPOPENAERASEDELAYÀ.&PARSETESTFILEOPENRREADPAUSEWAITX".LQTASKNASKSASKSETTSETFSETNSETDSp.rETOSETSINCDECGOTOONERROPENCLOSE(.˜DATAENABLEDISABLEGOSUBRETURNCHAI¾NTEST”*O p:t! #}ïydE`¨W"ˆwyÒ*Ô( :dˆwÛ}ü} E`PZIq=dˆw@Þ *ñ°¼˜C €W C ÀvC œw} êþ*œw0*œw€Wœw° œwÀ]œwÀvs:€»÷öò*Ë€»,.À]õ_Ps E`€W¯ˆw<@ å*q!`ù`+.ƒ \q†p:Û}}ª.€ ÁJ&’6œ—%IF Â÷ † ™$*K !N9"c}øp(ÌÎ.4‰÷ W > W 8ÁÂw×¢Ì$‚"XH |<ÌÎ Ì`$a(}v(Z ×¢ ×¢:Ó‹õyÆÀw)ÆÌÎ"*K !Eó.t::d?Æ@¯”LN 3@èN@." …@#"0a@Î. @t: q@ãfHž@/.žw @Sy x@òy@µz€@æ©k@º&(žt::dh:dˆwhp¯”|÷æ.&À>÷•÷ €fÁ h€ C—¤!G>òyµz€ãfHžš.&Ã ûÁà÷ †‰ÀFw6 COMMAN COMMAØN 3‚#"0aFz.LN " " P0 P1 P2 P3 P4 P5 P6 P7 P8 P9÷ C.r7 ÷ wÂÂN·ºR•Á ý‚÷ w´´*èNSy xžw Î. N$Î. ).˜w®Q÷ @‡— !È‹G¤!ûôÁŸ’×Œæ©k×.¾· †÷ €ÂvÃpÃ ¤Ãû‚ ÷^Ï.äÃ\·XÂ Âà·R÷P· 7 DÀå÷µSy xžw (òyÚ. ÷ &À2Á,÷ €¾†‰Á Ám =µz€ãfHžN 3‚#"0aL0À÷ †‰w‰° N 3‚#"0at: q‚" …ó.t:N`?Æ@¯”LN 3@ÌH @0.<0@Î³-@Î z@èN@t!` @R."H&@"ØY@"@`@"°'@#"0a@¯.#"pž@;"Å@ô&òy@ô'Ä@ô' q@ç.ô'¤’@f,P@$9ž!@t: q@t:h~@A._M€%@_M}@oMû@fa"@:d¶^@Ž.ãfHž@‘m`"@Jw@œwÀž@žw @^.Ey°^@Fy;@òy@µz€@c}øp@Å.µ‡¸8@a(}@K©›8@æ©k@ªò@D.„¯½`@‹¯=@‹¯@=@ù¯ X@° €@p.é°g'@h±²'@±}s@±; @œ²2&@.ž²fa@(ê¯ˆwhp<@h’ù`h .q!`hE`€Wh^E`¨WhXE`PZhPIqhº•Û}ü}h@¯”÷æ.SUBSTITUTIONDATAGLOBALLOWERCASEESCÆ&APEQUIETe 4µ.4÷ìÿ÷ ÅŠ÷Üÿ7 ó.Î zÎ³- oMû;"Å‘m`"èNŠÏ.ZÖÿ÷Îÿ÷ ÷ T‡T÷ N‡À ÂBàÞèNf,Pæ©k&ÌH Õ.€Àp°÷ @‡ðµ <È•÷ 7‡ðµ¦K©›8‹¯=$‹¯@=.¦3ðµ/ÁCþˆÊÀð ‡Á1t:h~µ‡¸8Ê ªò;.Ìõ÷ Â ÷ Âà÷ @ÁeB…*fa" ž²faJw±; Jw œ²2&–*ò$&Ä4ÿü 7*‡÷ w‰*Fy;žw ô&òy"t: q‚$#"pž‰‰‰‰$8J^÷ ¡.‚"H&‚"°'‚"@`‚ "ØY$8J^j.&"‡ð•#÷ †÷ ‡ð•#÷ ÷ V*±}s ô'Äh±²'±}sô'¤’$h±²'å.L‡ÁeB÷ ¯÷ ‡ð•#÷ ‡÷ $±}sù¯ X±}sô' q$h±²'U$r÷ Î‡ÏA÷ @÷ 7*$èNf,Pfa"ž²fa„¯½`Æ.Ž¾÷ ÷ ½‡¾¤ ð¥ ÿÿ³À Â&Fy;žw èNf,P(ÌH }&´Bàw÷ ÷•÷ ¦‡§&@ð™,a(}èN_M€%Ey°^œwÀžf,PÅ*ÒðP÷ €w* †W-*‘÷•Ù,Jw° €Fy;žw $9ž!ÿ ‘ôw÷f÷ ó,_M}Ey°^œwÀž t: qòyµz€.@A÷ ð†‰æræx÷ ÷ g,ãfHžN 3‚#"0ar x$èN(æ©k¢.,)‡Á'ÂÀ ÷ !‡A4—%r7 ÷ „c}øp4r$t!` l*R‡w÷Á5÷5^wPØ*f,P t!` t!` ‘m`":d¶^é°g'ÿtw@wÖ‰‰Öùi(é°g' é°g't: q‚#"pž‚"°'¬Ù ¬= ®9®:K©›8<0ió.t:œw?Æ@¯”LN .@N 3@s.èN@#"0a@#"pž@Î. @t: q@–._M€%@_M}@ÕZ@ÕZË@ÕZL^@ç.ãfHž@œwÀž@òy@µz€@ð}@Ö.(zœw°hXœw0*hœw€WhœwÀ]h^FœwÀvhœw}h¯”º÷æ(æ•æ•Á•Á•Á•w÷ É*_M}_M€%ð}ÕZòy µz€ ÷ ×µ•×T*èNãfHžµz€ð}œwÀžµz€¦.8÷ ‡f÷ @…÷ ‡wæv*ÕZ N .Î. N 3"t: q&ÕZËs ^pæ÷ ÷•÷ µ•ï½*ÕZL^ èNÕZµz€ãfHžœwÀž5v‰‰h‚#"pž‚#"0a²óp!€ €kQ ›c, .TITLE TTATT .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD ; MASSACHUSETTS. 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 COPYRIGHT NOTICE. THIS ; SOFTWARE OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR ; OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND ; OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERED. ; ; THE INFORMATION IN THIS DOCUMENT 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 THAT IS NOT SUPPLIED BY DIGITAL. ; ; ; ; 09-FEB-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; FIX INCORRECT SPEED CONDITIONIZATION ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; BM010 30-JUL-79 B. S. MCCARTHY ; CHANGE IO.ATA TO CALL $CALTA FOR M+ ; TO GIVE ASTS IN USER/SUPER MODE ; DD029 17-AUG-79 DALE R. DONCHIN ; CLEAR U.ATT IF ATTACH REQUEST IS REJECTED ; DD039 28-OCT-79 DALE R. DONCHIN ; ADD F2.FDX AND REDEFINE T.USR VALUES ; DD056 16-FEB-80 DALE R. DONCHIN ; ALLOW ESCAPE SEQUENCE SUBFUNCTION WITH ATTACH FOR AST ; DD063 CHANGE BM010 TO CALL $CALTA WHEN TASK CONTEXT ; IS DEFINITELY STILL LOADED ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD090 08-DEC-80 DALE R. DONCHIN ; ADD PER UNIT ANSWER SPEED AND AUTOBAUD DETECT ; DD093 12-FEB-81 DALE R. DONCHIN ; ADD [NO]BROADCAST SUPPORT ; DD097 06-APR-81 DALE R. DONCHIN ; DON'T ALLOW A NON-PRIVILEGED TASK TO CHANGE SOME REMOTE ; LINE CHARACTERISTICS ; DD098 06-APR-81 DALE R. DONCHIN ; ADD ACD SUPPORT ; DD099 15-APR-81 DALE R. DONCHIN ; MOVE DM11-BB VECTOR AND CSR FROM UCB TO SCB ; DD101 06-MAY-81 DALE R. DONCHIN ; IMPLEMENT IO.HNG FOR REMOTE LINES ; DD102 08-MAY-81 DALE R. DONCHIN ; DO CONVERSION FOR TERMINALS WHICH DON'T SUPPORT LOWERCASE ; DD104 14-MAY-81 DALE R. DONCHIN ; IMPROVE FULL DUPLEX MODE AND SLAVED LINE HANDLING ; DD113 15-JUN-81 DALE R. DONCHIN ; ALLOW BUT IGNORE REDUNDANT TC.DLU SETTINGS ; DD115 23-JUN-81 DALE R. DONCHIN ; ALLOW VARIABLE LENGTH TYPEAHEAD BUFFERS ON RSX-11M-PLUS ; DD116 30-JUN-81 DALE R. DONCHIN ; ADD SERIAL COMMAND PROCESSING CAPABILITY TO RSX-11M-PLUS ; DD122 03-AUG-81 DALE R. DONCHIN ; USE SYMBOLIC NAMES FOR CONTROLLER DEPENDENT ROUTINE INDICES ; DD127 02-NOV-81 DALE R. DONCHIN ; DON'T ALLOW A BUFFER SIZE LESS THAN 15. ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; ;+ ; TTATT - THIS MODULE CONTAINS THE ROUTINES TO PROCESS ; THE FOLLOWING I/O FUNCTION CODES: ; IO.ATT ; IO.DET ; IO.GTS ; SF.GMC ; SF.SMC ;- ; ; .IF NDF R$$MPL .MCALL HWDDF$,SCBDF$ ; DD099 ;**-1 HWDDF$ ;DEFINE KINAR5 SCBDF$ ;DEFINE S.DMCS ; DD099 .ENDC .PSECT MAP5 ; DD021 ; DD021 .IF DF T$$GTS .MCALL TTSYM$ TTSYM$ ;DEFINE F1.XXX AND F2.XXX SYMBOLS ; ; GENERATE TERMINAL SUPPORT WORDS ; ; ALWAYS SUPPORTED OPTIONS: ; TSP1 = F1.ACR!F1.BUF!F1.CCO!F1.HLD!F1.LWC!F1.RNE TSP1 = TSP1!F1.RST!F1.SYN!F1.TRW!F1.UTB!F1.VBF ; TSP2 = F2.FDX!F2.SFF ; DD039 ; ;**-1 ; CONDITIONALLY SUPPORTED OPTIONS: ; .IIF DF T$$BTW TSP1 = TSP1!F1.BTW .IIF DF T$$CCA&A$$TRP TSP1 = TSP1!F1.UIA .IIF DF T$$ESC TSP1 = TSP1!F1.ESQ .IIF DF T$$RPR TSP1 = TSP1!F1.RPR .IIF DF T$$RUB TSP1 = TSP1!F1.RUB ; .IIF DF T$$GMC TSP2 = TSP2!F2.GCH .IIF DF T$$SMC TSP2 = TSP2!F2.SCH .IIF DF T$$CUP TSP2 = TSP2!F2.CUP .ENDC ;T$$GTS ; ; DD074 ; DEFINE A SYMBOL TO BE USED LATER. THIS SYMBOL IS DEFINED WHEN I&D ; DD074 ; SPACE HAS BEEN GENERATED INTO THE SYSTEM, BUT SECONDARY POOL SUPPORT ; DD074 ; HAS NOT. ACTUALLY THE NEGATION (NOT DEFINED) IS USED TO DETERMINE ; DD074 ; WHEN THE DRIVER CHARACTERISTIC TABLES ARE (RSX-11M-PLUS SYSTEMS ; DD074 ; WITH SECONDARY POOL) OR MIGHT BE (RSX-11M SYSTEMS WITH DRIVER > 4K) ; DD074 ; MAPPED THROUGH APR 6. ; DD074 ; ; DD074 .IIF NDF T$$SPL, .IIF DF T$$COM, APR6=0 ; DD074 ; ; PPATT:: .IF DF T$$CCA&A$$TRP BIT #TF.AST,I.FCN(R3) ;ATTACH FOR UNSOLICITED INPUT AST? .IF DF T$$ESC BEQ 60$ ;N - JUMP ; DD129 ;**-1 .IFF ;T$$ESC BEQ SUC ;N - JUMP .ENDC ;T$$ESC MOV I.PRM(R3),-(SP) ;CHECK FOR NON-SPECIFIED AST ADDRESSES BIS I.PRM+4(R3),(SP)+ ;ARE BOTH AST ADDRESSES ZERO? BEQ 30$ ;Y - ERROR ; DD129 MOV #24.,R1 ;GET LENGTH OF AST BLOCK IN BYTES ;**-1 CALL $ALOCB ;ALLOCATE FROM SYSTEM POOL BCS 40$ ;FAILED - JUMP ; DD129 MOV KINAR5,(R0)+ ;INSERT DRIVER APR 5 MAPPING (A.KSR5) ;**-1 MOV #DQAST,(R0)+ ;INSERT POINTER TO ROUTINE TO CALL WHEN ;AST BLOCK IS DEQUEUED (A.DQSR) MOV R0,U.TAST(R4) ;SAVE POINTER TO AST BLOCK IN UCB TST (R0)+ ;SKIP OVER LINK WORD CLR (R0)+ ;SET BLOCK LENGTH ZERO TO FORCE SYSXT ;TO CALL US WHEN BLOCK IS DEQUEUED (A.CBL) MOV #16.,(R0)+ ;ALLOCATE 16. BYTES ON TASK'S STACK (A.BYT) TST (R0)+ ;SKIP PAST AST ADDRESS (A.AST) ;THIS WILL BE FILLED IN AT AST TIME MOV #1,(R0)+ ;INSERT NUMBER OF AST PARAMETERS (A.NPR) INC R0 ;SKIP OVER LOW BYTE OF PARAMETER (A.PRM) MOVB I.PRM+2(R3),(R0)+ ;INSERT USER-DEFINED HIGH BYTE OF PARAMETER ;(A.PRM+1) MOV R5,(R0)+ ;INSERT POINTER TO U.TSTA (A.PRM+2) CLRB (R0)+ ;CLEAR FLAGS (A.PRM+4) MOVB I.FCN(R3),(R0)+ ;SAVE SUBFUNCTION CODE (A.PRM+5) MOV I.PRM+4(R3),@R0 ;INSERT ^C ADDRESS INTO AST BLOCK BEQ 10$ ;NONE SPECIFIED - JUMP ; DD129 BIT #TF.XCC,I.FCN(R3) ;CONFLICTING SUBFUNCTION CODE? ;**-1 BNE 20$ ;Y - ERROR ; DD129 ; BM010 .IF NDF S$$LIB ; BM010 ; BM010 BIT #1,@R0 ;ODD ADDRESS GIVEN? ;**-1 BNE 10$ ;Y - ERROR ; DD063 .ENDC ; NDF S$$LIB ; DD063 ; DD063 10$: MOV I.PRM(R3),2(R0) ;INSERT ALL CHARACTER AST ADDRESS ; DD129 ;**-1 .IF DF T$$ESC BEQ 60$ ;NONE SPECIFIED - JUMP ; DD129 ;**-1 .IFF ;T$$ESC BEQ SUC ;NONE SPECIFIED - JUMP .ENDC ;T$$ESC .IF NDF S$$LIB ; BM010 ; BM010 BIT #1,2(R0) ;ODD ADDRESS GIVEN? BNE 20$ ;Y - ERROR ; DD129 ; BM010 .ENDC ; NDF S$$LIB ; BM010 ; BM010 .IF DF T$$ESC ; DD056 ; DD056 BR 60$ ;SUCCESS ; DD056 ; DD056 .IFF ;T$$ESC ; DD056 ; DD056 BR SUC ;SUCCESS ; DD056 ; DD056 .ENDC ;T$$ESC ; DD056 ; DD056 20$: SUB #20.,R0 ;POINT TO TOP OF AST BLOCK ; DD129 MOV R3,-(SP) ;SAVE A REG ;**-3 CALL $DEACB ;DEALLOCATE NEEDLESS AST BLOCK MOV (SP)+,R3 ;RESTORE A REG CLR U.TAST(R4) ;CLEAR POINTER TO AST BLOCK 30$: MOV #IE.SPC,R0 ;SET ILLEGAL AST ADDRESS ERROR CODE ; DD129 BR 50$ ;JOIN COMMON ERROR CODE ; DD029 40$: MOV #IE.NOD,R0 ;ERROR - NO DYNAMIC MEMORY ; DD129 50$: CLR U.ATT-U.TSTA(R5) ;CLEAR POINTER SET UP BY $GSPKT ; DD029 BR FIN ;**-3 .ENDC ;T$$CCA&A$$TRP ;**-1 .IF DF T$$ESC 60$: BIT #TF.ESQ,I.FCN(R3) ;TASK WANTS ESCAPE SEQUENCES ; DD129 BEQ SUC ;N - JUMP ;**-1 BIS #S3.WES,4(R5) ;Y - REMEMBER BR SUC ;SUCCESS .ENDC ;T$$ESC ; PPDET:: MOV R3,-(SP) ;SAVE R3 ; DD116 .IF DF T$$SER ; DD116 ; DD116 BIT #UM.SER,U.MUP-U.TSTA(R5) ;DETACH WHILE IN SERIAL MODE? ; DD116 BNE 10$ ;Y - DON'T FLUSH TABUF, JUMP ; DD116 ; DD116 .ENDC ;T$$SER ; DD116 ; DD116 CALL I1CTXL ;FLUSH TYPE-AHEAD BUFFER WITH INTERRUPTS ;LOCKED OUT 10$: BIC #S1.CTO,@R5 ;CLEAR CTRL-O BIT ; DD116 BIS #S2.IRQ!S2.ORQ!S2.SRQ,2(R5) ;**-1 ;LOOK FOR ALL SORTS OF PACKET IN THE QUEUE ;NEXT TIME .IF DF T$$CCA!A$$TRP .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;SET VIRTUAL ADDRESS OF UCBX AND TABUF ; DD074 MOV U.TAPR-U.TSTA(R5),@#KDSAR5 ;MAP UCBX AND TABUF ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;GET UCBX ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 BEQ 20$ ;NONE - JUMP ; DD129 MOV U.TAST(R4),R0 ;GET AST BLOCK ;**-1 BEQ 20$ ;NONE - JUMP ; DD129 CLR U.TAST(R4) ;ZERO AST BLOCK POINTER ;**-1 RORB A.PRM+4(R0) ;IS IT QUEUED? BCS 20$ ;Y - DON'T DEALLOCATE ; DD129 CALL DEACB ;DEALLOCATE AST BLOCK TO SYSTEM POOL ;**-1 .ENDC ;T$$CCA!A$$TRP 20$: MOV (SP)+,R3 ;RESTORE R3 ; DD129 ;**-1 .IF DF T$$ESC BIC #S3.WES,4(R5) ;DON'T LOOK FOR ESCAPE SEQUENCES ANY MORE .ENDC ; ; SUC: CLR R1 ;CLEAR SECOND WORD OF IO STATUS BLOCK MOV #IS.SUC,R0 ;SUCCESS FIN: JMP $IOFIN ;FINISH IO ; PPHNG:: ; DD101 ; DD101 .IF DF T$$MOD ; DD101 ; DD101 BIT #U2.RMT,U.CW2-U.TSTA(R5) ;REMOTE LINE? ; DD101 BEQ SUC ;N - JUMP ; DD101 MOV R3,-(SP) ;SAVE I/O PACKET ADDRESS ; DD101 BIC #U2.RMT,U.CW2-U.TSTA(R5) ;SET NONREMOTE (DUE TO DZ11 POLLING) ; DD101 BISB #US.CRW,U.STS-U.TSTA(R5) ;SET WAITING FOR CARRIER ; DD101 MOV #CT.TIM,R2 ;SET INDEX FOR MODEM TIMEOUT ROUTINE ; DD122 CALL CTRD ;INITIATE TIMEOUT WHICH WILL CAUSE DTR TO BE ; DD101 ;DROPPED AND THE USER OF THE LINE LOGGED OUT ; DD101 BIS #U2.RMT,U.CW2-U.TSTA(R5) ;RE-ESTABLISH REMOTE STATUS ; DD101 MOV (SP)+,R3 ;RESTORE I/O PACKET ADDRESS ; DD101 ; DD101 .ENDC ;T$$MOD ; DD101 ; DD101 BR SUC ;SUCCESS ; DD101 ; ; DD101 .PAGE ; .IF DF T$$SMC PPSPC:: ; DD074 ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 MOV #CKTAB,-(SP) ;THIS REQUEST MAY WANT TO CREATE OR ; DD074 ;REMOVE A TYPE-AHEAD BUFFER - ;**-1 ;CHECK ON THE WAY OUT ; DD074 .ENDC ;NDF T$$SPL ; DD074 ; DD074 SAVNR ;SAVE R5 SUB #U.TSTA,R5 ;POINT TO START OF UCB .ENDC ;T$$SMC .IF DF T$$GTS!T$$GMC!T$$SMC .ENABL LSB PPSPC1::MOV I.PRM(R3),KISAR6 ;MAP USER BUFFER IN APR 6 MOV I.PRM+2(R3),R1 ;GET START OF BUFFER (WE KNOW IT IS ON A ;WORD BOUNDARY) .ENDC ;T$$GTS!T$$GMC!T$$SMC .IF DF T$$GTS CMP I.FCN(R3),#IO.GTS ;IS IT IO.GTS? BNE 20$ ;N - JUMP MOV #IS.SUC,R0 ;SET SUCCESS MOV #TSP1,(R1)+ ;STORE FIRST WORD OF SUPPORT PARAMETERS CMP I.PRM+4(R3),#2 ;WANTS MORE THAN 1 WORD? BEQ 10$ ;N - JUMP ; DD129 MOV #TSP2,(R1)+ ;STORE SECOND WORD ;**-1 10$: JMP 300$ ;RETURN ; DD129 20$: ;REFERENCE LABEL ; DD129 ;**-2 .ENDC ;T$$GTS .IF DF T$$GMC&T$$SMC ; DD127 ;**-1 CMP I.FCN(R3),#SF.SMC ;IS IT SF.SMC? ; DD127 BEQ 30$ ;Y - JUMP ; DD127 JMP 160$ ;PROCESS GET CHARACTERISTICS REQUEST ; DD127 ;**-2 .ENDC ;T$$GMC&T$$SMC ; DD127 ;**-1 .IF DF T$$SMC ; SF.SMC ; 30$: CALL 190$ ;GET NEXT CHARACTERISTIC FROM USER BUFFER ; DD129 MOV R2,-(SP) ;SAVE BITMASK ;**-1 CMPB -1(R1),#TC.WID ;WANTS TO CHANGE BUFFER SIZE? ; DD127 BNE 40$ ;N - JUMP ; DD127 CMPB @R1,#15. ;TRYING TO SET BUFFER SIZE LESS THAN 15.? ; DD127 BHIS 40$ ;N - JUMP ; DD127 INC R1 ;POINT PAST INVALID VALUE (DECREMENTED LATER) ; DD127 JMP 230$ ;RETURN AN ERROR ; DD127 40$: ;REFERENCE LABEL ; DD127 ;**-4 .IF DF T$$MOD CMPB -1(R1),#TC.DLU ;WANTS TO CHANGE REMOTE STATUS OF A LINE? BNE 80$ ;N - JUMP ; DD129 BIT #U2.RMT,U.CW2(R5) ;DETERMINE CURRENT REMOTE STATUS OF LINE ; DD113 BNE 60$ ;LINE IS REMOTE - JUMP ; DD113 TSTB @R1 ;IS USER SETTING THE LINE REMOTE? ; DD113 BNE 70$ ;Y - JUMP ; DD113 50$: CMPB (SP)+,(R1)+ ;USER TRIED TO SET LINE AS IT ALREADY IS ; DD113 BR 30$ ;BUMP TO NEXT CHARACTERISTIC AND PROCESS IT ; DD113 60$: TSTB @R1 ;IS USER SETTING THE LINE REMOTE? ; DD113 BNE 50$ ;Y - AND IT ALREADY IS, JUMP ; DD113 70$: ;REFERENCE LABEL ; DD113 ;**-1 .IF DF R$$MPL MOV U.SCB(R5),R0 ;GET SCB MOV S.KRB(R0),R0 ;GET KRB MOVB K.PRM(R0),R0 ;GET CONTROLLER TYPE .IFF ;R$$MPL MOV U.CTYP(R5),R0 ;GET CONTROLLER TYPE .ENDC ;R$$MPL ASL R0 ;CONVERT TO A DOUBLE-WORD INDEX ; DD074 ADD R0,PC ;DISPATCH BY CONTROLLER TYPE ; DD074 JMP RMTDL ;DL11 ; DD074 JMP RMTDZ ;DZ11 ; DD074 JMP RMTDH ;DH11 ; DD074 JMP RMTDJ ;DJ11 ; DD074 ;**-1 .IF DF D$$M11 .IF DF R$$MPL RMTDH: MOV U.SCB(R5),R0 ;GET SCB ; DD099 MOV S.KRB(R0),R0 ;GET KRB ;**-1 MOVB K.CON(R0),R0 ;GET CONTROLLER INDEX ASRB R0 ;CONVERT TO A COUNT (0 TO N) MOVB R0,-(SP) ;SAVE IT ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV $DALED,KISAR6 ;MAP DRIVER DATA SPACE ; DD074 ; DD074 .IFTF ;T$$SPL ; DD074 ; DD074 MOV YMCP1,R0 ;GET POINTER TO DM11-BB KRB LIST ; DD074 .IFT ;T$$SPL ; DD074 ; DD074 MOV I.PRM(R3),KISAR6 ;REMAP TASK BUFFER ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 CMPB L.NUM-L.KRB(R0),(SP)+ ;IS THIS KRB IN THE LIST? BLOS 250$ ;N - JUMP ; DD129 ;**-1 .IFF ;R$$MPL RMTDH: MOV U.SCB(R5),R0 ;GET SCB ; DD099 TST S.DMCS(R0) ;GET DM11-BB CSR ; DD099 BEQ 250$ ;NONE - JUMP ; DD129 ;**-2 .ENDC ;R$$MPL .ENDC ;D$$M11 .IF DF D$$LMD RMTDL: ; DD099 ;**-1 .ENDC ;D$$LMD .IF DF D$$ZMD RMTDZ: ; DD099 ;**-1 .ENDC ;D$$ZMD BR 90$ ;MAKE SURE TASK IS PRIVILEGED ; DD097 80$: CMPB -1(R1),#TC.ABD ;WANTS TO CHANGE AUTOBAUD CHARACTERISTIC? ; DD097 BEQ 90$ ;Y - MAKE SURE TASK IS PRIVILEGED ; DD097 CMPB -1(R1),#TC.ASP ;WANTS TO CHANGE DEFAULT ANSWER SPEED? ; DD097 BNE 100$ ;N - JUMP ; DD097 90$: MOV I.TCB(R3),R0 ;GET ISSUING TASK'S TCB ; DD097 BIT #T3.PRV,T.ST3(R0) ;IS THE TASK PRIVILEGED? ; DD097 BEQ 220$ ;N - ERROR ; DD097 ;**-1 .ENDC ;T$$MOD 100$: CMPB -(R1),#TC.ISL ;WANTS TO CHANGE U.UNIT? ; DD113 BEQ 210$ ;Y - ILLEGAL ; DD113 CMPB (R1)+,#TC.PRI ;WANTS TO CHANGE TERMINAL PRIVILEGE? ; DD113 BEQ 220$ ;Y - ILLEGAL ; DD113 MOVB @R1,R0 ;GET NEW VALUE FROM USER BUFFER 110$: ASRB R2 ;SHIFT BITMASK RIGHT ; DD129 BCS 120$ ;CARRY - JUMP ; DD129 ROLB R0 ;SHIFT NEW VALUE LEFT ;**-2 BR 110$ ;LOOP ; DD129 120$: ROLB R2 ;PICK UP LOST BIT ; DD129 COMB R2 ;INVERT RIGHT-ADJUSTED MASK ;**-2 BITB R2,(R1)+ ;NEW VALUE IN RANGE? BNE 230$ ;N - ERROR ; DD129 BICB (SP)+,@R4 ;CLEAR OLD VALUE ;**-1 BISB R0,@R4 ;SET NEW VALUE ; DD116 .IF DF T$$SER ; DD116 ; DD116 CMPB -2(R1),#TC.TBM ;SERIAL CHARACTERISTIC? ; DD116 BNE 130$ ;N - JUMP ; DD116 TSTB R0 ;NOSERIAL NOW IN EFFECT? ; DD116 BNE 130$ ;N - JUMP ; DD116 BIC #UM.CMD,U.MUP(R5) ;Y - CLEAR COMMAND IN PROGRESS BIT ; DD116 ; DD116 .ENDC ;T$$SER ; DD116 ; DD116 130$: CMPB -2(R1),#TC.HFF ;FORMFEED CHARACTERISTIC? ; DD129 BNE 140$ ;N - JUMP ; DD129 BIC #U2.HFF,U.CW2(R5) ;Y - CLEAR OLD VALUE IN U.CW2 ;**-7 ASSUME S2.HFF,U2.HFF*2 ASRB R0 ;GET NEW VALUE BISB R0,U.CW2+1(R5) ;SET NEW VALUE BR 30$ ;GET NEXT CHARACTERISTIC 140$: ;REFERENCE LABEL ; DD129 ;**-1 .IF DF T$$MOD CMPB -2(R1),#TC.DLU ;IS IT TC.DLU (DIAL-UP LINE)? BNE 30$ ;N - JUMP INCB U.TMTI(R5) ;Y - SET MODEM TIMER BISB #US.CRW,U.STS(R5) ;SET WAITING FOR CARRIER TSTB R0 ;LINE NOW REMOTE? BNE 30$ ;Y - JUMP BICB #US.DSB,U.STS(R5) ;LOCAL - ENABLE LINE .ENDC ;T$$MOD JMP 30$ ;GET NEXT CHARACTERISTIC ; DD127 ;**-1 .ENDC ;T$$SMC .IF DF T$$GMC .IF NDF T$$SMC ; DD127 ; DD127 BR 160$ ;PREVENT FALLING INTO WRONG SPOT ; DD127 ; DD127 .ENDC ;NDF T$$SMC ; DD127 ; DD127 ; ; SF.GMC ; 150$: INC R1 ;POINT TO NEXT CHARACTERISTIC ; DD129 160$: CALL 190$ ;GET NEXT CHARACTERISTIC FROM USER BUFFER ; DD129 MOVB @R4,@R1 ;STORE CURRENT VALUE IN USER BUFFER ;**-2 MOVB R2,R0 ;COPY BITMASK COMB R0 ;INVERT IT BICB R0,@R1 ;CLEAR IRRELEVANT BITS 170$: ASRB R2 ;SHIFT BITMASK RIGHT ; DD129 BCS 150$ ;CARRY - JUMP ; DD129 RORB @R1 ;SHIFT VALUE IN USER BUFFER RIGHT TOO ;**-2 BR 170$ ;LOOP ; DD129 ;**-1 .ENDC ;T$$GMC .IF DF T$$GMC!T$$SMC 180$: ;REFERENCE LABEL ; DD129 ;**-1 .IF DF T$$GMC&T$$SMC CMP I.FCN(R3),#SF.GMC .ENDC ;T$$GMC&T$$SMC JMP (R0) ;ENTER ROUTINE TO HANDLE SPECIAL ; DD074 ;CASE OF SF.GMC OR SF.SMC ;**-1 190$: MOV #IS.SUC,R0 ;ASSUME ALL DONE ; DD129 SUB #2,I.PRM+4(R3) ;ANY MORE TO DO? ;**-1 BMI 290$ ;N - JUMP ; DD129 MOVB (R1)+,R0 ;GET NEXT CHARACTERISTIC ;**-1 BEQ 270$ ;BAD CODE - JUMP ; DD129 CMP R0,#MCHI ;TOO HIGH? ;**-1 BHI 270$ ;Y - JUMP ; DD129 ASL R0 ;MULTIPLY CODE BY 2 ;**-1 ADD #MCTAB-2,R0 ;MAKE POINTER IN MCTAB CLR R2 ; ; DD093 .IF NDF APR6 ;NO I&D SPACE OR I&D SPACE AND SECONDARY POOL ; DD093 ; DD093 MOV $DALED,KISAR6 ;MAP DRIVER TABLES ; DD093 ; DD093 .IFTF ;NDF APR6 ; DD093 ; DD093 BISB (R0)+,R2 ;GET BITMASK FOR THIS CODE MOVB (R0)+,R4 ;GET OFFSET IN UCB MOV -(R0),R0 ;GET FULL WORD IF SUBROUTINE ADDRESS ; DD093 ; DD074 .IFT ;NDF APR6 ; DD074 ; DD074 MOV I.PRM(R3),KISAR6 ;RESTORE TASK MAPPING ; DD074 TST R0 ;IS CHARACTERISTIC RECOGNIZED? ; DD093 ; DD074 .ENDC ;NDF APR6 ; DD074 ; DD074 BEQ 270$ ;CHARACTERISTIC NOT RECOGNIZED - JUMP ; DD129 BPL 200$ ;NOT A SUBROUTINE - JUMP ; DD093 CMP R0,#160000 ;NEGATIVE OFFSET (NOT A SUBROUTINE AFTER ALL)? ; DD093 BLO 180$ ;SUBROUTINE SINCE ADDRESS IS WITHIN TTDRV LIMITS; DD093 200$: ADD R5,R4 ;MAKE POINTER TO BYTE IN UCB ; DD093 RETURN ;RETURN ;**-3 ; ; ERRORS IN SF.GMC OR SF.SMC REQUESTS ; .IF DF T$$SMC 210$: MOV #!,R0 ; DD129 ;WANTS TO CHANGE FIXED CHARACTERISTIC ;**-1 BR 290$ ; ; DD129 220$: MOV #IE.PRI&377,R0 ;WANTS TO CHANGE TERMINAL PRIVILEGE ; DD129 BR 280$ ; ; DD129 230$: MOV #!,R0 ; DD129 ;ILLEGAL CHARACTERISTIC VALUE ;**-4 BR 280$ ; ; DD129 ;**-1 .IF DF D$$H11!D$$Z11 240$: MOV #!,R0 ; DD129 ;ILLEGAL SPEED (NOT SUPPORTED BY CONTROLLER) ;**-1 BR 280$ ; ; DD129 ;**-1 .ENDC ;D$$H11!D$$Z11 .IF DF T$$MOD .IF NDF D$$M11 RMTDH: ; DD099 ;**-1 .ENDC ;NDF D$$M11 .IF NDF D$$LMD RMTDL: ; DD099 ;**-1 .ENDC ;NDF D$$LMD .IF NDF D$$ZMD RMTDZ: ; DD099 ;**-1 .ENDC ;NDF D$$ZMD RMTDJ: ; DD099 250$: MOV #!,R0 ; DD129 ;WANTS TO MAKE A LOCAL ONLY LINE REMOTE ;**-2 BR 280$ ; ; DD129 ;**-1 .ENDC ;T$$MOD .IF DF T$$SPL ; DD115 ; DD115 260$: MOV #!,R0 ; DD115 ;TYPEAHEAD BUFFER ALLOCATION FAILURE ; DD115 BR 280$ ; ; DD115 ; DD115 .ENDC ;T$$SPL ; DD115 ; DD115 .ENDC ;T$$SMC 270$: MOV #!,R0 ; DD129 ;ILLEGAL CHARACTERISTIC CODE ;**-1 280$: DEC R1 ;BACK UP POINTER IN USER BUFFER ; DD129 290$: TST (SP)+ ;CLEAN STACK ; DD129 ;**-2 .ENDC ;T$$GMC!T$$SMC .IF DF T$$GTS!T$$GMC!T$$SMC 300$: SUB I.PRM+2(R3),R1 ;GET OFFSET IN USER BUFFER ; DD129 CALL RESM ;RESTORE DATA MAPPING ;**-1 JMP FIN ;FINISH REQUEST .ENDC ;T$$GTS!T$$GMC!T$$SMC .IF DF T$$GMC!T$$SMC .PAGE ; ; GET/SET RECEIVE/TRANSMIT/ANSWER SPEED ; DD090 ; ;**-1 .IF DF D$$H11!D$$Z11 ;ONLY DH11 AND DZ11 HAVE SETTABLE SPEED MCRSP:: MCXSP:: ; DD090 .IF DF T$$MOD ; DD090 ; DD090 MCASP:: ; DD090 ; DD090 .ENDC ;T$$MOD ; DD090 ; DD090 .IF DF T$$GMC&T$$SMC BEQ 310$ ;GET SPEED - JUMP ; DD129 ;**-1 .ENDC ;T$$GMC&T$$SMC .IF DF T$$SMC ; ; SET SPEED ; MOVB (R1)+,R0 ;SET SPEED - GET USER VALUE BEQ 230$ ;ZERO - ERROR ; DD129 CMP R0,#SPHI ;IN RANGE? ;**-1 BHI 230$ ;N - ERROR ; DD129 CALL 360$ ;CALL CONTROLLER DEPENDENT ROUTINE ; DD129 ;HIGH BYTE OF R0 ASSUMED 0 ; DD090 BCS 240$ ;ERROR - JUMP ; DD129 BR 190$ ;OK - GET NEXT CHARACTERISTIC ; DD129 ;**-5 .ENDC ;T$$SMC .IF DF T$$GMC ; ; GET SPEED ; 310$: MOV #100000,R0 ;INDICATE GET SPEED ; DD090 INC R1 ;BUMP POINTER IN USER BUFFER ;**-1 CALL 360$ ;CALL CONTROLLER DEPENDENT ROUTINE ; DD129 ; DD090 .IF DF T$$MOD ; DD090 ; DD090 BIT #1000,R0 ;GET ANSWER SPEED? ; DD090 BEQ 320$ ;N - JUMP ; DD090 MOVB U.CW3+1(R5),R0 ;Y - GET ANSWER SPEED BITS ; DD090 BR 330$ ;JOIN COMMON CODE ; DD090 ; DD090 .ENDC ;T$$MOD ; DD090 ; DD090 320$: MOVB U.CW3(R5),R0 ;GET SPEED BITS ; DD090 CMPB -2(R1),#TC.XSP ;TRANSMIT SPEED? ; DD090 BNE 330$ ;N - MUST BE RECEIVE SPEED, JUMP ; DD090 ; DD090 .IF DF R$$EIS ; DD090 ; DD090 ASH #-4,R0 ;PUT TRANSMIT SPEED BITS INTO PROPER POSITION ; DD090 ; DD090 .IFF ;R$$EIS ; DD090 ; DD090 ASR R0 ;PUT TRANSMIT SPEED BITS INTO PROPER POSITION ; DD090 ASR R0 ; ; DD090 ASR R0 ; ; DD090 ASR R0 ; ; DD090 ; DD090 .ENDC ;R$$EIS ; DD090 ; DD090 330$: BIC #^C<17>,R0 ;CLEAR ALL BUT SPEED BITS ; DD090 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV $DALED,KISAR6 ;MAP DRIVER SPEED TABLES ; DD074 ; DD074 .IFTF ;T$$SPL ; DD074 ; DD074 MOV R4,-(SP) ;SAVE START OF SPEED TABLE ; DD074 MOV #SPHI,R2 ;GET NUMBER OF ENTRIES IN TABLE ;**-14 340$: CMPB R0,(R4)+ ;MATCH? ; DD129 BEQ 350$ ;Y - JUMP ; DD129 SOB R2,340$ ;N - LOOP ; DD129 MOV @SP,R4 ;UNRECOGNIZED SPEED - RETURN A ZERO ;**-3 350$: SUB (SP)+,R4 ;GET OFFSET IN TABLE ; DD129 ; DD074 .IFT ;T$$SPL ; DD074 ; DD074 MOV I.PRM(R3),KISAR6 ;RESTORE TASK MAPPING ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 MOVB R4,-1(R1) ;STORE IN USER BUFFER ;**-1 BR 190$ ;GET NEXT CHARACTERISTIC ; DD129 ;**-1 .ENDC ;T$$GMC ; ; LOCAL SUBROUTINE TO CALL CONTROLLER-DEPENDENT ROUTINE ; 360$: CMPB -2(R1),#TC.RSP ;RECEIVE SPEED? ; DD129 BEQ 370$ ;Y - JUMP ; DD129 BIS #400,R0 ;N - FLAG TRANSMIT SPEED ; DD090 370$: ;REFERENCE LABEL ; DD090 ; DD090 .IF DF T$$MOD ; DD090 ; DD090 CMPB -2(R1),#TC.ASP ;ANSWER SPEED? ; DD090 BNE 380$ ;N - JUMP ; DD090 BIS #1000,R0 ;Y - FLAG ANSWER SPEED ; DD090 ; DD090 .ENDC ;T$$MOD ; DD090 ; DD090 380$: MOV R3,-(SP) ;SAVE R3 ; DD090 MOV R5,-(SP) ;SAVE R5 ;**-4 .IF DF T$$SPL ; DD074 ; DD074 MOV $DALED,KISAR6 ;MAP DRIVER SPEED TABLES ; DD074 ; DD074 .IFTF ;T$$SPL ; DD074 ; DD074 MOV #CT.PRM,R2 ;SET INDEX FOR LINE PARAMETER ROUTINE ; DD122 ADD #U.TSTA,R5 ;POINT TO U.TSTA ;**-10 CALL CTRD ;CALL CONTROLLER-DEPENDENT ROUTINE MOV (SP)+,R5 ;RESTORE REG'S MOV (SP)+,R3 ; DD074 .IFT ;T$$SPL ; DD074 ; DD074 MOV I.PRM(R3),KISAR6 ;RESTORE TASK MAPPING ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 RETURN ;RETURN WITH CC-C PRESERVED ; ; ERRORS IN GET/SET SPEED ; .IFTF ;D$$H11!D$$Z11 YJLPAR:: ;DJ11, DL11 DON'T HAVE SETTABLE YLLPAR:: ;LINE PARAMETERS .IFT ;D$$H11!D$$Z11 CMPB -(R1),(SP)+ ;BACKUP USER BUFFER POINTER AND ;POP RETURN ADDRESS MOV (SP)+,R5 ;RESTORE R5 MOV (SP)+,R3 ;RESTORE R3 TST (SP)+ ;REMOVE 1 MORE RETURN ADDRESS .IFTF ;D$$H11!D$$Z11 MOV #!,R0 ;CONTROLLER DOES NOT HAVE SETTABLE SPEED .IFF ;D$$H11!D$$Z11 BR 290$ ;FINISH REQUEST ; DD129 ;**-1 .IFT ;D$$H11!D$$Z11 BR 280$ ;BACK UP POINTER AND FINISH REQUEST ; DD129 ;**-1 .ENDC ;D$$H11!D$$Z11 .PAGE ; ; GET/SET TERMINAL TYPE ; MCTTP:: .IF DF T$$GMC&T$$SMC BEQ 460$ ;GET TERMINAL TYPE - JUMP ; DD129 ;**-1 .ENDC ;T$$GMC&T$$SMC .IF DF T$$SMC ; ; SET TERMINAL TYPE. ; IF THE TYPE IS RECOGNIZED (CONTAINED IN THE TABLES TTYP1, TTYP2, TTYP3), ; SET THE CORRESPONDING IMPLICIT CHARACTERISTICS. IMPLICIT CHARACTERISTICS ; ARE: ; TC.HHT ; TC.HFF ; TC.HFL ; TC.LPP ; TC.SCP ; TC.VFL ; TC.WID ; ; IN ADDITION, THE CURSOR POSITIONING TYPE IS STORED. ; ; IN ANY CASE, STORE NEW TYPE VALUE IN U.TTYP. ; MOVB @R1,R2 ;GET NEW TYPE VALUE BEQ 440$ ;ZERO - UNKNOWN, JUMP ; DD129 CMPB R2,#TTPHI ;IN TERMINAL TYPE TABLE? ;**-1 BHI 440$ ;N - UNKNOWN, JUMP ; DD129 ;**-1 .IF NDF APR6 ; DD074 ;**-1 MOV KISAR6,-(SP) ;SAVE TASK MAPPING MOV $DALED,KISAR6 ;MAP DRIVER TABLES ; DD074 ;**-1 .IFTF ;NDF APR6 ; DD074 ;**-1 BIC #U2.CRT,U.CW2(R5) ;ASSUME 0 FOR ALL CHARACTERISTICS BIC #S2.HFF!S2.HHT!S2.HFL!S2.VFL,U.TSTA+2(R5) BIC #U3.UPC,U.CW3(R5) ;ASSUME TERMINAL SUPPORTS LOWERCASE ; DD102 CMPB R2,#T.AS35 ;CHECK THAT ; DD102 BHI 400$ ;ASSUMPTION WAS CORRECT - JUMP ; DD102 BIS #U3.UPC,U.CW3(R5) ;FORCE LOWER TO UPPER CASE CONVERSION ; DD102 400$: MOVB TTYP1-1(R2),R0 ;GET IMPLICIT CHARACTERISTICS ; DD102 BICB #300,R0 ;CLEAR OUT CURSOR POS. TYPE ;**-1 ; ; ALL IMPLICIT CHARACTERISTICS EXCEPT TC.SCP MUST ALL BE ; IN THE HIGH BYTE OF STATUS WORD 2 ; .IIF LT S2.HFF-400 .ERROR .IIF LT S2.HFL-400 .ERROR .IIF LT S2.HHT-400 .ERROR .IIF LT S2.VFL-400 .ERROR 410$: BISB R0,U.TSTA+3(R5) ;STORE IMPLICIT CHARACTERISTICS IN HIGH ; DD129 ;BYTE OF STATUS WORD 2 ;**-1 BIC #U2.HFF,U.CW2(R5) ;ASSUME NEW TYPE DOESN'T SUPPORT FF BITB #S2.HFF/400,R0 ;WAS FORMFEED CHARACTERISTIC SET? BEQ 420$ ;N - JUMP ; DD129 BIS #U2.HFF,U.CW2(R5) ;Y - SET CORRESPONDING BIT IN U.CW2 ;**-1 420$: MOVB TTYP2-1(R2),U.CW4(R5) ;STORE IMPLICIT PAGE WIDTH ; DD129 MOVB TTYP3-1(R2),U.TLPP(R5) ;STORE IMPLICIT PAGE LENGTH ;**-2 BPL 430$ ;NOT A SCOPE - JUMP ; DD021 BICB #200,U.TLPP(R5) ;CLEAR SCOPE FLAG IN U.TLPP ;**-1 BIS #U2.CRT,U.CW2(R5) ;SET SCOPE FLAG IN U.CW2 430$: ;REFERENCE LABEL ; DD021 ; DD021 .IFT ;NDF APR6 ; DD074 ; DD021 MOV (SP)+,KISAR6 ;RESTORE TASK MAPPING ; DD021 ; DD021 .ENDC ;NDF APR6 ; DD074 ; DD021 440$: MOVB @R1,U.TTYP(R5) ;SET TERMINAL TYPE ; DD129 BIC #U2.L3S!U2.VT5,U.CW2(R5) ;CLEAR TYPE BITS IN U.CW2 ;**-1 CMPB (R1)+,#T.L30S ;LA30S? BNE 450$ ;N - JUMP ; DD129 BIS #U2.L3S,U.CW2(R5) ;Y - SET TYPE BIT IN U.CW2 ;**-1 BR 470$ ;ALL DONE ; DD021 450$: CMPB -1(R1),#T.VT05 ;VT05B? ; DD129 BNE 470$ ;N - JUMP ; DD021 BIS #U2.VT5,U.CW2(R5) ;Y - SET TYPE BIT IN U.CW2 ;**-3 BR 470$ ;ALL DONE ; DD129 ;**-9 .ENDC ;T$$SMC .IF DF T$$GMC ; ; GET TERMINAL TYPE ; 460$: MOVB U.TTYP(R5),(R1)+ ;GET TERMINAL TYPE ; DD129 ;**-1 .ENDC ;T$$GMC 470$: JMP 190$ ;GET NEXT CHARACTERISTIC ; DD129 .PAGE ;**-1 ; ; GET/SET TYPE-AHEAD BUFFER ACTIVE CHARACTER COUNT ; MCTBF:: .IF DF T$$GMC&T$$SMC BEQ 510$ ;GET COUNT - JUMP ; DD129 ;**-1 .ENDC ;T$$GMC&T$$SMC .IF DF T$$SMC ; ; FLUSH THE TYPE-AHEAD BUFFER ; CALL 500$ ;FAKE A ^X TSTB (R1)+ ;BYPASS DUMMY SET VALUE JMP 190$ ;GET NEXT CHARACTERISTIC ; DD129 500$: CALL 620$ ;MAP DRIVER DATABASE ;**-1 CALLR I1CTXL ;FLUSH BUFFER. RETURN WILL REMAP USER .ENDC ;T$$SMC .IF DF T$$GMC ; ; GET THE NUMBER OF CHARACTERS IN THE TYPE-AHEAD BUFFER ; 510$: CALL MAPD ;MAP DATA AREA ; DD129 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV U.TAPR(R5),@#KDSAR5 ;MAP TABUF ; DD074 MOV #120000+U.TTBF,R2 ;GET TABUF ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TTAB(R5),R2 ;GET TABUF ;**-1 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 MOVB 2(R2),R2 ;GET ACTIVE CHARACTER COUNT MOV I.PRM(R3),KISAR6 ;MAP USER BUFFER MOVB R2,(R1)+ ;STORE COUNT IN BUFFER JMP 190$ ;GET NEXT CHARACTERISTIC ; DD129 ;**-1 .ENDC ;T$$GMC .PAGE ; DD115 ; DD115 .IF DF T$$SPL ; DD115 ; DD115 ; ; DD115 ; GET/SET TYPEAHEAD BUFFER PRESENCE AND SIZE ; DD115 ; ; DD115 MCTYP:: ; DD115 ; DD115 .IF DF T$$GMC&T$$SMC ; DD115 ; DD115 BEQ 520$ ;GET PRESENCE - JUMP ; DD115 ; DD115 .ENDC ;T$$GMC&T$$SMC ; DD115 ; DD115 .IF DF T$$SMC ; DD115 ; DD115 ; ; DD115 ; ENABLE TYPEAHEAD WITH AN OPTIMAL DEFAULT SIZE ; DD115 ; ; DD115 MOV #<<2*64.>->,R2 ;COMPUTE OPTIMAL TABUF SIZE ; DD115 TSTB (R1)+ ;ASSUME ENABLING TYPEAHEAD ; DD115 BNE 530$ ;CORRECT - JUMP ; DD115 CLR R2 ;INDICATE NO TYPEAHEAD ; DD115 BR 530$ ;ENFORCE THAT ; DD115 ; DD115 .ENDC ;T$$SMC ; DD115 ; DD115 .IF DF T$$GMC ; DD115 ; DD115 ; ; DD115 ; RETURN WHETHER TYPEAHEAD IS ENABLED OR DISABLED (ENABLED IMPLIES A SIZE ; DD115 ; OF 2 OR GREATER) ; DD115 ; ; DD115 520$: MOVB #1,(R1)+ ;ASSUME TYPEAHEAD IS ENABLED ; DD115 BR 580$ ;CHECK THAT ; DD115 ; DD115 .ENDC ;T$$GMC ; DD115 ; DD115 ; ; DD115 ; GET/SET TYPEAHEAD BUFFER SIZE ; DD115 ; ; DD115 MCTBS:: ; DD115 ; DD115 .IF DF T$$GMC&T$$SMC ; DD115 ; DD115 BEQ 570$ ;GET COUNT - JUMP ; DD115 ; DD115 .ENDC ;T$$GMC&T$$SMC ; DD115 ; DD115 .IF DF T$$SMC ; DD115 ; DD115 ; ; DD115 ; SET THE SIZE OF THE TYPEAHEAD BUFFER (0 -> 255.). ; DD115 ; A SIZE OF ZERO OR ONE IMPLIES TYPEAHEAD DISABLED ; DD115 ; ; DD115 CLR R2 ;PREPARE TO PICK UP A BYTE ; DD115 BISB (R1)+,R2 ;GET THE USER SPECIFIED SIZE ; DD115 530$: MOV R1,-(SP) ;SAVE BUFFER POINTER ; DD115 MOV 120000+U.TAST,-(SP) ;SAVE POSSIBLE AST ADDRESS ; DD115 MOV R2,R1 ;PUT SIZE IN R1 ; DD115 BNE 540$ ;SETTING NOTYPEAHEAD? ; DD115 MOV #1,R1 ;Y - SET SIZE TO 1 ; DD115 540$: MOV R1,-(SP) ;SAVE SIZE ; DD115 ADD #T$$UXL+4+77,R1 ;COMPUTE TOTAL NUMBER OF BYTES NEEDED ; DD115 ASH #-6,R1 ;CONVERT TO NUMBER OF SECONDARY POOL BLOCKS ; DD115 CALL $ALSEC ;ATTEMPT TO ALLOCATE THEM ; DD115 BCS 560$ ;FAILURE - JUMP ; DD115 MOV R0,-(SP) ;SAVE ADDRESS OF SEC POOL RETURNED BY $ALSEC ; DD115 ADD #U.TSTA,R5 ;POINT TO STATUS TRIPLEWORD ; DD115 MTPS #TTPRI ;PREVENT INTERRUPTS WHILE CHANGING SIZE ; DD115 CALL DEUCBX ;DEALLOCATE THE CURRENT UCBX AND TABUF ; DD115 MOV (SP)+,R0 ;RETRIEVE THE NEW ADDRESS ; DD115 MOVB (SP),U.TBSZ-U.TSTA(R5) ;SET THE NEW SIZE ; DD115 BIS #S3.TAB,4(R5) ;ASSUME SETTING TYPEAHEAD ; DD115 DEC (SP)+ ;CHECK THAT ; DD115 BNE 550$ ;CORRECT - JUMP ; DD115 BIC #S3.TAB,4(R5) ;SET NOTYPEAHEAD ; DD115 550$: CALL STUCBX ;CREATE THE NEW UCBX AND TABUF ; DD115 MOV (SP)+,120000+U.TAST ;RESET POSSIBLE AST ADDRESS ; DD115 MTPS #PR0 ;ENABLE INTERRUPTS ; DD115 SUB #U.TSTA,R5 ;POINT BACK TO BEGINNING OF UCB ; DD115 MOV (SP)+,R1 ;RESTORE TASK BUFFER POINTER ; DD115 JMP 190$ ;GET NEXT CHARACTERISTIC ; DD115 ; ; DD115 ; ALLOCATION FAILURE TRYING TO CREATE A NEW TYPEAHEAD BUFFER ; DD115 ; ; DD115 560$: MOVB (SP)+,(SP)+ ;CLEAN STACK ; DD115 MOV (SP)+,R1 ;RESTORE TASK BUFFER POINTER ; DD115 JMP 260$ ;RETURN NO POOL ERROR CODE ; DD115 ; DD115 .ENDC ;T$$SMC ; DD115 ; DD115 .IF DF T$$GMC ; DD115 ; DD115 ; ; DD115 ; GET THE SIZE OF THE TYPEAHEAD BUFFER ; DD115 ; ; DD115 570$: MOVB U.TBSZ(R5),(R1)+ ;GET THE SIZE ASSUMING TYPEAHEAD IS ENABLED ; DD115 580$: BIT #S3.TAB,U.TSTA+4(R5) ;CHECK THAT ; DD115 BNE 590$ ;CORRECT - JUMP ; DD115 CLRB -1(R1) ;RETURN SIZE = 0 ; DD115 590$: JMP 190$ ;GET NEXT CHARACTERISTIC ; DD115 ; DD115 .ENDC ;T$$GMC ; DD115 ; DD115 .ENDC ;T$$SPL ; DD115 ; DD115 .PAGE ; ; GET/SET CONTROL-S STATUS ; MCCTS:: .IF DF T$$GMC&T$$SMC BEQ 630$ ;GET ^S STATUS - JUMP .ENDC ;T$$GMC&T$$SMC .IF DF T$$SMC ; ; SET OR CLEAR ^S CONDITION ; CALL 600$ ;CALL ROUTINE TO DUMMY UP THE ^S OR ^Q JMP 190$ ;GET NEXT CHARACTERISTIC ; DD129 600$: MOVB (R1)+,R2 ;GET NEW VALUE FROM USER BUFFER ;**-1 CALL 620$ ;MAP OUR DATA AREA TSTB R2 ;ARE WE SETTING ^S? BNE 610$ ;Y - JUMP CALLR I1CTQL ;N - FAKE A ^Q. TASK MAPPED ON RETURN 610$: CALLR I1CTSL ;FAKE A ^S, RETURN WILL REMAP TASK 620$: MOV @SP,-(SP) ;PUSH RETURN ADDRESS AGAIN MOV R3,2(SP) ;SAVE R3 ADD #U.TSTA,R5 ;POINT TO U.TSTA CALL MAPD ;MAP DRIVER DATA AREA CALL @(SP)+ ;CALL CALLER BACK AS A CO-ROUTINE SUB #U.TSTA,R5 ;UPON RETURN TO US, POINT TO UCB AGAIN MOV (SP)+,R3 ;RESTORE R3 MOV I.PRM(R3),KISAR6 ;REMAP USER BUFFER RETURN .ENDC ;T$$SMC .IF DF T$$GMC ; ; GET TERMINAL ^S AND ^O STATUS ; 630$: CLRB @R1 ;ASSUME NEITHER ^S OR ^O IS SET BIT #S1.CTS,U.TSTA(R5) ;VERIFY ASSUMPTION FOR ^S BIT BEQ 640$ ;ASSUMED CORRECTLY - JUMP INCB @R1 ;ASSUMPTION WAS WRONG - SET THE BIT 640$: BIT #S1.CTO,U.TSTA(R5) ;VERIFY ASSUMPTION FOR ^O BIT BEQ 650$ ;^O IS NOT SET - JUMP BISB #2,@R1 ;^O IS SET, SET CORRESPONDING USER BIT 650$: TSTB (R1)+ ;UPDATE BUFFER POINTER JMP 190$ ;GET NEXT CHARACTERISTIC ; DD129 ;**-1 .ENDC ;T$$GMC .PAGE ; DD098 ; DD098 .IF DF T$$ACD ; DD098 ; DD098 ; ; DD098 ; GET/SET ANCILLARY CONTROL DRIVER (ACD) ; DD098 ; ; DD098 MCACD:: ; DD098 ; DD098 .IF DF T$$GMC&T$$SMC ; DD098 ; DD098 BEQ 810$ ;GET ACD IDENTIFICATION NUMBER ; DD098 ; DD098 .ENDC ;T$$GMC&T$$SMC ; DD098 ; DD098 .IF DF T$$SMC ; DD098 ; DD098 ; ; DD098 ; SET/RESET THE ACD ASSOCIATED WITH THIS TERMINAL ; DD098 ; ; DD098 CLR -(SP) ;ASSUME NO TARGET ACD WAS SPECIFIED ; DD098 TSTB @R1 ;CHECK THAT ASSUMPTION ; DD098 BEQ 730$ ;VALID - JUMP ; DD098 ; ; DD098 ; SEARCH THE ACB LIST (LISTHEAD IS $ACDHD) FOR THE PROTOTYPE ACB WHICH ; DD098 ; HAS THE SAME IDENTIFICATION NUMBER AS THE NUMBER SPECIFIED BY THE REQUEST ; DD098 ; ; DD098 MOV $ACDHD,R0 ;TARGET ACD SPECIFIED, FIND ITS PROTOTYPE ACB ; DD098 BEQ 710$ ;THERE ARE NO ACDS IN THE SYSTEM - RETURN ERROR ; DD098 700$: CMPB A.NUM(R0),@R1 ;HAVE WE FOUND THE MATCHING PROTOTYPE ACB? ; DD098 BEQ 720$ ;Y - JUMP ; DD098 MOV A.LIN(R0),R0 ;N - GET NEXT ACB IN LIST ; DD098 BNE 700$ ;KEEP LOOKING ; DD098 710$: MOV #!,R0 ;CAN'T FIND OR CONNECT TO ACD ; DD098 TST (SP)+ ;CLEAN STACK ; DD098 JMP 290$ ;RETURN ERROR ; DD098 ; ; DD098 ; FOUND THE ACB. CHECK IF CONNECTS ARE DISALLOWED ; DD098 ; ; DD098 720$: BITB #AS.DEL!AS.DIS,A.STA(R0) ;ACD MARKED FOR DELETE OR DISABLED? ; DD098 BNE 710$ ;Y - ERROR ; DD098 ; ; DD098 ; ATTEMPT TO ALLOCATE A FULL ACB ; DD098 ; ; DD098 MOV R0,-(SP) ;SAVE R0 DESTROYED BY ALLOCATION ROUTINE ; DD098 MOV R1,-(SP) ;SAVE R1 DESTROYED BY ALLOCATION ROUTINE ; DD098 MOV #A.LEN2,R1 ;SET LENGTH OF FULL ACB ; DD098 CALL $ALOCB ;ALLOCATE AN ACB ; DD098 MOV (SP)+,R1 ;RESTORE R1 WITHOUT AFFECTING CARRY BIT ; DD098 MOV R0,R2 ;COPY ACB ADDRESS WITHOUT AFFECTING CARRY BIT ; DD098 MOV (SP)+,R0 ;RESTORE R0 WITHOUT AFFECTING CARRY BIT ; DD098 BCS 710$ ;ALLOCATION FAILED - ERROR ; DD098 ; ; DD098 ; SAVE THE ADDRESS OF THE FULL ACB, AND COPY THE COMMON FIELDS FROM THE ; DD098 ; PROTOTYPE ACB INTO IT ; DD098 ; ; DD098 MOV R2,@SP ;REPLACE ZERO WITH FULL ACB ADDRESS ; DD098 INC A.ACC(R0) ;UPDATE ACD USE COUNT ; DD098 MOV (R0)+,(R2)+ ;COPY RELOCATION BIAS (A.REL) ; DD098 MOV (R0)+,(R2)+ ;COPY DISPATCH TABLE POINTER (A.DIS) ; DD098 MOV (R0)+,(R2)+ ;COPY FUNCTION MASK (A.MAS) ; DD098 MOV (R0),(R2) ;COPY IDENTIFICATION NUMBER (A.NUM) ; DD098 ; ; DD098 ; IF THE TERMINAL IS CURRENTLY LINKED TO AN ACD, FIND THE PROTOTYPE ACB. ; DD098 ; IF IT CANNOT BE FOUND THEN A SERIOUS ERROR HAS OCCURRED AND THE SYSTEM ; DD098 ; IS CRASHED. ; DD098 ; ; DD098 730$: MOV U.ACB(R5),R2 ;GET THE CURRENT ACB ; DD098 BEQ 770$ ;NONE - JUMP ; DD098 MOV $ACDHD,R0 ;SEARCH THE ACB LIST FOR ITS PROTOTYPE ; DD098 BEQ 750$ ;LIST IS EMPTY YET TERMINAL HAS AN ACD - CRASH ; DD098 740$: CMPB A.NUM(R0),A.NUM(R2) ;IS THIS THE RIGHT PROTOTYPE? ; DD098 BEQ 760$ ;Y - JUMP ; DD098 MOV A.LIN(R0),R0 ;GET NEXT PROTOTYPE ACB IN LIST ; DD098 BNE 740$ ;KEEP LOOKING ; DD098 750$: CRASH ;CAN'T FIND PROTOTYPE OF CURRENT ACD - CRASH ; DD098 ; ; DD098 ; FOUND THE PROTOTYPE. DECREMENT THE USE COUNT AND DISCONNECT THE ACD FROM ; DD098 ; THE TERMINAL. THEN ALERT THE ACD TO WHAT HAS TAKEN PLACE. ; DD098 ; ; DD098 760$: DECB A.ACC(R0) ;DECREMENT THE USE COUNT ; DD098 CLR U.ACB(R5) ;DISASSOCIATE THE ACD FROM THE TERMINAL ; DD098 MOV R1,-(SP) ;SAVE R1 NEEDED BY SUBROUTINE ; DD098 MOV #A.DISC,R1 ;SET TO CALL ACD AT DISCONNECT ENTRY POINT ; DD098 CALL 790$ ;SWITCH TO ACD ; DD098 ; ; DD098 ; COMPLETE DISCONNECT PROCESSING BY DEALLOCATING THE OLD FULL ACB ; DD098 ; ; DD098 MOV R2,R0 ;COPY ADDRESS OF NOW UNUSED ACB ; DD098 MOV #A.LEN2,R1 ;SET SIZE OF FULL ACB ; DD098 MOV R3,-(SP) ;SAVE R3 DESTROYED BY $DEACB ; DD098 CALL $DEACB ;DEALLOCATE THE ACB ; DD098 MOV (SP)+,R3 ;RESTORE R3 ; DD098 MOV (SP)+,R1 ;RESTORE R1 ; DD098 ; ; DD098 ; CONNECT THE NEW ACD IF ONE WAS SPECIFIED ; DD098 ; ; DD098 770$: MOV @SP,R0 ;GET THE NEW ACD FULL ACB ADDRESS ; DD098 BEQ 780$ ;NONE SPECIFIED - EXIT ; DD098 ; ; DD098 ; INFORM THE ACD OF THE CONNECT AND THEN PERFORM THE CONNECT ITSELF ; DD098 ; ; DD098 MOV R1,-(SP) ;SAVE R1 NEEDED BY SUBROUTINE ; DD098 MOV #A.CONN,R1 ;SET TO CALL ACD AT ITS CONNECT ENTRY POINT ; DD098 CALL 790$ ;SWITCH TO THE ACD ; DD098 MOV (SP)+,R1 ;RESTORE R1 ; DD098 MOV (SP),U.ACB(R5) ;LINK THE ACB TO CONNECT THE ACD TO THE TERMINAL; DD098 ; ; DD098 ; SET/RESET EXIT PROCESSING ; DD098 ; ; DD098 780$: TST (SP)+ ;CLEAN STACK ; DD098 TSTB (R1)+ ;POINT TO THE NEXT PARAMETER ; DD098 JMP 190$ ;AND PROCESS IT ; DD098 ; ; DD098 ; SUBROUTINE TO SET UP STACK PARAMETERS AND THEN CALL THE EXECUTIVE SUBROUTINE ; DD098 ; WHICH SWITCHES FROM THE DRIVER TO THE ACD AND BACK AGAIN ; DD098 ; ; DD098 790$: MOV #800$,-(SP) ;SET RETURN ADDRESS ; DD098 MOV KINAR5,-(SP) ;SET CURRENT MAPPING ; DD098 ; DD098 .IF DF T$$COM ; DD098 ; DD098 MOV KDSAR5,-(SP) ;SET CURRENT D-SPACE MAPPING ; DD098 ; DD098 .ENDC ; DD098 ; DD098 MOV R1,-(SP) ;SET ENTRY POINT OFFSET ; DD098 ADD #U.TSTA,R5 ;POINT TO STATUS TRIPLEWORD ; DD098 JMP $SWAC1 ;JUMP TO ROUTINE TO AVOID EXTRA STACK STORAGE ; DD098 800$: SUB #U.TSTA,R5 ;POINT BACK TO THE BEGINNING OF THE UCB ; DD098 RETURN ; DD098 ; DD098 .ENDC ;T$$SMC ; DD098 ; DD098 .IF DF T$$GMC ; DD098 ; DD098 ; ; DD098 ; RETURN THE IDENTICATION NUMBER OF THE CURRENT ACD, IF ANY ; DD098 ; ; DD098 810$: CLRB (R1)+ ;ASSUME THERE IS NO ACD FOR THIS TERMINAL ; DD098 MOV U.ACB(R5),R0 ;GET THE ACB ADDRESS ; DD098 BEQ 820$ ;NONE - JUMP ; DD098 MOVB A.NUM(R0),-1(R1) ;RETURN ITS IDENTIFICATION NUMBER ; DD098 820$: JMP 190$ ;PROCESS THE NEXT CHARACTERISTIC ; DD098 ; DD098 .ENDC ;T$$GMC ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 .ENDC ;T$$GMC!T$$SMC .PAGE ; ; SUBROUTINE CALLED FROM SYSXT WHEN AN AST BLOCK IS DEQUEUED. ; ; IF THE TASK HAPPENED TO DETACH WHILE THIS BLOCK WAS IN THE ; AST QUEUE, DEALLOCATE THE BLOCK. ; ; ELSE, SHOW AST BLOCK NOT IN QUEUE ANY MORE. TRY TO GET ANOTHER ; CHARACTER FROM THE TYPE-AHEAD BUFFER TO REQUEUE THE AST BLOCK. ; ; INPUT: ; R0 POINTER TO LINK WORD IN AST BLOCK ; ; .IF DF T$$CCA!A$$TRP .ENABL LSB ; DQAST:: CALL MAPD ;MAP DATA AREA MOV A.PRM+2(R0),R5 ;GET POINTER TO U.TSTA ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;SET VIRTUAL ADDRESS OF UCBX ; DD074 MOV U.TAPR-U.TSTA(R5),@#KDSAR5 ;MAP UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;GET UCBX ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 BEQ DEACB ;NONE - TERMINAL MUST BE DETACHED, JUMP TST U.TAST(R4) ;AST BLOCK POINTER ZEROED? BEQ DEACB ;Y - SAME THING, JUMP DECB A.PRM+4(R0) ;SHOW AST BLOCK NOT IN QUEUE ANY MORE BNE 10$ ;AST BLOCK LOCKED - JUMP .IF DF M$$PRO CLR R3 ;IF A SWITCH TO ANOTHER CPU TAKES PLACE, ;NO SPECIAL FORK PROCESSING ROUTINE IS ;REQUIRED - JUST GET ANOTHER CHARACTER ;FROM THE TYPE-AHEAD BUFFER CALL SWCPU ;SWITCH TO CORRECT CPU ; ; IF WE FALL THRU HEREÀ, WE ARE ALREADY ON THE CORRECT CPU ; .ENDC ;M$$PRO CALL SETDSI ;DISABLE INPUT PROCESSING RETURN ;SIMULATE RETURN FROM A FORK PROCESSING ;ROUTINE IN ORDER TO GET ANOTHER CHARACTER ;FROM THE TYPE-AHEAD BUFFER ; ; DEACB: CMP -(R0),-(R0) ;POINT TO START OF AST BLOCK MOV #24.,R1 ;GET LENGTH CALLR $DEACB ;DEALLOCATE IT TO SYSTEM POOL ; 10$: RETURN ;RETURN ; .DSABL LSB ; .ENDC ;T$$CCA!A$$TRP ; .END À#€pkQ ›c, .TITLE TTCAN .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 06-FEB-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD024 17-JUL-79 DALE R. DONCHIN ; HANG UP DZ11 REMOTE LINE IF CARRIER NOT SEEN WITHIN ; TIMEOUT PERIOD ; DD045 03-DEC-79 DALE R. DONCHIN ; CORRECT MULTIPROCESSOR TIMEOUT BUG ; DD059 29-FEB-80 DALE R. DONCHIN ; IMPROVE ACCURACY OF READ TIMEOUT CODE ; DD062 14-APR-80 DALE R. DONCHIN ; KILL ALL OUTPUT WHEN HANGING UP A REMOTE LINE ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; MSH097 23-SEP-80 M. S. HARVEY ; DO NOT ATTEMPT TO ACCESS THE UNIBUS MAP REGISTERS ; BOOTED ON A SYSTEM WITHOUT THEM (RSX11M/S ONLY) ; DD096 12-MAR-81 DALE R. DONCHIN ; IMPROVE INTERRUPT HANDLING PERFORMANCE ; DD098 06-APR-81 DALE R. DONCHIN ; ADD ACD SUPPORT ; DD099 15-APR-81 DALE R. DONCHIN ; MOVE DM11-BB VECTOR AND CSR FROM UCB TO SCB ; DD106 04-JUN-81 DALE R. DONCHIN ; PREVENT MODEM TIMEOUT ON OFFLINE LINES ; DD107 04-JUN-81 DALE R. DONCHIN ; MARK TTCOM NONSHUFFLABLE ; DD122 03-AUG-81 DALE R. DONCHIN ; USE SYMBOLIC NAMES FOR CONTROLLER DEPENDENT ROUTINE INDICES ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; ; ;+ ; THIS MODULE CONTAINS ENTRY POINTS FOR THE FOLLOWING ROUTINES ; CALLED BY THE EXECUTIVE: ; ; TTCAN - CANCEL IO ; TTPWUP - POWER-UP ;- ; ; .MCALL DCBDF$,HWDDF$ ; DCBDF$ ;DEFINE DCB SYMBOLS HWDDF$ ;DEFINE HARDWARE SYMBOLS .IF DF R$$MPL .MCALL KRBDF$ KRBDF$ ;DEFINE KRB SYMBOLS .IFF ;R$$MPL .MCALL SCBDF$ SCBDF$ ;DEFINE SCB SYMBOLS .ENDC ;R$$MPL ; DD021 .PSECT MAP5 ; DD021 ; ; ; .SBTTL TTCAN - CANCEL I/O ; ;+ ; TTCAN - CANCEL CURRENT IO REQUESTS. ; THIS ROUTINE IS CALLED FROM THE EXECUTIVE TO CANCEL (KILL) ; CURRENT IO REQUESTS FOR A TASK ON A LINE. ; THE UC.KIL BIT IN U.CTL IN THE UCB IS SET FOR ALL TERMINAL ; UNITS TO FORCE THE EXECUTIVE TO CALL THIS ROUTINE ; EVEN THOUGH THE UNIT IS NOT MARKED BUSY. ;- ; ; .ENABL LSB ; TTCAN:: MTPS #0 ;;;ALLOW INTERRUPTS CALL MAPD ;MAP DATA AREA ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;SET VIRTUAL ADDRESS OF UCBX ; DD074 MOV U.TAPR(R5),@#KDSAR5 ;MAP UCBX ; DD074 ADD #U.TSTA,R5 ;POINT TO U.TSTA ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 ADD #U.TUX,R5 ;POINT TO U.TUX ASSUME U.TSTA,U.TUX+2 MOV (R5)+,R4 ;GET UCBX AND POINT TO U.TSTA ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 BEQ 40$ ;NONE - LINE IDLE, JUMP ; DD129 ASSUME U.TCI,0 ;**-1 MOV @R4,R3 ;GET CURRENT INPUT PACKET BEQ 10$ ;NONE - JUMP BIT #S1.USI,@R5 ;UNSOLICITED INPUT? BNE 10$ ;Y - IGNORE CMP I.TCB(R3),R1 ;FROM THE RIGHT TASK? BNE 10$ ;N - JUMP MOV #IE.ABO&377,@R3 ;SET ABORT STATUS CALL KILLI ;KILL INPUT 10$: MOV U.TCO(R4),R3 ;GET CURRENT OUTPUT PACKET BEQ 40$ ;NONE - JUMP ; DD129 CMP I.TCB(R3),R1 ;FROM THE RIGHT TASK? ;**-1 BNE 40$ ;N - JUMP ; DD129 MOV #IE.ABO&377,@R3 ;SET ABORT STATUS ;**-1 BR KILLO ;KILL OUTPUT ; ; .SBTTL KILLO1 - KILL OUTPUT WITH STATUS IE.DNR ;+ ; KILLO1 - KILL OUTPUT WITH STATUS IE.DNR ; USED FOR TIME-OUT OR MODEM HUNG UP. ; ; INPUT: ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; ; REGISTERS ALTERED: R0,R1,R2,R3 ;- ; ; KILLO1::MOV U.TCO(R4),R3 ;GET CURRENT OUTPUT PACKET BNE 20$ ;THERE IS ONE - JUMP ; DD062 BIT #S1.OBY,@R5 ;ECHO IN PROGRESS? ; DD062 BEQ 40$ ;NO - JUMP ; DD062 CALL SETDSI ;YES - DISABLE INPUT PROCESSING ; DD062 BISB #US.OIU,U.STS-U.TSTA(R5) ;INTERRUPTS NOT EXPECTED NOW ; DD062 BIC #S1.OBY,@R5 ;SET OUTPUT FREE ; DD062 RETURN ; DD062 20$: MOV #IE.DNR&377,@R3 ;OK - LOAD STATUS ; DD129 ;FALL THRU TO "KILLO" ;**-2 ; ; .SBTTL KILLO - KILL OUTPUT WITH STATUS IE.ABO ; ;+ ; KILLO - KILL OUTPUT WITH STATUS IE.ABO. ; ; INPUT: ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; I.LNK IN CURRENT OUTPUT REQUEST PACKET CONTAINS STATUS ; TO RETURN TO TASK ; ; NOTE - MUST EXECUTE ON CORRECT CPU! ; ; REGISTERS ALTERED: R0,R1,R2,R3 ;- ; ; KILLO:: SAVNR ;SAVE R4,R5 CALL SETDSI ;DISABLE INPUT PROCESSING BISB #US.OIU,U.STS-U.TSTA(R5) ;DISABLE RECOGNITION OF OUTPUT ;INTERRUPTS BICB #FR.ORD,U.TFRQ-U.TSTA(R5) ;PREVENT MULTIPLE COMPLETIONS BIC #S2.WRA,2(R5) ;CLEAR WRAP-AROUND CONTEXT CALL ABOXL ;ABORT OUTPUT WITH INTERRUPTS LOCKED OUT CALLR FPORD ;SAY OUTPUT DONE ; ; .SBTTL KILLI1 - KILL INPUT WITH STATUS IN R0 ;+ ; KILLI1 - KILL SOLICITED OR UNSOLICITED INPUT WITH STATUS IN R0. ; USED TO KILL INPUT BECAUSE OF TIME-OUT OR MODEM HUNG UP. ; ; INPUT: ; R0 STATUS (IS.TMO OR IE.DNR) ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; ; REGISTERS ALTERED: R0,R1,R2,R3 ;- ; ; ASSUME U.TCI,0 KILLI1::MOV @R4,R3 ;GET CURRENT PACKET BEQ 40$ ;NONE - RETURN ; DD129 MOV R0,@R3 ;OK - STORE STATUS ;**-1 ;FALL THRU TO "KILLI" ; ; .SBTTL KILLI - KILL INPUT WITH STATUS IE.ABO ; ;+ ; KILLI - KILL INPUT WITH STATUS IE.ABO. ; ; INPUT: ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; I.LNK IN CURRENT INPUT REQUEST PACKET CONTAINS STATUS ; TO RETURN TO TASK ; ; NOTE - MUST EXECUTE ON CORRECT CPU! ; ; REGISTERS ALTERED: R0,R1,R2,R3 ;- ; ; KILLI:: SAVNR ;SAVE R4,R5 CALL SETDSI ;DISABLE INPUT PROCESSING TST U.TCO(R4) ;DOING TASK OUTPUT? BNE 30$ ;Y - JUMP ; DD129 ; ;**-1 ; IF WE ARE KILLING A READ WITH ECHO, IT IS POSSIBLE THAT THE ECHO ; HAS NOT YET COMPLETED. IF SO, WE MUST LOGICALLY KILL THE ECHO. ; BISB #US.OIU,U.STS-U.TSTA(R5) ;SET OUTPUT INTERRUPT UNEXPECTED BIC #S1.OBY,@R5 ;SET OUTPUT FREE 30$: BICB #FR.IRD,U.TFRQ-U.TSTA(R5) ; DD129 ;PREVENT MULTIPLE COMPLETIONS ;**-1 BIC #S1.ESC!S1.DEC!S1.DPR,@R5 ;GET OUT OF ESCAPE SEQUENCE MODE ;CLEAR DEFERRED ECHO FLAG ;CLEAR DEFERRED PROCESSING FLAG CLRB U.TISV(R4) ;CLEAR INPUT STATE VARIABLE CALLR FPIRD ;SAY INPUT DONE 40$: RETURN ;RETURN ; DD129 ; ;**-1 ; .IF DF M$$PRO .SBTTL FPTIM - FORK LEVEL TIME-OUT ROUTINE ; ; THIS ROUTINE IS ENTERED FROM THE FORK DISPATCHER AFTER A SWITCH ; TO THE CORRECT CPU TO HANDLE A TIME-OUT. ; ; DD074 .IF DF T$$SPL ; DD074 ; DD074 FPTIM:: CALL 70$ ;HANDLE TIME-OUT ON THIS UNIT ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 ASSUME U.TUX,U.TSTA-2 FPTIM:: TST -(R5) ;POINT TO U.TUX CALL 70$ ;HANDLE TIME-OUT ON THIS UNIT ; DD129 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 TST (SP)+ ;ROUTINE RETURNS AS A COROUTINE - POP ;**-1 ;RETURN ADDRESS RETURN ;RETURN TO FORK DISPATCHER .ENDC ;M$$PRO ; ; .SBTTL TIME - TIME-OUT (DRIVER TIMER). ; ; TTICK:: CALL MAPD ;MAP DATA AREA ; DD024 .IF DF D$$ZMD ; DD024 ; DD024 DECB DZTIMR ;ADJUST DZ11 DTR TIMER ; DD024 BNE 50$ ;NOT YET EXPIRED - JUMP ; DD024 MOVB #DZTIME,DZTIMR ;RESET TIMER ; DD024 ; DD024 .ENDC ;D$$ZMD ; DD024 ; DD024 50$: MOV #DCB0,R3 ;POINT TO POINTER TO TT0: DCB ; DD024 MOV #$SCDV1,-(SP) ;GET ADDRESS OF DEVICE TABLE SCAN ROUTINE ;**-4 ;**-1 .IF NDF T$$MOD 80$: .ENDC ;NOT T$$MOD 60$: CALL @(SP)+ ;GET NEXT TERMINAL ; DD129 BCS CLINS ;ALL DONE - JUMP ;**-1 CMP D.NAM(R3),#"TT ;IS DEVICE NAME "TT"? BNE 100$ ;N - ABORT SCAN ; DD129 BIT #DV.TTY,U.CW1(R5) ;IS IT A TERMINAL? ;**-1 BEQ 100$ ;N - ABORT SCAN ; DD129 ; ;**-1 ; FOUND A TERMINAL. CHECK TIMERS. ; ; DD074 .IF DF T$$SPL ; DD074 ; DD074 ADD #U.TSTA,R5 ;POINT TO U.TSTA ; DD074 70$: MOV #120000,R4 ;SET VIRTUAL ADDRESS OF UCBX ; DD074 MOV U.TAPR-U.TSTA(R5),@#KDSAR5 ;MAP UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 ADD #U.TUX,R5 ;POINT TO U.TUX ASSUME U.TSTA,U.TUX+2 70$: MOV (R5)+,R4 ;GET UCBX AND POINT TO U.TSTA ; DD129 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 BEQ 80$ ;NONE - JUMP ;**-1 MOV R4,R1 ; ;**-2 ADD #U.TITI,R1 ;POINT TO INPUT TIMER MOV #IS.TMO,R0 ;GET STATUS FOR INPUT TIME-OUT MOV #KILLI1,R2 ;POINT TO KILL INPUT ROUTINE CALL 110$ ;CHECK INPUT TIMER BIT #S1.CTS,@R5 ;OUTPUT STOPPED BY CTRL-S? ; DD129 BNE 80$ ;Y - IGNORE OUTPUT TIMER ;**-1 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;RESTORE CLOBBERED R4 TO POINT TO UCBX ; DD074 MOV R4,R1 ; ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV -2(R5),R1 ;GET UCBX ; DD045 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 ADD #U.TOTI,R1 ;POINT TO OUTPUT TIMER ;**-1 MOV #KILLO1,R2 ;POINT TO KILL OUTPUT ROUTINE CALL 110$ ;CHECK OUTPUT TIMER .IF DF T$$MOD 80$: ; DD106 ; DD106 .IF NDF R$$CON ; DD106 ; DD106 BITB #US.OFL,U.ST2-U.TSTA(R5) ;IS UNIT OFFLINE? ; DD106 BEQ 90$ ;N - JUMP ; DD106 CLRB U.TMTI-U.TSTA(R5) ;Y - RESET TIMER TO PREVENT TIMEOUT ; DD106 BR 60$ ;GO ON TO NEXT UNIT ; DD106 ; DD106 .ENDC ;NDF R$$CON ; DD106 ; DD106 90$: MOV R5,R1 ; ; DD106 ADD #U.TMTI-U.TSTA,R1 ;POINT TO MODEM TIMER ;**-1 MOV #MTIM,R2 ;POINT TO MODEM TIME-OUT ROUTINE CALL 110$ ;CHECK MODEM TIMER .ENDC ;T$$MOD BR 60$ ;LOOP ; DD129 ; ;**-1 ; FOUND A DEVICE OTHER THAN A TERMINAL - ABORT SCAN ; 100$: ADD #S$$SPA,SP ;FLUSH STACK ; DD129 ; ;**-1 ; ALL DONE - REQUEUE CLOCK BLOCK ; CLINS:: MOV #$TTCB,R0 ;GET CLOCK BLOCK CLR R1 ;CLEAR HIGH ORDER DELTA TIME MOV $TKPS,R2 ;LOW ORDER = 1 SECOND MOV #C.SYST,R4 ;TYPE = SYSTEM SUBROUTINE CALLR $CLINS ;INSERT IN CLOCK QUEUE AND RETURN ; ; 110$: TSTB @R1 ;TIMER ACTIVE? BEQ 120$ ;N - RETURN DECB @R1 ;Y - UPDATE TIMER BEQ 130$ ;TIMER EXPIRED - JUMP 120$: RETURN ;RETURN 130$: .IF DF M$$PRO ; WE JUST DECREMENTED THE TIMER TO 0, BUT WE MAY BE ON THE WRONG CPU. ; SET TIMER BACK TO +1 AND SWITCH TO THE CORRECT CPU. ; INCB @R1 ;SET TIMER TO +1 MOV #FR.TIM,R3 ;GET FORK REQUEST BIT CALL SWCPU ;SWITCH TO CORRECT CPU ; ; IF WE FALL THRU HERE, WE ARE ALREADY ON THE CORRECT CPU. ; CLRB @R1 ;FINALLY SET THE TIMER TO 0 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;RESTORE UCBX POINTER ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;RESTORE UCBX POINTER ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 .ENDC ;M$$PRO .IF DF T$$CON MOV U.SCB-U.TSTA(R5),R3 ;GET SCB .IF DF R$$MPL MOV S.KRB(R3),R3 ;GET KRB TSTB K.PRM(R3) ;DL11? BNE 140$ ;N - JUMP ASSUME K.CSR,0 MOV @R3,R3 ;GET CSR ADDRESS .IFF ;R$$MPL TST U.CTYP-U.TSTA(R5) ;DL11? BNE 140$ ;N - JUMP MOV S.CSR(R3),R3 ;GET CSR ADDRESS .ENDC ;R$$MPL BIT #20,4(R3) ;TERMINAL IN CONSOLE MODE? BNE 120$ ;Y - IGNORE TIME-OUT .ENDC ;T$$CON 140$: JMP @R2 ;HANDLE TIME-OUT ; .DSABL LSB ; .ENABL LSB .IF DF T$$MOD ; ; HANDLE MODEM TIME-OUT ; MTIM: MOV #CT.TIM,R2 ;SET INDEX FOR MODEM TIMEOUT ROUTINE ; DD122 CALLR CTRD ;DO CONTROLLER-DEPENDENT STUFF ;**-11 ;**-2 .ENDC ;T$$MOD ; ; .SBTTL TTPWUP - POWER-UP. ; ;+ ; TTPWUP - POWER-UP. ;- ; ; .IF DF R$$CON TTINIT:: .IFF TTPWUP:: .ENDC .IF DF DDBUG 10$: BPT ;GET TO XDT ; DD129 MOV #NOP,10$ ;NOP THE BPT ; DD129 ;**-2 .ENDC ;DDBUG .IF DF T$$COM MOV $TTCOM,R0 ;GET TTCOM PCB ADDRESS .IF NDF R$$CON BEQ 20$ ;NOT A VIRGIN SYSTEM - JUMP ; DD129 ;**-1 .ENDC ;NDF R$$CON BIS #PS.NSF,P.STAT(R0) ;MARK TTCOM AS NONSHUFFLABLE ; DD107 MOV P.REL(R0),KINAR6 ;MAP INITIALIZATION CODE IN APR 6 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 CALL INIT ;DO VIRGIN INITIALIZATION ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 CALL INIT+20000 ;DO VIRGIN INITIALIZATION ;THE INIT ROUTINE IS BUILT FOR MAPPING ;IN APR5, BUT IS NOW MAPPED IN APR 6 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 20$: CALL MAPD ;MAP DRIVER DATA AREA ; DD129 ;**-1 .IFF ;T$$COM CALL MAPD ;MAP DATA AREA .IF NDF R$$CON BNE 30$ ;NOT A VIRGIN SYSTEM - JUMP ; DD129 ;**-1 .ENDC ;NDF R$$CON .IF NDF R$$MPL MOV R3,-(SP) ;SAVE R3 MOV R4,-(SP) ;SAVE R4 .IFTF MOV @#KISAR5,R0 ;COPY REAL START OF DRIVER DATA ADD #200,R0 ;ADD THE EQUIVALENT OF 4 K WORDS MOV R0,@#KISAR6 ;MAP REST OF DRIVER ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 MOV R0,@#$DALED ;SAVE DRIVER KISAR6 ; DD074 ; DD074 .ENDC ;NDF T$$SPL ; DD074 ; DD074 CALL INIT ;DO VIRGIN INITIALIZATION ;**-1 .IFT MOV (SP)+,R4 ;RESTORE R4 MOV (SP)+,R3 ;RESTORE R3 .ENDC ;NDF R$$MPL .ENDC ;T$$COM 30$: ;REFERENCE LABEL ; DD129 ;**-1 .IF NDF R$$MPL .IF DF T$$ACD ; DD098 ; DD098 TST U.ACB(R5) ;DOES THIS TERMINAL HAVE AN ACD? ; DD098 BEQ 40$ ;N - JUMP ; DD098 MOV #A.POWE,R0 ;SET POWERFAIL ENTRY POINT ; DD098 CALL $SWACD ;CALL ACD ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 ; SET UP DATABASES OF UCB'S AND CSR'S ;**-1 ; 40$: MOV U.CTYP(R5),R2 ;GET CONTROLLER TYPE ; DD098 MOV TTUCB(R2),R1 ;POINT TO D'X'UCB ; DD096 ADD R3,R1 ;POINT TO TABLE POINTER FOR THIS CONTROLLER ; DD096 MOV (R1),R1 ;POINT TO UCB/CSR TABLE ; DD096 ; DD096 .IF DF D$$M11 ; DD096 ; DD096 CMP #TTTDH,R2 ;IS IT A DH11? ; DD096 BNE 50$ ;N - JUMP ; DD096 MOV S.DMCS(R4),-2(R1) ;FILL IN DM11-BB CSR ; DD099 ; DD096 .ENDC ;D$$M11 ; DD096 ; DD096 50$: MOV S.CSR(R4),(R1)+ ;FILL IN CONTROLLER CSR ; DD096 MOVB U.UNIT(R5),R2 ;GET UNIT NUMBER ; DD096 ASL R2 ;CONVERT TO WORD OFFSET ; DD096 ADD R2,R1 ;ADD POINTER AND UNIT NUMBER*2 ; DD096 MOV R5,(R1) ;PLUG IN UCB ;**-24 .ENDC ;NDF R$$MPL .IF DF M$$EXT&D$$H11 ; DD074 ;**-2 .IF NDF R$$MPL ;MSH097 ;MSH097 TST $UMRPT ;UNIBUS MAP EXISTS? ;MSH097 BEQ 60$ ;IF EQ NO, SKIP INITIALIZATION ;MSH097 ;MSH097 .ENDC ;MSH097 ;MSH097 ; LOAD THE UMR(S) TO MAP DRIVER WITH 18-BIT ADDRESSES IDENTICAL ; DD074 ; TO 16-BIT ADDRESSES ;**-1 ; MOV #UMR5S,R1 ;POINT TO SAVED UMR 5 MOV #UBMPR+<5*4>,R2 ;POINT TO UMR 5 MOV (R1)+,(R2)+ ;INITIALIZE UMR 5 ; DD074 MOV (R1)+,(R2)+ ;**-1 ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 MOV (R1)+,(R2)+ ;INITIALIZE UMR 6 ; DD074 MOV (R1)+,(R2)+ ;**-1 60$: ;REFERENCE LABEL ;MSH097 .ENDC ;NDF T$$SPL ; DD074 ; DD074 .ENDC ;M$$EXT&D$$H11 ; DD074 ;**-1 .IF DF R$$CON RETURN .IFF ADD #U.TSTA,R5 ;POINT TO U.TSTA CALL CKTAB ;CHECK WHETHER TYPE-AHEAD BUFFER SHOULD ;BE ALLOCATED OR DEALLOCATED .IF DF T$$MOD BICB #US.CRW!US.DSB,U.STS-U.TSTA(R5) ;ASSUME LOCAL ÐLINE .ENDC MOV #CT.PWR,R2 ;SET ROUTINE INDEX FOR POWER-UP ; DD122 CALLR CTRD ;CALL CONTROLLER DEPENDENT ROUTINE ; DD129 ;AND RETURN ;**-2 .ENDC ;R$$CON .DSABL LSB ; ; .END Ð#€8;kQ ›c, .TITLE TTCIS .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 23-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD083 15-OCT-80 DALE R. DONCHIN ; REMOVE SCS CONDITIONALS AND CODE ; DD096 12-MAR-81 DALE R. DONCHIN ; IMPROVE INTERRUPT HANDLING PERFORMANCE ; DD116 30-JUN-81 DALE R. DONCHIN ; ADD SERIAL COMMAND PROCESSING CAPABILITY TO RSX-11M-PLUS ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; ; ;+ ; CONTROLLER INDEPENDENT ROUTINES TO SET UP FOR INTERRUPT PROCESSING ; AND TO QUEUE A FORK REQUEST. ;- ; ; .MCALL UCBDF$,SCBDF$ UCBDF$ ,,TTDEF SCBDF$ .IF DF R$$MPL .MCALL KRBDF$ KRBDF$ .ENDC ;R$$MPL .PSECT MAP5 ; DD021 ; ; ;+ ; TTSET - COMMON INTERRUPT SET UP ROUTINE. ; ; INPUT: ; R2 SAVED BY CALL (JSR R2). ; POINTS TO POINTER TO CTB POINTER. (RSX-11M+) ; POINTS TO CONTROLLER TYPE. (RSX-11M) ; R4 SAVED BY $INTSV. ; CONTAINS CONTROLLER NUMBER * 2. ; R5 SAVED BY $INTSV. ; ; OUTPUT: ; R2 FREE TO USE ; R3 CSR ADDRESS ; R4 KRB ADDRESS ; R5 FREE TO USE ; ; CALLS CALLER BACK AS COROUTINE WITH ALL OF DRIVER MAPPED. ; CALLER EXECUTES "RETURN" BACK TO THIS ROUTINE TO RESTORE ; REGISTERS, QUEUE A FORK REQUEST IF NECESSARY AND DISMISS ; THE INTERRUPT. ;- ; ; .ENABL LSB ; TTSET:: MOV R3,-(SP) ;;;SAVE R3 MOV KISAR6,-(SP) ;;;SAVE KERNEL APR 6 .IF DF T$$COM MOV KINAR6,-(SP) ;;;SAVE KERNEL INSTRUCTION APR 6 .ENDC ;T$$COM .IF DF R$$MPL ADD @(R2)+,R4 ;;;GET POINTER TO KRB POINTER MOV @R4,R4 ;;;GET KRB ADDRESS MOV @R4,R3 ;;;GET CSR ADDRESS CALL MAPD ;;;MAP DATA AREA .IFF CALL MAPD ;;;MAP DATA AREA ADD (R2)+,R4 ;;;CALCULATE POINTER TO UCB TABLE POINTER ; DD096 MOV (R4),R4 ;;;GET ADDRESS OF UCB/CSR TABLE ; DD096 MOV (R4)+,R3 ;;;GET CSR AND POINT TO UCB TABLE ; DD096 ;**-7 .ENDC ;R$$MPL CALL @R2 ;;;CALL CALLER .IF DF T$$COM MOV (SP)+,KINAR6 ;;;RESTORE KERNEL INSTRUCTION APR 6 .ENDC ;T$$COM MOV (SP)+,KISAR6 ;;;RESTORE KERNEL APR 6 MOV (SP)+,R3 ;;;RESTORE R2, R3 MOV (SP)+,R2 ;;; .IF DF M$$PRO MOV $TTUQP,R4 ;;;GET POINTER TO UCB QUEUE HEAD TST (R4)+ ;;;ANYTHING IN UCB QUEUE? BNE 10$ ;;;Y - QUEUE FORK BLOCK AND RETURN ; DD129 RETURN ;;;N - RETURN ;**-1 10$: CALLR 100$ ;;;QUEUE FORK BLOCK ; DD129 ;**-1 .IFF TST $TTUQ ;;;ANYTHING IN UCB QUEUE? BEQ 20$ ;;;N - RETURN ; DD129 MOV #$TTFB+2,R4 ;;;POINT TO PC IN FORK BLOCK ;**-1 TST (R4)+ ;;;FORK BLOCK ALREADY IN QUEUE? BNE 20$ ;;;Y - RETURN ; DD129 CALL $FORK0 ;;;QUEUE FORK BLOCK ;**-1 .IFTF ; ; COME HERE AT SYSTEM STATE, PRIORITY 0 ; FP000:: CALL MAPD ;MAP DATA AREA CALL LOCKI ;LOCK OUT INTERRUPTS CALL 30$ ;;;PROCESS ALL UCBS IN UCB QUEUE ; DD129 ; ;**-1 ; COME BACK HERE WITH INTERRUPTS LOCKED OUT, UCB QUEUE EMPTY AND LOCKED. ; CLEAR FORK PC TO SHOW FORK BLOCK NOT IN QUEUE, UNLOCK UCB QUEUE AND RETURN. ; .IFT CLR 6(R4) ;;;CLEAR FORK PC JMP 130$ ;;;GO AND UNLOCK UCB QUEUE ; DD129 ;**-1 .IFF CLR 4(R4) ;;;CLEAR FORK PC .IFTF 20$: RETURN ;;;RETURN ; DD129 30$: ;;;REFERENCE LABEL ; DD129 ;**-2 .IFT MOV $TTUQP,R4 ;;;GET POINTER TO UCB QUEUE HEAD LOCK$ -LK.SPN(R4),SPIN ;;;LOCK UCB QUEUE .IFF MOV #$TTUQ,R4 ;;;POINT TO UCB QUEUE HEAD .IFTF MOV (R4)+,R5 ;;;GET FIRST UCB IN QUEUE BEQ 20$ ;;;NONE - RETURN ; DD129 MOV @R5,-(R4) ;;;DEQUEUE UCB ;**-1 BNE 40$ ;;;NOT LAST - JUMP ; DD129 MOV R4,2(R4) ;;;LAST UCB DEQUEUED - UPDATE PTR TO LAST ;**-1 40$: INC @R5 ;;;SHOW UCB NOT IN QUEUE ANY MORE ; DD129 ;**-1 .IFT ULOCK$ -LK.SPN(R4),SPIN ;;;UNLOCK UCB QUEUE BIS #S1.DSI,U.TSTA-U.TFLK(R5) ;;;DISABLE INPUT PROC. DURING FORK .ENDC CALL 60$ ;;;PROCESS ALL FORK REQUEST BITS ; DD129 ;;;FOR THIS UCB ;**-1 BR 30$ ;;;TRY TO DEQUEUE ANOTHER UCB ; DD129 ; ;**-1 ; ;+ ; SETDSI - DISABLE INPUT PROCESSING. ; ; SOME SYSTEM STATE ROUTINES WHICH ARE NOT CALLED FROM THE DRIVER ; FORK DISPATCHER MAY DISABLE INPUT CHARACTER PROCESSING BY CALLING ; THIS ROUTINE. THE CALLER IS CALLED BACK AS A COROUTINE. ; ON RETURN HERE, ALL FORK REQUESTS FOR THE UCB ARE PROCESSED. ; AFTER THAT, INPUT PROCESSING IS ENABLED AND AN ATTEMPT IS MADE TO ; RETRIEVE CHARACTERS FROM THE TYPE-AHEAD BUFFER. ;- ; ; SETDSI::BIS #S1.DSI,@R5 ;DISABLE INPUT PROCESSING CALL @(SP)+ ;CALL CALLER CALL LOCKI ;LOCK OUT INTERRUPTS ; ; ; FIND ALL BITS THAT ARE SET IN THE FORK LEVEL REQUEST BYTE. ; FOR EACH BIT FOUND, CLEAR IT AND CALL THE CORRESPONDING ; FORK LEVEL ROUTINE. ; 50$: ADD #U.TFLK-U.TSTA,R5 ;;;POINT TO U.TFLK ; DD129 ASSUME U.TFRQ, ;**-1 60$: TSTB -(R5) ;;;ANY BITS SET IN REQUEST BYTE? ; DD129 BEQ 80$ ;;;N - JUMP ; DD129 MTPS #0 ;;;Y - ALLOW INTERRUPTS ;**-2 MOV #FRKTB-2,R2 ;GET START OF TABLE WITH POINTERS ;TO FORK LEVEL ROUTINES CLR R3 ;INITIALIZE BITMASK SEC ;MAKE SURE WE SHIFT IN A ONE 70$: ROL R3 ;SHIFT MASK LEFT ; DD129 TST (R2)+ ;UPDATE TABLE POINTER ;**-1 BITB R3,@R5 ;THIS BIT SET? BEQ 70$ ;N - LOOP (WITH CC-C = 0) ; DD129 BICB R3,@R5 ;Y - CLEAR IT ;**-1 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 ADD #U.TSTA-U.TFRQ,R5 ;POINT TO U.TSTA ; DD074 MOV U.TAPR-U.TSTA(R5),@#KDSAR5 ;MAP UCBX ; DD074 MOV #120000,R4 ;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 ASSUME U.TSTA, ; DD074 ADD #U.TUX-U.TFRQ,R5 ;POINT TO U.TUX MOV (R5)+,R4 ;GET UCBX IN R4 ; DD074 .IFTF ;T$$SPL ; DD074 CALL @(R2)+ ;CALL ROUTINE WITH: ;**-10 ; R4 = POINTER TO UCBX ; R5 = POINTER TO U.TSTA MTPS #TTPRI ;LOCK OUT INTERRUPTS BR 50$ ;;;GET NEXT FORK REQUEST BIT ; DD129 ; ;**-1 ; NO MORE PROCESSING AT ZERO PRIORITY. ENABLE PROCESSING OF INPUT ; CHARACTERS AND SEE WHAT IS WAITING FOR US IN THE TYPE-AHEAD BUFFER. ; 80$: ADD #U.TSTA-U.TFRQ,R5 ;;;POINT TO U.TSTA ; DD129 BIC #S1.DSI,@R5 ;;;ENABLE PROCESSING OF INPUT CHARACTERS ;**-1 ; DD116 .IF DF T$$SER ; DD116 ; DD116 SERPRO:: ;;;SERIALLY PROCESS CHARACTERS FROM TABUF ; DD116 ; DD116 .ENDC ;T$$SER ; DD116 ; DD074 .IFT ;T$$SPL ; DD074 ; DD074 MOV U.TAPR-U.TSTA(R5),@#KDSAR5 ;;;MAKE SURE UCBX IS MAPPED ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 CALL NXTIC ;;;PROCESS CHARACTERS FROM TYPE-AHEAD BUFFER TSTB U.TFRQ-U.TSTA(R5) ;;;ANY FORK REQUESTS NOW PENDING? BNE 50$ ;;;Y - JUMP ; DD129 RETURN ;**-1 ; ; ; POST-FORK PROCESSING. PICK UP CHARACTER FROM U.TECB AND PROCESS IT. ; FPPFP:: MOV #NXTIC,@SP ;MODIFY RETURN ADDRESS MTPS #TTPRI ;LOCK OUT INTERRUPTS ;**-10 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOVB U.TECO-U.TSTA(R5),R2 ;;;GET CHARACTER TO PROCESS ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOVB U.TECB(R4),R2 ;;;GET CHARACTER TO PROCESS ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 BIC #S1.DSI,@R5 ;;;ENABLE INPUT PROCESSING ;**-1 .IF DF T$$MOD BITB #US.DSB!US.CRW,U.STS-U.TSTA(R5) ;;;LINE DISABLED OR WAITING FOR CARRIER? BNE 20$ ;;;Y - JUMP ; DD129 ;**-1 .ENDC ;T$$MOD CALLR ICH2A ;;;PROCESS CHARACTER ; ; .IF DF M$$PRO ;+ ; SWCPU - SWITCH TO CORRECT CPU. ; ; INPUT: ; R3 BITMASK TO SET IN FORK REQUEST BYTE ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF ALREADY EXECUTING ON THE CORRECT CPU (THE ONE THAT OWNS ; THE UNIBUS WHERE THE CONTROLLER SITS), IMMEDIATE RETURN ; TO CALLER. ; ; ELSE, FORK REQUEST BIT SET IN UCB. UCB ADDED TO END OF ; TARGET CPU'S UCB QUEUE, UNLESS IT IS ALREADY QUEUED. ; TARGET CPU'S FORK BLOCK QUEUED TO FORK QUEUE, UNLESS IT ; IS ALREADY QUEUED. RETURN TO CALLER'S CALLER. ; ; REGISTERS ALTERED: R4 ;- ; ; SWCPU:: MOV U.SCB-U.TSTA(R5),R4 ;GET SCB MOV S.KRB(R4),R4 ;GET KRB BIT K.URM(R4),@$CPURM ;ALREADY ON THE RIGHT CPU? BNE 140$ ;Y - RETURN ; DD129 MOV K.URM(R4),@SP ;N - SAVE URM AND POP RETURN ADDRESS - WANT ;**-1 ;TO RETURN TO CALLER'S CALLER MOV #$URMTB,R4 ;GET START OF URM TABLE 90$: BIT @SP,(R4)+ ;IS THIS THE CORRECT CPU? ; DD129 BEQ 90$ ;N - LOOP ; DD129 TST (SP)+ ;CLEAN STACK ;**-2 MOV $TTUQT-$URMTB-2(R4),R4 ;GET POINTER TO POINTER TO LAST ;UCB IN TARGET CPU'S UCB QUEUE CALL 110$ ;PLACE FORK REQUEST (NO NEED TO RAISE PRIORITY, ; DD129 ;WE ARE ON THE WRONG CPU ANYWAY...) ;**-1 100$: LOCK$ -LK.SPN-2(R4),SPIN ;LOCK UCB QUEUE ; DD129 TST 6(R4) ;FORK BLOCK ALREADY QUEUED? ;**-1 BNE 130$ ;Y - JUMP ; DD129 ADD #6,R4 ;N - POINT TO FORK PC ;**-1 MOV #FP000,@R4 ;SET FORK PC CLR -(R4) ;CLEAR LINK WORD CALL $QFORK ;QUEUE FORK BLOCK CMP -(R4),-(R4) ;BACK UP R4 BR 130$ ;UNLOCK FORK BLOCK AND RETURN ; DD129 ;**-1 .IFTF ; ; ;+ ; FORK - SET FORK LEVEL REQUEST AND ADD UCB TO UCB QUEUE. ; ; INPUT: ; R3 BITMASK TO SET IN FORK REQUEST BYTE ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; REQUEST BIT SET IN UCB. UCB ADDED TO END OF UCB QUEUE, ; UNLESS IT WAS ALREADY QUEUED. ; ; REGISTERS ALTERED: R4 ;- ; ; FORK:: .IFT MOV $TTUQP,R4 ;;;POINT TO UCB QUEUE HEAD TST (R4)+ ;;;POINT TO POINTER TO LAST IN QUEUE 110$: LOCK$ -LK.SPN-2(R4),SPIN ;;;LOCK UCB QUEUE ; DD129 ;**-1 .IFF MOV #$TTUQ+2,R4 ;;;POINT TO POINTER TO LAST IN QUEUE .IFTF BIS #S1.DSI,@R5 ;;;FORCE INPUT TO TABUF ;;;PREVENT RETRIEVAL FROM TABUF ADD #U.TFRQ-U.TSTA,R5 ;;;POINT TO U.TFRQ BISB R3,(R5)+ ;;;SET REQUEST BIT (U.TFRQ) ASSUME U.TFLK, BIT #1,@R5 ;;;UCB ALREADY QUEUED? BEQ 120$ ;;;Y - JUMP ; DD129 MOV R5,@(R4)+ ;;;N - QUEUE IT ;**-1 MOV R5,-(R4) ;;;SET NEW LAST CLR @R5 ;;;CLEAR LINK WORD 120$: ADD #U.TSTA-U.TFLK,R5 ;;;RESTORE R5 ; DD129 ;**-1 .IFT 130$: ULOCK$ -LK.SPN-2(R4),SPIN ;;;UNLOCK UCB QUEUE ; DD129 ;**-1 .ENDC 140$: RETURN ;;; ; DD12,9 ;**-1 .DSABL LSB .END ,$€` kQ ›c, .TITLE TTDAT .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 27-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT DM CTB POINTER FOR NON I&D SPACE M+ SYSTEMS ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD024 17-JUL-79 DALE R. DONCHIN ; HANG UP DZ11 REMOTE LINE IF CARRIER NOT SEEN WITHIN ; TIMEOUT PERIOD ; DD059 29-FEB-80 DALE R. DONCHIN ; IMPROVE ACCURACY OF READ TIMEOUT CODE ; DD064 12-MAY-80 DALE R. DONCHIN ; USE CORRECT VERTICAL FILL WHEN EXPANDING VERTICAL TAB ; AND FORMFEED ON A CRT TERMINAL ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD083 15-OCT-80 DALE R. DONCHIN ; REMOVE SCS CONDITIONALS AND CODE ; DD090 08-DEC-80 DALE R. DONCHIN ; ADD PER UNIT ANSWER SPEED AND AUTOBAUD DETECT ; DD093 12-FEB-81 DALE R. DONCHIN ; ADD [NO]BROADCAST SUPPORT AND CONDITIONALIZE ESCAPE SUPPORT ; DD094 01-MAR-81 DALE R. DONCHIN ; ADD ALTERNATE CLI SUPPORT ; DD096 12-MAR-81 DALE R. DONCHIN ; IMPROVE INTERRUPT HANDLING PERFORMANCE ; DD098 06-APR-81 DALE R. DONCHIN ; ADD ACD SUPPORT ; DD101 06-MAY-81 DALE R. DONCHIN ; IMPLEMENT IO.HNG FOR REMOTE LINES ; DD103 08-MAY-81 DALE R. DONCHIN ; SUPPORT NEW TERMINALS ; DD115 23-JUN-81 DALE R. DONCHIN ; ALLOW VARIABLE LENGTH TYPEAHEAD BUFFERS ON RSX-11M-PLUS ; DD116 30-JUN-81 DALE R. DONCHIN ; ADD SERIAL COMMAND PROCESSING CAPABILITY TO RSX-11M-PLUS ; DD117 14-JUL-81 DALE R. DONCHIN ; ENHANCE CLI CONTINATION LINE PROCESSING ; DD119 21-JUL-81 DALE R. DONCHIN ; ALLOW BUILD TIME SPECIFICATION OF OUTPUT TIMEOUT INTERVAL ; DD128 05-NOV-81 DALE R. DONCHIN ; IMPROVE AUTOBAUD DETECT ALGORITHM ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; DD131 09-NOV-81 DALE R. DONCHIN ; DON'T ALLOW ^O INPUT TO TERMINATE A READ W/SPECIAL TERMINATORS ; ;+ ; THIS MODULE CONTAINS ALL DRIVER DATA, EXCEPT THE DRIVER DISPATCH TABLE. ; IT ALSO CONTAINS THE DRIVER INITIALIZATION ROUTINE. ; ; IN A SYSTEM THAT SUPPORTS SEPARATE KERNEL DATA SPACE MAPPING, ; THIS MODULE MUST BE BUILT INTO THE TASK IMAGE "TTCOM". ;- ; ; .MCALL FILIO$, SPCIO$, TTSYM$ ; FILIO$ ;DEFINE I/O FUNCTION CODES SPCIO$ TTSYM$ .IF NDF R$$MPL .MCALL HWDDF$ HWDDF$ ;DEFINE KINAR5 .ENDC ;NDF R$$MPL ; ; ; MACRO TO GENERATE CHARACTER RECOGNITION TABLE AND CORRESPONDING ; DISPATCH TABLE. ; .MACRO CREC PREFIX,CHAR .IRP X, .PSECT CHRT .IIF NDF CHRT CHRT==. .IIF NDF 'PREFIX'CRT 'PREFIX'CRT==. .BYTE CH.'X' .PSECT CHRD .IIF NDF CHRD CHRD==. .WORD 'PREFIX''X' .ENDR .PSECT MAP5 ; DD021 .ENDM CREC ;**-1 ; CH.DEF = 0 ;DEFINE "DEFAULT" CHARACTER ;FOR CHARACTER DISPATCHING ; ; CHARACTER RECOGNITION TABLES. ; EACH TABLE SHOULD BE ORDERED IN DESCENDING FREQUENCY OF ; OCCURRENCE FOR MAXIMUM PERFORMANCE. ; ; CHARACTERS THAT HAVE SPECIAL SIGNIFICANCE BEFORE ; STORING IN TYPE-AHEAD BUFFER - USED BY ICHAR1. ; NOTE - ICHAR1 RECOGNIZES CTRL-X SEPARATELY. ; ALL ENTRIES IN THE TABLE MUST BE NUMERICALLY SMALLER ; OR EQUAL TO CTRL-X (30). ; .PSECT MAP5 ; DD021 ; ;**-1 I1CRT:: .BYTE CH.CTS, CH.CTQ, CH.CTO, CH.CTX, CH.CTC ; DD131 ASXOFF==I1CRT ;THIS LABEL MUST POINT TO AN XOFF ;**-1 ;CHARACTER (CTRL-S) ; ; ; CHARACTERS THAT HAVE SPECIAL SIGNIFICANCE AFTER ; RETRIEVAL FROM TYPE-AHEAD BUFFER (OR WHEN BUFFER BYPASSED) ; USED BY ICHAR2. NOTE - ESCAPE AND RUBOUT ARE RECOGNIZED SEPARATELY ; BY ICHAR2. ALL ENTRIES IN THE TABLE MUST BE NUMERICALLY ; SMALLER THAN ESCAPE (33). ; CREC I2, .IF DF T$$CTR CREC I2, .ENDC CREC I2, ; ; ; CHARACTERS THAT HAVE TO BE EXPANDED ON OUTPUT - USED BY EXPCHR. ; CARRIAGE-RETURN IS RECOGNIZED SEPARATELY BY EXPCHR. ; ALL ENTRIES IN THE TABLE MUST BE SMALLER THAN CARRIAGE-RETURN (15). ; CREC EX, ; ; ; RECOGNITION TABLE FOR VERTICAL FORMAT CONTROL BYTES. ; NOTE - THIS TABLE USES -1 AS TABLE TERMINATOR. ; ; THE WORD IN TABLE CHRD IS ENCODED AS FOLLOWS: ; ; LOW BYTE DESCRIBES LEADING LF'S OR FF: ; 0 = NO LEADING CHARACTERS ; CH.FF = LEADING FF ; -N = N LEADING LF'S ; ; HIGH BYTE DESCRIBES TRAILING CR: ; 0 = NO TRAILING CR ; S2.CR = TRAILING CR ; ; DEFINE SYMBOLS FOR ENCODED VALUES ; .IIF GT S2.CR-200 .ERROR ;S2.CR MUST BE IN LOW BYTE VFNUL = 0 ;NULL - NOTHING VFZER = 376! ;0 - 2 LF'S, 1 CR VFONE = CH.FF! ;1 - 1 FF, 1 CR VFPLU = S2.CR*400 ;+ - NO LF OR FF, 1 CR VFDOL = 377 ;$ - 1 LF, NO CR VFDF = 377! ;DEFAULT - 1 LF, 1 CR ; ; DEFINE THE TABLE TERMINATOR ; CH.DF = -1 ; CREC VF, ; ; ; SPECIAL ECHO STRINGS ; ASHT:: .BYTE CH.SP,CH.SP,CH.SP,CH.SP,CH.SP,CH.SP,CH.SP,CH.SP ;8 SPACES - USED TO SIMULATE HOR. TAB .IF DF T$$CTR ASCTR:: .ASCII /^R/ ;CTRL-R .ENDC ASCTU:: .ASCII /^U/ ;CTRL-U ; DD094 .IF NDF R$$MPL&A$$CLI ; DD094 ; DD094 ASCLP:: .BYTE 12,'> ;ABBREVIATED CLI PROMPT ASCLI:: .ASCII <12>/MCR>/ ;FULL CLI PROMPT ; DD094 .ENDC ;NDF R$$MPL&A$$CLI ; DD094 ; DD094 .IF DF T$$SPC ; DD117 ; DD117 ASCLC:: .BYTE 15,12 ;CLI CONTINUATION PROMPT ; DD117 .ASCII /->/ ; ; DD117 ; DD117 .ENDC ;T$$SPC ; DD117 ; DD117 ; ; DON'T SEPARATE THE LINES BELOW! ; ASCTZ::.ASCII /^Z/ ;CTRL-Z ASCR:: .BYTE CH.CR,0,0,0,0,0,0,0,0,0,0 ;CARRIAGE RETURN PLUS UP TO 10 FILLERS ;(WORST CASE FOR LA30S) ; ; DON'T SEPARATE THE LINES ABOVE! ; ASBELL::.BYTE 7 ;BELL ASBSL:: .ASCII "\" ;BACKSLASH .IF DF T$$RUB ASRBS:: .BYTE CH.BSP,CH.SP,CH.BSP ;BACKSPACE-SPACE-BACKSPACE ;(FOR SCOPE RUBOUT) ASBSP:: .BYTE CH.BSP,CH.BSP,CH.BSP,CH.BSP ;8 BACKSPACES .BYTE CH.BSP,CH.BSP,CH.BSP,CH.BSP ;TO RUBOUT HTAB ON SCOPE .ENDC ; NLFF==4 ;NUMBER OF VERTICAL FILL CHARACTERS .REPT 4 ;OUTPUT 4 LF'S IN PLACE OF FF AND VT ; DD064 .BYTE CH.LF ;FOR SCOPES ; DD064 .REPT NLFF ;INSERT VERTICAL FILL IF NECESSARY ; DD064 .BYTE 0 ; DD064 .ENDR ; DD064 .ENDR ; DD064 .REPT 4 ;OUTPUT 4 LF'S IN PLACE OF FF AND VT .BYTE CH.LF ;FOR SCOPES .ENDR ASLF:: .BYTE CH.LF ;LINE FEED .REPT NLFF .BYTE 0 ;FILLERS .ENDR ; ; .IF DF T$$ESC ; SYNTAX RULE TABLE FOR ESCAPE SEQUENCES ; .ENABL LSB .BYTE 'P,'P,40$-ESCST ;P - NEXT = 40$ (VT61 EXCEPTION) .BYTE 'Y,'Y,30$-ESCST ;Y - NEXT = 30$ (VT61 EXCEPTION) ESCST:: .BYTE '?,'?,40$-ESCST ;? - NEXT = 40$ (OLDER TERM. EXCEPTION) .BYTE 'O,'O,40$-ESCST ;O - NEXT = 40$ (ANSI SS3 INTRODUCER) .BYTE '[,'[,20$-ESCST ;[ - NEXT = 20$ (ANSI CSI) 10$: .BYTE 40,57,10$-ESCST ;INTERMEDIATE CHAR. - NEXT = SAME (10$) .BYTE 60,176,0 ;FINAL CHARACTER - DONE 20$: .BYTE 40,77,20$-ESCST ;INTERMEDIATE CHAR. - NEXT = SAME (20$) .BYTE 100,176,0 ;FINAL CHARACTER - DONE 30$: .BYTE 40,176,40$-ESCST ;FIRST COORD. (BIAS 40) - NEXT = 40$ 40$: .BYTE 40,176,0 ;SECOND COORD (BIAS 40) - DONE .DSABL LSB .ENDC ; ; TABLE OF HORIZONTAL FILL REQUIREMENT FOR LA30S. ; INDEX = CURRENT HORIZONTAL POSITION DIVIDED BY 8. ; ; NUMBER OF FILL CHAR.S HOR.POS. HORFT:: .BYTE 4. ;0-7. .BYTE 8. ;8.-15. .BYTE 6. ;16.-23. .BYTE 3. ;24.-31. .BYTE 0. ;32.-39. .BYTE 2. ;40.-47. .BYTE 4. ;48.-55. .BYTE 6. ;56.-63. .BYTE 8. ;64.-71. .BYTE 10. ;72. AND UP ; ; .IF DF T$$GMC!T$$SMC!D$$M11!D$$Z11 ; DD090 ;**-1 SPHI == S.EXTB ;HIGHEST RECOGNIZED SPEED CODE .IF DF D$$H11 ; TABLE OF RECEIVE AND TRANSMIT SPEED PARAMETERS FOR DH11. ; THE TABLE IS INDEXED BY S.XXX-1, WHERE S.XXX IS THE SYMBOLIC ; NAME FOR THE DESIRED SPEED (DEFINED BY TTSYM$). ; EACH ENTRY IS A BYTE CONTAINING THE PARAMETER TO LOAD INTO ; THE LINE PARAMETER REGISTER FOR SPEED S.XXX. ; IF S.XXX IS UNSUPPORTED, THE BYTE CONTAINS A NEGATIVE VALUE. ; SPDH:: .BYTE 0 ;S.0 .BYTE 1 ;S.50 .BYTE 2 ;S.75 .BYTE -1 ;S.100 - UNSUPPORTED .BYTE 3 ;S.110 .BYTE 4 ;S.134 .BYTE 5 ;S.150 .BYTE 6 ;S.200 .BYTE 7 ;S.300 .BYTE 10 ;S.600 .BYTE 11 ;S.1200 .BYTE 12 ;S.1800 .BYTE -1 ;S.2000 - UNSUPPORTED .BYTE 13 ;S.2400 .BYTE -1 ;S.3600 - UNSUPPORTED .BYTE 14 ;S.4800 .BYTE -1 ;S.7200 - UNSUPPORTED .BYTE 15 ;S.9600 .BYTE 16 ;S.EXTA .BYTE 17 ;S.EXTB .ENDC ;D$$H11 .IF DF D$$Z11 ; TABLE OF RECEIVE AND TRANSMIT SPEED PARAMETERS FOR DZ11. ; THE TABLE FORMAT IS IDENTICAL TO THAT OF THE DH11 TABLE ; DESCRIBED ABOVE. ; SPDZ:: .BYTE -1 ;S.0 - UNSUPPORTED .BYTE 0 ;S.50 .BYTE 1 ;S.75 .BYTE -1 ;S.100 - UNSUPPORTED .BYTE 2 ;S.110 .BYTE 3 ;S.134 .BYTE 4 ;S.150 .BYTE -1 ;S.200 - UNSUPPORTED .BYTE 5 ;S.300 .BYTE 6 ;S.600 .BYTE 7 ;S.1200 .BYTE 10 ;S.1800 .BYTE 11 ;S.2000 .BYTE 12 ;S.2400 .BYTE 13 ;S.3600 .BYTE 14 ;S.4800 .BYTE 15 ;S.7200 .BYTE 16 ;S.9600 .BYTE -1 ;S.EXTA - UNSUPPORTED .BYTE -1 ;S.EXTB - UNSUPPORTED .ENDC ;D$$Z11 .ENDC ;T$$GMC!T$$SMC!D$$M11!D$$Z11 ; DD090 ;**-1 .IF DF D$$M11!D$$ZMD ; DD090 ; DD090 ; ; DD090 ; MATCH TABLES FOR AUTO-BAUD SPEED DETECT. EACH ENTRY CONSISTS OF TWO BYTES, ; DD128 ; THE FIRST BYTE IS WHAT A CARRIAGE RETURN LOOKS LIKE WHEN WE ARE RECEIVING ; DD128 ; AT A KNOWN RATE AND THE CHARACTER WAS SENT AT THE BAUD SPEED SPECIFIED BY ; DD128 ; THE SECOND RATE. THERE ARE TWO TABLES, ONE FOR DETECTING SPEEDS BETWEEN ; DD128 ; 600 AND 9600 BAUD (WE SAMPLE AT 4800 BAUD), THE OTHER FOR DETECTING SPEEDS ; DD128 ; BETWEEN 50 AND 300 BAUD (WE SAMPLE AT 300 BAUD). ; DD128 ; ; DD128 ABHIGH::.BYTE 200,S.600 ;CH.CR AT 600 BAUD ON DH11 AND DZ11 ; DD128 .BYTE 170,S.1200 ;CH.CR AT 1200 BAUD ON DH11 AND DZ11 ; DD128 .BYTE 214,S.1800 ;CH.CR AT 1800 BAUD ON DH11 AND DZ11 ; DD128 .BYTE 346,S.2400 ;CH.CR AT 2400 BAUD ON DH11 AND DZ11 ; DD128 .BYTE 362,S.9600 ;CH.CR AT 9600 BAUD ON DH11 ; DD128 .BYTE 376,S.9600 ;CH.CR AT 9600 BAUD ON DZ11 ; DD128 .BYTE 0 ;ZERO TABLE TERMINATOR ; DD128 ; ; DD128 ABLOW:: .BYTE 340,S.50 ;CH.CR AT 50 BAUD ON DH11 AND DZ11 ; DD128 .BYTE 170,S.75 ;CH.CR AT 75 BAUD ON DH11 AND DZ11 ; DD128 .BYTE 214,S.110 ;CH.CR AT 110 BAUD ON DH11 AND DZ11 ; DD128 .BYTE 316,S.110 ;CH.CR AT 134.5 BAUD ON DH11 ; DD128 .BYTE 306,S.134 ;CH.CR AT 134.5 BAUD ON DZ11 ; DD128 .BYTE 346,S.150 ;CH.CR AT 150 BAUD ON DH11 AND DZ11 ; DD128 .BYTE 0 ;ZERO TABLE TERMINATOR ; DD128 ; DD090 .ENDC ;D$$M11$D$$ZMD ; DD090 ; DD090 .IF DF T$$GMC!T$$SMC!T$$CUP ; ; ; TABLES OF IMPLICIT CHARACTERISTICS PER TERMINAL TYPE. ; EACH TABLE IS INDEXED WITH TERMINAL TYPE (TC.XXX) MINUS 1. ; HIGHEST INDEX = TTPHI. EACH ENTRY IS A BYTE, WITH MEANING ; DESCRIBED BELOW. ; ; TABLE BIT(-S) MEANING ; ------------------------------------------------------ ; TTYP1 0-5 TO BE COPIED DIRECTLY INTO THE HIGH BYTE ; OF STATUS WORD 2 (U.TSTA+2). ; 6-7 CURSOR POSITIONING COMMAND TYPE (RANGE 0-3). ; THIS VALUE IS USED AS INDEX INTO TABLE "CPOST" ; (SEE BELOW). ; TTYP2 0-7 PAGE WIDTH. ; TTYP3 0-6 PAGE LENGTH. ; 7 1 = SCOPE. ; ; ; MACRO TO GENERATE AN ENTRY IN THE TABLES TTYP1, TTYP2 AMD TTYP3. ; .MACRO TERM TYPE,WID,LEN,HHT=0,HFF=0,HFL=0,VFL=0,SCP=0,CUP=0 .PSECT TTYP1 .IIF NDF TTYP1 TTYP1==. .=TTYP1+TYPE-1 X=!! .BYTE X/400!HFL! .IF DF T$$GMC!T$$SMC .PSECT TTYP2 .IIF NDF TTYP2 TTYP2==. .=TTYP2+TYPE-1 .BYTE WID .PSECT TTYP3 .IIF NDF TTYP3 TTYP3==. .=TTYP3+TYPE-1 .BYTE !LEN .ENDC .PSECT MAP5 ; DD021 .ENDM TERM ;**-1 ; TTPHI == T.V132 ;HIGHEST TERMINAL TYPE WITH IMPLICIT ; DD103 ;CHARACTERISTICS ;**-1 ; TERM T.AS33 WID=72.,LEN=66.,HFL=1 TERM T.KS33 WID=72.,LEN=66.,HFL=1 TERM T.AS35 WID=72.,LEN=66.,HFL=1 TERM T.L30S WID=80.,LEN=66.,HFL=7 TERM T.L30P WID=80.,LEN=66. TERM T.LA36 WID=132.,LEN=66. TERM T.VT05 WID=72.,LEN=20.,HHT=1,VFL=1,SCP=1,CUP=1 TERM T.VT50 WID=80.,LEN=12.,HHT=1,SCP=1 TERM T.VT52 WID=80.,LEN=24.,HHT=1,SCP=1,CUP=2 TERM T.VT55 WID=80.,LEN=24.,HHT=1,SCP=1,CUP=2 TERM T.VT61 WID=80.,LEN=24.,HHT=1,SCP=1,CUP=2 TERM T.L180 WID=132.,LEN=66.,HFF=1 TERM T.V100 WID=80.,LEN=24.,HHT=1,SCP=1,CUP=3 TERM T.L120 WID=132.,LEN=66.,HFF=1 TERM T.LA12 WID=132.,LEN=66.,HHT=1,HFF=1 ; DD103 TERM T.L100 WID=132.,LEN=66.,HHT=1,HFF=1 ; DD103 TERM T.LA34 WID=132.,LEN=66.,HFF=1 ; DD103 TERM T.LA38 WID=132.,LEN=66.,HFF=1 ; DD103 TERM T.V101 WID=80.,LEN=24.,HHT=1,SCP=1,CUP=3 ; DD103 TERM T.V102 WID=80.,LEN=24.,HHT=1,SCP=1,CUP=3 ; DD103 TERM T.V105 WID=80.,LEN=24.,HHT=1,SCP=1,CUP=3 ; DD103 TERM T.V125 WID=80.,LEN=24.,HHT=1,SCP=1,CUP=3 ; DD103 TERM T.V131 WID=80.,LEN=24.,HHT=1,SCP=1,CUP=3 ; DD103 TERM T.V132 WID=80.,LEN=24.,HHT=1,SCP=1,CUP=3 ; DD103 .ENDC ;T$$GMC!T$$SMC!T$$CUP ; ; ; MISCELLANEOUS BYTES ; ; DD024 .IF DF D$$ZMD ; DD024 ; DD024 DZTIMR::.BYTE DZTIME ;DZ11 DTR TIMER ; DD024 ; DD024 .ENDC ;D$$ZMD ; DD024 ; DD024 ; ;**-1 .EVEN ; ; ; TABLE OF POINTERS TO DISPATCH TABLES IN CONTROLLER-DEPENDENT ; MODULES. INDEX = CONTROLLER TYPE CODED AS FOLLOWS: ; 0 = DL-11 ; 2 = DZ-11 ; 4 = DH-11 ; 6 = DJ-11 ; 10 = DM-11BB ; .IIF DF R$$CON CTBL:: .IRP X, .IIF NDF R$$CON CTBL:: .IRP X, .IF DF D$$'X'11 .WORD $Y'X'TBL .PSECT CTBL $Y'X'TBL:.WORD Y'X'STAX ;START OUTPUT .WORD Y'X'ABOX ;ABORT OUTPUT .WORD Y'X'RESX ;RESUME OUTPUT .WORD Y'X'STOX ;STOP OUTPUT .IF NDF R$$CON .WORD Y'X'PWUP ;POWER-UP .IFTF ;NDF R$$CON .WORD Y'X'MTIM ;MODEM TIMER .IFF ;NDF R$$CON .WORD Y'X'CPUP ;CONTROLLER POWER-UP .WORD Y'X'UPUP ;UNIT POWER-UP .WORD Y'X'CONL ;CONTROLLER ONLINE .WORD Y'X'COFF ;CONTROLLER OFFLINE .WORD Y'X'UONL ;UNIT ONLINE .WORD Y'X'UOFF ;UNIT OFFLINE .ENDC ;NDF R$$CON .IF DF T$$GMC!T$$SMC!D$$M11!D$$ZMD ; DD090 ;**-1 .WORD Y'X'LPAR ;GET/SET LINE PARAMETERS .ENDC ;T$$GMC!T$$SMC!D$$M11!D$$ZMD ; DD090 ;**-1 .PSECT MAP5 ; DD021 .IFF ;**-1 .WORD 0 .ENDC .ENDR ; ; ; TABLE OF POINTERS TO FORK LEVEL ROUTINES. THE ORDER OF ENTRIES ; IN THIS TABLE MUST MATCH THE BIT POSITIONS OF THE CORRESPONDING ; BITS IN THE FORK REQUEST BYTE U.TFRQ IN THE UCB. ; FRKTB:: .WORD FPIRD ;FR.IRD - INPUT DONE .WORD FPORD ;FR.ORD - OUTPUT DONE .WORD FPSUI ;FR.SUI - START OF UNSOLICITED INPUT .IF DF T$$CCA .WORD FPAST ;FR.AST - CHARACTER THAT CAUSES AST .ENDC ;T$$CCA .IF DF M$$PRO .WORD FPTIM ;FR.TIM - TIME-OUT .ENDC ;M$$PRO .IF DF T$$SPC ; DD117 ; DD117 .WORD FPKIL ;FR.KIL - SEND KILL PACKET TO CLI ; DD117 ; DD117 .ENDC ;T$$SPC ; DD117 ; DD117 .WORD FPGRQ ;FR.GRQ - GET REQUEST PACKET FROM QUEUE .WORD FPPFP ;FR.PFP - POST-FORK PROCESSING OF ;**-7 ;CHARACTER IN U.TECB (U.TECO) ; DD074 ; ;**-1 ; ; I/O FUNCTION CODE DISPATCH TABLES. ; VERIFY THAT THE TABLE MATCHES THE NUMERIC VALUES OF I/O FUNCTION CODES ; ASSUME IO.WLB/400,1 ASSUME IO.RLB/400,2 ASSUME IO.ATT/400,3 ASSUME IO.DET/400,4 ASSUME IO.GTS/400,5 ASSUME SF.SMC/400,5 ASSUME SF.GMC/400,5 ASSUME IO.HNG/400,6 ; DD101 .IF DF T$$RPR ASSUME IO.RPR/400,11 .ENDC ASSUME IO.RTT/400,12 ; ; DISPATCH TABLE FOR PROCESSING DIFFERENT FUNCTION CODES BEFORE ; ENTERING A PACKET IN THE I/O QUEUE. ; QPDSP:: .WORD QPWLB ;IO.WLB .WORD QPRLB ;IO.RLB .WORD QPATT ;IO.ATT .WORD QPDET ;IO.DET .IF DF T$$GTS!T$$GMC!T$$SMC .WORD QPSPC ;SPECIAL FUNCTIONS: ; IO.GTS ; SF.SMC ; SF.GMC .IFF .WORD 0 .ENDC .WORD QPHNG ;IO.HNG ; DD101 .WORD 0 ;RESERVED EXEC CLOSE-OUT-LUN FUNCTION ;**-1 .WORD 0 ;RESERVED FOR USER MODE DIAGNOSTICS .IF DF T$$RPR .WORD QPRPR ;IO.RPR .IFF .WORD 0 .ENDC .WORD QPRLB ;IO.RTT (TREAT AS IO.RLB AT THIS POINT) ; ; ; DISPATCH TABLE FOR PROCESSING DIFFERENT FUNCTION CODES AFTER ; A PACKET HAS BEEN DEQUEUED FROM THE I/O QUEUE ; PPDSP:: .WORD PPWLB ;IO.WLB .WORD PPRLB ;IO.RLB .WORD PPATT ;IO.ATT .WORD PPDET ;IO.DET .IF DF T$$SMC .WORD PPSPC ;SF.SMC .IFF .WORD 0 .ENDC .WORD PPHNG ;IO.HNG ; DD101 .WORD 0 ;RESERVED EXEC FUNCTION ;**-1 .WORD 0 ;USER MODE DIAGNOSTICS .IF DF T$$RPR .WORD PPRPR ;IO.RPR .IFF .WORD 0 .ENDC .WORD PPRLB ;IO.RTT ; ; ; DISPATCH TABLE FOR INPUT CHARACTER PROCESSING. ; THIS TABLE IS CONSULTED EACH TIME ECHO DONE OCCURS. ; THE TABLE CONTAINS POINTERS TO ROUTINES IN THE MODULE "ICHAR". ; INDEX = INPUT LOGIC STATE VARIABLE (U.TISV IN UCBX) MULTIPLIED BY 2. ; ISDSP:: .WORD CFGRQ ;NOTHING MORE TO ECHO .IF DF T$$CTR SV.CR1==<.-ISDSP>/2 .WORD I2CTR1 ;USED FOR CTRL-R ECHOING .WORD I2CTR2 ;USED FOR CTRL-R ECHOING ; DD094 .IF DF R$$MPL!A$$CLI ; DD094 ; DD094 .WORD I2CTR3 ;USED FOR CTRL-R ECHOING ; DD094 .ENDC ; DD094 ; DD094 .WORD I2CTR4 ;USED FOR CTRL-R ECHOING .WORD I2CTR5 ;USED FOR CTRL-R ECHOING ; DD094 .ENDC SV.CU1==<.-ISDSP>/2 .WORD I2CTU1 ;USED FOR CTRL-U ECHOING .WORD I2CTU2 ;USED FOR CTRL-U ECHOING ; DD094 .IF DF R$$MPL!A$$CLI ; DD094 ; DD094 .WORD I2CTU3 ;USED FOR CTRL-U ECHOING ; DD094 .ENDC ; DD094 ; DD094 .WORD I2CTU4 ;USED FOR CTRL-U ECHOING ; DD094 ; ; ; DISPATCH TABLE FOR OUTPUT CHARACTER PROCESSING. ; THIS TABLE IS CONSULTED EACH TIME AN OUTPUT CHARACTER IS EXPANDED. ; THE TABLE CONTAINS POINTERS TO ROUTINES IN THE MODULE "EXPCHR". ; INDEX = BITS 8 AND 9 IN U.TSTA+2 IN UCBX MULTIPLIED BY 2. ; (BIT COMBINATION 11 UNUSED). ; OSDSP:: .WORD EXPC0 ;DEFAULT CASE .WORD EXPC1 ;USED FOR WRAP-AROUND .WORD EXPC2 ;USED FOR WRAP-AROUND ; ;**-14 ; .IF DF T$$GMC!T$$SMC ; ; TABLE OF CHARACTERISTIC CODES FOR GET MULTIPLE CHARACTERISTICS ; FUNCTION (SF.GMC) AND SET MULTIPLE CHARACTERISTICS FUNCTION (SF.SMC). ; ; EACH RECOGNIZED CODE HAS A 1-WORD ENTRY IN THE TABLE. ; THIS WORD CONTAINS ONE OF THE FOLLOWING: ; ; 1. IF THE WORD NOT = 0 AND BIT 15 = 0: ; LOW BYTE = A BITMASK THAT MAPS THE DESIRED CHARACTERISTIC ; VALUE IN THE PROPER BYTE IN THE UCB. BITS ARE SET FOR ; RELEVANT BITS IN THE UCB BYTE. ; HIGH BYTE = OFFSET FROM START OF THE UCB TO THE BYTE ; THAT CONTAINS THE DESIRED CHARACTERISTIC. ; ; 2. IF BIT 15 = 1: ; THE WORD IS THE ADDRESS OF A SUBROUTINE THAT HANDLES ; THIS PARTICULAR CHARACTERISTIC. ; (ALL VIRTUAL ADDRESSES IN THE DRIVER ARE 120000 OR HIGHER). ; ; 3. IF THE WHOLE WORD = 0: ; THIS CHARACTERISTIC IS NOT RECOGNIZED BY SF.GMC OR SF.SMC. ; ; ; DEFINE MACRO TO GENERATE TABLE ENTRIES ; .MACRO MCGEN NAME,OFS,BM .IF LE NAME-MCHI .=MCTAB+<2*> .IF NB BM .IF LE BM-377 .BYTE BM,OFS .IFF .BYTE BM/400,OFS+1 .ENDC .IFF .WORD OFS .ENDC .IFF .ERROR ;ILLEGAL CHARACTERISTIC .ENDC .ENDM MCGEN ; MCHI == TC.MAX-1 ;HIGHEST RECOGNIZED CHARACTERISTIC ; MCTAB:: .REPT MCHI .WORD 0 ;INITIALIZE WHOLE TABLE TO ZEROS .ENDR MCGEN TC.WID,U.CW4,377 ;NUMBER OF COLUMNS MCGEN TC.LPP,U.TLPP,377 ;NUMBER OF LINES PER PAGE .IF DF D$$H11!D$$Z11 MCGEN TC.RSP,MCRSP ;RECEIVE SPEED MCGEN TC.XSP,MCXSP ;TRANSMIT SPEED ; DD090 .IF DF T$$MOD ; DD090 ; DD090 MCGEN TC.ASP,MCASP ;ANSWER SPEED ; DD090 MCGEN TC.ABD,U.TSTA+4,S3.ABD ;AUTO-BAUD SPEED DETECT ; DD090 ; DD090 .ENDC ;T$$MOD ; DD090 .ENDC ;D$$H11!D$$Z11 MCGEN TC.ISL,U.UNIT,377 ;SUB-LINE ON CONTROLLER MCGEN TC.TTP,MCTTP ;TERMINAL TYPE ;**-1 MCGEN TC.SCP,U.CW2,U2.CRT ;SCOPE MCGEN TC.HFL,U.TSTA+2,S2.HFL ;HORIZONTAL FILL REQUIREMENT MCGEN TC.VFL,U.TSTA+2,S2.VFL ;VERTICAL FILL REQUIREMENT MCGEN TC.HFF,U.TSTA+2,S2.HFF ;HARDWARE FORM-FEED MCGEN TC.HHT,U.TSTA+2,S2.HHT ;HARDWARE TAB MCGEN TC.ACR,U.TSTA+2,S2.ACR ;AUTOMATIC CR-LF ON LONG LINES MCGEN TC.SMR,U.CW2,U2.LWC ;LOWERCASE INPUT ENABLED ; DD093 .IF DF T$$ESC ; DD093 ; DD093 MCGEN TC.ESQ,U.CW2,U2.ESC ;ESCAPE SEQUENCES RECOGNIZED .ENDC ;T$$ESC ; DD093 ; DD093 .IF DF T$$MOD MCGEN TC.DLU,U.CW2,U2.RMT ;DIAL-UP LINE .ENDC MCGEN TC.HLD,U.CW2,U2.HLD ;HOLD-SCREEN MODE MCGEN TC.NEC,U.CW2,U2.NEC ;NO ECHO ON SOLICITED INPUT MCGEN TC.SLV,U.CW2,U2.SLV ;SLAVED TERMINAL MCGEN TC.PRI,U.CW2,U2.PRV ;PRIVILEGED TERMINAL MCGEN TC.FDX,U.TSTA+2,S2.FDX ;FULL DUPLEX MCGEN TC.BIN,U.TSTA+4,S3.RAL ;READ-PASS-ALL MCGEN TC.8BC,U.TSTA+4,S3.8BC ;8 BIT CHARACTERS PASSED ON READ MCGEN TC.TBF,MCTBF ;TYPE-AHEAD BUFFER ACTIVE COUNT MCGEN TC.CTS,MCCTS ;CONTROL-S STATUS ; .IF DF R$$MPL!A$$CLI ; DD093 ; DD093 MCGEN TC.NBR,U.MUP,UM.NBR ;NOBROADCAST ; DD093 ; DD093 .ENDC ;R$$MPL!A$$CLI ; DD093 ; DD093 .IF DF T$$ACD ; DD098 ; DD098 MCGEN TC.ACD,MCACD ;ANCILLARY CONTROL DRIVER (ACD) ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 .IF DF T$$SPL ; DD115 ; DD115 MCGEN TC.RAT,MCTYP ;READ-AHEAD TYPE ; DD115 MCGEN TC.TBS,MCTBS ;TYPEAHEAD BUFFER SIZE ; DD115 ; DD115 .IFF ;T$$SPL ; DD115 ; DD115 MCGEN TC.RAT,U.TSTA+4,S3.TAB ;READ-AHEAD TYPE ; DD115 ; DD115 .ENDC ;T$$SPL ; DD115 ; DD115 .IF DF T$$SER ; DD116 ; DD116 MCGEN TC.TBM,U.MUP,UM.SER ;TYPEAHEAD BUFFER MODE (TASK OR CLI) ; DD116 ; DD116 .ENDC ;T$$SER ; DD116 ; DD116 .=MCTAB+<2*MCHI> ;END OF TABLE ; ; .ENDC ;T$$GMC!T$$SMC ; ; .IF DF D$$M11!D$$LMD ; ; DISPATCH TABLE FOR MODEM INTERRUPT SERVICE ROUTINE. ; INDEX = BITS 1 AND 2 IN U.STS (US.DSB AND US.CRW). ; MDSP:: .WORD MODI4 ;ENABLED, NOT WAITING FOR CARRIER .WORD MODI2 ;DISABLED, NOT WAITING FOR CARRIER .WORD MODI5 ;ENABLED, WAITING FOR CARRIER .WORD MODI3 ;DISABLED, WAITING FOR CARRIER .ENDC ;D$$M11!D$$LMD ; ; ; MISCELLANEOUS WORDS ; ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 $DALED::.BLKW 1 ;SAVED DRIVER MAPPING FOR KISAR6 ; DD074 ; DD074 .ENDC ;NDF T$$SPL ; DD074 ; DD074 FREEB:: .WORD 0 ;FREE BUFFER LISTHEAD ;**-1 DCB0:: .BLKW 1 ;POINTER TO DCB FOR FIRST TERMINAL ;SET UP BY INITIALIZATION ROUTINE OPTIMR::.WORD OPTIME ;OUTPUT TIMEOUT INTERVAL ; DD119 ; ; .IF DF D$$H11 ; DD074 ; DD074 .IF DF M$$EXT ; SAVED SETTINGS FOR UMR(S) TO MAP DRIVER WITH 18-BIT ADDRESSES ; DD074 ; IDENTICAL TO 16 BIT ADDRESSES ;**-1 ; UMR5S:: .BLKW 2 ;UMR 5 ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 .BLKW 2 ;UMR 6 .ENDC ;NDF T$$SPL ; DD074 ; DD074 .IFF ;M$$EXT ; RELOCATION CONSTANT TO TRANSFORM A VIRTUAL ADDRESS WITHIN THE DRIVER ;**-2 ; TO A PHYSICAL ADDRESS. THIS RELOCATION IS REQUIRED ONLY FOR DMA ; CONTROLLERS (SUCH AS THE DH-11), AND ONLY IF EXTENDED MEMORY IS NOT ; PRESENT. THE FORMAT OF THE DOUBLE-WORD RELOCATION CONSTANT IS SUCH ; THAT WHEN IT IS ADDED TO A VIRTUAL ADDRESS IN THE RANGE 120000-157777 ; (CARRY IS ADDED TO BIT 4 OF THE HIGH ORDER WORD), THE RESULT IS ; THE 18-BIT PHYSICAL ADDRESS (2 HIGH BITS IN BITS 4-5 OF RELC+0, ; 16 LOW BITS IN RELC+2). ; ; THE RELOCATION CONSTANT IS CALCULATED AND STORED HERE BY THE POWER-UP ; CODE. ; ; IF EXTENDED MEMORY IS PRESENT, THE POWER-UP CODE HAS MAPPED THE DRIVER ; IN UMR'S 5 AND 6, WHICH MEANS THAT DRIVER VIRTUAL ADDRESSES ARE ; IDENTICAL WITH THE 18-BIT ADDRESSES. ; RELC:: .BLKW 2 .ENDC ;M$$EXT ; DD074 ;**-1 .ENDC ;D$$H11 ; DD074 ;**-1 .IF DF T$$CUP ; TABLE OF POINTERS TO ROUTINES TO EXPAND A CURSOR POSITIONING COMMAND ; INTO A CHARACTER STRING APPROPRIATE FOR THE TERMINAL TYPE. ; INDEX INTO THIS TABLE = 2*X-2, WHERE X = THE VALUE IN BITS 6-7 OF THE ; TABLE "TTYP1" (SEE ABOVE) FOR THE TERMINAL TYPE. ; CPOST:: .WORD CPOS1 ;1 - VT05 STYLE .WORD CPOS2 ;2 - VT52 STYLE .WORD CPOS3 ;3 - VT100 STYLE ; ; ; NOTE - THE LOCATIONS EXPCP, CP0, CP1, CP2 AND CP3 BELOW ARE READ/WRITE ; LOCATIONS! ; THIS IS SAFE SINCE THEY ARE ONLY USED BY THE SYSTEM STATE CODE ; IN MODULE "TTRW" - NEVER BY INTERRUPT LEVEL CODE. ; ; POINTER TO ROUTINE TO EXPAND 1 CHARACTER ON OUTPUT, OR TO ROUTINE ; THAT EXPANDS CURSOR POSITIONING COMMAND. ; EXPCP:: .WORD EXPC3 ; ; TERMINAL-DEPENDENT CURSOR POSITIONING COMMAND STRINGS ; ; TYPE 2 - VT52. MUST BE LOCATED ON WORD BOUNDARY! ; CP2:: .BYTE CH.ESC,'H,CH.ESC,'J .BYTE CH.ESC,'Y,0,0 ; ; TYPE 1 - VT05 ; CP1:: .BYTE 35,0,0,0,0 ;4 FILLERS AFTER HOME CURSOR .BYTE 37,0,0,0,0 ;4 FILLERS AFTER ERASE-TO-EOS .BYTE 16,0,0,0,0,0,0 ;4 FILLERS AFTER Y-COORDINATE ; ; TYPE 3 - VT100 ; CP3:: .BYTE CH.ESC,'[,'2,'J .BYTE CH.ESC,'[,0,0,0,';,0,0,0 CP3A:: .BYTE 'H .EVEN .ENDC ;T$$CUP .IF DF D$$M11&R$$MPL&T$$COM ; DD021 ;**-1 YMCP1:: .BLKW 1 ;POINTER TO $YMCTB ;**-2 .ENDC ;D$$M11&R$$MPL&T$$COM ; DD021 ;**-7 .IF NDF R$$MPL ;**-8 ;**-10 ; ;TABLE OF POINTERS TO UCB TABLES ; TTUCB:: .IRP X, .IF DF D$$'X'11 .WORD D'X'UCB .IFF .WORD 0 .ENDC .ENDR ; ; DL-11 DATABASES ; .IF DF D$$L11 DLUCB:: ;DL UCB POINTER TABLE POINTER TABLE N=0 .REPT D$$L11 .WORD DLUC0+N N=N+4 ; DD096 .ENDR ;**-1 DLUC0: .BLKW D$$L11*2 ;DL UCB/CSR TABLE ; DD096 ;**-3 .ENDC ; DF D$$L11 ; ; DH-11 DATABASES ; .IF DF D$$H11 DMUCB:: ;POINT DM11-BB UCB'S TO DH UCB'S DHUCB:: ;DH UCB POINTER TABLE POINTER TABLE N=0 .REPT D$$H11 ; DD096 .IF DF D$$M11 ; DD096 ; DD096 .WORD DHUC0+N+2 ;POINTER TO DH11 UCB TABLE ; DD096 N=N+38. ; DD096 ; DD096 .IFF ; DD096 ; DD096 .WORD DHUC0+N ;POINTER TO DH11 UCB TABLE ; DD096 N=N+36. ; DD096 ; DD096 .IFTF ; DD096 ; DD096 .ENDR ;**-2 DHUC0: ;DH UCB TABLES .REPT D$$H11 ; DD096 .IFT ; DD096 ; DD096 .BLKW 1 ;DM11-BB CSR ADDRESS ; DD096 ; DD096 .ENDC ; DD096 ; DD096 .BLKW 1 ;DH11 CSR ADDRESS ; DD096 .REPT 16. .WORD 0 ;ADDR OF UCB FOR LINE (PLUGGED AT TTPWF) .ENDR .WORD -1 ;END OF UCB LIST .ENDR ;**-11 .ENDC ; DF D$$H11 ; ; DZ-11 DATABASES ; .IF DF D$$Z11 DZUCB:: ;DZ UCB POINTER TABLE POINTER TABLE ; DD096 N=0 ;**-1 .REPT D$$Z11 .WORD DZUC0+N ;POINTER TO DZ11 UCB TABLE (INDEXED BY ; CONTROLLER NUMBER) N=N+20. ; DD096 .ENDR ;**-1 DZUC0: ;REF LABEL .REPT D$$Z11 .BLKW 1 ;DZ CSR ADDRESS ; DD096 .REPT 8. .WORD 0 ;UCB ADDRESS FOR EACH LINE .ENDR .WORD -1 ;END OF UCB LIST .ENDR .ENDC ; DF D$$Z11 ;**-1 ; ; DJ-11 DATABASES ; .IF DF D$$J11 DJUCB: ;REF LABEL N=0 .REPT D$$J11 .WORD DJUC0+N ;POINTER TO DJ11 UCB TABLE N=N+36. ; DD096 .ENDR ;**-1 DJUC0: ;REF LABEL .REPT D$$J11 .BLKW 1 ;DJ CSR ADDRESS ; DD096 .REPT 16. .WORD 0 ;ADDRESS OF LINE'S UCB .ENDR .WORD -1 ;END OF UCB LIST .ENDR ;**-2 .ENDC ; DF D$$J11 .ENDC ;NDF R$$MPL .PAGE ;+ ; DRIVER INITIALIZATION ROUTINE. ; ; THIS CODE IS EXECUTED ONCE ONLY AT THE FIRST CALL ; TO THE DRIVER AFTER IT HAS BEEN LOADED. ; IT SERVES THE FOLLOWING PURPOSES: ; 1. ESTABLISH THE MAPPING OF THE DRIVER DATA AREA ; AND SAVE THE APR VALUES IN SAVE LOCATIONS SO THEY CAN ; BE QUICKLY LOADED WHENEVER THE DRIVER IS CALLED. ; 2. SAVE KINAR5 IN THE TT-DRIVER FORK BLOCK (FORK BLOCKS ; IF MULTI-PROCESSOR SYSTEM). ; 3. CALCULATE AND SAVE UMR'S 5 AND 6 VALUES (IF DH-11 ; AND EXTENDED MEMORY SUPPORTED). ; 4. CALCULATE AND SAVE A CONSTANT USED TO TRANSFORM A DRIVER ; VIRTUAL ADDRESS INTO A PHYSICAL ADDRESS (IF DH-11 BUT ; NOT EXTENDED MEMORY SUPPORTED). ; 5. INITIALIZE AND QUEUE THE TT-DRIVER CLOCK BLOCK. ; 6. SAVE A POINTER TO THE FIRST TT DCB IN THE SYSTEM. ; 7. CONSTRUCT THE LIST OF FREE BUFFERS IN THE TT-DRIVER BUFFER POOL. ; ; IN A SYSTEM THAT SUPPORTS SEPARATE KERNEL DATA SPACE MAPPING, ; THIS MODULE RESIDES IN THE COMMON BLOCK "TTCOM". ; WHEN "INIT" IS CALLED IN SUCH A SYSTEM, THE MAPPING IS: ; INSTR. SPACE APR 5: DRIVER CODE ; INSTR. SPACE APR 6: DRIVER DATA AND INITIALIZATION ROUTINE ; (FIRST 4 KW OF TTCOM) ; DATA SPACE APR 5: DRIVER CODE ; DATA SPACE APR 6: UNDEFINED ; ON RETURN FROM "INIT", THE MAPPING IS THE "NORMAL" DRIVER MAPPING, ; WHICH IS: ; INSTR. SPACE APR 5: DRIVER CODE (TTDRV) ; DATA SPACE APR 5-6: DRIVER DATA (TTCOM) ; ; IN A SYSTEM THAT DOES NOT SUPPORT SEPARATE KERNEL DATA SPACE MAPPING, ; THIS MODULE RESIDES TOGETHER WITH ALL OTHER CODE AND DATA IN "TTDRV". ; THE COMMON BLOCK "TTCOM" DOES NOT EXIST. IN SUCH A SYSTEM, WHEN ; "INIT" IS CALLED, THE MAPPING IS: ; INSTR. AND DATA SPACE APR 5: DRIVER CODE ; ON RETURN, THE MAPPING IS THE "NORMAL" DRIVER MAPPING, WHICH IS: ; INSTR. SPACE APR 5-6: DRIVER CODE AND DATA (TTDRV) ; ; FROM THE DESCRIPTION ABOVE, IT FOLLOWS THAT THE INITIALIZATION ROUTINE ; MAY BE MAPPED EITHER IN APR 5 (NON-D-SPACE SYSTEM) OR APR 6 (D-SPACE ; SYSTEM) WHEN CALLED. IT MUST THEREFORE BE WRITTEN IN POSITION-INDEPENDENT ; CODE (PIC). ;- ; ; .PSECT $$$$$$,OVR ; TTPOOL::.BLKW 1 ;START OF DRIVER'S PRIVATE POOL ; ; NOTE - THE ROUTINE BELOW MUST FIT INTO ONE FIXED LENGTH BUFFER ; (LENGTH = T$$BFL BYTES), OR IT WILL OVERWRITE ITSELF. ; NOTE ALSO THAT THE ROUTINE MUST MAP ITSELF IN BOTH I- AND D-SPACE. ; ; INPUT: ; R0 START OF DRIVER POOL ; R1 POINTER T$$BFL BYTES BELOW END OF DRIVER POOL ; CPOOL: MOV R0,R2 ;COPY POINTER TO CURRENT BUFFER ADD #T$$BFL,R0 ;POINT TO NEXT BUFFER MOV R0,@R2 ;LINK NEW TO OLD CMP R0,#160000 ;WITHIN 4K BOUNDARY? ; DD074 BHIS 10$ ;N - STOP HERE ; DD074 CMP R0,R1 ;END OF POOL? BLO CPOOL ;N - LOOP 10$: CLR @R2 ;Y - CLEAR POINTER IN LAST BUFFER ; DD074 RETURN ;ALL DONE ;**-1 .IIF GT .-, .ERROR ; ; INIT:: MOV @#KINAR5,R0 ;GET START OF DRIVER CODE .IF DF M$$PRO MOV #M$$PRO,R2 ;GET NUMBER OF CPU'S MOV #$TTFB+10,R1 ;GET POINTER TO KINAR6 WORD IN ;FORK BLOCK FOR CPU 0 20$: MOV R0,@R1 ;SAVE KINAR5 IN FORK BLOCK ; DD129 ADD #TT$UQL,R1 ;POINT TO NEXT UCB QUEUE ;**-1 SOB R2,20$ ;LOOP ; DD129 ;**-1 .IFF ;M$$PRO MOV R0,@#$TTFB+10 ;SAVE KINAR5 IN FORK BLOCK .ENDC ;M$$PRO .IF DF T$$COM MOV @#$TTCOM,-(SP) ;SAVE TTCOM PCB ADDRESS CLR @#$TTCOM ;INDICATE DRIVER INITIALIZATION DONE .IF DF D$$M11 MOV @#YMCTBP,R1 ;GET POINTER TO $YMCTB .IFTF ;D$$M11 MOV @#KINAR6,R0 ;GET START OF DRIVER DATA ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV R0,@#KDSAR6 ;MAP TTCOM THROUGH DATA SPACE APR 6 ; DD074 MOV R0,@#$DALED ;SAVE MAPPING ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV R0,@#PAR5S ;SAVE A COPY MOV R0,@#KDSAR5 ;MAP DRIVER DATA ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 MOV @#KINAR5,@#PAR6I ;GET START OF DRIVER CODE ADD #200,@#PAR6I ;COMPUTE AND SAVE HIGH 4K MAPPING ;**-1 .IFT ;D$$M11 MOV R1,@#YMCP1 ;SAVE POINTER TO $YMCTB .ENDC ;D$$M11 .ENDC ;T$$COM MOV R0,R1 ;COPY REAL START OF DRIVER DATA ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 ADD #200,R0 ;ADD THE EQUIVALENT OF 4 K WORDS MOV R0,@#KISAR6 ;MAP REST OF DRIVER MOV R0,@#$DALED ;SAVE DRIVER KISAR6 ; DD074 ; DD074 .ENDC ;NDF T$$SPL ; DD074 ;**-1 .IF DF D$$H11 .IF DF M$$EXT ; ; CALCULATE AND SAVE THE UMR VALUE(S) TO MAP ALL OF THE DRIVER DATA AREA ; DD074 ; ;**-2 CLR R0 ; .IF DF R$$EIS ASHC #6,R0 ;GET PHYS. START ADDRESS .IFF ;R$$EIS MOV R1,R0 ;GET PHYS. START ADDRESS SWAB R0 ;USE NON-EIS EMULATION OF ASHC #6,R0 BIC #177400,R0 ; SWAB R1 ; BIC #377,R1 ; ROR R0 ; ROR R1 ; ROR R0 ; ROR R1 ; .ENDC ;R$$EIS MOV #UMR5S,R2 ;POINT AT SAVED UMR 5 MOV R1,(R2)+ ;SAVE UMR 5 SETTING ;**-3 MOV R0,(R2)+ ; ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 ADD #20000,R1 ;ADVANCE 8 K BYTES ADC R0 ; MOV R1,(R2)+ ;SAVE UMR 6 SETTING ;**-2 MOV R0,(R2)+ ; .ENDC ;NDF T$$SPL ; DD074 ; DD074 .IFF ;M$$EXT ; ; COMPUTE AND SAVE THE DOUBLE-WORD RELOCATION CONSTANT TO TRANSFORM A DRIVER ; VIRTUAL ADDRESS INTO AN 18-BIT ADDRESS. ; (SEE DETAILED DESCRIPTION AT LABEL "RELC:"). ; SWAB R1 ;SHIFT KISAR5 6 BITS LEFT MOVB R1,R0 ;GET ORIGINAL BITS 10-11 IN BITS 2-3 RORB R1 ;ORIGINAL BIT 8 INTO CARRY ROR R1 ;BIT 8 INTO BIT 15, BIT 9 INTO CARRY ROR R1 ;BIT 9 INTO BIT 15 - SHIFT IS COMPLETED BIC #77,R1 ;CLEAR 6 LOW BITS ASL R0 ;SHIFT 2 HIGH BITS INTO BITS 4-5 ASL R0 ; SUB #120000,R1 ;SUBTRACT DRIVER BASE VIRTUAL ADDRESS BCC 30$ ;NO CARRY - JUMP ; DD129 SUB #20,R0 ;SUBTRACT CARRY FROM R0 BIT 4 ;**-1 30$: BIC #^C<60>,R0 ;CLEAR ALL BUT BITS 4-5 ; DD129 MOV R0,@#RELC ;SAVE RELOCATION CONSTANT ;**-1 MOV R1,@#RELC+2 .ENDC ;M$$EXT .ENDC ;D$$H11 MOV #TTICK,@#$TTCB+C.SUB ;INITIALIZE CLOCK BLOCK CALL @#CLINS ;QUEUE IT MOV #$DEVHD,R0 ;GET START OF DCB LIST 40$: MOV @R0,R0 ;GET NEXT DCB ; DD129 CMP D.NAM(R0),#"TT ;DOES IT HAVE GENERIC NAME "TT"? ;**-1 BNE 40$ ;N - LOOP ; DD129 MOV D.UCB(R0),R1 ;GET FIRST UCB ;**-1 BIT #DV.TTY,U.CW1(R1) ;IS IT A TERMINAL? BEQ 40$ ;N - LOOP ; DD129 MOV R0,@#DCB0 ;SAVE POINTER TO FIRST TERMINAL DCB ;**-1 .IF DF T$$COM MOV (SP)+,R1 ;GET TTCOM PCB .IFF ;T$$COM MOV D.PCB(R0),R1 ;GET TTDRV PCB .ENDC ;T$$COM MOV P.SIZE(R1),R1 ;GET PARTITION SIZE IN 32. WORD BLOCKS ; DD129 .IF DF R$$EIS ; DD129 ; DD129 ASH #6,R1 ;CONVERT TO BYTES ; DD129 ; DD129 .IFF ;R$$EIS ; DD129 ; DD129 SWAB R1 ;CONVERT TO BYTES RORB R1 ROR R1 ROR R1 ; DD129 .ENDC ;R$$EIS ; DD129 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 ADD #140000-T$$BFL,R1 ;GET POINTER T$$BFL BYTES BELOW END OF POOL ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 ADD #120000-T$$BFL,R1 ;GET POINTER T$$BFL BYTES BELOW END OF ;DRIVER POOL .ENDC ;T$$SPL ; DD074 ; DD074 ; ;‚**-6 MOV #TTPOOL,R0 ;GET START OF POOL MOV R0,@#FREEB ;POINT TO FIRST FREE BUFFER BR CPOOL ;INITIALIZE POOL ; ; .END ‚&€dkQ ›c, .TITLE TTFP .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 09-FEB-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; D. R. DONCHIN ; ; MODIFICATIONS ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD059 29-FEB-80 DALE R. DONCHIN ; IMPROVE ACCURACY OF READ TIMEOUT CODE ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD083 15-OCT-80 DALE R. DONCHIN ; REMOVE SCS CONDITIONALS AND CODE ; DD094 01-MAR-81 DALE R. DONCHIN ; ADD ALTERNATE CLI SUPPORT ; DD117 14-JUL-81 DALE R. DONCHIN ; ENHANCE CLI CONTINUATION LINE PROCESSING ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; DD021 .PSECT MAP6 ; DD021 ; ;+ ; MODULE TTFP - CONTAINS FORK LEVEL PROCESSING ROUTINES FOR THE ; FOLLOWING FORK REQUESTS: ; FR.SUI START OF UNSOLICITED INPUT ; FR.AST CHARACTER THAT CAUSES AST RECEIVED ; ; ALL THESE ROUTINES ARE CALLED BY THE FORK DISPATCHER WITH: ; R4 POINTER TO UCBX (IF IT EXISTS) ; R5 POINTER TO U.TSTA ; S1.DSI 1 TO DISABLE INPUT PROCESSING ;- ; ; .SBTTL FPSUI - START OF UNSOLICITED INPUT. ; .ENABL LSB ; FPSUI:: CALL GCTAB ;GET CHARACTER THAT STARTS UNSOL. INPUT BCS 30$ ;NOT THERE ANY MORE - FORGET IT ; DD129 CMPB R2,#CH.SP ;IS IT A "FUNNY" CHARACTER (CONTROL ;**-1 ;CHARACTER OR SPACE)? BHI 10$ ;N - OK, JUMP CMPB R2,#CH.CR ;OF THE FUNNY CHARACTERS, WE ONLY ALLOW ;CARRIAGE RETURN AND CTRL-C TO START ;UNSOLICITED INPUT ;(CR WILL OF COURSE ALSO TERMINATE IT) BEQ 10$ ;CR - OK CMPB R2,#CH.CTC ;CTRL-C? BNE 50$ ;N - IGNORE ; DD129 10$: ;REFERENCE LABEL ; DD074 ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 CALL ALUCBX ;ALLOCATE UCBX ; DD074 BCS 50$ ;FAILED - JUMP ; DD129 ; DD074 .ENDC ;NDF T$$SPL ; DD074 ; DD074 CALL ALTB ;ALLOCATE AN INPUT BUFFER ;**-3 BCS 40$ ;FAILED - JUMP ; DD129 MOV R2,-(SP) ;OK - SAVE POINTER ;**-1 CLR -(SP) ;RESET CLI PROMPT STATUS FOR ^U/^R ; DD094 ASSUME U.TCI,0 MOV @R4,R3 ;GET CURRENT INPUT PACKET IF THERE IS ONE BEQ 20$ ;INPUT FREE - JUMP ; DD129 MOV #IS.CC,@R3 ;INPUT BUSY - SET STATUS = IS.CC ;**-1 ;(BY DEFINITION, IT MUST BE SOLICITED ;INPUT) MOVB @R3,1(SP) ;SHOW THAT A READ WAS INTERRUPTED BY A ^C ; DD094 MOV R4,-(SP) ;SAVE R4 CALL FPIRD ;SAY INPUT DONE MOV (SP)+,R4 ;RESTORE R4 20$: MOV (SP)+,U.TFPB(R4) ;SAVE ^U/^R STATUS IN NOW UNUSED OFFSET ; DD094 MOV (SP)+,U.TFIB(R4) ;SET UP POINTER TO FIRST INPUT BUFFER ; DD094 MOVB U.TCHP-U.TSTA(R5),U.TIHP(R4) ;SET UP INITIAL HOR. POS. ;**-1 ;**-1 .IF NE T$$UTO MOVB #T$$UTO,U.TITI(R4) ;INITIALIZE TIMER ; DD059 ;**-2 .ENDC ;T$$UTO ADD #U.TFIB,R4 ;POINT TO U.TFIB ; ; ;+ ; SUBROUTINE FPSUI1 - SET UP UCB FOR UNSOLICITED INPUT. ; ; INPUT: ; R4 POINTER TO U.TFIB ; R5 POINTER TO U.TSTA ; U.TFIB POINTER TO FIRST INPUT BUFFER ; ; OUTPUT: ; UCB SET UP. ; R2 POINTER TO SECOND WORD OF BUFFER. ; THIS WORD INITIALIZED TO 0. ; R4 POINTER TO U.TIC ; ; REGISTERS ALTERED: R2,R4 ;- ; ; FPSUI1::MOV @R4,R2 ;GET POINTER TO FIRST INPUT BUFFER ASSUME U.TTIC,U.TFIB-2 MOV #M$$CRB-4,-(R4) ;INITIALIZE TOTAL BYTE COUNT ; = 1 FULL CLI COMMAND BUFFER CALL NXTIB ;SET UP UCB FOR INPUT TRANSFER MOV R2,U.TCI-U.TIC(R4) ;STORE POINTER TO SECOND WORD IN BUFFER ;THIS WORD WILL RECEIVE COMPLETION STATUS CLR @R2 ;INITIALIZE STATUS BIS #S1.IBY!S1.IBF!S1.USI,@R5 ;SET FLAGS FOR UNSOLICITED ;BUFFERED INPUT BIC #S1.RST!S1.RAL!S1.RNE,@R5 ;CLEAR RST, RAL AND RNE FLAGS BIT #U2.NEC,U.CW2-U.TSTA(R5) ;LINE IN NO ECHO MODE? BEQ 30$ ;N - JUMP ; DD129 BIS #S1.RNE,@R5 ;Y - SET RNE FLAG ;**-1 30$: RETURN ; ; DD129 ; ;**-1 40$: ; DD129 ; ;**-1 ; FAILED TO ALLOCATE INPUT BUFFER. WITH A LITTLE EFFORT, WE COULD ; DEALLOCATE THE UCBX, AFTER CHECKING WHETHER IT IS NEEDED FOR ; SOME OTHER PURPOSE. ; CALLR BELL ;BUFFER ALLOCATION FAILURE - OUTPUT A BELL 50$: CALLR RCTAB ;REMOVE CHARACTER FROM TYPE-AHEAD BUFFER ; DD129 ;AND FORGET IT ALL ;**-1 .PAGE .SBTTL FPAST - CHARACTER THAT CAUSES AST RECEIVED ; .IF DF T$$CCA&A$$TRP FPAST:: CALL GCTAB ;GET A CHARACTER FROM THE TYPE-AHEAD BUFFER BCS 30$ ;NONE THERE - IGNORE ; DD129 TST R4 ;UCBX PRESENT? ;**-1 BEQ 30$ ;N - TERMINAL MUST BE DETACHED, IGNORE ; DD129 MOV U.TAST(R4),R1 ;GET AST BLOCK ;**-1 BEQ 30$ ;NONE - TERMINAL MUST BE DETACHED, IGNORE ; DD129 MOVB R2,A.PRM(R1) ;INSERT CHARACTER IN AST BLOCK ;**-1 MOVB #3,A.PRM+4(R1) ;SHOW AST BLOCK IN QUEUE, ASSUME ;TASK WANTS NOTIFICATION ONLY SO LOCK ;AST BLOCK CMPB R2,#CH.CTC ;IS CHARACTER A ^C? BNE 60$ ;N - JUMP ; DD129 MOV A.PRM+6(R1),R0 ;ASSUME SPECIFICATION OF ^C AST ;**-1 BNE 70$ ;GOOD ASSUMPTION - JUMP ; DD129 60$: MOV A.PRM+10(R1),R0 ;GET ADDRESS OF UNSOLICITED AST ROUTINE ; DD129 BITB #TF.NOT,A.PRM+5(R1) ;TASK WANTS NOTIFICATION ONLY? ;**-2 BNE 80$ ;Y - JUMP ; DD129 70$: CALL RCTAB ;REMOVE CHARACTER FROM TYPE-AHEAD BUFFER ; DD129 ASRB A.PRM+4(R1) ;UNLOCK AST BLOCK ;**-3 80$: MOV R0,A.AST(R1) ;INSERT TASK AST ADDRESS INTO AST BLOCK ; DD129 MOV U.ATT-U.TSTA(R5),R0 ;GET ATTACHING TASK'S TCB ;**-1 CALLR $QASTT ;QUEUE AST TO TASK AND RETURN .ENDC ;T$$CCA&A$$TRP .DSABL LSB ;**-34 .PAGE ; DD117 .SBTTL FPKIL - SEND KILL PACKET TO CLI ; DD117 ; ; DD117 ; DD117 .IF DF T$$SPC ; DD117 ; DD117 .MCALL PKTDF$ ; DD117 PKTDF$ ;DEFINE CC.KIL ; DD117 ; DD117 .PSECT MAP6 ; DD117 ; DD117 FPKIL:: BIC #UM.KIL,U.MUP-U.TSTA(R5) ;CLEAR KILL BIT ; DD117 CLR U.TFPB(R4) ;RESET CLI PROMPT STATUS ; DD¦117 MOV #CC.KIL,R1 ;SET CLI KILL STATUS ; DD117 MOV R5,R2 ;GET UCB ADDRESS ; DD117 SUB #U.TSTA,R2 ; ; DD117 CALL $QCNTP ;QUEUE KILL PACKET TO CLI ; DD117 MOVB #CH.CTC,U.TECO-U.TSTA(R5) ;PUT ^C IN ECHO BUFFER ; DD117 BISB #FR.PFP,U.TFRQ-U.TSTA(R5) ;REQUEST POST-FORK PROCESSING ; DD117 RETURN ; DD117 ; DD117 .ENDC ;T$$SPC ; DD117 ; DD117 ; ; .END ¦)€kQ ›c, .TITLE TTICH .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 23-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD052 18-JAN-80 DALE R. DONCHIN ; FIX SIGN EXTEND ERROR IN GETRIC ; DD057 16-FEB-80 DALE R. DONCHIN ; DON'T MISTAKE EIGHT-BIT CHARACTERS FOR ESCAPE CHARACTERS ; DD059 29-FEB-80 DALE R. DONCHIN ; IMPROVE ACCURACY OF READ TIMEOUT CODE ; DD065 14-MAY-80 DALE R. DONCHIN ; FIX CONTROL-C INPUT TO A NOTIFICATION AST ; DD068 10-JUN-80 DALE R. DONCHIN ; DON'T EXPAND THE ECHO OF A READ-PASS-ALL FUNCTION ; DD070 09-JUL-80 DALE R. DONCHIN ; IGNORE HARD RECEIVE ERRORS DURING AST PROCESSING ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD083 15-OCT-80 DALE R. DONCHIN ; REMOVE SCS CONDITIONALS AND CODE ; DD087 02-DEC-80 DALE R. DONCHIN ; CORRECT CONTROL-O BEHAVIOR FOR TF.CCO OUTPUT ; DD088 02-DEC-80 DALE R. DONCHIN ; MAKE CONTROL-U WORK FOR LINES IN NOECHO MODE ; DD089 03-DEC-80 DALE R. DONCHIN ; DON'T ECHO CLI PROMPT FOR ^U/^R IF TERMINAL IS ATTACHED ; DD090 08-DEC-80 DALE R. DONCHIN ; ADD PER UNIT ANSWER SPEED AND AUTOBAUD DETECT ; DD091 08-DEC-80 DALE R. DONCHIN ; INCREASE PERFORMANCE WHEN LOOKING FOR CONTROL CHARACTER INPUT ; DD094 01-MAR-81 DALE R. DONCHIN ; ADD ALTERNATE CLI SUPPORT ; DD098 06-APR-81 DALE R. DONCHIN ; ADD ACD SUPPORT ; DD104 14-MAY-81 DALE R. DONCHIN ; IMPROVE FULL DUPLEX MODE AND SLAVED LINE HANDLING ; DD112 09-JUN-81 DALE R. DONCHIN ; ADD CTOCS SUPPORT ; DD116 30-JUN-81 DALE R. DONCHIN ; ADD SERIAL COMMAND PROCESSING CAPABILITY TO RSX-11M-PLUS ; DD117 14-JUL-81 DALE R. DONCHIN ; ENHANCE CLI CONTINUATION PROCESSING ; DD122 03-AUG-81 DALE R. DONCHIN ; USE SYMBOLIC NAMES FOR CONTROLLER DEPENDENT ROUTINE INDICES ; DD128 05-NOV-81 DALE R. DONCHIN ; IMPROVE AUTOBAUD DETECT ALGORITHM ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; DD131 09-NOV-81 DALE R. DONCHIN ; DON'T ALLOW ^O INPUT TO TERMINATE A READ W/SPECIAL TERMINATORS ; DD132 09-NOV-81 DALE R. DONCHIN ; DON'T START UNSOLICITED INPUT DURING READ W/PROMPT OUTPUT ; ; .IF DF R$$MPL .MCALL KRBDF$ KRBDF$ ;DEFINE KRB SYMBOLS .IFF ;R$$MPL .MCALL SCBDF$ SCBDF$ ,,SYSDEF ;DEFINE SCB SYMBOLS .ENDC ;R$$MPL .IF DF R$$MPL!A$$CLI ; DD094 ; DD094 .MCALL PKTDF$ ; DD094 ; DD094 PKTDF$ ;DEFINE CPB SYMBOLS ; DD094 ; DD094 .ENDC ;R$$MPL!A$$CLI ; DD094 ; DD094 .PSECT MAP5 ; DD021 ; ; .SBTTL ICHAR1 - PROCESS INPUT CHARACTER BEFORE TYPE-AHEAD BUFFER ;+ ; ICHAR1 - PROCESS INPUT CHARACTER. ; THIS ROUTINE PROCESSES A CHARACTER ON THE "OUTSIDE" ; (HARDWARE SIDE) OF THE TYPE-AHEAD BUFFER. ; ; INPUT: ; R2 CHARACTER (LOW BYTE) AND STATUS (HIGH BYTE) ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; ANY OF THE FOLLOWING ACTIONS IS TAKEN, DEPENDENT ; ON LINE STATUS AND THE CHARACTER ITSELF: ; ; 1. CHARACTER STORED IN TYPE-AHEAD BUFFER. ; ; 2. CHARACTER PROCESSED BY ICHAR2 (SEE DESCRIPTION OF ICHAR2). ; ; 3. OUTPUT OF BELL STARTED (OR MARKED FOR LATER OUTPUT) ; IF UNABLE TO STORE IN TYPE-AHEAD BUFFER. ; ; 4. TYPE-AHEAD BUFFER FLUSHED (CTRL-X OR CTRL-C AND NOT PASS-ALL ; OR SPECIAL-TERMINATORS). CTRL-C IS ALSO PROCESSED BY ICHAR2. ; ; 5. OUTPUT STOPPED (CTRL-S AND NOT PASS-ALL OR SPECIAL-TERMINATORS). ; ; 6. OUTPUT RESUMED (CTRL-Q AND NOT PASS-ALL OR SPECIAL-TERMINATORS). ; ; 7. OUTPUT ABORTED (CTRL-O AND NOT PASS-ALL OR SPECIAL-TERMINATORS). ; ; 8. CHARACTER IGNORED (UNIT OFFLINE OR DISABLED). ; ; REGISTERS ALTERED: R2,R3,R4 ;- ; ; .ENABL LSB ; 10$: RETURN ;;;RETURN INSTRUCTION PUT HERE TO KEEP ONE HANDY; DD074 ICHAR1:: .IF DF T$$MOD BITB #US.DSB!US.CRW,U.STS-U.TSTA(R5) ;;;UNIT DISABLED OR WAITING FOR CARRIER? BNE 10$ ;;;Y - IGNORE ; DD074 ;**-1 .ENDC ;T$$MOD .IF DF R$$CON BITB #US.OFL,U.ST2-U.TSTA(R5) ;;;UNIT OFFLINE? BNE 10$ ;;;Y - IGNORE ; DD074 ;**-1 .ENDC .IF DF T$$SPL ; DD074 ; DD074 MOV U.TAPR-U.TSTA(R5),@#KDSAR5 ;;;MAP UCBX AND TABUF ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 .IF DF D$$M11!D$$ZMD ; DD090 ; DD090 BIT #S3.ABP,4(R5) ;;;AUTO-BAUD DETECT IN PROGRESS? ; DD090 BEQ 20$ ;;;N - JUMP ; DD090 TST -(SP) ;;;MAKE ROOM ON STACK FOR OUTPUT CHARACTER ; DD128 MOV R1,-(SP) ;;;SAVE REGISTERS USED BY AUTOBAUD ROUTINE ; DD128 MOV R0,-(SP) ;;; ; DD128 CALL FNDSPD ;;;DETERMINE THE CALLER'S BAUD RATE ; DD128 MOV R2,4(SP) ;;;SAVE POSSIBLY MODIFIED INPUT CHARACTER ; DD128 MOV #CT.PRM,R2 ;;;SET INDEX FOR LINE PARAMETER ROUTINE ; DD128 CALL CTRD ;;;CALL CONTROLLER-DEPENDENT ROUTINE TO ; DD128 ;;;SET LINE SPEED ; DD128 MOV (SP)+,R0 ;;;RESTORE SAVED REGISTERS ; DD128 MOV (SP)+,R1 ;;; ; DD090 MOV (SP)+,R2 ;;;RETRIEVE INPUT CHARACTER (OR FAKED ONE) ; DD090 BEQ 10$ ;;;IF FAKED ONE THEN JUST RETURN ; DD090 20$: ;;;REFERENCE LABEL ; DD090 ; DD090 .ENDC ;D$$M11!D$$ZMD ; DD090 ; DD090 .IF DF T$$ACD ; DD098 ; DD098 MOV #UA.ACC!UA.PRO!UA.ECH,U.AFLG-U.TSTA(R5) ;;;SET DEFAULT PROC. ; DD098 TST U.ACB-U.TSTA(R5) ;;;DOES THIS TERMINAL HAVE AN ACD? ; DD098 BEQ 30$ ;;;N - JUMP ; DD098 MOV R0,-(SP) ;;;Y - SAVE R0 ; DD098 MOV #A.RECE,R0 ;;;SET CHARACTER RECEPTION ENTRY POINT ; DD098 CALL $SWACD ;;;CALL ACD ; DD098 MOV (SP)+,R0 ;;;RESTORE R0 ; DD098 BIT #UA.ACC,U.AFLG-U.TSTA(R5) ;;;ACCEPT THIS CHARACTER? ; DD098 BEQ 10$ ;;;N - JUMP ; DD098 BIT #UA.TYP,U.AFLG-U.TSTA(R5) ;;;FORCE THIS CHARACTER INTO TABUF? ; DD098 BNE 90$ ;;;Y - JUMP ; DD098 BIT #UA.PRO,U.AFLG-U.TSTA(R5) ;;;PROCESS THIS CHARACTER? ; DD098 BEQ I1DEF ;;;N - JUMP ; DD098 30$: ;;;REFERENCE LABEL ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 .IF DF T$$RED ;**-1 BIC #^C,R2 ;;;CLEAR IRRELEVANT BITS IN HIGH BYTE BIT #S3.BCC!S3.DAO!S3.VER,R2 ;;;HARD RECEIVE ERROR? BNE I1DEF ;;;Y - JUMP .IFF BIT #S3.BCC!S3.DAO!S3.VER,R2 ;;;HARD RECEIVE ERROR? BNE 140$ ;;;Y - JUMP ; DD129 ;**-1 .ENDC ;T$$RED BIT #S3.RAL,4(R5) ;;;READ-PASS-ALL? BNE I1DEF ;;;Y - JUMP BIT #S1.RAL,@R5 ;;;SECOND CHECK BNE I1DEF ;;;Y - JUMP ASSUME S3.8BC,200 TSTB 4(R5) ;;;PASS 8 BITS? BMI 40$ ;;;Y - JUMP ; DD129 BIC #200,R2 ;;;N - CLEAR HIGH BIT ;**-1 40$: CMPB R2,#CH.CTX ;;;CONTROL CHARACTER POSSIBLY WITHIN TABLE? ; DD091 BHI I1DEF ;;;N - JUMP ; DD091 MOV #I1CRT,R3 ;;;GET CHAR. RECOGNITION TABLE ; DD091 CMPB R2,(R3)+ ;;;CTRL-S? ;**-1 BEQ I1CTS ;;;Y - JUMP CMPB R2,(R3)+ ;;;CTRL-Q? BEQ I1CTQ ;;;Y - JUMP CMPB R2,(R3)+ ;;;CTRL-O? ; DD131 BEQ I1CTO ;;;Y - JUMP ; DD131 BIT #S1.RST,@R5 ;;;DOING IO.RST? BNE I1DEF ;;;Y - CTRL-C AND CTRL-X ARE TERMINATORS ; DD131 CMPB R2,(R3)+ ;;;CTRL-X? ;**-1 ; DD112 .IF DF T$$CTX ; DD112 ; DD112 BEQ I1CTX ;;;Y - JUMP ; DD091 ; DD112 .IFF ; DD112 ; DD112 BEQ I1DEF ;;;Y - JUMP ; DD112 ; DD112 .ENDC ; DD112 ; DD112 CMPB R2,(R3)+ ;;;CTRL-C? ;**-4 BNE I1DEF ;;;N - JUMP ; ; CTRL-C - FLUSH TYPE-AHEAD BUFFER, THEN PROCESS ; I1CTC:: CALL I1CTX ;;;FLUSH TABUF CALL I1CTQ ;;;RESUME OUTPUT IF IT WAS STOPPED MOVB #CH.CTC,R2 ;;;RESTORE CHARACTER BR 80$ ;;;GO PROCESS CTRL-C ; DD129 ; ;**-1 ; CTRL-X - FLUSH TYPE-AHEAD BUFFER. ; I1CTXL::CALL LOCKI ;LOCK OUT INTERRUPTS I1CTX:: .IF DF T$$RED BIC #S3.BCC!S3.DAO!S3.VER,4(R5) ;;;CLEAR HARD RECEIVE ERROR FLAGS .ENDC ;T$$RED .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;;;SET VIRTUAL ADDRESS OF UCBX AND TABUF ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;;;GET UCBX BEQ 50$ ;;;NONE - JUMP ; DD129 ; DD074 .IFTF ;T$$SPL ; DD074 ; DD074 MOV U.TAST(R4),R3 ;;;GET AST BLOCK IF THERE IS ONE ;**-1 BEQ 50$ ;;;NONE - JUMP ; DD129 BIC #2,A.PRM+4(R3) ;;;UNLOCK AST BLOCK IN CASE IT WAS LOCKED ;**-1 50$: ;;;REFERENCE LABEL ; DD129 ; DD074 .IFT ;T$$SPL ; DD074 ; DD074 MOV #120000+U.TTBF,R3 ;;;GET TABUF ; DD074 MOVB (R3)+,(R3)+ ;;;MAKE STORE AND RETRIEVE POINTERS SAME ; DD074 BR 110$ ;;;CLEAR NUMBER OF ACTIVE BYTES AND RETURN ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TTAB-U.TSTA(R5),R3 ;;;GET TABUF ;**-1 BEQ 70$ ;;;NONE - JUMP ; DD129 BIT #1,R3 ;;;SINGLE-CHAR. TABUF? ;**-1 BNE 60$ ;;;Y - JUMP ; DD129 MOVB (R3)+,(R3)+ ;;;MAKE STORE AND RETRIEVE POINTERS SAME ;**-1 BR 110$ ;;;CLEAR NUMBER OF ACTIVE BYTES AND RETURN ; DD129 60$: CLR U.TTAB-U.TSTA(R5) ;;;FLUSH SINGLE-CHARACTER TABUF ; DD129 70$: RETURN ; DD129 ; DD074 .IFTF ;T$$SPL ; DD074 ; DD074 ; ;**-3 ; "NORMAL" CHARACTER. FIRST CHECK IF THERE IS ALREADY SOMETHING ; BUFFERED. IF SO, BUFFER THIS CHARACTER ALSO. ; I1DEF:: ; DD074 ; DD074 .IFT ;T$$SPL ; DD074 ; DD074 MOV #120000+U.TTBF,R3 ;;;GET TABUF ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TTAB-U.TSTA(R5),R3 ;;;GET TABUF ; DD074 BEQ 80$ ;;;NONE - JUMP ; DD129 BIT #1,R3 ;;;SINGLE-CHAR. TABUF? ;**-2 BNE 140$ ;;;Y - TABUF FULL, JUMP ; DD129 ; DD074 .IFTF ;T$$SPL ; DD074 ; DD074 TSTB 2(R3) ;;;ANYTHING BUFFERED? ;**-1 BNE 100$ ;;;Y - JUMP ; DD129 ; ;**-1 ; TRY TO PROCESS CHARACTER IMMEDIATELY ; 80$: CALL IPROC ;;;CAN WE PROCESS CHARACTER NOW? ; DD129 BCC ICHAR2 ;;;Y - GO AND DO IT ;**-2 ; ; CHARACTER CANNOT BE PROCESSED NOW. STORE IT IN TYPE-AHEAD BUFFER. ; 90$: ;;;REFERENCE LABEL ; DD098 .IF DF T$$RED 100$: BIT #S3.BCC!S3.DAO!S3.VER,4(R5) ; DD129 ;;;ANY HARD RECEIVE ERROR ALREADY DETECTED? ;**-1 BNE 140$ ;;;Y - REJECT THIS CHARACTER ; DD129 MOV R2,-(SP) ;;;COPY CHARACTER PLUS ERROR FLAGS ;**-1 CLRB @SP ;;;CLEAR LOW BYTE - LEAVE FLAGS IN HIGH BYTE BIS (SP)+,4(R5) ;;;SAVE ERROR FLAGS (IF ANY) IN ;;;HIGH BYTE OF STATUS WORD 3 .IFTF ;T$$RED .IF DF T$$SPL ; DD074 ; DD074 MOV #120000+U.TTBF,R3 ;;;GET TABUF ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TTAB-U.TSTA(R5),R3 ;;;GET TABUF BEQ 130$ ;;;NONE - JUMP ; DD129 BIT #1,R3 ;;;SINGLE-CHAR. BUFFER? ;**-1 BNE 140$ ;;;Y - TABUF FULL, JUMP ; DD129 ; DD074 .ENDC ;T$$SPL ; DD074 ;**-1 .IFF ;T$$RED 100$: ;;;REFERENCE LABEL ; DD129 ;**-1 .ENDC ;T$$RED .IFT ;T$$SPL ; DD074 ; DD074 CLR R4 ;;;PREPARE FOR BYTE TRANSFER ; DD074 BISB (R3)+,R4 ;;;GET OFFSET WHERE TO STORE ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOVB (R3)+,R4 ;;;GET OFFSET WHERE TO STORE ; DD074 .IFTF ;T$$SPL ; DD074 ; DD074 INC R3 ;;;SKIP OVER 1 BYTE CMPB (R3)+,(R3)+ ;;;TABUF FULL? BEQ 140$ ;;;Y - COMPLAIN ; DD129 ADD R3,R4 ;;;MAKE POINTER IN TABUF ;**-1 MOVB R2,@R4 ;;;STORE CHARACTER INC -(R3) ;;;INCR. ACTIVE COUNT INC -(R3) ;;;UPDATE STORE POINTER CMPB @R3,3(R3) ;;;WRAP-AROUND? BNE 120$ ;;;N - JUMP ; DD129 110$: CLRB @R3 ;;;Y - SET POINTER AT START OF BUFFER ; DD129 120$: RETURN ;;;RETURN ; DD129 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 130$: MOVB R2,U.TTAB+1-U.TSTA(R5) ;;;STORE CHAR. IN SINGLE-CHAR. TABUF ; DD129 INCB U.TTAB-U.TSTA(R5) ;;;MARK BUSY ;**-4 RETURN ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 140$: CALLR BELL ;;;TYPE-AHEAD BUFFER FULL - ECHO BELL ; DD129 ; ;**-2 ; CTRL-Q - RESUME OUTPUT ; I1CTQL::CALL LOCKI ;LOCK OUT INTERRUPTS I1CTQ:: BIC #S1.CTS,@R5 ;;;CLEAR CTRL-S FLAG BITB #US.OIU,U.STS-U.TSTA(R5) ;;;ARE WE EXPECTING AN OUTPUT ;;;INTERRUPT? BNE 120$ ;;;N - JUMP ; DD074 MOV #CT.RES,R2 ;;;SET INDEX FOR "RESUME OUTPUT" ; DD122 BR CTRD ;;;CALL CONTROLLER DEPENDENT ROUTINE ;**-2 ; ; CTRL-S - STOP OUTPUT. ; I1CTSL::CALL LOCKI ;LOCK OUT INTERRUPTS I1CTS:: BIS #S1.CTS,@R5 ;;;SET CTRL-S FLAG MOV #CT.STP,R2 ;;;SET INDEX FOR "STOP OUTPUT" ; DD122 BR CTRD ;;;CALL CONTROLLER DEPENDENT ROUTINE ;**-1 ; ; CTRL-O - ABORT OUTPUT. IF TASK OUTPUT IN PROGRESS, ABORT OUTPUT. ; IF TERMINAL ATTACHED, COMPLEMENT CTRL-O FLAG. ; I1CTO:: ; DD074 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;;;GET UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;;;GET UCBX ; DD074 BEQ 150$ ;;;NONE - IGNORE ; DD129 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 TST U.ATT-U.TSTA(R5) ;;;TERMINAL ATTACHED? ;**-2 BEQ 170$ ;;;N - JUMP ; DD129 BIT #S1.CTO,@R5 ;;;CTRL-O FLAG SET? ;**-1 BEQ 160$ ;;;N - JUMP ; DD129 BIC #S1.CTO,@R5 ;;;CLEAR CTRL-O FLAG ;**-1 RET1: ; DD129 150$: RETURN ; DD129 160$: BIS #S1.CTO,@R5 ;;;SET CTRL-O FLAG ; DD129 170$: MOV U.TCO(R4),R3 ;;;GET CURRENT OUTPUT PACKET ; DD129 BEQ 150$ ;;;NOT DOING TASK OUTPUT - JUMP ; DD129 BITB #US.OIU,U.STS-U.TSTA(R5) ;;;OUTPUT INTERRUPT EXPECTED? ;**-5 BNE 150$ ;;;N - IGNORE ; DD129 ;**-1 .IF DF T$$RPR CMPB I.FCN+1(R3),#IO.RPR/400 ;;;IS IT AN IO.RPR? BEQ 180$ ;;;Y - TF.CCO FLAG IS NOT VALID ; DD129 ;**-1 .ENDC ;T$$RPR BITB #TF.WBT,I.FCN(R3) ;;;WRITE-BREAKTHROUGH IN PROGRESS? ; DD087 BNE 150$ ;;;Y - IGNORE ; DD129 180$: INC @R3 ;;;SET STATUS = IS.SUC ; DD129 CALL ABOX ;;;ABORT OUTPUT ;**-3 CALLR ODONE ;;;SIMULATE FINAL INTERRUPT ; ABOXL:: CALL LOCKI ;LOCK OUT INTERRUPTS ABOX:: MOV #CT.ABO,R2 ;;;SET INDEX FOR "ABORT OUTPUT" ; DD122 ;;;FALL THRU TO "CTRD" ;**-1 ; .DSABL LSB .PAGE .SBTTL CTRD - CALL CONTROLLER DEPENDENT ROUTINE ;+ ; CTRD - CALL CONTROLLER DEPENDENT ROUTINE. ; ; INPUT: ; R2 ROUTINE INDEX: ; 0 - START OUTPUT ; 2 - ABORT OUTPUT ; 4 - RESUME OUTPUT ; 6 - STOP OUTPUT ; 10 - POWER-UP (RSX-11M) ; DD129 ; 12 - MODEM TIMER (RSX-11M) ; DD129 ; 14 - GET/SET LINE PARAMETERS (RSX-11M) ; DD129 ; 10 - MODEM TIMER (RSX-11M-PLUS) ; DD129 ; 12 - CONTROLLER POWER-UP (RSX-11M-PLUS) ; DD129 ; 14 - UNIT POWER-UP (RSX-11M-PLUS) ; DD129 ; 16 - CONTROLLER ONLINE (RSX-11M-PLUS) ; DD129 ; 20 - CONTROLLER OFFLINE (RSX-11M-PLUS) ; DD129 ; 22 - UNIT ONLINE (RSX-11M-PLUS) ; DD129 ; 24 - UNIT OFFLINE (RSX-11M-PLUS) ; DD129 ; 26 - GET/SET LINE PARAMETERS (RSX-11M-PLUS) ; DD129 ; R5 POINTER TO U.TSTA ;**-3 ; ; CALLS CONTROLLER DEPENDENT ROUTINE WITH: ; R2 PHYSICAL UNIT NUMBER * 2 ; (ONLY IF MULTIPLEXERS IN SYSTEM) ; R3 CSR ADDRESS ; R4 UCBX ADDRESS ; R5 POINTER TO U.TSTA ; ; REGISTERS ALTERED: R2,R3,R4 ;- ; ; .IF DF R$$MPL CTRD:: MOV U.SCB-U.TSTA(R5),R3 ;;;GET SCB MOV S.KRB(R3),R3 ;;;GET KRB MOVB K.PRM(R3),R4 ;;;GET CONTROLLER TYPE ADD CTBL(R4),R2 ;;;POINT TO DISPATCH TABLE FOR ;;;THIS CONTROLLER TYPE MOV @R3,R3 ;;;GET CSR .IFF ;R$$MPL CTRD:: MOV U.CTYP-U.TSTA(R5),R4 ;;;GET CONTROLLER TYPE ADD CTBL(R4),R2 ;;;POINT TO DISPATCH TABLE FOR ;;;THIS CONTROLLER TYPE MOV U.SCB-U.TSTA(R5),R3 ;;;GET SCB MOV S.CSR(R3),R3 ;;;GET CSR .ENDC ;R$$MPL .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;;;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;;;GET UCBX (IF THERE IS ONE) .ENDC ;T$$SPL ; DD074 ; DD074 .IF DF T$$MUX MOV @R2,-(SP) ;;;PUSH ROUTINE ADDRESS MOVB U.UNIT-U.TSTA(R5),R2 ;;;GET PHYS. UNIT NUMBER ASL R2 ;;;MULTIPLY BY 2 CALLR @(SP)+ ;;;CALL ROUTINE AND RETURN .IFF CALLR @(R2)+ ;;;CALL ROUTINE AND RETURN .ENDC .PAGE .SBTTL ICHAR2 - PROCESS CHARACTER AFTER TYPE-AHEAD BUFFER ;+ ; ICHAR2 - PROCESS INPUT CHARACTER. ; THIS ROUTINE PROCESSES A CHARACTER ON THE "INSIDE" ; (SOFTWARE SIDE) OF THE TYPE-AHEAD BUFFER. ; ; INPUT: ; R2 CHARACTER ; R5 POINTER TO U.TSTA ; IF ECHO REQUIRED, OUTPUT MUST BE FREE. ; ; OUTPUT: ; CHARACTER ANALYSED, STORED IN INPUT BUFFER IF NECESSARY, ; ECHO STARTED IF NECESSARY. ; UCB UPDATED AS REQUIRED. ; ; REGISTERS ALTERED: R2,R3,R4 ;- ; ; .ENABL LSB ICHAR2:: ; DD074 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;;;GET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;;;GET UCBX ; DD074 BEQ RET1 ;;;NONE - RETURN (COULD HAPPEN FOR EXAMPLE ; DD129 ;;;WHEN CTRL-C IS TYPED ON AN IDLE SLAVED ;**-2 ;;;TERMINAL) ; DD074 .ENDC ;T$$SPL ; DD074 .IF DF T$$RED BIT #S3.BCC!S3.DAO!S3.VER,R2 ;;;ANY HARD RECEIVE ERRORS? BEQ 20$ ;;;N - JUMP ; DD129 MOV #IE.DAO&377,R3 ;;;YES ;**-1 ASSUME S3.DAO,40000 ROL R2 ;;;DATA OVERRUN? BMI 10$ ;;;Y - JUMP ; DD129 MOV #IE.BCC&377,R3 ;;;NO ;**-1 ASSUME S3.BCC,S3.DAO/2 ROL R2 ;;;FRAMING ERROR? BMI 10$ ;;;Y - JUMP ; DD129 MOV #IE.VER&377,R3 ;;;N - MUST BE PARITY ERROR ;**-1 10$: MOV R3,@(R4)+ ;;;STORE ERROR CODE ; DD129 JMP IDONE ;;;FINISH INPUT REQUEST ;**-1 20$: ;;;REFERENCE LABEL ; DD129 ;**-1 .ENDC ;T$$RED .IF DF T$$SPL ; DD074 ; DD074 MOVB R2,U.TECO-U.TSTA(R5) ;;;SAVE CHAR. ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOVB R2,U.TECB(R4) ;;;SAVE CHAR. .ENDC ;T$$SPL ; DD074 ; DD074 .IF NE T$$UTO MOVB #T$$UTO,U.TITI(R4) ;;;INITIALIZE TIMER ; DD059 ;**-2 .ENDC ;T$$UTO BIT #S1.USI,@R5 ;;;UNSOLICITED INPUT? BNE 30$ ;;;Y - JUMP ; DD129 ASSUME U.TCI,0 ;**-1 MOV @R4,R3 ;;;GET PACKET MOVB I.PRM+6(R3),U.TITI(R4) ;;;GET USER-DEFINED TIMER 30$: MOV @R5,R3 ;;;GET STATUS ; DD129 ; ;**-1 ; DETERMINE ACTION DEPENDENT ON FLAGS ; ; DD098 .IF DF T$$ACD ; DD098 ; DD098 MOV #UA.PRO!UA.ECH!UA.PUT,U.AFLG-U.TSTA(R5) ;;;SET DEFAULT PROC. ; DD098 TST U.ACB-U.TSTA(R5) ;;;DOES THIS TERMINAL HAVE AN ACD? ; DD098 BEQ 40$ ;;;N - JUMP ; DD098 MOV R0,-(SP) ;;;Y - SAVE R0 ; DD098 MOV #A.PROC,R0 ;;;SET CHARACTER PROCESSING ENTRY POINT ; DD098 CALL $SWACD ;;;CALL ACD ; DD098 MOV (SP)+,R0 ;;;RESTORE R0 ; DD098 BIT #UA.PRO,U.AFLG-U.TSTA(R5) ;;;PROCESS THIS CHARACTER AS IS? ; DD098 BEQ I2RAL ;;;N - JUMP (TREAT AS READ-PASS-ALL) ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 ASSUME S1.RST,1 40$: ROR R3 ;;;DOING READ-WITH-SPECIAL-TERMINATORS? ; DD129 BCS 50$ ;;;Y - JUMP ; DD098 ASSUME S1.RUB,S1.RST*2 ;**-2 ROR R3 ;;;IN RUBOUT SEQUENCE? BCS 60$ ;;;Y - JUMP ; DD129 ASSUME S1.ESC,S1.RUB*2 ;**-1 ROR R3 ;;;IN ESCAPE SEQUENCE? .IF DF T$$ESC BCS 80$ ;;;Y - JUMP ; DD129 ;**-1 .ENDC ;T$$ESC ASSUME S1.RAL,S1.ESC*2 ROR R3 ;;;DOING READ-PASS-ALL? BCS I2RAL ;;;Y - JUMP ; ; DETERMINE ACTION DEPENDENT ON CHARACTER ; ICH2A:: CMPB R2,#CH.RUB ;;;RUBOUT? BEQ 70$ ;;;Y - JUMP ; DD129 CMPB R2,#CH.ESC ;;;ESCAPE? ;**-1 BHI I2DEF ;;;N - HIGHER, CAN'T BE IN RECOGNITION ;;;TABLE - JUMP TO DEFAULT ROUTINE BEQ 90$ ;;;ESCAPE - JUMP ; DD129 MOV #I2CRT,R3 ;;;GET START OF CHAR. RECOGNITION TABLE ;**-1 JMP CHRDSP ;;;DISPATCH ACCORDING TO CHARACTER ; 50$: JMP I2RST ;;;DO READ WITH SPECIAL TERMINATORS ; DD098 60$: JMP I2RUB1 ;;;CONTINUE RUBOUT SEQUENCE ; DD129 70$: JMP I2RUB ;;;START RUBOUT SEQUENCE ; DD129 ;**-2 .IF DF T$$ESC 80$: JMP I2ESC2 ;;;CONTINUE ESCAPE SEQUENCE ; DD129 ;**-1 .ENDC ;T$$ESC 90$: JMP I2ESC ;;;PROCESS AN ESCAPE CHARACTER ; DD129 ;**-1 .DSABL LSB .PAGE .SBTTL NORMAL CHARACTER ;+ ; "NORMAL" CHARACTER (OR POSSIBLY ALTERNATE ESCAPE) ;- ; ;**-1 .IF DF T$$ESC I2DEF:: CMPB R2,#37 ;;;ALTERNATE ESCAPE? ; DD098 BNE I2DEF1 ;;;N - JUMP ;**-1 BIT #U2.ESC,U.CW2-U.TSTA(R5) ;;;DOES TERMINAL GENERATE ESC.SEQ.? BEQ I2DEF1 ;;;N - JUMP ; DD098 ; DD098 .IFTF ; DD098 ; DD098 J2ESC1: JMP I2ESC1 ;;;PROCESS ESCAPE CHARACTER ; DD098 ; DD098 .IFF ; DD098 ; DD098 I2DEF:: ; DD098 ;**-3 .ENDC I2DEF1: BIT #U2.LWC,U.CW2-U.TSTA(R5) ;;;CASE CONVERSION ENABLED? BNE I2RAL ;;;N - JUMP CMPB R2,#175 ;;;Y - 175 AND 176 ARE ALSO ESCAPE CHAR.S BEQ J2ESC1 ;;;175 - JUMP ; DD057 CMPB R2,#176 ;;;176? ; DD057 BEQ J2ESC1 ;;;Y - JUMP ; DD057 ;;;(177 = RUBOUT HAS ALREADY BEEN CHECKED FOR) ;**-1 ; ; CONVERT LOWER TO UPPER CASE IF REQUIRED ; CMPB R2,#173 ;;;UPPER END GRAPHICS? ; DD129 BHIS I2RAL ;;;Y - DON'T CONVERT ;**-1 CMPB R2,#141 ;;;LOWER CASE LETTER? BLO I2RAL ;;;N - DON'T CONVERT BICB #40,R2 ;;;Y - CONVERT LOWER TO UPPER CASE ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOVB R2,U.TECO-U.TSTA(R5) ;;;UPDATE SAVED CHAR. TOO ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOVB R2,U.TECB(R4) ;;;UPDATE SAVED CHAR. TOO ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 ; ; FALL THRU TO "I2RAL" TO PROCESS CHARACTER WITHOUT SPECIAL SIGNIFICANCE ; .PAGE .SBTTL CHARACTER WITHOUT SPECIAL SIGNIFICANCE ; ; CHARACTER DOES NOT HAVE SPECIAL SIGNIFICANCE. ; (COME DIRECTLY HERE IF DOING READ-PASS-ALL). ; .ENABL LSB ; ; DD098 .IF DF T$$ACD ; DD098 ; DD098 I2RAL: BIT #UA.PUT,U.AFLG-U.TSTA(R5) ;;;PUT CHARACTER IN BUFFER? ; DD098 BEQ 10$ ;;;N - JUMP ; DD098 CALL PUTNIC ;;;PUT CHARACTER IN INPUT BUFFER ; DD098 10$: BIT #UA.SPE,U.AFLG-U.TSTA(R5) ;;;SPECIAL ECHO REQUESTED? ; DD098 BEQ 20$ ;;;N - JUMP ; DD098 I2SPE: MOV U.ACB-U.TSTA(R5),R2 ;;;GET ACB ; DD098 ADD #A.IMAP,R2 ;;;POINT TO INTERRUPT BUFFER PARAMETERS OFFSETS ; DD098 MOV (R2)+,U.TOP(R4) ;;;SET ECHO BUFFER APR BIAS (A.IMAP) ; DD098 MOV (R2)+,R3 ;;;SET ECHO BUFFER ADDRESS (A.IBUF) ; DD098 MOV (R2),R2 ;;;SET ECHO BUFFER LENGTH (A.ILEN) ; DD098 CALLR MECHO ;;;OUTPUT THE SPECIAL ECHO USING MULTI-ECHO ; DD098 ; ; DD098 20$: BIT #UA.ECH,U.AFLG-U.TSTA(R5) ;;;ECHO CHARACTER? ; DD098 BEQ ECHD2 ;;;N - JUMP ; DD098 ; DD098 .IFF ;T$$ACD ; DD098 ; DD098 I2RAL: CALL PUTNIC ;;;PUT CHARACTER IN INPUT BUFFER ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 BIT #S1.RNE,@R5 ;;;ECHO SUPPRESSED? ;**-1 BNE ECHD2 ;;;Y - GO CHECK FOR BUFFER FULL BIT #S1.RAL,@R5 ;;;READ-PASS-ALL MODE? ; DD068 BNE ECHO ;;;ECHO CHARACTER AS ITSELF IF SO ; DD068 EXPC: CALL EXPCHR ;;;EXPAND CHARACTER TO GET PROPER ECHO BNE 30$ ;;;ECHO IS A STRING - JUMP ; DD129 ;;;ELSE CHARACTER ECHOS AS ITSELF - ;**-1 ;;; FALL THRU TO "ECHO" ; ; ;+ ; ECHO - ECHO 1 CHARACTER FROM TEMPORARY CHARACTER BUFFER ; ; INPUT: ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; U.TECB (U.TECO) CHARACTER TO ECHO ; DD074 ; U.TCHP HOR. POS. AFTER ECHO ;**-1 ; ; REGISTERS ALTERED: R2,R3,R4 ;- ; ; ECHO: ; DD074 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV R5,R3 ;;; ; DD074 ADD #U.TECO-U.TSTA,R3 ;;;POINT TO SINGLE CHAR. BUFFER ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV R4,R3 ;;; ; DD074 ADD #U.TECB,R3 ;;;POINT TO SINGLE CHAR. BUFFER ;**-1 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 CALLR ECHCHR ;;;ECHO SINGLE CHARACTER IN U.TECB (U.TECO) ; DD074 ; ;**-1 30$: BCC 40$ ;;;NO DEFERRED ECHOING REQUIRED - JUMP ; DD129 BIS #S1.DEC,@R5 ;;;ELSE SET FLAG TO REMEMBER ;**-1 ; ; ECHO A STRING ; ; INPUT: ; R2 LENGTH OF STRING TO ECHO ; R3 POINTER TO STRING ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; U.TCHP HOR. POS. AFTER ECHO ; ; 40$: CALLR ECHSTR ;;;ECHO STRING DESCRIBED BY R2, R3 ; DD129 ; ;**-1 .DSABL LSB ; .SBTTL ECHD1 - ECHO DONE ; ;+ ; ECHD1 - ECHO DONE. ; THIS ROUTINE IS ENTERED WHEN AN ECHO IS DONE. IT DOES ; ONE OF THE FOLLOWING THINGS: ; 1. IF DEFERRED PROCESSING IS REQUIRED, PICK UP THE CHARACTER ; SAVED IN U.TECB (U.TECO) AND PROCESS IT FROM THE BEGINNING, ; DD074 ; 2. ELSE, IF DEFERRED ECHO IS REQUIRED, ECHO THE CHARACTER ;**-1 ; SAVED IN U.TECB (U.TECO) ; DD074 ; 3. ELSE, IF INPUT COMPLETED - FORK TO PROCESS THAT. ;**-1 ; 4. ELSE, IF ANY OUTPUT REQUESTS WAITING - FORK TO GET ANOTHER ; REQUEST PACKET. ; 5. ELSE, RETURN. ; ; INPUT: ; R3 HIGH BYTE OF U.TSTA SHIFTED 1 BIT RIGHT ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; S1.OBY 0 ;- ; ; .ENABL LSB ; DD094 ; DD094 ECHD1:: ; DD098 ; DD098 .IF DF T$$ACD ; DD098 ; DD098 BIT #UA.CAL,U.AFLG-U.TSTA(R5) ;;;CALL ACD BACK FOR MORE ECHO? ; DD098 BEQ 10$ ;;;N - JUMP ; DD098 MOV R0,-(SP) ;;;SAVE R0 ; DD098 MOV #A.CALL,R0 ;;;SET ECHO CALL BACK ENTRY POINT ; DD098 CALL $SWACD ;;;CALL THE ACD ; DD098 MOV (SP)+,R0 ;;;RESTORE R0 ; DD098 BR I2SPE ;;;BRANCH BACK TO CONTINUE ECHO OUTPUT ; DD098 10$: ;;;REFERENCE LABEL ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 .IF DF T$$SPL ; DD074 ; DD074 MOVB U.TECO-U.TSTA(R5),R2 ;;;RETRIEVE CHAR. (IN CASE DEFERRED ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOVB U.TECB(R4),R2 ;;;RETRIEVE CHAR. (IN CASE DEFERRED ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 ;;;PROCESSING OR ECHO IS REQUIRED) ;**-1 BIC #S1.DPR!S1.DEC,@R5 ;;;CLEAR DEFERRED ECHO AND DEFERRED ;;;PROCESSING FLAGS ASSUME S1.DPR,1000 ROR R3 ;;;DEFERRED PROCESSING REQUIRED? BCS ICH2A ;;;Y - JUMP ASSUME S1.DEC,S1.DPR*2 ROR R3 ;;;DEFERRED ECHO REQUIRED? BCS EXPC ;;;Y - JUMP ECHD2: ; DD098 ; DD098 .IF DF T$$ACD ; DD098 ; DD098 BIT #UA.COM,U.AFLG-U.TSTA(R5) ;;;COMPLETE INPUT? ; DD098 BEQ 20$ ;;;N - JUMP ; DD098 MOV U.ACB-U.TSTA(R5),R0 ;;;GET ACB ; DD098 MOV A.IOS(R0),@(R4)+ ;;;SET I/O COMPLETION STATUS ; DD098 BR IDONE ;;;FORK TO COMPLETE INPUT ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 ASSUME U.TCI,0 ; DD098 20$: TSTB @(R4)+ ;;;EOL SEEN? ; DD098 BNE IDONE ;;;Y - ALL DONE, JUMP ;**-2 TST U.TIC-2(R4) ;;;BUFFER FULL? BNE 30$ ;;;N - JUMP ; DD129 ASSUME S1.IBF,100000 ;**-1 TST @R5 ;;;Y - BUFFERED INPUT? BPL IDONE ;;;N - ALL DONE, JUMP ; ; WE ARE DOING BUFFERED INPUT, AND JUST FILLED UP THE CURRENT BUFFER. ; SEE IF THERE IS ANOTHER BUFFER LINKED TO THE CURRENT (COULD BE THE ; CASE IF THE OPERATOR DID RUBOUT OR CTRL-U, OR IF WE ARE PROCESSING ; CTRL-R ECHO). IF THERE IS, UPDATE UCB. IF THERE IS NOT, FORK TO GET ; ANOTHER BUFFER. ; ASSUME U.TIP,2 MOV @(R4)+,R2 ;;;GET NEXT BUFFER IF THERE IS ONE (U.TIP) BEQ IDONE ;;;N - GO AND FORK ASSUME U.TTIC,U.TIP+6 CMP (R4)+,(R4)+ ;;;POINT TO U.TTIC CALL NXTIB ;;;START USING NEXT BUFFER BEQ IDONE ;;;IF CC-Z = 1 WE ARE DONE AFTER ALL CMP -(R4),-(R4) ;;;POINT TO U.TIP ; ; CONSULT INPUT STATE VARIABLE TO SEE WHAT TO DO NEXT. ; 30$: TST -(R4) ;;;POINT TO START OF UCBX ; DD129 ;**-1 .IF DF T$$ESC BIT #S1.ESC,@R5 ;;;MIDDLE OF ESCAPE SEQUENCE? BNE 40$ ;;;Y - DON'T CHECK FOR ^R OR ^U ECHO ; DD129 ;**-1 .ENDC ;T$$ESC NXSTAT: MOVB U.TISV(R4),R2 ;;;GET STATE VARIABLE ; DD094 ASL R2 ;;;MAKE WORD INDEX ;**-1 JMP @ISDSP(R2) ;;;DISPATCH .IF DF T$$ESC 40$: JMP CFGRQ ;;;CONDITIONALLY FORK TO GET A PACKET ; DD129 ;**-1 .ENDC ;T$$ESC .DSABL LSB ; DD094 ; DD094 ; ; QUEUE FORK REQUEST FOR ONE OF FOLLOWING REASONS: ; 1. (CURRENT) BUFFER FULL ; 2. TERMINATOR SEEN - LINK WORD IN PACKET CONTAINS ; STATUS (IF IT IS A SOLICITED READ) ; IDONE0: TST (SP)+ ;;;CLEAN STACK IDONE: MOV #FR.IRD,R3 ;;;FORK/INPUT DONE CALLR FORK ;;; .PAGE .SBTTL READ WITH SPECIAL TERMINATORS ; ; DOING READ WITH SPECIAL TERMINATORS - SEE IF THIS IS A TERMINATOR ; ; I2RST: MOV @R4,R3 ;;;GET THE I/O PACKET ADDRESS CMPB I.FCN+1(R3),#IO.RTT/400 ;;;SPECIAL TERMINATOR FUNCTION? BNE 10$ ;;;N - JUMP ; DD129 MOV R2,R3 ;;;GET A COPY OF THE TYPED CHARACTER ; DD074 BIC #177417,R3 ;;;CLEAR ALL BUT HIGH ORDER 4 BITS ; DD074 ; DD074 .IF DF R$$EIS ; DD074 ; DD074 ASH #-3,R3 ;;;DIVIDE BY 8. ; DD074 ; DD074 .IFF ;R$$EIS ; DD074 ; DD074 ASR R3 ;;;DIVIDE BY 8. ; DD074 ASR R3 ;;; ; DD074 ASR R3 ;;; ; DD074 ; DD074 .ENDC ;R$$EIS ; DD074 ; DD074 ADD U.TRTT(R4),R3 ;;;ADD TABLE BASE ADDRESS TO OFFSET ; DD074 MOV R1,-(SP) ;;;MAKE A REGISTER AVAILABLE ; DD074 MOVB R2,R1 ;;;GET ANOTHER COPY OF CHARACTER ;**-9 BIC #177760,R1 ;;;THIS TIME LOOK AT LOW ORDER 4 BITS ASL R1 ;;;CONVERT FROM BYTE TO WORD OFFSET BIT $BTMSK(R1),@R3 ;;;SEE IF MATCHES AGAINST TERMINATOR TABLE BEQ 30$ ;;;N - JUMP ; DD129 MOV (SP)+,R1 ;;;RESTORE REGISTER ;**-1 BR 20$ ;;;CHARACTER IS A TERMINATOR ; DD129 10$: CMPB R2,#40 ;;;LOWER THAN 40? ; DD129 BLO 20$ ;;;Y - TERMINATOR ; DD129 CMPB R2,#175 ;;;HIGHER THAN 175? ;**-3 BLO 50$ ;;;N - NORMAL CHARACTER (MAY NEED LOWER ; DD098 ;;;TO UPPER CASE CONVERSION) ;**-1 CMPB R2,#177 ;;;177? BEQ 20$ ;;;Y - TERMINATOR ; DD129 BIT #U2.LWC,U.CW2-U.TSTA(R5) ;;;CASE CONVERSION ENABLED? ;**-1 BNE 40$ ;;;N - 175-176 ARE NORMAL CHARACTERS ; DD098 20$: SWAB R2 ;;;GET TERMINATOR IN HIGH BYTE ; DD129 CLRB R2 ;;;CLEAR LOW BYTE ;**-2 INC R2 ;;;SET IS.SUC IN LOW BYTE ;;;DON'T STORE ANYTHING IN BUFFER! ASSUME U.TCI,0 MOV R2,@(R4)+ ;;;STORE STATUS BR IDONE ;;;ALL DONE 30$: MOV (SP)+,R1 ;;;RESTORE PREVIOUS REGISTER CONTENTS ; DD129 40$: JMP I2RAL ;;;PROCESS A NORMAL CHARACTER ; DD098 50$: JMP I2DEF1 ;;;POSSIBLY CONVERT THEN PROCESS A NORMAL CHAR. ; DD098 .PAGE ;**-2 .SBTTL ESCAPE CHARACTER (33) I2ESC: .IF DF T$$ESC .ENABL LSB BIT #S3.WES,4(R5) ;;;DOES TASK WANT ESCAPE SEQUENCES? BEQ I2ESC1 ;;;N - JUMP BIT #U2.ESC,U.CW2-U.TSTA(R5) ;;;DOES TERMINAL GENERATE THEM? BEQ I2ESC1 ;;;N - JUMP BIT #S1.USI,@R5 ;;;SOLICITED INPUT? BEQ 70$ ;;;Y - JUMP .IFTF ;T$$ESC .SBTTL ALTERNATE ESCAPE CHARACTER (OTHER THAN 33) ; ASSUME U.TCI,0 I2ESC1: MOV #IS.ESC,@(R4)+ ;;;STATUS = IS.ESC BR IDONE ;;;DO INPUT DONE (NO ECHO) .IFT ;T$$ESC .SBTTL PROCESS ESCAPE SEQUENCE ; I2ESC2: CMPB R2,#37 ;;;CHAR. IN RANGE 0-37? BLO 50$ ;;;Y - SYNTAX ERROR CMPB R2,#CH.RUB ;;;RUBOUT? BEQ RUBESC ;;;Y - JUMP MOVB U.TISV(R4),R3 ;;;GET CURRENT SYNTAX RULE BNE 10$ ;;;NOT FIRST TIME THRU - JUMP ; DD129 CMPB U.TTYP-U.TSTA(R5),#13 ;;;VT61? ;**-1 BNE 10$ ;;;N - JUMP ; DD129 MOV #-6,R3 ;;;Y - ALLOW CERTAIN EXCEPTIONS ;**-1 10$: ADD #ESCST,R3 ;;;GET POINTER IN ESCAPE SYNTAX RULE TABLE ; DD129 20$: CMPB R2,(R3)+ ;;;CHAR. IN RANGE? ; DD129 BLO 30$ ;;;N - JUMP ;**-3 CMPB R2,(R3)+ ;;; BHI 40$ ;;; MOVB @R3,U.TISV(R4) ;;;OK - SAVE NEXT SYNTAX RULE BNE 80$ ;;;NOT DONE YET - JUMP ; ; ESCAPE SEQUENCE COMPLETE - SET STATUS IS.ESQ ; MOV #IS.ESQ,@U.TCI(R4) ;;;SET RETURN STATUS BR 60$ ;;;ESCAPE SEQUENCE COMPLETE ; ; CHARACTER DIDN'T MATCH CURRENT RANGE - GET NEXT RANGE FOR ; CURRENT SYNTAX RULE ; 30$: INC R3 ;;;UPDATE POINTER 40$: TSTB (R3)+ ;;;ANY MORE RANGES FOR THIS RULE? BNE 20$ ;;;Y - LOOP ; DD129 ; ;**-1 ; ESCAPE SEQUENCE SYNTAX ERROR - SET STATUS IE.IES ; 50$: MOV #IE.IES&377,@U.TCI(R4) ;;;SET ERROR STATUS 60$: CALL 90$ ;;;GET OUT OF ESCAPE SEQUENCE MODE BR 80$ ;;; 70$: BIS #S1.ESC,@R5 ;;;ENTER ESCAPE SEQUENCE MODE 80$: CALL PUTNIC ;;;STORE CHARACTER ;;;DON'T ECHO ANYTHING JMP ECHD2 ;;;TEST FOR COMPLETION ; ; ; RUBESC - DELETE THE ENTIRE ESCAPE SEQUENCE FROM INPUT BUFFER ; AND EXIT FROM ESCAPE SEQUENCE MODE. ; RUBESC::CALL GETPIC ;;;GET PREVIOUS CHARACTER CMPB R2,#CH.ESC ;;;ESCAPE? BNE RUBESC ;;;N - LOOP TILL WE FIND IT 90$: BIC #S1.ESC,@R5 ;;;GET OUT OF ESCAPE MODE CLRB U.TISV(R4) ;;;CLEAR STATE VARIABLE .DSABL LSB .ENDC ;T$$ESC RETURN ;;;RETURN ; DD129 ;**-1 .PAGE .SBTTL CTRL-Z AND CARRIAGE-RETURN ; DD098 ; ;**-13 ; CTRL-Z - TERMINATE INPUT WITH STATUS IE.EOF ; .ENABL LSB ; DD098 ; ; DD098 I2CTZ:: MOV #2,-(SP) ;;;SET ADJUSTMENT FLAG = 2 ASSUME U.TCI,0 MOV #IE.EOF&377,@(R4)+ ;;;STATUS = IE.EOF 10$: TST -(R4) ;;;RESTORE UCBX POINTER BIT #S1.RNE,@R5 ;;;ECHO SUPPRESSED? BNE IDONE0 ;;;Y - DON'T ECHO ANYTHING CALL EXCR1 ;;;EXPAND A CARRIAGE RETURN BCC 20$ ;;;NO LEADING LF REQUIRED - JUMP BIS #S1.DPR,@R5 ;;;ELSE DEFER PROCESSING OF CR OR CTRL-Z CLR @SP ;;;CLEAR FLAG 20$: ADD @SP,R2 ;;;ADJUST BYTE COUNT SUB (SP)+,R3 ;;;ADJUST BUFFER POINTER CALLR ECHSTR ;;;ECHO STRING ; ; DD098 ; CARRIAGE RETURN - TERMINATE INPUT WITH STATUS IS.CR ; DD098 ; ; DD098 I2CR:: CLR -(SP) ;;;ZERO ADJUSTMENT FLAG ; DD098 ASSUME U.TCI,0 ; DD098 MOV #IS.CR,@(R4)+ ;;;STATUS = IS.CR ; DD098 BR 10$ ;;; ; DD098 ; .DSABL LSB .PAGE .SBTTL CTRL-U ; ; CTRL-U - ECHO "^U " ; OR "^U " ; ; .ENABL LSB ; I2CTU:: MOVB #SV.CU1,U.TISV(R4) ;;;INITIALIZE STATE VARIABLE ; DD088 MOV #ASCTU,R3 ;;;GET CTRL-U STRING ;**-3 .IF DF T$$CTR BR 20$ ;;;ECHO ^U ; DD117 ; ;**-1 ; .SBTTL CTRL-R ; ; CTRL-R - ECHO "^R " ; OR "^R " ; I2CTR:: BIT #S1.RNE,@R5 ;;;ECHO SUPPRESSED? BEQ 10$ ;;;N - WE CAN PERFORM THE ^R FUNCTION ; DD117 CALLR CFGRQ ;;;Y - IGNORE. PROCESS AN OUTPUT REQUEST ;**-1 10$: MOV U.TIP+2(R4),U.TTOC(R4) ;;;SAVE POS. OF LAST BYTE + 1 ; DD117 MOVB #SV.CR1,U.TISV(R4) ;;;INITIALIZE STATE VARIABLE ;**-1 MOV #ASCTR,R3 ;;;GET CTRL-R STRING .IFTF 20$: BIT #S2.FLF,2(R5) ;;;FORCE LF? ; DD117 BEQ 30$ ;;;N - JUMP ; DD117 BIS #S1.DPR,@R5 ;;;Y - DEFER PROCESSING OF ^U OR ^R ;**-2 CALL EXPCHR ;;;EXPAND CHARACTER IN R2 (JUST TO FORCE ;;;THE LINE FEED) CALLR ECHSTR ;;; 30$: MOV R3,-(SP) ;;;SAVE R3 ; DD117 ASSUME U.TCI,0 ;**-1 MOV (R4)+,R3 ;;;GET CURRENT INPUT PACKET MOV #UPUNB,-(SP) ;;;ASSUME UNBUFFERED INPUT ASSUME S1.IBF,100000 TST @R5 ;;;BUFFERED INPUT? BPL 40$ ;;;N - JUMP ; DD117 ADD #U.TFIB-2,R4 ;;;Y - POINT TO U.TFIB ;**-1 MOV @R4,R2 ;;;GET FIRST INPUT BUFFER MOV #FPSUI1,@SP ;;;ASSUME UNSOLICITED INPUT BIT #S1.USI,@R5 ;;;UNSOLICITED INPUT? BNE 40$ ;;;Y - JUMP ; DD117 MOV I.PRM+4(R3),-(R4) ;;;SOLICITED INPUT - GET TOTAL BYTE COUNT ;**-1 MOV #NXTIB,@SP ;;; 40$: CALL @(SP)+ ;;;CALL UPUNB OR FPSUI1 OR NXTIB ; DD117 ;;;TO UPDATE UCB ;**-1 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;;;RESTORE UCBX POINTER ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;;;RESTORE UCBX POINTER ; DD117 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 MOV (SP)+,R3 ;;;POINT TO ^U OR ^R STRING ;**-1 BIT #S1.RNE,@R5 ;;;ECHO SUPPRESSED? ; DD088 BNE I2CTUE ;;;Y - JUMP (MUST BE ^U) ; DD088 MOV #2,R2 ;;;LENGTH OF ^U OR ^R STRING ; ; DON'T WORRY ABOUT UPDATING CURRENT HORIZONTAL POSITION FOR 2 CHARACTERS, ; WE ARE GOING TO DO A CARRIAGE RETURN IMMEDIATELY AFTER ; CALLR ECHSTR ;;;GO ECHO STRING ; ; ^R OR ^U HAS BEEN ECHOED. SET UP TO ECHO CARRIAGE-RETURN (PLUS FILLERS) ; I2CTU1:: I2CTR1::INCB U.TISV(R4) ;;;UPDATE STATE VARIABLE BIT #S1.USI,@R5 ;;;UNSOLICITED INPUT? ; DD094 .IF NDF R$$MPL&A$$CLI ; DD094 ; DD094 BNE 60$ ;;;Y - JUMP ; DD129 ; DD094 .IFF ;NDF R$$MPL&A$$CLI ; DD094 ; DD094 BNE 70$ ;;;Y - DON'T GIVE GRATIS CARRIAGE RETURN ; DD094 ; DD094 .ENDC ;NDF R$$MPL&A$$CLI ; DD094 ; DD094 ;**-1 .IF DF T$$RPR ASSUME U.TCI,0 MOV @R4,R3 ;;;GET CURRENT INPUT PACKET CMPB I.FCN+1(R3),#IO.RPR/400 ;;;IO.RPR? BEQ 60$ ;;;Y - JUMP ; DD117 ;**-1 .IFTF ;T$$RPR 50$: INCB U.TISV(R4) ;;;N - BYPASS NEXT STATE ; DD117 60$: CALL EXCR1 ;;;EXPAND A CARRIAGE-RETURN ; DD129 CALLR ECHSTR ;;;ECHO STRING AND RETURN ; DD094 ; DD094 .IF DF R$$MPL!A$$CLI ; DD094 ; DD094 ; ; DD094 ; IN ALTERNATE CLI SYSTEMS, THE CLI PROMPT IS NOT ASSUMED TO START WITH A ; DD094 ; CARRIAGE RETURN, SO DO NOT OUTPUT ONE, RATHER, GO ON TO THE NEXT STATE. ; DD094 ; ; DD094 70$: JMP NXSTAT ;;;GO ON TO NEXT ^U/^R STATE ; DD094 ; DD094 .ENDC ;R$$MPL!A$$CLI ; DD094 ; DD094 80$: ;;;REFERENCE LABEL ; DD094 ; DD094 .IF DF R$$MPL!A$$CLI ; DD094 ; DD094 INCB U.TISV(R4) ;;;BYPASS CLI PROMPT OUTPUT STATE ; DD094 ; DD094 .ENDC ; DD094 ; DD094 BR 50$ ;;;OUTPUT A CARRIAGE RETURN ; DD094 ; ;**-3 ; CARRIAGE RETURN HAS BEEN ECHOED. ECHO PROMPT BUFFER. ; I2CTU2::BIT #S1.USI,@R5 ;;;UNSOLICITED INPUT? ; DD094 BEQ I2CTR2 ;;;N - JUMP ; DD094 CLRB U.TFPB(R4) ;;;USE DEFAULT PROMPT ; DD094 TSTB U.TFPB+1(R4) ;;;DID THE UNSOLICITED INPUT INTERRUPT A READ? ; DD094 BNE 80$ ;;;Y - DO NOT ECHO CLI PROMPT ; DD094 ; DD094 .IF DF T$$SER ; DD094 ; DD094 BIT #UM.CMD,U.MUP-U.TSTA(R5) ;;;COMMAND IN PROGRESS? ; DD094 BNE 80$ ;;;Y - DO NOT ECHO CLI PROMPT ; DD094 ; DD094 .ENDC ; DD094 ; DD094 I2CTR2::INCB U.TISV(R4) ;;;UPDATE STATE VARIABLE ;**-1 ; ; SET CURRENT HORIZONTAL POSITION = INITIAL HORIZONTAL POSITION ; FOR THE READ PORTION OF IO.RPR. WE DON'T CARE ABOUT INCORRECT ; HOR. POS. DURING THE ECHO OF THE PROMPT STRING. FURTHERMORE, ; IT IS POSSIBLE THAT THE ORIGINAL PROMPT STARTED AT A POSITION ; OTHER THAN FIRST COLUMN. IF SO, WE CAN ONLY HOPE THAT THE ; PROMPT BUFFER CONTAINS AN EXPLICIT CURSOR POSITIONING COMMAND. ; IF NOT, HOR. POS. WILL BE INCORRECT WHILE DOING THE NEXT READ. ; ; WE KNOW THAT THE LAST CHARACTER THAT WAS EXPANDED BY EXPCHR WAS ; A CARRIAGE RETURN, SO THE FORCE-LINE-FEED FLAG (S2.FLF) IS NOW ; SET. IF THE INITIAL HOR. POS. IS NOT COLUMN 1, WE MUST CLEAR THE ; FLAG. ; MOVB U.TIHP(R4),U.TCHP-U.TSTA(R5) BEQ 90$ ;;;AT COLUMN 1 - LEAVE S2.FLF SET ; DD117 BIC #S2.FLF,2(R5) ;;;ELSE CLEAR IT ;**-1 90$: ;;;REFERENCE LABEL ; DD117 ;**-1 .IFT ;T$$RPR BIT #S1.USI,@R5 ;;;ECHO CLI PROMPT? BNE 100$ ;;;Y - JUMP ; DD117 ; DD094 .IF DF R$$MPL!A$$CLI ; DD094 ; DD094 INCB U.TISV(R4) ;;;BYPASS CLI PROMPT OUTPUT STATE ; DD094 ; DD094 .ENDC ;R$$MPL!A$$CLI ; DD094 ; DD094 MOV U.TFPB(R4),U.TFOB(R4) ;;;GET FIRST PROMPT BUFFER ;**-1 CALLR STAXL ;;;ECHO PROMPT STRING 100$: ;;;REFERENCE LABEL ; DD117 ;**-1 .ENDC ;T$$RPR ; DD094 ;**-1 .IF DF T$$SPC ; DD117 ; DD117 TST U.TFPB(R4) ;;;CLI CONTINUATION LINE IN PROGRESS? ; DD117 BPL 110$ ;;;N - JUMP ; DD117 MOV #ASCLC,R3 ;;;Y - OUTPUT SPECIAL CONTINUATION PROMPT ; DD117 MOV #4,R2 ;;;LENGTH IS 4 BYTES INCLUDING CR AND LF ; DD117 CALLR ECHSTR ;;;ECHO CONTINUATION PROMPT ; DD117 110$: ;;;REFERENCE LABEL ; DD117 ; DD117 .ENDC ;T$$SPC ; DD117 ; DD117 .IF NDF R$$MPL&A$$CLI ; DD094 ; DD094 MOV #ASCLP,R3 ;;;ASSUME ECHO ANGLE BRACKET ONLY MOV #2,R2 ;;;TWO BYTES LENGTH (INCLUDES LF) TSTB U.TFPB(R4) ;;;DID WE ASSUME CORRECTLY? ; DD094 BEQ 130$ ;;;Y - JUMP ; DD117 ;**-2 .IF DF M$$CLI ; DD094 ;**-1 MOV U.CLI-U.TSTA(R5),R3 ;;;GET POINTER TO CLI TST (R3)+ ;;;POINT PAST CLI TCB MOV R3,R2 ;;;COPY POINTER TO CLI NAME 120$: TSTB (R2)+ ;;;SEARCH FOR END OF ASCIZ NAME AND PROMPT ; DD117 BNE 120$ ;;; ; DD117 SUB R3,R2 ;;;GET LENGTH OF CLI PROMPT ;**-2 ;;;FALL INTO CALL TO ECHSTR ; DD094 ;**-1 .IFF ;M$$CLI ; DD094 ;**-1 MOV #ASCLI,R3 ;;;GET ADDRESS OF FULL CLI PROMPT MOV #5,R2 ;;;GET PROMPT LENGTH ; DD094 .ENDC ;M$$CLI ; DD094 ; DD094 130$: CALLR ECHSTR ;;;ECHO CLI PROMPT ; DD117 ;**-1 .IFF ;NDF R$$MPL&A$$CLI ; DD094 ; DD094 MOV U.MUP-U.TSTA(R5),R3 ;;;GET POINTER TO CLI WORD ; DD094 BIC #^C,R3 ;;;CLEAR ALL BUT CLI INDEX ; DD094 MOV $CPTBL(R3),R3 ;;;POINT TO CLI PARSER BLOCK ; DD094 MOVB C.PDPL(R3),R2 ;;;GET DEFAULT PROMPT LENGTH ; DD094 ADD #C.PRMT,R3 ;;;POINT TO DEFAULT PROMPT STRING ; DD094 TSTB U.TFPB(R4) ;;;WHICH PROMPT DO WE ISSUE? ; DD094 BNE 140$ ;;;ISSUE FULL CLI PROMPT - JUMP ; DD094 TST R2 ;;;CHECK FOR NULL LENGTH ; DD094 BR 150$ ;;;EITHER PROMPT OR FORGET IT ALL ; DD094 140$: MOVB C.PCPL-C.PRMT(R3),-(SP) ;;;GET LENGTH OF FULL CLI PROMPT ; DD094 ADD R2,R3 ;;;POINT TO FULL CLI PROMPT STRING ; DD094 MOVB (SP)+,R2 ;;;GET ITS LENGTH ; DD094 150$: BEQ 160$ ;;;NULL LENGTH - DON'T PROMPT ; DD094 MOV R3,U.TSHP(R4) ;;;SAVE CLI PROMPT STRING ADDRESS ; DD094 MOVB R2,U.TVFC(R4) ;;;SAVE CLI PROMPT STRING LENGTH ; DD094 ;;;FALL INTO NEXT STATE ; DD094 ; ; DD094 ; OUTPUT CLI PROMPT BY EXPANDING EACH CHARACTER IN TURN ; DD094 ; ; DD094 I2CTU3:: ; DD094 I2CTR3::MOV U.TSHP(R4),R3 ;;;GET ADDRESS OF NEXT CHARACTER ; DD094 MOVB U.TVFC(R4),R2 ;;;GET REMAINING LENGTH ; DD094 BNE 170$ ;;;MORE TO DO - JUMP ; DD094 160$: INCB U.TISV(R4) ;;;UPDATE STATE VARIABLE ; DD094 JMP NXSTAT ;;;GO TO NEXT STATE ; DD094 170$: MOVB (R3)+,R2 ;;;GET CHARACTER TO EXPAND ; DD094 CALL EXPCHR ;;;GET CHARACTER EXPANSION ; DD094 BNE 180$ ;;;CHARACTER ECHOES AS A STRING - JUMP ; DD094 MOV U.TSHP(R4),R3 ;;;SET POINTER TO CHARACTER ; DD094 MOV #1,R2 ;;;SET LENGTH ; DD094 BR 190$ ;;;UPDATE POINTER AND COUNT ; DD094 180$: BCS 200$ ;;;NEED TO PRESENT CHARACTER AGAIN? ; DD094 190$: INC U.TSHP(R4) ;;;N - POINT TO NEXT CHARACTER ; DD094 DECB U.TVFC(R4) ;;;KEEP COUNT ; DD094 200$: CALLR ECHSTR ;;;ECHO EXPANSION OF CURRENT CHARACTER ; DD094 ; DD094 .ENDC ;NDF R$$MPL&A$$CLI ; DD094 ;**-1 .IFT ; ; SAVE THE PRESENT ECHO STATUS, THEN FORCE ICHAR2 TO ECHO INPUT ; I2CTR4::INCB U.TISV(R4) ;;;UPDATE STATE VARIABLE ; DD094 ; ;**-3 ; ECHO INPUT BUFFER. THIS IS DONE BY "RECYCLING" ALL CHARACTERS ; THAT HAVE BEEN INPUT SO FAR THRU THE INPUT LOGIC. ; I2CTR5::MOV U.TIP+2(R4),R3 ;;;GET POINTER TO NEXT BYTE TO PROCESS ; DD094 CMP R3,U.TTOC(R4) ;;;ALL DONE? ;**-1 BEQ I2CTR6 ;;;Y - ALL DONE, JUMP ; DD094 CALL GETRIC ;;;GET THE CHARACTER ;**-1 CALLR ICHAR2 ;;;RECYCLE CHARACTER THRU INPUT LOGIC .IFTF ; ; ALL DONE ; I2CTUE: ; DD094 I2CTU4::CLRB U.TISV(R4) ;;;CLEAR STATE VARIABLE ; DD094 MOVB U.TCHP-U.TSTA(R5),U.TIHP(R4) ;**-1 ;;;SET INITIAL HOR. POS. = CURRENT BIT #S1.USI,@R5 ;;;UNSOLICITED INPUT? BEQ 210$ ;;;N - JUMP ; DD094 ASSUME U.TCI,0 ;**-1 MOV #IS.TMO+1,@(R4)+ ;;;Y - SET STATUS = IS.TMO+1 JMP IDONE ;;;INPUT DONE ; .IFT I2CTR6::CLRB U.TISV(R4) ;;;CLEAR STATE VARIABLE ; DD094 ;**-2 .ENDC 210$: CALLR CFGRQ ;;;CONDITIONALLY FORK TO GET AN ; DD094 ;;;OUTPUT REQUEST FROM QUEUE ;**-1 ; .DSABL LSB .PAGE ;**-26 .SBTTL CTRL-C ; ; CTRL-C - START (OR RESTART) UNSOLICITED INPUT. ; ; ASSUME U2.SLV,200 I2CTC:: TSTB U.CW2-U.TSTA(R5) ;;;SLAVED TERMINAL? BMI RET2 ;;;Y - IGNORE ; DD117 .IF DF T$$SPC ; DD117 ; DD117 BIT #UM.KIL,U.MUP-U.TSTA(R5) ;;;SEND KILL PACKET? ; DD117 BEQ 10$ ;;;N - JUMP ; DD117 MOV #FR.KIL,R3 ;;;GET KILL FORK REQUEST BIT ; DD117 CALLR FORK ;;;COME BACK AT FORK STATE TO KILL THIS INPUT ; DD117 10$: TST U.TFPB(R4) ;;;CLI CONTINUATION LINE IN PROGRESS? ; DD117 BPL 20$ ;;;N - JUMP ; DD117 BIS #UM.KIL,U.MUP-U.TSTA(R5) ;;;Y - SEND KILL PACKET ON NEXT ^C ; DD117 ; DD117 .ENDC ;T$$SPC ; DD117 ; DD117 20$: MOVB R2,U.TFPB(R4) ;;;ECHO A FULL CLI PROMPT FOR ^U/^R ; DD094 ADD #U.TFIB,R4 ;;;POINT TO U.TFIB ;**-8 CALL FPSUI1 ;;;SET UP UCB FOR UNSOL. INPUT ; ;**-1 ; FILL INPUT BUFFER WITH THE FOLLOWING PROMPT STRING: ; ; \ XXX> ; ; WHERE " \" TAKES THE TERMINAL OUT OF HOLD-SCREEN MODE ; (INSERTED ONLY IF TERMINAL IS IN HOLD-SCREEN MODE) ; AND "XXX" IS THE CLI NAME. OUTPUT THE PROMPT. ; MOV R1,-(SP) ;;;SAVE R1 ASSUME U.TIP+2,U.TIC-2 MOV -(R4),R1 ;;;GET START OF OUTPUT BUFFER BIT #U2.HLD,U.CW2-U.TSTA(R5) ;;;IN HOLD-SCREEN MODE? BEQ 30$ ;;;N - JUMP ; DD117 MOV (PC)+,(R1)+ ;;;INSERT \ - EXIT HOLD SCREEN MODE ;**-1 .BYTE CH.ESC,CH.BSL BIC #U2.HLD,U.CW2-U.TSTA(R5) ;;;CLEAR HOLD-SCREEN FLAG ; DD094 ; ; NOW EXPAND CARRIAGE RETURN TWICE. THIS HAS THE FOLLOWING EFFECT: ; 1. IF THE LAST EXPANDED CHARACTER WAS NOT CARRIAGE RETURN, ; THE FIRST CR EXPANDS AS CR, AND THE SECOND ONE AS LF. ; 2. ELSE, THE FIRST CR EXPANDS AS LF AND THE SECOND ONE AS CR. ; IN CASE 2, THE FLAG S2.FLF WILL BE SET AFTER THE SECOND EXPANSION ; AND MUST BE CLEARED. ; ; THE CARRIAGE RETURN AND LINE FEED ARE NOT OUTPUT HERE FOR ALTERNATE CLI ; DD094 ; SYSTEMS SINCE THE CLI MAY NOT WANT THEM. IF IT DOES THEN THEY MUST BE PART ; DD094 ; OF THE CLI PROMPT STRING IN THE CPB. ; DD094 ; ; DD094 30$: ;;;REFERENCE LABEL ; DD094 ; DD094 .IF DF T$$SPC ; DD117 ; DD117 TST U.TFPB-(R4) ;;;CLI CONTINUATION LINE IN PROGRESS? ; DD117 BPL 60$ ;;;N - DON'T INCLUDE GRATIS CRLF, JUMP ; DD117 ; DD117 .ENDC ;T$$SPC ; DD117 ; DD117 .IIF NDF A$$CLI,NOACLI=0 ; DD117 .IF DF T$$SPC!NOACLI ; DD117 CALL EXCR1 ;;;EXPAND A CARRIAGE RETURN ; DD094 40$: MOVB (R3)+,(R1)+ ;;;INSERT ; DD117 SOB R2,40$ ;;;LOOP ; DD117 CALL EXCR1 ;;;EXPAND CR AGAIN ;**-3 50$: MOVB (R3)+,(R1)+ ;;;INSERT ; DD117 SOB R2,50$ ;;;LOOP ; DD117 ; DD094 .ENDC ;T$$SPC!NOACLI ; DD117 ; DD094 60$: BIC #S2.FLF,2(R5) ;;;DON'T FORCE ANOTHER LF ; DD117 ; DD117 .IF DF T$$SPC ; DD117 ; DD117 TST U.TFPB-(R4) ;;;CLI CONTINUATION LINE IN PROGRESS? ; DD117 BPL 80$ ;;;N - JUMP ; DD117 MOVB ASCLC+2,(R1)+ ;;;INSERT FIRST CHAR. OF CONTINUATION PROMPT ; DD117 MOVB ASCLC+3,(R1)+ ;;;INSERT SECOND CHAR. OF PROMPT ; DD117 MOVB #2,U.TCHP-U.TSTA(R5) ;;;SET UP CURRENT HOR. POS. ; DD117 MOVB #2,U.TIHP-(R4) ;;;SET INITIAL HOR. POS. ; DD117 BR 140$ ;;;OUTPUT THE PROMPT ; DD117 ; DD117 .ENDC ;T$$SPC ; DD117 ;**-3 .IF DF M$$CLI ; DD094 ;**-1 MOV U.CLI-U.TSTA(R5),R3 ;;;GET POINTER TO CLI NAME ADD #4,R3 ;;; 70$: MOVB (R3)+,(R1)+ ;;;INSERT ; DD117 BNE 70$ ;;;LOOP ; DD117 ;**-2 .ENDC ;M$$CLI ; DD094 ; DD094 .IF DF R$$MPL!A$$CLI ; DD094 ; DD094 80$: MOV U.MUP-U.TSTA(R5),R3 ;;;GET POINTER TO CLI STATUS WORD ; DD094 BIC #^C,R3 ;;;CLEAR ALL BUT CLI INDEX BITS ; DD094 MOV $CPTBL(R3),R3 ;;;POINT TO CLI PARSER BLOCK ; DD094 ADD #C.PDPL,R3 ;;;POINT TO DEFAULT PROMPT STRING LENGTH ; DD094 ASSUME C.PCPL,C.PDPL+1 ; DD094 CLR -(SP) ;;;WORD TO GET BYTE VALUE OF PROMPT LENGTH ; DD094 BISB (R3)+,(SP) ;;;GET LENGTH OF DEFAULT PROMPT ; DD094 ASSUME C.PRMT,C.PCPL+1 ; DD094 MOVB (R3)+,R2 ;;;GET LENGTH OF CLI PROMPT ; DD094 ADD (SP)+,R3 ;;;POINT TO CLI PROMPT STRING ; DD094 TST R2 ;;;ANYTHING THERE? ; DD094 BEQ RET2 ;;;N - RETURN TO FORGET IT ALL ; DD094 MOV R1,-(SP) ;;;GET CURRENT POSITION IN OUTPUT BUFFER ; DD094 SUB @R4,(SP) ;;;GET NUMBER OF CHARACTERS IN IT SO FAR ; DD094 MOV R2,-(SP) ;;;SAVE UNEXPANDED CLI PROMPT LENGTH ; DD094 90$: MOVB (R3)+,R2 ;;;GET A CHARACTER OF THE PROMPT ; DD094 MOV R3,-(SP) ;;;SAVE ADDRESS OF NEXT CHARACTER ; DD094 CALL EXPCHR ;;;GET EXPANSION OF CURRENT CHARACTER ; DD094 BNE 100$ ;;;IT IS A STRING - JUMP ; DD094 CMP 4(SP),#T$$BFL ;;;BUFFER LENGTH EXCEEDED? ; DD094 BHIS 130$ ;;;Y - JUMP ; DD094 MOVB R2,(R1)+ ;;;CHARACTER EXPANDS AS ITSELF - PUT IN BUFFER ; DD094 INC 4(SP) ;;;SHOW ONE MORE CHARACTER IN BUFFER ; DD094 BR 120$ ;;;CHECK IF DONE ; DD094 100$: BCC 110$ ;;;DO WE HAVE TO PRESENT THAT CHARACTER AGAIN? ; DD094 DEC (SP) ;;;Y - BACKUP POINTER ; DD094 INC 2(SP) ;;;AND FIX COUNT ; DD094 110$: ADD R2,4(SP) ;;;SHOW NEW BUFFER LENGTH ; DD094 CMP 4(SP),#T$$BFL ;;;BUFFER LENGTH EXCEEDED? ; DD094 BHI 130$ ;;;Y - JUMP ; DD094 MOVB (R3)+,(R1)+ ;;;PUT EXPANSION INTO BUFFER ; DD094 SOB R2,110$ ;;;LOOP ; DD094 120$: MOV (SP)+,R3 ;;;RESTORE PROMPT POINTER ; DD094 DEC (SP) ;;;MORE TO DO? ; DD094 BNE 90$ ;;;LOOP UNTIL DONE ; DD094 130$: CMP (SP)+,(SP)+ ;;;CLEAN STACK ; DD094 ; DD094 .ENDC ;R$$MPL!A$$CLI ; DD094 ; DD094 .IF NDF R$$MPL&A$$CLI&M$$CLI ; DD094 ;**-1 MOVB #'M,(R1)+ ;;;INSERT M MOVB #'C,(R1)+ ;;; C MOVB #'R,(R1)+ ;;; R MOVB #'>,(R1)+ ;;; > .ENDC ;NDF R$$MPL&A$$CLI&M$$CLI ; DD094 ;**-1 .IF NDF R$$MPL&A$$CLI ; DD117 ; DD117 MOVB #4,U.TCHP-U.TSTA(R5) ;;;SET UP CURRENT HOR. POS. ; DD117 MOVB #4,U.TIHP-(R4) ;;;SET INITIAL HOR. POS. ; DD117 ; DD117 .ENDC ;NDF R$$MPL&A$$CLI ; DD117 ; DD117 140$: MOV @R4,R3 ;;;GET START OF PROMPT STRING (U.TIP+2) ; DD117 MOV @R4,R3 ;;;GET START OF PROMPT STRING (U.TIP+2) CMP -(R4),-(R4) ;;;RESTORE UCBX POINTER MOV R1,R2 ;;; SUB R3,R2 ;;;GET LENGTH OF IT MOV (SP)+,R1 ;;;RESTORE R1 BIC #U2.HLD,U.CW2-U.TSTA(R5) ;;;CLEAR HOLD-SCREEN FLAG ;**-2 ECHOS1: CALLR ECHSTR ;;;ECHO PROMPT STRING ;**-3 .PAGE ; DD117 .SBTTL CTRL-O, CTRL-Q, CTRL-S, CTRL-X ; DD117 ; ; DD117 ; CTRL-Q, CTRL-S, CTRL-O AND CTRL-X. ; DD117 ; IF ANY OF THESE CHARACTERS IS RECEIVED WHEN AN IO.RAL OR IO.RST ; DD117 ; IS ACTIVE, STORED IN THE TYPE-AHEAD BUFFER (FOR EXAMPLE, BECAUSE ; DD117 ; ECHO IS REQUIRED AND OUTPUT IS BUSY), THE READ TERMINATES AND ; DD117 ; THE NEXT READ IS AN IO.RLB, THEN THESE SPECIAL CHARACTERS WILL ; DD117 ; APPEAR HERE. WE DON'T WANT TO PASS THEM TO THE TASK, SO WE ; DD117 ; JUST IGNORE THEM. ; DD117 ; ; DD117 ; THE SAME IS DONE FOR CTRL-C FROM A SLAVED TERMINAL, AND FOR CTRL-R ; DD117 ; IN A SYSTEM THAT DOES NOT SUPPORT CTRL-R. ; DD117 ; ; DD117 I2CTQ:: ; DD117 I2CTS:: ; DD117 I2CTO:: ; DD117 I2CTX:: ; DD117 ; DD117 .IF NDF T$$CTR ; DD117 ; DD117 I2CTR:: ; DD117 ; DD117 .ENDC ;T$$CTR ; DD117 ; DD117 RET2: RETURN ;;;IGNORE ; DD117 .PAGE .SBTTL RUBOUT ; ; RUBOUT ; ; .ENABL LSB ; I2RUB:: CALL GETPIC ;;;GET (AND REMOVE) PREVIOUS CHARACTER BCS RET2 ;;;NONE - JUMP BIT #S1.RNE,@R5 ;;;ECHO SUPPRESSED? BNE RET2 ;;;Y - JUMP TSTB U.TCHP-U.TSTA(R5) ;;;AT LEFT MARGIN? BEQ RET2 ;;;Y - DON'T ECHO ANYTHING .IF DF T$$RUB BIT #U2.CRT,U.CW2-U.TSTA(R5) ;;;SCOPE? BEQ 70$ ;;;N - JUMP ; ; SCOPE RUBOUT. HORIZONTAL TAB ECHOS AS A NUMBER OF BACKSPACES (1-8). ; ANYTHING ELSE ECHOS AS BACKSPACE-SPACE-BACKSPACE. ; CMPB R2,#CH.HT ;;;HTAB? BEQ 10$ ;;;Y - JUMP MOV #ASRBS,R3 ;;;POINT TO BSP-SP-BSP STRING MOV #3,R2 ;;;SET LENGTH DECB U.TCHP-U.TSTA(R5) ;;;UPDATE HOR. POS. BR ECHOS1 ;;;GO ECHO ; ; FIND PREVIOUS HORIZONTAL POSITION ; 10$: MOVB U.TCHP-U.TSTA(R5),-(SP) ;;;SAVE CURRENT HOR. POS. MOVB U.TIHP(R4),U.TCHP-U.TSTA(R5) ;;;RESET CURRENT POS. TO INITIAL POS. MOV R3,-(SP) ;;;SAVE R3 (POINTS TO THE HTAB) ASSUME U.TCI,0 MOV @R4,R3 ;;;GET CURRENT PACKET (IF SOLICITED INPUT) MOV I.PRM+2(R3),R3 ;;;GET START OF TASK BUFFER ; ; NOTE - THE 2 INSTRUCTIONS ABOVE ASSUME THAT THE CURRENT INPUT IS UNBUFFERED ; SOLICITED INPUT. ; OF COURSE "I.PRM+2(R3)" MAKES NO SENSE IF THE INPUT IS UNSOLICITED, BUT ; NO ADDRESSING ERROR CAN OCCUR. ; CLR -(SP) ;;;SET UP A VERY LARGE LOOP COUNT ASSUME S1.IBF,100000 TST @R5 ;;;BUFFERED INPUT? BPL 30$ ;;;N - JUMP MOV U.TFIB(R4),R3 ;;;Y - GET FIRST INPUT BUFFER 20$: CMP (R3)+,(R3)+ ;;;POINT TO START OF DATA AREA MOV #T$$BFL-4,@SP ;;;SET MAX BYTES IN BUFFER ; ; THE FOLLOWING IS A LOOP THAT GOES THROUGH ALL CHARACTERS THAT HAVE BEEN ; INPUT SO FAR AND EXPANDS THEM. THE PURPOSE IS TO UPDATE THE CURRENT ; HORIZONTAL POSITION (U.TCHP) TO THE VALUE IT HAD BEFORE THE LAST ; CHARACTER (THE TAB) WAS INPUT. ; 30$: CMP R3,2(SP) ;;;POINTING TO THE RUBBED-OUT CHAR.? BEQ 50$ ;;;Y - JUMP 40$: CALL GETRIC ;;;N - GET THE CHARACTER POINTED TO BY R3 MOV R3,-(SP) ;;;SAVE R3 CALL EXPCHR ;;;EXPAND CHARACTER MOV (SP)+,R3 ;;;RESTORE R3 BCS 40$ ;;;EXPAND CHARACTER AGAIN INC R3 ;;;UPDATE POINTER DEC @SP ;;;DECR. LOOP COUNT BNE 30$ ;;;MORE IN THIS BUFFER - LOOP MOV -T$$BFL(R3),R3 ;;;LOOP COUNT RAN OUT - THIS CAN ONLY HAPPEN ;;;IF WE ARE DOING BUFFERED INPUT ;;;GET LINK TO NEXT BUFFER (THERE MUST BE ONE) BR 20$ ;;;BIG LOOP ; ; WE ARE BACK AT WHERE WE STARTED - U.TCHP CONTAINS NEW (BACKSPACED) ; HORIZONTAL POSITION. ; 50$: CMP (SP)+,(SP)+ ;;;CLEAN STACK MOV @SP,R2 ;;;GET OLD HOR. POS. MOVB U.TCHP-U.TSTA(R5),@SP ;;;GET NEW HOR. POS. SUB (SP)+,R2 ;;;CALCULATE NUMBER OF BACKSPACES REQUIRED BGT 60$ ;;;.GT. 0 - JUMP MOV #8.,R2 ;;;THE TAB WE WANT TO RUB OUT CAUSED AN ;;;AUTO CR-LF - SPACE BACK TO LEFT MARGIN 60$: MOV #ASBSP,R3 ;;;POINT TO STRING WITH BACKSPACES BR ECHOS1 ;;;ECHO THE STRING .ENDC 70$: ; DD074 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOVB R2,U.TECO-U.TSTA(R5) ;;;SAVE RUBBED-OUT CHAR. ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOVB R2,U.TECB(R4) ;;;SAVE RUBBED-OUT CHAR. ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 BIT #S1.RUB,@R5 ;;;ALREADY IN RUBOUT SEQUENCE? ;**-1 BNE 90$ ;;;Y - JUMP BIS #S1.RUB!S1.DEC,@R5 ;;;N - SET RUBOUT AND DEFERRED ECHO FLAGS 80$: MOV #ASBSL,R3 ;;;POINT TO \ INCB U.TCHP-U.TSTA(R5) ;;;UPDATE HOR. POS. JMP ECHCHR ;;;ECHO 1 CHARACTER POINTED TO BY R3 90$: JMP EXPC ;;;EXPAND & ECHO CHAR. IN R2 & U.TECB (U.TECO) ; DD074 ; ;**-1 ; ALREADY IN RUBOUT MODE ; I2RUB1: CMPB R2,#CH.RUB ;;;THIS ALSO A RUBOUT? BEQ I2RUB ;;;Y - HANDLE AS SUCH BIC #S1.RUB,@R5 ;;;N - GET OUT OF RUBOUT MODE BIS #S1.DPR,@R5 ;;;SET DEFERRED PROCESSING FLAG BR 80$ ;;;ECHO \ NOW - DEFER PROCESSING ;;;OF CHARACTER IN U.TECB ; .DSABL LSB .PAGE .SBTTL IPROC - DETERMINE WHETHER AN INPUT CHARACTER CAN BE PROCESSED NOW. ; ;+ ; IPROC - DETERMINE WHETHER AN INPUT CHARACTER CAN BE PROCESSED NOW. ; ; INPUT: ; R2 CHARACTER ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF CHARACTER CAN BE PROCESSED NOW: ; CC-C 0 ; ; IF CHARACTER CAN NOT BE PROCESSED NOW: ; CC-C 1 ; ; IF CHARACTER IS TO BE THROWN AWAY: ; CC-Z 1 ; ; REGISTERS ALTERED: R2,R3,R4 ;- ; ; .ENABL LSB ; IPROC:: BIT #S1.DSI,@R5 ;;;INPUT PROCESSING DISABLED? BNE RETCS ;;;Y - CAN'T PROCESS NOW, JUMP CMP R2,#CH.CTC ;;;CTRL-C (AND NO HARD RECEIVE ERROR)? BNE 70$ ;;;N - JUMP ; DD129 ; ;**-1 ; CHARACTER IS CTRL-C ; ASSUME S1.IBY,200 TSTB @R5 ;;;INPUT BUSY? BMI 30$ ;;;Y - JUMP ; DD129 ;**-1 .IF DF T$$CCA&A$$TRP ; ; CTRL-C AND INPUT NOT BUSY. ; CHECK WHETHER CTRL-C SHOULD CAUSE AN AST OR NOT. ; ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;;;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;;;GET UCBX IF THERE IS ONE BEQ 60$ ;;;THERE ISN'T - JUMP ; DD129 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 MOV U.TAST(R4),R3 ;;;GET AST BLOCK IF THERE IS ONE ;**-1 BEQ 20$ ;;;NO AST SET UP - JUMP ; DD129 BITB #TF.XCC,A.PRM+5(R3) ;;;WANT CTRL-C PASSED TO AST? ;**-1 BNE 60$ ;;;N - JUMP ; DD129 10$: TST A.PRM+6(R3) ;;;NEED TO CHECK FOR LOCKED AST BLOCK? ; DD129 BEQ 100$ ;;;Y - CHECK THAT POSSIBILITY ; DD129 BIT #1,A.PRM+4(R3) ;;;IS AST STILL IN QUEUE? ;**-3 BNE RETCS ;;;Y - CAN'T PROCESS ^C NOW BR 110$ ;;;N - JUMP ; DD129 20$: ;;;REFERENCE LABEL ; DD129 ;**-2 .IFTF ;T$$CCA$A$$TRP BIT #S3.RAL,4(R5) ;;;READ-PASS-ALL IN EFFECT? BNE RETCS ;;;Y - PUT ^C IN TYPE-AHEAD BUFFER BR 60$ ;;;N - SEE IF TERMINAL IS SLAVED ; DD129 ; ;**-1 ; CHARACTER IS CTRL-C AND INPUT IS BUSY. ; 1. IF DOING IO.RAL OR IO.RST, OR IF ALREADY DOING UNSOLICITED ; INPUT, TRY TO PROCESS IMMEDIATELY (DEPENDENT ON OUTPUT BUSY ; AND ECHOING REQUIREMENT). ; 2. ELSE, IF TERMINAL IS SLAVED, DISCARD THE CHARACTER. ; DD104 ; 3. ELSE, IF AST IS NOT SPECIFIED, FORK TO ABORT SOLICITED ;**-2 ; INPUT AND START UNSOLICITED INPUT. ; 4. ELSE, QUEUE AN AST ; 30$: BIT #S1.RAL!S1.RST,@R5 ;;;DOING IO.RAL OR IO.RST? ; DD104 BNE 80$ ;;;Y - JUMP ; DD104 ; DD132 .IF DF T$$RPR ; DD132 ; DD132 BIT #S3.RPO,4(R5) ;;;PROMPT OUTPUT IN PROGRESS? ; DD132 BNE RETCS ;;;Y - CAN'T PROCESS NOW, JUMP ; DD132 ; DD132 .ENDC ; DD132 ; DD132 BIT #S1.USI,@R5 ;;;DOING UNSOLICITED INPUT? ; DD104 BEQ 40$ ;;;N - JUMP ; DD104 ; ; DD104 ; CTRL-C, AND UNSOLICITED INPUT IS BUSY. ; DD104 ; 1. IF OUTPUT IS NOT BUSY ACCEPT CTRL-C WHICH WILL RESTART ; DD104 ; UNSOLICITED INPUT. ; DD104 ; 2. ELSE, CANNOT PROCESS NOW SINCE UNLIKE THE PROCESSING OF ALL OTHER ; DD104 ; CHARACTERS, CTRL-C PROCESSING FORCES THE OUTPUT OF A PROMPT ; DD104 ; WITHOUT REGARD FOR THE ECHO/NOECHO STATUS OF THE TERMINAL ; DD104 ; ; DD104 BIT #S1.OBY,@R5 ;;;OUTPUT BUSY? ; DD104 BNE RETCS ;;;Y - JUMP ; DD104 BR RETCC ;;; ; DD104 40$: ;;;REFERENCE LABEL ; DD104 ;**-3 .IFT ;T$$CCA&A$$TRP ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;;;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;;;GET UCBX ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 MOV U.TAST(R4),R3 ;;;GET AST BLOCK IF THERE IS ONE BEQ 60$ ;;;ASTS NOT SPECIFIED - JUMP ; DD129 BITB #TF.XCC,A.PRM+5(R3) ;;;PASS ^C TO AST? ;**-1 BNE 60$ ;;;N - JUMP ; DD129 BIT #1,A.PRM+4(R3) ;;;IS AN AST ALREADY QUEUED? ;**-1 BEQ 10$ ;;;N - ASTS MAY BE POSSIBLE, TEST FURTHER ; DD129 ;**-4 .ENDC ;T$$CCA&A$$TRP 50$: TST (SP)+ ;;;THROW AWAY CHARACTER ; DD070 RETURN ;;; ; DD070 ; ; DD070 ASSUME U2.SLV,200 60$: TSTB U.CW2-U.TSTA(R5) ;;;SLAVED TERMINAL? ; DD129 BMI 50$ ;;;Y - THROW AWAY THE CTRL-C ; DD104 BR 130$ ;;;N - JUMP ; DD129 ; ;**-15 ; NOT CTRL-C ; ASSUME S1.IBY,200 70$: TSTB @R5 ;;;INPUT BUSY? ; DD129 BPL 90$ ;;;N - JUMP ; DD129 ; ;**-2 ; NOT CTRL-C, AND INPUT IS BUSY. ; 1. IF ECHO IS REQUIRED AND OUTPUT IS BUSY, RETURN ; WITH CC-C = 1 (CHARACTER CAN NOT BE PROCESSED NOW). ; 2. IF OUTPUT IS BUSY WITH THE PROMPT OF A READ WITH PROMPT, ; DD104 ; THE READ HAS NOT STARTED YET SO RETURN WITH CC-C = 1 ; DD104 ; (CHARACTER CANNOT BE PROCESSED NOW). ; DD104 ; 3. ELSE, RETURN WITH CC-C =0 (CHARACTER CAN BE PROCESSED NOW). ; DD104 ; ;**-1 80$: BIT #S1.OBY,@R5 ;;;OUTPUT BUSY? ; DD129 BEQ RETCC ;;;N - PROCESS CHARACTER ; DD104 BIT #S1.RNE,@R5 ;;;Y - LINE IN NOECHO MODE? ; DD104 BEQ RETCS ;;;N - CAN'T PROCESS NOW, JUMP ; DD104 ; DD104 .IF DF T$$RPR ; DD104 ; DD104 BIT #S3.RPO,4(R5) ;;;PROMPT OUTPUT IN PROGRESS? ; DD104 BNE RETCS ;;;Y - CAN'T PROCESS NOW, JUMP ; DD104 ; DD104 .ENDC ; DD104 ; DD104 RETCC: CLC ;;;RETURN WITH CC-C = 0 ; DD104 RETURN ;**-3 ; ; NOT CTRL-C, AND INPUT NOT BUSY. ; 1. IF UNSOLICITED INPUT AST SET UP, FORK TO THE FORK LEVEL ; ROUTINE THAT QUEUES AN AST. ; SPECIAL CASE - IF THE AST BLOCK IS "LOCKED", DO NOT FORK. ; THE AST BLOCK IS LOCKED WHEN IT IS STILL IN THE TASK'S ; AST QUEUE, OR WHEN TF.NOT WAS SPECIFIED AT ATTACH AND ; THE TASK HAS NOT DONE A READ SINCE THE PREVIOUS AST ; WAS QUEUED. ; 2. ELSE, IF TERMINAL ATTACHED, RETURN. ; 3. ELSE, FORK TO START UNSOLICITED INPUT. ; ; IN ALL OF THE ABOVE CASES, RETURN WITH CC-C = 1 TO INDICATE ; THAT CHARACTER CAN NOT BE PROCESSED IMMEDIATELY. ; 90$: TST U.ATT-U.TSTA(R5) ;;;TERMINAL ATTACHED? ; DD129 ;**-1 .IF DF T$$CCA&A$$TRP BEQ 120$ ;;;N - JUMP ; DD129 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;;;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;;;GET UCBX (TERMINAL IS ATTACHED ;**-1 ;;;SO THERE MUST BE ONE) ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 MOV U.TAST(R4),R3 ;;;GET AST BLOCK ADDRESS BEQ RETCS ;;;NONE - JUMP TST A.PRM+10(R3) ;;;ASTS WANTED FOR OTHER THAN ^C? BEQ RETCS ;;;N - JUMP 100$: TSTB A.PRM+4(R3) ;;;AST BLOCK LOCKED? ; DD129 BNE RETCS ;;;Y - JUMP ;**-1 110$: ;;;REFERENCE LABEL ; DD129 ;**-1 .IF DF T$$RED BIT #S3.BCC!S3.DAO!S3.VER,R2 ;;;HARD RECEIVE ERROR? BNE 50$ ;;;Y - THROW AWAY CHARACTER (DON'T CAUSE AST) ; DD070 ;**-1 .ENDC ;T$$RED MOV #FR.AST,R3 ;;;FORK/AST BR 140$ ;;; ; DD129 ;**-1 .IFF ;T$$CCA&A$$TRP BNE RETCS ;;;ATTACHED - CAN'T PROCESS NOW, JUMP .ENDC ;T$$CCA&A$$TRP 120$: TSTB U.CW2-U.TSTA(R5) ;;;SLAVED TERMINAL? ; DD129 BMI 50$ ;;;Y - THROW THE CHARACTER AWAY ; DD104 ; DD116 .IF DF T$$SER ; DD116 ; DD116 BIT #UM.CMD,U.MUP-U.TSTA(R5) ;;;COMMAND ALREADY IN PROGRESS? ; DD116 BNE RETCS ;;;Y - JUMP ; DD116 ; DD116 .ENDC ;T$$SER ; DD116 ; DD116 130$: MOV #FR.SUI,R3 ;;;FORK/START OF UNSOLICITED INPUT ; DD129 140$: CALL FORK ;;;QUEUE FORK REQUEST ; DD129 RETCS: SEC ;;;RETURN WITH CC-C = 1 ;**-12 RETURN ;;; ;**-1 ; .DSABL LSB ; ; .SBTTL GCTAB - GET A CHARACTER FROM THE TYPE-AHEAD BUFFER. ; ;+ ; GCTAB - GET A CHARACTER FROM THE TYPE-AHEAD BUFFER. ; ; INPUT: ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF CHARACTER WAS OBTAINED: ; CC-C 0 ; R2 CHARACTER (CHARACTER IS NOT REMOVED FROM TYPE-AHEAD ; BUFFER!) ; ; IF NO CHARACTER OBTAINED: ; CC-C 1 ; ; REGISTERS ALTERED: R2,R3 ;- ; ; GCTAB:: ; DD074 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000+U.TTBF+1,R2 ;;;POINT TO TABUF RETRIEVE POINTER ; DD074 CLR R3 ;;;PREPARE FOR BYTE TRANSFER ; DD074 BISB (R2)+,R3 ;;;GET RETRIEVE POINTER & POINT TO ACTIVE COUNT ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV R5,R3 ;;; ; DD074 ADD #U.TTAB-U.TSTA,R3 ;;;POINT TO U.TTAB ;**-1 ;;;(ALSO CLEARS CC-C) MOV @R3,R2 ;;;GET TABUF BEQ RETCS ;;;NONE - RETURN WITH ERROR BITB #1,(R3)+ ;;;SINGLE-CHAR. TABUF? BNE 10$ ;;;Y - JUMP INC R2 ;;;POINT TO RETRIEVE POINTER MOVB (R2)+,R3 ;;;GET RETRIEVE POINTER & POINT TO ACTIVE COUNT ; DD074 ; DD074 .IFTF ;T$$SPL ; DD074 ; DD074 TSTB (R2)+ ;;;BUFFER EMPTY? ;**-2 BEQ RETCS ;;;Y - RETURN WITH ERROR ADD R2,R3 ;;;MAKE POINTER IN BUFFER INC R3 ;;;POINT TO NEXT CHAR. TO RETRIEVE .IF DF T$$RED CMPB -(R2),#1 ;;;IS THIS THE LAST CHAR. IN TABUF? BNE 10$ ;;;N - JUMP (ELSE CC-C = 0) MOV 4(R5),R2 ;;;RETRIEVING LAST CHARACTER - GET HARD ;;;RECEIVE ERROR FLAGS BIC #^C,R2 ;;;CLEAR IRRELEVANT BITS BR 20$ ;;; .ENDC ;T$$RED 10$: CLR R2 ;;;CLEAR R2 AND CC-C 20$: BISB @R3,R2 ;;;PUT CHARACTER IN LOW BYTE RETURN ;;;RETURN WITH CC-C = 0 ; ; .SBTTL RCTAB - REMOVE A CHARACTER FROM THE TYPE-AHEAD BUFFER. ; ;+ ; RCTAB - REMOVE A CHARACTER FROM THE TYPE-AHEAD BUFFER. ; MUST BE CALLED ONLY IF THERE IS A CHARACTER TOR REMOVE!! ; ; INPUT: ; R5 POINTER TO U.TSTA ; ; OUTPUT: NONE ; ; REGISTERS ALTERED: R3 ;- ; ; RCTAB:: ; DD074 ; DD074 .IFT ;T$$SPL ; DD074 ; DD074 MOV #120000+U.TTBF+1,R3 ;;;POINT TO TABUF RETRIEVE POINTER ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TTAB-U.TSTA(R5),R3 ;;;GET START OF TABUF ; DD074 BIT #1,R3 ;;;SINGLE-CHAR. TABUF? ;**-1 BNE 20$ ;;;Y - JUMP INC R3 ;;;POINT TO RETRIEVE POINTER ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 INCB @R3 ;;;UPDATE RETRIEVE POINTER CMPB @R3,2(R3) ;;;WRAP-AROUND? BNE 10$ ;;;N - JUMP CLRB @R3 ;;;Y - RESET POINTER TO START OF BUFFER 10$: DECB 1(R3) ;;;DECREMENT ACTIVE COUNT .IF DF T$$RED BEQ 30$ ;;;LAST CHARACTER REMOVED - JUMP .IFTF ;T$$RED RETURN ;;;RETURN ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 20$: CLR U.TTAB-U.TSTA(R5) ;;;MARK SINGLE-CHAR. TABUF EMPTY ; DD074 .ENDC ;NDF T$$SPL ; DD074 ; DD074 .IFT ;T$$RED 30$: BIC #S3.BCC!S3.DAO!S3.VER,4(R5) ;;;CLEAR HARD RECEIVE ERROR FLAGS .ENDC RETURN ; ; .SBTTL GETPIC - GET PREVIOUS CHARACTER FROM INPUT BUFFER ; ;+ ; GETPIC - GET PREVIOUS CHARACTER FROM INPUT BUFFER ; ; INPUT: ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF THERE IS A PREVIOUS CHARACTER: ; CC-C 0 ; R2 CHARACTER ; R3 POINTER TO CHARACTER ; U.TIP, U.TIP+2, U.TIC AND U.TTIC "DOWN-DATED" ; (CHARACTER LOGICALLY REMOVED FROM INPUT BUFFER) ; ; IF THERE IS NO CHARACTER: ; CC-C 1 ; ; REGISTERS ALTERED: R2,R3 ;- ; ; .ENABL LSB ; GETPIC: MOV R4,-(SP) ;;;SAVE R4 ASSUME U.TCI,0 MOV (R4)+,R3 ;;;GET CURRENT PACKET (IF SOLICITED INPUT) ASSUME U.TIP,U.TCI+2 MOV (R4)+,R2 ;;;GET CURRENT BUFFER (IF BUFFERED INPUT) ADD #4,R2 ;;;POINT AT START OF DATA AREA ASSUME S1.IBF,100000 TST @R5 ;;;BUFFERED INPUT? BMI 10$ ;;;Y - JUMP MOV I.PRM+2(R3),R2 ;;;GET START ADDRESS OF TASK BUFFER 10$: MOV @R4,R3 ;;;GET CURRENT CHAR. POINTER (U.TIP+2) CMP R3,R2 ;;;POINTING AT START OF (CURRENT) BUFFER? BHI 50$ ;;;N - ALL IS FINE, JUMP ; DD129 TST @R5 ;;;Y - BUFFERED INPUT? ;**-1 BPL 30$ ;;;N - INPUT BUFFER EMPTY, EXIT WITH ERROR ; DD129 MOV U.TFIB-(R4),R3 ;;;GET FIRST INPUT BUFFER ;**-1 CMP R3,-(R4) ;;;ARE WE IN FIRST BUFFER? BEQ 30$ ;;;Y - EXIT WITH ERROR ; DD129 CLR U.TIC-U.TIP(R4) ;;;CLEAR U.TIC (SWITCHING BACK TO PREVIOUS ;**-1 ;;;BUFFER, WHICH IS FULL JUST NOW) ADD -(R2),U.TTIC-U.TIP(R4) ;;;UPDATE U.TTIC ; ; SCAN LIST OF INPUT BUFFERS UNTIL THE BUFFER PREVIOUS TO ; THE ONE POINTED TO BY R2 IS FOUND ; 20$: CMP @R3,@R4 ;;;POINTING TO OUR BUFFER? BEQ 40$ ;;;Y - JUMP ; DD129 MOV @R3,R3 ;;;N - GET NEXT ;**-1 BR 20$ ;;;LOOP ; ; NO CHARACTERS IN BUFFER - EXIT WITH CC-C = 1 ; 30$: MOV (SP)+,R4 ;;;RESTORE R4 ; DD129 BR RETCS ;;;RETURN WITH CC-C = 1 ;**-1 ; ; PREVIOUS BUFFER FOUND - R3 POINTS TO IT ; 40$: MOV R3,(R4)+ ;;;MAKE THIS CURRENT BUFFER ; DD129 ADD #T$$BFL,R3 ;;;POINT JUST AFTER LAST CHAR. IN BUFFER ;**-1 ; ; WE NOW HAVE R3 POINTING JUST AFTER THE LAST CHARACTER IN THE ; INPUT BUFFER. UCBX IS UPDATED IF WE HAD TO GO TO THE PREVIOUS BUFFER. ; 50$: DEC R3 ;;;STEP BACK 1 CHARACTER ; DD129 MOV R3,(R4)+ ;;;UPDATE U.TIP+2 ;**-1 INC @R4 ;;;UPDATE U.TIC MOV (SP)+,R4 ;;;RESTORE R4 ;;;FALL THRU TO "GETRIC" ; .DSABL LSB ; ; .SBTTL GETRIC - GET A RANDOM INPUT CHARACTER ; ;+ ; GETRIC - GET A RANDOM INPUT CHARACTER ; ; INPUT: ; R3 POINTER TO CHARACTER ; R4 POINTER TO UCBX ; ; OUTPUT: ; R2 CHARACTER ; CC-C 0 ; ; REGISTERS ALTERED: R2 ;- ; ; GETRIC: CALL MAPIB ;;;MAP INPUT BUFFER AND CLEAR CC-C CLR R2 ;;;PREPARE TO RECEIVE CHARACTER ; DD052 BISB @R3,R2 ;;;GET CHARACTER WITHOUT SIGN EXTEND PROBLEMS ; DD052 RETURN ;;;RETURN TO COROUTINE THAT DOESN'T ;**-1 ;;;CHANGE CC-C! ; ; .SBTTL PUTNIC - PUT NEXT INPUT CHARACTER IN BUFFER ; ;+ ; PUTNIC - PUT NEXT INPUT CHARACTER IN BUFFER ; ; INPUT: ; R2 CHARACTER ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; CHARACTER STORED IN INPUT BUFFER. ; U.TIP+2 AND U.TIC UPDATED. ; ; REGISTERS ALTERED: R3 ;- ; ; PUTNIC: MOV U.TIP+2(R4),R3 ;;;GET CHAR. POINTER CALL MAPIB ;;;MAP INPUT BUFFER MOVB R2,@R3 ;;;STORE CHARACTER CALL @(SP)+ ;;;RESTORE MAPPING INC U.TIP+2(R4) ;;;UPDATE CHARACTER POINTER DEC U.TIC(R4) ;;;UPDATE CHARACTER COUNT RETURN ;;; ; ; .SBTTL MAPD - MAP DRIVER DATA SPACE ; ;PW026 ;+ ; MAPD - MAP DRIVER DATA SPACE ;- ; ; .IF DF T$$COM MAPD:: ; DD074 ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 MOV #0,KDSAR5 ;;;MAP TTCOM IN D-SPACE APR 5 ; DD074 PAR5S==.-4 ;;;FILLED IN AT VIRGIN INITIALIZATION ;**-1 ; DD074 .ENDC ;NDF T$$SPL ; DD074 ; DD074 MOV #0,KINAR6 ;;;MAP TOP 4K OF DRIVER PAR6I==.-4 ;;;FILLED IN AT VIRGIN INITIALIZATION BR RESM ;;; .ENDC ;T$$COM ; ; .SBTTL MAPIB - MAP INPUT BUFFER ; ;+ ; MAPIB - MAP INPUT BUFFER ; ; INPUT: ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; INPUT BUFFER MAPPED IN KISAR6. ; CALLER CALLED BACK AS COROUTINE - WITH CC-C = 0. ; "RETURN" LEADS BACK TO THIS ROUTINE WHICH THEN RESTORES ; KISAR6 AND RETURNS TO CALLER'S CALLER WITH CC-C PRESERVED. ; ; NOTE - WHEN THE CALLER IS CALLED AS COROUTINE, THE UCBX ; MAY NOT BE MAPPED! ; ; REGISTERS ALTERED: NONE ;- ; ; ASSUME S1.IBF,100000 MAPIB: TST @R5 ;;;BUFFERED INPUT? ;;;(CLEAR CC-C) BMI 10$ ;;;Y - JUMP MOV U.TIP(R4),KISAR6 ;;;N - MAP TASK BUFFER 10$: CALL @(SP)+ ;;;CALL CALLER BACK .IF NDF T$$COM MAPD:: .ENDC ;NOT T$$COM RESM:: MOV $DALED,KISAR6 ;;;RESTORE KISAR6 ; DD074 RETURN ;;; ;**-1 ; ; .SBTTL FNDSPD - FIND THE CALLER'S BAUD SPEED ; DD128 ; ; DD128 ;+ ; DD128 ; FNDSPD - FIND THE INCOMING CALLER'S BAUD SPEED ; DD128 ; ; DD128 ; INPUT: ; DD128 ; R2 CHARACTER RECEIVED ; DD128 ; R5 POINTER TO U.TSTA ; DD128 ; ; DD128 ; OUTPUT: ; DD128 ; R0 NEW S.NNNN SPEED CODE TO SET ; DD128 ; R2 MODIFIED INPUT CHARACTER, EITHER ZERO OR CARRIAGE RETURN ; DD128 ;- ; DD128 ; ; DD128 ; ; DD128 ; DD128 .IF DF D$$M11!D$$ZMD ; DD128 ; DD128 FNDSPD: MOV R1,-(SP) ;;;SAVE REGISTER USED BY THIS ROUTINE ; DD128 MOV U.CW4-U.TSTA(R5),R0 ;;;GET SPEED AND FLAGS WORD ; DD128 BIC #^C<37>,R0 ;;;CLEAR ALL BUT SPEED BITS ; DD128 BIC #^C<377>,R2 ;;;CLEAR ALL BUT EIGHT BITS OF CHARACTER ; DD128 CMPB R2,#CH.CR ;;;CARRIAGE RETURN (SPEED IS CORRECT)? ; DD128 BEQ 10$ ;;;Y - JUMP ; DD128 CMPB R2,# ;;;8-BIT CARRIAGE RETURN (SPEED IS CORRECT)? ; DD128 BNE 20$ ;;;N - JUMP ; DD128 10$: BIC #S3.ABP,4(R5) ;;;CLEAR AUTO-BAUD IN PROGRESS BIT ; DD128 MOV #72.,U.CW4-U.TSTA(R5) ;;;RESET CORRECT BUFFER WIDTH ; DD128 BR 70$ ;;;SET CURRENT SPEED AND ECHO CLI PROMPT ; DD128 20$: BIT #U4.CR,U.CW4-U.TSTA(R5) ;;;JUST LOOKING FOR CARRIAGE RETURN? ; DD128 BEQ 40$ ;;;N - JUMP ; DD128 30$: INCB U.CW4+1-U.TSTA(R5) ;;;INCREMENT ERROR COUNT ; DD128 CMPB U.CW4+1-U.TSTA(R5),#5 ;;;REACHED THRESHOLD? ; DD128 BLT 60$ ;;;N - JUMP ; DD128 MOV #S.4800,R0 ;;;RESET SPEED, ERROR COUNT AND FLAGS ; DD128 BR 50$ ;;;RETURN TO MAINLINE WITH NULL OUTPUT ; DD128 40$: CMPB R0,#S.4800 ;;;ARE WE AT 4800 BAUD? ; DD128 BNE 100$ ;;;N - SEARCH LOW BAUD RATE TABLE, JUMP ; DD128 TST R2 ;;;RECEIVED A NULL? ; DD128 BNE 80$ ;;;N - SPEED > 300 BAUD, JUMP ; DD128 MOV #S.300,R0 ;;;SET LOW BAUD SPEED RANGE ; DD128 50$: MOV R0,U.CW4-U.TSTA(R5) ;;;SET NEW SPEED VALUE AND FLAGS ; DD128 60$: CLR R2 ;;;MAKE OUTPUT NULL UNTIL CARRIAGE RETURN FOUND ; DD128 70$: BIC #^C<37>,R0 ;;;CLEAR ALL BUT SPEED BITS ; DD128 BIS #4000,R0 ;;;SET AUTO-BAUD DETECT BIT FOR SET SPEED ; DD128 MOV (SP)+,R1 ;;;RESTORE REGISTER ; DD128 RETURN ;;;RETURN TO CALLER, SETTING SPEED ; DD128 80$: MOV #ABHIGH,R1 ;;;GET ADDRESS OF HIGH BAUD SPEED TABLE ; DD128 CALL 110$ ;;;LOOK FOR A MATCH AGAINST RECEIVED CHARACTER ; DD128 BNE 60$ ;;;NO MATCH - JUMP ; DD128 90$: MOVB (R1)+,R0 ;;;GET CALLER'S SPEED FROM TABLE ; DD128 BIS #U4.CR,R0 ;;;VALIDATE THIS SPEED ON NEXT INPUT CHARACTER ; DD128 BR 50$ ;;;SET SPEED, CLEARING ERROR COUNT ; DD128 100$: MOV #ABLOW,R1 ;;;GET ADDRESS OF LOW BAUD SPEED TABLE ; DD128 CALL 110$ ;;;LOOK FOR A MATCH AGAINST RECEIVED CHARACTER ; DD128 BNE 30$ ;;;NOT FOUND - JUMP ; DD128 BR 90$ ;;;SET SPEED FROM TABLE ; DD128 110$: CMPB R2,(R1)+ ;;;RECEIVED CHARACTER MATCH TABLE ENTRY? ; DD128 BEQ 120$ ;;;Y - JUMP ; DD128 INC R1 ;;;BUMP PAST SPEED ; DD128 TSTB (R1) ;;;END OF TABLE? ; DD128 BNE 110$ ;;;N - KEEP LOOKING ; DD128 CLZ ;;;SHOW NO MATCH WAS FOUND ; DD128 120$: RETURN ^ ; DD128 ; DD128 .ENDC ;D$$M11!D$$ZMD ; DD128 ; DD128 .END ^)€èXkQ ›c, .TITLE TTINI .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 02-FEB-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD063 CHANGE BM010 TO CALL $CALTA WHEN TASK ; CONTEXT IS DEFINITELY STILL LOADED ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD098 06-APR-81 DALE R. DONCHIN ; ADD ACD SUPPORT ; DD101 06-MAY-81 DALE R. DONCHIN ; IMPLEMENT IO.HNG FOR REMOTE LINES ; DD108 04-JUN-81 DALE R. DONCHIN ; CONDITIONALIZE WRITE BREAKTHROUGH PROTECTION CHECK ON M$$MUP ; DD118 15-JUL-81 DALE R. DONCHIN ; MAP NON RESIDENT TASK HEADER BEFORE LOOKING AT ADDRESS WINDOW ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; DD130 09-NOV-81 DALE R. DONCHIN ; MAKE NECESSARY CHANGES FOR PARTITION I/O COUNT SUPPORT ; DD138 15-DEC-81 DALE R. DONCHIN ; ALLOW A NON-PRIVILEGED CLI TO ISSUE A WRITE BREAKTHROUGH ; ; DD021 .PSECT MAP5 ; DD021 ; ;+ ; TTINI - REQUEST INITIATION ENTRY POINT. ; ; COME HERE FROM DRQIO TO CHECK A PACKET, SET UP THE BITMASK ; FOR THE ACCEPTANCE ROUTINE, VALIDATE THE PROMPT BUFFER ; FOR AN IO.RPR REQUEST OR THE TERMINATOR TABLE ADDRESS FOR ; AN IO.RTT REQUEST AND QUEUE THE PACKET. ; ; INPUT: ; R1 POINTER TO REQUEST PACKET ; R4 POINTER TO SCB ; R5 POINTER TO UCB ;- ; ; .ENABL LSB TTINI:: CALL MAPD ;MAP DATA AREA MOV R1,R3 ;COPY PACKET POINTER MOVB I.FCN+1(R3),R0 ;GET FUNCTION CODE ASL R0 ;MAKE WORD INDEX JMP @QPDSP-2(R0) ;DISPATCH .IF DF T$$RPR ; ; IO.RPR ; QPRPR:: MOV I.PRM+10(R3),R0 ;GET VIRTUAL ADDRESS OF PROMPT BUFFER MOV I.PRM+12(R3),R1 ;GET BUFFER SIZE .IF DF A$$CHK BNE 10$ ;LENGTH NOT EQUAL TO ZERO, JUMP ; DD118 JMP ERRSPC ;LENGTH = 0 - ERROR ; DD118 10$: CMP R1,#20000-100 ;.GT. 8K - 64 BYTES? ; DD118 BHI ERRBAD ;Y - ERROR ;**-2 .IF DF R$$MPL ; DD129 ;**-1 .IF DF X$$HDR ; DD130 ; DD130 MOV KISAR6,-(SP) ;SAVE APR6 MAPPING ; DD130 MOV $SAHDB,KISAR6 ;MAP TASK HEADER ; DD130 ; DD130 .IFTF ;X$$HDR ; DD130 ; DD130 CALL $CKBFR ;ADDRESS CHECK READ-ONLY BUFFER ; DD130 ; DD130 .IFT ;X$$HDR ; DD130 ; DD130 MOV (SP)+,KISAR6 ;RESTORE APR6 MAPPING ; DD130 ; DD130 .ENDC ;X$$HDR ; DD130 ; DD130 BCS ERRSPC ;ERROR - JUMP ;**-1 ;**-3 .IFF ;R$$MPL CALL $ACHKB ;ADDRESS CHECK BUFFER BCS ERRSPC ;ERROR - JUMP .ENDC ;R$$MPL ;**-1 .ENDC ;A$$CHK CALL $RELOC ;RELOCATE BUFFER ADDRESS MOV R1,I.PRM+10(R3) ;SAVE 1.ST WORD OF ADDRESS DOUBLE WORD MOV R2,I.PRM+16(R3) ;SAVE 2.ND WORD OF ADDRESS DOUBLE WORD MOV #S2.IRQ!S2.ORQ,R4 ;MUST WAIT FOR READ AND WRITE BR 50$ ; DD129 ;**-1 .ENDC ;T$$RPR ; ; DD101 ; ; DD101 ; IO.HNG ; DD101 ; ; DD101 QPHNG:: MOV I.TCB(R3),R0 ;GET ISSUING TASK'S TCB ; DD101 CMP T.UCB(R0),R5 ;IS THIS TERMINAL HIS TI:? ; DD101 BEQ 20$ ;Y - JUMP ; DD101 BIT #T3.PRV,T.ST3(R0) ;IS THE TASK PRIVILEGED? ; DD101 BEQ ERRPRI ;N - ERROR ; DD101 20$: MOV #S2.IRQ!S2.ORQ,R4 ;MUST WAIT FOR READ AND WRITE ; DD101 BR QUEUE ;QUEUE THE REQUEST ; DD101 ; DD101 .IF DF T$$GTS!T$$GMC!T$$SMC ; ; ; IO.GTS, SF.SMC, SF.GMC ; QPSPC:: .IF DF T$$GTS!T$$GMC CLR R4 ;ASSUME IO.GTS OR SF.GMC - PROCESSED ;SYNCHRONOUSLY (NOT QUEUED) .ENDC ;T$$GTS!T$$GMC .IF DF T$$GTS CMP I.FCN(R3),#IO.GTS ;IO.GTS? .IF DF T$$GMC!T$$SMC BEQ 40$ ;Y - JUMP .IFF ;T$$GMC!T$$SMC BNE ERRIFC ;N - JUMP .ENDC ;T$$GMC!T$$SMC .ENDC ;T$$GTS .IF DF T$$GMC CMP I.FCN(R3),#SF.GMC ;SF.GMC? .IF DF T$$SMC BEQ 40$ ;Y - JUMP .IFF ;T$$SMC BNE ERRIFC .ENDC ;T$$SMC .ENDC ;T$$GMC .IF DF T$$SMC CMP I.FCN(R3),#SF.SMC ;SF.SMC? BNE ERRIFC ;N - JUMP MOV I.TCB(R3),R0 ;GET ISSUING TASK'S TCB CMP T.UCB(R0),R5 ;IS THIS TERMINAL HIS TI:? BEQ 30$ ;Y - JUMP ; DD129 BIT #T3.PRV,T.ST3(R0) ;IS THE TASK PRIVILEGED? ;**-1 BEQ ERRPRI ;N - ERROR 30$: MOV #S2.IRQ!S2.ORQ!S2.SRQ,R4 ; DD129 ;MUST WAIT FOR BOTH READ AND WRITE ;**-1 ;FLAG AS "SPECIAL" FUNCTION .ENDC ;T$$SMC 40$: ;REFERENCE LABEL ; DD129 ;**-1 .IF DF A$$CHK MOV I.PRM+2(R3),-(SP) ;GET BUFFER ADDRESS BIS I.PRM+4(R3),@SP ;OR WITH BUFFER LENGTH ROR (SP)+ ;ADDRESS OR LENGTH ODD? BCS ERRSPC ;Y - ERROR, JUMP .ENDC ;A$$CHK BR 50$ ;GO AND CHECK BUFFER LENGTH ; DD129 ;**-1 .ENDC ;T$$GTS!T$$GMC!T$$SMC ; ; ; IO.RLB ; QPRLB:: MOV #S2.IRQ,R4 ;MUST WAIT FOR READ ; DD129 CMPB I.FCN+1(R3),#IO.RTT/400 ; IS THIS AN IO.RTT FUNCTION? ;**-1 BNE 50$ ;N - JUMP ; DD129 ; DD074 .IF DF A$$CHK ; DD074 ; DD074 MOV I.PRM+10(R3),R0 ;GET ADDRESS OF TERMINATOR TABLE ;**-1 BIT #1,R0 ;IS TABLE ON A WORD BOUNDARY? BNE ERRSPC ;N - ERROR ; DD074 .IFTF ;A$$CHK ; DD074 ; DD074 MOV #32.,R1 ;LENGTH OF TABLE IS FIXED AT 32. BYTES .IFT ;A$$CHK ; DD074 ;**-1 .IF DF R$$MPL CALL $ACHRO ;ADDRESS CHECK TERMINATOR TABLE BCS ERRSPC ;ERROR - JUMP .IFF ;R$$MPL CALL $ACHKB ;ADDRESS CHECK TERMINATOR TABLE BCS ERRSPC ;ERROR - JUMP .ENDC ;R$$MPL .ENDC ;A$$CHK CALL $RELOC ;RELOCATE TABLE ADDRESS MOV R1,I.PRM+10(R3) ;SAVE 1.ST WORD OF ADDRESS DOUBLE WORD MOV R2,I.PRM+16(R3) ;SAVE 2.ND WORD OF ADDRESS DOUBLE WORD BR 50$ ; DD129 ; ;**-1 ; ; IO.WLB ; QPWLB:: .IF DF T$$CUP MOV I.PRM+6(R3),I.PRM+10(R3) ;MOVE VFC/CURSOR-CONTROL TO I.PRM+10 .ENDC ;T$$CUP MOV #S2.ORQ,R4 ;MUST WAIT FOR WRITE .IF DF T$$BTW BITB #TF.WBT,I.FCN(R3) ;WRITE-BREAKTHROUGH? BEQ 50$ ;N - JUMP ; DD129 ; DD108 .IF DF M$$MUP ; DD108 ; DD108 MOV I.TCB(R3),R0 ;Y - GET ISSUER'S TCB ;**-1 BIT #T3.PRV!T3.CLI,T.ST3(R0) ;PRIVILEGED TASK OR CLI? ; DD138 BEQ ERRPRI ;N - ERROR ;**-1 ; DD108 .ENDC ;M$$MUP ; DD108 ; DD108 MOVB #251.,I.PRI(R3) ;QUEUE WITH PRIORITY 251. BIS #TF.CCO,I.FCN(R3) ;IO.WBT IMPLIES CANCEL CTRL-O MOV U.TSTA(R5),I.PRM+12(R3) ;SAVE CURRENT STATUS WORD 1 IN PACKET MOV #S2.ORQ!S2.BRQ,R4 ;MUST WAIT FOR WRITE AND SET S2.BRQ ;IN STATUS WORD 2 .ENDC ;T$$BTW .IF DF A$$CHK ; ; CHECK THAT BUFFER LENGTH IS WITHIN (1,8K-64) BYTES ; 50$: MOV I.PRM+4(R3),R1 ;GET LENGTH ; DD129 BEQ ERRSPC ;0 - ERROR ;**-1 CMP R1,#20000-100 ;TOO LARGE? BLOS QUEUE ;N - JUMP ; ; ; ERROR RETURNS ; ERRBAD: MOV #IE.BAD&377,R0 ;ERROR - BAD PARAMETER(S) BR IOFIN ERRSPC: MOV #IE.SPC&377,R0 ;ERROR - ILLEGAL BUFFER BR IOFIN .IFF ;A$$CHK 50$: BR QUEUE ; DD129 ;**-1 .ENDC ;A$$CHK ERRPRI: MOV #IE.PRI&377,R0 ;ERROR - PRIVILEGE VIOLATION ;**-2 BR IOFIN .IF DF T$$GTS!T$$GMC!T$$SMC ;**-2 ERRIFC: MOV #IE.IFC&377,R0 ;ERROR - ILLEGAL FUNCTION CODE BR IOFIN .ENDC ;T$$GTS!T$$GMC!T$$SMC .=.-2 ;OVERLAY LAST "BR IOFIN" INSTRUCTION ;**-2 IOFIN:: CLR R1 ;CLEAR SECOND WORD OF IOSB ;**-2 CALLR $IOFIN ;FINISH IO AND RETURN ; ; IO.ATT, IO.DET ; QPATT:: ; DD063 .IF DF S$$LIB ; DD063 ; DD063 BITB #TF.AST,I.FCN(R3) ;ATTACH FOR UNSOLICITED INPUT AST? ; DD063 BEQ QPDET ;IF EQ NO ; DD063 MOV I.PRM(R3),R2 ;GET ALL CHARACTER AST ADDRESS ; DD063 CALL $CALTA ;ADJUST FOR SUPER/USER MODE ; DD063 MOV R2,I.PRM(R3) ;AND PUT IT BACK ; DD063 MOV I.PRM+4(R3),R2 ;GET CONTROL C AST ADDRESS ; DD063 CALL $CALTA ;ADJUST FOR SUPER/USER MODE ; DD063 MOV R2,I.PRM+4(R3) ;AND PUT IT BACK ; DD063 ; DD063 .ENDC ;S$$LIB ; DD063 ; DD063 QPDET:: MOV #S2.IRQ!S2.ORQ!S2.SRQ,R4 ;MUST WAIT FOR READ AND WRITE ;MARK AS "SPECIAL" FUNCTION ;MARK AS "SPECIAL" FUNCTION .DSABL LSB ; ; R4 NOW CONTAINS FLAGS TO BE USED BY THE ACCEPTANCE ROUTINE FO ; GETTING PACKETS FROM THE QUEUE VIA $GSPKT. SAVE THE FLAGS IN ; I.PRM+7 OF THE I/O PACKET. ; ; ; DD098 .IF DF T$$ACD ; DD098 ; DD098 QUEUE: MOV #UA.ALL,U.AFLG(R5) ;SET DEFAULT PROCESSING ; DD098 MOV U.ACB(R5),R0 ;GET ACB ; DD098 BEQ 10$ ;THERE IS NONE - JUMP ; DD098 MOVB I.FCN+1(R3),R1 ;GET FUNCTION CODE ; DD098 ASL R1 ;CONVERT TO A WORD INDEX ; DD098 BIT $BTMSK(R1),A.MAS(R0) ;IS THE ACD INTERESTED IN THIS FUNCTION? ; DD098 BEQ 10$ ;N - JUMP ; DD098 MOV #A.ACCE,R0 ;Y - SET TO I/O REQUEST ACCEPTANCE ENTRY POINT ; DD098 ADD #U.TSTA,R5 ;POINT TO STATUS TRIPLEWORD ; DD098 CALL $SWACD ;CALL ACD ; DD098 SUB #U.TSTA,R5 ;POINT TO BEGINNING OF UCB ; DD098 BIT #UA.ALL,U.AFLG(R5) ;ALLOW THIS I/O REQUEST? ; DD098 BNE 10$ ;Y - JUMP ; DD098 MOV U.ACB(R5),R0 ;GET ACB ; DD098 MOV A.IOS(R0),R0 ;GET I/O ERROR CODE TO RETURN TO TASK ; DD098 BR IOFIN ;FINISH I/O ; DD098 10$: MOVB R4,I.PRM+7(R3) ;SAVE FLAGS IN I/O PACKET ; DD098 ; DD098 .IFF ;T$$ACD ; DD098 ; DD098 QUEUE: MOVB R4,I.PRM+7(R3) ;SAVE FLAGS IN I/O PACKET .ENDC ;T$$ACD ; DD098 ; DD098 .IF DF T$$GTS!T$$GMC BNE 20$ ;PACKET CANNOT BE PROCESSED ; DD129 ;IMMEDIATELY - JUMP ;**-1 JMP PPSPC1 ;PROCESS IMMEDIATELY .ENDC ;T$$GTS!T$$GMC 20$: BICB #S2.SRQ!S2.BRQ,I.PRM+7(R3) ; DD129 ;CLEAR SRQ AND BRQ FLAGS IN PACKET ;**-1 MOV U.SCB(R5),R0 ;GET I/O QUEUE LISTHEAD MOV R3,R1 ;GET PACKET POINTER CALL $QINSP ;INSERT PACKET ADD #U.TSTA,R5 ;POINT TO U.TSTA BIT #S2.SRQ,R4 ;SPECIAL FUNCTION (IO.ATT, IO.DET, IO.SMC)? BEQ 30$ ;N - JUMP ; DD129 MOV #S2.SRQ,R4 ;Y - CLEAR ALL OTHER BITS ;**-1 30$: BISB R4,2(R5) ;SET FLAGS TO INDICATE WHAT WE ; DD129 ;PUT IN THE QUEUE ;**-1 ;NOTE - MUST BE DONE A F T E R WE ;PUT PACKET IN THE QUEUE!! .IF DF M$$PRO MOV #FR.GRQ,R3 ;COME BACK AT FPGRQ CALL SWCPU ;SWITCH TO CORRECT CPU ; ; IF WE FALL THRU HERE, WE ARE ALREADY ON THE CORRECT CPU ; .ENDC ;M$$PRO CALL SETDSI ;DISABLE INPUT PROCESSING ;FALL THRU TO "FPGRQ" .PAGE ; ;+ ; FPGRQ - GET A REQUEST PACKET FROM THE I/O QUEUE. ; THIS SUBROUTINE IS ENTERED EITHER FROM THE REQUEST INITIATOR, ; OR FROM THE FORK DISPATCHER. ; ; INPUT: ; R5 POINTER TO U.TSTA ; S1.DSI 1 TO PREVENT PROCESSING OF INPUT ; ; OUTPUT: ; IF THERE IS AN IO.WBT PACKET IN THE QUEUE, A CTRL-Q IS ; SIMULATED. ; ; AS MANY PACKETS AS CAN BE DEQUEUED FROM THE IO QUEUE ; ARE STARTED. ; ; REGISTERS ALTERED: R0,R1,R2,R3,R4 ;- ; ; FPGRQ:: BITB #FR.PFP,U.TFRQ-U.TSTA(R5) ;POST-FORK PROCESSING REQUESTED? BNE 140$ ;Y - DON'T DEQUEUE ANYTHING ; DD129 ;**-1 .IF DF T$$BTW BIT #S2.BRQ,2(R5) ;ANY IO.WBT'S IN QUEUE? BEQ 10$ ;N - JUMP CALL I1CTQL ;RESUME OUTPUT WITH INTERRUPTS LOCKED OUT .ENDC ;T$$BTW 10$: ;REFERENCE LABEL ; DD074 ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 MOV #DEUCBX,-(SP) ;IF TSTRQ FAILS, DEALLOCATE UCB EXTENSION ; DD074 ; DD074 .IFTF ;NDF T$$SPL ; DD074 ; DD074 CALL TSTRQ ;TEST IF ANYTHING TO DEQUEUE ;**-1 ;IF NOT, DEALLOCATE UCBX AND RETURN TO CALLER ; DD074 .IFF ;NDF T$$SPL ; DD074 ; DD074 MOV R3,-(SP) ;SAVE FLAGS IN CASE $GSPKT FAILS ; DD074 ; DD074 .IFT ;NDF T$$SPL ; DD074 ; DD074 MOV R3,@SP ;THERE MAY BE SOMETHING - SAVE FLAGS ; DD074 .IFTF ;NDF T$$SPL ; DD074 ; DD074 SUB #U.TSTA,R5 ;POINT TO START OF UCB MOV #120$,R2 ;POINT TO ACCEPTANCE ROUTINE ; DD129 MOV R5,-(SP) ;SAVE POINTER TO UCB ;**-1 CALL $GSPKT ;GET A PACKET MOV (SP)+,R5 ;RESTORE POINTER TO UCB BCS 170$ ;FAILED - JUMP ; DD129 ; ;**-1 ; WE GOT A PACKET - ADDRESS IN R1 ; TST (SP)+ ;CLEAN STACK .IF DF T$$BTW MOV U.SCB(R5),R3 ;GET POINTER TO SCB 20$: MOV @R3,R3 ;GET POINTER TO NEXT I/O PACKET IN QUEUE ; DD129 BEQ 30$ ;NONE - JUMP ; DD129 CMP I.UCB(R3),R5 ;IS THAT PACKET FOR THIS UCB? ;**-2 BNE 20$ ;N - SKIP THIS PACKET ; DD129 CMPB I.PRI(R3),#251. ;IS IT AN IO.WBT? ;**-1 BEQ 40$ ;Y - JUMP ; DD129 30$: BIC #S2.BRQ,U.TSTA+2(R5) ;N - SHOW NO MORE IO.WBTS IN QUEUE ; DD129 ;**-2 .ENDC ;T$$BTW 40$: ADD #U.TSTA,R5 ;POINT TO U.TSTA ; DD129 MOV R1,R3 ;COPY PACKET POINTER ;**-1 CLR @R3 ;CLEAR LINK WORD MOVB I.FCN+1(R3),R1 ;GET FUNCTION CODE ; DD074 .IFF ;NDF T$$SPL ; DD074 ; DD074 MOV U.TAPR-U.TSTA(R5),@#KDSAR5 ;MAP UCBX ; DD074 MOV #120000,R4 ;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFTF ;NDF T$$SPL ; DD074 ; DD074 .IIF NDF T$$SPL, N$$SPL=0 ; DD074 .IF DF T$$MOD!N$$SPL ; DD074 ; DD074 ; ; NOTE - HERE WE ASSUME NUMERIC VALUES FOR FUNCTION CODES ACCORDING ; TO WHAT IS DESCRIBED IN MODULE TTDAT! ; CMP R1,#IO.RTT/400 ;UCBX AND/OR MODEM CHECK REQUIRED? ; DD074 ;(NOT FOR FUNCTIONS > IO.RTT) ; DD074 BHI 100$ ;N - JUMP ; DD074 CMP R1,#IO.RPR/400 ;CHECK AGAIN ;**-3 ;(IO.RTT & IO.RPR REQUIRE UCBX AND MODEM CHECK) ; DD074 BHIS 50$ ;Y - JUMP ; DD129 CMP R1,#IO.ATT/400 ;CHECK AGAIN ;**-2 ;(NOT FOR IO.DET, IO.GTS, SF.GMC OR SF.SMC) ; DD074 BHI 100$ ;N - JUMP ; DD074 ;**-2 .ENDC ;T$$MOD!N$$SPL ; DD074 ; DD074 .IF NDF T$$MOD ; DD074 ; DD074 50$: ;REFERENCE LABEL ; DD074 ; DD074 .IFF ;NDF T$$MOD ; DD074 ;**-1 BEQ 60$ ;IO.ATT - JUMP ; DD129 50$: BITB #US.DSB!US.CRW,U.STS-U.TSTA(R5) ; DD129 ;IO.RLB, IO.WLB, IO.RPR OR IO.RTT - IS LINE ; DD074 ;DISABLED OR WAITING FOR CARRIER? ;**-4 BEQ 60$ ;N - JUMP ; DD129 MOV #IE.DNR&377,R0 ;Y - ERROR "DEVICE NOT READY" ;**-1 BR 80$ ; DD129 60$: ;REFERENCE LABEL ; DD074 ;**-1 .ENDC ;NDF T$$MOD ; DD074 ; DD074 .IFT ;NDF T$$SPL ; DD074 ;**-5 CALL ALUCBX ;ALLOCATE UCBX IF IT ISN'T THERE ; DD074 BCS 70$ ;NO FREE POOL - JUMP ; DD074 ; DD074 .IFTF ;NDF T$$SPL ; DD074 ; DD074 CMPB I.FCN+1(R3),#IO.RTT/400 ;IS THIS AN IO.RTT? ; DD074 BNE 100$ ;N - JUMP ; DD129 CALL ALTB ;ALLOCATE A TABLE ;**-12 BCC 90$ ;OK - JUMP ; DD074 70$: MOV #IE.NOD&377,R0 ;ERROR - NO DYNAMIC MEMORY AVAILABLE ; DD074 80$: CALL IOFIN ;FINISH I/O ; DD074 BR 10$ ;TRY AGAIN ; DD074 90$: MOV R2,U.TRTT(R4) ;COPY ITS ADDRESS INTO THE UCBX ; DD074 100$: ASL R1 ;GET WORD INDEX ; DD129 ; DD098 .IF DF T$$ACD ; DD098 ; DD098 MOV #UA.ALL,U.AFLG-U.TSTA(R5) ;SET DEFAULT PROCESSING ; DD098 MOV U.ACB-U.TSTA(R5),R0 ;GET ACB ; DD098 BEQ 110$ ;THERE IS NONE - JUMP ; DD098 BIT $BTMSK(R1),A.MAS(R0) ;IS THE ACD INTERESTED IN THIS FUNCTION? ; DD098 BEQ 110$ ;N - JUMP ; DD098 MOV #A.DEQU,R0 ;SET I/O PACKET DEQUEUE ENTRY POINT ; DD098 CALL $SWACD ;CALL ACD ; DD098 BIT #UA.ALL,U.AFLG-U.TSTA(R5) ;ALLOW THIS I/O REQUEST? ; DD098 BNE 110$ ;Y - JUMP ; DD098 MOV U.ACB-U.TSTA(R5),R0 ;GET ACB ; DD098 MOV A.IOS(R0),R0 ;GET I/O ERROR CODE TO RETURN TO TASK ; DD098 BR 80$ ;FINISH I/O ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 110$: CALL @PPDSP-2(R1) ;DO OR START FUNCTION ; DD129 BR 10$ ;LOOP ;**-4 ; ; ; ACCEPTANCE ROUTINE FOR $GTPKS ; 120$: CMP I.UCB(R1),G$$SPA(SP) ;IS THIS PACKET FOR THE CURRENT UCB? ; DD129 BEQ 130$ ;Y - JUMP ; DD129 SEC ;N - DON'T ACCEPT IT ;**-2 RETURN 130$: BITB I.PRM+7(R1),U.TSTA(R5) ;CAN WE PROCESS THIS PACKET? ; DD129 BNE 150$ ;N - JUMP ; DD129 ;**-2 .IF DF T$$BTW ASSUME S2.FDX,100000 TST U.TSTA+2(R5) ;FULL DUPLEX LINE? (CLEAR CC-C) BMI 140$ ;Y - ACCEPT ; DD129 BIT #S1.IBY!S1.OBY,U.TSTA(R5) ;ANYTHING BUSY? ;**-1 BEQ 140$ ;N - ACCEPT ; DD129 ; ;**-1 ; THE LINE IS NOT IN FULL DUPLEX MODE, AND EITHER INPUT OR OUTPUT IS ; BUSY. IN THIS CASE, THE ONLY PACKET WE CAN ACCEPT IS IO.WBT. ; IO.WBT PACKETS HAVE PRIORITY 251., AND ALL OTHERS HAVE LOWER ; PRIORITY. IF THIS PACKET IS NOT AN IO.WBT, WE KNOW THAT THERE ; ARE NO IO.WBT'S FURTHER DOWN THE QUEUE EITHER, SO WE ABORT THE SCAN. ; CMPB I.PRI(R1),#251. ;IS THIS AN IO.WBT? (CLEAR CC-C IF YES) BNE 160$ ;N - REJECT ; DD129 ; ;**-1 ; ACCEPT PACKET ; .IFF ;T$$BTW CLC ;ACCEPT - CLEAR CC-C .ENDC ;T$$BTW 140$: RETURN ;RETURN ; DD129 ; ;**-1 ; IF PACKET REQUIRES BOTH INPUT AND OUTPUT TO BE FREE, ; ABORT SCAN. ELSE REJECT PACKET (RETURN WITH CC-C = 1). ; ASSUME S2.ORQ,100 ASSUME S2.IRQ,200 150$: CMPB I.PRM+7(R1),#S1.IBY!S1.OBY ; DD129 BLO 140$ ;REJECT IF NOT BOTH INPUT AND OUTPUT REQUIRED ; DD129 ;TO BE FREE (BRANCH WITH CC-C = 1) ;**-2 ; ; FOUND A PACKET THAT REQUIRES BOTH INPUT AND OUTPUT TO BE FREE. ; ABORT SCAN SO THE PACKET WILL GET A CHANCE TO BE DEQUEUED ONCE ; ALL REQUESTS IN FRONT OF IT ARE DONE. ; 160$: ADD #G$$SPA,SP ;FLUSH STACK ; DD129 MOV (SP)+,R5 ;RESTORE POINTER TO UCB ;**-1 CLR @SP ;DON'T CHANGE FLAGS IN U.TSTA+2 ; ; NO PACKET CAN BE DEQUEUED ; 170$: ADD #U.TSTA,R5 ;POINT TO U.TSTA ; DD129 BIC (SP)+,2(R5) ;UPDATE FLAGS TO REFLECT QUEUE CONTENTS ;**-1 ; DD074 .IFT ;NDF T$$SPL ; DD074 ; DD074 CALLR DEUCBX ;DEALLOCATE UCBX IF POSSIBLE AND RETURN ; DD074 .IFF ;NDF T$$SPL ; DD074 ; DD074 RETURN ; DD074 ; DD074 .ENDC ;NDF T$$SPL ; DD074 ; DD074 ; ; ;+ ; SUBROUTINE TSTRQ - TEST I/O QUEUE. ; ; INPUT: ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF THERE IS (POTENTIALLY) A PACKET IN THE I/O QUEUE THAT ; CAN BE PROCESSED: ; RETURN TO CALLER WITH R3 = MASK OF BITS TO CLEAR IN U.TSTA+2 ; IF NO PACKET COULD BE DEQUEUED ; ; IF NOT: ; RETURN TO CALLER'S CALLER. ; ; REGISTERS ALTERED: R3 ;- ; ; TSTRQ:: MOV @R5,R3 ;GET STATUS WORD 1 COM R3 ;INVERT BIC #^C,R3 ;CLEAR ALL BUT INPUT AND OUTPUT BUSY FLAGS BIS #S2.SRQ,R3 ;OR WITH S2.SRQ FLAG BIT R3,2(R5) ;ANYTHING IN QUEUE THAT CAN BE PROCESSED? BEQ 10$ ;N - JUMP BIT #S2.FDX!S2.BRQ,2(R5) ;Y - FULL ÊDUPLEX LINE, OR IO.WBT IN QUEUE? BNE 20$ ;Y - JUMP BIT #S1.IBY!S1.OBY,@R5 ;N - ANYTHING BUSY? BEQ 20$ ;N - JUMP 10$: TST (SP)+ ;RETURN TO CALLER'S CALLER 20$: RETURN ;RETURN ; ; .END Ê*€€¢kQ ›c, .TITLE TTJZ .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 27-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; ; ;+ ; COMMON ROUTINES FOR DJ-11 AND DZ-11 CONTROLLERS. ;- ; ; .IF DF D$$J11!D$$Z11 .MCALL UCBDF$, SCBDF$ ; UCBDF$ ;DEFINE UCB SYMBOLS SCBDF$ ;DEFINE SCB SYMBOLS ; DD021 .PSECT MAP5 ; DD021 ; ; ;+ ; YJSTAX/YZSTAX - START OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; U.TOP+2 BUFFER ADDRESS ; U.TOC BYTE COUNT ; S1.CTO 0 ;- ; ; .ENABL LSB ; YJSTAX:: YZSTAX::BIT #S1.CTS,@R5 ;;;OUTPUT STOPPED BY CTRL-S? BNE 10$ ;;;Y - IGNORE ; ; ;+ ; YJRESX/YZRESX - RESUME OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; S1.CTS 0 ;- ; ; YJRESX:: YZRESX::BIS $BTMSK(R2),4(R3) ;;;ENABLE TRANSMIT INTERRUPTS ;;;THE FIRST INTERRUPT WILL START ;;;(OR RESUME) OUTPUT. 10$: RETURN ;;; ; ; ;+ ; JZOUT - COMMON OUTPUT INTERRUPT PROCESSING FOR DJ-11 AND DZ-11. ; ; INPUT: ; 2(SP) POINTER TO CONTROLLER REGISTER (BYTE) ; THAT CONTAINS INTERRUPTING LINE NUMBER IN BITS 0-3 ; R3 CSR ADDRESS ; R4 KRB ADDRESS (RSX-11M+) ; R4 ADDRESS OF UCB LIST (RSX-11M) ; ; OUTPUT: ; FIRST, ALL LINES THAT REQUIRE OUTPUT WORK ARE SERVICED. ; NEXT, IF ANY LINE REQUIRES INPUT WORK, THE SILO IS EMPTIED. ; IF AT THAT TIME OUTPUT WORK IS AGAIN REQUIRED (THERE WILL BE ; IF THERE WAS ANY INPUT THAT REQUIRES ECHO), THE LOOP ; LOOKING FOR OUTPUT WORK IS REENTERED. ; ON RETURN, ALL OUTPUT AND INPUT WORK THAT CAN BE DONE IS DONE. ; ; REGISTERS ALTERED: R2,R5 ;- ; ; JZOUT:: MOVB @2(SP),R5 ;;;GET INTERRUPTING LINE NUMBER CALL MUXUCB ;;;CHECK LINE NUMBER AND GET UCB ADDRESS MOV $BTMSK(R2),R2 ;;;GET BITMASK FOR XMIT ENABLE BCS 30$ ;;;BAD LINE - JUMP .IF DF R$$MPL MOV R4,-(SP) ;;;SAVE KRB POINTER CALL OUTISR ;;;DO COMMON OUTPUT INTERRUPT PROCESSING MOV (SP)+,R4 ;;;RESTORE KRB POINTER MOV @R4,R3 ;;;RESTORE CSR POINTER .IFF ;R$$MPL MOV R3,-(SP) ;;;SAVE CSR MOV R4,-(SP) ;;;SAVE ADDRESS OF UCB LIST CALL OUTISR ;;;DO COMMON OUTPUT INTERRUPT PROCESSING MOV (SP)+,R4 ;;;RESTORE ADDRESS OF UCB LIST MOV (SP)+,R3 ;;;RESTORE CSR ADDRESS .ENDC ;R$$MPL 20$: TST @R3 ;;;XMIT READY? BMI JZOUT ;;;Y - LOOP ; ; NO MORE LINES REQUIRE OUTPUT WORK. SEE IF ANY INPUT WORK TO DO. ; MOV 2(R3),R5 ;;;GET A CHARACTER FROM SILO BPL 10$ ;;;NONE - EXIT CALL MUXIN1 ;;;OK - PROCESS INPUT CHARACTER ;;;MUXIN1 RETURNS TO OUR CALLER IF ;;;NO OUTPUT WORK TO DO BR JZOUT ;;;OUTPUT WORK TO DO - LOOP ; ; OUTPUT INTERRUPT OCCURRED ON A LINE THAT WE DON'T RECOGNIZE. ; I DON'T ÄKNOW HOW IT GOT HERE BUT LET'S TRY TO PREVENT IT ; FROM HAPPENING AGAIN. ; 30$: BIC R2,4(R3) ;;;DISABLE XMIT ON THAT LINE BR 20$ ;;; ; .DSABL LSB .ENDC ;D$$J11!D$$Z11 ; ; .END Ä-€¸kQ ›c,.NLIST ;+ ; TTMAC - ASSEMBLY PREFIX FILE FOR TTDRV. ;- ; ; 13-FEB-78 PETER WANNHEDEN ; ; MODIFICATIONS: ; ; PW001 06-APR-78 PETER WANNHEDEN ; REMOVE DEFINITIONS FOR TEST PURPOSES (T$$ESC AND T$$SMC) ; PW010 14-APR-78 ; SUPPORT DEVICE-INDEPENDENT CURSOR POSITIONING. ; PW011 14-APR-78 PETER WANNHEDEN ; ALLOW CTRL-R OF PROMPT BUFFER FOR IO.RPR ON FULL DUPLEX LINE. ; PW027 11-MAY-78 PETER WANNHEDEN ; REMOVE A FEW DEFINITIONS THAT ARE NOW IN TTSYM$. ; MAKE LOADABLE CTB UNCONDITIONAL. ; PW030 26-MAY-78 PETER WANNHEDEN ; TURN OFF DEBUG CODE. ; CS013 3-JUN-78 CHUCK SPITZ ; ADD CONDITIONALS FOR RSX-11M ; DD005 06-OCT-78 DALE R. DONCHIN ; ADD READ WITH TERMINATOR TABLE FUNCTION ; DD007 06-NOV-78 DALE R. DONCHIN ; CONDITIONALIZE EIS INSTRUCTIONS ON R$$EIS ; CJR001 22-FEB-79 CRAIG J. RICHARDSON ; ADD SCS-11 CONTROL/C SUPPORT ; DD024 17-JUL-79 DALE R. DONCHIN ; HANG UP DZ11 REMOTE LINE IF CARRIER NOT SEEN WITHIN ; TIMEOUT PERIOD ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD083 15-OCT-80 DALE R. DONCHIN ; REMOVE SCS CONDITIONALS AND CODE ; DD084 22-OCT-80 DALE R. DONCHIN ; CONDITIONALIZE EIS SUPPORT ON M$$EIS ; DD096 12-MAR-81 DALE R. DONCHIN ; IMPROVE INTERRUPT HANDLING PERFORMANCE ; DD112 09-JUN-81 DALE R. DONCHIN ; ADD CTOCS SUPPORT ; DD114 19-JUN-81 DALE R. DONCHIN ; QUEUE UNSOLICITED COMMAND LINES VIA SEC POOL FOR RSX-11M-PLUS ; DD115 23-JUN-81 DALE R. DONCHIN ; ALLOW VARIABLE LENGTH TYPEAHEAD BUFFERS ON RSX-11M-PLUS ; DD116 30-JUN-81 DALE R. DONCHIN ; ADD SERIAL COMMAND PROCESSING CAPABILITY TO RSX-11M-PLUS ; DD117 14-JUL-81 DALE R. DONCHIN ; ENHANCE CLI CONTINUATION LINE PROCESSING ; DD119 21-JUL-81 DALE R. DONCHIN ; ALLOW BUILD TIME SPECIFICATION OF OUTPUT TIMEOUT INTERVAL ; DD122 03-AUG-81 DALE R. DONCHIN ; USE SYMBOLIC NAMES FOR CONTROLLER DEPENDENT ROUTINE INDICES ; DD138 06-DEC-81 DALE R. DONCHIN ; INCLUDE DZ11 AND DZ11 MODEM SUPPORT FOR THE RL02 SYSTEM ; ; .MCALL UCBDF$, TTSYM$ ; UCBDF$ ,,TTDEF ;DEFINE UCB OFFSETS TTSYM$ ;DEFINE TC.XXX SYMBOLS ; ; ; ASSEMBLY PARAMETERS ; DD094 ; ;**-1 T$$BFL= 40. ;BUFFER LENGTH ;**-3 M$$ANS= 15. ;SECONDS TO WAIT FOR CARRIER AFTER RING M$$CAR= 2 ;SECONDS TO WAIT FOR LOST CARRIER TO RETURN TTPRI= 240 ;PRIORITY 5 M$$CRI= M$$CRB-4 ;NUMBER OF BYTES OF INFORMATION ;IN CLI COMMAND BUFFER T$$CTX= 0 ;^X FLUSHES TYPEAHEAD ; DD112 OPTIME= 5 ;DEFAULT OUTPUT TIMEOUT INTERVAL ; DD119 ; ; TURN ON DEBUGGING CODE IF XDT IS IN SYSTEM ; .IIF DF X$$DBT DEBUG= 1 ; ;**-2 .IIF DF T$$BTW,T$$CTR=0 ;T$$BTW FORCES T$$CTR .IIF DF R$$L02,D$$Z11=0 ;INCLUDE DZ11 SUPPORT IN THE RL02 SYSTEM; DD138 .IIF DF R$$L02,D$$LMD=0 ;INCLUDE DL11 MODEM SUPPORT ; DD138 .IIF DF R$$L02,D$$ZMD=0 ;INCLUDE DZ11 MODEM SUPPORT ; DD138 .IIF DF D$$M11!D$$ZMD!D$$LMD,T$$MOD=0 ;MODEM SUPPORT .IIF DF D$$H11!D$$J11!D$$Z11,T$$MUX=0 ;MULTIPLEXER SUPPORT .IIF DF R$$MPL,R$$EIS=0 ;RSX-11M-PLUS EIS SUPPORT ; DD084 .IIF DF M$$EIS,R$$EIS=0 ;RSX-11M EIS SUPPORT ; DD084 .IIF DF D$$ZMD,DZTIME=20. ;DTR TIMER FOR DZ-11 ; DD024 .IIF DF P$$OOL&T$$COM,T$$SPL=0 ;USE SECONDARY POOL FOR UCBX AND TABUF ; DD074 .IIF DF R$$MPL&P$$OOL,T$$SPC=0 ;USE SECONDARY POOL CLI COMMAND BUFFERS ; DD114 .IIF DF R$$MPL,T$$SER=0 ;SERIAL COMMAND PROCESSING (CLI TABUF) ; DD116 .IIF DF A$$CLI, .IIF DF M$$CLI, .ERROR ;ILLEGAL COMBINATION OF PARAMETERS ; DD094 ; ;**-1 ; .MACRO TTSET$ TYPE JSR R2,TTSET .IF DF R$$MPL .WORD 'TYPE'CTBP .IFF .WORD 'TYPE'UCB ; DD096 ;**-1 .ENDC .ENDM TTSET$ ; .IF NDF R$$MPL ; ; DEFINE CONTROLLER TYPES (RSX-11M) ; TTTDL=0 TTTDZ=2 TTTDH=4 TTTDJ=6 TTTDM=10 ;DM11-BB ; .ENDC ;NDF R$$MPL ; ; ; DEFINE CHARACTERS WITH SPECIAL SIGNIFICANCE ; CH.BSL= 134 CH.BSP= 10 CH.CR= 15 CH.CTC= 3 CH.CTO= 17 CH.CTQ= 21 CH.CTR= 22 CH.CTS= 23 CH.CTU= 25 CH.CTX= 30 CH.CTZ= 32 CH.DOL= '$ CH.ESC= 33 CH.FF= 14 CH.HT= 11 CH.LF= 12 CH.NUL= 0 CH.ONE= '1 CH.PLU= '+ CH.RUB= 177 CH.SP= 40 CH.VT= 13 CH.ZER= '0 ; ; ; DEFINE OFFSETS IN UCB EXTENSION (UCBX) ; .ASECT .= 0 U.TCI: .BLKW 1 ;IF SOLICITED INPUT IN PROGRESS: ; POINTER TO CURRENT INPUT REQUEST PACKET ;IF UNSOLICITED INPUT IN PROGRESS: ; POINTER TO SECOND WORD IN FIRST BUFFER ;IF INPUT IDLE: ; 0 U.TIP: .BLKW 2 ;IF BUFFERED INPUT IN PROGRESS: ; FIRST WORD = POINTER TO CURRENT BUFFER ; SECOND WORD = POINTER TO NEXT BYTE ; IN CURRENT BUFFER ;IF NON-BUFFERED INPUT IN PROGRESS: ; FIRST WORD = KISAR6 BIAS FOR TASK BUFFER ; SECOND WORD = VIRTUAL ADDRESS IN KISAR6 ; OF NEXT BYTE IN TASK BUFFER U.TIC: .BLKW 1 ;REMAINING BYTES IN CURRENT INPUT BUFFER U.TTIC: .BLKW 1 ;TOTAL REMAINING BYTES TO INPUT ;(EXCLUDING CURRENT BUFFER) U.TFIB: .BLKW 1 ;POINTER TO FIRST INPUT BUFFER (ONLY WITH ;BUFFERED INPUT) U.TCO: .BLKW 1 ;IF TASK OUTPUT IN PROGRESS: ; POINTER TO CURRENT OUTPUT REQUEST PACKET ;IF ECHO IN PROGRESS, OR OUTPUT IDLE: ; 0 U.TOP: .BLKW 2 ;FIRST WORD = POINTER TO CURRENT OUTPUT BUFFER ;SECOND WORD = POINTER TO NEXT BYTE IN ;CURRENT OUTPUT BUFFER U.TOC: .BLKW 1 ;REMAINING BYTES IN CURRENT OUTPUT BUFFER U.TTOC: .BLKW 1 ;TOTAL REMAINING BYTES TO OUTPUT ;(EXCLUDING CURRENT BUFFER) U.TFOB: .BLKW 1 ;POINTER TO FIRST OUTPUT BUFFER U.TFPB: .BLKW 1 ;FIRST PROMPT BUFFER FOR IO.RPR U.TAST: .BLKW 1 ;POINTER TO AST BLOCK ;0 IF NO AST SET UP U.TISV: .BLKB 1 ;INPUT STATE VARIABLE U.TIHP: .BLKB 1 ;INITIAL HORIZONTAL POSITION FOR INPUT ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 U.TECB: ;ECHO BUFFER ; DD074 ; DD074 .ENDC ; DD074 ; DD074 .BLKB 1 ; DD074 U.TVFC: .BLKB 1 ;VERTICAL FORMAT CONTROL ;**-1 U.TITI: .BLKB 1 ;INPUT TIMER U.TOTI: .BLKB 1 ;OUTPUT TIMER U.TSHP: .BLKB 1 ;SAVED HORIZONTAL POSITION U.TSVP: .BLKB 1 ;SAVED VERTICAL POSITION ; U.TRTT: .BLKW 1 ;SPECIAL TERMINATORS TABLE T$$UXL= . ;DEFINE UCB EXTENSION LENGTH ; DD115 .PSECT ; ; ; DEFINE BITS IN FORK REQUEST BYTE (U.TFRQ). ; FORK REQUESTS ARE PROCESSED IN ASCENDING BIT ORDER. ; NOTE - INPUT DONE (FR.IRD) MUST BE PROCESSED BEFORE OUTPUT DONE ; (FR.ORD) FOR THE SIMULATED CTRL-R FOLLOWING AN IO.WBT TO WORK. ; SEE NOTE IN MODULE TTRW. ; FR.IRD= 1 ;INPUT DONE FR.ORD= 2 ;OUTPUT DONE FR.SUI= 4 ;START OF UNSOLICITED INPUT X= 4 .IF DF T$$CCA&A$$TRP X= X*2 FR.AST= X ;CHARACTER THAT CAUSES AST RECEIVED .ENDC ;T$$CCA&A$$TRP .IF DF M$$PRO X= X*2 FR.TIM= X ;TIME-OUT (ON MULTI-CPU SYSTEM ONLY) .ENDC ;M$$PRO .IF DF T$$SPC ; DD117 ; DD117 X= X*2 ; DD117 FR.KIL= X ;SEND KILL PACKET TO CLI ; DD117 ; DD117 .ENDC ;T$$SPC ; DD117 ; DD117 X= X*2 FR.GRQ= X ;GET REQUEST PACKET X= X*2 ;**-7 FR.PFP= X ;PROCESS CHAR. IN U.TECB (U.TECO) AT END ; DD074 ;OF FORK PROCESSING. NOTE - THIS MUST BE ;**-1 ;THE HIGHEST USED BIT IN U.TFRQ!! ; ; ; DEFINE CONTROLLER DEPENDENT ROUTINE DISPATCH TABLE OFFSETS. ; DD122 ; REGISTER R2 IS SET TO THE REQUIRED OFFSET BEFORE THE CTRD ROUTINE IS ; DD122 ; CALLED TO TRANSFER CONTROL TO THE APPROPRIATE CONTROLLER DEPENDENT ; DD122 ; MODULE. THESE VALUES ARE AFFECTED BY GET/SET PARAMETER AND ; DD122 ; RECONFIGURATION CONDITIONAL CODE, WHICH MAKES IT EASIER TO CONTEND WITH ; DD122 ; AND DEFINE THE SYMBOLS HERE THAN TO PROVIDE THE PROPER CONDITIONAL CODE ; DD122 ; WHEREVER THE CTRD ROUTINE IS CALLED. ; DD122 ; ; DD122 CT.STA= 0 ;START OUTPUT ; DD122 CT.ABO= 2 ;ABORT OUTPUT ; DD122 CT.RES= 4 ;RESUME OUTPUT ; DD122 CT.STP= 6 ;STOP OUTPUT ; DD122 X= 6 ; DD122 ; DD122 .IF NDF R$$CON ; DD122 ; DD122 X= X+2 ; DD122 CT.PWR= X ;POWER-UP ; DD122 ; DD122 .IFTF ;NDF R$$CON ; DD122 ; DD122 X= X+2 ; DD122 CT.TIM= X ;MODEM TIME-OUT ; DD122 ; DD122 .IFF ;NDF R$$CON ; DD122 ; DD122 X= X+2 ; DD122 CT.CPW= X ;CONTROLLER POWER-UP ; DD122 ; DD122 X= X+2 ; DD122 CT.UPW= X ;UNIT POWER-UP ; DD122 ; DD122 X= X+2 ; DD122 CT.CON= X ;CONTROLLER ONLINE ; DD122 ; DD122 X= X+2 ; DD122 CT.COF= X ;CONTROLLER OFFLINE ; DD122 ; DD122 X= X+2 ; DD122 CT.UON= X ;UNIT ONLINE ; DD122 ; DD122 X= X+2 ; DD122 CT.UVOF= X ;UNIT OFFLINE ; DD122 ; DD122 .ENDC ;NDF R$$CON ; DD122 ; DD122 .IF DF T$$GMC!T$$SMC!D$$M11!D$$ZMD ; DD122 ; DD122 X= X+2 ; DD122 CT.PRM= X ;GET/SET LINE PARAMETERS ; DD122 ; DD122 .ENDC ;T$$GMC!T$$SMC!D$$M11!D$$ZMD ; DD122 ; DD122 .LIST V-€8;kQ ›c, .TITLE TTMIS .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 23-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; C. F. SPITZ ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; ;+ ; COMMON MULTIPLEXER INTERRUPT SERVICE ROUTINES. ; USED BY FOLLOWING CONTROLLERS: DH, DJ, DZ. ;- ; ; .IF DF T$$MUX .MCALL UCBDF$,SCBDF$ .IF DF R$$MPL .MCALL KRBDF$ KRBDF$ ;DEFINE KRB SYMBOLS .ENDC ;R$$MPL UCBDF$ ;DEFINE UCB SYMBOLS SCBDF$ ;DEFINE SCB SYMBOLS ; D0021 .PSECT MAP6 ; D0021 ; ; ;+ ; MUXINP - INPUT INTERRUPT SERVICE FOR MULTIPLEXERS. ; ; INPUT: ; R3 CSR ADDRESS ; R4 KRB ADDRESS (RSX-11M+) ; R4 ADDRESS OF UCB LIST (RSX-11M) ; ; ALTERNATE ENTRY - MUXIN1. ; ; INPUT: ; R3 CSR ADDRESS ; R4 KRB ADDRESS (RSX-11M+) ; R4 ADDRESS OF UCB LIST (RSX-11M) ; R5 CHARACTER + STATUS FROM SILO ; CC-N 1 IF R5 CONTAINS VALID CHARACTER ; ; OUTPUT FROM BOTH: ; SILO EMPTIED. IF TRANSMIT READY IS SET IN CSR, ; A RETURN TO CALLER IS MADE WITH R3 AND R4 UNCHANGED. ; ELSE A RETURN TO CALLER'S CALLER IS MADE. ; ; REGISTERS ALTERED: R2,R5 ;- ; ; MUXIN1::MOV R5,-(SP) ;;;SAVE CHAR SWAB R5 ;;;GET LINE NUMBER IN LOW BYTE CALL MUXUCB ;;;GET UCB IN R5 MOV (SP)+,R2 ;;;RETRIEVE CHAR + STATUS BCS MUXINP ;;;BAD LINE - IGNORE CHARACTER .IF DF R$$MPL MOV R4,-(SP) ;;;OK - SAVE KRB ADDRESS CALL ICHAR1 ;;;DO COMMON INPUT INTERRUPT PROC. MOV (SP)+,R4 ;;;RESTORE KRB ADDRESS MOV @R4,R3 ;;;RESTORE CSR ADDRESS .IFF ; DD129 MOV R3,-(SP) ;;;SAVE CSR MOV R4,-(SP) ;;;SAVE ADDR OF UCB LIST CALL ICHAR1 ;;;DO COMMON INPUT INTERRUPT PROC. MOV (SP)+,R4 ;;;RESTORE ADDR OF UCB LIST MOV (SP)+,R3 ;;;RESTORE CSR .ENDC ;R$$MPL MUXINP::MOV 2(R3),R5 ;;;GET NEXT CHARACTER FROM SILO BMI MUXIN1 ;;;OK - JUMP ; ; SILO IS NOW EMPTY. SEE IF CONTROLLER IS READY TO TRANSMIT ; TST @R3 ;;;XMIT RDY SET? BMI 10$ ;;;Y - RETURN TST (SP)+ ;;;N - POP 1.ST RETURN ADDRESS 10$: RETURN ;;;RETURN ; ; ;+ ; MUXUCB - GET UCB FROM LINE NUMBER. ; ; INPUT: ; R4 KRB ADDRESS (RSX-11M+) ; R4 ADDRESS OF UCB LIST (RSX-11M) ; R5 LINE NUMBER IN BITS 0-3 ; ; OUTPUT: ; R2 LINE NUMBER * 2 ; R5 POINTER TO U.TSTA (IF VALID LINE) ; CC-C 0 IF VALID LINE ; 1 IF INVALID LINE ; ; REGISTERS ALTERED: R2,R5 ;- ; ; MUXUCB::BIC #^C17,R5 ;;;CLEAR IRRELEVANT BITS .IF DF R$$MPL MOV R5,R2 ;;;COPY LINE NUMBER ASL R2 ;;;MAKE INDEX FOR UCB TABLE CMPB K.HPU(R4),R5 ;;;LINE IN USE? BLO 10$ ;;;N - EXIT WITH CC-C SET MOV R4,R5 ;;;GET KRB ADDRESS ADD K.OFF(R4),R5 ;;;ADD OFFSET TO UCB LIST ADD R2,R5 ;;;ADD LINE NUMBER * 2 - YIELDING ;;;POINTER TO UCBÊ POINTER MOV @R5,R5 ;;;GET UCB POINTER ADD #U.TSTA,R5 ;;;POINT TO U.TSTA AND CLEAR CC-C 10$: RETURN ;;;RETURN .IFF ;R$$MPL ASL R5 ;;;GET UNIT NUMBER * 2 MOV R5,R2 ;;;SAVE IT ADD R4,R5 ;;;GET UCB POINTER MOV (R5),R5 ;;;POINT TO UCB BEQ 10$ ;;;LINE NOT IN USE ADD #U.TSTA,R5 ;;;POINT TO U.TSTA AND CLEAR CC-C RETURN ;;;RETURN 10$: SEC ;;;SET CC-C RETURN ;;;RETURN .ENDC ;R$$MPL .ENDC ;T$$MUX ; ; .END Ê-€`^kQ ›c, .TITLE TTMOD .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 26-FEB-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD062 14-APR-80 DALE R. DONCHIN ; KILL ALL OUTPUT WHEN HANGING UP A REMOTE LINE ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD090 08-DEC-80 DALE R. DONCHIN ; ADD PER UNIT ANSWER SPEED AND AUTOBAUD DETECT ; DD094 01-MAR-81 DALE R. DONCHIN ; ADD ALTERNATE CLI SUPPORT ; DD112 09-JUN-81 DALE R. DONCHIN ; ADD CTOCS SUPPORT ; DD114 19-JUN-81 DALE R. DONCHIN ; QUEUE UNSOLICITED COMMAND LINES VIA SEC POOL FOR RSX-11M-PLUS ; DD128 05-NOV-81 DALE R. DONCHIN ; IMPROVE AUTOBAUD DETECT ALGORITHM ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; ; D0021 .PSECT MAP6 ; D0021 ; ;+ ; TTMOD - MODEM SUPPORT ROUTINES. ; CONTAINS THE FOLLOWING ROUTINES: ; ; MODISR INTERRUPT SERVICE ROUTINE FOR DM11-BB AND DL11-E ; CONTROLLERS ; MTIM SUBROUTINE TO SERVICE TIME-OUT FOR DM11-BB AND DL11-E ; MANS SUBROUTINE TO ANSWER A CALL ON A LINE ; MHUP SUBROUTINE TO HANG UP A LINE ;- ; ; .IF DF T$$MOD ; EQUATED SYMBOLS ; DTR = 2 ;DATA TERMINAL READY RTS = 4 ;REQUEST TO SEND ; ; .ENABL LSB .IF DF D$$M11!D$$LMD ;+ ; MODISR - INTERRUPT SERVICE ROUTINE FOR DATASET STATUS CHANGE INTERRUPT ; ON DM11-BB OR DL11-E. ; ; INPUT: ; R3 POINTER TO LINE STATUS REGISTER ; (CONTAINING DTR AND RTS BITS) ; R4 BIT 7: 1 IF RING HAS OCCURRED (DM11-BB) ; 1 IF LINE IS RINGING (DL11-E) ; BIT 6: 1 IF DATASET SHOWS "CLEAR TO SEND" ; BIT 5: 1 IF DATASET SHOWS "CARRIER ON" ; R5 POINTER TO U.TSTA ; ;**-1 ; OUTPUT: ; 1. IF LINE IS OFFLINE OR NOT REMOTE, NO ACTION. ; 2. IF LINE IS DISABLED AND NOT WAITING FOR CARRIER: ; 2.1 IF RING SEEN, SET DTR AND RTS. SET A TIMER FOR ; M$$ANS SECONDS. ; (ANSWER A CALL AND WAIT FOR CARRIER). ; 2.2 IF NO RING SEEN, NO ACTION. ; 3. IF LINE IS DISABLED AND WAITING FOR CARRIER: ; (RING FLAG IS IGNORED) ; 3.1 IF CARRIER AND CTS ARE ON, CLEAR WAITING FLAG ; AND ENTER SUBROUTINE "MANS". ; (CARRIER APPEARED WITHIN WAITING PERIOD M$$ANS ; AFTER ANSWERING A CALL). ; 3.2 IF CARRIER OR CTS IS OFF, NO ACTION. ; 4. IF LINE IS ENABLED AND NOT WAITING FOR CARRIER: ; 4.1 IF RING SEEN, SET A TIMER FOR 1 SECOND AND SET ; CARRIER WAIT FLAG. ; (WAIT FOR THE NEXT "TICK" TO LOG OFF CURRENT USER). ; 4.2 IF RING NOT SEEN AND CARRIER AND CTS ARE BOTH ON, ; NO ACTION. ; 4.3 IF RING NOT SEEN AND CARRIER OR CTS IS OFF, SET A TIMER ; FOR M$$CAR SECONDS AND SET WAITING FLAG. ; (CARRIER LOST, WAIT FOR IT TO RETURN). ; 5. IF LINE IS ENABLED AND WAITING FOR CARRIER: ; (NOTE - THIS IS THE STATE THE LINE SHOULD STAY IN ; UNTIL A BYE COMMAND HAS BEEN SUCCESSFULLY QUEUED ; AFTER HAVING FAILED EARLIER AS RESULT OF HANG-UP. ; IN THIS STATE, DTR SHOULD BE OFF SO THAT CARRIER ; WILL NEVER BE SEEN - CASE 5.2 SHOULD NEVER HAPPEN). ; 5.1 IF RING SEEN, SAME AS 4.1. ; 5.2 IF RING NOT SEEN AND CARRIER AND CTS ARE BOTH ON, ; CLEAR WAITING FLAG. ; (LINE RETURNED TO NORMAL CONDITION AFTER TEMPORARY ; LOSS OF CARRIER). ; 5.2 IF RING NOT SEEN AND CARRIER OR CTS IS OFF, NO ACTION. ; (LINE STILL WITHOUT CARRIER, WAIT FOR CARRIER TO RETURN). ; ; IN EITHER CASE: ; CC-C 0 IF A CALL WAS ANSWERED ;**-1 ; 1 ELSE ; ; REGISTERS ALTERED: R4 ;- ; ; MODISR::BITB #US.OFL,U.ST2-U.TSTA(R5) ;;;OFF-LINE? BNE 30$ ;;;Y - IGNORE BIT #U2.RMT,U.CW2-U.TSTA(R5) ;;;REMOTE LINE? BEQ 30$ ;;;N - IGNORE COMB R4 ;;;INVERT FLAGS MOVB R4,-(SP) ;;;SAVE FLAGS MOVB U.STS-U.TSTA(R5),R4 ;;;GET DSB AND CRW FLAGS BIC #^C,R4 ;;;CLEAR JUNK BITS ASSUME US.DSB,2 ASSUME US.CRW,4 ROLB @SP ;;;GET INVERTED RING FLAG IN CC-C BITB #300,(SP)+ ;;;GET CON&CTS IN CC-Z JMP @MDSP(R4) ;;;DISPATCH ACCORDING TO DSB AND CRW FLAGS ; ; CASE 2 - DISABLED AND NOT WAITING FOR CARRIER ; MODI2:: BCS 40$ ;;;NO RING - IGNORE ; DD090 BIS #DTR!RTS,@R3 ;;;SET DTR AND RTS ;**-1 MOVB #M$$ANS+1,U.TMTI-U.TSTA(R5) ;;;SET TIMER = M$$ANS SECONDS BR 20$ ;;;GO AND WAIT FOR CARRIER ; ; CASE 3 - DISABLED AND WAITING FOR CARRIER ; MODI3:: BNE 30$ ;;;CARRIER AND CTS NOT BOTH ON - JUMP BR MANS ;;;ANSWER CALL ; ; CASE 4 - ENABLED AND NOT WAITING FOR CARRIER ; MODI4:: BCC 10$ ;;;RING - JUMP (SHOULD NOT HAPPEN) BEQ 40$ ;;;CARRIER AND CTS BOTH ON - IGNORE ; DD090 MOVB #M$$CAR+1,U.TMTI-U.TSTA(R5) ;;;SET TIMER FOR M$$CAR SECONDS ;**-1 BR 20$ ;;;GO AND SET WAIT FLAG ; ; CASE 5 - ENABLED AND WAITING FOR CARRIER ; MODI5:: BCC 10$ ;;;RING - JUMP BNE 40$ ;;;CARRIER AND CTS NOT BOTH ON - JUMP ; DD090 BR 50$ ;;;BOTH ON - CLEAR WAITING FLAG ; DD129 ;;;AND EXIT WITH CC-C = 1 ;**-2 10$: MOVB #1,U.TMTI-U.TSTA(R5) ;;;SET TIMER = 1 SECOND 20$: BISB #US.CRW,U.STS-U.TSTA(R5) ;;;SET CARRIER-WAIT FLAG 30$: SEC ;;;SHOW NO CALL ANSWERED 40$: RETURN ; DD090 ;**-1 .ENDC ;D$$M11!D$$LMD ; ; ;+ ; SUBROUTINE MANS - ANSWER A CALL. ; ; INPUT: ; R5 POINTER TO U.TSTA ; ;**-1 ; OUTPUT: ; UCB IS INITIALIZED. DISABLE AND CARRIER-WAIT FLAGS CLEARED. ; CC-C 0 TO INDICATE CALL ANSWERED. ;**-1 ; ; REGISTERS ALTERED: NONE ;- ; ; MANS:: BIC #^C,@R5 ;;;INITIALIZE STATUS WORD 1 ; DD062 ; DD112 .IF DF USECDL!USECDH!USECDZ ; DD112 ; DD112 BIS #S2.FLF,2(R5) ;;;AND STATUS WORD 2 ; DD112 CLC ;;;AND CLEAR CC-C ; DD112 ; DD112 .IFF ; DD112 ; DD112 BIC #^C,2(R5) ;;;AND STATUS WORD 2 ; DD062 BIS #S2.ACR!S2.FLF,2(R5) ;;; ; DD062 BIC #^C,4(R5) ;;;AND STATUS WORD 3 ; DD062 CLC ;;;AND CC-C ; DD062 BIC #U2.CRT!U2.HLD!U2.L3S!U2.VT5!U2.LWC,U.CW2-U.TSTA(R5) ;**-4 ;;;INITIALIZE CHARACTERISTICS WORD 2 MOV #72.,U.CW4-U.TSTA(R5) ;;;AND WORD 4 ;**-1 ; DD112 .ENDC ; DD112 .IF DF R$$MPL!A$$CLI ; DD094 ; DD094 BIC #UM.CLI,U.MUP-U.TSTA(R5) ;;;SET MCR AS CLI ; DD094 ; DD094 .ENDC ; DD094 ; DD094 .IF DF M$$CLI ; DD094 ;**-1 MOV #$MCRPT,U.CLI-U.TSTA(R5) ;;;SET MCR AS CLI .ENDC .IF DF D$$M11!D$$ZMD ; DD090 ; DD090 BIT #S3.ABD,4(R5) ;;;AUTO-BAUD DETECT SET FOR THIS LINE? ; DD090 BEQ 50$ ;;;N - JUMP ; DD090 BIS #S3.ABP,4(R5) ;;;Y - INITIATE AUTO-BAUD DETECTION ; DD090 MOV #S.4800,U.CW4-U.TSTA(R5) ;;;SET INITIAL AUTOBAUD SPEED ; DD128 ; DD090 .ENDC ;D$$M11!D$$ZMD ; DD090 ; DD090 50$: BICB #US.DSB!US.CRW,U.STS-U.TSTA(R5) ; DD129 ;;;ENABLE LINE AND CLEAR WAITING FLAG ;**-1 RETURN ;;;RETURN ;**-1 .DSABL LSB .IF DF D$$M11!D$$LMD ;+ ; HLMTIM - TIME-OUT ON DM11-BB OR DL11-E. ; ; INPUT: ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF CARRIER-WAIT FLAG = 0: ; RETURN TO CALLER'S CALLER ; ; ELSE: ; CALLER CALLED AS COROUTINE WITH INTERRUPTS LOCKED OUT. ; ON RETURN FROM CALLER, THE FOLLOWING IS EXPECTED: ; ; R5 UNCHANGED ; DTR AND RTS DROPPED. ;- ; ; HLMTIM::MTPS #TTPRI ;LOCK OUT INTERRUPTS BITB #US.CRW,U.STS-U.TSTA(R5) ;;;ARE WE STILL WAITING? BNE 20$ ;;;Y - JUMP MTPS #0 ;;;N - AN INTERRUPT HAS CHANGED THINGS TST (SP)+ ;ALLOW INTERRUPTS AND RETURN TO CALLER'S CALLER 10$: BICB #US.CRW,U.STS-U.TSTA(R5) ;CLEAR WAITING FLAG RETURN ;RETURN 20$: CALL @(SP)+ ;;;CALL COROUTINE MTPS #0 ;;;ALLOW INTERRUPTS BITB #US.DSB,U.STS-U.TSTA(R5) ;LINE ENABLED? BNE 10$ ;N - CLEAR WAITING FLAG AND RETURN ;ELSE FALL THRU TO "MHUP" TO HANG UP .ENDC ;D$$M11!D$$LMD ; ; ;+ ; SUBROUTINE MHUP - HANG UP. ; MAY ONLY BE CALLED AT SYSTEM STATE! ; ; INPUT: ; R5 POINTER TO U.TSTA ; US.DSB 0 TO PREVENT THAT A RING IS ANSWERED BEFORE THE ; TERMINAL IS LOGGED OFF ; LINE PHYSICALLY HUNG UP (DTR AND RTS DROPPED). ; ; OUTPUT: ; IF ANY I/O WAS ACTIVE, IT IS KILLED. ; IF TERMINAL WAS LOGGED ON, A BYE COMMAND IS QUEUED. ; IF BYE COMMAND SUCCESSFULLY QUEUED: ; US.DSB 1 (LINE DISABLED) ; US.CRW 0 (NOT WAITING) ; ELSE: ; US.DSB 0 (LINE ENABLED) ; US.CRW 1 (WAITING) ; ; REGISTERS ALTERED: R0,R1,R2,R3,R4 ;- ; ; MHUP:: BISB #US.CRW,U.STS-U.TSTA(R5) ;ASSUME FAILURE TO SEND BYE COMMAND ;THIS ALSO PREVENTS PROCESSING OF INPUT ;INTERRUPTS CALL I1CTXL ;FLUSH TYPE-AHEAD BUFFER BIC #S3.ABP,4(R5) ;RESET AUTO-BAUD MODE ; DD090 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV U.TAPR-U.TSTA(R5),@#KDSAR5 ;MAP UCBX ; DD074 MOV #120000,R4 ;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;GET UCBX BEQ 10$ ;NONE - JUMP ; DD129 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 ASSUME U.TITI&1,0 ;U.TITI MUST BE EVEN ;**-1 ASSUME U.TOTI,U.TITI+1 CLR U.TITI(R4) ;CLEAR INPUT AND OUTPUT TIMERS MOV #IE.DNR,R0 ;GET STATUS TO RETURN TO TASK CALL KILLI1 ;KILL INPUT (IF ANY IN PROGRESS) CALL KILLO1 ;KILL OUTPUT (IF ANY IN PROGRESS) ;WITH STATUS IE.DNR 10$: ;REFERENCE LABEL ; DD129 ;**-1 .IF DF M$$MUP BIT #U2.LOG,U.CW2-U.TSTA(R5) ;TERMINAL LOGGED ON? BNE 20$ ;N - JUMP ; DD129 ; DD114 .IF DF T$$SPC ; DD114 ; DD114 CLR R1 ;SET STATUS TO REQUEST BYE ; DD114 MOV R5,R2 ;SET UCB ADDRESS ; DD114 SUB #U.TSTA,R2 ; ; DD114 CALL $QCNTP ;QUEUE A BYE COMMAND ; DD114 ; DD114 .IFF ;T$$SPC ; DD114 ; DD114 MOV #M$$CRB,R1 ;GET CLI COMMAND BUFFER LENGTH ;**-1 CALL $ALOCB ;ALLOCATE A CLI CMD BUFFER BCS 40$ ;FAILED - EXIT MOV R0,R1 ;COPY BUFFER POINTER TST (R0)+ ;SKIP OVER LINK WORD MOV R5,R2 ; SUB #U.TSTA,R2 ;GET UCB ADDRESS MOV R2,(R0)+ ;INSERT UCB ADDRESS MOV #"BY,(R0)+ ;INSERT "BYE" COMMAND MOV #'E!,(R0)+ CALL $QMCR ;QUEUE COMMAND TO MCR ; DD094 ; DD094 .ENDC ;T$$SPC ; DD094 ;**-12 .ENDC ;M$$MUP ; THE LINE MAY HAVE BECOME NON-REMOTE. IF SO, LEAVE IT ENABLED. ; 20$: BIT #U2.RMT,U.CW2-U.TSTA(R5) ;REMOTE LINE? ; DD129 BEQ 30$ ;N - JUMP ; DD129 BISB #US.DSB,U.STS-U.TSTA(R5) ;Y - DISABLE ;**-2 30$: BICB #US.CRW,U.STS-U.TSTA(R5) ;CLEAR CARRIER-WAINT FLAG ; DD129 40$: RETURN ; ;**-1 .ENDC ;T$$MOD ; ; .END N/€0kQ ›c, .TITLE TTODN .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 30-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD095 08-MAR-81 DALE R. DONCHIN ; PHASE I OF NON-BUFFERED OUTPUT ; DD098 06-APR-81 DALE R. DONCHIN ; ADD ACD SUPPORT ; DD119 21-JUL-81 DALE R. DONCHIN ; ALLOW BUILD TIME SPECIFICATION OF OUTPUT TIMEOUT INTERVAL ; DD120 22-JUL-81 DALE R. DONCHIN ; REMOVE WINDOW WHEN BELL ECHO INTERRUPTS INPUT PACKET PROCESSING ; DD122 03-AUG-81 DALE R. DONCHIN ; USE SYMBOLIC NAMES FOR CONTROLLER DEPENDENT ROUTINE INDICES ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; DD021 .PSECT MAP6 ; DD021 ; ;+ ; ODONE - OUTPUT DONE PROCESSING. ; ; INPUT: ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; THE DATABASE IS UPDATED AS REQUIRED. ; ANOTHER OUTPUT OPERATION MAY BE INITIATED. ; ; REGISTERS ALTERED: R2,R3,R4 ;- ; ; .ENABL LSB ; .SBTTL ODONE - OUTPUT DONE ; ODONE:: BITB #US.OIU,U.STS-U.TSTA(R5) ;;;OUTPUT INTERRUPT UNEXPECTED? ;;;(COULD HAPPEN FOR EXAMPLE IF WE COME ;;;HERE WHEN ABORTING OUTPUT) BNE 40$ ;;;Y - JUMP ; DD129 ASSUME US.OIU,1 ;**-1 INCB U.STS-U.TSTA(R5) ;;;NOW IT IS UNEXPECTED 10$: ;;;REFERENCE LABEL ; DD074 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV U.TAPR-U.TSTA(R5),@#KDSAR5 ;;;MAP UCBX AND TABUF ; DD074 MOV #120000,R4 ;;;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;;;GET UCBX ; DD074 BEQ 40$ ;;;NONE - JUMP (THIS CAN ONLY HAPPEN IF ; DD129 ;;;WE COME HERE TO DO A SPECIAL ECHO ;**-2 ;;;SUCH AS BELL) ; DD074 .IFTF ;T$$SPL ; DD074 ; DD074 CLRB U.TOTI(R4) ;;;CLEAR OUTPUT TIMER TST U.TCO(R4) ;;;DOING TASK OUTPUT? BNE 20$ ;;;Y - JUMP ; DD129 MOVB 1(R5),R3 ;;;GET UPPER BYTE OF FIRST STATUS WORD ;**-1 ASSUME S1.BEL,400 ROR R3 ;;;BELL ECHO REQUESTED? BCS BELL1 ;;;Y - JUMP ASSUME S1.OBY,100 ;S1.OBY MUST BE IN LOW BYTE BICB #S1.OBY,@R5 ;;;SET OUTPUT FREE ASSUME S1.IBY,200 BPL CFGRQ ;;;INPUT FREE - JUMP BIT #S1.DSI,@R5 ;;;INPUT PROCESSING DISABLED? ; DD120 BNE 40$ ;;;Y - JUMP ; DD120 CALL ECHD1 ;;;INPUT BUSY - ENTER INPUT ROUTINES ;;;FALL THRU TO "NXTIC" .PAGE .SBTTL NXTIC - GET NEXT INPUT CHARACTER FROM TYPE-AHEAD BUFFER ; ;+ ; NXTIC - GET NEXT INPUT CHARACTER FROM TYPE-AHEAD BUFFER. ; ; INPUT: ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF A CHARACTER CAN BE OBTAINED FROM THE TYPE-AHEAD BUFFER, ; AND THE CHARACTER CAN BE PROCESSED, IT IS REMOVED FROM ; THE TYPE-AHEAD BUFFER AND ICHAR2 IS CALLED TO PROCESS ; THE CHARACTER. ; ; ELSE A RETURN IS EXECUTED. ;- ; ; NXTIC:: CALL GCTAB ;;;GET A CHARACTER FROM TABUF BCS 40$ ;;;NONE THERE - RETURN ; DD129 CALL IPROC ;;;CAN WE PROCESS IT? ;**-1 BCS 40$ ;;;N - RETURN ; DD129 CALL RCTAB ;;;Y - REMOVE CHARACTER FROM TABUF ;**-1 CALL ICHAR2 ;;;PROCESS CHARACTER BR NXTIC ;;;LOOP .PAGE .SBTTL CFGRQ - CONDITIONALLY FORK TO GET A REQUEST PACKET FROM QUEUE ; ;+ ; CFGRQ - CONDITIONALLY FORK TO GET A REQUEST PACKET FROM QUEUE. ; ; INPUT: ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF THERE IS A PACKET IN THE QUEUE THAT MAY BE PROCESSED NOW, ; A FORK REQUEST IS QUEUED TO GET A REQUEST PACKET. ;- ; ; CFGRQ:: CALL TSTRQ ;;;TEST I/O QUEUE ;;;RETURN IF NOTHING WORTH FORKING IN QUEUE MOV #FR.GRQ,R3 ;;;FORK/GET REQUEST PACKET BR 30$ ;;; ; DD129 ; ;**-1 20$: MOV #FR.ORD,R3 ;;;FORK/OUTPUT REQUEST DONE (AT LEAST PARTIALLY); DD129 30$: CALLR FORK ;;;QUEUE FORK REQUEST ; DD129 ; ;**-2 ; .SBTTL BELL - OUTPUT A BELL ; ;+ ; BELL - OUTPUT A BELL. ; ; INPUT: ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF ECHO IS SUPPRESSED, IMMEDIATE RETURN (NO ACTION). ; ELSE A BELL IS OUTPUT IF POSSIBLE, OR FLAGGED FOR ; OUTPUT AT FIRST OPPORTUNITY. ; ; REGISTERS ALTERED: R2,R3,R4 ;- ; ; BELLL:: CALL LOCKI ;LOCK OUT INTERRUPTS BELL:: BIT #S1.RNE,@R5 ;;;ECHO SUPPRESSED? BNE 40$ ;;;Y - RETURN ; DD129 MOV #S1.BEL,R3 ;;;GET BELL FLAG ;**-1 ;;;FALL THRU TO "SPECH" ; ; ;+ ; SPECH - DO A SPECIAL ECHO. ; ; INPUT: ; R3 BIT IN U.TSTA FOR SPECIAL ECHO REQUESTED ; S1.BEL = ECHO BELL ; (OTHER FLAGS MAY BE IMPLEMENTED FOR OUTPUT ; OF XON AND XOFF WHEN TYPE-AHEAD BUFFER ; BECOMES NON-FULL AND FULL RESPECTIVELY) ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF TRANSMITTER IS FREE, THE SPECIAL ECHO IS STARTED. ; IF TRANSMITTER IS BUSY, THE FLAG IS SET IN U.TSTA ; TO FORCE THE SPECIAL ECHO AT FIRST OPPORTUNITY. ; ; REGISTERS ALTERED: R2,R3,R4 ;- ; ; SPECH:: BIS R3,@R5 ;;;SET FLAG BIT #S1.DSI!S1.OBY,@R5 ;;;OUTPUT BUSY OR FORK PROCESSING BUSY? BEQ 10$ ;;;NEITHER - DO IT NOW ; ; A SPECIAL ECHO MAY BE DELAYED BECAUSE FORK PROCESSING IS BUSY (S1.DSI SET). ; 40$: RETURN ;;;Y - WAIT ; DD129 ; ;**-1 .DSABL LSB ; ; BELL1: BIC #S1.BEL,@R5 ;;;CLEAR BELL FLAG MOV #ASBELL,R3 ;;;POINT TO BELL CHAR. BR ECHCHR ;;;GO AND OUTPUT A SINGLE CHARACTER ; ; .PAGE .SBTTL ECHSTR, ECHCHR - ECHO A STRING OR A CHARACTER ; ;+ ; ECHSTR - ECHO A STRING. ; ; INPUT: ; R2 STRING LENGTH ; R3 POINTER TO THE STRING ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; ; ALTERNATE ENTRY - ECHCHR ; SAME AS ECHSTR, BUT PRESETS R2 TO 1 TO ECHO 1 CHARACTER. ; ALTERNATE ENTRY - ECHRL ; SAME AS ECHCHR, BUT LOCKS OUT INTERRUPTS BEFORE THE OPERATION ; AND ALLOWS INTERRUPTS BEFORE RETURN. ; ; REGISTERS ALTERED: R2,R3,R4 ;- ; ; ECHRL:: CALL LOCKI ;LOCK OUT INTERRUPTS ECHCHR::MOV #1,R2 ;;;STRING LENGTH = 1 ; DD095 .IF DF T$$ACD ; DD098 ; DD095 BR ECHSTR ;;;SET UP UCBX FOR BUFFERED ECHO ; DD095 MECHO:: BIC #S1.OBF,@R5 ;;;INDICATE NON-BUFFERED MULTI-ECHO ; DD095 CLR U.TFOB(R4) ;;;SET EMPTY MULTI-ECHO BUFFER ; DD095 ADD #U.TOP+2,R4 ;;;POINT TO U.TOP+2 ; DD095 BR ECHSET ;;;SET UP UCBX FOR MULTI-ECHO ; DD095 ECHSTR::BIS #S1.OBF,@R5 ;;;SET UP UCBX FOR NON-MULTI-ECHO ; DD095 ADD #U.TOP,R4 ;;;POINT TO U.TOP ; DD095 ; DD095 .IFF ; DD095 ; DD095 ECHSTR::ADD #U.TOP,R4 ;;;POINT TO U.TOP ; DD095 .IFTF ; DD095 ; DD095 CLR (R4)+ ;;;U.TOP <-- 0 (ECHO) ECHSET: MOV R3,(R4)+ ;;;U.TOP+2 <-- BUFFER ADDRESS ; DD095 ASSUME U.TOC,U.TOP+4 ;**-1 MOV R2,@R4 ;;;U.TOC <-- BYTE COUNT BR STARTX ;;;START TRANSMISSION ; ; ;+ ; STARTX - START TRANSMISSION OF A BUFFER. ; ; INPUT: ; R5 POINTER TO U.TSTA ; U.TOP+2 BUFFER ADDRESS ; U.TOC BYTE COUNT ; ; CALLS CONTROLLER-DEPENDENT ROUTINE TO START OUTPUT. ; NOTE - MUST BE CALLED ON DEVICE PRIORITY! ; ; ALTERNATE ENTRY: STAXL - START TRANSMISSION OF A LIST OF BUFFERS. ; ; INPUT: ; R4 POINTER TO UCBX ; R5 POINTER TO UCB ; U.TFOB POINTER TO FIRST OUTPUT BUFFER ; EACH BUFFER CONTAINS A LINK TO THE NEXT BUFFER IN THE ; FIRST WORD, AND BYTE COUNT IN THE SECOND WORD. ; ; REGISTERS ALTERED: R2,R3,R4 ;- ; ; STAXL:: MOV U.TFOB(R4),R2 ;;;GET FIRST BUFFER ADD #U.TOP,R4 ;;;POINT TO U.TOP CALL UPUB ;;;SET UP UCBX FOR OUTPUT ; DD094 .IFT ; DD094 ; DD094 BIS #S1.OBF,@R5 ;;;INDICATE BUFFERED OUTPUT ; DD094 ; DD094 .ENDC ; DD094 ; DD094 STARTX::BIS #S1.OBY,@R5 ;;;SET OUTPUT BUSY ASSUME US.OIU,1 DECB U.STS-U.TSTA(R5) ;;;SET OUTPUT INTERRUPT EXPECTED .IF DF DEBUG BPL 10$ ; DD129 BPT ;**-1 10$: ; DD129 ;**-1 .ENDC .IFT ;T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;;;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 æ .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;;;GET UCBX ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 MOVB OPTIMR,U.TOTI(R4) ;;;INITIALIZE OUTPUT TIMER ; DD119 ; ;**-1 ; THE LONGEST POSSIBLE OUTPUT (IN TIME) IS 36(10) CHARACTERS AT 110 BAUD, ; SO 5 SECONDS SHOULD BE ENOUGH ; ASSUME CT.STA,0 ; DD122 CLR R2 ;;;SET INDEX FOR "START OUTPUT" CALLR CTRD ;;;CALL CONTROLLER DEPENDENT ROUTINE ; ; .END æ/€8;kQ ›c, .TITLE TTOIS .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 23-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD095 08-MAR-81 DALE R. DONCHIN ; PHASE I OF NON-BUFFERED OUTPUT ; DD098 06-APR-81 DALE R. DONCHIN ; ADD ACD SUPPORT ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; D0021 .PSECT MAP5 ; D0021 ; ;+ ; COMMON OUTPUT INTERRUPT SERVICE ROUTINE. ; USED BY FOLLOWING CONTROLLER TYPES: DJ, DL, DZ. ; ; INPUT: ; R2 BITMASK FOR TRANSMIT ENABLE ; R3 CSR ADDRESS ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; NEXT CHARACTER IS OUTPUT, IF THERE IS ONE. ; IF NECESSARY, A SWITCH IS MADE TO THE NEXT OUTPUT BUFFER ; (ONLY IF DOING BUFFERED OUTPUT). ; IF NO MORE CHARACTERS TO OUTPUT, ODONE IS CALLED TO ; PERFORM OUTPUT-DONE PROCESSING. ; ; REGISTERS ALTERED: R2,R3,R4 ;- ; ; .MCALL UCBDF$ ;**-3 ; UCBDF$ ;DEFINE UCB SYMBOLS ; DD098 .ENABL LSB ; DD098 ; DD098 .IF DF D$$J11!D$$L11!D$$Z11 ; DD098 ; DD098 ; ; OUTISR::BITB #US.DSB!US.OIU,U.STS-U.TSTA(R5) ;;;DISABLED OR OUTPUT ;;;INTERRUPT UNEXPECTED? BNE 110$ ;;;Y - IGNORE ; DD129 BIT #S1.CTS,@R5 ;;;OUTPUT STOPPED BY CTRL-S? ;**-1 BNE 110$ ;;;Y - IGNORE ; DD129 ;**-1 .IF DF R$$CON BITB #US.OFL,U.ST2-U.TSTA(R5) ;;;OFFLINE? BNE 110$ ;;;Y - IGNORE ; DD129 ;**-1 .ENDC ; ; GET NEXT CHARACTER TO OUTPUT. ; MOV R2,-(SP) ;;;SAVE R2 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV U.TAPR-U.TSTA(R5),@#KDSAR5 ;;;MAP UCBX ; DD074 MOV #120000,R4 ;;;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;;;GET UCB EXTENSION ; DD074 .ENDC ;T$$SPL ; DD074 ;**-8 ADD #U.TOC,R4 ;;;POINT TO U.TOC 10$: DEC @R4 ;;;DECREMENT BYTE COUNT (U.TOC) BPL 20$ ;;;MORE TO DO - JUMP CLR @R4 ;;;THIS BUFFER EXHAUSTED - CLEAR U.TOC TST -(R4) ;;;POINT TO U.TOP+2 CALL NXTOB ;;;GET NEXT OUTPUT BUFFER IF THERE IS ONE BNE 10$ ;;;DO IT ALL OVER AGAIN WITH NEW BUFFER BR 100$ ;;;ALL DONE - JUMP ; DD129 20$: TST (SP)+ ;;;CLEAN STACK ;**-1 .IF DF T$$ACD ; DD098 ;**-1 BIT #S1.OBF,@R5 ;;;BUFFERED OUTPUT? ;**-3 BNE 90$ ;;;Y - JUMP ; DD095 ; DD095 .IF DF D$$H11 ; DD095 ; DD095 CALL MOUT ;;;GENERATE THE PROPER OUTPUT FOR THE NEXT CHAR.; DD095 MOVB R2,6(R3) ;;;OUTPUT THE RETURNED CHARACTER ; DD095 RETURN ;;; ; DD095 ; DD095 .ENDC ;D$$H11 ; DD095 ; DD095 .ENDC ;T$$ACD ; DD095 ; DD095 .ENDC ;D$$J11!D$$L11!D$$Z11 ; DD095 ; DD095 .IF DF T$$ACD ; DD095 ; DD095 ; ; DD095 ; WE ARE HERE TO PERFORM AN ECHO BY FIRST EXPANDING THE CHARACTER ; DD095 ; AND THEN OUTPUTTING ITS GENERATED ECHO (CALLED MULTI-ECHO). ; DD095 ; ; DD095 MOUT:: MOV R3,-(SP) ;;;SAVE CSR ADDRESS ; DD095 MOV U.TFOB-U.TOC(R4),R2 ;;;GET MULTI-ECHO BUFFER ADDRESS ; DD095 BNE 60$ ;;;IT POINTS TO SOME CHARACTERS - JUMP ; DD095 MOV -(R4),R2 ;;;GET ADDRESS OF NEXT CHARACTER TO EXPAND ; DD095 INC @R4 ;;;UPDATE POINTER ; DD095 MOV -2(R4),@#KISAR6 ;;;MAP THE BUFFER ; DD095 MOVB (R2),R2 ;;;GET THE CHARACTER ITSELF ; DD095 MOV $DALED,@#KISAR6 ;;;REMAP THE DRIVER ; DD095 CALL EXPCHR ;;;EXPAND CHARACTER TO GENERATE PROPER OUTPUT ; DD095 BNE 30$ ;;;EXPANSION IS A STRING - JUMP ; DD095 MOV (SP)+,R3 ;;;GET CSR ADDRESS ; DD095 ; DD095 .IF NDF D$$H11 ; DD095 ; DD095 MOVB R2,6(R3) ;;;OUTPUT CHARACTER AS ITSELF ; DD095 ; DD095 .IFTF ;NDF D$$H11 ; DD095 ; DD095 RETURN ;;;WAIT FOR NEXT INTERRUPT ; DD095 30$: BCS 40$ ;;;GENERATE A MULTI-ECHO SEQUENCE - SAVE CHAR? ; DD095 CMP (R4)+,(R4)+ ;;;N - POINT TO MULTI-ECHO BUFFER POINTER ; DD095 BR 50$ ;;;SET UP MULTI-ECHO BUFFER POINTER AND LENGTH ; DD095 40$: DEC (R4)+ ;;;NEED CHAR. AGAIN - BACK UP POINTER (U.TOP+2) ; DD095 INC (R4)+ ;;;AND UPDATE COUNTER (U.TOC) ; DD095 ASSUME ,U.TTOC ; DD095 50$: MOV R2,(R4)+ ;;;INSERT MULTI-ECHO SEQUENCE LENGTH (U.TTOC) ; DD095 MOV R3,@R4 ;;;INSERT MULTI-ECHO SEQUENCE ADDRESS (U.TFOB) ; DD095 MOV R3,R2 ;;;PUT ADDRESS WHERE NEEDED ; DD095 BR 70$ ;;;OUTPUT FIRST CHARACTER FROM MULTI-ECHO BUFFER; DD095 ASSUME ,U.TFOB ; DD095 60$: INC (R4)+ ;;;DON'T CHANGE COUNT IF DOING MULTI-ECHO ; DD095 TST (R4)+ ;;;POINT TO MULTI-ECHO BUFFER ADDRESS (U.TFOB) ; DD095 70$: MOV (SP)+,R3 ;;;RESTORE CSR ADDRESS ; DD095 ; DD095 .IFF ;NDF D$$H11 ; DD095 ; DD095 MOVB (R2),R2 ;;;GET CHARACTER FROM MULTI-ECHO BUFFER ; DD095 ; DD095 .IFT ;NDF D$$H11 ; DD095 ; DD095 MOVB (R2),6(R3) ;;;OUTPUT CHARACTER FROM MULTI-ECHO BUFFER ; DD095 ; DD095 .ENDC ;NDF D$$H11 ; DD095 ; DD095 INC @R4 ;;;POINT TO NEXT ONE ; DD095 DEC -(R4) ;;;SHOW ONE LESS CHARACTER IN MULTI-ECHO BUFFER ; DD095 BNE 80$ ;;;MORE TO DO - JUMP ; DD095 CLR 2(R4) ;;;ALL DONE - CLEAR MULTI-ECHO BUFFER POINTER ; DD095 80$: RETURN ;;; ; DD095 ;**-4 .ENDC ;T$$ACD ; DD098 ; DD098 .IF DF D$$J11!D$$L11!D$$Z11 ; DD098 ;**-1 90$: MOVB @-(R4),6(R3) ;;;OUTPUT CHARACTER ; DD129 INC @R4 ;;;UPDATE POINTER ;**-1 RETURN ;;;RETURN ; ; DD098 100$: MOV @SP,R2 ;;;RESTORE R2 ; DD129 MOV #ODONE,@SP ;;;DO OUTPUT DONE PROCESSING BEFÒORE ;**-4 ;;;INTERRUPT IS DISMISSED 110$: BIC R2,4(R3) ;;;DISABLE TRANSMISSION ON THIS LINE ; DD129 RETURN ;;; ;**-1 .ENDC ;D$$J11!D$$L11!D$$Z11 .DSABL LSB ; DD098 ; ; .END Ò2€ÀkQ ›c, .TITLE TTRW .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 25-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD046 03-DEC-79 DALE R. DONCHIN ; FIX TERMINATOR TABLE DEALLOCATION PROBLEM ; DD059 29-FEB-80 DALE R. DONCHIN ; IMPROVE ACCURACY OF READ TIMEOUT CODE ; DD067 08-JUN-80 DALE R. DONCHIN ; FIX TF.RCU WHEN ESCAPE SEQUENCE EXCEEDS REMAINING ; BUFFER LENGTH ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD098 06-APR-81 DALE R. DONCHIN ; ADD ACD SUPPORT ; DD100 16-APR-81 DALE R. DONCHIN ; FIX BUG WHEN ALLOCATION OF SECOND BUFFER FOR UNSOLICITED ; INPUT FAILS ; DD104 14-MAY-81 DALE R. DONCHIN ; IMPROVE FULL DUPLEX MODE AND SLAVED LINE HANDLING ; DD105 15-MAY-81 DALE R. DONCHIN ; PREVENT LOSS OF POOL ON BUFFER ALLOCATION FAILURES AND ; OPTIMIZE DEALLOCATION ; DD111 08-JUN-81 DALE R. DONCHIN ; ALWAYS ALLOCATE A SEPARATE BUFFER LIST FOR PROMPT BUFFERS ; DD114 19-JUN-81 DALE R. DONCHIN ; QUEUE UNSOLICITED COMMAND LINES VIA SEC POOL FOR RSX-11M-PLUS ; DD116 30-JUN-81 DALE R. DONCHIN ; ADD SERIAL COMMAND PROCESSING CAPABILITY TO RSX-11M-PLUS ; DD117 14-JUL-81 DALE R. DONCHIN ; ENHANCE CLI CONTINUATION PROCESSING ; DD119 21-JUL-81 DALE R. DONCHIN ; ALLOW BUILD TIME SPECIFICATION OF OUTPUT TIMEOUT INTERVAL ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; ;+ ; TTRW - THIS MODULE CONTAINS THE CODE TO START READ AND WRITE REQUESTS. ; THE FORK LEVEL ROUTINES TO HANDLE COMPLETION OF READ AND WRITE ; REQUESTS ARE ALSO INCLUDED (EVEN COMPLETION OF UNSOLICITED ; READ). THE COMPLETION ROUTINES CHECK FOR PARTIAL COMPLETION, ; IN WHICH CASE THE NECESSARY WORK IS DONE TO CONTINUE THE ; TRANSFER. ;- ; ; .MCALL TTSYM$ TTSYM$ ;DEFINE TF.XXX SYMBOLS ; DD114 .IF DF T$$SPC ; DD114 ; DD114 .MCALL PKTDF$ ; DD114 PKTDF$ ;DEFINE CLI COMMAND BUFFER HEADER OFFSETS ; DD114 ; DD114 .ENDC ; DD114 ; DD021 .PSECT MAP5 ; DD021 ; ; .SBTTL PPRLB - PROCESS AN IO.RLB REQUEST ; ; INPUT: ; R3 I/O PACKET ADDRESS ; I.LNK = 0 (UNLESS THIS IS THE READ PORTION ; OF A READ AFTER PROMPT REQUEST) ; R4 UCBX ADDRESS ; R5 POINTER TO U.TSTA ; ; ASSUME U.TCI,0 PPRLB:: MOV R3,(R4)+ ;SAVE PACKET ADDRESS .IF DF T$$CCA&A$$TRP MOV U.TAST-2(R4),R0 ;GET AST BLOCK IF THERE IS ONE BEQ 10$ ;THERE ISN'T - JUMP BIC #2,A.PRM+4(R0) ;UNLOCK AST BLOCK IN CASE IT WAS LOCKED ;BECAUSE OF TF.NOT .ENDC ;T$$CCA&A$$TRP 10$: MOV 4(R5),R0 ;GET STATUS WORD 3 ASSUME S1.RST,TF.RST ASSUME S1.RAL,TF.RAL BIC #^C,R0 ;CLEAR ALL BUT RAL FLAG BISB I.FCN(R3),R0 ;OR SUBFUNCTIONS INTO MASK ASSUME TF.TMO,200 BMI 20$ ;TIME-OUT SPECIFIED - JUMP ; DD059 CLR R1 ;ELSE CLEAR TIME-OUT PERIOD ; DD059 BR 40$ ;SET NULL TIME-OUT COUNT ; DD059 20$: MOVB I.PRM+6(R3),R1 ;GET USER SPECIFIED TIME-OUT PERIOD ; DD059 CMPB R1,#<377/12> ;TRYING TO EXCEED MAXIMUM TIME-OUT? ; DD059 BHI 30$ ;Y - JUMP ; DD059 ; DD059 .IF DF R$$EIS ; DD059 ; DD059 MUL #10.,R1 ;ADJUST TO UNITS OF TEN ; DD059 ; DD059 .IFF ; DD059 ; DD059 ASL R1 ;ADJUST TO UNITS OF TEN (X2) ; DD059 MOV R1,-(SP) ;SAVE X2 ; DD059 ASL R1 ;(X4) ; DD059 ASL R1 ;(X8) ; DD059 ADD (SP)+,R1 ;(X8+X2)=X10 ; DD059 ; DD059 .ENDC ; DD059 ; DD059 BR 40$ ;JOIN COMMON CODE ; DD059 30$: MOVB #377,R1 ;SET MAXIMUM TIME-OUT COUNT ; DD059 40$: MOVB R1,U.TITI-2(R4) ;INITIALIZE TIMER ; DD059 MOVB R1,I.PRM+6(R3) ;SAVE TIMER VALUE IN I/O PACKET ; DD059 BIC #^C,R0 ;**-3 ;CLEAR ALL BUT RST, RAL AND RNE FLAGS ;IN MASK BIC #TF.RST!TF.RAL!TF.RNE!S1.CTO,@R5 ;CLEAR OLD FLAGS IN STATUS WORD 1 BIS R0,@R5 ;OR COMBINED MASK INTO STATUS WORD 1 BIT #U2.NEC,U.CW2-U.TSTA(R5) ;LINE IN NO ECHO MODE? BEQ 50$ ;N - JUMP ; DD129 BIS #S1.RNE,@R5 ;Y - SET RNE FLAG ;**-1 50$: BIT #S1.RNE,(R5)+ ;ECHO REQUIRED? ; DD129 BNE 60$ ;N - JUMP ; DD129 ASSUME S2.FDX,100000 ;**-2 BIT #S2.FLF!S2.FDX,@R5 ;FORCE LINE-FEED? BLE 60$ ;NO, OR LINE IN FULL DUPLEX MODE - JUMP ; DD129 MOV #PRLF,-(SP) ;OUTPUT LEADING LF BEFORE EXIT ;**-1 60$: BIS #S1.IBY!S1.IBF,-(R5) ;SET INPUT BUSY ; DD129 ;ASSUME BUFFERED INPUT ;**-1 MOVB U.TCHP-U.TSTA(R5),U.TIHP-2(R4) ;SAVE INITIAL CURSOR POS. CMPB I.FCN+1(R3),#IO.RTT/400 ;SPECIAL TERMINATORS FUNCTION? BNE 80$ ;N - JUMP ; DD129 MOV U.TRTT-U.TIP(R4),R1 ;GET THE RTT TABLE ADDRESS ;**-1 MOV #16.,R0 ;COPY A 16 WORD TABLE 70$: MOV I.PRM+10(R3),KISAR6 ;MAP USER'S TABLE ; DD129 MOV I.PRM+16(R3),R2 ;RETRIEVE AN ENTRY FROM HIS TABLE ;**-1 MOV @R2,R2 ; MOV $DALED,KISAR6 ;MAP DRIVER TABLE ; DD074 MOV R2,(R1)+ ;COPY ENTRY ;**-1 ADD #2,I.PRM+16(R3) ;POINT TO NEXT ENTRY DEC R0 ;DONE? BNE 70$ ;LOOP UNTIL ENTIRE TABLE HAS BEEN COPIED ; DD129 80$: ;REFERENCE LABEL ; DD129 ;**-2 .IF DF T$$RPR TST @R3 ;DOING AN IO.RPR? BEQ 90$ ;N - JUMP ; DD129 CLR @R3 ;Y - REINITIALIZE STATUS ;**-1 TST I.PRM+16(R3) ;DID THE PROMPT SUCCESSFULLY INITIALIZE ;INTERMEDIATE BUFFERING? BEQ UNBI ;N - GO AND DO UNBUFFERED READ MOV U.TFIB-U.TIP(R4),R2 ;Y - GET FIRST INPUT BUFFER ;(ALLOCATED ALREADY BEFORE PROMPTING) BR 100$ ;DO BUFFERED READ ; DD129 ;**-1 .ENDC ;T$$RPR 90$: CALL $TSTBF ;TEST IF WE SHOULD DO BUFFERED READ ; DD129 BCS UNBI ;N - JUMP ;**-1 CALL ALTB ;GET A BUFFER BCS UNBI ;FAILED - DO UNBUFFERED INPUT MOV R2,-(SP) ;SAVE BUFFER ADDRESS CALL $INIBF ;OK - INITIALIZE INTERMEDIATE BUFFERING MOV (SP)+,R2 ;RESTORE BUFFER ADDRESS ; ; ; SET UP FOR BUFFERED INPUT ; .SBTTL DO BUFFERED INPUT ; 100$: ADD #U.TTIC-U.TIP,R4 ;POINT TO U.TTIC ; DD129 MOV R4,R1 ;COPY POINTER ;**-1 MOV I.PRM+4(R3),(R1)+ ;SET UP MAXIMUM BYTE COUNT ASSUME U.TFIB,U.TTIC+2 ; READ1: MOV R2,@R1 ;LINK FIRST BUFFER TO U.TFIB ; ; ;+ ; NXTIB - GET NEXT INPUT BUFFER. ; ; INPUT: ; R2 NEW INPUT BUFFER ADDRESS ; R4 POINTER TO U.TTIC ; U.TTIC TOTAL REMAINING BYTE COUNT ; ; OUTPUT: ; R4 POINTER TO U.TIC ; NEW BUFFER LINKED TO OLD BUFFER. ; SECOND WORD OF NEW BUFFER SET UP WITH LOGICAL BUFFER LENGTH. ; U.TIP, U.TIP+2, U.TIC AND U.TTIC UPDATED. ; CC-Z 0 IF INPUT BYTE COUNT NOT YET EXHAUSTED ; 1 ELSE ; ; REGISTERS ALTERED: R2,R3,R4 ; ; NOTE - THIS ROUTINE IS CALLED AT DEVICE PRIORITY FROM THE ; INPUT ISR. ;- ; ; NXTIB:: TST (R2)+ ;POINT TO SECOND WORD OF BUFFER MOV #T$$BFL-4,@R2 ;SET LOGICAL LENGTH OF BUFFER SUB @R2,@R4 ;ADJUST U.TTIC BPL 10$ ;STILL .GE. 0 - JUMP ADD @R4,@R2 ;WENT BELOW ZERO - ADJUST LOG. BUFFER LENGTH CLR @R4 ;U.TTIC <-- 0 ASSUME U.TIP,U.TTIC-6 10$: CMP -(R4),-(R4) ;POINT TO U.TIP+2 CMP -(R4),-(R2) ;POINT R4 TO U.TIP ;POINT R2 TO START OF BUFFER ; ; ; ;+ ; UPUB - UPDATE PARAMETERS IN UCBX FOR BUFFERED INPUT OR OUTPUT. ; ; INPUT: ; R2 BUFFER ADDRESS ; LOGICAL BUFFER LENGTH STORED IN 2(R2) ; R4 POINTER TO U.TIP (INPUT) OR U.TOP (OUTPUT) IN UCBX ; ; OUTPUT: ; R2 POINTER TO SECOND WORD OF BUFFER ; R4 POINTER TO U.TIC/U.TOC ; U.TIP, U.TIP+2, U.TIC (OR U.TOP, U.TOP+2, U.TOC) ; UPDATED FOR NEXT PARTIAL TRANSFER. ; CC-Z 0 IF THERE IS MORE WORK TO DO ; 1 IF NOT ; ; REGISTERS ALTERED: R2,R4 ; ; NOTE - THIS ROUTINE IS CALLED IN THREE SITUATIONS: ; 1. AT PRIORITY 0 TO START INPUT ; 2. AT DEVICE PRIORITY TO START OUTPUT ; 3. AT DEVICE PRIORITY FROM OUTPUT OR INPUT ISR TO SWITCH ; FROM THE CURRENT PARTIAL BUFFER TO THE NEXT. ;- ; ; UPUB:: MOV R2,(R4)+ ;U.TIP+0/U.TOP+0 <-- BUFFER ADDRESS CMP (R2)+,(R2)+ ;SKIP OVER LINK AND LENGTH WORDS MOV R2,(R4)+ ;U.TIP+2/U.TOP+2 <-- START OF DATA IN BUFFER MOV -(R2),@R4 ;U.TIC/U.TOC <-- BYTE COUNT FOR THIS ;(POSSIBLY PARTIAL) TRANSFER RETURN .PAGE .SBTTL DO UNBUFFERED INPUT ; UNBI: CLR I.PRM+16(R3) ;USE $IOFIN AT END BIC #S1.IBF,@R5 ;SHOW UNBUFFERED INPUT ASSUME U.TIP, ; ; ;+ ; UPUNB - UPDATE UCB FOR NON-BUFFERED INPUT. ; ; INPUT: ; R3 POINTER TO IO PACKET ; R4 POINTER TO U.TIP ; ; OUTPUT: ; R4 POINTER TO U.TTIC ; U.TIP, U.TIP+2, U.TIC, U.TTIC UPDATED FOR NON-BUFFERED INPUT. ; ; REGISTERS ALTERED: R3,R4 ;- ; UPUNB:: ADD #I.PRM,R3 ;POINT TO PARAMETERS IN PACKET MOV (R3)+,(R4)+ ;U.TIP+0 <-- BUFFER ADDRESS (ADRS DOUBLE WORD) MOV (R3)+,(R4)+ ;U.TIP+2 <-- 2.ND HALF OF ADDRESS DOUBLE WORD ASSUME U.TIC, MOV (R3)+,(R4)+ ;U.TIC <-- BYTE COUNT ASSUME U.TTIC, CLR @R4 ;U.TTIC <-- 0 RETURN ; ; ;+ ; NXTOB - GET NEXT OUTPUT BUFFER. ; ; INPUT: ; R4 POINTER TO U.TOP+2 ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF THERE IS ANOTHER OUTPUT BUFFER LINKED: ; CC-Z 0 ; R4 POINTER TO U.TOC ; U.TOP, U.TOP+2, U.TOC UPDATED FOR NEXT BUFFER. ; ; IF NOTHING MORE TO OUTPUT: ; CC-Z 1 ; R4 POINTER TO U.TOP ; ; REGISTERS ALTERED: R2,R4 ; ; NOTE - THIS ROUTINE IS CALLED AT DEVICE PRIORITY FROM THE ; OUTPUT ISR. ;- ; NXTOB:: ; DD098 ; DD098 .IF DF T$$ACD ; DD098 ;**-1 BIT #S1.OBF,@R5 ;;;BUFFERED OUTPUT? BEQ 10$ ;;;N - RETURN WITH CC-Z = 1 .ENDC ;T$$ACD ; DD098 ;**-1 MOV -(R4),R2 ;;;GET START OF CURRENT BUFFER (U.TOP) BEQ 10$ ;;;THIS WAS AN ECHO - EXIT WITH CC-Z = 1 MOV @R2,R2 ;;;GET START OF NEXT BUFFER BEQ 10$ ;;;NONE - RETURN WITH CC-Z = 1 MOVB OPTIMR,U.TOTI-U.TOP(R4) ;;;SET UP OUTPUT TIMER ; DD119 BR UPUB ;;;GO AND UPDATE UCB ;**-1 10$: RETURN ;;;RETURN WITH CC-Z = 1 ; .PAGE .SBTTL FPIRD - INPUT REQUEST DONE ;+ ; FPIRD - INPUT REQUEST DONE. ; COME HERE IN ANY OF THE FOLLOWING SITUATIONS: ; 1. END OF LINE RECEIVED (OR HARD RECEIVE ERROR) ; 2. INTERMEDIATE BUFFER IS FULL ; 3. TASK BUFFER IS FULL (NON-BUFFERED SOLICITED INPUT) ; ; THIS ROUTINE IS ENTERED FROM THE FORK DISPATCHER WITH: ; R4 UCBX ADDRESS ; R5 POINTER TO U.TSTA ;- ; ; .ENABL LSB ; ASSUME U.TCI,0 FPIRD:: MOV (R4)+,R3 ;GET PACKET ASSUME U.TIP,U.TCI+2 MOV (R4)+,R1 ;GET CURRENT BUFFER (IF BUFFERED INPUT) ASSUME U.TIC,U.TIP+4 TST (R4)+ ;POINT TO U.TIC ASSUME U.TTIC,U.TIC+2 ADD (R4)+,@R4 ;ADD U.TIC TO U.TTIC TO GET TOTAL ;REMAINING BYTES TO READ BEQ 20$ ;NONE - BUFFER FULL, JUMP ; DD129 TST @R3 ;STATUS ALREADY PRESENT? ;**-1 BNE 20$ ;Y - JUMP ; DD129 ; ;**-1 ; BUFFERED INPUT, CURRENT BUFFER FULL. TRY TO ALLOCATE ANOTHER BUFFER. ; NOTE - THE INPUT ISR HAS ALREADY CHECKED WHETHER THERE IS ANOTHER ; BUFFER ALLOCATED (THIS COULD BE THE CASE IF THE OPERATOR DID ; RUBOUT OR CTRL-U). IF THERE IS ANOTHER BUFFER ALLOCATED ALREADY, ; WE DON'T COME HERE. ; CALL ALTB ;GET ANOTHER INPUT BUFFER BCC READ1 ;OK - LINK TO PREVIOUS BUFFER AND CONTINUE ;INPUT BIT #S1.USI,@R5 ;SOLICITED INPUT? BEQ 10$ ;Y - JUMP ; DD129 ; ;**-1 ; UNSOLICITED INPUT REQUIRES ANOTHER BUFFER, WHICH WE FAILED TO ; ALLOCATE. SET STATUS = IE.NOD WHICH FORCES A ^U TO FLUSH THE INPUT. ; DD100 ; ; DD100 MOV #IE.NOD,@R3 ;SET ERROR STATUS ; DD100 JMP 140$ ;COMPLETE UNSOLICITED INPUT ; DD100 ; ;**-4 ; SOLICITED INPUT REQUIRES ANOTHER BUFFER, WHICH WE FAILED TO ; ALLOCATE. RETURN PARTIAL INPUT WITH STATUS IE.NOD. ; 10$: MOV #IE.NOD,@R3 ;SET ERROR STATUS ; DD129 ; ;**-1 ; INPUT COMPLETED ; 20$: ;REFERENCE LABEL ; DD098 ; DD098 .IF DF T$$ACD ; DD098 ; DD098 MOV U.ACB-U.TSTA(R5),R2 ;GET ACB ; DD098 BEQ 50$ ;TERMINAL DOESN'T HAVE ONE - JUMP ; DD098 CLR U.AFLG-U.TSTA(R5) ;SET DEFAULT PROCESSING ; DD098 MOV @R3,A.IOS(R2) ;SET INPUT COMPLETION STATUS ; DD098 MOV #A.INPU,R0 ;SET INPUT COMPLETION ENTRY POINT ; DD098 CALL $SWACD ;CALL ACD ; DD098 MOV A.IOS(R2),@R3 ;SET POSSIBLY DIFFERENT INPUT STATUS CODE ; DD098 BIT #UA.TRA,U.AFLG-U.TSTA(R5) ;TRANSFER CHARACTERS NOW? ; DD098 BEQ 50$ ;N - JUMP ; DD098 30$: MOV U.ACB-U.TSTA(R5),R0 ;GET ACB ; DD098 ADD #A.SMAP,R0 ;POINT TO TRANSFER PARAMETERS ; DD098 TST @R5 ;BUFFERED INPUT? ; DD098 BPL 40$ ;N - JUMP ; DD098 MOV R1,R2 ;COPY INPUT BUFFER ADDRESS ; DD098 CMP (R2)+,(R2)+ ;POINT PAST LINK AND COUNT WORDS ; DD098 MOV R5,(R2)+ ;SAVE R5 IN INPUT BUFFER ; DD098 MOV R3,(R2)+ ;ALSO SAVE PACKET ADDRESS ; DD098 MOV (R0)+,(R2)+ ;SAVE ACD BUFFER APR BIAS (A.SMAP) ; DD098 MOV (R0)+,(R2)+ ;SAVE ACD BUFFER DISPLACEMENT (A.SBUF) ; DD098 MOV I.PRM+16(R3),(R2)+ ;SAVE TASK PCB ADDRESS ; DD098 MOV I.PRM(R3),(R2)+ ;SAVE TASK BUFFER APR BIAS OFFSET ; DD098 MOV (R0),(R2) ;SAVE ACD BUFFER LENGTH (A.SLEN) ; DD098 CLR I.PRM+16(R3) ;ZERO PCB ADDRESS AS A SIGNAL FOR $FINBF ; DD098 BR 50$ ;TRANSFER WILL OCCUR WHEN $FINBF CALLS US ; DD098 ; ; DD098 40$: MOV R4,-(SP) ;SAVE R4 ; DD098 MOV (R0)+,R1 ;GET ACD BUFFER APR BIAS (A.SMAP) ; DD098 MOV (R0)+,R2 ;GET ACD BUFFER DISPLACEMENT (A.SBUF) ; DD098 SUB #20000,R2 ;CONVERT TO AN APR5 ADDRESS ; DD098 MOV (R0),R0 ;GET ACD BUFFER LENGTH (A.SLEN) ; DD098 MOV U.TIP-U.TTIC(R4),R3 ;GET TASK BUFFER APR BIAS ; DD098 MOV U.TIP+2-U.TTIC(R4),-(SP) ;SAVE TASK BUFFER DISPLACEMENT ; DD098 ADD R0,U.TIP+2-U.TTIC(R4) ;UPDATE DISPLACEMENT FOR NEXT TIME ; DD098 MOV (SP)+,R4 ;GET TASK BUFFER DISPLACEMENT ; DD098 CALL $BLXIO ;TRANSFER FROM ACD BUFFER TO TASK BUFFER ; DD098 MOV (SP)+,R4 ;RESTORE R4 ; DD098 MOV U.TCI-U.TTIC(R4),R3 ;RESTORE R3 ; DD098 CLR U.AFLG-U.TSTA(R5) ;SET DEFAULT PROCESSING ; DD098 MOV #A.CALL,R0 ;SET TRANSFER COMPLETION ENTRY POINT ; DD098 CALL $SWACD ;CALL ACD TO DEALLOCATE BUFFER ; DD098 BIT #UA.CAL,U.AFLG-U.TSTA(R5) ;ACD HAVE ANOTHER BUFFER TO COPY? ; DD098 BNE 30$ ;Y - JUMP ; DD098 BIS #UA.TRA,U.AFLG-U.TSTA(R5) ;SET FLAG FOR CHECKING LATER ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 50$: CLRB U.TITI-U.TTIC(R4) ;CLEAR INPUT TIMER ; DD098 ASSUME S1.IBF,100000 ;**-1 TST @R5 ;BUFFERED INPUT? BPL 60$ ;N - JUMP (MUST BE SOLICITED INPUT) ; DD129 MOV @R1,R2 ;Y - GET NEXT BUFFER (IF THERE IS ONE) ;**-1 CALL DELTB ;DEALLOCATE ALL REMAINING BUFFERS CLR @R1 ;THIS IS NOW LAST BUFFER BIT #S1.USI,@R5 ;SOLICITED INPUT? BNE 140$ ;N - UNSOLICITED INPUT - JUMP ; DD129 ; ;**-1 ; SOLICITED INPUT COMPLETED ; ; REGISTER SUMMARY: ; R3 POINTER TO I/O PACKET ; R4 POINTER TO U.TTIC ; R5 POINTER TO U.TSTA ; 60$: BIC #S1.IBY!S1.RST!S1.RAL,@R5 ;SET INPUT FREE ; DD129 CLR U.TCI-U.TTIC(R4) ;CLEAR PACKET POINTER (U.TCI) ;**-1 MOV U.TRTT-U.TTIC(R4),R2 ;GET THE TERMINATOR TABLE ADDRESS ; DD046 BEQ 70$ ;NONE - JUMP ; DD046 CALL DETB ;DEALLOCATE THE TERMINATOR TABLE ; DD046 CLR U.TRTT-U.TTIC(R4) ;CLEAR TERMINATOR TABLE ADDRESS ; DD046 70$: ;REFERENCE LABEL ; DD046 .IF DF T$$RPR ; DD111 ;**-1 CMPB I.FCN+1(R3),#IO.RPR/400 ;WAS THIS AN IO.RPR? BNE 80$ ;N - JUMP ; DD129 MOV U.TFPB-U.TTIC(R4),R2 ;Y - GET PROMPT BUFFER LIST ;**-1 CALL DELTB ;DEALLOCATE ALL PROMPT BUFFERS .ENDC ;T$$RPR ; DD111 ;**-1 80$: MOV I.PRM+4(R3),R1 ;GET MAX BYTE COUNT ; DD129 SUB (R4)+,R1 ;SUBTRACT REMAINING BYTES TO READ ;**-1 ;YIELDING BYTES ACTUALLY READ TST @R3 ;STATUS ALREADY PRESENT? ;**-9 BNE 90$ ;Y - JUMP ; DD129 INC @R3 ;BUFFER FULL - SET STATUS = IS.SUC ;**-1 .IF DF T$$ESC BIT #S1.ESC,@R5 ;IN THE MIDDLE OF AN ESCAPE SEQUENCE? BEQ 90$ ;N - ALL IS OK ; DD129 MOV #IE.PES&377,@R3 ;Y - SET ERROR "PARTIAL ESCAPE SEQUENCE" ;**-1 BIC #S1.ESC,@R5 ;GET OUT OF ESCAPE SEQUENCE MODE CLRB U.TISV-U.TFIB(R4) ;CLEAR STATE VARIABLE .ENDC ;T$$ESC 90$: TST @R5 ;BUFFERED INPUT? ; DD129 BPL 110$ ;N - JUMP ; DD129 ASSUME U.TFIB,U.TTIC+2 ;**-2 MOV @R4,R4 ;GET FIRST INPUT BUFFER (U.TFIB) MOV R4,I.PRM+12(R3) ;STORE POINTER IN PACKET FOR $FINBF ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV KISAR6,I.PRM+14(R3) ;STORE MAPPING INFO FOR $FINBF ; DD074 SUB #200,I.PRM+14(R3) ;$FINBF EXPECTS MAPPING THROUGH APR 5 ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV KISAR5,I.PRM+14(R3) ;STORE MAPPING INFO FOR $FINBF ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 100$: MOV (R4)+,R2 ;GET LINK TO NEXT BUFFER, POINT TO BYTE COUNT ; DD129 MOV #T$$BFL,@R4 ;SET TOTAL LENGTH OF BUFFER ;**-1 MOV R2,R4 ;GET NEXT BUFFER BNE 100$ ;LOOP IF THERE IS ONE ; DD129 110$: BIT #TF.XOF,I.FCN(R3) ;SEND XOFF AT INPUT COMPLETION? ; DD129 BEQ 120$ ;N - JUMP ; DD129 ASSUME S2.FDX,100000 ;**-3 TST 2(R5) ;FULL DUPLEX LINE? BMI 120$ ;Y - IGNORE TF.XOF ; DD129 ;(TRANSMIT MAY BE BUSY) ;**-1 MOV R3,-(SP) ;SAVE R3 MOV #ASXOFF,R3 ;POINT TO XOFF CHAR. ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;GET UCBX ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 CALL ECHRL ;"ECHO" XOFF WITH INTERRUPTS LOCKED OUT MOV (SP)+,R3 ;RESTORE R3 120$: ;REFERENCE LABEL ; DD098 ; DD098 .IF DF T$$ACD ; DD098 ; DD098 MOV U.ACB-U.TSTA(R5),R2 ;GET ACB ; DD098 BEQ 130$ ;TERMINAL DOESN'T HAVE ANY - JUMP ; DD098 BIT #UA.TRA,U.AFLG-U.TSTA(R5) ;DOING TRANSFER NOW? ; DD098 BEQ 130$ ;N - JUMP ; DD098 MOV A.IOS+2(R2),R1 ;GET TRANSFER LENGTH FROM ACB ; DD098 TST @R5 ;BUFFERED READ? ; DD098 BPL 130$ ;N - JUMP ; DD098 INC I.PRM+12(R3) ;SET BUFFER ADDRESS ODD AS A SIGNAL FOR US ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 130$: JMP DONE ; DD098 ; ;**-1 ; ; UNSOLICITED INPUT COMPLETED. ; ALLOCATE A CLI COMMAND BUFFER IN THE SYSTEM POOL. ; COPY ALL BUFFERS INTO CLI BUFFER, AND QUEUE IT TO THE CLI TASK. ; IF CONTINUATION LINES ARE TO FOLLOW (LAST CHARACTER OF THIS ; BUFFER IS A HYPHEN), SIMULATE A CTRL-C. ; ; WHEN WE COME HERE, STATUS IS SET UP AS FOLLOWS ; (IN SECOND WORD OF FIRST RECEIVE BUFFER): ; <0 - ERROR ; 0 - BUFFER FULL ; IS.SUC - SUCCESS ; IS.TMO - TIME-OUT ; >IS.TMO - CTRL-U COMPLETED ; 140$: MOV #M$$CRB-4+1,-(SP) ;GET MAX LENGTH OF CLI COMMAND ; DD129 ;PLUS 1 FOR TERMINATOR ;**-1 SUB (R4)+,@SP ;GET NUMBER OF BYTES READ PLUS 1 CMP @R3,#IS.TMO ;TIME-OUT? BEQ 180$ ;Y - JUMP ; DD129 CMPB (R3)+,#IS.SUC ;TEST STATUS ;**-1 BLO 200$ ;BUFFER FULL - JUMP ; DD129 BLT 190$ ;ERROR - JUMP ; DD129 BGT 170$ ;CTRL-U COMPLETED - JUMP ; DD129 ;ELSE SUCCESS! ;**-3 TST $MCRPT ;IS MCR DISPATCHER INSTALLED? ; DD094 BEQ 200$ ;IF NOT THEN ECHO ^U TO TELL USER ; DD094 ; DD117 .IF DF T$$SPC ; DD117 ; DD117 BIC #UM.KIL,U.MUP-U.TSTA(R5) ;RESET CLI CONTINUATION LINE STATUS ; DD117 ; DD117 .ENDC ;T$$SPC ; DD117 ; DD116 .IF DF T$$SER ; DD116 ; DD116 MOV #CC.TTD,-(SP) ;ASSUME NEED TO SET CC.TTD IN CLI PACKET ; DD116 TSTB U.TFPB-U.TFIB(R4) ;HERE BECAUSE USER TYPED CTRL-C? ; DD116 BEQ 150$ ;N - JUMP ; DD116 BIT #UM.CMD,U.MUP-U.TSTA(R5) ;COMMAND ALREADY IN PROGRESS? ; DD116 BEQ 150$ ;N - NOTHING UNUSUAL THEN ; DD116 CLR @SP ;DON'T SET CC.TTD SO THAT COMPLETION OF THE ; DD116 ;COMMAND WE ARE ABOUT TO SEND WON'T AFFECT ; DD116 ;THE SERIAL PROCESSING ALREADY IN USE ; DD116 150$: MOV (SP)+,U.TFPB-U.TFIB(R4) ;GET ZERO OR CC.TTD BIT ; DD116 BIC #UM.CMD,U.MUP-U.TSTA(R5) ;RESET COMMAND IN PROGRESS BIT ; DD116 BIT #UM.SER,U.MUP-U.TSTA(R5) ;CLI TYPEAHEAD ENABLED? ; DD116 BEQ 160$ ;N - JUMP ; DD116 BIS #UM.CMD,U.MUP-U.TSTA(R5) ;Y - SHOW A COMMAND IS UNDERWAY ; DD116 ; DD116 .ENDC ;T$$SER ; DD116 ; DD116 160$: CMP @SP,#1 ;ONE BYTE READ? (MUST BE A RETURN) ; DD116 BNE 210$ ;N - JUMP ; DD129 ; DD114 .IF DF T$$SPC ; DD114 ; DD114 MOV #CC.PRM,R1 ;SET PROMPT REQUEST STATUS BIT ; DD114 BIS U.TFPB-U.TFIB(R4),R1 ;OR IN POSSIBLE CC.TTD BIT ; DD114 MOV R5,R2 ;GET UCB ADDRESS ; DD114 SUB #U.TSTA,R2 ; ; DD114 CALL $QCNTP ;QUEUE PROMPT REQUEST TO THE CLI ; DD114 BR 260$ ;JOIN COMMON CODE ; DD114 ; DD114 .IFF ;T$$SPC ; DD114 ; DD114 MOV #4,R1 ;Y - ONLY ALLOCATE 4 BYTES FROM THE DSR ;**-10 CALL $ALOCB ; BCS 290$ ;FAILED - JUMP ; DD129 MOV R0,R1 ;SAVE ADDRESS ;**-1 TST (R0)+ ;SKIP PAST LINK WORD MOV R5,@R0 ;INSERT UCB ADDRESS SUB #U.TSTA-1,@R0 ;+1 TO INDICATE A SPECIAL MCR PACKET BR 250$ ;QUEUE THIS SHORT PACKET TO THE CLI ; DD129 ; DD129 .IFTF ;T$$SPC ; DD129 ; DD129 170$: BR 260$ ;BRANCH AIDS ; DD129 180$: BR 270$ ; ; DD129 190$: BR 280$ ; ; DD129 200$: BR 290$ ; ; DD129 ; DD114 .IFT ;T$$SPC ; DD114 ; DD114 210$: MOV @SP,R1 ;GET CHARACTER COUNT ; DD114 ADD #C.CTXT+77,R1 ;ROUND UP TO NEXT 32 WORD BOUNDARY ; DD114 ASH #-6,R1 ;COMPUTE NUMBER OF SECONDARY POOL BLOCKS NEEDED ; DD114 CALL $ALSEC ;ALLOCATE CLI BUFFER ; DD114 BCS 290$ ;FAILURE - JUMP ; DD114 MOVB @R3,-(SP) ;SAVE TERMINATOR ; DD114 ; DD114 .IF NDF T$$SPL ; DD114 ; DD114 MOV U.TFPB-U.TFIB(R4),-(SP) ;SAVE CLI STATUS WORD ; DD114 ; DD114 .IFTF ;NDF T$$SPL ; DD114 ; DD114 MOV R0,KISAR6 ;MAP CLI BUFFER ; DD114 MOV #140002,R2 ;POINT TO IT ; DD114 MOV $MCRPT,(R2)+ ;SET CLI DISPATCHER TCB ADDRESS ; DD114 MOV R5,(R2) ;SET UCB ADDRESS ; DD114 SUB #U.TSTA,(R2)+ ; ; DD114 ; DD114 .IFT ;NDF T$$SPL ; DD114 ; DD114 MOV 4(SP),(R2) ;SET CHARACTER COUNT ; DD114 ; DD114 .IFF ;NDF T$$SPL ; DD114 ; DD114 MOV 2(SP),(R2) ;SET CHARACTER COUNT ; DD114 ; DD114 .IFTF ;NDF T$$SPL ; DD114 ; DD114 DEC (R2)+ ;LESS TERMINATOR ; DD114 ; DD114 .IFT ;NDF T$$SPL ; DD114 ; DD114 MOV (SP)+,(R2)+ ;SET STATUS BIT ; DD114 ; DD114 .IFF ;NDF T$$SPL ; DD114 ; DD114 MOV U.TFPB-U.TFIB(R4),(R2)+ ;SET STATUS BIT ; DD114 ; DD114 .ENDC ;NDF T$$SPL ; DD114 ; DD114 CLR (R2)+ ;CLEAR TEXT STARTING OFFSET ; DD114 MOVB (SP)+,(R2)+ ;INSERT TERMINATOR ; DD114 MOVB R1,(R2)+ ;SET NUMBER OF SECONDARY POOL BLOCKS USED ; DD114 MOV $DALED,KISAR6 ;REMAP DRIVER ; DD114 MOV @R4,R1 ;GET FIRST BUFFER (U.TFIB) ; DD114 MOV R4,-(SP) ;SAVE UCBX POINTER ; DD114 MOV R2,R4 ;CHANGE HANDS ; DD114 MOV 2(SP),R2 ;GET CHARACTER COUNT ; DD114 MOV R5,-(SP) ;SAVE UCB POINTER ; DD114 ; DD114 .IFF ;T$$SPC ; DD114 ; DD114 210$: MOV #M$$CRB,R1 ;GET SIZE OF CLI BUFFER ; DD114 CALL $ALOCB ;ALLOCATE CLI BUFFER ;**-3 BCS 290$ ;FAILURE - JUMP ; DD129 MOVB @R3,@U.TIP+2-U.TFIB(R4) ;STORE TERMINATOR IN BUFFER ;**-1 MOV @SP,R2 ;GET TOTAL NUMBER OF CHARACTERS READ ;PLUS TERMINATOR MOV R0,-(SP) ;SAVE CLI COMMAND BUFFER ADDRESS TST (R0)+ ;SKIP LINK WORD MOV R5,@R0 ;INSERT UCB ADDRESS SUB #U.TSTA,(R0)+ ; MOV @R4,R1 ;GET FIRST BUFFER (U.TFIB) ; DD114 .IFTF ;T$$SPC ; DD114 ; DD114 220$: MOV (R1)+,-(SP) ;SAVE LINK TO NEXT BUFFER ; DD129 TST (R1)+ ;SKIP SECOND WORD ;**-1 MOV #T$$BFL-4,R3 ;GET MAX NUMBER OF BYTES IN BUFFER CMP R3,R2 ;TOO MANY? BLE 230$ ;N - JUMP ; DD129 MOV R2,R3 ;Y - ADJUST ;**-1 230$: SUB R3,R2 ;GET NUMBER OF BYTES STILL TO GO ; DD129 ; DD114 .IFT ;T$$SPC ; DD114 ; DD114 240$: MOVB (R1)+,R5 ;GET NEXT CHARACTER FROM DRIVER BUFFER ; DD114 MOV R0,KISAR6 ;MAP CLI BUFFER ; DD114 MOVB R5,(R4)+ ;PUT CHARACTER IN CLI BUFFER ; DD114 MOV $DALED,KISAR6 ;REMAP DRIVER BUFFER ; DD114 ; DD114 .IFF ;T$$SPC ; DD114 ; DD114 240$: MOVB (R1)+,(R0)+ ;COPY INTO CLI BUFFER ; DD129 ; DD114 .IFTF ;T$$SPC ; DD114 ; DD114 SOB R3,240$ ;LOOP ; DD129 MOV (SP)+,R1 ;GET NEXT BUFFER ; DD129 BNE 220$ ;THERE IS ONE - LOOP ; DD129 ; DD114 .IFT ;T$$SPC ; DD114 ; DD114 MOV R0,KISAR6 ;MAP CLI BUFFER ; DD114 MOVB #CH.CR,-(R4) ;DELIMIT BUFFER WITH A CARRIAGE RETURN ; DD114 MOVB -(R4),4(SP) ;SAVE LAST INPUT CHARACTER ; DD114 MOV $DALED,KISAR6 ;REMAP DATASPACE ; DD114 MOV (SP)+,R5 ;RESTORE UCB POINTER ; DD114 MOV (SP)+,R4 ;RESTORE UCBX POINTER ; DD114 MOV R0,R1 ;GET SECONDARY POOL COMMAND BUFFER ADDRESS ; DD114 CALL $QCPKT ;QUEUE CLI COMMAND BUFFER ; DD114 ; DD114 .IFF ;T$$SPC ; DD114 ; DD114 MOV (SP)+,R1 ;GET CLI COMMAND BUFFER ;**-7 MOVB -2(R0),@SP ;N - SAVE LAST INPUT CHARACTER ;**-2 250$: CALL $QMCRL ;QUEUE CLI COMMAND BUFFER ; DD114 ; DD114 .ENDC ;T$$SPC ; DD114 ;**-1 .IF DF R$$MPL CMPB @SP,#'- ;WAS LAST CHARACTER A HYPHEN? ; DD094 .IF DF R$$MPL!A$$CLI ; DD094 ; DD094 BNE 260$ ;N - JUMP ; DD094 MOV U.MUP-U.TSTA(R5),R2 ;GET CLI OFFSET ; DD094 BIC #^C,R2 ;SEPARATE OUT CLI INDEX ; DD094 MOV $CPTBL(R2),R2 ;POINT TO CLI PARSER BLOCK ; DD094 BIT #CP.SGL,C.PSTS(R2) ;CONTINUATION LINES ACCEPTED? ; DD094 ; DD094 .ENDC ;R$$MPL!A$$CLI ; DD094 ; DD094 BEQ 300$ ;Y - CONTINUATION LINES TO FOLLOW, JUMP ; DD129 ;**-1 .ENDC ;R$$MPL 260$: TST (SP)+ ;CLEAN STACK ; DD129 BIC #S1.IBY!S1.USI,@R5 ;CLEAR UNSOL. INPUT FLAGS ;**-1 BISB #FR.GRQ,U.TFRQ-U.TSTA(R5) ;TRY TO GET ANOTHER REQUEST PACKET CLR U.TCI-U.TFIB(R4) ;CLEAR PACKET POINTER (U.TCI) MOV @R4,R2 ;GET FIRST INPUT BUFFER CALLR DELTB ;DEALLOCATE ALL INPUT BUFFERS AND RETURN ; ;**-6 ; ERROR DURING UNSOLICITED INPUT. THESE ERRORS ARE: ; 1. FAILURE TO ALLOCATE CLI COMMAND BUFFER ; 2. TIME-OUT ; 3. BUFFER FULL WITH NO TERMINATOR ; IN EITHER CASE, SIMULATE A CTRL-U. ; 270$: BIT #S1.OBY,@R5 ;OUTPUT BUSY? ; DD129 BNE 260$ ;Y - TIME-OUT WITH ECHO IN PROGRESS ; DD129 ;THIS MUST BE A HARDWARE ERROR AND WE ;**-2 ;CAN'T DO ANYTHING BUT GIVE UP BR 290$ ; ; DD129 280$: CMPB -(R3),#IE.EOF ;END-OF-FILE (CTRL-Z TYPED)? ; DD129 BEQ 260$ ;Y - DON'T ECHO ^U (^Z ALREADY ECHOED) ; DD129 290$: MOVB #CH.CTU,@SP ;GET CTRL-U CHARACTER ; DD129 ;(OVERWRITE OLD WORD ON STACK) ;**-4 BR 310$ ;REQUEST POST-FORK PROCESSING OF CTRL-U ; DD117 ; ; DD117 ; CLI CONTINUATION EXPECTED ; DD117 ; ; DD117 300$: MOVB #CH.CTC,@SP ;GET CTRL-C CHARACTER ; DD117 ;(OVERWRITE OLD WORD ON STACK) ; DD117 ; DD117 .IF DF T$$SPC ; DD117 ; DD117 MOV #100000,U.TFPB-U.TFIB(R4) ;SET CLI CONTINUATION PROMPT ; DD117 ; DD117 .ENDC ;T$$SPC ; DD117 ; DD117 310$: ;REFERENCE LABEL ; DD129 ;**-1 .IF DF T$$SER ; DD116 ; DD116 BIC #UM.CMD,U.MUP-U.TSTA(R5) ;SHOW NO CLI COMMANDS IN PROGRESS ; DD116 ; DD116 .ENDC ;T$$SER ; DD116 ; DD116 .IF DF T$$MOD BITB #US.DSB!US.CRW,U.STS-U.TSTA(R5) ;LINE DISABLED OR WAITING FOR CARRIER? BNE 260$ ;Y - JUMP ; DD129 ;**-1 .ENDC ;T$$MOD ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOVB (SP)+,U.TECO-U.TSTA(R5) ;LOAD CHARACTER FOR POST-FORK ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOVB (SP)+,U.TECB-U.TFIB(R4) ;LOAD CHARACTER FOR POST-FORK ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 ;PROCESSING IN ECHO BUFFER BISB #FR.GRQ!FR.PFP,U.TFRQ-U.TSTA(R5) ;TRY TO GET ANOTHER PACKET (FR.GRQ) ;REQUEST POST-FORK PROCESSING (FR.PFP) RETURN ;RETURN ; .DSABL LSB .PAGE ; NOBUF: MOV #IE.NOD&377,R0 ;ERROR - NO BUFFER AVAILABLE BR FIN SKIP: MOV #IS.SUC,R0 ;SUCCESS FIN: JMP IOFIN ; ; .SBTTL PPWLB - PROCESS AN IO.WLB REQUEST ; ; INPUT: ; R3 I/O PACKET ADDRESS ; I.LNK = 0 ; R4 UCBX ADDRESS ; R5 POINTER TO U.TSTA ; ; .ENABL LSB .IF DF T$$RPR PPRPR:: MOV R3,R2 ;COPY PACKET POINTER ADD #I.PRM+16,R2 ;POINT TO I.PRM+16 MOV @R2,-(SP) ;SAVE 2.ND WORD OF ADDRESS DOUBLE WORD MOV -(R2),2(R2) ;MOVE VFC/CURSOR-CONTROL TO I.PRM+16 MOV -(R2),2(R2) ;MOVE BYTE COUNT TO I.PRM+14 MOV (SP)+,@R2 ;MOVE 2.ND WORD OF ADW TO I.PRM+12 INC @R3 ;SET STATUS NON-ZERO TO INDICATE IO.RPR ;(FOR EASIER CHECKING) CLR U.TFOB(R4) ;CLEAR POINTER TO FIRST OUTPUT BUFFER BR 10$ ;BYPASS TF.CCO CHECK .ENDC ;T$$RPR PPWLB:: .IF DF T$$CUP MOV I.PRM+10(R3),I.PRM+6(R3) ;MOVE VFC TO RIGHT PLACE .ENDC ;T$$CUP BIT #TF.CCO,I.FCN(R3) ;CANCEL CTRL-O? BEQ 20$ ;N - JUMP ; DD129 10$: BIC #S1.CTO,@R5 ;Y - DO IT ;**-1 20$: BIT #S1.CTO,@R5 ;OUTPUT STOPPED BY CTRL-O? ; DD129 ;(CAN ONLY HAPPEN IF TERM. IS ATTACHED) ;**-1 BNE SKIP ;Y - FINISH DIRECTLY CALL ALTB ;ALLOCATE AN INTERMEDIATE BUFFER BCS NOBUF ;FAILED - JUMP MOV R3,U.TCO(R4) ;U.TCO <-- PACKET ADDRESS MOVB I.FCN(R3),R0 ;GET IO SUBFUNCTION CODE .IF DF T$$RPR TST @R3 ;PROMPT FOR IO.RPR? BEQ 30$ ;N - JUMP ; DD129 ASSUME TF.WAL,TF.BIN*4 ;**-1 ASL R0 ;SHIFT SUBF. CODE LEFT 2 BITS ASL R0 .IF DF T$$CUP BIC #TF.RCU,R0 ;CAN'T DO CURSOR RESTORE WITH IO.RPR .ENDC ;T$$CUP BIS #S1.IBY,@R5 ;SET INPUT BUSY ADD #10,R3 ;ADVANCE PACKET POINTER SO OFFSET I.PRM ;FROM R3 POINTS AT PROMPT PARAMETERS MOV R2,U.TFPB(R4) ;SAVE POINTER TO FIRST PROMPT BUFFER .ENDC ;T$$RPR ASSUME S3.WAL,TF.WAL*400 ASSUME S3.RCU,TF.RCU*400 30$: BIC #^C,R0 ; DD129 ;CLEAR ALL BUT WAL AND RCU SUBFUNCTIONS ;**-1 CMP (R5)+,(R5)+ ;POINT TO STATUS WORD 3 BIC #S3.WAL!S3.PCU!S3.RCU,@R5 ;CLEAR OLD FLAGS BISB R0,1(R5) ;OR INTO STATUS WORD 3 MOV R4,R1 ADD #U.TOC,R1 ;POINT TO U.TOC CLR (R1)+ ;CLEAR U.TOC ASSUME U.TTOC,U.TOC+2 MOV I.PRM+4(R3),(R1)+ ;U.TTOC <-- TOTAL BYTE COUNT ASSUME U.TFOB,U.TTOC+2 MOV R2,@R1 ;LINK BUFFER TO LISTHEAD ; ; INTERPRETE AND SAVE VERTICAL FORMAT CONTROL ; BIC #S2.CR,-(R5) ;ASSUME NO TRAILING CR .IF DF T$$CUP TSTB I.PRM+7(R3) ;CURSOR POSITION SPECIFIED? BEQ 40$ ;N - JUMP ; DD129 MOV I.PRM+6(R3),U.TOC(R4) ;Y - SAVE CURSOR POS. IN U.TOC ;**-1 BIS #S3.PCU,2(R5) ;SET FLAG BR 70$ ; ; DD129 ;**-1 .ENDC ;T$$CUP 40$: MOV #VFCRT,R0 ;POINT TO RECOGNITION TABLE FOR VFC ; DD129 50$: TSTB (R0)+ ;END OF TABLE? ; DD129 BMI 60$ ;Y - JUMP ; DD129 CMPB -1(R0),I.PRM+6(R3) ;MATCH? ;**-3 BNE 50$ ;N - LOOP ; DD129 60$: SUB #CHRT+1,R0 ;GET INDEX IN CHRD TABLE ; DD129 ASL R0 ;MAKE WORD INDEX ;**-2 MOVB CHRD(R0),U.TVFC(R4) ;STORE ENCODED VFC IN UCB ;(SEE MODULE "TTDAT" FOR CODING) .IIF GT S2.CR-200 .ERROR ;S2.CR MUST BE IN LOW BYTE BISB CHRD+1(R0),@R5 ;SAVE CR FLAG IN U.TSTA+2 70$: TST -(R5) ;POINT TO STATUS WORD 1 ; DD129 ;**-1 .IF DF T$$RPR MOV U.TCO(R4),R0 ;GET REAL PACKET POINTER MOV SP,I.PRM+16(R0) ;ASSUME WE CAN BUFFER ALL OUTPUT IN ;ONE LIST - MAKE I.PRM+16 NON-ZERO .IFF ;T$$RPR MOV SP,I.PRM+16(R3) ;ASSUME WE CAN BUFFER ALL OUTPUT IN ;ONE LIST - MAKE I.PRM+16 NON-ZERO .ENDC ;T$$RPR .DSABL LSB .PAGE .SBTTL WRITE1 - FILL OUTPUT BUFFERS ;+ ; WRITE1 - FILL OUTPUT BUFFERS WITH OUTPUT DATA. ; ; INPUT: ; U.TFOB POINTER TO FIRST OUTPUT BUFFER ; R3 POINTER TO PACKET ; (ADVANCED 4 WORDS IF IO.RPR) ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; U.TCHP CURRENT HORIZONTAL POSITION ; U.TCVP CURRENT VERTICAL POSITION ; U.TVFC ENCODED VERTICAL FORMAT CONTROL ;- ; ; WRITE1: .IF DF T$$RPR ASSUME U.TCHP&1,0 ASSUME U.TCVP,U.TCHP+1 MOV U.TCHP-U.TSTA(R5),-(SP) ;SAVE CURRENT HOR. AND VERT. POS. .ENDC .IF DF T$$CUP ; SAVE CURRENT HORIZONTAL AND VERTICAL POSITION IN CASE ; CURSOR RESTORE IS REQUESTED. ; ASSUME U.TSHP&1,0 ASSUME U.TSVP,U.TSHP+1 .IF DF T$$RPR MOV @SP,U.TSHP(R4) .IFF ;T$$RPR MOV U.TCHP-U.TSTA(R5),U.TSHP(R4) .ENDC ;T$$RPR MOV #EXPC3,EXPCP ;SET POINTER TO EXPC3 ; DD067 ; DD067 .IFTF ;T$$CUP MOV U.TFOB(R4),R0 ;GET FIRST BUFFER IN R0 MOV #SETBUF,-(SP) ;FIRST SET UP NEW BUFFER .IFT ;T$$CUP ASSUME S3.PCU,100000 TST 4(R5) ;CURSOR POS. REQUESTED? BPL 10$ ;N - JUMP ; DD129 MOV U.TOC(R4),R2 ;Y - GET CURSOR COORDINATES ;**-1 SUB #401,R2 ;ADJUST TO BASE 0 MOV #CPOS,EXPCP ;SET POINTER TO CURSOR POS. ROUTINE CALL @(SP)+ ;CALL COROUTINE MOV #EXPC3,EXPCP ;RESTORE POINTER TO EXPC3 ; DD067 BIC #S3.PCU,4(R5) ;CLEAR FLAG BR 40$ ; ; DD129 ;**-2 .ENDC ;T$$CUP ; ; CHECK IF ANY LEADING LF'S SHOULD BE INSERTED ; 10$: MOVB U.TVFC(R4),R2 ;GET VFC CHARACTER ; DD129 BEQ 40$ ;NO LEADING LF OR FF - JUMP ; DD129 BPL 30$ ;FF - JUMP ; DD129 20$: MOVB #CH.LF,R2 ;ONE OR MORE LF'S ; DD129 30$: CALL @(SP)+ ;INSERT ; DD129 INCB U.TVFC(R4) ;ANY MORE LF'S? ;**-5 BEQ 40$ ;N - JUMP ; DD129 BMI 20$ ;Y - LOOP ; DD129 CLRB U.TVFC(R4) ;JUST DID A FF - CLEAR ;**-2 ; ; INSERT CHARACTERS FROM TASK BUFFER ; 40$: TST U.TTOC(R4) ;ANY MORE CHARACTERS FROM TASK BUFFER? ; DD129 ;(THERE WON'T BE IF WE COME HERE FROM ;**-1 ;"FPORD" TO OUTPUT A TRAILING CR) BEQ 60$ ;N - JUMP ; DD129 50$: MOV I.PRM+2(R3),R2 ;GET POINTER IN TASK BUFFER ; DD129 MOV I.PRM(R3),KISAR6 ;MAP TASK BUFFER ;**-2 MOVB @R2,R2 ;GET NEXT CHARACTER MOV $DALED,KISAR6 ;RESTORE DRIVER MAPPING ; DD074 CALL @(SP)+ ;INSERT CHARACTER ;**-1 INC I.PRM+2(R3) ;UPDATE POINTER IN TASK BUFFER DEC U.TTOC(R4) ;DECREMENT TOTAL BYTE COUNT BNE 50$ ;MORE TO DO - LOOP ; DD129 ; ;**-1 ; CHECK IF TRAILING CARRIAGE RETURN REQUIRED ; 60$: BIT #S2.CR,2(R5) ;INSERT CR AT END? ; DD129 BEQ 70$ ;N - JUMP ; DD129 MOVB #CH.CR,R2 ;Y - DO IT ;**-2 CALL @(SP)+ ; BIC #S2.CR,2(R5) ;CLEAR CR FLAG 70$: ;REFERENCE LABEL ; DD129 ;**-1 .IF DF T$$CUP BIT #S3.RCU,4(R5) ;CURSOR RESTORE REQUESTED? BEQ 80$ ;N - JUMP ; DD129 MOV U.TSHP(R4),R2 ;Y - GET SAVED CURSOR POS. ;**-1 MOV #CPOS,EXPCP ;SET POINTER TO CURSOR POS. ROUTINE CALL @(SP)+ ;CALL COROUTINE MOV #EXPC3,EXPCP ;RESTORE POINTER TO EXPC3 ; DD067 BIC #S3.RCU,4(R5) ;CLEAR FLAG ;**-1 .ENDC ;T$$CUP 80$: MOV -(R1),R2 ;GET POINTER TO NEXT BUFFER ; DD105 BEQ 90$ ;NO UNUSED BUFFERS - JUMP ; DD105 CLR @R1 ;END THE LIST WITH THE LAST USED BUFFER ; DD105 CLZ ;CLEAR CC-Z TO TELL DELTB TO DEALLOCATE A LIST ; DD105 CALL DELTB ;DEALLOCATE THE UNUSED BUFFERS ; DD105 90$: ;REFERENCE LABEL ; DD105 .IF DF T$$RPR MOV U.TCO(R4),R3 ;RESTORE REAL PACKET POINTER .IFTF ;T$$RPR ; DD111 ;**-1 TST I.PRM+16(R3) ;DID WE MANAGE TO BUFFER ALL THE DATA ;IN ONE BUFFER LIST? BEQ WRITE2 ;N - JUMP CALL $TSTBF ;Y - TEST IF TASK CAN BE CHECKPOINTED BCS CLR16 ;N - JUMP .IFT ;T$$RPR ; DD111 ;**-1 TST @R3 ;IS THIS AN IO.RPR? BEQ 100$ ;N - JUMP ; DD129 CALL ALTB ;Y - ALLOCATE FIRST INPUT BUFFER ;**-1 BCS CLR16 ;FAILED - JUMP MOV R2,U.TFIB(R4) ;OK - SAVE BUFFER POINTER .IFTF ;T$$RPR ; DD111 ;**-1 100$: CALL $INIBF ;INITIALIZE INTERMEDIATE BUFFERING ; DD129 BR WRITE2 ;START OUTPUT ;**-1 CLR16: CLR I.PRM+16(R3) ;USE $IOFIN AT END WRITE2: .IFT ;T$$RPR ; DD111 ;**-1 TST @R3 ;IO.RPR? ; DD104 BEQ 10$ ;N - JUMP ; DD104 BIS #S3.RPO,4(R5) ;SET PROMPT OUTPUT IN PROGRESS ; DD104 CLR @R3 ;INITIALIZE STATUS 10$: CMP (SP)+,(SP)+ ;CLEAN STACK ; DD104 ;**-1 .IFF ;T$$RPR TST (SP)+ ;CLEAN STACK .ENDC ;T$$RPR MOV #STAXL,-(SP) ;START OUTPUT OF BUFFER LIST BR LOCKI ; ; ; OUTPUT LEADING LF FOR SOLICITED INPUT AT LEFT MARGIN ; PRLF: ; DD074 ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV #120000,R4 ;SET VIRTUAL ADDRESS OF UCBX ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOV U.TUX-U.TSTA(R5),R4 ;GET UCBX ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 CALL EXCR1 ;EXPAND A CARRIAGE RETURN (YIELDING LF!) ;**-1 MOV #ECHSTR,-(SP) ;OUTPUT LF ; ; ;+ ; LOCKI - LOCK OUT INTERRUPTS. ; THIS IS A COROUTINE THAT WORKS AS FOLLOWS: ; 1. RAISE PRIORITY TO LOCK OUT INTERRUPTS ; 2. CALL CALLER (OR CALL ROUTINE WHOSE ADDRESS ; IS ON TOP OF STACK) ; 3. DROP PRIORITY ; 4. RETURN ;- ; ; LOCKI:: MTPS #TTPRI ;LOCK OUT INTERRUPTS CALL @(SP)+ ;;;CALL COROUTINE MTPS #0 ;;;ALLOW INTERRUPTS RETURN ;RETURN ; ; ; JUMP AIDS ; JWRIT1: JMP WRITE1 ;BRANCH AID ; DD105 .PAGE ;**-1 .SBTTL INSERT - INSERT (EXPANSION OF) CHARACTER IN OUTPUT BUFFER. ;+ ; INSERT - INSERT (THE EXPANSION OF) ONE CHARACTER IN THE ; CURRENT OUTPUT BUFFER. ; ; INPUT: ; R0 CURRENT POINTER IN OUTPUT BUFFER ; R1 POINTER TO SECOND WORD IN CURRENT OUTPUT BUFFER ; R2 CHARACTER TO INSERT ; R4 POINTER TO UCBX ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; 1. IF (THE EXPANSION OF) THE CHARACTER FITS IN THE CURRENT BUFFER, ; OR IF IT DOES NOT BUT ANOTHER BUFFER IS SUCCESSFULLY ALLOCATED ; AND LINKED TO THE OLD BUFFER, THE CHARACTER IS INSERTED ; AND THE CALLER IS CALLED BACK AS A COROUTINE WITH: ; R0 UPDATED ; R1 POINTER TO SECOND WORD IN CURRENT BUFFER ; (MAY BE A NEW BUFFER) ; R2 DESTROYED ; R3-R5 UNCHANGED ; THE CALLER MAY NOW LOAD ANOTHER CHARACTER IN R2 AND ; HAVE IT INSERTED BY A "CALL @(SP)+" INSTRUCTION. ; ; 2. ELSE, IF THIS IS THE PROMPT FOR AN IO.RPR, THE HORIZONTAL ; AND VERTICAL POSITION AND THE WRAP-AROUND CONTEXT ; IS RESTORED, AND THE ERROR IE.NOD IS RETURNED TO ; THE TASK. (NO RETURN TO CALLER). ; ; 3. ELSE, OUTPUT IS STARTED WITH THE CURRENT LIST OF BUFFERS. ; (NO RETURN TO CALLER). ;- ; ; .ENABL LSB ; INSERT: MOV R3,-(SP) ;SAVE R3 10$: CLR -(SP) ;CLEAR FLAG MOV R2,-(SP) ;SAVE CHARACTER ASSUME U.TCHP&1,0 ASSUME U.TCVP,U.TCHP+1 MOV U.TCHP-U.TSTA(R5),-(SP) ;SAVE CURRENT POSITION MOV 2(R5),-(SP) ;SAVE WRAP-AROUND CONTEXT ;(IF EXPANDED STRING DOES NOT FIT) BIC #S2.FLF,2(R5) ;CLEAR FORCE-LF FLAG (LF IS FORCED ONLY ;ON ECHO, NOT ON TASK OUTPUT) .IF DF T$$CUP CALL @EXPCP ;EXPAND CHAR. OR CURSOR POS. COMMAND .IFF ;T$$CUP CALL EXPC3 ;EXPAND CHARACTER .ENDC ;T$$CUP BEQ 30$ ;SINGLE CHARACTER EXPANSION - JUMP ROL 6(SP) ;SAVE CC-C ADD R2,@R1 ;UPDATE BUFFER BYTE COUNT CMP @R1,#T$$BFL-4 ;DOES STRING FIT? BHI 50$ ;N - JUMP ; DD129 20$: MOVB (R3)+,(R0)+ ;COPY STRING INTO BUFFER ;**-1 SOB R2,20$ ;LOOP BR 40$ 30$: CMP @R1,#T$$BFL-4 ;ROOM FOR ONE MORE CHAR. IN BUFFER? BHIS 60$ ;N - JUMP ; DD129 MOVB R2,(R0)+ ;Y - INSERT CHARACTER ;**-1 INC @R1 ;UPDATE BYTE COUNT 40$: CMP (SP)+,(SP)+ ;POP SAVED POSITION AND WRAP-AROUND CONTEXT MOV (SP)+,R2 ;RESTORE CHARACTER ROR (SP)+ ;NEED TO CALL EXPCHR AGAIN WITH THIS CHARACTER? BCS 10$ ;Y - LOOP MOV (SP)+,R3 ;N - RESTORE R3 CALL @(SP)+ ;CALL CALLER BACK BR INSERT ;DO IT AGAIN ; ; CHARACTER EXPANSION DOES NOT FIT IN BUFFER. ; RESTORE CURRENT HORIZONTAL AND VERTICAL POSITION AND STATE VARIABLE. ; 50$: SUB R2,@R1 ;RESTORE BUFFER BYTE COUNT ; DD129 60$: MOV (SP)+,2(R5) ;RESTORE STATUS WORD 2 ; DD129 ;NOTE - THIS WORD IS MODIFIED ONLY AT ;**-2 ;SYSTEM STATE, OR FOR CHARACTER ECHOING. ;ECHOING CAN NOT INTERRUPT US HERE BECAUSE ;INPUT PROCESSING IS DISABLED BY S1.DSI. ASSUME U.TCHP&1,0 ASSUME U.TCVP,U.TCHP+1 MOV (SP)+,U.TCHP-U.TSTA(R5) ;RESTORE CURRENT POSITION ; ; ALLOCATE ANOTHER OUTPUT BUFFER ; MOV -(R1),R2 ;GET POINTER TO NEXT BUFFER ; DD105 BNE 70$ ;THERE IS A FREE BUFFER IN THE LIST - JUMP ; DD105 CALL ALTB ;ALLOCATE ANOTHER BUFFER 70$: MOV R2,R0 ;GET BUFFER ADDRESS (IF WE GOT ONE) ; DD105 MOV (SP)+,R2 ;RESTORE CHARACTER ;**-1 MOV R2,(SP)+ ;POP FLAG WORD (DON'T TOUCH CC-C) MOV (SP)+,R3 ;RESTORE R3 .IF DF T$$RPR BCS 80$ ;FAILED - JUMP ; DD129 ;**-1 .IFF ;T$$RPR BCS CLR16 ;FAILED - CLEAR I.PRM+16 AND ;START OUTPUT .ENDC ;T$$RPR MOV R0,@R1 ;LINK NEW BUFFER TO OLD ; DD105 SETBUF: TST (R0)+ ;POINT TO SECOND WORD ;**-1 MOV R0,R1 ;SAVE POINTER IN R1 CLR (R0)+ ;INITIALIZE BYTE COUNT AND POINT ;TO START OF DATA AREA BR INSERT ;START USING NEW BUFFER ; ; FAILED TO ALLOCATE BUFFER ; .IF DF T$$RPR 80$: MOV U.TCO(R4),R3 ;GET REAL PACKET POINTER ; DD129 TST @R3 ;IO.RPR? ;**-1 BEQ CLR16 ;N - START PARTIAL OUTPUT ;AFTER CLEARING I.PRM+16 TST (SP)+ ;POP RETURN ADDRESS ASSUME U.TCHP&1,0 ASSUME U.TCVP,U.TCHP+1 MOV (SP)+,U.TCHP-U.TSTA(R5) ;RESTORE CURRENT POSITION BIC #S2.WRA,2(R5) ;CLEAR WRAP-AROUND CONTEXT MOV #IE.NOD&377,@R3 ;GET STATUS FOR "NO BUFFER AVAILABLE" CLR I.PRM+16(R3) ;USE $IOFIN ;FALL THRU TO "FPORD" TO FINISH REQUEST .ENDC ;T$$RPR .DSABL LSB .PAGE .SBTTL FPORD - OUTPUT REQUEST DONE ;+ ; FPORD - OUTPUT REQUEST DONE. ; COME HERE WHEN ALL OUTPUT BUFFERS HAVE BEEN OUTPUT. ; TRANSFER MAY OR MAY NOT BE COMPLETED - IF IT IS, ; STATUS IS STORED IN THE LINK WORD OF THE IO PACKET. ; ; THIS ROUTINE IS ENTERED FROM THE FORK DISPATCHER WITH: ; R4 UCBX ADDRESS ; R5 POINTER TO U.TSTA ;- ; ; .ENABL LSB ; FPORD:: MOV U.TCO(R4),R3 ;GET I/O PACKET TST @R3 ;STATUS PRESENT? BNE ORD2 ;Y - JUMP TST U.TTOC(R4) ;ALL DONE? BNE JWRIT1 ;N - MORE TO DO, JUMP ;NOTE - THIS CANNOT HAPPEN WHEN DOING IO.RPR! BIT #S2.CR,2(R5) ;TRAILING CR REQUIRED? BNE JWRIT1 ;Y - JUMP INC @R3 ;SET STATUS = IS.SUC ; ; OUTPUT DONE. ; ORD2: CLR U.TCO(R4) ;CLEAR POINTER TO PACKET TO SHOW ;NOT DOING TASK OUTPUT ANY MORE BIC #S1.OBY,@R5 ;SET OUTPUT FREE .IF DF T$$RPR CMPB I.FCN+1(R3),#IO.RPR/400 ;WAS THIS THE PROMPT FOR AN IO.RPR? BNE 20$ ;N - JUMP BIC #S3.RPO,4(R5) ;CLEAR PROMPT OUTPUT IN PROGRESS ; DD104 TSTB @R3 ;HAVE AN ERROR ALREADY? BMI 10$ ;Y - JUMP ; DD129 BISB #FR.GRQ,U.TFRQ-U.TSTA(R5) ;TRY ANOTHER PACKET WHEN INPUT ;**-8 ;HAS BEEN STARTED (LINE MAY BE FULL DUPLEX) JMP PPRLB ;NOW DO THE READ ;(LEAVE LINK WORD NON-ZERO TO INDICATE ;DOING IO.RPR) 10$: BIC #S1.IBY,@R5 ;SET INPUT FREE ; DD129 ;**-1 .ENDC ;T$$RPR 20$: ;REFERENCE LABEL ; DD098 ; DD098 .IF DF T$$ACD ; DD098 ; DD098 TST U.ACB-U.TSTA(R5) ;DOES THIS TERMINAL HAVE AN ACD? ; DD098 BEQ 30$ ;N - JUMP ; DD098 MOV #A.OUTP,R0 ;SET OUTPUT COMPLETION ENTRY POINT ; DD098 CALL $SWACD ;CALL ACD ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 30$: MOV U.TFOB(R4),R2 ;GET FIRST OUTPUT BUFFER ; DD098 CALL DELTB ;DEALLOCATE ALL BUFFERS ;**-1 MOV I.PRM+4(R3),R1 ;GET NUMBER OF BYTES REQUESTED SUB U.TTOC(R4),R1 ;SUBTRACT U.TTOC ; ; IF A REQUEST IS ABORTED (BY TIME-OUT OR IO.KIL), WE RETURN THE ; NUMBER OF BYTES TRANSFERRED, INCLUDING THE CURRENT (PARTIAL) ; BUFFER. THERE IS NO WAY WE CAN FIND OUT HOW MANY BYTES FROM ; THE TASK'S BUFFER CORRESPOND TO THE NUMBER OF EXPANDED BYTES ; THAT WE SENT FROM THE CURRENT BUFFER. ; .IF DF T$$BTW CMPB I.PRI(R3),#251. ;WAS THIS AN IO.WBT? BNE 70$ ;N - JUMP ; DD129 ASSUME S2.FDX,100000 ;**-1 TST 2(R5) ;FULL DUPLEX LINE? BMI 70$ ;Y - JUMP ; DD129 ASSUME S1.IBY,200 ;**-1 TSTB @R5 ;INPUT BUSY? BPL 40$ ;N - JUMP ; ; WE JUST FINISHED AN IO.WBT THAT BROKE THROUGH AN INPUT ON A ; NON-FULL-DUPLEX LINE. FAKE A CTRL-R TO REDISPLAY THE CURRENT ; INPUT LINE. ; ; THERE CANNOT BE A FORK REQUEST PENDING FOR INPUT DONE (OR PARTIAL ; INPUT DONE) SINCE INPUT FORK REQUESTS ARE PROCESSED BEFORE OUTPUT ; FORK REQUESTS. ; ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOVB #CH.CTR,U.TECO-U.TSTA(R5) ;PUT CTRL-R CHAR. IN ECHO BUFFER ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 MOVB #CH.CTR,U.TECB(R4) ;PUT CTRL-R CHAR. IN ECHO BUFFER ; DD074 ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 BISB #FR.PFP,U.TFRQ-U.TSTA(R5) ;**-1 ;REQUEST POST-FORK PROCESSING .IF DF T$$ESC ; ; IF WE ARE IN THE MIDDLE OF AN ESCAPE SEQUENCE, WE MUST RUB IT OUT ; SINCE THE ESCAPE SEQUENCE AND CTRL-R ROUTINES SHARE U.TISV. ; FURTHERMORE, CTRL-R DOES NOT WORK IF S1.ESC IS SET. ; BIT #S1.ESC,@R5 ;IN ESCAPE SEQUENCE? BEQ 70$ ;N - JUMP ; DD129 MOV R3,-(SP) ;SAVE R3 ;**-1 CALL RUBESC ;Y - RUBOUT THE ESCAPE SEQUENCE MOV (SP)+,R3 ;RESTORE R3 .ENDC BR 70$ ;ALL DONE ; DD129 ; ;**-1 ; WE FINISHED AN IO.WBT ON A NON-FULL-DUPLEX LINE, AND DID NOT BREAK ; THROUGH A READ. IF NO MORE IO.WBT REQUESTS ARE WAITING IN THE QUEUE, ; RESTORE CTRL-S AND CTRL-O FLAGS. ELSE, PASS THE SAVED STATUS ; OVER TO THE NEXT IO.WBT PACKET IN THE QUEUE. ; 40$: MOV I.PRM+12(R3),-(SP) ;GET SAVED STATUS MOV R5,R0 ;COPY U.TSTA ADDRESS SUB #U.TSTA,R0 ;GET UCB ADDRESS MOV U.SCB(R0),R4 ;GET POINTER TO SCB 50$: MOV @R4,R4 ;GET NEXT PACKET IN QUEUE ; DD129 BEQ 60$ ;NONE - JUMP ; DD129 CMP I.UCB(R4),R0 ;IS THAT PACKET FOR THIS UCB? ;**-2 BNE 50$ ;N - SKIP THIS PACKET ; DD129 CMPB I.PRI(R4),#251. ;IS IT AN IO.WBT? ;**-1 BNE 60$ ;N - JUMP ; DD129 MOV (SP)+,I.PRM+12(R4) ;Y - PASS SAVED STATUS OVER TO HIM ;**-1 BR 70$ ; ; DD129 60$: BIC #^C,@SP ;CLEAR ALL BUT CTRL-O AND CTRL-S ; DD129 ;FLAGS IN SAVED STATUS ;**-2 BIS (SP)+,@R5 ;RESTORE CTRL-O AND CTRL-S FLAGS .ENDC ;T$$BTW 70$: CLR I.PRM+12(R3) ;TELL $FINBF NO BUFFERS TO COPY OR DEALLOCATE ; DD129 ; ;**-1 ; FALL THRU TO "DONE" ; .DSABL LSB .PAGE .SBTTL I/O DONE ;+ ; DONE - DO I/O COMPLETION PROCESSING. ; ; INPUT: ; R1 IOSB WORD 2 ; R3 POINTER TO PACKET ; I.LNK = IOSB WORD 1 ; R5 POINTER TO U.TSTA ; I.PRM+16 0 IF $IOFIN TO BE USED, ; NON-0 IF $QUEBF TO BE USED ; ; OUTPUT: ; I/O REQUEST FINISHED. ; ; REGISTERS ALTERED: R0,R1,,R2,R3,R4 ;- ; ; DONE:: BISB #FR.GRQ,U.TFRQ-U.TSTA(R5) ;TIME TO TRY TO GET ANOTHER PACKET MOV @R3,R0 ;GET IOSB WORD 1 TST I.PRM+16(R3) ;USE $QUEBF? BEQ 10$ ;N - JUMP ; DD129 CALLR $QUEBF ;FINISH IO ;**-1 10$: CALLR $IOFIN ;FINISH IO ; DD129 ; ;**-1 ; .END ,3€ƒkQ ›c, .TITLE TTSUB .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 02-FEB-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD028 10-AUG-79 DALE R. DONCHIN ; DON'T RELY ON SIGN EXTEND FOR WRITE-PASS-ALL ; DD044 27-NOV-79 DALE R. DONCHIN ; DON'T EXPAND VERTICAL TAB IF HARDWARE FORMFEED IS SET ; DD046 03-DEC-79 DALE R. DONCHIN ; FIX TERMINATOR TABLE DEALLOCATION PROBLEM ; DD064 12-MAY-80 DALE R. DONCHIN ; USE CORRECT VERTICAL FILL WHEN EXPANDING VERTICAL TAB ; AND FORMFEED ON A CRT TERMINAL ; DD067 08-JUN-80 DALE R. DONCHIN ; FIX TF.RCU WHEN ESCAPE SEQUENCE EXCEEDS REMAINING ; BUFFER LENGTH ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD083 15-OCT-80 DALE R. DONCHIN ; REMOVE SCS CONDITIONALS AND CODE ; DD098 06-APR-81 DALE R. DONCHIN ; ADD ACD SUPPORT ; DD102 08-MAY-81 DALE R. DONCHIN ; DO CONVERSION FOR TERMINALS WHICH DON'T SUPPORT LOWERCASE ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; ; D0021 .PSECT MAP6 ; D0021 ; ;+ ; TTSUBR - MISCELLANEOUS SUBROUTINES FOR TERMINAL DRIVER. ;- ; ; .SBTTL ALUCBX - ALLOCATE A UCB EXTENSION BLOCK ; ;+ ; ALUCBX - ALLOCATE A UCB EXTENSION (UCBX). ; ; INPUT: ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF SUCCESS, OR IF UCBX ALREADY EXISTS: ; CC-C 0 ; R4 POINTER TO UCBX ; U.TUX POINTS TO UCBX ; UCBX INITIALIZED (ONLY IF UCBX WAS ALLOCATED) ; ; IF FAILURE: ; CC-C 1 ; ; REGISTERS ALTERED: R0,R2,R4 ;- ; ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 ; .ENABL LSB ; ASSUME U.TUX,U.TSTA-2 ALUCBX::MOV -(R5),R4 ;IS THERE ALREADY A UCBX? CLC ;ASSUME YES BNE 10$ ;Y - EXIT WITH CC-C = 0 CALL ALTB ;N - ALLOCATE A BUFFER BCS 10$ ;FAILED - EXIT WITH CC-C = 1 MOV R2,@R5 ;SAVE POINTER ; ; INITIALIZE A FEW CELLS ; ASSUME U.TCI,0 ;U.TCI ALREADY CLEARED BY ALTB CLR U.TCO(R2) ;NO CURRENT OUTPUT REQUEST CLR U.TAST(R2) ;NO AST BLOCK CLRB U.TISV(R2) ;INITIALIZE STATE VARIABLE ASSUME U.TITI&1,0 ASSUME U.TOTI,U.TITI+1 CLR U.TITI(R2) ;CLEAR INPUT AND OUTPUT TIMERS CLR U.TRTT(R2) ;ASSUME NOT A RTT FUNCTION ;EXIT WITH CC-C = 0 10$: MOV (R5)+,R4 ;RESTORE R5 AND GET UCBX IN R4 ;(OR 0 IF COMING FROM DEUCBX) 20$: RETURN ;RETURN ; ; .SBTTL DEUCBX - DEALLOCATE A UCB EXTENSION BLOCK ; ;+ ; DEUCBX - DEALLOCATE UCBX IF POSSIBLE. ; ; INPUT: ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; IF LINE IS IDLE (BOTH INPUT AND OUTPUT), NOT ATTACHED ; AND THERE ARE NO FORK REQUESTS PENDING, ; THE UCBX (IF THERE IS ONE) IS DEALLOCATED. ; ; REGISTERS ALTERED: R0,R2,R4 ;- ; ; DEUCBX::MOV @R5,-(SP) ;GET STATUS WORD 1 ; DD046 BIC #^C,@SP ;CLEAR ALL BUT INPUT AND ;**-10 ;OUTPUT BUSY FLAGS BISB U.TFRQ-U.TSTA(R5),@SP ;OR WITH FORK REQUEST FLAGS BIS U.ATT-U.TSTA(R5),(SP)+ ;OR WITH ATTACH POINTER BNE 20$ ;IF NE DON'T DEALLOCATE MOV -(R5),R2 ;GET UCBX ; DD046 BEQ 10$ ;NONE - EXIT ; DD046 CLR (R5)+ ;OK - CLEAR POINTER ; DD046 ;FALL THRU TO "DETB" ;**-1 ; .DSABL LSB ; DD074 .IFTF ;NDF T$$SPL ; DD074 ; DD074 ; ;**-1 .SBTTL DEALLOCATE A TERMINAL BUFFER ; ;+ ; DETB - DEALLOCATE TERMINAL BUFFER. ; ; INPUT: ; R2 BUFFER ADDRESS ; ; OUTPUT: ; BUFFER DEALLOCATED TO TT-DRIVER POOL OR SYSTEM POOL. ; ; REGISTERS ALTERED: R0,R2 ;- ; ; DETB:: CMP R2,#120000 ;IN TT-DRIVER POOL? BLO 10$ ;N - JUMP MOV FREEB,@R2 ;Y - ADD TO FRONT OF FREE BUFFER LIST MOV R2,FREEB RETURN 10$: MOV R1,-(SP) ;SAVE R1,R3 MOV R3,-(SP) MOV R2,R0 ;GET BUFFER ADDRESS MOV #T$$BFL,R1 ;GET LENGTH CALL $DEACB ;DEALLOCATE TO SYSTEM POOL MOV (SP)+,R3 ;RESTORE REG'S MOV (SP)+,R1 RETURN ; DD021 .PSECT MAP5 ; DD021 ; ; ;+ ; DELTB0 - DRIVER ENTRY POINT TO DEALLOCATE INTERMEDIATE BUFFERS ; FOR INPUT REQUEST. CALLED FROM $FINBF. ; ; INPUT: ; R0 POINTER TO FIRST INPUT BUFFER ;- ; ; DELTB0::CALL MAPD ;MAP DATA AREA ; DD098 .IF DF T$$ACD ; DD098 ; DD098 BIT #1,R0 ;DO BUFFER TRANSFER NOW? ; DD098 BEQ 10$ ;N - JUMP ; DD098 MOV R0,-(SP) ;Y - SAVE BUFFER ADDRESS ; DD098 CALL UBTRA ;CALL ROUTINE TO PERFORM THE TRANSFER ; DD098 MOV (SP)+,R0 ;RESTORE BUFFER POINTER ; DD098 DEC R0 ;MAKE EVEN ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 10$: MOV R0,R2 ;GET FIRST BUFFER ; DD098 ;FALL THRU TO "DELTB1" ;**-1 ; ; .SBTTL DELTB - DEALLOCATE A LINKED LIST OF TERMINAL BUFFERS ; ;+ ; DELTB - DEALLOCATE A LIST OF TERMINAL BUFFERS. ; ; INPUT: ; R2 ADDRESS OF FIRST BUFFER IN LIST, OR 0 ; CC-Z 0 IF R2 POINTS TO A BUFFER ; ; OUTPUT: ; BUFFER POINTED TO BY R2 AND ALL FOLLOWING BUFFERS DEALLOCATED. ; ; REGISTERS ALTERED: R0,R2 ;- ; ; .ENABL LSB 20$: MOV @R2,-(SP) ;SAVE LINK TO NEXT ; DD129 CALL DETB ;DEALLOCATE THIS BUFFER ;**-1 MOV (SP)+,R2 ;GET NEXT BUFFER DELTB:: BNE 20$ ;THERE IS ONE - LOOP ; DD129 RETURN ;**-1 .DSABL LSB ; DD021 .PSECT MAP6 ; DD021 ; ; .SBTTL ALTB - ALLOCATE A TERMINAL BUFFER ; ;+ ; ALTB - ALLOCATE TERMINAL BUFFER. ; ; INPUT: ; NONE ; ; OUTPUT: ; IF SUCCESS: ; CC-C 0 ; R2 POINTER TO BUFFER WITH LENGTH T$$BFL BYTES. ; FIRST WORD CLEARED. ; ; IF FAILURE: ; CC-C 1 ; ; REGISTERS ALTERED: R0,R2 ;- ; ; ALTB:: MOV FREEB,R2 ;GET FIRST FREE BUFFER BEQ 20$ ;NONE - JUMP MOV @R2,FREEB ;POINT TO NEXT FREE BUFFER ;**-12 10$: CLR @R2 ;CLEAR LINK WORD RETURN 20$: MOV R1,-(SP) ;SAVE R1 MOV #T$$BFL,R1 ;SET DESIRED LENGTH CALL $ALOCB ;ALLOCATE IN SYSTEM POOL MOV (SP)+,R1 ;RESTORE R1 MOV R0,R2 ;GET BUFFER IN R2 BCC 10$ ;OK - JUMP RETURN ;ELSE RETURN WITH CARRY SET .PAGE ; DD074 .IFT ;NDF T$$SPL ; DD074 ; DD074 .SBTTL CKTAB - CHECK FOR TYPE-AHEAD BUFFER ALLOCATION OR DEALLOCATION ; ;+ ; CKTAB - CHECK WHETHER TYPE-AHEAD BUFFER SHOULD BE ALLOCATED ; OR DEALLOCATED. ; ; INPUT: ; R5 POINTER TO U.TSTA ; S3.TAB 0 DEALLOCATE TYPE-AHEAD BUFFER IF ONE IS ALLOCATED ; (LOSING ALL CHARACTERS STORED IN IT) ; 1 ALLOCATE TYPE-AHEAD BUFFER IF NONE IS ALLOCATED ; (LOSING SINGLE CHARACTER IF THERE IS ONE) ; ; REGISTERS ALTERED: R0,R2 ;- ; ; CKTAB:: CALL LOCKI ;LOCK OUT INTERRUPTS MOV U.TTAB-U.TSTA(R5),R2 ;;;GET TYPE-AHEAD BUFFER BEQ 10$ ;;;NONE - JUMP BIT #1,R2 ;;;SINGLE-CHARACTER BUFFER? BNE 10$ ;;;Y - JUMP ; ; TYPE-AHEAD BUFFER EXISTS ; BIT #S3.TAB,4(R5) ;;;DEALLOCATE BUFFER? BNE 20$ ;;;N - JUMP CALL DETB ;;;Y - DO IT CLR U.TTAB-U.TSTA(R5) ;;;SHOW NO BUFFER ANY MORE BR 20$ ;;; ; ; TYPE-AHEAD BUFFER DOES NOT EXIST ; 10$: BIT #S3.TAB,4(R5) ;;;ALLOCATE BUFFER? BEQ 20$ ;;;N - JUMP CALL ALTB ;;;Y - DO IT BCS 20$ ;;;FAILED - JUMP MOV R2,U.TTAB-U.TSTA(R5) ;;;SAVE POINTER TO BUFFER CLR (R2)+ ;;;INITIALIZE HEADER MOV #*400,@R2 ;;; ; ; ALL DONE ; 20$: RETURN ;;;RETURN VIA COROUTINE THAT DROPS ;;;PRIORITY ; DD074 .ENDC ;NDF T$$SPL ; DD074 ; DD074 .PAGE .SBTTL EXPCHR - EXPAND AN OUTPUT CHARACTER ; ;+ ; EXPCHR - THIS MODULE CONTAINS THE ROUTINES TO EXPAND CHARACTERS ; INTO STRINGS ON OUTPUT AS REQUIRED. ; ; THESE ROUTINES ARE CALLED BOTH AT SYSTEM STATE (WHEN SETTING ; UP A WRITE REQUEST) AND FROM THE INPUT INTERRUPT SERVICE ; ROUTINE (TO GENERATE AN ECHO). THEREFORE, THE MODULE MUST ; BE REENTRANT. ;- ; ; ; EXPAND A CHARACTER ; ;+ ; EXPCHR - EXPAND A CHARACTER. ; ; INPUT: ; R2 CHARACTER ; R5 POINTER TO U.TSTA ; U.TCHP CURRENT HORIZONTAL POSITION ; U.TCVP CURRENT VERTICAL POSITION ; S2.FLF 1 IF LINE FEED MUST BE OUTPUT BEFORE NEXT ECHO ; ; OUTPUT: ; IF THE EXPANSION IS A SINGLE CHARACTER: ; CC-Z 1 ; R2 UNCHANGED ; IF THE EXPANSION IS A STRING: ; CC-Z 0 ; R2 LENGTH OF EXPANDED STRING ; R3 POINTER TO EXPANDED STRING ; IF CHARACTER SHOULD BE KEPT AND PRESENTED AGAIN ON ; NEXT CALL TO EXPCHR (ONLY RELEVANT IF CC-Z = 0): ; CC-C 1 ; IF CHARACTER SHOULD NOT BE PRESENTED AGAIN: ; CC-C 0 ; ALWAYS: ; U.TCHP UPDATED TO POSITION AFTER STRING HAS BEEN OUTPUT ; U.TCVP UPDATED TO POSITION AFTER STRING HAS BEEN OUTPUT ; S2.FLF 1 IF A CARRIAGE RETURN WAS RETURNED ; 0 ELSE ; ; REGISTERS ALTERED: R2,R3 ; ; THE PROPER WAY TO USE EXPCHR IS TO FIRST SAVE THE CHARACTER, ; THEN CALL EXPCHR, THEN OUTPUT THE STRING DESCRIBED BY R2,R3. ; IF CC-C WAS SET ON RETURN FROM EXPCHR, ON THE NEXT CALL TO ; EXPCHR THE SAME CHARACTER MUST BE PRESENTED IN R2, OTHERWISE ; THE NEXT CHARACTER. ;- ; ; .ENABL LSB ; EXCR1:: MOVB #CH.CR,R2 ;EXPAND A CARRIAGE RETURN BR 20$ ; ; DD102 ; ;**-1 EXPC3:: BIT #S3.WAL,4(R5) ;WRITE PASS ALL? BEQ EXPCHR ;N - JUMP 10$: SEZ ;Y - EXIT WITH CC-Z = 1 ; DD129 RETURN ; ;**-1 ; EXPCHR::TSTB R2 ;IS HIGH-ORDER BIT SET? ; DD028 BMI 10$ ;Y - TREAT AS WRITE-PASS-ALL ; DD129 20$: CLR -(SP) ;INITIALIZE FLAG TO 0 TO EXIT WITH: ; DD102 ; CC-C = 0 (DON'T KEEP CHAR) ;**-3 ; CC-Z = 1 (OUTPUT CHAR) MOVB U.TCHP-U.TSTA(R5),@SP ;GET CURRENT HOR. POSITION TST (R5)+ ;POINT TO U.TSTA+2 MOVB @R5,R3 ;GET CONTEXT FOR WRAP-AROUND BIC #^C,R3 ;CLEAR IRRELEVANT BITS ASSUME S2.WRA,6 JMP @OSDSP(R3) ;DISPATCH ; ; ; DEFAULT CASE - NO SPECIAL THINGS IN PROGRESS ; EXPC0:: BIT #S2.FLF,@R5 ;FORCE A LINE FEED? BNE 40$ ;Y - JUMP ; DD129 CMPB R2,#CH.CR ;CARRIAGE RETURN? ;**-1 BHI EXDEF ;N - HIGHER, CAN'T BE IN RECOGNITION ;TABLE - JUMP TO DEFAULT ROUTINE BEQ EXCRJ ;CARRIAGE RETURN - JUMP ; DD102 MOV #EXCRT,R3 ;POINT TO START OF CHAR. RECOGNITION TABLE ;**-1 ;FALL THRU TO "CHRDSP" ; ; ; DISPATCH ACCORDING TO CHARACTER ; ;+ ; CHRDSP - DISPATCH ACCORDING TO CHARACTER. ; ; INPUT: ; R2 CHARACTER ; R3 START OF CHARACTER RECOGNITION TABLE ; ; OUTPUT: ; JUMPS TO CHARACTER PROCESSING ROUTINE WITH R2 UNCHANGED. ;- ; ; CHRDSP::TSTB (R3)+ ;END OF TABLE? BEQ 30$ ;Y - JUMP ; DD129 CMPB R2,-1(R3) ;MATCH? ;**-1 BNE CHRDSP ;N - LOOP 30$: SUB #CHRT+1,R3 ;GET OFFSET FROM CHRT ; DD129 ASL R3 ;MAKE WORD INDEX ;**-1 JMP @CHRD(R3) ;JUMP TO ROUTINE .PAGE ; ; FORCE LINE FEED ; 40$: CMPB R2,#CH.LF ;IS THE CHARACTER A LINE FEED? ; DD129 BEQ EXLF ;Y - JUMP ;**-1 BR 50$ ;N - NEED CHARACTER AGAIN ; DD044 ; ;**-1 ; DO THE LINE FEED FOR WRAP-AROUND ; EXPC1:: ADD #S2.WRB,@R5 ;NEXT TIME GO TO EXPC2 TO DO THE ;CHARACTER ITSELF BR 50$ ; ; DD044 ; ;**-1 ; ; EXPAND FORM FEED AND VERTICAL TAB IF NECESSARY ; DD044 ; ; DD044 EXVT:: ; DD044 EXFF:: BIT #S2.HFF,@R5 ;SIMULATE FORM FEEDS? ;**-2 BNE 110$ ;N - JUMP ; DD064 ; ;**-1 50$: COMB 1(SP) ;WE NEED CHARACTER AGAIN, EXIT WITH: ; DD044 ; CC-C = 1 (KEEP CHAR) ;**-3 ; CC-Z = 0 (OUTPUT STRING) ; ; ; EXPAND LINE FEED ; EXLF:: BIC #S2.FLF,@R5 ;CLEAR FORCE-LF FLAG MOV #ASLF,R3 ;POINT TO LF BIS #400,@SP ;EXIT WITH: ; CC-C = ? (NO CHANGE) ; CC-Z = 0 (OUTPUT STRING) INCB U.TCVP-(R5) ;UPDATE CURRENT VERTICAL POS. CALL 190$ ;RESET POSITION IF CROSSED A PAGE LIMIT ; DD129 BHIS 60$ ;BRANCH IF CROSSED A PAGE LIMIT ; DD129 CMPB R2,#CH.FF ;FORMFEED? ;**-2 BEQ 90$ ;Y - JUMP ; DD129 BR 70$ ;N - JUMP ; DD129 60$: CMPB R2,#CH.FF ;IS THE CHARACTER A FF? ; DD129 BEQ 80$ ;Y - JUMP ; DD129 70$: CMPB R2,#CH.VT ;IS THIS A VT? ; DD129 BNE 120$ ;N - JUMP ; DD129 BITB #7,U.TCVP-(R5) ;ARE WE AT A VERT. TAB STOP? ;**-6 BNE 90$ ;N - JUMP ; DD129 80$: BIC #100000,@SP ;Y - DON'T WANT CHAR. AGAIN, EXIT WITH: ; DD129 ; CC-C = 0 (DON'T KEEP) ;**-2 ; CC-Z = 0 (OUTPUT STRING) 90$: BIT #U2.CRT,U.CW2-(R5) ;CRT? ; DD129 BEQ 120$ ;N - JUMP ; DD129 MOV #4,R2 ;Y - ECHO 4 LF'S IN PLACE OF FF OR VT ;**-2 SUB R2,R3 ;POINT TO FIRST OF 4 LINE FEEDS BIT #S2.VFL,@R5 ;VERTICAL FILL REQUIRED? ; DD064 BEQ 100$ ;N - JUMP ; DD064 MOV #<1+NLFF>*4,R2 ;Y - ECHO 4 LF'S PLUS FILLER ; DD064 SUB R2,R3 ;POINT TO START OF OUTPUT STRING ; DD064 100$: MOVB U.TCVP-(R5),-(SP) ;UPDATE VERTICAL POSITION ; DD129 ADD #3,@SP ;(ADD 3 SINCE 1 LF WAS ALREADY COUNTED) ;**-1 MOVB (SP)+,U.TCVP-(R5) ;MUCH PAIN FOR ADD TO ODD ADRS CALL 190$ ;CORRECT POSITION IF CROSSED A PAGE LIMIT ; DD129 BIC #100000,@SP ;DON'T KEEP CHARACTER ;**-1 110$: BR 180$ ;FILL CHARACTERS ALREADY ACCOUNTED FOR ; DD064 120$: MOV #1,R2 ;ASSUME NO FILLERS REQUIRED ; DD129 BIT #S2.VFL,@R5 ;VERTICAL FILL REQUIRED? ; DD129 BEQ 180$ ;N - JUMP ; DD129 ADD #NLFF,R2 ;Y - ADD NUMBER OF FILL CHARACTERS ;**-4 BR 180$ ;DON'T CHANGE HOR. POS. OR BYTE COUNT ; DD129 ; ;**-1 ; ; EXPAND BACKSPACE ; EXBSP:: TSTB @SP ;AT LEFT MARGIN? BEQ 180$ ;Y - EXIT (DON'T CHANGE HOR. POS.) ; DD129 DECB @SP ;N - BACKSPACE ;**-1 BR 170$ ;EXIT ; DD129 ; ; DD102 EXCRJ: BR EXCR ;BRANCH AID ; DD102 ; ;**-1 ; ; CR AND LF FOR WRAP-AROUND HAVE BEEN DONE. DO THE CHARACTER ITSELF. ; NOTE - THE CHARACTER MUST BE EITHER A HORIZONTAL TAB OR A ; "NORMAL" CHARACTER, SINCE ONLY THOSE CAUSE WRAP-AROUND. ; EXPC2:: BIC #S2.WRA,@R5 ;CLEAR WRAP-AROUND CONTEXT CMPB R2,#CH.HT ;HORIZONTAL TAB? BNE EXDEF ;N - JUMP ; ; ; EXPAND HORIZONTAL TAB ; EXHT:: MOV @SP,R3 ;GET CURRENT HOR.POS. BIS #7,@SP ;POINT JUST BEFORE NEXT TAB STOP BIT #S2.HHT,@R5 ;HARDWARE HOR. TAB PRESENT? BNE 130$ ;Y - JUMP ; DD129 MOV R3,R2 ;GET CURRENT HOR. POS. ;**-1 SUB @SP,R2 ;GET NUMBER OF SPACES NECESSARY ;NEGATED AND OFF BY 1 NEG R2 ;MAKE POSITIVE INC R2 ;ADJUST MOV #ASHT,R3 ;POINT TO HTAB BIS #400,@SP ;OUTPUT IS A STRING, EXIT WITH: ; CC-C 0 (DON'T KEEP CHAR.) ; CC-Z 0 (OUTPUT STRING) BR 130$ ;CHECK FOR WRAP-AROUND ; DD129 ; ;**-1 ; ; EXPAND NORMAL CHARACTER ; EXDEF:: BIT #140,R2 ;NON-SPACING CHARACTER? BEQ 180$ ;Y - EXIT ; DD129 BIT #U3.UPC,U.CW3-(R5) ;TERMINAL SUPPORT LOWERCASE? ; DD102 BEQ 130$ ;Y - JUMP ; DD102 CMPB R2,#141 ;CHARACTER NEED CONVERTING? ; DD102 BLO 130$ ;N - JUMP ; DD102 CMPB R2,#172 ;SECOND CHECK ; DD102 BHI 130$ ;N - JUMP ; DD102 BICB #40,R2 ;CONVERT LOWERCASE TO UPPERCASE ; DD102 130$: CMPB @SP,U.CW4-(R5) ;AT RIGHT MARGIN? ; DD129 BLO 160$ ;N - JUMP ; DD129 BIT #S2.ACR,@R5 ;AUTO CR-LF WANTED? ;**-5 BEQ 180$ ;N - JUMP ; DD129 COMB 1(SP) ;NEED CHARACTER AGAIN, EXIT WITH: ;**-1 ; CC-C = 1 (KEEP CHAR) ; CC-Z = 0 (OUTPUT STRING) ADD #S2.WRB,@R5 ;SET STATE VARIABLE TO COME BACK AT EXPC1 ;TO DO THE LINE FEED ;FIRST DO A CARRIAGE RETURN ; ; ; EXPAND A CARRIAGE RETURN ; EXCR:: BIS #400,@SP ;EXIT WITH: ; CC-C = ? (NO CHANGE) ; CC-Z = 0 (OUTPUT STRING) ASSUME S2.HFL,7*400 MOVB 1(R5),R2 ;GET HOR. FILL REQUIREMENT BIC #^C,R2 ;CLEAR OTHER BITS CMP R2,#7 ;FILL FOR LA30S? BNE 150$ ;N - JUMP ; DD129 MOVB @SP,R2 ;Y - GET CURRENT HOR.POS. ;**-1 ; DD129 .IF DF R$$EIS ; DD129 ; DD129 ASH #-3,R2 ;DIVIDE BY 8 ; DD129 ; DD129 .IFF ; DD129 ; DD129 ASR R2 ;DIVIDE BY 8 ASR R2 ASR R2 ; DD129 .ENDC ; DD129 ; DD129 CMP R2,#9. ;WITHIN TABLE RANGE? ; DD129 BLOS 140$ ;Y - JUMP ; DD129 MOV #9.,R2 ;N - SET TO HIGHEST VALUE ;**-2 140$: MOVB HORFT(R2),R2 ;GET FILL COUNT FROM TABLE ; DD129 150$: MOV #ASCR,R3 ;POINT TO CR ; DD129 MOVB #-1,@SP ;INITIALIZE CURRENT HOR. POS. ;**-2 ;BOTH BYTE COUNT AND HOR. POS. ;WILL BE INCREMENTED ON EXIT BIS #S2.FLF,@R5 ;FORCE A LINEFEED ON NEXT ECHO INC R2 ;INCR. BYTE COUNT ; DD129 ; ; 160$: INCB @SP ;UPDATE HOR. POS. ; DD129 170$: MOVB @SP,U.TCHP-(R5) ;STORE UPDATED HOR. POS. ; DD129 180$: TST -(R5) ;POINT TO U.TSTA ; DD129 CLRB @SP ;CLEAR LOW BYTE ;**-4 ROL (SP)+ ;GET FLAGS TO GENERATE PROPER ;CONDITION CODES RETURN ; ; 190$: CMPB U.TCVP-(R5),U.TLPP-(R5) ; DD129 ;CROSSED A PAGE LIMIT? ;**-1 BLO 200$ ;N - RETURN ; DD129 CLRB U.TCVP-(R5) ;Y - RESET TO 0 ;**-1 BIT #U2.CRT,U.CW2-(R5) ;CRT? BEQ 200$ ;N - RETURN ; DD129 MOVB U.TLPP-(R5),U.TCVP-(R5) ;**-1 ;Y - CRT'S SCROLL, NOT ROLL DECB U.TCVP-(R5) ;CURSOR STAYS ON BOTTOM LINE 200$: RETURN ; DD129 ; ;**-1 .DSABL LSB ; ; .IF DF T$$CUP .PAGE .SBTTL CPOS - SUBROUTINE TO EXPAND CURSOR POSITIONING COMMAND ; ;PW010 ;+ ; CPOS - EXPAND CURSOR COORDINATES TO CURSOR POSITIONING COMMAND ; SUITABLE FOR THE TERMINAL TYPE. ; ; INPUT: ; R2 LOW BYTE: COLUMN NUMBER (STARTING AT 1) ; HIGH BYTE: LINE NUMBER (STARTING AT 1) ; R5 POINTER TO U.TSTA ; ; OUTPUT: ; R2 LENGTH OF CURSOR POSITIONING COMMAND ; R3 POINTER TO CURSOR POSITIONING COMMAND ; CC-C 0 ; CC-Z 0 ; ; REGISTERS ALTERED: R2,R3 ;- ; ; CPOS:: ; DD067 ; ;**-1 ; USE U.TTYP TO DETERMINE HOW TO EXPAND COMMAND. ; MOVB U.TTYP-U.TSTA(R5),R3 ;GET TERMINAL TYPE BEQ CPOS0 ;NOT RECOGNIZED - JUMP CMP R3,#TTPHI ;RECOGNIZED? BHI CPOS0 ;N - JUMP MOVB TTYP1-1(R3),R3 ;Y - GET CURSOR POS. TYPE IN BITS 6-7 ; DD129 .IF DF R$$EIS ; DD129 ; DD129 ASH #-5,R3 ;GET IT IN BITS 1-2 ; DD129 ; DD129 .IFF ; DD129 ; DD129 ASL R3 ;SHIFT INTO BITS 9-10 ASL R3 ; ASL R3 ; SWAB R3 ;GET IT IN BITS 1-2 ; DD129 .ENDC ; DD129 ; DD129 BIC #^C6,R3 ;CLEAR ALL OTHER BITS BEQ CPOS0 ;NO CURSOR POSITIONING IMPLEMENTED - JUMP MOV R2,-(SP) ;SAVE ORIGINAL COORDINATES BIC #100000,R2 ;CLEAR SCREEN CLEAR BIT MOV R2,U.TCHP-U.TSTA(R5) ;SET NEW CURSOR POSITION JMP @CPOST-2(R3) ;JUMP VIA JUMP TABLE .ENABL LSB ; ; TYPE 0 - CURSOR POSITIONING NOT IMPLEMENTED ; CPOS0: CLR R2 ;EXPAND INTO A SINGLE NULL RETURN ;RETURN WITH CC-C = 0, CC-Z = 1 ; ; TYPE 1 - VT05 ; CPOS1:: ADD #401*40,R2 ;BIAS BOTH COORDINATES BY 40 MOVB R2,CP1+20 ;STORE X COORD. SWAB R2 ;GET Y COORD. AND CLEAR CC-C MOVB R2,CP1+13 ;STORE Y COORD. MOV #7,R2 ;STRING LENGTH = 7 MOV #CP1+12,R3 ;POINTER TO STRING TST (SP)+ ;CLEAR SCREEN REQUESTED? CLZ ;(LEAVE CC-Z CLEAR) BPL 10$ ;N - RETURN ; DD129 SUB #12,R3 ;POINT TO CLEAR SCREEN ESCAPE SEQUENCE ;**-1 ADD #12,R2 ;ADD THAT TO CURSOR POSITION OUTPUT 10$: RETURN ;RETURN ; DD129 ; ;**-1 ; TYPE 2 - VT52 AND VT50H ; CPOS2:: SWAB R2 ;GET COLUMN IN HIGH BYTE, LINE IN LOW BYTE ADD #401*40,R2 ;BIAS BOTH COORDINATES BY 40 MOV #CP2+6,R3 ;POINT TO COMMAND STRING + 2 MOV R2,@R3 ;STORE COORDINATES TST -(R3) ;POINT TO START OF STRING AND CLEAR CC-C MOV #4,R2 ;LENGTH = 4 TST (SP)+ ;CLEAR SCREEN REQUESTED? CLZ ;(LEAVE CC-Z CLEAR) BPL 10$ ;N - RETURN ; DD129 SUB #4,R3 ;Y - POINT TO CLEAR SCREEN ESCAPE SEQUENCE ;**-1 BR 20$ ;FINISH IT OFF ; DD129 ; ;**-1 ; TYPE 3 - VT100 ; CPOS3:: MOV R0,-(SP) ;SAVE R0, R1 MOV R1,-(SP) ; MOV #CP3A,R3 ;POINT AT FINAL CHARACTER CALL 30$ ;EXPAND X-COORD. TO ASCII ; DD129 MOVB #';,-(R3) ;INSERT DELIMITER ;**-1 SWAB R2 ;GET Y-COORD. CALL 30$ ;EXPAND IT ; DD129 MOV (SP)+,R1 ;RESTORE R0, R1 ;**-1 MOV (SP)+,R0 ; MOVB #'[,-(R3) ;INSERT CONTROL SEQUENCE INTRODUCER MOVB #CH.ESC,-(R3) ; .. (BACKWARDS) MOV #CP3A+1,R2 ; SUB R3,R2 ;GET STRING LENGTH AND CLEAR CC-C AND CC-Z TST (SP)+ ;WAS CLEAR SCREEN REQUESTED? CLZ ;(LEAVE CC-Z CLEAR) BPL 10$ ;N - RETURN ; DD129 MOVB #'J,-(R3) ;INSERT... ;**-1 MOVB #'2,-(R3) ;...CLEAR SCREEN ESCAPE SEQUENCE... MOVB #'[,-(R3) ;...INTO OUTPUT STRING... MOVB #CH.ESC,-(R3) ;...BACKWARDS 20$: ADD #4,R2 ;ADD THAT TO CURSOR POSITION OUTPUT ; DD129 RETURN ;RETURN ;**-1 30$: CLR R1 ; ; DD129 BISB R2,R1 ;GET NUMERIC VALUE ;**-1 INC R1 ;ADJUST TO BASE 1 .IF DF R$$EIS 40$: CLR R0 ;CLEAR HIGH ORDER DIVIDEND ; DD129 DIV #10.,R0 ;DIVIDE BY 10 ;**-1 .IFF ;R$$EIS 40$: MOV R1,R0 ;GET DIVIDEND ; DD129 MOV #10.,R1 ;GET DIVISOR ;**-1 CALL $DIV ;DIVIDE BY 10 .ENDC ;R$$EIS BIS #'0,R1 ;BIAS REMAINDER BY ASCII /0/ MOVB R1,-(R3) ;STORE IN STRING MOV R0,R1 ;GET QUOTIENT BNE 40$ ;NON-ZERO - DO IT AGAIN ; DD129 RETURN ;RETURN ;**-1 .ENDC ;T$$CUP .DSABL LSB .PAGE ; DD098 .SBTTL UBTRA - BUFFERED ACD TRANSFER ROUTINE ; DD098 ; ; DD098 ;+ ; DD098 ; UBTRA - TRANSFER BUFFERS FROM THE ACD TO A TASK AT $FINBF TIME ; DD098 ; ; DD098 ; INPUT: ; DD098 ; R0 ADDRESS OF BUFFER CONTAINING TRANSFER PARAMETERS ; DD098 ; ; DD098 ; OUTPUT: ; DD098 ; THE CHARACTERS DESCRIBED BY THE BUFFER PARAMETERS ARE TRANSFERRED ; DD098 ; FROM THE ACD TO THE TASK. THE ACD IS THEN CALLED BACK TO ; DD098 ; DEALLOCATE ITS BUFFER AND POSSIBLY TO REQUEST ANOTHER TRANSFER. ; DD098 ; ; DD098 ; REGISTERS ALTERED: ALL ; DD098 ;- ; DD098 ; ; DD098 ; ; DD098 ; DD098 .IF DF T$$ACD ; DD098 ; DD098 UBTRA:: ADD #3,R0 ;POINT PAST LINK WORD ; DD098 MOV (R0)+,R5 ;GET UCB ADDRESS ; DD098 MOV (R0)+,R3 ;GET I/O PACKET ADDRESS ; DD098 MOV I.PRM+2(R3),R4 ;GET TASK BUFFER DISPLACEMENT ; DD098 10$: MOV R3,-(SP) ;SAVE R3 ; DD098 MOV (R0)+,R1 ;GET ACD BUFFER APR BIAS (A.SMAP) ; DD098 MOV (R0)+,R2 ;GET ACD BUFFER DISPLACEMENT (A.SBUF) ; DD098 SUB #20000,R2 ;CONVERT TO AN APR5 MAPPING ; DD098 MOV (R0)+,R3 ;GET TASK PCB ADDRESS ; DD098 MOV P.REL(R3),R3 ;GET TASK APR BIAS ; DD098 ADD (R0)+,R3 ;COMPUTE TASK BUFFER APR BIAS ; DD098 20$: MOV (R0),R0 ;GET TRANSFER LENGTH (A.SLEN) ; DD098 CALL $BLXIO ;PERFORM THE TRANSFER ; DD098 MOV R3,R1 ;SAVE R3 IN CASE ACD CONTINUES TRANSFER ; DD098 MOV (SP)+,R3 ;RESTORE I/O PACKET ADDRESS ; DD098 CLR U.AFLG-U.TSTA(R5) ;SET DEFAULT PROCESSING ; DD098 MOV #A.CALL,R0 ;SET TRANSFER CALLBACK ENTRY POINT ; DD098 CALL $SWACD ;CALL ACD ; DD098 BIT #UA.CAL,U.AFLG-U.TSTA(R5) ;MORE TO GO? ; DD098 BEQ 30$ ;N - JUMP ; DD098 MOV R3,-(SP) ;Y - SAVE I/O PACKET ADDRESS ; DD098 MOV R1,R3 ;RESTORE TASK BUFFER APR BIAS ; DD098 MOV U.ACB-U.TSTA(R5),R0 ;GET ACB ; DD098 ADD #A.SMAP,R0 ;POINT TO ACD BUFFER PARAMETERS ; DD098 MOV (R0)+,R1 ;GET ACD BUFFER APR BIAS ; DD098 MOV (R0)+,R2 ;GET ACD BUFFER DISPLACEMENT ; DD098 SUB #20000,R2 ;CONVERT TO AN APR5 MAPPING ; DD098 BR 20$ ;DO THE TRANSFER ; DD098 30$: RETURN ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 .END 4€`kQ ›c, .TITLE TTTBL .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 08-MAY-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; C. F. SPITZ ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT DM CTB POINTER FOR NON I&D SPACE M+ SYSTEMS ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD098 06-APR-81 DALE R. DONCHIN ; ADD ACD SUPPORT ; DD106 04-JUN-81 DALE R. DONCHIN ; PREVENT MODEM TIMEOUT ON OFFLINE LINES ; DD115 23-JUN-81 DALE R. DONCHIN ; ALLOW VARIABLE LENGTH TYPEAHEAD BUFFERS ON RSX-11M-PLUS ; DD116 30-JUN-81 DALE R. DONCHIN ; ADD SERIAL COMMAND PROCESSING CAPABILITY TO RSX-11M-PLUS ; DD122 03-AUG-81 DALE R. DONCHIN ; USE SYMBOLIC NAMES FOR CONTROLLER DEPENDENT ROUTINE INDICES ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; DD021 .PSECT MAP5 ; DD021 ; ;+ ; THIS MODULE CONTAINS THE DRIVER DISPATCH TABLE. ; IN A SYSTEM THAT SUPPORTS KERNEL DATA SPACE, THIS MODULE MUST ; BE BUILT INTO THE TASK IMAGE "TTDRV". ; THIS IS IN CONTRAST TO ALL OTHER DRIVER DATA, WHICH IS CONTAINED ; IN THE MODULE "TTDAT" AND IS BUILT INTO THE TASK IMAGE "TTCOM". ;- ; ; ; DRIVER DISPATCH TABLE ; .IF DF T$$SPC ; DD116 ; DD116 .WORD NXTCMD ;ROUTINE TO PROCESS THE NEXT CLI COMMAND ; DD116 ; DD116 .ENDC ;T$$SPC ; DD116 ; DD116 .WORD DELTB0 ;ROUTINE TO DEALLOCATE BUFFERS $TTTBL::.WORD TTINI ;REQUEST INITIATOR .WORD TTCAN ;CANCEL I/O .WORD $NLTMO ;TIME-OUT - USE SPECIAL NULL TIME-OUT ROUTINE .IF DF R$$CON .WORD TTPWFL ;POWERFAIL ENTRY POINT .WORD TTKRB ;KRB STATUS CHANGE ENTRY POINT .WORD TTUCB ;UCB STATUS CHANGE ENTRY POINT .IFF .WORD TTPWUP ;POWER-UP .ENDC .IF DF R$$MPL .IRP X, .IF DF D$$'X'11 .ASCII /Y'X'/ .IF IDN X,M .WORD $DM11B .IFF .WORD $Y'X'INP .WORD $Y'X'OUT .ENDC .WORD 0 ; DD021 .IF IDN X,M ; DD021 ; DD021 .IF NDF T$$COM ; DD021 ; DD021 YMCP1:: ; DD021 ; DD021 .ENDC ;NDF T$$COM ; DD021 ; DD021 .ENDC ;IDN X,M ; DD021 ; DD021 Y'X'CTBP::.WORD 0 .ENDC .ENDR $TTTBE::.WORD 0 ;END OF TABLE ; ; .IF DF T$$COM ; POINTER TO PCB FOR COMMON BLOCK "TTCOM" ; $TTCOM::.BLKW 1 ;TO BE FILLED IN BY VMR ;CLEARED BY DRIVER INITIALIZATION ROUTINE .ENDC ;T$$COM .IFF ;R$$MPL $NLTMO::CLR S$$SPC+2(SP) ;FORCE $SCDVT ON TO NEXT DCB INCB S.CTM(R4) ;RESET TIMEOUT COUNT FOR THE NEXT TIME RETURN ; .ENDC ;R$$MPL .IF DF R$$CON TTPWFL::MOV KINAR6,-(SP) ;SAVE KERNEL INSTRUCTION APR 6 ; DD021 ; DD098 .IF DF T$$ACD ; DD098 ; DD098 ROL -(SP) ;SAVE CARRY BIT ; DD098 TST U.ACB(R5) ;DOES THIS TERMINAL HAVE AN ACD? ; DD098 BEQ 10$ ;N - JUMP ; DD098 MOV #A.POWE,R0 ;SET POWERFAIL ENTRY POINT ; DD098 CALL $SWACD ;CALL ACD ; DD098 10$: ROR (SP)+ ;RESTORE CARRY BIT ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 BCC 20$ ;BRANCH ON UNIT POWERFAIL ; DD129 MOV #CT.CPW,R4 ;GET CONTROLLER POWERFAIL OFFSET CODE ; DD122 BR TTDSP ;GO TO COMMON CONTROLLER DISPATCHER ;**-10 20$: ADD #U.TSTA,R5 ;POINT TO UCB STATUS TRIPLE-WORD ; DD129 MOV #CT.UPW,R2 ;GET UNIT POWERFAIL OFFSET CODE ; DD122 BR TTCRD ;GO TO UNIT DEPENDENT ROUTINE ;**-2 TTKRB:: MOV KINAR6,-(SP) ;SAVE KERNEL INSTRUCTION APR 6 ; DD021 BCS 20$ ;BRANCH IF CONTROLLER OFFLINE ;**-8 .IF DF T$$COM ; DD021 ;**-1 TST $TTCOM ;GET TTCOM PCB ADDRESS BEQ 10$ ;ALREADY INITIALIZED - JUMP .IFF ;T$$COM TST $DALED ;GET KISAR6 MAPPING ; DD074 BNE 10$ ;ALREADY INITIALIZED - JUMP ;**-1 .ENDC ;T$$COM ; DD021 ;**-1 MOV R2,-(SP) ;SAVE R2 CALL TTINIT ;INITIALIZE THE WORLD MOV (SP)+,R2 ;RESTORE R2 10$: MOV #CT.CON,R4 ;GET CONTROLLER ONLINE OFFSET CODE ; DD122 BR TTDSP ;GO TO COMMON CONTROLLER DISPATCHER ;**-1 20$: MOV #CT.COF,R4 ;GET CONTROLLER OFFLINE OFFSET CODE ; DD122 BR TTDSP ;GO TO COMMON CONTROLLER DISPATCHER ;**-1 TTUCB:: MOV KINAR6,-(SP) ;SAVE KERNEL INSTRUCTION APR 6 ; DD021 BCS 10$ ;BRANCH IF WANT TO SET UNIT OFFLINE ;**-8 ADD #U.TSTA,R5 ;POINT TO UCB STATUS TRIPLEWORD CALL MAPD ;MAP DATA AREA ; DD074 .IF DF T$$SPL ; DD074 ; DD074 CALL ALUCBX ;ALLOCATE A UCBX FOR THIS UCB ; DD074 BCS TTRET1 ;RETURN WITH CC-C SET IF FAILURE ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 CALL CKTAB ;ALLOCATE TYPE-AHEAD BUFFER IF NECESSARY ; DD074 .IFTF ;T$$SPL ; DD074 .IF DF T$$MOD BICB #US.CRW!US.DSB,U.STS-U.TSTA(R5) ;ASSUME LOCAL LINE .ENDC MOV #CT.UON,R2 ;SET ROUTINE INDEX FOR UNIT ONLINE ; DD122 BR TTCRD ;GO TO UNIT DEPENDENT ROUTINE DISPATCHER ;**-1 10$: CLRB U.TMTI(R5) ;PREVENT MODEM TIMEOUT FROM OCCURRING ; DD106 ADD #U.TSTA,R5 ;ADVANCE UCB POINTER ; DD106 ; DD074 .IFT ;T$$SPL ; DD074 ; DD074 CALL DEUCBX ;DEALLOCATE THE UCBX AND TABUF ; DD074 ; DD074 .IFTF ;T$$SPL ; DD074 ; DD074 MOV #CT.UOF,R2 ;SET ROUTINE INDEX FOR UNIT OFFLINE ; DD122 BR TTCRD ;ON TO COMMON UNIT ROUTINE DISPATCHER ;**-2 TTDSP: MOV KISAR6,-(SP) ;SAVE CURRENT APR 6 MAPPING CALL MAPD ;MAP DRIVER DATA AREA MOV @R2,R3 ;GET CSR MOVB K.PRM(R2),R1 ;GET CONTROLLER TYPE ADD CTBL(R1),R4 ;GET DISPATCH TABLE POINTER CALL @(R4)+ ;CALL CONTROLLER DEPENDENT ROUTINE BR TTRET ;GO TO COMMON RETURN CODE TTCRD: MOV KISAR6,-(SP) ;SAVE CURRENT APR 6 MAPPING CALL MAPD ;MAP DRIVER DATA AREA CALL CTRD ;CALL UNIT DEPENDENT ROUTINE TTRET: MOV (SP)+,KISAR6 ;RESTORE ENTRY APR 6 MAPPING TTRET1: MOV (SP)+,KINAR6 ;RESTORE KERNEL INSTRUCTION APR 6 ; DD074 RETURN ;**-7 .IFT ;T$$SPL ; DD074 ; DD074 .ENABL LSB ; DD115 ; ; DD074 ;+ ; DD074 ; ; DD074 ; ALUCBX - ALLOCATE A UCB EXTENSION (UCBX) AND TYPEAHEAD BUFFER (TABUF) ; DD074 ; STUCBX - SET UP A UCB EXTENSION AND TYPEAHEAD BUFFER ; DD115 ; ; DD074 ; INPUT: ; DD074 ; R0 APR BIAS OF 1ST SECONDARY POOL BLOCK (IF ENTRY AT STUCBX) ; DD115 ; R5 POINTER TO U.TSTA ; DD074 ; ; DD074 ; OUTPUT: ; DD074 ; IF SUCCESS: ; DD074 ; CC-C 0 ; DD074 ; UCBX AND CONTIGUOUS TABUF ALLOCATED FROM SECONDARY POOL AND INITIALIZED ; DD074 ; ; DD074 ; IF FAILURE: ; DD074 ; CC-C 1 ; DD074 ; IE.ALC RETURNED IN $SCERR TO INDICATE FAILURE TO BRING TERMINAL ONLINE ; DD074 ; ; DD074 ;- ; DD074 ; ; DD074 ALUCBX: CALL 20$ ;GET NUMBER OF SECONDARY POOL NODES REQUIRED ; DD115 CALL $ALSEC ;ALLOCATE THEM FOR USE BY THIS TERMINAL ; DD074 BCS 10$ ;BRANCH ON ALLOCATION FAILURE ; DD074 STUCBX::MOV R0,U.TAPR-U.TSTA(R5) ;THESE NODES BECOME THE UCBX AND TABUF ; DD115 MOV R0,@#KDSAR5 ;MAP THE UCBX AND TABUF ; DD074 MOV #120000,R4 ;SET THEIR VIRTUAL ADDRESS ; DD074 ASSUME U.TCI,0 ; DD074 CLR @R4 ;NO CURRENT INPUT REQUEST ; DD074 CLR U.TCO(R4) ;NO CURRENT OUTPUT REQUEST ; DD074 CLR U.TAST(R4) ;NO AST BLOCK ; DD074 CLRB U.TISV(R4) ;INITIALIZE STATE VARIABLE ; DD074 ASSUME U.TITI&1,0 ; DD074 ASSUME U.TOTI,U.TITI+1 ; DD074 CLR U.TITI(R4) ;CLEAR INPUT AND OUTPUT TIMERS ; DD074 CLR U.TRTT(R4) ;NO TERMINATOR TABLE ; DD074 ADD #U.TTBF,R4 ;POINT TO TYPEAHEAD BUFFER ; DD074 CLR (R4)+ ;INITIALIZE HEADER ; DD074 CLRB (R4)+ ;RESET ACTIVE COUNT AND CLEAR CARRY ; DD115 MOVB U.TBSZ-U.TSTA(R5),(R4) ;SET SIZE OF TABUF ; DD115 RETURN ; DD074 10$: MOVB #IE.ALC,$SCERR ;INDICATE CAUSE OF FAILURE ; DD074 RETURN ;RETURN WITH CARRY SET ; DD074 ; ; DD074 ;+ ; DD074 ; ; DD074 ; DEUCBX - DEALLOCATE THE UCBX AND TABUF ; DD074 ; ; DD074 ; INPUT: ; DD074 ; R5 POINTER TO U.TSTA ; DD074 ; ; DD074 ; OUTPUT: ; DD074 ; UCB EXTENSION AND TYPEAHEAD BUFFER DEALLOCATED ; DD074 ;- ; DD074 ; ; DD074 DEUCBX::MOV U.TAPR-U.TSTA(R5),R0 ;GET ADDRESS OF UCBX AND TABUF ; DD115 CLR U.TAPR-U.TSTA(R5) ;CLEAR POINTER ; DD074 CALL 20$ ;GET THE NUMBER OF BLOCKS TO DEALLOCATE ; DD115 CALLR $DESEC ;DEALLOCATE THE UCBX AND TABUF AND RETURN ; DD074 ; ; DD115 ; CALCULATE THE NUMBER OF SECONDARY POOL BLOCKS REQUIRED TO CONTAIN THE ; DD115 ; UCB EXTENSION AND A TYPEAHEAD BUFFER WHOSE SIZE IS KEPT IN OFFSET U.TBSZ ; DD115 ; ; DD115 20$: CLR R1 ;PREVENT UNWANTED SIGN EXTEND ; DD115 BISB U.TBSZ-U.TSTA(R5),R1 ;GET THE SIZE OF THE TABUF LESS ITS HEADER ; DD115 ADD #T$$UXL+4+77,R1 ;INCLUDE TABUF HEADER, UCBX, AND ROUND UP ; DD115 ASH #-6,R1 ;CONVERT TO NUMBER OF SEC POOL BLOCKS REQUIRED ; DD115 RETURN ;RETURN WITH RESULT IN R1 ; DD115 ; DD115 .DSABL LSB ; DD115 ; DD115 .ENDC ;T$$SPL ; DD115 ; DD115 .ENDC ;R$$CON .IF DF T$$SER ; DD116 ; DD116 ; ; DD116 ;+ ; DD116 ; ; DD116 ; NXTCMD - PROCESS THE NEXT CLI COMMAND ; DD116 ; ; DD116 ; INPUT: ; DD116 ; R0 UCB ADDRESS ; DD116 ; ; DD116 ; OUTPUT: ; DD116 ; THE COMMAND IN PROGRESS BIT (UM.CMD) IS CLEARED AND AN ATTEMPT IS ; DD116 ; MADE TO PROCESS CHARACTERS FROM THE TYPEAHEAD BUFFER. FOR MULTI- ; DD116 ; PROCESSOR SYSTEMS, IF WE ARE NOT ON THE CORRECT CPU, FORK TO GET ; DD116 ; THERE WITH A NULL FORK REQUEST, SINCE AFTER FORK PROCESSING WE WILL ; DD116 ; TRY TO PROCESS CHARACTERS FROM THE TYPEAHEAD BUFFER ANYWAY ; DD116 ;- ; DD116 ; ; DD116 NXTCMD: CALL MAPD ;MAP THE DRIVER ; DD116 SAVNR ;SAVE R4 AND R5 ; DD116 MOV R0,R5 ;GET THE UCB ADDRESS ; DD116 ADD #U.TSTA,R5 ;POINT TO U.TSTA ; DD116 BIC #UM.CMD,U.MUP-U.TSTA(R5) ;ENABLE CLI COMMAND PROCESSING ; DD116 ; DD116 .IF DF M$$PRO ; DD116 ; DD116 CLR R3 ;SET NULL FORK REQUEST ; DD116 CALL SWCPU ;SWITCH TO THE CORRECT CPU (NO RETURN) ; DD116 ;OR FALL THRU IF ALREADY ON THE RIGHT CPU ; DD116 ; DD116 .EòNDC ;M$$PRO ; DD116 ; DD116 CALL LOCKI ;LOCK OUT INTERRUPTS ; DD116 CALLR SERPRO ;;;SERIALLY PROCESS CHARACTERS FROM TABUF ; DD116 ; DD116 .ENDC ;T$$SER ; DD116 ; DD116 ; ; .END ò9€2kQ ›c, .TITLE TTYH .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 27-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD023 16-JUL-79 DALE R. DONCHIN ; CORRECT SCAN IF < 16 LINES ; DD074 05-AUG-80 DALE R. DONCHIN ; REARRANGE TTDRV M-PLUS DATABASE TO SUPPORT 256 TERMINALS ; DD083 15-OCT-80 DALE R. DONCHIN ; REMOVE SCS CONDITIONALS AND CODE ; DD090 08-DEC-80 DALE R. DONCHIN ; ADD PER UNIT ANSWER SPEED AND AUTOBAUD DETECT ; DD096 12-MAR-81 DALE R. DONCHIN ; IMPROVE INTERRUPT HANDLING PERFORMANCE ; DD098 06-APR-81 DALE R. DONCHIN ; ADD ACD SUPPORT ; DD099 15-APR-81 DALE R. DONCHIN ; MOVE DM11-BB VECTOR AND CSR FROM UCB TO SCB ; DD109 05-JUN-81 DALE R. DONCHIN ; HANDLE NXM ERROR ON DH11 ; DD128 05-NOV-81 DALE R. DONCHIN ; IMPROVE AUTOBAUD SPEED DETECT ALGORITHM ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; ;+ ; CONTROLLER-DEPENDENT ROUTINES FOR DH-11. ;- ; ; .IF DF D$$H11 .MCALL UCBDF$ UCBDF$ ;DEFINE UCB SYMBOLS .IF DF R$$MPL .MCALL KRBDF$ KRBDF$ ;DEFINE KRB SYMBOLS .IFF ;R$$MPL .MCALL SCBDF$ SCBDF$ ;DEFINE SCB SYMBOLS .ENDC ;R$$MPL .PSECT MAP5 ; D0021 ; ; ; EQUATED SYMBOLS ; ; DH-11 REGISTER DEFINITIONS ; SCR = 0 ;SYSTEM CONTROL REG. NRC = 2 ;NEXT RECEIVED CHAR. REG. LPR = 4 ;LINE PARAMETER REG. CAR = 6 ;CURRENT ADDRESS REG. BCR = 10 ;BYTE COUNT REG. BAR = 12 ;BUFFER ACTIVE REG. ; ; ;+ ; YHSTAX - START OUTPUT. ; NOTE - NON-BUFFERED OUTPUT CURRENTLY NOT SUPPORTED. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; U.TOP+2 BUFFER POINTER ; U.TOC BYTE COUNT ; ; OUTPUT: ; OUTPUT STARTED. ; U.TOP+2 UNCHANGED ; U.TOC UNCHANGED ; ; REGISTERS ALTERED: R4 ;- ; ; .ENABL LSB ; YHSTAX:: ; DD098 ; DD098 .IF DF T$$ACD ; DD098 ; DD098 BIT #S1.OBF,@R5 ;;;DOING BUFFERED OUTPUT? ; DD098 BNE 10$ ;;;Y - JUMP ; DD098 ADD #U.TOC,R4 ;;;POINT TO U.TOC ; DD098 STAXM: MOV R2,-(SP) ;;;SAVE R2 DESTROYED BY MOUT ROUTINE ; DD098 CALL MOUT ;;;GET NEXT CHARACTER TO OUTPUT ; DD098 MOVB R2,U.ADMA-U.TSTA(R5) ;;;PUT CHARACTER IN DMA BUFFER ; DD098 MOV (SP)+,R2 ;;;RESTORE R2 ; DD098 CALL SELLIN ;;;SELECT LINE ; DD098 MOV R5,CAR(R3) ;;;POINT TO DMA BUFFER ; DD098 ADD #U.ADMA-U.TSTA,CAR(R3) ;;; ; DD098 MOV #-1,BCR(R3) ;;;OUTPUT ONE CHARACTER ; DD098 BR 50$ ;;;INITIATE THE OUTPUT ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 10$: ADD #U.TOP+2,R4 ;;;POINT TO U.TOP+2 ; DD098 CALL SELLIN ;;;SELECT LINE ; DD098 STAX1: ;**-2 .IF DF T$$SPL ; DD074 ; DD074 MOV (R4),CAR(R3) ;;;SET BUFFER ADDRESS (U.TOP+2) ; DD074 CMP (R4)+,#120000 ;;;IN SYSTEM POOL? ; DD074 BLO 20$ ;;;Y - UMR MAPPING IS CORRECT, JUMP ; DD074 SUB #20000,CAR(R3) ;;;FORCE BUFFER ADDRESS TO MAP THROUGH UMR 5 ; DD074 20$: ;;;REFERENCE LABEL ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 .IF DF M$$EXT MOV (R4)+,CAR(R3) ;;;SET BUFFER ADDRESS (U.TOP+2) .IFF ;M$$EXT MOV (R4)+,-(SP) ;;;GET VIRTUAL BUFFER ADDRESS CMP @SP,#120000 ;;;IN SYSTEM POOL? BLO 40$ ;;;Y - VIRTUAL ADDRESS = PHYS. ADDRESS, JUMP ; DD129 ADD RELC+2,@SP ;;;ADD RELOCATION CONSTANT TO VIRTUAL ADDRESS ;**-1 MOV RELC,-(SP) ;;; BCC 30$ ;;;NO CARRY - JUMP ; DD129 ADD #20,@SP ;;;ADD CARRY TO HIGH 2 BITS ;**-1 BIC #^C<60>,@SP ;;;NORMALIZE HIGH 2 BITS 30$: BISB (SP)+,@R3 ;;;LOAD 2 HIGH BITS OF 18-BIT ADDRESS ; DD129 40$: MOV (SP)+,CAR(R3) ;;;LOAD CAR ; DD129 ;**-2 .ENDC ;M$$EXT .ENDC ;T$$SPL ; DD074 ; DD074 ASSUME U.TOC, MOV @R4,BCR(R3) ;;;SET BYTE COUNT (U.TOC) IN BCR NEG BCR(R3) ;;;NEGATE IT 50$: BIT #S1.CTS,@R5 ;;;OUTPUT STOPPED BY CTRL-S? ; DD098 BNE 60$ ;;;Y - JUMP ; DD129 ; ;**-2 ; ;+ ; YHRESX - RESUME OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; S1.CTS 0 ;- ; ; YHRESX::BIS $BTMSK(R2),BAR(R3) ;;;SET BIT IN BAR TO START TRANSMISSION ;**-1 .IF NDF D$$M11 YHMTIM:: .ENDC ;D$$M11 60$: RETURN ;;; ; DD129 ; ;**-1 .DSABL LSB ; ; ;+ ; YHABOX - ABORT OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; ; REGISTERS ALTERED: R3 ;- ; ; YHABOX::CALL YHSTOX ;;;STOP TRANSMISSION CALL SELLIN ;;;SELECT LINE CLR BCR(R3) ;;;CLEAR BYTE COUNT CLR BCR(R3) ;;;DO IT AGAIN - CONTROLLER MAY HAVE BEEN ;;;DOING A READ-MODIFY-WRITE CYCLE ON ;;;THE BYTE COUNT REGISTER WHEN WE CLEARED ;;;IT FIRST TIME RETURN ;;; ; ; ;+ ; YHSTOX - STOP OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; S1.CTS 1 ;- ; ; YHSTOX::BIC $BTMSK(R2),BAR(R3) ;;;CLEAR BIT IN BAR TO STOP TRANSMISSION RETURN ;;; ; ; .ENABL LSB .IF DF T$$GMC!T$$SMC!D$$M11 ; DD090 ;**-1 ;+ ; YHLPAR - GET/SET LINE PARAMETERS. ; ; INPUT: ; R0 BIT 15: 0 = SET SPEED ; DD090 ; 1 = GET SPEED ; DD090 ; BIT 11: 1 = SET SPEED SELECTED BY AUTO-BAUD DETECT LOGIC ; DD090 ; BIT 10: 1 = SET DEVICE DEPENDENT SPEED ; DD090 ; (USED FOR AUTO-BAUD DETECT) ; DD090 ; BIT 9: 1 = GET/SET ANSWER SPEED ; DD090 ; BIT 8: 0 = GET/SET RECEIVE SPEED ; DD090 ; 1 = GET/SET TRANSMIT SPEED ; DD090 ; IF SET SPEED: ;**-4 ; BITS 0-7: NEW SPEED PARAMETER (S.XXX SYMBOL) ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; ; OUTPUT: ; IF GET SPEED REQUESTED: ; R4 POINTER TO DH11 SPEED TABLE ;**-1 ; CC-C 0 ; ; IF SET SPEED REQUESTED: ; CC-C 0 IF OK ; 1 IF ILLEGAL SPEED SPECIFIED ; ; DD090 ; NOTE THAT THIS ROUTINE CAN BE EXECUTED AT BOTH SYSTEM STATE (IN RESPONSE ; DD090 ; TO A SF.GMC OR SF.SMC QIO) AND FROM THE INPUT INTERRUPT SERVICE ROUTINE (FOR ; DD090 ; AUTO-BAUD DETECT). ; DD090 ; ; DD090 ;- ; ; ; YHLPAR:: ; DD090 ; DD090 .IF DF D$$M11 ; DD090 ; DD090 BIT #4000,R0 ;SET SPEED FOR AUTO-BAUD DETECT? ; DD090 BEQ 20$ ;N - JUMP ; DD090 BIT #2000,R0 ;DEVICE DEPENDENT SPEED? ; DD090 BNE 10$ ;Y - JUMP ; DD090 BIC #177400,R0 ;CLEAR UPPER BYTE ; DD090 MOVB SPDH-1(R0),R0 ;GET DEVICE DEPENDENT SPEED BITS ; DD090 10$: BIC #^C<17>,R0 ;CLEAR ALL BUT SPEED BITS ; DD090 MOV R0,R2 ;GET A COPY ; DD090 ; DD090 .IF DF R$$EIS ; DD090 ; DD090 ASH #4,R2 ;SHIFT SPEED BITS TO TRANSMIT SPEED POSITION ; DD090 ; DD090 .IFF ;R$$EIS ; DD090 ; DD090 CALL SHIFT4 ;SHIFT SPEED BITS TO TRANSMIT SPEED POSITION ; DD090 ; DD090 .ENDC ;R$$EIS ; DD090 ; DD090 BIS R0,R2 ;ADD IN RECEIVE SPEED BITS ; DD090 MOVB R2,U.CW3-U.TSTA(R5) ;SET NEW SPEED IN DATABASE ; DD090 BR SETLIN ;AND SET NEW SPEED IN CONTROLLER ; DD090 20$: ;REFERENCE LABEL ; DD090 ; DD090 .ENDC ;D$$M11 ; DD090 ;**-6 .IF DF T$$GMC&T$$SMC MOV R0,R4 ;SAVE INPUT PARAMETER ; DD090 SWAB R4 ;PUT FLAGS IN LOW ORDER BYTE ; DD090 BPL 30$ ;SET SPEED - JUMP ; DD090 ;**-2 .ENDC .IF DF T$$GMC MOV #SPDH,R4 ;POINT TO DH11 SPEED TABLE RETURN ;RETURN WITH CC-C = 0 .ENDC ;T$$GMC .IF DF T$$SMC .IF NDF T$$GMC ; DD090 ; DD090 MOV R0,R4 ;SAVE INPUT PARAMETER ; DD090 SWAB R4 ;PUT FLAGS IN LOWER ORDER BYTE ; DD090 ; DD090 .ENDC ;NDF T$$GMC ; DD090 ;**-7 30$: BIC #177400,R0 ;CLEAR R0 HIGH BYTE ; DD129 MOVB SPDH-1(R0),R2 ;GET SPEED BITS ; DD090 SEC ;ASSUME ERROR ; DD090 BMI 40$ ;NOT A SUPPORTED SPEED - JUMP ; DD090 ASRB R4 ;SET ANSWER SPEED? ; DD090 BEQ 50$ ;N - JUMP ; DD090 ; DD090 .IF DF D$$M11 ; DD090 ; DD090 BICB #17,U.CW3+1-U.TSTA(R5) ;CLEAR OLD VALUE ; DD090 BISB R2,U.CW3+1-U.TSTA(R5) ;SET NEW ANSWER SPEED ; DD090 CLC ;SHOW SUCCESS ; DD090 ; DD090 .IFF ;D$$M11 ; DD090 ; DD090 SEC ;ATTEMPT TO SET ANSWER SPEED W/O MODEM SUPPORT ; DD090 ; DD090 .ENDC ;D$$M11 ; DD090 ; DD090 40$: RETURN ; DD090 ; ; DD090 50$: BCS 60$ ;TRANSMIT SPEED - JUMP ; DD090 BICB #17,U.CW3-U.TSTA(R5) ;CLEAR OLD RECEIVE SPEED ; DD090 BR 70$ ;JUMP TO SET NEW SPEED ; DD090 60$: BICB #360,U.CW3-U.TSTA(R5) ;CLEAR OLD TRANSMIT SPEED ; DD090 ; DD090 .IF DF R$$EIS ; DD090 ; DD090 ASH #4,R2 ;SHIFT SPEED BITS TO PROPER POSITION ; DD090 ; DD090 .IFF ;R$$EIS ; DD090 ; DD090 CALL SHIFT4 ;SHIFT SPEED BITS TO PROPER POSITION ; DD090 ; DD090 .ENDC ;R$$EIS ; DD090 ; DD090 70$: BISB R2,U.CW3-U.TSTA(R5) ;SET NEW SPEED ; DD090 BR 100$ ;GO AND LOAD INTO LPR ; DD129 ;**-19 .ENDC ;T$$SMC .IF DF D$$M11&R$$CON YMLPAR::RETURN .ENDC .ENDC ;T$$GMC!T$$SMC!D$$M11 ; DD090 ;**-1 ; ;+ ; YHPWUP - POWER-UP. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; U.STS SET UP FOR LOCAL LINE: ; US.CRW 0 ; US.DSB 0 ;- ; ; .IF DF R$$CON YHCONL:: .IF DF M$$EXT MOV #UMR5S,R0 ;GET ADDRESS OF SAVED UMR 5 MOV #UBMPR+<5*4>,R1 ;POINT AT UMR 5 MOV (R0)+,(R1)+ ;SET UP UMR 5 MOV (R0)+,(R1)+ ; ; DD074 .IF NDF T$$SPL ; DD074 ; DD074 MOV (R0)+,(R1)+ ;SET UP UMR 6 MOV (R0)+,(R1)+ ; ; DD074 .ENDC ;NDF T$$SPL ; DD074 .ENDC ;M$$EXT YHCPUP:: .IFF YHPWUP::TST R2 ;IS THIS LINE ZERO? BNE 80$ ;N - JUMP ; DD129 ;**-1 .IFTF MOV #4000,@R3 ;CLEAR SILO, UARTS, CONTROLLER MOV #20100,@R3 ;ENABLE INTERRUPTS .IFT RETURN YHUONL:: YHUPUP:: .ENDC ;R$$CON 80$: ;REFERENCE LABEL ; DD129 ;**-1 .IF DF D$$M11 BIT #U2.RMT,U.CW2-U.TSTA(R5) ;REMOTE LINE? BEQ 100$ ;N - JUMP ; DD129 BIC #S3.ABP,4(R5) ;RESET AUTO-BAUD MODE ; DD090 ;**-1 .IF NDF R$$MPL MOV U.SCB-U.TSTA(R5),R0 ;GET SCB ; DD099 TST S.DMCS(R0) ;IS THERE REMOTE SUPPORT FOR LINE? ; DD099 BNE 90$ ;Y - JUMP ; DD129 BIC #U2.RMT,U.CW2-U.TSTA(R5) ;N - SET LINE LOCAL ;**-2 BR 100$ ;FORGET THAT IT WAS EVER REMOTE ; DD129 90$: INCB U.TMTI-U.TSTA(R5) ;SET TIMER SO TIMEOUT WILL ENABLE ; DD129 ;INTERRUPTS ON DM11-BB ;**-2 .ENDC ;NDF R$$MPL BISB #US.CRW,U.STS-U.TSTA(R5) ;SET WAITING FOR CARRIER FLAG .IF DF R$$CON MOV U.SCB-U.TSTA(R5),R0 ;GET SCB MOV S.KRB(R0),R0 ;GET DH11 KRB MOVB K.CON(R0),R0 ;GET CONTROLLER INDEX ADD YMCP1,R0 ;POINT TO POINTER TO DM11-BB KRB MOV @R0,R0 ;GET DM11-BB KRB MOVB U.UNIT-U.TSTA(R5),R1 ;GET UNIT NUMBER OF THIS LINE ASL R1 ;CONVERT FROM BYTE OFFSET TO WORD OFFSET BIS $BTMSK(R1),K.PRM-2(R0) ;SET ENABLE BIT FOR THIS LINE BIT #KS.OFL,K.STS(R0) ;IS DM CONTROLLER OFFLINE? BNE 100$ ;Y - JUMP ; DD129 MOV R3,-(SP) ;SAVE YH CSR ;**-1 MOV @R0,R3 ;GET YM CSR CALL YHMTMA ;LET DM KNOW ABOUT THIS LINE NOW MOV (SP)+,R3 ;RESTORE YH CSR .ENDC ;R$$CON .ENDC 100$: CALL LOCKI ;LOCK OUT INTERRUPTS ; DD129 MOV U.CW3-U.TSTA(R5),R2 ;;;GET NEW SPEED AND PARITY BITS ; DD090 SETLIN: CALL SELLIN ;;;SELECT THE LINE ; DD090 SWAB R2 ;;;PUT IN HIGH ORDER BYTE ; DD090 ROR R2 ;;;SHIFT TO PROPER POSITION ; DD090 ROR R2 ;;; ; DD090 BIC #140017,R2 ;;;CLEAR EXTRANEOUS NONSENSE ; DD090 BIT #30000,R2 ;;;TRANSMIT SPEED 110 BAUD OR LOWER? ; DD090 BNE 110$ ;;;N - JUMP ; DD090 BIS #4,R2 ;;;Y - SET TWO STOP BITS ; DD090 110$: BIS #3,R2 ;;;SET FOR EIGHT BIT CHARACTERS ; DD090 MOV R2,LPR(R3) ;;;LOAD NEW LINE PARAMETERS ; DD090 ; ;**-3 ; WHEN RETURNING VIA COROUTINE "LOCKI", CC-C IS CLEARED ; RETURN ;RETURN ; DD129 ;**-1 .DSABL LSB .IF DF R$$CON YHCOFF:: CALL LOCKI ;LOCK OUT INTERRUPTS MOV #4000,@R3 ;;;CLEAR SILO, UARTS, CONTROLLER RETURN YHUOFF:: CALL LOCKI ;LOCK OUT INTERRUPTS CALL SELLIN ;;;SELECT THE LINE CLR LPR(R3) ;;;SET TO 0 BAUD TO DISABLE LINE ; DD090 RETURN ;;;DROP PRIORITY ;**-3 .ENDC ;R$$CON ; ; ;+ ; INPUT INTERRUPT SERVICE ROUTINE. ;- ; ; .ENABL LSB ; .IF DF R$$MPL $YHINP::TTSET$ YH ;;;SAVE R2, R3 AND SET UP: ;;; R3 = CSR ADDRESS ;;; R4 = KRB ADDRESS .IFF ;R$$MPL $DHINP::TTSET$ DH ;;;SAVE R2,R3 AND SET UP ;;; R3 = CSR ;;; R4 = ADDRESS OF UCB LIST .ENDC ;R$$MPL CALL MUXINP ;;;DO COMMON MULTIPLEXER INPUT ;;;CHARACTER PROCESSING ;;;MUXINP DISMISSES INTERRUPT IF NO OUTPUT WORK BR 10$ ;;;XMIT READY - GO DO OUTPUT WORK ; ; ;+ ; OUTPUT INTERRUPT SERVICE ROUTINE. ;- ; ; .IF DF R$$MPL $YHOUT::TTSET$ YH ;;;SAVE R2, R3 AND SET UP: ;;; R3 = CSR ADDRESS ;;; R4 = KRB ADDRESS .IFF ;R$$MPL $DHOUT::TTSET$ DH ;;;SAVE R2,R3 AND SET UP ;;; R3 = CSR ;;; R4 = ADDRESS OF UCB LIST .ENDC ;R$$MPL 10$: BIC #100077,@R3 ;;;CLEAR TRANSMIT DONE, UNIT NUMBER AND ;;;2 HIGH BITS OF UNIBUS ADDRESS MOV R4,-(SP) ;;;SAVE KRB ADDRESS .IF DF R$$MPL ADD K.OFF(R4),R4 ;;;GET START OF UCB TABLE .ENDC ;R$$MPL 20$: MOV (R4)+,R5 ;;;GET NEXT UCB ADDRESS ; DD129 BEQ 80$ ;;;JUMP IF LINE IS NOT IN USE ; DD023 CMP R5,#-1 ;;;END OF LIST? ;**-1 BEQ 90$ ;;;Y - JUMP ; DD129 BITB #US.DSB!US.OIU,U.STS(R5) ;;;DISABLED OR OUTPUT ;**-1 ;;;INTERRUPT UNEXPECTED? BNE 80$ ;;;Y - JUMP ; DD129 ;**-1 .IF DF R$$CON BITB #US.OFL,U.ST2(R5) ;;;OFFLINE? BNE 80$ ;;;Y - JUMP ; DD129 ;**-1 .ENDC ;R$$CON BIT #2000,@R3 ;;;NXM BIT SET? ; DD109 BEQ 30$ ;;;N - JUMP ; DD109 BIS #400,@R3 ;;;Y - CLEAR IT ; DD109 MOVB #1,U.TOTI(R4) ;;;SET TIMER TO EXPIRE IN 1 SECOND ; DD109 BR 80$ ;;;GO ON TO NEXT LINE ; DD109 30$: TST BCR(R3) ;;;HAS THIS LINE COMPLETED TRANSMISSION? ; DD109 BNE 80$ ;;;N - JUMP ; DD129 MOV R4,-(SP) ;;;THIS LINE HAS COMPLETED - SAVE R4 ;**-2 MOV R3,-(SP) ;;;SAVE CSR ; DD074 .IF DF T$$SPL ; DD074 ; DD074 MOV U.TAPR(R5),@#KDSAR5 ;;;MAP UCBX ; DD074 MOV #120000,R4 ;;;SET VIRTUAL ADDRESS OF UCBX ; DD074 ADD #U.TSTA,R5 ;;;POINT TO U.TSTA ; DD074 ; DD074 .IFF ;T$$SPL ; DD074 ; DD074 ASSUME U.TSTA, ; DD074 ADD #U.TUX,R5 ;;;POINT TO UCBX POINTER MOV (R5)+,R4 ;;;GET UCBX ; DD074 .ENDC ;T$$SPL ; DD074 ; DD074 ; DD098 .IF DF T$$ACD ; DD098 ; DD098 BIT #S1.OBF,@R5 ;;;DOING BUFFERED OUTPUT? ; DD098 BNE 40$ ;;;Y - JUMP ; DD098 ADD #U.TOC,R4 ;;;POINT TO U.TOC ; DD098 DEC @R4 ;;;ANYTHING LEFT TO OUTPUT? ; DD098 BEQ 50$ ;;;N - JUMP ; DD098 CALL STAXM ;;;Y - INITIATE ANOTHER TRANSFER ; DD098 BR 60$ ;;;CHECK IF ANOTHER TRANSFER HAS COMPLETED ; DD098 ; DD098 .ENDC ;T$$ACD ; DD098 ; DD098 40$: ADD #U.TOP+2,R4 ;;;POINT TO U.TOP+2 ; DD129 CALL NXTOB ;;;GET NEXT OUTPUT BUFFER IF THERE IS ONE ;**-11 BEQ 50$ ;;;N - JUMP ; DD129 ; ;**-1 ; WE GOT ANOTHER OUTPUT BUFFER - START OUTPUTTING IT. ; TST -(R4) ;;;POINT TO U.TOP+2 MOV (SP)+,R3 ;;;GET CSR MOVB U.UNIT-U.TSTA(R5),R2 ;;;GET UNIT NUMBER ASL R2 ;;; .. TIMES 2 CALL STAX1 ;;;START OUTPUT BR 70$ ;;; ; DD129 50$: CALL ODONE ;;;DO OUTPUT DONE PROCESSING ; DD129 60$: MOV (SP)+,R3 ;;;RESTORE CSR POINTER ; DD090 70$: MOV (SP)+,R4 ;;;RESTORE R4 ; DD129 80$: BICB #60,@R3 ;;;CLEAR 2 HIGH BITS OF UNIBUS ADDRESS ; DD098 ;;;TO AVOID OVERFLOW INTO BIT 6 WHEN ;**-5 ;;;INCREMENTING LINE NUMBER INCB @R3 ;;;INCREMENT LINE NUMBER ; DD098 BR 20$ ;;;GO TRY NEXT LINE ; DD129 ; ;**-2 ; ALL LINES SCANNED. SEE IF ANY LINE COMPLETED TRANSMIT ; "BEHIND" US IN THE SCAN LOOP. ; 90$: MOV (SP)+,R4 ;;;RESTORE KRB ADDRESS ; DD129 ;;; OR ADDRESS OF UCB LIST (RSX-11M) ;**-1 TST @R3 ;;;XMIT RDY SET? BMI 10$ ;;;Y - DO IT ALL OVER AGAIN ; ; ALL OUTPUT WORK DONE. SEE IF ANY INPUT WORK NEEDED. ; MOV NRC(R3),R5 ;;;GET A CHARACTER FROM SILO BPL 100$ ;;;NONE - EXIT ; DD129 CALL MUXIN1 ;;;PROCESS AS INPUT INTERRUPT ;**-1 BR 10$ ;;;OUTPUT WORK TO DO - JUMP ;;;MUXIN1 DISMISSES INTERRUPT IF NO OUTPUT WORK ; ; ; ; ; DD090 .IF NDF R$$EIS ; DD090 ; DD090 ; ; DD090 ; SUBROUTINE TO SHIFT R2 4 BIT POSITIONS TO THE LEFT FOR NON-EIS SYSTEMS ; DD090 ; ; DD090 SHIFT4: ASL R2 ;SHIFT ONCE ; DD090 ASL R2 ;TWICE ; DD090 ASL R2 ;THRICE ; DD090 ASL R2 ;LAST TIME ; DD090 RETURN ; DD090 ; DD090 .ENDC ;NDF R$$EIS ; DD090 ; DD090 ; ; DD090 ; SUBROUTINE TO SELECT LINE ON DH11. ; ; SELLIN: BICB #77,@R3 ;;;CLEAR LINE NUMBER AND 2 HIGH BITS ;;;OF 18-BIT ADDRESS BISB U.UNIT-U.TSTA(R5),@R3 ;;;SELECT LINE 100$: RETURN ;;; ; DD129 ; ;**-1 .DSABL LSB .IF DF D$$M11 .IF DF R$$CON YMCONL:: YMCPUP:: CALL LOCKI ;RAISE OUR PRIORITY BIC #1040,@R3 ;;;STOP DM11-BB SCAN 10$: BIT #20,@R3 ;;;SCAN STOPPED? BNE 10$ ;;;N - WAIT CLR R0 ;;;INITIALLY SET TO LINE 0 20$: MOV R0,@R3 ;;;SELECT LINE ASL R0 ;;;CONVERT TO WORD OFFSET BIT $BTMSK(R0),K.PRM-2(R2) ;;;SHOULD WE ENABLE THIS LINE? BEQ 30$ ;;;N - JUMP BIS #1,2(R3) ;;;Y - SET DM11-BB LINE ENABLE 30$: ASR R0 ;;;RESTORE COUNT INC R0 ;;;INCREMENT TO NEXT LINE CMP R0,#15 ;;;GONE THRU EVERY LINE? BLE 20$ ;;;N - LOOP BIS #140,@R3 ;;;ENABLE SCAN AND INTERRUPTS RETURN ;;;RETURN WILL LOWER PRIORITY YMCOFF:: CALL LOCKI ;LOCK OUT INTERRUPTS BIC #1140,@R3 ;;;DISABLE SCAN AND INTERRUPTS YMSTAX:: YMABOX:: YMRESX:: YMSTOX:: YMMTIM:: YMUPUP:: YMUONL:: YMUOFF:: RETURN ;;; .ENDC ;R$$CON ;+ ; DM11-BB DATASET STATUS CHANGE INTERRUPT ;- ; ; .IF DF R$$MPL $DM11B::TTSET$ YM ;;;SAVE R2, R3 AND SET UP: ;;; R3 = CSR ADDRESS ;;; R4 = KRB ADDRESS .IFF ;R$$MPL $DM11B::TTSET$ DM ;;;SAVE R2,R3 AND SET UP ;;; R3 = DH11 CSR ; DD096 ;;; R4 = ADDRESS OF DH UCB LIST ;**-1 MOV -4(R4),R3 ;;;GET DM11-BB CSR ; DD096 .ENDC ;R$$MPL BIC #240,@R3 ;;;CLEAR DONE FLAG AND DISABLE SCAN MOV (R3)+,R5 ;;;GET LINE NUMBER IN BITS 0-3 CALL MUXUCB ;;;GET POINTER TO U.TSTA BCS 10$ ;;;UNKNOWN LINE - JUMP MOV @R3,R4 ;;;GET MODEM STATUS CALL MODISR ;;;DO COMMON MODEM INTERRUPT PROCESSING ;**-1 10$: BIS #40,-(R3) ;;;REENABLE SCAN BCS 30$ ;;;NO CALL ANSWERED - JUMP ; DD129 MOV U.SCB-U.TSTA(R5),R3 ;;;GET SCB ;**-1 .IF DF R$$MPL MOV @S.KRB(R3),R3 ;;;GET DH CSR ADDRESS .IFF ;R$$MPL MOV S.CSR(R3),R3 ;;;GET DH CSR ADDRESS .ENDC ;R$$MPL MOVB U.CW3+1-U.TSTA(R5),R2 ;;;GET ANSWER SPEED ; DD090 ; DD090 .IF DF R$$EIS ; DD090 ; DD090 ASH #4,R2 ;;;SET TRANSMIT SPEED = ANSWER SPEED ; DD090 ; DD090 .IFF ;R$$EIS ; DD090 ; DD090 CALL SHIFT4 ;;;SET TRANSMIT SPEED = ANSWER SPEED ; DD090 ; DD090 .ENDC ;R$$EIS ; DD090 ; DD090 BISB U.CW3+1-U.TSTA(R5),R2 ;;;SET RECEIVE SPEED = ANSWER SPEED ; DD090 MOVB R2,U.CW3-U.TSTA(R5) ;;;SET NEW SPEED IN DATABASE ; DD090 MOV U.CW3-U.TSTA(R5),R2 ;;;GET NEW SPEED AND PARITY BITS ; DD090 BIT #S3.ABD,4(R5) ;;;AUTO-BAUD SPEED DETECT ENABLED? ; DD090 BEQ 20$ ;;;N - JUMP ; DD090 MOV #314,R2 ;;;Y - SET LINE TO 4800 BAUD ; DD128 20$: JMP SETLIN ;;;SET LINE PARAMETERS ; DD090 ; ; DD090 30$: RETURN ;;;DISMISS INTERRUPT ; DD129 ; ;**-3 ; ;+ ; YHMTIM - MODEM TIME-OUT ;- ; ; .IF DF R$$MPL YHMTIM::MOV U.SCB-U.TSTA(R5),R3 ;GET SCB MOV S.KRB(R3),R3 ;GET DH11 KRB MOVB K.CON(R3),R3 ;GET CONTROLLER INDEX ADD YMCP1,R3 ;POINT TO POINTER TO DM11-BB KRB MOV @(R3)+,R3 ;GET DM11-BB CSR .IFF ;R$$MPL YHMTIM::MOV U.SCB-U.TSTA(R5),R3 ;GET SCB ; DD099 MOV S.DMCS(R3),R3 ;GET DM11-BB CSR ; DD099 ;**-1 .ENDC ;R$$MPL YHMTMA: CALL HLMTIM ;DO COMMON MODEM TIME-OUT PROCESSING ; ; COME BACK AT RAISED PRIORITY ; BIC #1040,@R3 ;;;STOP SCAN 10$: BIT #20,@R3 ;;;SCAN STOPPED? BNE 10$ ;;;N - WAIT BIC #17,@R3 ;f;;CLEAR LINE NUMBER ; ; NOTE - CANNOT USE BYTE INSTRUCTIONS ON DM11-BB ; MOVB U.UNIT-U.TSTA(R5),R4 ;;;GET LINE NUMBER BIS R4,(R3)+ ;;;SELECT LINE BIC #17,@R3 ;;;DROP DTR, RTS, SEC. XMIT INC @R3 ;;;SET LINE ENABLE BIS #140,-(R3) ;;;ENABLE SCAN AND INTERRUPTS RETURN ;;;RETURN FROM COROUTINE .ENDC ;D$$M11 .ENDC ;D$$H11 .END f9€€>kQ ›c, .TITLE TTYJ .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 27-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; D. T. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD021 .PSECT MAP5 ; DD021 ; ;+ ; CONTROLLER-DEPENDENT ROUTINES FOR DJ-11. ;- ; ; .IF DF D$$J11 ; EQUATED SYMBOLS ; ; DJ-11 REGISTER DEFINITIONS ; CSR = 0 ;CONTROL AND STATUS REG. RBUF = 2 ;RECEIVER BUFFER REG. TCR = 4 ;TRANSMIT CONTROL REG. TBUF = 6 ;TRANSMITTER BUFFER REG. ; ; ;+ ; YJPWUP - POWER UP. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; U.STS SET UP FOR LOCAL LINE: ; US.CRW 0 ; US.DSB 0 ;- ; ; .IF DF R$$CON YJCONL:: YJCPUP:: .IFF YJPWUP::TST R2 ;IS THIS LINE ZERO? BNE 20$ ;N - RETURN .IFTF MOV #10,@R3 ;CLEAR SILO, UARTS, CONTROLLER 10$: BIT #20,@R3 ;CLR COMPLETED? BNE 10$ ;N - WAIT BIS #40501,@R3 ;ENABLE INTERRUPTS .IFT YJUONL:: YJUPUP:: YJUOFF:: .ENDC ;R$$CON 20$: YJMTIM::RETURN ;RETURN .IF DF R$$CON YJCOFF:: MOV #10,@R3 ;CLEAR SILO, UARTS, CONTROLLER 10$: BIT #20,@R3 ;CLR COMPLETED? BNE 10$ ;N - LOOP RETURN .ENDC ;R$$CON ; ; ;+ ; INPUT INTERRUPT SERVICE ROUTINE. ;- ; ; .ENABL LSB ; .IF DF R$$MPL $YJINP::TTSET$ YJ ;;;SAVE R2, R3 AND SET UP: ;;; R3 = CSR ADDRESS ;;; R4 = KRB ADDRESS .IFF ;R$$MPL $DJINP::TTSET$ DJ ;;;SAVE R2,R3 AND SET UP ;;; R3 = CSR ;;; R4 = ADDRESS OF UCB LIST .ENDC ;R$$MPL CALL MUXINP ;;;DO COMMON MULTIPLEXER INPUT ;;;CHARACTER PROCESSING ;;;MUXINP DISMISSES INTERRUPT IF NO OUTPUT WORK BR 10$ ;;;XMIT READY - GO DO OUTPUT WORK ; ; ;+ ; OUTPUT INTERRUPT SERVICE ROUTINE. ;- ; ; .IF DF R$$MPL $YJOUT::TTSET$ YJ ;;;SAVE R2, R3 AND SET UP: ;;; R3 = CSR ADDRESS ;;; R4 = KRB ADDRESS .IFF ;R$$MPL $DJOUT::TTSET$ DJ ;;;SAVE R2,R3 AND SET UP ;;; R3 = CSR ;;; R4 = ADDRESS OF UCB LIST .ENDC ;R$$MPL 10$: MOV R3,-(SP) ;;; ADD #TBUF+1,@SP ;;;POINT TO BYTE CONTAINING ;;;INTERRUPTING LINE NUMBER (TBUF HIGH BYTE) CALL JZOUT ;;;DO OUTPUT INTERRUPT PROCESSING ;;;COMMON FOR DJ-11 AND DJ-11 TST (SP)+ ;l;;CLEAN STACK ; ; ;+ ; YJABOX - ABORT OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; U.TOC 0 ; U.TTOC 0 ; ; YJSTOX - STOP OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; S1.CTS 1 ;- ; ; YJABOX:: YJSTOX::RETURN ;;;RETURN ; .DSABL LSB .ENDC ;D$$J11 ; ; .END l9€KkQ ›c, .TITLE TTYL .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 27-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD090 08-DEC-80 DALE R. DONCHIN ; ADD PER UNIT ANSWER SPEED AND AUTOBAUD DETECT ; DD137 05-DEC-81 DALE R. DONCHIN ; DON'T SPECIAL CASE HAVING ONLY ONE DL11 CONTROLLER ON M-PLUS ; ;+ ; CONTROLLER-DEPENDENT ROUTINES FOR DL-11. ;- ; ; .IF DF D$$L11 .IF DF R$$MPL .MCALL KRBDF$ KRBDF$ ;DEFINE KRB SYMBOLS .ENDC ;R$$MPL .MCALL UCBDF$ UCBDF$ ;DEFINE UCB SYMBOLS ; D0021 .PSECT MAP5 ; D0021 ; ; ; EQUATED SYMBOLS ; ; DL-11 REGISTER DEFINITIONS ; RCSR = 0 ;RECEIVER STATUS REG. RBUF = 2 ;RECEIVER DATA BUFFER REG. XCSR = 4 ;TRANSMITTER STATUS REG. XBUF = 6 ;TRANSMITTER DATA BUFFER REG. ; ; ;+ ; YLRESX - RESUME OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; S1.CTS 0 ;- ; ; YLRESX::BIS #100,XCSR(R3) ;SET XMIT INTERRUPT ENABLE ; ; ;+ ; YLABOX - ABORT OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; U.TOC 0 ; U.TTOC 0 ; ; YLSTOX - STOP (SUSPEND) OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; S1.CTS 1 ;- ; ; YLABOX:: YLSTOX:: .IF NDF D$$LMD YLMTIM:: .ENDC ;D$$LMD RETURN ;;; ; ; ;+ ; YLPWUP - POWER-UP. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; U.STS SET UP FOR LOCAL LINE: ; US.CRW 0 ; US.DSB 0 ;- ; ; .IF DF R$$CON YLCONL:: YLCPUP:: YLUONL:: YLUPUP:: .IFF YLPWUP:: .ENDC ;R$$CON MOVB RBUF(R3),R0 ;EMPTY RBUF .IF DF D$$LMD BIS #140,@R3 ;ENABLE DATASET AND RECEIVE INTERRUPTS .IFF ;D$$LMD BIS #100,@R3 ;ENABLE RECEIVE INTERRUPTS .IFTF ;D$$LMD RETURN ;RETURN ; .IFT ;D$$LMD ; ;+ ; YLMTIM - MODEM TIMER. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ;- ; ; .ENABL LSB ; YLMTIM::CALL HLMTIM ;CALL COMMON MODEM TIMER ROUTINE ;;;COME BACK AT DEVICE PRIORITY BICB #17,@R3 ;;;CLEAR DTR, RTS, READER ENABLE AND ;;;SECONDARY XMIT 10$: RETURN ;;;RETURN TO COROUTINE THAT HANGS ;;;UP LINE IF NECESSARY .IFTF ;D$$LMD .IF DF R$$CON YLCOFF:: YLUOFF:: CLR @R3 ;DISABLE THE WORLD RETURN .ENDC ;R$$CON ; ; ;+ ; INPUT INTERRUPT SERVICE ROUTINE. ;- ; ; .IF DF R$$MPL $YLINP:: TTSET$ YL ;;;SAVE R2, R3 AND SET UP: ;**-6 ;;; R3 = CSR ADDRESS ;;; R4 = KRB ADDRESS MOV K.OWN(R4),R5 ;;;GET UCB ADDRESS .IFF ;R$$MPL $DLINP:: .IF EQ D$$L11-1 CLR R4 ;;;SET UP DL CONTROLLER INDEX .ENDC TTSET$ DL ;;;SAVE R2,R3 AND SET UP ;;; R3 = CSR ;;; R4 = ADDRESS OF UCB LIST MOV (R4),R5 ;;;GET UCB ADDRESS .ENDC ;R$$MPL ADD #U.TSTA,R5 ;;;POINT TO U.TSTA .IFT ;D$$LMD MOV @R3,R2 ;;;SAVE INTERRUPT STATUS BPL 20$ ;;;NO DATASET INTERRUPT - JUMP MOV R2,R4 ;;;GET A COPY ASL R4 ;;;GET RING BIT IN BIT 15 SWAB R4 ;;;GET IT IN BIT 7 CALL MODISR ;;;CALL COMMON MODEM ISR ;**-2 20$: TSTB R2 ;;;RECEIVER INTERRUPT? BPL 10$ ;;;N - EXIT .ENDC ;D$$LMD MOV RBUF(R3),R2 ;;;GET RECEIVED CHARACTER CALLR ICHAR1 ;;;DO COMMON INPUT CHARACTER ;;;PROCESSING AND RETURN ; .DSABL LSB ; ; ;+ ; OUTPUT INTERRUPT SERVICE ROUTINE ;- ; ; .IF DF R$$MPL $YLOUT:: TTSET$ YL ;;;SAVE R2, R3 AND SET UP: ;**-6 ;;; R3 = CSR ADDRESS ;;; R4 = KRB ADDRESS MOV K.OWN(R4),R5 ;;;GET UCB ADDRESS .IFF ;R$$MPL $DLOUT:: .IF EQ D$$L11-1 CLR R4 ;;;SET UP DL CONTROLLER INDEX .ENDC TTSET$ DL ;;;SAVE R2,R3 AND SET UP ;;; R3 = CSR ;;; R4 = ØADDRESS OF UCB LIST MOV (R4),R5 ;;;GET UCB ADDRESS .ENDC ;R$$MPL ADD #U.TSTA,R5 ;;;POINT TO U.TSTA ; ; ;+ ; YLSTAX - START OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; U.TOP+2 BUFFER POINTER ; U.TOC BYTE COUNT ;- ; ; YLSTAX::MOV #100,R2 ;;;GET BITMASK FOR XMIT INTERRUPT BIS R2,XCSR(R3) ;;;ENABLE XMIT INTERRUPT CALLR OUTISR ;;;DO COMMON OUTPUT INTERRUPT PROCESSING .ENDC ;D$$L11 ; ; .END Ø9€€¢kQ ›c, .TITLE TTYZ .IDENT /V3.00/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; 27-JAN-78 PETER WANNHEDEN ; ; PREVIOUSLY MODIFIED BY: ; ; P. WANNHEDEN ; C. F. SPITZ ; D. R. DONCHIN ; ; MODIFICATIONS: ; ; DD021 19-JUN-79 DALE R. DONCHIN ; CORRECT MAPPING (AGAIN) WHEN DRIVER > 4K ; DD022 26-JUN-79 DALE R. DONCHIN ; ADD COPYRIGHT NOTICE ; DD024 17-JUL-79 DALE R. DONCHIN ; HANG UP DZ11 REMOTE LINE IF CARRIER NOT SEEN WITHIN ; TIMEOUT PERIOD ; DD025 30-JUL-79 DALE R. DONCHIN ; DON'T LOGOFF LOCAL TERMINALS AFTER POWERFAIL ; DD043 19-NOV-79 DALE R. DONCHIN ; FIX DZ RECONFIGURATION CONDITIONAL ; DD071 17-JUL-80 DALE R. DONCHIN ; FIX DZ UNIT OFFLINE ; DD090 08-DEC-80 DALE R. DONCHIN ; ADD PER UNIT ANSWER SPEED AND AUTOBAUD DETECT ; DD128 05-NOV-81 DALE R. DONCHIN ; IMPROVE AUTOBAUD DETECT ALGORITHM ; DD129 08-NOV-81 DALE R. DONCHIN ; RENUMBER LOCAL SYMBOLS AND GENERAL CLEANUP ; DD021 .PSECT MAP5 ; DD021 ; ;+ ; CONTROLLER-DEPENDENT ROUTINES FOR DZ-11. ;- ; ; .IF DF D$$Z11 ; EQUATED SYMBOLS ; ; DZ-11 REGISTER DEFINITIONS ; CSR = 0 ;CONTROL AND STATUS REG. RBUF = 2 ;RECEIVER BUFFER REG. (READ-ONLY) LPR = 2 ;LINE PARAMETER REG. (WRITE-ONLY) TCR = 4 ;TRANSMIT CONTROL REG. MSR = 6 ;MODEM STATUS REG. (READ-ONLY) TBUF = 6 ;TRANSMITTER BUFFER REG. (WRITE-ONLY) ; ; .ENABL LSB .IF DF T$$GMC!T$$SMC!D$$ZMD ; DD090 ;**-1 ;+ ; YZLPAR - GET/SET LINE PARAMETERS. ; ; INPUT: ; R0 BIT 15: 0 = SET SPEED ; DD090 ; 1 = GET SPEED ; DD090 ; BIT 11: 1 = SET SPEED SELECTED BY AUTO-BAUD DETECT LOGIC ; DD090 ; BIT 10: 1 = SET DEVICE DEPENDENT SPEED ; DD090 ; (USED FOR AUTO-BAUD DETECT) ; DD090 ; BIT 9: 1 = GET/SET ANSWER SPEED ; DD090 ; IF SET SPEED: ;**-2 ; BITS 0-7: NEW SPEED PARAMETER (S.XXX SYMBOL) ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; ; OUTPUT: ; IF GET SPEED REQUESTED: ; R4 POINTER TO DZ11 SPEED TABLE ;**-1 ; CC-C 0 ; ; IF SET SPEED REQUESTED: ; CC-C 0 IF OK ; 1 IF ILLEGAL SPEED SPECIFIED ; ; DD090 ; NOTE THAT THIS ROUTINE CAN BE EXECUTED AT BOTH SYSTEM STATE (IN RESPONSE ; DD090 ; TO A SF.GMC OR SF.SMC QIO) AND FROM THE INPUT INTERRUPT SERVICE ROUTINE (FOR ; DD090 ; AUTO-BAUD SPEED DETECT). ; DD090 ; ; DD090 ;- ; ; YZLPAR:: ; DD090 ; DD090 .IF DF D$$ZMD ; DD090 ; DD090 BIT #4000,R0 ;SET SPEED FOR AUTO-BAUD DETECT? ; DD090 BEQ 10$ ;N - JUMP ; DD090 BIT #2000,R0 ;SET DEVICE DEPENDENT SPEED? ; DD090 BEQ 20$ ;N - JUMP ; DD090 BIC #^C<17>,R0 ;CLEAR ALL BUT NEW SPEED BITS ; DD090 BR 40$ ;SET NEW SPEED ; DD090 10$: ;REFERENCE LABEL ; DD090 ; DD090 .ENDC ;D$$ZMD ; DD090 ; DD090 ;**-1 .IF DF T$$GMC&T$$SMC TST R0 ;GET OR SET SPEED? ; DD090 BPL 20$ ;SET - JUMP ; DD090 ;**-4 .ENDC ;T$$GMC&T$$SMC .IF DF T$$GMC MOV #SPDZ,R4 ;POINT TO DZ11 SPEED TABLE RETURN ;RETURN WITH CC-C = 0 .ENDC ;T$$GMC .IF DF T$$SMC!D$$ZMD ; DD090 ;**-3 20$: MOV R0,R4 ;COPY SPEED PARAMETERS ; DD090 BIC #177400,R0 ;CLEAR UPPER BYTE ;**-6 MOVB SPDZ-1(R0),R0 ;GET SPEED BITS SEC ;ASSUME ERROR ; DD090 BMI 30$ ;ILLEGAL SPEED - JUMP ; DD090 BIT #1000,R4 ;SET ANSWER SPEED? ; DD090 BEQ 40$ ;N - JUMP ; DD090 ; DD090 .IF DF D$$ZMD ; DD090 ; DD090 BICB #17,U.CW3+1-U.TSTA(R5) ;CLEAR OLD ANSWER SPEED ; DD090 BISB R0,U.CW3+1-U.TSTA(R5) ;SET NEW ANSWER SPEED ; DD090 CLC ;SHOW SUCCESS ; DD090 ; DD090 .ENDC ;D$$ZMD ; DD090 ; DD090 30$: RETURN ; DD090 40$: MOVB R0,U.CW3-U.TSTA(R5) ;SET NEW RECEIVE SPEED ; DD090 ; DD090 .IF DF R$$EIS ; DD090 ; DD090 ASH #4,R0 ;SHIFT BITS TO TRANSMIT SPEED POSITION ; DD090 ; DD090 .IFF ;R$$EIS ; DD090 ; DD090 ASL R0 ;SHIFT BITS TO TRANSMIT SPEED POSITION ; DD090 ASL R0 ; ; DD090 ASL R0 ; ; DD090 ASL R0 ; ; DD090 ; DD090 .ENDC ;R$$EIS ; DD090 ; DD090 BISB R0,U.CW3-U.TSTA(R5) ;SET NEW TRANSMIT SPEED ; DD090 ;**-11 .ENDC ;T$$SMC!D$$ZMD ; DD090 ;**-1 .ENDC ;T$$GMC!T$$SMC!D$$ZMD ; DD090 ;**-1 SETLN1: MOV U.CW3-U.TSTA(R5),R2 ;GET NEW SPEED AND PARITY BITS ; DD090 SETLIN: BIC #^C<140017>,R2 ;CLEAR EXTRANEOUS NONSENSE ; DD090 CMPB R2,#2 ;IS SPEED 110 BAUD OR LOWER? ; DD090 BGT 50$ ;N - JUMP ; DD090 BIS #20000,R2 ;Y - SET TWO STOP BITS ; DD090 50$: SWAB R2 ;PUT BITS IN PROPER POSITION ; DD090 BIS #10030,R2 ;SET 8 BIT CHARACTERS AND TURN RECEIVER ON ; DD090 BISB U.UNIT-U.TSTA(R5),R2 ;SET LINE NUMBER ; DD090 MOV R2,LPR(R3) ;SET CHARACTERISTICS IN PARAMETER REGISTER ; DD090 CLC ;SHOW SUCCESS ; DD090 RETURN ; DD090 ; ; ;+ ; YZPWUP - POWER UP. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; U.STS SET UP FOR LOCAL LINE: ; US.CRW 0 ; US.DSB 0 ;- ; ; .IF DF R$$CON YZCONL:: YZCPUP:: .IFF YZPWUP::TST R2 ;IS THIS LINE ZERO? BNE 70$ ;N - JUMP ; DD129 ;**-1 .IFTF MOV #20,@R3 ;Y - CLEAR SILO, UARTS, CONTROLLER 60$: BIT #20,@R3 ;DONE? ; DD129 BNE 60$ ;N - LOOP ; DD129 BIS #40140,@R3 ;Y - ENABLE INTERRUPTS ;**-2 .IFT RETURN YZUONL:: YZUPUP:: .ENDC ;R$$CON 70$: ;REFERENCE LABEL ; DD090 ; DD090 .IF DF D$$ZMD ; DD090 ; DD090 BIC #S3.ABP,4(R5) ;RESET AUTO-BAUD MODE ; DD090 MOV R2,-(SP) ;SAVE R2 ; DD090 ; DD090 .IFTF ;D$$ZMD ; DD090 ; DD090 CALL SETLN1 ;SET INITIAL CHARACTERISTICS ; DD090 ;IN LINE PARAMETER REGISTER ; DD090 ; DD025 .IFT ;D$$ZMD ; DD025 ; DD025 MOV (SP)+,R2 ;RESTORE R2 ; DD025 BIT #U2.RMT,U.CW2-U.TSTA(R5) ;REMOTE LINE? ; DD025 BEQ 150$ ;N - RETURN ; DD025 ; ;**-2 ; ;+ ; YZMTIM - MODEM TIMER. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ;- ; ; ; LINE MAY HAVE BECOME NON-REMOTE WHILE TIMER WAS ; RUNNING. IF SO, HANG UP. ; ; DD025 .IFTF ;D$$ZMD ; DD025 ; DD025 YZMTIM:: .IFT ;D$$ZMD ; DD025 ;**-1 MOV $BTMSK(R2),R2 ;GET BIT CORRESPONDING TO THIS LINE BIT #U2.RMT,U.CW2-U.TSTA(R5) ;REMOTE LINE? BEQ 100$ ;N - GO AND HANG UP ; DD129 INCB U.TMTI-U.TSTA(R5) ;SET NEW TIMER ;**-1 BITB #US.DSB,U.STS-U.TSTA(R5) ;LINE ENABLED? BNE 110$ ;N - JUMP ; DD129 ; ;**-1 ; LINE IS ENABLED. IF CARRIER IS OFF, HANG UP LINE. ; BITB R2,MSR+1(R3) ;CARRIER ON? BNE 80$ ;Y - JUMP ; DD024 BITB #US.CRW,U.STS-U.TSTA(R5) ;DID WE JUST LOSE CARRIER? ; DD024 BNE 90$ ;NO, IT WAS OFF LAST TIME WE LOOKED - JUMP ; DD024 BISB #US.CRW,U.STS-U.TSTA(R5) ;SET FLAG THAT WE LOST CARRIER ; DD024 BR 150$ ;WAIT ONE TIMER INTERVAL FOR IT TO RETURN ; DD024 80$: BICB #US.CRW,U.STS-U.TSTA(R5) ;RESET CARRIER WAIT FLAG ; DD024 BR 150$ ; DD024 90$: BICB #US.CRW,U.STS-U.TSTA(R5) ;CARRIER LOST FOR GOOD - RESET FLAG ; DD024 100$: BICB R2,TCR+1(R3) ;DROP DTR ; DD024 CALLR MHUP ;HANG UP ;**-2 ; ; LINE IS DISABLED. SET DTR. IF CARRIER IS ON, ANSWER LINE. ; 110$: BISB R2,TCR+1(R3) ;SET DTR ; DD129 BITB R2,MSR+1(R3) ;CARRIER ON? ;**-1 BNE 120$ ;Y - JUMP ; DD024 CMPB DZTIMR,#DZTIME ;DID DTR TIMER JUST EXPIRE? ; DD024 BNE 150$ ;N - JUMP ; DD024 BICB R2,TCR+1(R3) ;Y - DROP DTR TO RESET MODEM ; DD024 BR 150$ ;LEAVE DTR OFF FOR ONE INTERVAL ; DD024 120$: BIT #S3.ABD,4(R5) ;AUTO-BAUD SPEED DETECT ENABLED? ; DD090 BEQ 130$ ;N - JUMP ; DD090 MOVB #14,R2 ;Y - SET LINE TO 4800 BAUD ; DD128 CALL SETLIN ; ; DD090 BR 140$ ;ANSWER LINE ; DD090 130$: MOVB U.CW3+1-U.TSTA(R5),R0 ;GET REMOTE ANSWER SPEED ; DD090 CALL 40$ ;SET THAT SPEED ; DD090 140$: CALL MANS ;ANSWER CALL ; DD090 ;NOTE - CANNOT USE "CALLR"!! ;**-5 .ENDC ;D$$ZMD 150$: RETURN ; DD129 ;**-1 .DSABL LSB .IF DF R$$CON YZCOFF:: MOV #20,@R3 ;CLEAR SILO, UARTS, CONTROLLER 10$: BIT #20,@R3 ;DONE? BNE 10$ ;N - LOOP RETURN YZUOFF:: CLR -(SP) ;GET A TEMPORARY WORD ; DD090 BISB U.UNIT-U.TSTA(R5),(SP) ;SET LINE NUMBER BUT RECEIVER OFF ; DD090 MOV (SP)+,LPR(R3) ;LOAD NEW LINE PARAMETERS ;**-2 .IF DF D$$ZMD MOV $BTMSK(R2),R2 ;GET BIT CORRESPONDING TO THIS LINE BICB R2,TCR+1(R3) ;DROP DTR ;**-1 .ENDC ;D$$ZMD RETURN ; DD043 ; DD043 .ENDC ;R$$CON ; ; ;+ ; INPUT INTERRUPT SERVICE ROUTINE. ;- ; ; .ENABL LSB ; .IF DF R$$MPL $YZINP::TTSET$ YZ ;;;SAVE R2, R3 AND SET UP: ;;; R3 = CSR ADDRESS ;;; R4 = KRB ADDRESS .IFF ;R$$MPL $DZINP::TTSET$ DZ ;;;SAVE R2,R3 AND SET UP ;;; R3 = CSR ;;; R4 = ADDRESS OF UCB LIST .ENDC ;R$$MPL CALL MUXINP ;;;DO COMMON MULTIPLEXER INPUT ;;;CHARACTER PROCESSING ;;;MUXINP DISMISSES INTERRUPT IF NO OUTPUT WORK BR 10$ ;;;XMIT READY - GO DO OUTPUT WORK ; ; ;+ ; OUTPUT INTERRUPT SERVICE ROUTINE. ;- ; ; .IF DF R$$MPL $YZOUT::TTSET$ YZ ;;;SAVE R2, R3 AND SET UP: ;;; R3 = CSR ADDRESS ;;; R4 = KRB ADDRESS .IFF ;R$$MPL $DZOUT::TTSET$ DZ ;;;SAVE R2,R3 AND SET UP ;;; R3 = CSR ;;; R4 = ADDRESS OF UCB LIST .ENDC ;R$$MPL 10$: MOV R3,-(SP) ;;; INC @SP ;;;POINT TO BYTE CONTAINING ;;;INTERRUPTING LINE NUMBER (CSR HIGH BYTE) CALL JZOUT ;;;DO OUTPUT INTERRUPT PROCESSING ;;;(COMMON FOR DJ-11 AND DZ-11) TST (SP)+ ;;;CLEAN STACK ; ; ;+ ; YZABOX - ABORT OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROUTINE. ; U.TOC 0 ; U.TTOC 0 ; ; YZSTOX - STOP OUTPUT. ; ; INPUT: ; REGISTERS R2-R5 STANDARD FOR CONTROLLER-DEPENDENT ROvUTINE. ; S1.CTS 1 ;- ; ; YZABOX:: YZSTOX::RETURN ;;;RETURN ; .DSABL LSB .ENDC ;D$$Z11 ; ; .END v˜ðskQ ›c, .TITLE XMDRV .IDENT /04/ ; ; COPYRIGHT (C) 1976, 1977,1979,1980,1981 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 01754 ; ; 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 COPYRIGHT NOTICE. THIS ; SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED ; OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO ; AND OWNERSHIP OF THE 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. ; ; VERSION 04 ; ; DMC-11 DRIVER ; ; ; MPP005 -- ALLOW MODE CHANGE ONLY WHEN DEVICE ; IS OFFLINE ; ; RC006 -- GENERAL FIX UP FOR M V3.2 ; ; IZ004 -- CORRECT UMR DEALLOCATION ; .SBTTL LIBRARY MACROS ;JFR002 .MCALL CUCDF$,INTSV$,PKTDF$,SCBDF$,UCBDF$ CUCDF$ ;COMMUNICATIONS UCB DEFINITIONS PKTDF$ ;I/O PACKET DEFINITIONS SCBDF$ ;SCB DEFINITIONS UCBDF$ ;UCB DEFINITIONS .SBTTL CONDITIONAL ASSEMBLY PARAMETERS ; 22 BIT ADDRESSING .IIF DF M$$MGE & M$$EXT, X$$22=0 ; 18 BIT ADDRESSING .IF DF M$$MGE .IIF NDF M$$EXT, X$$18=0 .ENDC ; QIO DRIVER PLUS 22 BIT ADDRESSING .IIF DF X$$22 Q$$22=0 X$$M11=X$$M11 ; DON'T LAUGH ; LOADABLE DRIVER MAPPING NEEDED .IIF DF M$$MGE & LD$XM, X$$LDM=0 ; DYNAMIC UMR ALLOCATION COUNT ; IZ004 .IF DF R$$MPL!V$$RSN&Q$$22 ;**-1 .IIF NDF XM$UMR, XM$UMR=5 .IIF NE XM$UMR-3, XM$UMR=5 .ENDC .SBTTL EQUATED SYMBOLS ; BIT ASSIGNMENTS BIT0=1 BIT1=2 BIT2=4 BIT3=10 BIT4=20 BIT5=40 BIT6=100 BIT7=200 BIT8=400 BIT9=1000 BIT10=2000 BIT11=4000 BIT12=10000 BIT13=20000 BIT14=40000 BIT15=100000 ; CSR INDEX VALUES SEL0=0 SEL2=2 ; SEL0 ASSIGNMENTS RUN=BIT15 ;RUN MC=BIT14 ;MASTER CLEAR RDYI=BIT7 ;MICROPROCESSOR READY FOR INPUT IEI=BIT6 ;INPUT INTERRUPT ENABLE RQI=BIT5 ;REQUEST IN TYPE=BIT2!BIT1!BIT0 ;REQUEST TYPE RELEAS=RQI!IEI ;PORT RELEASE ; SEL0 INPUT TRANSACTION TYPES BACCI=RQI ;BUFFER ADDRESS/CHARACTER COUNT IN CNTLI=RQI!BIT0 ;CONTROL IN BASEI=RQI!BIT1!BIT0 ;BASE IN XMT=BACCI ;TRANSMIT BUFFER RCV=BACCI!BIT2 ;RECEIVE BUFFER PERR=BASEI ;CAUSE PROCEDURE ERROR BY DOING BASE IN TWICE ; SEL2 ASSIGNMENTS RDYO=BIT7 ;MICROPROCESSOR READY FOR OUTPUT IEO=BIT6 ;OUTPUT INTERRUPT ENABLE ; SEL6 ASSIGNMENTS (CNTLI) HDX=BIT10 ;HALF DUPLEX SCNDRY=BIT11 ;HALF DUPLEX SECONDARY STATION MOP=BIT8 ;MAINTENANCE MODE ; SEL6 ASSIGNMENTS (BASEI) RESUME=BIT12 ;RESUME AFTER POWERFAIL (PERIPHERALS HANDBOOK IS WRONG!) ; SEL6 ASSIGNMENTS (CNTLO) DATACK=BIT0 ;RETRANSMISSION THRESHOLD EXCEEDED TIMOUT=BIT1 ;NO REMOTE RESPONSE FOR 21 SECONDS ORUN=BIT2 ;MESSAGE RECEIVED BUT NO BUFFER AVAILABLE MAINT=BIT3 ;DDCMP MAINTENANCE RECEIVED LOST=BIT4 ;MESSAGE RECEIVED > BUFFER SIZE DISCON=BIT6 ;MODEM DATA SET READY LEAD WENT FROM ON TO OFF START=BIT7 ;DDCMP START RECEIVED MEMORY=BIT8 ;UNIBUS TIME-OUT ON MEMORY REFERENCE BUG=BIT9 ;PROGRAM BUG! FATAL=TIMOUT!MAINT!LOST!START!MEMORY!BUG ; U.CW3 ASSIGNMENTS U3.ERR=BIT15 ;HAS FATAL ERROR OCCURRED? (1=YES) U3.KIL=BIT14 ;HAS I/O KILL BEEN DONE? (1=YES) U3.PWF=BIT13 ;HAS POWER FAILED? (1=YES) U3.MOD=HDX!SCNDRY!MOP ;CURRENT OPERATING MODE U3.FRK=BIT0 ;IS FORK PROCESS RUNNING? (1=YES) ; UCB DISPLACEMENTS USED .ASECT .=U.VCB+2 U.XQ: .BLKW 1 ;TRANSMIT LISTHEAD ADDRESS U.RQ: .BLKW 1 ;RECEIVE LISTHEAD ADDRESS U.ERR: .BLKW 1 ;ERROR STATUS U.LEN=. .PSECT ; MAXIMUM NUMBER OF BUFFERS WHICH DMC CAN HANDLE .IF DF Q$$22 .IF DF V$$RSN!R$$MPL .IIF EQ XM$UMR-3, MAXBUF=1 .ENDC .IIF NDF MAXBUF, MAXBUF=2 .ENDC .IIF NDF MAXBUF, MAXBUF=7 ; LISTHEAD DISPLACEMENTS .ASECT .=0 .BLKW 2 ;SENT QUEUE .BLKW 2 ;WAIT QUEUE IOTYPE: .BLKB 1 ;SEL0 REQUEST TYPE COUNT: .BLKB 1 ;SENT COUNT .IF DF Q$$22 UMR: .BLKW 1 ;NEXT UMR TO USE UMRSUM: .BLKW 1 ;SUM OF BOTH UMR ADDRESSES .ENDC .PSECT ; FIRST UMR ADDRESS FIRSTUMR=170200 ; WHERE BUFFER ADDRESS AND COUNT ARE TO BE FOUND X.PRM=I.PRM ; DEVICE INITIALIZATION WAIT TIMES S.WAIT=200. ;LOOP COUNTDOWN VALUE WAITING FOR RDYI TO BE SET C.WAIT=100. ;DITTO WAITING FOR RDYI TO BE CLEARED .SBTTL LOCAL DATA ; MICROPROCESSOR BASE TABLE(S) ; *** WARNING *** THIS MUST BE THE FIRST ASSEMBLY LOCATION BASE: .REPT X$$M11 .BLKW 128. .ENDR ; DRIVER DISPATCH TABLE .IF DF R$$MPL DDT$ XM,X$$M11,,INIT,CNTBL,NEW .IFF DDT$ XM,X$$M11,,INIT,CNTBL .ENDC ; TEMPORARY UNIT SAVE .IF GT X$$M11-1 TEMP: .BLKW 1 .ENDC ; LISTHEADS LIST: .REPT X$$M11 .WORD 0,.-2 ;COMPLETED BUFFERS .WORD 0,.-2 ;TRANSMITS SENT (U.XQ) .WORD 0,.-2 ;TRANSMITS WAITING .BYTE XMT,0 .IF DF Q$$22 .BLKW 2 .IFTF .WORD 0,.-2 ;RECEIVES SENT (U.RQ) .WORD 0,.-2 ;RECEIVES WAITING .BYTE RCV,0 .IFT .BLKW 2 .ENDC .ENDR ; MULTIPLE UNIT BASE TABLE ADDRESSES .IF NDF X$$LDM .IF GT X$$M11-1 BTAB: BADDR=BASE .REPT X$$M11 .WORD BADDR BADDR=BADDR+256. .ENDR .ENDC .ENDC ; MULTIPLE UNIT LISTHEAD ADDRESSES .IF GT X$$M11-1 XLTAB: XLADDR=LIST+4 .REPT X$$M11 .WORD XLADDR .IF DF Q$$22 XLADDR=XLADDR+32. .IFF XLADDR=XLADDR+24. .ENDC .ENDR .ENDC ; ADDRESS EXTENSION BITS .IF DF M$$MGE AXTAB: .WORD 0,40000,100000,140000 .ENDC .SBTTL INITIATE I/O ;+ ; **-XMINIT-INITIATE DMC I/O ; ; INPUTS: ; R5=UCB ADDRESS ; ; OUTPUTS: ; ALL I/O PACKETS PROCESSED ; ; NOTE: ; IF TIMER IS ACTIVE, DISCONNECT ERROR RECOVERY IS IN PROGRESS ;- XMRET: RETURN XMINIT: MOV U.SCB(R5),R4 ;SCB ADDRESS TSTB S.CTM(R4) ;IS TIMER ACTIVE? BNE XMRET ;IF NE, YES - MUST WAIT MOVB S.STS(R4),-(SP) ;SAVE ACTIVITY COUNT CLRB S.STS(R4) ;DECLARE CONTROLLER NOT BUSY BICB #US.BSY,U.STS(R5) ; AND IDLE THE UNIT ; RC006 CALL $GTPKT ;GET AN I/O PACKET IF AVAILABLE ; RC006 MOVB (SP)+,S.STS(R4) ;RESTORE ACTIVITY COUNT ;**-2 BCS XMRET ;IF CS, NO MORE PACKETS ; ; $GTPKT RETURNS THE FOLLOWING: ; R1=I/O PACKET ADDRESS ; R2=PHYSICAL UNIT NUMBER (U.UNIT) ; R3=CONTROLLER INDEX (S.CON) ; R4=SCB ADDRESS ; R5=UCB ADDRESS ; MOV R5,R2 ;UCB ADDRESS ADD #U.CW2,R2 ;U.CW2 ADDRESS CMPB #IO.INL/256.,I.FCN+1(R1);IS IT A TRANSFER FUNCTION? BLOS 2$ ;IF LOS, NO JMP TRAN ;ELSE IT IS A TRANSFER REQUEST ; ; CONTROL FUNCTION ; 2$: BNE 20$ ;IF NE, MODE CHANGE REQUEST TSTB I.FCN(R1) ;IS IT TERMINATE FUNCTION? BNE 10$ ;IF NE, YES ; ; INITIALIZE (IO.INL) ; BIT #U2.ONL,(R2) ;IS DEVICE ALREADY ON-LINE? BNE PKTOK ;IF NE, YES MOV R5,CNTBL(R3) ;SAVE UCB ADDRESS .IF GT X$$M11-1 MOV XLTAB(R3),R0 ;TRANSMIT LISTHEAD ADDRESS .IFF MOV #LIST+4,R0 ;TRANSMIT LISTHEAD ADDRESS .ENDC MOV R0,U.XQ(R5) ;SAVE TRANSMIT LISTHEAD ADDRESS ADD #COUNT,R0 ;POINT TO SENT COUNT CLRB (R0)+ ;ZERO IT OUT .IF DF Q$$22 .IF DF V$$RSN!R$$MPL .IF NDF R$$MPL TST S.MPR+2(R4) ;DOES UMR BLOCK ALREADY EXIST? .IFF MOV S.KRB(R4),R2 ; MOV KRB ADDRESS INTO R2 ADD K.OFF(R2),R2 ;POINT TO UMR AREA + 2 ; IZ004 SUB #M.LGTH,R2 ;POINT TO START OF UMR AREA ; IZ004 TST (R2) ; IS IT ALREADY SET UP? ; IZ004 .ENDC ;**-3 BNE 6$ ;IF NE, YES (!!!) MOV R0,-(SP) ;SAVE R0 MOV R1,-(SP) ;AND THE PACKET ADDRESS MOV R2,-(SP) ;AND SAVE R2 ; IZ004 MOV #M.LGTH,R1 ;SET SIZE OF BLOCK TO BE REQUESTED CALL $ALOCB ;TRY TO ALLOCATE THE DATA BLOCK BCS 4$ ;IF C-SET WE FAILED MOV #,M.UMRN(R0) ;SETUP UMR COUNT * 4 CALL $ASUMR ;TRY TO GET THE UMRS BCC 5$ ;IF C-CLEAR WE GOT THEM CALL $DEACB ;ELSE GIVE BACK THE DATA BLOCK 4$: MOV (SP)+,R2 ;RESTORE R2 ; IZ004 MOV (SP)+,R1 ;AND PACKET ADDRESS ; IZ004 TST (SP)+ ;POP THE STACK ; IZ004 BR XMRSU ;AND REPORT THE RESOURCE ALLOCATION FAILURE ; IZ004 5$: MOV (SP)+,R2 ;RESTORE R2 ; IZ004 .IF NDF R$$MPL ; IZ004 MOV M.UMRA(R0),S.MPR(R4) ;SAVE FIRST UMR ; IZ004 MOV R0,S.MPR+2(R4) ;AND THE UMR BLOCK ADDRESS ; IZ004 .IFF ; IZ004 MOV M.UMRA(R0),(R2) ;SAVE FIRST UMR ; IZ004 MOV R0,2(R2) ; AND THE UMR BLOCK ADDRESS ; IZ004 .ENDC ;**-9 MOV R5,M.UMVL(R0) ;MARK THE UMR BLOCK (FOR SYSTEM DEBUGGING) MOV (SP)+,R1 ;RESTORE THE PACKET ADDRESS MOV (SP)+,R0 ;AND THE LISTHEAD POINTER .ENDC .IF NDF R$$MPL 6$: MOV S.MPR(R4),R2 ;FIRST UMR IS FOR BASE TABLE .IFF 6$: MOV S.KRB(R4),R2 ; MOV KRB ADDRESS INTO R2 ADD K.OFF(R2),R2 ;POINT TO UMR AREA + 2 ; IZ004 SUB #M.LGTH,R2 ;POINT TO START OF UMR AREA ; IZ004 MOV (R2),R2 ;R2=FIRST UMR FOR BASE TABLE ; IZ004 .ENDC ; IZ004 CMP (R2)+,(R2)+ ;SECOND AND THIRD UMRS ARE FOR TRANSMITS ;**-3 MOV R2,(R0)+ ;SECOND UMR ADDRESS MOV R2,(R0) .IF EQ MAXBUF-2 CMP (R2)+,(R2)+ ;GET TO THE THIRD UMR .ENDC ADD R2,(R0)+ ;SUM OF SECOND AND THIRD UMR ADDRESSES .IFTF MOV R0,U.RQ(R5) ;SAVE RECEIVE LISTHEAD ADDRESS .IFT ADD #COUNT,R0 ;POINT TO SENT COUNT CLRB (R0)+ ;ZERO IT OUT CMP (R2)+,(R2)+ ;FOURTH AND FIFTH UMRS ARE FOR RECEIVES MOV R2,(R0)+ ;FOURTH UMR ADDRESS MOV R2,(R0) .IF EQ MAXBUF-2 CMP (R2)+,(R2)+ ;GET TO THE FIFTH UMR .ENDC ADD R2,(R0) ;SUM OF FOURTH AND FIFTH UMR ADDRESSES .IFF CLRB COUNT(R0) ;ZERO OUT RECEIVE SENT COUNT .ENDC CALL SETDMC ;INITIALIZE DMC HARDWARE BCS XMINF ;IF CS, HARDWARE TROUBLE BIS #U2.ONL,U.CW2(R5) ;SET ON-LINE BIT BIC #^C,U.CW3(R5) ;CLEAR EVERYTHING EXCEPT MODE BR PKTOK ;RETURN SUCCESSFUL STATUS ; ; TERMINATE (IO.TRM) ; 10$: MOV R1,-(SP) ;SAVE PACKET ADDRESS CLR R0 ;NO SPECIAL ERROR CODE CALL KILL ;KILL THE DEVICE 16$: MOV (SP)+,R1 ;RESTORE THE PACKET ADDRESS BR PKTOK ;RETURN SUCCESSFUL STATUS ; ; MODE CHANGE FUNCTION ; 20$: BIT #U2.ONL,(R2) ;IS DEVICE ON-LINE? BNE XMDNR ;IF NE, YES ;MPP005 BITB #IO.HDX,I.FCN(R1);IS SUB-FUNCTION HALF-DUPLEX? ;**-1 BNE 30$ ;IF NE, YES BITB #IO.FDX,I.FCN(R1);IS SUB-FUNCTION FULL DUPLEX? BEQ XMIFC ;IF EQ, NO ; ; FULL DUPLEX (IO.FDX) ; BIT #U2.LIN,(R2) ;WAS DEVICE SYSGENED AS HALF-DUPLEX? BNE XMIFC ;IF NE, YES BIC #U2.HDX,(R2)+ ;SET FULL DUPLEX IN U.CW2 CLR (R2) ;HALF-DUPLEX MODE BIT OFF BR 50$ ; ; HALF-DUPLEX (IO.HDX) ; 30$: BIS #U2.HDX,(R2)+ ;SET HALF-DUPLEX IN U.CW2 MOV #HDX,(R2) ;HALF-DUPLEX MODE BIT TST I.PRM(R1) ;LOOK AT QIO PARAMETER P1 BEQ 40$ ;IF EQ, PRIMARY STATION BIS #SCNDRY,(R2) ;IF NE, SECONDARY STATION 40$: TST I.PRM+2(R1) ;LOOK AT QIO PARAMETER P2 BEQ 50$ ;IF EQ, NORMAL MODE BIS #MOP,(R2) ;IF NE, MAINTENANCE MODE 50$: ;FALL THRU TO PKTOK .SBTTL FINISH I/O PACKET ;+ ; **-PKTOK-FINISH PACKET WITH STATUS OF "IS.SUC" ; **-FINPKT-ALTERNATE ENTRY ; ; INPUTS: ; R1=I/O PACKET ADDRESS ; R5=UCB ADDRESS ; ; CALLING SEQUENCE: ; JMP PKTOK ; ; OUTPUTS: ; PACKET FINISHED ; XMINIT CALLED TO START ANY NEW PACKETS ;- PKTOK: MOV #IS.SUC&377,-(SP);SUCCESSFUL STATUS FINPKT: MOV R1,-(SP) ;SAVE PACKET ADDRESS CALL XMINIT ;TRY ANOTHER PACKET MOV (SP)+,R3 ;RESTORE PACKET ADDRESS MOV (SP)+,R0 ;STATUS WORD 1 CLR R1 ;STATUS WORD 2 = 0 CALLR $IOFIN ;FINISH I/O PACKET ; ; DEVICE NOT READY ; XMINF: .IF DF R$$MPL!V$$RSN&Q$$22 CALL DEUMR ;DE-ALLOCATE UMR'S .ENDC XMDNR: MOV #IE.DNR&377,-(SP) BR FINPKT ; ; ILLEGAL BUFFER ; XMSPC: MOV #IE.SPC&377,-(SP) BR FINPKT ; ; ILLEGAL FUNCTION CODE ; XMIFC: MOV #IE.IFC&377,-(SP) BR FINPKT ; ; RESOURCE ALLOCATION FAILURE ; .IF DF R$$MPL!V$$RSN&Q$$22 XMRSU: MOV #IE.RSU&377,-(SP) BR FINPKT .ENDC .SBTTL PROCESS QIO TRANSFER FUNCTION ; ; TRANSFER FUNCTION ; TRAN: BIT #U2.ONL,(R2) ;IS DEVICE ON-LINE? BEQ XMDNR ;IF EQ, NO .IF DF X$$22 BIT #160000,I.PRM+4(R1) ;IS BUFFER SIZE >= 4K WORDS? ;BUFFER MUST BE MAPPED BY 1 UMR .IFF BIT #140000,I.PRM+4(R1) ;IS BUFFER SIZE >= 8K WORDS? .ENDC BNE XMSPC ;IF NE, YES - BUFFER IS TOO BIG INCB S.STS(R4) ;INCR ACTIVITY COUNT .IF DF X$$18 MOV I.PRM(R1),R0 ;GET NPR EXTENSION BITS SWAB R0 ;AND SHIFT FROM BIT POSITIONS 5-4 ASL R0 ;TO BIT POSITIONS 15-14 ASL R0 BIS R0,I.PRM+4(R1) ;THEN AND WITH BYTE COUNT .ENDC CMPB #IO.WLB/256.,I.FCN+1(R1) ;IS IT A WRITE FUNCTION? BEQ 10$ ;IF EQ, YES ; ; RECEIVE DATA (IO.RLB OR IO.RNS) ; MOV U.RQ(R5),R0 ;RECEIVE LISTHEAD ADDRESS BR 20$ ; ; TRANSMIT DATA (IO.WLB OR IO.WNS) ; 10$: MOV U.XQ(R5),R0 ;TRANSMIT LISTHEAD ADDRESS 20$: MOV #XMINIT,-(SP) ;SET TO RETURN TO XMINIT ;FALL THRU TO TRY .SBTTL TRY TO GIVE TRANSFER REQUEST TO DMC ;+ ; **-TRY-TRY TO GIVE TRANSFER REQUEST TO DMC ; ; INPUTS: ; R0=SENT Q LISTHEAD ADDRESS (U.XQ OR U.RQ) ; R1=I/O PACKET ADDRESS ; R4=SCB ADDRESS ; R5=UCB ADDRESS ; ; OUTPUTS IF PORT WAS NOT AVAILABLE: ; R0=WAIT Q LISTHEAD ADDRESS ; R2,R3=DESTROYED ; R4=CSR ADDRESS ; PACKET QUEUED ON WAIT Q ; ; OUTPUTS IF PORT WAS AVAILABLE BUT NOT READY: ; R0=WAIT Q LISTHEAD ADDRESS ; R2,R3=DESTROYED ; R4=CSR ADDRESS ; REQUEST TYPE!IEI LEFT IN SEL0 ; PACKET QUEUED ON WAIT Q ; ; OUTPUTS IF PORT WAS AVAILABLE AND READY: ; R2,R3=DESTROYED ; R4=CSR ADDRESS ; DMC GIVEN BUFFER ADDRESS AND COUNT ; DMC PORT RELEASED ; SENT COUNT INCREMENTED ; PACKET QUEUED ON SENT Q ;- TRY: MTPS S.PRI(R4) ;DISABLE INTERRUPTS MOV S.CSR(R4),R4 ;;;CSR ADDRESS TST 4(R0) ;;;IS WAIT Q EMPTY? BNE 30$ ;;;IF NE, NO - NO ACTION POSSIBLE CALL PORT ;;;IS PORT AVAILABLE? BCS 30$ ;;;IF CS, NO BIT #RDYO,2(R4) ;;;IS OUTPUT TRANSFER READY? BNE 20$ ;;;IF NE, YES - USE INTERRUPTS MOV #4,R2 ;;;LOOP COUNT 10$: BIT #RDYI,(R4) ;;;IS DMC READY FOR INPUT? BNE 40$ ;;;IF NE, YES SOB R2,10$ ;;; 20$: BIS #IEI,(R4) ;;;ENABLE INPUT INTERRUPT BIS #IEI,(R4) ;;;TWICE 30$: CMP (R0)+,(R0)+ ;;;WAIT Q LISTHEAD ADDRESS CALL $QINSF ;;;INSERT PACKET ON WAIT Q ;;;NOTE-$QINSF DESTROYS R2 BR 50$ ;;; 40$: CALL GIVE ;;;GIVE PACKET INFO TO DMC 50$: MTPS #0 ;;;RE-ENABLE INTERRUPTS RETURN .SBTTL LOAD DATA PORT WITH BUFFER ADDRESS AND COUNT ;+ ; **-GIVE-GIVE BUFFER ADDRESS AND COUNT TO DMC ; ; INPUTS: ; R0=SENT Q LISTHEAD ADDRESS ; R1=I/O PACKET ADDRESS ; R4=CSR ADDRESS ; DMC READY FOR INPUT ; ; OUTPUTS: ; R2,R3=DESTROYED ; DMC GIVEN BUFFER ADDRESS AND COUNT ; DMC PORT RELEASED ; SENT COUNT INCREMENTED ; PACKET INSERTED ON SENT Q ;- GIVE: INCB COUNT(R0) ;;;INCREMENT SENT COUNT .IF DF Q$$22 MOV R0,R2 ;;;COPY LISTHEAD ADDRESS MOV UMR(R2),R0 ;;;NEXT UMR TO USE MOV UMRSUM(R2),UMR(R2) ;;;RESET NEXT UMR ADDRESS SUB R0,UMR(R2) ;;; MOV R2,-(SP) ;;;SAVE LISTHEAD ADDRESS MOV X.PRM(R1),R2 ;;;PUT 18 BIT ADDRESS IN R2,R3 SWAB R2 ;;; MOV X.PRM+2(R1),R3 ;;; CALL MAP22 ;;;DO 22 BIT MAPPING AND LOAD DATA PORT BIS X.PRM+4(R1),6(R4) ;;;INCLUDE BYTE COUNT MOV (SP)+,R0 ;;;RESTORE LISTHEAD ADDRESS .IFF MOV X.PRM+2(R1),4(R4) ;;;GIVE DMC BUFFER ADDRESS MOV X.PRM+4(R1),6(R4) ;;;AND COUNT .ENDC BIC #RELEAS,(R4) ;;;RELEASE THE PORT CALLR $QINSF ;;;INSERT PACKET ON SENT Q ;;;NOTE-$QINSF DESTROYS R2 .SBTTL INITIALIZE DMC HARDWARE ;+ ; **-SETDMC-INITIALIZE DMC HARDWARE ; ; INPUTS: ; R3=CONTROLLER INDEX (S.CON) ; R4=SCB ADDRESS ; R5=UCB ADDRESS ; U3.MOD=DMC MODE ; ; OUTPUTS: ; R0,R2,R3=DESTROYED ; R4=CSR ADDRESS ; CARRY CLEAR=OK ; CARRY SET=HARDWARE NOT WORKING PROPERLY ;- .ENABL LSB SETDMC: CLR U.ERR(R5) ;CLEAR ERROR STATUS AND C-BIT ; IZ004 .IF DF X$$22 ; IZ004 .IF NDF R$$MPL ; IZ004 MOV S.MPR(R4),R0 ;GET THE BASE TABLE UMR ; IZ004 .IFF ; IZ004 MOV S.KRB(R4),R0 ; MOV KRB ADDRESS INTO R0 ; IZ004 ADD K.OFF(R0),R0 ;POINT TO UMR AREA + 2 ; IZ004 SUB #M.LGTH,R0 ;POINT TO START OF UMR AREA ; IZ004 MOV (R0),R0 ;GET BASE TABLE UMR ; IZ004 .ENDC ; IZ004 .ENDC ; IZ004 ;**-8 MOV S.CSR(R4),R4 ;CSR ADDRESS BIS #MC,(R4) ;MASTER CLEAR THE DMC ; THE FOLLOWING INSTRUCTION NEEDED WITH COMIOP BOARD AND OK WITHOUT MOV #RUN,(R4) ;START THE MICROPROCESSOR BIS #IEO,2(R4) ;ENABLE COMPLETION INTERRUPTS MOVB #BASEI,(R4) ;BASE IN REQUEST TYPE CALL WRDYIS ;WAIT FOR RDYI SET BCS 40$ ;IF CS, TROUBLE ; ; THE BASE TABLE ADDRESS IS CALCULATED AS FOLLOWS: ; IF UNMAPPED, USE EITHER "#BASE" OR "BTAB(R3)". ; IF MAPPED AND DMC DRIVER IS NOT LOADABLE, SAME AS UNMAPPED. ; IF MAPPED AND DMC DRIVER IS LOADABLE, USE KISAR5 CONTENTS ; SHIFTED LEFT 6 PLACES. ; ; THUS, THE UMR IS ALWAYS SET TO THE ADDRESS OF THE FIRST ; IZ004 ; BASE TABLE AND THE 18 BIT ADDRESS IS ADJUSTED ACCORDINGLY. ; IZ004 ; ;**-3 .IF DF X$$LDM CLR R2 ;NO EXTENSION BITS YET .IF DF X$$22 ASR R3 ;CALCULATE UNIT # * 400 SWAB R3 MOV R3,-(SP) ;SAVE IT ON STACK MOV KISAR5,R3 ;UMR ALWAYS POINTS TO FIRST BASE TABLE .IFF ASL R3 ;BASE TABLE DISPLACEMENT/100 ADD KISAR5,R3 ;PLUS DRIVER ADDRESS/100 .IFTF MOV #6,-(SP) ;NOW MULTIPLY BY 100 5$: ASL R3 ;BY SHIFTING R2,R3 LEFT ROL R2 ;6 PLACES DEC (SP) ;DONE? BNE 5$ ;IF NE, NO TST (SP)+ ;PURGE LOOP COUNT .IFT CALL MAP22 ;DO 22 BIT MAPPING AND LOAD DATA PORT ADD (SP)+,4(R4) ;ADJUST BY MULTIPLE BASE TABLE INDEX .IFF MOV R3,4(R4) ;LOW 16 BITS OF ADDRESS ASL R2 ;MAKE A WORD INDEX MOV AXTAB(R2),6(R4) ;ADDRESS EXTENSION BITS .ENDC .IFF .IF GT X$$M11-1 MOV BTAB(R3),4(R4) ;LOW 16 BITS OF ADDRESS .IFF MOV #BASE,4(R4) ;LOW 16 BITS OF ADDRESS .ENDC CLR 6(R4) ;NO EXTENSION BITS .ENDC CALL WRDYIC ;RELEASE PORT AND WAIT FOR RDYI CLEAR BCS 40$ ;IF CS, TROUBLE MOVB #CNTLI,(R4) ;CONTROL IN REQUEST TYPE CALL WRDYIS ;WAIT FOR RDYI SET BCS 40$ ;IF CS, TROUBLE MOV U.CW3(R5),-(SP) ;STRIP MODE BITS FROM U.CW3 BIC #^C,(SP) MOV (SP)+,6(R4) ;SET DMC MODE ;FALL THRU TO WRDYIC ; ; RELEASE PORT AND WAIT FOR RDYI CLEAR ; WRDYIC: BIC #RELEAS,(R4) ;RELEASE THE PORT MOV #C.WAIT,R2 ;LOOP COUNT 10$: BIT #RDYI,(R4) ;IS RDYI STILL SET? BEQ 40$ ;IF EQ, NO SOB R2,10$ BR 30$ ;RDYI NOT CLEARED PROPERLY ; ; WAIT FOR RDYI SET ; WRDYIS: MOV #S.WAIT,R2 ;LOOP COUNT 20$: BIT #RDYI,(R4) ;IS RDYI SET? BNE 40$ ;IF NE, YES SOB R2,20$ 30$: SEC ;RDYI NOT SET PROPERLY 40$: RETURN .DSABL LSB .SBTTL DO 22 BIT MAPPING ;+ ; **-MAP22-DO 22 BIT MAPPING AND LOAD DATA PORT ; ; INPUTS: ; R0=UMR ADDRESS ; R2,R3=22 BIT PHYSICAL ADDRESS ; R4=CSR ADDRESS ; ; OUTPUTS: ; R0,R2,R3=DESTROYED ; UMR LOADED WITH PHYSICAL ADDRESS ; DATA PORT LOADED WITH 18 BIT UMR ADDRESS ;- .IF DF X$$22 MAP22: MOV R3,(R0) ;COPY R2,R3 TO UMR BIC #1,(R0)+ ;FIRST WORD OF UMR MUST BE EVEN MOV R2,(R0)+ SUB #FIRSTU+4,R0 ;UMR# IS NOW IN BITS 6-2 SWAB R0 ASL R0 CLR R2 ;FORM AN 18 BIT NUMBER IN R2,R0 ASL R0 ;WITH BITS 17-13 CONTAINING THE UMR# ROL R2 ASL R0 ROL R2 ROR R3 ;ODD/EVEN BIT TO CARRY ADC R0 ;AND THEN TO BIT 0 OF ADDRESS MOV R0,4(R4) ;LOW 16 BITS OF ADDRESS TO DATA PORT ASL R2 ;MAKE A WORD INDEX MOV AXTAB(R2),6(R4) ;ADDRESS EXTENSION BITS TO DATA PORT RETURN .ENDC .SBTTL PROCESS RDYI INTERRUPT ; ; PROCESS RDYI INTERRUPT ; $XMINP::INTSV$ XM,PR5,X$$M11,,CNTBL ;;;GENERATE INTERRUPT SAVE CODE ; RC006 JSR R0,XMSET ;;;DO INTERRUPT SETUP AND TRANSFER ;**-1 .WORD SEL0 ;;;CSR INDEX .WORD XMTRDY ;;;TRANSFER ADDRESSES .WORD BAD .WORD BAD .WORD FPERR .WORD RCVRDY .WORD BAD .WORD BAD .WORD BAD ; ; DMC READY FOR TRANSMIT BUFFER ; XMTRDY: MOV U.XQ(R5),R0 ;;;TRANSMIT LISTHEAD ADDRESS JSR R1,RDYINT ;;;GIVE BUFFER TO DMC ; ; DMC READY FOR RECEIVE BUFFER ; RCVRDY: MOV U.RQ(R5),R0 ;;;RECEIVE LISTHEAD ADDRESS JSR R1,RDYINT ;;;GIVE BUFFER TO DMC ; ; FORCE PROCEDURE ERROR ; FPERR: BIC #RELEAS,(R4) ;;;CLEAR RQI WHICH WILL CAUSE BR XMINTX ;;;CNTLO INTERRUPT .SBTTL PROCESS COMPLETION OR CONTROL OUT INTERRUPT ; ; PROCESS COMPLETION INTERRUPT ; $XMOUT::INTSV$ XM,PR5,X$$M11,,CNTBL ;;;GENERATE INTERRUPT SAVE CODE ; RC006 JSR R0,XMSET ;;;DO INTERRUPT SETUP AND TRANSFER ;**-1 .WORD SEL2 ;;;CSR INDEX .WORD XMTCOM ;;;TRANSFER ADDRESSES .WORD CNTLO .WORD BAD .WORD BAD .WORD RCVCOM .WORD CNTLO .WORD BAD .WORD BAD ; ; TRANSMIT BUFFER COMPLETE ; XMTCOM: MOV U.XQ(R5),R0 ;;;TRANSMIT LISTHEAD ADDRESS JSR R1,BUFCOM ;;;PROCESS BUFFER COMPLETE ; ; RECEIVE BUFFER COMPLETE ; RCVCOM: MOV U.RQ(R5),R0 ;;;RECEIVE LISTHEAD ADDRESS JSR R1,BUFCOM ;;;PROCESS BUFFER COMPLETE ; ; CONTROL OUT ; CNTLO: MOV 4(R4),R0 ;;;COPY SEL6 CONTENTS BIC #RDYO,(R4) ;;;RELEASE THE PORT BIS R0,U.ERR(R5) ;;;UPDATE ERROR STATUS BIT #FATAL,R0 ;;;IS IT A FATAL ERROR? BEQ 20$ ;;;IF EQ, NO BIT #BUG,R0 ;;;IS IT DISCONNECT ERROR PART 2? BEQ 10$ ;;;IF EQ, NO MOV U.SCB(R5),R4 ;;;SCB ADDRESS MOVB #2,S.CTM(R4) ;;;SET TIMER FOR BETWEEN 1 AND 2 SECONDS ;;;NOTE-ONLY 1 SECOND DELAY IS NEEDED BR XMFRK ;;;CAN'T MASTER CLEAR UNTIL THEN 10$: BIS #MC,-(R4) ;;;MASTER CLEAR THE DMC BR XMFRK ;;;START FORK PROCESS 20$: BIT #DISCON,R0 ;;;IS IT DISCONNECT ERROR? BEQ XMINTX ;;;IF EQ, NO MOVB #PERR!IEI,-2(R4);;;CAUSE PROCEDURE ERROR ;;;FALL THRU TO XMINTX ; ; EXIT FROM INTERRUPT ; BAD: XMINTX: MOV (SP)+,R0 ;;;RESTORE R0 JMP $INTXT ;;;EXIT FROM INTERRUPT .SBTTL SETUP FOR INTERRUPT ROUTINES AND TRANSFER ;+ ; **-XMSET-SETUP FOR INTERRUPT ROUTINES AND TRANSFER ; ; INPUTS: ; R0=CALLING REGISTER ; INTSV$ HAS BEEN DONE ; ; CALLING SEQUENCE: ; JSR R0,XMSET ; .WORD ;;;CSR INDEX (EITHER 0 OR 2) ; .BLKW 8. ;;;TRANSFER ADDRESSES BY TYPE ; ; OUTPUTS: (IF VALID INTERRUPT) ; R4=CSR ADDRESS ; R5=UCB ADDRESS ; (SP)=SAVED R0 ; ; ALTERNATE RETURN: (IF INVALID INTERRUPT) ; RETURN TO $INTXT ;- XMSET: TST R5 ;;;HAS UCB BEEN ENTERED IN TABLE? BEQ XMINTX ;;;IF EQ, NO BIT #U2.ONL,U.CW2(R5);;;IS DMC ON-LINE? BEQ XMINTX ;;;IF EQ, NO MOV U.SCB(R5),R4 ;;;SCB ADDRESS MOV S.CSR(R4),R4 ;;;CSR ADDRESS ADD (R0)+,R4 ;;;PLUS CSR INDEX MOV (R4),-(SP) ;;;STRIP EVERYTHING BUT TYPE BITS BIC #^C,(SP) ASL (SP) ;;;MAKE A WORD INDEX ADD (SP)+,R0 ;;;ADD TO TRANSFER TABLE ADDRESS JMP @(R0)+ ;;;AND GO! .SBTTL RDYI INTERRUPT ROUTINES ;+ ; **-RDYINT-GIVE BUFFER TO DMC ; ; INPUTS: ; R0=SENT Q LISTHEAD ADDRESS (U.XQ OR U.RQ) ; R1=CALLING REGISTER ; R4=CSR ADDRESS ; R5=UCB ADDRESS ; 2(SP)=INTERRUPT SAVED R0 ; ; CALLING SEQUENCE: ; JSR R1,RDYINT ; ; OUTPUTS: ; DMC GIVEN BUFFER ADDRESS AND COUNT ; DMC PORT RELEASED ; ATTEMPT MADE TO SETUP ANOTHER BUFFER OF EITHER TYPE ; INTERRUPT EXITED ;- RDYINT: MOV R2,-(SP) ;;;SAVE R2,R3 MOV R3,-(SP) ;;; CMP (R0)+,(R0)+ ;;;ADVANCE TO WAIT Q ADDRESS CALL $QRMVF ;;;REMOVE FIRST PACKET FROM WAIT Q ;;;NOTE-$QRMVF DESTROYS R2,R3 CMP -(R0),-(R0) ;;;RESET TO SENT Q ADDRESS CALL GIVE ;;;GIVE BUFFER TO DMC CALL ITRY ;;;TRY TO SETUP ANOTHER BUFFER MOV (SP)+,R3 ;;;RESTORE R1,R2,R3 MOV (SP)+,R2 ;;; MOV (SP)+,R1 ;;; BR XMINTX ;;;EXIT FROM INTERRUPT .SBTTL COMPLETION INTERRUPT ROUTINES ;+ ; **-BUFCOM-PROCESS BUFFER COMPLETE ; ; INPUTS: ; R0=SENT Q LISTHEAD ADDRESS (U.XQ OR U.RQ) ; R1=CALLING REGISTER ; R4=CSR ADDRESS+2 ; R5=UCB ADDRESS ; 2(SP)=INTERRUPT SAVED R0 ; ; CALLING SEQUENCE: ; JSR R1,BUFCOM ; ; OUTPUTS: ; CHARACTER COUNT STORED IN X.PRM+4 OF I/O PACKET ; PACKET MOVED FROM SENT Q TO COMPLETION Q ; DMC PORT RELEASED ; ATTEMPT MADE TO SETUP ANOTHER BUFFER OF EITHER TYPE ; FORK PROCESS STARTED IF IT'S NOT RUNNING ; INTERRUPT EXITED ;- BUFCOM: MOV R2,-(SP) ;;;SAVE R2,R3 MOV R3,-(SP) ;;; DECB COUNT(R0) ;;;DECREMENT SENT COUNT CALL $QRMVF ;;;REMOVE PACKET FROM SENT Q ;;;NOTE-$QRMVF DESTROYS R2,R3 MOV 4(R4),X.PRM+4(R1);;;PUT COUNT IN I/O PACKET .IF DF M$$MGE BIC #140000,X.PRM+4(R1) ;;;CLEAR ADDRESS EXTENSION BITS .ENDC BIC #RDYO,(R4) ;;;RELEASE THE PORT MOV U.XQ(R5),R0 ;;;TRANSMIT SENT Q LISTHEAD ADDRESS CMP -(R0),-(R0) ;;;COMPLETION Q LISTHEAD ADDRESS CALL $QINSF ;;;INSERT PACKET ON COMPLETION Q ;;;NOTE-$QINSF DESTROYS R2 TST -(R4) ;;;SEL0 ADDRESS CALL ITRY ;;;TRY TO SETUP ANOTHER BUFFER MOV (SP)+,R3 ;;;RESTORE R1,R2,R3 MOV (SP)+,R2 ;;; MOV (SP)+,R1 ;;; ;;;FALL THRU TO XMFRK .SBTTL FORK PROCESSING ; ; START FORK PROCESS IF IT'S NOT RUNNING ; XMFRK: BIT #U3.FRK,U.CW3(R5);;;IS FORK PROCESS RUNNING? BNE XMINTX ;;;IF NE, YES MOV (SP)+,R0 ;;;RESTORE R0 BIS #U3.FRK,U.CW3(R5);;;INDICATE FORK PROCESS RUNNING CALL $FORK ;;;CREATE SYSTEM PROCESS ; ; FORK LEVEL PROCESSING ; MOV U.XQ(R5),R0 ;TRANSMIT SENT Q LISTHEAD ADDRESS CMP -(R0),-(R0) ;COMPLETION Q LISTHEAD ADDRESS 10$: MOV U.SCB(R5),R4 ;SCB ADDRESS MTPS S.PRI(R4) ;DISABLE INTERRUPTS CALL $QRMVF ;;;REMOVE FIRST PACKET FROM COMPLETION Q BCS 20$ ;;;IF CS, Q WAS EMPTY MTPS #0 ;;;RE-ENABLE INTERRUPTS MOV #IS.SUC&377,R2 ;STATUS WORD 1 MOV X.PRM+4(R1),R4 ;STATUS WORD 2 = BYTE COUNT CALL RAP ;RETURN THE I/O PACKET BR 10$ ;AND TRY AGAIN 20$: BIC #U3.FRK,U.CW3(R5);;;NO MORE FORK PROCESSING MTPS #0 ;;;RE-ENABLE INTERRUPTS BIT #FATAL,U.ERR(R5) ;HAS FATAL ERROR OCCURRED? BEQ EXIT ;IF EQ, NO BIT #LOST,U.ERR(R5) ;WAS IT LOST DATA? BEQ 30$ ;IF EQ, NO MOV U.RQ(R5),R0 ;RECEIVE SENT Q LISTHEAD ADDRESS MOV #IE.DAO&377,R2 ;RETURN FIRST PACKET ON SENT Q CALL DQRAP0 ;WITH A STATUS OF "IE.DAO" 30$: MOV #U3.ERR,R0 ;FATAL ERROR BIT MOV #IE.CNR&377,R2 ;ASSUME DDCMP START RECEIVED BIT #START,U.ERR(R5) ;WAS IT DDCMP START RECEIVED? BNE RQP ;IF NE, YES BIT #TIMOUT,U.ERR(R5);WAS IT TIME-OUT? BEQ RQPABO ;IF EQ, NO MOV #IE.TMO&377,R2 ;TIMEOUT ERROR CODE BR RQP ;RETURN ALL PACKETS .SBTTL TIMEOUT ;+ ; **-XMTMO-TIMEOUT ENTRY POINT ; ; INPUTS: ; R3=CONTROLLER INDEX (S.CON) ; R4=SCB ADDRESS ; R5=UCB ADDRESS ; ; OUTPUTS: ; DISCONNECT ERROR RECOVERY IS COMPLETED (QIO) ;- ; IZ004 XMOUT: ;**-2 BIS #MC,@S.CSR(R4) ;MASTER CLEAR THE DEVICE CALLR XMINIT ;TIMER BLOCKED PACKETS .SBTTL CANCEL I/O AND POWERFAIL ;+ ; **-XMCANC-CANCEL I/O ENTRY POINT ; **-XMPWRF-POWERFAIL RECOVERY ENTRY POINT ; ; INPUTS: ; R0=A(I/O PACKET) CANCEL ONLY ; RC006 ; R1=TCB ADDRESS (CANCEL ONLY) ; RC006 ; R3=CONTROLLER INDEX (S.CON) ;**-1 ; R4=SCB ADDRESS ; R5=UCB ADDRESS ; ; OUTPUTS: ; DEVICE IS KILLED ;- XMPWF: MTPS #PR7 ;;; DISABLE INTERUPTS FROM THE WORLD MOV #U3.PWF,R0 ;;;INDICATE POWERFAIL OCCURRED BR KILL ;;; XMCAN: MOV #U3.KIL,R0 ;INDICATE I/O KILL WAS DONE ; NOTE THAT INTERRUPTS ARE NOT DISABLED FOR ; THE NEXT FOUR INSTRUCTIONS ;FALL THRU TO KILL .SBTTL KILL THE DMC ;+ ; **-KILL-KILL THE DEVICE ; **-RQP,RQPABO-ALTERNATE ENTRIES ; ; INPUTS: ; R0=KILL REASON ; R4=SCB ADDRESS ; R5=UCB ADDRESS ; ; OUTPUTS: ; R0,R1,R2,R3,R4=DESTROYED ; DMC MASTER CLEARED IF ON-LINE ; U2.ONL BIT CLEARED ; ALL PACKETS DEQUEUED AND RETURNED WITH STATUS OF "IE.ABO" ;- KILL: BIT #U2.ONL,U.CW2(R5) ;;;IS THE DEVICE ON-LINE? BNE 1$ ;;; IF NE THEN YES MTPS #0 ; ALLOW INTERRUPTS AGAIN BR EXIT ;IF EQ, NO 1$: BIS #MC,@S.CSR(R4) ;;;MASTER CLEAR THE DEVICE MTPS #0 ; ALL INTERRUPTS AGAIN RQPABO: MOV #IE.ABO&377,R2 ;STATUS WORD 2 FOR LATER RQP: BIS R0,U.CW3(R5) ;SAVE KILL REASON BIC #U2.ONL,U.CW2(R5) ;IT'S NOT ON-LINE NOW .IF DF R$$MPL!V$$RSN&Q$$22 CALL DEUMR ;DE-ASSIGN UMR'S .ENDC MOV U.XQ(R5),R0 ;TRANSMIT SENT Q LISTHEAD ADDRESS CALL 10$ ;RETURN ALL TRANSMIT PACKETS MOV U.RQ(R5),R0 ;RECEIVE SENT Q LISTHEAD ADDRESS 10$: CALL (PC) ;DO THE FOLLOWING FOR SENT Q AND WAIT Q 20$: CALL DQRAP0 ;DEQUEUE AND RETURN ONE PACKET BCC 20$ ;IF CC, Q WAS NOT EMPTY CMP (R0)+,(R0)+ ;ADVANCE TO NEXT LISTHEAD EXIT: RETURN ; ; QUEUE AN AST TO THE CCP ; .SBTTL DEQUEUE AND RETURN ONE I/O PACKET ;+ ; **-DQRAP/DQRAP0-DEQUEUE AND RETURN ONE I/O PACKET ; **-RAP-RETURN AN ALREADY DE-QUEUED I/O PACKET ; ; INPUTS: ; R0=LISTHEAD ADDRESS ; R2=I/O STATUS WORD 1 ; R4=I/O STATUS WORD 2 ; ; OUTPUTS: ; R1,R3,R4=DESTROYED ; CARRY CLEAR=PACKET DEQUEUED AND RETURNED OK ; CARRY SET=QUEUE WAS EMPTY ;- .ENABL LSB DQRAP0: CLR R4 ;ENTRY FOR STATUS WORD 2 = 0 DQRAP: MOV R2,-(SP) ;SAVE STATUS WORD 1 CALL $QRMVF ;DEQUEUE AN I/O PACKET ;NOTE-$QRMVF DESTROYS R2,R3 BCC 5$ ;IF CC, Q WAS NOT EMPTY BR 10$ ;RETURN WITH CARRY SET RAP: MOV R2,-(SP) ;SAVE STATUS WORD 1 5$: MOV R0,-(SP) ;SAVE LISTHEAD ADDRESS MOV R1,R3 ;PACKET ADDRESS MOV 2(SP),R0 ;STATUS WORD 1 MOV R4,R1 ;STATUS WORD 2 MOV U.SCB(R5),R4 ;GET SCB ADDRESS DECB S.STS(R4) ;DECR ACTIVITY COUNT CALL $IOFIN ;FINISH THE I/O PACKET ;NOTE-$IOFIN SAVES ONLY R5 CLC ;INDICATE SUCCESS MOV (SP)+,R0 ;RESTORE LISTHEAD ADDRESS 10$: MOV (SP)+,R2 ;RESTORE STATUS WORD 1 RETURN .DSABL LSB .SBTTL DE-ASSIGN UMR'S ;+ ; **-DEUMR-DEASSIGN UMR'S (FOR QIO DRIVER ONLY) ; ; INPUTS: ; R5=UCB ADDRESS ; ; OUTPUTS: ; R0,R3=DESTROYED ; R4=SCB ADDRESS ; S.MPR+2(R4)=CLEARED ;- .IF DF R$$MPL!V$$RSN&Q$$22 DEUMR: MOV R2,-(SP) ;SAVE R2 MOV R1,-(SP) ;AND R1 MOV U.SCB(R5),R4 ;GET SCB ADDRESS .IF NDF R$$MPL MOV S.MPR+2(R4),R2 ;GET UMR BLOCK ADDRESS .IFF MOV S.KRB(R4),R2 ; MOV KRB ADDRESS INTO R2 ADD K.OFF(R2),R2 ;POINT TO UMR AREA + 2 ; IZ004 SUB #M.LGTH,R2 ;POINT TO START OF UMR AREA ; IZ004 TST (R2) ;IS UMR ASSIGNED ? ; IZ004 .ENDC ; IZ004 BEQ 10$ ;IF EQ, NO UMR BLOCK (!!!) ; IZ004 .IF NDF R$$MPL ; IZ004 CLR S.MPR+2(R4) ;ZERO THE POINTER ; IZ004 .IFF ; IZ004 CLR (R2) ;ZERO THE POINTER ; IZ004 MOV 2(R2),R2 ;R2=UMR BLOCK ADDRESS ; IZ004 .ENDC ; IZ004 MOV R2,R0 ;COPY UMR BLOCK ADDRESS ;**-8 CALL $DEUMR ;DE-ASSIGN UMR'S MOV #M.LGTH,R1 ;SETUP UMR BLOCK LENGTH CALL $DEACB ;DE-ALLOCATE UMR BLOCK 10$: MOV (SP)+,R1 ;RESTORE R1 MOV (SP)+,R2 ;AND R2 RETURN .ENDC .SBTTL TRY TO SETUP ANOTHER BUFFER FROM INTERRUPT LEVEL ;+ ; **-ITRY-TRY TO SETUP ANOTHER BUFFER FROM INTERRUPT LEVEL ; ; INPUTS: ; R4=CSR ADDRESS ; R5=UCB ADDRESS ; ; OUTPUTS: ; R0=DESTROYED ; REQUEST TYPE!IEI LEFT IN SEL0 IF EITHER WAIT Q WAS NOT EMPTY ; RECEIVE REQUESTS ARE ATTEMPTED FIRST ;- ITRY: MOV U.RQ(R5),R0 ;;;TRY RECEIVES FIRST CALL IPORT ;;;IS THE PORT AVAILABLE? BCC 10$ ;;;IF CC, YES (PORT IS LOADED) MOV U.XQ(R5),R0 ;;;THEN TRY TRANSMITS CALL IPORT ;;;IS THE PORT AVAILABLE? BCS 20$ ;;;IF CS, NO 10$: BIS #IEI,(R4) ;;;SET INTERRUPT BIT BIS #IEI,(R4) ;;;TWICE 20$: RETURN ;;; ;+ ; **-PORT-REQUEST THE DATA PORT ; **-IPORT-REQUEST THE DATA PORT FROM INTERRUPT LEVEL ; ; INPUTS: ; R0=SENT Q LISTHEAD ADDRESS (U.XQ OR U.RQ) ; R4=CSR ADDRESS ; ; OUTPUTS IF PORT WAS AVAILABLE: ; CARRY CLEAR ; REQUEST TYPE LEFT IN SEL0 ; ; OUTPUTS IF PORT WAS NOT AVAILABLE: ; CARRY SET ;- .ENABL LSB IPORT: TST 4(R0) ;;;IS WAIT Q EMPTY? BEQ 10$ ;;;IF EQ, YES - NOTHING TO DO PORT: CMPB #MAXBUF,COUNT(R0) ;;;CAN DMC ACCEPT MORE? BEQ 10$ ;;;IF EQ, NO - NO ACTION POSSIBLE ;;;NOTE-CARRY IS NOW CLEAR BIT #RDYI!RQI,(R4) ;;;IS PORT ALREADY IN USE? BNE 10$ ;;;IF NE, YES - NO ACTION POSSIBLE MOVB IOTYPE(R0),(R4) ;;;SET REQUEST TYPE AND RQI BR 20$ ;;; 10$: SEC ;;;INDICATE UNAVAILABILITY 20$: RETURN ;;; .DSABL LSB .IF DF R$$MPL ; ; ; ; CONTORLER ONLINE ENTRY POINT: ; ; ; ; THE OLRSR ROUTINE WILL ENTER THIS DRIVER AT THE XMKRB LABLE ; TO BRING THE DEVICE ONLINE OR OFFLINE. IF THE DEVICE IS ; COMMING ONLINE, THE UNIT IS MASTER CLEARED AND THE RUN BIT ; IS CLEARED. THE RUN BIT IS THEN TESTED. IF IT IS STILL SET, ; THE BS1 SWITCH IS TURNED ON WHICH MAKES IT IMPOSSIBLE TO DIABLE ; THE UNIT. THIS CONDITION IS NOT ALLOWED IN M+ AND THE ONLINE ; COMMAND WILL FAIL. IF THE DEVICE IS COMMING OFFLINE, A MASTER ; CLEAR IS ISSUED AND THE RUN BIT IS CLEARED. NO TEST IS ; NECESSARY. ; ; ; ; INPUTS: ; ; R2 = KRB ADDRESS ; R3 = CTB ADDRESS ; IZ004 ; CARRY BIT CLEARED IF DEVICE IS TO COME ONLINE ; IZ004 ; CARRY BIT SET IF DEVICE IS TO COME OFFLINE ;**-2 ; ; ; XMKRB: MOV #MC,@K.CSR(R2) ; MASTER CLEAR THE UNIT BIC #RUN,@K.CSR(R2) ; CLEAR THE RUN BIT BCS 1$ ; IF DEVICE IS COMMING OFFLINE THE RETURN BIT #RUN,@K.CSR(R2) ; ELSE TEST IF RUN BIT IS REALLY CLEARED. BEQ 1$ ; IF YES THE ALL IS WELL MOVB #IE.DNR&377,$SCERR ; ELSE THE RUN BIT BEING LOCKED ON MEANS ; IZ004 ; THAT THE BS1 SWITCH IS ON WHICH MEANS ; IZ004 ; THE THAT A DOWNLINE LOAD CAN NOT BE ;**-2 ; AVOIDED. WE DO NOT WANT THIS IN THIS ; THIS IN THE SYSTEM. 1$: RETURN ; GO BACK ; ; ; ; UNIT ONLINE - OFFLINE ENTRY POINT ; ; ; ; WHEN THE UNIT IS BROUGHT ONLINE THE OLRSR ROUTINE CALLS THE ; DRIVER AT THIS POINT WITH THE CARRY BIT CLEAR AND FOR OFFLINE ; WITH THE CARRY BIT SET. WHEN COMMING ONLINE THE UNIT IS ; SET UP USING THE DRIVER ROUTINE "SETDMC". WHEN THE UNIT IS ; OFFLINE A MASTER CLEAR IS ISSUED AND THE RUN BIT IS TURNED OFF. ; ; ; INPUTS: ; ; ; R3 = CONTROLLER INDEX ; R4 = SCB ADDRESS ; R5 = UCB ADDRESS ; ; ; OUTPUTS: ; ; ; NONE ; IZ004 ; ; IZ004 ; ; IZ004 XMUCB: ; I:Z004 BCC 3$ ; IF CC, THIS ONL REQUEST ; IZ004 1$: ; IZ004 MOV S.KRB(R4),R2 ; R2=KRB ADDRESS ; IZ004 MOV #MC,@K.CSR(R2) ; MASTER CLEAR THE UNIT ; IZ004 BIC #RUN,@K.CSR(R2) ; CLEAR THE RUN BIT ; IZ004 3$: RETURN ; GO BACK ; IZ004 .ENDC ; IZ004 .END ; IZ004 :ðskQ ›c, .TITLE CODRV .IDENT /02/ ; ; COPYRIGHT (c) 1981 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD ; MASSACHUSETTS. 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 COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO ; AND OWNERSHIP OF THE 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 THAT IS ; NOT SUPPLIED BY DIGITAL. ; ; ; STEVE RUZICH 03-SEP-80 ; ; CONSOLE DRIVER ; ; ; MACRO CALLS ; .MCALL ABODF$,HWDDF$,PKTDF$,TCBDF$,UCBDF$ ABODF$ ; DEFINE TASK ABORT CODES HWDDF$ ; DEFINE HARDWARE REGISTERS PKTDF$ ; DEFINE I/O PACKET OFFSETS TCBDF$ ; DEFINE TASK CONTROL BLOCK OFFSETS UCBDF$ ; DEFINE UCB OFFSETS ; ; DRIVER DISPATCH TABLE ; DDT$ CO,1,NONE ;+ ; **-COINI-CONSOLE DRIVER INITIATOR ; ; EXAMINE FUNCTION CODE. IO.WLB PACKETS ARE QUEUED TO COT'S PACKET ; QUEUE. THE TERMINAL DRIVER IS REQUESTED TO PROCESS ALL ELSE. ; ; INPUTS: R5 = UCB ADDRESS ; R4 = SCB ADDRESS ; R1 = I/O PACKET ADDRESS ; ;- COINI: CMPB I.FCN+1(R1),#IO.WLB/400 ; WRITE LOGICAL BLOCK FUNCTION? BNE 10$ ; NO - QUEUE TO TTDRV TST U.CTCB(R5) ; YES- COT WILL PUT ITS TCB ADDR HERE ; IF IT IS ACTIVE, ZERO ON EXIT. BEQ 10$ ; ZERO? - SOMEONE MUST HAVE REDIRECTED ; CO: TO ITSELF - QUEUE PACKET TO TTDRV MOV R5,R0 ; NON-ZERO - CONTINUE ADD #U.COTQ,R0 ; ADDRESS OF COT'S I/O PACKET QUEUE CALL $QINSP ; INSERT IN QUEUE BY PRIORITY MOV U.CTCB(R5),R0 ; COT'S TCB ADDRESS FOR REQUEST CALLR $EXRQN ; START COT 10$: MOV #IE.OFL&377,R0 ; IF ERROR, RETURN DEVICE OFFLINE CODE MOV U.RED2(R5),R2 ; IS THERE A DEFAULT CONSOLE TERMINAL? BEQ 20$ ; NO - FINISH I/O, RETURNING ERROR CODE MOV R2,R5 ; YES- SET UP TERMINAL UCB MOV R2,I.UCB(R1) ; I/O PACKET NEEDS THE RIGHT UCB, TOO. CALLR $DRQRQ ; QUEUE REQUEST TO THIS TERMINAL 20$: MOV R1,R3 ; PACKET ADDRESS FOR $IOFIN CLR R1 ; NO BYTES TRANSFERED. CALLR $IOFIN ; FINISH I/O ;+ ; **-COCAN-CANCEL I/O ENTRY POINT ; ; OUTSTANDING I/O PACKETS MAY BE SEVERAL PLACES: ; 1) IN COT'S UCB I/O PACKET QUEUE: DEQUEUE AND FINISH THESE PACKETS. ; 2) CURRENTLY BEING PROCESSED BY COT: ASSUME A QUICK FINISH AND IGNORE. ; 3) BEING PROCESSED BY TTDRV: CALL $IOKIL FOR TTDRV. ; ; THE LAST STEP HAS THE SIDE EFFECT OF KILLING ALL TERMINAL I/O FROM THE ; TASK, NOT JUST I/O WHICH CODRV FIELDED TO TTDRV. ; ; INPUTS: R5 = UCB ADDRESS ; R4 = SCB ADDRESS ; R1 = TCB ADDRESS ; ;- COCAN: MOV #IE.ABO&377,R0 ; SET FINAL STATUS TO ABORT MOV R5,R2 ; GET ADDRESS OF PACKET QUEUE LISTHEAD ADD #U.COTQ,R2 ; ; ; THE FOLLOWING CODE WAS MODIFIED FROM $IOKIL PROCESSING IN IOSUB. ; IT APPEARS THAT THE TCB ADDRESS WILL BE RETURNED AS WORD 2 OF IOSTAT. ; 10$: MOV R2,R3 ; COPY IT 20$: MOV R3,R4 ; SAVE ADDRESS OF CURRENT ENTRY MOV (R4),R3 ; GET ADDRESS OF NEXT ENTRY BEQ 40$ ; IF EQ END OF LIST CMP R1,I.TCB(R3) ; REQUEST FOR CURRENT TASK? BNE 20$ ; IF NE NO MOV (R3),(R4) ; CLOSE UP LIST BNE 30$ ; IF NE NO NEW LAST MOV R4,2(R2) ; SET ADDRESS OF NEW LAST 30$: CALL $IOFIN ; FINISH I/O REQUEST BR 10$ ; GO AGAIN 40$: MOV U.RED2(R5),R5 ; IS THERE A DEFAULT CONSOLE TERMINAL? BEQ EXIT ; NO - CONTINUE JMP $IOKIL ; YES- KILL ANY I/O WHICH CODRV MIGHT ; HAVE GIVEN TO TTDRV. ;+ ; **-COOUT - TIMEOUT ENTRY POINT ; ; COT SETS S.CTM, THE CURRENT TIMEOUT COUNT, WHEN IT CONTAINS A ; PARTIALLY FILLED LOGFILE BUFFER. WHEN THE COUNT EXPIRES, CODRV ; INFORMS COT THAT IT IS TIME TO FLUSH THIS BUFFER TO THE LOGFILE. ; ; H INPUTS: R5 = UCB ADDRESS ; R4 = SCB ADDRESS ; ;- COOUT: MOV U.CTCB(R5),R0 ; COT TCB, IF ACTIVE BEQ EXIT ; EQ = INACTIVE - DO NOTHING CALLR $EXRQN ; REQUEST COT WITH NO QUE ENTRY - ; THIS IS A CUE TO FLUSH THE BUFFER. EXIT: ; COMMON EXIT COPWF: RETURN ; ENTRY POINT FOR POWERFAIL .END H,KðskQ ›c, .TITLE LADRV .IDENT /V04.00/ ; ; DIGITAL EQUIPMENT CORP., MAYNARD MASS. ; ; COPYRIGHT (c) 1977, 1982 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU- ; SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY ; OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE ; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM ; AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND ; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. ; ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION V04.00 ; ; ; CHARLES A. SAMUELSON ; MICHAEL SCHWARTZ ; CLARK A. D'ELIA ; ; NOV. 22, 1977 ; ; MODIFIED BY: ; ; M. HARVEY SEPT. 28, 1978; JUNE 18, 1979 ; MSH012 22-BIT MODE MODIFICATIONS ; ; M. HARVEY OCT. 4, 1978 ; MSH014 ABORT LPA11 ALONG WITH USER IN CASE OF ; DEPLETED DYNAMIC STORAGE REGION ; ; M. HARVEY NOV. 13, 1978 ; MSH020 STOP AST'S FROM CLOBBERING IOSB ; ; M. HARVEY JAN. 5, 1979 ; MSH022 CONDITIONALIZE DRIVER SO IT WILL ; RUN UNDER RSX11M AND RSX11M+ ; ; TL061 -- RELOCATE THE RCL ADDRESS 6-JULY-80 ; ; TL062 -- USE THE ATTACHMENT DESCRIPTOR I/O COUNT ; FOR IO.INI 6-JULY-80 ; ; H. BERNSTEIN ; HB014 -- PUT I/O PACKET ADDRESS ON STACK BEFORE ; IOSB CHECK 8-SEPT-81 ; ; ; LPA11 LABORATORY PERIPHERAL ACCELERATOR CONTROLLER DRIVER ; ; ; ; ; MACRO LIBRARY CALLS ; .MCALL HWDDF$,PKTDF$,TCBDF$,UCBDF$,SCBDF$ HWDDF$ ;DEFINE HARDWARE REGISTERS PKTDF$ ;DEFINE I/O PACKET OFFSETS SCBDF$ ;DEFINE STATUS CONTROL BLOCK OFFSETS TCBDF$ ;DEFINE TASK CONTROL BLOCK OFFSETS UCBDF$ ;DEFINE UNIT CONTROL BLOCK OFFSETS ; ; QIO DIRECTIVE DESCRIPTIONS ; ; IO.LOD, ... , ; BUF - BUFFER OF MICRO - CODE TO LOAD ; BUFFER SIZE MUST BE 2048. BYTES ; ISSUEING TASK MUST BE PRIVILEGED ; VERIFIES NO ACTIVE USERS FOR LPA11 ; HARDWARE RESETS LPA11 ; LOADS AND VERIFIES MICRO - CODE ; STARTS LPA11 AND ENABLES INTERRUPTS ; RETURNS WHEN READY IN INTERRUPT IS POSTED ; THIS IS A TRANSFER FUNCTION-(THE QIO DOES ADDRESS ; CHECKS AND RELOCATES THE USER BUFFER) ; ; IO.INI, ... , ; BUF - BUFFER CONTAINING LPA11 INITIALIZE RDA ; BUFFER SIZE MUST BE AT LEAS 278. BYTES ; ISSUEING TASK MUST BE PRIVILEGED ; SENDS AN INITIALIZE COMMAND TO LPA11 ; ; IO.CLK, ... , ; MODE - LPA11 CLOCK START MODE WORD ; CKCSR - IMAGE TO WRITE INTO LPA11 REAL TIME CLOCK CONTROL REGISTER ; PRESET - IMAGE TO WRITE INTO LPA11 REAL TIME CLOCK PRESET BUFFER REGISTER ; ISSUES AN LPA11 CLOCK START COMMAND ; ; IO.STA, ... , ; BUF - POINTER TO LPA11 SAMPLE START RDA ; BUFFER SIZE MUST BE AT LEAST 40. BYTES ; ISSUES AN LPA11 DATA TRANSFER START COMMAND ; THIS IS A TRANSFER FUNCTION-(THE QIO DOES ADDRESS ; CHECKS AND RELOCATES THE USER BUFFER) ; ; SUBFUNCTION CODE DIFFINTIONS FOR IO.STA ; ; BIT 0 = 0 GIVE AST FOR EVERY BUFFER IF AST SPECIFIED ; BIT 0 = 1 GIVE AST ONLY FOR EXCEPTION CONDITIONS ; ; ; IO.STP, ... , ; ; CALL MUST SUPPLY LUN ; USERID - USER INDEX NUMBER <0-7> TO STOP ; STOPPING TASK MUST BE THE SAME AS STARTING TASK ; ; ; DEFAULT UIC OF LOADER TASK = [1,1] ; TUIC=401 ;DEFAULT UIC OF LOADER TASK ; ; ; ; ASSEMBLY CONDITIONALS ; ; M$$MGE ;MEMORY MANAGEMENT ; A$$CHCK ;ADDRESS CHECK ; A$$TRP ;AST SUPPORT ; M$$EXT ;22 BIT 11/70 EXT MEM. ; M$$PRO ;MULTI-PROCESSOR SUPPORT ; R$$MPL ;RSX-11M PLUS SUPPORT ; ; ; ; DRIVER DISPATCH TABLE ; .IF NDF R$$MPL DDT$ LA,L$$A11,,, .IFF DDT$ LA,L$$A11,,,, .ENDC ; .IF GT L$$A11-1 ; TEMP: .BLKW 1 ;TEMP STORAGE FOR CONT. NUM. ; .ENDC ; ; .PAGE .SBTTL ONLINE/OFFLINE ENTRY POINTS ; ; CONTROLLER STATUS CHANGE ROUTINE ; ; INPUTS: R2 = KRB ADDRESS ; ; C = 0 ,BRING CONTROLLER ONLINE ; C = 1 ,TAKE CONTROLLER OFFLINE ; ; OUTPUTS: $SCERR= UNCHANGED FOR SUCCESS ; = ERROR CODE FOR FAILURE ; ; ; THE LPA11-K IS BOTH A UNIT AND ITS OWN CONTROLLER. ALL ; THE REAL WORK WILL BE DONE AT THE UNIT ONLINE/OFFLINE ENTRY POINT. ; .IF DF R$$MPL LAKRB: RETURN ;ALWAYS SUCCESSFUL ;;;;;;;; ; ; UNIT STATUS CHANGE ROUTINE ; ; INPUTS: R3 = CONTROLLER INDEX ; R4 = SCB POINTER ; R5 = UCB POINTER ; ; C = 0 ,BRING UNIT ONLINE ; C = 1 ,TAKE UNIT OFFLINE ; ; OUTPUTS: $SCERR= UNCHANGED FOR SUCCESS ; = ERROR CODE FOR FAILURE ; ; LAUCB: BCS 100$ CALLR LAPWF ;BRING UNIT ONLINE 100$: TST S.PKT(R4) ;ANYONE ACTIVE? BNE 200$ ;YES, BRANCH MOV #U.LAUT,R0 ;POINT TO ACTIVE USER TABLE ADD R5,R0 ; IN THE UCB MOV #8.,R2 ;MAXIMUM OF 8. USERS 110$: TST (R0)+ ;THIS USER ACTIVE? BNE 200$ ;YES, BRANCH DEC R2 ;DECREMENT COUNTER BGT 110$ ;TRY THE NEXT USER MTPS S.PRI(R4) ;;; LOCK OUT INTERRUPTS MOV #40000,@S.CSR(R4) ;;; HARDWARE RESET LPA11-K MTPS #0 ;;; ALLOW INTERRUPTS RETURN ;LPA11-K READY FOR OFFLINE 200$: MOVB #IE.RSU&377,$SCERR ;RESOURCE IN USE ERROR RETURN ;NO OFFLINE YET .ENDC .PAGE .SBTTL LPA11 DRIVER I/O INITIATOR ENTRY POINT - LAINI -** ; ; THIS ROUTINE IS ENTERED FROM THE QUEUE I/O DIRECTIVE WHEN AN I/O REQUEST ; IS RECEIVED FOR THE LPA11 LABORATORY PERIPHERAL ACCELERATOR. FIVE ; FUNCTIONS ARE RECOGNIZED BY THE LPA11 DRIVER. SPECIAL USER BUFFERS ; ARE ADDRESS CHECKED WHERE NECESSARY. ERROR FREE REQUESTS ARE PLACED ; IN THE I/O QUEUE THAT IS MAINTAINED BY THE DRIVER. ; ; ADDRESS CHECKING FOR THE USER'S DBP BUFFER IS DONE IN THE QIO ROUTINE ; BEFORE THIS DRIVER IS CALLED. ; ; INPUTS: ; ; R1=ADDRESS OF I/O REQUEST PACKET ; R4=ADDRESS OF STATUS CONTROL BLOCK ; R5=ADDRESS OF THE UCB OF THE CONTROLLER TO BE INITIATED ; ; OUTPUTS: ; ; A QUEUED I/O PACKET WITH USER BUFFERS ADDRESS CHECKED AND ; RELOCATED. PACKET MAY BE DEQUEUED WHEN $GTPKT IS CALLED IF ; IT IS THE ONLY PACKET IN THE QUEUE. ; ; FUNCTION INDEPENDENT I/O REQUEST PACKET FORMAT: ; ; WD. 00 -- I/O QUEUE THREAD WORD. ; WD. 01 -- REQUEST PRIORITY, EVENT FLAG NUMBER ; WD. 02 -- ADDRESS OF THE TCB OF REQUESTER TASK ; WD. 03 -- POINTER TO SECOND LUN WORD IN REQUESTER TASK HEADER ; WD. 04 -- CONTENTS OF THE FIRST LUN WORD IN REQUESTER TASK HEADER ; WD. 05 -- I/O FUNCTION CODE ; WD. 06 -- VIRTUAL ADDRESS OF I/O STATUS BLOCK ; WD. 07 -- RELOCATION BIAS OF I/O STATUS BLOCK ; WD. 10 -- I/O STATUS BLOCK ADDRESS (READ OR DISPLACEMENT+140000) ; WD. 11 -- VIRTUAL ADDRESS OF AST SERVICE ROUTINE. ; ; ; ; THE I/O PACKET PARAMETER LIST IS USED BY THE DRIVER TO STORE ; INFORMATION REGARDING THE REQUEST. ; THIS INFORMATION IS CALCULATED AS THE REQUEST IS PROCESSED. ; CONVENTIONS FOR I/O PACKET PARAMETER LIST USEAGE ARE: ; ; ; WD. 12 - I.PRM -FIRST PARAMETER SUPPLIED BY ISSUEING TASKS QIO ; WD. 13 - I.PRM+2 -SECOND PARAMETER SUPPLIED BY ISSUEING TASKS QIO ; WD. 14 - I.PRM+4 -THIRD PARAMETER SUPPLIED BY ISSUEING TASKS QIO ; WD. 15 - I.PRM+6 -LOW ORDER 16 BITS OF PHYSICAL ADDRESS OF REQUEST RDA ; WD. 16 - I.PRM+10-HIGH ORDER 2 BITS OF PHYSICAL ADDRESS OF REQEUST RDA ; WD. 17 - I.PRM+12-EVENT FLAG MASK FOR CONTINUING DATA TRANSFER REQUEST ; WD. 20 - I.PRM+14-EVENT FLAG ADDRESS ; WD. 21 - I.PRM+16-RESERVED FOR RSX-11M ; ; ; LAINI: MOV R1,-(SP) ;SAVE I/O PACKET ADDRESS ;HB014 TST I.IOSB+4(R1) ;IOSB SUPPLIED? ;**-1 BEQ ELABAD ;NO, BAD PARAMETERS ERR MOV I.FCN(R1),R3 ;I/O FUNCTION CODE ;**-1 BIC #377,R3 ;CLEAR LOW BYTE CMP #IO.INI,R3 ;INITIALIZE REQUEST? BNE 5$ ;NO, CONTINUE JMP LAINIT ;YES 5$: CMP #IO.CLK,R3 ;CLOCK START REQUEST? BNE 15$ ;NO, CONTINUE JMP LACLOK ;YES 15$: CMP #IO.STP,R3 ;STOP REQUEST? BNE 2$ ;NO JMP LASTOP ;YES ; ; IT IS EITHER A LOAD MICRO-CODE REQUEST OR A START DATA TRANSFER REQEUST ; COPY USER BUFFER POINTERS SO $GTWRD WILL OPERATE ; 2$: MOV I.PRM(R1),U.BUF(R5) ;RELOCATION BIAS MOV I.PRM+2(R1),U.BUF+2(R5) ;OFFSET CMP #IO.STA,R3 ;START? BNE 3$ ;NO JMP LASTRT ;YES 3$: CMP #IO.LOD,R3 ;LOAD MICRO-CODE? BNE ELAIFC ;NO, ILLEGAL FUNCTION JMP LALOAD ;YES, JMP TO LOAD ; ; ; ******************************************* ; ; ** - ERROR HANDLING PATHS FOR LADRV - INITIATOR ENTRY ONLY ; INTERRUPT ROUTINES AND OTHER ENTRY POINTS REPORT THEIR OWN ERRORS ; ; ELAIFC: MOV #IE.IFC&377,R0 ;ILLEGAL FUNCTION ERROR BR EROR ;FINISH ERROR HANDLING ; ELAPRI: MOV #IE.PRI&377,R0 ;PRIVILEGE ERROR BR EROR ; ELASPC: MOV #IE.SPC&377,R0 ;USER BUFFER ADDR CHECK ERROR BR EROR ; ELABCC: MOV #IE.BCC&377,R0 ;LOAD ERROR FOR MICRO-CODE BR EROR ;EXIT ; ELARSU: MOV #IE.RSU&377,R0 ;RESOURCE IN USE - CANNOT INITIALIZE BR EROR ; ELANOD: MOV #IE.NOD&377,R0 ;SYSTEM DYNAMIC MEMORY EXHAUSTED BR EROR ; ELABAD: MOV #IE.BAD&377,R0 ;BAD PARAMETERS ; EROR: MOV (SP)+,R3 ;ERROR ENCOUNTERED CLR R1 ;SET UP IOSB WORD 2 CALLR $IOFIN ;I/O COMPLETION ; ; ELAPR2: MOV #IE.PRI&377,R0 ;PRIVILEGE ERROR BR ERORGT ; ELASP2: MOV #IE.SPC&377,R0 ;USER BUFF ADDR CHECK ERROR ; ERORGT: MOV (SP)+,R3 CLR R1 CALL $IOFIN BR GETPKT ; ; ******************************************* ; .PAGE .SBTTL RETREIVE I/O PACKET AND ISSUE REQUEST TO LPA-11 ; ; INSERT PACKET IN I/O QUEUE ; THE DRIVER WAS ENTERED BEFORE THE PACKET WAS QUEUED ; NOW WE PUT IT IN THE QUEUE AND GO TO $GTPKT ; QUEPKT: ;QUEUE AN I/O PACKET FOR THE DRIVER MOV (SP)+,R1 ;GET ADDRESS OF PACKET MOV R4,R0 ;SCB ADDRESS OF CONTROLLER TO INSERT PACKET INTO CLR I.PRM+16(R1) ;INITIALIZE FLAG WORD CALL $QINSP ;INSERT IN QUEUE ;AND FALL THROUGH TO $GTPKT ; ; TRY TO RETREIVE AN I/O PACKET AND TRANSMITT TO LPA11 ; GETPKT: ; ; BEFORE WE DEALLOCATE A NEW REQUEST FROM THE CONTROLLERS I/O QUEUE, ; TRY AND FETCH A STOP REQUEST FROM THE STOP REQUEST QUEUE ; MOV U.SCB(R5),R4 ;POINT TO SCB TSTB S.STS(R4) ;CONTOLLER BUSY? BEQ 198$ JMP 14$ ;YES, GO AWAY 198$: MOV U.LASL(R5),R1 ;LOOK AT STOP QUEUE BEQ 200$ ;EMPTY, TRY $GTPKT MOV (R1),U.LASL(R5) ;NEW FIRST ENTRY INCB S.STS(R4) ;SET CONTOLER BUSY BISB #US.BSY,U.STS(R5) ;SET UNIT BUSY MOV R1,S.PKT(R4) ;SET CURRENT I/O PACKET ADDRESS MOVB S.CON(R4),R3 ;MOVE CONTROLLER INDEX TO R3 .IF DF M$$PRO CALL $CFORK ;WE MUST RUN ON CORRECT PROCESSOR .ENDC BR 210$ ;GIVE REQUEST TO LPA11 ; ; TRY AND RETREIVE AN I/O PACKET FROM THE CONTROLLERS I/O QUEUE ; ; 200$: CALL $GTPKT BCS 14$ 210$: MOV R5,UCBSV(R3) ;SAVE UCB PTR. FOR INT ROUTINE BICB #US.MDM,U.STS(R5) ;CLEAR ABORT CURRENT REQUEST FLAG CMP #IO.LOD,I.FCN(R1) ;A LOAD MICROCODE FUNCTION? BNE 220$ MOVB S.ITM(R4),S.CTM(R4) ;SET DEVICE TIMEOUT COUNT BR 12$ 220$: .IF DF M$$EXT CMP #IO.INI,I.FCN(R1) ;INITIALIZE RDA? BNE 222$ ;NO, BRANCH MOV #139.*2,U.CNT(R5) ;LENGTH OF RDA TO BE MAPPED MOV I.PRM+6(R1),U.BUF+2(R5) ;LOW 16 BITS OF RDA ADDRESS MOVB I.PRM+10(R1),U.BUF+1(R5) ;HIGH 6 BITS OF RDA ADDRESS CALL MAP ;GO MAP UMR'S MOV M.UMVL(R3),I.PRM+6(R1) ;LOW 16 BITS OF UMR VIRTUAL ADDRESS MOVB M.UMVH(R3),I.PRM+10(R1) ;HIGH 2 BITS (IN BITS 4 AND 5) ASR I.PRM+10(R1) ;MOVE THOSE ADDRESS BITS ASR I.PRM+10(R1) ; TO BITS 2 AND 3 BR 250$ 222$: CMP #IO.STA,I.FCN(R1) ;START I/O FUNCTION? BNE 250$ ;NO, BRANCH TST I.PRM+16(R1) ;ANY UMR'S MAPPED? BNE 250$ ;YES, START CONVERTED TO STOP PACKET MOV I.PRM+2(R1),U.CNT(R5) ;LENGTH OF MAPPED REGION MOV I.PRM+6(R1),R2 ;GET RDA ADDRESS MOV 4(R2),U.BUF+2(R5) ;USW LOW 16 BITS MOVB 6(R2),U.BUF+1(R5) ;USW HIGH 2 BITS CALL MAP ;GO MAP UMR'S MOV R5,-(SP) ;SAVE UCB POINTER ADD #4,R2 ;POINT TO USW IN RDA MOV M.UMVL(R3),(R2)+ ;POINT LPA TO MAPPED USW MOVB M.UMVH(R3),R5 ;GET USW HIGH 2 BITS ;MSH012 BIC #^C<377>,R5 ;CLEAR HIGH BYTE ;MSH012 ASRB R5 ;MOVE TO BITS 0 AND 1 ;MSH012 ASRB R5 ;MSH012 ASRB R5 ;MSH012 ASRB R5 ;MSH012 MOVB R5,(R2)+ ;STORE INTO RDA ;MSH012 MOVB (R2)+,R0 ;GET VALID BUFFER MASK ;**-5 BIC #^C<7>,R0 ;ISOLATE MASK BITS 225$: ADD M.UMVL(R3),(R2)+ ;ADD UMR BASE ADDRESS LOW BITS ;**-1 ADC (R2) ;DONT FORGET THE CARRY ADD R5,(R2)+ ;ADD UMR BASE ADDRESS HI 2 BITS DEC R0 BGE 225$ ;BRANCH IF NOT DONE ;TL061 MOV I.PRM+6(R1),R2 ;GET THE RDA ADDRESS ;TL061 ADD #50,R2 ;INDEX TO RCL ADDRESS ;TL061 ADD M.UMVL(R3),(R2)+ ;ADD UMR BASE ADDRESS LOW BITS ;TL061 ADC (R2) ;DONT FORGET THE CARRY ;TL061 ADD R5,(R2) ;ADD THE HIGH BITS ;TL061 ;TL061 MOV (SP)+,R5 ;RESTORE UCB POINTER 250$: .ENDC MOVB S.ITM(R4),S.CTM(R4) ;SET DEVICE TIMEOUT COUNT MOV S.CSR(R4),R0 ;GET DEVICE CSR ADDRESS MOV I.PRM+6(R1),4(R0) ;SET LOW 16 BITS OF RDA ADDRESS BIC #14,(R0) ;CLEAR PREVIOUS EXTENDED ADDRESS BITS MOV I.PRM+10(R1),R2 INC R2 ;SET GO BIT BIS R2,(R0) ;GIVE TO LPA 12$: RETURN ; ; THERE IS NOTHING TO DO FOR THIS UNIT ; CHECK TO SEE IF ANY DYNAMIC STOREAGE NEEDS TO BE DEALLOCATED ; 14$: TST (R4) ;BECAUSE I/O LIST IS EMPTY? BNE 12$ ;NO, JUST EXIT 16$: MOV U.LADS(R5),R0 ;ANY DSR ALLOCATED? BEQ 12$ ;NO, EXIT MOV (R0),U.LADS(R5) ;YES, REMOVE THIS PACKET AND POINT TO NEXT MOV #30.*2,R1 ;DEALLOCATE 30. WORDS CALL $DEACB ;DEALLOCATE BUFFER BR 16$ ;CONTINUE TILL NONE LEFT .PAGE ; ; THIS SUBROUTINE SETS UP THE UNIBUS MAPPING REGISTERS NEEDED ; TO MAP THIS USER'S REQUEST WITH THE FOLLOWING STEPS: ; ; - GET A WORK BLOCK FROM POOL TO USE AS A MAPPING BLOCK ; - SET UP THE MAPPING BLOCK BY REQUESTING UMRS FROM EXEC ; - MAKE SURE WE ARE UNDER THE SYSGEN DEFINED LIMIT ; - LOAD THE UMRS ; ; .IF DF M$$EXT MAP: MOV (SP),-(SP) ;RESERVE A WORD AT TOP OF STACK MOV R1,-(SP) ;SAVE PACKET POINTER MOV R2,-(SP) ;SAVE R2 MOV R5,-(SP) ;SAVE UCB POINTER MOV #20.,R1 ;GET 10. WORDS CALL $ALOCB ; FROM POOL BCC 10$ ;BRANCH IF SUCCESSFUL MOV #IE.NOD&377,-(SP) ;SET ERROR CODE BR 15$ 10$: MOV 4(SP),R3 ;GET PACKET POINTER MOV R0,I.PRM+4(R3) ;STORE POINTER TO NEW BLOCK MOV (SP),R5 ;GET UCB POINTER MOV U.SCB(R5),R4 ;GET SCB POINTER CLR (R0) ;INITIALIZE CONTEXT SAVE WORD CALL $STMP1 ;SET UP THE UMR'S MOV (SP)+,10(SP) ;MOVE DQUMR POINTER TO TOP OF STACK TST -10(R0) ;WERE WE BLOCKED BY EXEC? BNE 12$ ;YES, REPORT IT MOV M.UMRN(R0),R3 ;GET NUMBER OF UMR'S*4 ASR R3 ;GET NUMBER OF UMR'S ASR R3 SUB R3,U.LAUB+2(R5) ;SUBTRACT FROM TOTAL AVAILABLE BGE 20$ ;BRANCH IF ALL THERE ADD R3,U.LAUB+2(R5) ;RESTORE TOTAL VALUE MOV #IE.DUN&377,-(SP) ;SET ERROR CODE BR 13$ 12$: MOV #IE.BLK&377,-(SP) ;EXEC BLOCKED DRIVER FOR UMRS 13$: MOV R0,R2 ;COPY MAPPING BLOCK POINTER CALL $DEUMR ;DEALLOCATE THE UMR'S SUB #10,R0 ;POINT TO START OF WORK BLOCK MOV #20.,R1 ;10. WORDS LONG CALL $DEACB ;RETURN BLOCK TO POOL 15$: MOV (SP)+,R0 ;POP ERROR CODE MOV (SP)+,R5 ;RESTORE UCB POINTER MOV U.SCB(R5),R4 ;RESTORE SCB POINTER MOV (SP)+,R2 ;RESTORE R2 MOV (SP)+,2(SP) ;MOV PACKET POINTER OVER RETURN ADDR TST (SP)+ ;CLEAN STACK CLR S.PKT(R4) ;CLEAR CURRENT PACKET POINTER CLRB S.STS(R4) ;MARK CONTROLLER NOT BUSY BICB #US.BSY,U.STS(R5) ;MARK UNIT NOT BUSY JMP EROR 20$: MOV R0,R3 ;COPY POINTER TO MAPPING BLOCK MOV (SP)+,R5 ;GET UCB POINTER MOV U.SCB(R5),R4 ;GET SCB POINTER CALL $MPUB1 ;LOAD THE UMR'S MOV (SP)+,R2 ;RESTORE R2 MOV (SP)+,R1 ;RESTORE THE PACKET POINTER MOV #1,I.PRM+16(R1) ;MARK MAPPED RETURN .ENDC .PAGE .SBTTL DEVICE INITIALIZE REQUEST ; ; ; ***** PROCESS AN INITIALIZE REQUEST FOR LPA11 ************* ; ; FUNCTION DEPENDENT I/O REQUEST PACKET FORMAT: ; ; WD. 12 -- VIRTUAL ADDRESS OF RDA BUFFER FOR INITIALIZATION ; WD. 13 -- LENGTH IN BYTES OF THE INIT RDA BUFFER ; WD. 14 -- NOT USED ; WD. 15 -- LOW ORDER 16 BITS OF PHYSICAL RDA ADDR ; WD. 16 -- HIGH ORDER 2 BITS OF PHYSICAL RDA ADDR-BIT POS. 3 AND 2 ; WD. 17 -- NOT USED ; WD. 20 -- NOT USED ; ; RDA FORMAT FOR INITIALIZATION COMMAND ; ; WD. 00 -- MODE WORD-CONTAINS MICROCODE VERSION NO. AND ; INITIALIZE CODE (000) ; WD. 01 THRU 12 -- DEVICE ADDRESSES ON THE I/O BUS ; ; REMAINDER OF BUFFER IS THE DEDICATED MODE DISPATCH TABLE ; WHICH IS A TABLE OF CONSTANTS REQUIRED FOR DEDICATED MODE ; PROCESS AN INITIALIZE REQUEST FOR LPA11 ; LAINIT: CMP I.PRM+2(R1),#139.*2 ;MUST SPECIFY AT LEAST 139. WORDS BHIS 10$ JMP ELASPC ;ERROR, RDA TOO SHORT ; ; INITIALIZING TASK MUST BE PRIVILEGED!!! ; 10$: MOV I.TCB(R1),R0 ;GET TCB OF REQUESTOR TASK BIT #T3.PRV,T.ST3(R0) ;TASK PRIVILEGED? BNE 15$ JMP ELAPRI ;NO, ERROR 15$: MOV I.PRM(R1),R0 ;ADDRESS OF RDA .IF DF A$$CHK!M$$MGE MOV #139.*2,R1 ;LENGTH OF INIT RDA IN BYTES CALL $ACHCK ;CALL ADDR CHECK ROUTINE BCC 20$ JMP ELASPC ;ERROR RETURNED ;TL062 .IF DF R$$MPL ;TL062 ;TL062 ; ;TL062 ; THIS IS HERE BECAUSE IO.INI IS MARKED AS A CONTROL FUNCTION IN THE DCB;TL062 ; EVEN THOUGH IT IS REALLY A TRANSFER FUNCTION. THAT WAS DONE TO GET ;TL062 ; THE RDA ADDRESS IN THE CORRECT FORM. ;TL062 ; M DOESNT NEED THIS BECAUSE A TASK IS NOT CHECKPOINTABLE OR SHUFFLEABLE;TL062 ; IF T.IOC <> 0, AND COMMONS DONT MOVE. ;TL062 ; ;TL062 MOV W.BATT(R2),R2 ;POINT TO ATTACHMENT DESC OF BUF;TL062 INCB A.IOC(R2) ;INCREMENT I/O COUNT ;TL062 MOV (SP),R3 ;POINT R3 TO I/O PACKET ;TL062 MOV R2,I.AADA(R3) ;STORE ATT DESC ADDR SO $IOFIN ;TL062 ;WILL DECREMENT THE I/O COUNT ;TL062 ;TL062 ;TL062 .ENDC ;TL062 ;TL062 20$: .ENDC CALL CVTP ;CONVERT RDA ADDRESS TO PHYSICAL ADDRESS MOV (SP),R3 ;POINT R3 TO I/O PACKET MOV R1,I.PRM+6(R3) ;SAVE LOW ORDER 16 BITS OF PHYSICAL RDA ADDRESS .IF DF M$$EXT ASR R2 ;RIGHT JUSTIFY THE ADDRESS BITS ASR R2 .ENDC MOV R2,I.PRM+10(R3) ;AND HIGH ORDER 2 BITS JMP QUEPKT ;INSERT PACKET IN I/O QUEUE .PAGE .SBTTL PROCESS CLOCK START RDA ; ; ; ; ***** PROCESS LPA11-K REAL TIME CLOCK START RDA ********* ; ; FUNCTION DEPENDENT I/O REQUEST PACKET FORMAT: ; ; WD. 12 -- CLOCK START MODE WORD ; CONTAINS CLO CK ID (A OR B) AND CLO CK START CODE ; WD. 13 -- CLOCK STATUS WORD ; WD. 14 -- CLOCK PRESET WORD ; WD. 15 -- LOW ORDER 16 BITS OF RDA ADDRESS ; WD. 16 -- HIGH ORDER 2 BITS-ALWAYS ZERO FOR THIS FUNCTION BECAUSE ; THE RDA IS IN THE I/O PACKET ITSELF WHICH RESIDES IN ; KERNEL ADDRESS SPACE ; WD. 17 -- NOT USED ; WD. 20 -- NOT USED ; ; ; RDA FOR CLOCK START COMMAND IS 1ST 3 PARAMETER WORDS IN IO PACKET ; LACLOK: MOV I.PRM(R1),R0 ; INSURE THIS IS A CLOCK START BIC #^C<7>,R0 ;ISOLATE LOW THREE BITS DEC R0 ;IF A CLOCK START,SHOULD GO FROM 1 TO 0 BEQ 5$ ;YES, LEGAL CLOCK START JMP ELABAD ;NO, BAD PARAMETERS ERROR 5$: MOV R1,I.PRM+6(R1) ;MAKE I/O PACKET A CLOCK START RDA ADD #I.PRM,I.PRM+6(R1) ;POINT RDA ADDRESS TO IT CLR I.PRM+10(R1) ;KERNAL MODE IS PHYSICAL ADDRESS JMP QUEPKT ; ; ; .PAGE .SBTTL LOAD MICRO CODE ; ; ******* FUNCTION TO LOAD MICRO CODE *************** ; ALSO DOES A HARDWARE INITIALIZE AND START UP OF LPA11 ; ; FUNCTION DEPENDENT I/O REQUEST PACKET FORMAT: ; ; WD. 12 -- 16 BIT RELOCATION BIAS ; WD. 13 -- OFFSET ; WD. 14 -- LENGTH IN BYTES OF MICRO-CODE ; WD. 15 -- NOT USED ; WD. 16 -- NOT USED ; WD. 17 -- NOT USED ; WD. 20 -- NOT USED ; ; ***** THERE IS NO RDA FOR THE LOAD COMMAND ******* ; LALOAD: CMP I.PRM+4(R1),#1024.*2 ;MUST LOAD EXACTLY 1024 MICRO INSTRUCTIONS BEQ 5$ ;PROPER NUMBER, CONITNUE JMP ELASPC ;ERROR - INCORRECT NUMBER OF BYTES IN BUFFER ; ; LOADING TASK MUST BE PRIVILEGED!! ; 5$: MOV I.TCB(R1),R2 ;ISSUEING TASK MUST BE PRIVILEGED! BIT #T3.PRV,T.ST3(R2) ;TASK PRIVILEGED? BNE 10$ ;YES, CONTINUE JMP ELAPRI ;NO, ERROR ; ; CHECK TO MAKE SURE THERE ARE NOT ACTIVE USERS ; WE DON'T WANT TO DO A HARDWARE RESET FOR THE POOR GUY! ; 10$: TST S.PKT(R4) ;ANYONE ACTIVE? BEQ 15$ ;NO, OKAY SO FAR 12$: JMP ELARSU ;YES, ERROR 15$: MOV #U.LAUT,R0 ;POINT TO ACTIVE USER TABLE ADD R5,R0 ;IN UCB MOV #8.,R2 20$: TST (R0)+ ;A USER HERE? BNE 12$ ;YES, RESOURCE IN USE ERROR DEC R2 ;END OF LIST? BGT 20$ ;NO CONTINUE ; ; HARDWARE RESET LPA11-K ; .IF DF M$$PRO CALL $CFORK ;CORRECT PROCESSOR .ENDC MTPS S.PRI(R4) ;;;GO TO PRIORITY OF DEVICE MOV #40000,@S.CSR(R4) ;;;RESET MTPS #0 ;;;RESET PRIORITY ; ; GET 1024 WORDS FROM USER BUFFER AND LOAD INTO MICRO PROCESSOR ; CHECK EACH WORD LOADED TO VERIFY ; CLR R0 ;R0 IS ADDRESS TO LOAD INTO MOV S.CSR(R4),R1 ;POINT R1 TO DEVICE CSR 22$: CALL $GTWRD ;GET WORD FROM USER BUFFER CLR (R1) ;CLEAR CSR MOV R0,4(R1) ;SET CRAM ADDRESS MOV (SP),6(R1) ;CRAM CONTENTS MOV #2000,(R1) ;SELECT ADDRESS BIS #20000,(R1) ;WRITE CRAM CLR (R1) ;RESET ; ; NOW VERIFY THAT IT IS THERE FOR GRINNS ; MOV R0,4(R1) ;CRAM ADDRESS MOV #2000,(R1) ;SELECT CRAM AT ADDRESS CMP (SP)+,6(R1) ;DATA EQUAL BEQ 26$ ; YES,OK JMP ELABCC ;NO, LOAD ERROR FOR MICRO-CODE 26$: INC R0 ;NEXT WORD CMP R0,#1024. ;END OF WCS? BLT 22$ ;NOT YET MOV #104000,(R1) ;SET RUN AND ENABLE ARBITRATION .REPT 5 NOP ;WAIT FOR THINGS TO GET GOING .ENDR BIS #100,(R1)+ ;SET INTERRUPT ENABLE FOR READY IN BIS #100,(R1) ;SET INTERRUPT ENABLE FOR READY OUT JMP QUEPKT ; ; .PAGE .SBTTL STOP LPA11 ACTIVE REQUEST ; ; ****** ISSUE A STOP RDA COMMAND TO LPA11-K ********** ; ; FUNCTION DEPENDENT I/O REQUEST PACKET FORMAT ; ; WD. 12 -- USER INDEX TO STOP ; WORDS 13 THRU 20 NOT USED ; ; THE STOP QIO MUST CONTAIN A LUN (POINT TO CORRECT CONTROLLER) ; ROUTINE USES TCB ADDRESS TO ESTABLISH UNIQUENESS OF REQUEST ; TO STOP. ; ; ******** NOTE !!! THIS STOP PACKET IS IMMEDIATELY DEALLOCATED. THE ; ORIGINAL START PACKET WAS CONVERTED INTO A STOP PACKET IN THE READY ; OUT INT. ROUTINE, AFTER THE START REQUEST WAS ACCEPTED. IT IS THAT ; PACKET THAT GETS QUEUED FOR THE STOP REQUEST. ; ; LASTOP: MOV I.PRM(R1),R0 ;PARAM IS USER INDEX TO STOP BIC #^C<7>,R0 ;INSURE INDEX FROM 0-7 ASL R0 ;MAKE INTO A WORD INDEX ADD R5,R0 ;POINT TO UCB+INDEX MOV U.LAUT(R0),R1 ;GET PACKET PTR OF START BEQ 40$ ;USER NOT ACTIVE MOV (SP),R3 ;GET PACKET PTR OF STOP ; CMP I.TCB(R3),I.TCB(R1) ;STOP TASK SAME AS START TASK? BNE 40$ ;NO, NOT THIS USER CLR U.LAUT(R0) ;CLEAR TABLE ENTRY SO WE WON'T BE HERE AGAIN ;THIS USER MATCHES!!!! ; ; INSERT THE STOP PACKET INTO THE STOP QUEUE FOR THE LPA11 ; A SEPARATE I/O QUEUE IS MAINTAINED BY THE DRIVER FOR STOP FUNCTIONS ; MOV U.LASL(R5),(R1) ;INSERT NEXT ENTRY POINTER INTO CURRENT POINTER MOV R1,U.LASL(R5) ;POINT STOP QUEUE TO THIS ENTRY ; CLR R0 ;STATUS IS REQEUST PENDING 36$: MOV (SP)+,R3 ;ADDRESS OF "STOP" PACKET CLR R1 ;IOSB(2) IS ZERO CALL $IOFIN ;DEALLOCATE STOP COMMAND PACKET JMP GETPKT ;LOOK FOR SOMETHING TO DO ; 40$: MOV #1,R0 ;USER NOT ACTIVE BR 36$ ; ; .PAGE .SBTTL PROCESS START DATA TRANSFER REQUEST ; ; ***** PROCESS START DATA TRANSFER RDA ************** ; ; ADDRESS CHECKING AND RELOCATION OF USER DATA BUFFERS IS DONE HERE ; (BEFORE THE I/O PACKET IS QUEUED) ; ; FUNCTION DEPENDENT I/O REQUEST PACKET FORMAT: ; ; WD. 12 -- RELOCATION BIAS OF ADDR OF INPUT RDA BUFFER ; WD. 13 -- INPUT RDA ADDRESS OFFSET ; WD. 14 -- LENGTH OF INPUT RDA IN BYTES ; WD. 15 -- LOW ORDER 16 BITS OF PHYSICAL RDA ADDRESS ; WD. 16 -- HIGH ORDER 2 BITS - ALWAYS ZERO FOR THIS FUNCTION ; BECAUSE THE "REAL" RDA BUFFER IS DYNAMICALLY ; ALLOCATED IN SYSTEM DYNAMIC MEMORY IE. IN KERNEL ; ADDRESS SPACE. ; WD. 17 -- EVENT FLAG MASK ; WD. 20 -- EVENT FLAG ADDRESS ; WD. 21 -- RESERVED FOR RSX-11M ; ; ***** NOTE !!! ; ONCE THE 1ST TWO I.PRM WORDS HAVE BEEN MOVED FROM THE I/O ; PACKET TO THE UCB (FOR USE BY $GTWRD), THESE LOCATIONS ARE ; NO LONGER NEEDED FOR THE INPUT RDA ADDRESS AND ARE FREE FOR ; OTHER USEFUL DATA. THIS ROUTINE STORES THE FOLLOWING INFORMATION ; IN THESE TWO WORDS: ; ; WD. 12 -- I.PRM+0-BUFFER WORD COUNT ; WD. 13 -- I.PRM+2-#WORDS TO BE MAPPED BY UMR'S (22-BIT MODE ONLY) ; ; THE READY OUT ROUTINE STORES THE FOLLOWING INFORMATION IN THE ; SECOND OF THESE TWO WORDS: ; ; WD. 13 -- I.PRM+2 - THE STOP RDA ITSELF ; ; WHEN THE UMR'S HAVE TO BE MAPPED IN GETPKT, A BLOCK IS ALLOCATED ; FROM POOL. THE ADDRESS OF THAT BLOCK IS STORED HERE FOR LATER ; DEALLOCATION FOLLOWING A READY-OUT INTERRUPT: ; ; WD. 14 -- I.PRM+4-UMR MAPPING BLOCK ; ; NOTE THAT THE ORIGINAL DATA FROM THESE LOCATIONS HAS BEEN SAVED IN ; THE UCB ENTRY POINT TO THE DRIVER (NEAR LABEL 2$) AT THE ; THE UCB AT THE ENTRY POINT TO THE DRIVER (NEAR LABEL 2$). ; ; THE RDA BUFFER AS SET UP BY THE CALLING ROUTINE IS AS FOLLOWS: ; ; WORD 00 - LPA-11 MODE WORD ; WORD 01 - NUMBER OF WORDS TO TRANSFER PER BUFFER ; WORD 02 - ADDRESSS OF USER STATUS WORD ; WORD 03 - LOW BYTE ONLY - VALID BUFFER MASK ; WORD 04 - BUFFER 0 ADDRESS ; WORD 05 - BUFFER 1 ADDRESS ; WORD 06 - BUFFER 2 ADDRESS ; WORD 07 - BUFFER 3 ADDRESS ; WORD 10 - BUFFER 4 ADDRESS ; WORD 11 - BUFFER 5 ADDRESS ; WORD 12 - BUFFER 6 ADDRESS ; WORD 13 - BUFFER 7 ADDRESS ; WORD 14 - ADDRESS OF RANDOM CHANNEL LIST ; WORD 15 - DELAY WORD ; WORD 16 - CHANNEL INCR (HIGH BYTE) / START CHANNEL (LOW BYTE) ; WORD 17 - NUMBER OF CHANNELS TO SAMPLE IN SEQUENCE ; WORD 20 - NUMBER OF CLOCK OVERFLOWS BETWEEN STARTS OF SEQUENCE ; WORD 21 - EVENT MARK WORD / DIGITAL START WORD ; WORD 22 - START WORD MASK ; WORD 23 - EVENT MARK MASK ; WORD 24 - NUMBER OF ELEMENTS IN RANDOM CHANNEL LIST ; ; THIS ROUTINE CONVERTS THIS INPUT FORMAT RDA INTO THE REAL RDA ; WHICH IS USED BY THE LPA-11. THIS ROUTINE DOES THE ADDRESS ; CHECKING AND RELOCATION OF USER BUFFERS CONVERTING THEM TO ; 2 WORD PHYSICAL ADDRESSES. IT DOES THE SAME FOR THE RANDOM ; CHANNEL LIST AND USER STATUS WORD. THE FINAL RDA IS CREATED IN ; TASK DYNAMIC MEMORY AND POINTED TO BY WORDS 15 AND 16 IN THE ; I/O PACKET. ; LASTRT: MOV #30.*2,R1 ;ALLOCATE DYNAMIC STOREAGE CALL $ALOCB BCC 42$ ;GOT ONE JMP ELANOD ; ; LINK THIS PACKET INTO THE LIST OF DSR FOR THE UNIT ; 42$: MOV U.LADS(R5),(R0) ;POINT THIS PACKET TO NEXT PACKET MOV R0,U.LADS(R5) ;POINT LIST TO THIS PACKET TST (R0)+ ;POINT R0 TO SECOND WORD OF PACKET ; MOV (SP),R2 ;GET I/O PACKET ADDRESS MOV R0,I.PRM+6(R2) ;SAVE ADDRESS OF NEW RDA CLR I.PRM+10(R2) ;EXTENDED ADDRESS IS ZERO MOV R0,R3 ;COPY ADDRESS OF NEW RDA CALL $GTWRD ;MODE MOV (SP)+,(R3) BIC #7,(R3) ;MAKE SURE THIS IS A "START" RDA BIS #2,(R3)+ CALL $GTWRD ;TRANSFER COUNT MOV (SP),(R3)+ ;LEAVE COUNT ON STACK FOR LATER BLE 62$ ;ERROR, TRANSFER COUNT MUST BE 1-32K MOV (SP),I.PRM(R2) ;SAVE BUFF WORD COUNT ASL (SP) ;MAKE TRANSFER COUNT BYTE VALUE CALL $GTWRD ;USER STATUS WORD ADDRESS .IF DF A$$CHK!M$$MGE MOV #120,R1 ;ADDRESS CHECK ENTIRE IBUF ARRAY MOV (SP),R0 ;GET USW ADDRESS SUB #4,R0 ;PT TO START OF IBUF(=IOSB ADDR) CALL $ACHCK BCS 60$ ;ADDRESS CHECK ERROR IF C SET .ENDC MOV (SP),R0 ;RESTORE USW ADDRESS CALL CVTP ;RLOCATE USW MOV R1,(R3)+ ;SAVE USW ADDRESS LOW ASR R2 ASR R2 MOVB R2,(R3)+ ;SAVE USW ADDRESS HIGH .IF DF M$$EXT MOV #76.,R4 ;OFFSET FROM USW TO FIRST BUFFER .ENDC MOV #8.,-(SP) ;COUNTER FOR EIGHT BUFFERS CALL $GTWRD ;NUMBER OF BUFFERS MOVB (SP),(R3)+ ;SAVE IN RDA BIC #^C<7>,(SP) ;AND OUT ALL BUT NUMBER OF BUFFERS CLR -(SP) ;HIGH 2 BITS OF OFFSET 44$: CALL $GTWRD ;BUFFER ADDRESS MOV (SP),R0 .IF DF A$$CHK!M$$MGE MOV 12(SP),R1 ;ADDRESS CHECK CALL $ACHCK BCS 154$ ;ADDRESS CHECK ERROR .ENDC .IF NDF M$$EXT MOV (SP)+,R0 ;GET ADDRESS OF BUFFER CALL CVTP MOV R1,(R3)+ ;SAVE ADDRESS IN RDA ASR R2 ASR R2 MOV R2,(R3)+ .IFF TST (SP)+ ;CLEAN STACK MOV R4,(R3)+ ;SET BUFFER ADDR AS OFFSET FROM USW MOV (SP),(R3)+ ;SET HIGH 2 BITS ADD 10(SP),R4 ;SPAN PAST THIS BUFFER ADC (SP) ;DONT FORGET THE CARRY .ENDC DEC 4(SP) ;COUNT DOWN TOTAL BUFFERS DEC 2(SP) ;COUNT DOWN BUFFERS TO USE BGE 44$ ;LOOP TIL DONE MOV (SP)+,R2 ;GET HIGH 2 BITS OF OFFSET TST (SP)+ ;CLEAN BUFFER TO USE COUNTER 46$: DEC (SP) ;ANY BUFFERS NOT IN USE BLT 50$ ;NO, ALL DONE CALL $GTWRD ;FETCH WORD FROM USER TST (SP)+ ;IGNORE CLR (R3)+ ;CLEAR NEW RDA CLR (R3)+ BR 46$ ;AND LOOP 50$: MOV R2,(SP) ;CLEAR STACK OF BUFFER COUNT CALL $GTWRD ;GET RANDOM CHANNEL LIST ADDRESS MOV (SP)+,R0 .IF DF A$$CHK!M$$MGE BEQ 52$ ;RCL NOT IN USE IF ADDRESS ZERO MOV #2,R1 ;ADDRESS CHECK FIRST WORD CALL $ACHCK BCS 57$ ;ERROR, BAD BUFFER 52$: .ENDC .IF NDF M$$EXT CALL CVTP ;RELOCATE MOV R1,(R3)+ ;SAVE IN RDA ASR R2 ASR R2 MOV R2,(R3)+ ;SAVE HIGHT ORDER BITS TST (SP)+ ;CLEAN HIGH 2 BITS FROM STACK .IFF MOV R4,(R3)+ ;OFFSET FROM USW MOV (SP)+,(R3)+ ;SET UMR HIGH 2 BITS .ENDC MOV #6,-(SP) ;SEVEN MORE ENTRIES IN RDA 54$: CALL $GTWRD MOV (SP)+,(R3)+ DEC (SP) ;END? BGE 54$ ;NO, LOOP TST (SP)+ .IF DF M$$EXT CALL $GTWRD ;GET RCL LENGTH ADD (SP)+,R4 ;FINAL LENGTH FOR UMR MAPPING MOV 4(SP),R3 ;GET PACKET POINTER MOV R4,I.PRM+2(R3) ;SAVE FOR UMR MAPPING MOV (SP),R0 ;CHECK THAT REGION STARTING WITH THE USW MOV R4,R1 ;AND (R4) BYTES LONG IS WITHIN USER'S CALL $ACHCK ;ADDRESS SPACE. THE USER SHOULD KNOW THAT BCS 60$ ;HIS IBUF,RCL AND BUFFERS MUST BE CONTIGUOUS MOV U.SCB(R5),R4 ;RESTORE SCB POINTER .ENDC ADD #4,SP ;CLEAR USW AND COUNT FROM STACK MOV (SP),R3 ;GET PACKET POINTER MOVB I.EFN(R3),R0 ;CALCULATE EVENT FLAG MASK FOR LATER MOV R5,-(SP) ;SAVE R5 MOV I.TCB(R3),R5 ;TASK TCB ADDRESS CALL $CEFI ;CONVERT EFN TO MASK AND ADDRESS MOV (SP)+,R5 ;RESTORE R5 MOV R0,I.PRM+12(R3) ;SAVE EVENT FLAG MASK MOV R1,I.PRM+14(R3) ;AND EVENT FLAG ADDRESS JMP QUEPKT ;FINISH IN COMMON CODE ; ; ERROR - BAD BUFFER ADDRESS ; 154$: TST (SP)+ 55$: TST (SP)+ ;CLEAR FROM STACK 56$: TST (SP)+ ;CLEAR FROM STACK 57$: TST (SP)+ ;CLEAR FROM STACK 60$: TST (SP)+ ; CLEAN STACK SOME MORE 62$: TST (SP)+ ;WHAT A CLEAN STACK! 64$: JMP ELASP2 ; BAD BUFFER ; .PAGE .SBTTL READY IN INTERRUPT PROCESSING ; ; INTERRUPT SUBROUTINE FOR READY IN INTERRUPTS ; ; ******************** ; LABEL $LAOUT:: IS ADDED TO CONFORM TO RSX-11M SYSGEN NAMING CONVENTION ; WHICH SPECIFIES THAT FOR DUAL VECTORED DEVICES, THE LOW VECTOR IS ; NAMED $XXINP AND THE HIGH VECTOR IS NAMED $XXOUT. FOR THE LPA-11 KMC ; MODULE, THE HIGHEST PRIORTY VECTOR (THE OUTPUT) MUST COME FIRST. THUS ; THE OUTPUT VECTOR IS NAMED $LAINP AND THE INPUT VECTOR IS NAMED $LAOUT ; ******************** ; $LAOUT:: ; ; LARDI:: INTSV$ LA,PR5,L$$A11,, CALL $FORK ;;;GO TO FORK LEVEL ; ; FORK PROCESSING FOR READY IN INTERRUPTS ; MOV U.SCB(R5),R4 ;POINT TO STATUS CONTROL BLOCK CLRB S.CTM(R4) ;CLEAR DEVICE TIMEOUT COUNTER CLRB S.STS(R4) ;CLEAR CONTROLER STATUS TO NOT BUSY BICB #US.BSY,U.STS(R5) ;CLEAR UNIT BUSY STATUS MOV S.PKT(R4),R3 ;REQUEST FINISHED? BEQ 70$ ;YES MOV #1,R0 ;FINISH IT SUCCESSFULLY CLR S.PKT(R4) ;MARK FREE BIT #2,I.PRM+16(R3) ;DID WE RUN OUT OF POOL? BEQ 66$ ;NO, BRANCH BIC #2,I.PRM+16(R3) ;YES, CLEAR THAT BIT MOV #IE.NOD&377,R0 ;SET APPROPRIATE ERROR CODE 66$: CLR R1 ;SECOND IOSB WORD IS ZERO .IF DF M$$EXT CMP #IO.INI,I.FCN(R3) BEQ 68$ CMP #IO.STA,I.FCN(R3) ;START PACKET CONVERTED TO STOP? BNE 69$ ;NO, BRANCH TST I.PRM+16(R3) ;ANY UMRS MAPPED? BEQ 69$ ;NO, BRANCH 68$: CALL UNMAP ;YES, UNMAP THEM MOV U.SCB(R5),R4 ;RESTORE SCB POINTER CALL $DQUMR ;WAKE UP PROCESS WAITING FOR UMRS 69$: .ENDC CALL $IOFIN ;END OF REQUEST PROCESSING 70$: JMP GETPKT ;TRY AND GET ANOTHER PACKET ; .PAGE .SBTTL LPA11-K READY OUT INTERRUPT PROCESSING ; ; INTERRUPT SUBROUTINE FOR LPA11 READY OUT INTERRUPTS ; ; ****************** ; LABEL $LAINP:: IS ADDED TO CONFORM TO RSX-11M SYSGEN NAMING CONVENTION ; SEE COMMENT AT INPUT INTERRUPT FOR FURTHER EXPLANATION. ; ****************** ; $LAINP:: ; LARDO:: INTSV$ LA,PR5,L$$A11,, MOV #U.LAFB+6,R4 ;;;POINT TO READY OUT FORK BLOCK ADD R5,R4 ;;; CALL $FORK1 ;;;GO TO FORK LEVEL ; ; FORK PROCESSING FOR LPA11 READY OUT INTERRUPTS ; MOV U.SCB(R5),R4 ;POINT TO SCB MOV S.CSR(R4),R2 ;DEVICE CSR ADDRESS MOV 2(R2),R0 ;LPA11 OUT STATUS WORD MOV 6(R2),R1 ;GET MAINTENANCE STATUS BYTE BIC #200,2(R2) ;ACKNOWLEDGE READY OUT INTERRUPT MOV R0,R3 ;GET USER INDEX ASL R3 ;MAKE WORD OFFSET BIC #^C<16>,R3 ADD R5,R3 ;POINT TO USRTB IN UCB BIC #377,R0 ;AND OUT READY OUT BYTE BEQ 100$ ;EQUAL IS START REQUEST PROCESSED BPL 71$ ;POSITIVE IS NORMAL STATUS JMP 102$ ;MINUS IS ERROR ; ; COMMON CODE FOR REPORTING NORMAL USER STATUS ; 71$: MOV U.LAUT(R3),R2 ;GET I/O PACKET ADDRESS IN R2 MOV I.PRM(R2),R1 ;SET WORD COUNT IN IOSB WD. 2 ; IOSB WD. 1 =400 FROM LPA11-K 72$: MOV R5,-(SP) ;SAVE UCB MOV R3,-(SP) ;SAVE USRTB POINTER MOV U.LAUT(R3),R3 ;POINT R3 TO I/O PACKET BEQ 75$ ;IF NO USER NOW, JUST EXIT MOV I.TCB(R3),R2 ;POINT TO REQUESTING TASK TCB BIT #T2.ABO,T.ST2(R2) ;TASK BEING ABORTED? BNE 75$ ;YES, SKIP EVENT FLAG MOV I.IOSB+2(R3),R4 ;GET IOSB BIAS MOV I.IOSB+4(R3),R2 ;GET IOSB OFFSET ADD #4,R2 ;POINT TO 2ND IOSB CMP #140100,R2 ;MAPPING STILL VALID? BHI 172$ ;YES, BRANCH SUB #64.,R2 ;NO, MAP NEXT 32-WORD BLOCK INC R4 172$: .IF DF M$$MGE MOV KISAR6,-(SP) ;SAVE KISAR6 MOV R4,KISAR6 ;MAP USER'S IOSB .IFTF MOV R0,(R2)+ ;STORE STATUS BYTE MOV R1,(R2) ;IOSB HIGH WORD .IFT MOV (SP)+,KISAR6 ;RESTORE MAPPING .ENDC ; ; *************************************************** ; 73$: .IF DF A$$TRP ; ; IF BIT 0 OF THE QIO FUNCTION CODE IS SET, DO NOT QUEUE AST HERE ; BIT #1,I.FCN(R3) ;IS SUBFUNCTION CODE BIT 0 SET? BNE 74$ ;YES, DO NOT QUEUE AST ; TST I.AST(R3) ;AST REQUESTED? BEQ 74$ ;NO MOV #6.*2,R1 ;YES, ALLOCATE AN AST BLOCK CALL $ALOCB BCS 77$ ;ERROR, NO DYNAMIC MEMORY MOV R0,R1 ;COPY BLOCK ADDRESS TST (R0)+ ;POINT PAST AST LIST LINK WORD MOV #6.*2,(R0)+ ;SIZE OF AST BLOCK MOV #8.*2,(R0)+ ;NUMBER OF BYTES TO ALLOCATE ON USER'S STACK MOV I.AST(R3),(R0)+ ;AST VIRTUAL ADDRESS MOV #1,(R0)+ ;NUMBER OF EXTRA WORDS TO PUT ON USER'S STACK MOV I.IOSB(R3),(R0) ;IOSB ADDRESS ADD #4,(R0) ;POINT TO 2ND IOSB BLOCK MOV I.TCB(R3),R0 ;POINT TO TASK'S TCB ADD #T.ASTL,R0 ;POINT TO TASK'S AST LISTHEAD CALL $QINSF ;INSERT AST BLOCK IN TASK'S AST LIST 74$: .ENDC MOV I.TCB(R3),R5 ;POINT TO TASK TCB MOV I.PRM+12(R3),R0 ;SET ARGS FOR SETM MOV I.PRM+14(R3),R1 CALL $SETM ; ; 75$: CMP (SP)+,(SP)+ ;CLEAN STACK ; 76$: RETURN ;RETURN ; ; ; ; WE RAN OUT OF POOL FOR AST BLOCK. QUEUE STOP PACKET FOR THIS USER ; AND SET BIT 2 OF I.PRM+16 TO SET UP PROPER ERROR CODE. ; .IF DF A$$TRP 77$: MOV (SP)+,R3 ;POP USER TABLE POINTER MOV (SP)+,R5 ;POP UCB POINTER MOV U.LAUT(R3),R2 ;GET THIS USER'S CONVERTED PACKET CLR U.LAUT(R3) ;DEACTIVATE THIS ENTRY MOV U.LASL(R5),(R2) ;MOVE STOP QUEUE BEHIND THIS USER MOV R2,U.LASL(R5) ;SET NEW QUEUE HEADER BIS #2,I.PRM+16(R2) ;MARK FOR 'NO POOL' ERROR JMP GETPKT ;TRY TO DEALLOCATE STOP PACKET .ENDC ; ; ; ; STATUS RETURN OF ZERO ; TRANSFER REQUEST SUCCESSFULLY STARTED ; 100$: MOV S.PKT(R4),R2 ;GET CURRENT I/O PACKET ADDRESS MOV R2,U.LAUT(R3) ;STORE IT IN USRTB MOV R3,R1 ;RETURN INDEX TO USER SUB R5,R1 ;GET INDEX BACK ASR R1 CLR S.PKT(R4) ;RELINQUISH CURRENT PACKET ; ; THE FOLLOWING CODE TURNS THE ORIGONAL START REQUEST I/O PACKET ; INTO A STOP PACKET FOR ITSELF. THIS ALLOWS ANYONE TO STOP THE ; REQUEST BY SIMPLY RE-QUEUEING THIS PACKET. ; MOVB R1,I.PRM+3(R2) ;USER I.D. MOVB #3,I.PRM+2(R2) ;STOP! MOV R2,I.PRM+6(R2) ;ADDRESS OF STOP RDA WE JUST MADE ADD #I.PRM+2,I.PRM+6(R2) ;ADD IN OFFSET TO PROPER PLACE CLR I.PRM+10(R2) ;CLEAR EXTENDED BITS ; ABOVE 5 INSTR. CREATE 1 WORD STOP RDA WHICH RESIDES IN IPRM+2. ; BITB #US.MDM,U.STS(R5) ;CANCEL I/O REQUESTED? BNE 101$ ;YES, GO CANCEL CLR R0 ;IOSB WORD 1 ON ACCEPT START ; ; TIMEOUT RAISED TO 255 SEC. IN CASE USER SPECIFIED AN EXTREMELY SLOW ; CLOCK RATE AND IS USING DEDICATED MODE. AFTER THE LPA GETS THE FIRST ; 256 WORDS OF DATA, IT WILL ISSUE A READY-IN. THE DRIVER WILL CLEAR ; THE TIMEOUT THERE. IF THE LPA WILL BE WAITING LONGER THAN 255 SECONDS ; BEFORE IT CAN ISSUE A READY-IN (DATA SWEEP DELAYED FOR HOURS FOR ; INSTANCE) THIS TIMEOUT CAN BE DISABLED HERE (AND ONLY HERE). ; ; ANY READY-IN WILL CLEAR THE TIMEOUT. THUS, IF THE DRIVER RECEIVES ; ANOTHER REQUEST SUCH AS A CLOCK QIO, THE TIMEOUT LENGTHENED HERE ; WILL BE NULLIFIED WHEN THE LPA ISSUES THE READY-IN FOLLOWING THE ; CLOCK REQUEST. ; MOVB #255.,S.CTM(R4) ;STRETCH TIMEOUT COUNT NOW JMP 72$ ;NO, CONTINUE ; ; US.MDM FLAGS THAT A CANCEL I/O OCCURED FOR TASK WHILE START REQUEST WAS ; IN PROGRESS. IMMEDIATELY QUEUE A STOP FOR THIS USER INTO THE DRIVERS ; STOP REQUEST QUEUE. ; 101$: MOV U.LAUT(R3),R1 ;POINT TO ORIGINAL I/O PACKET CLR U.LAUT(R3) ;FLAG THAT THE REQUEST IS BEING STOPPED MOV U.LASL(R5),(R1) ;INSERT IN DRIVERS STOP REQUEST QUEUE MOV R1,U.LASL(R5) ;POINT TO IT RETURN ;BACK TO CALLER ; ; ERROR REPORTED (STATUS RETURN NEGATIVE) ; DISPATCH ON ERROR BITS ; 102$: MOV R0,R2 ;COPY STATUS BIC #^C<160000>,R2 ;EXTRACT ERROR TYPE FIELD CMP R2,#160000 ;FATAL HARDWARE ERROR? BNE 104$ ;NO BISB #IE.FHE&377,R0 ;YES, SET RSX ERROR CODE CLRB S.CTM(R4) ;NO TIME OUTS NOW BR LAOUT2 ;REPORT ERROR TO USERS 104$: CMP R2,#140000 ;START ERROR? BEQ 106$ ;YES MOV U.LAUT(R3),R2 ;USER ERROR, GET I/O PACKET PNTR BEQ 76$ ;USER NOT ACTIVE NOW CLR U.LAUT(R3) ;DEACTIVATE THE USER MOV R2,R3 ;COPY I/O PACKET ADDRESS CMP #124000,R0 ;RESULT OF USW BIT 14 STOP? BNE 103$ ;NO MOVB #IS.SUC&377,R0 ;YES, SET RSX STATUS AS SUCCESS ;SIGN EXTEND 0 TO HIGH BYTE MOV I.PRM(R2),R1 ;SET WORD COUNT IS IOSB WORD 2 BR 111$ ;FINISH 103$: CMP #121400,R0 ;BUFFER OVERRUN/UNDERRUN ERROR? BNE 110$ ;NO BISB #IE.DAO&377,R0 ;SET RSX OVERRUN ERROR STATUS BR 111$ ;FINISH 106$: MOV S.PKT(R4),R3 ;START ERROR, GET I/O PACKET POINTER BEQ 76$ ;NO USER HERE NOW CLR S.PKT(R4) ;CLEAR PACKET POINTER 110$: BISB #IE.ABO&377,R0 ;SET RSX STATUS AS ABORT 111$: .IF DF M$$EXT TST I.PRM+16(R3) ;ANY UMRS MAPPED? BEQ 113$ ;NO, BRANCH CALL UNMAP ;YES, UNMAP AND DEALLOCATE THEM MOV U.SCB(R5),R4 ;GET SCB POINTER CALL $DQUMR ;WAKE UP WAITING PROCESS .ENDC 113$: CALLR $IOFIN ;FLUSH THE PACKET ; .PAGE .SBTTL DEVICE TIME-OUT AND POWERFAIL LOGIC ; ; DEVICE TIME-OUT AND DEVICE POWER FAIL ; RESET LPA11 ; SET I/O COMPLETION FOR ALL USERS WITH STATUS OF IE.PWR ; ; ; POWER FAIL ---- ; REQUEST LOADER TASK IF PRESENT ; LAPWF: .IF DF M$$MGE & L$$DRV & LD$LA MOV S.FRK+8.(R4),U.LAFB+8.(R5) ;INITIALIZES FORK BLOCK IN UCB FOR ;FORK1 CALL. NEEDED FOR MAPPED ;SYSTEMS WITH LOADABLE DRIVERS .ENDC MOV R5,R3 ;LOADER TASK NAME ADD #U.CW2,R3 ;IN UCB U.CW2 AND U.CW3 CALL $SRSTD ;IS IT INSTALLED IN SYSTEM? BCS 112$ ;NO, DON'T LOAD ON STARTUP MOV #TUIC,R1 ;DEFAULT UIC OF LOADER TASK MOV R4,-(SP) ;SAVE R4 AND R5 MOV R5,-(SP) CALL $TSKRT ;REQUEST LOADER TASK TO RUN MOV (SP)+,R5 ;RESTORE R5 AND R4 MOV (SP)+,R4 112$: MOV #IE.VER&377,R0 ;UNRECOVERABLE ERROR CLRB S.CTM(R4) ;CLEAR TIME OUT COUNTER CLR R1 ;ZERO IOSB+2 BR LAOUT2 ;LET ANY ACTIVE USERS KNOW ; ; DEVICE TIME OUT ; LAOUT: .IF DF M$$PRO CALL $CFORK ;CORRECT PROCESSOR .ENDC MOV 2(R2),R1 ;;;GET LAST READY OUT STATUS ;;;DATA MAY BE IRRELEVANT CLRB R1 ;;;CLEAR LOW BYTE BIS R1,R0 ;;;COMBINE LPA STATUS WITH IE.DNR MOV 6(R2),R1 ;;;GET MAINTENANCE STATUS WORD LAOUT2: MOVB S.PRI(R4),@#PS ;;;GO TO PRIORITY OF DEVICE MOV #40000,@S.CSR(R4) ;;;DO A DEVICE RESET TO MAKE SURE CLRB @#PS ;;;RESET PRIORITY CLRB S.STS(R4) ;CLEAR CONTROLLER STATUS TO NOT BUSY BICB #US.BSY,U.STS(R5) ;CLEAR UNIT BUSY STATUS BICB #US.MNT,U.STS(R5) ;UNMAPPING FLAG MOV S.PKT(R4),R3 ;A REQUEST IN PROCESS? BEQ 116$ ;NO .IF DF M$$EXT TST I.PRM+16(R3) ;ANY UMR'S MAPPED? BEQ 114$ ;NO, BRANCH CALL UNMAP ;DEALLOCATE THE UMR'S BISB #US.MNT,U.STS(R5) ;MARK UMRS DEALLOCATED 114$: .ENDC CALL $IOFIN ;DEALLOCATE PACKET MOV U.SCB(R5),R4 ;POINT TO SCB CLR S.PKT(R4) ;CLEAR CURRENT PACKET POINTER 116$: MOV #-7,-(SP) MOV #U.LAUT,R2 ADD R5,R2 ;POINT TO USRTB IN UCB 120$: MOV (R2),R3 ;NEXT ENTRY BEQ 122$ ;NO REQUEST ACTIVE MOV R2,-(SP) .IF DF M$$EXT TST I.PRM+16(R3) ;ANY UMR'S MAPPED? BEQ 121$ ;NO, BRANCH CALL UNMAP ;DEALLOCATE THE UMR'S BISB #US.MNT,U.STS(R5) ;MARK UMRS DEALLOCATED 121$: .ENDC CALL $IOFIN ;REQEUST ACTIVE, TELL HIM ITS OVER MOV (SP)+,R2 122$: CLR (R2)+ ;CLEAR ENTRY INC (SP) ;ANY MORE ENTRIES IN LIST? BLE 120$ ;YES, CONTINUE TST (SP)+ ;ALL DONE, EXIT .IF DF M$$EXT MOV U.LAUB(R5),U.LAUB+2(R5) ;INITIALIZE #OF AVAILABLE UMRS BITB #US.MNT,U.STS(R5) ;ANY UMR'S DEALLOCATED? BEQ LACANG ;NO, BRANCH CALL $DQUMR ;DEQU WAITING PROCESS BICB #US.MNT,U.STS(R5) ;CLEAR UMR DEALLOCATED FLAG .ENDC BR LACANG ; .PAGE ; ; ********************************* ; ; THIS SUBROUTINE WILL UNMAP THIS USER'S UMRS AND RETURN THEM TO ; THE LPA POOL. IT WILL DEALLOCATE THE WORK BLOCK TAKEN FROM DSR ; IN SUBROUTINE 'MAP'. ; .IF DF M$$EXT UNMAP: MOV I.PRM+4(R3),R2 ;GET ADDRESS OF WORK BLOCK ADD #10,R2 ;POINT TO MAP AREA MOV R3,-(SP) ;SAVE PACKET POINTER MOV M.UMRN(R2),R3 ;GET #OF UMRS TO RECOVER ASR R3 ASR R3 ADD R3,U.LAUB+2(R5) ;RECOVER THE UMRS CALL $DEUMR ;DEALLOCATE THE UMR'S MOV (SP),R3 ;RESTORE PACKET POINTER MOV R0,-(SP) ;SAVE IOSB MOV R1,-(SP) ;SAVE IOSB+2 MOV R5,-(SP) ;SAVE UCB POINTER MOV I.PRM+4(R3),R0 ;GET ADDRESS OF WORK BLOCK MOV #20.,R1 ;WORK BLOCK IS 10. WORDS CALL $DEACB ;RETURN WORK BLOCK TO POOL MOV (SP)+,R5 ;RESTORE UCB POINTER MOV (SP)+,R1 ;RESTORE IOSB+2 MOV (SP)+,R0 ;RESTORE IOSB MOV (SP)+,R3 ;RESTORE PACKET POINTER CLR I.PRM+16(R3) ;MARK UNMAPPED RETURN .ENDC .PAGE .SBTTL CANCEL I/O ENTRY ; ; CANCEL I/O FOR A PARTICULAR TASK ; ALL REQUESTS ARE SCANNED FOR THE TCB OF THE TASK ; EACH ACTIVE REQUEST FOR THE TASK IS MARKED FOR ABORT ; ACTUAL REQUEST STOP IS ISSUED AT READY IN INTERRUPT TIME ; LACAN: MOV #U.LAUT,R0 ;;;POINT TO ACTIVE REQUEST TABLES ADD R5,R0 ;;;IN UCB MOV #8.,R2 ;;;NINE POSSIBLE ENTRIES + CURRENT ENTRY MOV S.PKT(R4),R3 ;;;REQUEST IN PROGRESS? BEQ 126$ ;;;NO REQUEST IN PROCESS CMP I.TCB(R3),R1 ;;;TCB'S MATCH? BNE 126$ ;;;NO, DON'T CANCEL IT BISB #US.MDM,U.STS(R5) ;;;YES, MARK REQ. FOR ABORT WHEN IT FINISHES 126$: MOV (R0)+,R3 ;;;NEXT USER ACTIVE? BEQ 130$ ;;;NO CMP I.TCB(R3),R1 ;;;TASK TCB'S MATCH? BNE 130$ ;;;NO ; ; STOP THE REQUEST BY PLACING THE ORIGONAL I/O PACKET INTO THE DRIVERS ; STOP I/O QUEUE ; MOV U.LASL(R5),(R3) ;;;INSERT NEXT INTO NEW CURRENT MOV R3,U.LASL(R5) ;;;INSERT CURRENT AS FIRST ; CLR -2(R0) ;;;DEALLOCATE USER TABLE 130$: DEC R2 ;;;NEXT USER BGT 126$ ;;;STILL SOME TO CHECK MTPS #0 ;;;RESET PRIORITY LACANG: JMP GETPKT ;GO TO GET A PACKET IF WE CAN .PAGE .SBTTL MISC SERVICE ROUTINES ; ; CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS ; ENTRY ; R0 - CONTAINS VIRTUAL ADDRESS ; ; EXIT ; R0 - DESTROYED ; R1 - PHYSICAL ADDRESS BITS 0-15 ; R2 - PHYSICAL ADDRESS BITS 16-17 ; R3, R4, R5 PRESERVED ; CVTP: .IF DF M$$MGE MOV R0,R2 ;COPY VIRTUAL ADDRESS SWAB R2 ;EXTRACT APR NUMBER .REPT 4 ASR R2 .ENDR BIC #^C<16>,R2 MOV UISAR0(R2),R2 ;PAGE ADDRESS FIELD FROM KT11 MOV R0,R1 ;COPY VIRTUAL ADDRESS ASL R1 ;EXTRACT BLOCK NUMBER ASL R1 SWAB R1 BIC #^C<177>,R1 ;BLOCK NUMBER ADD R2,R1 ;BLOCK NUMBER+PAGE ADDRESS BLOCK MOV R1,R2 SWAB R2 ;EXTRACT BITS 16-17 .IF NDF M$$EXT BIC #^C<14>,R2 ;PHYSICAL ADDRESS BITS 16-17 .IFF BIC #^C<374>,R2 ;PHYSICAL ADDRESS BITS 16-21 .ENDC .REPT 6 ;GET BLOCK * 64. ASL R1 .ENDR BIC #^C<77>,R0 ADD R0,R1 ;PHYSICAL ADDRESS BITS 0-15 .IFF MORV R0,R1 ;LOW 16 BITS IS PHYSICAL ADDRESS CLR R2 .ENDC RETURN .END RÄ:ðskQ ›c, .TITLE IPDRV - IP-11/IP-300 DRIVER .IDENT /V02/ .ENABL LC ; ; COPYRIGHT (C) 1977, 1978, 1979 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE ; COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ; ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, ; MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE ; TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES ; REMAIN IN DEC. ; ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ; CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ;++ ; FACILITY: RSX-11M I/O Drivers ; ; ABSTRACT: ; ; The IP-11 Process Control Subsystem is a low-cost expandable ; process-control device suitable for industrial applications. ; This driver provides user-level tasks with the ability to ; perform analog and digital input and output in a (somewhat) ; device-independent manner. ; ; ; ENVIRONMENT: Kernel mode, mapped to RSX-11M Executive ; ; AUTHOR: Paul Beck, CREATION DATE: 14-MAR-77 ; ; VERSION 02 ; ; MODIFIED BY: ; ; Geoff Kuenning, 24-Jan-78: VERSION 1.0 ; 01-15 - Add code to support A/D converters. ; 16-20 - Remove assembly errors. ; 21-34 - Fix various bugs found in debugging, add code to deallocate ; old A/D mapping tables on powerup, and add function IO.RAM ; to the driver. ; 35 - Fix bugs found in debugging. Add generic codes for the ; M6010-YA and M5012-YA TTL-compatible digital input modules ; to the generic code table, thus adding support for said ; modules. ; 36-37 - Fix bugs found in debugging. ; 40 - Fix 14-bit address search loop to run at PR6 so as to avoid ; avoid conflict with shuffle loop in interrupt code. Fix ; 12-bit support to return data in two's complement form. Fix ; A/D mapping to limit converters to a maximum of 16 per ; controller. Remove patch space reserved during debugging. ; 41 - Fix assembly error if unsolicited-interrupt support is not ; selected and A/D support is. ; 42 - Fix some minor listing uncleanlinesses. ; 43 - On an unmapped system without address checking, pick up the ; correct value for the user's control-buffer address (bug). ; 44 - Change symbol EXPR0 to XITPR0. ; 45 - Remove symbol BOOT and all references, replacing by a simple ; unconditional setting of the clear bit. Add a timeout loop ; immediately after this to enforce the 20-microsecond ; timing restriction. ; 46 - Remove .DSABL GBL and all .GLOBL statements to prevent ; problems with undefined symbols. ; 47 - Don't create table IPSERV if it isn't needed. ; J. CLEARY 1-FEB-79 ; ; JC031 -- ADD COUNTER MODULE SUPPORT ; ; M. S. HARVEY 21-FEB-79 ; MSH026 ADD LOADABLE DRIVER SUPPORT ; ADD RSX-11M, RSX-11M+ COMPATIBILITY ; ; J. CLEARY 4-APR-79 ; ; JC037 -- RENAME GLOBAL SYMBOLS WHICH CONFLICT WITH ICS ; ; JC042 -- MODIFY IO.RDD TO RETURN FULL 16-BITS FOR D/A ; ; RKO001 -- ADD SUPPORT FOR 128 A020 A/D'S ; ; RKO002 -- FIX WORDS/ENTRY VALUE RETURNED ON CONNECT CB. ; ; MSH067 -- CORRECT CONDITIONAL CODE SO THAT UNSOLICITED ; INTERRUPT MONITORING CAN BE PROPERLY HANDLED ; ; RKO003 -- FIX A/D INTERRUPT CODE TO RETURN CORRECT HI BYTE. ; ; RKO004 -- RENAME SYMBOL S.ADC (S.IPC) DUE TO ICS/ICR CONFLICT ; ; RKO005 -- FIX BUGS IN COUNTER SUPPORT ; ; RKO006 -- FIX CONDITIONAL ASSEMBLY PROBLEMS ASSOCIATED WITH ; COUNTERS. ; ; TL031 -- FIX AN OUT OF RANGE BRANCH ; ; TL044 -- FIX CONDITIONAL ASSEMBLY PROBLEMS ASSOCIATED WITH ; POWERFAIL. ; ; TL091 -- FIX CONDITIONAL ASSEMBLY PROBLEMS ASSOCIATED WITH ; COUNTER SUPPORT. (WAS CAUSED BY RKO002) ; ; HB002 -- FIX PROBLEMS ASSOCIATED WITH IO.RDD AND BRANCH OUT ; OF RANGE IN PREVIOUS MODULE ; ; HB004 -- ADD LOADABLE SUPPORT FOR RSX11M ; ; HB010 -- FIX MASK FOR A TO D CONTROL TABLE ; ; HB011 -- FIX INCORRECT ENTRY IN GENCOD TABLE ; ; HB016 -- FIX OUTPUT BIT SETTING FOR 6011 ONE SHOT ; ;-- .PAGE .SBTTL SYSTEM SYMBOL DECLARATIONS ; ; SYSTEM SYMBOL DEFINITIONS ; .MCALL HWDDF$,PCBDF$,PKTDF$,QIOSY$,SCBDF$,TCBDF$,UCBDF$ .DSABL CRF HWDDF$ PCBDF$ PKTDF$ QIOSY$ SCBDF$ TCBDF$ UCBDF$ .ENABL CRF .PAGE .SBTTL EQUATED SYMBOLS .ASECT ; ; UNSOLICITED DIGITAL INTERRUPTING MODULE OFFSETS ; ..ONE TABLE PER MODULE TYPE (COS,DSI,CTR) PER UNIT ; ..ACCESSED VIA SCB (S.SI, S.CI, S.TI) ; .=0 IMAX: .BLKW 1 ; HIGHEST POINT NUMBER IMBPE: .BLKB 1 ; BYTES PER CIRCULAR BUFFER ENTRY IMFIP: .BLKB 1 ; FORK-IN-PROGRESS FLAG IMSBF: .BLKW 1 ; STARTING BUFFER RELOCATION BIAS IMCBF: .BLKW 1 ; CURRENT BUFFER RELOCATION BIAS IMSAD: .BLKW 1 ; ADDRESS OF START OF BUFFER IMSDA: .BLKW 1 ; ADDRESS OF START OF DATA IMCUR: .BLKW 1 ; ADDRESS OF CURRENT ENTRY IMFIL: .BLKW 1 ; CURRENT FORTRAN FILL INDEX IMLGH: .BLKW 1 ; LENGTH OF CIRCULAR BUFFER IN WORDS IMEVM: .BLKW 1 ; EVENT FLAG MASK WORD IMEVA: .BLKW 1 ; EVENT FLAG MASK ADDRESS IMLST: .BLKW 1 ; LOST DATA COUNT IMTCB: .BLKW 1 ; TCB ADDRESS OF CONNECTED TASK IMTYP: .BLKW 1 ;COUNTER MASK AND FLAG WORD IMFRK: .BLKW 3 ; FORK BLOCK IMSCB: .BLKW 1 ; SCB BACKPOINTER .IF DF LD$IP IMPCB: .BLKW 1 ; BASE ADDRESS OF DRIVER PCB .ENDC IMLH: .BLKW 2 ; RESOURCE LINKAGE LISTHEAD ; (ONE LISTHEAD PER CONTROLLER IF I$$PUN DEFINED) ; ; RESOURCE LINKAGE OFFSETS ; ..ONE ENTRY PER TASK OR EVENT FLAG LINKAGE ; ..ACCESSED AS QUEUE FROM UNSOLICITED MODULE TABLE FOR ; THE APPROPRIATE MODULE TYPE. ; .=0 ILNXT: .BLKW 1 ; LINK TO NEXT ILPBA: .BLKB 1 ; PHYSICAL BYTE OFFSET FOR MODULE LINKED TO ILRES: .BLKB 1 ; RESOURCE MASK FOR THIS LINKAGE ILTE: .BLKW 1 ; TASK LINKAGE (( EF*2 + 1 )) ILEVM: .BLKW 1 ; EVENT FLAG MASK (( EVENT FLAG )) ILEVA: .BLKW 1 ; EVENT FLAG ADDRESS (( TCB ADDRESS )) ILRUN: .BLKB 1 ; RUN FLAG FOR FORK PROCESS ILCOS: .BLKB 1 ; RESOURCE INTERRUPTED MASK ILREL: .BLKW 1 ; RELATIVE ENTRY NUMBER OF THIS LINKAGE ILPAD: .BLKW 1 ; PAD LENGTH FOR ALLOCATION ILGH: .BLKW 0 ; LENGTH ; ; ITEMS ABOVE IN DOUBLE PAREN (( )) ARE ALTERNATE MEANINGS FOR ; EVENT FLAG LINKAGES ; ; ; TASK LINKAGE OFFSETS ; ..ONE ENTRY/LINKED TASK, QUEUED IN A SINGLE LIST COMMON TO ; ALL PCS CONTROLLERS ; .=0 LNEXT: .BLKW 1 ; LINK LUSE: .BLKW 1 ; NUMBER OF RESOURCE LINKAGES FOR THIS TASK LTCB: .BLKW 1 ; TASK TCB ADDRESS LACT: .BLKW 1 ; ACTIVITY COUNT (START OF IO.RAD BLOCK) LPHY: .BLKW 1 ; UNIT NUMBER LGEN: .BLKW 1 ; MODULE TYPE LREL: .BLKW 1 ; RELATIVE ENTRY NUMBER LHWR: .BLKW 3 ; HARDWARE DEPENDANT DATA LLGH: .BLKW 0 ; LENGTH ; ; GENERIC CODE DEFINITION TABLE ; ..ONE ENTRY PER SUPPORTED MODULE ; .=0 GCODE: .BLKB 1 ; GENERIC CODE GCNBM: .BLKB 1 ; NUMBER OF BYTES OF ADDR SPACE USED BY MODULE GCMOD: .BLKB 1 ; MODULE TYPE GCLEM: .BLKB 1 ; NUMBER OF LOGICAL ENTRIES PER MODULE GCLGH: .BLKW 0 ; LENGTH ; ; GENERIC CODE TABLE FOR MULTIPLEXERS ADDED ON TO THE A014 A/D ; ..ONE ENTRY PER SUPPORTED MULTIPLEXER ; .=0 MGCODE: .BLKB 1 ; GENERIC CODE OF MULTIPLEXER MCHANS: .BLKB 1 ; NUMBER OF CHANNELS IT PROVIDES ; ; MODULE MAPPING TABLE ; ..ONE ENTRY PER DENSE SET OF MODULES OF THE SAME MODULE TYPE ; ..ENTRIES OF THE SAME MODULE TYPE IN DIFFERENT CONTROLLERS ARE ; LINKED TOGETHER. ; ..ACCESSED FROM SCB VIA S.IPM+(MODULE TYPE - 1)*2 ; .=0 IPMNEX: .BLKW 1 ; LINK IPMMIN: .BLKW 1 ; MINIMUM RELATIVE ENTRY, THIS DENSE SET IPMMAX: .BLKW 1 ; MAXIMUM RELATIVE ENTRY IPMMOD: .BLKB 1 ; MODULE TYPE .BLKB 1 ; SPARE IPMLOW: .BLKB 1 ; RELATIVE BYTE ADDRESS OF FIRST ENTRY IN SET IPMCON: .BLKB 1 ; CONTROLLER INDEX LGMAP: .BLKW 0 ; LENGTH ; ; A/D CONVERTER CONTROL TABLE ; ..ONE ENTRY PER A/D CONTROL MODULE, COVERING A MAXIMUM OF 16 ;RKO001 ; A014'S OR 128 A020'S. ;RKO001 ; ..ACCESSED FROM SCB VIA S.IPC ;RKO004 ; ;**-3 ADNCNV=16. ;ASSUME NO A020'S ;RKO001 .IIF DF I$$P14,ADNCNV=128. ;RKO001 .=0 ADMXC: .BLKW 1 ; MAXIMUM CHANNEL NUMBER ON THIS PCS ADFR: .BLKB 1 ; FORK REQUEST FLAG, *MUST* PRECEDE ADIP! ADIP: .BLKB 1 ; CONVERSIONS IN PROGRESS COUNT ADNXT: .BLKW 1 ; ADDR OF ADC ENTRY FOR BLOCKED CONVERSION ADNXC: .BLKW 1 ; CONTROL WORD FOR BLOCKED CONVERSION ADFBC: .BLKW 1 ; COUNTER OF SUCCESSFUL CONVERSIONS ADSTS: .BLKW 1 ; I/O COMPLETION STATUS ADCONV: .BLKW ADNCNV ;ADDRESSES OF ADC ENTRIES (0 IF NONE) ;RKO001 ADLG: .BLKW 0 ;REF TAG GIVES LOOP COUNT FOR "CLR MAP" ;RKO001 ; ;**-2 ; A/D CONVERTER ENTRIES ; ..ONE PER A/D CONVERTER, COVERING UP TO 8 MUXES ; ..BLOCK IS ALLOCATED ON POWER-UP ; ..ACCESSED FROM A/D CONTROL TABLE (ABOVE) BY CONVERTER INDEX ; .=0 ADBUS: .BLKW 1 ; BUS ADDRESS OF ADC ; LOW BIT OF ABOVE IS SET IF CNVTR IS BUSY ADTYP: .BLKB 1 ; CONVERTER TYPE (ADI12 OR ADI14) ; TAIL END OF TABLE DIFFERS FOR ADI12 AND ADI14. ; FOR ADI12: .=ADTYP+1 .BLKB 1 ; (UNUSED) ADUAD: .BLKW 2 ; USER BUFFER ADDRESS ADMUX: .BLKB 8. ; # OF CHANNELS IN EACH MUX (ZERO IF MUX IS ; NOT PRESENT) LGAD12: .BLKW 0 ; FOR ADI14: .=ADTYP+1 ADCHN: .BLKB 1 ; # OF CHANNELS ON THE CONVERTER ADUADS: .BLKW 2*4 ; SPACE FOR UP TO 4 USER BUFFER ADDRESSES LGAD14: .BLKW 0 ; ; QIO ADDRESS CHECKING FLAGS ; ALBUF=1 ; BUFFER MUST BE WORD ALIGNED? 1=YES ALBYT=2 ; BYTE COUNT MUST BE WORD ALIGNED? 1=YES ALBF2=4 ; SECOND BUFFER MUST BE WORD ALIGNED? 1=YES CB=100000 ; CONTROLLER FUNCTION FLAG VFBITS=ALBUF!ALBYT!ALBF2!CB ; ; MODULE TYPES ; DIGI=1 ; DIGITAL SENSE INPUT COS=2 ; CHANGE-OF-STATE INPTRRUPT DSI=3 ; DIGITAL SENSE INTERRUPT (1 BIT/BYTE INT) DIGO=4 ; DIGITAL OUTPUT SSO=5 ; SINGLE SHOT OUTPUT DAO=6 ; DIGITAL TO ANALOG OUTPUT ADI12=7 ; ANALOG TO DIGITAL INPUT, 12 BITS ADI14=8. ; ANALOG TO DIGITAL INPUT, 14 BITS IN08=9. ;8-BIT INPUT COUNTER IN16=10. ;16-BIT INPUT COUNTER OU16=11. ;16-BIT OUTPUT COUNTER ; ; CSR BIT DEFINITION ; RIF=1 ; RESET INTERRUPT FLAG GBIT=4 ; RETURN GENERIC CODE EBIT=100 ; INTERRUPT ENABLE FOR PCS CBIT=2 ; CLEAR PCS ; ; OTHER ; RMTLG=8. ; SIZE OF TABLE ENTRY FOR IO.RMT CALLER RAMLG=16. ; SIZE OF TABLE ENTRY FOR IO.RAM CALLER NMTYP=11. ;NUMBER OF MODULE TYPES NMTYP1=9. ;NUMBER OF MODULE TYPES EXCLUDING A/D TYPES ILGAIN=20000 ; BIT THAT CANNOT APPEAR IN A014 GAIN ILLMEM=4 ; DEFINE ILLEGAL MEM REF TRAP MTIN08=1000 ;MODULE TYPE 9. MASK WORD MTIN16=2000 ;MODULE TYPE 10. MASK WORD MTOU16=4000 ;MODULE TYPE 11. MASK WORD MAXCHL=4096. ;MAXIMUM LEGAL CHANNEL NUMBER (ALL ADC'S;RKO001 NCHADC=256. ;MAXIMUM # CHANNELS FOR ONE ADC WITH MUX;RKO001 NCHA14=32. ;MAXIMUM # CHANNELS FOR MUXLESS ADC ;RKO001 .PAGE .SBTTL LOCAL MACRO DEFINITIONS .MACRO MOVB$C S,D CLR D BISB S,D .ENDM .MACRO ERREX$ ER .IRP E, PCS'E': MOV #IE.'E'&377,R0 BR PCSCOM .ENDM .ENDM .MACRO ASSUME A,COND,B .IF COND - .IFF .ERROR A ; ASSUME -- "A" IS NOT COND "B" .PRINT B .ENDC .ENDM .PAGE .SBTTL LOCAL DATA STRUCTURES .PSECT PCSTOP: .IF DF I$$PUI PCTLH: .WORD 0,PCTLH ; TASK LINKAGE LIST .ENDC .IF DF I$$PAD!I$$P14!I$$PCO!I$$PDI!I$$PTI CNTBL: .BLKW N$$PCS ; UCB STORAGE TMP: .BLKW 1 ; HOLDS UCB FOR INT SERVICE RUN: .BLKW 1 ; FORK PROCESS FLAG .ENDC .IF DF I$$PAD ! I$$P14 NADC: .WORD 0 ; NUMBER OF A/D CONVERTERS ON SYSTEM .ENDC .IF DF I$$P14 ;ASSEMBLE IF 14 BIT A/D'S ;RKO001 MINOMX: .WORD 0 ;MINIMUM CHAN # FOR MUXLESS ADC ;RKO001 .ENDC ;RKO001 .IF DF I$$PTI CTRTYP: .WORD 0 ; MODULE TYPES IN THIS CONFIGURATION .ENDC .IF DF I$$PPF PRVMAP: .BLKW 1 ; START ADDR FOR CREATING PF TBLS NBPWF: .WORD 0 ; NUMBER OF BYTES SAVED ON PWR FAIL .IF DF LD$IP ;HB004 ;HB004 .IF DF R$$MPL ;HB004 ;**-1 PFCTB: .WORD 0 ;THESE TABLES WILL BE IN POOL PFDTB: .WORD 0 PFLEN: .WORD 0 ;LENGTH OF POOL BLOCK ALLOCATED ;HB004 .IFF ;HB004 ;HB004 PFCTB: .WORD $PWCTB ; POWERFAIL BLOCK WILL RESIDE IN ;HB004 PFDTB: .WORD $PWDTB ; SYSTB ;HB004 ;HB004 .ENDC ;HB004 .IFF PFCTB: .WORD PWCTB ;POINTERS TO IN-LINE TABLES PFDTB: .WORD PWDTB PWCTB: .BLKW I$$PPF+1 ;POWER FAIL CONTROL TABLE PWDTB: .BLKB I$$PPF ;POWER FAIL DATA TABLE .ENDC .EVEN PFPTR: .WORD 0 ; FILL POINTER FOR CONTROL TABLE .ENDC ; ; GENERIC CODE DEFINITION TABLE ; $$$=0 GENCOD: .IF DF I$$PDO .BYTE 041, 4, DIGO, 4 ; M6010 .BYTE 043, 4, DIGO, 4 ; M6010-YA .BYTE 001, 1, DIGO, 1 ; M6012 .BYTE 002, 1, DIGO, 1 ; M6013 .BYTE 022, 2, DIGO, 2 ; M6015 ;HB011 $$$=$$$+1 ;**-1 .ENDC .IF DF I$$PSS .BYTE 021, 2, SSO, 2 ; M6011 $$$=$$$+1 .ENDC .IF DF I$$PDS .BYTE 141, 4, DIGI, 4 ; M5010 $$$=$$$+1 .ENDC .IF DF I$$PDI .BYTE 122, 2, DSI, 2 ; M5012 .BYTE 123, 2, DSI, 2 ; M5012-YA .BYTE 101, 1, DSI, 1 ; M5013 $$$=$$$+1 .ENDC .IF DF I$$PCO .BYTE 121, 4, COS, 2 ; M5011 .BYTE 124, 4, COS, 2 ; M5031 $$$=$$$+1 .ENDC .IF DF I$$PDA .BYTE 261, 8., DAO, 4 ; A630 DAC .BYTE 262,8., DAO, 4 ; A631 DAC $$$=$$$+1 .ENDC .IF DF I$$PAD .BYTE 301, 4, ADI12, 0 ; A014 ADC, DOUBLE-ENDED .BYTE 321, 4, ADI12, 0 ; A014 ADC, SINGLE-ENDED $$$=$$$+1 .ENDC .IF DF I$$P14 .BYTE 304, 4, ADI14, 8. ; A020 ADC, DOUBLE-ENDED .BYTE 324, 4, ADI14, 16. ; A020 ADC, SINGLE-ENDED $$$=$$$+1 .ENDC .IF DF I$$PTI .BYTE 142, 2, IN08, 4 ;8-BIT INPUT COUNTER - M5016 $$$=$$$+1 .BYTE 144, 4, IN16, 2 ;16-BIT INPUT COUNTER - M5014 .BYTE 145, 4, IN16, 2 ;16-BIT INPUT COUNTER - M5014 .BYTE 146, 4, IN16, 2 ;16-BIT INPUT COUNTER - M5014 .BYTE 147, 4, IN16, 2 ;16-BIT INPUT COUNTER - M5014 $$$=$$$+1 .BYTE 44, 4, OU16, 2 ;16-BIT OUTPUT COUNTER - M6014 $$$=$$$+1 .ENDC .WORD 0 ; END OF GENCOD NMODCF=$$$ ; ; MULTIPLEXER DEFINITION TABLES FOR THE A014 A/D CONVERTER ; MXDEF: .BYTE 301,8. .BYTE 321,16. .BYTE 322,16. .BYTE 342,32. .BYTE 323,16. .WORD 0 ; ; MAPPING TABLES ; LSTMAP: PCSMTB-LGMAP ; POINTER TO LAST ENTRY PCSMTB: .BLKW N$$PCS*NMODCF*LGMAP PCSMTX=. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; DISPATCH TABLE ; ; POWER-DOWN ENTRY POINT MUST IMMEDIATELY PRECEDE THE DRIVER ; DISPATCH TABLE FOR PROPER POWERFAIL OF A LOADABLE IPDRV ; .WORD IPDWN ;POWER-DOWN ROUTINE .IF DF R$$MPL DDT$ IP,N$$PCS,,,,NEW ;REMAINDER OF DISPATCH TABLE .IFF DDT$ IP,N$$PCS .ENDC ; ; QIO VERIFICATION/DISPATCH TABLE ; ; ENTRY CONSISTS OF TWO WORDS: QIO FUNCTION+FLAGS, QIO FUNCTION HANDLER ; ADDRESS ; PCSDSP: .IF DF I$$PQO .IF DF I$$PSS .WORD IO.MSO!CB, MSOUT ; SINGLE SHOT OUTPUT .ENDC .IF DF I$$PDO .WORD IO.MLO!CB, MLOUT ; DIGITAL OUTPUT .ENDC .ENDC .IF DF I$$PRD .WORD IO.RDD!CB!ALBUF!ALBYT!ALBF2, RDDIN; READ DIGITAL DATA .ENDC .IF DF I$$PUI .IF DF I$$PCO .WORD IO.CCI!ALBUF!ALBYT, COSCT ; CONNECT COS TO BUFFER .WORD IO.DCI, COSDCT ; DISCONNECT COS .WORD IO.LDI, COSLNK ; LINK TASK TO COS .WORD IO.UDI, COSUNL ; UNLINK COS .ENDC .IF DF I$$PDI .WORD IO.CSI!ALBUF!ALBYT, DSICT ; CONNECT DSI TO BUFFER .WORD IO.DSI, DSIDCT ; DISCONNECT DSI .WORD IO.LSI, DSILNK ; LINK TASK TO DSI .WORD IO.USI, DSIUNL ; UNLINK DSI .ENDC .IF DF I$$PTI ;COUNTER SUPPORT .WORD IO.CTI!ALBUF!ALBYT,CTICT ;CONNECT CTR TO CIRC BUFFER .WORD IO.DTI,CTIDCT ;DISCONNECT CIRC BUFFER FROM CTR .WORD IO.LTI,CTILNK ;LINK TASK TO CTR INTERRUPTS .WORD IO.UTI,CTIUNL ;UNLINK TASK FROM CTR INTERRUPTS .ENDC .IF DF I$$PEF .WORD IO.LEI, EFLNK ; LINK EF TO COS .WORD IO.UEI, EFUNL ; UNLINK EF .ENDC .WORD IO.NLK, UNLINK ; UNLINK ANY TASK .WORD IO.RAD, RDACT ; READ ACTIVATING DATA .ENDC .IF DF I$$PTI .WORD IO.ITI,CTIITI ;SET COUNTER INITIAL VALUE .ENDC .IF DF I$$PDA .WORD IO.SAO,DASAO ; SINGLE ANALOG OUTPUT .WORD IO.MAO!ALBUF!ALBYT,DAMAO ; MULTIPLE ANALOG OUTPUT .ENDC .IF DF I$$PAD!I$$P14 .WORD IO.RBC!ALBUF!ALBYT,ADINI ; MULTIPLE ANALOG INPUT .WORD IO.RAM!ALBUF!ALBYT,RDAMAP ; READ ANALOG MAPPING .ENDC .WORD IO.RMT!ALBUF!ALBYT,RDMAP ; READ MAPPING TABLE .WORD 0,0 ; END OF TABLE ; ; INTERRUPT SERVICE ROUTINES FOR EACH MODULE TYPE (STARTING WITH 1) ; .IF DF I$$PAD!I$$P14!I$$PCO!I$$PDI!I$$PTI IPSERV: .WORD IPDISP ; DIGI - NO INT'S FOR THIS MODULE TYPE .IF DF I$$PCO&I$$PUI .WORD COSSRV ; COS INTERRUPTS .IFF .WORD IPDISP .ENDC .IF DF I$$PDI&I$$PUI .WORD DSISRV ; DSI INTERRUPTS .IFF .WORD IPDISP .ENDC .WORD IPDISP ; DIGO - NO INT'S FOR THIS TYPE .WORD IPDISP ; SSO - NO INT'S FOR THIS TYPE .WORD IPDISP ; DAO - NO INT'S FOR THIS TYPE .IF DF I$$PAD .WORD ADSRV1 ; A/D COMMON INTERRUPT SERVICE ENTRY .IFF .WORD IPDISP .ENDC .IF DF I$$P14 .WORD ADSRV1 ; A/D COMMON INTERRUPT SERVICE ENTRY .IFF .WORD IPDISP .ENDC .IF DF I$$PTI&I$$PUI ;RKO006 ;**-1 .WORD C08SRV ;INTERRUPT SERVICE ENTRY FOR 8-BIT CTR .WORD C16SRV ;INTERRUPT SERVIVE FOR 16-BIT INPUT CTR .WORD C16SRV ;INTERRUPT SERVICE FOR 16-BIT OUTPUT CTR .IFF .WORD IPDISP .WORD IPDISP .WORD IPDISP .ENDC .ENDC ; (I$$PAD!I$$P14!I$$PCO!I$$PDI) .PAGE .SBTTL ONLINE-OFFLINE SWITCH ROUTINE ; CONTROLLER STATUS CHANGE ENTRY POINT ; ; INPUTS: R2 KRB ADDRESS ; C=0 BRING CONTROLLER ONLINE ; C=1 TAKE CONTROLLER OFFLINE ; ; OUTPUTS: $SCERR- UNCHANGED=SUCCESS ; ERROR CODE ON FAILURE ; ;MSH026 ; IF THE DRIVER IS LOADABLE, THE POWER-FAIL BLOCK IS ALLOCATED ;MSH026 ; FROM POOL. WHEN THE CONTROLLER IS TAKEN OFFLINE, THAT POOL ;MSH026 ; BLOCK IS RECOVERED. ;MSH026 ; ; .IF DF R$$MPL IPKRB: MOV R2,R5 ;COPY KRB POINTER BCS 200$ ;BRANCH TO TAKE OFF-LINE .IF DF LD$IP & I$$PPF ;TL044 ;**-1 MOV #<*2>,R1 ;#BYTES IN CONTROL TABLE ADD #I$$PPF,R1 ;#BYTES IN DATA TABLE CALL $ALOCB ;ALLOCATE POWER-FAIL BLOCK BCC 100$ ;IF CS, ERROR-RETURN OFFLINE ;MSH026 MOVB #IE.UPN&377,$SCERR ;NOT ENUFF POOL FOR POWERFAIL BLOCK ;**-1 RETURN 100$: MOV R1,PFLEN ;SAVE LENGTH OF CORE BLOCK MOV R0,PFCTB ;POINT TO CONTROL TABLE ADD #<*2>,R0 MOV R0,PFDTB ;POINT TO DATA TABLE .IFTF RETURN ;MSH026 200$: ;**-1 .IFT MOV PFLEN,R1 ;GET LENGTH OF POWER-FAIL BLOCK MOV PFCTB,R0 ;POINT TO POWER-FAIL BLOCK CALL $DEACB ;RETURN TO POOL .ENDC RETURN .ENDC .PAGE ; UNIT ONLINE-OFFLINE STATUS CHANGE ENTRY POINT ; ; INPUTS: R3=CONTROLLER INDEX ; R4=SCB POINTER ; R5=UCB POINTER ; ; C=0 BRING UNIT ONLINE ; C=1 TAKE UNIT OFFLINE ; .IF DF R$$MPL IPUCB: ;REF LABEL ;MSH026 BCS 200$ ;IF CS, TAKE UNIT OFFLINE ;MSH026 CALLR IPPWF ;MSH026 ;MSH026 200$: RETURN ;ALWAYS SUCCESSFUL ;MSH026 ;**-1 .ENDC .PAGE .SBTTL QIO FUNCTION VERIFICATION AND DISPATCH ; INPUTS: ; R1=I/O PACKET ADDRESS, R4=SCB ADDRESS, R5=UCB ADDRESS ; IPINI: IPIOVF: MOV R5,-(SP) ; SAVE UCB ADDRESS MOV R1,-(SP) ; SAVE I/O PACKET MOV I.FCN(R1),R2 ; FUNCTION CODE BIC #VFBITS,R2 ; CLEAR VERIFICATION FLAGS ADD #I.PRM,R1 ; GET POINTER TO PARAMETER BLOCK MOV #PCSDSP,R3 ; GET POINTER TO VEROFICATION/DISPATCH TBL 10$: MOV (R3)+,R0 ; I/O FUNCTION+BITS BEQ 15$ ; END IF TABLE BIC #VFBITS,R0 ; CLEAR VERIFICATION BITS CMP R0,R2 ; SEE IF IT'S THE SAME CODE BEQ 20$ ; ..YES TST (R3)+ ; ..NO--AT END OF TABLE? BNE 10$ ; ..NO--CHECK NEXT ENTRY 15$: JMP PCSIFC ; ILLEGAL FUNCTION CODE ; ; GOT A LEGAL FUNCTION. TEST ARGUMENTS, IF REQUIRED, FOR ALIGNMENT ; 20$: MOV R1,R0 ; COPY ARGUMENT LIST MOV -(R3),R2 ; GET THE FUNCTION 30$: BIC #^C7,R2 ; ISOLATE TEST BITS 40$: BEQ 50$ ; ..WHAT TEST BITS? TST (R0)+ ; SKIP RELOC BIAS IF PRESENT ASR R2 ; SEE IF WE'RE TO TEST THIS ARGUMENT BCC 40$ ; IF CS, TEST ALIGNMENT BIT #1,(R0) ; TEST ARGUMENT ALIGNMENT BEQ 30$ ; SUCCEEDS JMP PCSBYT ; FAILED ; ; IO FUNCTION IS LEGAL, AND ARGUMENTS ARE OKAY. ; 50$: MOV I.TCB-I.PRM(R1),R0 ; COPY TCB ADDRESS TST (R3)+ ; TEST FOR CONTROLLER FUNCTION ; ; CONTROLLER FUNCTION TEST ONLY APPLIES IF IO.FLN, IO.NLN FUNCTIONS ARE ; IMPLEMENTED AS IN ICS/ICR DRIVER ; ; PROCESS THE I/O FUNCTION ; 60$: JMP @(R3)+ ; GO .SBTTL QIO FUNCTION PROCESSORS .IF DF I$$PQO .IF DF I$$PSS .PAGE .SBTTL IO.MSO -- SINGLE SHOT OUTPUT (16 BITS) ; IO.MSO ; R0=CALLER TCB, R1=ARGUMENT BLOCK ADDRESS, R4=SCB, R5=UCB ; ARGUMENT BLOCK: WD. 0 = STARTING POINT NUMBER ; WD. 1 = DATA BITS ; MSOUT: MOV R1,R3 ; SAVE ARGUMENT BLOCK MOV 2(R3),4(R3) ; COPY DATA MASK TO DATA BITS MOV #SSO,R1 ; SET MODULE TYPE .ENDC .IF DF I$$PDO BR OUTCOM ; GOTO COMMON CODE .PAGE .SBTTL IO.MLO -- DIGITAL OUTPUT (16 BITS) ; IO.MLO ; R0=CALLER TCB, R1=ARGUMENT LIST ADDRESS, R4=SCB, R5=UCB ; ARGUMENT BLOCK: WD.0 = STARTING POINT NUMBER ; WD.1 = DATA MASK ; WD.2 = DATA BITS (SET OR CLEAR ACC/TO MASK) ; MLOUT: MOV R1,R3 ; SAVE ARGUMENT BLOCK MOV #DIGO,R1 ; SET MODULE TYPE .ENDC .IF DF I$$PSS ! I$$PDO .ENABLE LSB OUTCOM: MOV (R3)+,R0 ; GET POINT NUMBER BIT #7,R0 ; TEST FOR BYTE BOUNDARY ALIGNMENT BNE 30$ ; ..NOT ON BOUNDARY ASR R0 ; CONVERT TO RELATIVE ENTRY NUMBER ASR R0 ; ... ASR R0 ; ... MOV R0,R2 ; SAVE COPY OF RELATIVE ENTRY NUMBER MOV #-1,R5 ; TELL PCSMAP TO RETURN TABLE ADDR CALL PCSMAP ; CONVERT TO PHYSICAL MODULE ADDRESS BCS 30$ ; ...ILLEGAL MODULE MOVB (R0)+,-(SP) ; READ CURRENT MODULE VALUE TSTB 1(R3) ; IS IT A TWO-BYTE MASK? BEQ 10$ ; ...NO CMP R2,IPMMAX(R5) ; TEST IF FIRST BYTE LAST IN DENSE SET BLT 5$ ; ..NO, NEXT SEQUENTIAL BYTE OKAY CLRB 1(R3) ; ..YES, ONLY 8 BITS CHANGED BR 10$ ; ... 5$: MOVB (R0),1(SP) ; ...YES, SET UP 16 BIT FIELD IN TEMP 10$: CMP #DIGO,R1 ; IS THIS LATCHED OUTPUT? ;HB016 BEQ 14$ ; IF EQ, YES - PRESERVE PRESENT OUTPUT ;HB016 CLR (SP) ; ELSE, NO LATCHED OUTPUT TO PRESERVE...;HB016 BR 15$ ; CLR CURRENT MODULE VALUE AND CONTINUE ;HB016 14$: BIC (R3),(SP) ; CLEAR OUT MASKED BITS ;HB016 15$: COM (R3) ; MAKE SURE NO UNMASKED DATA BITS... ;HB016 BIC (R3)+,(R3) ; ... ;**-2 BIS (R3),(SP) ; AND REPLACE WITH DATA BITS COMB -(R3) ; TEST TWO-BYTE MASK BEQ 20$ ; IF EQ, ONLY ONE MOVB 1(SP),(R0) ; UPDATE HIGH ORDER BYTE 20$: MOVB (SP)+,-(R0) ; UPDATE LOW ORDER BYTE JMP PCSDON 30$: JMP PCSMOD ; (IE.MOD) .DSABL LSB .ENDC .ENDC ; (I$$PQO) .IF DF I$$PCO & I$$PUI .PAGE .SBTTL IO.CCI -- CONNECT BUFFER TO COS INTERRUPTS ; ; IO.CCI ; (INPUT DATA AT CTCOM) ; COSCT: MOV S.CI(R4),R3 ; GET UNSOLICITED INTERRUPT TABLE ADDR .ENDC .IF DF I$$PDI & I$$PUI BR CTCOM ; GO HANDLE. .PAGE .SBTTL IO.CSI -- CONNECT BUFFER TO DSI INTERRUPTS ; ; IO.CSI ; DSICT: MOV S.SI(R4),R3 ; GET UNSOLICITED INTERRUPT TABLE ADDR .ENDC .IF DF I$$PTI&I$$PUI BR CTCOM ;BRANCH TO COMMON CODE .PAGE .SBTTL IO.CTI -- CONNECT CIRCULAR BUFFER TO COUNTER INTERRUPTS ; ;IO.CTI ; CTICT: MOV S.TI(R4),R3 ;GET ADDR OF UNSOL INTERRUPT TABLE BNE 2$ ;IF NE ,IT EXISTS ;MSH026 JMP PCMOD3 ;IF EQ, NONE EXISTS ;MSH026 2$: ;MSH026 .IF DF R$$MPL ;MSH026 ;MSH026 BIT #T2.CHK,T.ST2(R0) ;TASK CHECKPOINTED? ;MSH026 BNE 5$ ;IF NE NO WAY ;MSH026 MOV T.PCB(R0),R2 ;GET TASK'S PCB ;MSH026 BIT #PS.FXD,P.STAT(R2) ;TASK FIXED IN MEMORY? ;MSH026 ;MSH026 .IFF ;R$$MPL ;MSH026 ;MSH026 BIT #T2.CHK!T2.FXD,T.ST2(R0) ;TASK FIXED OR CHKPTD? ;**-1 ;MSH026 .ENDC ;R$$MPL ;MSH026 ;MSH026 BNE 5$ ;IF NE OK ;TL031 JMP PCPRI ;IF EQ NO, ERROR ;TL031 5$: MOV 10(R1),R2 ;RETRIEVE MODULE TYPE ;MSH026 BEQ 10$ ; IF EQ CONNECT ALL ;**-2 ASL R2 ; FORM A WORD INDEX MOV $BTMSK(R2),R2 ; MAKE IT A BIT BIT R2,CTRTYP ; VALID MODULE TYPE? BEQ PCMOD3 ; NO INFORM USER MOV R2,10(R1) ; SAVE MODULE TYPE MASK IN ARG LIST 10$: INCB IMTYP(R3) ; SET COUNTER FLAG TST IMTCB(R3) ; TASK ALREADY CONNECTED? BEQ CTCOM1 ; IF EQ NO CMP IMTCB(R3),R0 ; SAME TASK? BNE PCCON3 ; IF NE NO -ERROR CMP 2(R1),IMSAD(R3) ; SAME BUFFER? BNE PCSPC3 ; IF NE NO -ERROR ; ; SET REGISTERS FOR APPROPRIATE EXIT ; MOV R1,R4 ; MOVE PARAM LIST TO R4 ADD #10,R4 ; POINT TO MODULE TYPE MOV R0,R5 ; MOVE TCB ADDR TO R5 INCB T.IOC(R5) ; INC I/O COUNT FOR TASK ADD #IMTYP,R3 ; POINT TO COUNTER FLAG WORD BR CTRCMP ; GO SET MODULE TYPE .ENDC .IF DF I$$PUI .ENABL LSB ; CONNECT CIRCULAR BUFFER TO INTERRUPTS ; ; RO=CALLER TCB, R1=ARGUMENT BLOCK ADDR, R4=SCB, R5=UCB ; ARGUMENT BLOCK: WD.0 = CIRCULAR BUF RELOCATION BIAS ; WD.1 = ADDRESS OF CIRCULAR BUFFER ; WD.2 = LENGTH OF BUFFER ; WD.3 = EVENT FLAG ; WD.4-5 NOT USED ; CTCOM: BEQ PCMOD3 ; IF EQ MODULE DOES NOT EXIST HERE ;MSH026 .IF DF R$$MPL ;MSH026 ;MSH026 BIT #T2.CHK,T.ST2(R0) ;IS TASK CHECKPOINTED? ;MSH026 BNE 6$ ;IF NE NO WAY ;MSH026 MOV T.PCB(R0),R2 ;GET TASK'S PCB ;MSH026 BIT #PS.FXD,P.STAT(R2) ;IS TASK FIXED IN MEMORY? ;MSH026 ;MSH026 .IFF ;R$$MPL ;MSH026 ;MSH026 BIT #T2.CHK!T2.FXD,T.ST2(R0) ; CHECK TASK STATUS ;MSH026 .ENDC ;R$$MPL ;MSH026 ;MSH026 BEQ PCPRI3 ; IF EQ TASK NOT FIXED OR CHKPTD 6$: TST IMTCB(R3) ;SEE IF TASK ALREADY CONNECTED ;MSH026 BNE PCCON3 ; IF EQ YES ;**-1 CTCOM1: CMP (R1)+,(R1)+ ; POINT TO LENGTH OF BUFFER MOVB IMBPE(R3),R2 ; GET SIZE OF C.B. ENTRY CMP (R2)+,(R2)+ ; ADJUST FOR HEADER CMP (R1)+,R2 ; IS BUFFER BIG ENOUGH? BLO PCSPC3 ; ...NO MOV (R1),R2 ; GET EVENT FLAG (EF) BEQ PCIEF3 ; CAN'T USE EF 0 CMP R2,#64. ; TEST EF VALIDITY BHI PCIEF3 ; ...INVALID ; ; ALL SEEMS IN ORDER. COPY DATA TO THE TABLE ; MOV R1,R4 ; COPY ARG BLOCK POINTER SUB #6,R4 ; POINT TO TOP TST (R3)+ ; SKIP MAX POINT NUMBER MOVB (R3)+,-(SP) ; SAVE BYTES PER ENTRY MOVB (SP),(R3)+ ; SET FORK NOT IN PROGRESS MOV (R4),(R3)+ ; INIT STARTING BUFFER RELOC BIAS MOV (R4)+,(R3)+ ; .... CURRENT BUFFER RELOC BIAS MOV (R4),(R3)+ ; .... STARTING BUFFER ADDRESS MOV (R4)+,(R3) ; .... CURRENT DATA ADDRESS ADD #4,(R3) ; ADJUST MOV (R3)+,(R3)+ ; CURRENT BUFFER ADDRESS MOV #3,(R3)+ ; INIT FORTRAN FILL INDEX MOV (R4)+,(R3) ; SET LENGTH OF BUFFER IN BYTES ASR (R3)+ ; MAKE THAT IN WORDS MOV R0,R5 ; COPY TCB ADDRESS MOV (R4)+,R0 ; EF CALL $CEFI ; CONVERT EVENT FLAG TO MASK ADDRESS MOV R0,(R3)+ ; AND STORE MOV R1,(R3)+ ; ... CLR (R3)+ ; LOST DATA COUNTER MOV R5,(R3)+ ; SAVE TCB ADDRESS INCB T.IOC(R5) ; BIAS TASK'S OUTSTANDING I/O COUNT .IF DF D$$SHF MOV T.PCB(R5),R0 ; GET ADDRESS OF PCB BIS #PS.NSF,P.STAT(R0) ; INHIBIT TASK SHUFFLING .ENDC MOVB (SP)+,R1 ; BYTES/ENTRY ASR R1 ; =WORDS/ENTRY DEC R1 ; ADJUST FOR EXISTENCE INDICATOR BIS #3*400,R1 ; INCLUDE INITIAL FORTRAN INDEX .IF DF I$$PTI ;RKO002 MOV R1,-(SP) ;SAVE USER RETURN VALUE (WORDS/ENTRY) ;RKO002 ; ;THIS CODE DOES FINAL COUNTER SETUP. NOTE: FOR PROPER FUNCTIONING OF ; THE COMMON CODE IMTYP MUST ALWAYS BE ZERO FOR NON-COUNTER MODULE TYPES. ; CTRCMP: TSTB (R3) ;NEED TO SETUP MODULE TYPE BEQ 50$ ;IF EQ NO - EXIT DECB (R3) ;RESET FLAG MOV (R4),R4 ;MOVE MODULE TYPE TO R4 BNE 40$ ;IF EQ ALL TYPES MOV CTRTYP,R1 ; SET R1 TO ALL CTR'S MASK WORD BIC (R3),R1 ; CLEAR TYPES ALREADY CONNECTED BIT #MTIN08,R1 ; 8-BIT CONNECT? BEQ 10$ ; IF EQ NO - PROCEED INCB T.IOC(R5) ; YES INCREMENT TASK I/O COUNT 10$: BIT #MTIN16,R1 ; 16-BIT INPUT? BEQ 20$ ; IF EQ NO - PROCEED INCB T.IOC(R5) ; YES INCREMENT TASK I/O COUNT 20$: BIT #MTOU16,R1 ; 16-BIT OUTPUT? BEQ 30$ ; IF EQ NO PROCEED INCB T.IOC(R5) ; YES INCREMENT TASK I/O COUNT 30$: DECB T.IOC(R5) ; FIX I/O COUNT MOV CTRTYP,R4 ; SET MASK WORD 40$: BIS R4,(R3) ; SET MASK FOR CONNECTED COUNTERS 50$: MOV (SP)+,R1 ;RESTORE USER RETURN VALUE (WORDS/ENTRY);RKO002 .ENDC ; (I$$PTI) ** TL091 ** SWITCHED THIS & NEXT LINE;RKO002 JMP PCSDN1 ;GO ;RKO002 ; ;**-1 ; OUT OF RANGE ERRORS ; PCMOD3: JMP PCMOD ; (IE.MOD) PCPRI3: JMP PCPRI ; (IE.PRI) PCCON3: JMP PCCON ; (IE.CON) PCSPC3: CLRB IMTYP(R3) ; CLEAR CTR FLAG JMP PCSPC ; (IE.SPC) PCIEF3: JMP PCIEF ; (IE.IEF) .DSABL LSB .ENDC ; (I$$PUI) .IF DF I$$PCO & I$$PUI .PAGE .SBTTL IO.DCI -- DISCONNECT FROM COS ; IO.DCI ; COSDCT: MOV S.CI(R4),R3 ; GET UNSOL INTERRUPT TABLE ADDR .ENDC .IF DF I$$PDI & I$$PUI BR DCTCOM ; GO TO COMMON DISCONNECT CODE .PAGE .SBTTL IO.DSI -- DISCONNECT FROM DSI ; ; IO.DSI ; DSIDCT: MOV S.SI(R4),R3 ; GET UNSOLICITED INTERRUPT TABLE .ENDC .IF DF I$$PTI&I$$PUI JMP DCTCOM ;BRANCH TO COMMON CODE .PAGE .SBTTL IO.DTI -- DISCONNECT CIRCULAR BUFFER FROM COUNTER INTERRUPTS ; ;IO.DTI ; CTIDCT: MOV S.TI(R4),R3 ;GET UNSOL INTERRUP TABLE ADDR BEQ PCMOD ;IF EQ NONE EXISTS TST IMTCB(R3) ;CONNECTED? BEQ PCCON ;NO ERROR MOV (R1),R1 ;GET MODULE TYPE TO DISCONNECT BEQ 10$ ;IF EQ ALL ASL R1 ;ADJUST FOR WORD INDEX MOV $BTMSK(R1),R1 ;MOVE MTYP MASK BIT TO R1 BIT R1,CTRTYP ; VALID MODULE TYPE? BEQ PCMOD ; IF EQ NO BIT R1,IMTYP(R3) ; THIS TYPE CONNECTED? BEQ PCCON ; IF EQ NOT CONNECTED BIC R1,IMTYP(R3) ;CLEAR THIS MODULE TYPE BEQ 50$ ;IF EQ ONE IS ALL DECB T.IOC(R0) ;OTHERWISE DEC IOC AND JMP PCSDON ;EXIT 10$: MOV #MTIN08,R1 ;SET 8-BIT CTR MASK 20$: BIT R1,IMTYP(R3) ;IS THIS TYPE SET? BEQ 30$ ;IF EQ NO DECB T.IOC(R0) ; DECREMENT I/O COUNT BIC R1,IMTYP(R3) ;YES CLEAR IT BEQ 40$ ;IF EQ NO MORE 30$: ASL R1 ;RESET MTYP MASK BMI 40$ ; CAN ONLY ARRIVE HERE ; IF NO COUNTERS ON SYSTEM BR 20$ ;CHECK NEXT ; ; ; 40$: INCB T.IOC(R0) ; INCREMENT I/O COUNT BEFORE ; CALLING COMMON CODE BECAUSE ; COMMON ROUTINE WILL DECREMENT 50$: MOV S.TI(R4),R3 ; RESET INTERRUPT TABLE ADDRESS ; ;BR DCTCOM ; BRANCH TO COMMON CODE .ENDC .IF DF I$$PUI DCTCOM: CALL DISCNC ; DISCONNECT INDICATED CIRCULAR BCC PCDON ; (IS.SUC) BEQ PCMOD ; (IE.MOD) = MODULE ERROR PCCON: CLRB IMTYP(R3) ;RESET CTR FLAG JMP PCSCON ; (IE.CON) = TASK NOT CONNECTED .ENDC ; (I$$PUI) ; ; OUT-OF-RANGE BRANCH CORRECTION ; PCMOD: JMP PCSMOD PCPRI: JMP PCSPRI PCSPC: JMP PCSSPC ; (IE.SPC) = PARAMETER PROBLEMS PCIEF: CLRB IMTYP(R3) ; RESET COUNTER FLAG JMP PCSIEF ; (IE.IEF) = ILLEGAL EVENT FLAG .ENABL LSB .IF DF I$$PUI .PAGE .SBTTL IO.RAD -- READ ACTIVATING DATA ; ; IO.RAD ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0 = ADDRESS OF USER BUFFER ; RDACT: BIT #1,(R1) ; VERIFY WORD ALIGNMENT OF BUFFER BNE PCBYT1 ; (IE.BYT) MOV #PCTLH,R5 ; GET LINKED TASK LISTHEAD 10$: MOV (R5),R5 ; GET FIRST/NEXT ENTRY BEQ PCNLK1 ; (IE.NLK) = TASK NOT LINKED CMP R0,LTCB(R5) ; TEST IF LINKAGE IS FOR CALLER TASK BNE 10$ ; ..NO, TRY NEXT LINKAGE MOV (R1),R0 ; ..YES, GET BUFFER ADDRES MOV #LLGH-LACT-2,R3 ;AND COUNT ;RKO005 ;**-1 .IF DF A$$CHK ! M$$MGE MOV R3,R1 ; COPY COUNT CALL $ACHCK ; ADDRESS CHECK USER BUFFER BCS PCSPC ; (IE.SPC) = BUFFER NOT ALL IN USER SPACE .ENDC .IF DF M$$MGE CALL $RELOM ; RELOCATE AND MAP TO USER BUFFER .ENDC ADD #LACT,R5 ; POINT TO ACTICITY COUNT ASR R3 ; MAKE WORD COUNT MTPS S.PRI(R4) ;;; LOCK OUT DEVICE 20$: MOV (R5),(R0)+ ;;; COPY, AND THEN... CLR (R5)+ ;;; ...CLEAR EACH ENTRY DEC R3 ;;; KEEP COUNT BNE 20$ ;;; MORE TO COME MTPS #0 ; DONE .ENDC ; (I$$PUI) PCDON: JMP PCSDON ; (IS.SUC) PCBYT1: JMP PCSBYT ; (IE.BYT) PCNLK1: JMP PCSNLK ; (IE.NLK) .DSABL LSB .PAGE .SBTTL IO.RMT -- READ PCS MAPPING TABLE ; ; IO.RMT ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0 = USER TABLE RELOCATION BIAS ; WD 1 = USER TABLE ADDRESS ; WD.2 = NUMBER OF BYTES IN USER TABLE ; ; FORMAT OF USER BUFFER ENTRY IS: ; ; WD.0 = MODULE TYPE ; WD.1 = MAXIMUM RELATIVE ENTRY NUMBER ; WD.2 = .BYTE #ENTRIES IN DENSE SET, CONTROLLER INDEX ; WD.3 = PHYSICAL ADDRESS OF FIRST RELATIVE ENTRY ; RDMAP: SUB #RMTLG,4(R1) ; TEST BUF SIZE BLT PCBAD ; (IE.BAD) = USER BUFFER TOO SMALL .IF DF M$$MGE MOV (R1)+,KISAR6 ; MAP TO USER BUFFER .IFF TST (R1)+ ; SKIP NULL RELOCATION BIAS .ENDC MOV (R1)+,R3 ; START ADDRESS OF TABLE MOV (R1),R2 ; BYTE COUNT MOV #S.IPM,-(SP) ; START OF MAPPING HEADERS 10$: MOV R4,R5 ; COPY SCB ADD (SP),R5 ; GET NEXT MAP LIST MOV (R5),R5 ; GET FIRST ENTRY BEQ 30$ ; DONE WITH THIS MODULE TYPE 20$: MOV IPMMOD(R5),(R3)+ ; COPY MODULE TYPE TO USER BFR MOV (R5)+,R0 ; SAVE LINK MOV (R5)+,R1 ; SAVE MIN ENTRY NUMBER... MOV (R5),(R3)+ ; COPY MAX ENTRY # TO USER BUFFER NEG R1 ; -MIN ADD (R5),R1 ; CALCULATE NUMBER ENTRIES IN DENSE SET INC R1 ; CONVERT TO #ENTRIES MOV IPMLOW-IPMMAX(R5),-(SP) ; IPMLOW = LOW BYTE OFFSET CLRB (SP) ; MAKE ROOM FOR, THEN... BIS (SP),R1 ; ...ADD CONTROLLER NUMBER TO # ENTRIES MOV R1,(R3)+ ; AND SEND TO USER BUFFER SWAB (SP) ; CONTROLLER TO RIGHT HALF MOV (SP)+,R1 ; CONTROLLER INDEX MOV PCSBAS(R1),-(SP) ; GET BASE ADDRESS FOR THIS CONTROLLER MOVB$C IPMLOW-IPMMAX(R5),R1 ; GET LOW BYTE OFFSET FOR DENSE SET ADD (SP)+,R1 ; CALCULATE ABS LOW ADDRES MOV R1,(R3)+ ; AND SEND TO USER BUFFER ; ; TEST FOR END OF USER TABLE ; SUB #RMTLG,R2 ; ADJUST COUNT BLT 35$ ; LT IF DONE MOV R0,R5 ; LINK TO NEXT BNE 20$ ; ...IF ANY ; ; DONE WITH CURRENT MODULE TYPE ; 30$: CMP (SP),#S.IPMX-2 ; TEST FOR END OF MAPPING LIST BHIS 35$ ; ...DONE ADD #2,(SP) ; NEXT MODULE TYPE BR 10$ ; ...GO ; ; CLEAN UP AND EXIT ; 35$: TST (SP)+ ; CLEAN STACK BR PCDON ; (IS.SUC) .PAGE .SBTTL IO.RAM -- READ ANALOG MAPPING TABLE ; ; IO.RAM ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0 = USER TABLE RELOCATION BIAS ; WD.1 = USER TABLE ADDRESS ; WD.2 = NUMBER OF BYTES IN USER TABLE ; ; FORMAT OF USER BUFFER ENTRY IS: ; ; FOR 12-BIT A/D CONVERTERS: ; WD.0 = MODULE TYPE (ADI12) ; WD.1 = MAX RELATIVE CHANNEL NUMBER ON THIS A/D ; WD.2 = 0 ; WD.3 = PHYSICAL ADDRESS OF A/D CONTROL REGISTERS ; WDS.4-7 = .BYTE # CHANNELS IN MUX 0, # CHANNELS IN MUX 1, ETC. ; ; FOR 14-BIT A/D CONVERTERS: ; WD.0 = MODULE TYPE (ADI14) ; WD.1 = MAX RELATIVE CHANNEL NUMBER ON THIS A/D ; WD.2 = .BYTE # CHANNELS ON A/D, 0 ; WD.3 = PHYSICAL ADDRESS OF A/D CONTROL REGISTERS ; WDS.4-7 = UNUSED ; ; EACH A/D CONVERTER IN THE SYSTEM WILL HAVE ONE ENTRY IN THE USER ; BUFFER. IF THERE ARE NOT ENOUGH CONVERTERS TO FILL THE BUFFER, THE ; LAST ENTRY WILL BE FOLLOWED BY A ZERO WORD (CONVERTER TYPE=0). ; .IF DF I$$PAD ! I$$P14 RDAMAP: SUB #RAMLG,4(R1) ; TEST USER BUFFER SIZE BLT PCBAD ; (IE.BAD) = USER BUFFER TOO SMALL .IF DF M$$MGE MOV (R1)+,KISAR6 ; MAP TO USER BUFFER .IFF TST (R1)+ ; SKIP NULL RELOCATION BIAS .ENDC MOV (R1)+,R3 ; START ADDRESS OF USER BUFFER MOV (R1),R2 ; BYTE COUNT MOV S.IPC(R4),R5 ; POINT R5 AT ADC TABLE ;RKO004 BEQ PCDON ; IF NONE, WE ARE DONE ;**-1 ADD #ADCONV,R5 ; POINT AT INDIVIDUAL CONVERTER ENTRIES MOV #ADNCNV,R1 ;GET NUMBER OF ADC ENTRY VECTORS ;RKO001 MOV #-1,-(SP) ;MAKE A HOLE FOR MAX CHANNEL NUMBER THIS;RKO001 10$: MOV (R5)+,R0 ; POINT R0 AT AN ADC ENTRY ;**-2 BEQ 35$ ; IF EQ NONE, TRY NEXT ADD #,(SP) ;UPDATE MAX CHAN # (ASSUME 12-BITTER) ;RKO001 .IF DF I$$P14 ;ASSEMBLE IF 14-BITTERS EXIST ;RKO001 CMPB ADTYP(R0),#ADI14 ;RKO001 ;IS THIS A/D A 14-BITTER? ;RKO001 BNE 15$ ;BRANCH IF NOT. ;RKO001 ADD #,(SP) ;RKO001 ;UPDATE MAX CHAN # (CORRECT FOR 14-BITTE;RKO001 15$: ;REFERENCE TAG ;RKO001 .ENDC ;RKO001 MOVB ADTYP(R0),(R3)+ ; STORE CONVERTER TYPE CLRB (R3)+ ; CLEAR HIGH BYTE OF THAT MOV (SP),(R3)+ ; MOVE MAXIMUM CHANNEL NUMBER .IF DF I$$PAD .IF DF I$$P14 CMPB ADTYP(R0),#ADI14 ; IS THIS A 14-BIT A/D? BEQ 20$ ; IF EQ YES .IFTF ; (I$$P14) CLR (R3)+ ; CLEAR WD.2 MOV (R0),(R3)+ ; COPY BUS ADDRESS ADD #ADMUX,R0 ; POINT AT MUX ADDRESSES .REPT 4 MOV (R0)+,(R3)+ ; COPY # CHANNELS ON EACH MUX .ENDR .IFT ; (I$$P14) BR 30$ ; GO COPY NEXT A/D .ENDC ; (I$$P14) .ENDC ; (I$$PAD) .IF DF I$$P14 20$: MOVB ADCHN(R0),(R3)+ ; COPY # CHANNELS ON THIS A/D CLRB (R3)+ ; CLEAR HIGH BYTE OF THAT WORD MOV (R0),(R3)+ ; COPY BUS ADDRESS OF A/D ADD #RAMLG-10,R3 ; SKIP OVER UNUSED WORDS .ENDC 30$: ;REFERENCE TAG ;RKO001 SUB #RAMLG,R2 ; UPDATE COUNT OF BYTES IN BUFFER ;**-1 BLT 40$ ; IF LT DONE, CLEAN UP AND EXIT CLR (R3) ; FOLLOW ENTRY WITH ZERO AS A TERMINATOR 35$: DEC R1 ; COUNT CONVERTERS BNE 10$ ; LOOP TO TRY THE NEXT ONE 40$: TST (SP)+ ; POP MAX CHANNEL OFF STACK JMP PCSDON ;HB002 ;**-1 .ENDC ; (I$$PAD!I$$P14) ; ; OUT-OF-RANGE BRANCH CORRECTION ; PCBYT: JMP PCSBYT ;HB002 PCNLK: JMP PCSNLK ;HB002 PCBAD: JMP PCSBAD ;HB002 .PAGE ;**-3 .SBTTL IO.RDD -- READ DIGITAL DATA .IF DF I$$PRD .ENABL LSB ; ; IO.RDD ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0 = CONTROL BLOCK RELOCATION BIAS ; WD.1 = CONTROL BLOCK ADDRESS ; WD.2 = BYTE COUNT FOR CONTROL BLOCK ; WD.3 = DATA BLOCK ADDRESS (UNRELOCATED) ; RDDIN: MOV R1,R3 ; COPY ARG BLOCK CMP (R3)+,(R3)+ ; POINT TO SIZE MOV U.BUF(R5),-(SP) ; SAVE UCB PARAMETERS ;HB002 MOV U.BUF+2(R5),-(SP); ... ;HB002 ;HB002 .IF DF M$$MGE ;HB002 ;HB002 MOV KISAR6,-(SP) ; SAVE MAPPING REGISTER ;HB002 ;HB002 .ENDC ;HB002 ;HB002 MOV R3,-(SP) ; SAVE ARG BLOCK WD.2 ADDRESS .IF DF A$$CHK ! M$$MGE MOV (R3)+,R1 ; GET SIZE ASR R1 ; MAKE BYTE OFFSET FOR DATA BLOCK MOV (R3),R0 ; GET DATA BUFFER ADDRESS CALL $ACHCK ; ADDRESS-CHECK IT BCS 90$ ; ERROR--NOT IS USER'S ADDR SPACE .IF DF M$$MGE CALL $RELOC ; RELOCATE DATA BLOCK .IFF MOV R0,R2 ; BUFFER CLR R1 ; RELOCATION BIAS .ENDC .IFF ; (A$$CHK!M$$MGE) TST (R3)+ ; SKIP OVER SIZE MOV (R3),R2 ; GET ADDRESS OF BUFFER CLR R1 ; FAKE RELOCATION BIAS .ENDC ; (A$$CHK!M$$MGE) MOV R1,U.BUF(R5) ; SAVE DATA BUF ADDR IN UCB... MOV R2,U.BUF+2(R5) ; ...FOR USE BY $PTBYT SUBROUTINE MOV -(R3),R2 ; GET THE COUNTER ASR R2 ; MAKE IN WORD OFFSET ASR R2 ; .. TST -(R3) ; BACK UP ARG BLOCK POINTER .IF DF M$$MGE MOV -2(R3),KISAR6 ; MAP TO CONTROL BUFFER .ENDC MOV (R3),R3 ; GET BUFFER ADDRESS 10$: MOV (R3)+,R1 ; GET MODULE TYPE MOV (R3)+,R0 ; GET REL ENTRY NUMBER CALL PCSMAP ; CONVERT TO HARDWARE ADDRESS BCS 80$ ; BAD MODULE .IF DF I$$PTI!I$$PDA ;JC042 ;JC042 CMP #DAO,-4(R3) ; D/A CONVERTER? ;JC042 BEQ 20$ ; YES - RETURN FULL WORD ;JC042 CMP #IN16,-4(R3) ; 16 BIT INPUT COUNTER? ;RKO005 BEQ 20$ ; IF EQ YES READ IT ;**-3 CMP #OU16,-4(R3) ; 16 BIT OUTPUT COUNTER? ;RKO005 BNE 30$ ; IF NE NO - CHECK FOR 8-BIT ;**-1 20$: MOVB 1(R0),R1 ; READ HIGH BYTE FIRST MOVB (R0),-(SP) ; NOW READ LOW CALL $PTBYT ; PUT LOW BYTE IN FIRST MOVB R1,-(SP) ; SET HIGH BYTE CALL $PTBYT ; AND SEND TO USER BR 50$ ; CHECK FOR MORE TO DO 30$: CMP #IN08,-4(R3) ; 8 BIT INPUT COUNTER? ;RKO005 BNE 40$ ; IF NE NO - GO READ DATA ;**-1 MOVB -2(R3),R1 ; 8 BIT COUNTER - NEED TO SELECT ;HB002 BIC #^C<3>,R1 ; THE APPROPRIATE RELATIVE DEVICE ;HB002 MOVB R1,(R0)+ ; NUMBER WITHIN THE MODULE BEFORE ;HB002 ; READING IT ;**-3 .ENDC ;(I$$PTI) 40$: MOVB (R0)+,-(SP) ; PUSH DATA BYTE CALL $PTBYT ; SEND DATA TO USER BUFFER CLR -(SP) ; PUT OUT SECOND BYTE OF 0 CALL $PTBYT ; ..SINCE OUTPUT IS 1WD/ENTRY 50$: DEC R2 ; KEEP COUNT BNE 10$ ; MORE TO COME MOV #IS.SUC&377,R0 ; SET SUCCESS EXIT BR 95$ ; ...AND GO 80$: MOV #IE.MOD&377,R0 ; MODULE NOT CONFIGURED--ERROR .IF DF A$$CHK ! M$$MGE BR 95$ ; GO 90$: MOV #IE.SPC,R0 ; ADDRESS SPACE ERROR MOV -(R3),R2 ; GET COUNT ASR R2 ; ...CONVERT TO WORDS .ENDC 95$: MOV @(SP)+,R1 ; GET INITIAL COUNT ASR R1 ; IN WORDS, SUB R2,R1 ; AND CALCULATE FINAL COUNT ;HB002 .IF DF M$$MGE ;HB002 ;HB002 MOV (SP)+,KISAR6 ; RESTORE MAPPING REGISTER ;HB002 ;HB002 .ENDC ;HB002 ;HB002 MOV (SP)+,U.BUF+2(R5); RESTORE UCB PARAMETERS ;HB002 MOV (SP)+,U.BUF(R5) ; ... ;HB002 BR PCSDN2 ; EXIT WITH ERR IN R0, COUNT IN R1 .DSABL LSB .ENDC ; (I$$PRD) .SBTTL QIO FUNCTION COMMON EXITS .LIST MEB ERREX$ ERREX$ .NLIST MEB PCSIFC: MOV #IE.IFC&377,R0 PCSCOM: CLR R1 ; CLEAR SECOND WORD OF I/O STATUS BR PCSDN2 PCSDON: CLR R1 ; CLEAR SECOND WORD OF I/O STATUS PCSDN1: MOV #IS.SUC&377,R0 ; SELECT SUCCESS EXIT CODE PCSDN2: MOV (SP)+,R3 ; RESTORE I/O PACKET ADDRESS MOV (SP)+,R5 ; RESTORE UCB ADDRESS CALLR $IOFIN ; FINISH UP AND EXIT .IF DF I$$PUI .ENABL LSB .IF DF I$$PEF .PAGE .SBTTL IO.LEI -- LINK EVENT FLAGS TO COS INTERRUPTS ; ; IO.LEI ; ; RO = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0 = EVENT FLAG ; WD.1 = STARTING POINT ; WD.2 = RESOURCE MASK ; WD.3-5 NOT USED ; EFLNK: CMP (R1),#64.-8. ; VALIDATE EF BHI PCSIEF ; (IE.IEF) = ILLEGAL EVENT FLAG MOV 2(R1),10(R1) ; COPY POINT NUMBER TO WD.4 MOV 4(R1),12(R1) ; COPY COS MASK TO WD.5 BEQ PCSMOD ; (IE.MOD) = MODULE ERROR-NO POINTS CMP (R1),#32. ; SEE IF ANY LOCAL EVENT FLAGS LINKED BLO 5$ ; ..YES CLR R0 ; NO, DON'T STORE TCB 5$: MOV R0,2(R1) ; SAVE TCB IN WD.1 MOV S.CI(R4),R2 ; GET ADDRESS OF UNSOL INT TBL BEQ PCSMOD ; ...WHAT TABLE? BR 10$ ; GO TO COMMON HANDLER .ENDC .IF DF I$$PDI .PAGE .SBTTL IO.LSI -- LINK TASK TO DSI INTERRUPTS ; ; IO.LSI ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0 = TASK NAME ; WD.1 = TASK NAME ; WD.2 = NOT USED ; WD.3 = EVENT FLAG ; WD.4 = STARTING POINT NUMBER ; WD.5 = COS MASK ; DSILNK: ; REFERENCE .IF DF I$$PEF CLR 4(R1) ; FLAG AS A TASK LINKAGE .ENDC MOV S.SI(R4),R2 ; GET UNSOLICITED INTERRUPT TABLE BEQ PCSMOD ; (IE.MOD) MOV #DSI,R5 ; SET UP AS DSI MODULE TYPE BR 20$ ; GO TO COMMON CODE .ENDC ; (I$$PDI) .IF DF I$$PTI .PAGE .SBTTL IO.LTI -- LINK TASK TO COUNTER INTERRUPTS ; ;IO.LTI ; CTILNK: .IF DF I$$PEF CLR 4(R1) ;FLAG AS A TASK LINKAGE .ENDC MOV S.TI(R4),R2 ;GET UNSOLICITED INTERRUPT TABLE BEQ PCSMOD ; IF EQ MODULE ERROR (IE.MOD) MOV 12(R1),R5 ; GET MODULE TYPE ASL R5 ; MAKE IT WORD INDEX MOV R5,R0 ; SAVE IT MOV $BTMSK(R5),R5 ; GET MODULE TYPE FLAG MASK BIT R5,CTRTYP ; VALID MODULE TYPE? BEQ PCSMOD ; IF EQ NO (IE.MOD) ADD #S.IPM-2,R0 ; CALCULATE ADDRESS OF MAPPING.. ADD R4,R0 ; ..TABLE POINTER 3$: MOV (R0),R0 ; GET FIRSR/NEXT ENTRY BEQ PCSMOD ; BAD MODULE (IE.MOD) CMP 10(R1),IPMMAX(R0) ; DEVICE NUMBER IN RANGE? BHI 3$ ; NO CHECK NEXT MOV IPMMAX(R0),IMAX(R2) ; YES SET MAX REL DEVICE NO. IN TBLE MOV 12(R1),R5 ; RETRIEVE MODULE TYPE CMP #IN08,IPMMOD(R0) ; IS THIS AN 8-BIT COUNTER? BNE 6$ ; IF NE NO - CONTINUE MOVB 10(R1),12(R1) ; SET ARG = REL DEVICE NO. BIC #^C<3>,12(R1) ; CLEAR ALL BUT DEVICE WITHIN DEVICE VALUE 6$: MOV 10(R1),R0 ; RETRIEVE RELATIVE DEVICE NUMBER INCB IMTYP(R2) ; SET COUNTER PROCESSING FLAG BR 25$ ; CONTINUE .ENDC .IF DF I$$PCO .PAGE .SBTTL IO.LDI -- LINK A TASK TO COS INTERRUPTS ; ; IO.LDI ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0 = TASK NAME ; WD.1 = TASK NAME ; WD.2 = NOT USED ; WD.3 = EVENT FLAG ; WD.4 = STARTING POINT NUMBER ; WD.5 = COS MASK ; COSLNK: ; REFERENCE .IF DF I$$PEF CLR 4(R1) ; FLAG AS A TASK LINKAGE .ENDC .ENDC ; (I$$PCO) .IF DF I$$PCO ! I$$PEF 10$: MOV S.CI(R4),R2 ; GET ADDRESS OF UNSOL INT TBL BEQ PCSMOD ;(IE.MOD) MODULE TYPRE NOT DEFINED MOV #COS,R5 ; SET UP MODULE TYPE .ENDC 20$: MOV 10(R1),R0 ; GET STARTING POINT AND VALIDATE BIT #7,R0 ; ..MUST BE ON A BYTE BOUNDARY BNE PCSMOD ; (IE.MOD) CMP R0,(R2) ; COMPARE LIMITS BHI PCSMOD ; (IE.MOD) -- OUT OF RANGE ASR R0 ; CONVERT TO RELATIVE ENTRY NUMBER ASR R0 ; ... ASR R0 ; ... 25$: MOV R1,R3 ; SAVE ARGUMENT BLOCK ADDRESS MOV R5,R1 ; MODULE TYPE MOV R0,R5 ; SAVE RELATIVE ENTRY NUMBER CALL PCSMAP ; FIND PHYSICAL BYTE ADDRESS BCS 93$ ; BAD MODULE ; ; NOW R0 = PHYSICAL BYTE ADDRESS, R1 = CONTROLLER INDEX, R2 = INT. ; TABLE, R3 = ARGUMENT BLOCK, R4 = SCB, R5 = RELATIVE ENTRY NUMBER ; .IF DF I$$PUN ASL R1 ; DOUBLE-WORD INDEX ADD R1,R2 ; BIAS INT TABLE ADDRESS FOR CONTROLLER .ENDC ADD #IMLH,R2 ; POINT TO RESOURCE LISTHEAD MOV R2,R1 ; COPY IT 30$: MOV (R1),R1 ; GET FIRST/NEXT RESOURCE LINKAGE BEQ 40$ ; NOT LINKED CMPB R0,ILPBA(R1) ; TEST IF LINKAGE IS FOR SAME BYTE BNE 30$ ; ..NO, KEEP CHECKING .IF DF I$$PTI TSTB IMTYP-IMLH(R2) ; COUNTER PROCESSING? BEQ 35$ ; IF EQ NO CMPB 12(R3),ILRES(R1) ; RESOURCE OVERLAP? BNE 30$ ; IF NE NO - CHECK NEXT JMP 103$ ; EXIT - (IE.RSU) RESOURCE IN USE .ENDC 35$: BITB 12(R3),ILRES(R1) ; RESOURCE OVERLAP? BEQ 30$ ; NO KEEP CHECKING JMP 103$ ; (IE.RSU) = RESOURCE IN USE ; ; RESOURCE NOT IN USE. VALIDATE TASK OR EF ; 40$: MOV R3,R1 ; SAVE ARG BLOCK ADDRESS MOV R0,-(SP) ; SAVE PHYSICAL BYTE ADDRESS MOVB 12(R3),1(SP) ; GRAFT COS BYTE TO H/W ADDR OFFSET MOV R2,-(SP) ; SAVE LISTHEAD .IF DF I$$PCO ! I$$PDI .IF DF I$$PEF TST 4(R3) ; SEE IF THIS IS EVENT FLAG LINKAGE BNE 60$ ; BRANCH IF YES .ENDC CALL $SRSTD ; SEE IF TASK IS IN TCB LIST BCS 100$ ; ..IT ISN'T CMP 6(R3),#64. ; VALIDATE EVENT FLAG BHI 101$ ; ..NOT VALID ; ; R0=TCB, R1=R3=ARG BLOCK, R2=LISTHEAD, R4=SCB ; (SP) = COS/REL ADDRESS ; MOV R5,-(SP) ; SAVE RELATIVE ENTRY NUMBER MOV R0,R5 ; COPY TCB MOV 6(R3),R0 ; GET EF CALL $CEFI ; CONVERT EF TO MASK AND ADDRESS MOV R0,(R3)+ ; ..AND STORE IN ARG BLOCK MOV R1,(R3)+ MOV (SP)+,(R3) ; SAVE RELATIVE ENTRY IN ARG BLK CMP -(R3),-(R3) ; BACK TO TOP OF ARG BLOCK ; ; LOOK FOR TASK IN TASK LINKAGE QUEUE ; MOV #PCTLH,R0 ; GET TASK LINKAGE LISTHEAD 45$: MOV (R0),R0 ; GET FIRST/NEXT ENTRY BEQ 50$ ; NOT LINKED YET CMP R5,LTCB(R0) ; TEST IF THIS IS RIGHT LINKAGE BNE 45$ ; ..NO, KEEP CHECKING MOV R0,R5 ; ..YES, SAVE ADDR OF TASK LINKAGE ENTRY BR 70$ ; ... ; ; TASK NOT LINKED YET-ALLOCATE AND INITIALIZE AN ENTRY ; 50$: MOV #LLGH+ILGH,R1 ; SIZE OF TASK LINKAGE + RESOURCE LINKAGE CALL $ALOCB ; GO ALLOCATE IT BCS 102$ ; ..NO SPACE AVAILABLE CLR (R0) ; INIT LINK MOV R0,@PCTLH+2 ; LINK IT TO END MOV R0,PCTLH+2 ; ...AND TO LISTHEAD. MOV R5,LTCB(R0) ; SAVE TCB CLR LUSE(R0) ; INIT USE COUNT CLR LACT(R0) ; INIT ACTIVITY COUNT MOV R0,R5 ; TASK LINKAGE ADDR SAVED ADD #LLGH,R0 ; ..AND CALC ADDR OF RESOURCE LINKAGE BR 80$ ; ..GO .ENDC ;(I$$PCO!I$$PDI) .IF DF I$$PEF 60$: MOV R5,4(R3) ; STORE RELATIVE ENTRY IN ARG BLK CLR R5 ; FLAG "TASK LINKAGE ADDR" .IFTF ; R2=LISTHEAD, R4=SCB, R5=TASK LINKAGE ADDR OR 0(EF), ; (SP)=BYTE/RESOURCE WORD ; 70$: MOV #ILGH,R1 ; NEED TO ALLOCATE BLOCK OF THIS SIZE CALL $ALOCB ; FOR RESOURCE LINKAGE. BCS 102$ ; ..NO BUFFERS AVAILABLE ; ; INITIALIZE THE RESOURCE LINKAGE ENTRY ; 80$: MOV (SP)+,R2 ; RESTORE LISTHEAD ADDRESS CLR (R0)+ ; LINK MOV (SP)+,(R0)+ ; STORE PHYSICAL BYTE OFFSET/RES MASK MOV R5,(R0)+ ; STORE TCB LINKAGE OR 0 IF EF LINK .IFT ; (I$$PEF) BNE 85$ ; IF NE, MUST BE TASK LINKAGE MOV (R3),-(R0) ; REPLACE WITH EF*2+1 SEC ; ... ROL (R0)+ ; ... .ENDC ; (I$$PEF) 85$: MOV (R3)+,(R0)+ ; EF MASK OR EF MOV (R3)+,(R0)+ ; EF ADDRESS OR TCB ADDRESS CLR (R0)+ ; RUN FLAG MOV (R3),(R0)+ ; RELATIVE ENTRY NUMBER SUB #ILGH-2,R0 ; BACK TO THE TOP .IF DF I$$PCO!I$$PDI!I$$PTI .IF DF I$$PEF TST R5 ; SEE IF EF LINKAGE BEQ 90$ ; YES .ENDC INC LUSE(R5) ; COUNT THE RESOURCE LINK IN TASK LINK .IFTF ; (I$$PCO!I$$PDI) 90$: MTPS S.PRI(R4) ;;; INHIBIT DEVICE INTERRUPTS MOV R0,@2(R2) ;;; UPDATE LAST RESOURCE LINK MOV R0, 2(R2) ;;; UPDATE TAIL POINTER MTPS #0 ; ENABLE INTERRUPTS CLRB IMTYP-IMLH(R2) ; CLEAR COUNTER FLAG PCDON1: JMP PCSDON ; (IS.SUC) 93$: CLRB IMTYP(R2) ; CLEAR CTR FLAG JMP PCSMOD ; EXIT (IE.MOD) .IFT 100$: CMP (SP)+,(SP)+ ; CLEAN STACK CLRB IMTYP-IMLH(R2) ; CLEAR CTR FLAG JMP PCSNST ; (IE.NST) - TASK NOT INSTALLED 101$: CMP (SP)+,(SP)+ CLRB IMTYP-IMLH(R2) ; CLEAR CTR FLAG JMP PCSIEF ; (IE.IEF) - ILLEGAL EVENT FLAG .ENDC ; (I$$PCO!I$$PDI) 102$: CMP (SP)+,(SP)+ ; CLEAR STACK CLRB IMTYP-IMLH(R2) ; CLEAR CTR FLAG JMP PCSNOD ; (IE.NOD) - NO DYNAMIC BUFFERS 103$: CLRB IMTYP-IMLH(R2) ; CLEAR COUNTER FLAG JMP PCSRSU ;EXIT (IE.RSU) .DSABL LSB .ENDC ; (I$$PUI) .IF DF I$$PUI .ENABL LSB .IF DF I$$PEF .PAGE .SBTTL IO.UEI - UNLINK EVENT FLAGS FROM COS ; ; IO.UEI ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0 = EVENT FLAG OR -1 ; ; IF ARGUMENT IS -1, ALL EVENT FLAG LINKAGES ARE TO BE REMOVED. ; EFUNL: MOV (R1),R1 ; GET EVENT FLAG BMI COSUNL ; IF -1, PASS DIRECTLY TO COMMON CODE SEC ; ELSE PASS AS EF*2+1 FOR MATCHING ROL R1 ; IN THE RESOURCE LINKAGES .ENDC .IF DF I$$PCO ! I$$PEF .PAGE .SBTTL IO.UDI - UNLINK TASK FROM COS INTERRUPTS ; ; IO.UDI ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0-1 = TASK NAME ; COSUNL: MOV #S.CI,R2 ; GET UNSOL INT TBL FOR COS .ENDC .IF DF I$$PDI BR UNLCOM ; GO TO COMMON CODE .PAGE .SBTTL IO.USI - UNLINK TASK FROM DIGITAL SENSE INTERRUPTS ; ; IO.USI ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0-1 = TASK NAME ; DSIUNL: MOV #S.SI,R2 ; GET UNSOLICITED TABLE FOR DSI .ENDC .IF DF I$$PTI BR UNLCOM ; BRANCH TO COMMON CODE .PAGE .SBTTL IO.UTI -- UNLINK TASK FROM COUNTER INTERRUPTS ; ;IO.UTI ; CTIUNL: MOV 4(R1),R3 ; RETRIEVE MODULE TYPE BEQ 5$ ; IF EQ ALL TYPES ASL R3 ; MAKE WORD INDEX MOV $BTMSK(R3),R3 ; GET CTR MASK BIT BIT R3,CTRTYP ; VALID MODULE TYPE? BEQ PCMOD4 ; IF EQ NO (IE.MOD) MOV S.TI(R4),R2 ; GET UNSOL TABLE ADDRESS MOVB 4(R1),IMTYP(R2) ; SAVE MODULE TYPE FOR LATER USE 5$: MOV #S.TI,R2 ; SET FOR COMMON UNLINK ROUTINE .ENDC ; UNLCOM: CALL PCSUNL ; UNLINK COMMON ROUTINE MOV U.CW2(R5),R2 ; RETRIEVE LISTHEAD CLRB IMTYP(R2) ; CLEAR COUNTER FLAG PCCOM: JMP PCSCOM ; EXIT PCMOD4: JMP PCSMOD ; (IE.MOD) .ENABL LSB .PAGE .SBTTL IO.NLK - UNLINK TASK FROM ALL UNSOLICITED INTERRUPTS ; ; IO.NLK ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0-1 = TASK NAME ; UNLINK: CLR -(SP) ; SAVE RESULT FLAG ON STACK MOV #S.CI,R2 ; DEFINE TABLE FOR COS MODULES CALL PCSUNL ; UNLINK TASK FROM COS BCS 30$ ; ERROR BMI 10$ ; NOT LINKED INC (SP) ; FLAG SUCCESS 10$: MOV #S.SI,R2 ; DEFINE TABLE FOR DSI MODULES CALL PCSUNL ; UNLINK TASK FROM DSI BCS 30$ ; ERROR BMI 20$ ; NOT LINKED INC (SP) ; FLAG SUCCESS 20$: MOV #S.TI,R2 ; DEFINE TABLE FOR CTR MODULES CALL PCSUNL ; UNLINK TASK FROM COUNTERS BCS 30$ ; ERROR BMI 30$ ; NOT LINKED INC (SP) ; FLAG SUCCESS 30$: TST (SP)+ ; CHECK FOR SUCCESS BNE PCDON1 ; IS.SUC EXIT BR PCCOM ; IE.NLK = TASK NOT LINKED .DSABL LSB .ENDC ;I$$PUI ;RKO006 .IF DF I$$PTI .PAGE .SBTTL IO.ITI -- SET INITIAL COUNTER VALUE ; ;IO.ITI ; INPUTS: ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD0 = MODULE TYPE, WD1 = RELATIVE DEVICE NUMBER ; WD3 = COUNTER VALUE ; CTIITI: MOV (R1),R0 ; RETRIEVE MODULE TYPE ASL R0 ; MAKE WORD INDEX MOV $BTMSK(R0),R0 ; GET CTR MASK WORD VALUE BIT R0,CTRTYP ; VALID COUNTER TYPE BEQ PCMOD4 ; NO ILLEGAL MODULE TYPE MOV R1,R3 ; SAVE ARGUMENT BLOCK POINTER MOV (R3),R1 ; SET MODULE TYPE IN R1 MOV 2(R3),R0 ; AND RELATIVE DEVICE ENTRY IN R0 CALL PCSMAP ; CONVERT TO PHYSICAL ADDRESS BCS PCMOD4 ; INVALID MODULE CMP #IN08,(R3)+ ; 8-BIT COUNTER? BNE 10$ ; NO - MUST BE 16 - SET IT TST 2(R3) ; IF 8-BIT CTR VALUE MUST BE ZERO BNE PCMOD4 ; NOT ZERO ERROR (IE.MOD) MOV (R3)+,R1 ; RETRIEVE RELATIVE DEVICE NUMBER BICB #^C<3>,R1 ; CLEAR ALL BUT DEVICE WITHIN DEVICE BITS BIS #4,R1 ; SET CLR ENABLE. ;RKO005 MOVB R1,(R0)+ ; SELECT APPROPRIATE COUNTER ;RKO005 TSTB (R0) ; CLEAR THE COUNTER. ;RKO005 JMP PCSDN1 ; EXIT SUCCESS ;**-2 10$: MOVB 3(R3),1(R0) ; SET HIGH ORDER BYTE FIRST MOVB 2(R3),(R0) ; NOW LOW BYTE JMP PCSDN1 ; EXIT SUCCESS .ENDC ;(I$$PTI) .PAGE ;**-1 .SBTTL IO.SAO -- SINGLE ANALOG OUTPUT ; .IF DF I$$PDA .ENABL LSB ; ; IO.SAO ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ARGUMENT BLOCK: WD.0 = CHANNEL ; WD.1 = VOLTAGE (10 BIT) TO BE OUTPUT ; DASAO: MOV (R1)+,R0 ; GET THE CHANNEL MOV (R1),R1 ; GET THE VOLTAGE CALL DAOUT ; OUTPUT IT BCS 1$ ; (ERROR-IE.MOD) JMP PCSDON ; DONE 1$: JMP PCSMOD .PAGE .SBTTL IO.MAO -- MULTIPLE ANALOG OUTPUTS ; ; IO.MAO ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ; ARGUMENT BLOCK: WD.0 = CHANNEL TABLE RELOCATION BIAS ; WD.1 = CHANNEL TABLE ADDRESS ; WD.2 = SIZE OF TABLES IN BYTES ; WD.3 = VOLTAGE TABLE VIRTUAL ADDRESS ; WD. 4-5 UNUSED ; DAMAO: MOV R1,R3 ; COPY ARG BLOCK POINTER CMP (R3)+,(R3)+ ; POINT TO WD.2 = SIZE MOV (R3),-(SP) ; SAVE INITIAL BYTE COUNT .IF DF A$$CHK ! M$$MGE MOV (R3)+,R1 ; GET SIZE MOV (R3),R0 ; ..AND ADDR OF VOLTAGE TABLE CALL $ACHCK ; CHECK ITS LIMITS BCS 90$ ; LIMIT ERROR - IE.SPC .IF DF M$$MGE CALL $RELOC ; RELOCATE VOLTAGE BLOCK .IFF MOV R0,R2 ; COPY VOLTAGE TABLE ADDRESS .ENDC ; (M$$MGE) .IFF ; (A$$CHK!M$$MGE) TST (R3)+ ; SKIP OVER SIZE MOV (R3),R2 ; GET VOLTAGE TABLE ADDRESS .ENDC ASR -(R3) ; CONVERT BYTE COUNT TO WORD COUNT BEQ 85$ ; ERROR--TOO FEW BYTES MOV -2(R3),R5 ; GET ADDRESS OF CHANNEL TABLE .IF DF M$$MGE MOV R1,2(R3) ; SAVE VOLTAGE TABLE RELOC BIAS ; IN I/O PACKET .IFTF 20$: ; REFERENCE LABEL FOR LOOP .IFT ; (M$$MGE) MOV -4(R3),KISAR6 ; MAP TO CHANNEL TABLE .IFTF MOV (R5)+,R0 ; GET NEXT CHANNEL .IFT MOV 2(R3),KISAR6 ; MAP TO VOLTAGE TABLE .IFTF MOV (R2)+,R1 ; GET NEXT VOLTAGE CALL DAOUT ; PROGRAM IT (R0=CHANNEL, R1=VOLTAGE) BCS 80$ ; MODULE ERROR .IFT ; (M$$MGE) BIT #20000,R5 ; TEST IF TABLE ADDR CROSSES 4K BEQ 30$ ; BOUNDARY, BEQ IF NOT BIC #20000,R5 ; YES, CORRECT MAP TO USE SAME APR ADD #200,-4(R3) ; ALSO CORRECT RELOC BIAS 30$: BIT #20000,R2 ; SAME TEST FOR VOLTAGE TABLE BEQ 40$ ; ... BIC #20000,R2 ; ... ADD #200,2(R3) ; ... 40$: ; REFERENCE LABEL .ENDC ; (M$$MGE) DEC (R3) ; KEEP COUNT OF TABLE ENTRIES BNE 20$ ; ..CONTINUING ; ; DONE WITH TABLE, NO ERRORS DETECTED. ; MOV #IS.SUC&377,R0 ; SET SUCCESS RETURN BR 95$ ; .. ; ; VARIOUS ERROR CONDITIONS ; 80$: MOV #IE.MOD&377,R0 ; MODULE ERROR BR 95$ 85$: MOV #IE.BYT&377,R0 ; TABLE ERROR OR SIZE ERROR BR 95$ .IF DF A$$CHK ! M$$MGE 90$: MOV IE.SPC&377,R0 ; TABLE ADDRESS CHECK TST (SP)+ ; SET RETURN COUNT TO ZERO CLR R1 BR 100$ ; .. .ENDC 95$: MOV (SP)+,R1 ; GET INITIAL BYTE COUNT ASR R1 ; ..TO WORD COUNT SUB (R3),R1 ; FIND FINAL COUNT 100$: JMP PCSDN2 ; GO .DSABL LSB .ENDC ; (I$$PDA) .PAGE .SBTTL IO.RBC - READ BLOCK OF A/D CHANNELS .IF DF I$$PAD!I$$P14 ; ; IO.RBC ; ; R0 = CALLER TCB, R1 = ARGUMENT BLOCK, R4 = SCB, R5 = UCB ; ; ARGUMENT BLOCK: WD.0 = DATA BUFFER RELOCATION BIAS ; WD.1 = DATA BUFFER ADDRESS ; WD.2 = NUMBER OF BYTES IN DATA BUFFER ; WD.3 = CONTROL BUFFER ADDRESS ; WD.4-5 UNUSED ; ; CONTROL WORD FORMAT: <0-4> = CHANNEL NUMBER ; <5-7> = MUX NUMBER (LOW BITS CONVERTER IDX ON A0;RKO001 ; <8-11> = A/D CONVERTER INDEX ;**-1 ; <12-15> = GAIN (MBZ ON A020 CHANNELS) ; ADINI: TST S.IPC(R4) ; IS THERE AN AD ON THIS PCS? ;RKO004 BEQ PCMOD2 ; IF EQ NO, ERROR ;**-1 .IF DF A$$CHK ! M$$MGE MOV 6(R1),R0 ; GET VIRTUAL ADDR OF CNTRL BFR MOV 4(R1),R1 ; GET SIZE OF CNTRL/DATA BFRS CALL $ACHCK ; CHECK CONTROL BUFFER LIMITS BCS PCSPC2 ; IF SET, LIMIT ERROR - IE.SPC .IF DF M$$MGE CALL $RELOC ; RELOCATE AND MAP BUFFER .IFF ; (M$$MGE) MOV R0,R2 ; PLACE BUFFER POINTER IN R2 .ENDC ; (M$$MGE) .IFF ; (A$$CHK!M$$MGE) MOV 6(R1),R2 ; GET CONTROL BUFFER ADDRESS .ENDC ; (A$$CHK!M$$MGE) MOV (SP),R3 ; RETRIEVE I/O PACKET ADDRESS ADD #I.PRM+4,R3 ; POINT TO BYTE COUNT (CARRY CLEARED) ROR (R3)+ ; CONVERT IT TO A WORD COUNT MOV R1,(R3)+ ; STORE CONTROL BUFFER ADDRESS IN PACKET MOV R2,(R3)+ ; ... .PAGE ; ; NOW, QUEUE UP THE PACKET, SINCE THE PROCESSING MAY BE HUNG UP ON ; A PREVIOUS PACKET. IF IT IS THE FIRST ONE, IT WILL IMMEDIATELY BE ; DEQUEUED AGAIN WHEN WE CALL $GTPKT. ; MOV (SP)+,R1 ; GET I/O PACKET ADDRESS AGAIN MOV R4,R0 ; SET ADDRESS OF QUEUE LISTHEAD CALL $QINSP ; INSERT I/O PACKET IN QUEUE MOV (SP)+,R5 ; SET R5=UCB ADDR AND CLEAN STACK ; ; THE FOLLOWING CODE IS EXECUTED WHEN A QIO REQUEST IS FIRST ISSUED, ; AND ALSO WHEN A PREVIOUS A/D REQUEST HAS BEEN FINISHED. ; ADGPK: CALL $GTPKT ; GET NEXT I/O PACKET BCC ADRQ ; IF CARRY CLEAR, WE GOT ONE! RETURN ; CONTROLLER IS BUSY. RETURN TO CALLER ; WITH REQUEST STILL QUEUED. FOLLOWING ; NEXT INTERRUPT, IF CURRENT PACKET IS ; FINISHED, NEXT WILL BE DEQUEUD AT FORK ; LEVEL. ; ; OUT-OF-RANGE BRANCH CORRECTION ; PCMOD2: JMP PCSMOD PCSPC2: JMP PCSSPC ; ; HERE, WE HAVE GOTTEN A PACKET AND THE CONTROLLER IS (PRESUMABLY) ; NOT BUSY. INITIATE A/D CONVERSION(S) REQUESTED IN IT, STOPPING WHEN ; A BUSY CHANNEL IS ENCOUNTERED. ; ; THE FOLLOWING ARGUMENTS ARE RETURNED BY $GTPKT: ; R1 -> I/O PACKET ; R2 = PCS UNIT NUMBER ; R3 = CONTROLLER INDEX ; R4 -> SCB ; R5 -> UCB ; ; THE I/O PACKET ARGUMENT BLOCK CONTAINS THE FOLLOWING PARAMETERS: ; WD.0 = RELOCATION BIAS OF DATA BUFFER ; WD.1 = ADDRESS OF DATA BUFFER ; WD.2 = WORD COUNT ; WD.3 = RELOCATION BIAS OF CONTROL BUFFER ; WD.4 = ADDRESS OF CONTROL BUFFER ; ADRQ: MOV I.PRM+6(R1),U.CBF(R5) ; COPY CONTROL BFR ADDR TO UCB MOV I.PRM+10(R1),U.CBF+2(R5) ; ... MOV S.IPC(R4),R3 ; POINT R3 AT AD MASTER TABLE ;RKO004 CLR ADFBC(R3) ; CLEAR FINAL BYTE COUNT ;**-1 CLR ADNXT(R3) ; CLEAR NEXT CONVERSION ADDRESS ; ; TOP OF PACKET LOOP. GET A CONTROL WORD AND INITIATE CONVERSION. ; CNVRT: CALL $GTCWD ; GET NEXT A/D CONTROL WORD ONTO STACK MOV (SP),R0 ; ...AND ALSO GET IT INTO R0 BIC #170000,R0 ; REMOVE GAIN BITS FROM R0 TO GET CHAN MOV S.IPC(R4),R3 ; GET MASTER AD TABLE ADDRESS ;RKO004 CMP R0,(R3) ; IS CHANNEL WITHIN LIMITS? ;**-1 BGT 10$ ; IF GT NO, ERROR ; ; LOCATE ADC ENTRY FOR THIS CONVERTER (IF 12-BIT: BITS 8-11 OF CHANNEL, ;RKO001 ; 14-BIT: BITS 5-11 OF CHANNEL). ;RKO001 ;RKO001 .IF DF I$$P14 ;ASSEMBLE IF 14 BIT A/D'S EXIST ;RKO001 MOV R0,R1 ;COPY A/D CHANNEL NUMBER (PREVENT CLOBBE;RKO001 SUB MINOMX,R1 ;TEST FOR NO MUX CONVERTER ;RKO001 BMI 2$ ;BRANCH IF ADC HAS MUXES. ;RKO001 ASR R1 ;OTHERWISE, STRIP OFF MUX #. ;RKO001 ASR R1 ;RKO001 ASR R1 ;RKO001 ASR R1 ;(NOW HAVE INDEX TO 1:128 POSSIBLE A020 ;RKO001 ;(WORD ALIGNED, BUT WITH GARBAGE BITS) ;RKO001 BIC #^C176,R1 ;CLEAR GARBAGE BITS. ** HB010 FIX ** ;RKO001 ;NOW, MUST MUST ADD A020 INDEX TO A020 BASE CONVERTER NUMBER ;RKO001 MOVB MINOMX+1,R2 ;GET MINIMUM A020 ENTRY NUMBER (MINOMX/2;RKO001 ASL R2 ;MAKE ENTRY NUMBER = TO WORD INDEX ;RKO001 ADD R2,R1 ;ADD A020 BASE ENTRY # TO A020 RELATIVE ;RKO001 ;TO GET RELATIVE A/D ENTRY NUMBER (WORD ;RKO001 .IF DF I$$PAD ;ASSEMBLE IF 12 & 14 BITTERS ;RKO001 BR 4$ ;REJOIN COMMON CODE. ;RKO001 .ENDC ;RKO001 ;RKO001 .ENDC ;RKO001 2$: ;RKO001 .IF DF I$$PAD ;ASSEMBLE IF 12 BIT A/D'S ;RKO001 ;RKO001 MOV R0,R1 ; COPY CHANNEL SO WE DONT CLOBBER IT ;**-2 SWAB R1 ; RIGHT-JUSTIFY ADC NO. ASL R1 ; MAKE IT INTO A WORD INDEX FOR TABLE BIC #^C37,R1 ; REMOVE GARBAGE BITS .ENDC ;RKO001 4$: ;RKO001 ADD #ADCONV,R1 ; INDEX INTO ADC POINTER LIST ADD R3,R1 ; ... MOV (R1),R1 ; R1 NOW POINTS AT A/D CONVERTER ENTRY BNE 15$ ; IF EQ NONE, BAD CHANNEL 10$: JMP ADMOD ; ERROR 15$: ; ; NOW VERIFY THE CHANNEL-WITHIN-MUX NUMBER AGAINST THE MAXIMUM ; CHANNEL ON THE SELECTED MUX ; .IF DF I$$PAD & I$$P14 CMPB ADTYP(R1),#ADI12 ; IS THIS A 12-BIT CONVERTER? BNE 20$ ; IF NE NO, MUST BE 14-BITTER .ENDC .IF DF I$$PAD MOV R0,R2 ; R2 WILL GET MUX # ASL R2 ; RIGHT-JUSTIFY MUX # ASL R2 ; ... ASL R2 ; ... SWAB R2 ; ... BIC #^C7,R2 ; R2 NOW HAS MUX NO. ADD R1,R2 ; POINT R2 AT MAX # CHANS FOR MUX ADD #ADMUX,R2 ; ... BIC #^C37,R0 ; ISOLATE CHANNEL IN R0 CMPB R0,(R2) ; IS THE CHANNEL LEGAL ON THE MUX? BHIS ADMOD ; IF HIS NO, ILLEGAL CHANNEL BIT #ILGAIN,(SP) ; IS THE GAIN AN ILLEGAL VALUE? BNE ADBAD ; IF NE YES, BAD GAIN BIC #7400,(SP) ; CLEAR ADC # FROM CONTROL WORD BIS #400,(SP) ; SET "GO" BIT IN CONTROL .ENDC .IF DF I$$PAD & I$$P14 BR ADUNBL ; RE-ENTER COMMON CODE .ENDC .IF DF I$$P14 20$: MOV R0,R2 ;COPY CONTROL WORD ;RKO001 BIC #^C37,R2 ;ISOLATE CHANNEL NUMBER. ;RKO001 CMPB R2,ADCHN(R1) ;IS CHANNEL # LEGAL? ;RKO001 BHIS ADMOD ;BRANCH TO ERROR IF TOO BIG ;RKO001 BIT #170000,(SP) ;IS GAIN PARAMETER = TO ZERO? ;RKO001 BNE ADBAD ; IF NE NO, ILLEGAL ;**-3 BIC #^C37,(SP) ;CLEAR ALL BUT CHANNEL IN CONTROL WORD ;RKO001 ;**-1 .ENDC ; ; IF CONVERTER ISN'T BUSY, START THE CONVERSION. ELSE SAVE DATA ; FOR LATER CONVERSION. ; ; AT THIS POINT, THE REGISTERS AND STACK ARE AS FOLLOWS: ; ; R1 -> ADC ENTRY, R3 -> A/D CONVERTER TABLE FOR UNIT, ; R4 -> SCB, R5 -> UCB ; 00(SP) = MODIFIED CONTROL WORD (READY TO ISSUE) ; 02(SP) = RETURN ADDRESS ; ADUNBL: MTPS #PR6 ;;; LOCK OUT DEVICE INTERRUPTS BIT #1,(R1) ;;; TEST DEVICE-BUSY FLAG BEQ 10$ ;;; IF EQ, NOT BUSY INCB ADFR(R3) ;;; BUSY, SET FORK REQUEST FLAG MOV R1,ADNXT(R3) ;;; SET PTR TO NEXT ADC ENTRY TO USE MOV (SP)+,ADNXC(R3) ;;; SAVE CONTROL WORD TO ISSUE BR XITPR0 ;;; RETURN TO CALLER, TRY LATER 10$: INC (R1) ;;; SET DEVICE BUSY BIT MTPS #0 ;;; AND THEN RE-ENABLE DEVICE INTERRUPTS ; ; HERE WE HAVE A CONVERSION TO INITIATE. CONTROL WORD IS ON THE ; STACK. ; MOV (R1),R2 ; R2 = ADDR+1 OF A/D CONVERTER INCB ADIP(R3) ; BUMP IN-PROGRESS COUNT .IF DF I$$PAD & I$$P14 CMPB ADTYP(R1),#ADI12 ; IS THIS A 12-BIT A/D? BNE 20$ ; IF NE NO, MUST BE 14 BITS .ENDC .IF DF I$$PAD MOV U.BUF(R5),ADUAD(R1) ; SAVE DATA BUFFER ADDRESS IN ENTRY MOV U.BUF+2(R5),ADUAD+2(R1) ; ...FOR BENEFIT OF INTERRUPTS MOVB (SP),2-1(R2) ; SELECT MUX AND CHANNEL SWAB (SP) ; POSITION GAIN AND GO BIT MOVB (SP)+,3-1(R2) ; PROGRAM GAIN AND MAKE IT GO! .ENDC .IF DF I$$PAD & I$$P14 BR FINAD ; GO FINISH UP WITH CONVERSION .ENDC .IF DF I$$P14 20$: MOV R1,R0 ; POINT R0 AT BFR ADDR TABLE ADD #ADUADS,R0 ; ... MOV #4,-(SP) ; PUSH LOOP COUNTER MTPS #PR6 ;;; LOCKOUT INTERRUPTS TO AVOID SHUFFLES 30$: TST 2(R0) ;;; IS THIS ENTRY IN USE? BEQ 40$ ;;; IF EQ NO, WE CAN USE IT ADD #4,R0 ;;; IN USE, BUMP POINTER DEC (SP) ;;; COUNT PASSES BGT 30$ ;;; LOOP IF NOT DONE ADD #-4,R0 ;;; TABLE FULL, CLOBBER LAST ENTRY ;;; ****NOTE**** ABOVE LOOP SHOULD NOT ;;; EXIT TO THIS INSTRUCTION UNLESS ;;; THERE IS A BUG OF SOME SORT CRASH ;;; CRASH SYSTEM SO WE FIND OUT ABOUT IT 40$: TST (SP)+ ;;; POP COUNT OFF STACK MOV U.BUF(R5),(R0)+ ;;; COPY USER BUFFER ADDR INTO TABLE MOV U.BUF+2(R5),(R0)+ ;;; ... MOVB (SP)+,2-1(R2) ; SELECT CHANNEL AND MAKE IT GO! ;**-1 BITB #200,3-1(R2) ; IS THAT THE LAST ONE IT CAN TAKE NOW? BNE 50$ ; IF NE YES, IT'S FULLY BUSY DEC (R1) ; NO, RESET BUSY BIT IN A/D ENTRY 50$: MTPS #0 ; NOW WE CAN RE-ALLOW INTERRUPTS ;RKO001 ;**-1 .ENDC ; ; THE CONVERSION HAS BEEN STARTED AND WILL INTERRUPT WITH DATA AT SOME ; FUTURE TIME. IN THE INTERIM, WE WILL STEP THE BUFFER ADDRESS, COUNT ; THE CONVERSION, AND ATTEMPT TO INITIATE ANOTHER CONVERSION. ; FINAD: MOVB S.ITM(R4),S.CTM(R4) ; ENABLE DEVICE TIMEOUT MOV R5,R2 ; GET UCB POINTER ADD #U.BUF+2,R2 ; POINT AT ADDR PART OF U.BUF ADD #2,(R2)+ ; BUMP THE BUFFER POINTER DEC (R2) ; DECREMENT WORD COUNT (U.CNT) BLE ADOK ; IF DONE, GO FINISH THINGS UP .IF DF M$$MGE BIT #20000,-(R2) ; TEST FOR 4K OVERFLOW OF ADDR BEQ 60$ ; IF EQ, NO OVFLW: INITIATE NEW CNVRT BIC #20000,(R2) ; OVERFLOW: RESET TO APR6 OFFSET ADD #200,-(R2) ; AND ADJUST ADDRESS BIAS .ENDC 60$: JMP CNVRT ; GO INITIATE A NEW CONVERSION IF POSS. ; LINKAGES TO OUT-OF-RANGE BRANCHES ; PCMOD1: JMP PCSMOD PCSPC1: JMP PCSSPC ; EXIT CONDITIONS -- ENTERED WITH R4 -> SCB, R5 -> UCB, R3 -> A/D ; CONVERTER TABLE ENTRY, 0(SP) = CONTROL WORD, 2(SP) = RETURN ; ADMOD: MOV #IE.MOD&377,R0 ; IE.MOD = BAD CHANNEL NUMBER BR ADPOP ADBAD: MOV #IE.BAD&377,R0 ; IE.BAD = BAD GAIN CODE ADPOP: TST (SP)+ ; POP CONTROL WORD FROM STACK BR ADFORK ; GO SEE ABOUT FORKING ; EXIT POINTS BELOW HERE HAVE THE SAME REGISTERS, BUT THE STACK ; HAS ALREADY BEEN CLEANED. ; ADOK: MOV #IS.SUC&377,R0 ; SET SUCCESS CODE ADFORK: MTPS #PR6 ;;; LOCK OUT DEVICE INTERRUPTS ASSUME ADFR&1,EQ,0 ;;; ASSUME ADIP,EQ,ADFR+1 ;;; MOV ADFR(R3),R2 ;;; ****NOTE**** THAT THIS WORD CONTAINS ;;; BOTH ADFR AND ADIP, SO WE ARE ;;; ACTUALLY TESTING BOTH AT ONCE! IF ;;; EITHER IS NONZERO, THERE IS STILL ;;; AT LEAST ONE INTERRUPT PENDING, SO ;;; WE CAN'T FINISH THE PACKET YET. BEQ 20$ ;;; IF EQ, NOTHING IS PENDING INCB ADFR(R3) ;;; PENDING, ENSURE WE WILL FORK 20$: MTPS #0 ;;; RE-ENABLE DEVICE INTERRUPTS MOV R0,ADSTS(R3) ; SAVE RETURN STATUS FOR LATER TST R2 ; ANY INTERRUPTS PENDING? BEQ ADRLSP ; IF EQ NO, WE CAN RELEASE PACKET XITPR0: MTPS #0 ;;; RE-ENABLE DEVICE INTERRUPTS RETURN ; RETURN TO OUR CALLER ; ; COME HERE WHEN THE I/O PACKET IS COMPLETELY FINISHED AND THERE ARE ; NO MORE INTERRUPTS PENDING. R3, R4, AND R5 ARE AS ABOVE IN EXITS. ; ADRLSP: MOV ADFBC(R3),R1 ; GET COUNT OF SUCCESSFUL CONVERSIONS MOV ADSTS(R3),R0 ; GET FINAL REQUEST STATUS CALL $IODON ; FINISH THE PACKET OFF JMP ADGPK ; GO TRY TO FIND ANOTHER PACKET. .ENDC ; (I$$PAD!I$$P14) .PAGE .SBTTL PCS INTERRUPT SERVICE .ENABL LSB ;+ ; **- PCS INTERRUPT SERVICE ;- $IPINT:: ;;; REF .IF DF I$$PAD!I$$P14!I$$PCO!I$$PDI!I$$PTI INTSV$ IP,PR6,N$$PCS,TMP ;;; SAVE R4,R5 AND CONTROLLER INDEX .IF GT MOV R4,TMP ;;; STORE CONTROLLER INDEX .IFTF MOV U.SCB(R5),R4 ;;; GET SCB ADDRESS .IF DF I$$PUN MOV TMP,R5 ;;; SCB MAY HAVE WRONG CSR ADDRESS, SO MOV PCSBAS(R5),R5 ;;; ..CALCULATE IT FROM TABLE OF BASE BIS #377,R5 ;;; ..ADDRESSES .IFF MOV S.CSR(R4),R5 ;;; GET CSR ADDRESS .ENDC TSTB (R5) ;;; VERIFY THAT READY BIT IS SET BPL 5$ ;;; ERROR-DISMISS INTERRUPT JSR R3,SAVER ;;; SAVE R3-R0 (CO-ROUTINE) MOVB$C -1(R5),R3 ;;; READ IAR CONTENTS MOV R3,-(SP) ;;; ..AND SAVE MODULE OFFSET .IFT MOV TMP,R1 ;;; GET CONTROLLER NUMBER ADD PCSBAS(R1),R3 ;;; GET BASE ADDRESS OF CONTROLLER .IFF ADD PCSBAS,R3 ;;; CONTROLLER=0 .ENDC BISB #GBIT,(R5) ;;; SET GENERIC CODE MOVB$C (R3),R0 ;;; READ GENERIC CODE BICB #GBIT,(R5) ;;; CLEAR CALL FGCENT ;;; FIND GENERIC CODE TBL ENTRY (R2) BCS 10$ ;;; BCS IF FOUND IT BISB #RIF,(R5) ;;; CLEAR INTERRUPT TSTB (R3) ;;; ... IPDISP: TST (SP)+ ;;; OOPS-ERROR 5$: RETURN ;;; DISMISS INTERRUPT 10$: MOVB GCMOD(R2),R0 ;;; GET MODULE TYPE MOV R0,R1 ;;; MODULE TYPE TO R1 ASL R1 ;;; MAKE WORD INDEX JMP @IPSERV-2(R1) ;;; GO TO INT SRV FOR MODULE TYPE .PAGE .SBTTL DIGITAL MODULE INTERRUPT SERVICE .DSABL LSB .ENABL LSB .IF DF I$$PCO ;+ ; **- COSSRV = CHANGE OF STATE DIGITAL INTERRUPT SERVICE ;- ; R0 = MODULE TYPE, R4 = SCB, R5 = CSR ; (SP) = IAR CONTENTS ; PROCESSOR AT PCS PRIORITY ; COSSRV: MOVB$C 2(R3),R2 ;;; READ COS DATA BEFORE CLEARING BISB #RIF,(R5) ;;; CLEAR INTERUUPT CLR R1 ;;; CLEAR R1 BISB (R3),R1 ;;; READ DATA AND CLEAR INTERRUPT MOV S.CI(R4),R5 ;;; GET ADDR OF UNSOLICITED INT TABLE .IF DF I$$PDI JMP COMSRV ;;; GO TO COMMON HANDLER .ENDC .ENDC ;;; (I$$PCO) .IF DF I$$PDI ;+ ; **- DSISRV = DIGITAL SENSE INTERRUPT MODULE SERVICE ;- ; ; R0 = MODULE TYPE, R3 = MODULE ADDRESS, R4 = SCB ; R5 = CSR, (SP) = IAR CONTENTS ; PS AT PR6 ; DSISRV: BISB #RIF,(R5) ;;; CLEAR INTERRUPT CLR R1 ;;; CLEAR R1 BISB (R3),R1 ;;; READ DATA AND CLEAR INTERRUPT MOV S.SI(R4),R5 ;;; GET ADR OF UNSOLICITED INT TABLE MOV #377,R2 ;;; GET FAKE COS DATA ; ; CALCULATE RELATIVE BYTE OFFSET FOR THIS INPUT ; TST S.COS(R4) ;;; SEE IF A HISTORY TABLE EXISTS BEQ 3$ ;;; ...NO, COS=377 MOV R3,-(SP) ;;; SAVE WORK REG'S MOV R1,-(SP) ;;; .. MOVB$C 4(SP),R1 ;;; COPY BYTE OFFSET MOV R0,R2 ;;; .AND MODULE TYPE .IF GT N$$PCS-1 MOV TMP,R3 ;;; GET CONTROLLER INDEX .IFF CLR R3 ;;; CONTROLLER INDEX .ENDC CALL PH2REL ;;; CALCULATE RELATIVE OFFSET BCC 5$ ;;; LEGAL CMP (SP)+,(SP)+ ;;; ILLEGAL-CLEAR STACK BR IPDISP ;;; EXIT ; 3$: JMP COMSRV ;;; GO TO COMMON HANDLER ; NOW SAVE CURRENT VALUE IN HISTORY TABLE AND CALCULATE WHICH ; BITS HAVE CHANGED STATE SINCE THE LAST INTERRUPT. ; 5$: ADD S.COS(R4),R3 ;;; GET ADDRESS OF SAVED BYTE MOVB$C (R3),R2 ;;; GET LAST SAVED BYTE MOV (SP),R1 ;;; GET CURRENT VALUE OF DATA MOVB R1,(R3) ;;; ..AND SAVE IN THE TABLE SLOT BIC R2,(SP) ;;; FOLLOWING THREE INSTRUCTIONS ARE XOR BIC R1,R2 ;;; ..TO GET BITS WHICH HAVE CHANGED BIS (SP)+,R2 ;;; ..SINCE LAST INTERRUPT IN R2 MOV (SP)+,R3 ;;; RESTORE R3 .ENDC .IF DF I$$PTI BR COMSRV ; BRANCH TO COMMON SERVICE .PAGE .SBTTL COUNTER INTERRUPT SERVICE ROUTINE ; ;+ ; **- C08SRV = 8-BIT INPUT COUNTER INTERRUPT HANDLING ;- ; ; R0 = MODULE TYPE, R3 = MODULE ADDRESS, R4 = SCB ; R5 = CSR, (SP) = IAR CONTENTS ; PS = PR6 ; C08SRV: BISB #RIF,(R5) ;;; CLEAR INTERRUPT CLR R1 ;;; CLEAR R1 BISB (R3),R1 ;;; READ STATUS AND CLEAR INTERRUPT MOV R0,-(SP) ;;; SAVE MODULE TYE CLR R2 ;;; SET TO CALC DEVICE NO. MOV #20,R0 ;;; SET TO CHECK FOR REL DEVICE 0 C10$: BIT R0,R1 ;;; THIS ONE INTERRUPT? BNE C20$ ;;; IF NE YES - GO READ IT INC R2 ;;; SET FOR NEXT ASL R0 ;;; REPOSITION BIT BR C10$ ;;; CHECK NEXT C20$: BISB R2,(R3)+ ;;; SELECT COUNTER CLR R1 ;R1 WILL HOLD COUNTER DATA ;RKO005 BISB (R3),R1 ;;; READ COUNTER MOV (SP)+,R0 ;;; RESTORE R0 BR CTISRV ;;; BRANCH TO COMMON COUNTER PROCESSING ; ; ; ;+ ; **- C16SRV - 16-BIT COUNTER INTERRUPT SERVICE HANDLING ;- ; ; R0 = MODULE TYPE, R3 = MODULE ADDRESS, R4 = SCB ; R5 = CSR, (SP) = IAR CONTENTS ; PS = PR6 ; C16SRV: BISB #RIF,(R5) ;;; CLEAR INTERRUPT ENABLE CLR R1 ;;; CLEAR R1 BISB 1(R3),R1 ;;; READ HIGH ORDER BYTE FIRST SWAB R1 ;;; POSITION IT BISB (R3),R1 ;;; READ LOW BYTE MOV R0,R2 ;;; SET R2 FOR RESOURCE CHECKS ; ;+ ; **- CTISRV - COMMON COUNTER INTERRUPT SERVICE PROCESSING ;- ; CTISRV: MOV S.TI(R4),R5 ;;; UNSOLICITED INTERRUPT TABLE ADDRESS MOV R2,-(SP) ;;; SAVE OFFSET/MODULE TYPE AND.. MOV R0,-(SP) ;;; MODULE TYPE CLR RUN ;;; CLEAR FORK PROCESS FLAG .IF DF I$$PUN MOV TMP,R0 ;;; GET CONTROLLER INDEX ASL R0 ;;; MAKE IT A DOUBLE INDEX ADD R5,R0 ;;; AND USE TO BIAS UNSOL INT TBL ADDR .IFF MOV R5,R0 ;;; COPY UNSOL INT TABLE ADDR .ENDC ADD #IMLH,R0 ;;; GET RESOURCE LINKAGE LISTHEAD B10$: MOV (R0),R0 ;;; GET FIRST/NEXT LINKAGE LISTHEAD BEQ B50$ ;;; END OF LIST OR NO LINKAGE CMPB 4(SP),ILPBA(R0) ;;; RESOURCE LIST FOR THIS DEVICE? BNE B10$ ;;; IF NE NO CHECK NEXT CMPB R2,ILRES(R0) ;;; FOR THIS DEVICE WITHIN DEVICE? BNE B10$ ;;; IF NE NO CHECK NEXT INCB ILRUN(R0) ;;; FLAG LINKAGE INC RUN ;;; FORK PROCESS NEEDED MOV ILTE(R0),R3 ;;; GET TASK LINKAGE ENTRY ADDRESS ADD #LACT,R3 ;;; POINT TO ACTIVATION ENTRY TST (R3) ;;; CHECK ACTIVATION COUNT BNE B30$ ;;; TABLE IN USE INC (R3)+ ;;; SET IN USE NOW .IF GT N$$PCS-1 MOV TMP,(R3)+ ;;; SAVE CONTROLLER INDEX .IFF CLR (R3)+ ;;; CONTROLLER INDEX=0 .IFTF MOV (SP),(R3)+ ;;; STORE MODULE TYPE MOV ILREL(R0),(R3)+ ;;; STORE RELATIVE DEVICE NUMBER MOV R1,(R3)+ ;;; STORE DATA WORD BR B40$ ;;; CHECK NEXT LINKAGE ; ; B30$: DEC (R3) ;;; TABLE IN USE - FLAG OVERFLOW BMI B40$ ;;; ALREADY MISSED ONE DEC (R3) ;;; SET COUNT NEGATIVE ; ; PROCEED WITH NEXT RESOURCE LINKAGE ; B40$: MOV 2(SP),R2 ;;; RESTORE R2 BR B10$ ;;; UNLINK NEXT ; ; DONE WITH RESOURCE LINKAGES. TEST FOR CONNECTED BUFFER. ; R1 = DATA BYTE, R4 = SCB, R5 = UNSOLICITED INTERRUPT TABLE ; (SP) = MODULE TYPE, 2(SP) = OFFSET/MTYP, 4(SP) = IAR CONTENTS ; B50$: TST IMTCB(R5) ;;; CIRCULAR BUFFER CONNECTED? BEQ B80$ ;;; IF EQ NO MOV (SP),R2 ;;; GET MODULE TYPE ASL R2 ;;; MAKE WORD INDEX MOV $BTMSK(R2),R2 ;;; GET MODULE TYPE MASK BIT R2,IMTYP(R5) ;;; IS THIS MODULE TYPE CONNECTED? BEQ B80$ ;;; IF EQ NO MOV (SP),R2 ;;; GET MODULE TYPE CLR -(SP) ;;; SAVE SPOT FOR REL ENTRY MOV R1,-(SP) ;;; SAVE DATA MOV 10(SP),R1 ;;; RETRIEVE IAR .IFT MOV TMP,R3 ;;; GET CONTROLLER INDEX .IFF CLR R3 ;;; CONTROLLER INDEX=0 .ENDC CALL PH2REL ;;; CONVERT PHYSICAL TO RELATIVE ENTRY BCS B70$ ;;; IF C-SET MODULE NOT MAPPED CMPB #IN08,IPMMOD(R2) ;;; 8-BIT COUNTER? BNE B60$ ;;; IF NE NO ADD 6(SP),R3 ;;; YES ADD IN OFFSET FOR DEVICE WITHIN DEVICE B60$: MOV R3,2(SP) ;;; SAVE RELATIVE ENTRY NUMBER CLR -(SP) ;;; ADD EXTRA ARGUMENT MOV #1,-(SP) ;;; SET EXISTENCE INDICATOR MOV SP,R1 ;;; COPY POINTER TO CB DATA BR COMSV1 ;;; BRANCH TO COMMON SERVICE B70$: JMP 94$ ;;; EXIT B80$: JMP 95$ ;;; OUT OF RANGE BRANCH .ENDC .IF DF I$$PDI!I$$PCO!I$$PTI ; ; COMMON DIGITAL MODULE INTERRUPT SERVICE ; COMSRV: MOV R2,-(SP) ;;; SAVE COS, MOD TYPE MOV R0,-(SP) ;;; ... CLR RUN ;;; CLEAR FORK PROCESS FLAG .IF DF I$$PUN MOV TMP,R0 ;;; GET CONTROLLER INDEX ASL R0 ;;; MAKE IT A DOUBLE INDEX ADD R5,R0 ;;; AND USE TO BIAS UNSOL INT TABLE ADDR .IFF MOV R5,R0 ;;; COPY UNSOL INT TABLE ADDR .ENDC ADD #IMLH,R0 ;;; GET RESOURCE LINKAGE LISTHEAD 10$: MOV (R0),R0 ;;; GET FIRST/NEXT RESOURCE LINK BEQ 55$ ;;; ..END OF LIST=NO RESOURCE LINK CMPB 4(SP),ILPBA(R0) ;;; TEST PHYS ADDR TO SEE IF THIS IS THE BNE 10$ ;;; ..RIGHT BYTE, IF NE, NOT. BITB R2,ILRES(R0) ;;; RIGHT BYTE--SEE IF RIGHT RESOURCE BEQ 10$ ;;; ..NO COMMON BITS ; ; GOT THE RIGHT LINKAGE (OR, A RIGHT LINKAGE, THERE COULD BE MORE THAN ; ONE). ISOLATE COMMON BITS AND ACTIVATE THE LINKAGE. ; MOVB ILRES(R0),R3 ;;; GET BITS THAT APPLY TO THE LINKAGE COMB R3 ;;; TRANSFORM THEM TO A MASK BICB R3,R2 ;;; AND EXCLUDE NON-RELEVANT BITS FROM INCB ILRUN(R0) ;;; THE INTERRUPT. FLAG LINKAGE. INC RUN ;;; FORK PROCESS WILL BE NEEDED .IF DF I$$PEF BIT #1,ILTE(R0) ;;; TEST EVENT FLAG LINKAGE BEQ 20$ ;;; ..IF EQ, NOT BISB R2,ILCOS(R0) ;;; .OR. INT BITS TO INDICATE EF'S TO SET BR 50$ ;;; AND PROCEED. .ENDC 20$: MOV ILTE(R0),R3 ;;; TASK LINKAGE-GET TASK LINK ENTRY ADDR ADD #LACT,R3 ;;; POINT TO ACTIVATION SECTION TST (R3) ;;; CHECK ACTIVATION COUNT BNE 30$ ;;; TABLE IN USE INC (R3)+ ;;; NOT IN USE--FLAG IT. .IF GT N$$PCS-1 MOV TMP,(R3)+ ;;; SAVE CONTROLLER INDEX .IFF CLR (R3)+ ;;; CONTROLLER INDEX=0 .IFTF MOV (SP),(R3)+ ;;; STORE MODULE TYPE MOV ILREL(R0),(R3)+ ;;; STORE RELATIVE ENTRY NUMBER MOV R1,(R3)+ ;;; STORE DATA BYTE MOV R2,(R3) ;;; STORE COS BYTE BR 50$ ;;; GO CHECK NEXT LINKAGE ; 30$: DEC (R3) ;;; TABLE IN USE. FLAG OVERFLOW. BMI 50$ ;;; IF MI ALREADY MISSED AT LEAST ONE DEC (R3) ;;; SET COUNT NEGATIVE ; ; PROCEED WITH NEXT RESOURCE LINKAGE. ; 50$: MOV 2(SP),R2 ;;; RESTORE COS BYTE BR 10$ ;;; UNLINK NEXT ; ; DONE WITH RESOURCE LINKAGES. TEST FOR CONNECTED BUFFER. ; R1 = DATA BYTE, R4 = SCB, R5 = UNSOLICITED INTERRUPT TABLE ; (SP) = MODULE TYPE, 2(SP) = COS, 4(SP) = IAR CONTENTS ; 55$: TST IMTCB(R5) ;;; TEST FOR BUFFER BEQ 95$ ;;; ..NONE MOV (SP),R2 ;;; GET MODULE TYPE CLR -(SP) ;;; SAVE SPOT FOR REL ENTRY MOV R1,-(SP) ;;; SAVE DATA MOV 10(SP),R1 ;;; PHYSICAL BYTE OFFSET .IFT ;;; (N$$PCS>1) MOV TMP,R3 ;;; GET CONTROLLER INDEX .IFF CLR R3 ;;; CONTROLLER INDEX .ENDC ;;; (N$$PCS>1) CALL PH2REL ;;; CONVERT PHYS TO RELATIVE ENTRY BCS 94$ ;;; ERROR-MODULE NOT MAPPED MOV R3,2(SP) ;;; SAVE RELATIVE ENTRY MOV 6(SP),R3 ;;; GET COS BYTE MOV R3,-(SP) ;;; GOT CIRC BUF ENTRY ON STACK MOV #1,-(SP) ;;; SET EXISTENCE INDICATOR MOV SP,R1 ;;; COPY POINTER TO CB DATA COMSV1: ;;; COMMON INTERRUPT SERVICE ENTRY ;;; FOR ALL NON-A/D INTERRUPTING MODULES .IF DF M$$MGE MOV KISAR6,-(SP) ;;; SAVE CURRENT MAP MOV IMCBF(R5),KISAR6 ;;; MAP TO USER BUFFER .IFTF MOVB IMBPE(R5),R2 ;;; GET #BYTES/ENTRY ASR R2 ;;; MAKE THAT #WORDS/ENTRY MOV IMCUR(R5),R0 ;;; CURRENT BUFFER POINTER TST (R0) ;;; TEST IN-USE FLAG BEQ 59$ ;;; ..BUFFER IS FREE CMP IMLST(R5),#100001 ;;; ..BUF BUSY-TEST LOST DATA OVFLO BEQ 58$ ;;; ..OVERFLOW DEC IMLST(R5) ;;; STEP LOST DATA COUNT 58$: MOV IMLST(R5),(R0) ;;; COPY LOST COUNT TO BUFFER BR 90$ ;;; FINISH UP ; ; TRANSFER DATA INTO CIRCULAR BUFFER ENTRY ; 59$: CLR IMLST(R5) ;;; RESET LOST DATA COUNT 60$: MOV (R1)+,(R0)+ ;;; MOVE A WORD INTO CIRCULAR BUFFER .IFT ;;; (M$$MGE) BIT #20000,R0 ;;; TEST FOR 4K BOUNDARY BEQ 80$ ;;; ..NOT THERE YET BIC #20000,R0 ;;; BACK IT UP 4K ADD #200,KISAR6 ;;; BY ADJUSTING RELOCATION BIAS ADD #200,IMCBF(R5) ;;; ... .IFTF 80$: INC IMFIL(R5) ;;; INCREMENT FILL INDEX CMP IMLGH(R5),IMFIL(R5) ;;; CHECK BOUNDS OF BUFFER BHIS 85$ ;;; ..NOT AT END MOV #3,IMFIL(R5) ;;; WRAP TO TOP OF BUFFER MOV IMSDA(R5),R0 ;;; ... .IFT MOV IMSBF(R5),IMCBF(R4) ;;; WRAP RELOC BIAS MOV IMCBF(R5),KISAR6 ;;; ... .IFTF 85$: DEC R2 ;;; KEEP COUNT OF DATA TRANSFERRED BGT 60$ ;;; NEXT ITEM MOV R0,IMCUR(R5) ;;; DONE. SAVE CURRENT ADDRESS. .IFT MOV IMSBF(R5),KISAR6 ;;; RESET TO START OF BUF .IFTF MOV IMFIL(R5),@IMSAD(R5) ;;; RESET FILL INDEX INC RUN ;;; SET FORK PROCESS FLAG 90$: ;;; REFERENCE .IFT MOV (SP)+,KISAR6 ;;; RESTORE ORIGINAL MAP .ENDC ;;; (M$$MGE) MOV (SP)+,(SP)+ ;;; CLEAN STACK 94$: MOV (SP)+,(SP)+ ;;; POP 2 95$: ADD #6,SP ;;; CLEAN REST OF STACK TST RUN ;;; CHECK FORK FLAG BEQ 200$ ;;; ..NO FORK PROCESS NEEDED. .PAGE .SBTTL DIGITAL INTERRUPT FORK PROCESSING ; ; FORK PROCESS REQUIRED - TAKE CARE NOT TO CALL IT TWICE ; TSTB IMFIP(R5) ;;; CHECK FORK-IN-PROGRESS FLAG BEQ 200$ ;;; ..ALREADY QUEUED CLRB IMFIP(R5) ;;; SET FORK-IN-PROGRESS MOV R5,R4 ;;; COPY UNSOL INT ADDR ADD #IMFRK+6,R4 ;;; POINT TO FORK BLOCK CALL $FORK1 ;;; ENTER FORK QUEUE INCB IMFIP(R5) ; RESET FORK-IN-PROGRESS FLAG ; ; ACTIVATE ANY FLAGGED RESOURCE LINKS ; MOV IMSCB(R5),R4 ; RESTORE SCB .IF DF I$$PUN CLR -(SP) ; INIT CONTROLLER INDEX .IFTF ; (I$$PUN) 100$: MOV R5,R3 ; GET LISTHEAD FOR RESOURCE LINKS ADD #IMLH,R3 ; ... .IFT ; (I$$PUN) ADD (SP),R3 .IFTF ; (I$$PUN) 105$: MOV (R3),R3 ; GET FIRST/NEXT LINKAGE BNE 110$ ; GOT ONE .IFT ; (I$$PUN) CMP (SP),#<4*> ; TEST FOR END OF CONTROLLER LIST BHIS 145$ ; ..DONE ADD #4,(SP) ; ..NEXT BR 100$ ; ... .IFF ; (I$$PUN) BR 150$ ; DONE .ENDC ; (I$$PUN) ; ; GOT AN ENTRY. SEE IF IT'S FLAGGED. IF SO, SET EVENT FLAG AND ACTIVATE ; TASK (IF APPROPRIATE) ; 110$: TSTB ILRUN(R3) ; CHECK ACTIVATION FLAG BEQ 105$ ; ..NOT SET--TRY NEXT LINKAGE CLRB ILRUN(R3) ; RESET MOV R3,-(SP) ; PRESERVE LINKAGE POINTER .IF DF I$$PEF BIT #1,ILTE(R3) ; CHECK IF LINKED EVENT FLAG BEQ 130$ ; BEQ IF NOT ; ; THIS IS AN EVENT FLAG LINKAGE. SET EVENT FLAG FOR EACH BIT SET IN ; ILCOS. ; MOV R5,-(SP) ; SAVE R5, EF FOR BIT 0 MOV ILEVM(R3),-(SP) ; ... MOV ILEVA(R3),R5 ; GET TCB ADDRESS CLR -(SP) ; INIT TEMP FOR COS MTPS #PR6 ;;; LOCK OUT CHANGE ON COS BYTE MOVB ILCOS(R3),(SP) ;;; GET INTERRUPTING BITS CLRB ILCOS(R3) ;;; RESET THE FLAG MTPS #0 ; RESTORE INT'S TSTB (SP) ; SEE IF ANY BITS CHANGED BEQ 125$ ; NO 115$: ASR (SP) ; TEST FOR SET BIT BCC 120$ ; ..NOT THIS ONE MOV 2(SP),R0 ; BIT IS SET--SET THE EVENT FLAG CALL $CEFI ; CONVERT TO MASK AND ADDRESS BIS R0,(R1) ; SET EVENT FLAG MOV R5,R0 ; COPY TCB BNE 118$ ; IF NE, LOCAL EVENT FLAGS INVOLVED CALL $DRDSE ; GLOBAL EF'S ONLY-DECLARE SIG EVENT BR 120$ ; ... 118$: CALL $SETCR ; CONDITIONALLY SCHEDULE TASK 120$: TST (SP) ; SEE IF ANYTHING LEFT BEQ 125$ ; ..NO INC 2(SP) ; ..YES, NEXT EVENT FLAG BR 115$ ; CONTINUE 125$: MOV (SP)+,(SP)+ ; CLEAN STACK MOV (SP)+,R5 ; CLEAN STACK, RESTORE R5 127$: MOV (SP)+,R3 ; ... BR 105$ ; NEXT LINKAGE .ENDC ; (I$$PEF) ; ; HANDLE ACTIVATION OF LINKED TASK ENTRY ; 130$: MOV ILTE(R3),R0 ; GET LINKED TASK ENTRY ADDR MOV LTCB(R0),R0 ; GET TCB ADDRESS MOV T.STAT(R0),R1 ; GET CURRENT TASK STATUS BIT #TS.EXE,R1 ; IS TASK ACTIVE? BNE 140$ ; ..NO BIT #T2.ABO,T.ST2(R0) ; IS TASK BEING ABORTED? BNE 142$ ; ..YES, IGNORE IT ;MSH026 .IF DF R$$MPL ;MSH026 ;MSH026 MOV T.PCB(R0),R2 ;GET TASK'S PCB ;MSH026 BIT #PS.OUT,P.STAT(R2) ;IS TASK OUT OF MEMORY? ;MSH026 BEQ 135$ ;IF EQ NO, ACTIVATE IT ;MSH026 BIT #PS.CKP,P.STAT(R2) ;IS TASK CHECKPOINTED? ;MSH026 ;MSH026 .IFF ;R$$MPL ;MSH026 ;MSH026 BIT #TS.OUT,R1 ; IS TASK OUT OF MEMORY? BEQ 135$ ; ..NO, ACTIVATE IT BIT #TS.CKP,R1 ; ..YES, IS IT CHECKPOINTED? ;MSH026 .ENDC ;R$$MPL ;MSH026 ;MSH026 BEQ 142$ ; ..NO, IGNORE IT 135$: MOV ILEVA(R3),R2 ; GET ADDRESS OF EF MASK BEQ 142$ ; ..NO EVENT FLAG TO SET BIS ILEVM(R3),(R2) ; SET THE EVENT FLAG CALL $SETCR ; CONDITIONALLY SCHEDULE TASK BR 142$ ; NEXT ; ; TASK IS NOT ACTIVE. REQUEST IT. ; 140$: CLR R1 ; SET DEFAULT UIC CALL $TSKRT ; REQUEST TASK 142$: MOV (SP)+,R3 ; CLEAN STACK BR 105$ ; NEXT MESSAGE ; ; DONE WITH RESOURCE LINKAGE ACTIVATION. ; ACTIVATE TASK IF ATTACHED TO CIRCULAR BUFFER. ; .IFDF I$$PUN 145$: TST (SP)+ ; CLEAR CONTROLLER INDEX FROM STACK .ENDC 150$: MOV IMTCB(R5),R0 ; GET TCB ADDR OF TASK CONNECTED BEQ 200$ ; ..NO CONNECTED TASK BIS IMEVM(R5),@IMEVA(R5) ; SET EVENT FLAG CALL $SETCR ; CONDITIONALLY SCHEDULE TASK 200$: RETURN ; EXIT ISR .ENDC ; (I$$PCO!I$$PDI!I$$PTI) .IF DF I$$PAD!I$$P14 .DSABL LSB .PAGE .SBTTL A/D CONVERTER INTERRUPT PROCESSING ; ;+ ; **- ADSRV1 - COMMON A/D SERVICE ROUTINE ;- ; ; R0 = MODULE TYPE, R3 = MODULE ADDRESS, R4 = SCB ; R5 = CSR, (SP) = IAR CONTENTS ; PS AT PR6 ; ADSRV1: MOVB$C (R3)+,R2 ;;; A/D INPUT, READ LOW-ORDER DATA ;RKO003 SWAB R2 ;;; MAKE SPACE FOR HIGH-ORDER DATA ;**-1 BISB (R3)+,R2 ;;; PICK UP HIGH ORDER BYTE SWAB R2 ;;; PUT LOW ORDER BYTE IN LOW ORDER BYTE! CLR R1 ;;; CLEAR R1 BISB (R3)+,R1 ;;; PICK UP ADI14'S CHANNEL NO. SWAB R1 ;;; PUT IN HIGH ORDER BYTE BISB #RIF,(R5) ;;; CLEAR INTERRUPT BISB (R3),R1 ;;; READ DATA AND CLEAR INTERRUPT CMPB #ADI14,R0 ;;; 14-BIT A/D? BEQ A14SRV ;;; YES BRANCH TO 14-BIT SERVICE ROUTINE .ENDC .IF DF I$$PAD ;+ ; **- A12SRV - 12-BIT A/D INTERRUPT SERVICE ;- ; ; R0 = MODULE TYPE, R1 = STATUS BITS (LOW BYTE), R2 = MODULE DATA, ; R4 -> SCB, R5 -> PCS CSR, 0(SP) = IAR ; CONTENTS, 2(SP) = RETURN ADDRESS ; ; PROCESSOR IS AT PCS PRIORITY ; A12SRV: ASL R2 ;;; LEFT-JUSTIFY DATA ASL R2 ;;; ... ASL R2 ;;; ... ASL R2 ;;; ... SUB #100000,R2 ;;; CONVERT FROM EXCESS-100000 TO TWO'S ;;; ..COMPLEMENT FORMAT BIT #14,R1 ;;; ANY ERRORS? BEQ ADSRV ;;; IF EQ, NONE MOV #-1,R2 ;;; YES, SET DATA TO -1 TO FLAG .IF DF I$$P14 BR ADSRV ;;; ...AND GO ENTER COMMON SERVICE .ENDC .ENDC ;;; (I$$PAD) A14SRV: ; REFERENCE LABEL .IF DF I$$P14 ;+ ; **- A14SRV - 14-BIT A/D INTERRUPT SERVICE ;- ; ; R0 = MODULE TYPE, R1 = STATUS BITS (LOW BYTE), CHANNEL INFO (HIGH ; BYTE), R2 = MODULE DATA, R4 -> SCB, R5 -> PCS CSR, ; 0(SP) = IAR CONTENTS, 2(SP) = RETURN ADDRESS ; ; PROCESSOR IS AT PCS PRIORITY ; ASL R2 ;;; LEFT-JUSTIFY DATA, TEST OVERRANGE BCC 10$ ;;; IF CLEAR, NOT OVERRANGE BIS #77777,R2 ;;; IF OVERRANGE, MAKE MAX POSS. VALUE 10$: BPL 20$ ;;; IF DATA IS POSITIVE, DON'T FUDGE BIC #100000,R2 ;;; NEG. DATA, CONVERT SIGN/MAGNITUDE TO NEG R2 ;;; ..TWO'S COMPLEMENT FORM 20$: BIT #14,R1 ;;; ANY ERRORS? BEQ ADSRV ;;; IF EQ NO, DON'T FUDGE DATA MOV #-1,R2 ;;; SET DATA TO -1 TO FLAG ERROR BIT #10,R1 ;;; DID DATA OVERRUN? BEQ ADSRV ;;; IF EQ, NO MOV #-3,R2 ;;; YES, FLAG OVERRUN WITH SPCL VALUE .ENDC ; (I$$P14) .IF DF I$$PAD ! I$$P14 ; ; COME HERE AFTER WE HAVE DONE PRELIMINARY CONVERTER-SPECIFIC ; PROCESSING. AT THIS POINT, R2 HAS THE CONVERTED DATA, READY FOR ; PASSING ON TO THE USER. IF AN ERROR HAS OCCURRED, R2 HAS BEEN SET ; TO -1 OR -3. IF THE DATA WAS OVERRANGE ON A 14-BIT CONVERTER, R2 HAS ; BEEN SET TO THE MAXIMUM POSITIVE NUMBER OR ITS NEGATIVE (+/- 32767). ; SINCE THE MAXIMUM DATA WIDTH IS 14 BITS PLUS SIGN, VALID DATA CAN ; NEVER BE -1 OR -3. THIS FACT IS USED LATER WHEN TESTING FOR ERRORS. ; ADSRV: .IF GT MOV TMP,R0 ;;; GET CONTROLLER INDEX IN R0 MOVB PCSBAS+1(R0),1(SP) ;;; MAKE 0(SP) BE PHYSICAL ADDRESS .IFF MOVB PCSBAS+1,1(SP) ;;; MAKE 0(SP) BE PHYSICAL ADDRESS .ENDC MOV S.IPC(R4),R3 ;;; POINT AT AD CONVERTER TABLE ;RKO004 BEQ NOSUCH ;;; IF EQ, THERE AIN'T ANY ;**-1 TSTB ADIP(R3) ;;; ANY CONVERSIONS GOING? BEQ NOSUCH ;;; IF EQ, NO - DISMISS INTERRUPT ADD #ADCONV,R3 ;;; POINT R3 AT ADC ENTRY PTR LIST MOV #ADNCNV,R0 ;;; SET UP LOOP COUNTERS ;RKO001 ;**-1 .IF DF I$$P14 .IFF INC (SP) ;;; SET BUSY BIT SO IT CAN MATCH TABLE 10$: CMP (SP),@(R3)+ ;;; IS THIS THE RIGHT ENTRY? .IFT 10$: MOV @(R3)+,R1 ;;; PICK UP BUS ADDRESS FROM ENTRY BIC #1,R1 ;;; ENSURE BOTTOM BIT IS CLEAR CMP (SP),R1 ;;; IS THIS THE RIGHT ENTRY? .ENDC BEQ GOTAD ;;; IF EQ, WE'VE GOT THE RIGHT ONE DEC R0 ;;; WRONG ONE, TRY NEXT ONE BGT 10$ ;;; ... NOSUCH: TST (SP)+ ;;; SPURIOUS INTERRUPT, CLEAN STACK RETURN ;;; ...AND IGNORE THE DUMB THING GOTAD: MOV -(R3),R3 ;;; POINT R3 AT ADC ENTRY ; ; AT THIS POINT, R3 POINTS TO THE ADC ENTRY AND R2 HAS THE NEEDED DATA. ; BIC #1,(R3) ;;; CLEAR BUSY BIT FOR THIS ENTRY ASSUME ADUAD,EQ,ADUADS 20$: MOV R3,R1 ;;; COPY ADC ENTRY ADDRESS ADD #ADUAD,R1 ;;; POINT R1 AT USER BUFFER ADDRESS .IF DF M$$MGE MOV KISAR6,-(SP) ;;; SAVE CURRENT KISAR6 MAPPING MOV (R1)+,KISAR6 ;;; MAP TO USER BUFFER MOV R2,@(R1)+ ;;; TRANSFER DATA TO USER MOV (SP)+,KISAR6 ;;; RESTORE KISAR6 MAPPING .IFF MOV R2,@2(R1) ;;; TRANSFER DATA TO USER .ENDC CLR ADUAD+2(R3) ;;; CLEAR CONVERSION-IN-PROGRESS FLAG .IF DF I$$P14&I$$PAD CMPB ADTYP(R3),#ADI12 ;;; 12-BIT A/D? BEQ 40$ ;;; IF EQ YES, DON'T SHUFFLE .ENDC .IF DF I$$P14 ADD #ADUADS,R3 ;;; POINT AT BUFFER-ADDRESS LIST MOV R3,R1 ;;; POINT R1 AT 2ND ENTRY IN LIST ADD #4,R1 ;;; ... MOV #3,R0 ;;; LOOP COUNTER 30$: MOV (R1)+,(R3)+ ;;; SHUFFLE DATA DOWN 2 WORDS MOV (R1)+,(R3)+ ;;; SHUFFLE 2ND WORD OF DATA BEQ 40$ ;;; IF ZERO DATA, WE'RE DONE DEC R0 ;;; COUNT LOOP PASSES BGT 30$ ;;; ...AND LOOP FOR MORE CLR (R3)+ ;;; WE MOVED WHOLE THING, CLEAR LAST CLR (R3)+ ;;; ..ENTRY .ENDC 40$: MOV S.IPC(R4),R3 ;;; RECOVER ADC TABLE ADDRESS ;RKO004 INC ADFBC(R3) ;;; COUNT CONVERSIONS ;**-1 DECB ADIP(R3) ;;; DECREMENT IN-PROGRESS COUNT .IF DF I$$P14 BEQ 50$ ;;; IF EQ, ALL ARE DONE CMP R2,#-3 ;;; DID ADI14 DATA OVERRUN? BNE 50$ ;;; IF NE NO, WE ARE DONE TST R0 ;;; YES, WERE ANY MORE REQUESTS OUT? BNE 20$ ;;; IF NE YES, RETURN ERRORS FOR THEM .ENDC 50$: TST (SP)+ ;;; CLEAN OFF STACK TSTB ADIP(R3) ;;; TEST IN-PROGRESS COUNT BNE 55$ ;;; IF MORE LEFT, NEVER FORK TSTB ADFR(R3) ;;; FORK WANTED? BNE 60$ ;;; IF NE YES, GO DO FORK 55$: RETURN ;;; NOT WANTED, JUST RETURN 60$: CLRB ADFR(R3) ;;; CLEAR FORK REQUEST .IF DF I$$PUN MOV CNTBL,R5 ;;; GET UCB ADDRESS .IFF ; (I$$PUN) .IFGT MOV TMP,R5 ;;; GET CONTROLLER INDEX MOV CNTBL(R5),R5 ;;; GET UCB ADDRESS .IFF ; (N$$PCS) MOV CNTBL,R5 ;;; GET UCB ADDRESS .ENDC ; (N$$PCS) .ENDC ; (I$$PUN) CALL $FORK ;;; SWITCH TO USER STATE MOV S.IPC(R4),R3 ; GET MASTER TABLE ADDRESS ;RKO004 MOV ADNXT(R3),R1 ; GET ENTRY ADDR OF BLOCKED CONVERSION ;**-1 BEQ ADRLS ; IF NONE, RELEASE PACKET MOV ADNXC(R3),-(SP) ; GOT ONE, STACK CONTROL WORD CLR ADNXT(R3) ; CLEAR BLOCKED-CONVERSION POINTER JMP ADUNBL ; AND GO UNBLOCK CONVERSION ADRLS: JMP ADRLSP ; LINKAGE VECTOR FOR LONG BRANCH .ENDC ; (I$$PAD ! I$$P14) .IFF ; (I$$PAD!I$$P14!I$$PCO!I$$PDI!I$$PTI) RTI ;;; DISMISS SPURIOUS INTERRUPT .ENDC .DSABL LSB .PAGE .SBTTL PCS POWER FAILURE SUBROUTINE .ENABL LSB ;+ ; **- $PCSPF = PCS POWER FAIL SUBROUTINE ; CALLED FROM SYSTEM POWER FAIL HANDLER IF I$$PPF IS DEFINED. ; FUNCTION: TO SAVE IN TABLE PFDTB THE BYTES WHOSE ADDRESSES ; HAVE BEEN ALREADY SET UP IN TABLE PFCTB ; SPEED IS THE UTMOST CONSIDERATION. ; USES OWN STACK: ONE WD FOR CALL, 2 FOR POSSIBLE TRAP. ; R0 AND R1 ARE DESTROYED. IF MORE STACK SPACE IS NEEDED, MORE ; MUST BE ALLOCATED. ;- .BLKW 3 ; SAVE STACK IPDWN: $PCSPF:: .IF DF I$$PPF CLR NBPWF ;;; INIT # BYTES SAVED MOV PFCTB,R0 ;;;CONTROL TABLE MOV PFDTB,R1 ;;;DATA TABLE (BYTES) 10$: TST (R0) ;;; TEST FOR END OF LIST BEQ 20$ ;;; ..DONE MOVB @(R0)+,(R1)+ ;;; SAVE A BYTE INC NBPWF ;;; COUNT IT BR 10$ ;;; NEXT 20$: .ENDC RETURN .DSABL LSB .PAGE .SBTTL PCS POWER RECOVERY HANDLER ;+ ; **- PCSPR = IP11 POWER RECOVERY HANDLER ; INPUTS: R3 = CONTROLLER INDEX, R4 = SCB, R5 = UCB ; ; THE POWER RECOVERY HANDLER IS ALWAYS CALLER ON POWER RECOVERY ; REGARDLESS OF OUTSTANDING I/O. THE FOLLOWING FUNCTIONS ARE ; PERFORMED: ; 1- RESTORE OUTPUTS (IF OPTION CONFIGURED) ; 2- EXAMINE PHYSICAL ADDRESS SPACE TO CREATE PCS MODULE ; MAPPING TABLE ; 3- INITIALIZE OUTPUT SAVE TABLE (IF OPTION CONFIGURED) ; 4- INITIALIZE UNSOLICITED INTERRUPT TABLES ;- .ENABL LSB IPPWF: PCSPR: MOV #5,R1 ; WAIT FOR PCS POWER SUPPLY! CLR R0 ; (I DON'T LIKE THIS ANY MORE 1$: DEC R0 ; THAN YOU DO..) BNE 1$ ; WAIT UP TO 1 SEC DEPENDING ON PROC DEC R1 ; ... BNE 1$ ; ... .IF DF I$$PAD ! I$$P14 ! I$$PCO ! I$$PDI MOV R5,CNTBL(R3) ; SAVE UCB ADDRESS .ENDC .IF DF I$$PAD ! I$$P14 CLR NADC ; CLEAR COUNTER OF A/D CONVERTERS .ENDC .IF DF LD$IP MOV S.FRK+10(R4),-(SP) ; GET DRIVER PCB ADDRESS .IF DF I$$PCO MOV S.CI(R4),R2 ; RETRIEVE COS TABLE POINTER MOV (SP),IMPCB(R2) ; COPY PCB ADDRESS .ENDC .IF DF I$$PDI MOV S.SI(R4),R2 ; RETRIEVE DSI TABLE POINTER MOV (SP),IMPCB(R2) ; COPY PCB ADDRESS .ENDC .IF DF I$$PTI MOV S.TI(R4),R2 ; RETRIEVE COUNTER TABLE POINTER MOV (SP),IMPCB(R2) ; COPY PCB ADDRESS .ENDC TST (SP)+ ; CLEAN STACK .ENDC .IF DF I$$PPF .IF GT .IF NDF I$$PUN TST R3 ; CHECK CONTROLLER INDEX BNE 20$ ; ONLY RESTORE OUTPUTS ONCE .ENDC .ENDC JSR R0,SAVTR4 ; SAVE & CHANGE ILL MEM REF TRAP TST NBPWF ; GET NUMBER OF OUTPUTS TO RESTORE BEQ 20$ ; ..NOT TOO MANY MOV S.CSR(R4),R2 ; SET UP CSR PTR FOR ILL MEM REF TRAP MOV PFCTB,R0 ; CONTROL TABLE MOV PFDTB,R1 ; DATA TABLE (BYTES) 10$: TST (R0) ; CHECK END OF TABLE BEQ 20$ ; ..DONE MOVB (R1)+,@(R0)+ ; RESTORE A BYTE DEC NBPWF ; KEEP COUNT BGT 10$ ; GET NEXT 20$: .IF DF I$$PDI ! I$$PAD ! I$$P14 CALL UNMAP ; DEALLOCATE OLD MAPPING TABLES .ENDC MOV PFCTB,PFPTR ; INIT CONTROL TABLE INSERTION PTR .IFTF ; (I$$PPF) ; ; CREATE MODULE MAPPING TABLE ; .IF GT N$$PCS-1 .IF NDF I$$PUN TST R3 ; SEE IF THIS IS FIRST PASS BNE 22$ ; NO..LEAVE LSTMAP ALONE .ENDC .ENDC MOV #PCSMTB-LGMAP,LSTMAP ; RESET LSTMAP 22$: .IFF ; (I$$PPF) JSR R0,SAVTR4 ; SAVE & CHANGE ILL MEM REF TRAP .IFTF ; (I$$PPF) MOV R3,-(SP) ; PUSH CONTROLLER INDEX MOV LSTMAP,R5 ; GET START ADDR FOR MAPPING TABLE .IFT ; (I$$PPF) MOV R5,PRVMAP ; SAVE ADDR OF START OF NEW MAP SEGMENT ADD #LGMAP,PRVMAP ; ADJUST FOR INITIAL OFFSET .IFTF MOV R4,R0 ; COPY SCB ADD #S.IPM,R0 ; GET ADDR OF FIRST MAP QUEUE MOV #NMTYP,R1 ; MAX # OF MODULE TYPES 25$: CLR (R0)+ ; INITIALIZE MAP HEADERS TO ZERO SOB R1,25$ ; ..ONE FOR EACH MODULE TYPE ; ; GET BASE ADDRESS FOR THIS CONTROLLER AND INIT VARIABLES ; 30$: MOVB (SP),R0 ; GET CONTROLLER INDEX MOV PCSBAS(R0),-(SP) ; SAVE BASE ADDRESS MOV (SP),R3 ; COPY BASE ADDRESS MOV R3,R2 ; CALCULATE CSR ADDRESS ADD #377,R2 ; ... BICB #EBIT,(R2) ; CLEAR INTERRUPT ENABLE MOV R2,-(SP) ; SAVE CSR ADDRESS ; ; SET GENERIC BIT IN CSR AND READ EACH ADDRESS IN CONTROLLER'S ; ADDRESS SPACE ; CLR -(SP) ; INIT CURRENT MODULE TYPE 35$: BISB #GBIT,(R2) ; SET GENERIC BIT CLC ; CLEAR C BIT-TO BE SET BY ILL MEM CODE MOVB (R3),R0 ; READ GENERIC CODE OF THIS MODULE BICB #GBIT,(R2) ; RESET GENERIC BIT BCS 37$ ; BRANCH=ILL MEM REF=NO MODULE CALL FGCENT ; FIND GENERIC CODE IN DEF TABLE BCS 40$ ; ..FOUND SUPPORTED CODE 37$: INC R3 ; GENERIC CODE NOT SUPPORTED, SKIP IT CLR (SP) ; RESET MODULE TYPE BR 63$ ; AND TRY NEXT MODULE ; ; GOT A VALID CODE ; 40$: TST (R2)+ ; STEP TO 2ND WORD IN GENCOD TABLE .IFT ; (I$$PPF) MOV PFPTR,R0 ; GET CTL TBL INSERTION POINTER BEQ 43$ ; ..NOT INITIALIZED .IF DF I$$PDO CMPB (R2),#DIGO ; TEST IF THIS IS DIGITAL OUTPUT .ENDC .IF DF I$$PDA BEQ 42$ ; ..YES, STORE IN CONTROL TABLE CMPB (R2),#DAO ; ..NO, IS IT DAC MODULE? .ENDC BNE 43$ ; WRONG MODULE TYPE FOR RESTORATION 42$: MOV R3,(R0) ; SAVE MODULE ADDRESS IN CONTROL TABLE MOVB -1(R2),R1 ; GET # BYTES IN MODULE 421$: MOV PFCTB,-(SP) ; TEST FOR END OF TABLE ADD #<2*>,(SP) CMP R0,(SP)+ BHI 43$ ; ..TABLE S FULL DEC R1 ; SEE IF MULTIPLE BYTES TO RESTORE BEQ 422$ ; ..NO OR DONE MOV (R0)+,(R0) ; COPY ADDRESS FOR NEXT SEQUENTIAL BYTE INC (R0) ; MAKE IT THE NEXT BYTE BR 421$ ; CONTINUE 422$: TST (R0)+ ; COUNT LAST BYTE 43$: MOV R0,PFPTR ; RESTORE INSERTION POINTER .IFTF ; (I$$PPF) .IF DF I$$PAD .IF DF I$$P14 CMPB (R2),#ADI14 ; IS THIS AN A/D CONVERTER? BEQ 432$ ; IF EQ YES, MAP IT .ENDC CMPB (R2),#ADI12 ; IS THIS AN A/D CONVERTER? BNE 435$ ; IF NE NO, DON'T MAP IT 432$: MOV (R2),(SP) ; SET PREVIOUS MODULE TYPE CALL ADMAP ; A/D CONVERTER, GO MAP IT BR 63$ ; GO TRY NEXT MODULE ADDRESS .IFF ; (I$$PAD) .IF DF I$$P14 CMPB (R2),#ADI14 ; IS THIS AN A/D CONVERTER? BNE 435$ ; IF NE NO, DON'T MAP IT MOV (R2),(SP) ; SET PREVIOUS MODULE TYPE CALL ADMAP ; GO MAP IT SPECIALLY BR 63$ ; GO TRY NEXT MODULE ADDRESS .ENDC ; (I$$P14) .ENDC ; (I$$PAD) 435$: CMPB (R2),(SP) ; SAME AS CURRENT MODULE TYPE? BEQ 55$ ; ..YES, COUNT IT .IF DF I$$PTI CMPB #IN08,(R2) ; 8-BIT INPUT COUNTER? BNE 450$ ; IF NE NO - CHECK NEXT BIS #MTIN08,CTRTYP ; SET MASK IN FLAG WORD 450$: CMPB #IN16,(R2) ; 16-BIT INPUT COUNTER? BNE 460$ ; IF NE NO - CHECK NEXT BIS #MTIN16,CTRTYP ; SET MASK IN FLAG WORD 460$: CMPB #OU16,(R2) ; 16-BIT OUTPUT COUNTER? BNE 470$ ; IF NE NO - CONTINUE BIS #MTOU16,CTRTYP ; SET MASK IN FLAG WORD .ENDC 470$: MOVB (R2),(SP) ; ..NO, NEW MODULE TYPE ADD #LGMAP,R5 ; INITIALIZE MAP ENTRY FOR IT CMP R5,#PCSMTX ; TEST FOR END OF TABLE BLO 44$ ; ..NOT THERE SUB #LGMAP,R5 ; AT END OF TABLE--BACK UP ADD #10,SP ; KILL STACK BR 66$ ; AND EXIT 44$: MOVB (SP),R0 ; GET MODULE TYPE ASL R0 ; WORD OFFSET ADD #S.IPM-2,R0 ; OFFSET TO MAP TABLE HEADER ADD R4,R0 ; GET ADDRESS OF MAP HEADER .IF DF I$$PUN MOV (R0),R1 ; GET FIRST LINK BEQ 50$ ; ..NONE 45$: MOV R1,R0 ; COPY LINK MOV (R0),R1 ; CHECK NEXT ONE BNE 45$ ; ..NOT AT END YET MOV IPMMAX(R0),R1 ; R1 = "OLD MAX RELATIVE ENTRY #" INC R1 ; NEW MINIMUM RELATIVE ENTRY # BR 52$ ; UPDATE IT .ENDC 50$: CLR R1 ; MINIMUM RELATIVE ENTRY # 52$: MOV R5,(R0) ; LINK THE NEW ENTRY CLR (R5)+ ; INIT THE LINK MOV R1,(R5)+ ; STORE MIN REL ENTRY DEC R1 ; ADJUST FOR ADD AT 55$ MOV R1,(R5)+ ; STORE MAX REL ENTRY MOVB (R2),(R5)+ ; STORE MODULE TYPE CLRB (R5)+ ; SAVE SPARE SPOT MOV R3,(R5)+ ; STORE MODULE ADDRESS MOVB 6(SP),-(R5) ; PUT IN CONTROLLER INDEX SUB #LGMAP-1,R5 ; BACK TO THE TOP ; ; UPDATE THE ENTRY ; 55$: MOVB 1(R2),R0 ; GET NUMBER REL ENTRIES IN MODULE ADD R0,IPMMAX(R5) ; BIAS MAX REL ENTRY COUNT 60$: MOVB -(R2),R0 ; GET #BYTES/MODULE FROM GENCOD ADD R0,R3 ; STEP H/W ADDRESS POINTER 63$: MOV 4(SP),R0 ; SEE IF WE'RE AT END OF ADDR SPACE ADD #376,R0 ; IAR OFFSET MOV 2(SP),R2 ; RESTORE CSR ADDRESS CMP R3,R0 ; CHECK IT... BLO 35$ ; GO READ NEXT MODULE TST (SP)+ ; CLEAR STACK (MODULE TYPE) BISB #CBIT,(R2) ; CLEAR PCS TIMEOUT LIGHT AFTER ALL THIS MOV #23.,R3 ; DELAY AT LEAST 20 MICROSECONDS (ON 64$: DEC R3 ; ..AN 11/70), LONGER ON MOST PDP-11'S BNE 64$ ; ..TO GIVE PCS TIME TO CLEAR ITSELF BISB #EBIT,(R2) ; ENABLE PCS INT FOR THIS CONTROLLER ; ; END OF ADDRESS SPACE ; MOV (SP)+,(SP)+ ; POP 2 (CSR, BASE ADDRESS) .IFDF I$$PUN CMPB (SP),#*2 ; TEST IF THIS IS LAST PCS BGE 65$ ; ..YES ADD #2,(SP) ; NEXT CONTROLLER MOV (SP),R3 ; UPDATE UCB POINTER! MOV CNTBL-2(R3),CNTBL(R3) ; ... JMP 30$ ; .. .ENDC ; ; DONE WITH LAST CONTROLLER ; 65$: TST (SP)+ ; CLEAN STACK 66$: MOV R5,LSTMAP ; SAVE ADDRESS OF LAST MAP ADDRESS .IFT ; (I$$PPF) CLR @PFPTR ; DEFINE END OF CONTROL TABLE .ENDC ; (I$$PPF) ; ; INIT NUMBER OF POINTS FOR COS AND DSI MODULES IN UNSOLICITED ; INTERRUPT TABLES ; .IF DF I$$PCO MOV #COS,R1 ; DEFINE COS MODULE TYPE MOV S.CI(R4),R0 ; GET UNSOL INT ADDR CALL INNPT ; INIT THE TABLE .ENDC .IF DF I$$PDI MOV #DSI,R1 ; DEFINE DSI MODULE TYPE MOV S.SI(R4),R0 ; GET UNSOL INT TABLE CALL INNPT ; INIT IT ; ; HERE WE ALLOCATE, IF NECESSARY, AND ZERO OUT THE CHANGE-OF-STATE ; HISTORY TABLE FOR DSI MODULES. ONE BYTE PER BYTE OF DSI MODULE IS ; ALLOCATED AND USED BY THE INTERRUPT HANDLER TO SAVE THE VALUE ; OF THE MOST RECENT INTERRUPT. ; MOV S.COS(R4),R0 ; GET ADDRESS OF CURRENT HSTORY BLOCK BEQ 90$ ; ..NEVER GOT ONE MOV S.NSI(R4),R1 ; GET SIZE OF CURRENT BLOCK ADD #4,R5 ; R5=MAX BYTE # = # BYTES-S. CONVERT IT BIC #3,R5 ; TO NEXT MULTIPLE OF 4 FOR ALLOCATION. CMP R5,R1 ; IS TABLE THE RIGHT SIZE? BLE 100$ ; YES CALL $DEACB ; GET RID OF CURRENT BLOCK 90$: MOV R5,R1 ; GET SIZE OF NEW BUFFER CLR S.COS(R4) ; ..JUST IN CASE ALLOC FAILS CALL $ALOCB ; GET NEW BUFFER BCS 150$ ; ..CAN'T DO MOV R0,S.COS(R4) ; SAVE RESULTS MOV R1,S.NSI(R4) 100$: CLRB (R0)+ ; INITIALIZE TABLE DEC R1 BNE 100$ 150$: ; REFERENCE .ENDC .IF DF I$$P14 ;ASSEMBLE IF 14 BITTERS EXIST ;RKO001 BICB #200,MINOMX+1 ;CLEAR OUT A020 MAPPED FLAG ;RKO001 .ENDC ;RKO001 RETURN .DSABL LSB .PAGE .SBTTL ADMAP - MAP A/D CONVERTER MODULES ;+ ; **-ADMAP - A/D MAPPING SUBROUTINE ; ; INPUTS: R3 = PHYSICAL ADDRESS OF MODULE ; DON'T TOUCH R5 ; R4 -> SCB ; R2 -> MODULE TYPE FIELD OF GENERIC CODES TABLE ; 2(SP) = MODULE TYPE (ADI12 OR ADI14) ; 4(SP) -> CSR FOR THE UNIT ; 6(SP) -> MODULE BASE FOR UNIT ; 10(SP) = CONTROLLER INDEX (UNIT*2) ; ; OUTPUTS: R0 THROUGH R2 DESTROYED ; R3 UPDATED TO POINT TO NEXT MODULE IN PCS ; R4-R5 PRESERVED ; STACK CONTENTS PRESERVED ;- .IF DF I$$PAD ! I$$P14 ADMAP: MOV R5,-(SP) ; SAVE R5 ON STACK ; ****NOTE**** THAT ALL STACK OFFSETS ; ...ARE NOW TWO GREATER THAN AT CALL MOV S.IPC(R4),R0 ; GET ADDRESS OF MASTER AD TABLE ;RKO004 BNE 30$ ; IF NE, THERE IS ONE ALREADY ;**-1 MOV #ADLG,R1 ; LENGTH OF SPACE TO ALLOCATE MOV R2,-(SP) ; SAVE REGISTER THAT $ALOCB CLOBBERS CALL $ALOCB ; ALLOCATE SPACE FOR MAPPING TABLE MOV (SP)+,R2 ; RESTORE REGISTER BCS MAPDON ; IF NO ROOM, GIVE UP RIGHT NOW MOV R0,S.IPC(R4) ; SET TABLE POINTER ;RKO004 ASR R1 ; THIS WILL BE CLEAR LOOP COUNTER ;**-1 MOV R0,R5 ; COPY POINTER SO WE DON'T CLOBBER IT 20$: CLR (R5)+ ; CLEAR A WORD OF THE TABLE DEC R1 ; COUNT PASSES BGT 20$ ; LOOP UNTIL WE'VE CLEARED IT ALL ;RKO001 .IF DF I$$PAD & I$$P14 ;ASSEMBLE IF BOTH 12 & 14 BIT ADC'S ;RKO001 30$: CLRB ADFR(R0) ;CLEAR FORK REQUEST FLAG. ;RKO001 CLRB ADIP(R0) ;CLEAR CONVERSIONS IN PROGRESS COUNT. ;RKO001 ADD #2,NADC ;UPDATE # OF ADC'S TIMES 2. ;RKO001 CMPB #ADI14,(R2) ;IS THIS A 14 BITTER? ;RKO001 BEQ 35$ ;BRANCH IF SO. ;RKO001 TST MINOMX ;IS 14 BIT MAPPING IN PROGRESS? ;RKO001 BMI MAPDON ;IF SO, IGNORE THIS 12 BITTER. ;RKO001 ADD #NCHADC,(R0) ;UPDATE MAX # OF CHANNELS. ;RKO001 MOVB NADC,MINOMX+1 ;ASSUME THIS IS LAST A014, AND UPDATE ;RKO001 ;POINTER TO FIRST A020 MAP ENTRY. ;RKO001 ASR MINOMX ; ... ;RKO001 BR 37$ ;REJOIN COMMON CODE ;RKO001 35$: ADD #NCHA14,(R0) ;UPDATE MAX # OF CHANNELS ;RKO001 37$: ADD NADC,R0 ;CALCULATE ADDRESS OF ADCONV ENTRY ;RKO001 ADD #ADCONV-2,R0 ; ... ;RKO001 MOV (R0),R1 ;GET ADDRESS OF ADC ENTRY ;RKO001 BNE 50$ ;IF NOT ZERO, SPACE ALREADY ALLOCATED. ;RKO001 ;***NOTE THAT WE COULD CRUNCH HERE IF A0;RKO001 ;WAS REMOVED DURING POWER DOWN AND THIS ;RKO001 ;SLOT IS NOW TAKEN BY AN A020. ;RKO001 MOV #LGAD12,R1 ;GET TABLE LENGTH (ASSUME 12 BITTER) ;RKO001 CMPB #ADI12,(R2) ;IS THIS A 12 BITTER? ;RKO001 BEQ 38$ ;BRANCH IF SO. ;RKO001 MOV #LGAD14,R1 ;GET TABLE LENGTH. ;RKO001 38$: MOV R0,-(SP) ;SAVE REGISTERS CLOBBERED BY SYSTEM ROUT;RKO001 MOV R2,-(SP) ; ... ;RKO001 .ENDC ;RKO001 ;RKO001 .IF NDF I$$P14 ;ASSEMBLE IF ONLY 12 BITTERS ;RKO001 30$: CLRB ADFR(R0) ;CLEAR FORK REQUEST FLAG. ;RKO001 CLRB ADIP(R0) ;CLEAR CONVERSIONS IN PROGRESS COUNT. ;RKO001 ADD #2,NADC ;UPDATE # OF ADC'S TIMES 2. ;RKO001 ADD #NCHADC,(R0) ;UPDATE MAX # OF CHANNELS. ;RKO001 ADD NADC,R0 ;CALCULATE ADDRESS OF ADCONV ENTRY ;RKO001 ADD #ADCONV-2,R0 ; ... ;RKO001 MOV (R0),R1 ;GET ADDRESS OF ADC ENTRY ;RKO001 BNE 50$ ;IF NOT ZERO, SPACE ALREADY ALLOCATED. ;RKO001 MOV #LGAD12,R1 ;GET TABLE LENGTH ;RKO001 MOV R0,-(SP) ;SAVE REGISTERS CLOBBERED BY SYSTEM ROUT;RKO001 MOV R2,-(SP) ; ... ;RKO001 .ENDC ;RKO001 ;RKO001 .IF NDF I$$PAD ;ASSEMBLE IF ONLY 14 BITTERS EXIST ;RKO001 30$: CLRB ADFR(R0) ;CLEAR FORK REQUEST FLAG. ;RKO001 CLRB ADIP(R0) ;CLEAR CONVERSIONS IN PROGRESS COUNT. ;RKO001 ADD #2,NADC ;UPDATE # OF ADC'S TIMES 2. ;RKO001 ADD #NCHA14,(R0) ;UPDATE MAX # OF CHANNELS ;RKO001 ADD NADC,R0 ;CALCULATE ADDRESS OF ADCONV ENTRY ;RKO001 ADD #ADCONV-2,R0 ; ... ;RKO001 MOV (R0),R1 ;GET ADDRESS OF ADC ENTRY ;RKO001 BNE 50$ ;IF NOT ZERO, SPACE ALREADY ALLOCATED. ;RKO001 MOV #LGAD14,R1 ;GET TABLE LENGTH. ;RKO001 MOV R0,-(SP) ;SAVE REGISTERS CLOBBERED BY SYSTEM ROUT;RKO001 MOV R2,-(SP) ; ... ;RKO001 .ENDC ;RKO001 40$: CALL $ALOCB ; ALLOCATE A BLOCK FOR THE TABLE ;**-30 MOV (SP)+,R2 ; RESTORE R2 MOV R0,R1 ; COPY ADDRESS OF THE TABLE MOV (SP)+,R0 ; POP PTR TO ADCONV ENTRY BCS MAPDON ; IF NONE AVAILABLE, ABORT THINGS MOV R1,(R0) ; STORE POINTER TO CONVERTER TABLE 50$: MOV R3,(R1) ; STORE BUS ADDRESS OF A/D CONVERTER MOVB (R2),ADTYP(R1) ; STORE TYPE OF THE CONVERTER .IF DF I$$P14 & I$$PAD CMPB (R2),#ADI14 ; IS THIS A 14-BIT A/D BEQ MAP14 ; YES, GO MAP IT A DIFFERENT WAY .ENDC .IF DF I$$PAD ADD #ADMUX,R1 ; POINT AT MAX-CHANNEL-ON-MUX BYTES CLR -(SP) ; SELECT MUX 0, CHANNEL 0 ; ****NOTE**** THAT ALL STACK ADDRESSES ; ...ARE NOW 4 GREATER THAN AT CALL MOV 4+4(SP),R2 ; PICK UP CSR ADDR 60$: MOVB (SP),2(R3) ; PROGRAM MUX n, CHANNEL 0 BISB #GBIT,(R2) ; SET GENERIC BIT IN CSR CLC ; ENSURE CARRY IS CLEAR IF MUX IS THERE MOVB 2(R3),R0 ; ATTEMPT TO READ GENERIC CODE BICB #GBIT,(R2) ; CLEAR GENERIC BIT IN CSR BCC 63$ ; IF CC, THE MUX EXISTS BISB #RIF,(R2) ; SETTING RIF WILL CLEAR ERROR CONDITION TSTB (R3) ; ..WHEN WE READ BYTE 0 OF CONVERTER CLRB (R1)+ ; SET # CHANNELS ON MUX TO ZERO BR 80$ ; GO TRY THE NEXT MUX 63$: MOV #MXDEF,R5 ; POINT AT MUX DEFINITION TABLE 65$: CMPB R0,(R5)+ ; IS THIS THE MUX TYPE WE WANT? BEQ 70$ ; IF EQ YES, GO STORE # CHANNELS TSTB (R5)+ ; NO, SKIP OVER # CHANNELS AND TEST BNE 65$ ; IF NE, TABLE HAS MORE ENTRIES TSTB -(R5) ; END OF TABLE, MAKE R5 POINT AT A ZERO 70$: MOVB (R5),(R1)+ ; FOUND # CHANNELS, SAVE IT IN TABLE 80$: ADD #40,(SP) ; MOVE TO NEXT MUX TSTB (SP) ; SEE IF # OVERFLOWED TO TOP BYTE BNE 60$ ; IF LOW BYTE NZ, DIDN'T OVERFLOW YET TST (SP)+ ; CLEAN STACK ; ****NOTE**** THAT ALL STACK ADDRESSES ; ...ARE NOW 2 GREATER THAN AT CALL .IF DF I$$P14 BR MAPDON ; GO CLEAN UP AND RETURN .ENDC ; (I$$P14) .ENDC ; (I$$PAD) .IF DF I$$P14 MAP14: BISB #200,MINOMX+1 ;SET FLAG INDICATING A020 MAP START. ;RKO001 MOVB 1(R2),ADCHN(R1) ;SET NUMBER OF CHANNELS ON CONVERTER ;RKO001 ADD #ADUADS,R1 ; POINT AT USER-ADDRESSES STACK ;**-1 MOV #2*4,R0 ; WORD SIZE OF THE STACK 10$: CLR (R1)+ ; CLEAR USER-ADDRESS STACK DEC R0 ; ... BGT 10$ ; ... .ENDC ; (I$$P14) MAPDON: MOV (SP)+,R5 ; RESTORE R5 ADD #4,R3 ; UPDATE NEXT BUS ADDRESS TO TEST RETURN ; RETURN TO CALLER .ENDC ; (I$$PAD!I$$P14) .PAGE .SBTTL SAVTR4 - SAVE & REPLACE ILLEGAL MEM REF TRAP ; ; SAVTR4 - COROUTINE TO SAVE ILLEGAL REFERENCE TRAP AND REPLACE ; WITH LOCAL TRAP HANDLER FOR USE IN POWER RECOVERY HANDLER TO ; CREATE MAPPING TABLE. ; ; CALLING SEQUENCE: ; ; JSR R0,SAVTR4 ; SAVTR4: MOV ILLMEM,-(SP) ; SAVE OLD TRAP CONTENTS MOV #IPILLM,ILLMEM ; REPLACE WITH NEW CALL (R0) ; CO-ROUTINE CALL TO CALLER MOV (SP)+,ILLMEM MOV (SP)+,R0 ; UNDO THE CALL RETURN ; ; IPILLM - ILLEGAL MEM REF OCCURED DURING SET-UP OF MODULE MAP TABLES ; PRESUMABLY THIS MEANS A NON-EXISTENT MODULE WAS REFERENCED. ; IPILLM: BIS #1,2(SP) ;;; SET CARRY BIT FOR RTI RTI ;;; PRAY .PAGE .SBTTL UNMAP - RELEASE PREVIOUSLY ALLOCATED MAPPING TABLES ; ; UNMAP - SUBROUTINE TO RELEASE OLD MAPPING TABLES ; ; CALLING SEQUENCE: ; ; JSR PC,UNMAP ; ; INPUT PARAMETERS: ; ; R4 POINTS TO THE SCB FOR THE UNIT BEING MAPPED NOW ; ; OUTPUT PARAMETERS: ; ; NONE ; ; SIDE EFFECTS: ; ; ALL CORE POINTED TO BY THE SCB THAT WAS ALLOCATED VIA $ALOCB ; FOR MAPPING TABLES HAS BEEN DEALLOCATED. ; .IF DF I$$PDI ! I$$PAD ! I$$P14 UNMAP: JSR R3,SAVER ; SAVE R0 THROUGH R3 IN COROUTINE .IF DF I$$PDI MOV S.COS(R4),R0 ; IS THERE A COS TABLE IN THIS SCB? BEQ 10$ ; IF EQ NO, GO LOOK FOR ADC TABLES MOV S.NSI(R4),R1 ; YES, GET SIZE FOR DEALLOCATION CLR S.COS(R4) ; CLEAR PTR TO FLAG IT'S GONE CALL $DEACB ; AND GET RID OF IT TO FREE UP SPACE 10$: .ENDC .IF DF I$$PAD ! I$$P14 MOV S.IPC(R4),R3 ; IS THERE AN ADC TABLE ON THIS UNIT? ;RKO004 BEQ 50$ ; IF EQ NO, WE ARE DONE ;**-1 ADD #ADCONV,R3 ; YES, POINT AT SUB-TABLE POINTERS MOV #ADNCNV,-(SP) ;THIS IS COUNT OF SUBTABLES ;RKO001 20$: MOV (R3)+,R0 ; IS THERE A SUBTABLE HERE? ;**-1 BEQ 40$ ; IF EQ NO, GO TRY NEXT ONE .IF DF I$$PAD MOV #LGAD12,R1 ; ASSUME IT IS A 12-BIT A/D .IF DF I$$P14 CMPB ADTYP(R0),#ADI12 ; IS IT REALLY? BEQ 30$ ; IF EQ YES, GO DEALLOCATE .ENDC ; (I$$P14) .ENDC ; (I$$PAD) .IF DF I$$P14 MOV #LGAD14,R1 ; NO, IT MUST BE 14 BITTER .ENDC ; (I$$P14) 30$: MOV R3,-(SP) ; SAVE REG $DEACB CLOBBERS CALL $DEACB ; GET RID OF THE SUBTABLE MOV (SP)+,R3 ; RESTORE R3 40$: DEC (SP) ; COUNT SUBTABLES BGT 20$ ; LOOP UNTIL WE'VE DONE THEM ALL TST (SP)+ ; CLEAN LOOP COUNT OFF STACK MOV S.IPC(R4),R0 ; NOW WE CAN GET RID OF ADC TABLE ;RKO004 CLR S.IPC(R4) ; AND FLAG THAT IT IS GONE ;RKO004 MOV #ADLG,R1 ; ... ;**-2 CALL $DEACB ; ... .ENDC ; (I$$PAD!I$$P14) 50$: RETURN ; .ENDC ; (I$$PDI!I$$PAD!I$$P14) .PAGE .SBTTL PCS I/O CANCEL AND TIMEOUT ENTRIES ;+ ; **-PCSCAN = PCS I/O CANCEL ; DISCONNECT ANY CONNECTED CIRCULAR BUFFERS ; INPUT CONDITIONS: ; R0=ACTIVE I/O PACKET ADDR, R1=TCB ADDR OF CURRENT TASK, ; R3=CONTROLLER INDEX, R4=SCB ADDR, R5=UCB ADDR, PS=PR6 ; ;- IPCAN: PCSCAN: MOV R1,R0 ;;; COPY TCB ADDRESS .IF DF I$$PCO MOV S.CI(R4),R3 ;;; CANCEL I/O ON COS MODULES CALL DISCNC ;;; ... .ENDC .IF DF I$$PDI MOV S.SI(R4),R3 ;;; CANCEL I/O ON DSI MODULES CALL DISCNC ;;; ... .ENDC .IF DF I$$PTI MOV S.TI(R4),R3 ; CANCEL I/O ON COUNTER MODULES CALL DISCNC ; ... BCS 30$ ; IF CARRY SET NO COUNTERS CONNECTED INCB T.IOC(R5) ; RESET I/O COUNT MOV IMTYP(R3),R2 ; RETRIEVE COUNTER MASK WORD BIT #MTIN08,R2 ; 8-BIT COUNTERS CONNECTED? BEQ 10$ ; IF EQ NO DECB T.IOC(R5) ; YES DECREMENT I/O COUNT 10$: BIT #MTIN16,R2 ; 16-BIT INPUT COUNTERS? BEQ 20$ ; IF EQ NO DECB T.IOC(R5) ; YES DECREMENT I/O COUNT 20$: BIT #MTOU16,R2 ; 16-BIT OUTPUT COUNTER? BEQ 30$ ; IF EQ NO DECB T.IOC(R5) ; DECREMENT I/O COUNT .ENDC 30$: RETURN ;+ ; **-PCSTMO = PCS DEVICE TIMEOUT ; ABORT ANY OUTSTANDING A/D REQUESTS ;- .DSABL LSB IPOUT: PCSTMO: .IF DF I$$PAD!I$$P14 MTPS #0 ;;; ENABLE INTERRUPTS MOV S.IPC(R4),R3 ; GET ADDRESS OF AD TABLE ;RKO004 BEQ 30$ ; IF EQ NONE, IGNORE TIMEOUT ;**-1 TSTB ADIP(R3) ; ANY CONVERSIONS IN PROGRESS? BEQ 30$ ; IF EQ NONE, IGNORE TIMEOUT CLRB ADIP(R3) ; YES, RESET COUNT OF THEM TO ZERO MOV R3,R2 ; POINT R2 AT CONVERTER ENTRIES ADD #ADCONV,R2 ; ... MOV #ADNCNV,R0 ;MAX NO. OF CONVERTERS (LOOP COUNT) ;RKO001 10$: MOV (R2)+,R1 ; GET POINTER TO AN ENTRY ;**-1 BEQ 20$ ; IF NONE, TRY NEXT ASSUME ADUAD,EQ,ADUADS ; BIC #1,(R1) ; CLEAR CONVERTER-BUSY BIT TST ADUAD+2(R1) ; ANY CONVERSIONS OUTSTANDING? BEQ 20$ ; IF EQ NO, DON'T RESET STATUS MOV #IE.DNR&377,ADSTS(R3) ; YES, SET STATUS TO "ABORTED" CLR ADUAD+2(R1) ; RESET OUTSTANDING CONVERSIONS FLAG .IF DF I$$P14 .IF DF I$$PAD CMPB ADTYP(R1),#ADI14 ; IS THIS A 14-BIT CONVERTER? BNE 20$ ; IF NE NO, DON'T MESS WITH ADDRS .ENDC ; (I$$PAD) ADD #ADUADS,R1 ; POINT R1 AT USER-ADDRESS STACK MOV #4*2,-(SP) ; SIZE OF AREA TO BE CLEARED 15$: CLR (R1)+ ; CLEAR USER ADDRESSES DEC (SP) ; ... BGT 15$ ; ... TST (SP)+ ; CLEAN STACK .ENDC ; (I$$P14) 20$: DEC R0 ; COUNT CONVERTERS BGT 10$ ; LOOP IF MORE ARE LEFT JMP ADRLSP ; GO RELEASE THE I/O PACKET .ENDC ; (I$$PAD!I$$P14) 30$: RETURN ; NO A/D OUTSTANDING, IGNORE TIMEOUT .PAGE .IF DF I$$PUI .SBTTL PCSUNL -- GENERAL UNLINKING SUBROUTINE ; ; CALLING SEQUENCE: ; R1 = MATCH PARAMETER, R2 = #S.XX WHERE XX=DI OR SI ; CALL PCSUNL ; BCS NO-SUCH-MODULE ; BMI NOT-LINKED ; ; MATCH PARAMETER = ADDRESS OF TASK NAME (TASK UNLINKING) ; = EF*2+1 FOR EVENT FLAG UNLINKING OF SPECIFIED EF FIELD ; = -1 TO REMOVE ALL EVENT FLAG LINKAGES ; .ENABL LSB PCSUNL: ADD R4,R2 ; GET ADDR OF PTR TO UNSOL INT TABLE MOV R1,-(SP) ; SAVE WORK REG .IF DF I$$PUN CLR -(SP) ; SAVE SPOT FOR CONTROLLER INDEX .IFTF MOV (R2),U.CW2(R5) ; GET ADDRESS OF TABLE BEQ A90$ ; TABLE NOT CONFIGURED MOV R1,U.CW3(R5) ; SAVE MATCH PARAMETER CLR -(SP) ; INITIALIZE MATCH COUNTER 5$: MOV U.CW2(R5),R0 ; FIND RESOURCE LINK LISTHEAD ADD #IMLH,R0 ; .. .IFT ADD 2(SP),R0 ; ADD CONTROLLER DOUBLE INDEX .IFTF .IF DF I$$PEF BIT #1,R1 ; TEST IF THIS IS EF LINKAGE REMOVAL BNE 35$ ; ..YES .IFTF MOV R0,R2 ; COPY LISTHEAD MOV R1,R3 ; COPY ADDRESS OF TASK NAME CALL $SRSTD ; SEE IF TASK IS INSTALLED BCS A91$ ; ..NO MOV R0,R3 ; COPY TCB ADDRESS MOV R2,R0 ; RESTORE LISTHEAD MOV #PCTLH,R1 ; GET ADDR OF TASK LINKAGE LIST 10$: MOV (R1),R1 ; GET NEXT LINK BEQ 41$ ; TASK NOT LINKED CMP R3,LTCB(R1) ; TEST FOR THE RIGHT LINKAGE ENTRY BNE 10$ ; ..NOT YET ; ; HERE WE REMOVE A LINKAGE AS DEFINED BY R1 AND DEALLOCATE ; THE ENTRY. ; 30$: .IF DF I$$PTI MOV U.CW2(R5),R2 ; RETRIEVE LISTHEAD TSTB IMTYP(R2) ; COUNTER PROCESSING? BEQ 34$ ; IF EQ NOT CTR OR ALL CTR'S 31$: MOV R0,-(SP) ; SAVE CURRENT LINK MOV (R0),R0 ; POINT TO FIRST/NEXT BNE 310$ ; CONTINUE MOV (SP)+,R0 ; RESTORE R0 BR 46$ ; CHECK NEXT CONTROLLER 310$: CMP R1,ILTE(R0) ; RESOURCE CONNECTED TO THIS TASK? BNE 32$ ; IF NE NO - CHECK NEXT CMPB IMTYP(R2),ILRES(R0) ;RIGHT MODULE TYPE? BEQ 33$ ; IF EQ YES - REMOVE LINK CMPB #IN08,IMTYP(R2) ; COULD BE 8-BIT CTR IS IT? BNE 32$ ; NOT PROCESSING 8-BIT COUNTERS ; GO CHECK NEXT ENTRY BITB #10,ILRES(R0) ; IS THIS AN 8-BIT ENTRY? BEQ 33$ ; IF EQ YES - REMOVE IT 32$: TST (SP)+ ; CLEAN STACK BR 31$ ; CHECK NEXT ENTRY 33$: MOV (SP)+,R0 ; SET R0 WITH PTR TO ENTRY TO REMOVE .ENDC 34$: MOV R1,-(SP) ; SAVE MATCH PARAMETER MTPS S.PRI(R4) ;;; INHIBIT DEVICE INTERRUPTS CALL $QRMVT ;;; REMOVE MATCHING LINK BCS 40$ ;;; ..NONE EXISTS MTPS #0 ; ENABLE DEVICE INC 2(SP) ; COUNT THE MATCH JSR R5,DEALL ; DEALLOCATE THE BLOCK .WORD ILGH ; LENGTH OF BLOCK MOV (SP)+,R1 ; RESTORE MATCH FLAG .IFT ; (I$$PEF) BIT #1,R1 ; TEST IF EF LINKAGE BNE 35$ ; ..YES, CONTINUE .IFTF ; ; HERE WE DO BOOKKEEPING IN THE TASK LINKAGE ENTRY AND ; DEALLOCATE IT IF NO RESOURCE LINKS REMAIN. ; DEC LUSE(R1) ; DECREMENT TASK USE COUNT BNE 30$ ; ..AND CONTINUE MOV R0,-(SP) ; SAVE LISTHEAD MOV #PCTLH,R0 ; DEFINE TASK LINK LISTHEAD CALL $QRMVT ; PULL OUT THIS ENTRY MOV (SP)+,R0 ; RESTORE RESOURCE LISTHEAD JSR R5,DEALL ; DEALLOCATE THE BLOCK (R1) .WORD LLGH ; SIZE OF BLOCK BR 41$ ; CHECK EF LINKAGE REMOVAL A90$: JMP 90$ ; OUT OF RANGE A91$: JMP 91$ ; OUT OF RANGE .IFT ; (I$$PEF) ; ; HERE WE FIND AN EVENT FLAG LINKAGE IF ALL ARE BEING REMOVED. ; 35$: CMP U.CW3(R5),#-1 ; TEST IF UNLINKING ALL EF'S BNE 30$ ; ..NO MOV R0,R2 ; COPY LISTHEAD 38$: MOV (R2),R2 ; ..YES, FIND A MATCH FLAG BEQ 46$ ; NONE MOV ILTE(R2),R1 ; GET TASK LINKAGE ENTRY BIT #1,R1 ; TEST ODD BIT, MEANS EF LINKAGE BEQ 38$ ; ..NOT THERE BR 30$ ; GO UNLINK THIS ONE .IFTF ; ; DONE WITH THIS LIST ; 40$: MTPS #0 ; RESTORE PRIORITY MOV (SP)+,R1 ; RESTORE MATCH 41$: .IFT ; (I$$PEF) BIT #1,R1 ; SEE IF THIS IS EF LINKAGE REMOVAL BNE 46$ ; ..YES, IGNORE FOLLOWING ; ; HERE WE REMOVE LOCAL EF LINKAGES WHERE EF'S BELONG TO THIS TASK ; 42$: MOV R3,-(SP) ; ASSUME TCB IN R3 TST R1 ; IF 0, ONLY UNLINKING EF/TASK BEQ 43$ ; .. MOV LTCB(R1),(SP) ; SAVE TCB ADDRESS 43$: MOV R0,R1 ; COPY LISTHEAD 44$: MOV (R1),R1 ; CHECK EACH RESOURCE BEQ 45$ ; DONE BIT #1,ILTE(R1) ; FIND THOSE WHICH ARE EF LINKAGES BEQ 44$ ; ..THIS ONE ISN'T CMP ILEVA(R1),(SP) ; FIND THOSE WITH LOCAL EF'S FOR TASK BNE 44$ ; ..NOT THIS ONE MTPS S.PRI(R4) ;;; INHIBIT DEVICE CALL $QRMVT ;;; REMOVE THE ENTRY MTPS #0 ; ENABLE DEVICE INC 2(SP) ; COUNT THE REMOVED ENTRY JSR R5,DEALL ; DEALLOCATE THE BLOCK .WORD ILGH ; LENGTH OF BLOCK BR 43$ ; TRY FOR ANOTHER ONE 45$: TST (SP)+ ; CLEAR STACK .ENDC ; (I$$PEF) 46$: ; REFERENCE LABEL .IFT ; (I$$PUN) CMP 2(SP),#4* ; TEST IF ALL CONTROLLERS HANDLED BHIS 50$ ; ..YES ADD #4,2(SP) ; ..NO-CONTINUE WITH NEXT CONTROLLER MOV U.CW3(R5),R1 ; RESTORE ORIGINAL MATCH JMP 5$ ; .. .IFTF 50$: TST (SP)+ ; SEE IF ANY BLOCKS WERE DEALLOCATED BNE 95$ ; ..YES 55$: MOV #IE.NLK&377,R0 ; ..NO, TASK NOT LINKED ERROR BR 96$ ; .. ; ; ERROR AND EXIT CONDITIONS ; 90$: MOV #IE.MOD&377,R0 ; NO SUCH MODULE BR 92$ 91$: MOV #IE.NST&377,R0 ; TASK NOT INSTALLED TST (SP)+ ; POP MATCH COUNTER 92$: SEC ; SET FAILURE RETURN CODE BR 97$ 95$: MOV #IS.SUC&377,R0 ; SUCCESS 96$: CLC ; SET SUCCESS RETURN CODE 97$: ; REFERENCE .IFT ; (I$$PUN) TST (SP)+ ; POP CONTROLLER NUMBER .ENDC MOV (SP)+,R1 ; RESTORE MATCH PARAMETER BISB R0,R0 ; SET N BIT IF ERROR (IE.XXX) RETURN ; DONE .DSABL LSB .ENDC ; (I$$PUI) ; ; LOCAL SUBROUTINE TO DEALLOCATE BLOCK POINTED TO BY R1 AND ; PRESERVING R0. SIZE OF BLOCK IS PASSED AS IN-LINE ARGUMENT: ; JSR R5,DEALL ; .WORD SIZE-IN-BYTES ; DEALL: MOV R0,-(SP) ; SAVE R0 MOV R1,R0 ; COPY ADDRESS MOV (R5)+,R1 ; GET SIZE CALL $DEACB ; DEALLOCATE BLOCK MOV (SP)+,R0 ; RESTORE R0 ; ; NOTE: R2 AND R3 ARE BLOWN BY THIS ROUTINE ; RTS R5 ; RETURN .IF DF I$$PUI ! I$$PDI ! I$$PCO ;MSH067 ;**-1 .ENABL LSB .PAGE .SBTTL DISCNC -- DISCONNECT CIRCULAR BUFFER FROM INTERRUPTS ; ; INPUTS: ; R0 = TCB, R3 = UNSOL INT TABLE, R4 = SCB, R5 = UCB ; PS MAY BE AT DEVICE PRIORITY, CC'S SET FROM MOV R3,R3 ; ; OUTPUTS: ; BCC=SUCCESS ; BCS/BEQ=NO SUCH MODULE, BNE=NOT CONNECTED TO BUFFER ; DISCNC: BEQ 10$ ;;; NO SUCH TABLE CMP R0,IMTCB(R3) ;;; SEE IF TASK IS CONNECTED BNE 10$ ;;; ..NO CLR IMTCB(R3) ;;; RESET CONNECTION TABLE PARAMETERS CLR IMEVA(R3) ;;; ... CLR IMEVM(R3) ;;; ... DECB T.IOC(R0) ;;; DECREMENT OUTSTANDING I/O COUNT .IF DF D$$SHF MOV T.PCB(R0),R1 ;;; GET ADDR OF PCB BIC #PS.NSF,P.STAT(R1) ;;; ENABLE TASK SHUFFLING .ENDC BR 20$ 10$: SEC ;;; ERROR FLAG 20$: RETURN ;;; COMMON EXIT .DSABL LSB .PAGE ;**-1 .SBTTL INNPT -- INITIALIZE MAX # PTS IN UNSOLICITED INT TABLES ; ; INPPT ; ; INPUTS: R0 = ADDR OF UNSOLICITED INTERRUPT TABLE ; R1 = MODULE TYPE ; R4 = SCB ; CC'S SET AS FROM TST R0 ; OUTPUT: R5 = MAX ENTRY OFFSET ; .ENABLE LSB ;**-1 INNPT: BEQ 30$ ; NO SUCH TABLE CONFIGURED ASL R1 ; MAKE MODULE TYPE INTO WORD INDEX ADD #S.IPM-2,R1 ; GET LISTHEAD FOR MAPPING TBL, THIS TYPE ADD R4,R1 ; ... CLR R2 ; INI MAX POINT NUMBER CLR R5 ; SET UP TO RETURN MAX ENTRY# 10$: MOV (R1),R1 ; GET FIRST/NEXT MAP ENTRY (DENSE SET) BEQ 20$ ; DONE MOV IPMMAX(R1),R2 ; GET CURRENT MAX ENTRY NUMBER MOV R2,R5 ; COPY MAX ENTRY NUMBER BR 10$ ; CONTINUE 20$: ASL R2 ; CONVERT MAX ENTRY TO MAX POINT (MPY8) ASL R2 ; ... ASL R2 ; ... MOV R2,(R0) ; STORE IN UNSOLICITED INT TABLE 30$: RETURN ; DONE .DSABL LSB .ENDC .PAGE .SBTTL FGCENT -- FIND GENERIC CODE TABLE ENTRY ; ; INPUTS: R0 = GENERIC CODE ; OUTPUT: BCS/THIS MODULE NOT SUPPORTED ; BCC/R2 HOLDS ADDRESS OF ENTRY IN TABLE GENCOD ; FGCENT: MOV #GENCOD,R2 ;;; GET TOP OF TABLE 10$: CMPB R0,(R2) ;;; TEST GENERIC CODE VS TABLE ENTRY BEQ 20$ ;;; ..FOUND RIGHT ENTRY CMP (R2)+,(R2)+ ;;; NOT FOUND--STEP TO NEXT ENTRY TST (R2) ;;; TEST END OF TABLE BNE 10$ ;;; ..NOT THERE BR 30$ ;;; END OF TABLE--MODULE NOT SUPPORTED 20$: SEC ;;; FLAG SUCCESS 30$: RETURN ;;; EXIT .DSABL LSB .PAGE .SBTTL SAVER -- COROUTINE TO SAVE/RESTORE REGISTERS R3-R0 .IF DF I$$PAD!I$$P14!I$$PCO!I$$PDI!I$$PTI ; CALLED BY: JSR R3,SAVER ; REENTERED BY: RETURN ; SAVER: MOV R2,-(SP) ;;; SAVE REGISTERS ON STACK MOV R1,-(SP) ;;; ... MOV R0,-(SP) ;;; ... CALL (R3) ;;; CO-ROUTINE CALL MOV (SP)+,R0 MOV (SP)+,R1 MOV (SP)+,R2 MOV (SP)+,R3 ;;; RESTORE ALL RETURN ;;; RETURN TO $INTSV COROUTINE .ENDC .PAGE .SBTTL DAOUT -- OUTPUT VOLTAGE TO DAC .IF DF I$$PDA ; ; INPUTS: R0 = RELATIVE ENTRY NUMBER OF DAC CHANNEL ; R1 = VOLTAGE TO BE OUTPUT (10 BITS) ; R4 = SCB ADDRESS ; ; OUTPUTS: R0 CHANGED, ALL OTHER REGISTERS UNMODIFIED ; C/C = NO ERROR, OUTPUT WAS DONE ; C/S = ILLEGAL CHANNEL, NO OUTPUT DONE ; DAOUT: MOV R5,-(SP) ; SAVE REGISTER MOV R1,-(SP) ; SAVE VOLTAGE MOV #DAO,R1 ; SET MODULE TYPE CALL PCSMAP ; FIND ADDR OF DAC MODULE BCS 10$ ; ILLEGAL MODULE MOVB 1(SP),1(R0) ; OUTPUT HIGH ORDER BYTE MOVB (SP),(R0) ; OUTPUT LOW ORDER BYTE 10$: MOV (SP)+,R1 ; RESTORE VOLTAGE MOV (SP)+,R5 ; RESTORE RETURN ; DONE .ENDC .ENABL LSB .PAGE .SBTTL PH2REL -- CONVERT PHYSICAL MODULE ADDR TO REL ENTRY NUMBER ; ; INPUTS: R1 = PHYSICAL BYTE ADDR RELATIVE TO BASE ; R2 = MODULE TYPE ; R3 = CONTROLLER INDEX ; R4 = SCB ; OUTPUTS: C/S = NO SUCH MODULE ; C/C: R3 = RELATIVE ENTRY NUMBER ; ; R1 AND R2 ARE MODIFIED ; PH2REL: ASL R2 ;;; MAKE WORD INDEX OF MODULE TYPE ADD #S.IPM-2,R2 ;;; CALCULATE ADDR OF MAP HEADER ADD R4,R2 ;;; ... 10$: MOV (R2),R2 ;;; GET FIRST/NEXT MAP ENTRY, THIS TYPE BEQ 50$ ;;; DONE, NO SUCH MODULE CMPB R3,IPMCON(R2) ;;; SEE IF RIGHT CONTROLLER BNE 10$ ;;; KEEP LOOKING ; ; GOT THE RIGHT DENSE SET. CALCULATE RELATIVE ENTRY NUMBER. ; MOVB$C IPMLOW(R2),R3 ;;; GET BYTE OFFSET OF FIRST ENTRY SUB R3,R1 ;;; CALC RELATIVE BYTE OFFSET OF MODULE .IF DF I$$PCO ;;; (COS MODULES HAVE FUNNY REQUIREMENTS) CMPB IPMMOD(R2),#COS ;;; IS THIS A COS MODULE? BNE 20$ ;;; ..NO ASR R1 ;;; YES, COMPENSATE FOR ALTERNATING PRS ADC R1 ;;; OF COS BYTES .ENDC 20$: ; REFERENCE .IF DF I$$PDA CMPB IPMMOD(R2),#DAO ;;; DAC MODULE? BNE 30$ ;;; ..NO ASR R1 ;;; ..YES, COMPENSATE FOR 2 BYTES/ENTRY 30$: CMPB IPMMOD(R2),#IN08 ;;; 8-BIT INPUT COUNTER? BNE 35$ ;;; IF NE NO ; ; FOR 8-BIT COUNTERS THIS ROUTINE CALCULATE THE LOWEST RELATIVE DEVICE ; NUMBER FOR THE MODULE. TO GET THE ACTUAL RELATIVE ENTRY THE OFFSET ; FOR DEVICE NUMBER WITHIN THIS MODULE MUST BE ADDED TO THE RESULT OF ; THIS ROUTINE. ; ASR R1 ;;; ALLOW FOR 2 BYTES PER MODULE ASL R1 ;;; AND THEN FOUR RELATIVE ENTRIES ASL R1 ;;; PER 2 BYTE MODULE 35$: CMPB IPMMOD(R2),#IN16 ;;; 16-BIT INPUT COUNTER? BEQ 40$ ;;; IF EQ YES CMPB IPMMOD(R2),#OU16 ;;; 16-BIT OUTPUT COUNTER? BNE 45$ ;;; IF NE NO 40$: ASR R1 ;;; TWO BYTES PER DEVICE 45$: ;;; REFERENCE LABEL .ENDC ; ; (HERE, SIMILAR COMPENSATION MUST BE ADDED FOR OTHER MODULES ; WITH SPECIAL REQUIREMENTS--I.E. NOT ONE BYTE/ENTRY) ; MOVB$C IPMMIN(R2),R3 ;;; GET MINIMUM RELATIVE ENTRY, THIS SET ADD R1,R3 ;;; CALCULATE RELATIVE ENTRY NUMBER CLC BR 60$ ;;; (NOTE, C/C UNLESS ERROR!) 50$: SEC ;;; FLAG ERROR 60$: RETURN .DSABL LSB .ENABL LSB .PAGE .SBTTL PCSMAP -- CONVERT REL BYTE NUMBER TO PHYSICAL ADDRESS ; INPUTS: R0 = RELATIVE BYTE NUMBER ; R1 = MODULE TYPE ; R4 = SCB ADDRESS ; OUTPUTS: C/S = FAILURE ; C/C = SUCCESS: R0=PHYSICAL ADDRESS, R1=CONTROLLER INDEX ; IF R5<0 ON INPUT, R5=MAP ENTRY ADDRESS ON SUCCESS EXIT ; OTHER REGISTERS PRESERVED ; PCSMAP: MOV R2,-(SP) ; WORK REGISTERS MOV R3,-(SP) ; ... ASL R1 ; MAKE WORD INDEX OF MODULE TYPE ADD #S.IPM-2,R1 ; GET MAP HEADER ADD R4,R1 ; ... 10$: MOV (R1),R1 ; FIRST/NEXT DENSE SET ENTRY BEQ 99$ ; ERROR - END OF LIST PCSM1: CMP R0,IPMMAX(R1) ; CHECK RANGE OF DENSE SET BHI 10$ ; NOT RIGHT SET YET MOVB$C IPMLOW(R1),R2 ; GET RELATIVE OFFSET OF 1ST ENTRY MOV IPMMIN(R1),R3 ; GET MIN RELATIVE ENTRY NUMBER SUB R3,R0 ; CALCULATE LOCAL RELATIVE ENTRY NBR BEQ 20$ ; WANT FIRST ENTRY IN DENSE SET .IF DF I$$PCO CMPB IPMMOD(R1),#COS ; TEST FOR COS ENTRY BNE 15$ ; ...NOT COS MOV R0,R3 ; ADJUST FOR SPECIAL COS ADDRESSING BIC #1,R0 ; STRIP ODD BIT ASL R0 ; MAKE DOUBLE INDEX ASR R3 ; SAVE ODD OFFSET IN CARRY ADC R2 ; AND USE TO BIAS PHYSICAL OFFSET BR 20$ ; ... 15$: ; REFERENCE LABEL .ENDC .IF DF I$$PDA CMPB IPMMOD(R1),#DAO ; TEST FOR ANALOG OUTPUT BNE 17$ ; ..NO ASL R0 ; ADJUST FOR 2 BYTES/ENTRY ; BR 20$ ; (ENABLE IF OTHER TESTS REQUIRED) 17$: ; REFERENCE .ENDC .IF DF I$$PTI CMPB IPMMOD(R1),#IN16 ;16-BIT COUNTER? BEQ 18$ ;IF EQ YES CMPB IPMMOD(R1),#OU16 ;16-BIT COUNTER? BEQ 18$ ; YES CMPB IPMMOD(R1),#IN08 ;8-BIT INPUT COUNTER? BNE 19$ ; NO CONTINUE ASR R0 ; FIX RELATIVE BYTE FOR 8-BIT COUNTER ASR R0 ; REL DEVICE /4) * 2 18$: ASL R0 ; ADJUST FOR 2 BYTE DEVICE BR 20$ ; CONTINUE ; 19$: .ENDC 20$: ADD R2,R0 ; ADD LOCAL RELATIVE TO BYTE OFFSET TST R5 ; WANT ENTRY ADDR RETURNED? BPL 50$ ; ..NO MOV R1,R5 ; ..YES 50$: MOVB IPMCON(R1),R1 ; GET CONTROLLER INDEX ADD PCSBAS(R1),R0 ; ADD IN BASE ADDRESS CLC ; NO ERROR BR 100$ ; ... 99$: SEC ; ERROR 100$: MOV (SP)+,R3 MOV (SP)+,R2 ; RESTORE WORK REGISTERS RETURN .DSABL LSB ; ; THIS DRIVER CURRENTLY IS SUPPORTED ONLY UP TO 4K WORDS IF IT IS ; LOADABLE. IT MUST BE RECONFIGURED IF GREATER THAN 4K WORD SUPPORT ; IS DESIRED. THIS IS BECAUSE THE DRIVER IS RESPONSIBLE FOR MAPPING ; ANY PART OF ITSELF THAT IS ABOVE THE 4K WORD BOUNDARY. ; .IF DF LD$IP .IF GT -20000 .ERROR ;DRIVER TOO LARGE TPO BE LOADABLE .ENDC .ENDC PCSBOT: ;LAST ADDRESS OF DRIVER .END P„MðskQ ›c, .TITLE LPDRV .IDENT /V10.1/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; VERSION 10.1 ; ; D. N. CUTLER 9-NOV-73 ; ; PREVIOUSLY MODIFIED BY: ; ; C. A. D'ELIA ; T. J. MILLER ; K. E. KINNEAR ; T. J. MILLER ; E. L. BAATZ ; E. E. OUYANG ; P. J. KOBAR ; A. S. GROUPE ; A. S. GROUPE ; ; MODIFIED BY: ; ; 23-JUN-80 ALAN GROUPE ; AG048 REPLACE CONDITIONAL CODE INADVERTANTLY REMOVED WHEN ; MAKING DRIVER COMMON ; ; LP11/LS11 LINE PRINTER CONTROLLER DRIVER ; ; MACRO LIBRARY CALLS ; .MCALL ABODF$,HWDDF$,PKTDF$ ABODF$ ;DEFINE TASK ABORT CODES HWDDF$ ;DEFINE HARDWARE REGISTERS PKTDF$ ;DEFINE I/O PACKET OFFSETS ; ; EQUATED SYMBOLS ; ; LINE PRINTER STATUS WORD BIT DEFINITIONS (U.CW2) ; LS11=100000 ;LS11 PRINTER (1=YES) CRJT=40000 ;CARRIAGE RETURN JUST OUTPUT (1=YES) FORM=20000 ;FORM FEED REQUIRED (1=YES) CRTY=10000 ;CARRIAGE RETURN REQUIRED (1=YES) ABRT=4000 ;ABORT REQUEST IF HUNG (1=YES) LFCT=3000 ;UNPROCESSED LINE FEED COUNT FIELD LFBT=1000 ;UNPROCESSED LINE FEED ADD/SUB BIT BHLD=400 ;BYTE HELD BACK FOR CARRIAGE RETURN (1=YES) LP.LCA=100 ;LOWER CASE ALLOWED (1=YES) BLCT=7 ;UNPROCESSED BLANK COUNT FIELD BLBT=1 ;UNPROCESSED BLANK ADD/SUB BIT ; ; LINE PRINTER HORIZONAL POSITION AND HELD BACK BYTE (U.CW3) ; HORPS=0 ;HORIZONAL POSITION HELDB=1 ;BYTE HELD BACK ; ; DEFINE TIMEOUT WITH NO ERROR BIT IN S.STS FOR LP ; TMONO=200 ; 1=TIMEOUT WITH NO ERROR ; ; LOCAL DATA ; DDT$ LP,L$$P11,,,UCBSV ;AG048 ;**-1 ;+ ; **-LPINI-LP11/LS11 LINE PRINTER CONTROLLER INITIATOR ; ; THIS ROUTINE IS ENTERED FROM THE QUEUE I/O DIRECTIVE WHEN AN I/O REQUEST ; IS QUEUED AND AT THE END OF A PREVIOUS I/O OPERATION TO PROPAGATE THE EXECU- ; TION OF THE DRIVER. IF THE SPECIFIED CONTROLLER IS NOT BUSY, THEN AN ATTEMPT ; IS MADE TO DEQUEUE THE NEXT I/O REQUEST. ELSE A RETURN TO THE CALLER IS ; EXECUTED. IF THE DEQUEUE ATTEMPT IS SUCCESSFUL, THEN THE NEXT I/O OPER- ; ATION IS INITIATED. A RETURN TO THE CALLER IS THEN EXECUTED. ; ; INPUTS: ; ; R5=ADDRESS OF THE UCB OF THE CONTROLLER TO BE INITIATED. ; ; OUTPUTS: ; ; IF THE SPECIFIED CONTROLLER IS NOT BUSY AND AN I/O REQUEST IS WAIT- ; ING TO BE PROCESSED, THEN THE REQUEST IS DEQUEUED AND THE I/O OPER- ; ATION IS INITIATED. ;- .ENABL LSB LPINI: GTPKT$ LP,L$$P11,LPPWF,UCBSV,T ;AG048 ;**-1 ; ; THE FOLLOWING ARGUMENTS ARE RETURNED BY $GTPKT: ; ; R1=ADDRESS OF THE I/O REQUEST PACKET. ; R2=PHYSICAL UNIT NUMBER OF THE REQUEST UCB. ; R3=CONTROLLER INDEX. ; R3=ADDRESS OF THE STATUS CONTROL BLOCK. ; R5=ADDRESS OF THE UCB OF THE CONTROLLER TO BE INITIATED. ; ; LINE PRINTER I/O REQUEST PACKET FORMAT: ; ; WD. 00 -- I/O QUEUE THREAD WORD. ; WD. 01 -- REQUEST PRIORITY, EVENT FLAG NUMBER. ; WD. 02 -- ADDRESS OF THE TCB OF THE REQUESTER TASK. ; WD. 03 -- POINTER TO SECOND LUN WORD IN REQUESTER TASK HEADER. ; WD. 04 -- CONTENTS OF THE FIRST LUN WORD IN REQUESTER TASK HEADER (UCB). ; WD. 05 -- I/O FUNCTION CODE (IO.WLB). ; WD. 06 -- VIRTUAL ADDRESS OF I/O STATUS BLOCK. ; WD. 07 -- RELOCATION BIAS OF I/O STATUS BLOCK. ; WD. 10 -- I/O STATUS BLOCK ADDRESS (REAL OR DISPLACEMENT + 140000). ; WD. 11 -- VIRTUAL ADDRESS OF AST SERVICE ROUTINE. ; WD. 12 -- RELOCATION BIAS OF I/O BUFFER. ; WD. 13 -- BUFFER ADDRESS OF I/O TRANSFER. ; WD. 14 -- NUMBER OF BYTES TO BE TRANSFERED. ; WD. 15 -- CARRIAGE CONTROL BYTE. ; WD. 16 -- NOT USED. ; WD. 17 -- NOT USED. ; WD. 20 -- NOT USED. ; MOV R5,R3 ;CALCULATE ADDRESS OF PRINTER STATUS WOR ADD #U.CW2,R3 ; BIC #FORM!CRTY!ABRT!LFCT!BHLD!BLCT,(R3) ;CLEAR STATUS BITS MOVB I.PRM+6(R1),R0 ;GET CARRIAGE CONTROL BYTE BEQ 30$ ;IF EQ NO CARRIAGE CONTROL CMPB #'$,R0 ;CARRIAGE RETURN AT END OF LINE? BEQ 10$ ;IF EQ NO BIS #CRTY,(R3) ;SET FOR CARRIAGE RETURN AT AND OF LINE 10$: CMPB #'+,R0 ;LINE FEED AT BEGINNING OF LINE? BEQ 30$ ;IF EQ NO CMPB #'1,R0 ;FORM FEED AT BEGINNING OF LINE? BNE 20$ ;IF NE NO ADD #FORM-LFBT,(R3) ;SET FOR FORM FEED AT BEGINING OF LINE 20$: ADD #LFBT,(R3) ;ADD IN ONE LINE FEED CMPB #'0,R0 ;DOUBLE SPACE? BNE 30$ ;IF NE NO ADD #LFBT,(R3) ;ADD IN ONE LINE FEED 30$: CALL LPRNT ;FILL LINE PRINTER BUFFER BCC 50$ ;IF CC REQUEST FINISHED BITB #TMONO,S.STS(R4) ;TIMEOUT NO ERROR BIT SET? BEQ 40$ ;NO MOVB #2,S.CTM(R4) ;SET TIME OUT COUNT TO 2 (MIN. 1 SEC.) BR 41$ ;SKIP 40$: MOVB S.ITM(R4),S.CTM(R4) ;RESET DEVICE TIMEOUT COUNT 41$: BISB #100,@S.CSR(R4) ;ENABLE PRINTER INTERRUPT ; ; POWERFAIL IS HANDLED VIA THE DEVICE TIMEOUT FACILITY AND THEREFORE CAUSES ; NO IMMEDIATE ACTION ON THE DEVICE. THIS IS DONE TO AVOID A RACE CONDITION ; THAT COUND EXIST IN RESTARTING THE I/O OPERATION ; LPPWF: RETURN ; ;+ ; **-$LPINT-LP11/LS11 LINE PRINTER CONTROLLER INTERUPTS ;- $LPINT:: ;;;REF LABEL INTSV$ LP,PR4,L$$P11,,UCBSV ;; GENERATE INTERRUPT SAVE CODE ;AG048 MOV U.SCB(R5),R4 ;;;GET ADDRESS OF STATUS CONTROL BLOCK ;**-1 CLRB @S.CSR(R4) ;;;DISABLE PRINTER INTERRUPTS CALL $FORK ;;;CREATE A SYSTEM PROCESS TST @S.CSR(R4) ;PRINTER READY? BMI 70$ ;IF MI NO MOV R5,R3 ;CALCULATE ADDRESS OF PRINTER STATUS WORD ADD #U.CW2,R3 ; CALL LPRNT ;FILL LINE PRINTER BUFFER BCS 40$ ;IF CS OPERATION DID NOT FINISH 50$: MOV S.PKT(R4),R1 ;GET ADDRESS OF I/O PACKET MOV I.PRM+4(R1),R1 ;GET NUMBER OF BYTES PROCESSED MOV #IS.SUC&377,R0 ;SET SUCCESSFUL STATUS 60$: CALL $IODON ;FINISH I/O OPERATION BR LPINI ; ; ; DEVICE TIMEOUT RESULTS IN A NOT READY MESSAGE BEING OUTPUT AT ; A SYSGEN SPECIFIED INTERVAL. TIMEOUTS ARE CAUSED BY POWERFAILURE ; AND PRINTER FAULT CONDITIONS. ; LPOUT: CLRB @S.CSR(R4) ;;;DISABLE PRINTER INTERRUPT MTPS #0 ;;;ALLOW INTERRUPTS 70$: MOV R5,R3 ;CALCULATE ADDRESS OF RELOCATION BIAS ADD #U.BUF,R3 ; MOV S.PKT(R4),R1 ;GET ADDRESS OF I/O PACKET ADD #I.PRM,R1 ;POINT TO RELOCATION BIAS MOV (R1)+,(R3)+ ;RESET RELOCATION BIAS MOV (R1)+,(R3)+ ;RESET BUFFER ADDRESS MOV (R1),(R3) ;RESET BYTE COUNT MOV #IE.ABO&377,R0 ;ASSUME REQUEST IS TO BE ABORTED ADD #U.CW2-U.CNT,R3 ;ADJUST TO PRINTER STATUS WORD BIT #ABRT,(R3) ;ABORT REQUEST? BNE 60$ ;IF NE YES TST @S.CSR(R4) ;PRINTER READY? BMI 80$ ;NOT READY(ERROR BIT SET) BITB #TMONO,S.STS(R4) ;WAS TIMEOUT WITH NO ERROR BIT? BNE 71$ ;YES IF NE BISB #TMONO,S.STS(R4) ;NO, SET THE BIT(TO CLEAR WHEN IODON) ; ; WHEN THE PRINTER GOES OFFLINE WHILE PRINTING, THE STATUS OF THE ; PRINTER'S LINE BUFFER IS UNKNOWN. AT THIS POINT THERE ARE TWO WAYS TO ; PROCEED. THE FIRST METHOD IS TO START REFILLING THE BUFFER OVER AGAIN. ; THIS HAS THE SIDE EFFECT THAT ON SOME LINE PRINTERS THE LINE PRINTED ; JUST BEFORE THE PRINTER WENT OFFLINE MAY BE REPRINTED ON TOP OF THE ; ORIGINAL PRINT OF THE LINE. THE OTHER ALTERNATIVE IS TO ASSUME THAT ; THE LINE DID PRINT AND START WITH THE NEXT ONE. THIS HAS THE SIDE ; EFFECT THAT A LINE OF OUTPUT MAY BE SKIPPED AND A BLANK INSERTED IN ; THE OUTPUT. SINCE THE FIRST ALTERNATIVE ONLY CAUSES ONE LINE TO GET ; DARKER AT TIMES, WE HAVE DECIDED THAT IT IS THE PREFERABLE WAY TO ; PROCEED. HOWEVER, SINCE NEITHER ALTERNATIVE IS PERFECT, THE OPTION ; HAS BEEN LEFT OPEN. INSTALLATIONS PREFERING THE LATTER ALTERNATIVE ; SHOULD COMMENT OUT THE FOLLOWING BRANCH TO 30$ AND REMOVE THE SEMICOLON ; FROM THE BRANCH TO 50$. BR 30$ ; MAY OVERPRINT LAST LINE ; BR 50$ ; MAY SKIP A LINE OF OUTPUT 71$: BICB #TMONO,S.STS(R4) ;2 TIMEOUTS WITH NO ERROR => ERROR 80$: ;LP NOT READY ;AG048 .IF DF T$$KMG ;AG048 ;AG048 MOV #T.NDNR,R0 ;SET FOR NOT READY MESSAGE ;AG048 .IFTF ;AG048 ;AG048 MOVB #1,S.CTM(R4) ;SET TIMEOUT FOR 1 SECOND ;AG048 .IFT ;AG048 ;AG048 DECB S.STS(R4) ;TIME TO OUTPUT MESSAGE? BNE LPPWF ;IF NE NO ;AG048 .IF NDF L$$PTO ;AG048 ;AG048 MOVB #15.,S.STS(R4) ; DEFAULT TIME OUT TO 15 SEC. ;AG048 ;AG048 .IFF ;AG048 ;AG048 MOVB #L$$PTO,S.STS(R4) ;SET TO OUTPUT NEXT MESSAGE IN ; L$$PTO SECONDS BNE 90$ ;IF NE LP NOT READY MESSAGES ENABLED INCB S.STS(R4) ;LP NOT READY MESSAGES NOT WANTED, SO BR LPPWF ; REBUSY CONTROLLER ;AG048 .ENDC ;AG048 ;AG048 90$: CALLR $DVMSG ;OUTPUT MESSAGE .IFF ;AG048 ;AG048 BR LPPWF ;AG048 ;AG048 .ENDC ;AG048 ;AG048 .DSABL LSB ; ; CANCEL I/O OPERATION-FORCE I/O TO COMPLETE IF DEVICE IS NOT READY ; LPCAN: CMP R1,I.TCB(R0) ;;;REQUEST FOR CURRENT TASK? BNE 10$ ;;;IF NE NO BIS #ABRT,U.CW2(R5) ;;;SET FOR ABORT IF DEVICE NOT READY 10$: RETURN ;;; ; ; SUBROUTINE TO FILL LINE PRINTER BUFFER ; LPRNT: MOV S.CSR(R4),R1 ;GET ADDRESS OF CONTROL STATUS REGISTER MOV U.BUF+2(R5),R0 ;GET ADDRESS OF USER BUFFER ;AG048 .IF DF M$$MGE ;AG048 ;AG048 MOV U.BUF(R5),KISAR6 ;MAP TO USER BUFFER ;AG048 .IFTF ;AG048 ;AG048 5$: MOV #5,R2 ; SET LOOP COUNT 10$: BIT #100200,(R1) ;PRINTER FAULT OR READY? BMI 20$ ;IF MI PRINTER FAULT BNE 40$ ;IF NE PRINTER READY DEC R2 BNE 10$ 20$: SEC ;SET BUSY INDICATOR 30$: MOV R0,U.BUF+2(R5) ;SAVE ADDRESS OF NEXT BYTE IN USER BUFFER ;AG048 .IFT ;AG048 ;AG048 MOV KISAR6,U.BUF(R5) ;SAVE MAPPING INFORMATION ;AG048 .ENDC ;AG048 ;AG048 RETURN ; 35$: TST -(R3) ;ADJUST TO PRINTER STATUS WORD 40$: BIT #FORM!LFCT!BHLD!BLCT,(R3) ;FORM, LINE FEED, BYTE HELD, OR BLANK BEQ 50$ ;IF EQ NO BIT #BLCT,(R3) ;ANY BLANKS TO BE OUTPUT? BNE 80$ ;IF NE YES BIT #BHLD,(R3) ;BYTE HELD BACK FOR CARRIAGE RETURN? BNE 65$ ;IF NE YES BIT #FORM,(R3) ;FORM FEED TO BE OUTPUT? BNE 60$ ;IF NE YES SUB #LFBT,(R3)+ ;REDUCE LINE FEED COUNT MOVB #12,R2 ;SET TO OUTPUT A LINE FEED BR 100$ ; 50$: TST U.CNT(R5) ;ANY MORE BYTES TO OUTPUT? BNE 70$ ;IF NE YES BIT #CRTY,(R3) ;CARIAGE RETURN AT END OF LINE? BEQ 30$ ;IF EQ NO BIC #CRTY,(R3)+ ;CLEAR CARRIAGE RETURN BIT MOVB #15,R2 ;SET TO OUTPUT A CARRIAGE RETURN BR 100$ ; 60$: BIC #FORM,(R3)+ ;CLEAR FORM FEED BIT MOVB #14,R2 ;SET TO OUTPUT A FORM FEED BR 100$ ; 65$: BIC #BHLD,(R3) ;CLEAR BYTE HELD FOR CARRIAGE RETURN MOVB 3(R3),R2 ;RETRIEVE HELD BYTE BR 150$ ; 70$: MOVB (R0)+,R2 ;GET NEXT BYTE FROM USER BUFFER ;AG048 .IF DF M$$MGE ;AG048 ;AG048 BIT #20000,R0 ;OVERFLOW 4K BOUNDRY? BEQ 75$ ;IF EQ NO BIC #20000,R0 ;CLEAR OVERFLOW BIT ADD #200,KISAR6 ;UPDATE RELOCATION BIAS ;AG048 .ENDC ;AG048 ;AG048 75$: DEC U.CNT(R5) ;DECREMENT BYTE COUNT CMPB #177,R2 ;RUBOUT? BEQ 50$ ;IF EQ YES TST (R3)+ ;ADJUST TO HORIZONAL POSITION CMPB #11,R2 ;HORIZONAL TAB? BNE 90$ ;IF NE NO MOVB (R3),-(SP) ;GET CURRENT HORIZONAL POSITION BIS #177770,(SP) ;CALCULATE BLANK COUNT TO NEXT TAB STOP NEG (SP) ; BIS (SP)+,-(R3) ;SET BLANK COUNT 80$: DEC (R3)+ ;REDUCE BLANK COUNT MOVB #' ,R2 ;SET TO OUTPUT A BLANK 90$: BHI 110$ ;IF HI OUTPUT BYTE CMPB #15,R2 ;LF, CR, VT, OR FF? BLO 110$ ;IF LO NO CMPB #13,R2 ;VERTICLE TAB? BEQ 110$ ;IF EQ YES 100$: CLRB (R3) ;CLEAR HORIZONAL POSITION BR 120$ ; 110$: CMPB (R3),U.CW4(R5) ;CARRIAGE OVERFLOW? BHIS 35$ ;IF HIS YES INCB (R3) ;INCREMENT HORIZONAL POSITION 120$: TST -(R3) ;LS11 PRINTER? .IF DF L$$11R BMI 150$ ;IF MI YES CMPB R2,#15 ;CARRIAGE RETURN? BHI 130$ ;IF HI NO BEQ 160$ ;IF EQ YES CMPB R2,#14 ;FORM FEED? BEQ 140$ ;IF EQ YES CMPB R2,#12 ;LINE FEED? BEQ 140$ ;IF EQ YES 130$: BIT #CRJT,(R3) ;CARRIAGE RETURN JUST OUTPUT? BEQ 150$ ;IF EQ NO BIS #BHLD,(R3) ;SET BYTE HELD BACK FOR CARRIAGE RETURN MOVB R2,3(R3) ;SAVE BYTE HELD BACK MOVB #15,R2 ;SET TO OUTPUT CARRIAGE RETURN 140$: BIC #CRJT,(R3) ;CLEAR CARRIAGE RETURN JUST OUTPUT .IFTF ; ; TEST THE PRINTER CASE INDICATION IN CW2 ; IF IT DOES NOT INDICATE LOWER CASE ALLOWED (LP.LCA=0), ; FORCE LOWER CASE CHARACTERS TO UPPER CASE ; 150$: BIT #LP.LCA,U.CW2(RR5) ; IS /LOWER=LP BNE 155$ ;YES, SKIP CONVERT CMPB #141,R2 ;'a' OR ABOVE BHI 155$ ;NO CMPB #172,R2 ;YES, 'z' OR BELOW BLO 155$ ;NO BIC #40,R2 ;YES, CONVERT IT 155$: MOVB R2,2(R1) ;OUTPUT BYTE JMP 5$ ; GO AGAIN .IFT 160$: BIS #CRJT,(R3) ;SET CARRIAGE RETURN JUST OUTPUT JMP 5$ ; .ENDC .END R”ðskQ ›c, .TITLE CRDRV .IDENT /7.7/ ; ; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; ; VERSION 7.7 ; ; D. N. CUTLER 3-MAR-74 ; ; PREVIOUSLY MODIFIED BY: ; ; D. N. CUTLER ; C. A. D'ELIA ; K. E. KINNEAR ; E. L. BAATZ ; E. E. OUYANG ; ; MODIFIED BY: ; ; A. GROUPE 15-AUG-80 ; ; AG048 -- REPLACE CONDITIONAL CODE INADVERTANTLY ; DELETED WHEN DRIVER MADE COMMON ; ; P. J. CARR 3-APR-81 ; ; PJC027 -- CLEAN UP CODE ; ; P. J. CARR 28-SEP-81 ; ; PJC032 -- CORRECT HANDLING OF TRANSITION TO ONLINE ; ; P. J. CARR 28-SEP-81 ; ; PJC033 -- CHECK FOR OFFLINE CONDITION IN CRINT ; ; P. J. CARR 7-0CT-81 ; ; PJC034 -- CHECK FOR HOPPER ERROR IN CRINT ; ; P. J. CARR 25-NOV-81 ; ; PJC036 -- ADD ATTACH FOR UNCOLICITED AST SUPPORT ; ; P. J. CARR 25-NOV-81 ; ; PJC038 -- CLEAN UP CODE MORE ; ; ; CR11 CARD READER CONTROLLER DRIVER ; ; MACRO LIBRARY CALLS ; .MCALL ABODF$,HWDDF$,PKTDF$,UCBDF$ ABODF$ ;DEFINE TASK ABORT CODES HWDDF$ ;DEFINE HARDWARE REGISTERS PKTDF$ ;DEFINE I/O PACKET OFFSETS UCBDF$ ;DEFINE UCB OFFSETS ; ; EQUATED SYMBOLS ; ; PJC036 ASTSIZ= 16. ;SIZE OF AST BLOCK ; PJC036 STKSIZ= 14. ;SIZE OF STACK IN AST BLOCK ; PJC036 ; PJC027 ; ; PJC027 ; CR11 DEVICE REGISTER OFFSETS ; PJC027 ; ; PJC027 ; PJC027 CRCS= 0 ;CARD READER CONTROL STATUS REGISTER ; PJC027 CRDB= 2 ;CARD READER DATA BUFFER ; PJC027 ; PJC027 ; ; PJC027 ; CARD READER CONTROL STATUS REGISTER ; PJC027 ; ; PJC027 ; PJC027 ERR= 100000 ;COMBINED ERROR ; PJC027 HOPERR= 20000 ;HOPPER CHECK ERROR ; PJC027 MTNERR= 10000 ;MOTION ERROR ; PJC027 TIMERR= 4000 ;TIMING ERROR ; PJC027 TRONL= 2000 ;TRANSITION TO ONLINE ; PJC027 BUSY= 1000 ;BUSY ; PJC027 READY= 400 ;ONLINE, READY TO READ (=0) ; PJC027 DONE= 200 ;COLUMN OF DATA IS READY IN CRDB ; PJC027 IE= 100 ;INTERRUPT ENABLE ; PJC027 READ= 1 ;READ ; PJC027 ; PJC027 TIMERR= 4000 ;TIMING ERROR (U.CW2) ; PJC036 ; PJC036 ; CARD READER CONTROL BLOCK OFFSETS ; STRBF=U.CNT+2 ;STARTING ADDRESS OF DATA BUFFER CURBF=U.CNT+4 ;CURRENT ADDRESS IN DATA BUFFER EOFCL=U.CNT+6 ;NUMBER OF COLUMNS FOR VALID EOF EOFCT=U.CNT+7 ;NUMBER OF EOF PUNCHES ENCOUNTERED CCOLC=U.CNT+10 ;CURRENT COLUMN COUNTER CCOL1=U.CNT+12 ;CONTENTS OF CARD COLUMN ONE ; ; SPECIAL CARD PUNCH PATTERNS ; CREOF=7417 ;END OF FILE (12-11-0-1-6-7-8-9) CR026=4242 ;TRANSLATE 026 CODE (12-2-4-8) CR029=5252 ;TRANSLATE 029 CODE (12-0-2-4-6-8) ; ; LOCAL DATA ; ; 029 TRANSLATION TABLE ; TB029: .BYTE 40 ;SPACE .BYTE 61 ;1 .BYTE 62 ;2 .BYTE 63 ;3 .BYTE 64 ;4 .BYTE 65 ;5 .BYTE 66 ;6 .BYTE 67 ;7 .BYTE 70 ;8 .BYTE 40 ;EMPTY .BYTE 72 ;: .BYTE 43 ;# .BYTE 100 ;@ .BYTE 47 ;' .BYTE 75 ;= .BYTE 42 ;" .BYTE 71 ;9 .BYTE 60 ;0 .BYTE 57 ;/ .BYTE 123 ;S .BYTE 124 ;T .BYTE 125 ;U .BYTE 126 ;V .BYTE 127 ;W .BYTE 130 ;X .BYTE 131 ;Y .BYTE 40 ;EMPTY .BYTE 134 ;\ .BYTE 54 ;, .BYTE 45 ;% .BYTE 137 ; .BYTE 76 ;> .BYTE 77 ;? .BYTE 132 ;Z .BYTE 55 ;- .BYTE 112 ;J .BYTE 113 ;K .BYTE 114 ;L .BYTE 115 ;M .BYTE 116 ;N .BYTE 117 ;O .BYTE 120 ;P .BYTE 121 ;Q .BYTE 40 ;EMPTY .BYTE 135 ;] .BYTE 44 ;$ .BYTE 52 ;* .BYTE 51 ;) .BYTE 73 ;; .BYTE 136 ;^ .BYTE 122 ;R .BYTE 46 ;& .BYTE 101 ;A .BYTE 102 ;B .BYTE 103 ;C .BYTE 104 ;D .BYTE 105 ;E .BYTE 106 ;F .BYTE 107 ;G .BYTE 110 ;H .BYTE 40 ;EMPTY .BYTE 133 ;[ .BYTE 56 ;. .BYTE 74 ;< .BYTE 50 ;( .BYTE 53 ;+ .BYTE 41 ;! .BYTE 111 ;I .BYTE 173 ;LEFT CURLY BRACKET .BYTE 175 ;RIGHT CURLY BRACKET ; ; 026 TRANSLATION TABLE ; TB026: .BYTE 40 ;SPACE .BYTE 61 ;1 .BYTE 62 ;2 .BYTE 63 ;3 .BYTE 64 ;4 .BYTE 65 ;5 .BYTE 66 ;6 .BYTE 67 ;7 .BYTE 70 ;8 .BYTE 40 ;EMPTY .BYTE 137 ; .BYTE 75 ;= .BYTE 100 ;@ .BYTE 136 ;^ .BYTE 47 ;' .BYTE 134 ;\ .BYTE 71 ;9 .BYTE 60 ;0 .BYTE 57 ;/ .BYTE 123 ;S .BYTE 124 ;T .BYTE 125 ;U .BYTE 126 ;V .BYTE 127 ;W .BYTE 130 ;X .BYTE 131 ;Y .BYTE 40 ;EMPTY .BYTE 73 ;; .BYTE 54 ;, .BYTE 50 ;( .BYTE 42 ;" .BYTE 43 ;# .BYTE 45 ;% .BYTE 132 ;Z .BYTE 55 ;- .BYTE 112 ;J .BYTE 113 ;K .BYTE 114 ;L .BYTE 115 ;M .BYTE 116 ;N .BYTE 117 ;O .BYTE 120 ;P .BYTE 121 ;Q .BYTE 40 ;EMPTY .BYTE 72 ;: .BYTE 44 ;$ .BYTE 52 ;* .BYTE 133 ;[ .BYTE 76 ;> .BYTE 46 ;& .BYTE 122 ;R .BYTE 53 ;+ .BYTE 101 ;A .BYTE 102 ;B .BYTE 103 ;C .BYTE 104 ;D .BYTE 105 ;E .BYTE 106 ;F .BYTE 107 ;G .BYTE 110 ;H .BYTE 40 ;EMPTY .BYTE 77 ;? .BYTE 56 ;. .BYTE 51 ;) .BYTE 135 ;] .BYTE 74 ;< .BYTE 41 ;! .BYTE 111 ;I .BYTE 173 ;LEFT CURLY BRACKET .BYTE 175 ;RIGHT CURLY BRACKET .EVEN ; ; DRIVER DISPATCH TABLE ; DDT$ CR,C$$R11,,,UCBSV ;AG048 ;**-1 ;+ ; **-CRINI-CR11 CARD READER CONTROLLER INITIATOR ; ; THIS ROUTINE IS ENTERED FROM THE QUEUE I/O DIRECTIVE WHEN AN I/O REQUEST ; IS QUEUED AND AT THE END OF PREVIOUS I/O OPERATION TO PROPAGATE THE EXECU- ; TION OF THE DRIVER. IF THE SPECIFIED CONTROLLER IS NOT BUSY, THEN AN ATTEMPT ; IS MADE TO DEQUEUE THE NEXT I/O REQUEST. ELSE A RETURN TO THE CALLER IS ; EXECUTED. IF THE DEQUEUE ATTEMPT IS SUCCESSFUL, THEN THE NEXT I/O OPER- ; ATION IS INITIATED. A RETURN TO THE CALLER IS THEN EXECUTED. ; ; INPUTS: ; ; R5=ADDRESS OF THE UCB OF THE CONTROLLER TO BE INITIATED. ; ; OUTPUTS: ; ; IF THE SPECIFIED CONTROLLER IS NOT BUSY AND AN I/O REQUEST IS WAIT- ; ING TO BE PROCESSED, THEN THE REQUEST IS DEQUEUED AND THE I/O OPER- ; ATION IS INITIATED. ;- .ENABL LSB CRINI: GTPKT$ CR,C$$R11,CRPWF,UCBSV,T ;AG048 ;**-1 ; ; THE FOLLOWING ARGUMENTS ARE RETURNED BY $GTPKT: ; ; R1=ADDRESS OF THE I/O REQUEST PACKET. ; R2=PHYSICAL UNIT NUMBER OF THE REQUEST UCB. ; R3=CONTROLLER INDEX. ; R4=ADDRESS OF THE STATUS CONTROL BLOCK. ; R5=ADDRESS OF THE UCB OF THE CONTROLLER TO BE INITIATED. ; ; CARD READER I/O REQUEST PACKET FORMAT: ; ; WD. 00 -- I/O QUEUE THREAD WORD. ; WD. 01 -- REQUEST PRIORITY, EVENT FLAG NUMBER. ; WD. 02 -- ADDRESS OF THE TCB OF THE REQUESTER TASK. ; WD. 03 -- POINTER TO THE SECOND WORD IN REQUESTER TASK HEADER. ; WD. 04 -- CONTENTS OF THE FIRST LUN WORD IN REQUESTER TASK HEADER (UCB). ; WD. 05 -- I/O FUNCTION CODE (IO.RLB). ; WD. 06 -- VIRTUAL ADDRESS OF I/O STATUS BLOCK. ; WD. 07 -- RELOCATION BIAS OF I/O STATUS BLOCK. ; WD. 10 -- I/O STATUS BLOCK ADDRESS (REAL OR DISPLACEMENT +140000). ; WD. 11 -- VIRTUAL ADDRESS OF AST SERVICE ROUTINE. ; WD. 12 -- RELOCATION BIAS OF I/O BUFFER. ; WD. 13 -- BUFFER ADDRESS OF I/O TRANSFER. ; WD. 14 -- NUMBER OF BYTES TO BE TRANSFERED. ; WD. 15 -- NOT USED. ; WD. 16 -- NOT USED. ; WD. 17 -- NOT USED. ; WD. 20 -- NOT USED. ; CLR STRBF(R5) ;ASSUME ALLOCATION FAILURE CALL CRATT ;IS IT AN ATTACH OR DETACH FUNCTION? ; PJC036 BCS 160$ ;IF CS YES ; PJC038 MOV #80.,R0 ;ASSUME ASCII OR PACKED HOLLERITH MOVB I.FCN(R1),U.CW2(R5) ;SAVE SUBFUNCTION MODIFIER BITS BPL 10$ ;IF PL ASCII OR PACKED HOLLERITH ASL R0 ;BINARY READ REQUIRES 160. BYTES 10$: MOV R0,R1 ;SET LENGTH OF BUFFER REQUIRED CALL $ALOCB ;ALLOCATE DATA BUFFER BCS 90$ ;IF CS, NO BUFFER AVAILABLE ; PJC038 MOV R0,STRBF(R5) ;SAVE STARTING BUFFER ADDRESS ;**-1 BICB #US.ABO,U.STS(R5) ;CLEAR ABORT REQUEST FLAG ; ; INITIATE CARD READ ; 20$: MOV R5,R3 ;CALCULATE ADDRESS OF CARD READER ADD #STRBF,R3 ;CONTROL BLOCK MOV (R3)+,(R3)+ ;SET CURRENT ADDRESS IN DATA BUFFER MOVB #1,(R3) ;ASSUME ASCII OR PACKET HOLLERITH TSTB U.CW2(R5) ;BINARY READ? BPL 30$ ;IF PL NO MOVB #8.,(R3) ;SET EOF COUNT FOR BINARY READ 30$: MOVB (R3)+,(R3)+ ;SET EOF COLUMN COUNTER CLR (R3) ;CLEAR CARD COLUMN COUNTER MOV S.CSR(R4),R2 ;GET CARD READER CSR ADDRESS BIT #READY,(R2)+ ;READY? ; PJC027 BNE CROUT ;IF NE NO ;**-1 MOVB S.ITM(R4),S.CTM(R4) ;SET DEVICE TIMEOUT COUNT MOV (R2),R0 ;READ DATA BUFFER CLEAR DONE IF SET MOV #,-(R2) ;START CARD MOTION ; PJC027 ;**-1 ; ; POWERFAIL IS HANDLED VIA THE DEVICE TIMEOUT FACILITY AND THEREFORE CAUSES ; NO IMMEDIATE ACTION ON THE DEVICE. THIS IS DONE TO AVOID A RACE CONDITION ; THAT COULD EXIST IN RESTARTING THE I/O OPERATION. ; CRPWF: ; ; PJC036 ;**-1 ; ; PJC036 ; CALL US BACK AFTER DEQUEUING AST ; PJC036 ; ; PJC036 ; PJC036 CRCUB:: RETURN ; ; PJC036 ; PJC036 ; ; CARD READ ERROR DURING A READ OPERATION ; CRERR: MOV #T.NCRE,R0 ;SET FOR HARDWARE ERROR MESSAGE BR 50$ ; ; PJC038 ;**-1 ; ; DEVICE TIMEOUT RESULTS IN A NOT READY MESSAGE BEING PUT OUT AT ; A SYSGEN SPECIFIED INTERVAL. TIMEOUTS ARE CAUSED BY POWERFAILURE ; AND CARD READER FAULT CONDITIONS. ; CROUT: ;;; CLR @S.CSR(R4) ;;;DISABLE CARD READER INTERRUPT MTPS #0 ;;;ALLOW INTERRUPTS ;AG048 ;AG048 .IF DF,T$$KMG ;AG048 ;AG048 40$: MOV #T.NDNR,R0 ;SET FOR NOT READY MESSAGE ; PJC038 ;AG048 .IFTF ;AG048 ;AG048 50$: BITB #US.ABO,U.STS(R5) ;ABORT REQUESTED? ; PJC038 BNE 120$ ;IF NE YES ; PJC038 ;AG048 .IFT ;AG048 ;AG048 BIT #TIMERR,U.CW2(R5) ;TIMING ERROR? ; PJC036 BEQ 60$ ;IF EQ NO ; PJC038 BIT #READY,@S.CSR(R4) ;OPERATOR PUT READER OFFLINE? ; PJC027 BEQ 70$ ;IF EQ NO ; PJC038 BIC #TIMERR,U.CW2(R5) ;CLEAR TIMING ERROR BIT ; PJC036 ;AG048 .IFTF ;AG048 ;AG048 60$: BIT #READY,@S.CSR(R4) ;CARD READER ONLINE AND READY? ; PJC038 BEQ 20$ ;IF EQ YES ;**-9 70$: MOVB #1,S.CTM(R4) ;SET TIMEOUT FOR ONE SECOND ; PJC038 ;AG048 .IFT ;AG048 ;AG048 DECB S.STS(R4) ;TIME TO PRINT MESSAGE? ;**-1 BNE CRPWF ;IF NE NO MOVB #C$$RTO,S.STS(R4) ;SET TO OUTPUT NEXT MESSAGE IN ;C$$RTO SECONDS BNE 80$ ;IF NE, CR NOT READY MESSAGES ENABLED ; PJC038 INCB S.STS(R4) ;CR NOT READY MESSAGES NOT WANTED, SO ;**-1 BR CRPWF ;REBUSY CONTROLLER 80$: CALLR $DVMSG ;OUTPUT MESSAGE ; PJC038 ;AG048 .IFF ;AG048 ;AG048 BR CRPWF ;AG048 ;AG048 .ENDC ;AG048 ;AG048 ;**-1 ; ; NO BUFFER SPACE AVAILABLE ; 90$: MOV #IE.NOD&377,R0 ;SET NO BUFFER AVAILABLE STATUS ; PJC038 BR 160$ ; ; PJC038 ; PJC034 ; ; PJC034 ; NO EOF YET AND NO MORE CARDS IN HOPPER ; PJC034 ; ; PJC034 ; PJC034 100$: MOV #!IS.SUC,R0 ;NO CARDS LEFT/NO EOF ; PJC038 TST U.CW3(R5) ;ATTACH FOR AST? ; PJC036 BEQ 160$ ;IF EQ NO ; PJC038 BIS #IE,@S.CSR(R4) ;SET INTERRUPT ENABLE ; PJC036 BR 160$ ; ; PJC038 ; PJC034 ; ; PJC034 ; JUST HAD EOF AND NO MORE CARDS IN HOPPER (FOR USE WITH ATTACH FOR ; PJC034 ; UNSOLICITED AST FUNCTION) ; PJC034 ; ; PJC034 ; PJC034 110$: MOV #!,R0 ;NO CARDS LEFT/JUST HAD EO; PJC038 BIS #IE,@S.CSR(R4) ;SET INTERRUPT ENABLE ; PJC034 INCB EOFCT(R5) ;FAKE NOT END OF FILE ; PJC034 BR 160$ ; ; PJC038 ;**-2 ; ; ABORT REQUESTED ; 120$: MOV #IE.ABO&377,R0 ;SET TRANSFER ABORTED STATUS ; PJC038 BR 160$ ; ; PJC038 ;**-2 ; ; PJC036 ; UNRECOVERABLE ERROR ; PJC036 ; ; PJC036 130$: MOV #IE.VER&377,R0 ;SET UNRECOVERABLE ERROR ; PJC038 BR 160$ ; ; PJC038 ; PJC038 ; ; PJC033 ; DEVICE NOT READY ERROR ; PJC033 ; ; PJC033 ; PJC033 140$: MOV #IE.DNR&377,R0 ;SET DEVICE NOT READY ERROR ; PJC038 BR 160$ ; ; PJC038 ; PJC038 ; ; END OF FILE ; 150$: MOV #IE.EOF&377,R0 ;SET END OF FILE STATUS ; PJC036 160$: CLR R1 ;CLEAR SECOND I/O STATUS WORD ; PJC036 JMP 320$ ; ; PJC036 ;**-3 ;+ ; **-$CRINT-CR11 CARD READER CONTROLLER INTERRUPTS ;- $CRINT:: ;;;REF LABEL INTSV$ CR,PR6,C$$R11,,UCBSV ;;;GENERATE INTERRUPT SAVE CODE ;AG048 MOV R3,-(SP) ;;;SAVE R3 ;**-1 MOV U.SCB(R5),R4 ;;;GET ADDRESS OF SCB MOV S.CSR(R4),R3 ;;;GET ADDRESS OF CSR BIT #176000,(R3)+ ;;;EXCEPTION CONDITION? BNE 170$ ;;;IF NE YES ; PJC038 JMP 350$ ;;; ; PJC038 170$: MOV -(R3),R4 ;;;SAVE CARD READER INTERRUPT STATUS ; PJC038 CLR (R3) ;;;DISABLE CARD READER INTERRUPT ;**-2 MOV (SP)+,R3 ;;;RESTORE R3 CALL $FORK ;;;CREATE A SYSTEM PROCESS MOV R4,R0 ;COPY STATUS WORD ; PJC036 MOV U.SCB(R5),R4 ;GET ADDRESS OF SCB ; PJC036 TSTB EOFCT(R5) ;END OF FILE? ; PJC036 BNE 190$ ;IF NE NO ; PJC038 TST U.CW3(R5) ;ATTACH FOR AST? ; PJC036 BEQ 180$ ;IF EQ NO ; PJC038 BIT #HOPERR,R0 ;HOPERR ERROR? ; PJC036 BNE 110$ ;IF NE - EOF, AST AND HOPPER ERROR ; PJC038 180$: BR 150$ ;EOF AND EITHER AST AND/OR HOPPER ERROR ; PJC038 190$: BIT #TRONL,R0 ;TRANSITION TO ONLINE? ; PJC038 BNE 200$ ;IF NE YES ; PJC038 BIT #READY,R0 ;READER READY AND ONLINE? ; PJC036 BEQ 230$ ;IF EQ YES ; PJC038 BIT #HOPERR,R0 ;HOPERR ERROR? ; PJC034 BNE 100$ ;IF NE, NO EOF YET AND HOPPER ERROR ; PJC038 BR 140$ ;SOME OTHER OFFLINE CONDITION ; PJC038 200$: BITB #US.BSY,U.STS(R5) ;READ IN PROGRESS? ; PJC038 BNE 60$ ;IF NE YES ; PJC038 210$: MOV U.CW3(R5),R1 ;GET ADDRESS OF AST BLOCK ; PJC038 BEQ 130$ ;IF EQ, THERE IS NONE, ERROR ; PJC038 MOV A.PRM(R1),R0 ;GET TCB ADDRESS OF TASK TO RECEIVE AST ; PJC036 CALLR $QASTT ;QUEUE AST TO TASK ; PJC036 220$: JMP CRERR ; ; PJC038 230$: ;REF LABEL ; PJC038 ;AG048 ;AG048 .IF DF,T$$KMG ;AG048 ;AG048 BIT #MTNERR,R0 ;MOTION ERROR? ; PJC027 BNE 220$ ;IF NE YES ; PJC038 BIT #TIMERR,R0 ;TIMING ERROR? ; PJC027 BEQ 240$ ;IF EQ NO ; PJC038 JMP 40$ ; ; PJC038 ;AG048 .IFF ;AG048 ;AG048 BIT #MTNERR,R0 ;MOTION ERROR ; PJC036 BNE 220$ ;IF NE YES ; PJC038 BIT #TIMERR,R0 ;TIMING ERROR ; PJC036 BEQ 240$ ;IF EQ NO ; PJC038 BIS #TIMERR,U.CW2(R5) ;SHOW TIMING ERROR ; PJC036 BR 220$ ; ; PJC038 ; AG048 .ENDC ; AG048 ; AG048 ; AG048 240$: MOV #80.*2,R0 ;ASSUME BINARY READ ; PJC038 MOVB U.CW2(R5),R1 ;BINARY READ? ;**-10 BMI 250$ ;IF MI YES ; PJC038 ASR R0 ;SET FOR ASCII OR PACKED HOLLERITH ;**-1 TSTB R1 ;PACKED HOLLERITH? BNE 250$ ;IF NE YES ; PJC038 CMP #CR026,CCOL1(R5) ;026 TRANSLATION CONTROL CARD? ;**-1 BEQ 400$ ;IF EQ YES ; PJC038 CMP #CR029,CCOL1(R5) ;029 TRANSLATION CONTROL CARD? ;**-1 BEQ 410$ ;IF EQ YES ; PJC038 MOV #TB029,R1 ;ASSUME 029 TRANSLATION ;**-1 BITB #US.MDE,U.STS(R5) ;029 TRANSLATION? BNE 250$ ;IF NE YES ; PJC038 MOV #TB026,R1 ;SET FOR 026 TRANSLATION ;**-1 250$: MOV STRBF(R5),R2 ;GET STARTING ADDRESS OF DATA BUFFER ; PJC038 MOV U.CNT(R5),-(SP) ;GET NUMBER OF BYTES TO TRANSFER ;**-1 260$: MOVB (R2)+,R3 ;GET NEXT BYTE FROM DATA BUFFER ; PJC038 BIT #300,U.CW2(R5) ;BINARY OR PACKED HOLLERITH READ? ;**-1 BNE 300$ ;IF NE YES ; PJC038 MOV #104,R4 ;ASSUME RPG SPECIAL ;**-1 CMPB R3,#240 ;RPG SPECIAL? BEQ 290$ ;IF EQ YES ; PJC038 INC R4 ;INCREMENT CHARACTER CODE ;**-1 CMPB R3,#140 ;RPG SPECIAL? BEQ 290$ ;IF EQ YES ; PJC038 MOVB R3,R4 ;SIGN EXTEND PACKED CODE ;**-1 BPL 270$ ;IF PL, ZONE 12 IS NOT PUNCHED ; PJC038 ADD #340,R4 ;ADJUST FOR ZONE 12 PUNCH ;**-1 MOV R4,R3 ;COPY FOR ZONE COUNT DOWN 270$: SUB #40,R3 ;DECREMENT COUNT OF ZONE PUNCHES ; PJC038 BMI 280$ ;IF MI DONE ; PJC038 SUB #17,R4 ;SUBTRACT 21 AND STRIP ZONE PUNCH ;**-2 BR 270$ ; ; PJC038 280$: CMP R4,#105 ;INDEX WITHIN RANGE? ; PJC038 BLOS 290$ ;IF LOS YES ; PJC038 CLR R4 ;FORCE A BLANK ;**-3 290$: ADD R1,R4 ;CALCULATE ADDRESS OF TRANSLATE CODE ; PJC038 MOVB (R4),R3 ;GET TRANSLATED ASCII CODE ;**-1 300$: MOV R3,-(SP) ;SET BYTE TO PUT IN USER BUFFER ; PJC038 CALL $PTBYT ;PUT BYTE IN USER BUFFER ;**-1 DEC (SP) ;ANY MORE SPACE IN USER BUFFER? BLE 310$ ;IF LE NO ; PJC038 DEC R0 ;ANY MORE BYTES TO PROCESS? ;**-1 BGT 260$ ;IF GT YES ; PJC038 310$: MOV U.CNT(R5),R1 ;GET SIZE OF USER BUFFER ; PJC038 SUB (SP)+,R1 ;CALCULATE NUMBER OF BYTES TRANSFERED ;**-2 MOV #IS.SUC&377,R0 ;SET SUCCESSFUL COMPLETION STATUS 320$: CALL $IODON ;FINISH I/O OPERATION ; PJC038 MOV STRBF(R5),R0 ;GET ADDRESS OF BUFFER TO RELEASE ;**-1 BEQ 340$ ;IF EQ, NO BUFFER ; PJC038 MOV #80.,R1 ;ASSUME ASCII OR PACKED HOLLERITH READ ;**-1 TSTB U.CW2(R5) ;ASCII OR PACKED HOLLERITH? BPL 330$ ;IF PL YES ; PJC038 ASL R1 ;SET FOR BINARY READ BUFFER ;**-1 330$: CALL $DEACB ;DEALLOCATE DATA BUFFER ; PJC038 340$: JMP CRINI ;GO AGAIN ; PJC038 ;**-2 ; ; STORE DATA IN CARD BUFFER ; 350$: MOV (R3)+,R4 ;;;READ BINARY CARD COLUMN ; PJC038 MOV (R3),R3 ;;;READ PACKED HOLLERITH DATA ;**-1 MOVB CCOLC(R5),-(SP) ;;;GET CURRENT COLUMN NUMBER BNE 360$ ;;;IF NE, NOT COLUMN ONE ; PJC038 MOV R4,CCOL1(R5) ;;;SAVE CARD COLUMN ONE DATA ;**-1 360$: CMPB (SP)+,EOFCL(R5) ;;;PAST EOF COLUMNS? ; PJC038 BHIS 370$ ;;;IF HIS YES ; PJC038 CMP R4,#CREOF ;;;END OF FILE PUNCH? ;**-2 BNE 370$ ;;;IF NE NO ; PJC038 DECB EOFCT(R5) ;;;DECREMENT EOF COUNTER ;**-1 370$: CMPB CCOLC(R5),#80. ;;;80. COLUMNS READ (BUFFER FULL)? ; PJC038 BEQ 390$ ;;;IF EQ YES -- DO NOT EXCEED BUFFER ; PJC038 INCB CCOLC(R5) ;;;INCREMENT COLUMN NUMBER ;**-2 MOVB R3,@CURBF(R5) ;;;ASSUME ASCII OR PACKED HOLLERITH TSTB U.CW2(R5) ;;;ASCII OR PACKED HOLLERITH? BPL 380$ ;;;IF PL YES ; PJC038 MOV R4,@CURBF(R5) ;;;STORE BINARY DATA ;**-1 INC CURBF(R5) ;;;UPDATE CURRENT BUFFER ADDRESS 380$: INC CURBF(R5) ;;;UPDATE CURRENT BUFFER ADDRESS ; PJC038 390$: MOV (SP)+,R3 ;;;RESTORE R3 ; PJC038 RETURN ;;;EXIT INTERRUPT ;**-2 ; ; SET 026 TRANSLATION MODE ; 400$: BICB #US.MDE,U.STS(R5) ;CLEAR 029 TRANSLATION FLAG ; PJC038 BR 420$ ; ; PJC038 ;**-2 ; ; SET 029 TRANSLATION MODE ; 410$: BISB #US.MDE,U.STS(R5) ;SET 029 TRANSLATION FLAG ; PJC038 420$: JMP 20$ ;READ ANOTHER CARD ; PJC038 ; PJC036 ; ; PJC036 ; **-CRATT-CARD READER CHECK FOR ATTACH FUNCTION ; PJC036 ; ; PJC036 ; OUTPUT: ; PJC036 ; ; PJC036 ; C=0 FUNCTION WAS NOT AN ATTACH OR DETACH ; PJC036 ; C=1 FUNCTION WAS AN ATTACH OR DETACH ; PJC036 ; ; PJC036 ; PJC036 CRATT: CMPB #,I.FCN+1(R1) ;ATTACH FUNCTION? ; PJC036 BNE 480$ ;IF NE NO ; PJC038 BITB #TF.AST,I.FCN(R1) ;ATTACH FOR UNSOLICITED AST? ; PJC036 BEQ 460$ ;IF EQ NO ; PJC038 430$: TST I.PRM(R1) ;CHECK FOR NON-SPECIFIED AST ADDRESS ; PJC038 BEQ 470$ ;IF EQ YES, ERROR ; PJC038 MOV R1,-(SP) ;SAVE I/O PACKET ADDRESS ; PJC036 MOV #ASTSIZ.,R1 ;SET LENGTH OF AST BLOCK IN BYTES ; PJC036 CALL $ALOCB ;ALLOCATE CORE BLOCK FROM POOL ; PJC036 BCC 440$ ;IF CC OK ; PJC038 TST (SP)+ ;CLEAN STACK ; PJC036 MOV #IE.NOD&377,R0 ;SET BUFFER ALLOCATION FAILURE ; PJC036 BR 500$ ; ; PJC038 440$: MOV R0,U.CW3(R5) ;COPY ADDRESS OF AST BLOCK ; PJC038 MOVB #1,EOFCT(R5) ;FAKE NOT END OF FILE ; PJC036 MOV (SP)+,R1 ;RESTORE I/O PACKET ADDRESS ; PJC036 CMP -(R0),-(R0) ;POINT TO A.KSR5 OFFSET ; PJC036 MOV KISAR5,(R0)+ ;MAPPING (A.KSR5) ; PJC036 MOV #CRCUB,(R0)+ ;WHERE TO CALL US BACK (A.DQSR) ; PJC036 TST (R0)+ ;SKIP PAST LINK WORD (A.LNK) ; PJC036 CLR (R0)+ ;LENGTH OF CONTROL BLOCK (A.CBL) ; PJC036 MOV #STKSIZ.,(R0)+ ;ALLOCATE 14 BYTES ON STACK (A.BYT) ; PJC036 MOV I.PRM(R1),(R0)+ ;AST ADDRESS (A.AST) ; PJC036 CLR (R0)+ ;NUMBER OF AST PARAMETERS (A.NPR) ; PJC036 MOV I.TCB(R1),(R0) ;TCB ADDRESS OF TASK (A.PRM) ; PJC036 BIT #READY,@S.CSR(R4) ;READER READY AND ONLINE? ; PJC036 BNE 450$ ;IF NE NO ; PJC038 CALL 210$ ;QUEUE AST NOW ; PJC038 BR 460$ ;SKIP SETTING INTERRUPT ENABLE ; PJC038 450$: BIS #IE,@S.CSR(R4) ;SET INTERRUPT ENABLE ; PJC038 460$: MOV #IS.SUC&377,R0 ;SET SUCCESSFUL COMPLETION CODE ; PJC038 BR 500$ ; ; PJC038 470$: MOV #IE.SPC&377,R0 ;SET ILLEGAL AST ADDRESS ERROR CODE ; PJC038 BR 500$ ; ; PJC038 480$: CMPB #,I.FCN+1(R1) ;DETACH FUNCTION? ; PJC038 BEQ 490$ ;IF EQ YES ; PJC038 CLC ;SHOW FUNCTION WAS NOT ATTACH OR DETACH ; PJC036 RETURN ; ; PJC036 490$: MOV U.CW3(R5),R0 ;GET ADDRESS OF AST BLOCK? ; PJC038 BEQ 500$ ;IF EQ NONE ; PJC038 MOV #ASTSIZ.,R1 ;SET LENGTH OF AST BLOCK ; PJC036 CALL $DEACB ;DEALLOCATE CORE BLOCK ; PJC036 BIC #IE,@S.CSR(R4) ;CLEAR INTERRUPT ENABLE ; PJC036 CLR U.CW3(R5) ;SHOW NO ATTACH FOR AST ANYMORE ; PJC036 500$: SEC ;SHOW FUNCTION WAS AN ATTACH OR DETACH ; PJC038 RETURN ; ; PJC036 .DSABL LSB ; PJC036 ;**-3 ; ; CANCEL I/O OPERATION-FORCE I/O TO COMPLETE IS DEVICE IS NOT READY ; CRCAN: CMP R1,I.TCB(R0) ;;;REQUEST FOR CURRENT TASK? BNE 10$ ;;;IF NE NO BISB #US.ABO,U.STS(R5) ;;;SET FOR ABORT IF DEVICE NOT READY 10$: RETURN ;;; .END »z–,Ì€€›c,.; .; SYSGEN PROCEDURE FOR V4.0 RSX-11M .; .; Written by Mike Harrison .; Modified by Bernie Alimonti .; .; COPYRIGHT (c) 1981 BY .; DIGITAL EQUIPMENT CORPORATION, MAYNARD .; MASSACHUSETTS. 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 COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER .; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE .; MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO .; AND OWNERSHIP OF THE 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 THAT IS .; NOT SUPPLIED BY DIGITAL. .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .IFNDF $PHAS1 .SETS $PHAS1 "" .SETS $PHAS1 $PHAS1+"1.53" .SETN $BASEL 32. .SETS $BLREV " " ! INTERIM BASELEVEL .SETS $CUIC .TEST .SETS $DFUIC [2:-1] .IFNDF $SGNUC .SETS $SGNUC [2:-1] .SETT $SGN1 .SETF $SGN2 .SETF $CS1 .SETF $CS2 .IFNDF $UIC .SETN $UIC 11 .IFNDF $SYGRP .SETN $SYGRP 1 .IFNDF $IAS .SETF $IAS .IFNDF $SYBLD .SETF $SYBLD .IFT $SYBLD .SETT $MCR .IFNDF $11SGN .SETF $11SGN .IFT $11SGN .OR .IFT $SYBLD .SETT $XXX1 .IFNDF $XXX1 .SETF $XXX1 .IFNDF $MPLUS .SETF $MPLUS .SETN $ICLOC 0 .SETN $IPLOC 0 .SETN $UDLOC 0 .SETN $ISLOC 0 .SETF $ABORT .SETF $XXX2 .SETT $ONL .IFNDF .GOTO 0 .IFT .SETF $ONL .0:; .IFT $11SGN .GOTO SGEN ; RSX-11M V4.0 BL'$BASEL''$BLREV' System Generation PHASE I -- version '$PHAS1' ; .IFF $IAS ; '' '' .IFT $IAS TIM .SGEN: .ONERR 99900 .ENABLE GLOBAL .SETF REPEAT .; .;KIT TYPE .; .SETT $BGDSK .SETF $RK06 .SETF $RL .SETF $2RK .IFNDF $2RK .SETF $2RK .IFT $2RK .SETS $KIT "Dual RK05" .IFNDF $BGDSK .SETT $BGDSK .IFT $BGDSK .SETS $KIT "Big disk" .IFNDF $RK06 .SETF $RK06 .IFT $RK06 .SETS $KIT "RK06" .IFNDF $RL .SETF $RL .IFT $RL .SETS $KIT "RL01" ; '$KIT' distribution kit ; .; .; DETERMINE IF LARGE ENOUGH INDIRECT COMMAND PROCESSOR .; .IFNDF .GOTO 00A .TEST .SETS TEMPS [4:4] .IF TEMPS EQ "4" .GOTO 00A ; ; SGN -- Procedure can only be executed under the ICP.TSK version of the ; Indirect Command Processor. ; / .00A:.DISABLE LOWERCASE .; .;DETERMINE IF NECESSARY PROCESSORS ARE INSTALLED .; .SETF PIPX .SETF UFDX .SETF EDIX .SETF LBRX .SETF MOUX .SETF FLXX .SETF INIX .SETF MACX .SETF TKBX .SETF LPXX .IFINS PIP .SETT PIPX .IFINS UFD .SETT UFDX .IFINS EDI .SETT EDIX .IFINS MOU .SETT MOUX .IFINS LBR .SETT LBRX .IFINS FLX .SETT FLXX .IFINS INI .SETT INIX .IFINS MAC .SETT MACX .IFINS TKB .SETT TKBX .IFLOA LP: .SETT LPXX .IFT $SYBLD .GOTO 0C .; .;USE AUTOCONFIGURE .; .SETF $ACF .SETF $ACFDF .IFT $ONL .GOTO NOACF .; .IFT .IF EQ 1 .IFF $11SGN .ASK $ACF 1. Autoconfigure the host system hardware .SETF ACFX .SETF ACOX .IFINS ACF .SETT ACFX .IFINS ACO .SETT ACOX .IFT $ACF .IFF ACFX INS $ACF.BSL .IFT $ACF .IFF ACOX INS $ACO .IFT $ACF ACF .IFT $ACF ACO SHOW .IFT $ACF ACO SYSGEN .IFT $ACF .IFF ACFX REM ACF .IFT $ACF .IFF ACOX REM ACO .IFT $ACF .ASK $ACFDF 2. Do you want to override Autoconfigure results .IFT $ACF @ACFANS .NOACF: .; .; DETERMINE IF THIS IS A MOUSEGEN .; .ASK $MLH 3. Do you want to inhibit execution of MCR commands .IFT $11SGN .GOTO 0B .; .;DETERMINE CLI .; .SETF $MCR .IFT $MLH .OR .IF EQ "DCL" .OR .IF EQ "MCR" .GOTO 0A ; ; SGN -- Procedure can only be run from MCR or DCL ; / .0A: .IF EQ "MCR" .SETT $MCR .IFT $MLH .OR .IFT $MCR .GOTO 0B ; ; Setting the CLI to MCR ; SET TERM MCR ; .0B: .; .;INSURE THIS IS COPY OF DISTRIBUTION MEDIUM .; .IFT $MLH .GOTO 1 .IFT $11SGN .IF NE 1 .GOTO 1 .ASK TEMPL 4. Have you made a copy of the distribution kit .IFT TEMPL .GOTO 1 ; SGN -- You are or will be running on the original copy of the distrib- ; ution kit. Make a copy via the standard procedure and restart. / .; .;GENERATING A MAPPED SYS? .; .0C:.SET'$MAP' MAP .1:.SETF DEL .IFNDF MAP .ASK MAP 5. Are you generating a mapped system .SETN $GRP 0 .IFT MAP .SETN $GRP 4 .IFT $SYBLD .OR .IFT $MLH .GOTO 1A .IFT $11SGN .IF NE 1 .GOTO 1A .IFT $ONL .OR .IFF MAP .OR .IFT .GOTO 1A ; ; You are generating a mapped target system from the unmapped baseline host ; system. If tasks are installed or drivers loaded into the mapped target ; system above 27.5 KW (10), you may not succeed in booting the target system ; from the unmapped baseline system. DIGITAL strongly recommends that, if your ; host hardware has a memory management option, you perform the SYSGEN on the ; mapped baseline system. If you choose to perform the SYSGEN on the mapped ; system, exit SYSGEN by responding ^Z (CNTRL Z) to the next question, install ; BOO (INS $BOO), boot the [1,54] baseline system (BOO [1,54]RSX11M), save ; this system and rewite the boot block (SAV /WB), and then restart SYSGEN ; (@SYSGEN.CMD). ; .1A:.SETS CSGRP "0" .IFT .SETS CSGRP "4" .SETN OSGRP 4 .IFT .SETN OSGRP 0 .IFT $SYBLD .GOTO 5 .IFT $MLH .GOTO 3 .IFF $2RK .IFF $RL .IFF $RK06 .GOTO 3 .IFT $11SGN .IF NE 1 .GOTO 3 .IFT $ONL .OR .IFF MAP .OR .IFT ; ; The RSXM'$BASEL' disk does not contain adequate disk space to successfully ; complete a SYSGEN. However, it contains both a mapped and an unmapped ; baseline system, of which only one baseline system is needed to complete ; a SYSGEN. SYSGEN must delete the unneeded baseline system in order to ; provide the required free disk space. ; .IFF $ONL .GOTO 2 ; Since you are running online, SYSGEN cannot determine what baseline system ; is unneeded. However, since it must delete one of the baseline systems, it ; assumes that it may delete the ['$SYGRP',5'OSGRP'] system. .GOTO 2A .2: ; Since you are running on the ['$SYGRP',5'CSGRP'] baseline system, SYSGEN will delete ; the ['$SYGRP',5'OSGRP'] baseline system. Therefore, the ['$SYGRP',5'CSGRP'] baseline system must ; be the hardware bootable system. If it is not, exit SYSGEN by responding ; No or ^Z (CNTRL Z) to the next question, install BOO (INS $BOO), boot the ; ['$SYGRP',5'CSGRP'] system (BOO ['$SYGRP',5'CSGRP']RSX11M), save this system and write the boot ; block (SAV /WB), and then restart SYSGEN (@SYSGEN.CMD). .2A:.IFT .IFT MAP .GOTO 2B .IFF .IFF MAP .GOTO 2B .IFT $11SGN .GOTO 2B ; ; Since SYSGEN will delete all files in the target system UIC of ['$SYGRP',5'OSGRP'], ; you must invoke Phase III on the host system to task build EDI, PIP, and ; TKB before invoking Phase III on the target system. .2B:; ; If you respond No or ^Z (CNTRL Z) to the next question, SYSGEN will exit. ; .ASK DEL 6. Can the files in ['$SYGRP',5'OSGRP'] be deleted .IFF DEL / .3: .; .;INPUT SAVED ANSWERS .; .SETS $SAI "SYSSAVED.CMD" .ASK $SAVED 7. Use an input saved answer file .IFF $SAVED .GOTO 4 .TESTFILE SYSSAVED.CMD .SETS TEMPS "" .IF EQ 1 .SETS TEMPS " [D: SYSSAVED.CMD]" .ASKS $SAI 8. Name of input saved answer file'TEMPS' .IF EQ 1 .IF $SAI EQ "" .SETS $SAI "SYSSAVED.CMD" .PARSE $SAI ";" $SAI VER .PARSE $SAI "." $SAI EXT .IF EXT EQ "" .SETS EXT "CMD" .TESTFILE '$SAI'.'EXT';'VER' .IF EQ 1 .SETS $SAI .IF EQ 1 .GOTO 5 .IF VER NE "" .SETS VER ";'VER'" ; ; SGN -- Input saved answer file '$SAI'.'EXT''VER' does not exist -- RETRY. ; .GOTO 3 .4: .; .;STANDARD FUNCTION SYSTEM .; .IFT MAP .IFF $11SGN .ASK $FFE 9. Do you want a Standard Function System .IFNDF $FFE .SETF $FFE .IFF $FFE .GOTO 7 .TESTFILE SGNSTAND.CMD .IF NE 1 .GOTO 4A .SETT $SAVED .SETS $SAI "SGNSTAND.CMD" .SETS $SF1 "" .SETT $HSAVE .SETT $PERIP .SETT $XPRES .SETT $BYPAS .GOTO 5 .4A: ; ; SGN -- Saved answer file for a Standard Function System ; (SGNSTAND.CMD) does not exist ; .SETF $FFE .GOTO 3 .5:.IFNDF $FFE .SETF $FFE .; .;INVOKE THE SAVED ANSWER FILE .; .OPEN NL: .IFF $FFE ; .IFF $FFE ; Phase I input saved answers @'$SAI' .CLOSE .IFF $FFE ; are from file '$SAI' .IFF $FFE ; .IFNDF $MAP .GOTO 6 .IFT MAP .IFT $MAP .GOTO 6 .IFF MAP .IFF $MAP .GOTO 6 ; ; SGN -- Mapping option of the input saved answer file is different ; from the mapping option selected in question 5. ; / .6:.IFF $CS1 ; .IFF $CS1 ; SGN -- Warning: Input saved answers for PHASE I may be incomplete. .IFF $CS1 ; .; .;OUTPUT SAVED ANSWERS .; .7:.SET'MAP' $MAP .SETT $SAVE .SETS TEMPS $SAI .IFT $FFE .OR .IF TEMPS EQ "" .SETS TEMPS "SYSSAVED.CMD" .PARSE TEMPS ";" TEMPS VER .IFNDF $SAO .ASKS $SAO 10. Name of output saved answer file [D: 'TEMPS'] .IF $SAO EQ "" .SETS $SAO TEMPS .PARSE $SAO ";" $SAO VER .PARSE $SAO "." $SAO EXT .IF EXT EQ "" .SETS EXT "CMD" .IF VER EQ "" .SETS VER "0" .TESTFILE '$SAO'.'EXT';'VER' .PARSE ";" $SAO TEMPS .SETN TEMPN 'TEMPS' .IF VER EQ "0" .INC TEMPN .SETS $SAO "'$SAO';'TEMPN'" ; ; Phase I output saved answers created in file '$SAO' ; .; .; OPEN OUTPUT SAVED ANSWER FILE .; .OPEN '$SAO' .DATA .IFT $SGN2 .ENABLE DATA #1 .DATA .ENABLE GLOBAL .SETS TEMPS2 "SYS" .IFT $11SGN .SETS TEMPS2 "11S" .DATA .; .DATA .; Phase I input saved answers .DATA ; created on '' at '' .DATA ; by 'TEMPS2'GEN version '$PHAS1' .DATA .; .IFT $SAVE .DATA .SET'$MAP' $MAP .IFT $SYBLD .GOTO 101A .; .; NO LONGER SUPPORT UNDEFINED ANSWER WAKEUP .; .IFT $FFE .GOTO 100 .SETS $SF1 "" .SETF $HSAVE .SETF $XPRES .SETF $PERIP .SETF $BYPAS .IFT $SAVED .ASK $HSAVE 11. Use saved host configuration .IFT $SAVED .ASK $PERIP 12. Use saved peripheral configuration .; .; DETERMINE IF BBREAKPOINTS SHOULD BE OVERRIDDEN (UNATTENDED SYSGEN) .; .IFT $SAVED .ASK $XPRES 13. Skip end of section (EOS) breakpoints .IFF $MLH .IFT $SAVED .ASK $BYPAS 14. Skip end of execution (EOX) breakpoints .; .; IF NOT A MOUSEGEN SHOULD WE CLEANUP FILES FROM PREVIOUS GENS .; .100:.IFNDF $CLN .SETF $CLN .IFF $MLH .ASK $CLN 15. Clean up files from previous GENs .; .; CHAIN TO PHASE II? .; .IFT $11SGN .GOTO 101A .TESTFILE ['$SGNUC']SYSGEN2.CMD .IF NE 1 .GOTO 101A .ASK $XXX2 16. Chain to Phase II after Phase I completes .IFF $XXX2 .OR .IFF $SAVED .GOTO 101A .IFT $CS2 .GOTO 101A ; ; SGN -- Warning: Input saved answers for PHASE II may be incomplete. ; .101A:.IFNDF $XXX2 .SETF $XXX2 .; .; IF ACF, MAKE SYSGEN THINK ITS USING SAVED ANSWERS .; .SET'$SAVED' SVD .IFT $ACF .IFF $ACFDF .SETT $SAVED .; .; DETERMINE EXECUTIVE SOURCE DEVICE .; .SETS TEMPS "" .SETS EXCDSK "" .IFT $RL .SETS TEMPS "DL1:" .IFT $RL .SETS EXCDSK "EXCPRV" .IFT $2RK .SETS TEMPS "DK1:" .IFT $2RK .SETS EXCDSK "EXCSRC" .GOTO 341B .341A: ; SGN -- Invalid system device -- RETRY .341B: .IFT $BGDSK .SETS $EXC "SY:" .IFF $BGDSK .ASKS $EXC 17. Enter device for 'EXCDSK' disk when it is ready (ddu:) [D: 'TEMPS'] .IF $EXC EQ "" .OR .IF $EXC EQ "Y" .SETS $EXC TEMPS .NORL: .TEST $EXC .IF LT 2 .GOTO 341A .SETS TEMPS $EXC[:] .IF TEMPS NE ":" .SETS $EXC $EXC+":" .IFT $BGDSK .GOTO 314 .IFF $MLH ; .IFF $MLH MOU '$EXC''EXCDSK' .TESTFILE '$EXC'['$SGNUC']SGNEXEC.CMD .IF EQ 1 .GOTO 314 ; ; SGN -- Disk 'EXCDSK' is not software mounted in '$EXC'. ; .PAUSE .; .; DETERMINE DRIVER SOURCE DISK (FOR RK) .; .314:.SETS $DRV $EXC .IFF $2RK .GOTO PAULK .GOTO 314BB .314AA: ; SGN -- Illegal device mnemonic .314BB: .ASKS $DRV 18. Enter device for DRVSRC disk (ddu:) [D: '$EXC'] .IF $DRV EQ "" .SETS $DRV $EXC .TEST $DRV .IF LT 2 .GOTO 341AA .SETS TEMPS $DRV[:] .IF TEMPS NE ":" .SETS $DRV $DRV+":" .PAULK:; .IFF $CLN .OR .IFT $MLH .GOTO 3A .; .;CLEAN UP FILES FROM PREVIOUS GENS .; SET /UIC=['$SYGRP',1] .IFNINS PIP INS $PIP PIP ['$SYGRP',20]RSXBLD.CMD;*/DE/NM PIP ['$SYGRP',24]RSXBLD.CMD;*/DE/NM,TTDRVBLD;* .IFF $11SGN PIP ['$SYGRP',50]SYSVMR.CMD;*/DE/NM,['$SYGRP',54]SYSVMR;* PIP ['$UIC',20]*.OBJ;*/DE/NM,*.UDC;*,*.ICR;*,*.IDS;*,*.PCS;* PIP ['$UIC',24]*.OBJ;*/DE/NM,*.UDC;*,*.ICR;*,*.IDS;*,*.TTY;*,*.PCS;* .IFT $BGDSK PIP ['$UIC',30]*.LST;*/DE/NM,['$UIC',34]*.LST;* PIP ['$UIC',10]RSXMC.MAC;*/DE/NM,ICTAB;*,['$DFUIC']SGNPARM.CMD;* PIP ['$SGNUC']RSXBLD.CMD;*/DE/NM,TTDRVBLD;* PIP '$EXC'[11,20]RSXASM.CMD;*/DE/NM,RSXDRVASM;*,[12,20]MCRSETASM;* PIP '$EXC'[11,24]RSXASM.CMD;*/DE/NM,RSXDRVASM;*,[12,24]MCRSETASM;* .; .; DELETE UNUSED SYSTEM UIC .; .3A:.IFT DEL .IFF $MLH .IF NE "['$SYGRP',1]" SET /UIC=['$SYGRP',1] .IFF $MLH .IFNINS PIP INS $PIP .IFT DEL .IFF $MLH PIP ['$SYGRP',5'OSGRP']*.*;*/DE/NM .; .; [1,51] CONTAINS A COPY OF DSCSYS.SYS AND DSCSYS.STB FOR THE CONVENIENCE .; OF THE RK05F USER TO COPY HIS KIT. SINCE HE OBVIOUSLY COPIED HIS KIT AND .; STARTED HIS GEN, WE CAN DELETE [1,51] FILES TO MAKE ROOM TO COMPLETE THE .; GEN. .; .IFF $MLH .IFT $2RK PIP [1,51]*.*;*/DE/NM .; .IFF $MLH PIP /FR .; .;CREATE RSXMC.MAC, SYSTB.MAC .; .IFF $MLH SET /UIC=['$UIC',10] .OPEN #2 '$EXC'['$UIC',10]SYSTB.MAC .DATA #2 .TITLE SYSTB .SETN TEMPN 2 .3000: .ENABLE DATA #'TEMPN' .IDENT /M4.0/ ; ; COPYRIGHT (c) 1981 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD ; MASSACHUSETTS. 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 COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO ; AND OWNERSHIP OF THE 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 THAT IS ; NOT SUPPLIED BY DIGITAL. ; ; ; VERSION M4.0 BASELEVEL '$BASEL' ; ; CREATED BY SYSGEN VERSION '$PHAS1' ; .DISABLE DATA #'TEMPN' .IF TEMPN EQ 1 .GOTO 3001 .DEC TEMPN .OPEN #1 ['$UIC',10]RSXMC.MAC .DATA #1 .IIF NDF S$$YDF , .NLIST .DATA #1 .TITLE RSXMC .GOTO 3000 .; .;DETERMINE EXECUTIVE-TYPE OPTIONS .; .3001: @'$EXC'['$SGNUC']SGNEXEC .IFT $ABORT .GOTO 99901 .; .;NOW THAT WE KNOW ALOT ABOUT THE TARGET AND HOST SET SOME FLAGS .; .SETS $LST "" .IF $ALD NE "NL:" .SETS $LST "'$ALD'['$UIC',3'$GRP']" .SETS $DIR "['$UIC',2'$GRP']" .OPEN #3 '$EXC''$DIR'RSXASM.CMD .ENABLE DATA #2 ; SYSTEM TABLES ; ; MACRO LIBRARY CALLS ; .MCALL HWDDF$,SCBDF$,UCBDF$,CLKDF$ HWDDF$ ;DEFINE HARDWARE REGISTERS SCBDF$ ,,SYSDEF ;DEFINE SCB OFFSETS UCBDF$ ,,TTDEF ;DEFINE UCB OFFSETS CLKDF$ ;DEFINE CLOCK QUEUE OFFSETS ; ; LOCAL ASSIGNMENTS ; UMD=0 .IIF DF D$$IAG,UMD=400 ;DIAGNOSTIC FUNCTIONS BECOME LEGAL ERL=0 .IIF DF E$$DVC,ERL=4 ; ; DEVICE TABLES ; $DEVTB:: .DISABLE DATA #2 .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/LI:TTM" .IFF $11SGN .SETS $PREFX "LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC" .IFT $11SGN .SETS $PREFX "LB:['$SYGRP',1]RSXMAC.SML/ML,EXEMC/ML,SY:['$UIC',10]RSXMC" .SETS TEMPS2 "DRDSP" .GOSUB EXEPUT .SETS TEMPS2 "DRABO" .GOSUB EXEPUT .SETS TEMPS2 "DRASG" .GOSUB EXEPUT .SETS TEMPS2 "DRATP" .GOSUB EXEPUT .SETS TEMPS2 "DRATX" .GOSUB EXEPUT .SETS TEMPS2 "DRCIN" .GOSUB EXEPUT .SETS TEMPS2 "DRCLI" .GOSUB EXEPUT .SETS TEMPS2 "DRCMT" .GOSUB EXEPUT .SETS TEMPS2 "DRDAR" .GOSUB EXEPUT .SETS TEMPS2 "DRDCP" .GOSUB EXEPUT .SETS TEMPS2 "DREIF" .GOSUB EXEPUT .SETS TEMPS2 "DREXP" .GOSUB EXEPUT .SETS TEMPS2 "DRGCL" .GOSUB EXEPUT .SETS TEMPS2 "DRGEF" .GOSUB EXEPUT .SETS TEMPS2 "DRGIN" .GOSUB EXEPUT .SETS TEMPS2 "DRGLI" .GOSUB EXEPUT .SETS TEMPS2 "DRGPP" .GOSUB EXEPUT .SETS TEMPS2 "DRGSS" .GOSUB EXEPUT .SETS TEMPS2 "DRGTK" .GOSUB EXEPUT .SETS TEMPS2 "DRGTP" .GOSUB EXEPUT .SETS TEMPS2 "DRMAP" .GOSUB EXEPUT .SETS TEMPS2 "DRMKT" .GOSUB EXEPUT .SETS TEMPS2 "DRPUT" .GOSUB EXEPUT .SETS TEMPS2 "DRQIO" .GOSUB EXEPUT .SETS TEMPS2 "DRRAS" .GOSUB EXEPUT .SETS TEMPS2 "DRREG" .GOSUB EXEPUT .SETS TEMPS2 "DRREQ" .GOSUB EXEPUT .SETS TEMPS2 "DRRES" .GOSUB EXEPUT .SETS TEMPS2 "DRSED" .GOSUB EXEPUT .SETS TEMPS2 "DRSMG" .GOSUB EXEPUT .SETS TEMPS2 "DRSST" .GOSUB EXEPUT .SETS TEMPS2 "DRSPW" .GOSUB EXEPUT .SETS TEMPS2 "DRSUB" .GOSUB EXEPUT .SETS TEMPS2 "BFCTL" .GOSUB EXEPUT .SETS TEMPS2 "CORAL" .GOSUB EXEPUT .SETS TEMPS2 "CRASH" .GOSUB EXEPUT .SETS TEMPS2 "CVRTM" .GOSUB EXEPUT .SETS TEMPS2 "ERROR" .GOSUB EXEPUT .SETS TEMPS2 "EXESB" .GOSUB EXEPUT .SETS TEMPS2 "INITL" .GOSUB EXEPUT .SETS TEMPS2 "IOSUB" .GOSUB EXEPUT .SETS TEMPS2 "LOWCR" .GOSUB EXEPUT .SETS TEMPS2 "MEMAP" .GOSUB EXEPUT .SETS TEMPS2 "MDSUB" .GOSUB EXEPUT .SETS TEMPS2 "PANIC" .GOSUB EXEPUT .SETS TEMPS2 "PARTY" .GOSUB EXEPUT .SETS TEMPS2 "PLSUB" .GOSUB EXEPUT .SETS TEMPS2 "POWER" .GOSUB EXEPUT .SETS TEMPS2 "QUEUE" .GOSUB EXEPUT .SETS TEMPS2 "REQSB" .GOSUB EXEPUT .SETS TEMPS2 "SSTSR" .GOSUB EXEPUT .SETS TEMPS2 "SYSCM" .GOSUB EXEPUT .SETS TEMPS2 "SYSDF" .GOSUB EXEPUT .SETS TEMPS2 "SYSTB" .GOSUB EXEPUT .SETS TEMPS2 "SYSXT" .GOSUB EXEPUT .SETS TEMPS2 "SYTAB" .GOSUB EXEPUT .SETS TEMPS2 "TDSCH" .GOSUB EXEPUT .SETS TEMPS2 "EXDBT" .IFT $XDT .GOSUB EXEPUT .SETS TEMPS2 "PMT" .IFT $PMT .GOSUB EXEPUT .SETS TEMPS2 "LOADR" .IFF $11S .GOSUB EXEPUT .GOTO 20 .EXEPUT: .SETS TEMPS ",'$LST''TEMPS2''TEMPS3''$SPL'" .IF $ALD EQ "NL:" .SETS TEMPS "" .DATA #3 '$DIR''TEMPS2''TEMPS'='$PREFX','$EXC''TEMPS2' .RETURN .20: .CLOSE #3 .; .;CREATE ASSEMBLY COMMAND FILE FOR SUBSET OF MCR FILES (SET MODULES) .; .IFT $11S .GOTO 30 .OPEN #3 '$EXC'[12,2'$GRP']MCRSETASM.CMD .ENABLE DATA #3 DV2OV=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]DV2OV SPSOV=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]SPSOV STSUB=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]STSUB SX1OV=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]SX1OV SX2OV=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]SX2OV SX3OV=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]SX3OV SX4OV=LB:['$SYGRP',1]EXEMC/ML,SY:['$UIC',10]RSXMC,'$EXC'[12,10]SX4OV .DISABLE DATA #3 .CLOSE #3 .30:.SETS TEMPS "" .IFF $2RK .SETS TEMPS $EXC .OPEN #3 'TEMPS''$DIR'RSXDRVASM.CMD .; .;CREATE RSXBLD.CMD TO TASKBUILD EXECUTIVE .; .IFT $SAVE .CLOSE .OPEN #0 RSXBLD.CMD .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/-WI" .SETS TEMPS "'$MPD'['$SYGRP',3'$GRP']RSX11'$SYS''TEMPS3''$SPL'" .IF $MPD EQ "NL:" .SETS TEMPS "" .IFT $11S .SETS $UICMS "['$SYGRP',6'$GRP']" .IFF $11S .SETS $UICMS "['$SYGRP',5'$GRP']" .IFF $DRC .GOTO 40 .; Define the directive COMMON symbols .ENABLE DATA #0 NL:'$UICMS'EXCOM1/-HD/-MM/NM/-FP,,SY:'$UICMS'EXCOM1= LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:CVRTM:DRABO:DRATX:DRCLI:DRCMT:DRDAR LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRDSP:DRGCL:DRGLI:DRGPP:DRGSS:DRGTK LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRMKT:DRPUT:DRQIO:DRRAS:DRRES:DRREQ LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRSED:DRSPW:DRSST LB:['$SYGRP',1]EXELIB/LB LB:['$SYGRP',1]SYSLIB/DL / STACK=0 PAR=EXCOM1:120000:20000 UNITS=0 ; GBLXCL=CKQMT GBLXCL=CKACP GBLXCL=CKPND GBLXCL=CKTRN / NL:'$UICMS'EXCOM2/-HD/-MM/NM/-FP,,SY:'$UICMS'EXCOM2= LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRASG:DRATP:DRCIN:DREXP:DRGEF:DRGTP LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRMAP:DRREG:DRSMG LB:['$SYGRP',1]EXELIB/LB LB:['$SYGRP',1]SYSLIB/DL / STACK=0 PAR=EXCOM2:120000:20000 UNITS=0 / '$UICMS'RSX11'$SYS'/-HD/-FP,'TEMPS',SY:'$UICMS'RSX11'$SYS'= LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:LOWCR:CRASH:PANIC:SYSXT:DREIF:SYSCM LB:['$SYGRP',1]SYSLIB/LB:C5TA LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:BFCTL:CORAL:EXESB:IOSUB:MDSUB:MEMAP:PARTY:POWER LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:QUEUE:REQSB:SSTSR:SYSDF:TDSCH:DRSUB LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRDCP:DRGIN LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:ERROR:PLSUB .DISABLE DATA #0 .GOTO 50 .; .40: .ENABLE DATA #0 '$UICMS'RSX11'$SYS'/-HD/-FP,'TEMPS',SY:'$UICMS'RSX11'$SYS'= LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:LOWCR:CRASH:PANIC:SYSXT:DREIF:SYSCM .DISABLE DATA #0 .IFT $IRR .DATA #0 LB:['$SYGRP',1]SYSLIB/LB:C5TA .ENABLE DATA #0 LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:BFCTL:CORAL:CVRTM LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:EXESB:IOSUB:MDSUB:MEMAP:PARTY:POWER:QUEUE:DRGEF LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:REQSB:SSTSR:SYSDF:TDSCH:DRDSP:DRABO:DRASG:DRATX LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRCIN:DRCMT:DRDAR:DRDCP:DREXP:DRGCL:DRGLI:DRGPP LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRGSS:DRGTK:DRGTP:DRMAP:DRMKT:DRPUT:DRQIO:DRRAS LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRREG:DRREQ:DRRES:DRSED:DRSMG:DRSST:ERROR:PLSUB LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRSPW:DRATP:DRSUB:DRGIN:DRCLI .DISABLE DATA #0 .; .50: .CLOSE #0 .; .GOTO IAS'$IAS' .IASF: .OPEN #0 ['$DFUIC']SGNPARM.CMD .GOTO IAS1 .IAST: .SETS UIC .IFF $MLH .IF UIC NE "['$DFUIC']" SET /UIC=['$DFUIC'] .OPEN ['$DFUIC']SGNPARM.CMD .IFF $MLH .IF UIC NE SET /UIC='UIC' .; .IAS1: .DATA #0 .ENABLE GLOBAL .CLOSE #0 .; .GOTO IAS'$IAS' .IASF: .IFT $SAVE .OPENA '$SAO' .GOTO IAS2 .IAST: .SETS UIC .IFF $MLH .IFT $SAVE .IF NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFT $SAVE .OPEN '$SAO' .IFF $MLH .IF UIC NE SET /UIC='UIC' .IAS2: ; .GOTO IAS'$IAS' .IASF: ; End of Executive option generation at '' on '' .GOTO IAS3 .IAST: ; End of Executive option generation TIM .; .; PROCESS PERIPHERAL RELATED ANSWERS .; .IAS3: @'$EXC'['$SGNUC']SGNPER .IFT $ABORT .GOTO 99901 ; ; Create Executive build files ; .ENABLE DATA #2 ; .IF DF M$$MUP M$$MUP = 0 .ENDC ; .END .DISABLE DATA #2 .CLOSE #2 .CLOSE #1 .IFF $MLH .IFNINS PIP INS $PIP .; .GOTO IAS'$IAS' .IASF: .IFF $MLH PIP RSXMC.MAC='$EXC'RSXMC0.MAC/AP .GOTO IAS1 .IAST: .SETS UIC .IFF $MLH SET /UIC=['$SYGRP',1] .IFF $MLH PIP ['$UIC',10]RSXMC.MAC='$EXC'['$UIC',10]RSXMC0.MAC/AP .IFF $MLH SET /UIC='UIC' .; .IAS1: .IFT $SAVE .CLOSE .; .GOTO IAS'$IAS' .IASF: .OPENA #0 RSXBLD.CMD .GOTO IAS4 .IAST: .IFF $MLH PIP RSXBLD.CMD;-1=RSXBLD.CMD/AP .OPEN #0 RSXBLD.CMD .; .IAS4: .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/-WI" .IFT $XDT .DATA #0 LB:['$SYGRP',2'$GRP']RSX11'$SYS'/DA/LB:EXDBT .SETN TEMPN $TME .IF TEMPN GT 32. .SETN TEMPN 32. .SETS TEMPS ":LOADR" .IFT $LLR .OR .IFT $11S .SETS TEMPS "" .DATA #0 LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB'TEMPS':SYSTB:SYTAB:INITL,LB:['$SYGRP',1]EXELIB/LB/SS .IFT $DRC .DATA #0 '$UICMS'EXCOM1.STB/SS .IFT $DRC .DATA #0 '$UICMS'EXCOM2.STB/SS .ENABLE DATA #0 LB:['$SYGRP',1]SYSLIB/DL / CORSIZ='TEMPN' STACK=0 UNITS=0 PAR=EXEPAR:0:160000 .DISABLE DATA #0 .IFF $UWD .DATA #0 GBLDEF=$USRTB:0 .IFF $DRC .GOTO 50 .ENABLE DATA #0 / '$UICMS'EXCOM1/-HD/-MM/-FP,'$MPD'['$SYGRP',3'$GRP']EXCOM1'TEMPS3''$SPL',SY:'$UICMS'EXCOM1= LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:CVRTM:DRABO:DRATX:DRCLI:DRCMT:DRDAR LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRDSP:DRGCL:DRGLI:DRGPP:DRGSS:DRGTK LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRMKT:DRPUT:DRQIO:DRRAS:DRRES:DRREQ LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRSED:DRSPW:DRSST LB:['$SYGRP',1]EXELIB/LB '$UICMS'RSX11'$SYS'.STB/SS '$UICMS'EXCOM2.STB/SS LB:['$SYGRP',1]SYSLIB/DL / STACK=0 PAR=EXCOM1:120000:20000 UNITS=0 / '$UICMS'EXCOM2/-HD/-MM/-FP,'$MPD'['$SYGRP',3'$GRP']EXCOM2'TEMPS3''$SPL',SY:'$UICMS'EXCOM2= LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRASG:DRATP:DRCIN:DREXP:DRGEF:DRGTP LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:DRMAP:DRREG:DRSMG LB:['$SYGRP',1]EXELIB/LB '$UICMS'RSX11'$SYS'.STB/SS LB:['$SYGRP',1]SYSLIB/DL / STACK=0 PAR=EXCOM2:120000:20000 UNITS=0 .DISABLE DATA #0 .; .50: .DATA #0 / .DISABLE DATA #0 .IFF $LLR .GOTO NOLLR .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/-WI" .SETS TEMPS ",'$MPD'['$SYGRP',3'$GRP']LDR'TEMPS3''$SPL'" .IF $MPD EQ "NL:" .SETS TEMPS "" .ENABLE DATA #0 ['$SYGRP',5'$GRP']LDR/MM/PR/-CP/-SE/-FP'TEMPS'=LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:LOADR LB:['$SYGRP',1]EXELIB/LB/SS SY:['$SYGRP',5'$GRP']RSX11'$SYS'.STB/SS LB:['$SYGRP',1]SYSLIB/DL / STACK=8 UNITS=1 PRI=248 TASK=LDR... PAR=LDRPAR:0:2600 / .DISABLE DATA #0 .; .NOLLR: .CLOSE #0 .IFT $IAS .IFF $MLH PIP RSXBLD.CMD;-1=RSXBLD.CMD/AP .IFT $IAS .IFF $MLH PIP RSXBLD.CMD/RE/NV=RSXBLD.CMD;-1 .; .GOTO IAS'$IAS' .IASF: .IFT $SAVE .OPENA '$SAO' .GOTO IAS7 .IAST: .SETS UIC .IFF $MLH .IFT $SAVE .IF NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFT $SAVE .OPEN '$SAO' .IFF $MLH .IF NE UIC SET /UIC='UIC' .; .IAS7: .CLOSE #3 .CRH: .; .; MAKE SURE WE CAN PRINT FILES IF A LINE PRINTER IS ON SYSTEM .; .SETF TEMPL .IF $SPL EQ "/SP" .OR .IF $ALD EQ "LP:" .SETT TEMPL .IFF $IAS .IFF $MLH .IFNLOA LP: .IFT TEMPL LOA LP: .; .;EDIT SYSGEN OUTPUT FILES? .; .IFT $SAVED .IFDF $EDX .IFF REPEAT .GOTO ASM1 ; .ASK $EDX 1.'$SF1' Do you wish to edit any of the Executive files ; .ASM1: .IFT $SAVE .DATA .SET'$EDX' $EDX .IFF $EDX .GOTO 1127 .IFF $MLH ; Pausing to allow editing of Executive files .IFF $MLH ; .IFF $MLH .IFNINS EDI INS $EDI .IFF $MLH .IFT $EDX .PAUSE .IFF $MLH .IFF EDIX REM EDI .1127:.; .;IS LISTING DEVICE READY? .; .IF $ALD EQ "LP:" .OR .IF $ALD EQ "NL:" .OR .IF $ALD EQ "TT:" .GOTO LSTRDY .IF $ALD EQ "TI:" .OR .IF $ALD EQ "" .OR .IF $ALD EQ "LB:" .GOTO LSTRDY .IFT $SAVED .IFDF $ADR .IFF REPEAT .GOTO 1130 .ASK $ADR 2.'$SF1' Is '$ALD' initialized, mounted with UFD ['$UIC',3'$GRP'], and ready .1130: .IFT $SAVE .DATA .SET'$ADR' $ADR .IFT $ADR .GOTO LSTRDY .; .;INITIALIZE? .; .IFT $SAVED .IFDF $INI .IFF REPEAT .GOTO 1140 .ASK $INI 3.'$SF1' Does '$ALD' have to be initialized .1140: .IFT $SAVE .DATA .SET'$INI' $INI .; .;LISTING DEVICE LABEL .; .IFT $SAVED .IFDF $ADL .IFF REPEAT .GOTO 1150 .ENABLE LOWERCASE .SETS TEMPS "is" .IFT $INI .SETS TEMPS "will be" .DISABLE LOWERCASE .ASKS $ADL 4.'$SF1' What 'TEMPS' '$ALD's label .1150: .IFT $SAVE .DATA .SETS $ADL "'$ADL'" .; .;INITIALIZE DISK .; .IFF $INI .GOTO MOUNT .IFF $MLH .IFNINS INI INS $INI .IFF $MLH INI '$ALD''$ADL' .IFF $MLH .IFF INIX REM INI .SETT $MOU .SETT $UFD .; .;MOUNT? .; .MOUNT: .IFT $SAVED .IFDF $MOU .IFF REPEAT .GOTO 1160 .ASK $MOU 5.'$SF1' Does '$ALD' have to be mounted .1160: .IFT $SAVE .DATA .SET'$MOU' $MOU .IFF $MOU .GOTO UFD .IFF $MLH .IFNINS MOU INS $MOU .IFF $MLH MOU '$ALD''$ADL' .IFF $MLH .IFF MOUX REM MOU .; .;UFD? .; .UFD: .IFT $SAVED .IFDF $UFD .IFF REPEAT .GOTO 1170 .ASK $UFD 6.'$SF1' Does the UFD ['$UIC',3'$GRP'] have to be created .1170: .IFT $SAVE .DATA .SET'$UFD' $UFD .IFF $UFD .GOTO LSTRDY .IFF $MLH .IFNINS UFD INS $UFD .IFF $MLH SET /UIC=['$SYGRP',1] .IFF $MLH UFD '$ALD'['$UIC',3'$GRP'] .IFF $MLH .IFF UFDX REM UFD .; .;FINAL CHANCE TO STOP ASSEMBLY .; .LSTRDY: .IFT $XPRES .GOTO 1199 .1180: ; .ASKS CONT EOS * Do you want to: -continue R-repeat section E-exit P-pause ; .IF CONT EQ "" .GOTO 1199 .IF CONT EQ "R" .GOTO 1198 .IF CONT EQ "E" .SETT $ABORT .IF CONT EQ "E" .GOTO 99901 .IF CONT EQ "P" .PAUSE .GOTO 1180 .1198: .SETT REPEAT .GOTO CRH .1199: .SETF REPEAT .; .;INSTALL ASSEMBLER AND TAKE OFF............ .; .IFF $MLH .IFNINS MAC INS $MAC .REASM: .IFT $MLH .GOTO 2002 .; .; ASN LB: .; .IFF $IAS .IFF REPEAT .IFF $2RK ASN SY:=LB: .IFF $IAS .IFF REPEAT .IFT $2RK ASN '$EXC'=LB: ; .GOTO IAS'$IAS' .IASF: ; Start of Executive assembly at '' on '' .GOTO IAS1 .IAST: ; Start of Executive assembly TIM .IAS1: ; .IF NE "['$UIC',2'$GRP']" SET /UIC=['$UIC',2'$GRP'] MAC @'$EXC'RSXASM ; .GOTO IAS'$IAS' .IASF: ; End of Executive assembly at '' on '' .GOTO IAS1 .IAST: ; End of Executive assembly TIM .IAS1:; .; .; DETERMINE IF EXEC ASSEMBLED CORRECTLY .; .IFT $BYPAS .GOTO 2001 ; .ASK AOK EOX * Did the Executive assemble correctly ; .IFT AOK .GOTO 2001 ; ; SGN -- Correct problems and reassemble the bad modules ; SYSGEN will continue when done. .PAUSE .2001:.IFT $11S .GOTO 2002 ; .GOTO IAS'$IAS' .IASF: ; Start of MCR (subset) assembly at '' on '' .GOTO IAS1 .IAST: ; Start of MCR (subset) assembly TIM .IAS1: ; SET /UIC=[12,2'$GRP'] MAC @'$EXC'MCRSETASM ; .GOTO IAS'$IAS' .IASF: ; End of MCR (subset) assembly at '' on '' .GOTO IAS2 .IAST: ; End of MCR (subset) assembly TIM .IAS2:; .; .; DETERMINE IF MCR (SUBSET) ASSEMBLED CORRECTLY .; .IFT $BYPAS .GOTO 2002 ; .ASK AOK EOX * Did MCR (subset) assemble correctly ; .IFT AOK .GOTO 2002 ; ; SGN -- Correct problems and reassemble the bad modules ; SYSGEN will continue when done. .PAUSE .2002: .; .; IF THIS IS A DUAL RK KIT THEN WE MUST NOW SWAP THE SOURCE DISKS .; .IFF $2RK .GOTO RUTH .IFF $MLH DMO '$EXC'EXCSRC .IF $EXC NE $DRV ; .IF $EXC NE $DRV ; SGN -- Remove the EXCSRC disk from '$EXC' .IF $EXC EQ $DRV ; SGN -- We will pause so you can replace the EXCSRC disk .IF $EXC EQ $DRV ; in '$EXC' with the DRVSRC disk ; .IFF $MLH .IF $EXC EQ $DRV .PAUSE .IFF $MLH MOU '$DRV'DRVSRC .IFF $MLH .IFF $IAS .IFF REPEAT .IF $EXC NE $DRV ASN '$DRV'=LB: ; .RUTH:.IFT $MLH .GOTO 2020 ; .GOTO IAS'$IAS' .IASF: ; Start of device drivers assembly at '' on '' .GOTO IAS1 .IAST: ; Start of device drivers assembly TIM .IAS1: ; .IF NE "['$UIC',2'$GRP']" SET /UIC=['$UIC',2'$GRP'] .IFF $2RK .GOTO ASMDRV .IFNINS PIP INS $PIP .IFT $CLN PIP '$DRV'RSXDRVASM.CMD;*/DE/NM PIP '$DRV'/NV=RSXDRVASM.CMD PIP RSXDRVASM.CMD;0/DE/NM .IFF PIPX REM PIP .ASMDRV:MAC @'$DRV'RSXDRVASM ; .GOTO IAS'$IAS' .IASF: ; End of Device drivers assembly at '' on '' .GOTO IAS1 .IAST: ; End of device drivers assembly TIM .IAS1: ; .;DETERMINE IS DEVICE DRIVERS ASSEMBLED CORRECTLY .; .IFT $BYPAS .GOTO 2020 ; .ASK AOK EOX * Did the device drivers assemble correctly ; .IFT AOK .GOTO 2020 ; SGN -- Correct problems and reassemble the bad modules ; SYSGEN will continue when done. .PAUSE .IF NE "['$UIC',2'$GRP']" SET /UIC=['$UIC',2'$GRP'] .2020:.IFF $MLH .IFF $IAS ASN =LB: .; .; ADD USER WRITTEN DRIVERS IF SPECIFIED .; .IFF $UWD .GOTO 170 .TEST $PREFX .SETS TEMPS $PREFX[4:] .SETS TEMPS $DRV+TEMPS ; Assemble user-written driver(s) ; ; The following instructions apply to resident drivers and ; loadable drivers with resident data bases. .IFF $LOD .GOTO 165A ; ; For loadable drivers, you must ensure that a symbol definition ; of the format: ; LD$xx=0 ; (where xx is the device name) appears in the assembly prefix ; file ['$UIC',10]RSXMC.MAC for each loadable driver xxDRV. .165A: ; ; SYSGEN will now pause to allow you to assemble your driver(s) ; and USRTB module. Using a driver name xxDRV (where xx is ; the device name; for example, DK), you can type commands ; in the following format to assemble the driver and USRTB ; modules. ; ; MAC ; MAC>xxDRV='TEMPS',xxDRV ; MAC>USRTB='TEMPS',USRTB ; MAC>^Z .IFF $MLH .IFNINS EDI INS $EDI .IFF $MLH .PAUSE .IFF $MLH .IF NE "['$UIC',2'$GRP']" SET /UIC=['$UIC',2'$GRP'] .IFF $MLH .IFF EDIX REM EDI .170: .; .;CHECK IF ANY ICS/ICR, UDC, IP11 OR DSS DEVICES PRESENT .; .SETS DEV "$DEV" .2042: .TEST 'DEV' .SETN TEMPN 1 .2031: .IF TEMPN GT .GOTO 2030 .SETN TEMPN2 TEMPN+1 .SETS TEMPS 'DEV'[TEMPN:TEMPN2] .IF TEMPS EQ "IP" .GOTO JANICE .IF TEMPS NE "IC" .IF TEMPS NE "UD" .IF TEMPS NE "IS" .IF TEMPS NE "LA" .GOTO 9 .JANICE: .INC TEMPN2 .SETN TEMPN TEMPN+3 .SETS TEMPS2 'DEV'[TEMPN2:TEMPN] .SETN 'TEMPS' 'TEMPS2'. .INC TEMPN .GOTO 2031 .9: .SETN TEMPN TEMPN+4 .GOTO 2031 .2030: .IF DEV EQ "$DV3" .GOTO 2040 .IF DEV EQ "$DV2" .GOTO GLENDA .SETS DEV "$DV2" .GOTO 2042 .GLENDA: .SETS DEV "$DV3" .GOTO 2042 .2040: .SETF ICR .SETF UDC .SETF LPA .SETF IPX .IF IC GT 0 .SETT ICR .IF UD GT 0 .SETT UDC .IF IP GT 0 .SETT IPX .; .;EDIT ICS/ICR, UDC, PCS (IP-11), AND DSS MODULES IF NECESSARY .; .IF IP EQ 0 .IF IC EQ 0 .IF UD EQ 0 .IFF $DSS .GOTO 3190 .; .;CHECK IF DIRECT ACCESS IS REQUIRED TO IP-11 .; .IF IP EQ 0 .GOTO CLEARY .IFT $SAVED .IFDF $IPE .IFF REPEAT .GOTO CLEAR .ASK $IPE 8.'$SF1' Is direct access to IP11/IP300 I/O modules required .CLEAR: .IFT $SAVE .DATA .SET'$IPE' $IPE .CLEARY: .IFNDF $IPE .SETF $IPE .; .;CHECK IF DIRECT ACCESS TO ICS/ICR-11s IS REQUIRED .; .IF IC EQ 0 .GOTO 2191 .IFT $SAVED .IFDF $CDB .IFF REPEAT .GOTO 2191A .ASK $CDB 9.'$SF1' Is direct access to ICS/ICR-11 I/O modules required .2191A: .IFT $SAVE .DATA .SET'$CDB' $CDB .2191: .IFNDF $CDB .SETF $CDB .; .;DIRECT ACCESS TO UDC-11 DESIRED .; .IF UD EQ 0 .GOTO 2192 .IFT $SAVE .IFDF $DUC .IFF REPEAT .GOTO 2192A .ASK $DUC 10.'$SF1' Is direct access to UDC-11 I/O modules required .2192A: .IFT $SAVE .DATA .SET'$DUC' $DUC .2192: .IFNDF $DUC .SETF $DUC .; .;CHECK IF EDITING IS REQUIRED .; .IFF $IPE .IFF $CDB .IFF $DUC .IFF $DSS .GOTO 3190 .IFT $MAP .GOTO SPATZ .IFT $SAVED .IFDF $EXD .IFF REPEAT .GOTO 3182 .ASK $EXD 11.'$SF1' Edit RSXMC.MAC to allow FORTRAN access to lab device registers .3182: .IFT $SAVE .DATA .SET'$EXD' $EXD .IFF $EXD .GOTO SPATZ ; ; SGN -- The file ['$UIC',10]RSXMC.MAC must be edited as follows to allow ; access to the ICR/ICS/UDC/DSS/IP11 device registers through a ; global common block. ; .IFT $CDB ; *PL I$$C11 .IFT $CDB ; I$$C11=0 .IFT $CDB ; *I I$$COM=0 .IFT $IPE ; *PL I$$P11 .IFT $IPE ; I$$P11=0 .IFT $IPE ; *I I$$POM=0 .IFT $DUC ; *PL U$$D11 .IFT $DUC ; U$$D11=0 .IFT $DUC ; *I U$$DCM=0 ; *ED .IFF $MLH .IFNINS EDI INS $EDI .IFF $MLH ; .IFF $MLH ; Pausing to allow editing of RSXMC.MAC .IFF $MLH ; .IFF $MLH .PAUSE .IFF $MLH .IF NE "['$UIC',10]" SET /UIC=['$UIC',10] .IFF $MLH .IFF EDIX REM EDI .; .;ASSEMBLE LAB ROUTINES (WITH EDITING CHANGES) .; .GOTO SPATZ .SPITZ: ; SGN -- Correct problems -- SYSGEN will restart assemblies when done .PAUSE .SPATZ: .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/LI:TTM" .SETS TEMPS ","+$ALD+"["+"'$UIC'"+",3"+"'$GRP'"+"]IPMAP"+TEMPS3+$SPL .IF $ALD EQ "NL:" .SETS TEMPS "" .IFF $MLH .IFT $IPE MAC ['$UIC',2'$GRP']IPMAP.PCS'TEMPS'=['$UIC',10]RSXMC,'$DRV'IPMAP .SETS TEMPS ","+$ALD+"["+"'$UIC'"+",3"+"'$GRP'"+"]IPCOM"+TEMPS3+$SPL .IF $ALD EQ "NL:" .SETS TEMPS "" .IFF $MLH .IFT $IPE MAC ['$UIC',2'$GRP']IPCOM.PCS'TEMPS'=['$UIC',10]RSXMC,'$DRV'IPCOM .SETS TEMPS ","+$ALD+"["+"'$UIC'"+",3"+"'$GRP'"+"]ICTAB"+TEMPS3+$SPL .IF $ALD EQ "NL:" .SETS TEMPS "" .IFF $MLH .IFT $CDB MAC ['$UIC',2'$GRP']ICTAB.ICR'TEMPS'=['$UIC',10]ICTAB .SETS TEMPS ","+$ALD+"["+"'$UIC'"+",3"+"'$GRP'"+"]ICOM"+TEMPS3+$SPL .IF $ALD EQ "NL:" .SETS TEMPS "" .IFF $MLH .IFT $CDB MAC ['$UIC',2'$GRP']ICOM.ICR'TEMPS'=['$UIC',10]RSXMC,'$DRV'ICOM .SETS TEMPS ","+$ALD+"["+"'$UIC'"+",3"+"'$GRP'"+"]UDCOM"+TEMPS3+$SPL .IF $ALD EQ "NL:" .SETS TEMPS "" .IFF $MLH .IFT $DUC MAC ['$UIC',2'$GRP']UDCOM.UDC'TEMPS'=['$UIC',10]RSXMC,'$DRV'UDCOM .SETS TEMPS ","+$ALD+"["+"'$UIC'"+",3"+"'$GRP'"+"]ISCOM"+TEMPS3+$SPL .IF $ALD EQ "NL:" .SETS TEMPS "" .IFF $MLH .IFT $DSS MAC ['$UIC',2'$GRP']ISCOM.IDS'TEMPS'=['$UIC',10]RSXMC,'$DRV'ISCOM .SETS TEMPS ","+$ALD+"["+"'$UIC'"+",3"+"'$GRP'"+"]DSSDI"+TEMPS3+$SPL .IF $ALD EQ "NL:" .SETS TEMPS "" .IFF $MLH .IFT $DSS MAC ['$UIC',2'$GRP']DSSDI.IDS'TEMPS'=['$UIC',10]RSXMC,'$DRV'DSSDI .; .;CHECK THAT LAB DEVICE ASSEMBLIES WENT WELL .; .IFT $MLH .OR .IFT $BYPAS .GOTO 3190 ; .ASK AOK EOX * Did the lab common partitions assemble correctly ; .IFF AOK .GOTO SPITZ .; .;CLEAN UP AFTER ALL ASSEMBLIES .; .3190: .IFNDF $CDB .SETF $CDB .IFNDF $DUC .SETF $DUC .IFNDF $IPE .SETF $IPE .IFNDF $DSS .SETF $DSS ; ; Prepare for task building ; .; .; CREATE EXEC AND FDX TT DRIVER LIBRARY .; .IFT $MLH .GOTO MG SET /UIC=['$SYGRP',2'$GRP'] .IFNINS PIP INS $PIP PIP RSX11'$SYS'.OBS=['$UIC',2'$GRP']*.OBJ .IFT $FUD PIP TTDRV.OBJ=['$UIC',2'$GRP']*.TTY .IFNINS LBR INS $LBR LBR RSX11'$SYS'/CR:100.:960.:128.=RSX11'$SYS'.OBS .IFT $FUD LBR TTDRV/CR:30.:256.:64.=TTDRV .; .;MOVE FILES INTO PROPER DIRECTORIES FOR TASK BUILD .; PIP /NV=['$UIC',10]RSXBLD.CMD PIP ['$UIC',10]RSXBLD.CMD;*/DE/NM .IFT $CDB PIP ICTAB.ICR;*/DE/NM,ICOM;* .IFT $CDB PIP /NV=['$UIC',2'$GRP']ICTAB.ICR,ICOM .IFT $DUC PIP UDCOM.UDC;*/DE/NM .IFT $DUC PIP /NV=['$UIC',2'$GRP']UDCOM.UDC .IFT $IPE PIP IPMAP.PCS;*/DE/NM,IPCOM;* .IFT $IPE PIP /NV=['$UIC',2'$GRP']IPMAP.PCS,IPCOM .IFT $DSS PIP DSSDI.IDS;*/DE/NM,ISCOM;* .IFT $DSS PIP /NV=['$UIC',2'$GRP']DSSDI.IDS,ISCOM .IFT $MLH .OR .IFT $BYPAS .GOTO MG ; .ASK AOK EOX Were the task build preparations made successfully ; .IFT AOK .GOTO MG ; SGN -- We will pause so you can correct the problem. When ; you are finished SYSGEN will continue. .PAUSE .IF NE "['$SYGRP',2'$GRP']" SET /UIC=['$SYGRP',2'$GRP'] .MG: .IFF $MLH .IFF LBRX REM LBR ; ; Clean-up extraneous object files ; .IFF $MLH PIP RSX11'$SYS'.OBS;*/DE/NM,TTDRV.OBJ;*,['$UIC',2'$GRP']*.OBJ;*,*.TTY;* .; .;PREPARE TO TERMINATE .; .IFT $SAVE .DATA .DISABLE DATA #1 .IFT $SAVE .DATA .IFT $SGN1 .SETT $CS1 .IFT $SAVE .CLOSE .; .; SAVE PARAMETERS FOR SYSTEM PHASE II .; .SETF CRA .IF $CRA EQ "A" .SETT CRA .SETF LP .SETF LPA .IF LA NE 0 .SETT LPA .; .GOTO IAS'$IAS' .IASF: .OPENA #0 ['$DFUIC']SGNPARM.CMD .GOTO IAS5 .IAST: .SETS UIC .IFF $MLH .IF NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH PIP ['$DFUIC']SGNPARM.CMD;-1=['$DFUIC']SGNPARM.CMD/AP .OPEN #0 ['$DFUIC']SGNPARM.CMD .IFF $MLH .IF NE UIC SET /UIC='UIC' .; .IAS5: .SETS TEMPS "" .; .GOTO IAS'$IAS' .IASF: .ENABLE LOWERCASE .SETS TEMPS "done on '' at ''" .DISABLE LOWERCASE .IAST: .SETS TEMPS2 "SYS" .IFT $11S .SETS TEMPS2 "11S" .SET'SVD' $SAVED .ENABLE DATA #0 .ENABLE GLOBAL ; '$KIT' distribution kit 'TEMPS2'GEN version '$PHAS1' for RSX-11M BL'$BASEL''$BLREV' ; ; Continuation from 'TEMPS2'GEN PHASE I 'TEMPS' .SETS $SYS "'$SYS'" .SETN $GRP '$GRP' .SETN $SYGRP '$SYGRP' .SETS $MPD "'$MPD'" .SETS $EXC "'$EXC'" .SETN $BASEL '$BASEL'. .SET'$2RK' $2RK .SET'$BGDSK' $BGDSK .SET'$RK06' $RK06 .SET'$RL' $RL .SET'$MLH' $MLH .SET'$MCR' $MCR .SET'$11S' $11S .SET'$MAP' $MAP .SETS $TPR "'$TPR'" .SET'$DUC' $DUC .SET'$IPE' $IPE .SET'$CDB' $CDB .SET'$TKT' $TKT .SET'$DSS' $DSS .SET'ICR' $ICR .SET'UDC' $UDC .SET'$FUD' $FUD .SET'$LOD' $LOD .SET'$OUD' $OUD .SET'$LPR' $LPR .SET'CRA' $CDA .SET'LPA' $LPA11 .SETN $NLPA 'LA'. .SETN $ICLOC '$ICLOC.' .SETN $IPLOC '$IPLOC.' .SETN $UDLOC '$UDLOC.' .SETN $ISLOC '$ISLOC.' .SETN $DSA '$DSA.' .SET'$KMC' $KMC .SET'$PRN' $PRN .SETS $DEV "'$DEV'" .SETS $DV2 "'$DV2'" .SETS $DV3 "'$DV3'" .SET'$UWD' $UWD .SET'$STT' $STT .SET'$ANM' $ANM .SET'$MUP' $MUP .SET'$DCL' $DCL .SET'$DYN' $DYN .SET'$ONL' $ONL .SET'$F11' $F11 .SET'$ALP' $ALP .SET'$ERL' $ERL .SET'$XDT' $XDT .SET'$AMC' $AMC .SETN $TME '$TME'. .SETN $UIC '$UIC' .SETS $SPL "'$SPL'" .SET'$PWI' $PWI .SET'$LLR' $LLR .SET'$PMT' $PMT .SET'$MMD' $MMD .SET'$IAS' $IAS .SET'$DRC' $DRC .SET'$ISA' $ISA .SET'$BBF' $BBF .SETS $FCP "'$FCP'" .SET'$PMD' $PMD .SET'$RMD' $RMD .SET'$PRT' $PRT .SET'$FRL' $FRL .SETS $SYUIC "['$SYGRP',5'$GRP']" .SET'$SAVED' $SAVED .SET'$FFE' $FFE .SETS $SAI "'$SAI'" .SETS $SAO "'$SAO'" .SET'$BYPAS' $BYPAS .SETN $HIV '$HIV' .DISABLE DATA #0 .IFF $11SGN .DATA .SETT $11M .IFT $ANM .OR .IFT $BBF .DATA .SETT $ANSLB .IFF $ANM .IFF $BBF .DATA .SETF $ANSLB .SETN $SPLEN 101 .IF $FCP EQ "MINIMUM" .IFF $MAP .SETN $SPLEN 100 .IF $FCP EQ "MINIMUM" .IFT $MAP .SETN $SPLEN 101 .IF $FCP EQ "SMALL" .SETN $SPLEN 120 .IFT $FUD .IFF $MUP .SETN $SPLEN 117 .DATA .SETN $SPLEN '$SPLEN' .CLOSE #0 .; .GOTO IAS'$IAS' .IAST: .SETS UIC .IFF $MLH .IF NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH PIP SGNPARM.CMD;-1=SGNPARM.CMD/AP .IFF $MLH PIP SGNPARM.CMD/RE/NV=SGNPARM.CMD;-1 .IFF $MLH .IF NE UIC SET /UIC='UIC' .IASF: .; .;CONTINUE .; .IFT $XPRES .GOTO GIRD .DEBZ: ; .ASKS CONT EOS * Do you want to: -continue R-repeat section P-pause .IF CONT EQ "" .GOTO GIRD .IF CONT EQ "R" .GOTO BACKUP .IF CONT EQ "P" .PAUSE .GOTO DEBZ .BACKUP: .SETT REPEAT .; .GOTO IAS'$IAS' .IASF: .IFT $SAVE .OPENA '$SAO' .GOTO REASM .IAST: .SETS UIC .IFF $MLH .IFT $SAVE .IF NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFT $SAVE .OPEN '$SAO' .IFF $MLH .IF UIC NE SET /UIC='UIC' .GOTO REASM .; ; .GIRD: .SETF REPEAT .IF $SPL EQ "/SP" .OR .IF $ALD EQ "LP:" .SETT TEMPL .IFF $IAS .IFF $MLH .IFF LPXX .IFT TEMPL UNL LP: .IFF $MLH .IFF MACX REM MAC .; .GOTO IAS'$IAS' .IASF: .GOTO IAS1 .IAST: .IFF $MLH .IF NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFF $MLH .IFT $SAVE PIP '$SAO'/RE/NV='$SAO' .GOTO 99901 .IAS1: .; .;DUAL RK05 DISTRIBUTION DISK SWAP .; ; .IFF $2RK .GOTO HARRI .IFF $MLH .IFT $11S SET /UIC=[1,1] .IFF $MLH .IFT $11S PIP /NV='$DRV'EXEMC.MLB,RSXMAC.SML .IFF $MLH DMO '$DRV'DRVSRC .HARRI: .IFF $MLH .IFT $RL .IFF $XXX2 DMO '$EXC'EXCPRV .IFF $MLH .IFF PIPX REM PIP .ENABLE LOWERCASE .SETS TEMPS "at '' on ''" .SETS TEMPS2 "SYS" .IFT $11S .SETS TEMPS2 "11S" .DISABLE LOWERCASE ; ; End of 'TEMPS2'GEN phase I 'TEMPS' .IFT $XXX2 .GOTO 88800 ; -- To continue type: @['$SGNUC']'TEMPS2'GEN2 .ERASE LOCAL .GOTO 99901 .88800: .; .; SETUP FOR CHAINING TO SYSGEN2 .; ; -- Chaining to ['$SGNUC']SYSGEN2.CMD ; .IFF $MLH .IF NE "['$SGNUC']" SET /UIC=['$SGNUC'] .ERASE LOCAL .SETS SGNUC $SGNUC .ERASE GLOBAL .SETT $XXX2 .CHAIN ['SGNUC']SYSGEN2.CMD .; .; ERROR HANDLING .; .99900:; ; SGN -- SYSGEN encountered an unrecoverable error within the ; module SYSGEN.CMD. ; / .99901: ; .IFF –$MLH SET /UIC='$CUIC' .IFF $MLH .IFF $11SGN .IFF $MCR SET /CLI=TI:DCL .IFT $11SGN .IFF $MCR SET /CLI=TI:DCL .IFF $11SGN .IFF $XXX1 .ERASE GLOBAL –æw#Ì€€›c,À.; .; SYSGEN PROCEDURE FOR V4.0 RSX-11M .; .; Written by Mike Harrison .; Modified by Bernie Alimonti .; .; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY .; BE USED OR COPIED ONLY IN ACCORDANCE WITH THE TERMS .; OF SUCH LICENSE. .; .; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. .; ALL RIGHTS RESERVED. .; .; .; IDENT 1.43K .; .ONERR 99900 .ENABLE GLOBAL .ENABLE SUBSTITUTION .DISABLE LOWERCASE .3: .SETF REPEAT .2: ; ; Target configuration ; .IFT $SAVE .DATA .; Target Configuration Section .SETF FRCPRM .; .;PROCESSOR .; .SETN SYDISK 0 .SETF PTW .SETF GTW .SETF SRD .SETN ECC 0 .SETF $MMP .SETF $CHE .SETS DEF "" .117: .IFT $SAVED .IFDF $TPR .IFF REPEAT .GOTO 110 .IFNDF $TPRA .SETS $TPRA "11/34" .114: .ASKS $TPR 1.'$SF1' Processor Type [D: '$TPRA'] .IF $TPR EQ "" .SETS $TPR $TPRA .SETT FRCPRM .112: .SETS TEMPS $TPR[1:1] .IF TEMPS NE " " .GOTO 111 .SETS $TPR $TPR[2:] .GOTO 112 .111: .SETS TEMPS $TPR[1:3] .IF TEMPS EQ "LSI" .GOTO 113 .IF TEMPS NE "11/" .GOTO 114 .GOTO 116 .113: .SETS $TPR "11/03" .116:.IFT $MAP .GOTO 100 .IF $TPR EQ "11/03" .GOTO 110 .IF $TPR EQ "11/04" .GOTO 110 .IF $TPR EQ "11/05" .GOTO 110 .IF $TPR EQ "11/10" .GOTO 110 .IF $TPR EQ "11/15" .GOTO 110 .IF $TPR EQ "11/20" .GOTO 110 .100:.IF $TPR EQ "11/23" .GOTO 110 .IF $TPR EQ "11/24" .GOTO 110 .IF $TPR EQ "11/34" .GOTO 110 .IF $TPR EQ "11/35" .GOTO 110 .IF $TPR EQ "11/40" .GOTO 110 .IF $TPR EQ "11/44" .GOTO 110 .IF $TPR EQ "11/45" .GOTO 110 .IF $TPR EQ "11/50" .GOTO 110 .IF $TPR EQ "11/55" .GOTO 110 .IF $TPR EQ "11/60" .GOTO 110 .IF $TPR EQ "11/70" .GOTO 110 .IF $TPR NE "11/74" .GOTO 114 .110: .IFT $SAVE .DATA .SETS $TPR "'$TPR'" .; .;DETERMINE INDIVIDUAL PROCESSOR FEATURES .; .SETF $AMA .IF $TPR EQ "11/04" .OR .IF $TPR EQ "11/34" .SETT $AMA .; .; SWITCH REGISTER .; .IF $TPR EQ "11/05" .OR .IF $TPR EQ "11/10" .OR .IF $TPR EQ "11/15" .SETT $SWR .IF $TPR EQ "11/20" .OR .IF $TPR EQ "11/35" .OR .IF $TPR EQ "11/40" .SETT $SWR .IF $TPR EQ "11/45" .OR .IF $TPR EQ "11/55" .OR .IF $TPR EQ "11/60" .SETT $SWR .IF $TPR EQ "11/70" .OR .IF $TPR EQ "11/74" .SETT $SWR .IFDF $SWR .IFF REPEAT .GOTO 118A .IFNDF $SWRA .SETF $SWRA .IFDF .SETS DEF " [$SWRA]" .ASK'DEF' $SWR 2.'$SF1' Does processor have a switch register .SETT FRCPRM .118A: .IFT $SAVE .DATA .SET'$SWR' $SWR .; .;RSX-11S .; .SETF $11S .SETS $SYS "M" .141: .IFT $11SGN .SETT $11S .IFT $11S .SETS $SYS "S" .; .;TARGET MEMORY SIZE .; .SETN MIN 16. .IF $TPR EQ "11/70" .OR .IF $TPR EQ "11/74" .SETN MIN 32. .IF $TPR EQ "11/44" .SETN MIN 64. .IFF $MAP .IFT $11S .SETN MIN 8. .IFF $MAP .IFF $11S .SETN MIN 16. .IFT $SAVED .IFDF $TME .IFF REPEAT .GOTO 120 .121: .SETN TEMPN 124. .IF $TPR EQ "11/70" .OR .IF $TPR EQ "11/74" .OR .IF $TPR EQ "11/44" .SETN TEMPN 1920. .IF $TPR EQ "11/23" .OR .IF $TPR EQ "11/24" .SETN TEMPN 1920. .IFF $MAP .SETN TEMPN 30. .IFNDF $TMEA .SETN $TMEA MIN .ASKN [MIN:TEMPN:$TMEA] $TME 3.'$SF1' Memory size (in K-word blocks) .SETT FRCPRM .SETN TEMPN ($TME/4)*4 .IF TEMPN EQ $TME .GOTO 120 .IF $TME EQ 30. .IFF $MAP .GOTO 120 ; SGN -- Memory not multiple of 4K .GOTO 121 .120:.IFF $FFE .OR .IF $TME GE 36. .GOTO 129 ; ; SGN -- Standard Function System requires at least of 36K words of memory ; / .129:.IFT $SAVE .DATA .SETN $TME '$TME'. .; .;K-SERIES .; .IFT $SAVED .IFDF $KSR .IFF REPEAT .GOTO 165 .IFNDF $KSRA .SETF $KSRA .IFDF .SETS DEF " [$KSRA]" .ASK'DEF' $KSR 4.'$SF1' Include support for K-series devices .SETT FRCPRM .165: .IFT $SAVE .DATA .SET'$KSR' $KSR .; .;EAE SUPPORT .; .IFT $MAP .GOTO 171 .IFT $SAVED .IFDF $EAE .IFF REPEAT .GOTO 170 .SETF $EAE .IF $TPR EQ "11/03" .OR .IF $TPR EQ "11/23" .GOTO 170 .IFNDF $EAEA .SETF $EAEA .IFDF .SETS DEF " [$EAEA]" .ASK'DEF' $EAE 5.'$SF1' Extended arithmetic element (KE11-A/B EAE) present .SETT FRCPRM .170: .IFT $SAVE .DATA .SET'$EAE' $EAE .171: .IFNDF $EAE .SETF $EAE .; .;FPP .; .IFT $SAVED .IFDF $FPP .IFF REPEAT .GOTO 180 .SETF $FPP .IF $TPR EQ "11/60" .SETT $FPP .IF $TPR EQ "11/03" .OR .IF $TPR EQ "11/04" .OR .IF $TPR EQ "11/05" .GOTO 189 .IF $TPR EQ "11/10" .OR .IF $TPR EQ "11/15" .OR .IF $TPR EQ "11/20" .GOTO 189 .IF $TPR EQ "11/35" .OR .IF $TPR EQ "11/40" .OR .IF $TPR EQ "11/60" .GOTO 189 .IFNDF $FPPA .SETF $FPPA .IFDF .SETS DEF " [$FPPA]" .ASK'DEF' $FPP 6.'$SF1' Floating point processor (FP-11) present .SETT FRCPRM .180: .IFT $SAVE .DATA .SET'$FPP' $FPP .189: .; .;FIS .; .IFT $FPP .GOTO 199 .IF $TPR NE "11/03" .IF $TPR NE "11/35" .IF $TPR NE "11/40" .IF $TPR NE "11/74" .GOTO 199 .IFT $SAVED .IFDF $FIS .IFF REPEAT .GOTO 190 .IFNDF $FISA .SETF $FISA .IFDF .SETS DEF " [$FISA]" .ASK'DEF' $FIS 7.'$SF1' Floating instruction set (FIS) present .SETT FRCPRM .190: .IFT $SAVE .DATA .SET'$FIS' $FIS .199: .IFNDF $FIS .SETF $FIS .; .;EIS SUPPORT .; .IFT $SAVED .IFDF $EIS .IFF REPEAT .GOTO 200A .IF $TPR EQ "11/04" .OR .IF $TPR EQ "11/05" .GOTO 200B .IF $TPR EQ "11/10" .OR .IF $TPR EQ "11/15" .OR .IF $TPR EQ "11/20" .GOTO 200B .IFNDF $EISA .SETF $EISA .IFDF .SETS DEF " [$EISA]" .ASK'DEF' $EIS 8.'$SF1' Extended instruction set (EIS) present .SETT FRCPRM .200A: .IFT $SAVE .DATA .SET'$EIS' $EIS .200B: .IFNDF $EIS .SETF $EIS .; .;PROGRAMMABLE CLOCK .; .SETF $PRG .SETN $PR2 0 .IF $TPR EQ "11/03" .OR .IF $TPR EQ "11/23" .GOTO 209 .IFT $SAVED .IFDF $PRO .IFF REPEAT .GOTO 203 .GOTO MOONEY .202: ; SGN -- Number of interupts must be divisible into 10,000. .MOONEY: .ASKN [0:1000.:0] $PRO 9.'$SF1' If using KW11-P as system clock: number of intrps./sec. .SETT FRCPRM .203: .IF $PRO EQ 0 .GOTO 200 .SETN TEMPN 10000. .IF TEMPN NE 10000./$PRO*$PRO .GOTO 202 .SETN $PR2 10000./$PRO .SETT $PRG .200: .IFT $SAVE .DATA .SETN $PRO '$PRO'. .209: .IFNDF $PRO .SETN $PRO 0 .; .;LINE FREQUENCY .; .IFT $SAVED .IFDF $LIN .IFF REPEAT .GOTO 210 .211: .IFNDF $LINA .SETS $LINA "A" .ASKS $LIN 10.'$SF1' Line frequency: A- 60 Hz B- 50 Hz [D: '$LINA'] .SETT FRCPRM .IF $LIN NE "" .IF $LIN NE "A" .IF $LIN NE "B" .GOTO 211 .IF $LIN EQ "" .SETS $LIN $LINA .210: .IFT $SAVE .DATA .SETS $LIN "'$LIN'" .; .;WATCHDOG TIMER SUPPORT .; .IFT $SAVED .IFDF $WAT .IFF REPEAT .GOTO 230 .IFNDF $WATA .SETF $WATA .IFDF .SETS DEF " [$WATA]" .ASK'DEF' $WAT 11.'$SF1' KW11-Y Watchdog timer support .SETT FRCPRM .230: .IFT $SAVE .DATA .SET'$WAT' $WAT .; .;MEMORY PARITY .; .IFT $SAVED .IFDF $MPR .IFF REPEAT .GOTO 250 .IFNDF $MPRA .SETF $MPRA .IFDF .SETS DEF " [$MPRA]" .ASK'DEF' $MPR 12.'$SF1' Memory parity support .SETT FRCPRM .250: .IFT $SAVE .DATA .SET'$MPR' $MPR .; .;CACHE MEMORY .; .IFF $MPR .OR .IF $TPR EQ "11/03" .OR .IF $TPR EQ "11/04" .GOTO 269 .IF $TPR EQ "11/05" .OR .IF $TPR EQ "11/10" .OR .IF $TPR EQ "11/15" .GOTO 269 .IF $TPR EQ "11/20" .OR .IF $TPR EQ "11/23" .OR .IF $TPR EQ "11/24" .GOTO 269 .IF $TPR EQ "11/35" .OR .IF $TPR EQ "11/40" .GOTO 269 .IF $TPR EQ "11/45" .OR .IF $TPR EQ "11/50" .OR .IF $TPR EQ "11/55" .GOTO 269 .IFT $SAVED .IFDF $CAH .IFF REPEAT .GOTO 260 .IFNDF $CAHA .SETF $CAHA .IFDF .SETS DEF " [$CAHA]" .ASK'DEF' $CAH 13.'$SF1' Cache memory .SETT FRCPRM .260: .IFT $SAVE .DATA .SET'$CAH' $CAH .269: .IFNDF $CAH .SETF $CAH .; .;HIGHEST INTERRUPT VECTOR .; .IFT $SAVED .IFDF $HIV .IFF REPEAT .GOTO 270 ; ; The response to the following question specifies the highest interrupt ; vector. If you respond with a value less than or equal to 400, SYSGEN ; will assign the value associated with the highest interrupt vector ; specified during the Peripheral Section. Therefore, if your system ; will include devices that are not specified during the Peripheral ; Section and which have vectors above 400 (devices such as K-series and ; certain communication devices), specify that value in the next question. ; .ASKN [0:774:0] $HIV 14.'$SF1' Highest interrupt vector .SETT FRCPRM .SETN $HIV $HIV+4 .270: .; .;TARGET SYSTEM I/O DEVICES .; .SETN MAXAD 16. .SETN MAXAF 16. .SETN MAXAR 16. .SETN MAXLA 16. .SETN MAXLS 16. .SETN MAXIC 12. .SETN MAXIP 10. .SETN MAXIS 01. .SETN MAXUD 01. .SETN MAXCR 16. .SETN MAXCT 16. .SETN MAXDB 16. .SETN MAXDD 16. .SETN MAXDF 16. .SETN MAXDK 16. .SETN MAXDL 16. .SETN MAXDM 16. .SETN MAXDP 16. .SETN MAXDR 16. .SETN MAXDS 16. .SETN MAXDT 16. .SETN MAXDU 16. .SETN MAXDX 16. .SETN MAXDY 16. .SETN MAXEM 16. .SETN MAXLP 16. .SETN MAXMM 16. .SETN MAXMT 16. .SETN MAXMS 16. .SETN MAXNL 01. .SETN MAXPP 16. .SETN MAXPR 16. .SETN MAXXB 16. .SETN MAXXL 16. .SETN MAXXM 16. .SETN MAXXP 16. .SETN MAXXQ 16. .SETN MAXXU 16. .SETN MAXXW 16. .SETN MAXGR 01. .SETN MAXMF 16. .SETN MAXCO 01. .SETN MAXYL 16. .SETN MAXYH 16. .SETN MAXYZ 16. .SETN MAXYJ 16. .SETF FINI .IFT REPEAT .OR .IFF $ACF .GOTO 407AB .SETS TEMPS "A" .GOTO 407B .407AB: .SETS TEMPS "" .IFT REPEAT .OR .IFF $PERIP .OR .IFF $SAVED .OR .IFNDF $DEV .GOTO 407X .IFNDF $DV2 .OR .IFNDF $DV3 .GOTO 407X .407B: .TEST $DEV'TEMPS' .IF EQ 0 .GOTO 407C .SETS ADEV $DEV'TEMPS'[1:2] .SETS ANUM $DEV'TEMPS'[3:4] .SETN 'ADEV' 'ANUM'. .SETT X'ADEV' .IF EQ 4 .GOTO 407C .SETS $DEV'TEMPS' $DEV'TEMPS'[5:] .GOTO 407B .407C: .TEST $DV2'TEMPS' .IF EQ 0 .GOTO 407D .SETS ADEV $DV2'TEMPS'[1:2] .SETS ANUM $DV2'TEMPS'[3:4] .SETN 'ADEV' 'ANUM'. .SETT X'ADEV' .IF EQ 4 .GOTO 407D .SETS $DV2'TEMPS' $DV2'TEMPS'[5:] .GOTO 407C .407D: .TEST $DV3'TEMPS' .IF EQ 0 .GOTO 407E .SETS ADEV $DV3'TEMPS'[1:2] .SETS ANUM $DV3'TEMPS'[3:4] .SETN 'ADEV' 'ANUM'. .SETT X'ADEV' .IF EQ 4 .GOTO 407E .SETS $DV3'TEMPS' $DV3'TEMPS'[5:] .GOTO 407D .407E: .IF TEMPS EQ "A" .GOTO 407AB .IFT $ACF .OR .IFT $FFE .GOTO 407X .IFT $SAVED .IFF REPEAT .GOTO 403X .407X: .IFT REPEAT ; WARNING -- Old device configuration in effect ; For device configuration: "*" Prints device table, "." Terminates inquiry ; "?" Prints current configuration ; Enter devices and number of controllers for devices which require drivers .IFT $ACF .OR .IFT REPEAT .GOTO 402B .405A: .ASKS DEV 15.'$SF1' Devices .SETT FRCPRM .405: .TEST DEV .IF EQ 0 .GOTO 405A .IF LT 2 .GOTO 401 .SETS ADEV DEV[1:2] .IF ADEV EQ "AD" .OR .IF ADEV EQ "AF" .OR .IF ADEV EQ "AR" .GOTO 402 .IF ADEV EQ "CR" .OR .IF ADEV EQ "CT" .OR .IF ADEV EQ "DB" .GOTO 402 .IF ADEV EQ "DD" .OR .IF ADEV EQ "DF" .OR .IF ADEV EQ "DK" .GOTO 402 .IF ADEV EQ "DL" .OR .IF ADEV EQ "DM" .OR .IF ADEV EQ "DP" .GOTO 402 .IF ADEV EQ "DR" .OR .IF ADEV EQ "DS" .OR .IF ADEV EQ "DT" .GOTO 402 .IF ADEV EQ "DX" .OR .IF ADEV EQ "DY" .OR .IF ADEV EQ "GR" .GOTO 402 .IF ADEV EQ "IC" .OR .IF ADEV EQ "IS" .OR .IF ADEV EQ "LA" .GOTO 402 .IF ADEV EQ "LP" .OR .IF ADEV EQ "LS" .OR .IF ADEV EQ "MF" .GOTO 402 .IF ADEV EQ "MM" .OR .IF ADEV EQ "MT" .OR .IF ADEV EQ "PP" .GOTO 402 .IF ADEV EQ "MS" .OR .IF ADEV EQ "NL" .OR .IF ADEV EQ "CO" .GOTO 402 .IF ADEV EQ "PR" .OR .IF ADEV EQ "UD" .GOTO 402 .IF ADEV EQ "XB" .OR .IF ADEV EQ "XL" .OR .IF ADEV EQ "XM" .GOTO 402 .IF ADEV EQ "XP" .OR .IF ADEV EQ "XQ" .OR .IF ADEV EQ "XU" .GOTO 402 .IF ADEV EQ "IP" .OR .IF ADEV EQ "XW" .GOTO 402 .IF ADEV EQ "YL" .OR .IF ADEV EQ "YH" .OR .IF ADEV EQ "YZ" .GOTO 402 .IF ADEV EQ "YJ" .OR .IF ADEV EQ "EM" .OR .IF ADEV EQ "DU" .GOTO 402 .GOTO 402A .402: .SETS TEMPS2 "0" .SETN N1 2 .SETN N2 3 .405B: .IF EQ 'N1' .GOTO 403 .SETS TEMPS DEV['N2':'N2'] .IF TEMPS EQ "=" .GOTO 405C .IF TEMPS EQ "," .GOTO 403 .IF TEMPS NE "." .GOTO 404 .SETT FINI .GOTO 403 .405C: .INC N1 .INC N2 .GOTO 405B .404: .IF TEMPS LT "0" .OR .IF TEMPS GT "9" .GOTO 402A .SETS TEMPS2 TEMPS2+TEMPS .INC N1 .INC N2 .GOTO 405B .401: .IF DEV EQ "*" .GOTO 401A .IF DEV EQ "?" .GOTO 402B .IF DEV NE "." .GOTO 402A .SETT FINI .GOTO 403X .402A: ; SGN -- Unrecognizable string "'DEV'" -- Ignored .GOTO 405A .403: .IF TEMPS2 EQ "0" .SETS TEMPS2 "1" .SETN 'ADEV' 'TEMPS2'. .IF 'ADEV' LE MAX'ADEV' .GOTO 403XA .SETN DANW MAX'ADEV' ; SGN -- Maximum of 'DANW.' controllers allowed for device 'ADEV' -- RETRY .SETF FINI .403XA: .SETT X'ADEV' .INC N2 .SETS DEV DEV['N2':] .IFF FINI .GOTO 405 .; .; BUILD DEVICE STRINGS $DEV, $DV2, AND $DV3 -- S$DEV, S$DV2 AND S$DV3 .; .403X: .SETS $DEV "" .SETS $DV2 "" .SETS $DV3 "" .SETS S$DEV "" .SETS S$DV2 "" .SETS S$DV3 "" .; .IFNDF AD .SETN AD 0 .SETS TEMPS "AD" .IF AD LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'AD'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XAD .SETS S$DEV S$DEV+"'TEMPS'" .IF AD GT 0 .SETT PTW .; .IFNDF AF .SETN AF 0 .SETS TEMPS "AF" .IF AF LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'AF'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XAF .SETS S$DEV S$DEV+"'TEMPS'" .IF AF GT 0 .SETT PTW .; .IFNDF AR .SETN AR 0 .SETS TEMPS "AR" .IF AR LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'AR'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XAR .SETS S$DEV S$DEV+"'TEMPS'" .; .IFNDF CR .SETN CR 0 .SETS TEMPS "CR" .IF CR LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'CR'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XCR .SETS S$DEV S$DEV+"'TEMPS'" .; .IFNDF CT .SETN CT 0 .SETS TEMPS "CT" .IF CT LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'CT'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XCT .SETS S$DEV S$DEV+"'TEMPS'" .; .IFNDF CO .SETN CO 0 .IFF $MAP .IF CO GT 0 ; SGN -- CO driver not valid on unmapped system .IFF $MAP .IF CO GT 0 .SETT FRCPRM .IFF $MAP .SETN CO 0 .IFT $11S .IF CO GT 0 ; SGN -- CO driver not valid on RSX-11S systems .IFT $11S .IF CO GT 0 .SETT FRCPRM .IFT $11S .SETN CO 0 .SETS TEMPS "CO" .IF CO LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'CO'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XCO .SETS S$DEV S$DEV+"'TEMPS'" .; .IFNDF DB .SETN DB 0 .SETS TEMPS "DB" .IF DB LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DB'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDB .SETS S$DEV S$DEV+"'TEMPS'" .SETN SYDISK SYDISK+'DB' .IF DB GT 0 .INC ECC .; .IFNDF DD .SETN DD 0 .SETS TEMPS "DD" .IF DD LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DD'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDD .SETS S$DEV S$DEV+"'TEMPS'" .; .IFNDF DF .SETN DF 0 .SETS TEMPS "DF" .IF DF LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DF'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDF .SETS S$DEV S$DEV+"'TEMPS'" .SETN SYDISK SYDISK+'DF' .; .IFNDF DK .SETN DK 0 .SETS TEMPS "DK" .IF DK LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DK'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDK .SETS S$DEV S$DEV+"'TEMPS'" .SETN SYDISK SYDISK+'DK' .; .IFNDF DL .SETN DL 0 .SETS TEMPS "DL" .IF DL LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DL'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDL .SETS S$DEV S$DEV+"'TEMPS'" .SETN SYDISK SYDISK+'DL' .; .IFNDF DM .SETN DM 0 .SETS TEMPS "DM" .IF DM LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DM'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDM .SETS S$DEV S$DEV+"'TEMPS'" .SETN SYDISK SYDISK+'DM' .IF DM GT 0 .INC ECC .; .IFNDF DP .SETN DP 0 .SETS TEMPS "DP" .IF DP LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DP'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDP .SETS S$DEV S$DEV+"'TEMPS'" .SETN SYDISK SYDISK+'DP' .; .IFNDF DR .SETN DR 0 .SETS TEMPS "DR" .IF DR LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DR'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDR .SETS S$DEV S$DEV+"'TEMPS'" .SETN SYDISK SYDISK+'DR' .IF DR GT 0 .INC ECC .; .IFNDF DS .SETN DS 0 .SETS TEMPS "DS" .IF DS LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DS'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDS .SETS S$DEV S$DEV+"'TEMPS'" .SETN SYDISK SYDISK+'DS' .; .IFNDF DT .SETN DT 0 .SETS TEMPS "DT" .IF DT LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DT'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDT .SETS S$DEV S$DEV+"'TEMPS'" .; .IFNDF DX .SETN DX 0 .SETS TEMPS "DX" .IF DX LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DX'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDX .SETS S$DEV S$DEV+"'TEMPS'" .SETN SYDISK SYDISK+'DX' .; .IFNDF DY .SETN DY 0 .SETS TEMPS "DY" .IF DY LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DY'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XDY .SETS S$DEV S$DEV+"'TEMPS'" .SETN SYDISK SYDISK+'DY' .; .IFNDF GR .SETN GR 0 .IF $TME GT 124. .IF GR NE 0 ; SGN -- GR not valid on system with more than 124K -- SUPPRESSED .IF $TME GT 124. .IF GR NE 0 .SETT FRCPRM .IF $TME GT 124. .SETN GR 0 .SETS TEMPS "GR" .IF GR LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'GR'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XGR .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF IC .SETN IC 0 .SETS TEMPS "IC" .IF IC LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'IC'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XIC .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF IS .SETN IS 0 .SETS TEMPS "IS" .IF IS LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'IS'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XIS .SETS S$DV2 S$DV2+"'TEMPS'" .SETF GTW .; .IFNDF LA .SETN LA 0 .SETS TEMPS "LA" .IF LA LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'LA'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XLA .SETS S$DV2 S$DV2+"'TEMPS'" .IF LA GT 0 .SETT GTW .IF LA GT 0 .SETT SRD .; .IFNDF LP .SETN LP 0 .SETS TEMPS "LP" .IF LP LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'LP'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XLP .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF LS .SETN LS 0 .SETS TEMPS "LS" .IF LS LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'LS'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XLS .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF MF .SETN MF 0 .SETS TEMPS "MF" .IF MF LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'MF'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XMF .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF MM .SETN MM 0 .SETS TEMPS "MM" .IF MM LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'MM'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XMM .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF MS .SETN MS 0 .SETS TEMPS "MS" .IF MS LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'MS'" .SETS $DEV $DEV+"'TEMPS'" .IFDF XMS .SETS S$DEV S$DEV+"'TEMPS'" .; .IFNDF MT .SETN MT 0 .SETS TEMPS "MT" .IF MT LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'MT'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XMT .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF PP .SETN PP 0 .SETS TEMPS "PP" .IF PP LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'PP'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XPP .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF PR .SETN PR 0 .SETS TEMPS "PR" .IF PR LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'PR'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XPR .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF UD .SETN UD 0 .SETS TEMPS "UD" .IF UD LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'UD'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XUD .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF XB .SETN XB 0 .SETS TEMPS "XB" .IF XB LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'XB'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XXB .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF XL .SETN XL 0 .SETS TEMPS "XL" .IF XL LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'XL'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XXL .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF XM .SETN XM 0 .SETS TEMPS "XM" .IF XM LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'XM'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XXM .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF XP .SETN XP 0 .SETS TEMPS "XP" .IF XP LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'XP'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XXP .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF XQ .SETN XQ 0 .SETS TEMPS "XQ" .IF XQ LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'XQ'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XXQ .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF XU .SETN XU 0 .SETS TEMPS "XU" .IF XU LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'XU'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XXU .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF XW .SETN XW 0 .SETS TEMPS "XW" .IF XW LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'XW'" .SETS $DV2 $DV2+"'TEMPS'" .IFDF XXW .SETS S$DV2 S$DV2+"'TEMPS'" .; .IFNDF IP .SETN IP 0 .SETS TEMPS "IP" .IF IP LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'IP'" .SETS $DV3 $DV3+"'TEMPS'" .IFDF XIP .SETS S$DV3 S$DV3+"'TEMPS'" .; .IFNDF EM .SETN EM 0 .SETS TEMPS "EM" .IF EM LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'EM'" .SETS $DV3 $DV3+"'TEMPS'" .IFDF XEM .SETS S$DV3 S$DV3+"'TEMPS'" .SETN SYDISK SYDISK+'EM' .; .IFNDF DU .SETN DU 0 .IFF $MAP .IF DU NE 0 ; SGN -- DU not vaild on an unmapped system -- SUPPRESSED .IFF $MAP .IF DU NE 0 .SETT FRCPRM .IFF $MAP .IF DU NE 0 .SETN DU 0 .SETS TEMPS "DU" .IF DU LT 10 .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'DU'" .SETS $DV3 $DV3+"'TEMPS'" .IFDF XDU .SETS S$DV3 S$DV3+"'TEMPS'" .SETN SYDISK SYDISK+'DU' .; .IFNDF YL .SETN YL 0 .IFF $11S .IF YL EQ 0 ; SGN -- WARNING -- Console terminal interface (YL) forced into system .IFF $11S .IF YL EQ 0 .SETT FRCPRM .IFF $11S .IF YL EQ 0 .SETN YL 1 .SETS TEMPS "YL" .IF YL LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'YL'" .SETS $DV3 $DV3+"'TEMPS'" .IFDF XYL .SETS S$DV3 S$DV3+"'TEMPS'" .; .IFNDF YH .SETN YH 0 .SETS TEMPS "YH" .IF YH LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'YH'" .SETS $DV3 $DV3+"'TEMPS'" .IFDF XYH .SETS S$DV3 S$DV3+"'TEMPS'" .; .IFNDF YZ .SETN YZ 0 .SETS TEMPS "YZ" .IF YZ LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'YZ'" .SETS $DV3 $DV3+"'TEMPS'" .IFDF XYZ .SETS S$DV3 S$DV3+"'TEMPS'" .; .IFNDF YJ .SETN YJ 0 .SETS TEMPS "YJ" .IF YJ LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'YJ'" .SETS $DV3 $DV3+"'TEMPS'" .IFDF XYJ .SETS S$DV3 S$DV3+"'TEMPS'" .; .IFNDF NL .SETN NL 0 .SETF TEMPL .IF YL GT 0 .OR .IF YH GT 0 .OR .IF YZ GT 0 .OR .IF YJ GT 0 .SETT TEMPL .IF SYDISK GT 0 .IFT TEMPL .GOTO RENEE .IF NL GT 0 .GOTO RENEE ; SGN -- WARNING -- Null device forced into system .SETT FRCPRM .SETN NL 1 .RENEE: .SETS TEMPS "NL" .IF NL LT 10. .SETS TEMPS TEMPS+"0" .SETS TEMPS TEMPS+"'NL'" .SETS $DV3 $DV3+"'TEMPS'" .IFDF XNL .SETS S$DV3 S$DV3+"'TEMPS'" .GOTO 400 .401A: ; ; Device codes for A/D and industrial/laboratory devices: ; ; AD- AD01-D A/D Converter ; AF- AFC11 A/D Converter ; AR- AR11 Laboratory Subsystem ; IC- ICR11/ICS11 Industrial Control Subsystem ; IP- IP11/IP300 Industrial Control Subsystem ; IS- DRS11/DSS11 Industrial Control Subsystem ; LA- LPA11 Laboratory Subsystem ; LS- LPS11 Laboratory Subsystem ; UD- UDC11 Universal Digital Controller ; ; Device codes for Interprocessor communication devices: ; ; XB- DA11-B Interprocessor Link ; XL- DL11-E Interprocessor Link ; XM- DMC11-E/DMR11 Interprocessor Link ; XP- DP11 Synchronous Interface ; XQ- DQ11 Synchronous Interface ; XU- DU11 Synchronous Interface ; XW- DUP11 Synchronous Interface ; ; Device codes for unit record devices: ; ; CR- CR11/CM11-E Card Reader ; GR- VT11/VS60 Graphics Subsystem ; LP- LA11/LP11/LS11/LV11 Line Printer ; PP- PC11 Paper Tape Punch ; PR- PC11/PR11 Paper Tape Punch and Reader ; ; Device codes for disk devices: ; ; DB- RP04/RP05/RP06 Disk Drive ; DD- TU58 Cartridge DECtape II ; DF- RF11 Fixed Head Disk Drive ; DK- RK03/RK05 Disk Drive ; DL- RL01/RL02 Disk Drive ; DM- RK06/RK07 Disk Drive ; DP- RP02/RP03 Disk Drive ; DR- RM02/RM03/RM05/RM80/RP07 Disk Drive ; DS- RS03/RS04 Fixed Head Disk Drive ; DT- TU56 DECtape ; DU- UDA50 Unibus Disk Adapter ; DX- RX01 Floppy Disk Drive ; DY- RX02 Floppy Disk ; EM- ML11 Non-Rotating Electronic Memory ; ; Device codes for Magnetic tape devices: ; ; CT- TU60 Cassette Tape Drive ; MF- TU78 Magtape Drive ; MM- TU16/TU45/TU77/TE16 Magtape Drive ; MS- TS04 Magtape Drive ; MT- TU10/TE10/TS03 Magtape Drive ; ; Device codes for terminal interface devices: ; ; YH- DH11 Asynchronous Terminal Interface ; YJ- DJ11 Asynchronous Terminal Interface ; YL- DL11-A/-B/-C/-D/-E/-J/-W Asynchronous Terminal Interface ; YZ- DZ11 Asynchronous Terminal Interface ; ; Device codes for pseudo devices: ; ; CO- console device ; NL- null device ; ; Enter responses as: dev1=number controllers,dev2=number controllers, ... ; If a devices is specified without the number of controllers, the number ; of controllers defaults to 1. ; ; Example: DK,DM=2,YL,NL. ; .GOTO 405A .402B: ; ; Current system configuration: ; .SETS TEMPS2 "" .SETN TEMPN2 0 .SETT NOLIST .SETS TEMPS "AD" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "AF" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "AR" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "LA" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "LS" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "IC" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "IP" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "IS" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "UD" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "CR" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "CT" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DB" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DD" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DF" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DK" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DL" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DM" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DP" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DR" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DS" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DT" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DU" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DX" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "DY" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "EM" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "LP" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "MM" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "MT" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "MS" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "NL" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "PP" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "PR" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "XB" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "XL" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "XM" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "XP" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "XQ" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "XU" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "XW" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "GR" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "MF" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "CO" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "YL" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "YH" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "YZ" .IFDF X'TEMPS' .GOSUB 402C .SETS TEMPS "YJ" .IFDF X'TEMPS' .GOSUB 402C .IF TEMPN2 NE 0 .GOSUB 402D .IFT NOLIST ; SGN -- Current configuration is not defined .GOTO 405A .402C: .SETF NOLIST .SETN TEMPN 'TEMPS' .IF TEMPN2 GT 0 .SETS TEMPS2 TEMPS2+", " .SETS TEMPS2 TEMPS2+"'TEMPS'='TEMPN'" .INC TEMPN2 .IF TEMPN2 LT 8. .GOTO 402E .402D: ; 'TEMPS2' .SETS TEMPS2 "" .SETN TEMPN2 0 .402E: .RETURN .400: .IFT $SAVE .DATA .SETS $DEV "'S$DEV'" .IFT $SAVE .DATA .SETS $DV2 "'S$DV2'" .IFT $SAVE .DATA .SETS $DV3 "'S$DV3'" .; .;PRINT OUT TARGET SEMI-CONFIGURATION .; .SETS TEMPS "M" .ENABLE LOWERCASE .IFF $MAP .SETS TEMPS "Unm" .DISABLE LOWERCASE .SETS TEMPS2 "M" .IFT $11S .SETS TEMPS2 "S" .IFT FRCPRM ; ; Processor:'$TPR' Memory Size:'$TME'K,'TEMPS'apped System:RSX-11'TEMPS2' ; .IFF $SAVED .IFF $ACF .GOTO NOPRT .IFT $SWR ; Switch Register .IFT $EAE ; Extended Arithmetic Element .IFT $FPP ; Floating Point Processor .IFT $FIS ; Floating Instruction Set .IFT $EIS ; Extended Instruction Set .IFT $MPR ; Parity Memory .IFT $CAH ; Cache Memory .IFT $WAT ; Watchdog Timer .IF $PRO NE 0. ; Programmable System Clock ; .NOPRT: .SETF FRCPRM ; Host configuration ; .IFT $SAVE .DATA .; Host Configuration Section .SET'$SAVED' SAVEX .IFT $SAVED .IFF $HSAVE .SETF $SAVED .; .;LINE PRINTER AVAILABLE .; .IFT $SAVED .IFDF $LPR .IFF REPEAT .GOTO 410 .SETT FRCPRM .ASK $LPR 1.'$SF1' Is a line printer available .410: .IFT $SAVE .DATA .SET'$LPR' $LPR .; .;CHECK IF SPOOLING DESIRED .; .IFT $SAVED .IFDF $SPL .IFF REPEAT .GOTO 428 .SETS $SPL "/-SP" .SETF SPO .SETT FRCPRM .IFT $LPR .IFT $ONL .ASK SPO 2.'$SF1' Spool assembly listings and Executive and driver maps .IFT SPO .SETS $SPL "/SP" .428: .IFT $SAVE .DATA .SETS $SPL "'$SPL'" .; .;LISTING DEVICE WIDTH .; .IFT $SAVED .IFDF $PWI .IFF REPEAT .GOTO 415 .SETT FRCPRM .ASK $PWI 3.'$SF1' Does the listing/map device have at least 120 columns .415: .IFT $SAVE .DATA .SET'$PWI' $PWI .; .;ASSEMBLY LISTING DEVICE .; .IFT $SAVED .IFDF $ALD .IFF REPEAT .GOTO 42X .GOTO ALIOP .ALIOPX: ; SGN -- Valid listing devices are: SY:, TI:, and "None" (default) -- RETRY .ALIOP: .SETS TEMPS "NL:" .ENABLE LOWERCASE .IFT $IAS .SETS TEMPS "None" .DISABLE LOWERCASE .SETT FRCPRM .ASKS $ALD 4.'$SF1' Assembly listings device (ddu:) [D: "'TEMPS'"] .IF $ALD EQ "NONE" .OR .IF $ALD EQ "" .SETS $ALD "NL:" .42X: .TEST $ALD .IF EQ 0 .GOTO 429 .SETS TEMPS $ALD[:] .IF TEMPS NE ":" .SETS $ALD $ALD+":" .429X: .IF $ALD EQ "SY:" .SETS $ALD "" .IFF $ONL .OR .IF $SPL EQ "/-SP" .OR .IF $ALD NE "LP:" .GOTO 429 ; SGN -- Listing files cannot be sent directly to LP: -- RETRY .GOTO ALIOP .429: .IFT $IAS .IF $ALD NE "NL:" .IF $ALD NE "" .IF $ALD NE "TI:" .GOTO ALIOPX .420: .IFT $SAVE .DATA .SETS $ALD "'$ALD'" .; .;MAP DEVICE FOR UTILITIES & DEVICE DRIVERS .; .IFDF $MPD .SETS MPD $MPD .IFT $SAVED .IFDF $MPD .IFF REPEAT .GOTO 422X .GOTO ALIOOP .ALIOXX: ; SGN -- Valid map devices are: SY:, TI:, and "None" (default SY:) -- RETRY .ALIOOP: .SETS $MPD $EXC .SETT FRCPRM .ASKS MPD 5.'$SF1' Map device for Executive and device drivers (ddu:) [D: '$MPD'] .IF MPD EQ "NONE" .SETS MPD "NL:" .422X: .TEST MPD .IF EQ 0 .GOTO 422 .SETS TEMPS MPD[:] .IF TEMPS NE ":" .SETS MPD MPD+":" .IF MPD EQ "SY:" .SETS MPD "" .423: .IFF $ONL .OR .IF $SPL EQ "/-SP" .OR .IF MPD NE "LP:" .GOTO BERNIE ; SGN -- Maps cannot be sent directly to line printer -- RETRY .GOTO ALIOOP .BERNIE: .IFT $IAS .IF MPD NE "NL:" .IF MPD NE "" .IF MPD NE "TI:" .GOTO ALIOXX .SETS $MPD MPD .422: .IFT $SAVE .DATA .SETS $MPD "'$MPD'" .; .;CONTINUE? .; .SET'SAVEX' $SAVED .SETF REPEAT .433: .IFT $XPRES .GOTO 430 .431: ; .ASKS CONT EOS * Do you want to: -continue R-repeat section E-exit P-pause .IF CONT EQ "" .GOTO 430 .IF CONT EQ "R" .GOTO 432 .IF CONT EQ "E" .GOTO REN1 .IF CONT EQ "P" .PAUSE .GOTO 431 .REN1: .SETT $ABORT .GOTO 99901 .432: .SETT REPEAT .GOTO 2 .430: .IFT FRCPRM .OR .IFF $XPRES ; ; Executive Options .IFT $SAVE .DATA .; Executive Options Section .SETF MSGPRM .IFF $SAVED .GOSUB PRIPRM .SETF FRCPRM .GOTO SRTANS .; .; PRIPRM SUBROUTINE --- PRINT PROMPT FOR YES/NO QUESTIONS .; .PRIPRM: ; ; Answer Y(ES) if the following support is desired ; .SETT MSGPRM .RETURN .SRTANS: .; .;DBMS-11 EXEC OPTIONS .; .IF $TME LT 96. .OR .IFF $MAP .OR .IFT $11S .GOTO 499 .IFT $SAVED .IFDF $DBM .IFF REPEAT .GOTO 490 .IFF MSGPRM .GOSUB PRIPRM .ASK $DBM 1.'$SF1' Include support for DBMS-11 .490: .IFT $SAVE .DATA .SET'$DBM' $DBM .499: .IFNDF $DBM .SETF $DBM .; .;FILES-11 ACP .; .SETF $ACP .IFT $11S .GOTO 509 .IFF $DBM .GOTO 501 .IFNDF $F11 .SETF $F11 .IFT $F11 .GOTO 500 .SETT $F11 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Files-11 ACP support will be included .GOTO 500 .501: .IFT $SAVED .IFDF $F11 .IFF REPEAT .GOTO 500 .IFF MSGPRM .GOSUB PRIPRM .ASK $F11 2.'$SF1' FILES-11 ACP .500: .IFT $SAVE .DATA .SET'$F11' $F11 .IFT $F11 .SETT $ACP .509: .IFNDF $F11 .SETF $F11 .; .;RMS BUCKET LOCKING .; .IFT $11S .OR .IFF $F11 .GOTO 519 .IFT $SAVED .IFDF $RMS .IFF REPEAT .GOTO 510 .IFF MSGPRM .GOSUB PRIPRM .ASK $RMS 3.'$SF1' RMS bucket locking (file sharing) and placement control .510: .IFT $SAVE .DATA .SET'$RMS' $RMS .519: .IFNDF $RMS .SETF $RMS .; .;NON-RESIDENT TASK .; .IFT $11S .GOTO 529 .IFT $SAVED .IFDF $NRT .IFF REPEAT .GOTO 520 .IFF MSGPRM .GOSUB PRIPRM .ASK $NRT 4.'$SF1' Non-resident tasks (task loader) .520: .IFT $SAVE .DATA .SET'$NRT' $NRT .529: .IFNDF $NRT .SETF $NRT .; .;LOADABLE LOADER .; .IFT $11S .OR .IFF $MAP .OR .IFF $NRT .GOTO 619 .IFT $SAVED .IFDF $LLR .IFF REPEAT .GOTO 615 .IFF MSGPRM .GOSUB PRIPRM .ASK $LLR 5.'$SF1' Loadable task loader .615: .IFT $SAVE .DATA .SET'$LLR' $LLR .619: .IFNDF $LLR .SETF $LLR .; .;EXEC COMMON SUPPORT .; .IFF $MAP .OR .IF $TME LT 36. .GOTO 680 .IFT $SAVED .IFDF $DRC .IFF REPEAT .GOTO 670 .IFF MSGPRM .GOSUB PRIPRM .ASK $DRC 6.'$SF1' Executive Common .670: .IFT $SAVE .DATA .SET'$DRC' $DRC .680: .IFNDF $DRC .SETF $DRC .; .;MEMORY MANAGEMENT DIRECTIVES .; .IFF $DBM .GOTO 531 .IFNDF $MMD .GOTO 532 .IFT $MMD .GOTO 530 .532: .SETT $MMD .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Memory management directives (PLAS) support will be included .GOTO 530 .531: .IFF $MAP .GOTO 539 .IFT $SAVED .IFDF $MMD .IFF REPEAT .GOTO 530 .IFF MSGPRM .GOSUB PRIPRM .ASK $MMD 7.'$SF1' Memory management (PLAS) directives .530: .IFT $SAVE .DATA .SET'$MMD' $MMD .539: .IFNDF $MMD .SETF $MMD .; .;SEND/RECEIVE BY REFERENCE .; .IFF $MMD .GOTO 549 .IFF $DBM .GOTO 541 .IFNDF $SRR .GOTO 542 .IFT $SRR .GOTO 540 .542: .SETT $SRR .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Send/Receive by reference support will be included .GOTO 540 .541: .IFT $SAVED .IFDF $SRR .IFF REPEAT .GOTO 540 .IFF MSGPRM .GOSUB PRIPRM .ASK $SRR 8.'$SF1' Send/Receive by reference directives .540: .IFT $SAVE .DATA .SET'$SRR' $SRR .549: .IFNDF $SRR .SETF $SRR .; .;GET MAPPING CONTEXT .; .IFF $MMD .GOTO 559 .IFT $SAVED .IFDF $GMC .IFF REPEAT .GOTO 550 .IFF MSGPRM .GOSUB PRIPRM .ASK $GMC 9.'$SF1' Get mapping context directive .550: .IFT $SAVE .DATA .SET'$GMC' $GMC .559: .IFNDF $GMC .SETF $GMC .; .;ADDRESS CHECKING .; .IFT $SAVED .IFDF $ACK .IFF REPEAT .GOTO 560 .IFF $MAP .GOTO 561 .SETT $ACK .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Address checking support will be included .GOTO 560 .561: .IFF MSGPRM .GOSUB PRIPRM .ASK $ACK 10.'$SF1' Address checking .560: .IFT $SAVE .DATA .SET'$ACK' $ACK .; .;I/O RUNDOWN .; .IFT $SAVED .IFDF $IOR .IFF REPEAT .GOTO 570 .IFF $MAP .GOTO 571 .SETT $IOR .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; I/O rundown support will be included .GOTO 570 .571: .IFF MSGPRM .GOSUB PRIPRM .ASK $IOR 11.'$SF1' I/O rundown .570: .IFT $SAVE .DATA .SET'$IOR' $IOR .; .;MULTI-USER PROTECTION .; .; This option not only includes multi-user protection support (Exec level .; multi-user protection conditionalized on RSXMC symobl M$$MUP), but also .; includes multi-user system support (the secondary MCR and HEL, BYE, BRO, .; ACNT, and SHUTUP). A system can have multi-user system support without .; multi-user protection support by answering yes to the multi-protection .; question, but eliminating symbol M$$MUP from RSXMC before the assemblies. .; .IFT $11S .GOTO 589 .IFT $SAVED .IFDF $MUP .IFF REPEAT .GOTO 580 .IFF MSGPRM .GOSUB PRIPRM .ASK $MUP 12.'$SF1' Multi-user protection .580: .IFT $SAVE .DATA .SET'$MUP' $MUP .589: .IFNDF $MUP .SETF $MUP .; .;ANSI MAGTAPE .; .IFT $11S .GOTO 599 .IFT $SAVED .IFDF $ANM .IFF REPEAT .GOTO 590 .IFF MSGPRM .GOSUB PRIPRM .ASK $ANM 13.'$SF1' ANSI Magtape ACP .590: .IFT $SAVE .DATA .SET'$ANM' $ANM .599: .IFNDF $ANM .SETF $ANM .; .;FMT .; .IFT $11S .GOTO 601 .IFT $SAVED .IFDF $OUD .IFF REPEAT .GOTO 600 .IFF MSGPRM .GOSUB PRIPRM .ASK $OUD 14.'$SF1' Do you want on-line formatting (FMT) or diagnostic QIOs .600: .IFT $SAVE .DATA .SET'$OUD' $OUD .601: .IFNDF $OUD .SETF $OUD .; .;LOADABLE DRIVERS .; .IFT $SAVED .IFDF $LOD .IFF REPEAT .GOTO 610 .IFF MSGPRM .GOSUB PRIPRM .ASK $LOD 15.'$SF1' Loadable device drivers .610: .IFT $SAVE .DATA .SET'$LOD' $LOD .IFT $SAVED .IFDF $LLD .IFF REPEAT .GOTO 614 .SETF $LLD .IFF MSGPRM .GOSUB PRIPRM .IFT $LOD .ASK $LLD 16.'$SF1' Should the default for all applicable drivers be loadable .614: .IFT $SAVE .DATA .SET'$LLD' $LLD .; .;AST .; .IFF $KSR .IFF $ANM .IFF $FPP .IFF $DBM .IF LA EQ 0 .GOTO 621 .IFF $SAVED .OR .IFNDF $AST .OR .IFT REPEAT .GOTO 622 .IFT $AST .GOTO 620 .622: .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; AST support will be included .SETT $AST .GOTO 620 .621: .IFT $SAVED .IFDF $AST .IFF REPEAT .GOTO 620 .IFF MSGPRM .GOSUB PRIPRM .ASK $AST 17.'$SF1' Include support for Asynchronous System Traps (AST) .620: .IFT $SAVE .DATA .SET'$AST' $AST .; .;CANCEL SELECTIVE MARKTIME .; .IFT $DBM .GOTO 623 .IFT $SAVED .IFDF $CSM .IFF REPEAT .GOTO 625 .IFF MSGPRM .GOSUB PRIPRM .ASK $CSM 18.'$SF1' Include support for Cancel Selective Marktime .GOTO 625: .623:.IFNDF $CSM .SETF $CSM .IFT $CSM .GOTO 625 .SETT $CSM .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Cancel selective marktime support will be included .625:.IFT $SAVE .DATA .SET'$CSM' $CSM .; .;TASK TERMINATION MESSAGES .; .IFT $SAVED .IFDF $TKT .IFF REPEAT .GOTO 630 .IFF MSGPRM .GOSUB PRIPRM .ASK $TKT 19.'$SF1' Task termination and device not ready messages (TKTN) .630: .IFT $SAVE .DATA .SET'$TKT' $TKT .; .;POWER FAIL RECOVERY .; .IFT $SAVED .IFDF $PRF .IFF REPEAT .GOTO 640 .IFF MSGPRM .GOSUB PRIPRM .ASK $PRF 20.'$SF1' Power fail recovery .640: .IFT $SAVE .DATA .SET'$PRF' $PRF .; .;INS REQ REM ON EXIT .; .IFT $11S .GOTO 659 .IFT $SAVED .IFDF $IRR .IFF REPEAT .GOTO 650 .IFF MSGPRM .GOSUB PRIPRM .ASK $IRR 21.'$SF1' Install, request, and remove on exit .650: .IFT $SAVE .DATA .SET'$IRR' $IRR .659: .IFNDF $IRR .SETF $IRR .; .;20K EXEC .; .IFF $MAP .GOTO 699 .IFT $SAVED .IFDF $20K .IFF REPEAT .GOTO 690 .IFF MSGPRM .GOSUB PRIPRM .ASK $20K 22.'$SF1' Large (20K) Executive .690: .IFT $SAVE .DATA .SET'$20K' $20K .699: .IFNDF $20K .SETF $20K .; .;LOGICAL DEVICE ASSIGNMENT .; .IFT $SAVED .IFDF $LGD .IFF REPEAT .GOTO 660 .IFF MSGPRM .GOSUB PRIPRM .ASK $LGD 23.'$SF1' Logical device assignment .660: .IFT $SAVE .DATA .SET'$LGD' $LGD .; .;ERROR LOG .; .IFT $11S .GOTO 709 .IFT $SAVED .IFDF $ERL .IFF REPEAT .GOTO 700 .IFF MSGPRM .GOSUB PRIPRM .ASK $ERL 24.'$SF1' Include support for error logging .700: .IFT $SAVE .DATA .SET'$ERL' $ERL .709: .IFNDF $ERL .SETF $ERL .; .;ERROR LOG OF CONCURRENT I/O .; .GOTO 719 .IFT $11S .OR .IFF $ERL .GOTO 719 .IFT $SAVED .IFDF $ELC .IFF REPEAT .GOTO 710 .IFF MSGPRM .GOSUB PRIPRM .ASK $ELC 24A.'$SF1' Include support for logging of concurrent I/O activity .710: .IFT $SAVE .DATA .SET'$ELC' $ELC .719: .IFNDF $ELC .SETF $ELC .; .;USER WRITTEN DRIVER .; .IFT $SAVED .IFDF $UWD .IFF REPEAT .GOTO 725 .IFF MSGPRM .GOSUB PRIPRM .ASK $UWD 25.'$SF1' Do you intend to include a user-written driver .725: .IFT $SAVE .DATA .SET'$UWD' $UWD .; .;$GTWRD .; .IFT GTW .GOTO 738 .IFF $UWD .GOTO 739 .IFT $SAVED .IFDF $GTW .IFF REPEAT .GOTO 730 .IFF MSGPRM .GOSUB PRIPRM .ASK $GTW 26.'$SF1' Include routine $GTWRD .GOTO 730 .738: .IFNDF $GTW .SETF $GTW .IFT $GTW .GOTO 730 .SETT $GTW .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Routine $GTWRD will be included .730: .IFT $SAVE .DATA .SET'$GTW' $GTW .739: .IFNDF $GTW .SETF $GTW .; .;$PTWRD .; .IFT PTW .GOTO 738 .IFF $UWD .GOTO 739 .IFT $SAVED .IFDF $PTW .IFF REPEAT .GOTO 730 .IFF MSGPRM .GOSUB PRIPRM .ASK $PTW 27.'$SF1' Include routine $PTWRD .GOTO 730 .738: .IFNDF $PTW .SETF $PTW .IFT $PTW .GOTO 730 .SETT $PTW .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Routine $PTWRD will be included .730: .IFT $SAVE .DATA .SET'$PTW' $PTW .739: .IFNDF $PTW .SETF $PTW .; .;WRITECHECK SUPPORT .; .IFT $11S .GOTO 745 .IF DB NE 0 .OR .IF DF NE 0 .OR .IF DK NE 0 .OR .IF DL NE 0 .GOTO 743 .IF DU NE 0 .OR .IF EM NE 0 .GOTO 743 .IF DM EQ 0 .IF DP EQ 0 .IF DR EQ 0 .IF DS EQ 0 .GOTO 745 .743: .IFT $SAVED .IFDF $WCH .IFF REPEAT .GOTO 744 .IFF MSGPRM .GOSUB PRIPRM .ASK $WCH 28.'$SF1' Disk writecheck .744: .IFT $SAVE .DATA .SET'$WCH' $WCH .745: .IFNDF $WCH .SETF $WCH .; .;SOFTWARE WRITE-LOCK .; .IFT $11S .GOTO 745C .IF DB NE 0 .OR .IF DF NE 0 .OR .IF DK NE 0 .OR .IF DL NE 0 .GOTO 745A .IF DU NE 0 .OR .IF EM NE 0 .OR .IF MF NE 0 .OR .IF MM NE 0 .GOTO 745A .IF MS NE 0 .OR .IF MT NE 0 .OR .IF CT NE 0 .OR .IF DD NE 0 .GOTO 745A .IF DM EQ 0 .IF DP EQ 0 .IF DR EQ 0 .IF DS EQ 0 .IF DT EQ 0 .GOTO 745C .745A: .IFT $SAVED .IFDF $SWL .IFF REPEAT .GOTO 745B .IFF MSGPRM .GOSUB PRIPRM .ASK $SWL 29.'$SF1' Software write-lock .745B: .IFT $SAVE .DATA .SET'$SWL' $SWL .745C: .IFNDF $SWL .SETF $SWL .; .;XDT .; .IFT $SAVED .IFDF $XDT .IFF REPEAT .GOTO 750 .IFF MSGPRM .GOSUB PRIPRM .ASK $XDT 30.'$SF1' Executive Debugging Tool (XDT) .750: .IFT $SAVE .DATA .SET'$XDT' $XDT .; .;ROTATING PATTERN IN LIGHTS .; .IF $TPR EQ "11/50" .GOTO 751 .IF $TPR NE "11/45" .IF $TPR NE "11/55" .IF $TPR NE "11/70" .GOTO 759 .751: .IFT $SAVED .IFDF $ROT .IFF REPEAT .GOTO 755 .IFF MSGPRM .GOSUB PRIPRM .ASK $ROT 31.'$SF1' Rotating pattern in data lights .755: .IFT $SAVE .DATA .SET'$ROT' $ROT .759: .IFNDF $ROT .SETF $ROT .; .;DECNET .; .IFT $SAVED .IFDF $NET .IFF REPEAT .GOTO 1000 .IFF MSGPRM .GOSUB PRIPRM .ASK $NET 32.'$SF1' Include support for communications products .1000: .IFT $SAVE .DATA .SET'$NET' $NET .IFF $NET .GOTO 1001A .SETT SRD .IFNDF $ACP .SETF $ACP .IFT $ACP .GOTO 1007 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; ACP support will be included .SETT $ACP .1007: .IFNDF $AST .SETF $AST .IFT $AST .GOTO 1005 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; AST support will be included .SETT $AST .1005:.IFT $CSM .GOTO 1006 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Cancel selective marktime support will be included .SETT $CSM .1006: .IFNDF $LGD .SETF $LGD .IFT $LGD .GOTO 1004 .SETT $LGD .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Logical device assignment support will be included .1004: .IFF $NET .GOTO 1001A .IFNDF $LOD .SETF $LOD .IFT $LOD .GOTO 1002A .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Loadable device driver support will be included .SETT $LOD .1002A: .IFNDF $ACK .SETF $ACK .IFT $ACK .GOTO 1001A .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Address checking support will be included .SETT $ACK .1001A: .; .;RT EMULATOR .; .GOTO 1001C .IFF $MAP .OR .IFT $11S .OR .IF $TME LT 64. .GOTO 1001C .IFT $SAVED .IFDF $RTE .IFF REPEAT .GOTO 1001B .IFF MSGPRM .GOSUB PRIPRM .ASK $RTE 32A.'$SF1' RT-11 emulation support .1001B: .IFT $SAVE .DATA .SET'$RTE' $RTE .1001C: .IFNDF $RTE .SETF $RTE .; .; SYSTEM CONTROLLED PARTITIONS .; .IFF $MAP .GOTO 1001F .IFT $SAVED .IFDF $DMA .IFF REPEAT .GOTO 1001E .IFF $DBM .GOTO 1001D .SETT $DMA .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; System controlled partition support will be included .GOTO 1001E .1001D: .IFF MSGPRM .GOSUB PRIPRM .ASK $DMA 33.'$SF1' System controlled partitions .1001E: .IFT $SAVE .DATA .SET'$DMA' $DMA .1001F: .IFNDF $DMA .SETF $DMA .; .; AUTO MEMORY COMPACTION (SHF) .; .IFF $DMA .OR .IFT $11S .OR .IFF $NRT .GOTO 1001I .IFT $SAVED .IFDF $AMC .IFF REPEAT .GOTO 1001H .IFF MSGPRM .GOSUB PRIPRM .ASK $AMC 34.'$SF1' Include support for the Shuffler .1001H: .IFT $SAVE .DATA .SET'$AMC' $AMC .1001I: .IFNDF $AMC .SETF $AMC .; .;PRINT SPOOLER/QUEUE MANAGER .; .IFT $11S .OR .IFF $MAP .GOTO NOPAUL .IFT $SAVED .IFDF $PRN .IFF REPEAT .GOTO HM1 .IFF MSGPRM .GOSUB PRIPRM .ASK $PRN 35.'$SF1' Queue manager and queued print spooler .HM1: .IFT $SAVE .DATA .SET'$PRN' $PRN .NOPAUL: .IFNDF $PRN .SETF $PRN .; .; GROUP GLOBAL EVENT FLAGS .; .IFT $SAVED .IFDF $GGE .IFF REPEAT .GOTO XLAX .IFF MSGPRM .GOSUB PRIPRM .ASK $GGE 36.'$SF1' Group global event flags .XLAX: .IFT $SAVE .DATA .SET'$GGE' $GGE .; .;DIRECTIVES DESIRED .; .IFT $SAVED .IFDF $DRR .IFF REPEAT .GOTO 760 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; ; For directives: ; ; * - Prints the table ; . - Terminates inquiry ; % - Gets all valid directives and terminates inquiry ; .SETS $DRR "" .762: .SETN TEMPN 0 .ASKS TEMPS 37.'$SF1' Enter code for system directives .763: .INC TEMPN .IF TEMPN GT .GOTO 762 .SETS TEMPS2 TEMPS['TEMPN':'TEMPN'] .IF TEMPS2 EQ "*" .GOTO 761 .IF TEMPS2 EQ "." .GOTO 760 .IF TEMPS2 EQ "%" .GOTO HARVEY .IF TEMPS2 LT "A" .OR .IF TEMPS2 GT "L" .GOTO 766 .IFF $SWR .IF TEMPS2 EQ "G" .GOTO NOSWI .SETS $DRR $DRR+TEMPS2 .GOTO 763 .766: ; SGN -- Invalid directive code "'TEMPS2'" .GOTO 763 .HARVEY:.IFT $SWR .SETS $DRR "ABCDEFGHIJKL" .IFT $SWR .GOTO 760 .SETS $DRR "ABCDEFHIJKL" .NOSWI: ; SGN -- WARNING -- CPU does not have switch register ; -- Get sense switch directive not included .IF TEMPS2 EQ "%" .GOTO 760 .GOTO 763 .761: ; ; A- Get partition parameters B- Get task parameters ; C- Send/Receive D- Alter priority ; E- Extend task F- Connect to interrupt vector ; G- Get sense switch H- Set system time ; I- Stop bit J- Specify requested exit AST ; K- Parent offspring tasking L- Parent offspring tasking with chaining ; ; Enter responses as code1code2code3... (no commas) (e.g.: ABCDF.) ; .GOTO 763 .760: .IFT $SAVE .DATA .SETS $DRR "'$DRR'" .TEST $DRR .SETN TEMPN .SETF $GPP .SETF $GTP .SETF $SRD .SETF $ALP .SETF $EXT .SETF $CIV .SETF $GSS .SETF $SBT .SETF $POF .SETF $RPO .SETF $REA .SETF $STT .IF TEMPN EQ 0 .GOTO 767 .769: .SETS TEMPS $DRR['TEMPN':'TEMPN'] .IF TEMPS EQ "A" .SETT $GPP .IF TEMPS EQ "B" .SETT $GTP .IF TEMPS EQ "C" .SETT $SRD .IF TEMPS EQ "D" .SETT $ALP .IF TEMPS EQ "E" .SETT $EXT .IF TEMPS EQ "F" .SETT $CIV .IF TEMPS EQ "G" .SETT $GSS .IF TEMPS EQ "H" .SETT $STT .IF TEMPS EQ "I" .SETT $SBT .IF TEMPS EQ "J" .SETT $REA .IF TEMPS EQ "K" .OR .IF TEMPS EQ "L" .SETT $POF .IF TEMPS EQ "L" .SETT $RPO .DEC TEMPN .IF TEMPN NE 0 .GOTO 769 .767: .IFF $DBM .IFF $NET .GOTO 767B .IFT $GPP .GOTO 767B .SETT $GPP .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Get partition parameters directive support will be included .767B: .IFF $DBM .IFF $NET .GOTO 767A .IFT $GTP .GOTO 767A .SETT $GTP .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Get task parameters directive support will be included .767A: .IFF SRD .IFF $ANM .IFF $ERL .IFF $DBM .IFF $PRN .IF CO EQ 0 .GOTO 768 .IFT $SRD .GOTO 768 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Send/Receive directive support will be included .SETT $SRD .768: .IFF $DBM .IFF $NET .GOTO 768A .IFT $EXT .GOTO 768A .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Extend task directive support will be included .SETT $EXT .768A: .IFF $KSR .GOTO 769A .IFT $CIV .GOTO 769A .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Connect to interrupt vector support will be included .SETT $CIV .769A: .IFF $DBM .IFF $PRN .IFF $POF .GOTO 769C .IFT $SBT .GOTO 769C .SETT $SBT .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Stop bit directives will be included .769C: .IFT $POF .GOTO HARRI .IFF $PRN .IFF $DBM .GOTO HARRI .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Parent offspring tasking support will be included .SETT $POF .HARRI: .IFF $REA .OR .IFT $AST .GOTO 769D .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; AST support will be included .SETT $AST .769D: .; .;PREALLOCATED QIO PACKETS .; .IFT $SAVED .IFDF $NPK .IFF REPEAT .GOTO 770 .SETF $PQP .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [0:15.:5] $NPK 38.'$SF1' Number of pre-allocated QIO packets .IF $NPK GT 0 .SETT $PQP .770: .IFT $SAVE .DATA .SETN $NPK '$NPK'. .SETF $PAK .IF $NPK GT 0 .SETT $PAK .; .;DATA T.V. SIZE .; .SETF $DAT .IFF $MAP .GOTO 789 .IFT $SAVED .IFDF $DTV .IFF REPEAT .GOTO 780 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [0:33.:33.] $DTV 39.'$SF1' Size of data transfer vector in words .IF $DTV EQ 0 .OR .IF $DTV GE 5 .GOTO 780 .SETN $DTV 5 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Data transfer vector size forced to 5 .780: .IFT $SAVE .DATA .SETN $DTV '$DTV'. .IF $DTV NE 0 .SETT $DAT .789: .IFNDF $DTV .SETN $DTV 0 .; .;ROUND ROBIN SCHED INTERVAL .; .SETF $RND .IFT $SAVED .IFDF $RRS .IFF REPEAT .GOTO 790 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [0:1000.:5.] $RRS 40.'$SF1' Round-robin scheduling interval in ticks .790: .IFT $SAVE .DATA .SETN $RRS '$RRS'. .IF $RRS GT 0 .SETT $RND .IFF $RND .SETN $RRS 0. .; .;HIGHEST PRIORITY CLASS .; .IFF $RND .GOTO 809 .IFT $SAVED .IFDF $HIC .IFF REPEAT .GOTO 800 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [1.:249.:150.] $HIC 41.'$SF1' Highest priority class for consideration .800: .IFT $SAVE .DATA .SETN $HIC '$HIC'. .809: .IFNDF $HIC .SETN $HIC 0. .; .;LOWEST PRIORITY CLASS .; .IFF $RND .GOTO 819 .IFT $SAVED .IFDF $LOC .IFF REPEAT .GOTO 810 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [1.:'$HIC'.:1] $LOC 42.'$SF1' Lowest priority class for consideration .810: .IFT $SAVE .DATA .SETN $LOC '$LOC'. .819: .IFNDF $LOC .SETN $LOC 0. .; .;DISK SWAPPING INTERVAL .; .SETF $DSP .IFT $11S .GOTO 829 .IFT $SAVED .IFDF $DKS .IFF REPEAT .GOTO 820 .SETN TEMPN 6.*$RRS .IF TEMPN EQ 0 .SETN TEMPN 30. .IF TEMPN GT 5000. .SETN TEMPN 5000. .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [0:5000.:'TEMPN.'] $DKS 43.'$SF1' Executive level disk swapping interval .820: .IFT $SAVE .DATA .SETN $DKS '$DKS'. .829: .IFNDF $DKS .SETN $DKS 0 .IF $DKS GT 0 .SETT $DSP .; .;SWAPPING PRIORITY .; .IFF $DSP .GOTO 839 .IFT $SAVED .IFDF $SWP .IFF REPEAT .GOTO 830 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [1:20.:5] $SWP 44.'$SF1' Swapping priority .830: .IFT $SAVE .DATA .SETN $SWP '$SWP'. .839: .IFNDF $SWP .SETN $SWP 0. .; .;DSR SIZE .; .IFT $MAP .GOTO 840A .IFT $SAVED .IFDF $DSA .IFF REPEAT .GOTO 840 .841: .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [256.:16384.:1024.] $DSA 45.'$SF1' Size of dynamic storage region (POOL) in words .SETN TEMPN ($DSA/2)*2 .IF TEMPN EQ $DSA .GOTO 840 ; SGN -- Dynamic storage space must be in multiples of two words -- RETRY .GOTO 841 .840: .IFT $SAVE .DATA .SETN $DSA '$DSA'. .840A:.IFNDF $DSA .SETN $DSA 1042. .; .;PRINTER NOT READY MESSAGES .; .IFF $TKT .OR .IF LP EQ 0 .GOTO 846 .IFT $SAVED .IFDF $PNR .IFF REPEAT .GOTO 845 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [0:255.:30.] $PNR 46.'$SF1' Seconds between printer not ready messages .845: .IFT $SAVE .DATA .SETN $PNR '$PNR.' .846: .IFNDF $PNR .SETN $PNR 15. .; .;CARD READER NOT READY MESSAGES .; .IFF $TKT .OR .IF CR EQ 0 .GOTO 847 .IFT $SAVED .IFDF $CRR .IFF REPEAT .GOTO 848 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [0:255.:30.] $CRR 47.'$SF1' Seconds between card reader not ready messages .848: .IFT $SAVE .DATA .SETN $CRR '$CRR.' .847: .IFNDF $CRR .SETN $CRR 0 .; .;REG AND STACK DUMP DEVICE .; .IFT $SAVED .IFDF $RSD .IFF REPEAT .GOTO 858 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .851: .ASKN [0:177700:177564] $RSD 48.'$SF1' System crash register and stack dump device CSR .858: .SETF $CRN .SETF $RGD .IF $RSD EQ 0 .GOTO 857 .IF $RSD LT 160000 .GOTO 851 .SETT $RGD .SETT $CRN .857: .SETN $CND $RSD .850: .IFT $SAVE .DATA .SETN $RSD '$RSD' .859: .; .;CHECKPOINTING .; .SETF $CHK .SETF $DYN .IFT $11S .GOTO 869 .IFT $SAVED .IFDF $CKP .IFF REPEAT .GOTO 860 .861: .ASKS $CKP 49.'$SF1' Checkpointing: A- Yes B- With system ckpnt. file .IF $CKP NE "" .IF $CKP NE "A" .IF $CKP NE "B" .GOTO 861 .860: .IFT $SAVE .DATA .SETS $CKP "'$CKP'" .IF $CKP EQ "A" .OR .IF $CKP EQ "B" .SETT $CHK .IF $CKP EQ "B" .SETT $DYN .IFT $DYN .GOTO 868 .IFF $MUP .GOTO 867 .SETT $DYN .SETT $CHK .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Checkpointing with system checkpoint file support will be included .GOTO 868 .867:.IFT $CHK .GOTO 868 .IFF $DSP .IFF $ERL .GOTO 868 .SETT $CHK .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Checkpointing support will be included .868:.IFT $NRT .OR .IFF $CHK .GOTO 869 .SETT $NRT .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Non-resident task support will be included .869: .; .;DUMP ANALYSIS .; .SETF $CSH .SETF $PAN .IFT $SAVED .IFDF $CRA .IFF REPEAT .GOTO 880 .881: .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKS $CRA 50.'$SF1' Crash dump analysis: A- PANIC B- Crash Dump Analysis (CDA) .IF $CRA NE "A" .IF $CRA NE "B" .IF $CRA NE "" .GOTO 881 .880: .IFT $SAVE .DATA .SETS $CRA "'$CRA'" .; .;OUTPUT NOTIFICATION DEVICE .; .IF $CRA NE "B" .GOTO 899 .SETT $CSH .IFT $SAVED .IFDF $NOT .IFF REPEAT .GOTO 898 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [160000:177700:177564] $NOT 51.'$SF1' CDA output notification device CSR .898: .SETT $CRN .SETN $CND $NOT .890: .IFT $SAVE .DATA .SETN $NOT '$NOT' .899: .; .;MEMORY DUMP DEVICE .; .IFF $CSH .GOTO 909 .IFT $SAVED .IFDF $MDD .IFF REPEAT .GOTO 908 .901: .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKS [3:4] $MDD 52.'$SF1' Enter CDA memory dump device mnemonic (ddu:) .SETS TEMPS $MDD[1:2] .IF TEMPS EQ "DT" .OR .IF TEMPS EQ "DK" .OR .IF TEMPS EQ "MT" .GOTO 908 .IF TEMPS EQ "MM" .OR .IF TEMPS EQ "DB" .OR .IF TEMPS EQ "DM" .GOTO 908 .IF TEMPS EQ "DL" .OR .IF TEMPS EQ "DD" .OR .IF TEMPS EQ "DR" .GOTO 908 .IF TEMPS EQ "MS" .OR .IF TEMPS EQ "DX" .OR .IF TEMPS EQ "DY" .GOTO 908 ; SGN -- Valid devices: DT, DK, MT, MS, MM, DB, DM, DL, DD, DR ; DX, and DY -- RETRY .GOTO 901 .908: .TEST $MDD .SETS TEMPS $MDD[:] .SETN TEMPN .IF TEMPS EQ ":" .DEC TEMPN .IF TEMPN EQ 2 .GOTO 902 .SETS TEMPS $MDD[3:'TEMPN'] .ONERR 903 .SETN TEMPN 'TEMPS'. .IF TEMPN LE 7 .GOTO 904 .903: ; SGN -- Unit number must be an integer in the range 0 to 7 .GOTO 901 .902: .SETS TEMPS "0" .904: .SETN $CDU 'TEMPS' .ONERR 99900 .900: .IFT $SAVE .DATA .SETS $MDD "'$MDD'" .SETS TEMPS $MDD[1:2] .IF TEMPS EQ "DT" .SETN $CDD 1 .IF TEMPS EQ "DK" .SETN $CDD 2 .IF TEMPS EQ "MT" .SETN $CDD 3 .IF TEMPS EQ "MM" .SETN $CDD 4 .IF TEMPS EQ "DB" .SETN $CDD 5 .IF TEMPS EQ "DM" .SETN $CDD 6 .IF TEMPS EQ "DL" .SETN $CDD 7 .IF TEMPS EQ "DD" .SETN $CDD 10 .IF TEMPS EQ "DR" .SETN $CDD 11 .IF TEMPS EQ "MS" .SETN $CDD 12 .IF TEMPS EQ "DX" .SETN $CDD 13 .IF TEMPS EQ "DY" .SETN $CDD 14 .909: .IFNDF $CDU .SETN $CDU 0 .IFNDF $CDD .SETN $CDD 0 .; .;CSR ADDRESS OF DUMP DEVICE .; .IFF $CSH .GOTO 919 .IFT $SAVED .IFDF $MDC .IFF REPEAT .GOTO 910 .SETN CSRDT 177342 .SETN CSRDK 177404 .SETN CSRMT 172522 .SETN CSRMM 172440 .SETN CSRDB 176700 .SETN CSRDL 174400 .SETN CSRDM 177440 .SETN CSRDR 176700 .SETN CSRDD 176500 .SETN CSRMS 172522 .SETN CSRDX 177170 .SETN CSRDY 177170 .SETS TEMPS $MDD[1:2] .SETN TEMPN CSR'TEMPS' .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [160000:177700:'TEMPN'] $MDC 53.'$SF1' Enter CDA memory dump device CSR .910: .IFT $SAVE .DATA .SETN $MDC '$MDC' .919: .IFNDF $MDC .SETN $MDC 0 .; .;PANIC DUMP ROUTINE .; .IF $CRA NE "A" .GOTO 929 .SETT $PAN .IFT $SAVED .IFDF $PDD .IFF REPEAT .GOTO 920 .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM .ASKN [160000:177700:177564] $PDD 54.'$SF1' Enter PANIC memory dump device CSR .920: .IFT $SAVE .DATA .SETN $PDD '$PDD' .929: .IFNDF $PDD .SETN $PDD 0 .; .;TERMINAL DRIVER .; .IF YL EQ 0 .IF YH EQ 0 .IF YZ EQ 0 .IF YJ EQ 0 .GOTO 2001 ; ; Terminal driver options .IFT $SAVE .DATA .; Terminal Driver Options .SETF $TT1 .IFT $SAVED .IFDF $TTY .IFF REPEAT .GOTO 1493 .GOTO 11491 .11492: ; ; Terminal drivers: A- Tailorable half duplex ; B- Tailored half duplex (user-oriented) ; C- Full duplex ; D- Baseline half duplex .11491: ; .1491: .ASKS $TTY 1.'$SF1' Terminal driver desired (A/B/C/D, * prints table) .1493: .IF $TTY EQ "*" .GOTO 11492 .IF $TTY NE "A" .IF $TTY NE "B" .IF $TTY NE "C" .IF $TTY NE "D" .GOTO 1491 .IF $TTY NE "C" .GOTO 1492 .IFT $LOD .IFT $MAP .GOTO 1492A ; ; SGN -- The full duplex terminal driver requires memory management and ; loadable driver support. If you desire the full duplex driver, ; you must repeat the Executive questions and select these options. ; .GOTO 1491 .1492A: .SETT $TMO .SETT $FUD .IFT $SAVED .IFDF $TMN .IFF REPEAT .GOTO 1498 .ASKN [0.:255.:120.] $TMN 2.'$SF1' Unsolicited input timeout value in seconds .1498: .IFT $SAVE .DATA .SETN $TMN '$TMN'. .GOTO 1495 .1492: .SETF $FUD .IF $TTY NE "B" .GOTO 1494 .SETT $TT1 .SETT $ACR .SETT $BWS .SETT $CNO .SETT $CNR .SETT $MLC .SETT $GTD .SETT $SCC .SETT $TRW .SETT $RNE .SETT $RAP .SETT $RST .SETT $RUB .SETT $THS .SETT $VTB .SETT $TIB .GOTO 1495 .1494: .IF $TTY NE "D" .GOTO 1495 .IFF $MUP .GOTO 1496 ; ; SGN -- Baseline terminal driver not valid option with multi- ; user protection selected. ; .GOTO 1491 .1496: .SETT $BTD .GOTO 2000 .1495: .SETF MSGPRM .IFF $SAVED .GOSUB PRXPRM .SETF FRCPRM .GOTO SRTPER .; .; PRXPRM SUBROUTINE --- PRINT PROMPT FOR YES/NO QUESTIONS .; .PRXPRM: ; ; Answer Y(ES) if the following support is desired ; .SETT MSGPRM .RETURN .SRTPER: .; .;PASS FORM FEEDS .; .IFT $FUD .GOTO 1509 .IFT $SAVED .IFDF $FRM .IFF REPEAT .GOTO 1500 .IFF MSGPRM .GOSUB PRXPRM .ASK $FRM 3.'$SF1' Pass form feeds directly to terminal .1500: .IFT $SAVE .DATA .SET'$FRM' $FRM .IFT $TT1 .GOTO 2000 .1509: .; .;AUTOMATIC CARRIAGE RETURN .; .IFT $FUD .GOTO 1519 .IFT $SAVED .IFDF $ACR .IFF REPEAT .GOTO 1510 .IFF MSGPRM .GOSUB PRXPRM .ASK $ACR 4.'$SF1' Automatic carriage return/line feed .1510: .IFT $SAVE .DATA .SET'$ACR' $ACR .1519: .; .;TASK CHECKPOINTABLE DURING TERMINAL INPUT .; .IFF $CHK .OR .IFT $FUD .GOTO 1529 .IFT $SAVED .IFDF $TCK .IFF REPEAT .GOTO 1520 .IFF MSGPRM .GOSUB PRXPRM .ASK $TCK 5.'$SF1' Task checkpointable during terminal input .1520: .IFT $SAVE .DATA .SET'$TCK' $TCK .1529: .IFNDF $TCK .SETF $TCK .; .;UNSOLISITED CHARACTER AST .; .IFF $AST .GOTO 1539 .IFT $SAVED .IFDF $USC .IFF REPEAT .GOTO 1530 .IFF MSGPRM .GOSUB PRXPRM .ASK $USC 6.'$SF1' Unsolicited input character AST .1530: .IFT $SAVE .DATA .SET'$USC' $USC .1539: .IFNDF $USC .SETF $USC .; .;WRITE WITH ^O .; .IFT $FUD .GOTO 1549 .IFT $SAVED .IFDF $CNO .IFF REPEAT .GOTO 1540 .IFF MSGPRM .GOSUB PRXPRM .ASK $CNO 7.'$SF1' Write with CTRL/O cancellation .1540: .IFT $SAVE .DATA .SET'$CNO' $CNO .1549: .; .;BREAKTHROUGH WRITE .; .IFF $MUP .GOTO 1641 .IFNDF $BWS .SETF $BWS .IFF $BWS .IFF MSGPRM .IFF FRCPRM ; .IFF $BWS .SETT FRCPRM .IFF $BWS ; Breakthrough write support will be included .SETT $BWS .GOTO 1640 .1641: .IFT $SAVED .IFDF $BWS .IFF REPEAT .GOTO 1640 .IFF MSGPRM .GOSUB PRXPRM .ASK $BWS 8.'$SF1' Breakthrough write .1640: .IFT $SAVE .DATA .SET'$BWS' $BWS .; .;^R SUPPORT .; .IFF $BWS .GOTO 1551 .IFNDF $CNR .SETF $CNR .IFF $CNR .IFF MSGPRM .IFF FRCPRM ; .IFF $CNR .SETT FRCPRM .IFF $CNR ; CTRL/R support will be included .SETT $CNR .GOTO 1550 .1551: .IFT $SAVED .IFDF $CNR .IFF REPEAT .GOTO 1550 .IFF MSGPRM .GOSUB PRXPRM .ASK $CNR 9.'$SF1' CTRL/R (retype) .1550: .IFT $SAVE .DATA .SET'$CNR' $CNR .; .;ESCAPE SEQUENCE .; .IFT $SAVED .IFDF $ESC .IFF REPEAT .GOTO 1560 .IFF MSGPRM .GOSUB PRXPRM .ASK $ESC 10.'$SF1' Escape sequence handling .1560: .IFT $SAVE .DATA .SET'$ESC' $ESC .; .;GET MULTIPLE CHARACTERISTICS .; .IFT $SAVED .IFDF $MLC .IFF REPEAT .GOTO 1570 .IFF MSGPRM .GOSUB PRXPRM .ASK $MLC 11.'$SF1' Get multiple characteristics .1570: .IFT $SAVE .DATA .SET'$MLC' $MLC .; .;SET MULTIPLE CHARACTERISTICS .; .IFT $SAVED .IFDF $SMC .IFF REPEAT .GOTO 1580 .IFF MSGPRM .GOSUB PRXPRM .ASK $SMC 12.'$SF1' Set multiple characteristics .1580: .IFT $SAVE .DATA .SET'$SMC' $SMC .; .;GET TT SUPPORT .; .IFT $SAVED .IFDF $GTD .IFF REPEAT .GOTO 1590 .IFF MSGPRM .GOSUB PRXPRM .ASK $GTD 13.'$SF1' Get terminal driver options .1590: .IFT $SAVE .DATA .SET'$GTD' $GTD .; .;HOLD SCREEN MODE .; .IFT $FUD .GOTO 1609 .IFT $SAVED .IFDF $HSM .IFF REPEAT .GOTO 1600 .IFF MSGPRM .GOSUB PRXPRM .ASK $HSM 14.'$SF1' Hold screen mode .1600: .IFT $SAVE .DATA .SET'$HSM' $HSM .1609: .; .;TRANSPARENT READ/WRITE .; .IFT $FUD .GOTO 1619 .IFF $HSM .GOTO 1611 .IFNDF $TRW .SETF $TRW .IFF $TRW .IFF MSGPRM .IFF FRCPRM ; .IFF $TRW .SETT FRCPRM .IFF $TRW ; Transparent read/write support will be included .SETT $TRW .GOTO 1610 .1611: .IFT $SAVED .IFDF $TRW .IFF REPEAT .GOTO 1610 .IFF MSGPRM .GOSUB PRXPRM .ASK $TRW 15.'$SF1' Transparent read/write .1610: .IFT $SAVE .DATA .SET'$TRW' $TRW .1619: .; .;SETTABLE CASE CONVERSION .; .IFT $FUD .GOTO 1629 .IFT $SAVED .IFDF $SCC .IFF REPEAT .GOTO 1620 .IFF MSGPRM .GOSUB PRXPRM .ASK $SCC 16.'$SF1' Settable case conversion for input .1620: .IFT $SAVE .DATA .SET'$SCC' $SCC .1629: .IFT $FUD .SETF $SCC .; .;READ AFTER PROMPT .; .IFT $SAVED .IFDF $RAP .IFF REPEAT .GOTO 1630 .IFF MSGPRM .GOSUB PRXPRM .ASK $RAP 17.'$SF1' Read after prompt .1630: .IFT $SAVE .DATA .SET'$RAP' $RAP .; .;READ WITH NO ECHO .; .IFT $FUD .GOTO 1659 .IFF $MUP .GOTO 1651 .IFNDF $RNE .SETF $RNE .IFF $RNE .IFF MSGPRM .IFF FRCPRM ; .IFF $RNE .SETT FRCPRM .IFF $RNE ; Read with no echo support will be included .SETT $RNE .GOTO 1650 .1651: .IFT $SAVED .IFDF $RNE .IFF REPEAT .GOTO 1650 .IFF MSGPRM .GOSUB PRXPRM .ASK $RNE 18.'$SF1' Read with no echo .1650: .IFT $SAVE .DATA .SET'$RNE' $RNE .1659: .; .;READ WITH SPECIAL TERMINATOR .; .IFT $FUD .GOTO 1669 .IFF $MUP .GOTO 1661 .IFNDF $RST .SETF $RST .IFF $RST .IFF MSGPRM .IFF FRCPRM ; .IFF $RST .SETT FRCPRM .IFF $RST ; Read with special terminator support will be included .SETT $RST .GOTO 1660 .1661: .IFT $SAVED .IFDF $RST .IFF REPEAT .GOTO 1660 .IFF MSGPRM .GOSUB PRXPRM .ASK $RST 19.'$SF1' Read with special terminator .1660: .IFT $SAVE .DATA .SET'$RST' $RST .1669: .; .;CRT RUBOUT .; .IFT $SAVED .IFDF $RUB .IFF REPEAT .GOTO 1670 .IFF MSGPRM .GOSUB PRXPRM .ASK $RUB 20.'$SF1' CRT rubout support .1670: .IFT $SAVE .DATA .SET'$RUB' $RUB .; .;TERMINAL/HOST SYNC .; .IFT $FUD .GOTO 1689 .IFT $SAVED .IFDF $THS .IFF REPEAT .GOTO 1680 .IFF MSGPRM .GOSUB PRXPRM .ASK $THS 21.'$SF1' Terminal-host synchronization .1680: .IFT $SAVE .DATA .SET'$THS' $THS .1689: .; .;TERMINAL INPUT BUFFERING .; .IFT $FUD .GOTO 1699 .IFT $SAVED .IFDF $TIB .IFF REPEAT .GOTO 1690 .IFF MSGPRM .GOSUB PRXPRM .ASK $TIB 22.'$SF1' User terminal input buffering .1690: .IFT $SAVE .DATA .SET'$TIB' $TIB .1699: .; .;VARIABLE LENGTH INPUT BUFFERING .; .IFT $FUD .GOTO 1709 .IFT $SAVED .IFDF $VTB .IFF REPEAT .GOTO 1700 .IFF MSGPRM .GOSUB PRXPRM .ASK $VTB 23.'$SF1' Variable length terminal input buffering .1700: .IFT $SAVE .DATA .SET'$VTB' $VTB .1709: .; .;LA30P SUPPORT .; .IFT $FUD .GOTO 1719 .IFT $SAVED .IFDF $L30 .IFF REPEAT .GOTO 1710 .IFF MSGPRM .GOSUB PRXPRM .ASK $L30 24.'$SF1' LA30P support .1710: .IFT $SAVE .DATA .SET'$L30' $L30 .1719: .; .; HARD RECEIVE ERRORS (FULL DUPLEX ONLY) .; .IFF $FUD .GOTO DX1 .IFT $SAVED .IFDF $HRE .IFF REPEAT .GOTO DX2 .IFF MSGPRM .GOSUB PRXPRM .ASK $HRE 25.'$SF1' Hardware unrecoverable input error notification .DX2: .IFT $SAVE .DATA .SET'$HRE' $HRE .DX1: .; .;DEVICE INDEPENDENT CURSOR POSITIONING .; .IFF $FUD .GOTO CHRIS .IFT $SAVED .IFDF $DIC .IFF REPEAT .GOTO CHRIS1 .IFF MSGPRM .GOSUB PRXPRM .ASK $DIC 26.'$SF1' Device independent cursor positioning .CHRIS1: .IFT $SAVE .DATA .SET'$DIC' $DIC .CHRIS: .IFNDF $DIC .SETF $DIC .; .;ANCILLARY CONTROL DRIVER SUPPORT .; .GOTO 1729 .IFF $FUD .GOTO 1729 .IFT $SAVED .IFDF $ACD .IFF REPEAT .GOTO 1720 .IFF MSGPRM .GOSUB PRXPRM .ASK $ACD 27.'$SF1' Ancillary control driver support .1720:.IFT $SAVE .DATA .SET'$ACD' $ACD .1729: .; .;CLEAN UP ANY UNDEFINED TERMINAL DRIVER OPTIONS .; .2000: .IFT $SAVE .DATA .SETS $TTY "'$TTY'" .2001: .IFNDF $USC .SETF $USC .IFNDF $CNR .SETF $CNR .IFNDF $GMC .SETF $GMC .IFNDF $SMC .SETF $SMC .IFNDF $ACR .SETF $ACR .IFNDF $MLC .SETF $MLC .IFNDF $GTD .SETF $GTD .IFNDF $TIB .SETF $TIB .IFNDF $SCC .SETF $SCC .IFNDF $RAP .SETF $RAP .IFNDF $RUB .SETF $RUB .IFNDF $TMO .SETF $TMO .IFNDF $HRE .SETF $HRE .IFNDF $DIC .SETF $DIC .IFNDF $FUD .SETF $FUD .IFNDF $RST .SETF $RST .IFNDF $RNE .SETF $RNE .IFNDF $THS .SETF $THS .IFNDF $VTB .SETF $VTB .IFNDF $L30 .SETF $L30 .IFNDF $FRM .SETF $FRM .IFNDF $CNO .SETF $CNO .IFNDF $ESC .SETF $ESC .IFNDF $HSM .SETF $HSM .IFNDF $TRW .SETF $TRW .IFNDF $BWS .SETF $BWS .IFNDF $BTD .SETF $BTD .IFNDF $TT1 .SETF $TT1 .IFNDF $TCK .SETF $TCK .IFNDF $TMN .SETN $TMN 0 .IFNDF $ACD .SETF $ACD .; .;CONTINUE? .; .SETF REPEAT .IFT $XPRES .GOTO 2500 .2005: ; .ASKS CONT EOS * Do you want to: -continue R-repeat section E-exit P-pause ; .IF CONT EQ "" .GOTO 2500 .IF CONT EQ "R" .GOTO 2010 .IF CONT EQ "E" .GOTO REN1 .IF CONT EQ "P" .PAUSE .GOTO 2005 .REN1 .SETT $ABORT .GOTO 99901 .2010: .SETT REPEAT .SETF $USC .SETF $CNR .SETF $GMC .SETF $SMC .SETF $GTD .SETF $TIB .SETF $SCC .SETF $RAP .SETF $RUB .SETF $TMO .SETF $DIC .SETF $FUD .SETF $RST .SETF $RNE .SETF $THS .SETF $VTB .SETF $L30 .SETF $HRE .SETF $FRM .SETF $CNO .SETF $ESC .SETF $HSM .SETF $TRW .SETF $BWS .SETF $BTD .SETF $TT1 .SETF $ACR .SETF $MLC .SETF $PRN .SETF $RTE .SETF $AMC .SETF $DMA .SETF $GGE .SETF $TCK .SETN $TMN 0. .SETF $DBM .SETF $F11 .SETF $RMS .SETF $NRT .SETF $MMD .SETF $SRR .SETF $GMC .SETF $ACK .SETF $IOR .SETF $MUP .SETF $ANM .SETF $OUD .SETF $OLD .SETF $LOD .SETF $LLR .SETF $DRC .SETF $AST .SETF $TKT .SETF $PRF .SETF $IRR .SETF $LGD .SETF $20K .SETF $ERL .SETF $ELC .SETF $UWD .SETF $GTW .SETF $PTW .SETF $XDT .SETF $ROT .SETS $DRR "" .SETN $NPK 0. .SETN $DTV 4. .SETN $RRS 0. .SETN $DKS 0. .SETN $RSD 0 .SETS $CKP "" .SETS $CRA "" .GOTO 430 .2500: .SET'$AST' AST .SET'$REA' REA .SET'$RPO' RPO .SET'$IRR' IRR .SET'$USC' USC .SET'$MLC' MLC .SET'$DMA' DMA .SET'$GTP' GTP .2501: ; ; System Options ; .IFT $SAVE .DATA .; System Options .SETF MSGPRM .IFF $SAVED .GOSUB PRIPRM .SETF FRCPRM .; .; BIG-BUFFERING .; .IFF $F11 .OR .IFT $ANM .OR .IFT $11S .GOTO 2519 .IFT $SAVED .IFDF $BBF .IFF REPEAT .GOTO 2510 .IFF MSGPRM .GOSUB PRIPRM .ASK $BBF 1.'$SF1' Include ANSLIB.OLB to support big-buffering .2510: .IFT $SAVE .DATA .SET'$BBF' $BBF .2519: .IFNDF $BBF .SETF $BBF .; .; INDUSTRIAL/LAB ROUTINES (OF WHICH MOST ARE PURDUE ISA ROUTINES) .; .IF IC NE 0 .OR .IF IS NE 0 .OR .IF UD NE 0 .GOTO 2520 .IF IP NE 0 .OR .IF AR NE 0 .OR .IF LS NE 0 .GOTO 2520 .IF LA NE 0 .GOTO 2520 .GOTO 2529 .2520: .IFT $SAVED .IFDF $ISA .IFF REPEAT .GOTO 2522 .IFF MSGPRM .GOSUB PRIPRM .ASK $ISA 2.'$SF1' Build library of ISA FORTRAN industrial/lab routines .2522: .IFT $SAVE .DATA .SET'$ISA' $ISA .2529: .IFNDF $ISA .SETF $ISA .; .; FCS RESIDENT LIBRARY .; .IFF $MMD .OR .IFF $F11 .OR .IFT $11S .GOTO 2549 .IFT $SAVED .IFDF $FRL .IFF REPEAT .GOTO 2540 .IFF MSGPRM .GOSUB PRIPRM .ASK $FRL 3.'$SF1' Build the PLAS resident FCS .2540: .IFT $SAVE .DATA .SET'$FRL' $FRL .2549: .IFNDF $FRL .SETF $FRL .; .; FCP .; .IFF $F11 .OR .IFT $11S .GOTO 2569 .IFT $SAVED .IFDF $FCP .IFF REPEAT .GOTO 2567 .IFF MSGPRM .GOSUB PRIPRM .SETS DEF "C" .IFF $MAP .SETS DEF "B" .2560: .ASKS FCP 4.'$SF1' Code for FCP (A/B/C/D/E, * prints table) [D: 'DEF'] .IF FCP EQ "*" .GOTO 2562 .IF FCP EQ "" .SETS FCP DEF .IF FCP EQ "A" .OR .IF FCP EQ "B" .OR .IF FCP EQ "C" .GOTO 2564 .IF FCP EQ "D" .OR .IF FCP EQ "E" .GOTO 2564 ; SGN -- Invalid FCP code 'FCP' entered -- RETRY .2562: ; ; The five FCP codes are: ; ; A - MINIMUM: Minimum functionality (2KW) ; B - SMALL: Full functionality, heavily overlayed (2.5KW) ; C - MIDDLE: Full functionality, moderately overlayed (5KW) ; D - LARGE: Full functionality, non-overlayed (9KW) ; E - OTHER: User supplied FCP ; .GOTO 2560 .2564:.IFF $MAP .IF FCP EQ "C" ; SGN -- FCP MIDDLE not valid on an unmapped system -- RETRY .IFF $MAP .IF FCP EQ "D" ; SGN -- FCP LARGE not valid on an unmapped system -- RETRY .IFF $MAP .IF FCP EQ "C" .GOTO 2560 .IFF $MAP .IF FCP EQ "D" .GOTO 2560 .IF FCP EQ "A" .SETS $FCP "MINIMUM" .IF FCP EQ "B" .SETS $FCP "SMALL" .IF FCP EQ "C" .SETS $FCP "MIDDLE" .IF FCP EQ "D" .SETS $FCP "LARGE" .IF FCP EQ "E" .SETS $FCP "OTHER" .2567: .IFT $SAVE .DATA .SETS $FCP "'$FCP'" .2569: .IFNDF $FCP .SETS $FCP "" .; .; PMD .; .IFT $11S .GOTO 2579 .IFT $SAVED .IFDF $PMD .IFF REPEAT .GOTO 2570 .IFF MSGPRM .GOSUB PRIPRM .ASK $PMD 5.'$SF1' Build Post Mortem Dump (PMD) .2570: .IFT $SAVE .DATA .SET'$PMD' $PMD .2579: .IFNDF $PMD .SETF $PMD .; .; RMD .; .IFT $11S .GOTO 2589 .IFT $SAVED .IFDF $RMD .IFF REPEAT .GOTO 2580 .IFF MSGPRM .GOSUB PRIPRM .ASK $RMD 6.'$SF1' Build the Resource Monitoring Display task (RMD) .2580: .IFT $SAVE .DATA .SET'$RMD' $RMD .IFF $RMD .GOTO 2589 .IFT $AST .GOTO 2582 .SETT $AST .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; AST support will be included .2582: .IFT $USC .GOTO 2584 .SETT $USC .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Unsolicited terminal input character AST will be included .2584: .IFT $MLC .GOTO 2589 .SETT $MLC .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Get multiple terminal characteristics will be included .2589: .IFNDF $RMD .SETF $RMD .; .; PRT .; .IFT $PRN .OR .IFT $11S .GOTO 2599 .IFT $SAVED .IFDF $PRT .IFF REPEAT .GOTO 2590 .IFF MSGPRM .GOSUB PRIPRM .ASK $PRT 7.'$SF1' Build the non-queue manager print spooler (PRT) .2590: .IFT $SAVE .DATA .SET'$PRT' $PRT .2599: .IFNDF $PRT .SETF $PRT .; .; DCL .; .IFT $11S .OR .IFF $MAP .OR .IFF $MUP .GOTO 2609 .IFT $SAVED .IFDF $DCL .IFF REPEAT .GOTO 2600 .IFF MSGPRM .GOSUB PRIPRM .ASK $DCL 8.'$SF1' Do you want DIGITAL Command Language (DCL) .2600: .IFT $SAVE .DATA .SET'$DCL' $DCL .IFF $DCL .GOTO 2609 .IFT $SBT .GOTO 2602 .SETT $SBT .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Stop bit directive support will be included .2602: .IFT $IRR .GOTO 2604 .SETT $IRR .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Install, request, and remove on exit support will be included .2604: .IFT $RPO .GOTO 2606 .SETT $POF .SETT $RPO .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Parent offspring tasking with chaining directive support will be included .2606:.IFT $AST .GOTO 2607 .SETT $AST .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; AST support will be included .2607:.IFT $REA .GOTO 2608 .SETT $REA .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Specify request exit AST directive support will be included .2608:.IFT $GTP .GOTO 2609 .SETT $GTP .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Get task parameters directive support will be included .2609: .IFNDF $DCL .SETF $DCL .; .; ALTERNATE CLI .; .IFT $11S .OR .IFF $MAP .OR .IFF $MUP .GOTO 2619 .SETN TEMPN 1 .IFT $NET .INC TEMPN .IFT $DCL .INC TEMPN .IFT $SAVED .IFDF $NUC .IFF REPEAT .GOTO 2610 .IFF MSGPRM .GOSUB PRIPRM .ASKN [0.:16.-'TEMPN':0.] $NUC 9.'$SF1' Enter the number of user-written CLIs .2610: .IFT $SAVE .DATA .SETN $NUC '$NUC'. .IF $NUC GT 0 .OR .IFT $DCL .SETT $ACL .SETN NCLI TEMPN+$NUC .2619: .IFNDF $ACL .SETF $ACL .IFNDF NCLI .SETN NCLI 0 .; .; PMT (POOL MONITORING TASK) .; .IFT $11S .OR .IFF $MAP .GOTO 2629 .IFT $SAVED .IFDF $PMT .IFF REPEAT .GOTO 2620 .IFF MSGPRM .GOSUB PRIPRM .ASK $PMT 10.'$SF1' Do you want pool monitoring and low pool recovery (PMT) .2620:.IFT $SAVE .DATA .SET'$PMT' $PMT .IFF $PMT .GOTO 2629 .IFT $AST .GOTO 2622 .SETT $AST .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; AST support will be included .2622:.IFT $CSM .GOTO 2623 .SETT $CSM .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Cancel selective marktime support will be included .2623:.IFT $DMA .GOTO 2625 .SETT $DMA .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; System controlled partition support will be included .2625:.IFT $REA .GOTO 2629 .SETT $REA .IFF MSGPRM .IFF FRCPRM ; .SETT FRCPRM ; Specify request exit AST directive support will be included .2629:.IFNDF $PMT .SETF $PMT .; .; SYSTEM NAME .; .IFT $SAVED .IFDF $NOD .IFF REPEAT .GOTO 2639 .IFF MSGPRM .GOSUB PRIPRM .2630: .ASKS [0:6] $NOD 11.'$SF1' What name would you like to give your system [D: RSX11'$SYS'] .IF $NOD EQ "" .SETS $NOD "RSX11'$SYS'" .IFF .GOTO 2630 .SETN TEMPN .2632: .IF TEMPN GE 6 .GOTO 2639 .SETS $NOD $NOD+" " .INC TEMPN .GOTO 2632 .2639:.IFT $SAVE .DATA .SETS $NOD "'$NOD'" .; .; CONTINUE? .; .SETF REPEAT .IFT $XPRES .GOTO 2725 .2700: ; .ASKS CONT EOS * Do you want to: -continue R-repeat section E-exit P-pause ; .IF CONT EQ "" .GOTO 2725 .IF CONT EQ "R" .GOTO 2710 .IF CONT EQ "E" .GOTO REN1 .IF CONT EQ "P" .PAUSE .GOTO 2700 .REN1: .SETT $ABORT .GOTO 99901 .2710: .SETT REPEAT .SET'AST' $AST .SET'REA' $REA .SET'RPO' $RPO .SET'IRR' $IRR .SET'USC' $USC .SET'MLC' $MLC .SET'DMA' $DMA .SET'GTP' $GTP .GOTO 2501 .2725: .IFT $XPRES ; ; Thinking ... .; .;BUILD EXECUTIVE DATABASE IN RSXMC.MAC .; .IFT $11S .DATA #1 R$$11S=0 ;RSX-11S SYSTEM .DATA #1 V$$RSN=40 ;RSX-11M V4.0 .DATA #1 B$$LV1="'$BASEL' ;BASELEVEL '$BASEL' .DATA #1 B$$LV2="'$BLREV' ;BASELEVEL REVISION OF "'$BLREV'" .SETS TEMPS $NOD[1:2] .DATA #1 S$$NM1="'TEMPS' ;FIRST 2 CHARS OF SYSTEM NAME .SETS TEMPS $NOD[3:4] .DATA #1 S$$NM2="'TEMPS' ;SECOND 2 CHARS OF SYSTEM NAME .SETS TEMPS $NOD[5:6] .DATA #1 S$$NM3="'TEMPS' ;THIRD 2 CHARS OF SYSTEM NAME .SETS TEMPS $TPR[4:5] .DATA #1 R$$TPR="'TEMPS' ;TYPE OF PDP-11 PROCESSOR .IFT $ACP .DATA #1 A$$CPS=0 ;ACP SUPPORT .IFT $F11 .DATA #1 M$$FCS=0 ;FCS/FILE SYSTEM SUPPORT .IFT $F11 .DATA #1 F$$LVL=1 ;FILES STRUCTURE LEVEL SUPPORT .IFT $RMS .DATA #1 R$$LKL=1 ;RMS RECORD LOCKING AND PLACE CTL. .IFT $CHK .DATA #1 C$$CKP=4. ;CHECKPOINTING SUPPORT .IFT $DYN .DATA #1 D$$YNC=0 ;DYNAMIC CHECKPOINT ALLOCATION .IFT $NRT .DATA #1 D$$ISK=0 ;NONRESIDENT TASK SUPPORT .IFT $ROT .DATA #1 P$$P45=0 ;ROTATING DATA LIGHTS .IFT $GGE .DATA #1 G$$EFN=0 ;GROUP GLOBAL EVENT FLAGS .IFT $MAP .DATA #1 M$$MGE=0 ;MEMORY MANAGEMENT .IFT $DMA .DATA #1 D$$YNM=0 ;DYNAMIC MEMORY ALLOCATION SUPPORT .IFT $AMC .DATA #1 D$$SHF=0 ;AUTOMATIC DYN. MEM. COMPACTION .IFT $RTE .DATA #1 A$$HDR=0 ;ALTERNATE TASK HEADER REFRESH .IFT $MMD .DATA #1 P$$LAS=0 ;PROGRAM LOGICAL ADDRESS EXTENTIONS .IFT $SRR .DATA #1 P$$SRF=0 ;SEND/RECEIVE BY REFERENCE .IFT $GMC .DATA #1 P$$GMX=0 ;GET MAPPING CONTEXT .IFT $ACK .DATA #1 A$$CHK=0 ;ADDRESS CHECKING .IFT $IOR .DATA #1 I$$RDN=0 ;I/O RUNDOWN .IFT $MUP .DATA #1 M$$MUP=0 ;MULTI-USER PROTECTION .IFT $RST .DATA #1 T$$RST=0 ;READ WITH SPECIAL TERMINATOR .IFT $BWS .DATA #1 T$$BTW=0 ;BREAKTHROUGH WRITE .IFT $RNE .DATA #1 T$$RNE=0 ;READ WITH NO ECHO .IFT $ANM .DATA #1 A$$NSI=0 ;ANSI MAGTAPE SUPPORT .IFT $AST .DATA #1 A$$TRP=0 ;AST SUPPORT .IFT $CSM .DATA #1 C$$SMT=0 ;CANCEL SELECTIVE MARK TIMES .IFT $SRD .DATA #1 R$$SND=0 ;SEND/RECEIVE DIRECTIVES .IFT $OUD .DATA #1 D$$IAG=0 ;DIAGNOSTIC FUNCTIONS .IFT $LOD .DATA #1 L$$DRV=0 ;LOADABLE DRIVER SUPPORT .IFT $DRC .DATA #1 D$$PAR=0 ;DIRECTIVE COMMON SUPPORT .IFT $GPP .DATA #1 G$$TPP=0 ;GET PARTITION PARAMETERS DIRECTIVE .IFT $LGD .DATA #1 L$$ASG=0 ;LOGICAL UNIT ASSIGNMENT .IFT $NET .DATA #1 M$$NET=0 ;EXTERNAL COMMUNICATIONS PRODUCTS (NETWORKS) .IFF $ACL .IFT $NET .DATA #1 M$$CLI=0 ;MULTIPLE CLI SUPPORT (NEVER DEFINED W/A$$CLI) .IFT $ACL .DATA #1 A$$CLI='NCLI'. ;ALTERNATE CLI SUPPORT; MAX NUM OF 'NCLI'. CLIS .IFT $PMT .DATA #1 P$$CTL=0 ;POOL MONITORING TASK SUPPORT .IFT $PMT .DATA #1 P$$HIL=1600. ;HIGH POOL LIMIT .IFT $PMT .DATA #1 P$$LOL=600. ;LOW POOL LIMIT .IFT $PMT .DATA #1 P$$BPR=51. ;POOL BASE PRIORITY TASK CONTROL .IFT $PMT .DATA #1 P$$FRS=200. ;LOWEST PERMISSIBLE SIZE OF LARGEST POOL FRAGMENT .IFT $GTP .DATA #1 G$$TTK=0 ;GET TASK PARAMETERS DIRECTIVE .IFT $TKT .DATA #1 T$$KMG=0 ;TASK TERM./DEVICE NOT READY MESSAGES .IFT $PRF .DATA #1 P$$RFL=0 ;POWER FAIL .IFT $GSS .DATA #1 G$$TSS=0 ;GET SENSE SWITCH DIRECTIVE .IFT $ALP .DATA #1 A$$PRI=0 ;ALTER PRIORITY DIRECTIVE .IFT $CIV .DATA #1 C$$INT=0 ;CONNECT TO INTERRUPT DIRECTIVE .IFT $POF .OR .IFT $RPO .DATA #1 P$$OFF=0 ;PARENT/OFFSPRING TASKING .IFT $RPO .DATA #1 R$$POI=0 ;REQUEST AND PASS OFFSPRING INFO .IFT $EXT .DATA #1 E$$XPR=0 ;EXTEND PARTITION (TASK) DIRECTIVE .IFT $REA .DATA #1 A$$BRT=0 ;SPECIFY REQUESTED EXIT AST DIRECTIVE .IFT $STT .DATA #1 S$$TIM=0 ;SET SYSTEM TIME DIRECTIVE .IFT $PAK .DATA #1 Q$$OPT='$NPK.' ;PRE-ALLOCATE I/O PACKETS .IFT $DAT .DATA #1 N$$MOV='$DTV.' ;SIZE OF BLXIO ''MOV'' TABLE .IFT $IRR .DATA #1 I$$RAR=0 ;INSTALL, REQUEST, AND REMOVE ON EXIT .IFT $USC .DATA #1 T$$CCA=0 ;UNSOLICITED INPUT AST .IFT $CNR .DATA #1 T$$CTR=0 ;CONTROL-R SUPPORT .IFT $MLC .DATA #1 T$$GMC=0 ;GET TERMINAL CHARACTERISTICS .IFT $SMC .DATA #1 T$$SMC=0 ;SET TERMINAL CHARACTERISTICS .IFT $GTD .DATA #1 T$$GTS=0 ;GET TERMINAL DRIVER SUPPORT .IFT $TCK .DATA #1 T$$BUF=0 ;BUFFERED TERM I/O; CKP DURING INPUT .IFT $SCC .DATA #1 T$$LWC=0 ;SETTABLE CASE CONVERSION .IFT $RAP .DATA #1 T$$RPR=0 ;READ AFTER PROMPT .IFT $RUB .DATA #1 T$$RUB=0 ;CRT RUBOUT SUPPORT .IFT $TMO .DATA #1 T$$UTO='$TMN.' ;TIME OUT ON UNSOLICITED INPUT .IFT $DIC .DATA #1 T$$CUP=0 ;DEVICE INDEPENDENT CURSOR POSITIONING .IFT $ACD .DATA #1 T$$ACD=0 ;ANCILLARY CONTROL DRIVER SUPPORT .IFT $BTD .DATA #1 T$$MIN=0 ;BASELINE TERMINAL DRIVER .IFT $FUD .DATA #1 T$$CPW=0 ;FULL DUPLEX TERMINAL DRIVER .IFT $FUD .OR .IFT $NET .DATA #1 A$$BIO=0 ;ASYNCHRONOUS BUFFERED I/O .IFT $FUD .DATA #1 T$$BUF=0 ;CHECKPOINTABLE DURING TERMINAL INPUT .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$ACR=0 .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$HFF=0 .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$CCO=0 .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$HLD=0 .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$TRW=0 .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$RNE=0 .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$30P=0 .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$VBF=0 .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$UTB=0 .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$SYN=0 .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$RST=0 .IFT $FUD .DATA #1 .IIF DF T$$CPW, T$$LWC=0 .IFT $TT1 .DATA #1 .IIF DF C$$CKP, T$$BUF=0 ;CHECKPOINT DURING TERMINAL INPUT .IFT $TT1 .DATA #1 .IIF DF A$$TRP, T$$CCA=0 ;UNSOLICITED INPUT AST .IFT $ACR .DATA #1 T$$ACR=0 ;AUTOMATIC CR/LF .IFT $CNO .DATA #1 T$$CCO=0 ;WRITE WITH CONTROL/O CANCELLATION .IFT $THS .DATA #1 T$$SYN=0 ;TERMINAL-HOST SYNCHRONIZATION .IFT $TRW .DATA #1 T$$TRW=0 ;TRANSPARENT READ/WRITE .IFT $VTB .DATA #1 T$$VBF=0 ;VARIABLE LENGTH INPUT BUFFERING .IFT $FRM .DATA #1 T$$HFF=0 ;LA180S TERMINAL SUPPORT .IFT $ESC .DATA #1 T$$ESC=0 ;ESCAPE SEQUENCE SUPPORT .IFT $HSM .DATA #1 T$$HLD=0 ;HOLD SCREEN MODE .IFT $TIB .DATA #1 T$$UTB=0 ;USER TERMINAL INPUT BUFFERING .IFT $L30 .DATA #1 T$$30P=0 ;LA30P SUPPORT .IFT $HRE .DATA #1 T$$RED=0 ;HARDWARE RECEIVE ERROR SUPPORT .IFT $20K .DATA #1 R$$EXV=0 ;EXTEND EXECUTIVE TO 20K .IFT $RND .DATA #1 R$$NDC='$RRS.' ;CLOCK TICKS PER SCHEDULING INTERVAL .IFT $RND .DATA #1 R$$NDH='$HIC.' ;HIGHEST PRIORITY CLASS TO CONSIDER .IFT $RND .DATA #1 R$$NDL='$LOC.' ;LOWEST PRIORITY CLASS .IFT $DSP .DATA #1 S$$WPC='$DKS.' ;CLOCK TICKS PER SWAPPING INTERVAL .IFT $DSP .DATA #1 S$$WPR='$SWP.' ;SWAPPING PRIORITY .IFT $GTW .DATA #1 G$$WRD=0 ;INCLUDE $GTWRD CODE .IFT $PTW .DATA #1 P$$WRD=0 ;INCLUDE $PTWRD CODE .IFT $XDT .DATA #1 X$$DBT=0 ;EXECUTIVE DEBUGGING TOOL .IFT $XDT .DATA #1 R$$DER=0 ;CORAL DEALLOCATION ERROR CHECKING .IFT $LLR .DATA #1 L$$LDR=0 ;LOADABLE LOADER SUPPORT .IFT $SBT .DATA #1 S$$TOP=0 ;STOP BIT DIRECTIVES .IFT $RGD .DATA #1 C$$TTY='$RSD' ;REGISTER/STACK DUMP DEVICE CSR ADDRESS .IFT $CRN .DATA #1 C$$RSH='$CND' ;CRASH REPORTING .IFT $CSH .DATA #1 C$$CDA='$CDD' ;CRASH DUMP ROUTINE .IFT $CSH .DATA #1 C$$CSR='$MDC' ;CSR ADDRESS OF CRASH DEVICE .IFT $CSH .DATA #1 C$$RUN='$CDU' ;PHYSICAL UNIT NUMBER OF CRASH UNIT .IFT $PAN .DATA #1 P$$NIC='$PDD' ;CSR ADDRESS OF PANIC DUMP DEVICE .IFT $PAN .IFT $SWR .DATA #1 S$$WRG=0 ;PROCESSOR HAS A SWITCH REGISTER .IFT $ERL .DATA #1 E$$DVC=0 ;LOG DEVICE ERRORS AND TIMEOUT .IFT $ERL .DATA #1 E$$LOG=0 ;ERROR LOGGING .IFT $ELC .DATA #1 E$$ACT=0 ;LOGGING OF CONCURRENT I/O .IFT $MPR .DATA #1 P$$RTY=0 ;PARITY MEMORY .DATA #1 C$$ORE='$DSA'. ;SIZE OF DYNAMIC STORAGE REGION .DATA #1 S$$YSZ='$TME.'*32. ;SIZE OF PHYSICAL MEMORY IN 32W BLOCKS .IF $TME GT 124. .DATA #1 M$$EXT=0 ;EXTENDED MEMORY SUPPORT .IF $TME GT 124. .DATA #1 U$$MRN=170224 ;ADDRESS OF NEXT AVAILABLE UMR .IF $TME GT 124. .DATA #1 U$$MHI=0 ;HIGH PART OF UNIBUS ADDRESS .IF $TME GT 124. .DATA #1 U$$MLO=120000 ;LOW PART OF UNIBUS ADDRESS .IFT $CAH .DATA #1 C$$CHE=0 ;CACHE MEMORY SUPPORT .IF $TME GT 124. .DATA #1 N$$UMR=5*4 ;BYTES OF STATICALLY ALLOCATED UMR''S .IF $TPR EQ "11/03" .DATA #1 L$$SI1=0 ;LSI-11 PROCESSOR .IF $PNR NE 15. .DATA #1 L$$PTO='$PNR.' ;LP: NOT READY MSG INTERVAL .IF CR NE 0 .DATA #1 C$$RTO='$CRR.' ;CR: NOT READY MSG INTERVAL .IFT $EAE .DATA #1 E$$EAE=0 ;EAE SUPPORT .IFT $FPP .DATA #1 F$$LPP=0 ;FLOATING POINT PROCESSOR SUPPORT .IFT $FIS .DATA #1 F$$LTP=0 ;FIS SUPPORT .IFT $EIS .DATA #1 M$$EIS=0 ;EXTEND INSTRUCTION SET SUPPORT .IFT $PRG .DATA #1 K$$CSR=172540 ;PROGRAMMABLE CLOCK CSR ADDRESS .IFT $PRG .DATA #1 K$$CNT=172542 ;COUNT REGISTER ADDRESS .IFT $PRG .DATA #1 K$$TPS='$PRO.' ;TICKS PER SECOND .IFT $PRG .DATA #1 K$$LDC='$PR2.' ;LOAD COUNT VALUE .IFT $PRG .DATA #1 K$$IEN=113 ;CLOCK INTERRUPT ENABLE (KW11-P IN PROG MODE) .IF $LIN EQ "B" .DATA #1 L$$50H=0 ;50Hz LINE FREQUENCY .IF $LIN EQ "A" .DATA #1 H$$RTZ=60. ;LINE FREQUENCY .IF $LIN EQ "B" .DATA #1 H$$RTZ=50. ;LINE FREQUENCY .IFF $PRG .DATA #1 K$$CSR=177546 ;LINE CLOCK CSR ADDRESS .IFF $PRG .DATA #1 K$$CNT=177546 ;COUNT REGISTER ADDRESS .IFF $PRG .IF $LIN EQ "A" .DATA #1 K$$TPS=60. ;TICKS PER SECOND .IFF $PRG .IF $LIN EQ "B" .DATA #1 K$$TPS=50. ;TICKS PER SECOND .IFF $PRG .DATA #1 K$$LDC=1 ;LOAD COUNT VALUE .IFF $PRG .DATA #1 K$$IEN=115 ;CLOCK INTERRUPT ENABLE (KW11-P AT LINE FREQ) .IFT $WAT .DATA #1 K$$W11=172400 ;KW11-Y SUPPORT .IFT $WCH .DATA #1 D$$WCK=0 ;DISK WRITECHECK SUPPORT .IFT $SWL .DATA #1 S$$WLK=0 ;SOFTWARE WRITELOCK SUPPORT .IF AD GT 0 .DATA #1 A$$D01='AD'. ;AD01 A/D CONVERTERS .IF AF GT 0 .DATA #1 A$$F11='AF'. ;AFC11 A/D CONVERTERS .IF AR GT 0 .DATA #1 A$$R11='AR'. ;AR11 LAB PERIPHERAL SYSTEMS .IF LA GT 0 .DATA #1 L$$A11='LA'. ;LPA11 LAB PERIPH. ACCELERATORS .IF LS GT 0 .DATA #1 L$$PS1='LS'. ;LPS11 LAB PERIPHERAL SYSTEM .IF UD GT 0 .DATA #1 U$$D11='UD'. ;UDC11 UNIVERSAL DIGITAL CONTROLLER .IF IC GT 0 .DATA #1 I$$C11='IC'. ;ICS/ICR-11 INDUS CONTROL SUBSYSTEM .IF IP GT 0 .DATA #1 I$$P11='IP'. ;IP11/IP300 PROCESS SUBSYSTEMS .IF CR GT 0 .DATA #1 C$$R11='CR'. ;CR11 CARD READERS .IF CT GT 0 .DATA #1 T$$A11='CT'. ;TA11 DUAL CASSETTES .IF DB GT 0 .DATA #1 R$$JP1='DB'. ;RJ/RWP04\05\06 PACK CONTROLLERS .IF DD GT 0 .DATA #1 T$$U58='DD'. ;TU58 DECTAPE CONTROLLERS .IF DF GT 0 .DATA #1 R$$F11='DF'. ;RF11 FIXED HEAD DISK CONTROLLERS .IF DK GT 0 .DATA #1 R$$K11='DK'. ;RK11 RK05 DISK CONTROLLERS .IF DL GT 0 .DATA #1 R$$L11='DL'. ;RL11 DISK CARTRIDGE CONTROLLERS .IF DM GT 0 .DATA #1 R$$611='DM'. ;RK611 DISK CART CONTROLLERS .IF DP GT 0 .DATA #1 R$$P11='DP'. ;RP11-C\E DISK PACK CONTROLLERS .IF DR GT 0 .DATA #1 R$$M11='DR'. ;RWM03 DISK PACK CONTROLLERS .IF DS GT 0 .DATA #1 R$$JS1='DS'. ;RJ/RWS03\04 DISK CONTROLLERS .IF DT GT 0 .DATA #1 T$$C11='DT'. ;TC11 DECTAPE CONTROLLERS .IF DU GT 0 .DATA #1 R$$UDA='DU'. ;UDA DISK CONTROLLER .IF DX GT 0 .DATA #1 R$$X11='DX'. ;RX11 DISK CONTROLLERS .IF DY GT 0 .DATA #1 R$$X21='DY'. ;RX211 DISK CONTROLLERS .IF EM GT 0 .DATA #1 M$$L11='EM'. ;ML11 MEMORY DISK CONTROLLERS .IF LP GT 0 .DATA #1 L$$P11='LP'. ;LP/LS/LV11/LA180 LINE PRINTERS .IF MF GT 0 .DATA #1 T$$M78='MF'. ;TU78 MAGTAPE CONTROLLERS .IF MM GT 0 .DATA #1 T$$J16='MM'. ;TM02/03 MAGTAPE CONTROLLERS .IF MT GT 0 .DATA #1 T$$M11='MT'. ;TM/TMA/TMB11 MAGTAPE CONTROLLERS .IF MS GT 0 .DATA #1 T$$S11='MS'. ;TS04/TS11 MAGTAPE SYSTEMS .IF PP GT 0 .DATA #1 P$$P11='PP'. ;PC11 PAPER TAPE PUNCH .IF PR GT 0 .DATA #1 P$$R11='PR'. ;PR11 PAPER TAPE READER PLUS ANY PC11 READERS .IF XB GT 0 .DATA #1 D$$B11='XB'. ;DA11-B PAR. LINE IINTERFACES .IF XL GT 0 .DATA #1 D$$E11='XL'. ;DL11-E LINE INTERFACE .IF XM GT 0 .DATA #1 X$$M11='XM'. ;DMC11 LINE INTERFACES .IF XP GT 0 .DATA #1 D$$P11='XP'. ;DP11 LINE INTERFACES .IF XQ GT 0 .DATA #1 D$$Q11='XQ'. ;DQ11 SYNC. LINE INTERFACES .IF XU GT 0 .DATA #1 D$$U11='XU'. ;DU11 LINE INTERFACES .IF XW GT 0 .DATA #1 D$$W11='XW'. ;DUP11 LINE INTERFACES .IF CO GT 0 .DATA #1 C$$ONS='CO'. ;CONSOLE DRIVER .IF NL GT 0 .DATA #˜1 N$$LDV='NL'. ;NULL DEVICE .IF ECC GT 1 .DATA #1 S$$ECC=0 ;SHARRED ECC CODE .99100: .IFF $11S .DATA #1 M$$OVR=0 ;OVERLAYED MCR .IFF $11S .DATA #1 M$$CRX=0 ;EXTERNAL MCR FUNCTIONS .IFT $AMA .DATA #1 ; .ENABLE AMA .IFT $AMA .DATA #2 .ENABLE AMA .GOTO 99901 .99900:; ; SGN -- SYSGEN encountered an unrecoverable error within the ; module SGNEXEC.CMD ; / .99901: .IFF $IAS .ERASE LOCAL ˜æwÚdÌ€€›c,.; .; SYSGEN PROCEDURE FOR V4.0 RSX-11M .; .; Written by Mike Harrison .; Modified by Bernie Alimonti .; .; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY .; BE USED OR COPIED ONLY IN ACCORDANCE WITH THE TERMS .; OF SUCH LICENSE. .; .; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. .; ALL RIGHTS RESERVED. .; .; IDENT 1.17I .; .; .; Copyright (C) 1980 Digital Equipment Corporation, Maynard Mass. .; .ONERR 99900 .ENABLE SUBSTITUTION .ENABLE GLOBAL .DISABLE LOWERCASE .SETF REPEAT .IFT $SAVE .DATA .; Peripheral Configuration Section .IFT $SAVE .DATA .ENABLE GLOBAL .; .;GLOBAL DEFAULTS .; .; RANGE1(T) DEC1(F) MIN1(60) MAX1(774) .; RANGE2(T) DEC2(F) MIN2(160000) MAX2(177700) .; RANGE3(T) DEC3(T) MIN3(1) MAX3(8.) .; RANGE4(T) DEC4(T) MIN4(0) .; RANGE5(F) DEC5(F) MAX5(774) .; RANGE6(F) .; RANGE7(T) DEC7(F) MIN7(160000) MAX7(177700) .; RANGE8(F) .; RANGE9(T) DEC9(T) MIN9(1.) MAX9(2500.) .; .SETT RANGE1 .SETT RANGE2 .SETT RANGE3 .SETT RANGE4 .SETF RANGE5 .SETF RANGE6 .SETT RANGE7 .SETF RANGE8 .SETT RANGE9 .SETF DEC1 .SETF DEC2 .SETT DEC3 .SETT DEC4 .SETF DEC5 .SETT DEC6 .SETF DEC7 .SETT DEC8 .SETT DEC9 .SETN MAX1 774 .SETN MAX2 177700 .SETN MAX3 8. .SETN MAX4 177777 .SETN MAX5 774 .SETN MAX6 177777 .SETN MAX7 177700 .SETN MAX8 177777 .SETN MAX9 2500. .SETN MIN1 60 .SETN MIN2 160000 .SETN MIN3 1 .SETN MIN4 0 .SETN MIN5 0 .SETN MIN6 0 .SETN MIN7 160000 .SETN MIN8 0 .SETN MIN9 1. .SETS OLDDEV "" .SETN $DCBN 0 ! DCB NUMBER .SETF $DSS ! NO DSS-11 INPUT MODULES .SETS FUNMSK "" .SETS ALTMSK "" .SETS MBC "" .IF $TME GT 124. .IF $TPR NE "11/44" .SETS MBC "!DV.MBC" .SETS UMD "" .IFT $OUD .SETS UMD "!DV.UMD" .SETS ANM "" .IFT $ANM .SETS ANM "!DV.MNT!DV.F11" .SETS EXT "" .IF $TME GT 124. .IF $TPR EQ "11/23" .SETS EXT "!DV.EXT" .SETT ASKLOD !GLOBAL DEFINITION: ALLOW LOADABLE/RESIDENT INDIC .SETF DIAG !GLOBAL DEFINITION: DIAGNOSTICS SUPPORT AVAIL. .SETF DISK !GLOBAL DEFINITION: IS THIS DEVICE A DISK .SETF TAPE !GLOBAL DEFINITION: IS THIS DEVICE A TAPE .SETF NPRD !GLOBAL DEFINITION: IS THIS AN NPR DEVICE .SETF MBUS !GLOBAL DEFINITION: IS THIS A MASSBUS DEVICE .SETF PDEV .SETF MUPC !GLOBAL DEFINITION: DOES CONTR ALLOW MULT. UNITS .SETT INTR !GLOBAL DEFINITION: IS THIS AN INTERRUPT DEVICE .SETF ERRL !GLOBAL DEFINITION: DOES DEVICE SUPPORT ERROR LOGGING .SETF KMC !GLOBAL DEFINITION: IS THERE A KMC LP CONTROLLER .SETN IPRI 5 !GLOBAL DEFINITION: INTERRUPT PRIORITY .SETN NVEC 1 !GLOBAL DEFINITION: NUMBER OF DEVICE VECTORS .SETN ITOC 2 !GLOBAL DEFINITION: INITIAL TIMEOUT COUNT .SETN ROFS 0 !GLOBAL DEFINITION: REGISTER OFFSET .SETN NPC11 0 .SETF DEFX1 .SETS DEF1 "" .SETF DEFX2 .SETS DEF2 "" .SETF DEFX3 .SETS DEF3 "" .SETF DEFX4 .SETS DEF4 "" .SETF DEFX5 .SETS DEF5 "" .SETF DEFX6 .SETS DEF6 "" .SETF DEFX7 .SETS DEF7 "" .SETF DEFX8 .SETS DEF8 "" .SETF DEFX9 .SETS DEF9 "" .SETF REPEAT ; ; Peripheral configuration ; ; Parameters appearing in square brackets "[...]" can only be ; specified for the first controller of a particular device. ; Parameters appearing in parentheses "(...)" only need be specified ; if the indicated option is present on the target system. ; .1: .SETS DEV "$DEV" .2042: .TEST 'DEV' .SETN TEMPN 1 .2031: .IF TEMPN GT .GOTO 2030 .SETN TEMPN2 TEMPN+1 .SETS TEMPS 'DEV'['TEMPN':'TEMPN2'] .INC TEMPN2 .SETN TEMPN TEMPN+3 .SETS TEMPS2 'DEV'['TEMPN2':'TEMPN'] .SETN 'TEMPS' 'TEMPS2'. .INC TEMPN .GOTO 2031 .2030: .IF DEV EQ "$DV3" .GOTO 2040 .IF DEV EQ "$DV2" .GOTO JANCLE .SETS DEV "$DV2" .GOTO 2042 .JANCLE: .SETS DEV "$DV3" .GOTO 2042 .2040: .IFF $LOD .GOTO 1130 .SETS LDBSTR "[L/R,] " .ENABLE LOWERCASE .SETS TEMPS "*FALSE*" .SETS TEMPS2 "L (loadable)" .IFF $LLD .GOTO LOD1 .SETS TEMPS " *TRUE*" .SETS TEMPS2 "R (resident)" .LOD1: .DISABLE LOWERCASE ; The default for loadable drivers has been set to 'TEMPS'. ; To override this setting enter 'TEMPS2' as the first parameter ; for the first controller of the specified device. ; .GOTO 1131 .1130: .SETS LDBSTR "" ; Loadable device driver support was not requested in the Executive ; portion of SYSGEN. Therefore you cannot specify any drivers as being ; loadable. ; .1131: .SETS TEMPS "" .IF AD GT 0 .SETS TEMPS "AD" .IF AF GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF AF GT 0 .SETS TEMPS TEMPS+"AF" .IF AR GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF AR GT 0 .SETS TEMPS TEMPS+"AR" .IF IC GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF IC GT 0 .SETS TEMPS TEMPS+"IC" .IF IP GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF IP GT 0 .SETS TEMPS TEMPS+"IP" .IF IS GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF IS GT 0 .SETS TEMPS TEMPS+"IS" .IF LA GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF LA GT 0 .SETS TEMPS TEMPS+"LA" .IF LS GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF LS GT 0 .SETS TEMPS TEMPS+"LS" .IF UD GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF UD GT 0 .SETS TEMPS TEMPS+"UD" .ENABLE LOWERCASE .IF TEMPS EQ "" .SETS TEMPS "None specified" .DISABLE LOWERCASE ; A/D and Laboratory devices: 'TEMPS' ; .SETN MES 0 .SETT PRISMI .; .;AD .; .IF AD EQ 0 .GOTO AD100 .SETN MSG 10 .SETS DEV "AD" .SETS DEF1 "176770" .SETN MAX1 177700 .SETN MIN1 160000 .SETN MIN2 1. .SETN MAX2 64. .SETN MAXN 2. .SETT DEC2 .GOSUB GETANS .SETF DEC2 .SETN MIN1 60 .SETN MAX1 774 .SETN MIN2 160000 .SETN MAX2 177700 .; .SETS FUNMSK "100,0,0,0,0,0,0,0" .GOSUB DCB .; .DATA #2 ADST=. .AD20: .SETS TEMPS A'TEMPN'$2 .SETS A'TEMPN'$2 A'TEMPN'$1 .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .AD'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.QUE!1,0 .BYTE 0,0 .WORD 0 .WORD 'TEMPS' .WORD 0 .WORD 0 .WORD $AD'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 ADND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO AD20 .; .SETF INTR .SETN NVEC 0 .GOSUB SCB .SETN NVEC 1 .SETT INTR .AD100: .; .;AF .; .IF AF EQ 0 .GOTO AF100 .SETN MSG 11 .SETS DEV "AF" .SETS DEF1 "134" .SETS DEF2 "172570" .SETN MAX3 1024. .SETN MAXN 3. .GOSUB GETANS .SETN MAX3 8. .; .SETS FUNMSK "100,0,0,0,0,0,0,0" .GOSUB DCB .; .DATA #2 AFST=. .AF20: .SETS TEMPS A'TEMPN'$3 .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .AF'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.QUE!1,0 .BYTE 0,0 .WORD 0 .WORD 'TEMPS' .WORD 0 .WORD 0 .WORD $AF'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 AFND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO AF20 .; .SETN IPRI 4. .GOSUB SCB .SETN IPRI 5. .AF100: .; .;AR .; .SETF ARD .SETF UPA .SETF DRK .IF AR EQ 0 .GOTO AR100 .SETN MSG 12 .SETS DEV "AR" .SETS DEF2 "170400" .SETN MAXN 7. .SETN MIN1 300 .SETN MIN3 0 .SETN MAX3 177777 .SETF DEC3 .SETF RANGE4 .SETT RANGE5 .SETN MIN5 1 .SETN MAX5 2500. .SETT DEC5 .SETS DEF7 "170420" .SETT DEFX7 .GOSUB GETANS .SETF RANGE5 .SETT RANGE4 .SETF DEC5 .SETN MAX5 774 .SETT DEC3 .SETN MAX3 8. .SETN MIN3 1 .SETN MIN1 60 .; .SETS FUNMSK "1,0,0,0,35540,20140,0,0" .GOSUB DCB .; .DATA #2 ARST=. .AR20: .SETS TEMPS A'TEMPN'$3 .SETN TEMPN2 20 .IF A'TEMPN'$4 EQ "D" .SETN TEMPN2 TEMPN2+41020 .SETS TEMPS2 A'TEMPN'$5 .SETN TEMPN3 10000./'TEMPS2' .SETS TEMPS3 A'TEMPN'$7 .IF A'TEMPN'$6 EQ "DRK" .SETN TEMPN2 TEMPN2+10000 .IF A'TEMPN'$6 EQ "DRK" .SETT DRK .IF A'TEMPN'$4 EQ "D" .SETT ARD .SETN TEMPN8 'TEMPS' .IF TEMPN8 NE 0 .SETT UPA .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .AR'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.QUE!UC.PWF!3,0 .BYTE 0,0 .WORD 0 .WORD 'TEMPN2.' .WORD 'TEMPS' .WORD 'TEMPN3.' .WORD $AR'TEMPN' .WORD 0,0,0,0,0 .WORD 'TEMPS3' .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 ARND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO AR20 .; .SETN IPRI 6. .SETN NVEC 3 .SETN ITOC 8. .GOSUB SCB .SETN ITOC 2. .SETN NVEC 1 .SETN IPRI 5. .AR100: .; .;ICS/ICR .; .IF IC EQ 0 .IF IS EQ 0 .GOTO IC100 .SETN MSG 77 .SETN MES 77 .SET'REPEAT' $ICREP .SETS DEV "IC" .SETN $NICS IC .SETN $NDSS IS @'$EXC'['$SGNUC']SGNICIS .SETF PRISMI .IC100: .; .;IP .; .IF IP EQ 0 .GOTO IP100 .SETN MSG 77 .SETN MES 77 .SETS DEV "IP" .SET'REPEAT' $IPREP .SETN $NPCS IP @'$EXC'['$SGNUC']SGNIP .SETF PRISMI .IP100: .; .;LA .; .IF LA EQ 0 .GOTO LA100 .SETN MSG 14 .SETS DEV "LA" .SETN MAXN 3. .SETS DEF1 "300" .SETS DEF2 "170460" .SETS DEF3 "0" .SETT DEFX3 .IF $TME GT 124. .IFF $20K .SETS DEF3 "4" .IF $TME GT 124. .IFT $20K .SETS DEF3 "5" .SETN MIN3 'DEF3' .SETN MAX3 32.-'DEF3' .GOSUB GETANS .; .SETN MIN3 1. .SETN MAX3 8. .SETS FUNMSK "31,30,0,0,27400,23000,0,0" .GOSUB DCB .; .DATA #2 LAST=. .LA20: .SETS TEMPS A'TEMPN'$3 .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .LA'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .WORD UC.ALG!UC.KIL!UC.QUE!UC.PWF!1 .BYTE 0,US.RED .WORD 0 .RAD50 /LAIN'TEMPN'/ .WORD 80. .WORD $LA'TEMPN' .WORD 0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 U.LAUT==.-.LA0 .DATA #2 .WORD 0,0,0,0,0,0,0,0 .IF TEMPN EQ 0 .DATA #2 U.LAFB==.-.LA0 .ENABLE DATA #2 .WORD 0,0,0 .IF DF L$$DRV & M$$MGE .WORD 0,0 .ENDC .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 U.LADS==.-.LA0 .DATA #2 .WORD 0 .IF TEMPN EQ 0 .DATA #2 U.LASL==.-.LA0 .DATA #2 .WORD 0 .DATA #2 .IF DF M$$EXT&M$$MGE .IF TEMPN EQ 0 .DATA #2 U.LAUB==.-.LA0 .ENABLE DATA #2 .WORD 'TEMPS' .WORD 0 .ENDC .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 LAND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO LA20 .; .SETT NPRD .SETN NVEC 2 .SETN ITOC 5. .GOSUB SCB .SETN ITOC 2. .SETN NVEC 1 .SETF NPRD .LA100: .; .;LS .; .SETF GRO .SETF LBF .SETF LDA .SETF DRA .IF LS EQ 0 .GOTO LS100 .SETN MSG 13 .SETS DEV "LS" .SETN MAXN 9. .SETS DEF2 "170400" .SETT RANGE5 .SETN MIN5 0 .SETN MAX5 177777 .SETS DEF5 "0" .SETS DEF6 "0" .SETN MAX3 64. .SETF RANGE4 .SETN MAX6 85. .SETN MIN6 0. .SETT RANGE6 .SETT DEC6 .SETT DEC7 .SETN MAX7 10. .SETN MIN7 0. .SETS DEF7 "0" .SETT DEFX6 .SETT DEFX5 .SETT DEFX8 .SETS DEF8 "NO" .GOSUB GETANS .SETT RANGE4 .SETF RANGE6 .SETN MIN7 160000 .SETN MAX7 177700 .SETF DEC7 .SETF RANGE5 .SETN MAX5 774 .SETN MAX3 8. .SETS DEF9 "1" .; .SETS FUNMSK "1,0,0,0,37760,20360,0,0" .GOSUB DCB .; .DATA #2 LSST=. .LS20: .SETN TEMPN1 0 .SETS TEMPS A'TEMPN'$3 .SETN TEMPN2 'TEMPS' .SETN TEMPN3 0 .IF A'TEMPN'$4 EQ "G" .SETN TEMPN2 TEMPN2+100000 .IF A'TEMPN'$4 EQ "G" .SETT GRO .IF A'TEMPN'$8 EQ "D" .SETT DRA .SETS TEMPS A'TEMPN'$5 .IF A'TEMPN'$4 EQ "G" .SETN TEMPN3 'TEMPS' .SETS TEMPS A'TEMPN'$6 .SETN TEMPN1 'TEMPS' .IF TEMPN1 NE 0 .SETF LBF .IF TEMPN1 NE 0 .SETN TEMPN2 TEMPN2+200 .SETS TEMPS A'TEMPN'$7 .SETN TEMPNX 'TEMPS' .IF TEMPNX NE 0 .SETT LDA .IF TEMPNX NE 0 .SETN TEMPN2 TEMPN2+40000+(TEMPNX*400) .IF A'TEMPN'$8 EQ"D" .SETN TEMPN2 TEMPN2+10000 .SETS TEMPS A'TEMPN'$9 .SETN TEMPN4 10000./'TEMPS' .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .LS'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.QUE!UC.PWF!3,0 .BYTE 0,0 .WORD 0 .WORD 'TEMPN2.' .WORD 'TEMPN3.' .WORD 'TEMPN4.' .WORD $LS'TEMPN' .WORD 0,0,'TEMPN1.',0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 LSND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO LS20 .; .SETN IPRI 6. .SETN NVEC 4 .SETN ITOC 8. .GOSUB SCB .SETN ITOC 2. .SETN NVEC 1 .SETN IPRI 5. .LS100: .; .;UD .; .SETF UAD .SETF UAO .SETF UCI .SETF UCS .SETF ULT .SETF USS .SETF UTI .SETN UAK 0. .SETN UDD0 0. .SETN UDD1 0. .SETN UDD2 0. .SETN UDD3 0. .SETN UDD4 0. .SETN UDD5 0. .SETN UDD6 0. .SETN UDD7 0. .IF UD EQ 0 .GOTO UD100 .SETN MSG 1 .SETS DEV "UD" .SETS DEF1 "234" .SETS DEF2 "171776" .SETN MAXN 2. .SETF ASKLOD .SETF LOD .GOSUB GETANS .SETN $UDLOC 'A0$2'/100 .; .SETS FUNMSK "10100,10000,0,0,55400,51000,0,0" .GOSUB DCB .; .ENABLE DATA #2 UDST=. .IF DF M$$MUP .WORD 0 .ENDC .UD0:: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.QUE!UC.PWF!UC.KIL!1,0 .BYTE 0,US.RED .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD $UD0 .WORD 0,0,0,0,0,0 UDND=. .DISABLE DATA #2 .; .SETN IPRI 6. .GOSUB SCB .SETN IPRI 5. .; .ENABLE LOWERCASE .SETS UDMOD0 "ADU01 analog input" .SETS UDSPA0 " " .SETS UDMOD1 "IAD-IA analog input" .SETS UDSPA1 "" .SETS UDMOD2 "analog output" .SETS UDSPA2 " " .SETS UDMOD3 "digital interrupt" .SETS UDSPA3 " " .SETS UDMOD4 "digital sense" .SETS UDSPA4 " " .SETS UDMOD5 "bi-stable output" .SETS UDSPA5 " " .SETS UDMOD6 "single-shot output" .SETS UDSPA6 " " .SETS UDMOD7 "I/O counter" .SETS UDSPA7 " " .DISABLE LOWERCASE .SETS EC0 "AD" .SETS EC1 "AD" .SETS EC2 "AO" .SETS EC3 "CI" .SETS EC4 "CS" .SETS EC5 "LT" .SETS EC6 "SS" .SETS EC7 "TI" .SETN MAXMOD 252. .SETN J 0. .SETN I 0. .SETT DEC1 .SETT DEC2 .SETN MIN1 0 .SETN MAX1 252. .SETN MIN2 0 .SETN MAX2 252. .SETS DEF2 "0" .SETT DEFX2 .SETS DEV "UDX" .SETN MAXN 2 .SETN UDX 8. .SETN MSG 21 .GOSUB GETANS .SETT ASKLOD .SETF DEC1 .SETF DEC2 .SETN MIN1 60 .SETN MAX1 774 .SETN MIN2 160000 .SETN MAX2 177700 .UD100: .SETS TEMPS "" .IF XB GT 0 .SETS TEMPS "XB" .IF XL GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF XL GT 0 .SETS TEMPS TEMPS+"XL" .IF XM GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF XM GT 0 .SETS TEMPS TEMPS+"XM" .IF XP GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF XP GT 0 .SETS TEMPS TEMPS+"XP" .IF XQ GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF XQ GT 0 .SETS TEMPS TEMPS+"XQ" .IF XU GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF XU GT 0 .SETS TEMPS TEMPS+"XU" .IF XW GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF XW GT 0 .SETS TEMPS TEMPS+"XW" .ENABLE LOWERCASE .IF TEMPS EQ "" .SETS TEMPS "None specified" .DISABLE LOWERCASE .IFF PRISMI ; ; Interprocessor communication devices: 'TEMPS' ; .SETN MES 0 .SETT PRISMI .; .;XB .; .IF XB EQ 0 .GOTO XB100 .SETN MSG 1 .SETS DEV "XB" .SETN MAXN 2. .SETS DEF1 "124" .SETS DEF2 "172414" .GOSUB GETANS .; .SETS FUNMSK "177,170,0,0,37400,0,0,37400" .GOSUB DCB .; .DATA #2 XBST=. .XB20: .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .XB'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.NPR!UC.ALG,0 .BYTE 0,0 .WORD 0 .WORD 140000 .WORD 0 .WORD 0 .WORD $XB'TEMPN' .WORD 0,0,0,0,0,0,0,0,0,0 .WORD 0,0,0,0,0,0,0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 XBND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO XB20 .; .SETT NPRD .GOSUB SCB .SETF NPRD .XB100: .; .;XL .; .IF XL EQ 0 .GOTO XL100 .SETN MSG 16 .SETS DEV "XL" .SETN MAXN 4. .SETS DEF3 "H" .SETF RANGE3 .SETN MIN1 300 .SETN MIN2 175610 .SETN MIN4 3 .SETN MAX4 14 .GOSUB GETANS .SETN MIN1 60 .SETN MIN2 160000 .SETN MIN4 0 .SETT RANGE3 .; .SETS FUNMSK "177,170,0,0,37400,0,0,37400" .GOSUB DCB .; .DATA #2 XLST=. .XL20: .SETN TEMPN2 0 .IF A'TEMPN'$3 EQ "H" .SETN TEMPN2 40000 .SETS TEMPS A'TEMPN'$4 .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .XL'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG,0 .BYTE 0,0 .WORD 0 .WORD 'TEMPN2.' .WORD 0 .WORD 'TEMPS' .WORD $XL'TEMPN' .WORD 0,0,0,0,0,0,0,0,0,0 .WORD 0,0,0,0,377,0,0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 XLND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO XL20 .; .SETN NVEC 2 .GOSUB SCB .SETN NVEC 1 .XL100: .; .;XM .; .IF XM EQ 0 .GOTO XM100 .SETN MSG 17 .SETS DEV "XM" .SETN MAXN 3. .SETF RANGE3 .SETN MIN1 300 .SETN MIN2 160010 .GOSUB GETANS .SETN MIN1 60 .SETN MIN2 160000 .SETT RANGE3 .; .SETS FUNMSK "177,171,0,0,6,0,0,6" .GOSUB DCB .; .DATA #2 XMST=. .XM20: .IF A'TEMPN'$3 EQ "F" .GOTO XM01 .SETN TEMPN2 140000 .SETN TEMPN3 2000 .IF A'TEMPN'$3 EQ "H" .SETN TEMPN3 6000 .GOTO XM02 .XM01: .SETN TEMPN2 0 .SETN TEMPN3 0 .XM02: .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .XM'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.NPR!UC.KIL .BYTE 0 .BYTE 0,0 .WORD 0 .WORD 'TEMPN2.','TEMPN3.',0 .WORD $XM'TEMPN' .WORD 0,0,0,0,0,0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 XMND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO XM20 .; .SETT NPRD .SETN NVEC 2 .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETN NVEC 1 .SETF NPRD .XM100: .; .;XP .; .IF XP EQ 0 .GOTO XP100 .SETN MSG 16 .SETS DEV "XP" .SETN MAXN 4. .SETS DEF2 "174770" .SETS DEF3 "H" .SETT DEFX3 .SETN MIN1 300 .SETN MIN4 3 .SETN MAX4 14. .SETF RANGE3 .GOSUB GETANS .SETN MIN1 60 .SETT RANGE3 .SETN MIN4 0 .; .SETS FUNMSK "177,170,0,0,37400,0,0,37400" .GOSUB DCB .; .DATA #2 XPST=. .XP20: .SETN TEMPN2 0 .IF A'TEMPN'$3 EQ "H" .SETN TEMPN2 40000 .SETS TEMPS A'TEMPN'$4 .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .XP'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG,0 .BYTE 0,0 .WORD 0 .WORD 'TEMPN2.' .WORD 0 .WORD 'TEMPS' .WORD $XP'TEMPN' .WORD 0,0,0,0,0,0,0,0,0,0 .WORD 0,0,0,0,226,0,0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 XPND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO XP20 .; .SETN NVEC 2 .GOSUB SCB .SETN NVEC 1 .XP100: .; .;XQ .; .SETF DRQ .SETF DQP .IF XQ EQ 0 .GOTO XQ100 .SETN MSG 4 .SETS DEV "XQ" .SETN MAXN 6. .SETS DEF3 "H" .SETS DEF4 "E" .SETS DEF5 "C" .SETF RANGE3 .SETF RANGE4 .SETN MIN2 160010 .SETT RANGE6 .SETT DEC6 .SETN MIN6 3 .SETN MAX6 14. .GOSUB GETANS .SETN MIN2 160000 .SETF RANGE6 .SETT RANGE3 .SETT RANGE4 .; .SETS FUNMSK "177,170,0,0,37400,0,0,37400" .GOSUB DCB .; .DATA #2 XQST=. .XQ20: .IF A'TEMPN'$4 EQ "E" .SETT DRQ .IF A'TEMPN'$5 EQ "C" .SETT DQP .SETN TEMPN2 0 .IF A'TEMPN'$3 EQ "H" .SETN TEMPN2 40000 .IF A'TEMPN'$4 EQ "E" .SETN TEMPN2 TEMPN2+400 .IF A'TEMPN'$5 EQ "C" .SETN TEMPN2 TEMPN2+1000 .SETS TEMPS A'TEMPN'$6 .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .XQ'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.NPR!UC.ALG,0 .BYTE 0,0 .WORD 0 .WORD 'TEMPN2.' .WORD 0 .WORD 'TEMPS' .WORD $XQ'TEMPN' .WORD 0,0,0,0,0,0,0,0,0,0 .WORD 0,0,0,0,226,0,0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 XQND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO XQ20 .; .SETT NPRD .SETN NVEC 2 .GOSUB SCB .SETN NVEC 1 .SETF NPRD .XQ100: .; .;XU .; .IF XU EQ 0 .GOTO XU100 .SETN MSG 16 .SETS DEV "XU" .SETN MAXN 4. .SETS DEF3 "F" .SETF RANGE3 .SETN MIN1 300 .SETN MIN2 160010 .SETN MIN4 3 .SETN MAX4 14. .GOSUB GETANS .SETN MIN1 60 .SETN MIN2 160000 .SETT RANGE3 .SETN MIN4 0 .; .SETS FUNMSK "177,170,0,0,37400,0,0,37400" .GOSUB DCB .; .DATA #2 XUST=. .XU20: .SETN TEMPN2 0 .IF A'TEMPN'$3 EQ "H" .SETN TEMPN2 40000 .SETS TEMPS A'TEMPN'$4 .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .XU'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG,0 .BYTE 0,0 .WORD 0 .WORD 'TEMPN2.' .WORD 0 .WORD 'TEMPS' .WORD $XU'TEMPN' .WORD 0,0,0,0,0,0,0,0,0,0 .WORD 0,0,0,0,226,0,0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 XUND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO XU20 .; .SETN NVEC 2 .GOSUB SCB .SETN NVEC 1 .XU100: .; .;XW .; .IF XW EQ 0 .GOTO XW100 .SETN MSG 16 .SETS DEV "XW" .SETN MAXN 4. .SETS DEF3 "H" .SETT DEFX3 .SETF RANGE3 .SETN MIN1 300 .SETN MIN2 160010 .SETN MIN4 3 .SETN MAX4 14. .GOSUB GETANS .SETN MIN1 60 .SETN MIN2 160000 .SETT RANGE3 .SETN MIN4 0 .; .SETS FUNMSK "177,170,0,0,37400,0,0,37400" .GOSUB DCB .; .DATA #2 XWST=. .XW20: .SETN TEMPN2 0 .IF A'TEMPN'$3 EQ "H" .SETN TEMPN2 40000 .SETS TEMPS A'TEMPN'$4 .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .XW'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG,0 .BYTE 0,0 .WORD 0 .WORD 'TEMPN2.' .WORD 0 .WORD 'TEMPS' .WORD $XW'TEMPN' .WORD 0,0,0,0,0,0,0,0,0,0 .WORD 0,0,0,0,226,0,0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 XWND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO XW20 .; .SETN NVEC 2 .GOSUB SCB .SETN NVEC 1 .XW100: .SETS TEMPS "" .IF CR GT 0 .SETS TEMPS "CR" .IF GR GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF GR GT 0 .SETS TEMPS TEMPS+"GR" .IF LP GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF LP GT 0 .SETS TEMPS TEMPS+"LP" .IF PR GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF PR GT 0 .SETS TEMPS TEMPS+"PR" .IF PP GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF PP GT 0 .SETS TEMPS TEMPS+"PP" .ENABLE LOWERCASE .IF TEMPS EQ "" .SETS TEMPS "None specified" .DISABLE LOWERCASE .IFF PRISMI ; ; Unit record devices: 'TEMPS' ; .SETN MES 0 .SETT PRISMI .; .;CR .; .IF CR EQ 0 .GOTO CR100 .SETN MSG 1 .SETS DEV "CR" .SETS DEF1 "230" .SETS DEF2 "177160" .SETN MAXN 2. .GOSUB GETANS .; .SETS FUNMSK "160034,30,160000,0,3,0,1,0" .GOSUB DCB .; .DATA #2 CRST=. .CR20: .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .CR'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE 0,0 .BYTE 0,0 .WORD DV.REC .WORD 0 .WORD 0 .WORD 80. .WORD $CR'TEMPN' .WORD 0,0,0,0,0,0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 CRND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO CR20 .; .SETN IPRI 6. .GOSUB SCB .SETN IPRI 5. .CR100: .; .;GR .; .SETF VT1 .SETF VS6 .SETF V62 .IF GR EQ 0 .GOTO GR100 .GR01: .SETN MSG 7 .SETS DEV "GR" .SETS DEF2 "172000" .SETS DEF4 "1" .SETN MAXN 4. .SETF RANGE3 .SETN MAX4 2 .SETN MIN4 1 .SETF ASKLOD .SETF LOD .GOSUB GETANS .SETT ASKLOD .SETN MIN4 0 .SETT RANGE3 .IF A0$3 EQ "VT11" .SETT VT1 .IF A0$3 EQ "VS60" .SETT VS6 .SETN TEMPN 'A0$4' .IFT VS6 .IF TEMPN EQ 2 .SETT V62 .GR01: .; .SETS FUNMSK "31,30,0,0,74000,74000,0,0" .GOSUB DCB .; .ENABLE DATA #2 GRST=. .IF DF M$$MUP .WORD 0 .ENDC .GR0:: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.QUE!UC.KIL!UC.PWF!UC.NPR,0 .BYTE 0,0 .WORD 0,0,0,0 .WORD $GR0 .WORD 0,0,0,0 GRND=. ; ; GR SCB ; .ASECT .='A0$1' .WORD $GRSTP .WORD PR7!0 .WORD $GRLPI .WORD PR7!0 .WORD $GRBSE .WORD PR7!0 .WORD $GRBSE .WORD PR7!0 .PSECT $GR0:: .WORD 0,.-2 .BYTE PR4,'A0$1'/4 .BYTE 0,6 .BYTE 0,0 .WORD 'A0$2' .WORD 0 $GRFRK:: .WORD 0,0,0,0 .IF DF L$$DRV&M$$MGE .WORD 0 .ENDC .DISABLE DATA #2 .; .SETN CONTR 0 .SETT NPRD .SETN IPRI 4. .SETN NVEC 4 .SETN ITOC 6. .GOSUB UMR .SETN ITOC 2. .SETN NVEC 1 .SETN IPRI 5. .SETF NPRD .GR100: .; .;LP .; .LP05: .SETF $KMC .SETF $KML .SETF FPR .SETF KMC .SETF KMP .SETN KMK 0. .IF LP EQ 0 .GOTO LP100 .SETN MSG 20 .SETS DEV "LP" .SETN MAXN 6. .SETS DEF1 "200" .SETS DEF2 "177514" .SETS DEF4 "0" .SETS DEF5 "300" .SETS DEF6 "160130" .SETF RANGE3 .SETS DEF3 "LA180" .SETT DEFX3 .SETT RANGE5 .SETT RANGE6 .SETF DEC6 .SETN MAX4 100. .SETN MIN5 300 .SETN MAX6 177700 .SETN MIN6 160000 .GOSUB GETANS .SETF DEFX3 .SETF RANGE6 .SETF RANGE5 .SETT RANGE3 .; .SETS FUNMSK "160033,30,160000,0,5,0,1,4" .SETN TEMPN 'A0$4' .IF TEMPN EQ 0 .GOTO LP03 .IF LP LE 8. .GOTO LP04 ; SGN -- Maximum of 8 printers allowed on a system with a KMC -- RETRY .ASKN [0:16.] LP 50.'$SF1' Enter number of line printers .SETF PRISMI .GOTO LP05 .LP04: .SETT KMC .SETT $KMC .SETN NVEC 2 .IFT LOD .SETT $KML .SETT KMP .SETN KMK TEMPN .LP03: .GOSUB DCB .; .DATA #2 LPST=. .SETS TEMPS "0" .SETN TEMPN3 'A0$4' .IF TEMPN3 NE 0 .SETS TEMPS "UC.PWF!UC.NPR" .IF TEMPN3 NE 0 .SETN NVEC 2 .IF TEMPN3 NE 0 .SETN KMK TEMPN3 .SETN TEMPN4 'A0$5'+10 .IF TEMPN3 NE 0 .IF $HIV LT TEMPN4 .SETN $HIV TEMPN4 .SETN UNITC 0 .LP20: .SETS TEMPS2 A'TEMPN'$3 .SETN TEMPN2 0 .IF TEMPS2 EQ "LS11" .OR .IF TEMPS2 EQ "LA180" .SETN TEMPN2 100000 .IF TEMPS2 EQ "LP11-A" .OR .IF TEMPS2 EQ "LP11-B" .SETN TEMPN2 100000 .IF TEMPS2 EQ "LP11-C" .OR .IF TEMPS2 EQ "LP11-D" .SETN TEMPN2 100000 .IF TEMPS2 EQ "LP11-V" .OR .IF TEMPS2 EQ "LP11-W" .SETN TEMPN2 100000 .IF TEMPS2 EQ "LP11-Y" .OR .IF TEMPS2 EQ "LP11-Z" .SETN TEMPN2 100000 .IF TEMPS2 EQ "LP11-F" .OR .IF TEMPS2 EQ "LP11-J" .GOTO LP01 .IF TEMPS2 EQ "LP11-R" .OR .IF TEMPS2 EQ "LP11-V" .GOTO LP01 .IF TEMPS2 EQ "LP11-A" .GOTO LP01 .SETN TEMPN2 TEMPN2+40000 .LP01: .SETN TEMPN4 80. .IF TEMPS2 EQ "LP11-F" .OR .IF TEMPS2 EQ "LP11-H" .GOTO LP02 .SETN TEMPN4 132. .LP02: .IF TEMPS2 EQ "LP11-B" .SETN TEMPN2 TEMPN2+100 .IF TEMPS2 EQ "LP11-D" .OR .IF TEMPS2 EQ "LP11-Z" .SETN TEMPN2 TEMPN2+100 .IF TEMPS2 EQ "LP11-H" .OR .IF TEMPS2 EQ "LP11-K" .SETN TEMPN2 TEMPN2+100 .IF TEMPS2 EQ "LP11-S" .OR .IF TEMPS2 EQ "LP11-W" .SETN TEMPN2 TEMPN2+100 .IF TEMPS2 EQ "LV11" .OR .IF TEMPS2 EQ "LA180" .SETN TEMPN2 TEMPN2+100 .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .LP'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE 'TEMPS',0 .BYTE 'UNITC',0 .WORD DV.REC!DV.CCL .WORD 'TEMPN2.' .WORD 0 .WORD 'TEMPN4.' .WORD $LP'TEMPN' .WORD 0,0,0,0 .DISABLE DATA #2 .IF TEMPN3 NE 0 .DATA #2 .WORD 'A0$6','A0$6'+6 .IF TEMPN EQ 0 .DATA #2 LPND=. .IF TEMPN3 NE 0 .IF TEMPN EQ 0 .SETS A'TEMPN'$1 A0$5 .INC TEMPN .IFT $KMC .INC UNITC .IF TEMPN LT NTEMPN .GOTO LP20 .; .SETN ITOC 12. .IFF $KMC .SETN IPRI 4 .GOSUB SCB .SETN ITOC 2 .SETN IPRI 5 .SETN NVEC 1 .LP100: .SETF KMC .; .;PP .; .IF PP EQ 0 .GOTO PP100 .SETN MSG 1 .SETS DEV "PP" .SETN MAXN 2. .SETS DEF1 "74" .SETS DEF2 "177554" .GOSUB GETANS .; .SETS DEV "PP" .SETS FUNMSK "140033,30,140000,0,5,0,1,4" .GOSUB DCB .; .DATA #2 PPST=. .PP20A: .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .PP'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ATT,0 .BYTE 0,0 .WORD DV.REC .WORD 0 .WORD 0 .WORD 64. .WORD $PP'TEMPN' .WORD 0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 PPND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO PP20A .; .SETN IPRI 4. .SETN NVEC 2 .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETN NVEC 1 .SETN IPRI 5. .PP100: .; .;PR .; .IF PR EQ 0 .GOTO PR100 .SETN MSG 1 .SETS DEV "PR" .SETN MAXN 2. .SETS DEF1 "70" .SETS DEF2 "177550" .GOSUB GETANS .; .SETS FUNMSK "20035,30,20000,0,3,0,1,2" .GOSUB DCB .; .DATA #2 PRST=. .PR20: .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .PR'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ATT,0 .BYTE 0,0 .WORD DV.REC .WORD 0 .WORD 0 .WORD 64. .WORD $PR'TEMPN' .WORD 0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 PRND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO PR20 .; .SETN IPRI 4. .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETN IPRI 5. .PR100: .SETS TEMPS "" .IF DB GT 0 .SETS TEMPS "DB" .IF DD GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DD GT 0 .SETS TEMPS TEMPS+"DD" .IF DF GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DF GT 0 .SETS TEMPS TEMPS+"DF" .IF DK GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DK GT 0 .SETS TEMPS TEMPS+"DK" .IF DL GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DL GT 0 .SETS TEMPS TEMPS+"DL" .IF DM GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DM GT 0 .SETS TEMPS TEMPS+"DM" .IF DP GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DP GT 0 .SETS TEMPS TEMPS+"DP" .IF DR GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DR GT 0 .SETS TEMPS TEMPS+"DR" .IF DS GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DS GT 0 .SETS TEMPS TEMPS+"DS" .IF DT GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DT GT 0 .SETS TEMPS TEMPS+"DT" .IF DU GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DU GT 0 .SETS TEMPS TEMPS+"DU" .IF DX GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DX GT 0 .SETS TEMPS TEMPS+"DX" .IF DY GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF DY GT 0 .SETS TEMPS TEMPS+"DY" .IF EM GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF EM GT 0 .SETS TEMPS TEMPS+"EM" .ENABLE LOWERCASE .IF TEMPS EQ "" .SETS TEMPS "None specified" .DISABLE LOWERCASE .IFF PRISMI ; ; Disks: 'TEMPS' ; .SETN MES 0 .SETT PRISMI .; .;DB .; .SETF RJO .IF DB EQ 0 .GOTO DB100 .SETN MSG 2 .SETS DEV "DB" .SETS DEF1 "254" .SETS DEF2 "176700" .SETS DEF4 "0" .SETS DEF5 "O" .SETT DEFX4 .SETT DEFX5 .SETN MAXN 5. .SETN MAX4 177777 .SETF DEC4 .SETT DEFX4 .SETT DEFX5 .GOSUB GETANS .SETT DEC4 .; .SETT DISK .SETT DIAG .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DBST=. .DB20: .SETS TEMPS A'TEMPN'$4 .SETN TEMPN5 'TEMPS' .SETS TEMPS A'TEMPN'$3 .SETN TEMPN3 0. .SETN UNITC 0 .IF TEMPN NE 0 .GOTO DB77 .IF A'TEMPN'$5 EQ "O" .SETT RJO .DB77: .DB30: .SETN TEMPN2 5 .SETN TEMPN4 31276 .DB01: .IFT $SAVED .IFF REPEAT .IFDF $'UNITC'DB'TEMPN' .GOTO DB10 .GOTO DB02A .DB02: ; SGN -- Illegal device mnemonic -- RETRY .DB02A: .SETS DEFX "RP06" .IFT $ACFDF .GOSUB UDEFS .ASKS $'UNITC'DB'TEMPN' 52.'$SF1' Contr 'TEMPN' unit 'TEMPN3.' is an RP04,05/RP06 [D: 'DEFX'] .SETF PRISMI .IF $'UNITC'DB'TEMPN' EQ "" .SETS $'UNITC'DB'TEMPN' DEFX .DB10: .SETS TEMPS2 $'UNITC'DB'TEMPN' .IF TEMPS2 EQ "" .OR .IF TEMPS2 EQ "RP06" .GOTO DB03 .IF TEMPS2 NE "RP04" .IF TEMPS2 NE "RP05" .GOTO DB02 .SETN TEMPN2 2 .SETN TEMPN4 117426 .DB03: .IFT $SAVE .DATA .SETS $'UNITC'DB'TEMPN' "'TEMPS2'" .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DB'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 'TEMPN5.',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD''MBC' .WORD 'TEMPN2.' .WORD 'TEMPN4.' .WORD 512. .WORD $DB'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DBND=. .INC UNIT .INC UNITC .INC TEMPN3 .INC TEMPN5 .IF UNITC LT 'TEMPS' .GOTO DB30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DB20 .; .SETT ERRL .SETT MBUS .SETN NREG 20. .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETF MBUS .SETF ERRL .SETF MUPC .SETF DIAG .DB100: .; .;DD .; .IF DD EQ 0 .GOTO DD100 .SETN MSG 3 .SETS DEV "DD" .SETS DEF1 "300" .SETS DEF2 "176500" .SETN MAX3 2 .SETN MAXN 3. .GOSUB GETANS .SETN MAX3 8. .; .SETT DISK .SETT DIAG .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DDST=. .DD20: .SETS TEMPS A'TEMPN'$3 .SETN UNITC 0 .DD30: .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DD'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!1,US.MNT .BYTE 'UNITC',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD' .WORD 0 .WORD 512. .WORD 512. .WORD $DD'TEMPN' .WORD 0,0,0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DDND=. .INC UNIT .INC UNITC .IF UNITC LT 'TEMPS' .GOTO DD30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DD20 .; .SETT ERRL .SETT NPRD .SETN NREG 6. .SETN IPRI 4. .SETN ITOC 2. .GOSUB SCB .SETN ITOC 7. .SETN IPRI 5. .SETF NPRD .SETF ERRL .SETF MUPC .SETF DIAG .DD100: .; .;DF .; .IF DF EQ 0 .GOTO DF100 .SETN MSG 1 .SETS DEV "DF" .SETS DEF1 "204" .SETS DEF2 "177460" .SETN MAXN 2. .GOSUB GETANS .; .SETT DISK .SETT DIAG .GOSUB DCB .SETF DISK .; .DATA #2 DFST=. .DF20: .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DF'TEMPN':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 0,0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD' .WORD 0 .WORD 1024. .WORD 512. .WORD $DF'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF TEMPN EQ 0 .DATA #2 DFND=. .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DF20 .; .SETT ERRL .SETT NPRD .SETN NREG 8. .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETF NPRD .SETF ERRL .SETF DIAG .DF100: .; .;DK .; .IF DK EQ 0 .GOTO DK100 .SETN MSG 3 .SETS DEV "DK" .SETS DEF1 "220" .SETS DEF2 "177404" .SETN MAXN 3. .GOSUB GETANS .; .SETT DISK .SETT DIAG .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DKST=. .DK20: .SETN UNITC 0 .SETS TEMPS A'TEMPN'$3 .DK30: .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DK'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 'UNITC',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD' .WORD 0 .WORD 4800. .WORD 512. .WORD $DK'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DKND=. .INC UNIT .INC UNITC .IF UNITC LT 'TEMPS' .GOTO DK30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DK20 .; .SETT ERRL .SETT NPRD .SETN NREG 8. .SETN ITOC 4. .SETN ROFS 374 .GOSUB SCB .SETN ROFS 0. .SETN ITOC 2. .SETF NPRD .SETF ERRL .SETF MUPC .SETF DIAG .DK100: .; .;DL .; .IF DL EQ 0 .GOTO DL100 .SETN MSG 3 .SETS DEV "DL" .SETS DEF1 "160" .SETS DEF2 "174400" .SETN MAXN 3. .SETN MAX3 4 .GOSUB GETANS .SETN MAX3 8. .; .SETT DISK .SETT DIAG .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DLST=. .DL20: .SETN UNITC 0 .SETN TEMPN3 0. .SETS TEMPS A'TEMPN'$3 .DL30: .SETN TEMPN4 24000 .DL01: .IFT $SAVED .IFF REPEAT .IFDF $'UNITC'DL'TEMPN' .GOTO DL10 .GOTO DL02A .DL02: ; SGN -- Illegal device mnemonic -- RETRY .DL02A: .SETS DEFX "RL01" .IFT $ACFDF .GOSUB UDEFS .ASKS $'UNITC'DL'TEMPN' 53.'$SF1' Contr 'TEMPN' unit 'TEMPN3.' is an RL01/RL02 [D: 'DEFX'] .SETF PRISMI .IF $'UNITC'DL'TEMPN' EQ "" .SETS $'UNITC'DL'TEMPN' DEFX .DL10: .SETS TEMPS2 $'UNITC'DL'TEMPN' .IF TEMPS2 EQ "" .OR .IF TEMPS2 EQ "RL01" .GOTO DL03 .IF TEMPS2 NE "RL02" .GOTO DL02 .SETN TEMPN4 50000 .DL03: .IFT $SAVE .DATA .SETS $'UNITC'DL'TEMPN' "'TEMPS2'" .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DL'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 'UNITC',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD''EXT' .WORD 0 .WORD 'TEMPN4.' .WORD 512. .WORD $DL'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DLND=. .INC UNIT .INC UNITC .INC TEMPN3 .IF UNITC LT 'TEMPS' .GOTO DL30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DL20 .; .SETT ERRL .SETT NPRD .SETN NREG 5. .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETF NPRD .SETF ERRL .SETF MUPC .SETF DIAG .DL100: .; .;DM .; .SETF R6O .IF DM EQ 0 .GOTO DM100 .SETN MSG 15 .SETS DEV "DM" .SETS DEF1 "210" .SETS DEF2 "177440" .SETS DEF4 "O" .SETN MAXN 4. .SETT DEFX4 .SETF RANGE4 .GOSUB GETANS .SETT RANGE4 .; .SETT DISK .SETT DIAG .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DMST=. .DM20: .SETS TEMPS A'TEMPN'$3 .SETN TEMPN3 0. .SETN UNITC 0 .IF TEMPN NE 0 .GOTO DM30 .IF A'TEMPN'$4 EQ "O" .SETT R6O .DM30: .SETN TEMPN2 27126. .DM01: .IFT $SAVED .IFF REPEAT .IFDF $'UNITC'DM'TEMPN' .GOTO DM10 .DM02: .SETS DEFX "RK06" .IFT $ACFDF .GOSUB UDEFS .ASKS $'UNITC'DM'TEMPN' 54.'$SF1' Contr 'TEMPN' unit 'TEMPN3.' is an RK06/RK07 [D: 'DEFX'] .SETF PRISMI .IF $'UNITC'DM'TEMPN' EQ "" .SETS $'UNITC'DM'TEMPN' DEFX .DM10: .SETS TEMPS2 $'UNITC'DM'TEMPN' .IF TEMPS2 NE "" .IF TEMPS2 NE "RK06" .IF TEMPS2 NE "RK07" .GOTO DM02 .IFT $SAVE .DATA .SETS $'UNITC'DM'TEMPN' "'TEMPS2'" .IF TEMPS2 EQ "RK07" .SETN TEMPN2 53790. .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DM'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 'UNITC',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD' .WORD 0 .WORD 'TEMPN2.' .WORD 512. .WORD $DM'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DMND=. .INC UNIT .INC UNITC .INC TEMPN3 .IF UNITC LT 'TEMPS' .GOTO DM30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DM20 .; .SETT ERRL .SETT NPRD .SETN NREG 22. .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETF NPRD .SETF ERRL .SETF MUPC .SETF DIAG .DM100: .; .;DP .; .IF DP EQ 0 .GOTO DP100 .SETN MSG 3 .SETS DEV "DP" .SETS DEF1 "254" .SETS DEF2 "176714" .SETN MAXN 3. .GOSUB GETANS .; .SETT DISK .SETT DIAG .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DPST=. .DP20: .SETS TEMPS A'TEMPN'$3 .SETN TEMPN3 0. .SETN UNITC 0 .DP30: .SETN TEMPN2 100001 .SETN TEMPN4 34200 .DP01: .IFT $SAVED .IFF REPEAT .IFDF $'UNITC'DP'TEMPN' .GOTO DP10 .DP02: .ASKS $'UNITC'DP'TEMPN' 55.'$SF1' Contr 'TEMPN' unit 'TEMPN3.' is an RP02/RP03 [D: RP03] .SETF PRISMI .DP10: .SETS TEMPS2 $'UNITC'DP'TEMPN' .IF TEMPS2 NE "" .IF TEMPS2 NE "RP02" .IF TEMPS2 NE "RP03" .GOTO DP02 .IFT $SAVE .DATA .SETS $'UNITC'DP'TEMPN' "'TEMPS2'" .IF TEMPS2 EQ "RP02" .SETN TEMPN2 0 .IF TEMPS2 EQ "RP02" .SETN TEMPN4 116100 .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DP'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!3,US.MNT .BYTE 'UNITC',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD' .WORD 'TEMPN2.' .WORD 'TEMPN4.' .WORD 512. .WORD $DP'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DPND=. .INC UNIT .INC UNITC .INC TEMPN3 .IF UNITC LT 'TEMPS' .GOTO DP30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DP20 .; .SETT ERRL .SETT NPRD .SETN NREG 12. .SETN ITOC 4. .SETN ROFS 374 .GOSUB SCB .SETN ROFS 0. .SETN ITOC 2. .SETF NPRD .SETF ERRL .SETF MUPC .SETF DIAG .DP100: .; .;DR .; .SETF R3O .IF DR EQ 0 .GOTO DR100 .SETN MSG 2 .SETS DEV "DR" .SETS DEF1 "254" .SETS DEF2 "176700" .SETS DEF4 "0" .SETN MAX4 8. .SETS DEF5 "O" .SETT DEFX4 .SETT DEFX5 .SETN MAXN 5. .GOSUB GETANS .; .SETT DISK .SETT DIAG .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DRST=. .DR20: .SETS TEMPS A'TEMPN'$4 .SETN TEMPN5 'TEMPS' .SETS TEMPS A'TEMPN'$3 .SETN TEMPN3 0. .SETN UNITC 0 .IF TEMPN NE 0 .GOTO DR30 .IF A'TEMPN'$5 EQ "O" .SETT R3O .DR30: .SETN TEMPN2 2 .SETN TEMPN4 1140 .DR01: .IFT $SAVED .IFF REPEAT .IFDF $'UNITC'DR'TEMPN' .GOTO DR10 .DR02: .SETS DEFX "RM03" .IFT $ACFDF .GOSUB UDEFS .ASKS $'UNITC'DR'TEMPN' 56. '$SF1' Contr 'TEMPN' unit 'TEMPN3.' is an RM02/03/05/80/RP07 [D: 'DEFX'] .SETF PRISMI .IF $'UNITC'DR'TEMPN' EQ "" .SETS $'UNITC'DR'TEMPN' DEFX .DR10: .SETS TEMPS2 $'UNITC'DR'TEMPN' .IF TEMPS2 EQ "RM02" .OR .IF TEMPS2 EQ "" .OR .IF TEMPS2 EQ "RM03" .GOTO DR03 .SETN TEMPN2 3 .SETN TEMPN4 131656 .IF TEMPS2 EQ "RM80" .GOTO DR03 .SETN TEMPN2 7 .SETN TEMPN4 121240 .IF TEMPS2 EQ "RM05" .GOTO DR03 .SETN TEMPN2 10 .SETN TEMPN4 131504 .IF TEMPS2 EQ "RPXX" .GOTO DR03 .SETN TEMPN2 17 .SETN TEMPN4 60600 .IF TEMPS2 EQ "RP07" .GOTO DR03 .SETN TEMPN2 2 .SETN TEMPN4 1140 .GOTO DR02 .DR03: .IFT $SAVE .DATA .SETS $'UNITC'DR'TEMPN' "'TEMPS2'" .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DR'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 'TEMPN5.',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD''MBC' .WORD 'TEMPN2.' .WORD 'TEMPN4.' .WORD 512. .WORD $DR'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DRND=. .INC UNIT .INC UNITC .INC TEMPN3 .INC TEMPN5 .IF UNITC LT 'TEMPS' .GOTO DR30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DR20 .; .SETT ERRL .SETT MBUS .SETN NREG 20. .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETF MBUS .SETF ERRL .SETF MUPC .SETF DIAG .DR100: .; .;DS .; .IF DS EQ 0 .GOTO DS100 .SETN MSG 5 .SETS DEV "DS" .SETS DEF1 "204" .SETS DEF2 "172040" .SETS DEF4 "0" .SETT DEFX4 .SETN MAX4 177777 .SETN MAXN 4. .GOSUB GETANS .; .SETT DISK .SETT DIAG .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DSST=. .DS20: .SETS TEMPS A'TEMPN'$4 .SETN TEMPN5 'TEMPS' .SETS TEMPS A'TEMPN'$3 .SETN TEMPN3 0. .SETN UNITC 0 .DS30: .SETN TEMPN2 100000 .SETN TEMPN4 4000 .DS01: .IFT $SAVED .IFF REPEAT .IFDF $'UNITC'DS'TEMPN' .GOTO DS10 .DS02: .SETS DEFX "RS04" .IFT $ACFDF .GOSUB UDEFS .ASKS $'UNITC'DS'TEMPN' 57.'$SF1' Contr 'TEMPN' unit 'TEMPN3.' is an RS03/RS04 [D: 'DEFX'] .SETF PRISMI .IF $'UNITC'DS'TEMPN' EQ "" .SETS $'UNITC'DS'TEMPN' DEFX .DS10: .SETS TEMPS2 $'UNITC'DS'TEMPN' .IF TEMPS2 EQ "" .OR .IF TEMPS2 EQ "RS04" .GOTO DS03 .IF TEMPS2 NE "RS03" .GOTO DS02 .SETN TEMPN2 0 .SETN TEMPN4 2000 .DS03: .IFT $SAVE .DATA .SETS $'UNITC'DS'TEMPN' "'TEMPS2'" .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DS'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 'TEMPN5.',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD''MBC' .WORD 'TEMPN2.' .WORD 'TEMPN4.' .WORD 512. .WORD $DS'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DSND=. .INC UNIT .INC UNITC .INC TEMPN3 .INC TEMPN5 .IF UNITC LT 'TEMPS' .GOTO DS30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DS20 .; .SETT ERRL .SETT MBUS .SETN NREG 12. .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETF MBUS .SETF ERRL .SETF MUPC .SETF DIAG .DS100: .; .;DT .; .IF DT EQ 0 .GOTO DT100 .SETN MSG 3 .SETS DEV "DT" .SETS DEF1 "214" .SETS DEF2 "177342" .SETN MAXN 3. .GOSUB GETANS .; .SETT DISK .SETT DIAG .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DTST=. .DT20: .SETS TEMPS A'TEMPN'$3 .SETN UNITC 0 .DT30: .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DT'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!1,US.MNT .BYTE 'UNITC',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD' .WORD 0 .WORD 578. .WORD 512. .WORD $DT'TEMPN' .WORD 0,0,0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DTND=. .INC UNIT .INC UNITC .IF UNITC LT 'TEMPS' .GOTO DT30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DT20 .; .SETT ERRL .SETT NPRD .SETN NREG 5. .SETN IPRI 6. .SETN ITOC 7. .SETN ROFS 376 .GOSUB SCB .SETN ROFS 0. .SETN ITOC 2. .SETN IPRI 5. .SETF NPRD .SETF ERRL .SETF MUPC .SETF DIAG .DT100: .; .;DU .; .IF DU EQ 0 .GOTO DU100 .SETN MSG 31 .SETS DEV "DU" .SETS DEF1 "154" .SETS DEF2 "172150" .SETS DEF4 "4" .SETS DEF5 "4" .SETN MAXN 5. .SETT DEC5 .SETN MIN4 1 .SETN MIN5 1 .SETN MAX3 4. .SETN MAX4 8. .SETN MAX5 8. .SETT DEFX4 .SETT DEFX5 .SETT RANGE5 .GOSUB GETANS .SETF RANGE5 .SETN MAX5 774 .SETN MAX3 8. .SETN MIN4 0 .SETN MIN5 0 .SETF DEC5 .; .SETT DISK .SETT DIAG .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DUST=. .DU20: .IF A'TEMPN'$4 EQ "3." .SETS A'TEMPN'$4 "4." .IF A'TEMPN'$4 GE "5." .IF A'TEMPN'$4 LE "8." .SETS A'TEMPN'$4 "8." .IF A'TEMPN'$5 EQ "3." .SETS A'TEMPN'$5 "4." .IF A'TEMPN'$5 GE "5." .IF A'TEMPN'$5 LE "8." .SETS A'TEMPN'$5 "8." .SETS TEMPS A'TEMPN'$4 .DATA #1 DU$C'TEMPN'='TEMPS' ;NUMBER OF RING COMMANDS FOR UDA .SETS TEMPS A'TEMPN'$5 .DATA #1 DU$R'TEMPN'='TEMPS' ;NUMBER OF RING RESPONSES FOR UDA .SETS TEMPS A'TEMPN'$3 .SETN UNITC 0 .DU30: .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DU'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 'UNIT',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD' .WORD 0 .WORD 0 .WORD 512. .WORD $DU'TEMPN' .WORD 0,0,0,0,0,0 .BLKW 32. .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DUND=. .INC UNIT .INC UNITC .IF UNITC LT 'TEMPS' .GOTO DU30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DU20 .; .SETT ERRL .SETT MBUS .SETN NREG 58. .SETN ITOC 2. .GOSUB SCB .SETN ITOC 2. .SETF MBUS .SETF ERRL .SETF MUPC .SETF DIAG .DU100: .; .;DX .; .IF DX EQ 0 .GOTO DX100 .SETN MSG 3 .SETS DEV "DX" .SETS DEF1 "264" .SETS DEF2 "177170" .SETN MAX3 2 .SETN MAXN 3. .GOSUB GETANS .SETN MAX3 8. .; .SETT DISK .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DXST=. .DX20: .SETS TEMPS A'TEMPN'$3 .SETN UNITC 0 .DX30: .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DX'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!1,US.MNT .BYTE 'UNITC',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD .WORD 0 .WORD 494. .WORD 512. .WORD $DX'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DXND=. .INC UNIT .INC UNITC .IF UNITC LT 'TEMPS' .GOTO DX30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DX20 .; .SETT ERRL .SETN NREG 4. .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETF ERRL .SETF MUPC .DX100: .; .;DY .; .IF DY EQ 0 .GOTO DY100 .SETN MSG 3 .SETS DEV "DY" .SETS DEF1 "264" .SETS DEF2 "177170" .SETN MAX3 2 .SETN MAXN 3. .GOSUB GETANS .SETN MAX3 8. .; .SETT DISK .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 DYST=. .DY20: .SETS TEMPS A'TEMPN'$3 .SETN UNITC 0 .SETN TEMPN3 0. .DY30: .IFT $SAVED .IFDF $'UNITC'DY'TEMPN' .IFF REPEAT .GOTO DY10 .DY02: .ASKS $'UNITC'DY'TEMPN' 58.'$SF1' Contr 'TEMPN' unit 'TEMPN3.' is SINGLE/DOUBLE density .SETF PRISMI .DY10: .SETS TEMPS2 $'UNITC'DY'TEMPN' .IF TEMPS2 NE "SINGLE" .IF TEMPS2 NE "DOUBLE" .GOTO DY02 .IFT $SAVE .DATA .SETS $'UNITC'DY'TEMPN' "'TEMPS2'" .SETN TEMPN1 4000 .SETN TEMPN2 988. .IF TEMPS2 EQ "SINGLE" .SETN TEMPN1 0 .IF TEMPS2 EQ "SINGLE" .SETN TEMPN2 494. .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .DY'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!1,US.MNT .BYTE 'UNITC',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD .WORD 'TEMPN1' .WORD 'TEMPN2.' .WORD 512. .WORD $DY'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 DYND=. .INC UNIT .INC UNITC .INC TEMPN3 .IF UNITC LT 'TEMPS' .GOTO DY30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO DY20 .; .SETT ERRL .SETT NPRD .SETN NREG 6. .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETF NPRD .SETF ERRL .SETF MUPC .DY100: .; .;EM .; .IF EM EQ 0 .GOTO EM100 .SETN MSG 3 .SETS DEV "EM" .SETS DEF2 "176400" .SETN MAXN 3. .SETN MAX3 8. .GOSUB GETANS .; .SETT DISK .SETT DIAG .SETT MUPC .GOSUB DCB .SETF DISK .; .DATA #2 EMST=. .EM20: .SETS TEMPS A'TEMPN'$3 .SETN UNITC 0 .EM30: .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .EM'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 'UNITC',0 .WORD DV.DIR!DV.MNT!DV.F11!DV.MSD'UMD''MBC' .WORD 0 .WORD 32768. .WORD 512. .WORD $EM'TEMPN' .WORD 0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 EMND=. .INC UNIT .INC UNITC .IF UNITC LT 'TEMPS' .GOTO EM30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO EM20 .; .SETT ERRL .SETT MBUS .SETN NREG 20. .SETN ITOC 4. .GOSUB SCB .SETN ITOC 2. .SETF MBUS .SETF ERRL .SETF MUPC .SETF DIAG .EM100: .SETS TEMPS "" .IF CT GT 0 .SETS TEMPS "CT" .IF MF GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF MF GT 0 .SETS TEMPS TEMPS+"MF" .IF MM GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF MM GT 0 .SETS TEMPS TEMPS+"MM" .IF MS GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF MS GT 0 .SETS TEMPS TEMPS+"MS" .IF MT GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF MT GT 0 .SETS TEMPS TEMPS+"MT" .ENABLE LOWERCASE .IF TEMPS EQ "" .SETS TEMPS "None specified" .DISABLE LOWERCASE .IFF PRISMI ; ; Tapes: 'TEMPS' ; .SETN MES 0 .SETT PRISMI .; .;CT .; .IF CT EQ 0 .GOTO CT100 .SETN MSG 1 .SETS DEV "CT" .SETS DEF1 "260" .SETS DEF2 "177500" .SETN MAXN 2. .GOSUB GETANS .; .SETS FUNMSK "160176,170,160000,0,7,0,1,6" .SETT MUPC .GOSUB DCB .; .DATA #2 CTST=. .CT20: .SETN UNITC 0 .CT30: .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .CT'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE 0,0 .BYTE 'UNITC',0 .WORD DV.REC!DV.SQD!DV.MSD .WORD 0 .WORD 0 .WORD 128. .WORD $CT'TEMPN' .WORD 0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 CTND=. .INC UNIT .INC UNITC .IF UNITC LT 2 .GOTO CT30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO CT20 .; .SETT ERRL .SETN NREG 2. .SETN IPRI 6. .SETN ITOC 64. .GOSUB SCB .SETN ITOC 2. .SETN IPRI 5. .SETF ERRL .SETF MUPC .CT100: .; .;MF .; .IF MF EQ 0 .GOTO MF100 .SETN MSG 3 .SETS DEV "MF" .SETN MAXN 3. .SETS DEF1 "260" .SETS DEF2 "175400" .GOSUB GETANS .; .SETS FUNMSK "171177,170,10000,161000,537,0,0,537" .SETS ALTMSK "120177,170,160000,0,7,0,1,6" .SETT TAPE .SETT DIAG .SETT MUPC .GOSUB DCB .SETF TAPE .; .DATA #2 MFST=. .MF20: .SETN UNITC 0 .SETN TEMPN3 0. .SETS TEMPS A'TEMPN'$3 .MF30: .IFT $SAVED .IFF REPEAT .IFDF $'UNITC'MF'TEMPN' .GOTO MF10 .SETS DEFX "0" .IFT $ACFDF .GOSUB UDEFS .SETN DEFN 'DEFX' .ASKN [0:3:'DEFN'] $'UNITC'MF'TEMPN' 59.'$SF1' MF controller 'TEMPN' unit 'TEMPN3.' formatter .SETF PRISMI .MF10: .SETN TEMPN4 $'UNITC'MF'TEMPN' .IFT $SAVE .DATA .SETN $'UNITC'MF'TEMPN' 'TEMPN4.' .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .MF'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 'UNITC',0 .WORD DV.REC!DV.SQD!DV.MSD'UMD''MBC''ANM' .WORD 0 .BYTE UD.625,UD.160 .WORD 512. .WORD $MF'TEMPN' .WORD 0,0,0,0,0,0,'TEMPN4.' .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 MFND=. .INC UNIT .INC UNITC .INC TEMPN3 .IF UNITC LT 'TEMPS' .GOTO MF30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO MF20 .; .SETT ERRL .SETT MBUS .SETN NREG 54. .SETN ITOC 2. .GOSUB SCB .SETN ITOC 2. .SETF MBUS .SETF ERRL .SETF MUPC .SETF DIAG .MF100: .; .;MM .; .IF MM EQ 0 .GOTO MM100 .SETN MSG 3 .SETS DEV "MM" .SETN MAXN 3. .SETS DEF1 "224" .SETS DEF2 "172440" .GOSUB GETANS .; .SETS FUNMSK "171177,170,10000,161000,537,0,0,537" .SETS ALTMSK "120177,170,160000,0,7,0,1,6" .SETT TAPE .SETT DIAG .SETT MUPC .GOSUB DCB .SETF TAPE .; .DATA #2 MMST=. .MM20: .SETN UNITC 0 .SETN TEMPN3 0. .SETS TEMPS A'TEMPN'$3 .MM30: .IFT $SAVED .IFF REPEAT .IFDF $'UNITC'MM'TEMPN' .GOTO MM10 .SETS DEFX "0" .IFT $ACFDF .GOSUB UDEFS .SETN DEFN 'DEFX' .ASKN [0:7:'DEFN'] $'UNITC'MM'TEMPN' 51.'$SF1' MM controller 'TEMPN' unit 'TEMPN3.' formatter .SETF PRISMI .MM10: .SETN TEMPN4 $'UNITC'MM'TEMPN' .IFT $SAVE .DATA .SETN $'UNITC'MM'TEMPN' 'TEMPN4.' .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .MM'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 'UNITC',0 .WORD DV.REC!DV.SQD!DV.MSD'UMD''MBC''ANM' .WORD 4 .BYTE UD.800,UD.160 .WORD 512. .WORD $MM'TEMPN' .WORD 0,0,0,0,0,0,0,'TEMPN4.',0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 MMND=. .INC UNIT .INC UNITC .INC TEMPN3 .IF UNITC LT 'TEMPS' .GOTO MM30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO MM20 .; .SETT ERRL .SETT MBUS .SETN NREG 14. .SETN ITOC 5. .GOSUB SCB .SETN ITOC 2. .SETF MBUS .SETF ERRL .SETF MUPC .SETF DIAG .MM100: .; .;MS .; .IF MS EQ 0 .GOTO MS100 .SETN MSG 1 .SETS DEV "MS" .SETN MAXN 2. .SETS DEF1 "224" .SETS DEF2 "172522" .GOSUB GETANS .; .SETS FUNMSK "171177!UMD,170,10000,161000,537,0,0,537" .SETS ALTMSK "120177!UMD,170,160000,0,7,0,1,6" .SETT TAPE .SETT DIAG .SETT MUPC .GOSUB DCB .SETF TAPE .; .DATA #2 MSST=. .MS20: .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .MS'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF,US.MNT .BYTE 0,0 .WORD DV.REC!DV.SQD!DV.MSD'UMD''ANM' .WORD 0 .BYTE UD.UNS,UD.160 .WORD 512. .WORD $MS'TEMPN' .WORD 0,0,0,0,0,0 .WORD 0,0 .MSMB'TEMPN': .WORD 0,0,0,0,0,0,0,0,0,0,0,0,0 .WORD .MSMB'TEMPN' .WORD 0 .WORD 14. .WORD 240 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 MSND=. .INC UNIT .INC TEMPN .IF TEMPN LT NTEMPN .GOTO MS20 .; .SETT ERRL .SETT NPRD .SETN NREG 15. .SETN ITOC 5. .GOSUB SCB .SETN ITOC 2. .SETF NPRD .SETF ERRL .SETF MUPC .SETF DIAG .MS100: .; .;MT .; .IF MT EQ 0 .GOTO MT100 .SETN MSG 3 .SETS DEV "MT" .SETN MAXN 3. .SETS DEF1 "224" .SETS DEF2 "172522" .GOSUB GETANS .; .SETS FUNMSK "171177!UMD,170,10000,161000,537,0,0,537" .SETS ALTMSK "120177!UMD,170,160000,0,7,0,1,6" .SETT TAPE .SETT DIAG .SETT MUPC .GOSUB DCB .SETF TAPE .; .DATA #2 MTST=. .MT20: .SETN UNITC 0 .SETS TEMPS A'TEMPN'$3 .MT30: .IFT $ERL .DATA #2 .WORD 0,0 ; I/O COUNT .IFT $ERL .DATA #2 .BYTE 8.,5 ; S ERROR LIMIT, H ERROR LIMIT .IFT $ERL .DATA #2 .BYTE 0,0 ; S ERROR COUNT, H ERROR COUNT .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .MT'UNIT':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.NPR!UC.PWF!1,US.MNT .BYTE 'UNITC',0 .WORD DV.REC!DV.SQD!DV.MSD'UMD''ANM' .WORD 0 .BYTE UD.800,UD.UNS .WORD 512. .WORD $MT'TEMPN' .WORD 0,0,0,0,0,0,0 .DISABLE DATA #2 .IF UNIT EQ 0 .DATA #2 MTND=. .INC UNIT .INC UNITC .IF UNITC LT 'TEMPS' .GOTO MT30 .INC TEMPN .IF TEMPN LT NTEMPN .GOTO MT20 .; .SETT ERRL .SETT NPRD .SETN NREG 6. .SETN ITOC 5. .SETN ROFS 376 .GOSUB SCB .SETN ROFS 0. .SETN ITOC 2. .SETF NPRD .SETF ERRL .SETF MUPC .SETF DIAG .MT100: .; .SETS TEMPS "" .IF NL GT 0 .SETS TEMPS ", NL" .IFF PRISMI ; ; Non-physical (pseudo) devices: CO'TEMPS', TI, CL, LB, SY ; .SETN MES 0 .SETT PRISMI .; .;CO .; .SETF $TMS .IF CO EQ 0 .GOTO CO100 .SETN MSG 22 .SETS DEV "CO" .SETN MAXN 1. .SETN MIN1 0 .SETS DEF1 "0" .;.GOSUB GETANS .IFT $LOD .GOSUB PRMBLD .SET'$LOD' LOD .SETS A0$1 "0" .SETN MIN1 60 .SETT $TMS .SETS REDTT A0$1 .SETS A0$1 "0" .SETS A0$2 "0" .; .SETS FUNMSK "160037,30,160030,0,7,0,1,6" .SETF INTR .GOSUB DCB .; .DATA #2 COST=. .IFT $ACL .DATA #2 .WORD 0 .IFF $ACL .IFT $NET .DATA #2 .WORD $MCRPT .IFT $ACL .OR .IFT $NET .OR .IFT $MUP .DATA #2 .WORD 0 .IFT $ACL .OR .IFT $NET .OR .IFT $MUP .DATA #2 .WORD 0 .ENABLE DATA #2 .CO0:: .WORD .DC'$DCBN' .WORD .TT'REDTT' .BYTE UC.QUE!UC.KIL,US.BSY .BYTE 0,0 .WORD DV.REC!DV.CCL!DV.TTY .WORD U2.LOG .WORD 0 .WORD 256. .WORD $CO0 .IF DF T$$CPW .WORD 0,0,0,0,0,0,12.,1,0,100200,0,0 .IFF ;T$$CPW .WORD 0,0,0,0,0,0,0,0,0,100200,$BTMSK+1,0,0,0 .IIF DF T$$ACR!T$$BTW!T$$CCA!T$$CCO!T$$ESC!T$$HLD, T1=0 .IF DF T1!T$$RPR!T$$SYN!T$$TRW!T$$UTB!T$$30P .WORD 0 .ENDC .IF DF T$$CCA&A$$TRP .WORD 0 .ENDC .IF DF T$$ESC .WORD 0 .ENDC .ENDC ;T$$CPW COND=. .DISABLE DATA #2 .; .SETN ITOC 4 .SETS A0$2 "4" .SETN IPRI 0 .SETF INTR .SETT PDEV .GOSUB SCB .SETF PDEV .SETT INTR .SETN ITOC 2 .SETN IPRI 5 .CO100: .; .;TT .; .SETF DLE .SETF DEC1 .SETF DEC2 .SETN MIN1 60 .SETN MAX1 774 .SETN MIN2 160000 .SETN MAX2 177700 .SETN MIN3 1 .SETN MAX3 8. .SETN $NYL YL .SETN $NYH YH .SETN $NYZ YZ .SETN $NYJ YJ .; .SETS TEMPS "" .IF YL GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF YL GT 0 .SETS TEMPS TEMPS+"YL" .IF YH GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF YH GT 0 .SETS TEMPS TEMPS+"YH" .IF YZ GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF YZ GT 0 .SETS TEMPS TEMPS+"YZ" .IF YJ GT 0 .IF TEMPS NE "" .SETS TEMPS TEMPS+", " .IF YJ GT 0 .SETS TEMPS TEMPS+"YJ" .ENABLE LOWERCASE .IF TEMPS EQ "" .SETS TEMPS "None specified" .DISABLE LOWERCASE .IFF PRISMI ; ; Terminal interface devices: 'TEMPS' ; .; .;DL (PORTRAY DEVICE AS YL SO AS TO AVOID CONFUSION WITH DISK OF SAME NAME) .; .IF YL EQ 0 .GOTO YL100 .SETS DEV "YL" .SETN MSG 25 .SETN MAXN 3. .SETF RANGE3 .SETS DEF1 "60" .SETS DEF2 "177560" .SETS DEF3 "NO" .SETT DEFX3 .SETT ASKLOD .IFT $FUD .SETF ASKLOD .IFT $FUD .SETT LOD .GOSUB GETANS .IFT $FUD .SETT LOD .SET'LOD' $LTT .SETT ASKLOD .SETT RANGE3 .; .SETN TEMPN 0 .DALE1: .SETS $'TEMPN'YLV A'TEMPN'$1 .SETS $'TEMPN'YLC A'TEMPN'$2 .SETS TEMPS A'TEMPN'$1 .SETN TEMPN2 'TEMPS'+10 .IF $HIV LT TEMPN2 .SETN $HIV TEMPN2 .INC TEMPN .IF TEMPN LT YL .GOTO DALE1 .YL100: .; .;DH (CALL DH11'S YH) .; .IF YH EQ 0 .GOTO YH100 .SETN MSG 26 .SETS DEV "YH" .SETN MAXN 6. .SETN MIN1 200 .SETN MIN2 160010 .SETN MIN3 0 .SETN MAX3 15. .SETF RANGE4 .SETS DEF4 "300" .SETT DEFX4 .SETT RANGE5 .SETS DEF5 "0" .SETT DEFX5 .SETN MIN5 0 .SETS DEF6 "0" .SETT DEFX6 .SETT RANGE6 .SETF DEC6 .SETN MIN6 0 .SETN MAX6 177700 .SETF ASKLOD .GOSUB GETANS .SETT ASKLOD .SETF RANGE6 .SETF RANGE5 .SETT RANGE4 .SETN MIN3 1 .SETN MAX3 8. .SETN MIN1 60 .SETN MIN2 160000 .; .SETN TEMPN 0 .DALE2: .SETS $'TEMPN'YHV A'TEMPN'$1 .SETS TEMPS A'TEMPN'$1 .SETN TEMPN2 'TEMPS'+10 .IF $HIV LT TEMPN2 .SETN $HIV TEMPN2 .SETS $'TEMPN'YHC A'TEMPN'$2 .SETS $'TEMPN'YHL A'TEMPN'$3 .SETS $'TEMPN'YHS A'TEMPN'$4 .SETS $'TEMPN'DMV A'TEMPN'$5 .SETS TEMPS A'TEMPN'$5 .SETN TEMPN2 'TEMPS'+4 .IF $HIV LT TEMPN2 .SETN $HIV TEMPN2 .SETS $'TEMPN'DMC A'TEMPN'$6 .INC TEMPN .IF TEMPN LT YH .GOTO DALE2 .YH100: .; .;DJ (CALL DJ11'S YJ FOR TERMINALS) .; .IF YJ EQ 0 .GOTO YJ100 .SETN MSG 27 .SETS DEV "YJ" .SETN MAXN 3. .SETN MIN3 0 .SETN MAX3 15. .SETF ASKLOD .GOSUB GETANS .SETT ASKLOD .SETN MIN3 1. .SETN MAX3 8. .; .SETN TEMPN 0 .DALE3: .SETS $'TEMPN'YJV A'TEMPN'$1 .SETS TEMPS A'TEMPN'$1 .SETN TEMPN2 'TEMPS'+10 .IF $HIV LT TEMPN2 .SETN $HIV TEMPN2 .SETS $'TEMPN'YJC A'TEMPN'$2 .SETS $'TEMPN'YJL A'TEMPN'$3 .INC TEMPN .IF TEMPN LT YJ .GOTO DALE3 .YJ100: .; .;DZ (CALL DZ11'S YZ) .; .IF YZ EQ 0 .GOTO YZ100 .SETN MSG 30 .SETS DEV "YZ" .SETN MIN3 0 .SETN MAX3 7. .SETS DEF4 "300" .SETT DEFX4 .SETN MAXN 4. .SETF RANGE4 .SETF ASKLOD .GOSUB GETANS .SETT ASKLOD .SETN MIN3 0. .SETN MAX3 7. .SETT RANGE4 .; .SETN TEMPN 0 .SETS $'TEMPN'YZS A'TEMPN'$4 .DALE4: .SETS $'TEMPN'YZV A'TEMPN'$1 .SETS TEMPS A'TEMPN'$1 .SETN TEMPN2 'TEMPS'+10 .IF $HIV LT TEMPN2 .SETN $HIV TEMPN2 .SETS $'TEMPN'YZC A'TEMPN'$2 .SETS $'TEMPN'YZL A'TEMPN'$3 .INC TEMPN .IF TEMPN LT YZ .GOTO DALE4 .YZ100: .SETT ASKLOD .; .;PERFORM ACTUAL TABLE BUILDING .; @'$EXC'['$SGNUC']SGNTT .TT100: .IFT $XPRES .GOTO EOS1 .EOS2: ; .ASKS CONT EOS * Do you want to: -continue R-repeat section E-exit P-pause .IF CONT EQ "" .GOTO EOS1A .IF CONT EQ "R" .GOTO EOS4 .IF CONT EQ "E" .GOTO REN1 .IF CONT EQ "P" .PAUSE .GOTO EOS2 .REN1: .SETT $ABORT .GOTO 99901 .EOS4: .SETT REPEAT ; SGN -- Repetition on the peripherals section is not possible at this time ; .ASK TEMPL '$SF1'Do you wish to continue with this SYSGEN .IFT TEMPL .GOTO EOS1 .IFF $SAVE .GOTO MIKEH ; ; SGN -- We will exit so that you can edit your saved answer file to ; remove the answers with the mistakes. When the edits are ; complete, restart SYSGEN. It will take between one to five ; minutes to get to the Peripheral section. Here SYSGEN will ; reask the questions who's answers you have deleted from the ; saved answer file. ; .IFF $MLH SET /UIC=['$DFUIC'] .CLOSE .MIKEH: .CLOSE #1 .CLOSE #2 .CLOSE #3 / .EOS1A: ; .EOS1: .; .; .;NL .; .NL: .IF NL EQ 0 .GOTO NL100 .SETS A0$1 "0" .SETS A0$2 "4" .SETS DEV "NL" .SETF LDRV .SETS FUNMSK "161037,0,160031,0,7,0,1,6" .SETF INTR .SETN ITOC 0 .SETF LOD .GOSUB DCB .SETN ITOC 2 .; .ENABLE DATA #2 PR0=0 NLST=. .IF DF M$$MUP .WORD 0 .ENDC .NL0:: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.QUE,0 .BYTE 0,0 .WORD DV.REC .WORD 0 .WORD 0 .WORD 72. .WORD $NL0 .WORD 0,0,0,0 NLND=. .DISABLE DATA #2 .SETT PDEV .SETN IPRI 0 .GOSUB SCB .SETN IPRI 5 .SETF PDEV .SETT INTR .ENABLE DATA #2 .IF DF LD$NL .WORD 0,0,0,0 .IF DF L$$DRV & M$$MGE .WORD 0 .ENDC .ENDC .DISABLE DATA #2 .; .NL100: .; .;TI, CO, CL, LB, AND SY .; .ENABLE DATA #2 ; ; DATA BASE FOR PSEUDO DEVICES ; .DISABLE DATA #2 .IFNDF SYDISK .SETS SYDISK "NL" .SETS TTX "TT" .IF YL EQ 0 .IF YH EQ 0 .IF YZ EQ 0 .IF YJ EQ 0 .SETS TTX "NL" .; .SETS DEV "TI" .SETS ACTDEV "TI" .GOSUB PSEDEV .; .IF CO GT 0 .GOTO PCO100 .SETS DEV "CO" .SETS ACTDEV TTX .GOSUB PSEDEV .PCO100: .; .SETS DEV "CL" .SETS ACTDEV TTX .GOSUB PSEDEV .; .SETS DEV "LB" .SETS ACTDEV SYDISK .GOSUB PSEDEV .; .SETS DEV "SY" .SETS ACTDEV SYDISK .GOSUB PSEDEV .; .;ADJUST HIGHEST VECTOR IF NOT CORRECT .; .IF $HIV LT 400 .SETN $HIV 400 .IFF PRISMI ; ; End of interrupt vector area has been set to '$HIV.' ; .IFT $SAVE .DATA .SETN $HIV '$HIV.' .; .;INSERT IN RSXMC.MAC FINAL PERIPHERAL-RELATED EXECUTIVE FLAGS .; .DATA #1 V$$CTR='$HIV.' ;HIGHEST INTERRUPT VECTOR .IFT KMP .DATA #1 L$$KPC='KMK.' ;KMC11 POLLING COUNT .IFT UAD .IFF $PTW .DATA #1 P$$WRD=0 ;INCLUDE $PTWRD CODE .IFT UAD .DATA #1 U$$ACH='UAK.' ;NUMBER OF CHANNELS PER MODULE .IFT UAD .DATA #1 U$$ADM='UDD0.'+'UDD1.' ;ADU01/IAD-IA ANALOG INPUT .IFT UAO .DATA #1 U$$AOM='UDD2.' ;ANALOG OUTPUT .IFT UCI .DATA #1 U$$CIM='UDD3.' ;DIGITAL INTERRUPT .IFT UCS .DATA #1 U$$CSM='UDD4.' ;DIGITAL SENSE .IFT ULT .DATA #1 U$$LTM='UDD5.' ;BI-STABLE OUTPUT .IFT USS .DATA #1 U$$SSM='UDD6.' ;SINGLE SHOT OUTPUT .IFT UTI .DATA #1 U$$TIM='UDD7.' ;I/O COUNTER .IFT FPR .DATA #1 L$$11R=0 ;FAST PRINTER SUPPORT .IFT RJO .DATA #1 R$$JPO=0 ;RP04/05/06 OFFSET RECOVERY SUPPORT .IFT R6O .DATA #1 R$$6OF=0 ;RK06 OFFSET RECOVERY SUPPORT .IFT R3O .DATA #1 R$$MOF=0 ;RM03 OFFSET RECOVERY SUPPORT .IFT VT1 .DATA #1 V$$T11=0 ;VT11 GRAPHICS DISPLAY SUBSYSTEM .IFT VS6 .DATA #1 V$$S60=0 ;VS60 GRAPHICS DISPLAY SUBSYSTEM .IFT V62 .DATA #1 V$$S2S=0 ;VS60 DRIVES 2 CRT MONITORS .IFT DRQ .DATA #1 Q$$CRC=0 ;DQ11 CRC OPTION SUPPORT .IFT DQP .DATA #1 Q$$HPT=0 ;DQ11 PROTOCOL OPTION SUPPORT .IFT ARD .DATA #1 A$$RDA=0 ;AR11 D/A OPTION .IFT UPA .DATA #1 U$$NIP=0 ;AR11 UNI-POLAR A/D SAMPLING .IFT DRK .DATA #1 D$$R11=0 ;DR11-K OPTION PRESENT .IFT GRO .DATA #1 L$$SGR=0 ;LPS11 GAIN RANGING OPTION .IFT LBF .DATA #1 L$$SBF=0 ;LPS11 BANDWIDTH FILTERING .IFT LDA .DATA #1 L$$SDA=0 ;LPS11 D/A OPTION .IFT DRA .DATA #1 L$$SDR=0 ;LPSDR-A PRESENT .IFT DLE .DATA #1 D$$LMD=0 ;DL11-E MODEM SUPPORT .GOTO 99901 .; .; SEARCH ACFANS FILE FOR UNITS DEFAULTS .; .UDEFS: .CLOSE #0 .OPENR #0 ['$SGNUC']ACFANS.CMD .UDEF10: .READ #0 ACFSTR .IFT .GOTO UDONE .PARSE ACFSTR " " S1 S2 S3 .IF S2 NE "''A'''UNITC''DEV''TEMPN'" .GOTO UDEF10 .TEST S3 .IF LE 2 .GOTO UDEF20 .SETN N1 .DEC N1 .SETS S3 S3[2:N1] .UDEF20: .SETS DEFX S3 .UDONE: .CLOSE #0 .OPENA #0 '$SAO' .RETURN .; .; DISPLAY QUESTION .; .GETANS: .SETN N 0 .SETN NN 0. .SETS DEFX "" .SETF NEWDEV .IF DEV NE OLDDEV .SETT NEWDEV .ANSGET: .SETF NODEFS .IFT $SAVED .IFF REPEAT .IFDF $$'DEV''NN' .GOTO PARZ6 .; .;PRINT OUT PROMPT IF NECESSARY AND COMPUTE DEFAULT STRING .; .PROM1: .IF MES NE 0 .IFT NEWDEV ; .SETF NEWDEV .IF MES EQ MSG .GOTO 100 .SETS LDBSTT LDBSTR .IFF ASKLOD .SETS LDBSTR "" .GOTO ZZ'MSG' .ZZ1: ; Enter 'LDBSTR'vector, CSR for: .GOTO ZZ0 .ZZ2: ; Enter 'LDBSTR'vector, CSR, number of drives, unit number of first drive, ; [O=offset recovery support/NO=no support] for: .GOTO ZZ0 .ZZ3:.IF DEV NE "DK" .GOTO ZZ3A ; ; For the third parameter of the next question, enter the number ; of RK05 drives your target system has. Realize that an RK05F ; is a fixed media RK05 drive equivalent to two removable RK05 ; drives. Specify every RK05F as two RK05s. ; .ZZ3A:; Enter 'LDBSTR'vector, CSR, number of drives for: .GOTO ZZ0 .ZZ4: ; Enter 'LDBSTR'vector, CSR, F=full duplex/H=half duplex, ; E=error detec. unit/NO=no, C=char. detec unit/NO=no, ; number of sync characters in leader for: .GOTO ZZ0 .ZZ5: ; Enter 'LDBSTR'vector, CSR, number of drives, unit number of first drive for: .GOTO ZZ0 .ZZ7: ; Enter vector, CSR, VT11/VS60, number of CRT monitors for: .GOTO ZZ0 .ZZ10: ; Enter 'LDBSTR'CSR, number of A/D channels for: .GOTO ZZ0 .ZZ11: ; Enter 'LDBSTR'vector, CSR, number of A/D channels for: .GOTO ZZ0 .ZZ12: ; Enter 'LDBSTR'clock vector, CSR, polarity mask, D=D/A channel/NO=no, ; maximum number of samples/second, DRK=DR11-K/NO=no, ; (,DR11-K CSR) for: .GOTO ZZ0 .ZZ13: ; Enter 'LDBSTR'clock vector, CSR, # A/D channels, G=gain ranging option/NO=no, ; polarity mask, bandwidth filter channel select delay, ; number of D/A channels, D=digital I/O option/NO=no, ; maximum number of samples/second for: .GOTO ZZ0 .ZZ14: ; Enter 'LDBSTR'vector, CSR (, number of UMRs) for: .GOTO ZZ0 .ZZ15: ; Enter 'LDBSTR'vector, CSR, # drives, O=offset recovery/NO=no offset rec. for: .GOTO ZZ0 .ZZ16: ; Enter 'LDBSTR'vector, CSR, F=full duplex/H=half duplex, ; number of characters in sync leader for: .GOTO ZZ0 .ZZ17: ; Enter 'LDBSTR'vector, CSR, F=full duplex/H=half duplex/P=primary HDX for: .GOTO ZZ0 .ZZ20: ; Enter 'LDBSTR'vector, CSR, printer option ; (,[KMC timeout count <0=no KMC>, KMC vector, KMC CSR]) for: .GOTO ZZ0 .ZZ21: ; Enter number of modules, module number of first for: .GOTO ZZ0 .ZZ22: ; Enter 'LDBSTR'terminal number to redirect to (TTn:) for: .GOTO ZZ0 .ZZ25: ; Enter 'LDBSTR'vector, CSR, E=DL11-E modem support/NO=no for: .GOTO ZZ0 .ZZ26: ; Enter vector, CSR, highest line number <0 to 15> ; (,answer speed, DM11-BB vector, DM11-BB CSR) for: .GOTO ZZ0 .ZZ27: ; Enter vector, CSR, highest line number <0 to 15> for: .GOTO ZZ0 .ZZ30: ; Enter vector, CSR, highest line number <0 to 7> [, answer speed] for: .GOTO ZZ0 .ZZ31: ; Enter 'LDBSTR'vector, CSR, number of drives, number of command rings, ; number of response rings for: .GOTO ZZ0 .ZZ0: ; .SETS LDBSTR LDBSTT .SETN MES MSG .; .;COMPUTE DEFAULT STRING .; .100: .IFNDF $A'DEV''NN' .GOTO CDONE .PARSE $A'DEV''NN' "," S1 S2 S3 S4 S5 S6 S7 S8 S9 .IF S1 NE "" .SETS DEF1 S1 .IF S2 NE "" .SETS DEF2 S2 .IF S3 NE "" .SETS DEF3 S3 .IF S4 NE "" .SETS DEF4 S4 .IF S5 NE "" .SETS DEF5 S5 .IF S6 NE "" .SETS DEF6 S6 .IF S7 NE "" .SETS DEF7 S7 .IF S8 NE "" .SETS DEF8 S8 .IF S9 NE "" .SETS DEF9 S9 .SETF NODEFS .CDONE: .; .IFT NODEFS .GOTO NODEF .SETS DEFX "" .GOTO ZZ'MAXN' .ZZ9: .IF DEF9 EQ "" .GOTO ZZ8 .SETS DEFX DEF9 .ZZ8: .IF DEFX NE "" .SETS DEFX ","+DEFX .IF DEF8 EQ "" .GOTO ZZ7 .SETS DEFX DEF8+DEFX .ZZ7: .IF DEFX NE "" .SETS DEFX ","+DEFX .IF DEF7 EQ "" .GOTO ZZ6 .SETS DEFX DEF7+DEFX .ZZ6: .IF DEFX NE "" .SETS DEFX ","+DEFX .IF DEF6 EQ "" .GOTO ZZ5 .SETS DEFX DEF6+DEFX .ZZ5: .IF DEFX NE "" .SETS DEFX ","+DEFX .IF DEF5 EQ "" .GOTO ZZ4 .SETS DEFX DEF5+DEFX .ZZ4: .IF DEFX NE "" .SETS DEFX ","+DEFX .IF DEF4 EQ "" .GOTO ZZ3 .SETS DEFX DEF4+DEFX .ZZ3: .IF DEFX NE "" .SETS DEFX ","+DEFX .IF DEF3 EQ "" .GOTO ZZ2 .SETS DEFX DEF3+DEFX .ZZ2: .IF DEFX NE "" .SETS DEFX ","+DEFX .IF DEF2 EQ "" .GOTO ZZ1 .SETS DEFX DEF2+DEFX .ZZ1: .IF DEFX NE "" .SETS DEFX ","+DEFX .IF DEF1 EQ "" .GOTO PADD .SETS DEFX DEF1+DEFX .PADD: .SETS DEFS DEFX .IF DEFX EQ "" .GOTO NODEF .IF DEFX NE "" .SETS DEFX "[D: "+DEFX+"]" .SETN HASN 28. .IF NN GE 10. .SETN HASN 27. .PAD: .TEST DEFX .IF GE HASN .GOTO DEFXX .SETS DEFX DEFX+" " .GOTO PAD .NODEF: .SETS DEFX " " .IF NN GE 10. .SETS DEFX " " .; .;ACQUIRE RESPONSE .; .DEFXX: .IF MES NE MSG .GOTO PROM1 .ONERR 99900 .IF MSG NE 21 .GOTO ANS02 .ANS03: .ENABLE LOWERCASE .SETS TEMPS UDMOD'N' .DISABLE LOWERCASE .SETS TEMPS2 UDSPA'N' .SETN HASN MSG+0. .ASKS $$UDX'NN' 'HASN.''$SF1' UD controller 0 'TEMPS' module'TEMPS2' .SETF PRISMI .GOTO PARZ6 .ANS02: .SETS HAS "" .IF MSG LT 10. .SETS HAS " " .SETN HASN MSG+0. .ASKS $$'DEV''NN' 'HAS''HASN.''$SF1' 'DEV' controller 'NN' 'DEFX' .; .; INSERT DEFAULTS INTO RESPONSE STRING .; .IFT NODEFS .GOTO ANS05 .IF $$'DEV''NN' NE "" .GOTO ANS02A .SETS $$'DEV''NN' DEFS .GOTO ANS05 .ANS02A: .PARSE $$'DEV''NN' "," S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 .SETN SCNT 1. .SETN DCNT 1. .SETS TEMPS "" .IF S1 EQ "L" .OR .IF S1 EQ "R" .SETS TEMPS S1 .IF TEMPS NE "" .INC SCNT .ANS04: .IF SCNT NE 1. .SETS TEMPS TEMPS+"," .IFNDF DEF'DCNT' .GOTO ANS04A .IF S'SCNT' EQ "" .SETS TEMPS TEMPS+DEF'DCNT' .ANS04A: .IF S'SCNT' NE "" .SETS TEMPS TEMPS+S'SCNT' .INC SCNT .INC DCNT .IF DCNT LE MAXN .GOTO ANS04 .SETS $$'DEV''NN' TEMPS .ANS05: .SETF PRISMI .; .;PARSE RESPONSE .; .PARZ6: .IF N EQ 0 .IFT ASKLOD .SET'$LLD' LOD .SETN NPARM 0. .GOTO ZZ'MAXN' .ZZ9: .SETS A'N'$9 "" .ZZ8: .SETS A'N'$8 "" .ZZ7: .SETS A'N'$7 "" .ZZ6: .SETS A'N'$6 "" .ZZ5: .SETS A'N'$5 "" .ZZ4: .SETS A'N'$4 "" .ZZ3: .SETS A'N'$3 "" .ZZ2: .SETS A'N'$2 "" .ZZ1: .SETS A'N'$1 "" .SETS TEMPS $$'DEV''NN' .SETN NCHAR 0 .TEST TEMPS .PARZ4: .INC NPARM .IF NPARM LE MAXN .GOTO PARZ3 .INC NCHAR .IF NCHAR GT .GOTO PARZ1 .PARZ7: .SETS TEMPS2 TEMPS['NCHAR':] ; SGN -- Illegal trailing characters or extra parameters "'TEMPS2'" -- RETRY .GOTO DEFXX .PARZ3: .INC NCHAR .IF NCHAR GT .GOTO PARZ1 .SETS TEMPS2 TEMPS['NCHAR':'NCHAR'] .IF TEMPS2 EQ "," .GOTO PARZ2 .IFF RANGE'NPARM' .GOTO PARZ3A .IF NPARM NE 1 .OR .IF N NE 0 .OR .IF A0$1 NE "" .GOTO PARZ3B .IF TEMPS2 EQ "L" .OR .IF TEMPS2 EQ "R" .GOTO PARZ3A .PARZ3B: .SETS TEMPS3 "9" .IFF DEC'NPARM' .SETS TEMPS3 "7" .IF TEMPS2 GE "0" .IF TEMPS2 LE TEMPS3 .GOTO PARZ3A ; SGN -- Illegal character in numeric response -- RETRY .GOTO DEFXX .PARZ3A: .SETS A'N'$'NPARM' A'N'$'NPARM'+TEMPS2 .GOTO PARZ3 .; .;END OF PARAMETER PROCESSING -- CHECK FOR LOADABLE/RESIDENT INDICATION .; .PARZ2: .IF NPARM NE 1 .OR .IF N NE 0 .GOTO PARZ5 .IF A0$1 NE "L" .IF A0$1 NE "R" .GOTO PARZ5 .IFT ASKLOD .GOTO PARZ2A ; SGN -- Loadable/Resident indication not valid for this device -- RETRY .GOTO DEFXX .PARZ2A: .IFT $LOD .GOTO PARZ2B ; SGN -- Loadable driver support was not selected in the Executive ; section of SYSGEN. Device cannot be made loadable -- RETRY .GOTO DEFXX .PARZ2B: .IF A0$1 EQ "R" .SETF LOD .IF A0$1 EQ "L" .SETT LOD .DEC NPARM .SETS A0$1 "" .GOTO PARZ4 .PARZ5: .GOTO PARZ4 .; .;APPLY DEFAULTS AND CONVERT TO DECIMAL .; .PARZ1: .GOTO ZZ'MAXN' .ZZ9: .SETN NONN 9. .IF A'N'$9 EQ "" .IF DEF9 EQ "" .GOTO NODEF1 .IF A'N'$9 EQ "" .SETS A'N'$9 DEF9 .IFT RANGE9 .IFT DEC9 .SETS A'N'$9 A'N'$9+"." .ZZ8: .SETN NONN 8. .IF A'N'$8 EQ "" .IF DEF8 EQ "" .GOTO NODEF1 .IF A'N'$8 EQ "" .SETS A'N'$8 DEF8 .IFT RANGE8 .IFT DEC8 .SETS A'N'$8 A'N'$8+"." .ZZ7: .SETN NONN 7 .IF A'N'$7 EQ "" .IF DEF7 EQ "" .GOTO NODEF1 .IF A'N'$7 EQ "" .SETS A'N'$7 DEF7 .IFT RANGE7 .IFT DEC7 .SETS A'N'$7 A'N'$7+"." .ZZ6: .SETN NONN 6 .IF A'N'$6 EQ "" .IF DEF6 EQ "" .GOTO NODEF1 .IF A'N'$6 EQ "" .SETS A'N'$6 DEF6 .IFT RANGE6 .IFT DEC6 .SETS A'N'$6 A'N'$6+"." .ZZ5: .SETN NONN 5 .IF A'N'$5 EQ "" .IF DEF5 EQ "" .GOTO NODEF1 .IF A'N'$5 EQ "" .SETS A'N'$5 DEF5 .IFT RANGE5 .IFT DEC5 .SETS A'N'$5 A'N'$5+"." .ZZ4: .SETN NONN 4 .IF A'N'$4 EQ "" .IF DEF4 EQ "" .GOTO NODEF1 .IF A'N'$4 EQ "" .SETS A'N'$4 DEF4 .IFT RANGE4 .IFT DEC4 .SETS A'N'$4 A'N'$4+"." .ZZ3: .SETN NONN 3 .IF A'N'$3 EQ "" .IF DEF3 EQ "" .GOTO NODEF1 .IF A'N'$3 EQ "" .SETS A'N'$3 DEF3 .IFT RANGE3 .IFT DEC3 .SETS A'N'$3 A'N'$3+"." .ZZ2: .SETN NONN 2 .IF A'N'$2 EQ "" .IF DEF2 EQ "" .GOTO NODEF1 .IF A'N'$2 EQ "" .SETS A'N'$2 DEF2 .IFT RANGE2 .IFT DEC2 .SETS A'N'$2 A'N'$2+"." .ZZ1: .SETN NONN 1 .IF A'N'$1 EQ "" .IF DEF1 EQ "" .GOTO NODEF1 .IF A'N'$1 EQ "" .SETS A'N'$1 DEF1 .IFT RANGE1 .IFT DEC1 .SETS A'N'$1 A'N'$1+"." .; .;DO RANGE CHECKING .; .ONERR BADNUM .GOTO ZZ'MAXN' .ZZ9: .SETS TEMPS A'N'$9 .IFF RANGE9 .GOTO ZZ8 .IF MAX9 GE 'TEMPS' .IF MIN9 LE 'TEMPS' .GOTO ZZ8 ; SGN -- Parameter (#9) "'TEMPS'" out of range 'MIN9' to 'MAX9' -- RETRY .GOTO DEFXX .ZZ8: .SETS TEMPS A'N'$8 .IFF RANGE8 .GOTO ZZ7 .IF MAX8 GE 'TEMPS' .IF MIN8 LE 'TEMPS' .GOTO ZZ7 ; SGN -- Parameter (#8) "'TEMPS'" out of range 'MIN8' to 'MAX8' -- RETRY .GOTO DEFXX .ZZ7: .SETS TEMPS A'N'$7 .IFF RANGE7 .GOTO ZZ6 .IF MAX7 GE 'TEMPS' .IF MIN7 LE 'TEMPS' .GOTO ZZ6 ; SGN -- Parameter (#7) "'TEMPS'" out of range 'MIN7' to 'MAX7' -- RETRY .GOTO DEFXX .ZZ6: .SETS TEMPS A'N'$6 .IFF RANGE6 .GOTO ZZ5 .IF MAX6 GE 'TEMPS' .IF MIN6 LE 'TEMPS' .GOTO ZZ5 ; SGN -- Parameter (#6) "'TEMPS'" out of range 'MIN6' to 'MAX6' -- RETRY .GOTO DEFXX .ZZ5: .SETS TEMPS A'N'$5 .IFF RANGE5 .GOTO ZZ4 .IF MAX5 GE 'TEMPS' .IF MIN5 LE 'TEMPS' .GOTO ZZ4 ; SGN -- Parameter (#5) "'TEMPS'" out of range 'MIN5' to 'MAX5' -- RETRY .GOTO DEFXX .ZZ4: .SETS TEMPS A'N'$4 .IFF RANGE4 .GOTO ZZ3 .IF MAX4 GE 'TEMPS' .IF MIN4 LE 'TEMPS' .GOTO ZZ3 ; SGN -- Parameter (#4) "'TEMPS'" out of range 'MIN4' to 'MAX4' -- RETRY .GOTO DEFXX .ZZ3: .SETS TEMPS A'N'$3 .IFF RANGE3 .GOTO ZZ2 .IF MAX3 GE 'TEMPS' .IF MIN3 LE 'TEMPS' .GOTO ZZ2 ; SGN -- Parameter (#3) "'TEMPS'" out of range 'MIN3' to 'MAX3' -- RETRY .GOTO DEFXX .ZZ2: .SETS TEMPS A'N'$2 .IFF RANGE2 .GOTO ZZ1 .IF MAX2 GE 'TEMPS' .IF MIN2 LE 'TEMPS' .GOTO ZZ1 ; SGN -- Parameter (#2) "'TEMPS'" out of range 'MIN2' to 'MAX2' -- RETRY .GOTO DEFXX .ZZ1: .SETS TEMPS A'N'$1 .IFF RANGE1 .GOTO ZZ0 .IF MAX1 GE 'TEMPS' .IF MIN1 LE 'TEMPS' .GOTO ZZ0 ; SGN -- Parameter (#1) "'TEMPS'" out of range 'MIN1' to 'MAX1' -- RETRY .GOTO DEFXX .BADNUM: ; SGN -- Illegal numeric answer -- RETRY .GOTO DEFXX .ZZ0: .ONERR 99900 .; .;DO A LITTLE MESSAGE-SPECIFIC CHECKING .; .GOTO MES'MSG' .MES1: .GOTO MES0 .MES2: .IF MAXN EQ 4. .GOTO MES0 .IF A'N'$5 NE "O" .IF A'N'$5 NE "NO" .GOTO MES15B .SETN MAXN 4 .SETS DEF5 "" .GOTO MES0 .MES3: .GOTO MES0 .MES4: .IF A'N'$3 EQ "H" .OR .IF A'N'$3 EQ "F" .GOTO MES4A ; SGN -- Valid duplex indicators are "H" and "F" -- RETRY .GOTO DEFXX .MES4A: .IF A'N'$4 EQ "E" .OR .IF A'N'$4 EQ "NO" .GOTO MES4B ; SGN -- Valid err detec expand unit indics. are "E" (yes) and "NO" (no) -- RETRY .GOTO DEFXX .MES4B: .IF A'N'$5 EQ "C" .OR .IF A'N'$5 EQ "NO" .GOTO MES0 ; SGN -- Valid char detec expan unit indics. are "C" (yes) and "NO" (no) -- RETRY .GOTO DEFXX .MES5: .GOTO MES0 .MES6: .GOTO MES0 .MES7: .SETF LOD .IF A'N'$3 EQ "VT11" .OR .IF A'N'$3 EQ "VS60" .GOTO MES7A ; SGN -- Valid graphic device indicators are "VT11" and "VS60" -- RETRY .GOTO DEFXX .MES7A: .SETS TEMPS A'N'$4 .SETN TEMPN2 'TEMPS' .IF A'N'$3 EQ "VS60" .OR .IF TEMPN2 EQ 1 .GOTO MES0 ; SGN -- Maximum of 1 CRT monitor possible with VT11 -- RETRY .GOTO DEFXX .MES10: .GOTO MES0 .MES11: .GOTO MES0 .MES12: .IF A'N'$4 EQ "D" .OR .IF A'N'$4 EQ "NO" .GOTO MES12A ; SGN -- Valid D/A present indicators are "D" (yes) and "NO" (no) -- RETRY .GOTO DEFXX .MES12A: .IF A'N'$6 EQ "DRK" .OR .IF A'N'$6 EQ "NO" .GOTO MES12B ; SGN -- Valid DR11-K present indics. are "DRK"(yes) and "NO" (no) -- RETRY .GOTO DEFXX .MES12B: .SETS TEMPS A'N'$5 .SETN TEMPN2 (10000./'TEMPS')*'TEMPS' .IF TEMPN2 EQ 10000. .GOTO MES0 ; SGN -- Number of samples must be evenly divisable into 10000. -- RETRY .GOTO DEFXX .MES13: .GOTO MES0 .MES14: .GOTO MES0 .MES15: .IF A'N'$4 EQ "O" .OR .IF A'N'$4 EQ "NO" .GOTO MES0 .MES15B: .; ; SGN -- Valid offset-recovery indicators are O (yes) and "NO" (no) -- RETRY .GOTO DEFXX .MES16: .IF A'N'$3 EQ "H" .OR .IF A'N'$3 EQ "F" .GOTO MES0 ; SGN -- Valid duplex indicators are "H" and "F" -- RETRY .GOTO DEFXX .MES17: .IF A'N'$3 EQ "H" .OR .IF A'N'$3 EQ "F" .OR .IF A'N'$3 EQ "P" .GOTO MES0 ; SGN -- Valid indicators are "H", "F", and "P" -- RETRY .MES20: .IF A'N'$3 EQ "LP11-F" .OR .IF A'N'$3 EQ "LP11-H" .GOTO 20A .IF A'N'$3 EQ "LP11-J" .OR .IF A'N'$3 EQ "LP11-K" .GOTO 20A .IF A'N'$3 EQ "LP11-A" .OR .IF A'N'$3 EQ "LP11-B" .GOTO 20A .IF A'N'$3 EQ "LP11-C" .OR .IF A'N'$3 EQ "LP11-D" .GOTO 20A .IF A'N'$3 EQ "LP11-Y" .OR .IF A'N'$3 EQ "LP11-Z" .GOTO 20A .IF A'N'$3 EQ "LP11-R" .OR .IF A'N'$3 EQ "LP11-S" .GOTO 20A .IF A'N'$3 EQ "LP11-V" .OR .IF A'N'$3 EQ "LP11-W" .GOTO 20A .IF A'N'$3 NE "LS11" .IF A'N'$3 NE "LA180" .IF A'N'$3 NE "LV11" .GOTO 20B .20A: .IF A'N'$3 EQ "LP11-R" .OR .IF A'N'$3 EQ "LP11-S" .SETT FPR .SETN MAXN 3 .SETS DEF4 "" .SETS DEF5 "" .SETS DEF6 "" .GOTO MES0 .20B: ; SGN -- Illegal printer specification -- Valid options are ; LP11-A,B,C,D,F,H,J,K,R,S,V,W,Y,Z, LS11, LA180, and LV11 -- RETRY .GOTO DEFXX .MES21: .SETS TEMPS A'N'$1 .SETN TEMPN 'TEMPS' .IF TEMPN EQ 0 .GOTO MES0 .SETS TEMPS A'N'$2 .SETN ST'J' 'TEMPS' .SETN ND'J' ST'J'+TEMPN-1. .SETN K 0. .SETT MODOK .IF ND'J' LE 252. .GOTO MES21A ; SGN -- More than 252. modules specified -- RETRY .GOTO DEFXX .MES21A: .IF K GE J .GOTO MES21B .IF ST'J' GE ST'K' .IF ST'J' LE ND'K' .SETF MODOK .IF ND'J' GE ST'K' .IF ND'J' LE ND'K' .SETF MODOK .IF ST'J' LT ST'K' .IF ND'J' GT ND'K' .SETF MODOK .INC K .IFT MODOK .GOTO MES21A .MES21B: .IFF MODOK ; SGN -- Overlapping modules -- RETRY .IFF MODOK .GOTO DEFXX .SETN MAXMOD MAXMOD-TEMPN .SETS TEMPS EC'N' .SETT U'TEMPS' .SETN UDD'N' TEMPN*400+ST'J' .IF N EQ 0 .SETN UAK 8. .IF N EQ 1 .SETN UAK 120. .IF N EQ 0 .INC N ;ADU01"S OR IAD-IA"S, NOT BOTH .INC J .GOTO MES0 .MES22: .GOTO MES0 .MES23: .GOTO MES0 .MES24: .GOTO MES0 .MES25: .IF A'N'$3 NE "E" .IF A'N'$3 NE "NO" .GOTO MES25A .IF A'N'$3 EQ "NO" .GOTO MES0 .SETT DLE .IFT $FUD .GOTO MES0 ; SGN -- DL11-E modem support is only valid with the full-duplex ; terminal driver -- RETRY .SETF DLE .GOTO DEFXX .MES25A: ; SGN -- Valid DL11-E modem support desired indicators are ; "E" (yes) and "NO" (no) -- RETRY .GOTO DEFXX .MES26: .IF A'N'$4 EQ "50" .OR .IF A'N'$4 EQ "75" .GOTO MES26A .IF A'N'$4 EQ "134.5" .OR .IF A'N'$4 EQ "150" .GOTO MES26A .IF A'N'$4 EQ "110" .OR .IF A'N'$4 EQ "200" .GOTO MES26A .IF A'N'$4 EQ "300" .OR .IF A'N'$4 EQ "600" .GOTO MES26A .IF A'N'$4 EQ "2400" .OR .IF A'N'$4 EQ "4800" .GOTO MES26A .IF A'N'$4 EQ "1200" .OR .IF A'N'$4 EQ "9600" .GOTO MES26A ; SGN -- Valid line speeds are 50, 75, 110, 134.5, 150, 200, ; 300, 600, 1200, 2400, 4800, and 9600 -- RETRY .GOTO DEFXX .MES26A: .SETS TEMPS A'N'$5 .SETN TEMPN 'TEMPS' .SETS TEMPS2 A'N'$6 .SETN TEMPN2 'TEMPS2' .IF TEMPN EQ 0 .IF TEMPN2 EQ 0 .GOTO MES0 .IF TEMPN2 LT 157777 ; SGN -- DM11-BB CSR address must be greater than 157777 if specified - RETRY .IF TEMPN2 LT 160000 .GOTO DEFXX .IF TEMPN LT 300 ; SGN -- DM11-BB vector address must be greater than 277 if specified - RETRY .IF TEMPN LT 300 .GOTO DEFXX .SETN TEMPN TEMPN+4 .IF TEMPN GT $HIV .SETN $HIV TEMPN .GOTO MES0 .MES27: .GOTO MES0 .MES30: .IF MAXN EQ 3. .GOTO MES0 .IF A'N'$4 EQ "50" .OR .IF A'N'$4 EQ "75" .GOTO MES30A .IF A'N'$4 EQ "110" .OR .IF A'N'$4 EQ "134.5" .GOTO MES30A .IF A'N'$4 EQ "150" .OR .IF A'N'$4 EQ "300" .GOTO MES30A .IF A'N'$4 EQ "600" .OR .IF A'N'$4 EQ "1200" .GOTO MES30A .IF A'N'$4 EQ "1800" .OR .IF A'N'$4 EQ "2000" .GOTO MES30A .IF A'N'$4 EQ "2400" .OR .IF A'N'$4 EQ "3600" .GOTO MES30A .IF A'N'$4 EQ "4800" .OR .IF A'N'$4 EQ "7200" .GOTO MES30A .IF A'N'$4 EQ "9600" .OR .IF A'N'$4 EQ "0" .GOTO MES30A ; SGN -- To suppress remote support enter 0 for line speed, else ; valid line speeds are 50, 75, 110, 134.5, 150, 300, 600, ; 1200, 1800, 2000, 2400, 3600, 4800, 7200, and 9600 -- RETRY .GOTO DEFXX .MES30A: .SETN MAXN 3. .GOTO MES0 .MES31:.GOTO MES0 ; .;END OF ALL CHECKING -- SAVE ANSWER IF DESIRED .; .MES0: .SETS STR $$'DEV''NN' .IFT $SAVE .DATA .SETS $$'DEV''NN' "'STR'" .IF N EQ 0 .IFT LOD .GOSUB PRMBLD .GOTO NOLODZ .; .; ADD LOADABLE DRIVER SYMBOL TO SGNPARM .; .PRMBLD: .IFT $SAVE .CLOSE .GOTO IAS'$IAS' .IASF: .OPENA ['$DFUIC']SGNPARM.CMD .GOTO IAS1 .IAST: .SETS UIC .IFF $MLH .IF UIC NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH PIP SGNPARM.CMD;-1=SGNPARM.CMD/AP .OPEN ['$DFUIC']SGNPARM.CMD .IFF $MLH .IF UIC NE SET /UIC='UIC' .IAS1: .; .DATA #0 .SETT $X$'DEV' .CLOSE #0 .GOTO IAS'$IAS' .IASF: .IFT $SAVE .OPENA '$SAO' .GOTO IAS1 .IAST: .SETS UIC .IFF $MLH .IFT $SAVE .IF UIC NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFT $SAVE .OPEN '$SAO' .IFF $MLH .IF UIC NE SET /UIC='UIC' .IAS1: .RETURN .; .;ZAP UNNEEDED DEFAULTS .; .NOLODZ: .IFT NODEFS .GOTO ZZX .GOTO ZZ'MAXN' .ZZ9: .IFF DEFX9 .SETS DEF9 "" .ZZ8: .IFF DEFX8 .SETS DEF8 "" .ZZ7: .IFF DEFX7 .SETS DEF7 "" .ZZ6: .IFF DEFX6 .SETS DEF6 "" .ZZ5: .IFF DEFX5 .SETS DEF5 "" .ZZ4: .IFF DEFX4 .SETS DEF4 "" .ZZ3: .IFF DEFX3 .SETS DEF3 "" .ZZ2: .IFF DEFX2 .SETS DEF2 "" .ZZ1: .IFF DEFX1 .SETS DEF1 "" .SETS TEMPS DEF1+DEF2+DEF3+DEF4+DEF5+DEF6+DEF7+DEF8+DEF9 .IF TEMPS EQ "" .SETT NODEFS .ZZX: .; .;ARE WE DONE .; .INC N .INC NN .IF N LT 'DEV' .GOTO ANSGET .IFF ASKLOD .OR .IFF LOD .GOTO ZAP .IFT $SAVE .CLOSE .GOTO IAS'$IAS' .IASF: .OPENA ['$DFUIC']SGNPARM.CMD .GOTO IAS1 .IAST: .SETS UIC .IFF $MLH .IF UIC NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH PIP SGNPARM.CMD;-1=SGNPARM.CMD/AP .OPEN ['$DFUIC']SGNPARM.CMD .IFF $MLH .IF UIC NE SET /UIC='UIC' .IAS1: .; .CLOSE #0 .; .GOTO IAS'$IAS' .IASF: .IFT $SAVE .OPENA '$SAO' .GOTO IAS1 .IAST: .SETS UIC .IFF $MLH .IFT $SAVE .IF UIC NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFT $SAVE .OPEN '$SAO' .IFF $MLH .IF UIC NE SET /UIC='UIC' .IAS1: .; .; .;ZAP ALL DEFAULT STRINGS AND SAVE-DEFAULT (DEFXn) INDICATORS .; .ZAP: .GOTO ZZ'MAXN' .ZZ9: .SETS DEF9 "" .SETF DEFX9 .ZZ8: .SETS DEF8 "" .SETF DEFX8 .ZZ7: .SETS DEF7 "" .SETF DEFX7 .ZZ6: .SETS DEF6 "" .SETF DEFX6 .ZZ5: .SETS DEF5 "" .SETF DEFX5 .ZZ4: .SETS DEF4 "" .SETF DEFX4 .ZZ3: .SETS DEF3 "" .SETF DEFX3 .ZZ2: .SETS DEF2 "" .SETF DEFX2 .ZZ1: .SETS DEF1 "" .SETF DEFX1 .SETS OLDDEV DEV .RETURN .; .;ERROR MESSAGE FOR NON-EXISTANT DEFAULT .; .NODEF1: ; SGN -- Attempt to use non-existent default for parameter 'NONN' -- RETRY .GOTO DEFXX .; .; SUBROUTINE DCB - GENERATE A DCB .; .DCB: .SETN FCONTR 0 .SETN FUNIT 0 .SETN NCONTR 'DEV' .DCBA: .SETN CONTR FCONTR .SETN UNIT FUNIT .IFT LOD .GOTO LDABLE .IFT $SAVE .CLOSE .GOTO IAS'$IAS' .IASF: .OPENA #0 RSXBLD.CMD .GOTO IAS1 .IAST: .IFF $MLH PIP RSXBLD.CMD;-1=RSXBLD.CMD/AP .OPEN RSXBLD.CMD .IAS1: .; .IFF KMC .DATA #0 LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:'DEV'DRV .IFT KMC .DATA #0 LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:LKDRV .CLOSE #0 .; .GOTO IAS'$IAS' .IASF: .IFT $SAVE .OPENA '$SAO' .GOTO IAS1 .IAST: .SETS UIC .IFF $MLH .IFT $SAVE .IF UIC NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFT $SAVE .OPEN '$SAO' .IFF $MLH .IF UIC NE SET /UIC='UIC' .IAS1: .; .GOTO ALLLOD .LDABLE: .DATA #1 LD$'DEV'=0 ;LOADABLE: 'DEV'DRV .IFT KMC .DATA #1 LD$LK=0 ;LOADABLE KMC11/LP DRIVER .ALLLOD: .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/LI:TTM" .SETS TEMPS4 "" .IF $ALD NE "NL:" .SETS TEMPS4 ",'$LST''DEV'DRV'TEMPS3''$SPL'" .IFF KMC .DATA #3 '$DIR''DEV'DRV'TEMPS4'='$PREFX','$DRV''DEV'DRV .IFT KMC .DATA #3 '$DIR''DEV'DRV'TEMPS4'='$PREFX','$DRV'LKDRV .DCB6: .SETN TEMPN $DCBN+1 .ENABLE DATA #2 ; ; 'DEV' DCB ; .IIF DF LD$'DEV', $'DEV'TBL=0 .DC'$DCBN': .WORD .DC'TEMPN' .WORD .'DEV''FUNIT' .ASCII /'DEV'/ .DISABLE DATA #2 .IFF MUPC .DATA #2 .BYTE 'FUNIT','NCONTR.'-1 .IFT MUPC .DATA #2 .BYTE 'FUNIT','DEV'H .DATA #2 .WORD 'DEV'ND-'DEV'ST .DATA #2 .WORD $'DEV'TBL .IFT DISK .GOTO DCB10 .IFT TAPE .DATA #2 .IF DF A$$NSI .DATA #2 .WORD 'FUNMSK' .IFT TAPE .DATA #2 .IFF .IFT TAPE .DATA #2 .WORD 'ALTMSK' .IFT TAPE .DATA #2 .ENDC .GOTO DCB20 .DCB10: .IFNDF SYDISK .SETS SYDISK "'DEV'" .SETS ZS4 "3" .IF DEV EQ "DY" .OR .IF DEV EQ "DU" .SETS ZS4 "7" .IF DEV EQ "DL" .IFT $RTE .SETS ZS4 "7" .SETS ZS5 "3" .IF DEV EQ "DU" .SETS ZS5 "7" .DATA #2 .IF DF A$$CPS .IFF DIAG .DATA #2 .WORD 1770'ZS4'7,'ZS4'0,0,177000,377,0,0,377 .IFT DIAG .DATA #2 .WORD 1770'ZS4'7!UMD,'ZS5'0,0,177000,377,0,0,377 .DATA #2 .IFF .IFF DIAG .DATA #2 .WORD 1600'ZS4'7,'ZS4'0,160000,0,7,0,1,6 .IFT DIAG .DATA #2 .WORD 1600'ZS4'7!UMD,'ZS5'0,160000,0,7,0,1,6 .DATA #2 .ENDC .DCB20: .ENABLE DATA #2 .IF DF L$$DRV .WORD 0 .ENDC ; ; 'DEV' UCB''S ; .DISABLE DATA #2 .SETN TEMPN FCONTR .SETN NTEMPN 'NCONTR.' .RETURN .; .; SUBROUTINE SCB - GENERATE SCB'S .; .; INPUT: .; LOGICAL SYMBOLS: .; INTR TRUE IF INTERRUPT DEVICE .; MBUS TRUE IF MASSBUS DEVICE .; NPRD TRUE IF UNIBUS NPR DEVICE .; ERRL TRUE IF ERROR LOGGING SUPPORTED .; DIAG TRUE IF DIAGNOSTICS SUPPORTED .; MUPC TRUE IF MULTIPLE UNITS PER CONTROLLER ALLOWED .; PDEV TRUE IF THIS IS THE PSEUDO DEVICE CO OR NL .; .; NUMERIC SYMBOLS: .; FCONTR STARTING CONTROLLER NUMBER .; NCONTR HIGHEST CONTROLLER NUMBER + 1 .; CSRX (X=0,1,...) CSR ADDRESS OF CONTR. NUMBER X .; UNIT HIGHEST UNIT NUMBER + 1 .; ITOC INITIAL TIMEOUT COUNT .; IPRI INTERRUPT PRIORITY .; NREG NUMBER OF DEVICE REGISTERS TO SAVE (ERRL OR DIAG) .; ROFS OFFSET FROM CSR TO FIRST REG TO SAVE (ERRL OR DIAG) .; .; STRING SYMBOLS: .; DEV DEVICE MNEMONIC .; .SCB: .SETN CONTR 0 .SETN NCONTR 'DEV' .SCB2: .ENABLE DATA #2 ; ; 'DEV' SCB''S ; .DISABLE DATA #2 .SCB10: .; .;GET VECTORS AND CSR'S .; .SETS TEMPS A'CONTR'$1 ; An$1 is always vector .SETN VEC 'TEMPS' .SETS TEMPS A'CONTR'$2 ; An$2 is always CSR .SETN CSR 'TEMPS' .IFF INTR .GOTO SCB20 .SCBIC: .DATA #2 .IF NDF LD$'DEV' .DATA #2 .ASECT .DATA #2 .='VEC' .IFT ERRL .DATA #2 .IF DF E$$DVC .IFT ERRL .DATA #2 .WORD $'DEV''CONTR'T .IFT ERRL .IF DEV EQ "DD" .DATA #2 .WORD PR7+0 .IFT ERRL .IF DEV EQ "DD" .DATA #2 .WORD $'DEV''CONTR'T .IFT ERRL .DATA #2 .IFF .IF NVEC NE 2 .IF DEV NE "AR" .IF DEV NE "LS" .DATA #2 .WORD $'DEV'INT .IF DEV EQ "DD" .DATA #2 .WORD PR7+0 .IF DEV EQ "DD" .OR .IF DEV EQ "PP" .DATA #2 .WORD $'DEV'INT .IF DEV EQ "AR" .OR .IF DEV EQ "LS" .DATA #2 .WORD $'DEV'CLK .IF NVEC NE 2 .IFT ERRL .DATA #2 .ENDC .IF DEV EQ "PP" .IFT ERRL .DATA #2 .ENDC .IF NVEC EQ 2 .IF DEV NE "PP" .DATA #2 .WORD $'DEV'INP .IF NVEC EQ 2 .IF DEV NE "PP" .DATA #2 .WORD PR7+'CONTR' .IF NVEC EQ 2 .IF DEV NE "PP" .DATA #2 .WORD $'DEV'OUT .DATA #2 .WORD PR7+'CONTR' .DATA #2 .PSECT .DATA #2 .ENDC .IFF ERRL .IFF DIAG .GOTO SCB20 .IFT ERRL .IFT DIAG .IF DEV NE "DM" .DATA #2 .IF DF E$$DVC!D$$IAG .IFF DIAG .OR .IF DEV EQ "DM" .DATA #2 .IF DF E$$DVC .IFF ERRL .DATA #2 .IF DF D$$IAG .DATA #2 .BYTE 'NREG.','ROFS' .DATA #2 .BLKW 2 .DATA #2 .ENDC .SCB20: .DATA #2 $'DEV''CONTR':: .DATA #2 .WORD 0,.-2 .IFF ERRL .IFF INTR .DATA #2 .BYTE PR'IPRI',0 .IFF ERRL .IFT INTR .DATA #2 .BYTE PR'IPRI','VEC'/4 .IFT ERRL .IFF INTR .DATA #2 .BYTE PR'IPRI'!ERL,0 .IFT ERRL .IFT INTR .DATA #2 .BYTE PR'IPRI'!ERL,'VEC'/4 .DATA #2 .BYTE 0,'ITOC.' .DATA #2 .BYTE 'CONTR'*2,0 .DATA #2 .WORD 'CSR' .DATA #2 .WORD 0 .IF DEV EQ "AD" .DATA #2 .WORD 0 .IFF INTR .IF DEV NE "IS" .IF DEV NE "AD" .IFF PDEV .GOTO NOUMR .DATA #2 .WORD 0,0,0,0 .DATA #2 .IF DF L$$DRV & M$$MGE .DATA #2 .WORD 0 .DATA #2 .ENDC .IF $TME LE 124. .GOTO NOUMR .IFF KMC .IFF NPRD .IFF MBUS .GOTO NOUMR .; .;ENTRY POINT FOR END OF GR's SCB .; .UMR: .DATA #2 .IF DF M$$EXT .DATA #2 .BLKW 6 .IF DEV EQ "DU" .DATA #2 .BLKW 4 .DATA #2 .ENDC .NOUMR: .IF DEV NE "MT" .IF DEV NE "XQ" .IF DEV NE "DU" .GOTO SCB50 .IF CONTR EQ 0 .DATA #2 S.'DEV'CK==.-$'DEV'0 .DATA #2 .BLKW C.LGTH/2 .SCB50: .INC CONTR .IF CONTR LT NCONTR .GOTO SCB10 .IFT MUPC .DEC UNIT .IFT MUPC .DATA #2 'DEV'H='UNIT' .INC $DCBN .; .;MAKE SURE HIGHEST VECTOR IS CORRECT .; .IFF INTR .GOTO RETN .IF DEV EQ "GR" .SETS TEMPS A0$1 .IF DEV EQ "GR" .SETN VEC 'TEMPS' .SETN TEMPN VEC+(NVEC*4) .IF TEMPN GT $HIV .SETN $HIV TEMPN .; .;RETURN TO DEVICE OPERATION .; .RETN: .RETURN .; .;SUBROUTINE PSEDEV - GENERATE DATA BASE FOR PSEUDO DEVICE. .; .PSEDEV: .DATA #2 .DC'$DCBN': .INC $DCBN .SETF Z .IF DEV NE "SY" .DATA #2æ .WORD .DC'$DCBN' .IF DEV EQ "SY" .DATA #2 .WORD $USRTB .DEC $DCBN .ENABLE DATA #2 .WORD .'DEV'0 .ASCII /'DEV'/ .BYTE 0,0 .WORD 'DEV'ND-'DEV'ST .'DEV'0:: 'DEV'ST=. .WORD .DC'$DCBN' .WORD .'ACTDEV'0 .BYTE 0,0 .BYTE 0,0 .WORD DV.PSE 'DEV'ND=. .DISABLE DATA #2 .INC $DCBN .RETURN .; .;INDIRECT ERROR ENTRY POINT .; .99900:; ; SGN -- SYSGEN encountered an unrecoverable error within the ; module SGNPER.CMD ; / .99901: .IFF $IAS .ERASE LOCAL ææwÀ:Ì€€›c,.; .; SYSGEN PROCEDURE FOR RSX-11M V4.0 .; .; IDENT 1.05A .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .DISABLE LOWERCASE .IFNDF $SYGRP .SETN $SYGRP 1 .IFT $RL .SETS $DRV "SY:" ; ; IP112/IP302 controllers ; .ASK $EC 1.'$SF1' Expanded comments for IP112/IP302 questions .ENABLE ESCAPE .IFF $LOD .SETF LDIP .IFF $LOD .GOTO IP15 .IFF $EC .GOTO IP10 .IP10C: ; ; The IP driver is now loadable. Please be aware of the ; related changes to the placement of the powerfail block ; in physical memory (question # 17). ; .IP10: .ASK LDIP 2.'$SF1' Do you want a loadable IP driver .IFT .GOTO IP10C .IFF LDIP .GOTO IP15 .DATA #1 LD$IP=0 ;LOADABLE IP .CLOSE .OPENA ['$DFUIC']SGNPARM.CMD .DATA #0 .SETT $X$IP .DATA #0 .SETT $$$IP .CLOSE .OPENA '$SAO' .IP15: .SETN NPC11 0 ! TO MAKE SUBROUTINES WORK .SETF PDEV .SETN NCONTR $NPCS .SETN NPCS NCONTR .SETN CONTR 0 .SETF IPUN .IF NCONTR EQ 1 .GOTO IP30 .IFF $EC .GOTO IP20 .IP20C: ; ; The IP11 driver provides the option of lumping all ; controllers in such a manner that they appear as one unit. ; This allows tasks to use only one LUN to drive all IP11 units, ; at the expense of some loss of flexibility and a decrease in ; the maximum number of the various types of modules that can be ; supported. ; .IP20: .ASK IPUN 3.'$SF1' Treat all controllers as one unit .IFT .GOTO IP20C .IFF IPUN .GOTO IP30 .DATA #1 I$$PUN=0 ;IP11 - TREAT ALL CONTROLLERS AS ONE UNIT .SETN NCONTR 1 .IP30: .SETS DEV "IP" .SETN NVEC 1 .SETF DISK .SETS FUNMSK "152701,152400,0,0,57717,51216,0,0" .SETT INTR .SETF MBUS .SETF NPRD .SETF ERRL .SETF DIAG .SETN ITOC 2 .SETN IPRI 6 .SETF MUPC .DATA #1 N$$PCS='NPCS.' ;IP112/IP302 SUBSYSTEMS .GOSUB DCB .ENABLE DATA #2 ; ; IP112/IP302 SCB OFFSETS ; .ASECT .=S.CCB S.COS:: .BLKW 1 ;POINTER TO DSI MODULE HISTORY TBL S.NSI:: .BLKW 1 ;SIZE OF DSI MODULE HISTORY TBL S.CI:: .BLKW 1 ;PTR TO COS UNSOL INTERRUPT BLOCK S.SI:: .BLKW 1 ;PTR TO DSI UNSOL INTERRUPT BLOCK S.TI:: .BLKW 1 ;PTR TO CTR UNSOL INTERRUPT BLOCK S.IPC:: .BLKW 1 ;PTR TO ADC(IPC) CONTROL TABLE S.IPM:: .BLKW 11. ;MAP QUEUE HEAD POINTERS S.IPMX:: .BLKW 0 .PSECT ; ; IP112/IP302 SPECIAL I/O FUNCTION CODES ; IO.RAM==032*400+000 .DISABLE DATA #2 .IFF $EC .GOTO IP40 .IP40C: ; ; The M6010, M6012, and M6013 digital output modules provide ; isolated and non-isolated AC and DC latching outputs. ; .IP40: .ASK IPDO 4.'$SF1' Any latching digital output modules .IFT .GOTO IP40C .IFT IPDO .DATA #1 I$$PDO=0 ;IP11 DIGITAL OUTPUT MODULES .IFF $EC .GOTO IP50 .IP50C: ; ; The M6011 single-shot output module provides 16 bits of pulsed ; DC output, with pulse widths switch selectable from 100 ; microseconds to 5 seconds. ; .IP50: .ASK Z 5.'$SF1' Any single-shot output modules .IFT .GOTO IP50C .IFT Z .DATA #1 I$$PSS=0 ;IP11 SINGLE-SHOT MODULES .IFF IPDO .IFF Z .GOTO IP70 .; IPDO IS TRUE IF THERE ARE ANY M601x MODULES .SETT IPDO .IFF $EC .GOTO IP60 .IP60C: ; ; Direct output via QIO allows a task to output to digital ; or single-shot output modules without mapping over the I/O page. ; .IP60: .ASK Z 6.'$SF1' Direct output via QIO .IFT .GOTO IP60C .IFT Z .DATA #1 I$$PQO=0 ;IP11 DIRECT OUTPUT VIA QIO$ .IP70: .IFF $EC .GOTO IP80 .IP80C: ; ; The M5010 DC sense input module provides 32 bits of DC input. ; .IP80: .ASK IPDS 7.'$SF1' Any non-interrupting digital sense modules .IFT .GOTO IP80C .IFT IPDS .DATA #1 I$$PDS=0 ;IP11 DIGITAL SENSE MODULES .IFF $EC .GOTO IP90 .IP90C: ; ; The M5012 DC interrupt sense module provides 16 bits of DC ; sense input, 2 bits of which provide DC interrupt input. the ; M5013 AC interrupt sense module provides 8 bits of AC sense input, ; of which 1 bit can provide AC interrupt input. ; .IP90: .ASK IPDI 8.'$SF1' Any interrupting digital sense modules .IFT .GOTO IP90C .IFT IPDI .DATA #1 I$$PDI=0 ;IP11 DIGITAL SENSE INTERRUPT MODULES .IFF $EC .GOTO IP100 .IP100C: ; ; The M5011 change-of-state input module provides 16 bits of ; interrupting DC sense input. when any bit changes state, an ; interrupt is generated to notify the PDP-11. ; .IP100: .ASK Z 9.'$SF1' Any change-of-state modules .IFT .GOTO IP100C .IFT Z .DATA #1 I$$PCO=0 ;IP11 CHANGE-OF-STATE MODULES .; IPDI IS TRUE IF UNSOLICITED INTERRUPT MODULES EXIST .IFT Z .SETT IPDI .IFF $EC .GOTO IP105 .IP105C: ; ; The M5014 dual 16-bit input counter contains two 16-bit presettable ; upcounters. Counters may run in either frequency or time base mode. ; frequency base mode will interrupt when selected input goes false; ; time base mode will interrupt when specified time has elapsed. ; The M5016 QUAD 8-bit input counter/prescaler contains four independent ; 8-bit counters each with overflow detection. each counter can generate ; an interrupt on overflow detection. ; The M6014 dual 16-bit output counter has two programmable 16-bit down ; counters. An interrupt is generated one count period after the count ; goes to zero. ; .IP105: .ASK Z 10.'$SF1' Any counter modules .IFT .GOTO IP105C .IFT Z .DATA #1 I$$PTI=0 ; IP11 COUNTER SUPPORT .; IPTI IS TRUE IF COUNTERS EXIST .SETF IPTI .IFT Z .SETT IPTI .IFF IPDI .IFF IPDS .IFF IPTI .GOTO IP120 .IFF $EC .GOTO IP110 .IP110C: ; ; Direct input via QIO allows a task to perform digital input ; with a QIO directive rather than by mapping over the I/O page. ; This simplifies task code at the expense of more overhead. ; .IP110: .ASK Z 11.'$SF1' Direct input via QIO .IFT .GOTO IP110C .IFT Z .DATA #1 I$$PRD=0 ;IP11 DIRECT INPUT VIA QIO .IP120: .IFF IPTI .GOTO IP125 ; ; Unsolicited interrupt support has been included ; .GOTO IP135 .IP125: .IFF IPDI .GOTO IP150 .IFF $EC .GOTO IP130 .IP130C: ; ; The M5011, M5012, and M5013 interrupting modules can ; produce unsolicited interrupts when certain input bits change ; state. Answering yes to the following question will allow ; these interrupts to be monitored by a task. ; .IP130: .ASK Z 12.'$SF1' Unsolicited interrupt support .IFT .GOTO IP130C .IFF Z .GOTO IP150 .IP135: .DATA #1 I$$PUI=0 ;IP11 UNSOLICITED INTERRUPT SUPPORT .IFF $EC .GOTO IP140 .IP140C: ; ; One of the ways a task can monitor digital interrupts is ; by linking a contiguous group of event flags to interrupting ; bits. The driver will set the corresponding event flag ; whenever its associated bit causes an interrupt. ; .IP140: .ASK Z 13.'$SF1' Event flag linkage to interrupts .IFT .GOTO IP140C .IFT Z .DATA #1 I$$PEF=0 ;IP11 EVENT FLAG LINKAGE .IP150: .IFF $EC .GOTO IP160 .IP160C: ; ; The A630 digital-to-analog converter provides 4 channels of ; 10-bit digital-to-analog conversion. ; .IP160: .ASK Z 14.'$SF1' Any D/A converters .IFT .GOTO IP160C .IFT Z .DATA #1 I$$PDA=0 ;IP11 D/A CONVERTER MODULES .IFT Z .SETT IPDO .IFF $EC .GOTO IP170 .IP170C: ; ; The A014 analog-to-digital converter is a 12-bit converter ; which may be expanded with the A156 and A157 multiplexer ; modules. The A157 multiplexer module has programmable gain. ; .IP170: .ASK Z 15.'$SF1' Any A014 A/D converters .IFT .GOTO IP170C .IFT Z .DATA #1 I$$PAD=0 ;IP11 12-BIT A/D CONVERTER MODULES .IFF $EC .GOTO IP180 .IP180C: ; ; The A020 analog-to-digital converter is a 14-bit converter with ; switch-selectable gains. The converter overlaps processing ; in the hardware to improve throughput. ; .IP180: .ASK Z 16.'$SF1' Any A020 A/D converters .IFT .GOTO IP180C .IFT Z .DATA #1 I$$P14=0 ;IP11 14-BIT A/D CONVERTER MODULES .IFF IPDO .GOTO IP200 .IFF $PRF .GOTO IP200 .IFF $EC .GOTO IP190 .IP190C: ; ; The IP112/IP302/DPM50 driver will optionally save the status of all ; digital and analog outputs when power fails, and restore them ; when the system comes back up. The outputs are saved in a ; table that has one entry for each byte of output. To disable ; output restoration, specify the number of entries as zero. ; If you choose a loadable IP driver, this block will be a permanent ; part of SYSTB. ; .IP190: .ASKN [0:3048.] ZN1 17.'$SF1' How many output bytes should be saved on powerfail .IFT .GOTO IP190C .IF ZN1 NE 0 .DATA #1 I$$PPF='ZN1.' ;IP11 OUTPUTS TO SAVE ON POWER FAIL .IP200: .SETS DEF ":234" .SETS DEF1 ":171000" .ENABLE DATA #2 ; ; IP UCB''S AND SCB''S ; .DISABLE DATA #2 .IP210: ; .IP210X: .ASKN [60:774'DEF'] VEC 18.'$SF1' IP11 controller 'CONTR' vector .IFT .GOTO IP210 .SETS A'CONTR'$1 "'VEC'" .SETS DEF "" .IP220: .ASKN [160000:177400'DEF1'] BAS'CONTR' 19.'$SF1' Base address .IFT .GOTO IP220 .SETN TEMPN BAS'CONTR'+377 .IF CONTR EQ 0 .SETN $IPLOC BAS0/100 .SETS A'CONTR'$2 "'TEMPN'" .SETN ZN1 BAS'CONTR'/400*400 .IF ZN1 EQ BAS'CONTR' .GOTO IP230 ; ; SGN -- IP112/IP302 base address must be a multiple of 400 octal ; .GOTO IP220 .IP230: .SETS DEF1 "" .IFT IPUN .IF CONTR NE 0 .GOTO IP233 .IF CONTR EQ 0 .SETS DEF1 ":171400" .IF CONTR EQ 0 .DATA #2 IPST=. .IF CONTR EQ 0 .DATA #1 I$$PB'CONTR'='ZN1' .ENABLE DATA #2 .IF DF M$$MUP .WORD 0 .ENDC .IP'CONTR':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.ALG!UC.KIL!UC.QUE!UC.PWF,0 .BYTE 'CONTR',0 .WORD 0,0,0,0 .WORD $IP'CONTR' .WORD 0,0,0,0 .WORD 0,0 .DISABLE DATA #2 .IF CONTR EQ 0 .DATA #2 IPND=. .IP233: .INC CONTR .IF CONTR < NPCS .GOTO IP210 .SETN CONTR 0 .IP235: .GOSUB SCBIP .ENABLE DATA #2 .WORD 0,0 .WORD IPDI'CONTR',IPSI'CONTR',IPTI'CONTR' .WORD 0 .REPT 11. .WORD 0 .ENDR .IF DF I$$PCO IPDI'CONTR': .WORD 0 .BYTE 12,1 .BLKW 10. .WORD 0,0 .BLKW 3 .WORD $IP'CONTR' .IIF DF LD$IP, .WORD 0 .IF DF I$$PUN .REPT N$$PCS .IFTF .WORD 0,.-2 .IFT .ENDR .ENDC ; (I$$PUN) .IFF ; (I$$PCO) IPDI'CONTR'=0 .ENDC ; (I$$PCO) .IF DF I$$PDI IPSI'CONTR': .WORD 0 .BYTE 12,1 .BLKW 10. .WORD 0,0 .BLKW 3 .WORD $IP'CONTR' .IIF DF LD$IP, .WORD 0 .IF DF I$$PUN .REPT N$$PCS .IFTF .WORD 0,.-2 .IFT .ENDR .ENDC ; (I$$PUN) .IFF ; (I$$PDI) IPSI'CONTR'=0 .ENDC ; (I$$PDI) .IF DF I$$PTI IPTI'CONTR': .WORD 0 .BYTE 12,1 .BLKW 10. .WORD 0,0 .BLKW 3 .WORD $IP'CONTR' .IIF DF LD$IP, .WORD 0 .IF DF I$$PUN .REPT N$$PCS .IFTF .WORD 0,.-2 .IFT .ENDR .ENDC .IFF IPTI'CONTR'=0 .ENDC ; (I$$PTI) .DISABLE DATA #2 .IP240: .INC CONTR .IF CONTR < NPCS .GOTO IP235 .DATA #2 PCSBAS:: .SETN CONTR 0 .IP250: .SETN ZN1 BAS'CONTR' .DATA #2 .WORD 'ZN1' .IF CONTR EQ 0 .OR .IFF IPUN .GOTO IP260 .SETS TEMPSZ A'CONTR'$1 .ENABLE DATA #2 .ASECT .='TEMPSZ' .WORD $IPINT,PR7!'CONTR' .PSECT .DISABLE DATA #2 .IP260: .INC CONTR .IF CONTR < NPCS .GOTO IP250 .INC $DCBN .ENABLE DATA #2 ; ; POWERFAIL BLOCK FOR IP11 ; .IF DF LD$IP&I$$PPF $PWCTB::.BLKW I$$PPF+1 $PWDTB::.BLKB I$$PPF .ENDC .DISABLE DATA #2 .GOTO EEND .; .; THE FOLLOWING SUBROUTINES ARE MODIFIED VERSIONS OF CORRESPONDING .; ROUTINES IN SGNPER. THEY HAVE DELIBERATELY BEEN LEFT GENERAL- .; PURPOSE, WITH CODE FOR DEVICES OTHER THAN THE IP112/IP302, IN ORDER .; TO EASE THE TASK OF INTEGERATING THE IP11 INTO SGNPER AT A LATER .; DATE. .; .; SUBROUTINE DCB - GENERATE A DCB .; .DCB: .SETN FCON 0 .SETN FUNIT 0 .DCBA: .SETN CONTR FCON .SETN UNIT FUNIT .IFT $SAVE .CLOSE .; .IFT LDIP .GOTO LDDDIP .; .GOTO IAS'$IAS' .IASF: .OPENA #0 RSXBLD.CMD .GOTO IAS1 .IAST: .IFF $MLH PIP RSXBLD.CMD;-1=RSXBLD.CMD/AP .OPEN #0 RSXBLD.CMD .; .IAS1: .DATA #0 LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:'DEV'DRV .CLOSE #0 .; .LDDDIP: .; .GOTO IAS'$IAS' .IASF: .IFT $SAVE .OPENA '$SAO' .GOTO IAS1 .IAST: .SETS UIC .IFF $MLH .IFT $SAVE .IF UIC NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFT $SAVE .OPEN '$SAO' .IFF $MLH .IF UIC NE SET /UIC='UIC' .; .IAS1: .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/LI:TTM" .SETS TEMPS2 "" .IF $ALD NE "NL:" .SETS TEMPS2 ",'$LST''DEV'DRV'TEMPS3''$SPL'" .DATA #3 '$DIR''DEV'DRV'TEMPS2'='$PREFX','$DRV''DEV'DRV .; .DCB6: .ENABLE DATA #2 ; ; 'DEV' DCB ; .IIF DF LD$'DEV', $'DEV'TBL=0 .DC'$DCBN': .DISABLE DATA #2 .INC $DCBN .DATA #2 .WORD .DC'$DCBN' .DEC $DCBN .ENABLE DATA #2 .WORD .'DEV''FUNIT' .ASCII /'DEV'/ .BYTE 'FUNIT','NCONTR.'-1 .WORD 'DEV'ND-'DEV'ST .WORD $'DEV'TBL .WORD 'FUNMSK' .IF DF L$$DRV .WORD 0 .ENDC ; ; 'DEV' UCB''S ; .DISABLE DATA #2 .SETN TEMPN FCON .SETN NTEMPN 'NCONTR.' .RETURN .; .; SUBROUTINE SCB - GENERATE SCB'S .; .; INPUT: .; LOGICAL SYMBOLS: .; INTR TRUE IF INTERRUPT DEVICE .; MBUS TRUE IF MASSBUS DEVICE .; NPRD TRUE IF UNIBUS NPR DEVICE .; ERRL TRUE IF ERROR LOGGING SUPPORTED .; DIAG TRUE IF DIAGNOSTICS SUPPORTED .; MUPC TRUE IF MULTIPLE UNITS PER CONTROLLER ALLOWED .; PDEV TRUE IF THIS IS THE PSEUDO DEVICE CO OR NL .; .; NUMERIC SYMBOLS: .; FCON STARTING CONTROLLER NUMBER .; NCONTR HIGHEST CONTROLLER NUMBER + 1 .; CSRX (X=0,1,...) CSR ADDRESS OF CONTR. NUMBER X .; UNIT HIGHEST UNIT NUMBER + 1 .; ITOC INITIAL TIMEOUT COUNT .; IPRI INTERRUPT PRIORITY .; NREG NUMBER OF DEVICE REGISTERS TO SAVE (ERRL OR DIAG) .; ROFS OFFSET FROM CSR TO FIRST REG TO SAVE (ERRL OR DIAG) .; .; STRING SYMBOLS: .; DEV DEVICE MNEMONIC .; .SCBIP: .; .;GET VECTORS AND CSR'S .; .SETS TEMPS A'CONTR'$1 ; An$1 is always vector .SETN VEC 'TEMPS' .SETS TEMPS A'CONTR'$2 ; An$2 is always CSR .SETN CSR 'TEMPS' .SETN TEMPNX VEC+(NVEC*4) .IF $HIV LT TEMPNX .SETN $HIV TEMPNX .ENABLE DATA #2 .IF NDF LD$'DEV' .ASECT .='VEC' .WORD $'DEV'INT .WORD PR7+'CONTR' .PSECT .ENDC $'DEV''CONTR':: .WORD 0,.-2 .BYTE PR'IPRI','VEC'/4 .BYTE 0,'ITOC.' .BYTE 'CONTR'*2,0 .WORD '¸CSR' .WORD 0 .WORD 0,0,0,0 .IF DF L$$DRV & M$$MGE .WORD 0 .ENDC .DISABLE DATA #2 .RETURN .; .EEND:.IFT $RL .SETS $DRV $EXC .IFF $IAS .ERASE LOCAL .DISABLE ESCAPE ¸æw €Ì€€›c,.; .; SYSGEN PROCEDURE FOR V4.0 RSX-11M .; .; Written by Mike Harrison .; Modified by Bernie Alimonti .; .; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY .; BE USED OR COPIED ONLY IN ACCORDANCE WITH THE TERMS .; OF SUCH LICENSE. .; .; COPYRIGHT (c) 1981 BY DIGITAL EQUIPMENT CORPORATION. .; ALL RIGHTS RESERVED. .; .; IDENT 1.11C .; .ONERR 99900 .ENABLE GLOBAL .ENABLE SUBSTITUTION .SETN DMVEC 0 .SETF PIPX .IFNINS PIP .SETT PIPX .IFT $RL .SETS $DRV "SY:" .; .; GENERATE DATABASE FOR TERMINALS. .; .SETN TTN 0 .SETN CYL 0 .SETN CDZ 2 .SETN CDH 4 .SETN CDJ 6 .; .;YL .; .YL: .SETN NCONTR $NYL .IF NCONTR EQ 0 .GOTO YL100 .SETS DEV "YL" .SETN PRI 5 .IFF $FUD .SETN PRI 4 .DATA #1 D$$L11='NCONTR.' ;DL11 A/B/C/D LINE INTERFACES .GOSUB DCB .SETN NLINE 1 .SETS CW2X "" .SETN CW3 0 .YL20: .SETS TEMPS $'CONTR'YLV .SETN VEC'CONTR' 'TEMPS' .SETS TEMPS $'CONTR'YLC .SETN CSR'CONTR' 'TEMPS' .SETN NL'CONTR' 1 .SETN LINE 0 .GOSUB UCB .INC CONTR .IF CONTR LT NCONTR .GOTO YL20 .GOSUB SCB .YL100: .; .; YH .; .YH: .SETN NCONTR $NYH .SETN NDM 0 .IF NCONTR EQ 0 .GOTO YH100 .SETN LINE 0 .SETS DEV "DH" .SETN PRI 5 .DATA #1 D$$H11='NCONTR.' ;DH11 ASYNCHRONOUS LINE MULTIPLEXERS .IFF $FUD .GOTO YH11 .ENABLE DATA #1 N$$UMR=7*4 ;NUMBER OF STATICALLY ALLOCATED UMRS U$$MRN=170234 ;ADDRESS OF FIRST FREE UMR U$$MHI=0 ;HIGH ADDRESS OF 18 BIT UNIBUS ADDRESS IN BITS 4 AND 5 U$$MLO=160000 ;LOW 16 BITS OF 18 BIT UNIBUS ADDRESS .DISABLE DATA #1 .YH11: .GOSUB DCB .SETN CW3 63 .SETS CW2X "!U2.DH1" .YH20: .SETS TEMPS2 $'CONTR'DMC .SETN TEMPN2 'TEMPS2' .IF TEMPN2 EQ 0 .GOTO YH16 .INC NDM .SETS TEMPS $'CONTR'YHS .IF TEMPS EQ "50" .SETN CW3 CW3!400 .IF TEMPS EQ "75" .SETN CW3 CW3!1000 .IF TEMPS EQ "110" .SETN CW3 CW3!1400 .IF TEMPS EQ "134.5" .SETN CW3 CW3!2000 .IF TEMPS EQ "150" .SETN CW3 CW3!2400 .IF TEMPS EQ "200" .SETN CW3 CW3!3000 .IF TEMPS EQ "300" .SETN CW3 CW3!3400 .IF TEMPS EQ "600" .SETN CW3 CW3!4000 .IF TEMPS EQ "1200" .SETN CW3 CW3!4400 .IF TEMPS EQ "1800" .SETN CW3 CW3!5000 .IF TEMPS EQ "2400" .SETN CW3 CW3!5400 .IF TEMPS EQ "4800" .SETN CW3 CW3!6000 .IF TEMPS EQ "9600" .SETN CW3 CW3!6400 .DATA #1 D$$M11='NDM.' ;DM11BB MODEM CONTROL INTERFACES .YH16: .SETS TEMPS $'CONTR'YHV .SETN VEC'CONTR' 'TEMPS' .SETS TEMPS $'CONTR'YHC .SETN CSR'CONTR' 'TEMPS' .SETS TEMPS $'CONTR'DMV .SETN DMVEC 'TEMPS' .SETN DMV'CONTR' DMVEC .SETS TEMPS $'CONTR'DMC .SETN DMCSR 'TEMPS' .SETS TEMPS $'CONTR'YHL .SETN NLINE 'TEMPS'+1 .SETN NL'CONTR' NLINE .GOSUB UCB .YH28: .INC CONTR .SETN LINE 0 .IF CONTR LT NCONTR .GOTO YH20 .GOSUB SCB .YH100: .; .;YJ .; .YJ: .SETN NCONTR $NYJ .IF NCONTR EQ 0 .GOTO YJ100 .SETS DEV "DJ" .SETN PRI 5 .SETS CW2X "!U2.DH1!U2.DJ1" .SETN CW3 0 .DATA #1 D$$J11='NCONTR.' ;DJ11 ASYNCHRONOUS LINE MULTIPLEXERS .GOSUB DCB .YJ20: .SETS TEMPS $'CONTR'YJV .SETN VEC'CONTR' 'TEMPS' .SETS TEMPS $'CONTR'YJC .SETN CSR'CONTR' 'TEMPS' .SETS TEMPS $'CONTR'YJL .SETN NLINE 'TEMPS'+1 .SETN NL'CONTR' NLINE .GOSUB UCB .INC CONTR .SETN LINE 0 .IF CONTR LT NCONTR .GOTO YJ20 .GOSUB SCB .YJ100: .; .;YZ .; .YZ: .IF $NYZ EQ 0 .GOTO YZ100 .SETN NCONTR $NYZ .SETS DEV "DZ" .SETN PRI 5 .SETS CW2X "!U2.DH1!U2.DZ1" .SETN CW3 42 .DATA #1 D$$Z11='NCONTR.' ;DZ11 ASYNCHRONOUS LINE MULTIPLEXERS .GOSUB DCB .SETS TEMPS $'CONTR'YZS .IF TEMPS EQ "0" .GOTO YZ20 .DATA #1 D$$ZMD=0 ;DZ11 MODEM SUPPORT .IF TEMPS EQ "50" .SETN CW3 CW3!000 .IF TEMPS EQ "75" .SETN CW3 CW3!400 .IF TEMPS EQ "110" .SETN CW3 CW3!1000 .IF TEMPS EQ "134.5" .SETN CW3 CW3!1400 .IF TEMPS EQ "150" .SETN CW3 CW3!2000 .IF TEMPS EQ "300" .SETN CW3 CW3!2400 .IF TEMPS EQ "600" .SETN CW3 CW3!3000 .IF TEMPS EQ "1200" .SETN CW3 CW3!3400 .IF TEMPS EQ "1800" .SETN CW3 CW3!4000 .IF TEMPS EQ "2000" .SETN CW3 CW3!4400 .IF TEMPS EQ "2400" .SETN CW3 CW3!5000 .IF TEMPS EQ "3600" .SETN CW3 CW3!5400 .IF TEMPS EQ "4800" .SETN CW3 CW3!6000 .IF TEMPS EQ "7200" .SETN CW3 CW3!6400 .IF TEMPS EQ "9600" .SETN CW3 CW3!7000 .YZ20: .SETS TEMPS $'CONTR'YZV .SETN VEC'CONTR' 'TEMPS' .SETS TEMPS $'CONTR'YZC .SETN CSR'CONTR' 'TEMPS' .SETS TEMPS $'CONTR'YZL .SETN NLINE 'TEMPS'+1 .SETN NL'CONTR' NLINE .GOSUB UCB .INC CONTR .SETN LINE 0 .IF CONTR LT NCONTR .GOTO YZ20 .GOSUB SCB .YZ100: .; .; PROCESS (ASSEMBLY AND) BUILD COMMAND FILE .; .IFF $FUD .GOTO EEND0 .; .; FULL DUPLEX TERMINAL DRIVER ASSEMBLY INFORMATION .; .ENABLE DATA #2 ; ; TT DRIVER UCB QUEUE HEAD ; AND FORK BLOCK ; ; TT$UGL=. .IIF NDF $TTUQ $TTUQ==. .WORD 0,.-2 ; .IIF NDF $TTFB $TTFB==. .WORD 0,0,0,0,0 TT$UGL==.-TT$UGL ; ; TT DRIVER CLOCK BLOCK ; $TTCB:: .BLKW 8. ; .DISABLE DATA #2 .SETS TEMPS3 "" .IFF $PWI .SETS TEMPS3 "/LI:TTM" .SETS TEMPS "TTMIS" .GOSUB FUDASM .SETS TEMPS "TTMOD" .GOSUB FUDASM .SETS TEMPS "TTODN" .GOSUB FUDASM .SETS TEMPS "TTICH" .GOSUB FUDASM .SETS TEMPS "TTTBL" .GOSUB FUDASM .SETS TEMPS "TTYH" .IF $NYH NE 0 .GOSUB FUDASM .SETS TEMPS "TTYJ" .IF $NYJ NE 0 .GOSUB FUDASM .SETS TEMPS "TTYL" .IF $NYL NE 0 .GOSUB FUDASM .SETS TEMPS "TTYZ" .IF $NYZ NE 0 .GOSUB FUDASM .SETS TEMPS "TTJZ" .IF $NYJ NE 0 .OR .IF $NYZ NE 0 .GOSUB FUDASM .SETS TEMPS "TTINI" .GOSUB FUDASM .SETS TEMPS "TTCAN" .GOSUB FUDASM .SETS TEMPS "TTDAT" .GOSUB FUDASM .SETS TEMPS "TTRW" .GOSUB FUDASM .SETS TEMPS "TTATT" .GOSUB FUDASM .SETS TEMPS "TTFP" .GOSUB FUDASM .SETS TEMPS "TTSUB" .GOSUB FUDASM .SETS TEMPS "TTCIS" .GOSUB FUDASM .SETS TEMPS "TTOIS" .GOSUB FUDASM .GOTO PENNI .; .; SUBROUTINE TO PRODUCE FULL DUPLEX TT DRIVER ASSEMBLY .CMD FILE .; .FUDASM: .SETS TEMPS2 "" .IF $ALD NE "NL:" .SETS TEMPS2 ","+$LST+TEMPS+TEMPS3+$SPL .DATA #3 '$DIR''TEMPS'.TTY'TEMPS2'='$PREFX','$DRV'TTMAC,'TEMPS' .RETURN .; .; FULL DUPLEX DRIVER BUILD COMMAND FILE .; .PENNI: .IFT $SAVE .CLOSE .IFF $MLH .IFNINS PIP INS $PIP .IFF $MLH SET /UIC=['$SYGRP',24] ! Creating TTDRVBLD.CMD .OPEN #0 TTDRVBLD.CMD .SETS TEMPS "" .IFF $PWI .SETS TEMPS "/-WI" .SETS TEMPS2 "" .IF $NYH GT 0 .SETS TEMPS2 ":TTYH" .IF $NYJ GT 0 .SETS TEMPS2 TEMPS2+":TTYJ" .IF $NYL GT 0 .SETS TEMPS2 TEMPS2+":TTYL" .IF $NYZ GT 0 .SETS TEMPS2 TEMPS2+":TTYZ" .ENABLE DATA #0 '$UICMS'TTDRV/-MM/-HD/-FP,'$MPD'['$SYGRP',34]TTDRV'TEMPS''$SPL',SY:'$UICMS'TTDRV= LB:['$SYGRP',24]TTDRV/LB:TTATT:TTCAN:TTCIS:TTICH:TTINI LB:['$SYGRP',24]TTDRV/LB:TTTBL'TEMPS2',TTDRV/LB '$UICMS'RSX11'$SYS'.STB/SS LB:['$SYGRP',1]EXELIB/LB LB:['$SYGRP',1]SYSLIB/DL / STACK=0 PAR=TTPAR:120000:40000 ; ; The default output timeout interval is 5 seconds. Some foreign ; terminals which don't adhere to ^S/^Q protocol may require a ; longer interval to avoid receiving device not ready errors during ; long output transfers. To increase the timeout interval to a ; maximum of 377 (8) seconds, change the value specified in the ; following GBLPAT statement. ; GBLPAT=TTATT:OPTIMR:5 / .DISABLE DATA #0 .CLOSE #0 .IFF $MLH SET /UIC=['$UIC',10] .; .GOTO IAS'$IAS' .IASF: .IFT $SAVE .OPENA '$SAO' .GOTO EEND1 .IAST: .SETS UIC .IFF $MLH .IFT $SAVE .IF UIC NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFT $SAVE .OPEN '$SAO' .IFF $MLH .IF UIC NE SET /UIC='UIC' .GOTO EEND1 .; .; NOT FULL DUPLEX TERMINAL DRIVER BUILD COMMAND FILE .; .EEND0: .IFNDF LDRV .GOTO EEND1 .IFT $SAVE .CLOSE .; .GOTO IAS'$IAS' .IASF: .OPENA #0 RSXBLD.CMD .GOTO IAS3 .IAST: .IFF $MLH PIP RSXBLD.CMD;-1=RSXBLD.CMD/AP .OPEN #0 RSXBLD.CMD .; .IAS3: .IFF LDRV .DATA #0 LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:TTDRV .CLOSE #0 .; .GOTO IAS'$IAS' .IASF: .IFT $SAVE .OPENA '$SAO' .GOTO IAS2 .IAST: .SETS UIC .IFF $MLH .IFT $SAVE .IF UIC NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFT $SAVE .OPEN '$SAO' .IFF $MLH .IF UIC NE SET /UIC='UIC' .; .IAS2: .SETS TEMPS "" .IFF $PWI .SETS TEMPS "/LI:TTM" .SETS TEMPS3 "" .IF $ALD NE "NL:" .SETS TEMPS3 ",'$LST'TTDRV'TEMPS''$SPL'" .DATA #3 '$DIR'TTDRV'TEMPS3'='$PREFX','$DRV'TTDRV .GOTO EEND1 .; .; SUBROUTINE DCB - GENERATE ONE DCB. .; .; INPUT: .; NUMERIC SYMBOLS: .; $DCBN NEXT DCB LABEL NUMBER .; TTN NEXT TT NUMBER .; .; STRING SYMBOL: .; DEV DEVICE NAME (YL, DH, DJ OR DZ) (YL EQ DL11) .; .; OUTPUT: .; LOGICAL SYMBOL: .; LDRV TRUE IF LOADABLE TT DRIVER SELECTED .; .; NUMERIC SYMBOLS: .; CONTR 0 .; LINE 0 .; TTN0 SAVED TTN FROM INPUT .; .DCB: .SETN TTN0 TTN .IFDF LDRV .GOTO DCB6 .SETF LDRV .IFF $LOD .GOTO DCB6 .IFF $FUD .GOTO DCB4 .DATA #1 LD$TT=0 ;LOADABLE TTDRV .SETT LDRV .GOTO DCB6 .DCB4: .SET'$LTT' LDRV .IFT LDRV .DATA #1 LD$TT=0 ;LOADABLE TTDRV .DCB6: .IF TTN NE 0 .GOTO DCB7 .; .; TERMINALS DATA STRUCTURES HEADER .; .SETN TEMPN 160037 .IFT $FUD .SETN TEMPN 162137 .SETN TEMPN2 30 .IFT $FUD .SETN TEMPN2 130 .ENABLE DATA #2 ; ; TERMINALS ; W1='TEMPN' W2='TEMPN2' ; .DISABLE DATA #2 .; .; DEVICE DCB STRUCTURE .; .DCB7: .ENABLE DATA #2 ; ; 'DEV' DCB ; .IIF DF LD$TT, $TTTBL=0 .DC'$DCBN': .DISABLE DATA #2 .INC $DCBN .DATA #2 .WORD .DC'$DCBN' .DEC $DCBN .ENABLE DATA #2 .WORD .TT'TTN' .ASCII /TT/ .BYTE 'TTN','DEV'H .WORD 'DEV'ND-'DEV'ST .WORD $TTTBL .IIF DF T$$GMC!T$$GTS!T$$SMC, W1=W1!40 .IIF DF T$$RPR, W1=W1!1000 .WORD W1,W2,160000,0,7,0,1,6 .IF DF L$$DRV .WORD 0 .ENDC ; ; 'DEV' UCB''S ; .DISABLE DATA #2 .SETN CONTR 0 .SETN LINE 0 .RETURN .; .; SUBROUTINE UCB - GENERATE UCB'S. .; .; INPUT: .; NUMERIC SYMBOLS: .; CONTR CURRENT CONTROLLER NUMBER .; LINE LINE NUMBER OF FIRST UCB TO GENERATE .; NLINE NUMBER OF UCB'S TO GENERATE .; $DCBN DCB LABEL NUMBER THAT UCB'S SHOULD POINT TO .; CW3 CHAR. WORD 3 .; DMVEC VECTOR ADDRESS OF DM-11BB (DH-11 ONLY) .; DMCSR CSR ADDRESS OF DM-11BB (DH-11 ONLY) .; STRING SYMBOLS: .; DEV DEVICE NAME .; CW2X "EXTENSION" TO CHAR. WORD 2 .; .UCB: .SETS TEMPS "" .IF CONTR NE 0 .OR .IF LINE NE 0 .GOTO UCB5 .IF DEV EQ "DH" .OR .IF DEV EQ "DZ" .DATA #2 'DEV'CNT=0 .DATA #2 'DEV'ST=. .UCB5: .SETN LINEX 0 .UCB10: .IFT $ACL .DATA #2 .WORD 0 .IFF $ACL .IFT $NET .DATA #2 .WORD $MCRPT .IFT $ACL .OR .IFT $NET .OR .IFT $MUP .DATA #2 .WORD 0 .IFT $ACL .OR .IFT $NET .OR .IFT $MUP .DATA #2 .WORD 0 .DATA #2 .TT'TTN':: .IF DEV EQ "DH" .IF CONTR EQ 0 .IF LINE EQ 0 .DATA #2 $$$=. .ENABLE DATA #2 .WORD .DC'$DCBN' .WORD .-2 .IF DF T$$CPW .BYTE UC.ATT!UC.PWF!UC.QUE!UC.KIL,US.OIU .IFF ;T$$CPW .IF DF T$$RPR!T$$BTW .BYTE UC.ATT!UC.PWF!UC.QUE,0 .IFF .BYTE UC.ATT!UC.PWF,0 .ENDC ;T$$RPR!T$$BTW .ENDC ;T$$CPW .BYTE 'LINE',0 .WORD DV.REC!DV.CCL!DV.TTY .IF DF M$$MUP .IFF .WORD U2.PRV'CW2X' .IFT .IF GT M$$MUP .WORD U2.LOG'CW2X' .IFF .WORD U2.PRV'CW2X' .IFTF M$$MUP =M$$MUP+1 .ENDC .ENDC .DISABLE DATA #2 .SETN CTYPE C'DEV' .ENABLE DATA #2 .WORD 'CW3' .WORD 72. .WORD $TT'TTN' .IF DF T$$CPW .WORD 0,0,0,S2.ACR!S2.FLF,S3.TAB,0,12.,1,0,100200,0,'CTYPE' .IF DF T$$ACD .BLKW 2 .DISABLE DATA #2 .IF DEV EQ "DH" .DATA #2 .BLKW 1 .ENABLE DATA #2 .ENDC .IFF ;T$$CPW .WORD 0,0,0,0,0,0,0,0,0,100200,$BTMSK+1,0,0,0 .IIF DF T$$ACR!T$$BTW!T$$CCA!T$$CCO!T$$ESC!T$$HLD, T1=0 .IIF DF C$$CKP&T$$BUF, DFCKP=0 .IF DF T1!T$$RPR!T$$SYN!T$$TRW!T$$UTB!T$$30P!DFCKP .WORD 0 .ENDC .IF DF T$$CCA&A$$TRP .WORD 0 .ENDC .IF DF T$$ESC .WORD 0 .ENDC .ENDC ;T$$CPW .DISABLE DATA #2 .IFT $FUD .GOTO UCB40 .IF DEV NE "DH" .GOTO UCB40 .DATA #2 .IF DF D$$M11 .DATA #2 .BYTE 0,'DMVEC'/4 .IF CONTR EQ 0 .IF LINE EQ 0 .DATA #2 U.DMCS==.-$$$ .DATA #2 .WORD 'DMCSR' .DATA #2 .ENDC .UCB40: .IF CONTR EQ 0 .IF LINE EQ 0 .DATA #2 'DEV'ND=. .INC TTN .INC LINE .INC LINEX .IF LINEX LT NLINE .GOTO UCB10 .RETURN .; .;SUBROUTINE SCB - GENERATE SCB'S. .; .; INPUT: .; NUMERIC SYMBOLS: .; TTN0 FIRST TT NUMBER TO GENERATE .; NCONTR NUMBER OF CONTROLLERS .; NLX NUMBER OF LINES IN CONTROLLER X .; (X EQ 0,1,...,NCONTR-1) .; CSRX CSR ADDRESS OF CONTROLLER X .; VECX VECTOR ADDRESS OF CONTROLLER X .; PRI PRIORITY .; .; STRING SYMBOL: .; DEV DEVICE NAME .; .; OUTPUT: .; NUMERIC SYMBOLS: .; TTN NUMBER OF LAST TT GENERATED PLUS 1 .; $DCBN INCREMENTED BY 1 .; .SCB: .ENABLE DATA #2 ; ; 'DEV' SCB''S ; .DISABLE DATA #2 .SETN CONTR 0 .SETN TTN TTN0 .SETS TEMPS2 "PR5" .IFF $FUD .SETS TEMPS2 "PR7" .SCB10: .SETF DONE .SETN CSR CSR'CONTR' .SETN VEC VEC'CONTR' .SETN LINE 0 .SCB20: .DATA #2 .IF NDF LD$TT .DATA #2 .ASECT .; .;DETERMINE IF DM11-BB PRESENT IF THIS DEVICE DH11 .; .IF DEV NE "DH" .GOTO SCB30 .IFNDF DMV'CONTR' .GOTO SCB25 .SETN DMVEC DMV'CONTR' .SETS TEMPS $'CONTR'DMC .SETN DMCSR 'TEMPS' .SCB25: .ENABLE DATA #2 .IF DF D$$M11 .='DMVEC' .WORD $DM11B .WORD 'TEMPS2'+'CONTR' .ENDC .DISABLE DATA #2 .; .;NORMAL TT SCB .; .SCB30: .SETS TEMPS1 DEV .IF DEV EQ "YL" .SETS TEMPS1 "DL" .ENABLE DATA #2 .='VEC' .WORD $'TEMPS1'INP .WORD 'TEMPS2'+'CONTR' .WORD $'TEMPS1'OUT .WORD 'TEMPS2'+'CONTR' .PSECT .ENDC .DISABLE DATA #2 .SCB33: .DATA #2 $TT'TTN':: .INC TTN .IFT $FUD .GOTO SCB40 .SCB35: .SETT DONE .IF DEV EQ "DH" .OR .IF DEV EQ "DZ" .DATA #2 $$$=. .ENABLE DATA #2 .WORD 0,.-2 .BYTE PR'PRI','VEC'/4 .DISABLE DATA #2 .IFT $FUD .DATA #2 .BYTE 0,5 .IFF $FUD .DATA #2 .BYTE 0,2 .ENABLE DATA #2 .BYTE 'CONTR'*2,0 .WORD 'CSR' .WORD 0 .DISABLE DATA #2 .IFF $FUD .GOTO SCB37 .IF DEV NE "DH" .GOTO SCB37 .ENABLE DATA #2 .IF DF D$$M11 .BYTE 0,'DMVEC'/4 .WORD 'DMCSR' .IFF .BLKW 2 .ENDC .DISABLE DATA #2 .GOTO SCB38 .SCB37: .DATA #2 .BLKW 2 .SCB38: .DATA #2 .BLKW 2 .ENABLE DATA #2 .IF DF L$$DRV & M$$MGE .WORD 0 .ENDC .DISABLE DATA #2 .IFT $FUD .GOTO SCB40 .IF DEV NE "DH" .IF DEV NE "DZ" .GOTO SCB40 .IF DEV EQ "DH" .DATA #2 .IF DF D$$M11 & LD$TT & L$$DRV .IF DEV EQ "DZ" .DATA #2 .IF DF D$$ZMD & LD$TT & L$$DRV .ENABLE DATA #2 .IF EQ 'DEV'CNT S.'DEV'CK==.-$$$ .BLKW 8. 'DEV'CNT=1 .ENDC .ENDC .DISABLE DATA #2 .SCB40: .INC LINE .IFF $FUD .IF LINE LT NL'CONTR' .GOTO SCB20 .IFT $FUD .IF LINE LT NL'CONTR' .GOTO SCB33 .IFT $FUD .IFF DONE .GOTO SCB35 .SCB45: .INC CONTR .IF CONTR LT NCONTR .GOTO SCB10 .DEC TTN .DATA #2 'DEV'H='TTN' .INC TTN .INC $DCBN .RETURN .; .; INDIRECT ERROR ENTRY POINT .; .99900:; ; SGN -- SYSGEN encountered an unrecoverable error within the ; module SGNTT.CMD ; / .; .;END OF TERMINAL DRIVER DEVICE TABLE GENERATION .; .EEND1:.IFT $RL .SETS $DRV $EXC .IFF $IAS .ERASE LOCAL «Æ(Ì€€›c,@œ.; .; EF018 -- FIX FLX COMMAND LINE TO COPY .; SYSLIB.OLB TO DISK FOR NON M HOSTS .; .; RN000 -- FIX 11SCOPY TO RUN ON VAX HOST .; .; EF030 -- FIX 11SCOPY SO THAT IT ASSUMES ONLY 1 RLO1 IN 11SKIT. .; .; EF038 -- REMOVE IAS REFERENCES - NO LONGER A SUPPORTED HOST. .; .; EF039 -- ADD MS AS POSSIBLE TAPE DEVICE .; .; E. A. FLOYD 11-FEB-81 .; EF041 -- REMOVE MORE IAS SUPPORT AND ADD FOR SYSGEN COMPATIBILITY .; .; E. A. FLOYD 13-FEB-81 .; EF043 -- ADD SUPPORT FOR [11,10]FILES ON 11SKIT1 FOR MULT. MEDIA KITS .; .; P.J. KOBAR 26-MAR-81 .; PJK043 --RENAME 11MVMRMP TO 11MVMR .; .; M.E. MACKAY 28-APR-81 .; MEM023 -- ADD LIMITED TARGETTING SUPPORT .; .; M.A. JOHNSON .; MJ014 -- DELETE UCTDF.OBJ,ODT.OBJ FROM TARGET DISK .; .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .SETF RK05 .SETF RK06 .SETF MM .SETF MS .SETF MT .SETF DL .SETF T .SETS DENS "" .SETS TEMP $EXC[1:2] .IF TEMP EQ "DK" .SETT RK05 .IF TEMP EQ "DM" .SETT RK06 .IF TEMP EQ "MM" .SETT MM .IF TEMP EQ "MS" .SETT MS .IF TEMP EQ "MT" .SETT MT .IF TEMP EQ "DL" .SETT DL .SETF UFDX .IFINS UFD .SETT UFDX .IFF UFDX INS $UFD/TASK=...UFD .SETS MEDIA "disk" .SETS UTIL "PIP" .SETS NV "/NV" .IFF MT .IFF MM .IFF MS .GOTO 10 .SETT T .SETS UTIL "FLX" .SETS NV "" .IFT $T2400 .SETS DENS "/DNS:1600" .SETS MEDIA "tape" .10: .IFNDF $UIC .SETN $UIC 11 .IFNDF $SYGRP .SETN $SYGRP 1 UFD SY:['$SYGRP',1] UFD SY:['$SYGRP',2] UFD SY:['$SYGRP',4] UFD SY:[2,20] .IFT $MPLUS UFD SY:['$SYGRP',54] UFD SY:['$SYGRP',60] UFD SY:['$SYGRP',64] UFD SY:['$SYGRP',20] UFD SY:['$SYGRP',24] UFD SY:['$UIC',20] UFD SY:['$UIC',24] UFD SY:['$SYGRP',30] UFD SY:['$SYGRP',34] UFD SY:['$UIC',30] UFD SY:['$UIC',34] UFD SY:[45,10] UFD SY:[45,20] UFD SY:[45,24] UFD SY:[45,30] UFD SY:[45,34] UFD SY:['$UIC',10] PIP ['$SYGRP',1]EXEMC.*;*/DE/NM,EXELIB.OLB;*,EXEUTL.OBJ;*,UCTDF.OBJ;* PIP ['$SYGRP',1]DIRSYM.OBJ;*/DE/NM,GCML.OBJ;*,ARITH.OBJ;*,ODT.OBJ;* PIP ['$SYGRP',1]LPA.OBJ;*/DE/NM,RSXMAC.SML;*,FCSRES.MAC;* PIP ['$SYGRP',1]PURUDC.OBJ;*/DE/NM,PURISA.OBJ;*,PURICR.OBJ;*,PURPCS.OBJ;*,LPS.OBJ;* .; PIP /FR .IFT T .IFF $T2400 .GOTO 12 SET /UIC=['$SYGRP',1] 'UTIL' ['$SYGRP',1]'NV'='$EXC'[1,1]*.*'DENS' .12: .IFF RK05 'UTIL' ['$SYGRP',20]'NV'='$EXC'[1,20]*.*'DENS' 'UTIL' ['$SYGRP',24]'NV'='$EXC'[1,24]*.*'DENS' .IFT $MPLUS .IFT T 'UTIL' ['$SYGRP',54]/CO/BL:180.='$EXC'[1,54]11MVMR.TSK'DENS' .IFT $MPLUS .IFF T 'UTIL' ['$SYGRP',54]'NV'='$EXC'[1,54]11MVMR.TSK .IFT $MPLUS .IFT T 'UTIL' ['$SYGRP',54]/CO/BL:180.='$EXC'[1,54]11MTKB.TSK'DENS' .IFT $MPLUS .IFF T 'UTIL' ['$SYGRP',54]'NV'='$EXC'[1,54]11MTKB.TSK .IFT $MPLUS PIP ['$SYGRP',54]11MVMR.TSK/PU/NM,11MTKB 'UTIL' ['$SGNUC']'NV'='$EXC'[200,200]*.*,[2,20]11SGEN2.CMD'DENS' 'UTIL' [2,20]'NV'='$EXC'[2,20]*.*'DENS' PIP [2,20]11SGEN.CMD;*/DE/NM,11SGEN2.CMD;* 'UTIL' [45,10]'NV'='$EXC'[45,10]*.*'DENS' 'UTIL' [45,20]'NV'='$EXC'[45,20]*.*'DENS' 'UTIL' [45,24]'NV'='$EXC'[45,24]*.*'DENS' .IFF RK05 .IFF T .GOTO 15 .IFT $T2400 .GOTO 40 'UTIL' ['$UIC',10]'NV'='$EXC'[11,10]*.*'DENS' .15: .IFT RK06 .GOTO 40 .IFT DL .GOTO 40 DMO '$EXC' .20: ; ; Replace the 'MEDIA' on '$EXC' with 'MEDIA' labeled 11SKIT2. ; .ASK Z Is the 'MEDIA' ready on '$EXC' .IFF Z .GOTO 20 .SETS SKIT "/FOR" .IFT RK05 .SETS SKIT "11SKIT2" .IFT $MPLUS .IFF RK05 .SETS SKIT "/FOR" MOU '$EXC''SKIT' .IFT RK05 'UTIL' ['$SYGRP',20]'NV'='$EXC'[1,20]*.*'DENS' SET /UIC=['$UIC',10] .40: 'UTIL' ['$UIC',10]'NV'='$EXC'[11,10]*.*'DENS' .IFF T .OR .IFT $T2400 .GOTO 50 DMO '$EXC' .45: ; ; Replace the 'MEDIA' on '$EXC' with 'MEDIA' labeled 11SKIT3. ; .ASK Z Is the 'MEDIA' ready on '$EXC' .IFF Z .GOTO 45 MOU '$EXC''SKIT' SET /UIC=['$SYGRP',1] 'UTIL' ['$SYGRP',1]'NV'='$EXC'[1,1]*.*'DENS' .; .50: PIP ['$SYGRP',20]*.*/PU/NM,['$SYGRP',24]*.* PIP [2,20]*.*/PU/NM,[45,10]*.*,[45,20]*.*,[45,24]*.* PIP /FR .IFF UFDX REM UFD ; ; Distribution kit copy is now complete ; DMO '$EXC' ; ; You may now remove your distribution kit from drive '$EXC'. ;R .100: .SETS $EXC "" ;EVERYTHING NOW ON THE SYSTEM DISK SET /UIC=['$SGNUC'] RæwÁ8Ì€€›c,Àv.; .; SYSGEN PROCEDURE FOR V4.0 RSX-11M .; .; Written by Mike Harrison .; .; MLH012 -- Allow # of DRS-11 modules to be zero .; .; BA036 -- Add decimal points to I$$SDS in RSXMC and to values in .; DSR and DSS databases .; .; TL025 -- Initialize the fork interlock flag to nonzero .; .; BA084 -- Ref EXEMC from LB: and ref Exec and driver sources from $EXC and .; $DRV respectively .; .; BA106 -- Correctly set IC I/O common base address symbol .; .; BA109 -- Ref Exec and FDX TT DRV from LB: .; .; BA120 -- Update release version .; .; HB005 -- Fix interrupt vector mung for DRS/DSS modules .; .; IDENT 1.07 .; .ENABLE SUBSTITUTION .DISABLE LOWERCASE .ENABLE GLOBAL .ONERR 99900 .IFT $RL .SETS $DRV "SY:" .SET'$ICREP' REPEAT .SETN NCONTR $NICS .IF NCONTR EQ 0 .GOTO IS ; ; ICS/ICR controllers ; .ASK $EC 1.'$SF1' Expanded comments for ICS/ICR questions .SETS DEV "IC" .SETN NVEC 1 .SETS FUNMSK "172703,172400,0,0,155473,151073,0,0" .SETT INTR .SETF ERRL .SETF DIAG .SETN ITOC 2 .SETN IPRI 6 .SETF MUPC .GOSUB DCB .ENABLE DATA #2 ; ; ICS/ICR-11 UCB OFFSETS ; .ASECT .=U.CBF+4 U.EIP:: .BLKB 1 U.RST:: .BLKB 1 U.EFB:: .BLKW 3 ; ; ICS/ICR-11 SCB OFFSETS ; .=S.CCB S.FLG:: .BLKW 1 S.CTMC::.BLKB 1 S.ITMC::.BLKB 1 S.ERR:: .BLKW 1 S.CBF:: .BLKW 1 S.IM:: .BLKW 1 S.ADC:: .BLKW 1 S.DI:: .BLKW 1 S.CT:: .BLKW 1 S.RTI:: .BLKW 1 S.DAC:: .BLKW 3 S.SSO:: .BLKW 3 S.LTO:: .BLKW 3 .PSECT .DISABLE DATA #2 .; .; THE FOLLOWING LOOP GENERATES THE UCB"S FOR THE ICS/ICR. NOTE .; THAT THE UCB"S ARE GENERATED BEFORE THE CONFIGURATION IS .; FOUND. .; .SETN CONTR 0. .IC20: .ENABLE DATA #2 ; ; ICS/ICR UCB'CONTR' ; ICST=. .IF DF M$$MUP .WORD 0 .ENDC .IC'CONTR':: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.KIL!UC.QUE!UC.PWF,0 .BYTE 'CONTR',US.RED .WORD 0,0,0,0 .WORD $IC'CONTR' .WORD 0,0,0,0,0,0 .BYTE 0,U.RST'CONTR' .WORD 0,0,0 ICND=. .DISABLE DATA #2 .INC CONTR .IF CONTR LT NCONTR .GOTO IC20 .; .; END OF UCB GENERATION LOOP. INITIALIZE FOR THE CONFIGURATION .; LOOP. .; .IFF $EC .GOTO IC30 .IC30C: ; ; The RSX-11M/S ICS/ICR-11 driver provides the capability to ; initiate a task as the result of an unsolicited (external) ; interrupt. If this option is selected, support is provided to ; allow tasks to be linked to interrupts and to obtain ; activation data when initiated. ; .IC30: .ASK Z 2.'$SF1' Do you want task activation from unsolicited interrupts .IFT .GOTO IC30C .IFT Z .DATA #1 I$$CLK=0 ;ICS/ICR TASK ACTIVATION FROM INTERRUPTS .SETN DEF0 234 .SETS DEF1 ":234" .SETN DEF2 171776 .SETN CONTR 0. .SETF ICRFLG .SETF RPEAT .IFT $SAVE .CLOSE .OPEN #0 ICTAB.MAC .ENABLE DATA #0 .TITLE ICTAB .IDENT /MV4.0/ ; ; COPYRIGHT (C) 1976, 1982 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION MV4.0 ; ; ICS/ICR-11 FORTRAN INTERFACE MODULE MAPPING TABLE ; .ICTAB:: ;REF LABEL .DISABLE DATA #0 .; .; THE FOLLOWING LOOP IS EXECUTED ONCE PER CONTROLLER. THE .; USER IS ASKED FOR THE MODULE CONFIGURATION OF THE ICS/ICR, .; WHICH IS THEN SAVED IN LOCAL VARIABLES. .; .; CONTR contains the current UCB (controller) number. .; MODn is set to the type code of the module residing .; in ICS/ICR slot n. Type codes are as follows: .; 0 Slot is empty .; 1 A/D Converter .; 2 D/A Converter .; 3 Single-shot Output .; 4 Bistable Output .; 5 Digital Sense .; 6 Digital Interrupt .; 7 I/O Counter .; 8 A/D Multiplexor .; DATAn contains related data for the module in slot n: .; for A/D converters the data is the bus address, .; for A/D multiplexors the data for the first .; multiplexor contains the number of multiplexors, .; and for other devices the data contains the .; relative slot number. .; NUMx is set to the number of modules of type x, where .; x is selected from the list of type codes above, .; excluding 0 and 8. .; .IC40: ; .ASKN [DEF0:774'DEF1'] VEC 3.'$SF1' IC controller 'CONTR' vector address .IFT .GOTO IC40 .SETN DEF0 300 .SETS DEF1 "" .SETN MAXMOD 16. .IC55: .IFF $EC .OR .IF CONTR GT 0. .GOTO IC60 .IC60C: ; ; 171776 is the standard CSR address for the first ICS/ICR-11. ; Additional ICS/ICR-11 CSR addresses are assigned starting at ; 171766 and proceed downward at eight byte intervals (e.g. ; 171766, 171756, 171746, etc.). ; .IC60: .ASKN [160000:177700:DEF2] CSR 4.'$SF1' CSR address .IF CONTR EQ 0 .SETN $ICLOC CSR/1000*10 .IFT .GOTO IC60C .SETN DEF2 CSR-10 .IC70: .ASK ICR 5.'$SF1' Is it an ICR-11 .IFT .GOTO IC70 .IFT ICR .DATA #1 I$$CR=0 ;ICR/11 REMOTE UNIT .IFT ICR .SETT ICRFLG .; .; CLEAR OUT THE MODULE TABLE (MODn) FOR THIS CONTROLLER .; .SETN I 0. .IC75: .SETN MOD'I' 0 .INC I .IF I LE 15. .GOTO IC75 .IC80: .ASKN [0.:'MAXMOD.'] NUM1 6.'$SF1' Number of A/D converter modules in this ICS/ICR .IFT .GOTO IC80 .IF NUM1 EQ 0 .GOTO IC130 .DATA #1 I$$CAD=0 ;ICS/ICR-11 A/D CONVERTER MODULES .SETN MAXMOD MAXMOD-NUM1 .SETN CNT 1 .IC90: .ASKN [0.:15.] MOD 7.'$SF1' A/D converter module number .IFT .GOTO IC90 .IF MOD'MOD' NE 0 ; SGN -- Module 'MOD' is already in use -- RETRY .IF MOD'MOD' NE 0 .GOTO IC90 .SETN MOD'MOD' 1 ;A/D MODULE .SETN DATA'MOD' (CSR&177000)+(CONTR*40)+MOD+MOD ;BUS ADDRESS .IF MOD EQ 15. .GOTO IC125 .IFF $EC .OR .IFT RPEAT .GOTO IC100 .IC100C: ; ; The IMX-IA is a 16 channel expander multiplexer for the IAD-IA ; A/D converter. Up to 7 IMX-IA modules may be added to each ; IAD-IA A/D converter. All IMX-IA modules must be physically ; adjacent to their associated IAD-IA converter. ; .IC100: .ASKN [0.:7.] MPX 8.'$SF1' Number of expansion multiplexers .IFT .GOTO IC100C .SETT RPEAT .IF MPX EQ 0 .GOTO IC125 .SETN TEST MPX+MOD .IF TEST GT 15. ; SGN -- Too many multiplexers. .IF TEST GT 15. .GOTO IC100C .SETN TEST 0 .SETN I MOD+1 .IC110: .IF MOD'I' NE 0 ; SGN -- Module 'MOD' is already in use. .IF MOD'I' NE 0 .SETN TEST 1 .INC I .IF I LE MPX+MOD .GOTO IC110 .IF TEST NE 0 .GOTO IC100C .SETN I MOD+1 .IC120: .SETN MOD'I' 8. ;MPX MODULE .SETN DATA'I' MPX ;NUMBER OF MPX"S .INC I .IF I LE MPX+MOD .GOTO IC120 .SETN MAXMOD MAXMOD-MPX .IC125: .INC CNT .IF CNT LE NUM1 .GOTO IC90 .IC130: .ENABLE LOWERCASE .SETS TYP2 "D/A converter" .SETS TYP3 "Single-shot output" .SETS TYP4 "Bi-stable output" .SETS TYP5 "Digital sense" .SETS TYP6 "Digital interrupt" .SETS TYP7 "I/O counter" .DISABLE LOWERCASE .SETS EC2 "DA" .SETS EC3 "SS" .SETS EC4 "LT" .SETS EC5 "DS" .SETS EC6 "IM" .SETS EC7 "TI" .SETN NUM2 0. .SETN NUM3 0. .SETN NUM4 0. .SETN NUM5 0. .SETN NUM6 0. .SETN NUM7 0. .SETN MOD16 0. .SETN I 2. .IC140: .IFT $EC .IF CONTR EQ 0. .GOSUB ICEC'I' .ENABLE LOWERCASE .SETS TYPE TYP'I' .DISABLE LOWERCASE .IC145: .IF MAXMOD EQ 0 .GOTO IC162 .ASKN [0.:'MAXMOD.'] NUM'I' 1'I'.'$SF1' Number of 'TYPE' modules in this ICS/ICR .IFT .GOSUB ICEC'I' .IFT .GOTO IC145 .IF NUM'I' EQ 0 .GOTO IC160 .SETS TYPE1 EC'I' .DATA #1 I$$C'TYPE1'=0 ;ICS/ICR-11 'TYPE' MODULES .SETN MAXMOD MAXMOD-NUM'I' .SETN J 1. .IC150: .ASKN [0.:15.] MOD 9.'$SF1' 'TYPE' module number .IFT .GOTO IC150 .IF MOD'MOD' NE 0 ; SGN -- Module 'MOD' is already in use. .IF MOD'MOD' NE 0 .GOTO IC150 .SETN MOD'MOD' I .SETN DATA'MOD' CONTR*20+MOD ;RELATIVE SLOT NUMBER .INC J .IF J LE NUM'I' .GOTO IC150 .IC160: .INC I .IF I LE 7 .GOTO IC140 .GOTO IC162 .ICEC2: ; ; The IDA-OA is a 4 channel digital to analog converter capable ; of driving 0 to 10 volts or 0 to 50 milliamps. ; .RETURN .ICEC3: ; ; The single-shot outputs available for the ICS/ICR-11 include ; the IDC-OB DC voltage output and the IAC-OB AC voltage output ; modules. ; .RETURN .ICEC4: ; ; The bi-stable digital output modules for the ICS/ICR-11 ; include the IRL-OA and IRL-OB relay outputs, and the IAC-OA ; AC voltage outputs. ; .RETURN .ICEC5: ; ; The digital sense modules for the ICS/ICR-11 include the ; IDC-IA isolated DC input, the IDC-ID non-isolated input, ; and the IAC-IA AC input. ; .RETURN .ICEC6: ; ; The digital interrupt modules for the ICS/ICR-11 include the ; IDC-IB isolated DC interrupt, the IDC-IE non-isolated DC ; interrupt, and the IAC-IB AC interrupt. ; .RETURN .ICEC7: ; ; The IDC-IC is a 16 bit binary up-counter with prescalar input ; and both external trigger and overflow outputs. ; .RETURN .IC162: .SETN REC 0 .SETN TEST NUM2+NUM4+NUM7 .IF TEST EQ 0 .GOTO IC168 ;RECOVERY MODULES? .IFF $EC .OR .IF CONTR GT 0. .GOTO IC164 .IC164C: ; ; The RSX-11M/S ICS/ICR-11 driver will optionally restore the ; state of all bi-stable digital outputs, analog outputs, and ; I/O prescalar values on power recovery and recovery from ; sustained ICR-11 serial transmission errors. ; .IC164: .ASK RECOV 10.'$SF1' Restore module status on power and error recovery .IFT .GOTO IC164C .IFT RECOV .SETN REC 1 .IC168: .DATA #2 U.RST'CONTR'='REC' ;RESTORE STATUS .GOSUB SCBIC .ENABLE DATA #2 .WORD 0 .BYTE 0,2 .WORD 0 .DISABLE DATA #2 .SETS TEMP0 "0" .IFT ICR .SETS TEMP0 "CB'CONTR'" ;NEED CIR BUF? .DATA #2 .WORD 'TEMP0' .SETS TEMP0 "0" .SETS TEMP1 "0" .SETN TEST NUM1+NUM6+NUM7 .IF TEST GT 0 .SETS TEMP0 "IMT'CONTR'" ;INTERRUPT MODULES .DATA #2 .WORD 'TEMP0' .SETS TEMP0 "0" .IF NUM1 GT 0 .SETS TEMP0 "AD'CONTR'" ;A/D"? .DATA #2 .WORD 'TEMP0' .SETS TEMP0 "0" .IF NUM6 GT 0 .SETS TEMP0 "DI'CONTR'" ;DI"S? .DATA #2 .WORD 'TEMP0' .SETS TEMP0 "0" .IF NUM7 GT 0 .SETS TEMP0 "CT'CONTR'" ;COUNTERS? .DATA #2 .WORD 'TEMP0' .SETS TEMP0 "0" .IFT ICR .SETS TEMP0 "RTI'CONTR'" ;REM TERM INPUT? .DATA #2 .WORD 'TEMP0' .SETS TEMP0 "0" .SETS TEMP1 "0" .SETN TEMP2 0. .IF NUM2 EQ 0 .GOTO IC171 ;D/A"S? .SETS TEMP0 "DAMP'CONTR'" .SETS TEMP1 "DAPS'CONTR'" .SETN TEMP2 4.*NUM2-1. .IC171: .ENABLE DATA #2 .WORD 'TEMP0' .WORD 'TEMP1' .WORD 'TEMP2.' .DISABLE DATA #2 .IF NUM2 EQ 0 .GOTO IC172 .SETS TEMP0 "0" .SETS TEMP1 "0" .SETN TEMP2 0. .IC172: .IF NUM3 GT 0 .SETS TEMP0 "SSMP'CONTR'" ;SINGLE SHOTS? .IF NUM3 GT 0 .SETN TEMP2 16.*NUM3-1. .ENABLE DATA #2 .WORD 'TEMP0' .WORD 'TEMP1' .WORD 'TEMP2.' .DISABLE DATA #2 .SETS TEMP0 "0" .SETN TEMP2 0. .IF NUM4 EQ 0 .GOTO IC173 ;LATCHES? .SETS TEMP0 "LTMP'CONTR'" .SETS TEMP1 "LTPS'CONTR'" .SETN TEMP2 16.*NUM4-1. .IC173: .ENABLE DATA #2 .WORD 'TEMP0' .WORD 'TEMP1' .WORD 'TEMP2.' .DISABLE DATA #2 .;GENERATE CIRCULAR BUFFER .IFT ICR .DATA #2 CB'CONTR': .BLKW 16.+4. .SETN TEST NUM1+NUM6+NUM7 .IF TEST EQ 0 .GOTO IC190 .SETN I 0. ;GENERATE INTERRUPT MAPPING TABLE .DATA #2 IMT'CONTR': .IC175: .SETN REL'I' 0. .INC I .IF I LE 8. .GOTO IC175 .SETN I 0. .IC180: .SETN J MOD'I' .SETN K REL'J' .DATA #2 .BYTE 'K.' .IF J NE 0 .INC REL'J' .INC I .IF I LE 15. .GOTO IC180 .IC190: .IF NUM1 EQ 0 .GOTO IC220 .SETN MAXCH NUM1*120.-1. ;GENERATE A/D TABLE .ENABLE DATA #2 AD'CONTR': .WORD 'MAXCH.' .BYTE 0,0 .BLKW 7 .DISABLE DATA #2 .SETN I 0. .IC200: .IF MOD'I' NE 1 .GOTO IC210 .SETN HCH 1 .SETN J I+1 ;MOD'J' IS FIRST MPX, IF IT EXISTS .IF MOD'J' EQ 8. .SETN HCH HCH+DATA'J' ;HCH = 1 + # OF MPX"S .SETN BUSADR DATA'I' .ENABLE DATA #2 .BYTE <'HCH.'*16.>-9.,0 .BLKW 3 .WORD 'BUSADR.'/2&77777 .DISABLE DATA #2 .IF MOD'J' EQ 8. .SETN I I+DATA'J'-1 ;SKIP OVER MPX"S .IC210: .INC I .IF I LE 15. .GOTO IC200 .IC220: .IF NUM6 EQ 0 .GOTO IC230 .SETN HCH NUM6*16.-1 ;GENERATE DIGITAL INTERRUPT TABLE .ENABLE DATA #2 DI'CONTR': .WORD 'HCH.'-15. .BYTE 5*2,1 .BLKW 14. .WORD $IC'CONTR' .DISABLE DATA #2 .SETN I 0. .IC225: .IF MOD'I' NE 6 .GOTO IC227 .SETN BUSADR CSR&177000+DATA'I'+DATA'I' ; BUS ADDRESS .DATA #2 .WORD 0,0,.-2,0,'BUSADR.'/2&77777 .IC227: .INC I .IF I LE 15. .GOTO IC225 .IC230: .IF NUM7 EQ 0 .GOTO IC260 .SETN HCH NUM7-1. ;GENERATE COUNTER TABLE .ENABLE DATA #2 CT'CONTR': .WORD 'HCH.' .BYTE 4*2,1 .BLKW 14. .WORD $IC'CONTR' .DISABLE DATA #2 .SETN I 0. .IC240: .IF MOD'I' NE 7 .GOTO IC250 .SETN BUSADR CSR&177000+DATA'I'+DATA'I' ;BUS ADDRESS .ENABLE DATA #2 .WORD 0,0,.-2,0 .WORD 'BUSADR.'/2&77777 .DISABLE DATA #2 .IC250: .INC I .IF I LE 15. .GOTO IC240 .IC260: .IF NUM2 EQ 0 .GOTO IC290 .ENABLE DATA #2 ;GENERATE D/A TABLE DAPS'CONTR': .REPT 'NUM2.'*4. .WORD 0 .ENDR DAMP'CONTR': .DISABLE DATA #2 .SETN I 0. .IC270: .IF MOD'I' NE 2 .GOTO IC280 .SETN BUSADR DATA'I' ;RELATIVE SLOT NUMBER .DATA #2 .BYTE 'BUSADR.' .IC280: .INC I .IF I LE 15. .GOTO IC270 .DATA #2 .EVEN .IC290: .IF NUM3 EQ 0 .GOTO IC320 .;GENERATE SINGLE SHOT TABLES .DATA #2 SSMP'CONTR': .SETN I 0. .IC300: .IF MOD'I' NE 3 .GOTO IC310 .SETN BUSADR DATA'I' ;RELATIVE SLOT NUMBER .DATA #2 .BYTE 'BUSADR.' .IC310: .INC I .IF I LE 15. .GOTO IC300 .DATA #2 .EVEN .IC320: .IF NUM4 EQ 0 .GOTO IC350 .ENABLE DATA #2 ;GENERATE LATCH TABLES LTPS'CONTR': .REPT 'NUM4.' .WORD 0 .ENDR LTMP'CONTR': .DISABLE DATA #2 .SETN I 0. .IC330: .IF MOD'I' NE 4 .GOTO IC340 .SETN BUSADR DATA'I' ;RELATIVE SLOT NUMBER .DATA #2 .BYTE 'BUSADR.' .IC340: .INC I .IF I LE 15. .GOTO IC330 .DATA #2 .EVEN .IC350: .IFF ICR .GOTO IC351 .ENABLE DATA #2 ;GENERATE REMOTE TERMINAL TABLE RTI'CONTR': .WORD 0 .BYTE 4*2,4*2 .BLKW 14. .WORD $IC'CONTR' .WORD 0,0,.-2,0 .DISABLE DATA #2 .IC351: .SETN K 5. ;GENERATE ICTAB .SETN BUSADR 0 .IC352: .DATA #0 $$$=. .SETN J NUM'K' .DATA #0 .WORD 'J.' .IF NUM'K' EQ 0 .GOTO IC355 .SETN I 0. .IC354: .IF MOD'I' EQ K .SETN BUSADR DATA'I' .IF MOD'I' EQ K .DATA #0 .BYTE 'BUSADR.' .INC I .IF I LE 15. .GOTO IC354 .IC355: .IF J GT 15. .GOTO IC358 .IC356: .DATA #0 .BYTE 0 .INC J .IF J LE 15. .GOTO IC356 .IC358: .INC K .DATA #0 I.CTBL==.-$$$*3 .IF K LE 7. .GOTO IC352 .IC360: .INC CONTR .IF CONTR LT NCONTR .GOTO IC40 .DATA #0 .END .CLOSE #0 .; .GOTO IAS'$IAS' .IASF: .IFT $SAVE .OPENA '$SAO' .GOTO IAS1 .IAST: .SETS UIC .IFF $MLH .IFT $SAVE .IF UIC NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFT $SAVE .OPEN '$SAO' .IFF $MLH .IF UIC NE SET /UIC='UIC' .IAS1: .INC $DCBN .IFF ICRFLG .GOTO IS .IFF $EC .GOTO IC370 .IC370C: ; ; The RSX-11M/S ICS/ICR-11 driver will place an ICR-11 subsystem ; offline if the serial line errors exceed a predefined limit ; during one second of elapsed time. The subsystem will ; automatically be placed online when serial line errors have ; stopped. .IC370: ; .ASKN [0:5000.] E 11.'$SF1' How many line errors are acceptable per second? .IFT .GOTO IC370C .INC E .DATA #1 I$$CWD='E.' ;ICS/ICR-11 ERROR COUNT .; .;IS DSS/DRS .; ; ; DRS/DSS controllers ; .IS: .IF $NDSS EQ 0 .GOTO IS200 .ASK $EC 18.'$SF1' Expanded comments for DSS/DRS questions .IS10: .ASKN [0:16.] ZN1 19.'$SF1' Number of DRS-11 modules .IFT .GOTO IS10 .SETN NVEC 1 .IF ZN1 EQ 0 .GOTO IS110 .DATA #1 I$$SDR='ZN1.' ;DRS-11 OUTPUT MODULES .IS20: .ASK RECOV 20.'$SF1' Restore module status on power and error recovery .IFT .GOTO IS20 .IFT RECOV .DATA #1 I$$SPW=0 ;DRS-11 POWER RECOVERY .IS30: ; .SETN I 0. .ASKN [160000:177700] Z2 21.'$SF1' DRS-11 CSR address .IFT .GOTO IS30 .SETN $ISLOC Z2/100 .DATA #1 I$$SRC='Z2' ;DRS-11 COMMAND REGISTER ADDRESS .IS40: .ASKN [300:774] VEC'I' 22.'$SF1' DRS-11 vector address .IFT .GOTO IS40 .SETN TEMPN VEC'I'+(NVEC*4) .IF TEMPN GT $HIV .SETN $HIV TEMPN .INC I .IF I LT ZN1 .GOTO IS40 .SETN TEST ZN1 .IF ZN1 EQ 16. .GOTO IS135 .IS110: ; .ASKN [0.:16.-ZN1] ZN2 23.'$SF1' Number of DSS-11 digital input modules .IFT .GOTO IS110 .SETN TEST ZN1+ZN2 .IF TEST EQ 0 .GOTO IS200 .IF ZN2 EQ 0 .GOTO IS135 .SETT $DSS .DATA #1 I$$SDS='ZN2.' ;DSS-11 INPUT MODULES .IS120: ; .ASKN [160000:177700] Z3 24.'$SF1' DSS-11 CSR address .IFT .GOTO IS120 .SETN $ISLOC Z3/100 .DATA #1 I$$SSC='Z3' ;DSS-11 COMMAND REGISTER ADDRESS .DATA #1 I$$SCM=0 .SETN I ZN1 .IS130: .ASKN [300:774] VEC'I' 25.'$SF1' DSS-11 vector address .IFT .GOTO IS130 .SETN TEMPN VEC'I'+(NVEC*4) .IF TEMPN GT $HIV .SETN $HIV TEMPN .INC I .IF I LT TEST .GOTO IS130 .IS135: .IFF $EC .GOTO IS140 .IS140C:; ; The RSX-11M/S DRS/DSS-11 driver provides the capability to ; initiate a task as the result of an unsolicited (external) ; interrupt. If this option is selected, support is provided to ; allow tasks to be linked to interrupts and to obtain activation ; data when initiated. ; .IS140: .ASK ACTIV 26.'$SF1' Task activation from unsolicited interrupts .IFT .GOTO IS140C .IFT ACTIV .DATA #1 I$$SLK=0 ;TASK ACTIVATION FROM INTERRUPTS .DATA #1 I$$S11='TEST.' ;DRS/DSS-11 INPUT/OUTPUT MODULES .SETS DEV "IS" .SETF MUPC .SETS FUNMSK "50000,50000,0,0,12,12,0,0" .SETN NCONTR 1 .GOSUB DCB .ENABLE DATA #2 ISST=. .IF DF M$$MUP .WORD 0 .ENDC .IS0:: .WORD .DC'$DCBN' .WORD .-2 .BYTE UC.QUE!UC.PWF,0 .BYTE 0,US.RED .WORD 0,0,0,0 .WORD $IS0 .WORD 0,0,0,0 ISND=. .DISABLE DATA #2 .SETT INTR .SETF ERRL .SETF DIAG .SETN IPRI 5 .SETN ITOC 2 .SETN FCONTR 0 .SETN CSR 0 .SETN NCONTR 1 .; .; GENERATE INTERRUPT VECTORS .; .SETN I 0. .IS145: .SETN TMPVEC VEC'I' .ENABLE DATA #2 .ASECT .='TMPVEC' .WORD $ISINT .WORD PR7!'I.' .PSECT .DISABLE DATA #2 .INC I .IF I LT TEST .GOTO IS145 .DEC I .; .; .GOSUB SCB .INC $DCBN .GOTO IS200 .; .; SUBROUTINE DCB - GENERATE A DCB .; .DCB: .SETN FCONTR 0 .SETN FUNIT 0 .DCBA: .SETN CONTR FCONTR .SETN UNIT FUNIT .IFT $SAVE .CLOSE .; .GOTO IAS'$IAS' .IASF: .OPENA #0 RSXBLD.CMD .GOTO IAS1 .IAST: .IFF $MLH PIP RSXBLD.CMD;-1=RSXBLD.CMD/AP .OPEN #0 RSXBLD.CMD .IAS1: .DATA #0 LB:['$SYGRP',2'$GRP']RSX11'$SYS'/LB:'DEV'DRV .CLOSE #0 .; .GOTO IAS'$IAS' .IASF: .IFT $SAVE .OPENA '$SAO' .GOTO IAS1 .IAST: .SETS UIC .IFF $MLH .IFT $SAVE .IF UIC NE "['$DFUIC']" SET /UIC=['$DFUIC'] .IFF $MLH .IFT $SAVE PIP '$SAO'='$SAO'/AP .IFT $SAVE .OPEN '$SAO' .IFF $MLH .IF UIC NE SET /UIC='UIC' .IAS1: .SETS TEMPS "" .IFF $PWI .SETS TEMPS "/LI:TTM" .SETS ZS4 ",'$LST''DEV'DRV'TEMPS''$SPL'" .IF $ALD EQ "NL:" .SETS ZS4 "" .DATA #3 '$DIR''DEV'DRV'ZS4'='$PREFX','$DRV''DEV'DRV .DCB6: .ENABLE DATA #2 ; ; 'DEV' DCB ; .IIF DF LD$'DEV', $'DEV'TBL=0 .DC'$DCBN': .DISABLE DATA #2 .INC $DCBN .DATA #2 .WORD .DC'$DCBN' .DEC $DCBN .DATA #2 .WORD .'DEV''FUNIT' .DATA #2 .ASCII /'DEV'/ .IFF MUPC .DATA #2 .BYTE 'FUNIT','NCONTR.'-1 .IFT MUPC .DATA #2 .BYTE 'FUNIT','DEV'H .DATA #2 .WORD 'DEV'ND-'DEV'ST .DATA #2 .WORD $'DEV'TBL .DATA #2 .WORD 'FUNMSK' .GOTO DCB20 .SETS ZS4 "3" .DATA #2 .IF DF A$$CPS .IFF DIAG .DATA #2 .WORD 1770'ZS4'7,'ZS4'0,0,177000,377,0,0,377 .IFT DIAG .DATA #2 .WORD 1770'ZS4'7!UMD,30,0,177000,377,0,0,377 .DATA #2 .IFF .IFF DIAG .DATA #2 .WORD 1600'ZS4'7,'ZS4'0,160000,0,7,0,1,6 .IFT DIAG .DATA #2 .WORD 1600'ZS4'7!UMD,30,160000,0,7,0,1,6 .DATA #2 .ENDC .DCB20:.ENABLE DATA #2 .IF DF L$$DRV .WORD 0 .ENDC ; ; 'DEV' UCB''S ; .DISABLE DATA #2 .SETN CONTR 0 .SETN UNIT 0 .RETURN .; .; SUBROUTINE SCB - GENERATE SCB'S .; .; INPUT: .; LOGICAL SYMBOLS: .; INTR TRUE IF INTERRUPT DEVICE .; NPRD TRUE IF UNIBUS NPR DEVICE .; ERRL TRUE IF ERROR LOGGING SUPPORTED .; DIAG TRUE IF DIAGNOSTICS SUPPORTED .; MUPC TRUE IF MULTIPLE UNITS PER CONTROLLER ALLOWED .; .; NUMERIC SYMBOLS: .; FCONTR STARTING CONTROLLER NUMBER .; NCONTR HIGHEST CONTROLLER NUMBER + 1 .; CSR (X=0,1,...) CSR ADDRESS OF CONTR. NUMBER X .; UNIT HIGHEST UNIT NUMBER + 1 .; ITOC INITIAL TIMEOUT COUNT .; IPRI INTERRUPT PRIORITY .; NREG NUMBER OF DEVICE REGISTERS TO SAVE (ERRL OR DIAG) .; ROFS OFFSET FROM CSR TO FIRST REG TO SAVE (ERRL OR DIAG) .; .; STRING SYMBOLS: .; DEV DEVICE MNEMONIC .; .SCB: .SETN CONTR FCONTR .ENABLE DATA #2 ; ; 'DEV' SCB''S ; .DISABLE DATA #2 .SCB10: .SCBIC: .IF DEV EQ "IS" .SETN VEC 0 .IF DEV EQ "IS" .GOTO SCBIS .DATA #2 .IF NDF LD$'DEV' .DATA #2 .ASECT .DATA #2 .='VEC' .DATA #2 .WORD $'DEV'INT .DATA #2 .WORD PR7+'CONTR' .DATA #2 .PSECT .DATA #2 .ENDC .SCBIS: .DATA #2 $'DEV''CONTR':: .DATA #2 .WORD 0,.-2 .IF DEV EQ "IS" .DATA #2 .BYTE PR'IPRI',0 .IF DEV EQ "IC" .DATA #2 .BYTE PR'IPRI','VEC'/4 .DATA #2 .BYTE 0,'ITOC.' .DATA #2 .BYTE 'CONTR'*2,0 .IF DEV EQ "IC" .DATAð #2 .WORD 'CSR' .IF DEV EQ "IS" .DATA #2 .WORD 0 .DATA #2 .WORD 0 .DATA #2 .WORD 0,0,0,0 .DATA #2 .IF DF L$$DRV & M$$MGE .DATA #2 .WORD 0 .DATA #2 .ENDC .IF DEV EQ "IS" .SETN TEMPN VEC'I'+(NVEC*4) .IF DEV EQ "IC" .SETN TEMPN VEC+(NVEC*4) .IF TEMPN GT $HIV .SETN $HIV TEMPN .RETURN .99900: ; ; SGN -- SYSGEN encountered an unrecoverable error within the module ; SGNICIS.CMD ; / .IS200: .IFT $RL .SETS $DRV $EXC .DISABLE ESCAPE .IFF $IAS .ERASE LOCAL ðæw¡FÌ€€›c,€.; .; SYSGEN PROCEDURE FOR V4.0 RSX-11M .; .; IDENT 2.00 .ENABLE SUBSTITUTION .ENABLE GLOBAL .ENABLE LOWERCASE .ENABLE ESCAPE .TEST .IFNDF $SGNUC .SETS $SGNUC [2:-1] .SETS $VERSN "M04.00" .SETF $F$MOP .SETF $G$HST .SETN $SWB 0 .SETF $A$M11 .SETS DSK "SY:" .SETS BLDSK "SY:" ; ; SGNKLAB.CMD ; ; COPYRIGHT (C) 1977, 1982 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; Generate support routines for K-Series laboratory ; peripheral support. ; .; .; MODIFIED BY: .; .; M. S. HARVEY 16-JAN-80 .; MSH085 -- CORRECT CHANNEL COUNT FOR AA11-K .; .; M. E. MACKAY 6-MAY-81 .; MEM026 -- ADD LIMITED SUPPORT FOR 11S TARGETTING .; .; .; H. B. BERNSTEIN 15-JUN-81 .; HB012 -- ADD LOWERCASE; SOURCE DISK SUPPORT FOR .; RK06/07, RL01/02, RK05; SGNPARM SUPPORT; .; REMOVED EDIT COMMON QUESTION; ; ; Expanded comments provide a description of every step in this ; SYSGEN command file. On the other hand, short comments ; provide virtually no explanatory text. If expanded comments ; are not selected, they are available on a per query basis ; by entering ESC or ALTMODE following the display of the query. ; .ASK $EC Do you want expanded comments for this SYSGEN dialogue ; ; Note: Although these subroutines are referred to as the K-Series ; subroutines, they also support the LPS-11 and the Q-Bus versions ; of the K-Series peripherals. ; .SETS $SGU "200,200" .ASKS $SGU UFD of SGNPARM.CMD if not ['$SGU'] .IF $SGU EQ "Y" .OR .IF $SGU EQ "" .SETS $SGU "200,200" .TEST $SGU .SETN TEMPN 1 .SETN TEMPN2 .SETS TEMPS2 $SGU[1:1] .SETS TEMPS3 $SGU[:] .IF TEMPS2 EQ "[" .INC TEMPN .IF TEMPS3 EQ "]" .DEC TEMPN2 .SETS TEMPS $SGU[TEMPN:TEMPN2] .SETS $SGU TEMPS @['$SGU']SGNPARM .IFNDF $11MPL .GOTO 100 .SETT $MAP .SETT $22B .SETN $S 4 .IFNDF $SYGRP .SETN $SYGRP 1 .IFNDF $TARGT .SETF $TARGT .SETN $SG 5 .GOTO 285 .100: .IFT $MAP .SETN $S 4 .IFF $MAP .SETN $S 0 .IFF $11S .OR .IF EQ 1 .GOTO 250 .IF $SYGRP NE 1 .SETT $TARGT .250: .IFNDF $TARGT .SETF $TARGT .SETN $SG 5 .IFT $11S .SETN $SG 6 .SETF $11D .IFT $11S .IFT .SETT $11D .SETS $SYS "$" .IFT $11D .SETS $SYS "[11,1]" .SETF $L$SI1 .SETF $Q$BUS .SETF $22B .IFF $11S .IFT $MAP .IF $TME GE 128. .SETT $22B .IF $TPR EQ "11/03" .SETT $L$SI1 .IF $TPR EQ "11/23" .SETT $L$SI1 .IFT $L$SI1 .SETT $Q$BUS .IFT $BGDSK .IFF $RK06 .GOTO 285 .IFT $RK06 .SETS SDSK "CLISRC" .IFT $RL .SETS SDSK "HLPDCL" .IFT $2RK .SETS SDSK "HLPSYS" ; ; Sources for K-Series are distributed on the 'SDSK' disk. ; .ASKS DSK Enter device for 'SDSK' when it is ready (DDU:) [D: '$EXC'] .IF DSK EQ "" .SETS DSK $EXC .TEST DSK .SETS TEMPS DSK[:] .IF TEMPS NE ":" .SETS DSK DSK+":" MOU 'DSK''SDSK' .TESTFILE 'DSK'[45,10]KADDRV.MAC .IF EQ 1 .GOTO 275 ; ; SGNKLAB - The 'SDSK' disk is not software mounted in 'DSK'. we ; will pause so that you can software mount 'SDSK' in 'DSK' ; .PAUSE .275: .IFT $2RK .SETS BLDSK DSK .285: .SETF $L$PS1 .IFF $L$SI1 .ASK $L$PS1 Is your target hardware an LPS-11 .; .; OPEN THE OUTPUT FILES .; SET /UIC=[45,10] .SETT LBRX .IFNINS LBR .SETF LBRX .SETT MACX .IFNINS MAC .SETF MACX .SETT TKBX .IFNINS TKB .SETF TKBX .SETT PIPX .IFNINS PIP .SETF PIPX .OPEN #0 'DSK'KPRE.MAC .DATA #0 .NLIST .OPEN #1 'DSK'KIODT.MAC .OPEN #2 'DSK'KCOM.MAC .SETN ZN1 0 .SETS ZS1 "KPRE" .300: .ENABLE DATA #'ZN1' .TITLE 'ZS1' .IDENT /'$VERSN'/ ; ; COPYRIGHT (C) 1977, 1978, 1980 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; .DISABLE DATA #'ZN1' .SETS ZS1 "KIODT" .INC ZN1 .IF ZN1 = 1 .GOTO 300 .SETS ZS1 "KCOM" .IF ZN1 = 2 .GOTO 300 .ENABLE DATA #0 ; ; ASSEMBLY PREFIX FILE FOR K-SERIES PERIPHERAL SUPPORT SUBROUTINES ; .DISABLE DATA #0 .ENABLE DATA #1 ; ; DEVICE DATA BASE FOR K-SERIES PERIPHERAL SUPPORT SUBROUTINES ; ; ; SYSTEM MACRO CALLS ; .MCALL KSWDF$, KDVDF$ KSWDF$ KDVDF$ .PSECT .KSCT0 .DISABLE DATA #1 .IFF $EC .GOTO NMBF .NMBFEC:; ; The K-Series subroutines will support between 1 and 8 buffers ; per sweep. If continuous sweeps are desired, you must employ ; at least 2 buffers. Note that each additional buffer requires ; an extra 2 words for each possible sweep. The SETIBF routine ; will truncate your buffer list if too many buffers are given. ; .NMBF: .ASKN [1:8.:3] $NMBF Enter maximum number of buffers desired .IFT .GOTO NMBFEC .IFT $L$PS1 .DATA #0 L$$PS1=0 ;LPS-11 SUPPORT .IFT $L$SI1 .DATA #0 L$$SI1=0 ;LSI-11 SUPPORT .IFT $Q$BUS .DATA #0 Q$$BUS=0 ;XXV11 DEVICE SUPPORT .IFT $MAP .DATA #0 M$$MGE=0 ;MAPPED SYSTEM .DATA #0 N$$MBF='$NMBF'. ;MAXIMUM NUMBER OF BUFFERS .SETS ZSX "KW11-K" .IFT $L$PS1 .SETS ZSX "LPSKW" .IFT $Q$BUS .SETS ZSX "KWV11-A" .IFF $EC .GOTO KW00 .KW00EC:; .IFF $L$SI1 .AND .IFF $L$PS1 ; The KW11-K is a dual programmable clock with 7 program .IFF $L$SI1 .AND .IFF $L$PS1 ; selectable rates and a stop rate. The range of clock .IFF $L$SI1 .AND .IFF $L$PS1 ; rates is enhanced by the ability to feed the Clock B .IFF $L$SI1 .AND .IFF $L$PS1 ; overflow into Clock A and use that as a rate for Clock A. .IFT $Q$BUS .OR .IFT $L$PS1 ; the 'ZSX' is a programmable clock with 7 program selectable .IFT $Q$BUS .OR .IFT $L$PS1 ; rates and a stop rate. ; .KW00: .ASK $KW11 Does your subsystem include a programmable clock .IFT .GOTO KW00EC .IFF $KW11 .GOTO KWEND .DATA #0 K$$W11=1 ;'ZSX' CLOCK SUPPORT .IFF $L$SI1 .AND .IFF $L$PS1 .DATA #0 K$W11K=1 ;KW11-K CLOCK .IFF $EC .GOTO KW05 .KW05EC:; ; The event timing routine GTHIST requires data base storage ; of its own, in addition to the clock data base. If you ; eliminate the data base and then attempt to use GTHIST, an ; error will occur. ; .IFT $Q$BUS ; For the Q-Bus version, only mode 1 (inter-stimulus interval .IFT $Q$BUS ; timing) is supported. .IFT $Q$BUS ; .KW05: .ASK $G$HST Do you want subroutine GTHIST .IFT .GOTO KW05EC .IFT $G$HST .DATA #0 G$$HST=0 ;GTHIST DATA BASE .IFF $EC .GOTO KW07 .KW07EC:; ; Multiple clock driven sweeps are accomplished by adding ; a queue of active sweeps. This also greatly increases ; the overhead of the routines (both main memory and execution ; time). It is recommended that you not include this option unless ; you need it. ; .KW07: .ASK $F$MOP Do you want the multple clock driven sweeps feature .IFT .GOTO KW07EC .IFT $F$MOP .DATA #0 FT$MOP=0 ;MULT. CLOCK DRIVEN SWEEPS .IFF $Q$BUS .GOTO KW10CC .IFF $EC .GOTO KV10 .KV10EC:; ; The standard vector address for the KWV11-A is 440. Consult ; field service if you are unsure of the location. ; .KV10: .ASKN [300:774:440] VEC What is its vector address .IFT .GOTO KV10EC .SETN NVEC 2 .GOSUB VCK .IFF VECOK .GOTO KV10 .IFF $EC .GOTO KV20 .KV20EC:; ; The standard CSR address of the KWV11-A is 170420. Consult ; field service if unsure of the location. ; .KV20: .ASKN [160010:177700:170420] CSRA What is its CSR address .IFT .GOTO KV20EC .SETN CSRB CSRA .SETN VECB VEC .SETN VECA VEC .SETS ZS1 "" .GOTO KWGDB .KW10CC:.SETS ZS1 " Clock A" .IFT $L$PS1 .SETS ZS1 "" .IFF $EC .GOTO KW10 .KW10EC:; ; The vector address for the 'ZSX''ZS1' is assigned from the ; floating vector space starting at 300. Consult field ; service to determine the location if unknown. ; .KW10: .ASKN [300:774] VEC Enter vector address of the 'ZSX''ZS1' .IFT .GOTO KW10EC .SETN NVEC 1 .SETN VECA VEC .GOSUB VCK .IFF VECOK .GOTO KW10 .IFF $EC .GOTO KW20 .KW20EC:; ; 170404 is the standard CSR address for the 'ZSX'. Consult ; field service to determine the location if unknown. ; .KW20: .ASKN [160010:177700:170404] CSRA What is its CSR address .IFT .GOTO KW20EC .SETN ZN1 'VECA'+20 .SETN CSRB CSRA .SETN VECB VECA .IFT $L$PS1 .GOTO KWGDB .IFF $EC .GOTO KW30 .KW30EC:; ; The vector address of KW11-K Clock B is normally ; located at 'ZN1'. Consult field service to determine ; the location if unknown. ; .KW30: .ASKN [300:774:'ZN1'] VEC What is the Clock B vector address .IFT .GOTO KW30EC .SETN VECB VEC .SETN NVEC 1 .GOSUB VCK .IFF VECOK .GOTO KW30 .SETN ZN1 'CSRA'+26 .IFF $EC .GOTO KW40 .KW40EC:; ; The standard CSR address for the KW11-K Clock B is ; 'ZN1'. Consult field service to determine its ; location if unknown. ; .KW40: .ASKN [160010:177700:'ZN1'] CSRB What is the Clock B CSR address .IFT .GOTO KW40EC .KWGDB: .; .; Generate data base for clock .; .ENABLE DATA #1 ; ; KW11 CLOCK DATA BASE ; .IF DF K$W11K .KBCSR::.WORD 'CSRB' ;CLOCK B CSR ADDRESS .KBVEC::.WORD 'VECB' ;CLOCK B VECTOR ADDRESS .KBRAT::.WORD 0 ;CLOCK B RATE (LEFT SHIFTED ONE) .KBPRE::.WORD 0 ;CLOCK B PRESET .KBFLG::.WORD 0 ;CLOCK B FLAGS .KBMOD::.WORD 0 ;CLOCK B MODE WORD .CLK16::.WORD 0 ;16-BIT SOFTWARE CLOCK .ENDC .IF DF FT$MOP .KUCNT::.WORD 0 ;COUNT OF SWEEPS USING THE CLOCK .KLQUX:: ;PTR TO INT/EXEC CLOCK ACTIVE QUEUE LST .IF DF M$$MGE .WORD 0 .ENDC .KLQUU::.WORD 0 ;PTR TO USER CLOCK ACTIVE QUEUE LIST .ENDC ;FT$MOP .KACSR::.WORD 'CSRA' ;CSR ADDRESS OF 'ZSX''ZS1' .KAVEC::.WORD 'VECA' ;VECTOR ADDRESS OF 'ZSX''ZS1' .KARAT::.WORD 0 ;SELECTED CLOCK RATE (POSITIONED FOR CSR) .KAPRE::.WORD 0 ;SELECTED'ZS1' PRESET .KAFLG::.WORD 0 ;FLAGS .KADLY::.WORD 0 ;PRESET FOR DELAY FROM START EVENT .KWINT::JSR R4,@#$CRASH ;'ZSX' INTERRUPT ROUTINE ;(2ND WORD MODIFIED AT RUNTIME) ;***********************************************; ; N O T E ; ; ; ; .KWINT MUST IMMEDIATELY PRECEDE .KASWX ; ; ; ;***********************************************; .DISABLE DATA #1 .KWEND:.ENABLE DATA #1 ; ; COMMON RW DATA BASE ; .IF NDF FT$MOP .KASWX::.WORD 0 ;INT/FORK LEVEL SWB ADDRESS .KASWB::.WORD 0 ;USER VIRT ADDRESS OF ACTIVE SWB .ENDC ;FT$MOP .KTKCB::.WORD 0 ;TCB ADDRESS OF TASK .KDFEF::.WORD 30. ;DEFAULT EVENT FLAG NUMBER .DISABLE DATA #1 .IFF $G$HST .GOTO AD .ENABLE DATA #1 ; ; Interrupt routine for gthist event timing routine. One instruction ; is executed here and control is then immediately transferred to ; the ISR in module KGHIST. ; .IF DF G$$HST .TDINT::JSR R4,@#$CRASH ;2ND INSTR WORD MODIFIED AT RUNTIME SWB'$SWB':: .DISABLE DATA #1 .INC $SWB .ENABLE DATA #1 .TDSWB::.WORD SWB'$SWB' ;S.WLNK - LINK TO NEXT SWB .WORD 0 ;S.WFLG - USER FLAGS .WORD 0 ;S.WFL2 - CONTROL FLAGS .BLKW 3 ;S.WUSW - USER STATUS WORD ADDRESS .BLKW 1 ;S.WBNO, SPARE BYTE .BLKW 1 ;S.WEBF, S.WLBF .BLKW 2*N$$MBF ;S.WIBP - BUFFER POINTERS .IF DF M$$MGE .WORD .+2+120000-<$KBASE&177700> ;S.WBPX .IFF .WORD .+4 ;S.WBPX .ENDC .BLKW 2 ;S.WBPT - CURRENT BUFFER POINTERS .BLKW 4 ;S.WSIZ, S.WCNT, S.WNBF, S.WEFN .WORD 0 ;S.WSCR - SYNCH CLOCK ROUTINE (NOT USED) .WORD 0 ;S.WSTS - FINAL STATUS .WORD 0 ;S.WSTR - SCHMITT TRIG ROUTINE .WORD 0 ;S.WEFM - EVENT FLAG MASK .WORD 0 ;S.WEFA - EVENT FLAG ADDRESS .BLKW 3 ;S.WKNT - "KOUNT" ADDRESS .IFF ;G$$HST .TDSWB==0 ;DEFINE IN CASE SOMEONE CALLS GTHIST .ENDC ;G$$HST .DISABLE DATA #1 .AD: .SETS ZSX "AD11-K" .IFT $Q$BUS .SETS ZSX "ADV11-A" .IFT $L$PS1 .SETS ZSX "LPSAD" .IFF $EC .GOTO AD00 .AD00EC:; ; The 'ZSX' is an analog to digital converter. Synchronous ; or trigger-driven sweeps are supported on this device. ; Only one A/D sweep is supported, regardless of the number ; of A/D converters in the subsystem. ; .AD00: .ASKN [0:16.:0] $AD11 How many 'ZSX'''S are in your subsystem .IFT .GOTO AD00EC .IF $AD11 = 0 .GOTO ADEND .SETF ZLX .IFF $EC .GOTO AD05 .AD05EC:; ; The standard multiple channel A/D interrupt routines are generalized ; and do not make full use of the A/D converter. For this and other ; considerations, you may choose to include your own A/D interrupt ; service routine (ISR). It should be, however, patterned after the ; supplied ISR''s (.KADIN0-.KADIN5). This ISR is requested by setting ; the lower three bits of the ADSWP mode word to 7. The ISR ; must have the name .ADINU . ; .AD05: .ASK Z Do you want to include your own A/D interrupt service routine .IFT .GOTO AD05EC .IFT Z .DATA #0 U$$ADI=0 ;USER-WRITTEN A/D ISR .SETN UNIT $AD11 .DATA #0 N$AD11='$AD11' ;'ZSX' A/D CONVERTER SUPPORT .SETF ZL1 .IFF $EC .OR .IFT ZLX .GOTO AD10 .AD10EC:; ; The vector for the 'ZSX' is assigned from the floating vector ; space. Consult field service to determine its location ; if unknown. ; .AD10: .SETS DEF1 ":340" .IFT $Q$BUS .SETS DEF1 ":400" .IFT $L$PS1 .SETS DEF1 ":300" .IF UNIT NE $AD11 .SETS DEF1 "" .SETS ZS " the next " .IF UNIT = $AD11 .SETS ZS " the first " .IF $AD11 = 1 .SETS ZS " your " .ASKN [300:774'DEF1'] VEC What is the vector address of'ZS''ZSX' .IFT .GOTO AD10EC .SETN NVEC 1 .GOSUB VCK .IFF VECOK .GOTO AD10 .SETS DEF1 ":170400" .IF UNIT NE $AD11 .SETS DEF1 "" .IFF $EC .OR .IFT ZLX .GOTO AD20 .AD20EC:; ; Consult field service if unsure about the CSR address. ; .AD20: .ASKN [160000:177700'DEF1'] CSR What is its CSR address .IFT .GOTO AD20EC .SETF Z .IFT $Q$BUS .GOTO AD35 .SETS ZSX1 "AM11-K" .IFT $L$PS1 .SETS ZSX1 "LPSAM" .IFF $EC .OR .IFT ZLX .GOTO AD30 .AD30EC:; ; The 'ZSX1' is a programmable gain multiplexer which adds ; up to 48 more channels to an 'ZSX'. ; .AD30: .ASK Z Does it have an 'ZSX1' .IFT .GOTO AD30EC .IFF Z .GOTO AD35 .IFF $A$M11 .DATA #0 A$$M11=0 ;'ZSX1' SUPPORT .SETT $A$M11 .SETS ZS1 "UF$AMK" .AD35: .IFF Z .OR .IFT $Q$BUS .SETS ZS1 "0" .SETN ZN1 $AD11-UNIT+1 .IFT ZL1 .GOTO AD40 .ENABLE DATA #1 ; ; Interrupt routine for A/D converters. Only 1 ADC is ever connected ; at a time, and the routine that this calls returns to the caller ; of .ADINT (the routine in the interrupt control block). Note ; that the second word of this instruction is modified at runtime ; by the routine .ADSLI based on what sampling options were taken ; by the user. ; .ADINT::JSR R4,@#$CRASH ;INTERRUPT ADDRESS SWB'$SWB':: .DISABLE DATA #1 .INC $SWB .ENABLE DATA #1 .ADSWB::.WORD SWB'$SWB' ;LINK TO NEXT SWB .WORD 0 ;S.WFLG - USER FLAGS .WORD S$WA$D ;S.WFL2 - CONTROL FLAGS .BLKW 3 ;S.WUSW - USER STATS WORD ADDR .BLKW 1 ;S.WBNO, SPARE BYTE .BLKW 1 ;S.WEBF, S.WLBF .BLKW 2*N$$MBF ;S.WIBP - BUFFER POINTERS .IF DF M$$MGE .WORD .+2+120000-<$KBASE&177700> ;S.WBPX .IFF .WORD .+4 ;S.WBPX .ENDC .BLKW 2 ;S.WBPT - CURRENT BUFFER POINTERS .BLKW 4 ;S.WSIZ, S.WCNT, S.WNBF, S.WEFN .WORD 0 ;S.WSCR - SYNCH. CLOCK ROUTINE .WORD 0 ;S.WSTS - FINAL STATUS .WORD 0 ;S.WSTR - SCHMITT TRIG ROUTINE .WORD 0 ;S.WEFM - EVENT FLAG MASK .WORD 0 ;S.WEFA - EVENT FLAG ADDRESS .WORD 0 ;S.WMSK .IF GT N$AD11-1 .WORD 0 ;S.WCSR .IFF .WORD 'CSR' ;S.WCSR .IFTF .WORD PR6 ;S.WPRI - DEVICE PRIORITY .IF DF FT$MOP .IF DF M$$MGE .WORD 0 ;S.WCLQ - QUEUE OF ACTIVE SWEEPS .WORD 0 ;S.WCLX - DITTO, BUT WITH APR5 MAPPING .IFF ;M$$MGE .WORD 0 ;S.WCLQ, S.WCLX - QUEUE OF ACTIVE SWEEPS .ENDC ;M$$MGE .ENDC ;FT$MOP .BLKW 9. ;S.WCHB(BYTE), S.WCBX(BYTE), S.WICH, ;S.WCCH, S.WHCH, S.WCHX, S.WNCH, ;S.WMXC, S.WCHI, S.WGNW .WORD '$AD11' ;S.WUNT - # UNITS ON THIS DEVICE .IFT .WORD 0 ;S.WAUA - OFFSET TO ACTIVE UCB .IFF .WORD S.WUCB ;S.WAUA - OFFSET TO FIRST UCB .ENDC ; ; 'ZSX' UCB''S ; .DISABLE DATA #1 .SETT ZL1 .AD40:.ENABLE DATA #1 ; ; UNIT CONTROL BLOCK FOR 'ZSX' NO. 'ZN1' ; .WORD 'ZS1' ;FLAGS .WORD 'VEC' ;VECTOR ADDRESS .WORD 'CSR' ;CSR ADDRESS .WORD 0 ;U.MAXC - FILLED IN AT RUNTIME .DISABLE DATA #1 .DEC UNIT .SETT ZLX .IF UNIT NE 0 .GOTO AD10 .ADEND:.GOTO DRBEG .; .; SUBROUTINE VCK - CHECK VECTOR ADDRESS .; .; INPUTS: .; .; VEC VECTOR ADDRESS .; .; OUTPUTS: .; .; VECOK TRUE IF OK, FALSE OTHERWISE (MSG OUTPUT IF FALSE) .; .VCK: .; .IF VEC LE $HIV .GOTO .VCK5 .; ; .; ; DURING SYSGEN THE HIGHEST INTERRUPT VECTOR WAS SET TO "$HIV". .; ; TO INCLUDE THIS DEVICE YOU MUST EITHER REGENERATE YOUR SYSTEM, .; ; OR SET THE DEVICE'S INTERRUPT VECTOR TO A LEGAL VALUE. CONSULT .; ; FIELD SERVICE TO CHANGE A DEVICE'S VECTOR ADDRESS. .; ; .; .GOTO ENDKL .VCK5: .SETN ZV1 VEC/4.*4. .IF ZV1 EQ VEC .GOTO VCK10 ; ; *DIAG* - ILLEGAL VECTOR ADDRESS ; .GOTO VCK60 .VCK10: .SETN ZV2 0 .VCK20: .IFNDF $FV'ZV1' .GOTO VCK40 ; ; *DIAG* - VECTOR ALREADY IN USE ; .GOTO VCK60 .VCK40: .SETN ZV1 ZV1+4 .INC ZV2 .IF ZV2 < NVEC .GOTO VCK20 .SETN ZV1 VEC+0. .SETN ZV2 0 .VCK50: .SETT $FV'ZV1' .SETN ZV1 ZV1+4 .INC ZV2 .IF ZV2 < NVEC .GOTO VCK50 .SETT VECOK .GOTO VCK70 .VCK60: .SETF VECOK .VCK70: .RETURN .; .; GENERATE DATA BASE FOR DR11-K .; .DRBEG:.SETS ZSX "DR11-K" .IFT $Q$BUS .SETS ZSX "DRV11" .IFT $L$PS1 .SETS ZSX "LPSDR" .IFF $EC .GOTO DR00 .DR00EC:; ; The 'ZSX' is a general-purpose digital I/O module. These ; subroutines support single digital input/output, and ; clock or interrupt driven sweeps. ; .IFT $L$PS1 ; Note that the relays of the LPSDR are not .IFT $L$PS1 ; supported by these routines. .IFT $L$PS1 ; .DR00: .ASKN [0:16.:0] $DR11 How many 'ZSX'''S are in your subsystem .IFT .GOTO DR00EC .IF $DR11 = 0 .GOTO DREND .DATA #0 N$DR11='$DR11' ;'ZSX' SUPPORT .SETN UNIT $DR11 .SETN UNITP 0 .SETN DRX 0 .SETF ZLX .SETS DEF1 ":300" .SETS DEF2 ":167770" .IFT $L$PS1 .SETS DEF1 ":310" .IFT $L$PS1 .SETS DEF2 ":170410" .IFF $EC .OR .IFT ZLX .GOTO DR10 .DR10EC:; ; The vector addresses for the 'ZSX' are assigned from the floating ; vector space. Consult field service if unsure of the location. ; the input and output vector addresses are contiguous, with .IFF $Q$BUS ; the input vector coming first. .IFT $Q$BUS ; the output vector coming first. ; .DR10: .SETS ZS " the next " .IF UNIT = $DR11 .SETS ZS " the first " .IF $DR11 = 1 .SETS ZS " your " .ASKN [300:774'DEF1'] VEC What is the first vector address of'ZS''ZSX' .IFT .GOTO DR10EC .SETN NVEC 2 .GOSUB VCK .IFF VECOK .GOTO DR10 .IFF $EC .OR .IFT ZLX .GOTO DR20 .DR20EC:; ; Consult field service if unsure about the CSR address ; .DR20: .ASKN [160000:177700'DEF2'] CSR What is its CSR address .IFT .GOTO DR20EC .SETF ZL1 .SETN VECI VEC .SETN VECO VEC+4 .IFT $Q$BUS .SETN VECI VEC+4 .IFT $Q$BUS .SETN VECO VEC .IFT $KW11 .IFF $F$MOP .GOTO DR26 .IFF $EC .OR .IFT ZLX .GOTO DR25 .DR25EC:; ; Duplex I/O sweeps are implemented by allocating two control blocks ; for a single 'ZSX'. You may then start input through the first ; and output through the second. When referring to the units, they ; count as two (i.e. if this option is selected for 'ZSX' #0, it would ; actually be two units, 0 and 1, and the next 'ZSX' would be unit ; 2.) The first of the two units must be used for input and the ; second for output. The software will not check this, however. ; .DR25: .ASK Z Do you want duplex I/O sweeps on this unit .IFT .GOTO DR25EC .IFT Z .GOTO DR27 .DR26: .GOSUB GDRSWB .GOTO DR40 .DR27: .SETN VECO 0 .GOSUB GDRSWB .SETN VECO VEC+4 .SETN VECI 0 .IFT $Q$BUS .SETN VECO VEC .INC UNITP .GOSUB GDRSWB .INC DRX .GOTO DR40 .; .; SUBROUTINE TO GENERATE A SWEEP CONTROL BLOCK FOR THE DIGITAL I/O MODULE. .; .GDRSWB: .SETS LABEL "SWB'$SWB'" .INC $SWB .ENABLE DATA #1 ; ; Interrupt routine for 'ZSX' 'UNITP'. This routine calls the ; ISR located in module KDRDRV. The ISR returns to the caller of ; this interrupt routine. The second word of this instruction ; is modified at runtime. ; JSR R4,@#$CRASH ;GO TO INTERRUPT ROUTINE 'LABEL':: DRSW'UNITP'::.WORD SWB'$SWB' ;S.WLNK - LINK TO NEXT SWB .WORD 0 ;S.WFLG - FLAGS .WORD 0 ;S.WFL2 - MORE FLAGS .BLKW 3 ;S.WUSW - USER STATUS WORD POINTERS .BLKW 1 ;S.WBNO, SPARE BYTE .BLKW 1 ;S.WEBF, S.WLBF .BLKW 2*N$$MBF ;S.WIBP - BUFFER POINTERS .IF DF M$$MGE .WORD .+2+120000-<$KBASE&177700> ;S.WBPX .IFF .WORD .+4 ;S.WBPX .ENDC .BLKW 2 ;S.WBPT - CURRENT BUFFER POINTER .BLKW 4 ;S.WSIZ, S.WCNT, S.WNBF, S.WEFN .WORD 0 ;S.WSCR - SYNCHRONOUS CLOCK ROUTINE .WORD 0 ;S.WSTS - FINAL STATUS .WORD 0 ;S.WSTR - SCHMITT TRIG ROUTINE .WORD 0 ;S.WEFM - EVENT FLAG MASK .WORD 0 ;S.WEFA - EVENT FLAG ADDRESS .WORD 0 ;S.WMSK - MASK FOR SCHMITT TRIG SIMULATION .WORD 'CSR' ;S.WCSR - CSR ADDRESS .WORD PR4 ;S.WPRI - DEVICE PRIORITY .IF DF FT$MOP .IF DF M$$MGE .WORD 0 ;S.WCLQ - QUEUE OF ACTIVE SWEEPS .WORD 0 ;S.WCLX - DITTO, BUT WITH APR5 MAPPING .IFF ;M$$MGE .WORD 0 ;S.WCLQ, S.WCLX - QUEUE OF ACTIVE SWEEPS .ENDC ;M$$MGE .ENDC ;FT$MOP .WORD 0 ;U.FLG .WORD 'VECI' ;U.IVEC - INPUT VECTOR ADDRESS .WORD 'VECO' ;U.OVEC - OUTPUT VECTOR ADDRESS .DISABLE DATA #1 .RETURN .DR40: .INC UNITP .DEC UNIT .SETS DEF1 "" .SETS DEF2 "" .SETT ZLX .IF UNIT > 0 .GOTO DR10 .IFF $EC .GOTO DR45 .DR45EC:; ; The single word digital input/output routines come in two versions: ; 1) a careful, slow version which contains the full functionality ; 2) a fast version that does no error cheecking and contains a ; subset of the functionality (enough to read/write the data) ; ; See the I/O Drivers Reference Manual for details. ; .DR45: .ASK Z Do you want the fast digital I/O routines .IFT .GOTO DR45EC .IFT Z .DATA #0 Q$$DIO=0 ;QUICK SINGLE DIGITAL I/O .SETN UNITP 0 .SETN UNIT $DR11+DRX .IFT $MAP .DATA #1 .DRXPT::.WORD .DRXTB+120000-<$KBASE & 177700> ;APR5 RELOCATED PTR TO SWB TABLE .IFF $MAP .DATA #1 .DRXPT::.WORD .DRXTB .IFF $MAP .DATA #1 .DRXTB:: .ENABLE DATA #1 .DRUTB::.WORD DRSW0 ;POINTERS TO DR11 SWEEP CONTROL BLOCKS ;FOR ACCESS IN USER STATE AND ALL ;STATES ON UNMAPPED MACHINES .DISABLE DATA #1 .DR47: .INC UNITP .DEC UNIT .IF UNIT LE 0 .GOTO DR50 .DATA #1 .WORD DRSW'UNITP' .GOTO DR47 .DR50: .DATA #1 .WORD 0 ;TABLE ENDS WITH A 0 .IFF $MAP .GOTO DR70 .SETN UNITP 0 .SETN UNIT $DR11+DRX .ENABLE DATA #1 .DRXTB::.WORD DRSW0+120000-<$KBASE & 177700> ;POINTERS TO DR11 SWEEP ;CONTROL BLOCKS FOR ACCESS BY MAPPED EXEC LEVEL .DISABLE DATA #1 .DR60: .INC UNITP .DEC UNIT .IF UNIT LE 0 .GOTO DR70 .DATA #1 .WORD DRSW'UNITP'+120000-<$KBASE & 177700> .GOTO DR60 .DR70: .IFT $MAP .DATA #1 .WORD 0 .DREND:.SETS ZSX "AA11-K" .IFT $Q$BUS .SETS ZSX "AAV11-A" .IFT $L$PS1 .SETS ZSX "LPSVC" .IFF $EC .GOTO AA00 .AA00EC:.SETN ZN1 4 .IFT $L$PS1 .SETN ZN1 2 ; ; The 'ZSX' is a 'ZN1'-channel D/A converter. Although ; multiple 'ZSX'''S are supported, only one D/A sweep ; may be active at one time. ; .AA00: .ASKN [0:16.:0.] $AA11 How many 'ZSX'''S are in your subsystem .IFT .GOTO AA00EC .IF $AA11 = 0 .GOTO AAEND .SETF ZL1 .SETF ZLX .SETN UNIT $AA11 .SETN ZNX $AA11*4-1 .DATA #0 N$AA11='$AA11' ;'ZSX' D/A CONVERTERS .SETS DEF1 ":170416" .SETS ZS1 "170416." .IFT $Q$BUS .SETS DEF1 ":170440" .IFT $Q$BUS .SETS ZS1 "170440." .SETN ZN2 3 .IFF $EC .OR .IFT ZLX .GOTO AA10 .AA10EC:; ; The CSR address of the 'ZSX' is 'ZS1' ; Consult field service if unsure of its location. ; .AA10: .SETS ZS " the next " .IF UNIT = $AA11 .SETS ZS " the first " .IF $AA11 = 1 .SETS ZS " your " .ASKN [160000:177700'DEF1'] CSR What is the CSR address of'ZS''ZSX' .IFT .GOTO AA10EC .SETN ZN1 $AA11-UNIT+1 .IFT ZL1 .GOTO AA15 .ENABLE DATA #1 ; ; DATA BASE FOR 'ZSX'. THE 'ZSX' IS NOT RUN IN INTERRUPT MODE ; SWB'$SWB':: .DISABLE DATA #1 .INC $SWB .ENABLE DATA #1 .AASWB::.WORD SWB'$SWB' ;S.WLNK - LINK TO NEXT SWB .WORD 0 ;S.WFLG - FLAGS .WORD 0 ;S.WFL2 - MORE FLAGS .BLKW 3 ;S.WUSW - USER STATUS WORD POINTERS .BLKW 1 ;S.WBNO, SPARE BYTE .BLKW 1 ;S.WEBF, S.WLBF .BLKW 2*N$$MBF ;S.WIBP - BUFFER POINTERS .IF DF M$$MGE .WORD .+2+120000-<$KBASE&177700> ;S.WBPX .IFF .WORD .+4 ;S.WBPX .ENDC .BLKW 2 ;S.WBPT - CURRENT BUFFER POINTERS .BLKW 4 ;S.WSIZ, S.WCNT, S.WNBF, S.WEFN .WORD 0 ;S.WSCR - SYNCH. CLOCK ROUTINE .WORD 0 ;S.WSTS - FINAL STATUS .WORD 0 ;S.WSTR - SCHMITT TRIG ROUTINE .WORD 0 ;S.WEFM - EVENT FLAG MASK .WORD 0 ;S.WEFA - EVENT FLAG ADDRESS .WORD 0 ;S.WMSK - .IF GT N$AA11-1 .WORD 0 ;S.WCSR .IFF .WORD 'CSR' ;S.WCSR .IFTF .WORD 0 ;S.WPRI - DEVICE PRIORITY - NOT USED FOR 'ZSX' .IF DF FT$MOP .IF DF M$$MGE .WORD 0 ;S.WCLQ - QUEUE OF ACTIVE SWEEPS .WORD 0 ;S.WCLX - DITTO, BUT WITH APR5 MAPPING .IFF ;M$$MGE .WORD 0 ;S.WCLQ, S.WCLX - QUEUE OF ACTIVE SWEEPS .ENDC ;M$$MGE .ENDC ;FT$MOP .BLKW 6 ;S.WCHB(BYTE), S.WCBX(BYTE), S.WICH ;S.WCCH, S.WHCH, S.WCHX, S.WNCH .WORD 'ZNX.' ;S.WMXC .BLKW 2 ;S.WCHI, S.WGNW .WORD '$AA11' ;S.WUNT - # UNITS .IFT .WORD 0 ;S.WAUA - OFFSET TO ACTIVE UCB .IFF .WORD S.WUCB ;S.WAUA - OFFSET TO UCB .ENDC ; ; 'ZSX' UCB''S ; .DISABLE DATA #1 .SETT ZL1 .AA15:.ENABLE DATA #1 ; ; UNIT CONTROL BLOCK FOR 'ZSX' NO. 'ZN1' ; .WORD 0,0,'CSR','ZN2' ; .DISABLE DATA #1 .SETS DEF1 "" .SETS ZS1 "ASSIGNED IN THE RANGE 160010-177700." .DEC UNIT .SETN ZN2 ZN2+4 .SETT ZLX .IF UNIT NE 0 .GOTO AA10 .AAEND: .ENABLE DATA #0 N$$SWB='$SWB' ;NUMBER OF SWEEP CONTROL BLOCKS ; ; MACRO TO DEFINE JUMP TO SUBROUTINE WITH RETURN TO CALLER''S CALLER ; .MACRO CALLR ARG JMP ARG .ENDM ; ; MACROS TO REFERENCE PSW FOR NON-LSI-11 PROCESSORS ; .IF NDF L$$SI1 .MACRO MFPS DST MOVB @#PS,DST .ENDM .MACRO MTPS SRC .IF IDN <#0>, CLRB @#PS .IFF MOVB SRC,@#PS .ENDC .ENDM .ENDC .LIST .DISABLE DATA #0 .CLOSE #0 .ENABLE DATA #1 SWB'$SWB'==0 ;MAKE LAST LINK POINTER BE 0 .END .DISABLE DATA #1 .CLOSE #1 .; .; Complete the common block source file, create the assembly command .; files, and make the common block build command file and install .; command file .; .ENABLE DATA #2 .IF DF M$$MGE .IFT .PSECT KCOM,REL,GBL,OVR,D .IFF .ASECT .=160000 .ENDC .KCOMM:: .BLKB 20000-2 ;DEFINE THE COMMON SECTION .END .DISABLE DATA #2 .CLOSE #2 .OPEN #2 'DSK'[45,2'$S']KCOMBLD.CMD .SETS ZS1 "/MM" .IFF $MAP .SETS ZS1 "/-MM" .ENABLE DATA #2 ['$SYGRP',5'$S']KCOM/-HD/PI'ZS1',['$SYGRP',5'$S']KCOM/-SP,['$SYGRP',5'$S']KCOM='DSK'[45,2'$S']KCOM ['$SYGRP',5'$S']RSX11M.STB/SS 'BLDSK'['$SYGRP',1]EXELIB/LB 'BLDSK'['$SYGRP',1]SYSLIB/DL / STACK=0 .DISABLE DATA #2 .IFT $MAP .DATA #2 PAR=KCOM:0:20000 .IFF $MAP .DATA #2 PAR=KCOM:160000:20000 .DATA #2 / .CLOSE #2 .IFT $MAP .IFT $22B .SETN ZN1 177600 .IFT $MAP .IFF $22B .SETN ZN1 7600 .IFF $MAP .SETN ZN1 1600 .OPEN #2 ['$SYGRP','$SG''$S']INSKCOM.CMD .ENABLE DATA #2 SET /MAIN=KCOM:'ZN1':200:DEV INS ['$SYGRP','$SG''$S']KCOM .DISABLE DATA #2 .CLOSE #2 ; ; Respond to the next question with the UFD and filename you want to use ; for the K-Series library. Enter the file specification in the form ; [G,M]Filename . Do not use an extension. All library files have the ; extension ".OLB". Thus, a legal response would be "['$SYGRP',1]KLIB". The ; default library name (applied if you type only a carriage return) is ; "['$SYGRP',1]KLABLIB". ; .ASKS $F Enter UFD and filename for K-Series library .IF $F = "" .SETS $F "['$SYGRP',1]KLABLIB" .OPEN #2 ['$SYGRP','$SG''$S']LNK2KLAB.CMD .ENABLE DATA #2 '$F'/LB:KCOMM,'$F'/LB ['$SYGRP','$SG''$S']RSX11M.STB/SS 'BLDSK'['$SYGRP',1]EXELIB/LB 'BLDSK'['$SYGRP',1]SYSLIB/DL .DISABLE DATA #2 .CLOSE #2 .OPEN #2 ['$SYGRP','$SG''$S']LNK2KCOM.CMD .IFT $MAP .DATA #2 RESLIB=LB:['$SYGRP','$SG'4]KCOM/RW:7 .CLOSE #2 .IFNINS LBR INS '$SYS'LBR SET /UIC=[45,10] .IFNINS PIP INS '$SYS'PIP PIP 'DSK'KMLB.MLB;*/DE/NM .OPEN #2 'DSK'[45,2'$S']KLABMLB.CMD .DATA #2 /DF:MAC .DATA #2 'DSK'[45,10]KMLB/CR:20.:0.:5.='DSK'[45,10]KDVDF,KSWDF .CLOSE #2 LBR @'DSK'[45,2'$S']KLABMLB PIP 'DSK'[45,2'$S']KLABMLB.CMD;*/DE/NM .SETS ZS9 "LBR" .IFT $11D .SETS ZS9 "...LBR" .IFF LBRX REM 'ZS9' .ASK Z Do you want to assemble the routines .IFF Z .GOTO END .IFT MACX .GOTO ASM0 INS '$SYS'MAC .ASM0: SET /UIC=[45,2'$S'] .IFNINS PIP INS '$SYS'PIP PIP 'DSK'*.OBJ;*,'DSK'*.OBS;*,'DSK'KASM.CMD;*,'DSK'[45,3'$S']*.LST;*/DE/NM .SETS $LI "NL" .ASK Z Do you want listings .IFF Z .GOTO ASM10 ; ; Listings require approximately 1500 disk blocks. The listing ; device may be specified as dd, ddu, dd:, or ddu:. You must ; create the UFD [45,34] if you want listings on a device other ; than the K-Series source disk. If you have not yet done so, ; enter ESC or ALTMODE in response to the next question. ; .GOTO ASM5 .ASM5EC: ; ; SGNKLAB will now pause so you can create the UFD ; .PAUSE .ASM5: .ASKS ZS1 What is the listing device .IFT .GOTO ASM5EC .SETS $LI ZS1 .SETS ZS2 ZS1[3:3] .SETS ZS3 ZS1[4:4] .IF ZS2 = ":" .SETS $LI ZS1[1:2] .IF ZS3 = ":" .SETS $LI ZS1[1:3] .ASM10: .SETS ZSX1 "" .IFT $TARGT .SETS ZSX1 "['$SYGRP',1]RSXMAC.SML/ML," .IFT $11D .SETS ZSX1 "['$SYGRP',1]EXEMC/ML," .IFT $TARGT .IFT $11D .SETS ZSX1 "['$SYGRP',1]RSXMAC.SML/ML,EXEMC/ML," .GOSUB GENASM .IFT $2RK ASN 'DSK'=LB: TIM MAC @'DSK'KASM TIM .IFT $2RK ASN SY:=LB: .SETS ZS9 "MAC" .IFT $11D .SETS ZS9 "...MAC" .IFF MACX REM 'ZS9' .ASK Z Do you want to create the library .IFF Z .GOTO END .IFNINS LBR INS '$SYS'LBR PIP 'DSK'K.OBS='DSK'*.OBJ SET /UIC=['$SYGRP',1] LBR '$F'/CR:49.:256.:128.='DSK'[45,2'$S']K.OBS PIP 'DSK'[45,2'$S']K.OBS;*/DE/NM .IFF $MAP .GOTO END .IFF $11D .GOTO ASM15 ; ; If you need to build the common block, you must do so ; after this command file exits. The build file for the ; common block is 'DSK'[45,2'$S']KCOMBLD.CMD. Be sure to use ; the RSX-11M Task Builder supplied with the RSX-11S kit. ; .GOTO END .ASM15: .ASK Z Do you want to build the common block .IFF Z .GOTO END .ASM20: .IFF $11D .IFNINS TKB INS '$SYS'TKB .IFT $11D INS [11,1]11MTKB/TASK=...TKM .SETS TKY "TKB" .IFT $11D .SETS TKY "TKM" .IFT $11D .SETF TKBX SET /UIC=['$SYGRP','$SG''$S'] 'TKY' @'DSK'[45,2'$S']KCOMBLD .END: SET /UIC=['$SYGRP',1] PIP 'DSK'[45,10]KPRE.MAC,KIODT.MAC,KCOM.MAC/PU/NM PIP ['$SYGRP','$SG''$S']LNK2KLAB.*,LNK2KCOM.*,INSKCOM.*,KCOM.*/PU/NM PIP 'DSK'[45,2'$S']KCOMBLD.CMD/PU/NM ; ; The following command files were generated by this dialogue. ; You may wish to edit them to tailor them to your installation. ; ; ['$SYGRP','$SG''$S']LNK2KLAB.CMD - Task Builder command file to add to ; your task''s build command file to ; reference the K-Series peripherals. ; It also references 'BLDSK'['$SYGRP',1]EXELIB ; and ['$SYGRP','$SG''$S']RSX11M.STB . ; .IFF $MAP .GOTO END10 ; ['$SYGRP','$SG''$S']LNK2KCOM.CMD - Task Builder command file to link ; to the I/O page common block. ; .END10: ; ; BASIC+2 and FORTRAN users (FOR and F4P) may wish to add ; the subroutine XRATE to the library. This may be done ; when this command file exits: ; ; >SET /UIC=[45,2'$S'] ; >BP2 ; BASIC2 ; OLD [45,10]KRATE.B2S ; READY ; COM ; READY ; EXIT ; ; or ; ; ; >FOR KRATE=[45,10]KRATE ; ; or ; ; >F4P KRATE=[45,10]KRATE ; ; Then insert the module into the library. ; ; >LBR '$F'/RP=[45,2'$S']KRATE ; .SETS ZS9 "PIP" .IFT $11D .SETS ZS9 "...PIP" .IFF PIPX REM 'ZS9' .SETS ZS9 "LBR" .IFT $11D .SETS ZS9 "...LBR" .IFF LBRX .IFINS LBR REM 'ZS9' .IFF $11D .IFF TKBX .IFINS TKB REM TKB .IFT $11D .IFINS TKM REM ...TKM .SETS ZS9 "PIP" .IFT $11D .SETS ZS9 "...PIP" .IFF PIPX .IFINS PIP REM 'ZS9' SET /UIC=['$SGNUC'] ; ; END OF SGNKLAB.CMD ; .EXIT .; .; GENASM - GENERATE THE ASSEMBLY COMMAND FILE IN [45,2X] .; .GENASM: .OPEN 'DSK'KASM.CMD .IF $LI EQ "NL" .GOTO GENA10 .SETS ZS1 "KSWDF" .GOSUB GENA90 .SETS ZS1 "KDVDF" .GOSUB GENA90 .GENA10:.SETS ZS1 "KAADMP" .GOSUB GENA90 .SETS ZS1 "KAADRV" .GOSUB GENA90 .SETS ZS1 "KAASO3" .GOSUB GENA90 .SETS ZS1 "KADAGR" .GOSUB GENA90 .SETS ZS1 "KADDRV" .GOSUB GENA90 .SETS ZS1 "KADGCH" .GOSUB GENA90 .SETS ZS1 "KADINP" .GOSUB GENA90 .SETS ZS1 "KADIN0" .GOSUB GENA90 .SETS ZS1 "KADIN1" .GOSUB GENA90 .SETS ZS1 "KADIN2" .GOSUB GENA90 .SETS ZS1 "KADIN3" .GOSUB GENA90 .SETS ZS1 "KADIN4" .GOSUB GENA90 .SETS ZS1 "KADIN5" .GOSUB GENA90 .SETS ZS1 "KADSWP" .GOSUB GENA90 .SETS ZS1 "KAST" .GOSUB GENA90 .SETS ZS1 "KBFRMG" .GOSUB GENA90 .SETS ZS1 "KBFSTS" .GOSUB GENA90 .SETS ZS1 "KCLOKA" .GOSUB GENA90 .SETS ZS1 "KCLOKB" .GOSUB GENA90 .SETS ZS1 "KCOM" .GOSUB GENA90 .SETS ZS1 "KCOMM" .GOSUB GENA90 .SETS ZS1 "KCVADF" .GOSUB GENA90 .SETS ZS1 "KDIGO" .GOSUB GENA90 .SETS ZS1 "KDIO" .GOSUB GENA90 .SETS ZS1 "KDISWP" .GOSUB GENA90 .SETS ZS1 "KDOSWP" .GOSUB GENA90 .SETS ZS1 "KDRDRV" .GOSUB GENA90 .SETS ZS1 "KDSCAD" .GOSUB GENA90 .SETS ZS1 "KDSDGO" .GOSUB GENA90 .SETS ZS1 "KEFQA" .GOSUB GENA90 .SETS ZS1 "KFLT16" .GOSUB GENA90 .SETS ZS1 "KGHIST" .GOSUB GENA90 .SETS ZS1 "KIESTO" .GOSUB GENA90 .SETS ZS1 "KIODT" .GOSUB GENA90 .SETS ZS1 "KKWDRV" .GOSUB GENA90 .SETS ZS1 "KLQSUB" .GOSUB GENA90 .SETS ZS1 "KMUL" .GOSUB GENA90 .SETS ZS1 "KPAA" .GOSUB GENA90 .SETS ZS1 "KRCLKB" .GOSUB GENA90 .SETS ZS1 "KRLOC" .GOSUB GENA90 .SETS ZS1 "KRWBF" .GOSUB GENA90 .SETS ZS1 "KSET" .GOSUB GENA90 .SETS ZS1 "KSTADC" .GOSUB GENA90 .SETS ZS1 "KSTB" .GOSUB GENA90 .SETS ZS1 "KSTIBF" .GOSUB GENA90 .SETS ZS1 "KSTOP" .GOSUB GENA90 .SETS ZS1 "KSUB" .GOSUB GENA90 .CLOSE .RETURN .; .; GENA90 - GENERATE ONE LINE FOR ASSEMBLY FILE .; .GENA90: .SETS ZS2 ",'$LI':[45,3'$S']'ZS1'/-SP" .IF $LI = "NL" .SETS ZS2 "" .DATA 'DSK''ZS1''ZS2'='ZSX1''DSK'[45,10]KMLB /ML,KPRE/PA:1,'ZS1' .RETURN d1KÌ€€›c,üX .ENABLE SUBSTITUTION .ENABLE GLOBAL .DISABLE LOWERCASE .ENABLE ESCAPE .IFNDF $MLH .SETF $MLH .IFT $MLH .EXIT .SETS ZP0 "56060" .SETS ZP1 "56130" .SETS ZP2 "56200" .SETS ZP3 "56250" .SETS ZP4 "56320" .SETS ZP5 "56370" .SETS ZP6 "56440" .SETS ZP7 "56510" .SETS ZP10 "56166" .SETS ZP11 "56167" .SETS ZP12 "56170" .SETS ZP13 "56171" .SETS ZP14 "56172" .SETS ZP15 "56173" .SETS ZP16 "56174" .SETS ZP17 "56175" ; ; BLDLAINIT VERSION 02.2 ; .IFDF $MAP .GOTO 50 ; ; COPYRIGHT (c) 1982 BY DIGITAL EQUIPMENT CORPORATION. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. ; .50: .IFDF $SGN2 .SETS DSK $PRV .IFNDF $SGN2 .SETS DSK "" .SETF MCR .IFDF $SGN2 .GOTO 75 .; .; DETERMINE CLI .; .IF EQ "DCL" .OR .IF EQ "MCR" .GOTO 60 ; ; SGN -- Procedure can only be run from MCR or DCL ; .PAUSE .GOTO 50 .60: .IF EQ "MCR" .SETT MCR .IFT MCR .GOTO 70 ; ; Setting the CLI to MCR ; SET TERM MCR ; .70: ; .SETS $SGU "200,200" .ASKS $SGU UFD of SGNPARM.CMD if not ['$SGU'] .IF $SGU EQ "Y" .OR .IF $SGU EQ "" .SETS $SGU "200,200" .TEST $SGU .SETN TEMPN 1 .SETN TEMPN2 .SETS TEMPS2 $SGU[1:1] .SETS TEMPS3 $SGU[:] .IF TEMPS2 EQ "[" .INC TEMPN .IF TEMPS3 EQ "]" .DEC TEMPN2 .SETS TEMPS $SGU[TEMPN:TEMPN2] .SETS $SGU TEMPS @['$SGU']SGNPARM .IFT $BGDSK .GOTO 100 .IFT $RK06 .GOTO 100 .IFT $RL .SETS SDSK "EXCPRV" .IFT $2RK .SETS SDSK "PRVOBJ" ; ; Sources for the LPA11 are distributed on the 'SDSK' disk. ; .ASKS DSK Enter device for 'SDSK' when it is ready (DDU:) [D: '$EXC'] .IF DSK EQ "" .SETS DSK $EXC .TEST DSK .SETS TEMPS DSK[:] .IF TEMPS NE ":" .SETS DSK DSK+":" MOU 'DSK''SDSK' .TESTFILE 'DSK'[1,1]LPA.OBJ .IF EQ 1 .GOTO 75 ; ; SYSGEN - The 'SDSK' disk is not software mounted in 'DSK'. We will ; pause so that you can software mount 'SDSK' in 'DSK' ; .PAUSE .75: .IFNDF $MAP .ASK $MAP Are you building the loader for a mapped system .100: .SETS $S "4" .IFF $MAP .SETS $S "0" .SETS MM "/MM" .IFF $MAP .SETS MM "/-MM" .IFNDF $RL .IFT $MAP .ASK $RL Do you have the RL01 kit .IFNDF $RL .SETF $RL .IFNDF $NLPA .ASKN [0.:16.:1.] $NLPA How many LPA-11''S are in your system .IF $NLPA = 0 / .IFNDF $11S .ASK $11S Are you generating an RSX-11S system .IFF $11S .OR .IF EQ 1 .GOTO 150 .IFNDF $SYGRP .ASKN [1:10:1] $SYGRP What is the group number for the 11S system files .150: ; ; Build the LPA-11 load micro-code task and the loader ; requester task. ; .IFNDF $SYGRP .SETN $SYGRP 1 .SETF $11D .IFT $11S .IFT .SETT $11D .ASK MAP Do you want the maps for the micro code loader tasks .SETS MP "['$SYGRP',3'$S']" .IFF MAP .SETS MP "" .SETS $SG "5" .IFT $11S .SETS $SG "6" .SETT TKBX .SETT PIPX .IFNINS TKB .SETF TKBX .IFT $11D .SETF TKBX .IFNINS PIP .SETF PIPX .IFF $11D .IFNINS TKB INS $TKB .IFT $11D INS [11,1]11MTKB/TASK=...TKM .SETS TKY "TKB" .IFT $11D .SETS TKY "TKM" .SETS SY "$" .IFT $11D .SETS SY "[11,1]" .SETN ZN1 0 .IFF $11S SET /UIC=['$SYGRP',2'$S'] .IFT $11S SET /UIC=['$SYGRP',20] .OPEN LAINIXBLD.CMD .200: ; ; The LPA-11 may be loaded with one of three versions ; of the micro code: ; ; 0 Multi-request mode ; 1 Dedicated mode A/D input ; 2 Dedicated mode D/A output ; .220: .ASKN [0:2:1] ZN3 Enter micro code version desired for LPA-11 #'ZN1' .IFT .GOTO 200 .SETN ZN2 'ZN3'*400+'ZN1' .ASK Z Is the lab I/O on this LPA-11 an AR11 .IFT Z .SETN ZN2 ZN2+100000 .SETS ZS2 ",'MP'LAIN'ZN1'/-SP" .IFF MAP .SETS ZS2 "" .SETS ZS4 "['$SYGRP',20]" .IFT $RL .IFT $MAP .SETS ZS4 "['$SYGRP',24]" .ENABLE DATA ['$SYGRP','$SG''$S']LAIN'ZN1'/-CP/-FP'MM''ZS2'='DSK''ZS4'LAINIT/LB:LAINIX LB:['$SYGRP',1]SYSLIB/DL / ; ; Modify options: ; ; $LAFLG Lo byte Phys. LPA-11 unit number ; Hi byte Mode ; 0 Multi-request ; 1 Dedicated A/D ; 2 Dedicated D/A ; ; BIT 15 0 K-series or LPS-11 ; 1 AR11 ; GBLPAT=LAINIX:$LAFLG:'ZN2' ; ; $LAPRE Preset to start LPA-11 real time clock ; GBLPAT=LAINIX:$LAPRE:1 ; ; Task name: ; ; Task must be installed with the name ; ; LAIN ; ; I.E. LAIN0 for unit 0, LAIN2 for unit 2, etc. ; TASK=LAIN'ZN1' ; ; In addition to changing the task= statement above, you must ; also modify the following gblpat to change the task name ; internally. this internal name is used if the get task parameters ; directive is not implemented. ; ; UNIT PATCH_VALUE ; ---- ----------- ; 0 56060 ; 1 56130 ; 2 56200 ; 3 56250 ; 4 56320 ; 5 56370 ; 6 56440 ; 7 56510 ; 10 56166 ; 11 56167 ; 12 56170 ; 13 56171 ; 14 56172 ; 15 56173 ; 16 56174 ; 17 56175 ; .DISABLE DATA .SETS ZS1 ZP'ZN1' .DATA GBLPAT=LAINIX:$LATK2:'ZS1' .IFT $MAP .DATA PAR=GEN:0:6000 .IFF $MAP .DATA PAR=GEN:40000:6000 .ENABLE DATA UNITS=1 ASG=TI:1 PRI=150 / .DISABLE DATA .INC ZN1 .IF ZN1 < $NLPA .GOTO 220 .CLOSE .OPEN LAINITBLD.CMD .SETS ZS2 ",'MP'LAINIT/-SP" .IFF MAP .SETS ZS2 "" .SETS ZS3 "" .IFT $11D .SETS ZS3 ",['$SYGRP',1]11SLIB/LB" .ENABLE DATA ['$SYGRP','$SG''$S']LAINIT/-CP/-FP/PR:0'MM''ZS2'='DSK''ZS4'LAINIT/LB:LAINIT:MICRO'ZS3' LB:['$SYGRP',1]SYSLIB/DL / UNITS=1 PRI=160 TASK=LAINIT .DISABLE DATA .IFT $MAP .DATA PAR=GEN:0:20000 .IFF $MAP .DATA PAR=GEN:40000:20000 .DATA / .CLOSE .ASK Z Do you want to edit the loader task build command files .IFF Z .GOTO 60 .IFNINS EDI .SETF Z .IFNINS EDI INS 'SY'EDI EDI LAINIXBLD.CMD EDI LAINITBLD.CMD .SETS ZS9 "EDI" .IFT $11D .SETS ZS9 "...EDI" .IFF Z REM 'ZS9' .60: 'TKY' @LAINIXBLD 'TKY' @LAINITBLD .IFNINS PIP INS 'SY'PIP PIP LAINIXBLD.CMD;*/PU,LAINITBLD;* .SETS ZS9 "PIP" .IFT $11D .SETS ZS9 "...PIP" .IFF PIPX REM 'ZS9' .IFF $11D .IFF TKBX REM TKB .IFT $11D REM ...TKM ; ; In order for the LPA-11 micro code loader to function properly, ; on powerfail recovery or driver load you must have the ; following tasks installed: ; ; LAINIT - The micro code loader ; LAIN0 - Loader requestor for LPA-11 unit 0 .IF $NLPA LE 1 .GOTO COM10 ; LAIN1 - Loader requestor for LPA-11 unit 1 ; . ; . ; . ; LAIN17 - Loader requestor for LPA-11 unit 17(8) .COM10: ; ; SYSGEN2, When it creates INSTALL.CMD, only installs LAINIT and ; LAIN0. You must edit INSTALL.CMD to include the other requestor ; tasks. If the required tasks are not installed, the LPA-11 ; microcode will not be loaded automatically. .<; .; RESET CLI .; .IFNDF $SGN2 .IFF MCR SET /CLI=TI:DCL <æwdÌ€€›c,æ.; .; SYSGEN PROCEDURE FOR V4.0 RSX-11M .; .; Written by Mike Harrison .; Modified by Bernie Alimonti .; .; COPYRIGHT (c) 1981 BY .; DIGITAL EQUIPMENT CORPORATION, MAYNARD .; MASSACHUSETTS. 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 COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER .; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE .; MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO .; AND OWNERSHIP OF THE 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 THAT IS .; NOT SUPPLIED BY DIGITAL. .; .; .; IDENT 1.12 .; .ONERR 99900 .ENABLE GLOBAL .ENABLE SUBSTITUTION .DISABLE LOWERCASE .IFNDF $SGN2 .SETF $SGN2 .IFNDF $11SGN .SETF $11SGN .IFT $SGN2 .GOTO 0B ; ; Build Loadable drivers ; .IFT $11SGN .GOTO 0B .; .;DETERMINE CLI .; .SETF $MCR .IF EQ "DCL" .OR .IF EQ "MCR" .GOTO 0A ; ; SGN -- This indirect command procedure can only be run from two ; CLIs -- MCR or DCL. Since '' is not one the CLIs we ; will exit to allow you to set the terminal to either MCR ; or DCL and reinvoke this indirect command procedure. ; / .0A: .IF EQ "MCR" .SETT $MCR .IF EQ "MCR" .GOTO 0B ; ; Setting the CLI to MCR ; SET TERM MCR ; .0B: .; .; ESTABLISH NEEDED SYMBOLS .; .SETS CUIC .IFNDF $IAS .SETF $IAS .IFNDF $MLH .SETF $MLH .IFNDF $SF1 .SETS $SF1 "" .IFT .SETT $IAS .SETT LPX .IFF $IAS .IFNLOA LP: .SETF LPX .IFT $SGN2 .OR .IFT $11SGN .GOTO 10 .; .; INVOKE SGNPARM .; .TEST .SETS $DFUIC [2:-1] .ASKS $SGU 1. UIC of SGNPARM.CMD if not ['$DFUIC'] .IF $SGU EQ "Y" .OR .IF $SGU EQ "" .SETS $SGU $DFUIC .TEST $SGU .SETN TEMPN .SETN TEMPN1 1 .SETS TEMPS $SGU[1:1] .IF TEMPS EQ "[" .INC TEMPN1 .SETS TEMPS $SGU[:] .IF TEMPS EQ "]" .DEC TEMPN .SETS $SGU $SGU['TEMPN1':'TEMPN'] ; @['$SGU']SGNPARM.CMD .IFNDF $SYGRP .SETN $SYGRP 1 ; .; .; PRV OBJ DISK .; .SETS OBJDSK "" .IFT $RL .SETS OBJDSK "EXCPRV" .IFT $2RK .SETS OBJDSK "PRVOBJ" .SETS $PRV "" .IFF $BGDSK .ASKS $PRV 2. Enter device for 'OBJDSK' disk when it is ready (ddu:) [D: '$EXC'] .IF $PRV EQ "" .SETS $PRV $EXC .TEST $PRV .SETS TEMPS $PRV[:] .IF TEMPS NE ":" .SETS $PRV $PRV+":" .IFF $MLH .IFF $BGDSK MOU '$PRV''OBJDSK' .IFF $MLH .IFF $2RK ASN SY:=LB: .IFF $MLH .IFT $2RK ASN '$PRV'=LB: .; .10: .; .; SET WIDE MAP LISTING SWITCH SYMBOL .; .SETS WPI "" .IFF $PWI .SETS WPI "/-WI" .; .; RESOLVE MAP DEVICE .; .IFNDF $MPD .SETS $MPD "SY:" .SETS TEMPS "NL:" .IFT $IAS .SETS TEMPS "NO MAPS" .IFF $MAP .SETS TEMPS $MPD .IF TEMPS EQ "" .SETS TEMPS "SY:" .IFNDF $LDM .ASKS $LDM 3.'$SF1' Device for driver''s maps [D: 'TEMPS'] .IF $LDM EQ "" .SETS $LDM TEMPS .TEST $LDM .SETS TEMPS $LDM[:] .IF TEMPS NE ":" .SETS $LDM $LDM+":" .IF $LDM EQ "NO MAPS:" .SETS $LDM "NL:" .IF $LDM EQ "SY:" .SETS $LDM "" .IFF $IAS .IF $LDM EQ "LP:" .IFNLOA LP: LOA LP: .; .; INSTALL TASKS, SET UIC .; .SETT TKBX .SETS TKX "TKB" .IFT $IAS .SETS TKX "TKM" .IFT $11S .IF EQ 6 .SETS TKX "TKM" .IFINS 'TKX' .GOTO 20 .SETF TKBX .IFF $MLH ; .GOTO IAS'$IAS' .IASF: .IFF $11S .OR .IF NE 6 .IFF $MLH INS SY:$TKB .IFT $11S .IF EQ 6 .IFF $MLH INS SY:['$SYGRP',54]11MTKB/TASK=...TKM .GOTO 20 .IAST: .IFF $MLH INS LB:[11,1]11MTKB/TASK=...'TKX' .20: .SETT PIPX .IFINS PIP .GOTO 30 .SETF PIPX .GOTO IAS'$IAS' .IASF: .IFF $MLH INS SY:$PIP .GOTO 30 .IAST: .IFF $MLH INS LB:[11,1]PIP/TASK=...PIP .30:.IFF $MLH .IF NE "['$SYGRP',2'$GRP']" SET /UIC=['$SYGRP',2'$GRP'] .; .; DETERMINE FOR WHAT TYPE OF SYSTEM WE ARE GENing DRIVERS .; .SETN $GRP 0 .IFT $MAP .SETN $GRP 4 .SETS TSUIC "['$SYGRP',5'$GRP']" .SETS SYS "RSX11M" .IFT $11S .SETS TSUIC "['$SYGRP',6'$GRP']" .IFT $11S .SETS SYS "RSX11S" .; .; DETERMINE IF WE CAN BUILD THE DRIVERS AUTOMATICALLY .; .IFF $MAP .OR .IFT $11S .SETF $BAD .IFNDF $BAD .ASK $BAD 4.'$SF1' Build all selected loadable drivers into DRVPAR .IFT $SGN2 .DATA #1 .SET'$BAD' $BAD .; .; DETERMINE PARTITION BASE ADDRESS .; .IFT $MAP .SETS $PBS "120000" .; .; EITHER AUTO BUILD OR LIST LOADABLE DRIVERS .; .SETN TEMPN 0 .SETS LODDRV "" .SETF TTDRV .IFDF $X$YL .OR .IFDF $X$YH .OR .IFDF $X$YZ .OR .IFDF $X$YJ .SETT TTDRV .SETS SUB "BLDRV" .SETS $DPR "DRVPAR" .IFT $BAD .GOTO 60 .SETS SUB "LODABL" ; ; The following are mnemonics of the loadable device drivers selected. .IFT TTDRV .IFF $FUD ; Note: TT is the mnemonic of the YL, YH, YJ, and YZ devices. ; .60:.SETS TEMPS "AD" .IFDF $X$AD .GOSUB 'SUB' .SETS TEMPS "AF" .IFDF $X$AF .GOSUB 'SUB' .SETS TEMPS "AR" .IFDF $X$AR .GOSUB 'SUB' .SETS TEMPS "CO" .IFDF $X$CO .GOSUB 'SUB' .SETS TEMPS "CR" .IFDF $X$CR .GOSUB 'SUB' .SETS TEMPS "CT" .IFDF $X$CT .GOSUB 'SUB' .SETS TEMPS "DB" .IFDF $X$DB .GOSUB 'SUB' .SETS TEMPS "DD" .IFDF $X$DD .GOSUB 'SUB' .SETS TEMPS "DF" .IFDF $X$DF .GOSUB 'SUB' .SETS TEMPS "DK" .IFDF $X$DK .GOSUB 'SUB' .SETS TEMPS "DL" .IFDF $X$DL .GOSUB 'SUB' .SETS TEMPS "DM" .IFDF $X$DM .GOSUB 'SUB' .SETS TEMPS "DP" .IFDF $X$DP .GOSUB 'SUB' .SETS TEMPS "DR" .IFDF $X$DR .GOSUB 'SUB' .SETS TEMPS "DS" .IFDF $X$DS .GOSUB 'SUB' .SETS TEMPS "DT" .IFDF $X$DT .GOSUB 'SUB' .SETS TEMPS "DU" .IFDF $X$DU .GOSUB 'SUB' .SETS TEMPS "DX" .IFDF $X$DX .GOSUB 'SUB' .SETS TEMPS "DY" .IFDF $X$DY .GOSUB 'SUB' .SETS TEMPS "EM" .IFDF $X$EM .GOSUB 'SUB' .SETS TEMPS "IP" .IFDF $X$IP .GOSUB 'SUB' .SETS TEMPS "LA" .IFDF $X$LA .GOSUB 'SUB' .SETS TEMPS "LP" .IFDF $X$LP .GOSUB 'SUB' .SETS TEMPS "LS" .IFDF $X$LS .GOSUB 'SUB' .SETS TEMPS "MF" .IFDF $X$MF .GOSUB 'SUB' .SETS TEMPS "MM" .IFDF $X$MM .GOSUB 'SUB' .SETS TEMPS "MT" .IFDF $X$MT .GOSUB 'SUB' .SETS TEMPS "MS" .IFDF $X$MS .GOSUB 'SUB' .SETS TEMPS "PP" .IFDF $X$PP .GOSUB 'SUB' .SETS TEMPS "PR" .IFDF $X$PR .GOSUB 'SUB' .SETS TEMPS "TT" .IFF $FUD .IFT TTDRV .GOSUB 'SUB' .SETS TEMPS "XB" .IFDF $X$XB .GOSUB 'SUB' .SETS TEMPS "XL" .IFDF $X$XL .GOSUB 'SUB' .SETS TEMPS "XM" .IFDF $X$XM .GOSUB 'SUB' .SETS TEMPS "XP" .IFDF $X$XP .GOSUB 'SUB' .SETS TEMPS "XQ" .IFDF $X$XQ .GOSUB 'SUB' .SETS TEMPS "XU" .IFDF $X$XU .GOSUB 'SUB' .SETS TEMPS "XW" .IFDF $X$XW .GOSUB 'SUB' .IFF $BAD ; 'LODDRV' .IFF $BAD .GOTO NOAUTO .IFF $UWD .GOTO 90 ; You can now build your user-written driver (if it is a loadable ; driver). If you choose not to build it now, or it is not loadable ; strike carriage return in response to the next question. .NOAUTO: ; ; When all drivers are built, strike carriage return. ; .SETN NDX 0 .80: .INC NDX .IFNDF $LD'NDX'N .ASKS $LD'NDX'N 5.'$SF1' Driver 2-character device mnemonic .SETS TEMPS $LD'NDX'N .IFT $FUD .IF TEMPS EQ "TT" ; SGN -- The full duplex terminal driver was already built .IFT $FUD .IF TEMPS EQ "TT" .GOTO 80 .IFT $SGN2 .DATA #1 .SETS $LD'NDX'N "'TEMPS'" .IF TEMPS EQ "" .GOTO 90 .SETS TEMPS TEMPS[1:2] .SETS TEMPS2 TEMPS .IFT $MAP .SETS TEMPS2 "DRV" .IFNDF $LD'NDX'P .ASKS $LD'NDX'P 6.'$SF1' Drive partition name [D: 'TEMPS2'PAR] .SETS $DPR $LD'NDX'P .IF $DPR EQ "" .SETS $DPR TEMPS2+"PAR" .IFT $SGN2 .DATA #1 .SETS $LD'NDX'P "'$DPR'" .IFT $MAP .GOTO 70 .IFNDF $LD'NDX'B .ASKS $LD'NDX'B 7.'$SF1' '$DPR'''s partition base address in 32 word blocks .SETS $PBS $LD'NDX'B .IFT $SGN2 .DATA #1 .SETS $LD'NDX'B "'$PBS'" .SETS $PBS $LD'NDX'B+"00" .70: .GOSUB BLDRV .GOTO 80 .; .;PRINT TABLE OF LOADABLE DRVIERS .; .LODABL:.SETS LODDRV LODDRV+"'TEMPS' " .INC TEMPN .IF TEMPN EQ 10. ; 'LODDRV' .IF TEMPN EQ 10. .SETS LODDRV "" .IF TEMPN EQ 10. .SETN TEMPN 0 .RETURN .; .;BUILD DRIVER BUILD FILE .; .BLDRV: .IFT $MLH .GOTO 85 .SETS TEMPS2 TEMPS .IFT $KMC .AND .IF TEMPS EQ "LP" .SETS TEMPS2 "LK" .SETS TEMPS3 $LDM+"['$SYGRP',3'$GRP']"+TEMPS+"DRV"+WPI+$SPL .IF $LDM EQ "NL:" .SETS TEMPS3 "" .OPEN '$PRV''TEMPS'DRVBLD.CMD .ENABLE DATA 'TSUIC''TEMPS'DRV/-MM/-HD/-FP,'TEMPS3',SY:'TSUIC''TEMPS'DRV= LB:['$SYGRP',2'$GRP']'SYS'/LB:'TEMPS2'DRV 'TSUIC''SYS'.STB/SS LB:['$SYGRP',1]EXELIB/LB LB:['$SYGRP',1]SYSLIB/DL / STACK=0 .DISABLE DATA .SETN PARLEN 14000 .IF TEMPS EQ "DU" .SETN PARLEN 20000 .DATA PAR='$DPR':'$PBS':'PARLEN' .DATA / .CLOSE .IFF $MLH 'TKX' @'$PRV''TEMPS'DRVBLD .85:.SETT $'TEMPS' .RETURN .; .; INDIRECT ERROR ENTRY POINT .; .99900:; ; SGN -- SYSGEN encountered an unrecoverable error within the ; module SGNBLDDRV.CMD ; / .90:.IFF $MLH .IFF $SGN2 .IFF $11SGN ASN =LB: .IFF $MLH .IFF LPX .IFINS UNL .IF $LDM EQ "SY:" UNL LP: .IFF $MLH .IFF LPX .IFINS UNL .IF $LDM EQ "LP:" UNL LP: .; .GOTO IAS'$IAS' .IASF: .IFF $MLH .IFF TKBX REM 'TKX' .IFF $MLH .IFF PIPX REM PIP .GOTO IAS1 .IAST: .IFF $MLH .IFF TKBX REM ...'TKX' .IFF $MLH .IFF PIPX REM ...PIP .IAS1: .IFF $ZMLH .IF NE CUIC SET /UIC='CUIC' .IFF $MCR .IFF $SGN2 .IFF $11SGN SET /CLI=TI:DCL Z