PMMEXEC DCK/ I,H PPSNAPOL DCK/ I,H PPPARAME DCK/ I,H PPT16 DCK/ I,H PPDTIMER DCK/ I,H PPTMINT DCK/ I,H PP DEL/ 1 PP NAM TMINT DECK-ID M06 MSOS 5.0 SUMMARY-116 PP INS/ 12 PP ENT TMRTHD TOP OF TIMER THREAD 116*4373 PP INS/ 189 PP SPC 1 116*4373 PP EQU TMRTHD(THREAD) 116*4373 PPMAKQ DCK/ I,H PPMINT DCK/ I,H PP DEL/ 1 PP NAM MINT DECK-ID M07 MSOS 5.0 SUMMARY-116 PP DEL/ 18 PP ENT S200BS 116*4377 PP INS/ 19 PP* E X T E R N A L S 116*4377 PP SPC 1 116*4377 PP EXT MIINP 'MI' INPUT BUFFER (IN 'SYSDAT') 116*4377 PP EXT TSCNAC TIME SHARE ACTIVE ON 116*4377 PP* COMMENT DEVICE FLAG 116*4377 PP EXT TSCNMI TIME SHARE MANUAL INTERRUPT ROUTINE. 116*4377 PP EXT SIM200 116*4377 PP EXT CCP CURRENT CONTROL POINT 116*4377 PP INS/ 24 PP EXT BATCLU 116*4377 PP INS/ 30 PP SPC 1 116*4377 PP* S Y S T E M E Q U I V A L E N C E 116*4377 PP EQU MONIT($F4) LOCATION CONTAINS MONITOR ADDRESS 116*4377 PP EQU LPMSK(2) 116*4377 PP EQU ZERO($22) LOCATION CONTAINS ZERO 116*4377 PP EQU LOCORE($F7) LOW CORE STARTING ADDRESS 116*4377 PP EQU CREXTB($E9) LOCATION CONTAINS CORE EXTENDED TABLE 116*4377 PP EQU CHARSK($2A) CHARACTER * 116*4377 PP DEL/ 40 PP JMP- (DISP) NOT ZERO, JUST GO AWAY 116*4377 PP DEL/ 42,46 PP RTJ- (MONIT) OUTPUT 'MI' 116*4377 PP DEL/ 51 PPMI1 STA* (MIBFAD),Q 116*4377 PP DEL/ 56,57 PPMI2 RTJ- (MONIT) INPUT STATEMENT 116*4377 PP NUM $48E7 116*4377 PP ADC MI2AX COMPLETION ADDRESS TO BE ENTERED 116*4377 PP* AT LEVEL 7 116*4377 PP DEL/ 59,65 PP EQU MIBFAD(*-1) 'MI' INPUT BUFFER ADDRESS 116*4377 PP RTJ- (MONIT) SCHEDULE DOWN TO 116*4377 PP NUM $5203 LEVEL 3. 116*4377 PP ADC MI2AA 116*4377 PP JMP- (DISP) 116*4377 PPMI2AA LDA* THR THIS LOOP RUNS AT LEVEL 3. ITS 116*4377 PP SAZ MI2AE PURPOSE IS TO INHIBIT THE BACKGROUND 116*4377 PP JMP* MI2AA PROGRAMS FROM EXECUTING UNTIL THE MI 116*4377 PPMI2AE JMP- (DISP) INPUT REQUEST IS COMPLETED 116*4377 PP* (AT LEVEL 7) 116*4377 PP SPC 2 116*4377 PP* THE INPUT REQUEST IS SATISFIED. 116*4377 PP* 116*4377 PPMI2AX SQP MI2A SKIP IF NO INPUT ERROR. 116*4377 PP JMP MI16 IGNORE INPUT AND EXIT. 116*4377 PPMI2A LDA =XCCP CURRENT CONTROL POINT 116*4377 PP EOR- LPMSK+15 116*4377 PP SAZ MI21 SKIP IF NOT TIMESHARE SYSTEM 116*4377 PP LDA+ TSCNAC SKIP IF TIME SHARE IS NOT 116*4377 PP SAZ MI21 ACTIVE AT THE COMMENT DEVICE. 116*4377 PP LDQ* MIBFAD SET Q EQUAL TO INPUT BUFFER ADDRESS 116*4377 PP RTJ- (MONIT) SCHEDULE THE 116*4377 PP NUM $5205 TIME SHARE MANUAL INTERRUPT ROUTINE. 116*4377 PP ADC TSCNMI 116*4377 PP JMP* MI16 CLEAR FLAGS AND EXIT. 116*4377 PPMI21 LDA* (MIBFAD) 116*4377 PP DEL/ 67 PP INA -CHARSK CHECK FOR '*' 116*4377 PP DEL/ 69 PP JMP SIMPRO GO TO TEST FOR SIM200 ENTRY 116*4377 PP DEL/ 74 PPMI3 LDA S200BS IF SIM200 IS RUNNING, DO NOT 116*4377 PP SAZ MI31 ALLOW THE JOB PROCESSOR TO EXECUTE. 116*4377 PP JMP* MI12 GO PRINT A JP05 ERROR MESSAGE. 116*4377 PPMI31 LDA* (JOBI) CHECK IF JOB PROCESSOR IN CORE 116*4377 PP DEL/ 79,80 PP ENQ 1 IN OPERATION. 116*4377 PP LDQ* (MIBFAD),Q 116*4377 PP LDA* (MIBFAD) CHECK IF *Z 116*4377 PP DEL/ 88 PP JMP* MI5AA GO CANCEL LIBEDT AS ANY OTHER JOB 116*4377 PP DEL/ 90 PP LDA* (MIBFAD) 116*4377 PP INS/ 91 PPASTSKR EQU ASTSKR(*-1) 116*4377 PP DEL/ 95,97 PP ENQ 2 116*4377 PPMORE LDA* (MIBFAD),Q 116*4377 PP SUB* BATCH,Q 116*4377 PP DEL/ 99,100 PP SQZ JOBSTR 116*4377 PP INQ -1 116*4377 PP DEL/ 103 PPJOBSTR LDQ- CREXTB 116*4377 PP DEL/ 108 PP RTJ- (MONIT) REQ FOR PARTITION 16 116*4377 PP DEL/ 115 PPJOBA RTJ- (MONIT) RELEASE PART 0 116*4377 PP DEL/ 125 PP RTJ- (MONIT) SCHEDULE JOB PROCESSOR 116*4377 PP DEL/ 133,134 PPMI5 ENQ 1 CHECK IF *Z 116*4377 PP LDQ* (MIBFAD),Q 116*4377 PP LDA* (MIBFAD) 116*4377 PP DEL/ 138 PPMI5AA LDA- $FD SET CONTROL LU TO COMMENT DEVICE 116*4377 PP STA+ BATCLU 116*4377 PP RTJ- (MONIT) SCHEDULE JOB CANCEL 116*4377 PP DEL/ 142 PPMI5A LDA* (MIBFAD) 116*4377 PP DEL/ 149 PP RTJ- (MONIT) 116*4377 PP DEL/ 153 PPMI6 LDA* (MIBFAD) 116*4377 PP DEL/ 158,159 PP LDA* (MIBFAD) 116*4377 PP EOR* ASTSKR CHECK FOR RESTORE A DEVICE 116*4377 PP DEL/ 163 PP RTJ- (MONIT) 116*4377 PP DEL/ 175,176 PP RTJ- (MONIT) SCHEDULE PROCESSOR 116*4377 PP NUM $2447 116*4377 PP DEL/ 180 PPMI12 RTJ- (MONIT) NO PROCESSOR 116*4377 PP INS/ 187 PP* 116*4377 PP*---- KEY WORD, ADDRESSES AND STORAGE 116*4377 PP* 116*4377 PP SPC 1 116*4377 PP DEL/ 189 PP* 1 CARD DELETED 116*4377 PP DEL/ 216 PP RTJ- (MONIT) RELEASE FILE 116*4377 PP DEL/ 225,226 PP STA* (JOBI) 116*4377 PP LDQ- CREXTB 116*4377 PP DEL/ 242 PP RTJ- (MONIT) SPACE REQUEST 116*4377 PP DEL/ 254 PPRELPRT LDA- LOCORE 116*4377 PP DEL/ 258 PP RTJ- (MONIT) 116*4377 PP DEL/ 261 PP RTJ- (MONIT) 116*4377 PP DEL/ 267,268 PP JMP- (DISP) 116*4377 PPRELA RTJ- (MONIT) 116*4377 PP INS/ 271 PP* 116*4377 PP* 116*4377 PP* 200 USER TERMINAL SIMULATOR ROUTINE 116*4377 PP* 116*4377 PP* 116*4377 PPSIMPRO LDA* (MIP) TEST IF RES IS INPUT 116*4377 PP SUB =ARE 116*4377 PP SAZ SPR 116*4377 PP JMP* SLCK 116*4377 PPSPR ENQ 1 116*4377 PP LDA* (MIP),Q TEST FOR FINAL S 116*4377 PP ARS 8 116*4377 PP INA -$53 116*4377 PP SAN SLCK 116*4377 PP LDA* S200BS 116*4377 PP SAZ SPRO 116*4377 PP JMP* MI12 116*4377 PPSPRO STA MIBX ZERO MI PERMISSIVE FLAGS 116*4377 PP STA MIB 116*4377 PP RAO* S200BS SET 200UT BUSY FLAG 116*4377 PP LDQ* MIP PICKUP START OF MESSAGE ADDRESS 116*4377 PP RTJ- (MONIT) SCHEDULE SIM200 116*4377 PP NUM $2404 GET SIM200 116*4377 PP ADC SIM200 116*4377 PP JMP- (DISP) RETURN TO DISPATCHER 116*4377 PPSLCK LDA* (MIP) NOT RES, SO TEST FOR SLASK (/) 116*4377 PP ARS 8 116*4377 PP INA -$2F 116*4377 PP SAZ GO2 116*4377 PP JMP* MI10 NOT A SIM200 COMMAND, SO RETURN 116*4377 PPGO2 LDA* S200BS TEST IF SIM200 IS IN CORE 116*4377 PP SAN GO20 116*4377 PP JMP* MI12 NOT IN CORE, SO GO TO PRINT ERROR 5 116*4377 PPGO20 LDQ =XSIM200 BUILD ADDRESS OF SIM200 DIRECTORY LOC.116*4377 PP ADQ- $EB 116*4377 PP LDA- 1,Q PICKUP CORE ADDRESS 116*4377 PP STA* LOC+1 116*4377 PP ENA 15 116*4377 PP AND- (ZERO),Q 116*4377 PP ADD =N$1200 116*4377 PP STA* LOC 116*4377 PP LDQ MIP PICKUP MESSAGE START ADDRESS 116*4377 PP RTJ- (MONIT) 116*4377 PPLOC NUM $1207 116*4377 PP NUM 0 116*4377 PP JMP- (DISP) 116*4377 PP* 116*4377 PPS200BS NUM 0 116*4377 PPRW DCK/ I,H PPNMONI DCK/ I,H PP DEL/ 1 PP NAM NMONI DECK-ID M10 MSOS 5.0 SUMMARY-122 PP DEL/ 20 PP EQU V(10) NUMBER OF WORDS OF VOLATILE. 122*4823 PP EQU VCCP(9) REQUESTOR'S CONTROL POINT NUMBER. 122*4823 PP EXT CCP LOCATION CONTAINING CURRENT CNTRL POIN122*4823 PP EXT CPSET ROUTINE TO SET A CONTROL POINT. 122*4823 PP INS/ 51 PP LDA+ CCP SAVE REQUESTOR'S CONTROL POINT NUMBER 122*4823 PP STA- VCCP,I IN VOLATILE. 122*4823 PP CLR Q 122*4823 PP RTJ* (ACPSET) PUT THE MACHINE INTO ABSOLUTE MODE. 122*4823 PP LDQ- VR,I SET Q = PARAMETER LIST ADDRESS. 122*4823 PP DEL/ 115 PPREQXT LDQ- VCCP,I SET Q = REQUESTOR'S CONTROL POINT NO. 122*4823 PP RTJ* (ACPSET) RESET REQUESTOR'S CONTROL POINT. 122*4823 PP IIN 0 122*4823 PP INS/ 122 PPACPSET ADC CPSET ADDR OF ROUTINE THAT SETS CNTRL POINTS122*4823 PPLIN1V4 DCK/ I,H PPNIPROC DCK/ I,H PP DEL/ 1 PP NAM NIPROC DECK-ID M12 MSOS 5.0 SUMMARY-118 PP INS/ 13 PP ENT PWFAIL POWER FAILURE INTERRUPT PROCESSOR 116*4372 PP ENT PTYERR MEMORY PARITY ERROR PROCESSOR 116*4372 PP INS/ 45 PP EQU PTYERR(*) 118*4372 PPCOMMON DCK/ I,H PPTRVEC DCK/ I,H PP DEL/ 1 PP NAM TRVEC DECK-ID M14 MSOS 5.0 SUMMARY-116 PP INS/ 31 PP ENT BATCLU BATCH CONTROL STATEMENT LU 116*4366 PP INS/ 72 PPBATCLU NUM 0 BATCH CONTROL STATEMENT LU,*BATCH,LU 116*4366 PPOFVOL DCK/ I,H PPALVOL DCK/ I,H PPALCORE DCK/ I,H PPPRTCDR DCK/ I,H PPDCORE DCK/ I,H PPNCMPRQ DCK/ I,H PPNFNR DCK/ I,H PPADEV DCK/ I,H PPRDISP DCK/ I,H PPNDISP DCK/ I,H PPTOD DCK/ I,H PPT14 DCK/ I,H PPEFDATA DCK/ I,H PPALAQ DCK/ I,H PPSPACE DCK/ I,H PP DEL/ 1 PP NAM SPACE DECK-ID M29 MSOS 5.0 SUMMARY-122 PP INS/ 21 PP EXT UBPROT CONTAINS UPPER BOUND REGISTER DATA 116*4381 PP EXT LBPROT CONTAINS LOWER BOUND REGISTER DATA 116*4381 PP EXT UPBDTB UPPER BOUND REGISTER DATA TABLE BASE 116*4381 PP EXT LOBDTB LOWER BOUND REGISTER DATA TABLE BASE 116*4381 PP EXT CCP CURRENT CONTROL POINT 116*4381 PP EXT SYFAIL SYSTEM FAILURE ROUTINE 122*4381 PP EXT END0V4 ADDRESS OF LAST LOCATION IN PART 0 122*4381 PP INS/ 104 PP EQU LOCORE($F7) SYSTEM LOW CORE DATA 116*4381 PP EQU HICORE($F6) SYSTEM HIGH CORE DATA 116*4381 PP DEL/ 175,176 PPRESTRT LDA ALCLGH 122*4381 PP INS/ 178 PPRST1 ENQ 15 122*4381 PP DEL/ 189 PP EJT 122*4381 PP DEL/ 195,196 PP SQN FIX4 YES 122*4381 PP JMP* FIX4Y NO 122*4381 PPFIX4 TCA Q -(END OF ALLOCATABLE) TO Q 122*4381 PP LDA =XEND0V4 ADDR OF LAST LOCATION IN PART 0 TO A 122*4381 PP AAQ A COMPUTE # EXTRA LOCATIONS 122*4381 PP SAP FIX4A SKIP IF EXTRA.GE.ZERO 122*4381 PP JMP* NTENUF GO AWAY IF NOT ENOUGH ROOM 122*4381 PPFIX4A SAZ FIX4X SKIP IF ZERO EXTRA MEMORY 122*4381 PP LDQ =XALCLGH START OF LENGTH TABLE TO A 122*4381 PP ADD- 3,Q ADD EXTRA TO REQUESTED AREA 4 122*4381 PP STA- 3,Q STORE BACK IN TABLE 122*4381 PP JMP* RST1 SET UP ALLOCATABLE WITH NEW AREA 4 122*4381 PPFIX4X TCQ A SET A TO END OF ALLOCATABLE 122*4381 PP JMP* SKIPIT 122*4381 PPFIX4Y TRA Q IS THE SIZE OF ALLOCATABLE GREATER 122*4381 PP INS/ 206 PP JMP* INIT 122*4381 PP EJT 122*4381 PPNTENUF RTJ- (AMONI) PRINT INSUFFICIENT MEMORY MESSAGE 122*4381 PP ADC $0C00 122*4381 PP ADC 0 122*4381 PPNTETHD ADC 0 122*4381 PP NUM $18FC 122*4381 PP ADC NTEMSL 122*4381 PP ADC NTEMSG 122*4381 PP SPC 2 122*4381 PPNTEWAT LDA* NTETHD 122*4381 PP SAZ 1 122*4381 PP JMP* NTEWAT WAIT FOR COMPLETION 122*4381 PP RTJ SYFAIL KILL SYSTEM 122*4381 PP SPC 2 122*4381 PPNTEMSG ALF *,INSUFFICIENT ALLOCATABLE MEMORY* 122*4381 PPNTEMSL EQU NTEMSL(*-NTEMSG) 122*4381 PP EJT 0 116*4381 PP* 116*4381 PP* INITIALIZE ALL LOCATIONS ABOVE PHYSICAL LOCATION $FFFF 116*4381 PP* IF TIMESHARE SYSTEM 116*4381 PP* 116*4381 PP* 116*4381 PP* 1. SET PAGE REGS 0-15 TO 0-15 BECAUSE 116*4381 PP* THIS CODE IS IN THE LOWEST 32K OF MEMORY 116*4381 PP* ---------- 116*4381 PP* 2. GO TO PAGE MODE 0 116*4381 PP* 3. USE PAGE REG 16 TO INDEX PAGE (2K) TO WORK ON 116*4381 PP* START WITH PAGE 127 (POSSIBLE LAST PAGE IN MACHINE) 116*4381 PP* 4. WRITE $18FF TO ALL LOCATIONS IN CURRENT PAGE 116*4381 PP* AND SET PROTECT BIT ON 116*4381 PP* 5. DECREMENT PAGE NUMBER UNTIL ALL PAGES ABOVE $FFFF 116*4381 PP* IN BOTH CPUS HAVE BEEN COVERED. 116*4381 PP* IF A PAGE DOES NOT EXIST, THE WRITE OPERATION WILL 116*4381 PP* BE ABORTED AND PARITY ERROR SET 116*4381 PP* 6. GO TO ABSOLUTE MODE 116*4381 PP* 7. SET UP PAGE REGS 16-31 TO CONTAIN 16-31. THUS 116*4381 PP* PHYSICAL ADDRESS = LOGICAL ADDRESS FOR THE LOWEST 65K.116*4381 PP* 116*4381 PPINIT LDA =XCCP CURRENT CONTROL POINT 116*4381 PP EQU ACCP(*-1) 116*4381 PP EOR- LPMSK+15 116*4381 PP SAN SETUP0 SKIP IF PATCHED 116*4381 PP JMP* SPBLP0 116*4381 PPSETUP0 EQU SETUP0(*) 116*4381 PP APM 0 GO TO ABSOLUTE MODE 116*4381 PP CLR A ASSUME THIS CODE IS IN THE LOWEST 32K 116*4381 PP ENQ 15 OF MACHINE THUS 116*4381 PPSETUP WPR A FILL PAGE REGS 0-15 WITH 0-15 116*4381 PP* WRITE IN PAGE REG 116*4381 PP ADD =N$0801 INCREMENT PAGE REG AND ITS CONTENT 116*4381 PP DQP *-SETUP 116*4381 PP* 116*4381 PP IIN 0 INHIBIT INTERRUPT FROM PARITY ERROR 116*4381 PP PM0 0 GO TO PAGE MODE 0 116*4381 PP ENA $10 116*4381 PP ALS 11 USE PAGE REG $10 TO INDEX EACH PAGE 116*4381 PP STA- I CURRENTLY BEING WRITTEN 116*4381 PP INA $7F MAX PAGE IN MACHINE 116*4381 PP XFA 1 REG 1 CONTAINS CURRENT PAGE (BITS 0-8)116*4381 PP* AND PAGE REG (BITS 10-15) 116*4381 PP ENA $5F TOTAL NO. OF PAGES = 96 ($60) 116*4381 PP* FROM PAGE 127 TO 31 (ALL LOCATIONS 116*4381 PP* ABOVE PHYSICAL $FFFF) 116*4381 PP XFA 2 116*4381 PP LDA* LOC0 DATA TO WRITE IN REG A ($18FF) 116*4381 PPNXTPGE EQU NXTPGE(*) REPEAT 116*4381 PP WPR 1 WRITE CURRENT PAGE IN PAGE REG $10 116*4381 PP LR3* H7FF TOTAL NO. OF LOCATIONS IN ONE 116*4381 PP* PAGE = $800 (2K) 116*4381 PP LDQ- I 116*4381 PP ADQ- LPMSK+11 REG Q CONTAINS THE LOGICAL ADDRESS 116*4381 PP* OF LOCATIONS IN PAGE, LAST LOC=$7FF 116*4381 PPNXTLOC EQU NXTLOC(*) REPEAT 116*4381 PP STA- (ZERO),Q WRITE 16 BIT DATA 116*4381 PP SPB 0 SET PROTECT BIT TO ONE 116*4381 PP INQ -1 DECREMENT LOGICAL ADDRESS BY ONE 116*4381 PP D3P *-NXTLOC UNTIL ALL LOCATIONS IN A PAGE WERE 116*4381 PP* WRITTEN ENDREPEAT 116*4381 PP SB1- LPMSK+1 DECREMENT PAGE NUMBER BY ONE 116*4381 PP D2P *-NXTPGE UNTIL ALL 96 PAGES HAS BEEN WRITTEN 116*4381 PP* ENDREPEAT 116*4381 PP SPE 0 CLEAR PARITY ERRORS WHICH MIGHT BE 116*4381 PP* CAUSED BY WRITING INTO NON-EXISTING 116*4381 PP* MEMORY 116*4381 PP SPC 5 116*4381 PP* 116*4381 PP* FILL PAGE REGS 16-31 WITH 16-31 SUCH THAT PHYSICAL 116*4381 PP* ADDRESS = LOGICAL ADDRESS F3R LOWEST 65K OF MEMORY 116*4381 PP* 116*4381 PP APM 0 116*4381 PP ENQ 15 116*4381 PP LDA =N$8010 116*4381 PPSETUP1 WPR A 116*4381 PP ADD =N$0801 116*4381 PP DQP *-SETUP1 116*4381 PP INS/ 209 PPSPBLP0 EQU SPBLP0(*) 116*4381 PP DEL/ 217 PP SAN CLRPB1 SKIP IF AN MP 116*4381 PP JMP* NOTMP 116*4381 PPCLRPB1 EQU CLRPB1(*) 116*4381 PP LDA* ACCP CURRENT CONTROL POINT 116*4381 PP EOR- LPMSK+15 116*4381 PP SAN CLRPBT SKIP IF TIMESHARE SYSTEM 116*4381 PP JMP* NOTTS 116*4381 PP* 116*4381 PP*----- SPECIAL INSTRUCTION ON SETTING UPPER AND 116*4381 PP*----- LOWER BOUND REGISTERS 116*4381 PP* (1) SET UPPER BOUND REGISTER TO ZERO -- 116*4381 PP* TURN OFF BOUNDS 116*4381 PP* (2) SET LOWER BOUND REGISTER, AND 116*4381 PP* (3) SET UPPER BOUND REGISTER. 116*4381 PP* 116*4381 PPCLRPBT IIN 0 DISABLE INTERRUPT 116*4381 PP ENA 0 116*4381 PP NUM $0BC0 116*4381 PP LDA- LOCORE 116*4381 PP STA LBPROT 116*4381 PP NUM $0BC1 116*4381 PP LDA- HICORE 116*4381 PP STA UBPROT 116*4381 PP NUM $0BC0 116*4381 PP LDA- LOCORE GET LOW CORE DATA AND SET FOR LOWER 116*4381 PP ENQ 1 BOUND REGISTER DATA FOR TABLE 116*4381 PP STA LOBDTB,Q LEVEL -1, 0 AND 1 LOWER BOUND REGISTER116*4381 PP EQU LOBDAD(*-1) TABLE 116*4381 PP STA* (LOBDAD) INITIALIZATION 116*4381 PP ENQ -1 116*4381 PP STA* (LOBDAD),Q 116*4381 PP LDA- HICORE GET HI-CORE DATA 116*4381 PP ENQ 1 INITIALIZE LEVEL -1, 0 AND 1 UPPER 116*4381 PP STA UPBDTB,Q BOUND REGISTER DATA TABLE 116*4381 PP EQU UPBDAD(*-1) 116*4381 PP STA* (UPBDAD) 116*4381 PP ENQ -1 116*4381 PP STA* (UPBDAD),Q 116*4381 PPNOTTS EQU NOTTS(*) 116*4381 PP INS/ 258 PPLOC0 ADC $18FF 116*4381 PPH7FF NUM $7FF CONSTANT 116*4381 PPDUMMY DCK/ I,H PPDSBUFR DCK/ I,H PPDCOSY DCK/ I,H PP DEL/ 1 PP NAM DCOSY DECK-ID M34 MSOS 5.0 SUMMARY-114 PP DEL/ 328,334 PP* SIX CARDS DELETED 114*4282 PP DEL/ 337,348 PP* 114*4282 PP* DETERMINE IF SHORT READ/COSY RECORDS COMPRESSED FROM CARD114*4282 PP* SOURCE SO NO SHORT READ IF .LT. 40 WORDS REQUESTED 114*4282 PP* AND IF .GT. 40 WORDS REQUESTED ALWAYS GIVE AT LEAST 114*4282 PP* (BLANK PADDED IN BBUF) 114*4282 PP* 114*4282 PP LDA- NWORDS,I 114*4282 PP INA -41 114*4282 PP LDQ- ELSTWD,I ECCOR.EQ.ELSTWD IF.LE.40 WORDS REQSTD 114*4282 PP SAM COMP3 114*4282 PP LDA- HOLPTR,I 114*4282 PP LDQ- HOLLR,I 114*4282 PP SQP COMP1 114*4282 PP INA 1 114*4282 PPCOMP1 TRA Q 114*4282 PP SUB- ECCOR,I 114*4282 PP INA -40 114*4282 PP SAP COMP3 ECCOR.EQ.HOLPTR IF.GE.40 WORDS READ 114*4282 PP LDQ- ECCOR,I 114*4282 PP INQ 40 ECCOR.EQ.ECCOR+40 IF.LT.40 WORDS READ 114*4282 PPCOMP3 STQ- ECCOR,I 114*4282 PP INQ -1 114*4282 PP* 114*4282 PP* CHECK TO SEE IF SEQ. NUMS TO BE ADDED 114*4282 PP* 114*4282 PP LDA- NWORDS,I 114*4282 PP INA -40 114*4282 PP SAZ COMP5 ADD SEQ. NUMS ON 40 WORD REQUESTS 114*4282 PP INA -1 114*4282 PP SAN COMP ADD ON 41 WORD REQ. FOR FTN 114*4282 PPCOMP5 RTJ WRITEI 114*4282 PPCOMP2 EQU COMP2(*) 114*4282 PPCOMP4 EQU COMP4(*) 114*4282 PPCOMP RTJ+ MAKEQ 114*4282 PP DEL/ 358,361 PP LDA- EREQST,I SET ERROR BIT FOR MAKQ 114*4282 PP EOR- BIT14 114*4282 PP STA- EREQST,I 114*4282 PP RTJ* RESET CLEAR PROCESS FLAGS 114*4282 PP DEL/ 434 PP RTJ PLUGPT DEVICE PHYSTB 114*4282 PP DEL/ 461,470 PP* NINE CARDS DELETED 114*4282 PPDMTSIM DCK/ I,H PPLIBEDT DCK/ I,H PP DEL/ 1 PP NAM LIBEDT DECK-ID M35 MSOS 5.0 SUMMARY-122 PP DEL/ 196 PP SAM ADRX0 113*4252 PP JMP* CBDERR KILL THE LOADER'S REQUEST 113*4252 PPADRX0 EQU ADRX0(*) 113*4252 PP INS/ 210 PP ENA -0 113*4252 PP JMP* CBDER1 113*4252 PP INS/ 211 PPCBDER1 EQU CBDER1(*) 113*4252 PP INS/ 644 PP ENQ 6 113*4251 PP LDA* (IOTAD),Q PICK UP CONTROL STATEMENT LU 113*4251 PP ENQ 2 113*4251 PP EOR* (IOTAD),Q COMPARE WITH INPUT LU 113*4251 PP AND- LPMASK+10 MASK OFF UPPER BITS 113*4251 PP SAN DOREAD NOT SAME UNITS, READ NEXT STATEMENT 113*4251 PP DEL/ 1529 PPFSTCP1 LDA- H0800 SET TO NOT LINK TO PRESET TABLE 120*4677 PP INS/ 1875 PP STA- NOWLB,I SAVE LENGTH 113*4235 PP DEL/ 2469,2470 PPNBEK6 ENQ OPN2AD WRITE SECTOR TO M.S. 113*4249 PP ENA 3 113*4249 PP DEL/ 2626 PPRDN LDA* FSTREC 113*4250 PP SAN RDNX 113*4250 PP JMP* FSTRC 113*4250 PPRDNX LDA (INBFAD+PGMREL) 113*4250 PP DEL/ 2639 PP SAN NEXO 113*4250 PP DEL/ 2644,2646 PP* 3 CARDS DELETED 113*4250 PP DEL/ 4981 PP LDA- $F6 TOP OF UNPROTECTED 122*4805 PP SUB- $ED COMPARE LENTH TO CLEAR 122*4805 PP INS/ 5978 PP*********************************************************** 113*4249 PP SPC 2 113*4249 PP EQU OPN2AD(*-READIN) 113*4249 PP EJT 113*4249 PP* THIS SUBROUTINE WRITES ONE SECTOR TO MASS STORAGE 113*4249 PP* 113*4249 PPOPNEW2 0 0 113*4249 PP LDA INBFAD+RINREL 113*4249 PP STA* ADK2 BEGINNING ADDRESS OF BUFFER 113*4249 PP LDQ- SICID,I 113*4249 PP RTJ JKILL+RINREL 113*4249 PP LDQ- 1,Q 113*4249 PP STQ* SECK2+1 ADDRESS OF SECTOR 113*4249 PP LDA IOTAB+1+RINREL 113*4249 PP STA* NWK2-1 113*4249 PP RAO UNPIO SET UNPIO SWITCH 113*4249 PP RTJ- ($F4) PERFORM WRITE 113*4249 PP NUM $4C00 113*4249 PPCPXK2 NUM 0,0,0 113*4249 PPNWK2 NUM 96 113*4249 PPADK2 NUM 0 113*4249 PPSECK2 NUM 0,0 113*4249 PPSECKA2 LDA* CPXK2+1 COMPLETION LOOP 113*4249 PP SAZ SUNNY2 113*4249 PP JMP* SECKA2 113*4249 PPSUNNY2 RTJ SWAPCK CLEAR UNPIO SWITCH 113*4249 PP JMP* (OPNEW2) 113*4249 PPLOAD1 DCK/ I,H PPBRNCH1 DCK/ I,H PPLIDRV1 DCK/ I,H PPLCDRV1 DCK/ I,H PPLMDRV1 DCK/ I,H PPLLDRV1 DCK/ I,H PPADJOF1 DCK/ I,H PPCNVRT1 DCK/ I,H PPLSTOT1 DCK/ I,H PPLINK11 DCK/ I,H PPLOADR1 DCK/ I,H PP DEL/ 1 PP NAM LOADR1 DECK-ID M46 MSOS 5.0 SUMMARY-116 PP INS/ 9 PP EXT* PG2KRD *PAGE PROCESSOR 116*4371 PP DEL/ 73 PP DEL/ 107 PP* 116*4371 PP* CHECK FOR SPECIAL *PAGE MODE LOADING 116*4371 PP* '*PAGE' ROUNDS CURRENT 'P' COUNT UP TO A MULTIPLE 116*4371 PP* OF 2K SIZE (2048 WORDS). 116*4371 PP* 116*4371 PP SPC 3 116*4371 PPSW1F LDA- INPUT,I IS THIS RECORD A '*PAGE' 116*4371 PP SUB =A*P CHECK ONLY *P. IF IT IS A 116*4371 PP SAN SW1F1 *P, THEN LET 'PG2KRD' CHECK THE REST. 116*4371 PP RTJ PG2KRD PROCESS *PAGE COMMAND 116*4371 PPSW1F1 LDA- CSQLIM,I 116*4371 PPNAMPR1 DCK/ I,H PPRBDBZ1 DCK/ I,H PPENTEX1 DCK/ I,H PPXFRPR1 DCK/ I,H PPSTBASE DCK/ I,H PPLNKENT DCK/ I,H PPLNKCR1 DCK/ I,H PPPATCH DCK/ I,H PPTBSCH1 DCK/ I,H PPHASH DCK/ I,H PPTBSTR1 DCK/ I,H PPPAGE DCK/ I,H PPPROGLD DCK/ I,H PPSCAN1 DCK/ I,H PPCHPU1 DCK/ I,H PPADJOV2 DCK/ I,H PPADRPR1 DCK/ I,H PPJOBENT DCK/ I,H PP DEL/ 1 PP NAM JOBENT DECK-ID M64 MSOS 5.0 SUMMARY-116 PP INS/ 30 PP EXT BATCLU (TRVEC) 116*4366 PP EXT NUMLU 116*4366 PP INS/ 40 PP EQU AMONI($F4),ADISP($EA) 116*4366 PP EQU TEN($46) 116*4366 PP EQU H00FF($A) 116*4366 PP INS/ 145 PPABATCL STA+ BATCLU SET BATCH CONTROL STATEMENT LU = SYS. 116*4366 PP* CONTROL LU 116*4366 PP LDA- 3,I 116*4366 PP INA 0 116*4366 PP SAN JOB070 SENSE LU SPECIFIED 116*4366 PP JMP* JOB130 GO PROCESS *BATCH 116*4366 PPJOB070 LDA- 5,I 116*4366 PP LDQ- 4,I 116*4366 PP LRS 8 116*4366 PP INA 0 116*4366 PP SAZ JOB080 SENSE 2 DIGITS OR LESS 116*4366 PP JMP* JP05ER 116*4366 PPJOB080 TRQ A 116*4366 PP INA 0 (PREVIOUS SIGN EXTENSION WILL RESULT 116*4366 PP* IN $FFFF 116*4366 PP SAN JOB082 SENSE 2 DIGITS 116*4366 PP LDQ- 3,I 116*4366 PP LRS 8 116*4366 PP ARS 8 (ADJUST FOR 1 DIGITS) 116*4366 PP EOR =N$3000 116*4366 PP JMP* JOB084 116*4366 PPJOB082 LRS 8 116*4366 PP LDQ- 3,I 116*4366 PP LRS 8 116*4366 PPJOB084 INQ -$2C 116*4366 PP SQZ JOB090 SENSE DELIMITER A COMMA 116*4366 PP JMP* JP05ER 116*4366 PPF1 ADC FILE1 116*4366 PPJB1 ADC T7 116*4366 PPJB2 ADC T11 116*4366 PPJB3 ADC T3 116*4366 PPJB4 ADC T5 116*4366 PPSAVBUF NUM 0 116*4366 PPJOB090 SUB =N$3030 116*4366 PP ENQ 0 116*4366 PP DVI =N$100 116*4366 PP STQ* TEMP1 116*4366 PP MUI- TEN 116*4366 PP ADD* TEMP1 116*4366 PP STA* TEMP1 116*4366 PP INA -2 116*4366 PP SAP JOB110 SENSE LU NOT=1(ALLOVATOR) 116*4366 PPJOB100 JMP* JP05ER 116*4366 PPJOB110 SUB =XNUMLU 116*4366 PP SAP JP05ER SENSE LU .GT. MAX. 116*4366 PP LDA* TEMP1 116*4366 PP STA+ IUP UPDATE CONTROL STATEMENT LU 116*4366 PP STA* (ABATCL+1) SET BATCH CONTROL STATEMENT LU 116*4366 PP JMP* JOB130 116*4366 PP* ERROR STATEMENT AFTER MI 116*4366 PPJP05ER RTJ- (AMONI) OUTPUT JP05 ERROR 116*4366 PPPARMER NUM $0D00 116*4366 PP ADC JOB125-PARMER 116*4366 PP ADC 0,$18FC,2 116*4366 PP ADC JP05-PARMER 116*4366 PP JMP- (ADISP) 116*4366 PPJOB125 CLR A CLEAR MIB TO ALLOW MI 116*4366 PP STA+ MIB 116*4366 PP RTJ- (AMONI) RELEASE JOBENT 116*4366 PP NUM $1901 116*4366 PP ADC (JBENT-*+1) 116*4366 PPJP05 ALF 2,JP05 116*4366 PPTEMP1 NUM 0 116*4366 PPJOB130 LDQ* SAVBUF 116*4366 PP STQ- I 116*4366 PP DEL/ 166,170 PP* 5 CARDS DELETED 116*4366 PP DEL/ 193 PP* 1 CARD DELETED 116*4366 PP DEL/ 222 PP STA LOADEP CLEAR LOADER IN CORE FLAG 116*4366 PP DEL/ 251,253 PP STA RI CLEAR RECOVERY SWITCH 116*4366 PP STA BPS BREAKPOINT SWITCH 116*4366 PP STA LOADEP LOADER FLAG 116*4366 PPT11 DCK/ I,H PPT7 DCK/ I,H PPT5 DCK/ I,H PPT3 DCK/ I,H PPJOBPRO DCK/ I,H PP DEL/ 1 PP NAM JOBPRO DECK-ID M69 MSOS 5.0 SUMMARY-116 PP INS/ 32 PP EXT BATCLU (TRVEC) 116*4366 PP DEL/ 518 PP LDA+ BATCLU BATCH CONTROL STATEMENT LU 116*4366 PPONE DCK/ I,H PPTWO DCK/ I,H PPTHREE DCK/ I,H PPUPROTK DCK/ I,H PP DEL/ 1 PP NAM UPROTK DECK-ID M73 MSOS 5.0 SUMMARY-115 PP DEL/ 290,291 PP ADC 0 COMPLETION 115*4324 PPTHREAD NUM 0 115*4324 PP DEL/ 297 PPCHKTHR LDA* THREAD IF THREAD IS BUSY, HANG 115*4324 PP SAZ GETC 115*4324 PP JMP* CHKTHR 115*4324 PP DEL/ 1060,1061 PP SQN PX01 114*4260 PP INA -1 114*4260 PPBPROTK DCK/ I,H PP DEL/ 1 PP NAM BPROTK DECK-ID M74 MSOS 5.0 SUMMARY-115 PP DEL/ 304,305 PP ADC 0 COMPLETION 115*4324 PPTHREAD NUM 0 115*4324 PP DEL/ 311 PPCHKTHR LDA* THREAD IF THREAD IS BUSY, HANG 115*4324 PP SAZ GETC 115*4324 PP JMP* CHKTHR 115*4324 PP DEL/ 427 PPZ4A ENA 0 TRANSFER TO Z4A OCCURS 115*4273 PP* FOR ALL OCR REQUESTS SO THAT 115*4273 PP* MODIFICATION AND MOVING OF 115*4273 PP* PARAMETER LIST IS BYPASSED 115*4273 PP* FOR OCR REQUESTS 115*4273 PP INS/ 689 PPLWAP1 NUM 0 115*4290 PP DEL/ 712,722 PP LDA- 4,I GET LU 115*4290 PP AND- LPMSK+7 115*4290 PP TRA Q 115*4290 PP LDQ* (LOGTAB+1),Q PHYSTB ADDRESS IN Q 115*4290 PP LDA- 11,Q GET LWA + 1 OF FOREGROUND BUFFER 115*4290 PP SUB- 6,I GET INCREMENT 115*4290 PP ADD- 9,I ADD TO REQUESTOR'S BUFFER ADDRESS 115*4290 PP STA- 11,Q STORE INTO WORD 11 OF PDT 115*4290 PP STA* LWAP1 SAVE LWA + 1 115*4290 PP LDA- 4,I 115*4290 PP ALS 1 CHECK FOR SHORT READ 115*4290 PP SAP CCCP1 115*4290 PP LDA* LWAP1 YES,SHORT READ 115*4290 PP LDQ- 5,I COMPUTE N + S - 1 115*4290 PP ADQ- 6,I 115*4290 PP INQ -1 115*4290 PP STA- (ZERO),Q STORE INTO LWA OF USER'S BUFFER 115*4290 PP DEL/ 782 PPNOTMS JMP Z4A OCR REQUEST 115*4273 PP DEL/ 1198,1199 PP SQN PX01 114*4260 PP INA -1 114*4260 PPJBKILL DCK/ I,H PPJPLOAD DCK/ I,H PPJPCHGE DCK/ I,H PPASCHEX DCK/ I,H PPT13 DCK/ I,H PPJCRDV4 DCK/ I,H PP DEL/ 1 PP NAM JCRDV4 DECK-ID M80 MSOS 5.0 SUMMARY-122 PP DEL/ 91 PPPA3 NUM $0900,0 122*4569 PP DEL/ 100,104 PPPA5 ENA 1 122*4569 PPJLGOV4 DCK/ I,H PPJPFLV4 DCK/ I,H PPJPF2V4 DCK/ I,H PPJPSTV4 DCK/ I,H PPNAMEV4 DCK/ I,H PPRESTOR DCK/ I,H PP DEL/ 1 PP NAM RESTOR DECK-ID M86 MSOS 5.0 SUMMARY-114 PP DEL/ 35,39 PPGOGO1 STQ* SAVEPT SAVE POINTER TO INPUT BUFFER 114*4259 PP INQ 1 INCREMENT POINTER TO BYPASS *R IN 114*4259 PP* FIRST WORD OF BUFFER 114*4259 PP STQ- I PASS POINTER TO ASCHEX 114*4259 PP INS/ 202 PP STA* LEFTF INITIALIZE LEFTF TO SIGNIFY THAT 1ST 114*4259 PP* CHAR IS PICKED UP FROM RIGHT HALF OF 114*4259 PP* WORD (COMMA IS LEFT CHARACTER) 114*4259 PP DEL/ 204,207 PP* 4 CARDS DELETED 114*4259 PP INS/ 208 PP LDA* LEFTF LOAD LEFT CHAR INDICATOR 114*4259 PP DEL/ 209 PP SAZ INCWD-*-1 IS CHAR FROM RIGHT HALF OF WORD 114*4259 PP DEL/ 211,214 PP JMP* SHCHAR SKIP INCREMENT OF WORD COUNT 114*4259 PPINCWD RAO- I INCREASE WORD COUNT BY ONE 114*4259 PPSHCHAR CLR A SHIFT CHAR TO RIGHT 8 BITS OF A 114*4259 PP DEL/ 218,220 PP LDA* LEFTF CHANGE VALUE OF LEFTF (SET=0 FOR 114*4259 PP EOR- ONEBIT CHAR RETRIEVAL FROM RIGHT HALF OF 114*4259 PP STA* LEFTF WORD,=1 FOR CHAR RETRIEVAL FROM LEFT 114*4259 PP* HALF OF WORD) 114*4259 PP INS/ 250 PPLEFTF NUM 0 LEFT CHARACTER INDICATOR 114*4259 PP* (=1 FOR RETRIEVAL OF CHARACTER 114*4259 PP* FROM LEFT HALF OF WORD, =0 FOR 114*4259 PP* RETRIEVAL OF CHARACTER FROM 114*4259 PP* RIGHT HALF OF WORD) 114*4259 PPRCOVER DCK/ I,H PPOUTSEL DCK/ I,H PPRDMPV4 DCK/ I,H PPMASDMP DCK/ I,H PPSETBR1 DCK/ I,H PPTERMI1 DCK/ I,H PPENTCO1 DCK/ I,H PPRESUM1 DCK/ I,H PPPRTRE1 DCK/ I,H PPSETAQ1 DCK/ I,H PPCORDM1 DCK/ I,H PPJUMPR1 DCK/ I,H PPLUCHG1 DCK/ I,H PPBRKPT1 DCK/ I,H PPBPTAP1 DCK/ I,H PPMASDM1 DCK/ I,H PPEFSTOR DCK/ I,H PPEFLIST DCK/ I,H PPMIPRO DCK/ I,H PPODBUG1 DCK/ I,H PP DEL/ 1 PP NAM ODBUG1 DECK-ID N07 MSOS 5.0 SUMMARY-116 PP DEL/ 101 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPGETREQ DCK/ I,H PPLHXREQ DCK/ I,H PPDPCREQ DCK/ I,H PPSCNREQ DCK/ I,H PP DEL/ 1 PP NAM SCNREQ DECK-ID N11 MSOS 5.0 SUMMARY-116 PP DEL/ 46 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPSETREQ DCK/ I,H PPMBCREQ DCK/ I,H PPSCHREQ DCK/ I,H PP DEL/ 1 PP NAM SCHREQ DECK-ID N14 MSOS 5.0 SUMMARY-116 PP DEL/ 26 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPSPEREQ DCK/ I,H PP DEL/ 1 PP NAM SPEREQ DECK-ID N15 MSOS 5.0 SUMMARY-113 PP DEL/ 94,95 PPBMPIDX RAO* SPELOC BUMP INDEX 113*4246 PP JMP* SPE003 DO NEXT CHECK 113*4246 PPCPPREQ DCK/ I,H PPSPPREQ DCK/ I,H PPADHREQ DCK/ I,H PPSBHREQ DCK/ I,H PPALCREQ DCK/ I,H PP DEL/ 1 PP NAM ALCREQ DECK-ID N20 MSOS 5.0 SUMMARY-116 PP DEL/ 41 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPRELREQ DCK/ I,H PPDACREQ DCK/ I,H PP DEL/ 1 PP NAM DACREQ DECK-ID N22 MSOS 5.0 SUMMARY-116 PP DEL/ 47 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPPTHREQ DCK/ I,H PP DEL/ 1 PP NAM PTHREQ DECK-ID N23 MSOS 5.0 SUMMARY-116 PP DEL/ 43 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPMTRREQ DCK/ I,H PP DEL/ 1 PP NAM MTRREQ DECK-ID N24 MSOS 5.0 SUMMARY-116 PP DEL/ 59 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPMSDREQ DCK/ I,H PP DEL/ 1 PP NAM MSDREQ DECK-ID N25 MSOS 5.0 SUMMARY-116 PP DEL/ 68 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPCLUREQ DCK/ I,H PPWCDREQ DCK/ I,H PP DEL/ 1 PP NAM WCDREQ DECK-ID N27 MSOS 5.0 SUMMARY-116 PP DEL/ 57 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPLASREQ DCK/ I,H PPDASREQ DCK/ I,H PP DEL/ 1 PP NAM DASREQ DECK-ID N29 MSOS 5.0 SUMMARY-116 PP DEL/ 50 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPMLUREQ DCK/ I,H PPDPTREQ DCK/ I,H PP DEL/ 1 PP NAM DPTREQ DECK-ID N31 MSOS 5.0 SUMMARY-116 PP DEL/ 47 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPSLDREQ DCK/ I,H PP DEL/ 1 PP NAM SLDREQ DECK-ID N32 MSOS 5.0 SUMMARY-116 PP DEL/ 55 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPCWAREQ DCK/ I,H PP DEL/ 1 PP NAM CWAREQ DECK-ID N33 MSOS 5.0 SUMMARY-116 PP DEL/ 45 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPDMHREQ DCK/ I,H PP DEL/ 1 PP NAM DMHREQ DECK-ID N34 MSOS 5.0 SUMMARY-116 PP DEL/ 54 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPSMNREQ DCK/ I,H PP DEL/ 1 PP NAM SMNREQ DECK-ID N35 MSOS 5.0 SUMMARY-116 PP DEL/ 48 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPSMPREQ DCK/ I,H PP DEL/ 1 PP NAM SMPREQ DECK-ID N36 MSOS 5.0 SUMMARY-116 PP DEL/ 38 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPLSPREQ DCK/ I,H PP DEL/ 1 PP NAM LSPREQ DECK-ID N37 MSOS 5.0 SUMMARY-116 PP DEL/ 46 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPDSPREQ DCK/ I,H PP DEL/ 1 PP NAM DSPREQ DECK-ID N38 MSOS 5.0 SUMMARY-116 PP DEL/ 48 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPDMSREQ DCK/ I,H PP DEL/ 1 PP NAM DMSREQ DECK-ID N39 MSOS 5.0 SUMMARY-116 PP DEL/ 53 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPLSOREQ DCK/ I,H PP DEL/ 1 PP NAM LSOREQ DECK-ID N40 MSOS 5.0 SUMMARY-116 PP DEL/ 61 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPCCCREQ DCK/ I,H PP DEL/ 1 PP NAM CCCREQ DECK-ID N41 MSOS 5.0 SUMMARY-116 PP DEL/ 62 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PP DEL/ 214 PP EOR- (ZERO),I 113*4247 PPCCMREQ DCK/ I,H PP DEL/ 1 PP NAM CCMREQ DECK-ID N42 MSOS 5.0 SUMMARY-116 PP DEL/ 59 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PP DEL/ 183 PP EOR* MMDAT,Q 113*4247 PP DEL/ 186,187 PPCCM32 EQU CCM32(*) 113*4248 PP INS/ 190 PP RAO- I BUMP CORE LOC. BY 1 113*4248 PP RAO* CCMLOC+6 113*4248 PPCMMREQ DCK/ I,H PP DEL/ 1 PP NAM CMMREQ DECK-ID N43 MSOS 5.0 SUMMARY-116 PP DEL/ 69 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PP DEL/ 208 PP EOR BLOCK2,Q 113*4247 PPMMMREQ DCK/ I,H PP DEL/ 1 PP NAM MMMREQ DECK-ID N44 MSOS 5.0 SUMMARY-116 PP DEL/ 56 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPLICREQ DCK/ I,H PP DEL/ 1 PP NAM LICREQ DECK-ID N45 MSOS 5.0 SUMMARY-118 PP DEL/ 57 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PP DEL/ 123 PP SQP LIC4 NO, ERROR 118*4483 PPLIOREQ DCK/ I,H PP DEL/ 1 PP NAM LIOREQ DECK-ID N46 MSOS 5.0 SUMMARY-116 PP DEL/ 51 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPLAMREQ DCK/ I,H PP DEL/ 1 PP NAM LAMREQ DECK-ID N47 MSOS 5.0 SUMMARY-116 PP DEL/ 52 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPDDPREQ DCK/ I,H PP DEL/ 1 PP NAM DDPREQ DECK-ID N48 MSOS 5.0 SUMMARY-116 PP DEL/ 48 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPLDPREQ DCK/ I,H PP DEL/ 1 PP NAM LDPREQ DECK-ID N49 MSOS 5.0 SUMMARY-116 PP DEL/ 45 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPLDOREQ DCK/ I,H PP DEL/ 1 PP NAM LDOREQ DECK-ID N50 MSOS 5.0 SUMMARY-116 PP DEL/ 61 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPDMDREQ DCK/ I,H PP DEL/ 1 PP NAM DMDREQ DECK-ID N51 MSOS 5.0 SUMMARY-116 PP DEL/ 53 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPWDKREQ DCK/ I,H PP DEL/ 1 PP NAM WDKREQ DECK-ID N52 MSOS 5.0 SUMMARY-116 PP DEL/ 62 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPLSTREQ DCK/ I,H PP DEL/ 1 PP NAM LSTREQ DECK-ID N53 MSOS 5.0 SUMMARY-116 PP DEL/ 119 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPPRINT DCK/ I,H PP DEL/ 1 PP NAM PRINT DECK-ID N54 MSOS 5.0 SUMMARY-116 PP DEL/ 62 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPGETFLD DCK/ I,H PPASHX DCK/ I,H PPDMPBUF DCK/ I,H PP DEL/ 1 PP NAM DMPBUF DECK-ID N57 MSOS 5.0 SUMMARY-116 PP DEL/ 52 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPASCDEC DCK/ I,H PPHXAS DCK/ I,H PPDECDMP DCK/ I,H PP DEL/ 1 PP NAM DECDMP DECK-ID N60 MSOS 5.0 SUMMARY-116 PP DEL/ 52 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPFETMM DCK/ I,H PP DEL/ 1 PP NAM FETMM DECK-ID N61 MSOS 5.0 SUMMARY-121 PP DEL/ 97 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PP DEL/ 270,275 PP ADD* FT+3 121*4487 PP SAP F24 SENSE NO OVERFLOW 121*4487 PP INQ 1 121*4487 PP AND- MASK+14 121*4487 PPF24 STA* FT+3 SAVE FINAL MSB,LSB 121*4487 PP DEL/ 322,325 PP LLS 16 121*4487 PPPNTMD DCK/ I,H PP DEL/ 1 PP NAM PNTMD DECK-ID N62 MSOS 5.0 SUMMARY-116 PP DEL/ 57 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPMASOT DCK/ I,H PP DEL/ 1 PP NAM MASOT DECK-ID N63 MSOS 5.0 SUMMARY-116 PP DEL/ 75 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPCONFM DCK/ I,H PP DEL/ 1 PP NAM CONFM DECK-ID N64 MSOS 5.0 SUMMARY-116 PP DEL/ 55 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPGETINT DCK/ I,H PP DEL/ 1 PP NAM GETINT DECK-ID N65 MSOS 5.0 SUMMARY-116 PP DEL/ 88 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPFLCVSG DCK/ I,H PP DEL/ 1 PP NAM FLCVSG DECK-ID N66 MSOS 5.0 SUMMARY-116 PP DEL/ 58 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPFLCVDB DCK/ I,H PP DEL/ 1 PP NAM FLCVDB DECK-ID N67 MSOS 5.0 SUMMARY-116 PP DEL/ 58 PP EQU CHRSLV(7) LEVEL OF THIS PROGRAM 116*4360 PPNAMEMS DCK/ I,H PPDCONV DCK/ I,H PPLAZY2 DCK/ I,H PPODDFLT DCK/ I,H PPODDFTN DCK/ I,H PPECONV DCK/ I,H PPLAZY1 DCK/ I,H PPODFLOT DCK/ I,H PPODFXFL DCK/ I,H PPTDFUNC DCK/ I,H PPSYSCOP DCK/ I,H PPCO1ST DCK/ I,H PPCO2ND DCK/ I,H PPCO3RD DCK/ I,H PPCOLAST DCK/ I,H PPIOUP DCK/ I,H PPIOUPV4 DCK/ I,H PP DEL/ 1 PP NAM IOUPV4 DECK-ID N83 MSOS 5.0 SUMMARY-113 PP DEL/ 1340 PP* VALID REPEAT COUNT 113*4245 PP JMP* (IOS8) VALID EXIT 113*4245 PP DEL/ 1351 PP* 1 CARD DELETED 113*4245 PPCYFT DCK/ I,H PPLCOSY DCK/ I,H PPLISTR DCK/ I,H PPLULIST DCK/ I,H PPOPSORT DCK/ I,H PPDTLP DCK/ I,H PPDSKTAP DCK/ I,H PP DEL/ 1 PP NAM DSKTAP DECK-ID N90 MSOS 5.0 SUMMARY-122 PP DEL/ 28 PPSTART IIN 0 CAUSE PROTECT ERROR IF CALLED AS 122*4841 PP* AN ITOS USER PROGRAM 122*4841 PP RTJ* *+1 122*4841 PP DEL/ 31 PP INA -2 SET UP ABSOLUTE 122*4841 PPDSKEQC DCK/ I,H PPDSKDHX DCK/ I,H PPSPCALL DCK/ I,H PPSPOLY1 DCK/ I,H PPSTPV4 DCK/ I,H PPIERROR DCK/ I,H PPMCTDK DCK/ I,H PPGETPAG DCK/ I,H PPCONPRT DCK/ I,H PPREDCON DCK/ I,H PPCONDEC DCK/ I,H PPORDERM DCK/ I,H PPIREAD DCK/ I,H PPASCOUT DCK/ I,H PPPARAMS DCK/ I,H PPDISKIO DCK/ I,H PPSPOLY2 DCK/ I,H PPSUP DCK/ I,H PPBTOA DCK/ I,H PPISTAT DCK/ I,H PPSCIO DCK/ I,H PPSCRD DCK/ I,H PPICAT DCK/ I,H PPBUFIN DCK/ I,H PPMOVE DCK/ I,H PPSILP DCK/ I,H PPCONTRL DCK/ I,H PP DEL/ 1 PP NAM CONTRL DECK-ID O17 MSOS 5.0 SUMMARY-117 PP DEL/ 1120 PP LDA =N$FFFE SET UPPER BOUND FOR THIS LOAD 117*4319 PP INS/ 1121 PP ADQ* NN ADD NO. PARTITIONS TO START PARTITION 117*4336 PP LDA (PARTBL),Q PICK UP START OF NEXT PARTITION 117*4336 PP DEL/ 1132 PP LDA TEMPEX PICK UP START OF TEMP. EXTERNAL 117*4337 PPILOAD DCK/ I,H PP DEL/ 1 PP NAM ILOAD DECK-ID O18 MSOS 5.0 SUMMARY-118 PP DEL/ 351 PP SAN FUDGE1 SKIP IF NOT -0 117*4319 PP JMP* COMERR ERROR, COMMON DECLARATION TOO BIG 117*4319 PPFUDGE1 JMP* NAMP7 117*4319 PP INS/ 362 PP INA 0 117*4319 PP SAN NAMP6 SKIP IF NOT -0 117*4319 PP DEL/ 398 PPINTRMD INA 0 117*4319 PP SAN FUDGE2 SKIP IF NOT -0 117*4319 PP JMP* NAMP14 117*4319 PPFUDGE2 JMP* NAMP9 117*4319 PP INS/ 457 PP INA 0 117*4319 PP SAN PRTOUT SKIP IF NOT -0 117*4319 PP INS/ 1746 PP STQ* MINFLG INITIALIZE FLAG ADDRESS FOR LEAST 118*4397 PP* REFERENCED PAGE 118*4397 PP INS/ 1785 PP LDA- CSNAME,I CHECK FOR *M OR *MP LOAD 118*4397 PP INA -5 118*4397 PP SAP FC1 SKIP IF *M OR *MP 118*4397 PP LDA- PGENUM,Q 118*4397 PP INS/ 1833 PP SOV 0 118*4397 PPLDRTBL DCK/ I,H PP DEL/ 1 PP NAM LDRTBL DECK-ID O19 MSOS 5.0 SUMMARY-113 PP DEL/ 31,32 PP* TWO CARDS DELETED 113*4253 PP INS/ 69 PP EXT MAXSEC LARGEST SECTOR AVAILABLE TO INIT. 113*4253 PP DEL/ 329 PP LDA =XMAXSEC 113*4253 PP SUB =XREETBL 113*4253 PPI1 DCK/ I,H PPI2 DCK/ I,H PPMDRIV DCK/ I,H PPIDRIV DCK/ I,H PPVERFY1 DCK/ I,H PPSBCONV DCK/ I,H PPSBCCON DCK/ I,H PPCOSY DCK/ I,H PPEESORT DCK/ I,H PPLIBILD DCK/ I,H PPLIBIDO DCK/ I,H PPMESSY DCK/ I,H PPMOVECH DCK/ I,H PPPICKUP DCK/ I,H PPIOSUB DCK/ I,H PPHELPER DCK/ I,H PPHELP14 DCK/ I,H PP DEL/ 1 PP NAM HELP14 DECK-ID O36 MSOS 5.0 SUMMARY-117 PP INS/ 14 PP SAP HLP2 117*4434 PP LDA- $11 LIMIT LENGTH OF $7FFF 117*4434 PPHLP2 EQU HLP2(*) 117*4434 PPLJA2B DCK/ I,H PPCONVRS DCK/ I,H PPHELP0 DCK/ I,H PP DEL/ 2 PP 1 /DECK-ID O39 MSOS 5.0 SUMMARY-117 PP DEL/ 97,98 PPC *************************************************************117*4462 PPC MMADR DENOTES THE MAXIMUM NUMBER OF POINTER BLOCKS +1 PPC USED TO LOCATE SAVED BINARIES ON DISK SCRATCH AREA. EACH PPC BLOCK CONTAINS THE LOCATION OF 16 BINARIES. IF MMADR IS PPC CHANGED, MAXBIN IN HELP10 MUST ALSO BE CHANGED PP MMADR = 129 PPC SET NEXT AVAILABLE ITEM TO 1. PPC *************************************************************117*4462 PPHELP10 DCK/ I,H PP DEL/ 2 PP 1 /DECK-ID O47 MSOS 5.0 SUMMARY-117 PP INS/ 27 PPC *************************************************************117*4462 PPC MAXBIN DENOTES THE MAXIMUM NUMBER OF BINARIES TO BE PPC SAVED. IF MAXBIN IS CHANGED MMADR IN HELP0 MUST ALSO PPC BE CHANGED. PP MAXBIN = 2048 PPC *************************************************************117*4462 PP DEL/ 31 PPC *************************************************************117*4462 PP IF (ITMPTR.LT.1 .OR. ITMPTR.GT.MAXBIN) CALL ERROR4 PPC *************************************************************117*4462 PPHELP1 DCK/ I,H PPHELP2 DCK/ I,H PPHELP3 DCK/ I,H PPHELP4 DCK/ I,H PPHELP5 DCK/ I,H PPHELP8 DCK/ I,H PPHELP9 DCK/ I,H PPHELP10 DCK/ I,H PPHELP11 DCK/ I,H PPHELP12 DCK/ I,H PPHELP13 DCK/ I,H PPSKED DCK/ I,H PPSKFILE DCK/ I,H PPTRACE DCK/ I,H PPSCMEXC DCK/ I,H PP DEL/ 1 PP NAM SCMEXC DECK-ID O54 MSOS 5.0 SUMMARY-117 PP DEL/ 106 PP EQU BLANK($20) ASCII CODE FOR BLANK 117*4464 PP DEL/ 976 PP INA -BLANK CHECK FOR BLANK 117*4464 PP DEL/ 978,980 PP JMP* DEC1 IGNORE BLANK CHARACTERS 117*4464 PPDC3A INA -SLASH+BLANK CHECK FOR A SLASH 117*4464 PP DEL/ 986 PP ENQ -1 ILLEGAL CHARACTER WAS INPUT 117*4464 PP JMP* (GETFLD) SET Q NEG AND RETURN 117*4464 PPCOMMOC DCK/ I,H PP DEL/ 1 PP NAM COMMON DECK-ID O55 MSOS 5.0 SUMMARY-116 PP DEL/ 7 PP SPC 2 116*4382 PP* E N T R Y N A M E 116*4382 PP INS/ 8 PP ENT MP1234 SAVE MP REGISTER DATA IN EXTENDED INT.116*4382 PP ENT UPLOWM SET UP M-REG., UPPER/LOWER BOUND REG. 116*4382 PP SPC 2 116*4382 PP* E X T E R N A L S 116*4382 PP EXT UBPROT CONTAINS UPPER BOUND REGISTER DATA 116*4382 PP EXT LBPROT CONTAINS LOWER BOUND REGISTER DATA 116*4382 PP EXT UPBDTB UPPER BOUND REGISTER DATA TABLE 116*4382 PP EXT LOBDTB LOWER BOUND REGISTER DATA TABLE 116*4382 PP EXT CCP CURRENT CONTROL POINT 116*4382 PP EXT CPSET SET CONTROL POINT ROUTINE 116*4382 PP EXT MPFLAG POINTER TO EXTENDED INTERRUPT STACK 116*4382 PP INS/ 9 PP SPC 2 116*4382 PP* S Y S T E M E Q U I V A L E N C E 116*4382 PP EQU LOC100($2B) LOCATION CONTAINS $100 116*4382 PP EQU INTPRO($F8) CONTAINS INTERNAL INTERRUPT PROCESSOR 116*4382 PP EQU TRAP2(2) INTERRUPT TRAP -- SECOND LOC. OF TRAP 116*4382 PP EQU TRAP3(3) INTERRUPT TRAP -- THIRD LOC. OF TRAP 116*4382 PP EQU XR2(1) EXTENDED INTERRUPT STACK FOR REG. 2 116*4382 PP EQU XR3(2) 3 116*4382 PP EQU XR4(3) 4 116*4382 PP EQU XRCP(4) EXT. INTERRUPT STACK FOR CONTROL POINT116*4382 PP EQU XRL(5) LENGTH OF PER INTERRUPT FOR MP 116*4382 PP* REGISTERS SAVED 116*4382 PP EQU XA(1) NORMAL INTERRUPT SAVE --- A 116*4382 PP EQU XI(2) I 116*4382 PP EQU XR(3) RETURN ADDR.116*4382 PP EQU XPL(4) PRIOR.+OVF 116*4382 PP EQU XL(5) LENGTH OF NORMAL SAVED DATA 116*4382 PP* SIZE/INTERRUPT 116*4382 PP SPC 2 116*4382 PP DEL/ 26,27 PP* 116*4382 PP* FOR MP (CYBER 18 -10, -20, -30) FOUR ADDITIONAL 116*4382 PP* REGISTERS (1,2,3,4) ARE SAVED IN THE 116*4382 PP* INTERRUPT STACK WHICH IS IN 'SYSDAT'. 116*4382 PP* 116*4382 PP SPC 2 116*4382 PP* 116*4382 PP*---- --- P R O G R A M S T A R T ----- 116*4382 PP* 116*4382 PP SPC 2 116*4382 PP DEL/ 34 PP STQ- (LOC100) PUT LINK ADD. BACK IN TRAP(FIRST WORD)116*4382 PP DEL/ 36 PP STQ- (INTPRO) STORE IN 'IPROC' 116*4382 PP INS/ 39 PP SPC 2 116*4382 PP* N O R M A L I N T E R R U P T 116*4382 PP SPC 1 116*4382 PP* 116*4382 PP* SAVE Q, A, I, RETURN ADDRESS, PRIORITY LEVEL+OVF116*4382 PP* AND MP REGISTERS (1,2,3,4). 116*4382 PP* INTERRUPTER STACK POINTERS ARE ADJUSTED. NEW 116*4382 PP* INTERRUPT MASK IS SET ACCORDING TO 116*4382 PP* LEVEL WHICH IS IN THE SECOND WORD 116*4382 PP* OF THE TRAP AREA. CPSET IS CALLED 116*4382 PP* TO SET THE SYSTEM IN ABSOLUTE MODE. 116*4382 PP* CONTROL IS TRANSFERED TO THE PROCESSING 116*4382 PP* ROUTINE. 116*4382 PP* 116*4382 PP SPC 1 116*4382 PP DEL/ 55,62 PP RTJ* MP1234 TO SAVE MP REGISTER DATA 116*4382 PP DEL/ 68 PP LDQ- TRAP2,Q SET NEW 116*4382 PP INS/ 69 PP LDA =XCCP CURRENT CONTROL POINT 116*4382 PP EQU ACCP(*-1) 116*4382 PP EOR- LPMSK+15 116*4382 PP SAZ GETR1 116*4382 PP RTJ* UPLOWM TO SET UP M, UPPER + LOWER BOUNDS 116*4382 PP ENQ 0 116*4382 PP RTJ CPSET SET ABSOLUTE MODE - ENABLES INTERRUPT 116*4382 PP JMP* GETR2 116*4382 PPGETR1 EQU GETR1(*) 116*4382 PP DEL/ 73 PPGETR2 EQU GETR2(*) 116*4382 PP LDQ- TRAP3,I 116*4382 PP INS/ 74 PP SPC 3 116*4382 PP* 116*4382 PP*--- ROUTINE TO SAVE THE MP ENHANCED REGISTERS 116*4382 PP* 116*4382 PP* AT ENTRY : INTERRUPT IS DISABLE 116*4382 PP* 116*4382 PP* ALL MP DATA ARE SAVED IN THE EXTENDED 116*4382 PP* INTERRUPT STACK 116*4382 PP* 116*4382 PP* STACK LOC. DATA 116*4382 PP* ---------- ------------------------ 116*4382 PP* 0 REG. 1 116*4382 PP* 1 REG. 2 116*4382 PP* 2 REG. 3 116*4382 PP* 3 REG. 4 116*4382 PP* 4 CONTROL POINT 116*4382 PP* 116*4382 PPMP1234 NOP 0 ENTRY 116*4382 PP LDQ MPFLAG GET EXTENDED INTERRUPT STACK POINTER 116*4382 PPMPFLAD EQU MPFLAD(*-1) 116*4382 PP SR1- (ZERO),Q SAVE REGISTER 1 116*4382 PP SR2- XR2,Q SAVE REGISTER 2 116*4382 PP SR3- XR3,Q SAVE REGISTER 3 116*4382 PP SR4- XR4,Q SAVE REGISTER 4 116*4382 PP LDA* ACCP CURRENT CONTROL POINT 116*4382 PP EOR- LPMSK+15 116*4382 PP SAZ MPFLD1 116*4382 PP LDA CCP SAVE CURRENT CONTROL POINT 116*4382 PP STA- XRCP,Q 116*4382 PPMPFLD1 INQ XRL BUMP POINTER TO NEXT STACK ENTRY 116*4382 PP STQ* (MPFLAD) SET AS NEW ENTRY 116*4382 PP JMP* (MP1234) RETURN TO CALLER 116*4382 PP SPC 5 116*4382 PP* 116*4382 PP*--- ROUTINE TO SET UP M-REGISTER AND UPPER + 116*4382 PP* LOWER BOUND REGISTERS 116*4382 PP* 116*4382 PP* INTERRUPT MUST BE DISABLE AT ENTRY, AND IT IS116*4382 PP* DISABLED THROUGHOUT THIS SUBROUTINE 116*4382 PP* 116*4382 PP* 116*4382 PP* AT ENTRY : 116*4382 PP* Q = PRIORITY LEVEL 116*4382 PP* 116*4382 PP* IN RETURN : 116*4382 PP* Q = PRIORITY LEVEL 116*4382 PP* M = MASK BY PRIORITY LEVEL 116*4382 PP* UPPER + LOWER BOUNDS 116*4382 PP* 116*4382 PPUPLOWM NOP 0 ENTRY 116*4382 PP* 116*4382 PP*----- SPECIAL INSTRUCTION ON SETTING UPPER AND 116*4382 PP*----- LOWER BOUND REGISTERS 116*4382 PP* (1) SET UPPER BOUND REGISTER TO ZERO -- 116*4382 PP* TURN OFF BOUNDS 116*4382 PP* (2) SET LOWER BOUND REGISTER, AND 116*4382 PP* (3) SET UPPER BOUND REGISTER. 116*4382 PP* 116*4382 PP ENA 0 116*4382 PP LUB A SET UPPER BOUNDS TO ZERO 116*4382 PP LDA LOBDTB,Q SET LOWER BOUND REGISTER DATA 116*4382 PP STA LBPROT SAVE LOWER BOUND REGISTER DATA 116*4382 PP LLB A LOAD LOWER BOUNDS 116*4382 PP LDA UPBDTB,Q SET UPPER BOUND REGISTER DATA 116*4382 PP STA UBPROT SAVE UPPER BOUND REGISTER DATA 116*4382 PP LUB A LOAD UPPER BOUNDS 116*4382 PP LDA- (AMASKT),Q GET MASK AND SET TO M-REG. 116*4382 PP TRA M 116*4382 PP JMP* (UPLOWM) RETURN TO CALLER 116*4382 PPPRTCDC DCK/ I,H PPDCORC DCK/ I,H PP DEL/ 1 PP NAM DCORE DECK-ID O57 MSOS 5.0 SUMMARY-120 PP DEL/ 23,28 PP SPC 2 116*4380 PP* E N T R Y N A M E S 116*4380 PP ENT ICORE CORE ALLOCATOR ENTRY 116*4380 PP ENT ECORE CORE ALLOCATOR DIAGNOSTIC TIMER ENTRY 116*4380 PP ENT T12 RELEASE CORE REQUEST 116*4380 PP ENT STLPV4 116*4380 PP ENT LOOP 116*4380 PP ENT SWAPCK 116*4380 PP SPC 1 116*4380 PP* DATA FLAGS TYPE ENTRY POINTS 116*4380 PP ENT LEND LOC. CONTAINS LWA OF ALLOCATABLE 116*4380 PP ENT SWAPON SWAP-ON SWITCH (NON-ZERO = SWAP) 116*4380 PP ENT OUTPUT PART 1 F-WRITE REQUEST CODE LOC. 116*4380 PP ENT SPACE4 SPACE REQUEST CODE LOC. 116*4380 PP ENT NOG30A READ SWAP BACK REQUEST CODE LOC. 116*4380 PP ENT REL RELEASE REQUEST CODE LOC. 116*4380 PP ENT SCH SCHEDULE SWAP DRIVER REQUEST CODE LOC.116*4380 PP SPC 2 116*4380 PP* E X T E R N A L S 116*4380 PP SPC 2 116*4380 PP INS/ 38 PP EXT CCP CURRENT CONTROL POINT 116*4380 PP SPC 2 116*4380 PP* S Y S T E M E Q U I V A L E N C E S 116*4380 PP SPC 2 116*4380 PP EQU MONIT($F4) LOCATION CONTAINS MONITOR ADD. 116*4380 PP EQU CREXTB($E9) LOCATION CONTAINS CORE EXTENDED TABLE 116*4380 PP INS/ 40 PP EQU AVOLA($BB),AVOLR($BA) 120*4676 PP INS/ 53 PP SPC 2 116*4380 PP* 116*4380 PP****************************************************************116*4380 PP* 116*4380 PP* C O R E A L L O C A T O R D R I V E R 116*4380 PP* 116*4380 PP****************************************************************116*4380 PP* 116*4380 PP SPC 1 116*4380 PP DEL/ 101 PP LDQ- CREXTB IF UNPROTECTED IN PART 1 116*4380 PP DEL/ 131 PP RTJ- (MONIT) START I/O 116*4380 PP DEL/ 142 PP JMP- (ADISP) AND EXIT 116*4380 PP DEL/ 158 PP LDQ- CREXTB IF SWAP INHIBITED, DO NOT 116*4380 PP DEL/ 194 PP RTJ- (MONIT) 116*4380 PP DEL/ 214 PP RTJ- (MONIT) 2 LOOP SO AS TO LOCK OUT 116*4380 PP INS/ 236 PP LDA =XCCP CURRENT CONTROL POINT 116*4380 PP EQU ACCP(*-1) 116*4380 PP EOR- LPMSK+15 116*4380 PP SAN NOG22 SKIP IF TIMESHARE SYSTEM 116*4380 PP DEL/ 246 PP RTJ- (MONIT) SPACE REQUEST 116*4380 PP INS/ 252 PP SPC 1 116*4380 PP* 116*4380 PP******** DATA FLAGS ---- ENTRY POINTS 116*4380 PP* 116*4380 PP SPC 1 116*4380 PP INS/ 254 PP SPC 1 116*4380 PP* 116*4380 PP INS/ 259 PP SPC 2 116*4380 PP******** SUBROUTINE ----- IDLE LOOP 116*4380 PP* 116*4380 PP SPC 1 116*4380 PP DEL/ 275 PP RTJ- (MONIT) READ SWAP AREA BACK 116*4380 PP INS/ 293 PP LDA* ACCP 116*4380 PP EOR- LPMSK+15 116*4380 PP SAN NOG34 SKIP IF TIMESHARE SYSTEM 116*4380 PP INS/ 297 PPNOG34 EQU NOG34(*) 116*4380 PP DEL/ 303 PP EJT 116*4380 PP* 116*4380 PP****************************************************************116*4380 PP* 116*4380 PP* R E L E A S E C O R E --- C O D E 1 2 116*4380 PP* 116*4380 PP****************************************************************116*4380 PP* 116*4380 PP SPC 1 116*4380 PP DEL/ 312 PP AND- ONEBIT OF FIRST WORD OF REQUEST 116*4380 PP DEL/ 352 PPR41 RTJ- (MONIT) 116*4380 PP DEL/ 360,361 PP SPC 2 116*4380 PP* 116*4380 PP******** ALLOCATOR DIAGNOSTIC TIMER ENTRY 116*4380 PP* 116*4380 PP SPC 1 116*4380 PPECORE LDQ* XCORE SET ALLOCATOR BUSY 116*4380 PPREL1 EQU REL1(ECORE) 116*4380 PP DEL/ 375 PP* 1 CARD DELETED 116*4380 PP DEL/ 376,378 PPSWAPCK NUM 0 ENTERED WHEN UNPROTECTED I/O IS 120*4676 PP* COMPLETED 120*4676 PP IIN 0 120*4676 PP RTJ- (AVOLA) 120*4676 PP NUM 4 120*4676 PP LDA* SWAPCK SAVE RETURN 120*4676 PP EIN 0 120*4676 PP STA- 3,I 120*4676 PP DEL/ 387 PP LDA- (CREXTB),Q GET RESIDENCY OF UNPROTECTED FROM 116*4380 PP DEL/ 392 PPSCHA RTJ- (MONIT) 116*4380 PP DEL/ 395,399 PPSWCKEX IIN 0 120*4676 PP LDA- 3,I 120*4676 PP STA* SWAPCK RESTORE RETURN 120*4676 PP RTJ- (AVOLR) 120*4676 PP EIN 0 120*4676 PP JMP* (SWAPCK) 120*4676 PPRDISC DCK/ I,H PP DEL/ 1 PP NAM RDISP DECK-ID O58 MSOS 5.0 SUMMARY-122 PP INS/ 16 PP**** 116*4383 PP* DISPATCHER 116*4383 PP* SCHEDULER 116*4383 PP* ENABLE SCHEDULE 116*4383 PP* DISABLE SCHEDULE 116*4383 PP* REENTRANT FORTRAN VERSION 116*4383 PP* TIMESHARE 3.0 VERSION FOR CYBER MP 116*4383 PP* 116*4383 PP* 116*4383 PP* TIMESHARE PROVISIONS 116*4383 PP* --------- ---------- 116*4383 PP* WHEN A NEW PROGRAM IS PLACED INTO EXECUTION EITHER 116*4383 PP* BY THE DISPATCHER OR BY AN UPWARD SCHEDULE REQUEST 116*4383 PP* THE BOUNDS REGISTERS ARE SET TO VALUES CONTAINED 116*4383 PP* IN THE SYSDAT TABLES UPBDTB AND LOBDTB BY CALLING 116*4383 PP* THE ROUTINE UPLOWM IN COMMON. 116*4383 PP* THE CONTROL POINT IS RESTORED WHEN THE DISPATCHER 116*4383 PP* STARTS EXECUTION OF A PROGRAM FROM THE INTERRUPT 116*4383 PP* STACK. 116*4383 PP* THE CPU IS SET TO ABSOLUTE MODE (CONTROL POINT=0) 116*4383 PP* WHEN THE DISPATCHER STARTS EXECUTION OF A PROGRAM 116*4383 PP* FROM THE SCHEDULER THREAD OR WHEN AN UPWARD 116*4383 PP* SCHEDULER REQUEST IS PROCESSED. 116*4383 PP* 116*4383 PP* 116*4383 PP* 116*4383 PP DEL/ 17,57 PP* ENTRY POINTS 116*4383 PP* ----- ------ 116*4383 PP ENT DISPXX DISPATCHER 116*4383 PP ENT SCHTOP TOP OF SCHEDULER THREAD 116*4383 PP ENT RDISP SAME AS SCHTOP 116*4383 PP ENT T9 SCHEDULE REQUEST PROCESSOR 116*4383 PP ENT T18 SAME AS T9 116*4383 PP ENT T19 ENABLE/DISABLE SCHEDULE REQUEST 116*4383 PP* 116*4383 PP* 116*4383 PP* EXTERNALS 116*4383 PP* --------- 116*4383 PP EXT SYFAIL FATAL ERROR HANG IN SYSDAT 116*4383 PP EXT SCHERR SCHEDULE ERROR ENTRY IN TRVEC 116*4383 PP EXT SCHSTK SCHEDULER STACK 116*4383 PP EXT SCHLNG SCHEDULER STACK LENGTH 116*4383 PP EXT FLIST FORTRAN ENTRY POINT LIST 116*4383 PP EXT FMASK REENTRANT FORTRAN LEVELS MASK 116*4383 PP EXT SAVLU ENTRY IN RW 116*4383 PP EXT CKTHRD ENTRY IN RW 116*4383 PP EXT K65COR ENTRY IN PARTITION CORE DRIVER 116*4383 PP EXT E17811 1781-1 WES 116*4383 PP EXT F17811 1781-1 OPERATING MODE 116*4383 PP EXT CCP CURRENT CONTROL POINT 116*4383 PP EXT CPSET SET CONTROL POINT SUBROUTINE 116*4383 PP EXT MP1234 ROUTINE IN COMMON TO SAVE REGS 116*4383 PP EXT UPLOWM ROUTINE IN COMMON TO LOAD BOUNDS REGS 116*4383 PP EXT MPFLAG EXTENDED INTERRUPT STACK POINTER 116*4383 PP* 116*4383 PP* 116*4383 PP* EQUIVALENCES 116*4383 PP* ------------ 116*4383 PP EQU SV781L($C8) LOCATION TO SAVE 1781-1 REGISTERS 116*4383 PP EQU RCSCHD(9) SCHEDULE REQUEST CODE 116*4383 PP EQU P1SCHD(18) T18 REQUEST CODE 116*4383 PP EQU XA(1) INTERRUPT STACK FOR A 116*4383 PP EQU XI(2) I 116*4383 PP EQU XR(3) RETURN 116*4383 PP EQU XPL(4) PRIORITY LEVEL 116*4383 PP EQU XL(5) LENGTH OF ENTRY ON INTERRUPT STACK 116*4383 PP EQU PC(1) SCHEDULER ENTRY POINTER FOR COMPLETION116*4383 PP EQU PT(2) THREAD 116*4383 PP EQU PQ(3) Q-REG 116*4383 PP EQU VI(2) VOLATILE POINTER 116*4383 PP EQU VR(3) '' 116*4383 PP EQU VPL(4) '' 116*4383 PP EQU VPTR(5) '' 116*4383 PP EQU VTPE(6) '' 116*4383 PP EQU VTMP(7) '' 116*4383 PP EQU VCCP(9) REQUESTOR'S CONTROL POINT NUMBER. 122*4383 PP EQU AVOLA($BB) ALLOCATE VOLATILE 116*4383 PP EQU AVOLR($BA) RELEASE VOLATILE 116*4383 PP EQU PRLVL($EF) CURRENT PRIORITY LEVEL 116*4383 PP EQU TOMPT($B4) TOP OF SCHEDULER EMPTY THREAD 116*4383 PP EQU AREQXT($B9) REQUEST EXIT 116*4383 PP EQU COUNT($B8) TOP OF INTERRUPT STACK 116*4383 PP EQU AMASKT($B7) INTERRUPT MASK TABLE 116*4383 PP EQU FCOM($C5) FORTRAN SCRATCH AREA 116*4383 PP EQU F1($E5-FCOM+1) LENGTH OF FORTRAN SCRATCH AREA 116*4383 PP EQU ASYSDR($EB) SYSTEM DIRECTORY LOCATION POINTER 116*4383 PP EQU COMEXT($104) LINE 1 INTERRUPT TRAP LOCN 116*4383 PP EQU XR2(1) EXTENDED STACK FOR REG 2 116*4383 PP EQU XR3(2) 3 116*4383 PP EQU XR4(3) 4 116*4383 PP EQU XRCP(4) EXTENDED STACK POINTER FOR CONTROL PT 116*4383 PP EQU XRL(5) LENGTH OF ENTRY ON EXTENDED STACK 116*4383 PP EQU LPMSK(2) 116*4383 PP EQU NZERO($12) 116*4383 PP EQU ZERO($22) 116*4383 PP EQU ONEBIT($23) 116*4383 PP EQU M7FFF($11) 116*4383 PP EJT 116*4383 PP**************************************************** 116*4383 PP* DISPATCHER * 116*4383 PP* * 116*4383 PP* RESTORES FORTRAN SCRATCH IF NECESSARY. * 116*4383 PP* REMOVES HIGHEST PRIORITY PROGRAM TO EXECUTE * 116*4383 PP* NEXT FROM THE INTERRUPT STACK OR SCHEDULER * 116*4383 PP* STACK AND PLACES IN EXECUTION. * 116*4383 PP* BOUNDS REGISTERS ARE LOADED. * 116*4383 PP* THE CONTROL POINT IS SET. * 116*4383 PP**************************************************** 116*4383 PPSCHTOP NUM -0 TOP OF SCHEDULER STACK 116*4383 PPRDISP EQU RDISP(SCHTOP) 116*4383 PP SPC 4 116*4383 PPDISPXX CLR Q 122*4383 PP RTJ+ CPSET PUT MACHINE INTO ABSOLUTE MODE. 122*4383 PP RTJ RESRTN RESTORE FORTRAN SCRATCH IF REQUIRED. 122*4383 PP INS/ 77 PP* RESTORE CONTROL POINT 116*4383 PP DEL/ 79,82 PPRESINT LDQ MPFLAG RESTORE CONTROL POINT 122*4383 PP INQ -XRL 116*4383 PP LDA- XRCP,Q CONTROL POINT FROM STACK 116*4383 PP TRA Q 116*4383 PP SUB (ACCP) CURRENT CONTROL POINT 122*4383 PP SAZ CPSTOK SKIP IF NO CHANGE REQUIRED 116*4383 PP RTJ CPSET SET NEW CONTROL POINT 116*4383 PP IIN 0 116*4383 PPCPSTOK LDQ- COUNT 116*4383 PP INQ -XL 116*4383 PP LDA- XR,Q SET RETURN LOCATION 122*4383 PP DEL/ 94,100 PP LDQ MPFLAG RESTORE REGISTERS 1,2,3,4 116*4383 PP DEL/ 102,105 PP LR4- XR4,Q 116*4383 PP LR3- XR3,Q 116*4383 PP LR2- XR2,Q 116*4383 PP LR1- (ZERO),Q 116*4383 PP DEL/ 107,108 PP LDQ- PRLVL GET NEW PRIORITY LEVEL 116*4383 PP RTJ UPLOWM SET BOUNDS AND M-REG 116*4383 PP LDQ- COUNT 122*4383 PP LDA- XA,Q RESTORE A 116*4383 PP LDQ- (COUNT) RESTORE Q 116*4383 PP DEL/ 113 PPSCHSTC TRM Q PRIORITY LEVEL TO Q 122*4383 PP DEL/ 115,116 PP RTJ UPLOWM SET BOUNDS REGISTERS AND M-REG 116*4383 PP DEL/ 157,169 PP EJT 116*4383 PP**************************************************** 116*4383 PP* SCHEDULER * 116*4383 PP* * 116*4383 PP* RC=9, RC=18 * 116*4383 PP* IF THE REQUEST IS FOR THE CURRENTLY * 116*4383 PP* EXECUTING PRIORITY LEVEL OR LOWER IT IS * 116*4383 PP* THREADED ON THE SCHEDULER STACK IN ORDER * 116*4383 PP* OF PRIORITY LEVEL. * 116*4383 PP* IF THE REQUEST IS FOR A PRIORITY LEVEL * 116*4383 PP* HIGHER THAN CURRENTLY EXECUTING THE * 116*4383 PP* CURRENTLY EXECUTING PROGRAM IS PLACED ON * 116*4383 PP* THE INTERRUPT STACK AND THE NEW REQUEST * 116*4383 PP* IS PLACED INTO IMMEDIATE EXECUTION. * 116*4383 PP* IF THE REQUEST IS FOR A MASS MEMORY * 116*4383 PP* RESIDENT SYSTEM DIRECTORY PROGRAM THE * 116*4383 PP* REQUEST IS THREADED EITHER TO THE CORE * 116*4383 PP* DRIVER OR THE PARTITION CORE DRIVER. * 116*4383 PP* * 116*4383 PP* ENTRY * 116*4383 PP* A-REG = PARAMETER LIST LOCATION * 116*4383 PP**************************************************** 116*4383 PP DEL/ 339,343 PP**************************************************** 116*4383 PP* ENABLE SCHEDULE * 116*4383 PP* DISABLE SCHEDULE * 116*4383 PP* * 116*4383 PP* RC=18, RC=19 * 116*4383 PP* ENABLE/DISABLE SCHEDULING OF SYSTEM * 116*4383 PP* DIRECTORY PROGRAMS. * 116*4383 PP* * 116*4383 PP* ENTRY * 116*4383 PP* A-REG = PARAMETER LIST LOCATION * 116*4383 PP**************************************************** 116*4383 PPT19 TRA Q 116*4383 PP DEL/ 369,375 PP EJT PP**************************************************** 116*4383 PP* HILVL * 116*4383 PP* * 116*4383 PP* STACKS CURRENTLY EXECUTING PROGRAM * 116*4383 PP* ON THE INTERRUPT STACK AND PLACES NEW * 116*4383 PP* REQUEST INTO IMMEDIATE EXECUTION. * 116*4383 PP* BOUNDS REGISTERS ARE LOADED. * 116*4383 PP* 122*4383 PP* 122*4383 PP* THIS ROUTINE IS ENTERED WITH THE MACHINE IN ABSOLUTE 122*4383 PP* MODE. ABSOLUTE MODE WAS SET ON ENTRY TO THE MONITOR. 122*4383 PP* THE REQUESTOR'S CONTROL POINT NUMBER IS IN WORD 122*4383 PP* VCCP OF VOLATILE STORAGE. 122*4383 PP* 122*4383 PP* I = BASE ADDRESS OF VOLATILE ASSIGNED AT MONITOR ENTRY. 122*4383 PP**************************************************** 116*4383 PP DEL/ 387,395 PP RTJ MP1234 SAVE REGISTERS 1,2,3,4 AND CONTROL PT 116*4383 PP DEL/ 398,399 PP RTJ UPLOWM LOAD BOUNDS REGISTERS AND M-REG 116*4383 PP DEL/ 400 PP DEL/ 404 PP* 1 CARD DELETED 122*4383 PP DEL/ 436,442 PPACCP ADC CCP ADDRESS OF CURRENT CONTROL POINT. 122*4383 PP EJT PP**************************************************** 116*4383 PP* SAVE * 116*4383 PP* * 116*4383 PP* SAVE FORTRAN SCRATCH AND ENTRY POINT LIST * 116*4383 PP* IN VOLATILE IF NEW PRIORITY LEVEL IS A * 116*4383 PP* REENTRANT FORTRAN LEVEL AND NEW PRIORITY * 116*4383 PP* LEVEL IS HIGHER THAN THE LAST SAVED * 116*4383 PP* PRIORITY LEVEL. * 116*4383 PP* * 116*4383 PP* ENTRY * 116*4383 PP* I-REG= NEW TOP OF SCHEDULER THREAD * 116*4383 PP* EXIT * 116*4383 PP* I-REG RESTORED * 116*4383 PP**************************************************** 116*4383 PP DEL/ 505,507 PPFTOP NUM -1 PTR TO LAST SAVED SCRATCH AREA IN VOL 116*4383 PPFLEVEL NUM -1 LAST SAVED PRIORITY LEVEL 116*4383 PPALIST ADC FLIST FORTRAN ENTRY POINT LIST ADDRESS 116*4383 PPAFMASK ADC FMASK ADDRESS OF FORTRAN MASK 116*4383 PPTEMP ADC 0 116*4383 PP EJT PP**************************************************** 116*4383 PP* RESRTN * 116*4383 PP* * 116*4383 PP* RESTORE FORTRAN SCRATCH AND ENTRY POINTS * 116*4383 PP**************************************************** 116*4383 PPNDISC DCK/ I,H PP DEL/ 1 PP NAM NDISP DECK-ID O59 MSOS 5.0 SUMMARY-117 PP INS/ 6 PP**** 117*4427 PP* DISPATCHER 117*4427 PP* SCHEDULER 117*4427 PP* ENABLE SCHEDULE 117*4427 PP* DISABLE SCHEDULE 117*4427 PP* NON-FORTRAN VERSION 117*4427 PP* TIMESHARE 3.0 VERSION FOR CYBER MP 117*4427 PP* 117*4427 PP* 117*4427 PP* TIMESHARE PROVISIONS 117*4427 PP* --------- ---------- 117*4427 PP* WHEN A NEW PROGRAM IS PLACED INTO EXECUTION EITHER 117*4427 PP* BY THE DISPATCHER OR BY AN UPWARD SCHEDULE REQUEST 117*4427 PP* THE BOUNDS REGISTERS ARE SET TO VALUES CONTAINED 117*4427 PP* IN THE SYSDAT TABLES UPBDTB AND LOBDTB BY CALLING 117*4427 PP* THE ROUTINE UPLOWM IN COMMON. 117*4427 PP* THE CONTROL POINT IS RESTORED WHEN THE DISPATCHER 117*4427 PP* STARTS EXECUTION OF A PROGRAM FROM THE INTERRUPT 117*4427 PP* STACK. 117*4427 PP* THE CPU IS SET TO ABSOLUTE MODE (CONTROL POINT=0) 117*4427 PP* WHEN THE DISPATCHER STARTS EXECUTION OF A PROGRAM 117*4427 PP* FROM THE SCHEDULER THREAD OR WHEN AN UPWARD 117*4427 PP* SCHEDULER REQUEST IS PROCESSED. 117*4427 PP* 117*4427 PP* 117*4427 PP* 117*4427 PP DEL/ 7,44 PP* ENTRY POINTS 117*4427 PP* ----- ------ 117*4427 PP ENT DISPXX DISPATCHER 117*4427 PP ENT SCHTOP TOP OF SCHEDULER THREAD 117*4427 PP ENT NDISP SAME AS SCHTOP 117*4427 PP ENT T9 SCHEDULE REQUEST PROCESSOR 117*4427 PP ENT T18 SAME AS T9 117*4427 PP ENT T19 ENABLE/DISABLE SCHEDULE REQUEST 117*4427 PP* 117*4427 PP* 117*4427 PP* EXTERNALS 117*4427 PP* --------- 117*4427 PP EXT SYFAIL FATAL ERROR HANG IN SYSDAT 117*4427 PP EXT SCHERR SCHEDULE ERROR ENTRY IN TRVEC 117*4427 PP EXT SCHSTK SCHEDULER STACK 117*4427 PP EXT SCHLNG SCHEDULER STACK LENGTH 117*4427 PP EXT SAVLU ENTRY IN RW 117*4427 PP EXT CKTHRD ENTRY IN RW 117*4427 PP EXT K65COR ENTRY IN PARTITION CORE DRIVER 117*4427 PP EXT E17811 1781-1 WES 117*4427 PP EXT F17811 1781-1 OPERATING MODE 117*4427 PP EXT CCP CURRENT CONTROL POINT 117*4427 PP EXT CPSET SET CONTROL POINT SUBROUTINE 117*4427 PP EXT MP1234 ROUTINE IN COMMON TO SAVE REGS 117*4427 PP EXT UPLOWM ROUTINE IN COMMON TO LOAD BOUNDS REGS 117*4427 PP EXT MPFLAG EXTENDED INTERRUPT STACK POINTER 117*4427 PP* 117*4427 PP* 117*4427 PP* EQUIVALENCES 117*4427 PP* ------------ 117*4427 PP EQU SV781L($C8) LOCATION TO SAVE 1781-1 REGISTERS 117*4427 PP EQU RCSCHD(9) SCHEDULE REQUEST CODE 117*4427 PP EQU P1SCHD(18) T18 REQUEST CODE 117*4427 PP EQU XA(1) INTERRUPT STACK FOR A 117*4427 PP EQU XI(2) I 117*4427 PP EQU XR(3) RETURN 117*4427 PP EQU XPL(4) PRIORITY LEVEL 117*4427 PP EQU XL(5) LENGTH OF ENTRY ON INTERRUPT STACK 117*4427 PP EQU PC(1) SCHEDULER ENTRY POINTER FOR COMPLETION117*4427 PP EQU PT(2) THREAD 117*4427 PP EQU PQ(3) Q-REG 117*4427 PP EQU VI(2) VOLATILE POINTER 117*4427 PP EQU VR(3) VOLATILE POINTER 117*4427 PP EQU VPL(4) VOLATILE POINTER 117*4427 PP EQU VPTR(5) VOLATILE POINTER 117*4427 PP EQU VTPE(6) VOLATILE POINTER 117*4427 PP EQU VTMP(7) VOLATILE POINTER 117*4427 PP EQU AVOLA($BB) ALLOCATE VOLATILE 117*4427 PP EQU AVOLR($BA) RELEASE VOLATILE 117*4427 PP EQU PRLVL($EF) CURRENT PRIORITY LEVEL 117*4427 PP EQU TOMPT($B4) TOP OF SCHEDULER EMPTY THREAD 117*4427 PP EQU AREQXT($B9) REQUEST EXIT 117*4427 PP EQU CONT($B8) TOP OF INTERRUPT STACK 117*4427 PP EQU AMASKT($B7) INTERRUPT MASK TABLE 117*4427 PP EQU ASYSDR($EB) SYSTEM DIRECTORY LOCATION POINTER 117*4427 PP EQU COMEXT($104) LINE 1 INTERRUPT TRAP LOCN 117*4427 PP EQU XR2(1) EXTENDED STACK FOR REG 2 117*4427 PP EQU XR3(2) 3 117*4427 PP EQU XR4(3) 4 117*4427 PP EQU XRCP(4) EXTENDED STACK POINTER FOR CONTROL PT 117*4427 PP EQU XRL(5) LENGTH OF ENTRY ON EXTENDED STACK 117*4427 PP EQU LPMSK(2) 117*4427 PP EQU NZERO($12) 117*4427 PP EQU ZERO($22) 117*4427 PP EQU ONEBIT($23) 117*4427 PP EQU M7FFF($11) 117*4427 PP EJT 117*4427 PP**************************************************** 117*4427 PP* DISPATCHER * 117*4427 PP* * 117*4427 PP* REMOVES HIGHEST PRIORITY PROGRAM TO EXECUTE * 117*4427 PP* NEXT FROM THE INTERRUPT STACK OR SCHEDULER * 117*4427 PP* STACK AND PLACES IN EXECUTION. * 117*4427 PP* BOUNDS REGISTERS ARE LOADED. * 117*4427 PP* THE CONTROL POINT IS SET. * 117*4427 PP**************************************************** 117*4427 PPSCHTOP NUM -0 TOP OF SCHEDULER STACK 117*4427 PPNDISP EQU NDISP(SCHTOP) 117*4427 PP SPC 4 117*4427 PP INS/ 63 PP* RESTORE CONTROL POINT 117*4427 PP DEL/ 65 PPRESINT LDA* CHK1+1 TEST FOR TS SYSTEM 117*4427 PP EOR- M7FFF 117*4427 PP SAZ NOTS1 117*4427 PP LDQ MPFLAG RESTORE CONTROL POINT 117*4427 PP INQ -XRL 117*4427 PP LDA- XRCP,Q CONTROL POINT FROM STACK 117*4427 PP TRA Q 117*4427 PPCHK1 SUB CCP CURRENT CONTROL POINT 117*4427 PP SAZ CPSTOK SKIP IF NO CHANGE REQUIRED 117*4427 PP RTJ CPSET SET NEW CONTROL POINT 117*4427 PP IIN 0 117*4427 PPCPSTOK LDQ- CONT 117*4427 PP INQ -XL 117*4427 PPNOTS1 LDA- XR,Q SET RETURN LOCATION 117*4427 PP DEL/ 77,83 PP LDQ MPFLAG RESTORE REGISTERS 1,2,3,4 117*4427 PP DEL/ 85,88 PP LR4- XR4,Q RESTORE REGISTER 4 117*4427 PP LR3- XR3,Q RESTORE REGISTER 3 117*4427 PP LR2- XR2,Q RESTORE REGISTER 2 117*4427 PP LR1- (ZERO),Q RESTORE REGISTER 1 117*4427 PP DEL/ 91 PP LDQ- PRLVL GET NEW PRIORITY LEVEL 117*4427 PP LDA* CHK1+1 TEST FOR TS SYSTEM 117*4427 PP EOR- M7FFF 117*4427 PP SAZ NOTS2 117*4427 PP RTJ UPLOWM SET BOUNDS AND M-REG 117*4427 PP JMP* COM2 117*4427 PPNOTS2 LDQ- (AMASKT),Q SET M REGISTER 117*4427 PP TRQ M 117*4427 PPCOM2 LDQ- CONT 117*4427 PP LDA- XA,Q RESTORE A 117*4427 PP LDQ- (CONT) RESTORE Q 117*4427 PP INS/ 94 PP* SET CPU IN ABSOLUTE MODE 117*4427 PP DEL/ 96 PPSCHSTC LDA* CHK1+1 TEST FOR TS SYSTEM 117*4427 PP EOR- M7FFF 117*4427 PP SAZ NOTS3 117*4427 PP ENQ 0 117*4427 PP RTJ CPSET SET ABSOLUTE MODE 117*4427 PP IIN 0 117*4427 PP TRM Q PRIORITY LEVEL TO Q 117*4427 PP DEL/ 98,100 PP RTJ UPLOWM SET BOUNDS REGISTERS AND M-REG 117*4427 PP JMP* COM3 117*4427 PPNOTS3 IIN 0 117*4427 PP TRM Q 117*4427 PP STQ- PRLVL SET PRIORITY LEVEL 117*4427 PP LDA- (AMASKT),Q 117*4427 PP TRA M SET MASK 117*4427 PPCOM3 LDQ* SCHTOP STORE NEW POINTER 117*4427 PP DEL/ 137,151 PP**************************************************** 117*4427 PP* SCHEDULER * 117*4427 PP* * 117*4427 PP* RC=9, RC=18 * 117*4427 PP* IF THE REQUEST IS FOR THE CURRENTLY * 117*4427 PP* EXECUTING PRIORITY LEVEL OR LOWER IT IS * 117*4427 PP* THREADED ON THE SCHEDULER STACK IN ORDER * 117*4427 PP* OF PRIORITY LEVEL. * 117*4427 PP* IF THE REQUEST IS FOR A PRIORITY LEVEL * 117*4427 PP* HIGHER THAN CURRENTLY EXECUTING THE * 117*4427 PP* CURRENTLY EXECUTING PROGRAM IS PLACED ON * 117*4427 PP* THE INTERRUPT STACK AND THE NEW REQUEST * 117*4427 PP* IS PLACED INTO IMMEDIATE EXECUTION. * 117*4427 PP* IF THE REQUEST IS FOR A MASS MEMORY * 117*4427 PP* RESIDENT SYSTEM DIRECTORY PROGRAM THE * 117*4427 PP* REQUEST IS THREADED EITHER TO THE CORE * 117*4427 PP* DRIVER OR THE PARTITION CORE DRIVER. * 117*4427 PP* * 117*4427 PP* ENTRY * 117*4427 PP* A-REG = PARAMETER LIST LOCATION * 117*4427 PP**************************************************** 117*4427 PP DEL/ 327,331 PP**************************************************** 117*4427 PP* ENABLE SCHEDULE * 117*4427 PP* DISABLE SCHEDULE * 117*4427 PP* * 117*4427 PP* RC=18, RC=19 * 117*4427 PP* ENABLE/DISABLE SCHEDULING OF SYSTEM * 117*4427 PP* DIRECTORY PROGRAMS. * 117*4427 PP* * 117*4427 PP* ENTRY * 117*4427 PP* A-REG = PARAMETER LIST LOCATION * 117*4427 PP**************************************************** 117*4427 PPT19 TRA Q 117*4427 PP DEL/ 358,361 PP**************************************************** 117*4427 PP* HILVL * 117*4427 PP* * 117*4427 PP* STACKS CURRENTLY EXECUTING PROGRAM * 117*4427 PP* ON THE INTERRUPT STACK AND PLACES NEW * 117*4427 PP* REQUEST INTO IMMEDIATE EXECUTION. * 117*4427 PP* BOUNDS REGISTERS ARE LOADED. * 117*4427 PP* SET CPU IN ABSOLUTE MODE * 117*4427 PP**************************************************** 117*4427 PP DEL/ 391 PP LDQ- CONT 117*4427 PP DEL/ 399,410 PP STQ- CONT SET NEW BASE 117*4427 PP RTJ MP1234 SAVE REGISTERS 1,2,3,4 AND CONTROL PT 117*4427 PP LDQ- VPL,I PRIORITY LEVEL 117*4427 PP STQ- PRLVL 117*4427 PP LDA CHK1+1 TEST FOR TS SYSTEM 117*4427 PP EOR- M7FFF 117*4427 PP SAZ LODPL 117*4427 PP RTJ UPLOWM LOAD BOUNDS REGISTERS AND M-REG 117*4427 PP ENQ 0 117*4427 PP RTJ CPSET SET ABSOLUTE MODE - ENABLES INTERRUPTS117*4427 PP JMP* COM4 117*4427 PPLODPL EQU LODPL(*) 117*4427 PP INS/ 412 PPCOM4 IIN 0 117*4427 PPUPROTC DCK/ I,H PP DEL/ 1 PP NAM UPROTK DECK-ID O60 MSOS 5.0 SUMMARY-120 PP DEL/ 6,7 PP SPC 2 116*4384 PP* E X T E R N A L S 116*4384 PP SPC 1 116*4384 PP EXT SYFAIL SYSTEM FAIL ROUTINE 116*4384 PP EXT CCP CURRENT CONTROL POINT 116*4384 PP EXT CPSET SET CONTROL POINT 116*4384 PP EXT UPBDTB UPPER BOUND REGISTER DATA TABLE 116*4384 PP EXT LOBDTB LOWER BOUND REGISTER DATA TABLE 116*4384 PP EXT UBPROT CONTAINS UPPER BOUND REGISTER DATA 116*4384 PP EXT LBPROT CONTAINS LOWER BOUND REGISTER DATA 116*4384 PP INS/ 28 PP SPC 2 116*4384 PP* S Y S T E M E Q U I V A L E N C E S 116*4384 PP SPC 1 116*4384 PP DEL/ 34,35 PP EQU XR2(1) EXTENDED INTERRUPT STACK FOR REG. 2 116*4384 PP EQU XR3(2) 3 116*4384 PP EQU XR4(3) 4 116*4384 PP EQU XRCP(4) EXTENDED INT. STACK FOR CONTROL PT. 116*4384 PP EQU XRL(5) LENGTH OF PER INTERRUPT FOR MP 116*4384 PP* REGISTERS SAVED 116*4384 PP EQU REL($10) FOR ENH. INSTR. ASSEMBLE BYTE, REL. 116*4384 PP EQU STGREF($04) F0 + F1 (STR RG 116*4384 PP EQU LR($C0) F4 + F5 116*4384 PP EQU SR($C1) F4 + F5 116*4384 PP EQU EXTCRB($E9) CONTAINS EXTENDED CORE TABLE ADDRESS 116*4384 PP EQU MONIT($F4) MONITOR 116*4384 PP INS/ 78 PP* ** IN TEMPORARY LOCAL LOCATIONS ** 116*4384 PP LDA =XCCP CURRENT CONTROL POINT 116*4384 PP EQU ACCP(*-1) 116*4384 PP EOR- LPMSK+15 116*4384 PP SAN IPROC2 SKIP IF TIMESHARE SYSTEM 116*4384 PP JMP* NORML1 116*4384 PPIPROC2 EQU IPROC2(*) 116*4384 PP LDA* (UPPER) GET AND SAVE UPPER AND LOWER BOUND 116*4384 PP STA SAVUB REGISTERS DATA 116*4384 PP LDA* (LOWER) 116*4384 PP STA SAVLB 116*4384 PP LDA* (ACCP) SAVE CURRENT CONTROL POINT 116*4384 PP STA SAVCP 116*4384 PPNORML1 EQU NORML1(*) 116*4384 PP DEL/ 86 PP LDQ- (EXTCRB) 65K MODE SWITCH, 65K=1 116*4384 PP DEL/ 92 PPK32 STA SAVPR 116*4384 PP DEL/ 95 PP JMP- (DISP) SET - GO AWAY 116*4384 PP INS/ 96 PP STA CNOTEX SAVE ADDRESS OF RETURN TO UNPROTECTED120*4611 PP DEL/ 97 PP LDQ- (EXTCRB) 65K MODE SWITCH, 65K = 1 116*4384 PP INS/ 107 PP LDA* ACCP CURRENT CONTROL POINT 116*4384 PP EOR- LPMSK+15 116*4384 PP SAZ MS1 116*4384 PP* 116*4384 PP*----- SPECIAL INSTRUCTION ON SETTING UPPER AND 116*4384 PP*----- LOWER BOUND REGISTERS 116*4384 PP* (1) SET UPPER BOUND REGISTER TO ZERO -- 116*4384 PP* TURN OFF BOUNDS 116*4384 PP* (2) SET LOWER BOUND REGISTER, AND 116*4384 PP* (3) SET UPPER BOUND REGISTER. 116*4384 PP* 116*4384 PP ENA 0 116*4384 PP NUM $0BC0 116*4384 PP LDA LOBDTB,Q SET LOWER BOUND REGISTER DATA 116*4384 PP STA LBPROT SAVE LOWER BOUND REGISTER DATA 116*4384 PP NUM $0BC1 (ENH. INSTR. LLB A) 116*4384 PP LDA UPBDTB,Q SET UPPER BOUND REGISTER DATA 116*4384 PP STA UBPROT SAVE UPPER BOUND REGISTER DATA 116*4384 PP NUM $0BC0 (ENH. INSTR. LUB A) 116*4384 PPMS1 EQU MS1(*) 116*4384 PP DEL/ 153 PPA1A JMP F ABORT THE JOB 116*4384 PP DEL/ 171 PP SPC 1 116*4384 PP* 116*4384 PPUPPER ADC UBPROT LOC. CONTAINS UPPER BOUND DATA ADD. 116*4384 PPLOWER ADC LBPROT LOWER 116*4384 PP* 116*4384 PP SPC 1 116*4384 PPA4 LDQ- EXTCRB SET ADDRESS OF CORE EXTENDED TABLE 116*4384 PP DEL/ 225,228 PPSAVR1 NUM 0 TEMP. LOC. FOR REGISTER 1 DATA 116*4384 PPSAVR2 NUM 0 2 116*4384 PPSAVR3 NUM 0 3 116*4384 PPSAVR4 NUM 0 4 116*4384 PPSAVUB NUM 0 UPPER BOUND REG. DATA 116*4384 PPSAVLB NUM 0 LOWER 116*4384 PPSAVCP NUM 0 CURRENT CONTROL POINT 116*4384 PP DEL/ 260,262 PP SQN B3 120*4611 PP LDA CNOTEX 120*4611 PPB3 ADD- ONEBIT+15 RESTORE OVERFLOW 120*4611 PP DEL/ 264 PP* FROM LOCAL STORAGE 116*4384 PP INS/ 268 PP LDA ACCP CURRENT CONTROL POINT 116*4384 PP EOR- LPMSK+15 116*4384 PP SAN B5 116*4384 PP JMP* LODQ 116*4384 PPB5 EQU B5(*) 116*4384 PP LDA* SAVUB RESTORE UPPER + LOWER BOUND REGISTERS 116*4384 PP STA* (UPPER) 116*4384 PP NUM $0BC0 116*4384 PP LDA* SAVLB 116*4384 PP STA* (LOWER) 116*4384 PP NUM $0BC1 116*4384 PP LDQ* SAVCP RESTORE CONTROL POINT 116*4384 PP RTJ CPSET 116*4384 PP SQP LODQ OK, SKIP 116*4384 PP RTJ SYFAIL ****SYSTEM FAIL***********************116*4384 PP DEL/ 311,312 PP ADC 0 COMPLETION 115*4324 PPTHREAD NUM 0 115*4324 PP DEL/ 318 PPCHKTHR LDA* THREAD IF THREAD IS BUSY, HANG 115*4324 PP SAZ GETC 115*4324 PP JMP* CHKTHR 115*4324 PP DEL/ 337 PP STA (PTR),Q SET CALLER THREAD NON ZERO 120*4611 PP DEL/ 352 PPX1 LDQ PTR 116*4384 PP DEL/ 486,487 PP SAZ G27 INT.TRAP 120*4611 PPG26 LDA CNOTEX FOR 32K SAVE OV AND UNPRO. RETURN 120*4611 PP DEL/ 489 PPG27 ADD PTRS 120*4611 PP DEL/ 491 PP STA CNOTEX RETURN TO UNPRO. TO MAKE THE 120*4611 PP DEL/ 546 PP ADD =XCCPPPP-G8 116*4384 PP DEL/ 630 PPCCPPPP TRA Q POINTER TO STACK IN Q 116*4384 PP DEL/ 777 PPH4 LDA* CNOTEX 120*4611 PP DEL/ 780 PP STA* CNOTEX 120*4611 PP DEL/ 794 PP LDA* CNOTEX 120*4611 PP DEL/ 800,802 PP LDQ MPFLAG SET EXTENDED INTERRUPT STACK POINTER 116*4384 PPMPFLAD EQU MPFLAD(*-1) 116*4384 PP LDA SAVR1 GET ALL MP REGISTERS DATA FROM LOCAL 116*4384 PP STA- (ZERO),Q STORAGE AND SAVE IN EXTENDED STACK 116*4384 PP INS/ 808 PP LDA ACCP CURRENT CONTROL POINT 116*4384 PP EOR- LPMSK+15 116*4384 PP SAZ K2 SKIP IF NOT TIMESHARE 116*4384 PP LDA SAVCP MOVE CP FROM LOCAL STORAGE TO STACK 116*4384 PP STA- XRCP,Q 116*4384 PPK2 EQU K2(*) 116*4384 PP DEL/ 810 PP STQ* (MPFLAD) AND SAVE 116*4384 PP INS/ 814 PPCNOTEX NUM 0 ADDRESS OF RETURN TO UNPROTECTED 120*4611 PP DEL/ 871 PP LDA* CNOTEX 120*4611 PP DEL/ 900 PP STQ* CNOTEX RETURN TO UNPROTECTED PROGRAM 120*4611 PP DEL/ 1095,1096 PP SQN PX01 114*4260 PP INA -1 114*4260 PPBPROTC DCK/ I,H PP DEL/ 1 PP NAM BPROTK DECK-ID O61 MSOS 5.0 SUMMARY-120 PP DEL/ 34 PP EQU XR2(1),XR3(2),XR4(3),XRL(5) 120*4594 PP DEL/ 325,326 PP ADC 0 COMPLETION 115*4324 PPTHREAD NUM 0 115*4324 PP DEL/ 332 PPCHKTHR LDA* THREAD IF THREAD IS BUSY, HANG 115*4324 PP SAZ GETC 115*4324 PP JMP* CHKTHR 115*4324 PP DEL/ 448 PPZ4A ENA 0 TRANSFER TO Z4A OCCURS 115*4273 PP* FOR ALL OCR REQUESTS SO THAT 115*4273 PP* MODIFICATION AND MOVING OF 115*4273 PP* PARAMETER LIST IS BYPASSED 115*4273 PP* FOR OCR REQUESTS 115*4273 PP INS/ 710 PPLWAP1 NUM 0 115*4290 PP DEL/ 733,743 PP LDA- 4,I GET LU 115*4290 PP AND- LPMSK+7 115*4290 PP TRA Q 115*4290 PP LDQ* (LOGTAB+1),Q PHYSTB ADDRESS IN Q 115*4290 PP LDA- 11,Q GET LWA + 1 OF FOREGROUND BUFFER 115*4290 PP SUB- 6,I GET INCREMENT 115*4290 PP ADD- 9,I ADD TO REQUESTOR'S BUFFER ADDRESS 115*4290 PP STA- 11,Q STORE INTO WORD 11 OF PDT 115*4290 PP STA* LWAP1 SAVE LWA + 1 115*4290 PP LDA- 4,I 115*4290 PP ALS 1 CHECK FOR SHORT READ 115*4290 PP SAP CCCP1 115*4290 PP LDA* LWAP1 YES,SHORT READ 115*4290 PP LDQ- 5,I COMPUTE N + S - 1 115*4290 PP ADQ- 6,I 115*4290 PP INQ -1 115*4290 PP STA- (ZERO),Q STORE INTO LWA OF USER'S BUFFER 115*4290 PP DEL/ 803 PPNOTMS JMP Z4A OCR REQUEST 115*4273 PP DEL/ 1233,1234 PP SQN PX01 114*4260 PP INA -1 114*4260 PPMIPRC DCK/ I,H PP DEL/ 1 PP NAM MIPRO DECK-ID O62 MSOS 5.0 SUMMARY-116 PP INS/ 80 PP* CLEAR CLEAR ALL FILE MANAGER SPACE 116*4375 PP SPC 1 116*4375 PP* EDTLP EXTENDED DTLP - SAVE/RESTORE MASS MEMORY 116*4375 PP SPC 1 116*4375 PP* FMAP FILE MANAGER FILE MAPPING PROGRAM (TIMESHARE 3) 116*4375 PP SPC 1 116*4375 PP* TSTATS TIMESHARE 3.0 STATUS PROGRAM 116*4375 PP SPC 1 116*4375 PP* SYEXER TIMESHARE 3.0 SYSTEM EXERCISER 116*4375 PP SPC 1 116*4375 PP INS/ 162 PP EXT EDTLP EXTENDED DTLP (SAVE/RESTORE MASS MEM) 116*4375 PP EXT FMAP FILE MANAGER FILE MAPPING PROGRAM. 116*4375 PP EXT TSTATS TIMESHARE 3.0 STATUS PROGRAM. 116*4375 PP EXT SYEXER SYSTEM EXERCISER. 116*4375 PP EXT BEGLU1 FILE SPACE POOL START SECTOR UNIT 1 116*4375 PP EXT BEGLU2 FILE SPACE POOL START SECTOR UNIT 2 116*4375 PP EXT BEGLU3 FILE SPACE POOL START SECTOR UNIT 3 116*4375 PP EXT BEGLU4 FILE SPACE POOL START SECTOR UNIT 4 116*4375 PP EXT BEGLU5 FILE SPACE POOL START SECTOR UNIT 5 116*4375 PP EXT BEGLU6 FILE SPACE POOL START SECTOR UNIT 6 116*4375 PP EXT BEGLU7 FILE SPACE POOL START SECTOR UNIT 7 116*4375 PP EXT BEGLU8 FILE SPACE POOL START SECTOR UNIT 8 116*4375 PP EXT NUMFS0 LENGTH OF FILE SPACE POOL ON UNIT 0 116*4375 PP EXT NUMFS1 LENGTH OF FILE SPACE POOL ON UNIT 1 116*4375 PP EXT NUMFS2 LENGTH OF FILE SPACE POOL ON UNIT 2 116*4375 PP EXT NUMFS3 LENGTH OF FILE SPACE POOL ON UNIT 3 116*4375 PP EXT NUMFS4 LENGTH OF FILE SPACE POOL ON UNIT 4 116*4375 PP EXT NUMFS5 LENGTH OF FILE SPACE POOL ON UNIT 5 116*4375 PP EXT NUMFS6 LENGTH OF FILE SPACE POOL ON UNIT 6 116*4375 PP EXT NUMFS7 LENGTH OF FILE SPACE POOL ON UNIT 7 116*4375 PP EXT NUMFS8 LENGTH OF FILE SPACE POOL ON UNIT 8 116*4375 PP EXT FSLIST BEGINNING ADDRESS OF FILE SPACE LIST. 116*4375 PP DEL/ 174 PPMIPRO NUM $C8FE 116*4375 PP STA LOCMIP SAVE THE FWA OF MIPRO. 116*4375 PP ENA 0 116*4375 PP DEL/ 237 PP SUB MAX ARE WE THROUGH 116*4375 PP DEL/ 301 PP NUM $2407 116*4375 PP DEL/ 331 PP NUM $2406 116*4375 PP INS/ 351 PP SPC 2 116*4375 PP ALF 2,CLEAR CLEAR ALL FILE MANAGER FILE SPACE. 116*4375 PP ADC CLFILE-JMP 116*4375 PP NUM $2404 116*4375 PP NUM $FFFF 116*4375 PP NUM 0 116*4375 PP SPC 2 116*4375 PP ALF 2,EDTLP SAVE/RESTORE MASS MEMORY 116*4375 PP ADC GETIND-JMP 116*4375 PP NUM $2404 116*4375 PP NUM 8 116*4375 PP NUM 0 116*4375 PP SPC 2 116*4375 PP ALF 2,FMAP FILE MAP 116*4375 PP ADC GETIND-JMP 116*4375 PP NUM $2404 116*4375 PP NUM 9 116*4375 PP NUM 0 116*4375 PP SPC 2 116*4375 PP ALF 2,TSTATS TIMESHARE 3.0 STATUS 116*4375 PP ADC GETIND-JMP 116*4375 PP NUM $2407 116*4375 PP NUM 10 116*4375 PP NUM 0 116*4375 PP SPC 2 116*4375 PP ALF 2,SYEXER SYSTEM EXERCISER 116*4375 PP ADC GETIND-JMP 116*4375 PP NUM $2407 116*4375 PP NUM 11 116*4375 PP NUM 0 116*4375 PP INS/ 361 PP ADC EDTLP 8 SAVE/RESTORE MASS MEMORY 116*4375 PP ADC FMAP 9 FILE MAP 116*4375 PP ADC TSTATS 10 TIMESHARE 3.0 STATUS 116*4375 PP ADC SYEXER 11 SYSTEM EXERCISER 116*4375 PP INS/ 467 PP ENA 5 116*4375 PP DEL/ 657 PPREF NUM $0D37 116*4375 PP INS/ 667 PPMSG4 ALF 7,FILES CLEARED 116*4375 PP INS/ 810 PP* ROUTINE TO CLEAR ALL SYSTEM FILES 116*4375 PP SPC 2 116*4375 PPCLFILE LDQ =XFSLIST 116*4375 PP INQ -3 116*4375 PP STQ* CLADR SAVE THE BASE ADDRESS 116*4375 PP ENA 0 116*4375 PP STA- (ZERO),Q CLEAR FIDSEC 116*4375 PP STA- 1,Q CLEAR FIBLSA 116*4375 PP STA- 2,Q CLEAR FIBNIX 116*4375 PP INQ 3 116*4375 PP STQ- I SET UP THE BASE ADDRESS OF FLIST 116*4375 PP ENQ 0 116*4375 PP SPC 1 116*4375 PPCLFIL1 LDA* SECTOR,Q 116*4375 PP STA- 1,I INITIALIZE THE FILE MANAGER TABLE 116*4375 PP ENA 0 116*4375 PP STA- 2,I 116*4375 PP LDA* LENGTH,Q 116*4375 PP STA- 3,I 116*4375 PP LDA- (I) 116*4375 PP ARS 7 LENGTH OF THIS UNIT 116*4375 PP ADD- I 116*4375 PP STA- I POINT TO NEXT UNIT 116*4375 PP LDA- (I) 116*4375 PP INA 0 IS THE LIST COMPLETE 116*4375 PP SAZ CLFIL2 YES 116*4375 PP INQ 1 116*4375 PP JMP* CLFIL1 CONTINUE 116*4375 PP EJT 116*4375 PPCLFIL2 ENA 96 CALCULATE THE WORD ADDRESS OF 116*4375 PP ENQ 4 THE CORE IMAGE 116*4375 PP MUI- ($E9),Q 116*4375 PP LLS 1 116*4375 PP ALS 15 116*4375 PP ADD* CLADR CALCULATE THE ADDRESS OF THE FILE TABL116*4375 PP SAP CLFIL3 IN THE CORE IMAGE 116*4375 PP INQ 1 116*4375 PP AND- LPMSK+15 116*4375 PPCLFIL3 STQ* FLMSB 116*4375 PP SPC 1 116*4375 PP STA* FLLSB SAVE FOR THE TRANSFER 116*4375 PP LDA- I 116*4375 PP SUB* CLADR 116*4375 PP STA* CLLEN LENGTH OF THE TRANSFER 116*4375 PP LDA =XCLFIL4 116*4375 PP ADD* LOCMIP 116*4375 PP STA* CLCOMP STUFF COMPLETION ADDRESS. 116*4375 PP SPC 1 116*4375 PP RTJ- (AMONI) 116*4375 PP ADC $0407 WRITE CLEARED TABLE TO CORE IMAGE 116*4375 PPCLCOMP ADC 0 116*4375 PPCLTHD ADC 0 116*4375 PP ADC $08C2 116*4375 PPCLLEN ADC 0 116*4375 PPCLADR ADC 0 116*4375 PPFLMSB ADC 0 116*4375 PPFLLSB ADC 0 116*4375 PP JMP- (ADISP) 116*4375 PP SPC 1 116*4375 PPCLFIL4 LDA =XMSG4-REF 116*4375 PP JMP STORIT PRINT FILES CLEARED MESSAGE. 116*4375 PPLOCMIP NUM 0 LOCATION OF THE FWA OF MIPRO. 116*4375 PPSECTOR ADC 0 FILE MANAGER SPACE POOL SECTOR TABLE 116*4375 PP ADC BEGLU1 116*4375 PP ADC BEGLU2 116*4375 PP ADC BEGLU3 116*4375 PP ADC BEGLU4 116*4375 PP ADC BEGLU5 116*4375 PP ADC BEGLU6 116*4375 PP ADC BEGLU7 116*4375 PP ADC BEGLU8 116*4375 PPLENGTH ADC NUMFS0 FILE MANAGER SPACE POOL LENGTH TABLE 116*4375 PP ADC NUMFS1 116*4375 PP ADC NUMFS2 116*4375 PP ADC NUMFS3 116*4375 PP ADC NUMFS4 116*4375 PP ADC NUMFS5 116*4375 PP ADC NUMFS6 116*4375 PP ADC NUMFS7 116*4375 PP ADC NUMFS8 116*4375 PPDTLC DCK/ I,H PP DEL/ 1 PP NAM DTLP DECK-ID O63 MSOS 5.0 SUMMARY-122 PP DEL/ 19,22 PP* 4 CARDS DELETED 122*4810 PP DEL/ 25,26 PPDTLP GTFILE G0,NAME-DTLP-1,FWA,,,,0,1,1 122*4810 PP INS/ 28 PPG0 LDA* DTLP+7 122*4810 PP STA* LENGTH SAVE LENGTH OF DSKTAP 122*4810 PP JMP* START 122*4810 PP DEL/ 31 PPCOMPA ADC COMP,0 117*4335 PP INS/ 36 PP ALF *, (J20@)* 122*4810 PP DEL/ 42 PPBUFAD ADC MESS1 117*4335 PP DEL/ 55,56 PPMOVCHK LDA* LENGTH GET LENGTH OF DSKTAP 122*4810 PP ADD* WORDB1 122*4810 PP STA* WORDB0 SAVE LWA OF DSKTAP 122*4810 PP DEL/ 58 PP SAM BANK1 122*4810 PP JMP* BANK0 JUMP IF FILE IS ALL IN BANK0 122*4810 PP DEL/ 63,64 PP SUB* LENGTH FORM NEW FWA 122*4810 PP STA- I NEW FWA IN I-REG 122*4810 PP ENQ $20 122*4810 PPMMOVE LDA* MOVEDN,Q MOVE THE MOVE ROUTINE TO LOW CORE 122*4810 PP STA- ($22),Q 122*4810 PP INQ -1 122*4810 PP SQM MOVEM 122*4810 PP JMP* MMOVE 122*4810 PPMOVEM JMP- ($22) 122*4810 PP DEL/ 67 PP LDA* LENGTH 122*4810 PP DEL/ 83 PP LDA* LENGTH 122*4810 PP DEL/ 92 PPWORDB0 ADC 0 LAST WORD ADDRESS OF DSKTAP FILE 122*4810 PPLENGTH NUM 0 LENGTH OF DSKTAP FILE 122*4810 PP DEL/ 94 PP* 1 CARD DELETED 122*4810 PP DEL/ 99 PPS2 SUB* LENGTH 122*4810 PP DEL/ 124 PP ADC G1 122*4810 PP DEL/ 127 PPMESAD ADC MESS 117*4335 PP INS/ 133 PPFWA EQU FWA(*) 122*4810 PPSILC DCK/ I,H PP DEL/ 1 PP NAM SILP DECK-ID O64 MSOS 5.0 SUMMARY-122 PP DEL/ 27,31 PP* 5 CARDS DELETED 122*4810 PP DEL/ 33,34 PPSILP GTFILE G0,NAME-SILP-1,FWA,,,,0,1,1 122*4810 PP INS/ 36 PPG0 LDA* SILP+7 122*4810 PP STA* LENGTH SAVE LENGTH OF SI FILE 122*4810 PP JMP* S1 122*4810 PP DEL/ 43 PPMS2AD ADC MESS2 117*4334 PP INS/ 45 PP ALF *, (J20@)* 122*4810 PP DEL/ 49 PPCOMPA ADC COMP1 117*4334 PP DEL/ 52 PPBUFAD ADC MESS2 117*4334 PP DEL/ 60,61 PPMOVCHK LDA* LENGTH GET LENGTH OF SI FILE 122*4810 PP ADD* WORDB1 122*4810 PP STA* WORDB0 SAVE LWA OF SI FILE 122*4810 PP DEL/ 63 PP SAM BANK1 122*4810 PP JMP* BANK0 JUMP IF FILE IS ALL IN BANK0 122*4810 PP DEL/ 68,69 PP SUB* LENGTH FORM NEW FWA 122*4810 PP STA- I NEW FWA IN I-REG 122*4810 PP ENQ $20 122*4810 PPMMOVE LDA* MOVEDN,Q MOVE THE MOVE ROUTINE TO LOW CORE 122*4810 PP STA- ($22),Q 122*4810 PP INQ -1 122*4810 PP SQM MOVEM 122*4810 PP JMP* MMOVE 122*4810 PPMOVEM JMP- ($22) 122*4810 PP DEL/ 72 PP LDA* LENGTH 122*4810 PP DEL/ 88 PP LDA* LENGTH 122*4810 PP DEL/ 98 PPWORDB0 ADC 0 LAST WORD ADDRESS OF SI FILE 122*4810 PPLENGTH NUM 0 LENGTH OF SI FILE 122*4810 PP DEL/ 100 PP* 1 CARD DELETED 122*4810 PP DEL/ 105 PPS2 SUB* LENGTH 122*4810 PP DEL/ 130 PP ADC G1 122*4810 PP DEL/ 134 PPMESAD ADC MESS1 117*4334 PP INS/ 141 PPFWA EQU FWA(*) 122*4810 PPTSPO69 DCK/ I,H PP DEL/ 1 PP NAM PG2KRD DECK-ID O69 MSOS 5.0 SUMMARY-116 PP INS/ 4 PP SPC 2 116*4421 PP* PAGE LOADING (ROUND OFF 2K) 116*4421 PP SPC 2 116*4421 PP* 116*4421 PP* ROUTINE TO CHECK FOR PAGE LOADING, ROUND OFF 116*4421 PP* 2K (2048 WORDS) 116*4421 PP* NOTED THAT ROUND OFF IS BASED ON STARTING 116*4421 PP* ADDRESS ORIGIN 116*4421 PP* 116*4421 PP* CONTROL STATEMENT IS '*PAGE', AND IT IS 116*4421 PP* INTERMIXED WITH BINARY DECKS 116*4421 PP* 116*4421 PP* 116*4421 PP* OUTPUT MESSAGE : 116*4421 PP* 116*4421 PP* *PAGE LLLL 116*4421 PP* WHERE LLLL = STARTING LOCATION OF THE 116*4421 PP* ROUNDOFF 116*4421 PP SPC 2 116*4421 PP* 116*4421 PP* AT ENTRY : 116*4421 PP* I-REGISTER = LOADER TABLE ADDRESS 116*4421 PP* 116*4421 PP* EXIT CONDITION : 116*4421 PP* CALLER REGAINS CONTROL IF NO SPECIAL 116*4421 PP* STATEMENT IS FOUND. I AND Q REGISTERS116*4421 PP* ARE UNCHANGED 116*4421 PP* 116*4421 PP* 'NXTBLK' (ENTRY POINT) OF 'LOADR1' IS GIVEN 116*4421 PP* CONTROL WHEN CONTROL STATEMENT 116*4421 PP* '*PAGE' IS ENCOUNTERED 116*4421 PP* 'PROBAS' AND 'CSQLIM' OF THE LOADER 116*4421 PP* TABLE ARE UPDATED. I-REGISTER IS 116*4421 PP* UNCHANGED. 116*4421 PP* 116*4421 PP SPC 2 116*4421 PP* E N T R Y N A M E 116*4421 PP ENT PG2KRD PAGE MODE LOADING ENTRY 116*4421 PP SPC 1 116*4421 PP* E X T E R N A L 116*4421 PP EXT* NMPRNT TO PRINT NAME AND LOCATION 116*4421 PP SPC 2 116*4421 PP* S Y S T E M E Q U I V A L E N C E S 116*4421 PP* 116*4421 PP SPC 1 116*4421 PP* SYSTEM DEPENDENT VARIABLE 116*4421 PP EQU PAGESZ(2048) SIZE OF A PAGE 116*4421 PP SPC 1 116*4421 PP* LOADER TABLE EQUIVALENCE 116*4421 PP EQU PROBAS(3) PROGRAM BASE LOCATION 116*4421 PP EQU CSQLIM(6) NEXT PROGRAM STARTING LOCATION 116*4421 PP EQU BLANKS(18) 2 SPACE CODES 116*4421 PP EQU NXTINP(63) NEXT BLOCK INPUT ENTRY ADDRESS 116*4421 PP EQU PROGCT(146) PROGRAM LENGTH LOCATION 116*4421 PP EQU INPUT(147) INPUT BINARY DATA BUFFER STARTING 116*4421 PP* LOCATION 116*4421 PP SPC 2 116*4421 PP* 116*4421 PP*----- ----- P R O G R A M S T A R T ----- 116*4421 PP* 116*4421 PP SPC 2 116*4421 PPPG2KRD NOP 0 ENTRY 116*4421 PP LDA- INPUT,I CHECK FOR SPECIAL CONTROL STATEMENT, 116*4421 PP SUB* PAGE '*PAGE' (*P) 116*4421 PP SAN NOSPL NO, SKIP 116*4421 PP LDA- INPUT+1,I 116*4421 PP SUB* PAGE+1 (AG) 116*4421 PP SAN NOSPL NO, SKIP 116*4421 PP LDA- INPUT+2,I 116*4421 PP SUB* PAGE+2 (E ) 116*4421 PP SAZ GETPAG YES, SKIP 116*4421 PP LDA- INPUT+2,I 116*4421 PP SUB* PAGE+3 ($45FF) --- 'E' AND $FF 116*4421 PP SAZ GETPAG YES, SKIP 116*4421 PP* NOT FOUND, RETURN TO CALLER 116*4421 PPNOSPL JMP* (PG2KRD) RETURN TO CALLER 116*4421 PP SPC 3 116*4421 PP* 116*4421 PP* CONTROL STATEMENT --- '*PAGE', ENCOUNTERED 116*4421 PP* GET CURRENT ADDRESS AND INCREMENT UP TO 2K 116*4421 PP* 116*4421 PP* BUT FIRST PRINT ' *PAGE LLLLL' 116*4421 PP* WHERE LLLL = CURRENT LOCATION BEFORE 116*4421 PP* ADJUSTMENT 116*4421 PP* 116*4421 PPGETPAG ENQ 40 FILLED OUTPUT BUFFER WITH SPACE CODE 116*4421 PP LDA- BLANKS,I 116*4421 PPFILSP STA- INPUT,B 116*4421 PP SQZ SETNAM 116*4421 PP INQ -1 116*4421 PP JMP* FILSP 116*4421 PP* 116*4421 PPSETNAM LDA* PAGEMS SET UP '*PAGE' FOR PRINT 116*4421 PP STA- INPUT+3,I 116*4421 PP LDA* PAGEMS+1 116*4421 PP STA- INPUT+4,I 116*4421 PP LDA* PAGEMS+2 116*4421 PP STA- INPUT+5,I 116*4421 PP LDQ =XINPUT+2,I 116*4421 PP LDA- PROBAS,I 116*4421 PP RTJ NMPRNT TO PRINT NAME AND LOCATION 116*4421 PP* 116*4421 PP CLR Q 116*4421 PP LDA- CSQLIM,I 116*4421 PP DVI =XPAGESZ CURRENT TOTAL SIZE / 2K 116*4421 PP EQU SIZE(*-1) 116*4421 PP SQZ SETPAG 116*4421 PP INA 1 ROUND OFF FOR 2K (MULTIPLE OF 2K) 116*4421 PPSETPAG CLR Q 116*4421 PP MUI* SIZE 116*4421 PP STA- PROBAS,I 116*4421 PP STA- CSQLIM,I 116*4421 PP JMP- NXTINP,I TO NEXT BLOCK INPUT 116*4421 PP SPC 2 116*4421 PP* CONTROL STATEMENT 116*4421 PPPAGE ALF 3,*PAGE 116*4421 PP NUM $45FF 'E' AND $FF 116*4421 PPPAGEMS ALF 3, *PAGE 116*4421 PPTSPO70 DCK/ I,H PP DEL/ 1 PP PROGRAM EDTLP PP * /DECK-ID O70 MSOS 5.0 SUMMARY-116 PPC **********************************************************116*4418 PPC SAVE/LOAD DISK PACK PPC PPC PPC EDTLP IS A SAVE/LOAD SMD DISK PACK PROGRAM WHICH EXECUTES PPC AS AN ORDINAL USING MSOS I/O REQUESTS. IT REQUIRES PPC APPROX. 10K WORDS OF FOREGROUND FOR EXECUTION. PPC THE PROGRAM LOGIC CAN BE SEGMENTED INTO 3 PARTS. PPC PPC PART 1 - DETERMINE LAST SECTOR ADDRESSES PPC PPC THIS PART SEARCHES THE FILE MANAGER SPACE POOL FOR PPC AVAILABLE AREA ADJACENT TO END OF POOL FOR PPC EACH FM LOGICAL UNIT. PPC THE DATA(SECTOR ADDRESS,MSOS LU) IS PRINTED AND PPC ALSO SAVED IN ARRAYS INDEXED BY PHYSICAL UNIT(0-7) PPC AND PHYSICAL LOGICAL UNIT(0-7). PPC THE DATA SPECIFIES THE DEFAULT CONDITIONS. THE DEFAULT PPC CONDITIONS WILL BE USED DURING THE SAVE OPERATION PPC TO SPECIFY THE MASS MEMORY TO SAVE. PPC PPC PART 2 - SAVE OPERATION PPC PPC THIS PART PERFORMS THE MM TO MAG TAPE OPERATION. PPC EACH RECORD WRITTEN TO MAG TAPE CONTAINS A PPC HEADER DEFINED AS FOLLOWS. PPC WORD 1 - SEQUENCE NUMBER(1-N) PPC (NEGATIVE SEQUENCE NO. = BAD RECORD) PPC 2 - SECTOR ADDRESS OF THIS RECORD(0-$7FFF) PPC 3 - CHECKSUM PPC 4 - LENGTH OF RECORD NOT INCLUDING HEADER(WORDS) PPC LENGTH=0 INDICATES THE TERMINATE OPERATION REC. PPC 5 - MM PHYSICAL UNIT NUMBER(0-7) PPC 6 - PHYSICAL LOGICAL UNIT(0-7) PPC 7 - MSOS LOGICAL UNIT(1-M) PPC PART 1 CREATES THE DEFAULT LAST SECTOR ADDRESS FOR PPC EACH MSOS LU USED BY THE FILE MANAGER. THE DEFAULT PPC CONDITIONS MAY BE CHANGED AS REQUIRED BY SPECIFYING THE PPC MSOS LOGICAL UNIT AND THE LAST SECTOR ADDRESS TO SAVE. PPC ONE RULE APPLIES TO INPUT- PPC 1 - A SECTOR ADDRESS=0000 MEANS DO NOT SAVE THIS MSOS LU PPC ALL MAG TAPE OUTPUT IS TO MSOS LU = 6. PPC ANY MM ERROR DURING SAVE OPERATION MAY BE IQNORED PPC BY THE OPERATOR BY DEFINING THE RECORD WRITTEN TO MAG TAPE PPC AS A BAD RECORD. THE BAD RECORD IS FLAGED BUT NOT PPC LOADED DURING LOAD OPERATION. PPC END-OF-TAPE LOGIC PROVIDES FOR CHANGING REELS AND PPC REWRITING THE RECORD. PPC MAG TAPE ERRORS TERMINATE THE LOAD. PPC AS EACH LOGICAL UNIT IS PROCESSED,A PRINT-OUT OCCURS PPC IDENTIFYING THE LU AND THE LAST SECTOR ADDRESS SAVED. PPC PPC PART 3 - LOAD OPERATION PPC PPC THIS PART PERFORMS THE MAG TAPE TO MM OPERATION. PPC EACH RECORD IS WRITTEN TO MM PER THE DATA SPECIFIED PPC IN THE HEADER. PPC MAG TAPE ERRORS TERMINATE THE LOAD. PPC END-OF-TAPE LOGIC PROVIDES FOR CHANGING REELS. PPC RECORD SEQUENCE NUMBER CHECKING FLAGS OUT-OF-SEQUENCE PPC RECORDS PROVIDING OPTIONS TO CONTINUE,ABORT OR REREAD TAPE. PPC THE LAST RECORD CONTAINS NO DATA EXCEPT THE TEMINATE PPC OPERATION FLAG. PPC BAD RECORDS,AS MARKED BY THE SAVE OPERATION, ARE FLAGED PPC BY PRINTING THE SECTORS NOT LOADED. PPC MM ERRORS PROVIDE OPTIONS FOR CONTINUING OR ABORTING. PPC AS EACH LOGICAL UNIT IS PROCESSED, A PRINT-OUT OCCURS PPC IDENTIFYING THE LU AND THE LAST SECTOR ADDRESS SAVED. PPC PP DEL/ 5 PP EXTERNAL LOG1A PP EXTERNAL BEGFMS PP EXTERNAL BEGLU1,BEGLU2,BEGLU3,BEGLU4 PP EXTERNAL BEGLU5,BEGLU6,BEGLU7,BEGLU8 PP EXTERNAL BEGLU9,BEGL10,BEGL11,BEGL12 PP EXTERNAL BEGL13,BEGL14,BEGL15,BEGL16 PPC PP RELATIVE DISPAT PP RELATIVE FREAD PP RELATIVE LINK PP RELATIVE LUTENT PP RELATIVE PRTBLK PP RELATIVE Q8QINI PP RELATIVE Q8QEND PP RELATIVE Q8STP PP RELATIVE Q8QX PP RELATIVE SETBFR PPC PP INTEGER BEGSA PP INTEGER BLKSA PP INTEGER BLKTHD PP INTEGER EQTYPE PP INTEGER FSBLK(3) PP EQUIVALENCE (SEQTHD,FSBLK(1)) PP EQUIVALENCE (BLKTHD,FSBLK(2)) PP EQUIVALENCE (SEQLEN,FSBLK(3)) PP INTEGER FSBLKH(3) PP INTEGER ICMADR PP INTEGER IFLAG PP DATA IFLAG/$0044/ PP INTEGER ILINK PP INTEGER ILU PP INTEGER IOBUF(138) PP INTEGER ITEMP(8) PP INTEGER LISTLU PP INTEGER LSA(8,8) PP INTEGER LSAFSP PP INTEGER LSTSAU PP INTEGER LUTCTR PP INTEGER LUTPAR(3) PP EQUIVALENCE (LUTLU,LUTPAR(1)) PP EQUIVALENCE (SAFSPL,LUTPAR(2)) PP EQUIVALENCE (NSAFSP,LUTPAR(3)) PP INTEGER MMPARM(3) PP EQUIVALENCE (BLKSA,MMPARM(3)) PP EQUIVALENCE (SEQSA,MMPARM(3)) PP INTEGER MSOSLU(8,8) PP INTEGER NSAFSP PP INTEGER PHYLU PP INTEGER PHYUNT PP INTEGER SAFSPL PP INTEGER SEQLEN PP INTEGER SEQSA PP INTEGER SEQTHD PP INTEGER SYSTLU PPC PPC PP RELATIVE FWRITE PP RELATIVE CRACK PPC PP INTEGER DATBUF(4) PP EQUIVALENCE (INPLU ,DATBUF(1)) PP EQUIVALENCE (INSA ,DATBUF(2)) PP EQUIVALENCE (INPYUN,DATBUF(3)) PP EQUIVALENCE (INPYLU,DATBUF(4)) PP INTEGER EOTAPE PP INTEGER HEADER(6151) PP EQUIVALENCE (SQCNO,HEADER(1)) PP EQUIVALENCE (SACNT,HEADER(2)) PP INTEGER HLLUCK PP INTEGER INBUF(4) PP INTEGER INLU PP INTEGER INPLU PP INTEGER INPYLU PP INTEGER INPYUN PP INTEGER INSA PP INTEGER IRESPN PP INTEGER MMLU PP INTEGER MMREC(3) PP INTEGER MTLU PP INTEGER NSECTR PP DATA NSECTR/64/ PP INTEGER REC(6144) PP EQUIVALENCE (REC(1),HEADER(8)) PP INTEGER RECLEN PP DATA RECLEN/6144/ PP INTEGER SA PP INTEGER SACNT PP INTEGER SQCNO PP INTEGER SQCNUM PP INTEGER TOTLEN PP DATA TOTLEN/6151/ PP INTEGER UPPER PP BYTE (UPPER,IRESPN(15=8)) PPC PPC PPC PPC PPC .BEGIN PPC -SET-UP THE LOGICAL UNITS FOR LIST,INPUT,MT PP ASSEM $C0FC,$6800,LISTLU PP ASSEM $C0FD,$6800,INLU PP MTLU = 6 PP CALL SETBFR(IOBUF,138) PPC -PRINT PROGRAM IN COMMENT PP WRITE (LISTLU,9040) PPC -REQUEST OPERATION,LOAD/SAVE PP ASSIGN 50 TO ICMADR PP CALL FREAD(INLU,INBUF,2,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 50 CALL SETBFR(IOBUF,138) PPC .IF SAVE OPERATION PP IF (INBUF(1) .NE. $5341 .OR. INBUF(2) .NE. $5645) GO TO 500 PPC .THEN PPC PPC - DETERMINE LAST SECTOR ADDRESS USED BY PPC FILE MANAGER FOR EACH FM LOGICAL UNIT. PPC PPC --PRINT HEADER PP WRITE (LISTLU,9044) PP WRITE (LISTLU,9000) PPC -CLEAR LSA/MSOSLU ARRAYS PP DO 70 I=1,8 PP DO 70 J=1,8 PP LSA(I,J) = 0 PP MSOSLU(I,J) = 0 PP 70 CONTINUE PPC -INITIALIZE LU TABLE ENTRY COUNTER PP LUTCTR = 0 PPC .WHILE LOGICAL UNIT TABLE ENTRY PP 90 CALL LUTENT(LUTPAR) PP IF (EOR(LUTLU ,$FFFF) .EQ. 0) GO TO 300 PP LUTCTR = LUTCTR + 1 PPC .BEGIN PPC .IF FM NEVER CALLED(OR NOT IN SYSTEM) PP IF (LUTLU .NE. 0) GO TO 96 PPC .THEN FORGET THE WHOLE SHOW PP WRITE (LISTLU,9003) PP GO TO 1000 PPC .IF LU TBL = SYS LU PP 96 ASSEM $C400,$00C2,$6800,SYSTLU PP IF (LUTLU .NE. SYSTLU) GO TO 100 PPC .THEN SET LAST SECTOR = BEGINNING OF SCRATCH PP ASSEM $C400,$00C1,$6800,LSTSAU PPC -SET PHY UNIT/PHY LU = 0 PP ASSEM $E800,LUTLU,$E600,+LOG1A PP ASSEM $C227,$6800,PHYUNT PP PHYLU = 0 PP GO TO 200 PPC .ELSE PPC .BEGIN PP 100 PHYLU = 0 PP ILU = LUTLU PPC .IF ILU = PSEUDO DISK LU PP ASSEM $E800,ILU,$E600,+LOG1A,$C208,$0F44,$A009 PP ASSEM $6800,EQTYPE PP IF (EQTYPE .NE. 72 ) GO TO 110 PPC .THEN PPC -SET PHYLU = SECTOR BIAS PP ASSEM $E800,ILU,$E600,+LOG1A PP ASSEM $C219,$6800,PHYLU PPC -UPDATE ILU WITH LU USED BY PSEUDO DISK PP ASSEM $C213,$6800,ILU PPC .IF ILU = REAL MM LU PP 110 ASSEM $E800,ILU,$E600,+LOG1A PP ASSEM $C208,$0F44,$A009,$6800,EQTYPE PP IF (EQTYPE.NE.70.AND.EQTYPE.NE.69) GO TO 118 PPC .THEN PPC - SET PHYSICAL UNIT PP ASSEM $C227,$6800,PHYUNT PP GO TO 120 PPC .ELSE ERROR PP 118 GO TO 1000 PPC -GET FIRST SECTOR ADDRESS FILE SPACE POOL VIA EXT. TBL. PP 120 ASSEM $E800,LUTCTR,$CA03,$6800,BEGSA,$1812 PP ASSEM +BEGFMS PP ASSEM +BEGLU1,+BEGLU2,+BEGLU3,+BEGLU4 PP ASSEM +BEGLU5,+BEGLU6,+BEGLU7,+BEGLU8 PP ASSEM +BEGLU9,+BEGL10,+BEGL11,+BEGL12 PP ASSEM +BEGL13,+BEGL14,+BEGL15,+BEGL16 PPC -CALC. LAST SECTOR ADDRESS OF FILE SPACE POOL PP LSAFSP = BEGSA - 1 + NSAFSP PPC -INITIALIZE BLOCK THREAD,ETC. PP BLKTHD = SAFSPL PPC .WHILE FILE SPACE BLOCKS PP 124 IF (BLKTHD .EQ. 0 ) GO TO 182 PPC .BEGIN PP MMPARM(1) = 3 PP MMPARM(2) = 0 PP MMPARM(3) = BLKTHD PP ASSIGN 130 TO ICMADR PPC -READ FIRST 3 WDS. OF BLOCK PP CALL FREAD(LUTLU,FSBLK,MMPARM,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 130 CALL SETBFR(IOBUF,138) PPC .IF I/O ERROR PP IF (LINK(0) .GE. 0) GO TO 136 PPC .THEN PP WRITE (LISTLU,9002) PP GO TO 1000 PPC .IF BLOCK IS LAST IN POOL PP 136 IF (BLKSA + SEQLEN -1 .NE. LSAFSP) GO TO 140 PPC .THEN PP GO TO 190 PPC .WHILE SEQMENT PP 140 IF (SEQTHD .EQ. 0 ) GO TO 180 PPC .BEGIN PP MMPARM(1) = 1 PP MMPARM(3) = SEQTHD PP ASSIGN 150 TO ICMADR PPC -READ FIRST WORD OR SEQMENT PP CALL FREAD(LUTLU,FSBLK,MMPARM,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 150 CALL SETBFR(IOBUF,138) PPC .IF I/O ERROR PP IF (LINK(0) .GE. 0) GO TO 160 PPC .THEN PP WRITE(LISTLU,9002) PP GO TO 1000 PPC .IF BLOCK IS LAST IN POOL PP 160 IF (SEQSA + SEQLEN- 1 .NE. LSAFSP) GO TO 170 PPC .THEN PP GO TO 190 PPC .END PP 170 GO TO 140 PPC .END PP 180 GO TO 124 PPC .END PPC - SET LAST SECTOR ADDRESS = LAST IN POOL PP 182 LSTSAU = LSAFSP PP GO TO 200 PPC - SET LAST SA USED PP 190 LSTSAU = SEQSA PPC - PRINT PHY UNIT,MSOS LU,LAST SA PP 200 WRITE (LISTLU,9001) PHYUNT,LUTLU,LSTSAU PPC - SAVE DATA IN ARRAYS PP LSA(PHYUNT+1,PHYLU+1) = LSTSAU PP MSOSLU(PHYUNT+1,PHYLU+1) = LUTLU PP GO TO 90 PPC PPC - SAVE OPERATION LOGIC PPC PPC -REQUEST DEFAULT CHANGES FROM OPERATOR PP 300 WRITE (LISTLU,9010) PP WRITE (LISTLU,9011) PP WRITE (LISTLU,9012) PP WRITE (LISTLU,9013) PP 301 WRITE (LISTLU,9014) PPC -BACKGROUND INPUT BUFFER PP DO 302 I=1,4 PP 302 INBUF(I) = 0 PPC -REQUEST INPUT PP ASSIGN 310 TO ICMADR PP CALL FREAD(INLU,INBUF,4,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 310 CALL SETBFR(IOBUF,138) PPC .IF NO INPUT USE DEFAULT PP IF (INBUF(1) .EQ. 0) GO TO 330 PP CALL CRACK(INBUF,DATBUF) PPC .IF ERROR IN INPUT DATA PP IF (DATBUF(1) .GE. 0) GO TO 320 PPC .THEN PRINT ERROR COMMENT,REQUEST INPUT AGAIN PP IF (DATBUF(1) + 2) 314,315,316 PP 314 WRITE (LISTLU,9017) PP GO TO 301 PP 315 WRITE (LISTLU,9016) PP GO TO 301 PP 316 WRITE (LISTLU,9015) PP GO TO 301 PPC -UPDATE DEFAULT CONDITIONS PP 320 LSA(INPYUN+1,INPYLU+1) = INSA PP MSOSLU(INPYUN+1,INPYLU+1) = INPLU PP GO TO 301 PPC -PRINT TAPE READY COMMENT,WAIT FOR CR PP 330 WRITE (LISTLU,9018) PP ASSIGN 334 TO ICMADR PP CALL FREAD(INLU,INBUF,1,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 334 CALL SETBFR(IOBUF,138) PPC -PRINT HEADER LINE PP WRITE (LISTLU,9031) PPC -NOTE.. ANY INPUT SATISFIES REQUEST PPC PPC --- BEGIN MM TO TAPE LOGIC PPC PPC -INITIALIZE PP SQCNO = 1 PPC .WHILE PHYSICAL UNIT TO PROCESS PP DO 420 I=1,8 PPC .BEGIN PPC .WHILE PHYSICAL LOGICAL UNIT TO PROCESS PP DO 400 J=1,8 PPC .BEGIN PPC -INITIALIZE PP SACNT = 0 PP SA = LSA(I,J) PP HEADER(7) = MSOSLU(I,J) PPC .IF THIS PHYSICAL LOGICAL UNIT TO BE SAVED PP IF (SA .EQ. 0 ) GO TO 400 PPC .THEN PRINT PHY UNIT,MSOS LU,SA PP IQ = I - 1 PP JQ = J - 1 PP WRITE (LISTLU,9032) IQ,HEADER(7),SA PPC .WHILE SECTORS TO SAVE PP 335 IF (SACNT .GT. SA ) GO TO 400 PPC .BEGIN PPC -SET-UP HEADER PP HEADER(4) = RECLEN PP IF (SA - SACNT + 1 .GE. NSECTR) GO TO 336 PP HEADER(4) = (SA -SACNT + 1)*96 PP 336 HEADER(5) = IQ PP HEADER(6) = JQ PPC -READ MM PP MMLU = HEADER(7) PP MMREC(1) = HEADER(4) PP MMREC(2) = 0 PP MMREC(3) = SACNT PP ASSIGN 340 TO ICMADR PP CALL FREAD(MMLU,REC,MMREC,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 340 CALL SETBFR(IOBUF,138) PPC .IF ERROR PP IF (LINK(0) .GE. 0) GO TO 368 PPC .THEN PP WRITE (LISTLU,9020) PP WRITE (LISTLU,9021) SQCNO,SACNT,HEADER(5), PP * HEADER(6),HEADER(7) PPC -REQUEST INPUT(ABORT OR CONTINUE) PP 346 WRITE (LISTLU,9022) PP ASSIGN 350 TO ICMADR PP CALL FREAD(INLU,IRESPN,1,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 350 CALL SETBFR(IOBUF,138) PPC .IF ABORT RESPONSE(A) .THEN EXIT PP IF (UPPER .EQ. $41) GO TO 1000 PPC .IF CONTINUE RESPONSE .THEN CONTINUE PP IF (UPPER .EQ. $43) GO TO 360 PPC .ELSE REREQUEST INPUT PP GO TO 346 PPC -SET NO DATA FLAG IN HEADER PP 360 SQCNO = -SQCNO PPC PPC --- CALC. CHECKSUM HERE PPC PPC -WRITE RECORD TO TAPE PP 368 ASSIGN 370 TO ICMADR PP CALL FWRITE(MTLU,HEADER,TOTLEN,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 370 CALL SETBFR(IOBUF,138) PP ILINK = LINK(0) PPC .IF END-OF-TAPE(BIT 9 WORD 12 OF PHY. DEV. TBL.) PP ASSEM $E800,MTLU,$E600,+LOG1A PP ASSEM $C20C,$0FC6,$6800,EOTAPE PP IF (EOTAPE .GE. 0) GO TO 390 PPC .THEN PRINT END-OF-TAPE COMMENT PP WRITE (LISTLU,9024) PPC -REQUEST INPUT PP ASSIGN 380 TO ICMADR PP CALL FREAD(INLU,IRESPN,1,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 380 CALL SETBFR(IOBUF,138) PPC -REWRITE TAPE PP GO TO 368 PPC .IF ERROR PP 390 IF (ILINK .GE. 0) GO TO 394 PP WRITE (LISTLU,9023) PP GO TO 1000 PPC -RESTORE SEQUENCE NO. PP 394 IF (SQCNO .LT. 0) SQCNO = -SQCNO PPC -BUMP SEQUENCE NO PP SQCNO = SQCNO + 1 PPC -INCREMENT TO NEXT SECTOR ADDRESS PP SACNT = SACNT + NSECTR PPC .END PP GO TO 335 PPC .END PP 400 CONTINUE PPC .END PP 420 CONTINUE PPC -WRITE TERMINATE RECORD TO TAPE PP HEADER(4) = 0 PP ASSIGN 430 TO ICMADR PP CALL FWRITE(MTLU,HEADER,TOTLEN,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 430 CALL SETBFR(IOBUF,138) PPC .IF ERROR PP IF (LINK(0) .GE. 0) GO TO 440 PPC .THEN PP WRITE(LISTLU,9023) PP GO TO 1000 PP 440 CONTINUE PP WRITE (LISTLU,9025) PP GO TO 1000 PPC PPC - LOAD OPERATION LOGIC PPC PPC .IF LOAD OPERATION PP 500 IF (INBUF(1) .NE. $4C4F .OR. INBUF(2) .NE. $4144) GO TO 1000 PPC .THEN PPC .BEGIN PPC -WRITE INPUT TAPE READY,ETC. COMMENT PP WRITE (LISTLU,9030) PPC -REQUEST CR RESPONSE PP ASSIGN 510 TO ICMADR PP CALL FREAD(INLU,INBUF,1,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 510 CALL SETBFR(IOBUF,138) PPC -PRINT ID HEADER LINE PP WRITE (LISTLU,9031) PPC -INITIALIZE SEQUENCE COUNT,ETC. PP SQCNUM = 1 PP HLLUCK = 0 PPC -READ MAG TAPE (1 RECORD 6151 WORDS) PP 520 ASSIGN 530 TO ICMADR PP CALL FREAD (MTLU,HEADER(1),TOTLEN,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 530 CALL SETBFR(IOBUF,138) PP ILINK = LINK(0) PPC .IF END-OF-TAPE PP ASSEM $E800,MTLU,$E600,+LOG1A PP ASSEM $C20C,$0FC6,$6800,EOTAPE PP IF (EOTAPE .GE. 0) GO TO 550 PPC .THEN PRINT END-OF-TAPE COMMENT PP WRITE (LISTLU,9024) PPC -REQUEST CR RESPONSE PP ASSIGN 540 TO ICMADR PP CALL FREAD (INLU,IRESPN,1,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 540 CALL SETBFR(IOBUF,138) PPC -REREAD TAPE PP GO TO 520 PPC .IF ERROR PP 550 IF (ILINK .GE. 0) GO TO 560 PPC .THEN PP WRITE (LISTLU,9023) PP GO TO 1000 PPC .IF SEQUENCE NO. NOT IN SEQUENCE PP 560 IF (IABS(HEADER(1)) .EQ. SQCNUM) GO TO 590 PPC .THEN PPC -PRINT OUT-OF-SEQ. MSG. PP WRITE (LISTLU,9033) PPC -REQUEST INSTRUCTIONS PP 570 WRITE (LISTLU,9034) PP WRITE (LISTLU,9035) PP ASSIGN 580 TO ICMADR PP CALL FREAD(INLU,IRESPN,1,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 580 CALL SETBFR(IOBUF,138) PP IRESPN = UPPER - $30 PPC .IF ABORT .THEN EXIT PP IF (IRESPN .EQ. 1) GO TO 1000 PPC .IF CONTINUE .THEN CONTINUE PP IF (IRESPN .EQ. 2) GO TO 590 PPC .IF REREAD .THEN READ MAG TAPE PP IF (IRESPN .EQ. 3) GO TO 520 PPC .ELSE REREQUEST INPUT PP GO TO 570 PPC .IF LAST RECORD PP 590 IF (HEADER(4).NE. 0) GO TO 600 PPC .THEN PP WRITE (LISTLU,9043) LSECA PP WRITE (LISTLU,9041) PP GO TO 1000 PPC .IF START OF NEW LU,PRINT LU INFO PP 600 IF (HEADER(7) .EQ. HLLUCK) GO TO 604 PPC .THEN PP IF (HLLUCK .EQ.0) GO TO 602 PP WRITE (LISTLU,9043) LSECA PP 602 HLLUCK = HEADER(7) PP WRITE (LISTLU,9042) HEADER(5),HEADER(7) PPC -CALC. LAST SECTOR OF RECORD PP 604 LSECA = SACNT + HEADER(4)/96 - 1 PPC .IF BAD RECORD PP IF (HEADER(1) .GT. 0) GO TO 610 PPC .THEN PPC -PRINT COMMENT SPECIFYING SECTORS IN BAD RECORD PP WRITE (LISTLU,9036) PP WRITE (LISTLU,9037) SACNT,LSECA PP GO TO 640 PPC .ELSE PPC .BEGIN PPC PPC --- CHECK CHECKSUM HERE PPC PPC -WRITE RECORD TO MM PP 610 MMPARM(1) = HEADER(4) PP MMPARM(2) = 0 PP MMPARM(3) = SACNT PP ASSIGN 620 TO ICMADR PP CALL FWRITE(HEADER(7),REC(1),MMPARM(1),ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 620 CALL SETBFR(IOBUF,138) PPC .IF ERROR PP IF (LINK(0) .GE. 0) GO TO 640 PPC .THEN PPC -PRINT COMMENT,REQUEST INSTRUCTIONS PP 624 WRITE (LISTLU,9034) PP ASSIGN 630 TO ICMADR PP CALL FREAD(INLU,IRESPN,1,ICMADR,IFLAG,ITEMP) PP CALL DISPAT PP 630 CALL SETBFR(IOBUF,138) PP IRESPN = UPPER - $30 PPC .IF ABORT .THEN EXIT PP IF (IRESPN .EQ. 1) GO TO 1000 PPC .IF NOT CONTINUE .THEN REQUEST INPUT PP IF (IRESPN .NE. 2) GO TO 624 PPC .END PP 640 SQCNUM = SQCNUM + 1 PP GO TO 520 PPC .END PPC -PRINT 'EDTLP OUT' COMMENT PP 1000 WRITE (LISTLU,9045) PPC RELEASE CORE PP ASSEM $C805,$0901,$6803,$54F4,$1901,EDTLP PPC .END PP 9000 FORMAT ( ,5X,'PHY UNIT MSOS LU LAST SA') PP 9001 FORMAT (9X,I4,5X,I4,5X,$4) PP 9002 FORMAT (5X,'**** MM FREAD I/O ERROR ****') PP 9003 FORMAT ( 5X,'**** NO FILE MANAGER DATA AVAILABLE ****') PP 9010 FORMAT ( 5X,'SPECIFY DEFAULT CHANGES') PP 9011 FORMAT ( 7X,'LL = MSOS LU(DEC)') PP 9012 FORMAT ( 7X,'SSSS = SECTOR ADDRESS(0001-7FFF)') PP 9013 FORMAT ( 5X,'(CR) = USE DEFAULT') PP 9014 FORMAT ( ,'LL,SSSS') PP 9015 FORMAT ( ,'LL ERROR') PP 9016 FORMAT ( ,'SSSS ERROR') PP 9017 FORMAT ( ,'FORMAT ERROR') PP 9018 FORMAT ( ,'OUTPUT TAPE ON UNIT 0. CR WHEN READY.') PP 9020 FORMAT ( ,'MM I/O ERROR') PP 9021 FORMAT ( ,I4,2X,$4,2X,I1,2X,I1,2X,I2) PP 9022 FORMAT ( ,'ENTER A FOR ABORT,C FOR CONTINUE,THEN CR') PP 9023 FORMAT ( ,'**** MT ERROR') PP 9024 FORMAT ( ,'END-OF-TAPE,MOUNT NEXT TAPE,CR WHEN READY') PP 9025 FORMAT ( ,'SAVE OPERATION COMPLETE') PP 9030 FORMAT ( ,'INPUT TAPE ON UNIT 0. CR WHEN READY.') PP 9031 FORMAT ( ,'UNIT MSOS LU SA') PP 9032 FORMAT ( ,3X,I1,7X,I2,2X,$4) PP 9033 FORMAT ( ,'OUT-OF-SEQUENCE RECORD') PP 9034 FORMAT ( ,'ENTER DIGIT THEN (CR)',/,' 1-ABORT',/,' 2-CONTINUE') PP 9035 FORMAT ( ,' 3-REREAD TAPE') PP 9036 FORMAT ( ,'THE FOLLOWING SECTORS WILL NOT BE LOADED') PP 9037 FORMAT ( ,$4,' - ',$4) PP 9038 FORMAT ( ,'CHECKSUM ERROR') PP 9039 FORMAT ( ,'MM ERROR,SECTORS NOT LOADED ',$4,' - ',$4) PP 9040 FORMAT ( ,'EDTLP IN',/,'ENTER LOAD/SAVE',/) PP 9041 FORMAT ( ,'LOAD OPERATION COMPLETE') PP 9042 FORMAT ( ,3X,I1,7X,I2) PP 9043 FORMAT ( ,19X,$4) PP 9044 FORMAT (5X,'DEFAULT CONDITIONS') PP 9045 FORMAT ( ,'EDTLP OUT') PPC **********************************************************116*4418 PP END PPTSPO71 DCK/ I,H PP DEL/ 1 PP NAM LUTENT DECK-ID O71 MSOS 5.0 SUMMARY-116 PP INS/ 4 PP SPC 2 116*4420 PP* THIS PROGRAM RETRIEVES DATA FROM FM FSLIST 116*4420 PP* LOCATED IN SYSDAT. 116*4420 PP SPC 2 116*4420 PP* CALLING SEQUENCE- 116*4420 PP* CALL LUTENT(LUTPAR) 116*4420 PP* WHERE- LUTPAR(1)-LOGICAL UNIT(=0 IF NO FSLIST) 116*4420 PP* (=-0 IF END OF TABLE) 116*4420 PP* LUTPAR(2)-SECTOR ADDRESS OF FILE SPACE POOL 116*4420 PP* LUTPAR(3)-NO. OF SECTORS IN POOL 116*4420 PP ENT LUTENT 116*4420 PP EXT FSLIST 116*4420 PP EXT* Q8PREP,Q8PKUP 116*4420 PP EQU H007F($9),H01FF($B) 116*4420 PP EQU H7FFF($11) 116*4420 PPLUTENT 0 0 116*4420 PP RTJ Q8PREP 116*4420 PP ADC (LUTENT-*) 116*4420 PP RTJ Q8PKUP 116*4420 PP STA* APARMS 116*4420 PP LDA* AFSLST 116*4420 PP EOR- H7FFF 116*4420 PP SAN LUT005 SENSE FSLIST LINKED 116*4420 PP STA* (APARMS) 116*4420 PP JMP* LUT010 116*4420 PPLUT005 LDA* (AFSLST) 116*4420 PP STA* (APARMS) 116*4420 PP INA 0 116*4420 PP SAZ LUT010 SENSE END OF LU TABLE 116*4420 PP AND- H007F 116*4420 PP STA* (APARMS) PASS LU 116*4420 PP RAO* APARMS 116*4420 PP ENQ 1 116*4420 PP LDA* (AFSLST),Q 116*4420 PP STA* (APARMS) PASS SECTOR ADDRESS OF FILE SPACE POOL116*4420 PP RAO* APARMS 116*4420 PP ENQ 3 116*4420 PP LDA* (AFSLST),Q 116*4420 PP STA* (APARMS) PASS NO. OF SECTORS IN FILE POOL 116*4420 PP LDA* (AFSLST) BUMP TO NEXT LU ENTRY 116*4420 PP ARS 7 116*4420 PP AND- H01FF 116*4420 PP ADD* AFSLST 116*4420 PP STA* AFSLST 116*4420 PPLUT010 JMP* (LUTENT) 116*4420 PPAPARMS NUM 0 116*4420 PPAFSLST ADC FSLIST 116*4420 PPTSPO72 DCK/ I,H PP DEL/ 1 PP NAM CRACK DECK-ID O72 MSOS 5.0 SUMMARY-116 PP INS/ 4 PP SPC 2 116*4417 PP* PROCESS INPUT BUFFER 116*4417 PP SPC 2 116*4417 PP* THIS ROUTINE PROCESSES THE INPUT 116*4417 PP* BUFFER WHICH CONTAINS LL,SSSS 116*4417 PP* WHERE LL=LOGICAL UNIT AND SSSS = 116*4417 PP* SECTOR ADDRESS. 116*4417 PP* CALLING SEQUENCE- 116*4417 PP* CALL CRACK(INBUF,DATBUF) 116*4417 PP* WHERE- INBUF = 4 WORD INPUT BUFFER 116*4417 PP* DATBUF= 4 WORD DATA RETURN BUFFER 116*4417 PP* DEFINED AS FOLLOWS. 116*4417 PP* DATBUF(1)=LOGICAL UNIT 116*4417 PP* DATBUF(2)=SECTOR ADDRESS 116*4417 PP* DATBUF(3)=PHYSICAL UNIT NO. 116*4417 PP* DATBUF(4)=PHYSICAL LOGICAL UNIT 116*4417 PP* ERROR RETURN INFO- 116*4417 PP* DATBUF(1)= -1, LL PARAMETER ERROR 116*4417 PP* = -2, SSSS PARAMETER ERROR 116*4417 PP* = -3, FORMAT ERROR 116*4417 PP ENT CRACK 116*4417 PP EXT* Q8PREP,Q8PKUP 116*4417 PP EXT LOG1A 116*4417 PP EQU H0007(5),H007F(9),H00FF($A),HFF00($1A) 116*4417 PP EQU H0100($2B) 116*4417 PP EQU TEN($46) 116*4417 PP SPC 1 116*4417 PPCRACK 0 0 116*4417 PP STQ* QSAVE 116*4417 PP RTJ Q8PREP 116*4417 PP ADC (CRACK-*) 116*4417 PP RTJ Q8PKUP 116*4417 PP STA* AINBUF 116*4417 PP RTJ Q8PKUP 116*4417 PP STA* ADATBF 116*4417 PP LDA* (AINBUF) 116*4417 PP SUB =N$3030 116*4417 PP ENQ 0 116*4417 PP DVI- H0100 116*4417 PP STQ* T1 116*4417 PP MUI- TEN 116*4417 PP ADD* T1 116*4417 PP STA* (ADATBF) =CALC. LU 116*4417 PP INA -2 116*4417 PP SAM CRK020 SENSE LU ILLEGAL 116*4417 PP INA 2 116*4417 PP SUB+ LOG1A 116*4417 PP SAZ CRK010 SENSE LEGAL LU NO. 116*4417 PP SAM CRK010 SENSE LEGAL LU NO. 116*4417 PP JMP* CRK020 116*4417 PPCRK010 LDQ* (ADATBF) 116*4417 PP LDQ+ LOG1A,Q 116*4417 PP LDA- 8,Q 116*4417 PP ARS 11 116*4417 PP AND- H0007 116*4417 PP INA -2 116*4417 PP SAZ CRK030 SENSE MASS STORAGE EQ. CLASS 116*4417 PPCRK020 ENA -1 LU ERROR RETURN 116*4417 PP JMP* CRK081 116*4417 PPCRK030 ENA 0 116*4417 PP STA* PHYLU 116*4417 PPCRK040 LDA- 8,Q 116*4417 PP ARS 4 116*4417 PP AND- H007F 116*4417 PP INA -72 (72=PSEUDO DISK EQ. TYPE) 116*4417 PP SAN CRK050 SENSE NOT PSEUDO DISK 116*4417 PP LDA- 25,Q =SECTOR BIAS 116*4417 PP STA* PHYLU 116*4417 PP LDQ- 19,Q =LU OF MM DEVICE 116*4417 PP LDQ+ LOG1A,Q 116*4417 PPCRK050 LDA- 39,Q =PHYSICAL UNIT 116*4417 PP ENQ 2 116*4417 PP STA* (ADATBF),Q PASS PHYSICAL UNIT NO. 116*4417 PP ENQ 3 116*4417 PP LDA* PHYLU 116*4417 PP STA* (ADATBF),Q PASS PHYSICAL LU 116*4417 PP RAO* AINBUF 116*4417 PP LDA* (AINBUF) 116*4417 PP AND- HFF00 116*4417 PP EOR* COMMA 116*4417 PP SAZ CRK060 SENSE COMMA 116*4417 PP ENA -3 =FORMAT ERROR 116*4417 PP JMP* CRK081 116*4417 PPCRK060 STA* T1 * CONVERT SECTOR ADDRESS TO HEX * 116*4417 PP LDA* (AINBUF) 116*4417 PP AND- H00FF 116*4417 PP RTJ* PROCHR 116*4417 PP RAO* AINBUF 116*4417 PP LDA* (AINBUF) 116*4417 PP ARS 8 116*4417 PP AND- H00FF 116*4417 PP RTJ PROCHR 116*4417 PP LDA* (AINBUF) 116*4417 PP AND- H00FF 116*4417 PP RTJ* PROCHR 116*4417 PP RAO* AINBUF 116*4417 PP LDA* (AINBUF) 116*4417 PP ARS 8 116*4417 PP AND- H00FF 116*4417 PP RTJ* PROCHR 116*4417 PP ENQ 1 116*4417 PP STA* (ADATBF),Q PASS SECTOR ADDRESS 116*4417 PP SAP CRK090 SENSE LEGAL SA 116*4417 PPCRK080 ENA -2 = SA ERROR 116*4417 PPCRK081 STA* (ADATBF) 116*4417 PPCRK090 LDQ* QSAVE 116*4417 PP JMP* (CRACK) 116*4417 PP SPC 1 116*4417 PPPROCHR 0 0 * CONVERT ASCII TO HEX * 116*4417 PP INA -$30 116*4417 PP TRA Q 116*4417 PP SAM PROC01 SENSE NOT HEX 116*4417 PP INA -$3A+$30 116*4417 PP SAM PROC00 SENSE 0-9 116*4417 PP INA -$41+$3A 116*4417 PP INQ -7 116*4417 PP SAM PROC01 SENSE NOT HEX 116*4417 PP INA -$47+$41 116*4417 PP SAP PROC01 SENSE NOT HEX 116*4417 PPPROC00 LDA* T1 116*4417 PP ALS 4 116*4417 PP EAQ A 116*4417 PP STA* T1 116*4417 PP JMP* (PROCHR) 116*4417 PPPROC01 JMP* CRK080 116*4417 PPCOMMA NUM $2C00 116*4417 PPPHYLU NUM 0 116*4417 PPADATBF NUM 0 116*4417 PPAINBUF NUM 0 116*4417 PPT1 NUM 0 116*4417 PPQSAVE 0 0 116*4417 PPTSPO73 DCK/ I,H PP DEL/ 1 PP NAM FTNDUM DECK-ID O73 MSOS 5.0 SUMMARY-116 PP* TIMESHARE UTILITY DUMMY FORTRAN ENTRY POINTS 116*4419 PP SPC 2 116*4419 PP INS/ 4 116*4419 PP* DUMMY TO PATCH UNUSED ENTRY POINTS 116*4419 PP SPC 4 116*4419 PP ENT BINARY,EOUT,FOUT,FLOTIN,DOUT 116*4419 PP SPC 1 116*4419 PPBINARY NUM 0 116*4419 PP JMP- ($EA) 116*4419 PPEOUT NUM 0 116*4419 PP JMP- ($EA) 116*4419 PPFOUT NUM 0 116*4419 PP JMP- ($EA) 116*4419 PPFLOTIN NUM 0 116*4419 PP JMP- ($EA) 116*4419 PPDOUT NUM 0 116*4419 PP JMP- ($EA) 116*4419 PPTSPO74 DCK/ I,H PP DEL/ 1 PP NAM FORTR DECK-ID O74 MSOS 5.0 SUMMARY-117 PP INS/ 4 PP SPC 2 117*4471 PP* SPECIAL FORTR ROUTINE FOR EDTLP 117*4471 PP* 117*4471 PP ENT FREAD FORMAT READ 117*4471 PP ENT FWRITE FORMAT WRITE 117*4471 PP ENT TIMER 117*4471 PP ENT DISPAT 117*4471 PP ENT LINK 117*4471 PP EQU AMONI($F4) 117*4471 PP EQU ADISP($EA) 117*4471 PP EQU AVOLA($BB) 117*4471 PP EQU AVOLR($BA) 117*4471 PP EQU NZERO($12) 117*4471 PP EQU ZERO($22) 117*4471 PP EQU LPMSK(2) 117*4471 PP EQU ONEBIT($23) 117*4471 PP EQU ZROBIT($33) 117*4471 PP* 117*4471 PP* 117*4471 PPFREAD 0 0 ***FORMAT READ 117*4471 PP LDA* FREAD A = LOCATION OF PARAMETERS 117*4471 PP RTJ* INITL INITIALIZE IO-CALL 117*4471 PP NUM $800 REQ CODE FOR F-READ 117*4471 PPFWRITE 0 0 ***FORMAT WRITE 117*4471 PP LDA* FWRITE A = LOCATION OF PARAMETERS 117*4471 PP RTJ* INITL INITIALIZE IO-CALL 117*4471 PP NUM $C00 REQ CODE FOR F-WRITE 117*4471 PPTIMER 0 0 ***TIMER REQUEST CALL 117*4471 PP LDA* TIMER A = LOCATION OF PARAMETERS 117*4471 PP RTJ INITL1 PICK UP ARGUMENTS OF CALL 117*4471 PP NUM $1000 REQUEST CODE 117*4471 PPDISPAT 0 0 ***DISPATCHER REQUEST CALL 117*4471 PP JMP- (ADISP) 117*4471 PPLINK 0 0 ***GET PARAMETER PASSED BY A 117*4471 PP TRQ A SCHEDULER REQUEST 117*4471 PP RAO* LINK 117*4471 PP JMP* (LINK) 117*4471 PPINITL 0 0 117*4471 PP STQ* QSAVE SAVE Q. 117*4471 PP TRA Q 117*4471 PP LDA* (INITL) GET REQUEST CODE 117*4471 PP STA* RC SAVE REQUEST CODE. 117*4471 PP STQ* APL SAVE THE ADDRESS OF THE PARAMETER LIST117*4471 PP INQ 5 LOC FOR GENERATED CALL 117*4471 PP TRQ A 117*4471 PP RTJ PARABS COMPUTE ABSOLUTE ADDRESS 117*4471 PP TRA Q =LOC FOR GENERATED CALL 117*4471 PP ENA 0 117*4471 PP RTJ* GET GET 1ST ARGUMENT(LU) 117*4471 PP STA- 3,Q 117*4471 PP ENA -0 117*4471 PP RTJ* GET =2ND ARGU(FWA OF BUFFER) 117*4471 PP STA- 5,Q 117*4471 PP ENA -0 117*4471 PP RTJ* GET =3RD ARGU(LENGTH) 117*4471 PP STA* TEMP 117*4471 PP ENA 0 117*4471 PP STA- 2,Q ZERO THREAD 117*4471 PP RTJ* GETCF PICK UP COMPLETION ADDRESS AND FLAG 117*4471 PP STA- (ZERO),Q 117*4471 PP SAP NXT-*-1 TEST IF ASSIGNED BUFFER 117*4471 PP LDA- 5,Q ADDRESS, YES--- 117*4471 PP LLS 16 GET BUFFER FWA 117*4471 PP LDQ- (ZERO),Q 117*4471 PP LLS 16 117*4471 PP STA- 5,Q 117*4471 PP LDA- (ZERO),Q 117*4471 PPNXT ALS 6 TEST COMPLETION ADDRESS TO 117*4471 PP SAP NXT1-*-1 BE CORE RESIDENT 117*4471 PP JMP* NXT3 117*4471 PPNXT1 ALS 1 TEST COMPLETION ADDRESS TO 117*4471 PP SAM NXT2-*-1 BE DRUM RESIDENT 117*4471 PP LDA- 1,Q NO, ASSIGNED TO STATEMENT 117*4471 PP LLS 16 LABEL 117*4471 PP LDQ- (ZERO),Q 117*4471 PP LLS 16 117*4471 PP STA- 1,Q 117*4471 PP JMP* NXT3 117*4471 PPNXT2 LDA- NZERO+15 YES, GET HIGH ORDER BIT 117*4471 PP EOR- 1,Q OR TO COMPLETION LOC 117*4471 PP STA- 1,Q 117*4471 PPNXT3 LDA- (ZERO),Q 117*4471 PP AND- LPMSK+8 MASK OUT FLAG 117*4471 PP EOR* RC SET THE REQUEST CODE FOR I/O CALLS. 117*4471 PP EOR- ONEBIT+14 OR IN D BIT FOR PART CORE REQUEST 117*4471 PP STA- (ZERO),Q 117*4471 PP LDA* TEMP A = ADDRESS OF MESSAGE LENGTH PARAM. 117*4471 PP LLS 16 117*4471 PP LDQ- (ZERO),Q 117*4471 PP LLS 16 117*4471 PP STA- 4,Q 117*4471 PP RAO* TEMP 117*4471 PP LDA* TEMP A = ADDRESS OF MASS MEMORY ADDRESS MSB117*4471 PP LLS 16 117*4471 PP LDQ- (ZERO),Q 117*4471 PP LLS 16 117*4471 PP STA- 6,Q 117*4471 PP RAO* TEMP 117*4471 PP LDA* TEMP A = ADDRESS OF MASS MEMORY ADDRESS LSB117*4471 PP LLS 16 117*4471 PP LDQ- (ZERO),Q 117*4471 PP LLS 16 117*4471 PP STA- 7,Q 117*4471 PPNXT4 TRQ A GET LOC OF PARAMETER LIST 117*4471 PP STA* CALL2+2 117*4471 PPCALL2 RTJ- (AMONI) CALL MONITOR 117*4471 PP ADC $2000 INDIRECT REQUEST 117*4471 PP ADC 0 =INDIR PARAMETER ADDR 117*4471 PP TRQ A 117*4471 PP RAO* APL COMPUTE RETURN ADDRESS 117*4471 PP LDQ* QSAVE RESTORE Q. 117*4471 PP JMP* (APL) RETURN TO CALLER. 117*4471 PPAPL NUM 0 ADDRESS OF PARAMETER LIST (RETURN) 117*4471 PPRC NUM 0 REQUEST CODE 117*4471 PPTEMP NUM 0 TEMPORARY STORAGE. 117*4471 PPQSAVE NUM 0 TEMPORARY STORAGE FOR Q. 117*4471 PPGET 0 0 GET NEW PARAMETER 117*4471 PP STQ* SAVE1 SAVE Q-REG 117*4471 PP LDQ* APL Q = ADDRESS OF PARAMETER ADDRESS. 117*4471 PP RAO* APL 117*4471 PP STA* SAVE2 SAVE A-REG 117*4471 PP TRQ A 117*4471 PP RTJ* PARABS COMPUTE ABSOLUTE ADDRESS 117*4471 PP LDQ* SAVE2 FLAG=ADDR/PARAMETER 117*4471 PP SQM 2 =NEG, GET ADDRESS 117*4471 PP TRA Q =PLUS, GET PARAMETER 117*4471 PP LDA- (ZERO),Q 117*4471 PP LDQ* SAVE1 RESTORE Q-REG 117*4471 PP JMP* (GET) 117*4471 PPGETCF ADC 0 117*4471 PP STQ* SAVEQ SAVE Q 117*4471 PP LDA* APL GET ADDRESS OF PARAMETER FLAG WORD. 117*4471 PP INA 1 117*4471 PP RTJ* PARABS COMPUTE ABSOLUTE ADDRESS 117*4471 PP TRA Q 117*4471 PP LDA- (ZERO),Q GET FLAG WORD AND SAVE 117*4471 PP STA* SAVEA 117*4471 PP ALS 6 TEST FOR EXTERNAL COMPLETION ADDRESS 117*4471 PP SAP NOTEXT SKIP IF NOT EXTERNAL (CODE = 2) SS 117*4471 PP LDQ* APL 117*4471 PP LDA- (ZERO),Q GET COMPLETION ADDRESS 117*4471 PPSTORIT LDQ* SAVEQ AND 117*4471 PP STA- 1,Q STORE INTO REQUEST 117*4471 PP LDA* SAVEA PUT FLAG WORD IN A FOR RETURN 117*4471 PP RAO* APL UPDATE PARAMETER ADDRESS. 117*4471 PP RAO* APL 117*4471 PP JMP* (GETCF) RETURN 117*4471 PPNOTEXT LDA* APL GET COMPLETION ADDRESS AND 117*4471 PP RTJ* PARABS COMPUTE ABSOLUTE ADDRESS 117*4471 PP JMP* STORIT 117*4471 PPSAVEA NUM 0 117*4471 PPSAVEQ NUM 0 117*4471 PPINITL1 0 0 117*4471 PP STQ* QSAVE SAVE Q. 117*4471 PP TRA Q 117*4471 PP LDA* (INITL1) GET REQUEST CODE 117*4471 PP STA* RC SAVE REQUEST CODE. 117*4471 PP STQ* APL SAVE ADDRESS OF PARAMETER LIST. 117*4471 PP INQ 3 117*4471 PP TRQ A 117*4471 PP RTJ* PARABS COMPUTE ABSOLUTE ADDRESS 117*4471 PP EIN 0 117*4471 PP TRA Q 117*4471 PP RTJ* GETCF PICK UP COMPLETION ADDRESS AND FLAG 117*4471 PP STA* TEMP 117*4471 PP AND- LPMSK+8 REMOVE FLAG=TYPE OF RETURN 117*4471 PP EOR* RC SET REQUEST CODE. 117*4471 PP STA- (ZERO),Q 117*4471 PP LDA* TEMP 117*4471 PP ALS 6 TEST COMPLETION ADDRESS TO 117*4471 PP SAP NEXT1-*-1 BE CORE RESIDENT 117*4471 PP JMP* NEXT3 117*4471 PPNEXT1 ALS 1 TEST COMPLETION ADDRESS TO 117*4471 PP SAM NEXT2-*-1 BE DRUM RESIDENT 117*4471 PP LDA- 1,Q NO, ASSIGNED TO STATEMENT 117*4471 PP LLS 16 LABEL 117*4471 PP LDQ- (ZERO),Q 117*4471 PP LLS 16 117*4471 PP STA- 1,Q 117*4471 PP JMP* NEXT3 117*4471 PPNEXT2 LDA- NZERO+15 YES, SET BIT15 OF THE 117*4471 PP EOR- 1,Q COMPLETION ADDR 117*4471 PP STA- 1,Q 117*4471 PP JMP* NEXT3A NO D BIT IF DIRECTORY CALL 117*4471 PPNEXT3 LDA- 1,Q IS COMPLETION IN UPPER BANK 117*4471 PP SAP NEXT3A NO, OKAY 117*4471 PP LDA- (ZERO),Q YES, MODIFY REQUEST TO A PART 1 117*4471 PP AND- ZROBIT+14 REQUEST 117*4471 PP EOR- ONEBIT+14 SET D BIT 117*4471 PP STA- (ZERO),Q 117*4471 PPNEXT3A ENA 0 117*4471 PP RTJ* GET GET 3RD ARGUMENT 117*4471 PP STA- 2,Q 117*4471 PP LLS 16 117*4471 PP JMP* NXT4+1 117*4471 PP SPC 1 117*4471 PPPARABS NOP 0 117*4471 PP STA* BACK SAVE PARAMETER ADDRESS 117*4471 PP LDA* (BACK) PICK UP POINTER 117*4471 PP SAP PAR01 117*4471 PP ADD* BACK ABSOLUTIZE 117*4471 PP AND- LPMSK+15 117*4471 PPPAR01 JMP* (PARABS) RETURN 117*4471 PP SPC 1 117*4471 PPSAVE1 NUM 0 117*4471 PPSAVE2 NUM 0 117*4471 PPBACK NUM 0 117*4471 PPTSPO75 DCK/ I,H PPTSPO76 DCK/ I,H PPTSPO77 DCK/ I,H PPTSPO78 DCK/ I,H PPTSPO79 DCK/ I,H PPTSPO80 DCK/ I,H PPTSPO81 DCK/ I,H PPTSPO82 DCK/ I,H PPTSPO83 DCK/ I,H PPTSPO84 DCK/ I,H PPTSPO85 DCK/ I,H PPTSPO86 DCK/ I,H PPTSPO87 DCK/ I,H PPTSPO88 DCK/ I,H PPTSPO89 DCK/ I,H PPTSPO90 DCK/ I,H PPTSPO91 DCK/ I,H PPTSPO92 DCK/ I,H PPTSPO93 DCK/ I,H PPTSPO94 DCK/ I,H PPTSPO95 DCK/ I,H PPTSPO96 DCK/ I,H PPTSPO97 DCK/ I,H PPTSPO98 DCK/ I,H PPTSPO99 DCK/ I,H PPNXTLOC DCK/ I,H P