.TITLE FTIODEF FTCOPY I/O DATA BLOCK .SUBTITLE I/O NAME BLOCK ; .IDENT /21-JAN-1983/ ; Foreign Tape copy ; .MACRO FTIODEF,$GBL ; $DEFINI FTIO,$GBL $DEF FTIO_Q_INDESC ; DESCRIPTOR OF INPUT FILE NAME $DEF FTIO_L_INSIZ .BLKL 1 ; SIZE OF INPUT FILE NAME $DEF FTIO_L_INPTR .BLKL 1 ; POINTER TO INPUT FILE ; NAME STRING. $DEF FTIO_Q_OUTDESC ; DESCRIPTOR OF OUTPUT FILE NAM $DEF FTIO_L_OUTSIZ .BLKL 1 ; SIZE OF OUTPUT FILE NAME. $DEF FTIO_L_OUTPTR .BLKL 1 ; POINTER TO OUTPUT FILE ; NAME STRING. $DEF FTIO_Q_BLADESC ; DESCRIPTOR OF BLANK_EDIT FILE $DEF FTIO_L_BLASIZ .BLKL 1 ; SIZE OF BLANK-EDIT FILE NAME. $DEF FTIO_L_BLAPTR .BLKL 1 ; POINTER TO BLANK_EDIT FILE ; NAME STRING. $DEF FTIO_Q_USRDESC ; DESCRIPTOR OF USER-TRANS FILE $DEF FTIO_L_USRSIZ .BLKL 1 ; SIZE OF USER_TRANS FILE NAME. $DEF FTIO_L_USRPTR .BLKL 1 ; POINTER TO USER_TRANS FILE ; NAME STRING. ; $DEF FTIO_B_USRFIL .BLKB 128 ; USER_TRANS FILE NAME STRING. $DEF FTIO_B_INFIL .BLKB 128 ; INPUT FILE NAME STRING $DEF FTIO_B_OUTFIL .BLKB 128 ; OUTPUT FILE NAME STRING $DEF FTIO_B_BLAFIL .BLKB 128 ; BLANK_EDIT FILE NAME. ; $DEF FTIO_K_LEN ; LENGTH OF THE FTIO. $DEFEND $DEFEND FTIO .ENDM FTIODEF ; .END