{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LIBLOADB867)}}
====== LIBLOADB867 ======
(George Source)
**Macros used:** [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:CONSERNO|CONSERNO]], [[george:macro:COOR1|COOR1]], [[george:macro:DCA|DCA]], [[george:macro:DFCLEAR|DFCLEAR]], [[george:macro:DFLOAD|DFLOAD]], [[george:macro:DOWN|DOWN]], [[george:macro:FREEMT|FREEMT]], [[george:macro:FSHENTRY|FSHENTRY]], [[george:macro:GPERI|GPERI]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LOCKC|LOCKC]], [[george:macro:LONGON|LONGON]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MTINFORM|MTINFORM]], [[george:macro:OUTMESS|OUTMESS]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:SWITRACE|SWITRACE]], [[george:macro:TESTREP|TESTREP]], [[george:macro:UNLOCK|UNLOCK]]
22FL ... SEG LIBLOADB,865,J.M.STOCKWELL
22^= ... SEGENTRY K1LIBLOADB,QK1LIBLOADB
23DW ... SEGENTRY K2LIBLOADB,QK2LIBLOADB
23JR ...[
23NN ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
23SK ...[
23YG ... SEGENTRY K3LIBLOADB,QK3LIBLOADB
24D6 ... SEGENTRY K4LIBLOADB,QK4LIBLOADB
24XQ ... SEGENTRY K5LIBLOADB,QK5LIBLOADB
25?F ... SEGENTRY K8LIBLOADB,QK8LIBLOADB
25M8 ... FSHENTRY K7LIBLOADB,QK7LIBLOADB,QK7LIBLOADB,QK7LIBLOADB
25X2 ...#
26BL ...# THIS SEGMENT IS AN OVERFLOW SEGMENT FROM LIBLOAD
26W= ...# AND CONTAINS THE CODE TO OUTPUT ERROR MESSAGES.
27*W ...# THE SEGMENT IS ONLY ENTERED FROM LIBLOAD.
2BN= #
2C7W # LOCAL IDENTIER DEFINITIONS
2CMG #
2D76 #DEF STM=HTM
2DLQ #DEF SSB=HSB
2F6B #DEF SWR=HFREE4
2FL2 #DEF SHORTPM=1
2G5L #
2GK= # ENTRY POINT 1
6MC= # G OUTPUT NON-STANDARD HEADER MESSAGE
6MPM ...QK1LIBLOADB
6N44 ... LDX 2 FX2 [RESET X2
6NBG LGEOG ,0
6NW6 OUTNUM 0,0 [%A
6P*Q BNZ 7 PG4
6PTB LDN 7 24 [COUNT OF CHARACTERS
6Q*2 OUTPARAM 7,A1+1,FLIB,FMAGH [%B
6QSL BRN PG7
6R#= PG4 BPZ 7 PG6
6RRW OUTMESS SSB [SHORT BLOCK,%B
6S?G BRN PG7
6SR6 PG6 OUTMESS STM [TAPE MARK,%B
6T=Q PG7 MTINFORM HNON
6TQB LDN 7 1 [MARKER 2
6W=2 ... BRN QK3LIBLOADB
6WPL ...QK2LIBLOADB
6X9= CLOSETOP
6XNW CLOSETOP
6Y8G LGEOG ,0
6YN6 OUTNUM 0,0
6^7Q MTINFORM HWPREQ [OUTPUT REQUEST FOR WPR
6^MB LDN 7 1
7272 # F ATTEMPT REWIND
72LL ...QK3LIBLOADB
736= ...#SKI K6LIBLOADB>199-199
73KW SWITRACE 7,LBLDFAIL
745G LDN 0 9 [REWIND AND DISCONNECT MODE
74K6 DCA ,DLA,0,MODE
754Q LOCKC 2,£
75JB GPERI ,2 [ATTEMPT REWIND
7642 COOR1
76HL UNLOCK 2
773= BNZ 7 PL [MARKER 2
77GW # K RECORD FAILURE AND INFORM OPERATORS
77T? ...QK4LIBLOADB
787N ... LGEOG ,7
78G6 DOWN TRANSPOT,2
78^Q OUTNUM 7,0
799J ... TESTREP NOTAV,PK1
79FB MTINFORM HLIB10
79LJ ... BRN PL
79RQ ...PK1 MTINFORM HLIB11
79^2 # L FREE DECK
7=DL PL
7=Y= DFCLEAR ,TBITS
7?CW DFLOAD ,TSN,4
7?XG DFCLEAR ,TSN
7#C6 FREEMT
7#WQ LONGON #61,4
7*BB # M TERMINATE - FAIL
7*W2 SUICIDE
7B*L # Q OUTPUT 'WRONGED' MESSAGE
7BN3 ...QK5LIBLOADB
7C2D ... CLOSETOP
7C#W CLOSETOP
7CSG LGEOG ,0
7D#6 OUTNUM 0,0 [%A=UNIT NR
7DRQ MHUNT 3,FLIB,FMAGH
7F?B LDX 0 A1+2(3)
7FR2 CONSERNO 0
7G=L MHUNT 3,FLIB,FTSN
7GQ= OUTPARAM A1(3),A1+1,FLIB,FTSN [%B=TSN
7H9W MTINFORM SWR
7HPG LDN 7 1
7J96 ... BRN QK3LIBLOADB
7JNQ ...# AC DUPLICATE TSN
7K8B ...QK8LIBLOADB
9DQL CLOSETOP [:SYSTEM.DOCUMENT
9F== LGEOG ,0
9FPW OUTNUM 0,0
9G9G CONSERNO 4
9GP6 MHUNT 3,FLIB,FTSN
9H8Q OUTPARAM A1(3),A1+1,FLIB,FTSN
9HNB OUTNUM 5,0
9J82 MTINFORM HUNTSN
9JML LDN 7 1
9K7= BRN QK3LIBLOADB [TO REWIND
9^*W #
9^RY ... SUICIDE
9^TG ... MENDAREA 1023-0?,K99LIBLOADB
=2*6 #END
^^^^ ...13277116000200000000