OLMTE85
(George Source)
Macros used: BXE, BXGE, BXU, CAPCA, CHANGEACT, CHECKB, CLEAR, COOR1, DCA, DFJUMPN, DFLOAD, DOWN, FPCACA, FPERENT, GEOERR, GETACT, GETWORD, GPERI, ILLEGAL, JWPR, LGEOG, LOBJPERIS, LOCK, LOCKC, LONGSET, LONGSTOP, MENDAREA, MFREE, MHUNT, MURDER, OUTMOVE, OUTPACK, PAIR, PROGBRKIN, REPMON, RESTART, ROLPA, RUNPROG, SEGENTRY, SETNCORE, STEPBAC1, STEPBACK, TESTMON, TESTREP, TOPCA, UNLOCK, UNPLUG, WORDFIN
- OLMTE85.txt
22FL #LIS K0OLMTE>K0LIBRARY>K0ALLGEO 22^= ...#SEG OLMTE65 [F.R.BLUNDELL 23DW 8HOLMTE 23YG SEGENTRY K1OLMTE,QK1OLMTE 24D6 SEGENTRY K2OLMTE,QK2OLMTE 24K# ...#UNSET FDRMT 24QG ... SEGENTRY K3OLMTE,QK3OLMTE 24XQ TL1 PAIR OLMTE,2 25CB TPRB 25X2 #HAL APERI+APERIRES,0 26BL TOLP 26W= #HAL AOLPT,0 27*W THDDR 4HHDDR 27TG MT #55640000 28*6 QTEN +10 28SQ TMONC +BBRENAME 29#B # SUBROUTINE TO SET ADDRESS OF PCA IN X7 29S2 SPCAOLP 2=?L LDX 2 FX2 2=R= ADN 2 ACTRING 2?=W SPC1 2?QG LDX 2 1(2) [BACKWARD POINTER 2#=6 LDX 7 2 2#PQ SBN 7 ACTRING 2*9B LDCT 1 #770 2*P2 SMO 7 2B8L ANDX 1 ATYPE 2BN= SMO FX1 2C7W BXU 1 PCATYPE,SPC1 [BRANCH IF NOT APET 2CMG LDX 1 FX1 2D76 LDX 2 FX2 2DLQ EXIT 0 0 2F6B PCATYPE 2FL2 #HAL +APET,0 2G5L # 2GK= # 2H4W [THIS SUBROUTINE SEARCHES THE ACTIVITY CHAIN UNTIL A PRB (APERI/APERIRES 2HJG [BLOCK IS FOUND. IF A NON ACTIVITY TYPE BLOCK IS FOUND A GEOERR XBLK 2J46 [IS GIVEN. 2JHQ SPRB 2K3B LDX 3 FPTR(3) 2KH2 LDX 6 ATYPE(3) 2L2L BXGE 6 CACT,OERR 2LG= BXU 6 TPRB(1),SPRB 2L^W EXIT 0 0 2M2= ...#UNS FDRMT 2M2L ...( 2M32 ...# 2M3B ...# 2M3Q ...[ SUBR FOR ILLEGAL PERIS TO MARK THE PRB ENTRY ONLINE 2M46 ...[ AND MURDER THE AOLPT IF DRM IS IN USE 2M4G ...SCHDRM 2M4W ... SBX 7 FX1 2M5= ... SMO 5 2M5L ... LDX 0 K52+4 2M62 ... ANDN 0 4 2M6B ... BZE 0 SNDRM [J IF NOT DRM 2M6Q ... LDCH 0 ATYPE(2) 2M76 ... SBN 0 CPAT/64 2M7G ... BZE 0 SDRM0 2M7W ... CAPCA 2M8= ...SDRM0 2M8L ... FPCACA 3,FX2 2M92 ... CALL 0 SPRB [FIND PRB 2M9B ... ADN 3 A1 2M9Q ... FPERENT 4,3,2,6 [FIND PRB ENTRY 2M=6 ... BNG 2 OERR2 2M=G ... STO 5 1(2) [PUT ONLINE 2M=W ... SBN 3 A1 2M?= ...SDRM1 2M?L ... LDX 3 FPTR(3) [FIND AOLPT 2M#2 ... LDX 0 ATYPE(3) 2M#B ... BXE 0 TOLP(1),SDRM2 2M#Q ... BXGE 0 CACT,OERR1 2M*6 ... BRN SDRM1 2M*G ...SDRM2 2M*W ... BCT 6 SDRM1 2MB= ... LOCK 3 [KILL AOPLT 2MBL ... MURDER 3 2MC2 ...SNDRM 2MCB ... ADX 7 FX1 2MCQ ... EXIT 7 0 2MD6 ...# 2MDG ...# 2MDW ...) 2MFG [ENTRY POINT FOR PERI AFTER A REWIND 2M^6 [ 2) FREES THE AREWIND ACTIVITY BLOCK 2NDQ QK1OLMTE 2NYB [ 1) CHECK THAT WRITE A BLOCK/WRITE A TAPE MARK IS NOT THE NEXT 2PD2 [ INSTRUCTION TO BE GIVEN. 2PXL [ 2) UNPLUG PROGRAM 2QC= [ 3) FIND PRB BLOCK AND SET ENTRY ONLINE 2QWW [ 4) FIND OFF LINE ACTIVITY BLOCK AND FREE IT. 2RBG DFJUMPN 5,REW,PROCEED [JUMP IF REWIND FINISHED 2RW6 CALL 0 SPCAOLP [SET X7 = ADDRESS OF PCA 2S*Q STEPBAC1 ,7 [STEP BACK OBJECT PROGRAM 2STB LDX 1 FX1 2T*2 TOPCA TL1(1) 2TSL COOR1 2W#= BRN K1OLMTE 2WRW QK2OLMTE 2X?G UNPLUG 1 2XR6 CAPCA 2Y=Q PAGAN 2YQB DFJUMPN 5,REW,RESTART [JUMP IF REWFND JUST FINISHED 2^=2 LGEOG 5,3 2^PL LONGSET AREWT,OERR3,3 329= LONGSTOP UBRKIN 32NW BRN PAGAN 338G UBRKIN PROGBRKIN 33N6 RESTART RUNPROG 33NC ...#UNSET FDRMT 33NN ...( 33N^ ...QK3OLMTE 33P= ... LDX 3 2 [SET X3 = PCA 33PH ... CALL 0 SPRB [FIND PRB 33PS ... ADN 3 A1 33Q5 ... FPERENT 4,3,2,6 [FIND ENTRY IN PRB 33QB ... BNG 2 OERR2 [ENTRY NOT IN PRB 33QM ... LDX 7 1(2) [GET DEVICE LIST POINTER 33QY ... LOBJPERIS 7,7 33R9 ... LDX 0 GSIGN 33RG ... STO 0 1(2) [SET PRB ENTRY OFF-LINE 33RR ... ADN 6 1 [UPDATE X6 FOR ROLPA 33S4 ... LDX 3 2 [PRESERVE PRB PTR 33S* ... GETACT AOLPT,,1 33SL ... LDX 1 3 [PRESERVE PRB PTR 33SX ... LDX 3 BPTR(2) [X3 POINTS TO AOLPT 33T8 ... STO 1 ACOMMUNE1(3) 33TF ... STO 4 ACC4(3) 33TQ ... STO 5 ACC5(3) 33W3 ... STO 5 AWORK4(3) 33W# ... LDX 0 EVENT2(2) [EVENT WORDS SET BY EXEC 33WK ... STO 0 EVENT2(3) [MUST BE TAKEN FROMTHE PCA AND 33WW ... LDX 0 EVENT4(2) [STORED IN THE AOLPT'S EVENT WORDS 33X7 ... STO 0 EVENT4(3) 33XD ... LDN 0 2 [ONLINE MT INDICATOR 33XP ... STO 0 ATMARK(3) 33Y2 ... LDX 0 GSIGN 33Y? ... ORS 0 ALTMARK(3) [TAPE 'GIVEN' 33YJ ... STO 0 FRECHADD(3) [CHAIN ACTIVITY IF EVENT 33YT ... LDX 0 JOBNO(2) 33^6 ... STO 0 JOBNO(3) [JOB NUMBER 33^C ... STO 7 ACOUNT(3) [COUNT OF OBJECT PROGRAM PERIS 33^N ... STO 2 APETADDR(3) 33^^ ...#SKI G4 342= ...( 342H ... SMO FX2 342S ... LDN 2 HLOCK1 3435 ... ADN 3 HLOCK1 343B ... MOVE 2 8 [COPY HLOCK AREAS OF PCA TO AOLPT 343M ... LDX 2 FX2 343Y ... CLEAR 2,2 [CLEAR PCA'S HLOCK AREAS 3449 ...) 344G ... ROLPA 2 [CHAIN AOLPT USING PTR TO PCA 344R ... CHANGEACT 6 [CHANGE TO AOLPT 3454 ... LOCKC 2,£ [LOCK AOLPT 345* ... LDX 3 ACOMMUNE1(2) [PRB PTR 345L ... ADN 2 CHAINADD 345X ... ORS 2 1(3) [AOLPTS CHAINING ADDR IN PRB ENTRY 3468 ... SBN 2 CHAINADD 346F ...) 347Q PROCEED 34MB STO 5 CPPTR(2) 3572 CALL 0 SPCAOLP [SET X7 = ADDRESS OF PCA 35LL LDN 3 4 366= CHECKB EVENT2(2),3,RESV8,7,,V0 36KW BRN V00 375G V0 CALL 0 SPCAOLP [SET X7 = ADDRESS OF PCA 37K6 V00 LDN 6 ACOMMUNE1(2) 384Q OUTMOVE 7,EVENT2(2),6,3 [COPY CONTROL AREA 38JB CLEAR 7,0 3942 LDX 6 EVENT4(2) [COPY OF FIRST WORD OF CONTROL AREA 39HL ANDN 6 #1777 [EXTRACT MODE 3=3= SBN 6 1 3=GW BZE 6 V1 [BRANCH IF WRITE PERI 3?2G SBN 6 4 3?G6 BZE 6 V2 [BRANCH IF WRITE TAPE MARK PERI 3?^Q CHANGEACT 7 3#FB UNPLUG 1 3#^2 CAPCA 3*DL V4 3*Y= STEPBACK 3B84 ...V4A 3BCW FPCACA 3,FX2 [SET X3 = ADDRESS OF PCA 3BXG CALL 0 SPRB [FIND PRB 3CC6 ADN 3 A1 3CWQ FPERENT 4,3,2,6 [FIND ENTRY IN PRB 3DBB BNG 2 OERR2 3DW2 STO 5 1(2) 3F*L SBN 3 A1 3FT= SBLOC 3G#W LDX 3 FPTR(3) 3GSG LDX 0 ATYPE(3) 3H#6 BXE 0 TOLP(1),SB1 3HRQ BXGE 0 CACT,OERR1 3J?B BRN SBLOC 3JR2 SB1 3K=L BCT 6 SBLOC 3KQ= LOCK 3 [TO MURDER 3L9W MURDER 3 3LPG RUNPROG 3M96 # 3MNQ # [AWORK2(2)=ADDRESS OF LABEL 3N8B V1 3NN2 LDN 6 1 3P7L V2 3PM= JWPR ,V2A 3Q6W CHANGEACT 7 3QLG UNPLUG 1 3R66 BRN V16A 3RKQ V2A 3S5B DFJUMPN ,NONS,STANDARD [JUMP IF STANDARD TAPE 3SK2 LDX 3 EVENT2(2) [ADDRESS OF CONTROL AREA 3T4L CHANGEACT 7 3TJ= TESTMON ,TMONC(1),4,S1 [BRANCH IF MONITORING ON RENAME 3W3W UNPLUG 1 3WHG CAPCA [TO CPAT ACTIVITY 3X36 LDN 0 8 [ERASE MODE 3XGQ DCA 5,DLA,0,MODE 3XQJ ... SEGENTRY K8OLMTE 3Y2B LDN 0 #3777 3YG2 DCA 5,STO,0,COUNT 3Y^L LOCKC 2,£ 3^F= STO 5 CPPTR(2) 3^YW GPERI ,2 [ERASE PERI 42DG COOR1 42Y6 UNLOCK 2 43CQ LDCH 0 CPRW1(2) [REPLY CHARACTER 43XB BNZ 0 V15 44C2 BRN V4 44K= ...V7 44RG ...#UNS FDRMT 44^Q ... CALL 7 SCHDRM 4582 ... ILLEGAL NOBUF 45B= V8 MHUNT 3,AONBS,GREN [RELOCATE BLOCK 45TW BRN V9 45^R ...V10 465N ...#UNS FDRMT 469K ...( 46*G ... LDX 1 FX1 46FC ... CALL 7 SCHDRM 46K# ...) 46P9 ... ILLEGAL ILLINS [NOT A SUITABLE HEADER 46T6 # STANDARD TAPES CASE 47#Q STANDARD 47SB BZE 6 V5 [BRANCH IF WTM MODE 48#2 DFLOAD 5,TSN,3 48RL ORX 3 GSIGN 49?= ERX 3 GSIGN [REMOVE B0 49QW LDX 6 ACOMMUNE3(2) [LENGTH OF TRANSFER 4==G LDX 2 7 4=Q6 SMO FX2 4?9Q LDX 7 ACOMMUNE4 4?PB STO 7 AWORK2(2) [STORE ADDRESS OF BUFFER 4#92 SMO FX2 4#NL LDX 7 EVENT2 4*8= CHANGEACT 2 4*MW TESTMON ,TMONC(1),4,S2 [BRANCH IF MONITORING ON RENAME 4B7G UNPLUG 4BM6 SBN 6 9 4C6Q BNG 6 V10 [BRANCH IF NEW HEADER TOO SHORT 4CLB ADN 6 9 4D62 LDX 7 AWORK2(2) [LOAD ADDRESS OF BUFFER 4DKL STO 3 AWORK2(2) [TSN 4F5= SETNCORE 8,3,AONBS,GREN 4FJW CHECKB 7,6,V7,,,V8 4G4G V9 4GJ6 LDN 1 A1(3) [ADDRESS 4H3Q LDN 2 8 [NUMBER OF WORDS 4HHB OUTMOVE FX2,7,1,2 4J32 MHUNT 3,AONBS,GREN 4JGL LDX 1 FX1 [EXAMINE BLOCK TO BE WRITTEN 4K2= LDX 2 FX2 4KFW LDX 0 A1(3) 4K^G TXU 0 THDDR(1) [NOT 'HDDR' 4LF6 BCS V10 4LYQ LDX 0 A1+1(3) 4MDB TXU 0 AWORK2(2) 4MY2 BCS V10 [NOT SAME TSN 4NCL LDCH 0 A1+2(3) [NAME 4NX= SBN 0 #41 4PBW BNG 0 V10 [<A 4PWG SBN 0 #32 4QB6 BPZ 0 V10 [>Z 4QTQ LDN 1 11 4R*B V11 BCHX 3 £ 4RT2 LDCH 0 A1+2(3) 4S#L SBN 0 #41 4SS= BPZ 0 V12 [>A 4T?W ADN 0 23 4TRG BNG 0 V13 [DIGIT 4W?6 SBN 0 6 4WQQ BZE 0 V13 4X=B SBN 0 #15 4XQ2 BZE 0 V13 4Y9L BRN V10 [OTHERWISE ILLEGAL 4YP= V12 SBN 0 #32 4^8W BPZ 0 V10 [>Z 4^NG V13 BCT 1 V11 [NEXT CHARACTER 5286 BCHX 3 £ 52MQ LDX 0 A1+2(3) 537B SBN 0 512 53M2 BPZ 0 V10 [REEL > 512 546L SBN 3 3 54L= LDN 0 #7777 555W ANDS 0 A1+6(3) [TRUNCATE GENERATION 55KG LDN 1 A1(3) 5656 LDN 0 A1+1(3) 56JQ MOVE 0 7 [MOVE UP BLOCK 574B STOZ A1(3) [TSN 57J2 CAPCA AONBS,GREN [INTO CPAT 583L STO 5 CPPTR(2) 58H= LDN 0 20 592W STO 0 ACOMMUNE2(2) [LENGTH 59GG LDN 0 1 5=26 STO 0 ACOMMUNE3(2) [DON'T WRITE 5=FQ DOWN RENAMEMT,1 [RENAME FILES 5=^B BRN V16 5?F2 STOZ CPPTR(2) 5?YL TESTREP OK,V14 5#D= MFREE AONBS,GREN 5#XW V15 5#YP ...#UNS FDRMT 5#^J ...( 5*2C ... SMO 5 5*3= ... LDX 0 K52+4 5*45 ... ANDN 0 4 [J IF NOT DRM 5*4Y ... BZE 0 V15A 5*5R ... FPCACA 3,FX2 5*6L ... LDX 6 EVENT2(3) 5*7F ... ADN 6 1 [REPLY WORD ADDRESS 5*8# ... GETWORD 6,3,WRITE 5*97 ... TESTREPN OK,OERR4 5*=2 ... LDX 0 CPRW1(2) 5*=T ... STO 0 0(3) [STORE FAILED REPLY 5*?N ... WORDFIN 5*#H ... BRN V4A 5**B ...V15A 5*B9 ...) 5*CG STEPBACK 5*X6 ANDN 4 #777 5BBQ ... LDCT 3 5 5BWB ... ADX 3 4 5CB2 ...V15B OUTPACK 3,1,PERINAME,V15B 5K9G ILLEGAL PERFAIL [FAILED 5KP6 V14 MFREE AONBS,GREN [IF OK,... 5L8Q BRN V4 [RESTART PROGRAM. 5LNB V16 MFREE AONBS,GREN 5M82 STOZ CPPTR(2) 5MML V16A 5MQ9 ...#UNS FDRMT 5MSS ...( 5MXC ... LDX 1 FX1 5N22 ... CALL 7 SCHDRM 5N4K ...) 5N7= ILLEGAL NOWPR 5NLW V5 CHANGEACT 7 5P6G UNPLUG 1 5P?N ...#UNS FDRMT 5PDW ... CALL 7 SCHDRM 5PL6 ILLEGAL MODESEQ 5Q5Q # 5QKB # 5R52 # MONITORING ON RENAME 5RJL S1 5S4= LDX 7 3 [LOAD OBJ PROG ADDRESS OF C.A. 5SHW S2 5T3G LDX 6 4 [LOAD TYPE AND UNIT NO. 5TH6 LDN 5 BBRENAME 5W2Q REPMON 1 5WGB # 5X22 RESV8 5X78 ...#UNS FDRMT 5X#B ... CALL 7 SCHDRM 5XFL ILLEGAL NOCA 5X^= OERR GEOERR 1,XBLK 5YDW OERR1 GEOERR 1,XPROG 5YYG OERR2 GEOERR 1,XPRB 5^D6 OERR3 GEOERR 1,WOKEN 5^K# ...#UNS FDRMT 5^QG ...OERR4 GEOERR 1,XREPWD 5^XQ MENDAREA 50,K99OLMTE 62CB #END ^^^^ ...11030077000400000000