PFILMGR DCK/ I,H PP DEL/ 1 PP NAM FILMGR DECK-ID F01 FILE MANAGER 1.0 SUMMARY-124 PP INS/ 33 PP ENT EDFILS REQUEST ENTRY - 116*4367 PP* EDITOR FILE SPACE ALLOCATION 116*4367 PP ENT EDRTNS REQUEST ENTRY - 116*4367 PP* EDITOR FILE SPACE RELEASE 116*4367 PP INS/ 77 PP EXT FMREDF STARTING SECTOR OF EDFILS 116*4367 PP EXT FMREDR STARTING SECTOR OF EDRTNS 116*4367 PP INS/ 97 PP* TIME SHARE SYSTEM CURRENT CONTROL POINT LOC116*4367 PP EXT CCP CURRENT CONTROL POINT LOCATION 116*4367 PP EXT CPSET SET CP ADDRESS 116*4367 PP EXT SYFAIL SYSTEM FAIL 116*4367 PP SPC 1 116*4367 PP INS/ 106 PP EXT MPFLAG 124*5012 PP INS/ 118 PP EQU LPMSK(2) 116*4367 PP DEL/ 192 PP EQU VCP(5) CONTROL POINT, IF APPLIED, VALUE 116*4367 PP EQU NVWRDS(6) NUMBER OF VOLATILE WORDS USED 116*4367 PP INS/ 194 PP EQU RCIND(16) INDIRECT REQUEST CODE 116*4367 PP INS/ 208 PP EQU NPEDFS(5) NUMBER OF PARAMETERS IN EDITOR FILE 116*4367 PP* SPACE ALLOCATION 116*4367 PP EQU NPEDRS(6) NUMBER OF PARAMETERS IN EDITOR FILE 116*4367 PP* SPACE RELEASE 116*4367 PP DEL/ 214 PP EQU NUMRPE(14) NUMBER OF REQUEST PROCESSOR ENTRIES 116*4367 PP INS/ 265 PP* 116*4367 PP* 116*4367 PPEDFILS 000 000 EDITOR FILE SPACE ALLOCATION 116*4367 PP IIN 0 116*4367 PP ADC INS+NPEDFS-1 116*4367 PP RTJ* REQSUP 116*4367 PP* 116*4367 PP* 116*4367 PPEDRTNS 000 000 EDITOR FILE SPACE RELEASE 116*4367 PP IIN 0 116*4367 PP ADC INS+NPEDRS-1 116*4367 PP RTJ* REQSUP 116*4367 PP INS/ 298 PP LDQ+ CCP GET AND SAVE CURRENT CONTROL PNT VALUE122*4367 PP STQ- VCP,I 116*4367 PP INS/ 309 PP LDA- VA,I RESTORE A REG. 116*4367 PP DEL/ 332 PP ALS 2 SAVE IN BITS 4-7 (ENTRY INDEX = 116*4367 PP* 4*REQ. TYPE 116*4367 PP INS/ 334 PP LDA MPFLAG TEST FOR CYBER 18-17 124*5012 PP SAZ NOT20 SKIP IF CYBER 18-17 124*5012 PP LDA- VCP,I RECALL CONTROL VALUE AND SHIFT TO 116*4367 PP ALS 8 BITS 15-8 AND MERGE WITH PRIORITY 116*4367 PP EOR- RPLIDX,Q AND ENTRY INDEX, THEN SAVE 116*4367 PP STA- RPLIDX,Q 116*4367 PPNOT20 EQU NOT20(*) 124*5012 PP INS/ 363 PP CLR Q 122*4367 PP RTJ+ CPSET PUT THE MACHINE INTO ABSOLUTE MODE. 122*4367 PP INS/ 452 PP AND- ONEMSK+3 EXTRACT ENTRY INDEX ONLY 116*4367 PP INS/ 494 PPNORQWD EQU NORQWD(*-RPSA) SIZE OF PARAMETER LIST PP DEL/ 534 PP ADC D+$1205 116*4367 PP INS/ 548 PP CLR Q 122*4367 PP RTJ+ CPSET PUT THE MACHINE INTO ABSOLUTE MODE. 122*4367 PP INS/ 556 PP CLR Q 122*4367 PP RTJ+ CPSET PUT THE MACHINE INTO ABSOLUTE MODE. 122*4367 PP LDQ- I RESTORE REQUEST BUFFER ADDR TO Q REG. 122*4367 PP DEL/ 609 PP ADC D+$1205 116*4367 PP DEL/ 621 PPCHKUNP RTJ SETCP SET CONTROL POINT IF TIMESHARE SYSTEM 116*4367 PP ENA HUPLVL CHECK IF CALLER UNPROTECTED. 116*4367 PP INS/ 647 PP EJT 122*4367 PP* ENTER HERE WITH MACHINE IN ABS. MODE. 122*4367 PP INS/ 663 PP RTJ SETCP SET CONTROL POINT IF TIMESHARE SYS 116*4367 PP INS/ 679 PP RTJ SETCP SET CONTROL POINT IF TIMESHARE SYS 116*4367 PP INS/ 689 PP AND- ONEMSK+3 (ISOLATE ENTRY TYPE INDEX ONLY) 116*4367 PP DEL/ 702 PP RTJ ABSPAR 122*4367 PP DEL/ 747 PP EQU LOKNOE(30) NUMBER OF ENTRIES 122*4367 PP INS/ 784 PP* 116*4367 PP ADC FMREDF STARTING SECTOR OF EDFILS 116*4367 PP ADC 0 START ADR OR LENGTH (IF NOT IN CORE) 116*4367 PP* OF EDFILS 116*4367 PP ADC 0 TIME REMAINING FOR REQUEST PROCESSOR 116*4367 PP* EDFILS 116*4367 PP* 116*4367 PP ADC FMREDR STARTING SECTOR OF EDRTNS 116*4367 PP ADC 0 START ADR OR LENGTH (IF NOT IN CORE) 116*4367 PP* OF EDRTNS 116*4367 PP ADC 0 TIME REMAINING FOR REQUEST PROCESSOR 116*4367 PP* EDRTNS 116*4367 PP DEL/ 942 PP RTJ SYFAIL ****ALLOCATION SETUP ERROR, TO 'SYFAIL116*4367 PP DEL/ 944 PPGSEXIT LDA ACTREQ REQUEST BUFFER ADDRESS 118*4367 PP STA- I 118*4367 PP RTJ* SETCP SET CONTROL POINT IF TIMESHARE SYS 118*4367 PP LDA* ISAVE RESTORE I AND EXIT. 118*4367 PP DEL/ 973 PP INQ NORQWD 116*4367 PP INS/ 975 PP* RECALL CONTROL POINT VALUE FOR MM READ/WRITE 116*4367 PP LDQ ACTREQ GET 'REQBUF' ADDRESS 116*4367 PP LDA- RPLIDX,Q 116*4367 PP ARS 8 PUT CP TO BITS 0-7 116*4367 PP AND- ONEMSK+7 116*4367 PP STA* CPLOC 116*4367 PP DEL/ 991,992 PPSTOMMA STA* LSB SAVE LSB. 116*4367 PP TRQ A 116*4367 PP LDQ MPFLAG TEST FOR CYBER 18-17 124*5012 PP SQZ NOTMP SKIP IF CYBER 18-17 124*5012 PP EOR- ONEBIT+15 SET BIT 15 OF MSB TO INDICATE A 116*4367 PP* CONTROL POINT NUMBER IN THE REQUEST. 116*4367 PPNOTMP EQU NOTMP(*) 124*5012 PP STA* MSB SAVE MSB. 116*4367 PP INS/ 999 PP VFD N2/0,X5/RCIND,N9/0 SET FOR INDIRECT REQUEST TO 116*4367 PP ADC RW AVOID WORD 9 (CONTROL POINT VALUE) 116*4367 PP JMP- (ADISP) 116*4367 PP DEL/ 1008 PPCPLOC NUM 0 9. CONTROL POINT VALUE 116*4367 PP DEL/ 1017 PPMMEXIT LDA ACTREQ REQUEST BUFFER ADDRESS 118*4367 PP STA- I 118*4367 PP RTJ* SETCP SET CONTROL POINT IF TIMESHARE SYS 118*4367 PP LDA* ISAVE RESTORE I AND EXIT. 118*4367 PP INS/ 1020 PP EJT PP* 118*4367 PP* ENTER THIS ROUTINE WITH I = REQUEST BUFFER ADDRESS. 118*4367 PP* 118*4367 PPSETCP 000 000 SET UP CONTROL POINT IF TIMESHARE 116*4367 PP IIN 0 122*4367 PP STQ* QSAVE SAVE Q 118*4367 PP LDA- RPLIDX,I SET BOTH THE 118*4367 PP CLR Q A AND Q 116*4367 PP LLS 8 REGISTERS EQUAL TO THE 116*4367 PP TRQ A REQUESTORS CONTROL POINT. 116*4367 PP SUB+ CCP 116*4367 PP SAZ SETCP1 SKIP IF REQUESTORS CP EQUALS 116*4367 PP* THE CURRENT CP. 116*4367 PP RTJ+ CPSET SET THE REQUESTORS CONTROL POINT. 116*4367 PP IIN 0 122*4367 PPSETCP1 LDQ* QSAVE RESTORE Q 118*4367 PP EIN 0 122*4367 PP JMP* (SETCP) 122*4367 PP SPC 3 116*4367 PP INS/ 1022 PPQSAVE NUM 0 SAVE Q 118*4367 PPRSPCV4 DCK/ I,H PP DEL/ 1 PP NAM RSPCV4 DECK-ID F02 FILE MANAGER SUMMARY-116 PP DEL/ 9 PP EQU RSCPL(5) RELEASE ALLOC SPACE COMP PRIORITY LEV.116*4367 PP DEL/ 41 PP EQU NUMRPE(14) NUMBER OF REQUEST PROCESSOR ENTRIES 116*4367 PP DEL/ 131,132 PP LDA- FIDCLK,Q 116*4293 PP SAM CKCFIS SKIP IF FID IS BEING UPDATED 116*4293 PP* ON MASS MEMORY 116*4293 PP INA -1 DECREMENT FIS DIRECTORY CLOCK. 116*4293 PPSRHFIS DCK/ I,H PPDPSUDO DCK/ I,H PP DEL/ 1 PP NAM DPSUDO DECK-ID F04 FILE MANAGER SUMMARY-114 PP DEL/ 47,48 PP****************************************************************114*4281 PP* 114*4281 PP* THIS DRIVER CAN BE USED WITH ANY FILE MANAGER THAT 114*4281 PP* IS CALL COMPATIBLE WITH THE 1700 1.0 FILE MANAGER 114*4281 PP* 114*4281 PP****************************************************************114*4281 PP EJT 114*4281 PP INS/ 93 PP EXT RELFIL 114*4281 PP EXT RTVSEQ 114*4281 PP EXT STOSEQ 114*4281 PP DEL/ 143,146 PPCMPLET JMP NCOMP 114*4281 PP DEL/ 298 PPADF STA- 3,I SAVE ITERATION COUNT 114*4281 PP DEL/ 308 PPADF20 STA- 3,I SAVE ITERATION COUNT 114*4281 PP DEL/ 323 PPADF120 LDA- 3,I EOF,HAVE WE SKIPPED ENOUGH 114*4281 PP DEL/ 382,383 PP LDA =XRTVSEQ SET UP RETRIEVE SEQUENTIAL REQUEST 114*4281 PP DEL/ 424 PP* ONE RECORD DELETED 114*4281 PP DEL/ 434,435 PP LDA =XSTOSEQ SET UP STORE SEQUENTIAL REQUEST 114*4281 PP DEL/ 481,482 PP LDA =XRELFIL SET UP RELEASE FILE REQUEST 114*4281 PP DEL/ 491 PP* 1 CARD DELETED 114*4281 PP DEL/ 494 PP LDA =XDEFFIL SET UP DEFINE FILE REQUEST 114*4281 PP DEL/ 505 PP* 1 CARD DELETED 114*4281 PP DEL/ 528 PP INA 3-REQIND 114*4281 PP DEL/ 539 PP LDQ- 3,I 114*4281 PP DEL/ 550 PP* 1 CARD DELETED 114*4281 PP DEL/ 559,562 PP* FOUR RECORDS DELETED 114*4281 PP DEL/ 609 PP* 1 CARD DELETED 114*4281 PP DEL/ 762 PP* ONE RECORD DELETED 114*4281 PP INS/ 763 PP SAN PR20 114*4281 PP ENA 1 SET TO ONE FOR ZERO WORD REQUEST 114*4281 PPPR20 EQU PR20(*) 114*4281 PP DEL/ 766 PP STA- 3,I 114*4281 PP DEL/ 770 PP STA- 3,I 114*4281 PP DEL/ 773 PP SAZ RD10 114*4281 PP LDA- 3,I WRITE REQUEST NOT ALLOWED IF TWO 114*4281 PP INA -4 WORDS OR LESS IN LENGTH 114*4281 PP SAM PR110 SKIP IF REQUEST LESS THAN 3 WORDS 114*4281 PP INS/ 774 PPPR110 ENA $30 114*4281 PP EOR- ESTAT2,I SET ALARM, EOP 114*4281 PP STA- ESTAT2,I IN HARDWARE STATUS 114*4281 PP ENA 31 INDICATE ERROR - NOISE RECORD 114*4281 PP JMP SETCOD 114*4281 PP INS/ 777 PPRD10 EQU RD10(*) 114*4281 PP DEL/ 796 PP INA 3 POINTER 114*4281 PP DEL/ 815 PP LDQ- 3,I 114*4281 PP DEL/ 838 PP SUB- 3,I USERS WORD COUNT +1 114*4281 PP DEL/ 842 PPRD213 LDA- 3,I USER WORD COUNT + 1 114*4281 PP DEL/ 863,864 PP* TWO RECORDS DELETED 114*4281 PP DEL/ 873,874 PP* TWO RECORDS DELETED 114*4281 PP INS/ 905 PP CLR A 114*4281 PP STA- ECCOR,I 114*4281 PP STA- ELSTWD,I 114*4281 PPDEFFIL DCK/ I,H PP DEL/ 1 PP NAM DEFFIL DECK-ID F05 FILE MANAGER SUMMARY-116 PP DEL/ 307 PPSETCLK ENA -1 SET FIS DIRECTORY CLOCK NEGATIVE. 116*4293 PP* THIS WILL INHIBIT DECREMENTING THE FID116*4293 PP* CLOCK BY RSPCV4 DURING THE TIME IT IS 116*4293 PP* BEING UPDATED ON MASS MEMORY. 116*4293 PP DEL/ 337 PPSTOFIB LDQ* P2 116*4293 PP LDA* (AFDTIN) 116*4293 PP STA- 1,Q SET FIS DIRECTORY CLOCK 116*4293 PP LDA* FBLSAV STORE NEW FIS BLOCK SECTOR 116*4293 PPFILSPC DCK/ I,H PPRPEND DCK/ I,H PPRELFIL DCK/ I,H PPRELSPC DCK/ I,H PPDEFIDX DCK/ I,H PPSQRTFM DCK/ I,H PPLOKFIL DCK/ I,H PPUNLFIL DCK/ I,H PPSTOSEQ DCK/ I,H PPSTODIR DCK/ I,H PPHASHCD DCK/ I,H PPGETKID DCK/ I,H PPRTVSEQ DCK/ I,H PPRTNSPC DCK/ I,H PPSTOIDX DCK/ I,H PPRTVDIR DCK/ I,H PPRTVIDX DCK/ I,H PPRTVIDO DCK/ I,H PP DEL/ 1 PP NAM RTVIDO DECK-ID F23 FILE MANAGER SUMMARY-118 PP DEL/ 129 PP LDQ- LOKADR,I CHECK IF FILE IS LOCKED 118*4482 PPFMDUMY DCK/ I,H PPEDITOR DCK/ I,H PPEDITFL DCK/ I,H PP DEL/ 1 PP NAM EDITFL DECK-ID F26 FILE MANAGER SUMMARY-119 PP DEL/ 135 PP* 15) ALIGN,X,N1,N2(CR) 119*4310 PP INS/ 141 PP* WHERE: 119*4310 PP* N1 =BEGIN LINE,IF OMITTED 119*4310 PP* START AT FIRST LINE OF PGM 119*4310 PP* FILE,IF CR DO ENTIRE PGM 119*4310 PP* FILE. 119*4310 PP* N2 =EN4 L9N5, 96 OM9T354 4O 119*4310 PP* UNTIL END. 119*4310 PP INS/ 202 PP SPC 2 119*4310 PP* 21) MOTION REQUESTS 119*4310 PP* ADR,LU,NNNN ADVANCE RECORDS 119*4310 PP* BSR,LU,NNNN BACKSPACE RECORDS 119*4310 PP* ADF,LU,NNNN ADVANCE FILES 119*4310 PP* BSF,LU,NNNN BACKSPACE FILES 119*4310 PP* REW,LU REWIND 119*4310 PP* 119*4310 PP* WHERE: LU= LOGICAL UNIT OF DEVICE 119*4310 PP* NNNN = NUMBER OF TIMES 119*4310 PP* 119*4310 PP INS/ 576 PP ENA 0 119*4310 PP STA FMPFLG CLEAR INCASE IT WAS SET BY SOMEONE ELSE 119*4310 PP INS/ 841 PP STA MOTCNT 119*4310 PP INS/ 1025 PP ALF 3,ADR 119*4310 PP ALF 3,BSR 119*4310 PP ALF 3,ADF 119*4310 PP ALF 3,BSF 119*4310 PP ALF 3,REW REWIND COMMAND 119*4310 PP INS/ 1045 PP ADC ADR 119*4310 PP ADC BSR 119*4310 PP ADC ADF 119*4310 PP ADC BSF 119*4310 PP ADC REW 119*4310 PP DEL/ 1462,1517 PP* 55 CARDS DELETED 119*4310 PP DEL/ 2240 PP LDA REQIND SEE IF ERROR OCCURED 119*4271 PP AND- ONEBIT+13 UNPROTECTED FILE REQUEST ATTEMPT TO CH119*4271 PP* A PROTECTED FILE. 119*4271 PP SAZ SAVE00 119*4271 PP LDQ =XPROTET FILE IS PROTECTED, SHOULDN'T BE 119*4271 PP RTJ PRTERR GO PRINT ERROR 119*4271 PP JMP GOREDY 119*4271 PPSAVE00 LDA SAVA 119*4271 PP DEL/ 2291 PPPOINTL LDA RECHLD,Q TRANSFER POINTER BLOCK TO OUTPUT BUFFE119*4271 PP DEL/ 2349,2351 PP LDA SAVCNT GET KEY VALUE 119*4271 PP STA TEMHLD SAVE IT 119*4271 PPPOINT3 RAO FIRST CLEAR FIRST TIME FLAG 119*4271 PP DEL/ 2458 PP INA $20 ADD IN A BLANK 119*4271 PP JMP* ETX4 119*4271 PPETX3 LDA =N$2020 119*4271 PPETX4 STA EBUFFR,Q RESET WITH TRAILING BLANK(S) 119*4271 PP DEL/ 2816,2817 PPALIGN RTJ* CLRPTR CLEAR THE RECORD POINTERS 119*4310 PP STA BEGLIN AND START LINE SLOTS. 119*4310 PP RTJ GETNAM GET TYPE OF ALIGN 119*4310 PP SAM ALIGN1 IF EOS, ASSUME F 119*4310 PP LDA NAMFIL 119*4310 PP ARS 8 119*4310 PP INS/ 2822 PPALIGN1 JMP* ALN2 DO ENTIRE PGM FILE WITH FORTRAN FORMAT119*4310 PP DEL/ 2826,2827 PP RTJ GETNUM GET START LINE 119*4310 PP SAZ ALN0 START AT FIRST LINE 119*4310 PP SAP ALN1 VALUE FOUND 119*4310 PP JMP* ALN2 NO, EOS -- DO ENTIRE PGM TEXT 119*4310 PPALN0 ENA 1 119*4310 PPALN1 STA BEGLIN STORE START LINE NUMBER 119*4310 PP* 119*4310 PP RTJ GETNUM GET END LINE 119*4310 PP SAZ ALN3 NO VALUE FOUND DO ONE LINE 119*4310 PP SAP ALNTTT CHECK VALUE 119*4310 PPALN2 LDA NUMEKV EOS, DO UNTIL END 119*4310 PP JMP* ALNTTT 119*4310 PPALN3 LDA BEGLIN DO ONLY ONE LINE 119*4310 PPALNTTT STA ENDLIN TEST FOR VALID PARMS. 119*4310 PP SUB BEGLIN 119*4310 PP SAP ALNRTN OK 119*4310 PP JMP INVCMD INVALID COMMAND 119*4310 PP DEL/ 2834 PPALNBLK LDA ENDLIN HAVE WE PASSED UPPER LIMIT 119*4310 PP SUB BUFF1 119*4310 PP SAP ALNOKK NO, CONTINUE 119*4310 PP JMP* ALNEOF ALL DONE 119*4310 PPALNOKK ENQ FILNTH-3 INSERT 119*4310 PP DEL/ 2839 PP JMP* ALNOKK+1 BUFFER. 119*4310 PP DEL/ 2865,2867 PP ENA 1 SET FMPFLG TO SIMULATE FOREGROUND 119*4310 PP STA FMPFLG 119*4310 PP RTJ+ LOKFIL 119*4310 PP ADC PGMFIL 119*4310 PP ADC STOFLG 119*4310 PP ADC REQBF1 119*4310 PP ADC REQIND 119*4310 PP* 119*4310 PP RTJ+ STODIR 119*4310 PP ADC PGMFIL 119*4310 PP ADC STOFLG 119*4310 PP ADC RECPTR 119*4310 PP ADC EBUFFR 119*4310 PP ADC REQBF1 119*4310 PP ADC REQIND 119*4310 PP* 119*4310 PP ENA 0 119*4310 PP STA FMPFLG 119*4310 PP DEL/ 2984 PP JMP ALNSTO STORE IT BACK IN PGM FILE 119*4310 PP INS/ 3559 PPPROTET ALF 12,** PROTECTED FILE 119*4271 PP INS/ 3614 PP EJT 119*4310 PP* 119*4310 PP* 119*4310 PP* THIS COMBINED MOTION REQUEST PROCESSOR ALLOWS THE USER 119*4310 PP* TO DO MOTION REQUESTS WITHIN EDITOR 119*4310 PP* 119*4310 PP SPC 2 119*4310 PPADR RAO* MOTCNT GET INDEX TO MOTION TABLE 119*4310 PPREW RAO* MOTCNT 119*4310 PPBSR RAO* MOTCNT 119*4310 PPADF RAO* MOTCNT 119*4310 PPBSF RAO* MOTCNT 119*4310 PP* 119*4310 PP RTJ GETNUM GET LOGICAL UNIT 119*4310 PP SAZ MOTERR ERROR 119*4310 PP SAM MOTERR ERROR 119*4310 PP STA* MOTSAV+1 SAVE LOGICAL UNIT 119*4310 PP SUB LOG1A SEE IF WITHIN 119*4310 PP INA -1 LEGAL LU RANGE 119*4310 PP SAM MOTSAV OK 119*4310 PPMOTERR JMP INVCMD ERROR 119*4310 PPMOTSAV LDA =N0 119*4310 PP ADD =N$1000 119*4310 PP STA* REQMOT+3 119*4310 PP* 119*4310 PP RTJ GETNUM PICKUP INCREMENT 119*4310 PP SAP INCOK VALUE OK 119*4310 PP LDA* MOTCNT SEE IF REWIND REQUEST 119*4310 PP INA -4 119*4310 PP SAZ INCOK 119*4310 PP JMP* MOTERR ERROR 119*4310 PPINCOK SAN STAMOT 119*4310 PP INA 1 119*4310 PPSTAMOT STA* LOOPMT SAVE IN MOTION LOOP COUNTER 119*4310 PP LDQ* MOTCNT PICKUP MOTION COMMAND INDEX 119*4310 PP LDA* MOTTBL,Q 119*4310 PP STA* REQMOT+4 119*4310 PP* 119*4310 PPMOTREQ RTJ- (AMONI) CAN'T DO REPEATED MOTION REQUESTS 119*4310 PP* TO ALL DRIVERS 119*4310 PPREQMOT NUM $5C00 119*4310 PP ADC MOTCMP 119*4310 PP NUM 0 119*4310 PP NUM 0 119*4310 PP NUM 0 119*4310 PP JMP- (ADISP) 119*4310 PP* 119*4310 PPMOTCMP SQP MOTOK 119*4310 PP JMP* MOTERR ERROR ENCOUNTERED PRINT INVALID COMMND119*4310 PPMOTOK LDA* LOOPMT 119*4310 PP INA -1 119*4310 PP STA* LOOPMT 119*4310 PP SAZ MOTEND 119*4310 PP JMP* MOTREQ 119*4310 PPMOTEND JMP GOREDY CLEAR INPUT BUFFER AND GO READY 119*4310 PP* 119*4310 PP* 119*4310 PP EXT LOG1A 119*4310 PP* 119*4310 PPMOTTBL NUM 0 119*4310 PP NUM $6000 119*4310 PP NUM $5000 119*4310 PP NUM $1000 119*4310 PP NUM $3000 119*4310 PP NUM $7000 119*4310 PP* 119*4310 PPLOOPMT NUM 0 MOTION REQUEST LOOP COUNTER 119*4310 PPMOTCNT NUM 0 TYPE OF MOTION REQUEST 119*4310 PPTSPF27 DCK/ I,H PP DEL/ 1 PP NAM EDFDMY DECK-ID F27 FILE MANAGER SUMMARY-116 PP INS/ 4 PP SPC 2 116*4415 PP* DUMMY ROUTINE FOR EDITOR FILE SPACE ALLOCATION 116*4415 PP ENT FMREDF 116*4415 PPFMREDF NUM 0 116*4415 PP JMP* (FMREDF) RETURN TO CALLER 116*4415 PPTSPF28 DCK/ I,H PP DEL/ 1 PP NAM EDRDMY DECK-ID F28 FILE MANAGER SUMMARY-116 PP INS/ 4 PP SPC 2 116*4415 PP* DUMMY ROUTINE FOR EDITOR FILE SPACE RELEASE 116*4415 PP ENT FMREDR 116*4415 PPFMREDR NUM 0 116*4415 PP JMP* (FMREDR) 116*4415 PPTSPF29 DCK/ I,H PPTSPF30 DCK/ I,H PPTSPF31 DCK/ I,H PPTSPF32 DCK/ I,H PPTSPF33 DCK/ I,H PPTSPF34 DCK/ I,H PPTSPF35 DCK/ I,H PPTSPF36 DCK/ I,H PPTSPF37 DCK/ I,H P END/ ÿ*Z ÿ