16 22FL SEG OFFREL,867,SECT.FILE,FILESTORE,G550 4 22HJ ...[ 15 22KG ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 13 22MD ...[ THIS EXCLUDES CODE UNDER #SKI G550 4 22PB ...[ 7 22R# ...#OPT G550 = 0 6 22T= ...#SKI G550&1 20 22X8 ...# WITH G3UG EDIT M550 (LINE PRINTER OUTPUT DIRECT TO MAGNETIC TAPE) 11 22_= SEGENTRY K3OFFREL,Z3OFFREL 20 23DW # ENTRY AT K3OFFREL IS THE PART FOR RELEASING PSEUDO/ONLINE AND 21 23YG # OFF-LINE PERIPHERALS. ANY FILES OPEN TO THE AOLPT CONCERNED ARE 21 24D6 # CLOSED AND THE AOLPT BLOCK ITSELF AND ANY ASSOCIATED DATA BLOCKS 8 24XQ [ ARE MURDERED 5 25CB Z3OFFREL 18 25X2 LDX 3 ACOMMUNE8(2) [ENTRY FOR ORELP MACRO 8 25XL #UNS K6FREEBUFF-500 4 25Y= #SKI 4 25YW ( 13 25_G LONGSET #62,XFRIG [ WAIT FRIG 15 2626 LONGSTOP XFRIG [ TO GO TRUELY DORMANT 5 262Q XFRIG 4 263B ) 4 2642 [ 16 264L [ IF OLPA IS CURRENTLY BEING FREEBUFFED THEN WE WAIT 4 265= [ 9 265C ... LDCH 0 ATYPE(3) 9 265J ... SBN 0 AOLPT/64 9 265P ... BNZ 0 NOTOLP 11 265W POP WAITED,3,FBOFFWAIT 9 266G #UNS K6FREEBUFF>199-199 17 2676 BRN NOWAITED [ FOR TESTING ONLY 5 267Q WAITED 9 268B #UNS K6FREEBUFF>199-199 4 2692 ( 17 269L TRACEIF K6FREEBUFF,199,499,BFSTATE(3),OFF SEMA 16 26== TRACEIF K6FREEBUFF,199,499,ALINK1(3),OFF LINK 15 26=W ADDSKIP K6FREEBUFF>199-199,INSTPARAM+4 5 26?G NOWAITED 8 26#6 #SKI K6FREEBUFF-500 4 26#Q #SKI 18 26*B COOR3 #62 [ WAIT HOLDING SEMAPHORE 4 26B2 ) 5 26B# ...NOTOLP 8 26BL FILENUMB 7,3 9 26W= BZE 7 NOUNLOCK 14 27*W LDX 4 2 [SAVE FX2 8 27TG LDN 6 #10 15 28*6 ANDX 6 AFLAG(2) [TEST IF LOCK 9 28SQ BNZ 6 NOLOCK 15 29#B LOCK 2 [ LOCK CPAT 5 29S2 NOLOCK 16 2=?L CHANGEAC 3 [CHANGE TO OLPA 9 2=R= LDCH 0 ATYPE(3) 9 2?=W SBN 0 AOLPT/64 16 2?QG BNZ 0 NOTP [J UNLESS AOLPT 7 2#=6 TOPFCA2 1 13 2#PQ MBC 1,BASTEPWAIT,BAAPPWAIT 9 2*9B LDX 0 ATMARK(2) 16 2*P2 BNZ 0 NOTP [J IF NOT OFFLINE 9 2B8L LDX 0 FTYPNO(2) 8 2BN= SRL 0 15 7 2C7W SBN 0 1 15 2CMG BNZ 0 NOTP [J IF NOT TP 17 2D76 DOWN TPOBJ,3 [FINISH THE TRANSFER 4 2DLQ NOTP 18 2F6B CHANGEST 4 [CHANGE FILE(S) TO CPAT 7 2FL2 CHANGEAC 4 9 2G5L BNZ 6 NOUNLOCK 7 2GK= UNLOCK 4 5 2H4W NOUNLOCK 9 2HJG LDX 5 JOBNO(3) 9 2J46 LDX 6 FTYPNO(3) 21 2JHQ GSCAN 5,JOB RLTU,2 [[X5]=JOB NUMBER ;[X6]=TYPE/UNIT RELE 6 2JJ? ...#SKI G550&1 4 2JJS ...( 11 2JK* ... LDN 0 AOLPTLEN+AZFLEN 10 2JKW ... TXU 0 ALOGLEN(3) 17 2JLC ... BCS XMTLP [ NOT *LP O/P TO *MT 14 2JLY ... LDX 4 ACTNUM(2) [ CPAT 19 2JMF ... CHANGEACT 3 [ AOLPT - LOCKED THROUGHOUT 19 2JN2 ... DOWN NETOFLNE,3 [ TO WRITE END OF O/P TO TAPE 16 2JNH ... LDX 5 ACOMMUNE1(2) [ ERROR INDICATOR 10 2JP4 ... FINDACTNO 2,4,(GEOERR) 18 2JPK ... LDX 4 2 [ KEEP X2 OVER CHANGEPER 18 2JQ6 ... CHANGEPER 2 [ HAND OVER TAPE TO CPAT 17 2JQM ... LDX 2 4 [ RECOVER CPAT PTR 20 2JR8 ... CHANGEACT 2 [ CLOSETAPE MUST BE DONE IN CPAT 7 2JRP ... CLOSETAPE 21 2JS= ... BZE 5 SHUTOK [ REPLY FROM NETOFLNE, NOT CLOSETAPE 17 2JSR ... PERTYPNO 6 [ *LP DEVICE IDENTITY 12 2JT# ... SETNCORE APARA+1,1,CPB,CUNI 19 2JTT ... LDX 5 ACOMMUNE9(2) [ TRAILER LABEL O/P FAILED - 16 2JWB ... STO 5 APARA(1) [ SET UP MESSAGE 17 2JWX ... LDN 0 4 [ FOR COMMAND ERROR 9 2JXD ... STO 0 ANUM(1) 18 2JX_ ... LDN 0 1 [ RELEASE MAY BE DUE TO 19 2JYG ... STO 0 JPARNUM(1) [ COMMAND OR EXTRACODE, SO 20 2J_3 ... ERROR JRELFAIL [ O/P ERROR BUT DO NOT CRUNCH 19 2J_J ...SHUTOK [ *MT CLOSE OK - NORMAL PATH 16 2K25 ...XMTLP [ STANDARD PATH 4 2K2L ...) 20 2K3B MURDER 3 [GET RID OF OLPA & DATA BLOCKS 17 2KH2 BZE 7 UP [EXIT IF NO FILE OPEN 7 2L2L TOPFCA2 1 7 2LG= LDN 5 1 18 2L_W JBS STREAMCOMP,1,BAMULT [J IF MULTIFILE ELEMENT 7 2MFG LDN 5 0 8 2M_6 PSTAC 1,1 15 2NDQ BFCBX 1,1 [GET X1->FCB 14 2NYB JBS SDF,1,BFSDF [J IF SDF 6 2PD2 STREAMCOMP 6 2PXL CLOSE 19 2QC= BZE 5 UP [J IF NOT MULTIFILE ELEMENT 4 2QWW SDF 7 2RBG CLOSEMULT 10 2RL# MFREE FILE,FABSNB 4 2RW6 UP 5 2S*Q UP 4 2STB [ 11 2T*2 MENDAREA AOLPGAP,K99OFFREL 4 2TSL #END 8 ____ ...26652451000200000000