12 22FL #LIS K0REDONMT>K0LIBRARY>K0ALLGEO 15 22_= #SEG REDONMT65 [N.R.BOULT 10 23DW 8HREDNMT65 4 23JR ...[ 17 23NN ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 23SK ...[ 12 23YG SEGENTRY K1REDONMT,QK1REDONMT 4 24D6 # 4 24XQ # 16 25CB # THIS SEGMENT IS FOR REDON COMMANDS ON 12 25X2 # MAGNETIC TAPE DECKS 4 26BL # 13 26W= # S/R TO REWIND & DISCONNECT TAPE 4 27*W # 5 27TG RFREE 8 28*6 SBX 3 FX1 8 28SQ LDX 2 FX2 20 29#B LDN 0 9 [SET UP REWIND & DISCONNECT MODE 10 29S2 DCA ,DLA,0,MODE 14 2=?L LOCK 2 [FOR PERI 8 2=R= GPERI ,2 6 2?=W COOR1 7 2?QG UNLOCK 2 6 2#=6 FREEMT 8 2#PQ ADX 3 FX1 7 2*9B EXIT 3 0 6 2*P2 QK1REDONMT 9 2B8L STO 3 CPPTR(2) 4 2BN= # 17 2C7W PARANOT 2 [GET SECOND PARAMETER 10 2CMG MHUNT 3,CPB,CUNI 9 2D76 LDX 0 ANUM(3) 8 2DLQ BPZ 0 P1 15 2F6B CALL 3 RFREE [FREE DECK 11 2FL2 COMERR JPARMIS,JFENTRANT 10 2G5L P1 NAMETOP 3,FILE,FNAME 19 2GK= FNORM 1 [DECODE ENTRANT DESCRIPTION 10 2H4W TESTREPN NAMEFORM,P2 15 2HJG CALL 3 RFREE [FREE DECK 6 2J46 ENDCOM 10 2JHQ P2 MHUNT 3,FILE,FNAME 15 2K3B NAMETOP 3,CPB,CUNI [FOR ERRORS 10 2KH2 MHUNT 3,FILE,FABSNB 9 2L2L LDX 0 ATYPE(3) 16 2LG= ANDN 0 #2000 [SERIAL NR BIT 18 2L_W BNZ 0 PXP [ONLY XENOTAPE POSSIBLE 15 2MFG TESTREP OK,P3 [NO ADJUNCTS 11 2M_6 MHUNT 2,FILE,ADJUNCTS 9 2NDQ LDX 0 TNS(2) 9 2NYB ANDX 0 TNSM(1) 15 2PD2 BNZ 0 PNS [NON-STANDARD 4 2PXL P3 15 2QC= CALL 3 RFREE [FREE DECK 20 2QWW P4 COMERR HNOTX [DOES NOT SPECIFY 'X' OR 'NONS' 15 2RBG PXP TESTREP OK,PXR [NO ADJUNCTS 11 2RW6 MHUNT 2,FILE,ADJUNCTS 9 2S*Q LDX 0 TNS(2) 9 2STB ANDX 0 TNSM(1) 14 2T*2 BZE 0 PXR [TRY XENO 15 2TSL CALL 3 RFREE [FREE DECK 8 2W#= COMERR HTSN 9 2WRW PXR SMO HDREC(3) 13 2X?G LDX 6 A1+1(3) [TSN 15 2XR6 BPZ 6 P3 [NOTXENOTAPE 8 2Y=Q LDX 2 FX2 18 2YQB LDX 0 TAFB(1) [POSITION AFTER 1ST BLOCK 9 2_=2 STO 0 AWORK2(2) 9 2_PL #SKI K6REDONMT>99-99 9 329= SWITRACE 0,ROXENO 16 32NW BRN PWT [TO WAIT FOR TAPE 14 338G PNS LDX 0 ALOGLEN(3) [LENGTH 8 33N6 SBN 0 10 17 347Q BPZ 0 P8 [POSSIBLY LOCAL NAME 15 34MB P9 CALL 3 RFREE [FREE DECK 9 3572 COMERR HLOCNAM 9 35LL P8 SMO HDREC(3) 9 366= LDX 0 A1-6(3) 16 36KW BZE 0 P9 [NO LOCAL NAME 9 375G LDX 0 TFAIL(1) 8 37K6 LDX 2 FX2 18 384Q STO 0 AWORK2(2) [ALLOW NON-MAJOR FAILS 9 38JB #SKI K6REDONMT>99-99 9 3942 SWITRACE 0,RONONS 4 39HL PWT 9 3=3= MFREE CPB,CUNI 16 3=GW DOWN TAPEWAIT,1 [WAIT FOR TAPE 9 3?2G #SKI K6REDONMT>199-199 11 3?G6 SWITRACE EXEC3(2),ROREPLY 7 3?_Q PICKREP 7 7 3#FB PARANOT 1 7 3#_2 PUTREP 7 10 3*DL TESTREPN UNLOADED,P5 15 3*Y= COMERR HRCAN [TERMINATED 9 3BCW P5 TESTREPN FAILED,P6 7 3BXG OUTNULL 14 3CC6 COMERR HFAIL [FAILED 10 3CWQ P6 TESTREPN SECURE,P10 7 3DBB OUTNULL 15 3DW2 COMERR HSEC [SECURE TAPE 15 3F*L P10 BZE 6 PNSE [NONSTANDARD 9 3FT= TESTREPN NONS,P11 8 3G54 DFCLEAR ,LOAD 15 3G#W CALL 3 RFREE [FREE DECK 9 3H#6 COMERR HXENSTAN 4 3HRQ P11 15 3J?B MHUNT 3,FLIB,FMAGH [HEADER BLOCK 10 3JR2 MHUNT 2,FILE,FABSNB 13 3K=L LDXC 0 6 [TSN 7 3KQ= BRN / 15 3L9W TXU 0 A1+2(3) [CORRECT ? 13 3LPG BCC P7 [OK 4 3M96 P12 11 3MNQ UNLOAD ,,,UNL,AUT,NSD 21 3N8B COMERR HXENOID [XENOTAPE NOT CORRECTLY IDENTIFIED 15 3NN2 P7 SMO HDREC(2) [CHECK NAME 9 3P7L LDX 7 A1-6(2) 8 3PM= BZE 7 P13 9 3Q6W SMO HDREC(2) 9 3QLG LDX 0 A1-5(2) 9 3R66 SMO HDREC(2) 9 3RKQ LDX 1 A1-4(2) 9 3S5B TXU 7 A1+3(3) 9 3SK2 TXU 0 A1+4(3) 9 3T4L TXU 1 A1+5(3) 8 3TJ= BCS P12 9 3W3W SMO HDREC(2) 9 3WHG LDX 0 A1-3(2) 17 3X36 BZE 0 P14 [REEL NOT SPECIFIED 14 3XGQ ANDN 0 #7777 [TRUNCATE 9 3Y2B TXU 0 A1+6(3) 16 3YG2 BCS P12 [REEL INCORRECT 9 3Y_L P14 SMO HDREC(2) 9 3_F= LDX 0 A1-2(2) 8 3_YW BZE 0 P13 14 42DG ANDN 0 #7777 [TRUNCATE 9 42Y6 TXU 0 A1+7(3) 16 43CQ BCS P12 [GEN NOT CORRECT 4 43XB P13 8 44C2 LDN 0 27 16 44WL STO 0 A1(3) [RECORD HEADER 7 45B= LDN 0 3 7 45TW SRC 0 2 17 46*G STO 0 A1+21(3) [INSECURE + XENOTAPE 8 46T6 LDX 0 GSIGN 15 47#Q ORS 0 A1+2(3) [B0 IN TSN 9 47SB #SKI K6REDONMT>199-199 11 48#2 SWITRACE A1+2(3),ROTSNX 4 48RL PR 8 49?= LDX 2 FX2 15 49QW LFAILS ,0 [CNT OF FAILS 9 4==G STO 0 A1+25(3) 16 4=Q6 LREPEATS ,0 [CNT OF REPEATS 9 4?9Q STO 0 A1+24(3) 16 4?PB LGEOG ,0 [GEOGRAPHIC NO 9 4#92 STO 0 A1+23(3) 9 4#NL LDX 2 CPPTR(2) 17 4*8= STO 2 A1+22(3) [DEVICE LIST POINTER 9 4*MW STOZ A1+26(3) 10 4B7G NAME 3,FILE,FAPB 15 4BM6 # INSERT RECORD IN :SYSTEM.DOCUMENT 13 4C6Q OPENSYS XBRKIN,DOCUMENT,GENERAL 6 4CLB APPEND 15 4D62 DFSET ,TSN,6 [STORE TSN 8 4DKL BNG 6 PR1 15 4F5= DFSET ,NONS [NONSTANDARD 4 4FJW PR1 16 4FKM ... CLOSETOP [:SYSTEM DOCUMENT 17 4FLD ... LGEOG ,5 [X5 => UNIT NUMBER 17 4FM9 ...SJ1 OUTPACK 5,1,GEOPER,SJ1 [OUTPUT UNIT NUMBER 16 4FN2 ... BNG 6 SJ2 [J IF XENOTAPE 21 4FNR ... OUTNULL [TSN NOT APPLICABLE FOR NONSTANDARD T 12 4FPJ ... BRN SJ3 [ 16 4FQ* ...SJ2 OUTPACK 6,1,TSN,SJ2 [TSN FOR XENOTAPE 18 4FR6 ...SJ3 MHUNT 3,FILE,FAPB [X3 -> DOCUMENT RECORD 12 4FRX ... OUTPACK A1+3(3),3,LOCNAME,SJ3 18 4FSN ...SJ4 MHUNT 3,FILE,FAPB [X3 -> DOCUMENT RECORD 12 4FTF ... OUTPACK A1+6(3),1,REELNUM,SJ4 15 4FW= ...SJ5 MHUNT 3,FILE,FAPB [AND AGAIN 12 4FX3 ... OUTPACK A1+7(3),1,GENNUM,SJ5 17 4FXS ... FREECORE 3 [FREE APPEND BLOCK 16 4FYK ... BZE 6 SJ6 [J IF NONSTANDARD 19 4F_B ... OUTPAR SKIP [SKIP 'NONSTANDARD' STRING 12 4G27 ... BRN SJ7 [ 19 4G2Y ...SJ6 OUTPAR NULL [INCLUDE 'NONSTANDARD' STRING 18 4G3P ...SJ7 MONOUT HLOADED [OUTPUT LOADED MESSAGE 16 4G4G CLALLOC [DE-ALLOCATE DECK 9 4GJ6 STOZ CPPTR(2) 9 4H3Q STOZ CPRW1(2) 9 4HHB STOZ CPRW2(2) 9 4J32 STOZ CPRSW(2) 17 4K2= LONGON #61,6 [WAKE UP ACTIVITIES 6 4KFW ENDCOM 13 4K_G # NON-STANDARD ONLY SECTION 8 4LF6 PNSE TESTREP OK,Q1 11 4LYQ SETNCORE 27,3,FLIB,FMAGH 8 4MDB BRN Q2 10 4MY2 Q1 MHUNT 3,FLIB,FMAGH 4 4NCL Q2 8 4NX= LDN 0 27 16 4PBW STO 0 A1(3) [RECORD HEADER 16 4PWG STOZ A1+1(3) [ZEROISE BLOCK 9 4QB6 LDN 0 A1+1(3) 9 4QTQ LDN 1 A1+2(3) 8 4R*B MOVE 0 25 17 4RT2 MHUNT 2,FILE,FABSNB [NOW INSERT ^NAME^ 9 4S#L SMO HDREC(2) 9 4SS= LDN 0 A1-6(2) 9 4T?W LDN 1 A1+3(3) 16 4TRG MOVE 0 5 [NAME + DETAILS 8 4W?6 LDN 0 #777 16 4WQQ ANDS 0 A1+6(3) [TRUNCATE REEL 8 4X=B LDN 0 #7777 17 4XQ2 ANDS 0 A1+7(3) [TRUNCATE GENERATION 8 4Y9L SMO FX1 15 4YP= LDX 0 TNSS [MARKER WORD 9 4_8W #SKI K6REDONMT>199-199 9 4_NG SWITRACE 0,ROTNSS 9 5286 STO 0 A1+21(3) 16 52MQ BRN PR [FINISH RECORD 4 537B # 9 53M2 # CONSTANTS 4 546L # 8 54L= TAFB +4 9 555W SEGENTRY APRR71 8 55KG TFAIL +2 9 5656 TNSS #20000400 8 56JQ TNSM +1 4 574B # 9 57J2 # LOCALS 4 583L # 7 58H= #DEF TNS=A1+2 4 592W # 7 59GG # GEOERRS 4 5=26 # 9 5=FQ XBRKIN GEOERR 1,XBRKIN 10 5=_B MENDAREA 50,K99REDONMT 4 5?F2 #END 8 ____ ...47520024000100000000