{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LABEL866)}}
====== LABEL866 ======
(George Source)
**Macros used:** [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:COMERR|COMERR]], [[george:macro:COOR1|COOR1]], [[george:macro:DCA|DCA]], [[george:macro:DFJUMPS|DFJUMPS]], [[george:macro:DOWN|DOWN]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:FNORM|FNORM]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FREEMT|FREEMT]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GPERI|GPERI]], [[george:macro:HUNT|HUNT]], [[george:macro:JALLOC|JALLOC]], [[george:macro:JWRONG|JWRONG]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LOCK|LOCK]], [[george:macro:LOCKC|LOCKC]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNT|MHUNT]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:OUTMESS|OUTMESS]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:PARAPASS|PARAPASS]], [[george:macro:PARSORT|PARSORT]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETALLOC|SETALLOC]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SSEARCH|SSEARCH]], [[george:macro:SWITRACE|SWITRACE]], [[george:macro:TESTREP|TESTREP]], [[george:macro:UNLOAD|UNLOAD]], [[george:macro:UNLOCK|UNLOCK]]
22FL #LIS K0LABEL>K0LIBRARY>K0ALLGEO
22^= #SEG LABEL65 [S.FERGUSON
23DW 8HLABEL65
23YG #
24D6 # THIS SEGMENT HANDLES THE LABEL COMMAND
24XQ #
25CB SEGENTRY K1LABEL,QK1LABEL
25X2 #
26BL # CONSTANTS
26W= THDDR 4HHDDR
27*W TPOOL 20HPOOL TAPE 00000000
27TG TWTM +11 [+11 WHEN AVAILABLE
28*6 #
28SQ # S/R TO REWIND & DISCONNECT TAPE
29#B #
29S2 TFREE
2=?L SBX 3 FX1
2=R= LDN 0 9 [SET UP REWIND & DISCONNECT MODE
2?=W DCA ,DLA,0,MODE
2?QG LOCK 2 [FOR PERI
2#=6 GPERI ,2
2#PQ COOR1
2*9B UNLOCK 2
2*P2 FREEMT
2B8L ADX 3 FX1
2BN= EXIT 3 0
2C7W # DON'T READ HEADER ON 1971 DECKS AND LEAVE AT B.O.T.
2CMG #
2D76 # ENTRY POINT 1
2DLQ QK1LABEL
2F6B ... PARSORT XBRK,GROPE
2FL2 ... SPARAPASS
2G5L ... HUNT 3,CPAR,JSCE
2GK= ... BPZ 3 P1
2H4W ... ENDCOM
2HJG ...P1 LDEX 5 JSCEA(3) [ DECK NUMBER
2J46 ... LDCH 7 JSCEA(3) [ DEVICE TYPE
2JHQ ... LDX 4 JSCEP(3) [ DEVICE LIST ADDRESS
2K3B ... FREECORE 3
2KH2 ... LDX 3 4
2L2L ... SBN 7 5
2LG= ... BZE 7 P5 [MT
2RW6 P28
2S*Q COMERR JXALL
2STB P5 JWRONG 3,WRNG
2T*2 JALLOC 3,XALLOC
2TSL SETALLOC 3
2W#= STO 3 CPPTR(2) [MARK ALLOCATED
2WRW DFJUMPS 3,LOAD,XENG [J IF MT LOADED ON DECK
2X?G BRN P27
2XR6 WRNG OUTNUM 5,0 [WRONGED
2Y=Q COMERR ERWRONGED
2YQB XALLOC
2^=2 COMERR JALOC [ALREADY ALLOCATED
2^PL XENG
329= UNLOAD ,,,UNL [UNLOAD DECK
32NW ... BRN P5 [TRY AGAIN
338G P27
33N6 PARAPASS [NAME
347Q MHUNT 3,CPB,CUNI
34MB LDX 0 ANUM(3)
3572 BPZ 0 P8 [NON-EXISTENT
35LL P9 CALL 3 TFREE [FREE DECK
366= COMERR AMISS,JFENTRANT
36KW P8 BZE 0 P9
375G NAMETOP 3,FILE,FNAME
37K6 FNORM [DECODE
384Q TESTREP OK,P10
38JB CALL 3 TFREE [FREE DECK
3942 ENDCOM
39HL P10
3=3= MHUNT 3,FILE,FABSNB
3=GW LDX 0 ATYPE(3)
3?2G ANDN 0 #2000
3?G6 BNZ 0 P11
3?^Q CALL 3 TFREE [FREE DECK
3#FB COMERR AMISS,ERNOP
3#^2 # DUMP CA WORDS
3*DL P11
3*Y= SMO HDREC(3)
3BCW LDXC 6 A1+1(3) [LOAD THE TSN SPECIFIED IN COMMAND
3BXG BCS P31 [JUMP IF XENO TAPE
3CC6 OPENSYS XBRKIN,SERIAL,READ
3CWQ SSEARCH P30,6 [IS TSN IN USE,IF NOT J TO P30
3DBB CLOSETOP [CLOSE SERIAL
3DW2 CALL 3 TFREE [FREE DECK
3F*L COMERR ERALKNOWN [ERROR MESSAGE
3FKD ...XBRK COMBRKIN
3FT= XBRKIN GEOERR 1,XBRKIN
3G#W P30 CLOSETOP [CLOSE SERIAL
3GSG P31
3H#6 SMO FX1
3HRQ LDX 0 TWTM
3J?B STO 0 AWORK2(2)
3JR2 #SKI K6LABEL>199-199
3K=L SWITRACE 0,LBPARA
3KQ= DOWN TAPEWAIT,1 [WAIT FOR TAPE TO BE LOADED
3L9W #SKI K6LABEL>99-99
3LPG SWITRACE EXEC3(2),LBTWTREP
3M96 TESTREP OK,P12
3MNQ TESTREP NONS,P20
3N8B TESTREP NOTAV,P28 [1971
3NN2 TESTREPN NOWPR,P22
3P7L COMERR HNOWPR [NO WRITE PERMIT
3PM= P22 TESTREPN UNLOADED,P23
3Q6W COMERR HRCAN [CANCELLED
3QLG P23
3R66 TESTREPN FAILED,P13
3RKQ P17 OUTMESS HLAB2
3S5B COMERR HFAIL [FAILED
3SK2 P13 TESTREPN SECURE,P20 [MUST BE NON-STANDARD
3T4L OUTMESS HLAB1
3TJ= COMERR HSEC [SECURE TAPE
3W3W P12 MHUNT 3,FLIB,FMAGH
3WHG BRN P21
3X36 P20 SETNCORE 20,3,FLIB,FMAGH
3XGQ P21
3Y2B STOZ A1(3)
3YG2 LDN 0 A1(3)
3Y^L LDN 1 A1+1(3)
3^F= MOVE 0 19 [ZEROISE BLOCK
3^YW LDX 1 FX1
42DG LDX 0 THDDR(1)
42Y6 STO 0 A1(3) [HDDR
43CQ MHUNT 2,FILE,FABSNB
43XB SMO HDREC(2)
44C2 LDXC 0 A1+1(2)
44WL BRN £
45B= STO 0 A1+1(3) [TSN
45TW SMO HDREC(2)
46*G LDX 0 A1-6(2) [FIRST WORD OF 'LOCAL NAME'
46T6 BNZ 0 P14 [NOT UNSPECIFIED
47#Q LDN 0 TPOOL(1)
47SB BRN P15
48#2 P14 SMO HDREC(2)
48RL LDN 0 A1-6(2)
49?= P15 LDN 1 A1+2(3)
49QW MOVE 0 5 [NAME+DETAILS
4==G LDN 0 #777
4=Q6 ANDS 0 A1+5(3)
4?9Q LDN 0 #7777
4?PB ANDS 0 A1+6(3) [TRUNCATE GENERATION
4#92 SMO HDREC(2)
4#NL LDX 0 A1(2) [RETENTION PERIOD
4*8= ADN 0 1
4*MW BZE 0 P24 [NOT SPECIFIED
4B7G SBN 0 1
4B=5 ...[ IF SECURITY BIT SET THEN OR IN BIT 0
4B#N ... BPZ 0 P24
4BC? ... ANDN 0 #7777
4BFW ... ORX 0 GSIGN
4BJF ... BRN P24A
4BM6 P24 ANDN 0 #7777 [TRUNCATE
4C6Q ...P24A STO 0 A1+7(3) [STORE
4CLB LDX 0 EDATE
4D62 STO 0 A1+8(3) [DATE WRITTEN
4DKL LDX 2 FX2
4F5= LGEOG ,0
4FJW SLL 0 18
4G4G STO 0 A1+9(3) [SAVE GEOG NO IN CH 0 OF WD 9
4GJ6 # ERASE AT B.O.T.
4H3Q LOCKC FX2,£
4HHB LDX 3 CPPTR(2) [DEVICE LIST POINTER
4J32 LDN 0 8 [ERASE MODE
4JGL DCA 3,DLA,0,MODE
4K2= LDN 0 #3777
4KFW DCA 3,STO,0,COUNT
4K^G GPERI 3,2 [ERASE PERI
4LF6 COOR1
4LYQ #SKI K6LABEL>199-199
4MDB SWITRACE CPRW1(2),LBERREP
4MY2 LDCH 0 CPRW1(2) [REPLY
4NCL BZE 0 P25 [OK
4NX= UNLOCK 2
4PBW BRN P26
4PWG # WRITE NEW HEADER LABEL
4QB6 P25
4QTQ MHUNT 1,FLIB,FMAGH
4R*B LOCKC 1,SERCHF
4RT2 MHUNT 1,FLIB,FMAGH
4S#L LDN 0 A1(1) [BUFFER ADDRESS
4SS= DCA 3,STO,0,CTSA
4T?W LDN 0 20 [LENGTH
4TRG DCA 3,STO,0,COUNT
4W?6 LDN 0 1 [WRITE MODE
4WQQ DCA 3,DLA,0,MODE
4X=B GPERI 3,2
4XQ2 COOR1
4Y9L UNLOCK 2
4YP= MHUNT 1,FLIB,FMAGH
4^8W UNLOCK 1
4^NG # CHECK REPLY
5286 #SKI K6LABEL>199-199
52MQ SWITRACE CPRW1(2),LBWRREP
537B LDCH 0 CPRW1(2)
53M2 BZE 0 P16
546L P26
54L= UNLOAD ,,,UNL,AUT,NSD [UNLOAD TAPE
555W BRN P17 [REPORT ERROR
55KG # REPORT SUCCESS & UNLOAD TAPE
5656 P16
56JQ UNLOAD ,,,UNL,AUT,NSD
574B ENDCOM
57J2 SERCHF
583L HUNT 2,FLIB,FMAGH
58H= EXIT 1 0
592W MENDAREA 50,K99LABEL
59GG #END
^^^^ ...14670321000300000000