(George Source)
Macros used: ACROSS, ALTLENG, BACKSPACE, BXL, COOR1, COOR4, DEMANDX, DEMANDY, FILEMOVE, FLIP, FREELINK, GEOERR, HUNT7020, INFORM, INFORMX, LF, LFBITCLR, LFEND, LONGOFF, LONGSET, MENDAREA, MFREEW, MHUNTW, OUTPER, PCTHUNTB, PHOTO, RESET, REWIND, SEGENTRY, SETNCORE, STEPAGAIN, TESTMOVE, UP, UPPLUS, VFREEW, WAKEUP
22C4 ...#SEG RENGAGE8 [G CONSTANTINIDES 22S6 ...#LIS K0RENGAGE>K0PCT>K0ALLGEO>K0GREATGEO 2398 ... 8HRENGAGE8 23L= ...# ENTRY POINTS 243# ... SEGENTRY K1RENGAGE,Z1RENGAGE 24DB ... SEGENTRY K2RENGAGE,Z2RENGAGE 24TD ... SEGENTRY K3RENGAGE,Z3RENGAGE 24Y3 ...#UNS JSKI33 252L ... SEGENTRY K4RENGAGE,Z4RENGAGE 2559 ...#UNS JSKI33 257S ... SEGENTRY K5RENGAGE,Z5RENGAGE 25=G ... MENDAREA APCTGAP,K100RENGAGE 25MJ ...[ 264L ...[ THIS SEGMENT IS ENTERED BY A CPA OR ACTLF WHEN IT IS WAITING FOR AN 26FN ...[ ENGAGE ON A REMOTE 7020 CLUSTER. IT OUTPUTS A REGULAR 'PLEASE ENGAGE' 26WQ ...[ MESSAGE. 27?S ...[ 27NW ...[ 285Y ...[ 28H2 ...[ K1 IS THE NORMAL ENTRY POINT. (DOWN FROM THE "SLEEP" MACRO). 28Y4 ...[ 29*6 ...[ K2 IS ENTERED BY A DOWN FROM THE "SLEEP2" MACRO AND IS USED DURING 29Q8 ...[ LISTINGS ONLY. IT RESETS THE ACTLF FOR ANY ERROR RESTARTS, TAKING 2=7= ...[ "CAN'T DO" OR "TERMINATE" ACTION IF NECCESSARY. 2=J# ...[ 2=^B ...[ 2?BD ...[ K3 IS ENTERED BY A DOWN FROM RMTLF AFTER LISTING THE SETUP FILE. 2?RG ...[ IT OUTPUTS THE 'PLEASE LINE UP' MESSAGE AND TAKESAPPROPRIATE ACTION. 2#8J ...[ 2#=P ...#UNS JSKI33 2##W ...( 2#C3 ...ZZCLET #77763777 2#F8 ...ZJCORRUPT +JCORRUPT 2#H* ...) 2#KL ...ZJPAGES +JPAGES 2*2N ...ZJKEN +JKEN 2*CQ ...ZJMARY +JMARY [PLEASE ENGAGE UNIT IXXN. 2*SS ...ZJRESET +JRESET [.......DITTO.......FOR ERROR RESTART 2B9W ...# ZJRESET MUST OCCUR AFTER ZJMARY IN THIS SEGMENT. 2BLY ...# 2C42 ...# FREE BLOCKS LEFT BY DEMAND 2CF4 ...# 2CW6 ...RIDEM VFREEW ADATA,ADEMAND 2D?8 ... VFREEW GMON,AOUT [ABSENT IF DEMANDY DELAY NOT ENDED 2DN= ... EXIT 5 0 2F5# ...[ 2FGB ...# SET UP IWORK WORDS FOR SETUP FILE 2FXD ...# 2G#G ...SETUPWORK 2GPJ ... LDN 0 1 2H6L ... STO 0 IWORK1(2) [START SETUP LISTING AT BEGINING 2HHN ... LDCT 0 #200 2HYQ ... STO 0 IWORK2(2) [SET 'ALL' RESTART FOR SETUP FILE 2J*S ... NGS 1 IWORK3(2) [LIST ALL OF SETUP FILE 2NTG ... EXIT 4 0 2P=J ...# 2PML ...XLOCACONV 2Q4N ...# SUBROUTINE HUNTS FOR ADATA,ACONV BLOCK ON X2 2QFQ ...# LINK IN X1 2QWS ... MHUNTW 2,ADATA,ACONV 2R?W ... BRN (1) 2RNY ...# 2RPD ...TNENG LDCH 0 ATYPE(2) [SUB TO CHECK IF LF DEVICE... 2RPY ...[ ...ENGED WHEN THEY SAID THEY WOULDNT 2RQD ... SBN 0 ACTLF/64 2RQY ... BNZ 0 (5) [J IF NOT LF 2RRD ... HUNT7020 3,2 [FIND BUFFER 2RRY ... LDCT 0 3 2RSD ... ANDX 0 EWAIT(3) 2RSY ... BNZ 0 (5) [J IF MOP OFF OR INOP 2RTD ... LDCT 0 #40 2RTY ... ANDX 0 EWAIT(3) 2RWD ... BZE 0 XENGAGE [J IF ENGAGED 2RWY ... EXIT 5 0 2RXD ...[ 2RXY ...[ 2RYD ...[ 2RYY ...TENCD [CANTDO ENGAGE 2R^D ... CALL 5 TNENG [DOESNT EXIT IF ENGAGED 2R^Y ... BRN XCDY 2S2D ...[ 2S2Y ...[ 2S3D ...[ 2S3Y ...TENTE [TERMINATE 2S4D ... CALL 5 TNENG [DOESNT EXIT IF ENGAGED 2S4Y ... BRN XTE 2S62 ...# 2SH4 ...# 2SH9 ...#UNS JSKI33 2SHB ...( 2SHH ...[ 2SHN ...[ 2SHT ...[ 2SJ2 ...[ ENTRY PT. DOWN FROM RMTLF TO DEALLOCATE LP OR TP 2SJ7 ...[ 2SJ# ...[ 2SJF ...[ ENTRY FROM PCTLISTA FOR CORRUPT FILE 2SJL ...Z5RENGAGE 2SJR ... LDN 7 0 [MARK ENTRY FROM PCTLISTA 2SJY ... BRN ZTDNG 2SK5 ...[ 2SK= ...[ ENTRY FROM RMTLF FOR CORRUPT FILE 2SKC ...[ 2SKJ ...Z4RENGAGE 2SKP ... LDCT 7 #400 [MARK ENTRY FROM RMTLF 2SKW ...ZTDNG 2SL3 ... LFBITCLR M,2 2SL8 ... MHUNTW 3,A7020,ALIST 2SL* ... LDCT 0 #100 2SLG ... ANDX 0 EWAIT(3) 2SLM ... BNZ 0 TWAKL 2SLS ... FLIP 2SL^ ...TWAKL 2SM6 ... WAKEUP LF 2SM? ...SLERE MHUNTW 3,A7020,ALIST 2SMD ... LDX 0 BIT11 2SMK ... ORN 0 #4000 2SMQ ... ANDX 0 EWAIT(3) 2SMX ... BZE 0 TWUP2 2SN4 ... LDCT 0 #43 2SN9 ... ANDX 0 EWAIT(3) 2SNB ... BNZ 0 ZENGREQ 2SNH ... LDX 0 EWAIT(3) 2SNN ... ANDN 0 #4000 2SNT ... BZE 0 TWCO [J IF DC4 NOT SENT YET 2SP2 ... LDN 0 4 2SP7 ... ANDX 0 EWAIT(3) 2SP# ... BNZ 0 SAYCO [J IF SPOOLING 2SPF ... LONGSET #36,XFAIL [REMOTE ENG. BUTTON WAIT 2SPL ... LDN 6 2 2SPR ...WTDIN COOR4 #62 [GIVE PCTCON TIME TO SEE INOP 2SPY ... BCT 6 WTDIN 2SQ5 ... LONGOFF 2SQ= ... MHUNTW 3,A7020,ALIST 2SQC ... LDCT 0 #43 2SQJ ... ANDX 0 EWAIT(3) 2SQP ... BNZ 0 ZENGREQ [J UNLESS ALREADY ENGAGED 2SQW ...SAYCO LDX 1 FX1 2SR3 ... LDX 0 ZZCLET(1) 2SR8 ... ANDS 0 EWAIT(3) 2SR* ... OUTPER 2SRG ... INFORM 0,JCORRUPT,1 2SRM ... BRN TWUP2 2SRS ...TWCO LDCT 0 #400 2SR^ ... ORS 0 EWAIT(3) 2SS6 ... COOR1 2SS? ... BRN SLERE 2SSD ...[ 2SSK ...[ 2SSQ ...ZENGREQ 2SSX ... LDCT 0 #100 2ST4 ... ANDX 0 EWAIT(3) 2ST9 ... BZE 0 NDEVR [J IF NO DEVICE ERROR 2STB ... SMO FX1 2STH ... LDX 0 ZZCLET 2STN ... ANDS 0 EWAIT(3) 2STT ...NDEVR 2SW2 ... BZE 7 NOPAR 2SW7 ...[ 2SW# ...[ 2SWF ...) 2SY6 ...Z2RENGAGE 2T*8 ... LDX 7 GSIGN [SET K2 ENTRY MARKER. 2TQ= ... MHUNTW 1,A7020,ALIST [FIND THE BUFFER BLOCK. 2TWK ... LDX 0 BIT9 2W2Y ... ORS 0 EWAIT(1) 2W7# ... LDCT 0 3 [J. DOWN THE "CAN'T DO" PATH IF 2WJB ... ANDX 0 EWAIT(1) [INOPERABLE OR MOPPED OFF. 2W^D ... BNZ 0 YCD 2XBG ... LDCT 0 #100 [J. OUT IF NO ERROR: ORDINARY RESTART 2XRJ ... ANDX 0 EWAIT(1) 2Y8L ... BZE 0 NOPAR 2YKN ...RCDEN LDX 0 IWORK2(2) 2^2Q ...SPLRC BNG 0 PAGE [J. IF PAGE RESTART 2^CS ... BNZ 0 NOPAR [NOWT TO DO IF "ALL" RESTART. 2^SW ...PAGE LDX 4 BITS22LS [GET RESTART RECORD NO. FOR FAILED 329Y ... ANDX 4 INTLK4(1) [BUFFER (TOP BITS MAY BE SET). 32#H ... BNZ 4 ZKLK4 32C6 ...[ J IF INTLK4 OK 32FP ... LDX 4 IWORK14(2) [ELSE USE INITIAL LINE NUMBER 32J# ...ZKLK4 32M2 ... BPZ 0 RESET [J. UNLESS PAGE RESTART. 3344 ...# GET NUMBER OF PAGES IT IS POSSIBLE TO RETREAT. IF > 1 ASK FOR PAGES. 33F6 ... MHUNTW 3,ADATA,IPTEMP [GET THE PAGE RESTART BLOCK. 33HP ... LDX 0 A1(3) 33L# ... BPZ 0 ZAPOS 33NX ... STOZ A1(3) 33RG ...ZAPOS 33W8 ... LDX 0 ALOGLEN(3) [X0 CONTAINS VALUE OF IPAGE AT START 34?= ... LDCT 6 #100 34N# ... ANDX 6 7 355B ... BNZ 6 NTVI 35GD ... LDN 6 4 35XG ... ANDX 6 EWAIT(1) 364P ... BZE 6 NTVI 369Y ... LDN 5 1 36C7 ... STO 5 ACOMMUNE6(2) 36JB ... BRN NMVD 36PL ...NTVI 376N ... SBN 0 2 [OF LISTING: MAX. NO. OF PAGES WE CAN 37HQ ... LDN 5 0 [SET COUNT. [GO BACK 37YS ... BXL 0 A1(3),XALL [J. IF ALL ENTRIES IN BLOCK VALID. 38*W ... LDX 0 A1(3) [OTHERWISE USE COUNT OF PAGES THROWN. 3982 ...XALL ADN 0 1 [COUNT OF VALID ENTRIES. 3994 ...[ LOOK FOR ENTRY FOR BEGINNING OF LAST 39=6 ... LDX 6 0 39?8 ...NVSR SMO 6 39#= ... TXU 4 A1(3) 39*# ... BCC NXT1 [J IF FOUND ENTRY 39BB ... BCT 6 NVSR 39CD ...[ J TO TRY NEXT 39DG ... STOZ A1(3) 39FJ ...[ IF NOT FOUND 39GL ... STO 4 A1+1(3) [JUST RESTART FROM LAST OUTPUT 39HN ... BRN RESET 39K4 ...NXT1 SMO 0 [ADD 1 INTO PAGES COUNT (X5) FOR 3=26 ... TXL 4 A1(3) [EVERY RESTART RECORD < FAILED RECORD 3=C8 ... BCS NXT2 [EVENTUALLY GETTING COUNT OF PAGES 3=S= ... ADN 5 1 [WE CAN GO BACK FROM FAILURE POINT. 3?9# ...NXT2 BCT 0 NXT1 3?LB ... STO 5 ACOMMUNE6(2) [STORE THIS COUNT FOR THE "PAGES" 3#3D ... SBN 5 1 [DON'T ASK FOR PAGES IF [COMMAND 3#DG ... BZE 5 ONLY1 [WE CAN ONLY GO BACK 1 PAGE ANYHOW 3#TJ ... LDCT 0 #100 3*=L ... ANDX 0 FINISH 3*MN ... BNZ 0 YCD 3B4Q ... LONGSET #104,XFAIL [WAITING STYLE CANNOT BE "TERMINATE"D 3BFS ... PHOTO 6 3BWW ... OUTPER [SET UP PERIPHERAL IDENTIFIER PARAMET 3C?Y ... LDX 5 ZJPAGES(1) 3CP2 ... MHUNTW 1,A7020,ALIST 3D64 ... LDN 0 2 3DH6 ... ANDX 0 EWAIT(1) 3DY8 ... DEMANDX 0,5,PCD,NOTE,,2 3F*= ... CALL 5 RIDEM [FREE DEMAND BLOCKS 3FQ# ...PRCD TESTMOVE 6,NMVD [RESET THE POINTER, IF NECESSARY. 3G7B ... MHUNTW 3,ADATA,IPTEMP 3G=Y ...ONLY1 3GBG ...NMVD LDX 5 ALOGLEN(3) 3GKL ... LDX 1 A1(3) 3GSQ ... SBN 5 1 3H3W ... DVS 0 5 3H?2 ... LDX 6 1 3HP= ... LDN 1 1 3HYB ...NXT3 SMO 1 3J7G ... TXU 4 A1(3) 3JBL ... BCC RFND 3JKQ ... BUX 1 NXT3 3JSW ...RFND SBX 1 ACOMMUNE6(2) 3JYM ... BPZ 1 POS 3K4D ... [X6 = NO. OF TIMES IPTEMP HAS BEE 3K89 ... SBN 6 1 3K#2 ... BNG 6 SMBLK 3KCR ... [J. STILL FILLING IPTEMP FOR 1ST T 3KHJ ... ADX 1 5 [PICK UP ENTRY FROM END OF BLOCK 3KM* ... BRN POS 3KR6 ...SMBLK 3KWX ... LDN 1 0 [NUMBER > LIST START FROM BEGINI 3L2N ... LDN 6 0 [SET X6 TO BEGINING 3L6F ...POS 3L== ... SMO 1 3LB3 ... LDX 4 A1+1(3) [LD. RECORD FOR RESTART PAGE 3LFS ... LDX 0 6 3LKK ... MPA 0 5 [MULT X0 BY X5 ADD X1 TO RESULT 3LPD ... STO 1 A1(3) 3LT2 ... LDX 1 FX1 3P5D ...RESET STO 4 IWORK14(2) [INSERT THE RESTART LINE NO. 3PGG ... SBX 4 IWORK1(2) [DIFFERENCE TWIXT RESTART AND CURRENT 3PXJ ... LDXC 0 IWORK3(2) [J. IF LISTING ALL OF FILE. 3Q#L ... BCS NOPAR 3QPN ... SBS 4 IWORK3(2) [RESET NO. OF LINES STILL TO BE LISTE 3R6Q ... BRN NOPAR 3RHS ...# 3RYW ...PCD LDN 0 1 [SET DEFAULT OF 1 PAGE IF REPLY CAN'T 3S*Y ... STO 0 ACOMMUNE6(2) 3SR2 ... BRN PRCD 3T84 ...# 3TK6 ...# 3W28 ...# 3WC= ...Z1RENGAGE [ENTERED WHEN THE REMOTE PERIPHERAL 3WS# ... [ASSOCIATED WITH THE ACTIVITY IS 3X9B ... [REQUIRED TO BE ENGAGED. 3XLD ...# 3Y3G ... LDN 7 0 [SET MARKER FOR K1ENTRY. 3YDJ ...NOPAR LDCT 0 #100 3YTL ... LDX 3 0 3^=N ... ANDX 3 7 3^MQ ... ERS 3 7 424S ... ANDX 0 FINISH 42FW ... BNZ 0 XCD 42WY ... BNZ 3 XCDY1 43#2 ... HUNT7020 3,2 [FIND 7020 BUFFER 43P4 ... LDCT 0 #040 4466 ... ANDX 0 EWAIT(3) 44H8 ... BZE 0 ZENGA [J. IF ENGAGED 44HR ...[ 44JB ...[ 44J^ ...[ TAKE TE ACTION IF DISENGAGED DURING EB ASTERISKS 44KJ ...[ 44L7 ...[ 44LQ ... BNZ 7 ZNLFE [J IF NOT FROM K1 OR K5 44M* ...[ 44MY ...[ 44NH ... LDX 2 FX2 44P6 ... LDCH 0 ATYPE(2) 44PP ... SBN 0 ACTLF/64 44Q# ... BNZ 0 ZNLFE [J IF NOT ACTLF 44QX ... LDX 0 IWORK10(2) 44RG ... ANDN 0 1 44S5 ... BNZ 0 XCDZ [J TO SIMULATE TE IF EB 44SN ...[ 44T? ...[ 44TW ...ZNLFE 44WF ...[ 44X4 ...[ 44XM ...[ 44Y= ... LONGSET #36,XFAIL 45*# ... PHOTO 5 45QB ... OUTPER 467D ... TESTMOVE 5,NMV 46JG ... HUNT7020 3,2 46^J ...NMV LDCT 2 #100 [J. IF NOT ERRORED. 47BL ... ANDX 2 EWAIT(3) 47RN ... BZE 2 PLES 488Q ... FLIP [FLIP SO THAT PCTCON NOTIFIES OPERABI 48KS ... LDN 2 ZJRESET-ZJMARY [SET UP AND OUTPUT THE 492W ...PLES SMO FX1 [APPROPRIATE REQUEST FOR 49CY ... LDX 5 ZJMARY(2) [THE DEVICE TO BE RE-ALLOCATED. 49DY ...#UNS JSKI33 49FY ...( 49GY ... LDN 0 #4000 49HY ... ANDX 0 EWAIT(3) 49JY ... BZE 0 TREQ 49KY ... SMO FX1 49LY ... LDX 0 ZZCLET 49MY ... ANDS 0 EWAIT(3) 49NY ... SMO FX1 49PY ... LDX 5 ZJCORRUPT 49QY ...TREQ 49RY ...) 49T2 ... LDN 0 2 4==4 ... ANDX 0 EWAIT(3) 4=M6 ... DEMANDX 0,5,TENCD,TENTE,RE,1 4?48 ... LDCT 0 #100 4?F= ... ANDX 0 FINISH 4?W# ... BNZ 0 XCD 4#?B ... HUNT7020 3,2 [FIND THE 7020 BUFFER. 4#ND ... LDCT 0 #003 [HAS MOPOFF 4*5G ... ANDX 0 EWAIT(3) [OR INOPERABILITY 4*GJ ... BNZ 0 XCD [HAPPENED? 4*XL ... LDCT 0 #040 [NO - IS 4B#N ... ANDX 0 EWAIT(3) [THE PERIPHERAL NOW 4BPQ ... BZE 0 XENGAGE [ENGAGED? 4C6S ... LONGSET #36,XFAIL [NO 4CHW ... BRN RE [RE-ENTER THE DEMAND ROUTINES. 4CYY ...# 4D3H ...ZENGA LDN 0 #4000 4D66 ... ANDX 0 EWAIT(3) 4D8P ... ERS 0 EWAIT(3) [UNSET B12 IF ENGAGED 4D?# ... BRN XENG 4DB2 ...XENGAGE 4DR4 ... CALL 5 RIDEM [FREE DEMAND BLOCKS 4DY? ...XENG NGN 6 1 4F5G ... ERX 6 BIT9 4F=P ... ANDS 6 EWAIT(3) [ENSURE B9 IN EWAIT UNSET 4FCY ... LDCT 6 #100 [ERROR BIT SET? 4FK8 ... ANDX 6 EWAIT(3) 4G2= ... BZE 6 UPLS2 [NO - RETURN TO CONTINUE LISTING. 4GC# ... LDCH 0 ATYPE(2) [FINISHED IF INPUT DEVICE. 4GSB ... ERS 6 EWAIT(3) [UNSET THE ERROR BIT. 4H9D ... SBN 0 ACTLF/64 4HLG ... BNZ 0 UPLS2 4HMR ... LDN 5 4 4HP4 ... ANDX 5 EWAIT(3) 4HQ* ... BZE 5 XNSP 4HRL ... BPZ 7 XCD 4HSX ... MHUNTW 1,ADATA,IPTEMP 4HW8 ... LDX 0 A1(1) 4HXF ... BNG 0 XCD 4HYQ ... LDX 1 FX1 4J23 ...XNSP 4J3J ... LDX 1 3 [UNSET THE FLIP MARKER IF ITS SET. 4JDL ... PCTHUNTB 1 4JTN ... LDEX 0 APCTID(3) 4K=Q ... ADX 1 0 4KMS ... BCHX 3 £ 4L4W ... LDCH 0 APCTID(3) 4LFY ... ORS 0 APCTD(1) 4LX2 ... ORS 0 APCTX(1) 4M#4 ... ERS 0 APCTD(1) 4MP6 ... ERS 0 APCTX(1) 4N68 ... BZE 7 UPLS2 [J. UNLESS K2 ENTRY POINT. 4NH= ...# 4NY# ... LDXC 0 AWORK1(2) [J. IF TP. 4P*B ... BCS TPW17 4PQD ... STOZ IWORK17(2) [CLEAR CONTINUATION LINE MARKER. 4Q7G ... BRN XFREC 4QJJ ...TPW17 LDN 7 4 4Q^L ... ANDX 7 EWAIT(3) 4RBN ... BZE 7 XFREC 4RRQ ... LDX 7 BITS22LS 4S8S ... ANDS 7 IWORK17(2) 4SKW ...XFREC LDN 7 ALFBUFFNUM [ERROR RESTART DURING LISTING: 4T2Y ... STOZ INTLK1(3) [RE-INITIALISE THE BUFFER BLOCK. 4TD2 ... LDX 6 BITS22LS 4TT4 ... STOZ INTLK3(3) 4W=6 ...YBUFF SMO 7 4WM8 ... ANDS 6 INTLK-1(3) 4X4= ... SMO 7 4XF# ... STOZ INTLK2-1(3) 4XWB ... BCT 7 YBUFF 4Y?D ... LDX 5 IWORK14(2) [SET THE START LINE NUMBER. 4YNG ... LDX 0 IWORK2(2) [J. IF NOT "LINE" RESTART 4^5J ... STO 5 IWORK1(2) 4^GL ... BNZ 0 REWIN 4^XN ... STO 5 IWORK19(2) [PENULTIMATE BUFFER'S RESTART NUMBER. 52#Q ... BZE 4 TERM [J. OUT IF ALREADY ON RESTART RECORD. 52PS ... NGX 4 4 [X4 WAS -VE. 536W ...NBACK BACKSPACE [GO BACK AS NECESSARY FOR LINE RESTAR 53HY ... BCT 4 NBACK 53^2 ... LDXC 0 IWORK5(2) 54B4 ... BCC YGRAPHIC [BR IF NOT BASIC FILE 54R6 ... LDEX 4 FRH(3) 5588 ... ADN 4 3 55K= ... CALL 1 XLOCACONV [LOCATE ADATA,ACONV BLOCK 562# ... LDX 0 ALOGLEN(2) 56CB ... TXL 0 4 56SD ... BCC XBIGNUFF [BR IF BLOCK BIG ENOUGH 579G ... PHOTO 7 57LJ ... ALTLENG 2,4,XLOCACONV [EXTEND BLOCK 583L ... TESTMOVE 7,STILL [BR IF NO BLOCKS MOVED 58DN ... STEPAGAIN 58TQ ...STILL 59=S ... CALL 1 XLOCACONV 59MW ...XBIGNUFF 5=4Y ... LDN 4 A1(2) 5=G2 ... SMO FRH(3) 5=X4 ... MOVE 3 0 [COPY RECORD INTO ACONV 5?#6 ... LDN 1 6 [ 'NORMAL' 5?P8 ... SMO FX2 5#6= ... LDXC 0 IWORK5 5#H# ... ADXC 0 0 5#YB ... BCS NORMAL 5**D ... ADN 1 #20 [ 'ALLCHARS' 5*QG ...NORMAL 5B7J ... LDN 2 #10 5BJL ... TRANSFOR 1,2 [PERFORM TRANSFORMATION 5B^N ...YGRAPHIC 5CBQ ...TERM UP [FINISHED. (ALSO USED FOR "TERMINATE" 5CRS ...# 5C^3 ...REWIN LDN 0 4 5D6= ... ANDX 0 EWAIT(3) 5D?F ... BNZ 0 NOTSET 5DDN ... LDCT 0 #540 5DKY ... ANDX 0 IWORK20(2) 5F32 ... BNG 0 NOTSET 5FD4 ... BZE 0 NOTSET 5FT6 ... SLL 0 3 5G=8 ... BPZ 0 XRAX 5GM= ... LDCT 0 #40 5H4# ... ERS 0 IWORK20(2) 5HFB ... BRN NOTSET 5HWD ...XRAX 5J?G ... LDX 5 IWORK10(2) [SETUP FILE'S GQUAL 5JNJ ... LDN 1 IWORK6(2) 5K5L ... LDN 0 IWORK1(2) 5KGN ... MOVE 0 5 5KXQ ... STO 5 IWORK5(2) 5L#S ... LDX 0 GSIGN 5LPW ... ORS 0 IWORK20(2) [SET THE 'LISTING SETUP FILE' MARKER 5M6Y ... CALL 4 SETUPWORK [SET UP IWORK WORDS FOR SETUP FILE 5MJ2 ... REWIND 5M^4 ... FILEMOVE 1,0 5NB6 ... ORX 5 IWORK10(2) [J. IF NOT TRANSFORMING EITHER FILE. 5NR8 ... BPZ 5 UPLS1 5P8= ... LDXC 0 IWORK10(2) [J. IF TRANSFORMING SETUP FILE ONLY. 5PK# ... BCC YTRA 5Q2B ... LDXC 0 IWORK5(2) [J. IF TRANSFORMING BOTH FILES. 5QCD ... BCS UPLS1 5QSG ... MFREEW ADATA,ACONV [FREE THE TRANSFORM BLOCK WHILE SETUP 5R9J ... BRN UPLS1 [FILE IS BEING LISTED AGAIN. 5RLL ...YTRA SETNCORE 40,3,ADATA,ACONV [SET UP A BLOCK FOR SETUP FILE LISTIN 5S3N ...UPLS1 UPPLUS 1 ['ALL' RESTART EXIT 5SDQ ...[ 5STS ...NOTSET 5T=W ... REWIND 5TMY ... LDXC 0 AWORK1(2) [J. IF NOT LINE PRINTER. 5W52 ... BCS UPLS1 5WG4 ... STOZ IWORK16(2) [ENSURE PAGE THROW FOR RESTART. 5WX6 ... BRN UPLS1 5X#8 ...# 5XP= ...XCDX LONGOFF [CLEAR WAITING STYLE. 5Y6# ...XCDY LDCH 0 ATYPE(2) [J. UNLESS LP. 5YHB ... SBN 0 ACTLF/64 5YYD ... BNZ 0 XCD 5^*G ... MHUNTW 1,A7020,ALIST 5^FT ... LDXC 0 7 5^L8 ... BCC XCNRP 5^QJ ... LDN 0 4 627L ... ANDX 0 EWAIT(1) 62JN ... BNZ 0 SPLA 62^Q ... LDCT 0 #100 63BS ... ANDX 0 EWAIT(1) 63RW ... BNZ 0 XCNRP 648Y ... LDCT 0 #100 64L2 ... ORX 7 0 6534 ... BRN RCDEN 65?Q ...SPLA MHUNTW 3,ADATA,IPTEMP 65JD ... LDX 0 IWORK2(2) 65T8 ... SRC 0 1 66== ... ORX 0 BITS22LS 66M# ... ANDX 0 IWORK2(2) 66RM ... LDCT 4 #100 66Y2 ... ORX 7 4 66YP ... ANDX 4 EWAIT(1) 66^D ... BZE 4 SPLRC 672C ... LDN 4 1 673B ... ADS 4 A1(3) 674B ... BRN SPLRC 67FD ...XCNRP LDX 3 1 67WG ... BRN XCDER 68?J ...XCDY1 MHUNTW 3,A7020,ALIST 68NL ...XCDER LDCT 0 4 [SET THE "WAITING TO BE WRONGED" BIT. 695N ... ORS 0 EWAIT(3) 69GQ ... BUX 7 XCDZ 69XS ...# 6=#W ...XCD ADN 7 1 [MARKER FOR "CAN'T DO". 6=PY ...XTE HUNT7020 3,2 6?72 ...XCDZ LDCT 0 #40 6?J4 ... ORS 0 EWAIT(3) 6?^6 ... ERS 0 EWAIT(3) 6#B8 ... LDCT 0 #002 [SET INOP BIT IN CANTDO ACTION 6#R= ... ORS 0 EWAIT(3) [IN CASE OF 'INPUT' 6*8# ... LDX 5 APCTID(3) [ISOLATE THE 6*KB ... ANDX 5 HALFTOP [INTERFACE BIT POSITION 6B2D ... LDX 6 APCTID(3) [ISOLATE THE 6BCG ... ANDN 6 #7777 [RELATIVE PCT POINTER 6BSJ ... PCTHUNTB 3 [FIND THE PCT INFORMATION BLOCK 6C9L ... ADX 3 6 [POINT TO THE RELAVANT PCT RECORD 6CLN ... LDX 1 3 [FIND THE 6D3Q ...NXT4 LDX 0 APCTDEV(1) [RELEVANT 6DDS ... ANDX 0 5 [DEVISE 6DTW ... BNZ 0 XFND [RECORD 6F=Y ... BDX 1 NXT4 [IN THE PCT DESCRIPTION. 6FN2 ...# 6G54 ...XFND SRL 0 12 [REMOVE 6GG6 ... ORS 0 APCTX(3) [THE SECONDARY 6GX8 ... ORS 0 APCTD(3) [OR PRIMARY 6H#= ... ERS 0 APCTX(3) [FLIP BIT 6HP# ... ERS 0 APCTD(3) [IF IT'S SET 6J6B ... LDX 0 APCTDEV+1(1) [ENGAGE 6JHD ... ANDN 0 #0100 [OCCURED? 6JYG ... ERS 0 APCTDEV+1(1) 6K*J ... LDXC 7 7 6KQL ... BCS WASKX 6L7N ... BNZ 7 UPLS1 6LJQ ... UP 6LR? ...#SKI JSKI33<1$1 6L^S ...UPLS2 UPPLUS 2 6M35 ...#SKI JSKI33 6M4B ...( 6M5M ...UPLS2 LDX 2 FX2 6M6Y ... LDCH 0 ATYPE(2) 6M89 ... SBN 0 ACTLF/64 6M9G ... BZE 0 SLERE 6M=R ...TWUP2 6M#4 ... UPPLUS 2 6M** ...) 6MBW ...# 6MRY ...YCD LDX 4 BITS22LS [GET THE RESTART NO. OF THE FAILED 6N92 ... ANDX 4 INTLK4(1) [BLOCK. 6NL4 ... LDXC 0 IWORK3(2) [J. IF "ALL" LISTING. 6P36 ... BCS WASK2 6PD8 ... SBX 4 IWORK1(2) [UPDATE NO. OF LINES LEFT TO BE LISTE 6PT= ... SBS 4 IWORK3(2) 6Q=# ...# 6QMB ...WASK2 ORN 7 1 [SET CAN'T DO SWITCH 6R4D ...WASKX FREELINK [GET RID OF LINK TO RMTLF 6RFG ... LDCT 0 #100 6RWJ ... LDX 4 IWORK20(2) [RESET AWORK4 SO LISTEND WILL 6S?L ... ANDX 0 4 [(& AWORK2 - SETUP BIT) 6SNN ... STO 4 AWORK4(2) [UNDERSTAND 6T5Q ... STO 0 AWORK2(2) 6TGS ... LDXC 0 IWORK5(2) [J. IF WASN'T TRANSFORMING. 6TXW ... BCC XTRANSF1 6W#Y ... MFREEW ADATA,ACONV 6WQ2 ...XTRANSF1 6X74 ... LDXC 0 IWORK2(2) [J. UNLESS "PAGE" RESTART. 6XJ6 ... BCC XFR 6X^8 ... MFREEW ADATA,IPTEMP [FREE THE PAGE RESTART BLOCK. 6YB= ...XFR BZE 7 YTE [J. IF "TERMINATE"ING. 6YR# ... BNG 4 WSET [J. IF LISTING SETUP FILE : SET A5 -V 6^8B ... LDX 0 IWORK2(2) [RESTART TYPE 6^KD ... SLL 0 1 722G ... BNG 0 XAXA 72CJ ... LDX 4 IWORK14(2) [LINE NO FOR RESTART 72L5 ... SBN 4 1 72SL ... BRN XAXB 739N ...XAXA LDN 4 0 73LQ ...XAXB 743S ... LFEND CD,4 [CANTDO EXIT FOR RESTARTS 74DW ...WSET 74TY ... LFEND CD [CANTDF - NO RESTARTS 75?2 ...# 75N4 ...YTE 75P6 ... LDX 2 FX2 75Q8 ... LDCH 0 IWORK20(2) 75R= ... ANDN 0 #54 75S# ... ERN 0 #50 75TB ... BNZ 0 NSETE [J IF NOT SETUP FILE AT TOP LEVEL 75WD ... FILEMOVE 1,0 [PUT MAINFILE TO TOP LEVEL 75XG ...[ NOTE MB AND CENTRAL LFS GO ON TO 75YJ ...[ MAINFILE IF SETUP TERMINATED. 75^L ...[ BUT GOING TO MF BEFORE END OF SF... 762N ...[ MEANS START MF NOT LINED UP. 763Q ...NSETE 7656 ... LFEND TE [TERMINATE EXIT 76G8 ...# 76X= ...# 77## ...NOTE GEOERR 1,TERNOTAL [CAN'T TERMINATE PAGES REQUEST 77PB ...XFAIL GEOERR 1,WAITUNST [LONGWAIT FIELDS SET? 786D ...# 78HG ...Z3RENGAGE 78YJ ... LDX 7 GSIGN [K8 LISTEND SWITCH 79*L ... MHUNTW 1,A7020,ALIST [FIND BUFFER BLOCK 79QN ... LDCT 0 #100 7=7Q ... ANDX 0 FINISH 7=JS ... BNZ 0 YCD [J. IF FINISH NOW TO SIMULATE CANTDO 7=^W ... LDX 3 1 7?56 ... LDX 1 EWAIT(3) 7?8B ... ANDN 1 4 7??L ... BNZ 1 TWILP 7?BY ... LONGSET #36,XFAIL [REMOTE ENGAGE BUTTON STYLE 7?KF ...TWILP 7?S2 ... FLIP [MARK TO BE NOTIFIED OF RE-ENGAGEMENT 7#94 ... PHOTO 4 7#L6 ... LDN 6 2 7*38 ...XCHAS COOR4 #62 [WAIT SO PCTCON CAN SET PLEASE ENGAGE 7*D= ... BCT 6 XCHAS [BIT IN EWAIT AFTER SENDING DC4 7*T# ... TESTMOVE 4,NMVX 7B=B ... MHUNTW 3,A7020,ALIST 7BMD ... PHOTO 4 7C4G ...NMVX LDCT 0 #40 7CFJ ... ANDX 0 EWAIT(3) 7CWL ... BNZ 0 NMVZ [J. IF NOT YET RE-ENGAGED 7C^W ... LDN 0 4 7D56 ... ANDX 0 EWAIT(3) 7D8B ... BNZ 0 NMVZ 7D?N ... LONGOFF [MAY HAVE BEEN RE-ENGAGED AT ONCE AND 7DNQ ... BRN XOKX [THEREFORE WAIT FIELD NOT CLEARED 7F5S ...NMVZ OUTPER 7FGW ... LDCT 6 #200 7FXY ... ANDX 6 IWORK20(2) 7G*2 ... ERS 6 IWORK20(2) [B1 SET IF FIRST TIME THROUGH HERE 7GQ4 ... ADN 6 #2000 7HJ8 ... SLC 6 2 [SET B11 FOR INTERVAL;SET B23 IF 7H^= ... ERN 6 1 [MINUTE DELAY REQUIRED 7JB# ... LDX 5 ZJKEN(1) [PLEASE LINE UP UNIT IXXN. 7JRB ... STO 7 IWORK14(2) [SET -VE. SO ENTRY IS UNALTERED IF CD 7K8D ... MHUNTW 3,A7020,ALIST 7KB^ ... LDN 0 0 7KKG ... LDX 3 EWAIT(3) 7L2J ... ANDN 3 4 7LCL ... BNZ 3 TWINF 7LSN ... DEMANDY 0,5,XCDY1,TERMA,YMOC,6 7M9Q ... TESTMOVE 4,NOMOV 7MLS ... MHUNTW 3,A7020,ALIST 7N3W ...NOMOV LDCT 0 #003 7NDY ... ANDX 0 EWAIT(3) 7NW2 ... BNZ 0 XCD [J. IF INOP OR MOP OFF 7P?4 ... LDCT 0 #040 7PN6 ... ANDX 0 EWAIT(3) 7Q58 ... BZE 0 XOK [J IF ENGAGED 7QG= ... LONGSET #36,XFAIL 7QX# ... BRN YMOC [RE-ENTER DEMAND. 7R#B ...XOK CALL 5 RIDEM [FREE DEMAND BLOCKS 7RPD ...XOKX CALL 4 SETUPWORK [SET UP IWORK WORDS FOR SETUP FILE 7S6G ... REWIND 7SHJ ... UP [UP TO RMTLF 7SS= ...TWINF LDX 1 0 7T4Y ... INFORMX 1,5,1 7T*N ... BRN TERMA 7TQQ ...[ 7W7S ...[ TERMINATE FROM PLEASE LINE UP 7WJW ...TERMA REWIND [REWIND SETUP FILE 7W^Y ... LDX 5 IWORK5(2) [KEEP SETUP FILE'S GQUAL 7XC2 ... BPZ 5 XTRANSF2 [J. IF WASN'T TRANSFORMING SETUP FILE 7XS4 ... MFREEW ADATA,ACONV 7Y96 ...XTRANSF2 7YL8 ... LDN 0 IWORK6(2) 7^3= ... LDN 1 IWORK1(2) 7^D# ... MOVE 0 5 [MOVE MAIN FILE'S IWORK WDS 7^TB ... STO 5 IWORK10(2) 82=D ... FILEMOVE 1,0 [MOVE MAINFILE TO TOP LEVEL 82MG ... LDX 0 GSIGN 834J ... ERS 0 IWORK20(2) [UNSET 'LISTING SETUP FILE' MARKER 83FL ... LDCT 0 #40 83WN ... ORS 0 IWORK20(2) 84?Q ... MHUNTW 3,A7020,ALIST 84G? ... LDN 6 1 84NS ... LDN 0 4 855W ... ANDX 0 EWAIT(3) 85GY ... BZE 0 NSPLN 85Y2 ... MHUNTW 3,ADATA,IPTEMP 86*4 ... LDX 1 ALOGLEN(3) 86Q6 ... LDX 7 1 8778 ... SBN 7 1 87J= ... LDX 5 A1(3) 87NK ... ADN 5 1 87SY ... STO 5 A1(3) 87^# ... SBN 1 2 88BB ... ADN 3 A1+1 88RD ... NGN 0 1 88^^ ... STOC 0 0(3) 898G ... LDX 4 3 89KJ ... MOVE 3 0(1) 8=2L ... LDX 1 FX2 8=7S ... LDX 6 5 8=G8 ... ANDN 6 #37 8=MB ... STO 6 IWORK11(1) 8=SJ ... NGN 6 100 8=^W ... DVS 4 7 8?FG ... LDX 0 IWORK1(1) 8?^6 ... SMO 4 8#DQ ... STO 0 0(3) 8*?6 ...NSPLN 8B5= FREELINK [FREE LINKS 8BJW ... ACROSS PCTLISTA,4 [AND OVER TO PCTLISTA 8C4G # 8CJ6 # 8D3Q #END ^^^^ ...53150712001300000000