RETURNIT867
(George Source)
Macros used: BUDGINCR, CLOSBUDG, CLOSETOP, CONSERNO, DELETE, DFLOAD, DFSET, DOWN, FC, FINDPEREC, FSHENTRY, GEOERR, HUNT, JALLOC, JWPR, LMODEQ, LONGON, LONGSET, LONGSTOP, MBC, MENDAREA, MFREE, MHUNT, MTINFORM, NAME, NAMETOP, OPEN, OPENBUDO, OPENDIR, OPENSYS, OUTPARAM, READAGAIN, REWRITE, SEGENTRY, SETALLOC, SETNCORE, SSCOR, SSEARCH, STEP, SUICIDE, TESTREP, TOPFCB2, UNLOAD, UP
- RETURNIT867.txt
22FL #LIS K0RETURNIT>K0LIBRARY>K0ALLGEO 22^= #SEG RETURNIT65 [N.R.BOULT 2357 ...[ 2394 ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 23#^ ...[ 23DW 8HRETURNIT 23YG SEGENTRY K1RETURNIT,QK1RETURNIT 2435 ...# 245N ... FSHENTRY K2RETURNIT,QK2RETURNIT,QK2RETURNIT,QK2RETURNIT 248? ... FSHENTRY K3RETURNIT,,, 24=W ... FSHENTRY K4RETURNIT,,, 24*F ...# 24D6 TLANG 4HC1 24XQ SPOOL 12HPOOL TAPE ,0,0,0 254Y ...#UNS JMODGCR 25=6 ...#SKI 25CB ...SBITS #21560000 25X2 OPADD #10000000 26BL QK1RETURNIT 26W= XBEG 27*W HUNT 3,FILE,ENT 27TG LDX 6 ESER(3) 28*6 BZE 5 RET [J. IF NOT REQUESTED 28SQ READAGAIN 1 29#B HUNT 3,FILE,FRB 29S2 NAME 3,FILE,FWB 2=?L LDCT 0 #400 2=R= ORS 0 A1+5(3) [MARK TO-BE-RETURNED 2?=W REWRITE 1 2?QG MFREE FILE,FWB 2#=6 HUNT 3,FILE,ENT 2#PQ NAME 3,FILE,FWB 2*9B LDCT 0 #40 2*P2 ORS 0 EINF2(3) [MARK TO-BE-ERASED 2B8L REWRITE 2BN= MFREE FILE,FWB 2C7W BNG 7 RETB [J. IF RETURNB 2CMG CLOSETOP [DIRECTORY 2D76 CLOSETOP [SERIAL 2DLQ SUICIDE 2F6B RETB 2FL2 UP 2G5L RET 2GK= LDX 0 CPPTR(2) [TAPE ALLOCATED TO ACTIVITY 2H4W BNZ 0 NLD 2HJG FINDPEREC 3,APTSER,6 [TAPE LOADED? 2J46 BNG 3 NLD [J. IF NOT 2JHQ JALLOC 3,XALLOC 2K3B SETALLOC 3 [MARK ALLOCATED 2KH2 STO 3 CPPTR(2) 2L2L NLD READAGAIN 1 2LG= HUNT 3,FILE,FRB 2L^W LDX 5 A1+5(3) 2MFG STO 5 AWORK1(2) [SAVE WD5 OF SYS.SER RECORD 2M^6 ANDX 5 OPADD(1) 2NDQ BNZ 5 XDD [J.IF TO-BE-DEADED 2NYB MHUNT 1,FILE,ENT 2PD2 LDX 5 ELOC1(1) 2PXL LDX 4 ENUSE(1) [NO OF RECORDS 2QC= BZE 4 XDEL2 [J IF NO TRAP RECORDS 2QWW XDEL 2RBG STEP [POSITION AT END OF ENTRY 2RW6 BCT 4 XDEL 2S*Q MHUNT 1,FILE,ENT 2STB LDX 4 ENUSE(1) [NUMBER OF TRAP RECORDS 2T*2 XDEL2 2TSL ADN 4 1 2W#= XDEL1 2WRW DELETE 2X?G BCT 4 XDEL1 [DELETE ENTRY BACKWARDS 2XR6 LONGON #12,5 [NAME NOW AVAILABLE 2Y2Y ...WASDONINA 2Y=Q MHUNT 3,FILE,FRB 2YQB NAME 3,FILE,FWB 2^=2 STOZ A1+2(3) [ZEROISE USER NAME 2^PL STOZ A1+3(3) 329= STOZ A1+4(3) 32=^ ...#UNS JMODGCR 32#N ...( 32BC ... MBC 3,GSERBRTURN,GSERBDEAD,GSERBNAMWK,GSERBUSWR,GSERBBCKMP 32D6 ... FC 3,GSERFCTREQ 32FT ...) 32HJ ...#UNS JMODGCR 32K? ...#SKI 32M2 ...( 32NW LDX 0 SBITS(1) 338G ANDS 0 A1+5(3) [WORKTAPE,WRONGED,QUERY STATUS LEFT 33D# ...) 33N6 REWRITE 1 [SERIAL ENTRY 347Q MFREE FILE,FWB 34MB LDX 5 AWORK1(2) 3572 SLL 5 1 35LL LDX 0 CPPTR(2) 366= BZE 0 NTUP 36KW BNG 5 WKTP 375G DFSET ,POOL [MARK AS POOL TAPE 37K6 BRN NTUP 384Q WKTP DFSET ,WORK [MARK AS WORKFILE 38JB NTUP BNG 7 RB [RETURNB? 3942 CLOSETOP 39HL CLOSETOP 3=3= BNG 5 WT [J. IF WORK TAPE 3=GW LDN 0 3 3?2G SBX 0 7 3?G6 BZE 0 NWT [RETURNA 3?^Q UPBUG 3#FB CALL 4 XBUDG [UPDATE BUDGETS 3#^2 NWT CONSERNO 6,ACOMMUNE1 3*DL OUTPARAM ACOMMUNE1(2),ACOMMUNE2 3*Y= MTINFORM GRET [NOW A POOL TAPE MESSAGE 3BCW LDX 0 CPPTR(2) 3BXG BZE 0 NUNL [TAPE NOT UP 3CC6 BPZ 7 TSTQ [NOT RETURNB 3CWQ CLOSETOP 3DBB CLOSETOP 3DW2 STO 7 AWORK2(2) [INDICATE FILES CLOSED 3F*L ...TSTQ LDCT 0 #004 3FT= ANDX 0 AWORK1(2) 3G#W BNZ 0 UNLT [J. IF IN QUERY STATUS 3GSG LDX 0 CPPTR(2) 3H#6 LMODEQ 0,1 [CURRENT MODE 3HRQ DFLOAD 0,SMODE,2 [STANDARD MODE 3J?B TXU 1 2 3JR2 BCS UNLT [UNLOAD IF NOT STANDARD 3K=L LDX 1 FX1 3KQ= LDX 2 FX2 3L9W JWPR ,RENMT 3LPG BRN UNLT [NO WPR 3M96 RENMT 3MNQ SETNCORE 7,3,AONBS,GREN 3N8B LDN 0 SPOOL(1) 3NN2 LDN 1 A1+1(3) 3P7L MOVE 0 6 3PM= STO 6 A1(3) 3Q6W STOZ ACOMMUNE2(2) 3QLG DOWN RENAMEMT,3 [TO REHEAD THE TAPE 3R66 BRN UNLT [NO WPR 3RKQ TESTREP TAPEFAIL,XFAIL [FAIL ON RELABELLING 3S5B TESTREPN OK,UNLT 3SK2 UNLOAD ,,,RET 3T4L BRN XLONG 3TJ= XFAIL 3W3W CONSERNO 6,ACOMMUNE1 3WHG OUTPARAM ACOMMUNE1(2),ACOMMUNE2 3X36 MTINFORM FAILPT [INFORM TAPE NOT REHEADED 3XGQ UNLT 3Y2B UNLOAD ,,,UNL [UNLOAD TAPE 3YG2 XLONG LONGON #61,6 3Y^L NUNL BNG 7 RTNB [RETURNB 3^F= SUIC SUICIDE 3^YW RTNB 42DG LDX 0 AWORK2(2) [FILES OPEN? 42Y6 BZE 0 RETB 43CQ OPFL HUNT 1,AONBS,GLIST 43XB LDX 0 A1(1) 44C2 SBN 0 1 44WL BZE 0 SUIC [ALL TAPES DEALT WITH 45B= OPENSYS XBRKERR,SERIAL,GENERAL 45TW OPEN XBRKERR,GENERAL,ERASING,QUERY 46*G TESTREP OK,RETB 46T6 CLOSETOP 47#Q SUICIDE 47SB WT 48#2 STO 5 AWORK2(2) [INDICATE FILES CLOSED 48RL BRN TSTUP 49?= RB 49QW STOZ AWORK2(2) [FILES STILL OPEN 4==G BPZ 5 UPBUG 4=Q6 TSTUP LDX 0 CPPTR(2) 4?9Q BZE 0 NUNL [NOT UP 4?PB LDX 0 AWORK2(2) 4#92 BNZ 0 UNLT [J.IF FILES ALREADY CLOSED 4#NL CLOSETOP [DIRECTORY 4*8= CLOSETOP [SERIAL 4*MW STO 7 AWORK2(2) [FILES NOW CLOSED 4B7G BRN UNLT 4BM6 ...XDD DOWN DEADA,2 4C6Q BNG 7 OPFL [J. IF RETURNB 4CLB LDX 0 AWORK1(2) 4D62 SLL 0 1 4DKL BNG 0 SUIC [J. IF WORKTAPE 4F5= CALL 4 XBUDG [UPDATE BUDGETS 4FJW SUICIDE 4G4G # 4GJ6 # 4H3Q XALLOC 4HHB LONGSET #61,WTSTYLE,6 4J32 READAGAIN 1 4JGL HUNT 3,FILE,FRB 4K2= NAME 3,FILE,FWB 4KFW LDX 0 GSIGN 4K^G ORS 0 A1+5(3) 4LF6 LDN 0 1 [UPDATE COUNT OF REQUESTERS 4LYQ ADS 0 A1+5(3) 4MDB REWRITE 1 4MY2 MFREE FILE,FWB 4NCL MHUNT 3,FILE,ENT 4NX= NAMETOP 3,FILE,FWB 4PBW LDCT 0 #40 [TO BE RETURNED 4PWG ORS 0 EINF2(3) 4QB6 REWRITE 4QTQ MFREE FILE,FWB 4R*B SETNCORE 12,3,FILE,FABSNB 4RT2 LDN 0 #2001 4S#L ORS 0 ATYPE(3) 4SS= LDN 0 10 4T?W STO 0 A1(3) 4TRG TOPFCB2 2 4W?6 ADN 2 FME1 4WQQ ADN 3 A1+1 4X=B MOVE 2 3 [USER NAME OF DIRECTORY 4XQ2 STOZ 3(3) 4Y9L LDN 2 3(3) 4YP= LDN 3 4(3) 4^8W MOVE 2 5 [ZERO LOCAL NAME 4^NG LDN 0 1 5286 NGS 0 5(3) [RETENTION PERIOD 52MQ STO 6 6(3) [TSN 537B CLOSETOP [DIRECTORY 53M2 CLOSETOP [SERIAL 546L LONGSTOP XBRKERR [WAIT FOR TAPE TO BE FREED 54L= OPENSYS XBRKERR,SERIAL,GENERAL 555W SSEARCH ,6 [FIND RECORD IN SYSTEM.SERIAL 55KG OPENDIR XBRKERR,GENERAL,QUERY,ERASING 5656 TESTREPN OK,XGEO 56JQ MFREE FILE,FABSNB 574B READAGAIN 1 [SERIAL RECORD 57J2 MHUNT 3,FILE,FRB 583L NAME 3,FILE,FWB 58H= SSCOR A1(3),DEC [SUBTRACT 1 FROM CNT OF REQUESTERS 592W LDX 5 A1+5(3) 59GG ANDN 5 #7777 5=FQ REWRITE 1 5=^B MFREE FILE,FWB 5?F2 ... BRN XBEG 5#XW # SUBROUTINES 5*CG # 5*X6 XBUDG 5BBQ SBX 4 FX1 5BWB SETNCORE 4,3,FILE,FABSNB 5CB2 ADN 3 A1+1 5CTL HUNT 2,FLIB,FTJOB 5D*= ADN 2 A1 5DSW MOVE 2 3 5F#G SBN 3 1 5FS6 LDN 0 4 5G?Q STO 0 0(3) 5GRB ... OPENBUDO XNOUS 5H?2 NGN 5 1 5HQL BUDGINCR GSPACEMT,5 5J== CLOSBUDG 5JPW ...XNOUS ADX 4 FX1 5K9G EXIT 4 0 5KP6 # 5L8Q # GEOERRS 5LNB XBRKERR 5M82 GEOERR 1,BRKIN 5MML WTSTYLE 5N7= GEOERR 1,WTSTYLE 5NLW XGEO 5P6G GEOERR 1,NOUSER 5PL6 MENDAREA 50,K99RETURNIT 5Q5Q #END ^^^^ ...63062061000200000000