{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: OLMTE85)}}
====== OLMTE85 ======
(George Source)
**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:BXGE|BXGE]], [[george:macro:BXU|BXU]], [[george:macro:CAPCA|CAPCA]], [[george:macro:CHANGEACT|CHANGEACT]], [[george:macro:CHECKB|CHECKB]], [[george:macro:CLEAR|CLEAR]], [[george:macro:COOR1|COOR1]], [[george:macro:DCA|DCA]], [[george:macro:DFJUMPN|DFJUMPN]], [[george:macro:DFLOAD|DFLOAD]], [[george:macro:DOWN|DOWN]], [[george:macro:FPCACA|FPCACA]], [[george:macro:FPERENT|FPERENT]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETACT|GETACT]], [[george:macro:GETWORD|GETWORD]], [[george:macro:GPERI|GPERI]], [[george:macro:ILLEGAL|ILLEGAL]], [[george:macro:JWPR|JWPR]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LOBJPERIS|LOBJPERIS]], [[george:macro:LOCK|LOCK]], [[george:macro:LOCKC|LOCKC]], [[george:macro:LONGSET|LONGSET]], [[george:macro:LONGSTOP|LONGSTOP]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MURDER|MURDER]], [[george:macro:OUTMOVE|OUTMOVE]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:PAIR|PAIR]], [[george:macro:PROGBRKIN|PROGBRKIN]], [[george:macro:REPMON|REPMON]], [[george:macro:RESTART|RESTART]], [[george:macro:ROLPA|ROLPA]], [[george:macro:RUNPROG|RUNPROG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:STEPBAC1|STEPBAC1]], [[george:macro:STEPBACK|STEPBACK]], [[george:macro:TESTMON|TESTMON]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TOPCA|TOPCA]], [[george:macro:UNLOCK|UNLOCK]], [[george:macro:UNPLUG|UNPLUG]], [[george:macro:WORDFIN|WORDFIN]]
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 [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