10 22FL ... SEG SETDISC,866 4 23YG # 20 24D6 # THIS SEGMENT IMPLEMENTS THE EXTENSION TO THE REDON COMMAND. 21 24XQ # IT ALLOWS NON-STANDARD AND VIRGIN UDAS DEVICES TO BE INTRODUCED 21 25CB # TO GEORGE SUCH THAT INITIATORS AND REFORMATTER PROGRAMS CAN BE RUN 4 25X2 # 4 26BL # 12 26W= SEGENTRY K1SETDISC,QK1SETDISC 4 27*W # 13 27TG # COMMAND ERROR MESSAGE IDENTIFIERS. 20 28*6 RMESS1 +EWSET [ERROR %B:REDON HAS BEEN OBEYED 15 28SQ [FOR UNIT %A 20 29#B RMESS2 +EWSUIT [ERROR %B:A STANDARD SU IS LOADED 15 29S2 [ON UNIT %A 20 2=?L RMESS3 +EWNSTAV [ERROR %B:NON-STANDARD SU %A IS 16 2=R= [NOT AVAILABLE 19 2?=W RMESS4 +EWDUPX [ERROR %B:SERIAL NUMBER %A IS 16 2?QG [ALREADY ONLINE 9 2#=6 RMESS5 +APFERR 9 2#PQ RMESS6 +JNOPER 9 2*9B RMESS7 +JEXCSN 21 2B8L RMESS8 +ENTIN34 [ERROR %B UNIT %A IS NOT DEDICATED 18 2BDD ...RMESS9 +BMVCG [ERROR %A CG IN PROGRESS 20 2BJ* ...RMESS10 +EWAITSWIT [ERROR-UNIT WAITING TO BE SW OUT 4 2BN= # 8 2BY4 ...#DEF REDONBIT=#100 4 2C7W # 17 2CMG # TABLE FOR DETERMINING VALUES FOR HBLOCK AND HCYL 4 2D76 # 7 2W=L ...#DEF NEDS=2*EDS 8 2W=M ...#DEF NEDS30=2*EMDS 9 2W=N ...#DEF NEDS200L=4*EMDS 8 2W=P ...#DEF NEDS200=6*EMDS 8 2W=Q ...#DEF NEDS100=8*EMDS 8 2W=R ...#DEF NEDS80=10*EMDS 9 2W=S ...#DEF NFDS160=12*EMDS 9 2W=T ...#DEF NFDS640=14*EMDS 4 2W=W ...TAB 13 2W=X ...#TRA TAB+NEDS [EDS 8 8 2W=Y ... +80 8 2W=_ ... -100 13 2W?2 ...#TRA TAB+NEDS30 [EDS30 8 2W?3 ... +296 8 2W?4 ... -203 16 2W?5 ...#TRA TAB+NEDS200L [LDC STYLE EDS 200 8 2W?6 ... +472 8 2W?7 ... +822 16 2W?8 ...#TRA TAB+NEDS200 [2900 TYPE EDS 200 8 2W?9 ... +376 8 2W?= ... +806 14 2W?? ...#TRA TAB+NEDS100 [EDS 100 8 2W?# ... +376 8 2W?* ... +402 14 2W?B ...#TRA TAB+NEDS80 [EDS 80 8 2W?C ... +144 8 2W?D ... +803 14 2W?F ...#TRA TAB+NFDS160 [FDS 160 8 2W?G ... +296 8 2W?H ... +810 14 2W?J ...#TRA TAB+NFDS640 [FDS 640 8 2W?K ... +1200 8 2W?L ... +828 9 2W#= QMASK #77777770 9 2WRW RMASK #777777 9 2X?G TMASK #700077 8 2XR6 TEN +10 18 2Y=Q T4 GEOERR 1,NOJETSET [EWDAS/JETSET NOT FOUND 19 2YQB T12 GEOERR 1,LONGSET [LONG WAIT BITS ALREADY SET 21 2_=2 T16 GEOERR 1,BREAKIN? [CAN YOU BREAK IN FROM OPS CONSOLE? 4 2_PL # 20 329= # SUBROUTINE TO FIND PLIST ENTRY AND WAIT IF B17=1 IN WORD 0. 19 32NW # ON ENTRY X4 CONTAINS GEOGRAPHICAL NUMBER OF DEVICE.X2=FX2 20 338G # ON EXIT X1 PLIST RECORD;X7=0 IF NO COORDINATION;X7=1 IF COOR 16 33N6 # X0 IS DESTROYED.X2=FX2. LINK STORED IN AWORK3. 4 347Q # 16 34MB RB17 SBX 0 FX1 [RELATIVISE LINK 9 3572 STO 0 AWORK3(2) 17 35LL LDN 7 0 [NO COORDINATION YET 15 366= RB19 LDX 1 AWORK4(2) [PTR TO AIPA 9 36KW LDX 0 BSUNIT(1) 18 375G BPZ 0 T2 [J IF GRUESOME NOT BUSY 17 37K6 LDN 7 1 [IF NOT SET COOR MARK 19 384Q ... COOR3 ENDGRU [WAIT FOR GRUESOME TO FINISH 15 38JB BRN RB19 [TRY AGAIN 15 3942 T2 LDX 0 AWORK3(2) [RESTORE LINK 15 39HL ADX 0 FX1 [RELATIVISE 13 3=3= EXIT 0 0 [EXIT 4 3=GW # 4 3?2G # 20 3?G6 # THE FOLLOWING SUBROUTINE DETERMINES WHETHER A 'PLEASE LOAD' 11 3?_Q # MESSAGE SHOULD BE OUTPUT. 14 3#FB # ENTRY CONDITIONS AS FOR ROUTINE RB17 20 3#_2 # EXIT CONDITIONS SAME AS RB17 EXCEPT EXITS 0 IF UNIT NOT ONLINE 21 3*DL # EXITS 1 IF UNIT ONLINE ALSO X3 EWDAS/JETSET AND X6 IS DESTROYED. 4 3*Y= # 17 3BCW RB18 NGN 7 1 [FIRST TIME THROUGH 15 3BXG RBA3 HUNTW 3,EWDAS,JETSET [FIND JETSET 17 3CC6 BNG 3 T4 [ERROR IF NOT FOUND 9 3CWQ LDX 0 ASMARK(3) 17 3DBB BPZ 0 RBA1 [J IF UNIT NOT ONLINE 17 3DW2 BPZ 7 RBA2 [J IF NOT FIRST TIME 16 3F*L SBX 6 FX1 [RELATIVISE LINK 18 3FT= CALL 0 RB17 [SEE IF GRUESOME FINISHED 16 3G#W ADX 6 FX1 [RELATIVISE LINK 21 3GSG BNZ 7 RBA3 [J IF COOR TO REFIND JETSET AND SEE 17 3H#6 [IF UNIT STILL ONLINE 15 3HRQ RBA2 EXIT 6 1 [UNIT ONLINE 16 3J?B RBA1 EXIT 6 0 [UNIT NOT ONLINE 4 3JR2 # 21 3K=L # SUBROUTINE TO CONVERT SERIAL NO IN BACK1 OF EWDAS/JETSET TO DECIMA 10 3KQ= # IN ACOMMUNE1 AND 2. 15 3L9W # ON ENTRY X2=FX2 X3 EWDAS/JETSET X5 LINK 14 3LPG # ON EXIT X0,X2,X5,X6 AND X7 DESTROYED 4 3M96 # 16 3MNQ T13 LDN 0 6 [NO.OF CHARACTERS 15 3N8B LDXC 7 BACK1(3) [SERIAL NO 17 3NN2 SLL 7 6 [IGNORE LEADING ZEROS 7 3P7L T26 LDN 6 0 19 3PM= SLL 67 3 [FIRST/NEXT CHARACTER IN X6 10 3Q6W DCH 6 ACOMMUNE1(2) 15 3QLG BCHX 2 / [UPDATE MOD 15 3R66 BCT 0 T26 [REDUCE COUNT 14 3RKQ EXIT 5 0 [EXIT. 4 3S5B # 21 3SK2 # SUBROUTINE TO CONVERT GEOGRAPHICAL NO AND ASUNUM TO THE FOLLOWING 19 3T4L # FORMAT GEOG(ASUNUM).ASUNUM NO O/P IF COUNT OF SU'S =1 18 3TJ= # ON ENTRY X1 PLIST X3 JETSET X4 TO CONTAIN GEOG NO. 18 3W3W # ON EXIT X0,X2,X5,X6,X7 DESTROYED X1 PLIST.X3 JETSET 4 3WHG # 14 3X36 ...RY8 LDX 6 4 [GEOG NO 8 3XGQ LDX 2 FX2 16 3Y2B STO 0 AWORK1(2) [REMEMBER LINK 19 3YG2 CALL 0 RY7 [CONVERT GEOG NO TO DECIMAL 10 3Y_L LDX 0 BSUNIT1(1) 7 3_F= SRL 0 6 16 3_YW ANDN 0 #77 [COUNT OF SU'S 7 42DG SBN 0 1 19 42Y6 BZE 0 T14 [ONLY O/P GEOG IF SU COUNT=1 13 43CQ LDN 0 #30 [( 15 43XB DCH 0 ACOMMUNE3(2) [TO MESSAGE 20 44C2 ... LDX 6 ASUNUM(3) [SU NO. RELATIVE TO HARDWARE UNIT 15 44WL BCHX 2 / [UPDATE MOD 19 45B= CALL 0 RY7 [CONVERT ASUNUM TO DECIMAL 13 45TW LDN 0 #31 [) 15 46*G DCH 0 ACOMMUNE3(2) [TO MESSAGE 15 46T6 BCHX 2 / [UPDATE MOD 20 47#Q T14 SLC 2 2 [CALCULATE NO OF CHARS IN MESSAGE 8 47SB LDX 1 FX2 7 48#2 SLL 1 2 7 48RL SBX 2 1 20 49?= LDX 5 2 [X5 CONTAINS NO. OF CHARACTERS 8 49QW LDX 2 FX2 15 4==G LDX 0 AWORK1(2) [RESTORE LINK 13 4=Q6 EXIT 0 0 [EXIT 8 4?9Q RY7 SMO FX1 16 4?CK ... DVS 5 TEN [DIVIDE BY TEN 20 4?KD ... BZE 6 XC1 [J IF MOST SIG. CHARACTER ZERO 8 4?R? ... SMO FX1 18 4?_6 ... BXL 6 TEN,XC2 [_ IF MOST SIG CHAR < 10 17 4#6_ ... LDX 7 6 [OTHERWISE CONVERT IT 8 4##S ... SMO FX1 8 4#GM ... DVS 6 TEN 18 4#NL DCH 7 ACOMMUNE3(2) [DUMP MOST SIG. CHARACTER 15 4*8= BCHX 2 / [UPDATE MOD 10 4*D4 ...XC2 DCH 6 ACOMMUNE3(2) 7 4*MW ... BCHX 2 / 19 4*XN ...XC1 DCH 5 ACOMMUNE3(2) [DUMP LEAST SIG. CHARACTER 15 4B7G BCHX 2 / [UPDATE MOD 7 4BM6 EXIT 0 0 4 4C6Q # 9 4CLB # ENTRY FROM REDON. 12 4D62 # CPAR/GNUMCON IN A TIVITY CHAIN 4 4DKL # 6 4F5= QK1SETDISC 21 4FJW MHUNT 3,CPAR,JSCE [LOOK FOR BLOCK CONTAINING DETAILS 9 4G4G #SKI K6SETDISC>99-99 11 4GJ6 TRACE JSCEA(3),SETDISC 18 4H3Q LDX 1 JSCEP(3) [GET PTR TO DEVICE LIST 19 4HHB STO 1 AWORK2(2) [REMEMBER PTR TO DEVICE LIST 17 4J32 ... LADDP 1,1 [AND GET PTR TO APIA 17 4JGL STO 1 AWORK4(2) [AND STORE AS WELL 8 4JK9 ... SMO FX1 9 4JMS ... LDX 0 RMESS9 18 4JQC ... LDX 7 BSUNIT3(1) [TEST IF CG COMMAND... 7 4JRN ... LDX 6 7 17 4JT2 ... ANDN 7 BCGCOM [..IN PROGRESS AND 15 4JXK ... BNZ 7 X3 [..J IF SO 9 4K2Q ... ANDN 6 BSWOUT 8 4K5X ... BZE 6 NC 20 4K94 ... LGEOG AWORK2(2),4 [ERROR IF WAITING TO BE SW OUT 8 4K#9 ... CALL 0 RY8 10 4KCB ... OUTPARAM 5,ACOMMUNE3 10 4KDY ... LDX 0 RMESS10(1) 8 4KGH ... BRN X3 10 4KKR ...NC LDX 7 BSUNIT3(1) 8 4KPN ... ANDN 7 #10 21 4KTK ... BZE 7 NB [_ IF STATUS CHANGE NOT IN PROGRESS 9 4K_G ... COOR3 KTSCTF 16 4L5C ... LDX 1 AWORK4(2) [RESTORE APIA PTR 8 4L9# ... BRN NC 16 4L*9 ...NB JDED 1,NA [OK IF DEDICATED 10 4LF6 LGEOG AWORK2(2),4 19 4LYQ CALL 0 RY8 [CONVERT UNIT NO TO DECIMAL 10 4MDB OUTPARAM 5,ACOMMUNE3 9 4MY2 LDX 0 RMESS8(1) 8 4NCL BRN X3 10 4PBW NA LDX 7 BSUNIT1(1) 7 4PWG SRL 7 6 18 4QB6 ANDN 7 #77 [COUNT OF SU'S FROM PLIST 7 4QTQ SBN 7 1 8 4R*B BRN X1C 8 4X=B X5 LDX 1 FX1 9 4XQ2 LDX 0 RMESS5(1) 9 53M2 X3 STO 0 AWORK2(2) 15 546L BRN X6 [DO COMERRX 7 5656 X1C LDN 5 0 9 56JQ X4 LDEX 4 JSCEA(3) 17 574B FREECORE 3 [FREE CPAR/GNUMCON 18 57J2 PARANOT 2 [GET 2ND PARAMETER (SUSN) 10 583L MHUNT 3,CPB,CUNI 9 58H= LDX 0 ANUM(3) 17 592W BZE 0 X7 [J IF NULL PARAMETER 17 59GG BPZ 0 X8 [J IF 2ND PARM EXISTS 11 5=26 X7 COMERR JPARMIS,JEXSER 17 5=FQ X8 CHNUMCON [CONVERT TO BINARY 15 5=_B TESTREP CHNUMERR,T23 [J I& ERROR 11 5?F2 MHUNT 3,CPAR,GNUMCON 19 5?YL LDX 6 A1+1(3) [SERIAL NO. IN ENGLISH NOW 17 5#D= FREECORE 3 [FREE CPAR/GNUMCON 10 5#XW MHUNT 1,CPB,CUNI 7 5*CG FREECORE 1 18 5*X6 BZE 6 X9 [ZERO SERIAL NO. ILLEGAL 9 5BBQ LDX 0 RMASK(1) 7 5BWB TXL 0 6 18 5CB2 BCC X10 [SERI L NO OK IF _#777777 17 5CTL X9 LDX 0 RMESS7(1) [ILLEGAL SERIAL NO. 8 5D*= BRN X3 19 5DSW X10 SETNCORE HSCRATCH+4/4*4-A1,3,EWDAS,JETSET [SET UP JETSET 8 5F#G LDN 0 A1(3) 9 5FS6 LDN 1 A1+1(3) 8 5G?Q STOZ A1(3) 16 5GRB MOVE 0 HSCRATCH+4/4*4-A1-1 [ZEROISE BLOCK 17 5H?2 STO 6 BACK1(3) [SERIAL NO TO BACK1 19 5HQL CALL 0 RB17 [SEE GRUESOME USING DEVICE 12 5J== HUNTW 3,EWDAS,JETSET [ 16 5JPW BNG 3 T4 [NO JETSET BLOCK 20 5K9G LDX 2 3 [LOOK FOR ANY OTHER JETSETS WITH 17 5KP6 T5 LDX 2 FPTR(2) [SAME GEOG AND ASUNUM 9 5L8Q LDX 0 ATYPE(2) 8 5LNB SRL 0 12 10 5M82 SBN 0 EWDAS+JETSET 15 5MML BNZ 0 T6 [J NOT JETSET 16 5N7= TXU 4 GEOGU(2) [COMPARE GEOG 15 5NLW TXU 5 ASUNUM(2) [AND ASUNUM 20 5P6G BCC T7 [J IF ANOTHER REDON FOR THIS UNIT 7 5PL6 T6 TXU 3 2 18 5Q5Q BCS T5 [J IF NOT END OF CHAIN 16 5QKB ... LDCT 0 REDONBIT [BEING REDONED BIT 15 5R52 ... ORS 0 BSUNIT(1) [BIT TO APIA 18 5RJL STO 4 GEOGU(3) [STORE DETAILS IN JETSET 9 5S4= STO 5 ASUNUM(3) 16 5SHW LDX 0 BACK1(3) [SERIAL NUMBER 9 5T3G STO 0 HSTUN(3) 8 5TH6 SMO FX2 9 5W2Q LDX 0 AWORK2 20 5WGB STO 0 HUNIT(3) [DEVICE LIST POINTER TO JETSET 17 5X22 LTYPE HUNIT(3),7 [DEVICE TYPE IN X7 8 5XFL SLL 7 18 15 5X_= LPROP HUNIT(3),0 [PROPERTIES 15 5YDW SLL 0 6 [TO B10-B17 7 5YYG ORX 7 0 10 5_D6 LDX 0 BSUNIT1(1) 8 5_XQ SMO FX1 19 62CB ... ANDX 0 TMASK [SUBTYPE AND B6-B8 OF APIA 7 62X2 ORX 7 0 16 63BL STO 7 HTYPE(3) [ALL TO JETSET 9 63W= LDX 0 BSUNIT(1) 8 64*W ANDN 0 #7777 16 64TG STO 0 ABSUN(3) [BSUN TO JETSET 10 65*6 STUBASE 1,ASUNUM(3),7 15 65SQ STO 7 ASUBASE(3) [BASE OF SU 4 65TR ...# 15 65WS ...# CODE TO DETERMINE AND STORE HBLOCK AND HCYL 4 65XT ...# 8 6QW2 ... LDX 2 FX2 18 6QW* ... JENV X1900,1900 [_ IF 1900 ENVT 7 6QWN ... LDN 4 2 21 6QX3 ... JPROP AWORK2(2),TFDS640,TFDS160,TEDS80,TEDS100,TEDS200,TEDSLDC 9 6QXB ...# HERE IF EDS 8/30/60 9 6QXP ...XREST LDX 4 HTYPE(3) 8 6QY4 ... ANDN 4 #77 20 6QYC ... ADX 4 4 [USE SUBTYPE AS MODIFIER 8 6QYQ ... BRN XBLK 7 6Q_5 ...X1900 LDN 4 4 10 6Q_D ... LPROP AWORK2(2),7 8 6Q_R ... SBN 7 #404 20 6R26 ... BZE 7 XBLK [_ IF EDS 200 UNDER 1900 8 6R2F ... BRN XREST 5 6R2S ...TFDS640 7 6R37 ... ADN 4 2 5 6R3G ...TFDS160 7 6R3T ... ADN 4 2 5 6R48 ...TEDS80 7 6R4H ... ADN 4 2 5 6R4W ...TEDS100 7 6R59 ... ADN 4 2 5 6R5J ...TEDS200 7 6R5X ... ADN 4 2 5 6R6= ...TEDSLDC 7 6R6G ... ADN 4 2 7 6R6Q ...XBLK LDX 1 4 8 6R72 ... SMO FX1 9 6R7? ... LDX 7 TAB(1) 9 6R7L ... STO 7 HBLOCK(3) 8 6R7_ ... SMO FX1 9 6R8# ... LDX 7 TAB+1(1) 21 6R8M ... BPZ 7 T10 [_ IF ENTRY OK AS IT STANDS 20 6R92 ... NGX 7 7 [OTHERWISE DOUBLE IF NEC 21 6R9* ... LDX 0 HTYPE(3) [ACCORDING TO B12 OF PROPS 8 6R9N ... ANDN 0 #4000 8 6R=3 ... BZE 0 T10 7 6R=B ... ADX 7 7 9 6R=P ...T10 STO 7 HCYL(3) 4 6R?C ...# 9 6R#= LONGSET #37,T12 20 6RRW ... LDX 0 HUNIT(3) [STORE D.L. PTR FOR CARTCONT 9 6S?G ... STO 0 AWORK3(2) 10 6T=Q DOWN CARTCONT,2 18 6WPL CALL 6 RB18 [SEE IF UNIT AVAILABLE 18 6X9= BRN T13Z [DEMAND MESSAGE IF NOT 7 6XNW LDX 6 1 15 6Y8G BRN T18 [OK-CARRY ON 21 6YN6 T13Z CALL 5 T13 [CONVERT SERIAL NO TO OCTAL IN ACOM1 9 6YXY ... LDX 4 GEOGU(3) 8 6_7Q SMO FX2 15 6_MB LDX 1 AWORK4 [PTR TO AIPA 21 7272 CALL 0 RY8 [CONVERT GEOG TO DECIMAL IN ACOMMUNE3 18 72LL LDN 7 6 [NO. OF CHARCATERS FOR %A 13 736= OUTPARAM 7,ACOMMUNE1 [%A 10 73KW OUTPARAM 5,ACOMMUNE3 18 745G DEMAND 1,EWNSTAN,T15,T16,T17,1 [PLEASE LOAD SU THING 9 74K6 LONGSET #37,T12 18 754Q CALL 6 RB18 [SEE IF UNIT ONLINE NOW 17 75JB BRN T17 [REPEAT DEMAND IF NOT 7 7642 LDX 6 1 15 76HL MFREEW ADATA,ADEMAND [FREE DEMAND 14 773= MHUNTW 1,GMON,AOUT [BLOCKS 8 77GW BNG 1 T18 7 782G FREECORE 1 7 78G6 T18 LONGOFF 8 78_Q LDCT 0 #200 9 79FB ANDX 0 ASMARK(3) 15 79_2 BZE 0 TA1 [UDAS DEVICE 17 7=DL JENG HUNIT(3),T19 [J IF DEVICE ENGAGED 18 7=Y= FREECORE 3 [OTHERWISE FREE JETSET 15 7?CW BRN T23 [AND FINISH 15 7?XG T19 LDXC 7 BACK1(3) [SERIAL NO 18 7#C6 FINDSUX 1,7,T20 [LOOK FOR POSSIBLE ASTUC 17 7#WQ BRN T30 [ERROR IF ASTUC FOUND 20 7*BB T20 NAME 3,EWDAS,ASTUC [ASTUC NOT FOUND SO RENAME JETSET 8 7*W2 LDCT 0 #140 9 7B*L STO 0 ASMARK(3) 17 7BT= LDN 2 BCCB [CHAIN ASTUC IN CCB 15 7C#W T22 LDX 2 FPTR(2) [NEXT BLOCK 8 7CSG TXU 2 CXCC 15 7D#6 BCC T21 [END OF CHAIN 9 7DRQ LDX 0 BACK1(2) 17 7F?B BZE 0 T21 [J IF END OF ASTUCS 16 7FR2 BNG 0 T22 [J IF DEAD ASTUC 17 7G=L LDX 5 GEOGU(2) [COMPARE GEOG NOS. 9 7GQ= TXL 5 GEOGU(3) 15 7H9W BCS T22 [J NOT SAME 9 7HPG TXU 5 GEOGU(3) 16 7J96 BCS T21 [MUST BE GREATER 17 7JNQ LDX 5 ASUNUM(2) [ELSE CHECK ASUNUM 9 7K8B TXL 5 ASUNUM(3) 8 7KN2 BCS T22 9 7L7L T21 CHAIN 3,BPTR(2) 9 7L?H ... LDX 0 ASUNUM(3) 7 7LCD ... SMO 6 15 7LH* ... STO 0 BSUNIT5 [STORE CSN 8 7LM= LDCT 0 #10 7 7M6W SMO 6 9 7MLG ADS 0 BSUNIT1 20 7N66 LONGON #67 [WAKE UP ACTIVITES WAITING FOR SU 17 7NKQ T23 ENDCOM [TERMINATE COMMAND 4 7P5B # 16 7PK2 # REDON HAS BEEN OBEYED FOR THIS UNIT ALREADY 4 7Q4L # 21 7QJ= T7 STO 5 ASUNUM(3) [STORAGE UNIT SERIAL NUMBER TO JETSET 8 7R3W SMO FX1 20 7RHG LDX 0 RMESS1 [COMMAND ERROR MESSAGE IDENTIFIER 21 7RR# ... ORX 0 GSIGN [SET B0 SO BEING REDONED NOT CLEAR 8 7S36 LDX 2 FX2 16 7SGQ BRN RA1 [JOIN OTHER PATH 4 7T2B # 10 7TG2 # REDON ON A STANDARD SU 4 7T_L # 20 7WF= TA1 LDX 0 RMESS2(1) [COMMAND ERROR MESSAGE IDENTIFIER 17 7WYW LDX 1 6 [PLIST POINTER TO X1 9 7X8N ... LDX 4 GEOGU(3) 21 7XDG RA1 STO 0 AWORK2(2) [REMEMBER COMMAND ERROR IDENTIFIER 20 7XY6 CALL 0 RY8 [CONVERT GEOG NO ETC. TO DECIMAL 9 7YCQ STOZ ASUNUM(3) 9 7YXB STOZ GEOGU(3) 16 7_C2 OUTPARAM 5,ACOMMUNE3 [O/P PARAMETER 8 7_WL BRN RY67 4 82B= # 11 82TW # OPERATOR TYPES CANTDO LOAD 4 83*G # 16 83T6 T15 HUNTW 3,EWDAS,JETSET [REFIND JETSET 8 84#Q BNG 3 T4 19 84SB LDX 0 RMESS3(1) [COMMAND MESSAGE IDENIFIER 8 85#2 BRN RA2 4 85RL # 9 86?= # SU ALREADY ONLINE 4 86QW # 8 87=G T30 SMO FX1 9 87Q6 LDX 0 RMESS4 9 889Q RA2 STO 0 AWORK2(2) 19 88PB CALL 5 T13 [CONVERT SERIAL NO. TO OCTAL 9 8992 STOZ ASUNUM(3) 9 89NL STOZ GEOGU(3) 7 8=8= LDN 5 6 16 8=MW OUTPARAM 5,ACOMMUNE1 [O/P PARAMETER 11 8?7G RY67 HUNTW 3,EWDAS,JETSET 8 8?M6 BNG 3 T4 15 8#6Q FREECORE 3 [FREE JETSET 8 8#8F ... LDCT 0 #400 9 8#=8 ... ANDX 0 AWORK2(2) 21 8#?X ... BNZ 0 X6A [_ IF REDON ALREADY IN PROGRESS 9 8#*L ... LDCT 0 REDONBIT 15 8#C* ... LDX 3 AWORK4(2) [APIA PTR 19 8#F4 ... ERS 0 BSUNIT(3) [CLEAR BEING REDONED BIT 8 8#GR ... BRN X6 20 8#JG ...X6A ERS 0 AWORK2(2) [CLEAR B0 OF MESS IDENTIFIER 15 8#LB X6 COMERRX AWORK2(2) [REPORT ERROR 10 8*62 MENDAREA 50,K99SETDISC 4 8*KL #END 8 ____ ...33210623000200000000