ASMB,R,L,B,C HED FAST FORTRAN PROCESSOR LIBRARY 20NOV73 JSO NAM $SETP * ENT $SETP * $SETP NOP ENTRY POINT STA ASAVE SAVE A REGISTER CCA COMPUT ADDRESS TO BE STUFFED ADA $SETP STA $SETP LDA OPCDE LOAD OPCODE OF .SETP INSTRUCTION STA $SETP,I REPLACE JSB LDA ASAVE RESTORE A REGISTER JMP $SETP,I RETURN TO MACRO-CODE * ASAVE BSS 1 OPCDE RAM SETP SETP EQU 227B END