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