NAM SYSDAT EXXON DEVELOPMENT SYSTEM SUMMARY-122 * SYSTEM DATA PROGRAM - MSOS 5.0 * 1700 MASS STORAGE OPERATING SYSTEM VERSION 5.0 * SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA * COPYRIGHT CONTROL DATA CORPORATION 1976 * * SIMH DEVELOPMENT SYSTEM * * PROGRAM BASE - MSOS 4.3 * * S Y S T E M D A T A P R O G R A M * * * TABLE OF CONTENTS * * 1. COMMUNICATION EXTERNALS * * 2. COMMUNICATION REGION (INCLUDING APPLICATIONS AREA) * * 3. INTERRUPT REGION * * 4. INTERRUPT MASK TABLE (MASKT) * * 5. EXTENDED COMMUNICATIONS REGION * * 6. STORAGE STACKS (INTSTK,VOLBLK, SCHSTK) * * 7. LOGICAL UNIT TABLES (LOG1A, LOG1, LOG2) * * 8. DIAGNOSTIC TABLES (DGNTAB, ALTERR) * * 9. STANDARD LOGICAL UNIT DEFINITIONS AND LINE 1 TABLE * * 10. PHYSICAL DEVICE TABLES WITH INTERRUPT RESPONSE ROUTINES * * 11. CORE ALLOCATION INFORMATION (CALTHD, LVLSTR, NN'S) * * 12. CORE PARTITION INFORMATION (PARTBL, THDS, USE) * * 13. SYSTEM COMMON DECLARATION * * 14. MISCELLANEOUS PROGRAMS * * 15. MISCELLANEOUS INFORMATION * * 16. SYSTEM FILE INFORMATION * * 17. PRESET REGION * * 18. START OF SYSTEM DIRECTORY * EJT * C O M M U N I C A T I O N S E X T E R N A L S * * EXT FNR FIND NEXT REQUEST EXT COMPRQ COMPLETE REQUEST EXT REQXT REQUEST EXIT EXT VOLR VOLATILE RELEASE EXT VOLA VOLATILE ASSIGNMENT EXT LUABS LOGICAL UNIT ABSOLUTIZING EXT SABS STARTING ADDRESS ABSOLUTIZING EXT CABS COMPLETION ADDRESS ABSOLUTIZING EXT NABS NUMBER OF WORDS ABSOLUTIZING EXT DISPXX DISPATCHER EXT MONI MONITOR EXT MSIZV4 HIGHEST CORE LOCATION USED BY SYSTEM EXT IPROC INTERNAL INTERRUPT PROCESSOR EXT ALLIN COMMON INTERRUPT HANDLER EJT * C O M M U N I C A T I O N R E G I O N * ORG 0 RTJ SYFAIL GO TO COMMON SYSTEM FAILURE ROUTINE * LPMSK NUM 0 LOGICAL PRODUCT MASK TABLE OF ONES ONE NUM 1 ONE THREE NUM 3 THREE SEVEN NUM 7 SEVEN NUM $F NUM $1F NUM $3F NUM $7F NUM $FF NUM $1FF NUM $3FF NUM $7FF NUM $FFF NUM $1FFF NUM $3FFF NUM $7FFF * NZERO NUM $FFFF LOGICAL PRODUCT MASK TABLE OF ZEROS (NEG ZERO) NUM $FFFE NUM $FFFC NUM $FFF8 NUM $FFF0 NUM $FFE0 NUM $FFC0 NUM $FF80 NUM $FF00 NUM $FE00 NUM $FC00 NUM $F800 NUM $F000 NUM $E000 NUM $C000 NUM $8000 EJT * C O M M U N I C A T I O N R E G I O N * ZERO NUM 0 ZERO * ONEBIT NUM 1 ONE BIT TABLE TWO NUM 2 TWO FOUR NUM 4 FOUR EIGHT NUM 8 EIGHT NUM $10 NUM $20 NUM $40 NUM $80 NUM $100 NUM $200 NUM $400 NUM $800 NUM $1000 NUM $2000 NUM $4000 NUM $8000 * ZROBIT NUM $FFFE ZERO BIT TABLE NUM $FFFD NUM $FFFB NUM $FFF7 NUM $FFEF NUM $FFDF NUM $FFBF NUM $FF7F NUM $FEFF NUM $FDFF NUM $FBFF NUM $F7FF NUM $EFFF NUM $DFFF NUM $BFFF NUM $7FFF * FIVE NUM 5 FIVE SIX NUM 6 SIX NINE NUM 9 NINE TEN NUM 10 TEN EJT * C O M M U N I C A T I O N R E G I O N * * THIS AREA IS AVAILABLE FOR APPLICATIONS USE * NUM 0 $47 NUM 0 $48 NUM 0 $49 NUM 0 $4A NUM 0 $4B NUM 0 $4C NUM 0 $4D NUM 0 $4E NUM 0 $4F NUM 0 $50 NUM 0 $51 NUM 0 $52 NUM 0 $53 NUM 0 $54 NUM 0 $55 NUM 0 $56 NUM 0 $57 NUM 0 $58 NUM 0 $59 NUM 0 $5A NUM 0 $5B NUM 0 $5C NUM 0 $5D NUM 0 $5E NUM 0 $5F NUM 0 $60 NUM 0 $61 NUM 0 $62 NUM 0 $63 NUM 0 $64 NUM 0 $65 NUM 0 $66 NUM 0 $67 NUM 0 $68 NUM 0 $69 NUM 0 $6A NUM 0 $6B NUM 0 $6C NUM 0 $6D NUM 0 $6E NUM 0 $6F EJT SPC 4 * C O M M U N I C A T I O N R E G I O N * * THIS AREA IS AVAILABLE FOR APPLICATIONS USE * NUM 0 $70 NUM 0 $71 NUM 0 $72 NUM 0 $73 NUM 0 $74 NUM 0 $75 NUM 0 $76 NUM 0 $77 NUM 0 $78 NUM 0 $79 NUM 0 $7A NUM 0 $7B NUM 0 $7C NUM 0 $7D NUM 0 $7E NUM 0 $7F NUM 0 $80 NUM 0 $81 NUM 0 $82 NUM 0 $83 NUM 0 $84 NUM 0 $85 NUM 0 $86 NUM 0 $87 NUM 0 $88 NUM 0 $89 NUM 0 $8A NUM 0 $8B NUM 0 $8C NUM 0 $8D NUM 0 $8E NUM 0 $8F EJT SPC 2 * C O M M U N I C A T I O N R E G I O N * * THIS AREA IS AVAILABLE FOR APPLICATIONS USE * NUM 0 $90 NUM 0 $91 NUM 0 $92 NUM 0 $93 NUM 0 $94 NUM 0 $95 NUM 0 $96 NUM 0 $97 NUM 0 $98 NUM 0 $99 NUM 0 $9A NUM 0 $9B NUM 0 $9C NUM 0 $9D NUM 0 $9E NUM 0 $9F NUM 0 $A0 NUM 0 $A1 NUM 0 $A2 NUM 0 $A3 NUM 0 $A4 NUM 0 $A5 NUM 0 $A6 NUM 0 $A7 NUM 0 $A8 NUM 0 $A9 NUM 0 $AA NUM 0 $AB NUM 0 $AC NUM 0 $AD NUM 0 $AE NUM 0 $AF NUM 0 $B0 NUM 0 $B1 NUM 0 $B2 EJT * C O M M U N I C A T I O N R E G I O N * ORG $B3 ADC SCRTCH LOGICAL UNIT OF STANDARD SCRATCH DEVICE ADC SCHSTK ADR OF TOP OF SCHEDULER STACK AFNR ADC FNR ADR OF FIND NEXT REQUEST ACOMPR ADC COMPRQ ADR OF COMPLETE REQUEST ADC MASKT ADR OF MASK TABLE ADC INTSTK ADR OF TOP OF INTERRUPT STACK ADC REQXT ADR OF EXIT FOR MONITOR REQUESTS AVOLR ADC VOLR ADR OF RELEASE VOLATILE ROUTINE AVOLA ADC VOLA ADR OF ASSIGN VOLATILE ROUTINE ADC LUABS ADR OF ABSOLUTIZING ROUTINE FOR LOGICAL UNIT ADC SABS ADR OF ABSOLUTIZING ROUTINE FOR STARTING ADR ADC CABS ADR OF ABSOLUTIZING ROUTINE FOR COMPLETION ADR ADC NABS ADR OF ABSOLUTIZING ROUTINE FOR NUMBER OF WRDS NUM 0 MSB OF STARTING SCRATCH SECTOR (ALWAYS ZERO) NUM 0 LSB OF STARTING SCRATCH SECTOR (SET BY SI) ADC LBUNIT LOGICAL UNIT OF STANDARD LIBRARY DEVICE NUM 0 MSB OF PGM LIB DIRECTORY SECTOR (ALWAYS ZERO) NUM 0 LSB OF PGM LIB DIRECTORY SECTOR (SET BY SI) * BZS ($E3-$C5+1) RESERVED FOR FTN (UNPROTECTED) NUM 0 RESERVED FOR FTN + LOAD/GO SECTOR(UNPROTECTED) NUM 0 RESERVED FOR FTN (UNPROTECTED) * BSS (1) LENGTH OF MASS RESIDENT SYSTEM DIR.(SET BY SI) BSS (1) LENGTH OF CORE RESIDENT SYSTEM DIR.(SET BY SI) NUM 0 REAL TIME CLOCK COUNTER ADC EXTBV4 ADDR OF EXTENDED CORE TABLE ADISP ADC DISPXX ADR OF DISPATCHER ADC SLDIRY ADR OF SYSTEM DIRECTORY NUM 0 TEMPORARY TOP+1 OF UNPROTECTED (SET BY SI) NUM 0 TEMPORARY BOTTOM-1 OF UNPROTECTED (SET BY SI) NUM 0 USED BY JOB PROCESSOR FOR LOADER RETURNS NUM -1 CURRENT PRIORITY LEVEL ADC VOLBLK STARTING LOCATION OF VOLATILE STORAGE ADC LPRSET LENGTH OF PRESETS TABLE ADC APRSET STARTING LOCATION OF PRESETS TABLE ADC 0 ADR OF BREAKPOINT PROGRAM IN CORE(UNPROTECTED) AMONI ADC MONI ADR OF MONITOR ENTRY FOR REQUESTS ADC MSIZV4 HIGHEST CORE LOCATION USED BY SYSTEM NUM 0 TOP+1 OF UNPROTECTED (SET BY SI) NUM 0 BOTTOM-1 OF UNPROTECTED (SET BY SI) ADC IPROC ADR OF INTERNAL INTERRUPT PROCESSOR ADC STDINP LOGICAL UNIT OF STANDARD INPUT DEVICE (FTN 1) ADC BINOUT LOGICAL UNIT OF STANDARD BINARY DEVICE (FTN 2) ADC LSTOUT LOGICAL UNIT OF STANDARD PRINT DEVICE (FTN 3) ADC OUTCOM LOGICAL UNIT OF OUTPUT COMMENT DEVICE (FTN 4) ADC INPCOM LOGICAL UNIT OF INPUT COMMENT DEVICE (FTN 4) ADC ALLIN ADR OF COMMON INTERRUPT HANDLER BSS (1) I (MEMORY INDEX) REGISTER (UNPROTECTED) EJT SPC 6 * I N T E R R U P T R E G I O N * * * LINE00 NUM 0 INTERRUPT LINE ENTRY RTJ- ($F8) GO TO INTERRUPT HANDLER ROUTINE NUM 15 PRIORITY LEVEL OF INTERRUPT ADC IPROC INTERRUPT RESPONSE FOR THE PROTECT/PARITY ERR. * LINE01 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 13 PRIORITY LEVEL OF INTERRUPT ADC LIN1V4 INTERRUPT RESPONSE FOR THE LOW SPEED I / O * LINE02 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 09 PRIORITY LEVEL OF INTERRUPT ADC R1752 INTERRUPT RESPONSE FOR THE 1752 DRUM * LINE03 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 09 PRIORITY LEVEL OF INTERRUPT ADC R17332 INTERRUPT RESPONSE FOR THE 1733-2/856-2/4 DISK * LINE04 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 10 PRIORITY LEVEL OF INTERRUPT ADC R42312 INTERRUPT RESPONSE FOR THE 1742-30/120 PRINTER * LINE05 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 10 PRIORITY LEVEL OF INTERRUPT ADC INVINT INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS * LINE06 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 0 PRIORITY LEVEL OF INTERRUPT ADC INVINT INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS SPC 1 * LINE07 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 10 PRIORITY LEVEL OF INTERRUPT ADC R17323 INTERRUPT RESPONSE FOR THE 1732-3/616 MAG TAPE * LINE08 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 0 PRIORITY LEVEL OF INTERRUPT ADC INVINT INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS SPC 1 * LINE09 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 0 PRIORITY LEVEL OF INTERRUPT ADC INVINT INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS SPC 1 * LINE10 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 14 PRIORITY LEVEL OF INTERRUPT ADC R1728 INTERRUPT RESPONSE FOR THE 1728-430 READ/PNCH * LINE11 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 0 PRIORITY LEVEL OF INTERRUPT ADC INVINT INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS SPC 1 * LINE12 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 0 PRIORITY LEVEL OF INTERRUPT ADC INVINT INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS SPC 1 * LINE13 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 13 PRIORITY LEVEL OF INTERRUPT ADC TIMINT INTERRUPT RESPONSE FOR THE SYSTEM TIME BASE SPC 1 * LINE14 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 0 PRIORITY LEVEL OF INTERRUPT ADC INVINT INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS SPC 1 * LINE15 NUM 0 INTERRUPT LINE ENTRY RTJ- ($FE) GO TO INTERRUPT HANDLER ROUTINE NUM 0 PRIORITY LEVEL OF INTERRUPT ADC INVINT INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS SPC 1 EJT * C O R E R E S I D E N T D E B U G E N T R I E S SPC 2 ORG $140 SPC 1 EXT COUTV4 EXT COBOP SPC 2 JMP+ COUTV4 OFF-LINE CORE DUMP SPC 4 JMP+ COBOP SYSTEM CHECKOUT BOOTSTRAP EJT * I N T E R R U P T M A S K T A B L E * * ENT MASKT INTERRUPT MASKS INDEXED BY PRIORITY LEVEL * * * <----------------------------- INTERRUPT LINE NUMBER * 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 * **************************************************** * P -1 * 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1 1 * * R 0 * 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1 1 * * I 1 * 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1 1 * * O 2 * 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1 1 * * R 3 * 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1 1 * * I 4 * 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1 1 * * T 5 * 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1 1 * * Y 6 * 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1 1 * * 7 * 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1 1 * * L 8 * 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1 1 * * E 9 * 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 1 * * V 10 * 0 0 1 0 0 1 0 0 0 0 0 0 0 0 1 1 * * E 11 * 0 0 1 0 0 1 0 0 0 0 0 0 0 0 1 1 * * L 12 * 0 0 1 0 0 1 0 0 0 0 0 0 0 0 1 1 * * . 13 * 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 * * . 14 * 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 * * V 15 * 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 * * **************************************************** * * NUM $249F PRIORITY LEVEL -1 MASKT NUM $249F PRIORITY LEVEL 00 NUM $249F PRIORITY LEVEL 01 NUM $249F PRIORITY LEVEL 02 NUM $249F PRIORITY LEVEL 03 NUM $249F PRIORITY LEVEL 04 NUM $249F PRIORITY LEVEL 05 NUM $249F PRIORITY LEVEL 06 NUM $249F PRIORITY LEVEL 07 NUM $249F PRIORITY LEVEL 08 NUM $2493 PRIORITY LEVEL 09 NUM $2403 PRIORITY LEVEL 10 NUM $2403 PRIORITY LEVEL 11 NUM $2403 PRIORITY LEVEL 12 NUM $0401 PRIORITY LEVEL 13 NUM $0001 PRIORITY LEVEL 14 NUM $0000 PRIORITY LEVEL 15 EJT * E X T E N D E D C O M M U N I C A T I O N S R E G I O N * * REFERENCED THRU LOCATION $E9 SPC 3 ENT MAXSEC ENT MPFLAG ENT MIINP EXT JFILV4 EXT RCTV EXT END0V4 EXT DATBAS EXT SECTOR EQU CSYLST(9) EQU CSYINP(10) EQU CSYPUN(11) EQU SECT1(0) EQU SECT3(0) EQU SECT4($5BFA) SPC 3 EXTBV4 ADC 0 00 MODE SWITCH 32K=0 65K=1 ADC CSYINP 01 STANDARD COSY INPUT LU NUMBER ADC CSYPUN 02 STANDARD COSY OUTPUT LU NUMBER ADC CSYLST 03 STANDARD COSY LIST LU NUMBER ADC 0 04 FIRST SECTOR LSB OF SYSTEM CORE IMAGE ADC 0 05 FIRST SECTOR LSB OF S. A. T. ADC 0 06 FIRST SECTOR LSB OF CREP TABLE ADC 0 07 FIRST SECTOR LSB OF CREP1 TABLE ADC JFILV4 08 FIRST SECTOR LSB OF JOB FILE DIRECTORY ADC RCTV 09 ADDRESS OF RCTV TABLE IN THE MONITOR ADC 0 10 UNPROTECTED CORE FLAG 0=PART0 / 1=PART1 ADC 0 11 UNPROTECTED SWAP ALLOWED 0=YES / 1=NO ADC AYERTO 12 ADDRESS LOCATION CONTAINING THE YEAR ADC AMONTO 13 ADDRESS LOCATION CONTAINING THE MONTH ADC ADAYTO 14 ADDRESS LOCATION CONTAINING THE DAY ADC END0V4 15 LAST ADDRESS OF PART 0 CORE ADC 0 16 FIRST ADDRESS OF BLANK (SYSTEM) COMMON ADC DATBAS 17 FIRST ADDRESS OF LABELED COMMON ADC 0 18 COSY DRIVER CURRENT PHYSTAB ADDRESS ADC 0 19 JOB TABLE INITIALIZATION FLAG ADC 0 20 MASS MEMORY LOCATION OF ENGINEERING FILE ADC SECT1 21 MSB OF MAXIMUM SCRATCH SECTOR MAXSEC ADC SECTOR 22 LSB OF MAXIMUM SCRATCH SECTOR ADC SECT3 23 MSB OF MAXIMUM LIBRARY SECTOR ADC SECT4 24 LSB OF MAXIMUM LIBRARY SECTOR ADC 0 25 LAST ADDRESS OF LABELED COMMON ADC 0 26 UNUSED MPFLAG ADC 0 27 ZERO IF NOT AN MP SYSTEM ADC LOG1A 28 ADDRESS OF LOG1A TABLE MIINP BZS MIINP(40) MANUAL INPUT BUFFER EJT * S Y S T E M I D E N T I F I C A T I O N * SPC 1 ENT SYSID EXT SYSMON MONTH SYSTEM WAS BUILT EXT SYSDAY DAY SYSTEM WAS BUILT EXT SYSYER YEAR SYSTEM WAS BUILT SPC 4 SYSID ALF 16, SIMH DEVELOPMENT SYSTEM ADC SYSMON ADC SYSDAY ADC SYSYER SPC 4 * COMMON SYSTEM FAILURE ROUTINE SPC 2 ENT SYFAIL SPC 1 SYFAIL NOP 0 IIN 0 INHIBIT INTERRUPTS STA* SAVEA SAVE A STQ* SAVEQ SAVE Q TRM A MOVE M TO A STA* SAVEM SAVE M LDA* SYFAIL PICK UP ADDRESS OF CALLER INA -2 CORRECT IT FOR 2 WORD RTJ STA* SYFAIL STORE IT BACK NUM $18FF HANG SPC 2 SAVEA NUM 0 SAVEQ NUM 0 SAVEM NUM 0 EJT * C O N T R O L P O I N T / B O U N D S R E G I S T E R * P A R A M E T E R S * ENT UBPROT ENT LBPROT ENT UPBDTB ENT LOBDTB ENT TSCNAC ENT TSCNMI ENT SIM200 ENT CCP ENT CPSET SPC EQU UBPROT($7FFF),LBPROT($7FFF),UPBDTB($7FFF),LOBDTB($7FFF) EQU TSCNAC($7FFF),TSCNMI($7FFF),SIM200($7FFF) EQU CCP($7FFF) SPC 2 CPSET NUM 0 JMP* (CPSET) EJT * S T O R A G E S T A C K S * * NUMPRI EQU NUMPRI(16) NUMBER OF SYSTEM PRIORITY LEVELS EXTVOL EQU EXTVOL(00) AMOUNT OF EXTRA VOLATILE STORAGE * NFTNLV EQU NFTNLV(3) NUMBER OF REENTRANT FORTRAN LEVELS NEDLVL EQU NEDLVL(3) NUMBER OF REENTRANT ENCODE/DECODE LEVELS SPC 3 * * I N T E R R U P T S T A C K * ENT INTSTK CONTENTS, 1 = Q-REGISTER * 2 = A-REGISTER * 3 = I-REGISTER * 4 = P-REGISTER * 5 = PRIORITY LEVEL AND OVERFLOW * INDICATOR (BIT 15) * INTSTK BZS INTSTK(5*NUMPRI) SPC 3 * * V O L A T I L E B L O C K S T A C K * ENT VOLBLK CONTENTS, 1 = Q-REGISTER ENT VOLEND 2 = A-REGISTER * 3 = I-REGISTER * 4 = USER ASSIGNMENTS * . * N = USER ASSIGNMENTS * VOLBLK BZS VOLBLK(18*NUMPRI+98*NFTNLV+57*NEDLVL+EXTVOL+1) VOLEND EQU VOLEND(*) END OF VOLATILE SPC 3 * * S C H E D U L E R / T I M E R S T A C K * ENT SCHSTK CONTENTS, 1 = SCHEDULER CALL ENT SCHLNG 2 = STARTING ADDRESS * 3 = THREAD TO NEXT CALL SCHSTK EQU SCHSTK(*) 4 = Q-REGISTER CONTENTS SPC 1 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 001 EJT ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 002 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 003 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 004 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 005 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 006 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 007 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 008 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 009 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 010 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 011 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 012 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 013 EJT ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 014 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 015 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 016 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 017 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 018 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 019 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 020 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 021 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 022 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 023 ADC 0,0,*+2,0 SCHEDULER STACK ENTRY 024 ADC 0,0,(-0),0 SCHEDULER STACK ENTRY 025 SCHLNG EQU SCHLNG(*-SCHSTK) SCHEDULER STACK LENGTH EJT * L O G I C A L U N I T T A B L E S ( L O G 1 A ) * * ENT LOG1A PHYSICAL DEVICES ADDRESSES BY LOGICAL UNIT ENT NUMLU SPC 1 LOG1A ADC NUMLU NUMBER OF LOGICAL UNITS ADC PCORE 1 CORE ALLOCATOR ADC PDUMMY 2 DUMMY LOGICAL UNIT ADC PDUMMY 3 DUMMY LOGICAL UNIT ADC P1711 4 1711 TELETYPE, 713-10 CRT ADC PCOSY1 5 COSY DRIVER, FIRST UNIT ADC P73230 6 1732-3 616-73/93/95 MAG TAPE UNIT 0 ADC PSUDO0 7 PSEUDO TAPE, UNIT 0 ADC P73320 8 1733-2 856-2/4 DISK, UNIT 0 ADC P42312 9 1742-30/120 LINE PRINTER X73230 ADC P73230 10 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 0 ADC P1728 11 1728-430 CARD PUNCH FTN742 ADC P42312 12 1742-30/120 FORTRAN LINE PRINTER ADC P73321 13 1733-2 856-2/4 DISK, UNIT 1 ADC P73322 14 1733-2 856-2/4 DISK, UNIT 2 ADC P73323 15 1733-2 856-2/4 DISK, UNIT 3 ADC P73231 16 1732-3 616-73/93/95 MAG TAPE UNIT 1 ADC P73232 17 1732-3 616-73/93/95 MAG TAPE UNIT 2 ADC P73233 18 1732-3 616-73/93/95 MAG TAPE UNIT 3 ADC PSUDO1 19 PSEUDO TAPE, UNIT 1 ADC PSUDO2 20 PSEUDO TAPE, UNIT 2 ADC PSUDO3 21 PSEUDO TAPE, UNIT 3 ADC PSDSK0 22 PSEUDO DISK, UNIT 0 ADC PSDSK1 23 PSEUDO DISK, UNIT 1 ADC PSDSK2 24 PSEUDO DISK, UNIT 2 ADC PSDSK3 25 PSEUDO DISK, UNIT 3 ADC P1752 26 1752 DRUM ADC PCOSY2 27 COSY DRIVER, SECOND UNIT ADC P1728 28 1728-430 CARD READER X73231 ADC P73231 29 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 1 X73232 ADC P73232 30 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 2 X73233 ADC P73233 31 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 3 X42312 ADC P42312 32 DIAGNOSTIC 1742-30/120 LINE PRINTER X1728 ADC P1728 33 DIAGNOSTIC 1728-430 READER / PUNCH X1711 ADC P1711 34 DIAGNOSTIC 1711 TELETYPE, 713-10 CRT NUMLU EQU NUMLU(*-LOG1A-1) EJT * L O G I C A L U N I T T A B L E S ( L O G 1 ) * * ENT LOG1 LOGICAL UNIT INFORMATION BY LOGICAL UNIT * BIT 14 = 1, IMPLIES LU SHARES DEVICE * BIT 13 = 1, IMPLIES LU IS MARKED DOWN * BITS 0 - 11 IS ALTERNATE LOGICAL UNIT * ALTERNATE = 0, IMPLIES NONE S EQU S($4000) SHARED BIT SPC 1 LOG1 ADC NUMLU NUMBER OF LOGICAL UNITS ADC 0 1 CORE ALLOCATOR ADC 0+S 2 DUMMY LOGICAL UNIT ADC 0+S 3 DUMMY LOGICAL UNIT ADC 2+S 4 1711 TELETYPE, 713-10 CRT ADC 0 5 COSY DRIVER, FIRST UNIT ADC 0+S 6 1732-3 616-73/93/95 MAG TAPE UNIT 0 ADC 0 7 PSEUDO TAPE, UNIT 0 ADC 0 8 1733-2 856-2/4 DISK, UNIT 0 ADC 0+S 9 1742-30/120 LINE PRINTER ADC 0+S 10 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 0 ADC 0+S 11 1728-430 CARD PUNCH ADC 0+S 12 1742-30/120 FORTRAN LINE PRINTER ADC 0 13 1733-2 856-2/4 DISK, UNIT 1 ADC 0 14 1733-2 856-2/4 DISK, UNIT 2 ADC 0 15 1733-2 856-2/4 DISK, UNIT 3 ADC 0+S 16 1732-3 616-73/93/95 MAG TAPE UNIT 1 ADC 0+S 17 1732-3 616-73/93/95 MAG TAPE UNIT 2 ADC 0+S 18 1732-3 616-73/93/95 MAG TAPE UNIT 3 ADC 0 19 PSEUDO TAPE, UNIT 1 ADC 0 20 PSEUDO TAPE, UNIT 2 ADC 0 21 PSEUDO TAPE, UNIT 3 ADC 0 22 PSEUDO DISK, UNIT 0 ADC 0 23 PSEUDO DISK, UNIT 1 ADC 0 24 PSEUDO DISK, UNIT 2 ADC 0 25 PSEUDO DISK, UNIT 3 ADC 0 26 1752 DRUM ADC 0 27 COSY DRIVER, SECOND UNIT ADC 0+S 28 1728-430 CARD READER ADC 0+S 29 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 1 ADC 0+S 30 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 2 ADC 0+S 31 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 3 ADC 0+S 32 DIAGNOSTIC 1742-30/120 LINE PRINTER ADC 0+S 33 DIAGNOSTIC 1728-430 READER / PUNCH ADC 0+S 34 DIAGNOSTIC 1711 TELETYPE, 713-10 CRT EJT * L O G I C A L U N I T T A B L E S ( L O G 2 ) * * ENT LOG2 TOP OF I/O THREAD ADDRESSES BY LOGICAL UNIT SPC 1 LOG2 ADC NUMLU NUMBER OF LOGICAL UNITS NUM $FFFF 1 CORE ALLOCATOR NUM $FFFF 2 DUMMY LOGICAL UNIT NUM $FFFF 3 DUMMY LOGICAL UNIT NUM $FFFF 4 1711 TELETYPE, 713-10 CRT NUM $FFFF 5 COSY DRIVER, FIRST UNIT NUM $FFFF 6 1732-3 616-73/93/95 MAG TAPE UNIT 0 NUM $FFFF 7 PSEUDO TAPE, UNIT 0 NUM $FFFF 8 1733-2 856-2/4 DISK, UNIT 0 NUM $FFFF 9 1742-30/120 LINE PRINTER NUM $FFFF 10 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 0 NUM $FFFF 11 1728-430 CARD PUNCH NUM $FFFF 12 1742-30/120 FORTRAN LINE PRINTER NUM $FFFF 13 1733-2 856-2/4 DISK, UNIT 1 NUM $FFFF 14 1733-2 856-2/4 DISK, UNIT 2 NUM $FFFF 15 1733-2 856-2/4 DISK, UNIT 3 NUM $FFFF 16 1732-3 616-73/93/95 MAG TAPE UNIT 1 NUM $FFFF 17 1732-3 616-73/93/95 MAG TAPE UNIT 2 NUM $FFFF 18 1732-3 616-73/93/95 MAG TAPE UNIT 3 NUM $FFFF 19 PSEUDO TAPE, UNIT 1 NUM $FFFF 20 PSEUDO TAPE, UNIT 2 NUM $FFFF 21 PSEUDO TAPE, UNIT 3 NUM $FFFF 22 PSEUDO DISK, UNIT 0 NUM $FFFF 23 PSEUDO DISK, UNIT 1 NUM $FFFF 24 PSEUDO DISK, UNIT 2 NUM $FFFF 25 PSEUDO DISK, UNIT 3 NUM $FFFF 26 1752 DRUM NUM $FFFF 27 COSY DRIVER, SECOND UNIT NUM $FFFF 28 1728-430 CARD READER NUM $FFFF 29 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 1 NUM $FFFF 30 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 2 NUM $FFFF 31 DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 3 NUM $FFFF 32 DIAGNOSTIC 1742-30/120 LINE PRINTER NUM $FFFF 33 DIAGNOSTIC 1728-430 READER / PUNCH NUM $FFFF 34 DIAGNOSTIC 1711 TELETYPE, 713-10 CRT EJT * D I A G N O S T I C T A B L E S * * ENT ALTERR ALTERNATE DEVICE ERROR TABLE SPC 1 ALTERR ADC NUMLU ERROR TABLE SIZE BZS (NUMLU) SPACE FOR MAXIMUM SIMULTANEOUS FAILURES SPC 3 ENT DGNTAB DIAGNOSTIC TIMER TABLE SPC 1 DGNTAB EQU DGNTAB(*) START OF TABLE ADC PCORE 1 CORE ALLOCATOR ADC P1711 4 1711 TELETYPE, 713-10 CRT ADC P73230 6 1732-3 616-73/93/95 MAG TAPE UNIT 0 ADC P73320 8 1733-2 856-2/4 DISK, UNIT 0 ADC P42312 9 1742-30/120 LINE PRINTER ADC P73321 13 1733-2 856-2/4 DISK, UNIT 1 ADC P73322 14 1733-2 856-2/4 DISK, UNIT 2 ADC P73323 15 1733-2 856-2/4 DISK, UNIT 3 ADC P73231 16 1732-3 616-73/93/95 MAG TAPE UNIT 1 ADC P73232 17 1732-3 616-73/93/95 MAG TAPE UNIT 2 ADC P73233 18 1732-3 616-73/93/95 MAG TAPE UNIT 3 ADC P1752 26 1752 DRUM ADC P1728 28 1728-430 CARD READER NUM $FFFF END OF TABLE EJT SPC 4 * S T A N D A R D L O G I C A L U N I T S * ENT DUMALT * DUMALT EQU DUMALT(2) STANDARD DUMMY ALTERNATE INPCOM EQU INPCOM(4) STANDARD INPUT COMMENT OUTCOM EQU OUTCOM(4) STANDARD OUTPUT COMMENT LBUNIT EQU LBUNIT(8) STANDARD LIBRARY UNIT SCRTCH EQU SCRTCH(8) STANDARD SCRATCH UNIT LSTOUT EQU LSTOUT(9) STANDARD LIST OUTPUT STDINP EQU STDINP(10) STANDARD INPUT BINOUT EQU BINOUT(11) STANDARD BINARY OUTPUT EJT * L I N E O N E T A B L E * SPC 1 * ENT LIN1V4 LINE 1 INTERRUPT ENTRY SPC 1 LIN1V4 LDQ* LN1TV4 PLACE THE PDT ADDRESS IN Q LDA- 2,Q STA- I JMP- (I) TRANSFER CONTROL TO THE DRIVER CONTINUATOR SPC 3 ENT INVINT SPC 1 INVINT JMP- (ADISP) * SPC 4 EQU LN1TV4(*) START OF TABLE ADC P1711 1711 TELETYPE, 713-10 CRT NUM $FFFF END OF TABLE EJT * P H Y S I C A L D E V I C E T A B L E S * * * THE FOLLOWING SECTION CONTAINS THE PHYSICAL DEVICE TABLES * AND INTERRUPT RESPONSE ROUTINES FOR EACH LOGICAL UNIT IN * THE SYSTEM. * * LISTED BELOW ARE THE MANDATORY ENTRIES FOR ALL PHYSICAL * DEVICE TABLES. ADDITIONAL ENTRIES REQUIRED BY EACH * DRIVER MAY BE ADDED AFTER THE LAST ENTRY INDICATED. SPC 3 PHYSTB EQU PHYSTB(*) EQU ELVL(0) 00 SCHEDULER CALL WITH DRIVER LEVEL EQU EDIN(1) 01 DRIVER INITIATOR ENTRY EQU EDCN(2) 02 DRIVER CONTINUATOR ENTRY EQU EDPGM(3) 03 DRIVER DIAGNOSTIC ENTRY EQU EDCLK(4) 04 DIAGNOSTIC CLOCK EQU ELU(5) 05 LOGICAL UNIT EQU EPTR(6) 06 PARAMETER LOCATION EQU EWES(7) 07 CONVERTOR, EQUIPMENT, STATION EQU EREQST(8) 08 REQUEST STATUS EQU ESTAT1(9) 09 DRIVER STATUS EQU ECCOR(10) 10 CURRENT LOCATION EQU ELSTWD(11) 11 LAST LOCATION PLUS ONE EQU ESTAT2(12) 12 DEVICE STATUS EQU MASLGN(13) 13 DRIVER LENGTH (IF MASS MEMORY) EQU MASSEC(14) 14 NAME ASSOCIATED WITH SECTOR NUMBER EQU RETURN(15) 15 RESERVED FOR FNR AND CMR SPC 3 * LINK UNSELECTED PHYSICAL DEVICE TABLES SPC 1 ENT P18ECM ENT P18PGA ENT P18ADD ENT P18MXP P18ECM EQU P18ECM($7FFF) P18PGA EQU P18PGA($7FFF) P18ADD EQU P18ADD($7FFF) P18MXP EQU P18MXP($7FFF) EJT * C O R E A L L O C A T O R * SPC 1 ENT PCORE EXT ICORE,ECORE EQU SWAPT(0) SWAP TIME SPC 1 PCORE ADC $5207 00 SCHEDULER CALL ADC ICORE 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC ECORE 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $00D6 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS VFD X16/SWAPT-1 13 TIME BETWEEN SWAPS (NONE IF NEGATIVE) NUM $7FFF 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR EJT * D U M M Y L O G I C A L U N I T * SPC 1 EXT IDUMMY,CDUMMY,EDUMMY SPC 1 PDUMMY ADC $520A 00 SCHEDULER CALL ADC IDUMMY 01 INITIATOR ADDRESS ADC CDUMMY 02 CONTINUATOR ADDRESS ADC EDUMMY 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $01F6 08 REQUEST STATUS NUM $8000 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS NUM 0 13 RESERVED NUM $7FFF 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR EJT * 1 7 1 1 T E L E T Y P E , 7 1 3 - 1 0 C R T * SPC 1 EXT I1711,C1711,E1711 EQU T713(04*$10) TYPE CODE - 713-10 CRT EQU T1711(00*$10) TYPE CODE - 1711 TELETYPE EQU U1711(X1711-LOG1A) SPC 1 P1711 ADC $520D 00 SCHEDULER CALL ADC I1711 01 INITIATOR ADDRESS ADC C1711 02 CONTINUATOR ADDRESS ADC E1711 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0091 07 CONVERTER, EQUIPMENT, STATION ADC $3006+T1711 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS NUM 0 13 ERROR CODE AND STARTING LOCATION NUM $7FFF 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR NUM 0 16 DRIVER FLAGS NUM 1 17 HARDWARE PARITY CHECK FLAG ADC U1711 18 DIAGNOSTIC LU EJT * C O S Y D R I V E R * SPC 1 EQU MCOSY1(1) * IFA MCOSY1,EQ,0 CORE RESIDENT DRIVER EXT ICOSY EQU LCOSY(0) EQU SCOSY($7FFF) EIF * IFA MCOSY1,EQ,1 MASS RESIDENT DRIVER EXT MASDRV ICOSY JMP+ MASDRV INITIATE DRIVER EXT LCOSY EXT SCOSY EIF * EJT * C O S Y D R I V E R , F I R S T U N I T * SPC 1 PCOSY1 ADC $5208 00 SCHEDULER CALL ADC ICOSY 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $08B6 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS ADC LCOSY 13 DRIVER LENGTH IF MASS MEMORY ADC SCOSY 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 RESERVED FOR FNR AND CMR ADC PCOSY2 16 PHYSTB THREAD NUM 0 17 SEQUENCE NUMBER NUM 0 18 ID NUM 0 19 ID-1 NUM 0 20 ID-2 NUM 0 21 NUMBER OF WORDS REQUESTED NUM $5555 22 HOL-CHARACTER POINTER NUM $5555 23 COSY-CHARACTER POINTER NUM 0 24 R/W FLAG NUM 1 25 PON5F NUM 0 26 FSTCHR NUM 0 27 ENDDCK ADC INPBFA 28 COSY BUFFER LOCATION ADC INPBFA 29 NEXT COSY WORD NUM 0 30 HOL-BUFFER POINTER NUM 1 31 INITIAL CALL FLAG NUM 0 32 SEQUENCE FLAG NONZERO=NO SEQUENCE NUMBER * BZS INPBFA(192) 33 COSY BUFFER * 224 COSY BUFFER EJT * C O S Y D R I V E R , S E C O N D U N I T * SPC 1 PCOSY2 ADC $5208 00 SCHEDULER CALL ADC ICOSY 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $08B6 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS ADC LCOSY 13 DRIVER LENGTH IF MASS MEMORY ADC SCOSY 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 RESERVED FOR FNR AND CMR ADC PCOSY1 16 PHYSTB THREAD NUM 0 17 SEQUENCE NUMBER NUM 0 18 ID NUM 0 19 ID-1 NUM 0 20 ID-2 NUM 0 21 NUMBER OF WORDS REQUESTED NUM $5555 22 HOL-CHARACTER POINTER NUM $5555 23 COSY-CHARACTER POINTER NUM 0 24 R/W FLAG NUM 1 25 PON5F NUM 0 26 FSTCHR NUM 0 27 ENDDCK ADC INPBFB 28 COSY BUFFER LOCATION ADC INPBFB 29 NEXT COSY WORD NUM 0 30 HOL-BUFFER POINTER NUM 1 31 INITIAL CALL FLAG NUM 0 32 SEQUENCE FLAG NONZERO=NO SEQUENCE NUMBER * BZS INPBFB(192) 33 COSY BUFFER * 224 COSY BUFFER EJT * 6 1 6 - 7 2 / 9 2 / 9 5 M A G T A P E * SPC 1 EQU T6167(53*$10) TYPE CODE - 616-72 MAG TAPE EQU T6169(54*$10) TYPE CODE - 616-92-95 MAG TAPE EQU PHSREC(192) MAX. PHYSICAL RECORD SIZE FOR 7 TRACK SPC 2 BF1F33 BZS BF1F33(PHSREC*4/3+2) PACK/UNPACK BUFFER (7 TRACK) SPC 1 EQU M17323(1) * IFA M17323,EQ,0 CORE RESIDENT DRIVER EXT I17323 EXT C17323 EXT E17323 EQU L17323(0) EQU S17323($7FFF) EIF * IFA M17323,EQ,1 MASS RESIDENT DRIVER EXT MASDRV EXT MASCON EXT MASERR I17323 JMP+ MASDRV INITIATE DRIVER C17323 JMP+ MASCON INTERRUPT RESPONSE E17323 JMP+ MASERR TIMEOUT ERROR EXT L17323 EXT S17323 EIF * SPC 2 R17323 LDQ =XP73230 INTERRUPT RESPONSE FOR 616-72-92-95 MAG TAPE JMP* (P73230+2) EJT * 6 1 6 - 7 2 / 9 2 / 9 5 M A G T A P E , U N I T 0 * EQU U73230(X73230-LOG1A) SPC 1 P73230 ADC $520A 00 SCHEDULER CALL ADC I17323 01 INITIATOR ADDRESS ADC C17323 02 CONTINUATOR ADDRESS ADC E17323 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0381 07 CONVERTER, EQUIPMENT, STATION ADC $0806+T6169 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS ADC L17323 13 DRIVER LENGTH IF MASS MEMORY ADC S17323 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 RESERVED FOR FNR AND CMR NUM $0448 16 REC. OPT., UNIT, FUNCTION, DENSITY CONTROL ADC U73230 17 DIAGNOSTIC LU ADC 0 18 ERROR CODE NUM 0 19 RECOVERY RETURN ADDRESS NUM 0 20 RECORD CHECKSUM NUM $D554 21 FUNCTION DIRECTORY BITWORD NUM 0 22 TEMPORARY CHECKSUM ADC P73231 23 PHYSTB THREAD ADC PHSREC 24 MAX PHY RECORD SIZE (7 TRACK) ADC BF1F33 25 PACK/UNPACK BUFFER (7 TRACK) EJT * 6 1 6 - 7 2 / 9 2 / 9 5 M A G T A P E , U N I T 1 * EQU U73231(X73231-LOG1A) SPC 1 P73231 ADC $520A 00 SCHEDULER CALL ADC I17323 01 INITIATOR ADDRESS ADC C17323 02 CONTINUATOR ADDRESS ADC E17323 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0381 07 CONVERTER, EQUIPMENT, STATION ADC $0806+T6169 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS ADC L17323 13 DRIVER LENGTH IF MASS MEMORY ADC S17323 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 RESERVED FOR FNR AND CMR NUM $04C8 16 REC. OPT., UNIT, FUNCTION, DENSITY CONTROL ADC U73231 17 DIAGNOSTIC LU ADC 0 18 ERROR CODE NUM 0 19 RECOVERY RETURN ADDRESS NUM 0 20 RECORD CHECKSUM NUM $D554 21 FUNCTION DIRECTORY BITWORD NUM 0 22 TEMPORARY CHECKSUM ADC P73232 23 PHYSTB THREAD ADC PHSREC 24 MAX PHY RECORD SIZE (7 TRACK) ADC BF1F33 25 PACK/UNPACK BUFFER (7 TRACK) EJT * 6 1 6 - 7 2 / 9 2 / 9 5 M A G T A P E , U N I T 2 * EQU U73232(X73232-LOG1A) SPC 1 P73232 ADC $520A 00 SCHEDULER CALL ADC I17323 01 INITIATOR ADDRESS ADC C17323 02 CONTINUATOR ADDRESS ADC E17323 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0381 07 CONVERTER, EQUIPMENT, STATION ADC $0806+T6169 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS ADC L17323 13 DRIVER LENGTH IF MASS MEMORY ADC S17323 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 RESERVED FOR FNR AND CMR NUM $0548 16 REC. OPT., UNIT, FUNCTION, DENSITY CONTROL ADC U73232 17 DIAGNOSTIC LU ADC 0 18 ERROR CODE NUM 0 19 RECOVERY RETURN ADDRESS NUM 0 20 RECORD CHECKSUM NUM $D554 21 FUNCTION DIRECTORY BITWORD NUM 0 22 TEMPORARY CHECKSUM ADC P73233 23 PHYSTB THREAD ADC PHSREC 24 MAX PHY RECORD SIZE (7 TRACK) ADC BF1F33 25 PACK/UNPACK BUFFER (7 TRACK) EJT * 6 1 6 - 7 2 / 9 2 / 9 5 M A G T A P E , U N I T 3 * EQU U73233(X73233-LOG1A) SPC 1 P73233 ADC $520A 00 SCHEDULER CALL ADC I17323 01 INITIATOR ADDRESS ADC C17323 02 CONTINUATOR ADDRESS ADC E17323 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0381 07 CONVERTER, EQUIPMENT, STATION ADC $0806+T6169 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS ADC L17323 13 DRIVER LENGTH IF MASS MEMORY ADC S17323 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 RESERVED FOR FNR AND CMR NUM $05C8 16 REC. OPT., UNIT, FUNCTION, DENSITY CONTROL ADC U73233 17 DIAGNOSTIC LU ADC 0 18 ERROR CODE NUM 0 19 RECOVERY RETURN ADDRESS NUM 0 20 RECORD CHECKSUM NUM $D554 21 FUNCTION DIRECTORY BITWORD NUM 0 22 TEMPORARY CHECKSUM ADC P73230 23 PHYSTB THREAD ADC PHSREC 24 MAX PHY RECORD SIZE (7 TRACK) ADC BF1F33 25 PACK/UNPACK BUFFER (7 TRACK) EJT * P S E U D O T A P E * SPC 1 EQU PSTPD0(1) * IFA PSTPD0,EQ,0 CORE RESIDENT DRIVER EXT IPSUDO EQU LPSUDO(0) EQU SPSUDO($7FFF) EIF * IFA PSTPD0,EQ,1 MASS RESIDENT DRIVER EXT MASDRV IPSUDO JMP+ MASDRV INITIATE DRIVER EXT LPSUDO EXT SPSUDO EIF * EJT * P S E U D O T A P E , U N I T 0 * SPC 1 PSUDO0 ADC $5208 00 SCHEDULER CALL ADC IPSUDO 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION PWES0 NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $0A46 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 1 12 DEVICE STATUS ADC LPSUDO 13 DRIVER LENGTH IF MASS MEMORY ADC SPSUDO 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 RESERVED FOR FNR AND CMR NUM 0 16 FILE NUMBER NUM 0 17 TEMP FOR MOTION REQ PROCESSOR NUM 0 18 TEMP FOR MOTION REQ PROCESSOR BZS (12) 19 REQUEST BUFFER - REQBUF NUM 0 31 BLOCK POINTER - BLKPTR BZS (30) 32 POINTER BLOCK - PTRBLK PSDRQ0 NUM 0 62 * NUM $5400 63 * NUM 0 64 * AREA TO BE STUFFED WITH ADC PWES0 65 * FILE MANAGER AND DISK REQUESTS BZS (6) 66 * NUM $1400 72 * RTJ* (PSDRQ0) 73 * ADC 0 74 INPUT BUFFER ADDRESS ADC PSUDO1 75 PHYSTB THREAD EJT * P S E U D O T A P E , U N I T 1 * SPC 1 PSUDO1 ADC $5208 00 SCHEDULER CALL ADC IPSUDO 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION PWES1 NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $0A46 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 1 12 DEVICE STATUS ADC LPSUDO 13 DRIVER LENGTH IF MASS MEMORY ADC SPSUDO 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 RESERVED FOR FNR AND CMR NUM 0 16 FILE NUMBER NUM 0 17 TEMP FOR MOTION REQ PROCESSOR NUM 0 18 TEMP FOR MOTION REQ PROCESSOR BZS (12) 19 REQUEST BUFFER - REQBUF NUM 0 31 BLOCK POINTER - BLKPTR BZS (30) 32 POINTER BLOCK - PTRBLK PSDRQ1 NUM 0 62 * NUM $5400 63 * NUM 0 64 * AREA TO BE STUFFED WITH ADC PWES1 65 * FILE MANAGER AND DISK REQUESTS BZS (6) 66 * NUM $1400 72 * RTJ* (PSDRQ1) 73 * ADC 0 74 INPUT BUFFER ADDRESS ADC PSUDO2 75 PHYSTB THREAD EJT * P S E U D O T A P E , U N I T 2 * SPC 1 PSUDO2 ADC $5208 00 SCHEDULER CALL ADC IPSUDO 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION PWES2 NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $0A46 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM $C401 12 DEVICE STATUS ADC LPSUDO 13 DRIVER LENGTH IF MASS MEMORY ADC SPSUDO 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 RESERVED FOR FNR AND CMR NUM $7FF7 16 FILE NUMBER NUM 0 17 TEMP FOR MOTION REQ PROCESSOR NUM 0 18 TEMP FOR MOTION REQ PROCESSOR BZS (12) 19 REQUEST BUFFER - REQBUF NUM 0 31 BLOCK POINTER - BLKPTR BZS (30) 32 POINTER BLOCK - PTRBLK PSDRQ2 NUM 0 62 * NUM $5400 63 * NUM 0 64 * AREA TO BE STUFFED WITH ADC PWES2 65 * FILE MANAGER AND DISK REQUESTS BZS (6) 66 * NUM $1400 72 * RTJ* (PSDRQ2) 73 * ADC 0 74 INPUT BUFFER ADDRESS ADC PSUDO3 75 PHYSTB THREAD EJT * P S E U D O T A P E , U N I T 3 * SPC 1 PSUDO3 ADC $5208 00 SCHEDULER CALL ADC IPSUDO 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION PWES3 NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $0A46 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM $C401 12 DEVICE STATUS ADC LPSUDO 13 DRIVER LENGTH IF MASS MEMORY ADC SPSUDO 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 RESERVED FOR FNR AND CMR NUM $7FF8 16 FILE NUMBER NUM 0 17 TEMP FOR MOTION REQ PROCESSOR NUM 0 18 TEMP FOR MOTION REQ PROCESSOR BZS (12) 19 REQUEST BUFFER - REQBUF NUM 0 31 BLOCK POINTER - BLKPTR BZS (30) 32 POINTER BLOCK - PTRBLK PSDRQ3 NUM 0 62 * NUM $5400 63 * NUM 0 64 * AREA TO BE STUFFED WITH ADC PWES3 65 * FILE MANAGER AND DISK REQUESTS BZS (6) 66 * NUM $1400 72 * RTJ* (PSDRQ3) 73 * ADC 0 74 INPUT BUFFER ADDRESS ADC PSUDO0 75 PHYSTB THREAD EJT * P S E U D O D I S K U N I T 0 * SPC 1 EXT IPSDSK,CPSDSK,EPSDSK EQU SBIAS0(1) SPC 1 PSDSK0 ADC $5209 00 SCHEDULER CALL ADC IPSDSK 01 INITIATOR ADDRESS ADC CPSDSK 02 CONTINUATOR ADDRESS ADC EPSDSK 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $1486 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS NUM 0 13 RESERVED NUM 0 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR NUM 0 16 NEW REQUEST ADC CPSDSK 17 COMPLETION NUM 0 18 THREAD NUM 8 19 MASS MEMORY LOGICAL UNIT NUM 0 20 NUMBER OF WORDS NUM 0 21 BUFFER NUM 0 22 NEW REQUEST MSB NUM 0 23 NEW REQUEST LSB NUM 0 24 CONTROL POINT FOR TIME SHARE SYSTEM ADC SBIAS0 25 SECTOR BIAS ADC SBIAS0*$60 26 WORD BIAS NUM 9 27 COMPLETION LEVEL EJT * P S E U D O D I S K U N I T 1 * EQU SBIAS1(1) SPC 1 PSDSK1 ADC $5209 00 SCHEDULER CALL ADC IPSDSK 01 INITIATOR ADDRESS ADC CPSDSK 02 CONTINUATOR ADDRESS ADC EPSDSK 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $1486 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS NUM 0 13 RESERVED NUM 0 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR NUM 0 16 NEW REQUEST ADC CPSDSK 17 COMPLETION NUM 0 18 THREAD NUM 13 19 MASS MEMORY LOGICAL UNIT NUM 0 20 NUMBER OF WORDS NUM 0 21 BUFFER NUM 0 22 NEW REQUEST MSB NUM 0 23 NEW REQUEST LSB NUM 0 24 CONTROL POINT FOR TIME SHARE SYSTEM ADC SBIAS1 25 SECTOR BIAS ADC SBIAS1*$60 26 WORD BIAS NUM 9 27 COMPLETION LEVEL EJT * P S E U D O D I S K U N I T 2 * EQU SBIAS2(1) SPC 1 PSDSK2 ADC $5209 00 SCHEDULER CALL ADC IPSDSK 01 INITIATOR ADDRESS ADC CPSDSK 02 CONTINUATOR ADDRESS ADC EPSDSK 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $1486 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS NUM 0 13 RESERVED NUM 0 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR NUM 0 16 NEW REQUEST ADC CPSDSK 17 COMPLETION NUM 0 18 THREAD NUM 14 19 MASS MEMORY LOGICAL UNIT NUM 0 20 NUMBER OF WORDS NUM 0 21 BUFFER NUM 0 22 NEW REQUEST MSB NUM 0 23 NEW REQUEST LSB NUM 0 24 CONTROL POINT FOR TIME SHARE SYSTEM ADC SBIAS2 25 SECTOR BIAS ADC SBIAS2*$60 26 WORD BIAS NUM 9 27 COMPLETION LEVEL EJT * P S E U D O D I S K U N I T 3 * EQU SBIAS3(1) SPC 1 PSDSK3 ADC $5209 00 SCHEDULER CALL ADC IPSDSK 01 INITIATOR ADDRESS ADC CPSDSK 02 CONTINUATOR ADDRESS ADC EPSDSK 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $1486 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS NUM 0 13 RESERVED NUM 0 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR NUM 0 16 NEW REQUEST ADC CPSDSK 17 COMPLETION NUM 0 18 THREAD NUM 15 19 MASS MEMORY LOGICAL UNIT NUM 0 20 NUMBER OF WORDS NUM 0 21 BUFFER NUM 0 22 NEW REQUEST MSB NUM 0 23 NEW REQUEST LSB NUM 0 24 CONTROL POINT FOR TIME SHARE SYSTEM ADC SBIAS3 25 SECTOR BIAS ADC SBIAS3*$60 26 WORD BIAS NUM 9 27 COMPLETION LEVEL EJT * 1 7 3 3 - 2 / 8 5 6 D I S K * SPC 1 ENT P332D0 EXT I17332,C17332,E17332 EQU T8562(15*$10) TYPE CODE - 1733-2 856-2 EQU T8564(16*$10) TYPE CODE - 1733-2 856-4 SPC 2 R17332 LDQ =XP73320 INTERRUPT RESPONSE FOR 1733-2 DISK JMP* (P73320+2) EJT * 1 7 3 3 - 2 / 8 5 6 D I S K - U N I T 0 * SPC 1 EQU P332D0(*) P73320 ADC $5209 00 SCHEDULER CALL ADC I17332 01 INITIATOR ADDRESS ADC C17332 02 CONTINUATOR ADDRESS ADC E17332 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0181 07 CONVERTER, EQUIPMENT, STATION ADC $1006+T8564 08 REQUEST STATUS NUM $0200 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS NUM 0 13 ERROR COUNTER NUM 0 14 DATA TRANSFER FUNCTION NUM 0 15 SECTOR NUMBER OR FNR RETURN NUM $8100 16 NO COMPARE FLAG / DIRECTOR FUNCTION NUM 0 17 TEMSEC - USED BY WORD ADDRESSING NUM 0 18 OVERLAY AREA (SCHEDULER CALL) NUM 0 19 OVERLAY AREA (COMPLETION ADDRESS) NUM 0 20 OVERLAY AREA (THREAD) NUM 0 21 OVERLAY AREA (LOGICAL UNIT) ADC P73321 22 PHYSTB THREAD NUM 0 23 RETURN ADDRESS FOR DATA TRANSFER NUM $5BFB 24 FIRST SECTOR ADDRESS ON DISK 1 NUM 0 25 LAST DATA TRANSFER FUNCTION NUM 0 26 BUFFER SIZE FOR SPLIT TRANSFERS NUM 0 27 CYLINDER ADDRESS FOR TRANSFER NUM 1 28 MASK FOR THIS UNITS SEEK COMPLETE BIT ADC BF332A 29 ADDRESS OF 96 WORD BUFFER NUM 0 30 TEMPORARY FOR WORD ADDRESSING NUM 0 31 TEMPORARY FOR WORD ADDRESSING NUM 0 32 TEMPORARY FOR WORD ADDRESSING NUM 0 33 REQUEST CODE NUM 0 34 REQUEST PRIORITY NUM 0 35 STARTING SECTOR FOR COMPARE OR RETRY NUM 0 36 FWA OF TRANSFER FOR COMPARE OR RETRY NUM 0 37 ERROR COUNTER NUM 0 38 DATA TRANSFER FUNCTION CODE NUM $FFFF 39 SECTOR NUMBER CURRENTLY IN BUFFER NUM 0 40 LAST VALUE OF CYLINDER ADDRESS STATUS NUM 0 41 LAST VALUE OF C W A STATUS NUM 0 42 LAST VALUE OF CHECKWORD STATUS NUM 0 43 LAST VALUE OF DRIVE CYLINDER STATUS * BZS BF332A(96) 44 BUFFER FOR WORD ADDRESSING * 139 BUFFER FOR WORD ADDRESSING EJT * 1 7 3 3 - 2 / 8 5 6 D I S K - U N I T 1 * SPC 1 P73321 ADC $5209 00 SCHEDULER CALL ADC I17332 01 INITIATOR ADDRESS ADC C17332 02 CONTINUATOR ADDRESS ADC E17332 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0181 07 CONVERTER, EQUIPMENT, STATION ADC $1006+T8564 08 REQUEST STATUS NUM $0200 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS NUM 0 13 ERROR COUNTER NUM 0 14 DATA TRANSFER FUNCTION NUM 0 15 SECTOR NUMBER OR FNR RETURN NUM $8300 16 NO COMPARE FLAG / DIRECTOR FUNCTION NUM 0 17 TEMSEC - USED BY WORD ADDRESSING NUM 0 18 OVERLAY AREA (SCHEDULER CALL) NUM 0 19 OVERLAY AREA (COMPLETION ADDRESS) NUM 0 20 OVERLAY AREA (THREAD) NUM 0 21 OVERLAY AREA (LOGICAL UNIT) ADC P73322 22 PHYSTB THREAD NUM 0 23 RETURN ADDRESS FOR DATA TRANSFER NUM $5BFB 24 FIRST SECTOR ADDRESS ON DISK 1 NUM 0 25 LAST DATA TRANSFER FUNCTION NUM 0 26 BUFFER SIZE FOR SPLIT TRANSFERS NUM 0 27 CYLINDER ADDRESS FOR TRANSFER NUM 2 28 MASK FOR THIS UNITS SEEK COMPLETE BIT ADC BF332B 29 ADDRESS OF 96 WORD BUFFER NUM 0 30 TEMPORARY FOR WORD ADDRESSING NUM 0 31 TEMPORARY FOR WORD ADDRESSING NUM 0 32 TEMPORARY FOR WORD ADDRESSING NUM 0 33 REQUEST CODE NUM 0 34 REQUEST PRIORITY NUM 0 35 STARTING SECTOR FOR COMPARE OR RETRY NUM 0 36 FWA OF TRANSFER FOR COMPARE OR RETRY NUM 0 37 ERROR COUNTER NUM 0 38 DATA TRANSFER FUNCTION CODE NUM $FFFF 39 SECTOR NUMBER CURRENTLY IN BUFFER NUM 0 40 LAST VALUE OF CYLINDER ADDRESS STATUS NUM 0 41 LAST VALUE OF C W A STATUS NUM 0 42 LAST VALUE OF CHECKWORD STATUS NUM 0 43 LAST VALUE OF DRIVE CYLINDER STATUS * BZS BF332B(96) 44 BUFFER FOR WORD ADDRESSING * 139 BUFFER FOR WORD ADDRESSING EJT * 1 7 3 3 - 2 / 8 5 6 D I S K - U N I T 2 * SPC 1 P73322 ADC $5209 00 SCHEDULER CALL ADC I17332 01 INITIATOR ADDRESS ADC C17332 02 CONTINUATOR ADDRESS ADC E17332 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0181 07 CONVERTER, EQUIPMENT, STATION ADC $1006+T8564 08 REQUEST STATUS NUM $0200 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS NUM 0 13 ERROR COUNTER NUM 0 14 DATA TRANSFER FUNCTION NUM 0 15 SECTOR NUMBER OR FNR RETURN NUM $8500 16 NO COMPARE FLAG / DIRECTOR FUNCTION NUM 0 17 TEMSEC - USED BY WORD ADDRESSING NUM 0 18 OVERLAY AREA (SCHEDULER CALL) NUM 0 19 OVERLAY AREA (COMPLETION ADDRESS) NUM 0 20 OVERLAY AREA (THREAD) NUM 0 21 OVERLAY AREA (LOGICAL UNIT) ADC P73323 22 PHYSTB THREAD NUM 0 23 RETURN ADDRESS FOR DATA TRANSFER NUM $5BFB 24 FIRST SECTOR ADDRESS ON DISK 1 NUM 0 25 LAST DATA TRANSFER FUNCTION NUM 0 26 BUFFER SIZE FOR SPLIT TRANSFERS NUM 0 27 CYLINDER ADDRESS FOR TRANSFER NUM 4 28 MASK FOR THIS UNITS SEEK COMPLETE BIT ADC BF332C 29 ADDRESS OF 96 WORD BUFFER NUM 0 30 TEMPORARY FOR WORD ADDRESSING NUM 0 31 TEMPORARY FOR WORD ADDRESSING NUM 0 32 TEMPORARY FOR WORD ADDRESSING NUM 0 33 REQUEST CODE NUM 0 34 REQUEST PRIORITY NUM 0 35 STARTING SECTOR FOR COMPARE OR RETRY NUM 0 36 FWA OF TRANSFER FOR COMPARE OR RETRY NUM 0 37 ERROR COUNTER NUM 0 38 DATA TRANSFER FUNCTION CODE NUM $FFFF 39 SECTOR NUMBER CURRENTLY IN BUFFER NUM 0 40 LAST VALUE OF CYLINDER ADDRESS STATUS NUM 0 41 LAST VALUE OF C W A STATUS NUM 0 42 LAST VALUE OF CHECKWORD STATUS NUM 0 43 LAST VALUE OF DRIVE CYLINDER STATUS * BZS BF332C(96) 44 BUFFER FOR WORD ADDRESSING * 139 BUFFER FOR WORD ADDRESSING EJT * 1 7 3 3 - 2 / 8 5 6 D I S K - U N I T 3 * SPC 1 P73323 ADC $5209 00 SCHEDULER CALL ADC I17332 01 INITIATOR ADDRESS ADC C17332 02 CONTINUATOR ADDRESS ADC E17332 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0181 07 CONVERTER, EQUIPMENT, STATION ADC $1006+T8564 08 REQUEST STATUS NUM $0200 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS NUM 0 13 ERROR COUNTER NUM 0 14 DATA TRANSFER FUNCTION NUM 0 15 SECTOR NUMBER OR FNR RETURN NUM $8700 16 NO COMPARE FLAG / DIRECTOR FUNCTION NUM 0 17 TEMSEC - USED BY WORD ADDRESSING NUM 0 18 OVERLAY AREA (SCHEDULER CALL) NUM 0 19 OVERLAY AREA (COMPLETION ADDRESS) NUM 0 20 OVERLAY AREA (THREAD) NUM 0 21 OVERLAY AREA (LOGICAL UNIT) ADC P73320 22 PHYSTB THREAD NUM 0 23 RETURN ADDRESS FOR DATA TRANSFER NUM $5BFB 24 FIRST SECTOR ADDRESS ON DISK 1 NUM 0 25 LAST DATA TRANSFER FUNCTION NUM 0 26 BUFFER SIZE FOR SPLIT TRANSFERS NUM 0 27 CYLINDER ADDRESS FOR TRANSFER NUM 8 28 MASK FOR THIS UNITS SEEK COMPLETE BIT ADC BF332D 29 ADDRESS OF 96 WORD BUFFER NUM 0 30 TEMPORARY FOR WORD ADDRESSING NUM 0 31 TEMPORARY FOR WORD ADDRESSING NUM 0 32 TEMPORARY FOR WORD ADDRESSING NUM 0 33 REQUEST CODE NUM 0 34 REQUEST PRIORITY NUM 0 35 STARTING SECTOR FOR COMPARE OR RETRY NUM 0 36 FWA OF TRANSFER FOR COMPARE OR RETRY NUM 0 37 ERROR COUNTER NUM 0 38 DATA TRANSFER FUNCTION CODE NUM $FFFF 39 SECTOR NUMBER CURRENTLY IN BUFFER NUM 0 40 LAST VALUE OF CYLINDER ADDRESS STATUS NUM 0 41 LAST VALUE OF C W A STATUS NUM 0 42 LAST VALUE OF CHECKWORD STATUS NUM 0 43 LAST VALUE OF DRIVE CYLINDER STATUS * BZS BF332D(96) 44 BUFFER FOR WORD ADDRESSING * 139 BUFFER FOR WORD ADDRESSING EJT * 1 7 5 2 D R U M * EXT I1752,C1752,E1752 SPC 2 R1752 LDQ =XP1752 INTERRUPT RESPONSE FOR 1752 DRUM JMP* (P1752+2) EJT * 1 7 5 2 D R U M * SPC 1 P1752 ADC $5209 00 SCHEDULER CALL ADC I1752 01 INITIATOR ADDRESS ADC C1752 02 CONTINUATOR ADDRESS ADC E1752 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0101 07 CONVERTER, EQUIPMENT, STATION NUM $1036 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS NUM 0 13 RESERVED NUM $7FFF 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR NUM 0 16 SECTOR NUMBER NUM 0 17 DATA TRANSFER FUNCTION NUM 0 18 COUNTER NUM 0 19 FULL SECTOR COUNTER NUM 0 20 SAVE ECCOR NUM 0 21 SAVE ELSTWD NUM 0 22 OVERLAY AREA (SCHEDULER CALL) NUM 0 23 OVERLAY AREA (COMPLETION ADDRESS) NUM 0 24 OVERLAY AREA (THREAD) NUM 0 25 OVERLAY AREA (LOGICAL UNIT) NUM 0 26 UNSUCCESSFUL I/O ATTEMPT COUNTER NUM 0 27 EQUIPMENT STATUS (ON LAST ERROR) NUM 0 28 CORE STATUS (ON LAST ERROR) NUM 0 29 SECTOR STATUS (ON LAST ERROR) NUM 0 30 DATA STATUS (ON LAST ERROR) EJT * 1 7 4 2 - 3 0 / 1 2 0 L I N E P R I N T E R * SPC 1 EQU T4230(17*$10) TYPE CODE - 1742-30 EQU T4212(18*$10) TYPE CODE - 1742-120 EQU U42312(X42312-LOG1A) EQU F42312(FTN742-LOG1A) SPC 1 EQU M42312(1) * IFA M42312,EQ,0 CORE RESIDENT DRIVER EXT I42312 EXT C42312 EXT E42312 EQU L42312(0) EQU S42312($7FFF) EIF * IFA M42312,EQ,1 MASS RESIDENT DRIVER EXT MASDRV EXT MASCON EXT MASERR I42312 JMP+ MASDRV INITIATE DRIVER C42312 JMP+ MASCON INTERRUPT RESPONSE E42312 JMP+ MASERR TIMEOUT ERROR EXT L42312 EXT S42312 EIF * SPC 2 R42312 LDQ =XP42312 INTERRUPT RESPONSE FOR 1742-30/120 PRINTER JMP* (P42312+2) EJT * 1 7 4 2 - 3 0 / 1 2 0 L I N E P R I N T E R * SPC 1 P42312 ADC $520A 00 SCHEDULER CALL ADC I42312 01 INITIATOR ADDRESS ADC C42312 02 CONTINUATOR ADDRESS ADC E42312 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0201 07 CONVERTER, EQUIPMENT, STATION ADC $2804+T4212 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS ADC L42312 13 DRIVER LENGTH IF MASS MEMORY ADC S42312 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 BLANK DETECTION INDICATOR NUM 0 16 LINE COUNT NUM 0 17 TEMPORARY STORAGE FOR CONTROL FUNC. NUM 0 18 CHARACTER COUNT ADC F42312 19 FORTRAN LOGICAL UNIT NUM 0 20 NUMBER OF BLANKS TO BE SENT NUM 60 21 MAXIMUM NUMBER OF LINES PER PAGE NUM 136 22 NUMBER OF CHARACTERS PER LINE ADC U42312 23 DIAGNOSTIC LU EJT * * F O R T R A N L I N E P R I N T E R SPC 2 * PHYSTB SHARED WITH 1742-30/120 LINE PRINTER EJT * 1 7 2 8 / 4 3 0 C A R D R E A D E R / P U N C H * SPC 1 EQU U1728(X1728-LOG1A) SPC 1 EQU M1728(1) * IFA M1728,EQ,0 CORE RESIDENT DRIVER EXT I1728 EXT C1728 EXT E1728 EQU L1728(0) EQU S1728($7FFF) EIF * IFA M1728,EQ,1 MASS RESIDENT DRIVER EXT MASDRV EXT MASCON EXT MASERR I1728 JMP+ MASDRV INITIATE DRIVER C1728 JMP+ MASCON INTERRUPT RESPONSE E1728 JMP+ MASERR TIMEOUT ERROR EXT L1728 EXT S1728 EIF * SPC 2 R1728 LDQ =XP1728 INTERRUPT RESPONSE FOR 1728-430 READ/PUNCH JMP* (P1728+2) EJT * 1 7 2 8 / 4 3 0 C A R D R E A D E R / P U N C H * SPC 1 P1728 ADC $520E 00 SCHEDULER CALL ADC I1728 01 INITIATOR ADDRESS ADC C1728 02 CONTINUATOR ADDRESS ADC E1728 03 TIMEOUT ERROR ADDRESS NUM -1 04 DIAGNOSTIC CLOCK NUM 0 05 LOGICAL UNIT NUM 0 06 PARAMETER LOCATION NUM $0521 07 CONVERTER, EQUIPMENT, STATION NUM $18C6 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS ADC L1728 13 DRIVER LENGTH IF MASS MEMORY ADC S1728 14 NAME ASSOCIATED WITH SECTOR NUMBER NUM 0 15 PACKING CYCLE ADDRESS STORAGE NUM $800F 16 READ/PUNCH SWITCH, EOF FORMAT (6789) ADC BUF28 17 FIRST LOCATION OF 80 WORD I / O BUFFER NUM 0 18 CURRENT CARD BUFFER LOCATION NUM 0 19 SUBROUTINE RETURN ADDRESS NUM 0 20 CARD SEQUENCE NUMBER NUM 0 21 RECORD LENGTH NUM 0 22 CHECKSUM ACCUMULATOR NUM 0 23 TEMPORARY STORAGE NUM 0 24 OUTPUT OFFSET SWITCH NUM 0 25 ERROR RETURN NUM 0 26 HOLLERITH ERROR FLAG ADC U1728 27 DIAGNOSTIC LU * BZS BUF28(80) 28 INPUT / OUTPUT BUFFER * 107 INPUT / OUTPUT BUFFER EJT * 1 7 4 3 - 2 C O M M U N I C A T I O N S * * C O N T R O L L E R, U N I T 0 * * REMOVED FROM SYSTEM * ENT P74300 EQU P74300($7FFF) EJT * R E S I D E N T C O R E D A T A * ENT LSTLOC EXT BGNMON SPC 1 LSTLOC ADC BGNMON BEGINNING LOCATION OF CORE RESIDENT SYSTEM SPC 2 * C O R E A L L O C A T I O N D A T A * ENT CALTHD CORE ALLOCATOR THREAD ENT LVLSTR LEVEL START ALLOCATION TABLE EXT AREAC START OF ALLOCATABLE AREA EXT LEND END OF ALLOCATABLE AREA * CALTHD ADC 0 TOTAL AVAILABLE ALLOCATABLE CORE ADC AREAC START OF ALLOCATABLE AREA * LVLSTR ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 0 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 1 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 2 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 3 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 4 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 5 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 6 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 7 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 8 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 9 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 10 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 11 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 12 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 13 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 14 ADC AREAC START OF ALLOCATABLE CORE FOR LEVEL 15 ADC LEND END OF ALLOCATABLE CORE * ENT N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15 SPC 1 * NOTE - THE SIZE OF AREAS 1, 2, 3, AND 4 ARE SPECIFIED * DURING SYSTEM INITIALIZATION * N5 EQU N5() NUMBER OF CORE LOCATIONS FOR AREA 5 N6 EQU N6() NUMBER OF CORE LOCATIONS FOR AREA 6 N7 EQU N7() NUMBER OF CORE LOCATIONS FOR AREA 7 N8 EQU N8() NUMBER OF CORE LOCATIONS FOR AREA 8 N9 EQU N9() NUMBER OF CORE LOCATIONS FOR AREA 9 N10 EQU N10() NUMBER OF CORE LOCATIONS FOR AREA 10 N11 EQU N11() NUMBER OF CORE LOCATIONS FOR AREA 11 N12 EQU N12() NUMBER OF CORE LOCATIONS FOR AREA 12 N13 EQU N13() NUMBER OF CORE LOCATIONS FOR AREA 13 N14 EQU N14() NUMBER OF CORE LOCATIONS FOR AREA 14 N15 EQU N15() NUMBER OF CORE LOCATIONS FOR AREA 15 EJT * P A R T I T I O N C O R E D A T A * ENT PARTBL,BUSY,DIP,LSTPRT,THDS,USE SPC 1 EQU LSTPRT(2) LAST PARTITION IN SYSTEM * PARTBL NUM $BF20 STARTING ADDRESS OF PARTITION 0 NUM $C310 STARTING ADDRESS OF PARTITION 1 NUM $CAE0 STARTING ADDRESS OF PARTITION 2 NUM $FFFF STARTING ADDRESS OF PARTITION 3 NUM $FFFF STARTING ADDRESS OF PARTITION 4 NUM $FFFF STARTING ADDRESS OF PARTITION 5 NUM $FFFF STARTING ADDRESS OF PARTITION 6 NUM $FFFF STARTING ADDRESS OF PARTITION 7 NUM $FFFF STARTING ADDRESS OF PARTITION 8 NUM $FFFF STARTING ADDRESS OF PARTITION 9 NUM $FFFF STARTING ADDRESS OF PARTITION 10 NUM $FFFF STARTING ADDRESS OF PARTITION 11 NUM $FFFF STARTING ADDRESS OF PARTITION 12 NUM $FFFF STARTING ADDRESS OF PARTITION 13 NUM $FFFF STARTING ADDRESS OF PARTITION 14 NUM $FFFF STARTING ADDRESS OF PARTITION 15 * NUM $FFFF STARTING ADDRESS OF PARTITION 16 - SWAP AREA SPC 2 THDS NUM $FFFF TOP OF REQUEST THREAD FOR PARTITION 0 NUM $FFFF TOP OF REQUEST THREAD FOR PARTITION 1 NUM $FFFF TOP OF REQUEST THREAD FOR PARTITION 2 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 3 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 4 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 5 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 6 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 7 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 8 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 9 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 10 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 11 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 12 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 13 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 14 NUM 0 TOP OF REQUEST THREAD FOR PARTITION 15 * NUM 0 TOP OF REQUEST THREAD FOR PARTITION 16 - SWAP SPC 2 USE BZS USE(16) PARTITION-IN-USE INDICATORS SPC 2 BUSY NUM $FFF8 BUSY INDICATOR - BIT 0 = PARTITION 0 DIP NUM -0 PARTITION CORE DRIVER ACTIVE INDICATOR EJT * S Y S T E M C O M M O N D E C L A R A T I O N * * THIS ENTRY SPECIFIES THE AMOUNT OF SYSTEM (BLANK) COMMON SPC 4 EQU NCOM($03E8) SPC 1 COMMON COM COMMON(NCOM) EJT * M I S C E L L A N E O U S P R O G R A M S * * S Y S T E M I D L E L O O P SPC 2 ENT IDLE BASIC SYSTEM IDLE LOOP ENT IDLER SYSTEM IDLE SUBROUTINE ENT INSTLU SYSTEM INSTALLATION L. U. SPC 2 IDLE LDA* STRTUP IS THIS THE INITIAL IDLE ENTRY SAN IDLE1 NO RTJ* STRTUP YES, PERFORM STARTUP FUNCTIONS IDLE1 RTJ* IDLER JMP* IDLE IDLER NUM 0 IIN 0 USED AT LEVEL -1 OR LEVEL 2 RAO* IDLCTR EIN 0 JMP* (IDLER) IDLCTR NUM 0 IDLE LOOP COUNTER SPC 2 EXT LIBEDT LIBRARY EDIT EXT RELFLE SYSTEM CORE SWAP ROUTINE EXT INPTV4 JOB PROCESSOR STANDARD INPUT DEVICE EQU INSTLU(6) SPC 1 STRTUP NUM 0 LDQ- $EB ADQ =XLIBEDT OBTAIN THE DIRECTORY ADDRESS OF LIBEDT LDA- (ZERO),Q HAVE THE REQUEST PRIORITIES BEEN SET UP SAN STRTP1 YES LDA =XINSTLU STA+ INPTV4 SET THE STD. INPUT TO THE INSTALLATION L.U. JMP* (STRTUP) AND EXIT SPC 1 STRTP1 EQU STRTP1(*) * * NOTE - ANY ADDITIONAL SYSTEM STARTUP FUNCTIONS * MAY BE ADDED HERE. * RTJ- (AMONI) SCHEDULE RELFLE TO FORCE A SWAP ADC $5203 ADC RELFLE JMP* (STRTUP) EJT * M I S C E L L A N E O U S P R O G R A M S * * I N T E R R U P T R E S P O N S E F O R T I M E R * ENT TMRTYP,TMCODE TYPE OF SYSTEM TIME BASE EXT TIMEUP TMINT INTERRUPT ENTRY EQU X($7FFF) VALUE FOR UNSELECTED ENTRY POINTS EQU TMCODE(7) TMRTYP ADC TMCODE TIME BASE CODE SPC 2 ENT E10336,O10336,F10336 E10336 NUM $0681 O10336 NUM 1667 100 KCS / 60 F10336 NUM $8080 ENABLE INTERRUPT AND START CLOCK A10336 NUM $0002 ACKNOWLEDGE INTERRUPT SPC 1 TIMINT LDA* A10336 ACK. THIS INTERRUPT LDQ* E10336 OUT TIMREJ-* JMP TIMEUP EXIT TO TMINT TIMREJ NOP 0 TIMER REJECT JMP- (ADISP) EXIT SPC 2 * * LINK ALL UNSELECTED ENTRY POINTS * ENT E1572F,E1572,O1572,E1573,H15721,E15721,D15721,O15721,EQ3644 ENT E15761 ENT DMICOD,EMPSRT,TBLADR EQU E1572F(X),E1572(X),O1572(X),E1573(X),H15721(X) EQU E15721(X),D15721(X),O15721(X),EQ3644(X) EQU E15761(X) EQU DMICOD(X),EMPSRT(X),TBLADR(X) EJT * M I S C E L L A N E O U S P R O G R A M S * * A / Q C H A N N E L A L L O C A T I O N * SPC 2 ENT RQAQ REQUEST ENTRY FOR A/Q ENT RLAQ RELEASE ENTRY FOR A/Q SPC 1 RQAQ NUM 0 ENTRY USED IF NO A/Q ALLOCATION IIN 0 LDQ- I TRANSFER PDT ADDRESS TO Q EIN 0 JMP* (RQAQ) RETURN SPC 1 EQU RLAQ(RQAQ) EQUATE BOTH ENTRIES EJT * M I S C E L L A N E O U S I N F O R M A T I O N * * M A S S R E S I D E N T D R I V E R S B U F F E R * * THIS BUFFER WILL CONTAIN THE MASS RESIDENT DRIVER(S) * WHEN THEY ARE IN CORE. THE SMALLEST ALLOWABLE SIZE IS * EQUAL TO THE LARGEST MASS RESIDENT DRIVER IN THE SYSTEM. * OPTIMUM THROUGHPUT REQUIRES SIZING EQUAL TO THE TWO * LARGEST MASS RESIDENT DRIVERS IN THE SYSTEM. SPC 2 ENT BUFF,BUFFE EQU MBFSZ($A00) SPC 2 BUFF BZS BUFF(MBFSZ) EQU BUFFE(*) SPC 2 * C O M M O N G H O S T I N T E R R U P T R O U T I N E SPC 1 ENT CGHOST SPC 1 CGHOST NOP 0 JMP- (ADISP) EJT * M I S C E L L A N E O U S I N F O R M A T I O N * * F O R T R A N R E E N T R A N T I N F O R M A T I O N * ENT FMASK,FLIST EXT E4SAVE EXT ARGU0 SPC 1 FMASK NUM $0070 FORTRAN REENTRANT LEVELS (BIT 0 = LEVEL 0) SPC 1 * TABLE OF FORTRAN ENTRY POINTS SAVED TO MAINTAIN REENTRANCY SPC 1 * ENTRY POINT PROGRAM DESCRIPTION * ----------- ------- ---------- SPC 1 FLIST ADC FEND ADC E4SAVE Q8EXPR LOCATION $E4 STORAGE ADC ARGU0 Q8QIO TEMPORARY STORAGE FEND EQU FEND(*-FLIST-1) EJT * F O R T R A N R E E N T R A N T I N F O R M A T I O N * SPC 4 * THIS ENTRY IS PROVIDED TO ALLOW COMPATIBILITY BETWEEN THE * NON-REENTRANT (BACKGROUND) FORTRAN AND REENTRANT FORTRAN SPC 1 ENT Q8STP SPC 1 Q8STP NOP 0 FORTRAN STOP JMP- (ADISP) EJT * M I S C E L L A N E O U S I N F O R M A T I O N * * 1 7 8 1 - 1 H A R D W A R E F L O A T I N G * * P O I N T I N F O R M A T I O N * SPC 4 * THESE ENTRIES ALLOW PROPER SYSTEM LINKAGE IF THE 1781-1 * IS NOT SELECTED. SPC 2 ENT E17811,F17811 E17811 NUM $7FFF EQU F17811($7FFF) EJT * M I S C E L L A N E O U S I N F O R M A T I O N * * T I M E / D A T E P A R A M E T E R S T O R A G E * SPC 3 ENT AYERTO CURRENT YEAR (ASCII) ENT AMONTO CURRENT MONTH (ASCII) ENT ADAYTO CURRENT DAY (ASCII) ENT YERTO CURRENT YEAR (INTEGER) ENT MONTO CURRENT MONTH (INTEGER) ENT DAYTO CURRENT DAY (INTEGER) ENT HORTO CURRENT HOUR (INTEGER) ENT MINTO CURRENT MINUTE (INTEGER) ENT SECON CURRENT SECOND (INTEGER) ENT CONTA CURRENT COUNT (INTEGER) ENT HORMIN CURRENT 24-HOUR TIME ENT TOTMIN CURRENT DAY ELAPSED MINUTES SPC 3 AYERTO NUM 0 00 CURRENT YEAR (ASCII) AMONTO NUM 0 01 CURRENT MONTH (ASCII) ADAYTO NUM 0 02 CURRENT DAY (ASCII) YERTO NUM 0 03 CURRENT YEAR (INTEGER) MONTO NUM 0 04 CURRENT MONTH (INTEGER) DAYTO NUM 0 05 CURRENT DAY (INTEGER) HORTO NUM 0 06 CURRENT HOUR (INTEGER) MINTO NUM 0 07 CURRENT MINUTE (INTEGER) SECON NUM 0 08 CURRENT SECOND (INTEGER) CONTA NUM 0 09 CURRENT COUNT (INTEGER) HORMIN NUM 0 10 CURRENT 24-HOUR TIME TOTMIN NUM 0 11 CURRENT DAY ELAPSED MINUTES EJT * M I S C E L L A N E O U S I N F O R M A T I O N * * S Y S T E M T I M E R P A R A M E T E R S SPC 4 ENT TIMCPS BASIC SYSTEM CLOCK FREQUENCY SPC 1 TIMCPS EQU TIMCPS(60) TIMER CYCLES PER SECOND SPC 4 ENT TIMEC TIMER CYCLES PER 1/10 SECOND MINUS 1 SPC 1 TIMEC EQU TIMEC(TIMCPS/10-1) SPC 4 ENT TODLVL TIME OF DAY(TOD) PROGRAM REQ. CODE + PRIORITY SPC 1 TODLVL EQU TODLVL($5006) D-BIT = 1, REQUEST CODE 8, PRIORITY 6 SPC 4 ENT NSCHED MAX. NO. OF COMPLETIONS PER TIMER INTERVAL SPC 1 NSCHED NUM 5 MAXIMUM 5 COMPLETIONS PER INTERVAL SPC 4 ENT TMRLVL DIAGNOSTIC TIMER PRIORITY LEVEL SPC 1 TMRLVL EQU TMRLVL(13) LEVEL 13 EJT * M I S C E L L A N E O U S I N F O R M A T I O N * * S Y S T E M P R O G R A M O V E R L A Y S I Z E S SPC 2 ENT LSIZV4 INITIAL OVERLAY SIZE OF LIBEDT ENT PSIZV4 SIZE OF AREA 3 ENT ODBSIZ INITIAL OVERLAY SIZE OF ODEBUG SPC 4 EQU LSIZV4($4B8) INITIAL OVERLAY SIZE OF LIBEDT EQU PSIZV4($4B8) SIZE OF AREA 3 EQU ODBSIZ($369) INITIAL OVERLAY SIZE OF ODEBUG EJT * M I S C E L L A N E O U S I N F O R M A T I O N * * S C M M I N C O R E F L A G * ENT SCMMLC SPC 2 SCMMLC NUM 0 NON-ZERO IF S C M M RUNNING EJT * M I S C E L L A N E O U S I N F O R M A T I O N * * O N L I N E D E B U G I N C O R E F L A G * ENT CHRSFG SPC 2 CHRSFG NUM 0 NON-ZERO IF ODEBUG RUNNING EJT * M I S C E L L A N E O U S I N F O R M A T I O N * * S Y S T E M C H E C K O U T P A R A M E T E R S SPC 4 * THE STARTING SECTOR OF THE FAILED CORE IMAGE IS SPECIFIED BY * THE NAME COBOPS. THIS AREA MUST BE SIZED TO ACCOMODATE A * FAILED IMAGE OF THE SIZE SPECIFIED BY NAME MSIZV4. THE FAILED * IMAGE MUST RESIDE ON THE LIBRARY MASS MEMORY UNIT. IF THE * MASS MEMORY LIBRARY UNIT IS A CARTRIDGE DISK, THE IMAGE AREA * CANNOT OVERLAP FROM ONE PLATTER TO THE OTHER. SPC 2 ENT COBOPS COBOPS EQU COBOPS($5A00) START SECTOR OF FAILED IMAGE SPC 4 * THIS ENTRY IS PROVIDED TO LINK THE NO-FORTRAN DISPATCHER * ENTRY POINT SPC 1 ENT NDISP SPC 1 EQU NDISP($7FFF) SPC 4 * THIS ENTRY IS PROVIDED TO LINK THE TIMESHARE PROTECT INTERRUPT * PROCESSOR ENTRY POINT SPC 1 ENT TSIPRC SPC 1 EQU TSIPRC($7FFF) EJT * M I S C E L L A N E O U S I N F O R M A T I O N * * F I L E M A N A G E R D A T A * SPC 2 ENT FISLU LOGICAL UNIT OF FIS DIRECTORY AND BLOCKS ENT MAXMMA MAXIMUM NO. OF MASS MEMORY ATTEMPTS ON ERROR ENT RPTPER REQUEST PROCESSOR TIMEOUT PERIOD ENT FDTPER FILE/DIRECTORY TIMEOUT PERIOD ENT FIDSEC FIS DIRECTORY, S SECTOR ADDRESS ENT FIBLSA SECTOR ADDRESS OF LAST FIS BLOCK ENT FIBNIX INDEX TO THE NEXT AVAILABLE LOCATION IN FIBLSA ENT FSLIST START OF FILE SPACE LIST ENT FSLLTH FILE SPACE LIST LENGTH ENT FSLEND END OF FILE SPACE LIST ENT ADRFMS BEGINNING OF FILE MANAGER SPACE ON LIB UNIT SPC 2 EQU FISLU(LBUNIT) LOGICAL UNIT OF FIS DIRECTORY AND BLOCKS EQU MAXMMA(1) MAXIMUM NO. OF MASS MEMORY ATTEMPTS ON ERROR EQU FDTPER(1) FILE/DIRECTORY TIMEOUT PERIOD (1/10 SEC.) EQU RPTPER(1) REQUEST PROCESSOR TIMEOUT PERIOD (1/10 SEC.) SPC 2 ADRFMS ADC $5BFB BEGINNING OF FILE MANAGER SPACE ON LIB UNIT SPC 1 ******** THE FOLLOWING MUST BE IN ORDER ******** FIDSEC ADC 0 1. FIS DIRECTORY, S SECTOR ADDRESS FIBLSA ADC 0 2. SECTOR ADDRESS OF THE LAST FIS BLOCK FIBNIX ADC 0 3. INDEX TO NEXT AVAILABLE LOCATION IN FIBLSA FSLIST EQU FSLIST(*) 4. START OF FILE SPACE LIST SPC 1 ******** START OF LOGICAL UNIT ENTRIES ******** SPC 2 * L O G I C A L U N I T D A T A , U N I T 0 * ENT NUMFS0 EQU NUMFS0($1F40) NUMBER OF FILE SECTORS - UNIT 0 SPC 1 LUE0 VFD X9/LUEL0,X7/LBUNIT LU ENTRY LENGTH(7/15), LOGICAL UNIT(0-6) ADC 0 ADDRESS OF FILE SPACE POOL ADC 0 NUMBER OF AVAILABLE SECTORS ADC NUMFS0 NUMBER OF SECTORS IN THIS FILE SPACE NUM 0,1 THREAD OF ONE SECTOR LONG NUM 0,2 THREAD OF TWO SECTORS LONG NUM 0,3 THREAD OF THREE SECTORS LONG LUEL0 EQU LUEL0(*-LUE0) EJT * L O G I C A L U N I T D A T A , U N I T 1 * ENT BEGLU1 ENT NUMFS1 EQU LUNIT1(22) LOGICAL UNIT OF FILE MANAGER UNIT 1 EQU BEGLU1(1) BEGINNING FILE SECTOR - UNIT 1 EQU NUMFS1($37F5) NUMBER OF FILE SECTORS - UNIT 1 SPC 1 LUE1 VFD X9/LUEL1,X7/LUNIT1 LU ENTRY LENGTH(7/15), LOGICAL UNIT(0-6) ADC BEGLU1 ADDRESS OF FILE SPACE POOL ADC 0 NUMBER OF AVAILABLE SECTORS ADC NUMFS1 NUMBER OF SECTORS IN THIS FILE SPACE NUM 0,1 THREAD OF ONE SECTOR LONG NUM 0,2 THREAD OF TWO SECTORS LONG NUM 0,3 THREAD OF THREE SECTORS LONG LUEL1 EQU LUEL1(*-LUE1) SPC 2 FSLLTH EQU FSLLTH(*-FSLIST) FILE SPACE LIST LENGTH SPC 1 FSLEND NUM -0 END OF FILE SPACE LIST EJT * F I L E M A N A G E R D A T A * SPC 2 * LINK UNSELECTED ENTRY POINTS SPC 2 ENT BEGLU2,NUMFS2 EQU BEGLU2($7FFF),NUMFS2($7FFF) ENT BEGLU3,NUMFS3 EQU BEGLU3($7FFF),NUMFS3($7FFF) ENT BEGLU4,NUMFS4 EQU BEGLU4($7FFF),NUMFS4($7FFF) ENT BEGLU5,NUMFS5 EQU BEGLU5($7FFF),NUMFS5($7FFF) ENT BEGLU6,NUMFS6 EQU BEGLU6($7FFF),NUMFS6($7FFF) ENT BEGLU7,NUMFS7 EQU BEGLU7($7FFF),NUMFS7($7FFF) ENT BEGLU8,NUMFS8 EQU BEGLU8($7FFF),NUMFS8($7FFF) * * S O R T - M E R G E L O G I C A L U N I T S * SPC 1 ENT SMCLU1 ENT SMCLU2 ENT SMCLU3 ENT SMCLU4 SPC 1 SMCLU1 EQU SMCLU1(8) SORT MERGE L.U. 1 SMCLU2 EQU SMCLU2(8) SORT MERGE L.U. 2 SMCLU3 EQU SMCLU3(8) SORT MERGE L.U. 3 SMCLU4 EQU SMCLU4(8) SORT MERGE L.U. 4 EJT * M I S C E L L A N E O U S I N F O R M A T I O N * * J O B P R O C E S S O R F I L E P A R A M E T E R S * SPC 3 ENT JLLUV4 LOGICAL UNIT OF JOB PROCESSOR FILES ENT JBFLV4 NUMBER OF JOB PROCESSOR FILES ENT FBASV4 FIRST FILE NUMBER USED BY JOB PROCESSOR ENT PKEYV4 JOB FILE PURGE KEY SPC 3 JLLUV4 ADC LBUNIT LOGICAL UNIT OF JOB PROCESSOR FILES SPC 2 EQU JBFLV4(500) NUMBER OF JOB PROCESSOR FILES SPC 1 EQU FBASV4($7F2B-JBFLV4) * * NOTE - FILES $7FFD THRU $7FFF ARE RESERVED FOR THE MSOS * VERIFICATION TESTS, FILES $7FF5 THRU $7FFC ARE * RESERVED FOR FOREGROUND PSEUDO TAPES, FILES $7FF3 * THRU $7FF4 ARE RESERVED FOR THE TEXT EDITOR, AND * FILES $7F2B THRU $7FF2 ARE RESERVED FOR RPGII. SPC 2 EQU PKEYV4($3030) JOB FILE PURGE KEY EJT * P R E S E T R E G I O N * * PRESET PROTECTED ENTRY POINTS FOR USE BY UNPROTECTED PGMS * APRSET EQU APRSET(*) ENT JPRET SPC 2 * J O B P R O C E S S O R P R E S E T SPC 2 EXT JPRETN ALF 3,JPRETN JPRET ADC JPRETN JOB PROCESSOR RETURN * SPC 2 * S N A P D U M P P R E S E T SPC 2 EXT SNAPOL ALF 3,SNAPOL ADC SNAPOL REGISTER SNAPSHOT * SPC 2 * F I L E M A N A G E R P R E S E T S SPC 2 EXT DEFFIL ALF 3,DEFFIL ADC DEFFIL DEFINE FILE * EXT RELFIL ALF 3,RELFIL ADC RELFIL RELEASE FILE * EXT DEFIDX ALF 3,DEFIDX ADC DEFIDX DEFINE INDEXED FILE * EXT LOKFIL ALF 3,LOKFIL ADC LOKFIL LOCK FILE * EXT UNLFIL ALF 3,UNLFIL ADC UNLFIL UNLOCK FILE * EXT STOSEQ ALF 3,STOSEQ ADC STOSEQ STORE SEQUENTIAL RECORD * EXT STODIR ALF 3,STODIR ADC STODIR STORE DIRECT * EXT STOIDX ALF 3,STOIDX ADC STOIDX STORE INDEXED RECORD * EXT RTVSEQ ALF 3,RTVSEQ ADC RTVSEQ RETRIEVE SEQUENTIAL RECORD * EXT RTVDIR ALF 3,RTVDIR ADC RTVDIR RETRIEVE DIRECT * EXT RTVIDX ALF 3,RTVIDX ADC RTVIDX RETRIEVE INDEXED RECORD * EXT RTVIDO ALF 3,RTVIDO ADC RTVIDO RETRIEVE INDEXED-ORDERED RECORD SPC 2 * F I L E M A N A G E R F L A G P R E S E T SPC 2 EXT FMPFLG ALF 3,FMPFLG ADC FMPFLG SPC 1 LPRSET EQU LPRSET(*-APRSET) EJT SPC 10 * S Y S T E M L I B R A R Y D I R E C T O R Y * * COMPILED FROM *Y, *YM BY SYSTEM INITIALIZER SLDIRY EQU SLDIRY(*) END