{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: TRANSPOT65)}}
====== TRANSPOT65 ======
(George Source)
**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:BXGE|BXGE]], [[george:macro:BXL|BXL]], [[george:macro:BXU|BXU]], [[george:macro:COMERR|COMERR]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERRTEST|ERRTEST]], [[george:macro:FINDPEREC|FINDPEREC]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT|HUNT]], [[george:macro:JALLOC|JALLOC]], [[george:macro:JWRONG|JWRONG]], [[george:macro:LFAILS|LFAILS]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LPROP|LPROP]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MOCH|MOCH]], [[george:macro:MTCHAR|MTCHAR]], [[george:macro:MTEXPROP|MTEXPROP]], [[george:macro:MTINFORM|MTINFORM]], [[george:macro:OUTNULL|OUTNULL]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:PROPERTY|PROPERTY]], [[george:macro:QUALCON|QUALCON]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETREP|SETREP]], [[george:macro:SPARAPAS|SPARAPAS]], [[george:macro:TESTREP|TESTREP]], [[george:macro:UP|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