%ì VAX-11 Librarian V03-00 mŸ¤8‹ ¤„aL¦Œ  P! TA WCALL_MSG DESCRIPTORFTCBDEF FTIODEFGETPRESGETVAL ­À<^öf‹ .MACRO FTCBDEF,$GBL $DEFINI FTCB,$GBL $DEF FTCB_B_TCODE .BLKB 1 $DEF FTCB_B_EVEN .BLKB 1K $DEF FTCB_B_PREC .BLKB 18 $DEF FTCB_B_PBLK .BLKB 1F $DEF FTCB_B_TRAIL .BLKB 1 $DEF FTCB_B_EXTRA .BLKB 3 $DEF FTCB_W_DEFS .BLKW 1T _VIELD DEFS,0,<-  ,- ,- ,- ,- ,-N ,- ,- ,- ,- ,-B ,-T >K $DEF FTCB_W_FLAG .BLKW 1  _VIELD DEFS,0­àБ“m‹ .MACRO FTIODEF,$GBL $DEFINI FTIO,$GBL $DEF FTIO_Q_INDESC. $DEF FTIO_L_INSIZ .BLKL 1 $DEF FTIO_L_INPTR .BLKL 1 $DEF FTIO_Q_OUTDESC $DEF FTIO_L_OUTSIZ .BLKL 1A $DEF FTIO_L_OUTPTR .BLKL 1A $DEF FTIO_Q_BLADESC $DEF FTIO_L_BLASIZ .BLKL 10 $DEF FTIO_L_BLAPTR .BLKL 1, $DEF FTIO_Q_USRDESC $DEF FTIO_L_USRSIZ .BLKL 1, $DEF FTIO_L_USRPTR .BLKL 1, $DEF FTIO_B_USRFIL .BLKB 128, $DEF FTIO_B_INFIL .BLKB 128 $DEF FTIO_B_OUTFIL .BLKB 128F $DEF FTIO_B_BLAFIL .BLKB ­@¶ÊçÐDŒ .MACRO FTCBDEF,$GBL $DEFINI FTCB,$GBL $DEF FTCB_B_TCODE .BLKB 1 $DEF FTCB_B_EVEN .BLKB 1C $DEF FTCB_W_PADS6 $DEF FTCB_B_PREC .BLKB 1, $DEF FTCB_B_PBLK .BLKB 1. $DEF FTCB_W_TRAILSS $DEF FTCB_B_TRAILR .BLKB 1C $DEF FTCB_B_TRAILB .BLKB 1S $DEF FTCB_B_ESCAPE .BLKB 1  $DEF FTCB_B_OUT_CLAS .BLKB 1$ $DEF FTCB_B_IN_CLAS .BLKB 1 $DEF FTCB_B_EOV .BLKB 1 $DEF FTCB_B_EXTRA .BLKB 2 $DEF FTCB_W_DEFS .BLKW 1E _VIELD DEFS,0,<-, ,- ,-> ,- ,- ,-P ,- ,- ,- ,- ,-F ,- >  $DEF FTCB_W_FLAG .BLKW 1E _VIELD FLAG,0­@ä{Ÿ>‹ .MACRO FTCBDEF,$GBL $DEFINI FTCB,$GBL $DEF FTCB_B_TCODE .BLKB 1 $DEF FTCB_B_EVEN .BLKB 1^ $DEF FTCB_B_PREC .BLKB 1 $DEF FTCB_B_PBLK .BLKB 1K $DEF FTCB_B_TRAIL .BLKB 1 $DEF FTCB_B_EXTRA .BLKB 3 $DEF FTCB_L_DEFS .BLKL 1_ _VIELD DEFS,0,<-N ,- ,- ,- ,- ,-P ,- ,- ,- ,- ,-F ,- >  $DEF FTCB_L_NFILES .BLKL 1 $DEF FTCB_LèÐDŒ SYSTEM_TWD1 FTCBDEFº«  âÍaL¦Œ SYSTEM_TWD1 FTCBDEF­`2”m‹B .MACRO GETPRES PNAME,?TRUE,DEF,NEG,LPRES,LNEG,ABS,PRES,?FALSE,?L3 PUSHAL PNAMEP CALLS #1,G^CLI$PRESENT MOVL R0,R6$ BLBS R0,L3^ .IF NOT_BLANK NEG CMPL #CLI$_NEGATED,R0 BEQL NEGL .ENDC .IF NOT_BLANK LNEG, CMPL #CLI$_LOCNEG,R0B BEQL LNEG .ENDC .IF NOT_BLANK ABS CMPL #CLI$_ABSENT,R0E BEQL ABSR .ENDC JMP FALSEL3: .IF NOT_BLANK DEF CMPL #CLI$_DEFAULTED,R0 BEQL DEF  .ENDC .IF NOT_BLANK LPRES CMPL #CLI$_LOCPRES,R0 BEQL LPRESB .ENDC .IFm‹ 708_TWD1 FTCBDEFFTIODEFGETVALGETPRESº«!ÀGóH"m‹ 708_TWD1 CALL_MSGº«!À?ù?(m‹ 708_TWD1 CALL_MSGº« €¡xJÿq‹ 708_TWD1 FTCBDEFº« `ý¯5t‹ 708_TWD1 FTCBDEFº« Àl"n9x‹ 708_TWD1 FTCBDEFº« FCæx‹ 708_TWD1 FTCBDEFº« 3˜£}‹ 708_TWD1 FTCBDEFº« `5‹*µ}‹ 708_TWD1 FTCBDEFº« €s¼[:ƒ‹ 708_TWD1 FTCBDEFº« `Äsòƒ‹ 708_TWD1 FTCBDEFº« À7~…‹ 708_TWD1 FTCBDEFº« àN#ªÌ‡‹ 708_TWD1 FTCBDEFº« @yŒÎ‡‹ 708_TWD1 FTCBDEFº«! ža”䇋 708_TWD1 CALL_MSGº«!ÀÀå_‰‹ 708_TWD1 CALL_MSGº«# ¸O‹‰‹ 708_TWD1 DESCRIPTORº«#àV>_“‰‹ 708_TWD1 DESCRIPTORº«#ñД‰‹ 708_TWD1 DESCRIPTORº«#nmþ7Š‹ 708_TWD1 DESCRIPTORº«!`õJüg‹ 708_TWD1 CALL_MSGº« -.h‹ 708_TWD1 FTCBDEFº«  hiG}‹ 708_TWD1 FTCBDEFº«!`¬Á·~‹ 708_TWD1 CALL_MSGº«!À}ÿ(Ž‹ 708_TWD1 CALL_MSGº« ÀjÝÓ‹ 708_TWD1 FTCBDEFº« `機‡˜‹ 708_TWD1 FTCBDEFº« €k/ ­ .MACRO CALL_MSG TYPE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,- A13,A14,A15,A16+ .NARG ARG_COUNTB .IRP ARG, .IIF NOT_BLANK,ARG, PUSHL ARG .ENDR CALLS #,G^TYPE .ENDM CALL_MSGFwwBLANK A12 PUSHL A12 .ENDC .IF NOT_BLANK A11 PUSHL A11 .ENDC .IF NOT_BLANK A10 PUSHL A10 .ENDC .IF NOT_BLANK A9 PUSHL A9N .ENDC .IF NOT_BLANK A8U PUSHL A8 .ENDC .IF NOT_BLANK A7 PUSHL A7T .,<-­ ,- ,- ,-? ,-M ,-B ,- ,- ,- >N $DEF FTCB_L_NFILES .BLKL 1U $DEF FTCB_L_INBLK .BLKL 1 $DEF FTCB_L_INREC .BLKL 1 $DEF FTCB_L_OUTBLK .BLKL 1E $DEF FTCB_L_OUTREC .BLKL 1; $DEF FTCB_L_RMS_CNT .BLKL 1 $DEF FTCB_L_INSLEN .BLKL 1R $DEF FTCB_L_INSPTR .BLKL 1, $DEF FTCB_B_INSTR .BLKB 160 $DEF FTCB_K_LEN $DEFEND FTCB$ .ENDM FTCBDEFww BLBS R0,L3 .IF NOT_BLANK NEG CMPL #CTREC,,M>,- ,- ,-M ,- ,-, ,-> ,- ,- ,-E ,-K > $DEF FTCB_W_FLAG .BLKW 1, _VIELD FLAG,0,<-> ,-, ,- ,-, ,-, ,-M ,-, ,-, ,-> ,- ,- ,-E ,-B ,-B >V $DEF FTCB_L_TRAPTR .BLKL 1I $DEF FTCB_L_FILCOP .BLKL 1T­ ¤„aL¦Œ .MACRO FTCBDEF,$GBL $DEFINI FTCB,$GBL $DEF FTCB_B_TCODE .BLKB 1 $DEF FTCB_B_EVEN .BLKB 1 $DEF FTCB_W_PADS  $DEF FTCB_B_PREC .BLKB 1  $DEF FTCB_B_PBLK .BLKB 1F $DEF FTCB_W_TRAILS, $DEF FTCB_B_TRAILR .BLKB 1E $DEF FTCB_B_TRAILB .BLKB 1  $DEF FTCB_B_ESCAPE .BLKB 1T $DEF FTCB_B_OUT_CLAS .BLKB 1> $DEF FTCB_B_IN_CLAS .BLKB 1 $DEF FTCB_B_EOV .BLKB 1 $DEF FTCB_W_OUT_BUF .BLKW 1 $DEF FTCB_W_IN_BUF .BLKW 1E $DEF FTCB_B_EXTRA .BLKB 2 $DEF FTCB_W_DEFS .BLKW ­àŠý7Š‹ .MACRO DESCRIPTOR NAME,A1 .SHOW MEANAME:: .LONG %LENGTH(A1) .LONG NAME+8S .ASCII ^A1^ .NOSHOW ME. .ENDM DESCRIPTORNwwSCRIPTORNww.IF NOT_BLANK A2L PUSHL A2L .ENDC .IF NOT_BLANK A1K PUSHL A1  .ENDC PUSHL FTCB_L_EXIT_FLG(R10)_ CALLS #ARG_COUNT,G^TYPE .ENDM CALL_MSG.ww1 $DEF FTCB_L_ACT_OUTREC .BLKL 1  $DEF FTCB_L_ACT_OUTBLK .BLKL 1$ $DEF FTCB_L_INRECS .BLKL 1$ $DEF FTCB_L_INREM .BLKL 1 $DEF FTCB_L_OUTRECS .BLKL 1 $DEF FTCB_L_OUTREM .BLK128A $DEF FTIO_K_LEN $DEFEND FTIO .ENDM FTIODEFwwEC,,M>,-B ,-  ,- ,- ,- > $DEF FTCB_L_INLUN .BLKL 1 $DEF FTCB_L_OUTLUN .BLKL 1 $DEF FTCB_L_NFILES .BLKL 1 $DEF FTCB_L_INBLK .BLKL 1 $DEF FTCB_L_INREC .BLKL 1 $DEF FTCB_L_OUTBLK .BLKL 1 $DEF FTCB_L_OUTREC .BLKL 1 $DEF FTCB_L_RMS_CNT .BLKL 1 $DEFS FTCB_L_EXIT_FLG .BLKL 1 $DEF FTCB_L_INSLEN .BLKL 1 $DEF FTCB_L_INSPTR .BLKL 1 $DEF FTCB_B_INSTR .BLKB 160 _VIELD TR NOT_BLANK PRES  CMPL #CLI$_PRESENT,R0 BEQL PRES .ENDC JMP TRUEAFALSE: .ENDM GETPRESww >E $DEF FTCB_K_LEN $DEFEND FTCBO .ENDM FTCBDEFwwEF FTIO_Q_OUTDESC $DEF FTIO_L_OUTSIZ .BLKL 1 $DEF FTIO_L_OUTPTR .BLKL 1 $DEF FTIO_Q_BLADESC $DEF FTIO_L_BLASIZ .BLKL 1 $DEF FTIO_L_BLAPTR .BLKL 1 $DEF FTIO_Q_USRDESC $DEF FTIO_L_USRSIZ .BLKL 1 $DEF FTIO_L_USRPTR .BLKL 1 $DEF FTIO_B_USRFIL .BLKB 128 $DEF FTIO_B_INFIL .BLKB 128 $DEF FTIO_B_OUTFIL .BLKB 128 $DEF FTIO_B1B _VIELD DEFS,0,<-N ,- ,-B ,- ,- ,-T ,- ,-B ,-  ,- ,- ,-R ,-$ ,-  >  $DEF FTCB_W_FLAG .BLKW 1L _VIELD FLAG,0,<-R ,-E ,- ,-B ,- ,-_ ,-K ,-L ,-1 ,- ,- ,-T ,- ,-C ,- >B $DEF FTCB_L_TRAPTR .BLKL 1L $DEF FTCB_L_FILCOP .BLKL 1L $DEF FTCB_L_SEVERITY .BLKL 1I $DEF FTCB_L_INLUN .BLKL 1 $DEF FTCB_L_OUTLUN .BLKL 1E $DEF FTCB_L_BLK_READ .BLKL 1I $DEF FTCB_L_BLK_WRIT .BLKL 1S $DEF FTCB_L_REC_READ .BLKL 1R $DEF FTCB_L_REC_WRIT .BLKL 1 $DEF FTCB_L_RMS_CNT .BLKL 1 $DEF FTCB_L_NFILES .BLKL 1A $DEF FTCB_L_INBLK .BLKL 1 $DEF FTCB_L_INREC .BLKL 1 $DEF FTCB_L_OUTBLK .BLKL 1  $DEF FTCB_L_OUTREC .BLKL 1T $DEF FTCB_L_AC $DEF FTCB_L_SEVERITY .BLKL 1R $DEF FTCB_L_INLUN .BLKL 1 $DEF FTCB_L_OUTLUN .BLKL 1L $DEF FTCB_L_BLK_READ .BLKL 1L $DEF FTCB_L_BLK_WRIT .BLKL 1L $DEF FTCB_L_REC_READ .BLKL 1N $DEF FTCB_L_REC_WRIT .BLKL 1B $DEF FTCB_L_RMS_CNT .BLKL 1 $DEF FTCB_L_NFILES .BLKL 1  $DEF FTCB_L_INBLK .BLKL 1 $DEF FTCB_L_INREC .BLKL 1 $DEF FTCB_L_OUTBLK .BLKL 1L $DEF FTCB_L_OUTREC .BLKL 1B $DEF FTCB_L_ACT_INREC .BLKL 1B $DEF FTCB_L_ACT_INBLK .BLKL 1 $DEF FTCB_L_ACT_OUTREC .BLKL 1L $DEF FTCB_L_ACT_OUTBLK .BLKL 1E $DEF FTCB_L_INRECS .BLKL 1E $DEF FTCB_L_INREM .BLKL 1 $DEF FTCB_L_OUTRECS .BLKL 1 $DEF FTCB_L_OUTREM .BLKL 1_ $DEF FTCB_Q_ISTAT .BLKQ 1 $DEF FTCB_L_OUT_RAB .BLKL 1 $DEF FTCB_L_EXIT_FLG .BLKL 1S $DEF FTCB_L_INSLEN .BLKL 1, $DEF FTCB_L_INSPTR .BLKL 1A $DEF FTCB_B_INSTR .BLKB 160 _VIELD TRANS,0,<- ,- ,- <8AT7A,,M>,- <7AT8A,,M>,- ,- > $DEF FTCB_K_LEN $DEFEND FTCB .ENDM FTCBDEFww T_INREC .BLKL 1 $DEF FTCB_L_ACT_INBLK .BLKL 1 $DEF FTCB_L_ACT_OUTREC .BLKL 1 $DEF FTCB_L_ACT_OUTBLK .BLKL 1 $DEF FTCB_L_INRECS .BLKL 1 $DEF FTCB_L_INREM .BLKL 1 $DEF FTCB_L_OUTRECS .BLKL 1 $DEF FTCB_L_OUTREM .BLKL 1 $DEF FTCB_Q_ISTAT .BLKQ 1 $DEF FTCB_L_OUT_RAB .BLKL 1 $DEF FTCB_L_EXIT_FLG .BLKL 1 $DEF FTCB_L_INSLEN .BLKL 1 $DEF FTCB_L_INSPTR .BLKL 1 $DEF FTCB_B_INSTR .BLKB 160 _VIELD TRANS,0,<- ,- ,- <8AT7A,,M>,- <7AT8A,,M>,- ,- > $DEF FTCB_K_LEN $DEFEND FTCB .ENDM FTCBDEFww