(George Source)
Macros used: BXE, BXGE, BXL, BXU, COMERR, ENDCOM, ERRTEST, FINDPEREC, GEOERR, HUNT, JALLOC, JWRONG, LFAILS, LGEOG, LPROP, MENDAREA, MFREE, MHUNT, MOCH, MTCHAR, MTEXPROP, MTINFORM, OUTNULL, OUTNUM, PROPERTY, QUALCON, SEG, SEGENTRY, SETNCORE, SETREP, SPARAPAS, TESTREP, UP
22FL #LIS K0TRANSPOT>K0ALLGEO>K0GREATGEO>K0LIBRARY 22^= SEG TRANSPOT,65,N.R.BOULT 23DW SEGENTRY K1TRANSPOT,QK1TRANS 23YG SEGENTRY K2TRANSPOT,QK2TRANS 24D6 # THERE ARE 2 ENTRY POINTS TO THIS SEGMENT. WHIDH DEALS WIT 24XQ # FINDING OUT ABOUT THE AVAILABILITY OF DECKS FOR LOADING A TA 25CB # K1TRANSPOT IS THE ENTRY POINT FOR THEE SEGMENT IN THE TRANSPORTAS 25X2 # CASE. X4 IS SET TO ZERO TO SIGNIFY THIS ENTRY POINT. THE NET 26BL # OF THIS ENTRY IS A MESSAGE TO THE OPERATORS CONSOLE STATING 26W= # UNITS AVAILABLE ARE :- %A%B%C %C WHERE THE PARAMETERS ARE 27*W # GEOGRAPHICAL NUMBERS OF THE FOUR DECKS (OR LESS) THAT ARE NO 27TG # ALLOCATED OR ENGAGED & WHICH HAVE THE LOWEST FAIL COUNT OUT 28*6 # THE TOTAL OF DECKS AVAILABLE. 28SQ # K2TRANSPOT IS THE ENTRY FROM LIBREQ. IT WILL SIMILARLY PRODUCE AVA 29#B # DECK INFORMATION TO BE INCLUDED IN THE LOAD MT MESSAGE. X4 I 29S2 # NON-ZERO FOR THIS ENTRY. 2=?L MTYPE +5 2=R= OCT +8 2?=W QUART +4 2?QG PENRZI #201 2#=6 QK1TRANS 2#PQ LDN 4 0 [ENTRY FOR TRANSPORTS COMMAND 2*9B SPARAPAS 2*P2 MHUNT 3,CPB,CUNI 2B8L NGX 0 ANUM(3) 2BN= BPZ 0 T1A [BRANCH IF NULL OR MISSING PARAMETER 2C7W LDX 0 APARA(3) 2CMG SRL 0 12 2D76 SBN 0 #6062 2DLQ BZE 0 T1B [BRANCH IF PR PARAMETER 2F6B LDN 6 5 2FL2 LDN 7 0 2G5L QUALCON 6,7 2GK= TESTREP OK,T1 2H4W COMERR APFERR 2HJG T1 2J46 LDN 0 GLIBTRA7 2JHQ STO 0 AWORK2(2) 2K3B STOZ AWORK1(2) 2KH2 BRN T9 2L2L T1A 2LG= LDN 5 0 2L^W BRN T1C 2MFG T1B 2M^6 PROPERTY T22,2,,,X [ANALYSE PROPERTY PARAMETER 2NDQ LDN 4 0 [RESET COMMAND FLAG 2NYB MTEXPROP DECK [SET UP COMPACT PROPERTY DESCRIPTION 2PD2 LDX 5 ACOMMUNE1(2) 2PXL TESTREP OK,T1C 2QC= ERRTEST 3,T22,ILLMODE,ILLCOMB 2QWW GEOERR 1,TRANSPOT 2RBG T1C 2RW6 MTCHAR 5 [SET UP HARDWARE CHARACTERISTIC 2S*Q LDX 0 ACOMMUNE1(2) 2STB STO 0 AWORK1(2) 2T*2 STO 5 AWORK2(2) 2TSL BNZ 4 T9 [J IF ENTRY FROM LIBREQ 2W#= ANDN 5 GLIBMODE 2WRW BZE 5 T9 2X?G SETNCORE 3,3,CPAR,GPERCON 2XR6 LDCT 0 5 2Y=Q STO 0 A1(3) 2YQB LDX 0 AWORK2(2) 2^=2 SRL 0 18 2^PL STO 0 A1+1(3) 329= LDN 0 #74 32NW STO 0 A1+2(3) 338G BRN T9 33N6 QK2TRANS 347Q LDN 4 1 [ENTRY FROM LIBREQ 34MB LDX 5 ACOMMUNE1(2) 3572 BRN T1C 35LL T9 SETNCORE 9,2,AONBS,GTRAN [FOR TEMPORARY STORAGE OF GEOG NOS 366= STOZ A1(2) [COUNT OF UNITS FREE (UP TO 4) 36KW FINDPEREC 3,APFOTY,MTYPE(1),REENT 375G BNG 3 T2 37K6 JALLOC 3,REENT [RE-ENTER FINDPEREC IF ALLOCATED 384Q JWRONG 3,REENT [OR WRONGED 38JB SMO FX2 3942 LDX 0 AWORK1 39HL BNG 0 T9F [J IF NO SPECIAL CHAR. 3=3= LPROP 3,5 3=GW BXL 0 PENRZI(1),T9FA 3?2G ANDN 5 #203 3?G6 BRN T9FB 3?^Q T9FA 3#FB ANDN 5 #200 3#^2 T9FB 3*DL SMO FX2 3*Y= BXU 5 AWORK1,REENT 3BCW T9F 3BXG HUNT 2,CPAR,GPERCON 3CC6 BNG 2 T5 [J IF NO PROPERTIES 3CWQ LDX 0 A1+2(2) 3DBB BZE 0 T5 [J. IF NO PROPERTY BITS 3DW2 LDN 5 1 3F*L BXE 0 5,T5 [J. IF ONLY WPR BIT 3FT= MOCH 3 [CHECK MODE 3G#W TESTREPN OK,REENT 3GSG T5 LGEOG 3,5 [PICK UP GEOGRAPHIC UNIT NUMBER 3H#6 ANDN 5 #777 3HRQ LPROP 3,0 3J?B SLL 0 9 3JR2 ORS 0 5 [STORE PROPERTY CODE 3K=L HUNT 2,AONBS,GTRAN 3KQ= LDX 0 A1(2) [PICK UP COUNT OF UNITS FOUND 3L9W SMO FX1 3LPG TXU 0 QUART 3M96 BCC T14 [J IF 4 UNITS ALREADY FOUND 3MNQ LDN 6 1 [UPDATE COUNT OF UNITS 3N8B ADS 6 A1(2) 3NN2 SLL 0 1 3P7L T15 SMO 0 3PM= STO 5 A1+1(2) [DUMP UNIT NO IN BLOCK 3Q6W LFAILS 3,5 3QLG SMO 0 3R66 STO 5 A1+2(2) [& FAILURE COUNT 3RKQ LDX 1 FX1 3S5B BRN REENT [THEN LOOK FOR NEXT AVAILABLE DECK 3SK2 T14 3T4L LDX 6 5 3TJ= SRL 6 14 3W3W ANDN 6 3 [SPEED OF CURRENT DECK 3WHG LDN 0 0 3X36 T14A 3XGQ SMO FX1 3Y2B BXGE 0 OCT,T14F [BRANCH IF END OF GTRAN 3YG2 SMO 0 3Y^L LDX 1 A1+1(2) 3^F= SRL 1 14 3^YW ANDN 1 3 [EXTRACT SPEED OF DECK IN LIST 42DG SMO FX2 42Y6 LDX 7 AWORK2 43CQ ANDN 7 GLIBFAST 43XB BZE 7 T14C [BRANCH UNLESS FAST PROPERTY 44C2 BXL 6 1,T14E 44WL T14B 45B= BXU 6 1,T15 45TW T14D 46*G LFAILS 3,1 46T6 SMO 0 47#Q BXL 1 A1+2(2),T15 [BRANCH IF FEWER FAILS ON CURRENT DEC 47SB T14E 48#2 ADN 0 2 48RL BRN T14A 49?= T14C 49QW LDN 7 GLIBSLOW 4==G SMO FX2 4=Q6 ANDX 7 AWORK2 4?9Q BZE 7 T14D 4?PB BXL 1 6,T14E 4#92 BRN T14B 4#NL T14F 4*8= LDX 1 FX1 4*MW BRN REENT 4B7G T2 4BM6 HUNT 2,AONBS,GTRAN 4C6Q LDX 7 A1(2) [COUNT OF UNITS FOUND 4CLB BZE 7 T17 [J IF NO UNITS AVAILABLE 4D62 STOZ 6 [FOR COUNT OF PARAMETERS OUTNUMED 4DKL T18 HUNT 2,AONBS,GTRAN 4F5= SMO 6 4FJW LDEX 1 A1+1(2) 4G4G OUTNUM 1,0 [OUTPUT UNIT NO 4GJ6 ADN 6 2 4H3Q STO 6 0 4HHB SRL 0 1 4J32 BXU 0 7,T18 [J IF ALL UNITS HAVE NOT BEEN OUTNUME 4JGL SBN 7 4 4K2= T20 BZE 7 T19 [J IF ALL PARAMETERS ACCOUNTES FOR 4KFW OUTNULL 4K^G ADN 7 1 4LF6 BRN T20 4LYQ T17 [HERE IF NO UNITS AVAILABLE 4MDB BZE 4 T3 [J IF COMMAND 4MY2 SETREP NOTAV 4NCL BRN T21 4NX= T3 MTINFORM HNOUN 4PBW BRN T21 4PLN ...T19 4PWG ... SETREP OK 4Q6# ... BNZ 4 T21 4QB6 MTINFORM ATRANS 4QTQ T21 MFREE AONBS,GTRAN 4R*B BZE 4 T22 4RT2 UP 4S#L T22 ENDCOM 4SS= MENDAREA 50,K99TRANSPOT 4T?W #END ^^^^ ...43017175000400000000