Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{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]] <code - LIBLOADB867.txt>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 </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In