IMD 1.16: 1/09/2008 12:16:17 bisynch pico product diskette f43201 90-93432-01-x1 4-19-79    @0|)v1uo)  " }jA cMZOS4 MOS760301005812OS760301005812 760301005812F43201    ZZM@jjggg@ o G`k򞽢_C# b# }B u[ ]e JRiCp@=<; G9P@ G=y;<": 06OS:: SYS ϣÈ̿: 8 4/+*' %ɣ 㯀: ÓG! R# J{4RgVUy!l "#C @Hǩ@N2@JI:GUST BP:FUN BP:WRT JBP:REA G:A O0SEGMENTBLANK o9KI:STU0 I:ZDIO I:XDIO KI:XSIV I:NEOB I:SIV KI:STAT I:RST I:EMEM KI:FINI I:WAIT I:STUR KR:SIG I:ECTT ig # # # g# tt! g B EKDA ll@6  L@L9 LL@CDI # DHH@<# { # #t&ttt tt g B qEKDnAmm m,,jii@6gC DI a# BXL0 9 %`(C B`('@&# LXN!G#  @ (08 @`gF  BAܐ # B  # B AܐI  ) B) BU׀C K  D   # E  # B AEXG # EKDAI  B @U # # C K D  # # # # t tt ttt tt t tt JI:ZDIO I:XDIO I:XSIV O0SEGMENTBLANK oKI:SIV I:SDIO ig B  FNNF# gCC # gJ# tt @`gF  BAܐ # B  # B AܐI  ) B) BU׀C K  D   #  E  # B AEXG # EKDAI  B @U # # C K D  # # # # t tt ttt tt t tt JI:ZDIO I:XDIO I:XSIV O0SEGMENTBLANK oKI:SIV I:SD TITL BISYNCH PICO DRIVER IOS OPERATIONS EQUATES (93432-11-X1) * ERROR CODE EXTENSIONS * IOU: ILOPS:,29 ILLEGAL OPERATION SEQUENCE IOU: CBSEX:,30 BAD DIO STATUS, SEE EXTENDED STATUS FOR DETAIL IOU: NODTL:,31 BAD DIO STATUS, NO EXTENDED STATUS AVAILABLE * * IOB EXTENSIONS * IO:CCI EQU 2 CHARACTER CONTROL INDEX (IO:CRI) CCI:TYPE EQU :30 CCI TYPE MASK CCI:CIDX EQU :0F CCI CHARACTER INDEX MASK * * DIB, CIB, & TIB EXTENSIONS * DI:DST EQU 16 DEVICE STATUS DI:TIM EQU 17 TIMER EXPIRATION RETRY COUNT DI:WOP EQU 18 WRITE OPTION (3-0) DI:OPT EQU 21 OPTION TABLE * CI:OPT EQU 24 ACTIVE OPTION TABLE * TI:CCI EQU 12 CONTOL CHARACTER INDEX (TI:CRI) SPACE 3 END IL IOU: NODTL:,31 BAD DIO STATUS, NO EXTENDED STATUS AVAILABLE * * IOB EXTENSIONS * IO:CCI EQU 2 CHARACTER CONTROL INDEX (IO:CRI) CCI:TYPE EQU :30 CCI TYPE MASK CCI:CIDX EQU :0F CCI CHARACTER INDEX MASK * * DIB, CIB, & TIB EXTENSIONS * DI:DST EQU 16 DEVICE STATUS DI:TIM EQU TITL BISYNCH PICO DIB'S & CIB'S GENERATION MACROS (93432-12-X1) * THIS MACRO GENERATES DIBS FOR BISYNC PICO * #1-DIB ADDRESS * #2-CIB ADDRESS * #3-4 CHARACTER DEVICE NAME DIB:BP MACRO NAM #(1) EXTR #(2) #(1) CHAN BP: DI:PER-PEER POINTER WORD 0 DI:FLG-FLAG WORD WORD #(2) DI:CIB-CIB ADDRESS WORD 0 DI:FCB-FCB LIST HEAD BYTE '##(3)' DI:NAM-DEVICE NAME, 4 CHARACTERS  RES 1,0 DI:DN-DEDICATION NUMBER WORD 0 DI:DS-DEDICATION SEMAPHORE WORD 0  DI:SPB-TIMER, SHIFT/BYTE WORD 10*8 DI:WBT-TIMER, BASE TIME * EQU $ DI:DSW- DEVICE SPECIFICATION WORD WORD :0001 WORD :0001 WORD :0000 WORD :0F03 RES 2,0 WORDS 14-15 RESERVED WORD 0 DI:DST-DEVICE STATUS WORD 0 DI:TIM-SYNC OVERRUN/UNDERRUN 3 SEC TIMEOUT WORD 0 DI:WOP-WRITE OPTIONS(BITS 3-0),AUTO DUMP(B2[ 4) RES 2,0  RESERVED FOR FUTURE USE WORD :0000 DEFAULT OPTION TABLE WORD :8C8C WORD :0032 WORD :3210 WORD :FF1F WORD :2603 WORD :0102 WORD :372D WORD  :372D WORD :3D70 WORD :616B WORD :7C2D ENDM TITL * THIS MACRO GENERATES CIBS FOR BISYNC PICO * #1-CIB ADDRESS * #2-DEVICE ADDRESS * #3-INTERUPT VECTOR ADDRESS CIB:BP MACRO NAM #(1) EXTR BP:REA,BP:WRT,BP:FUN #(1) CHAN CIB: CI:PER-PEER POINTER WORD 0 CI:FLAG WORD  WORD 0 CI:MST-MASTER LINK CHAN BP: CI:DIB-DIB LIST HEAD WORD :7400  CI:PRI-REQUEST PRIORITY WORD #(2) CI:DA-DEVICE ADDRESS WORD #(3) CI:IV-INTERUPT VEC TOR ADDRESS RES 1,0 CI:UN1-RESERVED WORD BP:REA CI:REA-ENTRY POINT TO READ WORD BP:WRT CI:WRT-ENTRY POINT TO WRITE WORD 0 WORD BP:FUN CI:FUN-ENTRY POINT TO OTHER FUNCTION INT:SEQ CI:EOB RES 1,0 CI:T1-TEMP CELL RES 1,0 CI:T2-TEMP CELL RES 1,0 CI:APR-PRIORITY OF ACTIVITY RES 1,0 CI:TIB-TIB ADDRESS WORD :1 CI:USM-CONTROLLER USAGE SEMAPHORE WORD 0 CI:TIM-TIMER WORD 0 CI:CSM-COMPLETION SEMAPHORE  WORD 0 CI:CFL-COMPLETION FLAG * EQU $ CI:OPT-OPTION TABLE SCRATCH AREA RES 12,0 DI:OPT -OPTION TABLE ENDM SPACE 3 END ES 1,0 CI:T2-TEMP CELL RES 1,0 CI:APR-PRIORITY OF ACTIVITY RES 1,0 CI:TIB-TIB ADDRESS WORD :1 CI:USM- TITL BISYNCH PICO DRIVER TEST PROGRAM - PART 00 (93432-13-X1) TITL NAME EQUATES IO:CCI EQU IO:CRI IN: EQU 8 SO: EQU :9 AN: EQU :A DO: EQU :B OPEN EQU :0 INIT EQU :8 SETOPT EQU :10 DUMP EQU  :18 AUTO EQU :20 CLOSE EQU :28 RECV EQU :30 SEND EQU :38 SAVE END TITL BISYNCH PICO DRIVER TEST PROGRAM - PART 00 (93432-13-X1) TITL DEFINE ENVIRNMENT & BEGIN ACTIVITIES NAM R:INIT NAM CLOCK:,CLSEM: EXTR C:BP0,C:BP1 EXTR PROC:0,PROC:1 LOAD REINI: LOAD DEBUG4  LOAD IOB:1,IOB:0 *********************************************************** * * DEFINE ENVIRONMENT * & *  BEGIN ACTIVITIES * INIT:A 0,0,0,0,ECB,TDB,:1000,:400 TDB:A TDB,IOD,0,0,:100,0,1 * * WALL CLOCK TO CONTROL CHARACTER SEND SPEED * WALL:A CLOCK:,0,CLSEM:,0,1 SDB:A CLSEM:,0 * IOD EQU $ R:BGIN PROC:0 BEGIN PROCESS 0 R:BGIN PROC:1 BEGIN PROCESS 1 R:END SELF DISTRUCT  ECB:A ECB,UAT:S UAT:AA UAT:S UAT:EE 'P0',D:BP00 UAT:EE 'P1',D:BP01 UAT:EE 'CI',D:TK00  UAT:EE 'CO',D:TY00 UAT:EE 'LP',D:LP00 UAT:ZZ END TITL BISYNCH PICO DRIVER TEST PROGRAM - PART 00 (93432-13-X1) TITL I/O BLOCK AND MESSAGE BUFFERS SETUPS NAM IOB:0 NAM SEM:0 *********************************************************** * * I/O BLOCKS SETUPS * & * MESSAGE BUFFERS * IOB:0 EQU $  IOB:A ,'P0',FU:,OP:,0,0,0,0 OPEN IOB:A ,'P0',FU:,IN:,0,0,0,0 INITIALIZE IOB:A ,'P0',FU:,SO:,0,0,0,0 SET OPTION FOR TRANSMIT IOB:A ,'P0',FU:,DO:,BCTX,BUFX,0,0 READ OPTION TABLE IOB:A ,'P0',FU:,AN:,0,SEM:0,0,0 AUTO ANSWER IOB:A ,'P0',FU:,CL:,0,0,0,0 CLOSE IOB:A ,'P0',RE:,0,BCTX,BUFX,0,0 RECEIVE  IOB:A ,'P0',WR:,0,BCTX,BUFX,0,0 TRANSMIT SDB:A SEM:0,0 BCTX EQU :100 BUFX EQU $ RES BCTX,' ' END TITL BISYNCH PICO DRIVER TEST PROGRAM - PART 00 (93432-13-X1) TITL I/O BLOCKS AND MESSAGE BUFFERS SET UPS NAM IOB:1 NAM SEM:1 IOB:1 EQU $ IOB:A ,'P1',FU:,OP:,0,0,0,0 OPEN IOB:A ,'P1',FU:,IN:,0,0,0,0 IOB:A ,'P1',FU:,SO:,0,0,0,0 SET OPTION FOR TRANSMIT IOB:A ,'P1',FU:,DO:,BCTX,BUFX,0,0 READ OPTION TABLE IOB:A ,'P1',FU:,AN:,0,SEM:1,0,0 AUTO ANSWER IOB:A ,'P1',FU:,CL:,0,0,0,0 CLOSE  IOB:A ,'P1',RE:,0,BCTX,BUFX,0,0 RECEIVE IOB:A ,'P1',WR:,0,BCTX,BUFX,0,0 TRANSMIT SDB:A SEM:1,0 BCTX EQU :100 BUFX EQU $ RES BCTX,' ' END IOB:A ,'P1',FU:,OP:,0,0,0,0 OPEN IOB:A ,'P1',FU:,IN:,0,0,0,0 IOB:A ,'P1',FU:,SO:,0,0,0,0 SET OPTION FOR TRANSMIT IOB:A ,'P1',FU:,DO:,BCTX,BUFX,0 TITL BISYNCH PICO DRIVER TEST PROGRAM - PART 01 (93432-14-X1) TITL PROCESS:0-RECEIVE BUFFER/PRINT MESSAGE NAM PROC:0 EXTR CLOCK:,CLSEM: EXTR IOB:0 BGIN:A PROC:0,TASK,:200 TDB:A TASK,PROGRAM,0,0,:200,0,1 PROGRAM EQU $ COPY =IOB:0,Y IOBS TO Y I:IO OPEN(Y) OPEN JMP $ I:IO INIT(Y) INITIALIZATION JMP $ LOOP EQU $ I:IO RECV(Y) RECEIVE JMP $  R:IWAL CLOCK: POST TIMER REQUEST COPY IO:CCI+RECV(Y),Q AND =:30,Q CASE RECEIVE BUFFER: CLSN Q,=:00 CONTROL CHARACTER JMP CTRL CLSN Q,=:10 HEADING JMP HEAD CLSN Q,=:20 TEXT JMP TEXT HLT NEVER GETS HERE * * LINE CONTOL CHARACTER RECEIVED CTRL EQU $ JSK OUTBUF PRINT LEADING GRAPHICS COPY IO:CCI+RECV(Y),Q  AND =:F,Q XNX Q GET CONTROL CHARACTER MNEUMONICS COPY CHAR,A IN A JSK  OUTCHAR PRINT MNEMONICS R:WAIT CLSEM: WAIT 1/4 SEC COPY =3,A COPY A,SEND+IO:CCI(Y) I:IO SEND(Y) RETURN ACKNOWLEDGEMENT JMP $ JMP LOOP RECEIVE NEXT BUFFER CHAR  EQU $ WORD EOT WORD ENQ WORD NAK WORD ACK0 WORD ACK1 WORD WACK WORD RVI WORD TTD * * * HEADING RECEIVED HEAD EQU $ COPY =SOH,A PRINT 'SOH' JSK OUTCHAR JSK OUTBUF PRINT HEADING COPY =ETX,A PRINT'ETX' JSK OUTCHAR R:WAIT CLSEM: WAIT 1/4 SEC COPY =3,A COPY A,SEND+IO:CCI(Y) I:IO SEND(Y) RETURN ACKNOWLEDGEMENT JMP $ JMP LOOP RECEIVE NEXT BUFFER * * * TEXT RECEIVED TEXT EQU $ JSK NXTLINE LINE FEED COPY =STX,A PRINT 'STX' JSK OUTCHAR  JSK OUTBUF PRINT TEXT COPY IO:CCI+RECV(Y),Q AND =:F,Q GET TEXT TERMINATING CHAR MNUMONICS XNX Q COPY XTS,A JSK OUTCHAR PRINT MNEMONICS R:WAIT CLSEM: WAIT 1/4 SEC COPY =3,A COPY A,SEND+IO:CCI(Y) I:IO SEND(Y) RETURN ACKNOWLEDGEMENT   JMP $ JMP LOOP RECEIVE NEXT BUFFER XTS EQU $ WORD 0 WORD ITB WORD ETB WORD ETX LPOOL TITL * * CONTROL CHARACTER MNUMONICS EOT BYTE ' EOT' ENQ  BYTE ' ENQ' NAK BYTE ' NAK' ACK0 BYTE ' ACK0' ACK1 BYTE ' ACK1' WACK BYTE ' WACK' RVI BYTE ' RVI' TTD BYTE ' TTD' ITB BYTE ' ITB' ETB BYTE ' ETB' ETX BYTE ' ETX' STX BYTE ' STX' SOH BYTE ' SOH' * * ROUTINES TO PRINT BUFFER & CONTOL CHARACTER MNEMONICS * OUTBUF EQU $  COPY IO:BUF+RECV(Y),A COPY A,IO:BUF+DISP COPY IO:ACT+RECV(Y),A COPY A,IO:BCT+DISP  I:IO DISP JMP $ RSK ** OUTCHAR EQU $ COPY A,IO:BUF+DISP COPY =:6,A COPY A,IO:BCT+DISP I:IO DISP JMP $ RSK IOB:A DISP,'CO',WR:,FA:,0,0,0,0 SPACE EQU  $ COPY =ABLK,A JMP FEED NXTLINE EQU $ COPY =CRLF,A JMP FEED FEED EQU $ COPY A,IO:BUF+DISP COPY =:2,A COPY A,IO:BCT+DISP I:IO DISP JMP $  RSK ABLK WORD :2B20 CRLF WORD :200A END TITL BISYNCH PICO DRIVER TEST PROGRAM - PART 01 (93432-14-X1) TITL PROCESS:1-TRANSMIT/RECEIVE ACKNOWLEDGEMENT NAM PROC:1 EXTR IOB:1 EXTR CLOCK:,CLSEM: EXTR STRT: BGIN:A PROC:1,TASK,:200 TDB:A TASK,PROGRAM,0,0,:200,0,1 PROGRAM EQU $ COPY =IOB:1,Y IOBS TO Y I:IO OPEN(Y) OPEN JMP $ I:IO INIT(Y) INITIALIZE  JMP $ R:IWAL CLOCK: POST TIMER REQUEST LOOP EQU $ JSK SETUP OPTION & DATA BUFFER R:WAIT CLSEM: WAIT 1/4 SEC I:IO SETOPT(Y) SET OPTION JMP $ I:IO SEND(Y) TRANSMIT JMP $ JEQ A,LOOP-2 IF NO ACK ANTICIPATED,SEND NEXT MESSAGE I:IO RECV(Y)  RECEIVE ACKNOWLEDGEMENT JMP $ SUB =1,A JEQ A,LOOP-2 JMP $-5 ELSE RECEIVE ACK LPOOL TITL * * ROUTINE TO SETUP OPTIONS AND BUFFER * * * MESSAGE CONTROL BLOCK EQUATES LINK EQU 0 LINK TO NEXT CONTROL BLOCK OPTION EQU 1 OPTION FOR WR: TYPE EQU 2  TYPE-CIND IN IO:CCI BCT EQU 3 BUFFER BYTE COUNT BUF EQU 4 BUFFER ADDRESS ACK  EQU 5 ACKNOWLEDGEMENT COUNT CNT EQU 6 MESSAGE REPITITION COUNT * CURRENT WORD STRT: REPEAT WORD -1 SETUP EQU $ COPY CURRENT,X NEXT CONTROL BLOCK COPY OPTION(X),A COPY A,IO:BUF+SETOPT(Y) COPY TYPE(X),A STUFF IOB COPY A,IO:CCI+SEND(Y) COPY BCT(X),A COPY A,IO:BCT+SEND(Y) COPY BUF(X),A COPY A,IO:BUF+SEND(Y) IMS REPEAT IF REPEAT CONTROL BLOCK,RETURN RSK * COPY ACK(X),A ELSE UPDATE CURRENT CONTROL BLOCK ADDRESS COPY A,REPEAT   COPY CNT(X),A NEG A,A SET REPEAT COUNT(-VE) EXCH REPEAT,A COPY LINK(X),X  COPY X,CURRENT RSK RETURN,STATUS(ACK COUNT) IN A END TITL BISYNCH PICO DRIVER TEST PROGRAM - PART 01 (93432-14-X1) TITL TRANSMIT/RECEIVE CONTROL TABLES NAM STRT: STRT: EQU $ WORD $+7,:2,:00,0,0,1,1 WORD $+7,:2,:01,0,0,1,1 WORD $+7,:2,:02,0,0,1,1 WORD $+7,:2,:03,0,0,1,1 WORD $+7,:2,:04,0,0,1,1 WORD $+7,:2,:05,0,0,1,1 WORD $+7,:2,:06,0,0,1,1 WORD $+7,:2,:07,0,0,1,1  WORD $+7,:3,:01,LEADLN,LEAD,1,1 WORD $+7,:3,:02,LEADLN,LEAD,1,1 WORD $+7,:3,:03,LEADLN,LEAD,1,1  WORD $+7,:3,:04,LEADLN,LEAD,1,1 WORD $+7,:3,:05,LEADLN,LEAD,1,1 WORD $+7,:3,:06,LEADLN,LEAD,1,1  WORD $+7,:0,:21,TEXTLN,TEXT,1,1 WORD $+7,:0,:22,TEXTLN,TEXT,1,1 WORD STRT:,:0,:23,TEXTLN,TEXT,1,1 LEAD EQU $ BYTE ' ' OUTPUT CONTROL BYTE 'LEADING GRAPHICS' LEADLN EQU $-LEAD*2 HEAD  EQU $ BYTE ' ' BYTE 'HEADING.HEADING' HEADLN EQU $-HEAD*2 TEXT EQU $ BYTE '  ' BYTE 'TEXT.TEXT.TEXT.TEXT.TEXT.TEXT.TEXT.TEXT.TEXT.TEXT' TEXTLN EQU $-TEXT*2 END EADLN,LEAD,1,1  WORD $+7,:0,:21,TEXTLN,TEXT,1,1 WORD $+7,:0,:22,TEXTLN,TEXT,1,1 WORD STRT:,:0,:23,TEXTLN,TEXT,1,1 LEAD EQU $ BYTE ' ' OUTPUT CONTROL BYTE 'LEADING GRAPHICS' LEADLN EQU $-LEAD*2 HEAD  EQU $ BYTE ' ' BYTE 'HEADING.HEADING' HEADLN EQU $-HEAD*2 TEXT EQU $ BYTE '  TITL BISYNCH PICO DRIVER TEST PROGRAM - PART 02 (93432-15-X1) TITL GENERATE DIB FOR BP00 DIB:BP D:BP00,C:BP0,BP00 END TITL BISYNCH PICO DRIVER TEST PROGRAM - PART 02 (93432-15-X1) TITL GENERATE CIB FOR BP00 CIB:BP C:BP0,:FA,:E8 END TITL BISYNCH PICO DRIVER TEST PROGRAM - PART 02 (93432-15-X1) TITL GENERATE DIB FOR BP01 DIB:BP D:BP01,C:BP1,BP01 END  TITL BISYNCH PICO DRIVER TEST PROGRAM - PART 02 (93432-15-X1) TITL GENERATE CIB FOR BP01 CIB:BP C:BP1,:FC,:F0 END / BPTEST:ASM --- ASSEMBLE ALL BISYNCH PICO TEST FILES (93432-7A-X1) / ALL FILES ASSUMED TO BE ON UF /  CREATES OBJECT & LISTING FILES ON UF / /MACRO BPTEST00(D=SF.GEN+SF.RTX+SF.IOS+BPOPS(SAVE),L=), BPTEST01(NOSAVE,L=), BPTEST02(D=SF.IOSD+BPDIBCIB,L=) 760301005812760301005812760301005812/ BPTEST:LNK --- LINK BISYNCH PICO TEST PROGRAM (93432-7B-X1) / ALL FILES ASSUMED TO BE ON UF /  CREATES BINARY FILE ON UF / /LINK BPTEST=BPTEST00(RL=100)+BPTEST01+BPTEST02+IOSBP+ SF.IOS.LIB+SF.RTX.LIB 760301005812760301005812760301005812 ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ  ZZZZZZZZZZZZZZZZZZZZZZZZZZ  ZZZZZZZZZZZZZZZZZZZZZZZZZZ  ZZZZZZZZZZZZZZZZZZZZZZZZZZ  ZZZZZZZZZZZZZZZZZZZZZZZZZZ  ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ  ZZZZZZZZZZZZZZZZZZZZZZZZZZ! ZZZZZZZZZZZZZZZZZZZZZZZZZZ" ZZZZZZZZZZZZZZZZZZZZZZZZZZ# ZZZZZZZZZZZZZZZZZZZZZZZZZZ$ ZZZZZZZZZZZZZZZZZZZZZZZZZZ% ZZZZZZZZZZZZZZZZZZZZZZZZZZ& ZZZZZZZZZZZZe; 760301005812760301005812760301005812e@760301005812760301005812760301005812e:' 760301005812760301005812760301005812e760301005812760301005812760301005812760301005812760301005812760301005812eJ7904191056462579041910565100de7904191056552579041910565975de  L7904191057040079041910570900d e J7904191057132579041910571850d(  em7904191057227579041910572975d e$7904191057342579041910573775d e%7904191057422579041910574600d e&7904191057505079041910575425d) * + , - . / 0 . IOSBP OBJBPOPS MACBPDIBCIB MAC BPTEST00 ASM BPTEST01 ASM BPTEST02 ASM BPTEST:ASM JCL BPTEST:LNK JCL1 ZZZZZZZZZZZZZZZZZZZZ2 ZZZZZZZZZZZZZZZZZZZZZZZZZZ3 ZZZZZZZZZZZZZZZZZZZZZZZZZZ4 ZZZZZZZZZZZZZZZZZZZZZZZZZZ5 ZZZZZZZZZZZZZZZZZZZZZZZZZZ6 ZZZZZZZZZZZZZZZZZZZZZZZZZZ7 ZZZZZZZZZZZZZZZZZZZZZZZZZZ8 ZZZZZZZZZZZZZZZZZZZZZZZZZZ9 ZZZZZZZZZZZZZZZZZZZZZZZZZZ: ZZZZZZZZZZZZZZZZZZZZZZZZZZ; ZZZZZZZZZZZZZZZZZZZZZZZZZZ< ZZZZZZZZZZZZZZZZZZZZZZZZZZ= ZZZZZZZZZZZZZZZZZZZZZZZZZZ> ZZZZZZZZZZZZZZZZZZZZZZZZZZ? ZZZZZZZZZZZZZZZZZZZZZZZZZZ@ ZZZZZZZZZZZZZZZZZZZZZZZZZZA ZZZZZZZZZZZZZZZZZZZZZZZZZZB ZZZZZZZZZZZZZZZZZZZZZZZZZZC ZZZZZZZZZZZZZZZZZZZZZZZZZZD ZZZZZZZZZZZZZZZZZZZZZZZZZZE ZZZZZZZZZZZZZZZZZZZZZZZZZZF ZZZZZZZZZZZZZZZZZZZZZZZZZZG ZZZZZZZZZZZZZZZZZZZZZZZZZZH ZZZZZZZZZZZZZZZZZZZZZZZZZZI ZZZZZZZZZZZZZZZZZZZZZZZZZZJ ZZZZZZZZZZZZZZZZZZZZZZZZZZK ZZZZZZZZZZZZZZZZZZZZZZZZZZL ZZZZZZZZZZZZZZZZZZZZZZZZZZ