PSMC DCK/ I,H PPSMCMON DCK/ I,H PP DEL/ 1 PP NAM SMCMON DECK-ID S02 SMC 1.0 SUMMARY-122 PP INS/ 12 PP* THE FOLLOWING ARE 0 IF UNUSED. 122*4836 PP EXT SMCLU1 F.M. LU AVAILABLE TO SMC 122*4836 PP EXT SMCLU2 F.M. LU AVAILABLE TO SMC 122*4836 PP EXT SMCLU3 F.M. LU AVAILABLE TO SMC 122*4836 PP EXT SMCLU4 F.M. LU AVAILABLE TO SMC 122*4836 PP DEL/ 17 PPIMGSIZ EQU IMGSIZ($196) SIZE OF INTERMEDIATE-MERGE RESIDENT. 122*4836 PP DEL/ 1019 PPPTSQFT ADC SMCLU4 () = D/W/T/P,SKIPCT,A/B,DOCNT,ETC. 122*4836 PP DEL/ 1175,1176 PP*********************** TWO CARDS DELETED ***************** 122*4836 PP DEL/ 1179 PP SAP GTSEXT SKIP IF NOT WORK FILE. 122*4424 PP DEL/ 1183,1185 PPGTSEXT JMP* GTSRTN TAKE P+1(EOF) EXIT IF NO EXTENSION. 122*4424 PP DEL/ 1187 PPGTSEGX LDQ- I () = (I)ENTRY. 122*4424 PP STQ* GTSEGI SAVE (I)ENTRY. 122*4424 PP LDA- FILNUM,I (A) = OLD (EXHAUSTED) FILNUM. 122*4424 PP DEL/ 1197,1199 PP JMP* GTSEG7 122*4424 PP ENQ 1 Q=1 IF NOT EOF 122*4424 PP JMP* GTSEG8 122*4424 PPGTSEG7 CLR Q CLEAR Q IF EOF 122*4424 PPGTSEG8 LDA* GTSEGI () = (I) ENTRY 122*4424 PP DEL/ 1233 PP LDQ* GTSEGI (Q) = (I)ENTRY. 122*4424 PP STQ- I RESTORE (I)ENTRY. 122*4424 PPGTSRTN JMP* (GETSEG) TAKE P+1(EOF) EXIT IF NO EXTENSION. 122*4424 PP DEL/ 1286 PPSEGFT ADC SMCLU4 () = D/W/T/P,SKIPCT,A/B,DOCNT,ETC. 122*4836 PP DEL/ 1681 PP SAZ DEFDNL SKIP IF LUN NOT SPECIFIED 122*4836 PP INS/ 2037 PP TCQ Q 122*4836 PP DEL/ 2039,2040 PP SQN B2HXIT SKIP IF ALL DONE. 122*4836 PP DEL/ 2346 PPYFMLUN ADC SMCLU4,SMCLU3,SMCLU2,SMCLU1 () = 1 TO 4 FILE MRG. 122*4836 PP INS/ 2393 PP LDA PTSQFT 122*4836 PP EOR- HX4000 MAKE SEGMENT LIST A WORK FILE. 122*4836 PP STA PTSQFT 122*4836 PP INS/ 2547 PP LDA YFMLUN,Q EXAMINE USER DEFINE LUN 122*4836 PP DEL/ 2549,2551 PP SAZ SYFML2 SKIP IF LUN EXIST AS F.M. LU 122*4836 PP CLR A 122*4836 PP STA YFMLUN,Q INDICATE NON-EXISTENT LU 122*4836 PPSYFML2 JMP* SYFML1 122*4836 PP DEL/ 2555,2556 PP STA* GFMLUN (A) = USER DEFINED LU. 122*4836 PP CLR Q 122*4836 PP STQ* GFMLU1 (Q) = FWA CURRENT ENTRY - FWA FSLIST122*4836 PPGFMLU0 LDA FSLIST,Q (A)15-7 = NO. WDS. IN LU ENTRY. 122*4836 PP DEL/ 2564,2565 PP EOR* GFMLUN CHECK IF ENTRY IN FSLIST MATCHES 122*4836 PP SAZ GFMLUX SKIP IF USER DEFIND LU EXIST. 122*4836 PP LDQ* GFMLU1 ADVANCE TO NEXT ENTRY IN FSLIST 122*4836 PP JMP* GFMLU0 CONT. SEARCH 122*4836 PPGFMLUX LDQ* GFMLUQ RESTORE (Q)ENTRY. 122*4836 PP JMP* (GFMLU) EXIT. 122*4836 PPGFMLUN NUM 0 CURRENT LU TO COMPARE 122*4836 PPSMCEDT DCK/ I,H PPSMCSRT DCK/ I,H PPSMCIMG DCK/ I,H PP DEL/ 1 PP NAM SMCIMG DECK-ID S05 SMC 1.0 SUMMARY-122 PP DEL/ 232 PP*********************** ONE CARD DELETED ****************** 122*4836 PP DEL/ 338 PP*********************** ONE CARD DELETED ****************** 122*4836 PP DEL/ 348,349 PP* THE CALLING SEQUENCE IS (Q) = NO. OF REAL RSA BINS. 122*4494 PP DEL/ 359 PP*********************** ONE CARD DELETED ****************** 122*4836 PP INS/ 367 PP ENA FTSIZE SIZE OF ONE FILE TABLE 122*4494 PP MUI* G SIZE OF FWAIFT TABLE 122*4494 PP ADD* FWAIFT LWA+1 OF FILE TABLE FOR CURRENT G VAL 122*4494 PP LDQ* G 122*4494 PP QLS 1 NUMBER OF CURRENT FWARSA ENTRIES 122*4494 PP INQ 1 122*4494 PPTNITRS INQ -2 DECREASE BY BIN SIZE. 122*4494 PP SQM TNITSZ 122*4494 PP INA -FTSIZE FWA OF NEXT FILE TABLE 122*4494 PP STA* (FWARSA),Q 122*4494 PP JMP* TNITRS 122*4494 PP DEL/ 370,371 PPTNITSZ LDA* G 122*4494 PP ALS 1 (A) = (G)*(BIN SIZE) 122*4494 PP DEL/ 374 PP INA -2 REPLACE A REAL BIN WITH A PSEUDO BIN. 122*4494 PP DEL/ 380 PP ADD G ADD 1 + SIZE OF TAG STORAGE AREA. 122*4494 PP DEL/ 386,387 PP LDQ TAGCNT (Q) = G-1. 122*4494 PPTNITSQ STQ (FWASEQ),Q SET SEQ (I)=I FOR I=G-1, I=0 STEP-1. 122*4494 PP SQZ TNITAG SKIP IF ALL SEQ NUMBERS ARE SET 122*4494 PP DEL/ 389 PP*********************** ONE CARD DELETED ****************** 122*4836 PP DEL/ 393 PP*********************** ONE CARD DELETED ****************** 122*4836 PP DEL/ 481 PP*********************** ONE CARD DELETED ****************** 122*4836 PPSMCFMG DCK/ I,H PPPARABN DCK/ I,H PPFLOTN DCK/ I,H PPCOMNFP DCK/ I,H P END/ *U ÿ