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