12 22FL #LIS K0CONSERNO>K0LIBRARY 12 22_= SEG CONSERNO,6,N.R.BOULT 17 23DW # THIS ENTRY POINT IMPLEMENTS THE CONSERNO MACRO. 20 23YG # ACOMMUNE1 HOLDS THE TSN TO BE CONVERTED TO OCTAL CHARACTERS. 21 24D6 # ACOMMUNE2 HOLDS THE POSN. WITHIN THE BLOCK TO STORE THE OUTPUT - 18 24XQ # IF ZERO, A1 OF A FLIB/FTSN TO BE SET UP IS ASSUMED. 20 25CB # ACOMMUNE3 HOLDS ATYPE OF THE BLOCK TO STORE THE OUTPUT IN - 19 25X2 # IF ZERO AND ACOMMUNE2 IS SET, THE ACTIVITY BLOCK IS USED. 19 26BL # ON EXIT, THE COUNT OF CHARS. IS ALSO LEFT IN ACOMMUNE1. 4 26W= # 13 27*W SEGENTRY K1CONSERNO,QK1CONSERNO 13 27TG SEGENTRY K2CONSERNO,QK2CONSERNO 13 28*6 SEGENTRY K3CONSERNO,QK3CONSERNO 4 28SQ # 4 29#B # 6 29S2 QK1CONSERNO 13 2=?L LDX 7 ACOMMUNE1(2) [TSN 10 2=R= LDX 0 ACOMMUNE2(2) 20 2?=W BNZ 0 TSN1 [BRANCH UNLESS FLIB/FTSN REQUIRED 10 2?QG SETNCORE 4,3,FLIB,FTSN 8 2#=6 ADN 3 A1 8 2#PQ BRN TSN2 4 2*9B TSN1 10 2*P2 LDX 0 ACOMMUNE3(2) 8 2B8L LDX 3 FX2 10 2BN= ADX 3 ACOMMUNE2(2) 21 2C7W BZE 0 TSN2 [BRANCH IF ACTIVITY BLOCK TO BE USED 8 2CMG MHUNTX 3,0 10 2D76 ADX 3 ACOMMUNE2(2) 4 2DLQ TSN2 8 2F6B LDN 1 1(3) 17 2FL2 LDN 4 0 [NO. OF CHARS. OUTPUT 7 2G5L LDX 0 7 8 2GK= ORX 7 GSIGN 18 2H4W ERX 7 GSIGN [UNSET ANY XENOTAPE BIT 7 2HJG LDN 5 8 4 2J46 TSN3 7 2JHQ LDN 6 0 7 2K3B SLL 67 3 21 2KH2 BNZ 4 TSN4 [BRANCH UNLESS NON. SIG. ZEROS IGNORE 8 2L2L BZE 6 TSN5 4 2LG= TSN4 8 2L_W DCH 6 0(1) 7 2MFG BCHX 1 / 7 2M_6 ADN 4 1 4 2NDQ TSN5 8 2NYB BCT 5 TSN3 18 2PD2 BPZ 0 TSN6 [BRANCH UNLESS XENOTAPE 13 2PXL LDN 0 #70 [X 8 2QC= DCH 0 0(1) 7 2QWW ADN 4 1 4 2RBG TSN6 18 2RW6 STO 4 ACOMMUNE1(2) [COUNT OF CHARS. OUTPUT 8 2S*Q STO 4 0(3) 5 2STB UP 20 2T*2 Q3 GEOERR 1,NOSYSDOC [NO RECORD IN :SYSTEM.DOCUMENT 16 2TSL XBRK UP [EXIT IF BREAK-IN 17 2W#= Q1 TXU 6 NEG(1) [VALIDATE PARAMETER 8 2WRW BCC Q4 10 2X?G QR GEOERR 1,CONSERNO 4 2XR6 [ 20 2Y=Q [ENTRY POINT TO FORM AONBS/GTN BLOCK FROM :SYSTEM.DOCUMENT MAG TAPE 5 2YQB [RECORD 4 2_=2 [ 6 2_PL QK2CONSERNO 15 329= LDX 6 EXEC2(2) [ENTRY MARKER 15 32NW LDX 7 EXEC1(2) [SAVE EXEC1 16 338G BNG 6 Q1 [J IF NEGATIVE 11 33N6 [FIND RECORD IN :SYSTEM.DOCUMENT 15 347Q # THIS SECTION OF CODE IS NOT USED 15 34MB # IT WILL NOT BE DELETED JUST YET 12 3572 OPENSYS XBRK,DOCUMENT,READ 9 35LL SDSEARCH Q3,GEOG,6 7 366= READAGAIN 18 36KW CLOSETOP [CLOSE SYSTEM.DOCUMENT 10 375G MHUNT 3,FILE,FRB 10 37K6 NAME 3,FLIB,FMAGH 9 384Q [SET UP AONBS/GTN BLOCK 11 38JB Q4 SETNCORE 15,2,AONBS,GTN 10 3942 MHUNT 3,FLIB,FMAGH 8 39HL SMO FX2 8 3=3= STO 2 EXEC2 8 3=GW SMO FX2 8 3?2G STO 3 EXEC3 8 3?G6 SMO FX2 16 3?_Q STO 7 EXEC1 [RESTORE EXEC1 6 3#FB [INSERT TSN 13 3#_2 LDX 5 A1+2(3) [TSN 7 3*DL LDN 0 0 17 3*Y= BPZ 5 QQ [J IF NOT XENOTAPE 16 3BCW LDN 0 1 [INDICATE XENO 8 3BXG ERX 5 GSIGN 4 3CC6 QQ 8 3CWQ BNZ 5 QQT 9 3DBB LDX 0 A1+21(3) 8 3DW2 ANDN 0 #400 8 3F*L BZE 0 QR 8 3FT= STOZ A1(2) 8 3G#W BRN QTN 4 3GSG QQT 14 3H#6 LDN 1 8 [COUNT 15 3HRQ LDN 6 8 [WORK COUNT 14 3J?B LDN 7 0 [MARKER 17 3JR2 Q8 LDN 4 0 [SET ACCUMULATOR ZERO 17 3K=L Q7 SLL 45 3 [SHIFT IN NEXT OCTAL 16 3KQ= BNZ 7 Q5 [J MARKER NOT SET 16 3L9W BNZ 4 Q6 [J NON-ZERO OCTAL 15 3LPG SBN 1 1 [REDUCE COUNT 16 3M96 BCT 6 Q7 [BCT WORK COUNT 17 3MNQ BRN QR [J FOR GEORGE ERROR 15 3N8B Q6 LDN 7 1 [SET MARKER 17 3NN2 Q5 DCH 4 A1+1(2) [INSERT OCTAL CHAR 15 3P7L BCHX 2 / [STEP POINTER 16 3PM= BCT 6 Q8 [BCT WORK COUNT 17 3Q6W BZE 0 QQ1 [J IF NOT XENOTAPE 16 3QLG LDN 0 #70 [X TO FOLLOW TSN 9 3R66 DCH 0 A1+1(2) 15 3RKQ ADN 1 1 [UPDATE COUT 4 3S5B QQ1 8 3SK2 SMO FX2 17 3T4L LDX 2 EXEC2 [RESET POINTER TO GTN 19 3TJ= STO 1 A1(2) [INSERT NUMBER OF CHARACTERS 8 3W3W [INSERT TAPE NAME 4 3WHG QTN 8 3X36 ADN 2 A1+5 8 3XGQ ADN 3 A1+3 8 3Y2B CALL 6 TSP 16 3YG2 LDX 2 FX2 [RESTORE POINTERS 9 3Y_L LDX 3 EXEC3(2) 9 3_F= LDX 2 EXEC2(2) 15 3_YW STO 4 A1+4(2) [INSERT COMNT 7 42DG [REEL,GENERATION 8 42Y6 LDX 1 FX1 9 43CQ LDX 0 A1+21(3) 8 43XB ANDN 0 #400 17 44C2 BZE 0 Q5A [J IF STANDARD TAPE 14 44WL LDX 0 NONS(1) ['NONS' 9 45B= STO 0 A1+9(2) 7 45TW LDN 0 4 15 46*G STO 0 A1+8(2) [UPDATE COUNT 8 46T6 BRN Q14 4 47#Q Q5A 13 47SB LDX 5 A1+6(3) [REEL 16 48#2 ANDX 5 REELMASK(1) [REMOVE ZERO BIT 17 48RL TXL 5 REELMAX(1) [ERROR IF NOT < 513 8 49?= BCC QR 9 49QW LDN 1 A1+9(2) 17 4==G CALL 0 NUM [CONVERT TO DECIMAL 15 4=Q6 ADN 7 1 [FOR COMMA 9 4?9Q STO 7 A1+8(2) 8 4?PB LDN 0 #34 15 4#92 DCH 0 0(1) [INSERT COMMA 15 4#NL BCHX 1 / [STEP POINTER 15 4*8= LDX 5 A1+7(3) [GENERATION 16 4*MW BPZ 5 Q12 [J IF POSITIVE 8 4B7G TXU 5 GSIGN 8 4BM6 BCC Q13 8 4C6Q SMO FX1 8 4CLB LDN 0 NGMS 7 4D62 MVCH 0 8 7 4DKL LDN 0 8 9 4F5= ADS 0 A1+8(2) 8 4FJW BRN Q14 4 4G4G Q13 15 4GJ6 NGX 5 5 [ELSE NEGATE 16 4H3Q LDN 0 #35 [AND PREFIX '-' 8 4HHB DCH 0 0(1) 7 4J32 BCHX 1 / 8 4JGL Q12 CALL 0 NUM 15 4K2= ADS 7 A1+8(2) [UPDATE COUNT 9 4KFW [CLEARING UP TO FINISH 4 4K_G Q14 8 4LF6 SMO FX2 18 4LYQ LDX 3 EXEC3 [FINISHED WITH FILE/FRB 16 4MDB FREECORE 3 [--- SO FREE IT 15 4MY2 MHUNT 3,AONBS,GTN [RELOCATE GTN 16 4NCL LDX 5 EXEC1(2) [LOAD JOB NUMBER 17 4NX= BPZ 5 Q9 [J IF REALLY JOB NR 9 4PBW TXU 5 NEG(1) 8 4PWG BCS QR 17 4QB6 STOZ A1+12(3) [ZEROIS5 JOB COUNT 14 4QTQ Q10 UPPLUS 1 [FINISHED 4 4R*B [ 6 4RT2 [JOB NUMBER 4 4S#L Q9 9 4SS= LDN 1 A1+13(3) 17 4T?W CALL 0 NUM [CONVERT TO DECIMAL 9 4TRG STO 7 A1+12(3) 8 4W?6 BRN Q10 4 4WQQ [ 16 4X=B [ENTRY POINT TO SET UP AONBS/GTN FROM FILE/FABSNB 4 4XQ2 [ 6 4Y9L QK3CONSERNO 17 4YP= SETNCORE 15,2,AONBS,GTN [SET UP OUTPUT BLOCK 17 4_8W STOZ A1(2) [ZEROISE TSN COUNT 8 4_NG SMO FX2 8 5286 STO 2 EXEC2 17 52MQ MHUNT 3,FILE,FABSNB [LOCATE INPUT BLOCK 8 537B ADN 2 A1+5 9 53M2 ADX 3 HDREC(3) 14 546L ADN 3 A1-6 [POINTER 8 54L= SMO FX2 8 555W STO 3 EXEC3 14 55KG CALL 6 TSP [REMOVE 8 5656 LDX 1 FX1 8 56JQ LDX 2 FX2 15 574B LDX 3 EXEC3(2) [RESTORE X3 15 57J2 LDX 2 EXEC2(2) [RESTORE X2 15 583L STO 4 A1+4(2) [INSERT COUNT 8 58H= LDX 5 3(3) 16 592W ANDX 5 REELMASK(1) [REMOVE ZERO BIT 16 59GG TXL 5 REELMAX(1) [TEST REEL < 513 16 5=26 BCC QR [J ERROR IF NOT 9 5=FQ LDN 1 A1+9(2) 17 5=_B CALL 0 NUM [CONVERT TO DECIMAL 15 5?F2 ADN 7 1 [FOR COMMA 15 5?YL STO 7 A1+8(2) [COUNT SO FAR 8 5#D= LDN 0 #34 15 5#XW DCH 0 0(1) [INSERT COMMA 15 5*CG BCHX 1 / [STEP POINTER 15 5*X6 LDX 5 4(3) [GENERATION 17 5BBQ BNG 5 QR [J,ERROR IF NEGATIVE 16 5BWB BZE 5 Q11 [J IF GEN ZERO 7 5CB2 SLL 5 3 7 5CTL SRL 5 3 17 5D*= CALL 0 NUM [CONVERT TO DECIMAL 9 5DSW ADS 7 A1+8(2) 7 5F#G Q11 LDX 3 2 8 5FS6 SMO FX2 8 5G?Q LDX 5 EXEC1 17 5GRB BRN Q9 [GO TO CONVERT JOB NR 4 5H?2 [ 7 5HQL [SUBROUTINE TSP 15 5J== TSP LDN 5 13 [WORK COUNT 15 5JPW TSP1 LDN 4 12 [FINAL COUNT 16 5K9G TSP2 BCT 5 TSP3 [STEP WORK COUNT 17 5KP6 EXIT 6 0 [EXIT WHEN FINISHED 16 5L8Q TSP3 LDCH 0 0(3) [LOAD CHARACTER 16 5LNB DCH 0 0(2) [STEP POINTERS 7 5M82 BCHX 3 / 7 5MML BCHX 2 / 8 5N7= SBN 0 #20 15 5NLW BNZ 0 TSP1 [J NOT SPACE 16 5P6G BCT 4 TSP2 [STEP FINAL COUNT 18 5PL6 LDN 4 1 [COUNT OF 1,ALL SPACES 7 5Q5Q EXIT 6 0 4 5QKB [ 7 5R52 [SUBROUTINE NUM 7 5RJL NUM LDN 6 0 7 5S4= LDN 4 0 8 5SHW SMO FX1 15 5T3G MPY 5 MAGIC [SCALE NUMBER 7 5TH6 LDN 7 8 15 5W2Q NUM2 BCT 7 NUM1 [STEP COUNT 8 5WGB BNZ 4 NUM4 15 5X22 LDN 7 1 [ZERO CASE 7 5XFL BCHX 1 / 16 5X_= EXIT 0 0 [EXIT ZERO CASE 14 5YDW NUM4 LDX 7 4 [COUNT 13 5YYG EXIT 0 0 [EXIT 14 5_D6 NUM1 CBD 5 0(1) [CONVERT 8 5_XQ BNZ 4 NUM3 8 62CB LDCH 4 0(1) 8 62X2 BZE 4 NUM2 7 63BL LDX 4 7 7 63W= NUM3 BCHX 1 / 8 64*W BRN NUM2 4 64TG [ 6 65*6 [CONSTANTS 8 65SQ NEG -1 9 66#B REELMASK #67777777 8 66S2 REELMAX +513 9 67?L MAGIC +7036875 10 67R= NGMS 8H-8388608 9 68=W NONS 4HNONS 11 68QG MENDAREA 50,K99CONSERNO 4 69=6 #END 8 ____ ...52441672000100000000