{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LIBREQ866)}}
====== LIBREQ866 ======
(George Source)
**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:BXL|BXL]], [[george:macro:BXU|BXU]], [[george:macro:CONSERNO|CONSERNO]], [[george:macro:DOWN|DOWN]], [[george:macro:FINDPEREC|FINDPEREC]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GROPEREC|GROPEREC]], [[george:macro:HUNT|HUNT]], [[george:macro:INFORM|INFORM]], [[george:macro:JBS|JBS]], [[george:macro:JENV|JENV]], [[george:macro:JONL|JONL]], [[george:macro:JWPR|JWPR]], [[george:macro:JWRONG|JWRONG]], [[george:macro:LADDP|LADDP]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LJOBNO|LJOBNO]], [[george:macro:LONGSET|LONGSET]], [[george:macro:LPROP|LPROP]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MOCH|MOCH]], [[george:macro:MONICA|MONICA]], [[george:macro:MONOUT|MONOUT]], [[george:macro:MTCHAR|MTCHAR]], [[george:macro:MTINFORM|MTINFORM]], [[george:macro:MTREQUEST|MTREQUEST]], [[george:macro:OUTMESS|OUTMESS]], [[george:macro:OUTMTPROP|OUTMTPROP]], [[george:macro:OUTNULL|OUTNULL]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:OUTPARAX|OUTPARAX]], [[george:macro:OUTPAUSE|OUTPAUSE]], [[george:macro:PICKREP|PICKREP]], [[george:macro:PUTREP|PUTREP]], [[george:macro:REPEAT|REPEAT]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETMODE|SETMODE]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETREP|SETREP]], [[george:macro:SETUPMODE|SETUPMODE]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:TESTMODE|TESTMODE]], [[george:macro:TESTREP|TESTREP]], [[george:macro:UNLOAD|UNLOAD]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]], [[george:macro:VFREE|VFREE]], [[george:macro:VFREEW|VFREEW]]
22FL SEG LIBREQ,6,M.B.KINGHAM,LIBRARY
22^= # THIS SEGMENTS ASSEMBLES AND PUTS OUT THE MESSAGES
23DW # CONCERNED WITH LOADING A MAG TAPE
23YG #
24D6 # K1LIBREQ IS THE ENTRY POINT WHEN THE TAPE IS ALREADY
24XQ # LOADED. X5 MUST CONTAIN THE CORRECT VALUE
25CB # K2LIBREQ IS THE ENTRY POINT WHEN THE TAPE IS NOT LOADED
25X2 # X4 AND X5 MUST CONTAIN THE CORRECT VALUES
26BL #
26W= # K3LIBREQ IS THE ENTRY POINT WHEN THE STATE OF THE WPR IS
27*W # NOTCORRECT. X5 MUST CONTAIN CORRECT VALUE
27TG # X4 MUST CONTAIN GEOG: NO. OF TAPE CONCERNED
28*6 # X7=0 WRP NEEDED - X7=1 NOWPR NEEDED
28SQ # FOR ALL ENTRY POINTS X6 MUST CONTAIN THE TSN IF KNOWN
29#B # AND A FLIB/FTSN MUST BE PRESENT CONTAINING IT.
29S2 # IF THE TSN IS NOT KNOWN X6=0 AND NO FLIB/FTSN.
2=?L # THE SEGMENT GOES UP FOR BREAKIN
2=R= # OR UPPLUS 1 FOR ANY OF THE FOLLOWING REPLIES
2?=W # 1- OK
2?QG # 2- USWRONG
2#=6 # 3- OPWRONG
2#PQ # 4- CLUDGE
2*9B # 5- CANT
2*P2 # 6- NOTUP
2B8L # 7- NODECKS
2BN= # 8- NOTAV
2C7W #
2C*4 ...# K4LIBREQ IS ENTRY POINT FROM ENGAGE SEGMENT
2CG= ...# AND HAS NOTHING TO DO WITH TAPE REQUESTS.
2CMG SEGENTRY K1LIBREQ,QK1LIBR
2D76 SEGENTRY K2LIBREQ,QK2LIBR
2DLQ SEGENTRY K3LIBREQ,QK3LIBR
2D^6 ... SEGENTRY K4LIBREQ,QK4LIBR
2F6B #
2FL2 #
2G5L PENRZI #201
2G*C ...ZTRACK9 +HWPTRACK9
2GD2 ...ZGCR +HWPGCR
2GK= QFAST 4HFAST
2H4W QSLOW 4HSLOW
2H?C ...[
2HFY ...[ SUBROUTINE TO GROPE FOR ANONYMOUS DECKS WHEN NO DECKS AVAILABLE
2HNF ...[
2HX2 ...XGROPE
2J5H ... SBX 7 FX1
2J#4 ... LDX 2 FX2
2JGK ... STO 7 AWORK3(2)
2JP6 ... JENV XGR2,CME,EXCL
2JXM ...TNOD2
2K68 ... LDX 7 AWORK3(2)
2K#P ... ADX 7 FX1
2KH= ... EXIT 7 0
2KPR ...[ CME ENVIRONMENT - HAVE WE GROPED ALREADY
2KY# ...XGR2 LDX 0 AWORK4(2)
2L6T ... BNZ 0 TNOD2
2L*B ...[ WE HAVE NOT GROPED YET - ARE THERE ANONYMOUS DEVICES
2LHX ... LDN 3 GPDA
2LQD ... LDX 0 16(3)
2LY^ ... BZE 0 TNOD2 [NO ANONYMOUS DEVICES
2M7G ... LDN 7 5
2MB3 ... GROPEREC 3,APTYPE,7
2MJJ ... STO 7 AWORK4(2)
2MR5 ... BNG 3 TNOD2 [GROPE UNSUCCESSFUL
2M^L ... VFREEW GMON,ASET
2N87 ... LDCT 0 #100
2NBN ... ORS 0 CLONG1(2)
2NK9 ... ERS 0 CLONG1(2)
2NRQ ... BRN REPEAT [ GROPE SUCCESSFUL -GO TO REPEAT SEARCH
2P2? ...[
2P8S ...[
2PD2 OL LJOBNO 3,0
2PXL BZE 0 T1 [J IF THIS JOB HAS NOT ALREADY
2QC= BXU 0 JOBNO(2),TFAC [GOT THIS TAPE
2QWW SETREP CLUDGE
2RBG UPPLUS 1
2RW6 TFAC
2S*Q SETMODE 0,REPLY
2STB ANDX 0 AWORK1(2) [J IF REPLY MODE NOT SET
2T*2 BZE 0 T1
2TSL SETREP CANT
2W#= UPPLUS 1
2WRW TNOD
2WTD ... CALL 7 XGROPE
2X#H ... BRN REP3
2XRL ...#
2Y=Q QK1LIBR
2YGJ ... STOZ AWORK4(2)
2YQB BZE 6 T1
2^=2 FINDPEREC 3,APTSER,6
2^PL BNG 3 T1
329= JONL 3,OL [J IF ONLINE
32NW T1 LDN 4 1 [INDICATE TAPE UP
338G BZE 5 REPEAT [J IF FIRST TIME ROUND
33N6 REENTA
347Q # RESTORE EXEC3 AFTER OUTPAUSE
34MB RE1 HUNT 3,FLIB,CADUMP
3572 BNG 3 REENT1
35LL LDX 0 A1(3)
366= STO 0 EXEC3(2)
36KW BRN REENT1
375G QK2LIBR
37K6 NOTUP
37SY ... STOZ AWORK4(2)
384Q SETUPMODE ,0,TAPEUP
38JB ANDX 0 AWORK2(2)
3942 BZE 0 NOT
39HL SETREP NOTUP
3=3= UPPLUS 1
3=GW NOT
3?2G BZE 5 REPEAT [J IF FIRST TIME ROUND
3?G6 BZE 4 REENTA
3?^Q STOZ 4
3#FB REPEAT
3#^2 HUNT 3,FLIB,FSPD
3*DL BNG 3 REP3
3*Y= MTCHAR A1(3)
3BCW LDX 3 ACOMMUNE1(2)
3BXG BNG 3 REP3
3CC6 LDN 7 5
3CWQ FINDPERE 2,APFOTY,7,REENTF
3DBB BNG 2 TNOD
3DW2 JWRONG 2,REENTF
3F*L LPROP 2,0
3FT= BXL 3 PENRZI(1),REP1
3FW^ ... LDX 7 0
3FYN ... ANDN 0 4
3G2C ... BZE 0 REP0 [J IF NOT 2510 DECK
3G46 ... ANDN 7 #203
3G5T ... BXE 7 3,REP3 [J IF CORRECT MODE
3G7J ... ERN 7 3 [TRY OTHER MODE
3G7Q ... TXU 7 ZTRACK9(1)
3G7S ... BCC XGCR [DECK IS IN GCR MODE
3G7W ...[ IF GCR MODE REQUESTED SEE IF DECK CAPABLE OF GCR MODE
3G7Y ... TXU 3 ZGCR(1)
3G82 ... BCS REP0 [NOT GCR-GO TO CHECK OTHER MODE
3G84 ... JBS REP2A,2,CAPMODGCR
3G86 ... LDN 7 5
3G88 ...[ GCR MODE REQUESTED BUT NOT AVAILABLE-GO TO FIND OTHER DECK
3G8= ... BRN REENTF
3G8# ...[ DECK IN GCR MODE - BUT GCR MODE NOT REQUESTED
3G8B ...[ SEE IF VALID MODE REQUESTED
3G8D ...XGCR ORN 7 1
3G8G ... TXU 7 3
3G8J ... BCC REP2A
3G8L ... ERN 7 3
3G9? ...REP0 LDX 0 7
3G?2 ... LDN 7 5
3G#W ANDN 0 #203
3GSG BRN REP2
3H#6 REP1
3HRQ ANDN 0 #200
3J?B REP2
3JR2 BXU 0 3,REENTF
3JRS ...REP2A
3JWT ... BNZ 0 REP3 [J IF NOT 7 TRACK
3JY6 ... HUNT 1,CPAR,GPERCON
3J^C ... BNG 1 REP3
3K2N ... STO 2 7
3K3^ ... MOCH 2 [CHECK DECK IS SWITCHABLE TO
3K5= ... LDX 2 7
3K6H ... LDN 7 5
3K7S ... TESTREPN OK,REENTF [ REQUIRED MODE
3K=L REP3
3KQ= LDX 2 FX2
3L9W LDX 0 CONTEXT(2)
3LPG ANDN 0 1
3M96 BZE 0 T3A
3MNQ BNZ 6 T2 [J IF TSN KNOWN
3N8B HUNT 3,FILE,FABSNB
3NN2 SMO A1(3)
3P7L LDN 7 A1-6
3PM= LDN 3 12
3Q6W OUTPARAX 3,7,FILE,FABSNB [OUTPUT LOCAL NAME IN WAITING FOR %A
3QLG BRN T3
3R66 T2
3RKQ HUNT 3,FLIB,FTSN [OUTPUT TSN IN WAITING FOR %A
3S5B OUTPARAM A1(3),A1+1,FLIB,FTSN
3SK2 T3
3T4L MONOUT FWAITING [WAITING FOR %A
3TJ= T3A
3W3W BNZ 4 OUTP [J IF TAPE UP
3WHG BZE 6 T4 [J IF TSN NOT KNOWN
3X36 HUNT 3,FLIB,FTSN [TSN FOR PLEASE LOAD
3XGQ OUTPARAM A1(3),A1+1,FLIB,FTSN
3YG2 T4
3Y^L LDX 0 JOBNO(2)
3^F= STO 0 EXEC1(2)
3^YW NGN 0 1
42DG STO 0 EXEC2(2) [SET UP CHARACTER STRINGS FOR
42Y6 DOWN CONSERNO,3 [MESSAGES: LOCAL NAME (RN,FGN) FOR
43CQ BRN TN1 [JOB NO. N
43MJ ... BNZ 6 T5 [J IF TSN KNOWN
43XB HUNT 3,AONBS,GTN
44C2 OUTPARAM A1+4(3),A1+5,AONBS,GTN
44WL HUNT 3,AONBS,GTN
45B= OUTPARAM A1+8(3),A1+9,AONBS,GTN
45TW T5
46*G HUNT 3,CPAR,GPERCON
46T6 BNG 3 WPRNULL [J IF NO WPR REQUIREMENT
47#Q LDX 0 A1+2(3)
47SB ANDN 0 1
48#2 BNZ 0 WPR [J IF NO WPR REQUIREMENT
48RL WPRNULL
49?= OUTNULL
49QW BRN WP
4==G WPR
4=Q6 LDX 0 A1+1(3)
4?9Q ANDN 0 1
4?PB BZE 0 NOWPR
4#92 OUTMESS AWP [WPR NEEDED
4#NL BRN WP
4*8= NOWPR
4*MW OUTMESS HNOWP [NOWPR NEEDED
4B7G # OUTPUT MODE REQUIREMENTS HERE
4BM6 WP
4B^H ... HUNT 3,CPAR,GPERCON
4C?Y ... BNG 3 T4B
4CLB NGN 0 2
4D62 ANDX 0 A1+2(3)
4DKL BZE 0 T4B
4F5= OUTMESS HMODE2
4FJW MONICA
4G4G HUNT 3,AONBS,GROT
4GJ6 OUTPARAM A1(3),A1+1,AONBS,GROT
4H3Q BRN T4A
4HHB T4B
4J32 OUTNULL
4JGL OUTNULL
4K2= T4A
4K^G HUNT 3,AONBS,GTN
4L9# ... BNZ 6 TSN [J IF TSN KNOWN
4LF6 OUTPARAM A1+12(3),A1+13,AONBS,GTN
4LYQ ... BRN SPEED
4MDB TSN
4MFY ... LDCH 0 A1+13(3) [X0 => FIRST CHARACTER OF JOBNUMBER
4MHG ... BZE 0 TSNA [J IF ZERO JOBNUMBER
4MK4 ... OUTMESS FJOBN [OUTPUT 'FOR JOB NUMBER'
4MLL ... MHUNT 3,AONBS,GTN [OUTMESS COORDINATES
4MN8 ... OUTPARAM A1+12(3),A1+13,AONBS,GTN
4MPQ ... BRN SPEED
4MR# ...TSNA
4MSW ... OUTNULL [NO JOBNUMBER -
4MWD ... OUTNULL [I.E. SYSTEM REQUEST
4MY2 SPEED
4N7S ... MFREE AONBS,GTN
4NCL HUNT 3,FLIB,FSPD
4NX= LDN 7 0
4PBW BNG 3 SPED0
4PWG LDX 7 A1(3)
4QB6 SPED0
4QTQ LDX 0 7
4R*B ANDN 0 +GLIBFAST
4RT2 BZE 0 SPED1 [BRANCH UNLESS FAST PROPERTY
4S#L LDX 0 QFAST(1)
4SS= BRN SPED3
4T?W SPED1
4TRG LDX 0 7
4W?6 ANDN 0 +GLIBSLOW
4WQQ BNZ 0 SPED2 [BRANCH IF SLOW PROPERTY
4X=B OUTNULL
4XQ2 BRN SPED4
4Y9L SPED2
4YP= LDX 0 QSLOW(1)
4^8W SPED3
4^NG STO 0 ACOMMUNE1(2)
5286 LDN 3 4
52MQ OUTPARAM 3,ACOMMUNE1
537B SPED4
53M2 STO 7 ACOMMUNE1(2)
546L DOWN TRANSPOT,2
54L= PICKREP 7
555W TESTREP OK,UNIT4
55KG HUNT 3,FLIB,FSPD
5656 BNG 3 UNIT3
56=# ... OUTMTPROP A1(3)
5DSW BRN UNIT4
5F#G UNIT3
5FS6 OUTNULL
5G?Q UNIT4
5GRB PUTREP 7
5H?2 BZE 6 T6
5HQL TESTREP NOTAV,T7 [J IF NO DECKS AVAILABLE
5J== MTREQUEST HLOAD
5JPW BRN OUTP
5K9G T7
5KF# ... CALL 7 XGROPE
5KP6 SETUPMODE ,0,DECKS
5L8Q ANDX 0 AWORK2(2)
5LNB BZE 0 T9 [J IF DECKS MODE NOT SET
5M82 SETREP NODECKS
5MML UPPLUS 1
5N7= T9
5NLW MTREQUEST HWHEN
5P6G BRN OUTP
5PL6 T6
5Q5Q PICKREP 7 [SAVE REPLY FROM TRANSPOT
5QKB HUNT 3,FLIB,FNOS [TSNS FROM LIBMANY?
5R52 BNG 3 T61
5RJL OUTMESS HTSN1 [OUTPUT :TSN
5S4= HUNT 3,FLIB,FNOS
5SHW CONSERNO A1(3)
5T3G HUNT 2,FLIB,FTSN [1ST TSN
5TH6 OUTPARAM A1(2),A1+1,FLIB,FTSN
5W2Q MFREE FLIB,FTSN
5WGB HUNT 3,FLIB,FNOS
5X22 CONSERNO A1+1(3)
5XFL HUNT 2,FLIB,FTSN [2ND TSN
5X^= OUTPARAM A1(2),A1+1,FLIB,FTSN
5YDW MFREE FLIB,FTSN
5YYG T61 PUTREP 7 [RESTORE REPLY
5^D6 TESTREP NOTAV,T8 [J IF NO DECKS AVALLABLE
5^XQ MTREQUEST JLOMT
62CB BRN OUTP
62X2 T8
63BL SETUPMODE ,0,DECKS
63W= ANDX 0 AWORK2(2)
64*W BZE 0 T10 [J IF DECKS MODE NOT SET
64TG SETREP NODECKS
65*6 UPPLUS 1
65SQ T10
66#B MTREQUEST JLOWAV
66S2 OUTP
66^S ... TESTMODE AWORK2(2),OUTPCNT,NOT,INFORM
673Q ... SETREP INFORM
675N ... UPPLUS 1
677L ...OUTPCNT
67?L OUTPAUSE XBRKIN,WOKEN,XCANTDO,2,REENT1
67R= LDN 5 1 [INDICATE PLEASE LOAD
68=W BRN REPEAT
68QG WOKEN
69=6 LDN 5 1 [INDICATE PLEASE LOAD
69PQ # PRESERVE EXEC3 FOR OUTPAUSE
6=9B HUNT 3,FLIB,CADUMP
6=P2 BPZ 3 WOK1
6?8L SETNCORE 1,3,FLIB,CADUMP
6?N= WOK1 LDX 0 EXEC3(2)
6#7W STO 0 A1(3)
6#MG WOKENA
6*76 HUNT 3,FLIB,FREP
6*LQ BPZ 3 XCA
6*^6 ... TESTMODE AWORK2(2),NOLONG,,INFORM [J IF INFORM NOT REQD
6B6B LONGSET #61,WTSTYLE,6
6BB8 ...NOLONG
6BL2 STO 4 ACOMMUNE4(2) [FOR CALLING SEGMENT
6C5L STO 5 ACOMMUNE5(2)
6CK= SETREP OK [INDICATE WOKEN
6D4W UPPLUS 1
6DJG XBRKIN
6F46 UP
6FHQ WTSTYLE
6G3B GEOERR 1,WTSTYLE
6GH2 XCANTDO
6H2L HUNT 3,FLIB,FREP
6HG= BNG 3 T11 [J IF NOT WRONGED
6H^W XCA LDX 0 A1(3)
6JFG BZE 0 T12 [J IF USER WRONGED
6J^6 SBN 0 1
6KDQ BZE 0 T14
6KYB SETREP QUERY
6LD2 BRN T13
6LXL T14
6MC= SETREP OPWRONG
6MWW BRN T13
6NBG T12
6NW6 SETREP USWRONG
6P*Q T13
6PTB MFREE FLIB,FREP [FREE REPLY BLOCK
6Q*2 UPPLUS 1
6QSL T11
6R#= SETREP NOTAV [INDICATE CANTDO
6RRW STO 4 ACOMMUNE4(2)
6S?G STO 5 ACOMMUNE5(2)
6SR6 UPPLUS 1
6T=Q TN1 [BREAKIN FROM CONSERNO
6TQB VFREE GMON,ASET
6W=2 UP
6WPL QK3LIBR [ENTRY FOR LPR IN WRONG STATE
6WWS ... STOZ AWORK4(2)
6X42 ... TESTMODE AWORK2(2),NOLONGA,,INFORM [LONGSET NOT REQD IN INFORM
6X9= LONGSET #61,WTSTYLE,6
6XF4 ...NOLONGA
6XNW LGEOG ,4
6Y8G UNLOAD ,,,UNL,AUT
6YN6 HUNT 3,FLIB,FTSN
6^7Q OUTPARAM A1(3),A1+1,FLIB,FTSN
6^MB OUTNUM 4,0
7272 BZE 7 XLOADWP
72LL MTREQUEST HUNLWP
736= BRN OUTP
73KW XLOADWP
745G MTREQUEST HLOADWP
74K6 BRN OUTP
74LH ...#
74M2 ...# ENTRY POINT 4
74MF ...#
74MY ...# THIS ENTRY POINT IS USED BY ENGAGE WHEN AN ENGAGE BUTTON EVENT
74NC ...# OCCURS ON A DECK THAT IS MARKED ALLOCATED AND LOADED. THE WPR
74NW ...# STATUS WILL BE CLEARED IF SET AND OPERATOR WARNING MESSAGE OUTPUT
74P* ...#
74PS ...QK4LIBR
74Q? ... JWPR ,WPRFIT [J IF WPR FITTED
74QQ ... OUTNULL
74R9 ...OPSMESS
74RN ... LGEOG ,0 [GET UNIT NO
74S7 ... OUTNUM 0,0
74SL ... MTINFORM JILLUNL [INFORM OPERATORS OF ILLEGAL UNLOAD
74T5 ... SUICIDE [DIE!
74TJ ...WPRFIT
74W3 ... LDX 3 CPPTR(2)
74WG ... LADDP 3,0 [X0 = APIA POINTER
74W^ ... SMO 0
74XD ... LDX 0 0
74XX ... BZE 0 WPRGEO [JOB NO = 0 FOR GEORGE & IS NON-ZERO
74YB ... NGN 0 17 [X0 WILL ONLY HAVE B19=0
74YT ... ANDS 0 JK52E(3) [MASK OUT WPR BIT
74^# ... OUTMESS JWPRCL [AND WPR STATUS....
74^R ... BRN OPSMESS
752= ...WPRGEO
752P ... OUTMESS JINDAN [AND IS IN DANGER...
7538 ... BRN OPSMESS
754Q MENDAREA 50,K99LIBREQ
75JB #END
^^^^ ...72203345000400000000