{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: RENGAGE851)}}
====== RENGAGE851 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:ALTLENG|ALTLENG]], [[george:macro:BACKSPACE|BACKSPACE]], [[george:macro:BXL|BXL]], [[george:macro:COOR1|COOR1]], [[george:macro:COOR4|COOR4]], [[george:macro:DEMANDX|DEMANDX]], [[george:macro:DEMANDY|DEMANDY]], [[george:macro:FILEMOVE|FILEMOVE]], [[george:macro:FLIP|FLIP]], [[george:macro:FREELINK|FREELINK]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT7020|HUNT7020]], [[george:macro:INFORM|INFORM]], [[george:macro:INFORMX|INFORMX]], [[george:macro:LF|LF]], [[george:macro:LFBITCLR|LFBITCLR]], [[george:macro:LFEND|LFEND]], [[george:macro:LONGOFF|LONGOFF]], [[george:macro:LONGSET|LONGSET]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:OUTPER|OUTPER]], [[george:macro:PCTHUNTB|PCTHUNTB]], [[george:macro:PHOTO|PHOTO]], [[george:macro:RESET|RESET]], [[george:macro:REWIND|REWIND]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:STEPAGAIN|STEPAGAIN]], [[george:macro:TESTMOVE|TESTMOVE]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]], [[george:macro:VFREEW|VFREEW]], [[george:macro:WAKEUP|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