.title tvector .macro tvec name rename .if defined clib_routines c_'name == . .transfer c_'name .iff .transfer 'name .endc .word ^m .if blank rename jmp 'name'+2 .iff jmp 'rename'+2 .endc .endm .macro tvec_abs name .transfer 'name .word ^m jmp 'name'+2 .endm .macro tvecfast name .transfer 'name ; .mask 'name .word ^m<> jmp 'name'+2 .endm .macro tvecnop name ; .transfer 'name ; .mask 'name .word ^m jmp 'name'+2 .endm .macro tvecdelete name .word 0 jmp @#0 .endm .psect aaaaaavector,pic,shr,nowrt,exe start: tvec ACCESS tvec ARGV_FIELDS tvec ATODESC tvec ATOF tvec ATOI tvec BTIMTOA tvec CALLOC tvec CAT tvec CFREE tvec CMAP tvec COMPILE tvec COPYST tvec DELETE tvec DESC tvec DESCTOA tvec EPRINTF tvec EQ tvec ETOA tvec EXIT tvec FCLOSE tvec FERROR tvec FFLUSH tvec FGETC tvec FGETS tvec FIELDS tvec FILETIME tvec FOPEN tvec FPRINTF tvec FPUTC tvec FPUTS tvec FSCANF tvec FTOA tvec FULLNAME tvec GETARGS tvec GETC tvec GETCHAR tvec GETS tvec ILIST tvec INDEX tvec INSERT tvec ISAMBX tvec ISASYS tvec ISATTY tvec LDUMP tvec LFIELDS tvec LSEEK tvec_abs MAIN_PROGRAM ;this is same name in both libs tvec MAPSECT tvec MARKA tvec MARKTIME tvec MATCH tvec MOVEB tvec MYTTY tvec NARGS tvec NBRTXT tvec NEW tvec NEXT tvec NEXTF tvec POS tvec PREV tvec PRINTF tvec PUTC tvec PUTS tvec QSORT tvec RECMP tvec RELEASE tvec REPOS tvec RESEG tvec RINDEX tvec SCANF tvec SEARCH tvec SEG tvec SETCHAR tvec SETPMT tvec SETRAW tvec SETTMO tvec SPRINT tvec SPRINTF tvec SSCANF tvec STOLOWER tvec STOUPPER tvec STRCAT tvec STRCATN tvec STRCMP tvec STRCMPN tvec STRCOPY tvec STRCPY tvec STRCPYN tvec STRLEN tvec STRNCAT tvec STRNCMP tvec STRNCPY tvec TELL tvec UNGETC tvec UNMAPSEC tvec VAL tvecnop _ADJSTK ;these were included when we had the tvecnop _ADJWSL ;whitesmiths compiler which could not handle tvecnop _ALLOC ;long names such as sys$xxxxxx tvecnop _ASCEFC ;they are dummied out now but holes are left tvecnop _ASCTIM ;for compatibility tvecnop _ASSIGN tvecnop _BINTIM tvecnop _BRDCST tvecnop _CANCEL tvecnop _CANEXH tvecnop _CANTIM tvecnop _CANWAK tvecnop _CLOSE tvecnop _CLREF tvecnop _CMEXEC tvecnop _CMKRNL tvecnop _CNTREG tvecnop _CRELOG tvecnop _CREMBX tvecnop _CREPRC tvecnop _CRETVA tvecnop _CRMPSC tvecnop _DACEFC tvecnop _DALLOC tvecnop _DASSGN tvecnop _DCLAST tvecnop _DCLCMH tvecnop _DCLEXH tvecnop _DELLOG tvecnop _DELMBX tvecnop _DELPRC tvecnop _DELTVA tvecnop _DGBLSC tvecnop _DLCEFC tvecnop _DOSCAN tvecnop _EXIT tvecnop _EXPREG tvecnop _FAO tvecnop _FAOL tvec _FILLB tvec _FLUSHB tvecnop _FLUSHR tvecnop _FORCEX tvecnop _GET tvecnop _GETCCL tvecnop _GETCHN tvecnop _GETCU tvecnop _GETDEV tvecnop _GETJPI tvecnop _GETMSG tvecnop _GETTIM tvecnop _GRAB tvecnop _HIBER tvecnop _INNUM tvecnop _INSTR tvecnop _LCKPAG tvecnop _LKWSET tvecnop _MGBLSC tvecnop _NEXT tvecnop _NUMTIM tvecnop _OPEN tvecnop _PURGWS tvecnop _PUT tvecnop _PUTCU tvecnop _PUTMSG tvecnop _QIO tvecnop _QIOW tvecnop _READ tvecnop _READEF tvecnop _RESUME tvecnop _SCHDWK tvecnop _SEARCH tvecnop _SETAST tvecnop _SETEF tvecnop _SETEXV tvecnop _SETIME tvecnop _SETIMR tvecnop _SETPRA tvecnop _SETPRI tvecnop _SETPRN tvecnop _SETPRT tvecnop _SETPRV tvecnop _SETRWM tvecnop _SETSFM tvecnop _SETSWM tvecnop _SNDACC tvecnop _SNDERR tvecnop _SNDOPR tvecnop _SNDSMB tvecnop _STAB tvecnop _SUSPND tvecnop _TRNLOG tvecnop _ULKPAG tvecnop _ULWSET tvecnop _UNGRAB tvecnop _UNWIND tvecnop _UPDSEC tvecnop _WAITFR tvecnop _WAKE tvecnop _WFLAND tvecnop _WFLOR tvecnop _WRITE tvec cmapzero ;added 25-jan-1982 tvec cunmap ; 25-jan-1982 tvec cmapcluster ; 31-jan-1982 ;;;; tvec cspawn ; 3-feb-1982 ;delete 9-aug-82 tvec error ; 2-mar-1982 tvec sdelete ;--- tvec sinstall ; tvec stabinit ; All on 5-mar-82 tvec sdump ; tvec slookup ;--- tvec valof_stdin ;get the value of stdin tvec valof_stdout ;avoid non pic ref this way tvec valof_stderr tvec valof_stdcmd tvec addr_stdin ;get address of these tvec addr_stdout tvec addr_stderr tvec addr_stdcmd tvec initb ;init block tvec init_input_cmd ;control character input routines tvec input_cmd tvec read_cmd tvec set_cmd tvec write_cmd tvec mtfunc ;raw mag tape functions tvec mtget tvec mtput tvec setrawmt tvec translate ;translate logical name tvecfast $$$trace ;z debugger entries tvec $$$trace0 tvec $$$trace2 tvec $debug tvec add_f ;z floating point routines tvec div_f tvec flt_f tvec int_f tvec mul_f tvec sub_f tvec getsearcherr ;12-aug-82 return search err codes tvec old ;24-aug-82 synonym for release tvec getlh newlh ;24-aug-82 get and init a list head 3/28/84 tvec oldlh ; 1-sep-82 more consistent names tvec newlh ; 1-sep-82 more consistent names tvec get_lh ; 24-sep-82 getlin interface routines tvec set_call_back ; " " tvec out_string ; " " tvec get_cmd ; " " tvec lst_cmd ; " " tvec set_opts ; " " tvec del_cmd ; 28-sep-82 " tvec mtverbose ; 15-jan-83 raw magtape verbose setup tvec set_edit ; 21-jan-83 user editor for input sys tvec get_leditor ; 25-jan-83 an editor for input sys tvec compute_expr ; 27-jan-83 algebraic expr package tvec get_vars ;--- tvec set_vars ;--- tvec history_max ;history inside getlin tvec history_rot tvec history_get tvec history_display tvec history_enter ;multiuse map file routines 5-apr-83 tvec mapfile_save ;save defaults tvec mapfile_restore ;restore defaults (1 level stack) tvec extendfile ;to extend a file tvec mapfile_options ;set optional map file inputs tvec mapfile ;map it tvec unmapfile ;unmap it tvec streq ;string equality test tvec cmp_f ;floating compare tvec big_window ;mapfile addition tvec set_format ;sprint addition 1-16-84 tvec descr ;descriptor addition 1-23-84 tvec set_desc ;descriptor addition 2-06-84 tvec get_desc ;descriptor addition 2-06-84 tvec movetc ;move trans tvec error_set ;redefinable error(...) tvec list_routines ;redefineable alloc/free setup tvec sprintf_big ;sprintf with user temp buffer tvec item_list ;item list formater .blkb ^x2000-<.-start> ;spare space, vectors .end