LIBREQ866
(George Source)
Macros used: BXE, BXL, BXU, CONSERNO, DOWN, FINDPEREC, GEOERR, GROPEREC, HUNT, INFORM, JBS, JENV, JONL, JWPR, JWRONG, LADDP, LGEOG, LJOBNO, LONGSET, LPROP, MENDAREA, MFREE, MHUNT, MOCH, MONICA, MONOUT, MTCHAR, MTINFORM, MTREQUEST, OUTMESS, OUTMTPROP, OUTNULL, OUTNUM, OUTPARAM, OUTPARAX, OUTPAUSE, PICKREP, PUTREP, REPEAT, SEG, SEGENTRY, SETMODE, SETNCORE, SETREP, SETUPMODE, SUICIDE, TESTMODE, TESTREP, UNLOAD, UP, UPPLUS, VFREE, VFREEW
- LIBREQ866.txt
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