.TITLE FTCBDEF FTCOPY DATA BLOCK .SUBTITLE DEFINITION OF THE COMMAND DATA BLOCK ; .IDENT /30-APR-1984 V01.D/ ; ; V01.D TWD 30-APR-1984 Add definitions for the output and ; input buffer sizes and the buffer message flags ; V01.C TWD 29-DEC-1983 Add definition for the save area for ; the input device class -- FTCB_B_IN_CLAS ; ; Foreign Tape copy ; .MACRO FTCBDEF,$GBL ; ; NOTE: ; THE ESCAPE BYTE TABLE AND THE TRANSLATION TABLE POINTERS ; USED IN FT_TRANS ARE DEPENDENT ON OFFSETS DEFINED AT THE END ; OF THIS MACRO. ; THE ADDRESSES IN THE POINTER TABLE AND THE ESCAPE BYTES ARE IN ; THE SAME ORDER AS THE TRANSLATION CODES DEFINED IN THE FTCB. ; IF ANY CHANGES ARE MADE TO THESE DEFINITIONS, CORRESPONDING ; CHANGES MUST BE MADE TO THE FT_TRANS ROUTINE ; WHERE THE ADDRESS AND ESCAPE TABLES ARE DEFINED. ; $DEFINI FTCB,$GBL ; FTCOPY COMMAND CONTROL BLOCK $DEF FTCB_B_TCODE .BLKB 1 ; TRANSLATION CODE FOR INPUT ; TO OUTPUT DATA TYPES. $DEF FTCB_B_EVEN .BLKB 1 ; CHARACTER TO EVEN ODD LENGTH ; BLOCKS ON OUTPUT. ; $DEF FTCB_W_PADS ; WORD FOR PAD BYTES. $DEF FTCB_B_PREC .BLKB 1 ; CHAR. FOR PAD OUTPUT RECORDS. $DEF FTCB_B_PBLK .BLKB 1 ; CHAR. FOR PAD OUTPUT BLOCKS. ; $DEF FTCB_W_TRAILS ; WORD FOR TRAIL BYTES. $DEF FTCB_B_TRAILR .BLKB 1 ; CHAR. FOR FILLING ODD RECORD $DEF FTCB_B_TRAILB .BLKB 1 ; OR BLOCK ON INPUT. ; $DEF FTCB_B_ESCAPE .BLKB 1 ; ESCAPE CHARACTER FOR "MOVTUC" $DEF FTCB_B_OUT_CLAS .BLKB 1 ; OUTPUT DEVICE CLASS. $DEF FTCB_B_IN_CLAS .BLKB 1 ; INPUT DEVICE CLASS. ; $DEF FTCB_B_EOV .BLKB 1 ; NUMBER OF SEQUENTIAL EOF'S $DEF FTCB_W_OUT_BUF .BLKW 1 ; BUFFER SIZE OF OUTPUT DEVICE. $DEF FTCB_W_IN_BUF .BLKW 1 ; BUFFER SIZE OF INPUT DEVICE. $DEF FTCB_B_EXTRA .BLKB 2 ; EXTRA BYTES. ; ; $DEF FTCB_W_DEFS .BLKW 1 ; DEFAULT CONDITION FLAGS ; _VIELD DEFS,0,<- ; BIT DEFINITIONS ,- ; TRANSLATION CODE DEFAULT IF = 1. ,- ; EVEN RECORDS DEFAULT IF = 1. ,- ; PAD TYPE IS RECORD IF = 1. ,- ; PAD TYPE IS BLOCK IF = 1. ,- ; USE PAD DEFAULT IF = 1. ,- ; BLANK EDIT IS TO DEFAULT IF = 1. ,- ; TRAIL REC. CHARS DEFAULT IF = 1. ,- ; TRAIL BLOCK CHARS DEFAULT IF = 1. ,- ; INPUT BLOCK IS DEFAULTED IF = 1. ,- ; INPUT RECORD IS DEFAULTED IF = 1. ,- ; OUTPUT BLOCK IS DEFAULTED IF = 1. ,- ; OUTPUT RECORD IS DEFAULTED IF = 1. ,- ; OUTPUT BUFFER OVERFLOW MESSAGE ; NOT WRITTEN IF = 1. > ; ; $DEF FTCB_W_FLAG .BLKW 1 ; FEATURE USAGE FLAGS. ; _VIELD FLAG,0,<- ; BIT DEFINITIONS ,- ; INPUT IS FOREIGN TAPE IF = 1. ,- ; OUTPUT IS FOREIGN TAPE IF = 1. ,- ; INITIALIZE COPY VALUES IF = 1. ,- ; EVEN THE OUTPUT BLOCKS IF = 1. ,- ; PAD OUTPUT RECORDS IF = 1. ,- ; PAD OUTPUT BLOCKS IF = 1. ,- ; KEEP INPUT RECORD CHARS. IF = 1. ,- ; KEEP INPUT BLOCK CHARS. IF = 1. ,- ; BLANK EDIT IF = 1. ,- ; TRANSLATE CHARACTERS IF =1. ,- ; OUT PUT JUST COMPLETED IF = 1. ,- ; INPUT RECORD > INPUT BLOCK IF = 1. ,- ; TRANSLATION ESCAPE INDICATOR. ,- ; CHECK BUFFER SIZE FOR TT: OR LP: TYPE ; DEVICES IF = 1. > ; ; $DEF FTCB_L_TRAPTR .BLKL 1 ; POINTER TO TRANSLATION TABLE. $DEF FTCB_L_FILCOP .BLKL 1 ; COUNT OF FILES COPIED. ; $DEF FTCB_L_SEVERITY .BLKL 1 ; MAXIMUM SEVERITY OF COPY OPER. $DEF FTCB_L_INLUN .BLKL 1 ; INPUT LOGICAL UNIT NUMBER. $DEF FTCB_L_OUTLUN .BLKL 1 ; OUTPUT LOGICAL UNIT NUMBER. ; $DEF FTCB_L_BLK_READ .BLKL 1 ; # BLOCKS READ. $DEF FTCB_L_BLK_WRIT .BLKL 1 ; # BLOCKS WRITTEN. $DEF FTCB_L_REC_READ .BLKL 1 ; # RECORDS READ. $DEF FTCB_L_REC_WRIT .BLKL 1 ; #RECORDS WRITTEN. $DEF FTCB_L_RMS_CNT .BLKL 1 ; COUNT OF RMS FILES $DEF FTCB_L_NFILES .BLKL 1 ; NUMBER OF INPUT FILES. ; $DEF FTCB_L_INBLK .BLKL 1 ; INPUT BLOCK SIZE $DEF FTCB_L_INREC .BLKL 1 ; INPUT RECORD SIZE. $DEF FTCB_L_OUTBLK .BLKL 1 ; OUTPUT BLOCK SIZE $DEF FTCB_L_OUTREC .BLKL 1 ; OUTPUT RECORD SIZE. $DEF FTCB_L_ACT_INREC .BLKL 1 ; ACTUAL SIZE INPUT REC $DEF FTCB_L_ACT_INBLK .BLKL 1 ; ACTUAL SIZE IN BLOCK $DEF FTCB_L_ACT_OUTREC .BLKL 1 ; ACTUAL SIZE OUT REC. $DEF FTCB_L_ACT_OUTBLK .BLKL 1 ; ACTUAL SIZE OUT BLOCK ; $DEF FTCB_L_INRECS .BLKL 1 ; NUMBER OF RECS IN INPUT BLOCK $DEF FTCB_L_INREM .BLKL 1 ; NUMBER OF BYTES REMAINING IN. $DEF FTCB_L_OUTRECS .BLKL 1 ; NUMBER OF RECS IN OUTPUT BLK. $DEF FTCB_L_OUTREM .BLKL 1 ; NUMBER OF BYTES REMAINING OUT ; $DEF FTCB_Q_ISTAT .BLKQ 1 ; I/O STATUS BLOCK. $DEF FTCB_L_OUT_RAB .BLKL 1 ; OUTPUT RAB ADDRESS. $DEF FTCB_L_EXIT_FLG .BLKL 1 ; EXIT ON ERROR FLAG. ; $DEF FTCB_L_INSLEN .BLKL 1 ; INPUT STRING LENGTH $DEF FTCB_L_INSPTR .BLKL 1 ; INPUT STRING POINTER ; $DEF FTCB_B_INSTR .BLKB 160 ; INPUT STRING BUFFER. ; ; NOTE: ; THE ESCAPE BYTE TABLE AND THE TRANSLATION TABLE POINTERS ARE ; DEPENDENT ON THE OFFSETS DEFINED IN THE SECTION BELOW. ; THE ADDRESSES IN THE POINTER TABLE AND THE ESCAPE BYTES ARE IN ; THE SAME ORDER AS THE TRANSLATION CODES DEFINED IN THE FTCB. ; IF ANY CHANGES ARE MADE TO THESE DEFINITIONS, CORRESPONDING ; CHANGES MUST BE MADE TO THE FT_TRANS ROUTINE ; WHERE THE ADDRESS AND ESCAPE TABLES ARE DEFINED. ; _VIELD TRANS,0,<- ; TRANSLATION CODES. ,- ; ASCII TO EBCDIC ,- ; EBCDIC TO ASCII <8AT7A,,M>,- ; 8 BIT ASCII TO 7 BIT <7AT8A,,M>,- ; 7 BIT ASCII TO 8 BIT ,- ; USER DEFINED TABLE. > ; $DEF FTCB_K_LEN ; LENGTH OF THE FTCB $DEFEND FTCB .ENDM FTCBDEF ; .END